chicken-5.1.0/0000755000175000017500000000000013502230006012716 5ustar sjamaansjamaanchicken-5.1.0/README0000644000175000017500000006507313502227636013630 0ustar sjamaansjamaan _/_/_/ _/ _/ _/_/_/ _/_/_/ _/ _/ _/_/_/_/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/_/ _/ _/ _/_/_/_/ _/ _/ _/_/ _/_/_/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/_/ _/_/_/ _/ _/ _/_/_/ _/_/_/ _/ _/ _/_/_/_/ _/ _/ README file for the CHICKEN Scheme system ========================================= (c) 2008-2019, The CHICKEN Team (c) 2000-2007, Felix L. Winkelmann version 5.1.0 1. Introduction CHICKEN is a Scheme-to-C compiler supporting the language features as defined in the 'Revised^5 Report on Scheme'. Separate compilation is supported and full tail-recursion and efficient first-class continuations are available. Some things that CHICKEN has to offer: 1. CHICKEN generates quite portable C code and compiled files generated by it (including itself) should work without any changes on DOS, Windows, most UNIX-like platforms, and with minor changes on other systems. 2. The whole package is distributed under a BSD style license and as such is free to use and modify as long as you agree to its terms. 3. Linkage to C modules and C library functions is straightforward. Compiled programs can easily be embedded into existing C code. 4. Loads of extra libraries. Note: Should you have any trouble in setting up and using CHICKEN, please ask questions on the CHICKEN users mailing list. Check http://wiki.call-cc.org/discussion-groups for information on how to subscribe to CHICKEN mailing lists. 2. Installation Building CHICKEN requires GNU Make. Other "make" derivates are not supported. If you are using a Windows system and do not have GNU Make, download http://www.call-with-current-continuation.org/tarballs/UnxUtils.zip. It contains a precompiled set of UNIX utilities, which among other useful tools contains "make". Configuration and customization of the build process is done by either setting makefile variables on the "make" command line or by editing the platform-specific makefile. 2.1. Building from a release tarball To build CHICKEN, first extract the archive ("tar xzf chicken-.tar.gz" on UNIX or use your favorite extraction program on Windows), then change to the chicken- directory and invoke "make" like this: make PLATFORM= PREFIX= where "PLATFORM" specifies on what kind of system CHICKEN shall be built and "PREFIX" specifies where the executables and libraries shall be installed. Out-of-directory builds are currently not supported, so you must be in the toplevel source directory to invoke "make". Enter "make" without any options to see a list of supported platforms. Note that parallel builds (using the "-j" make(1) option) are *not* supported. If you invoke "make" later with different configuration parameters, it is advisable to run: make PLATFORM= confclean to remove old configuration files. 2.2. Building from Git If you build CHICKEN directly from the development sources out of the git repository, you will need a "chicken" executable to generate the compiled C files from the Scheme library sources. If you are building in a checkout where you have built other versions of chicken, you need to make sure that all traces of the previous build are removed. "make clean" is insufficient, and you should do the following: make PLATFORM= spotless You will need to have a "chicken" binary installed, ideally from the development snapshot tarball that is closest to the git version you are trying to build (significantly older or newer ones are unlikely to work), and then use that chicken to build from your git sources. Installing this CHICKEN is recommended, if necessary you can install it to a temporary location in your homedir for example. Then, to build you can run: make PLATFORM= CHICKEN=/bin/chicken In some cases, the sources may have diverged enough to become unbuildable even with the snapshot. Then you'll need to first build a bootstrapping compiler with the installed CHICKEN and then use that to build the version from git. See the "Bootstrapping" section below. 2.3. Finishing the installation If CHICKEN is built successfully, you can install it on your system by entering make PLATFORM= PREFIX= install "PREFIX" defaults to "/usr/local". Note that the PREFIX is compiled into several CHICKEN tools and must be the same while building the system and during installation. To install CHICKEN for a particular PREFIX on a different location, set the "DESTDIR" variable in addition to "PREFIX": It designates the directory where the files are installed into. 2.4. Verifying your installation is correct You can check whether CHICKEN is functioning correctly by running make check where are all the variables you used while building CHICKEN. This will run the test scripts, which show a lot of output. The only thing that matters is the exit status at the end. If it exits with status 0, everything is fine, if it exits with a nonzero status, the failing test's output should be the final lines before Make's "error; exit" output. If the check fails on unmodified sources, please file a bugreport. 2.5. Optional features You can further enable various optional features by adding one or more of the following variables to the "make" invocation: DEBUGBUILD=1 Disable optimizations in compiled C code and enable debug information. STATICBUILD=1 Build only static versions of the runtime library, compiler and interpreter. EXTRA_CHICKEN_OPTIONS=... Additional options that should be passed to `chicken' when building the system. C_COMPILER_OPTIMIZATION_OPTIONS=... Override built-in C compiler optimization options. Available for debug or release build. PROGRAM_PREFIX= A prefix to prepend to the names of all generated executables. This allows having multiple CHICKEN versions in your PATH (but note that they have to be installed at different locations). PROGRAM_SUFFIX= A suffix to be appended to the names of all generated executables. HOSTSYSTEM= A "-" name prefix to use for the C compiler to to use to compile the runtime system and executables. Set this variable if you want to compile CHICKEN for a different architecture than the one on which you are building it. TARGETSYSTEM= Similar to "HOSTSYSTEM", but specifies the name prefix to use for compiling code with the "csc" compiler driver. This is required for creating a "cross chicken", a specially built CHICKEN that invokes a cross C compiler to build the final binaries. You will need a cross compiled runtime system by building a version of CHICKEN with the "HOST" option mentioned above. More information about this process and the variables that you should set are provided in the manual (see the "Cross development" chapter). SRCDIR= Specifies that CHICKEN should be built outside of its source tree. The SRCDIR variable indicates the location of the CHICKEN source tree. The executables and object files will be generated in the current directory. VARDIR= If set, this directory overrides the location where extensions along with their metadata are stored. Normally this will be equivalent to "/lib/chicken/". When VARDIR is specified, extensions will be stored in "/chicken/", conforming to the FHS. CONFIG= If you build CHICKEN often, passing all those make variables can get annoying. An alternative is to create a configuration file defining the required variables and passing "CONFIG=" to make(1). Even simpler is editing the included "config.make" and just invoke make(1) without any extra parameters. C_COMPILER= You can select an alternative compiler by setting this variable. The default compiler is "gcc". CHICKEN can be built with the LLVM version of gcc and with "clang", the LLVM-based C compiler, just set C_COMPILER to "llvm-gcc" or "clang". LINKER= Selects the linker to be used for creating executables and dynamic libraries from compiled C code. This should normally be the same as C_COMPILER. PROFILE_OBJECTS= This variable allows you to profile (parts of) CHICKEN itself. Just pass in a whitespace-separated list of objects, without the .scm-extension. (An "object" here is an individual .scm-file which gets compiled to a .c-file) To build with profiling support, run "make spotless" first. Be warned that this is a highly experimental option and profiling doesn't work for every component of CHICKEN. 2.6. Uninstalling CHICKEN To remove CHICKEN from your file-system, enter (probably as root): make PLATFORM= PREFIX= uninstall (If you gave DESTDIR during installation, you have to pass the same setting to "make" when uninstalling) 2.7. What gets installed These files will be installed under the prefix given during build and installation: |-- bin | |-- chicken | |-- chicken-install | |-- chicken-profile | |-- chicken-status | |-- chicken-uninstall | |-- libchicken.dll (Windows) | |-- csc | |-- csi | |-- feathers.bat (Windows) | `-- feathers (Unix) |-- include | `-- chicken | |-- chicken-config.h | `-- chicken.h |-- lib | |-- chicken | | `-- 9 | | |-- chicken.base.import.so | | |-- chicken.bitwise.import.so | | |-- chicken.blob.import.so | | |-- chicken.compiler.user-pass.import.so | | |-- chicken.condition.import.so | | |-- chicken.continuation.import.so | | |-- chicken.csi.import.so | | |-- chicken.errno.import.so | | |-- chicken.eval.import.so | | |-- chicken.file.import.so | | |-- chicken.file.posix.import.so | | |-- chicken.fixnum.import.so | | |-- chicken.flonum.import.so | | |-- chicken.foreign.import.so | | |-- chicken.format.import.so | | |-- chicken.gc.import.so | | |-- chicken.internal.import.so | | |-- chicken.io.import.so | | |-- chicken.irregex.import.so | | |-- chicken.keyword.import.so | | |-- chicken.load.import.so | | |-- chicken.locative.import.so | | |-- chicken.memory.import.so | | |-- chicken.memory.representation.import.so | | |-- chicken.pathname.import.so | | |-- chicken.platform.import.so | | |-- chicken.plist.import.so | | |-- chicken.port.import.so | | |-- chicken.pretty-print.import.so | | |-- chicken.process.import.so | | |-- chicken.process.signal.import.so | | |-- chicken.process-context.import.so | | |-- chicken.process-context.posix.import.so | | |-- chicken.random.import.so | | |-- chicken.repl.import.so | | |-- chicken.sort.import.so | | |-- chicken.string.import.so | | |-- chicken.read-syntax.import.so | | |-- chicken.syntax.import.so | | |-- chicken.tcp.import.so | | |-- chicken.time.import.so | | |-- chicken.time.posix.import.so | | |-- modules.db | | |-- srfi-4.import.so | | `-- types.db | |-- libchicken.a | |-- libchicken.dll.a (Windows) | |-- libchicken.dylib (Macintosh) | |-- libchicken.so -> libchicken.so.9 (Unix) | `-- libchicken.so.9 (Unix) `-- share |-- chicken | |-- doc | | |-- LICENSE | | |-- README | | |-- DEPRECATED | | |-- mac.r (Macintosh) | | |-- CHICKEN.icns (Macintosh) | | |-- manual-html | | |-- chicken.png | | |-- feathers.tcl | | `-- *.html | `-- setup.defaults `-- man `-- man1 |-- chicken-install.1 |-- chicken-profile.1 |-- chicken-status.1 |-- chicken-uninstall.1 |-- chicken.1 |-- csc.1 |-- csi.1 `-- feathers.1 3. Usage Documentation can be found in the directory PREFIX/share/chicken/doc in HTML format. The manual is maintained in a wiki at http://wiki.call-cc.org. Go there to read the most up to date documentation. 4. Extensions A large number of extension libraries for CHICKEN are available at http://wiki.call-cc.org/eggs. You can automatically download, compile and install extensions with the "chicken-install" program. See the CHICKEN User's Manual for more information. A selection of 3rd party libraries, together with source and binary packages for tools helpful for development with CHICKEN are also available at: . 5. Platform issues Android: - The Android SDK and NDK are required. Make sure you have set up a project and have a suitable NDK toolchain available. You will have to override the make(1) variable C_COMPILER to contain the correct compiler; see docs/STANDALONE-TOOLCHAIN.html in your NDK root for notes on how to call the correct compiler. You will also need to override the ARCH variable to match the device you're targeting. The build will produce a libchicken.so that can then be integrated into your project as a prebuilt shared library. See the android section on http://wiki.call-cc.org/embedding for a complete example. - It is possible to use eggs, by copying them into the right place and probably renaming the files. This is somewhat awkward and requires various hacks to make the loading/linking of eggs work. It may be easier to build the eggs you need manually and linking them statically to your executable. - By default debug-logging is enabled and written to the Android log. FreeBSD/NetBSD/OpenBSD: - *BSD system users *must* use GNU make ("gmake") - the makefiles can not be processed by BSD make. - On NetBSD it might be possible that compilation fails with a "virtual memory exhausted error". Try the following: % unlimit datasize - When using -deploy on NetBSD, currently the kernel only supports running the program through its absolute path, otherwise you will get an error message stating: execname not specified in AUX vector: No such file or directory Deployed binaries can also be run without an explicit path, through $PATH; only relative pathnames do not work. - Using external libraries on NetBSD may also be easier, if you add the following definitions to `Makefile.bsd': C_COMPILER_OPTIONS += -I/usr/pkg/lib LINKER_OPTIONS += -L/usr/pkg/lib -Wl,-R/usr/pkg/lib Note that this may cause build-problems, if you already have an existing CHICKEN installation in the /usr/pkg prefix. Linux: - If you want to build Linux binaries which use the "X32 ABI", you can pass ARCH=x32 on the Make command line. - There have been reports where the library directory "/usr/lib64" could not be found at build-time on a Fedora 12 system. If you build a 64-bit version of CHICKEN and the library directory is set incorrectly, you can override it by passing "LIBDIR=/usr/lib64" as an additional argument when you invoke "make". Solaris: - By default, CHICKEN is build with the GNU C compiler (`gcc'). To use the SunPro C compiler (`cc') instead, pass C_COMPILER=cc to the "make" invocation. - Older versions of Solaris have a bug in ld.so that causes trouble with dynamic loading. Patching Solaris fixes the problem. Solaris 7 needs patch 106950-18. Solaris 8 has an equivalent patch, 109147-16. You can find out if you have these patches installed by running: % showrev -p | grep 106950 # solaris 7 % showrev -p | grep 109147 # solaris 8 Mac OS X: - The build currently assumes the Xcode application path is "/Applications/Xcode.app/", with the C compiler and build tools being located in the "Contents/Developer/usr/bin" and "Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin" subdirectories, respectively. To override these locations, set XCODE_DEVELOPER and XCODE_TOOL_PATH on the make(3) command line. - CHICKEN will normally select a 32-bit or 64-bit build automatically when you use the normal build step: make PLATFORM=macosx Specifically, the defaults are: 10.4: 32-bit 10.5: 32-bit 10.6: 64-bit (32-bit on original Core Duo, circa early 2006) 10.7: 64-bit On 10.5, you can optionally build in 64-bit mode on machines released in late 2006 or later (i.e. with a Core 2 Duo or Xeon CPU), by specifying ARCH=x86-64: make PLATFORM=macosx ARCH=x86-64 - Universal binaries: On 10.4 and 10.5 only, CHICKEN and its eggs can be built as universal binaries which will work on either Intel or PowerPC. Most users will not want to do this. For 10.4 universal build: make PLATFORM=macosx ARCH=universal For 10.5 universal build: export MACOSX_DEPLOYMENT_TARGET=10.4 make C_COMPILER=gcc-4.0 PLATFORM=macosx ARCH=universal For 10.6 and later, universal builds are not supported. - On 10.3 and earlier, you must first install `dlcompat' which can be found at http://distfiles.macports.org/dlcompat/. iOS: - Make sure the "XCODE_PATH" setting is correct (see Makefile.ios), it defaults to "/Applications/Xcode.app". - The paths for the the various build tools changed between Xcode 4 and 5. The makefile used for iOS builds of CHICKEN assume Xcode 5 is used. If you are using Xcode 4, override the XCODE_TOOLPATH and C_COMPILER make-variables providing the correct paths, see Makefile.ios for suggestions. - The iOS build is static (iOS doesn't support dynamic loading of executable code). Only the runtime library (libchicken.a) is of interest. To use it, integrate libchicken.a in your Xcode project and use a normal MacOS build to compile your Scheme sources into C files, adding them to you project. - Core library units must by accessed via "(declare (uses ...))" and "(import ...)", "require", "require-library", "require-extension" and "use" will not work, due to the reasons mentioned above. - As dynamic loading is not supported, eggs can not be used as usual, you will have to compile them manually and integrate what you need into your project. - If you want to build for the iPhone Simulator, override the ARCH and XCODE_SDK variables accordingly, see also in Makefile.ios for suggestions. Windows: - On Windows, mingw32, and Cygwin are supported (Microsoft Visual Studio is *NOT*). Makefiles for mingw under MSYS and the Windows shell are provided (`Makefile.mingw-msys' and `Makefile.mingw'). Please also read the notes below. - When installing under the mingw-msys platform, PREFIX must be an absolute path name (i.e. it must include the drive letter) and must use forward slashes (no backward slashes), for example "PREFIX=C:/chicken/". - When installing under mingw, with a windows shell ("cmd.exe"), pass an absolute pathname (including the drive letter) as PREFIX and use forward slashes. If you are building the sources from git, use backslashes to specify the path to `chicken' (the "CHICKEN" variable). - When installing under mingw without MSYS, make sure that the MSYS tools (in case you have some of them, in particular the sh.exe UNIX shell) are *NOT* visible in your PATH. - 64-bit Windows is supported, invoke mingw32-make with the "ARCH=x86-64" argument (this is currently not detected automatically). The build has been tested on Windows 7 with the SJLJ binary package from "MinGW-builds", which can be found here: http://sourceforge.net/projects/mingwbuilds/ - Cygwin will not be able to find the chicken shared libraries until Windows is rebooted. - During "make check" you may see these intermittent errors: ld.exe: cannot open output file a.out: Permission denied When this happens, the virusscanner is holding open the file of the previous test while the compiler is preparing the next test. To work around this in Windows Defender (the default), disable "realtime protection" under tools->options. AIX: - CHICKEN is built with the GNU C compiler (`gcc'). IBM's XL C compiler is not supported at this time. - AIX users *must* use GNU make ("gmake") - the makefiles can not be processed with IBM's version of make. - Deployment doesn't work. See manual/Deployment for more details. - The AIX linker may occasionally show warnings of the form: ld: 0711-783 WARNING: TOC overflow. TOC size: 66656 Maximum size: 65536 Extra instructions are being generated for each reference to a TOC symbol if the symbol is in the TOC overflow area. Such messages indicate that lookups for some symbols in the effected library/executable may be somewhat slower at runtime as an auxiliary symbol table is needed to accommodate all of the symbols. - The AIX assembler may show warnings of the form: /tmp//ccycPGzK.s: line 527244: 1252-171 The displacement must be greater than or equal to -32768 and less than or equal to 32767. This is a known issue between the GNU toolchain and IBM's assembler: http://gcc.gnu.org/bugzilla/show_bug.cgi?id=4587 The problem arises because the PPC architecture cannot perform jumps to addresses that differ more than what a 16-bit integer can represent. Adding support for IBM's XL C compiler may resolve this issue. Instructing gcc to optimize the size of generated code (-Os) mitigates this to some degree, but very large C files may still be uncompilable. This is known to affect the html-tags egg. Haiku: - The default GCC compiler is too old to support the -fwrapv option. You can either remove the flag from Makefile.haiku, use a newer GCC, or supply your own C_COMPILER_OPTIONS on the Make command line. - The default Haiku BFS file system only supports timestamps with a granularity of one second. This may cause trouble with pregenerated release or development snapshot tarballs due to the way files are pre-translated to C. You'll either need to have CHICKEN installed, or touch the build-version.c file before building. 6. Bootstrapping To build a bootstrapping compiler yourself, get the most recent development snapshot tarball from http://code.call-cc.org, unpack it, build and install it. Then change to the directory containing the git code and run: make PLATFORM= CHICKEN= \ boot-chicken This will produce a statically linked binary with the name "chicken-boot[.exe]" that can be given as the value of the "CHICKEN" argument when invoking make(1). Note that the path to an existing `chicken' binary must be given to use it for compiling the Scheme code of the runtime-system and compiler. "scripts/bootstrap.sh" automates this process; use this script if you are unsure how to build from the repository sources. It downloads the necessary development snapshot with wget(1) and builds the boot-chicken that you can use to compile the development sources. The invocation is: scripts/bootstrap.sh PLATFORM= ... You can add additional parameters if you like to customize the build, but this should not be necessary. Note that your current working directory must be the root directory of the CHICKEN git(1) repository. Once the boot-chicken is built, proceed by invoking make(1) as described above (in 2.2, Building from Git), with the additional parameter: make CHICKEN=./chicken-boot ... 7. Emacs support See http://wiki.call-cc.org/emacs for tips and links to emacs extensions for Scheme and CHICKEN programming. 8. Compatibility notes In CHICKEN 4, the macro system has been reimplemented completely and provides module system, which has considerably more flexibility and power, but will require the re-implementation of macros in code that previously was used with CHICKEN 3. Notably, `define-macro' is not available anymore. See the manual on how to translate such macros to low-level hygienic macros or ask on the CHICKEN mailing list. 9. What's next? If you find any bugs, or want to report a problem, please send a detailed bug report. If you have any more questions or problems (even the slightest problems, or the most stupid questions), then please subscribe to the "chicken-users" (http://lists.nongnu.org/mailman/listinfo/chicken-users) mailing list and ask for help. It will be answered. chicken-5.1.0/setup.defaults0000644000175000017500000000222513370655400015624 0ustar sjamaansjamaan;;;; setup.defaults - defaults for chicken-install -*- Scheme -*- ;; version-number of the defaults file - checked by "chicken-install" ; when defaults are loaded (version 2) ;; list of locations (eggs stored in the local fileystem) ; ; (location DIRECTORY ...) ; ; Note that these override eggs from servers. ;; list of servers in the order in which they will be processed ; ; (server URL ...) ; ; URL may be an alias (see below) or a real URL. (server "kitten-technologies") (server "call-cc") ;; extensions-mappings ; ; (map (EXTENSIONNAME ... -> OTHEREXTENSIONNAME ...)) (map (srfi-4 ->)) ;; aliases for servers ; ; (alias (NAME REALNAME) ...) (alias ("call-cc" "http://code.call-cc.org/cgi-bin/henrietta.cgi") ("kitten-technologies" "http://chicken.kitten-technologies.co.uk/henrietta.cgi")) ;; overrides ; ; (override (NAME VERSION) ...) ; ; or: ; ; (override FILENAME) ;; hack ; ; (hack EXPR) ; ; EXPR should evaluate to a procedure of the type, where the ; procedure is of type EGGNAME DEPENDENCIES -> DEPENDENCIES' and ; may modify the dependencies-list of an arbitrary egg. All ; hack procedures are invoked in the order given here chicken-5.1.0/egg-download.scm0000644000175000017500000002567413502227553016024 0ustar sjamaansjamaan;;;; egg download ; ; Copyright (c) 2017-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (define +default-tcp-connect-timeout+ 30000) ; 30 seconds (define +default-tcp-read/write-timeout+ 30000) ; 30 seconds (define +url-regex+ "(http://)?([^/:]+)(:([^:/]+))?(/.*)?") (tcp-connect-timeout +default-tcp-connect-timeout+) (tcp-read-timeout +default-tcp-read/write-timeout+) (tcp-write-timeout +default-tcp-read/write-timeout+) (define user-agent (conc "chicken-install " (chicken-version))) (define (deconstruct-url url) (let ((m (irregex-match +url-regex+ url))) (values (if m (irregex-match-substring m 2) url) (if (and m (irregex-match-substring m 3)) (let ((port (irregex-match-substring m 4))) (or (string->number port) (error "not a valid port" port))) 80) (or (and m (irregex-match-substring m 5)) "/")))) (define (http-fetch host port locn dest proxy-host proxy-port proxy-user-pass) (let-values (((in out _) (http-connect host port locn proxy-host proxy-port proxy-user-pass))) (http-retrieve-files in out dest))) (define (http-query host port locn proxy-host proxy-port proxy-user-pass) (let-values (((in out len) (http-connect host port locn proxy-host proxy-port proxy-user-pass))) (close-output-port out) (http-retrieve-response in len))) (define (http-connect host port locn proxy-host proxy-port proxy-user-pass) (d "connecting to host ~s, port ~a ~a...~%" host port (if proxy-host (sprintf "(via ~a:~a) " proxy-host proxy-port) "")) (let-values (((in out) (tcp-connect (or proxy-host host) (or proxy-port port)))) (d "requesting ~s ...~%" locn) (let ((req (make-HTTP-GET/1.1 locn user-agent host port: port accept: "*/*" proxy-host: proxy-host proxy-port: proxy-port))) (display req out) (flush-output out) (d "reading response ...~%") (let* ((chunked #f) (datalen #f) (h1 (read-line in)) (response-match (match-http-response h1))) (d "~a~%" h1) ;;XXX handle redirects here (if (response-match-code? response-match 407) (let-values (((inpx outpx) (tcp-connect proxy-host proxy-port))) (set! in inpx) (set! out outpx) (display (make-HTTP-GET/1.1 locn user-agent host port: port accept: "*/*" proxy-host: proxy-host proxy-port: proxy-port proxy-user-pass: proxy-user-pass) out) (unless (response-match-code? response-match 200) (network-failure "invalid response from server" h1))) (let loop () (let ((ln (read-line in))) (unless (equal? ln "") (cond ((match-chunked-transfer-encoding ln) (set! chunked #t)) ((match-content-length ln) => (lambda (sz) (set! datalen sz)))) (d "~a~%" ln) (loop) ) ) ) ) (when chunked (d "reading chunks ") (let ((data (read-chunks in))) (close-input-port in) (set! in (open-input-string data))) ) (values in out datalen))))) (define (http-retrieve-files in out dest) (d "reading files ...~%") (let ((version #f)) (define (skip) (let ((ln (read-line in))) (cond ((or (eof-object? ln) (irregex-match " *#!eof *" ln)) (open-input-string "")) ((irregex-match " *#\\|[- ]*([^- ]*) *\\|#.*" ln) => (lambda (m) (let ((v (irregex-match-substring m 1))) (cond ((or (string=? "" v) (string=? "#f" v))) ((and version (not (string=? v version))) (warning "files versions are not identical" ln version) (set! version #f)) (else (set! version v))) (open-input-string ln)))) ((irregex-match "^[ ]*\\(error .*\\)[ ]*$" ln) (open-input-string ln)) ; get-files deals with errors ((irregex-match '(* ("\x09\x0a\x0b\x0c\x0d\x20\xa0")) ln) (skip)) ; Blank line. (else (error "unrecognized file-information - possibly corrupt transmission" ln))))) (let get-files ((files '())) (let* ((ins (skip)) (name (read ins))) (cond ((and (pair? name) (eq? 'error (car name))) (server-error (cadr name) (cddr name))) ((or (eof-object? name) (not name)) (close-input-port in) (close-output-port out) version) ((not (string? name)) (error "invalid file name - possibly corrupt transmission" name) ) ((string-suffix? "/" name) (d " ~a~%" name) (create-directory (make-pathname dest name)) (get-files files) ) (else (d " ~a~%" name) (let* ((size (read ins)) (data (read-string size in)) ) (with-output-to-file (make-pathname dest name) (cut display data) #:binary ) ) (get-files (cons name files)) ) ) ) ) )) (define (http-retrieve-response in len) (d "reading response ...~%") (let ((data (read-string len in))) (close-input-port in) data)) (define (server-error msg args) (abort (make-composite-condition (make-property-condition 'exn 'message (string-append "[Server] " msg) 'arguments args) (make-property-condition 'setup-download-error)))) (define (read-chunks in) (let get-chunks ((data '())) (let ((size (string->number (read-line in) 16))) (cond ((not size) (error "invalid response from server - please try again")) ((zero? size) (d "~%") (string-intersperse (reverse data) "")) (else (let ((chunk (read-string size in))) (d ".") (read-line in) (get-chunks (cons chunk data)) ) ) ) ) )) (define (match-http-response rsp) (and (string? rsp) (irregex-match "HTTP/[0-9.]+\\s+([0-9]+)\\s+.*" rsp)) ) (define (response-match-code? mrsp code) (and mrsp (string=? (number->string code) (irregex-match-substring mrsp 1))) ) (define (match-chunked-transfer-encoding ln) (irregex-match "[Tt]ransfer-[Ee]ncoding:\\s*chunked.*" ln) ) (define (match-content-length ln) (let ((m (irregex-match "[Cc]ontent-[Ll]ength:\\s*([0-9]+).*" ln))) (and m (string->number (irregex-match-substring m 1))))) (define (make-HTTP-GET/1.1 location user-agent host #!key (port 80) (connection "close") (accept "*") (content-length 0) proxy-host proxy-port proxy-user-pass) (conc "GET " (if proxy-host (string-append "http://" host location) location) " HTTP/1.1" "\r\n" "Connection: " connection "\r\n" "User-Agent: " user-agent "\r\n" "Accept: " accept "\r\n" "Host: " host #\: port "\r\n" (if proxy-user-pass (string-append "Proxy-Authorization: Basic " proxy-user-pass "\r\n") "") "Content-length: " content-length "\r\n" "\r\n") ) (define (network-failure msg . args) (signal (make-composite-condition (make-property-condition 'exn 'message "invalid response from server" 'arguments args) (make-property-condition 'http-fetch))) ) ;; entry points (define (list-versions egg url) (receive (host port locn) (deconstruct-url url) (let ((locn (conc locn "?name=" egg "&release=" major-version "&mode=default" "&listversions=1"))) (let ((data (http-query host port locn proxy-host proxy-port proxy-user-pass))) (string-split data))))) (define (try-list-versions name url #!key proxy-host proxy-port proxy-user-pass) (d "listing versions for ~a: ~a~%" name url) (condition-case (list-versions name url) ((exn net) (print "TCP connect timeout") #f) ((exn http-fetch) (print "HTTP protocol error") #f) (e (exn setup-download-error) (print "Server error:") (print-error-message e) #f) (e () (abort e) ))) (define (download-egg egg url #!key version destination tests proxy-host proxy-port proxy-user-pass) (receive (host port locn) (deconstruct-url url) (let* ((locn (conc locn "?name=" egg "&release=" major-version (if version (string-append "&version=" version) "") "&mode=default" (if tests "&tests=yes" ""))) (eggdir destination)) (let ((fversion (http-fetch host port locn eggdir proxy-host proxy-port proxy-user-pass))) ;; If we get here then version of egg exists (values eggdir (or fversion version "")) )) ) ) (define (try-download name url #!key version destination tests proxy-host proxy-port proxy-user-pass) (d "downloading ~a: ~a~%" name url) (condition-case (download-egg name url version: version destination: destination tests: tests proxy-host: proxy-host proxy-port: proxy-port proxy-user-pass: proxy-user-pass) ((exn net) (print "TCP connect timeout") (values #f "") ) ((exn http-fetch) (print "HTTP protocol error") (values #f "") ) (e (exn setup-download-error) (print "Server error:") (print-error-message e) (values #f "")) (e () (abort e) ))) chicken-5.1.0/chicken.foreign.import.scm0000644000175000017500000000325213502227553020006 0ustar sjamaansjamaan;;;; chicken.foreign.import.scm - import library for "foreign" pseudo module ; ; Copyright (c) 2008-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (##sys#register-primitive-module 'chicken.foreign '() ##sys#chicken-ffi-macro-environment) chicken-5.1.0/core.c0000644000175000017500000674344513502227754014061 0ustar sjamaansjamaan/* Generated from core.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: core.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.core -output-file core.c unit: compiler uses: library eval expand extras data-structures scrutinizer support file internal pathname */ #include "chicken.h" static C_word code_798() { C_clear_trace_buffer(); ; return C_SCHEME_UNDEFINED; } static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_scrutinizer_toplevel) C_externimport void C_ccall C_scrutinizer_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_support_toplevel) C_externimport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_file_toplevel) C_externimport void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[681]; static double C_possibly_force_alignment; C_noret_decl(f24314) static void C_ccall f24314(C_word c,C_word *av) C_noret; C_noret_decl(f24318) static void C_ccall f24318(C_word c,C_word *av) C_noret; C_noret_decl(f24617) static void C_ccall f24617(C_word c,C_word *av) C_noret; C_noret_decl(f_10003) static void C_ccall f_10003(C_word c,C_word *av) C_noret; C_noret_decl(f_10007) static void C_ccall f_10007(C_word c,C_word *av) C_noret; C_noret_decl(f_10028) static void C_ccall f_10028(C_word c,C_word *av) C_noret; C_noret_decl(f_10031) static void C_ccall f_10031(C_word c,C_word *av) C_noret; C_noret_decl(f_10039) static void C_ccall f_10039(C_word c,C_word *av) C_noret; C_noret_decl(f_10061) static void C_fcall f_10061(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10071) static void C_ccall f_10071(C_word c,C_word *av) C_noret; C_noret_decl(f_10084) static void C_ccall f_10084(C_word c,C_word *av) C_noret; C_noret_decl(f_10092) static void C_ccall f_10092(C_word c,C_word *av) C_noret; C_noret_decl(f_10098) static void C_ccall f_10098(C_word c,C_word *av) C_noret; C_noret_decl(f_10120) static void C_fcall f_10120(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10130) static void C_ccall f_10130(C_word c,C_word *av) C_noret; C_noret_decl(f_10143) static void C_fcall f_10143(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10168) static void C_ccall f_10168(C_word c,C_word *av) C_noret; C_noret_decl(f_10186) static void C_ccall f_10186(C_word c,C_word *av) C_noret; C_noret_decl(f_10191) static void C_ccall f_10191(C_word c,C_word *av) C_noret; C_noret_decl(f_10205) static void C_ccall f_10205(C_word c,C_word *av) C_noret; C_noret_decl(f_10213) static void C_ccall f_10213(C_word c,C_word *av) C_noret; C_noret_decl(f_10223) static void C_ccall f_10223(C_word c,C_word *av) C_noret; C_noret_decl(f_10236) static void C_ccall f_10236(C_word c,C_word *av) C_noret; C_noret_decl(f_10257) static void C_ccall f_10257(C_word c,C_word *av) C_noret; C_noret_decl(f_10269) static void C_ccall f_10269(C_word c,C_word *av) C_noret; C_noret_decl(f_10271) static void C_ccall f_10271(C_word c,C_word *av) C_noret; C_noret_decl(f_10285) static void C_fcall f_10285(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10310) static void C_ccall f_10310(C_word c,C_word *av) C_noret; C_noret_decl(f_10326) static void C_ccall f_10326(C_word c,C_word *av) C_noret; C_noret_decl(f_10332) static void C_ccall f_10332(C_word c,C_word *av) C_noret; C_noret_decl(f_10338) static void C_ccall f_10338(C_word c,C_word *av) C_noret; C_noret_decl(f_10341) static void C_ccall f_10341(C_word c,C_word *av) C_noret; C_noret_decl(f_10346) static void C_ccall f_10346(C_word c,C_word *av) C_noret; C_noret_decl(f_10350) static void C_ccall f_10350(C_word c,C_word *av) C_noret; C_noret_decl(f_10353) static void C_ccall f_10353(C_word c,C_word *av) C_noret; C_noret_decl(f_10358) static void C_ccall f_10358(C_word c,C_word *av) C_noret; C_noret_decl(f_10362) static void C_ccall f_10362(C_word c,C_word *av) C_noret; C_noret_decl(f_10365) static void C_ccall f_10365(C_word c,C_word *av) C_noret; C_noret_decl(f_10368) static void C_ccall f_10368(C_word c,C_word *av) C_noret; C_noret_decl(f_10371) static void C_ccall f_10371(C_word c,C_word *av) C_noret; C_noret_decl(f_10375) static void C_ccall f_10375(C_word c,C_word *av) C_noret; C_noret_decl(f_10379) static void C_ccall f_10379(C_word c,C_word *av) C_noret; C_noret_decl(f_10383) static void C_ccall f_10383(C_word c,C_word *av) C_noret; C_noret_decl(f_10387) static void C_ccall f_10387(C_word c,C_word *av) C_noret; C_noret_decl(f_10390) static void C_ccall f_10390(C_word c,C_word *av) C_noret; C_noret_decl(f_10393) static void C_ccall f_10393(C_word c,C_word *av) C_noret; C_noret_decl(f_10396) static void C_ccall f_10396(C_word c,C_word *av) C_noret; C_noret_decl(f_10399) static void C_ccall f_10399(C_word c,C_word *av) C_noret; C_noret_decl(f_10414) static void C_ccall f_10414(C_word c,C_word *av) C_noret; C_noret_decl(f_10420) static void C_ccall f_10420(C_word c,C_word *av) C_noret; C_noret_decl(f_10430) static void C_fcall f_10430(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10440) static void C_ccall f_10440(C_word c,C_word *av) C_noret; C_noret_decl(f_10443) static void C_ccall f_10443(C_word c,C_word *av) C_noret; C_noret_decl(f_10453) static void C_fcall f_10453(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10457) static void C_ccall f_10457(C_word c,C_word *av) C_noret; C_noret_decl(f_10474) static void C_ccall f_10474(C_word c,C_word *av) C_noret; C_noret_decl(f_10490) static void C_ccall f_10490(C_word c,C_word *av) C_noret; C_noret_decl(f_10497) static void C_ccall f_10497(C_word c,C_word *av) C_noret; C_noret_decl(f_10501) static void C_ccall f_10501(C_word c,C_word *av) C_noret; C_noret_decl(f_10505) static void C_ccall f_10505(C_word c,C_word *av) C_noret; C_noret_decl(f_10507) static void C_ccall f_10507(C_word c,C_word *av) C_noret; C_noret_decl(f_10513) static void C_ccall f_10513(C_word c,C_word *av) C_noret; C_noret_decl(f_10519) static void C_ccall f_10519(C_word c,C_word *av) C_noret; C_noret_decl(f_10523) static void C_ccall f_10523(C_word c,C_word *av) C_noret; C_noret_decl(f_10528) static void C_ccall f_10528(C_word c,C_word *av) C_noret; C_noret_decl(f_10534) static void C_ccall f_10534(C_word c,C_word *av) C_noret; C_noret_decl(f_10542) static void C_ccall f_10542(C_word c,C_word *av) C_noret; C_noret_decl(f_10544) static void C_ccall f_10544(C_word c,C_word *av) C_noret; C_noret_decl(f_10550) static void C_ccall f_10550(C_word c,C_word *av) C_noret; C_noret_decl(f_10569) static void C_ccall f_10569(C_word c,C_word *av) C_noret; C_noret_decl(f_10573) static void C_ccall f_10573(C_word c,C_word *av) C_noret; C_noret_decl(f_10577) static void C_ccall f_10577(C_word c,C_word *av) C_noret; C_noret_decl(f_10580) static void C_ccall f_10580(C_word c,C_word *av) C_noret; C_noret_decl(f_10583) static void C_ccall f_10583(C_word c,C_word *av) C_noret; C_noret_decl(f_10586) static void C_ccall f_10586(C_word c,C_word *av) C_noret; C_noret_decl(f_10589) static void C_ccall f_10589(C_word c,C_word *av) C_noret; C_noret_decl(f_10592) static void C_ccall f_10592(C_word c,C_word *av) C_noret; C_noret_decl(f_10595) static void C_ccall f_10595(C_word c,C_word *av) C_noret; C_noret_decl(f_10598) static void C_ccall f_10598(C_word c,C_word *av) C_noret; C_noret_decl(f_10604) static void C_ccall f_10604(C_word c,C_word *av) C_noret; C_noret_decl(f_10608) static void C_ccall f_10608(C_word c,C_word *av) C_noret; C_noret_decl(f_10611) static void C_ccall f_10611(C_word c,C_word *av) C_noret; C_noret_decl(f_10614) static void C_fcall f_10614(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10624) static void C_ccall f_10624(C_word c,C_word *av) C_noret; C_noret_decl(f_10640) static void C_ccall f_10640(C_word c,C_word *av) C_noret; C_noret_decl(f_10644) static void C_ccall f_10644(C_word c,C_word *av) C_noret; C_noret_decl(f_10647) static void C_ccall f_10647(C_word c,C_word *av) C_noret; C_noret_decl(f_10650) static void C_ccall f_10650(C_word c,C_word *av) C_noret; C_noret_decl(f_10652) static void C_ccall f_10652(C_word c,C_word *av) C_noret; C_noret_decl(f_10656) static void C_ccall f_10656(C_word c,C_word *av) C_noret; C_noret_decl(f_10659) static void C_ccall f_10659(C_word c,C_word *av) C_noret; C_noret_decl(f_10662) static void C_ccall f_10662(C_word c,C_word *av) C_noret; C_noret_decl(f_10666) static void C_ccall f_10666(C_word c,C_word *av) C_noret; C_noret_decl(f_10670) static void C_ccall f_10670(C_word c,C_word *av) C_noret; C_noret_decl(f_10674) static void C_ccall f_10674(C_word c,C_word *av) C_noret; C_noret_decl(f_10677) static void C_ccall f_10677(C_word c,C_word *av) C_noret; C_noret_decl(f_10680) static void C_ccall f_10680(C_word c,C_word *av) C_noret; C_noret_decl(f_10683) static void C_ccall f_10683(C_word c,C_word *av) C_noret; C_noret_decl(f_10695) static void C_ccall f_10695(C_word c,C_word *av) C_noret; C_noret_decl(f_10700) static void C_fcall f_10700(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10712) static void C_fcall f_10712(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10737) static void C_ccall f_10737(C_word c,C_word *av) C_noret; C_noret_decl(f_10750) static void C_ccall f_10750(C_word c,C_word *av) C_noret; C_noret_decl(f_10754) static void C_ccall f_10754(C_word c,C_word *av) C_noret; C_noret_decl(f_10757) static void C_ccall f_10757(C_word c,C_word *av) C_noret; C_noret_decl(f_10760) static void C_ccall f_10760(C_word c,C_word *av) C_noret; C_noret_decl(f_10763) static void C_ccall f_10763(C_word c,C_word *av) C_noret; C_noret_decl(f_10766) static void C_ccall f_10766(C_word c,C_word *av) C_noret; C_noret_decl(f_10769) static void C_ccall f_10769(C_word c,C_word *av) C_noret; C_noret_decl(f_10775) static void C_ccall f_10775(C_word c,C_word *av) C_noret; C_noret_decl(f_10782) static void C_fcall f_10782(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10795) static void C_fcall f_10795(C_word t0,C_word t1) C_noret; C_noret_decl(f_10806) static C_word C_fcall f_10806(C_word t0); C_noret_decl(f_10831) static void C_ccall f_10831(C_word c,C_word *av) C_noret; C_noret_decl(f_10839) static void C_fcall f_10839(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10864) static void C_ccall f_10864(C_word c,C_word *av) C_noret; C_noret_decl(f_10903) static void C_ccall f_10903(C_word c,C_word *av) C_noret; C_noret_decl(f_10906) static void C_ccall f_10906(C_word c,C_word *av) C_noret; C_noret_decl(f_10909) static void C_ccall f_10909(C_word c,C_word *av) C_noret; C_noret_decl(f_10915) static void C_ccall f_10915(C_word c,C_word *av) C_noret; C_noret_decl(f_10918) static void C_ccall f_10918(C_word c,C_word *av) C_noret; C_noret_decl(f_10923) static void C_ccall f_10923(C_word c,C_word *av) C_noret; C_noret_decl(f_10927) static void C_ccall f_10927(C_word c,C_word *av) C_noret; C_noret_decl(f_10931) static void C_ccall f_10931(C_word c,C_word *av) C_noret; C_noret_decl(f_10934) static void C_ccall f_10934(C_word c,C_word *av) C_noret; C_noret_decl(f_10940) static void C_ccall f_10940(C_word c,C_word *av) C_noret; C_noret_decl(f_10948) static void C_ccall f_10948(C_word c,C_word *av) C_noret; C_noret_decl(f_10952) static void C_ccall f_10952(C_word c,C_word *av) C_noret; C_noret_decl(f_10954) static void C_ccall f_10954(C_word c,C_word *av) C_noret; C_noret_decl(f_10958) static void C_ccall f_10958(C_word c,C_word *av) C_noret; C_noret_decl(f_10961) static void C_ccall f_10961(C_word c,C_word *av) C_noret; C_noret_decl(f_10966) static void C_ccall f_10966(C_word c,C_word *av) C_noret; C_noret_decl(f_10968) static void C_fcall f_10968(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10993) static void C_ccall f_10993(C_word c,C_word *av) C_noret; C_noret_decl(f_11009) static void C_ccall f_11009(C_word c,C_word *av) C_noret; C_noret_decl(f_11015) static void C_ccall f_11015(C_word c,C_word *av) C_noret; C_noret_decl(f_11018) static void C_ccall f_11018(C_word c,C_word *av) C_noret; C_noret_decl(f_11025) static void C_ccall f_11025(C_word c,C_word *av) C_noret; C_noret_decl(f_11028) static void C_ccall f_11028(C_word c,C_word *av) C_noret; C_noret_decl(f_11034) static void C_ccall f_11034(C_word c,C_word *av) C_noret; C_noret_decl(f_11037) static void C_ccall f_11037(C_word c,C_word *av) C_noret; C_noret_decl(f_11040) static void C_ccall f_11040(C_word c,C_word *av) C_noret; C_noret_decl(f_11055) static void C_ccall f_11055(C_word c,C_word *av) C_noret; C_noret_decl(f_11058) static void C_ccall f_11058(C_word c,C_word *av) C_noret; C_noret_decl(f_11064) static void C_ccall f_11064(C_word c,C_word *av) C_noret; C_noret_decl(f_11071) static void C_fcall f_11071(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11078) static void C_ccall f_11078(C_word c,C_word *av) C_noret; C_noret_decl(f_11101) static void C_ccall f_11101(C_word c,C_word *av) C_noret; C_noret_decl(f_11113) static void C_ccall f_11113(C_word c,C_word *av) C_noret; C_noret_decl(f_11123) static void C_fcall f_11123(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11130) static void C_ccall f_11130(C_word c,C_word *av) C_noret; C_noret_decl(f_11157) static void C_ccall f_11157(C_word c,C_word *av) C_noret; C_noret_decl(f_11165) static void C_ccall f_11165(C_word c,C_word *av) C_noret; C_noret_decl(f_11171) static void C_ccall f_11171(C_word c,C_word *av) C_noret; C_noret_decl(f_11178) static void C_ccall f_11178(C_word c,C_word *av) C_noret; C_noret_decl(f_11189) static void C_ccall f_11189(C_word c,C_word *av) C_noret; C_noret_decl(f_11192) static void C_ccall f_11192(C_word c,C_word *av) C_noret; C_noret_decl(f_11195) static void C_fcall f_11195(C_word t0,C_word t1) C_noret; C_noret_decl(f_11201) static void C_ccall f_11201(C_word c,C_word *av) C_noret; C_noret_decl(f_11204) static void C_ccall f_11204(C_word c,C_word *av) C_noret; C_noret_decl(f_11210) static void C_ccall f_11210(C_word c,C_word *av) C_noret; C_noret_decl(f_11217) static void C_ccall f_11217(C_word c,C_word *av) C_noret; C_noret_decl(f_11221) static void C_ccall f_11221(C_word c,C_word *av) C_noret; C_noret_decl(f_11227) static void C_ccall f_11227(C_word c,C_word *av) C_noret; C_noret_decl(f_11230) static void C_ccall f_11230(C_word c,C_word *av) C_noret; C_noret_decl(f_11233) static void C_ccall f_11233(C_word c,C_word *av) C_noret; C_noret_decl(f_11236) static void C_ccall f_11236(C_word c,C_word *av) C_noret; C_noret_decl(f_11239) static void C_ccall f_11239(C_word c,C_word *av) C_noret; C_noret_decl(f_11243) static void C_ccall f_11243(C_word c,C_word *av) C_noret; C_noret_decl(f_11246) static void C_ccall f_11246(C_word c,C_word *av) C_noret; C_noret_decl(f_11252) static void C_ccall f_11252(C_word c,C_word *av) C_noret; C_noret_decl(f_11255) static void C_ccall f_11255(C_word c,C_word *av) C_noret; C_noret_decl(f_11258) static void C_ccall f_11258(C_word c,C_word *av) C_noret; C_noret_decl(f_11274) static void C_ccall f_11274(C_word c,C_word *av) C_noret; C_noret_decl(f_11280) static void C_ccall f_11280(C_word c,C_word *av) C_noret; C_noret_decl(f_11283) static void C_ccall f_11283(C_word c,C_word *av) C_noret; C_noret_decl(f_11286) static void C_ccall f_11286(C_word c,C_word *av) C_noret; C_noret_decl(f_11289) static void C_ccall f_11289(C_word c,C_word *av) C_noret; C_noret_decl(f_11292) static void C_ccall f_11292(C_word c,C_word *av) C_noret; C_noret_decl(f_11296) static void C_ccall f_11296(C_word c,C_word *av) C_noret; C_noret_decl(f_11299) static void C_ccall f_11299(C_word c,C_word *av) C_noret; C_noret_decl(f_11305) static void C_ccall f_11305(C_word c,C_word *av) C_noret; C_noret_decl(f_11308) static void C_ccall f_11308(C_word c,C_word *av) C_noret; C_noret_decl(f_11311) static void C_ccall f_11311(C_word c,C_word *av) C_noret; C_noret_decl(f_11318) static void C_ccall f_11318(C_word c,C_word *av) C_noret; C_noret_decl(f_11322) static void C_ccall f_11322(C_word c,C_word *av) C_noret; C_noret_decl(f_11345) static void C_ccall f_11345(C_word c,C_word *av) C_noret; C_noret_decl(f_11358) static void C_ccall f_11358(C_word c,C_word *av) C_noret; C_noret_decl(f_11364) static void C_ccall f_11364(C_word c,C_word *av) C_noret; C_noret_decl(f_11367) static void C_ccall f_11367(C_word c,C_word *av) C_noret; C_noret_decl(f_11370) static void C_ccall f_11370(C_word c,C_word *av) C_noret; C_noret_decl(f_11373) static void C_ccall f_11373(C_word c,C_word *av) C_noret; C_noret_decl(f_11376) static void C_ccall f_11376(C_word c,C_word *av) C_noret; C_noret_decl(f_11380) static void C_ccall f_11380(C_word c,C_word *av) C_noret; C_noret_decl(f_11383) static void C_ccall f_11383(C_word c,C_word *av) C_noret; C_noret_decl(f_11389) static void C_ccall f_11389(C_word c,C_word *av) C_noret; C_noret_decl(f_11392) static void C_ccall f_11392(C_word c,C_word *av) C_noret; C_noret_decl(f_11395) static void C_ccall f_11395(C_word c,C_word *av) C_noret; C_noret_decl(f_11424) static void C_fcall f_11424(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11432) static void C_ccall f_11432(C_word c,C_word *av) C_noret; C_noret_decl(f_11440) static void C_ccall f_11440(C_word c,C_word *av) C_noret; C_noret_decl(f_11442) static void C_fcall f_11442(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11467) static void C_ccall f_11467(C_word c,C_word *av) C_noret; C_noret_decl(f_11491) static void C_ccall f_11491(C_word c,C_word *av) C_noret; C_noret_decl(f_11495) static void C_ccall f_11495(C_word c,C_word *av) C_noret; C_noret_decl(f_11529) static void C_ccall f_11529(C_word c,C_word *av) C_noret; C_noret_decl(f_11533) static void C_ccall f_11533(C_word c,C_word *av) C_noret; C_noret_decl(f_11539) static void C_fcall f_11539(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11564) static void C_ccall f_11564(C_word c,C_word *av) C_noret; C_noret_decl(f_11588) static void C_ccall f_11588(C_word c,C_word *av) C_noret; C_noret_decl(f_11609) static void C_ccall f_11609(C_word c,C_word *av) C_noret; C_noret_decl(f_11613) static void C_ccall f_11613(C_word c,C_word *av) C_noret; C_noret_decl(f_11636) static void C_ccall f_11636(C_word c,C_word *av) C_noret; C_noret_decl(f_11651) static void C_ccall f_11651(C_word c,C_word *av) C_noret; C_noret_decl(f_11674) static void C_ccall f_11674(C_word c,C_word *av) C_noret; C_noret_decl(f_11678) static void C_fcall f_11678(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11696) static void C_ccall f_11696(C_word c,C_word *av) C_noret; C_noret_decl(f_11703) static void C_ccall f_11703(C_word c,C_word *av) C_noret; C_noret_decl(f_11707) static void C_ccall f_11707(C_word c,C_word *av) C_noret; C_noret_decl(f_11722) static void C_ccall f_11722(C_word c,C_word *av) C_noret; C_noret_decl(f_11735) static void C_ccall f_11735(C_word c,C_word *av) C_noret; C_noret_decl(f_11748) static void C_ccall f_11748(C_word c,C_word *av) C_noret; C_noret_decl(f_11761) static void C_ccall f_11761(C_word c,C_word *av) C_noret; C_noret_decl(f_11774) static void C_ccall f_11774(C_word c,C_word *av) C_noret; C_noret_decl(f_11783) static void C_ccall f_11783(C_word c,C_word *av) C_noret; C_noret_decl(f_11786) static void C_ccall f_11786(C_word c,C_word *av) C_noret; C_noret_decl(f_11789) static void C_ccall f_11789(C_word c,C_word *av) C_noret; C_noret_decl(f_11830) static void C_ccall f_11830(C_word c,C_word *av) C_noret; C_noret_decl(f_11836) static void C_ccall f_11836(C_word c,C_word *av) C_noret; C_noret_decl(f_11845) static void C_ccall f_11845(C_word c,C_word *av) C_noret; C_noret_decl(f_11848) static void C_ccall f_11848(C_word c,C_word *av) C_noret; C_noret_decl(f_11851) static void C_ccall f_11851(C_word c,C_word *av) C_noret; C_noret_decl(f_11854) static void C_ccall f_11854(C_word c,C_word *av) C_noret; C_noret_decl(f_11857) static void C_ccall f_11857(C_word c,C_word *av) C_noret; C_noret_decl(f_11860) static void C_ccall f_11860(C_word c,C_word *av) C_noret; C_noret_decl(f_11863) static void C_ccall f_11863(C_word c,C_word *av) C_noret; C_noret_decl(f_11866) static void C_ccall f_11866(C_word c,C_word *av) C_noret; C_noret_decl(f_11869) static void C_ccall f_11869(C_word c,C_word *av) C_noret; C_noret_decl(f_11884) static void C_fcall f_11884(C_word t0,C_word t1) C_noret; C_noret_decl(f_11904) static void C_ccall f_11904(C_word c,C_word *av) C_noret; C_noret_decl(f_11908) static void C_ccall f_11908(C_word c,C_word *av) C_noret; C_noret_decl(f_11911) static void C_ccall f_11911(C_word c,C_word *av) C_noret; C_noret_decl(f_11918) static void C_ccall f_11918(C_word c,C_word *av) C_noret; C_noret_decl(f_11921) static void C_ccall f_11921(C_word c,C_word *av) C_noret; C_noret_decl(f_11927) static void C_ccall f_11927(C_word c,C_word *av) C_noret; C_noret_decl(f_11930) static void C_ccall f_11930(C_word c,C_word *av) C_noret; C_noret_decl(f_11933) static void C_ccall f_11933(C_word c,C_word *av) C_noret; C_noret_decl(f_11952) static void C_ccall f_11952(C_word c,C_word *av) C_noret; C_noret_decl(f_11955) static void C_ccall f_11955(C_word c,C_word *av) C_noret; C_noret_decl(f_11964) static void C_ccall f_11964(C_word c,C_word *av) C_noret; C_noret_decl(f_11967) static void C_ccall f_11967(C_word c,C_word *av) C_noret; C_noret_decl(f_11970) static void C_fcall f_11970(C_word t0,C_word t1) C_noret; C_noret_decl(f_11990) static void C_ccall f_11990(C_word c,C_word *av) C_noret; C_noret_decl(f_11998) static void C_ccall f_11998(C_word c,C_word *av) C_noret; C_noret_decl(f_12009) static void C_ccall f_12009(C_word c,C_word *av) C_noret; C_noret_decl(f_12012) static void C_ccall f_12012(C_word c,C_word *av) C_noret; C_noret_decl(f_12018) static void C_ccall f_12018(C_word c,C_word *av) C_noret; C_noret_decl(f_12021) static void C_ccall f_12021(C_word c,C_word *av) C_noret; C_noret_decl(f_12024) static void C_ccall f_12024(C_word c,C_word *av) C_noret; C_noret_decl(f_12039) static void C_ccall f_12039(C_word c,C_word *av) C_noret; C_noret_decl(f_12042) static void C_ccall f_12042(C_word c,C_word *av) C_noret; C_noret_decl(f_12045) static void C_ccall f_12045(C_word c,C_word *av) C_noret; C_noret_decl(f_12048) static void C_fcall f_12048(C_word t0,C_word t1) C_noret; C_noret_decl(f_12051) static void C_ccall f_12051(C_word c,C_word *av) C_noret; C_noret_decl(f_12063) static void C_ccall f_12063(C_word c,C_word *av) C_noret; C_noret_decl(f_12067) static void C_ccall f_12067(C_word c,C_word *av) C_noret; C_noret_decl(f_12071) static void C_ccall f_12071(C_word c,C_word *av) C_noret; C_noret_decl(f_12074) static void C_ccall f_12074(C_word c,C_word *av) C_noret; C_noret_decl(f_12080) static void C_ccall f_12080(C_word c,C_word *av) C_noret; C_noret_decl(f_12100) static void C_ccall f_12100(C_word c,C_word *av) C_noret; C_noret_decl(f_12104) static void C_fcall f_12104(C_word t0,C_word t1) C_noret; C_noret_decl(f_12129) static void C_ccall f_12129(C_word c,C_word *av) C_noret; C_noret_decl(f_12152) static void C_ccall f_12152(C_word c,C_word *av) C_noret; C_noret_decl(f_12154) static void C_ccall f_12154(C_word c,C_word *av) C_noret; C_noret_decl(f_12158) static void C_ccall f_12158(C_word c,C_word *av) C_noret; C_noret_decl(f_12161) static void C_ccall f_12161(C_word c,C_word *av) C_noret; C_noret_decl(f_12166) static void C_ccall f_12166(C_word c,C_word *av) C_noret; C_noret_decl(f_12199) static void C_ccall f_12199(C_word c,C_word *av) C_noret; C_noret_decl(f_12202) static void C_ccall f_12202(C_word c,C_word *av) C_noret; C_noret_decl(f_12205) static void C_ccall f_12205(C_word c,C_word *av) C_noret; C_noret_decl(f_12212) static void C_ccall f_12212(C_word c,C_word *av) C_noret; C_noret_decl(f_12215) static void C_ccall f_12215(C_word c,C_word *av) C_noret; C_noret_decl(f_12221) static void C_ccall f_12221(C_word c,C_word *av) C_noret; C_noret_decl(f_12224) static void C_ccall f_12224(C_word c,C_word *av) C_noret; C_noret_decl(f_12227) static void C_ccall f_12227(C_word c,C_word *av) C_noret; C_noret_decl(f_12234) static void C_ccall f_12234(C_word c,C_word *av) C_noret; C_noret_decl(f_12246) static void C_ccall f_12246(C_word c,C_word *av) C_noret; C_noret_decl(f_12252) static void C_ccall f_12252(C_word c,C_word *av) C_noret; C_noret_decl(f_12255) static void C_ccall f_12255(C_word c,C_word *av) C_noret; C_noret_decl(f_12258) static void C_ccall f_12258(C_word c,C_word *av) C_noret; C_noret_decl(f_12268) static void C_ccall f_12268(C_word c,C_word *av) C_noret; C_noret_decl(f_12271) static void C_ccall f_12271(C_word c,C_word *av) C_noret; C_noret_decl(f_12281) static void C_ccall f_12281(C_word c,C_word *av) C_noret; C_noret_decl(f_12284) static void C_ccall f_12284(C_word c,C_word *av) C_noret; C_noret_decl(f_12287) static void C_ccall f_12287(C_word c,C_word *av) C_noret; C_noret_decl(f_12290) static void C_ccall f_12290(C_word c,C_word *av) C_noret; C_noret_decl(f_12293) static void C_ccall f_12293(C_word c,C_word *av) C_noret; C_noret_decl(f_12296) static void C_ccall f_12296(C_word c,C_word *av) C_noret; C_noret_decl(f_12314) static void C_ccall f_12314(C_word c,C_word *av) C_noret; C_noret_decl(f_12317) static void C_ccall f_12317(C_word c,C_word *av) C_noret; C_noret_decl(f_12323) static void C_ccall f_12323(C_word c,C_word *av) C_noret; C_noret_decl(f_12326) static void C_ccall f_12326(C_word c,C_word *av) C_noret; C_noret_decl(f_12329) static void C_ccall f_12329(C_word c,C_word *av) C_noret; C_noret_decl(f_12347) static void C_ccall f_12347(C_word c,C_word *av) C_noret; C_noret_decl(f_12350) static void C_ccall f_12350(C_word c,C_word *av) C_noret; C_noret_decl(f_12356) static void C_ccall f_12356(C_word c,C_word *av) C_noret; C_noret_decl(f_12359) static void C_ccall f_12359(C_word c,C_word *av) C_noret; C_noret_decl(f_12362) static void C_ccall f_12362(C_word c,C_word *av) C_noret; C_noret_decl(f_12367) static void C_ccall f_12367(C_word c,C_word *av) C_noret; C_noret_decl(f_12373) static void C_ccall f_12373(C_word c,C_word *av) C_noret; C_noret_decl(f_12379) static void C_ccall f_12379(C_word c,C_word *av) C_noret; C_noret_decl(f_12385) static void C_ccall f_12385(C_word c,C_word *av) C_noret; C_noret_decl(f_12391) static void C_ccall f_12391(C_word c,C_word *av) C_noret; C_noret_decl(f_12398) static void C_ccall f_12398(C_word c,C_word *av) C_noret; C_noret_decl(f_12417) static void C_ccall f_12417(C_word c,C_word *av) C_noret; C_noret_decl(f_12423) static void C_ccall f_12423(C_word c,C_word *av) C_noret; C_noret_decl(f_12436) static void C_ccall f_12436(C_word c,C_word *av) C_noret; C_noret_decl(f_12441) static void C_ccall f_12441(C_word c,C_word *av) C_noret; C_noret_decl(f_12445) static void C_ccall f_12445(C_word c,C_word *av) C_noret; C_noret_decl(f_12449) static void C_ccall f_12449(C_word c,C_word *av) C_noret; C_noret_decl(f_12452) static void C_ccall f_12452(C_word c,C_word *av) C_noret; C_noret_decl(f_12458) static void C_ccall f_12458(C_word c,C_word *av) C_noret; C_noret_decl(f_12471) static void C_fcall f_12471(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12477) static void C_ccall f_12477(C_word c,C_word *av) C_noret; C_noret_decl(f_12485) static void C_ccall f_12485(C_word c,C_word *av) C_noret; C_noret_decl(f_12494) static void C_ccall f_12494(C_word c,C_word *av) C_noret; C_noret_decl(f_12496) static void C_fcall f_12496(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12521) static void C_ccall f_12521(C_word c,C_word *av) C_noret; C_noret_decl(f_12530) static void C_ccall f_12530(C_word c,C_word *av) C_noret; C_noret_decl(f_12534) static void C_ccall f_12534(C_word c,C_word *av) C_noret; C_noret_decl(f_12537) static void C_ccall f_12537(C_word c,C_word *av) C_noret; C_noret_decl(f_12549) static void C_ccall f_12549(C_word c,C_word *av) C_noret; C_noret_decl(f_12559) static void C_ccall f_12559(C_word c,C_word *av) C_noret; C_noret_decl(f_12569) static void C_ccall f_12569(C_word c,C_word *av) C_noret; C_noret_decl(f_12581) static void C_ccall f_12581(C_word c,C_word *av) C_noret; C_noret_decl(f_12584) static void C_ccall f_12584(C_word c,C_word *av) C_noret; C_noret_decl(f_12591) static void C_ccall f_12591(C_word c,C_word *av) C_noret; C_noret_decl(f_12595) static void C_ccall f_12595(C_word c,C_word *av) C_noret; C_noret_decl(f_12603) static void C_ccall f_12603(C_word c,C_word *av) C_noret; C_noret_decl(f_12615) static void C_ccall f_12615(C_word c,C_word *av) C_noret; C_noret_decl(f_12619) static void C_ccall f_12619(C_word c,C_word *av) C_noret; C_noret_decl(f_12631) static void C_ccall f_12631(C_word c,C_word *av) C_noret; C_noret_decl(f_12691) static void C_ccall f_12691(C_word c,C_word *av) C_noret; C_noret_decl(f_12720) static void C_fcall f_12720(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12744) static void C_ccall f_12744(C_word c,C_word *av) C_noret; C_noret_decl(f_12752) static void C_ccall f_12752(C_word c,C_word *av) C_noret; C_noret_decl(f_12756) static void C_ccall f_12756(C_word c,C_word *av) C_noret; C_noret_decl(f_12760) static void C_ccall f_12760(C_word c,C_word *av) C_noret; C_noret_decl(f_12801) static void C_ccall f_12801(C_word c,C_word *av) C_noret; C_noret_decl(f_12812) static void C_ccall f_12812(C_word c,C_word *av) C_noret; C_noret_decl(f_12819) static void C_ccall f_12819(C_word c,C_word *av) C_noret; C_noret_decl(f_12822) static void C_ccall f_12822(C_word c,C_word *av) C_noret; C_noret_decl(f_12828) static void C_ccall f_12828(C_word c,C_word *av) C_noret; C_noret_decl(f_12831) static void C_ccall f_12831(C_word c,C_word *av) C_noret; C_noret_decl(f_12834) static void C_ccall f_12834(C_word c,C_word *av) C_noret; C_noret_decl(f_12871) static void C_fcall f_12871(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12897) static void C_fcall f_12897(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12925) static void C_ccall f_12925(C_word c,C_word *av) C_noret; C_noret_decl(f_12940) static void C_ccall f_12940(C_word c,C_word *av) C_noret; C_noret_decl(f_12957) static void C_ccall f_12957(C_word c,C_word *av) C_noret; C_noret_decl(f_12963) static void C_ccall f_12963(C_word c,C_word *av) C_noret; C_noret_decl(f_12966) static void C_ccall f_12966(C_word c,C_word *av) C_noret; C_noret_decl(f_12986) static void C_ccall f_12986(C_word c,C_word *av) C_noret; C_noret_decl(f_12991) static void C_ccall f_12991(C_word c,C_word *av) C_noret; C_noret_decl(f_12997) static void C_ccall f_12997(C_word c,C_word *av) C_noret; C_noret_decl(f_13132) static void C_ccall f_13132(C_word c,C_word *av) C_noret; C_noret_decl(f_13137) static void C_ccall f_13137(C_word c,C_word *av) C_noret; C_noret_decl(f_13145) static void C_ccall f_13145(C_word c,C_word *av) C_noret; C_noret_decl(f_13147) static void C_ccall f_13147(C_word c,C_word *av) C_noret; C_noret_decl(f_13165) static void C_ccall f_13165(C_word c,C_word *av) C_noret; C_noret_decl(f_13171) static void C_ccall f_13171(C_word c,C_word *av) C_noret; C_noret_decl(f_13174) static void C_ccall f_13174(C_word c,C_word *av) C_noret; C_noret_decl(f_13177) static void C_ccall f_13177(C_word c,C_word *av) C_noret; C_noret_decl(f_13180) static void C_ccall f_13180(C_word c,C_word *av) C_noret; C_noret_decl(f_13198) static void C_ccall f_13198(C_word c,C_word *av) C_noret; C_noret_decl(f_13201) static void C_ccall f_13201(C_word c,C_word *av) C_noret; C_noret_decl(f_13204) static void C_ccall f_13204(C_word c,C_word *av) C_noret; C_noret_decl(f_13210) static void C_ccall f_13210(C_word c,C_word *av) C_noret; C_noret_decl(f_13213) static void C_ccall f_13213(C_word c,C_word *av) C_noret; C_noret_decl(f_13252) static void C_fcall f_13252(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_13257) static void C_fcall f_13257(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13269) static void C_fcall f_13269(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13294) static void C_ccall f_13294(C_word c,C_word *av) C_noret; C_noret_decl(f_13304) static void C_ccall f_13304(C_word c,C_word *av) C_noret; C_noret_decl(f_13315) static void C_ccall f_13315(C_word c,C_word *av) C_noret; C_noret_decl(f_13319) static void C_ccall f_13319(C_word c,C_word *av) C_noret; C_noret_decl(f_13329) static void C_ccall f_13329(C_word c,C_word *av) C_noret; C_noret_decl(f_13335) static void C_ccall f_13335(C_word c,C_word *av) C_noret; C_noret_decl(f_13340) static void C_ccall f_13340(C_word c,C_word *av) C_noret; C_noret_decl(f_13343) static void C_fcall f_13343(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13378) static void C_fcall f_13378(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13385) static void C_fcall f_13385(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13391) static void C_ccall f_13391(C_word c,C_word *av) C_noret; C_noret_decl(f_13398) static void C_ccall f_13398(C_word c,C_word *av) C_noret; C_noret_decl(f_13401) static void C_ccall f_13401(C_word c,C_word *av) C_noret; C_noret_decl(f_13406) static void C_fcall f_13406(C_word t0,C_word t1) C_noret; C_noret_decl(f_13414) static void C_ccall f_13414(C_word c,C_word *av) C_noret; C_noret_decl(f_13420) static void C_ccall f_13420(C_word c,C_word *av) C_noret; C_noret_decl(f_13423) static void C_ccall f_13423(C_word c,C_word *av) C_noret; C_noret_decl(f_13426) static void C_ccall f_13426(C_word c,C_word *av) C_noret; C_noret_decl(f_13429) static void C_ccall f_13429(C_word c,C_word *av) C_noret; C_noret_decl(f_13434) static void C_fcall f_13434(C_word t0,C_word t1) C_noret; C_noret_decl(f_13438) static void C_ccall f_13438(C_word c,C_word *av) C_noret; C_noret_decl(f_13441) static void C_ccall f_13441(C_word c,C_word *av) C_noret; C_noret_decl(f_13444) static void C_ccall f_13444(C_word c,C_word *av) C_noret; C_noret_decl(f_13450) static void C_ccall f_13450(C_word c,C_word *av) C_noret; C_noret_decl(f_13460) static void C_ccall f_13460(C_word c,C_word *av) C_noret; C_noret_decl(f_13464) static void C_ccall f_13464(C_word c,C_word *av) C_noret; C_noret_decl(f_13469) static void C_ccall f_13469(C_word c,C_word *av) C_noret; C_noret_decl(f_13475) static void C_ccall f_13475(C_word c,C_word *av) C_noret; C_noret_decl(f_13480) static void C_ccall f_13480(C_word c,C_word *av) C_noret; C_noret_decl(f_13491) static void C_ccall f_13491(C_word c,C_word *av) C_noret; C_noret_decl(f_13494) static void C_ccall f_13494(C_word c,C_word *av) C_noret; C_noret_decl(f_13497) static void C_ccall f_13497(C_word c,C_word *av) C_noret; C_noret_decl(f_13502) static void C_fcall f_13502(C_word t0,C_word t1) C_noret; C_noret_decl(f_13533) static void C_ccall f_13533(C_word c,C_word *av) C_noret; C_noret_decl(f_13537) static void C_ccall f_13537(C_word c,C_word *av) C_noret; C_noret_decl(f_13558) static void C_ccall f_13558(C_word c,C_word *av) C_noret; C_noret_decl(f_13562) static void C_ccall f_13562(C_word c,C_word *av) C_noret; C_noret_decl(f_13583) static void C_ccall f_13583(C_word c,C_word *av) C_noret; C_noret_decl(f_13587) static void C_ccall f_13587(C_word c,C_word *av) C_noret; C_noret_decl(f_13591) static void C_ccall f_13591(C_word c,C_word *av) C_noret; C_noret_decl(f_13604) static void C_ccall f_13604(C_word c,C_word *av) C_noret; C_noret_decl(f_13608) static void C_ccall f_13608(C_word c,C_word *av) C_noret; C_noret_decl(f_13685) static void C_ccall f_13685(C_word c,C_word *av) C_noret; C_noret_decl(f_13693) static void C_fcall f_13693(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13703) static void C_ccall f_13703(C_word c,C_word *av) C_noret; C_noret_decl(f_13737) static void C_ccall f_13737(C_word c,C_word *av) C_noret; C_noret_decl(f_13743) static void C_ccall f_13743(C_word c,C_word *av) C_noret; C_noret_decl(f_13751) static void C_ccall f_13751(C_word c,C_word *av) C_noret; C_noret_decl(f_13759) static void C_fcall f_13759(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13769) static void C_ccall f_13769(C_word c,C_word *av) C_noret; C_noret_decl(f_13782) static void C_fcall f_13782(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13792) static void C_ccall f_13792(C_word c,C_word *av) C_noret; C_noret_decl(f_13819) static void C_ccall f_13819(C_word c,C_word *av) C_noret; C_noret_decl(f_13830) static void C_ccall f_13830(C_word c,C_word *av) C_noret; C_noret_decl(f_13840) static void C_fcall f_13840(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13850) static void C_ccall f_13850(C_word c,C_word *av) C_noret; C_noret_decl(f_13863) static void C_fcall f_13863(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13873) static void C_ccall f_13873(C_word c,C_word *av) C_noret; C_noret_decl(f_13899) static void C_ccall f_13899(C_word c,C_word *av) C_noret; C_noret_decl(f_13903) static void C_ccall f_13903(C_word c,C_word *av) C_noret; C_noret_decl(f_13941) static void C_ccall f_13941(C_word c,C_word *av) C_noret; C_noret_decl(f_13949) static void C_fcall f_13949(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13959) static void C_ccall f_13959(C_word c,C_word *av) C_noret; C_noret_decl(f_13986) static void C_ccall f_13986(C_word c,C_word *av) C_noret; C_noret_decl(f_13994) static void C_fcall f_13994(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14004) static void C_ccall f_14004(C_word c,C_word *av) C_noret; C_noret_decl(f_14026) static void C_ccall f_14026(C_word c,C_word *av) C_noret; C_noret_decl(f_14029) static void C_ccall f_14029(C_word c,C_word *av) C_noret; C_noret_decl(f_14046) static void C_ccall f_14046(C_word c,C_word *av) C_noret; C_noret_decl(f_14050) static void C_ccall f_14050(C_word c,C_word *av) C_noret; C_noret_decl(f_14074) static void C_ccall f_14074(C_word c,C_word *av) C_noret; C_noret_decl(f_14078) static void C_ccall f_14078(C_word c,C_word *av) C_noret; C_noret_decl(f_14106) static void C_ccall f_14106(C_word c,C_word *av) C_noret; C_noret_decl(f_14114) static void C_fcall f_14114(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14124) static void C_ccall f_14124(C_word c,C_word *av) C_noret; C_noret_decl(f_14159) static void C_ccall f_14159(C_word c,C_word *av) C_noret; C_noret_decl(f_14163) static void C_ccall f_14163(C_word c,C_word *av) C_noret; C_noret_decl(f_14167) static void C_ccall f_14167(C_word c,C_word *av) C_noret; C_noret_decl(f_14195) static void C_ccall f_14195(C_word c,C_word *av) C_noret; C_noret_decl(f_14203) static void C_fcall f_14203(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14213) static void C_ccall f_14213(C_word c,C_word *av) C_noret; C_noret_decl(f_14234) static void C_ccall f_14234(C_word c,C_word *av) C_noret; C_noret_decl(f_14237) static void C_ccall f_14237(C_word c,C_word *av) C_noret; C_noret_decl(f_14286) static void C_ccall f_14286(C_word c,C_word *av) C_noret; C_noret_decl(f_14301) static void C_fcall f_14301(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14311) static void C_ccall f_14311(C_word c,C_word *av) C_noret; C_noret_decl(f_14334) static void C_ccall f_14334(C_word c,C_word *av) C_noret; C_noret_decl(f_14342) static void C_fcall f_14342(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14352) static void C_ccall f_14352(C_word c,C_word *av) C_noret; C_noret_decl(f_14393) static void C_ccall f_14393(C_word c,C_word *av) C_noret; C_noret_decl(f_14401) static void C_fcall f_14401(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14411) static void C_ccall f_14411(C_word c,C_word *av) C_noret; C_noret_decl(f_14435) static void C_ccall f_14435(C_word c,C_word *av) C_noret; C_noret_decl(f_14461) static void C_ccall f_14461(C_word c,C_word *av) C_noret; C_noret_decl(f_14469) static void C_ccall f_14469(C_word c,C_word *av) C_noret; C_noret_decl(f_14477) static void C_fcall f_14477(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14487) static void C_ccall f_14487(C_word c,C_word *av) C_noret; C_noret_decl(f_14511) static void C_ccall f_14511(C_word c,C_word *av) C_noret; C_noret_decl(f_14530) static void C_ccall f_14530(C_word c,C_word *av) C_noret; C_noret_decl(f_14534) static void C_ccall f_14534(C_word c,C_word *av) C_noret; C_noret_decl(f_14541) static void C_fcall f_14541(C_word t0,C_word t1) C_noret; C_noret_decl(f_14587) static void C_ccall f_14587(C_word c,C_word *av) C_noret; C_noret_decl(f_14593) static void C_ccall f_14593(C_word c,C_word *av) C_noret; C_noret_decl(f_14595) static void C_fcall f_14595(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14620) static void C_ccall f_14620(C_word c,C_word *av) C_noret; C_noret_decl(f_14652) static void C_ccall f_14652(C_word c,C_word *av) C_noret; C_noret_decl(f_14660) static void C_fcall f_14660(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14670) static void C_ccall f_14670(C_word c,C_word *av) C_noret; C_noret_decl(f_14706) static void C_ccall f_14706(C_word c,C_word *av) C_noret; C_noret_decl(f_14714) static void C_fcall f_14714(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14724) static void C_ccall f_14724(C_word c,C_word *av) C_noret; C_noret_decl(f_14761) static void C_ccall f_14761(C_word c,C_word *av) C_noret; C_noret_decl(f_14769) static void C_fcall f_14769(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14779) static void C_ccall f_14779(C_word c,C_word *av) C_noret; C_noret_decl(f_14801) static void C_fcall f_14801(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14808) static void C_fcall f_14808(C_word t0,C_word t1) C_noret; C_noret_decl(f_14815) static void C_ccall f_14815(C_word c,C_word *av) C_noret; C_noret_decl(f_14818) static void C_ccall f_14818(C_word c,C_word *av) C_noret; C_noret_decl(f_14821) static void C_ccall f_14821(C_word c,C_word *av) C_noret; C_noret_decl(f_14827) static void C_ccall f_14827(C_word c,C_word *av) C_noret; C_noret_decl(f_14837) static void C_ccall f_14837(C_word c,C_word *av) C_noret; C_noret_decl(f_14843) static void C_ccall f_14843(C_word c,C_word *av) C_noret; C_noret_decl(f_14850) static void C_fcall f_14850(C_word t0,C_word t1) C_noret; C_noret_decl(f_14853) static void C_ccall f_14853(C_word c,C_word *av) C_noret; C_noret_decl(f_14856) static void C_ccall f_14856(C_word c,C_word *av) C_noret; C_noret_decl(f_14859) static void C_ccall f_14859(C_word c,C_word *av) C_noret; C_noret_decl(f_14862) static void C_ccall f_14862(C_word c,C_word *av) C_noret; C_noret_decl(f_14875) static void C_ccall f_14875(C_word c,C_word *av) C_noret; C_noret_decl(f_14923) static void C_ccall f_14923(C_word c,C_word *av) C_noret; C_noret_decl(f_14965) static void C_fcall f_14965(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14975) static void C_ccall f_14975(C_word c,C_word *av) C_noret; C_noret_decl(f_14993) static void C_fcall f_14993(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15000) static void C_fcall f_15000(C_word t0,C_word t1) C_noret; C_noret_decl(f_15003) static void C_ccall f_15003(C_word c,C_word *av) C_noret; C_noret_decl(f_15006) static void C_ccall f_15006(C_word c,C_word *av) C_noret; C_noret_decl(f_15012) static void C_ccall f_15012(C_word c,C_word *av) C_noret; C_noret_decl(f_15022) static void C_ccall f_15022(C_word c,C_word *av) C_noret; C_noret_decl(f_15028) static void C_ccall f_15028(C_word c,C_word *av) C_noret; C_noret_decl(f_15087) static void C_fcall f_15087(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15097) static void C_ccall f_15097(C_word c,C_word *av) C_noret; C_noret_decl(f_15227) static void C_ccall f_15227(C_word c,C_word *av) C_noret; C_noret_decl(f_15234) static void C_ccall f_15234(C_word c,C_word *av) C_noret; C_noret_decl(f_15257) static void C_ccall f_15257(C_word c,C_word *av) C_noret; C_noret_decl(f_15266) static void C_ccall f_15266(C_word c,C_word *av) C_noret; C_noret_decl(f_15275) static void C_ccall f_15275(C_word c,C_word *av) C_noret; C_noret_decl(f_15284) static void C_ccall f_15284(C_word c,C_word *av) C_noret; C_noret_decl(f_15293) static void C_ccall f_15293(C_word c,C_word *av) C_noret; C_noret_decl(f_15302) static void C_ccall f_15302(C_word c,C_word *av) C_noret; C_noret_decl(f_15311) static void C_ccall f_15311(C_word c,C_word *av) C_noret; C_noret_decl(f_15320) static void C_ccall f_15320(C_word c,C_word *av) C_noret; C_noret_decl(f_15329) static void C_fcall f_15329(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_15338) static void C_fcall f_15338(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15367) static void C_ccall f_15367(C_word c,C_word *av) C_noret; C_noret_decl(f_15371) static void C_ccall f_15371(C_word c,C_word *av) C_noret; C_noret_decl(f_15416) static void C_ccall f_15416(C_word c,C_word *av) C_noret; C_noret_decl(f_15419) static void C_ccall f_15419(C_word c,C_word *av) C_noret; C_noret_decl(f_15422) static void C_ccall f_15422(C_word c,C_word *av) C_noret; C_noret_decl(f_15425) static void C_ccall f_15425(C_word c,C_word *av) C_noret; C_noret_decl(f_15428) static void C_ccall f_15428(C_word c,C_word *av) C_noret; C_noret_decl(f_15431) static void C_ccall f_15431(C_word c,C_word *av) C_noret; C_noret_decl(f_15434) static void C_ccall f_15434(C_word c,C_word *av) C_noret; C_noret_decl(f_15444) static void C_fcall f_15444(C_word t0,C_word t1) C_noret; C_noret_decl(f_15456) static void C_ccall f_15456(C_word c,C_word *av) C_noret; C_noret_decl(f_15465) static void C_ccall f_15465(C_word c,C_word *av) C_noret; C_noret_decl(f_15476) static void C_ccall f_15476(C_word c,C_word *av) C_noret; C_noret_decl(f_15488) static void C_ccall f_15488(C_word c,C_word *av) C_noret; C_noret_decl(f_15496) static void C_ccall f_15496(C_word c,C_word *av) C_noret; C_noret_decl(f_15503) static void C_ccall f_15503(C_word c,C_word *av) C_noret; C_noret_decl(f_15506) static void C_ccall f_15506(C_word c,C_word *av) C_noret; C_noret_decl(f_15517) static void C_ccall f_15517(C_word c,C_word *av) C_noret; C_noret_decl(f_15521) static void C_ccall f_15521(C_word c,C_word *av) C_noret; C_noret_decl(f_15525) static void C_ccall f_15525(C_word c,C_word *av) C_noret; C_noret_decl(f_15551) static void C_fcall f_15551(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15580) static void C_ccall f_15580(C_word c,C_word *av) C_noret; C_noret_decl(f_15621) static void C_ccall f_15621(C_word c,C_word *av) C_noret; C_noret_decl(f_15632) static void C_fcall f_15632(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15657) static void C_ccall f_15657(C_word c,C_word *av) C_noret; C_noret_decl(f_15676) static void C_ccall f_15676(C_word c,C_word *av) C_noret; C_noret_decl(f_15684) static void C_fcall f_15684(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15709) static void C_ccall f_15709(C_word c,C_word *av) C_noret; C_noret_decl(f_15718) static void C_fcall f_15718(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15725) static void C_ccall f_15725(C_word c,C_word *av) C_noret; C_noret_decl(f_15744) static void C_ccall f_15744(C_word c,C_word *av) C_noret; C_noret_decl(f_15755) static void C_fcall f_15755(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15765) static void C_ccall f_15765(C_word c,C_word *av) C_noret; C_noret_decl(f_15779) static void C_ccall f_15779(C_word c,C_word *av) C_noret; C_noret_decl(f_15785) static void C_ccall f_15785(C_word c,C_word *av) C_noret; C_noret_decl(f_15791) static void C_ccall f_15791(C_word c,C_word *av) C_noret; C_noret_decl(f_15796) static void C_fcall f_15796(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15830) static void C_fcall f_15830(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15872) static void C_fcall f_15872(C_word t0,C_word t1) C_noret; C_noret_decl(f_15878) static void C_ccall f_15878(C_word c,C_word *av) C_noret; C_noret_decl(f_15881) static void C_ccall f_15881(C_word c,C_word *av) C_noret; C_noret_decl(f_15895) static void C_ccall f_15895(C_word c,C_word *av) C_noret; C_noret_decl(f_15901) static void C_ccall f_15901(C_word c,C_word *av) C_noret; C_noret_decl(f_15907) static void C_ccall f_15907(C_word c,C_word *av) C_noret; C_noret_decl(f_15912) static void C_fcall f_15912(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15946) static void C_fcall f_15946(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16024) static void C_fcall f_16024(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16030) static void C_fcall f_16030(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16040) static void C_ccall f_16040(C_word c,C_word *av) C_noret; C_noret_decl(f_16049) static void C_fcall f_16049(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16066) static void C_ccall f_16066(C_word c,C_word *av) C_noret; C_noret_decl(f_16072) static void C_ccall f_16072(C_word c,C_word *av) C_noret; C_noret_decl(f_16103) static void C_ccall f_16103(C_word c,C_word *av) C_noret; C_noret_decl(f_16106) static void C_fcall f_16106(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_16110) static void C_ccall f_16110(C_word c,C_word *av) C_noret; C_noret_decl(f_16117) static void C_ccall f_16117(C_word c,C_word *av) C_noret; C_noret_decl(f_16129) static void C_ccall f_16129(C_word c,C_word *av) C_noret; C_noret_decl(f_16135) static void C_ccall f_16135(C_word c,C_word *av) C_noret; C_noret_decl(f_16151) static void C_ccall f_16151(C_word c,C_word *av) C_noret; C_noret_decl(f_16157) static void C_fcall f_16157(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16175) static void C_ccall f_16175(C_word c,C_word *av) C_noret; C_noret_decl(f_16179) static void C_ccall f_16179(C_word c,C_word *av) C_noret; C_noret_decl(f_16181) static void C_fcall f_16181(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16185) static void C_ccall f_16185(C_word c,C_word *av) C_noret; C_noret_decl(f_16188) static void C_ccall f_16188(C_word c,C_word *av) C_noret; C_noret_decl(f_16191) static void C_ccall f_16191(C_word c,C_word *av) C_noret; C_noret_decl(f_16194) static void C_ccall f_16194(C_word c,C_word *av) C_noret; C_noret_decl(f_16203) static void C_fcall f_16203(C_word t0,C_word t1) C_noret; C_noret_decl(f_16215) static void C_ccall f_16215(C_word c,C_word *av) C_noret; C_noret_decl(f_16218) static void C_ccall f_16218(C_word c,C_word *av) C_noret; C_noret_decl(f_16219) static void C_ccall f_16219(C_word c,C_word *av) C_noret; C_noret_decl(f_16235) static void C_ccall f_16235(C_word c,C_word *av) C_noret; C_noret_decl(f_16250) static void C_ccall f_16250(C_word c,C_word *av) C_noret; C_noret_decl(f_16254) static void C_ccall f_16254(C_word c,C_word *av) C_noret; C_noret_decl(f_16260) static void C_ccall f_16260(C_word c,C_word *av) C_noret; C_noret_decl(f_16272) static void C_ccall f_16272(C_word c,C_word *av) C_noret; C_noret_decl(f_16276) static void C_ccall f_16276(C_word c,C_word *av) C_noret; C_noret_decl(f_16296) static void C_ccall f_16296(C_word c,C_word *av) C_noret; C_noret_decl(f_16300) static void C_ccall f_16300(C_word c,C_word *av) C_noret; C_noret_decl(f_16309) static void C_ccall f_16309(C_word c,C_word *av) C_noret; C_noret_decl(f_16324) static void C_fcall f_16324(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16347) static void C_ccall f_16347(C_word c,C_word *av) C_noret; C_noret_decl(f_16354) static void C_ccall f_16354(C_word c,C_word *av) C_noret; C_noret_decl(f_16378) static void C_ccall f_16378(C_word c,C_word *av) C_noret; C_noret_decl(f_16411) static void C_ccall f_16411(C_word c,C_word *av) C_noret; C_noret_decl(f_16424) static void C_ccall f_16424(C_word c,C_word *av) C_noret; C_noret_decl(f_16439) static void C_ccall f_16439(C_word c,C_word *av) C_noret; C_noret_decl(f_16455) static void C_ccall f_16455(C_word c,C_word *av) C_noret; C_noret_decl(f_16459) static void C_ccall f_16459(C_word c,C_word *av) C_noret; C_noret_decl(f_16463) static void C_ccall f_16463(C_word c,C_word *av) C_noret; C_noret_decl(f_16495) static void C_ccall f_16495(C_word c,C_word *av) C_noret; C_noret_decl(f_16501) static void C_ccall f_16501(C_word c,C_word *av) C_noret; C_noret_decl(f_16512) static void C_ccall f_16512(C_word c,C_word *av) C_noret; C_noret_decl(f_16516) static void C_ccall f_16516(C_word c,C_word *av) C_noret; C_noret_decl(f_16525) static void C_fcall f_16525(C_word t0,C_word t1) C_noret; C_noret_decl(f_16696) static void C_fcall f_16696(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_16700) static void C_ccall f_16700(C_word c,C_word *av) C_noret; C_noret_decl(f_16703) static void C_ccall f_16703(C_word c,C_word *av) C_noret; C_noret_decl(f_16718) static void C_ccall f_16718(C_word c,C_word *av) C_noret; C_noret_decl(f_16722) static void C_ccall f_16722(C_word c,C_word *av) C_noret; C_noret_decl(f_16724) static void C_ccall f_16724(C_word c,C_word *av) C_noret; C_noret_decl(f_16730) static void C_ccall f_16730(C_word c,C_word *av) C_noret; C_noret_decl(f_16738) static void C_ccall f_16738(C_word c,C_word *av) C_noret; C_noret_decl(f_16742) static void C_ccall f_16742(C_word c,C_word *av) C_noret; C_noret_decl(f_16754) static void C_ccall f_16754(C_word c,C_word *av) C_noret; C_noret_decl(f_16758) static void C_ccall f_16758(C_word c,C_word *av) C_noret; C_noret_decl(f_16767) static void C_ccall f_16767(C_word c,C_word *av) C_noret; C_noret_decl(f_16777) static void C_ccall f_16777(C_word c,C_word *av) C_noret; C_noret_decl(f_16780) static void C_ccall f_16780(C_word c,C_word *av) C_noret; C_noret_decl(f_16795) static void C_ccall f_16795(C_word c,C_word *av) C_noret; C_noret_decl(f_16799) static void C_ccall f_16799(C_word c,C_word *av) C_noret; C_noret_decl(f_16811) static void C_ccall f_16811(C_word c,C_word *av) C_noret; C_noret_decl(f_16823) static void C_ccall f_16823(C_word c,C_word *av) C_noret; C_noret_decl(f_16827) static void C_ccall f_16827(C_word c,C_word *av) C_noret; C_noret_decl(f_16836) static void C_ccall f_16836(C_word c,C_word *av) C_noret; C_noret_decl(f_16842) static void C_fcall f_16842(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_16848) static void C_ccall f_16848(C_word c,C_word *av) C_noret; C_noret_decl(f_16856) static void C_ccall f_16856(C_word c,C_word *av) C_noret; C_noret_decl(f_16858) static void C_fcall f_16858(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16864) static void C_fcall f_16864(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16878) static void C_ccall f_16878(C_word c,C_word *av) C_noret; C_noret_decl(f_16884) static void C_ccall f_16884(C_word c,C_word *av) C_noret; C_noret_decl(f_16898) static void C_ccall f_16898(C_word c,C_word *av) C_noret; C_noret_decl(f_16905) static void C_ccall f_16905(C_word c,C_word *av) C_noret; C_noret_decl(f_16912) static void C_ccall f_16912(C_word c,C_word *av) C_noret; C_noret_decl(f_16927) static void C_ccall f_16927(C_word c,C_word *av) C_noret; C_noret_decl(f_16942) static void C_ccall f_16942(C_word c,C_word *av) C_noret; C_noret_decl(f_16954) static void C_ccall f_16954(C_word c,C_word *av) C_noret; C_noret_decl(f_16960) static void C_ccall f_16960(C_word c,C_word *av) C_noret; C_noret_decl(f_16964) static void C_ccall f_16964(C_word c,C_word *av) C_noret; C_noret_decl(f_16981) static void C_ccall f_16981(C_word c,C_word *av) C_noret; C_noret_decl(f_16986) static void C_ccall f_16986(C_word c,C_word *av) C_noret; C_noret_decl(f_16993) static void C_ccall f_16993(C_word c,C_word *av) C_noret; C_noret_decl(f_17002) static void C_fcall f_17002(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_17006) static void C_ccall f_17006(C_word c,C_word *av) C_noret; C_noret_decl(f_17009) static void C_ccall f_17009(C_word c,C_word *av) C_noret; C_noret_decl(f_17012) static void C_ccall f_17012(C_word c,C_word *av) C_noret; C_noret_decl(f_17024) static void C_fcall f_17024(C_word t0,C_word t1) C_noret; C_noret_decl(f_17036) static void C_ccall f_17036(C_word c,C_word *av) C_noret; C_noret_decl(f_17067) static void C_ccall f_17067(C_word c,C_word *av) C_noret; C_noret_decl(f_17097) static void C_ccall f_17097(C_word c,C_word *av) C_noret; C_noret_decl(f_17100) static void C_ccall f_17100(C_word c,C_word *av) C_noret; C_noret_decl(f_17126) static void C_ccall f_17126(C_word c,C_word *av) C_noret; C_noret_decl(f_17130) static void C_ccall f_17130(C_word c,C_word *av) C_noret; C_noret_decl(f_17142) static void C_ccall f_17142(C_word c,C_word *av) C_noret; C_noret_decl(f_17147) static void C_fcall f_17147(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_17165) static void C_ccall f_17165(C_word c,C_word *av) C_noret; C_noret_decl(f_17174) static void C_ccall f_17174(C_word c,C_word *av) C_noret; C_noret_decl(f_17177) static void C_ccall f_17177(C_word c,C_word *av) C_noret; C_noret_decl(f_17180) static void C_ccall f_17180(C_word c,C_word *av) C_noret; C_noret_decl(f_17205) static void C_ccall f_17205(C_word c,C_word *av) C_noret; C_noret_decl(f_17207) static void C_fcall f_17207(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17217) static void C_ccall f_17217(C_word c,C_word *av) C_noret; C_noret_decl(f_17221) static void C_ccall f_17221(C_word c,C_word *av) C_noret; C_noret_decl(f_17230) static void C_ccall f_17230(C_word c,C_word *av) C_noret; C_noret_decl(f_17232) static void C_fcall f_17232(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17242) static void C_ccall f_17242(C_word c,C_word *av) C_noret; C_noret_decl(f_17274) static void C_ccall f_17274(C_word c,C_word *av) C_noret; C_noret_decl(f_17281) static void C_ccall f_17281(C_word c,C_word *av) C_noret; C_noret_decl(f_17282) static void C_fcall f_17282(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17286) static void C_ccall f_17286(C_word c,C_word *av) C_noret; C_noret_decl(f_17295) static void C_ccall f_17295(C_word c,C_word *av) C_noret; C_noret_decl(f_17298) static void C_ccall f_17298(C_word c,C_word *av) C_noret; C_noret_decl(f_17301) static void C_ccall f_17301(C_word c,C_word *av) C_noret; C_noret_decl(f_17304) static void C_fcall f_17304(C_word t0,C_word t1) C_noret; C_noret_decl(f_17307) static void C_fcall f_17307(C_word t0,C_word t1) C_noret; C_noret_decl(f_17310) static void C_ccall f_17310(C_word c,C_word *av) C_noret; C_noret_decl(f_17326) static void C_ccall f_17326(C_word c,C_word *av) C_noret; C_noret_decl(f_17334) static void C_ccall f_17334(C_word c,C_word *av) C_noret; C_noret_decl(f_17352) static void C_ccall f_17352(C_word c,C_word *av) C_noret; C_noret_decl(f_17360) static void C_fcall f_17360(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17370) static void C_ccall f_17370(C_word c,C_word *av) C_noret; C_noret_decl(f_17384) static void C_ccall f_17384(C_word c,C_word *av) C_noret; C_noret_decl(f_17405) static void C_ccall f_17405(C_word c,C_word *av) C_noret; C_noret_decl(f_17408) static void C_ccall f_17408(C_word c,C_word *av) C_noret; C_noret_decl(f_17411) static void C_ccall f_17411(C_word c,C_word *av) C_noret; C_noret_decl(f_17414) static void C_ccall f_17414(C_word c,C_word *av) C_noret; C_noret_decl(f_17417) static void C_ccall f_17417(C_word c,C_word *av) C_noret; C_noret_decl(f_17420) static void C_ccall f_17420(C_word c,C_word *av) C_noret; C_noret_decl(f_17456) static void C_ccall f_17456(C_word c,C_word *av) C_noret; C_noret_decl(f_17462) static void C_ccall f_17462(C_word c,C_word *av) C_noret; C_noret_decl(f_17502) static void C_ccall f_17502(C_word c,C_word *av) C_noret; C_noret_decl(f_17508) static void C_ccall f_17508(C_word c,C_word *av) C_noret; C_noret_decl(f_17592) static void C_fcall f_17592(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_17594) static void C_fcall f_17594(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17606) static void C_fcall f_17606(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17616) static void C_ccall f_17616(C_word c,C_word *av) C_noret; C_noret_decl(f_17629) static void C_fcall f_17629(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_17642) static void C_fcall f_17642(C_word t0,C_word t1) C_noret; C_noret_decl(f_17654) static void C_fcall f_17654(C_word t0,C_word t1) C_noret; C_noret_decl(f_17657) static void C_ccall f_17657(C_word c,C_word *av) C_noret; C_noret_decl(f_17660) static void C_ccall f_17660(C_word c,C_word *av) C_noret; C_noret_decl(f_17699) static void C_fcall f_17699(C_word t0,C_word t1) C_noret; C_noret_decl(f_17702) static void C_ccall f_17702(C_word c,C_word *av) C_noret; C_noret_decl(f_17708) static void C_ccall f_17708(C_word c,C_word *av) C_noret; C_noret_decl(f_17735) static void C_ccall f_17735(C_word c,C_word *av) C_noret; C_noret_decl(f_17742) static void C_ccall f_17742(C_word c,C_word *av) C_noret; C_noret_decl(f_17748) static void C_ccall f_17748(C_word c,C_word *av) C_noret; C_noret_decl(f_17758) static void C_ccall f_17758(C_word c,C_word *av) C_noret; C_noret_decl(f_17772) static void C_ccall f_17772(C_word c,C_word *av) C_noret; C_noret_decl(f_17776) static void C_ccall f_17776(C_word c,C_word *av) C_noret; C_noret_decl(f_17780) static void C_ccall f_17780(C_word c,C_word *av) C_noret; C_noret_decl(f_17782) static void C_fcall f_17782(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_17803) static void C_ccall f_17803(C_word c,C_word *av) C_noret; C_noret_decl(f_17807) static void C_ccall f_17807(C_word c,C_word *av) C_noret; C_noret_decl(f_17810) static void C_ccall f_17810(C_word c,C_word *av) C_noret; C_noret_decl(f_17814) static void C_ccall f_17814(C_word c,C_word *av) C_noret; C_noret_decl(f_17820) static void C_ccall f_17820(C_word c,C_word *av) C_noret; C_noret_decl(f_17826) static C_word C_fcall f_17826(C_word t0,C_word t1); C_noret_decl(f_17968) static void C_ccall f_17968(C_word c,C_word *av) C_noret; C_noret_decl(f_17971) static void C_ccall f_17971(C_word c,C_word *av) C_noret; C_noret_decl(f_17974) static void C_fcall f_17974(C_word t0,C_word t1) C_noret; C_noret_decl(f_17977) static void C_ccall f_17977(C_word c,C_word *av) C_noret; C_noret_decl(f_17980) static void C_fcall f_17980(C_word t0,C_word t1) C_noret; C_noret_decl(f_17983) static void C_ccall f_17983(C_word c,C_word *av) C_noret; C_noret_decl(f_17986) static void C_fcall f_17986(C_word t0,C_word t1) C_noret; C_noret_decl(f_17989) static void C_ccall f_17989(C_word c,C_word *av) C_noret; C_noret_decl(f_17995) static void C_fcall f_17995(C_word t0,C_word t1) C_noret; C_noret_decl(f_17998) static void C_ccall f_17998(C_word c,C_word *av) C_noret; C_noret_decl(f_18016) static void C_fcall f_18016(C_word t0,C_word t1) C_noret; C_noret_decl(f_18019) static void C_ccall f_18019(C_word c,C_word *av) C_noret; C_noret_decl(f_18037) static void C_fcall f_18037(C_word t0,C_word t1) C_noret; C_noret_decl(f_18050) static void C_ccall f_18050(C_word c,C_word *av) C_noret; C_noret_decl(f_18074) static void C_ccall f_18074(C_word c,C_word *av) C_noret; C_noret_decl(f_18078) static void C_ccall f_18078(C_word c,C_word *av) C_noret; C_noret_decl(f_18082) static void C_ccall f_18082(C_word c,C_word *av) C_noret; C_noret_decl(f_18103) static void C_ccall f_18103(C_word c,C_word *av) C_noret; C_noret_decl(f_18109) static void C_ccall f_18109(C_word c,C_word *av) C_noret; C_noret_decl(f_18120) static void C_ccall f_18120(C_word c,C_word *av) C_noret; C_noret_decl(f_18135) static void C_ccall f_18135(C_word c,C_word *av) C_noret; C_noret_decl(f_18141) static void C_fcall f_18141(C_word t0,C_word t1) C_noret; C_noret_decl(f_18153) static void C_ccall f_18153(C_word c,C_word *av) C_noret; C_noret_decl(f_18196) static void C_ccall f_18196(C_word c,C_word *av) C_noret; C_noret_decl(f_18200) static void C_ccall f_18200(C_word c,C_word *av) C_noret; C_noret_decl(f_18204) static void C_ccall f_18204(C_word c,C_word *av) C_noret; C_noret_decl(f_18213) static void C_ccall f_18213(C_word c,C_word *av) C_noret; C_noret_decl(f_18223) static void C_ccall f_18223(C_word c,C_word *av) C_noret; C_noret_decl(f_18227) static void C_ccall f_18227(C_word c,C_word *av) C_noret; C_noret_decl(f_18231) static void C_ccall f_18231(C_word c,C_word *av) C_noret; C_noret_decl(f_18252) static void C_ccall f_18252(C_word c,C_word *av) C_noret; C_noret_decl(f_18273) static void C_ccall f_18273(C_word c,C_word *av) C_noret; C_noret_decl(f_18283) static void C_ccall f_18283(C_word c,C_word *av) C_noret; C_noret_decl(f_18287) static void C_ccall f_18287(C_word c,C_word *av) C_noret; C_noret_decl(f_18294) static void C_ccall f_18294(C_word c,C_word *av) C_noret; C_noret_decl(f_18298) static void C_ccall f_18298(C_word c,C_word *av) C_noret; C_noret_decl(f_18307) static void C_ccall f_18307(C_word c,C_word *av) C_noret; C_noret_decl(f_18322) static void C_ccall f_18322(C_word c,C_word *av) C_noret; C_noret_decl(f_18326) static void C_ccall f_18326(C_word c,C_word *av) C_noret; C_noret_decl(f_18332) static void C_fcall f_18332(C_word t0,C_word t1) C_noret; C_noret_decl(f_18356) static void C_ccall f_18356(C_word c,C_word *av) C_noret; C_noret_decl(f_18357) static void C_fcall f_18357(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18364) static void C_fcall f_18364(C_word t0,C_word t1) C_noret; C_noret_decl(f_18367) static void C_ccall f_18367(C_word c,C_word *av) C_noret; C_noret_decl(f_18378) static void C_ccall f_18378(C_word c,C_word *av) C_noret; C_noret_decl(f_18382) static void C_ccall f_18382(C_word c,C_word *av) C_noret; C_noret_decl(f_18390) static void C_fcall f_18390(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18400) static void C_ccall f_18400(C_word c,C_word *av) C_noret; C_noret_decl(f_18421) static void C_ccall f_18421(C_word c,C_word *av) C_noret; C_noret_decl(f_18424) static void C_fcall f_18424(C_word t0,C_word t1) C_noret; C_noret_decl(f_18433) static void C_ccall f_18433(C_word c,C_word *av) C_noret; C_noret_decl(f_18446) static void C_ccall f_18446(C_word c,C_word *av) C_noret; C_noret_decl(f_18453) static void C_ccall f_18453(C_word c,C_word *av) C_noret; C_noret_decl(f_18456) static void C_ccall f_18456(C_word c,C_word *av) C_noret; C_noret_decl(f_18462) static void C_ccall f_18462(C_word c,C_word *av) C_noret; C_noret_decl(f_18494) static void C_ccall f_18494(C_word c,C_word *av) C_noret; C_noret_decl(f_18502) static void C_ccall f_18502(C_word c,C_word *av) C_noret; C_noret_decl(f_18504) static void C_ccall f_18504(C_word c,C_word *av) C_noret; C_noret_decl(f_18510) static void C_ccall f_18510(C_word c,C_word *av) C_noret; C_noret_decl(f_18522) static void C_ccall f_18522(C_word c,C_word *av) C_noret; C_noret_decl(f_18528) static void C_ccall f_18528(C_word c,C_word *av) C_noret; C_noret_decl(f_18539) static void C_ccall f_18539(C_word c,C_word *av) C_noret; C_noret_decl(f_18545) static void C_ccall f_18545(C_word c,C_word *av) C_noret; C_noret_decl(f_18549) static void C_fcall f_18549(C_word t0,C_word t1) C_noret; C_noret_decl(f_18558) static void C_ccall f_18558(C_word c,C_word *av) C_noret; C_noret_decl(f_18566) static void C_ccall f_18566(C_word c,C_word *av) C_noret; C_noret_decl(f_18583) static void C_ccall f_18583(C_word c,C_word *av) C_noret; C_noret_decl(f_18590) static void C_ccall f_18590(C_word c,C_word *av) C_noret; C_noret_decl(f_18593) static void C_ccall f_18593(C_word c,C_word *av) C_noret; C_noret_decl(f_18597) static void C_fcall f_18597(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18604) static void C_ccall f_18604(C_word c,C_word *av) C_noret; C_noret_decl(f_18610) static void C_ccall f_18610(C_word c,C_word *av) C_noret; C_noret_decl(f_18616) static void C_ccall f_18616(C_word c,C_word *av) C_noret; C_noret_decl(f_18634) static void C_fcall f_18634(C_word t0,C_word t1) C_noret; C_noret_decl(f_18641) static void C_ccall f_18641(C_word c,C_word *av) C_noret; C_noret_decl(f_18647) static void C_ccall f_18647(C_word c,C_word *av) C_noret; C_noret_decl(f_18650) static void C_ccall f_18650(C_word c,C_word *av) C_noret; C_noret_decl(f_18653) static void C_ccall f_18653(C_word c,C_word *av) C_noret; C_noret_decl(f_18656) static void C_ccall f_18656(C_word c,C_word *av) C_noret; C_noret_decl(f_18690) static void C_ccall f_18690(C_word c,C_word *av) C_noret; C_noret_decl(f_18694) static void C_ccall f_18694(C_word c,C_word *av) C_noret; C_noret_decl(f_18698) static void C_ccall f_18698(C_word c,C_word *av) C_noret; C_noret_decl(f_18702) static void C_ccall f_18702(C_word c,C_word *av) C_noret; C_noret_decl(f_18708) static void C_fcall f_18708(C_word t0,C_word t1) C_noret; C_noret_decl(f_18712) static void C_fcall f_18712(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18730) static void C_ccall f_18730(C_word c,C_word *av) C_noret; C_noret_decl(f_18734) static void C_ccall f_18734(C_word c,C_word *av) C_noret; C_noret_decl(f_18742) static void C_fcall f_18742(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18752) static void C_ccall f_18752(C_word c,C_word *av) C_noret; C_noret_decl(f_18777) static C_word C_fcall f_18777(C_word t0,C_word t1); C_noret_decl(f_18804) static void C_ccall f_18804(C_word c,C_word *av) C_noret; C_noret_decl(f_18807) static void C_fcall f_18807(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18813) static void C_fcall f_18813(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18818) static void C_ccall f_18818(C_word c,C_word *av) C_noret; C_noret_decl(f_18823) static void C_fcall f_18823(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18830) static void C_ccall f_18830(C_word c,C_word *av) C_noret; C_noret_decl(f_18832) static void C_fcall f_18832(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_18836) static void C_ccall f_18836(C_word c,C_word *av) C_noret; C_noret_decl(f_18839) static void C_ccall f_18839(C_word c,C_word *av) C_noret; C_noret_decl(f_18842) static void C_ccall f_18842(C_word c,C_word *av) C_noret; C_noret_decl(f_18869) static void C_fcall f_18869(C_word t0,C_word t1) C_noret; C_noret_decl(f_18878) static void C_ccall f_18878(C_word c,C_word *av) C_noret; C_noret_decl(f_18881) static void C_ccall f_18881(C_word c,C_word *av) C_noret; C_noret_decl(f_18891) static void C_ccall f_18891(C_word c,C_word *av) C_noret; C_noret_decl(f_18895) static void C_ccall f_18895(C_word c,C_word *av) C_noret; C_noret_decl(f_18929) static void C_ccall f_18929(C_word c,C_word *av) C_noret; C_noret_decl(f_18963) static void C_ccall f_18963(C_word c,C_word *av) C_noret; C_noret_decl(f_18971) static void C_fcall f_18971(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18981) static void C_ccall f_18981(C_word c,C_word *av) C_noret; C_noret_decl(f_18983) static void C_fcall f_18983(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19008) static void C_ccall f_19008(C_word c,C_word *av) C_noret; C_noret_decl(f_19039) static void C_ccall f_19039(C_word c,C_word *av) C_noret; C_noret_decl(f_19045) static void C_fcall f_19045(C_word t0,C_word t1) C_noret; C_noret_decl(f_19048) static void C_ccall f_19048(C_word c,C_word *av) C_noret; C_noret_decl(f_19057) static void C_ccall f_19057(C_word c,C_word *av) C_noret; C_noret_decl(f_19060) static void C_ccall f_19060(C_word c,C_word *av) C_noret; C_noret_decl(f_19063) static void C_fcall f_19063(C_word t0,C_word t1) C_noret; C_noret_decl(f_19066) static void C_ccall f_19066(C_word c,C_word *av) C_noret; C_noret_decl(f_19069) static void C_ccall f_19069(C_word c,C_word *av) C_noret; C_noret_decl(f_19072) static void C_ccall f_19072(C_word c,C_word *av) C_noret; C_noret_decl(f_19081) static void C_fcall f_19081(C_word t0,C_word t1) C_noret; C_noret_decl(f_19088) static void C_ccall f_19088(C_word c,C_word *av) C_noret; C_noret_decl(f_19105) static void C_ccall f_19105(C_word c,C_word *av) C_noret; C_noret_decl(f_19124) static void C_ccall f_19124(C_word c,C_word *av) C_noret; C_noret_decl(f_19142) static void C_ccall f_19142(C_word c,C_word *av) C_noret; C_noret_decl(f_19154) static void C_ccall f_19154(C_word c,C_word *av) C_noret; C_noret_decl(f_19168) static void C_ccall f_19168(C_word c,C_word *av) C_noret; C_noret_decl(f_19172) static void C_ccall f_19172(C_word c,C_word *av) C_noret; C_noret_decl(f_19176) static void C_ccall f_19176(C_word c,C_word *av) C_noret; C_noret_decl(f_19180) static void C_ccall f_19180(C_word c,C_word *av) C_noret; C_noret_decl(f_19208) static void C_ccall f_19208(C_word c,C_word *av) C_noret; C_noret_decl(f_19215) static void C_ccall f_19215(C_word c,C_word *av) C_noret; C_noret_decl(f_19220) static void C_ccall f_19220(C_word c,C_word *av) C_noret; C_noret_decl(f_19225) static void C_ccall f_19225(C_word c,C_word *av) C_noret; C_noret_decl(f_19229) static void C_ccall f_19229(C_word c,C_word *av) C_noret; C_noret_decl(f_19232) static void C_ccall f_19232(C_word c,C_word *av) C_noret; C_noret_decl(f_19235) static void C_ccall f_19235(C_word c,C_word *av) C_noret; C_noret_decl(f_19246) static void C_ccall f_19246(C_word c,C_word *av) C_noret; C_noret_decl(f_19252) static void C_ccall f_19252(C_word c,C_word *av) C_noret; C_noret_decl(f_19266) static void C_fcall f_19266(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19276) static void C_ccall f_19276(C_word c,C_word *av) C_noret; C_noret_decl(f_19278) static void C_fcall f_19278(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19303) static void C_ccall f_19303(C_word c,C_word *av) C_noret; C_noret_decl(f_19358) static void C_fcall f_19358(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_19362) static void C_ccall f_19362(C_word c,C_word *av) C_noret; C_noret_decl(f_19365) static void C_ccall f_19365(C_word c,C_word *av) C_noret; C_noret_decl(f_19368) static void C_ccall f_19368(C_word c,C_word *av) C_noret; C_noret_decl(f_19377) static void C_fcall f_19377(C_word t0,C_word t1) C_noret; C_noret_decl(f_19389) static void C_ccall f_19389(C_word c,C_word *av) C_noret; C_noret_decl(f_19395) static void C_ccall f_19395(C_word c,C_word *av) C_noret; C_noret_decl(f_19411) static void C_fcall f_19411(C_word t0,C_word t1) C_noret; C_noret_decl(f_19418) static void C_ccall f_19418(C_word c,C_word *av) C_noret; C_noret_decl(f_19422) static void C_ccall f_19422(C_word c,C_word *av) C_noret; C_noret_decl(f_19434) static void C_ccall f_19434(C_word c,C_word *av) C_noret; C_noret_decl(f_19437) static void C_ccall f_19437(C_word c,C_word *av) C_noret; C_noret_decl(f_19455) static void C_ccall f_19455(C_word c,C_word *av) C_noret; C_noret_decl(f_19459) static void C_ccall f_19459(C_word c,C_word *av) C_noret; C_noret_decl(f_19471) static void C_ccall f_19471(C_word c,C_word *av) C_noret; C_noret_decl(f_19475) static void C_ccall f_19475(C_word c,C_word *av) C_noret; C_noret_decl(f_19487) static void C_ccall f_19487(C_word c,C_word *av) C_noret; C_noret_decl(f_19498) static void C_ccall f_19498(C_word c,C_word *av) C_noret; C_noret_decl(f_19515) static void C_ccall f_19515(C_word c,C_word *av) C_noret; C_noret_decl(f_19519) static void C_ccall f_19519(C_word c,C_word *av) C_noret; C_noret_decl(f_19531) static void C_ccall f_19531(C_word c,C_word *av) C_noret; C_noret_decl(f_19540) static void C_ccall f_19540(C_word c,C_word *av) C_noret; C_noret_decl(f_19543) static void C_ccall f_19543(C_word c,C_word *av) C_noret; C_noret_decl(f_19549) static void C_ccall f_19549(C_word c,C_word *av) C_noret; C_noret_decl(f_19555) static void C_ccall f_19555(C_word c,C_word *av) C_noret; C_noret_decl(f_19561) static void C_fcall f_19561(C_word t0,C_word t1) C_noret; C_noret_decl(f_19564) static void C_ccall f_19564(C_word c,C_word *av) C_noret; C_noret_decl(f_19579) static void C_ccall f_19579(C_word c,C_word *av) C_noret; C_noret_decl(f_19584) static void C_fcall f_19584(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19592) static void C_ccall f_19592(C_word c,C_word *av) C_noret; C_noret_decl(f_19598) static void C_ccall f_19598(C_word c,C_word *av) C_noret; C_noret_decl(f_19601) static void C_ccall f_19601(C_word c,C_word *av) C_noret; C_noret_decl(f_19612) static void C_ccall f_19612(C_word c,C_word *av) C_noret; C_noret_decl(f_19616) static void C_ccall f_19616(C_word c,C_word *av) C_noret; C_noret_decl(f_19620) static void C_ccall f_19620(C_word c,C_word *av) C_noret; C_noret_decl(f_19628) static void C_ccall f_19628(C_word c,C_word *av) C_noret; C_noret_decl(f_19635) static void C_ccall f_19635(C_word c,C_word *av) C_noret; C_noret_decl(f_19641) static void C_fcall f_19641(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19666) static void C_ccall f_19666(C_word c,C_word *av) C_noret; C_noret_decl(f_19685) static void C_ccall f_19685(C_word c,C_word *av) C_noret; C_noret_decl(f_19688) static void C_ccall f_19688(C_word c,C_word *av) C_noret; C_noret_decl(f_19698) static void C_ccall f_19698(C_word c,C_word *av) C_noret; C_noret_decl(f_19715) static void C_ccall f_19715(C_word c,C_word *av) C_noret; C_noret_decl(f_19725) static void C_ccall f_19725(C_word c,C_word *av) C_noret; C_noret_decl(f_19727) static void C_fcall f_19727(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19753) static void C_ccall f_19753(C_word c,C_word *av) C_noret; C_noret_decl(f_19763) static void C_fcall f_19763(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19788) static void C_ccall f_19788(C_word c,C_word *av) C_noret; C_noret_decl(f_19815) static void C_ccall f_19815(C_word c,C_word *av) C_noret; C_noret_decl(f_19820) static C_word C_fcall f_19820(C_word t0,C_word t1); C_noret_decl(f_19836) static void C_ccall f_19836(C_word c,C_word *av) C_noret; C_noret_decl(f_19851) static void C_fcall f_19851(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19894) static void C_ccall f_19894(C_word c,C_word *av) C_noret; C_noret_decl(f_19900) static void C_ccall f_19900(C_word c,C_word *av) C_noret; C_noret_decl(f_19928) static void C_fcall f_19928(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19976) static void C_fcall f_19976(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20001) static void C_ccall f_20001(C_word c,C_word *av) C_noret; C_noret_decl(f_20010) static void C_ccall f_20010(C_word c,C_word *av) C_noret; C_noret_decl(f_20029) static void C_ccall f_20029(C_word c,C_word *av) C_noret; C_noret_decl(f_20032) static void C_ccall f_20032(C_word c,C_word *av) C_noret; C_noret_decl(f_20035) static void C_fcall f_20035(C_word t0,C_word t1) C_noret; C_noret_decl(f_20038) static void C_ccall f_20038(C_word c,C_word *av) C_noret; C_noret_decl(f_20042) static void C_fcall f_20042(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20049) static void C_ccall f_20049(C_word c,C_word *av) C_noret; C_noret_decl(f_20064) static void C_ccall f_20064(C_word c,C_word *av) C_noret; C_noret_decl(f_20068) static void C_ccall f_20068(C_word c,C_word *av) C_noret; C_noret_decl(f_20080) static void C_ccall f_20080(C_word c,C_word *av) C_noret; C_noret_decl(f_20101) static void C_ccall f_20101(C_word c,C_word *av) C_noret; C_noret_decl(f_20105) static void C_ccall f_20105(C_word c,C_word *av) C_noret; C_noret_decl(f_20116) static void C_ccall f_20116(C_word c,C_word *av) C_noret; C_noret_decl(f_20131) static void C_ccall f_20131(C_word c,C_word *av) C_noret; C_noret_decl(f_20135) static void C_ccall f_20135(C_word c,C_word *av) C_noret; C_noret_decl(f_20150) static void C_ccall f_20150(C_word c,C_word *av) C_noret; C_noret_decl(f_20183) static void C_ccall f_20183(C_word c,C_word *av) C_noret; C_noret_decl(f_20204) static void C_ccall f_20204(C_word c,C_word *av) C_noret; C_noret_decl(f_20215) static void C_ccall f_20215(C_word c,C_word *av) C_noret; C_noret_decl(f_20219) static void C_ccall f_20219(C_word c,C_word *av) C_noret; C_noret_decl(f_20427) static void C_fcall f_20427(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_20432) static void C_fcall f_20432(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20444) static void C_fcall f_20444(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20469) static void C_ccall f_20469(C_word c,C_word *av) C_noret; C_noret_decl(f_20478) static void C_fcall f_20478(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20485) static void C_ccall f_20485(C_word c,C_word *av) C_noret; C_noret_decl(f_20489) static void C_fcall f_20489(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20505) static void C_ccall f_20505(C_word c,C_word *av) C_noret; C_noret_decl(f_20516) static void C_ccall f_20516(C_word c,C_word *av) C_noret; C_noret_decl(f_20519) static void C_ccall f_20519(C_word c,C_word *av) C_noret; C_noret_decl(f_20522) static void C_ccall f_20522(C_word c,C_word *av) C_noret; C_noret_decl(f_20525) static void C_ccall f_20525(C_word c,C_word *av) C_noret; C_noret_decl(f_20528) static void C_ccall f_20528(C_word c,C_word *av) C_noret; C_noret_decl(f_20531) static void C_ccall f_20531(C_word c,C_word *av) C_noret; C_noret_decl(f_20534) static void C_ccall f_20534(C_word c,C_word *av) C_noret; C_noret_decl(f_20559) static void C_ccall f_20559(C_word c,C_word *av) C_noret; C_noret_decl(f_20568) static void C_ccall f_20568(C_word c,C_word *av) C_noret; C_noret_decl(f_20586) static void C_ccall f_20586(C_word c,C_word *av) C_noret; C_noret_decl(f_20595) static void C_ccall f_20595(C_word c,C_word *av) C_noret; C_noret_decl(f_20604) static void C_ccall f_20604(C_word c,C_word *av) C_noret; C_noret_decl(f_20613) static void C_ccall f_20613(C_word c,C_word *av) C_noret; C_noret_decl(f_20622) static void C_ccall f_20622(C_word c,C_word *av) C_noret; C_noret_decl(f_20631) static void C_ccall f_20631(C_word c,C_word *av) C_noret; C_noret_decl(f_20649) static void C_ccall f_20649(C_word c,C_word *av) C_noret; C_noret_decl(f_20658) static void C_ccall f_20658(C_word c,C_word *av) C_noret; C_noret_decl(f_20667) static void C_ccall f_20667(C_word c,C_word *av) C_noret; C_noret_decl(f_20676) static void C_ccall f_20676(C_word c,C_word *av) C_noret; C_noret_decl(f_20685) static void C_ccall f_20685(C_word c,C_word *av) C_noret; C_noret_decl(f_20694) static void C_ccall f_20694(C_word c,C_word *av) C_noret; C_noret_decl(f_20703) static void C_ccall f_20703(C_word c,C_word *av) C_noret; C_noret_decl(f_20707) static void C_ccall f_20707(C_word c,C_word *av) C_noret; C_noret_decl(f_20709) static void C_fcall f_20709(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_20713) static void C_ccall f_20713(C_word c,C_word *av) C_noret; C_noret_decl(f_20717) static void C_fcall f_20717(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20742) static void C_ccall f_20742(C_word c,C_word *av) C_noret; C_noret_decl(f_20753) static void C_ccall f_20753(C_word c,C_word *av) C_noret; C_noret_decl(f_20758) static void C_fcall f_20758(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20762) static void C_ccall f_20762(C_word c,C_word *av) C_noret; C_noret_decl(f_20765) static void C_fcall f_20765(C_word t0,C_word t1) C_noret; C_noret_decl(f_20768) static void C_fcall f_20768(C_word t0,C_word t1) C_noret; C_noret_decl(f_20779) static void C_ccall f_20779(C_word c,C_word *av) C_noret; C_noret_decl(f_20790) static void C_ccall f_20790(C_word c,C_word *av) C_noret; C_noret_decl(f_20797) static void C_ccall f_20797(C_word c,C_word *av) C_noret; C_noret_decl(f_20806) static void C_ccall f_20806(C_word c,C_word *av) C_noret; C_noret_decl(f_20814) static void C_fcall f_20814(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_20818) static void C_ccall f_20818(C_word c,C_word *av) C_noret; C_noret_decl(f_20821) static void C_ccall f_20821(C_word c,C_word *av) C_noret; C_noret_decl(f_20824) static void C_ccall f_20824(C_word c,C_word *av) C_noret; C_noret_decl(f_20833) static void C_fcall f_20833(C_word t0,C_word t1) C_noret; C_noret_decl(f_20861) static void C_fcall f_20861(C_word t0,C_word t1) C_noret; C_noret_decl(f_20872) static void C_ccall f_20872(C_word c,C_word *av) C_noret; C_noret_decl(f_20892) static void C_ccall f_20892(C_word c,C_word *av) C_noret; C_noret_decl(f_20896) static void C_ccall f_20896(C_word c,C_word *av) C_noret; C_noret_decl(f_20917) static void C_ccall f_20917(C_word c,C_word *av) C_noret; C_noret_decl(f_20938) static void C_ccall f_20938(C_word c,C_word *av) C_noret; C_noret_decl(f_20955) static void C_ccall f_20955(C_word c,C_word *av) C_noret; C_noret_decl(f_20959) static void C_ccall f_20959(C_word c,C_word *av) C_noret; C_noret_decl(f_20980) static void C_ccall f_20980(C_word c,C_word *av) C_noret; C_noret_decl(f_20984) static void C_ccall f_20984(C_word c,C_word *av) C_noret; C_noret_decl(f_20988) static void C_ccall f_20988(C_word c,C_word *av) C_noret; C_noret_decl(f_21009) static void C_ccall f_21009(C_word c,C_word *av) C_noret; C_noret_decl(f_21034) static void C_ccall f_21034(C_word c,C_word *av) C_noret; C_noret_decl(f_21050) static void C_ccall f_21050(C_word c,C_word *av) C_noret; C_noret_decl(f_21060) static void C_fcall f_21060(C_word t0,C_word t1) C_noret; C_noret_decl(f_21076) static void C_ccall f_21076(C_word c,C_word *av) C_noret; C_noret_decl(f_21080) static void C_ccall f_21080(C_word c,C_word *av) C_noret; C_noret_decl(f_21089) static void C_ccall f_21089(C_word c,C_word *av) C_noret; C_noret_decl(f_21130) static void C_ccall f_21130(C_word c,C_word *av) C_noret; C_noret_decl(f_21137) static void C_ccall f_21137(C_word c,C_word *av) C_noret; C_noret_decl(f_21140) static void C_ccall f_21140(C_word c,C_word *av) C_noret; C_noret_decl(f_21143) static void C_ccall f_21143(C_word c,C_word *av) C_noret; C_noret_decl(f_21146) static void C_ccall f_21146(C_word c,C_word *av) C_noret; C_noret_decl(f_21149) static void C_ccall f_21149(C_word c,C_word *av) C_noret; C_noret_decl(f_21157) static void C_ccall f_21157(C_word c,C_word *av) C_noret; C_noret_decl(f_21186) static void C_ccall f_21186(C_word c,C_word *av) C_noret; C_noret_decl(f_21193) static void C_fcall f_21193(C_word t0,C_word t1) C_noret; C_noret_decl(f_21197) static void C_ccall f_21197(C_word c,C_word *av) C_noret; C_noret_decl(f_21212) static void C_ccall f_21212(C_word c,C_word *av) C_noret; C_noret_decl(f_21235) static void C_ccall f_21235(C_word c,C_word *av) C_noret; C_noret_decl(f_21256) static void C_ccall f_21256(C_word c,C_word *av) C_noret; C_noret_decl(f_21265) static void C_ccall f_21265(C_word c,C_word *av) C_noret; C_noret_decl(f_21271) static void C_ccall f_21271(C_word c,C_word *av) C_noret; C_noret_decl(f_21296) static void C_ccall f_21296(C_word c,C_word *av) C_noret; C_noret_decl(f_21328) static void C_ccall f_21328(C_word c,C_word *av) C_noret; C_noret_decl(f_21332) static void C_ccall f_21332(C_word c,C_word *av) C_noret; C_noret_decl(f_21340) static void C_ccall f_21340(C_word c,C_word *av) C_noret; C_noret_decl(f_21348) static void C_ccall f_21348(C_word c,C_word *av) C_noret; C_noret_decl(f_21352) static void C_ccall f_21352(C_word c,C_word *av) C_noret; C_noret_decl(f_21362) static void C_ccall f_21362(C_word c,C_word *av) C_noret; C_noret_decl(f_21389) static void C_ccall f_21389(C_word c,C_word *av) C_noret; C_noret_decl(f_21393) static void C_ccall f_21393(C_word c,C_word *av) C_noret; C_noret_decl(f_21412) static void C_ccall f_21412(C_word c,C_word *av) C_noret; C_noret_decl(f_21416) static void C_fcall f_21416(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21432) static void C_ccall f_21432(C_word c,C_word *av) C_noret; C_noret_decl(f_21446) static void C_ccall f_21446(C_word c,C_word *av) C_noret; C_noret_decl(f_21452) static void C_ccall f_21452(C_word c,C_word *av) C_noret; C_noret_decl(f_21455) static void C_fcall f_21455(C_word t0,C_word t1) C_noret; C_noret_decl(f_21458) static void C_fcall f_21458(C_word t0,C_word t1) C_noret; C_noret_decl(f_21477) static void C_ccall f_21477(C_word c,C_word *av) C_noret; C_noret_decl(f_21485) static void C_ccall f_21485(C_word c,C_word *av) C_noret; C_noret_decl(f_21526) static void C_ccall f_21526(C_word c,C_word *av) C_noret; C_noret_decl(f_21530) static void C_ccall f_21530(C_word c,C_word *av) C_noret; C_noret_decl(f_21545) static void C_fcall f_21545(C_word t0,C_word t1) C_noret; C_noret_decl(f_21549) static void C_ccall f_21549(C_word c,C_word *av) C_noret; C_noret_decl(f_21552) static void C_fcall f_21552(C_word t0,C_word t1) C_noret; C_noret_decl(f_21555) static void C_fcall f_21555(C_word t0,C_word t1) C_noret; C_noret_decl(f_21562) static void C_ccall f_21562(C_word c,C_word *av) C_noret; C_noret_decl(f_21582) static void C_ccall f_21582(C_word c,C_word *av) C_noret; C_noret_decl(f_21586) static void C_ccall f_21586(C_word c,C_word *av) C_noret; C_noret_decl(f_21593) static void C_fcall f_21593(C_word t0,C_word t1) C_noret; C_noret_decl(f_21630) static void C_fcall f_21630(C_word t0,C_word t1) C_noret; C_noret_decl(f_21637) static void C_ccall f_21637(C_word c,C_word *av) C_noret; C_noret_decl(f_21657) static void C_fcall f_21657(C_word t0,C_word t1) C_noret; C_noret_decl(f_21678) static void C_fcall f_21678(C_word t0,C_word t1) C_noret; C_noret_decl(f_21681) static void C_ccall f_21681(C_word c,C_word *av) C_noret; C_noret_decl(f_21688) static void C_ccall f_21688(C_word c,C_word *av) C_noret; C_noret_decl(f_21692) static void C_ccall f_21692(C_word c,C_word *av) C_noret; C_noret_decl(f_21698) static void C_ccall f_21698(C_word c,C_word *av) C_noret; C_noret_decl(f_21701) static void C_ccall f_21701(C_word c,C_word *av) C_noret; C_noret_decl(f_21704) static void C_ccall f_21704(C_word c,C_word *av) C_noret; C_noret_decl(f_21707) static void C_ccall f_21707(C_word c,C_word *av) C_noret; C_noret_decl(f_21710) static void C_ccall f_21710(C_word c,C_word *av) C_noret; C_noret_decl(f_21714) static void C_ccall f_21714(C_word c,C_word *av) C_noret; C_noret_decl(f_21725) static void C_ccall f_21725(C_word c,C_word *av) C_noret; C_noret_decl(f_21736) static void C_ccall f_21736(C_word c,C_word *av) C_noret; C_noret_decl(f_21742) static void C_ccall f_21742(C_word c,C_word *av) C_noret; C_noret_decl(f_21756) static void C_ccall f_21756(C_word c,C_word *av) C_noret; C_noret_decl(f_21766) static void C_ccall f_21766(C_word c,C_word *av) C_noret; C_noret_decl(f_21778) static void C_ccall f_21778(C_word c,C_word *av) C_noret; C_noret_decl(f_21781) static void C_ccall f_21781(C_word c,C_word *av) C_noret; C_noret_decl(f_21784) static void C_ccall f_21784(C_word c,C_word *av) C_noret; C_noret_decl(f_21803) static void C_ccall f_21803(C_word c,C_word *av) C_noret; C_noret_decl(f_21815) static void C_ccall f_21815(C_word c,C_word *av) C_noret; C_noret_decl(f_21844) static void C_ccall f_21844(C_word c,C_word *av) C_noret; C_noret_decl(f_21855) static void C_ccall f_21855(C_word c,C_word *av) C_noret; C_noret_decl(f_21865) static void C_fcall f_21865(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_21874) static void C_ccall f_21874(C_word c,C_word *av) C_noret; C_noret_decl(f_21885) static void C_ccall f_21885(C_word c,C_word *av) C_noret; C_noret_decl(f_21896) static void C_ccall f_21896(C_word c,C_word *av) C_noret; C_noret_decl(f_21899) static void C_ccall f_21899(C_word c,C_word *av) C_noret; C_noret_decl(f_21906) static void C_ccall f_21906(C_word c,C_word *av) C_noret; C_noret_decl(f_21916) static void C_ccall f_21916(C_word c,C_word *av) C_noret; C_noret_decl(f_21957) static void C_ccall f_21957(C_word c,C_word *av) C_noret; C_noret_decl(f_22024) static void C_fcall f_22024(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_22029) static void C_fcall f_22029(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22041) static void C_fcall f_22041(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22066) static void C_ccall f_22066(C_word c,C_word *av) C_noret; C_noret_decl(f_22075) static void C_fcall f_22075(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22082) static void C_ccall f_22082(C_word c,C_word *av) C_noret; C_noret_decl(f_22107) static C_word C_fcall f_22107(C_word t0,C_word t1); C_noret_decl(f_22123) static C_word C_fcall f_22123(C_word *a,C_word t0,C_word t1); C_noret_decl(f_22132) static void C_fcall f_22132(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22136) static void C_ccall f_22136(C_word c,C_word *av) C_noret; C_noret_decl(f_22140) static C_word C_fcall f_22140(C_word t0,C_word t1); C_noret_decl(f_22158) static void C_ccall f_22158(C_word c,C_word *av) C_noret; C_noret_decl(f_22160) static void C_ccall f_22160(C_word c,C_word *av) C_noret; C_noret_decl(f_22167) static void C_ccall f_22167(C_word c,C_word *av) C_noret; C_noret_decl(f_22174) static void C_ccall f_22174(C_word c,C_word *av) C_noret; C_noret_decl(f_22176) static void C_fcall f_22176(C_word t0,C_word t1) C_noret; C_noret_decl(f_22193) static void C_ccall f_22193(C_word c,C_word *av) C_noret; C_noret_decl(f_22239) static void C_ccall f_22239(C_word c,C_word *av) C_noret; C_noret_decl(f_22242) static void C_ccall f_22242(C_word c,C_word *av) C_noret; C_noret_decl(f_22245) static void C_ccall f_22245(C_word c,C_word *av) C_noret; C_noret_decl(f_22248) static void C_ccall f_22248(C_word c,C_word *av) C_noret; C_noret_decl(f_22251) static void C_ccall f_22251(C_word c,C_word *av) C_noret; C_noret_decl(f_22258) static void C_ccall f_22258(C_word c,C_word *av) C_noret; C_noret_decl(f_22262) static void C_ccall f_22262(C_word c,C_word *av) C_noret; C_noret_decl(f_22266) static void C_ccall f_22266(C_word c,C_word *av) C_noret; C_noret_decl(f_6075) static void C_ccall f_6075(C_word c,C_word *av) C_noret; C_noret_decl(f_6078) static void C_ccall f_6078(C_word c,C_word *av) C_noret; C_noret_decl(f_6081) static void C_ccall f_6081(C_word c,C_word *av) C_noret; C_noret_decl(f_6084) static void C_ccall f_6084(C_word c,C_word *av) C_noret; C_noret_decl(f_6087) static void C_ccall f_6087(C_word c,C_word *av) C_noret; C_noret_decl(f_6090) static void C_ccall f_6090(C_word c,C_word *av) C_noret; C_noret_decl(f_6093) static void C_ccall f_6093(C_word c,C_word *av) C_noret; C_noret_decl(f_6096) static void C_ccall f_6096(C_word c,C_word *av) C_noret; C_noret_decl(f_6099) static void C_ccall f_6099(C_word c,C_word *av) C_noret; C_noret_decl(f_6102) static void C_ccall f_6102(C_word c,C_word *av) C_noret; C_noret_decl(f_6288) static void C_fcall f_6288(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6302) static void C_ccall f_6302(C_word c,C_word *av) C_noret; C_noret_decl(f_6491) static void C_fcall f_6491(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6497) static void C_fcall f_6497(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6519) static void C_ccall f_6519(C_word c,C_word *av) C_noret; C_noret_decl(f_6531) static void C_fcall f_6531(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6541) static void C_ccall f_6541(C_word c,C_word *av) C_noret; C_noret_decl(f_6555) static void C_fcall f_6555(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6561) static void C_fcall f_6561(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6575) static void C_ccall f_6575(C_word c,C_word *av) C_noret; C_noret_decl(f_6583) static void C_fcall f_6583(C_word t0,C_word t1) C_noret; C_noret_decl(f_6589) static void C_fcall f_6589(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6607) static void C_ccall f_6607(C_word c,C_word *av) C_noret; C_noret_decl(f_6611) static void C_fcall f_6611(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6617) static void C_fcall f_6617(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6630) static void C_ccall f_6630(C_word c,C_word *av) C_noret; C_noret_decl(f_6644) static void C_ccall f_6644(C_word c,C_word *av) C_noret; C_noret_decl(f_6692) static void C_fcall f_6692(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6706) static void C_ccall f_6706(C_word c,C_word *av) C_noret; C_noret_decl(f_6719) static void C_ccall f_6719(C_word c,C_word *av) C_noret; C_noret_decl(f_6731) static void C_fcall f_6731(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6740) static void C_fcall f_6740(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6748) static void C_fcall f_6748(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6755) static void C_ccall f_6755(C_word c,C_word *av) C_noret; C_noret_decl(f_6769) static void C_ccall f_6769(C_word c,C_word *av) C_noret; C_noret_decl(f_6784) static void C_fcall f_6784(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6792) static void C_fcall f_6792(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6796) static void C_ccall f_6796(C_word c,C_word *av) C_noret; C_noret_decl(f_6800) static C_word C_fcall f_6800(C_word *a,C_word t0,C_word t1); C_noret_decl(f_6818) static void C_ccall f_6818(C_word c,C_word *av) C_noret; C_noret_decl(f_6840) static void C_fcall f_6840(C_word t0,C_word t1) C_noret; C_noret_decl(f_6857) static void C_fcall f_6857(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6897) static C_word C_fcall f_6897(C_word t0); C_noret_decl(f_6922) static void C_fcall f_6922(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6935) static void C_ccall f_6935(C_word c,C_word *av) C_noret; C_noret_decl(f_6950) static void C_ccall f_6950(C_word c,C_word *av) C_noret; C_noret_decl(f_6956) static void C_fcall f_6956(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6991) static void C_fcall f_6991(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6997) static void C_fcall f_6997(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7019) static void C_ccall f_7019(C_word c,C_word *av) C_noret; C_noret_decl(f_7030) static void C_ccall f_7030(C_word c,C_word *av) C_noret; C_noret_decl(f_7036) static void C_ccall f_7036(C_word c,C_word *av) C_noret; C_noret_decl(f_7042) static void C_fcall f_7042(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7067) static void C_fcall f_7067(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7090) static void C_ccall f_7090(C_word c,C_word *av) C_noret; C_noret_decl(f_7095) static void C_ccall f_7095(C_word c,C_word *av) C_noret; C_noret_decl(f_7102) static void C_ccall f_7102(C_word c,C_word *av) C_noret; C_noret_decl(f_7109) static void C_ccall f_7109(C_word c,C_word *av) C_noret; C_noret_decl(f_7115) static void C_fcall f_7115(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7121) static void C_ccall f_7121(C_word c,C_word *av) C_noret; C_noret_decl(f_7127) static void C_ccall f_7127(C_word c,C_word *av) C_noret; C_noret_decl(f_7334) static void C_fcall f_7334(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7340) static C_word C_fcall f_7340(C_word t0,C_word t1,C_word t2); C_noret_decl(f_7374) static C_word C_fcall f_7374(C_word t0,C_word t1,C_word t2); C_noret_decl(f_7468) static void C_ccall f_7468(C_word c,C_word *av) C_noret; C_noret_decl(f_7472) static void C_ccall f_7472(C_word c,C_word *av) C_noret; C_noret_decl(f_7475) static void C_ccall f_7475(C_word c,C_word *av) C_noret; C_noret_decl(f_7478) static void C_ccall f_7478(C_word c,C_word *av) C_noret; C_noret_decl(f_7481) static void C_ccall f_7481(C_word c,C_word *av) C_noret; C_noret_decl(f_7484) static void C_ccall f_7484(C_word c,C_word *av) C_noret; C_noret_decl(f_7487) static void C_ccall f_7487(C_word c,C_word *av) C_noret; C_noret_decl(f_7497) static void C_ccall f_7497(C_word c,C_word *av) C_noret; C_noret_decl(f_7504) static void C_ccall f_7504(C_word c,C_word *av) C_noret; C_noret_decl(f_7511) static void C_ccall f_7511(C_word c,C_word *av) C_noret; C_noret_decl(f_7518) static void C_ccall f_7518(C_word c,C_word *av) C_noret; C_noret_decl(f_7520) static void C_ccall f_7520(C_word c,C_word *av) C_noret; C_noret_decl(f_7524) static void C_ccall f_7524(C_word c,C_word *av) C_noret; C_noret_decl(f_7529) static void C_ccall f_7529(C_word c,C_word *av) C_noret; C_noret_decl(f_7531) static void C_fcall f_7531(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7573) static void C_ccall f_7573(C_word c,C_word *av) C_noret; C_noret_decl(f_7605) static void C_fcall f_7605(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7615) static void C_ccall f_7615(C_word c,C_word *av) C_noret; C_noret_decl(f_7628) static void C_ccall f_7628(C_word c,C_word *av) C_noret; C_noret_decl(f_7632) static void C_ccall f_7632(C_word c,C_word *av) C_noret; C_noret_decl(f_7634) static void C_fcall f_7634(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7647) static void C_fcall f_7647(C_word t0,C_word t1) C_noret; C_noret_decl(f_7669) static void C_fcall f_7669(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7676) static void C_ccall f_7676(C_word c,C_word *av) C_noret; C_noret_decl(f_7679) static void C_ccall f_7679(C_word c,C_word *av) C_noret; C_noret_decl(f_7687) static void C_ccall f_7687(C_word c,C_word *av) C_noret; C_noret_decl(f_7693) static void C_ccall f_7693(C_word c,C_word *av) C_noret; C_noret_decl(f_7700) static void C_ccall f_7700(C_word c,C_word *av) C_noret; C_noret_decl(f_7707) static void C_ccall f_7707(C_word c,C_word *av) C_noret; C_noret_decl(f_7709) static void C_fcall f_7709(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7713) static void C_ccall f_7713(C_word c,C_word *av) C_noret; C_noret_decl(f_7716) static void C_ccall f_7716(C_word c,C_word *av) C_noret; C_noret_decl(f_7720) static void C_ccall f_7720(C_word c,C_word *av) C_noret; C_noret_decl(f_7722) static void C_fcall f_7722(C_word t0,C_word t1) C_noret; C_noret_decl(f_7724) static void C_ccall f_7724(C_word c,C_word *av) C_noret; C_noret_decl(f_7731) static void C_ccall f_7731(C_word c,C_word *av) C_noret; C_noret_decl(f_7734) static void C_ccall f_7734(C_word c,C_word *av) C_noret; C_noret_decl(f_7749) static void C_fcall f_7749(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7753) static void C_ccall f_7753(C_word c,C_word *av) C_noret; C_noret_decl(f_7758) static void C_ccall f_7758(C_word c,C_word *av) C_noret; C_noret_decl(f_7763) static void C_ccall f_7763(C_word c,C_word *av) C_noret; C_noret_decl(f_7771) static void C_ccall f_7771(C_word c,C_word *av) C_noret; C_noret_decl(f_7773) static void C_ccall f_7773(C_word c,C_word *av) C_noret; C_noret_decl(f_7778) static void C_fcall f_7778(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7795) static void C_fcall f_7795(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7805) static void C_ccall f_7805(C_word c,C_word *av) C_noret; C_noret_decl(f_7844) static void C_ccall f_7844(C_word c,C_word *av) C_noret; C_noret_decl(f_7876) static void C_ccall f_7876(C_word c,C_word *av) C_noret; C_noret_decl(f_7887) static void C_fcall f_7887(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_7891) static void C_ccall f_7891(C_word c,C_word *av) C_noret; C_noret_decl(f_7894) static void C_ccall f_7894(C_word c,C_word *av) C_noret; C_noret_decl(f_7906) static void C_ccall f_7906(C_word c,C_word *av) C_noret; C_noret_decl(f_7910) static void C_fcall f_7910(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7920) static void C_ccall f_7920(C_word c,C_word *av) C_noret; C_noret_decl(f_7924) static void C_fcall f_7924(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7938) static void C_fcall f_7938(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7945) static void C_ccall f_7945(C_word c,C_word *av) C_noret; C_noret_decl(f_7955) static void C_ccall f_7955(C_word c,C_word *av) C_noret; C_noret_decl(f_7959) static void C_ccall f_7959(C_word c,C_word *av) C_noret; C_noret_decl(f_7977) static void C_fcall f_7977(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7984) static void C_ccall f_7984(C_word c,C_word *av) C_noret; C_noret_decl(f_7994) static void C_ccall f_7994(C_word c,C_word *av) C_noret; C_noret_decl(f_7998) static void C_ccall f_7998(C_word c,C_word *av) C_noret; C_noret_decl(f_8036) static void C_ccall f_8036(C_word c,C_word *av) C_noret; C_noret_decl(f_8042) static void C_ccall f_8042(C_word c,C_word *av) C_noret; C_noret_decl(f_8045) static void C_ccall f_8045(C_word c,C_word *av) C_noret; C_noret_decl(f_8048) static void C_ccall f_8048(C_word c,C_word *av) C_noret; C_noret_decl(f_8051) static void C_ccall f_8051(C_word c,C_word *av) C_noret; C_noret_decl(f_8057) static void C_ccall f_8057(C_word c,C_word *av) C_noret; C_noret_decl(f_8060) static void C_ccall f_8060(C_word c,C_word *av) C_noret; C_noret_decl(f_8063) static void C_ccall f_8063(C_word c,C_word *av) C_noret; C_noret_decl(f_8078) static void C_ccall f_8078(C_word c,C_word *av) C_noret; C_noret_decl(f_8083) static void C_ccall f_8083(C_word c,C_word *av) C_noret; C_noret_decl(f_8087) static void C_ccall f_8087(C_word c,C_word *av) C_noret; C_noret_decl(f_8093) static void C_ccall f_8093(C_word c,C_word *av) C_noret; C_noret_decl(f_8098) static void C_fcall f_8098(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8108) static void C_ccall f_8108(C_word c,C_word *av) C_noret; C_noret_decl(f_8123) static void C_ccall f_8123(C_word c,C_word *av) C_noret; C_noret_decl(f_8132) static void C_ccall f_8132(C_word c,C_word *av) C_noret; C_noret_decl(f_8139) static void C_ccall f_8139(C_word c,C_word *av) C_noret; C_noret_decl(f_8146) static void C_ccall f_8146(C_word c,C_word *av) C_noret; C_noret_decl(f_8152) static void C_fcall f_8152(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8) C_noret; C_noret_decl(f_8159) static void C_ccall f_8159(C_word c,C_word *av) C_noret; C_noret_decl(f_8183) static void C_ccall f_8183(C_word c,C_word *av) C_noret; C_noret_decl(f_8198) static void C_ccall f_8198(C_word c,C_word *av) C_noret; C_noret_decl(f_8204) static void C_ccall f_8204(C_word c,C_word *av) C_noret; C_noret_decl(f_8207) static void C_ccall f_8207(C_word c,C_word *av) C_noret; C_noret_decl(f_8211) static void C_ccall f_8211(C_word c,C_word *av) C_noret; C_noret_decl(f_8214) static void C_ccall f_8214(C_word c,C_word *av) C_noret; C_noret_decl(f_8217) static void C_ccall f_8217(C_word c,C_word *av) C_noret; C_noret_decl(f_8229) static void C_ccall f_8229(C_word c,C_word *av) C_noret; C_noret_decl(f_8233) static void C_fcall f_8233(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8261) static void C_ccall f_8261(C_word c,C_word *av) C_noret; C_noret_decl(f_8265) static void C_ccall f_8265(C_word c,C_word *av) C_noret; C_noret_decl(f_8269) static void C_ccall f_8269(C_word c,C_word *av) C_noret; C_noret_decl(f_8307) static void C_ccall f_8307(C_word c,C_word *av) C_noret; C_noret_decl(f_8340) static void C_ccall f_8340(C_word c,C_word *av) C_noret; C_noret_decl(f_8348) static void C_ccall f_8348(C_word c,C_word *av) C_noret; C_noret_decl(f_8381) static void C_ccall f_8381(C_word c,C_word *av) C_noret; C_noret_decl(f_8386) static void C_fcall f_8386(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8394) static void C_ccall f_8394(C_word c,C_word *av) C_noret; C_noret_decl(f_8398) static void C_ccall f_8398(C_word c,C_word *av) C_noret; C_noret_decl(f_8415) static void C_ccall f_8415(C_word c,C_word *av) C_noret; C_noret_decl(f_8417) static void C_fcall f_8417(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8442) static void C_ccall f_8442(C_word c,C_word *av) C_noret; C_noret_decl(f_8465) static void C_ccall f_8465(C_word c,C_word *av) C_noret; C_noret_decl(f_8477) static void C_ccall f_8477(C_word c,C_word *av) C_noret; C_noret_decl(f_8484) static void C_ccall f_8484(C_word c,C_word *av) C_noret; C_noret_decl(f_8487) static void C_ccall f_8487(C_word c,C_word *av) C_noret; C_noret_decl(f_8496) static void C_fcall f_8496(C_word t0,C_word t1) C_noret; C_noret_decl(f_8509) static void C_ccall f_8509(C_word c,C_word *av) C_noret; C_noret_decl(f_8529) static void C_ccall f_8529(C_word c,C_word *av) C_noret; C_noret_decl(f_8533) static void C_ccall f_8533(C_word c,C_word *av) C_noret; C_noret_decl(f_8537) static void C_ccall f_8537(C_word c,C_word *av) C_noret; C_noret_decl(f_8550) static void C_ccall f_8550(C_word c,C_word *av) C_noret; C_noret_decl(f_8554) static void C_ccall f_8554(C_word c,C_word *av) C_noret; C_noret_decl(f_8571) static void C_ccall f_8571(C_word c,C_word *av) C_noret; C_noret_decl(f_8591) static void C_ccall f_8591(C_word c,C_word *av) C_noret; C_noret_decl(f_8597) static void C_ccall f_8597(C_word c,C_word *av) C_noret; C_noret_decl(f_8601) static void C_ccall f_8601(C_word c,C_word *av) C_noret; C_noret_decl(f_8612) static void C_ccall f_8612(C_word c,C_word *av) C_noret; C_noret_decl(f_8618) static void C_ccall f_8618(C_word c,C_word *av) C_noret; C_noret_decl(f_8634) static void C_ccall f_8634(C_word c,C_word *av) C_noret; C_noret_decl(f_8643) static void C_ccall f_8643(C_word c,C_word *av) C_noret; C_noret_decl(f_8646) static void C_ccall f_8646(C_word c,C_word *av) C_noret; C_noret_decl(f_8649) static void C_ccall f_8649(C_word c,C_word *av) C_noret; C_noret_decl(f_8655) static void C_ccall f_8655(C_word c,C_word *av) C_noret; C_noret_decl(f_8663) static void C_fcall f_8663(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8671) static void C_ccall f_8671(C_word c,C_word *av) C_noret; C_noret_decl(f_8686) static void C_ccall f_8686(C_word c,C_word *av) C_noret; C_noret_decl(f_8690) static void C_ccall f_8690(C_word c,C_word *av) C_noret; C_noret_decl(f_8692) static void C_ccall f_8692(C_word c,C_word *av) C_noret; C_noret_decl(f_8696) static void C_ccall f_8696(C_word c,C_word *av) C_noret; C_noret_decl(f_8700) static void C_ccall f_8700(C_word c,C_word *av) C_noret; C_noret_decl(f_8703) static void C_ccall f_8703(C_word c,C_word *av) C_noret; C_noret_decl(f_8709) static void C_ccall f_8709(C_word c,C_word *av) C_noret; C_noret_decl(f_8717) static void C_ccall f_8717(C_word c,C_word *av) C_noret; C_noret_decl(f_8721) static void C_ccall f_8721(C_word c,C_word *av) C_noret; C_noret_decl(f_8727) static void C_ccall f_8727(C_word c,C_word *av) C_noret; C_noret_decl(f_8731) static void C_ccall f_8731(C_word c,C_word *av) C_noret; C_noret_decl(f_8734) static void C_ccall f_8734(C_word c,C_word *av) C_noret; C_noret_decl(f_8737) static void C_fcall f_8737(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8766) static void C_ccall f_8766(C_word c,C_word *av) C_noret; C_noret_decl(f_8787) static void C_ccall f_8787(C_word c,C_word *av) C_noret; C_noret_decl(f_8789) static void C_fcall f_8789(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8814) static void C_ccall f_8814(C_word c,C_word *av) C_noret; C_noret_decl(f_8862) static void C_ccall f_8862(C_word c,C_word *av) C_noret; C_noret_decl(f_8866) static void C_ccall f_8866(C_word c,C_word *av) C_noret; C_noret_decl(f_8886) static void C_ccall f_8886(C_word c,C_word *av) C_noret; C_noret_decl(f_8900) static void C_fcall f_8900(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8934) static void C_fcall f_8934(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8978) static void C_ccall f_8978(C_word c,C_word *av) C_noret; C_noret_decl(f_8987) static void C_ccall f_8987(C_word c,C_word *av) C_noret; C_noret_decl(f_9016) static void C_ccall f_9016(C_word c,C_word *av) C_noret; C_noret_decl(f_9043) static void C_ccall f_9043(C_word c,C_word *av) C_noret; C_noret_decl(f_9047) static void C_ccall f_9047(C_word c,C_word *av) C_noret; C_noret_decl(f_9059) static void C_ccall f_9059(C_word c,C_word *av) C_noret; C_noret_decl(f_9073) static void C_fcall f_9073(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9121) static void C_fcall f_9121(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9169) static void C_fcall f_9169(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9203) static void C_fcall f_9203(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9228) static void C_ccall f_9228(C_word c,C_word *av) C_noret; C_noret_decl(f_9249) static void C_ccall f_9249(C_word c,C_word *av) C_noret; C_noret_decl(f_9254) static void C_ccall f_9254(C_word c,C_word *av) C_noret; C_noret_decl(f_9264) static void C_ccall f_9264(C_word c,C_word *av) C_noret; C_noret_decl(f_9267) static void C_ccall f_9267(C_word c,C_word *av) C_noret; C_noret_decl(f_9273) static void C_ccall f_9273(C_word c,C_word *av) C_noret; C_noret_decl(f_9276) static void C_ccall f_9276(C_word c,C_word *av) C_noret; C_noret_decl(f_9279) static void C_ccall f_9279(C_word c,C_word *av) C_noret; C_noret_decl(f_9285) static void C_ccall f_9285(C_word c,C_word *av) C_noret; C_noret_decl(f_9294) static void C_fcall f_9294(C_word t0,C_word t1) C_noret; C_noret_decl(f_9300) static void C_ccall f_9300(C_word c,C_word *av) C_noret; C_noret_decl(f_9307) static void C_ccall f_9307(C_word c,C_word *av) C_noret; C_noret_decl(f_9338) static void C_ccall f_9338(C_word c,C_word *av) C_noret; C_noret_decl(f_9349) static void C_ccall f_9349(C_word c,C_word *av) C_noret; C_noret_decl(f_9351) static void C_ccall f_9351(C_word c,C_word *av) C_noret; C_noret_decl(f_9355) static void C_ccall f_9355(C_word c,C_word *av) C_noret; C_noret_decl(f_9359) static void C_ccall f_9359(C_word c,C_word *av) C_noret; C_noret_decl(f_9362) static void C_ccall f_9362(C_word c,C_word *av) C_noret; C_noret_decl(f_9368) static void C_ccall f_9368(C_word c,C_word *av) C_noret; C_noret_decl(f_9372) static void C_ccall f_9372(C_word c,C_word *av) C_noret; C_noret_decl(f_9379) static void C_fcall f_9379(C_word t0,C_word t1) C_noret; C_noret_decl(f_9383) static void C_ccall f_9383(C_word c,C_word *av) C_noret; C_noret_decl(f_9396) static void C_ccall f_9396(C_word c,C_word *av) C_noret; C_noret_decl(f_9400) static void C_ccall f_9400(C_word c,C_word *av) C_noret; C_noret_decl(f_9403) static void C_ccall f_9403(C_word c,C_word *av) C_noret; C_noret_decl(f_9408) static void C_ccall f_9408(C_word c,C_word *av) C_noret; C_noret_decl(f_9410) static void C_fcall f_9410(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9435) static void C_ccall f_9435(C_word c,C_word *av) C_noret; C_noret_decl(f_9445) static void C_ccall f_9445(C_word c,C_word *av) C_noret; C_noret_decl(f_9450) static void C_ccall f_9450(C_word c,C_word *av) C_noret; C_noret_decl(f_9458) static void C_ccall f_9458(C_word c,C_word *av) C_noret; C_noret_decl(f_9460) static void C_ccall f_9460(C_word c,C_word *av) C_noret; C_noret_decl(f_9472) static void C_ccall f_9472(C_word c,C_word *av) C_noret; C_noret_decl(f_9477) static void C_ccall f_9477(C_word c,C_word *av) C_noret; C_noret_decl(f_9481) static void C_ccall f_9481(C_word c,C_word *av) C_noret; C_noret_decl(f_9485) static void C_ccall f_9485(C_word c,C_word *av) C_noret; C_noret_decl(f_9488) static void C_ccall f_9488(C_word c,C_word *av) C_noret; C_noret_decl(f_9494) static void C_ccall f_9494(C_word c,C_word *av) C_noret; C_noret_decl(f_9498) static void C_ccall f_9498(C_word c,C_word *av) C_noret; C_noret_decl(f_9508) static void C_ccall f_9508(C_word c,C_word *av) C_noret; C_noret_decl(f_9514) static void C_ccall f_9514(C_word c,C_word *av) C_noret; C_noret_decl(f_9518) static void C_ccall f_9518(C_word c,C_word *av) C_noret; C_noret_decl(f_9521) static void C_ccall f_9521(C_word c,C_word *av) C_noret; C_noret_decl(f_9539) static void C_ccall f_9539(C_word c,C_word *av) C_noret; C_noret_decl(f_9543) static void C_ccall f_9543(C_word c,C_word *av) C_noret; C_noret_decl(f_9547) static void C_ccall f_9547(C_word c,C_word *av) C_noret; C_noret_decl(f_9562) static void C_ccall f_9562(C_word c,C_word *av) C_noret; C_noret_decl(f_9566) static void C_ccall f_9566(C_word c,C_word *av) C_noret; C_noret_decl(f_9568) static void C_fcall f_9568(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9593) static void C_ccall f_9593(C_word c,C_word *av) C_noret; C_noret_decl(f_9622) static void C_ccall f_9622(C_word c,C_word *av) C_noret; C_noret_decl(f_9626) static void C_ccall f_9626(C_word c,C_word *av) C_noret; C_noret_decl(f_9641) static void C_ccall f_9641(C_word c,C_word *av) C_noret; C_noret_decl(f_9644) static void C_ccall f_9644(C_word c,C_word *av) C_noret; C_noret_decl(f_9647) static void C_ccall f_9647(C_word c,C_word *av) C_noret; C_noret_decl(f_9651) static C_word C_fcall f_9651(C_word t0,C_word t1); C_noret_decl(f_9670) static void C_ccall f_9670(C_word c,C_word *av) C_noret; C_noret_decl(f_9674) static void C_ccall f_9674(C_word c,C_word *av) C_noret; C_noret_decl(f_9678) static void C_ccall f_9678(C_word c,C_word *av) C_noret; C_noret_decl(f_9681) static void C_ccall f_9681(C_word c,C_word *av) C_noret; C_noret_decl(f_9687) static void C_ccall f_9687(C_word c,C_word *av) C_noret; C_noret_decl(f_9695) static void C_ccall f_9695(C_word c,C_word *av) C_noret; C_noret_decl(f_9701) static void C_ccall f_9701(C_word c,C_word *av) C_noret; C_noret_decl(f_9705) static void C_ccall f_9705(C_word c,C_word *av) C_noret; C_noret_decl(f_9708) static void C_ccall f_9708(C_word c,C_word *av) C_noret; C_noret_decl(f_9711) static C_word C_fcall f_9711(C_word t0,C_word t1); C_noret_decl(f_9736) static void C_ccall f_9736(C_word c,C_word *av) C_noret; C_noret_decl(f_9738) static void C_fcall f_9738(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9763) static void C_ccall f_9763(C_word c,C_word *av) C_noret; C_noret_decl(f_9779) static void C_ccall f_9779(C_word c,C_word *av) C_noret; C_noret_decl(f_9782) static void C_ccall f_9782(C_word c,C_word *av) C_noret; C_noret_decl(f_9785) static void C_fcall f_9785(C_word t0,C_word t1) C_noret; C_noret_decl(f_9788) static void C_ccall f_9788(C_word c,C_word *av) C_noret; C_noret_decl(f_9791) static void C_ccall f_9791(C_word c,C_word *av) C_noret; C_noret_decl(f_9794) static void C_ccall f_9794(C_word c,C_word *av) C_noret; C_noret_decl(f_9816) static void C_ccall f_9816(C_word c,C_word *av) C_noret; C_noret_decl(f_9820) static void C_ccall f_9820(C_word c,C_word *av) C_noret; C_noret_decl(f_9824) static void C_ccall f_9824(C_word c,C_word *av) C_noret; C_noret_decl(f_9838) static void C_ccall f_9838(C_word c,C_word *av) C_noret; C_noret_decl(f_9869) static void C_ccall f_9869(C_word c,C_word *av) C_noret; C_noret_decl(f_9891) static void C_ccall f_9891(C_word c,C_word *av) C_noret; C_noret_decl(f_9894) static void C_fcall f_9894(C_word t0,C_word t1) C_noret; C_noret_decl(f_9897) static void C_ccall f_9897(C_word c,C_word *av) C_noret; C_noret_decl(f_9945) static void C_ccall f_9945(C_word c,C_word *av) C_noret; C_noret_decl(f_9949) static void C_ccall f_9949(C_word c,C_word *av) C_noret; C_noret_decl(f_9953) static void C_ccall f_9953(C_word c,C_word *av) C_noret; C_noret_decl(f_9961) static void C_ccall f_9961(C_word c,C_word *av) C_noret; C_noret_decl(f_9971) static void C_fcall f_9971(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9975) static void C_ccall f_9975(C_word c,C_word *av) C_noret; C_noret_decl(f_9978) static void C_ccall f_9978(C_word c,C_word *av) C_noret; C_noret_decl(f_9985) static void C_fcall f_9985(C_word t0,C_word t1) C_noret; C_noret_decl(f_9989) static void C_ccall f_9989(C_word c,C_word *av) C_noret; C_noret_decl(f_9999) static void C_ccall f_9999(C_word c,C_word *av) C_noret; C_noret_decl(C_compiler_toplevel) C_externexport void C_ccall C_compiler_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(va25317) static void C_fcall va25317(C_word t0,C_word t1) C_noret; C_noret_decl(trf_10061) static void C_ccall trf_10061(C_word c,C_word *av) C_noret; static void C_ccall trf_10061(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10061(t0,t1,t2);} C_noret_decl(trf_10120) static void C_ccall trf_10120(C_word c,C_word *av) C_noret; static void C_ccall trf_10120(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10120(t0,t1,t2);} C_noret_decl(trf_10143) static void C_ccall trf_10143(C_word c,C_word *av) C_noret; static void C_ccall trf_10143(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10143(t0,t1,t2);} C_noret_decl(trf_10285) static void C_ccall trf_10285(C_word c,C_word *av) C_noret; static void C_ccall trf_10285(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10285(t0,t1,t2);} C_noret_decl(trf_10430) static void C_ccall trf_10430(C_word c,C_word *av) C_noret; static void C_ccall trf_10430(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10430(t0,t1,t2,t3);} C_noret_decl(trf_10453) static void C_ccall trf_10453(C_word c,C_word *av) C_noret; static void C_ccall trf_10453(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10453(t0,t1,t2);} C_noret_decl(trf_10614) static void C_ccall trf_10614(C_word c,C_word *av) C_noret; static void C_ccall trf_10614(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10614(t0,t1,t2);} C_noret_decl(trf_10700) static void C_ccall trf_10700(C_word c,C_word *av) C_noret; static void C_ccall trf_10700(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10700(t0,t1,t2);} C_noret_decl(trf_10712) static void C_ccall trf_10712(C_word c,C_word *av) C_noret; static void C_ccall trf_10712(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10712(t0,t1,t2);} C_noret_decl(trf_10782) static void C_ccall trf_10782(C_word c,C_word *av) C_noret; static void C_ccall trf_10782(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10782(t0,t1,t2);} C_noret_decl(trf_10795) static void C_ccall trf_10795(C_word c,C_word *av) C_noret; static void C_ccall trf_10795(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10795(t0,t1);} C_noret_decl(trf_10839) static void C_ccall trf_10839(C_word c,C_word *av) C_noret; static void C_ccall trf_10839(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10839(t0,t1,t2);} C_noret_decl(trf_10968) static void C_ccall trf_10968(C_word c,C_word *av) C_noret; static void C_ccall trf_10968(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10968(t0,t1,t2);} C_noret_decl(trf_11071) static void C_ccall trf_11071(C_word c,C_word *av) C_noret; static void C_ccall trf_11071(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11071(t0,t1,t2);} C_noret_decl(trf_11123) static void C_ccall trf_11123(C_word c,C_word *av) C_noret; static void C_ccall trf_11123(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11123(t0,t1,t2);} C_noret_decl(trf_11195) static void C_ccall trf_11195(C_word c,C_word *av) C_noret; static void C_ccall trf_11195(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11195(t0,t1);} C_noret_decl(trf_11424) static void C_ccall trf_11424(C_word c,C_word *av) C_noret; static void C_ccall trf_11424(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11424(t0,t1,t2);} C_noret_decl(trf_11442) static void C_ccall trf_11442(C_word c,C_word *av) C_noret; static void C_ccall trf_11442(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11442(t0,t1,t2);} C_noret_decl(trf_11539) static void C_ccall trf_11539(C_word c,C_word *av) C_noret; static void C_ccall trf_11539(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11539(t0,t1,t2);} C_noret_decl(trf_11678) static void C_ccall trf_11678(C_word c,C_word *av) C_noret; static void C_ccall trf_11678(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11678(t0,t1,t2);} C_noret_decl(trf_11884) static void C_ccall trf_11884(C_word c,C_word *av) C_noret; static void C_ccall trf_11884(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11884(t0,t1);} C_noret_decl(trf_11970) static void C_ccall trf_11970(C_word c,C_word *av) C_noret; static void C_ccall trf_11970(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11970(t0,t1);} C_noret_decl(trf_12048) static void C_ccall trf_12048(C_word c,C_word *av) C_noret; static void C_ccall trf_12048(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12048(t0,t1);} C_noret_decl(trf_12104) static void C_ccall trf_12104(C_word c,C_word *av) C_noret; static void C_ccall trf_12104(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12104(t0,t1);} C_noret_decl(trf_12471) static void C_ccall trf_12471(C_word c,C_word *av) C_noret; static void C_ccall trf_12471(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12471(t0,t1,t2);} C_noret_decl(trf_12496) static void C_ccall trf_12496(C_word c,C_word *av) C_noret; static void C_ccall trf_12496(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12496(t0,t1,t2);} C_noret_decl(trf_12720) static void C_ccall trf_12720(C_word c,C_word *av) C_noret; static void C_ccall trf_12720(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12720(t0,t1,t2,t3);} C_noret_decl(trf_12871) static void C_ccall trf_12871(C_word c,C_word *av) C_noret; static void C_ccall trf_12871(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12871(t0,t1,t2);} C_noret_decl(trf_12897) static void C_ccall trf_12897(C_word c,C_word *av) C_noret; static void C_ccall trf_12897(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12897(t0,t1,t2);} C_noret_decl(trf_13252) static void C_ccall trf_13252(C_word c,C_word *av) C_noret; static void C_ccall trf_13252(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_13252(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_13257) static void C_ccall trf_13257(C_word c,C_word *av) C_noret; static void C_ccall trf_13257(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13257(t0,t1,t2);} C_noret_decl(trf_13269) static void C_ccall trf_13269(C_word c,C_word *av) C_noret; static void C_ccall trf_13269(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13269(t0,t1,t2);} C_noret_decl(trf_13343) static void C_ccall trf_13343(C_word c,C_word *av) C_noret; static void C_ccall trf_13343(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13343(t0,t1,t2,t3);} C_noret_decl(trf_13378) static void C_ccall trf_13378(C_word c,C_word *av) C_noret; static void C_ccall trf_13378(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13378(t0,t1,t2);} C_noret_decl(trf_13385) static void C_ccall trf_13385(C_word c,C_word *av) C_noret; static void C_ccall trf_13385(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13385(t0,t1,t2);} C_noret_decl(trf_13406) static void C_ccall trf_13406(C_word c,C_word *av) C_noret; static void C_ccall trf_13406(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13406(t0,t1);} C_noret_decl(trf_13434) static void C_ccall trf_13434(C_word c,C_word *av) C_noret; static void C_ccall trf_13434(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13434(t0,t1);} C_noret_decl(trf_13502) static void C_ccall trf_13502(C_word c,C_word *av) C_noret; static void C_ccall trf_13502(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13502(t0,t1);} C_noret_decl(trf_13693) static void C_ccall trf_13693(C_word c,C_word *av) C_noret; static void C_ccall trf_13693(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13693(t0,t1,t2);} C_noret_decl(trf_13759) static void C_ccall trf_13759(C_word c,C_word *av) C_noret; static void C_ccall trf_13759(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13759(t0,t1,t2);} C_noret_decl(trf_13782) static void C_ccall trf_13782(C_word c,C_word *av) C_noret; static void C_ccall trf_13782(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13782(t0,t1,t2);} C_noret_decl(trf_13840) static void C_ccall trf_13840(C_word c,C_word *av) C_noret; static void C_ccall trf_13840(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13840(t0,t1,t2);} C_noret_decl(trf_13863) static void C_ccall trf_13863(C_word c,C_word *av) C_noret; static void C_ccall trf_13863(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13863(t0,t1,t2);} C_noret_decl(trf_13949) static void C_ccall trf_13949(C_word c,C_word *av) C_noret; static void C_ccall trf_13949(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13949(t0,t1,t2);} C_noret_decl(trf_13994) static void C_ccall trf_13994(C_word c,C_word *av) C_noret; static void C_ccall trf_13994(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13994(t0,t1,t2);} C_noret_decl(trf_14114) static void C_ccall trf_14114(C_word c,C_word *av) C_noret; static void C_ccall trf_14114(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14114(t0,t1,t2);} C_noret_decl(trf_14203) static void C_ccall trf_14203(C_word c,C_word *av) C_noret; static void C_ccall trf_14203(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14203(t0,t1,t2);} C_noret_decl(trf_14301) static void C_ccall trf_14301(C_word c,C_word *av) C_noret; static void C_ccall trf_14301(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14301(t0,t1,t2);} C_noret_decl(trf_14342) static void C_ccall trf_14342(C_word c,C_word *av) C_noret; static void C_ccall trf_14342(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14342(t0,t1,t2);} C_noret_decl(trf_14401) static void C_ccall trf_14401(C_word c,C_word *av) C_noret; static void C_ccall trf_14401(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14401(t0,t1,t2);} C_noret_decl(trf_14477) static void C_ccall trf_14477(C_word c,C_word *av) C_noret; static void C_ccall trf_14477(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14477(t0,t1,t2);} C_noret_decl(trf_14541) static void C_ccall trf_14541(C_word c,C_word *av) C_noret; static void C_ccall trf_14541(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14541(t0,t1);} C_noret_decl(trf_14595) static void C_ccall trf_14595(C_word c,C_word *av) C_noret; static void C_ccall trf_14595(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14595(t0,t1,t2);} C_noret_decl(trf_14660) static void C_ccall trf_14660(C_word c,C_word *av) C_noret; static void C_ccall trf_14660(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14660(t0,t1,t2);} C_noret_decl(trf_14714) static void C_ccall trf_14714(C_word c,C_word *av) C_noret; static void C_ccall trf_14714(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14714(t0,t1,t2);} C_noret_decl(trf_14769) static void C_ccall trf_14769(C_word c,C_word *av) C_noret; static void C_ccall trf_14769(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14769(t0,t1,t2);} C_noret_decl(trf_14801) static void C_ccall trf_14801(C_word c,C_word *av) C_noret; static void C_ccall trf_14801(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14801(t0,t1,t2);} C_noret_decl(trf_14808) static void C_ccall trf_14808(C_word c,C_word *av) C_noret; static void C_ccall trf_14808(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14808(t0,t1);} C_noret_decl(trf_14850) static void C_ccall trf_14850(C_word c,C_word *av) C_noret; static void C_ccall trf_14850(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14850(t0,t1);} C_noret_decl(trf_14965) static void C_ccall trf_14965(C_word c,C_word *av) C_noret; static void C_ccall trf_14965(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14965(t0,t1,t2);} C_noret_decl(trf_14993) static void C_ccall trf_14993(C_word c,C_word *av) C_noret; static void C_ccall trf_14993(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14993(t0,t1,t2);} C_noret_decl(trf_15000) static void C_ccall trf_15000(C_word c,C_word *av) C_noret; static void C_ccall trf_15000(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15000(t0,t1);} C_noret_decl(trf_15087) static void C_ccall trf_15087(C_word c,C_word *av) C_noret; static void C_ccall trf_15087(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15087(t0,t1,t2);} C_noret_decl(trf_15329) static void C_ccall trf_15329(C_word c,C_word *av) C_noret; static void C_ccall trf_15329(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_15329(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_15338) static void C_ccall trf_15338(C_word c,C_word *av) C_noret; static void C_ccall trf_15338(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15338(t0,t1,t2);} C_noret_decl(trf_15444) static void C_ccall trf_15444(C_word c,C_word *av) C_noret; static void C_ccall trf_15444(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15444(t0,t1);} C_noret_decl(trf_15551) static void C_ccall trf_15551(C_word c,C_word *av) C_noret; static void C_ccall trf_15551(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15551(t0,t1,t2,t3);} C_noret_decl(trf_15632) static void C_ccall trf_15632(C_word c,C_word *av) C_noret; static void C_ccall trf_15632(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15632(t0,t1,t2);} C_noret_decl(trf_15684) static void C_ccall trf_15684(C_word c,C_word *av) C_noret; static void C_ccall trf_15684(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15684(t0,t1,t2);} C_noret_decl(trf_15718) static void C_ccall trf_15718(C_word c,C_word *av) C_noret; static void C_ccall trf_15718(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15718(t0,t1,t2);} C_noret_decl(trf_15755) static void C_ccall trf_15755(C_word c,C_word *av) C_noret; static void C_ccall trf_15755(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15755(t0,t1,t2);} C_noret_decl(trf_15796) static void C_ccall trf_15796(C_word c,C_word *av) C_noret; static void C_ccall trf_15796(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15796(t0,t1,t2);} C_noret_decl(trf_15830) static void C_ccall trf_15830(C_word c,C_word *av) C_noret; static void C_ccall trf_15830(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15830(t0,t1,t2);} C_noret_decl(trf_15872) static void C_ccall trf_15872(C_word c,C_word *av) C_noret; static void C_ccall trf_15872(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15872(t0,t1);} C_noret_decl(trf_15912) static void C_ccall trf_15912(C_word c,C_word *av) C_noret; static void C_ccall trf_15912(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15912(t0,t1,t2);} C_noret_decl(trf_15946) static void C_ccall trf_15946(C_word c,C_word *av) C_noret; static void C_ccall trf_15946(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15946(t0,t1,t2);} C_noret_decl(trf_16024) static void C_ccall trf_16024(C_word c,C_word *av) C_noret; static void C_ccall trf_16024(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16024(t0,t1,t2);} C_noret_decl(trf_16030) static void C_ccall trf_16030(C_word c,C_word *av) C_noret; static void C_ccall trf_16030(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16030(t0,t1,t2);} C_noret_decl(trf_16049) static void C_ccall trf_16049(C_word c,C_word *av) C_noret; static void C_ccall trf_16049(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16049(t0,t1,t2);} C_noret_decl(trf_16106) static void C_ccall trf_16106(C_word c,C_word *av) C_noret; static void C_ccall trf_16106(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_16106(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_16157) static void C_ccall trf_16157(C_word c,C_word *av) C_noret; static void C_ccall trf_16157(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16157(t0,t1,t2);} C_noret_decl(trf_16181) static void C_ccall trf_16181(C_word c,C_word *av) C_noret; static void C_ccall trf_16181(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16181(t0,t1,t2,t3);} C_noret_decl(trf_16203) static void C_ccall trf_16203(C_word c,C_word *av) C_noret; static void C_ccall trf_16203(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16203(t0,t1);} C_noret_decl(trf_16324) static void C_ccall trf_16324(C_word c,C_word *av) C_noret; static void C_ccall trf_16324(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16324(t0,t1,t2,t3);} C_noret_decl(trf_16525) static void C_ccall trf_16525(C_word c,C_word *av) C_noret; static void C_ccall trf_16525(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16525(t0,t1);} C_noret_decl(trf_16696) static void C_ccall trf_16696(C_word c,C_word *av) C_noret; static void C_ccall trf_16696(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_16696(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_16842) static void C_ccall trf_16842(C_word c,C_word *av) C_noret; static void C_ccall trf_16842(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_16842(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_16858) static void C_ccall trf_16858(C_word c,C_word *av) C_noret; static void C_ccall trf_16858(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16858(t0,t1,t2,t3);} C_noret_decl(trf_16864) static void C_ccall trf_16864(C_word c,C_word *av) C_noret; static void C_ccall trf_16864(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16864(t0,t1,t2,t3);} C_noret_decl(trf_17002) static void C_ccall trf_17002(C_word c,C_word *av) C_noret; static void C_ccall trf_17002(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_17002(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_17024) static void C_ccall trf_17024(C_word c,C_word *av) C_noret; static void C_ccall trf_17024(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17024(t0,t1);} C_noret_decl(trf_17147) static void C_ccall trf_17147(C_word c,C_word *av) C_noret; static void C_ccall trf_17147(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_17147(t0,t1,t2,t3);} C_noret_decl(trf_17207) static void C_ccall trf_17207(C_word c,C_word *av) C_noret; static void C_ccall trf_17207(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17207(t0,t1,t2);} C_noret_decl(trf_17232) static void C_ccall trf_17232(C_word c,C_word *av) C_noret; static void C_ccall trf_17232(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17232(t0,t1,t2);} C_noret_decl(trf_17282) static void C_ccall trf_17282(C_word c,C_word *av) C_noret; static void C_ccall trf_17282(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17282(t0,t1,t2);} C_noret_decl(trf_17304) static void C_ccall trf_17304(C_word c,C_word *av) C_noret; static void C_ccall trf_17304(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17304(t0,t1);} C_noret_decl(trf_17307) static void C_ccall trf_17307(C_word c,C_word *av) C_noret; static void C_ccall trf_17307(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17307(t0,t1);} C_noret_decl(trf_17360) static void C_ccall trf_17360(C_word c,C_word *av) C_noret; static void C_ccall trf_17360(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17360(t0,t1,t2);} C_noret_decl(trf_17592) static void C_ccall trf_17592(C_word c,C_word *av) C_noret; static void C_ccall trf_17592(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_17592(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_17594) static void C_ccall trf_17594(C_word c,C_word *av) C_noret; static void C_ccall trf_17594(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17594(t0,t1,t2);} C_noret_decl(trf_17606) static void C_ccall trf_17606(C_word c,C_word *av) C_noret; static void C_ccall trf_17606(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17606(t0,t1,t2);} C_noret_decl(trf_17629) static void C_ccall trf_17629(C_word c,C_word *av) C_noret; static void C_ccall trf_17629(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_17629(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_17642) static void C_ccall trf_17642(C_word c,C_word *av) C_noret; static void C_ccall trf_17642(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17642(t0,t1);} C_noret_decl(trf_17654) static void C_ccall trf_17654(C_word c,C_word *av) C_noret; static void C_ccall trf_17654(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17654(t0,t1);} C_noret_decl(trf_17699) static void C_ccall trf_17699(C_word c,C_word *av) C_noret; static void C_ccall trf_17699(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17699(t0,t1);} C_noret_decl(trf_17782) static void C_ccall trf_17782(C_word c,C_word *av) C_noret; static void C_ccall trf_17782(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_17782(t0,t1,t2,t3);} C_noret_decl(trf_17974) static void C_ccall trf_17974(C_word c,C_word *av) C_noret; static void C_ccall trf_17974(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17974(t0,t1);} C_noret_decl(trf_17980) static void C_ccall trf_17980(C_word c,C_word *av) C_noret; static void C_ccall trf_17980(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17980(t0,t1);} C_noret_decl(trf_17986) static void C_ccall trf_17986(C_word c,C_word *av) C_noret; static void C_ccall trf_17986(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17986(t0,t1);} C_noret_decl(trf_17995) static void C_ccall trf_17995(C_word c,C_word *av) C_noret; static void C_ccall trf_17995(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17995(t0,t1);} C_noret_decl(trf_18016) static void C_ccall trf_18016(C_word c,C_word *av) C_noret; static void C_ccall trf_18016(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18016(t0,t1);} C_noret_decl(trf_18037) static void C_ccall trf_18037(C_word c,C_word *av) C_noret; static void C_ccall trf_18037(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18037(t0,t1);} C_noret_decl(trf_18141) static void C_ccall trf_18141(C_word c,C_word *av) C_noret; static void C_ccall trf_18141(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18141(t0,t1);} C_noret_decl(trf_18332) static void C_ccall trf_18332(C_word c,C_word *av) C_noret; static void C_ccall trf_18332(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18332(t0,t1);} C_noret_decl(trf_18357) static void C_ccall trf_18357(C_word c,C_word *av) C_noret; static void C_ccall trf_18357(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18357(t0,t1,t2);} C_noret_decl(trf_18364) static void C_ccall trf_18364(C_word c,C_word *av) C_noret; static void C_ccall trf_18364(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18364(t0,t1);} C_noret_decl(trf_18390) static void C_ccall trf_18390(C_word c,C_word *av) C_noret; static void C_ccall trf_18390(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18390(t0,t1,t2);} C_noret_decl(trf_18424) static void C_ccall trf_18424(C_word c,C_word *av) C_noret; static void C_ccall trf_18424(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18424(t0,t1);} C_noret_decl(trf_18549) static void C_ccall trf_18549(C_word c,C_word *av) C_noret; static void C_ccall trf_18549(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18549(t0,t1);} C_noret_decl(trf_18597) static void C_ccall trf_18597(C_word c,C_word *av) C_noret; static void C_ccall trf_18597(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18597(t0,t1,t2);} C_noret_decl(trf_18634) static void C_ccall trf_18634(C_word c,C_word *av) C_noret; static void C_ccall trf_18634(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18634(t0,t1);} C_noret_decl(trf_18708) static void C_ccall trf_18708(C_word c,C_word *av) C_noret; static void C_ccall trf_18708(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18708(t0,t1);} C_noret_decl(trf_18712) static void C_ccall trf_18712(C_word c,C_word *av) C_noret; static void C_ccall trf_18712(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18712(t0,t1,t2);} C_noret_decl(trf_18742) static void C_ccall trf_18742(C_word c,C_word *av) C_noret; static void C_ccall trf_18742(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18742(t0,t1,t2);} C_noret_decl(trf_18807) static void C_ccall trf_18807(C_word c,C_word *av) C_noret; static void C_ccall trf_18807(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18807(t0,t1,t2,t3);} C_noret_decl(trf_18813) static void C_ccall trf_18813(C_word c,C_word *av) C_noret; static void C_ccall trf_18813(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18813(t0,t1,t2,t3);} C_noret_decl(trf_18823) static void C_ccall trf_18823(C_word c,C_word *av) C_noret; static void C_ccall trf_18823(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18823(t0,t1,t2);} C_noret_decl(trf_18832) static void C_ccall trf_18832(C_word c,C_word *av) C_noret; static void C_ccall trf_18832(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_18832(t0,t1,t2,t3,t4);} C_noret_decl(trf_18869) static void C_ccall trf_18869(C_word c,C_word *av) C_noret; static void C_ccall trf_18869(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18869(t0,t1);} C_noret_decl(trf_18971) static void C_ccall trf_18971(C_word c,C_word *av) C_noret; static void C_ccall trf_18971(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18971(t0,t1,t2);} C_noret_decl(trf_18983) static void C_ccall trf_18983(C_word c,C_word *av) C_noret; static void C_ccall trf_18983(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18983(t0,t1,t2);} C_noret_decl(trf_19045) static void C_ccall trf_19045(C_word c,C_word *av) C_noret; static void C_ccall trf_19045(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19045(t0,t1);} C_noret_decl(trf_19063) static void C_ccall trf_19063(C_word c,C_word *av) C_noret; static void C_ccall trf_19063(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19063(t0,t1);} C_noret_decl(trf_19081) static void C_ccall trf_19081(C_word c,C_word *av) C_noret; static void C_ccall trf_19081(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19081(t0,t1);} C_noret_decl(trf_19266) static void C_ccall trf_19266(C_word c,C_word *av) C_noret; static void C_ccall trf_19266(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19266(t0,t1,t2);} C_noret_decl(trf_19278) static void C_ccall trf_19278(C_word c,C_word *av) C_noret; static void C_ccall trf_19278(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19278(t0,t1,t2);} C_noret_decl(trf_19358) static void C_ccall trf_19358(C_word c,C_word *av) C_noret; static void C_ccall trf_19358(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_19358(t0,t1,t2,t3,t4);} C_noret_decl(trf_19377) static void C_ccall trf_19377(C_word c,C_word *av) C_noret; static void C_ccall trf_19377(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19377(t0,t1);} C_noret_decl(trf_19411) static void C_ccall trf_19411(C_word c,C_word *av) C_noret; static void C_ccall trf_19411(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19411(t0,t1);} C_noret_decl(trf_19561) static void C_ccall trf_19561(C_word c,C_word *av) C_noret; static void C_ccall trf_19561(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19561(t0,t1);} C_noret_decl(trf_19584) static void C_ccall trf_19584(C_word c,C_word *av) C_noret; static void C_ccall trf_19584(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19584(t0,t1,t2);} C_noret_decl(trf_19641) static void C_ccall trf_19641(C_word c,C_word *av) C_noret; static void C_ccall trf_19641(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19641(t0,t1,t2);} C_noret_decl(trf_19727) static void C_ccall trf_19727(C_word c,C_word *av) C_noret; static void C_ccall trf_19727(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19727(t0,t1,t2,t3);} C_noret_decl(trf_19763) static void C_ccall trf_19763(C_word c,C_word *av) C_noret; static void C_ccall trf_19763(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19763(t0,t1,t2);} C_noret_decl(trf_19851) static void C_ccall trf_19851(C_word c,C_word *av) C_noret; static void C_ccall trf_19851(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19851(t0,t1,t2);} C_noret_decl(trf_19928) static void C_ccall trf_19928(C_word c,C_word *av) C_noret; static void C_ccall trf_19928(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19928(t0,t1,t2,t3);} C_noret_decl(trf_19976) static void C_ccall trf_19976(C_word c,C_word *av) C_noret; static void C_ccall trf_19976(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19976(t0,t1,t2);} C_noret_decl(trf_20035) static void C_ccall trf_20035(C_word c,C_word *av) C_noret; static void C_ccall trf_20035(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20035(t0,t1);} C_noret_decl(trf_20042) static void C_ccall trf_20042(C_word c,C_word *av) C_noret; static void C_ccall trf_20042(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20042(t0,t1,t2);} C_noret_decl(trf_20427) static void C_ccall trf_20427(C_word c,C_word *av) C_noret; static void C_ccall trf_20427(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_20427(t0,t1,t2,t3,t4);} C_noret_decl(trf_20432) static void C_ccall trf_20432(C_word c,C_word *av) C_noret; static void C_ccall trf_20432(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20432(t0,t1,t2);} C_noret_decl(trf_20444) static void C_ccall trf_20444(C_word c,C_word *av) C_noret; static void C_ccall trf_20444(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20444(t0,t1,t2);} C_noret_decl(trf_20478) static void C_ccall trf_20478(C_word c,C_word *av) C_noret; static void C_ccall trf_20478(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20478(t0,t1,t2,t3);} C_noret_decl(trf_20489) static void C_ccall trf_20489(C_word c,C_word *av) C_noret; static void C_ccall trf_20489(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20489(t0,t1,t2);} C_noret_decl(trf_20709) static void C_ccall trf_20709(C_word c,C_word *av) C_noret; static void C_ccall trf_20709(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_20709(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_20717) static void C_ccall trf_20717(C_word c,C_word *av) C_noret; static void C_ccall trf_20717(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20717(t0,t1,t2);} C_noret_decl(trf_20758) static void C_ccall trf_20758(C_word c,C_word *av) C_noret; static void C_ccall trf_20758(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20758(t0,t1,t2,t3);} C_noret_decl(trf_20765) static void C_ccall trf_20765(C_word c,C_word *av) C_noret; static void C_ccall trf_20765(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20765(t0,t1);} C_noret_decl(trf_20768) static void C_ccall trf_20768(C_word c,C_word *av) C_noret; static void C_ccall trf_20768(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20768(t0,t1);} C_noret_decl(trf_20814) static void C_ccall trf_20814(C_word c,C_word *av) C_noret; static void C_ccall trf_20814(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_20814(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_20833) static void C_ccall trf_20833(C_word c,C_word *av) C_noret; static void C_ccall trf_20833(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20833(t0,t1);} C_noret_decl(trf_20861) static void C_ccall trf_20861(C_word c,C_word *av) C_noret; static void C_ccall trf_20861(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20861(t0,t1);} C_noret_decl(trf_21060) static void C_ccall trf_21060(C_word c,C_word *av) C_noret; static void C_ccall trf_21060(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21060(t0,t1);} C_noret_decl(trf_21193) static void C_ccall trf_21193(C_word c,C_word *av) C_noret; static void C_ccall trf_21193(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21193(t0,t1);} C_noret_decl(trf_21416) static void C_ccall trf_21416(C_word c,C_word *av) C_noret; static void C_ccall trf_21416(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21416(t0,t1,t2);} C_noret_decl(trf_21455) static void C_ccall trf_21455(C_word c,C_word *av) C_noret; static void C_ccall trf_21455(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21455(t0,t1);} C_noret_decl(trf_21458) static void C_ccall trf_21458(C_word c,C_word *av) C_noret; static void C_ccall trf_21458(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21458(t0,t1);} C_noret_decl(trf_21545) static void C_ccall trf_21545(C_word c,C_word *av) C_noret; static void C_ccall trf_21545(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21545(t0,t1);} C_noret_decl(trf_21552) static void C_ccall trf_21552(C_word c,C_word *av) C_noret; static void C_ccall trf_21552(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21552(t0,t1);} C_noret_decl(trf_21555) static void C_ccall trf_21555(C_word c,C_word *av) C_noret; static void C_ccall trf_21555(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21555(t0,t1);} C_noret_decl(trf_21593) static void C_ccall trf_21593(C_word c,C_word *av) C_noret; static void C_ccall trf_21593(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21593(t0,t1);} C_noret_decl(trf_21630) static void C_ccall trf_21630(C_word c,C_word *av) C_noret; static void C_ccall trf_21630(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21630(t0,t1);} C_noret_decl(trf_21657) static void C_ccall trf_21657(C_word c,C_word *av) C_noret; static void C_ccall trf_21657(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21657(t0,t1);} C_noret_decl(trf_21678) static void C_ccall trf_21678(C_word c,C_word *av) C_noret; static void C_ccall trf_21678(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21678(t0,t1);} C_noret_decl(trf_21865) static void C_ccall trf_21865(C_word c,C_word *av) C_noret; static void C_ccall trf_21865(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_21865(t0,t1,t2,t3,t4);} C_noret_decl(trf_22024) static void C_ccall trf_22024(C_word c,C_word *av) C_noret; static void C_ccall trf_22024(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_22024(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_22029) static void C_ccall trf_22029(C_word c,C_word *av) C_noret; static void C_ccall trf_22029(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22029(t0,t1,t2);} C_noret_decl(trf_22041) static void C_ccall trf_22041(C_word c,C_word *av) C_noret; static void C_ccall trf_22041(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22041(t0,t1,t2);} C_noret_decl(trf_22075) static void C_ccall trf_22075(C_word c,C_word *av) C_noret; static void C_ccall trf_22075(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22075(t0,t1,t2);} C_noret_decl(trf_22132) static void C_ccall trf_22132(C_word c,C_word *av) C_noret; static void C_ccall trf_22132(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22132(t0,t1,t2);} C_noret_decl(trf_22176) static void C_ccall trf_22176(C_word c,C_word *av) C_noret; static void C_ccall trf_22176(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22176(t0,t1);} C_noret_decl(trf_6288) static void C_ccall trf_6288(C_word c,C_word *av) C_noret; static void C_ccall trf_6288(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_6288(t0,t1,t2,t3,t4);} C_noret_decl(trf_6491) static void C_ccall trf_6491(C_word c,C_word *av) C_noret; static void C_ccall trf_6491(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6491(t0,t1,t2);} C_noret_decl(trf_6497) static void C_ccall trf_6497(C_word c,C_word *av) C_noret; static void C_ccall trf_6497(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6497(t0,t1,t2);} C_noret_decl(trf_6531) static void C_ccall trf_6531(C_word c,C_word *av) C_noret; static void C_ccall trf_6531(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6531(t0,t1,t2);} C_noret_decl(trf_6555) static void C_ccall trf_6555(C_word c,C_word *av) C_noret; static void C_ccall trf_6555(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6555(t0,t1,t2);} C_noret_decl(trf_6561) static void C_ccall trf_6561(C_word c,C_word *av) C_noret; static void C_ccall trf_6561(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6561(t0,t1,t2,t3);} C_noret_decl(trf_6583) static void C_ccall trf_6583(C_word c,C_word *av) C_noret; static void C_ccall trf_6583(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6583(t0,t1);} C_noret_decl(trf_6589) static void C_ccall trf_6589(C_word c,C_word *av) C_noret; static void C_ccall trf_6589(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6589(t0,t1,t2);} C_noret_decl(trf_6611) static void C_ccall trf_6611(C_word c,C_word *av) C_noret; static void C_ccall trf_6611(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6611(t0,t1,t2,t3);} C_noret_decl(trf_6617) static void C_ccall trf_6617(C_word c,C_word *av) C_noret; static void C_ccall trf_6617(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6617(t0,t1,t2);} C_noret_decl(trf_6692) static void C_ccall trf_6692(C_word c,C_word *av) C_noret; static void C_ccall trf_6692(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6692(t0,t1,t2);} C_noret_decl(trf_6731) static void C_ccall trf_6731(C_word c,C_word *av) C_noret; static void C_ccall trf_6731(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6731(t0,t1,t2);} C_noret_decl(trf_6740) static void C_ccall trf_6740(C_word c,C_word *av) C_noret; static void C_ccall trf_6740(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6740(t0,t1,t2);} C_noret_decl(trf_6748) static void C_ccall trf_6748(C_word c,C_word *av) C_noret; static void C_ccall trf_6748(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6748(t0,t1,t2,t3);} C_noret_decl(trf_6784) static void C_ccall trf_6784(C_word c,C_word *av) C_noret; static void C_ccall trf_6784(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6784(t0,t1,t2);} C_noret_decl(trf_6792) static void C_ccall trf_6792(C_word c,C_word *av) C_noret; static void C_ccall trf_6792(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6792(t0,t1,t2,t3);} C_noret_decl(trf_6840) static void C_ccall trf_6840(C_word c,C_word *av) C_noret; static void C_ccall trf_6840(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6840(t0,t1);} C_noret_decl(trf_6857) static void C_ccall trf_6857(C_word c,C_word *av) C_noret; static void C_ccall trf_6857(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6857(t0,t1,t2);} C_noret_decl(trf_6922) static void C_ccall trf_6922(C_word c,C_word *av) C_noret; static void C_ccall trf_6922(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6922(t0,t1,t2,t3);} C_noret_decl(trf_6956) static void C_ccall trf_6956(C_word c,C_word *av) C_noret; static void C_ccall trf_6956(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6956(t0,t1,t2,t3);} C_noret_decl(trf_6991) static void C_ccall trf_6991(C_word c,C_word *av) C_noret; static void C_ccall trf_6991(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6991(t0,t1,t2);} C_noret_decl(trf_6997) static void C_ccall trf_6997(C_word c,C_word *av) C_noret; static void C_ccall trf_6997(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6997(t0,t1,t2,t3);} C_noret_decl(trf_7042) static void C_ccall trf_7042(C_word c,C_word *av) C_noret; static void C_ccall trf_7042(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7042(t0,t1,t2,t3);} C_noret_decl(trf_7067) static void C_ccall trf_7067(C_word c,C_word *av) C_noret; static void C_ccall trf_7067(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7067(t0,t1,t2,t3);} C_noret_decl(trf_7115) static void C_ccall trf_7115(C_word c,C_word *av) C_noret; static void C_ccall trf_7115(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7115(t0,t1,t2);} C_noret_decl(trf_7334) static void C_ccall trf_7334(C_word c,C_word *av) C_noret; static void C_ccall trf_7334(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7334(t0,t1,t2);} C_noret_decl(trf_7531) static void C_ccall trf_7531(C_word c,C_word *av) C_noret; static void C_ccall trf_7531(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7531(t0,t1,t2);} C_noret_decl(trf_7605) static void C_ccall trf_7605(C_word c,C_word *av) C_noret; static void C_ccall trf_7605(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7605(t0,t1,t2);} C_noret_decl(trf_7634) static void C_ccall trf_7634(C_word c,C_word *av) C_noret; static void C_ccall trf_7634(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7634(t0,t1,t2,t3);} C_noret_decl(trf_7647) static void C_ccall trf_7647(C_word c,C_word *av) C_noret; static void C_ccall trf_7647(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7647(t0,t1);} C_noret_decl(trf_7669) static void C_ccall trf_7669(C_word c,C_word *av) C_noret; static void C_ccall trf_7669(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7669(t0,t1,t2);} C_noret_decl(trf_7709) static void C_ccall trf_7709(C_word c,C_word *av) C_noret; static void C_ccall trf_7709(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7709(t0,t1,t2);} C_noret_decl(trf_7722) static void C_ccall trf_7722(C_word c,C_word *av) C_noret; static void C_ccall trf_7722(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7722(t0,t1);} C_noret_decl(trf_7749) static void C_ccall trf_7749(C_word c,C_word *av) C_noret; static void C_ccall trf_7749(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_7749(t0,t1,t2,t3,t4);} C_noret_decl(trf_7778) static void C_ccall trf_7778(C_word c,C_word *av) C_noret; static void C_ccall trf_7778(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7778(t0,t1,t2);} C_noret_decl(trf_7795) static void C_ccall trf_7795(C_word c,C_word *av) C_noret; static void C_ccall trf_7795(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7795(t0,t1,t2,t3);} C_noret_decl(trf_7887) static void C_ccall trf_7887(C_word c,C_word *av) C_noret; static void C_ccall trf_7887(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_7887(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_7910) static void C_ccall trf_7910(C_word c,C_word *av) C_noret; static void C_ccall trf_7910(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7910(t0,t1,t2);} C_noret_decl(trf_7924) static void C_ccall trf_7924(C_word c,C_word *av) C_noret; static void C_ccall trf_7924(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7924(t0,t1,t2);} C_noret_decl(trf_7938) static void C_ccall trf_7938(C_word c,C_word *av) C_noret; static void C_ccall trf_7938(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7938(t0,t1,t2);} C_noret_decl(trf_7977) static void C_ccall trf_7977(C_word c,C_word *av) C_noret; static void C_ccall trf_7977(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7977(t0,t1,t2);} C_noret_decl(trf_8098) static void C_ccall trf_8098(C_word c,C_word *av) C_noret; static void C_ccall trf_8098(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8098(t0,t1,t2);} C_noret_decl(trf_8152) static void C_ccall trf_8152(C_word c,C_word *av) C_noret; static void C_ccall trf_8152(C_word c,C_word *av){ C_word t0=av[8]; C_word t1=av[7]; C_word t2=av[6]; C_word t3=av[5]; C_word t4=av[4]; C_word t5=av[3]; C_word t6=av[2]; C_word t7=av[1]; C_word t8=av[0]; f_8152(t0,t1,t2,t3,t4,t5,t6,t7,t8);} C_noret_decl(trf_8233) static void C_ccall trf_8233(C_word c,C_word *av) C_noret; static void C_ccall trf_8233(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8233(t0,t1,t2);} C_noret_decl(trf_8386) static void C_ccall trf_8386(C_word c,C_word *av) C_noret; static void C_ccall trf_8386(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8386(t0,t1,t2);} C_noret_decl(trf_8417) static void C_ccall trf_8417(C_word c,C_word *av) C_noret; static void C_ccall trf_8417(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8417(t0,t1,t2);} C_noret_decl(trf_8496) static void C_ccall trf_8496(C_word c,C_word *av) C_noret; static void C_ccall trf_8496(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8496(t0,t1);} C_noret_decl(trf_8663) static void C_ccall trf_8663(C_word c,C_word *av) C_noret; static void C_ccall trf_8663(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8663(t0,t1,t2,t3);} C_noret_decl(trf_8737) static void C_ccall trf_8737(C_word c,C_word *av) C_noret; static void C_ccall trf_8737(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8737(t0,t1,t2,t3);} C_noret_decl(trf_8789) static void C_ccall trf_8789(C_word c,C_word *av) C_noret; static void C_ccall trf_8789(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8789(t0,t1,t2);} C_noret_decl(trf_8900) static void C_ccall trf_8900(C_word c,C_word *av) C_noret; static void C_ccall trf_8900(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8900(t0,t1,t2);} C_noret_decl(trf_8934) static void C_ccall trf_8934(C_word c,C_word *av) C_noret; static void C_ccall trf_8934(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8934(t0,t1,t2);} C_noret_decl(trf_9073) static void C_ccall trf_9073(C_word c,C_word *av) C_noret; static void C_ccall trf_9073(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9073(t0,t1,t2,t3);} C_noret_decl(trf_9121) static void C_ccall trf_9121(C_word c,C_word *av) C_noret; static void C_ccall trf_9121(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9121(t0,t1,t2,t3);} C_noret_decl(trf_9169) static void C_ccall trf_9169(C_word c,C_word *av) C_noret; static void C_ccall trf_9169(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9169(t0,t1,t2);} C_noret_decl(trf_9203) static void C_ccall trf_9203(C_word c,C_word *av) C_noret; static void C_ccall trf_9203(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9203(t0,t1,t2);} C_noret_decl(trf_9294) static void C_ccall trf_9294(C_word c,C_word *av) C_noret; static void C_ccall trf_9294(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9294(t0,t1);} C_noret_decl(trf_9379) static void C_ccall trf_9379(C_word c,C_word *av) C_noret; static void C_ccall trf_9379(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9379(t0,t1);} C_noret_decl(trf_9410) static void C_ccall trf_9410(C_word c,C_word *av) C_noret; static void C_ccall trf_9410(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9410(t0,t1,t2);} C_noret_decl(trf_9568) static void C_ccall trf_9568(C_word c,C_word *av) C_noret; static void C_ccall trf_9568(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9568(t0,t1,t2);} C_noret_decl(trf_9738) static void C_ccall trf_9738(C_word c,C_word *av) C_noret; static void C_ccall trf_9738(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9738(t0,t1,t2);} C_noret_decl(trf_9785) static void C_ccall trf_9785(C_word c,C_word *av) C_noret; static void C_ccall trf_9785(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9785(t0,t1);} C_noret_decl(trf_9894) static void C_ccall trf_9894(C_word c,C_word *av) C_noret; static void C_ccall trf_9894(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9894(t0,t1);} C_noret_decl(trf_9971) static void C_ccall trf_9971(C_word c,C_word *av) C_noret; static void C_ccall trf_9971(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9971(t0,t1,t2);} C_noret_decl(trf_9985) static void C_ccall trf_9985(C_word c,C_word *av) C_noret; static void C_ccall trf_9985(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9985(t0,t1);} C_noret_decl(trva25317) static void C_ccall trva25317(C_word c,C_word *av) C_noret; static void C_ccall trva25317(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; va25317(t0,t1);} /* f24314 in k10472 in k10455 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in ... */ static void C_ccall f24314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f24314,2,av);} /* core.scm:1030: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}} /* f24318 in k10455 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in ... */ static void C_ccall f24318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f24318,2,av);} /* core.scm:1030: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}} /* f24617 in k12197 in k12232 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f24617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f24617,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[329]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10001 in k9997 in k9976 in k9973 in g1631 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_10003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10003,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_9985(t2,C_a_i_cons(&a,2,((C_word*)t0)[3],t1));} /* k10005 in k9976 in k9973 in g1631 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_10007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10007,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); /* core.scm:932: ##sys#ensure-transformer */ t4=*((C_word*)lf[186]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k10026 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_10028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_10028,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10031,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* core.scm:938: chicken.compiler.support#get-line */ t4=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10029 in k10026 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_10031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_10031,2,av);} a=C_alloc(17); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10039,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10084,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t3,a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10098,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* core.scm:939: scheme#dynamic-wind */ t7=*((C_word*)lf[206]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=((C_word*)t0)[12]; av2[2]=t4; av2[3]=t5; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* a10038 in k10029 in k10026 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_10039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10039,2,av);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10061,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_10061(t6,t1,((C_word*)t0)[2]);} /* for-each-loop1658 in a10038 in k10029 in k10026 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_10061(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_10061,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10071,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_car(t4); t6=C_i_cadr(t4); /* core.scm:943: ##sys#put! */ t7=*((C_word*)lf[107]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t5; av2[3]=lf[200]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10069 in for-each-loop1658 in a10038 in k10029 in k10026 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_10071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10071,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10061(t3,((C_word*)t0)[4],t2);} /* a10083 in k10029 in k10026 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_10084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_10084,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10092,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t3=C_i_cddr(((C_word*)t0)[9]); /* core.scm:947: canonicalize-body/ln */ t4=((C_word*)((C_word*)t0)[10])[1]; f_7749(t4,t2,((C_word*)t0)[7],t3,*((C_word*)lf[51]+1));} /* k10090 in a10083 in k10029 in k10026 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_10092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_10092,2,av);} /* core.scm:946: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* a10097 in k10029 in k10026 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_10098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10098,2,av);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10120,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_10120(t6,t1,((C_word*)t0)[2]);} /* for-each-loop1676 in a10097 in k10029 in k10026 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_10120(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_10120,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10130,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_car(t4); t6=C_i_caddr(t4); /* core.scm:953: ##sys#put! */ t7=*((C_word*)lf[107]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t5; av2[3]=lf[200]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10128 in for-each-loop1676 in a10097 in k10029 in k10026 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_10130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10130,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10120(t3,((C_word*)t0)[4],t2);} /* map-loop1625 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_10143(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10143,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10168,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:924: g1631 */ t5=((C_word*)t0)[4]; f_9971(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10166 in map-loop1625 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_10168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10168,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10143(t6,((C_word*)t0)[5],t5);} /* a10185 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_10186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10186,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[209]+1)); t3=C_mutate((C_word*)lf[209]+1 /* (set! ##sys#default-read-info-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a10190 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_10191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_10191,2,av);} a=C_alloc(11); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_i_caddr(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10205,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* core.scm:960: ##sys#include-forms-from-file */ t5=*((C_word*)lf[210]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* a10204 in a10190 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_10205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,8)))){ C_save_and_reclaim((void *)f_10205,3,av);} a=C_alloc(15); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10213,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_i_cdddr(((C_word*)t0)[9]); if(C_truep(C_i_pairp(t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10223,a[2]=((C_word*)t0)[10],a[3]=t3,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); t6=C_i_cadddr(((C_word*)t0)[9]); /* core.scm:967: scheme#append */ t7=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=t2; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=C_a_i_cons(&a,2,lf[180],t2); /* core.scm:964: walk */ t6=((C_word*)((C_word*)t0)[2])[1]; f_8152(t6,t1,t5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}} /* k10211 in a10204 in a10190 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_10213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_10213,2,av);} /* core.scm:964: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k10221 in a10204 in a10190 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_10223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10223,2,av);} /* core.scm:965: canonicalize-body/ln */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7749(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,*((C_word*)lf[51]+1));} /* a10235 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_10236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10236,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[209]+1)); t3=C_mutate((C_word*)lf[209]+1 /* (set! ##sys#default-read-info-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10255 in map-loop1708 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_10257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10257,2,av);} /* core.scm:976: chicken.syntax#strip-syntax */ t2=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10267 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_10269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_10269,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10271,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* core.scm:973: ##sys#with-module-aliases */ t3=*((C_word*)lf[212]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[9]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a10270 in k10267 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_10271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_10271,2,av);} a=C_alloc(3); t2=C_i_cddr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[180],t2); /* core.scm:979: walk */ t4=((C_word*)((C_word*)t0)[3])[1]; f_8152(t4,t1,t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_TRUE);} /* map-loop1708 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_10285(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_10285,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10310,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10257,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* core.scm:975: ##sys#check-syntax */ t8=*((C_word*)lf[198]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=lf[213]; av2[3]=t6; av2[4]=lf[214]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10308 in map-loop1708 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_10310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10310,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10285(t6,((C_word*)t0)[5],t5);} /* k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_10326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_10326,2,av);} a=C_alloc(12); t2=t1; t3=*((C_word*)lf[17]+1); t4=(C_truep(*((C_word*)lf[17]+1))?*((C_word*)lf[17]+1):t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10332,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t5,a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); /* core.scm:984: chicken.internal#module-requirement */ t7=*((C_word*)lf[257]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_10332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_10332,2,av);} a=C_alloc(27); t2=t1; t3=C_i_caddr(((C_word*)t0)[2]); t4=C_eqp(C_SCHEME_TRUE,t3); t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10338,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); if(C_truep(t4)){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=t4; f_10338(2,av2);}} else{ t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10782,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10831,a[2]=t8,a[3]=t10,a[4]=t9,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t12=((C_word*)t0)[2]; t13=C_u_i_cdr(t12); t14=C_u_i_cdr(t13); t15=C_u_i_car(t14); /* core.scm:999: chicken.syntax#strip-syntax */ t16=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t16; av2[1]=t11; av2[2]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}} /* k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_10338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_10338,2,av);} a=C_alloc(19); t2=t1; t3=((C_word*)((C_word*)t0)[2])[1]; t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10341,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t2,a[10]=((C_word*)t0)[2],a[11]=t3,a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],tmp=(C_word)a,a+=15,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10775,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:1001: ##sys#current-module */ t6=*((C_word*)lf[194]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_10341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_10341,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10346,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10604,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[13],tmp=(C_word)a,a+=10,tmp); /* core.scm:1004: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[14]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_10346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_10346,2,av);} a=C_alloc(13); t2=*((C_word*)lf[194]+1); t3=*((C_word*)lf[105]+1); t4=*((C_word*)lf[216]+1); t5=*((C_word*)lf[217]+1); t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10350,a[2]=t5,a[3]=t4,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=t1,tmp=(C_word)a,a+=13,tmp); /* core.scm:1006: ##sys#register-module */ t7=*((C_word*)lf[249]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[8]; av2[4]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_10350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_10350,2,av);} a=C_alloc(15); t2=t1; t3=*((C_word*)lf[218]+1); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10353,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],tmp=(C_word)a,a+=15,tmp); /* core.scm:1011: ##sys#module-alias-environment */ t5=*((C_word*)lf[217]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_10353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,4)))){ C_save_and_reclaim((void *)f_10353,2,av);} a=C_alloc(39); t2=((C_word*)t0)[2]; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t0)[3]; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=t1; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_TRUE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10358,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=t11,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10414,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[13],tmp=(C_word)a,a+=8,tmp); t14=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10573,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* core.scm:1005: ##sys#dynamic-wind */ t15=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=((C_word*)t0)[14]; av2[2]=t12; av2[3]=t13; av2[4]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} /* a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_10358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_10358,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10362,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* core.scm:1005: ##sys#current-module1792 */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_10362(2,av2);}}} /* k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_10362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_10362,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10365,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* core.scm:1005: ##sys#current-environment1793 */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_10365(2,av2);}}} /* k10363 in k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_10365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_10365,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10368,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* core.scm:1005: ##sys#macro-environment1794 */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[4])[1]; f_10368(2,av2);}}} /* k10366 in k10363 in k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_10368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_10368,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10371,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* core.scm:1005: ##sys#module-alias-environment1795 */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[5])[1]; f_10371(2,av2);}}} /* k10369 in k10366 in k10363 in k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_ccall f_10371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_10371,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* core.scm:1005: ##sys#current-module1792 */ t4=((C_word*)t0)[13];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10373 in k10369 in k10366 in k10363 in k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_10375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_10375,2,av);} a=C_alloc(15); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10379,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp); /* core.scm:1005: ##sys#current-environment1793 */ t4=((C_word*)t0)[12];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10377 in k10373 in k10369 in k10366 in k10363 in k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_10379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_10379,2,av);} a=C_alloc(14); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10383,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp); /* core.scm:1005: ##sys#macro-environment1794 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10381 in k10377 in k10373 in k10369 in k10366 in k10363 in k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in ... */ static void C_ccall f_10383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_10383,2,av);} a=C_alloc(13); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10387,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp); /* core.scm:1005: ##sys#module-alias-environment1795 */ t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10385 in k10381 in k10377 in k10373 in k10369 in k10366 in k10363 in k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in ... */ static void C_ccall f_10387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_10387,2,av);} a=C_alloc(10); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10390,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* core.scm:1005: ##sys#current-module1792 */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[12]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10388 in k10385 in k10381 in k10377 in k10373 in k10369 in k10366 in k10363 in k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in ... */ static void C_ccall f_10390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_10390,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* core.scm:1005: ##sys#current-environment1793 */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10391 in k10388 in k10385 in k10381 in k10377 in k10373 in k10369 in k10366 in k10363 in k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in ... */ static void C_ccall f_10393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10393,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10396,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:1005: ##sys#macro-environment1794 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10394 in k10391 in k10388 in k10385 in k10381 in k10377 in k10373 in k10369 in k10366 in k10363 in k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in ... */ static void C_ccall f_10396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10396,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10399,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1005: ##sys#module-alias-environment1795 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10397 in k10394 in k10391 in k10388 in k10385 in k10381 in k10377 in k10373 in k10369 in k10366 in k10363 in k10360 in a10357 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in ... */ static void C_ccall f_10399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10399,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_10414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10414,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10420,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* core.scm:1012: ##sys#with-property-restore */ t3=*((C_word*)lf[248]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_10420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_10420,2,av);} a=C_alloc(10); t2=C_i_cdddr(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10430,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_10430(t6,t1,t2,C_SCHEME_END_OF_LIST);} /* loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_fcall f_10430(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,8)))){ C_save_and_reclaim_args((void *)trf_10430,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10440,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10507,tmp=(C_word)a,a+=2,tmp); /* core.scm:1017: scheme#call-with-current-continuation */ t6=*((C_word*)lf[247]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=C_i_cdr(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10569,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=t2; t8=C_u_i_car(t7); /* core.scm:1041: walk */ t9=((C_word*)((C_word*)t0)[4])[1]; f_8152(t9,t6,t8,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_TRUE);}} /* k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_10440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10440,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10443,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1017: g1847 */ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_ccall f_10443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10443,2,av);} a=C_alloc(4); t2=C_i_assq(((C_word*)t0)[2],*((C_word*)lf[43]+1)); t3=(C_truep(t2)?t2:*((C_word*)lf[44]+1)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10453,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:1023: g1862 */ t5=t4; f_10453(t5,((C_word*)t0)[4],t3);} else{ if(C_truep(C_i_not(*((C_word*)lf[46]+1)))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10490,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* core.scm:1032: scheme#reverse */ t5=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10497,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* core.scm:1035: scheme#reverse */ t5=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}} /* g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_fcall f_10453(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_10453,3,t0,t1,t2);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10457,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=t3; t5=((C_word*)t0)[3]; t6=t2; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8057,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(*((C_word*)lf[44]+1))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8146,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* core.scm:603: scheme#symbol->string */ t9=*((C_word*)lf[241]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_i_cdr(t6); f_8057(2,av2);}}} /* k10455 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_10457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10457,2,av);} a=C_alloc(4); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10474,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:1029: delete */ f_6611(t2,((C_word*)t0)[2],*((C_word*)lf[43]+1),*((C_word*)lf[220]+1));} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f24318,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* core.scm:1030: scheme#reverse */ t3=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k10472 in k10455 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in ... */ static void C_ccall f_10474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10474,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[43]+1 /* (set! chicken.compiler.core#import-libraries ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f24314,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1030: scheme#reverse */ t4=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10488 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_10490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10490,2,av);} /* core.scm:1032: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}} /* k10495 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_10497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_10497,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10501,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10505,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* core.scm:1037: ##sys#current-module */ t5=*((C_word*)lf[194]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10499 in k10495 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_10501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10501,2,av);} /* core.scm:1034: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_values(4,av2);}} /* k10503 in k10495 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_10505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10505,2,av);} /* core.scm:1036: ##sys#compiled-module-registration */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a10506 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_10507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10507,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10513,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10528,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:1017: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a10512 in a10506 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_ccall f_10513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10513,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10519,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:1017: k1844 */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a10518 in a10512 in a10506 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_10519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10519,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10523,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* core.scm:1020: chicken.condition#print-error-message */ t3=*((C_word*)lf[243]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=*((C_word*)lf[244]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10521 in a10518 in a10512 in a10506 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_10523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10523,2,av);} /* core.scm:1021: chicken.base#exit */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a10527 in a10506 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_ccall f_10528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10528,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10534,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10544,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1017: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a10533 in a10527 in a10506 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_10534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10534,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10542,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* core.scm:1022: ##sys#current-module */ t3=*((C_word*)lf[194]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10540 in a10533 in a10527 in a10506 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_10542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10542,2,av);} /* core.scm:1022: ##sys#finalize-module */ t2=*((C_word*)lf[245]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a10543 in a10527 in a10506 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_10544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_10544,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10550,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:1017: k1844 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a10549 in a10543 in a10527 in a10506 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_10550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10550,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k10567 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_10569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10569,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* core.scm:1039: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10430(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* a10572 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_10573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_10573,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10577,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* core.scm:1005: ##sys#current-module1792 */ t3=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10575 in a10572 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_10577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_10577,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10580,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* core.scm:1005: ##sys#current-environment1793 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10578 in k10575 in a10572 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_10580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_10580,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10583,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* core.scm:1005: ##sys#macro-environment1794 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10581 in k10578 in k10575 in a10572 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_10583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_10583,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10586,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* core.scm:1005: ##sys#module-alias-environment1795 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10584 in k10581 in k10578 in k10575 in a10572 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_ccall f_10586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_10586,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10589,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* core.scm:1005: ##sys#current-module1792 */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10587 in k10584 in k10581 in k10578 in k10575 in a10572 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_10589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_10589,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10592,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* core.scm:1005: ##sys#current-environment1793 */ t3=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10590 in k10587 in k10584 in k10581 in k10578 in k10575 in a10572 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_10592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_10592,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10595,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* core.scm:1005: ##sys#macro-environment1794 */ t3=((C_word*)t0)[12];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10593 in k10590 in k10587 in k10584 in k10581 in k10578 in k10575 in a10572 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in ... */ static void C_ccall f_10595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_10595,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10598,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* core.scm:1005: ##sys#module-alias-environment1795 */ t3=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[8])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10596 in k10593 in k10590 in k10587 in k10584 in k10581 in k10578 in k10575 in a10572 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in ... */ static void C_ccall f_10598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10598,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]); t6=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_10604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_10604,4,av);} a=C_alloc(22); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10608,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10640,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=*((C_word*)lf[194]+1); t9=*((C_word*)lf[216]+1); t10=*((C_word*)lf[105]+1); t11=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10644,a[2]=t7,a[3]=t4,a[4]=t10,a[5]=t9,a[6]=t8,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=t5,tmp=(C_word)a,a+=14,tmp); /* core.scm:1051: ##sys#meta-macro-environment */ t12=*((C_word*)lf[252]+1);{ C_word *av2=av; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} /* k10606 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_10608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_10608,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10611,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10614,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_10614(t7,t3,((C_word*)((C_word*)t0)[2])[1]);} /* k10609 in k10606 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_10611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10611,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop1958 in k10606 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_fcall f_10614(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_10614,3,t0,t1,t2);} a=C_alloc(5); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10624,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_i_caar(t2); t6=t2; t7=C_u_i_car(t6); t8=C_u_i_cdr(t7); /* core.scm:1064: ##sys#put! */ t9=*((C_word*)lf[107]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t4; av2[2]=t5; av2[3]=lf[200]; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* k10622 in doloop1958 in k10606 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_10624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10624,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)((C_word*)t0)[3])[1]; f_10614(t4,((C_word*)t0)[4],t3);} /* k10638 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_10640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10640,2,av);} /* core.scm:1047: chicken.compiler.support#canonicalize-begin-body */ t2=*((C_word*)lf[250]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_10644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_10644,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10647,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* core.scm:1053: ##sys#current-meta-environment */ t4=*((C_word*)lf[251]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_10647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,4)))){ C_save_and_reclaim((void *)f_10647,2,av);} a=C_alloc(38); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=((C_word*)t0)[2]; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=t1; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_TRUE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10650,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10652,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10695,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[13],a[8]=((C_word*)t0)[14],tmp=(C_word)a,a+=9,tmp); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10750,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* core.scm:1049: ##sys#dynamic-wind */ t14=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t14; av2[1]=t10; av2[2]=t11; av2[3]=t12; av2[4]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}} /* k10648 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_10650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10650,2,av);} /* core.scm:1048: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a10651 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_10652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_10652,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10656,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* core.scm:1049: ##sys#current-module1886 */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_10656(2,av2);}}} /* k10654 in a10651 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_10656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_10656,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10659,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* core.scm:1049: ##sys#macro-environment1887 */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_10659(2,av2);}}} /* k10657 in k10654 in a10651 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_10659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_10659,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10662,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* core.scm:1049: ##sys#current-environment1888 */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[4])[1]; f_10662(2,av2);}}} /* k10660 in k10657 in k10654 in a10651 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_10662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_10662,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10666,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* core.scm:1049: ##sys#current-module1886 */ t4=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10664 in k10660 in k10657 in k10654 in a10651 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_ccall f_10666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_10666,2,av);} a=C_alloc(12); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10670,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); /* core.scm:1049: ##sys#macro-environment1887 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10668 in k10664 in k10660 in k10657 in k10654 in a10651 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_10670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_10670,2,av);} a=C_alloc(11); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10674,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); /* core.scm:1049: ##sys#current-environment1888 */ t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10672 in k10668 in k10664 in k10660 in k10657 in k10654 in a10651 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_10674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_10674,2,av);} a=C_alloc(8); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10677,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* core.scm:1049: ##sys#current-module1886 */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10675 in k10672 in k10668 in k10664 in k10660 in k10657 in k10654 in a10651 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in ... */ static void C_ccall f_10677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10677,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10680,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:1049: ##sys#macro-environment1887 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10678 in k10675 in k10672 in k10668 in k10664 in k10660 in k10657 in k10654 in a10651 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in ... */ static void C_ccall f_10680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10680,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1049: ##sys#current-environment1888 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10681 in k10678 in k10675 in k10672 in k10668 in k10664 in k10660 in k10657 in k10654 in a10651 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in ... */ static void C_ccall f_10683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10683,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a10694 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_10695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_10695,2,av);} a=C_alloc(29); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10700,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t7=C_a_i_list(&a,2,lf[153],((C_word*)t0)[7]); t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[8]); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10712,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_10712(t12,t1,t8);} /* g1928 in a10694 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_fcall f_10700(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){ C_save_and_reclaim_args((void *)trf_10700,3,t0,t1,t2);} /* core.scm:1056: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_8152(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* map-loop1922 in a10694 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_fcall f_10712(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10712,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10737,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:1054: g1928 */ t5=((C_word*)t0)[4]; f_10700(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10735 in map-loop1922 in a10694 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_10737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10737,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10712(t6,((C_word*)t0)[5],t5);} /* a10749 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_10750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_10750,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10754,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* core.scm:1049: ##sys#current-module1886 */ t3=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10752 in a10749 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_10754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10754,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10757,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* core.scm:1049: ##sys#macro-environment1887 */ t4=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10755 in k10752 in a10749 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_10757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_10757,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10760,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* core.scm:1049: ##sys#current-environment1888 */ t4=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10758 in k10755 in k10752 in a10749 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_10760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_10760,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10763,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* core.scm:1049: ##sys#current-module1886 */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10761 in k10758 in k10755 in k10752 in a10749 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_ccall f_10763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_10763,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10766,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* core.scm:1049: ##sys#macro-environment1887 */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10764 in k10761 in k10758 in k10755 in k10752 in a10749 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_10766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_10766,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10769,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* core.scm:1049: ##sys#current-environment1888 */ t3=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10767 in k10764 in k10761 in k10758 in k10755 in k10752 in a10749 in k10645 in k10642 in a10603 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_10769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10769,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10773 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_10775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10775,2,av);} if(C_truep(t1)){ /* core.scm:1002: ##sys#syntax-error-hook */ t2=*((C_word*)lf[253]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[254]; av2[3]=lf[255]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_10341(2,av2);}}} /* g1755 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_fcall f_10782(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_10782,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_symbolp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10795,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10806,tmp=(C_word)a,a+=2,tmp); t5=t3; f_10795(t5,( f_10806(t2) ));} else{ t4=t3; f_10795(t4,C_SCHEME_FALSE);}}} /* k10793 in g1755 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_10795(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_10795,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* core.scm:996: ##sys#syntax-error-hook */ t2=*((C_word*)lf[253]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[254]; av2[3]=lf[256]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* loop in g1755 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static C_word C_fcall f_10806(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} t2=C_i_nullp(t1); if(C_truep(t2)){ return(t2);} else{ t3=C_i_car(t1); if(C_truep(C_i_symbolp(t3))){ t4=t1; t5=C_u_i_cdr(t4); t7=t5; t1=t7; goto loop;} else{ return(C_SCHEME_FALSE);}}} /* k10829 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_10831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10831,2,av);} a=C_alloc(8); t2=C_i_check_list_2(t1,lf[10]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10839,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_10839(t6,((C_word*)t0)[5],t1);} /* map-loop1749 in k10829 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_10839(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10839,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10864,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:987: g1755 */ t5=((C_word*)t0)[4]; f_10782(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10862 in map-loop1749 in k10829 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_10864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10864,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10839(t6,((C_word*)t0)[5],t5);} /* k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_10903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_10903,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10906,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10966,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:1072: ##sys#current-environment */ t5=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_10906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_10906,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10909,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* core.scm:1073: chicken.compiler.support#get-line */ t4=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_10909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){ C_save_and_reclaim((void *)f_10909,2,av);} a=C_alloc(28); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=t2; t4=*((C_word*)lf[105]+1); t5=((C_word*)t0)[3]; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_TRUE; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10915,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10923,a[2]=t6,a[3]=t8,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10940,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[12],tmp=(C_word)a,a+=9,tmp); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10954,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* core.scm:1075: ##sys#dynamic-wind */ t13=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t9; av2[2]=t10; av2[3]=t11; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} /* k10913 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_10915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10915,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10918,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:1080: set-real-names! */ f_7778(t3,((C_word*)t0)[3],((C_word*)t0)[5]);} /* k10916 in k10913 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_10918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_10918,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[95],((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a10922 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_10923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10923,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10927,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* core.scm:1075: ##sys#current-environment2002 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_10927(2,av2);}}} /* k10925 in a10922 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_10927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_10927,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10931,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* core.scm:1075: ##sys#current-environment2002 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10929 in k10925 in a10922 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_10931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10931,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10934,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:1075: ##sys#current-environment2002 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10932 in k10929 in k10925 in a10922 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_10934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10934,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a10939 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_10940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_10940,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10948,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* core.scm:1077: canonicalize-body/ln */ t3=((C_word*)((C_word*)t0)[7])[1]; f_7749(t3,t2,((C_word*)t0)[4],((C_word*)t0)[8],*((C_word*)lf[51]+1));} /* k10946 in a10939 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_10948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_10948,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* core.scm:1078: scheme#append */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k10950 in k10946 in a10939 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_10952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_10952,2,av);} /* core.scm:1076: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} /* a10953 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_10954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10954,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10958,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:1075: ##sys#current-environment2002 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10956 in a10953 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_10958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10958,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10961,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:1075: ##sys#current-environment2002 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10959 in k10956 in a10953 in k10907 in k10904 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_10961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10961,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10964 in k10901 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_10966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10966,2,av);} /* core.scm:1072: ##sys#extend-se */ t2=*((C_word*)lf[165]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1971 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_10968(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10968,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10993,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:1071: g1977 */ t5=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10991 in map-loop1971 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_10993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10993,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10968(t6,((C_word*)t0)[5],t5);} /* k11007 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11009,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[260]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11013 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11015,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11018,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:1087: chicken.compiler.support#get-line */ t4=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11016 in k11013 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_11018,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11025,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11028,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:1090: chicken.base#open-output-string */ t5=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* core.scm:1088: chicken.compiler.support#quit-compiling */ t4=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[262]; av2[3]=lf[265]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k11023 in k11016 in k11013 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_11025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11025,2,av);} /* core.scm:1088: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[262]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11026 in k11016 in k11013 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_11028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_11028,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11034,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1090: ##sys#write-char-0 */ t6=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k11032 in k11026 in k11016 in k11013 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_11034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11034,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11037,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1090: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11035 in k11032 in k11026 in k11016 in k11013 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_11037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11037,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11040,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1090: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[263]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11038 in k11035 in k11032 in k11026 in k11016 in k11013 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_11040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11040,2,av);} /* core.scm:1090: chicken.base#get-output-string */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_11055,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11058,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* core.scm:1097: chicken.compiler.support#get-line */ t5=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_11058,2,av);} a=C_alloc(18); t2=t1; t3=C_i_caddr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11064,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=t5,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_memq(((C_word*)((C_word*)t0)[3])[1],lf[81]))){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11358,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:1101: chicken.base#open-output-string */ t8=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_11064(2,av2);}}} /* k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_11064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_11064,2,av);} a=C_alloc(17); t2=C_i_assq(((C_word*)((C_word*)t0)[2])[1],lf[68]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11071,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* core.scm:1104: g2071 */ t4=t3; f_11071(t4,((C_word*)t0)[8],t2);} else{ t3=C_i_assq(((C_word*)((C_word*)t0)[2])[1],lf[72]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11123,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* core.scm:1104: g2080 */ t5=t4; f_11123(t5,((C_word*)t0)[8],t3);} else{ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11171,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_memq(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[4]))){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_11171(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11189,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* core.scm:1127: ##sys#alias-global-hook */ t6=*((C_word*)lf[123]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}}} /* g2071 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_11071(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_11071,3,t0,t1,t2);} a=C_alloc(10); t3=t2; t4=C_i_cadr(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11078,a[2]=t2,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* core.scm:1107: chicken.base#gensym */ t7=*((C_word*)lf[108]+1);{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k11076 in g2071 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_11078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_11078,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11113,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* core.scm:1109: chicken.compiler.support#foreign-type-convert-argument */ t4=*((C_word*)lf[268]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[9])[1]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11099 in k11111 in k11076 in g2071 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_11101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,8)))){ C_save_and_reclaim((void *)f_11101,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,3,lf[266],((C_word*)t0)[2],t1); t3=C_a_i_list(&a,3,lf[163],((C_word*)t0)[3],t2); /* core.scm:1108: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_8152(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* k11111 in k11076 in g2071 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_11113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_11113,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list(&a,1,t2); t4=t3; t5=((C_word*)t0)[3]; t6=C_i_caddr(t5); t7=C_a_i_list(&a,2,t6,((C_word*)t0)[4]); t8=t7; t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11101,a[2]=t8,a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* core.scm:1112: chicken.compiler.support#foreign-type-check */ t10=*((C_word*)lf[267]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* g2080 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_11123(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_11123,3,t0,t1,t2);} a=C_alloc(10); t3=t2; t4=C_i_caddr(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11130,a[2]=t5,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* core.scm:1117: chicken.base#gensym */ t7=*((C_word*)lf[108]+1);{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k11128 in g2080 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_11130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_11130,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11165,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* core.scm:1119: chicken.compiler.support#foreign-type-convert-argument */ t4=*((C_word*)lf[268]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[9])[1]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11155 in k11163 in k11128 in g2080 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_11157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){ C_save_and_reclaim((void *)f_11157,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,4,lf[269],((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_a_i_list(&a,3,lf[163],((C_word*)t0)[4],t2); /* core.scm:1118: walk */ t4=((C_word*)((C_word*)t0)[5])[1]; f_8152(t4,((C_word*)t0)[6],t3,((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);} /* k11163 in k11128 in g2080 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_11165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_11165,2,av);} a=C_alloc(22); t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list(&a,1,t2); t4=t3; t5=C_a_i_list(&a,1,((C_word*)t0)[3]); t6=t5; t7=((C_word*)t0)[4]; t8=C_i_cadr(t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11157,a[2]=t6,a[3]=t9,a[4]=t4,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* core.scm:1123: chicken.compiler.support#foreign-type-check */ t11=*((C_word*)lf[267]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t10; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* k11169 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_11171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){ C_save_and_reclaim((void *)f_11171,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11178,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_memq(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4]); /* core.scm:1149: walk */ t4=((C_word*)((C_word*)t0)[5])[1]; f_8152(t4,t2,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[4],((C_word*)t0)[7],t3,((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);} /* k11176 in k11169 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_11178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11178,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[270],((C_word*)((C_word*)t0)[3])[1],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_11189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_11189,2,av);} a=C_alloc(11); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11192,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(lf[35])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11345,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:1129: chicken.compiler.support#mark-variable */ t5=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=lf[281]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_11192(2,av2);}}} /* k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_11192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,c,2)))){ C_save_and_reclaim((void *)f_11192,2,av);} a=C_alloc(41); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11195,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[24]+1))){ t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[6])[1]); t4=C_a_i_list(&a,1,t3); t5=C_a_i_list(&a,2,lf[139],((C_word*)((C_word*)t0)[5])[1]); t6=C_a_i_list(&a,3,lf[178],lf[280],t5); t7=C_a_i_list(&a,4,lf[163],t4,t6,((C_word*)((C_word*)t0)[5])[1]); t8=C_mutate(((C_word *)((C_word*)t0)[6])+1,t7); t9=t2; f_11195(t9,t8);} else{ t3=t2; f_11195(t3,C_SCHEME_UNDEFINED);}} /* k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_fcall f_11195(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_11195,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11201,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11322,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1138: ##sys#current-environment */ t4=*((C_word*)lf[105]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_11201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_11201,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11204,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11221,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1140: chicken.base#open-output-string */ t4=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11318,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1145: ##sys#current-environment */ t3=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11202 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_11204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11204,2,av);} a=C_alloc(4); if(C_truep(*((C_word*)lf[41]+1))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11210,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1143: ##sys#undefine-macro! */ t3=*((C_word*)lf[272]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_11171(2,av2);}}} /* k11208 in k11202 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_11210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11210,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11217,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1144: ##sys#current-module */ t3=*((C_word*)lf[194]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11215 in k11208 in k11202 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_11217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11217,2,av);} /* core.scm:1144: ##sys#unregister-syntax-export */ t2=*((C_word*)lf[271]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k11219 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_11221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_11221,2,av);} a=C_alloc(14); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11227,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11243,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11246,a[2]=t6,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:1141: chicken.base#open-output-string */ t8=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* core.scm:1140: ##sys#print */ t7=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[275]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k11225 in k11219 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_11227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11227,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11230,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:1140: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[273]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11228 in k11225 in k11219 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_11230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11230,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11233,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1140: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11231 in k11228 in k11225 in k11219 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_11233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11233,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11236,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1140: ##sys#write-char-0 */ t3=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11234 in k11231 in k11228 in k11225 in k11219 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_ccall f_11236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11236,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11239,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1140: chicken.base#get-output-string */ t3=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11237 in k11234 in k11231 in k11228 in k11225 in k11219 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_11239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11239,2,av);} /* core.scm:1139: chicken.base#warning */ t2=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11241 in k11219 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_11243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11243,2,av);} /* core.scm:1140: ##sys#print */ t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11244 in k11219 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_11246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_11246,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11252,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1141: ##sys#write-char-0 */ t6=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k11250 in k11244 in k11219 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_11252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11252,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11255,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1141: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11253 in k11250 in k11244 in k11219 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_11255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11255,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11258,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1141: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[274]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11256 in k11253 in k11250 in k11244 in k11219 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_ccall f_11258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11258,2,av);} /* core.scm:1141: chicken.base#get-output-string */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11272 in k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_11274(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_11274,2,av);} a=C_alloc(14); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11280,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11296,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11299,a[2]=t6,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:1148: chicken.base#open-output-string */ t8=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* core.scm:1147: ##sys#print */ t7=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[278]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k11278 in k11272 in k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_11280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11280,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11283,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:1147: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[276]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11281 in k11278 in k11272 in k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_11283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11283,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11286,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1147: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11284 in k11281 in k11278 in k11272 in k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_ccall f_11286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11286,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11289,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1147: ##sys#write-char-0 */ t3=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11287 in k11284 in k11281 in k11278 in k11272 in k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_11289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11289,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11292,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1147: chicken.base#get-output-string */ t3=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11290 in k11287 in k11284 in k11281 in k11278 in k11272 in k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_11292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11292,2,av);} /* core.scm:1146: chicken.base#warning */ t2=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11294 in k11272 in k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_11296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11296,2,av);} /* core.scm:1147: ##sys#print */ t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11297 in k11272 in k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_11299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_11299,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11305,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1148: ##sys#write-char-0 */ t6=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k11303 in k11297 in k11272 in k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_11305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11305,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11308,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1148: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11306 in k11303 in k11297 in k11272 in k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_ccall f_11308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11308,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11311,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1148: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[277]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11309 in k11306 in k11303 in k11297 in k11272 in k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in ... */ static void C_ccall f_11311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11311,2,av);} /* core.scm:1148: chicken.base#get-output-string */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11316 in k11199 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_11318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11318,2,av);} a=C_alloc(5); if(C_truep(C_i_assq(((C_word*)t0)[2],t1))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11274,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1147: chicken.base#open-output-string */ t3=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_11171(2,av2);}}} /* k11320 in k11193 in k11190 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_11322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11322,2,av);} /* core.scm:1138: ##sys#macro? */ t2=*((C_word*)lf[279]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k11343 in k11187 in k11062 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_11345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11345,2,av);} /* core.scm:1130: chicken.compiler.support#mark-variable */ t2=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=lf[149]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k11356 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_11358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_11358,2,av);} a=C_alloc(14); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11364,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11380,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11383,a[2]=t6,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:1102: chicken.base#open-output-string */ t8=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* core.scm:1101: ##sys#print */ t7=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[285]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k11362 in k11356 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_11364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11364,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11367,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:1101: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[283]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11365 in k11362 in k11356 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_11367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11367,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11370,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1101: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11368 in k11365 in k11362 in k11356 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_11370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11370,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11373,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1101: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[282]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11371 in k11368 in k11365 in k11362 in k11356 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_11373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11373,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11376,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1101: chicken.base#get-output-string */ t3=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11374 in k11371 in k11368 in k11365 in k11362 in k11356 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_11376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11376,2,av);} /* core.scm:1100: chicken.base#warning */ t2=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11378 in k11356 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_11380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11380,2,av);} /* core.scm:1101: ##sys#print */ t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11381 in k11356 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_11383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_11383,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11389,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1102: ##sys#write-char-0 */ t6=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k11387 in k11381 in k11356 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_11389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11389,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11392,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1102: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11390 in k11387 in k11381 in k11356 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_11392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11392,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11395,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1102: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[284]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11393 in k11390 in k11387 in k11381 in k11356 in k11056 in k11053 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_11395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11395,2,av);} /* core.scm:1102: chicken.base#get-output-string */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* g2167 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_11424(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,8)))){ C_save_and_reclaim_args((void *)trf_11424,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11432,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* core.scm:1156: walk */ t4=((C_word*)((C_word*)t0)[3])[1]; f_8152(t4,t3,t2,((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k11430 in g2167 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11432,2,av);} /* core.scm:1156: unquotify */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_7844(3,av2);}} /* k11438 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11440,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[178],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop2161 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_11442(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11442,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11467,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:1155: g2167 */ t5=((C_word*)t0)[4]; f_11424(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11465 in map-loop2161 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11467,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11442(t6,((C_word*)t0)[5],t5);} /* k11489 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_11491,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11495,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_cddr(((C_word*)t0)[3]); /* core.scm:1161: mapwalk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_13252(t5,t3,t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k11493 in k11489 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_11495,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[286],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11527 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_11529,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11533,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_cddr(((C_word*)t0)[3]); /* core.scm:1166: mapwalk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_13252(t5,t3,t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k11531 in k11527 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_11533,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[287],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2194 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_11539(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11539,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11564,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:1165: g2200 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11562 in map-loop2194 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11564,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11539(t6,((C_word*)t0)[5],t5);} /* k11586 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11588,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[266],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11607 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,8)))){ C_save_and_reclaim((void *)f_11609,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11613,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_i_cadddr(((C_word*)t0)[4]); /* core.scm:1175: walk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_8152(t5,t3,t4,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* k11611 in k11607 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_11613,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[269],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11634 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_11636,2,av);} /* core.scm:1180: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k11649 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11651,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[292]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11672 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11674,2,av);} /* core.scm:1188: chicken.compiler.support#canonicalize-begin-body */ t2=*((C_word*)lf[250]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* fold in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_11678(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,8)))){ C_save_and_reclaim_args((void *)trf_11678,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_car(t2); t4=t2; t5=C_u_i_cdr(t4); if(C_truep(C_i_nullp(t5))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11696,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* core.scm:1193: walk */ t7=((C_word*)((C_word*)t0)[2])[1]; f_8152(t7,t6,t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11703,a[2]=t1,a[3]=((C_word*)t0)[9],a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* core.scm:1194: walk */ t7=((C_word*)((C_word*)t0)[2])[1]; f_8152(t7,t6,t3,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}} /* k11694 in fold in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11696,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11701 in fold in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11703,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11707,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:1194: fold */ t4=((C_word*)((C_word*)t0)[3])[1]; f_11678(t4,t3,((C_word*)t0)[4]);} /* k11705 in k11701 in fold in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_11707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11707,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11720 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_11722,2,av);} /* core.scm:1198: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* k11733 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_11735,2,av);} /* core.scm:1201: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* k11746 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_11748,2,av);} /* core.scm:1204: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* k11759 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_11761,2,av);} /* core.scm:1207: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* k11772 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_11774,2,av);} /* core.scm:1210: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* k11781 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11783,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11786,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=C_i_caddr(t4); /* core.scm:1214: chicken.syntax#strip-syntax */ t6=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k11784 in k11781 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11786,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11789,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_cdddr(((C_word*)t0)[4]); if(C_truep(C_i_pairp(t4))){ t5=((C_word*)t0)[4]; t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_cadddr(t5); f_11789(2,av2);}} else{ /* core.scm:1217: scheme#symbol->string */ t5=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k11787 in k11784 in k11781 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_11789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_11789,2,av);} a=C_alloc(12); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_a_i_cons(&a,2,t2,lf[68]); t4=C_mutate(&lf[68] /* (set! chicken.compiler.core#foreign-variables ...) */,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=lf[306]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_11830,2,av);} a=C_alloc(21); t2=t1; t3=C_i_cdddr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11836,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)t0)[10])){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_11836(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11918,a[2]=t5,a[3]=((C_word*)t0)[11],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[9])){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11921,a[2]=t6,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); /* core.scm:1230: chicken.base#open-output-string */ t8=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* core.scm:1228: chicken.compiler.support#quit-compiling */ t7=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[312]; av2[3]=lf[314]; av2[4]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}}} /* k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_11836,2,av);} a=C_alloc(13); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11845,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* core.scm:1233: chicken.base#gensym */ t3=*((C_word*)lf[108]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11911,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* core.scm:1253: chicken.compiler.support#register-foreign-type! */ t3=*((C_word*)lf[310]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[11]; av2[3]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_11845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_11845,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11848,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* core.scm:1234: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11846 in k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_11848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_11848,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); /* core.scm:1235: chicken.compiler.support#register-foreign-type! */ t4=*((C_word*)lf[310]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[12]; av2[3]=((C_word*)t0)[13]; av2[4]=((C_word*)t0)[3]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k11849 in k11846 in k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_11851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_11851,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11854,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* core.scm:1236: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[149]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11852 in k11849 in k11846 in k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_11854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_11854,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* core.scm:1237: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[12]; av2[3]=lf[149]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11855 in k11852 in k11849 in k11846 in k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_11857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_11857,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* core.scm:1238: chicken.compiler.support#hide-variable */ t3=*((C_word*)lf[147]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11858 in k11855 in k11852 in k11849 in k11846 in k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_11860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_11860,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11863,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* core.scm:1239: chicken.compiler.support#hide-variable */ t3=*((C_word*)lf[147]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11861 in k11858 in k11855 in k11852 in k11849 in k11846 in k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_11863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_11863,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11866,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11908,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1243: ##sys#current-module */ t4=*((C_word*)lf[194]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11864 in k11861 in k11858 in k11855 in k11852 in k11849 in k11846 in k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_11866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_11866,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11869,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11904,a[2]=t2,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp); /* core.scm:1244: ##sys#current-module */ t4=*((C_word*)lf[194]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11867 in k11864 in k11861 in k11858 in k11855 in k11852 in k11849 in k11846 in k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_11869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_11869,2,av);} a=C_alloc(29); t2=C_i_car(((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[168],((C_word*)t0)[3],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11884,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); t6=C_u_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t6))){ t7=C_i_cadr(((C_word*)t0)[2]); t8=t5; f_11884(t8,C_a_i_list(&a,3,lf[168],((C_word*)t0)[12],t7));} else{ t7=t5; f_11884(t7,C_a_i_list(&a,3,lf[168],((C_word*)t0)[12],lf[308]));}} /* k11882 in k11867 in k11864 in k11861 in k11858 in k11855 in k11852 in k11849 in k11846 in k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in ... */ static void C_fcall f_11884(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,8)))){ C_save_and_reclaim_args((void *)trf_11884,2,t0,t1);} a=C_alloc(9); t2=C_a_i_list(&a,3,lf[180],((C_word*)t0)[2],t1); /* core.scm:1245: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_8152(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k11902 in k11864 in k11861 in k11858 in k11855 in k11852 in k11849 in k11846 in k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_11904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11904,2,av);} /* core.scm:1244: ##sys#register-export */ t2=*((C_word*)lf[309]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k11906 in k11861 in k11858 in k11855 in k11852 in k11849 in k11846 in k11843 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_11908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11908,2,av);} /* core.scm:1243: ##sys#register-export */ t2=*((C_word*)lf[309]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k11909 in k11834 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_11911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11911,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[311]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11916 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11918,2,av);} /* core.scm:1228: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[312]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11919 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_11921,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11927,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1230: ##sys#write-char-0 */ t6=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k11925 in k11919 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_11927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11927,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11930,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1230: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11928 in k11925 in k11919 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_11930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11930,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1230: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[313]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11931 in k11928 in k11925 in k11919 in k11828 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_11933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11933,2,av);} /* core.scm:1230: chicken.base#get-output-string */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_11952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11952,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11955,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* core.scm:1259: scheme#symbol->string */ t4=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11953 in k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_11955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_11955,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=((C_word*)t0)[2]; t5=C_i_caddr(t4); t6=t5; t7=((C_word*)t0)[2]; t8=C_i_cadddr(t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11964,a[2]=t3,a[3]=t6,a[4]=t9,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* core.scm:1262: chicken.compiler.support#make-random-name */ t11=*((C_word*)lf[323]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* k11962 in k11953 in k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_11964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_11964,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11967,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[8])){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_11967(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12009,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[9])){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12012,a[2]=t4,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); /* core.scm:1266: chicken.base#open-output-string */ t6=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* core.scm:1264: chicken.compiler.support#quit-compiling */ t5=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[320]; av2[3]=lf[322]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* k11965 in k11962 in k11953 in k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_11967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_11967,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11970,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[4])){ t3=t2; f_11970(t3,C_SCHEME_UNDEFINED);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11998,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[8]; t5=C_i_cddddr(t4); t6=C_i_car(t5); /* core.scm:1268: scheme#symbol->string */ t7=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t3; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k11968 in k11965 in k11962 in k11953 in k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_fcall f_11970(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_11970,2,t0,t1);} a=C_alloc(12); t2=C_a_i_vector3(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],((C_word*)t0)[4]); t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[70]+1)); t4=C_mutate((C_word*)lf[70]+1 /* (set! chicken.compiler.core#external-variables ...) */,t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11990,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* core.scm:1271: scheme#string-append */ t6=*((C_word*)lf[318]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=lf[319]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k11988 in k11968 in k11965 in k11962 in k11953 in k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_11990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_11990,2,av);} a=C_alloc(18); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],lf[316],t1); t3=C_a_i_cons(&a,2,t2,lf[68]); t4=C_mutate(&lf[68] /* (set! chicken.compiler.core#foreign-variables ...) */,t3); t5=lf[71]; t6=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]); t7=C_a_i_cons(&a,2,t6,lf[71]); t8=C_mutate(&lf[71] /* (set! chicken.compiler.core#external-to-pointer ...) */,t7); t9=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t9; av2[1]=lf[317]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* k11996 in k11965 in k11962 in k11953 in k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_11998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11998,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_11970(t3,t2);} /* k12007 in k11962 in k11953 in k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12009,2,av);} /* core.scm:1264: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[320]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k12010 in k11962 in k11953 in k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_12012,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12018,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1266: ##sys#write-char-0 */ t6=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12016 in k12010 in k11962 in k11953 in k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12018,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1266: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12019 in k12016 in k12010 in k11962 in k11953 in k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_12021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12021,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1266: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[321]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12022 in k12019 in k12016 in k12010 in k11962 in k11953 in k11950 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12024,2,av);} /* core.scm:1266: chicken.base#get-output-string */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_12039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_12039,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12042,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* core.scm:1279: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_12042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_12042,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12045,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* core.scm:1280: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_12045,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_12048,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); t4=C_i_cddddr(((C_word*)t0)[11]); if(C_truep(C_i_pairp(t4))){ t5=((C_word*)t0)[11]; t6=t3; f_12048(t6,C_i_cadddr(t5));} else{ t5=t3; f_12048(t5,C_SCHEME_FALSE);}} /* k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_12048(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_12048,2,t0,t1);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12051,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* core.scm:1282: chicken.compiler.support#set-real-name! */ t4=*((C_word*)lf[116]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_12051,2,av);} a=C_alloc(28); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=C_a_i_cons(&a,2,t2,lf[72]); t4=C_mutate(&lf[72] /* (set! chicken.compiler.core#location-pointer-map ...) */,t3); t5=*((C_word*)lf[105]+1); t6=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12166,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[4],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* core.scm:1286: ##sys#current-environment */ t7=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* a12062 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12063,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12067,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* core.scm:1285: ##sys#current-environment2305 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_12067(2,av2);}}} /* k12065 in a12062 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_12067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_12067,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12071,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* core.scm:1285: ##sys#current-environment2305 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12069 in k12065 in a12062 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_12071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12071,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12074,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:1285: ##sys#current-environment2305 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k12072 in k12069 in k12065 in a12062 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_12074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12074,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a12079 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_12080,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12129,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12152,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:1288: chicken.compiler.support#estimate-foreign-result-location-size */ t4=*((C_word*)lf[327]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12098 in k12127 in a12079 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_12100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,8)))){ C_save_and_reclaim((void *)f_12100,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,lf[180],t1); t3=C_a_i_list(&a,3,lf[163],((C_word*)t0)[2],t2); /* core.scm:1287: walk */ t4=((C_word*)((C_word*)t0)[3])[1]; f_8152(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);} /* k12102 in k12127 in a12079 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_fcall f_12104(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_12104,2,t0,t1);} a=C_alloc(3); if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3]; t3=C_i_cddddr(t2); t4=C_i_car(t3); t5=C_a_i_list(&a,1,t4); /* core.scm:1288: ##sys#append */ t6=*((C_word*)lf[167]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_i_cadddr(t2); t4=C_a_i_list(&a,1,t3); /* core.scm:1288: ##sys#append */ t5=*((C_word*)lf[167]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k12127 in a12079 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_12129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(86,c,2)))){ C_save_and_reclaim((void *)f_12129,2,av);} a=C_alloc(86); t2=C_s_a_i_plus(&a,2,C_fix(2),t1); t3=C_a_i_list(&a,2,lf[325],t2); t4=C_a_i_list(&a,2,lf[117],t1); t5=C_a_i_list(&a,3,lf[287],t3,t4); t6=C_a_i_list2(&a,2,((C_word*)t0)[2],t5); t7=C_a_i_list(&a,1,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12100,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12104,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=t9,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[10])){ t11=C_a_i_list(&a,3,lf[168],((C_word*)t0)[12],((C_word*)t0)[10]); t12=t10; f_12104(t12,C_a_i_list(&a,1,t11));} else{ t11=t10; f_12104(t11,C_SCHEME_END_OF_LIST);}} /* k12150 in a12079 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_12152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12152,2,av);} /* core.scm:1288: chicken.compiler.support#bytes->words */ t2=*((C_word*)lf[326]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a12153 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12154,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12158,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:1285: ##sys#current-environment2305 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12156 in a12153 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_12158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12158,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12161,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:1285: ##sys#current-environment2305 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k12159 in k12156 in a12153 in k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_12161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12161,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12164 in k12049 in k12046 in k12043 in k12040 in k12037 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_12166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_12166,2,av);} a=C_alloc(32); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,t2,t1); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_TRUE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12063,a[2]=t5,a[3]=t7,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12080,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[14],tmp=(C_word)a,a+=13,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12154,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:1285: ##sys#dynamic-wind */ t11=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=((C_word*)t0)[15]; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* k12197 in k12232 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_12199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_12199,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12202,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[5])){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f24617,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1313: chicken.internal#hash-table-set! */ t5=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[63]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12212,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12215,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:1311: chicken.base#open-output-string */ t6=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* core.scm:1309: chicken.compiler.support#quit-compiling */ t5=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[330]; av2[3]=lf[332]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* k12200 in k12197 in k12232 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_12202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1313: chicken.internal#hash-table-set! */ t3=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[63]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12203 in k12200 in k12197 in k12232 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12205,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[329]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12210 in k12197 in k12232 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12212,2,av);} /* core.scm:1309: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[330]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k12213 in k12197 in k12232 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_12215,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12221,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1311: ##sys#write-char-0 */ t6=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12219 in k12213 in k12197 in k12232 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12221,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12224,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1311: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12222 in k12219 in k12213 in k12197 in k12232 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12224,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12227,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1311: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[331]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12225 in k12222 in k12219 in k12213 in k12197 in k12232 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_12227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12227,2,av);} /* core.scm:1311: chicken.base#get-output-string */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12232 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_12234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12234,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,lf[95],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12199,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* core.scm:1307: chicken.compiler.support#get-line */ t5=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_12246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_12246,2,av);} a=C_alloc(13); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_caddr(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12252,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t2,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12367,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1320: scheme#call-with-current-continuation */ t8=*((C_word*)lf[247]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_12252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12252,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12255,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* core.scm:1320: g2358 */ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_12255,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12258,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[8])){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_12258(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12347,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[7])){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12350,a[2]=t4,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* core.scm:1333: chicken.base#open-output-string */ t6=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* core.scm:1331: chicken.compiler.support#quit-compiling */ t5=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[344]; av2[3]=lf[346]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){ C_save_and_reclaim((void *)f_12258,2,av);} a=C_alloc(25); t2=C_a_i_list(&a,2,lf[139],((C_word*)t0)[2]); t3=C_a_i_list2(&a,2,((C_word*)t0)[3],t2); t4=C_a_i_cons(&a,2,t3,lf[74]); t5=C_mutate(&lf[74] /* (set! chicken.compiler.core#defconstant-bindings ...) */,t4); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12268,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* core.scm:1337: chicken.compiler.support#collapsable-literal? */ t7=*((C_word*)lf[343]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_12268,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12271,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_list(&a,2,lf[139],((C_word*)t0)[3]); /* core.scm:1338: chicken.internal#hash-table-set! */ t4=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=*((C_word*)lf[64]+1); av2[3]=((C_word*)t0)[4]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12281,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[4],tmp=(C_word)a,a+=10,tmp); /* core.scm:1340: chicken.compiler.support#basic-literal? */ t3=*((C_word*)lf[342]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k12269 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_12271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12271,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[335]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12279 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_12281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_12281,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12284,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* core.scm:1341: chicken.base#gensym */ t3=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[338]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12314,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[7])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12317,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* core.scm:1350: chicken.base#open-output-string */ t4=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* core.scm:1348: chicken.compiler.support#quit-compiling */ t3=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[339]; av2[3]=lf[341]; av2[4]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} /* k12282 in k12279 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_12284,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12287,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* core.scm:1342: chicken.internal#hash-table-set! */ t4=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[64]+1); av2[3]=((C_word*)t0)[9]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k12285 in k12282 in k12279 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_12287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_12287,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* core.scm:1343: chicken.compiler.support#hide-variable */ t3=*((C_word*)lf[147]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k12288 in k12285 in k12282 in k12279 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_12290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_12290,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12293,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* core.scm:1344: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[337]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k12291 in k12288 in k12285 in k12282 in k12279 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_12293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_12293,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12296,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* core.scm:1345: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[149]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k12294 in k12291 in k12288 in k12285 in k12282 in k12279 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_12296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,8)))){ C_save_and_reclaim((void *)f_12296,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,2,lf[139],((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[336],((C_word*)t0)[3],t2); /* core.scm:1346: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_8152(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k12312 in k12279 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12314,2,av);} /* core.scm:1348: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[339]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k12315 in k12279 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_12317,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12323,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1350: ##sys#write-char-0 */ t6=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12321 in k12315 in k12279 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_12323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12323,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1350: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12324 in k12321 in k12315 in k12279 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_12326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12326,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12329,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1350: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[340]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12327 in k12324 in k12321 in k12315 in k12279 in k12266 in k12256 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_12329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12329,2,av);} /* core.scm:1350: chicken.base#get-output-string */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12345 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12347,2,av);} /* core.scm:1331: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[344]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k12348 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_12350,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12356,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1333: ##sys#write-char-0 */ t6=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12354 in k12348 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12356,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12359,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1333: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12357 in k12354 in k12348 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_12359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12359,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12362,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1333: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[345]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12360 in k12357 in k12354 in k12348 in k12253 in k12250 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12362,2,av);} /* core.scm:1333: chicken.base#get-output-string */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a12366 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_12367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_12367,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12373,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12385,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:1320: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a12372 in a12366 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12373,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12379,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1320: k2355 */ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a12378 in a12372 in a12366 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12379,2,av);} /* core.scm:1322: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=lf[347]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a12384 in a12366 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_12385,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12391,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12417,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* core.scm:1320: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a12390 in a12384 in a12366 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12391,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12398,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=C_i_symbolp(((C_word*)t0)[2]); if(C_truep(C_i_not(t3))){ /* core.scm:1325: chicken.compiler.support#collapsable-literal? */ t4=*((C_word*)lf[343]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_12398(2,av2);}}} /* k12396 in a12390 in a12384 in a12366 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12398,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_a_i_list(&a,3,lf[163],lf[74],((C_word*)t0)[3]); /* core.scm:1327: scheme#eval */ t3=*((C_word*)lf[348]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* a12416 in a12384 in a12366 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_12417,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12423,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:1320: k2355 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a12422 in a12416 in a12384 in a12366 in k12244 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12423,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_12436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_12436,2,av);} a=C_alloc(22); t2=t1; t3=*((C_word*)lf[105]+1); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_TRUE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12441,a[2]=t5,a[3]=t7,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12458,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12530,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* core.scm:1355: ##sys#dynamic-wind */ t11=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=((C_word*)t0)[8]; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* a12440 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_12441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12441,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12445,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* core.scm:1355: ##sys#current-environment2414 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_12445(2,av2);}}} /* k12443 in a12440 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_12445,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12449,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* core.scm:1355: ##sys#current-environment2414 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12447 in k12443 in a12440 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12449,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12452,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:1355: ##sys#current-environment2414 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k12450 in k12447 in k12443 in a12440 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12452,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a12457 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_12458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_12458,2,av);} a=C_alloc(25); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12471,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t7=C_i_cdr(((C_word*)t0)[5]); t8=C_i_check_list_2(t7,lf[10]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12494,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12496,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_12496(t13,t9,t7);} /* g2437 in a12457 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_fcall f_12471(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_12471,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12477,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1359: process-declaration */ t4=*((C_word*)lf[350]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[4]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* a12476 in g2437 in a12457 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12477,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12485,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:1362: lookup */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7669(t4,t3,t2);} /* k12483 in a12476 in g2437 in a12457 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12485,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_memq(t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12492 in a12457 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_12494,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[180],t1); /* core.scm:1356: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_8152(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} /* map-loop2431 in a12457 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_fcall f_12496(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_12496,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12521,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:1358: g2437 */ t5=((C_word*)t0)[4]; f_12471(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12519 in map-loop2431 in a12457 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12521,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12496(t6,((C_word*)t0)[5],t5);} /* a12529 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_12530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12530,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12534,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:1355: ##sys#current-environment2414 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12532 in a12529 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12534,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12537,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:1355: ##sys#current-environment2414 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k12535 in k12532 in a12529 in k12434 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12537,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a12548 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_12549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_12549,2,av);} a=C_alloc(5); t2=C_i_cdr(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6288,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_6288(t6,t1,C_fix(4),C_SCHEME_END_OF_LIST,t2);} /* a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_12559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_12559,4,av);} a=C_alloc(13); t4=t2; t5=C_i_car(t3); t6=t5; t7=C_i_car(t4); t8=C_i_cadr(t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12569,a[2]=t4,a[3]=t6,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=t9,a[12]=((C_word*)t0)[8],tmp=(C_word)a,a+=13,tmp); /* core.scm:1370: ##sys#alias-global-hook */ t11=*((C_word*)lf[123]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t10; av2[2]=t9; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_12569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_12569,2,av);} a=C_alloc(21); t2=t1; t3=C_i_caddr(((C_word*)t0)[2]); t4=C_i_cadr(t3); t5=t4; t6=C_i_cadddr(((C_word*)t0)[2]); t7=C_i_cadr(t6); t8=t7; t9=C_i_cadr(((C_word*)t0)[3]); t10=t9; t11=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12581,a[2]=((C_word*)t0)[4],a[3]=t10,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t5,a[9]=((C_word*)t0)[3],a[10]=t2,a[11]=((C_word*)t0)[9],a[12]=t8,a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[2],tmp=(C_word)a,a+=15,tmp); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12801,a[2]=((C_word*)t0)[11],a[3]=t2,a[4]=t11,a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp); /* core.scm:1374: chicken.compiler.support#valid-c-identifier? */ t13=*((C_word*)lf[375]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t12; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_12581,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12584,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); t3=C_i_listp(((C_word*)t0)[3]); t4=C_i_not(t3); if(C_truep(t4)){ if(C_truep(t4)){ /* core.scm:1385: chicken.syntax#syntax-error */ t5=*((C_word*)lf[363]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=lf[371]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_12584(2,av2);}}} else{ t5=C_i_listp(((C_word*)t0)[12]); t6=C_i_not(t5); if(C_truep(t6)){ if(C_truep(t6)){ /* core.scm:1385: chicken.syntax#syntax-error */ t7=*((C_word*)lf[363]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t2; av2[2]=lf[371]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t2;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_12584(2,av2);}}} else{ t7=C_i_length(((C_word*)t0)[3]); t8=C_i_length(((C_word*)t0)[12]); t9=C_eqp(t7,t8); if(C_truep(C_i_not(t9))){ /* core.scm:1385: chicken.syntax#syntax-error */ t10=*((C_word*)lf[363]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t2; av2[2]=lf[371]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t10=t2;{ C_word *av2=av; av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_12584(2,av2);}}}}} /* k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,6)))){ C_save_and_reclaim((void *)f_12584,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12591,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12595,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* core.scm:1389: mapwalk */ t4=((C_word*)((C_word*)t0)[13])[1]; f_13252(t4,t3,((C_word*)t0)[14],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k12589 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_12591,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[351],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12593 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_12595,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12603,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12615,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12720,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_12720(t8,t4,((C_word*)t0)[3],((C_word*)t0)[12]);} /* k12601 in k12593 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_12603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_12603,2,av);} a=C_alloc(3); t2=C_a_i_list(&a,1,t1); /* core.scm:1388: ##sys#append */ t3=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k12613 in k12593 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_12615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(43,c,4)))){ C_save_and_reclaim((void *)f_12615,2,av);} a=C_alloc(43); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12619,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12631,a[2]=t3,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[8],lf[352]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[353]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[354]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[355]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){ t5=C_i_cddr(((C_word*)t0)[9]); t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t5); t7=C_a_i_cons(&a,2,lf[163],t6); t8=C_a_i_list(&a,2,lf[139],((C_word*)t0)[10]); t9=C_a_i_list(&a,3,lf[356],t7,t8); t10=C_a_i_list(&a,1,t9); t11=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t10); t12=C_a_i_cons(&a,2,lf[163],t11); /* core.scm:1407: chicken.compiler.support#foreign-type-convert-argument */ t13=*((C_word*)lf[268]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t13; av2[1]=t3; av2[2]=t12; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} else{ if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[8],lf[357]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[358]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[359]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[360]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[361]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[362]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))){ /* core.scm:1429: chicken.syntax#syntax-error */ t5=*((C_word*)lf[363]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[364]; av2[3]=((C_word*)t0)[8]; av2[4]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[8],lf[365]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[366]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[367]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[368]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){ t5=C_i_cddr(((C_word*)t0)[9]); t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t5); t7=C_a_i_cons(&a,2,lf[163],t6); t8=C_a_i_list(&a,2,lf[369],t7); t9=C_a_i_list(&a,1,t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12691,a[2]=((C_word*)t0)[10],a[3]=t10,a[4]=t3,a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); /* core.scm:1441: macro-alias */ t12=((C_word*)((C_word*)t0)[11])[1]; f_7709(t12,t11,lf[370]);} else{ t5=C_i_cddr(((C_word*)t0)[9]); t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t5); t7=C_a_i_cons(&a,2,lf[163],t6); /* core.scm:1407: chicken.compiler.support#foreign-type-convert-argument */ t8=*((C_word*)lf[268]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}}} /* k12617 in k12613 in k12593 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,8)))){ C_save_and_reclaim((void *)f_12619,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,3,lf[163],((C_word*)t0)[2],t1); t3=C_a_i_list(&a,3,lf[95],((C_word*)t0)[3],t2); /* core.scm:1390: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_8152(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* k12629 in k12613 in k12593 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_12631,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t1); t3=C_a_i_cons(&a,2,lf[163],t2); /* core.scm:1407: chicken.compiler.support#foreign-type-convert-argument */ t4=*((C_word*)lf[268]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k12689 in k12613 in k12593 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,3)))){ C_save_and_reclaim((void *)f_12691,2,av);} a=C_alloc(42); t2=C_a_i_list(&a,2,lf[139],((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[356],lf[369],t2); t4=C_a_i_list(&a,3,t1,lf[369],t3); t5=C_a_i_list(&a,3,lf[163],((C_word*)t0)[3],t4); t6=C_a_i_list(&a,1,t5); t7=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t6); t8=C_a_i_cons(&a,2,lf[163],t7); /* core.scm:1407: chicken.compiler.support#foreign-type-convert-argument */ t9=*((C_word*)lf[268]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=((C_word*)t0)[4]; av2[2]=t8; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* loop in k12593 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_fcall f_12720(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_12720,4,t0,t1,t2,t3);} a=C_alloc(15); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=C_i_car(t3); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12752,a[2]=t5,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12756,a[2]=t8,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12760,a[2]=t9,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* core.scm:1403: chicken.compiler.support#final-foreign-type */ t11=*((C_word*)lf[121]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}} /* k12742 in k12750 in loop in k12593 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_12744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_12744,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12750 in loop in k12593 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_12752,2,av);} a=C_alloc(10); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12744,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); t7=((C_word*)t0)[5]; t8=C_u_i_cdr(t7); /* core.scm:1406: loop */ t9=((C_word*)((C_word*)t0)[6])[1]; f_12720(t9,t4,t6,t8);} /* k12754 in loop in k12593 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12756,2,av);} /* core.scm:1401: chicken.compiler.support#foreign-type-convert-result */ t2=*((C_word*)lf[119]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k12758 in loop in k12593 in k12582 in k12579 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12760,2,av);} /* core.scm:1402: chicken.compiler.support#finish-foreign-result */ t2=*((C_word*)lf[120]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k12799 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_12801,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,t2,lf[75]); t4=C_mutate(&lf[75] /* (set! chicken.compiler.core#callback-names ...) */,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; f_12581(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12812,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:1377: chicken.compiler.support#get-line */ t3=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k12810 in k12799 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_12812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12812,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12819,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12822,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:1380: chicken.base#open-output-string */ t5=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* core.scm:1378: chicken.compiler.support#quit-compiling */ t4=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[372]; av2[3]=lf[374]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k12817 in k12810 in k12799 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12819,2,av);} /* core.scm:1378: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[372]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k12820 in k12810 in k12799 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_12822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_12822,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12828,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1380: ##sys#write-char-0 */ t6=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12826 in k12820 in k12810 in k12799 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_12828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12828,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12831,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1380: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12829 in k12826 in k12820 in k12810 in k12799 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_12831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12831,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12834,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1380: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[373]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12832 in k12829 in k12826 in k12820 in k12810 in k12799 in k12567 in a12558 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_12834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12834,2,av);} /* core.scm:1380: chicken.base#get-output-string */ t2=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* g2526 in k12938 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_fcall f_12871(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,8)))){ C_save_and_reclaim_args((void *)trf_12871,3,t0,t1,t2);} a=C_alloc(21); t3=C_i_cadr(t2); t4=C_a_i_list(&a,2,lf[139],lf[377]); t5=C_a_i_list(&a,5,lf[378],t3,C_fix(0),C_SCHEME_FALSE,t4); /* core.scm:1453: walk */ t6=((C_word*)((C_word*)t0)[2])[1]; f_8152(t6,t1,t5,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);} /* g2533 in k12938 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_fcall f_12897(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){ C_save_and_reclaim_args((void *)trf_12897,3,t0,t1,t2);} t3=C_i_cdr(t2); /* core.scm:1457: walk */ t4=((C_word*)((C_word*)t0)[2])[1]; f_8152(t4,t1,t3,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k12923 in k12938 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_12925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_12925,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,2,t1,lf[316]); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[118],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12938 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_12940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){ C_save_and_reclaim((void *)f_12940,2,av);} a=C_alloc(21); t2=C_i_assq(t1,lf[72]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12871,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:1451: g2526 */ t4=t3; f_12871(t4,((C_word*)t0)[6],t2);} else{ t3=C_i_assq(((C_word*)t0)[7],lf[71]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12897,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:1451: g2533 */ t5=t4; f_12897(t5,((C_word*)t0)[6],t3);} else{ if(C_truep(C_i_assq(((C_word*)t0)[7],lf[75]))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12925,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); /* core.scm:1459: scheme#symbol->string */ t5=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=C_a_i_list(&a,2,lf[139],lf[377]); t5=C_a_i_list(&a,5,lf[378],((C_word*)t0)[7],C_fix(0),C_SCHEME_FALSE,t4); /* core.scm:1461: walk */ t6=((C_word*)((C_word*)t0)[2])[1]; f_8152(t6,((C_word*)t0)[6],t5,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);}}}} /* k12955 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_12957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_12957,2,av);} a=C_alloc(7); t2=t1; t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12963,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* core.scm:1473: chicken.internal#hash-table-ref */ t6=*((C_word*)lf[111]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[61]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12961 in k12955 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_12963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_12963,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12966,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ if(C_truep(t1)){ t3=C_i_cdr(t1); t4=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t5=C_a_i_cons(&a,2,t4,t3); t6=C_a_i_cons(&a,2,((C_word*)t0)[5],t5); /* core.scm:1475: chicken.internal#hash-table-set! */ t7=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t2; av2[2]=*((C_word*)lf[61]+1); av2[3]=((C_word*)t0)[6]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); t5=C_a_i_cons(&a,2,((C_word*)t0)[5],t4); /* core.scm:1475: chicken.internal#hash-table-set! */ t6=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t2; av2[2]=*((C_word*)lf[61]+1); av2[3]=((C_word*)t0)[6]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12964 in k12961 in k12955 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_12966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12966,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a12985 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_12986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12986,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[379]+1)); t3=C_mutate((C_word*)lf[379]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a12990 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_12991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_12991,2,av);} /* core.scm:1471: mapwalk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13252(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* a12996 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_12997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12997,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[379]+1)); t3=C_mutate((C_word*)lf[379]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a13131 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13132,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[113]+1)); t3=C_mutate((C_word*)lf[113]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a13136 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_13137,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13145,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:643: ##sys#current-environment */ t3=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13143 in a13136 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13145,2,av);} /* core.scm:643: chicken.syntax#expand */ t2=*((C_word*)lf[382]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=*((C_word*)lf[51]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a13146 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13147,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[113]+1)); t3=C_mutate((C_word*)lf[113]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13163 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_13165,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13171,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* core.scm:636: ##sys#write-char-0 */ t6=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k13169 in k13163 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_13171,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:636: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k13172 in k13169 in k13163 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_13174,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13177,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:636: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[383]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k13175 in k13172 in k13169 in k13163 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_13177,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13180,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:636: chicken.base#get-output-string */ t3=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k13178 in k13175 in k13172 in k13169 in k13163 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13180,2,av);} /* core.scm:636: ##sys#syntax-error/context */ t2=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k13196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_13198,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13201,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* core.scm:1485: chicken.compiler.support#emit-syntax-trace-info */ t3=*((C_word*)lf[385]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13210,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* core.scm:1490: chicken.compiler.support#emit-syntax-trace-info */ t3=*((C_word*)lf[385]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k13199 in k13196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_13201,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13204,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* core.scm:1486: chicken.base#warning */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[387]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k13202 in k13199 in k13196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_13204,2,av);} /* core.scm:1487: mapwalk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13252(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k13208 in k13196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_13210,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13213,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* core.scm:1491: chicken.base#gensym */ t3=*((C_word*)lf[108]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13211 in k13208 in k13196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){ C_save_and_reclaim((void *)f_13213,2,av);} a=C_alloc(21); t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_list(&a,2,t1,t3); t5=C_a_i_list(&a,1,t4); t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_a_i_cons(&a,2,t1,t7); t9=C_a_i_list(&a,3,lf[163],t5,t8); /* core.scm:1492: walk */ t10=((C_word*)((C_word*)t0)[3])[1]; f_8152(t10,((C_word*)t0)[4],t9,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);} /* mapwalk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13252(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){ C_save_and_reclaim_args((void *)trf_13252,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(20); t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13257,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp); t12=C_i_check_list_2(t2,lf[10]); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13269,a[2]=t9,a[3]=t14,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_13269(t16,t1,t2);} /* g2582 in mapwalk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13257(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){ C_save_and_reclaim_args((void *)trf_13257,3,t0,t1,t2);} /* core.scm:1499: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_8152(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* map-loop2576 in mapwalk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13269(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_13269,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13294,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:1499: g2582 */ t5=((C_word*)t0)[4]; f_13257(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k13292 in map-loop2576 in mapwalk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13294,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_13269(t6,((C_word*)t0)[5],t5);} /* k13302 in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_13304,2,av);} a=C_alloc(8); t2=code_798(); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13315,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13319,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* core.scm:1506: scheme#reverse */ t5=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[73]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k13313 in k13302 in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_13315,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[180],t1); /* core.scm:1504: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_8152(t3,((C_word*)t0)[3],t2,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_TRUE);} /* k13317 in k13302 in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13319,2,av);} a=C_alloc(5); t2=lf[73] /* chicken.compiler.core#pending-canonicalizations */ =C_SCHEME_END_OF_LIST;; t3=t1; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13329,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* core.scm:1510: scheme#append */ t5=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[85]+1); av2[3]=*((C_word*)lf[19]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k13327 in k13317 in k13302 in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_13329,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1); t3=((C_word*)t0)[2]; t4=C_a_i_list(&a,1,t3); /* core.scm:1505: ##sys#append */ t5=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k13333 in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13335,2,av);} /* core.scm:1501: chicken.pretty-print#pretty-print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,5)))){ C_save_and_reclaim((void *)f_13340,5,av);} a=C_alloc(32); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13343,tmp=(C_word)a,a+=2,tmp)); t16=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13378,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t17=C_set_block_item(t10,0,*((C_word*)lf[140]+1)); t18=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13385,a[2]=t14,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp)); t19=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13406,tmp=(C_word)a,a+=2,tmp)); t20=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13434,a[2]=t2,a[3]=t10,a[4]=t6,a[5]=t8,a[6]=t12,a[7]=t14,a[8]=t4,a[9]=t3,tmp=(C_word)a,a+=10,tmp); t21=t20; f_13434(t21,t1);} /* check-decl in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13343(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_13343,4,t1,t2,t3,t4);} t5=C_i_cdr(t2); t6=C_i_length(t5); t7=C_i_lessp(t6,t3); if(C_truep(t7)){ if(C_truep(t7)){ /* core.scm:1519: chicken.syntax#syntax-error */ t8=*((C_word*)lf[363]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t1; av2[2]=lf[390]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ if(C_truep(C_i_nullp(t4))){ if(C_truep(C_i_greaterp(t6,C_fix(99999)))){ /* core.scm:1519: chicken.syntax#syntax-error */ t8=*((C_word*)lf[363]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t1; av2[2]=lf[390]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t8=C_i_car(t4); if(C_truep(C_i_greaterp(t6,t8))){ /* core.scm:1519: chicken.syntax#syntax-error */ t9=*((C_word*)lf[363]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t1; av2[2]=lf[390]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t9=C_SCHEME_UNDEFINED; t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}} /* stripa in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13378(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_13378,3,t0,t1,t2);} /* core.scm:1521: ##sys#globalize */ t3=*((C_word*)lf[391]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* globalize-all in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13385(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_13385,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13391,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=t3; t5=C_i_check_list_2(t2,lf[8]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6784,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_6784(t9,t1,t2);} /* a13390 in globalize-all in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_13391,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13398,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1526: local? */ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13396 in a13390 in globalize-all in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_13398,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13401,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1527: note-local */ f_13406(t2,((C_word*)t0)[4]);} else{ /* core.scm:1529: ##sys#globalize */ t2=*((C_word*)lf[391]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k13399 in k13396 in a13390 in globalize-all in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13401,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* note-local in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13406(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_13406,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13414,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:1533: chicken.base#open-output-string */ t4=*((C_word*)lf[130]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13412 in note-local in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_13414,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13420,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1533: ##sys#print */ t6=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[393]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k13418 in k13412 in note-local in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_13420,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13423,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1533: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k13421 in k13418 in k13412 in note-local in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_13423,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13426,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1533: ##sys#write-char-0 */ t3=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k13424 in k13421 in k13418 in k13412 in note-local in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13426,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13429,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1533: chicken.base#get-output-string */ t3=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k13427 in k13424 in k13421 in k13418 in k13412 in note-local in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13429,2,av);} /* core.scm:1532: ##sys#notice */ t2=*((C_word*)lf[392]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13434(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_13434,2,t0,t1);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13438,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_13438(2,av2);}} else{ /* core.scm:1537: chicken.syntax#syntax-error */ t3=*((C_word*)lf[363]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[469]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_13438,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13441,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); /* core.scm:1538: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_13441,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13444,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_eqp(t1,lf[395]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13450,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13480,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=((C_word*)t0)[3]; t7=C_u_i_cdr(t6); /* core.scm:1540: stripu */ t8=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t5; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t4=C_eqp(t1,lf[397]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13491,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:1549: check-decl */ f_13343(t5,((C_word*)t0)[3],C_fix(1),C_a_i_list(&a,1,C_fix(1)));} else{ t5=C_eqp(t1,lf[399]); if(C_truep(t5)){ t6=((C_word*)t0)[3]; t7=C_u_i_cdr(t6); if(C_truep(C_i_nullp(t7))){ t8=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,*((C_word*)lf[84]+1)); t9=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t9; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13533,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13537,a[2]=t8,tmp=(C_word)a,a+=3,tmp); t10=((C_word*)t0)[3]; t11=C_u_i_cdr(t10); /* core.scm:1558: stripa */ t12=((C_word*)((C_word*)t0)[6])[1]; f_13378(t12,t9,t11);}} else{ t6=C_eqp(t1,lf[400]); if(C_truep(t6)){ t7=((C_word*)t0)[3]; t8=C_u_i_cdr(t7); if(C_truep(C_i_nullp(t8))){ t9=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,*((C_word*)lf[83]+1)); t10=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t10; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13558,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13562,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=((C_word*)t0)[3]; t12=C_u_i_cdr(t11); /* core.scm:1562: stripa */ t13=((C_word*)((C_word*)t0)[6])[1]; f_13378(t13,t10,t12);}} else{ t7=C_eqp(t1,lf[401]); if(C_truep(t7)){ t8=((C_word*)t0)[3]; t9=C_u_i_cdr(t8); if(C_truep(C_i_nullp(t9))){ t10=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,*((C_word*)lf[84]+1)); t11=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,*((C_word*)lf[83]+1)); t12=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t12; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13583,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=((C_word*)t0)[3]; t12=C_u_i_cdr(t11); /* core.scm:1568: stripa */ t13=((C_word*)((C_word*)t0)[6])[1]; f_13378(t13,t10,t12);}} else{ t8=C_eqp(t1,lf[402]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13604,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1572: check-decl */ f_13343(t9,((C_word*)t0)[3],C_fix(1),C_a_i_list(&a,1,C_fix(1)));} else{ t9=C_eqp(t1,lf[404]); t10=(C_truep(t9)?t9:C_eqp(t1,lf[405])); if(C_truep(t10)){ t11=C_mutate((C_word*)lf[403]+1 /* (set! chicken.compiler.support#number-type ...) */,lf[404]); t12=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t12; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t11=C_eqp(t1,lf[406]); if(C_truep(t11)){ t12=C_mutate((C_word*)lf[403]+1 /* (set! chicken.compiler.support#number-type ...) */,lf[406]); t13=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t13; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t12=C_eqp(t1,lf[407]); if(C_truep(t12)){ t13=C_set_block_item(lf[142] /* chicken.compiler.support#unsafe */,0,C_SCHEME_TRUE); t14=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t14; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t13=C_eqp(t1,lf[408]); if(C_truep(t13)){ t14=C_set_block_item(lf[142] /* chicken.compiler.support#unsafe */,0,C_SCHEME_FALSE); t15=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t15; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t14=C_eqp(t1,lf[409]); if(C_truep(t14)){ t15=C_set_block_item(lf[31] /* chicken.compiler.core#no-bound-checks */,0,C_SCHEME_TRUE); t16=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t16; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t15=C_eqp(t1,lf[410]); if(C_truep(t15)){ t16=C_set_block_item(lf[32] /* chicken.compiler.core#no-argc-checks */,0,C_SCHEME_TRUE); t17=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t17; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} else{ t16=C_eqp(t1,lf[411]); if(C_truep(t16)){ t17=C_set_block_item(lf[33] /* chicken.compiler.core#no-procedure-checks */,0,C_SCHEME_TRUE); t18=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t18; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ t17=C_eqp(t1,lf[412]); if(C_truep(t17)){ t18=C_set_block_item(lf[20] /* chicken.compiler.core#insert-timer-checks */,0,C_SCHEME_FALSE); t19=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t19; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t18=C_eqp(t1,lf[413]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13685,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t20=((C_word*)t0)[3]; t21=C_u_i_cdr(t20); /* core.scm:1583: stripa */ t22=((C_word*)((C_word*)t0)[6])[1]; f_13378(t22,t19,t21);} else{ t19=C_eqp(t1,lf[414]); if(C_truep(t19)){ t20=lf[35] /* chicken.compiler.core#safe-globals-flag */ =C_SCHEME_TRUE;; t21=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t21; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}} else{ t20=C_eqp(t1,lf[415]); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13737,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:1588: scheme#append */ t22=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t22; av2[1]=t21; av2[2]=*((C_word*)lf[84]+1); av2[3]=*((C_word*)lf[83]+1); ((C_proc)(void*)(*((C_word*)t22+1)))(4,av2);}} else{ t21=C_eqp(t1,lf[416]); if(C_truep(t21)){ t22=C_set_block_item(lf[34] /* chicken.compiler.core#no-global-procedure-checks */,0,C_SCHEME_TRUE); t23=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t23; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} else{ t22=C_eqp(t1,lf[417]); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13819,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t24=((C_word*)t0)[3]; t25=C_u_i_cdr(t24); /* core.scm:1595: globalize-all */ t26=((C_word*)((C_word*)t0)[7])[1]; f_13385(t26,t23,t25);} else{ t23=C_eqp(t1,lf[418]); if(C_truep(t23)){ t24=((C_word*)t0)[3]; t25=C_u_i_cdr(t24); t26=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13899,a[2]=((C_word*)t0)[2],a[3]=t25,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1600: every */ f_6491(t26,*((C_word*)lf[421]+1),t25);} else{ t24=C_eqp(t1,lf[422]); if(C_truep(t24)){ t25=C_set_block_item(lf[25] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_TRUE); t26=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t26; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t26+1)))(2,av2);}} else{ t25=C_eqp(t1,lf[423]); if(C_truep(t25)){ t26=C_set_block_item(lf[25] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_FALSE); t27=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t27; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}} else{ t26=C_eqp(t1,lf[424]); if(C_truep(t26)){ t27=C_set_block_item(lf[41] /* chicken.compiler.core#undefine-shadowed-macros */,0,C_SCHEME_FALSE); t28=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t28; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t28+1)))(2,av2);}} else{ t27=C_eqp(t1,lf[425]); if(C_truep(t27)){ t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13941,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t29=((C_word*)t0)[3]; t30=C_u_i_cdr(t29); /* core.scm:1607: globalize-all */ t31=((C_word*)((C_word*)t0)[7])[1]; f_13385(t31,t28,t30);} else{ t28=C_eqp(t1,lf[427]); if(C_truep(t28)){ t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13986,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t30=((C_word*)t0)[3]; t31=C_u_i_cdr(t30); /* core.scm:1611: globalize-all */ t32=((C_word*)((C_word*)t0)[7])[1]; f_13385(t32,t29,t31);} else{ t29=C_eqp(t1,lf[429]); if(C_truep(t29)){ t30=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14026,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* core.scm:1613: check-decl */ f_13343(t30,((C_word*)t0)[3],C_fix(1),C_SCHEME_END_OF_LIST);} else{ t30=C_eqp(t1,lf[436]); if(C_truep(t30)){ t31=C_set_block_item(lf[190] /* ##sys#enable-runtime-macros */,0,C_SCHEME_TRUE); t32=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t32; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t32+1)))(2,av2);}} else{ t31=C_eqp(t1,lf[437]); t32=(C_truep(t31)?t31:C_eqp(t1,lf[438])); if(C_truep(t32)){ t33=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14286,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t34=((C_word*)t0)[3]; t35=C_u_i_cdr(t34); /* core.scm:1656: globalize-all */ t36=((C_word*)((C_word*)t0)[7])[1]; f_13385(t36,t33,t35);} else{ t33=C_eqp(t1,lf[439]); if(C_truep(t33)){ t34=C_set_block_item(lf[25] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_TRUE); t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14334,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t36=((C_word*)t0)[3]; t37=C_u_i_cdr(t36); /* core.scm:1662: globalize-all */ t38=((C_word*)((C_word*)t0)[7])[1]; f_13385(t38,t35,t37);} else{ t34=C_eqp(t1,lf[441]); if(C_truep(t34)){ t35=C_set_block_item(lf[38] /* chicken.compiler.core#external-protos-first */,0,C_SCHEME_TRUE); t36=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t36; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t36+1)))(2,av2);}} else{ t35=C_eqp(t1,lf[430]); if(C_truep(t35)){ t36=((C_word*)t0)[3]; t37=C_u_i_cdr(t36); if(C_truep(C_i_nullp(t37))){ t38=C_set_block_item(lf[49] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_TRUE); t39=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t39; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t39+1)))(2,av2);}} else{ t38=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14393,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t39=((C_word*)t0)[3]; t40=C_u_i_cdr(t39); /* core.scm:1671: globalize-all */ t41=((C_word*)((C_word*)t0)[7])[1]; f_13385(t41,t38,t40);}} else{ t36=C_eqp(t1,lf[443]); if(C_truep(t36)){ t37=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14435,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:1673: check-decl */ f_13343(t37,((C_word*)t0)[3],C_fix(1),C_a_i_list(&a,1,C_fix(1)));} else{ t37=C_eqp(t1,lf[445]); if(C_truep(t37)){ t38=((C_word*)t0)[3]; t39=C_u_i_cdr(t38); t40=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14461,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=t39,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:1682: every */ f_6491(t40,*((C_word*)lf[104]+1),t39);} else{ t38=C_eqp(t1,lf[448]); if(C_truep(t38)){ t39=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14511,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t40=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t41=t40; t42=(*a=C_VECTOR_TYPE|1,a[1]=t41,tmp=(C_word)a,a+=2,tmp); t43=((C_word*)t42)[1]; t44=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14587,a[2]=t39,a[3]=t42,a[4]=t43,tmp=(C_word)a,a+=5,tmp); t45=((C_word*)t0)[3]; t46=C_u_i_cdr(t45); /* core.scm:1701: chicken.syntax#strip-syntax */ t47=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t47; av2[1]=t44; av2[2]=t46; ((C_proc)(void*)(*((C_word*)t47+1)))(3,av2);}} else{ t39=C_eqp(t1,lf[451]); if(C_truep(t39)){ t40=C_set_block_item(lf[30] /* chicken.compiler.core#emit-profile */,0,C_SCHEME_TRUE); t41=((C_word*)t0)[3]; t42=C_u_i_cdr(t41); if(C_truep(C_i_nullp(t42))){ t43=C_mutate((C_word*)lf[42]+1 /* (set! chicken.compiler.core#profiled-procedures ...) */,lf[173]); t44=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t44; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t44+1)))(2,av2);}} else{ t43=C_mutate((C_word*)lf[42]+1 /* (set! chicken.compiler.core#profiled-procedures ...) */,lf[174]); t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14652,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t45=((C_word*)t0)[3]; t46=C_u_i_cdr(t45); /* core.scm:1710: globalize-all */ t47=((C_word*)((C_word*)t0)[7])[1]; f_13385(t47,t44,t46);}} else{ t40=C_eqp(t1,lf[452]); if(C_truep(t40)){ t41=((C_word*)t0)[3]; t42=C_u_i_cdr(t41); if(C_truep(C_i_nullp(t42))){ t43=C_set_block_item(lf[48] /* chicken.compiler.core#local-definitions */,0,C_SCHEME_TRUE); t44=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t44; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t44+1)))(2,av2);}} else{ t43=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14706,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t44=((C_word*)t0)[3]; t45=C_u_i_cdr(t44); /* core.scm:1717: stripa */ t46=((C_word*)((C_word*)t0)[6])[1]; f_13378(t46,t43,t45);}} else{ t41=C_eqp(t1,lf[433]); if(C_truep(t41)){ t42=C_set_block_item(lf[50] /* chicken.compiler.core#enable-inline-files */,0,C_SCHEME_TRUE); t43=C_set_block_item(lf[49] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_TRUE); t44=((C_word*)t0)[3]; t45=C_u_i_cdr(t44); if(C_truep(C_i_pairp(t45))){ t46=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14761,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t47=((C_word*)t0)[3]; t48=C_u_i_cdr(t47); /* core.scm:1724: globalize-all */ t49=((C_word*)((C_word*)t0)[7])[1]; f_13385(t49,t46,t48);} else{ t46=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t46; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t46+1)))(2,av2);}}} else{ t42=C_eqp(t1,lf[454]); if(C_truep(t42)){ t43=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14801,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); t44=((C_word*)t0)[3]; t45=C_u_i_cdr(t44); t46=C_i_check_list_2(t45,lf[98]); t47=C_SCHEME_UNDEFINED; t48=(*a=C_VECTOR_TYPE|1,a[1]=t47,tmp=(C_word)a,a+=2,tmp); t49=C_set_block_item(t48,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14965,a[2]=t48,a[3]=t43,tmp=(C_word)a,a+=4,tmp)); t50=((C_word*)t48)[1]; f_14965(t50,t2,t45);} else{ t43=C_eqp(t1,lf[463]); if(C_truep(t43)){ t44=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14993,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); t45=((C_word*)t0)[3]; t46=C_u_i_cdr(t45); t47=C_i_check_list_2(t46,lf[98]); t48=C_SCHEME_UNDEFINED; t49=(*a=C_VECTOR_TYPE|1,a[1]=t48,tmp=(C_word)a,a+=2,tmp); t50=C_set_block_item(t49,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15087,a[2]=t49,a[3]=t44,tmp=(C_word)a,a+=4,tmp)); t51=((C_word*)t49)[1]; f_15087(t51,t2,t46);} else{ t44=C_eqp(t1,lf[466]); if(C_truep(t44)){ t45=C_set_block_item(lf[54] /* chicken.compiler.core#enable-specialization */,0,C_SCHEME_TRUE); t46=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t46; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t46+1)))(2,av2);}} else{ t45=C_eqp(t1,lf[467]); if(C_truep(t45)){ t46=C_set_block_item(lf[53] /* chicken.compiler.core#strict-variable-types */,0,C_SCHEME_TRUE); t47=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t47; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t47+1)))(2,av2);}} else{ /* core.scm:1780: chicken.base#warning */ t46=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t46; av2[1]=t2; av2[2]=lf[468]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t46+1)))(4,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k13442 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13444,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k13448 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_13450,2,av);} a=C_alloc(4); t2=t1; if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13460,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:1542: scheme#append */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[79]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k13458 in k13448 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_13460,2,av);} a=C_alloc(4); t2=C_mutate((C_word*)lf[79]+1 /* (set! chicken.compiler.core#provided ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13464,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1543: scheme#append */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[21]+1); av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k13462 in k13458 in k13448 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_13464,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[21]+1 /* (set! chicken.compiler.core#used-units ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13469,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13475,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1544: chicken.internal#hash-table-update! */ t5=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[78]+1); av2[3]=lf[396]; av2[4]=t3; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* a13468 in k13462 in k13458 in k13448 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13469,3,av);} t3=lf[13]; /* core.scm:1546: g2677 */ t4=lf[13];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; f_7036(4,av2);}} /* a13474 in k13462 in k13458 in k13448 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13475,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k13478 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_13480,2,av);} a=C_alloc(3); /* core.scm:1540: lset-difference/eq? */ f_6991(((C_word*)t0)[2],t1,C_a_i_list(&a,1,*((C_word*)lf[21]+1)));} /* k13489 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13491,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13494,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* core.scm:1550: stripu */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13492 in k13489 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_13494,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13497,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13502,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[17]+1))){ t5=C_eqp(*((C_word*)lf[17]+1),t2); t6=t4; f_13502(t6,C_i_not(t5));} else{ t5=t4; f_13502(t5,C_SCHEME_FALSE);}} /* k13495 in k13492 in k13489 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13497,2,av);} t2=C_mutate((C_word*)lf[17]+1 /* (set! chicken.compiler.core#unit-name ...) */,((C_word*)t0)[2]); t3=C_set_block_item(lf[47] /* chicken.compiler.core#standalone-executable */,0,C_SCHEME_FALSE); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k13500 in k13492 in k13489 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13502(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_13502,2,t0,t1);} if(C_truep(t1)){ /* core.scm:1552: chicken.base#warning */ t2=*((C_word*)lf[125]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[398]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_mutate((C_word*)lf[17]+1 /* (set! chicken.compiler.core#unit-name ...) */,((C_word*)t0)[3]); t3=C_set_block_item(lf[47] /* chicken.compiler.core#standalone-executable */,0,C_SCHEME_FALSE); t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13531 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13533,2,av);} t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13535 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13537,2,av);} /* core.scm:1558: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k13556 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13558,2,av);} t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13560 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13562,2,av);} /* core.scm:1562: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[19]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k13581 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_13583,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13587,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:1569: lset-intersection/eq? */ f_7115(t3,t2,C_a_i_list(&a,1,*((C_word*)lf[84]+1)));} /* k13585 in k13581 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_13587,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13591,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1570: lset-intersection/eq? */ f_7115(t3,((C_word*)t0)[3],C_a_i_list(&a,1,*((C_word*)lf[83]+1)));} /* k13589 in k13585 in k13581 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13591,2,av);} t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13602 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13604,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13608,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* core.scm:1573: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13606 in k13602 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13608,2,av);} t2=C_mutate((C_word*)lf[403]+1 /* (set! chicken.compiler.support#number-type ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13683 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13685,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13693,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_13693(t6,((C_word*)t0)[2],t1);} /* for-each-loop2699 in k13683 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13693(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_13693,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13703,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1583: g2715 */ t6=*((C_word*)lf[148]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[149]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13701 in for-each-loop2699 in k13683 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13703,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13693(t3,((C_word*)t0)[4],t2);} /* k13735 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_13737,2,av);} a=C_alloc(8); t2=C_i_check_list_2(t1,lf[98]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13743,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13782,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_13782(t7,t3,t1);} /* k13741 in k13735 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_13743,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13751,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1591: scheme#append */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[84]+1); av2[3]=*((C_word*)lf[83]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k13749 in k13741 in k13735 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13751,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13759,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_13759(t6,((C_word*)t0)[2],t1);} /* for-each-loop2749 in k13749 in k13741 in k13735 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13759(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_13759,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13769,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1590: g2765 */ t6=*((C_word*)lf[148]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[149]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13767 in for-each-loop2749 in k13749 in k13741 in k13735 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13769,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13759(t3,((C_word*)t0)[4],t2);} /* for-each-loop2724 in k13735 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13782(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_13782,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13792,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1587: g2740 */ t6=*((C_word*)lf[148]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[281]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13790 in for-each-loop2724 in k13735 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13792,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13782(t3,((C_word*)t0)[4],t2);} /* k13817 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_13819,2,av);} a=C_alloc(9); t2=t1; t3=C_i_check_list_2(t2,lf[98]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13830,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13863,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_13863(t8,t4,t2);} /* k13828 in k13817 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13830,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13840,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_13840(t5,((C_word*)t0)[2],((C_word*)t0)[3]);} /* for-each-loop2786 in k13828 in k13817 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13840(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_13840,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13850,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1597: g2817 */ t6=*((C_word*)lf[148]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[149]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13848 in for-each-loop2786 in k13828 in k13817 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13850,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13840(t3,((C_word*)t0)[4],t2);} /* for-each-loop2776 in k13817 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13863(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_13863,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13873,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1596: g2802 */ t6=*((C_word*)lf[148]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[281]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13871 in for-each-loop2776 in k13817 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13873,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13863(t3,((C_word*)t0)[4],t2);} /* k13897 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13899,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13903,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1601: scheme#append */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[22]+1); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* core.scm:1602: chicken.syntax#syntax-error */ t2=*((C_word*)lf[363]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[419]; av2[3]=lf[420]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k13901 in k13897 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13903,2,av);} t2=C_mutate((C_word*)lf[22]+1 /* (set! chicken.compiler.core#foreign-declarations ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13939 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13941,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13949,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_13949(t6,((C_word*)t0)[2],t1);} /* for-each-loop2828 in k13939 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13949(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_13949,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13959,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1607: g2844 */ t6=*((C_word*)lf[148]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[426]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13957 in for-each-loop2828 in k13939 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13959,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13949(t3,((C_word*)t0)[4],t2);} /* k13984 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_13986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13986,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13994,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_13994(t6,((C_word*)t0)[2],t1);} /* for-each-loop2853 in k13984 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_13994(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_13994,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14004,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1610: g2869 */ t6=*((C_word*)lf[148]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[428]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14002 in for-each-loop2853 in k13984 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14004,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13994(t3,((C_word*)t0)[4],t2);} /* k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_14026,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14029,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=((C_word*)t0)[2]; t4=C_i_cadr(t3); /* core.scm:1614: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_14029,2,av);} a=C_alloc(8); t2=C_eqp(t1,lf[399]); if(C_truep(t2)){ t3=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t3))){ t4=C_set_block_item(lf[18] /* chicken.compiler.core#standard-bindings */,0,C_SCHEME_END_OF_LIST); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14046,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14050,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); /* core.scm:1620: stripa */ t9=((C_word*)((C_word*)t0)[4])[1]; f_13378(t9,t5,t8);}} else{ t3=C_eqp(t1,lf[400]); if(C_truep(t3)){ t4=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t4))){ t5=C_set_block_item(lf[19] /* chicken.compiler.core#extended-bindings */,0,C_SCHEME_END_OF_LIST); t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14074,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14078,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); t9=C_u_i_cdr(t8); /* core.scm:1626: stripa */ t10=((C_word*)((C_word*)t0)[4])[1]; f_13378(t10,t6,t9);}} else{ t4=C_eqp(t1,lf[430]); if(C_truep(t4)){ t5=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t5))){ t6=C_set_block_item(lf[49] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_FALSE); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14106,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); t9=C_u_i_cdr(t8); /* core.scm:1632: globalize-all */ t10=((C_word*)((C_word*)t0)[6])[1]; f_13385(t10,t6,t9);}} else{ t5=C_eqp(t1,lf[401]); if(C_truep(t5)){ t6=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t6))){ t7=C_set_block_item(lf[18] /* chicken.compiler.core#standard-bindings */,0,C_SCHEME_END_OF_LIST); t8=C_set_block_item(lf[19] /* chicken.compiler.core#extended-bindings */,0,C_SCHEME_END_OF_LIST); t9=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t9; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14159,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); t10=C_u_i_cdr(t9); /* core.scm:1638: stripa */ t11=((C_word*)((C_word*)t0)[4])[1]; f_13378(t11,t7,t10);}} else{ t6=C_eqp(t1,lf[433]); if(C_truep(t6)){ t7=C_set_block_item(lf[50] /* chicken.compiler.core#enable-inline-files */,0,C_SCHEME_TRUE); t8=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t8))){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14195,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); t12=C_u_i_cdr(t11); /* core.scm:1646: globalize-all */ t13=((C_word*)((C_word*)t0)[6])[1]; f_13385(t13,t9,t12);} else{ t9=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t9; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14234,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* core.scm:1648: check-decl */ f_13343(t7,((C_word*)t0)[2],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}}}}}} /* k14044 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14046,2,av);} t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14048 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_14050,2,av);} a=C_alloc(3); /* core.scm:1619: lset-difference/eq? */ f_6991(((C_word*)t0)[2],*((C_word*)lf[84]+1),C_a_i_list(&a,1,t1));} /* k14072 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14074,2,av);} t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14076 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_14078,2,av);} a=C_alloc(3); /* core.scm:1625: lset-difference/eq? */ f_6991(((C_word*)t0)[2],*((C_word*)lf[83]+1),C_a_i_list(&a,1,t1));} /* k14104 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14106,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14114,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_14114(t6,((C_word*)t0)[2],t1);} /* for-each-loop2884 in k14104 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14114(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_14114,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14124,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1631: g2900 */ t6=*((C_word*)lf[148]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[431]; av2[4]=lf[432]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14122 in for-each-loop2884 in k14104 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14124,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14114(t3,((C_word*)t0)[4],t2);} /* k14157 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_14159,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14163,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:1639: lset-difference/eq? */ f_6991(t3,*((C_word*)lf[84]+1),C_a_i_list(&a,1,t2));} /* k14161 in k14157 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_14163,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14167,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1640: lset-difference/eq? */ f_6991(t3,*((C_word*)lf[83]+1),C_a_i_list(&a,1,((C_word*)t0)[3]));} /* k14165 in k14161 in k14157 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14167,2,av);} t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14193 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14195,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14203,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_14203(t6,((C_word*)t0)[2],t1);} /* for-each-loop2916 in k14193 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14203(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_14203,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14213,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1645: g2932 */ t6=*((C_word*)lf[148]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[434]; av2[4]=lf[432]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14211 in for-each-loop2916 in k14193 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14213,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14203(t3,((C_word*)t0)[4],t2);} /* k14232 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14234,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14237,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[4]); /* core.scm:1649: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k14235 in k14232 in k14027 in k14024 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14237,2,av);} t2=C_eqp(t1,lf[408]); if(C_truep(t2)){ t3=C_set_block_item(lf[142] /* chicken.compiler.support#unsafe */,0,C_SCHEME_TRUE); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* core.scm:1652: chicken.base#warning */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[435]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k14284 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_14286,2,av);} a=C_alloc(6); if(C_truep(C_i_nullp(t1))){ t2=C_set_block_item(lf[25] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_TRUE); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=*((C_word*)lf[147]+1); t3=C_i_check_list_2(t1,lf[98]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14301,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_14301(t7,((C_word*)t0)[3],t1);}} /* for-each-loop2955 in k14284 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14301(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_14301,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14311,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:1659: g2956 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14309 in for-each-loop2955 in k14284 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14311,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14301(t3,((C_word*)t0)[4],t2);} /* k14332 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_14334,2,av);} a=C_alloc(6); t2=*((C_word*)lf[440]+1); t3=C_i_check_list_2(t1,lf[98]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14342,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_14342(t7,((C_word*)t0)[2],t1);} /* for-each-loop2973 in k14332 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14342(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_14342,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14352,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:1663: g2974 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14350 in for-each-loop2973 in k14332 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14352,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14342(t3,((C_word*)t0)[4],t2);} /* k14391 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14393,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14401,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_14401(t6,((C_word*)t0)[2],t1);} /* for-each-loop2991 in k14391 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14401(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_14401,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14411,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1670: g3007 */ t6=*((C_word*)lf[148]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[442]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14409 in for-each-loop2991 in k14391 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14411,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14401(t3,((C_word*)t0)[4],t2);} /* k14433 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14435,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); if(C_truep(C_i_numberp(t2))){ t3=C_mutate((C_word*)lf[39]+1 /* (set! chicken.compiler.core#inline-max-size ...) */,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* core.scm:1677: chicken.base#warning */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[444]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k14459 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_14461,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14469,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1685: globalize-all */ t3=((C_word*)((C_word*)t0)[3])[1]; f_13385(t3,t2,((C_word*)t0)[4]);} else{ /* core.scm:1686: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[447]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k14467 in k14459 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14469,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14477,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_14477(t6,((C_word*)t0)[2],t1);} /* for-each-loop3019 in k14467 in k14459 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14477(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_14477,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14487,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1684: g3035 */ t6=*((C_word*)lf[148]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[446]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14485 in for-each-loop3019 in k14467 in k14459 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14487,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14477(t3,((C_word*)t0)[4],t2);} /* k14509 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14511,2,av);} t2=C_mutate((C_word*)lf[43]+1 /* (set! chicken.compiler.core#import-libraries ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14528 in map-loop3044 in k14585 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_14530,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k14532 in map-loop3044 in k14585 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14534,2,av);} /* ##sys#string-append */ t2=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[449]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k14539 in map-loop3044 in k14585 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14541(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_14541,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_i_cadr(((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* core.scm:1699: chicken.base#warning */ t2=*((C_word*)lf[125]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[450]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k14585 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_14587,2,av);} a=C_alloc(10); t2=C_i_check_list_2(t1,lf[10]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14593,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14595,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_14595(t7,t3,t1);} /* k14591 in k14585 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14593,2,av);} /* core.scm:1690: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[43]+1); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop3044 in k14585 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14595(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_14595,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14620,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; if(C_truep(C_i_symbolp(t6))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14530,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14534,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* core.scm:1694: scheme#symbol->string */ t9=*((C_word*)lf[241]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14541,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_listp(t6))){ t8=C_u_i_length(t6); t9=C_eqp(C_fix(2),t8); if(C_truep(t9)){ t10=C_i_car(t6); if(C_truep(C_i_symbolp(t10))){ t11=C_i_cadr(t6); t12=t7; f_14541(t12,C_a_i_string(&a,1,t11));} else{ t11=t7; f_14541(t11,C_SCHEME_FALSE);}} else{ t10=t7; f_14541(t10,C_SCHEME_FALSE);}} else{ t8=t7; f_14541(t8,C_SCHEME_FALSE);}}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k14618 in map-loop3044 in k14585 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14620,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_14595(t6,((C_word*)t0)[5],t5);} /* k14650 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14652,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14660,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_14660(t6,((C_word*)t0)[2],t1);} /* for-each-loop3082 in k14650 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14660(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_14660,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14670,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1709: g3098 */ t6=*((C_word*)lf[148]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[176]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14668 in for-each-loop3082 in k14650 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14670,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14660(t3,((C_word*)t0)[4],t2);} /* k14704 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14706,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14714,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_14714(t6,((C_word*)t0)[2],t1);} /* for-each-loop3113 in k14704 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14714(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_14714,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14724,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1716: g3129 */ t6=*((C_word*)lf[148]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[442]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14722 in for-each-loop3113 in k14704 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14724,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14714(t3,((C_word*)t0)[4],t2);} /* k14759 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14761,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[98]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14769,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_14769(t6,((C_word*)t0)[2],t1);} /* for-each-loop3138 in k14759 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14769(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_14769,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14779,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[148]+1); /* core.scm:1723: g3154 */ t6=*((C_word*)lf[148]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[434]; av2[4]=lf[453]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14777 in for-each-loop3138 in k14759 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14779,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14769(t3,((C_word*)t0)[4],t2);} /* g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14801(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_14801,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14808,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_listp(t2))){ t4=t2; t5=C_u_i_length(t4); if(C_truep(C_fixnum_greater_or_equal_p(t5,C_fix(2)))){ t6=C_i_car(t2); t7=C_i_symbolp(t6); t8=t3; f_14808(t8,C_i_not(t7));} else{ t6=t3; f_14808(t6,C_SCHEME_TRUE);}} else{ t4=t3; f_14808(t4,C_SCHEME_TRUE);}} /* k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14808(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_14808,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14815,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:1731: chicken.syntax#strip-syntax */ t3=*((C_word*)lf[140]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14818,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[3]); /* core.scm:1732: ##sys#globalize */ t4=*((C_word*)lf[391]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k14813 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14815,2,av);} /* core.scm:1731: chicken.base#warning */ t2=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[455]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_14818,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14821,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=C_i_cadr(((C_word*)t0)[2]); /* core.scm:1733: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k14819 in k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_14821,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14827,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); /* core.scm:1734: local? */ t6=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k14825 in k14819 in k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_14827,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); /* core.scm:1735: note-local */ f_13406(((C_word*)t0)[4],t3);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14837,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* core.scm:1736: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}}} /* a14836 in k14825 in k14819 in k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14837,2,av);} /* core.scm:1736: chicken.compiler.scrutinizer#validate-type */ t2=*((C_word*)lf[456]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a14842 in k14825 in k14819 in k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_14843,5,av);} a=C_alloc(8); t5=t2; t6=t3; t7=t4; if(C_truep(t5)){ t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14850,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t6,a[6]=t7,a[7]=t5,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(t5))){ t9=C_u_i_car(t5); t10=C_eqp(lf[461],t9); if(C_truep(t10)){ t11=C_i_cadr(t5); if(C_truep(C_i_symbolp(t11))){ t12=C_i_cdr(t5); t13=t8; f_14850(t13,C_i_set_car(t12,((C_word*)t0)[3]));} else{ t12=t8; f_14850(t12,C_SCHEME_UNDEFINED);}} else{ t11=t8; f_14850(t11,C_SCHEME_UNDEFINED);}} else{ t9=t8; f_14850(t9,C_SCHEME_UNDEFINED);}} else{ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14923,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* core.scm:1759: chicken.syntax#strip-syntax */ t9=*((C_word*)lf[140]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k14848 in a14842 in k14825 in k14819 in k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14850(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_14850,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14853,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:1746: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[148]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[460]; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14851 in k14848 in a14842 in k14825 in k14819 in k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_14853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_14853,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:1747: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[459]; av2[4]=lf[452]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14854 in k14851 in k14848 in a14842 in k14825 in k14819 in k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_14856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_14856,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14859,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ /* core.scm:1749: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[446]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_14859(2,av2);}}} /* k14857 in k14854 in k14851 in k14848 in a14842 in k14825 in k14819 in k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_14859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14859,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14862,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[5])){ /* core.scm:1751: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[458]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_14862(2,av2);}}} /* k14860 in k14857 in k14854 in k14851 in k14848 in a14842 in k14825 in k14819 in k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_14862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14862,2,av);} a=C_alloc(4); t2=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14875,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); /* core.scm:1755: chicken.syntax#strip-syntax */ t7=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t3; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k14873 in k14860 in k14857 in k14854 in k14851 in k14848 in a14842 in k14825 in k14819 in k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_14875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14875,2,av);} /* core.scm:1753: chicken.compiler.scrutinizer#install-specializations */ t2=*((C_word*)lf[457]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k14921 in a14842 in k14825 in k14819 in k14816 in k14806 in g3166 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14923,2,av);} /* core.scm:1757: chicken.base#warning */ t2=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[462]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop3165 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14965(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_14965,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14975,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:1726: g3166 */ t5=((C_word*)t0)[3]; f_14801(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14973 in for-each-loop3165 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_14975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14975,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14965(t3,((C_word*)t0)[4],t2);} /* g3210 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_14993(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_14993,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15000,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_listp(t2))){ t4=C_i_car(t2); if(C_truep(C_i_symbolp(t4))){ t5=C_i_length(t2); t6=t3; f_15000(t6,C_eqp(C_fix(2),t5));} else{ t5=t3; f_15000(t5,C_SCHEME_FALSE);}} else{ t4=t3; f_15000(t4,C_SCHEME_FALSE);}} /* k14998 in g3210 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15000(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_15000,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15003,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[2]); /* core.scm:1765: ##sys#globalize */ t4=*((C_word*)lf[391]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* core.scm:1774: chicken.base#warning */ t2=*((C_word*)lf[125]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[465]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k15001 in k14998 in g3210 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_15003,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15006,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=C_i_cadr(((C_word*)t0)[2]); /* core.scm:1766: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k15004 in k15001 in k14998 in g3210 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_15006,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15012,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); /* core.scm:1767: local? */ t6=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k15010 in k15004 in k15001 in k14998 in g3210 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_15012,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); /* core.scm:1768: note-local */ f_13406(((C_word*)t0)[4],t3);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15022,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15028,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:1769: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}}} /* a15021 in k15010 in k15004 in k15001 in k14998 in g3210 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15022,2,av);} /* core.scm:1769: chicken.compiler.scrutinizer#validate-type */ t2=*((C_word*)lf[456]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a15027 in k15010 in k15004 in k15001 in k14998 in g3210 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15028,5,av);} t5=(C_truep(t2)?C_i_not(t3):C_SCHEME_FALSE); if(C_truep(t5)){ /* core.scm:1771: chicken.compiler.support#mark-variable */ t6=*((C_word*)lf[148]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[458]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* core.scm:1772: chicken.base#warning */ t6=*((C_word*)lf[125]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=lf[464]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* for-each-loop3209 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15087(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_15087,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15097,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:1762: g3210 */ t5=((C_word*)t0)[3]; f_14993(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15095 in for-each-loop3209 in k13439 in k13436 in a13433 in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15097,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15087(t3,((C_word*)t0)[4],t2);} /* chicken.compiler.core#register-static-extension in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_15227,3,av);} a=C_alloc(3); t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[80]+1)); t4=C_mutate((C_word*)lf[80]+1 /* (set! chicken.compiler.core#linked-static-extensions ...) */,t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.compiler.core#build-toplevel-procedure in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_15234,3,av);} a=C_alloc(3); t3=C_a_i_list1(&a,1,t2); /* core.scm:1793: chicken.compiler.support#make-node */ t4=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=lf[472]; av2[3]=lf[473]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* chicken.compiler.core#foreign-stub-id in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15257,3,av);} t3=C_i_check_structure_2(t2,lf[475],lf[476]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#foreign-stub-return-type in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15266,3,av);} t3=C_i_check_structure_2(t2,lf[475],lf[478]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#foreign-stub-name in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15275,3,av);} t3=C_i_check_structure_2(t2,lf[475],lf[480]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#foreign-stub-argument-types in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15284,3,av);} t3=C_i_check_structure_2(t2,lf[475],lf[482]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(4)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#foreign-stub-argument-names in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15293,3,av);} t3=C_i_check_structure_2(t2,lf[475],lf[484]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(5)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#foreign-stub-body in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15302,3,av);} t3=C_i_check_structure_2(t2,lf[475],lf[486]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(6)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#foreign-stub-cps in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15311,3,av);} t3=C_i_check_structure_2(t2,lf[475],lf[488]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(7)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#foreign-stub-callback in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15320,3,av);} t3=C_i_check_structure_2(t2,lf[475],lf[490]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(8)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15329(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){ C_word tmp; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_15329,8,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(9); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15416,a[2]=t3,a[3]=t5,a[4]=t6,a[5]=t8,a[6]=t7,a[7]=t1,a[8]=t4,tmp=(C_word)a,a+=9,tmp); /* core.scm:1824: chicken.syntax#strip-syntax */ t10=*((C_word*)lf[140]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* loop in map-loop3366 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15338(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15338,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=lf[497]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_listp(t2))){ t3=C_i_car(t2); t4=C_eqp(t3,lf[316]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15367,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15371,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=t2; t8=C_u_i_cdr(t7); /* core.scm:1819: loop */ t10=t6; t11=t8; t1=t10; t2=t11; goto loop;} else{ t5=C_eqp(t3,lf[500]); t6=(C_truep(t5)?t5:C_eqp(t3,lf[501])); if(C_truep(t6)){ t7=t2; t8=C_u_i_cdr(t7); /* core.scm:1820: loop */ t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t7=t2; t8=C_u_i_car(t7); /* core.scm:1821: loop */ t10=t1; t11=t8; t1=t10; t2=t11; goto loop;}}} else{ t3=C_i_symbolp(t2); if(C_truep(t3)){ if(C_truep(t3)){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[497]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ if(C_truep(C_i_stringp(t2))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[497]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}} /* k15365 in loop in map-loop3366 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15367,2,av);} /* core.scm:1819: scheme#string->symbol */ t2=*((C_word*)lf[494]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k15369 in loop in map-loop3366 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15371,2,av);} /* core.scm:1819: chicken.string#conc */ t2=*((C_word*)lf[498]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[499]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_15416,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15419,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* core.scm:1825: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_15419,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15422,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[3])){ t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[3]; t9=C_i_check_list_2(t8,lf[10]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15632,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_15632(t13,t3,t8);} else{ t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_check_list_2(t2,lf[10]); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15684,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_15684(t12,t3,t2);}} /* k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_15422,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15425,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* core.scm:1829: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[496]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_15425,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_15428,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* core.scm:1830: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_15428,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_15431,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); /* core.scm:1831: chicken.compiler.support#estimate-foreign-result-size */ t4=*((C_word*)lf[495]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_15431,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_15434,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); if(C_truep(((C_word*)t0)[2])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15621,a[2]=t3,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* core.scm:1832: scheme#string->symbol */ t5=*((C_word*)lf[494]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_15434(2,av2);}}} /* k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(60,c,2)))){ C_save_and_reclaim((void *)f_15434,2,av);} a=C_alloc(60); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=C_a_i_record(&a,9,lf[475],((C_word*)t0)[7],((C_word*)t0)[8],t2,((C_word*)t0)[9],t3,t4,t5,t6); t8=C_a_i_cons(&a,2,t7,*((C_word*)lf[69]+1)); t9=C_mutate((C_word*)lf[69]+1 /* (set! chicken.compiler.core#foreign-lambda-stubs ...) */,t8); t10=(C_truep(((C_word*)t0)[6])?C_s_a_i_plus(&a,2,((C_word*)t0)[10],C_fix(24)):((C_word*)t0)[10]); t11=t10; t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15444,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[6],a[6]=t11,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[13],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[5])){ t13=C_a_i_list(&a,2,lf[380],((C_word*)t0)[7]); t14=t12; f_15444(t14,C_a_i_list(&a,1,t13));} else{ t13=t12; f_15444(t13,C_a_i_list(&a,2,lf[286],((C_word*)t0)[7]));}} /* k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15444(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,4)))){ C_save_and_reclaim_args((void *)trf_15444,2,t0,t1);} a=C_alloc(21); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[10]); t8=C_i_check_list_2(((C_word*)t0)[3],lf[10]); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15465,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t2,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15551,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_15551(t13,t9,((C_word*)t0)[2],((C_word*)t0)[3]);} /* k15454 in map-loop3407 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15456,2,av);} /* core.scm:1840: chicken.compiler.support#foreign-type-check */ t2=*((C_word*)lf[267]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k15463 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_15465,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15476,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(C_truep(((C_word*)t0)[4])?lf[491]:C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15488,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_zerop(((C_word*)t0)[5]))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15496,a[2]=t6,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t8=C_a_i_cons(&a,2,lf[492],t2); /* core.scm:1845: scheme#append */ t9=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[7]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15503,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); /* core.scm:1846: chicken.compiler.support#final-foreign-type */ t8=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k15474 in k15463 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_15476,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[95],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k15486 in k15463 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_15488,2,av);} a=C_alloc(3); t2=C_a_i_list(&a,1,t1); /* core.scm:1841: ##sys#append */ t3=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k15494 in k15463 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15496,2,av);} /* core.scm:1845: chicken.compiler.support#foreign-type-convert-result */ t2=*((C_word*)lf[119]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k15501 in k15463 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_15503,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15506,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* core.scm:1847: chicken.compiler.support#bytes->words */ t4=*((C_word*)lf[326]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15504 in k15501 in k15463 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_15506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(75,c,3)))){ C_save_and_reclaim((void *)f_15506,2,av);} a=C_alloc(75); t2=C_s_a_i_plus(&a,2,C_fix(2),t1); t3=C_a_i_list(&a,2,lf[493],t2); t4=C_a_i_list(&a,2,lf[139],t1); t5=C_a_i_list(&a,3,lf[287],t3,t4); t6=C_a_i_list(&a,2,((C_word*)t0)[2],t5); t7=C_a_i_list(&a,1,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15517,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15521,a[2]=t9,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15525,a[2]=t10,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t12=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[7]); /* core.scm:1850: scheme#append */ t13=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t13; av2[1]=t11; av2[2]=((C_word*)t0)[8]; av2[3]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} /* k15515 in k15504 in k15501 in k15463 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_15517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_15517,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,lf[163],((C_word*)t0)[2],t1); t3=C_a_i_list(&a,1,t2); /* core.scm:1841: ##sys#append */ t4=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k15519 in k15504 in k15501 in k15463 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_15521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15521,2,av);} /* core.scm:1849: chicken.compiler.support#foreign-type-convert-result */ t2=*((C_word*)lf[119]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k15523 in k15504 in k15501 in k15463 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_15525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15525,2,av);} /* core.scm:1850: chicken.compiler.support#finish-foreign-result */ t2=*((C_word*)lf[120]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop3407 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15551(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_15551,4,t0,t1,t2,t3);} a=C_alloc(11); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15580,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); t9=t6; t10=t8; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15456,a[2]=t9,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* core.scm:1840: chicken.compiler.support#foreign-type-convert-argument */ t12=*((C_word*)lf[268]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t11; av2[2]=t7; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k15578 in map-loop3407 in k15442 in k15432 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_15580,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=C_slot(((C_word*)t0)[4],C_fix(1)); t7=((C_word*)((C_word*)t0)[5])[1]; f_15551(t7,((C_word*)t0)[6],t5,t6);} /* k15619 in k15429 in k15426 in k15423 in k15420 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15621,2,av);} /* core.scm:1832: chicken.compiler.support#set-real-name! */ t2=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop3340 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15632(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15632,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15657,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:1827: g3346 */ t5=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15655 in map-loop3340 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15657,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15632(t6,((C_word*)t0)[5],t5);} /* k15674 in map-loop3366 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15676,2,av);} /* core.scm:1828: chicken.base#gensym */ t2=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* map-loop3366 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15684(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_15684,3,t0,t1,t2);} a=C_alloc(14); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15709,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15676,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15338,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t10=((C_word*)t8)[1]; f_15338(t10,t6,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15707 in map-loop3366 in k15417 in k15414 in chicken.compiler.core#create-foreign-stub in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15709,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15684(t6,((C_word*)t0)[5],t5);} /* chicken.compiler.core#expand-foreign-lambda in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15718(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_15718,3,t1,t2,t3);} a=C_alloc(8); t4=t2; t5=C_i_caddr(t4); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15725,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_symbolp(t5))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15744,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* core.scm:1855: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[140]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ if(C_truep(C_i_stringp(t5))){ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=t5; f_15725(2,av2);}} else{ /* core.scm:1857: chicken.compiler.support#quit-compiling */ t7=*((C_word*)lf[261]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=lf[502]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} /* k15723 in chicken.compiler.core#expand-foreign-lambda in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_15725,2,av);} t2=((C_word*)t0)[2]; t3=C_i_cadr(t2); t4=C_i_cdddr(((C_word*)t0)[2]); /* core.scm:1862: create-foreign-stub */ f_15329(((C_word*)t0)[3],t3,t1,t4,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[4]);} /* k15742 in chicken.compiler.core#expand-foreign-lambda in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15744,2,av);} /* core.scm:1855: scheme#symbol->string */ t2=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.compiler.core#expand-foreign-lambda* in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15755(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_15755,3,t1,t2,t3);} a=C_alloc(6); t4=t2; t5=C_i_cadr(t4); t6=t5; t7=t2; t8=C_i_caddr(t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15765,a[2]=t9,a[3]=t1,a[4]=t6,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t11=C_i_cdddr(t2); /* core.scm:1867: chicken.string#string-intersperse */ t12=*((C_word*)lf[303]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t10; av2[2]=t11; av2[3]=lf[503]; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} /* k15763 in chicken.compiler.core#expand-foreign-lambda* in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_15765,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[10]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15779,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15830,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_15830(t12,t8,((C_word*)t0)[2]);} /* k15777 in k15763 in chicken.compiler.core#expand-foreign-lambda* in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_15779,2,av);} a=C_alloc(14); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15785,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t5,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* core.scm:1870: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k15783 in k15777 in k15763 in chicken.compiler.core#expand-foreign-lambda* in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_15785,2,av);} a=C_alloc(14); t2=C_i_check_list_2(t1,lf[10]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15791,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15796,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_15796(t7,t3,t1);} /* k15789 in k15783 in k15777 in k15763 in chicken.compiler.core#expand-foreign-lambda* in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_15791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_15791,2,av);} /* core.scm:1871: create-foreign-stub */ f_15329(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[6]);} /* map-loop3497 in k15783 in k15777 in k15763 in chicken.compiler.core#expand-foreign-lambda* in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15796(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_15796,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cadr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop3469 in k15763 in chicken.compiler.core#expand-foreign-lambda* in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_15830(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_15830,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15870 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_15872(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15872,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(C_truep(t2)?C_i_cadr(((C_word*)t0)[2]):lf[301]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15878,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t6=(C_truep(t2)?C_i_caddr(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2])); /* core.scm:1877: chicken.syntax#strip-syntax */ t7=*((C_word*)lf[140]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k15876 in k15870 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_15878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_15878,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15881,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(C_truep(((C_word*)t0)[4])?C_i_cdddr(((C_word*)t0)[5]):C_i_cddr(((C_word*)t0)[5])); /* core.scm:1878: chicken.string#string-intersperse */ t5=*((C_word*)lf[303]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[304]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k15879 in k15876 in k15870 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_15881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_15881,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[10]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15895,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15946,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_15946(t12,t8,((C_word*)t0)[2]);} /* k15893 in k15879 in k15876 in k15870 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_15895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_15895,2,av);} a=C_alloc(13); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* core.scm:1881: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k15899 in k15893 in k15879 in k15876 in k15870 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_15901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_15901,2,av);} a=C_alloc(13); t2=C_i_check_list_2(t1,lf[10]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15907,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15912,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_15912(t7,t3,t1);} /* k15905 in k15899 in k15893 in k15879 in k15876 in k15870 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_15907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_15907,2,av);} /* core.scm:1882: create-foreign-stub */ f_15329(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],t1,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_TRUE);} /* map-loop3559 in k15899 in k15893 in k15879 in k15876 in k15870 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_fcall f_15912(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_15912,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cadr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop3531 in k15879 in k15876 in k15870 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_15946(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_15946,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* mapupdate in k7732 */ static void C_fcall f_16024(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_16024,3,t0,t1,t2);} a=C_alloc(6); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16030,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_16030(t6,t1,t2);} /* loop in mapupdate in k7732 */ static void C_fcall f_16030(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_16030,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16040,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=t2; t5=C_u_i_car(t4); /* core.scm:1891: walk */ t6=((C_word*)((C_word*)t0)[3])[1]; f_16049(t6,t3,t5);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16038 in loop in mapupdate in k7732 */ static void C_ccall f_16040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16040,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* core.scm:1892: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_16030(t4,((C_word*)t0)[4],t3);} /* walk in k7732 */ static void C_fcall f_16049(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_16049,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_pairp(t2); t4=C_i_not(t3); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t2); if(C_truep(C_i_symbolp(t5))){ t6=t2; t7=C_u_i_car(t6); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16066,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t7,tmp=(C_word)a,a+=7,tmp); /* core.scm:1897: chicken.internal#hash-table-ref */ t9=*((C_word*)lf[111]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t8; av2[2]=*((C_word*)lf[110]+1); av2[3]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* core.scm:1901: mapupdate */ t6=((C_word*)((C_word*)t0)[2])[1]; f_16024(t6,t1,t2);}}} /* k16064 in walk in k7732 */ static void C_ccall f_16066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_16066,2,av);} a=C_alloc(11); t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16072,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_assq(((C_word*)t0)[2],t2))){ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); /* core.scm:1900: mapupdate */ t6=((C_word*)((C_word*)t0)[3])[1]; f_16024(t6,((C_word*)t0)[4],t5);} else{ t4=((C_word*)t0)[2]; t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[5]); t6=C_a_i_cons(&a,2,t5,t2); /* core.scm:1899: chicken.internal#hash-table-set! */ t7=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t3; av2[2]=*((C_word*)lf[110]+1); av2[3]=((C_word*)t0)[6]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k16070 in k16064 in walk in k7732 */ static void C_ccall f_16072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16072,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* core.scm:1900: mapupdate */ t4=((C_word*)((C_word*)t0)[3])[1]; f_16024(t4,((C_word*)t0)[4],t3);} /* chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,c,6)))){ C_save_and_reclaim((void *)f_16103,3,av);} a=C_alloc(41); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16106,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t18=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16157,tmp=(C_word)a,a+=2,tmp)); t19=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16181,a[2]=t8,a[3]=t6,a[4]=t4,a[5]=t12,a[6]=t10,tmp=(C_word)a,a+=7,tmp)); t20=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16696,a[2]=t8,a[3]=t14,tmp=(C_word)a,a+=4,tmp)); t21=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16842,a[2]=t14,tmp=(C_word)a,a+=3,tmp)); t22=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16858,a[2]=t6,a[3]=t8,a[4]=t16,tmp=(C_word)a,a+=5,tmp)); t23=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16960,a[2]=t16,tmp=(C_word)a,a+=3,tmp)); /* core.scm:2034: walk */ t24=((C_word*)t8)[1]; f_16181(t24,t1,t2,*((C_word*)lf[103]+1));} /* cps-lambda in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_16106(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_16106,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16110,a[2]=t5,a[3]=t1,a[4]=t3,a[5]=t2,a[6]=t4,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* core.scm:1910: chicken.base#gensym */ t7=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[507]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k16108 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_16110,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16117,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); t5=C_a_i_list4(&a,4,((C_word*)t0)[5],C_SCHEME_TRUE,t4,C_fix(0)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16129,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_i_car(((C_word*)t0)[6]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16135,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:1913: walk */ t10=((C_word*)((C_word*)t0)[7])[1]; f_16181(t10,t7,t8,t9);} /* k16115 in k16108 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16117,2,av);} /* core.scm:1911: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k16127 in k16108 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_16129,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:1911: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[95]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a16134 in k16108 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_16135,3,av);} a=C_alloc(8); t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16151,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* core.scm:1915: chicken.compiler.support#varnode */ t6=*((C_word*)lf[506]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k16149 in a16134 in k16108 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16151,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]); /* core.scm:1915: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[505]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* node-for-var? in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_16157(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_16157,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16179,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:1918: chicken.compiler.support#node-class */ t5=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k16173 in k16177 in node-for-var? in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16175,2,av);} t2=C_i_car(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_eqp(t2,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16177 in node-for-var? in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_16179,2,av);} a=C_alloc(4); t2=C_eqp(t1,lf[508]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16175,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:1919: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_16181(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_16181,4,t0,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16185,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* core.scm:1922: chicken.compiler.support#node-subexpressions */ t5=*((C_word*)lf[512]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_16185,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16188,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* core.scm:1923: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_16188,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_16191,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* core.scm:1924: chicken.compiler.support#node-class */ t4=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_16191,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_16194,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* core.scm:1925: chicken.compiler.support#node-class */ t4=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_16194,2,av);} a=C_alloc(14); t2=t1; t3=C_eqp(t2,lf[508]); t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_16203,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); if(C_truep(t3)){ t5=t4; f_16203(t5,t3);} else{ t5=C_eqp(t2,lf[117]); if(C_truep(t5)){ t6=t4; f_16203(t6,t5);} else{ t6=C_eqp(t2,lf[381]); if(C_truep(t6)){ t7=t4; f_16203(t7,t6);} else{ t7=C_eqp(t2,lf[380]); t8=t4; f_16203(t8,(C_truep(t7)?t7:C_eqp(t2,lf[153])));}}}} /* k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_16203(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_16203,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ /* core.scm:1927: k */ t2=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[5],lf[136]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16215,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* core.scm:1928: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[507]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_eqp(((C_word*)t0)[5],lf[164]); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16324,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_16324(t7,((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[6]);} else{ t4=C_eqp(((C_word*)t0)[5],lf[472]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[5],lf[95])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16411,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* core.scm:362: chicken.base#gensym */ t7=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[510]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=C_eqp(((C_word*)t0)[5],lf[270]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16424,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* core.scm:1954: chicken.base#gensym */ t8=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[511]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=C_eqp(((C_word*)t0)[5],lf[351]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16495,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[9],tmp=(C_word)a,a+=7,tmp); /* core.scm:362: chicken.base#gensym */ t9=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=lf[510]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=C_eqp(((C_word*)t0)[5],lf[286]); t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16525,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); if(C_truep(t8)){ t10=t9; f_16525(t10,t8);} else{ t10=C_eqp(((C_word*)t0)[5],lf[287]); if(C_truep(t10)){ t11=t9; f_16525(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[5],lf[118]); if(C_truep(t11)){ t12=t9; f_16525(t12,t11);} else{ t12=C_eqp(((C_word*)t0)[5],lf[266]); if(C_truep(t12)){ t13=t9; f_16525(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[5],lf[122]); if(C_truep(t13)){ t14=t9; f_16525(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[5],lf[269]); t15=t9; f_16525(t15,(C_truep(t14)?t14:C_eqp(((C_word*)t0)[5],lf[178])));}}}}}}}}}}}} /* k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16215,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16218,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* core.scm:1929: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[369]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k16216 in k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_16218,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16219,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_a_i_list1(&a,1,((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16250,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,tmp=(C_word)a,a+=7,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16309,a[2]=t2,a[3]=t6,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* core.scm:362: chicken.base#gensym */ t8=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[510]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k1 in k16216 in k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_16219,3,av);} a=C_alloc(8); t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16235,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* core.scm:1930: chicken.compiler.support#varnode */ t6=*((C_word*)lf[506]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k16233 in k1 in k16216 in k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16235,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]); /* core.scm:1930: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[505]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16248 in k16216 in k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_16250,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16254,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(((C_word*)t0)[4]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16260,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* core.scm:1936: walk */ t6=((C_word*)((C_word*)t0)[5])[1]; f_16181(t6,t3,t4,t5);} /* k16252 in k16248 in k16216 in k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16254,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:1931: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[164]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a16259 in k16248 in k16216 in k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_16260,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16272,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t4=C_i_cadr(((C_word*)t0)[2]); /* core.scm:1940: walk */ t5=((C_word*)((C_word*)t0)[3])[1]; f_16181(t5,t3,t4,((C_word*)t0)[4]);} /* k16270 in a16259 in k16248 in k16216 in k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_16272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_16272,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16276,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_caddr(((C_word*)t0)[4]); /* core.scm:1941: walk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_16181(t5,t3,t4,((C_word*)t0)[6]);} /* k16274 in k16270 in a16259 in k16248 in k16216 in k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_16276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_16276,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); /* core.scm:1938: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[136]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16294 in k16307 in k16216 in k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_16296,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:1934: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[95]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16298 in k16307 in k16216 in k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16300,2,av);} /* core.scm:1935: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k16307 in k16216 in k16213 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_16309,2,av);} a=C_alloc(23); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=C_a_i_list4(&a,4,t1,C_SCHEME_FALSE,t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16296,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16300,a[2]=((C_word*)t0)[4],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* core.scm:1935: chicken.compiler.support#varnode */ t7=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* loop in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_16324(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_16324,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=C_i_car(t3); /* core.scm:1945: walk */ t5=((C_word*)((C_word*)t0)[2])[1]; f_16181(t5,t1,t4,((C_word*)t0)[3]);} else{ t4=C_i_car(t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16347,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:1946: walk */ t6=((C_word*)((C_word*)t0)[2])[1]; f_16181(t6,t1,t4,t5);}} /* a16346 in loop in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_16347,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16354,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); t4=C_i_car(((C_word*)t0)[2]); /* core.scm:1948: node-for-var? */ f_16157(t3,t2,t4);} /* k16352 in a16346 in loop in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_16354,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_i_cdr(((C_word*)t0)[3]); /* core.scm:1949: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_16324(t5,((C_word*)t0)[5],t3,t4);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_list1(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16378,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); t9=C_i_cdr(((C_word*)t0)[3]); /* core.scm:1952: loop */ t10=((C_word*)((C_word*)t0)[4])[1]; f_16324(t10,t6,t8,t9);}} /* k16376 in k16352 in a16346 in loop in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16378,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:1950: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[164]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16409 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_16411,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* core.scm:1953: cps-lambda */ t3=((C_word*)((C_word*)t0)[3])[1]; f_16106(t3,((C_word*)t0)[4],t1,t2,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k16422 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_16424,2,av);} a=C_alloc(11); t2=t1; t3=C_i_cdr(((C_word*)t0)[2]); t4=C_i_pairp(t3); t5=(C_truep(t4)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE); t6=C_i_car(((C_word*)t0)[2]); t7=C_a_i_list2(&a,2,t6,t5); t8=t7; t9=C_i_car(((C_word*)t0)[3]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16439,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* core.scm:1957: walk */ t11=((C_word*)((C_word*)t0)[5])[1]; f_16181(t11,((C_word*)t0)[6],t9,t10);} /* a16438 in k16422 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_16439,3,av);} a=C_alloc(12); t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16455,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t6=C_a_i_list1(&a,1,t2); /* core.scm:1960: chicken.compiler.support#make-node */ t7=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[270]; av2[3]=((C_word*)t0)[4]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k16453 in a16438 in k16422 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_16455,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16459,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16463,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* core.scm:1961: chicken.compiler.support#varnode */ t5=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k16457 in k16453 in a16438 in k16422 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16459,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:1959: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[164]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16461 in k16453 in a16438 in k16422 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16463,2,av);} /* core.scm:1961: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k16493 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_16495,2,av);} a=C_alloc(7); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16501,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* core.scm:1965: chicken.compiler.support#register-foreign-callback-stub! */ t6=*((C_word*)lf[513]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k16499 in k16493 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16501,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16516,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:1966: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k16510 in k16514 in k16499 in k16493 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_16512,2,av);} /* core.scm:1966: cps-lambda */ t2=((C_word*)((C_word*)t0)[2])[1]; f_16106(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);} /* k16514 in k16499 in k16493 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16516,2,av);} a=C_alloc(7); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* core.scm:1966: chicken.compiler.support#node-subexpressions */ t5=*((C_word*)lf[512]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k16523 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_16525(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){ C_save_and_reclaim_args((void *)trf_16525,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ /* core.scm:1969: walk-inline-call */ t2=((C_word*)((C_word*)t0)[2])[1]; f_16842(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} else{ t2=C_eqp(((C_word*)t0)[8],lf[505]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[6]); t4=C_u_i_cdr(((C_word*)t0)[6]); /* core.scm:1970: walk-call */ t5=((C_word*)((C_word*)t0)[9])[1]; f_16696(t5,((C_word*)t0)[3],t3,t4,((C_word*)t0)[5],((C_word*)t0)[7]);} else{ t3=C_eqp(((C_word*)t0)[8],lf[152]); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[5]); t5=((C_word*)t0)[3]; t6=t4; t7=((C_word*)t0)[7]; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16777,a[2]=t5,a[3]=t6,a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* core.scm:1995: chicken.base#gensym */ t9=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=lf[507]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t4=C_eqp(((C_word*)t0)[8],lf[144]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[8],lf[514])); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[6]); /* core.scm:1974: walk */ t7=((C_word*)((C_word*)t0)[10])[1]; f_16181(t7,((C_word*)t0)[3],t6,((C_word*)t0)[7]);} else{ t6=C_eqp(((C_word*)t0)[8],lf[145]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6897,tmp=(C_word)a,a+=2,tmp); t8=( f_6897(((C_word*)t0)[6]) ); /* core.scm:1977: walk */ t9=((C_word*)((C_word*)t0)[10])[1]; f_16181(t9,((C_word*)t0)[3],t8,((C_word*)t0)[7]);} else{ /* core.scm:1978: chicken.compiler.support#bomb */ t7=*((C_word*)lf[515]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=lf[516]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}}}} /* walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_16696(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_16696,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(9); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16700,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=t3,a[8]=t5,tmp=(C_word)a,a+=9,tmp); /* core.scm:1981: chicken.base#gensym */ t7=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[507]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k16698 in walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_16700,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16703,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* core.scm:1982: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[369]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k16701 in k16698 in walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_16703,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16718,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16767,a[2]=t2,a[3]=t5,a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* core.scm:362: chicken.base#gensym */ t7=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[510]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k16716 in k16701 in k16698 in walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_16718,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16722,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16724,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* core.scm:1987: walk-arguments */ t5=((C_word*)((C_word*)t0)[8])[1]; f_16858(t5,t3,((C_word*)t0)[9],t4);} /* k16720 in k16716 in k16701 in k16698 in walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16722,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:1983: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[164]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a16723 in k16716 in k16701 in k16698 in walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_16724,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16730,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:1990: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_16181(t4,t1,((C_word*)t0)[5],t3);} /* a16729 in a16723 in k16716 in k16701 in k16698 in walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_16730,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16738,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16742,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:1992: chicken.compiler.support#varnode */ t5=*((C_word*)lf[506]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k16736 in a16729 in a16723 in k16716 in k16701 in k16698 in walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16738,2,av);} /* core.scm:1992: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[505]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k16740 in a16729 in a16723 in k16716 in k16701 in k16698 in walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_16742,2,av);} a=C_alloc(6); /* core.scm:1992: cons* */ f_6555(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,t1,((C_word*)t0)[4]));} /* k16752 in k16765 in k16701 in k16698 in walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_16754,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:1985: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[95]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16756 in k16765 in k16701 in k16698 in walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16758,2,av);} /* core.scm:1986: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k16765 in k16701 in k16698 in walk-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_16767,2,av);} a=C_alloc(23); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=C_a_i_list4(&a,4,t1,C_SCHEME_FALSE,t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16754,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16758,a[2]=((C_word*)t0)[4],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* core.scm:1986: chicken.compiler.support#varnode */ t7=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k16775 in k16523 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_16777,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16780,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* core.scm:1996: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[369]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k16778 in k16775 in k16523 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_16780,2,av);} a=C_alloc(14); t2=t1; t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16795,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16836,a[2]=t2,a[3]=t5,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* core.scm:362: chicken.base#gensym */ t7=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[510]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k16793 in k16778 in k16775 in k16523 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_16795,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16799,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_a_i_list1(&a,1,((C_word*)t0)[4]); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16811,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* core.scm:2002: chicken.compiler.support#varnode */ t7=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k16797 in k16793 in k16778 in k16775 in k16523 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_16799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16799,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:1997: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[164]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16809 in k16793 in k16778 in k16775 in k16523 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_16811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_16811,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2001: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[152]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16821 in k16834 in k16778 in k16775 in k16523 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_16823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_16823,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:1999: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[95]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16825 in k16834 in k16778 in k16775 in k16523 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_16827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16827,2,av);} /* core.scm:2000: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k16834 in k16778 in k16775 in k16523 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_16836,2,av);} a=C_alloc(23); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=C_a_i_list4(&a,4,t1,C_SCHEME_FALSE,t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16823,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16827,a[2]=((C_word*)t0)[4],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* core.scm:2000: chicken.compiler.support#varnode */ t7=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* walk-inline-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_16842(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_16842,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(5); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16848,a[2]=t5,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* core.scm:2005: walk-arguments */ t7=((C_word*)((C_word*)t0)[2])[1]; f_16858(t7,t1,t4,t6);} /* a16847 in walk-inline-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_16848,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16856,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* core.scm:2008: chicken.compiler.support#make-node */ t4=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k16854 in a16847 in walk-inline-call in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16856,2,av);} /* core.scm:2008: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* walk-arguments in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_16858(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_16858,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16864,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_16864(t7,t1,t2,C_SCHEME_END_OF_LIST);} /* loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_16864(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_16864,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16878,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* core.scm:2012: scheme#reverse */ t5=*((C_word*)lf[219]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16884,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t5=C_i_car(t2); /* core.scm:2013: atomic? */ t6=((C_word*)((C_word*)t0)[6])[1];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; f_16960(3,av2);}}} /* k16876 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16878,2,av);} /* core.scm:2012: wk */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k16882 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_16884,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]); /* core.scm:2014: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_16864(t7,((C_word*)t0)[5],t3,t6);} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16898,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* core.scm:2016: chicken.base#gensym */ t3=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[497]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k16896 in k16882 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_16898,2,av);} a=C_alloc(7); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16905,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* core.scm:2017: walk */ t6=((C_word*)((C_word*)t0)[6])[1]; f_16181(t6,((C_word*)t0)[7],t4,t5);} /* a16904 in k16896 in k16882 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_16905,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16912,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* core.scm:2019: node-for-var? */ f_16157(t3,t2,((C_word*)t0)[5]);} /* k16910 in a16904 in k16896 in k16882 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_16912,2,av);} a=C_alloc(14); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16927,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* core.scm:2020: chicken.compiler.support#varnode */ t5=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=C_a_i_list1(&a,1,((C_word*)t0)[6]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16942,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_i_cdr(((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16954,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* core.scm:2024: chicken.compiler.support#varnode */ t8=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k16925 in k16910 in a16904 in k16896 in k16882 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_16927,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* core.scm:2020: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_16864(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k16940 in k16910 in a16904 in k16896 in k16882 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16942,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:2021: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[164]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16952 in k16910 in a16904 in k16896 in k16882 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_16954,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* core.scm:2023: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_16864(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* atomic? in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_16960,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16964,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:2027: chicken.compiler.support#node-class */ t4=*((C_word*)lf[96]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k16962 in atomic? in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_16964,2,av);} a=C_alloc(4); t2=C_u_i_memq(t1,lf[517]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=t1; if(C_truep((C_truep(C_eqp(t3,lf[287]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[118]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[266]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[122]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[269]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16981,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2032: chicken.compiler.support#node-subexpressions */ t5=*((C_word*)lf[512]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k16979 in k16962 in atomic? in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16981,2,av);} /* core.scm:2032: every */ f_6491(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],t1);} /* chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_16986,3,av);} a=C_alloc(4); t3=C_i_fixnum_max(lf[60],C_fix(1)); t4=C_fixnum_times(t3,C_fix(3)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16993,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:2042: scheme#make-vector */ t6=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_16993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,7)))){ C_save_and_reclaim((void *)f_16993,2,av);} a=C_alloc(30); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17002,a[2]=t2,a[3]=t10,a[4]=t6,a[5]=t4,a[6]=t8,tmp=(C_word)a,a+=7,tmp)); t12=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17592,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t13=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17629,a[2]=t2,tmp=(C_word)a,a+=3,tmp)); t14=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17782,a[2]=t2,tmp=(C_word)a,a+=3,tmp)); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17803,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:2198: chicken.compiler.support#debugging */ t16=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t16; av2[1]=t15; av2[2]=lf[571]; av2[3]=lf[573]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} /* walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17002(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_17002,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(13); t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17006,a[2]=t1,a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=t2,a[8]=((C_word*)t0)[4],a[9]=t5,a[10]=t6,a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[6],tmp=(C_word)a,a+=13,tmp); /* core.scm:2050: chicken.compiler.support#node-subexpressions */ t8=*((C_word*)lf[512]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_17006,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_17009,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* core.scm:2051: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_17009,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_17012,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* core.scm:2052: chicken.compiler.support#node-class */ t4=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(45,c,2)))){ C_save_and_reclaim((void *)f_17012,2,av);} a=C_alloc(45); t2=C_s_a_i_plus(&a,2,lf[59],C_fix(1)); t3=C_mutate(&lf[59] /* (set! chicken.compiler.core#current-program-size ...) */,t2); t4=t1; t5=C_eqp(t4,lf[117]); t6=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_17024,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); if(C_truep(t5)){ t7=t6; f_17024(t7,t5);} else{ t7=C_eqp(t4,lf[381]); if(C_truep(t7)){ t8=t6; f_17024(t8,t7);} else{ t8=C_eqp(t4,lf[153]); t9=t6; f_17024(t9,(C_truep(t8)?t8:C_eqp(t4,lf[542])));}}} /* k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17024(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(46,0,6)))){ C_save_and_reclaim_args((void *)trf_17024,2,t0,t1);} a=C_alloc(46); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[508]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[4]); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17036,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* core.scm:2059: ref */ t6=((C_word*)((C_word*)t0)[8])[1]; f_17782(t6,t5,t4,((C_word*)t0)[9]);} else{ t3=C_eqp(((C_word*)t0)[3],lf[152]); t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[3],lf[522])); if(C_truep(t4)){ t5=C_s_a_i_plus(&a,2,lf[59],C_fix(1)); t6=C_mutate(&lf[59] /* (set! chicken.compiler.core#current-program-size ...) */,t5); /* core.scm:2069: walkeach */ t7=((C_word*)((C_word*)t0)[10])[1]; f_17592(t7,((C_word*)t0)[2],((C_word*)t0)[11],((C_word*)t0)[6],((C_word*)t0)[5],((C_word*)t0)[12],((C_word*)t0)[13]);} else{ t5=C_eqp(((C_word*)t0)[3],lf[505]); if(C_truep(t5)){ t6=C_s_a_i_plus(&a,2,lf[59],C_fix(1)); t7=C_mutate(&lf[59] /* (set! chicken.compiler.core#current-program-size ...) */,t6); t8=C_i_car(((C_word*)t0)[11]); t9=t8; t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17097,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],tmp=(C_word)a,a+=10,tmp); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17130,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[9],a[4]=t10,a[5]=((C_word*)t0)[7],a[6]=t9,tmp=(C_word)a,a+=7,tmp); /* core.scm:2074: chicken.compiler.support#node-class */ t12=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=t11; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t6=C_eqp(((C_word*)t0)[3],lf[164]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[3],lf[163])); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17142,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[15],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[2],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* core.scm:2081: scheme#append */ t9=*((C_word*)lf[5]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t8=C_eqp(((C_word*)t0)[3],lf[472]); if(C_truep(t8)){ t9=C_s_a_i_plus(&a,2,lf[59],C_fix(1)); t10=C_mutate(&lf[59] /* (set! chicken.compiler.core#current-program-size ...) */,t9); t11=C_i_car(((C_word*)t0)[4]); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17205,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[14],a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp); /* core.scm:2094: ##sys#decompose-lambda-list */ t13=*((C_word*)lf[181]+1);{ C_word av2[4]; av2[0]=t13; av2[1]=((C_word*)t0)[2]; av2[2]=t11; av2[3]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} else{ t9=C_eqp(((C_word*)t0)[3],lf[95]); t10=(C_truep(t9)?t9:C_eqp(((C_word*)t0)[3],lf[526])); if(C_truep(t10)){ t11=C_s_a_i_plus(&a,2,lf[59],C_fix(1)); t12=C_mutate(&lf[59] /* (set! chicken.compiler.core#current-program-size ...) */,t11); t13=C_i_caddr(((C_word*)t0)[4]); t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17274,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[14],a[8]=((C_word*)t0)[12],tmp=(C_word)a,a+=9,tmp); /* core.scm:2107: ##sys#decompose-lambda-list */ t15=*((C_word*)lf[181]+1);{ C_word av2[4]; av2[0]=t15; av2[1]=((C_word*)t0)[2]; av2[2]=t13; av2[3]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t11=C_eqp(((C_word*)t0)[3],lf[270]); t12=(C_truep(t11)?t11:C_eqp(((C_word*)t0)[3],lf[168])); if(C_truep(t12)){ t13=C_i_car(((C_word*)t0)[4]); t14=t13; t15=C_i_car(((C_word*)t0)[11]); t16=t15; t17=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17405,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[7],a[10]=t14,a[11]=((C_word*)t0)[15],a[12]=t16,tmp=(C_word)a,a+=13,tmp); t18=(C_truep(*((C_word*)lf[67]+1))?C_i_not(*((C_word*)lf[52]+1)):C_SCHEME_FALSE); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17462,a[2]=t17,a[3]=t14,tmp=(C_word)a,a+=4,tmp); /* core.scm:2136: chicken.compiler.support#variable-mark */ t20=*((C_word*)lf[175]+1);{ C_word av2[4]; av2[0]=t20; av2[1]=t19; av2[2]=t14; av2[3]=lf[540]; ((C_proc)(void*)(*((C_word*)t20+1)))(4,av2);}} else{ t19=t17;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_UNDEFINED; f_17405(2,av2);}}} else{ t13=C_eqp(((C_word*)t0)[3],lf[380]); t14=(C_truep(t13)?t13:C_eqp(((C_word*)t0)[3],lf[286])); if(C_truep(t14)){ t15=C_i_car(((C_word*)t0)[4]); t16=t15; t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17502,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],tmp=(C_word)a,a+=9,tmp); t18=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17508,a[2]=t17,a[3]=t16,a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp); if(C_truep(*((C_word*)lf[67]+1))){ if(C_truep(((C_word*)t0)[13])){ if(C_truep(C_i_symbolp(t16))){ /* core.scm:2155: chicken.compiler.support#get-real-name */ t19=*((C_word*)lf[541]+1);{ C_word av2[3]; av2[0]=t19; av2[1]=t18; av2[2]=t16; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}} else{ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; f_17508(2,av2);}}} else{ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; f_17508(2,av2);}}} else{ t19=t18;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; f_17508(2,av2);}}} else{ /* core.scm:2159: walkeach */ t15=((C_word*)((C_word*)t0)[10])[1]; f_17592(t15,((C_word*)t0)[2],((C_word*)t0)[11],((C_word*)t0)[6],((C_word*)t0)[5],((C_word*)t0)[12],((C_word*)t0)[13]);}}}}}}}}}} /* k17034 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,c,5)))){ C_save_and_reclaim((void *)f_17036,2,av);} a=C_alloc(34); if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)t0)[3]))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_s_a_i_plus(&a,2,lf[59],C_fix(1)); t3=C_mutate(&lf[59] /* (set! chicken.compiler.core#current-program-size ...) */,t2); if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)t0)[5]))){ /* core.scm:2063: chicken.compiler.support#db-put! */ t4=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[520]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17067,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* core.scm:2064: chicken.compiler.support#db-get */ t5=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[93]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* k17065 in k17034 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17067,2,av);} if(C_truep(C_i_not(t1))){ /* core.scm:2065: chicken.compiler.support#db-put! */ t2=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[93]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17095 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_17097,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17100,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_i_car(((C_word*)t0)[2]); /* core.scm:2077: walk */ t4=((C_word*)((C_word*)t0)[9])[1]; f_17002(t4,t2,t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k17098 in k17095 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_17100,2,av);} t2=C_u_i_cdr(((C_word*)t0)[2]); /* core.scm:2078: walkeach */ t3=((C_word*)((C_word*)t0)[3])[1]; f_17592(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k17124 in k17128 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_17126,2,av);} a=C_alloc(3); t2=C_i_car(t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* core.scm:2076: chicken.compiler.support#collect! */ t4=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t2; av2[4]=lf[97]; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k17128 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_17130,2,av);} a=C_alloc(6); t2=C_eqp(lf[508],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17126,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:2075: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_17097(2,av2);}}} /* k17140 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_17142,2,av);} a=C_alloc(14); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17147,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t4,a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp)); t6=((C_word*)t4)[1]; f_17147(t6,((C_word*)t0)[10],((C_word*)t0)[5],((C_word*)t0)[11]);} /* loop in k17140 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17147(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,5)))){ C_save_and_reclaim_args((void *)trf_17147,4,t0,t1,t2,t3);} a=C_alloc(15); if(C_truep(C_i_nullp(t2))){ t4=C_i_car(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17165,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* core.scm:2084: scheme#append */ t7=*((C_word*)lf[5]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=C_i_car(t3); t7=t6; t8=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_17174,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=t7,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[10],a[13]=t5,a[14]=((C_word*)t0)[4],tmp=(C_word)a,a+=15,tmp); /* core.scm:2087: chicken.compiler.support#db-put! */ t9=*((C_word*)lf[519]+1);{ C_word av2[6]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[11]; av2[3]=t5; av2[4]=lf[524]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}}} /* k17163 in loop in k17140 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_17165,2,av);} /* core.scm:2084: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17002(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k17172 in loop in k17140 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_17174,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17177,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* core.scm:2088: assign */ t3=((C_word*)((C_word*)t0)[12])[1]; f_17629(t3,t2,((C_word*)t0)[13],((C_word*)t0)[7],((C_word*)t0)[14],((C_word*)t0)[11]);} /* k17175 in k17172 in loop in k17140 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_17177,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17180,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:2089: walk */ t3=((C_word*)((C_word*)t0)[6])[1]; f_17002(t3,t2,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* k17178 in k17175 in k17172 in loop in k17140 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_17180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17180,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* core.scm:2090: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_17147(t6,((C_word*)t0)[5],t3,t5);} /* a17204 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_17205,5,av);} a=C_alloc(16); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17207,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=t2; t7=C_i_check_list_2(t6,lf[98]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17217,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17232,a[2]=t10,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_17232(t12,t8,t6);} /* g3815 in a17204 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17207(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_17207,3,t0,t1,t2);} /* core.scm:2098: chicken.compiler.support#db-put! */ t3=*((C_word*)lf[519]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[525]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k17215 in a17204 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_17217,2,av);} a=C_alloc(11); t2=lf[76]; t3=lf[76] /* chicken.compiler.core#toplevel-scope */ =C_SCHEME_FALSE;; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17221,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=C_i_car(((C_word*)t0)[3]); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17230,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:2102: scheme#append */ t8=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k17219 in k17215 in a17204 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17221,2,av);} t2=C_mutate(&lf[76] /* (set! chicken.compiler.core#toplevel-scope ...) */,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17228 in k17215 in a17204 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_17230,2,av);} /* core.scm:2102: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17002(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_FALSE);} /* for-each-loop3814 in a17204 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17232(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_17232,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17242,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:2097: g3815 */ t5=((C_word*)t0)[3]; f_17207(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k17240 in for-each-loop3814 in a17204 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17242,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_17232(t3,((C_word*)t0)[4],t2);} /* a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17274(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,5)))){ C_save_and_reclaim((void *)f_17274,5,av);} a=C_alloc(20); t5=C_i_car(((C_word*)t0)[2]); t6=t5; t7=lf[59]; t8=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_17281,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t7,a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=t6,a[12]=((C_word*)t0)[2],a[13]=t4,tmp=(C_word)a,a+=14,tmp); if(C_truep(((C_word*)t0)[4])){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17384,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=t6,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* core.scm:2113: chicken.compiler.support#collect! */ t10=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[532]; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}} else{ t9=t8;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_17281(2,av2);}}} /* k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_17281,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17282,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=C_i_check_list_2(t3,lf[98]); t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17295,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17360,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_17360(t9,t5,t3);} /* g3846 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17282(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){ C_save_and_reclaim_args((void *)trf_17282,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17286,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:2117: chicken.compiler.support#db-put! */ t4=*((C_word*)lf[519]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[524]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k17284 in g3846 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17286,2,av);} /* core.scm:2118: chicken.compiler.support#db-put! */ t2=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[525]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k17293 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_17295,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17298,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[12])){ /* core.scm:2121: chicken.compiler.support#db-put! */ t3=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[11]; av2[3]=((C_word*)t0)[12]; av2[4]=lf[529]; av2[5]=lf[530]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_17298(2,av2);}}} /* k17296 in k17293 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_17298,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17301,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17352,a[2]=t2,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* core.scm:2122: chicken.compiler.support#simple-lambda-node? */ t4=*((C_word*)lf[528]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k17299 in k17296 in k17293 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_17301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_17301,2,av);} a=C_alloc(12); t2=lf[76]; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17304,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); if(C_truep(lf[77])){ t4=t3; f_17304(t4,C_SCHEME_UNDEFINED);} else{ t4=C_mutate(&lf[77] /* (set! chicken.compiler.core#toplevel-lambda-id ...) */,((C_word*)t0)[9]); t5=t3; f_17304(t5,t4);}} /* k17302 in k17299 in k17296 in k17293 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_17304(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_17304,2,t0,t1);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17307,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_cadr(((C_word*)t0)[11]))){ t3=C_eqp(lf[77],((C_word*)t0)[10]); if(C_truep(C_i_not(t3))){ t4=lf[76] /* chicken.compiler.core#toplevel-scope */ =C_SCHEME_FALSE;; t5=t2; f_17307(t5,t4);} else{ t4=t2; f_17307(t4,C_SCHEME_UNDEFINED);}} else{ t3=t2; f_17307(t3,C_SCHEME_UNDEFINED);}} /* k17305 in k17302 in k17299 in k17296 in k17293 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_fcall f_17307(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_17307,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17310,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[6]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17334,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); /* core.scm:2127: scheme#append */ t6=*((C_word*)lf[5]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k17308 in k17305 in k17302 in k17299 in k17296 in k17293 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_17310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17310,2,av);} a=C_alloc(4); t2=C_mutate(&lf[76] /* (set! chicken.compiler.core#toplevel-scope ...) */,((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17326,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:2130: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k17324 in k17308 in k17305 in k17302 in k17299 in k17296 in k17293 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_17326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_17326,2,av);} a=C_alloc(29); t2=C_i_cdddr(t1); t3=C_s_a_i_minus(&a,2,lf[59],((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_set_car(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17332 in k17305 in k17302 in k17299 in k17296 in k17293 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_17334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_17334,2,av);} /* core.scm:2127: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17002(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* k17350 in k17296 in k17293 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_17352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17352,2,av);} if(C_truep(t1)){ /* core.scm:2122: chicken.compiler.support#db-put! */ t2=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[527]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_17301(2,av2);}}} /* for-each-loop3845 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17360(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_17360,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17370,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:2115: g3846 */ t5=((C_word*)t0)[3]; f_17282(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k17368 in for-each-loop3845 in k17279 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17370,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_17360(t3,((C_word*)t0)[4],t2);} /* k17382 in a17273 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17384,2,av);} /* core.scm:2114: chicken.compiler.support#db-put! */ t2=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[531]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k17403 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_17405,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17408,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* core.scm:2141: chicken.compiler.support#collect! */ t3=*((C_word*)lf[523]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[10]; av2[4]=lf[535]; av2[5]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k17406 in k17403 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(47,c,5)))){ C_save_and_reclaim((void *)f_17408,2,av);} a=C_alloc(47); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17411,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); if(C_truep(C_i_memq(((C_word*)t0)[10],((C_word*)t0)[6]))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_17411(2,av2);}} else{ t3=C_s_a_i_plus(&a,2,lf[59],C_fix(1)); t4=C_mutate(&lf[59] /* (set! chicken.compiler.core#current-program-size ...) */,t3); if(C_truep(C_i_memq(((C_word*)t0)[10],((C_word*)t0)[5]))){ /* core.scm:2145: chicken.compiler.support#db-put! */ t5=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[10]; av2[4]=lf[520]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17456,a[2]=t2,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); /* core.scm:2146: chicken.compiler.support#db-get */ t6=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[10]; av2[4]=lf[93]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}} /* k17409 in k17406 in k17403 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_17411,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17414,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* core.scm:2148: assign */ t3=((C_word*)((C_word*)t0)[11])[1]; f_17629(t3,t2,((C_word*)t0)[10],((C_word*)t0)[12],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k17412 in k17409 in k17406 in k17403 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_17414,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17417,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(lf[76])){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_17417(2,av2);}} else{ /* core.scm:2149: chicken.compiler.support#db-put! */ t3=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[10]; av2[4]=lf[534]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k17415 in k17412 in k17409 in k17406 in k17403 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_17417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_17417,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17420,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* core.scm:2150: chicken.compiler.support#db-put! */ t3=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[10]; av2[4]=lf[533]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k17418 in k17415 in k17412 in k17409 in k17406 in k17403 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_17420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_17420,2,av);} t2=C_u_i_car(((C_word*)t0)[2]); /* core.scm:2151: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_17002(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k17454 in k17406 in k17403 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17456,2,av);} if(C_truep(C_i_not(t1))){ /* core.scm:2147: chicken.compiler.support#db-put! */ t2=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[93]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_17411(2,av2);}}} /* k17460 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17462,2,av);} t2=C_eqp(t1,lf[536]); if(C_truep(t2)){ /* core.scm:2138: chicken.base#warning */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[537]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=C_eqp(t1,lf[538]); if(C_truep(t3)){ /* core.scm:2140: chicken.base#warning */ t4=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[539]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_17405(2,av2);}}}} /* k17500 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_17502,2,av);} /* core.scm:2157: walkeach */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17592(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k17506 in k17022 in k17010 in k17007 in k17004 in walk in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_17508,2,av);} if(C_truep(t1)){ /* core.scm:2156: chicken.compiler.support#set-real-name! */ t2=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ /* core.scm:2157: walkeach */ t2=((C_word*)((C_word*)t0)[5])[1]; f_17592(t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[4]);}} /* walkeach in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17592(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_17592,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(13); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17594,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp); t8=C_i_check_list_2(t2,lf[98]); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17606,a[2]=t10,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_17606(t12,t1,t2);} /* g3914 in walkeach in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17594(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){ C_save_and_reclaim_args((void *)trf_17594,3,t0,t1,t2);} /* core.scm:2162: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_17002(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* for-each-loop3913 in walkeach in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17606(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_17606,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17616,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:2162: g3914 */ t5=((C_word*)t0)[3]; f_17594(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k17614 in for-each-loop3913 in walkeach in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17616,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_17606(t3,((C_word*)t0)[4],t2);} /* assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17629(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_17629,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17780,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t4,a[6]=t5,a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* core.scm:2165: chicken.compiler.support#node-class */ t7=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k17640 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17642(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_17642,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_memq(((C_word*)t0)[3],((C_word*)t0)[4]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17654,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=t3; f_17654(t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17748,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2170: chicken.compiler.support#variable-mark */ t5=*((C_word*)lf[175]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[337]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k17652 in k17640 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17654(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,5)))){ C_save_and_reclaim_args((void *)trf_17654,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:2172: chicken.compiler.support#db-get-all */ t3=*((C_word*)lf[544]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[525]; av2[5]=lf[94]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17699,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=*((C_word*)lf[48]+1); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17735,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[48]+1))){ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=*((C_word*)lf[48]+1); f_17735(2,av2);}} else{ /* core.scm:2181: chicken.compiler.support#variable-mark */ t5=*((C_word*)lf[175]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=lf[442]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k17655 in k17652 in k17640 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_17657,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17660,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* core.scm:2173: chicken.compiler.support#db-get */ t4=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[524]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k17658 in k17655 in k17652 in k17640 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17660,2,av);} if(C_truep(C_i_assq(lf[525],((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_assq(lf[94],((C_word*)t0)[2]))){ /* core.scm:2176: chicken.compiler.support#db-put! */ t2=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[525]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=C_i_not(t1); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],t1)); if(C_truep(t3)){ /* core.scm:2178: chicken.compiler.support#db-put! */ t4=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[94]; av2[5]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ /* core.scm:2179: chicken.compiler.support#db-put! */ t4=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[525]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}}} /* k17697 in k17652 in k17640 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17699(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ C_save_and_reclaim_args((void *)trf_17699,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17702,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:2183: chicken.compiler.support#db-get */ t3=*((C_word*)lf[521]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[524]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* core.scm:2189: chicken.compiler.support#db-put! */ t2=*((C_word*)lf[519]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[525]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k17700 in k17697 in k17652 in k17640 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_17702,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* core.scm:2184: chicken.compiler.support#db-get */ t4=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[545]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k17706 in k17700 in k17697 in k17652 in k17640 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17708,2,av);} if(C_truep(t1)){ /* core.scm:2185: chicken.compiler.support#db-put! */ t2=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[525]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=C_i_not(((C_word*)t0)[5]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],((C_word*)t0)[5])); if(C_truep(t3)){ /* core.scm:2187: chicken.compiler.support#db-put! */ t4=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[545]; av2[5]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ /* core.scm:2188: chicken.compiler.support#db-put! */ t4=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[525]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}} /* k17733 in k17652 in k17640 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_17735,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17742,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2182: chicken.compiler.support#db-get */ t3=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[525]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[2]; f_17699(t2,C_SCHEME_FALSE);}} /* k17740 in k17733 in k17652 in k17640 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17742,2,av);} t2=((C_word*)t0)[2]; f_17699(t2,C_i_not(t1));} /* k17746 in k17640 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17748,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_17654(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17758,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2171: chicken.compiler.support#variable-visible? */ t3=*((C_word*)lf[546]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k17756 in k17746 in k17640 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17758,2,av);} t2=((C_word*)t0)[2]; f_17654(t2,C_i_not(t1));} /* k17770 in k17774 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17772,2,av);} t2=C_i_car(t1); t3=((C_word*)t0)[2]; f_17642(t3,C_eqp(((C_word*)t0)[3],t2));} /* k17774 in k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17776,2,av);} a=C_alloc(4); t2=C_eqp(lf[508],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17772,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2168: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_17642(t3,C_SCHEME_FALSE);}} /* k17778 in assign in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_17780,2,av);} a=C_alloc(13); t2=C_eqp(lf[381],t1); if(C_truep(t2)){ /* core.scm:2166: chicken.compiler.support#db-put! */ t3=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[543]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17642,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17776,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* core.scm:2167: chicken.compiler.support#node-class */ t5=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* ref in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17782(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_17782,4,t0,t1,t2,t3);} /* core.scm:2192: chicken.compiler.support#collect! */ t4=*((C_word*)lf[523]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[547]; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_17803,2,av);} a=C_alloc(4); t2=lf[59] /* chicken.compiler.core#current-program-size */ =C_fix(0);; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17807,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2200: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_17002(t4,t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17807,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17810,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2203: chicken.compiler.support#debugging */ t3=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[571]; av2[3]=lf[572]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_17810,2,av);} a=C_alloc(7); t2=lf[60] /* chicken.compiler.core#current-analysis-database-size */ =C_fix(0);; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17814,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17820,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* core.scm:2205: chicken.internal#hash-table-for-each */ t5=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k17812 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17814,2,av);} if(C_truep(lf[58])){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_mutate(&lf[58] /* (set! chicken.compiler.core#original-program-size ...) */,lf[59]); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(63,c,2)))){ C_save_and_reclaim((void *)f_17820,4,av);} a=C_alloc(63); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_FALSE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_END_OF_LIST; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_FALSE; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_END_OF_LIST; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_FALSE; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_FALSE; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_SCHEME_FALSE; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_fix(0); t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_fix(0); t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_fixnum_plus(lf[60],C_fix(1)); t29=lf[60] /* chicken.compiler.core#current-analysis-database-size */ =t28;; t30=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_17826,a[2]=t5,a[3]=t13,a[4]=t25,a[5]=t15,a[6]=t11,a[7]=t17,a[8]=t27,a[9]=t19,a[10]=t21,a[11]=t23,a[12]=t7,a[13]=t9,tmp=(C_word)a,a+=14,tmp); t31=t3; t32=C_i_check_list_2(t31,lf[98]); t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18777,a[2]=t30,tmp=(C_word)a,a+=3,tmp); t34=( f_18777(t33,t31) ); t35=C_i_not(((C_word*)t5)[1]); t36=(C_truep(t35)?((C_word*)t7)[1]:C_SCHEME_FALSE); t37=C_set_block_item(t7,0,t36); t38=C_i_not(((C_word*)t5)[1]); t39=(C_truep(t38)?((C_word*)t9)[1]:C_SCHEME_FALSE); t40=C_set_block_item(t9,0,t39); t41=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_17968,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t7,a[6]=t23,a[7]=t15,a[8]=t19,a[9]=t13,a[10]=t21,a[11]=t25,a[12]=t27,a[13]=t2,a[14]=t9,tmp=(C_word)a,a+=15,tmp); if(C_truep(*((C_word*)lf[67]+1))){ t42=(C_truep(((C_word*)t7)[1])?C_a_i_list1(&a,1,((C_word*)t7)[1]):C_SCHEME_FALSE); t43=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18708,a[2]=t2,a[3]=t41,tmp=(C_word)a,a+=4,tmp); if(C_truep(t42)){ t44=t43; f_18708(t44,t42);} else{ if(C_truep(((C_word*)t23)[1])){ t44=((C_word*)t11)[1]; t45=t43; f_18708(t45,t44);} else{ t44=t43; f_18708(t44,C_SCHEME_FALSE);}}} else{ t42=t41;{ C_word *av2=av; av2[0]=t42; av2[1]=C_SCHEME_UNDEFINED; f_17968(2,av2);}}} /* g3988 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static C_word C_fcall f_17826(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_stack_overflow_check;{} t2=C_i_car(t1); t3=C_eqp(t2,lf[525]); if(C_truep(t3)){ t4=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); return(t4);} else{ t4=C_eqp(t2,lf[547]); if(C_truep(t4)){ t5=t1; t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_u_i_cdr(t5)); t7=C_i_length(((C_word*)((C_word*)t0)[3])[1]); t8=C_set_block_item(((C_word*)t0)[4],0,t7); return(t8);} else{ t5=C_eqp(t2,lf[520]); if(C_truep(t5)){ t6=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_TRUE); return(t6);} else{ t6=C_eqp(t2,lf[535]); if(C_truep(t6)){ t7=t1; t8=C_mutate(((C_word *)((C_word*)t0)[6])+1,C_u_i_cdr(t7)); return(t8);} else{ t7=C_eqp(t2,lf[97]); if(C_truep(t7)){ t8=t1; t9=C_mutate(((C_word *)((C_word*)t0)[7])+1,C_u_i_cdr(t8)); t10=C_i_length(((C_word*)((C_word*)t0)[7])[1]); t11=C_set_block_item(((C_word*)t0)[8],0,t10); return(t11);} else{ t8=C_eqp(t2,lf[533]); if(C_truep(t8)){ t9=C_set_block_item(((C_word*)t0)[9],0,C_SCHEME_TRUE); return(t9);} else{ t9=C_eqp(t2,lf[534]); if(C_truep(t9)){ t10=C_SCHEME_UNDEFINED; return(t10);} else{ t10=C_eqp(t2,lf[543]); if(C_truep(t10)){ t11=C_set_block_item(((C_word*)t0)[10],0,C_SCHEME_TRUE); return(t11);} else{ t11=C_eqp(t2,lf[93]); if(C_truep(t11)){ t12=C_set_block_item(((C_word*)t0)[11],0,C_SCHEME_TRUE); return(t12);} else{ t12=C_eqp(t2,lf[94]); if(C_truep(t12)){ t13=t1; t14=C_mutate(((C_word *)((C_word*)t0)[12])+1,C_u_i_cdr(t13)); return(t14);} else{ t13=C_eqp(t2,lf[545]); if(C_truep(t13)){ t14=t1; t15=C_mutate(((C_word *)((C_word*)t0)[13])+1,C_u_i_cdr(t14)); return(t15);} else{ t14=C_eqp(t2,lf[529]); if(C_truep(t14)){ t15=C_SCHEME_UNDEFINED; return(t15);} else{ return(C_SCHEME_UNDEFINED);}}}}}}}}}}}}} /* k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_17968,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_17971,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18634,a[2]=t2,a[3]=((C_word*)t0)[13],tmp=(C_word)a,a+=4,tmp); if(C_truep(*((C_word*)lf[67]+1))){ if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[9])[1]))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18702,a[2]=t3,a[3]=((C_word*)t0)[13],tmp=(C_word)a,a+=4,tmp); /* core.scm:2265: chicken.compiler.support#variable-mark */ t5=*((C_word*)lf[175]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[13]; av2[3]=lf[426]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t3; f_18634(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_18634(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_18634(t4,C_SCHEME_FALSE);}} /* k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_17971,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_17974,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); if(C_truep(((C_word*)((C_word*)t0)[8])[1])){ t3=((C_word*)((C_word*)t0)[7])[1]; if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=C_i_cdr(t4); t6=C_a_i_cons(&a,2,lf[567],C_SCHEME_TRUE); t7=C_a_i_cons(&a,2,t6,t5); t8=t2; f_17974(t8,C_i_set_cdr(t4,t7));} else{ t4=t2; f_17974(t4,C_SCHEME_UNDEFINED);}} else{ t3=t2; f_17974(t3,C_SCHEME_UNDEFINED);}} /* k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17974(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){ C_save_and_reclaim_args((void *)trf_17974,2,t0,t1);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_17977,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18456,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* core.scm:2282: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(((C_word*)((C_word*)t0)[14])[1])){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18528,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[13],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* core.scm:2294: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[14])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18593,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* core.scm:2306: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[175]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[13]; av2[3]=lf[434]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_17977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_17977,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_17980,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18424,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18453,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* core.scm:2324: chicken.compiler.support#node-class */ t5=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3; f_18424(t4,C_SCHEME_FALSE);}} /* k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_17980(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,0,2)))){ C_save_and_reclaim_args((void *)trf_17980,2,t0,t1);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17983,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18421,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=((C_word*)t0)[13],a[7]=t2,a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); /* core.scm:2338: chicken.compiler.support#node-class */ t6=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_17983(2,av2);}}} /* k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_17983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_17983,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17986,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_not(((C_word*)((C_word*)t0)[8])[1]))){ if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[9])[1]))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18252,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18298,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* core.scm:2365: chicken.compiler.support#node-class */ t5=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_18252(2,av2);}}} else{ t3=t2; f_17986(t3,C_SCHEME_UNDEFINED);}} else{ t3=t2; f_17986(t3,C_SCHEME_UNDEFINED);}} /* k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_17986(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_17986,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17989,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(C_truep(((C_word*)((C_word*)t0)[5])[1])?C_i_not(((C_word*)((C_word*)t0)[6])[1]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18231,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* core.scm:2382: chicken.compiler.support#node-class */ t5=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_17989(2,av2);}}} /* k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_17989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_17989,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17995,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18120,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:2401: chicken.compiler.support#node-class */ t4=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=t2; f_17995(t3,C_SCHEME_FALSE);}} /* k17993 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_fcall f_17995(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_17995,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17998,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:2402: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[509]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17996 in k17993 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_17998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_17998,2,av);} a=C_alloc(6); t2=C_i_cadr(t1); if(C_truep(C_i_not(t2))){ t3=C_i_caddr(t1); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18109,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* core.scm:2405: chicken.compiler.support#node-subexpressions */ t6=*((C_word*)lf[512]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18014 in k18107 in k17996 in k17993 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_fcall f_18016(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18016,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18019,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:2409: chicken.compiler.support#node-subexpressions */ t3=*((C_word*)lf[512]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18017 in k18014 in k18107 in k17996 in k17993 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_18019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_18019,2,av);} a=C_alloc(11); t2=C_i_length(t1); t3=C_eqp(C_fix(2),t2); if(C_truep(t3)){ t4=C_i_car(t1); t5=t4; t6=C_i_cadr(t1); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18037,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t5,tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18082,a[2]=((C_word*)t0)[5],a[3]=t8,a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* core.scm:2413: chicken.compiler.support#node-class */ t10=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18035 in k18017 in k18014 in k18107 in k17996 in k17993 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in ... */ static void C_fcall f_18037(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_18037,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18050,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2416: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[509]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18048 in k18035 in k18017 in k18014 in k18107 in k17996 in k17993 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in ... */ static void C_ccall f_18050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_18050,2,av);} a=C_alloc(6); t2=C_i_car(t1); t3=((C_word*)t0)[2]; t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[548],t2); t6=C_a_i_cons(&a,2,t5,t4); t7=C_i_set_cdr(t3,t6); /* core.scm:2418: chicken.compiler.support#db-put! */ t8=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; av2[4]=lf[549]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} /* k18072 in k18076 in k18080 in k18017 in k18014 in k18107 in k17996 in k17993 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in ... */ static void C_ccall f_18074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18074,2,av);} t2=C_i_car(t1); t3=((C_word*)t0)[2]; f_18037(t3,C_eqp(((C_word*)t0)[3],t2));} /* k18076 in k18080 in k18017 in k18014 in k18107 in k17996 in k17993 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in ... */ static void C_ccall f_18078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_18078,2,av);} a=C_alloc(4); t2=C_eqp(lf[508],t1); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18074,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* core.scm:2415: chicken.compiler.support#node-parameters */ t6=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=((C_word*)t0)[3]; f_18037(t3,C_SCHEME_FALSE);}} /* k18080 in k18017 in k18014 in k18107 in k17996 in k17993 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in ... */ static void C_ccall f_18082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_18082,2,av);} a=C_alloc(5); t2=C_eqp(lf[508],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18078,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2414: chicken.compiler.support#node-class */ t4=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3]; f_18037(t3,C_SCHEME_FALSE);}} /* k18101 in k18107 in k17996 in k17993 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_18103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18103,2,av);} t2=((C_word*)t0)[2]; f_18016(t2,C_eqp(lf[505],t1));} /* k18107 in k17996 in k17993 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_18109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_18109,2,av);} a=C_alloc(10); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18016,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t5=C_u_i_cdr(((C_word*)t0)[5]); if(C_truep(C_i_nullp(t5))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18103,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* core.scm:2408: chicken.compiler.support#node-class */ t7=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=t4; f_18016(t6,C_SCHEME_FALSE);}} else{ t5=t4; f_18016(t5,C_SCHEME_FALSE);}} /* k18118 in k17987 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_18120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18120,2,av);} t2=((C_word*)t0)[2]; f_17995(t2,C_eqp(lf[95],t1));} /* k18133 in k18225 in k18229 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_18135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_18135,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18141,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_not(((C_word*)((C_word*)t0)[6])[1]))){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18153,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18223,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:2386: chicken.compiler.support#db-get */ t6=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[525]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t4=t3; f_18141(t4,C_SCHEME_FALSE);}} /* k18139 in k18133 in k18225 in k18229 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_fcall f_18141(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){ C_save_and_reclaim_args((void *)trf_18141,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_cdr(t2); t4=C_a_i_cons(&a,2,lf[548],((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,t4,t3); t6=C_i_set_cdr(t2,t5); /* core.scm:2397: chicken.compiler.support#db-put! */ t7=*((C_word*)lf[519]+1);{ C_word av2[6]; av2[0]=t7; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[549]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_17989(2,av2);}}} /* k18151 in k18133 in k18225 in k18229 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_18153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_18153,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_18141(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18213,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:2388: chicken.compiler.support#db-get */ t3=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[520]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k18194 in k18198 in k18202 in k18211 in k18151 in k18133 in k18225 in k18229 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in ... */ static void C_ccall f_18196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18196,2,av);} t2=((C_word*)t0)[2]; f_18141(t2,C_i_not(t1));} /* k18198 in k18202 in k18211 in k18151 in k18133 in k18225 in k18229 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in ... */ static void C_ccall f_18200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_18200,2,av);} a=C_alloc(3); t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_18141(t3,t2);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18196,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2395: chicken.compiler.support#db-get */ t4=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[93]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k18202 in k18211 in k18151 in k18133 in k18225 in k18229 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_18204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_18204,2,av);} a=C_alloc(5); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18200,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2393: chicken.compiler.support#variable-visible? */ t3=*((C_word*)lf[546]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_18141(t2,C_SCHEME_FALSE);}} /* k18211 in k18151 in k18133 in k18225 in k18229 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_18213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_18213,2,av);} a=C_alloc(5); if(C_truep(C_i_not(t1))){ if(C_truep(((C_word*)t0)[2])){ t2=C_i_length(((C_word*)t0)[2]); t3=C_eqp(C_fix(1),t2); if(C_truep(t3)){ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[3])[1]))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18204,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* core.scm:2392: chicken.compiler.support#db-get */ t5=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[533]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=((C_word*)t0)[4]; f_18141(t4,C_SCHEME_FALSE);}} else{ t4=((C_word*)t0)[4]; f_18141(t4,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[4]; f_18141(t2,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[4]; f_18141(t2,C_SCHEME_FALSE);}} /* k18221 in k18133 in k18225 in k18229 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_18223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18223,2,av);} if(C_truep(C_i_not(t1))){ /* core.scm:2387: chicken.compiler.support#db-get */ t2=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[94]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_18153(2,av2);}}} /* k18225 in k18229 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_18227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_18227,2,av);} a=C_alloc(8); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18135,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* core.scm:2384: chicken.compiler.support#db-get */ t5=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=t3; av2[4]=lf[547]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k18229 in k17984 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_18231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_18231,2,av);} a=C_alloc(7); t2=C_eqp(lf[508],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18227,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:2383: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[7])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; f_17989(2,av2);}}} /* k18250 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_18252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_18252,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[550],C_SCHEME_TRUE); t6=C_a_i_cons(&a,2,t5,t4); t7=((C_word*)t0)[3]; f_17986(t7,C_i_set_cdr(t3,t6));} else{ t3=((C_word*)t0)[3]; f_17986(t3,C_SCHEME_UNDEFINED);}} else{ t2=((C_word*)((C_word*)t0)[4])[1]; if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[550],C_SCHEME_TRUE); t6=C_a_i_cons(&a,2,t5,t4); t7=((C_word*)t0)[3]; f_17986(t7,C_i_set_cdr(t3,t6));} else{ t3=((C_word*)t0)[3]; f_17986(t3,C_SCHEME_UNDEFINED);}}} /* k18271 in k18281 in k18285 in k18296 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_18273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18273,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_18252(2,av2);}} else{ /* core.scm:2369: chicken.compiler.support#intrinsic? */ t2=*((C_word*)lf[551]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k18281 in k18285 in k18296 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_18283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_18283,2,av);} a=C_alloc(4); t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_18252(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18273,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2368: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[175]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[552]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k18285 in k18296 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_18287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_18287,2,av);} a=C_alloc(4); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18283,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* core.scm:2367: chicken.compiler.support#db-get */ t5=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t3; av2[4]=lf[93]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k18292 in k18296 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_18294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18294,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(t1); f_18252(2,av2);}} /* k18296 in k17981 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_18298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_18298,2,av);} a=C_alloc(4); t2=C_eqp(lf[508],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18287,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2366: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18294,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2370: chicken.compiler.support#expression-has-side-effects? */ t4=*((C_word*)lf[553]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_18307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_18307,2,av);} a=C_alloc(6); t2=t1; if(C_truep(C_i_cadr(t2))){ t3=C_i_caddr(t2); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18322,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* core.scm:2342: ##sys#decompose-lambda-list */ t5=*((C_word*)lf[181]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_17983(2,av2);}}} /* a18321 in k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_18322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_18322,5,av);} a=C_alloc(18); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18326,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_18326(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18357,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t7=C_i_check_list_2(t2,lf[98]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18390,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_18390(t11,t5,t2);}} /* k18324 in a18321 in k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_18326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_18326,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18332,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18356,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:2355: chicken.base#rassoc */ t4=*((C_word*)lf[556]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=lf[75]; av2[4]=*((C_word*)lf[557]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=t2; f_18332(t3,C_SCHEME_FALSE);}} /* k18330 in k18324 in a18321 in k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_18332(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_18332,2,t0,t1);} if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); /* core.scm:2356: chicken.compiler.support#db-put! */ t3=*((C_word*)lf[519]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; av2[4]=lf[554]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ if(C_truep(((C_word*)t0)[5])){ t2=C_i_car(((C_word*)t0)[2]); /* core.scm:2358: chicken.compiler.support#db-put! */ t3=*((C_word*)lf[519]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; av2[4]=lf[555]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* k18354 in k18324 in a18321 in k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_18356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18356,2,av);} t2=((C_word*)t0)[2]; f_18332(t2,C_i_not(t1));} /* g4115 in a18321 in k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_fcall f_18357(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_18357,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18364,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18382,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:2348: chicken.compiler.support#db-get */ t5=*((C_word*)lf[521]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=lf[547]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k18362 in g4115 in a18321 in k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_18364(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_18364,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18367,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2350: chicken.compiler.support#db-put! */ t3=*((C_word*)lf[519]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[425]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k18365 in k18362 in g4115 in a18321 in k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_18367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18367,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18376 in k18380 in g4115 in a18321 in k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_18378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18378,2,av);} t2=((C_word*)t0)[2]; f_18364(t2,C_i_not(t1));} /* k18380 in g4115 in a18321 in k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_18382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_18382,2,av);} a=C_alloc(3); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18378,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2349: chicken.compiler.support#db-get */ t3=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[533]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[2]; f_18364(t2,C_SCHEME_FALSE);}} /* for-each-loop4114 in a18321 in k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_fcall f_18390(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_18390,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18400,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:2346: g4115 */ t5=((C_word*)t0)[3]; f_18357(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18398 in for-each-loop4114 in a18321 in k18305 in k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_18400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18400,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_18390(t3,((C_word*)t0)[4],t2);} /* k18419 in k17978 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_18421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_18421,2,av);} a=C_alloc(6); t2=C_eqp(lf[95],t1); t3=(C_truep(t2)?C_i_nequalp(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18307,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* core.scm:2340: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[8])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; f_17983(2,av2);}}} /* k18422 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18424(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_18424,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18446,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2325: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[509]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[3]; f_17980(t2,C_SCHEME_UNDEFINED);}} /* k18431 in k18444 in k18422 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_18433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_18433,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[558],C_SCHEME_TRUE); t6=C_a_i_cons(&a,2,t5,t4); t7=((C_word*)t0)[3]; f_17980(t7,C_i_set_cdr(t3,t6));} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3]; f_17980(t4,t3);}} else{ if(C_truep(C_i_nequalp(C_fix(1),((C_word*)((C_word*)t0)[4])[1]))){ t2=((C_word*)t0)[2]; t3=C_i_cdr(t2); t4=C_a_i_cons(&a,2,lf[558],C_SCHEME_TRUE); t5=C_a_i_cons(&a,2,t4,t3); t6=((C_word*)t0)[3]; f_17980(t6,C_i_set_cdr(t2,t5));} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3]; f_17980(t3,t2);}}} /* k18444 in k18422 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_18446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_18446,2,av);} a=C_alloc(5); t2=C_i_car(t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18433,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2326: chicken.compiler.support#collapsable-literal? */ t4=*((C_word*)lf[343]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k18451 in k17975 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18453,2,av);} t2=((C_word*)t0)[2]; f_18424(t2,C_eqp(lf[117],t1));} /* k18454 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_18456,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18462,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18522,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* core.scm:2283: chicken.compiler.support#node-class */ t5=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[7])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k18460 in k18454 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_18462,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_nequalp(C_fix(1),((C_word*)((C_word*)t0)[2])[1]); t3=(C_truep(t2)?C_i_nequalp(C_fix(1),((C_word*)((C_word*)t0)[3])[1]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=((C_word*)t0)[4]; t5=C_i_cdr(t4); t6=C_a_i_cons(&a,2,lf[559],C_SCHEME_TRUE); t7=C_a_i_cons(&a,2,t6,t5); t8=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_set_cdr(t4,t7); f_17977(2,av2);}} else{ t4=((C_word*)t0)[4]; t5=C_i_cdr(t4); t6=C_a_i_cons(&a,2,lf[560],C_SCHEME_TRUE); t7=C_a_i_cons(&a,2,t6,t5); t8=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_set_cdr(t4,t7); f_17977(2,av2);}}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_17977(2,av2);}}} /* a18493 in k18520 in k18454 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_18494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18494,3,av);} /* core.scm:2286: chicken.compiler.support#db-get */ t3=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[93]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k18500 in k18520 in k18454 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_18502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18502,2,av);} /* core.scm:2285: every */ f_6491(((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* a18503 in k18520 in k18454 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_18504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18504,2,av);} /* core.scm:2287: chicken.compiler.support#scan-free-variables */ t2=*((C_word*)lf[561]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a18509 in k18520 in k18454 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_18510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_18510,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_list_ref(t2,C_fix(0)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18520 in k18454 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_18522,2,av);} a=C_alloc(12); t2=C_eqp(lf[95],t1); if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[2]); t4=C_i_not(t3); if(C_truep(t4)){ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; f_18462(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18494,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18502,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18504,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18510,tmp=(C_word)a,a+=2,tmp); /* core.scm:2287: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t6; av2[2]=t7; av2[3]=t8; C_call_with_values(4,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_18462(2,av2);}}} /* k18526 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_18528,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18590,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* core.scm:2295: chicken.compiler.support#node-class */ t4=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a18538 in k18588 in k18526 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_18539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18539,2,av);} /* core.scm:2296: chicken.compiler.support#scan-free-variables */ t2=*((C_word*)lf[561]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a18544 in k18588 in k18526 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_18545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_18545,4,av);} a=C_alloc(12); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18549,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t4,tmp=(C_word)a,a+=7,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18583,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* core.scm:2298: chicken.compiler.support#db-get */ t8=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[93]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* k18547 in a18544 in k18588 in k18526 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_18549(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_18549,2,t0,t1);} a=C_alloc(10); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_i_not(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18558,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ if(C_truep(t3)){ t5=((C_word*)t0)[3]; t6=((C_word*)t0)[4]; t7=C_i_cdr(t6); t8=C_a_i_cons(&a,2,lf[560],C_SCHEME_TRUE); t9=C_a_i_cons(&a,2,t8,t7); t10=t5;{ C_word av2[2]; av2[0]=t10; av2[1]=C_i_set_cdr(t6,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18566,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* core.scm:2302: every */ f_6491(t4,t5,((C_word*)t0)[6]);}} /* k18556 in k18547 in a18544 in k18588 in k18526 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_18558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_18558,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[560],C_SCHEME_TRUE); t6=C_a_i_cons(&a,2,t5,t4); t7=t2;{ C_word *av2=av; av2[0]=t7; av2[1]=C_i_set_cdr(t3,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a18565 in k18547 in a18544 in k18588 in k18526 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_18566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18566,3,av);} /* core.scm:2303: chicken.compiler.support#db-get */ t3=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[93]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k18581 in a18544 in k18588 in k18526 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_18583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_18583,2,av);} a=C_alloc(6); if(C_truep(t1)){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3]; t3=C_i_cdr(t2); t4=C_a_i_cons(&a,2,lf[562],C_SCHEME_TRUE); t5=C_a_i_cons(&a,2,t4,t3); t6=((C_word*)t0)[4]; f_18549(t6,C_i_set_cdr(t2,t5));} else{ t2=((C_word*)t0)[4]; f_18549(t2,C_SCHEME_UNDEFINED);}} else{ t2=((C_word*)t0)[4]; f_18549(t2,C_SCHEME_UNDEFINED);}} /* k18588 in k18526 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_18590,2,av);} a=C_alloc(9); t2=C_eqp(lf[95],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18539,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18545,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* core.scm:2296: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[7]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} else{ t3=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_17977(2,av2);}}} /* k18591 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_18593,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18597,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2281: g4088 */ t3=t2; f_18597(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_17977(2,av2);}}} /* g4088 in k18591 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18597(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_18597,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18604,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* core.scm:2308: chicken.compiler.support#node? */ t4=*((C_word*)lf[566]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k18602 in g4088 in k18591 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_18604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_18604,2,av);} a=C_alloc(5); if(C_truep(t1)){ if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18610,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:2310: chicken.compiler.support#debugging */ t3=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[564]; av2[3]=lf[565]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18616,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* core.scm:2316: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18608 in k18602 in g4088 in k18591 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_18610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18610,2,av);} /* core.scm:2314: chicken.compiler.support#mark-variable */ t2=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[434]; av2[4]=lf[432]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k18614 in k18602 in g4088 in k18591 in k17972 in k17969 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_18616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_18616,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=C_i_cdr(t2); t4=C_a_i_cons(&a,2,lf[560],C_SCHEME_TRUE); t5=C_a_i_cons(&a,2,t4,t3); t6=C_i_set_cdr(t2,t5); t7=((C_word*)t0)[3]; t8=((C_word*)t0)[2]; t9=((C_word*)t0)[4]; t10=C_i_cdr(t8); t11=C_a_i_cons(&a,2,lf[545],t9); t12=C_a_i_cons(&a,2,t11,t10); t13=t7;{ C_word *av2=av; av2[0]=t13; av2[1]=C_i_set_cdr(t8,t12); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} /* k18632 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18634(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_18634,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2270: chicken.base#open-output-string */ t3=*((C_word*)lf[130]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_17971(2,av2);}}} /* k18639 in k18632 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_18641,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18647,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:2270: ##sys#print */ t6=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[569]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k18645 in k18639 in k18632 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_18647,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18650,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2270: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k18648 in k18645 in k18639 in k18632 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_18650,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18653,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2270: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[568]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k18651 in k18648 in k18645 in k18639 in k18632 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_18653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18653,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18656,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2270: chicken.base#get-output-string */ t3=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k18654 in k18651 in k18648 in k18645 in k18639 in k18632 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_18656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18656,2,av);} /* core.scm:2269: ##sys#notice */ t2=*((C_word*)lf[392]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k18688 in k18692 in k18696 in k18700 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18690,2,av);} t2=((C_word*)t0)[2]; f_18634(t2,C_i_not(t1));} /* k18692 in k18696 in k18700 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18694,2,av);} a=C_alloc(3); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18690,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2268: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[175]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[337]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_18634(t2,C_SCHEME_FALSE);}} /* k18696 in k18700 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_18698,2,av);} a=C_alloc(4); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18694,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2267: chicken.compiler.support#variable-visible? */ t3=*((C_word*)lf[546]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_18634(t2,C_SCHEME_FALSE);}} /* k18700 in k17966 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_18702,2,av);} a=C_alloc(4); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18698,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2266: chicken.compiler.support#variable-hidden? */ t3=*((C_word*)lf[570]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; f_18634(t2,C_SCHEME_FALSE);}} /* k18706 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18708(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_18708,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18712,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=t1; t4=C_i_check_list_2(t3,lf[98]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18742,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_18742(t8,((C_word*)t0)[3],t3);} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_17968(2,av2);}}} /* g4027 in k18706 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18712(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_18712,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18734,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:2256: chicken.compiler.support#node-class */ t4=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k18728 in k18732 in g4027 in k18706 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18730,2,av);} t2=C_i_car(t1); /* core.scm:2257: chicken.compiler.support#set-real-name! */ t3=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18732 in g4027 in k18706 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_18734,2,av);} a=C_alloc(4); t2=C_eqp(t1,lf[95]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18730,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2257: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* for-each-loop4026 in k18706 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18742(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_18742,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18752,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:2254: g4027 */ t5=((C_word*)t0)[3]; f_18712(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18750 in for-each-loop4026 in k18706 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18752,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_18742(t3,((C_word*)t0)[4],t2);} /* for-each-loop3987 in a17819 in k17808 in k17805 in k17801 in k16991 in chicken.compiler.core#analyze-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static C_word C_fcall f_18777(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=( /* core.scm:2224: g3988 */ f_17826(((C_word*)t0)[2],t2) ); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(58,c,5)))){ C_save_and_reclaim((void *)f_18804,4,av);} a=C_alloc(58); t4=C_fix(0); t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_END_OF_LIST; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18807,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t25=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18813,a[2]=t7,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t26=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18823,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t27=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18832,a[2]=t9,a[3]=t17,a[4]=t13,a[5]=t15,a[6]=t11,a[7]=t3,tmp=(C_word)a,a+=8,tmp)); t28=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19358,a[2]=t11,a[3]=t23,a[4]=t21,a[5]=t19,a[6]=t3,tmp=(C_word)a,a+=7,tmp)); t29=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20427,a[2]=t19,tmp=(C_word)a,a+=3,tmp)); t30=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20478,tmp=(C_word)a,a+=2,tmp)); t31=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20519,a[2]=t1,a[3]=t5,a[4]=t19,a[5]=t2,a[6]=t7,a[7]=t17,tmp=(C_word)a,a+=8,tmp); /* core.scm:2695: chicken.compiler.support#debugging */ t32=*((C_word*)lf[563]+1);{ C_word *av2=av; av2[0]=t32; av2[1]=t31; av2[2]=lf[571]; av2[3]=lf[613]; ((C_proc)(void*)(*((C_word*)t32+1)))(4,av2);}} /* test in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18807(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_18807,4,t0,t1,t2,t3);} /* core.scm:2440: chicken.compiler.support#db-get */ t4=*((C_word*)lf[521]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* register-customizable! in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18813(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_18813,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18818,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* core.scm:2443: lset-adjoin/eq? */ t5=lf[11];{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=t2; f_6950(4,av2);}} /* k18816 in register-customizable! in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_18818,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* core.scm:2444: chicken.compiler.support#db-put! */ t3=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[575]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* register-direct-call! in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18823(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,0,3)))){ C_save_and_reclaim_args((void *)trf_18823,3,t0,t1,t2);} a=C_alloc(32); t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t3,C_fix(1))); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18830,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* core.scm:2448: lset-adjoin/eq? */ t6=lf[11];{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=lf[66]; av2[3]=t2; f_6950(4,av2);}} /* k18828 in register-direct-call! in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18830,2,av);} t2=C_mutate(&lf[66] /* (set! chicken.compiler.core#direct-call-ids ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18832(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_18832,5,t0,t1,t2,t3,t4);} a=C_alloc(12); t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18836,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=t2,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); /* core.scm:2454: chicken.compiler.support#node-subexpressions */ t6=*((C_word*)lf[512]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_18836,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_18839,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* core.scm:2455: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_18839,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_18842,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* core.scm:2456: chicken.compiler.support#node-class */ t4=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_18842,2,av);} a=C_alloc(15); t2=t1; t3=C_eqp(t2,lf[508]); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[2]); t5=C_i_memq(t4,((C_word*)((C_word*)t0)[3])[1]); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=(C_truep(t5)?C_a_i_list1(&a,1,t4):C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=C_eqp(t2,lf[117]); t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_18869,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); if(C_truep(t4)){ t6=t5; f_18869(t6,t4);} else{ t6=C_eqp(t2,lf[381]); if(C_truep(t6)){ t7=t5; f_18869(t7,t6);} else{ t7=C_eqp(t2,lf[153]); if(C_truep(t7)){ t8=t5; f_18869(t8,t7);} else{ t8=C_eqp(t2,lf[542]); t9=t5; f_18869(t9,(C_truep(t8)?t8:C_eqp(t2,lf[380])));}}}}} /* k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18869(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,5)))){ C_save_and_reclaim_args((void *)trf_18869,2,t0,t1);} a=C_alloc(21); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[164]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18878,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t4=C_i_cdr(((C_word*)t0)[4]); if(C_truep(C_i_pairp(t4))){ /* core.scm:2469: chicken.compiler.support#bomb */ t5=*((C_word*)lf[515]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[576]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t3;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_18878(2,av2);}}} else{ t3=C_eqp(((C_word*)t0)[3],lf[270]); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[4]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18929,a[2]=t5,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t7=C_i_car(((C_word*)t0)[5]); /* core.scm:2476: gather */ t8=((C_word*)((C_word*)t0)[7])[1]; f_18832(t8,t6,t7,((C_word*)t0)[8],((C_word*)t0)[6]);} else{ t4=C_eqp(((C_word*)t0)[3],lf[505]); if(C_truep(t4)){ t5=C_i_car(((C_word*)t0)[5]); t6=t5; t7=C_i_car(((C_word*)t0)[4]); t8=t7; t9=C_i_cdr(((C_word*)t0)[4]); t10=C_i_pairp(t9); t11=(C_truep(t10)?C_i_cadr(((C_word*)t0)[4]):C_SCHEME_FALSE); t12=t11; t13=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_19180,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=t12,a[8]=t8,a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=t6,tmp=(C_word)a,a+=14,tmp); /* core.scm:2485: chicken.compiler.support#node-class */ t14=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t14; av2[1]=t13; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} else{ t5=C_eqp(((C_word*)t0)[3],lf[95]); t6=(C_truep(t5)?t5:C_eqp(((C_word*)t0)[3],lf[526])); if(C_truep(t6)){ t7=C_i_caddr(((C_word*)t0)[4]); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19208,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[14],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* core.scm:2526: ##sys#decompose-lambda-list */ t9=*((C_word*)lf[181]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=((C_word*)t0)[2]; av2[2]=t7; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19266,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t12=C_i_check_list_2(((C_word*)t0)[5],lf[10]); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19276,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19278,a[2]=t9,a[3]=t15,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_19278(t17,t13,((C_word*)t0)[5]);}}}}}} /* k18876 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_18878,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18881,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_i_car(((C_word*)t0)[4]); /* core.scm:2470: gather */ t4=((C_word*)((C_word*)t0)[6])[1]; f_18832(t4,t2,t3,((C_word*)t0)[7],((C_word*)t0)[5]);} /* k18879 in k18876 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_18881,2,av);} a=C_alloc(11); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18891,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18895,a[2]=t5,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t7=C_i_cadr(((C_word*)t0)[4]); t8=C_a_i_cons(&a,2,t4,((C_word*)t0)[5]); /* core.scm:2472: gather */ t9=((C_word*)((C_word*)t0)[6])[1]; f_18832(t9,t6,t7,((C_word*)t0)[7],t8);} /* k18889 in k18879 in k18876 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18891,2,av);} /* core.scm:2472: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k18893 in k18879 in k18876 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18895,2,av);} /* core.scm:2472: delete */ f_6611(((C_word*)t0)[2],((C_word*)t0)[3],t1,*((C_word*)lf[557]+1));} /* k18927 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18929,2,av);} a=C_alloc(3); t2=C_i_memq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?C_a_i_cons(&a,2,((C_word*)t0)[2],t1):t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18961 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_18963,2,av);} a=C_alloc(21); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18971,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t7=C_i_check_list_2(((C_word*)t0)[5],lf[10]); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18981,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18983,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_18983(t12,t8,((C_word*)t0)[5]);} /* g4294 in k18961 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18971(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_18971,3,t0,t1,t2);} /* core.scm:2523: gather */ t3=((C_word*)((C_word*)t0)[2])[1]; f_18832(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k18979 in k18961 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_18981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18981,2,av);} /* core.scm:2523: concatenate */ f_6583(((C_word*)t0)[2],t1);} /* map-loop4288 in k18961 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_18983(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18983,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19008,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:2523: g4294 */ t5=((C_word*)t0)[4]; f_18971(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19006 in map-loop4288 in k18961 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19008,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18983(t6,((C_word*)t0)[5],t5);} /* k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_19039,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19045,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,tmp=(C_word)a,a+=12,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19142,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* core.scm:2500: chicken.compiler.support#node-class */ t5=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3; f_19045(t4,C_SCHEME_FALSE);}} /* k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_19045(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_19045,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19048,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* core.scm:2501: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[509]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); /* core.scm:2486: chicken.compiler.support#node-parameters-set! */ t4=*((C_word*)lf[577]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k19046 in k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_19048,2,av);} a=C_alloc(13); t2=C_i_caddr(t1); t3=t2; t4=C_i_car(t1); t5=t4; t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_19057,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t3,a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp); /* core.scm:2504: test */ t7=((C_word*)((C_word*)t0)[10])[1]; f_18807(t7,t6,((C_word*)t0)[7],lf[547]);} /* k19055 in k19046 in k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_19057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_19057,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_19060,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* core.scm:2505: test */ t4=((C_word*)((C_word*)t0)[12])[1]; f_18807(t4,t3,((C_word*)t0)[8],lf[97]);} /* k19058 in k19055 in k19046 in k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_19060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_19060,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19063,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[12])){ if(C_truep(t1)){ t3=C_i_length(((C_word*)t0)[12]); t4=C_i_length(t1); t5=C_eqp(t3,t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19124,a[2]=t2,a[3]=((C_word*)t0)[11],tmp=(C_word)a,a+=4,tmp); /* core.scm:2509: test */ t7=((C_word*)((C_word*)t0)[13])[1]; f_18807(t7,t6,((C_word*)t0)[8],lf[94]);} else{ t6=t2; f_19063(t6,C_SCHEME_FALSE);}} else{ t3=t2; f_19063(t3,C_SCHEME_FALSE);}} else{ t3=t2; f_19063(t3,C_SCHEME_FALSE);}} /* k19061 in k19058 in k19055 in k19046 in k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_fcall f_19063(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ C_save_and_reclaim_args((void *)trf_19063,2,t0,t1);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19066,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19081,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19105,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_i_cdr(((C_word*)t0)[10]); /* core.scm:2512: chicken.compiler.support#llist-match? */ t7=*((C_word*)lf[580]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[11]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=t4; f_19081(t5,C_SCHEME_FALSE);}} /* k19064 in k19061 in k19058 in k19055 in k19046 in k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_19066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_19066,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19069,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* core.scm:2517: register-direct-call! */ t3=((C_word*)((C_word*)t0)[10])[1]; f_18823(t3,t2,((C_word*)t0)[2]);} /* k19067 in k19064 in k19061 in k19058 in k19055 in k19046 in k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_19069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_19069,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19072,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[3])){ /* core.scm:2518: register-customizable! */ t3=((C_word*)((C_word*)t0)[8])[1]; f_18813(t3,t2,((C_word*)t0)[9],((C_word*)t0)[2]);} else{ t3=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); t5=C_a_i_cons(&a,2,((C_word*)t0)[5],t4); /* core.scm:2486: chicken.compiler.support#node-parameters-set! */ t6=*((C_word*)lf[577]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[7]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k19070 in k19067 in k19064 in k19061 in k19058 in k19055 in k19046 in k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_19072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_19072,2,av);} a=C_alloc(12); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[5],t3); /* core.scm:2486: chicken.compiler.support#node-parameters-set! */ t5=*((C_word*)lf[577]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[7]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19079 in k19061 in k19058 in k19055 in k19046 in k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_fcall f_19081(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_19081,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19088,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2515: chicken.compiler.support#source-info->string */ t3=*((C_word*)lf[579]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_19066(2,av2);}}} /* k19086 in k19079 in k19061 in k19058 in k19055 in k19046 in k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_19088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19088,2,av);} if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=C_i_cadr(((C_word*)t0)[2]); /* core.scm:2513: chicken.compiler.support#quit-compiling */ t3=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[578]; av2[3]=t1; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* core.scm:2513: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[578]; av2[3]=t1; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k19103 in k19061 in k19058 in k19055 in k19046 in k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_19105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19105,2,av);} t2=((C_word*)t0)[2]; f_19081(t2,C_i_not(t1));} /* k19122 in k19058 in k19055 in k19046 in k19043 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_19124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19124,2,av);} t2=((C_word*)t0)[2]; f_19063(t2,(C_truep(t1)?C_i_listp(((C_word*)t0)[3]):C_SCHEME_FALSE));} /* k19140 in k19037 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19142,2,av);} t2=((C_word*)t0)[2]; f_19045(t2,C_eqp(lf[95],t1));} /* k19152 in k19166 in k19170 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19154,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; f_19039(2,av2);}} else{ /* core.scm:2499: test */ t2=((C_word*)((C_word*)t0)[3])[1]; f_18807(t2,((C_word*)t0)[2],((C_word*)t0)[4],lf[545]);}} /* k19166 in k19170 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_19168,2,av);} a=C_alloc(5); t2=C_eqp(lf[432],t1); if(C_truep(C_i_not(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19154,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2498: test */ t4=((C_word*)((C_word*)t0)[3])[1]; f_18807(t4,t3,((C_word*)t0)[4],lf[94]);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_19039(2,av2);}}} /* k19170 in k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_19172,2,av);} a=C_alloc(5); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19168,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2496: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[175]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[431]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_19039(2,av2);}}} /* k19174 in k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_19176,2,av);} a=C_alloc(16); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19039,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19172,a[2]=t4,a[3]=((C_word*)t0)[9],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* core.scm:2493: test */ t6=((C_word*)((C_word*)t0)[9])[1]; f_18807(t6,t5,t3,lf[525]);} /* k19178 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_19180,2,av);} a=C_alloc(17); t2=C_eqp(lf[508],t1); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18963,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=(C_truep(((C_word*)t0)[7])?((C_word*)t0)[7]:t2); if(C_truep(t4)){ if(C_truep(t2)){ t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19176,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t3,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[12],tmp=(C_word)a,a+=10,tmp); /* core.scm:2492: chicken.compiler.support#node-parameters */ t6=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_a_i_cons(&a,2,((C_word*)t0)[7],C_SCHEME_END_OF_LIST); t6=C_a_i_cons(&a,2,((C_word*)t0)[8],t5); /* core.scm:2486: chicken.compiler.support#node-parameters-set! */ t7=*((C_word*)lf[577]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=((C_word*)t0)[9]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} else{ t5=C_a_i_cons(&a,2,((C_word*)t0)[8],C_SCHEME_END_OF_LIST); /* core.scm:2486: chicken.compiler.support#node-parameters-set! */ t6=*((C_word*)lf[577]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=((C_word*)t0)[9]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_19208,5,av);} a=C_alloc(10); t5=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[3]):lf[581]); t6=t5; t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19215,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[6],a[6]=t6,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,tmp=(C_word)a,a+=10,tmp); /* core.scm:2530: scheme#append */ t8=*((C_word*)lf[5]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k19213 in a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_19215,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19220,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19225,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19252,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* core.scm:2530: ##sys#dynamic-wind */ t9=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[9]; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a19219 in k19213 in a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19220,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a19224 in k19213 in a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_19225,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19229,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19246,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_car(((C_word*)t0)[6]); /* core.scm:2531: gather */ t5=((C_word*)((C_word*)t0)[7])[1]; f_18832(t5,t3,t4,((C_word*)t0)[5],((C_word*)t0)[3]);} /* k19227 in a19224 in k19213 in a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_19229,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19232,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_i_length(t2); /* core.scm:2532: chicken.compiler.support#db-put! */ t5=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[583]; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k19230 in k19227 in a19224 in k19213 in a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_19232,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19235,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:2533: chicken.compiler.support#db-put! */ t3=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; av2[4]=lf[582]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k19233 in k19230 in k19227 in a19224 in k19213 in a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_19235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_19235,2,av);} a=C_alloc(6); /* core.scm:2534: lset-difference/eq? */ f_6991(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]));} /* k19244 in a19224 in k19213 in a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_19246,2,av);} a=C_alloc(6); t2=*((C_word*)lf[557]+1); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6692,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_6692(t6,((C_word*)t0)[2],t1);} /* a19251 in k19213 in a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19252,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g4342 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_19266(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_19266,3,t0,t1,t2);} /* core.scm:2536: gather */ t3=((C_word*)((C_word*)t0)[2])[1]; f_18832(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k19274 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19276,2,av);} /* core.scm:2536: concatenate */ f_6583(((C_word*)t0)[2],t1);} /* map-loop4336 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_19278(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_19278,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19303,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:2536: g4342 */ t5=((C_word*)t0)[4]; f_19266(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19301 in map-loop4336 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19303,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19278(t6,((C_word*)t0)[5],t5);} /* transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_19358(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_19358,5,t0,t1,t2,t3,t4);} a=C_alloc(11); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19362,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=t4,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp); /* core.scm:2540: chicken.compiler.support#node-subexpressions */ t6=*((C_word*)lf[512]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_19362,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19365,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* core.scm:2541: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_19365,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_19368,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* core.scm:2542: chicken.compiler.support#node-class */ t4=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_19368,2,av);} a=C_alloc(15); t2=t1; t3=t2; t4=C_eqp(t3,lf[117]); t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_19377,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=t2,a[14]=((C_word*)t0)[12],tmp=(C_word)a,a+=15,tmp); if(C_truep(t4)){ t6=t5; f_19377(t6,t4);} else{ t6=C_eqp(t3,lf[381]); if(C_truep(t6)){ t7=t5; f_19377(t7,t6);} else{ t7=C_eqp(t3,lf[153]); if(C_truep(t7)){ t8=t5; f_19377(t8,t7);} else{ t8=C_eqp(t3,lf[542]); if(C_truep(t8)){ t9=t5; f_19377(t9,t8);} else{ t9=C_eqp(t3,lf[607]); t10=t5; f_19377(t10,(C_truep(t9)?t9:C_eqp(t3,lf[608])));}}}}} /* k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_19377(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_19377,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[508]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[5]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19389,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* core.scm:2551: ref-var */ f_20478(t5,((C_word*)t0)[2],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t3=C_eqp(((C_word*)t0)[4],lf[136]); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_19411,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); if(C_truep(t3)){ t5=t4; f_19411(t5,t3);} else{ t5=C_eqp(((C_word*)t0)[4],lf[505]); if(C_truep(t5)){ t6=t4; f_19411(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[4],lf[286]); if(C_truep(t6)){ t7=t4; f_19411(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[4],lf[287]); if(C_truep(t7)){ t8=t4; f_19411(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[4],lf[152]); if(C_truep(t8)){ t9=t4; f_19411(t9,t8);} else{ t9=C_eqp(((C_word*)t0)[4],lf[118]); if(C_truep(t9)){ t10=t4; f_19411(t10,t9);} else{ t10=C_eqp(((C_word*)t0)[4],lf[266]); if(C_truep(t10)){ t11=t4; f_19411(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[4],lf[178]); if(C_truep(t11)){ t12=t4; f_19411(t12,t11);} else{ t12=C_eqp(((C_word*)t0)[4],lf[600]); if(C_truep(t12)){ t13=t4; f_19411(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[4],lf[601]); if(C_truep(t13)){ t14=t4; f_19411(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[4],lf[602]); if(C_truep(t14)){ t15=t4; f_19411(t15,t14);} else{ t15=C_eqp(((C_word*)t0)[4],lf[522]); if(C_truep(t15)){ t16=t4; f_19411(t16,t15);} else{ t16=C_eqp(((C_word*)t0)[4],lf[603]); if(C_truep(t16)){ t17=t4; f_19411(t17,t16);} else{ t17=C_eqp(((C_word*)t0)[4],lf[604]); if(C_truep(t17)){ t18=t4; f_19411(t18,t17);} else{ t18=C_eqp(((C_word*)t0)[4],lf[605]); if(C_truep(t18)){ t19=t4; f_19411(t19,t18);} else{ t19=C_eqp(((C_word*)t0)[4],lf[606]); if(C_truep(t19)){ t20=t4; f_19411(t20,t19);} else{ t20=C_eqp(((C_word*)t0)[4],lf[122]); t21=t4; f_19411(t21,(C_truep(t20)?t20:C_eqp(((C_word*)t0)[4],lf[269])));}}}}}}}}}}}}}}}}}}} /* k19387 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_19389,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19395,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:2552: test */ t4=((C_word*)((C_word*)t0)[3])[1]; f_18807(t4,t3,((C_word*)t0)[4],lf[567]);} /* k19393 in k19387 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_19395,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* core.scm:2553: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[584]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_19411(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ C_save_and_reclaim_args((void *)trf_19411,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19418,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* core.scm:2562: chicken.compiler.support#node-class */ t3=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[9],lf[164]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19434,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],tmp=(C_word)a,a+=10,tmp); /* core.scm:2566: test */ t6=((C_word*)((C_word*)t0)[11])[1]; f_18807(t6,t5,t4,lf[567]);} else{ t3=C_eqp(((C_word*)t0)[9],lf[95]); t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[9],lf[526])); if(C_truep(t4)){ t5=C_i_caddr(((C_word*)t0)[3]); t6=t5; t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19515,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[7],a[6]=t6,a[7]=((C_word*)t0)[13],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[14],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* core.scm:2582: ##sys#decompose-lambda-list */ t8=*((C_word*)lf[181]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=((C_word*)t0)[2]; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t5=C_eqp(((C_word*)t0)[9],lf[270]); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[3]); t7=t6; t8=C_i_car(((C_word*)t0)[5]); t9=t8; t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20029,a[2]=((C_word*)t0)[10],a[3]=t9,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[11],a[7]=t7,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); /* core.scm:2646: chicken.compiler.support#node-class */ t11=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t6=C_eqp(((C_word*)t0)[9],lf[380]); if(C_truep(t6)){ t7=(C_truep(*((C_word*)lf[40]+1))?C_a_i_list1(&a,1,C_fix(2)):C_a_i_list1(&a,1,C_fix(1))); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20204,a[2]=((C_word*)t0)[2],a[3]=t8,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t10=C_i_car(((C_word*)t0)[3]); t11=C_a_i_list2(&a,2,t10,C_SCHEME_TRUE); /* core.scm:2677: chicken.compiler.support#make-node */ t12=*((C_word*)lf[471]+1);{ C_word av2[5]; av2[0]=t12; av2[1]=t9; av2[2]=lf[542]; av2[3]=t11; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} else{ /* core.scm:2682: chicken.compiler.support#bomb */ t7=*((C_word*)lf[515]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=((C_word*)t0)[2]; av2[2]=lf[599]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}}}} /* k19416 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_19418,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19422,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:2562: maptransform */ t4=((C_word*)((C_word*)t0)[4])[1]; f_20427(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k19420 in k19416 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19422,2,av);} /* core.scm:2562: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k19432 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_19434,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19437,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* core.scm:2567: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19435 in k19432 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_19437,2,av);} a=C_alloc(13); t2=t1; if(C_truep(((C_word*)t0)[2])){ t3=C_a_i_list1(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19455,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); t6=C_i_car(((C_word*)t0)[5]); /* core.scm:2571: transform */ t7=((C_word*)((C_word*)t0)[6])[1]; f_19358(t7,t5,t6,((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19498,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); /* core.scm:2578: maptransform */ t4=((C_word*)((C_word*)t0)[10])[1]; f_20427(t4,t3,((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8]);}} /* k19453 in k19435 in k19432 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_19455,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19459,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_a_i_list1(&a,1,((C_word*)t0)[4]); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19471,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19487,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* core.scm:2574: chicken.compiler.support#varnode */ t8=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k19457 in k19453 in k19435 in k19432 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19459,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:2569: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[164]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19469 in k19453 in k19435 in k19432 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_19471,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19475,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_cadr(((C_word*)t0)[4]); /* core.scm:2575: transform */ t5=((C_word*)((C_word*)t0)[5])[1]; f_19358(t5,t3,t4,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k19473 in k19469 in k19453 in k19435 in k19432 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_19475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19475,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:2572: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[164]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19485 in k19453 in k19435 in k19432 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_19487,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2574: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[585]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19496 in k19435 in k19432 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19498,2,av);} /* core.scm:2576: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[164]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_19515,5,av);} a=C_alloc(19); t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_19519,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=t2,a[13]=t3,a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[11],tmp=(C_word)a,a+=16,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20010,a[2]=((C_word*)t0)[11],tmp=(C_word)a,a+=3,tmp); /* core.scm:2585: filter */ f_6731(t5,t6,t2);} /* k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,c,3)))){ C_save_and_reclaim((void *)f_19519,2,av);} a=C_alloc(37); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=t2; t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=C_i_check_list_2(t2,lf[10]); t13=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_19531,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t2,a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],a[17]=((C_word*)t0)[15],a[18]=t5,a[19]=t6,tmp=(C_word)a,a+=20,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19976,a[2]=t10,a[3]=t15,a[4]=t11,tmp=(C_word)a,a+=5,tmp)); t17=((C_word*)t15)[1]; f_19976(t17,t13,t2);} /* k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_19531,2,av);} a=C_alloc(24); t2=C_i_check_list_2(((C_word*)t0)[2],lf[10]); t3=C_i_check_list_2(t1,lf[10]); t4=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_19540,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],tmp=(C_word)a,a+=17,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19928,a[2]=((C_word*)t0)[18],a[3]=t6,a[4]=((C_word*)t0)[19],tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_19928(t8,t4,((C_word*)t0)[2],t1);} /* k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_19540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_19540,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_19543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp); /* core.scm:2587: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[150]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_19543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_19543,2,av);} a=C_alloc(20); t2=t1; t3=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[3]):lf[581]); t4=t3; t5=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_19549,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t4,a[9]=((C_word*)t0)[3],a[10]=t2,a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],a[17]=((C_word*)t0)[15],a[18]=((C_word*)t0)[16],a[19]=((C_word*)t0)[17],tmp=(C_word)a,a+=20,tmp); /* core.scm:2589: test */ t6=((C_word*)((C_word*)t0)[17])[1]; f_18807(t6,t5,t4,lf[582]);} /* k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_19549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_19549,2,av);} a=C_alloc(21); t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_19555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp); /* core.scm:2590: test */ t5=((C_word*)((C_word*)t0)[19])[1]; f_18807(t5,t4,((C_word*)t0)[8],lf[583]);} /* k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_19555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_19555,2,av);} a=C_alloc(22); t2=(C_truep(t1)?t1:C_fix(0)); t3=t2; t4=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_19561,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp); if(C_truep(*((C_word*)lf[40]+1))){ t5=C_i_cadr(((C_word*)t0)[10]); t6=t4; f_19561(t6,(C_truep(t5)?C_i_pairp(((C_word*)t0)[8]):C_SCHEME_FALSE));} else{ t5=t4; f_19561(t5,C_SCHEME_FALSE);}} /* k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_fcall f_19561(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,0,3)))){ C_save_and_reclaim_args((void *)trf_19561,2,t0,t1);} a=C_alloc(28); t2=t1; t3=((C_word*)t0)[2]; t4=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_19564,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[2],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp); if(C_truep(t3)){ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19894,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[15],a[4]=t4,a[5]=((C_word*)t0)[20],a[6]=((C_word*)t0)[21],tmp=(C_word)a,a+=7,tmp); /* core.scm:2596: test */ t6=((C_word*)((C_word*)t0)[21])[1]; f_18807(t6,t5,((C_word*)t0)[2],lf[567]);} else{ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_19564(2,av2);}}} /* k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_19564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(78,c,3)))){ C_save_and_reclaim((void *)f_19564,2,av);} a=C_alloc(78); t2=(C_truep(((C_word*)t0)[2])?C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(2)):C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1))); t3=C_a_i_list1(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19579,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t4,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t6=C_i_cadr(((C_word*)t0)[11]); t7=t6; t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_19815,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[10],a[5]=t7,a[6]=t5,a[7]=((C_word*)t0)[13],a[8]=((C_word*)t0)[14],a[9]=((C_word*)t0)[15],a[10]=((C_word*)t0)[16],a[11]=((C_word*)t0)[17],a[12]=((C_word*)t0)[7],tmp=(C_word)a,a+=13,tmp); t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19820,a[2]=((C_word*)t0)[15],tmp=(C_word)a,a+=3,tmp); t14=((C_word*)t0)[18]; t15=C_i_check_list_2(t14,lf[10]); t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19836,a[2]=((C_word*)t0)[19],a[3]=((C_word*)t0)[15],a[4]=t8,a[5]=((C_word*)t0)[20],tmp=(C_word)a,a+=6,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19851,a[2]=t13,a[3]=t11,a[4]=t18,a[5]=t12,tmp=(C_word)a,a+=6,tmp)); t20=((C_word*)t18)[1]; f_19851(t20,t16,t14);} /* k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_19579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_19579,2,av);} a=C_alloc(26); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19584,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t8=C_i_check_list_2(((C_word*)t0)[5],lf[10]); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19598,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19641,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_19641(t13,t9,((C_word*)t0)[5]);} /* g4613 in k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in ... */ static void C_fcall f_19584(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_19584,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19592,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* core.scm:2630: chicken.compiler.support#varnode */ t4=*((C_word*)lf[506]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19590 in g4613 in k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in ... */ static void C_ccall f_19592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19592,2,av);} /* core.scm:2630: ref-var */ f_20478(((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k19596 in k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_19598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_19598,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19601,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[5])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19612,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19616,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19620,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19628,a[2]=t6,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* core.scm:2638: chicken.compiler.support#real-name */ t8=*((C_word*)lf[591]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t4=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); /* core.scm:2599: chicken.compiler.support#make-node */ t5=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[586]; av2[3]=((C_word*)t0)[4]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k19599 in k19596 in k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in ... */ static void C_ccall f_19601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_19601,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* core.scm:2599: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[586]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19610 in k19596 in k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in ... */ static void C_ccall f_19612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_19612,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2633: scheme#append */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k19614 in k19596 in k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in ... */ static void C_ccall f_19616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19616,2,av);} /* core.scm:2636: chicken.compiler.support#qnode */ t2=*((C_word*)lf[587]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k19618 in k19596 in k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in ... */ static void C_ccall f_19620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19620,2,av);} /* core.scm:2637: ##sys#make-lambda-info */ t2=*((C_word*)lf[588]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k19626 in k19596 in k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in ... */ static void C_ccall f_19628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_19628,2,av);} a=C_alloc(4); t2=(C_truep(t1)?t1:lf[589]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19635,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=C_i_cdr(((C_word*)t0)[3]); /* core.scm:2640: chicken.syntax#strip-syntax */ t6=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k19633 in k19626 in k19596 in k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in ... */ static void C_ccall f_19635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19635,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* core.scm:2638: chicken.string#->string */ t3=*((C_word*)lf[590]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* map-loop4607 in k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in ... */ static void C_fcall f_19641(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_19641,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19666,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:2630: g4613 */ t5=((C_word*)t0)[4]; f_19584(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19664 in map-loop4607 in k19577 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in ... */ static void C_ccall f_19666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19666,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19641(t6,((C_word*)t0)[5],t5);} /* k19683 in k19813 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_19685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_19685,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19688,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19698,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* core.scm:2619: unzip1 */ f_6840(t4,((C_word*)t0)[6]);} else{ t4=C_a_i_list1(&a,1,t2); /* core.scm:2602: chicken.compiler.support#make-node */ t5=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k19686 in k19683 in k19813 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in ... */ static void C_ccall f_19688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_19688,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2602: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19696 in k19683 in k19813 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in ... */ static void C_ccall f_19698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_19698,2,av);} a=C_alloc(17); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[10]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19725,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19763,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_19763(t12,t8,((C_word*)t0)[2]);} /* k19713 in map-loop4579 in k19696 in k19683 in k19813 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in ... */ static void C_ccall f_19715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_19715,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2622: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[585]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19723 in k19696 in k19683 in k19813 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in ... */ static void C_ccall f_19725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19725,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19727,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_19727(t5,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in k19723 in k19696 in k19683 in k19813 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in ... */ static void C_fcall f_19727(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_19727,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=C_i_car(t3); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19753,a[2]=t8,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t10=t2; t11=C_u_i_cdr(t10); t12=t3; t13=C_u_i_cdr(t12); /* core.scm:2628: loop */ t15=t9; t16=t11; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;}} /* k19751 in loop in k19723 in k19696 in k19683 in k19813 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in ... */ static void C_ccall f_19753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19753,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:2626: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[164]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* map-loop4579 in k19696 in k19683 in k19813 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in ... */ static void C_fcall f_19763(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_19763,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19788,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19715,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_i_cdr(t4); /* core.scm:2622: chicken.compiler.support#varnode */ t8=*((C_word*)lf[506]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19786 in map-loop4579 in k19696 in k19683 in k19813 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in ... */ static void C_ccall f_19788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19788,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19763(t6,((C_word*)t0)[5],t5);} /* k19813 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_19815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_19815,2,av);} a=C_alloc(22); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_i_cadddr(((C_word*)t0)[3]); t4=C_a_i_list4(&a,4,((C_word*)t0)[4],((C_word*)t0)[5],t2,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19685,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t5,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],tmp=(C_word)a,a+=7,tmp); t7=C_i_car(((C_word*)t0)[10]); /* core.scm:2617: transform */ t8=((C_word*)((C_word*)t0)[11])[1]; f_19358(t8,t6,t7,((C_word*)t0)[2],((C_word*)t0)[12]);} /* g4540 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static C_word C_fcall f_19820(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_i_assq(t1,((C_word*)t0)[2]); if(C_truep(t2)){ return(C_i_cdr(t2));} else{ t3=t1; return(t3);}} /* k19834 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_19836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19836,2,av);} t2=(C_truep(((C_word*)t0)[2])?C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t2)){ t3=C_i_cdr(t2); /* core.scm:2608: chicken.compiler.support#build-lambda-list */ t4=*((C_word*)lf[177]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=((C_word*)t0)[5]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=((C_word*)t0)[2]; /* core.scm:2608: chicken.compiler.support#build-lambda-list */ t4=*((C_word*)lf[177]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=((C_word*)t0)[5]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* map-loop4534 in k19562 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_fcall f_19851(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_19851,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* core.scm:2609: g4540 */ f_19820(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19892 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_19894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_19894,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19900,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:2597: test */ t3=((C_word*)((C_word*)t0)[6])[1]; f_18807(t3,t2,((C_word*)t0)[2],lf[529]);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_19564(2,av2);}}} /* k19898 in k19892 in k19559 in k19553 in k19547 in k19541 in k19538 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_19900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_19900,2,av);} if(C_truep(t1)){ t2=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_i_cdr(t2); /* core.scm:2598: chicken.compiler.support#db-put! */ t4=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; av2[4]=lf[592]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_19564(2,av2);}}} /* map-loop4456 in k19529 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_19928(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_19928,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_cons(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop4477 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_19976(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_19976,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20001,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:2586: g4483 */ t5=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19999 in map-loop4477 in k19517 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20001,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19976(t6,((C_word*)t0)[5],t5);} /* a20009 in a19514 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20010,3,av);} /* core.scm:2585: test */ t3=((C_word*)((C_word*)t0)[2])[1]; f_18807(t3,t1,t2,lf[567]);} /* k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_20029,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20032,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,tmp=(C_word)a,a+=11,tmp); t4=C_eqp(lf[117],t2); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20183,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* core.scm:2647: chicken.compiler.support#node-parameters */ t6=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_20032(2,av2);}}} /* k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_20032,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20035,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(t1)){ t3=t2; f_20035(t3,t1);} else{ t3=C_i_cdr(((C_word*)t0)[9]); if(C_truep(C_i_pairp(t3))){ t4=C_i_cadr(((C_word*)t0)[9]); t5=t2; f_20035(t5,(C_truep(t4)?t4:C_eqp(lf[381],((C_word*)t0)[10])));} else{ t4=t2; f_20035(t4,C_eqp(lf[381],((C_word*)t0)[10]));}}} /* k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20035(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_20035,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20038,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* core.scm:2650: posq */ f_7334(t3,((C_word*)t0)[7],((C_word*)t0)[5]);} /* k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_20038,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20042,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* core.scm:2650: g4654 */ t3=t2; f_20042(t3,((C_word*)t0)[9],t1);} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20116,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* core.scm:2664: test */ t3=((C_word*)((C_word*)t0)[7])[1]; f_18807(t3,t2,((C_word*)t0)[8],lf[567]);}} /* g4654 in k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_fcall f_20042(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_20042,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20049,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t2,tmp=(C_word)a,a+=9,tmp); /* core.scm:2652: test */ t4=((C_word*)((C_word*)t0)[7])[1]; f_18807(t4,t3,((C_word*)t0)[8],lf[567]);} /* k20047 in g4654 in k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_20049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(44,c,2)))){ C_save_and_reclaim((void *)f_20049,2,av);} a=C_alloc(44); if(C_truep(t1)){ t2=(C_truep(((C_word*)t0)[2])?lf[593]:lf[594]); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20064,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t5=((C_word*)t0)[8]; t6=C_s_a_i_plus(&a,2,t5,C_fix(1)); t7=C_a_i_list1(&a,1,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20080,a[2]=t4,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* core.scm:2656: chicken.compiler.support#varnode */ t10=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t2=(C_truep(((C_word*)t0)[2])?lf[596]:lf[597]); t3=t2; t4=((C_word*)t0)[8]; t5=C_s_a_i_plus(&a,2,t4,C_fix(1)); t6=C_a_i_list1(&a,1,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20101,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t7,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* core.scm:2662: chicken.compiler.support#varnode */ t9=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k20062 in k20047 in g4654 in k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_20064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_20064,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20068,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:2657: transform */ t4=((C_word*)((C_word*)t0)[4])[1]; f_19358(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k20066 in k20062 in k20047 in g4654 in k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_20068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_20068,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:2653: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k20078 in k20047 in g4654 in k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_20080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_20080,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2656: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[595]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k20099 in k20047 in g4654 in k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_20101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_20101,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20105,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* core.scm:2663: transform */ t4=((C_word*)((C_word*)t0)[5])[1]; f_19358(t4,t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k20103 in k20099 in k20047 in g4654 in k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_20105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_20105,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:2659: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k20114 in k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_20116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_20116,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(C_truep(((C_word*)t0)[2])?lf[593]:lf[594]); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20131,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* core.scm:2668: chicken.compiler.support#varnode */ t5=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=C_a_i_list2(&a,2,((C_word*)t0)[8],((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20150,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* core.scm:2672: transform */ t5=((C_word*)((C_word*)t0)[4])[1]; f_19358(t5,t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* k20129 in k20114 in k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_20131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_20131,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20135,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:2669: transform */ t4=((C_word*)((C_word*)t0)[4])[1]; f_19358(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k20133 in k20129 in k20114 in k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_20135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_20135,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:2665: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k20148 in k20114 in k20036 in k20033 in k20030 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_20150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_20150,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2670: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[270]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k20181 in k20027 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20183,2,av);} t2=C_i_car(t1); /* core.scm:2647: chicken.compiler.support#immediate? */ t3=*((C_word*)lf[598]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k20202 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_20204,2,av);} a=C_alloc(8); t2=t1; if(C_truep(*((C_word*)lf[40]+1))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20215,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20219,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_u_i_car(((C_word*)t0)[4]); /* core.scm:2679: ##sys#make-lambda-info */ t6=*((C_word*)lf[588]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST); /* core.scm:2675: chicken.compiler.support#make-node */ t4=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[586]; av2[3]=((C_word*)t0)[3]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k20213 in k20202 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_20215,2,av);} a=C_alloc(6); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); /* core.scm:2675: chicken.compiler.support#make-node */ t4=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[586]; av2[3]=((C_word*)t0)[4]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k20217 in k20202 in k19409 in k19375 in k19366 in k19363 in k19360 in transform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20219,2,av);} /* core.scm:2679: chicken.compiler.support#qnode */ t2=*((C_word*)lf[587]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* maptransform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20427(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ C_save_and_reclaim_args((void *)trf_20427,5,t0,t1,t2,t3,t4);} a=C_alloc(18); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20432,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t10=C_i_check_list_2(t2,lf[10]); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20444,a[2]=t7,a[3]=t12,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_20444(t14,t1,t2);} /* g4668 in maptransform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20432(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_20432,3,t0,t1,t2);} /* core.scm:2685: transform */ t3=((C_word*)((C_word*)t0)[2])[1]; f_19358(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* map-loop4662 in maptransform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20444(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_20444,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20469,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:2685: g4668 */ t5=((C_word*)t0)[4]; f_20432(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20467 in map-loop4662 in maptransform in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20469,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20444(t6,((C_word*)t0)[5],t5);} /* ref-var in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20478(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_20478,4,t1,t2,t3,t4);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20516,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* core.scm:2688: chicken.compiler.support#node-parameters */ t6=*((C_word*)lf[509]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k20483 in k20514 in ref-var in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20485,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20489,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2689: g4697 */ t3=t2; f_20489(t3,((C_word*)t0)[3],t1);} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g4697 in k20483 in k20514 in ref-var in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20489(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_20489,3,t0,t1,t2);} a=C_alloc(36); t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); t4=C_a_i_list1(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20505,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* core.scm:2692: chicken.compiler.support#varnode */ t7=*((C_word*)lf[506]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k20503 in g4697 in k20483 in k20514 in ref-var in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_20505,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2691: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[595]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k20514 in ref-var in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_20516,2,av);} a=C_alloc(5); t2=C_i_car(t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20485,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2689: posq */ f_7334(t3,t2,((C_word*)t0)[5]);} /* k20517 in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_20519,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20522,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:2696: gather */ t3=((C_word*)((C_word*)t0)[7])[1]; f_18832(t3,t2,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_END_OF_LIST);} /* k20520 in k20517 in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_20522,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20525,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[6])[1]))){ /* core.scm:2698: chicken.compiler.support#debugging */ t3=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[609]; av2[3]=lf[612]; av2[4]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_20525(2,av2);}}} /* k20523 in k20520 in k20517 in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_20525,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20528,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:2699: chicken.compiler.support#debugging */ t3=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[571]; av2[3]=lf[611]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k20526 in k20523 in k20520 in k20517 in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_20528,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20531,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2700: transform */ t3=((C_word*)((C_word*)t0)[4])[1]; f_19358(t3,t2,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE);} /* k20529 in k20526 in k20523 in k20520 in k20517 in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_20531,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20534,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)((C_word*)t0)[3])[1]; if(C_truep(C_i_zerop(t4))){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* core.scm:2702: chicken.compiler.support#debugging */ t5=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[609]; av2[3]=lf[610]; av2[4]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k20532 in k20529 in k20526 in k20523 in k20520 in k20517 in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20534,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-id in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20559,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[616]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-external in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20568,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[618]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-argument-count in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20586,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[620]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(4)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-rest-argument in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20595,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[622]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(5)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-temporaries in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20604,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[624]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(6)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-float-temporaries in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20613,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[626]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(7)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-callee-signatures in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20622,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[628]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(8)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-allocated in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20631,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[630]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(9)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-closure-size in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20649,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[632]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(11)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-looping in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20658,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[634]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(12)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-customizable in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20667,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[636]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(13)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-rest-argument-mode in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20676,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[638]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(14)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-body in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20685,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[640]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(15)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#lambda-literal-direct in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20694,3,av);} t3=C_i_check_structure_2(t2,lf[615],lf[642]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(16)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_20703,4,av);} a=C_alloc(17); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_fix(0); t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_END_OF_LIST; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_fix(0); t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20707,a[2]=t3,a[3]=t11,a[4]=t9,a[5]=t5,a[6]=t7,a[7]=t1,a[8]=t2,tmp=(C_word)a,a+=9,tmp); t13=C_i_fixnum_max(lf[60],C_fix(1)); t14=C_fixnum_times(t13,C_fix(3)); /* core.scm:2738: scheme#make-vector */ t15=*((C_word*)lf[89]+1);{ C_word *av2=av; av2[0]=t15; av2[1]=t12; av2[2]=t14; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} /* k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(99,c,7)))){ C_save_and_reclaim((void *)f_20707,2,av);} a=C_alloc(99); t2=t1; t3=C_fix(0); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_END_OF_LIST; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_fix(0); t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_fix(0); t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_END_OF_LIST; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_fix(0); t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_fix(0); t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_fix(0); t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_fix(0); t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_SCHEME_END_OF_LIST; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_SCHEME_UNDEFINED; t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp); t25=C_SCHEME_UNDEFINED; t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); t27=C_SCHEME_UNDEFINED; t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp); t29=C_SCHEME_UNDEFINED; t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp); t31=C_SCHEME_UNDEFINED; t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp); t33=C_SCHEME_UNDEFINED; t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp); t35=C_SCHEME_UNDEFINED; t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp); t37=C_SCHEME_UNDEFINED; t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp); t39=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20709,a[2]=t32,a[3]=t26,tmp=(C_word)a,a+=4,tmp)); t40=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20758,a[2]=t36,a[3]=t32,a[4]=t16,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp)); t41=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_20814,a[2]=t24,a[3]=t8,a[4]=t30,a[5]=t20,a[6]=t22,a[7]=t28,a[8]=t14,a[9]=t32,a[10]=t4,a[11]=t6,a[12]=t12,a[13]=t10,a[14]=t2,a[15]=((C_word*)t0)[2],a[16]=t36,a[17]=t18,a[18]=t38,tmp=(C_word)a,a+=19,tmp)); t42=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22024,a[2]=t28,tmp=(C_word)a,a+=3,tmp)); t43=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22075,a[2]=t38,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t34,tmp=(C_word)a,a+=8,tmp)); t44=C_set_block_item(t34,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22123,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp)); t45=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22132,a[2]=((C_word*)t0)[6],a[3]=t34,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp)); t46=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22176,tmp=(C_word)a,a+=2,tmp)); t47=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_22239,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=t22,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t18,a[8]=t16,a[9]=t14,a[10]=t28,a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); /* core.scm:3078: chicken.compiler.support#debugging */ t48=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t48; av2[1]=t47; av2[2]=lf[571]; av2[3]=lf[680]; ((C_proc)(void*)(*((C_word*)t48+1)))(4,av2);}} /* walk-var in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20709(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_20709,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20713,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=t5,tmp=(C_word)a,a+=8,tmp); /* core.scm:2751: posq */ f_7334(t6,t2,t3);} /* k20711 in walk-var in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_20713,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20717,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2751: g4838 */ t3=t2; f_20717(t3,((C_word*)t0)[3],t1);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20742,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* core.scm:2754: chicken.keyword#keyword? */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* g4838 in k20711 in walk-var in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20717(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_20717,3,t0,t1,t2);} a=C_alloc(3); t3=C_fixnum_plus(t2,C_fix(1)); t4=C_fixnum_difference(((C_word*)t0)[2],t3); t5=C_a_i_list1(&a,1,t4); /* core.scm:2753: chicken.compiler.support#make-node */ t6=*((C_word*)lf[471]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=lf[644]; av2[3]=t5; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k20740 in k20711 in walk-var in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20742,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20753,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2754: literal */ t3=((C_word*)((C_word*)t0)[3])[1]; f_22075(t3,t2,((C_word*)t0)[4]);} else{ /* core.scm:2755: walk-global */ t2=((C_word*)((C_word*)t0)[5])[1]; f_20758(t2,((C_word*)t0)[2],((C_word*)t0)[4],((C_word*)t0)[6]);}} /* k20751 in k20740 in k20711 in walk-var in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_20753,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2754: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[645]; av2[3]=t2; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* walk-global in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20758(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_20758,4,t0,t1,t2,t3);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20762,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); if(C_truep(t3)){ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=t3; f_20762(2,av2);}} else{ t5=*((C_word*)lf[31]+1); if(C_truep(*((C_word*)lf[31]+1))){ t6=*((C_word*)lf[31]+1); t7=t4;{ C_word av2[2]; av2[0]=t7; av2[1]=*((C_word*)lf[31]+1); f_20762(2,av2);}} else{ t6=*((C_word*)lf[142]+1); if(C_truep(*((C_word*)lf[142]+1))){ t7=t4;{ C_word av2[2]; av2[0]=t7; av2[1]=*((C_word*)lf[142]+1); f_20762(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20806,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:2761: chicken.compiler.support#variable-mark */ t8=*((C_word*)lf[175]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=lf[149]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}}} /* k20760 in walk-global in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_20762,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20765,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20790,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:2763: chicken.compiler.support#db-get */ t5=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[533]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k20763 in k20760 in walk-global in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20765(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,0,2)))){ C_save_and_reclaim_args((void *)trf_20765,2,t0,t1);} a=C_alloc(37); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20768,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=((C_word*)((C_word*)t0)[7])[1]; t5=C_mutate(((C_word *)((C_word*)t0)[7])+1,C_s_a_i_plus(&a,2,t4,C_fix(1))); t6=t3; f_20768(t6,t5);} else{ t4=t3; f_20768(t4,C_SCHEME_UNDEFINED);}} /* k20766 in k20763 in k20760 in walk-global in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20768(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_20768,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[3])){ /* core.scm:2769: blockvar-literal */ t3=((C_word*)((C_word*)t0)[6])[1]; f_22132(t3,t2,((C_word*)t0)[4]);} else{ /* core.scm:2770: literal */ t3=((C_word*)((C_word*)t0)[7])[1]; f_22075(t3,t2,((C_word*)t0)[4]);}} /* k20777 in k20766 in k20763 in k20760 in walk-global in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_20779,2,av);} a=C_alloc(12); t2=C_a_i_list4(&a,4,t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); /* core.scm:2766: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=lf[646]; av2[3]=t2; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k20788 in k20760 in walk-global in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20790,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20797,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2764: chicken.compiler.support#variable-visible? */ t3=*((C_word*)lf[546]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_20765(t2,C_SCHEME_FALSE);}} /* k20795 in k20788 in k20760 in walk-global in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20797,2,av);} t2=((C_word*)t0)[2]; f_20765(t2,C_i_not(t1));} /* k20804 in walk-global in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20806,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_20762(2,av2);}} else{ /* core.scm:2762: chicken.compiler.support#intrinsic? */ t2=*((C_word*)lf[551]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20814(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,0,2)))){ C_save_and_reclaim_args((void *)trf_20814,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(25); t7=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_20818,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=t5,a[10]=t6,a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[6],a[13]=((C_word*)t0)[7],a[14]=((C_word*)t0)[8],a[15]=((C_word*)t0)[9],a[16]=((C_word*)t0)[10],a[17]=((C_word*)t0)[11],a[18]=((C_word*)t0)[12],a[19]=((C_word*)t0)[13],a[20]=((C_word*)t0)[14],a[21]=((C_word*)t0)[15],a[22]=((C_word*)t0)[16],a[23]=((C_word*)t0)[17],a[24]=((C_word*)t0)[18],tmp=(C_word)a,a+=25,tmp); /* core.scm:2777: chicken.compiler.support#node-subexpressions */ t8=*((C_word*)lf[512]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_20818,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_20821,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],tmp=(C_word)a,a+=26,tmp); /* core.scm:2778: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_20821,2,av);} a=C_alloc(29); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_20824,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],tmp=(C_word)a,a+=27,tmp); /* core.scm:2779: chicken.compiler.support#node-class */ t5=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_20824,2,av);} a=C_alloc(29); t2=t1; t3=t2; t4=C_eqp(t3,lf[381]); t5=(*a=C_CLOSURE_TYPE|28,a[1]=(C_word)f_20833,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=t2,a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],a[17]=((C_word*)t0)[15],a[18]=((C_word*)t0)[16],a[19]=((C_word*)t0)[17],a[20]=((C_word*)t0)[18],a[21]=((C_word*)t0)[19],a[22]=((C_word*)t0)[20],a[23]=((C_word*)t0)[21],a[24]=((C_word*)t0)[22],a[25]=((C_word*)t0)[23],a[26]=((C_word*)t0)[24],a[27]=((C_word*)t0)[25],a[28]=((C_word*)t0)[26],tmp=(C_word)a,a+=29,tmp); if(C_truep(t4)){ t6=t5; f_20833(t6,t4);} else{ t6=C_eqp(t3,lf[542]); t7=t5; f_20833(t7,(C_truep(t6)?t6:C_eqp(t3,lf[607])));}} /* k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20833(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,0,6)))){ C_save_and_reclaim_args((void *)trf_20833,2,t0,t1);} a=C_alloc(40); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[508]); if(C_truep(t2)){ t3=((C_word*)((C_word*)t0)[5])[1]; t4=C_i_car(t3); /* core.scm:2785: walk-var */ t5=((C_word*)((C_word*)t0)[6])[1]; f_20709(t5,((C_word*)t0)[3],t4,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} else{ t3=C_eqp(((C_word*)t0)[4],lf[602]); if(C_truep(t3)){ t4=((C_word*)((C_word*)t0)[5])[1]; t5=C_i_cadr(t4); t6=t5; t7=((C_word*)((C_word*)t0)[5])[1]; t8=C_i_cadddr(t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_20861,a[2]=((C_word*)t0)[9],a[3]=t9,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],tmp=(C_word)a,a+=13,tmp); t11=(C_truep(*((C_word*)lf[24]+1))?t6:C_SCHEME_FALSE); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20892,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[16],a[5]=t10,a[6]=t6,tmp=(C_word)a,a+=7,tmp); /* core.scm:2792: chicken.compiler.support#source-info->line */ t13=*((C_word*)lf[649]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t12; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t12=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[5])[1]); t13=C_mutate(((C_word *)((C_word*)t0)[5])+1,t12); t14=t10; f_20861(t14,t13);}} else{ t4=C_eqp(((C_word*)t0)[4],lf[287]); if(C_truep(t4)){ t5=((C_word*)((C_word*)t0)[5])[1]; t6=C_i_cadr(t5); t7=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[9])[1],t6); t8=C_mutate(((C_word *)((C_word*)t0)[9])+1,t7); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20917,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* core.scm:2803: mapwalk */ t10=((C_word*)((C_word*)t0)[11])[1]; f_22024(t10,t9,((C_word*)t0)[12],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[13],((C_word*)t0)[14]);} else{ t5=C_eqp(((C_word*)t0)[4],lf[605]); if(C_truep(t5)){ t6=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[9])[1],C_fix(4)); t7=C_mutate(((C_word *)((C_word*)t0)[9])+1,t6); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20938,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* core.scm:2807: mapwalk */ t9=((C_word*)((C_word*)t0)[11])[1]; f_22024(t9,t8,((C_word*)t0)[12],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[13],((C_word*)t0)[14]);} else{ t6=C_eqp(((C_word*)t0)[4],lf[118]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20955,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20959,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=((C_word*)((C_word*)t0)[5])[1]; t10=C_i_cadr(t9); /* core.scm:2810: chicken.compiler.support#estimate-foreign-result-size */ t11=*((C_word*)lf[495]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t8; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t7=C_eqp(((C_word*)t0)[4],lf[122]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20984,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],tmp=(C_word)a,a+=12,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20988,a[2]=t8,tmp=(C_word)a,a+=3,tmp); t10=((C_word*)((C_word*)t0)[5])[1]; t11=C_i_car(t10); /* core.scm:2814: chicken.compiler.support#estimate-foreign-result-size */ t12=*((C_word*)lf[495]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=t9; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t8=C_eqp(((C_word*)t0)[4],lf[586]); if(C_truep(t8)){ t9=((C_word*)((C_word*)t0)[5])[1]; t10=C_i_car(t9); t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)va25317,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[14],tmp=(C_word)a,a+=11,tmp); t12=t11; va25317(t12,C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[9])[1],t10));} else{ t9=C_eqp(((C_word*)t0)[4],lf[585]); if(C_truep(t9)){ t10=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[9])[1],C_fix(2)); t11=C_mutate(((C_word *)((C_word*)t0)[9])+1,t10); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21034,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t13=C_i_car(((C_word*)t0)[12]); /* core.scm:2823: walk */ t14=((C_word*)((C_word*)t0)[17])[1]; f_20814(t14,t12,t13,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[13],((C_word*)t0)[14]);} else{ t10=C_eqp(((C_word*)t0)[4],lf[594]); if(C_truep(t10)){ t11=C_i_car(((C_word*)t0)[12]); t12=t11; t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21050,a[2]=((C_word*)t0)[18],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[14],a[6]=t12,tmp=(C_word)a,a+=7,tmp); /* core.scm:2827: mapwalk */ t14=((C_word*)((C_word*)t0)[11])[1]; f_22024(t14,t13,((C_word*)t0)[12],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[13],((C_word*)t0)[14]);} else{ t11=C_eqp(((C_word*)t0)[4],lf[153]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21089,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); t13=((C_word*)((C_word*)t0)[5])[1]; t14=C_i_car(t13); /* core.scm:2839: literal */ t15=((C_word*)((C_word*)t0)[19])[1]; f_22075(t15,t12,t14);} else{ t12=C_eqp(((C_word*)t0)[4],lf[95]); t13=(C_truep(t12)?t12:C_eqp(((C_word*)t0)[4],lf[526])); if(C_truep(t13)){ t14=((C_word*)((C_word*)t0)[20])[1]; t15=((C_word*)((C_word*)t0)[21])[1]; t16=((C_word*)((C_word*)t0)[22])[1]; t17=((C_word*)((C_word*)t0)[23])[1]; t18=((C_word*)((C_word*)t0)[9])[1]; t19=C_eqp(((C_word*)t0)[10],lf[526]); t20=t19; t21=C_set_block_item(((C_word*)t0)[20],0,C_fix(0)); t22=C_set_block_item(((C_word*)t0)[21],0,C_SCHEME_END_OF_LIST); t23=C_set_block_item(((C_word*)t0)[9],0,C_fix(0)); t24=C_set_block_item(((C_word*)t0)[22],0,C_SCHEME_END_OF_LIST); t25=C_set_block_item(((C_word*)t0)[23],0,C_fix(0)); t26=((C_word*)((C_word*)t0)[5])[1]; t27=C_i_caddr(t26); t28=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_21130,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[23],a[4]=t17,a[5]=((C_word*)t0)[20],a[6]=t14,a[7]=((C_word*)t0)[21],a[8]=t15,a[9]=((C_word*)t0)[9],a[10]=t18,a[11]=((C_word*)t0)[22],a[12]=t16,a[13]=t20,a[14]=((C_word*)t0)[24],a[15]=((C_word*)t0)[25],a[16]=((C_word*)t0)[12],a[17]=((C_word*)t0)[17],tmp=(C_word)a,a+=18,tmp); /* core.scm:2855: ##sys#decompose-lambda-list */ t29=*((C_word*)lf[181]+1);{ C_word av2[4]; av2[0]=t29; av2[1]=((C_word*)t0)[3]; av2[2]=t27; av2[3]=t28; ((C_proc)(void*)(*((C_word*)t29+1)))(4,av2);}} else{ t14=C_eqp(((C_word*)t0)[4],lf[164]); if(C_truep(t14)){ t15=((C_word*)((C_word*)t0)[5])[1]; t16=C_i_car(t15); t17=t16; t18=C_i_car(((C_word*)t0)[12]); t19=t18; t20=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21362,a[2]=t17,a[3]=((C_word*)t0)[20],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[17],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[5],a[12]=t19,tmp=(C_word)a,a+=13,tmp); /* core.scm:2914: chicken.compiler.support#node-class */ t21=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t21; av2[1]=t20; av2[2]=t19; ((C_proc)(void*)(*((C_word*)t21+1)))(3,av2);}} else{ t15=C_eqp(((C_word*)t0)[4],lf[604]); if(C_truep(t15)){ t16=((C_word*)((C_word*)t0)[5])[1]; t17=C_i_car(t16); t18=C_i_car(((C_word*)t0)[12]); t19=C_a_i_cons(&a,2,t17,((C_word*)((C_word*)t0)[21])[1]); t20=C_mutate(((C_word *)((C_word*)t0)[21])+1,t19); t21=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21389,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[17],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],tmp=(C_word)a,a+=10,tmp); /* core.scm:2929: walk */ t22=((C_word*)((C_word*)t0)[17])[1]; f_20814(t22,t21,t18,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[13],((C_word*)t0)[14]);} else{ t16=C_eqp(((C_word*)t0)[4],lf[270]); if(C_truep(t16)){ t17=((C_word*)((C_word*)t0)[5])[1]; t18=C_i_car(t17); t19=t18; t20=C_i_car(((C_word*)t0)[12]); t21=t20; t22=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_21412,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[17],a[4]=t21,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[13],a[7]=((C_word*)t0)[14],a[8]=((C_word*)t0)[3],a[9]=t19,a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[26],a[12]=((C_word*)t0)[19],a[13]=((C_word*)t0)[27],a[14]=((C_word*)t0)[5],tmp=(C_word)a,a+=15,tmp); /* core.scm:2935: posq */ f_7334(t22,t19,((C_word*)t0)[7]);} else{ t17=C_eqp(((C_word*)t0)[4],lf[505]); if(C_truep(t17)){ t18=C_i_cdr(((C_word*)t0)[12]); t19=C_i_length(t18); t20=t19; t21=C_i_cdr(((C_word*)((C_word*)t0)[5])[1]); t22=C_i_pairp(t21); t23=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_21545,a[2]=((C_word*)t0)[22],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[16],a[14]=((C_word*)t0)[23],a[15]=t20,tmp=(C_word)a,a+=16,tmp); if(C_truep(t22)){ t24=((C_word*)((C_word*)t0)[5])[1]; t25=t23; f_21545(t25,C_i_cadr(t24));} else{ t24=t23; f_21545(t24,C_SCHEME_FALSE);}} else{ t18=C_eqp(((C_word*)t0)[4],lf[522]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21630,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[14],tmp=(C_word)a,a+=11,tmp); t20=((C_word*)((C_word*)t0)[5])[1]; if(C_truep(C_i_car(t20))){ t21=((C_word*)((C_word*)t0)[23])[1]; t22=C_mutate(((C_word *)((C_word*)t0)[23])+1,C_s_a_i_plus(&a,2,t21,C_fix(1))); t23=t19; f_21630(t23,t22);} else{ t21=t19; f_21630(t21,C_SCHEME_UNDEFINED);}} else{ t19=C_eqp(((C_word*)t0)[4],lf[117]); if(C_truep(t19)){ t20=((C_word*)((C_word*)t0)[5])[1]; t21=C_i_car(t20); t22=t21; t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21657,a[2]=((C_word*)t0)[28],a[3]=((C_word*)t0)[3],a[4]=t22,a[5]=((C_word*)t0)[19],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnump(t22))){ t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21766,a[2]=t23,tmp=(C_word)a,a+=3,tmp); /* core.scm:2980: chicken.compiler.support#big-fixnum? */ t25=*((C_word*)lf[664]+1);{ C_word av2[3]; av2[0]=t25; av2[1]=t24; av2[2]=t22; ((C_proc)(void*)(*((C_word*)t25+1)))(3,av2);}} else{ t24=t23; f_21657(t24,C_SCHEME_FALSE);}} else{ t20=C_eqp(((C_word*)t0)[4],lf[136]); t21=(C_truep(t20)?t20:C_eqp(((C_word*)t0)[4],lf[601])); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21778,a[2]=((C_word*)t0)[20],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[17],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],tmp=(C_word)a,a+=13,tmp); t23=C_i_car(((C_word*)t0)[12]); /* core.scm:2996: walk */ t24=((C_word*)((C_word*)t0)[17])[1]; f_20814(t24,t22,t23,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[13],((C_word*)t0)[14]);} else{ t22=C_eqp(((C_word*)t0)[4],lf[600]); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21844,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[17],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],tmp=(C_word)a,a+=12,tmp); t24=C_i_car(((C_word*)t0)[12]); /* core.scm:3008: walk */ t25=((C_word*)((C_word*)t0)[17])[1]; f_20814(t25,t23,t24,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[13],((C_word*)t0)[14]);} else{ t23=C_eqp(((C_word*)t0)[4],lf[178]); if(C_truep(t23)){ t24=((C_word*)((C_word*)t0)[15])[1]; t25=C_a_i_cons(&a,2,t24,((C_word*)((C_word*)t0)[5])[1]); t26=C_a_i_cons(&a,2,t25,((C_word*)((C_word*)t0)[16])[1]); t27=C_mutate(((C_word *)((C_word*)t0)[16])+1,t26); t28=((C_word*)((C_word*)t0)[15])[1]; t29=C_mutate(((C_word *)((C_word*)t0)[15])+1,C_s_a_i_plus(&a,2,t28,C_fix(1))); /* core.scm:3032: chicken.compiler.support#make-node */ t30=*((C_word*)lf[471]+1);{ C_word av2[5]; av2[0]=t30; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[10]; av2[3]=t25; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t30+1)))(5,av2);}} else{ t24=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21957,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* core.scm:3034: mapwalk */ t25=((C_word*)((C_word*)t0)[11])[1]; f_22024(t25,t24,((C_word*)t0)[12],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[13],((C_word*)t0)[14]);}}}}}}}}}}}}}}}}}}}}}} /* k20859 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_20861(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,0,6)))){ C_save_and_reclaim_args((void *)trf_20861,2,t0,t1);} a=C_alloc(34); t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20872,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* core.scm:2799: mapwalk */ t5=((C_word*)((C_word*)t0)[7])[1]; f_22024(t5,t4,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);} /* k20870 in k20859 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20872,2,av);} /* core.scm:2799: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k20890 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_20892,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20896,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* core.scm:2793: chicken.compiler.support#source-info->name */ t4=*((C_word*)lf[648]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k20894 in k20890 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(47,c,1)))){ C_save_and_reclaim((void *)f_20896,2,av);} a=C_alloc(47); t2=C_a_i_list4(&a,4,((C_word*)((C_word*)t0)[2])[1],lf[647],((C_word*)t0)[3],t1); t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[4])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3); t5=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[5])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,t5); t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t7,C_fix(1))); t9=((C_word*)t0)[6]; f_20861(t9,t8);} /* k20915 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20917,2,av);} /* core.scm:2803: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k20936 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20938,2,av);} /* core.scm:2807: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k20953 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_20955,2,av);} a=C_alloc(29); t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],t1); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* core.scm:2811: chicken.compiler.support#make-node */ t4=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)((C_word*)t0)[5])[1]; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k20957 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20959,2,av);} /* core.scm:2810: chicken.compiler.support#bytes->words */ t2=*((C_word*)lf[326]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k20978 in k20982 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20980,2,av);} /* core.scm:2815: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k20982 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,c,6)))){ C_save_and_reclaim((void *)f_20984,2,av);} a=C_alloc(34); t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],t1); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20980,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* core.scm:2815: mapwalk */ t5=((C_word*)((C_word*)t0)[6])[1]; f_22024(t5,t4,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* k20986 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_20988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20988,2,av);} /* core.scm:2814: chicken.compiler.support#bytes->words */ t2=*((C_word*)lf[326]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k21007 */ static void C_ccall f_21009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21009,2,av);} /* core.scm:2819: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[586]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k21032 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_21034,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2823: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[585]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21048 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_21050,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21060,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21080,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* core.scm:2829: chicken.compiler.support#node-class */ t5=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k21058 in k21048 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_21060(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,0,4)))){ C_save_and_reclaim_args((void *)trf_21060,2,t0,t1);} a=C_alloc(29); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1))); /* core.scm:2828: chicken.compiler.support#make-node */ t4=*((C_word*)lf[471]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[593]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* core.scm:2828: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k21074 in k21078 in k21048 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21076,2,av);} t2=C_i_car(t1); t3=((C_word*)t0)[2]; f_21060(t3,C_i_memq(t2,((C_word*)t0)[3]));} /* k21078 in k21048 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21080,2,av);} a=C_alloc(4); t2=C_eqp(lf[508],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21076,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2830: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_21060(t3,C_SCHEME_FALSE);}} /* k21087 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_21089,2,av);} a=C_alloc(32); t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(8)); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=C_a_i_list1(&a,1,t1); /* core.scm:2841: chicken.compiler.support#make-node */ t5=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t4; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){ C_save_and_reclaim((void *)f_21130,5,av);} a=C_alloc(28); t5=((C_word*)((C_word*)t0)[2])[1]; t6=C_i_car(t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_21137,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[2],a[12]=t1,a[13]=((C_word*)t0)[12],a[14]=t3,a[15]=((C_word*)t0)[13],a[16]=t7,a[17]=t2,a[18]=t4,a[19]=((C_word*)t0)[14],a[20]=((C_word*)t0)[15],a[21]=((C_word*)t0)[16],a[22]=((C_word*)t0)[17],tmp=(C_word)a,a+=23,tmp); if(C_truep(t4)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21265,a[2]=t8,a[3]=((C_word*)t0)[15],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* core.scm:2861: chicken.compiler.support#db-get */ t10=*((C_word*)lf[521]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[15]; av2[3]=t4; av2[4]=lf[547]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t9=t8;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_21137(2,av2);}}} /* k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_21137,2,av);} a=C_alloc(33); t2=t1; t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_21140,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=t2,a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp); t4=C_i_car(((C_word*)t0)[21]); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21235,a[2]=t2,a[3]=((C_word*)t0)[17],a[4]=((C_word*)t0)[22],a[5]=t3,a[6]=t5,a[7]=((C_word*)t0)[16],tmp=(C_word)a,a+=8,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21256,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_eqp(lf[652],t2); if(C_truep(t8)){ /* core.scm:2869: chicken.base#butlast */ t9=*((C_word*)lf[655]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[17]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t9=((C_word*)t0)[17]; /* core.scm:2868: ##sys#fast-reverse */ t10=*((C_word*)lf[654]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t6; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} /* k21138 in k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,5)))){ C_save_and_reclaim((void *)f_21140,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_21143,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=t2,a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],tmp=(C_word)a,a+=23,tmp); t4=C_eqp(((C_word*)t0)[19],lf[652]); if(C_truep(t4)){ /* core.scm:2877: chicken.compiler.support#debugging */ t5=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t3; av2[2]=lf[609]; av2[3]=lf[653]; av2[4]=((C_word*)t0)[18]; av2[5]=((C_word*)t0)[16]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_21143(2,av2);}}} /* k21141 in k21138 in k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,5)))){ C_save_and_reclaim((void *)f_21143,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_21146,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); t3=(C_truep(((C_word*)t0)[15])?((C_word*)t0)[18]:C_SCHEME_FALSE); if(C_truep(t3)){ /* core.scm:2879: chicken.compiler.support#bomb */ t4=*((C_word*)lf[515]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=lf[651]; av2[3]=((C_word*)t0)[16]; av2[4]=((C_word*)((C_word*)t0)[8])[1]; av2[5]=((C_word*)t0)[18]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_21146(2,av2);}}} /* k21144 in k21141 in k21138 in k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_21146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(63,c,4)))){ C_save_and_reclaim((void *)f_21146,2,av);} a=C_alloc(63); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_21149,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); t3=((C_word*)((C_word*)t0)[11])[1]; t4=C_i_cadr(t3); t5=t4; t6=((C_word*)((C_word*)t0)[4])[1]; t7=C_s_a_i_plus(&a,2,t6,C_fix(1)); t8=(C_truep(((C_word*)t0)[15])?((C_word*)t0)[15]:C_i_memq(((C_word*)t0)[16],lf[66])); t9=t8; t10=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_21186,a[2]=((C_word*)t0)[17],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[18],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[16],a[9]=t5,a[10]=t7,a[11]=t9,a[12]=((C_word*)t0)[19],a[13]=((C_word*)t0)[20],a[14]=((C_word*)t0)[15],a[15]=t2,a[16]=((C_word*)t0)[21],a[17]=((C_word*)t0)[22],a[18]=((C_word*)t0)[2],tmp=(C_word)a,a+=19,tmp); /* core.scm:2894: chicken.compiler.support#db-get */ t11=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t10; av2[2]=((C_word*)t0)[22]; av2[3]=((C_word*)t0)[16]; av2[4]=lf[583]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* k21147 in k21144 in k21141 in k21138 in k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_21149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_21149,2,av);} a=C_alloc(5); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21157,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[12],tmp=(C_word)a,a+=5,tmp); /* core.scm:2908: lset-adjoin/eq? */ t7=lf[11];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[13]; av2[3]=((C_word*)t0)[14]; f_6950(4,av2);}} /* k21155 in k21147 in k21144 in k21141 in k21138 in k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_21157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_21157,2,av);} a=C_alloc(3); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_i_car(t3); t5=C_a_i_list1(&a,1,t4); /* core.scm:2909: chicken.compiler.support#make-node */ t6=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=lf[542]; av2[3]=t5; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k21184 in k21144 in k21141 in k21138 in k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_21186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,5)))){ C_save_and_reclaim((void *)f_21186,2,av);} a=C_alloc(22); t2=(C_truep(t1)?t1:C_fix(0)); t3=t2; t4=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_21193,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t3,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp); if(C_truep(C_i_not(((C_word*)t0)[4]))){ if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[18])[1],C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21212,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* core.scm:2898: chicken.compiler.support#debugging */ t6=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t5; av2[2]=lf[609]; av2[3]=lf[650]; av2[4]=((C_word*)t0)[8]; av2[5]=((C_word*)((C_word*)t0)[18])[1]; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t5=t4; f_21193(t5,C_SCHEME_FALSE);}} else{ t5=t4; f_21193(t5,C_SCHEME_FALSE);}} /* k21191 in k21184 in k21144 in k21141 in k21138 in k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_fcall f_21193(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){ C_save_and_reclaim_args((void *)trf_21193,2,t0,t1);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_21197,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t2,a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp); if(C_truep(((C_word*)t0)[15])){ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[15]; f_21197(2,av2);}} else{ /* core.scm:2900: chicken.compiler.support#db-get */ t4=*((C_word*)lf[521]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[18]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[575]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k21195 in k21191 in k21184 in k21144 in k21141 in k21138 in k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_21197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_21197,2,av);} a=C_alloc(18); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=((C_word*)((C_word*)t0)[5])[1]; t6=((C_word*)((C_word*)t0)[6])[1]; t7=((C_word*)((C_word*)t0)[7])[1]; t8=C_a_i_record(&a,17,lf[615],((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,t4,((C_word*)t0)[10],t5,t6,t7,((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[13],t1,((C_word*)t0)[14],((C_word*)t0)[15],((C_word*)t0)[16]); /* core.scm:2880: chicken.internal#hash-table-set! */ t9=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[17]; av2[2]=((C_word*)t0)[18]; av2[3]=((C_word*)t0)[8]; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* k21210 in k21184 in k21144 in k21141 in k21138 in k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_21212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21212,2,av);} t2=((C_word*)t0)[2]; f_21193(t2,C_SCHEME_TRUE);} /* k21233 in k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_21235,2,av);} t2=C_eqp(lf[652],((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_i_length(((C_word*)t0)[3]); t4=C_fixnum_difference(t3,C_fix(1)); /* core.scm:2866: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_20814(t5,((C_word*)t0)[5],((C_word*)t0)[6],t1,t4,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);} else{ t3=C_i_length(((C_word*)t0)[3]); /* core.scm:2866: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_20814(t4,((C_word*)t0)[5],((C_word*)t0)[6],t1,t3,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);}} /* k21254 in k21135 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21256,2,av);} /* core.scm:2868: ##sys#fast-reverse */ t2=*((C_word*)lf[654]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k21263 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21265,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21271,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* core.scm:2862: chicken.compiler.support#db-get */ t4=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[533]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k21269 in k21263 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21271,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[530]; f_21137(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21296,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:2863: chicken.compiler.support#db-get */ t3=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[592]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k21294 in k21269 in k21263 in a21129 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21296,2,av);} if(C_truep(C_i_not(t1))){ t2=C_i_not(((C_word*)t0)[2]); if(C_truep(t2)){ if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[652]; f_21137(2,av2);}} else{ /* core.scm:2865: chicken.compiler.support#db-get */ t3=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[529]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} else{ if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[652]; f_21137(2,av2);}} else{ /* core.scm:2865: chicken.compiler.support#db-get */ t3=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[529]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} else{ /* core.scm:2865: chicken.compiler.support#db-get */ t2=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[529]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k21326 in k21360 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_21328,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21332,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_cadr(((C_word*)t0)[4]); t5=t4; t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21340,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=t5,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21352,a[2]=t6,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); /* core.scm:2920: ##sys#fast-reverse */ t8=*((C_word*)lf[654]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)((C_word*)t0)[11])[1]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k21330 in k21326 in k21360 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21332,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:2916: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[656]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21338 in k21326 in k21360 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_21340,2,av);} a=C_alloc(8); t2=t1; t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21348,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=t4,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* core.scm:2921: scheme#append */ t6=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k21346 in k21338 in k21326 in k21360 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_21348,2,av);} /* core.scm:2919: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20814(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k21350 in k21326 in k21360 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21352,2,av);} /* core.scm:2920: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k21360 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(47,c,6)))){ C_save_and_reclaim((void *)f_21362,2,av);} a=C_alloc(47); t2=C_eqp(lf[585],t1); t3=(C_truep(t2)?C_a_i_list1(&a,1,((C_word*)t0)[2]):C_SCHEME_END_OF_LIST); t4=t3; t5=((C_word*)((C_word*)t0)[3])[1]; t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_s_a_i_plus(&a,2,t5,C_fix(1))); t7=C_a_i_list1(&a,1,C_fix(1)); t8=t7; t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21328,a[2]=((C_word*)t0)[4],a[3]=t8,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t4,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* core.scm:2918: walk */ t10=((C_word*)((C_word*)t0)[7])[1]; f_20814(t10,t9,((C_word*)t0)[12],((C_word*)t0)[10],((C_word*)t0)[6],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k21387 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_21389,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21393,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_cadr(((C_word*)t0)[4]); /* core.scm:2930: walk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_20814(t5,t3,t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k21391 in k21387 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21393,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* core.scm:2927: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[604]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21410 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_21412,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21416,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* core.scm:2935: g4969 */ t3=t2; f_21416(t3,((C_word*)t0)[8],t1);} else{ t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_21446,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[4],tmp=(C_word)a,a+=15,tmp); /* core.scm:2941: chicken.compiler.support#node-class */ t3=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* g4969 in k21410 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_21416(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,6)))){ C_save_and_reclaim_args((void *)trf_21416,3,t0,t1,t2);} a=C_alloc(7); t3=C_fixnum_plus(t2,C_fix(1)); t4=C_fixnum_difference(((C_word*)t0)[2],t3); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21432,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* core.scm:2939: walk */ t8=((C_word*)((C_word*)t0)[3])[1]; f_20814(t8,t7,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k21430 in g4969 in k21410 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_21432,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2937: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[657]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21444 in k21410 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_21446,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_21530,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=t2,a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* core.scm:2942: chicken.compiler.support#variable-visible? */ t4=*((C_word*)lf[546]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k21450 in k21528 in k21444 in k21410 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_21452,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21455,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); if(C_truep(t1)){ t3=t2; f_21455(t3,t1);} else{ t3=C_i_cdr(((C_word*)((C_word*)t0)[14])[1]); if(C_truep(C_i_pairp(t3))){ t4=((C_word*)((C_word*)t0)[14])[1]; t5=C_i_cadr(t4); t6=t2; f_21455(t6,(C_truep(t5)?t5:C_eqp(lf[381],((C_word*)t0)[15])));} else{ t4=t2; f_21455(t4,C_eqp(lf[381],((C_word*)t0)[15]));}}} /* k21453 in k21450 in k21528 in k21444 in k21410 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_fcall f_21455(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(43,0,2)))){ C_save_and_reclaim_args((void *)trf_21455,2,t0,t1);} a=C_alloc(43); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21458,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); if(C_truep(((C_word*)t0)[2])){ t4=((C_word*)((C_word*)t0)[13])[1]; t5=C_mutate(((C_word *)((C_word*)t0)[13])+1,C_s_a_i_plus(&a,2,t4,C_fix(1))); t6=t3; f_21458(t6,t5);} else{ t4=t3; f_21458(t4,C_SCHEME_UNDEFINED);}} /* k21456 in k21453 in k21450 in k21528 in k21444 in k21410 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_21458(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_21458,2,t0,t1);} a=C_alloc(12); t2=(C_truep(((C_word*)t0)[2])?lf[658]:lf[659]); t3=t2; t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21485,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[3])){ /* core.scm:2951: blockvar-literal */ t5=((C_word*)((C_word*)t0)[12])[1]; f_22132(t5,t4,((C_word*)t0)[4]);} else{ /* core.scm:2952: literal */ t5=((C_word*)((C_word*)t0)[13])[1]; f_22075(t5,t4,((C_word*)t0)[4]);}} /* k21475 in k21483 in k21456 in k21453 in k21450 in k21528 in k21444 in k21410 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_21477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_21477,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2948: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21483 in k21456 in k21453 in k21450 in k21528 in k21444 in k21410 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_21485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,6)))){ C_save_and_reclaim((void *)f_21485,2,av);} a=C_alloc(14); t2=C_a_i_list3(&a,3,t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21477,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_i_car(((C_word*)t0)[6]); /* core.scm:2955: walk */ t6=((C_word*)((C_word*)t0)[7])[1]; f_20814(t6,t4,t5,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* k21524 in k21528 in k21444 in k21410 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21526,2,av);} t2=C_i_car(t1); /* core.scm:2944: chicken.compiler.support#immediate? */ t3=*((C_word*)lf[598]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k21528 in k21444 in k21410 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_21530,2,av);} a=C_alloc(19); t2=C_i_not(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_21452,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); t5=C_eqp(((C_word*)t0)[14],lf[117]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21526,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* core.scm:2944: chicken.compiler.support#node-parameters */ t7=*((C_word*)lf[509]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[15]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_21452(2,av2);}}} /* k21543 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_21545(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_21545,2,t0,t1);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_21549,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* core.scm:2961: lset-adjoin/eq? */ t4=lf[11];{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)t0)[15]; f_6950(4,av2);}} /* k21547 in k21543 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_21549,2,av);} a=C_alloc(18); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21552,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21593,a[2]=((C_word*)t0)[15],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_length(((C_word*)((C_word*)t0)[5])[1]); if(C_truep(C_fixnum_greater_or_equal_p(t5,C_fix(3)))){ t6=((C_word*)((C_word*)t0)[5])[1]; t7=C_i_caddr(t6); t8=t4; f_21593(t8,C_eqp(((C_word*)t0)[10],t7));} else{ t6=t4; f_21593(t6,C_SCHEME_FALSE);}} /* k21550 in k21547 in k21543 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_21552(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_21552,2,t0,t1);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=(C_truep(*((C_word*)lf[24]+1))?((C_word*)t0)[11]:C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21582,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[13],a[5]=t2,a[6]=((C_word*)t0)[11],tmp=(C_word)a,a+=7,tmp); /* core.scm:2966: chicken.compiler.support#source-info->line */ t5=*((C_word*)lf[649]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[4])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4); t6=t2; f_21555(t6,t5);}} /* k21553 in k21550 in k21547 in k21543 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_21555(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,6)))){ C_save_and_reclaim_args((void *)trf_21555,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21562,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2972: mapwalk */ t3=((C_word*)((C_word*)t0)[5])[1]; f_22024(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k21560 in k21553 in k21550 in k21547 in k21543 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_21562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21562,2,av);} /* core.scm:2972: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k21580 in k21550 in k21547 in k21543 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_21582,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21586,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* core.scm:2967: chicken.compiler.support#source-info->name */ t4=*((C_word*)lf[648]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21584 in k21580 in k21550 in k21547 in k21543 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_21586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(47,c,1)))){ C_save_and_reclaim((void *)f_21586,2,av);} a=C_alloc(47); t2=C_a_i_list4(&a,4,((C_word*)((C_word*)t0)[2])[1],lf[647],((C_word*)t0)[3],t1); t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[4])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3); t5=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[5])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,t5); t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t7,C_fix(1))); t9=((C_word*)t0)[6]; f_21555(t9,t8);} /* k21591 in k21547 in k21543 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_21593(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){ C_save_and_reclaim_args((void *)trf_21593,2,t0,t1);} a=C_alloc(29); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1))); t4=((C_word*)t0)[3]; f_21552(t4,t3);} else{ t2=((C_word*)t0)[3]; f_21552(t2,C_SCHEME_UNDEFINED);}} /* k21628 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_21630(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,6)))){ C_save_and_reclaim_args((void *)trf_21630,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21637,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:2976: mapwalk */ t3=((C_word*)((C_word*)t0)[5])[1]; f_22024(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k21635 in k21628 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21637,2,av);} /* core.scm:2976: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_21657(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_21657,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* core.scm:2981: immediate-literal */ f_22176(((C_word*)t0)[3],((C_word*)t0)[4]);} else{ if(C_truep(C_i_numberp(((C_word*)t0)[4]))){ t2=C_eqp(lf[404],*((C_word*)lf[403]+1)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21678,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_integerp(((C_word*)t0)[4]))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21725,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* core.scm:2984: chicken.compiler.support#big-fixnum? */ t5=*((C_word*)lf[664]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3; f_21678(t4,C_SCHEME_FALSE);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21736,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* core.scm:2991: literal */ t4=((C_word*)((C_word*)t0)[5])[1]; f_22075(t4,t3,((C_word*)t0)[4]);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21742,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:2992: chicken.compiler.support#immediate? */ t3=*((C_word*)lf[598]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k21676 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_21678(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_21678,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21681,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21692,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:2986: chicken.base#open-output-string */ t4=*((C_word*)lf[130]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* core.scm:2990: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[261]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[663]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k21679 in k21676 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21681,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21688,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:2989: scheme#inexact->exact */ t3=*((C_word*)lf[660]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k21686 in k21679 in k21676 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21688,2,av);} /* core.scm:2989: immediate-literal */ f_22176(((C_word*)t0)[3],t1);} /* k21690 in k21676 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21692,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21698,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:2986: ##sys#print */ t6=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[662]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k21696 in k21690 in k21676 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21698,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21701,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:2986: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21699 in k21696 in k21690 in k21676 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_21701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21701,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21704,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* core.scm:2986: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[661]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21702 in k21699 in k21696 in k21690 in k21676 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_21704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_21704,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21707,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21714,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:2988: scheme#inexact->exact */ t4=*((C_word*)lf[660]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21705 in k21702 in k21699 in k21696 in k21690 in k21676 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_21707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21707,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21710,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:2986: chicken.base#get-output-string */ t3=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k21708 in k21705 in k21702 in k21699 in k21696 in k21690 in k21676 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_21710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21710,2,av);} /* core.scm:2985: chicken.base#warning */ t2=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k21712 in k21702 in k21699 in k21696 in k21690 in k21676 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_21714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21714,2,av);} /* core.scm:2986: ##sys#print */ t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k21723 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21725,2,av);} t2=((C_word*)t0)[2]; f_21678(t2,C_i_not(t1));} /* k21734 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_21736,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2991: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[645]; av2[3]=t2; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21740 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21742,2,av);} a=C_alloc(3); if(C_truep(t1)){ /* core.scm:2992: immediate-literal */ f_22176(((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21756,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* core.scm:2993: literal */ t3=((C_word*)((C_word*)t0)[5])[1]; f_22075(t3,t2,((C_word*)t0)[4]);}} /* k21754 in k21740 in k21655 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_21756,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* core.scm:2993: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[645]; av2[3]=t2; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21764 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21766,2,av);} t2=((C_word*)t0)[2]; f_21657(t2,C_i_not(t1));} /* k21776 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,6)))){ C_save_and_reclaim((void *)f_21778,2,av);} a=C_alloc(16); t2=t1; t3=((C_word*)((C_word*)t0)[2])[1]; t4=((C_word*)((C_word*)t0)[3])[1]; t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_21781,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t3,a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],a[15]=((C_word*)t0)[12],tmp=(C_word)a,a+=16,tmp); t6=C_i_cadr(((C_word*)t0)[7]); /* core.scm:2999: walk */ t7=((C_word*)((C_word*)t0)[8])[1]; f_20814(t7,t5,t6,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);} /* k21779 in k21776 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,6)))){ C_save_and_reclaim((void *)f_21781,2,av);} a=C_alloc(13); t2=t1; t3=((C_word*)((C_word*)t0)[2])[1]; t4=((C_word*)((C_word*)t0)[3])[1]; t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21784,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t3,a[12]=t4,tmp=(C_word)a,a+=13,tmp); t6=C_i_caddr(((C_word*)t0)[10]); /* core.scm:3002: walk */ t7=((C_word*)((C_word*)t0)[11])[1]; f_20814(t7,t5,t6,((C_word*)t0)[12],((C_word*)t0)[13],((C_word*)t0)[14],((C_word*)t0)[15]);} /* k21782 in k21779 in k21776 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(71,c,3)))){ C_save_and_reclaim((void *)f_21784,2,av);} a=C_alloc(71); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21815,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); t4=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[12]); t5=C_s_a_i_minus(&a,2,((C_word*)t0)[12],((C_word*)t0)[2]); /* core.scm:3003: scheme#max */ t6=*((C_word*)lf[665]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k21801 in k21813 in k21782 in k21779 in k21776 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_21803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,4)))){ C_save_and_reclaim((void *)f_21803,2,av);} a=C_alloc(38); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=C_a_i_list3(&a,3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]); /* core.scm:3005: chicken.compiler.support#make-node */ t5=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[7]; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)((C_word*)t0)[9])[1]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k21813 in k21782 in k21779 in k21776 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(97,c,3)))){ C_save_and_reclaim((void *)f_21815,2,av);} a=C_alloc(97); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21803,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); t5=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[12]); t6=C_s_a_i_minus(&a,2,((C_word*)t0)[12],((C_word*)t0)[4]); /* core.scm:3004: scheme#max */ t7=*((C_word*)lf[665]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t4; av2[2]=t5; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k21842 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){ C_save_and_reclaim((void *)f_21844,2,av);} a=C_alloc(18); t2=t1; t3=((C_word*)((C_word*)t0)[2])[1]; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21855,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t5=((C_word*)((C_word*)t0)[5])[1]; t6=C_i_car(t5); t7=C_i_cdr(((C_word*)t0)[6]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21865,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=t9,tmp=(C_word)a,a+=10,tmp)); t11=((C_word*)t9)[1]; f_21865(t11,t4,t6,t7,C_fix(0));} /* k21853 in k21842 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_21855,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* core.scm:3010: chicken.compiler.support#make-node */ t3=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)((C_word*)t0)[5])[1]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* loop in k21842 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_21865(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,6)))){ C_save_and_reclaim_args((void *)trf_21865,5,t0,t1,t2,t3,t4);} a=C_alloc(14); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t6=t2; if(C_truep(C_i_zerop(t6))){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21874,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t8=C_i_car(t3); /* core.scm:3018: walk */ t9=((C_word*)((C_word*)t0)[4])[1]; f_20814(t9,t7,t8,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t7=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21896,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t4,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[8],tmp=(C_word)a,a+=14,tmp); t8=C_i_car(t3); /* core.scm:3021: walk */ t9=((C_word*)((C_word*)t0)[4])[1]; f_20814(t9,t7,t8,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}} /* k21872 in loop in k21842 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,3)))){ C_save_and_reclaim((void *)f_21874,2,av);} a=C_alloc(35); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21885,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[2]); /* core.scm:3019: scheme#max */ t5=*((C_word*)lf[665]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k21883 in k21872 in loop in k21842 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ C_save_and_reclaim((void *)f_21885,2,av);} a=C_alloc(32); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k21894 in loop in k21842 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){ C_save_and_reclaim((void *)f_21896,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21899,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_i_cadr(((C_word*)t0)[4]); /* core.scm:3022: walk */ t5=((C_word*)((C_word*)t0)[9])[1]; f_20814(t5,t3,t4,((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[13]);} /* k21897 in k21894 in loop in k21842 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(69,c,3)))){ C_save_and_reclaim((void *)f_21899,2,av);} a=C_alloc(69); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21906,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_s_a_i_minus(&a,2,t4,C_fix(1)); t6=C_i_cddr(((C_word*)t0)[5]); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21916,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=t5,a[5]=t7,tmp=(C_word)a,a+=6,tmp); t9=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8]); /* core.scm:3025: scheme#max */ t10=*((C_word*)lf[665]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t8; av2[2]=t9; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k21904 in k21897 in k21894 in loop in k21842 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_21906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_21906,2,av);} a=C_alloc(6); /* core.scm:3023: cons* */ f_6555(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],t1));} /* k21914 in k21897 in k21894 in loop in k21842 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_21916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21916,2,av);} /* core.scm:3025: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21865(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k21955 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_21957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21957,2,av);} /* core.scm:3034: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* mapwalk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_22024(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){ C_save_and_reclaim_args((void *)trf_22024,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(20); t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22029,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp); t12=C_i_check_list_2(t2,lf[10]); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22041,a[2]=t9,a[3]=t14,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_22041(t16,t1,t2);} /* g5067 in mapwalk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_22029(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){ C_save_and_reclaim_args((void *)trf_22029,3,t0,t1,t2);} /* core.scm:3037: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_20814(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* map-loop5061 in mapwalk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_22041(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_22041,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22066,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:3037: g5067 */ t5=((C_word*)t0)[4]; f_22029(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k22064 in map-loop5061 in mapwalk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_22066,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_22041(t6,((C_word*)t0)[5],t5);} /* literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_22075(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_22075,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22082,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* core.scm:3040: chicken.compiler.support#immediate? */ t4=*((C_word*)lf[598]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k22080 in literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,3)))){ C_save_and_reclaim((void *)f_22082,2,av);} a=C_alloc(35); if(C_truep(t1)){ /* core.scm:3040: immediate-literal */ f_22176(((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=(C_truep(C_blockp(((C_word*)t0)[4]))?C_lambdainfop(((C_word*)t0)[4]):C_SCHEME_FALSE); if(C_truep(t2)){ t3=((C_word*)((C_word*)t0)[5])[1]; t4=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)((C_word*)t0)[6])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[6])+1,t4); t6=((C_word*)((C_word*)t0)[5])[1]; t7=C_mutate(((C_word *)((C_word*)t0)[5])+1,C_s_a_i_plus(&a,2,t6,C_fix(1))); t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_vector1(&a,1,t3); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t3=((C_word*)t0)[4]; t4=((C_word*)((C_word*)t0)[7])[1]; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7374,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t6=( f_7374(t5,C_fix(0),t4) ); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22107,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp); /* core.scm:3040: g5097 */ t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=( /* core.scm:3040: g5097 */ f_22107(t7,t6) ); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* core.scm:3049: new-literal */ t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=( /* core.scm:3049: new-literal */ f_22123(C_a_i(&a,32),((C_word*)((C_word*)t0)[9])[1],((C_word*)t0)[4]) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}} /* g5097 in k22080 in literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static C_word C_fcall f_22107(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_fixnum_plus(t1,C_fix(1)); return(C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],t2));} /* new-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static C_word C_fcall f_22123(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check;{} t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[3])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); t5=((C_word*)((C_word*)t0)[2])[1]; t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t5,C_fix(1))); return(t2);} /* blockvar-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_22132(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_22132,3,t0,t1,t2);} a=C_alloc(15); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22136,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22160,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=((C_word*)((C_word*)t0)[4])[1]; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6922,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_6922(t10,t3,C_fix(0),t6);} /* k22134 in blockvar-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22136,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22140,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:3058: g5113 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* core.scm:3058: g5113 */ f_22140(t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22158,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:3064: chicken.compiler.support#make-block-variable-literal */ t3=*((C_word*)lf[666]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* g5113 in k22134 in blockvar-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static C_word C_fcall f_22140(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_fixnum_plus(t1,C_fix(1)); return(C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],t2));} /* k22156 in k22134 in blockvar-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ C_save_and_reclaim((void *)f_22158,2,av);} a=C_alloc(32); /* core.scm:3064: new-literal */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* core.scm:3064: new-literal */ f_22123(C_a_i(&a,32),((C_word*)((C_word*)t0)[3])[1],t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a22159 in blockvar-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22160,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22167,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:3060: chicken.compiler.support#block-variable-literal? */ t4=*((C_word*)lf[668]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k22165 in a22159 in blockvar-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22167,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:3061: chicken.compiler.support#block-variable-literal-name */ t3=*((C_word*)lf[667]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k22172 in k22165 in a22159 in blockvar-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22174,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* immediate-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_22176(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_22176,2,t1,t2);} a=C_alloc(9); t3=*((C_word*)lf[669]+1); t4=C_eqp(*((C_word*)lf[669]+1),t2); if(C_truep(t4)){ /* core.scm:3068: chicken.compiler.support#make-node */ t5=*((C_word*)lf[471]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=lf[381]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22193,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fixnump(t2))){ t6=C_a_i_list(&a,2,lf[671],t2); /* core.scm:3069: chicken.compiler.support#make-node */ t7=*((C_word*)lf[471]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t1; av2[2]=lf[670]; av2[3]=t6; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ if(C_truep(C_booleanp(t2))){ t6=C_a_i_list(&a,2,lf[672],t2); /* core.scm:3069: chicken.compiler.support#make-node */ t7=*((C_word*)lf[471]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t1; av2[2]=lf[670]; av2[3]=t6; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ if(C_truep(C_charp(t2))){ t6=C_a_i_list(&a,2,lf[673],t2); /* core.scm:3069: chicken.compiler.support#make-node */ t7=*((C_word*)lf[471]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t1; av2[2]=lf[670]; av2[3]=t6; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ if(C_truep(C_i_nullp(t2))){ /* core.scm:3069: chicken.compiler.support#make-node */ t6=*((C_word*)lf[471]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=lf[670]; av2[3]=lf[674]; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ if(C_truep(C_eofp(t2))){ /* core.scm:3069: chicken.compiler.support#make-node */ t6=*((C_word*)lf[471]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=lf[670]; av2[3]=lf[675]; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* core.scm:3075: chicken.compiler.support#bomb */ t6=*((C_word*)lf[515]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=lf[676]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}}}}} /* k22191 in immediate-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22193,2,av);} /* core.scm:3069: chicken.compiler.support#make-node */ t2=*((C_word*)lf[471]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[670]; av2[3]=t1; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k22237 in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){ C_save_and_reclaim((void *)f_22239,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22242,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* core.scm:3079: walk */ t3=((C_word*)((C_word*)t0)[10])[1]; f_20814(t3,t2,((C_word*)t0)[11],C_SCHEME_END_OF_LIST,C_fix(0),C_SCHEME_FALSE,C_SCHEME_END_OF_LIST);} /* k22240 in k22237 in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_22242,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22245,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=((C_word*)((C_word*)t0)[9])[1]; if(C_truep(C_i_positivep(t4))){ /* core.scm:3081: chicken.compiler.support#debugging */ t5=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[609]; av2[3]=lf[679]; av2[4]=((C_word*)((C_word*)t0)[9])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_22245(2,av2);}}} /* k22243 in k22240 in k22237 in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_22245,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22248,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=((C_word*)((C_word*)t0)[9])[1]; if(C_truep(C_i_positivep(t3))){ /* core.scm:3083: chicken.compiler.support#debugging */ t4=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[609]; av2[3]=lf[678]; av2[4]=((C_word*)((C_word*)t0)[9])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_22248(2,av2);}}} /* k22246 in k22243 in k22240 in k22237 in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_22248,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22251,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=((C_word*)((C_word*)t0)[8])[1]; if(C_truep(C_i_positivep(t3))){ /* core.scm:3085: chicken.compiler.support#debugging */ t4=*((C_word*)lf[563]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[609]; av2[3]=lf[677]; av2[4]=((C_word*)((C_word*)t0)[8])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_22251(2,av2);}}} /* k22249 in k22246 in k22243 in k22240 in k22237 in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22251,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22258,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:3087: ##sys#fast-reverse */ t3=*((C_word*)lf[654]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[7])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k22256 in k22249 in k22246 in k22243 in k22240 in k22237 in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22258,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22262,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* core.scm:3088: ##sys#fast-reverse */ t4=*((C_word*)lf[654]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k22260 in k22256 in k22249 in k22246 in k22243 in k22240 in k22237 in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22262,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22266,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* core.scm:3090: scheme#reverse */ t4=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k22264 in k22260 in k22256 in k22249 in k22246 in k22243 in k22240 in k22237 in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_22266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_22266,2,av);} /* core.scm:3086: scheme#values */{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=t1; C_values(7,av2);}} /* k6073 */ static void C_ccall f_6075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6075,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6078,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k6076 in k6073 */ static void C_ccall f_6078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6078,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6081,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k6079 in k6076 in k6073 */ static void C_ccall f_6081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6081,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6084,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6084,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6087,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6087,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6090,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_scrutinizer_toplevel(2,av2);}} /* k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6090,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6093,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_support_toplevel(2,av2);}} /* k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6093,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6096,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_file_toplevel(2,av2);}} /* k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6096,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6099,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6099,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6102,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word t87; C_word t88; C_word t89; C_word t90; C_word t91; C_word t92; C_word t93; C_word t94; C_word t95; C_word t96; C_word t97; C_word t98; C_word t99; C_word t100; C_word t101; C_word t102; C_word t103; C_word t104; C_word t105; C_word t106; C_word t107; C_word t108; C_word t109; C_word t110; C_word t111; C_word t112; C_word t113; C_word t114; C_word t115; C_word t116; C_word t117; C_word t118; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(108,c,9)))){ C_save_and_reclaim((void *)f_6102,2,av);} a=C_alloc(108); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate(&lf[2] /* (set! chicken.compiler.core#every ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6491,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[3] /* (set! chicken.compiler.core#cons* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6555,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[4] /* (set! chicken.compiler.core#concatenate ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6583,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[6] /* (set! chicken.compiler.core#delete ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6611,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate(&lf[7] /* (set! chicken.compiler.core#filter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6731,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate(&lf[9] /* (set! chicken.compiler.core#unzip1 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6840,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate(&lf[11] /* (set! chicken.compiler.core#lset-adjoin/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6950,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate(&lf[12] /* (set! chicken.compiler.core#lset-difference/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6991,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate(&lf[13] /* (set! chicken.compiler.core#lset-union/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7036,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate(&lf[15] /* (set! chicken.compiler.core#lset-intersection/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7115,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate(&lf[16] /* (set! chicken.compiler.core#posq ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7334,tmp=(C_word)a,a+=2,tmp)); t15=C_set_block_item(lf[17] /* chicken.compiler.core#unit-name */,0,C_SCHEME_FALSE); t16=C_set_block_item(lf[18] /* chicken.compiler.core#standard-bindings */,0,C_SCHEME_END_OF_LIST); t17=C_set_block_item(lf[19] /* chicken.compiler.core#extended-bindings */,0,C_SCHEME_END_OF_LIST); t18=C_set_block_item(lf[20] /* chicken.compiler.core#insert-timer-checks */,0,C_SCHEME_TRUE); t19=C_set_block_item(lf[21] /* chicken.compiler.core#used-units */,0,C_SCHEME_END_OF_LIST); t20=C_set_block_item(lf[22] /* chicken.compiler.core#foreign-declarations */,0,C_SCHEME_END_OF_LIST); t21=C_set_block_item(lf[23] /* chicken.compiler.core#emit-trace-info */,0,C_SCHEME_FALSE); t22=C_set_block_item(lf[24] /* chicken.compiler.core#emit-debug-info */,0,C_SCHEME_FALSE); t23=C_set_block_item(lf[25] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_FALSE); t24=C_set_block_item(lf[26] /* chicken.compiler.core#line-number-database-size */,0,C_fix(997)); t25=C_set_block_item(lf[27] /* chicken.compiler.core#target-heap-size */,0,C_SCHEME_FALSE); t26=C_set_block_item(lf[28] /* chicken.compiler.core#target-stack-size */,0,C_SCHEME_FALSE); t27=C_set_block_item(lf[29] /* chicken.compiler.core#optimize-leaf-routines */,0,C_SCHEME_FALSE); t28=C_set_block_item(lf[30] /* chicken.compiler.core#emit-profile */,0,C_SCHEME_FALSE); t29=C_set_block_item(lf[31] /* chicken.compiler.core#no-bound-checks */,0,C_SCHEME_FALSE); t30=C_set_block_item(lf[32] /* chicken.compiler.core#no-argc-checks */,0,C_SCHEME_FALSE); t31=C_set_block_item(lf[33] /* chicken.compiler.core#no-procedure-checks */,0,C_SCHEME_FALSE); t32=C_set_block_item(lf[34] /* chicken.compiler.core#no-global-procedure-checks */,0,C_SCHEME_FALSE); t33=lf[35] /* chicken.compiler.core#safe-globals-flag */ =C_SCHEME_FALSE;; t34=C_set_block_item(lf[36] /* chicken.compiler.core#explicit-use-flag */,0,C_SCHEME_FALSE); t35=C_set_block_item(lf[37] /* chicken.compiler.core#disable-stack-overflow-checking */,0,C_SCHEME_FALSE); t36=C_set_block_item(lf[38] /* chicken.compiler.core#external-protos-first */,0,C_SCHEME_FALSE); t37=C_set_block_item(lf[39] /* chicken.compiler.core#inline-max-size */,0,C_fix(20)); t38=C_set_block_item(lf[40] /* chicken.compiler.core#emit-closure-info */,0,C_SCHEME_TRUE); t39=C_set_block_item(lf[41] /* chicken.compiler.core#undefine-shadowed-macros */,0,C_SCHEME_TRUE); t40=C_set_block_item(lf[42] /* chicken.compiler.core#profiled-procedures */,0,C_SCHEME_FALSE); t41=C_set_block_item(lf[43] /* chicken.compiler.core#import-libraries */,0,C_SCHEME_END_OF_LIST); t42=C_set_block_item(lf[44] /* chicken.compiler.core#all-import-libraries */,0,C_SCHEME_FALSE); t43=C_set_block_item(lf[45] /* chicken.compiler.core#preserve-unchanged-import-libraries */,0,C_SCHEME_TRUE); t44=C_set_block_item(lf[46] /* chicken.compiler.core#enable-module-registration */,0,C_SCHEME_TRUE); t45=C_set_block_item(lf[47] /* chicken.compiler.core#standalone-executable */,0,C_SCHEME_TRUE); t46=C_set_block_item(lf[48] /* chicken.compiler.core#local-definitions */,0,C_SCHEME_FALSE); t47=C_set_block_item(lf[49] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_FALSE); t48=C_set_block_item(lf[50] /* chicken.compiler.core#enable-inline-files */,0,C_SCHEME_FALSE); t49=C_set_block_item(lf[51] /* chicken.compiler.core#compiler-syntax-enabled */,0,C_SCHEME_TRUE); t50=C_set_block_item(lf[52] /* chicken.compiler.core#bootstrap-mode */,0,C_SCHEME_FALSE); t51=C_set_block_item(lf[53] /* chicken.compiler.core#strict-variable-types */,0,C_SCHEME_FALSE); t52=C_set_block_item(lf[54] /* chicken.compiler.core#enable-specialization */,0,C_SCHEME_FALSE); t53=C_set_block_item(lf[55] /* chicken.compiler.core#static-extensions */,0,C_SCHEME_FALSE); t54=C_set_block_item(lf[56] /* chicken.compiler.core#emit-link-file */,0,C_SCHEME_FALSE); t55=C_set_block_item(lf[57] /* chicken.compiler.core#verbose-mode */,0,C_SCHEME_FALSE); t56=lf[58] /* chicken.compiler.core#original-program-size */ =C_SCHEME_FALSE;; t57=lf[59] /* chicken.compiler.core#current-program-size */ =C_fix(0);; t58=lf[60] /* chicken.compiler.core#current-analysis-database-size */ =C_fix(3001);; t59=C_set_block_item(lf[61] /* chicken.compiler.core#line-number-database-2 */,0,C_SCHEME_FALSE); t60=C_set_block_item(lf[62] /* chicken.compiler.core#immutable-constants */,0,C_SCHEME_END_OF_LIST); t61=C_set_block_item(lf[63] /* chicken.compiler.core#inline-table */,0,C_SCHEME_FALSE); t62=C_set_block_item(lf[64] /* chicken.compiler.core#constant-table */,0,C_SCHEME_FALSE); t63=C_set_block_item(lf[65] /* chicken.compiler.core#inline-substitutions-enabled */,0,C_SCHEME_FALSE); t64=lf[66] /* chicken.compiler.core#direct-call-ids */ =C_SCHEME_END_OF_LIST;; t65=C_set_block_item(lf[67] /* chicken.compiler.core#first-analysis */,0,C_SCHEME_TRUE); t66=lf[68] /* chicken.compiler.core#foreign-variables */ =C_SCHEME_END_OF_LIST;; t67=C_set_block_item(lf[69] /* chicken.compiler.core#foreign-lambda-stubs */,0,C_SCHEME_END_OF_LIST); t68=C_set_block_item(lf[70] /* chicken.compiler.core#external-variables */,0,C_SCHEME_END_OF_LIST); t69=lf[71] /* chicken.compiler.core#external-to-pointer */ =C_SCHEME_END_OF_LIST;; t70=lf[72] /* chicken.compiler.core#location-pointer-map */ =C_SCHEME_END_OF_LIST;; t71=lf[73] /* chicken.compiler.core#pending-canonicalizations */ =C_SCHEME_END_OF_LIST;; t72=lf[74] /* chicken.compiler.core#defconstant-bindings */ =C_SCHEME_END_OF_LIST;; t73=lf[75] /* chicken.compiler.core#callback-names */ =C_SCHEME_END_OF_LIST;; t74=lf[76] /* chicken.compiler.core#toplevel-scope */ =C_SCHEME_TRUE;; t75=lf[77] /* chicken.compiler.core#toplevel-lambda-id */ =C_SCHEME_FALSE;; t76=C_set_block_item(lf[78] /* chicken.compiler.core#file-requirements */,0,C_SCHEME_FALSE); t77=C_set_block_item(lf[79] /* chicken.compiler.core#provided */,0,C_SCHEME_END_OF_LIST); t78=C_set_block_item(lf[80] /* chicken.compiler.core#linked-static-extensions */,0,C_SCHEME_END_OF_LIST); t79=C_mutate(&lf[81] /* (set! chicken.compiler.core#unlikely-variables ...) */,lf[82]); t80=C_set_block_item(lf[83] /* chicken.compiler.core#default-extended-bindings */,0,C_SCHEME_END_OF_LIST); t81=C_set_block_item(lf[84] /* chicken.compiler.core#default-standard-bindings */,0,C_SCHEME_END_OF_LIST); t82=C_set_block_item(lf[85] /* chicken.compiler.core#internal-bindings */,0,C_SCHEME_END_OF_LIST); t83=C_mutate((C_word*)lf[86]+1 /* (set! chicken.compiler.core#initialize-compiler ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7468,tmp=(C_word)a,a+=2,tmp)); t84=C_mutate((C_word*)lf[92]+1 /* (set! chicken.compiler.core#compute-database-statistics ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7520,tmp=(C_word)a,a+=2,tmp)); t85=C_mutate((C_word*)lf[100]+1 /* (set! chicken.compiler.core#canonicalize-expression ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7628,tmp=(C_word)a,a+=2,tmp)); t86=C_mutate((C_word*)lf[350]+1 /* (set! chicken.compiler.core#process-declaration ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13340,tmp=(C_word)a,a+=2,tmp)); t87=C_mutate(&lf[161] /* (set! chicken.compiler.core#register-static-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15227,tmp=(C_word)a,a+=2,tmp)); t88=C_mutate((C_word*)lf[470]+1 /* (set! chicken.compiler.core#build-toplevel-procedure ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15234,tmp=(C_word)a,a+=2,tmp)); t89=C_mutate((C_word*)lf[474]+1 /* (set! chicken.compiler.core#foreign-stub-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15257,tmp=(C_word)a,a+=2,tmp)); t90=C_mutate((C_word*)lf[477]+1 /* (set! chicken.compiler.core#foreign-stub-return-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15266,tmp=(C_word)a,a+=2,tmp)); t91=C_mutate((C_word*)lf[479]+1 /* (set! chicken.compiler.core#foreign-stub-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15275,tmp=(C_word)a,a+=2,tmp)); t92=C_mutate((C_word*)lf[481]+1 /* (set! chicken.compiler.core#foreign-stub-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15284,tmp=(C_word)a,a+=2,tmp)); t93=C_mutate((C_word*)lf[483]+1 /* (set! chicken.compiler.core#foreign-stub-argument-names ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15293,tmp=(C_word)a,a+=2,tmp)); t94=C_mutate((C_word*)lf[485]+1 /* (set! chicken.compiler.core#foreign-stub-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15302,tmp=(C_word)a,a+=2,tmp)); t95=C_mutate((C_word*)lf[487]+1 /* (set! chicken.compiler.core#foreign-stub-cps ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15311,tmp=(C_word)a,a+=2,tmp)); t96=C_mutate((C_word*)lf[489]+1 /* (set! chicken.compiler.core#foreign-stub-callback ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15320,tmp=(C_word)a,a+=2,tmp)); t97=C_mutate(&lf[302] /* (set! chicken.compiler.core#create-foreign-stub ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15329,tmp=(C_word)a,a+=2,tmp)); t98=C_mutate(&lf[295] /* (set! chicken.compiler.core#expand-foreign-lambda ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15718,tmp=(C_word)a,a+=2,tmp)); t99=C_mutate(&lf[298] /* (set! chicken.compiler.core#expand-foreign-lambda* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15755,tmp=(C_word)a,a+=2,tmp)); t100=C_mutate((C_word*)lf[504]+1 /* (set! chicken.compiler.core#perform-cps-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16103,tmp=(C_word)a,a+=2,tmp)); t101=C_mutate((C_word*)lf[518]+1 /* (set! chicken.compiler.core#analyze-expression ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16986,tmp=(C_word)a,a+=2,tmp)); t102=C_mutate((C_word*)lf[574]+1 /* (set! chicken.compiler.core#perform-closure-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18804,tmp=(C_word)a,a+=2,tmp)); t103=C_mutate((C_word*)lf[614]+1 /* (set! chicken.compiler.core#lambda-literal-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20559,tmp=(C_word)a,a+=2,tmp)); t104=C_mutate((C_word*)lf[617]+1 /* (set! chicken.compiler.core#lambda-literal-external ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20568,tmp=(C_word)a,a+=2,tmp)); t105=C_mutate((C_word*)lf[619]+1 /* (set! chicken.compiler.core#lambda-literal-argument-count ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20586,tmp=(C_word)a,a+=2,tmp)); t106=C_mutate((C_word*)lf[621]+1 /* (set! chicken.compiler.core#lambda-literal-rest-argument ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20595,tmp=(C_word)a,a+=2,tmp)); t107=C_mutate((C_word*)lf[623]+1 /* (set! chicken.compiler.core#lambda-literal-temporaries ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20604,tmp=(C_word)a,a+=2,tmp)); t108=C_mutate((C_word*)lf[625]+1 /* (set! chicken.compiler.core#lambda-literal-float-temporaries ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20613,tmp=(C_word)a,a+=2,tmp)); t109=C_mutate((C_word*)lf[627]+1 /* (set! chicken.compiler.core#lambda-literal-callee-signatures ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20622,tmp=(C_word)a,a+=2,tmp)); t110=C_mutate((C_word*)lf[629]+1 /* (set! chicken.compiler.core#lambda-literal-allocated ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20631,tmp=(C_word)a,a+=2,tmp)); t111=C_mutate((C_word*)lf[631]+1 /* (set! chicken.compiler.core#lambda-literal-closure-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20649,tmp=(C_word)a,a+=2,tmp)); t112=C_mutate((C_word*)lf[633]+1 /* (set! chicken.compiler.core#lambda-literal-looping ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20658,tmp=(C_word)a,a+=2,tmp)); t113=C_mutate((C_word*)lf[635]+1 /* (set! chicken.compiler.core#lambda-literal-customizable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20667,tmp=(C_word)a,a+=2,tmp)); t114=C_mutate((C_word*)lf[637]+1 /* (set! chicken.compiler.core#lambda-literal-rest-argument-mode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20676,tmp=(C_word)a,a+=2,tmp)); t115=C_mutate((C_word*)lf[639]+1 /* (set! chicken.compiler.core#lambda-literal-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20685,tmp=(C_word)a,a+=2,tmp)); t116=C_mutate((C_word*)lf[641]+1 /* (set! chicken.compiler.core#lambda-literal-direct ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20694,tmp=(C_word)a,a+=2,tmp)); t117=C_mutate((C_word*)lf[643]+1 /* (set! chicken.compiler.core#prepare-for-code-generation ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20703,tmp=(C_word)a,a+=2,tmp)); t118=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t118; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t118+1)))(2,av2);}} /* loop in a12548 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_fcall f_6288(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_6288,5,t0,t1,t2,t3,t4);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6302,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:67: scheme#reverse */ t6=*((C_word*)lf[219]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_fixnum_difference(t2,C_fix(1)); t6=C_i_car(t4); t7=C_a_i_cons(&a,2,t6,t3); t8=t4; t9=C_u_i_cdr(t8); /* mini-srfi-1.scm:68: loop */ t11=t1; t12=t5; t13=t7; t14=t9; t1=t11; t2=t12; t3=t13; t4=t14; goto loop;}} /* k6300 in loop in a12548 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_6302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6302,2,av);} /* mini-srfi-1.scm:67: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}} /* chicken.compiler.core#every in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6491(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_6491,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6497,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_6497(t7,t1,t3);} /* loop in chicken.compiler.core#every in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6497(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6497,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6519,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); /* mini-srfi-1.scm:82: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k6517 in loop in chicken.compiler.core#every in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6519,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:83: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_6497(t4,((C_word*)t0)[2],t3);}} /* loop in foldl527 in foldl511 in chicken.compiler.core#lset-union/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6531(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6531,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6541,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:88: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k6539 in loop in foldl527 in foldl511 in chicken.compiler.core#lset-union/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6541,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:89: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_6531(t4,((C_word*)t0)[2],t3);}} /* chicken.compiler.core#cons* in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6555(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_6555,3,t1,t2,t3);} a=C_alloc(5); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6561,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6561(t7,t1,t2,t3);} /* loop in chicken.compiler.core#cons* in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6561(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_6561,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6575,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t3); t6=t3; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:95: loop */ t9=t4; t10=t5; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* k6573 in loop in chicken.compiler.core#cons* in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6575,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.core#concatenate in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6583(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_6583,2,t1,t2);} a=C_alloc(5); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6589,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_6589(t6,t1,t2);} /* loop in chicken.compiler.core#concatenate in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6589(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_6589,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6607,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:101: loop */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}} /* k6605 in loop in chicken.compiler.core#concatenate in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6607,2,av);} /* mini-srfi-1.scm:101: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.core#delete in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6611(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_6611,4,t1,t2,t3,t4);} a=C_alloc(7); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6617,a[2]=t6,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_6617(t8,t1,t3);} /* loop in chicken.compiler.core#delete in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6617(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_6617,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6630,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:106: test */ t5=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k6628 in loop in chicken.compiler.core#delete in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6630,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:107: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6617(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6644,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:109: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_6617(t7,t4,t6);}} /* k6642 in k6628 in loop in chicken.compiler.core#delete in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6644,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k19244 in a19224 in k19213 in a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6692(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_6692,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6706,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6719,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:123: delete */ f_6611(t8,t4,t6,((C_word*)t0)[3]);}} /* k6704 in loop in k19244 in a19224 in k19213 in a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_6706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6706,2,av);} a=C_alloc(3); t2=C_i_equalp(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?((C_word*)t0)[4]:C_a_i_cons(&a,2,((C_word*)t0)[5],t1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6717 in loop in k19244 in a19224 in k19213 in a19207 in k18867 in k18840 in k18837 in k18834 in gather in chicken.compiler.core#perform-closure-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_6719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6719,2,av);} /* mini-srfi-1.scm:123: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6692(t2,((C_word*)t0)[3],t1);} /* chicken.compiler.core#filter in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6731(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_6731,3,t1,t2,t3);} a=C_alloc(6); t4=C_i_check_list_2(t3,lf[8]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6740,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_6740(t8,t1,t3);} /* foldr383 in chicken.compiler.core#filter in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6740(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_6740,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6748,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6769,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g388 in foldr383 in chicken.compiler.core#filter in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6748(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6748,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6755,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:131: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6753 in g388 in foldr383 in chicken.compiler.core#filter in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6755,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6767 in foldr383 in chicken.compiler.core#filter in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6769,2,av);} /* mini-srfi-1.scm:131: g388 */ t2=((C_word*)t0)[2]; f_6748(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* foldr401 in globalize-all in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6784(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_6784,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6792,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6818,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g406 in foldr401 in globalize-all in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6792(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_6792,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6796,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:135: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6794 in g406 in foldr401 in globalize-all in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6796,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6800,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:135: g416 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* mini-srfi-1.scm:135: g416 */ f_6800(C_a_i(&a,3),t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g416 in k6794 in g406 in foldr401 in globalize-all in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static C_word C_fcall f_6800(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));} /* k6816 in foldr401 in globalize-all in chicken.compiler.core#process-declaration in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6818,2,av);} /* mini-srfi-1.scm:134: g406 */ t2=((C_word*)t0)[2]; f_6792(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* chicken.compiler.core#unzip1 in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6840(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_6840,2,t1,t2);} a=C_alloc(12); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(t2,lf[10]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6857,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_6857(t11,t1,t2);} /* map-loop429 in chicken.compiler.core#unzip1 in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6857(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_6857,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in k16523 in k16201 in k16192 in k16189 in k16186 in k16183 in walk in chicken.compiler.core#perform-cps-conversion in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static C_word C_fcall f_6897(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} t2=C_i_cdr(t1); if(C_truep(C_i_nullp(t2))){ t3=t1; t4=C_u_i_car(t3); return(t4);} else{ t3=t1; t4=C_u_i_cdr(t3); t6=t4; t1=t6; goto loop;}} /* loop in blockvar-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6922(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6922,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6935,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t3); /* mini-srfi-1.scm:154: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k6933 in loop in blockvar-literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6935,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* mini-srfi-1.scm:155: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_6922(t5,((C_word*)t0)[2],t2,t4);}} /* chicken.compiler.core#lset-adjoin/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_6950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,4)))){ C_save_and_reclaim((void*)f_6950,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6956,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6956(t7,t1,t3,t2);} /* loop in chicken.compiler.core#lset-adjoin/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6956(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_6956,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); if(C_truep(C_i_memq(t4,t3))){ t5=t2; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:160: loop */ t11=t1; t12=t6; t13=t3; t1=t11; t2=t12; t3=t13; goto loop;} else{ t5=t2; t6=C_u_i_cdr(t5); t7=t2; t8=C_u_i_car(t7); t9=C_a_i_cons(&a,2,t8,t3); /* mini-srfi-1.scm:161: loop */ t11=t1; t12=t6; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}}} /* chicken.compiler.core#lset-difference/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6991(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_6991,3,t1,t2,t3);} a=C_alloc(5); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6997,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6997(t7,t1,t3,t2);} /* foldl489 in chicken.compiler.core#lset-difference/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_6997(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_6997,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7030,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(0)); t8=t3; t9=t7; t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7019,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:166: filter */ f_6731(t6,t10,t8);} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a7018 in foldl489 in chicken.compiler.core#lset-difference/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7019,3,av);} t3=C_i_memq(t2,((C_word*)t0)[2]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7028 in foldl489 in chicken.compiler.core#lset-difference/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7030,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_6997(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* chicken.compiler.core#lset-union/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,4)))){ C_save_and_reclaim((void*)f_7036,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7042,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_7042(t7,t1,t3,t2);} /* foldl511 in chicken.compiler.core#lset-union/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7042(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_7042,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7109,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(0)); t8=t3; t9=C_i_check_list_2(t7,lf[14]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7067,a[2]=t11,tmp=(C_word)a,a+=3,tmp)); t13=((C_word*)t11)[1]; f_7067(t13,t6,t7,t8);} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* foldl527 in foldl511 in chicken.compiler.core#lset-union/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7067(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,3)))){ C_save_and_reclaim_args((void *)trf_7067,4,t0,t1,t2,t3);} a=C_alloc(19); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7102,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(0)); t8=t6; t9=t3; t10=t7; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7090,a[2]=t8,a[3]=t9,a[4]=t10,tmp=(C_word)a,a+=5,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7095,a[2]=t10,tmp=(C_word)a,a+=3,tmp); t13=t12; t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6531,a[2]=t15,a[3]=t13,tmp=(C_word)a,a+=4,tmp)); t17=((C_word*)t15)[1]; f_6531(t17,t11,t9);} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k7088 in foldl527 in foldl511 in chicken.compiler.core#lset-union/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7090,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7094 in foldl527 in foldl511 in chicken.compiler.core#lset-union/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7095,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_eqp(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7100 in foldl527 in foldl511 in chicken.compiler.core#lset-union/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7102,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_7067(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k7107 in foldl511 in chicken.compiler.core#lset-union/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7109,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_7042(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* chicken.compiler.core#lset-intersection/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7115(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_7115,3,t1,t2,t3);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7121,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:182: filter */ f_6731(t1,t4,t2);} /* a7120 in chicken.compiler.core#lset-intersection/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7121,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7127,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:183: every */ f_6491(t1,t3,((C_word*)t0)[2]);} /* a7126 in a7120 in chicken.compiler.core#lset-intersection/eq? in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7127,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_memq(((C_word*)t0)[2],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.core#posq in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7334(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_7334,3,t1,t2,t3);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7340,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=( f_7340(t4,C_fix(0),t3) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* loop in chicken.compiler.core#posq in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static C_word C_fcall f_7340(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t2))){ return(C_SCHEME_FALSE);} else{ t3=C_i_car(t2); t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ return(t1);} else{ t5=C_fixnum_plus(t1,C_fix(1)); t6=t2; t7=C_u_i_cdr(t6); t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}}} /* loop in k22080 in literal in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static C_word C_fcall f_7374(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t2))){ return(C_SCHEME_FALSE);} else{ t3=C_i_car(t2); if(C_truep(C_i_eqvp(t3,((C_word*)t0)[2]))){ return(t1);} else{ t4=C_fixnum_plus(t1,C_fix(1)); t5=t2; t6=C_u_i_cdr(t5); t8=t4; t9=t6; t1=t8; t2=t9; goto loop;}}} /* chicken.compiler.core#initialize-compiler in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7468,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7472,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[61]+1))){ /* core.scm:455: scheme#vector-fill! */ t3=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[61]+1); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7518,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:456: scheme#make-vector */ t4=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[26]+1); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k7470 in chicken.compiler.core#initialize-compiler in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7472,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7475,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[63]+1))){ /* core.scm:458: scheme#vector-fill! */ t3=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[63]+1); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7511,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:459: scheme#make-vector */ t4=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(301); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k7473 in k7470 in chicken.compiler.core#initialize-compiler in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7475,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7478,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[64]+1))){ /* core.scm:461: scheme#vector-fill! */ t3=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[64]+1); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7504,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* core.scm:462: scheme#make-vector */ t4=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(301); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k7476 in k7473 in k7470 in chicken.compiler.core#initialize-compiler in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7478,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7481,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:463: chicken.compiler.support#reset-profile-info-vector-name! */ t3=*((C_word*)lf[91]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7479 in k7476 in k7473 in k7470 in chicken.compiler.core#initialize-compiler in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7481,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7484,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:464: chicken.compiler.support#clear-real-name-table! */ t3=*((C_word*)lf[90]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7482 in k7479 in k7476 in k7473 in k7470 in chicken.compiler.core#initialize-compiler in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7484,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7487,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[78]+1))){ /* core.scm:466: scheme#vector-fill! */ t3=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[78]+1); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7497,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:467: scheme#make-vector */ t4=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(301); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k7485 in k7482 in k7479 in k7476 in k7473 in k7470 in chicken.compiler.core#initialize-compiler in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7487,2,av);} /* core.scm:468: chicken.compiler.support#clear-foreign-type-table! */ t2=*((C_word*)lf[87]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7495 in k7482 in k7479 in k7476 in k7473 in k7470 in chicken.compiler.core#initialize-compiler in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7497,2,av);} t2=C_mutate((C_word*)lf[78]+1 /* (set! chicken.compiler.core#file-requirements ...) */,t1); /* core.scm:468: chicken.compiler.support#clear-foreign-type-table! */ t3=*((C_word*)lf[87]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7502 in k7473 in k7470 in chicken.compiler.core#initialize-compiler in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7504,2,av);} t2=C_mutate((C_word*)lf[64]+1 /* (set! chicken.compiler.core#constant-table ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_7478(2,av2);}} /* k7509 in k7470 in chicken.compiler.core#initialize-compiler in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7511,2,av);} t2=C_mutate((C_word*)lf[63]+1 /* (set! chicken.compiler.core#inline-table ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_7475(2,av2);}} /* k7516 in chicken.compiler.core#initialize-compiler in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7518,2,av);} t2=C_mutate((C_word*)lf[61]+1 /* (set! chicken.compiler.core#line-number-database-2 ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_7472(2,av2);}} /* chicken.compiler.core#compute-database-statistics in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){ C_save_and_reclaim((void *)f_7520,3,av);} a=C_alloc(25); t3=C_fix(0); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_fix(0); t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_fix(0); t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_fix(0); t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_fix(0); t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7524,a[2]=t1,a[3]=t6,a[4]=t4,a[5]=t8,a[6]=t12,a[7]=t10,tmp=(C_word)a,a+=8,tmp); t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7529,a[2]=t10,a[3]=t8,a[4]=t6,a[5]=t4,a[6]=t12,tmp=(C_word)a,a+=7,tmp); /* core.scm:490: chicken.internal#hash-table-for-each */ t15=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=t13; av2[2]=t14; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} /* k7522 in chicken.compiler.core#compute-database-statistics in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_7524,2,av);} /* core.scm:504: scheme#values */{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[59]; av2[3]=lf[58]; av2[4]=((C_word*)((C_word*)t0)[3])[1]; av2[5]=((C_word*)((C_word*)t0)[4])[1]; av2[6]=((C_word*)((C_word*)t0)[5])[1]; av2[7]=((C_word*)((C_word*)t0)[6])[1]; av2[8]=((C_word*)((C_word*)t0)[7])[1]; C_values(9,av2);}} /* a7528 in chicken.compiler.core#compute-database-statistics in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_7529,4,av);} a=C_alloc(13); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7531,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t5=C_i_check_list_2(t3,lf[98]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7605,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_7605(t9,t1,t3);} /* g758 in a7528 in chicken.compiler.core#compute-database-statistics in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7531(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(62,0,2)))){ C_save_and_reclaim_args((void *)trf_7531,3,t0,t1,t2);} a=C_alloc(62); t3=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); t5=C_i_car(t2); t6=C_eqp(t5,lf[93]); if(C_truep(t6)){ t7=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t8=C_mutate(((C_word *)((C_word*)t0)[3])+1,t7); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t7=C_eqp(t5,lf[94]); if(C_truep(t7)){ t8=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[4])[1],C_fix(1)); t9=C_mutate(((C_word *)((C_word*)t0)[4])+1,t8); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7573,a[2]=((C_word*)t0)[5],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t11=t2; t12=C_u_i_cdr(t11); /* core.scm:499: chicken.compiler.support#node-class */ t13=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t10; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t8=C_eqp(t5,lf[97]); if(C_truep(t8)){ t9=t2; t10=C_u_i_cdr(t9); t11=C_i_length(t10); t12=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[6])[1],t11); t13=C_mutate(((C_word *)((C_word*)t0)[6])+1,t12); t14=t1;{ C_word av2[2]; av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t9=C_SCHEME_UNDEFINED; t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}} /* k7571 in g758 in a7528 in chicken.compiler.core#compute-database-statistics in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_7573,2,av);} a=C_alloc(29); t2=C_eqp(lf[95],t1); if(C_truep(t2)){ t3=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* for-each-loop757 in a7528 in chicken.compiler.core#compute-database-statistics in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7605(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7605,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7615,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:492: g758 */ t5=((C_word*)t0)[3]; f_7531(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7613 in for-each-loop757 in a7528 in chicken.compiler.core#compute-database-statistics in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7615,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7605(t3,((C_word*)t0)[4],t2);} /* chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7628,3,av);} a=C_alloc(7); t3=C_SCHEME_END_OF_LIST; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7632,a[2]=t4,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:519: ##sys#current-environment */ t6=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(67,c,9)))){ C_save_and_reclaim((void *)f_7632,2,av);} a=C_alloc(67); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7634,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t23=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7669,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t24=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7709,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t25=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7722,tmp=(C_word)a,a+=2,tmp)); t26=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7749,a[2]=t9,tmp=(C_word)a,a+=3,tmp)); t27=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7778,tmp=(C_word)a,a+=2,tmp)); t28=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7844,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t29=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7887,a[2]=t19,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t30=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8152,a[2]=t17,a[3]=t19,a[4]=t11,a[5]=t13,a[6]=t5,a[7]=((C_word*)t0)[2],a[8]=t15,a[9]=t21,a[10]=t7,a[11]=t9,tmp=(C_word)a,a+=12,tmp)); t31=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13252,a[2]=t19,tmp=(C_word)a,a+=3,tmp)); t32=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13304,a[2]=t19,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_memq(lf[150],*((C_word*)lf[388]+1)))){ t33=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13335,a[2]=t32,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:1501: scheme#newline */ t34=*((C_word*)lf[389]+1);{ C_word *av2=av; av2[0]=t34; av2[1]=t33; ((C_proc)(void*)(*((C_word*)t34+1)))(2,av2);}} else{ t33=t32;{ C_word *av2=av; av2[0]=t33; av2[1]=C_SCHEME_UNDEFINED; f_13304(2,av2);}}} /* find-id in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7634(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7634,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7647,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t5=C_i_caar(t3); t6=C_eqp(t2,t5); if(C_truep(t6)){ t7=t3; t8=C_u_i_car(t7); t9=C_u_i_cdr(t8); t10=t4; f_7647(t10,C_i_symbolp(t9));} else{ t7=t4; f_7647(t7,C_SCHEME_FALSE);}}} /* k7645 in find-id in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7647(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_7647,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_u_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* core.scm:524: find-id */ t4=((C_word*)((C_word*)t0)[4])[1]; f_7634(t4,((C_word*)t0)[3],((C_word*)t0)[5],t3);}} /* lookup in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7669(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7669,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7676,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* core.scm:527: chicken.keyword#keyword? */ t4=*((C_word*)lf[106]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7674 in lookup in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7676,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7679,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7707,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* core.scm:528: ##sys#current-environment */ t4=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7677 in k7674 in lookup in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7679,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7687,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7693,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* core.scm:527: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}}} /* a7686 in k7677 in k7674 in lookup in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7687,2,av);} /* core.scm:529: ##sys#get */ t2=*((C_word*)lf[101]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[102]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a7692 in k7677 in k7674 in lookup in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_7693,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7700,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[104]+1); av2[3]=t2; C_apply(4,av2);}} /* k7698 in a7692 in k7677 in k7674 in lookup in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7700,2,av);} if(C_truep(t1)){{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[103]+1); av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7705 in k7674 in lookup in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7707,2,av);} /* core.scm:528: find-id */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7634(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* macro-alias in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7709(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7709,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7713,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:533: chicken.base#gensym */ t4=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7711 in macro-alias in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7713,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7716,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7720,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:534: lookup */ t5=((C_word*)((C_word*)t0)[3])[1]; f_7669(t5,t4,((C_word*)t0)[4]);} /* k7714 in k7711 in macro-alias in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7716,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7718 in k7711 in macro-alias in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7720,2,av);} /* core.scm:534: ##sys#put! */ t2=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[102]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* handle-expansion-result in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7722(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_7722,2,t1,t2);} a=C_alloc(3); t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7724,a[2]=t2,tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_7724 in handle-expansion-result in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7724,4,av);} a=C_alloc(10); t4=C_eqp(t2,t3); t5=C_i_not(t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7731,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7734,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* core.scm:540: chicken.compiler.support#get-line */ t8=*((C_word*)lf[112]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k7729 */ static void C_ccall f_7731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7731,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7732 */ static void C_ccall f_7734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7734,2,av);} a=C_alloc(11); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3]; t4=t2; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16024,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16049,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); /* core.scm:1902: walk */ t11=((C_word*)t8)[1]; f_16049(t11,((C_word*)t0)[4],t3);} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* canonicalize-body/ln in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7749(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7749,5,t0,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7753,a[2]=t3,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* core.scm:546: handle-expansion-result */ f_7722(t5,t2);} /* k7751 in canonicalize-body/ln in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_7753,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7758,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7763,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7773,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* core.scm:545: ##sys#dynamic-wind */ t9=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[4]; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a7757 in k7751 in canonicalize-body/ln in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7758,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[113]+1)); t3=C_mutate((C_word*)lf[113]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a7762 in k7751 in canonicalize-body/ln in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7763,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7771,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:547: ##sys#current-environment */ t3=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7769 in a7762 in k7751 in canonicalize-body/ln in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7771,2,av);} /* core.scm:547: ##sys#canonicalize-body */ t2=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7772 in k7751 in canonicalize-body/ln in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7773,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[113]+1)); t3=C_mutate((C_word*)lf[113]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* set-real-names! in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7778(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_7778,3,t1,t2,t3);} a=C_alloc(5); t4=C_i_check_list_2(t2,lf[98]); t5=C_i_check_list_2(t3,lf[98]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7795,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1]; f_7795(t9,t1,t2,t3);} /* for-each-loop849 in set-real-names! in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7795(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7795,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7805,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* core.scm:550: chicken.compiler.support#set-real-name! */ t9=*((C_word*)lf[116]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=t7; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k7803 in for-each-loop849 in set-real-names! in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7805,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_7795(t4,((C_word*)t0)[5],t2,t3);} /* unquotify in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7844,3,av);} a=C_alloc(4); if(C_truep(C_i_listp(t2))){ t3=t2; t4=C_u_i_length(t3); t5=C_eqp(C_fix(2),t4); if(C_truep(t5)){ t6=C_i_car(t2); if(C_truep(C_i_symbolp(t6))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7876,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_car(t8); /* core.scm:561: lookup */ t10=((C_word*)((C_word*)t0)[2])[1]; f_7669(t10,t7,t9);} else{ t7=t2; t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t6=t2; t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t3=t2; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7874 in unquotify in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7876,2,av);} t2=C_eqp(lf[117],t1); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cadr(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7887(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_7887,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(14); t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7891,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_memq(t2,lf[81]))){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8036,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:569: chicken.base#open-output-string */ t9=*((C_word*)lf[130]+1);{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_7891(2,av2);}}} /* k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7891,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7894,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* core.scm:571: lookup */ t3=((C_word*)((C_word*)t0)[9])[1]; f_7669(t3,t2,((C_word*)t0)[2]);} /* k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_7894,2,av);} a=C_alloc(9); t2=t1; t3=C_i_symbolp(t2); if(C_truep(C_i_not(t3))){ t4=((C_word*)t0)[2]; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7906,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[3],a[8]=t2,tmp=(C_word)a,a+=9,tmp); /* core.scm:574: chicken.internal#hash-table-ref */ t5=*((C_word*)lf[111]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[64]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_7906,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7910,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:573: g903 */ t3=t2; f_7910(t3,((C_word*)t0)[7],t1);} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7920,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* core.scm:576: chicken.internal#hash-table-ref */ t3=*((C_word*)lf[111]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[63]+1); av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* g903 in k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7910(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){ C_save_and_reclaim_args((void *)trf_7910,3,t0,t1,t2);} /* core.scm:575: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_8152(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE);} /* k7918 in k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_7920,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7924,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:573: g907 */ t3=t2; f_7924(t3,((C_word*)t0)[7],t1);} else{ t2=C_i_assq(((C_word*)t0)[8],lf[68]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7938,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:573: g911 */ t4=t3; f_7938(t4,((C_word*)t0)[7],t2);} else{ t3=C_i_assq(((C_word*)t0)[8],lf[72]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7977,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* core.scm:573: g921 */ t5=t4; f_7977(t5,((C_word*)t0)[7],t3);} else{ t4=C_i_memq(((C_word*)t0)[8],((C_word*)t0)[3]); if(C_truep(C_i_not(t4))){ /* core.scm:598: ##sys#alias-global-hook */ t5=*((C_word*)lf[123]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[7]; av2[2]=((C_word*)t0)[8]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}}} /* g907 in k7918 in k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7924(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){ C_save_and_reclaim_args((void *)trf_7924,3,t0,t1,t2);} /* core.scm:577: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_8152(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE);} /* g911 in k7918 in k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7938(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_7938,3,t0,t1,t2);} a=C_alloc(10); t3=t2; t4=C_i_cadr(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7945,a[2]=t2,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* core.scm:581: chicken.compiler.support#final-foreign-type */ t7=*((C_word*)lf[121]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7943 in g911 in k7918 in k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_7945,2,av);} a=C_alloc(24); t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); t4=C_a_i_list(&a,2,t3,((C_word*)t0)[3]); t5=C_a_i_list(&a,2,lf[118],t4); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7955,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7959,a[2]=t6,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:585: chicken.compiler.support#finish-foreign-result */ t8=*((C_word*)lf[120]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=t1; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k7953 in k7943 in g911 in k7918 in k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_7955,2,av);} /* core.scm:583: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE);} /* k7957 in k7943 in g911 in k7918 in k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7959,2,av);} /* core.scm:584: chicken.compiler.support#foreign-type-convert-result */ t2=*((C_word*)lf[119]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* g921 in k7918 in k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_7977(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_7977,3,t0,t1,t2);} a=C_alloc(10); t3=t2; t4=C_i_caddr(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7984,a[2]=t5,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* core.scm:591: chicken.compiler.support#final-foreign-type */ t7=*((C_word*)lf[121]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7982 in g921 in k7918 in k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_7984,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=C_i_cadr(t3); t5=C_a_i_list(&a,3,lf[122],t2,t4); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7994,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7998,a[2]=t6,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:595: chicken.compiler.support#finish-foreign-result */ t8=*((C_word*)lf[120]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=t1; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k7992 in k7982 in g921 in k7918 in k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_7994,2,av);} /* core.scm:593: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE);} /* k7996 in k7982 in g921 in k7918 in k7904 in k7892 in k7889 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_7998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7998,2,av);} /* core.scm:594: chicken.compiler.support#foreign-type-convert-result */ t2=*((C_word*)lf[119]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k8034 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8036,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[124]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8042,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* core.scm:569: ##sys#print */ t6=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[129]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k8040 in k8034 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_8042,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8045,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* core.scm:569: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8043 in k8040 in k8034 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_8045,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8048,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:569: ##sys#print */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[128]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8046 in k8043 in k8040 in k8034 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8048,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8051,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* core.scm:569: chicken.base#get-output-string */ t3=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8049 in k8046 in k8043 in k8040 in k8034 in resolve-variable in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8051,2,av);} /* core.scm:568: chicken.base#warning */ t2=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_8057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_8057,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8060,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8139,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* core.scm:605: ##sys#current-module */ t5=*((C_word*)lf[194]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8058 in k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in ... */ static void C_ccall f_8060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_8060,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8063,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8132,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:607: chicken.file#file-exists? */ t5=*((C_word*)lf[237]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8061 in k8058 in k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in ... */ static void C_ccall f_8063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_8063,2,av);} a=C_alloc(5); t2=C_i_equalp(((C_word*)t0)[2],t1); t3=(C_truep(t2)?*((C_word*)lf[45]+1):C_SCHEME_FALSE); if(C_truep(t3)){ if(C_truep(*((C_word*)lf[57]+1))){ /* core.scm:611: chicken.base#print */ t4=*((C_word*)lf[221]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[222]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[223]; av2[5]=((C_word*)t0)[5]; av2[6]=lf[224]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8078,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[57]+1))){ /* core.scm:615: chicken.base#print */ t5=*((C_word*)lf[221]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t4; av2[2]=lf[232]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[233]; av2[5]=((C_word*)t0)[5]; av2[6]=lf[234]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_8078(2,av2);}}}} /* k8076 in k8061 in k8058 in k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in ... */ static void C_ccall f_8078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_8078,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8083,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:617: scheme#with-output-to-file */ t3=*((C_word*)lf[231]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a8082 in k8076 in k8061 in k8058 in k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in ... */ static void C_ccall f_8083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_8083,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8087,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8123,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:620: chicken.platform#chicken-version */ t4=*((C_word*)lf[230]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8085 in a8082 in k8076 in k8061 in k8058 in k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in ... */ static void C_ccall f_8087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_8087,2,av);} a=C_alloc(9); t2=*((C_word*)lf[225]+1); t3=C_i_check_list_2(((C_word*)t0)[2],lf[98]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8093,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8098,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_8098(t8,t4,((C_word*)t0)[2]);} /* k8091 in k8085 in a8082 in k8076 in k8061 in k8058 in k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in ... */ static void C_ccall f_8093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8093,2,av);} /* core.scm:622: chicken.base#print */ t2=*((C_word*)lf[221]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* for-each-loop945 in k8085 in a8082 in k8076 in k8061 in k8058 in k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in ... */ static void C_fcall f_8098(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8098,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8108,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:621: g946 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8106 in for-each-loop945 in k8085 in a8082 in k8076 in k8061 in k8058 in k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in ... */ static void C_ccall f_8108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8108,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8098(t3,((C_word*)t0)[4],t2);} /* k8121 in a8082 in k8076 in k8061 in k8058 in k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in ... */ static void C_ccall f_8123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_8123,2,av);} /* core.scm:619: chicken.base#print */ t2=*((C_word*)lf[221]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[227]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[228]; av2[5]=t1; av2[6]=lf[229]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k8130 in k8058 in k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in ... */ static void C_ccall f_8132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8132,2,av);} if(C_truep(t1)){ /* core.scm:608: scheme#call-with-input-file */ t2=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[236]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_8063(2,av2);}}} /* k8137 in k8055 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in ... */ static void C_ccall f_8139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8139,2,av);} /* core.scm:605: ##sys#compiled-module-registration */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8144 in g1862 in k10441 in k10438 in loop in a10419 in a10413 in k10351 in k10348 in a10345 in k10339 in k10336 in k10330 in k10324 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in ... */ static void C_ccall f_8146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8146,2,av);} /* ##sys#string-append */ t2=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[240]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall f_8152(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){ C_word tmp; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){ C_save_and_reclaim_args((void *)trf_8152,9,t0,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(20); t9=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_8159,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=((C_word*)t0)[3],a[11]=t8,a[12]=((C_word*)t0)[4],a[13]=((C_word*)t0)[5],a[14]=((C_word*)t0)[6],a[15]=((C_word*)t0)[7],a[16]=((C_word*)t0)[8],a[17]=((C_word*)t0)[9],a[18]=((C_word*)t0)[10],a[19]=((C_word*)t0)[11],tmp=(C_word)a,a+=20,tmp); /* core.scm:625: chicken.keyword#keyword? */ t10=*((C_word*)lf[106]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,6)))){ C_save_and_reclaim((void *)f_8159,2,av);} a=C_alloc(19); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[117],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ /* core.scm:626: resolve-variable */ t2=((C_word*)((C_word*)t0)[4])[1]; f_7887(t2,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t2=C_i_pairp(((C_word*)t0)[3]); if(C_truep(C_i_not(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8183,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:628: chicken.compiler.support#constant? */ t4=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_i_car(((C_word*)t0)[3]); if(C_truep(C_i_symbolp(t3))){ t4=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8198,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],tmp=(C_word)a,a+=19,tmp); /* core.scm:632: chicken.compiler.support#get-line */ t5=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=C_i_listp(((C_word*)t0)[3]); if(C_truep(C_i_not(t4))){ /* core.scm:1482: ##sys#syntax-error/context */ t5=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=lf[386]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13198,a[2]=((C_word*)t0)[17],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); t6=((C_word*)t0)[3]; t7=C_u_i_car(t6); /* core.scm:1484: chicken.compiler.support#constant? */ t8=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t5; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}}}}} /* k8181 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8183,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[117],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* core.scm:630: ##sys#syntax-error/context */ t2=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[132]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_8198,2,av);} a=C_alloc(20); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_8204,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t3,a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); /* core.scm:633: chicken.compiler.support#emit-syntax-trace-info */ t5=*((C_word*)lf[385]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_8204,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_8207,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],tmp=(C_word)a,a+=20,tmp); if(C_truep(C_i_listp(((C_word*)t0)[2]))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8207(2,av2);}} else{ if(C_truep(((C_word*)t0)[9])){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13165,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* core.scm:636: chicken.base#open-output-string */ t4=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* core.scm:637: ##sys#syntax-error/context */ t3=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[384]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}} /* k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_8207,2,av);} a=C_alloc(20); t2=C_mutate((C_word*)lf[134]+1 /* (set! ##sys#syntax-error-culprit ...) */,((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_8211,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],tmp=(C_word)a,a+=20,tmp); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); /* core.scm:639: lookup */ t6=((C_word*)((C_word*)t0)[14])[1]; f_7669(t6,t3,t5);} /* k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_8211,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_8214,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); /* core.scm:642: handle-expansion-result */ f_7722(t3,((C_word*)t0)[9]);} /* k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){ C_save_and_reclaim((void *)f_8214,2,av);} a=C_alloc(35); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_8217,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],tmp=(C_word)a,a+=20,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13132,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13137,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13147,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* core.scm:641: ##sys#dynamic-wind */ t10=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t6; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,8)))){ C_save_and_reclaim((void *)f_8217,2,av);} a=C_alloc(20); t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(C_i_not(t2))){ /* core.scm:645: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_8152(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} else{ t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_8229,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],tmp=(C_word)a,a+=20,tmp); /* core.scm:647: chicken.internal#hash-table-ref */ t4=*((C_word*)lf[111]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[63]+1); av2[3]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_ccall f_8229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){ C_save_and_reclaim((void *)f_8229,2,av);} a=C_alloc(21); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8233,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* core.scm:644: g1014 */ t3=t2; f_8233(t3,((C_word*)t0)[9],t1);} else{ t2=((C_word*)t0)[10]; t3=C_eqp(t2,lf[135]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8261,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* core.scm:656: walk */ t6=((C_word*)((C_word*)t0)[3])[1]; f_8152(t6,t4,t5,((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} else{ t4=C_eqp(t2,lf[138]); t5=(C_truep(t4)?t4:C_eqp(t2,lf[139])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8307,a[2]=((C_word*)t0)[9],tmp=(C_word)a,a+=3,tmp); t7=C_i_cadr(((C_word*)t0)[2]); /* core.scm:663: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t6=C_eqp(t2,lf[141]); if(C_truep(t6)){ if(C_truep(*((C_word*)lf[142]+1))){ t7=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t7; av2[1]=lf[143]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_i_cadr(((C_word*)t0)[2]); /* core.scm:668: walk */ t8=((C_word*)((C_word*)t0)[3])[1]; f_8152(t8,((C_word*)t0)[9],t7,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[11]);}} else{ t7=C_eqp(t2,lf[144]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8340,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); t9=C_i_cadr(((C_word*)t0)[2]); /* core.scm:672: chicken.syntax#strip-syntax */ t10=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t8=C_eqp(t2,lf[145]); if(C_truep(t8)){ t9=(C_truep(((C_word*)t0)[8])?((C_word*)t0)[8]:C_i_cadr(((C_word*)t0)[2])); t10=t9; t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8381,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[2],a[10]=t10,a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); t12=C_i_caddr(((C_word*)t0)[2]); /* core.scm:679: walk */ t13=((C_word*)((C_word*)t0)[3])[1]; f_8152(t13,t11,t12,((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[11]);} else{ t9=C_eqp(t2,lf[146]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8465,a[2]=((C_word*)t0)[9],tmp=(C_word)a,a+=3,tmp); /* core.scm:686: scheme#cadadr */ t11=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t10=C_eqp(t2,lf[152]); t11=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_8496,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[9],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[11],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[10],tmp=(C_word)a,a+=21,tmp); if(C_truep(t10)){ t12=t11; f_8496(t12,t10);} else{ t12=C_eqp(t2,lf[380]); t13=t11; f_8496(t13,(C_truep(t12)?t12:C_eqp(t2,lf[381])));}}}}}}}}} /* g1014 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_fcall f_8233(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,8)))){ C_save_and_reclaim_args((void *)trf_8233,3,t0,t1,t2);} a=C_alloc(3); t3=C_i_cdr(((C_word*)t0)[2]); t4=C_a_i_cons(&a,2,t2,t3); /* core.scm:649: walk */ t5=((C_word*)((C_word*)t0)[3])[1]; f_8152(t5,t1,t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* k8259 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_8261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,8)))){ C_save_and_reclaim((void *)f_8261,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8265,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=C_i_caddr(((C_word*)t0)[3]); /* core.scm:657: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_8152(t5,t3,t4,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k8263 in k8259 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,8)))){ C_save_and_reclaim((void *)f_8265,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8269,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_i_cdddr(((C_word*)t0)[4]); if(C_truep(C_i_nullp(t4))){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,4,lf[136],((C_word*)t0)[3],t2,lf[137]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_cadddr(((C_word*)t0)[4]); /* core.scm:660: walk */ t6=((C_word*)((C_word*)t0)[5])[1]; f_8152(t6,t3,t5,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}} /* k8267 in k8263 in k8259 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_8269,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[136],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8305 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_8307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8307,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[117],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8338 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_8340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,8)))){ C_save_and_reclaim((void *)f_8340,2,av);} a=C_alloc(5); t2=t1; t3=C_i_caddr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8348,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=C_i_cadddr(((C_word*)t0)[2]); /* core.scm:674: walk */ t7=((C_word*)((C_word*)t0)[4])[1]; f_8152(t7,t5,t6,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k8346 in k8338 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_8348,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[144],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8379 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_8381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_8381,2,av);} a=C_alloc(27); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8386,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t8=C_i_cdddr(((C_word*)t0)[9]); t9=C_i_check_list_2(t8,lf[10]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8415,a[2]=t2,a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8417,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_8417(t14,t10,t8);} /* g1049 in k8379 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_8386(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_8386,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8394,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); t4=C_i_car(t2); /* core.scm:681: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[140]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8392 in g1049 in k8379 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){ C_save_and_reclaim((void *)f_8394,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8398,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(((C_word*)t0)[3]); /* core.scm:682: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_8152(t5,t3,t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k8396 in k8392 in g1049 in k8379 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_8398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8398,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8413 in k8379 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_8415,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[145],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop1043 in k8379 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_8417(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8417,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8442,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:680: g1049 */ t5=((C_word*)t0)[4]; f_8386(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8440 in map-loop1043 in k8379 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8442,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8417(t6,((C_word*)t0)[5],t5);} /* k8463 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_ccall f_8465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8465,2,av);} a=C_alloc(4); t2=t1; t3=C_i_assoc(t2,*((C_word*)lf[62]+1)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8477,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:689: chicken.base#gensym */ t5=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[150]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k8475 in k8463 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_8477,2,av);} a=C_alloc(10); t2=t1; t3=*((C_word*)lf[62]+1); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); t5=C_a_i_cons(&a,2,t4,*((C_word*)lf[62]+1)); t6=C_mutate((C_word*)lf[62]+1 /* (set! chicken.compiler.core#immutable-constants ...) */,t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8484,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:691: chicken.compiler.support#mark-variable */ t8=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=lf[149]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k8482 in k8475 in k8463 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8484,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8487,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:692: chicken.compiler.support#hide-variable */ t3=*((C_word*)lf[147]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8485 in k8482 in k8475 in k8463 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_8487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8487,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 in ... */ static void C_fcall f_8496(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,0,8)))){ C_save_and_reclaim_args((void *)trf_8496,2,t0,t1);} a=C_alloc(28); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[153]); if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8509,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* core.scm:699: lset-adjoin/eq? */ t6=lf[11];{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[79]+1); av2[3]=t4; f_6950(4,av2);}} else{ t3=C_eqp(((C_word*)t0)[4],lf[118]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8529,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:704: scheme#caadr */ t5=*((C_word*)lf[154]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=C_eqp(((C_word*)t0)[4],lf[122]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8550,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); t6=C_i_cadr(((C_word*)t0)[2]); /* core.scm:708: chicken.syntax#strip-syntax */ t7=*((C_word*)lf[140]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=C_eqp(((C_word*)t0)[4],lf[155]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8571,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t7=C_i_cadr(((C_word*)t0)[2]); /* core.scm:712: chicken.load#load-extension */ t8=*((C_word*)lf[157]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=lf[158]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t6=C_eqp(((C_word*)t0)[4],lf[159]); if(C_truep(t6)){ t7=C_i_cadr(((C_word*)t0)[2]); t8=t7; t9=((C_word*)t0)[2]; t10=C_u_i_cdr(t9); t11=C_u_i_cdr(t10); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8591,a[2]=t8,a[3]=t11,tmp=(C_word)a,a+=4,tmp); t13=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8597,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=t8,tmp=(C_word)a,a+=9,tmp); /* core.scm:718: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t12; av2[3]=t13; C_call_with_values(4,av2);}} else{ t7=C_eqp(((C_word*)t0)[4],lf[163]); if(C_truep(t7)){ t8=C_i_cadr(((C_word*)t0)[2]); t9=t8; t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8634,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=t9,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[2],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp); /* core.scm:733: unzip1 */ f_6840(t10,t9);} else{ t8=C_eqp(((C_word*)t0)[4],lf[166]); if(C_truep(t8)){ t9=C_i_cadr(((C_word*)t0)[2]); t10=t9; t11=((C_word*)t0)[2]; t12=C_u_i_cdr(t11); t13=C_u_i_cdr(t12); t14=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t15=t14; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=((C_word*)t16)[1]; t18=C_i_check_list_2(t10,lf[10]); t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8862,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=t13,a[10]=t10,tmp=(C_word)a,a+=11,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8934,a[2]=t16,a[3]=t21,a[4]=t17,tmp=(C_word)a,a+=5,tmp)); t23=((C_word*)t21)[1]; f_8934(t23,t19,t10);} else{ t9=C_eqp(((C_word*)t0)[4],lf[170]); if(C_truep(t9)){ t10=C_i_cadr(((C_word*)t0)[2]); t11=t10; t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8978,a[2]=((C_word*)t0)[2],a[3]=t11,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* core.scm:764: unzip1 */ f_6840(t12,t11);} else{ t10=C_eqp(((C_word*)t0)[4],lf[95]); if(C_truep(t10)){ t11=C_i_cadr(((C_word*)t0)[2]); t12=t11; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=((C_word*)t0)[2]; t15=C_u_i_cdr(t14); t16=C_u_i_cdr(t15); t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9249,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[13],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[12],a[9]=t17,a[10]=((C_word*)t0)[2],a[11]=((C_word*)t0)[3],a[12]=t13,tmp=(C_word)a,a+=13,tmp); t19=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9445,a[2]=t13,a[3]=t17,a[4]=t18,tmp=(C_word)a,a+=5,tmp); /* core.scm:783: ##sys#extended-lambda-list? */ t20=*((C_word*)lf[184]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=((C_word*)t13)[1]; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t11=C_eqp(((C_word*)t0)[4],lf[185]); if(C_truep(t11)){ t12=*((C_word*)lf[105]+1); t13=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9472,a[2]=t12,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[3],tmp=(C_word)a,a+=12,tmp); t14=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t15=t14; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=((C_word*)t16)[1]; t18=C_i_cadr(((C_word*)t0)[2]); t19=C_i_check_list_2(t18,lf[10]); t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9562,a[2]=t13,tmp=(C_word)a,a+=3,tmp); t21=C_SCHEME_UNDEFINED; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9568,a[2]=t16,a[3]=t22,a[4]=t17,tmp=(C_word)a,a+=5,tmp)); t24=((C_word*)t22)[1]; f_9568(t24,t20,t18);} else{ t12=C_eqp(((C_word*)t0)[4],lf[188]); if(C_truep(t12)){ t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t14=t13; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=((C_word*)t15)[1]; t17=C_i_cadr(((C_word*)t0)[2]); t18=C_i_check_list_2(t17,lf[10]); t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9641,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9738,a[2]=t15,a[3]=t21,a[4]=t16,tmp=(C_word)a,a+=5,tmp)); t23=((C_word*)t21)[1]; f_9738(t23,t19,t17);} else{ t13=C_eqp(((C_word*)t0)[4],lf[189]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9779,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,tmp); t15=((C_word*)t0)[2]; t16=C_u_i_car(t15); t17=C_i_cadr(((C_word*)t0)[2]); t18=C_i_pairp(t17); t19=(C_truep(t18)?lf[196]:lf[197]); t20=t19; t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9869,a[2]=t14,a[3]=t16,a[4]=((C_word*)t0)[2],a[5]=t20,tmp=(C_word)a,a+=6,tmp); /* core.scm:872: ##sys#current-environment */ t22=*((C_word*)lf[105]+1);{ C_word av2[2]; av2[0]=t22; av2[1]=t21; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ t14=C_eqp(((C_word*)t0)[4],lf[199]); if(C_truep(t14)){ t15=C_i_cadr(((C_word*)t0)[2]); t16=t15; t17=C_i_caddr(((C_word*)t0)[2]); t18=t17; t19=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9891,a[2]=t18,a[3]=t16,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[15],tmp=(C_word)a,a+=12,tmp); /* core.scm:894: lookup */ t20=((C_word*)((C_word*)t0)[14])[1]; f_7669(t20,t19,t16);} else{ t15=C_eqp(((C_word*)t0)[4],lf[203]); if(C_truep(t15)){ t16=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t17=t16; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=((C_word*)t18)[1]; t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9971,a[2]=((C_word*)t0)[14],tmp=(C_word)a,a+=3,tmp); t21=C_i_cadr(((C_word*)t0)[2]); t22=C_i_check_list_2(t21,lf[10]); t23=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10028,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[16],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[3],tmp=(C_word)a,a+=12,tmp); t24=C_SCHEME_UNDEFINED; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10143,a[2]=t18,a[3]=t25,a[4]=t20,a[5]=t19,tmp=(C_word)a,a+=6,tmp)); t27=((C_word*)t25)[1]; f_10143(t27,t23,t21);} else{ t16=C_eqp(((C_word*)t0)[4],lf[207]); if(C_truep(t16)){ t17=*((C_word*)lf[208]+1); t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_SCHEME_FALSE; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10186,a[2]=t20,a[3]=t18,tmp=(C_word)a,a+=4,tmp); t22=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10191,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[16],a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp); t23=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10236,a[2]=t18,a[3]=t20,tmp=(C_word)a,a+=4,tmp); /* core.scm:959: ##sys#dynamic-wind */ t24=*((C_word*)lf[115]+1);{ C_word av2[5]; av2[0]=t24; av2[1]=((C_word*)t0)[3]; av2[2]=t21; av2[3]=t22; av2[4]=t23; ((C_proc)(void*)(*((C_word*)t24+1)))(5,av2);}} else{ t17=C_eqp(((C_word*)t0)[4],lf[211]); if(C_truep(t17)){ t18=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t19=t18; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=((C_word*)t20)[1]; t22=C_i_cadr(((C_word*)t0)[2]); t23=C_i_check_list_2(t22,lf[10]); t24=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10269,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); t25=C_SCHEME_UNDEFINED; t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); t27=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10285,a[2]=t20,a[3]=t26,a[4]=t21,tmp=(C_word)a,a+=5,tmp)); t28=((C_word*)t26)[1]; f_10285(t28,t24,t22);} else{ t18=C_eqp(((C_word*)t0)[4],lf[215]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[15],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[16],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); t20=C_i_cadr(((C_word*)t0)[2]); /* core.scm:982: chicken.syntax#strip-syntax */ t21=*((C_word*)lf[140]+1);{ C_word av2[3]; av2[0]=t21; av2[1]=t19; av2[2]=t20; ((C_proc)(void*)(*((C_word*)t21+1)))(3,av2);}} else{ t19=C_eqp(((C_word*)t0)[4],lf[258]); if(C_truep(t19)){ t20=C_i_cadr(((C_word*)t0)[2]); t21=t20; t22=((C_word*)t0)[2]; t23=C_u_i_cdr(t22); t24=C_u_i_cdr(t23); t25=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t26=t25; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=((C_word*)t27)[1]; t29=C_i_check_list_2(t21,lf[10]); t30=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10903,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[13],a[5]=t21,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[12],a[10]=t24,a[11]=((C_word*)t0)[2],tmp=(C_word)a,a+=12,tmp); t31=C_SCHEME_UNDEFINED; t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp); t33=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10968,a[2]=t27,a[3]=t32,a[4]=t28,tmp=(C_word)a,a+=5,tmp)); t34=((C_word*)t32)[1]; f_10968(t34,t30,t21);} else{ t20=C_eqp(((C_word*)t0)[4],lf[259]); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11009,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[16])){ t22=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t22; av2[1]=lf[260]; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ t22=C_i_cadr(((C_word*)t0)[2]); t23=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11015,a[2]=t21,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:1086: lookup */ t24=((C_word*)((C_word*)t0)[14])[1]; f_7669(t24,t23,t22);}} else{ t21=C_eqp(((C_word*)t0)[4],lf[168]); if(C_truep(t21)){ t22=C_i_cadr(((C_word*)t0)[2]); t23=t22; t24=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11055,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[3],a[7]=t23,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* core.scm:1096: lookup */ t25=((C_word*)((C_word*)t0)[14])[1]; f_7669(t25,t24,t23);} else{ t22=C_eqp(((C_word*)t0)[4],lf[178]); if(C_truep(t22)){ t23=C_i_cadr(((C_word*)t0)[2]); t24=t23; t25=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t26=t25; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=((C_word*)t27)[1]; t29=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11424,a[2]=((C_word*)t0)[17],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[16],tmp=(C_word)a,a+=8,tmp); t30=((C_word*)t0)[2]; t31=C_u_i_cdr(t30); t32=C_u_i_cdr(t31); t33=C_i_check_list_2(t32,lf[10]); t34=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11440,a[2]=((C_word*)t0)[10],a[3]=t24,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t35=C_SCHEME_UNDEFINED; t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp); t37=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11442,a[2]=t27,a[3]=t36,a[4]=t29,a[5]=t28,tmp=(C_word)a,a+=6,tmp)); t38=((C_word*)t36)[1]; f_11442(t38,t34,t32);} else{ t23=C_eqp(((C_word*)t0)[4],lf[286]); if(C_truep(t23)){ t24=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11491,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[18],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); t25=C_i_cadr(((C_word*)t0)[2]); /* core.scm:1161: unquotify */ t26=((C_word*)((C_word*)t0)[17])[1];{ C_word av2[3]; av2[0]=t26; av2[1]=t24; av2[2]=t25; f_7844(3,av2);}} else{ t24=C_eqp(((C_word*)t0)[4],lf[287]); if(C_truep(t24)){ t25=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t26=t25; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=((C_word*)t27)[1]; t29=((C_word*)((C_word*)t0)[17])[1]; t30=((C_word*)t0)[2]; t31=C_i_cadr(t30); t32=C_i_check_list_2(t31,lf[10]); t33=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11529,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[18],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); t34=C_SCHEME_UNDEFINED; t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp); t36=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11539,a[2]=t27,a[3]=t35,a[4]=t29,a[5]=t28,tmp=(C_word)a,a+=6,tmp)); t37=((C_word*)t35)[1]; f_11539(t37,t33,t31);} else{ t25=C_eqp(((C_word*)t0)[4],lf[266]); if(C_truep(t25)){ t26=C_i_cadr(((C_word*)t0)[2]); t27=t26; t28=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11588,a[2]=((C_word*)t0)[3],a[3]=t27,tmp=(C_word)a,a+=4,tmp); t29=C_i_caddr(((C_word*)t0)[2]); /* core.scm:1169: walk */ t30=((C_word*)((C_word*)t0)[5])[1]; f_8152(t30,t28,t29,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);} else{ t26=C_eqp(((C_word*)t0)[4],lf[269]); if(C_truep(t26)){ t27=C_i_cadr(((C_word*)t0)[2]); t28=t27; t29=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11609,a[2]=((C_word*)t0)[3],a[3]=t28,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); t30=C_i_caddr(((C_word*)t0)[2]); /* core.scm:1174: walk */ t31=((C_word*)((C_word*)t0)[5])[1]; f_8152(t31,t29,t30,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);} else{ t27=C_eqp(((C_word*)t0)[4],lf[288]); t28=(C_truep(t27)?t27:C_eqp(((C_word*)t0)[4],lf[289])); if(C_truep(t28)){ t29=C_i_cadr(((C_word*)t0)[2]); t30=t29; t31=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11636,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=t30,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[16],tmp=(C_word)a,a+=10,tmp); /* core.scm:1179: ##sys#eval/meta */ t32=*((C_word*)lf[187]+1);{ C_word av2[3]; av2[0]=t32; av2[1]=t31; av2[2]=t30; ((C_proc)(void*)(*((C_word*)t32+1)))(3,av2);}} else{ t29=C_eqp(((C_word*)t0)[4],lf[290]); t30=(C_truep(t29)?t29:C_eqp(((C_word*)t0)[4],lf[291])); if(C_truep(t30)){ t31=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11651,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t32=C_i_cadr(((C_word*)t0)[2]); /* core.scm:1183: ##sys#eval/meta */ t33=*((C_word*)lf[187]+1);{ C_word av2[3]; av2[0]=t33; av2[1]=t31; av2[2]=t32; ((C_proc)(void*)(*((C_word*)t33+1)))(3,av2);}} else{ t31=C_eqp(((C_word*)t0)[4],lf[180]); if(C_truep(t31)){ t32=((C_word*)t0)[2]; t33=C_u_i_cdr(t32); if(C_truep(C_i_pairp(t33))){ t34=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11674,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t35=((C_word*)t0)[2]; t36=C_u_i_cdr(t35); t37=C_SCHEME_UNDEFINED; t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp); t39=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11678,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[16],a[9]=t38,tmp=(C_word)a,a+=10,tmp)); t40=((C_word*)t38)[1]; f_11678(t40,t34,t36);} else{ t34=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t34; av2[1]=lf[293]; ((C_proc)(void*)(*((C_word*)t34+1)))(2,av2);}}} else{ t32=C_eqp(((C_word*)t0)[4],lf[294]); if(C_truep(t32)){ t33=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11722,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); /* core.scm:1198: expand-foreign-lambda */ f_15718(t33,((C_word*)t0)[2],C_SCHEME_FALSE);} else{ t33=C_eqp(((C_word*)t0)[4],lf[296]); if(C_truep(t33)){ t34=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11735,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); /* core.scm:1201: expand-foreign-lambda */ f_15718(t34,((C_word*)t0)[2],C_SCHEME_TRUE);} else{ t34=C_eqp(((C_word*)t0)[4],lf[297]); if(C_truep(t34)){ t35=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11748,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); /* core.scm:1204: expand-foreign-lambda* */ f_15755(t35,((C_word*)t0)[2],C_SCHEME_FALSE);} else{ t35=C_eqp(((C_word*)t0)[4],lf[299]); if(C_truep(t35)){ t36=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11761,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); /* core.scm:1207: expand-foreign-lambda* */ f_15755(t36,((C_word*)t0)[2],C_SCHEME_TRUE);} else{ t36=C_eqp(((C_word*)t0)[4],lf[300]); if(C_truep(t36)){ t37=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11774,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); t38=t37; t39=((C_word*)t0)[2]; t40=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15872,a[2]=t39,a[3]=t38,tmp=(C_word)a,a+=4,tmp); t41=C_i_cddr(t39); if(C_truep(C_i_pairp(t41))){ t42=C_i_caddr(t39); t43=C_i_stringp(t42); t44=t40; f_15872(t44,C_i_not(t43));} else{ t42=t40; f_15872(t42,C_SCHEME_FALSE);}} else{ t37=C_eqp(((C_word*)t0)[4],lf[305]); if(C_truep(t37)){ t38=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11783,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t39=((C_word*)t0)[2]; t40=C_i_cadr(t39); /* core.scm:1213: chicken.syntax#strip-syntax */ t41=*((C_word*)lf[140]+1);{ C_word av2[3]; av2[0]=t41; av2[1]=t38; av2[2]=t40; ((C_proc)(void*)(*((C_word*)t41+1)))(3,av2);}} else{ t38=C_eqp(((C_word*)t0)[4],lf[307]); if(C_truep(t38)){ t39=((C_word*)t0)[2]; t40=C_i_cadr(t39); t41=t40; t42=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11830,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[16],a[11]=t41,tmp=(C_word)a,a+=12,tmp); t43=((C_word*)t0)[2]; t44=C_i_caddr(t43); /* core.scm:1225: chicken.syntax#strip-syntax */ t45=*((C_word*)lf[140]+1);{ C_word av2[3]; av2[0]=t45; av2[1]=t42; av2[2]=t44; ((C_proc)(void*)(*((C_word*)t45+1)))(3,av2);}} else{ t39=C_eqp(((C_word*)t0)[4],lf[315]); if(C_truep(t39)){ t40=((C_word*)t0)[2]; t41=C_i_cadr(t40); t42=t41; t43=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11952,a[2]=((C_word*)t0)[2],a[3]=t42,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[16],tmp=(C_word)a,a+=6,tmp); /* core.scm:1258: chicken.compiler.support#get-line */ t44=*((C_word*)lf[112]+1);{ C_word av2[3]; av2[0]=t44; av2[1]=t43; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t44+1)))(3,av2);}} else{ t40=C_eqp(((C_word*)t0)[4],lf[324]); if(C_truep(t40)){ t41=((C_word*)t0)[2]; t42=C_i_cadr(t41); t43=t42; t44=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12039,a[2]=t43,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp); t45=((C_word*)t0)[2]; t46=C_i_caddr(t45); /* core.scm:1278: chicken.syntax#strip-syntax */ t47=*((C_word*)lf[140]+1);{ C_word av2[3]; av2[0]=t47; av2[1]=t44; av2[2]=t46; ((C_proc)(void*)(*((C_word*)t47+1)))(3,av2);}} else{ t41=C_eqp(((C_word*)t0)[4],lf[328]); if(C_truep(t41)){ t42=((C_word*)t0)[2]; t43=C_i_cadr(t42); t44=t43; t45=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12234,a[2]=((C_word*)t0)[3],a[3]=t44,a[4]=((C_word*)t0)[16],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* core.scm:1306: scheme#cdaddr */ t46=*((C_word*)lf[333]+1);{ C_word av2[3]; av2[0]=t46; av2[1]=t45; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t46+1)))(3,av2);}} else{ t42=C_eqp(((C_word*)t0)[4],lf[334]); if(C_truep(t42)){ t43=((C_word*)t0)[2]; t44=C_i_cadr(t43); t45=t44; t46=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12246,a[2]=((C_word*)t0)[2],a[3]=t45,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[16],tmp=(C_word)a,a+=9,tmp); /* core.scm:1318: chicken.compiler.support#get-line */ t47=*((C_word*)lf[112]+1);{ C_word av2[3]; av2[0]=t47; av2[1]=t46; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t47+1)))(3,av2);}} else{ t43=C_eqp(((C_word*)t0)[4],lf[349]); if(C_truep(t43)){ t44=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12436,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* core.scm:1354: ##sys#current-environment */ t45=*((C_word*)lf[105]+1);{ C_word av2[2]; av2[0]=t45; av2[1]=t44; ((C_proc)(void*)(*((C_word*)t45+1)))(2,av2);}} else{ t44=C_eqp(((C_word*)t0)[4],lf[351]); if(C_truep(t44)){ t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12549,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t46=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12559,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[19],a[7]=((C_word*)t0)[18],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* core.scm:1367: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t45; av2[3]=t46; C_call_with_values(4,av2);}} else{ t45=C_eqp(((C_word*)t0)[4],lf[376]); if(C_truep(t45)){ t46=C_i_cadr(((C_word*)t0)[2]); t47=t46; if(C_truep(C_i_symbolp(t47))){ t48=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12940,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[3],a[7]=t47,tmp=(C_word)a,a+=8,tmp); /* core.scm:1451: lookup */ t49=((C_word*)((C_word*)t0)[14])[1]; f_7669(t49,t48,t47);} else{ t48=C_a_i_list(&a,2,lf[139],lf[377]); t49=C_a_i_list(&a,5,lf[378],t47,C_fix(0),C_SCHEME_FALSE,t48); /* core.scm:1464: walk */ t50=((C_word*)((C_word*)t0)[5])[1]; f_8152(t50,((C_word*)t0)[3],t49,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);}} else{ t46=C_a_i_cons(&a,2,((C_word*)t0)[20],*((C_word*)lf[379]+1)); t47=t46; t48=(*a=C_VECTOR_TYPE|1,a[1]=t47,tmp=(C_word)a,a+=2,tmp); t49=C_SCHEME_FALSE; t50=(*a=C_VECTOR_TYPE|1,a[1]=t49,tmp=(C_word)a,a+=2,tmp); t51=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12957,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[20],tmp=(C_word)a,a+=5,tmp); t52=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12986,a[2]=t50,a[3]=t48,tmp=(C_word)a,a+=4,tmp); t53=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12991,a[2]=((C_word*)t0)[18],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[16],tmp=(C_word)a,a+=8,tmp); t54=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12997,a[2]=t48,a[3]=t50,tmp=(C_word)a,a+=4,tmp); /* core.scm:1469: ##sys#dynamic-wind */ t55=*((C_word*)lf[115]+1);{ C_word av2[5]; av2[0]=t55; av2[1]=t51; av2[2]=t52; av2[3]=t53; av2[4]=t54; ((C_proc)(void*)(*((C_word*)t55+1)))(5,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k8507 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8509,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[79]+1 /* (set! chicken.compiler.core#provided ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[153],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8527 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_8529,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8533,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8537,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* core.scm:704: scheme#cadadr */ t5=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8531 in k8527 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_8533,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[118],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8535 in k8527 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8537,2,av);} /* core.scm:704: chicken.syntax#strip-syntax */ t2=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8548 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){ C_save_and_reclaim((void *)f_8550,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8554,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_caddr(((C_word*)t0)[3]); /* core.scm:709: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_8152(t5,t3,t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);} /* k8552 in k8548 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_8554,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[122],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8569 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8571,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[156]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a8590 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_8591,2,av);} /* core.scm:719: ##sys#process-require */ t2=*((C_word*)lf[160]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; av2[5]=*((C_word*)lf[79]+1); av2[6]=*((C_word*)lf[55]+1); av2[7]=lf[161]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* a8596 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,8)))){ C_save_and_reclaim((void *)f_8597,4,av);} a=C_alloc(16); t4=t2; t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8601,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_not(t3))){ /* core.scm:729: walk */ t6=((C_word*)((C_word*)t0)[2])[1]; f_8152(t6,t1,t4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8612,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8618,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp); /* core.scm:725: chicken.internal#hash-table-update! */ t8=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t5; av2[2]=*((C_word*)lf[78]+1); av2[3]=t3; av2[4]=t6; av2[5]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}} /* k8599 in a8596 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_8601,2,av);} /* core.scm:729: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);} /* a8611 in a8596 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8612,3,av);} t3=lf[11]; /* core.scm:727: g1113 */ t4=lf[11];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; f_6950(4,av2);}} /* a8617 in a8596 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8618,2,av);} a=C_alloc(3); t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_8634,2,av);} a=C_alloc(26); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(t2,lf[10]); t8=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8643,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t2,tmp=(C_word)a,a+=14,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8789,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_8789(t12,t8,t2);} /* k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_8643,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8646,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8787,a[2]=t3,a[3]=((C_word*)t0)[13],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:735: ##sys#current-environment */ t5=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_8646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_8646,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8649,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* core.scm:736: chicken.compiler.support#get-line */ t4=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_8649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_8649,2,av);} a=C_alloc(14); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8655,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); /* core.scm:737: set-real-names! */ f_7778(t4,((C_word*)t0)[6],((C_word*)t0)[15]);} /* k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_8655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_8655,2,av);} a=C_alloc(32); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8663,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t7=C_i_check_list_2(((C_word*)t0)[6],lf[10]); t8=C_i_check_list_2(((C_word*)t0)[7],lf[10]); t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8686,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8737,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_8737(t13,t9,((C_word*)t0)[6],((C_word*)t0)[7]);} /* g1166 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_fcall f_8663(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,8)))){ C_save_and_reclaim_args((void *)trf_8663,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8671,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_cadr(t3); t6=t3; t7=C_u_i_car(t6); /* core.scm:740: walk */ t8=((C_word*)((C_word*)t0)[2])[1]; f_8152(t8,t4,t5,((C_word*)t0)[3],t7,C_SCHEME_TRUE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k8669 in g1166 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_8671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8671,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_8686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){ C_save_and_reclaim((void *)f_8686,2,av);} a=C_alloc(28); t2=t1; t3=*((C_word*)lf[105]+1); t4=((C_word*)t0)[2]; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_TRUE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8690,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8692,a[2]=t5,a[3]=t7,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8709,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8727,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* core.scm:742: ##sys#dynamic-wind */ t12=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t8; av2[2]=t9; av2[3]=t10; av2[4]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} /* k8688 in k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_8690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_8690,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[164],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a8691 in k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_8692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8692,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* core.scm:742: ##sys#current-environment1192 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_8696(2,av2);}}} /* k8694 in a8691 in k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_8696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_8696,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8700,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* core.scm:742: ##sys#current-environment1192 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8698 in k8694 in a8691 in k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_8700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_8700,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8703,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:742: ##sys#current-environment1192 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k8701 in k8698 in k8694 in a8691 in k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_8703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8703,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a8708 in k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_8709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_8709,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8717,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t3=C_i_cddr(((C_word*)t0)[9]); /* core.scm:743: canonicalize-body/ln */ t4=((C_word*)((C_word*)t0)[10])[1]; f_7749(t4,t2,((C_word*)t0)[6],t3,*((C_word*)lf[51]+1));} /* k8715 in a8708 in k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_8717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_8717,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8721,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* core.scm:745: scheme#append */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8719 in k8715 in a8708 in k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_8721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_8721,2,av);} /* core.scm:743: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* a8726 in k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_8727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8727,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8731,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:742: ##sys#current-environment1192 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8729 in a8726 in k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_8731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_8731,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8734,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:742: ##sys#current-environment1192 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k8732 in k8729 in a8726 in k8684 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_8734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8734,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1160 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_fcall f_8737(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_8737,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8766,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* core.scm:739: g1166 */ t9=((C_word*)t0)[4]; f_8663(t9,t6,t7,t8);} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k8764 in map-loop1160 in k8653 in k8647 in k8644 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_8766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8766,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=C_slot(((C_word*)t0)[4],C_fix(1)); t7=((C_word*)((C_word*)t0)[5])[1]; f_8737(t7,((C_word*)t0)[6],t5,t6);} /* k8785 in k8641 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_8787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8787,2,av);} /* core.scm:735: ##sys#extend-se */ t2=*((C_word*)lf[165]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1126 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_fcall f_8789(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8789,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8814,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:734: g1132 */ t5=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8812 in map-loop1126 in k8632 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_8814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8814,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8789(t6,((C_word*)t0)[5],t5);} /* k8860 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_8862,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8866,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8886,a[2]=((C_word*)t0)[9],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8900,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_8900(t12,t8,((C_word*)t0)[10]);} /* k8864 in k8860 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,8)))){ C_save_and_reclaim((void *)f_8866,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[163],t2); /* core.scm:751: walk */ t4=((C_word*)((C_word*)t0)[3])[1]; f_8152(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);} /* k8884 in k8860 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_8886,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[163],t2); t4=C_a_i_list(&a,1,t3); /* core.scm:752: ##sys#append */ t5=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop1241 in k8860 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_fcall f_8900(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_8900,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_i_cadr(t3); t6=C_a_i_list(&a,3,lf[168],t4,t5); t7=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST); t8=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t7); t9=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7); t10=C_slot(t2,C_fix(1)); t12=t1; t13=t10; t1=t12; t2=t13; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop1214 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_8934(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_8934,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_list2(&a,2,t4,lf[169]); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); t9=C_slot(t2,C_fix(1)); t11=t1; t12=t9; t1=t11; t2=t12; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8976 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_8978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_8978,2,av);} a=C_alloc(24); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(t2,lf[10]); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8987,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,tmp=(C_word)a,a+=12,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9203,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_9203(t12,t8,t2);} /* k8985 in k8976 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_8987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_8987,2,av);} a=C_alloc(25); t2=t1; t3=C_i_cddr(((C_word*)t0)[2]); t4=t3; t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=C_i_check_list_2(((C_word*)t0)[3],lf[10]); t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9016,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=t4,a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[3],tmp=(C_word)a,a+=13,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9169,a[2]=t7,a[3]=t12,a[4]=t8,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_9169(t14,t10,((C_word*)t0)[3]);} /* k9014 in k8985 in k8976 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){ C_save_and_reclaim((void *)f_9016,2,av);} a=C_alloc(25); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[10]); t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9043,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[2],tmp=(C_word)a,a+=13,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9121,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_9121(t12,t8,((C_word*)t0)[2],((C_word*)t0)[12]);} /* k9041 in k9014 in k8985 in k8976 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_9043,2,av);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9047,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9059,a[2]=((C_word*)t0)[10],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9073,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_9073(t12,t8,((C_word*)t0)[11],((C_word*)t0)[12]);} /* k9045 in k9041 in k9014 in k8985 in k8976 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_9047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,8)))){ C_save_and_reclaim((void *)f_9047,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[163],t2); t4=C_a_i_list(&a,3,lf[163],((C_word*)t0)[3],t3); /* core.scm:767: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_8152(t5,((C_word*)t0)[5],t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);} /* k9057 in k9041 in k9014 in k8985 in k8976 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_9059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_9059,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[163],t2); t4=C_a_i_list(&a,1,t3); /* core.scm:768: ##sys#append */ t5=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop1364 in k9041 in k9014 in k8985 in k8976 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_fcall f_9073(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_9073,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,3,lf[168],t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1331 in k9014 in k8985 in k8976 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_9121(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_9121,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_i_cadr(t7); t9=C_a_i_list2(&a,2,t6,t8); t10=C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST); t11=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t10); t12=C_mutate(((C_word *)((C_word*)t0)[2])+1,t10); t13=C_slot(t2,C_fix(1)); t14=C_slot(t3,C_fix(1)); t16=t1; t17=t13; t18=t14; t1=t16; t2=t17; t3=t18; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1304 in k8985 in k8976 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_fcall f_9169(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_9169,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_list2(&a,2,t4,lf[171]); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); t9=C_slot(t2,C_fix(1)); t11=t1; t12=t9; t1=t11; t2=t12; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop1274 in k8976 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_fcall f_9203(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9203,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9228,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:765: g1280 */ t5=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9226 in map-loop1274 in k8976 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9228,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9203(t6,((C_word*)t0)[5],t5);} /* k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_9249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_9249,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9254,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* core.scm:788: ##sys#decompose-lambda-list */ t3=*((C_word*)lf[181]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[11]; av2[2]=((C_word*)((C_word*)t0)[12])[1]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_9254,5,av);} a=C_alloc(27); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=t2; t10=C_i_check_list_2(t9,lf[10]); t11=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9264,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t2,a[9]=t4,a[10]=t3,a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],tmp=(C_word)a,a+=15,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9410,a[2]=t7,a[3]=t13,a[4]=t8,tmp=(C_word)a,a+=5,tmp)); t15=((C_word*)t13)[1]; f_9410(t15,t11,t9);} /* k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_9264,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9267,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* core.scm:792: chicken.compiler.support#get-line */ t4=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[14]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_9267,2,av);} a=C_alloc(20); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9273,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=t3,a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9408,a[2]=t4,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); /* core.scm:793: ##sys#current-environment */ t6=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_9273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,4)))){ C_save_and_reclaim((void *)f_9273,2,av);} a=C_alloc(33); t2=*((C_word*)lf[105]+1); t3=t1; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_TRUE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9351,a[2]=t4,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9368,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[13],a[8]=((C_word*)t0)[14],tmp=(C_word)a,a+=9,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9396,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:794: ##sys#dynamic-wind */ t11=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t7; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* k9274 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_9276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_9276,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9279,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[9])){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9349,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); /* core.scm:807: posq */ f_7334(t4,((C_word*)t0)[9],((C_word*)t0)[8]);} else{ /* core.scm:805: chicken.compiler.support#build-lambda-list */ t4=*((C_word*)lf[177]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[10]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k9277 in k9274 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_9279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_9279,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_list(&a,3,lf[95],t2,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9285,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); /* core.scm:809: set-real-names! */ f_7778(t5,((C_word*)t0)[8],((C_word*)t0)[9]);} /* k9283 in k9277 in k9274 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_9285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_9285,2,av);} a=C_alloc(12); t2=C_i_not(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9294,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_9294(t4,t2);} else{ t4=((C_word*)t0)[8]; if(C_truep(t4)){ t5=t3; f_9294(t5,t4);} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9338,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:812: ##sys#current-environment */ t6=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* k9292 in k9283 in k9277 in k9274 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_fcall f_9294(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_9294,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9300,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); if(C_truep(*((C_word*)lf[30]+1))){ t3=C_eqp(*((C_word*)lf[42]+1),lf[173]); if(C_truep(t3)){ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; f_9300(2,av2);}} else{ t4=C_eqp(*((C_word*)lf[42]+1),lf[174]); if(C_truep(t4)){ /* core.scm:818: chicken.compiler.support#variable-mark */ t5=*((C_word*)lf[175]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[176]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t2;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_9300(2,av2);}}}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_9300(2,av2);}}}} /* k9298 in k9292 in k9283 in k9277 in k9274 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in ... */ static void C_ccall f_9300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9300,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9307,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_memq(((C_word*)t0)[5],((C_word*)t0)[6]))){ t3=((C_word*)t0)[6]; /* core.scm:819: chicken.compiler.support#expand-profile-lambda */ t4=*((C_word*)lf[172]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* core.scm:822: ##sys#alias-global-hook */ t3=*((C_word*)lf[123]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9305 in k9298 in k9292 in k9283 in k9277 in k9274 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in ... */ static void C_ccall f_9307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9307,2,av);} /* core.scm:819: chicken.compiler.support#expand-profile-lambda */ t2=*((C_word*)lf[172]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9336 in k9283 in k9277 in k9274 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_9338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9338,2,av);} t2=((C_word*)t0)[2]; f_9294(t2,C_i_assq(((C_word*)t0)[3],t1));} /* k9347 in k9274 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_9349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9349,2,av);} t2=C_i_list_ref(((C_word*)t0)[2],t1); /* core.scm:805: chicken.compiler.support#build-lambda-list */ t3=*((C_word*)lf[177]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a9350 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_9351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9351,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* core.scm:794: ##sys#current-environment1442 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_9355(2,av2);}}} /* k9353 in a9350 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_9355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_9355,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9359,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* core.scm:794: ##sys#current-environment1442 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9357 in k9353 in a9350 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_9359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9359,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9362,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:794: ##sys#current-environment1442 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k9360 in k9357 in k9353 in a9350 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_9362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9362,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a9367 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_9368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_9368,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9372,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* core.scm:795: canonicalize-body/ln */ t3=((C_word*)((C_word*)t0)[7])[1]; f_7749(t3,t2,((C_word*)t0)[4],((C_word*)((C_word*)t0)[8])[1],*((C_word*)lf[51]+1));} /* k9370 in a9367 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_9372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){ C_save_and_reclaim((void *)f_9372,2,av);} a=C_alloc(32); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9379,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(*((C_word*)lf[24]+1))){ t3=C_a_i_list(&a,2,lf[139],((C_word*)t0)[4]); t4=C_a_i_list(&a,3,lf[178],lf[179],t3); t5=t2; f_9379(t5,C_a_i_list(&a,3,lf[180],t4,t1));} else{ t3=t2; f_9379(t3,t1);}} /* k9377 in k9370 in a9367 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_fcall f_9379(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_9379,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9383,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* core.scm:803: scheme#append */ t4=*((C_word*)lf[5]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k9381 in k9377 in k9370 in a9367 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in ... */ static void C_ccall f_9383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_9383,2,av);} /* core.scm:797: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} /* a9395 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_9396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9396,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9400,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:794: ##sys#current-environment1442 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9398 in a9395 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_9400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9400,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9403,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:794: ##sys#current-environment1442 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k9401 in k9398 in a9395 in k9271 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in ... */ static void C_ccall f_9403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9403,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9406 in k9265 in k9262 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_9408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9408,2,av);} /* core.scm:793: ##sys#extend-se */ t2=*((C_word*)lf[165]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1411 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_fcall f_9410(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9410,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9435,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* core.scm:791: g1417 */ t5=*((C_word*)lf[108]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9433 in map-loop1411 in a9253 in k9247 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9435,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9410(t6,((C_word*)t0)[5],t5);} /* k9443 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_9445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_9445,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9450,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9460,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* core.scm:784: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_9249(2,av2);}}} /* a9449 in k9443 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9450,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9458,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:787: ##sys#current-environment */ t3=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9456 in a9449 in k9443 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9458,2,av);} /* core.scm:786: ##sys#expand-extended-lambda-list */ t2=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=*((C_word*)lf[183]+1); av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* a9459 in k9443 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9460,4,av);} t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k9470 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_9472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_9472,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_TRUE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9477,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9494,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9514,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* core.scm:827: ##sys#dynamic-wind */ t9=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[11]; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a9476 in k9470 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9477,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9481,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* core.scm:827: ##sys#current-environment1484 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_9481(2,av2);}}} /* k9479 in a9476 in k9470 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_9481,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9485,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* core.scm:827: ##sys#current-environment1484 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9483 in k9479 in a9476 in k9470 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9485,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9488,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:827: ##sys#current-environment1484 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k9486 in k9483 in k9479 in a9476 in k9470 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_9488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9488,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a9493 in k9470 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_9494,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* core.scm:839: chicken.compiler.support#get-line */ t3=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9496 in a9493 in k9470 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_9498,2,av);} a=C_alloc(9); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9508,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t3,tmp=(C_word)a,a+=9,tmp); t5=C_i_cddr(((C_word*)t0)[9]); /* core.scm:841: canonicalize-body/ln */ t6=((C_word*)((C_word*)t0)[10])[1]; f_7749(t6,t4,t3,t5,*((C_word*)lf[51]+1));} /* k9506 in k9496 in a9493 in k9470 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_9508,2,av);} /* core.scm:840: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* a9513 in k9470 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9514,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9518,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:827: ##sys#current-environment1484 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9516 in a9513 in k9470 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9518,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9521,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:827: ##sys#current-environment1484 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k9519 in k9516 in a9513 in k9470 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9521,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9537 in map-loop1493 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_9539,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9547,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_cadr(((C_word*)t0)[4]); /* core.scm:835: ##sys#eval/meta */ t6=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k9541 in k9537 in map-loop1493 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9543,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9545 in k9537 in map-loop1493 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9547,2,av);} t2=C_u_i_car(((C_word*)t0)[2]); /* core.scm:834: ##sys#ensure-transformer */ t3=*((C_word*)lf[186]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k9560 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_9562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9562,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9566,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:838: ##sys#current-environment */ t4=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9564 in k9560 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9566,2,av);} /* core.scm:829: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1493 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_9568(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_9568,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9593,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_car(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9539,a[2]=t5,a[3]=t8,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* core.scm:833: ##sys#current-environment */ t10=*((C_word*)lf[105]+1);{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9591 in map-loop1493 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9593,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9568(t6,((C_word*)t0)[5],t5);} /* k9620 in map-loop1532 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9622,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],C_SCHEME_FALSE,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9624 in map-loop1532 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9626,2,av);} t2=C_u_i_car(((C_word*)t0)[2]); /* core.scm:850: ##sys#ensure-transformer */ t3=*((C_word*)lf[186]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_9641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_9641,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9644,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9736,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:854: ##sys#current-environment */ t5=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_9644,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9647,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* core.scm:855: chicken.compiler.support#get-line */ t4=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_9647,2,av);} a=C_alloc(29); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9651,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t5=C_i_check_list_2(((C_word*)t0)[4],lf[98]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9711,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t7=( f_9711(t6,((C_word*)t0)[4]) ); t8=*((C_word*)lf[105]+1); t9=((C_word*)t0)[3]; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_TRUE; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9670,a[2]=t10,a[3]=t12,a[4]=t8,tmp=(C_word)a,a+=5,tmp); t14=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9687,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=t3,a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9701,a[2]=t10,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* core.scm:860: ##sys#dynamic-wind */ t16=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t16; av2[1]=((C_word*)t0)[12]; av2[2]=t13; av2[3]=t14; av2[4]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} /* g1565 in k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static C_word C_fcall f_9651(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_i_cdr(t1); return(C_i_set_car(t2,((C_word*)t0)[2]));} /* a9669 in k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9670,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9674,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* core.scm:860: ##sys#current-environment1573 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_9674(2,av2);}}} /* k9672 in a9669 in k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_9674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_9674,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9678,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* core.scm:860: ##sys#current-environment1573 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9676 in k9672 in a9669 in k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_9678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9678,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9681,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:860: ##sys#current-environment1573 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k9679 in k9676 in k9672 in a9669 in k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_9681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9681,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a9686 in k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_9687,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9695,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t3=C_i_cddr(((C_word*)t0)[8]); /* core.scm:862: canonicalize-body/ln */ t4=((C_word*)((C_word*)t0)[9])[1]; f_7749(t4,t2,((C_word*)t0)[7],t3,*((C_word*)lf[51]+1));} /* k9693 in a9686 in k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_9695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_9695,2,av);} /* core.scm:861: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8152(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* a9700 in k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9701,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9705,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:860: ##sys#current-environment1573 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9703 in a9700 in k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_9705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9705,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9708,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:860: ##sys#current-environment1573 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k9706 in k9703 in a9700 in k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_9708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9708,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* for-each-loop1564 in k9645 in k9642 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static C_word C_fcall f_9711(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=( /* core.scm:856: g1565 */ f_9651(((C_word*)t0)[2],t2) ); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k9734 in k9639 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9736,2,av);} /* core.scm:854: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1532 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_9738(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_9738,3,t0,t1,t2);} a=C_alloc(14); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9763,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_car(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9622,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9626,a[2]=t6,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=C_i_cadr(t6); /* core.scm:851: ##sys#eval/meta */ t12=*((C_word*)lf[187]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=t10; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9761 in map-loop1532 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9763,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9738(t6,((C_word*)t0)[5],t5);} /* k9777 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_9779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_9779,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9782,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=C_i_cadr(((C_word*)t0)[10]); if(C_truep(C_i_pairp(t3))){ /* core.scm:873: scheme#caadr */ t4=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=((C_word*)t0)[10]; t5=C_u_i_cdr(t4); t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=C_u_i_car(t5); f_9782(2,av2);}}} /* k9780 in k9777 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_9782,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9785,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=((C_word*)t0)[10]; t5=C_u_i_cdr(t4); t6=C_u_i_car(t5); if(C_truep(C_i_pairp(t6))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9838,a[2]=((C_word*)t0)[10],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* core.scm:875: scheme#cdadr */ t8=*((C_word*)lf[195]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=t3; f_9785(t7,C_i_caddr(((C_word*)t0)[10]));}} /* k9783 in k9780 in k9777 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_fcall f_9785(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_9785,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9788,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* core.scm:877: lookup */ t4=((C_word*)((C_word*)t0)[10])[1]; f_7669(t4,t3,((C_word*)t0)[2]);} /* k9786 in k9783 in k9780 in k9777 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_9788,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9791,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,tmp=(C_word)a,a+=12,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9824,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:878: ##sys#current-module */ t5=*((C_word*)lf[194]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9789 in k9786 in k9783 in k9780 in k9777 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_9791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_9791,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9794,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9816,a[2]=t2,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:881: ##sys#current-environment */ t4=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9792 in k9789 in k9786 in k9783 in k9780 in k9777 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_9794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){ C_save_and_reclaim((void *)f_9794,2,av);} a=C_alloc(21); if(C_truep(*((C_word*)lf[190]+1))){ t2=C_a_i_list(&a,2,lf[139],((C_word*)t0)[2]); t3=C_a_i_list(&a,1,lf[105]); t4=C_a_i_list(&a,4,lf[191],t2,t3,((C_word*)t0)[3]); /* core.scm:883: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_8152(t5,((C_word*)t0)[5],t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);} else{ /* core.scm:883: walk */ t2=((C_word*)((C_word*)t0)[4])[1]; f_8152(t2,((C_word*)t0)[5],lf[192],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);}} /* k9814 in k9789 in k9786 in k9783 in k9780 in k9777 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in ... */ static void C_ccall f_9816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9816,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9820,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:882: ##sys#eval/meta */ t4=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9818 in k9814 in k9789 in k9786 in k9783 in k9780 in k9777 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in ... */ static void C_ccall f_9820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9820,2,av);} /* core.scm:879: ##sys#extend-macro-environment */ t2=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9822 in k9786 in k9783 in k9780 in k9777 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_9824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9824,2,av);} /* core.scm:878: ##sys#register-syntax-export */ t2=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9836 in k9780 in k9777 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_9838,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,t1,t4); t6=((C_word*)t0)[3]; f_9785(t6,C_a_i_cons(&a,2,lf[95],t5));} /* k9867 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_9869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_9869,2,av);} /* core.scm:867: ##sys#check-syntax */ t2=*((C_word*)lf[198]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=C_SCHEME_FALSE; av2[6]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k9889 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_ccall f_9891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_9891,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9894,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[2])){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9961,a[2]=((C_word*)t0)[11],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* core.scm:899: ##sys#get */ t5=*((C_word*)lf[101]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[200]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t3; f_9894(t4,C_SCHEME_UNDEFINED);}} /* k9892 in k9889 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_fcall f_9894(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ C_save_and_reclaim_args((void *)trf_9894,2,t0,t1);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9897,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[3])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9945,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9953,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:906: ##sys#eval/meta */ t5=*((C_word*)lf[187]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* core.scm:901: ##sys#put! */ t3=*((C_word*)lf[107]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=lf[200]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k9895 in k9892 in k9889 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(51,c,8)))){ C_save_and_reclaim((void *)f_9897,2,av);} a=C_alloc(51); if(C_truep(*((C_word*)lf[190]+1))){ t2=C_a_i_list(&a,2,lf[138],((C_word*)t0)[2]); t3=C_a_i_list(&a,2,lf[117],lf[200]); if(C_truep(((C_word*)t0)[3])){ t4=C_a_i_list(&a,2,lf[139],((C_word*)t0)[4]); t5=C_a_i_list(&a,3,lf[186],((C_word*)t0)[3],t4); t6=C_a_i_list(&a,1,lf[105]); t7=C_a_i_list(&a,3,lf[201],t5,t6); t8=C_a_i_list(&a,4,lf[107],t2,t3,t7); /* core.scm:909: walk */ t9=((C_word*)((C_word*)t0)[5])[1]; f_8152(t9,((C_word*)t0)[6],t8,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],C_SCHEME_FALSE);} else{ t4=C_a_i_list(&a,4,lf[107],t2,t3,C_SCHEME_FALSE); /* core.scm:909: walk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_8152(t5,((C_word*)t0)[6],t4,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],C_SCHEME_FALSE);}} else{ /* core.scm:909: walk */ t2=((C_word*)((C_word*)t0)[5])[1]; f_8152(t2,((C_word*)t0)[6],lf[202],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],C_SCHEME_FALSE);}} /* k9943 in k9892 in k9889 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9945,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9949,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* core.scm:908: ##sys#current-environment */ t4=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9947 in k9943 in k9892 in k9889 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_9949,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* core.scm:901: ##sys#put! */ t3=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9951 in k9892 in k9889 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9953,2,av);} /* core.scm:905: ##sys#ensure-transformer */ t2=*((C_word*)lf[186]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k9959 in k9889 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_9961,2,av);} a=C_alloc(6); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); t4=C_a_i_cons(&a,2,t3,t2); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t6=((C_word*)t0)[4]; f_9894(t6,t5);} /* g1631 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in ... */ static void C_fcall f_9971(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_9971,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9975,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* core.scm:926: ##sys#check-syntax */ t4=*((C_word*)lf[198]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[204]; av2[3]=t2; av2[4]=lf[205]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k9973 in g1631 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in ... */ static void C_ccall f_9975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9975,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9978,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_car(((C_word*)t0)[3]); /* core.scm:928: lookup */ t4=((C_word*)((C_word*)t0)[4])[1]; f_7669(t4,t2,t3);} /* k9976 in k9973 in g1631 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in ... */ static void C_ccall f_9978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_9978,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9985,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); if(C_truep(C_i_pairp(t5))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9999,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10007,a[2]=((C_word*)t0)[3],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_i_cadr(((C_word*)t0)[3]); /* core.scm:933: ##sys#eval/meta */ t9=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t6=t3; f_9985(t6,C_SCHEME_FALSE);}} /* k9983 in k9976 in k9973 in g1631 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_fcall f_9985(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_9985,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9989,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* core.scm:936: ##sys#get */ t4=*((C_word*)lf[101]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[200]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k9987 in k9983 in k9976 in k9973 in g1631 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in ... */ static void C_ccall f_9989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9989,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9997 in k9976 in k9973 in g1631 in k8494 in k8227 in k8215 in k8212 in k8209 in k8205 in k8202 in k8196 in k8157 in walk in k7630 in chicken.compiler.core#canonicalize-expression in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in ... */ static void C_ccall f_9999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9999,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10003,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* core.scm:935: ##sys#current-environment */ t4=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_compiler_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("compiler")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_compiler_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(4105))){ C_save(t1); C_rereclaim2(4105*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,681); lf[0]=C_h_intern(&lf[0],8, C_text("compiler")); lf[1]=C_h_intern(&lf[1],22, C_text("chicken.compiler.core#")); lf[5]=C_h_intern(&lf[5],13, C_text("scheme#append")); lf[8]=C_h_intern(&lf[8],5, C_text("foldr")); lf[10]=C_h_intern(&lf[10],3, C_text("map")); lf[14]=C_h_intern(&lf[14],5, C_text("foldl")); lf[17]=C_h_intern(&lf[17],31, C_text("chicken.compiler.core#unit-name")); lf[18]=C_h_intern(&lf[18],39, C_text("chicken.compiler.core#standard-bindings")); lf[19]=C_h_intern(&lf[19],39, C_text("chicken.compiler.core#extended-bindings")); lf[20]=C_h_intern(&lf[20],41, C_text("chicken.compiler.core#insert-timer-checks")); lf[21]=C_h_intern(&lf[21],32, C_text("chicken.compiler.core#used-units")); lf[22]=C_h_intern(&lf[22],42, C_text("chicken.compiler.core#foreign-declarations")); lf[23]=C_h_intern(&lf[23],37, C_text("chicken.compiler.core#emit-trace-info")); lf[24]=C_h_intern(&lf[24],37, C_text("chicken.compiler.core#emit-debug-info")); lf[25]=C_h_intern(&lf[25],39, C_text("chicken.compiler.core#block-compilation")); lf[26]=C_h_intern(&lf[26],47, C_text("chicken.compiler.core#line-number-database-size")); lf[27]=C_h_intern(&lf[27],38, C_text("chicken.compiler.core#target-heap-size")); lf[28]=C_h_intern(&lf[28],39, C_text("chicken.compiler.core#target-stack-size")); lf[29]=C_h_intern(&lf[29],44, C_text("chicken.compiler.core#optimize-leaf-routines")); lf[30]=C_h_intern(&lf[30],34, C_text("chicken.compiler.core#emit-profile")); lf[31]=C_h_intern(&lf[31],37, C_text("chicken.compiler.core#no-bound-checks")); lf[32]=C_h_intern(&lf[32],36, C_text("chicken.compiler.core#no-argc-checks")); lf[33]=C_h_intern(&lf[33],41, C_text("chicken.compiler.core#no-procedure-checks")); lf[34]=C_h_intern(&lf[34],48, C_text("chicken.compiler.core#no-global-procedure-checks")); lf[36]=C_h_intern(&lf[36],39, C_text("chicken.compiler.core#explicit-use-flag")); lf[37]=C_h_intern(&lf[37],53, C_text("chicken.compiler.core#disable-stack-overflow-checking")); lf[38]=C_h_intern(&lf[38],43, C_text("chicken.compiler.core#external-protos-first")); lf[39]=C_h_intern(&lf[39],37, C_text("chicken.compiler.core#inline-max-size")); lf[40]=C_h_intern(&lf[40],39, C_text("chicken.compiler.core#emit-closure-info")); lf[41]=C_h_intern(&lf[41],46, C_text("chicken.compiler.core#undefine-shadowed-macros")); lf[42]=C_h_intern(&lf[42],41, C_text("chicken.compiler.core#profiled-procedures")); lf[43]=C_h_intern(&lf[43],38, C_text("chicken.compiler.core#import-libraries")); lf[44]=C_h_intern(&lf[44],42, C_text("chicken.compiler.core#all-import-libraries")); lf[45]=C_h_intern(&lf[45],57, C_text("chicken.compiler.core#preserve-unchanged-import-libraries")); lf[46]=C_h_intern(&lf[46],48, C_text("chicken.compiler.core#enable-module-registration")); lf[47]=C_h_intern(&lf[47],43, C_text("chicken.compiler.core#standalone-executable")); lf[48]=C_h_intern(&lf[48],39, C_text("chicken.compiler.core#local-definitions")); lf[49]=C_h_intern(&lf[49],36, C_text("chicken.compiler.core#inline-locally")); lf[50]=C_h_intern(&lf[50],41, C_text("chicken.compiler.core#enable-inline-files")); lf[51]=C_h_intern(&lf[51],45, C_text("chicken.compiler.core#compiler-syntax-enabled")); lf[52]=C_h_intern(&lf[52],36, C_text("chicken.compiler.core#bootstrap-mode")); lf[53]=C_h_intern(&lf[53],43, C_text("chicken.compiler.core#strict-variable-types")); lf[54]=C_h_intern(&lf[54],43, C_text("chicken.compiler.core#enable-specialization")); lf[55]=C_h_intern(&lf[55],39, C_text("chicken.compiler.core#static-extensions")); lf[56]=C_h_intern(&lf[56],36, C_text("chicken.compiler.core#emit-link-file")); lf[57]=C_h_intern(&lf[57],34, C_text("chicken.compiler.core#verbose-mode")); lf[61]=C_h_intern(&lf[61],44, C_text("chicken.compiler.core#line-number-database-2")); lf[62]=C_h_intern(&lf[62],41, C_text("chicken.compiler.core#immutable-constants")); lf[63]=C_h_intern(&lf[63],34, C_text("chicken.compiler.core#inline-table")); lf[64]=C_h_intern(&lf[64],36, C_text("chicken.compiler.core#constant-table")); lf[65]=C_h_intern(&lf[65],50, C_text("chicken.compiler.core#inline-substitutions-enabled")); lf[67]=C_h_intern(&lf[67],36, C_text("chicken.compiler.core#first-analysis")); lf[69]=C_h_intern(&lf[69],42, C_text("chicken.compiler.core#foreign-lambda-stubs")); lf[70]=C_h_intern(&lf[70],40, C_text("chicken.compiler.core#external-variables")); lf[78]=C_h_intern(&lf[78],39, C_text("chicken.compiler.core#file-requirements")); lf[79]=C_h_intern(&lf[79],30, C_text("chicken.compiler.core#provided")); lf[80]=C_h_intern(&lf[80],46, C_text("chicken.compiler.core#linked-static-extensions")); lf[82]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001unquote\376\003\000\000\002\376\001\000\000\020\001unquote-splicing\376\377\016")); lf[83]=C_h_intern(&lf[83],47, C_text("chicken.compiler.core#default-extended-bindings")); lf[84]=C_h_intern(&lf[84],47, C_text("chicken.compiler.core#default-standard-bindings")); lf[85]=C_h_intern(&lf[85],39, C_text("chicken.compiler.core#internal-bindings")); lf[86]=C_h_intern(&lf[86],41, C_text("chicken.compiler.core#initialize-compiler")); lf[87]=C_h_intern(&lf[87],50, C_text("chicken.compiler.support#clear-foreign-type-table!")); lf[88]=C_h_intern(&lf[88],19, C_text("scheme#vector-fill!")); lf[89]=C_h_intern(&lf[89],18, C_text("scheme#make-vector")); lf[90]=C_h_intern(&lf[90],47, C_text("chicken.compiler.support#clear-real-name-table!")); lf[91]=C_h_intern(&lf[91],56, C_text("chicken.compiler.support#reset-profile-info-vector-name!")); lf[92]=C_h_intern(&lf[92],49, C_text("chicken.compiler.core#compute-database-statistics")); lf[93]=C_h_intern(&lf[93],6, C_text("global")); lf[94]=C_h_intern(&lf[94],5, C_text("value")); lf[95]=C_h_intern(&lf[95],13, C_text("##core#lambda")); lf[96]=C_h_intern(&lf[96],35, C_text("chicken.compiler.support#node-class")); lf[97]=C_h_intern(&lf[97],10, C_text("call-sites")); lf[98]=C_h_intern(&lf[98],8, C_text("for-each")); lf[99]=C_h_intern(&lf[99],36, C_text("chicken.internal#hash-table-for-each")); lf[100]=C_h_intern(&lf[100],45, C_text("chicken.compiler.core#canonicalize-expression")); lf[101]=C_h_intern(&lf[101],9, C_text("##sys#get")); lf[102]=C_h_intern(&lf[102],18, C_text("##core#macro-alias")); lf[103]=C_h_intern(&lf[103],13, C_text("scheme#values")); lf[104]=C_h_intern(&lf[104],14, C_text("scheme#symbol\077")); lf[105]=C_h_intern(&lf[105],25, C_text("##sys#current-environment")); lf[106]=C_h_intern(&lf[106],24, C_text("chicken.keyword#keyword\077")); lf[107]=C_h_intern(&lf[107],10, C_text("##sys#put!")); lf[108]=C_h_intern(&lf[108],19, C_text("chicken.base#gensym")); lf[109]=C_h_intern(&lf[109],32, C_text("chicken.internal#hash-table-set!")); lf[110]=C_h_intern(&lf[110],26, C_text("##sys#line-number-database")); lf[111]=C_h_intern(&lf[111],31, C_text("chicken.internal#hash-table-ref")); lf[112]=C_h_intern(&lf[112],33, C_text("chicken.compiler.support#get-line")); lf[113]=C_h_intern(&lf[113],36, C_text("chicken.syntax#expansion-result-hook")); lf[114]=C_h_intern(&lf[114],23, C_text("##sys#canonicalize-body")); lf[115]=C_h_intern(&lf[115],18, C_text("##sys#dynamic-wind")); lf[116]=C_h_intern(&lf[116],39, C_text("chicken.compiler.support#set-real-name!")); lf[117]=C_h_intern(&lf[117],5, C_text("quote")); lf[118]=C_h_intern(&lf[118],17, C_text("##core#inline_ref")); lf[119]=C_h_intern(&lf[119],52, C_text("chicken.compiler.support#foreign-type-convert-result")); lf[120]=C_h_intern(&lf[120],46, C_text("chicken.compiler.support#finish-foreign-result")); lf[121]=C_h_intern(&lf[121],43, C_text("chicken.compiler.support#final-foreign-type")); lf[122]=C_h_intern(&lf[122],21, C_text("##core#inline_loc_ref")); lf[123]=C_h_intern(&lf[123],23, C_text("##sys#alias-global-hook")); lf[124]=C_h_intern(&lf[124],6, C_text("format")); lf[125]=C_h_intern(&lf[125],20, C_text("chicken.base#warning")); lf[126]=C_h_intern(&lf[126],30, C_text("chicken.base#get-output-string")); lf[127]=C_h_intern(&lf[127],11, C_text("##sys#print")); lf[128]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025\047 possibly unintended")); lf[129]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027reference to variable `")); lf[130]=C_h_intern(&lf[130],31, C_text("chicken.base#open-output-string")); lf[131]=C_h_intern(&lf[131],26, C_text("##sys#syntax-error/context")); lf[132]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023illegal atomic form")); lf[133]=C_h_intern(&lf[133],34, C_text("chicken.compiler.support#constant\077")); lf[134]=C_h_intern(&lf[134],26, C_text("##sys#syntax-error-culprit")); lf[135]=C_h_intern(&lf[135],9, C_text("##core#if")); lf[136]=C_h_intern(&lf[136],2, C_text("if")); lf[137]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[138]=C_h_intern(&lf[138],13, C_text("##core#syntax")); lf[139]=C_h_intern(&lf[139],12, C_text("##core#quote")); lf[140]=C_h_intern(&lf[140],27, C_text("chicken.syntax#strip-syntax")); lf[141]=C_h_intern(&lf[141],12, C_text("##core#check")); lf[142]=C_h_intern(&lf[142],31, C_text("chicken.compiler.support#unsafe")); lf[143]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001quote\376\003\000\000\002\376\377\006\001\376\377\016")); lf[144]=C_h_intern(&lf[144],10, C_text("##core#the")); lf[145]=C_h_intern(&lf[145],15, C_text("##core#typecase")); lf[146]=C_h_intern(&lf[146],16, C_text("##core#immutable")); lf[147]=C_h_intern(&lf[147],38, C_text("chicken.compiler.support#hide-variable")); lf[148]=C_h_intern(&lf[148],38, C_text("chicken.compiler.support#mark-variable")); lf[149]=C_h_intern(&lf[149],23, C_text("##compiler#always-bound")); lf[150]=C_h_intern(&lf[150],1, C_text("c")); lf[151]=C_h_intern(&lf[151],13, C_text("scheme#cadadr")); lf[152]=C_h_intern(&lf[152],15, C_text("##core#callunit")); lf[153]=C_h_intern(&lf[153],14, C_text("##core#provide")); lf[154]=C_h_intern(&lf[154],12, C_text("scheme#caadr")); lf[155]=C_h_intern(&lf[155],25, C_text("##core#require-for-syntax")); lf[156]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[157]=C_h_intern(&lf[157],27, C_text("chicken.load#load-extension")); lf[158]=C_h_intern(&lf[158],7, C_text("require")); lf[159]=C_h_intern(&lf[159],14, C_text("##core#require")); lf[160]=C_h_intern(&lf[160],21, C_text("##sys#process-require")); lf[162]=C_h_intern(&lf[162],35, C_text("chicken.internal#hash-table-update!")); lf[163]=C_h_intern(&lf[163],10, C_text("##core#let")); lf[164]=C_h_intern(&lf[164],3, C_text("let")); lf[165]=C_h_intern(&lf[165],15, C_text("##sys#extend-se")); lf[166]=C_h_intern(&lf[166],14, C_text("##core#letrec\052")); lf[167]=C_h_intern(&lf[167],12, C_text("##sys#append")); lf[168]=C_h_intern(&lf[168],11, C_text("##core#set!")); lf[169]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[170]=C_h_intern(&lf[170],13, C_text("##core#letrec")); lf[171]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[172]=C_h_intern(&lf[172],46, C_text("chicken.compiler.support#expand-profile-lambda")); lf[173]=C_h_intern(&lf[173],3, C_text("all")); lf[174]=C_h_intern(&lf[174],4, C_text("some")); lf[175]=C_h_intern(&lf[175],38, C_text("chicken.compiler.support#variable-mark")); lf[176]=C_h_intern(&lf[176],18, C_text("##compiler#profile")); lf[177]=C_h_intern(&lf[177],42, C_text("chicken.compiler.support#build-lambda-list")); lf[178]=C_h_intern(&lf[178],18, C_text("##core#debug-event")); lf[179]=C_h_intern(&lf[179],13, C_text("C_DEBUG_ENTRY")); lf[180]=C_h_intern(&lf[180],12, C_text("##core#begin")); lf[181]=C_h_intern(&lf[181],27, C_text("##sys#decompose-lambda-list")); lf[182]=C_h_intern(&lf[182],33, C_text("##sys#expand-extended-lambda-list")); lf[183]=C_h_intern(&lf[183],11, C_text("##sys#error")); lf[184]=C_h_intern(&lf[184],27, C_text("##sys#extended-lambda-list\077")); lf[185]=C_h_intern(&lf[185],17, C_text("##core#let-syntax")); lf[186]=C_h_intern(&lf[186],24, C_text("##sys#ensure-transformer")); lf[187]=C_h_intern(&lf[187],15, C_text("##sys#eval/meta")); lf[188]=C_h_intern(&lf[188],20, C_text("##core#letrec-syntax")); lf[189]=C_h_intern(&lf[189],20, C_text("##core#define-syntax")); lf[190]=C_h_intern(&lf[190],27, C_text("##sys#enable-runtime-macros")); lf[191]=C_h_intern(&lf[191],30, C_text("##sys#extend-macro-environment")); lf[192]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[193]=C_h_intern(&lf[193],28, C_text("##sys#register-syntax-export")); lf[194]=C_h_intern(&lf[194],20, C_text("##sys#current-module")); lf[195]=C_h_intern(&lf[195],12, C_text("scheme#cdadr")); lf[196]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[197]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[198]=C_h_intern(&lf[198],18, C_text("##sys#check-syntax")); lf[199]=C_h_intern(&lf[199],29, C_text("##core#define-compiler-syntax")); lf[200]=C_h_intern(&lf[200],26, C_text("##compiler#compiler-syntax")); lf[201]=C_h_intern(&lf[201],10, C_text("##sys#cons")); lf[202]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[203]=C_h_intern(&lf[203],26, C_text("##core#let-compiler-syntax")); lf[204]=C_h_intern(&lf[204],19, C_text("let-compiler-syntax")); lf[205]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001symbol\376\000\000\000\003\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001")); lf[206]=C_h_intern(&lf[206],19, C_text("scheme#dynamic-wind")); lf[207]=C_h_intern(&lf[207],14, C_text("##core#include")); lf[208]=C_h_intern(&lf[208],39, C_text("chicken.compiler.support#read-info-hook")); lf[209]=C_h_intern(&lf[209],28, C_text("##sys#default-read-info-hook")); lf[210]=C_h_intern(&lf[210],29, C_text("##sys#include-forms-from-file")); lf[211]=C_h_intern(&lf[211],23, C_text("##core#let-module-alias")); lf[212]=C_h_intern(&lf[212],25, C_text("##sys#with-module-aliases")); lf[213]=C_h_intern(&lf[213],7, C_text("functor")); lf[214]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001symbol\376\003\000\000\002\376\001\000\000\006\001symbol\376\377\016")); lf[215]=C_h_intern(&lf[215],13, C_text("##core#module")); lf[216]=C_h_intern(&lf[216],23, C_text("##sys#macro-environment")); lf[217]=C_h_intern(&lf[217],30, C_text("##sys#module-alias-environment")); lf[218]=C_h_intern(&lf[218],31, C_text("##sys#initial-macro-environment")); lf[219]=C_h_intern(&lf[219],14, C_text("scheme#reverse")); lf[220]=C_h_intern(&lf[220],13, C_text("scheme#equal\077")); lf[221]=C_h_intern(&lf[221],18, C_text("chicken.base#print")); lf[222]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037not generating import library `")); lf[223]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\047 for module `")); lf[224]=C_decode_literal(C_heaptop,C_text("\376B\000\000 \047 because imports did not change")); lf[225]=C_h_intern(&lf[225],33, C_text("chicken.pretty-print#pretty-print")); lf[226]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\012;; END OF FILE")); lf[227]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005;;;; ")); lf[228]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030 - GENERATED BY CHICKEN ")); lf[229]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020 -\052- Scheme -\052-\012")); lf[230]=C_h_intern(&lf[230],32, C_text("chicken.platform#chicken-version")); lf[231]=C_h_intern(&lf[231],26, C_text("scheme#with-output-to-file")); lf[232]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033generating import library `")); lf[233]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\047 for module `")); lf[234]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005\047 ...")); lf[235]=C_h_intern(&lf[235],27, C_text("scheme#call-with-input-file")); lf[236]=C_h_intern(&lf[236],41, C_text("chicken.compiler.support#read-expressions")); lf[237]=C_h_intern(&lf[237],25, C_text("chicken.file#file-exists\077")); lf[238]=C_h_intern(&lf[238],34, C_text("##sys#compiled-module-registration")); lf[239]=C_h_intern(&lf[239],19, C_text("##sys#string-append")); lf[240]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013.import.scm")); lf[241]=C_h_intern(&lf[241],21, C_text("scheme#symbol->string")); lf[242]=C_h_intern(&lf[242],17, C_text("chicken.base#exit")); lf[243]=C_h_intern(&lf[243],37, C_text("chicken.condition#print-error-message")); lf[244]=C_h_intern(&lf[244],20, C_text("##sys#standard-error")); lf[245]=C_h_intern(&lf[245],21, C_text("##sys#finalize-module")); lf[246]=C_h_intern(&lf[246],40, C_text("chicken.condition#with-exception-handler")); lf[247]=C_h_intern(&lf[247],37, C_text("scheme#call-with-current-continuation")); lf[248]=C_h_intern(&lf[248],27, C_text("##sys#with-property-restore")); lf[249]=C_h_intern(&lf[249],21, C_text("##sys#register-module")); lf[250]=C_h_intern(&lf[250],48, C_text("chicken.compiler.support#canonicalize-begin-body")); lf[251]=C_h_intern(&lf[251],30, C_text("##sys#current-meta-environment")); lf[252]=C_h_intern(&lf[252],28, C_text("##sys#meta-macro-environment")); lf[253]=C_h_intern(&lf[253],23, C_text("##sys#syntax-error-hook")); lf[254]=C_h_intern(&lf[254],6, C_text("module")); lf[255]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031modules may not be nested")); lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025invalid export syntax")); lf[257]=C_h_intern(&lf[257],35, C_text("chicken.internal#module-requirement")); lf[258]=C_h_intern(&lf[258],18, C_text("##core#loop-lambda")); lf[259]=C_h_intern(&lf[259],33, C_text("##core#ensure-toplevel-definition")); lf[260]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[261]=C_h_intern(&lf[261],39, C_text("chicken.compiler.support#quit-compiling")); lf[262]=C_decode_literal(C_heaptop,C_text("\376B\000\0005~atoplevel definition of `~s\047 in non-toplevel context")); lf[263]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - ")); lf[264]=C_h_intern(&lf[264],18, C_text("##sys#write-char-0")); lf[265]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[266]=C_h_intern(&lf[266],20, C_text("##core#inline_update")); lf[267]=C_h_intern(&lf[267],43, C_text("chicken.compiler.support#foreign-type-check")); lf[268]=C_h_intern(&lf[268],54, C_text("chicken.compiler.support#foreign-type-convert-argument")); lf[269]=C_h_intern(&lf[269],24, C_text("##core#inline_loc_update")); lf[270]=C_h_intern(&lf[270],4, C_text("set!")); lf[271]=C_h_intern(&lf[271],30, C_text("##sys#unregister-syntax-export")); lf[272]=C_h_intern(&lf[272],21, C_text("##sys#undefine-macro!")); lf[273]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026assignment to syntax `")); lf[274]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - ")); lf[275]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[276]=C_decode_literal(C_heaptop,C_text("\376B\000\000&assignment to imported value binding `")); lf[277]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - ")); lf[278]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[279]=C_h_intern(&lf[279],12, C_text("##sys#macro\077")); lf[280]=C_h_intern(&lf[280],21, C_text("C_DEBUG_GLOBAL_ASSIGN")); lf[281]=C_h_intern(&lf[281],36, C_text("##compiler#always-bound-to-procedure")); lf[282]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025\047 possibly unintended")); lf[283]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030assignment to variable `")); lf[284]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - ")); lf[285]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[286]=C_h_intern(&lf[286],13, C_text("##core#inline")); lf[287]=C_h_intern(&lf[287],22, C_text("##core#inline_allocate")); lf[288]=C_h_intern(&lf[288],21, C_text("##core#compiletimetoo")); lf[289]=C_h_intern(&lf[289],25, C_text("##core#elaborationtimetoo")); lf[290]=C_h_intern(&lf[290],22, C_text("##core#compiletimeonly")); lf[291]=C_h_intern(&lf[291],26, C_text("##core#elaborationtimeonly")); lf[292]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[293]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[294]=C_h_intern(&lf[294],21, C_text("##core#foreign-lambda")); lf[296]=C_h_intern(&lf[296],26, C_text("##core#foreign-safe-lambda")); lf[297]=C_h_intern(&lf[297],22, C_text("##core#foreign-lambda\052")); lf[299]=C_h_intern(&lf[299],27, C_text("##core#foreign-safe-lambda\052")); lf[300]=C_h_intern(&lf[300],24, C_text("##core#foreign-primitive")); lf[301]=C_h_intern(&lf[301],4, C_text("void")); lf[303]=C_h_intern(&lf[303],33, C_text("chicken.string#string-intersperse")); lf[304]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[305]=C_h_intern(&lf[305],30, C_text("##core#define-foreign-variable")); lf[306]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[307]=C_h_intern(&lf[307],26, C_text("##core#define-foreign-type")); lf[308]=C_h_intern(&lf[308],12, C_text("##sys#values")); lf[309]=C_h_intern(&lf[309],21, C_text("##sys#register-export")); lf[310]=C_h_intern(&lf[310],47, C_text("chicken.compiler.support#register-foreign-type!")); lf[311]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[312]=C_decode_literal(C_heaptop,C_text("\376B\000\0009~adefinition of foreign type `~s\047 in non-toplevel context")); lf[313]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - ")); lf[314]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[315]=C_h_intern(&lf[315],31, C_text("##core#define-external-variable")); lf[316]=C_h_intern(&lf[316],9, C_text("c-pointer")); lf[317]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[318]=C_h_intern(&lf[318],20, C_text("scheme#string-append")); lf[319]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001&")); lf[320]=C_decode_literal(C_heaptop,C_text("\376B\000\000>~aexternal variable definition of `~s\047 in non-toplevel context")); lf[321]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - ")); lf[322]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[323]=C_h_intern(&lf[323],41, C_text("chicken.compiler.support#make-random-name")); lf[324]=C_h_intern(&lf[324],19, C_text("##core#let-location")); lf[325]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_a_i_bytevector")); lf[326]=C_h_intern(&lf[326],37, C_text("chicken.compiler.support#bytes->words")); lf[327]=C_h_intern(&lf[327],62, C_text("chicken.compiler.support#estimate-foreign-result-location-size")); lf[328]=C_h_intern(&lf[328],20, C_text("##core#define-inline")); lf[329]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[330]=C_decode_literal(C_heaptop,C_text("\376B\000\0003~ainline definition of `~s\047 in non-toplevel context")); lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - ")); lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[333]=C_h_intern(&lf[333],13, C_text("scheme#cdaddr")); lf[334]=C_h_intern(&lf[334],22, C_text("##core#define-constant")); lf[335]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[336]=C_h_intern(&lf[336],6, C_text("define")); lf[337]=C_h_intern(&lf[337],19, C_text("##compiler#constant")); lf[338]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010constant")); lf[339]=C_decode_literal(C_heaptop,C_text("\376B\000\0004~ainvalid compile-time value for named constant `~S\047")); lf[340]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - ")); lf[341]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[342]=C_h_intern(&lf[342],39, C_text("chicken.compiler.support#basic-literal\077")); lf[343]=C_h_intern(&lf[343],45, C_text("chicken.compiler.support#collapsable-literal\077")); lf[344]=C_decode_literal(C_heaptop,C_text("\376B\000\0005~aconstant definition of `~s\047 in non-toplevel context")); lf[345]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - ")); lf[346]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[347]=C_decode_literal(C_heaptop,C_text("\376B\000\000:error in constant evaluation of ~S for named constant `~S\047")); lf[348]=C_h_intern(&lf[348],11, C_text("scheme#eval")); lf[349]=C_h_intern(&lf[349],14, C_text("##core#declare")); lf[350]=C_h_intern(&lf[350],41, C_text("chicken.compiler.core#process-declaration")); lf[351]=C_h_intern(&lf[351],31, C_text("##core#foreign-callback-wrapper")); lf[352]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\020\001nonnull-c-string\376\377\016")); lf[353]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\031\001nonnull-unsigned-c-string\376\377\016")); lf[354]=C_h_intern(&lf[354],25, C_text("nonnull-unsigned-c-string")); lf[355]=C_h_intern(&lf[355],16, C_text("nonnull-c-string")); lf[356]=C_h_intern(&lf[356],19, C_text("##sys#make-c-string")); lf[357]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\011\001c-string\052\376\377\016")); lf[358]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\022\001unsigned-c-string\052\376\377\016")); lf[359]=C_h_intern(&lf[359],18, C_text("unsigned-c-string\052")); lf[360]=C_h_intern(&lf[360],9, C_text("c-string\052")); lf[361]=C_h_intern(&lf[361],13, C_text("c-string-list")); lf[362]=C_h_intern(&lf[362],14, C_text("c-string-list\052")); lf[363]=C_h_intern(&lf[363],27, C_text("chicken.syntax#syntax-error")); lf[364]=C_decode_literal(C_heaptop,C_text("\376B\000\000/not a valid result type for callback procedures")); lf[365]=C_h_intern(&lf[365],8, C_text("c-string")); lf[366]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\021\001unsigned-c-string\376\377\016")); lf[367]=C_h_intern(&lf[367],17, C_text("unsigned-c-string")); lf[368]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\010\001c-string\376\377\016")); lf[369]=C_h_intern(&lf[369],1, C_text("r")); lf[370]=C_h_intern(&lf[370],3, C_text("and")); lf[371]=C_decode_literal(C_heaptop,C_text("\376B\000\000Anon-matching or invalid argument list to foreign callback-wrapper")); lf[372]=C_decode_literal(C_heaptop,C_text("\376B\000\000>~aname `~S\047 of external definition is not a valid C identifier")); lf[373]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - ")); lf[374]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[375]=C_h_intern(&lf[375],44, C_text("chicken.compiler.support#valid-c-identifier\077")); lf[376]=C_h_intern(&lf[376],15, C_text("##core#location")); lf[377]=C_h_intern(&lf[377],8, C_text("location")); lf[378]=C_h_intern(&lf[378],19, C_text("##sys#make-locative")); lf[379]=C_h_intern(&lf[379],20, C_text("##sys#syntax-context")); lf[380]=C_h_intern(&lf[380],16, C_text("##core#primitive")); lf[381]=C_h_intern(&lf[381],16, C_text("##core#undefined")); lf[382]=C_h_intern(&lf[382],21, C_text("chicken.syntax#expand")); lf[383]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030) - malformed expression")); lf[384]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024malformed expression")); lf[385]=C_h_intern(&lf[385],47, C_text("chicken.compiler.support#emit-syntax-trace-info")); lf[386]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024malformed expression")); lf[387]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034literal in operator position")); lf[388]=C_h_intern(&lf[388],42, C_text("chicken.compiler.support#debugging-chicken")); lf[389]=C_h_intern(&lf[389],14, C_text("scheme#newline")); lf[390]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid declaration")); lf[391]=C_h_intern(&lf[391],15, C_text("##sys#globalize")); lf[392]=C_h_intern(&lf[392],12, C_text("##sys#notice")); lf[393]=C_decode_literal(C_heaptop,C_text("\376B\000\0001ignoring declaration for locally bound variable `")); lf[394]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[395]=C_h_intern(&lf[395],4, C_text("uses")); lf[396]=C_h_intern(&lf[396],6, C_text("static")); lf[397]=C_h_intern(&lf[397],4, C_text("unit")); lf[398]=C_decode_literal(C_heaptop,C_text("\376B\000\0003unit was already given a name (new name is ignored)")); lf[399]=C_h_intern(&lf[399],17, C_text("standard-bindings")); lf[400]=C_h_intern(&lf[400],17, C_text("extended-bindings")); lf[401]=C_h_intern(&lf[401],18, C_text("usual-integrations")); lf[402]=C_h_intern(&lf[402],11, C_text("number-type")); lf[403]=C_h_intern(&lf[403],36, C_text("chicken.compiler.support#number-type")); lf[404]=C_h_intern(&lf[404],6, C_text("fixnum")); lf[405]=C_h_intern(&lf[405],17, C_text("fixnum-arithmetic")); lf[406]=C_h_intern(&lf[406],7, C_text("generic")); lf[407]=C_h_intern(&lf[407],6, C_text("unsafe")); lf[408]=C_h_intern(&lf[408],4, C_text("safe")); lf[409]=C_h_intern(&lf[409],15, C_text("no-bound-checks")); lf[410]=C_h_intern(&lf[410],14, C_text("no-argc-checks")); lf[411]=C_h_intern(&lf[411],19, C_text("no-procedure-checks")); lf[412]=C_h_intern(&lf[412],18, C_text("disable-interrupts")); lf[413]=C_h_intern(&lf[413],12, C_text("always-bound")); lf[414]=C_h_intern(&lf[414],12, C_text("safe-globals")); lf[415]=C_h_intern(&lf[415],38, C_text("no-procedure-checks-for-usual-bindings")); lf[416]=C_h_intern(&lf[416],41, C_text("no-procedure-checks-for-toplevel-bindings")); lf[417]=C_h_intern(&lf[417],18, C_text("bound-to-procedure")); lf[418]=C_h_intern(&lf[418],15, C_text("foreign-declare")); lf[419]=C_h_intern(&lf[419],7, C_text("declare")); lf[420]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid declaration")); lf[421]=C_h_intern(&lf[421],14, C_text("scheme#string\077")); lf[422]=C_h_intern(&lf[422],5, C_text("block")); lf[423]=C_h_intern(&lf[423],8, C_text("separate")); lf[424]=C_h_intern(&lf[424],20, C_text("keep-shadowed-macros")); lf[425]=C_h_intern(&lf[425],6, C_text("unused")); lf[426]=C_h_intern(&lf[426],17, C_text("##compiler#unused")); lf[427]=C_h_intern(&lf[427],22, C_text("enforce-argument-types")); lf[428]=C_h_intern(&lf[428],18, C_text("##compiler#enforce")); lf[429]=C_h_intern(&lf[429],3, C_text("not")); lf[430]=C_h_intern(&lf[430],6, C_text("inline")); lf[431]=C_h_intern(&lf[431],17, C_text("##compiler#inline")); lf[432]=C_h_intern(&lf[432],2, C_text("no")); lf[433]=C_h_intern(&lf[433],13, C_text("inline-global")); lf[434]=C_h_intern(&lf[434],24, C_text("##compiler#inline-global")); lf[435]=C_decode_literal(C_heaptop,C_text("\376B\000\000!unsupported declaration specifier")); lf[436]=C_h_intern(&lf[436],14, C_text("compile-syntax")); lf[437]=C_h_intern(&lf[437],12, C_text("block-global")); lf[438]=C_h_intern(&lf[438],4, C_text("hide")); lf[439]=C_h_intern(&lf[439],6, C_text("export")); lf[440]=C_h_intern(&lf[440],40, C_text("chicken.compiler.support#export-variable")); lf[441]=C_h_intern(&lf[441],30, C_text("emit-external-prototypes-first")); lf[442]=C_h_intern(&lf[442],16, C_text("##compiler#local")); lf[443]=C_h_intern(&lf[443],12, C_text("inline-limit")); lf[444]=C_decode_literal(C_heaptop,C_text("\376B\000\000.invalid argument to `inline-limit\047 declaration")); lf[445]=C_h_intern(&lf[445],4, C_text("pure")); lf[446]=C_h_intern(&lf[446],15, C_text("##compiler#pure")); lf[447]=C_decode_literal(C_heaptop,C_text("\376B\000\000+invalid arguments to `pure\047 declaration: ~S")); lf[448]=C_h_intern(&lf[448],19, C_text("emit-import-library")); lf[449]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013.import.scm")); lf[450]=C_decode_literal(C_heaptop,C_text("\376B\000\000$invalid import-library specification")); lf[451]=C_h_intern(&lf[451],7, C_text("profile")); lf[452]=C_h_intern(&lf[452],5, C_text("local")); lf[453]=C_h_intern(&lf[453],3, C_text("yes")); lf[454]=C_h_intern(&lf[454],4, C_text("type")); lf[455]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030illegal type declaration")); lf[456]=C_h_intern(&lf[456],42, C_text("chicken.compiler.scrutinizer#validate-type")); lf[457]=C_h_intern(&lf[457],52, C_text("chicken.compiler.scrutinizer#install-specializations")); lf[458]=C_h_intern(&lf[458],20, C_text("##compiler#predicate")); lf[459]=C_h_intern(&lf[459],22, C_text("##compiler#type-source")); lf[460]=C_h_intern(&lf[460],15, C_text("##compiler#type")); lf[461]=C_h_intern(&lf[461],9, C_text("procedure")); lf[462]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032illegal `type\047 declaration")); lf[463]=C_h_intern(&lf[463],9, C_text("predicate")); lf[464]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037illegal `predicate\047 declaration")); lf[465]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037illegal `type\047 declaration item")); lf[466]=C_h_intern(&lf[466],10, C_text("specialize")); lf[467]=C_h_intern(&lf[467],12, C_text("strict-types")); lf[468]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035unknown declaration specifier")); lf[469]=C_decode_literal(C_heaptop,C_text("\376B\000\000!invalid declaration specification")); lf[470]=C_h_intern(&lf[470],46, C_text("chicken.compiler.core#build-toplevel-procedure")); lf[471]=C_h_intern(&lf[471],34, C_text("chicken.compiler.support#make-node")); lf[472]=C_h_intern(&lf[472],6, C_text("lambda")); lf[473]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\016\376\377\016")); lf[474]=C_h_intern(&lf[474],37, C_text("chicken.compiler.core#foreign-stub-id")); lf[475]=C_h_intern(&lf[475],34, C_text("chicken.compiler.core#foreign-stub")); lf[476]=C_h_intern(&lf[476],15, C_text("foreign-stub-id")); lf[477]=C_h_intern(&lf[477],46, C_text("chicken.compiler.core#foreign-stub-return-type")); lf[478]=C_h_intern(&lf[478],24, C_text("foreign-stub-return-type")); lf[479]=C_h_intern(&lf[479],39, C_text("chicken.compiler.core#foreign-stub-name")); lf[480]=C_h_intern(&lf[480],17, C_text("foreign-stub-name")); lf[481]=C_h_intern(&lf[481],49, C_text("chicken.compiler.core#foreign-stub-argument-types")); lf[482]=C_h_intern(&lf[482],27, C_text("foreign-stub-argument-types")); lf[483]=C_h_intern(&lf[483],49, C_text("chicken.compiler.core#foreign-stub-argument-names")); lf[484]=C_h_intern(&lf[484],27, C_text("foreign-stub-argument-names")); lf[485]=C_h_intern(&lf[485],39, C_text("chicken.compiler.core#foreign-stub-body")); lf[486]=C_h_intern(&lf[486],17, C_text("foreign-stub-body")); lf[487]=C_h_intern(&lf[487],38, C_text("chicken.compiler.core#foreign-stub-cps")); lf[488]=C_h_intern(&lf[488],16, C_text("foreign-stub-cps")); lf[489]=C_h_intern(&lf[489],43, C_text("chicken.compiler.core#foreign-stub-callback")); lf[490]=C_h_intern(&lf[490],21, C_text("foreign-stub-callback")); lf[491]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001##sys#gc\376\003\000\000\002\376\377\006\000\376\377\016\376\377\016")); lf[492]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[493]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_a_i_bytevector")); lf[494]=C_h_intern(&lf[494],21, C_text("scheme#string->symbol")); lf[495]=C_h_intern(&lf[495],53, C_text("chicken.compiler.support#estimate-foreign-result-size")); lf[496]=C_h_intern(&lf[496],4, C_text("stub")); lf[497]=C_h_intern(&lf[497],1, C_text("a")); lf[498]=C_h_intern(&lf[498],19, C_text("chicken.string#conc")); lf[499]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052")); lf[500]=C_h_intern(&lf[500],5, C_text("const")); lf[501]=C_h_intern(&lf[501],6, C_text("struct")); lf[502]=C_decode_literal(C_heaptop,C_text("\376B\000\000-name `~s\047 of foreign procedure has wrong type")); lf[503]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[504]=C_h_intern(&lf[504],44, C_text("chicken.compiler.core#perform-cps-conversion")); lf[505]=C_h_intern(&lf[505],11, C_text("##core#call")); lf[506]=C_h_intern(&lf[506],32, C_text("chicken.compiler.support#varnode")); lf[507]=C_h_intern(&lf[507],1, C_text("k")); lf[508]=C_h_intern(&lf[508],15, C_text("##core#variable")); lf[509]=C_h_intern(&lf[509],40, C_text("chicken.compiler.support#node-parameters")); lf[510]=C_h_intern(&lf[510],2, C_text("f_")); lf[511]=C_h_intern(&lf[511],1, C_text("t")); lf[512]=C_h_intern(&lf[512],44, C_text("chicken.compiler.support#node-subexpressions")); lf[513]=C_h_intern(&lf[513],56, C_text("chicken.compiler.support#register-foreign-callback-stub!")); lf[514]=C_h_intern(&lf[514],17, C_text("##core#the/result")); lf[515]=C_h_intern(&lf[515],29, C_text("chicken.compiler.support#bomb")); lf[516]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016bad node (cps)")); lf[517]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001quote\376\003\000\000\002\376\001\000\000\017\001##core#variable\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[518]=C_h_intern(&lf[518],40, C_text("chicken.compiler.core#analyze-expression")); lf[519]=C_h_intern(&lf[519],32, C_text("chicken.compiler.support#db-put!")); lf[520]=C_h_intern(&lf[520],8, C_text("captured")); lf[521]=C_h_intern(&lf[521],31, C_text("chicken.compiler.support#db-get")); lf[522]=C_h_intern(&lf[522],14, C_text("##core#recurse")); lf[523]=C_h_intern(&lf[523],33, C_text("chicken.compiler.support#collect!")); lf[524]=C_h_intern(&lf[524],4, C_text("home")); lf[525]=C_h_intern(&lf[525],7, C_text("unknown")); lf[526]=C_h_intern(&lf[526],20, C_text("##core#direct_lambda")); lf[527]=C_h_intern(&lf[527],6, C_text("simple")); lf[528]=C_h_intern(&lf[528],44, C_text("chicken.compiler.support#simple-lambda-node\077")); lf[529]=C_h_intern(&lf[529],14, C_text("rest-parameter")); lf[530]=C_h_intern(&lf[530],4, C_text("list")); lf[531]=C_h_intern(&lf[531],12, C_text("contained-in")); lf[532]=C_h_intern(&lf[532],8, C_text("contains")); lf[533]=C_h_intern(&lf[533],8, C_text("assigned")); lf[534]=C_h_intern(&lf[534],16, C_text("assigned-locally")); lf[535]=C_h_intern(&lf[535],16, C_text("potential-values")); lf[536]=C_h_intern(&lf[536],8, C_text("standard")); lf[537]=C_decode_literal(C_heaptop,C_text("\376B\000\000 redefinition of standard binding")); lf[538]=C_h_intern(&lf[538],8, C_text("extended")); lf[539]=C_decode_literal(C_heaptop,C_text("\376B\000\000 redefinition of extended binding")); lf[540]=C_h_intern(&lf[540],20, C_text("##compiler#intrinsic")); lf[541]=C_h_intern(&lf[541],38, C_text("chicken.compiler.support#get-real-name")); lf[542]=C_h_intern(&lf[542],11, C_text("##core#proc")); lf[543]=C_h_intern(&lf[543],9, C_text("undefined")); lf[544]=C_h_intern(&lf[544],35, C_text("chicken.compiler.support#db-get-all")); lf[545]=C_h_intern(&lf[545],11, C_text("local-value")); lf[546]=C_h_intern(&lf[546],42, C_text("chicken.compiler.support#variable-visible\077")); lf[547]=C_h_intern(&lf[547],10, C_text("references")); lf[548]=C_h_intern(&lf[548],10, C_text("replacable")); lf[549]=C_h_intern(&lf[549],9, C_text("replacing")); lf[550]=C_h_intern(&lf[550],9, C_text("removable")); lf[551]=C_h_intern(&lf[551],35, C_text("chicken.compiler.support#intrinsic\077")); lf[552]=C_h_intern(&lf[552],19, C_text("##core#always-bound")); lf[553]=C_h_intern(&lf[553],53, C_text("chicken.compiler.support#expression-has-side-effects\077")); lf[554]=C_h_intern(&lf[554],21, C_text("has-unused-parameters")); lf[555]=C_h_intern(&lf[555],13, C_text("explicit-rest")); lf[556]=C_h_intern(&lf[556],19, C_text("chicken.base#rassoc")); lf[557]=C_h_intern(&lf[557],10, C_text("scheme#eq\077")); lf[558]=C_h_intern(&lf[558],11, C_text("collapsable")); lf[559]=C_h_intern(&lf[559],12, C_text("contractable")); lf[560]=C_h_intern(&lf[560],9, C_text("inlinable")); lf[561]=C_h_intern(&lf[561],44, C_text("chicken.compiler.support#scan-free-variables")); lf[562]=C_h_intern(&lf[562],11, C_text("hidden-refs")); lf[563]=C_h_intern(&lf[563],34, C_text("chicken.compiler.support#debugging")); lf[564]=C_h_intern(&lf[564],1, C_text("i")); lf[565]=C_decode_literal(C_heaptop,C_text("\376B\000\000>global inlining candidate was assigned and will not be inlined")); lf[566]=C_h_intern(&lf[566],30, C_text("chicken.compiler.support#node\077")); lf[567]=C_h_intern(&lf[567],5, C_text("boxed")); lf[568]=C_decode_literal(C_heaptop,C_text("\376B\000\000(\047 is only locally visible and never used")); lf[569]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021global variable `")); lf[570]=C_h_intern(&lf[570],41, C_text("chicken.compiler.support#variable-hidden\077")); lf[571]=C_h_intern(&lf[571],1, C_text("p")); lf[572]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033analysis gathering phase...")); lf[573]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033analysis traversal phase...")); lf[574]=C_h_intern(&lf[574],48, C_text("chicken.compiler.core#perform-closure-conversion")); lf[575]=C_h_intern(&lf[575],12, C_text("customizable")); lf[576]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033let-node has invalid format")); lf[577]=C_h_intern(&lf[577],45, C_text("chicken.compiler.support#node-parameters-set!")); lf[578]=C_decode_literal(C_heaptop,C_text("\376B\000\0008~a: procedure `~a\047 called with wrong number of arguments")); lf[579]=C_h_intern(&lf[579],44, C_text("chicken.compiler.support#source-info->string")); lf[580]=C_h_intern(&lf[580],37, C_text("chicken.compiler.support#llist-match\077")); lf[581]=C_h_intern(&lf[581],8, C_text("toplevel")); lf[582]=C_h_intern(&lf[582],18, C_text("captured-variables")); lf[583]=C_h_intern(&lf[583],12, C_text("closure-size")); lf[584]=C_h_intern(&lf[584],12, C_text("##core#unbox")); lf[585]=C_h_intern(&lf[585],10, C_text("##core#box")); lf[586]=C_h_intern(&lf[586],14, C_text("##core#closure")); lf[587]=C_h_intern(&lf[587],30, C_text("chicken.compiler.support#qnode")); lf[588]=C_h_intern(&lf[588],22, C_text("##sys#make-lambda-info")); lf[589]=C_h_intern(&lf[589],1, C_text("\077")); lf[590]=C_h_intern(&lf[590],23, C_text("chicken.string#->string")); lf[591]=C_h_intern(&lf[591],34, C_text("chicken.compiler.support#real-name")); lf[592]=C_h_intern(&lf[592],10, C_text("boxed-rest")); lf[593]=C_h_intern(&lf[593],18, C_text("##core#updatebox_i")); lf[594]=C_h_intern(&lf[594],16, C_text("##core#updatebox")); lf[595]=C_h_intern(&lf[595],10, C_text("##core#ref")); lf[596]=C_h_intern(&lf[596],15, C_text("##core#update_i")); lf[597]=C_h_intern(&lf[597],13, C_text("##core#update")); lf[598]=C_h_intern(&lf[598],35, C_text("chicken.compiler.support#immediate\077")); lf[599]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023bad node (closure2)")); lf[600]=C_h_intern(&lf[600],13, C_text("##core#switch")); lf[601]=C_h_intern(&lf[601],11, C_text("##core#cond")); lf[602]=C_h_intern(&lf[602],18, C_text("##core#direct_call")); lf[603]=C_h_intern(&lf[603],13, C_text("##core#return")); lf[604]=C_h_intern(&lf[604],16, C_text("##core#let_float")); lf[605]=C_h_intern(&lf[605],16, C_text("##core#box_float")); lf[606]=C_h_intern(&lf[606],18, C_text("##core#unbox_float")); lf[607]=C_h_intern(&lf[607],12, C_text("##core#float")); lf[608]=C_h_intern(&lf[608],21, C_text("##core#float-variable")); lf[609]=C_h_intern(&lf[609],1, C_text("o")); lf[610]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026calls to known targets")); lf[611]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052closure conversion transformation phase...")); lf[612]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027customizable procedures")); lf[613]=C_decode_literal(C_heaptop,C_text("\376B\000\000%closure conversion gathering phase...")); lf[614]=C_h_intern(&lf[614],39, C_text("chicken.compiler.core#lambda-literal-id")); lf[615]=C_h_intern(&lf[615],36, C_text("chicken.compiler.core#lambda-literal")); lf[616]=C_h_intern(&lf[616],17, C_text("lambda-literal-id")); lf[617]=C_h_intern(&lf[617],45, C_text("chicken.compiler.core#lambda-literal-external")); lf[618]=C_h_intern(&lf[618],23, C_text("lambda-literal-external")); lf[619]=C_h_intern(&lf[619],51, C_text("chicken.compiler.core#lambda-literal-argument-count")); lf[620]=C_h_intern(&lf[620],29, C_text("lambda-literal-argument-count")); lf[621]=C_h_intern(&lf[621],50, C_text("chicken.compiler.core#lambda-literal-rest-argument")); lf[622]=C_h_intern(&lf[622],28, C_text("lambda-literal-rest-argument")); lf[623]=C_h_intern(&lf[623],48, C_text("chicken.compiler.core#lambda-literal-temporaries")); lf[624]=C_h_intern(&lf[624],26, C_text("lambda-literal-temporaries")); lf[625]=C_h_intern(&lf[625],54, C_text("chicken.compiler.core#lambda-literal-float-temporaries")); lf[626]=C_h_intern(&lf[626],32, C_text("lambda-literal-float-temporaries")); lf[627]=C_h_intern(&lf[627],54, C_text("chicken.compiler.core#lambda-literal-callee-signatures")); lf[628]=C_h_intern(&lf[628],32, C_text("lambda-literal-callee-signatures")); lf[629]=C_h_intern(&lf[629],46, C_text("chicken.compiler.core#lambda-literal-allocated")); lf[630]=C_h_intern(&lf[630],24, C_text("lambda-literal-allocated")); lf[631]=C_h_intern(&lf[631],49, C_text("chicken.compiler.core#lambda-literal-closure-size")); lf[632]=C_h_intern(&lf[632],27, C_text("lambda-literal-closure-size")); lf[633]=C_h_intern(&lf[633],44, C_text("chicken.compiler.core#lambda-literal-looping")); lf[634]=C_h_intern(&lf[634],22, C_text("lambda-literal-looping")); lf[635]=C_h_intern(&lf[635],49, C_text("chicken.compiler.core#lambda-literal-customizable")); lf[636]=C_h_intern(&lf[636],27, C_text("lambda-literal-customizable")); lf[637]=C_h_intern(&lf[637],55, C_text("chicken.compiler.core#lambda-literal-rest-argument-mode")); lf[638]=C_h_intern(&lf[638],33, C_text("lambda-literal-rest-argument-mode")); lf[639]=C_h_intern(&lf[639],41, C_text("chicken.compiler.core#lambda-literal-body")); lf[640]=C_h_intern(&lf[640],19, C_text("lambda-literal-body")); lf[641]=C_h_intern(&lf[641],43, C_text("chicken.compiler.core#lambda-literal-direct")); lf[642]=C_h_intern(&lf[642],21, C_text("lambda-literal-direct")); lf[643]=C_h_intern(&lf[643],49, C_text("chicken.compiler.core#prepare-for-code-generation")); lf[644]=C_h_intern(&lf[644],12, C_text("##core#local")); lf[645]=C_h_intern(&lf[645],14, C_text("##core#literal")); lf[646]=C_h_intern(&lf[646],13, C_text("##core#global")); lf[647]=C_h_intern(&lf[647],12, C_text("C_DEBUG_CALL")); lf[648]=C_h_intern(&lf[648],42, C_text("chicken.compiler.support#source-info->name")); lf[649]=C_h_intern(&lf[649],42, C_text("chicken.compiler.support#source-info->line")); lf[650]=C_decode_literal(C_heaptop,C_text("\376B\000\000!identified direct recursive calls")); lf[651]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021bad direct lambda")); lf[652]=C_h_intern(&lf[652],4, C_text("none")); lf[653]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024unused rest argument")); lf[654]=C_h_intern(&lf[654],18, C_text("##sys#fast-reverse")); lf[655]=C_h_intern(&lf[655],20, C_text("chicken.base#butlast")); lf[656]=C_h_intern(&lf[656],11, C_text("##core#bind")); lf[657]=C_h_intern(&lf[657],15, C_text("##core#setlocal")); lf[658]=C_h_intern(&lf[658],18, C_text("##core#setglobal_i")); lf[659]=C_h_intern(&lf[659],16, C_text("##core#setglobal")); lf[660]=C_h_intern(&lf[660],21, C_text("scheme#inexact->exact")); lf[661]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014\047 to fixnum ")); lf[662]=C_decode_literal(C_heaptop,C_text("\376B\000\000 coerced inexact literal number `")); lf[663]=C_decode_literal(C_heaptop,C_text("\376B\000\000,cannot coerce inexact literal `~S\047 to fixnum")); lf[664]=C_h_intern(&lf[664],36, C_text("chicken.compiler.support#big-fixnum\077")); lf[665]=C_h_intern(&lf[665],10, C_text("scheme#max")); lf[666]=C_h_intern(&lf[666],52, C_text("chicken.compiler.support#make-block-variable-literal")); lf[667]=C_h_intern(&lf[667],52, C_text("chicken.compiler.support#block-variable-literal-name")); lf[668]=C_h_intern(&lf[668],48, C_text("chicken.compiler.support#block-variable-literal\077")); lf[669]=C_h_intern(&lf[669],21, C_text("##sys#undefined-value")); lf[670]=C_h_intern(&lf[670],16, C_text("##core#immediate")); lf[671]=C_h_intern(&lf[671],3, C_text("fix")); lf[672]=C_h_intern(&lf[672],4, C_text("bool")); lf[673]=C_h_intern(&lf[673],4, C_text("char")); lf[674]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001nil\376\377\016")); lf[675]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001eof\376\377\016")); lf[676]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027bad immediate (prepare)")); lf[677]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027fast global assignments")); lf[678]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026fast global references")); lf[679]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030fast box initializations")); lf[680]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024preparation phase...")); C_register_lf2(lf,681,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6075,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* va25317 in k20831 in k20822 in k20819 in k20816 in walk in k20705 in chicken.compiler.core#prepare-for-code-generation in k6100 in k6097 in k6094 in k6091 in k6088 in k6085 in k6082 in k6079 in k6076 in k6073 */ static void C_fcall va25317(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,6)))){ C_save_and_reclaim_args((void *)trva25317,2,t0,t1);} a=C_alloc(33); t2=C_s_a_i_plus(&a,2,t1,C_fix(1)); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21009,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* core.scm:2819: mapwalk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_22024(t5,t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[1452] = { {C_text("f24314:core_2escm"),(void*)f24314}, {C_text("f24318:core_2escm"),(void*)f24318}, {C_text("f24617:core_2escm"),(void*)f24617}, {C_text("f_10003:core_2escm"),(void*)f_10003}, {C_text("f_10007:core_2escm"),(void*)f_10007}, {C_text("f_10028:core_2escm"),(void*)f_10028}, {C_text("f_10031:core_2escm"),(void*)f_10031}, {C_text("f_10039:core_2escm"),(void*)f_10039}, {C_text("f_10061:core_2escm"),(void*)f_10061}, {C_text("f_10071:core_2escm"),(void*)f_10071}, {C_text("f_10084:core_2escm"),(void*)f_10084}, {C_text("f_10092:core_2escm"),(void*)f_10092}, {C_text("f_10098:core_2escm"),(void*)f_10098}, {C_text("f_10120:core_2escm"),(void*)f_10120}, {C_text("f_10130:core_2escm"),(void*)f_10130}, {C_text("f_10143:core_2escm"),(void*)f_10143}, {C_text("f_10168:core_2escm"),(void*)f_10168}, {C_text("f_10186:core_2escm"),(void*)f_10186}, {C_text("f_10191:core_2escm"),(void*)f_10191}, {C_text("f_10205:core_2escm"),(void*)f_10205}, {C_text("f_10213:core_2escm"),(void*)f_10213}, {C_text("f_10223:core_2escm"),(void*)f_10223}, {C_text("f_10236:core_2escm"),(void*)f_10236}, {C_text("f_10257:core_2escm"),(void*)f_10257}, {C_text("f_10269:core_2escm"),(void*)f_10269}, {C_text("f_10271:core_2escm"),(void*)f_10271}, {C_text("f_10285:core_2escm"),(void*)f_10285}, {C_text("f_10310:core_2escm"),(void*)f_10310}, {C_text("f_10326:core_2escm"),(void*)f_10326}, {C_text("f_10332:core_2escm"),(void*)f_10332}, {C_text("f_10338:core_2escm"),(void*)f_10338}, {C_text("f_10341:core_2escm"),(void*)f_10341}, {C_text("f_10346:core_2escm"),(void*)f_10346}, {C_text("f_10350:core_2escm"),(void*)f_10350}, {C_text("f_10353:core_2escm"),(void*)f_10353}, {C_text("f_10358:core_2escm"),(void*)f_10358}, {C_text("f_10362:core_2escm"),(void*)f_10362}, {C_text("f_10365:core_2escm"),(void*)f_10365}, {C_text("f_10368:core_2escm"),(void*)f_10368}, {C_text("f_10371:core_2escm"),(void*)f_10371}, {C_text("f_10375:core_2escm"),(void*)f_10375}, {C_text("f_10379:core_2escm"),(void*)f_10379}, {C_text("f_10383:core_2escm"),(void*)f_10383}, {C_text("f_10387:core_2escm"),(void*)f_10387}, {C_text("f_10390:core_2escm"),(void*)f_10390}, {C_text("f_10393:core_2escm"),(void*)f_10393}, {C_text("f_10396:core_2escm"),(void*)f_10396}, {C_text("f_10399:core_2escm"),(void*)f_10399}, {C_text("f_10414:core_2escm"),(void*)f_10414}, {C_text("f_10420:core_2escm"),(void*)f_10420}, {C_text("f_10430:core_2escm"),(void*)f_10430}, {C_text("f_10440:core_2escm"),(void*)f_10440}, {C_text("f_10443:core_2escm"),(void*)f_10443}, {C_text("f_10453:core_2escm"),(void*)f_10453}, {C_text("f_10457:core_2escm"),(void*)f_10457}, {C_text("f_10474:core_2escm"),(void*)f_10474}, {C_text("f_10490:core_2escm"),(void*)f_10490}, {C_text("f_10497:core_2escm"),(void*)f_10497}, {C_text("f_10501:core_2escm"),(void*)f_10501}, {C_text("f_10505:core_2escm"),(void*)f_10505}, {C_text("f_10507:core_2escm"),(void*)f_10507}, {C_text("f_10513:core_2escm"),(void*)f_10513}, {C_text("f_10519:core_2escm"),(void*)f_10519}, {C_text("f_10523:core_2escm"),(void*)f_10523}, {C_text("f_10528:core_2escm"),(void*)f_10528}, {C_text("f_10534:core_2escm"),(void*)f_10534}, {C_text("f_10542:core_2escm"),(void*)f_10542}, {C_text("f_10544:core_2escm"),(void*)f_10544}, {C_text("f_10550:core_2escm"),(void*)f_10550}, {C_text("f_10569:core_2escm"),(void*)f_10569}, {C_text("f_10573:core_2escm"),(void*)f_10573}, {C_text("f_10577:core_2escm"),(void*)f_10577}, {C_text("f_10580:core_2escm"),(void*)f_10580}, {C_text("f_10583:core_2escm"),(void*)f_10583}, {C_text("f_10586:core_2escm"),(void*)f_10586}, {C_text("f_10589:core_2escm"),(void*)f_10589}, {C_text("f_10592:core_2escm"),(void*)f_10592}, {C_text("f_10595:core_2escm"),(void*)f_10595}, {C_text("f_10598:core_2escm"),(void*)f_10598}, {C_text("f_10604:core_2escm"),(void*)f_10604}, {C_text("f_10608:core_2escm"),(void*)f_10608}, {C_text("f_10611:core_2escm"),(void*)f_10611}, {C_text("f_10614:core_2escm"),(void*)f_10614}, {C_text("f_10624:core_2escm"),(void*)f_10624}, {C_text("f_10640:core_2escm"),(void*)f_10640}, {C_text("f_10644:core_2escm"),(void*)f_10644}, {C_text("f_10647:core_2escm"),(void*)f_10647}, {C_text("f_10650:core_2escm"),(void*)f_10650}, {C_text("f_10652:core_2escm"),(void*)f_10652}, {C_text("f_10656:core_2escm"),(void*)f_10656}, {C_text("f_10659:core_2escm"),(void*)f_10659}, {C_text("f_10662:core_2escm"),(void*)f_10662}, {C_text("f_10666:core_2escm"),(void*)f_10666}, {C_text("f_10670:core_2escm"),(void*)f_10670}, {C_text("f_10674:core_2escm"),(void*)f_10674}, {C_text("f_10677:core_2escm"),(void*)f_10677}, {C_text("f_10680:core_2escm"),(void*)f_10680}, {C_text("f_10683:core_2escm"),(void*)f_10683}, {C_text("f_10695:core_2escm"),(void*)f_10695}, {C_text("f_10700:core_2escm"),(void*)f_10700}, {C_text("f_10712:core_2escm"),(void*)f_10712}, {C_text("f_10737:core_2escm"),(void*)f_10737}, {C_text("f_10750:core_2escm"),(void*)f_10750}, {C_text("f_10754:core_2escm"),(void*)f_10754}, {C_text("f_10757:core_2escm"),(void*)f_10757}, {C_text("f_10760:core_2escm"),(void*)f_10760}, {C_text("f_10763:core_2escm"),(void*)f_10763}, {C_text("f_10766:core_2escm"),(void*)f_10766}, {C_text("f_10769:core_2escm"),(void*)f_10769}, {C_text("f_10775:core_2escm"),(void*)f_10775}, {C_text("f_10782:core_2escm"),(void*)f_10782}, {C_text("f_10795:core_2escm"),(void*)f_10795}, {C_text("f_10806:core_2escm"),(void*)f_10806}, {C_text("f_10831:core_2escm"),(void*)f_10831}, {C_text("f_10839:core_2escm"),(void*)f_10839}, {C_text("f_10864:core_2escm"),(void*)f_10864}, {C_text("f_10903:core_2escm"),(void*)f_10903}, {C_text("f_10906:core_2escm"),(void*)f_10906}, {C_text("f_10909:core_2escm"),(void*)f_10909}, {C_text("f_10915:core_2escm"),(void*)f_10915}, {C_text("f_10918:core_2escm"),(void*)f_10918}, {C_text("f_10923:core_2escm"),(void*)f_10923}, {C_text("f_10927:core_2escm"),(void*)f_10927}, {C_text("f_10931:core_2escm"),(void*)f_10931}, {C_text("f_10934:core_2escm"),(void*)f_10934}, {C_text("f_10940:core_2escm"),(void*)f_10940}, {C_text("f_10948:core_2escm"),(void*)f_10948}, {C_text("f_10952:core_2escm"),(void*)f_10952}, {C_text("f_10954:core_2escm"),(void*)f_10954}, {C_text("f_10958:core_2escm"),(void*)f_10958}, {C_text("f_10961:core_2escm"),(void*)f_10961}, {C_text("f_10966:core_2escm"),(void*)f_10966}, {C_text("f_10968:core_2escm"),(void*)f_10968}, {C_text("f_10993:core_2escm"),(void*)f_10993}, {C_text("f_11009:core_2escm"),(void*)f_11009}, {C_text("f_11015:core_2escm"),(void*)f_11015}, {C_text("f_11018:core_2escm"),(void*)f_11018}, {C_text("f_11025:core_2escm"),(void*)f_11025}, {C_text("f_11028:core_2escm"),(void*)f_11028}, {C_text("f_11034:core_2escm"),(void*)f_11034}, {C_text("f_11037:core_2escm"),(void*)f_11037}, {C_text("f_11040:core_2escm"),(void*)f_11040}, {C_text("f_11055:core_2escm"),(void*)f_11055}, {C_text("f_11058:core_2escm"),(void*)f_11058}, {C_text("f_11064:core_2escm"),(void*)f_11064}, {C_text("f_11071:core_2escm"),(void*)f_11071}, {C_text("f_11078:core_2escm"),(void*)f_11078}, {C_text("f_11101:core_2escm"),(void*)f_11101}, {C_text("f_11113:core_2escm"),(void*)f_11113}, {C_text("f_11123:core_2escm"),(void*)f_11123}, {C_text("f_11130:core_2escm"),(void*)f_11130}, {C_text("f_11157:core_2escm"),(void*)f_11157}, {C_text("f_11165:core_2escm"),(void*)f_11165}, {C_text("f_11171:core_2escm"),(void*)f_11171}, {C_text("f_11178:core_2escm"),(void*)f_11178}, {C_text("f_11189:core_2escm"),(void*)f_11189}, {C_text("f_11192:core_2escm"),(void*)f_11192}, {C_text("f_11195:core_2escm"),(void*)f_11195}, {C_text("f_11201:core_2escm"),(void*)f_11201}, {C_text("f_11204:core_2escm"),(void*)f_11204}, {C_text("f_11210:core_2escm"),(void*)f_11210}, {C_text("f_11217:core_2escm"),(void*)f_11217}, {C_text("f_11221:core_2escm"),(void*)f_11221}, {C_text("f_11227:core_2escm"),(void*)f_11227}, {C_text("f_11230:core_2escm"),(void*)f_11230}, {C_text("f_11233:core_2escm"),(void*)f_11233}, {C_text("f_11236:core_2escm"),(void*)f_11236}, {C_text("f_11239:core_2escm"),(void*)f_11239}, {C_text("f_11243:core_2escm"),(void*)f_11243}, {C_text("f_11246:core_2escm"),(void*)f_11246}, {C_text("f_11252:core_2escm"),(void*)f_11252}, {C_text("f_11255:core_2escm"),(void*)f_11255}, {C_text("f_11258:core_2escm"),(void*)f_11258}, {C_text("f_11274:core_2escm"),(void*)f_11274}, {C_text("f_11280:core_2escm"),(void*)f_11280}, {C_text("f_11283:core_2escm"),(void*)f_11283}, {C_text("f_11286:core_2escm"),(void*)f_11286}, {C_text("f_11289:core_2escm"),(void*)f_11289}, {C_text("f_11292:core_2escm"),(void*)f_11292}, {C_text("f_11296:core_2escm"),(void*)f_11296}, {C_text("f_11299:core_2escm"),(void*)f_11299}, {C_text("f_11305:core_2escm"),(void*)f_11305}, {C_text("f_11308:core_2escm"),(void*)f_11308}, {C_text("f_11311:core_2escm"),(void*)f_11311}, {C_text("f_11318:core_2escm"),(void*)f_11318}, {C_text("f_11322:core_2escm"),(void*)f_11322}, {C_text("f_11345:core_2escm"),(void*)f_11345}, {C_text("f_11358:core_2escm"),(void*)f_11358}, {C_text("f_11364:core_2escm"),(void*)f_11364}, {C_text("f_11367:core_2escm"),(void*)f_11367}, {C_text("f_11370:core_2escm"),(void*)f_11370}, {C_text("f_11373:core_2escm"),(void*)f_11373}, {C_text("f_11376:core_2escm"),(void*)f_11376}, {C_text("f_11380:core_2escm"),(void*)f_11380}, {C_text("f_11383:core_2escm"),(void*)f_11383}, {C_text("f_11389:core_2escm"),(void*)f_11389}, {C_text("f_11392:core_2escm"),(void*)f_11392}, {C_text("f_11395:core_2escm"),(void*)f_11395}, {C_text("f_11424:core_2escm"),(void*)f_11424}, {C_text("f_11432:core_2escm"),(void*)f_11432}, {C_text("f_11440:core_2escm"),(void*)f_11440}, {C_text("f_11442:core_2escm"),(void*)f_11442}, {C_text("f_11467:core_2escm"),(void*)f_11467}, {C_text("f_11491:core_2escm"),(void*)f_11491}, {C_text("f_11495:core_2escm"),(void*)f_11495}, {C_text("f_11529:core_2escm"),(void*)f_11529}, {C_text("f_11533:core_2escm"),(void*)f_11533}, {C_text("f_11539:core_2escm"),(void*)f_11539}, {C_text("f_11564:core_2escm"),(void*)f_11564}, {C_text("f_11588:core_2escm"),(void*)f_11588}, {C_text("f_11609:core_2escm"),(void*)f_11609}, {C_text("f_11613:core_2escm"),(void*)f_11613}, {C_text("f_11636:core_2escm"),(void*)f_11636}, {C_text("f_11651:core_2escm"),(void*)f_11651}, {C_text("f_11674:core_2escm"),(void*)f_11674}, {C_text("f_11678:core_2escm"),(void*)f_11678}, {C_text("f_11696:core_2escm"),(void*)f_11696}, {C_text("f_11703:core_2escm"),(void*)f_11703}, {C_text("f_11707:core_2escm"),(void*)f_11707}, {C_text("f_11722:core_2escm"),(void*)f_11722}, {C_text("f_11735:core_2escm"),(void*)f_11735}, {C_text("f_11748:core_2escm"),(void*)f_11748}, {C_text("f_11761:core_2escm"),(void*)f_11761}, {C_text("f_11774:core_2escm"),(void*)f_11774}, {C_text("f_11783:core_2escm"),(void*)f_11783}, {C_text("f_11786:core_2escm"),(void*)f_11786}, {C_text("f_11789:core_2escm"),(void*)f_11789}, {C_text("f_11830:core_2escm"),(void*)f_11830}, {C_text("f_11836:core_2escm"),(void*)f_11836}, {C_text("f_11845:core_2escm"),(void*)f_11845}, {C_text("f_11848:core_2escm"),(void*)f_11848}, {C_text("f_11851:core_2escm"),(void*)f_11851}, {C_text("f_11854:core_2escm"),(void*)f_11854}, {C_text("f_11857:core_2escm"),(void*)f_11857}, {C_text("f_11860:core_2escm"),(void*)f_11860}, {C_text("f_11863:core_2escm"),(void*)f_11863}, {C_text("f_11866:core_2escm"),(void*)f_11866}, {C_text("f_11869:core_2escm"),(void*)f_11869}, {C_text("f_11884:core_2escm"),(void*)f_11884}, {C_text("f_11904:core_2escm"),(void*)f_11904}, {C_text("f_11908:core_2escm"),(void*)f_11908}, {C_text("f_11911:core_2escm"),(void*)f_11911}, {C_text("f_11918:core_2escm"),(void*)f_11918}, {C_text("f_11921:core_2escm"),(void*)f_11921}, {C_text("f_11927:core_2escm"),(void*)f_11927}, {C_text("f_11930:core_2escm"),(void*)f_11930}, {C_text("f_11933:core_2escm"),(void*)f_11933}, {C_text("f_11952:core_2escm"),(void*)f_11952}, {C_text("f_11955:core_2escm"),(void*)f_11955}, {C_text("f_11964:core_2escm"),(void*)f_11964}, {C_text("f_11967:core_2escm"),(void*)f_11967}, {C_text("f_11970:core_2escm"),(void*)f_11970}, {C_text("f_11990:core_2escm"),(void*)f_11990}, {C_text("f_11998:core_2escm"),(void*)f_11998}, {C_text("f_12009:core_2escm"),(void*)f_12009}, {C_text("f_12012:core_2escm"),(void*)f_12012}, {C_text("f_12018:core_2escm"),(void*)f_12018}, {C_text("f_12021:core_2escm"),(void*)f_12021}, {C_text("f_12024:core_2escm"),(void*)f_12024}, {C_text("f_12039:core_2escm"),(void*)f_12039}, {C_text("f_12042:core_2escm"),(void*)f_12042}, {C_text("f_12045:core_2escm"),(void*)f_12045}, {C_text("f_12048:core_2escm"),(void*)f_12048}, {C_text("f_12051:core_2escm"),(void*)f_12051}, {C_text("f_12063:core_2escm"),(void*)f_12063}, {C_text("f_12067:core_2escm"),(void*)f_12067}, {C_text("f_12071:core_2escm"),(void*)f_12071}, {C_text("f_12074:core_2escm"),(void*)f_12074}, {C_text("f_12080:core_2escm"),(void*)f_12080}, {C_text("f_12100:core_2escm"),(void*)f_12100}, {C_text("f_12104:core_2escm"),(void*)f_12104}, {C_text("f_12129:core_2escm"),(void*)f_12129}, {C_text("f_12152:core_2escm"),(void*)f_12152}, {C_text("f_12154:core_2escm"),(void*)f_12154}, {C_text("f_12158:core_2escm"),(void*)f_12158}, {C_text("f_12161:core_2escm"),(void*)f_12161}, {C_text("f_12166:core_2escm"),(void*)f_12166}, {C_text("f_12199:core_2escm"),(void*)f_12199}, {C_text("f_12202:core_2escm"),(void*)f_12202}, {C_text("f_12205:core_2escm"),(void*)f_12205}, {C_text("f_12212:core_2escm"),(void*)f_12212}, {C_text("f_12215:core_2escm"),(void*)f_12215}, {C_text("f_12221:core_2escm"),(void*)f_12221}, {C_text("f_12224:core_2escm"),(void*)f_12224}, {C_text("f_12227:core_2escm"),(void*)f_12227}, {C_text("f_12234:core_2escm"),(void*)f_12234}, {C_text("f_12246:core_2escm"),(void*)f_12246}, {C_text("f_12252:core_2escm"),(void*)f_12252}, {C_text("f_12255:core_2escm"),(void*)f_12255}, {C_text("f_12258:core_2escm"),(void*)f_12258}, {C_text("f_12268:core_2escm"),(void*)f_12268}, {C_text("f_12271:core_2escm"),(void*)f_12271}, {C_text("f_12281:core_2escm"),(void*)f_12281}, {C_text("f_12284:core_2escm"),(void*)f_12284}, {C_text("f_12287:core_2escm"),(void*)f_12287}, {C_text("f_12290:core_2escm"),(void*)f_12290}, {C_text("f_12293:core_2escm"),(void*)f_12293}, {C_text("f_12296:core_2escm"),(void*)f_12296}, {C_text("f_12314:core_2escm"),(void*)f_12314}, {C_text("f_12317:core_2escm"),(void*)f_12317}, {C_text("f_12323:core_2escm"),(void*)f_12323}, {C_text("f_12326:core_2escm"),(void*)f_12326}, {C_text("f_12329:core_2escm"),(void*)f_12329}, {C_text("f_12347:core_2escm"),(void*)f_12347}, {C_text("f_12350:core_2escm"),(void*)f_12350}, {C_text("f_12356:core_2escm"),(void*)f_12356}, {C_text("f_12359:core_2escm"),(void*)f_12359}, {C_text("f_12362:core_2escm"),(void*)f_12362}, {C_text("f_12367:core_2escm"),(void*)f_12367}, {C_text("f_12373:core_2escm"),(void*)f_12373}, {C_text("f_12379:core_2escm"),(void*)f_12379}, {C_text("f_12385:core_2escm"),(void*)f_12385}, {C_text("f_12391:core_2escm"),(void*)f_12391}, {C_text("f_12398:core_2escm"),(void*)f_12398}, {C_text("f_12417:core_2escm"),(void*)f_12417}, {C_text("f_12423:core_2escm"),(void*)f_12423}, {C_text("f_12436:core_2escm"),(void*)f_12436}, {C_text("f_12441:core_2escm"),(void*)f_12441}, {C_text("f_12445:core_2escm"),(void*)f_12445}, {C_text("f_12449:core_2escm"),(void*)f_12449}, {C_text("f_12452:core_2escm"),(void*)f_12452}, {C_text("f_12458:core_2escm"),(void*)f_12458}, {C_text("f_12471:core_2escm"),(void*)f_12471}, {C_text("f_12477:core_2escm"),(void*)f_12477}, {C_text("f_12485:core_2escm"),(void*)f_12485}, {C_text("f_12494:core_2escm"),(void*)f_12494}, {C_text("f_12496:core_2escm"),(void*)f_12496}, {C_text("f_12521:core_2escm"),(void*)f_12521}, {C_text("f_12530:core_2escm"),(void*)f_12530}, {C_text("f_12534:core_2escm"),(void*)f_12534}, {C_text("f_12537:core_2escm"),(void*)f_12537}, {C_text("f_12549:core_2escm"),(void*)f_12549}, {C_text("f_12559:core_2escm"),(void*)f_12559}, {C_text("f_12569:core_2escm"),(void*)f_12569}, {C_text("f_12581:core_2escm"),(void*)f_12581}, {C_text("f_12584:core_2escm"),(void*)f_12584}, {C_text("f_12591:core_2escm"),(void*)f_12591}, {C_text("f_12595:core_2escm"),(void*)f_12595}, {C_text("f_12603:core_2escm"),(void*)f_12603}, {C_text("f_12615:core_2escm"),(void*)f_12615}, {C_text("f_12619:core_2escm"),(void*)f_12619}, {C_text("f_12631:core_2escm"),(void*)f_12631}, {C_text("f_12691:core_2escm"),(void*)f_12691}, {C_text("f_12720:core_2escm"),(void*)f_12720}, {C_text("f_12744:core_2escm"),(void*)f_12744}, {C_text("f_12752:core_2escm"),(void*)f_12752}, {C_text("f_12756:core_2escm"),(void*)f_12756}, {C_text("f_12760:core_2escm"),(void*)f_12760}, {C_text("f_12801:core_2escm"),(void*)f_12801}, {C_text("f_12812:core_2escm"),(void*)f_12812}, {C_text("f_12819:core_2escm"),(void*)f_12819}, {C_text("f_12822:core_2escm"),(void*)f_12822}, {C_text("f_12828:core_2escm"),(void*)f_12828}, {C_text("f_12831:core_2escm"),(void*)f_12831}, {C_text("f_12834:core_2escm"),(void*)f_12834}, {C_text("f_12871:core_2escm"),(void*)f_12871}, {C_text("f_12897:core_2escm"),(void*)f_12897}, {C_text("f_12925:core_2escm"),(void*)f_12925}, {C_text("f_12940:core_2escm"),(void*)f_12940}, {C_text("f_12957:core_2escm"),(void*)f_12957}, {C_text("f_12963:core_2escm"),(void*)f_12963}, {C_text("f_12966:core_2escm"),(void*)f_12966}, {C_text("f_12986:core_2escm"),(void*)f_12986}, {C_text("f_12991:core_2escm"),(void*)f_12991}, {C_text("f_12997:core_2escm"),(void*)f_12997}, {C_text("f_13132:core_2escm"),(void*)f_13132}, {C_text("f_13137:core_2escm"),(void*)f_13137}, {C_text("f_13145:core_2escm"),(void*)f_13145}, {C_text("f_13147:core_2escm"),(void*)f_13147}, {C_text("f_13165:core_2escm"),(void*)f_13165}, {C_text("f_13171:core_2escm"),(void*)f_13171}, {C_text("f_13174:core_2escm"),(void*)f_13174}, {C_text("f_13177:core_2escm"),(void*)f_13177}, {C_text("f_13180:core_2escm"),(void*)f_13180}, {C_text("f_13198:core_2escm"),(void*)f_13198}, {C_text("f_13201:core_2escm"),(void*)f_13201}, {C_text("f_13204:core_2escm"),(void*)f_13204}, {C_text("f_13210:core_2escm"),(void*)f_13210}, {C_text("f_13213:core_2escm"),(void*)f_13213}, {C_text("f_13252:core_2escm"),(void*)f_13252}, {C_text("f_13257:core_2escm"),(void*)f_13257}, {C_text("f_13269:core_2escm"),(void*)f_13269}, {C_text("f_13294:core_2escm"),(void*)f_13294}, {C_text("f_13304:core_2escm"),(void*)f_13304}, {C_text("f_13315:core_2escm"),(void*)f_13315}, {C_text("f_13319:core_2escm"),(void*)f_13319}, {C_text("f_13329:core_2escm"),(void*)f_13329}, {C_text("f_13335:core_2escm"),(void*)f_13335}, {C_text("f_13340:core_2escm"),(void*)f_13340}, {C_text("f_13343:core_2escm"),(void*)f_13343}, {C_text("f_13378:core_2escm"),(void*)f_13378}, {C_text("f_13385:core_2escm"),(void*)f_13385}, {C_text("f_13391:core_2escm"),(void*)f_13391}, {C_text("f_13398:core_2escm"),(void*)f_13398}, {C_text("f_13401:core_2escm"),(void*)f_13401}, {C_text("f_13406:core_2escm"),(void*)f_13406}, {C_text("f_13414:core_2escm"),(void*)f_13414}, {C_text("f_13420:core_2escm"),(void*)f_13420}, {C_text("f_13423:core_2escm"),(void*)f_13423}, {C_text("f_13426:core_2escm"),(void*)f_13426}, {C_text("f_13429:core_2escm"),(void*)f_13429}, {C_text("f_13434:core_2escm"),(void*)f_13434}, {C_text("f_13438:core_2escm"),(void*)f_13438}, {C_text("f_13441:core_2escm"),(void*)f_13441}, {C_text("f_13444:core_2escm"),(void*)f_13444}, {C_text("f_13450:core_2escm"),(void*)f_13450}, {C_text("f_13460:core_2escm"),(void*)f_13460}, {C_text("f_13464:core_2escm"),(void*)f_13464}, {C_text("f_13469:core_2escm"),(void*)f_13469}, {C_text("f_13475:core_2escm"),(void*)f_13475}, {C_text("f_13480:core_2escm"),(void*)f_13480}, {C_text("f_13491:core_2escm"),(void*)f_13491}, {C_text("f_13494:core_2escm"),(void*)f_13494}, {C_text("f_13497:core_2escm"),(void*)f_13497}, {C_text("f_13502:core_2escm"),(void*)f_13502}, {C_text("f_13533:core_2escm"),(void*)f_13533}, {C_text("f_13537:core_2escm"),(void*)f_13537}, {C_text("f_13558:core_2escm"),(void*)f_13558}, {C_text("f_13562:core_2escm"),(void*)f_13562}, {C_text("f_13583:core_2escm"),(void*)f_13583}, {C_text("f_13587:core_2escm"),(void*)f_13587}, {C_text("f_13591:core_2escm"),(void*)f_13591}, {C_text("f_13604:core_2escm"),(void*)f_13604}, {C_text("f_13608:core_2escm"),(void*)f_13608}, {C_text("f_13685:core_2escm"),(void*)f_13685}, {C_text("f_13693:core_2escm"),(void*)f_13693}, {C_text("f_13703:core_2escm"),(void*)f_13703}, {C_text("f_13737:core_2escm"),(void*)f_13737}, {C_text("f_13743:core_2escm"),(void*)f_13743}, {C_text("f_13751:core_2escm"),(void*)f_13751}, {C_text("f_13759:core_2escm"),(void*)f_13759}, {C_text("f_13769:core_2escm"),(void*)f_13769}, {C_text("f_13782:core_2escm"),(void*)f_13782}, {C_text("f_13792:core_2escm"),(void*)f_13792}, {C_text("f_13819:core_2escm"),(void*)f_13819}, {C_text("f_13830:core_2escm"),(void*)f_13830}, {C_text("f_13840:core_2escm"),(void*)f_13840}, {C_text("f_13850:core_2escm"),(void*)f_13850}, {C_text("f_13863:core_2escm"),(void*)f_13863}, {C_text("f_13873:core_2escm"),(void*)f_13873}, {C_text("f_13899:core_2escm"),(void*)f_13899}, {C_text("f_13903:core_2escm"),(void*)f_13903}, {C_text("f_13941:core_2escm"),(void*)f_13941}, {C_text("f_13949:core_2escm"),(void*)f_13949}, {C_text("f_13959:core_2escm"),(void*)f_13959}, {C_text("f_13986:core_2escm"),(void*)f_13986}, {C_text("f_13994:core_2escm"),(void*)f_13994}, {C_text("f_14004:core_2escm"),(void*)f_14004}, {C_text("f_14026:core_2escm"),(void*)f_14026}, {C_text("f_14029:core_2escm"),(void*)f_14029}, {C_text("f_14046:core_2escm"),(void*)f_14046}, {C_text("f_14050:core_2escm"),(void*)f_14050}, {C_text("f_14074:core_2escm"),(void*)f_14074}, {C_text("f_14078:core_2escm"),(void*)f_14078}, {C_text("f_14106:core_2escm"),(void*)f_14106}, {C_text("f_14114:core_2escm"),(void*)f_14114}, {C_text("f_14124:core_2escm"),(void*)f_14124}, {C_text("f_14159:core_2escm"),(void*)f_14159}, {C_text("f_14163:core_2escm"),(void*)f_14163}, {C_text("f_14167:core_2escm"),(void*)f_14167}, {C_text("f_14195:core_2escm"),(void*)f_14195}, {C_text("f_14203:core_2escm"),(void*)f_14203}, {C_text("f_14213:core_2escm"),(void*)f_14213}, {C_text("f_14234:core_2escm"),(void*)f_14234}, {C_text("f_14237:core_2escm"),(void*)f_14237}, {C_text("f_14286:core_2escm"),(void*)f_14286}, {C_text("f_14301:core_2escm"),(void*)f_14301}, {C_text("f_14311:core_2escm"),(void*)f_14311}, {C_text("f_14334:core_2escm"),(void*)f_14334}, {C_text("f_14342:core_2escm"),(void*)f_14342}, {C_text("f_14352:core_2escm"),(void*)f_14352}, {C_text("f_14393:core_2escm"),(void*)f_14393}, {C_text("f_14401:core_2escm"),(void*)f_14401}, {C_text("f_14411:core_2escm"),(void*)f_14411}, {C_text("f_14435:core_2escm"),(void*)f_14435}, {C_text("f_14461:core_2escm"),(void*)f_14461}, {C_text("f_14469:core_2escm"),(void*)f_14469}, {C_text("f_14477:core_2escm"),(void*)f_14477}, {C_text("f_14487:core_2escm"),(void*)f_14487}, {C_text("f_14511:core_2escm"),(void*)f_14511}, {C_text("f_14530:core_2escm"),(void*)f_14530}, {C_text("f_14534:core_2escm"),(void*)f_14534}, {C_text("f_14541:core_2escm"),(void*)f_14541}, {C_text("f_14587:core_2escm"),(void*)f_14587}, {C_text("f_14593:core_2escm"),(void*)f_14593}, {C_text("f_14595:core_2escm"),(void*)f_14595}, {C_text("f_14620:core_2escm"),(void*)f_14620}, {C_text("f_14652:core_2escm"),(void*)f_14652}, {C_text("f_14660:core_2escm"),(void*)f_14660}, {C_text("f_14670:core_2escm"),(void*)f_14670}, {C_text("f_14706:core_2escm"),(void*)f_14706}, {C_text("f_14714:core_2escm"),(void*)f_14714}, {C_text("f_14724:core_2escm"),(void*)f_14724}, {C_text("f_14761:core_2escm"),(void*)f_14761}, {C_text("f_14769:core_2escm"),(void*)f_14769}, {C_text("f_14779:core_2escm"),(void*)f_14779}, {C_text("f_14801:core_2escm"),(void*)f_14801}, {C_text("f_14808:core_2escm"),(void*)f_14808}, {C_text("f_14815:core_2escm"),(void*)f_14815}, {C_text("f_14818:core_2escm"),(void*)f_14818}, {C_text("f_14821:core_2escm"),(void*)f_14821}, {C_text("f_14827:core_2escm"),(void*)f_14827}, {C_text("f_14837:core_2escm"),(void*)f_14837}, {C_text("f_14843:core_2escm"),(void*)f_14843}, {C_text("f_14850:core_2escm"),(void*)f_14850}, {C_text("f_14853:core_2escm"),(void*)f_14853}, {C_text("f_14856:core_2escm"),(void*)f_14856}, {C_text("f_14859:core_2escm"),(void*)f_14859}, {C_text("f_14862:core_2escm"),(void*)f_14862}, {C_text("f_14875:core_2escm"),(void*)f_14875}, {C_text("f_14923:core_2escm"),(void*)f_14923}, {C_text("f_14965:core_2escm"),(void*)f_14965}, {C_text("f_14975:core_2escm"),(void*)f_14975}, {C_text("f_14993:core_2escm"),(void*)f_14993}, {C_text("f_15000:core_2escm"),(void*)f_15000}, {C_text("f_15003:core_2escm"),(void*)f_15003}, {C_text("f_15006:core_2escm"),(void*)f_15006}, {C_text("f_15012:core_2escm"),(void*)f_15012}, {C_text("f_15022:core_2escm"),(void*)f_15022}, {C_text("f_15028:core_2escm"),(void*)f_15028}, {C_text("f_15087:core_2escm"),(void*)f_15087}, {C_text("f_15097:core_2escm"),(void*)f_15097}, {C_text("f_15227:core_2escm"),(void*)f_15227}, {C_text("f_15234:core_2escm"),(void*)f_15234}, {C_text("f_15257:core_2escm"),(void*)f_15257}, {C_text("f_15266:core_2escm"),(void*)f_15266}, {C_text("f_15275:core_2escm"),(void*)f_15275}, {C_text("f_15284:core_2escm"),(void*)f_15284}, {C_text("f_15293:core_2escm"),(void*)f_15293}, {C_text("f_15302:core_2escm"),(void*)f_15302}, {C_text("f_15311:core_2escm"),(void*)f_15311}, {C_text("f_15320:core_2escm"),(void*)f_15320}, {C_text("f_15329:core_2escm"),(void*)f_15329}, {C_text("f_15338:core_2escm"),(void*)f_15338}, {C_text("f_15367:core_2escm"),(void*)f_15367}, {C_text("f_15371:core_2escm"),(void*)f_15371}, {C_text("f_15416:core_2escm"),(void*)f_15416}, {C_text("f_15419:core_2escm"),(void*)f_15419}, {C_text("f_15422:core_2escm"),(void*)f_15422}, {C_text("f_15425:core_2escm"),(void*)f_15425}, {C_text("f_15428:core_2escm"),(void*)f_15428}, {C_text("f_15431:core_2escm"),(void*)f_15431}, {C_text("f_15434:core_2escm"),(void*)f_15434}, {C_text("f_15444:core_2escm"),(void*)f_15444}, {C_text("f_15456:core_2escm"),(void*)f_15456}, {C_text("f_15465:core_2escm"),(void*)f_15465}, {C_text("f_15476:core_2escm"),(void*)f_15476}, {C_text("f_15488:core_2escm"),(void*)f_15488}, {C_text("f_15496:core_2escm"),(void*)f_15496}, {C_text("f_15503:core_2escm"),(void*)f_15503}, {C_text("f_15506:core_2escm"),(void*)f_15506}, {C_text("f_15517:core_2escm"),(void*)f_15517}, {C_text("f_15521:core_2escm"),(void*)f_15521}, {C_text("f_15525:core_2escm"),(void*)f_15525}, {C_text("f_15551:core_2escm"),(void*)f_15551}, {C_text("f_15580:core_2escm"),(void*)f_15580}, {C_text("f_15621:core_2escm"),(void*)f_15621}, {C_text("f_15632:core_2escm"),(void*)f_15632}, {C_text("f_15657:core_2escm"),(void*)f_15657}, {C_text("f_15676:core_2escm"),(void*)f_15676}, {C_text("f_15684:core_2escm"),(void*)f_15684}, {C_text("f_15709:core_2escm"),(void*)f_15709}, {C_text("f_15718:core_2escm"),(void*)f_15718}, {C_text("f_15725:core_2escm"),(void*)f_15725}, {C_text("f_15744:core_2escm"),(void*)f_15744}, {C_text("f_15755:core_2escm"),(void*)f_15755}, {C_text("f_15765:core_2escm"),(void*)f_15765}, {C_text("f_15779:core_2escm"),(void*)f_15779}, {C_text("f_15785:core_2escm"),(void*)f_15785}, {C_text("f_15791:core_2escm"),(void*)f_15791}, {C_text("f_15796:core_2escm"),(void*)f_15796}, {C_text("f_15830:core_2escm"),(void*)f_15830}, {C_text("f_15872:core_2escm"),(void*)f_15872}, {C_text("f_15878:core_2escm"),(void*)f_15878}, {C_text("f_15881:core_2escm"),(void*)f_15881}, {C_text("f_15895:core_2escm"),(void*)f_15895}, {C_text("f_15901:core_2escm"),(void*)f_15901}, {C_text("f_15907:core_2escm"),(void*)f_15907}, {C_text("f_15912:core_2escm"),(void*)f_15912}, {C_text("f_15946:core_2escm"),(void*)f_15946}, {C_text("f_16024:core_2escm"),(void*)f_16024}, {C_text("f_16030:core_2escm"),(void*)f_16030}, {C_text("f_16040:core_2escm"),(void*)f_16040}, {C_text("f_16049:core_2escm"),(void*)f_16049}, {C_text("f_16066:core_2escm"),(void*)f_16066}, {C_text("f_16072:core_2escm"),(void*)f_16072}, {C_text("f_16103:core_2escm"),(void*)f_16103}, {C_text("f_16106:core_2escm"),(void*)f_16106}, {C_text("f_16110:core_2escm"),(void*)f_16110}, {C_text("f_16117:core_2escm"),(void*)f_16117}, {C_text("f_16129:core_2escm"),(void*)f_16129}, {C_text("f_16135:core_2escm"),(void*)f_16135}, {C_text("f_16151:core_2escm"),(void*)f_16151}, {C_text("f_16157:core_2escm"),(void*)f_16157}, {C_text("f_16175:core_2escm"),(void*)f_16175}, {C_text("f_16179:core_2escm"),(void*)f_16179}, {C_text("f_16181:core_2escm"),(void*)f_16181}, {C_text("f_16185:core_2escm"),(void*)f_16185}, {C_text("f_16188:core_2escm"),(void*)f_16188}, {C_text("f_16191:core_2escm"),(void*)f_16191}, {C_text("f_16194:core_2escm"),(void*)f_16194}, {C_text("f_16203:core_2escm"),(void*)f_16203}, {C_text("f_16215:core_2escm"),(void*)f_16215}, {C_text("f_16218:core_2escm"),(void*)f_16218}, {C_text("f_16219:core_2escm"),(void*)f_16219}, {C_text("f_16235:core_2escm"),(void*)f_16235}, {C_text("f_16250:core_2escm"),(void*)f_16250}, {C_text("f_16254:core_2escm"),(void*)f_16254}, {C_text("f_16260:core_2escm"),(void*)f_16260}, {C_text("f_16272:core_2escm"),(void*)f_16272}, {C_text("f_16276:core_2escm"),(void*)f_16276}, {C_text("f_16296:core_2escm"),(void*)f_16296}, {C_text("f_16300:core_2escm"),(void*)f_16300}, {C_text("f_16309:core_2escm"),(void*)f_16309}, {C_text("f_16324:core_2escm"),(void*)f_16324}, {C_text("f_16347:core_2escm"),(void*)f_16347}, {C_text("f_16354:core_2escm"),(void*)f_16354}, {C_text("f_16378:core_2escm"),(void*)f_16378}, {C_text("f_16411:core_2escm"),(void*)f_16411}, {C_text("f_16424:core_2escm"),(void*)f_16424}, {C_text("f_16439:core_2escm"),(void*)f_16439}, {C_text("f_16455:core_2escm"),(void*)f_16455}, {C_text("f_16459:core_2escm"),(void*)f_16459}, {C_text("f_16463:core_2escm"),(void*)f_16463}, {C_text("f_16495:core_2escm"),(void*)f_16495}, {C_text("f_16501:core_2escm"),(void*)f_16501}, {C_text("f_16512:core_2escm"),(void*)f_16512}, {C_text("f_16516:core_2escm"),(void*)f_16516}, {C_text("f_16525:core_2escm"),(void*)f_16525}, {C_text("f_16696:core_2escm"),(void*)f_16696}, {C_text("f_16700:core_2escm"),(void*)f_16700}, {C_text("f_16703:core_2escm"),(void*)f_16703}, {C_text("f_16718:core_2escm"),(void*)f_16718}, {C_text("f_16722:core_2escm"),(void*)f_16722}, {C_text("f_16724:core_2escm"),(void*)f_16724}, {C_text("f_16730:core_2escm"),(void*)f_16730}, {C_text("f_16738:core_2escm"),(void*)f_16738}, {C_text("f_16742:core_2escm"),(void*)f_16742}, {C_text("f_16754:core_2escm"),(void*)f_16754}, {C_text("f_16758:core_2escm"),(void*)f_16758}, {C_text("f_16767:core_2escm"),(void*)f_16767}, {C_text("f_16777:core_2escm"),(void*)f_16777}, {C_text("f_16780:core_2escm"),(void*)f_16780}, {C_text("f_16795:core_2escm"),(void*)f_16795}, {C_text("f_16799:core_2escm"),(void*)f_16799}, {C_text("f_16811:core_2escm"),(void*)f_16811}, {C_text("f_16823:core_2escm"),(void*)f_16823}, {C_text("f_16827:core_2escm"),(void*)f_16827}, {C_text("f_16836:core_2escm"),(void*)f_16836}, {C_text("f_16842:core_2escm"),(void*)f_16842}, {C_text("f_16848:core_2escm"),(void*)f_16848}, {C_text("f_16856:core_2escm"),(void*)f_16856}, {C_text("f_16858:core_2escm"),(void*)f_16858}, {C_text("f_16864:core_2escm"),(void*)f_16864}, {C_text("f_16878:core_2escm"),(void*)f_16878}, {C_text("f_16884:core_2escm"),(void*)f_16884}, {C_text("f_16898:core_2escm"),(void*)f_16898}, {C_text("f_16905:core_2escm"),(void*)f_16905}, {C_text("f_16912:core_2escm"),(void*)f_16912}, {C_text("f_16927:core_2escm"),(void*)f_16927}, {C_text("f_16942:core_2escm"),(void*)f_16942}, {C_text("f_16954:core_2escm"),(void*)f_16954}, {C_text("f_16960:core_2escm"),(void*)f_16960}, {C_text("f_16964:core_2escm"),(void*)f_16964}, {C_text("f_16981:core_2escm"),(void*)f_16981}, {C_text("f_16986:core_2escm"),(void*)f_16986}, {C_text("f_16993:core_2escm"),(void*)f_16993}, {C_text("f_17002:core_2escm"),(void*)f_17002}, {C_text("f_17006:core_2escm"),(void*)f_17006}, {C_text("f_17009:core_2escm"),(void*)f_17009}, {C_text("f_17012:core_2escm"),(void*)f_17012}, {C_text("f_17024:core_2escm"),(void*)f_17024}, {C_text("f_17036:core_2escm"),(void*)f_17036}, {C_text("f_17067:core_2escm"),(void*)f_17067}, {C_text("f_17097:core_2escm"),(void*)f_17097}, {C_text("f_17100:core_2escm"),(void*)f_17100}, {C_text("f_17126:core_2escm"),(void*)f_17126}, {C_text("f_17130:core_2escm"),(void*)f_17130}, {C_text("f_17142:core_2escm"),(void*)f_17142}, {C_text("f_17147:core_2escm"),(void*)f_17147}, {C_text("f_17165:core_2escm"),(void*)f_17165}, {C_text("f_17174:core_2escm"),(void*)f_17174}, {C_text("f_17177:core_2escm"),(void*)f_17177}, {C_text("f_17180:core_2escm"),(void*)f_17180}, {C_text("f_17205:core_2escm"),(void*)f_17205}, {C_text("f_17207:core_2escm"),(void*)f_17207}, {C_text("f_17217:core_2escm"),(void*)f_17217}, {C_text("f_17221:core_2escm"),(void*)f_17221}, {C_text("f_17230:core_2escm"),(void*)f_17230}, {C_text("f_17232:core_2escm"),(void*)f_17232}, {C_text("f_17242:core_2escm"),(void*)f_17242}, {C_text("f_17274:core_2escm"),(void*)f_17274}, {C_text("f_17281:core_2escm"),(void*)f_17281}, {C_text("f_17282:core_2escm"),(void*)f_17282}, {C_text("f_17286:core_2escm"),(void*)f_17286}, {C_text("f_17295:core_2escm"),(void*)f_17295}, {C_text("f_17298:core_2escm"),(void*)f_17298}, {C_text("f_17301:core_2escm"),(void*)f_17301}, {C_text("f_17304:core_2escm"),(void*)f_17304}, {C_text("f_17307:core_2escm"),(void*)f_17307}, {C_text("f_17310:core_2escm"),(void*)f_17310}, {C_text("f_17326:core_2escm"),(void*)f_17326}, {C_text("f_17334:core_2escm"),(void*)f_17334}, {C_text("f_17352:core_2escm"),(void*)f_17352}, {C_text("f_17360:core_2escm"),(void*)f_17360}, {C_text("f_17370:core_2escm"),(void*)f_17370}, {C_text("f_17384:core_2escm"),(void*)f_17384}, {C_text("f_17405:core_2escm"),(void*)f_17405}, {C_text("f_17408:core_2escm"),(void*)f_17408}, {C_text("f_17411:core_2escm"),(void*)f_17411}, {C_text("f_17414:core_2escm"),(void*)f_17414}, {C_text("f_17417:core_2escm"),(void*)f_17417}, {C_text("f_17420:core_2escm"),(void*)f_17420}, {C_text("f_17456:core_2escm"),(void*)f_17456}, {C_text("f_17462:core_2escm"),(void*)f_17462}, {C_text("f_17502:core_2escm"),(void*)f_17502}, {C_text("f_17508:core_2escm"),(void*)f_17508}, {C_text("f_17592:core_2escm"),(void*)f_17592}, {C_text("f_17594:core_2escm"),(void*)f_17594}, {C_text("f_17606:core_2escm"),(void*)f_17606}, {C_text("f_17616:core_2escm"),(void*)f_17616}, {C_text("f_17629:core_2escm"),(void*)f_17629}, {C_text("f_17642:core_2escm"),(void*)f_17642}, {C_text("f_17654:core_2escm"),(void*)f_17654}, {C_text("f_17657:core_2escm"),(void*)f_17657}, {C_text("f_17660:core_2escm"),(void*)f_17660}, {C_text("f_17699:core_2escm"),(void*)f_17699}, {C_text("f_17702:core_2escm"),(void*)f_17702}, {C_text("f_17708:core_2escm"),(void*)f_17708}, {C_text("f_17735:core_2escm"),(void*)f_17735}, {C_text("f_17742:core_2escm"),(void*)f_17742}, {C_text("f_17748:core_2escm"),(void*)f_17748}, {C_text("f_17758:core_2escm"),(void*)f_17758}, {C_text("f_17772:core_2escm"),(void*)f_17772}, {C_text("f_17776:core_2escm"),(void*)f_17776}, {C_text("f_17780:core_2escm"),(void*)f_17780}, {C_text("f_17782:core_2escm"),(void*)f_17782}, {C_text("f_17803:core_2escm"),(void*)f_17803}, {C_text("f_17807:core_2escm"),(void*)f_17807}, {C_text("f_17810:core_2escm"),(void*)f_17810}, {C_text("f_17814:core_2escm"),(void*)f_17814}, {C_text("f_17820:core_2escm"),(void*)f_17820}, {C_text("f_17826:core_2escm"),(void*)f_17826}, {C_text("f_17968:core_2escm"),(void*)f_17968}, {C_text("f_17971:core_2escm"),(void*)f_17971}, {C_text("f_17974:core_2escm"),(void*)f_17974}, {C_text("f_17977:core_2escm"),(void*)f_17977}, {C_text("f_17980:core_2escm"),(void*)f_17980}, {C_text("f_17983:core_2escm"),(void*)f_17983}, {C_text("f_17986:core_2escm"),(void*)f_17986}, {C_text("f_17989:core_2escm"),(void*)f_17989}, {C_text("f_17995:core_2escm"),(void*)f_17995}, {C_text("f_17998:core_2escm"),(void*)f_17998}, {C_text("f_18016:core_2escm"),(void*)f_18016}, {C_text("f_18019:core_2escm"),(void*)f_18019}, {C_text("f_18037:core_2escm"),(void*)f_18037}, {C_text("f_18050:core_2escm"),(void*)f_18050}, {C_text("f_18074:core_2escm"),(void*)f_18074}, {C_text("f_18078:core_2escm"),(void*)f_18078}, {C_text("f_18082:core_2escm"),(void*)f_18082}, {C_text("f_18103:core_2escm"),(void*)f_18103}, {C_text("f_18109:core_2escm"),(void*)f_18109}, {C_text("f_18120:core_2escm"),(void*)f_18120}, {C_text("f_18135:core_2escm"),(void*)f_18135}, {C_text("f_18141:core_2escm"),(void*)f_18141}, {C_text("f_18153:core_2escm"),(void*)f_18153}, {C_text("f_18196:core_2escm"),(void*)f_18196}, {C_text("f_18200:core_2escm"),(void*)f_18200}, {C_text("f_18204:core_2escm"),(void*)f_18204}, {C_text("f_18213:core_2escm"),(void*)f_18213}, {C_text("f_18223:core_2escm"),(void*)f_18223}, {C_text("f_18227:core_2escm"),(void*)f_18227}, {C_text("f_18231:core_2escm"),(void*)f_18231}, {C_text("f_18252:core_2escm"),(void*)f_18252}, {C_text("f_18273:core_2escm"),(void*)f_18273}, {C_text("f_18283:core_2escm"),(void*)f_18283}, {C_text("f_18287:core_2escm"),(void*)f_18287}, {C_text("f_18294:core_2escm"),(void*)f_18294}, {C_text("f_18298:core_2escm"),(void*)f_18298}, {C_text("f_18307:core_2escm"),(void*)f_18307}, {C_text("f_18322:core_2escm"),(void*)f_18322}, {C_text("f_18326:core_2escm"),(void*)f_18326}, {C_text("f_18332:core_2escm"),(void*)f_18332}, {C_text("f_18356:core_2escm"),(void*)f_18356}, {C_text("f_18357:core_2escm"),(void*)f_18357}, {C_text("f_18364:core_2escm"),(void*)f_18364}, {C_text("f_18367:core_2escm"),(void*)f_18367}, {C_text("f_18378:core_2escm"),(void*)f_18378}, {C_text("f_18382:core_2escm"),(void*)f_18382}, {C_text("f_18390:core_2escm"),(void*)f_18390}, {C_text("f_18400:core_2escm"),(void*)f_18400}, {C_text("f_18421:core_2escm"),(void*)f_18421}, {C_text("f_18424:core_2escm"),(void*)f_18424}, {C_text("f_18433:core_2escm"),(void*)f_18433}, {C_text("f_18446:core_2escm"),(void*)f_18446}, {C_text("f_18453:core_2escm"),(void*)f_18453}, {C_text("f_18456:core_2escm"),(void*)f_18456}, {C_text("f_18462:core_2escm"),(void*)f_18462}, {C_text("f_18494:core_2escm"),(void*)f_18494}, {C_text("f_18502:core_2escm"),(void*)f_18502}, {C_text("f_18504:core_2escm"),(void*)f_18504}, {C_text("f_18510:core_2escm"),(void*)f_18510}, {C_text("f_18522:core_2escm"),(void*)f_18522}, {C_text("f_18528:core_2escm"),(void*)f_18528}, {C_text("f_18539:core_2escm"),(void*)f_18539}, {C_text("f_18545:core_2escm"),(void*)f_18545}, {C_text("f_18549:core_2escm"),(void*)f_18549}, {C_text("f_18558:core_2escm"),(void*)f_18558}, {C_text("f_18566:core_2escm"),(void*)f_18566}, {C_text("f_18583:core_2escm"),(void*)f_18583}, {C_text("f_18590:core_2escm"),(void*)f_18590}, {C_text("f_18593:core_2escm"),(void*)f_18593}, {C_text("f_18597:core_2escm"),(void*)f_18597}, {C_text("f_18604:core_2escm"),(void*)f_18604}, {C_text("f_18610:core_2escm"),(void*)f_18610}, {C_text("f_18616:core_2escm"),(void*)f_18616}, {C_text("f_18634:core_2escm"),(void*)f_18634}, {C_text("f_18641:core_2escm"),(void*)f_18641}, {C_text("f_18647:core_2escm"),(void*)f_18647}, {C_text("f_18650:core_2escm"),(void*)f_18650}, {C_text("f_18653:core_2escm"),(void*)f_18653}, {C_text("f_18656:core_2escm"),(void*)f_18656}, {C_text("f_18690:core_2escm"),(void*)f_18690}, {C_text("f_18694:core_2escm"),(void*)f_18694}, {C_text("f_18698:core_2escm"),(void*)f_18698}, {C_text("f_18702:core_2escm"),(void*)f_18702}, {C_text("f_18708:core_2escm"),(void*)f_18708}, {C_text("f_18712:core_2escm"),(void*)f_18712}, {C_text("f_18730:core_2escm"),(void*)f_18730}, {C_text("f_18734:core_2escm"),(void*)f_18734}, {C_text("f_18742:core_2escm"),(void*)f_18742}, {C_text("f_18752:core_2escm"),(void*)f_18752}, {C_text("f_18777:core_2escm"),(void*)f_18777}, {C_text("f_18804:core_2escm"),(void*)f_18804}, {C_text("f_18807:core_2escm"),(void*)f_18807}, {C_text("f_18813:core_2escm"),(void*)f_18813}, {C_text("f_18818:core_2escm"),(void*)f_18818}, {C_text("f_18823:core_2escm"),(void*)f_18823}, {C_text("f_18830:core_2escm"),(void*)f_18830}, {C_text("f_18832:core_2escm"),(void*)f_18832}, {C_text("f_18836:core_2escm"),(void*)f_18836}, {C_text("f_18839:core_2escm"),(void*)f_18839}, {C_text("f_18842:core_2escm"),(void*)f_18842}, {C_text("f_18869:core_2escm"),(void*)f_18869}, {C_text("f_18878:core_2escm"),(void*)f_18878}, {C_text("f_18881:core_2escm"),(void*)f_18881}, {C_text("f_18891:core_2escm"),(void*)f_18891}, {C_text("f_18895:core_2escm"),(void*)f_18895}, {C_text("f_18929:core_2escm"),(void*)f_18929}, {C_text("f_18963:core_2escm"),(void*)f_18963}, {C_text("f_18971:core_2escm"),(void*)f_18971}, {C_text("f_18981:core_2escm"),(void*)f_18981}, {C_text("f_18983:core_2escm"),(void*)f_18983}, {C_text("f_19008:core_2escm"),(void*)f_19008}, {C_text("f_19039:core_2escm"),(void*)f_19039}, {C_text("f_19045:core_2escm"),(void*)f_19045}, {C_text("f_19048:core_2escm"),(void*)f_19048}, {C_text("f_19057:core_2escm"),(void*)f_19057}, {C_text("f_19060:core_2escm"),(void*)f_19060}, {C_text("f_19063:core_2escm"),(void*)f_19063}, {C_text("f_19066:core_2escm"),(void*)f_19066}, {C_text("f_19069:core_2escm"),(void*)f_19069}, {C_text("f_19072:core_2escm"),(void*)f_19072}, {C_text("f_19081:core_2escm"),(void*)f_19081}, {C_text("f_19088:core_2escm"),(void*)f_19088}, {C_text("f_19105:core_2escm"),(void*)f_19105}, {C_text("f_19124:core_2escm"),(void*)f_19124}, {C_text("f_19142:core_2escm"),(void*)f_19142}, {C_text("f_19154:core_2escm"),(void*)f_19154}, {C_text("f_19168:core_2escm"),(void*)f_19168}, {C_text("f_19172:core_2escm"),(void*)f_19172}, {C_text("f_19176:core_2escm"),(void*)f_19176}, {C_text("f_19180:core_2escm"),(void*)f_19180}, {C_text("f_19208:core_2escm"),(void*)f_19208}, {C_text("f_19215:core_2escm"),(void*)f_19215}, {C_text("f_19220:core_2escm"),(void*)f_19220}, {C_text("f_19225:core_2escm"),(void*)f_19225}, {C_text("f_19229:core_2escm"),(void*)f_19229}, {C_text("f_19232:core_2escm"),(void*)f_19232}, {C_text("f_19235:core_2escm"),(void*)f_19235}, {C_text("f_19246:core_2escm"),(void*)f_19246}, {C_text("f_19252:core_2escm"),(void*)f_19252}, {C_text("f_19266:core_2escm"),(void*)f_19266}, {C_text("f_19276:core_2escm"),(void*)f_19276}, {C_text("f_19278:core_2escm"),(void*)f_19278}, {C_text("f_19303:core_2escm"),(void*)f_19303}, {C_text("f_19358:core_2escm"),(void*)f_19358}, {C_text("f_19362:core_2escm"),(void*)f_19362}, {C_text("f_19365:core_2escm"),(void*)f_19365}, {C_text("f_19368:core_2escm"),(void*)f_19368}, {C_text("f_19377:core_2escm"),(void*)f_19377}, {C_text("f_19389:core_2escm"),(void*)f_19389}, {C_text("f_19395:core_2escm"),(void*)f_19395}, {C_text("f_19411:core_2escm"),(void*)f_19411}, {C_text("f_19418:core_2escm"),(void*)f_19418}, {C_text("f_19422:core_2escm"),(void*)f_19422}, {C_text("f_19434:core_2escm"),(void*)f_19434}, {C_text("f_19437:core_2escm"),(void*)f_19437}, {C_text("f_19455:core_2escm"),(void*)f_19455}, {C_text("f_19459:core_2escm"),(void*)f_19459}, {C_text("f_19471:core_2escm"),(void*)f_19471}, {C_text("f_19475:core_2escm"),(void*)f_19475}, {C_text("f_19487:core_2escm"),(void*)f_19487}, {C_text("f_19498:core_2escm"),(void*)f_19498}, {C_text("f_19515:core_2escm"),(void*)f_19515}, {C_text("f_19519:core_2escm"),(void*)f_19519}, {C_text("f_19531:core_2escm"),(void*)f_19531}, {C_text("f_19540:core_2escm"),(void*)f_19540}, {C_text("f_19543:core_2escm"),(void*)f_19543}, {C_text("f_19549:core_2escm"),(void*)f_19549}, {C_text("f_19555:core_2escm"),(void*)f_19555}, {C_text("f_19561:core_2escm"),(void*)f_19561}, {C_text("f_19564:core_2escm"),(void*)f_19564}, {C_text("f_19579:core_2escm"),(void*)f_19579}, {C_text("f_19584:core_2escm"),(void*)f_19584}, {C_text("f_19592:core_2escm"),(void*)f_19592}, {C_text("f_19598:core_2escm"),(void*)f_19598}, {C_text("f_19601:core_2escm"),(void*)f_19601}, {C_text("f_19612:core_2escm"),(void*)f_19612}, {C_text("f_19616:core_2escm"),(void*)f_19616}, {C_text("f_19620:core_2escm"),(void*)f_19620}, {C_text("f_19628:core_2escm"),(void*)f_19628}, {C_text("f_19635:core_2escm"),(void*)f_19635}, {C_text("f_19641:core_2escm"),(void*)f_19641}, {C_text("f_19666:core_2escm"),(void*)f_19666}, {C_text("f_19685:core_2escm"),(void*)f_19685}, {C_text("f_19688:core_2escm"),(void*)f_19688}, {C_text("f_19698:core_2escm"),(void*)f_19698}, {C_text("f_19715:core_2escm"),(void*)f_19715}, {C_text("f_19725:core_2escm"),(void*)f_19725}, {C_text("f_19727:core_2escm"),(void*)f_19727}, {C_text("f_19753:core_2escm"),(void*)f_19753}, {C_text("f_19763:core_2escm"),(void*)f_19763}, {C_text("f_19788:core_2escm"),(void*)f_19788}, {C_text("f_19815:core_2escm"),(void*)f_19815}, {C_text("f_19820:core_2escm"),(void*)f_19820}, {C_text("f_19836:core_2escm"),(void*)f_19836}, {C_text("f_19851:core_2escm"),(void*)f_19851}, {C_text("f_19894:core_2escm"),(void*)f_19894}, {C_text("f_19900:core_2escm"),(void*)f_19900}, {C_text("f_19928:core_2escm"),(void*)f_19928}, {C_text("f_19976:core_2escm"),(void*)f_19976}, {C_text("f_20001:core_2escm"),(void*)f_20001}, {C_text("f_20010:core_2escm"),(void*)f_20010}, {C_text("f_20029:core_2escm"),(void*)f_20029}, {C_text("f_20032:core_2escm"),(void*)f_20032}, {C_text("f_20035:core_2escm"),(void*)f_20035}, {C_text("f_20038:core_2escm"),(void*)f_20038}, {C_text("f_20042:core_2escm"),(void*)f_20042}, {C_text("f_20049:core_2escm"),(void*)f_20049}, {C_text("f_20064:core_2escm"),(void*)f_20064}, {C_text("f_20068:core_2escm"),(void*)f_20068}, {C_text("f_20080:core_2escm"),(void*)f_20080}, {C_text("f_20101:core_2escm"),(void*)f_20101}, {C_text("f_20105:core_2escm"),(void*)f_20105}, {C_text("f_20116:core_2escm"),(void*)f_20116}, {C_text("f_20131:core_2escm"),(void*)f_20131}, {C_text("f_20135:core_2escm"),(void*)f_20135}, {C_text("f_20150:core_2escm"),(void*)f_20150}, {C_text("f_20183:core_2escm"),(void*)f_20183}, {C_text("f_20204:core_2escm"),(void*)f_20204}, {C_text("f_20215:core_2escm"),(void*)f_20215}, {C_text("f_20219:core_2escm"),(void*)f_20219}, {C_text("f_20427:core_2escm"),(void*)f_20427}, {C_text("f_20432:core_2escm"),(void*)f_20432}, {C_text("f_20444:core_2escm"),(void*)f_20444}, {C_text("f_20469:core_2escm"),(void*)f_20469}, {C_text("f_20478:core_2escm"),(void*)f_20478}, {C_text("f_20485:core_2escm"),(void*)f_20485}, {C_text("f_20489:core_2escm"),(void*)f_20489}, {C_text("f_20505:core_2escm"),(void*)f_20505}, {C_text("f_20516:core_2escm"),(void*)f_20516}, {C_text("f_20519:core_2escm"),(void*)f_20519}, {C_text("f_20522:core_2escm"),(void*)f_20522}, {C_text("f_20525:core_2escm"),(void*)f_20525}, {C_text("f_20528:core_2escm"),(void*)f_20528}, {C_text("f_20531:core_2escm"),(void*)f_20531}, {C_text("f_20534:core_2escm"),(void*)f_20534}, {C_text("f_20559:core_2escm"),(void*)f_20559}, {C_text("f_20568:core_2escm"),(void*)f_20568}, {C_text("f_20586:core_2escm"),(void*)f_20586}, {C_text("f_20595:core_2escm"),(void*)f_20595}, {C_text("f_20604:core_2escm"),(void*)f_20604}, {C_text("f_20613:core_2escm"),(void*)f_20613}, {C_text("f_20622:core_2escm"),(void*)f_20622}, {C_text("f_20631:core_2escm"),(void*)f_20631}, {C_text("f_20649:core_2escm"),(void*)f_20649}, {C_text("f_20658:core_2escm"),(void*)f_20658}, {C_text("f_20667:core_2escm"),(void*)f_20667}, {C_text("f_20676:core_2escm"),(void*)f_20676}, {C_text("f_20685:core_2escm"),(void*)f_20685}, {C_text("f_20694:core_2escm"),(void*)f_20694}, {C_text("f_20703:core_2escm"),(void*)f_20703}, {C_text("f_20707:core_2escm"),(void*)f_20707}, {C_text("f_20709:core_2escm"),(void*)f_20709}, {C_text("f_20713:core_2escm"),(void*)f_20713}, {C_text("f_20717:core_2escm"),(void*)f_20717}, {C_text("f_20742:core_2escm"),(void*)f_20742}, {C_text("f_20753:core_2escm"),(void*)f_20753}, {C_text("f_20758:core_2escm"),(void*)f_20758}, {C_text("f_20762:core_2escm"),(void*)f_20762}, {C_text("f_20765:core_2escm"),(void*)f_20765}, {C_text("f_20768:core_2escm"),(void*)f_20768}, {C_text("f_20779:core_2escm"),(void*)f_20779}, {C_text("f_20790:core_2escm"),(void*)f_20790}, {C_text("f_20797:core_2escm"),(void*)f_20797}, {C_text("f_20806:core_2escm"),(void*)f_20806}, {C_text("f_20814:core_2escm"),(void*)f_20814}, {C_text("f_20818:core_2escm"),(void*)f_20818}, {C_text("f_20821:core_2escm"),(void*)f_20821}, {C_text("f_20824:core_2escm"),(void*)f_20824}, {C_text("f_20833:core_2escm"),(void*)f_20833}, {C_text("f_20861:core_2escm"),(void*)f_20861}, {C_text("f_20872:core_2escm"),(void*)f_20872}, {C_text("f_20892:core_2escm"),(void*)f_20892}, {C_text("f_20896:core_2escm"),(void*)f_20896}, {C_text("f_20917:core_2escm"),(void*)f_20917}, {C_text("f_20938:core_2escm"),(void*)f_20938}, {C_text("f_20955:core_2escm"),(void*)f_20955}, {C_text("f_20959:core_2escm"),(void*)f_20959}, {C_text("f_20980:core_2escm"),(void*)f_20980}, {C_text("f_20984:core_2escm"),(void*)f_20984}, {C_text("f_20988:core_2escm"),(void*)f_20988}, {C_text("f_21009:core_2escm"),(void*)f_21009}, {C_text("f_21034:core_2escm"),(void*)f_21034}, {C_text("f_21050:core_2escm"),(void*)f_21050}, {C_text("f_21060:core_2escm"),(void*)f_21060}, {C_text("f_21076:core_2escm"),(void*)f_21076}, {C_text("f_21080:core_2escm"),(void*)f_21080}, {C_text("f_21089:core_2escm"),(void*)f_21089}, {C_text("f_21130:core_2escm"),(void*)f_21130}, {C_text("f_21137:core_2escm"),(void*)f_21137}, {C_text("f_21140:core_2escm"),(void*)f_21140}, {C_text("f_21143:core_2escm"),(void*)f_21143}, {C_text("f_21146:core_2escm"),(void*)f_21146}, {C_text("f_21149:core_2escm"),(void*)f_21149}, {C_text("f_21157:core_2escm"),(void*)f_21157}, {C_text("f_21186:core_2escm"),(void*)f_21186}, {C_text("f_21193:core_2escm"),(void*)f_21193}, {C_text("f_21197:core_2escm"),(void*)f_21197}, {C_text("f_21212:core_2escm"),(void*)f_21212}, {C_text("f_21235:core_2escm"),(void*)f_21235}, {C_text("f_21256:core_2escm"),(void*)f_21256}, {C_text("f_21265:core_2escm"),(void*)f_21265}, {C_text("f_21271:core_2escm"),(void*)f_21271}, {C_text("f_21296:core_2escm"),(void*)f_21296}, {C_text("f_21328:core_2escm"),(void*)f_21328}, {C_text("f_21332:core_2escm"),(void*)f_21332}, {C_text("f_21340:core_2escm"),(void*)f_21340}, {C_text("f_21348:core_2escm"),(void*)f_21348}, {C_text("f_21352:core_2escm"),(void*)f_21352}, {C_text("f_21362:core_2escm"),(void*)f_21362}, {C_text("f_21389:core_2escm"),(void*)f_21389}, {C_text("f_21393:core_2escm"),(void*)f_21393}, {C_text("f_21412:core_2escm"),(void*)f_21412}, {C_text("f_21416:core_2escm"),(void*)f_21416}, {C_text("f_21432:core_2escm"),(void*)f_21432}, {C_text("f_21446:core_2escm"),(void*)f_21446}, {C_text("f_21452:core_2escm"),(void*)f_21452}, {C_text("f_21455:core_2escm"),(void*)f_21455}, {C_text("f_21458:core_2escm"),(void*)f_21458}, {C_text("f_21477:core_2escm"),(void*)f_21477}, {C_text("f_21485:core_2escm"),(void*)f_21485}, {C_text("f_21526:core_2escm"),(void*)f_21526}, {C_text("f_21530:core_2escm"),(void*)f_21530}, {C_text("f_21545:core_2escm"),(void*)f_21545}, {C_text("f_21549:core_2escm"),(void*)f_21549}, {C_text("f_21552:core_2escm"),(void*)f_21552}, {C_text("f_21555:core_2escm"),(void*)f_21555}, {C_text("f_21562:core_2escm"),(void*)f_21562}, {C_text("f_21582:core_2escm"),(void*)f_21582}, {C_text("f_21586:core_2escm"),(void*)f_21586}, {C_text("f_21593:core_2escm"),(void*)f_21593}, {C_text("f_21630:core_2escm"),(void*)f_21630}, {C_text("f_21637:core_2escm"),(void*)f_21637}, {C_text("f_21657:core_2escm"),(void*)f_21657}, {C_text("f_21678:core_2escm"),(void*)f_21678}, {C_text("f_21681:core_2escm"),(void*)f_21681}, {C_text("f_21688:core_2escm"),(void*)f_21688}, {C_text("f_21692:core_2escm"),(void*)f_21692}, {C_text("f_21698:core_2escm"),(void*)f_21698}, {C_text("f_21701:core_2escm"),(void*)f_21701}, {C_text("f_21704:core_2escm"),(void*)f_21704}, {C_text("f_21707:core_2escm"),(void*)f_21707}, {C_text("f_21710:core_2escm"),(void*)f_21710}, {C_text("f_21714:core_2escm"),(void*)f_21714}, {C_text("f_21725:core_2escm"),(void*)f_21725}, {C_text("f_21736:core_2escm"),(void*)f_21736}, {C_text("f_21742:core_2escm"),(void*)f_21742}, {C_text("f_21756:core_2escm"),(void*)f_21756}, {C_text("f_21766:core_2escm"),(void*)f_21766}, {C_text("f_21778:core_2escm"),(void*)f_21778}, {C_text("f_21781:core_2escm"),(void*)f_21781}, {C_text("f_21784:core_2escm"),(void*)f_21784}, {C_text("f_21803:core_2escm"),(void*)f_21803}, {C_text("f_21815:core_2escm"),(void*)f_21815}, {C_text("f_21844:core_2escm"),(void*)f_21844}, {C_text("f_21855:core_2escm"),(void*)f_21855}, {C_text("f_21865:core_2escm"),(void*)f_21865}, {C_text("f_21874:core_2escm"),(void*)f_21874}, {C_text("f_21885:core_2escm"),(void*)f_21885}, {C_text("f_21896:core_2escm"),(void*)f_21896}, {C_text("f_21899:core_2escm"),(void*)f_21899}, {C_text("f_21906:core_2escm"),(void*)f_21906}, {C_text("f_21916:core_2escm"),(void*)f_21916}, {C_text("f_21957:core_2escm"),(void*)f_21957}, {C_text("f_22024:core_2escm"),(void*)f_22024}, {C_text("f_22029:core_2escm"),(void*)f_22029}, {C_text("f_22041:core_2escm"),(void*)f_22041}, {C_text("f_22066:core_2escm"),(void*)f_22066}, {C_text("f_22075:core_2escm"),(void*)f_22075}, {C_text("f_22082:core_2escm"),(void*)f_22082}, {C_text("f_22107:core_2escm"),(void*)f_22107}, {C_text("f_22123:core_2escm"),(void*)f_22123}, {C_text("f_22132:core_2escm"),(void*)f_22132}, {C_text("f_22136:core_2escm"),(void*)f_22136}, {C_text("f_22140:core_2escm"),(void*)f_22140}, {C_text("f_22158:core_2escm"),(void*)f_22158}, {C_text("f_22160:core_2escm"),(void*)f_22160}, {C_text("f_22167:core_2escm"),(void*)f_22167}, {C_text("f_22174:core_2escm"),(void*)f_22174}, {C_text("f_22176:core_2escm"),(void*)f_22176}, {C_text("f_22193:core_2escm"),(void*)f_22193}, {C_text("f_22239:core_2escm"),(void*)f_22239}, {C_text("f_22242:core_2escm"),(void*)f_22242}, {C_text("f_22245:core_2escm"),(void*)f_22245}, {C_text("f_22248:core_2escm"),(void*)f_22248}, {C_text("f_22251:core_2escm"),(void*)f_22251}, {C_text("f_22258:core_2escm"),(void*)f_22258}, {C_text("f_22262:core_2escm"),(void*)f_22262}, {C_text("f_22266:core_2escm"),(void*)f_22266}, {C_text("f_6075:core_2escm"),(void*)f_6075}, {C_text("f_6078:core_2escm"),(void*)f_6078}, {C_text("f_6081:core_2escm"),(void*)f_6081}, {C_text("f_6084:core_2escm"),(void*)f_6084}, {C_text("f_6087:core_2escm"),(void*)f_6087}, {C_text("f_6090:core_2escm"),(void*)f_6090}, {C_text("f_6093:core_2escm"),(void*)f_6093}, {C_text("f_6096:core_2escm"),(void*)f_6096}, {C_text("f_6099:core_2escm"),(void*)f_6099}, {C_text("f_6102:core_2escm"),(void*)f_6102}, {C_text("f_6288:core_2escm"),(void*)f_6288}, {C_text("f_6302:core_2escm"),(void*)f_6302}, {C_text("f_6491:core_2escm"),(void*)f_6491}, {C_text("f_6497:core_2escm"),(void*)f_6497}, {C_text("f_6519:core_2escm"),(void*)f_6519}, {C_text("f_6531:core_2escm"),(void*)f_6531}, {C_text("f_6541:core_2escm"),(void*)f_6541}, {C_text("f_6555:core_2escm"),(void*)f_6555}, {C_text("f_6561:core_2escm"),(void*)f_6561}, {C_text("f_6575:core_2escm"),(void*)f_6575}, {C_text("f_6583:core_2escm"),(void*)f_6583}, {C_text("f_6589:core_2escm"),(void*)f_6589}, {C_text("f_6607:core_2escm"),(void*)f_6607}, {C_text("f_6611:core_2escm"),(void*)f_6611}, {C_text("f_6617:core_2escm"),(void*)f_6617}, {C_text("f_6630:core_2escm"),(void*)f_6630}, {C_text("f_6644:core_2escm"),(void*)f_6644}, {C_text("f_6692:core_2escm"),(void*)f_6692}, {C_text("f_6706:core_2escm"),(void*)f_6706}, {C_text("f_6719:core_2escm"),(void*)f_6719}, {C_text("f_6731:core_2escm"),(void*)f_6731}, {C_text("f_6740:core_2escm"),(void*)f_6740}, {C_text("f_6748:core_2escm"),(void*)f_6748}, {C_text("f_6755:core_2escm"),(void*)f_6755}, {C_text("f_6769:core_2escm"),(void*)f_6769}, {C_text("f_6784:core_2escm"),(void*)f_6784}, {C_text("f_6792:core_2escm"),(void*)f_6792}, {C_text("f_6796:core_2escm"),(void*)f_6796}, {C_text("f_6800:core_2escm"),(void*)f_6800}, {C_text("f_6818:core_2escm"),(void*)f_6818}, {C_text("f_6840:core_2escm"),(void*)f_6840}, {C_text("f_6857:core_2escm"),(void*)f_6857}, {C_text("f_6897:core_2escm"),(void*)f_6897}, {C_text("f_6922:core_2escm"),(void*)f_6922}, {C_text("f_6935:core_2escm"),(void*)f_6935}, {C_text("f_6950:core_2escm"),(void*)f_6950}, {C_text("f_6956:core_2escm"),(void*)f_6956}, {C_text("f_6991:core_2escm"),(void*)f_6991}, {C_text("f_6997:core_2escm"),(void*)f_6997}, {C_text("f_7019:core_2escm"),(void*)f_7019}, {C_text("f_7030:core_2escm"),(void*)f_7030}, {C_text("f_7036:core_2escm"),(void*)f_7036}, {C_text("f_7042:core_2escm"),(void*)f_7042}, {C_text("f_7067:core_2escm"),(void*)f_7067}, {C_text("f_7090:core_2escm"),(void*)f_7090}, {C_text("f_7095:core_2escm"),(void*)f_7095}, {C_text("f_7102:core_2escm"),(void*)f_7102}, {C_text("f_7109:core_2escm"),(void*)f_7109}, {C_text("f_7115:core_2escm"),(void*)f_7115}, {C_text("f_7121:core_2escm"),(void*)f_7121}, {C_text("f_7127:core_2escm"),(void*)f_7127}, {C_text("f_7334:core_2escm"),(void*)f_7334}, {C_text("f_7340:core_2escm"),(void*)f_7340}, {C_text("f_7374:core_2escm"),(void*)f_7374}, {C_text("f_7468:core_2escm"),(void*)f_7468}, {C_text("f_7472:core_2escm"),(void*)f_7472}, {C_text("f_7475:core_2escm"),(void*)f_7475}, {C_text("f_7478:core_2escm"),(void*)f_7478}, {C_text("f_7481:core_2escm"),(void*)f_7481}, {C_text("f_7484:core_2escm"),(void*)f_7484}, {C_text("f_7487:core_2escm"),(void*)f_7487}, {C_text("f_7497:core_2escm"),(void*)f_7497}, {C_text("f_7504:core_2escm"),(void*)f_7504}, {C_text("f_7511:core_2escm"),(void*)f_7511}, {C_text("f_7518:core_2escm"),(void*)f_7518}, {C_text("f_7520:core_2escm"),(void*)f_7520}, {C_text("f_7524:core_2escm"),(void*)f_7524}, {C_text("f_7529:core_2escm"),(void*)f_7529}, {C_text("f_7531:core_2escm"),(void*)f_7531}, {C_text("f_7573:core_2escm"),(void*)f_7573}, {C_text("f_7605:core_2escm"),(void*)f_7605}, {C_text("f_7615:core_2escm"),(void*)f_7615}, {C_text("f_7628:core_2escm"),(void*)f_7628}, {C_text("f_7632:core_2escm"),(void*)f_7632}, {C_text("f_7634:core_2escm"),(void*)f_7634}, {C_text("f_7647:core_2escm"),(void*)f_7647}, {C_text("f_7669:core_2escm"),(void*)f_7669}, {C_text("f_7676:core_2escm"),(void*)f_7676}, {C_text("f_7679:core_2escm"),(void*)f_7679}, {C_text("f_7687:core_2escm"),(void*)f_7687}, {C_text("f_7693:core_2escm"),(void*)f_7693}, {C_text("f_7700:core_2escm"),(void*)f_7700}, {C_text("f_7707:core_2escm"),(void*)f_7707}, {C_text("f_7709:core_2escm"),(void*)f_7709}, {C_text("f_7713:core_2escm"),(void*)f_7713}, {C_text("f_7716:core_2escm"),(void*)f_7716}, {C_text("f_7720:core_2escm"),(void*)f_7720}, {C_text("f_7722:core_2escm"),(void*)f_7722}, {C_text("f_7724:core_2escm"),(void*)f_7724}, {C_text("f_7731:core_2escm"),(void*)f_7731}, {C_text("f_7734:core_2escm"),(void*)f_7734}, {C_text("f_7749:core_2escm"),(void*)f_7749}, {C_text("f_7753:core_2escm"),(void*)f_7753}, {C_text("f_7758:core_2escm"),(void*)f_7758}, {C_text("f_7763:core_2escm"),(void*)f_7763}, {C_text("f_7771:core_2escm"),(void*)f_7771}, {C_text("f_7773:core_2escm"),(void*)f_7773}, {C_text("f_7778:core_2escm"),(void*)f_7778}, {C_text("f_7795:core_2escm"),(void*)f_7795}, {C_text("f_7805:core_2escm"),(void*)f_7805}, {C_text("f_7844:core_2escm"),(void*)f_7844}, {C_text("f_7876:core_2escm"),(void*)f_7876}, {C_text("f_7887:core_2escm"),(void*)f_7887}, {C_text("f_7891:core_2escm"),(void*)f_7891}, {C_text("f_7894:core_2escm"),(void*)f_7894}, {C_text("f_7906:core_2escm"),(void*)f_7906}, {C_text("f_7910:core_2escm"),(void*)f_7910}, {C_text("f_7920:core_2escm"),(void*)f_7920}, {C_text("f_7924:core_2escm"),(void*)f_7924}, {C_text("f_7938:core_2escm"),(void*)f_7938}, {C_text("f_7945:core_2escm"),(void*)f_7945}, {C_text("f_7955:core_2escm"),(void*)f_7955}, {C_text("f_7959:core_2escm"),(void*)f_7959}, {C_text("f_7977:core_2escm"),(void*)f_7977}, {C_text("f_7984:core_2escm"),(void*)f_7984}, {C_text("f_7994:core_2escm"),(void*)f_7994}, {C_text("f_7998:core_2escm"),(void*)f_7998}, {C_text("f_8036:core_2escm"),(void*)f_8036}, {C_text("f_8042:core_2escm"),(void*)f_8042}, {C_text("f_8045:core_2escm"),(void*)f_8045}, {C_text("f_8048:core_2escm"),(void*)f_8048}, {C_text("f_8051:core_2escm"),(void*)f_8051}, {C_text("f_8057:core_2escm"),(void*)f_8057}, {C_text("f_8060:core_2escm"),(void*)f_8060}, {C_text("f_8063:core_2escm"),(void*)f_8063}, {C_text("f_8078:core_2escm"),(void*)f_8078}, {C_text("f_8083:core_2escm"),(void*)f_8083}, {C_text("f_8087:core_2escm"),(void*)f_8087}, {C_text("f_8093:core_2escm"),(void*)f_8093}, {C_text("f_8098:core_2escm"),(void*)f_8098}, {C_text("f_8108:core_2escm"),(void*)f_8108}, {C_text("f_8123:core_2escm"),(void*)f_8123}, {C_text("f_8132:core_2escm"),(void*)f_8132}, {C_text("f_8139:core_2escm"),(void*)f_8139}, {C_text("f_8146:core_2escm"),(void*)f_8146}, {C_text("f_8152:core_2escm"),(void*)f_8152}, {C_text("f_8159:core_2escm"),(void*)f_8159}, {C_text("f_8183:core_2escm"),(void*)f_8183}, {C_text("f_8198:core_2escm"),(void*)f_8198}, {C_text("f_8204:core_2escm"),(void*)f_8204}, {C_text("f_8207:core_2escm"),(void*)f_8207}, {C_text("f_8211:core_2escm"),(void*)f_8211}, {C_text("f_8214:core_2escm"),(void*)f_8214}, {C_text("f_8217:core_2escm"),(void*)f_8217}, {C_text("f_8229:core_2escm"),(void*)f_8229}, {C_text("f_8233:core_2escm"),(void*)f_8233}, {C_text("f_8261:core_2escm"),(void*)f_8261}, {C_text("f_8265:core_2escm"),(void*)f_8265}, {C_text("f_8269:core_2escm"),(void*)f_8269}, {C_text("f_8307:core_2escm"),(void*)f_8307}, {C_text("f_8340:core_2escm"),(void*)f_8340}, {C_text("f_8348:core_2escm"),(void*)f_8348}, {C_text("f_8381:core_2escm"),(void*)f_8381}, {C_text("f_8386:core_2escm"),(void*)f_8386}, {C_text("f_8394:core_2escm"),(void*)f_8394}, {C_text("f_8398:core_2escm"),(void*)f_8398}, {C_text("f_8415:core_2escm"),(void*)f_8415}, {C_text("f_8417:core_2escm"),(void*)f_8417}, {C_text("f_8442:core_2escm"),(void*)f_8442}, {C_text("f_8465:core_2escm"),(void*)f_8465}, {C_text("f_8477:core_2escm"),(void*)f_8477}, {C_text("f_8484:core_2escm"),(void*)f_8484}, {C_text("f_8487:core_2escm"),(void*)f_8487}, {C_text("f_8496:core_2escm"),(void*)f_8496}, {C_text("f_8509:core_2escm"),(void*)f_8509}, {C_text("f_8529:core_2escm"),(void*)f_8529}, {C_text("f_8533:core_2escm"),(void*)f_8533}, {C_text("f_8537:core_2escm"),(void*)f_8537}, {C_text("f_8550:core_2escm"),(void*)f_8550}, {C_text("f_8554:core_2escm"),(void*)f_8554}, {C_text("f_8571:core_2escm"),(void*)f_8571}, {C_text("f_8591:core_2escm"),(void*)f_8591}, {C_text("f_8597:core_2escm"),(void*)f_8597}, {C_text("f_8601:core_2escm"),(void*)f_8601}, {C_text("f_8612:core_2escm"),(void*)f_8612}, {C_text("f_8618:core_2escm"),(void*)f_8618}, {C_text("f_8634:core_2escm"),(void*)f_8634}, {C_text("f_8643:core_2escm"),(void*)f_8643}, {C_text("f_8646:core_2escm"),(void*)f_8646}, {C_text("f_8649:core_2escm"),(void*)f_8649}, {C_text("f_8655:core_2escm"),(void*)f_8655}, {C_text("f_8663:core_2escm"),(void*)f_8663}, {C_text("f_8671:core_2escm"),(void*)f_8671}, {C_text("f_8686:core_2escm"),(void*)f_8686}, {C_text("f_8690:core_2escm"),(void*)f_8690}, {C_text("f_8692:core_2escm"),(void*)f_8692}, {C_text("f_8696:core_2escm"),(void*)f_8696}, {C_text("f_8700:core_2escm"),(void*)f_8700}, {C_text("f_8703:core_2escm"),(void*)f_8703}, {C_text("f_8709:core_2escm"),(void*)f_8709}, {C_text("f_8717:core_2escm"),(void*)f_8717}, {C_text("f_8721:core_2escm"),(void*)f_8721}, {C_text("f_8727:core_2escm"),(void*)f_8727}, {C_text("f_8731:core_2escm"),(void*)f_8731}, {C_text("f_8734:core_2escm"),(void*)f_8734}, {C_text("f_8737:core_2escm"),(void*)f_8737}, {C_text("f_8766:core_2escm"),(void*)f_8766}, {C_text("f_8787:core_2escm"),(void*)f_8787}, {C_text("f_8789:core_2escm"),(void*)f_8789}, {C_text("f_8814:core_2escm"),(void*)f_8814}, {C_text("f_8862:core_2escm"),(void*)f_8862}, {C_text("f_8866:core_2escm"),(void*)f_8866}, {C_text("f_8886:core_2escm"),(void*)f_8886}, {C_text("f_8900:core_2escm"),(void*)f_8900}, {C_text("f_8934:core_2escm"),(void*)f_8934}, {C_text("f_8978:core_2escm"),(void*)f_8978}, {C_text("f_8987:core_2escm"),(void*)f_8987}, {C_text("f_9016:core_2escm"),(void*)f_9016}, {C_text("f_9043:core_2escm"),(void*)f_9043}, {C_text("f_9047:core_2escm"),(void*)f_9047}, {C_text("f_9059:core_2escm"),(void*)f_9059}, {C_text("f_9073:core_2escm"),(void*)f_9073}, {C_text("f_9121:core_2escm"),(void*)f_9121}, {C_text("f_9169:core_2escm"),(void*)f_9169}, {C_text("f_9203:core_2escm"),(void*)f_9203}, {C_text("f_9228:core_2escm"),(void*)f_9228}, {C_text("f_9249:core_2escm"),(void*)f_9249}, {C_text("f_9254:core_2escm"),(void*)f_9254}, {C_text("f_9264:core_2escm"),(void*)f_9264}, {C_text("f_9267:core_2escm"),(void*)f_9267}, {C_text("f_9273:core_2escm"),(void*)f_9273}, {C_text("f_9276:core_2escm"),(void*)f_9276}, {C_text("f_9279:core_2escm"),(void*)f_9279}, {C_text("f_9285:core_2escm"),(void*)f_9285}, {C_text("f_9294:core_2escm"),(void*)f_9294}, {C_text("f_9300:core_2escm"),(void*)f_9300}, {C_text("f_9307:core_2escm"),(void*)f_9307}, {C_text("f_9338:core_2escm"),(void*)f_9338}, {C_text("f_9349:core_2escm"),(void*)f_9349}, {C_text("f_9351:core_2escm"),(void*)f_9351}, {C_text("f_9355:core_2escm"),(void*)f_9355}, {C_text("f_9359:core_2escm"),(void*)f_9359}, {C_text("f_9362:core_2escm"),(void*)f_9362}, {C_text("f_9368:core_2escm"),(void*)f_9368}, {C_text("f_9372:core_2escm"),(void*)f_9372}, {C_text("f_9379:core_2escm"),(void*)f_9379}, {C_text("f_9383:core_2escm"),(void*)f_9383}, {C_text("f_9396:core_2escm"),(void*)f_9396}, {C_text("f_9400:core_2escm"),(void*)f_9400}, {C_text("f_9403:core_2escm"),(void*)f_9403}, {C_text("f_9408:core_2escm"),(void*)f_9408}, {C_text("f_9410:core_2escm"),(void*)f_9410}, {C_text("f_9435:core_2escm"),(void*)f_9435}, {C_text("f_9445:core_2escm"),(void*)f_9445}, {C_text("f_9450:core_2escm"),(void*)f_9450}, {C_text("f_9458:core_2escm"),(void*)f_9458}, {C_text("f_9460:core_2escm"),(void*)f_9460}, {C_text("f_9472:core_2escm"),(void*)f_9472}, {C_text("f_9477:core_2escm"),(void*)f_9477}, {C_text("f_9481:core_2escm"),(void*)f_9481}, {C_text("f_9485:core_2escm"),(void*)f_9485}, {C_text("f_9488:core_2escm"),(void*)f_9488}, {C_text("f_9494:core_2escm"),(void*)f_9494}, {C_text("f_9498:core_2escm"),(void*)f_9498}, {C_text("f_9508:core_2escm"),(void*)f_9508}, {C_text("f_9514:core_2escm"),(void*)f_9514}, {C_text("f_9518:core_2escm"),(void*)f_9518}, {C_text("f_9521:core_2escm"),(void*)f_9521}, {C_text("f_9539:core_2escm"),(void*)f_9539}, {C_text("f_9543:core_2escm"),(void*)f_9543}, {C_text("f_9547:core_2escm"),(void*)f_9547}, {C_text("f_9562:core_2escm"),(void*)f_9562}, {C_text("f_9566:core_2escm"),(void*)f_9566}, {C_text("f_9568:core_2escm"),(void*)f_9568}, {C_text("f_9593:core_2escm"),(void*)f_9593}, {C_text("f_9622:core_2escm"),(void*)f_9622}, {C_text("f_9626:core_2escm"),(void*)f_9626}, {C_text("f_9641:core_2escm"),(void*)f_9641}, {C_text("f_9644:core_2escm"),(void*)f_9644}, {C_text("f_9647:core_2escm"),(void*)f_9647}, {C_text("f_9651:core_2escm"),(void*)f_9651}, {C_text("f_9670:core_2escm"),(void*)f_9670}, {C_text("f_9674:core_2escm"),(void*)f_9674}, {C_text("f_9678:core_2escm"),(void*)f_9678}, {C_text("f_9681:core_2escm"),(void*)f_9681}, {C_text("f_9687:core_2escm"),(void*)f_9687}, {C_text("f_9695:core_2escm"),(void*)f_9695}, {C_text("f_9701:core_2escm"),(void*)f_9701}, {C_text("f_9705:core_2escm"),(void*)f_9705}, {C_text("f_9708:core_2escm"),(void*)f_9708}, {C_text("f_9711:core_2escm"),(void*)f_9711}, {C_text("f_9736:core_2escm"),(void*)f_9736}, {C_text("f_9738:core_2escm"),(void*)f_9738}, {C_text("f_9763:core_2escm"),(void*)f_9763}, {C_text("f_9779:core_2escm"),(void*)f_9779}, {C_text("f_9782:core_2escm"),(void*)f_9782}, {C_text("f_9785:core_2escm"),(void*)f_9785}, {C_text("f_9788:core_2escm"),(void*)f_9788}, {C_text("f_9791:core_2escm"),(void*)f_9791}, {C_text("f_9794:core_2escm"),(void*)f_9794}, {C_text("f_9816:core_2escm"),(void*)f_9816}, {C_text("f_9820:core_2escm"),(void*)f_9820}, {C_text("f_9824:core_2escm"),(void*)f_9824}, {C_text("f_9838:core_2escm"),(void*)f_9838}, {C_text("f_9869:core_2escm"),(void*)f_9869}, {C_text("f_9891:core_2escm"),(void*)f_9891}, {C_text("f_9894:core_2escm"),(void*)f_9894}, {C_text("f_9897:core_2escm"),(void*)f_9897}, {C_text("f_9945:core_2escm"),(void*)f_9945}, {C_text("f_9949:core_2escm"),(void*)f_9949}, {C_text("f_9953:core_2escm"),(void*)f_9953}, {C_text("f_9961:core_2escm"),(void*)f_9961}, {C_text("f_9971:core_2escm"),(void*)f_9971}, {C_text("f_9975:core_2escm"),(void*)f_9975}, {C_text("f_9978:core_2escm"),(void*)f_9978}, {C_text("f_9985:core_2escm"),(void*)f_9985}, {C_text("f_9989:core_2escm"),(void*)f_9989}, {C_text("f_9999:core_2escm"),(void*)f_9999}, {C_text("toplevel:core_2escm"),(void*)C_compiler_toplevel}, {C_text("va25317:core_2escm"),(void*)va25317}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.compiler.core#d o|hiding unexported module binding: chicken.compiler.core#d o|hiding unexported module binding: chicken.compiler.core#partition o|hiding unexported module binding: chicken.compiler.core#span o|hiding unexported module binding: chicken.compiler.core#take o|hiding unexported module binding: chicken.compiler.core#drop o|hiding unexported module binding: chicken.compiler.core#split-at o|hiding unexported module binding: chicken.compiler.core#append-map o|hiding unexported module binding: chicken.compiler.core#every o|hiding unexported module binding: chicken.compiler.core#any o|hiding unexported module binding: chicken.compiler.core#cons* o|hiding unexported module binding: chicken.compiler.core#concatenate o|hiding unexported module binding: chicken.compiler.core#delete o|hiding unexported module binding: chicken.compiler.core#first o|hiding unexported module binding: chicken.compiler.core#second o|hiding unexported module binding: chicken.compiler.core#third o|hiding unexported module binding: chicken.compiler.core#fourth o|hiding unexported module binding: chicken.compiler.core#fifth o|hiding unexported module binding: chicken.compiler.core#delete-duplicates o|hiding unexported module binding: chicken.compiler.core#alist-cons o|hiding unexported module binding: chicken.compiler.core#filter o|hiding unexported module binding: chicken.compiler.core#filter-map o|hiding unexported module binding: chicken.compiler.core#remove o|hiding unexported module binding: chicken.compiler.core#unzip1 o|hiding unexported module binding: chicken.compiler.core#last o|hiding unexported module binding: chicken.compiler.core#list-index o|hiding unexported module binding: chicken.compiler.core#lset-adjoin/eq? o|hiding unexported module binding: chicken.compiler.core#lset-difference/eq? o|hiding unexported module binding: chicken.compiler.core#lset-union/eq? o|hiding unexported module binding: chicken.compiler.core#lset-intersection/eq? o|hiding unexported module binding: chicken.compiler.core#list-tabulate o|hiding unexported module binding: chicken.compiler.core#lset<=/eq? o|hiding unexported module binding: chicken.compiler.core#lset=/eq? o|hiding unexported module binding: chicken.compiler.core#length+ o|hiding unexported module binding: chicken.compiler.core#find o|hiding unexported module binding: chicken.compiler.core#find-tail o|hiding unexported module binding: chicken.compiler.core#iota o|hiding unexported module binding: chicken.compiler.core#make-list o|hiding unexported module binding: chicken.compiler.core#posq o|hiding unexported module binding: chicken.compiler.core#posv o|hiding unexported module binding: chicken.compiler.core#safe-globals-flag o|hiding unexported module binding: chicken.compiler.core#original-program-size o|hiding unexported module binding: chicken.compiler.core#current-program-size o|hiding unexported module binding: chicken.compiler.core#current-analysis-database-size o|hiding unexported module binding: chicken.compiler.core#direct-call-ids o|hiding unexported module binding: chicken.compiler.core#foreign-variables o|hiding unexported module binding: chicken.compiler.core#external-to-pointer o|hiding unexported module binding: chicken.compiler.core#location-pointer-map o|hiding unexported module binding: chicken.compiler.core#pending-canonicalizations o|hiding unexported module binding: chicken.compiler.core#defconstant-bindings o|hiding unexported module binding: chicken.compiler.core#callback-names o|hiding unexported module binding: chicken.compiler.core#toplevel-scope o|hiding unexported module binding: chicken.compiler.core#toplevel-lambda-id o|hiding unexported module binding: chicken.compiler.core#unlikely-variables o|hiding unexported module binding: chicken.compiler.core#register-static-extension o|hiding unexported module binding: chicken.compiler.core#foreign-stub o|hiding unexported module binding: chicken.compiler.core#make-foreign-stub o|hiding unexported module binding: chicken.compiler.core#foreign-stub? o|hiding unexported module binding: chicken.compiler.core#create-foreign-stub o|hiding unexported module binding: chicken.compiler.core#expand-foreign-lambda o|hiding unexported module binding: chicken.compiler.core#expand-foreign-lambda* o|hiding unexported module binding: chicken.compiler.core#expand-foreign-primitive o|hiding unexported module binding: chicken.compiler.core#update-line-number-database! o|hiding unexported module binding: chicken.compiler.core#lambda-literal o|hiding unexported module binding: chicken.compiler.core#make-lambda-literal o|hiding unexported module binding: chicken.compiler.core#lambda-literal? o|hiding unexported module binding: chicken.compiler.core#lambda-literal-arguments o|hiding unexported module binding: chicken.compiler.core#lambda-literal-directly-called S|applied compiler syntax: S| chicken.base#o 1 S| chicken.format#sprintf 18 S| scheme#for-each 30 S| chicken.base#foldl 3 S| scheme#map 41 S| chicken.base#foldr 3 o|eliminated procedure checks: 493 o|specializations: o| 3 (scheme#positive? *) o| 1 (chicken.base#sub1 *) o| 1 (scheme#integer? *) o| 15 (chicken.base#add1 *) o| 2 (scheme#memq * list) o| 3 (scheme#zero? *) o| 2 (scheme#>= fixnum fixnum) o| 1 (chicken.base#current-error-port) o| 1 (scheme#caddr (pair * (pair * pair))) o| 2 (scheme#cadr (pair * pair)) o| 12 (scheme#cddr (pair * pair)) o| 2 (scheme#string-append string string) o| 18 (##sys#check-output-port * * *) o| 7 (scheme#= fixnum fixnum) o| 3 (scheme#length list) o| 3 (scheme#cdar (pair pair *)) o| 229 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 1 (scheme#eqv? * *) o| 9 (##sys#check-list (or pair list) *) o| 80 (scheme#cdr pair) o| 31 (scheme#car pair) o| 1 (##sys#debug-mode?) (o e)|safe calls: 2175 (o e)|assignments to immediate values: 39 o|safe globals: (chicken.compiler.core#prepare-for-code-generation chicken.compiler.core#lambda-literal-direct chicken.compiler.core#lambda-literal-body chicken.compiler.core#lambda-literal-rest-argument-mode chicken.compiler.core#lambda-literal-customizable chicken.compiler.core#lambda-literal-looping chicken.compiler.core#lambda-literal-closure-size chicken.compiler.core#lambda-literal-directly-called chicken.compiler.core#lambda-literal-allocated chicken.compiler.core#lambda-literal-callee-signatures chicken.compiler.core#lambda-literal-float-temporaries chicken.compiler.core#lambda-literal-temporaries chicken.compiler.core#lambda-literal-rest-argument chicken.compiler.core#lambda-literal-argument-count chicken.compiler.core#lambda-literal-arguments chicken.compiler.core#lambda-literal-external chicken.compiler.core#lambda-literal-id chicken.compiler.core#lambda-literal? chicken.compiler.core#make-lambda-literal chicken.compiler.core#lambda-literal chicken.compiler.core#perform-closure-conversion chicken.compiler.core#analyze-expression chicken.compiler.core#perform-cps-conversion chicken.compiler.core#update-line-number-database! chicken.compiler.core#expand-foreign-primitive chicken.compiler.core#expand-foreign-lambda* chicken.compiler.core#expand-foreign-lambda chicken.compiler.core#create-foreign-stub chicken.compiler.core#foreign-stub-callback chicken.compiler.core#foreign-stub-cps chicken.compiler.core#foreign-stub-body chicken.compiler.core#foreign-stub-argument-names chicken.compiler.core#foreign-stub-argument-types chicken.compiler.core#foreign-stub-name chicken.compiler.core#foreign-stub-return-type chicken.compiler.core#foreign-stub-id chicken.compiler.core#foreign-stub? chicken.compiler.core#make-foreign-stub chicken.compiler.core#foreign-stub chicken.compiler.core#build-toplevel-procedure chicken.compiler.core#register-static-extension chicken.compiler.core#process-declaration chicken.compiler.core#canonicalize-expression chicken.compiler.core#compute-database-statistics chicken.compiler.core#initialize-compiler chicken.compiler.core#internal-bindings chicken.compiler.core#default-standard-bindings chicken.compiler.core#default-extended-bindings chicken.compiler.core#unlikely-variables chicken.compiler.core#linked-static-extensions chicken.compiler.core#provided chicken.compiler.core#file-requirements chicken.compiler.core#toplevel-lambda-id chicken.compiler.core#toplevel-scope chicken.compiler.core#callback-names chicken.compiler.core#defconstant-bindings chicken.compiler.core#pending-canonicalizations chicken.compiler.core#location-pointer-map chicken.compiler.core#external-to-pointer chicken.compiler.core#external-variables chicken.compiler.core#foreign-lambda-stubs chicken.compiler.core#foreign-variables chicken.compiler.core#first-analysis chicken.compiler.core#direct-call-ids chicken.compiler.core#inline-substitutions-enabled chicken.compiler.core#constant-table chicken.compiler.core#inline-table chicken.compiler.core#immutable-constants chicken.compiler.core#line-number-database-2 chicken.compiler.core#current-analysis-database-size chicken.compiler.core#current-program-size chicken.compiler.core#original-program-size chicken.compiler.core#verbose-mode chicken.compiler.core#emit-link-file chicken.compiler.core#static-extensions chicken.compiler.core#enable-specialization chicken.compiler.core#strict-variable-types chicken.compiler.core#bootstrap-mode chicken.compiler.core#compiler-syntax-enabled chicken.compiler.core#enable-inline-files chicken.compiler.core#inline-locally chicken.compiler.core#local-definitions chicken.compiler.core#standalone-executable chicken.compiler.core#enable-module-registration chicken.compiler.core#preserve-unchanged-import-libraries chicken.compiler.core#all-import-libraries chicken.compiler.core#import-libraries chicken.compiler.core#profiled-procedures chicken.compiler.core#undefine-shadowed-macros chicken.compiler.core#emit-closure-info chicken.compiler.core#inline-max-size chicken.compiler.core#external-protos-first chicken.compiler.core#disable-stack-overflow-checking chicken.compiler.core#explicit-use-flag chicken.compiler.core#safe-globals-flag chicken.compiler.core#no-global-procedure-checks chicken.compiler.core#no-procedure-checks chicken.compiler.core#no-argc-checks chicken.compiler.core#no-bound-checks chicken.compiler.core#emit-profile chicken.compiler.core#optimize-leaf-routines chicken.compiler.core#target-stack-size chicken.compiler.core#target-heap-size chicken.compiler.core#line-number-database-size chicken.compiler.core#block-compilation chicken.compiler.core#emit-debug-info chicken.compiler.core#emit-trace-info chicken.compiler.core#foreign-declarations chicken.compiler.core#used-units chicken.compiler.core#insert-timer-checks chicken.compiler.core#extended-bindings chicken.compiler.core#standard-bindings chicken.compiler.core#unit-name chicken.compiler.core#posv chicken.compiler.core#posq chicken.compiler.core#make-list chicken.compiler.core#iota chicken.compiler.core#find-tail chicken.compiler.core#find chicken.compiler.core#length+ chicken.compiler.core#lset=/eq? chicken.compiler.core#lset<=/eq? chicken.compiler.core#list-tabulate chicken.compiler.core#lset-intersection/eq? chicken.compiler.core#lset-union/eq? chicken.compiler.core#lset-difference/eq? chicken.compiler.core#lset-adjoin/eq? chicken.compiler.core#list-index chicken.compiler.core#last chicken.compiler.core#unzip1 chicken.compiler.core#remove chicken.compiler.core#filter-map chicken.compiler.core#filter chicken.compiler.core#alist-cons chicken.compiler.core#delete-duplicates chicken.compiler.core#fifth chicken.compiler.core#fourth chicken.compiler.core#third chicken.compiler.core#second chicken.compiler.core#first chicken.compiler.core#delete chicken.compiler.core#concatenate chicken.compiler.core#cons* chicken.compiler.core#any chicken.compiler.core#every chicken.compiler.core#append-map chicken.compiler.core#split-at chicken.compiler.core#drop chicken.compiler.core#take chicken.compiler.core#span chicken.compiler.core#partition chicken.compiler.core#d) o|removed side-effect free assignment to unused variable: chicken.compiler.core#d o|removed side-effect free assignment to unused variable: chicken.compiler.core#partition o|removed side-effect free assignment to unused variable: chicken.compiler.core#span o|removed side-effect free assignment to unused variable: chicken.compiler.core#drop o|removed side-effect free assignment to unused variable: chicken.compiler.core#append-map o|inlining procedure: k6502 o|inlining procedure: k6502 o|inlining procedure: k6533 o|inlining procedure: k6533 o|merged explicitly consed rest parameter: xs332 o|inlining procedure: k6563 o|inlining procedure: k6563 o|inlining procedure: k6591 o|inlining procedure: k6591 o|inlining procedure: k6619 o|inlining procedure: k6619 o|inlining procedure: k6750 o|inlining procedure: k6750 o|inlining procedure: k6742 o|inlining procedure: k6742 o|removed side-effect free assignment to unused variable: chicken.compiler.core#remove o|inlining procedure: k6859 o|contracted procedure: "(mini-srfi-1.scm:143) g435444" o|inlining procedure: k6859 o|inlining procedure: k6958 o|inlining procedure: k6958 o|merged explicitly consed rest parameter: lss483 o|inlining procedure: k6999 o|contracted procedure: "(mini-srfi-1.scm:164) g496497" o|inlining procedure: k6999 o|inlining procedure: k7044 o|contracted procedure: "(mini-srfi-1.scm:171) g518519" o|inlining procedure: k7069 o|contracted procedure: "(mini-srfi-1.scm:173) g534535" o|inlining procedure: k7085 o|inlining procedure: k7085 o|inlining procedure: k7069 o|inlining procedure: k7044 o|merged explicitly consed rest parameter: lss545 o|inlining procedure: k7141 o|inlining procedure: k7141 o|removed side-effect free assignment to unused variable: chicken.compiler.core#lset<=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.core#lset=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.core#length+ o|removed side-effect free assignment to unused variable: chicken.compiler.core#find o|removed side-effect free assignment to unused variable: chicken.compiler.core#find-tail o|removed side-effect free assignment to unused variable: chicken.compiler.core#iota o|removed side-effect free assignment to unused variable: chicken.compiler.core#make-list o|inlining procedure: k7342 o|inlining procedure: k7342 o|inlining procedure: k7485 o|inlining procedure: k7485 o|inlining procedure: k7540 o|inlining procedure: k7540 o|inlining procedure: k7560 o|inlining procedure: k7560 o|inlining procedure: k7576 o|inlining procedure: k7576 o|substituted constant variable: a7593 o|substituted constant variable: a7595 o|substituted constant variable: a7597 o|inlining procedure: k7607 o|inlining procedure: k7607 o|inlining procedure: k7636 o|inlining procedure: k7636 o|inlining procedure: k7671 o|inlining procedure: k7671 o|inlining procedure: k7695 o|inlining procedure: k7695 o|inlining procedure: k7729 o|contracted procedure: "(core.scm:541) chicken.compiler.core#update-line-number-database!" o|inlining procedure: k16032 o|inlining procedure: k16032 o|inlining procedure: k16054 o|inlining procedure: k16054 o|inlining procedure: k7729 o|inlining procedure: k7797 o|contracted procedure: "(core.scm:550) g850858" o|inlining procedure: k7797 o|removed side-effect free assignment to unused variable: write-to-string792 o|inlining procedure: k7846 o|inlining procedure: k7846 o|inlining procedure: k7858 o|inlining procedure: k7858 o|substituted constant variable: a7883 o|inlining procedure: k7898 o|inlining procedure: k7898 o|inlining procedure: k7921 o|inlining procedure: k7921 o|inlining procedure: "(core.scm:582) chicken.compiler.core#third" o|inlining procedure: "(core.scm:580) chicken.compiler.core#second" o|inlining procedure: "(core.scm:592) chicken.compiler.core#second" o|inlining procedure: "(core.scm:590) chicken.compiler.core#third" o|inlining procedure: k7974 o|inlining procedure: k7974 o|substituted constant variable: a8038 o|substituted constant variable: a8039 o|inlining procedure: k8154 o|inlining procedure: k8154 o|inlining procedure: k8172 o|inlining procedure: k8172 o|inlining procedure: k8218 o|inlining procedure: k8218 o|inlining procedure: k8249 o|inlining procedure: k8267 o|inlining procedure: k8267 o|inlining procedure: k8249 o|inlining procedure: k8312 o|inlining procedure: k8312 o|inlining procedure: k8357 o|inlining procedure: k8419 o|inlining procedure: k8419 o|inlining procedure: k8357 o|inlining procedure: k8469 o|inlining procedure: k8469 o|inlining procedure: k8488 o|inlining procedure: k8488 o|inlining procedure: k8513 o|inlining procedure: k8513 o|inlining procedure: k8563 o|inlining procedure: k8563 o|inlining procedure: k8623 o|inlining procedure: k8739 o|inlining procedure: k8739 o|inlining procedure: k8791 o|inlining procedure: k8791 o|inlining procedure: k8623 o|inlining procedure: k8902 o|contracted procedure: "(core.scm:756) g12471256" o|inlining procedure: k8902 o|inlining procedure: k8936 o|contracted procedure: "(core.scm:753) g12201229" o|inlining procedure: k8936 o|inlining procedure: k8967 o|inlining procedure: k9075 o|contracted procedure: "(core.scm:774) g13701380" o|inlining procedure: k9075 o|inlining procedure: k9123 o|contracted procedure: "(core.scm:773) g13371347" o|inlining procedure: k9123 o|inlining procedure: k9171 o|contracted procedure: "(core.scm:769) g13101319" o|inlining procedure: k9171 o|inlining procedure: k9205 o|inlining procedure: k9205 o|inlining procedure: k8967 o|inlining procedure: k9286 o|inlining procedure: k9286 o|inlining procedure: k9305 o|inlining procedure: k9305 o|inlining procedure: k9317 o|inlining procedure: k9317 o|inlining procedure: k9329 o|inlining procedure: k9329 o|inlining procedure: k9340 o|inlining procedure: k9340 o|inlining procedure: k9412 o|inlining procedure: k9412 o|inlining procedure: k9464 o|inlining procedure: k9570 o|contracted procedure: "(core.scm:830) g14991508" o|inlining procedure: k9570 o|inlining procedure: k9464 o|inlining procedure: k9713 o|inlining procedure: k9713 o|inlining procedure: k9740 o|contracted procedure: "(core.scm:846) g15381547" o|inlining procedure: k9740 o|inlining procedure: k9771 o|inlining procedure: k9771 o|inlining procedure: k9917 o|inlining procedure: k9917 o|inlining procedure: k9936 o|inlining procedure: k9936 o|inlining procedure: k9962 o|inlining procedure: k10063 o|contracted procedure: "(core.scm:941) g16591666" o|inlining procedure: k10063 o|inlining procedure: k10122 o|contracted procedure: "(core.scm:951) g16771684" o|inlining procedure: k10122 o|inlining procedure: k10145 o|inlining procedure: k10145 o|inlining procedure: k9962 o|inlining procedure: k10240 o|inlining procedure: k10287 o|contracted procedure: "(core.scm:974) g17141723" o|inlining procedure: k10287 o|inlining procedure: k10240 o|substituted constant variable: saved179817991817 o|inlining procedure: k10432 o|contracted procedure: "(core.scm:1025) emit-import-lib795" o|inlining procedure: k8064 o|inlining procedure: k8064 o|inlining procedure: k8100 o|inlining procedure: k8100 o|substituted constant variable: a8147 o|inlining procedure: k10478 o|inlining procedure: k10478 o|inlining procedure: k10432 o|inlining procedure: k10616 o|inlining procedure: k10616 o|substituted constant variable: saved188918901904 o|inlining procedure: k10714 o|inlining procedure: k10714 o|inlining procedure: k10784 o|inlining procedure: k10784 o|inlining procedure: k10811 o|inlining procedure: k10811 o|inlining procedure: k10841 o|inlining procedure: k10841 o|propagated global variable: tmp17391741 chicken.compiler.core#unit-name o|propagated global variable: tmp17391741 chicken.compiler.core#unit-name o|inlining procedure: k10884 o|inlining procedure: k10970 o|inlining procedure: k10970 o|inlining procedure: k10884 o|inlining procedure: k11007 o|inlining procedure: k11007 o|substituted constant variable: a11030 o|substituted constant variable: a11031 o|inlining procedure: k11023 o|inlining procedure: k11023 o|inlining procedure: k11044 o|inlining procedure: "(core.scm:1111) chicken.compiler.core#third" o|inlining procedure: "(core.scm:1106) chicken.compiler.core#second" o|inlining procedure: "(core.scm:1122) chicken.compiler.core#second" o|inlining procedure: "(core.scm:1116) chicken.compiler.core#third" o|inlining procedure: k11120 o|inlining procedure: k11120 o|inlining procedure: k11196 o|substituted constant variable: a11223 o|substituted constant variable: a11224 o|substituted constant variable: a11248 o|substituted constant variable: a11249 o|inlining procedure: k11241 o|inlining procedure: k11241 o|inlining procedure: k11196 o|substituted constant variable: a11276 o|substituted constant variable: a11277 o|substituted constant variable: a11301 o|substituted constant variable: a11302 o|inlining procedure: k11294 o|inlining procedure: k11294 o|substituted constant variable: a11360 o|substituted constant variable: a11361 o|substituted constant variable: a11385 o|substituted constant variable: a11386 o|inlining procedure: k11378 o|inlining procedure: k11378 o|inlining procedure: k11044 o|inlining procedure: k11444 o|inlining procedure: k11444 o|inlining procedure: k11475 o|inlining procedure: k11475 o|inlining procedure: k11541 o|inlining procedure: k11541 o|inlining procedure: "(core.scm:1165) chicken.compiler.core#second" o|inlining procedure: k11572 o|inlining procedure: k11572 o|inlining procedure: k11622 o|inlining procedure: k11622 o|inlining procedure: k11656 o|inlining procedure: k11684 o|inlining procedure: k11684 o|inlining procedure: k11656 o|inlining procedure: k11723 o|inlining procedure: k11723 o|inlining procedure: k11749 o|inlining procedure: k11749 o|contracted procedure: "(core.scm:1210) chicken.compiler.core#expand-foreign-primitive" o|inlining procedure: k15914 o|inlining procedure: k15914 o|inlining procedure: k15948 o|contracted procedure: "(core.scm:1879) g35373546" o|inlining procedure: k15948 o|inlining procedure: k15980 o|inlining procedure: k15980 o|inlining procedure: k15990 o|inlining procedure: "(core.scm:1877) chicken.compiler.core#third" o|inlining procedure: k15990 o|inlining procedure: "(core.scm:1877) chicken.compiler.core#second" o|inlining procedure: "(core.scm:1876) chicken.compiler.core#second" o|inlining procedure: k11775 o|inlining procedure: "(core.scm:1216) chicken.compiler.core#fourth" o|inlining procedure: "(core.scm:1214) chicken.compiler.core#third" o|inlining procedure: "(core.scm:1213) chicken.compiler.core#second" o|inlining procedure: k11775 o|inlining procedure: k11837 o|inlining procedure: k11886 o|inlining procedure: "(core.scm:1250) chicken.compiler.core#second" o|inlining procedure: k11886 o|inlining procedure: "(core.scm:1247) chicken.compiler.core#first" o|inlining procedure: k11837 o|substituted constant variable: a11923 o|substituted constant variable: a11924 o|inlining procedure: k11916 o|inlining procedure: k11916 o|inlining procedure: "(core.scm:1225) chicken.compiler.core#third" o|inlining procedure: "(core.scm:1224) chicken.compiler.core#second" o|inlining procedure: k11941 o|substituted constant variable: a12014 o|substituted constant variable: a12015 o|inlining procedure: k12007 o|inlining procedure: k12007 o|inlining procedure: "(core.scm:1261) chicken.compiler.core#fourth" o|inlining procedure: "(core.scm:1260) chicken.compiler.core#third" o|inlining procedure: "(core.scm:1257) chicken.compiler.core#second" o|inlining procedure: k11941 o|inlining procedure: k12110 o|inlining procedure: k12110 o|inlining procedure: "(core.scm:1300) chicken.compiler.core#fourth" o|inlining procedure: "(core.scm:1281) chicken.compiler.core#fourth" o|inlining procedure: "(core.scm:1278) chicken.compiler.core#third" o|inlining procedure: "(core.scm:1277) chicken.compiler.core#second" o|inlining procedure: k12185 o|substituted constant variable: a12217 o|substituted constant variable: a12218 o|inlining procedure: k12210 o|inlining procedure: k12210 o|inlining procedure: "(core.scm:1305) chicken.compiler.core#second" o|inlining procedure: k12185 o|inlining procedure: k12263 o|inlining procedure: k12263 o|substituted constant variable: a12319 o|substituted constant variable: a12320 o|inlining procedure: k12312 o|inlining procedure: k12312 o|substituted constant variable: a12352 o|substituted constant variable: a12353 o|inlining procedure: k12345 o|inlining procedure: k12345 o|inlining procedure: k12393 o|inlining procedure: k12393 o|inlining procedure: "(core.scm:1319) chicken.compiler.core#third" o|inlining procedure: "(core.scm:1317) chicken.compiler.core#second" o|substituted constant variable: saved241524162420 o|inlining procedure: k12428 o|inlining procedure: k12498 o|inlining procedure: k12498 o|inlining procedure: k12428 o|contracted procedure: "(core.scm:1367) chicken.compiler.core#split-at" o|inlining procedure: k6290 o|inlining procedure: k6290 o|inlining procedure: k12629 o|inlining procedure: k12629 o|inlining procedure: k12667 o|inlining procedure: k12667 o|inlining procedure: k12722 o|inlining procedure: k12722 o|inlining procedure: k12773 o|inlining procedure: k12773 o|substituted constant variable: a12824 o|substituted constant variable: a12825 o|inlining procedure: k12817 o|inlining procedure: k12817 o|inlining procedure: "(core.scm:1373) chicken.compiler.core#second" o|inlining procedure: "(core.scm:1372) chicken.compiler.core#fourth" o|inlining procedure: "(core.scm:1371) chicken.compiler.core#third" o|inlining procedure: "(core.scm:1369) chicken.compiler.core#first" o|inlining procedure: k12850 o|inlining procedure: "(core.scm:1454) chicken.compiler.core#second" o|inlining procedure: k12868 o|inlining procedure: k12868 o|inlining procedure: k12909 o|inlining procedure: k12909 o|inlining procedure: k12850 o|inlining procedure: k12979 o|inlining procedure: k12979 o|substituted constant variable: a13002 o|substituted constant variable: a13004 o|substituted constant variable: a13006 o|substituted constant variable: a13008 o|substituted constant variable: a13010 o|substituted constant variable: a13012 o|substituted constant variable: a13014 o|substituted constant variable: a13016 o|substituted constant variable: a13018 o|substituted constant variable: a13020 o|substituted constant variable: a13022 o|substituted constant variable: a13024 o|substituted constant variable: a13026 o|substituted constant variable: a13028 o|substituted constant variable: a13030 o|substituted constant variable: a13035 o|substituted constant variable: a13037 o|substituted constant variable: a13042 o|substituted constant variable: a13044 o|substituted constant variable: a13046 o|substituted constant variable: a13048 o|substituted constant variable: a13050 o|substituted constant variable: a13052 o|substituted constant variable: a13054 o|substituted constant variable: a13056 o|substituted constant variable: a13058 o|substituted constant variable: a13060 o|substituted constant variable: a13062 o|substituted constant variable: a13064 o|substituted constant variable: a13066 o|substituted constant variable: a13068 o|substituted constant variable: a13070 o|substituted constant variable: a13072 o|substituted constant variable: a13074 o|substituted constant variable: a13076 o|substituted constant variable: a13078 o|substituted constant variable: a13080 o|substituted constant variable: a13082 o|substituted constant variable: a13084 o|substituted constant variable: a13086 o|substituted constant variable: a13088 o|substituted constant variable: a13090 o|substituted constant variable: a13092 o|substituted constant variable: a13094 o|inlining procedure: k13098 o|inlining procedure: k13098 o|substituted constant variable: a13105 o|substituted constant variable: a13107 o|substituted constant variable: a13109 o|substituted constant variable: a13111 o|substituted constant variable: a13113 o|substituted constant variable: a13115 o|substituted constant variable: a13117 o|substituted constant variable: a13122 o|substituted constant variable: a13124 o|substituted constant variable: a13126 o|inlining procedure: k13156 o|substituted constant variable: a13167 o|substituted constant variable: a13168 o|inlining procedure: k13156 o|inlining procedure: k13184 o|inlining procedure: k13184 o|inlining procedure: k13271 o|inlining procedure: k13271 o|merged explicitly consed rest parameter: maxlen2633 o|inlining procedure: k13348 o|inlining procedure: k13348 o|inlining procedure: k13364 o|inlining procedure: k13364 o|inlining procedure: k13393 o|inlining procedure: k13393 o|contracted procedure: "(core.scm:1524) chicken.compiler.core#filter-map" o|inlining procedure: k6797 o|inlining procedure: k6797 o|inlining procedure: k6786 o|inlining procedure: k6786 o|substituted constant variable: a13416 o|substituted constant variable: a13417 o|inlining procedure: k13442 o|consed rest parameter at call site: "(core.scm:1540) chicken.compiler.core#lset-difference/eq?" 2 o|inlining procedure: k13442 o|inlining procedure: k13495 o|inlining procedure: k13495 o|consed rest parameter at call site: "(core.scm:1549) check-decl2626" 3 o|inlining procedure: k13517 o|inlining procedure: k13517 o|inlining procedure: k13548 o|inlining procedure: k13548 o|inlining procedure: k13567 o|consed rest parameter at call site: "(core.scm:1570) chicken.compiler.core#lset-intersection/eq?" 2 o|consed rest parameter at call site: "(core.scm:1569) chicken.compiler.core#lset-intersection/eq?" 2 o|inlining procedure: k13567 o|consed rest parameter at call site: "(core.scm:1572) check-decl2626" 3 o|inlining procedure: k13613 o|inlining procedure: k13613 o|inlining procedure: k13630 o|inlining procedure: k13630 o|inlining procedure: k13644 o|inlining procedure: k13644 o|inlining procedure: k13658 o|inlining procedure: k13658 o|inlining procedure: k13672 o|inlining procedure: k13695 o|contracted procedure: "(core.scm:1583) g27002707" o|propagated global variable: g27152716 chicken.compiler.support#mark-variable o|inlining procedure: k13695 o|inlining procedure: k13672 o|inlining procedure: k13724 o|inlining procedure: k13761 o|contracted procedure: "(core.scm:1589) g27502757" o|propagated global variable: g27652766 chicken.compiler.support#mark-variable o|inlining procedure: k13761 o|inlining procedure: k13784 o|contracted procedure: "(core.scm:1586) g27252732" o|propagated global variable: g27402741 chicken.compiler.support#mark-variable o|inlining procedure: k13784 o|inlining procedure: k13724 o|inlining procedure: k13811 o|inlining procedure: k13842 o|contracted procedure: "(core.scm:1597) g27872809" o|propagated global variable: g28172818 chicken.compiler.support#mark-variable o|inlining procedure: k13842 o|inlining procedure: k13865 o|contracted procedure: "(core.scm:1596) g27772794" o|propagated global variable: g28022803 chicken.compiler.support#mark-variable o|inlining procedure: k13865 o|inlining procedure: k13811 o|inlining procedure: k13894 o|inlining procedure: k13894 o|inlining procedure: k13907 o|inlining procedure: k13907 o|inlining procedure: k13921 o|inlining procedure: k13921 o|inlining procedure: k13951 o|contracted procedure: "(core.scm:1607) g28292836" o|propagated global variable: g28442845 chicken.compiler.support#mark-variable o|inlining procedure: k13951 o|inlining procedure: k13973 o|inlining procedure: k13996 o|contracted procedure: "(core.scm:1609) g28542861" o|propagated global variable: g28692870 chicken.compiler.support#mark-variable o|inlining procedure: k13996 o|inlining procedure: k13973 o|inlining procedure: k14030 o|consed rest parameter at call site: "(core.scm:1619) chicken.compiler.core#lset-difference/eq?" 2 o|inlining procedure: k14030 o|inlining procedure: k14064 o|inlining procedure: k14064 o|consed rest parameter at call site: "(core.scm:1625) chicken.compiler.core#lset-difference/eq?" 2 o|inlining procedure: k14086 o|inlining procedure: k14116 o|contracted procedure: "(core.scm:1630) g28852892" o|propagated global variable: g29002901 chicken.compiler.support#mark-variable o|inlining procedure: k14116 o|inlining procedure: k14086 o|inlining procedure: k14149 o|inlining procedure: k14149 o|consed rest parameter at call site: "(core.scm:1640) chicken.compiler.core#lset-difference/eq?" 2 o|consed rest parameter at call site: "(core.scm:1639) chicken.compiler.core#lset-difference/eq?" 2 o|inlining procedure: k14175 o|inlining procedure: k14205 o|contracted procedure: "(core.scm:1644) g29172924" o|propagated global variable: g29322933 chicken.compiler.support#mark-variable o|inlining procedure: k14205 o|inlining procedure: k14175 o|substituted constant variable: a14249 o|consed rest parameter at call site: "(core.scm:1648) check-decl2626" 3 o|substituted constant variable: a14255 o|substituted constant variable: a14257 o|substituted constant variable: a14259 o|substituted constant variable: a14261 o|substituted constant variable: a14263 o|inlining procedure: "(core.scm:1614) chicken.compiler.core#second" o|consed rest parameter at call site: "(core.scm:1613) check-decl2626" 3 o|inlining procedure: k14268 o|inlining procedure: k14268 o|inlining procedure: k14287 o|inlining procedure: k14287 o|inlining procedure: k14303 o|inlining procedure: k14303 o|inlining procedure: k14325 o|inlining procedure: k14344 o|inlining procedure: k14344 o|inlining procedure: k14325 o|inlining procedure: k14373 o|inlining procedure: k14403 o|contracted procedure: "(core.scm:1669) g29922999" o|propagated global variable: g30073008 chicken.compiler.support#mark-variable o|inlining procedure: k14403 o|inlining procedure: k14373 o|inlining procedure: k14439 o|inlining procedure: k14439 o|consed rest parameter at call site: "(core.scm:1673) check-decl2626" 3 o|inlining procedure: k14449 o|inlining procedure: k14479 o|contracted procedure: "(core.scm:1683) g30203027" o|propagated global variable: g30353036 chicken.compiler.support#mark-variable o|inlining procedure: k14479 o|inlining procedure: k14449 o|inlining procedure: k14597 o|contracted procedure: "(core.scm:1692) g30503059" o|inlining procedure: k14518 o|substituted constant variable: a14535 o|inlining procedure: k14518 o|inlining procedure: k14559 o|inlining procedure: k14559 o|substituted constant variable: a14582 o|inlining procedure: k14597 o|inlining procedure: k14630 o|inlining procedure: k14662 o|contracted procedure: "(core.scm:1708) g30833090" o|propagated global variable: g30983099 chicken.compiler.support#mark-variable o|inlining procedure: k14662 o|inlining procedure: k14630 o|inlining procedure: k14692 o|inlining procedure: k14692 o|inlining procedure: k14716 o|contracted procedure: "(core.scm:1715) g31143121" o|propagated global variable: g31293130 chicken.compiler.support#mark-variable o|inlining procedure: k14716 o|inlining procedure: k14740 o|inlining procedure: k14771 o|contracted procedure: "(core.scm:1722) g31393146" o|propagated global variable: g31543155 chicken.compiler.support#mark-variable o|inlining procedure: k14771 o|inlining procedure: k14740 o|inlining procedure: k14803 o|inlining procedure: k14803 o|inlining procedure: k14845 o|inlining procedure: k14902 o|inlining procedure: k14902 o|inlining procedure: k14845 o|inlining procedure: k14935 o|substituted constant variable: a14956 o|inlining procedure: k14935 o|inlining procedure: k14967 o|inlining procedure: k14967 o|inlining procedure: k14995 o|inlining procedure: k15030 o|inlining procedure: k15030 o|inlining procedure: k14995 o|inlining procedure: k15061 o|substituted constant variable: a15070 o|inlining procedure: k15061 o|inlining procedure: k14987 o|inlining procedure: k15089 o|inlining procedure: k15089 o|inlining procedure: k14987 o|inlining procedure: k15116 o|inlining procedure: k15116 o|substituted constant variable: a15127 o|substituted constant variable: a15129 o|substituted constant variable: a15131 o|substituted constant variable: a15133 o|substituted constant variable: a15135 o|substituted constant variable: a15137 o|substituted constant variable: a15139 o|substituted constant variable: a15141 o|substituted constant variable: a15143 o|substituted constant variable: a15145 o|substituted constant variable: a15147 o|substituted constant variable: a15149 o|substituted constant variable: a15151 o|substituted constant variable: a15156 o|substituted constant variable: a15158 o|substituted constant variable: a15160 o|substituted constant variable: a15162 o|substituted constant variable: a15164 o|substituted constant variable: a15166 o|substituted constant variable: a15168 o|substituted constant variable: a15170 o|substituted constant variable: a15172 o|substituted constant variable: a15174 o|substituted constant variable: a15176 o|substituted constant variable: a15178 o|substituted constant variable: a15180 o|substituted constant variable: a15182 o|substituted constant variable: a15184 o|substituted constant variable: a15186 o|substituted constant variable: a15188 o|substituted constant variable: a15190 o|substituted constant variable: a15192 o|substituted constant variable: a15194 o|substituted constant variable: a15196 o|substituted constant variable: a15198 o|substituted constant variable: a15203 o|substituted constant variable: a15205 o|substituted constant variable: a15207 o|substituted constant variable: a15209 o|substituted constant variable: a15211 o|substituted constant variable: a15213 o|substituted constant variable: a15215 o|substituted constant variable: a15217 o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub? o|inlining procedure: k15486 o|inlining procedure: k15486 o|inlining procedure: k15553 o|contracted procedure: "(core.scm:1840) g34133423" o|inlining procedure: k15553 o|contracted procedure: "(core.scm:1834) chicken.compiler.core#make-foreign-stub" o|inlining procedure: k15634 o|inlining procedure: k15634 o|contracted procedure: "(core.scm:1828) type->symbol3314" o|inlining procedure: k15340 o|inlining procedure: k15340 o|inlining procedure: k15355 o|inlining procedure: k15355 o|substituted constant variable: a15397 o|substituted constant variable: a15399 o|substituted constant variable: a15401 o|inlining procedure: k15402 o|inlining procedure: k15402 o|inlining procedure: k15686 o|inlining procedure: k15686 o|inlining procedure: "(core.scm:1860) chicken.compiler.core#second" o|inlining procedure: k15745 o|inlining procedure: k15745 o|inlining procedure: "(core.scm:1854) chicken.compiler.core#third" o|inlining procedure: k15798 o|inlining procedure: k15798 o|inlining procedure: k15832 o|contracted procedure: "(core.scm:1868) g34753484" o|inlining procedure: k15832 o|inlining procedure: "(core.scm:1866) chicken.compiler.core#third" o|inlining procedure: "(core.scm:1865) chicken.compiler.core#second" o|inlining procedure: k16159 o|inlining procedure: k16159 o|inlining procedure: k16195 o|inlining procedure: k16195 o|contracted procedure: "(core.scm:1934) g36553656" o|inlining procedure: k16314 o|inlining procedure: k16326 o|inlining procedure: k16326 o|inlining procedure: k16349 o|inlining procedure: k16349 o|inlining procedure: k16314 o|inlining procedure: "(core.scm:1953) chicken.compiler.core#first" o|contracted procedure: "(core.scm:1953) g36663667" o|inlining procedure: k16416 o|inlining procedure: "(core.scm:1956) chicken.compiler.core#first" o|inlining procedure: k16416 o|inlining procedure: "(core.scm:1966) chicken.compiler.core#first" o|inlining procedure: "(core.scm:1964) chicken.compiler.core#first" o|contracted procedure: "(core.scm:1963) g36753676" o|inlining procedure: k16517 o|inlining procedure: k16517 o|inlining procedure: k16544 o|contracted procedure: "(core.scm:1971) walk-call-unit3615" o|contracted procedure: "(core.scm:1999) g37133714" o|inlining procedure: "(core.scm:1971) chicken.compiler.core#first" o|inlining procedure: k16544 o|inlining procedure: k16573 o|contracted procedure: "(core.scm:1977) chicken.compiler.core#last" o|inlining procedure: k6899 o|inlining procedure: k6899 o|inlining procedure: k16573 o|substituted constant variable: a16590 o|substituted constant variable: a16595 o|substituted constant variable: a16597 o|substituted constant variable: a16599 o|substituted constant variable: a16601 o|inlining procedure: k16605 o|inlining procedure: k16605 o|inlining procedure: k16617 o|inlining procedure: k16617 o|inlining procedure: k16629 o|inlining procedure: k16629 o|substituted constant variable: a16636 o|substituted constant variable: a16638 o|substituted constant variable: a16640 o|substituted constant variable: a16642 o|substituted constant variable: a16644 o|substituted constant variable: a16646 o|substituted constant variable: a16648 o|substituted constant variable: a16650 o|substituted constant variable: a16652 o|substituted constant variable: a16657 o|substituted constant variable: a16659 o|substituted constant variable: a16661 o|substituted constant variable: a16663 o|inlining procedure: k16667 o|inlining procedure: k16667 o|inlining procedure: k16679 o|inlining procedure: k16679 o|substituted constant variable: a16686 o|substituted constant variable: a16688 o|substituted constant variable: a16690 o|substituted constant variable: a16692 o|substituted constant variable: a16694 o|consed rest parameter at call site: "(core.scm:1992) chicken.compiler.core#cons*" 2 o|contracted procedure: "(core.scm:1985) g37053706" o|inlining procedure: k16866 o|inlining procedure: k16866 o|inlining procedure: k16907 o|inlining procedure: k16907 o|substituted constant variable: a16966 o|inlining procedure: k16967 o|inlining procedure: k16967 o|substituted constant variable: a16974 o|inlining procedure: k17016 o|inlining procedure: k17016 o|inlining procedure: k17037 o|inlining procedure: k17037 o|inlining procedure: k17055 o|inlining procedure: k17055 o|inlining procedure: "(core.scm:2058) chicken.compiler.core#first" o|inlining procedure: k17068 o|inlining procedure: k17068 o|inlining procedure: "(core.scm:2077) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2075) chicken.compiler.core#first" o|inlining procedure: k17131 o|inlining procedure: k17149 o|inlining procedure: k17149 o|inlining procedure: k17131 o|inlining procedure: k17234 o|inlining procedure: k17234 o|inlining procedure: "(core.scm:2095) chicken.compiler.core#first" o|inlining procedure: k17254 o|inlining procedure: k17335 o|inlining procedure: k17335 o|inlining procedure: "(core.scm:2125) chicken.compiler.core#second" o|inlining procedure: k17362 o|inlining procedure: k17362 o|inlining procedure: "(core.scm:2110) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2108) chicken.compiler.core#third" o|inlining procedure: k17254 o|inlining procedure: k17435 o|inlining procedure: k17435 o|inlining procedure: k17463 o|inlining procedure: k17463 o|substituted constant variable: a17482 o|substituted constant variable: a17484 o|inlining procedure: "(core.scm:2133) chicken.compiler.core#first" o|inlining procedure: k17488 o|inlining procedure: k17512 o|inlining procedure: k17512 o|inlining procedure: "(core.scm:2154) chicken.compiler.core#first" o|inlining procedure: k17488 o|substituted constant variable: a17531 o|substituted constant variable: a17533 o|substituted constant variable: a17538 o|substituted constant variable: a17540 o|substituted constant variable: a17545 o|substituted constant variable: a17547 o|substituted constant variable: a17549 o|substituted constant variable: a17554 o|substituted constant variable: a17556 o|substituted constant variable: a17558 o|substituted constant variable: a17563 o|substituted constant variable: a17565 o|substituted constant variable: a17567 o|inlining procedure: k17571 o|inlining procedure: k17571 o|substituted constant variable: a17584 o|substituted constant variable: a17586 o|substituted constant variable: a17588 o|substituted constant variable: a17590 o|inlining procedure: k17608 o|inlining procedure: k17608 o|inlining procedure: k17631 o|inlining procedure: k17631 o|inlining procedure: k17646 o|inlining procedure: k17667 o|inlining procedure: k17667 o|inlining procedure: k17646 o|inlining procedure: k17703 o|inlining procedure: k17703 o|propagated global variable: tmp39533955 chicken.compiler.core#local-definitions o|propagated global variable: tmp39533955 chicken.compiler.core#local-definitions o|inlining procedure: k17749 o|inlining procedure: k17749 o|inlining procedure: "(core.scm:2168) chicken.compiler.core#first" o|inlining procedure: k17815 o|inlining procedure: k17815 o|inlining procedure: k17831 o|inlining procedure: k17831 o|inlining procedure: k17850 o|inlining procedure: k17850 o|inlining procedure: k17865 o|inlining procedure: k17865 o|removed side-effect free assignment to unused variable: assigned-locally3979 o|inlining procedure: k17884 o|inlining procedure: k17884 o|inlining procedure: k17898 o|inlining procedure: k17898 o|inlining procedure: k17913 o|inlining procedure: k17913 o|removed side-effect free assignment to unused variable: rest-parameter3982 o|substituted constant variable: a17929 o|substituted constant variable: a17931 o|substituted constant variable: a17933 o|substituted constant variable: a17935 o|substituted constant variable: a17937 o|substituted constant variable: a17939 o|substituted constant variable: a17941 o|substituted constant variable: a17943 o|substituted constant variable: a17945 o|substituted constant variable: a17947 o|substituted constant variable: a17949 o|substituted constant variable: a17951 o|inlining procedure: k17990 o|inlining procedure: k18011 o|inlining procedure: k18032 o|inlining procedure: "(core.scm:2416) chicken.compiler.core#first" o|inlining procedure: k18032 o|inlining procedure: k18054 o|inlining procedure: "(core.scm:2415) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2415) chicken.compiler.core#first" o|inlining procedure: k18054 o|inlining procedure: "(core.scm:2412) chicken.compiler.core#second" o|inlining procedure: "(core.scm:2411) chicken.compiler.core#first" o|substituted constant variable: a18083 o|inlining procedure: k18011 o|inlining procedure: k18091 o|inlining procedure: k18091 o|inlining procedure: "(core.scm:2405) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2404) chicken.compiler.core#third" o|inlining procedure: "(core.scm:2403) chicken.compiler.core#second" o|inlining procedure: k17990 o|inlining procedure: k18124 o|inlining procedure: k18154 o|inlining procedure: k18154 o|inlining procedure: k18163 o|inlining procedure: k18172 o|inlining procedure: k18187 o|inlining procedure: k18187 o|inlining procedure: k18172 o|substituted constant variable: a18205 o|inlining procedure: k18163 o|inlining procedure: "(core.scm:2383) chicken.compiler.core#first" o|inlining procedure: k18124 o|inlining procedure: k18244 o|inlining procedure: k18256 o|inlining procedure: k18274 o|inlining procedure: k18274 o|inlining procedure: "(core.scm:2366) chicken.compiler.core#first" o|inlining procedure: k18256 o|inlining procedure: k18244 o|inlining procedure: k18299 o|inlining procedure: k18327 o|inlining procedure: "(core.scm:2356) chicken.compiler.core#first" o|inlining procedure: k18327 o|inlining procedure: "(core.scm:2358) chicken.compiler.core#first" o|inlining procedure: k18359 o|inlining procedure: k18359 o|inlining procedure: k18392 o|inlining procedure: k18392 o|inlining procedure: "(core.scm:2343) chicken.compiler.core#third" o|inlining procedure: "(core.scm:2341) chicken.compiler.core#second" o|inlining procedure: k18299 o|inlining procedure: k18428 o|inlining procedure: k18428 o|inlining procedure: "(core.scm:2325) chicken.compiler.core#first" o|inlining procedure: k18457 o|inlining procedure: k18457 o|inlining procedure: k18487 o|inlining procedure: k18487 o|inlining procedure: "(core.scm:2284) chicken.compiler.core#second" o|inlining procedure: k18523 o|inlining procedure: k18550 o|inlining procedure: k18550 o|inlining procedure: "(core.scm:2301) chicken.compiler.core#second" o|inlining procedure: k18523 o|inlining procedure: k18599 o|inlining procedure: k18599 o|substituted constant variable: a18643 o|substituted constant variable: a18644 o|inlining procedure: k18657 o|inlining procedure: k18666 o|inlining procedure: k18678 o|inlining procedure: k18678 o|inlining procedure: k18666 o|inlining procedure: k18657 o|inlining procedure: k18714 o|inlining procedure: "(core.scm:2257) chicken.compiler.core#first" o|inlining procedure: k18714 o|inlining procedure: k18709 o|inlining procedure: k18744 o|inlining procedure: k18744 o|inlining procedure: k18709 o|inlining procedure: k18764 o|inlining procedure: k18764 o|inlining procedure: k18779 o|inlining procedure: k18779 o|inlining procedure: k18843 o|inlining procedure: "(core.scm:2459) chicken.compiler.core#first" o|inlining procedure: k18843 o|inlining procedure: k18870 o|inlining procedure: "(core.scm:2472) chicken.compiler.core#second" o|inlining procedure: "(core.scm:2471) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2470) chicken.compiler.core#first" o|inlining procedure: k18870 o|inlining procedure: k18930 o|inlining procedure: k18930 o|inlining procedure: "(core.scm:2476) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2475) chicken.compiler.core#first" o|inlining procedure: k18943 o|inlining procedure: k18985 o|inlining procedure: k18985 o|inlining procedure: k19021 o|inlining procedure: k19031 o|inlining procedure: k19070 o|inlining procedure: k19070 o|inlining procedure: k19090 o|inlining procedure: k19090 o|inlining procedure: k19110 o|inlining procedure: k19119 o|inlining procedure: k19119 o|inlining procedure: k19110 o|inlining procedure: "(core.scm:2503) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2502) chicken.compiler.core#third" o|inlining procedure: k19146 o|inlining procedure: k19146 o|inlining procedure: "(core.scm:2492) chicken.compiler.core#first" o|inlining procedure: k19031 o|inlining procedure: k19021 o|inlining procedure: "(core.scm:2484) chicken.compiler.core#second" o|inlining procedure: "(core.scm:2483) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2482) chicken.compiler.core#first" o|inlining procedure: k18943 o|consed rest parameter at call site: "(core.scm:2534) chicken.compiler.core#lset-difference/eq?" 2 o|contracted procedure: "(core.scm:2531) chicken.compiler.core#delete-duplicates" o|inlining procedure: k6694 o|inlining procedure: k6694 o|inlining procedure: "(core.scm:2531) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2529) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2527) chicken.compiler.core#third" o|inlining procedure: k19280 o|inlining procedure: k19280 o|substituted constant variable: a19315 o|substituted constant variable: a19317 o|substituted constant variable: a19319 o|substituted constant variable: a19321 o|substituted constant variable: a19323 o|inlining procedure: k19327 o|inlining procedure: k19327 o|inlining procedure: k19339 o|inlining procedure: k19339 o|substituted constant variable: a19346 o|substituted constant variable: a19348 o|substituted constant variable: a19350 o|substituted constant variable: a19352 o|substituted constant variable: a19354 o|substituted constant variable: a19356 o|inlining procedure: k19369 o|inlining procedure: k19369 o|inlining procedure: k19390 o|inlining procedure: k19390 o|inlining procedure: "(core.scm:2550) chicken.compiler.core#first" o|inlining procedure: k19403 o|inlining procedure: k19403 o|inlining procedure: k19438 o|inlining procedure: "(core.scm:2575) chicken.compiler.core#second" o|inlining procedure: "(core.scm:2571) chicken.compiler.core#first" o|inlining procedure: k19438 o|inlining procedure: "(core.scm:2565) chicken.compiler.core#first" o|inlining procedure: k19499 o|inlining procedure: k19599 o|inlining procedure: k19599 o|inlining procedure: k19643 o|inlining procedure: k19643 o|inlining procedure: k19686 o|inlining procedure: k19729 o|inlining procedure: k19729 o|inlining procedure: k19765 o|contracted procedure: "(core.scm:2621) g45854594" o|inlining procedure: k19765 o|inlining procedure: k19686 o|inlining procedure: "(core.scm:2616) chicken.compiler.core#fourth" o|inlining procedure: k19825 o|inlining procedure: k19825 o|inlining procedure: k19841 o|inlining procedure: k19841 o|inlining procedure: k19853 o|inlining procedure: k19853 o|inlining procedure: "(core.scm:2605) chicken.compiler.core#second" o|inlining procedure: k19889 o|inlining procedure: k19889 o|inlining procedure: k19895 o|inlining procedure: k19895 o|inlining procedure: k19915 o|inlining procedure: k19915 o|inlining procedure: "(core.scm:2591) chicken.compiler.core#second" o|inlining procedure: "(core.scm:2588) chicken.compiler.core#first" o|inlining procedure: k19930 o|inlining procedure: k19930 o|inlining procedure: k19978 o|inlining procedure: k19978 o|inlining procedure: "(core.scm:2581) chicken.compiler.core#third" o|inlining procedure: k19499 o|inlining procedure: k20044 o|inlining procedure: k20044 o|inlining procedure: k20039 o|inlining procedure: k20039 o|inlining procedure: k20154 o|inlining procedure: k20154 o|inlining procedure: "(core.scm:2648) chicken.compiler.core#second" o|inlining procedure: "(core.scm:2647) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2645) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2644) chicken.compiler.core#first" o|inlining procedure: k20184 o|inlining procedure: k20206 o|inlining procedure: k20206 o|inlining procedure: k20231 o|inlining procedure: k20231 o|inlining procedure: k20184 o|substituted constant variable: a20238 o|substituted constant variable: a20240 o|substituted constant variable: a20245 o|substituted constant variable: a20247 o|substituted constant variable: a20249 o|inlining procedure: k20253 o|inlining procedure: k20253 o|inlining procedure: k20265 o|inlining procedure: k20265 o|inlining procedure: k20277 o|inlining procedure: k20277 o|inlining procedure: k20289 o|inlining procedure: k20289 o|inlining procedure: k20301 o|inlining procedure: k20301 o|inlining procedure: k20313 o|inlining procedure: k20313 o|inlining procedure: k20325 o|inlining procedure: k20325 o|inlining procedure: k20337 o|inlining procedure: k20337 o|substituted constant variable: a20350 o|substituted constant variable: a20352 o|substituted constant variable: a20354 o|substituted constant variable: a20356 o|substituted constant variable: a20358 o|substituted constant variable: a20360 o|substituted constant variable: a20362 o|substituted constant variable: a20364 o|substituted constant variable: a20366 o|substituted constant variable: a20368 o|substituted constant variable: a20370 o|substituted constant variable: a20372 o|substituted constant variable: a20374 o|substituted constant variable: a20376 o|substituted constant variable: a20378 o|substituted constant variable: a20380 o|substituted constant variable: a20382 o|substituted constant variable: a20384 o|substituted constant variable: a20386 o|inlining procedure: k20390 o|inlining procedure: k20390 o|inlining procedure: k20402 o|inlining procedure: k20402 o|substituted constant variable: a20415 o|substituted constant variable: a20417 o|substituted constant variable: a20419 o|substituted constant variable: a20421 o|substituted constant variable: a20423 o|substituted constant variable: a20425 o|inlining procedure: k20446 o|inlining procedure: k20446 o|inlining procedure: k20486 o|inlining procedure: k20486 o|inlining procedure: "(core.scm:2688) chicken.compiler.core#first" o|inlining procedure: k20532 o|inlining procedure: k20532 o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal? o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-arguments o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-directly-called o|inlining procedure: k20714 o|inlining procedure: k20714 o|inlining procedure: k20777 o|inlining procedure: k20777 o|propagated global variable: tmp48474849 chicken.compiler.core#no-bound-checks o|inlining procedure: k20798 o|propagated global variable: tmp48474849 chicken.compiler.core#no-bound-checks o|inlining procedure: k20798 o|propagated global variable: tmp48504852 chicken.compiler.support#unsafe o|propagated global variable: tmp48504852 chicken.compiler.support#unsafe o|inlining procedure: k20807 o|inlining procedure: k20807 o|inlining procedure: k20825 o|inlining procedure: k20825 o|inlining procedure: "(core.scm:2785) chicken.compiler.core#first" o|inlining procedure: k20847 o|inlining procedure: "(core.scm:2789) chicken.compiler.core#fourth" o|inlining procedure: "(core.scm:2788) chicken.compiler.core#second" o|inlining procedure: k20847 o|inlining procedure: "(core.scm:2802) chicken.compiler.core#second" o|inlining procedure: k20922 o|inlining procedure: k20922 o|inlining procedure: "(core.scm:2810) chicken.compiler.core#second" o|inlining procedure: k20964 o|inlining procedure: "(core.scm:2814) chicken.compiler.core#first" o|inlining procedure: k20964 o|inlining procedure: "(core.scm:2818) chicken.compiler.core#first" o|inlining procedure: k21014 o|inlining procedure: "(core.scm:2823) chicken.compiler.core#first" o|inlining procedure: k21014 o|inlining procedure: k21055 o|inlining procedure: k21055 o|inlining procedure: "(core.scm:2830) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2826) chicken.compiler.core#first" o|inlining procedure: k21081 o|inlining procedure: "(core.scm:2839) chicken.compiler.core#first" o|inlining procedure: k21081 o|inlining procedure: "(core.scm:2909) chicken.compiler.core#first" o|contracted procedure: "(core.scm:2883) chicken.compiler.core#make-lambda-literal" o|inlining procedure: k21204 o|inlining procedure: k21204 o|inlining procedure: "(core.scm:2885) chicken.compiler.core#second" o|inlining procedure: k21237 o|inlining procedure: k21237 o|inlining procedure: k21254 o|inlining procedure: k21254 o|inlining procedure: k21266 o|inlining procedure: k21266 o|inlining procedure: k21287 o|inlining procedure: k21287 o|inlining procedure: "(core.scm:2858) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2856) chicken.compiler.core#third" o|inlining procedure: k21297 o|inlining procedure: "(core.scm:2919) chicken.compiler.core#second" o|inlining procedure: "(core.scm:2913) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2912) chicken.compiler.core#first" o|inlining procedure: k21297 o|inlining procedure: "(core.scm:2930) chicken.compiler.core#second" o|inlining procedure: "(core.scm:2925) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2924) chicken.compiler.core#first" o|inlining procedure: k21398 o|inlining procedure: k21483 o|inlining procedure: k21483 o|inlining procedure: k21497 o|inlining procedure: k21497 o|inlining procedure: "(core.scm:2945) chicken.compiler.core#second" o|inlining procedure: "(core.scm:2944) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2934) chicken.compiler.core#first" o|inlining procedure: "(core.scm:2933) chicken.compiler.core#first" o|inlining procedure: k21398 o|inlining procedure: "(core.scm:2962) chicken.compiler.core#third" o|substituted constant variable: a21610 o|inlining procedure: "(core.scm:2960) chicken.compiler.core#second" o|inlining procedure: k21622 o|inlining procedure: "(core.scm:2975) chicken.compiler.core#first" o|inlining procedure: k21622 o|inlining procedure: k21652 o|inlining procedure: k21652 o|inlining procedure: k21667 o|substituted constant variable: a21694 o|substituted constant variable: a21695 o|inlining procedure: k21667 o|inlining procedure: k21737 o|inlining procedure: k21737 o|inlining procedure: "(core.scm:2979) chicken.compiler.core#first" o|inlining procedure: k21767 o|inlining procedure: "(core.scm:3002) chicken.compiler.core#third" o|inlining procedure: "(core.scm:2999) chicken.compiler.core#second" o|inlining procedure: "(core.scm:2996) chicken.compiler.core#first" o|inlining procedure: k21767 o|inlining procedure: k21868 o|inlining procedure: k21868 o|consed rest parameter at call site: "(core.scm:3023) chicken.compiler.core#cons*" 2 o|inlining procedure: "(core.scm:3015) chicken.compiler.core#first" o|inlining procedure: "(core.scm:3008) chicken.compiler.core#first" o|inlining procedure: k21933 o|inlining procedure: k21933 o|substituted constant variable: a21959 o|substituted constant variable: a21961 o|substituted constant variable: a21966 o|substituted constant variable: a21968 o|substituted constant variable: a21970 o|substituted constant variable: a21972 o|substituted constant variable: a21974 o|substituted constant variable: a21976 o|substituted constant variable: a21978 o|substituted constant variable: a21980 o|substituted constant variable: a21985 o|substituted constant variable: a21987 o|substituted constant variable: a21989 o|substituted constant variable: a21991 o|substituted constant variable: a21993 o|substituted constant variable: a21995 o|substituted constant variable: a21997 o|substituted constant variable: a21999 o|substituted constant variable: a22001 o|substituted constant variable: a22003 o|substituted constant variable: a22005 o|substituted constant variable: a22007 o|inlining procedure: k22011 o|inlining procedure: k22011 o|substituted constant variable: a22018 o|substituted constant variable: a22020 o|substituted constant variable: a22022 o|inlining procedure: k22043 o|inlining procedure: k22043 o|inlining procedure: k22077 o|inlining procedure: k22077 o|inlining procedure: k22104 o|inlining procedure: k22104 o|contracted procedure: "(core.scm:3048) chicken.compiler.core#posv" o|inlining procedure: k7376 o|inlining procedure: k7376 o|inlining procedure: k22137 o|inlining procedure: k22137 o|inlining procedure: k22162 o|inlining procedure: k22162 o|contracted procedure: "(core.scm:3059) chicken.compiler.core#list-index" o|inlining procedure: k6924 o|inlining procedure: k6924 o|inlining procedure: k22178 o|inlining procedure: k22178 o|inlining procedure: k22191 o|inlining procedure: k22191 o|inlining procedure: k22209 o|inlining procedure: k22209 o|inlining procedure: k22224 o|inlining procedure: k22224 o|simplifications: ((if . 1)) o|replaced variables: 3030 o|removed binding forms: 956 o|substituted constant variable: r659222293 o|removed side-effect free assignment to unused variable: chicken.compiler.core#first o|removed side-effect free assignment to unused variable: chicken.compiler.core#second o|removed side-effect free assignment to unused variable: chicken.compiler.core#third o|removed side-effect free assignment to unused variable: chicken.compiler.core#fourth o|substituted constant variable: r674322300 o|contracted procedure: "(mini-srfi-1.scm:175) chicken.compiler.core#any" o|substituted constant variable: r653422289 o|removed side-effect free assignment to unused variable: chicken.compiler.core#list-tabulate o|substituted constant variable: r734322315 o|substituted constant variable: r763722335 o|inlining procedure: k7729 o|substituted constant variable: r785922354 o|removed call to pure procedure with unused result: "(core.scm:572) chicken.base#void" o|substituted constant variable: r826822388 o|substituted constant variable: r826822388 o|substituted constant variable: r856422405 o|substituted constant variable: r934122439 o|substituted constant variable: r934122439 o|substituted constant variable: r991822455 o|substituted constant variable: r991822455 o|substituted constant variable: r993722459 o|substituted constant variable: r993722459 o|substituted constant variable: r1102422501 o|substituted constant variable: r1102422501 o|substituted constant variable: r1124222529 o|substituted constant variable: r1124222529 o|substituted constant variable: r1129522534 o|substituted constant variable: r1129522534 o|substituted constant variable: r1137922538 o|substituted constant variable: r1137922538 o|substituted constant variable: r1177622591 o|substituted constant variable: r1188722616 o|substituted constant variable: r1188722616 o|substituted constant variable: r1183822623 o|substituted constant variable: r1191722626 o|substituted constant variable: r1191722626 o|substituted constant variable: r1194222638 o|substituted constant variable: r1200822641 o|substituted constant variable: r1200822641 o|substituted constant variable: r1218622683 o|substituted constant variable: r1221122686 o|substituted constant variable: r1221122686 o|substituted constant variable: r1226422694 o|substituted constant variable: r1231322698 o|substituted constant variable: r1231322698 o|substituted constant variable: r1234622702 o|substituted constant variable: r1234622702 o|substituted constant variable: n222 o|substituted constant variable: r1272322728 o|substituted constant variable: r1281822734 o|substituted constant variable: r1281822734 o|substituted constant variable: r1298022769 o|substituted constant variable: r1298022769 o|inlining procedure: k12964 o|substituted constant variable: r1336522781 o|substituted constant variable: r1336522781 o|substituted constant variable: r1339422785 o|substituted constant variable: r678722790 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|substituted constant variable: r1456022890 o|inlining procedure: k13442 o|inlining procedure: k13442 o|inlining procedure: k13442 o|substituted constant variable: r1490322908 o|inlining procedure: k14935 o|substituted constant variable: r1493622912 o|substituted constant variable: r1493622912 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r1506222921 o|inlining procedure: k13442 o|inlining procedure: k13442 o|contracted procedure: "(core.scm:1828) g33723381" o|substituted constant variable: r1534122936 o|substituted constant variable: r1540322941 o|inlining procedure: k15408 o|substituted constant variable: r1616022971 o|substituted constant variable: r1701723032 o|substituted constant variable: r1733623069 o|substituted constant variable: r1751323100 o|substituted constant variable: r1805523162 o|substituted constant variable: r1809223175 o|substituted constant variable: r1817323199 o|substituted constant variable: r1816423200 o|substituted constant variable: r1824523217 o|substituted constant variable: r1836023231 o|substituted constant variable: r1836023232 o|substituted constant variable: r1867923276 o|substituted constant variable: r1866723277 o|substituted constant variable: r1865823278 o|substituted constant variable: r1871023289 o|substituted constant variable: r1876523291 o|inlining procedure: k19031 o|substituted constant variable: r1912023353 o|substituted constant variable: r1911123354 o|inlining procedure: k19031 o|substituted constant variable: r1914723366 o|substituted constant variable: r1903223372 o|substituted constant variable: r1903223372 o|substituted constant variable: r1902223374 o|substituted constant variable: r1902223374 o|substituted constant variable: r1989023476 o|substituted constant variable: r1989023476 o|substituted constant variable: r1989023478 o|substituted constant variable: r1989023478 o|substituted constant variable: r1989623481 o|substituted constant variable: r1991623483 o|substituted constant variable: r2020723533 o|substituted constant variable: r2020723533 o|substituted constant variable: r2023223535 o|substituted constant variable: r2023223535 o|substituted constant variable: r2023223537 o|substituted constant variable: r2023223537 o|propagated global variable: r2079923579 chicken.compiler.core#no-bound-checks o|substituted constant variable: r2105623633 o|substituted constant variable: r2105623633 o|substituted constant variable: r2120523659 o|substituted constant variable: r2120523660 o|substituted constant variable: r2126723674 o|substituted constant variable: r737723815 o|substituted constant variable: r2216323820 o|substituted constant variable: r692523821 o|inlining procedure: k22191 o|inlining procedure: k22191 o|substituted constant variable: r2222523831 o|replaced variables: 278 o|removed binding forms: 3047 o|removed conditional forms: 1 o|inlining procedure: k16070 o|inlining procedure: "(core.scm:1899) chicken.compiler.core#alist-cons" o|inlining procedure: k7849 o|inlining procedure: k7849 o|inlining procedure: k7849 o|contracted procedure: k7895 o|inlining procedure: "(core.scm:690) chicken.compiler.core#alist-cons" o|inlining procedure: k8599 o|inlining procedure: k9799 o|inlining procedure: k9902 o|inlining procedure: "(core.scm:897) chicken.compiler.core#alist-cons" o|inlining procedure: k10458 o|inlining procedure: k10458 o|inlining procedure: "(core.scm:1273) chicken.compiler.core#alist-cons" o|inlining procedure: "(core.scm:1268) chicken.compiler.core#fifth" o|inlining procedure: "(core.scm:1300) chicken.compiler.core#fifth" o|inlining procedure: "(core.scm:1286) chicken.compiler.core#alist-cons" o|inlining procedure: k12764 o|inlining procedure: k12764 o|inlining procedure: "(core.scm:1478) chicken.compiler.core#alist-cons" o|inlining procedure: "(core.scm:1478) chicken.compiler.core#alist-cons" o|inlining procedure: k13354 o|substituted constant variable: r1493624098 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r154032294124118 o|inlining procedure: k17500 o|inlining procedure: "(core.scm:2195) chicken.compiler.core#alist-cons" o|inlining procedure: k18235 o|inlining procedure: k18235 o|inlining procedure: k18235 o|inlining procedure: k18235 o|inlining procedure: k18434 o|inlining procedure: k18556 o|inlining procedure: k18575 o|inlining procedure: k18626 o|inlining procedure: k18626 o|inlining procedure: k20151 o|inlining procedure: k21275 o|inlining procedure: k21275 o|inlining procedure: k21494 o|replaced variables: 79 o|removed binding forms: 444 o|removed side-effect free assignment to unused variable: chicken.compiler.core#fifth o|removed side-effect free assignment to unused variable: chicken.compiler.core#alist-cons o|substituted constant variable: r785024255 o|substituted constant variable: r785024257 o|substituted constant variable: r785024259 o|substituted constant variable: r980024295 o|substituted constant variable: r990324296 o|inlining procedure: k12200 o|substituted constant variable: z37524388 o|substituted constant variable: r1823624476 o|substituted constant variable: r1823624477 o|substituted constant variable: r1857624484 o|substituted constant variable: r1862724486 o|substituted constant variable: r1903224169 o|substituted constant variable: r2015224509 o|substituted constant variable: r2015224509 o|substituted constant variable: r2015224509 o|substituted constant variable: r2127624514 o|substituted constant variable: r2149524515 o|substituted constant variable: r2149524515 o|substituted constant variable: r2149524515 o|substituted constant variable: r2219224211 o|substituted constant variable: r2219224213 o|replaced variables: 150 o|removed binding forms: 90 o|removed conditional forms: 10 o|removed binding forms: 169 o|simplifications: ((if . 83) (##core#call . 1797)) o| call simplifications: o| chicken.base#void o| scheme#boolean? o| scheme#char? o| scheme#eof-object? o| chicken.base#fixnum? 2 o| chicken.fixnum#fxmax 2 o| chicken.fixnum#fx* 2 o| scheme#= 4 o| scheme#set-cdr! o| scheme#- 7 o| ##sys#make-structure 2 o| ##sys#check-structure 22 o| ##sys#block-ref 22 o| scheme#call-with-current-continuation o| chicken.fixnum#fx>= 2 o| scheme#string o| scheme#number? 2 o| scheme#< o| scheme#> 3 o| scheme#member 3 o| chicken.fixnum#fx<= o| chicken.fixnum#fx- 6 o| scheme#cddddr 3 o| scheme#vector 2 o| scheme#string? 3 o| scheme#equal? 2 o| scheme#set-car! 3 o| scheme#list-ref 2 o| scheme#cddr 20 o| scheme#assoc o| scheme#list 101 o| ##sys#cons 37 o| scheme#cdddr 10 o| scheme#cadddr 11 o| scheme#cdr 31 o| scheme#caddr 36 o| ##sys#list 110 o| scheme#list? 10 o| scheme#cadr 99 o| scheme#assq 16 o| ##sys#call-with-values 11 o| ##sys#apply 4 o| scheme#caar 2 o| scheme#symbol? 18 o| scheme#length 16 o| scheme#+ 23 o| scheme#values 7 o| chicken.fixnum#fx+ 9 o| scheme#eq? 289 o| scheme#memq 20 o| ##sys#setslot 39 o| ##sys#check-list 72 o| scheme#pair? 114 o| ##sys#slot 199 o| scheme#cons 154 o| scheme#null? 39 o| scheme#car 135 o| scheme#not 61 o|contracted procedure: k6499 o|contracted procedure: k6508 o|contracted procedure: k6521 o|contracted procedure: k6566 o|contracted procedure: k6577 o|contracted procedure: k6594 o|contracted procedure: k6601 o|contracted procedure: k6622 o|contracted procedure: k6648 o|contracted procedure: k6733 o|contracted procedure: k6745 o|contracted procedure: k6763 o|contracted procedure: k6771 o|contracted procedure: k6842 o|contracted procedure: k6850 o|contracted procedure: k6862 o|contracted procedure: k6884 o|contracted procedure: k6880 o|contracted procedure: k6865 o|contracted procedure: k6868 o|contracted procedure: k6876 o|contracted procedure: k6961 o|contracted procedure: k6987 o|contracted procedure: k6967 o|contracted procedure: k6981 o|contracted procedure: k7002 o|contracted procedure: k7009 o|contracted procedure: k7032 o|contracted procedure: k7025 o|contracted procedure: k7047 o|contracted procedure: k7054 o|contracted procedure: k7111 o|contracted procedure: k7060 o|contracted procedure: k7072 o|contracted procedure: k7079 o|contracted procedure: k7104 o|contracted procedure: k6536 o|contracted procedure: k6551 o|contracted procedure: k7345 o|contracted procedure: k7364 o|contracted procedure: k7351 o|contracted procedure: k7358 o|contracted procedure: k7534 o|contracted procedure: k7537 o|contracted procedure: k7543 o|contracted procedure: k7547 o|contracted procedure: k7553 o|contracted procedure: k7557 o|contracted procedure: k7563 o|contracted procedure: k7567 o|contracted procedure: k7579 o|contracted procedure: k7587 o|contracted procedure: k7583 o|contracted procedure: k7598 o|contracted procedure: k7610 o|contracted procedure: k7620 o|contracted procedure: k7624 o|contracted procedure: k7639 o|contracted procedure: k7665 o|contracted procedure: k7655 o|contracted procedure: k7745 o|contracted procedure: k7726 o|contracted procedure: k7735 o|contracted procedure: k16035 o|contracted procedure: k16096 o|contracted procedure: k16051 o|contracted procedure: k16092 o|contracted procedure: k16060 o|contracted procedure: k16067 o|contracted procedure: k16078 o|contracted procedure: k672724252 o|contracted procedure: k7785 o|contracted procedure: k7788 o|contracted procedure: k7825 o|contracted procedure: k7800 o|contracted procedure: k7810 o|contracted procedure: k7814 o|contracted procedure: k7818 o|contracted procedure: k7822 o|contracted procedure: k7855 o|contracted procedure: k7861 o|contracted procedure: k7880 o|contracted procedure: k7867 o|contracted procedure: k7849 o|contracted procedure: k8024 o|contracted procedure: k7901 o|contracted procedure: k7932 o|contracted procedure: k7940 o|contracted procedure: k7965 o|contracted procedure: k7961 o|contracted procedure: k7946 o|contracted procedure: k7971 o|contracted procedure: k7979 o|contracted procedure: k8000 o|contracted procedure: k8004 o|contracted procedure: k7985 o|contracted procedure: k8020 o|contracted procedure: k8013 o|contracted procedure: k8027 o|contracted procedure: k8166 o|contracted procedure: k13248 o|contracted procedure: k8175 o|contracted procedure: k13244 o|contracted procedure: k8193 o|contracted procedure: k8199 o|contracted procedure: k13128 o|contracted procedure: k8221 o|contracted procedure: k8243 o|contracted procedure: k8239 o|contracted procedure: k8252 o|contracted procedure: k8281 o|contracted procedure: k8270 o|contracted procedure: k8277 o|contracted procedure: k8285 o|contracted procedure: k8289 o|contracted procedure: k8295 o|contracted procedure: k8298 o|contracted procedure: k8309 o|contracted procedure: k8315 o|contracted procedure: k8325 o|contracted procedure: k8331 o|contracted procedure: k8342 o|contracted procedure: k8350 o|contracted procedure: k8354 o|contracted procedure: k8360 o|contracted procedure: k8371 o|contracted procedure: k8383 o|contracted procedure: k8400 o|contracted procedure: k8404 o|contracted procedure: k8407 o|contracted procedure: k8410 o|contracted procedure: k8375 o|contracted procedure: k8367 o|contracted procedure: k8422 o|contracted procedure: k8425 o|contracted procedure: k8428 o|contracted procedure: k8436 o|contracted procedure: k8444 o|contracted procedure: k8451 o|contracted procedure: k8460 o|contracted procedure: k8466 o|contracted procedure: k672724269 o|propagated global variable: z37524266 chicken.compiler.core#immutable-constants o|contracted procedure: k8491 o|contracted procedure: k8500 o|contracted procedure: k8503 o|contracted procedure: k8516 o|contracted procedure: k8523 o|contracted procedure: k8541 o|contracted procedure: k8556 o|contracted procedure: k8560 o|contracted procedure: k8566 o|contracted procedure: k8573 o|contracted procedure: k8579 o|contracted procedure: k8582 o|contracted procedure: k8605 o|contracted procedure: k8626 o|contracted procedure: k8629 o|contracted procedure: k8635 o|contracted procedure: k8638 o|contracted procedure: k8650 o|contracted procedure: k8660 o|contracted procedure: k8673 o|contracted procedure: k8678 o|contracted procedure: k8681 o|contracted procedure: k8723 o|contracted procedure: k8778 o|contracted procedure: k8742 o|contracted procedure: k8745 o|contracted procedure: k8748 o|contracted procedure: k8756 o|contracted procedure: k8760 o|contracted procedure: k8768 o|contracted procedure: k8772 o|contracted procedure: k8794 o|contracted procedure: k8797 o|contracted procedure: k8800 o|contracted procedure: k8808 o|contracted procedure: k8816 o|contracted procedure: k8825 o|contracted procedure: k8828 o|contracted procedure: k8845 o|contracted procedure: k8857 o|contracted procedure: k8841 o|contracted procedure: k8837 o|contracted procedure: k8868 o|contracted procedure: k8896 o|contracted procedure: k8892 o|contracted procedure: k8888 o|contracted procedure: k8905 o|contracted procedure: k8908 o|contracted procedure: k8911 o|contracted procedure: k8919 o|contracted procedure: k8927 o|contracted procedure: k8877 o|contracted procedure: k8881 o|contracted procedure: k8939 o|contracted procedure: k8942 o|contracted procedure: k8945 o|contracted procedure: k8953 o|contracted procedure: k8961 o|contracted procedure: k8854 o|contracted procedure: k8970 o|contracted procedure: k8973 o|contracted procedure: k8979 o|contracted procedure: k8982 o|contracted procedure: k8988 o|contracted procedure: k8999 o|contracted procedure: k9011 o|contracted procedure: k9026 o|contracted procedure: k9038 o|contracted procedure: k9022 o|contracted procedure: k9018 o|contracted procedure: k8995 o|contracted procedure: k9049 o|contracted procedure: k9069 o|contracted procedure: k9065 o|contracted procedure: k9061 o|contracted procedure: k9114 o|contracted procedure: k9078 o|contracted procedure: k9104 o|contracted procedure: k9108 o|contracted procedure: k9100 o|contracted procedure: k9081 o|contracted procedure: k9084 o|contracted procedure: k9092 o|contracted procedure: k9096 o|contracted procedure: k9162 o|contracted procedure: k9126 o|contracted procedure: k9129 o|contracted procedure: k9132 o|contracted procedure: k9140 o|contracted procedure: k9144 o|contracted procedure: k9152 o|contracted procedure: k9156 o|contracted procedure: k9035 o|contracted procedure: k9174 o|contracted procedure: k9177 o|contracted procedure: k9180 o|contracted procedure: k9188 o|contracted procedure: k9196 o|contracted procedure: k9008 o|contracted procedure: k9208 o|contracted procedure: k9211 o|contracted procedure: k9214 o|contracted procedure: k9222 o|contracted procedure: k9230 o|contracted procedure: k9239 o|contracted procedure: k9242 o|contracted procedure: k9256 o|contracted procedure: k9259 o|contracted procedure: k9268 o|contracted procedure: k9280 o|contracted procedure: k9289 o|contracted procedure: k9308 o|contracted procedure: k9314 o|contracted procedure: k9323 o|contracted procedure: k9340 o|contracted procedure: k9392 o|contracted procedure: k9388 o|contracted procedure: k9415 o|contracted procedure: k9418 o|contracted procedure: k9421 o|contracted procedure: k9429 o|contracted procedure: k9437 o|contracted procedure: k9467 o|contracted procedure: k9499 o|contracted procedure: k9510 o|contracted procedure: k9524 o|contracted procedure: k9554 o|contracted procedure: k9557 o|contracted procedure: k9573 o|contracted procedure: k9576 o|contracted procedure: k9579 o|contracted procedure: k9587 o|contracted procedure: k9595 o|contracted procedure: k9533 o|contracted procedure: k9551 o|contracted procedure: k9604 o|contracted procedure: k9607 o|contracted procedure: k9633 o|contracted procedure: k9636 o|contracted procedure: k9648 o|contracted procedure: k9657 o|contracted procedure: k9660 o|contracted procedure: k9697 o|contracted procedure: k9716 o|contracted procedure: k9726 o|contracted procedure: k9730 o|contracted procedure: k9743 o|contracted procedure: k9746 o|contracted procedure: k9749 o|contracted procedure: k9757 o|contracted procedure: k9765 o|contracted procedure: k9616 o|contracted procedure: k9630 o|contracted procedure: k9774 o|contracted procedure: k9806 o|contracted procedure: k9810 o|contracted procedure: k9799 o|contracted procedure: k9825 o|contracted procedure: k9832 o|contracted procedure: k9857 o|contracted procedure: k9848 o|contracted procedure: k9874 o|contracted procedure: k9870 o|contracted procedure: k9863 o|contracted procedure: k9880 o|contracted procedure: k9883 o|contracted procedure: k9886 o|contracted procedure: k9909 o|contracted procedure: k9913 o|contracted procedure: k9932 o|contracted procedure: k9924 o|contracted procedure: k9928 o|contracted procedure: k9917 o|inlining procedure: k9902 o|inlining procedure: k9902 o|contracted procedure: k9936 o|contracted procedure: k672724303 o|contracted procedure: k9965 o|contracted procedure: k9968 o|contracted procedure: k9990 o|contracted procedure: k10011 o|contracted procedure: k10017 o|contracted procedure: k10020 o|contracted procedure: k10023 o|contracted procedure: k10032 o|contracted procedure: k10054 o|contracted procedure: k10066 o|contracted procedure: k10076 o|contracted procedure: k10080 o|contracted procedure: k10047 o|contracted procedure: k10051 o|contracted procedure: k10094 o|contracted procedure: k10113 o|contracted procedure: k10125 o|contracted procedure: k10135 o|contracted procedure: k10139 o|contracted procedure: k10106 o|contracted procedure: k10110 o|contracted procedure: k10148 o|contracted procedure: k10151 o|contracted procedure: k10154 o|contracted procedure: k10162 o|contracted procedure: k10170 o|contracted procedure: k10179 o|contracted procedure: k10197 o|contracted procedure: k10201 o|contracted procedure: k10232 o|contracted procedure: k10214 o|contracted procedure: k10225 o|inlining procedure: k10211 o|contracted procedure: k10243 o|contracted procedure: k10250 o|contracted procedure: k10261 o|contracted procedure: k10264 o|contracted procedure: k10281 o|contracted procedure: k10277 o|contracted procedure: k10290 o|contracted procedure: k10293 o|contracted procedure: k10296 o|contracted procedure: k10304 o|contracted procedure: k10312 o|contracted procedure: k10321 o|contracted procedure: k10327 o|contracted procedure: k10877 o|contracted procedure: k10333 o|contracted procedure: k10426 o|contracted procedure: k10435 o|contracted procedure: k10444 o|contracted procedure: k10447 o|contracted procedure: k10468 o|contracted procedure: k8127 o|contracted procedure: k8067 o|contracted procedure: k8088 o|contracted procedure: k8103 o|contracted procedure: k8113 o|contracted procedure: k8117 o|contracted procedure: k10481 o|contracted procedure: k10559 o|contracted procedure: k10563 o|contracted procedure: k10619 o|contracted procedure: k10631 o|contracted procedure: k10697 o|contracted procedure: k10746 o|contracted procedure: k10705 o|contracted procedure: k10717 o|contracted procedure: k10720 o|contracted procedure: k10723 o|contracted procedure: k10731 o|contracted procedure: k10739 o|contracted procedure: k10779 o|contracted procedure: k10787 o|contracted procedure: k10799 o|contracted procedure: k10808 o|contracted procedure: k10826 o|contracted procedure: k10817 o|contracted procedure: k10832 o|contracted procedure: k10844 o|contracted procedure: k10847 o|contracted procedure: k10850 o|contracted procedure: k10858 o|contracted procedure: k10866 o|contracted procedure: k10881 o|contracted procedure: k10887 o|contracted procedure: k10890 o|contracted procedure: k10895 o|contracted procedure: k10898 o|contracted procedure: k10910 o|contracted procedure: k10973 o|contracted procedure: k10976 o|contracted procedure: k10979 o|contracted procedure: k10987 o|contracted procedure: k10995 o|contracted procedure: k11004 o|contracted procedure: k11010 o|contracted procedure: k11047 o|contracted procedure: k11050 o|contracted procedure: k11059 o|contracted procedure: k11065 o|contracted procedure: k11073 o|contracted procedure: k11107 o|contracted procedure: k11087 o|contracted procedure: k11103 o|contracted procedure: k11095 o|contracted procedure: k11091 o|contracted procedure: k11083 o|contracted procedure: k11117 o|contracted procedure: k11125 o|contracted procedure: k11159 o|contracted procedure: k11139 o|contracted procedure: k11147 o|contracted procedure: k11151 o|contracted procedure: k11143 o|contracted procedure: k11135 o|contracted procedure: k11180 o|contracted procedure: k11183 o|contracted procedure: k11265 o|contracted procedure: k11340 o|contracted procedure: k11328 o|contracted procedure: k11336 o|contracted procedure: k11332 o|contracted procedure: k11324 o|contracted procedure: k11349 o|contracted procedure: k11402 o|contracted procedure: k11413 o|contracted procedure: k11421 o|contracted procedure: k11435 o|contracted procedure: k11417 o|contracted procedure: k11409 o|contracted procedure: k11447 o|contracted procedure: k11450 o|contracted procedure: k11453 o|contracted procedure: k11461 o|contracted procedure: k11469 o|contracted procedure: k11478 o|contracted procedure: k11485 o|contracted procedure: k11497 o|contracted procedure: k11501 o|contracted procedure: k11507 o|contracted procedure: k11518 o|contracted procedure: k11521 o|contracted procedure: k11524 o|contracted procedure: k11514 o|contracted procedure: k11535 o|contracted procedure: k11544 o|contracted procedure: k11547 o|contracted procedure: k11550 o|contracted procedure: k11558 o|contracted procedure: k11566 o|contracted procedure: k11575 o|contracted procedure: k11582 o|contracted procedure: k11590 o|contracted procedure: k11596 o|contracted procedure: k11603 o|contracted procedure: k11615 o|contracted procedure: k11619 o|contracted procedure: k11625 o|contracted procedure: k11628 o|contracted procedure: k11631 o|contracted procedure: k11643 o|contracted procedure: k11646 o|contracted procedure: k11653 o|contracted procedure: k11659 o|contracted procedure: k11665 o|contracted procedure: k11680 o|contracted procedure: k11687 o|contracted procedure: k11713 o|contracted procedure: k11726 o|contracted procedure: k11739 o|contracted procedure: k11752 o|contracted procedure: k11765 o|contracted procedure: k15873 o|contracted procedure: k15882 o|contracted procedure: k15890 o|contracted procedure: k15896 o|contracted procedure: k15902 o|contracted procedure: k15917 o|contracted procedure: k15939 o|contracted procedure: k15935 o|contracted procedure: k15920 o|contracted procedure: k15923 o|contracted procedure: k15931 o|contracted procedure: k15951 o|contracted procedure: k15973 o|contracted procedure: k15969 o|contracted procedure: k15954 o|contracted procedure: k15957 o|contracted procedure: k15965 o|contracted procedure: k15980 o|contracted procedure: k15990 o|contracted procedure: k16017 o|contracted procedure: k16002 o|contracted procedure: k16013 o|contracted procedure: k16009 o|contracted procedure: k11778 o|contracted procedure: k11795 o|contracted procedure: k11791 o|contracted procedure: k11808 o|contracted procedure: k11798 o|contracted procedure: k11812 o|contracted procedure: k11816 o|contracted procedure: k11822 o|contracted procedure: k11825 o|contracted procedure: k11831 o|contracted procedure: k11840 o|contracted procedure: k11898 o|contracted procedure: k11878 o|contracted procedure: k11874 o|contracted procedure: k11889 o|contracted procedure: k11886 o|contracted procedure: k11938 o|contracted procedure: k11944 o|contracted procedure: k11947 o|contracted procedure: k11956 o|contracted procedure: k11959 o|contracted procedure: k11992 o|contracted procedure: k11972 o|contracted procedure: k11984 o|contracted procedure: k11976 o|contracted procedure: k672724350 o|propagated global variable: z37524347 chicken.compiler.core#external-to-pointer o|contracted procedure: k668224355 o|contracted procedure: k12031 o|contracted procedure: k12034 o|contracted procedure: k12168 o|contracted procedure: k12053 o|contracted procedure: k12146 o|contracted procedure: k12138 o|contracted procedure: k12142 o|contracted procedure: k12134 o|contracted procedure: k12130 o|contracted procedure: k12090 o|contracted procedure: k12094 o|contracted procedure: k12086 o|contracted procedure: k12106 o|contracted procedure: k668224360 o|contracted procedure: k12123 o|contracted procedure: k672724367 o|contracted procedure: k12178 o|contracted procedure: k12171 o|contracted procedure: k12182 o|contracted procedure: k12188 o|contracted procedure: k12191 o|contracted procedure: k12194 o|contracted procedure: k12238 o|contracted procedure: k12241 o|contracted procedure: k12247 o|contracted procedure: k12338 o|contracted procedure: k12334 o|contracted procedure: k12260 o|contracted procedure: k12273 o|contracted procedure: k12305 o|contracted procedure: k12301 o|contracted procedure: k12403 o|contracted procedure: k12413 o|contracted procedure: k12406 o|contracted procedure: k12431 o|contracted procedure: k12468 o|contracted procedure: k12486 o|contracted procedure: k12489 o|contracted procedure: k12464 o|contracted procedure: k12501 o|contracted procedure: k12504 o|contracted procedure: k12507 o|contracted procedure: k12515 o|contracted procedure: k12523 o|contracted procedure: k12542 o|contracted procedure: k12555 o|contracted procedure: k6293 o|contracted procedure: k6307 o|contracted procedure: k6317 o|contracted procedure: k6311 o|contracted procedure: k12561 o|contracted procedure: k12847 o|contracted procedure: k12564 o|contracted procedure: k12843 o|contracted procedure: k12570 o|contracted procedure: k12839 o|contracted procedure: k12573 o|contracted procedure: k12576 o|contracted procedure: k12597 o|contracted procedure: k12609 o|contracted procedure: k12605 o|contracted procedure: k12625 o|contracted procedure: k12621 o|contracted procedure: k12632 o|contracted procedure: k12655 o|contracted procedure: k12651 o|contracted procedure: k12643 o|contracted procedure: k12647 o|contracted procedure: k12639 o|contracted procedure: k12661 o|contracted procedure: k12670 o|contracted procedure: k12713 o|contracted procedure: k12709 o|contracted procedure: k12705 o|contracted procedure: k12701 o|contracted procedure: k12681 o|contracted procedure: k12697 o|contracted procedure: k12693 o|contracted procedure: k12685 o|contracted procedure: k12677 o|contracted procedure: k12725 o|contracted procedure: k12728 o|contracted procedure: k12731 o|contracted procedure: k12738 o|contracted procedure: k12796 o|contracted procedure: k12761 o|contracted procedure: k12792 o|contracted procedure: k12770 o|contracted procedure: k12784 o|contracted procedure: k12788 o|contracted procedure: k12780 o|contracted procedure: k12764 o|contracted procedure: k12807 o|contracted procedure: k12803 o|contracted procedure: k12853 o|contracted procedure: k12856 o|contracted procedure: k12862 o|contracted procedure: k12865 o|contracted procedure: k12881 o|contracted procedure: k12885 o|contracted procedure: k12877 o|contracted procedure: k12891 o|contracted procedure: k12903 o|contracted procedure: k12912 o|contracted procedure: k12919 o|contracted procedure: k12934 o|contracted procedure: k12930 o|contracted procedure: k12949 o|contracted procedure: k12945 o|contracted procedure: k12952 o|contracted procedure: k12958 o|contracted procedure: k12971 o|contracted procedure: k12979 o|contracted procedure: k672724384 o|contracted procedure: k672724391 o|contracted procedure: k13095 o|contracted procedure: k13153 o|contracted procedure: k13240 o|contracted procedure: k13187 o|contracted procedure: k13232 o|contracted procedure: k13222 o|contracted procedure: k13226 o|contracted procedure: k13218 o|contracted procedure: k13254 o|contracted procedure: k13262 o|contracted procedure: k13274 o|contracted procedure: k13277 o|contracted procedure: k13280 o|contracted procedure: k13288 o|contracted procedure: k13296 o|contracted procedure: k13309 o|contracted procedure: k13322 o|contracted procedure: k13330 o|contracted procedure: k13374 o|contracted procedure: k13345 o|contracted procedure: k13351 o|contracted procedure: k13367 o|inlining procedure: k13354 o|contracted procedure: k13364 o|inlining procedure: k13354 o|contracted procedure: k6777 o|contracted procedure: k6789 o|contracted procedure: k6812 o|contracted procedure: k6820 o|removed unused formal parameters: (return2663) o|contracted procedure: k13445 o|contracted procedure: k13454 o|contracted procedure: k13486 o|contracted procedure: k13510 o|contracted procedure: k13514 o|contracted procedure: k13520 o|contracted procedure: k13526 o|contracted procedure: k13545 o|contracted procedure: k13551 o|contracted procedure: k13570 o|contracted procedure: k13576 o|contracted procedure: k13599 o|contracted procedure: k13610 o|contracted procedure: k13616 o|contracted procedure: k13619 o|contracted procedure: k13626 o|contracted procedure: k13633 o|contracted procedure: k13640 o|contracted procedure: k13647 o|contracted procedure: k13654 o|contracted procedure: k13661 o|contracted procedure: k13668 o|contracted procedure: k13675 o|contracted procedure: k13686 o|contracted procedure: k13698 o|contracted procedure: k13708 o|contracted procedure: k13712 o|contracted procedure: k13720 o|contracted procedure: k13727 o|contracted procedure: k13738 o|contracted procedure: k13752 o|contracted procedure: k13764 o|contracted procedure: k13774 o|contracted procedure: k13778 o|contracted procedure: k13787 o|contracted procedure: k13797 o|contracted procedure: k13801 o|contracted procedure: k13807 o|contracted procedure: k13814 o|contracted procedure: k13825 o|contracted procedure: k13845 o|contracted procedure: k13855 o|contracted procedure: k13859 o|contracted procedure: k13868 o|contracted procedure: k13878 o|contracted procedure: k13882 o|contracted procedure: k13890 o|contracted procedure: k13910 o|contracted procedure: k13917 o|contracted procedure: k13924 o|contracted procedure: k13931 o|contracted procedure: k13942 o|contracted procedure: k13954 o|contracted procedure: k13964 o|contracted procedure: k13968 o|contracted procedure: k13976 o|contracted procedure: k13987 o|contracted procedure: k13999 o|contracted procedure: k14009 o|contracted procedure: k14013 o|contracted procedure: k14021 o|contracted procedure: k14033 o|contracted procedure: k14055 o|contracted procedure: k14039 o|contracted procedure: k14061 o|contracted procedure: k14083 o|contracted procedure: k14067 o|contracted procedure: k14089 o|contracted procedure: k14140 o|contracted procedure: k14095 o|contracted procedure: k14107 o|contracted procedure: k14119 o|contracted procedure: k14129 o|contracted procedure: k14133 o|contracted procedure: k14146 o|contracted procedure: k14172 o|contracted procedure: k14152 o|contracted procedure: k14178 o|contracted procedure: k14229 o|contracted procedure: k14185 o|contracted procedure: k14196 o|contracted procedure: k14208 o|contracted procedure: k14218 o|contracted procedure: k14222 o|contracted procedure: k14241 o|contracted procedure: k14251 o|contracted procedure: k14265 o|contracted procedure: k14271 o|contracted procedure: k14278 o|contracted procedure: k14281 o|contracted procedure: k14290 o|contracted procedure: k14294 o|contracted procedure: k14306 o|contracted procedure: k14316 o|contracted procedure: k14320 o|contracted procedure: k14328 o|contracted procedure: k14335 o|contracted procedure: k14347 o|contracted procedure: k14357 o|contracted procedure: k14361 o|contracted procedure: k14369 o|contracted procedure: k14376 o|contracted procedure: k14382 o|contracted procedure: k14394 o|contracted procedure: k14406 o|contracted procedure: k14416 o|contracted procedure: k14420 o|contracted procedure: k14430 o|contracted procedure: k14436 o|contracted procedure: k14442 o|contracted procedure: k14452 o|contracted procedure: k14470 o|contracted procedure: k14482 o|contracted procedure: k14492 o|contracted procedure: k14496 o|contracted procedure: k14505 o|contracted procedure: k14513 o|contracted procedure: k14588 o|contracted procedure: k14600 o|contracted procedure: k14603 o|contracted procedure: k14606 o|contracted procedure: k14614 o|contracted procedure: k14622 o|contracted procedure: k14521 o|contracted procedure: k14546 o|contracted procedure: k14550 o|contracted procedure: k14556 o|contracted procedure: k14562 o|contracted procedure: k14579 o|contracted procedure: k14568 o|contracted procedure: k14575 o|contracted procedure: k14633 o|contracted procedure: k14640 o|contracted procedure: k14653 o|contracted procedure: k14665 o|contracted procedure: k14675 o|contracted procedure: k14679 o|contracted procedure: k14689 o|contracted procedure: k14695 o|contracted procedure: k14707 o|contracted procedure: k14719 o|contracted procedure: k14729 o|contracted procedure: k14733 o|contracted procedure: k14743 o|contracted procedure: k14751 o|contracted procedure: k14762 o|contracted procedure: k14774 o|contracted procedure: k14784 o|contracted procedure: k14788 o|contracted procedure: k14798 o|contracted procedure: k14880 o|contracted procedure: k14866 o|contracted procedure: k14896 o|contracted procedure: k14899 o|contracted procedure: k14905 o|contracted procedure: k14912 o|contracted procedure: k14927 o|contracted procedure: k14931 o|contracted procedure: k14938 o|contracted procedure: k14944 o|contracted procedure: k14951 o|contracted procedure: k14935 o|contracted procedure: k14958 o|contracted procedure: k14970 o|contracted procedure: k14980 o|contracted procedure: k14984 o|contracted procedure: k14990 o|contracted procedure: k15033 o|contracted procedure: k15048 o|contracted procedure: k15052 o|contracted procedure: k15058 o|contracted procedure: k15076 o|contracted procedure: k15064 o|contracted procedure: k15072 o|contracted procedure: k15080 o|contracted procedure: k15092 o|contracted procedure: k15102 o|contracted procedure: k15106 o|contracted procedure: k15112 o|contracted procedure: k15119 o|contracted procedure: k15220 o|removed unused parameter to known procedure: return2663 a13433 o|contracted procedure: k15230 o|contracted procedure: k15240 o|contracted procedure: k15259 o|contracted procedure: k15268 o|contracted procedure: k15277 o|contracted procedure: k15286 o|contracted procedure: k15295 o|contracted procedure: k15304 o|contracted procedure: k15313 o|contracted procedure: k15322 o|contracted procedure: k15612 o|contracted procedure: k15436 o|contracted procedure: k15439 o|contracted procedure: k15445 o|contracted procedure: k15457 o|contracted procedure: k15460 o|contracted procedure: k15470 o|contracted procedure: k15478 o|contracted procedure: k15482 o|contracted procedure: k15498 o|contracted procedure: k15547 o|contracted procedure: k15539 o|contracted procedure: k15543 o|contracted procedure: k15535 o|contracted procedure: k15531 o|contracted procedure: k15511 o|contracted procedure: k15527 o|contracted procedure: k15592 o|contracted procedure: k15556 o|contracted procedure: k15559 o|contracted procedure: k15562 o|contracted procedure: k15570 o|contracted procedure: k15574 o|contracted procedure: k15582 o|contracted procedure: k15586 o|contracted procedure: k15602 o|contracted procedure: k15622 o|contracted procedure: k15625 o|contracted procedure: k15637 o|contracted procedure: k15640 o|contracted procedure: k15643 o|contracted procedure: k15651 o|contracted procedure: k15659 o|contracted procedure: k15665 o|contracted procedure: k15677 o|contracted procedure: k15689 o|contracted procedure: k15692 o|contracted procedure: k15695 o|contracted procedure: k15703 o|contracted procedure: k15711 o|contracted procedure: k15343 o|contracted procedure: k15349 o|contracted procedure: k15352 o|contracted procedure: k15358 o|contracted procedure: k15377 o|contracted procedure: k15380 o|contracted procedure: k15405 o|contracted procedure: k15408 o|contracted procedure: k15720 o|contracted procedure: k15726 o|contracted procedure: k15729 o|contracted procedure: k15735 o|contracted procedure: k15748 o|contracted procedure: k15757 o|contracted procedure: k15760 o|contracted procedure: k15766 o|contracted procedure: k15774 o|contracted procedure: k15780 o|contracted procedure: k15786 o|contracted procedure: k15801 o|contracted procedure: k15823 o|contracted procedure: k15819 o|contracted procedure: k15804 o|contracted procedure: k15807 o|contracted procedure: k15815 o|contracted procedure: k15835 o|contracted procedure: k15857 o|contracted procedure: k15853 o|contracted procedure: k15838 o|contracted procedure: k15841 o|contracted procedure: k15849 o|contracted procedure: k15864 o|contracted procedure: k16153 o|contracted procedure: k16119 o|contracted procedure: k16123 o|contracted procedure: k16131 o|contracted procedure: k16141 o|contracted procedure: k16145 o|contracted procedure: k16162 o|contracted procedure: k16169 o|contracted procedure: k16198 o|contracted procedure: k16210 o|contracted procedure: k16225 o|contracted procedure: k16229 o|contracted procedure: k16240 o|contracted procedure: k16244 o|contracted procedure: k16256 o|contracted procedure: k16266 o|contracted procedure: k16278 o|contracted procedure: k16282 o|contracted procedure: k16311 o|contracted procedure: k16286 o|contracted procedure: k16290 o|contracted procedure: k16317 o|contracted procedure: k16329 o|contracted procedure: k16336 o|contracted procedure: k16343 o|contracted procedure: k16361 o|contracted procedure: k16368 o|contracted procedure: k16372 o|contracted procedure: k16382 o|contracted procedure: k16388 o|contracted procedure: k16394 o|contracted procedure: k16397 o|contracted procedure: k16413 o|contracted procedure: k16419 o|contracted procedure: k16479 o|contracted procedure: k16472 o|contracted procedure: k16425 o|contracted procedure: k16469 o|contracted procedure: k16428 o|contracted procedure: k16435 o|contracted procedure: k16445 o|contracted procedure: k16449 o|contracted procedure: k16465 o|contracted procedure: k16485 o|contracted procedure: k16496 o|contracted procedure: k16506 o|contracted procedure: k16520 o|contracted procedure: k16532 o|contracted procedure: k16539 o|contracted procedure: k16547 o|contracted procedure: k16554 o|contracted procedure: k16785 o|contracted procedure: k16789 o|contracted procedure: k16801 o|contracted procedure: k16805 o|contracted procedure: k16838 o|contracted procedure: k16813 o|contracted procedure: k16817 o|contracted procedure: k16560 o|contracted procedure: k16563 o|contracted procedure: k16570 o|contracted procedure: k16576 o|contracted procedure: k6912 o|contracted procedure: k6902 o|contracted procedure: k16602 o|contracted procedure: k16608 o|contracted procedure: k16614 o|contracted procedure: k16620 o|contracted procedure: k16626 o|contracted procedure: k16664 o|contracted procedure: k16670 o|contracted procedure: k16676 o|contracted procedure: k16708 o|contracted procedure: k16712 o|contracted procedure: k16769 o|contracted procedure: k16744 o|contracted procedure: k16748 o|contracted procedure: k16869 o|contracted procedure: k16891 o|contracted procedure: k16917 o|contracted procedure: k16921 o|contracted procedure: k16932 o|contracted procedure: k16936 o|contracted procedure: k16944 o|contracted procedure: k16948 o|contracted procedure: k16956 o|contracted procedure: k18800 o|contracted procedure: k16988 o|contracted procedure: k16998 o|contracted procedure: k17019 o|contracted procedure: k17028 o|contracted procedure: k17031 o|contracted procedure: k17040 o|contracted procedure: k17049 o|contracted procedure: k17058 o|contracted procedure: k17071 o|contracted procedure: k17074 o|contracted procedure: k17086 o|contracted procedure: k17092 o|contracted procedure: k17107 o|contracted procedure: k17110 o|contracted procedure: k17113 o|contracted procedure: k17120 o|contracted procedure: k17134 o|contracted procedure: k17137 o|contracted procedure: k17152 o|contracted procedure: k17159 o|contracted procedure: k17166 o|contracted procedure: k17169 o|contracted procedure: k17191 o|contracted procedure: k17201 o|contracted procedure: k17212 o|contracted procedure: k17224 o|contracted procedure: k17237 o|contracted procedure: k17247 o|contracted procedure: k17251 o|contracted procedure: k17257 o|contracted procedure: k17260 o|contracted procedure: k17270 o|contracted procedure: k17276 o|contracted procedure: k17290 o|contracted procedure: k17316 o|contracted procedure: k17320 o|contracted procedure: k17328 o|contracted procedure: k17339 o|contracted procedure: k17346 o|contracted procedure: k17335 o|contracted procedure: k17365 o|contracted procedure: k17375 o|contracted procedure: k17379 o|contracted procedure: k17391 o|contracted procedure: k17394 o|contracted procedure: k17397 o|contracted procedure: k17400 o|contracted procedure: k17429 o|contracted procedure: k17438 o|contracted procedure: k17447 o|contracted procedure: k17457 o|contracted procedure: k17466 o|contracted procedure: k17475 o|contracted procedure: k17491 o|contracted procedure: k17494 o|contracted procedure: k17497 o|contracted procedure: k17518 o|contracted procedure: k17568 o|contracted procedure: k17574 o|contracted procedure: k17599 o|contracted procedure: k17611 o|contracted procedure: k17621 o|contracted procedure: k17625 o|contracted procedure: k17634 o|contracted procedure: k17649 o|contracted procedure: k17664 o|contracted procedure: k17670 o|contracted procedure: k17679 o|contracted procedure: k17682 o|contracted procedure: k17715 o|contracted procedure: k17718 o|contracted procedure: k17759 o|contracted procedure: k17766 o|contracted procedure: k17798 o|contracted procedure: k672724473 o|contracted procedure: k17823 o|contracted procedure: k17828 o|contracted procedure: k17834 o|contracted procedure: k17841 o|contracted procedure: k17847 o|contracted procedure: k17853 o|contracted procedure: k17860 o|contracted procedure: k17868 o|contracted procedure: k17874 o|contracted procedure: k17880 o|contracted procedure: k17887 o|contracted procedure: k17894 o|contracted procedure: k17901 o|contracted procedure: k17908 o|contracted procedure: k17916 o|contracted procedure: k17924 o|contracted procedure: k17952 o|contracted procedure: k18773 o|contracted procedure: k17959 o|contracted procedure: k18770 o|contracted procedure: k17963 o|contracted procedure: k18111 o|contracted procedure: k18002 o|contracted procedure: k18005 o|contracted procedure: k18008 o|contracted procedure: k18085 o|contracted procedure: k18023 o|contracted procedure: k18026 o|contracted procedure: k18029 o|contracted procedure: k18038 o|contracted procedure: k18051 o|contracted procedure: k18057 o|contracted procedure: k18064 o|contracted procedure: k18068 o|contracted procedure: k18088 o|contracted procedure: k18094 o|contracted procedure: k18121 o|contracted procedure: k18127 o|contracted procedure: k18130 o|contracted procedure: k18148 o|contracted procedure: k18160 o|contracted procedure: k18207 o|contracted procedure: k18169 o|contracted procedure: k18175 o|contracted procedure: k18181 o|contracted procedure: k18184 o|contracted procedure: k18214 o|contracted procedure: k18241 o|contracted procedure: k18247 o|contracted procedure: k18259 o|contracted procedure: k18262 o|contracted procedure: k18265 o|contracted procedure: k18412 o|contracted procedure: k18302 o|contracted procedure: k18311 o|contracted procedure: k18318 o|contracted procedure: k18337 o|contracted procedure: k18347 o|contracted procedure: k18369 o|contracted procedure: k18383 o|contracted procedure: k18395 o|contracted procedure: k18405 o|contracted procedure: k18409 o|contracted procedure: k18425 o|contracted procedure: k18434 o|contracted procedure: k18475 o|contracted procedure: k18466 o|contracted procedure: k18481 o|contracted procedure: k18516 o|contracted procedure: k18484 o|contracted procedure: k18532 o|contracted procedure: k18572 o|contracted procedure: k18553 o|contracted procedure: k18575 o|contracted procedure: k18663 o|contracted procedure: k18669 o|contracted procedure: k18675 o|contracted procedure: k18681 o|contracted procedure: k18703 o|contracted procedure: k18717 o|contracted procedure: k18724 o|contracted procedure: k18735 o|contracted procedure: k18747 o|contracted procedure: k18757 o|contracted procedure: k18761 o|contracted procedure: k18782 o|contracted procedure: k18792 o|contracted procedure: k18796 o|contracted procedure: k18846 o|contracted procedure: k18849 o|contracted procedure: k18855 o|contracted procedure: k18864 o|contracted procedure: k18873 o|contracted procedure: k18882 o|contracted procedure: k18897 o|contracted procedure: k18901 o|contracted procedure: k18905 o|contracted procedure: k18915 o|contracted procedure: k18908 o|contracted procedure: k18921 o|contracted procedure: k18924 o|contracted procedure: k18933 o|contracted procedure: k18940 o|contracted procedure: k18946 o|contracted procedure: k18949 o|contracted procedure: k18952 o|contracted procedure: k19188 o|contracted procedure: k19181 o|contracted procedure: k18955 o|contracted procedure: k18958 o|contracted procedure: k18968 o|contracted procedure: k18976 o|contracted procedure: k18988 o|contracted procedure: k18991 o|contracted procedure: k18994 o|contracted procedure: k19002 o|contracted procedure: k19010 o|inlining procedure: k19017 o|contracted procedure: k19024 o|contracted procedure: k19034 o|contracted procedure: k19049 o|contracted procedure: k19052 o|inlining procedure: k19031 o|inlining procedure: k19031 o|contracted procedure: k19093 o|contracted procedure: k19090 o|contracted procedure: k19107 o|contracted procedure: k19129 o|contracted procedure: k19133 o|contracted procedure: k19116 o|contracted procedure: k19143 o|contracted procedure: k19162 o|contracted procedure: k19149 o|inlining procedure: k19017 o|contracted procedure: k19194 o|contracted procedure: k19197 o|contracted procedure: k19204 o|contracted procedure: k19210 o|contracted procedure: k19240 o|contracted procedure: k6697 o|contracted procedure: k6700 o|contracted procedure: k6710 o|contracted procedure: k19248 o|contracted procedure: k19263 o|contracted procedure: k19271 o|contracted procedure: k19283 o|contracted procedure: k19286 o|contracted procedure: k19289 o|contracted procedure: k19297 o|contracted procedure: k19305 o|contracted procedure: k19324 o|contracted procedure: k19330 o|contracted procedure: k19336 o|contracted procedure: k19372 o|contracted procedure: k19381 o|contracted procedure: k19384 o|contracted procedure: k19400 o|contracted procedure: k19406 o|contracted procedure: k19426 o|contracted procedure: k19429 o|contracted procedure: k19445 o|contracted procedure: k19449 o|contracted procedure: k19461 o|contracted procedure: k19465 o|contracted procedure: k19477 o|contracted procedure: k19481 o|contracted procedure: k19489 o|contracted procedure: k19502 o|contracted procedure: k19505 o|contracted procedure: k19508 o|contracted procedure: k19520 o|contracted procedure: k19523 o|contracted procedure: k19526 o|contracted procedure: k19532 o|contracted procedure: k19535 o|contracted procedure: k19544 o|contracted procedure: k19550 o|contracted procedure: k19556 o|contracted procedure: k19885 o|contracted procedure: k19569 o|contracted procedure: k19581 o|contracted procedure: k19593 o|inlining procedure: k19573 o|contracted procedure: k19606 o|contracted procedure: k19629 o|contracted procedure: k19622 o|contracted procedure: k19637 o|inlining procedure: k19573 o|contracted procedure: k19646 o|contracted procedure: k19649 o|contracted procedure: k19652 o|contracted procedure: k19660 o|contracted procedure: k19668 o|contracted procedure: k19801 o|contracted procedure: k19805 o|contracted procedure: k19809 o|contracted procedure: k19675 o|inlining procedure: k19679 o|contracted procedure: k19689 o|contracted procedure: k19700 o|contracted procedure: k19720 o|contracted procedure: k19732 o|contracted procedure: k19759 o|contracted procedure: k19739 o|contracted procedure: k19747 o|contracted procedure: k19743 o|contracted procedure: k19768 o|contracted procedure: k19771 o|contracted procedure: k19774 o|contracted procedure: k19782 o|contracted procedure: k19790 o|contracted procedure: k19709 o|contracted procedure: k19717 o|inlining procedure: k19679 o|contracted procedure: k19797 o|contracted procedure: k19817 o|contracted procedure: k19822 o|contracted procedure: k19831 o|contracted procedure: k19838 o|contracted procedure: k19841 o|contracted procedure: k19856 o|contracted procedure: k19859 o|contracted procedure: k19862 o|contracted procedure: k19870 o|contracted procedure: k19878 o|contracted procedure: k19912 o|contracted procedure: k19908 o|contracted procedure: k19918 o|contracted procedure: k19969 o|contracted procedure: k19933 o|contracted procedure: k19959 o|contracted procedure: k19963 o|contracted procedure: k19955 o|contracted procedure: k19936 o|contracted procedure: k19939 o|contracted procedure: k19947 o|contracted procedure: k19951 o|contracted procedure: k19981 o|contracted procedure: k19984 o|contracted procedure: k19987 o|contracted procedure: k19995 o|contracted procedure: k20003 o|contracted procedure: k20018 o|contracted procedure: k20021 o|contracted procedure: k20024 o|contracted procedure: k20054 o|contracted procedure: k20058 o|contracted procedure: k20070 o|contracted procedure: k20074 o|contracted procedure: k20087 o|contracted procedure: k20091 o|contracted procedure: k20095 o|contracted procedure: k20121 o|contracted procedure: k20125 o|contracted procedure: k20140 o|contracted procedure: k20144 o|contracted procedure: k20167 o|contracted procedure: k20160 o|contracted procedure: k20151 o|contracted procedure: k20170 o|contracted procedure: k20177 o|contracted procedure: k20187 o|contracted procedure: k20194 o|contracted procedure: k20206 o|inlining procedure: k20198 o|inlining procedure: k20198 o|contracted procedure: k20227 o|contracted procedure: k20223 o|contracted procedure: k20250 o|contracted procedure: k20256 o|contracted procedure: k20262 o|contracted procedure: k20268 o|contracted procedure: k20274 o|contracted procedure: k20280 o|contracted procedure: k20286 o|contracted procedure: k20292 o|contracted procedure: k20298 o|contracted procedure: k20304 o|contracted procedure: k20310 o|contracted procedure: k20316 o|contracted procedure: k20322 o|contracted procedure: k20328 o|contracted procedure: k20334 o|contracted procedure: k20340 o|contracted procedure: k20387 o|contracted procedure: k20393 o|contracted procedure: k20399 o|contracted procedure: k20405 o|contracted procedure: k20429 o|contracted procedure: k20437 o|contracted procedure: k20449 o|contracted procedure: k20452 o|contracted procedure: k20455 o|contracted procedure: k20463 o|contracted procedure: k20471 o|contracted procedure: k20480 o|contracted procedure: k20507 o|contracted procedure: k20495 o|contracted procedure: k20499 o|contracted procedure: k20539 o|contracted procedure: k20561 o|contracted procedure: k20570 o|contracted procedure: k20588 o|contracted procedure: k20597 o|contracted procedure: k20606 o|contracted procedure: k20615 o|contracted procedure: k20624 o|contracted procedure: k20633 o|contracted procedure: k20651 o|contracted procedure: k20660 o|contracted procedure: k20669 o|contracted procedure: k20678 o|contracted procedure: k20687 o|contracted procedure: k20696 o|contracted procedure: k20731 o|contracted procedure: k20727 o|contracted procedure: k20723 o|contracted procedure: k20747 o|contracted procedure: k20773 o|contracted procedure: k20828 o|contracted procedure: k20837 o|contracted procedure: k20844 o|contracted procedure: k20850 o|contracted procedure: k20853 o|contracted procedure: k20856 o|contracted procedure: k20863 o|contracted procedure: k20873 o|contracted procedure: k20876 o|contracted procedure: k20880 o|contracted procedure: k20884 o|contracted procedure: k20898 o|contracted procedure: k20904 o|contracted procedure: k20919 o|contracted procedure: k20908 o|contracted procedure: k20925 o|contracted procedure: k20929 o|contracted procedure: k20942 o|contracted procedure: k20946 o|contracted procedure: k20961 o|contracted procedure: k20967 o|contracted procedure: k20971 o|contracted procedure: k20990 o|contracted procedure: k20996 o|contracted procedure: k21011 o|contracted procedure: k21017 o|contracted procedure: k21021 o|contracted procedure: k21028 o|contracted procedure: k21036 o|contracted procedure: k21042 o|contracted procedure: k21045 o|contracted procedure: k21063 o|contracted procedure: k21070 o|contracted procedure: k21084 o|contracted procedure: k21091 o|contracted procedure: k21098 o|contracted procedure: k21102 o|contracted procedure: k21108 o|contracted procedure: k21111 o|contracted procedure: k21114 o|contracted procedure: k21126 o|contracted procedure: k21132 o|contracted procedure: k21166 o|contracted procedure: k21162 o|contracted procedure: k21174 o|contracted procedure: k21180 o|contracted procedure: k21187 o|contracted procedure: k21170 o|contracted procedure: k21201 o|contracted procedure: k21207 o|contracted procedure: k21216 o|contracted procedure: k21222 o|contracted procedure: k21229 o|contracted procedure: k21240 o|contracted procedure: k21247 o|inlining procedure: k21237 o|inlining procedure: k21237 o|contracted procedure: k21257 o|contracted procedure: k21281 o|contracted procedure: k21284 o|contracted procedure: k21275 o|contracted procedure: k21300 o|contracted procedure: k21303 o|contracted procedure: k21306 o|contracted procedure: k21353 o|contracted procedure: k21309 o|contracted procedure: k21318 o|contracted procedure: k21322 o|contracted procedure: k21334 o|contracted procedure: k21342 o|contracted procedure: k21366 o|contracted procedure: k21369 o|contracted procedure: k21372 o|contracted procedure: k21376 o|contracted procedure: k21383 o|contracted procedure: k21395 o|contracted procedure: k21401 o|contracted procedure: k21404 o|contracted procedure: k21407 o|contracted procedure: k21438 o|contracted procedure: k21434 o|contracted procedure: k21422 o|contracted procedure: k21426 o|contracted procedure: k21447 o|contracted procedure: k21463 o|contracted procedure: k21467 o|contracted procedure: k21471 o|contracted procedure: k21479 o|contracted procedure: k21510 o|contracted procedure: k21503 o|contracted procedure: k21494 o|contracted procedure: k21513 o|contracted procedure: k21520 o|contracted procedure: k21534 o|contracted procedure: k21619 o|contracted procedure: k21537 o|contracted procedure: k21615 o|contracted procedure: k21540 o|contracted procedure: k21563 o|contracted procedure: k21566 o|contracted procedure: k21570 o|contracted procedure: k21574 o|contracted procedure: k21588 o|contracted procedure: k21607 o|contracted procedure: k21596 o|contracted procedure: k21603 o|contracted procedure: k21625 o|contracted procedure: k21638 o|contracted procedure: k21646 o|contracted procedure: k21649 o|contracted procedure: k21664 o|contracted procedure: k21670 o|contracted procedure: k21730 o|contracted procedure: k21750 o|contracted procedure: k21757 o|contracted procedure: k21770 o|contracted procedure: k21773 o|contracted procedure: k21786 o|contracted procedure: k21790 o|contracted procedure: k21797 o|contracted procedure: k21805 o|contracted procedure: k21809 o|contracted procedure: k21817 o|contracted procedure: k21821 o|contracted procedure: k21825 o|contracted procedure: k21829 o|contracted procedure: k21833 o|contracted procedure: k21839 o|contracted procedure: k21849 o|contracted procedure: k21857 o|contracted procedure: k21861 o|contracted procedure: k21876 o|contracted procedure: k21887 o|contracted procedure: k21891 o|contracted procedure: k21910 o|contracted procedure: k21918 o|contracted procedure: k21922 o|contracted procedure: k21926 o|contracted procedure: k21930 o|contracted procedure: k21936 o|contracted procedure: k21939 o|contracted procedure: k21943 o|contracted procedure: k22008 o|contracted procedure: k22026 o|contracted procedure: k22034 o|contracted procedure: k22046 o|contracted procedure: k22049 o|contracted procedure: k22052 o|contracted procedure: k22060 o|contracted procedure: k22068 o|contracted procedure: k22089 o|contracted procedure: k22093 o|contracted procedure: k22113 o|contracted procedure: k7379 o|contracted procedure: k7386 o|contracted procedure: k7394 o|contracted procedure: k22126 o|contracted procedure: k22146 o|contracted procedure: k6927 o|contracted procedure: k6940 o|contracted procedure: k6946 o|contracted procedure: k22234 o|contracted procedure: k22181 o|propagated global variable: r22235 ##sys#undefined-value o|contracted procedure: k22194 o|inlining procedure: k22191 o|contracted procedure: k22203 o|inlining procedure: k22191 o|contracted procedure: k22212 o|inlining procedure: k22191 o|contracted procedure: k22221 o|contracted procedure: k22227 o|contracted procedure: k22284 o|contracted procedure: k22280 o|simplifications: ((##core#call . 2) (if . 3) (let . 213)) o| call simplifications: o| scheme#+ 2 o|removed binding forms: 1583 o|inlining procedure: k12110 o|inlining procedure: k12629 o|inlining procedure: k12629 o|inlining procedure: k12629 o|inlining procedure: k14889 o|inlining procedure: k14889 o|inlining procedure: k14889 o|inlining procedure: k15486 o|inlining procedure: "(core.scm:2061) grow3750" o|inlining procedure: "(core.scm:2068) grow3750" o|inlining procedure: "(core.scm:2072) grow3750" o|inlining procedure: "(core.scm:2093) grow3750" o|inlining procedure: "(core.scm:2106) grow3750" o|inlining procedure: "(core.scm:2143) grow3750" o|inlining procedure: "(core.scm:2053) grow3750" o|inlining procedure: k19021 o|inlining procedure: k19021 o|inlining procedure: k19021 o|inlining procedure: k19021 o|contracted procedure: k21000 o|simplifications: ((let . 2)) o|replaced variables: 466 o|removed binding forms: 9 o|inlining procedure: k16085 o|inlining procedure: k9955 o|inlining procedure: k11980 o|inlining procedure: k12000 o|inlining procedure: k12110 o|inlining procedure: k12975 o|inlining procedure: k12975 o|substituted constant variable: r1489025698 o|substituted constant variable: r1489025700 o|removed side-effect free assignment to unused variable: grow3750 o|substituted constant variable: n375625727 o|substituted constant variable: n375625731 o|substituted constant variable: n375625735 o|substituted constant variable: n375625743 o|substituted constant variable: n375625749 o|substituted constant variable: n375625753 o|substituted constant variable: n375625757 o|inlining procedure: k17794 o|simplifications: ((let . 1) (if . 7)) o|replaced variables: 9 o|removed binding forms: 258 o|removed conditional forms: 2 o|contracted procedure: k8479 o|contracted procedure: k8923 o|contracted procedure: k8957 o|contracted procedure: k9148 o|contracted procedure: k9192 o|contracted procedure: k12056 o|inlining procedure: k17077 o|removed binding forms: 32 o|contracted procedure: k17013 o|contracted procedure: k17043 o|contracted procedure: k17089 o|contracted procedure: k17194 o|contracted procedure: k17263 o|contracted procedure: k17432 o|inlining procedure: "(core.scm:2417) quick-put!3755" o|inlining procedure: "(core.scm:2396) quick-put!3755" o|inlining procedure: "(core.scm:2372) quick-put!3755" o|inlining procedure: "(core.scm:2372) quick-put!3755" o|inlining procedure: "(core.scm:2328) quick-put!3755" o|inlining procedure: "(core.scm:2328) quick-put!3755" o|inlining procedure: "(core.scm:2290) quick-put!3755" o|inlining procedure: "(core.scm:2291) quick-put!3755" o|inlining procedure: "(core.scm:2305) quick-put!3755" o|inlining procedure: "(core.scm:2305) quick-put!3755" o|inlining procedure: "(core.scm:2300) quick-put!3755" o|inlining procedure: "(core.scm:2318) quick-put!3755" o|inlining procedure: "(core.scm:2317) quick-put!3755" o|inlining procedure: "(core.scm:2275) quick-put!3755" o|replaced variables: 2 o|removed binding forms: 8 o|removed side-effect free assignment to unused variable: quick-put!3755 o|substituted constant variable: prop396726385 o|substituted constant variable: prop396726392 o|substituted constant variable: prop396726399 o|substituted constant variable: val396826400 o|substituted constant variable: prop396726406 o|substituted constant variable: val396826407 o|substituted constant variable: prop396726415 o|substituted constant variable: val396826416 o|substituted constant variable: prop396726422 o|substituted constant variable: val396826423 o|substituted constant variable: prop396726429 o|substituted constant variable: val396826430 o|substituted constant variable: prop396726436 o|substituted constant variable: val396826437 o|substituted constant variable: prop396726443 o|substituted constant variable: val396826444 o|substituted constant variable: prop396726450 o|substituted constant variable: val396826451 o|substituted constant variable: prop396726457 o|substituted constant variable: val396826458 o|substituted constant variable: prop396726464 o|substituted constant variable: prop396726471 o|substituted constant variable: val396826472 o|substituted constant variable: prop396726478 o|substituted constant variable: val396826479 o|replaced variables: 14 o|removed binding forms: 7 o|inlining procedure: k18041 o|inlining procedure: k18142 o|removed binding forms: 41 o|contracted procedure: k18617 o|removed binding forms: 3 o|replaced variables: 2 o|removed binding forms: 1 o|direct leaf routine/allocation: loop615 0 o|direct leaf routine/allocation: g15651578 0 o|direct leaf routine/allocation: loop1772 0 o|direct leaf routine/allocation: g416417 3 o|direct leaf routine/allocation: loop456 0 o|direct leaf routine/allocation: g39884000 0 o|direct leaf routine/allocation: g45404549 0 o|direct leaf routine/allocation: g50975098 0 o|direct leaf routine/allocation: loop626 0 o|direct leaf routine/allocation: new-literal4825 32 o|direct leaf routine/allocation: g51135114 0 o|converted assignments to bindings: (loop615) o|contracted procedure: "(core.scm:856) k9719" o|converted assignments to bindings: (loop1772) o|contracted procedure: k16583 o|converted assignments to bindings: (loop456) o|contracted procedure: "(core.scm:2224) k18785" o|contracted procedure: "(core.scm:2609) k19874" o|contracted procedure: k22101 o|converted assignments to bindings: (loop626) o|simplifications: ((let . 4)) o|removed binding forms: 5 o|direct leaf routine/allocation: for-each-loop15641581 0 o|direct leaf routine/allocation: for-each-loop39874011 0 o|contracted procedure: k9663 o|converted assignments to bindings: (for-each-loop15641581) o|contracted procedure: k17955 o|converted assignments to bindings: (for-each-loop39874011) o|simplifications: ((let . 2)) o|removed binding forms: 2 o|customizable procedures: (loop462 g50675076 map-loop50615079 k20831 loop5040 k21655 k21676 immediate-literal4827 k21628 k21543 k21591 k21550 k21553 k21453 k21456 g49694970 k21191 k21058 walk4822 va25317 k20859 mapwalk4823 walk-var4820 k20763 k20766 blockvar-literal4826 walk-global4821 literal4824 g48384839 g46974698 g46684677 map-loop46624680 k19375 k19409 k20033 g46544655 map-loop44774494 map-loop44564501 k19559 map-loop45344558 map-loop45794597 loop4573 g46134622 map-loop46074625 transform4217 maptransform4218 ref-var4219 k18867 g43424351 map-loop43364354 loop366 k19043 test4213 k19061 k19079 register-direct-call!4215 register-customizable!4214 g42944303 map-loop42884306 chicken.compiler.core#concatenate gather4216 k18706 g40274034 for-each-loop40264037 k18632 k17972 g40884089 k18547 k18422 k17978 g41154122 for-each-loop41144132 k18362 k18330 k17984 k18139 k17993 k18014 k18035 k17640 k17652 k17697 g39143921 for-each-loop39133924 k17022 g38463854 for-each-loop38453858 k17302 k17305 g38153822 for-each-loop38143825 assign3753 loop3800 walk3751 walkeach3752 ref3754 loop3722 walk-arguments3617 chicken.compiler.core#cons* k16201 k16523 walk-call3614 walk-inline-call3616 cps-lambda3611 node-for-var?3612 loop3658 walk3613 map-loop34693487 map-loop34973514 loop3316 map-loop33663386 map-loop33403357 k15442 map-loop34073428 a13433 g32103217 for-each-loop32093241 k14998 g31663173 for-each-loop31653202 k14806 k14848 for-each-loop31383156 for-each-loop31133131 for-each-loop30823100 k14539 map-loop30443069 for-each-loop30193037 for-each-loop29913009 for-each-loop29732983 for-each-loop29552965 for-each-loop29162934 for-each-loop28842902 for-each-loop28532871 for-each-loop28282846 globalize-all2629 for-each-loop27762804 for-each-loop27862819 for-each-loop27242742 for-each-loop27492767 for-each-loop26992717 chicken.compiler.core#lset-intersection/eq? stripa2627 check-decl2626 k13500 chicken.compiler.core#lset-difference/eq? foldr401404 g406407 note-local2630 g25822591 map-loop25762594 k8494 g25332534 g25262527 loop2498 macro-alias788 loop223 g24372446 map-loop24312450 k12046 k12102 k11968 k11882 k15870 map-loop35313549 map-loop35593576 chicken.compiler.core#create-foreign-stub chicken.compiler.core#expand-foreign-lambda* chicken.compiler.core#expand-foreign-lambda fold2233 map-loop21942211 mapwalk797 g21672176 map-loop21612179 k11193 g20802081 g20712072 map-loop19711988 g17551764 map-loop17491779 k10793 g19281937 map-loop19221943 doloop19581959 loop1837 g18621863 for-each-loop945955 chicken.compiler.core#delete map-loop17081727 g16311640 map-loop16251646 for-each-loop16761687 for-each-loop16581669 k9983 k9892 k9783 map-loop15321550 map-loop14931511 map-loop14111428 k9377 chicken.compiler.core#posq k9292 map-loop12741291 map-loop13041322 map-loop13311352 map-loop13641388 map-loop12141232 map-loop12411262 chicken.compiler.core#unzip1 map-loop11261143 set-real-names!791 g11661176 map-loop11601181 canonicalize-body/ln790 g10491058 map-loop10431061 g10141015 resolve-variable794 g921922 g911912 g907908 g903904 walk796 for-each-loop849863 handle-expansion-result789 mapupdate3586 walk3587 loop3589 lookup787 k7645 find-id786 g758765 for-each-loop757776 chicken.compiler.core#every loop320 foldl527531 foldl511515 chicken.compiler.core#filter foldl489493 loop473 map-loop429447 foldr383386 g388389 loop346 loop339 loop333 loop307) o|calls to known targets: 822 o|identified direct recursive calls: f_6561 1 o|identified direct recursive calls: f_6589 1 o|identified direct recursive calls: f_6740 1 o|identified direct recursive calls: f_6857 1 o|identified direct recursive calls: f_6956 2 o|identified direct recursive calls: f_7340 1 o|identified direct recursive calls: f_8900 1 o|identified direct recursive calls: f_8934 1 o|identified direct recursive calls: f_9073 1 o|identified direct recursive calls: f_9121 1 o|identified direct recursive calls: f_9169 1 o|identified direct recursive calls: f_9711 1 o|identified direct recursive calls: f_10806 1 o|identified direct recursive calls: f_15912 1 o|identified direct recursive calls: f_15946 1 o|identified direct recursive calls: f_6288 1 o|identified direct recursive calls: f_6784 1 o|identified direct recursive calls: f_15338 3 o|identified direct recursive calls: f_15796 1 o|identified direct recursive calls: f_15830 1 o|identified direct recursive calls: f_6897 1 o|identified direct recursive calls: f_18777 1 o|identified direct recursive calls: f_19727 1 o|identified direct recursive calls: f_19851 1 o|identified direct recursive calls: f_19928 1 o|identified direct recursive calls: f_7374 1 o|fast box initializations: 137 o|fast global references: 92 o|fast global assignments: 54 o|dropping unused closure argument: f_10806 o|dropping unused closure argument: f_13343 o|dropping unused closure argument: f_13406 o|dropping unused closure argument: f_15329 o|dropping unused closure argument: f_15718 o|dropping unused closure argument: f_15755 o|dropping unused closure argument: f_16157 o|dropping unused closure argument: f_20478 o|dropping unused closure argument: f_22176 o|dropping unused closure argument: f_6491 o|dropping unused closure argument: f_6555 o|dropping unused closure argument: f_6583 o|dropping unused closure argument: f_6611 o|dropping unused closure argument: f_6731 o|dropping unused closure argument: f_6840 o|dropping unused closure argument: f_6897 o|dropping unused closure argument: f_6991 o|dropping unused closure argument: f_7115 o|dropping unused closure argument: f_7334 o|dropping unused closure argument: f_7722 o|dropping unused closure argument: f_7778 */ /* end of file */ chicken-5.1.0/chicken.format.import.c0000644000175000017500000001372413502227773017316 0ustar sjamaansjamaan/* Generated from chicken.format.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.format.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.format.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.format.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(101))){ C_save(t1); C_rereclaim2(101*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],14, C_text("chicken.format")); lf[2]=C_h_intern(&lf[2],6, C_text("extras")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001format\376\001\000\000\025\001chicken.format#format\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fprintf\376\001\000\000\026\001ch" "icken.format#fprintf\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001printf\376\001\000\000\025\001chicken.format#printf\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\007\001sprintf\376\001\000\000\026\001chicken.format#sprintf\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eformat_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eformat_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eformat_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eformat_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eformat_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/chicken.locative.import.scm0000644000175000017500000000102613502227762020162 0ustar sjamaansjamaan;;;; chicken.locative.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.locative 'lolevel (scheme#list) '((locative? . chicken.locative#locative?) (make-locative . chicken.locative#make-locative) (make-weak-locative . chicken.locative#make-weak-locative) (locative-ref . chicken.locative#locative-ref) (locative-set! . chicken.locative#locative-set!) (locative->object . chicken.locative#locative->object)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/chicken.repl.import.c0000644000175000017500000001406413502227774016767 0ustar sjamaansjamaan/* Generated from chicken.repl.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.repl.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.repl.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.repl.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(121))){ C_save(t1); C_rereclaim2(121*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],12, C_text("chicken.repl")); lf[2]=C_h_intern(&lf[2],4, C_text("repl")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001quit\376\001\000\000\021\001chicken.repl#quit\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001repl\376\001\000\000\021\001chicken.rep" "l#repl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001repl-prompt\376\001\000\000\030\001chicken.repl#repl-prompt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001r" "eset\376\001\000\000\022\001chicken.repl#reset\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001reset-handler\376\001\000\000\032\001chicken.repl#rese" "t-handler\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2erepl_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2erepl_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2erepl_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2erepl_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2erepl_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/egg-compile.scm0000644000175000017500000013645713502227553015647 0ustar sjamaansjamaan;;;; egg-info processing and compilation ; ; Copyright (c) 2017-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (define default-extension-options '()) (define default-program-options '()) (define default-static-program-link-options '()) (define default-dynamic-program-link-options '()) (define default-static-extension-link-options '()) (define default-dynamic-extension-link-options '()) (define default-static-compilation-options '("-O2" "-d1")) (define default-dynamic-compilation-options '("-O2" "-d1")) (define default-import-library-compilation-options '("-O2" "-d0")) (define default-program-linkage (if staticbuild '(static) '(dynamic))) (define default-extension-linkage (if staticbuild '(static) '(static dynamic))) (define +unix-executable-extension+ "") (define +windows-executable-extension+ ".exe") (define +unix-object-extension+ ".o") (define +unix-archive-extension+ ".a") (define +windows-object-extension+ ".obj") (define +windows-archive-extension+ ".a") (define +link-file-extension+ ".link") (define keep-generated-files #f) ;;; some utilities (define override-prefix (let ((prefix (get-environment-variable "CHICKEN_INSTALL_PREFIX"))) (lambda (dir default) (if prefix (string-append prefix dir) default)))) (define (object-extension platform) (case platform ((unix) +unix-object-extension+) ((windows) +windows-object-extension+))) (define (archive-extension platform) (case platform ((unix) +unix-archive-extension+) ((windows) +windows-archive-extension+))) (define (executable-extension platform) (case platform ((unix) +unix-executable-extension+) ((windows) +windows-executable-extension+))) (define (copy-directory-command platform) (case platform ((unix) "cp -r") ((windows) "xcopy /y /i /e"))) (define (mkdir-command platform) (case platform ((unix) "mkdir -p") ((windows) "mkdir"))) (define (install-executable-command platform) (string-append default-install-program " " default-install-program-executable-flags)) (define (install-file-command platform) (string-append default-install-program " " default-install-program-data-flags)) (define (remove-file-command platform) (case platform ((unix) "rm -f") ((windows) "del /f /q"))) (define (cd-command platform) "cd") (define (uses-compiled-import-library? mode) (not (and (eq? mode 'host) staticbuild))) ;;; topological sort with cycle check (define (sort-dependencies dag eq) (condition-case (topological-sort dag eq) ((exn runtime cycle) (error "cyclic dependencies" dag)))) ;;; collect import libraries for all modules (define (import-libraries mods dest rtarget mode) (define (implib name) (conc dest "/" name ".import." (if (uses-compiled-import-library? mode) "so" "scm"))) (if mods (map implib mods) (list (implib rtarget)))) ;;; check condition in conditional clause (define (check-condition tst mode link) (define (fail x) (error "invalid conditional expression in `cond-expand' clause" x)) (let walk ((x tst)) (cond ((and (list? x) (pair? x)) (cond ((and (eq? (car x) 'not) (= 2 (length x))) (not (walk (cadr x)))) ((eq? 'and (car x)) (every walk (cdr x))) ((eq? 'or (car x)) (any walk (cdr x))) (else (fail x)))) ((memq x '(dynamic static)) (memq x link)) ((memq x '(target host)) (memq x mode)) ((symbol? x) (feature? x)) (else (fail x))))) ;;; compile an egg-information tree into abstract build/install operations (define (compile-egg-info eggfile info version platform mode) (let ((exts '()) (prgs '()) (objs '()) (data '()) (genfiles '()) (cinc '()) (scminc '()) (target #f) (src #f) (files '()) (ifiles '()) (cbuild #f) (oname #f) (link '()) (dest #f) (sdeps '()) (cdeps '()) (lopts '()) (opts '()) (mods #f) (lobjs '()) (tfile #f) (ptfile #f) (ifile #f) (eggfile (locate-egg-file eggfile)) (objext (object-extension platform)) (arcext (archive-extension platform)) (exeext (executable-extension platform))) (define (check-target t lst) (when (member t lst) (error "target multiply defined" t)) t) (define (addfiles . filess) (set! ifiles (concatenate (cons ifiles filess))) files) (define (compile-component info) (case (car info) ((extension) (fluid-let ((target (check-target (cadr info) exts)) (cdeps '()) (sdeps '()) (src #f) (cbuild #f) (link (if (null? link) default-extension-linkage link)) (tfile #f) (ptfile #f) (ifile #f) (lopts lopts) (lobjs '()) (oname #f) (mods #f) (opts opts)) (for-each compile-extension/program (cddr info)) (let ((dest (destination-repository mode #t)) ;; Respect install-name if specified (rtarget (or oname target))) (when (eq? #t tfile) (set! tfile rtarget)) (when (eq? #t ifile) (set! ifile rtarget)) (addfiles (if (memq 'static link) (list (conc dest "/" rtarget (if (null? lobjs) objext arcext)) (conc dest "/" rtarget +link-file-extension+)) '()) (if (memq 'dynamic link) (list (conc dest "/" rtarget ".so")) '()) (if tfile (list (conc dest "/" tfile ".types")) '()) (if ifile (list (conc dest "/" ifile ".inline")) '()) (import-libraries mods dest rtarget mode)) (set! exts (cons (list target dependencies: cdeps source: src options: opts link-options: lopts linkage: link custom: cbuild mode: mode types-file: tfile inline-file: ifile predefined-types: ptfile eggfile: eggfile modules: (or mods (list rtarget)) source-dependencies: sdeps link-objects: lobjs output-file: rtarget) exts))))) ((c-object) (fluid-let ((target (check-target (cadr info) exts)) (cdeps '()) (sdeps '()) (src #f) (cbuild #f) (link (if (null? link) default-extension-linkage link)) (oname #f) (mods #f) (opts opts)) (for-each compile-extension/program (cddr info)) (let ((dest (destination-repository mode #t)) ;; Respect install-name if specified (rtarget (or oname target))) (set! objs (cons (list target dependencies: cdeps source: src options: opts linkage: link custom: cbuild mode: mode eggfile: eggfile source-dependencies: sdeps output-file: rtarget) objs))))) ((data) (fluid-let ((target (check-target (cadr info) data)) (dest #f) (files '())) (for-each compile-data/include (cddr info)) (let* ((dest (or dest (if (eq? mode 'target) default-sharedir ; XXX wrong! (override-prefix "/share" host-sharedir)))) (dest (normalize-pathname (conc dest "/")))) (addfiles (map (cut conc dest <>) files))) (set! data (cons (list target dependencies: '() files: files destination: dest mode: mode) data)))) ((generated-source-file) (fluid-let ((target (check-target (cadr info) data)) (src #f) (cbuild #f) (sdeps '()) (cdeps '())) (for-each compile-extension/program (cddr info)) (unless cbuild (error "generated source files need a custom build step" target)) (set! genfiles (cons (list target dependencies: cdeps source: src custom: cbuild source-dependencies: sdeps eggfile: eggfile) genfiles)))) ((c-include) (fluid-let ((target (check-target (cadr info) cinc)) (dest #f) (files '())) (for-each compile-data/include (cddr info)) (let* ((dest (or dest (if (eq? mode 'target) default-incdir ; XXX wrong! (override-prefix "/include" host-incdir)))) (dest (normalize-pathname (conc dest "/")))) (addfiles (map (cut conc dest <>) files))) (set! cinc (cons (list target dependencies: '() files: files destination: dest mode: mode) cinc)))) ((scheme-include) (fluid-let ((target (check-target (cadr info) scminc)) (dest #f) (files '())) (for-each compile-data/include (cddr info)) (let* ((dest (or dest (if (eq? mode 'target) default-sharedir ; XXX wrong! (override-prefix "/share" host-sharedir)))) (dest (normalize-pathname (conc dest "/")))) (addfiles (map (cut conc dest <>) files))) (set! scminc (cons (list target dependencies: '() files: files destination: dest mode: mode) scminc)))) ((program) (fluid-let ((target (check-target (cadr info) prgs)) (cdeps '()) (sdeps '()) (cbuild #f) (src #f) (link (if (null? link) default-program-linkage link)) (lobjs '()) (lopts lopts) (oname #f) (opts opts)) (for-each compile-extension/program (cddr info)) (let ((dest (if (eq? mode 'target) default-bindir ; XXX wrong! (override-prefix "/bin" host-bindir))) ;; Respect install-name if specified (rtarget (or oname target))) (addfiles (list (conc dest "/" rtarget exeext))) (set! prgs (cons (list target dependencies: cdeps source: src options: opts link-options: lopts linkage: link custom: cbuild mode: mode output-file: rtarget source-dependencies: sdeps link-objects: lobjs eggfile: eggfile) prgs))))) (else (compile-common info compile-component)))) (define (compile-extension/program info) (case (car info) ((linkage) (set! link (cdr info))) ((types-file) (set! tfile (cond ((null? (cdr info)) #t) ((not (pair? (cadr info))) (arg info 1 name?)) (else (set! ptfile #t) (set! tfile (or (null? (cdadr info)) (arg (cadr info) 1 name?))))))) ((objects) (let ((los (map ->string (cdr info)))) (set! lobjs (append lobjs los)) (set! cdeps (append cdeps (map ->dep los))))) ((inline-file) (set! ifile (or (null? (cdr info)) (arg info 1 name?)))) ((custom-build) (set! cbuild (->string (arg info 1 name?)))) ((csc-options) (set! opts (append opts (cdr info)))) ((link-options) (set! lopts (append lopts (cdr info)))) ((source) (set! src (->string (arg info 1 name?)))) ((install-name) (set! oname (->string (arg info 1 name?)))) ((modules) (set! mods (map library-id (cdr info)))) ((component-dependencies) (set! cdeps (append cdeps (map ->dep (cdr info))))) ((source-dependencies) (set! sdeps (append sdeps (map ->dep (cdr info))))) (else (compile-common info compile-extension/program)))) (define (compile-common info walk) (case (car info) ((target) (when (eq? mode 'target) (for-each walk (cdr info)))) ((host) (when (eq? mode 'host) (for-each walk (cdr info)))) ((error) (apply error (cdr info))) ((cond-expand) (compile-cond-expand info walk)))) (define (compile-data/include info) (case (car info) ((destination) (set! dest (->string (arg info 1 name?)))) ((files) (set! files (append files (map ->string (cdr info))))) (else (compile-common info compile-data/include)))) (define (compile-options info) (case (car info) ((csc-options) (set! opts (append opts (cdr info)))) ((link-options) (set! lopts (append lopts (cdr info)))) ((linkage) (set! link (append link (cdr info)))) (else (error "invalid component-options specification" info)))) (define (compile-cond-expand info walk) (let loop ((clauses (cdr info))) (cond ((null? clauses) (error "no matching clause in `cond-expand' form" info)) ((or (eq? 'else (caar clauses)) (check-condition (caar clauses) mode link)) (for-each walk (cdar clauses))) (else (loop (cdr clauses)))))) (define (->dep x) (if (name? x) (if (symbol? x) x (string->symbol x)) (error "invalid dependency" x))) (define (compile info) (case (car info) ((components) (for-each compile-component (cdr info))) ((component-options) (for-each compile-options (cdr info))) (else (compile-common info compile)))) (define (arg info n #!optional (pred (constantly #t))) (when (< (length info) n) (error "missing argument" info n)) (let ((x (list-ref info n))) (unless (pred x) (error "argument has invalid type" x)) x)) (define (name? x) (or (string? x) (symbol? x))) (define dep=? equal?) (define (filter pred lst) (cond ((null? lst) '()) ((pred (car lst)) (cons (car lst) (filter pred (cdr lst)))) (else (filter pred (cdr lst))))) (define (filter-deps name deps) (filter (lambda (dep) (and (symbol? dep) (or (assq dep exts) (assq dep objs) (assq dep data) (assq dep cinc) (assq dep scminc) (assq dep genfiles) (assq dep prgs) (error "unknown component dependency" dep)))) deps)) ;; collect information (for-each compile info) ;; sort topologically, by dependencies (let* ((all (append prgs exts objs genfiles)) (order (reverse (sort-dependencies (map (lambda (dep) (cons (car dep) (filter-deps (car dep) (get-keyword dependencies: (cdr dep))))) all) dep=?)))) ;; generate + return build/install commands (values ;; build commands (append-map (lambda (id) (cond ((assq id exts) => (lambda (data) (let ((link (get-keyword linkage: (cdr data))) (mods (get-keyword modules: (cdr data)))) (append (if (memq 'dynamic link) (list (apply compile-dynamic-extension data)) '()) (if (memq 'static link) ;; if compiling both static + dynamic, override ;; types-file: + inline-file: properties to ;; avoid generating things twice: (list (apply compile-static-extension (if (memq 'dynamic link) (cons (car data) (append '(types-file: #f inline-file: #f) (cdr data))) data))) '()) (if (uses-compiled-import-library? mode) (map (lambda (mod) (apply compile-import-library mod (cdr data))) ; override name mods) '()))))) ((assq id prgs) => (lambda (data) (let ((link (get-keyword linkage: (cdr data)))) (append (if (memq 'dynamic link) (list (apply compile-dynamic-program data)) '()) (if (memq 'static link) (list (apply compile-static-program data)) '()))))) ((assq id objs) => (lambda (data) (let ((link (get-keyword linkage: (cdr data)))) (append (if (memq 'dynamic link) (list (apply compile-dynamic-object data)) '()) (if (memq 'static link) (list (apply compile-static-object data)) '()))))) (else (let ((data (assq id genfiles))) (list (apply compile-generated-file data)))))) order) ;; installation commands (append (append-map (lambda (ext) (let ((link (get-keyword linkage: (cdr ext))) (mods (get-keyword modules: (cdr ext)))) (append (if (memq 'static link) (list (apply install-static-extension ext)) '()) (if (memq 'dynamic link) (list (apply install-dynamic-extension ext)) '()) (if (and (memq 'dynamic link) (uses-compiled-import-library? (get-keyword mode: ext))) (map (lambda (mod) (apply install-import-library mod (cdr ext))) ; override name mods) (map (lambda (mod) (apply install-import-library-source mod (cdr ext))) ; s.a. mods)) (if (get-keyword types-file: (cdr ext)) (list (apply install-types-file ext)) '()) (if (get-keyword inline-file: (cdr ext)) (list (apply install-inline-file ext)) '())))) exts) (map (lambda (prg) (apply install-program prg)) prgs) (map (lambda (data) (apply install-data data)) data) (map (lambda (cinc) (apply install-c-include cinc)) cinc) (map (lambda (scminc) (apply install-data scminc)) scminc)) ;; augmented egg-info (append `((installed-files ,@ifiles)) (if version `((version ,version)) '()) info))))) ;;; shell code generation - build operations (define ((compile-static-extension name #!key mode source-dependencies source (options '()) predefined-types eggfile link-objects custom types-file inline-file) srcdir platform) (let* ((cmd (qs* (or (custom-cmd custom srcdir platform) default-csc) platform)) (sname (prefix srcdir name)) (tfile (qs* (prefix srcdir (conc types-file ".types")) platform)) (ifile (qs* (prefix srcdir (conc inline-file ".inline")) platform)) (lfile (qs* (conc sname +link-file-extension+) platform)) (opts (append (if (null? options) default-static-compilation-options options) (if (and types-file (not predefined-types)) (list "-emit-types-file" tfile) '()) (if inline-file (list "-emit-inline-file" ifile) '()))) (out1 (conc sname ".static")) (out2 (qs* (target-file (conc out1 (object-extension platform)) mode) platform)) (out3 (if (null? link-objects) out2 (qs* (target-file (conc out1 (archive-extension platform)) mode) platform))) (targets (append (list out3 lfile) (maybe types-file tfile) (maybe inline-file ifile))) (src (qs* (or source (conc name ".scm")) platform))) (when custom (prepare-custom-command cmd platform)) (print "\n" (qs* default-builder platform #t) " " (joins targets) " : " src " " (qs* eggfile platform) " " (if custom cmd "") " " (filelist srcdir source-dependencies platform) " : " cmd (if keep-generated-files " -k" "") " -regenerate-import-libraries" " -setup-mode -static -I " srcdir " -emit-link-file " lfile (if (eq? mode 'host) " -host" "") " -D compiling-extension -c -unit " name " -D compiling-static-extension" " -C -I" srcdir (arglist opts platform) " " src " -o " out2) (when (pair? link-objects) (let ((lobjs (filelist srcdir (map (cut conc <> ".static" (object-extension platform)) link-objects) platform))) (print (qs* default-builder platform #t) " " out3 " : " out2 " " lobjs " : " (qs* target-librarian platform) " " target-librarian-options " " out3 " " out2 " " lobjs))) (print-end-command platform))) (define ((compile-dynamic-extension name #!key mode mode source (options '()) (link-options '()) predefined-types eggfile link-objects source-dependencies modules custom types-file inline-file) srcdir platform) (let* ((cmd (qs* (or (custom-cmd custom srcdir platform) default-csc) platform)) (sname (prefix srcdir name)) (tfile (qs* (prefix srcdir (conc types-file ".types")) platform)) (ifile (qs* (prefix srcdir (conc inline-file ".inline")) platform)) (opts (append (if (null? options) default-dynamic-compilation-options options) (if (and types-file (not predefined-types)) (list "-emit-types-file" tfile) '()) (if inline-file (list "-emit-inline-file" ifile) '()))) (out (qs* (target-file (conc sname ".so") mode) platform)) (src (qs* (or source (conc name ".scm")) platform)) (lobjs (map (lambda (lo) (target-file (conc lo (object-extension platform)) mode)) link-objects)) (targets (append (list out) (maybe inline-file ifile) (maybe types-file tfile) (map (lambda (m) (qs* (prefix srcdir (conc m ".import.scm")) platform)) modules)))) (when custom (prepare-custom-command cmd platform)) (print "\n" (qs* default-builder platform #t) " " (joins targets) " : " src " " (qs* eggfile platform) " " (if custom cmd "") " " (filelist srcdir lobjs platform) " " (filelist srcdir source-dependencies platform) " : " cmd (if keep-generated-files " -k" "") (if (eq? mode 'host) " -host" "") " -D compiling-extension -J -s" " -regenerate-import-libraries" " -setup-mode -I " srcdir " -C -I" srcdir (arglist opts platform) (arglist link-options platform) " " src " " (filelist srcdir lobjs platform) " -o " out) (print-end-command platform))) (define ((compile-import-library name #!key mode source-dependencies (options '()) (link-options '())) srcdir platform) (let* ((cmd (qs* default-csc platform)) (sname (prefix srcdir name)) (opts (if (null? options) default-import-library-compilation-options options)) (out (qs* (target-file (conc sname ".import.so") mode) platform)) (src (qs* (conc name ".import.scm") platform))) (print "\n" (qs* default-builder platform #t) " " out " : " src (filelist srcdir source-dependencies platform) " : " cmd (if keep-generated-files " -k" "") " -setup-mode -s" (if (eq? mode 'host) " -host" "") " -I " srcdir " -C -I" srcdir (arglist opts platform) (arglist link-options platform) " " src " -o " out) (print-end-command platform))) (define ((compile-static-object name #!key mode source-dependencies source (options '()) eggfile custom) srcdir platform) (let* ((cmd (qs* (or (custom-cmd custom srcdir platform) default-csc) platform)) (sname (prefix srcdir name)) (ssname (and source (prefix srcdir source))) (opts (if (null? options) default-static-compilation-options options)) (ename (pathname-file eggfile)) (out (qs* (target-file (conc sname ".static" (object-extension platform)) mode) platform)) (src (qs* (or ssname (conc sname ".c")) platform))) (when custom (prepare-custom-command cmd platform)) (print "\n" (slashify default-builder platform) " " out " : " (filelist srcdir source-dependencies platform) src " " (qs* eggfile platform) " " (if custom cmd "") " : " cmd " -setup-mode -static -I " srcdir (if (eq? mode 'host) " -host" "") " -c -C -I" srcdir (arglist opts platform) " " src " -o " out) (print-end-command platform))) (define ((compile-dynamic-object name #!key mode mode source (options '()) eggfile source-dependencies custom) srcdir platform) (let* ((cmd (qs* (or (custom-cmd custom srcdir platform) default-csc) platform)) (opts (if (null? options) default-dynamic-compilation-options options)) (sname (prefix srcdir name)) (ssname (and source (prefix srcdir source))) (out (qs* (target-file (conc sname (object-extension platform)) mode) platform)) (src (qs* (or ssname (conc sname ".c")) platform))) (when custom (prepare-custom-command cmd platform)) (print "\n" (slashify default-builder platform) " " out " : " src " " (qs* eggfile platform) " " (if custom cmd "") " " (filelist srcdir source-dependencies platform) " : " cmd (if (eq? mode 'host) " -host" "") " -setup-mode -I " srcdir " -c -C -I" srcdir (arglist opts platform) " " src " -o " out) (print-end-command platform))) (define ((compile-dynamic-program name #!key source mode (options '()) (link-options '()) source-dependencies custom eggfile link-objects) srcdir platform) (let* ((cmd (qs* (or (custom-cmd custom srcdir platform) default-csc) platform)) (sname (prefix srcdir name)) (opts (if (null? options) default-dynamic-compilation-options options)) (out (qs* (target-file (conc sname (executable-extension platform)) mode) platform)) (lobjs (map (lambda (lo) (target-file (conc lo (object-extension platform)) mode)) link-objects)) (src (qs* (or source (conc name ".scm")) platform))) (when custom (prepare-custom-command cmd platform)) (print "\n" (qs* default-builder platform #t) " " out " : " src " " (qs* eggfile platform) " " (if custom cmd "") " " (filelist srcdir source-dependencies platform) " " (filelist srcdir lobjs platform) " : " cmd (if keep-generated-files " -k" "") " -setup-mode" (if (eq? mode 'host) " -host" "") " -I " srcdir " -C -I" srcdir (arglist opts platform) (arglist link-options platform) " " src " " (filelist srcdir lobjs platform) " -o " out) (print-end-command platform))) (define ((compile-static-program name #!key source (options '()) (link-options '()) source-dependencies custom mode eggfile link-objects) srcdir platform) (let* ((cmd (qs* (or (custom-cmd custom srcdir platform) default-csc) platform)) (sname (prefix srcdir name)) (opts (if (null? options) default-static-compilation-options options)) (out (qs* (target-file (conc sname (executable-extension platform)) mode) platform)) (lobjs (map (lambda (lo) (target-file (conc lo (object-extension platform)) mode)) link-objects)) (src (qs* (or source (conc name ".scm")) platform))) (when custom (prepare-custom-command cmd platform)) (print "\n" (qs* default-builder platform #t) " " out " : " src " " (qs* eggfile platform) " " (if custom cmd "") " " (filelist srcdir lobjs platform) " " (filelist srcdir source-dependencies platform) " : " cmd (if keep-generated-files " -k" "") (if (eq? mode 'host) " -host" "") " -static -setup-mode -I " srcdir " -C -I" srcdir (arglist opts platform) (arglist link-options platform) " " src " " (filelist srcdir lobjs platform) " -o " out) (print-end-command platform))) (define ((compile-generated-file name #!key source custom source-dependencies eggfile) srcdir platform) (let ((cmd (qs* (custom-cmd custom srcdir platform) platform)) (out (qs* (or source name) platform))) (prepare-custom-command cmd platform) (print "\n" (qs* default-builder platform #t) " " out " : " cmd " " (qs* eggfile platform) " " (filelist srcdir source-dependencies platform) " : " cmd) (print-end-command platform))) ;; installation operations (define ((install-static-extension name #!key mode output-file link-objects) srcdir platform) (let* ((cmd (install-file-command platform)) (mkdir (mkdir-command platform)) (ext (if (null? link-objects) (object-extension platform) (archive-extension platform))) (sname (prefix srcdir name)) (out (qs* (target-file (conc sname ".static" ext) mode) platform #t)) (outlnk (qs* (conc sname +link-file-extension+) platform #t)) (dest (destination-repository mode)) (dfile (qs* dest platform #t)) (ddir (shell-variable "DESTDIR" platform))) (print "\n" mkdir " " ddir dfile) (print cmd " " out " " ddir (qs* (conc dest "/" output-file ext) platform #t)) (print cmd " " outlnk " " ddir (qs* (conc dest "/" output-file +link-file-extension+) platform #t)) (print-end-command platform))) (define ((install-dynamic-extension name #!key mode (ext ".so") output-file) srcdir platform) (let* ((cmd (install-executable-command platform)) (dcmd (remove-file-command platform)) (mkdir (mkdir-command platform)) (sname (prefix srcdir name)) (out (qs* (target-file (conc sname ext) mode) platform #t)) (dest (destination-repository mode)) (dfile (qs* dest platform #t)) (ddir (shell-variable "DESTDIR" platform)) (destf (qs* (conc dest "/" output-file ext) platform #t))) (print "\n" mkdir " " ddir dfile) (when (eq? platform 'unix) (print dcmd " " ddir destf)) (print cmd " " out " " ddir destf) (print-end-command platform))) (define ((install-import-library name #!key mode) srcdir platform) ((install-dynamic-extension name mode: mode ext: ".import.so" output-file: name) srcdir platform)) (define ((install-import-library-source name #!key mode) srcdir platform) (let* ((cmd (install-file-command platform)) (mkdir (mkdir-command platform)) (sname (prefix srcdir name)) (out (qs* (target-file (conc sname ".import.scm") mode) platform #t)) (dest (destination-repository mode)) (dfile (qs* dest platform #t)) (ddir (shell-variable "DESTDIR" platform))) (print "\n" mkdir " " ddir dfile) (print cmd " " out " " ddir (qs* (conc dest "/" name ".import.scm") platform #t)) (print-end-command platform))) (define ((install-types-file name #!key mode types-file) srcdir platform) (let* ((cmd (install-file-command platform)) (mkdir (mkdir-command platform)) (out (qs* (prefix srcdir (conc types-file ".types")) platform #t)) (dest (destination-repository mode)) (dfile (qs* dest platform #t)) (ddir (shell-variable "DESTDIR" platform))) (print "\n" mkdir " " ddir dfile) (print cmd " " out " " ddir (qs* (conc dest "/" types-file ".types") platform #t)) (print-end-command platform))) (define ((install-inline-file name #!key mode inline-file) srcdir platform) (let* ((cmd (install-file-command platform)) (mkdir (mkdir-command platform)) (out (qs* (prefix srcdir (conc inline-file ".inline")) platform #t)) (dest (destination-repository mode)) (dfile (qs* dest platform #t)) (ddir (shell-variable "DESTDIR" platform))) (print "\n" mkdir " " ddir dfile) (print cmd " " out " " ddir (qs* (conc dest "/" inline-file ".inline") platform #t)) (print-end-command platform))) (define ((install-program name #!key mode output-file) srcdir platform) (let* ((cmd (install-executable-command platform)) (dcmd (remove-file-command platform)) (mkdir (mkdir-command platform)) (ext (executable-extension platform)) (sname (prefix srcdir name)) (out (qs* (target-file (conc sname ext) mode) platform #t)) (dest (if (eq? mode 'target) default-bindir (override-prefix "/bin" host-bindir))) (dfile (qs* dest platform #t)) (ddir (shell-variable "DESTDIR" platform)) (destf (qs* (conc dest "/" output-file ext) platform #t))) (print "\n" mkdir " " ddir dfile) (when (eq? platform 'unix) (print dcmd " " ddir destf)) (print cmd " " out " " ddir destf) (print-end-command platform))) (define (install-random-files dest files mode srcdir platform) (let* ((fcmd (install-file-command platform)) (dcmd (copy-directory-command platform)) (root (string-append srcdir "/")) (mkdir (mkdir-command platform)) (sfiles (map (cut prefix srcdir <>) files)) (dfile (qs* dest platform #t)) (ddir (shell-variable "DESTDIR" platform))) (print "\n" mkdir " " ddir dfile) (let-values (((ds fs) (partition directory? sfiles))) (for-each (lambda (d) (let* ((ds (strip-dir-prefix srcdir d)) (fdir (pathname-directory ds))) (when fdir (print mkdir " " ddir (qs* (make-pathname dest fdir) platform #t))) (print dcmd " " (qs* d platform #t) " " ddir (if fdir (qs* (make-pathname dest fdir) platform #t) dfile)) (print-end-command platform))) ds) (when (pair? fs) (for-each (lambda (f) (let* ((fs (strip-dir-prefix srcdir f)) (fdir (pathname-directory fs))) (when fdir (print mkdir " " ddir (qs* (make-pathname dest fdir) platform #t))) (print fcmd " " (qs* f platform) " " ddir (if fdir (qs* (make-pathname dest fdir) platform #t) dfile))) (print-end-command platform)) fs))))) (define ((install-data name #!key files destination mode) srcdir platform) (install-random-files (or destination (if (eq? mode 'target) default-sharedir (override-prefix "/share" host-sharedir))) files mode srcdir platform)) (define ((install-c-include name #!key deps files destination mode) srcdir platform) (install-random-files (or destination (if (eq? mode 'target) default-incdir (override-prefix "/include" host-incdir))) files mode srcdir platform)) ;;; Generate shell or batch commands from abstract build/install operations (define (generate-shell-commands platform cmds dest srcdir prefix suffix keep) (fluid-let ((keep-generated-files keep)) (with-output-to-file dest (lambda () (prefix platform) (print (cd-command platform) " " (qs* srcdir platform #t)) (for-each (lambda (cmd) (cmd srcdir platform)) cmds) (suffix platform))))) ;;; affixes for build- and install-scripts (define ((build-prefix mode name info) platform) (case platform ((unix) (printf #<~a~a <~a~a~% EOF mkdir ddir qdir (string-intersperse (string-split infostr "\n") "^\n\n") ddir dest))))) ;;; some utilities for mangling + quoting ;; The qs procedure quotes for mingw32 or other platforms. We ;; "normalised" the platform to "windows" in chicken-install, so we ;; have to undo that here again. It can also convert slashes to ;; backslashes on Windows, which is necessary in many cases when ;; running programs via "cmd". (define (qs* arg platform #!optional slashify?) (let* ((arg (->string arg)) (path (if slashify? (slashify arg platform) arg))) (qs path (if (eq? platform 'windows) 'mingw32 platform)))) (define (slashify str platform) (if (eq? platform 'windows) (list->string (map (lambda (c) (if (char=? #\/ c) #\\ c)) (string->list str))) str)) (define (prefix dir name) (make-pathname dir (->string name))) ;; Workaround for obscure behaviour of "system" on Windows: If a ;; string starts with double quotes, you _must_ wrap the whole string ;; in an extra set of quotes to avoid the outer quotes being stripped. ;; Don't ask. (define (system+ str platform) (system (if (and (eq? platform 'windows) (positive? (string-length str)) (char=? #\" (string-ref str 0))) (string-append "\"" str "\"") str))) (define (target-file fname mode) (if (eq? mode 'target) (string-append fname ".target") fname)) (define (arglist lst platform) (apply conc (map (lambda (x) (conc " " (qs* x platform))) lst))) (define (filelist dir lst platform) (arglist (map (cut prefix dir <>) lst) platform)) (define (shell-variable var platform) (case platform ((unix) (string-append "${" var "}")) ((windows) (string-append "%" var "%")))) ;; NOTE `cmd' must already be quoted for shell (define (prepare-custom-command cmd platform) (unless (eq? 'windows platform) (print "chmod +x " cmd))) (define (custom-cmd custom srcdir platform) (and custom (prefix srcdir (case platform ((windows) (conc custom ".bat")) (else custom))))) (define (print-end-command platform) (case platform ((windows) (print "if errorlevel 1 exit /b 1")))) (define (strip-dir-prefix prefix fname) (let* ((plen (string-length prefix)) (p1 (substring fname 0 plen))) (assert (string=? prefix p1) "wrong prefix") (substring fname (add1 plen)))) (define (joins strs) (string-intersperse strs " ")) (define (maybe f x) (if f (list x) '())) chicken-5.1.0/chicken.errno.import.c0000644000175000017500000002463513502227772017155 0ustar sjamaansjamaan/* Generated from chicken.errno.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.errno.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.errno.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.errno.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(821))){ C_save(t1); C_rereclaim2(821*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],13, C_text("chicken.errno")); lf[2]=C_h_intern(&lf[2],5, C_text("posix")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/xdev\376\001\000\000\030\001chicken.errno#errno/xdev\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001errno/wo" "uldblock\376\001\000\000\036\001chicken.errno#errno/wouldblock\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/srch\376\001\000\000\030\001chic" "ken.errno#errno/srch\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/spipe\376\001\000\000\031\001chicken.errno#errno/spipe\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/rofs\376\001\000\000\030\001chicken.errno#errno/rofs\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/rang" "e\376\001\000\000\031\001chicken.errno#errno/range\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/pipe\376\001\000\000\030\001chicken.errno#er" "rno/pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/perm\376\001\000\000\030\001chicken.errno#errno/perm\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001" "errno/nxio\376\001\000\000\030\001chicken.errno#errno/nxio\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/notty\376\001\000\000\031\001chicken" ".errno#errno/notty\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001errno/notempty\376\001\000\000\034\001chicken.errno#errno/notemp" "ty\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001errno/notdir\376\001\000\000\032\001chicken.errno#errno/notdir\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001er" "rno/nosys\376\001\000\000\031\001chicken.errno#errno/nosys\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/nospc\376\001\000\000\031\001chicken" ".errno#errno/nospc\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/nomem\376\001\000\000\031\001chicken.errno#errno/nomem\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\013\001errno/nolck\376\001\000\000\031\001chicken.errno#errno/nolck\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001errno/noex" "ec\376\001\000\000\032\001chicken.errno#errno/noexec\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/noent\376\001\000\000\031\001chicken.errno" "#errno/noent\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/nodev\376\001\000\000\031\001chicken.errno#errno/nodev\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\013\001errno/nfile\376\001\000\000\031\001chicken.errno#errno/nfile\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001errno/nametoolon" "g\376\001\000\000\037\001chicken.errno#errno/nametoolong\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/mlink\376\001\000\000\031\001chicken.e" "rrno#errno/mlink\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/mfile\376\001\000\000\031\001chicken.errno#errno/mfile\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\013\001errno/isdir\376\001\000\000\031\001chicken.errno#errno/isdir\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001errno/io\376\001\000\000" "\026\001chicken.errno#errno/io\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/inval\376\001\000\000\031\001chicken.errno#errno/inv" "al\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/intr\376\001\000\000\030\001chicken.errno#errno/intr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/" "ilseq\376\001\000\000\031\001chicken.errno#errno/ilseq\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/fbig\376\001\000\000\030\001chicken.errn" "o#errno/fbig\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/fault\376\001\000\000\031\001chicken.errno#errno/fault\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\013\001errno/exist\376\001\000\000\031\001chicken.errno#errno/exist\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001errno/dom\376\001\000\000\027\001c" "hicken.errno#errno/dom\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001errno/deadlk\376\001\000\000\032\001chicken.errno#errno/dead" "lk\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/child\376\001\000\000\031\001chicken.errno#errno/child\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errn" "o/busy\376\001\000\000\030\001chicken.errno#errno/busy\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/badf\376\001\000\000\030\001chicken.errn" "o#errno/badf\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/again\376\001\000\000\031\001chicken.errno#errno/again\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\013\001errno/acces\376\001\000\000\031\001chicken.errno#errno/acces\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/2big\376\001\000\000\030\001" "chicken.errno#errno/2big\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001errno\376\001\000\000\023\001chicken.errno#errno\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eerrno_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eerrno_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eerrno_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eerrno_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eerrno_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/support.scm0000644000175000017500000017555313502227553015173 0ustar sjamaansjamaan;;;; support.scm - Miscellaneous support code for the CHICKEN compiler ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit support) (not inline ##sys#user-read-hook) ; XXX: Is this needed? (uses data-structures extras file internal pathname port)) (module chicken.compiler.support (compiler-cleanup-hook bomb collected-debugging-output debugging debugging-chicken with-debugging-output quit-compiling emit-syntax-trace-info check-signature build-lambda-list c-ify-string valid-c-identifier? read-expressions bytes->words words->bytes check-and-open-input-file close-checked-input-file fold-inner constant? collapsable-literal? immediate? basic-literal? canonicalize-begin-body string->expr llist-length llist-match? expand-profile-lambda reset-profile-info-vector-name! profiling-prelude-exps db-get db-get-all db-put! collect! db-get-list get-line get-line-2 display-line-number-database make-node node? node-class node-class-set! node-parameters node-parameters-set! node-subexpressions node-subexpressions-set! varnode qnode build-node-graph build-expression-tree fold-boolean inline-lambda-bindings tree-copy copy-node! copy-node emit-global-inline-file load-inline-file match-node expression-has-side-effects? simple-lambda-node? dump-undefined-globals dump-defined-globals dump-global-refs make-foreign-callback-stub foreign-callback-stub? foreign-callback-stub-id foreign-callback-stub-name foreign-callback-stub-qualifiers foreign-callback-stub-return-type foreign-callback-stub-argument-types register-foreign-callback-stub! foreign-callback-stubs ; should not be exported foreign-type-check foreign-type-convert-result foreign-type-convert-argument final-foreign-type register-foreign-type! lookup-foreign-type clear-foreign-type-table! estimate-foreign-result-size estimate-foreign-result-location-size finish-foreign-result foreign-type->scrutiny-type scan-used-variables scan-free-variables chop-separator make-block-variable-literal block-variable-literal? block-variable-literal-name make-random-name clear-real-name-table! get-real-name set-real-name! real-name real-name2 display-real-name-table source-info->string source-info->line source-info->name call-info constant-form-eval maybe-constant-fold-call dump-nodes read-info-hook read/source-info big-fixnum? small-bignum? hide-variable export-variable variable-hidden? variable-visible? mark-variable variable-mark intrinsic? predicate? foldable? load-identifier-database print-version print-usage print-debug-options ;; XXX: These are evil globals that were too hairy to get rid of. ;; These values are set! by compiler and batch-driver, and read ;; in a lot of other places. number-type unsafe) (import scheme chicken.base chicken.bitwise chicken.blob chicken.condition chicken.file chicken.fixnum chicken.foreign chicken.format chicken.internal chicken.io chicken.keyword chicken.pathname chicken.platform chicken.plist chicken.port chicken.pretty-print chicken.sort chicken.string chicken.syntax chicken.time) (include "tweaks") (include "mini-srfi-1.scm") (include "banner") ;; Evil globals (define number-type 'generic) (define unsafe #f) ;;; Debugging and error-handling stuff: (define (compiler-cleanup-hook) #f) (define debugging-chicken '()) (define (bomb . msg-and-args) (if (pair? msg-and-args) (apply error (string-append "[internal compiler error] " (car msg-and-args)) (cdr msg-and-args)) (error "[internal compiler error]") ) ) (define collected-debugging-output (open-output-string)) (define +logged-debugging-modes+ '(o x S)) (define (test-debugging-mode mode enabled) (if (symbol? mode) (memq mode enabled) (any (lambda (m) (memq m enabled)) mode))) (define (debugging mode msg . args) (define (text) (with-output-to-string (lambda () (display msg) (when (pair? args) (display ": ") (for-each (lambda (x) (printf "~s " (force x))) args) ) (newline)))) (define (dump txt) (fprintf collected-debugging-output "~a|~a" mode txt)) (cond ((test-debugging-mode mode debugging-chicken) (let ((txt (text))) (display txt) (flush-output) (when (test-debugging-mode mode +logged-debugging-modes+) (dump txt)) #t)) (else (when (test-debugging-mode mode +logged-debugging-modes+) (dump (text))) #f))) (define (with-debugging-output mode thunk) (define (collect text) (for-each (lambda (ln) (fprintf collected-debugging-output "~a|~a~%" (if (pair? mode) (car mode) mode) ln)) (string-split text "\n"))) (cond ((test-debugging-mode mode debugging-chicken) (let ((txt (with-output-to-string thunk))) (display txt) (flush-output) (when (test-debugging-mode mode +logged-debugging-modes+) (collect txt)))) ((test-debugging-mode mode +logged-debugging-modes+) (collect (with-output-to-string thunk))))) (define (quit-compiling msg . args) (let ([out (current-error-port)]) (apply fprintf out (string-append "\nError: " msg) args) (newline out) (exit 1) ) ) (set! ##sys#syntax-error-hook (lambda (msg . args) (let ((out (current-error-port)) (loc (and (symbol? msg) (let ((loc msg)) (set! msg (car args)) (set! args (cdr args)) loc)))) (if loc (fprintf out "\nSyntax error (~a): ~a~%~%" loc msg) (fprintf out "\nSyntax error: ~a~%~%" msg) ) (for-each (cut fprintf out "\t~s~%" <>) args) (print-call-chain out 0 ##sys#current-thread "\n\tExpansion history:\n") (exit 70) ) ) ) (set! syntax-error ##sys#syntax-error-hook) ;; Move to C-platform? (define (emit-syntax-trace-info info cntr) (define (thread-id t) (##sys#slot t 14)) (##core#inline "C_emit_syntax_trace_info" info cntr (thread-id ##sys#current-thread))) (define (map-llist proc llist) (let loop ([llist llist]) (cond [(null? llist) '()] [(symbol? llist) (proc llist)] [else (cons (proc (car llist)) (loop (cdr llist)))] ) ) ) ;; XXX: Shouldn't this be in optimizer.scm? (define (check-signature var args llist) (define (err) (quit-compiling "Arguments to inlined call of `~A' do not match parameter-list ~A" (real-name var) (map-llist real-name (cdr llist)) ) ) (let loop ([as args] [ll llist]) (cond [(null? ll) (unless (null? as) (err))] [(symbol? ll)] [(null? as) (err)] [else (loop (cdr as) (cdr ll))] ) ) ) ;;; Generic utility routines: (define (build-lambda-list vars argc rest) (let loop ((vars vars) (n argc)) (cond ((or (zero? n) (null? vars)) (or rest '())) (else (cons (car vars) (loop (cdr vars) (sub1 n)))) ) ) ) ;; XXX: Put this too in c-platform or c-backend? (define (c-ify-string str) (list->string (cons #\" (let loop ((chars (string->list str))) (if (null? chars) '(#\") (let* ((c (car chars)) (code (char->integer c)) ) (if (or (< code 32) (>= code 127) (memq c '(#\" #\' #\\ #\? #\*))) (append '(#\\) (cond ((< code 8) '(#\0 #\0)) ((< code 64) '(#\0)) (else '()) ) (string->list (number->string code 8)) (loop (cdr chars)) ) (cons c (loop (cdr chars))) ) ) ) ) ) ) ) ;; XXX: This too, but it's used only in core.scm, WTF? (define (valid-c-identifier? name) (let ([str (string->list (->string name))]) (and (pair? str) (let ([c0 (car str)]) (and (or (char-alphabetic? c0) (char=? #\_ c0)) (every (lambda (c) (or (char-alphabetic? c) (char-numeric? c) (char=? #\_ c))) (cdr str))))))) ;; TODO: Move these to (chicken memory)? (define bytes->words (foreign-lambda int "C_bytestowords" int)) (define words->bytes (foreign-lambda int "C_wordstobytes" int)) ;; Used only in batch-driver; move it there? (define (check-and-open-input-file fname . line) (cond ((string=? fname "-") (current-input-port)) ((file-exists? fname) (open-input-file fname)) ((or (null? line) (not (car line))) (quit-compiling "Can not open file ~s" fname)) (else (quit-compiling "(~a) can not open file ~s" (car line) fname)) ) ) (define (close-checked-input-file port fname) (unless (string=? fname "-") (close-input-port port)) ) (define (fold-inner proc lst) (if (null? (cdr lst)) lst (let fold ((xs (reverse lst))) (apply proc (if (null? (cddr xs)) (list (cadr xs) (car xs)) (list (fold (cdr xs)) (car xs)) ) ) ) ) ) (define (follow-without-loop seed proc abort) (let loop ([x seed] [done '()]) (if (member x done) (abort) (proc x (lambda (x2) (loop x2 (cons x done)))) ) ) ) (define (sort-symbols lst) (sort lst (lambda (s1 s2) (stringstring s1) (symbol->string s2))))) (define (read-expressions #!optional (port (current-input-port))) (do ((x (read port) (read port)) (i 0 (add1 i)) (xs '() (cons x xs))) ((eof-object? x) (reverse xs)))) ;;; Predicates on expressions and literals: (define (constant? x) (or (number? x) (char? x) (string? x) (boolean? x) (eof-object? x) (blob? x) (vector? x) (##sys#srfi-4-vector? x) (and (pair? x) (eq? 'quote (car x))) ) ) (define (collapsable-literal? x) (or (boolean? x) (char? x) (eof-object? x) (number? x) (symbol? x) ) ) (define (immediate? x) (or (and (fixnum? x) (not (big-fixnum? x))) ; 64-bit fixnums would result in platform-dependent .c files (eq? (##core#undefined) x) (null? x) (eof-object? x) (char? x) (boolean? x) ) ) (define (basic-literal? x) (or (null? x) (symbol? x) (constant? x) (and (vector? x) (every basic-literal? (vector->list x))) (and (pair? x) (basic-literal? (car x)) (basic-literal? (cdr x)) ) ) ) ;;; Expression manipulation: (define (canonicalize-begin-body body) (let loop ((xs body)) (cond ((null? xs) '(##core#undefined)) ((null? (cdr xs)) (car xs)) ((let ([h (car xs)]) (or (equal? h '(##core#undefined)) (constant? h) (equal? h '(##sys#void)) ) ) (loop (cdr xs)) ) (else `(let ((,(gensym 't) ,(car xs))) ,(loop (cdr xs))) ) ) ) ) ;; Only used in batch-driver: move it there? (define string->expr (let ([exn? (condition-predicate 'exn)] [exn-msg (condition-property-accessor 'exn 'message)] ) (lambda (str) (handle-exceptions ex (quit-compiling "cannot parse expression: ~s [~a]~%" str (if (exn? ex) (exn-msg ex) (->string ex) ) ) (let ((xs (with-input-from-string str (lambda () (let loop ((lst '())) (let ((x (read))) (if (eof-object? x) (apply values (reverse lst)) (loop (cons x lst))))))))) (cond [(null? xs) '(##core#undefined)] [(null? (cdr xs)) (car xs)] [else `(begin ,@xs)] ) ) ) ) ) ) ;; Only used in optimizer; move it there? But it's a C function call, so ;; it may be better in c-platform (define (llist-length llist) (##core#inline "C_u_i_length" llist)) ; stops at non-pair node (define (llist-match? llist args) ; assumes #!optional/#!rest/#!key have been expanded (let loop ((llist llist) (args args)) (cond ((null? llist) (null? args)) ((symbol? llist)) ((null? args) (atom? llist)) (else (loop (cdr llist) (cdr args)))))) ;;; Profiling instrumentation: (define profile-info-vector-name #f) (define (reset-profile-info-vector-name!) (set! profile-info-vector-name (make-random-name 'profile-info))) (define profile-lambda-list '()) (define profile-lambda-index 0) (define (expand-profile-lambda name llist body) (let ([index profile-lambda-index] [args (gensym)] ) (set! profile-lambda-list (alist-cons index name profile-lambda-list)) (set! profile-lambda-index (add1 index)) `(##core#lambda ,args (##sys#dynamic-wind (##core#lambda () (##sys#profile-entry ',index ,profile-info-vector-name)) (##core#lambda () (##sys#apply (##core#lambda ,llist ,body) ,args)) (##core#lambda () (##sys#profile-exit ',index ,profile-info-vector-name)) ) ) ) ) ;; Get expressions which initialize and populate the profiling vector (define (profiling-prelude-exps profile-name) `((set! ,profile-info-vector-name (##sys#register-profile-info ',(length profile-lambda-list) ',profile-name)) ,@(map (lambda (pl) `(##sys#set-profile-info-vector! ,profile-info-vector-name ',(car pl) ',(cdr pl) ) ) profile-lambda-list))) ;;; Database operations: (define (db-get db key prop) (let ((plist (hash-table-ref db key))) (and plist (let ([a (assq prop plist)]) (and a (##sys#slot a 1)) ) ) ) ) (define (db-get-all db key . props) (let ((plist (hash-table-ref db key))) (if plist (filter-map (lambda (prop) (assq prop plist)) props) '() ) ) ) (define (db-put! db key prop val) (let ((plist (hash-table-ref db key))) (if plist (let ([a (assq prop plist)]) (cond [a (##sys#setslot a 1 val)] [val (##sys#setslot plist 1 (alist-cons prop val (##sys#slot plist 1)))] ) ) (when val (hash-table-set! db key (list (cons prop val))))))) (define (collect! db key prop val) (let ((plist (hash-table-ref db key))) (if plist (let ([a (assq prop plist)]) (cond [a (##sys#setslot a 1 (cons val (##sys#slot a 1)))] [else (##sys#setslot plist 1 (alist-cons prop (list val) (##sys#slot plist 1)))] ) ) (hash-table-set! db key (list (list prop val)))))) (define (db-get-list db key prop) ; returns '() if not set (let ((x (db-get db key prop))) (or x '()))) ;;; Line-number database management: (define (get-line exp) (db-get ##sys#line-number-database (car exp) exp) ) (define (get-line-2 exp) (let* ((name (car exp)) (lst (hash-table-ref ##sys#line-number-database name))) (cond ((and lst (assq exp (cdr lst))) => (lambda (a) (values (car lst) (cdr a))) ) (else (values name #f)) ) ) ) (define (display-line-number-database) (hash-table-for-each (lambda (key val) (when val (printf "~S ~S~%" key (map cdr val))) ) ##sys#line-number-database) ) ;;; Node creation and -manipulation: ;; Note: much of this stuff will be overridden by the inline-definitions in "tweaks.scm". (define-record-type node (make-node class parameters subexpressions) node? (class node-class node-class-set!) ; symbol (parameters node-parameters node-parameters-set!) ; (value...) (subexpressions node-subexpressions node-subexpressions-set!)) ; (node...) (define-record-printer (node n out) (fprintf out "#" (node-class n) (node-parameters n))) (define (make-node c p s) (##sys#make-structure 'chicken.compiler.support#node c p s)) (define (varnode var) (make-node '##core#variable (list var) '())) (define (qnode const) (make-node 'quote (list const) '())) (define (build-node-graph exp) (let ((count 0)) (define (walk x) (cond ((symbol? x) (varnode x)) ((node? x) x) ((not (pair? x)) (bomb "bad expression" x)) ((symbol? (car x)) (case (car x) ((if ##core#undefined) (make-node (car x) '() (map walk (cdr x)))) ((quote) (let ((c (cadr x))) (qnode (if (and (number? c) (eq? 'fixnum number-type) (not (integer? c)) ) (begin (warning "literal is out of range - will be truncated to integer" c) (inexact->exact (truncate c)) ) c) ) ) ) ((let) (let ([bs (cadr x)] [body (caddr x)] ) (if (null? bs) (walk body) (make-node 'let (unzip1 bs) (append (map (lambda (b) (walk (cadr b))) (cadr x)) (list (walk body)) ) ) ) ) ) ((lambda ##core#lambda) (make-node 'lambda (list (cadr x)) (list (walk (caddr x))))) ((##core#the) (make-node '##core#the (list (second x) (third x)) (list (walk (fourth x))))) ((##core#typecase) ;; clause-head is already stripped (let loop ((cls (cdddr x)) (types '()) (exps (list (walk (caddr x))))) (cond ((null? cls) ; no "else" clause given (make-node '##core#typecase (cons (cadr x) (reverse types)) (reverse (cons (make-node '##core#undefined '() '()) exps)))) ((eq? 'else (caar cls)) (make-node '##core#typecase (cons (cadr x) (reverse (cons '* types))) (reverse (cons (walk (cadar cls)) exps)))) (else (loop (cdr cls) (cons (caar cls) types) (cons (walk (cadar cls)) exps)))))) ((##core#primitive) (let ((arg (cadr x))) (make-node (car x) (list (if (and (pair? arg) (eq? 'quote (car arg))) (cadr arg) arg)) (map walk (cddr x)) ) ) ) ((##core#inline ##core#provide ##core#callunit) (make-node (car x) (list (cadr x)) (map walk (cddr x))) ) ((##core#debug-event) ; 2nd argument is provided by canonicalization phase (make-node (car x) (cdr x) '())) ((##core#proc) (make-node '##core#proc (list (cadr x) #t) '()) ) ((set! ##core#set!) (make-node 'set! (list (cadr x)) (map walk (cddr x)))) ((##core#foreign-callback-wrapper) (let ([name (cadr (second x))]) (make-node '##core#foreign-callback-wrapper (list name (cadr (third x)) (cadr (fourth x)) (cadr (fifth x))) (list (walk (list-ref x 5))) ) ) ) ((##core#inline_allocate ##core#inline_ref ##core#inline_update ##core#inline_loc_ref ##core#inline_loc_update) (make-node (first x) (second x) (map walk (cddr x))) ) ((##core#app) (make-node '##core#call (list #t) (map walk (cdr x))) ) (else (receive (name ln) (get-line-2 x) (make-node '##core#call (list (cond [(variable-mark name '##compiler#always-bound-to-procedure) (set! count (add1 count)) #t] [else #f] ) (if ln (let ([rn (real-name name)]) (list ln (or rn (##sys#symbol->string name))) ) (##sys#symbol->string name) ) ) (map walk x) ) ) ) ) ) (else (make-node '##core#call (list #f) (map walk x))) ) ) (let ([exp2 (walk exp)]) (when (positive? count) (debugging 'o "eliminated procedure checks" count)) ;XXX perhaps throw this out exp2) ) ) (define (build-expression-tree node) (let walk ((n node)) (let ((subs (node-subexpressions n)) (params (node-parameters n)) (class (node-class n)) ) (case class ((if ##core#box ##core#cond) (cons class (map walk subs))) ((##core#closure) `(##core#closure ,params ,@(map walk subs)) ) ((##core#variable) (car params)) ((quote) (let ((c (car params))) (if (or (boolean? c) (string? c) (number? c) (char? c)) c `(quote ,(car params))))) ((let) `(let ,(map list params (map walk (butlast subs))) ,(walk (last subs)) ) ) ((##core#lambda) (list (if (second params) 'lambda '##core#lambda) (third params) (walk (car subs)) ) ) ((##core#the) `(the ,(first params) ,(walk (first subs)))) ((##core#the/result) (walk (first subs))) ((##core#typecase) `(compiler-typecase ,(walk (first subs)) ,@(let loop ((types (cdr params)) (bodies (cdr subs))) (if (null? types) (if (null? bodies) '() `((else ,(walk (car bodies))))) (cons (list (car types) (walk (car bodies))) (loop (cdr types) (cdr bodies))))))) ((##core#call) (map walk subs)) ((##core#callunit) (cons* '##core#callunit (car params) (map walk subs))) ((##core#undefined) (list class)) ((##core#bind) (let loop ((n (car params)) (vals subs) (bindings '())) (if (zero? n) `(##core#bind ,(reverse bindings) ,(walk (car vals))) (loop (- n 1) (cdr vals) (cons (walk (car vals)) bindings)) ) ) ) ((##core#unbox ##core#ref ##core#update ##core#update_i) (cons* class (walk (car subs)) params (map walk (cdr subs))) ) ((##core#inline_allocate) (cons* class params (map walk subs))) (else (cons class (append params (map walk subs)))) ) ) ) ) (define (fold-boolean proc lst) (let fold ([vars lst]) (if (null? (cddr vars)) (apply proc vars) (make-node '##core#inline '("C_and") (list (proc (first vars) (second vars)) (fold (cdr vars)) ) ) ) ) ) ;; Move to optimizer.scm? (define (inline-lambda-bindings llist args body copy? db cfk) (##sys#decompose-lambda-list llist (lambda (vars argc rest) (receive (largs rargs) (split-at args argc) (let* ((rlist (if copy? (map gensym vars) vars)) (body (if copy? (copy-node-tree-and-rename body vars rlist db cfk) body) ) ) (let loop ((vars (take rlist argc)) (vals largs)) (if (null? vars) (if rest (make-node 'let (list (last rlist)) (list (if (null? rargs) (qnode '()) (make-node '##core#inline_allocate (list "C_a_i_list" (* 3 (length rargs))) rargs) ) body) ) body) (make-node 'let (list (car vars)) (list (car vals) (loop (cdr vars) (cdr vals))))))))))) ;; Copy along with the above (define (copy-node-tree-and-rename node vars aliases db cfk) (let ((rlist (map cons vars aliases))) (define (rename v rl) (alist-ref v rl eq? v)) (define (walk n rl) (let ((subs (node-subexpressions n)) (params (node-parameters n)) (class (node-class n)) ) (case class ((quote) (make-node class params '())) ((##core#variable) (let ((var (first params))) (when (db-get db var 'contractable) (cfk var)) (varnode (rename var rl))) ) ((set!) (make-node 'set! (list (rename (first params) rl)) (list (walk (first subs) rl)) ) ) ((let) (let* ((v (first params)) (val1 (walk (first subs) rl)) (a (gensym v)) (rl2 (alist-cons v a rl)) ) (db-put! db a 'inline-transient #t) (make-node 'let (list a) (list val1 (walk (second subs) rl2)))) ) ((##core#lambda) (##sys#decompose-lambda-list (third params) (lambda (vars argc rest) (let* ((as (map (lambda (v) (let ((a (gensym v))) (db-put! db v 'inline-transient #t) a)) vars) ) (rl2 (append (map cons vars as) rl)) ) (make-node '##core#lambda (list (gensym 'f) (second params) ; new function-id (build-lambda-list as argc (and rest (rename rest rl2))) (fourth params) ) (map (cut walk <> rl2) subs) ) ) ) ) ) (else (make-node class (tree-copy params) (map (cut walk <> rl) subs))) ) ) ) (walk node rlist) ) ) ;; Maybe move to scrutinizer. It's generic enough to keep it here though (define (tree-copy t) (let rec ([t t]) (if (pair? t) (cons (rec (car t)) (rec (cdr t))) t) ) ) (define (copy-node n) (make-node (node-class n) (node-parameters n) (node-subexpressions n))) (define (copy-node! from to) (node-class-set! to (node-class from)) (node-parameters-set! to (node-parameters from)) (node-subexpressions-set! to (node-subexpressions from)) to) (define (node->sexpr n) (let walk ((n n)) `(,(node-class n) ,(node-parameters n) ,@(map walk (node-subexpressions n))))) (define (sexpr->node x) (let walk ((x x)) (make-node (car x) (cadr x) (map walk (cddr x))))) ;; Only used in batch-driver.scm (define (emit-global-inline-file source-file inline-file db block-compilation inline-limit) (let ((lst '()) (out '())) (hash-table-for-each (lambda (sym plist) (when (variable-visible? sym block-compilation) (and-let* ((val (assq 'local-value plist)) ((not (node? (variable-mark sym '##compiler#inline-global)))) ((let ((val (assq 'value plist))) (or (not val) (not (eq? 'unknown (cdr val)))))) ((assq 'inlinable plist)) (lparams (node-parameters (cdr val))) ((not (db-get db sym 'hidden-refs))) ((case (variable-mark sym '##compiler#inline) ((yes) #t) ((no) #f) (else (< (fourth lparams) inline-limit) ) ) ) ) (set! lst (cons sym lst)) (set! out (cons (list sym (node->sexpr (cdr val))) out))))) db) (if (null? out) (delete-file* inline-file) (with-output-to-file inline-file (lambda () (print "; GENERATED BY CHICKEN " (chicken-version) " FROM " source-file "\n") (for-each (lambda (x) (pp x) (newline)) (reverse out)) (print "; END OF FILE")))) (when (and (pair? lst) (debugging 'i "the following procedures can be globally inlined:")) (for-each (cut print " " <>) (sort-symbols lst))))) ;; Used only in batch-driver.scm (define (load-inline-file fname) (with-input-from-file fname (lambda () (let loop () (let ((x (read))) (unless (eof-object? x) (mark-variable (car x) '##compiler#inline-global (sexpr->node (cadr x))) (loop))))))) ;;; Match node-structure with pattern: (define (match-node node pat vars) ; Only used in optimizer.scm (let ((env '())) (define (resolve v x) (cond ((assq v env) => (lambda (a) (equal? x (cdr a)))) ((memq v vars) (set! env (alist-cons v x env)) #t) (else (eq? v x)) ) ) (define (match1 x p) (cond ((not (pair? p)) (resolve p x)) ((not (pair? x)) #f) ((match1 (car x) (car p)) (match1 (cdr x) (cdr p))) (else #f) ) ) (define (matchn n p) (if (not (pair? p)) (resolve p n) (and (eq? (node-class n) (first p)) (match1 (node-parameters n) (second p)) (let loop ((ns (node-subexpressions n)) (ps (cddr p)) ) (cond ((null? ps) (null? ns)) ((not (pair? ps)) (resolve ps ns)) ((null? ns) #f) (else (and (matchn (car ns) (car ps)) (loop (cdr ns) (cdr ps)) ) ) ) ) ) ) ) (let ((r (matchn node pat))) (and r (begin (debugging 'a "matched" (node-class node) (node-parameters node) pat) env) ) ) ) ) ;;; Test nodes for certain properties: (define (expression-has-side-effects? node db) (let walk ([n node]) (let ([subs (node-subexpressions n)]) (case (node-class n) [(##core#variable quote ##core#undefined ##core#proc) #f] [(##core#lambda) (let ([id (first (node-parameters n))]) (find (lambda (fs) (eq? id (foreign-callback-stub-id fs))) foreign-callback-stubs) ) ] [(if let) (any walk subs)] [else #t] ) ) ) ) (define (simple-lambda-node? node) ; Used only in compiler.scm (let* ([params (node-parameters node)] [llist (third params)] [k (and (pair? llist) (first llist))] ) ; leaf-routine has no continuation argument (and k (second params) (let rec ([n node]) (case (node-class n) [(##core#call) (let* ([subs (node-subexpressions n)] [f (first subs)] ) (and (eq? '##core#variable (node-class f)) (eq? k (first (node-parameters f))) (every rec (cdr subs)) ) ) ] [(##core#callunit) #f] [else (every rec (node-subexpressions n))] ) ) ) ) ) ;;; Some safety checks and database dumping: (define (dump-undefined-globals db) ; Used only in batch-driver.scm (hash-table-for-each (lambda (sym plist) (when (and (not (keyword? sym)) (assq 'global plist) (not (assq 'assigned plist)) ) (write sym) (newline) ) ) db) ) (define (dump-defined-globals db) ; Used only in batch-driver.scm (hash-table-for-each (lambda (sym plist) (when (and (not (keyword? sym)) (assq 'global plist) (assq 'assigned plist)) (write sym) (newline) ) ) db) ) (define (dump-global-refs db) ; Used only in batch-driver.scm (hash-table-for-each (lambda (sym plist) (when (and (not (keyword? sym)) (assq 'global plist)) (let ((a (assq 'references plist))) (write (list sym (if a (length (cdr a)) 0))) (newline) ) ) ) db) ) ;;; change hook function to hide non-exported module bindings (set! ##sys#toplevel-definition-hook (lambda (sym renamed exported?) (cond ((namespaced-symbol? sym) (unhide-variable sym)) ((not exported?) (debugging 'o "hiding unexported module binding" renamed) (hide-variable renamed))))) ;;; Foreign callback stub and type tables: (define foreign-callback-stubs '()) (define-record-type foreign-callback-stub (make-foreign-callback-stub id name qualifiers return-type argument-types) foreign-callback-stub? (id foreign-callback-stub-id) ; symbol (name foreign-callback-stub-name) ; string (qualifiers foreign-callback-stub-qualifiers) ; string (return-type foreign-callback-stub-return-type) ; type-specifier (argument-types foreign-callback-stub-argument-types)) ; (type-specifier ...) (define (register-foreign-callback-stub! id params) (set! foreign-callback-stubs (cons (apply make-foreign-callback-stub id params) foreign-callback-stubs) ) ;; mark to avoid leaf-routine optimization (mark-variable id '##compiler#callback-lambda)) (define-constant foreign-type-table-size 301) (define foreign-type-table #f) (define (clear-foreign-type-table!) (if foreign-type-table (vector-fill! foreign-type-table '()) (set! foreign-type-table (make-vector foreign-type-table-size '())) )) ;; Register a foreign type under the given alias. type is the foreign ;; type's name, arg and ret are the *names* of conversion procedures ;; when this type is used as argument or return value, respectively. ;; The latter two must either both be supplied, or neither. ;; TODO: Maybe create a separate record type for foreign types? (define (register-foreign-type! alias type #!optional arg ret) (hash-table-set! foreign-type-table alias (vector type (and ret arg) (and arg ret)))) ;; Returns either #f (if t does not exist) or a vector with the type, ;; the *name* of the argument conversion procedure and the *name* of ;; the return value conversion procedure. If no conversion procedures ;; have been supplied, the corresponding slots will be #f. (define (lookup-foreign-type t) (hash-table-ref foreign-type-table t)) ;;; Create foreign type checking expression: (define foreign-type-check ; Used only in compiler.scm (let ((tmap '((nonnull-u8vector . u8vector) (nonnull-u16vector . u16vector) (nonnull-s8vector . s8vector) (nonnull-s16vector . s16vector) (nonnull-u32vector . u32vector) (nonnull-s32vector . s32vector) (nonnull-u64vector . u64vector) (nonnull-s64vector . s64vector) (nonnull-f32vector . f32vector) (nonnull-f64vector . f64vector))) (ftmap '((integer . "int") (unsigned-integer . "unsigned int") (integer32 . "C_s32") (unsigned-integer32 . "C_u32") (integer64 . "C_s64") (unsigned-integer64 . "C_u64") (short . "short") (unsigned-short . "unsigned short") (long . "long") (unsigned-long . "unsigned long") (ssize_t . "ssize_t") (size_t . "size_t")))) (lambda (param type) (follow-without-loop type (lambda (t next) (let repeat ((t t)) (case t ((char unsigned-char) (if unsafe param `(##sys#foreign-char-argument ,param))) ;; TODO: Should "[unsigned-]byte" be range checked? ((int unsigned-int byte unsigned-byte int32 unsigned-int32) (if unsafe param `(##sys#foreign-fixnum-argument ,param))) ((float double number) (if unsafe param `(##sys#foreign-flonum-argument ,param))) ((blob scheme-pointer) (let ((tmp (gensym))) `(##core#let ((,tmp ,param)) (##core#if ,tmp ,(if unsafe tmp `(##sys#foreign-block-argument ,tmp) ) (##core#quote #f)) ) ) ) ((nonnull-scheme-pointer nonnull-blob) (if unsafe param `(##sys#foreign-block-argument ,param) ) ) ((pointer-vector) (let ((tmp (gensym))) `(##core#let ((,tmp ,param)) (##core#if ,tmp ,(if unsafe tmp `(##sys#foreign-struct-wrapper-argument (##core#quote pointer-vector) ,tmp) ) (##core#quote #f)) ) ) ) ((nonnull-pointer-vector) (if unsafe param `(##sys#foreign-struct-wrapper-argument (##core#quote pointer-vector) ,param) ) ) ((u8vector u16vector s8vector s16vector u32vector s32vector u64vector s64vector f32vector f64vector) (let ((tmp (gensym))) `(##core#let ((,tmp ,param)) (##core#if ,tmp ,(if unsafe tmp `(##sys#foreign-struct-wrapper-argument (##core#quote ,t) ,tmp) ) (##core#quote #f)) ) ) ) ((nonnull-u8vector nonnull-u16vector nonnull-s8vector nonnull-s16vector nonnull-u32vector nonnull-s32vector nonnull-u64vector nonnull-s64vector nonnull-f32vector nonnull-f64vector) (if unsafe param `(##sys#foreign-struct-wrapper-argument (##core#quote ,(##sys#slot (assq t tmap) 1)) ,param) ) ) ((integer32 integer64 integer short long ssize_t) (let* ((foreign-type (##sys#slot (assq t ftmap) 1)) (size-expr (sprintf "sizeof(~A) * CHAR_BIT" foreign-type))) (if unsafe param `(##sys#foreign-ranged-integer-argument ,param (foreign-value ,size-expr int))))) ((unsigned-short unsigned-long unsigned-integer size_t unsigned-integer32 unsigned-integer64) (let* ((foreign-type (##sys#slot (assq t ftmap) 1)) (size-expr (sprintf "sizeof(~A) * CHAR_BIT" foreign-type))) (if unsafe param `(##sys#foreign-unsigned-ranged-integer-argument ,param (foreign-value ,size-expr int))))) ((c-pointer c-string-list c-string-list*) (let ((tmp (gensym))) `(##core#let ((,tmp ,param)) (##core#if ,tmp (##sys#foreign-pointer-argument ,tmp) (##core#quote #f)) ) ) ) ((nonnull-c-pointer) `(##sys#foreign-pointer-argument ,param) ) ((c-string c-string* unsigned-c-string unsigned-c-string*) (let ((tmp (gensym))) `(##core#let ((,tmp ,param)) (##core#if ,tmp ,(if unsafe `(##sys#make-c-string ,tmp) `(##sys#make-c-string (##sys#foreign-string-argument ,tmp)) ) (##core#quote #f)) ) ) ) ((nonnull-c-string nonnull-c-string* nonnull-unsigned-c-string*) (if unsafe `(##sys#make-c-string ,param) `(##sys#make-c-string (##sys#foreign-string-argument ,param)) ) ) ((symbol) (if unsafe `(##sys#make-c-string (##sys#symbol->string ,param)) `(##sys#make-c-string (##sys#foreign-string-argument (##sys#symbol->string ,param))) ) ) (else (cond ((and (symbol? t) (lookup-foreign-type t)) => (lambda (t) (next (vector-ref t 0)) ) ) ((pair? t) (case (car t) ((ref pointer function c-pointer) (let ((tmp (gensym))) `(##core#let ((,tmp ,param)) (##core#if ,tmp (##sys#foreign-pointer-argument ,tmp) (##core#quote #f)) ) ) ) ((instance instance-ref) (let ((tmp (gensym))) `(##core#let ((,tmp ,param)) (##core#if ,tmp (slot-ref ,param (##core#quote this)) (##core#quote #f)) ) ) ) ((scheme-pointer) (let ((tmp (gensym))) `(##core#let ((,tmp ,param)) (##core#if ,tmp ,(if unsafe tmp `(##sys#foreign-block-argument ,tmp) ) (##core#quote #f)) ) ) ) ((nonnull-scheme-pointer) (if unsafe param `(##sys#foreign-block-argument ,param) ) ) ((nonnull-instance) `(slot-ref ,param (##core#quote this)) ) ((const) (repeat (cadr t))) ((enum) (if unsafe param `(##sys#foreign-ranged-integer-argument ;; enums are integer size, according to the C standard. ,param (foreign-value "sizeof(int) * CHAR_BIT" int)))) ((nonnull-pointer nonnull-c-pointer) `(##sys#foreign-pointer-argument ,param) ) (else param) ) ) (else param) ) ) ) ) ) (lambda () (quit-compiling "foreign type `~S' refers to itself" type)) ) ) ) ) ;;; Compute foreign-type conversions: (define (foreign-type-convert-result r t) ; Used only in compiler.scm (or (and-let* (((symbol? t)) (ft (lookup-foreign-type t)) (retconv (vector-ref ft 2)) ) (list retconv r) ) r) ) (define (foreign-type-convert-argument a t) ; Used only in compiler.scm (or (and-let* (((symbol? t)) (ft (lookup-foreign-type t)) (argconv (vector-ref ft 1)) ) (list argconv a) ) a) ) (define (final-foreign-type t0) ; Used here and in compiler.scm (follow-without-loop t0 (lambda (t next) (cond ((and (symbol? t) (lookup-foreign-type t)) => (lambda (t2) (next (vector-ref t2 0)) ) ) (else t) ) ) (lambda () (quit-compiling "foreign type `~S' refers to itself" t0)) ) ) ;;; Compute foreign result size: (define (estimate-foreign-result-size type) (define (err t) (quit-compiling "cannot compute size for unknown foreign type `~S' result" type)) (follow-without-loop type (lambda (t next) (case t ((char int short bool void unsigned-short scheme-object unsigned-char unsigned-int byte unsigned-byte int32 unsigned-int32) 0) ((c-string nonnull-c-string c-pointer nonnull-c-pointer symbol c-string* nonnull-c-string* unsigned-c-string unsigned-c-string* nonnull-unsigned-c-string* c-string-list c-string-list*) (words->bytes 3) ) ((unsigned-integer long integer unsigned-long integer32 unsigned-integer32) (words->bytes 6) ) ; 1 bignum digit on 32-bit (overallocs on 64-bit) ((float double number) (words->bytes 4) ) ; possibly 8-byte aligned 64-bit double ((integer64 unsigned-integer64 size_t ssize_t) (words->bytes 7)) ; 2 bignum digits on 32-bit (overallocs on 64-bit) (else (cond ((and (symbol? t) (lookup-foreign-type t)) => (lambda (t2) (next (vector-ref t2 0)) ) ) ((pair? t) (case (car t) ((ref nonnull-pointer pointer c-pointer nonnull-c-pointer function instance instance-ref nonnull-instance) (words->bytes 3) ) ((const) (next (cadr t))) ((enum) (words->bytes 6)) ; 1 bignum digit on 32-bit (overallocs on 64-bit) (else (err t)))) (else (err t)))))) (lambda () (quit-compiling "foreign type `~S' refers to itself" type)) ) ) (define (estimate-foreign-result-location-size type) ; Used only in compiler.scm (define (err t) (quit-compiling "cannot compute size of location for foreign type `~S'" t) ) (follow-without-loop type (lambda (t next) (case t ((char int short bool unsigned-short unsigned-char unsigned-int long unsigned-long byte unsigned-byte c-pointer nonnull-c-pointer unsigned-integer integer float c-string symbol scheme-pointer nonnull-scheme-pointer int32 unsigned-int32 integer32 unsigned-integer32 unsigned-c-string unsigned-c-string* nonnull-unsigned-c-string* nonnull-c-string c-string* nonnull-c-string* c-string-list c-string-list*) (words->bytes 1) ) ((double integer64 unsigned-integer64 size_t ssize_t) (words->bytes 2) ) (else (cond ((and (symbol? t) (lookup-foreign-type t)) => (lambda (t2) (next (vector-ref t2 0)) ) ) ((pair? t) (case (car t) ((ref nonnull-pointer pointer c-pointer nonnull-c-pointer function scheme-pointer nonnull-scheme-pointer enum) (words->bytes 1)) ((const) (next (cadr t))) (else (err t)) ) ) (else (err t)) ) ) ) ) (lambda () (quit-compiling "foreign type `~S' refers to itself" type)) ) ) ;;; Convert result value, if a string: (define (finish-foreign-result type body) ; Used only in compiler.scm (let ((type (strip-syntax type))) (case type ((c-string unsigned-c-string) `(##sys#peek-c-string ,body (##core#quote 0))) ((nonnull-c-string) `(##sys#peek-nonnull-c-string ,body (##core#quote 0))) ((c-string* unsigned-c-string*) `(##sys#peek-and-free-c-string ,body (##core#quote 0))) ((nonnull-c-string* nonnull-unsigned-c-string*) `(##sys#peek-and-free-nonnull-c-string ,body (##core#quote 0))) ((symbol) `(##sys#intern-symbol (##sys#peek-c-string ,body (##core#quote 0)))) ((c-string-list) `(##sys#peek-c-string-list ,body (##core#quote #f))) ((c-string-list*) `(##sys#peek-and-free-c-string-list ,body (##core#quote #f))) (else (if (list? type) (if (and (eq? (car type) 'const) (= 2 (length type)) (memq (cadr type) '(c-string c-string* unsigned-c-string unsigned-c-string* nonnull-c-string nonnull-c-string* nonnull-unsigned-string*))) (finish-foreign-result (cadr type) body) (if (= 3 (length type)) (case (car type) ((instance instance-ref) (let ((tmp (gensym))) `(let ((,tmp ,body)) (and ,tmp (not (##sys#null-pointer? ,tmp)) (make ,(caddr type) (##core#quote this) ,tmp) ) ) ) ) ((nonnull-instance) `(make ,(caddr type) (##core#quote this) ,body) ) (else body)) body)) body))))) ;;; Translate foreign-type into scrutinizer type: ;; Used in chicken-ffi-syntax.scm and scrutinizer.scm (define (foreign-type->scrutiny-type t mode) ; MODE = 'arg | 'result (let ((ft (final-foreign-type t))) (case ft ((void) 'undefined) ((char unsigned-char) 'char) ((int unsigned-int short unsigned-short byte unsigned-byte int32 unsigned-int32) 'fixnum) ((float double) (case mode ((arg) 'number) (else 'float))) ((scheme-pointer nonnull-scheme-pointer) '*) ((blob) (case mode ((arg) '(or boolean blob)) (else 'blob))) ((nonnull-blob) 'blob) ((pointer-vector) (case mode ((arg) '(or boolean pointer-vector)) (else 'pointer-vector))) ((nonnull-pointer-vector) 'pointer-vector) ((u8vector u16vector s8vector s16vector u32vector s32vector u64vector s64vector f32vector f64vector) (case mode ((arg) `(or boolean (struct ,ft))) (else `(struct ,ft)))) ((nonnull-u8vector) '(struct u8vector)) ((nonnull-s8vector) '(struct s8vector)) ((nonnull-u16vector) '(struct u16vector)) ((nonnull-s16vector) '(struct s16vector)) ((nonnull-u32vector) '(struct u32vector)) ((nonnull-s32vector) '(struct s32vector)) ((nonnull-u64vector) '(struct u64vector)) ((nonnull-s64vector) '(struct s64vector)) ((nonnull-f32vector) '(struct f32vector)) ((nonnull-f64vector) '(struct f64vector)) ((integer long size_t ssize_t integer32 unsigned-integer32 integer64 unsigned-integer64 unsigned-long) 'integer) ((c-pointer) '(or boolean pointer locative)) ((nonnull-c-pointer) 'pointer) ((c-string c-string* unsigned-c-string unsigned-c-string*) '(or boolean string)) ((c-string-list c-string-list*) '(list-of string)) ((nonnull-c-string nonnull-c-string* nonnull-unsigned-c-string*) 'string) ((symbol) 'symbol) (else (cond ((pair? t) (case (car t) ((ref pointer function c-pointer) '(or boolean pointer locative)) ((const) (foreign-type->scrutiny-type (cadr t) mode)) ((enum) 'integer) ((nonnull-pointer nonnull-c-pointer) 'pointer) (else '*))) (else '*)))))) ;;; Scan expression-node for variable usage: (define (scan-used-variables node vars) (let ([used '()]) (let walk ([n node]) (let ([subs (node-subexpressions n)]) (case (node-class n) [(##core#variable set!) (let ([var (first (node-parameters n))]) (when (and (memq var vars) (not (memq var used))) (set! used (cons var used)) ) (for-each walk subs) ) ] [(quote ##core#undefined ##core#primitive) #f] [else (for-each walk subs)] ) ) ) used) ) ;;; Scan expression-node for free variables (that are not in env): (define (scan-free-variables node block-compilation) (let ((vars '()) (hvars '())) (define (walk n e) (let ([subs (node-subexpressions n)] [params (node-parameters n)] ) (case (node-class n) ((quote ##core#undefined ##core#primitive ##core#proc ##core#inline_ref) #f) ((##core#variable) (let ((var (first params))) (unless (memq var e) (set! vars (lset-adjoin/eq? vars var)) (unless (variable-visible? var block-compilation) (set! hvars (lset-adjoin/eq? hvars var)))))) ((set!) (let ((var (first params))) (unless (memq var e) (set! vars (lset-adjoin/eq? vars var))) (walk (car subs) e) ) ) ((let) (walk (first subs) e) (walk (second subs) (append params e)) ) ((##core#lambda) (##sys#decompose-lambda-list (third params) (lambda (vars argc rest) (walk (first subs) (append vars e)) ) ) ) (else (walkeach subs e)) ) ) ) (define (walkeach ns e) (for-each (lambda (n) (walk n e)) ns) ) (walk node '()) (values vars hvars) ) ) ; => freevars hiddenvars ;;; Some pathname operations: (define (chop-separator str) ; Used only in batch-driver.scm (let ([len (sub1 (string-length str))]) (if (and (> len 0) (memq (string-ref str len) '(#\\ #\/))) (substring str 0 len) str) ) ) ;;; Special block-variable literal type: (define-record-type block-variable-literal (make-block-variable-literal name) block-variable-literal? (name block-variable-literal-name)) ; symbol ;;; Generation of random names: ;; This one looks iffy. It's also used only in compiler.scm (define (make-random-name . prefix) (string->symbol (sprintf "~A-~A~A" (optional prefix (gensym)) (current-seconds) (##core#inline "C_random_fixnum" 1000)))) ;;; Register/lookup real names: ; ; - The real-name-table contains the following mappings: ; ; -> ; -> or (define-constant real-name-table-size 997) (define real-name-table #f) (define (clear-real-name-table!) (set! real-name-table (make-vector real-name-table-size '()))) (define (set-real-name! name rname) ; Used only in compiler.scm (hash-table-set! real-name-table name rname)) ;; TODO: Find out why there are so many lookup functions for this and ;; reduce them to the minimum. (define (get-real-name name) (hash-table-ref real-name-table name)) ;; Arbitrary limit to prevent runoff into exponential behavior (define real-name-max-depth 20) (define (real-name var . db) (define (resolve n) (let ((n2 (hash-table-ref real-name-table n))) (if n2 (or (hash-table-ref real-name-table n2) n2) n) ) ) (let ((rn (resolve var))) (cond ((not rn) (##sys#symbol->string var)) ((pair? db) (let ((db (car db))) (let loop ((nesting (list (##sys#symbol->string rn))) (depth 0) (container (db-get db var 'contained-in)) ) (cond ((> depth real-name-max-depth) (string-intersperse (reverse (cons "..." nesting)) " in ")) (container (let ((rc (resolve container))) (if (eq? rc container) (string-intersperse (reverse nesting) " in ") (loop (cons (symbol->string rc) nesting) (fx+ depth 1) (db-get db container 'contained-in) ) ) )) (else (string-intersperse (reverse nesting) " in "))) ) ) ) (else (##sys#symbol->string rn)) ) ) ) (define (real-name2 var db) ; Used only in c-backend.scm (and-let* ((rn (hash-table-ref real-name-table var))) (real-name rn db) ) ) (define (display-real-name-table) (hash-table-for-each (lambda (key val) (printf "~S\t~S~%" key val) ) real-name-table) ) (define (source-info->string info) ; Used only in c-backend.scm (if (list? info) (let ((ln (car info)) (name (cadr info))) (conc ln ":" (make-string (max 0 (- 4 (string-length ln))) #\space) " " name) ) (->string info))) (define (source-info->name info) (if (list? info) (cadr info) (->string info))) (define (source-info->line info) (and (list? info) (car info))) (define (call-info params var) ; Used only in optimizer.scm (or (and-let* ((info (and (pair? (cdr params)) (second params)))) (and (list? info) (let ((ln (car info)) (name (cadr info))) (conc "(" ln ") " var)))) var)) ;;; constant folding support: (define (constant-form-eval op argnodes k) ; Used only in optimizer.scm (let* ((args (map (lambda (n) (first (node-parameters n))) argnodes)) (form (cons op (map (lambda (arg) `(quote ,arg)) args)))) ;; op must have toplevel binding, result must be single-valued (let ((proc (##sys#slot op 0))) (if (procedure? proc) (let ((results (handle-exceptions ex ex (receive (apply proc args))))) (cond ((condition? results) (k #f #f)) ((and (= 1 (length results)) (encodeable-literal? (car results))) (debugging 'o "folded constant expression" form) (k #t (car results))) ((= 1 (length results)) ; not encodeable; don't fold (k #f #f)) (else (bomb "attempt to constant-fold call to procedure that has multiple results" form)))) (bomb "attempt to constant-fold call to non-procedure" form))))) (define (maybe-constant-fold-call n subs k) (define (constant-node? n2) (eq? 'quote (node-class n2))) (if (eq? '##core#variable (node-class (car subs))) (let ((var (first (node-parameters (car subs))))) (if (and (intrinsic? var) (or (foldable? var) (predicate? var)) (every constant-node? (cdr subs)) ) (constant-form-eval var (cdr subs) (lambda (ok res) (k ok res #t))) (k #f #f #f))) (k #f #f #f))) ;; Is the literal small enough to be encoded? Otherwise, it should ;; not be constant-folded. (define (encodeable-literal? lit) (define getsize (foreign-lambda* int ((scheme-object lit)) "return(C_header_size(lit));")) (define (fits? n) (fx<= (integer-length n) 24)) (cond ((immediate? lit)) ((exact-integer? lit) ;; Could use integer-length, but that's trickier (minus ;; symbol etc). If the string is too large to allocate, ;; we'll also get an exception! (let ((str (handle-exceptions ex #f (number->string lit 16)))) (and str (fits? (string-length str))))) ((flonum? lit)) ((symbol? lit) (let ((str (##sys#slot lit 1))) (fits? (string-length str)))) ((##core#inline "C_byteblockp" lit) (fits? (getsize lit))) (else (let ((len (getsize lit))) (and (fits? len) (every encodeable-literal? (list-tabulate len (lambda (i) (##sys#slot lit i))))))))) ;;; Dump node structure: (define (dump-nodes n) ; Used only in batch-driver.scm (let loop ([i 0] [n n]) (let ([class (node-class n)] [params (node-parameters n)] [subs (node-subexpressions n)] [ind (make-string i #\space)] [i2 (+ i 2)] ) (printf "~%~A<~A ~S" ind class params) (for-each (cut loop i2 <>) subs) (let ([len (##sys#size n)]) (when (fx> len 4) (printf "[~S" (##sys#slot n 4)) (do ([i 5 (fx+ i 1)]) ((fx>= i len)) (printf " ~S" (##sys#slot n i)) ) (write-char #\]) ) ) (write-char #\>) ) ) (newline) ) ;;; Hook for source information (define (read-info-hook class data val) ; Used here and in compiler.scm (when (and (eq? 'list-info class) (symbol? (car data))) (hash-table-set! ##sys#line-number-database (car data) (alist-cons data (conc ##sys#current-source-filename ":" val) (or (hash-table-ref ##sys#line-number-database (car data)) '() ) ) ) ) data) (define (read/source-info in) ; Used only in batch-driver (##sys#read in read-info-hook) ) ;;; "#> ... <#" syntax: (set! ##sys#user-read-hook (let ([old-hook ##sys#user-read-hook]) (lambda (char port) (if (char=? #\> char) (let* ((_ (read-char port)) ; swallow #\> (text (scan-sharp-greater-string port))) `(declare (foreign-declare ,text)) ) (old-hook char port) ) ) ) ) (define (scan-sharp-greater-string port) (let ([out (open-output-string)]) (let loop () (let ((c (read-char port))) (cond ((eof-object? c) (quit-compiling "unexpected end of `#> ... <#' sequence")) ((char=? c #\newline) (newline out) (loop) ) ((char=? c #\<) (let ([c (read-char port)]) (if (eqv? #\# c) (get-output-string out) (begin (write-char #\< out) (write-char c out) (loop) ) ) ) ) (else (write-char c out) (loop) ) ) ) ) ) ) ;;; 64-bit fixnum? (define (big-fixnum? x) ;; XXX: This should probably be in c-platform (and (fixnum? x) (feature? #:64bit) (or (fx> x 1073741823) (fx< x -1073741824) ) ) ) (define (small-bignum? x) ;; XXX: This should probably be in c-platform (and (bignum? x) (not (feature? #:64bit)) (fx<= (integer-length x) 62) ) ) ;;; symbol visibility and other global variable properties (define (hide-variable sym) ; Used in compiler.scm and here (mark-variable sym '##compiler#visibility 'hidden)) (define (export-variable sym) ; Used only in compiler.scm (mark-variable sym '##compiler#visibility 'exported)) (define (variable-hidden? sym) (eq? (##sys#get sym '##compiler#visibility) 'hidden)) (define (unhide-variable sym) (when (variable-hidden? sym) (remprop! sym '##compiler#visibility))) (define (variable-visible? sym block-compilation) (let ((p (##sys#get sym '##compiler#visibility))) (case p ((hidden) #f) ((exported) #t) (else (not block-compilation))))) ;; These two have somewhat confusing names. Maybe mark-variable could ;; be renamed to "variable-mark-set!"? Also, in some other situations, ;; put!/get are used directly. (define (mark-variable var mark #!optional (val #t)) (##sys#put! var mark val) ) (define (variable-mark var mark) (##sys#get var mark) ) (define intrinsic? (cut variable-mark <> '##compiler#intrinsic)) ;; Used only in optimizer.scm (define foldable? (cut variable-mark <> '##compiler#foldable)) (define predicate? (cut variable-mark <> '##compiler#predicate)) ;;; Load support files (define (load-identifier-database name) ; Used only in batch-driver.scm (and-let* ((dbfile (chicken.load#find-file name (repository-path)))) (debugging 'p (sprintf "loading identifier database ~a ...~%" dbfile)) (for-each (lambda (e) (let ((id (car e))) (##sys#put! id '##core#db (append (or (##sys#get id '##core#db) '()) (list (cdr e))) ))) (call-with-input-file dbfile read-expressions)))) ;;; Print version/usage information: (define (print-version #!optional b) ; Used only in batch-driver.scm (when b (print* +banner+)) (print (chicken-version #t)) ) ;; Used only in batch-driver.scm, but it seems to me this should be moved ;; to chicken.scm, as that's the only place this belongs. (define (print-usage) (print-version) (newline) (display #<= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[92]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10064 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in ... */ static void C_ccall f_10065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10065,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10069,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1481: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[92]; av2[3]=t2; av2[4]=lf[265]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10067 in a10064 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in ... */ static void C_ccall f_10069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_10069,2,av);} a=C_alloc(7); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_cdr(t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10079,a[2]=t5,a[3]=t7,a[4]=((C_word)li138),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_10079(t9,((C_word*)t0)[3],t2);} /* expand in k10067 in a10064 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in ... */ static void C_fcall f_10079(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_10079,3,t0,t1,t2);} a=C_alloc(7); t3=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t3)){ t4=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,lf[55],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_a_i_list(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10104,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* expand.scm:1487: expand */ t11=t7; t12=t9; t1=t11; t2=t12; goto loop;}} /* k10102 in expand in k10067 in a10064 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in ... */ static void C_ccall f_10104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_10104,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[55],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10112 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in ... */ static void C_ccall f_10114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10114,2,av);} /* expand.scm:1431: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[266]; av2[3]=lf[267]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in ... */ static void C_ccall f_10116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10116,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10120,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1436: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[266]; av2[3]=t2; av2[4]=lf[277]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in ... */ static void C_ccall f_10120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_10120,2,av);} a=C_alloc(7); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10128,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* expand.scm:1439: r */ t8=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[276]; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} /* k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in ... */ static void C_ccall f_10128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10128,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10131,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* expand.scm:1440: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[228]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in ... */ static void C_ccall f_10131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_10131,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10134,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* expand.scm:1441: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[275]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in ... */ static void C_ccall f_10134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10134,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10137,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* expand.scm:1442: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[274]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in ... */ static void C_ccall f_10137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10137,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10140,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* expand.scm:1443: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[234]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_10140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){ C_save_and_reclaim((void *)f_10140,2,av);} a=C_alloc(25); t2=t1; t3=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10151,a[2]=((C_word*)t0)[4],a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10153,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t2,a[9]=((C_word)li142),tmp=(C_word)a,a+=10,tmp)); t10=((C_word*)t8)[1]; f_10153(t10,t6,((C_word*)t0)[9],C_SCHEME_FALSE);} /* k10149 in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_10151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_10151,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[60],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_fcall f_10153(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){ C_save_and_reclaim_args((void *)trf_10153,4,t0,t1,t2,t3);} a=C_alloc(13); t4=C_i_pairp(t2); if(C_truep(C_i_not(t4))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=lf[268]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t2); t6=t5; t7=t2; t8=C_u_i_cdr(t7); t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10167,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t8,a[6]=t6,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],tmp=(C_word)a,a+=13,tmp); /* expand.scm:1450: ##sys#check-syntax */ t10=*((C_word*)lf[59]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=lf[266]; av2[3]=t6; av2[4]=lf[273]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} /* k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_10167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_10167,2,av);} a=C_alloc(11); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10173,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10180,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* expand.scm:1454: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10186,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); t3=C_i_car(((C_word*)t0)[6]); /* expand.scm:1457: c */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[12]; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} /* k10171 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_10173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10173,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10176,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1455: expand */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10153(t3,t2,((C_word*)t0)[4],C_SCHEME_TRUE);} /* k10174 in k10171 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static void C_ccall f_10176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10176,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[269]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10178 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_10180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10180,2,av);} /* expand.scm:1452: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[270]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[271]; av2[3]=t1; tp(4,av2);}} /* k10184 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_10186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_10186,2,av);} a=C_alloc(29); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10189,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* expand.scm:1458: expand */ t3=((C_word*)((C_word*)t0)[7])[1]; f_10153(t3,t2,((C_word*)t0)[8],C_SCHEME_TRUE);} else{ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10285,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[4],a[4]=((C_word)li140),tmp=(C_word)a,a+=5,tmp); t7=C_u_i_car(((C_word*)t0)[2]); t8=C_i_check_list_2(t7,lf[17]); t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10300,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10302,a[2]=t6,a[3]=t4,a[4]=t11,a[5]=t5,a[6]=((C_word)li141),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_10302(t13,t9,t7);}} /* k10187 in k10184 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static void C_ccall f_10189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10189,2,av);} a=C_alloc(5); t2=C_u_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t2))){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,1,lf[272]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10204,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_i_length(((C_word*)t0)[2]); t5=C_eqp(t4,C_fix(3)); if(C_truep(t5)){ t6=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1462: c */ t7=((C_word*)t0)[5];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} else{ t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_10204(2,av2);}}}} /* k10202 in k10187 in k10184 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in ... */ static void C_ccall f_10204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_10204,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,2,t2,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[108],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10243 in k10298 in k10184 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in ... */ static void C_fcall f_10245(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_10245,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10249,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1474: expand */ t4=((C_word*)((C_word*)t0)[4])[1]; f_10153(t4,t3,((C_word*)t0)[5],C_SCHEME_FALSE);} /* k10247 in k10243 in k10298 in k10184 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in ... */ static void C_ccall f_10249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_10249,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[261],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10250 in k10298 in k10184 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in ... */ static void C_ccall f_10252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_10252,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_10245(t3,C_a_i_list(&a,2,t2,((C_word*)t0)[4]));} else{ t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_10245(t3,C_a_i_cons(&a,2,lf[108],t2));}} /* g2365 in k10184 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static C_word C_fcall f_10285(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_a_i_list(&a,2,lf[219],t1); return(C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t2));} /* k10298 in k10184 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static void C_ccall f_10300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_10300,2,av);} a=C_alloc(14); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10245,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10252,a[2]=((C_word*)t0)[6],a[3]=t4,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); t6=C_i_length(((C_word*)t0)[6]); t7=C_eqp(t6,C_fix(3)); if(C_truep(t7)){ t8=C_i_cadr(((C_word*)t0)[6]); /* expand.scm:1471: c */ t9=((C_word*)t0)[8];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t5; av2[2]=((C_word*)t0)[9]; av2[3]=t8; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}} else{ t8=t5;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_10252(2,av2);}}} /* map-loop2359 in k10184 in k10165 in expand in k10138 in k10135 in k10132 in k10129 in k10126 in k10118 in a10115 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static void C_fcall f_10302(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_10302,3,t0,t1,t2);} a=C_alloc(18); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* expand.scm:1467: g2365 */ f_10285(C_a_i(&a,15),((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10348 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in ... */ static void C_ccall f_10350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10350,2,av);} /* expand.scm:1366: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[235]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in ... */ static void C_ccall f_10352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10352,5,av);} a=C_alloc(6); t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10359,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1372: r */ t8=t3;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=lf[275]; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} /* k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in ... */ static void C_ccall f_10359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_10359,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10362,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* expand.scm:1373: r */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[228]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in ... */ static void C_ccall f_10362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10362,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10365,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* expand.scm:1374: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[234]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in ... */ static void C_ccall f_10365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_10365,2,av);} a=C_alloc(11); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10370,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word)li144),tmp=(C_word)a,a+=9,tmp)); t6=((C_word*)t4)[1]; f_10370(t6,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in ... */ static void C_fcall f_10370(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_10370,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_pairp(t2); if(C_truep(C_i_not(t4))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=lf[278]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t2); t6=t5; t7=t2; t8=C_u_i_cdr(t7); t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10384,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t8,a[6]=t6,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); /* expand.scm:1380: ##sys#check-syntax */ t10=*((C_word*)lf[59]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=lf[235]; av2[3]=t6; av2[4]=lf[286]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} /* k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in ... */ static void C_ccall f_10384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_10384,2,av);} a=C_alloc(11); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10390,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10397,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1383: chicken.base#open-output-string */ t4=*((C_word*)lf[147]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10422,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); t3=C_i_car(((C_word*)t0)[6]); /* expand.scm:1387: c */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} /* k10388 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in ... */ static void C_ccall f_10390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10390,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10393,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1385: expand */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10370(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k10391 in k10388 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_10393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10393,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[279]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10395 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in ... */ static void C_ccall f_10397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_10397,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[280]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10403,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* expand.scm:1383: ##sys#print */ t6=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[282]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10401 in k10395 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_10403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10403,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10406,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* expand.scm:1383: ##sys#print */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10404 in k10401 in k10395 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_10406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10406,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10409,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1383: ##sys#print */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[281]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10407 in k10404 in k10401 in k10395 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_10409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10409,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10412,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1383: chicken.base#get-output-string */ t3=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k10410 in k10407 in k10404 in k10401 in k10395 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_10412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10412,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10416,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1384: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10414 in k10410 in k10407 in k10404 in k10401 in k10395 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static void C_ccall f_10416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10416,2,av);} /* expand.scm:1382: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[270]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in ... */ static void C_ccall f_10422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_10422,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10425,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_10425(2,av2);}} else{ t3=C_u_i_car(((C_word*)t0)[2]); t4=C_eqp(C_SCHEME_TRUE,t3); if(C_truep(t4)){ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; f_10425(2,av2);}} else{ t5=C_u_i_car(((C_word*)t0)[2]); t6=C_i_numberp(t5); if(C_truep(t6)){ t7=t2;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; f_10425(2,av2);}} else{ t7=C_u_i_car(((C_word*)t0)[2]); t8=C_charp(t7); if(C_truep(t8)){ t9=t2;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; f_10425(2,av2);}} else{ t9=C_u_i_car(((C_word*)t0)[2]); t10=C_i_stringp(t9); if(C_truep(t10)){ t11=t2;{ C_word *av2=av; av2[0]=t11; av2[1]=t10; f_10425(2,av2);}} else{ t11=C_u_i_car(((C_word*)t0)[2]); t12=C_eofp(t11); if(C_truep(t12)){ t13=t2;{ C_word *av2=av; av2[0]=t13; av2[1]=t12; f_10425(2,av2);}} else{ t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10671,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); t14=C_u_i_car(((C_word*)t0)[2]); /* expand.scm:1394: chicken.blob#blob? */ t15=*((C_word*)lf[285]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t15; av2[1]=t13; av2[2]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}}}}}}} /* k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_10425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_10425,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10428,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10488,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); t4=C_u_i_car(((C_word*)t0)[2]); /* expand.scm:1399: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=C_u_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t2))){ t3=C_u_i_car(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10505,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1409: expand */ t5=((C_word*)((C_word*)t0)[7])[1]; f_10370(t5,t4,((C_word*)t0)[8],C_SCHEME_FALSE);} else{ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10511,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t4=C_i_length(((C_word*)t0)[2]); t5=C_eqp(t4,C_fix(3)); if(C_truep(t5)){ t6=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1411: c */ t7=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} else{ t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_10511(2,av2);}}}}} /* k10426 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_10428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10428,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10434,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_length(((C_word*)t0)[2]); t4=C_eqp(t3,C_fix(3)); if(C_truep(t4)){ t5=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1401: c */ t6=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} else{ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_10434(2,av2);}}} /* k10432 in k10426 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_10434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10434,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=C_u_i_car(((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t2))){ t3=C_u_i_cdr(((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[108],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10460,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_u_i_car(((C_word*)t0)[2]); /* expand.scm:1405: c */ t5=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}}} /* k10458 in k10432 in k10426 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_10460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10460,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_a_i_list(&a,1,lf[272]):C_u_i_car(((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10486 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_10488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10488,2,av);} /* expand.scm:1399: expand */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10370(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k10503 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_10505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_10505,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10509 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_10511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_10511,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* expand.scm:1412: r */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[276]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10551,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_u_i_length(((C_word*)t0)[2]); t4=C_eqp(t3,C_fix(4)); if(C_truep(t4)){ t5=C_i_caddr(((C_word*)t0)[2]); /* expand.scm:1418: c */ t6=((C_word*)t0)[7];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} else{ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_10551(2,av2);}}}} /* k10512 in k10509 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_10514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_10514,2,av);} a=C_alloc(21); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=C_a_i_list(&a,2,t2,t3); t5=C_a_i_list(&a,1,t4); t6=t5; t7=C_i_caddr(((C_word*)t0)[2]); t8=C_a_i_list(&a,2,t7,t2); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10533,a[2]=t2,a[3]=t9,a[4]=((C_word*)t0)[3],a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1416: expand */ t11=((C_word*)((C_word*)t0)[4])[1]; f_10370(t11,t10,((C_word*)t0)[5],C_SCHEME_FALSE);} /* k10531 in k10512 in k10509 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_10533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_10533,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,4,lf[261],((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[55],((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10549 in k10509 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_10551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10551,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10554,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* expand.scm:1419: r */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[276]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} else{ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=C_u_i_cdr(((C_word*)t0)[2]); t5=C_a_i_cons(&a,2,lf[108],t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10608,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1429: expand */ t8=((C_word*)((C_word*)t0)[4])[1]; f_10370(t8,t7,((C_word*)t0)[5],C_SCHEME_FALSE);}} /* k10552 in k10549 in k10509 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_10554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){ C_save_and_reclaim((void *)f_10554,2,av);} a=C_alloc(34); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=C_a_i_list(&a,3,lf[76],C_SCHEME_END_OF_LIST,t3); t5=t4; t6=C_i_cadr(((C_word*)t0)[2]); t7=C_a_i_list(&a,3,lf[222],t6,t2); t8=t7; t9=C_i_cadddr(((C_word*)t0)[2]); t10=C_a_i_list(&a,3,lf[222],t9,t2); t11=t10; t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10581,a[2]=t8,a[3]=t11,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* expand.scm:1426: expand */ t13=((C_word*)((C_word*)t0)[4])[1]; f_10370(t13,t12,((C_word*)t0)[5],C_SCHEME_FALSE);} /* k10579 in k10552 in k10549 in k10509 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static void C_ccall f_10581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){ C_save_and_reclaim((void *)f_10581,2,av);} a=C_alloc(30); t2=C_a_i_list(&a,4,lf[283],((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_a_i_list(&a,3,lf[76],((C_word*)t0)[4],t2); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[95],((C_word*)t0)[6],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10606 in k10549 in k10509 in k10423 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_10608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_10608,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[261],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10669 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_10671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10671,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; f_10425(2,av2);}} else{ t2=C_u_i_car(((C_word*)t0)[3]); t3=C_i_vectorp(t2); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; f_10425(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t5=C_u_i_car(((C_word*)t0)[3]); /* expand.scm:1396: ##sys#srfi-4-vector? */ t6=*((C_word*)lf[284]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} /* k10681 in k10669 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_10683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10683,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; f_10425(2,av2);}} else{ t2=C_u_i_car(((C_word*)t0)[3]); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10699,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1398: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[219]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_10425(2,av2);}}}} /* k10697 in k10681 in k10669 in k10420 in k10382 in expand in k10363 in k10360 in k10357 in a10351 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_10699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10699,2,av);} t2=C_i_caar(((C_word*)t0)[2]); /* expand.scm:1398: c */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* k10731 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in ... */ static void C_ccall f_10733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10733,2,av);} /* expand.scm:1350: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[228]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10734 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in ... */ static void C_ccall f_10735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10735,5,av);} a=C_alloc(6); t5=C_i_cdr(t2); if(C_truep(C_i_nullp(t5))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_cdr(t5); t7=t6; t8=C_u_i_car(t5); if(C_truep(C_i_nullp(t7))){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10758,a[2]=t8,a[3]=t7,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1362: r */ t10=t3;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; av2[2]=lf[276]; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}}}} /* k10756 in a10734 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in ... */ static void C_ccall f_10758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_10758,2,av);} a=C_alloc(15); t2=t1; t3=C_a_i_list(&a,2,t2,((C_word*)t0)[2]); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10777,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1364: r */ t7=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[228]; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} /* k10775 in k10756 in a10734 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in ... */ static void C_ccall f_10777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_10777,2,av);} a=C_alloc(24); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,4,lf[261],((C_word*)t0)[3],((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[55],((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10783 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in ... */ static void C_ccall f_10785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10785,2,av);} /* expand.scm:1336: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[237]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10786 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in ... */ static void C_ccall f_10787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10787,5,av);} a=C_alloc(5); t5=C_i_cdr(t2); if(C_truep(C_i_nullp(t5))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_cdr(t5); t7=t6; t8=C_u_i_car(t5); if(C_truep(C_i_nullp(t7))){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10818,a[2]=t7,a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1348: r */ t10=t3;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; av2[2]=lf[237]; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}}}} /* k10816 in a10786 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in ... */ static void C_ccall f_10818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_10818,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,4,lf[261],((C_word*)t0)[4],t2,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10820 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in ... */ static void C_ccall f_10822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10822,2,av);} /* expand.scm:1324: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[287]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10823 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in ... */ static void C_ccall f_10824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10824,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10828,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1329: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[287]; av2[3]=t2; av2[4]=lf[289]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10826 in a10823 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in ... */ static void C_ccall f_10828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_10828,2,av);} a=C_alloc(13); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_i_caddr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t2))){ t4=C_u_i_car(t2); t5=C_a_i_list(&a,2,lf[288],t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10851,a[2]=((C_word*)t0)[3],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_u_i_cdr(t2); t9=C_a_i_list(&a,1,t3); /* expand.scm:1333: ##sys#append */ t10=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[97],t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10849 in k10826 in a10823 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in ... */ static void C_ccall f_10851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10851,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10864 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in ... */ static void C_ccall f_10866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10866,2,av);} /* expand.scm:1315: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[290]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10867 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in ... */ static void C_ccall f_10868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10868,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10872,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1320: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[290]; av2[3]=t2; av2[4]=lf[293]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10870 in a10867 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in ... */ static void C_ccall f_10872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10872,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10875,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1321: chicken.internal#check-for-multiple-bindings */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[291]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[291]+1); av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[2]; av2[4]=lf[292]; tp(5,av2);}} /* k10873 in k10870 in a10867 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in ... */ static void C_ccall f_10875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10875,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[112],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10886 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_10888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10888,2,av);} /* expand.scm:1306: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[294]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10889 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_10890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10890,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10894,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1311: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[294]; av2[3]=t2; av2[4]=lf[297]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10892 in a10889 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in ... */ static void C_ccall f_10894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10894,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10897,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1312: chicken.internal#check-for-multiple-bindings */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[291]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[291]+1); av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[2]; av2[4]=lf[296]; tp(5,av2);}} /* k10895 in k10892 in a10889 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in ... */ static void C_ccall f_10897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10897,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[295],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10908 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in ... */ static void C_ccall f_10910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10910,2,av);} /* expand.scm:1297: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[298]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10911 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in ... */ static void C_ccall f_10912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10912,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10916,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1302: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[298]; av2[3]=t2; av2[4]=lf[301]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10914 in a10911 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_10916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10916,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10919,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1303: chicken.internal#check-for-multiple-bindings */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[291]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[291]+1); av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[2]; av2[4]=lf[300]; tp(5,av2);}} /* k10917 in k10914 in a10911 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in ... */ static void C_ccall f_10919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10919,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[299],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10930 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in ... */ static void C_ccall f_10932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10932,2,av);} /* expand.scm:1284: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[60]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10933 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in ... */ static void C_ccall f_10934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10934,5,av);} a=C_alloc(8); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10938,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10946,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_i_cdr(t2); if(C_truep(C_i_pairp(t7))){ t8=C_i_cadr(t2); t9=t6; f_10946(t9,C_i_symbolp(t8));} else{ t8=t6; f_10946(t8,C_SCHEME_FALSE);}} /* k10936 in a10933 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in ... */ static void C_ccall f_10938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10938,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[55],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10944 in a10933 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in ... */ static void C_fcall f_10946(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_10946,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10949,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1290: ##sys#check-syntax */ t3=*((C_word*)lf[59]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[60]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[303]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1293: ##sys#check-syntax */ t3=*((C_word*)lf[59]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[60]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[305]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k10947 in k10944 in a10933 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_10949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10949,2,av);} t2=C_i_caddr(((C_word*)t0)[2]); /* expand.scm:1291: chicken.internal#check-for-multiple-bindings */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[291]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[291]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=((C_word*)t0)[2]; av2[4]=lf[302]; tp(5,av2);}} /* k10957 in k10944 in a10933 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_10959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10959,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1294: chicken.internal#check-for-multiple-bindings */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[291]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[291]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=((C_word*)t0)[2]; av2[4]=lf[304]; tp(5,av2);}} /* k10982 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in ... */ static void C_ccall f_10984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10984,2,av);} /* expand.scm:1270: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[105]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10985 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in ... */ static void C_ccall f_10986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10986,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10990,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1275: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[105]; av2[3]=t2; av2[4]=lf[309]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10988 in a10985 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in ... */ static void C_ccall f_10990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_10990,2,av);} a=C_alloc(12); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=C_i_caddr(((C_word*)t0)[2]); t5=t4; t6=C_i_getprop(t3,lf[7],C_SCHEME_FALSE); t7=(C_truep(t6)?t6:t3); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11007,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11027,a[2]=t9,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1279: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[308]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[308]+1); av2[1]=t10; tp(2,av2);}} /* k11005 in k10988 in a10985 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in ... */ static void C_ccall f_11007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_11007,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11010,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11016,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11023,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1280: r */ t5=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[105]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k11008 in k11005 in k10988 in a10985 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_11010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11010,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[306],((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11014 in k11005 in k10988 in a10985 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_11016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11016,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; /* expand.scm:443: ##sys#syntax-error-hook */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[113]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[306],((C_word*)t0)[5],((C_word*)t0)[6]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11021 in k11005 in k10988 in a10985 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_11023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11023,2,av);} /* expand.scm:1280: c */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} /* k11025 in k10988 in a10985 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in ... */ static void C_ccall f_11027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11027,2,av);} /* expand.scm:1279: ##sys#register-export */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[307]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[307]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k11029 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in ... */ static void C_ccall f_11031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11031,2,av);} /* expand.scm:1242: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[104]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in ... */ static void C_ccall f_11033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11033,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11037,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1247: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[104]; av2[3]=t2; av2[4]=lf[315]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11035 in a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in ... */ static void C_ccall f_11037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11037,2,av);} a=C_alloc(9); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11042,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word)li154),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_11042(t5,((C_word*)t0)[5],((C_word*)t0)[2]);} /* loop in k11035 in a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in ... */ static void C_fcall f_11042(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_11042,3,t0,t1,t2);} a=C_alloc(8); t3=C_i_cadr(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); t8=C_i_pairp(t4); if(C_truep(C_i_not(t8))){ t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11057,a[2]=t4,a[3]=t7,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); /* expand.scm:1252: ##sys#check-syntax */ t10=*((C_word*)lf[59]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=lf[104]; av2[3]=t2; av2[4]=lf[312]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t9=C_i_car(t4); if(C_truep(C_i_pairp(t9))){ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11113,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t4,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1263: ##sys#check-syntax */ t11=*((C_word*)lf[59]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[104]; av2[3]=t2; av2[4]=lf[313]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11123,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t7,a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* expand.scm:1266: ##sys#check-syntax */ t11=*((C_word*)lf[59]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[104]; av2[3]=t2; av2[4]=lf[314]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}}} /* k11055 in loop in k11035 in a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in ... */ static void C_ccall f_11057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_11057,2,av);} a=C_alloc(12); t2=C_i_getprop(((C_word*)t0)[2],lf[7],C_SCHEME_FALSE); t3=(C_truep(t2)?t2:((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11068,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11104,a[2]=t5,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1254: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[308]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[308]+1); av2[1]=t6; tp(2,av2);}} /* k11066 in k11055 in loop in k11035 in a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_11068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_11068,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11071,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11093,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11100,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1255: r */ t5=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[104]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k11069 in k11066 in k11055 in loop in k11035 in a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in ... */ static void C_ccall f_11071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_11071,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,2,lf[310],((C_word*)t0)[2]); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t3=C_u_i_car(((C_word*)t0)[3]); t4=C_a_i_list(&a,3,lf[97],((C_word*)t0)[2],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[108],t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=C_a_i_list(&a,3,lf[97],((C_word*)t0)[2],lf[311]); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[108],t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11091 in k11066 in k11055 in loop in k11035 in a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in ... */ static void C_ccall f_11093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11093,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; /* expand.scm:443: ##sys#syntax-error-hook */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[113]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_11071(2,av2);}}} /* k11098 in k11066 in k11055 in loop in k11035 in a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in ... */ static void C_ccall f_11100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11100,2,av);} /* expand.scm:1255: c */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} /* k11102 in k11055 in loop in k11035 in a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_11104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11104,2,av);} /* expand.scm:1254: ##sys#register-export */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[307]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[307]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k11111 in loop in k11035 in a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in ... */ static void C_ccall f_11113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11113,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11120,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1264: chicken.syntax#expand-curried-define */ t3=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k11118 in k11111 in loop in k11035 in a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_11120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11120,2,av);} /* expand.scm:1264: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11042(t2,((C_word*)t0)[3],t1);} /* k11121 in loop in k11035 in a11032 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in ... */ static void C_ccall f_11123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_11123,2,av);} a=C_alloc(15); t2=C_i_car(((C_word*)t0)[2]); t3=C_u_i_car(((C_word*)t0)[3]); t4=C_u_i_cdr(((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]); t6=C_a_i_cons(&a,2,lf[76],t5); t7=C_a_i_list3(&a,3,t2,t3,t6); /* expand.scm:1267: loop */ t8=((C_word*)((C_word*)t0)[5])[1]; f_11042(t8,((C_word*)t0)[6],t7);} /* k11156 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in ... */ static void C_ccall f_11158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11158,2,av);} /* expand.scm:1233: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[316]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11159 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in ... */ static void C_ccall f_11160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11160,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11164,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1238: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[316]; av2[3]=t2; av2[4]=lf[317]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11162 in a11159 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in ... */ static void C_ccall f_11164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11164,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[108],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11173 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in ... */ static void C_ccall f_11175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11175,2,av);} /* expand.scm:1225: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[283]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11176 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in ... */ static void C_ccall f_11177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11177,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11181,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1230: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[283]; av2[3]=t2; av2[4]=lf[318]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11179 in a11176 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in ... */ static void C_ccall f_11181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11181,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[261],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11190 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 in ... */ static void C_ccall f_11192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11192,2,av);} /* expand.scm:1217: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[219]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11193 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 in ... */ static void C_ccall f_11194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11194,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11198,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1222: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[219]; av2[3]=t2; av2[4]=lf[319]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11196 in a11193 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in ... */ static void C_ccall f_11198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_11198,2,av);} a=C_alloc(6); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[75],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11207 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11209,2,av);} /* expand.scm:1209: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[230]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11210 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11211,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11215,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1214: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[230]; av2[3]=t2; av2[4]=lf[320]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11213 in a11210 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 in ... */ static void C_ccall f_11215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11215,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[76],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11224 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11226,2,av);} /* expand.scm:1195: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[321]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11227 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_11228,5,av);} a=C_alloc(3); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11232,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* expand.scm:1199: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[321]; av2[3]=t2; av2[4]=lf[323]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11230 in a11227 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11232,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11235,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1200: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[308]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[308]+1); av2[1]=t2; tp(2,av2);}} /* k11233 in k11230 in a11227 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11235,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11245,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1201: ##sys#module-name */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[322]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[322]+1); av2[1]=t2; av2[2]=t1; tp(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11243 in k11233 in k11230 in a11227 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_11245,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[75],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11247 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11249,2,av);} /* expand.scm:1172: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[324]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11250 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11251,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11255,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1176: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[324]; av2[3]=t2; av2[4]=lf[334]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11253 in a11250 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11255,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11258,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* expand.scm:1177: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11256 in k11253 in a11250 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11258,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11261,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_eqp(lf[328],t2); if(C_truep(t4)){ /* expand.scm:1179: syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[331]+1); av2[1]=t3; av2[2]=lf[324]; av2[3]=lf[333]; tp(4,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_11261(2,av2);}}} /* k11259 in k11256 in k11253 in a11250 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_11261,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,2,lf[75],((C_word*)t0)[2]); t3=t2; t4=C_a_i_list(&a,2,lf[75],lf[325]); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11284,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t7=C_i_caddr(((C_word*)t0)[4]); /* expand.scm:1186: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k11282 in k11259 in k11256 in k11253 in a11250 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){ C_save_and_reclaim((void *)f_11284,2,av);} a=C_alloc(35); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11287,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_eqp(lf[328],t1); if(C_truep(t3)){ t4=C_a_i_list(&a,2,lf[75],lf[328]); t5=C_a_i_list(&a,4,lf[326],((C_word*)t0)[2],((C_word*)t0)[3],t4); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,2,lf[327],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(t1))){ t4=C_a_i_list(&a,2,lf[329],t1); t5=C_a_i_list(&a,2,lf[75],t4); t6=C_a_i_list(&a,4,lf[326],((C_word*)t0)[2],((C_word*)t0)[3],t5); t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list(&a,2,lf[327],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(C_i_listp(t1))){ /* expand.scm:1190: ##sys#validate-exports */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[330]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[330]+1); av2[1]=t2; av2[2]=t1; av2[3]=lf[324]; tp(4,av2);}} else{ t4=C_i_caddr(((C_word*)t0)[5]); /* expand.scm:1192: syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[331]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[331]+1); av2[1]=t2; av2[2]=lf[324]; av2[3]=lf[332]; av2[4]=t4; tp(5,av2);}}}}} /* k11285 in k11282 in k11259 in k11256 in k11253 in a11250 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 in ... */ static void C_ccall f_11287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_11287,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,2,lf[75],t1); t3=C_a_i_list(&a,4,lf[326],((C_word*)t0)[2],((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,2,lf[327],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11331 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11333,2,av);} /* expand.scm:1137: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[335]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11335,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11339,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1141: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[335]; av2[3]=t2; av2[4]=lf[343]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11339,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11342,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1142: chicken.syntax#strip-syntax */ t3=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11340 in k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11342,2,av);} a=C_alloc(7); t2=C_i_cadr(t1); t3=C_i_car(t2); t4=t3; t5=C_u_i_cdr(t2); t6=C_i_caddr(t1); t7=t6; t8=C_u_i_cdr(t1); t9=C_u_i_cdr(t8); t10=C_u_i_cdr(t9); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11500,a[2]=t4,a[3]=t5,a[4]=t10,a[5]=((C_word*)t0)[2],a[6]=t7,tmp=(C_word)a,a+=7,tmp); /* expand.scm:1150: chicken.internal#library-id */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[342]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[342]+1); av2[1]=t11; av2[2]=t4; tp(3,av2);}} /* k11363 in k11391 in k11460 in k11498 in k11340 in k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 in ... */ static void C_ccall f_11365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){ C_save_and_reclaim((void *)f_11365,2,av);} a=C_alloc(30); t2=C_a_i_list(&a,3,lf[107],lf[339],lf[340]); t3=C_a_i_list(&a,2,lf[341],((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,5,lf[109],t1,C_SCHEME_TRUE,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11391 in k11460 in k11498 in k11340 in k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){ C_save_and_reclaim((void *)f_11393,2,av);} a=C_alloc(31); t2=C_a_i_list(&a,2,lf[75],t1); t3=C_a_i_list(&a,2,lf[75],((C_word*)t0)[2]); t4=C_a_i_list(&a,5,lf[338],((C_word*)t0)[3],((C_word*)t0)[4],t2,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11365,a[2]=t5,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1165: chicken.internal#library-id */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[342]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[342]+1); av2[1]=t6; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* g2012 in k11498 in k11340 in k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_11398(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11398,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11405,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t6=C_i_cadr(t2); /* expand.scm:1154: ##sys#validate-exports */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[330]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[330]+1); av2[1]=t5; av2[2]=t6; av2[3]=lf[335]; tp(4,av2);}} /* k11403 in g2012 in k11498 in k11340 in k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_11405,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11408,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_i_symbolp(((C_word*)t0)[3]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11417,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=t4; f_11417(2,av2);}} else{ if(C_truep(C_i_listp(((C_word*)t0)[3]))){ t6=C_u_i_length(((C_word*)t0)[3]); t7=C_eqp(C_fix(2),t6); if(C_truep(t7)){ t8=C_i_car(((C_word*)t0)[3]); if(C_truep(C_i_symbolp(t8))){ t9=C_i_cadr(((C_word*)t0)[3]); /* expand.scm:1159: chicken.internal#valid-library-specifier? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[337]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[337]+1); av2[1]=t5; av2[2]=t9; tp(3,av2);}} else{ t9=t5;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_11417(2,av2);}}} else{ t8=t5;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_11417(2,av2);}}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_11417(2,av2);}}}} /* k11406 in k11403 in g2012 in k11498 in k11340 in k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 in ... */ static void C_ccall f_11408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11408,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11415 in k11403 in g2012 in k11498 in k11340 in k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 in ... */ static void C_ccall f_11417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_11417,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* expand.scm:1160: ##sys#syntax-error-hook */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[336]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k11460 in k11498 in k11340 in k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_11462,2,av);} a=C_alloc(13); t2=C_a_i_list(&a,2,lf[75],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* expand.scm:1163: ##sys#validate-exports */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[330]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[330]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=lf[335]; tp(4,av2);}} /* map-loop2006 in k11498 in k11340 in k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_11464(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11464,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11489,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* expand.scm:1152: g2012 */ t5=((C_word*)t0)[4]; f_11398(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11487 in map-loop2006 in k11498 in k11340 in k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11489,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11464(t6,((C_word*)t0)[5],t5);} /* k11498 in k11340 in k11337 in a11334 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,3)))){ C_save_and_reclaim((void *)f_11500,2,av);} a=C_alloc(31); t2=C_a_i_list(&a,2,lf[75],t1); t3=t2; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11398,a[2]=((C_word*)t0)[2],a[3]=((C_word)li162),tmp=(C_word)a,a+=4,tmp); t9=C_i_check_list_2(((C_word*)t0)[3],lf[17]); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11462,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11464,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,a[6]=((C_word)li163),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_11464(t14,t10,((C_word*)t0)[3]);} /* k11502 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11504,2,av);} /* expand.scm:1128: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[344]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11505 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_11506,5,av);} t5=*((C_word*)lf[345]+1); /* expand.scm:1131: g1989 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=*((C_word*)lf[345]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=*((C_word*)lf[4]+1); av2[6]=*((C_word*)lf[20]+1); av2[7]=C_SCHEME_FALSE; av2[8]=C_SCHEME_TRUE; av2[9]=lf[344]; tp(10,av2);}} /* k11512 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11514,2,av);} /* expand.scm:1118: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[346]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11515 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11516,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11520,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11533,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_i_cdr(t2); /* expand.scm:1122: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[12]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k11518 in a11515 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11520,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11523,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1123: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[308]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[308]+1); av2[1]=t3; tp(2,av2);}} /* k11521 in k11518 in a11515 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11523,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11526,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ /* expand.scm:1125: ##sys#add-to-export-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[348]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[348]+1); av2[1]=t2; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[347]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11524 in k11521 in k11518 in a11515 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11526,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[347]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11531 in a11515 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11533,2,av);} /* expand.scm:1122: ##sys#validate-exports */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[330]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[330]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[346]; tp(4,av2);}} /* k11539 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11541,2,av);} /* expand.scm:1058: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[349]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11543,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11547,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1062: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[349]; av2[3]=t2; av2[4]=lf[356]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11547,2,av);} a=C_alloc(6); t2=C_i_length(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11553,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1064: chicken.internal#library-id */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[342]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[342]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} /* k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_11553,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11559,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(4)))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11704,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_caddr(((C_word*)t0)[5]); /* expand.scm:1071: chicken.syntax#strip-syntax */ t6=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=t3; f_11559(t4,C_SCHEME_FALSE);}} /* k11557 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_11559(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_11559,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11562,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* expand.scm:1072: chicken.syntax#strip-syntax */ t3=*((C_word*)lf[12]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11631,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11690,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_caddr(((C_word*)t0)[6]); /* expand.scm:1105: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[12]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k11560 in k11557 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_11562,2,av);} a=C_alloc(13); t2=t1; t3=C_i_cadddr(t2); t4=t3; if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],C_fix(4)))){ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11574,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11608,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11612,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* expand.scm:1091: scheme#symbol->string */ t8=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11615,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1097: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[349]; av2[3]=t2; av2[4]=lf[355]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k11572 in k11560 in k11557 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11574,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11577,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* expand.scm:1092: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[349]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k11575 in k11572 in k11560 in k11557 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,1)))){ C_save_and_reclaim((void *)f_11577,2,av);} a=C_alloc(36); t2=C_i_cddddr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[328],t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3); t5=C_a_i_cons(&a,2,t1,t4); t6=C_a_i_list(&a,2,((C_word*)t0)[4],((C_word*)t0)[3]); t7=C_a_i_list(&a,4,t1,((C_word*)t0)[5],lf[350],t6); t8=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_list(&a,3,lf[108],t5,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k11606 in k11560 in k11557 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11608,2,av);} /* expand.scm:1088: scheme#string->symbol */ t2=*((C_word*)lf[351]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11610 in k11560 in k11557 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11612,2,av);} /* expand.scm:1089: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[352]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[352]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[353]; av2[3]=t1; tp(4,av2);}} /* k11613 in k11560 in k11557 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11615,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11622,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)t0)[2]); /* expand.scm:1101: chicken.internal#library-id */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[342]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[342]+1); av2[1]=t2; av2[2]=t3; tp(3,av2);}} /* k11620 in k11613 in k11560 in k11557 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11622,2,av);} t2=C_u_i_cdr(((C_word*)t0)[2]); /* expand.scm:1099: ##sys#instantiate-functor */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[354]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[354]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; av2[4]=t2; tp(5,av2);}} /* k11629 in k11557 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11631,2,av);} a=C_alloc(6); t2=C_eqp(lf[328],t1); t3=(C_truep(t2)?C_SCHEME_TRUE:t1); t4=t3; t5=C_i_cdddr(((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11656,a[2]=t6,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t6))){ t8=C_u_i_cdr(t6); if(C_truep(C_i_nullp(t8))){ t9=C_u_i_car(t6); t10=t7; f_11656(t10,C_i_stringp(t9));} else{ t9=t7; f_11656(t9,C_SCHEME_FALSE);}} else{ t8=t7; f_11656(t8,C_SCHEME_FALSE);}} /* k11654 in k11629 in k11557 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_11656(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,1)))){ C_save_and_reclaim_args((void *)trf_11656,2,t0,t1);} a=C_alloc(21); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[110],t2,*((C_word*)lf[3]+1)); t4=C_a_i_list(&a,1,t3); t5=C_a_i_cons(&a,2,((C_word*)t0)[3],t4); t6=C_a_i_cons(&a,2,((C_word*)t0)[4],t5); t7=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_cons(&a,2,lf[109],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); t4=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[109],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11688 in k11557 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11690,2,av);} /* expand.scm:1105: ##sys#validate-exports */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[330]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[330]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[349]; tp(4,av2);}} /* k11702 in k11551 in k11545 in a11542 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11704,2,av);} t2=((C_word*)t0)[2]; f_11559(t2,C_eqp(lf[350],t1));} /* k11714 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11716,2,av);} /* expand.scm:1001: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[357]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_11718,5,av);} a=C_alloc(22); t5=C_i_cdr(t2); t6=t5; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11724,a[2]=t6,a[3]=((C_word)li168),tmp=(C_word)a,a+=4,tmp)); t12=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11734,a[2]=t8,a[3]=t10,a[4]=((C_word)li169),tmp=(C_word)a,a+=5,tmp)); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11879,a[2]=t6,a[3]=t8,a[4]=t14,a[5]=t10,a[6]=((C_word)li171),tmp=(C_word)a,a+=7,tmp)); t16=((C_word*)t14)[1]; f_11879(t16,t1,t6);} /* err in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_11724(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_11724,3,t0,t1,t2);} a=C_alloc(3); t3=C_a_i_cons(&a,2,lf[357],((C_word*)t0)[2]); /* expand.scm:1008: ##sys#error */ t4=*((C_word*)lf[31]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=lf[358]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* test in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_11734(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_11734,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_symbolp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11748,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* expand.scm:1012: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[12]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ /* expand.scm:1013: err */ t4=((C_word*)((C_word*)t0)[2])[1]; f_11724(t4,t1,t2);} else{ t4=C_i_car(t2); t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11764,a[2]=t6,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* expand.scm:1017: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[12]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}} /* k11746 in test in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11748,2,av);} /* expand.scm:1012: chicken.platform#feature? */ t2=*((C_word*)lf[359]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11762 in test in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11764,2,av);} a=C_alloc(5); t2=C_eqp(t1,lf[237]); if(C_truep(t2)){ t3=C_eqp(((C_word*)t0)[2],C_SCHEME_END_OF_LIST); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11788,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=C_u_i_car(((C_word*)t0)[2]); /* expand.scm:1021: test */ t6=((C_word*)((C_word*)t0)[4])[1]; f_11734(t6,t4,t5);} else{ /* expand.scm:1023: err */ t4=((C_word*)((C_word*)t0)[5])[1]; f_11724(t4,((C_word*)t0)[3],((C_word*)t0)[6]);}}} else{ t3=C_eqp(t1,lf[228]); if(C_truep(t3)){ t4=C_eqp(((C_word*)t0)[2],C_SCHEME_END_OF_LIST); if(C_truep(C_i_not(t4))){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11823,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t6=C_u_i_car(((C_word*)t0)[2]); /* expand.scm:1027: test */ t7=((C_word*)((C_word*)t0)[4])[1]; f_11734(t7,t5,t6);} else{ /* expand.scm:1029: err */ t5=((C_word*)((C_word*)t0)[5])[1]; f_11724(t5,((C_word*)t0)[3],((C_word*)t0)[6]);}} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=C_eqp(t1,lf[360]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11857,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t6=C_i_cadr(((C_word*)t0)[6]); /* expand.scm:1030: test */ t7=((C_word*)((C_word*)t0)[4])[1]; f_11734(t7,t5,t6);} else{ /* expand.scm:1031: err */ t5=((C_word*)((C_word*)t0)[5])[1]; f_11724(t5,((C_word*)t0)[3],((C_word*)t0)[6]);}}}} /* k11786 in k11762 in test in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11788,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_u_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[237],t2); /* expand.scm:1022: test */ t4=((C_word*)((C_word*)t0)[3])[1]; f_11734(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11821 in k11762 in test in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11823,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_u_i_cdr(((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,lf[228],t2); /* expand.scm:1028: test */ t4=((C_word*)((C_word*)t0)[4])[1]; f_11734(t4,((C_word*)t0)[2],t3);}} /* k11855 in k11762 in test in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11857,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* expand in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_11879(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_11879,3,t0,t1,t2);} a=C_alloc(16); t3=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t3)){ t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_check_list_2(((C_word*)t0)[2],lf[17]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11904,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11906,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li170),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_11906(t13,t9,((C_word*)t0)[2]);} else{ t4=C_i_pairp(t2); if(C_truep(C_i_not(t4))){ /* expand.scm:1037: err */ t5=((C_word*)((C_word*)t0)[3])[1]; f_11724(t5,t1,t2);} else{ t5=C_i_car(t2); t6=t5; t7=t2; t8=C_u_i_cdr(t7); t9=C_i_pairp(t6); if(C_truep(C_i_not(t9))){ /* expand.scm:1042: err */ t10=((C_word*)((C_word*)t0)[3])[1]; f_11724(t10,t1,t6);} else{ t10=C_i_car(t6); t11=t10; t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11997,a[2]=t6,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t8,a[6]=((C_word*)t0)[5],a[7]=t11,tmp=(C_word)a,a+=8,tmp); /* expand.scm:1044: chicken.syntax#strip-syntax */ t13=*((C_word*)lf[12]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t12; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}}}} /* k11902 in expand in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11904,2,av);}{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[31]+1); av2[3]=lf[361]; av2[4]=t1; C_apply(5,av2);}} /* map-loop1895 in expand in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_11906(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_11906,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11983 in k11995 in expand in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11985,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_u_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[108],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* expand.scm:1050: expand */ t2=((C_word*)((C_word*)t0)[4])[1]; f_11879(t2,((C_word*)t0)[3],((C_word*)t0)[5]);}} /* k11995 in expand in a11717 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_11997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11997,2,av);} a=C_alloc(6); t2=C_eqp(t1,lf[234]); if(C_truep(t2)){ t3=C_u_i_cdr(((C_word*)t0)[2]); t4=C_eqp(t3,C_SCHEME_END_OF_LIST); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=(C_truep(t4)?lf[362]:C_a_i_cons(&a,2,lf[108],t3)); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11985,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* expand.scm:1049: test */ t4=((C_word*)((C_word*)t0)[6])[1]; f_11734(t4,t3,((C_word*)t0)[7]);}} /* k12007 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12009,2,av);} /* expand.scm:993: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[363]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a12010 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12011,5,av);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12015,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12036,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* expand.scm:997: r */ t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=lf[107]; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} /* k12013 in a12010 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12015,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12026,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:998: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[107]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k12024 in k12013 in a12010 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_12026,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,t1,t3); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,2,lf[327],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k12034 in a12010 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12036,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); /* expand.scm:997: ##sys#register-meta-expression */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[364]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[364]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; tp(3,av2);}} /* k12042 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12044,2,av);} /* expand.scm:971: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[107]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_12046,5,av);} a=C_alloc(22); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12055,a[2]=t3,a[3]=t4,a[4]=((C_word)li176),tmp=(C_word)a,a+=5,tmp); t10=C_i_cdr(t2); t11=C_i_check_list_2(t10,lf[17]); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12121,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12123,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,a[6]=((C_word)li177),tmp=(C_word)a,a+=7,tmp)); t16=((C_word*)t14)[1]; f_12123(t16,t12,t10);} /* g1790 in a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_12055(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,8)))){ C_save_and_reclaim_args((void *)trf_12055,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12061,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li174),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12067,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp); /* expand.scm:977: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a12060 in g1790 in a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_12061,2,av);} /* expand.scm:977: ##sys#decompose-import */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[365]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[365]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[107]; tp(6,av2);}} /* a12066 in g1790 in a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word t9; C_word *a; if(c!=8) C_bad_argc_2(c,8,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12067,8,av);} a=C_alloc(9); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12071,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=t1,tmp=(C_word)a,a+=9,tmp); /* expand.scm:978: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[308]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[308]+1); av2[1]=t8; tp(2,av2);}} /* k12069 in a12066 in g1790 in a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_12071,2,av);} a=C_alloc(13); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=((C_word*)t0)[7]; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12074,a[2]=t3,a[3]=((C_word*)t0)[8],a[4]=t2,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,tmp=(C_word)a,a+=9,tmp); if(C_truep(t1)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12112,a[2]=t2,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* expand.scm:979: ##sys#module-name */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[322]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[322]+1); av2[1]=t9; av2[2]=t1; tp(3,av2);}} else{ t9=t8;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_12074(2,av2);}}} /* k12072 in k12069 in a12066 in g1790 in a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_12074,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12077,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_not(((C_word*)t0)[5]))){ /* expand.scm:983: ##sys#syntax-error-hook */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[107]; av2[3]=lf[369]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* expand.scm:985: ##sys#import */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[370]+1)); C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=*((C_word*)lf[370]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=*((C_word*)lf[4]+1); av2[7]=*((C_word*)lf[20]+1); av2[8]=C_SCHEME_FALSE; av2[9]=C_SCHEME_FALSE; av2[10]=lf[107]; tp(11,av2);}}} /* k12075 in k12072 in k12069 in a12066 in g1790 in a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12077,2,av);} a=C_alloc(4); if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[366]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12090,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* expand.scm:990: chicken.internal#module-requirement */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[368]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[368]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* k12088 in k12075 in k12072 in k12069 in a12066 in g1790 in a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_12090,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[367],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12110 in k12069 in a12066 in g1790 in a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12112,2,av);} t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ /* expand.scm:980: ##sys#syntax-error-hook */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[107]; av2[3]=lf[371]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_12074(2,av2);}}} /* k12119 in a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_12121,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[108],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop1784 in a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_12123(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_12123,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12148,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* expand.scm:976: g1790 */ t5=((C_word*)t0)[4]; f_12055(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12146 in map-loop1784 in a12045 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12148,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12123(t6,((C_word*)t0)[5],t5);} /* k12157 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12159,2,av);} /* expand.scm:963: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[372]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a12160 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_12161,5,av);} t5=*((C_word*)lf[345]+1); /* expand.scm:966: g1774 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=*((C_word*)lf[345]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=*((C_word*)lf[5]+1); av2[6]=*((C_word*)lf[195]+1); av2[7]=C_SCHEME_TRUE; av2[8]=C_SCHEME_FALSE; av2[9]=lf[372]; tp(10,av2);}} /* k12167 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12169,2,av);} /* expand.scm:956: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[373]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a12170 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_12171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_12171,5,av);} t5=*((C_word*)lf[345]+1); /* expand.scm:959: g1760 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=*((C_word*)lf[345]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=*((C_word*)lf[4]+1); av2[6]=*((C_word*)lf[20]+1); av2[7]=C_SCHEME_FALSE; av2[8]=C_SCHEME_FALSE; av2[9]=lf[373]; tp(10,av2);}} /* k3698 */ static void C_ccall f_3700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3700,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3703,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k3701 in k3698 */ static void C_ccall f_3703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_3703,2,av);} a=C_alloc(19); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3707,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:66: scheme#append */ t5=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[374]; av2[3]=*((C_word*)lf[2]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k3705 in k3701 in k3698 */ static void C_ccall f_3707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3707,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[2]+1 /* (set! ##sys#features ...) */,t1); t3=C_set_block_item(lf[3] /* ##sys#current-source-filename */,0,C_SCHEME_FALSE); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3712,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:88: chicken.base#make-parameter */ t5=*((C_word*)lf[196]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3712,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#current-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3716,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:89: chicken.base#make-parameter */ t4=*((C_word*)lf[196]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_3716,2,av);} a=C_alloc(18); t2=C_mutate((C_word*)lf[5]+1 /* (set! ##sys#current-meta-environment ...) */,t1); t3=C_mutate(&lf[6] /* (set! chicken.syntax#lookup ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3718,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate(&lf[8] /* (set! chicken.syntax#macro-alias ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3735,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[12]+1 /* (set! chicken.syntax#strip-syntax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3782,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[14]+1 /* (set! ##sys#extend-se ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3924,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[18]+1 /* (set! ##sys#globalize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4104,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4188,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:162: chicken.base#make-parameter */ t9=*((C_word*)lf[196]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* chicken.syntax#lookup in k3714 in k3710 in k3705 in k3701 in k3698 */ static C_word C_fcall f_3718(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check;{} t3=C_u_i_assq(t1,t2); if(C_truep(t3)){ return(C_i_cdr(t3));} else{ t4=t1; t5=C_i_getprop(t4,lf[7],C_SCHEME_FALSE); return((C_truep(t5)?t5:C_SCHEME_FALSE));}} /* chicken.syntax#macro-alias in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_3735(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3735,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3742,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:97: chicken.keyword#keyword? */ t5=*((C_word*)lf[11]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3740 in chicken.syntax#macro-alias in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3742,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3745,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=t2; f_3745(t3,t1);} else{ t3=((C_word*)t0)[2]; t4=t2; f_3745(t4,C_u_i_namespaced_symbolp(t3));}} /* k3743 in k3740 in chicken.syntax#macro-alias in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_3745(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3745,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3748,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* expand.scm:99: chicken.base#gensym */ t3=*((C_word*)lf[10]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k3746 in k3743 in k3740 in chicken.syntax#macro-alias in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,1)))){ C_save_and_reclaim((void *)f_3748,2,av);} a=C_alloc(16); t2=( /* expand.scm:100: lookup */ f_3718(((C_word*)t0)[2],((C_word*)t0)[3]) ); t3=(C_truep(t2)?t2:((C_word*)t0)[2]); t4=((C_word*)t0)[2]; t5=C_i_getprop(t4,lf[9],C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_a_i_putprop(&a,3,t1,lf[7],t3); t7=C_a_i_putprop(&a,3,t1,lf[9],t5); t8=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t8; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=((C_word*)t0)[2]; t7=C_a_i_putprop(&a,3,t1,lf[7],t3); t8=C_a_i_putprop(&a,3,t1,lf[9],t6); t9=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t9; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* chicken.syntax#strip-syntax in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3782,3,av);} a=C_alloc(9); t3=C_SCHEME_END_OF_LIST; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3788,a[2]=t4,a[3]=t6,a[4]=((C_word)li3),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_3788(t8,t1,t2);} /* walk in chicken.syntax#strip-syntax in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_3788(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3788,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3804,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* expand.scm:114: chicken.keyword#keyword? */ t5=*((C_word*)lf[11]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k3802 in walk in chicken.syntax#strip-syntax in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_3804,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[3]; t3=C_i_getprop(t2,lf[7],C_SCHEME_FALSE); t4=((C_word*)t0)[3]; t5=C_i_getprop(t4,lf[9],C_SCHEME_FALSE); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(C_i_not(t3))){ t6=((C_word*)t0)[3]; t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_i_pairp(t3); t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=(C_truep(t6)?((C_word*)t0)[3]:t3); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE); t3=t2; t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3); t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[4])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t5); t7=t3; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3866,a[2]=t7,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t9=((C_word*)t0)[3]; t10=C_u_i_car(t9); /* expand.scm:124: walk */ t11=((C_word*)((C_word*)t0)[5])[1]; f_3788(t11,t8,t10);} else{ if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){ t2=C_block_size(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3884,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* expand.scm:129: scheme#make-vector */ t5=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}}} /* k3857 in k3864 in k3802 in walk in chicken.syntax#strip-syntax in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3859,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3864 in k3802 in walk in chicken.syntax#strip-syntax in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3866,2,av);} a=C_alloc(5); t2=C_i_setslot(((C_word*)t0)[2],C_fix(0),t1); t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3859,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); /* expand.scm:125: walk */ t7=((C_word*)((C_word*)t0)[6])[1]; f_3788(t7,t4,t6);} /* k3882 in k3802 in walk in chicken.syntax#strip-syntax in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_3884,2,av);} a=C_alloc(16); t2=t1; t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); t4=C_a_i_cons(&a,2,t3,((C_word*)((C_word*)t0)[3])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3893,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t7,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word)li2),tmp=(C_word)a,a+=8,tmp)); t9=((C_word*)t7)[1]; f_3893(t9,((C_word*)t0)[6],C_fix(0));} /* doloop384 in k3882 in k3802 in walk in chicken.syntax#strip-syntax in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_3893(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3893,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3914,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(((C_word*)t0)[5],t2); /* expand.scm:133: walk */ t5=((C_word*)((C_word*)t0)[6])[1]; f_3788(t5,t3,t4);}} /* k3912 in doloop384 in k3882 in k3802 in walk in chicken.syntax#strip-syntax in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3914,2,av);} t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_3893(t4,((C_word*)t0)[5],t3);} /* ##sys#extend-se in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +18,c,3)))){ C_save_and_reclaim((void*)f_3924,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+18); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3928,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t4))){ t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=t3; t11=C_i_check_list_2(t10,lf[17]); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4067,a[2]=t8,a[3]=t13,a[4]=t9,a[5]=((C_word)li7),tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_4067(t15,t5,t10);} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_car(t4); f_3928(2,av2);}}} /* k3926 in ##sys#extend-se in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_3928,2,av);} a=C_alloc(12); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_check_list_2(t2,lf[15]); t5=C_i_check_list_2(t3,lf[15]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3953,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4018,a[2]=t8,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_4018(t10,t6,t2,t3);} /* k3951 in k3926 in ##sys#extend-se in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_3953,2,av);} a=C_alloc(17); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=((C_word*)t0)[2]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3968,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3970,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li5),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_3970(t11,t7,t6,((C_word*)t0)[5]);} /* k3966 in k3951 in k3926 in ##sys#extend-se in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_3968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3968,2,av);} /* expand.scm:142: scheme#append */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop469 in k3951 in k3926 in ##sys#extend-se in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_3970(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3970,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_cons(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* for-each-loop432 in k3926 in ##sys#extend-se in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4018(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_4018,4,t0,t1,t2,t3);} a=C_alloc(8); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_i_getprop(t7,lf[9],C_SCHEME_FALSE); t9=(C_truep(t8)?C_a_i_putprop(&a,3,t6,lf[9],t8):C_a_i_putprop(&a,3,t6,lf[9],t7)); t10=C_slot(t2,C_fix(1)); t11=C_slot(t3,C_fix(1)); t13=t1; t14=t10; t15=t11; t1=t13; t2=t14; t3=t15; goto loop;} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* map-loop406 in ##sys#extend-se in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4067(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4067,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4092,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* expand.scm:136: g412 */ t5=*((C_word*)lf[10]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4090 in map-loop406 in ##sys#extend-se in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4092,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4067(t6,((C_word*)t0)[5],t5);} /* ##sys#globalize in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4104,4,av);} a=C_alloc(7); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4110,a[2]=t5,a[3]=t3,a[4]=((C_word)li11),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_4110(t7,t1,t2);} /* loop1 in ##sys#globalize in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4110(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_4110,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_symbolp(t2); if(C_truep(C_i_not(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t2; t5=C_i_getprop(t4,lf[7],C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4126,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li9),tmp=(C_word)a,a+=5,tmp); /* expand.scm:149: g516 */ t7=t6; f_4126(t7,t1,t5);} else{ t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4144,a[2]=t2,a[3]=t7,a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_4144(t9,t1,((C_word*)t0)[3]);}}} /* g516 in loop1 in ##sys#globalize in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4126(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_4126,3,t0,t1,t2);} if(C_truep(C_i_symbolp(t2))){ /* expand.scm:151: loop1 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4110(t3,t1,t2);} else{ t3=((C_word*)t0)[3]; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* loop in loop1 in ##sys#globalize in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4144(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_4144,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ /* expand.scm:155: ##sys#alias-global-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[19]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[19]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4160,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_caar(t2); t5=C_eqp(((C_word*)t0)[2],t4); if(C_truep(t5)){ t6=t2; t7=C_u_i_car(t6); t8=C_u_i_cdr(t7); t9=t3; f_4160(t9,C_i_symbolp(t8));} else{ t6=t3; f_4160(t6,C_SCHEME_FALSE);}}} /* k4158 in loop in loop1 in ##sys#globalize in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4160(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_4160,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_u_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* expand.scm:157: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4144(t4,((C_word*)t0)[3],t3);}} /* k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(69,c,6)))){ C_save_and_reclaim((void *)f_4188,2,av);} a=C_alloc(69); t2=C_mutate((C_word*)lf[20]+1 /* (set! ##sys#macro-environment ...) */,t1); t3=C_set_block_item(lf[21] /* ##sys#scheme-macro-environment */,0,C_SCHEME_END_OF_LIST); t4=C_set_block_item(lf[22] /* ##sys#chicken-macro-environment */,0,C_SCHEME_END_OF_LIST); t5=C_set_block_item(lf[23] /* ##sys#chicken-ffi-macro-environment */,0,C_SCHEME_END_OF_LIST); t6=C_set_block_item(lf[24] /* ##sys#chicken.condition-macro-environment */,0,C_SCHEME_END_OF_LIST); t7=C_set_block_item(lf[25] /* ##sys#chicken.time-macro-environment */,0,C_SCHEME_END_OF_LIST); t8=C_set_block_item(lf[26] /* ##sys#chicken.type-macro-environment */,0,C_SCHEME_END_OF_LIST); t9=C_set_block_item(lf[27] /* ##sys#chicken.syntax-macro-environment */,0,C_SCHEME_END_OF_LIST); t10=C_set_block_item(lf[28] /* ##sys#chicken.base-macro-environment */,0,C_SCHEME_END_OF_LIST); t11=C_mutate((C_word*)lf[29]+1 /* (set! ##sys#ensure-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4198,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[33]+1 /* (set! ##sys#extend-macro-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4222,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[34]+1 /* (set! ##sys#macro? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4264,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[35]+1 /* (set! ##sys#undefine-macro! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4301,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[36]+1 /* (set! ##sys#expand-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4346,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t16=C_set_block_item(lf[63] /* ##sys#compiler-syntax-hook */,0,C_SCHEME_FALSE); t17=C_set_block_item(lf[65] /* ##sys#enable-runtime-macros */,0,C_SCHEME_FALSE); t18=C_mutate((C_word*)lf[45]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4844,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[66]+1 /* (set! chicken.syntax#expand ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4847,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[67]+1 /* (set! ##sys#extended-lambda-list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4913,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[71]+1 /* (set! ##sys#expand-extended-lambda-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4960,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[94]+1 /* (set! ##sys#expand-multiple-values-assignment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5569,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp)); t23=C_set_block_item(lf[99] /* chicken.syntax#define-definition */,0,C_SCHEME_UNDEFINED); t24=C_set_block_item(lf[100] /* chicken.syntax#define-syntax-definition */,0,C_SCHEME_UNDEFINED); t25=C_set_block_item(lf[101] /* chicken.syntax#define-values-definition */,0,C_SCHEME_UNDEFINED); t26=lf[102] /* chicken.syntax#import-definition */ =C_SCHEME_UNDEFINED;; t27=C_mutate((C_word*)lf[103]+1 /* (set! ##sys#canonicalize-body ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5749,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate((C_word*)lf[122]+1 /* (set! chicken.syntax#match-expression ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6755,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate((C_word*)lf[116]+1 /* (set! chicken.syntax#expand-curried-define ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6837,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t30=C_set_block_item(lf[123] /* ##sys#line-number-database */,0,C_SCHEME_FALSE); t31=C_set_block_item(lf[124] /* ##sys#syntax-error-culprit */,0,C_SCHEME_FALSE); t32=C_set_block_item(lf[125] /* ##sys#syntax-context */,0,C_SCHEME_END_OF_LIST); t33=C_mutate((C_word*)lf[126]+1 /* (set! chicken.syntax#syntax-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6892,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate((C_word*)lf[46]+1 /* (set! ##sys#syntax-error-hook ...) */,*((C_word*)lf[126]+1)); t35=C_mutate((C_word*)lf[129]+1 /* (set! ##sys#syntax-error/context ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6903,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate((C_word*)lf[148]+1 /* (set! chicken.syntax#get-line-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7124,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate((C_word*)lf[59]+1 /* (set! ##sys#check-syntax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7163,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate(&lf[181] /* (set! chicken.syntax#make-er/ir-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7607,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate((C_word*)lf[185]+1 /* (set! chicken.syntax#er-macro-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8100,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate((C_word*)lf[186]+1 /* (set! chicken.syntax#ir-macro-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8106,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate((C_word*)lf[187]+1 /* (set! ##sys#er-transformer ...) */,*((C_word*)lf[185]+1)); t42=C_mutate((C_word*)lf[188]+1 /* (set! ##sys#ir-transformer ...) */,*((C_word*)lf[186]+1)); t43=C_mutate((C_word*)lf[99]+1 /* (set! chicken.syntax#define-definition ...) */,*((C_word*)lf[99]+1)); t44=C_mutate((C_word*)lf[100]+1 /* (set! chicken.syntax#define-syntax-definition ...) */,*((C_word*)lf[100]+1)); t45=C_mutate((C_word*)lf[101]+1 /* (set! chicken.syntax#define-values-definition ...) */,*((C_word*)lf[101]+1)); t46=C_mutate((C_word*)lf[45]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,*((C_word*)lf[45]+1)); t47=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8119,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t48=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12169,a[2]=t47,tmp=(C_word)a,a+=3,tmp); t49=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12171,a[2]=((C_word)li180),tmp=(C_word)a,a+=3,tmp); /* expand.scm:958: ##sys#er-transformer */ t50=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t50; av2[1]=t48; av2[2]=t49; ((C_proc)(void*)(*((C_word*)t50+1)))(3,av2);}} /* ##sys#ensure-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_4198,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); if(C_truep(C_i_structurep(t2,lf[30]))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* expand.scm:177: ##sys#error */ t6=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t5; av2[3]=lf[32]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* ##sys#extend-macro-environment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4222,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4226,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* expand.scm:180: ##sys#macro-environment */ t6=*((C_word*)lf[20]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k4224 in ##sys#extend-macro-environment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4226,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4229,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* expand.scm:181: ##sys#ensure-transformer */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4227 in k4224 in ##sys#extend-macro-environment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_4229,2,av);} a=C_alloc(16); t2=t1; t3=( /* expand.scm:182: lookup */ f_3718(((C_word*)t0)[2],((C_word*)t0)[3]) ); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4236,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word)li14),tmp=(C_word)a,a+=5,tmp); /* expand.scm:182: g561 */ t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=( /* expand.scm:182: g561 */ f_4236(t4,t3) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_a_i_list2(&a,2,((C_word*)t0)[4],t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4254,a[2]=((C_word*)t0)[5],a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_a_i_cons(&a,2,((C_word*)t0)[2],t5); t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[3]); /* expand.scm:189: ##sys#macro-environment */ t9=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t6; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* g561 in k4227 in k4224 in ##sys#extend-macro-environment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static C_word C_fcall f_4236(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check;{} t2=C_i_set_car(t1,((C_word*)t0)[2]); t3=t1; t4=C_u_i_cdr(t3); t5=C_i_set_car(t4,((C_word*)t0)[3]); return(t1);} /* k4252 in k4227 in k4224 in ##sys#extend-macro-environment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4254,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#macro? in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4264,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4268,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* expand.scm:193: ##sys#current-environment */ t5=*((C_word*)lf[4]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_car(t3); f_4268(2,av2);}}} /* k4266 in ##sys#macro? in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4268,2,av);} a=C_alloc(4); t2=( /* expand.scm:194: lookup */ f_3718(((C_word*)t0)[2],t1) ); t3=C_i_pairp(t2); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:196: ##sys#macro-environment */ t5=*((C_word*)lf[20]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k4288 in k4266 in ##sys#macro? in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4290,2,av);} t2=( /* expand.scm:196: lookup */ f_3718(((C_word*)t0)[2],t1) ); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?C_i_pairp(t2):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#undefine-macro! in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4301,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4309,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4313,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* expand.scm:202: ##sys#macro-environment */ t5=*((C_word*)lf[20]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4307 in ##sys#undefine-macro! in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4309,2,av);} /* expand.scm:200: ##sys#macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4311 in ##sys#undefine-macro! in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4313,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4315,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li17),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_4315(t5,((C_word*)t0)[3],t1);} /* loop in k4311 in ##sys#undefine-macro! in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4315(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_4315,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_caar(t2); t4=C_eqp(((C_word*)t0)[2],t3); if(C_truep(t4)){ t5=t2; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_u_i_cdr(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=t2; t6=C_u_i_car(t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4338,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* expand.scm:205: loop */ t11=t7; t12=t9; t1=t11; t2=t12; goto loop;}}} /* k4336 in loop in k4311 in ##sys#undefine-macro! in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4338,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(22,c,7)))){ C_save_and_reclaim((void *)f_4346,5,av);} a=C_alloc(22); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4349,a[2]=t3,a[3]=((C_word)li31),tmp=(C_word)a,a+=4,tmp)); t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4548,a[2]=t6,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp)); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4592,a[2]=t3,a[3]=t8,a[4]=t12,a[5]=t6,a[6]=t4,a[7]=((C_word)li36),tmp=(C_word)a,a+=8,tmp)); t14=((C_word*)t12)[1]; f_4592(t14,t1,t2);} /* call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4349(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_4349,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(12); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4359,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4364,a[2]=t2,a[3]=t4,a[4]=t6,a[5]=t3,a[6]=t5,a[7]=((C_word*)t0)[2],a[8]=((C_word)li30),tmp=(C_word)a,a+=9,tmp); /* expand.scm:213: scheme#call-with-current-continuation */ t9=*((C_word*)lf[53]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k4357 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4359,2,av);} /* g613614 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_4364,3,av);} a=C_alloc(15); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4370,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4471,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word)li29),tmp=(C_word)a,a+=10,tmp); /* expand.scm:213: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a4369 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4370,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4376,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li20),tmp=(C_word)a,a+=5,tmp); /* expand.scm:213: k610 */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a4375 in a4369 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4376,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4387,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_structurep(((C_word*)t0)[2],lf[37]))){ t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=t2; f_4387(t4,C_i_memq(lf[44],t3));} else{ t3=t2; f_4387(t3,C_SCHEME_FALSE);}} /* k4385 in a4375 in a4369 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4387(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_4387,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4398,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=C_slot(((C_word*)t0)[2],C_fix(2)); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4404,a[2]=((C_word*)t0)[4],a[3]=t7,a[4]=((C_word)li19),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_4404(t9,t4,t5);} else{ t2=((C_word*)t0)[2]; /* expand.scm:216: chicken.condition#abort */ t3=*((C_word*)lf[38]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k4396 in k4385 in a4375 in a4369 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4398,2,av);} a=C_alloc(4); t2=C_a_i_record3(&a,3,lf[37],((C_word*)t0)[2],t1); /* expand.scm:216: chicken.condition#abort */ t3=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* copy in k4385 in a4375 in a4369 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4404(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4404,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t2; t5=C_u_i_cdr(t4); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4421,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_equalp(lf[43],t3))){ if(C_truep(C_i_pairp(t5))){ t7=C_u_i_car(t5); t8=t6; f_4421(t8,C_i_stringp(t7));} else{ t7=t6; f_4421(t7,C_SCHEME_FALSE);}} else{ t7=t6; f_4421(t7,C_SCHEME_FALSE);}}} /* k4419 in copy in k4385 in a4375 in a4369 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4421(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_4421,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4432,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_slot(((C_word*)t0)[4],C_fix(1)); t4=C_i_car(((C_word*)t0)[2]); /* expand.scm:232: scheme#string-append */ t5=*((C_word*)lf[40]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t2; av2[2]=lf[41]; av2[3]=t3; av2[4]=lf[42]; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ /* expand.scm:238: copy */ t2=((C_word*)((C_word*)t0)[5])[1]; f_4404(t2,((C_word*)t0)[3],((C_word*)t0)[2]);}} /* k4430 in k4419 in copy in k4385 in a4375 in a4369 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4432,2,av);} a=C_alloc(6); t2=C_u_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[39],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_4471,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4477,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li26),tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4536,a[2]=((C_word*)t0)[8],a[3]=((C_word)li28),tmp=(C_word)a,a+=4,tmp); /* expand.scm:213: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a4476 in a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){ C_save_and_reclaim((void *)f_4477,2,av);} a=C_alloc(31); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4481,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[3])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4511,a[2]=((C_word*)t0)[2],a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4517,a[2]=t6,a[3]=t4,a[4]=((C_word)li23),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4522,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li24),tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4528,a[2]=t4,a[3]=t6,a[4]=((C_word)li25),tmp=(C_word)a,a+=5,tmp); /* expand.scm:243: ##sys#dynamic-wind */ t10=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t2; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ /* expand.scm:246: handler */ t3=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}} /* k4479 in a4476 in a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_4481,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4484,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_i_not(((C_word*)t0)[4]); t5=(C_truep(t4)?C_eqp(((C_word*)t0)[3],t2):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4500,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4504,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* expand.scm:250: scheme#symbol->string */ t8=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* expand.scm:254: expansion-result-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[45]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; tp(4,av2);}}} /* k4482 in k4479 in a4476 in a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4484,2,av);} /* expand.scm:254: expansion-result-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[45]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4498 in k4479 in a4476 in a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4500,2,av);} /* expand.scm:248: ##sys#syntax-error-hook */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4502 in k4479 in a4476 in a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4504,2,av);} /* expand.scm:249: scheme#string-append */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[47]; av2[3]=t1; av2[4]=lf[48]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* f_4511 in a4476 in a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4511,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4516 in a4476 in a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4517,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[50]+1)); t3=C_mutate((C_word*)lf[50]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4521 in a4476 in a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4522,2,av);} /* expand.scm:245: handler */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* a4527 in a4476 in a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4528,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[50]+1)); t3=C_mutate((C_word*)lf[50]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4535 in a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4536,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4542,a[2]=t2,a[3]=((C_word)li27),tmp=(C_word)a,a+=4,tmp); /* expand.scm:213: k610 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a4541 in a4535 in a4470 in a4363 in call-handler in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4542,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* expand in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4548(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){ C_save_and_reclaim_args((void *)trf_4548,5,t0,t1,t2,t3,t4);} a=C_alloc(3); t5=C_i_listp(t3); if(C_truep(C_i_not(t5))){ /* expand.scm:266: ##sys#syntax-error-hook */ t6=*((C_word*)lf[46]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=lf[54]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ if(C_truep(C_i_pairp(t4))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4574,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=C_i_cadr(t4); t8=t4; t9=C_u_i_car(t8); /* expand.scm:270: call-handler */ t10=((C_word*)((C_word*)t0)[2])[1]; f_4349(t10,t6,t2,t7,t3,t9,C_SCHEME_FALSE);} else{ /* expand.scm:272: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}}} /* k4572 in expand in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4574,2,av);} /* expand.scm:268: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; C_values(4,av2);}} /* loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4592(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ C_save_and_reclaim_args((void *)trf_4592,3,t0,t1,t2);} a=C_alloc(18); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=t2; t6=C_u_i_cdr(t5); if(C_truep(C_i_symbolp(t4))){ t7=( /* expand.scm:278: lookup */ f_3718(t4,((C_word*)t0)[2]) ); t8=(C_truep(t7)?t7:t4); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4616,a[2]=t10,a[3]=t6,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=t2,a[7]=((C_word*)t0)[3],a[8]=t4,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],tmp=(C_word)a,a+=12,tmp); if(C_truep(C_i_pairp(((C_word*)t10)[1]))){ t12=t11; f_4616(t12,C_SCHEME_UNDEFINED);} else{ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4834,a[2]=t10,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* expand.scm:280: ##sys#macro-environment */ t13=*((C_word*)lf[20]+1);{ C_word av2[2]; av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ /* expand.scm:306: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} else{ /* expand.scm:307: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} /* k4614 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4616(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,6)))){ C_save_and_reclaim_args((void *)trf_4616,2,t0,t1);} a=C_alloc(9); t2=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[55]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4625,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* expand.scm:282: ##sys#check-syntax */ t4=*((C_word*)lf[59]+1);{ C_word av2[7]; av2[0]=t4; av2[1]=t3; av2[2]=lf[60]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[62]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4771,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[11])){ if(C_truep(C_i_symbolp(((C_word*)((C_word*)t0)[2])[1]))){ t4=((C_word*)((C_word*)t0)[2])[1]; t5=t3; f_4771(t5,C_i_getprop(t4,lf[64],C_SCHEME_FALSE));} else{ t4=t3; f_4771(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_4771(t4,C_SCHEME_FALSE);}}} /* k4623 in k4614 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4625,2,av);} a=C_alloc(5); t2=C_i_car(((C_word*)t0)[2]); t3=t2; if(C_truep(C_i_symbolp(t3))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4637,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* expand.scm:285: ##sys#check-syntax */ t5=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t4; av2[2]=lf[60]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[61]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} else{ /* expand.scm:296: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} /* k4635 in k4623 in k4614 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_4637,2,av);} a=C_alloc(19); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_check_list_2(t3,lf[17]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4727,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4733,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li34),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_4733(t13,t9,t3);} /* k4660 in k4725 in k4635 in k4623 in k4614 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4662,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[58],t2); /* expand.scm:287: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=C_SCHEME_TRUE; C_values(4,av2);}} /* map-loop709 in k4725 in k4635 in k4623 in k4614 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4664(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_4664,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cadr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4725 in k4635 in k4623 in k4614 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,c,3)))){ C_save_and_reclaim((void *)f_4727,2,av);} a=C_alloc(41); t2=C_i_cddr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); t4=C_a_i_cons(&a,2,lf[56],t3); t5=C_a_i_list(&a,2,((C_word*)t0)[3],t4); t6=C_a_i_list(&a,1,t5); t7=C_a_i_list(&a,3,lf[57],t6,((C_word*)t0)[3]); t8=t7; t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4662,a[2]=t8,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4664,a[2]=t11,a[3]=t15,a[4]=t12,a[5]=((C_word)li33),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_4664(t17,t13,((C_word*)t0)[5]);} /* map-loop682 in k4635 in k4623 in k4614 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4733(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_4733,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4769 in k4614 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4771(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_4771,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4775,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li35),tmp=(C_word)a,a+=9,tmp); /* expand.scm:281: g742 */ t3=t2; f_4775(t3,((C_word*)t0)[8],t1);} else{ /* expand.scm:305: expand */ t2=((C_word*)((C_word*)t0)[3])[1]; f_4548(t2,((C_word*)t0)[8],((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)((C_word*)t0)[5])[1]);}} /* g742 in k4769 in k4614 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4775(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,6)))){ C_save_and_reclaim_args((void *)trf_4775,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_i_car(t2); t5=t2; t6=C_u_i_cdr(t5); /* expand.scm:299: call-handler */ t7=((C_word*)((C_word*)t0)[7])[1]; f_4349(t7,t3,((C_word*)t0)[4],t4,((C_word*)t0)[2],t6,C_SCHEME_TRUE);} /* k4777 in g742 in k4769 in k4614 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4779,2,av);} a=C_alloc(5); t2=t1; t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ /* expand.scm:300: expand */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4548(t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)((C_word*)t0)[6])[1]);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4791,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[63]+1))){ /* expand.scm:303: ##sys#compiler-syntax-hook */ t5=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* expand.scm:304: loop */ t5=((C_word*)((C_word*)t0)[7])[1]; f_4592(t5,((C_word*)t0)[4],t2);}}} /* k4789 in k4777 in g742 in k4769 in k4614 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4791,2,av);} /* expand.scm:304: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4592(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k4832 in loop in ##sys#expand-0 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4834,2,av);} t2=( /* expand.scm:280: lookup */ f_3718(((C_word*)((C_word*)t0)[2])[1],t1) ); if(C_truep(t2)){ t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3]; f_4616(t4,t3);} else{ t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); t5=((C_word*)t0)[3]; f_4616(t5,t4);}} /* chicken.syntax#expansion-result-hook in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4844,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.syntax#expand in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_4847,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4851,a[2]=t4,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t4))){ /* expand.scm:316: ##sys#current-environment */ t6=*((C_word*)lf[4]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_car(t4); f_4851(2,av2);}}} /* k4849 in chicken.syntax#expand in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4851,2,av);} a=C_alloc(8); t2=t1; t3=C_i_nullp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4865,a[2]=t2,a[3]=t7,a[4]=t11,a[5]=((C_word)li41),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_4865(t13,((C_word*)t0)[3],((C_word*)t0)[4]);} /* loop in k4849 in chicken.syntax#expand in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4865(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_4865,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4871,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li39),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4877,a[2]=((C_word*)t0)[4],a[3]=((C_word)li40),tmp=(C_word)a,a+=4,tmp); /* expand.scm:318: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a4870 in loop in k4849 in chicken.syntax#expand in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4871,2,av);} /* expand.scm:318: ##sys#expand-0 */ t2=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4876 in loop in k4849 in chicken.syntax#expand in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4877,4,av);} if(C_truep(t3)){ /* expand.scm:320: loop */ t4=((C_word*)((C_word*)t0)[2])[1]; f_4865(t4,t1,t2);} else{ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#extended-lambda-list? in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4913,3,av);} a=C_alloc(6); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4919,a[2]=t4,a[3]=((C_word)li43),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_4919(t6,t1,t2);} /* loop in ##sys#extended-lambda-list? in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4919(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4919,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_eqp(t3,lf[68]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4938,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t6=t5; f_4938(t6,t4);} else{ t6=C_eqp(t3,lf[69]); t7=t5; f_4938(t7,(C_truep(t6)?t6:C_eqp(t3,lf[70])));}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4936 in loop in ##sys#extended-lambda-list? in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4938(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_4938,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* expand.scm:341: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4919(t4,((C_word*)t0)[2],t3);}} /* ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_4960,6,av);} a=C_alloc(18); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4963,a[2]=t4,a[3]=t2,a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp); t7=C_SCHEME_FALSE; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_FALSE; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4980,a[2]=t8,a[3]=t10,a[4]=t3,a[5]=t6,a[6]=t5,a[7]=t1,a[8]=t2,tmp=(C_word)a,a+=9,tmp); /* expand.scm:351: macro-alias */ f_3735(t11,lf[92],*((C_word*)lf[93]+1));} /* err in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4963(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_4963,3,t0,t1,t2);} /* expand.scm:346: errh */ t3=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_4980,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4983,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* expand.scm:353: macro-alias */ f_3735(t3,lf[91],*((C_word*)lf[28]+1));} /* k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_4983,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4986,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* expand.scm:354: macro-alias */ f_3735(t3,lf[90],*((C_word*)lf[28]+1));} /* k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_4986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,7)))){ C_save_and_reclaim((void *)f_4986,2,av);} a=C_alloc(14); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4991,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t4,a[10]=((C_word*)t0)[8],a[11]=((C_word)li48),tmp=(C_word)a,a+=12,tmp)); t6=((C_word*)t4)[1]; f_4991(t6,((C_word*)t0)[9],C_fix(0),C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,((C_word*)t0)[10]);} /* loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_4991(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(15,0,6)))){ C_save_and_reclaim_args((void *)trf_4991,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(15); if(C_truep(C_i_nullp(t6))){ t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5005,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t5,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5253,a[2]=t7,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:363: reverse */ t9=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ /* expand.scm:363: reverse */ t8=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} else{ if(C_truep(C_i_symbolp(t6))){ if(C_truep(C_fixnum_greaterp(t2,C_fix(2)))){ /* expand.scm:391: err */ t7=((C_word*)t0)[8]; f_4963(t7,t1,lf[79]);} else{ if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ t7=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6); /* expand.scm:395: loop */ t13=t1; t14=C_fix(4); t15=t3; t16=t4; t17=C_SCHEME_END_OF_LIST; t18=C_SCHEME_END_OF_LIST; t1=t13; t2=t14; t3=t15; t4=t16; t5=t17; t6=t18; goto loop;} else{ t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t6); t8=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6); /* expand.scm:395: loop */ t13=t1; t14=C_fix(4); t15=t3; t16=t4; t17=C_SCHEME_END_OF_LIST; t18=C_SCHEME_END_OF_LIST; t1=t13; t2=t14; t3=t15; t4=t16; t5=t17; t6=t18; goto loop;}}} else{ t7=C_i_pairp(t6); if(C_truep(C_i_not(t7))){ /* expand.scm:397: err */ t8=((C_word*)t0)[8]; f_4963(t8,t1,lf[80]);} else{ t8=C_i_car(t6); t9=t8; t10=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5294,a[2]=t9,a[3]=t6,a[4]=t2,a[5]=((C_word*)t0)[9],a[6]=t1,a[7]=t3,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[4],a[12]=t4,a[13]=t5,tmp=(C_word)a,a+=14,tmp); if(C_truep(C_i_symbolp(t9))){ t11=C_eqp(C_fix(3),t2); /* expand.scm:400: lookup */ t12=t10; f_5294(t12,(C_truep(C_i_not(t11))?( /* expand.scm:400: lookup */ f_3718(t9,((C_word*)t0)[10]) ):C_SCHEME_FALSE));} else{ t11=t10; f_5294(t11,C_SCHEME_FALSE);}}}}} /* k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_5005,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5009,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_nullp(((C_word*)t0)[7]))){ t4=t3; f_5009(t4,((C_word*)t0)[9]);} else{ t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5149,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word)li46),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5209,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],a[4]=t3,a[5]=t6,a[6]=t8,a[7]=t7,tmp=(C_word)a,a+=8,tmp); /* expand.scm:375: reverse */ t10=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} /* k5007 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5009(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_5009,2,t0,t1);} a=C_alloc(11); t2=t1; if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ /* expand.scm:362: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; C_values(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_not(((C_word*)((C_word*)t0)[7])[1]))){ if(C_truep(C_i_nullp(((C_word*)t0)[8]))){ t4=C_i_cdr(((C_word*)t0)[2]); t5=t3; f_5021(t5,C_i_nullp(t4));} else{ t4=t3; f_5021(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_5021(t4,C_SCHEME_FALSE);}}} /* k5019 in k5007 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5021(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_5021,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=C_i_caar(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5052,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* expand.scm:380: scheme#cadar */ t5=*((C_word*)lf[72]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=C_i_not(((C_word*)((C_word*)t0)[8])[1]); t3=(C_truep(t2)?C_i_nullp(((C_word*)t0)[9]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5077,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* expand.scm:384: reverse */ t5=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5096,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5100,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:387: reverse */ t6=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} /* k5050 in k5019 in k5007 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_5052,2,av);} a=C_alloc(27); t2=C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],t1); t3=C_a_i_list(&a,2,((C_word*)t0)[4],t2); t4=C_a_i_list(&a,1,t3); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[5]); t6=C_a_i_cons(&a,2,lf[55],t5); t7=C_a_i_list(&a,1,t6); /* expand.scm:362: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[7]; av2[3]=t7; C_values(4,av2);}} /* k5075 in k5019 in k5007 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_5077,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); t5=C_a_i_list(&a,1,t4); /* expand.scm:362: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=t5; C_values(4,av2);}} /* k5094 in k5019 in k5007 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_5096,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); t5=C_a_i_list(&a,1,t4); /* expand.scm:362: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=t5; C_values(4,av2);}} /* k5098 in k5019 in k5007 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5100,2,av);} a=C_alloc(3); t2=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t2)){ t3=C_a_i_list1(&a,1,t2); /* expand.scm:387: ##sys#append */ t4=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=((C_word*)((C_word*)t0)[4])[1]; t4=C_a_i_list1(&a,1,t3); /* expand.scm:387: ##sys#append */ t5=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* g845 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5149(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_5149,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5202,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5206,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* expand.scm:371: chicken.syntax#strip-syntax */ t7=*((C_word*)lf[12]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k5200 in g845 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){ C_save_and_reclaim((void *)f_5202,2,av);} a=C_alloc(30); t2=C_a_i_list(&a,2,lf[75],t1); t3=((C_word*)((C_word*)t0)[2])[1]; t4=(C_truep(t3)?t3:((C_word*)((C_word*)t0)[3])[1]); t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); if(C_truep(C_i_pairp(t6))){ t7=((C_word*)t0)[4]; t8=C_u_i_cdr(t7); t9=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t8); t10=C_a_i_cons(&a,2,lf[76],t9); t11=C_a_i_list(&a,1,t10); t12=C_a_i_cons(&a,2,t4,t11); t13=C_a_i_cons(&a,2,t2,t12); t14=C_a_i_cons(&a,2,lf[77],t13); t15=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t15; av2[1]=C_a_i_list(&a,2,((C_word*)t0)[6],t14); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t7=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t8=C_a_i_cons(&a,2,t2,t7); t9=C_a_i_cons(&a,2,lf[77],t8); t10=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t10; av2[1]=C_a_i_list(&a,2,((C_word*)t0)[6],t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k5204 in g845 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5206,2,av);} t2=C_slot(t1,C_fix(1)); /* expand.scm:347: chicken.keyword#string->keyword */ t3=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5207 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_5209,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5212,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5214,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li47),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_5214(t6,t2,t1);} /* k5210 in k5207 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_5212,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=((C_word*)t0)[4]; f_5009(t4,C_a_i_list(&a,1,t3));} /* map-loop839 in k5207 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5214(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_5214,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5239,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* expand.scm:368: g845 */ t5=((C_word*)t0)[4]; f_5149(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5237 in map-loop839 in k5207 in k5003 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5239,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5214(t6,((C_word*)t0)[5],t5);} /* k5251 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5253,2,av);} /* expand.scm:363: ##sys#append */ t2=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5292 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5294(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,6)))){ C_save_and_reclaim_args((void *)trf_5294,2,t0,t1);} a=C_alloc(13); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_eqp(t2,lf[69]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5307,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t4,a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)((C_word*)t0)[9])[1])){ t7=t6; f_5307(t7,C_SCHEME_UNDEFINED);} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5323,a[2]=((C_word*)t0)[9],a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* expand.scm:404: macro-alias */ f_3735(t7,lf[82],((C_word*)t0)[10]);}} else{ t6=C_eqp(t2,lf[68]); if(C_truep(t6)){ if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[4],C_fix(1)))){ t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5341,a[2]=t4,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_pairp(t4))){ t8=C_u_i_car(t4); t9=t7; f_5341(t9,C_i_symbolp(t8));} else{ t8=t7; f_5341(t8,C_SCHEME_FALSE);}} else{ /* expand.scm:416: err */ t7=((C_word*)t0)[8]; f_4963(t7,((C_word*)t0)[6],lf[84]);}} else{ t7=C_eqp(t2,lf[70]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5383,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[12],a[7]=t4,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5402,a[2]=((C_word*)t0)[9],a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* expand.scm:418: macro-alias */ f_3735(t9,lf[82],((C_word*)t0)[10]);} else{ t9=t8; f_5383(t9,C_SCHEME_UNDEFINED);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ t8=((C_word*)t0)[4]; switch(t8){ case C_fix(0): t9=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[7]); /* expand.scm:425: loop */ t10=((C_word*)((C_word*)t0)[5])[1]; f_4991(t10,((C_word*)t0)[6],C_fix(0),t9,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,t4); case C_fix(1): t9=C_a_i_list2(&a,2,((C_word*)t0)[2],C_SCHEME_FALSE); t10=C_a_i_cons(&a,2,t9,((C_word*)t0)[12]); /* expand.scm:426: loop */ t11=((C_word*)((C_word*)t0)[5])[1]; f_4991(t11,((C_word*)t0)[6],C_fix(1),((C_word*)t0)[7],t10,C_SCHEME_END_OF_LIST,t4); case C_fix(2): /* expand.scm:427: err */ t9=((C_word*)t0)[8]; f_4963(t9,((C_word*)t0)[6],lf[86]); default: t9=C_a_i_list1(&a,1,((C_word*)t0)[2]); t10=C_a_i_cons(&a,2,t9,((C_word*)t0)[13]); /* expand.scm:428: loop */ t11=((C_word*)((C_word*)t0)[5])[1]; f_4991(t11,((C_word*)t0)[6],C_fix(3),((C_word*)t0)[7],((C_word*)t0)[12],t10,t4);}} else{ t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5470,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[7],a[9]=t4,a[10]=((C_word*)t0)[13],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_listp(((C_word*)t0)[2]))){ t9=C_u_i_length(((C_word*)t0)[2]); t10=C_eqp(C_fix(2),t9); if(C_truep(t10)){ t11=C_i_car(((C_word*)t0)[2]); t12=t8; f_5470(t12,C_i_symbolp(t11));} else{ t11=t8; f_5470(t11,C_SCHEME_FALSE);}} else{ t9=t8; f_5470(t9,C_SCHEME_FALSE);}}}}}} /* k5305 in k5292 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5307(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){ C_save_and_reclaim_args((void *)trf_5307,2,t0,t1);} t2=C_eqp(((C_word*)t0)[2],C_fix(0)); if(C_truep(t2)){ /* expand.scm:406: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4991(t3,((C_word*)t0)[4],C_fix(1),((C_word*)t0)[5],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,((C_word*)t0)[6]);} else{ /* expand.scm:407: err */ t3=((C_word*)t0)[7]; f_4963(t3,((C_word*)t0)[4],lf[81]);}} /* k5321 in k5292 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5323,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_5307(t3,t2);} /* k5339 in k5292 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5341(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_5341,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5344,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_not(((C_word*)((C_word*)t0)[8])[1]))){ t3=C_i_car(((C_word*)t0)[2]); t4=C_mutate(((C_word *)((C_word*)t0)[8])+1,t3); t5=t2; f_5344(t5,t4);} else{ t3=t2; f_5344(t3,C_SCHEME_UNDEFINED);}} else{ /* expand.scm:415: err */ t2=((C_word*)t0)[9]; f_4963(t2,((C_word*)t0)[5],lf[83]);}} /* k5342 in k5339 in k5292 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5344(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){ C_save_and_reclaim_args((void *)trf_5344,2,t0,t1);} t2=C_i_car(((C_word*)t0)[2]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=C_u_i_cdr(((C_word*)t0)[2]); /* expand.scm:414: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_4991(t5,((C_word*)t0)[5],C_fix(2),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_END_OF_LIST,t4);} /* k5381 in k5292 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5383(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){ C_save_and_reclaim_args((void *)trf_5383,2,t0,t1);} if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[2],C_fix(2)))){ /* expand.scm:420: loop */ t2=((C_word*)((C_word*)t0)[3])[1]; f_4991(t2,((C_word*)t0)[4],C_fix(3),((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,((C_word*)t0)[7]);} else{ /* expand.scm:421: err */ t2=((C_word*)t0)[8]; f_4963(t2,((C_word*)t0)[4],lf[85]);}} /* k5400 in k5292 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5402,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_5383(t3,t2);} /* k5468 in k5292 in loop in k4984 in k4981 in k4978 in ##sys#expand-extended-lambda-list in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5470(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){ C_save_and_reclaim_args((void *)trf_5470,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; switch(t2){ case C_fix(0): /* expand.scm:431: err */ t3=((C_word*)t0)[3]; f_4963(t3,((C_word*)t0)[4],lf[87]); case C_fix(1): t3=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]); /* expand.scm:432: loop */ t4=((C_word*)((C_word*)t0)[7])[1]; f_4991(t4,((C_word*)t0)[4],C_fix(1),((C_word*)t0)[8],t3,C_SCHEME_END_OF_LIST,((C_word*)t0)[9]); case C_fix(2): /* expand.scm:433: err */ t3=((C_word*)t0)[3]; f_4963(t3,((C_word*)t0)[4],lf[88]); default: t3=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[10]); /* expand.scm:434: loop */ t4=((C_word*)((C_word*)t0)[7])[1]; f_4991(t4,((C_word*)t0)[4],C_fix(3),((C_word*)t0)[8],((C_word*)t0)[6],t3,((C_word*)t0)[9]);}} else{ /* expand.scm:435: err */ t2=((C_word*)t0)[3]; f_4963(t2,((C_word*)t0)[4],lf[89]);}} /* ##sys#expand-multiple-values-assignment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5569,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5575,a[2]=t3,a[3]=t2,a[4]=((C_word)li52),tmp=(C_word)a,a+=5,tmp); /* expand.scm:453: ##sys#decompose-lambda-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[98]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[98]+1); av2[1]=t1; av2[2]=t2; av2[3]=t4; tp(4,av2);}} /* a5574 in ##sys#expand-multiple-values-assignment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_5575,5,av);} a=C_alloc(20); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5579,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t4,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_END_OF_LIST; f_5579(2,av2);}} else{ t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=((C_word*)t0)[3]; t11=C_i_check_list_2(t10,lf[17]); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5711,a[2]=t8,a[3]=t13,a[4]=t9,a[5]=((C_word)li51),tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_5711(t15,t5,t10);}} /* k5577 in a5574 in ##sys#expand-multiple-values-assignment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5579,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5582,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_not(((C_word*)t0)[6]))){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; f_5582(2,av2);}} else{ /* expand.scm:457: chicken.base#gensym */ t4=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k5580 in k5577 in a5574 in ##sys#expand-multiple-values-assignment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_5582,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_list(&a,3,lf[76],C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5601,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* expand.scm:461: scheme#append */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k5599 in k5580 in k5577 in a5574 in ##sys#expand-multiple-values-assignment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_5601,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5605,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[4]; t9=C_i_check_list_2(t8,lf[17]); t10=C_i_check_list_2(((C_word*)t0)[5],lf[17]); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5623,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5645,a[2]=t6,a[3]=t13,a[4]=t7,a[5]=((C_word)li50),tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_5645(t15,t11,t8,((C_word*)t0)[5]);} /* k5603 in k5599 in k5580 in k5577 in a5574 in ##sys#expand-multiple-values-assignment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_5605,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[76],t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[95],((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5621 in k5599 in k5580 in k5577 in a5574 in ##sys#expand-multiple-values-assignment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_5623,2,av);} a=C_alloc(12); if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ /* expand.scm:458: ##sys#append */ t2=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[96]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ /* expand.scm:458: ##sys#append */ t2=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_a_i_list(&a,3,lf[97],((C_word*)t0)[5],((C_word*)t0)[4]); t3=C_a_i_list(&a,1,t2); /* expand.scm:458: ##sys#append */ t4=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* map-loop976 in k5599 in k5580 in k5577 in a5574 in ##sys#expand-multiple-values-assignment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5645(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_5645,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,3,lf[97],t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop947 in a5574 in ##sys#expand-multiple-values-assignment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5711(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_5711,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5736,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* expand.scm:456: g953 */ t5=*((C_word*)lf[10]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5734 in map-loop947 in a5574 in ##sys#expand-multiple-values-assignment in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5736,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5711(t6,((C_word*)t0)[5],t5);} /* ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_5749,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5753,a[2]=t4,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t4))){ /* expand.scm:478: ##sys#current-environment */ t6=*((C_word*)lf[4]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_car(t4); f_5753(2,av2);}}} /* k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,6)))){ C_save_and_reclaim((void *)f_5753,2,av);} a=C_alloc(32); t2=t1; t3=C_i_nullp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5764,a[2]=t2,a[3]=((C_word)li54),tmp=(C_word)a,a+=4,tmp)); t19=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5847,a[2]=t11,a[3]=t17,a[4]=t2,a[5]=t7,a[6]=((C_word)li61),tmp=(C_word)a,a+=7,tmp)); t20=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6284,a[2]=t13,a[3]=t11,a[4]=((C_word)li64),tmp=(C_word)a,a+=5,tmp)); t21=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6440,a[2]=t13,a[3]=t11,a[4]=t2,a[5]=t15,a[6]=t7,a[7]=((C_word)li67),tmp=(C_word)a,a+=8,tmp)); /* expand.scm:635: expand */ t22=((C_word*)t17)[1]; f_6440(t22,((C_word*)t0)[3],((C_word*)t0)[4]);} /* comp in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static C_word C_fcall f_5764(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check;{} t3=( /* expand.scm:480: lookup */ f_3718(t2,((C_word*)t0)[2]) ); t4=C_eqp(t1,t3); if(C_truep(t4)){ return(t4);} else{ t5=t1; t6=C_eqp(t5,lf[104]); if(C_truep(t6)){ return((C_truep(t3)?C_eqp(t3,*((C_word*)lf[99]+1)):C_eqp(t1,t2)));} else{ t7=C_eqp(t5,lf[105]); if(C_truep(t7)){ return((C_truep(t3)?C_eqp(t3,*((C_word*)lf[100]+1)):C_eqp(t1,t2)));} else{ t8=C_eqp(t5,lf[106]); if(C_truep(t8)){ return((C_truep(t3)?C_eqp(t3,*((C_word*)lf[101]+1)):C_eqp(t1,t2)));} else{ t9=C_eqp(t5,lf[107]); return((C_truep(t9)?(C_truep(t3)?C_eqp(t3,lf[102]):C_eqp(t1,t2)):C_eqp(t1,t2)));}}}}} /* fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5847(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_5847,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(14); t6=C_i_nullp(t2); t7=(C_truep(t6)?C_i_nullp(t4):C_SCHEME_FALSE); if(C_truep(t7)){ t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5859,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li56),tmp=(C_word)a,a+=8,tmp)); t11=((C_word*)t9)[1]; f_5859(t11,t1,t5,C_SCHEME_END_OF_LIST);} else{ t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6100,a[2]=t1,a[3]=t5,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=t10,a[8]=t11,tmp=(C_word)a,a+=9,tmp); /* expand.scm:543: scheme#reverse */ t13=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t12; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}} /* loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5859(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_5859,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_pairp(t2); if(C_truep(C_i_not(t4))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5873,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* expand.scm:495: scheme#reverse */ t6=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5878,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t6,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word)li55),tmp=(C_word)a,a+=10,tmp)); t8=((C_word*)t6)[1]; f_5878(t8,t1,t2);}} /* k5871 in loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5873,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[108],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop2 in loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5878(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_5878,3,t0,t1,t2);} a=C_alloc(13); t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5889,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=t6,a[8]=((C_word*)t0)[5],a[9]=t2,a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],tmp=(C_word)a,a+=13,tmp); if(C_truep(C_i_pairp(t4))){ t8=C_u_i_car(t4); if(C_truep(C_i_symbolp(t8))){ t9=( /* expand.scm:502: comp */ f_5764(((C_word*)((C_word*)t0)[2])[1],lf[104],t8) ); if(C_truep(t9)){ t10=t7; f_5889(t10,t9);} else{ t10=( /* expand.scm:503: comp */ f_5764(((C_word*)((C_word*)t0)[2])[1],lf[106],t8) ); if(C_truep(t10)){ t11=t7; f_5889(t11,t10);} else{ t11=( /* expand.scm:504: comp */ f_5764(((C_word*)((C_word*)t0)[2])[1],lf[105],t8) ); if(C_truep(t11)){ t12=t7; f_5889(t12,t11);} else{ t12=( /* expand.scm:505: comp */ f_5764(((C_word*)((C_word*)t0)[2])[1],lf[108],t8) ); t13=t7; f_5889(t13,(C_truep(t12)?t12:( /* expand.scm:506: comp */ f_5764(((C_word*)((C_word*)t0)[2])[1],lf[107],t8) )));}}}} else{ t9=t7; f_5889(t9,C_SCHEME_FALSE);}} else{ t8=t7; f_5889(t8,C_SCHEME_FALSE);}} /* k5887 in loop2 in loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5889(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_5889,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=( /* expand.scm:508: comp */ f_5764(((C_word*)((C_word*)t0)[3])[1],lf[107],t2) ); if(C_truep(t3)){ t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]); /* expand.scm:509: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_5859(t5,((C_word*)t0)[6],((C_word*)t0)[7],t4);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5909,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5913,a[2]=t4,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* expand.scm:512: scheme#reverse */ t6=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5928,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); /* expand.scm:513: ##sys#expand-0 */ t3=*((C_word*)lf[36]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[11]; av2[4]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k5907 in k5887 in loop2 in loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5909,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[108],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5911 in k5887 in loop2 in loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5913,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5921,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:512: expand */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6440(t4,t3,((C_word*)t0)[4]);} /* k5919 in k5911 in k5887 in loop2 in loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5921,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* expand.scm:512: ##sys#append */ t3=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5926 in k5887 in loop2 in loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5928,2,av);} a=C_alloc(8); t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5940,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t4=C_u_i_car(((C_word*)t0)[2]); if(C_truep(C_i_symbolp(t4))){ t5=C_u_i_car(((C_word*)t0)[2]); t6=( /* expand.scm:520: comp */ f_5764(((C_word*)((C_word*)t0)[4])[1],lf[109],t5) ); if(C_truep(t6)){ t7=t3; f_5940(t7,t6);} else{ t7=C_u_i_car(((C_word*)t0)[2]); /* expand.scm:521: comp */ t8=t3; f_5940(t8,( /* expand.scm:521: comp */ f_5764(((C_word*)((C_word*)t0)[4])[1],lf[110],t7) ));}} else{ t5=t3; f_5940(t5,C_SCHEME_FALSE);}} else{ t4=t3; f_5940(t4,C_SCHEME_FALSE);}} else{ t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[5]); /* expand.scm:530: loop2 */ t4=((C_word*)((C_word*)t0)[8])[1]; f_5878(t4,((C_word*)t0)[3],t3);}} /* k5938 in k5926 in k5887 in loop2 in loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_5940(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_5940,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5947,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5951,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* expand.scm:523: scheme#reverse */ t4=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[6]); /* expand.scm:529: loop */ t3=((C_word*)((C_word*)t0)[7])[1]; f_5859(t3,((C_word*)t0)[2],((C_word*)t0)[5],t2);}} /* k5945 in k5938 in k5926 in k5887 in loop2 in loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5947,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[108],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5949 in k5938 in k5926 in k5887 in loop2 in loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_5951,2,av);} a=C_alloc(12); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=( /* expand.scm:524: comp */ f_5764(((C_word*)((C_word*)t0)[3])[1],lf[109],t3) ); if(C_truep(t4)){ if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ t5=C_a_i_list(&a,1,((C_word*)t0)[2]); /* expand.scm:522: ##sys#append */ t6=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[4]); t6=C_a_i_cons(&a,2,lf[55],t5); t7=C_a_i_list(&a,2,((C_word*)t0)[2],t6); /* expand.scm:522: ##sys#append */ t8=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5989,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t6=C_u_i_cdr(((C_word*)t0)[2]); t7=C_a_i_list(&a,1,((C_word*)t0)[4]); /* expand.scm:528: ##sys#append */ t8=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t5; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* k5987 in k5949 in k5938 in k5926 in k5887 in loop2 in loop in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_5989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5989,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[110],t1); t3=C_a_i_list(&a,1,t2); /* expand.scm:522: ##sys#append */ t4=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_6100,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6103,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6242,a[2]=t4,a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_6242(t6,t2,t1,C_SCHEME_END_OF_LIST);} /* k6101 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_6103,2,av);} a=C_alloc(15); t2=C_i_check_list_2(t1,lf[17]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6109,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6208,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=((C_word)li58),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_6208(t7,t3,t1);} /* k6107 in k6101 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_6109,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6113,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6135,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t6,a[5]=t7,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* expand.scm:551: scheme#reverse */ t9=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k6111 in k6107 in k6101 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_6113,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[55],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6133 in k6107 in k6101 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6135,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6138,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* expand.scm:552: scheme#reverse */ t4=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6136 in k6133 in k6107 in k6101 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6138,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6141,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* expand.scm:553: scheme#reverse */ t4=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6139 in k6136 in k6133 in k6107 in k6101 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_6141,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6144,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6146,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word)li57),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_6146(t6,t2,((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k6142 in k6139 in k6136 in k6133 in k6107 in k6101 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6144,2,av);} /* expand.scm:535: ##sys#append */ t2=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1155 in k6139 in k6136 in k6133 in k6107 in k6101 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6146(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_6146,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6153,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=t1,a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_pairp(t2))){ t6=C_i_pairp(t3); t7=t5; f_6153(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} else{ t6=t5; f_6153(t6,C_SCHEME_FALSE);}} /* k6151 in map-loop1155 in k6139 in k6136 in k6133 in k6107 in k6101 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6153(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){ C_save_and_reclaim_args((void *)trf_6153,2,t0,t1);} a=C_alloc(17); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6179,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_slot(((C_word*)t0)[3],C_fix(0)); t4=C_slot(((C_word*)t0)[4],C_fix(0)); if(C_truep(C_slot(((C_word*)t0)[5],C_fix(0)))){ /* expand.scm:549: ##sys#expand-multiple-values-assignment */ t5=*((C_word*)lf[94]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=C_i_car(t3); t6=t2;{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[97],t5,t4); f_6179(2,av2);}}} else{ t2=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[8],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6177 in k6151 in map-loop1155 in k6139 in k6136 in k6133 in k6107 in k6101 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_6179,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=C_slot(((C_word*)t0)[4],C_fix(1)); t7=C_slot(((C_word*)t0)[5],C_fix(1)); t8=((C_word*)((C_word*)t0)[6])[1]; f_6146(t8,((C_word*)t0)[7],t5,t6,t7);} /* map-loop1107 in k6101 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6208(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_6208,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_list(&a,2,t3,lf[111]); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* foldl1130 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6242(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,5)))){ C_save_and_reclaim_args((void *)trf_6242,4,t0,t1,t2,t3);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6272,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(0)); t8=t6; t9=t3; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6266,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6268,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp); /* expand.scm:540: ##sys#decompose-lambda-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[98]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[98]+1); av2[1]=t10; av2[2]=t7; av2[3]=t11; tp(4,av2);}} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k6264 in foldl1130 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6266,2,av);} /* expand.scm:540: ##sys#append */ t2=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a6267 in foldl1130 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6268,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6270 in foldl1130 in k6098 in fini in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6272,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_6242(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* fini/syntax in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6284(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ C_save_and_reclaim_args((void *)trf_6284,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(14); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6292,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6294,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=((C_word)li63),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_6294(t10,t6,t5,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* k6290 in fini/syntax in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6292,2,av);} /* expand.scm:558: fini */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5847(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* loop in fini/syntax in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6294(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_6294,5,t0,t1,t2,t3,t4);} a=C_alloc(11); if(C_truep(t4)){ t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6316,a[2]=t2,a[3]=t1,a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* expand.scm:562: scheme#reverse */ t10=*((C_word*)lf[73]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t5=C_i_pairp(t2); if(C_truep(C_i_not(t5))){ /* expand.scm:563: loop */ t16=t1; t17=t2; t18=t3; t19=C_SCHEME_TRUE; t1=t16; t2=t17; t3=t18; t4=t19; goto loop;} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6368,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_i_car(t2); if(C_truep(C_i_listp(t7))){ t8=t2; t9=C_u_i_car(t8); t10=C_i_length(t9); if(C_truep(C_fixnum_greater_or_equal_p(C_fix(3),t10))){ t11=C_i_caar(t2); if(C_truep(C_i_symbolp(t11))){ t12=t2; t13=C_u_i_car(t12); t14=C_u_i_car(t13); /* expand.scm:567: comp */ t15=t6; f_6368(t15,( /* expand.scm:567: comp */ f_5764(((C_word*)((C_word*)t0)[3])[1],lf[105],t14) ));} else{ t12=t6; f_6368(t12,C_SCHEME_FALSE);}} else{ t11=t6; f_6368(t11,C_SCHEME_FALSE);}} else{ t8=t6; f_6368(t8,C_SCHEME_FALSE);}}}} /* k6314 in loop in fini/syntax in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_6316,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6319,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6321,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word)li62),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_6321(t6,t2,t1);} /* k6317 in k6314 in loop in fini/syntax in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_6319,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[112],t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop1215 in k6314 in loop in fini/syntax in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6321(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_6321,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6366 in loop in fini/syntax in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6368(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_6368,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6372,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t5=C_i_car(t3); t6=C_i_cadr(t3); t7=C_eqp(t5,t6); if(C_truep(t7)){ /* expand.scm:443: ##sys#syntax-error-hook */ t8=*((C_word*)lf[46]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t4; av2[2]=lf[113]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t8=t4;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_6372(2,av2);}}} else{ /* expand.scm:574: loop */ t2=((C_word*)((C_word*)t0)[4])[1]; f_6294(t2,((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_TRUE);}} /* k6370 in k6366 in loop in fini/syntax in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_6372,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); /* expand.scm:573: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_6294(t5,((C_word*)t0)[6],t3,t4,C_SCHEME_FALSE);} /* expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6440(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,6)))){ C_save_and_reclaim_args((void *)trf_6440,3,t0,t1,t2);} a=C_alloc(11); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6446,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word)li66),tmp=(C_word)a,a+=9,tmp)); t6=((C_word*)t4)[1]; f_6446(t6,t1,t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6446(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,5)))){ C_save_and_reclaim_args((void *)trf_6446,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(15); t6=C_i_pairp(t2); if(C_truep(C_i_not(t6))){ /* expand.scm:582: fini */ t7=((C_word*)((C_word*)t0)[2])[1]; f_5847(t7,t1,t3,t4,t5,t2);} else{ t7=C_i_car(t2); t8=t7; t9=t2; t10=C_u_i_cdr(t9); t11=C_i_pairp(t8); t12=(C_truep(t11)?C_u_i_car(t8):C_SCHEME_FALSE); t13=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6466,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t2,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],a[10]=t10,a[11]=((C_word*)t0)[5],a[12]=t8,a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[7],tmp=(C_word)a,a+=15,tmp); if(C_truep(t12)){ t14=C_i_symbolp(t12); t15=t13; f_6466(t15,(C_truep(t14)?t12:C_SCHEME_FALSE));} else{ t14=t13; f_6466(t14,C_SCHEME_FALSE);}}} /* k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6466(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,6)))){ C_save_and_reclaim_args((void *)trf_6466,2,t0,t1);} a=C_alloc(14); t2=C_i_symbolp(t1); if(C_truep(C_i_not(t2))){ /* expand.scm:588: fini */ t3=((C_word*)((C_word*)t0)[2])[1]; f_5847(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} else{ t3=( /* expand.scm:590: comp */ f_5764(((C_word*)((C_word*)t0)[8])[1],lf[104],t1) ); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6484,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[12],tmp=(C_word)a,a+=10,tmp); /* expand.scm:591: ##sys#check-syntax */ t5=*((C_word*)lf[59]+1);{ C_word av2[7]; av2[0]=t5; av2[1]=t4; av2[2]=lf[104]; av2[3]=((C_word*)t0)[12]; av2[4]=lf[119]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} else{ t4=( /* expand.scm:617: comp */ f_5764(((C_word*)((C_word*)t0)[8])[1],lf[105],t1) ); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6621,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* expand.scm:618: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=t5; av2[2]=lf[105]; av2[3]=((C_word*)t0)[12]; av2[4]=lf[120]; av2[5]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t5=( /* expand.scm:620: comp */ f_5764(((C_word*)((C_word*)t0)[8])[1],lf[106],t1) ); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6633,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); /* expand.scm:622: ##sys#check-syntax */ t7=*((C_word*)lf[59]+1);{ C_word av2[7]; av2[0]=t7; av2[1]=t6; av2[2]=lf[106]; av2[3]=((C_word*)t0)[12]; av2[4]=lf[121]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}} else{ t6=( /* expand.scm:624: comp */ f_5764(((C_word*)((C_word*)t0)[8])[1],lf[108],t1) ); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6669,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t8=C_i_cdr(((C_word*)t0)[12]); /* expand.scm:625: ##sys#append */ t9=*((C_word*)lf[74]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t7=C_a_i_list1(&a,1,t1); if(C_truep(C_i_member(t7,((C_word*)t0)[4]))){ /* expand.scm:630: fini */ t8=((C_word*)((C_word*)t0)[2])[1]; f_5847(t8,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} else{ t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6685,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* expand.scm:631: ##sys#expand-0 */ t9=*((C_word*)lf[36]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[12]; av2[3]=((C_word*)t0)[11]; av2[4]=((C_word*)t0)[14]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}}}}}} /* k6482 in k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_6484,2,av);} a=C_alloc(12); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6489,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word)li65),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_6489(t5,((C_word*)t0)[8],((C_word*)t0)[9]);} /* loop2 in k6482 in k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6489(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,6)))){ C_save_and_reclaim_args((void *)trf_6489,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_cadr(t2); t4=t3; t5=C_i_pairp(t4); if(C_truep(C_i_not(t5))){ t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6502,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* expand.scm:595: ##sys#check-syntax */ t7=*((C_word*)lf[59]+1);{ C_word av2[7]; av2[0]=t7; av2[1]=t6; av2[2]=lf[104]; av2[3]=t2; av2[4]=lf[115]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}} else{ t6=C_i_car(t4); if(C_truep(C_i_pairp(t6))){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6555,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t2,a[5]=t4,a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* expand.scm:605: ##sys#check-syntax */ t8=*((C_word*)lf[59]+1);{ C_word av2[7]; av2[0]=t8; av2[1]=t7; av2[2]=lf[104]; av2[3]=t2; av2[4]=lf[117]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t8+1)))(7,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6569,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* expand.scm:610: ##sys#check-syntax */ t8=*((C_word*)lf[59]+1);{ C_word av2[7]; av2[0]=t8; av2[1]=t7; av2[2]=lf[104]; av2[3]=t2; av2[4]=lf[118]; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t8+1)))(7,av2);}}}} /* k6500 in loop2 in k6482 in k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6502,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6505,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t3=((C_word*)t0)[4]; t4=C_u_i_car(t3); t5=C_eqp(t4,((C_word*)t0)[2]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; /* expand.scm:443: ##sys#syntax-error-hook */ t7=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=lf[113]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_6505(2,av2);}}} /* k6503 in k6500 in loop2 in k6482 in k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_6505,2,av);} a=C_alloc(12); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); t4=C_i_cddr(((C_word*)t0)[4]); if(C_truep(C_i_pairp(t4))){ t5=C_i_caddr(((C_word*)t0)[4]); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[5]); t7=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[6]); /* expand.scm:598: loop */ t8=((C_word*)((C_word*)t0)[7])[1]; f_6446(t8,((C_word*)t0)[8],((C_word*)t0)[9],t3,t6,t7);} else{ t5=C_a_i_cons(&a,2,lf[114],((C_word*)t0)[5]); t6=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[6]); /* expand.scm:598: loop */ t7=((C_word*)((C_word*)t0)[7])[1]; f_6446(t7,((C_word*)t0)[8],((C_word*)t0)[9],t3,t5,t6);}} /* k6553 in loop2 in k6482 in k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6555,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6562,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cddr(((C_word*)t0)[4]); /* expand.scm:608: chicken.syntax#expand-curried-define */ t4=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=t3; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6560 in k6553 in loop2 in k6482 in k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6562,2,av);} /* expand.scm:607: loop2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6489(t2,((C_word*)t0)[3],t1);} /* k6567 in loop2 in k6482 in k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){ C_save_and_reclaim((void *)f_6569,2,av);} a=C_alloc(18); t2=C_u_i_car(((C_word*)t0)[2]); t3=C_a_i_list1(&a,1,t2); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); t5=C_u_i_cdr(((C_word*)t0)[2]); t6=C_i_cddr(((C_word*)t0)[4]); t7=C_a_i_cons(&a,2,t5,t6); t8=C_a_i_cons(&a,2,lf[76],t7); t9=C_a_i_cons(&a,2,t8,((C_word*)t0)[5]); t10=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[6]); /* expand.scm:613: loop */ t11=((C_word*)((C_word*)t0)[7])[1]; f_6446(t11,((C_word*)t0)[8],((C_word*)t0)[9],t4,t9,t10);} /* k6619 in k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6621,2,av);} /* expand.scm:619: fini/syntax */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6284(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k6631 in k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_6633,2,av);} a=C_alloc(9); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); t4=C_i_caddr(((C_word*)t0)[2]); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]); t6=C_a_i_cons(&a,2,C_SCHEME_TRUE,((C_word*)t0)[5]); /* expand.scm:623: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_6446(t7,((C_word*)t0)[7],((C_word*)t0)[8],t3,t5,t6);} /* k6667 in k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6669,2,av);} /* expand.scm:625: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6446(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k6683 in k6464 in loop in expand in k5751 in ##sys#canonicalize-body in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_6685,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ /* expand.scm:633: fini */ t3=((C_word*)((C_word*)t0)[3])[1]; f_5847(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[9]); /* expand.scm:634: loop */ t4=((C_word*)((C_word*)t0)[10])[1]; f_6446(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* chicken.syntax#match-expression in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_6755,5,av);} a=C_alloc(14); t5=C_SCHEME_END_OF_LIST; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6758,a[2]=t6,a[3]=t4,a[4]=t8,a[5]=((C_word)li70),tmp=(C_word)a,a+=6,tmp)); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6835,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:655: mwalk */ t11=((C_word*)t8)[1]; f_6758(t11,t10,t2,t3);} /* mwalk in chicken.syntax#match-expression in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6758(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_6758,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t3); if(C_truep(C_i_not(t4))){ t5=C_i_assq(t3,((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6772,a[2]=t2,a[3]=((C_word)li69),tmp=(C_word)a,a+=4,tmp); /* expand.scm:646: g1305 */ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=( /* expand.scm:646: g1305 */ f_6772(t6,t5) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(C_i_memq(t3,((C_word*)t0)[3]))){ t6=C_a_i_cons(&a,2,t3,t2); t7=C_a_i_cons(&a,2,t6,((C_word*)((C_word*)t0)[2])[1]); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_eqp(t2,t3); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} else{ if(C_truep(C_i_pairp(t2))){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6812,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t6=t2; t7=C_u_i_car(t6); t8=C_i_car(t3); /* expand.scm:652: mwalk */ t10=t5; t11=t7; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* g1305 in mwalk in chicken.syntax#match-expression in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static C_word C_fcall f_6772(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_i_cdr(t1); return(C_i_equalp(((C_word*)t0)[2],t2));} /* k6810 in mwalk in chicken.syntax#match-expression in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6812,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* expand.scm:653: mwalk */ t6=((C_word*)((C_word*)t0)[4])[1]; f_6758(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6833 in chicken.syntax#match-expression in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6835,2,av);} if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.syntax#expand-curried-define in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_6837,5,av);} a=C_alloc(13); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6840,a[2]=t6,a[3]=t8,a[4]=((C_word)li72),tmp=(C_word)a,a+=5,tmp)); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6884,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* expand.scm:669: loop */ t11=((C_word*)t8)[1]; f_6840(t11,t10,t2,t3);} /* loop in chicken.syntax#expand-curried-define in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6840(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_6840,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_car(t2); if(C_truep(C_i_symbolp(t4))){ t5=t2; t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_u_i_car(t5)); t7=t2; t8=C_u_i_cdr(t7); t9=C_a_i_cons(&a,2,t8,t3); t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=C_a_i_cons(&a,2,lf[76],t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t5=t2; t6=C_u_i_car(t5); t7=t2; t8=C_u_i_cdr(t7); t9=C_a_i_cons(&a,2,t8,t3); t10=C_a_i_cons(&a,2,lf[76],t9); t11=C_a_i_list(&a,1,t10); /* expand.scm:668: loop */ t13=t1; t14=t6; t15=t11; t1=t13; t2=t14; t3=t15; goto loop;}} /* k6882 in chicken.syntax#expand-curried-define in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_6884,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,lf[104],((C_word*)((C_word*)t0)[3])[1],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.syntax#syntax-error in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_6892,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6900,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* expand.scm:681: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6898 in chicken.syntax#syntax-error in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6900,2,av);}{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[127]+1); av2[3]=lf[128]; av2[4]=t1; C_apply(5,av2);}} /* ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6903,4,av);} a=C_alloc(5); if(C_truep(C_i_nullp(*((C_word*)lf[125]+1)))){ /* expand.scm:694: ##sys#syntax-error-hook */ t4=*((C_word*)lf[46]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6970,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* expand.scm:695: chicken.base#open-output-string */ t5=*((C_word*)lf[147]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k6912 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6914,2,av);} a=C_alloc(6); t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6919,a[2]=t4,a[3]=((C_word)li77),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_6919(t6,((C_word*)t0)[2],t2);} /* loop in k6912 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6919(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6919,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_caar(t2); t4=C_eqp(lf[144],t3); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6939,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* expand.scm:691: scheme#cadar */ t6=*((C_word*)lf[72]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t2; t6=C_u_i_cdr(t5); /* expand.scm:692: loop */ t8=t1; t9=t6; t1=t8; t2=t9; goto loop;}}} /* k6937 in loop in k6912 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6939,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6943,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* expand.scm:691: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_6919(t6,t3,t5);} /* k6941 in k6937 in loop in k6912 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6943,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6956 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6958,2,av);} /* expand.scm:688: ##sys#get */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[145]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[145]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[146]; tp(4,av2);}} /* k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_6970,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6972,a[2]=t2,a[3]=((C_word)li75),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6979,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6988,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t6,a[7]=((C_word)li78),tmp=(C_word)a,a+=8,tmp)); t8=((C_word*)t6)[1]; f_6988(t8,t4,*((C_word*)lf[125]+1));} /* outstr in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6972(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_6972,3,t0,t1,t2);} /* expand.scm:697: ##sys#print */ t3=*((C_word*)lf[130]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6977 in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6979,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6986,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:732: chicken.base#get-output-string */ t3=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6984 in k6977 in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6986,2,av);} /* expand.scm:732: ##sys#syntax-error-hook */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_6988(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_6988,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6998,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* expand.scm:700: outstr */ t4=((C_word*)t0)[2]; f_6972(t4,t3,((C_word*)t0)[5]);} else{ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7024,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t2,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t4=C_i_car(t2); /* expand.scm:707: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[12]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k6996 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_6998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6998,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7001,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* expand.scm:701: outstr */ t3=((C_word*)t0)[2]; f_6972(t3,t2,lf[134]);} /* k6999 in k6996 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7001,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7004,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:702: ##sys#print */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7002 in k6999 in k6996 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7004,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7007,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:703: outstr */ t3=((C_word*)t0)[2]; f_6972(t3,t2,lf[133]);} /* k7005 in k7002 in k6999 in k6996 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7007,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7010,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7017,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=C_i_car(*((C_word*)lf[125]+1)); /* expand.scm:704: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7008 in k7005 in k7002 in k6999 in k6996 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7010,2,av);} /* expand.scm:705: outstr */ t2=((C_word*)t0)[2]; f_6972(t2,((C_word*)t0)[3],lf[132]);} /* k7015 in k7005 in k7002 in k6999 in k6996 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7017,2,av);} /* expand.scm:704: ##sys#print */ t2=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_7024,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7027,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6914,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6958,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* expand.scm:688: chicken.syntax#strip-syntax */ t7=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7027,2,av);} a=C_alloc(8); t2=t1; if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7036,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* expand.scm:710: outstr */ t4=((C_word*)t0)[2]; f_6972(t4,t3,((C_word*)t0)[7]);} else{ t3=((C_word*)t0)[8]; t4=C_u_i_cdr(t3); /* expand.scm:731: loop */ t5=((C_word*)((C_word*)t0)[9])[1]; f_6988(t5,((C_word*)t0)[3],t4);}} /* k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7036,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7039,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* expand.scm:711: outstr */ t3=((C_word*)t0)[3]; f_6972(t3,t2,lf[143]);} /* k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_7039,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7042,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* expand.scm:712: ##sys#print */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7040 in k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7042,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7045,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* expand.scm:713: outstr */ t3=((C_word*)t0)[3]; f_6972(t3,t2,lf[142]);} /* k7043 in k7040 in k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7045,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7048,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:714: ##sys#print */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7046 in k7043 in k7040 in k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7048,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7051,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:715: outstr */ t3=((C_word*)t0)[3]; f_6972(t3,t2,lf[141]);} /* k7049 in k7046 in k7043 in k7040 in k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_7051,2,av);} a=C_alloc(13); t2=C_i_length(((C_word*)t0)[2]); t3=C_eqp(C_fix(1),t2); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7064,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7068,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_i_car(((C_word*)t0)[2]); /* expand.scm:720: scheme#symbol->string */ t7=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7079,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7083,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7085,a[2]=t7,a[3]=((C_word)li76),tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_7085(t9,t5,((C_word*)t0)[2]);}} /* k7062 in k7049 in k7046 in k7043 in k7040 in k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7064,2,av);} /* expand.scm:717: outstr */ t2=((C_word*)t0)[2]; f_6972(t2,((C_word*)t0)[3],t1);} /* k7066 in k7049 in k7046 in k7043 in k7040 in k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7068,2,av);} /* expand.scm:718: scheme#string-append */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[135]; av2[3]=t1; av2[4]=lf[136]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7077 in k7049 in k7046 in k7043 in k7040 in k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7079,2,av);} /* expand.scm:722: outstr */ t2=((C_word*)t0)[2]; f_6972(t2,((C_word*)t0)[3],t1);} /* k7081 in k7049 in k7046 in k7043 in k7040 in k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7083,2,av);} /* expand.scm:723: scheme#string-append */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[137]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in k7049 in k7046 in k7043 in k7040 in k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7085(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7085,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=lf[138]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7099,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* expand.scm:729: scheme#symbol->string */ t5=*((C_word*)lf[49]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k7097 in loop in k7049 in k7046 in k7043 in k7040 in k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7099,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7103,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* expand.scm:730: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_7085(t6,t3,t5);} /* k7101 in k7097 in loop in k7049 in k7046 in k7043 in k7040 in k7037 in k7034 in k7025 in k7022 in loop in k6968 in ##sys#syntax-error/context in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7103,2,av);} /* expand.scm:728: scheme#string-append */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[139]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[140]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* chicken.syntax#get-line-number in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7124,3,av);} a=C_alloc(4); if(C_truep(*((C_word*)lf[123]+1))){ if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); if(C_truep(C_i_symbolp(t4))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7144,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:739: chicken.internal#hash-table-ref */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[149]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[149]+1); av2[1]=t5; av2[2]=*((C_word*)lf[123]+1); av2[3]=t4; tp(4,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7142 in chicken.syntax#get-line-number in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7144,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7148,a[2]=((C_word*)t0)[2],a[3]=((C_word)li80),tmp=(C_word)a,a+=4,tmp); /* expand.scm:739: g1394 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* expand.scm:739: g1394 */ f_7148(t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g1394 in k7142 in chicken.syntax#get-line-number in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static C_word C_fcall f_7148(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_i_assq(((C_word*)t0)[2],t1); return((C_truep(t2)?C_i_cdr(t2):C_SCHEME_FALSE));} /* ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +8,c,2)))){ C_save_and_reclaim((void*)f_7163,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+8); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; t6=C_i_nullp(t5); t7=(C_truep(t6)?C_SCHEME_FALSE:C_i_car(t5)); t8=t7; t9=C_i_nullp(t5); t10=(C_truep(t9)?C_SCHEME_END_OF_LIST:C_i_cdr(t5)); t11=t10; t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7173,a[2]=t11,a[3]=t3,a[4]=t2,a[5]=t1,a[6]=t4,a[7]=t8,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_nullp(t11))){ /* expand.scm:748: ##sys#current-environment */ t13=*((C_word*)lf[4]+1);{ C_word *av2=av; av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=t12;{ C_word *av2=av; av2[0]=t13; av2[1]=C_i_car(t11); f_7173(2,av2);}}} /* k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,5)))){ C_save_and_reclaim((void *)f_7173,2,av);} a=C_alloc(39); t2=t1; t3=C_i_nullp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7178,a[2]=t8,a[3]=((C_word)li82),tmp=(C_word)a,a+=4,tmp)); t16=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7190,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li83),tmp=(C_word)a,a+=5,tmp)); t17=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7217,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); t18=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7262,a[2]=((C_word)li86),tmp=(C_word)a,a+=3,tmp)); t19=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7268,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp)); t20=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7295,a[2]=t8,a[3]=t6,a[4]=t12,a[5]=t14,a[6]=t10,a[7]=t2,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)t0)[7])){ t21=C_mutate((C_word*)lf[124]+1 /* (set! ##sys#syntax-error-culprit ...) */,((C_word*)t0)[7]); t22=t20; f_7295(t22,t21);} else{ t21=t20; f_7295(t21,C_SCHEME_UNDEFINED);}} /* test in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7178(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7178,5,t0,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7185,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* expand.scm:751: pred */ t6=t3;{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k7183 in test in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7185,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* expand.scm:751: err */ t2=((C_word*)((C_word*)t0)[3])[1]; f_7190(t2,((C_word*)t0)[2],((C_word*)t0)[4]);}} /* err in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7190(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7190,3,t0,t1,t2);} a=C_alloc(6); t3=*((C_word*)lf[124]+1); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7194,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* expand.scm:755: get-line-number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[148]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[148]+1); av2[1]=t4; av2[2]=*((C_word*)lf[124]+1); tp(3,av2);}} /* k7192 in err in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7194,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7201,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7208,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* expand.scm:758: scheme#symbol->string */ t5=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7215,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* expand.scm:759: scheme#symbol->string */ t5=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k7199 in k7192 in err in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7201,2,av);} /* expand.scm:756: ##sys#syntax-error-hook */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7206 in k7192 in err in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_7208,2,av);} /* expand.scm:758: scheme#string-append */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[150]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[151]; av2[5]=t1; av2[6]=lf[152]; av2[7]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k7213 in k7192 in err in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7215,2,av);} /* expand.scm:759: scheme#string-append */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[153]; av2[3]=t1; av2[4]=lf[154]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* lambda-list? in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7217,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7221,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:763: ##sys#extended-lambda-list? */ t4=*((C_word*)lf[67]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7219 in lambda-list? in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7221,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7229,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=( f_7229(((C_word*)t0)[3]) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in k7219 in lambda-list? in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static C_word C_fcall f_7229(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check; loop:{} t2=C_i_nullp(t1); if(C_truep(t2)){ return(t2);} else{ if(C_truep(C_i_symbolp(t1))){ return(C_SCHEME_TRUE);} else{ if(C_truep(C_i_pairp(t1))){ t3=t1; t4=C_u_i_car(t3); if(C_truep(C_i_symbolp(t4))){ t5=t1; t6=C_u_i_cdr(t5); t8=t6; t1=t8; goto loop;} else{ return(C_SCHEME_FALSE);}} else{ return(C_SCHEME_FALSE);}}}} /* variable? in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7262,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_symbolp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* proper-list? in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7268,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7274,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=( f_7274(t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in proper-list? in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static C_word C_fcall f_7274(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} t2=C_eqp(t1,C_SCHEME_END_OF_LIST); if(C_truep(t2)){ return(t2);} else{ if(C_truep(C_i_pairp(t1))){ t3=t1; t4=C_u_i_cdr(t3); t6=t4; t1=t6; goto loop;} else{ return(C_SCHEME_FALSE);}}} /* k7293 in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7295(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_7295,2,t0,t1);} a=C_alloc(12); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7300,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li91),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_7300(t5,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* walk in k7293 in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7300(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_7300,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_vectorp(t3))){ t4=C_i_vector_ref(t3,C_fix(0)); t5=t4; t6=C_block_size(t3); t7=C_fixnum_greaterp(t6,C_fix(1)); t8=(C_truep(t7)?C_i_vector_ref(t3,C_fix(1)):C_fix(0)); t9=t8; t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7319,a[2]=t9,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t5,a[6]=t1,a[7]=t2,tmp=(C_word)a,a+=8,tmp); t11=C_eqp(t6,C_fix(1)); if(C_truep(t11)){ t12=t10; f_7319(t12,C_fix(1));} else{ t12=C_fixnum_greaterp(t6,C_fix(2)); t13=t10; f_7319(t13,(C_truep(t12)?C_i_vector_ref(t3,C_fix(2)):C_fix(99999)));}} else{ if(C_truep(C_immp(t3))){ t4=C_eqp(t3,t2); if(C_truep(C_i_not(t4))){ /* expand.scm:804: err */ t5=((C_word*)((C_word*)t0)[2])[1]; f_7190(t5,t1,lf[158]);} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ if(C_truep(C_i_symbolp(t3))){ t4=t3; t5=C_eqp(t4,lf[159]); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(t4,lf[160]); if(C_truep(t6)){ /* expand.scm:808: test */ t7=((C_word*)((C_word*)t0)[4])[1]; f_7178(t7,t1,t2,*((C_word*)lf[161]+1),lf[162]);} else{ t7=C_eqp(t4,lf[163]); if(C_truep(t7)){ /* expand.scm:809: test */ t8=((C_word*)((C_word*)t0)[4])[1]; f_7178(t8,t1,t2,((C_word*)((C_word*)t0)[5])[1],lf[164]);} else{ t8=C_eqp(t4,lf[165]); if(C_truep(t8)){ /* expand.scm:810: test */ t9=((C_word*)((C_word*)t0)[4])[1]; f_7178(t9,t1,t2,*((C_word*)lf[166]+1),lf[167]);} else{ t9=C_eqp(t4,lf[168]); if(C_truep(t9)){ /* expand.scm:811: test */ t10=((C_word*)((C_word*)t0)[4])[1]; f_7178(t10,t1,t2,((C_word*)((C_word*)t0)[6])[1],lf[169]);} else{ t10=C_eqp(t4,lf[170]); if(C_truep(t10)){ /* expand.scm:812: test */ t11=((C_word*)((C_word*)t0)[4])[1]; f_7178(t11,t1,t2,*((C_word*)lf[171]+1),lf[172]);} else{ t11=C_eqp(t4,lf[173]); if(C_truep(t11)){ /* expand.scm:813: test */ t12=((C_word*)((C_word*)t0)[4])[1]; f_7178(t12,t1,t2,*((C_word*)lf[174]+1),lf[175]);} else{ t12=C_eqp(t4,lf[176]); if(C_truep(t12)){ /* expand.scm:814: test */ t13=((C_word*)((C_word*)t0)[4])[1]; f_7178(t13,t1,t2,((C_word*)((C_word*)t0)[7])[1],lf[177]);} else{ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7497,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word)li90),tmp=(C_word)a,a+=5,tmp); /* expand.scm:816: test */ t14=((C_word*)((C_word*)t0)[4])[1]; f_7178(t14,t1,t2,t13,lf[178]);}}}}}}}}} else{ t4=C_i_pairp(t3); if(C_truep(C_i_not(t4))){ /* expand.scm:823: err */ t5=((C_word*)((C_word*)t0)[2])[1]; f_7190(t5,t1,lf[179]);} else{ t5=C_i_pairp(t2); if(C_truep(C_i_not(t5))){ /* expand.scm:824: err */ t6=((C_word*)((C_word*)t0)[2])[1]; f_7190(t6,t1,lf[180]);} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7554,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_i_car(t2); t8=C_i_car(t3); /* expand.scm:826: walk */ t15=t6; t16=t7; t17=t8; t1=t15; t2=t16; t3=t17; goto loop;}}}}}} /* k7317 in walk in k7293 in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7319(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_7319,2,t0,t1);} a=C_alloc(11); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7324,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word)li89),tmp=(C_word)a,a+=9,tmp)); t6=((C_word*)t4)[1]; f_7324(t6,((C_word*)t0)[6],((C_word*)t0)[7],C_fix(0));} /* doloop1473 in k7317 in walk in k7293 in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7324(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7324,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t4)){ if(C_truep(C_fixnum_lessp(t3,((C_word*)t0)[2]))){ /* expand.scm:797: err */ t5=((C_word*)((C_word*)t0)[3])[1]; f_7190(t5,t1,lf[155]);} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7343,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[5]))){ /* expand.scm:799: err */ t6=((C_word*)((C_word*)t0)[3])[1]; f_7190(t6,t5,lf[156]);} else{ t6=C_i_pairp(t2); if(C_truep(C_i_not(t6))){ /* expand.scm:801: err */ t7=((C_word*)((C_word*)t0)[3])[1]; f_7190(t7,t5,lf[157]);} else{ t7=C_i_car(t2); /* expand.scm:802: walk */ t8=((C_word*)((C_word*)t0)[6])[1]; f_7300(t8,t5,t7,((C_word*)t0)[7]);}}}} /* k7341 in doloop1473 in k7317 in walk in k7293 in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7343,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_7324(t4,((C_word*)t0)[5],t2,t3);} /* a7496 in walk in k7293 in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7497,3,av);} t3=(C_truep(C_i_symbolp(t2))?( /* expand.scm:819: lookup */ f_3718(t2,((C_word*)t0)[2]) ):C_SCHEME_FALSE); if(C_truep(C_i_symbolp(t3))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(t3,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_eqp(t4,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k7552 in walk in k7293 in k7171 in ##sys#check-syntax in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7554,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* expand.scm:827: walk */ t6=((C_word*)((C_word*)t0)[4])[1]; f_7300(t6,((C_word*)t0)[5],t3,t5);} /* chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7607(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_7607,3,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7613,a[2]=t3,a[3]=t2,a[4]=((C_word)li100),tmp=(C_word)a,a+=5,tmp); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_record2(&a,2,lf[30],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7613,5,av);} a=C_alloc(11); t5=C_SCHEME_END_OF_LIST; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_i_listp(t3); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7620,a[2]=t6,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=t1,a[8]=t2,tmp=(C_word)a,a+=9,tmp); if(C_truep(t7)){ t9=t8;{ C_word *av2=av; av2[0]=t9; av2[1]=t7; f_7620(2,av2);}} else{ /* expand.scm:837: ##sys#error */ t9=*((C_word*)lf[31]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=lf[184]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} /* k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,c,4)))){ C_save_and_reclaim((void *)f_7620,2,av);} a=C_alloc(40); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7622,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li93),tmp=(C_word)a,a+=6,tmp)); t11=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7710,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word)li97),tmp=(C_word)a,a+=5,tmp)); t12=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7932,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t13=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7957,a[2]=t9,a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=((C_word*)t0)[2],a[6]=t3,a[7]=((C_word)li99),tmp=(C_word)a,a+=8,tmp)); if(C_truep(((C_word*)t0)[5])){ /* expand.scm:927: handler */ t14=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t14; av2[1]=((C_word*)t0)[7]; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t3)[1]; av2[4]=((C_word*)t5)[1]; ((C_proc)C_fast_retrieve_proc(t14))(5,av2);}} else{ t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8091,a[2]=t9,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8095,a[2]=((C_word*)t0)[6],a[3]=t14,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* expand.scm:933: rename */ t16=((C_word*)t3)[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t16; av2[1]=t15; av2[2]=((C_word*)t0)[8]; f_7622(3,av2);}}} /* rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ av[0]=t0; av[1]=t1; av[2]=t2; C_save_and_reclaim((void *)f_7622,3,av);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7636,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=t2; t5=C_u_i_car(t4); /* expand.scm:840: rename */ t7=t3; t8=t5; t1=t7; t2=t8; c=3; goto loop;} else{ if(C_truep(C_i_vectorp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7657,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7661,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* expand.scm:842: scheme#vector->list */ t5=*((C_word*)lf[183]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_i_symbolp(t2); t4=C_i_not(t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7670,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(t4)){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=t4; f_7670(2,av2);}} else{ /* expand.scm:843: chicken.keyword#keyword? */ t6=*((C_word*)lf[11]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}} /* k7634 in rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7636,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7640,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* expand.scm:840: rename */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; f_7622(3,av2);}} /* k7638 in k7634 in rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7640,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7655 in rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7657,2,av);} /* expand.scm:842: scheme#list->vector */ t2=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7659 in rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7661,2,av);} /* expand.scm:842: rename */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_7622(3,av2);}} /* k7668 in rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7670,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_i_assq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[4])[1]); if(C_truep(t2)){ t3=((C_word*)t0)[3]; t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_cdr(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* expand.scm:849: macro-alias */ f_3735(t3,((C_word*)t0)[2],((C_word*)t0)[5]);}}} /* k7688 in k7668 in rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7690,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* compare in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ av[0]=t0; av[1]=t1; av[2]=t2; av[3]=t3; C_save_and_reclaim((void *)f_7710,4,av);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7732,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=t2; t6=C_u_i_car(t5); t7=t3; t8=C_u_i_car(t7); /* expand.scm:857: compare */ t14=t4; t15=t6; t16=t8; t1=t14; t2=t15; t3=t16; c=4; goto loop;} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ if(C_truep(C_i_vectorp(t2))){ if(C_truep(C_i_vectorp(t3))){ t4=t2; t5=C_block_size(t4); t6=t5; t7=t3; t8=C_block_size(t7); t9=C_eqp(t6,t8); if(C_truep(t9)){ t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7769,a[2]=t6,a[3]=t11,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=((C_word)li94),tmp=(C_word)a,a+=8,tmp)); t13=((C_word*)t11)[1]; f_7769(t13,t1,C_fix(0),C_SCHEME_TRUE);} else{ t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7813,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_symbolp(t2))){ t5=C_i_symbolp(t3); t6=t4; f_7813(t6,(C_truep(t5)?C_SCHEME_TRUE:C_SCHEME_FALSE));} else{ t5=t4; f_7813(t5,C_SCHEME_FALSE);}}}} /* k7730 in compare in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7732,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* expand.scm:858: compare */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t5; f_7710(4,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* doloop1547 in compare in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7769(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7769,4,t0,t1,t2,t3);} a=C_alloc(5); t4=C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]); t5=(C_truep(t4)?t4:C_i_not(t3)); if(C_truep(t5)){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_fixnum_plus(t2,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7790,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); t9=C_i_vector_ref(((C_word*)t0)[4],t2); t10=C_i_vector_ref(((C_word*)t0)[5],t2); /* expand.scm:864: compare */ t11=((C_word*)((C_word*)t0)[6])[1];{ C_word av2[4]; av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; f_7710(4,av2);}}} /* k7788 in doloop1547 in compare in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7790,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_7769(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k7811 in compare in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7813(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7813,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_getprop(t2,lf[7],C_SCHEME_FALSE); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7821,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ t5=t4; f_7821(t5,t3);} else{ t5=((C_word*)t0)[2]; t6=((C_word*)t0)[5]; t7=( /* expand.scm:888: lookup */ f_3718(t5,t6) ); if(C_truep(t7)){ t8=t4; f_7821(t8,t7);} else{ t8=((C_word*)t0)[2]; t9=t4; f_7821(t9,t8);}}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7819 in k7811 in compare in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7821(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7821,2,t0,t1);} a=C_alloc(4); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_getprop(t3,lf[7],C_SCHEME_FALSE); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7829,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ t6=t5; f_7829(t6,t4);} else{ t6=((C_word*)t0)[2]; t7=((C_word*)t0)[4]; t8=( /* expand.scm:888: lookup */ f_3718(t6,t7) ); if(C_truep(t8)){ t9=t5; f_7829(t9,t8);} else{ t9=((C_word*)t0)[2]; t10=t5; f_7829(t10,t9);}}} /* k7827 in k7819 in k7811 in compare in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7829(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7829,2,t0,t1);} a=C_alloc(5); t2=t1; if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ if(C_truep(C_i_symbolp(t2))){ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=C_eqp(((C_word*)t0)[2],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7866,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* expand.scm:876: ##sys#macro-environment */ t4=*((C_word*)lf[20]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ if(C_truep(C_i_symbolp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7894,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* expand.scm:880: ##sys#macro-environment */ t4=*((C_word*)lf[20]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=C_eqp(((C_word*)t0)[2],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* g1590 in k7864 in k7827 in k7819 in k7811 in compare in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static C_word C_fcall f_7851(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_i_cdr(t1); return(C_eqp(t2,((C_word*)t0)[2]));} /* k7864 in k7827 in k7819 in k7811 in compare in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7866,2,av);} a=C_alloc(4); t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7851,a[2]=((C_word*)t0)[3],a[3]=((C_word)li95),tmp=(C_word)a,a+=4,tmp); /* expand.scm:875: g1590 */ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=( /* expand.scm:875: g1590 */ f_7851(t3,t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g1599 in k7892 in k7827 in k7819 in k7811 in compare in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static C_word C_fcall f_7879(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_i_cdr(t1); return(C_eqp(((C_word*)t0)[2],t2));} /* k7892 in k7827 in k7819 in k7811 in compare in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7894,2,av);} a=C_alloc(4); t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7879,a[2]=((C_word*)t0)[3],a[3]=((C_word)li96),tmp=(C_word)a,a+=4,tmp); /* expand.scm:880: g1599 */ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=( /* expand.scm:880: g1599 */ f_7879(t3,t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* assq-reverse in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static C_word C_fcall f_7932(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t2))){ return(C_SCHEME_FALSE);} else{ t3=C_i_cdar(t2); t4=C_eqp(t3,t1); if(C_truep(t4)){ t5=t2; return(C_u_i_car(t5));} else{ t5=t2; t6=C_u_i_cdr(t5); t8=t1; t9=t6; t1=t8; t2=t9; goto loop;}}} /* mirror-rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_fcall f_7957(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_7957,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7971,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=t2; t5=C_u_i_car(t4); /* expand.scm:902: mirror-rename */ t7=t3; t8=t5; t1=t7; t2=t8; goto loop;} else{ if(C_truep(C_i_vectorp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7992,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7996,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* expand.scm:904: scheme#vector->list */ t5=*((C_word*)lf[183]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_i_symbolp(t2); t4=C_i_not(t3); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8005,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=t4; f_8005(2,av2);}} else{ /* expand.scm:905: chicken.keyword#keyword? */ t6=*((C_word*)lf[11]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}} /* k7969 in mirror-rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7971,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7975,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* expand.scm:902: mirror-rename */ t6=((C_word*)((C_word*)t0)[4])[1]; f_7957(t6,t3,t5);} /* k7973 in k7969 in mirror-rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7975,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7990 in mirror-rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7992,2,av);} /* expand.scm:904: scheme#list->vector */ t2=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7994 in mirror-rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_7996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7996,2,av);} /* expand.scm:904: mirror-rename */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7957(t2,((C_word*)t0)[3],t1);} /* k8003 in mirror-rename in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8005,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=( /* expand.scm:907: lookup */ f_3718(((C_word*)t0)[2],((C_word*)t0)[4]) ); t3=( /* expand.scm:908: assq-reverse */ f_7932(((C_word*)t0)[2],((C_word*)((C_word*)t0)[6])[1]) ); if(C_truep(t3)){ t4=((C_word*)t0)[3]; t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_car(t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_not(t2))){ /* expand.scm:912: rename */ t4=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; f_7622(3,av2);}} else{ if(C_truep(C_i_pairp(t2))){ /* expand.scm:914: rename */ t4=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; f_7622(3,av2);}} else{ t4=((C_word*)t0)[2]; t5=C_i_getprop(t4,lf[9],C_SCHEME_FALSE); if(C_truep(t5)){ t6=((C_word*)t0)[3]; t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* expand.scm:921: rename */ t6=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; f_7622(3,av2);}}}}}}} /* k8089 in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8091,2,av);} /* expand.scm:933: mirror-rename */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7957(t2,((C_word*)t0)[3],t1);} /* k8093 in k7618 in a7612 in chicken.syntax#make-er/ir-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8095,2,av);} /* expand.scm:933: handler */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* chicken.syntax#er-macro-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8100,3,av);} /* expand.scm:935: make-er/ir-transformer */ f_7607(t1,t2,C_SCHEME_TRUE);} /* chicken.syntax#ir-macro-transformer in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8106,3,av);} /* expand.scm:936: make-er/ir-transformer */ f_7607(t1,t2,C_SCHEME_FALSE);} /* k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8119,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8122,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12159,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12161,a[2]=((C_word)li179),tmp=(C_word)a,a+=3,tmp); /* expand.scm:965: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8122,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12044,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12046,a[2]=((C_word)li178),tmp=(C_word)a,a+=3,tmp); /* expand.scm:973: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8126,2,av);} a=C_alloc(9); t2=C_mutate(&lf[102] /* (set! chicken.syntax#import-definition ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8129,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12009,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12011,a[2]=((C_word)li173),tmp=(C_word)a,a+=3,tmp); /* expand.scm:995: ##sys#er-transformer */ t6=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8129,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8132,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11716,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11718,a[2]=((C_word)li172),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1004: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8132,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8136,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1056: ##sys#macro-environment */ t3=*((C_word*)lf[20]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8136,2,av);} a=C_alloc(9); t2=C_mutate((C_word*)lf[189]+1 /* (set! ##sys#initial-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8139,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11541,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11543,a[2]=((C_word)li167),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1060: ##sys#er-transformer */ t6=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8139,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8142,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11514,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11516,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1120: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8142,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8145,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11504,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11506,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1130: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8145,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8148,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11333,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11335,a[2]=((C_word)li164),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1139: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8148,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8151,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11249,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11251,a[2]=((C_word)li161),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1174: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8151,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8154,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11226,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11228,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1197: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8154,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8158,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1204: ##sys#macro-environment */ t3=*((C_word*)lf[20]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8158,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[190]+1 /* (set! ##sys#chicken.module-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8162,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1207: ##sys#macro-environment */ t4=*((C_word*)lf[20]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8162,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8165,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11209,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11211,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1212: ##sys#er-transformer */ t6=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 */ static void C_ccall f_8165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8165,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8168,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11192,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11194,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1220: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in k3698 in ... */ static void C_ccall f_8168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8168,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8171,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11175,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11177,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1228: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in k3701 in ... */ static void C_ccall f_8171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8171,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11158,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11160,a[2]=((C_word)li156),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1236: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in k3705 in ... */ static void C_ccall f_8174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8174,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8178,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11031,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11033,a[2]=((C_word)li155),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1245: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in k3710 in ... */ static void C_ccall f_8178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8178,2,av);} a=C_alloc(10); t2=C_mutate((C_word*)lf[99]+1 /* (set! chicken.syntax#define-definition ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8182,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10984,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10986,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1273: ##sys#er-transformer */ t6=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in k3714 in ... */ static void C_ccall f_8182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8182,2,av);} a=C_alloc(10); t2=C_mutate((C_word*)lf[100]+1 /* (set! chicken.syntax#define-syntax-definition ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8185,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10932,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10934,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1287: ##sys#er-transformer */ t6=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in k4186 in ... */ static void C_ccall f_8185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8185,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8188,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10910,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10912,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1300: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in k8117 in ... */ static void C_ccall f_8188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8188,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8191,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10888,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10890,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1309: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in k8120 in ... */ static void C_ccall f_8191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8191,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8194,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10866,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10868,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1318: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in k8124 in ... */ static void C_ccall f_8194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8194,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8197,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10822,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10824,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1327: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in k8127 in ... */ static void C_ccall f_8197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8197,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8200,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10785,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10787,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1339: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in k8130 in ... */ static void C_ccall f_8200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8200,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8203,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10733,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10735,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1353: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in k8134 in ... */ static void C_ccall f_8203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8203,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8206,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10350,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10352,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1369: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in k8137 in ... */ static void C_ccall f_8206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8206,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8209,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10114,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10116,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1434: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in k8140 in ... */ static void C_ccall f_8209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8209,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8212,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10063,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10065,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1479: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in k8143 in ... */ static void C_ccall f_8212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8212,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8215,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9867,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9869,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1492: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in ... */ static void C_ccall f_8215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8215,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8218,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9574,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9576,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1521: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in ... */ static void C_ccall f_8218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8218,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8221,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9541,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9543,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp); /* expand.scm:1573: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in ... */ static void C_ccall f_8221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8221,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8224,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9505,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9507,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp); /* synrules.scm:46: ##sys#er-transformer */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in ... */ static void C_ccall f_8224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_8224,2,av);} a=C_alloc(20); t2=C_a_i_provide(&a,1,lf[191]); t3=C_mutate((C_word*)lf[50]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8226,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[193]+1 /* (set! chicken.internal.syntax-rules#drop-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8232,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[194]+1 /* (set! chicken.internal.syntax-rules#take-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8268,a[2]=((C_word)li108),tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9485,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* expand.scm:1584: chicken.internal#macro-subset */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[198]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[198]+1); av2[1]=t6; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* chicken.internal.syntax-rules#syntax-rules-mismatch in k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_8226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8226,3,av);} /* synrules.scm:68: ##sys#syntax-error-hook */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[192]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.internal.syntax-rules#drop-right in k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_8232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_8232,4,av);} a=C_alloc(7); t4=C_i_length(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8242,a[2]=t3,a[3]=t6,a[4]=((C_word)li105),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_8242(t8,t1,t4,t2);} /* loop in chicken.internal.syntax-rules#drop-right in k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_fcall f_8242(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_8242,4,t0,t1,t2,t3);} a=C_alloc(4); t4=t2; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_greaterp(t4,t5))){ t6=C_i_car(t3); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8260,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=C_fixnum_difference(t2,C_fix(1)); t10=t3; t11=C_u_i_cdr(t10); /* synrules.scm:77: loop */ t13=t8; t14=t9; t15=t11; t1=t13; t2=t14; t3=t15; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k8258 in loop in chicken.internal.syntax-rules#drop-right in k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_8260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8260,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.internal.syntax-rules#take-right in k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_8268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_8268,4,av);} a=C_alloc(4); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8278,a[2]=t3,a[3]=((C_word)li107),tmp=(C_word)a,a+=4,tmp); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=( f_8278(t5,t4,t2) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* loop in chicken.internal.syntax-rules#take-right in k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static C_word C_fcall f_8278(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_stack_overflow_check; loop:{} t3=t1; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greaterp(t3,t4))){ t5=C_fixnum_difference(t1,C_fix(1)); t6=C_i_cdr(t2); t8=t5; t9=t6; t1=t8; t2=t9; goto loop;} else{ t5=t2; return(t5);}} /* k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_8305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8305,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[201]); t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[202]); t5=C_mutate(((C_word *)((C_word*)t0)[5])+1,lf[203]); t6=C_mutate(((C_word *)((C_word*)t0)[6])+1,lf[204]); t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,lf[205]); t8=C_mutate(((C_word *)((C_word*)t0)[8])+1,lf[206]); t9=C_mutate(((C_word *)((C_word*)t0)[9])+1,lf[207]); t10=C_mutate(((C_word *)((C_word*)t0)[10])+1,lf[208]); t11=C_mutate(((C_word *)((C_word*)t0)[11])+1,lf[209]); t12=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8320,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[14],a[5]=((C_word*)t0)[15],a[6]=((C_word*)t0)[16],a[7]=((C_word*)t0)[17],a[8]=((C_word*)t0)[18],a[9]=((C_word*)t0)[19],a[10]=((C_word*)t0)[20],a[11]=((C_word*)t0)[21],a[12]=((C_word*)t0)[22],a[13]=((C_word*)t0)[23],a[14]=((C_word*)t0)[24],a[15]=((C_word*)t0)[25],a[16]=((C_word*)t0)[26],a[17]=((C_word*)t0)[27],a[18]=((C_word*)t0)[28],a[19]=((C_word*)t0)[29],a[20]=((C_word*)t0)[30],a[21]=((C_word*)t0)[31],a[22]=((C_word*)t0)[32],a[23]=((C_word*)t0)[33],a[24]=((C_word*)t0)[34],a[25]=((C_word*)t0)[35],a[26]=((C_word*)t0)[36],a[27]=((C_word*)t0)[37],a[28]=((C_word*)t0)[38],a[29]=((C_word*)t0)[39],a[30]=((C_word*)t0)[4],a[31]=((C_word*)t0)[40],a[32]=((C_word*)t0)[2],a[33]=((C_word*)t0)[41],a[34]=((C_word*)t0)[42],a[35]=((C_word*)t0)[43],a[36]=((C_word*)t0)[44],a[37]=((C_word*)t0)[45],a[38]=((C_word*)t0)[46],a[39]=((C_word*)t0)[3],a[40]=((C_word*)t0)[6],a[41]=((C_word*)t0)[7],a[42]=((C_word*)t0)[47],a[43]=((C_word*)t0)[5],a[44]=((C_word*)t0)[9],a[45]=((C_word*)t0)[10],a[46]=((C_word*)t0)[11],a[47]=((C_word*)t0)[48],a[48]=((C_word*)t0)[49],a[49]=((C_word*)t0)[50],a[50]=((C_word*)t0)[8],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:105: r */ t13=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t12; av2[2]=lf[236]; ((C_proc)C_fast_retrieve_proc(t13))(3,av2);}} /* k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_8320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8320,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8324,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[2],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:106: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[235]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static void C_ccall f_8324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8324,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[210]); t4=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8329,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[18],a[17]=((C_word*)t0)[19],a[18]=((C_word*)t0)[20],a[19]=((C_word*)t0)[21],a[20]=((C_word*)t0)[22],a[21]=((C_word*)t0)[23],a[22]=((C_word*)t0)[24],a[23]=((C_word*)t0)[25],a[24]=((C_word*)t0)[26],a[25]=((C_word*)t0)[27],a[26]=((C_word*)t0)[28],a[27]=((C_word*)t0)[29],a[28]=((C_word*)t0)[30],a[29]=((C_word*)t0)[2],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[43],a[43]=((C_word*)t0)[44],a[44]=((C_word*)t0)[45],a[45]=((C_word*)t0)[46],a[46]=((C_word*)t0)[47],a[47]=((C_word*)t0)[48],a[48]=((C_word*)t0)[49],a[49]=((C_word*)t0)[3],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:108: r */ t5=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[234]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in ... */ static void C_ccall f_8329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8329,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[211]); t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[212]); t5=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8335,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[16],a[14]=((C_word*)t0)[17],a[15]=((C_word*)t0)[18],a[16]=((C_word*)t0)[19],a[17]=((C_word*)t0)[20],a[18]=((C_word*)t0)[21],a[19]=((C_word*)t0)[22],a[20]=((C_word*)t0)[23],a[21]=((C_word*)t0)[24],a[22]=((C_word*)t0)[25],a[23]=((C_word*)t0)[26],a[24]=((C_word*)t0)[27],a[25]=((C_word*)t0)[28],a[26]=((C_word*)t0)[29],a[27]=((C_word*)t0)[30],a[28]=((C_word*)t0)[2],a[29]=((C_word*)t0)[31],a[30]=((C_word*)t0)[32],a[31]=((C_word*)t0)[33],a[32]=((C_word*)t0)[34],a[33]=((C_word*)t0)[35],a[34]=((C_word*)t0)[36],a[35]=((C_word*)t0)[37],a[36]=((C_word*)t0)[38],a[37]=((C_word*)t0)[39],a[38]=((C_word*)t0)[40],a[39]=((C_word*)t0)[3],a[40]=((C_word*)t0)[4],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:111: r */ t6=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[233]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in ... */ static void C_ccall f_8335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8335,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8339,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[2],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:112: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[232]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in ... */ static void C_ccall f_8339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8339,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8343,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[43],a[43]=((C_word*)t0)[2],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:113: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[231]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in ... */ static void C_ccall f_8343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8343,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8347,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[2],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:114: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[230]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in ... */ static void C_ccall f_8347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8347,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8351,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[2],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:115: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[60]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in ... */ static void C_ccall f_8351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8351,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8355,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[2],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:116: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[92]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in ... */ static void C_ccall f_8355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8355,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[213]); t4=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8360,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[18],a[17]=((C_word*)t0)[19],a[18]=((C_word*)t0)[20],a[19]=((C_word*)t0)[21],a[20]=((C_word*)t0)[22],a[21]=((C_word*)t0)[23],a[22]=((C_word*)t0)[24],a[23]=((C_word*)t0)[25],a[24]=((C_word*)t0)[26],a[25]=((C_word*)t0)[27],a[26]=((C_word*)t0)[2],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[3],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:118: r */ t5=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[229]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in ... */ static void C_ccall f_8360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8360,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[214]); t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[215]); t5=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8367,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[16],a[14]=((C_word*)t0)[17],a[15]=((C_word*)t0)[18],a[16]=((C_word*)t0)[19],a[17]=((C_word*)t0)[20],a[18]=((C_word*)t0)[21],a[19]=((C_word*)t0)[22],a[20]=((C_word*)t0)[23],a[21]=((C_word*)t0)[24],a[22]=((C_word*)t0)[25],a[23]=((C_word*)t0)[26],a[24]=((C_word*)t0)[27],a[25]=((C_word*)t0)[28],a[26]=((C_word*)t0)[29],a[27]=((C_word*)t0)[30],a[28]=((C_word*)t0)[31],a[29]=((C_word*)t0)[32],a[30]=((C_word*)t0)[33],a[31]=((C_word*)t0)[34],a[32]=((C_word*)t0)[35],a[33]=((C_word*)t0)[36],a[34]=((C_word*)t0)[37],a[35]=((C_word*)t0)[38],a[36]=((C_word*)t0)[39],a[37]=((C_word*)t0)[40],a[38]=((C_word*)t0)[41],a[39]=((C_word*)t0)[42],a[40]=((C_word*)t0)[43],a[41]=((C_word*)t0)[44],a[42]=((C_word*)t0)[2],a[43]=((C_word*)t0)[45],a[44]=((C_word*)t0)[3],a[45]=((C_word*)t0)[46],a[46]=((C_word*)t0)[4],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:122: r */ t6=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[228]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in ... */ static void C_ccall f_8367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8367,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[216]); t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8372,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[2],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:124: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[219]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in ... */ static void C_ccall f_8372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8372,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8376,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[43],a[43]=((C_word*)t0)[44],a[44]=((C_word*)t0)[45],a[45]=((C_word*)t0)[46],a[46]=((C_word*)t0)[47],a[47]=((C_word*)t0)[48],a[48]=((C_word*)t0)[49],a[49]=((C_word*)t0)[50],a[50]=((C_word*)t0)[2],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:125: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[227]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in ... */ static void C_ccall f_8376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8376,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8380,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[2],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:126: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[226]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in ... */ static void C_ccall f_8380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ C_save_and_reclaim((void *)f_8380,2,av);} a=C_alloc(56); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8384,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[2],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); /* synrules.scm:127: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[225]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in ... */ static void C_ccall f_8384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(55,c,2)))){ C_save_and_reclaim((void *)f_8384,2,av);} a=C_alloc(55); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|54,a[1]=(C_word)f_8389,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[2],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],tmp=(C_word)a,a+=55,tmp); /* synrules.scm:129: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[55]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in k8216 in ... */ static void C_ccall f_8389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(55,c,2)))){ C_save_and_reclaim((void *)f_8389,2,av);} a=C_alloc(55); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|54,a[1]=(C_word)f_8393,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],tmp=(C_word)a,a+=55,tmp); /* synrules.scm:130: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[194]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in k8219 in ... */ static void C_ccall f_8393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(55,c,2)))){ C_save_and_reclaim((void *)f_8393,2,av);} a=C_alloc(55); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|54,a[1]=(C_word)f_8397,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[2],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],tmp=(C_word)a,a+=55,tmp); /* synrules.scm:131: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[193]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in a9506 in ... */ static void C_ccall f_8397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(54,c,2)))){ C_save_and_reclaim((void *)f_8397,2,av);} a=C_alloc(54); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|53,a[1]=(C_word)f_8401,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[2],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],tmp=(C_word)a,a+=54,tmp); /* synrules.scm:133: r */ t4=((C_word*)t0)[54];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[50]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in k9509 in ... */ static void C_ccall f_8401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(122,c,6)))){ C_save_and_reclaim((void *)f_8401,2,av);} a=C_alloc(122); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8403,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word)li109),tmp=(C_word)a,a+=5,tmp)); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8409,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[15],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[16],a[13]=((C_word)li111),tmp=(C_word)a,a+=14,tmp)); t5=C_mutate(((C_word *)((C_word*)t0)[15])+1,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8503,a[2]=((C_word*)t0)[17],a[3]=((C_word*)t0)[18],a[4]=((C_word*)t0)[19],a[5]=((C_word*)t0)[20],a[6]=((C_word*)t0)[21],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[22],a[9]=((C_word)li113),tmp=(C_word)a,a+=10,tmp)); t6=C_mutate(((C_word *)((C_word*)t0)[22])+1,(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8569,a[2]=((C_word*)t0)[23],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[24],a[6]=((C_word*)t0)[25],a[7]=((C_word*)t0)[26],a[8]=((C_word*)t0)[17],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[22],a[12]=((C_word*)t0)[27],a[13]=((C_word*)t0)[28],a[14]=((C_word*)t0)[29],a[15]=((C_word*)t0)[30],a[16]=((C_word*)t0)[31],a[17]=((C_word*)t0)[32],a[18]=((C_word)li114),tmp=(C_word)a,a+=19,tmp)); t7=C_mutate(((C_word *)((C_word*)t0)[24])+1,(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_8750,a[2]=((C_word*)t0)[33],a[3]=((C_word*)t0)[34],a[4]=((C_word*)t0)[35],a[5]=((C_word*)t0)[36],a[6]=((C_word*)t0)[37],a[7]=((C_word*)t0)[38],a[8]=((C_word*)t0)[17],a[9]=((C_word*)t0)[16],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[39],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[40],a[15]=((C_word*)t0)[22],a[16]=((C_word*)t0)[27],a[17]=((C_word)li115),tmp=(C_word)a,a+=18,tmp)); t8=C_mutate(((C_word *)((C_word*)t0)[21])+1,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8877,a[2]=((C_word*)t0)[23],a[3]=((C_word*)t0)[41],a[4]=((C_word*)t0)[42],a[5]=((C_word*)t0)[21],a[6]=((C_word*)t0)[25],a[7]=((C_word*)t0)[14],a[8]=((C_word*)t0)[43],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[27],a[11]=((C_word*)t0)[29],a[12]=((C_word*)t0)[32],a[13]=((C_word)li117),tmp=(C_word)a,a+=14,tmp)); t9=C_mutate(((C_word *)((C_word*)t0)[19])+1,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9017,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[19],a[4]=((C_word*)t0)[44],a[5]=((C_word*)t0)[14],a[6]=((C_word*)t0)[45],a[7]=((C_word*)t0)[46],a[8]=((C_word*)t0)[47],a[9]=((C_word*)t0)[48],a[10]=((C_word*)t0)[49],a[11]=((C_word*)t0)[50],a[12]=((C_word*)t0)[51],a[13]=((C_word)li119),tmp=(C_word)a,a+=14,tmp)); t10=C_mutate(((C_word *)((C_word*)t0)[20])+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9209,a[2]=((C_word*)t0)[23],a[3]=((C_word*)t0)[20],a[4]=((C_word*)t0)[32],a[5]=((C_word)li120),tmp=(C_word)a,a+=6,tmp)); t11=C_mutate(((C_word *)((C_word*)t0)[46])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9286,a[2]=((C_word*)t0)[46],a[3]=((C_word*)t0)[51],a[4]=((C_word)li121),tmp=(C_word)a,a+=5,tmp)); t12=C_mutate(((C_word *)((C_word*)t0)[32])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9375,a[2]=((C_word*)t0)[51],a[3]=((C_word)li122),tmp=(C_word)a,a+=4,tmp)); t13=C_mutate(((C_word *)((C_word*)t0)[51])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9403,a[2]=((C_word*)t0)[3],a[3]=((C_word)li123),tmp=(C_word)a,a+=4,tmp)); t14=C_mutate(((C_word *)((C_word*)t0)[47])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9427,a[2]=((C_word*)t0)[47],a[3]=((C_word*)t0)[51],a[4]=((C_word)li124),tmp=(C_word)a,a+=5,tmp)); t15=C_mutate(((C_word *)((C_word*)t0)[44])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9447,a[2]=((C_word*)t0)[3],a[3]=((C_word)li126),tmp=(C_word)a,a+=4,tmp)); /* synrules.scm:345: make-transformer */ t16=((C_word*)((C_word*)t0)[6])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t16; av2[1]=((C_word*)t0)[52]; av2[2]=((C_word*)t0)[53]; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} /* f_8403 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_8403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8403,3,av);} /* synrules.scm:136: c */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* f_8409 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_8409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(52,c,3)))){ C_save_and_reclaim((void *)f_8409,3,av);} a=C_alloc(52); t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]); t4=t3; t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[2])[1]); t6=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[6])[1],t5); t7=C_a_i_list(&a,1,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8437,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t8,a[5]=((C_word*)t0)[9],a[6]=t4,a[7]=t1,tmp=(C_word)a,a+=8,tmp); t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t11=t10; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=((C_word*)t12)[1]; t14=((C_word*)((C_word*)t0)[10])[1]; t15=C_i_check_list_2(t2,lf[17]); t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8447,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[12],a[5]=t9,tmp=(C_word)a,a+=6,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8461,a[2]=t12,a[3]=t18,a[4]=t14,a[5]=t13,a[6]=((C_word)li110),tmp=(C_word)a,a+=7,tmp)); t20=((C_word*)t18)[1]; f_8461(t20,t16,t2);} /* k8435 */ static void C_ccall f_8437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_8437,2,av);} a=C_alloc(27); t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1); t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t2); t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[6],t3); t5=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,2,lf[187],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8445 */ static void C_ccall f_8447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_8447,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]); t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],t2); t4=C_a_i_list(&a,1,t3); /* synrules.scm:139: ##sys#append */ t5=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop2682 */ static void C_fcall f_8461(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8461,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8486,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* synrules.scm:142: g2688 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8484 in map-loop2682 */ static void C_ccall f_8486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8486,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8461(t6,((C_word*)t0)[5],t5);} /* f_8503 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_8503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_8503,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8510,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_cdr(t4); if(C_truep(C_i_pairp(t5))){ t6=C_i_cddr(t2); t7=t3; f_8510(t7,C_i_nullp(t6));} else{ t6=t3; f_8510(t6,C_SCHEME_FALSE);}} else{ t4=t3; f_8510(t4,C_SCHEME_FALSE);}} /* k8508 */ static void C_fcall f_8510(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_8510,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=C_i_cdar(((C_word*)t0)[2]); t3=t2; t4=C_i_cadr(((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8546,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t5,a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* synrules.scm:151: process-match */ t7=((C_word*)((C_word*)t0)[10])[1];{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)((C_word*)t0)[9])[1]; av2[3]=t3; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t7))(5,av2);}} else{ /* synrules.scm:158: ##sys#syntax-error-hook */ t2=*((C_word*)lf[46]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[217]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k8529 in k8544 in k8508 */ static void C_ccall f_8531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_8531,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8535,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8539,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* synrules.scm:157: meta-variables */ t5=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[8]; av2[3]=C_fix(0); av2[4]=C_SCHEME_END_OF_LIST; av2[5]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* k8533 in k8529 in k8544 in k8508 */ static void C_ccall f_8535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_8535,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],t1); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,2,((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8537 in k8529 in k8544 in k8508 */ static void C_ccall f_8539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8539,2,av);} /* synrules.scm:155: process-template */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t1; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* a8540 in k8544 in k8508 */ static void C_ccall f_8541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8541,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8544 in k8508 */ static void C_ccall f_8546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){ C_save_and_reclaim((void *)f_8546,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8531,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8541,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp); /* synrules.scm:152: process-pattern */ t6=((C_word*)((C_word*)t0)[9])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)((C_word*)t0)[10])[1]; av2[4]=t5; av2[5]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t6))(6,av2);}} /* f_8569 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_8569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_8569,5,av);} a=C_alloc(24); if(C_truep(C_i_symbolp(t3))){ if(C_truep(C_i_memq(t3,((C_word*)t0)[2]))){ t5=C_a_i_list(&a,2,lf[218],t3); t6=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],t5); t7=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],t2,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_list(&a,1,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_8603,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); /* synrules.scm:167: segment-pattern? */ t6=((C_word*)((C_word*)t0)[17])[1];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t3; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}} /* k8601 */ static void C_ccall f_8603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){ C_save_and_reclaim((void *)f_8603,2,av);} a=C_alloc(35); if(C_truep(t1)){ /* synrules.scm:168: process-segment-match */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[4]); t3=C_a_i_list(&a,1,t2); t4=t3; t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[7])[1],((C_word*)((C_word*)t0)[6])[1]); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8639,a[2]=t6,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=t4,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8643,a[2]=t7,a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[11],tmp=(C_word)a,a+=7,tmp); t9=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[12])[1],((C_word*)((C_word*)t0)[6])[1]); t10=((C_word*)t0)[5]; t11=C_u_i_car(t10); /* synrules.scm:172: process-match */ t12=((C_word*)((C_word*)t0)[11])[1];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t8; av2[2]=t9; av2[3]=t11; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t12))(5,av2);}} else{ if(C_truep(C_i_vectorp(((C_word*)t0)[5]))){ t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[4]); t3=C_a_i_list(&a,1,t2); t4=t3; t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[13])[1],((C_word*)((C_word*)t0)[6])[1]); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8696,a[2]=t6,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=t4,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t8=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[14])[1],((C_word*)((C_word*)t0)[6])[1]); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8704,a[2]=((C_word*)t0)[11],a[3]=t7,a[4]=t9,tmp=(C_word)a,a+=5,tmp); /* synrules.scm:178: scheme#vector->list */ t11=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t2=C_i_nullp(((C_word*)t0)[5]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8717,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[15],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[16],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=t3; f_8717(t4,t2);} else{ t4=C_booleanp(((C_word*)t0)[5]); t5=t3; f_8717(t5,(C_truep(t4)?t4:C_charp(((C_word*)t0)[5])));}}}}} /* k8637 in k8601 */ static void C_ccall f_8639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_8639,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2); t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],t3); t5=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,1,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8641 in k8601 */ static void C_ccall f_8643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_8643,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8647,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]); t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); /* synrules.scm:173: process-match */ t7=((C_word*)((C_word*)t0)[6])[1];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=t6; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t7))(5,av2);}} /* k8645 in k8641 in k8601 */ static void C_ccall f_8647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8647,2,av);} /* synrules.scm:170: ##sys#append */ t2=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k8694 in k8601 */ static void C_ccall f_8696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_8696,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2); t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],t3); t5=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,1,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8702 in k8601 */ static void C_ccall f_8704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8704,2,av);} /* synrules.scm:177: process-match */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* k8715 in k8601 */ static void C_fcall f_8717(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,1)))){ C_save_and_reclaim_args((void *)trf_8717,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ t2=C_a_i_list(&a,2,lf[219],((C_word*)t0)[2]); t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t2); t4=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_a_i_list(&a,2,lf[219],((C_word*)t0)[2]); t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[4],t2); t4=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* f_8750 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_8750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){ C_save_and_reclaim((void *)f_8750,4,av);} a=C_alloc(25); t4=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8754,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=t1,a[16]=((C_word*)t0)[13],a[17]=((C_word*)t0)[14],a[18]=((C_word*)t0)[15],tmp=(C_word)a,a+=19,tmp); t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[16])[1],((C_word*)((C_word*)t0)[6])[1]); t6=C_i_car(t3); /* synrules.scm:185: process-match */ t7=((C_word*)((C_word*)t0)[15])[1];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=t5; av2[3]=t6; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t7))(5,av2);}} /* k8752 */ static void C_ccall f_8754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(75,c,4)))){ C_save_and_reclaim((void *)f_8754,2,av);} a=C_alloc(75); t2=t1; t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); t4=t3; t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[3]); t6=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[5])[1],t5); t7=C_a_i_list(&a,1,t6); t8=t7; t9=C_i_cddr(((C_word*)t0)[6]); t10=C_i_length(t9); t11=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[7])[1],((C_word*)((C_word*)t0)[5])[1],t10); t12=t11; t13=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[8])[1],((C_word*)t0)[3]); t14=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[5])[1]); t15=C_a_i_list(&a,2,t13,t14); t16=t15; t17=((C_word*)t0)[6]; t18=C_u_i_cdr(t17); t19=C_u_i_cdr(t18); t20=C_i_length(t19); t21=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[9])[1],((C_word*)((C_word*)t0)[5])[1],t20); t22=t21; t23=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_8833,a[2]=t22,a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[13],a[7]=((C_word*)t0)[14],a[8]=t16,a[9]=t12,a[10]=t8,a[11]=t4,a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[16],a[14]=((C_word*)t0)[8],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[5],a[17]=t2,tmp=(C_word)a,a+=18,tmp); t24=((C_word*)t0)[6]; t25=C_u_i_cdr(t24); t26=C_u_i_cdr(t25); /* synrules.scm:193: process-match */ t27=((C_word*)((C_word*)t0)[18])[1];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t27; av2[1]=t23; av2[2]=((C_word*)((C_word*)t0)[8])[1]; av2[3]=t26; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t27))(5,av2);}} /* k8807 in k8831 in k8752 */ static void C_ccall f_8809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(60,c,1)))){ C_save_and_reclaim((void *)f_8809,2,av);} a=C_alloc(60); t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1); t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],t2); t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],t3); t5=C_a_i_list(&a,4,((C_word*)((C_word*)t0)[6])[1],((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],t4); t6=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[9],t5); t7=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[10],t6); t8=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[11],t7); t9=((C_word*)t0)[12];{ C_word *av2=av; av2[0]=t9; av2[1]=C_a_i_list(&a,1,t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* k8831 in k8752 */ static void C_ccall f_8833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(43,c,3)))){ C_save_and_reclaim((void *)f_8833,2,av);} a=C_alloc(43); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8809,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[13])[1],((C_word*)((C_word*)t0)[14])[1]); t6=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[15])[1],((C_word*)((C_word*)t0)[16])[1],C_fix(-1)); t7=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[7])[1],t5,t6); t8=C_a_i_list(&a,1,t7); /* synrules.scm:186: ##sys#append */ t9=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t4; av2[2]=((C_word*)t0)[17]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* f_8877 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_8877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_8877,6,av);} a=C_alloc(15); if(C_truep(C_i_symbolp(t2))){ if(C_truep(C_i_memq(t2,((C_word*)t0)[2]))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8901,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* synrules.scm:205: mapit */ t7=t4;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} else{ t6=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8907,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t4,a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],tmp=(C_word)a,a+=15,tmp); /* synrules.scm:206: segment-pattern? */ t7=((C_word*)((C_word*)t0)[12])[1];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* k8899 */ static void C_ccall f_8901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_8901,2,av);} a=C_alloc(9); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list1(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8905 */ static void C_ccall f_8907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,5)))){ C_save_and_reclaim((void *)f_8907,2,av);} a=C_alloc(26); if(C_truep(t1)){ t2=C_i_cddr(((C_word*)t0)[2]); t3=C_i_length(t2); t4=t3; t5=C_eqp(t4,C_fix(0)); t6=(C_truep(t5)?((C_word*)t0)[3]:C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[3],t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8920,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=t4,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t9=((C_word*)t0)[2]; t10=C_u_i_car(t9); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8936,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[8],a[4]=t7,a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word)li116),tmp=(C_word)a,a+=8,tmp); /* synrules.scm:212: process-pattern */ t12=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t12; av2[1]=t8; av2[2]=t10; av2[3]=((C_word*)((C_word*)t0)[9])[1]; av2[4]=t11; av2[5]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t12))(6,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8982,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[13])[1],((C_word*)t0)[3]); /* synrules.scm:223: process-pattern */ t6=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t2; av2[2]=t4; av2[3]=t5; av2[4]=((C_word*)t0)[8]; av2[5]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t6))(6,av2);}} else{ if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9011,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); /* synrules.scm:226: scheme#vector->list */ t3=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} /* k8918 in k8905 */ static void C_ccall f_8920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_8920,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8924,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cddr(((C_word*)t0)[3]); t5=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[6]); /* synrules.scm:220: process-pattern */ t6=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=((C_word*)t0)[8]; av2[5]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t6))(6,av2);}} /* k8922 in k8918 in k8905 */ static void C_ccall f_8924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8924,2,av);} /* synrules.scm:211: scheme#append */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a8935 in k8905 */ static void C_ccall f_8936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_8936,3,av);} a=C_alloc(21); t3=C_eqp(((C_word*)((C_word*)t0)[2])[1],t2); if(C_truep(t3)){ /* synrules.scm:215: mapit */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t4=C_a_i_list(&a,1,((C_word*)((C_word*)t0)[2])[1]); t5=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[5])[1],t4,t2); t6=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[6])[1],t5,((C_word*)t0)[4]); /* synrules.scm:215: mapit */ t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} /* k8980 in k8905 */ static void C_ccall f_8982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8982,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8986,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5]); /* synrules.scm:224: process-pattern */ t7=((C_word*)((C_word*)t0)[6])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t3; av2[2]=t5; av2[3]=t6; av2[4]=((C_word*)t0)[7]; av2[5]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t7))(6,av2);}} /* k8984 in k8980 in k8905 */ static void C_ccall f_8986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8986,2,av);} /* synrules.scm:223: scheme#append */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k9009 in k8905 */ static void C_ccall f_9011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_9011,2,av);} a=C_alloc(6); t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); /* synrules.scm:226: process-pattern */ t3=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=t1; av2[3]=t2; av2[4]=((C_word*)t0)[6]; av2[5]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(6,av2);}} /* f_9017 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_9017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_9017,5,av);} a=C_alloc(15); if(C_truep(C_i_symbolp(t2))){ t5=C_i_assq(t2,t4); if(C_truep(t5)){ t6=C_i_cdr(t5); t7=t3; if(C_truep(C_fixnum_less_or_equal_p(t6,t7))){ t8=t2; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ /* synrules.scm:238: ##sys#syntax-error-hook */ t8=*((C_word*)lf[46]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t1; av2[2]=lf[220]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t6=C_a_i_list(&a,2,lf[218],t2); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9056,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t4,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],tmp=(C_word)a,a+=15,tmp); /* synrules.scm:241: segment-template? */ t6=((C_word*)((C_word*)t0)[12])[1];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k9054 */ static void C_ccall f_9056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_9056,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9059,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* synrules.scm:242: segment-depth */ t3=((C_word*)((C_word*)t0)[11])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9179,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t3=((C_word*)t0)[4]; t4=C_u_i_car(t3); /* synrules.scm:267: process-template */ t5=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t5))(5,av2);}} else{ if(C_truep(C_i_vectorp(((C_word*)t0)[4]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9200,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[13],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9204,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* synrules.scm:271: scheme#vector->list */ t4=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[14])[1],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} /* k9057 in k9054 */ static void C_ccall f_9059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_9059,2,av);} a=C_alloc(12); t2=t1; t3=C_fixnum_plus(((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9065,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t4,tmp=(C_word)a,a+=12,tmp); t6=C_i_car(((C_word*)t0)[4]); /* synrules.scm:245: free-meta-variables */ t7=((C_word*)((C_word*)t0)[10])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=t4; av2[4]=((C_word*)t0)[6]; av2[5]=C_SCHEME_END_OF_LIST; ((C_proc)C_fast_retrieve_proc(t7))(6,av2);}} /* k9063 in k9057 in k9054 */ static void C_ccall f_9065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_9065,2,av);} a=C_alloc(12); t2=t1; if(C_truep(C_i_nullp(t2))){ /* synrules.scm:247: ##sys#syntax-error-hook */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[221]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9077,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_car(t4); /* synrules.scm:248: process-template */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=((C_word*)t0)[11]; av2[4]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t6))(5,av2);}}} /* k9075 in k9063 in k9057 in k9054 */ static void C_ccall f_9077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_9077,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9080,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9127,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[10]))){ t5=C_u_i_cdr(((C_word*)t0)[10]); if(C_truep(C_i_nullp(t5))){ if(C_truep(C_i_symbolp(t2))){ t6=C_u_i_car(((C_word*)t0)[10]); t7=t4; f_9127(t7,C_eqp(t2,t6));} else{ t6=t4; f_9127(t6,C_SCHEME_FALSE);}} else{ t6=t4; f_9127(t6,C_SCHEME_FALSE);}} else{ t5=t4; f_9127(t5,C_SCHEME_FALSE);}} /* k9078 in k9075 in k9063 in k9057 in k9054 */ static void C_fcall f_9080(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_9080,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9083,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9106,a[2]=t4,a[3]=((C_word)li118),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_9106(t6,t2,((C_word*)t0)[8],t1);} /* k9081 in k9078 in k9075 in k9063 in k9057 in k9054 */ static void C_ccall f_9083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_9083,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9104,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* synrules.scm:262: segment-tail */ t4=((C_word*)((C_word*)t0)[6])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k9094 in k9102 in k9081 in k9078 in k9075 in k9063 in k9057 in k9054 */ static void C_ccall f_9096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9096,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[74],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9098 in k9102 in k9081 in k9078 in k9075 in k9063 in k9057 in k9054 */ static void C_ccall f_9100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9100,2,av);} /* synrules.scm:264: process-template */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* k9102 in k9081 in k9078 in k9075 in k9063 in k9057 in k9054 */ static void C_ccall f_9104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_9104,2,av);} a=C_alloc(10); if(C_truep(C_i_nullp(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9096,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9100,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* synrules.scm:264: segment-tail */ t4=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}} /* doloop2816 in k9078 in k9075 in k9063 in k9057 in k9054 */ static void C_fcall f_9106(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_9106,4,t0,t1,t2,t3);} a=C_alloc(9); t4=t2; t5=C_eqp(t4,C_fix(1)); if(C_truep(t5)){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_fixnum_difference(t2,C_fix(1)); t7=C_a_i_list(&a,3,lf[222],lf[74],t3); t9=t1; t10=t6; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* k9125 in k9075 in k9063 in k9057 in k9054 */ static void C_fcall f_9127(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,1)))){ C_save_and_reclaim_args((void *)trf_9127,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_9080(t2,((C_word*)t0)[3]);} else{ t2=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[5]); t4=((C_word*)t0)[2]; f_9080(t4,C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[6])[1],t3));}} /* k9177 in k9054 */ static void C_ccall f_9179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9179,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9183,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); /* synrules.scm:268: process-template */ t6=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; ((C_proc)C_fast_retrieve_proc(t6))(5,av2);}} /* k9181 in k9177 in k9054 */ static void C_ccall f_9183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9183,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9198 in k9054 */ static void C_ccall f_9200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_9200,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9202 in k9054 */ static void C_ccall f_9204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9204,2,av);} /* synrules.scm:271: process-template */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* f_9209 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_9209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_9209,6,av);} a=C_alloc(7); if(C_truep(C_i_symbolp(t2))){ if(C_truep(C_i_memq(t2,((C_word*)t0)[2]))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_a_i_cons(&a,2,t2,t3); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_cons(&a,2,t6,t4); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9235,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* synrules.scm:282: segment-pattern? */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* k9233 */ static void C_ccall f_9235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_9235,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9250,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=C_i_cddr(((C_word*)t0)[2]); /* synrules.scm:284: meta-variables */ t8=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[6]; av2[5]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t8))(6,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9269,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* synrules.scm:287: meta-variables */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t4; av2[2]=t6; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[6]; av2[5]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t7))(6,av2);}} else{ if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9284,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* synrules.scm:289: scheme#vector->list */ t3=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} /* k9248 in k9233 */ static void C_ccall f_9250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9250,2,av);} /* synrules.scm:283: meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=t1; av2[5]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} /* k9267 in k9233 */ static void C_ccall f_9269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9269,2,av);} /* synrules.scm:286: meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=t1; av2[5]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} /* k9282 in k9233 */ static void C_ccall f_9284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9284,2,av);} /* synrules.scm:289: meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} /* f_9286 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_9286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_9286,6,av);} a=C_alloc(8); if(C_truep(C_i_symbolp(t2))){ t6=C_i_memq(t2,t5); if(C_truep(C_i_not(t6))){ t7=C_i_assq(t2,t4); if(C_truep(t7)){ t8=C_i_cdr(t7); t9=t3; t10=C_fixnum_greater_or_equal_p(t8,t9); t11=t1;{ C_word *av2=av; av2[0]=t11; av2[1]=(C_truep(t10)?C_a_i_cons(&a,2,t2,t5):t5); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9328,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp); /* synrules.scm:301: segment-template? */ t7=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} /* k9326 */ static void C_ccall f_9328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_9328,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9339,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t5=C_i_cddr(((C_word*)t0)[2]); /* synrules.scm:304: free-meta-variables */ t6=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; ((C_proc)C_fast_retrieve_proc(t6))(6,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9358,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* synrules.scm:309: free-meta-variables */ t7=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t4; av2[2]=t6; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; ((C_proc)C_fast_retrieve_proc(t7))(6,av2);}} else{ if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9373,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* synrules.scm:312: scheme#vector->list */ t3=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} /* k9337 in k9326 */ static void C_ccall f_9339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9339,2,av);} /* synrules.scm:302: free-meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=t1; ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} /* k9356 in k9326 */ static void C_ccall f_9358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9358,2,av);} /* synrules.scm:307: free-meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=t1; ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} /* k9371 in k9326 */ static void C_ccall f_9373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9373,2,av);} /* synrules.scm:312: free-meta-variables */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} /* f_9375 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_9375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9375,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9382,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* synrules.scm:316: segment-template? */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k9380 */ static void C_ccall f_9382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9382,2,av);} if(C_truep(t1)){ if(C_truep(((C_word*)t0)[2])){ /* synrules.scm:319: ##sys#syntax-error-hook */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[223]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_i_listp(((C_word*)t0)[4]); if(C_truep(C_i_not(t2))){ /* synrules.scm:321: ##sys#syntax-error-hook */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[224]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* f_9403 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_9403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9403,3,av);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_cdr(t3); if(C_truep(C_i_pairp(t4))){ t5=C_i_cadr(t2); /* synrules.scm:327: ellipsis? */ t6=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* f_9427 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_9427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9427,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9434,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* synrules.scm:332: segment-template? */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k9432 */ static void C_ccall f_9434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9434,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9441,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cdr(((C_word*)t0)[3]); /* synrules.scm:333: segment-depth */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9439 in k9432 */ static void C_ccall f_9441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9441,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fixnum_plus(C_fix(1),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_9447 in k8399 in k8395 in k8391 in k8387 in k8382 in k8378 in k8374 in k8370 in k8365 in k8358 in k8353 in k8349 in k8345 in k8341 in k8337 in k8333 in k8327 in k8322 in k8318 in k8303 in k9517 in ... */ static void C_ccall f_9447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_9447,3,av);} a=C_alloc(7); t3=C_i_cdr(t2); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9457,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li125),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_9457(t7,t1,t3);} /* loop */ static void C_fcall f_9457(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9457,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9464,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_car(t4); /* synrules.scm:341: ellipsis? */ t6=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[3]; av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_9464(2,av2);}}} /* k9462 in loop */ static void C_ccall f_9464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9464,2,av);} if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); /* synrules.scm:342: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9457(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9483 in k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_9485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_9485,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[21]+1 /* (set! ##sys#scheme-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9489,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9501,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* expand.scm:1590: ##sys#macro-environment */ t5=*((C_word*)lf[20]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9487 in k9483 in k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_9489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_9489,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[93]+1 /* (set! ##sys#default-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9493,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9497,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* expand.scm:1592: ##sys#macro-environment */ t5=*((C_word*)lf[20]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9491 in k9487 in k9483 in k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_9493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9493,2,av);} t2=C_mutate((C_word*)lf[195]+1 /* (set! ##sys#meta-macro-environment ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9495 in k9487 in k9483 in k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_9497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9497,2,av);} /* expand.scm:1592: chicken.base#make-parameter */ t2=*((C_word*)lf[196]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k9499 in k9483 in k8222 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_9501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9501,2,av);} /* expand.scm:1590: chicken.internal#fixup-macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[197]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[197]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k9503 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in ... */ static void C_ccall f_9505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9505,2,av);} /* synrules.scm:43: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[199]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in ... */ static void C_ccall f_9507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9507,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9511,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* synrules.scm:48: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[199]; av2[3]=t2; av2[4]=lf[239]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_9511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_9511,2,av);} a=C_alloc(20); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=lf[200]; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9519,a[2]=((C_word*)t0)[3],a[3]=t10,a[4]=t8,a[5]=t4,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_symbolp(((C_word*)t4)[1]))){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9528,a[2]=t10,a[3]=t4,a[4]=t8,a[5]=t11,tmp=(C_word)a,a+=6,tmp); /* synrules.scm:53: ##sys#check-syntax */ t13=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t12; av2[2]=lf[199]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[238]; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} else{ t12=t11; f_9519(t12,C_SCHEME_UNDEFINED);}} /* k9517 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_fcall f_9519(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word t87; C_word t88; C_word t89; C_word t90; C_word t91; C_word t92; C_word t93; C_word t94; C_word t95; C_word t96; C_word t97; C_word t98; C_word t99; C_word t100; C_word t101; C_word t102; C_word t103; C_word t104; C_word t105; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(152,0,2)))){ C_save_and_reclaim_args((void *)trf_9519,2,t0,t1);} a=C_alloc(152); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=((C_word*)((C_word*)t0)[4])[1]; t5=((C_word*)((C_word*)t0)[5])[1]; t6=((C_word*)t0)[6]; t7=((C_word*)t0)[7]; t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_SCHEME_UNDEFINED; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_SCHEME_UNDEFINED; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_SCHEME_UNDEFINED; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=C_SCHEME_UNDEFINED; t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp); t32=C_SCHEME_UNDEFINED; t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp); t34=C_SCHEME_UNDEFINED; t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp); t36=C_SCHEME_UNDEFINED; t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp); t38=C_SCHEME_UNDEFINED; t39=(*a=C_VECTOR_TYPE|1,a[1]=t38,tmp=(C_word)a,a+=2,tmp); t40=C_SCHEME_UNDEFINED; t41=(*a=C_VECTOR_TYPE|1,a[1]=t40,tmp=(C_word)a,a+=2,tmp); t42=C_SCHEME_UNDEFINED; t43=(*a=C_VECTOR_TYPE|1,a[1]=t42,tmp=(C_word)a,a+=2,tmp); t44=C_SCHEME_UNDEFINED; t45=(*a=C_VECTOR_TYPE|1,a[1]=t44,tmp=(C_word)a,a+=2,tmp); t46=C_SCHEME_UNDEFINED; t47=(*a=C_VECTOR_TYPE|1,a[1]=t46,tmp=(C_word)a,a+=2,tmp); t48=C_SCHEME_UNDEFINED; t49=(*a=C_VECTOR_TYPE|1,a[1]=t48,tmp=(C_word)a,a+=2,tmp); t50=C_SCHEME_UNDEFINED; t51=(*a=C_VECTOR_TYPE|1,a[1]=t50,tmp=(C_word)a,a+=2,tmp); t52=C_SCHEME_UNDEFINED; t53=(*a=C_VECTOR_TYPE|1,a[1]=t52,tmp=(C_word)a,a+=2,tmp); t54=C_SCHEME_UNDEFINED; t55=(*a=C_VECTOR_TYPE|1,a[1]=t54,tmp=(C_word)a,a+=2,tmp); t56=C_SCHEME_UNDEFINED; t57=(*a=C_VECTOR_TYPE|1,a[1]=t56,tmp=(C_word)a,a+=2,tmp); t58=C_SCHEME_UNDEFINED; t59=(*a=C_VECTOR_TYPE|1,a[1]=t58,tmp=(C_word)a,a+=2,tmp); t60=C_SCHEME_UNDEFINED; t61=(*a=C_VECTOR_TYPE|1,a[1]=t60,tmp=(C_word)a,a+=2,tmp); t62=C_SCHEME_UNDEFINED; t63=(*a=C_VECTOR_TYPE|1,a[1]=t62,tmp=(C_word)a,a+=2,tmp); t64=C_SCHEME_UNDEFINED; t65=(*a=C_VECTOR_TYPE|1,a[1]=t64,tmp=(C_word)a,a+=2,tmp); t66=C_SCHEME_UNDEFINED; t67=(*a=C_VECTOR_TYPE|1,a[1]=t66,tmp=(C_word)a,a+=2,tmp); t68=C_SCHEME_UNDEFINED; t69=(*a=C_VECTOR_TYPE|1,a[1]=t68,tmp=(C_word)a,a+=2,tmp); t70=C_SCHEME_UNDEFINED; t71=(*a=C_VECTOR_TYPE|1,a[1]=t70,tmp=(C_word)a,a+=2,tmp); t72=C_SCHEME_UNDEFINED; t73=(*a=C_VECTOR_TYPE|1,a[1]=t72,tmp=(C_word)a,a+=2,tmp); t74=C_SCHEME_UNDEFINED; t75=(*a=C_VECTOR_TYPE|1,a[1]=t74,tmp=(C_word)a,a+=2,tmp); t76=C_SCHEME_UNDEFINED; t77=(*a=C_VECTOR_TYPE|1,a[1]=t76,tmp=(C_word)a,a+=2,tmp); t78=C_SCHEME_UNDEFINED; t79=(*a=C_VECTOR_TYPE|1,a[1]=t78,tmp=(C_word)a,a+=2,tmp); t80=C_SCHEME_UNDEFINED; t81=(*a=C_VECTOR_TYPE|1,a[1]=t80,tmp=(C_word)a,a+=2,tmp); t82=C_SCHEME_UNDEFINED; t83=(*a=C_VECTOR_TYPE|1,a[1]=t82,tmp=(C_word)a,a+=2,tmp); t84=C_SCHEME_UNDEFINED; t85=(*a=C_VECTOR_TYPE|1,a[1]=t84,tmp=(C_word)a,a+=2,tmp); t86=C_SCHEME_UNDEFINED; t87=(*a=C_VECTOR_TYPE|1,a[1]=t86,tmp=(C_word)a,a+=2,tmp); t88=C_SCHEME_UNDEFINED; t89=(*a=C_VECTOR_TYPE|1,a[1]=t88,tmp=(C_word)a,a+=2,tmp); t90=C_SCHEME_UNDEFINED; t91=(*a=C_VECTOR_TYPE|1,a[1]=t90,tmp=(C_word)a,a+=2,tmp); t92=C_SCHEME_UNDEFINED; t93=(*a=C_VECTOR_TYPE|1,a[1]=t92,tmp=(C_word)a,a+=2,tmp); t94=C_SCHEME_UNDEFINED; t95=(*a=C_VECTOR_TYPE|1,a[1]=t94,tmp=(C_word)a,a+=2,tmp); t96=C_SCHEME_UNDEFINED; t97=(*a=C_VECTOR_TYPE|1,a[1]=t96,tmp=(C_word)a,a+=2,tmp); t98=C_SCHEME_UNDEFINED; t99=(*a=C_VECTOR_TYPE|1,a[1]=t98,tmp=(C_word)a,a+=2,tmp); t100=C_SCHEME_UNDEFINED; t101=(*a=C_VECTOR_TYPE|1,a[1]=t100,tmp=(C_word)a,a+=2,tmp); t102=C_SCHEME_UNDEFINED; t103=(*a=C_VECTOR_TYPE|1,a[1]=t102,tmp=(C_word)a,a+=2,tmp); t104=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_8305,a[2]=t9,a[3]=t11,a[4]=t13,a[5]=t15,a[6]=t17,a[7]=t19,a[8]=t21,a[9]=t23,a[10]=t25,a[11]=t27,a[12]=t29,a[13]=t31,a[14]=t33,a[15]=t35,a[16]=t37,a[17]=t39,a[18]=t41,a[19]=t43,a[20]=t45,a[21]=t47,a[22]=t49,a[23]=t51,a[24]=t53,a[25]=t55,a[26]=t57,a[27]=t59,a[28]=t61,a[29]=t63,a[30]=t65,a[31]=t67,a[32]=t69,a[33]=t71,a[34]=t73,a[35]=t75,a[36]=t77,a[37]=t79,a[38]=t7,a[39]=t81,a[40]=t83,a[41]=t91,a[42]=t93,a[43]=t89,a[44]=t85,a[45]=t5,a[46]=t87,a[47]=t97,a[48]=t103,a[49]=t95,a[50]=t101,a[51]=t99,a[52]=t2,a[53]=t4,a[54]=t6,a[55]=t3,tmp=(C_word)a,a+=56,tmp); /* synrules.scm:93: r */ t105=t6;{ C_word av2[3]; av2[0]=t105; av2[1]=t104; av2[2]=lf[237]; ((C_proc)C_fast_retrieve_proc(t105))(3,av2);}} /* k9526 in k9509 in a9506 in k8219 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_9528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9528,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_i_car(((C_word*)((C_word*)t0)[4])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); t5=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t5); t7=((C_word*)t0)[5]; f_9519(t7,t6);} /* k9539 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in ... */ static void C_ccall f_9541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9541,2,av);} /* expand.scm:1570: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[240]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9542 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in ... */ static void C_ccall f_9543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9543,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9547,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1575: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[240]; av2[3]=t2; av2[4]=lf[244]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9545 in a9542 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in ... */ static void C_ccall f_9547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9547,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9554,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1576: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[243]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k9552 in k9545 in a9542 in k8216 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_9554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){ C_save_and_reclaim((void *)f_9554,2,av);} a=C_alloc(30); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[76],C_SCHEME_END_OF_LIST,t2); t4=C_a_i_list(&a,3,lf[95],t3,lf[241]); t5=C_a_i_list(&a,2,lf[242],t4); t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,2,t1,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k9572 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in ... */ static void C_ccall f_9574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9574,2,av);} /* expand.scm:1518: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[245]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in ... */ static void C_ccall f_9576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_9576,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9580,a[2]=t4,a[3]=t2,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1523: r */ t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[245]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in ... */ static void C_ccall f_9580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_9580,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9583,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* expand.scm:1524: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[246]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in ... */ static void C_ccall f_9583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_9583,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9586,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* expand.scm:1525: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[248]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_ccall f_9586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){ C_save_and_reclaim((void *)f_9586,2,av);} a=C_alloc(28); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9588,a[2]=t8,a[3]=t6,a[4]=((C_word)li129),tmp=(C_word)a,a+=5,tmp)); t10=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9598,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word)li130),tmp=(C_word)a,a+=8,tmp)); t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9761,a[2]=t8,a[3]=((C_word)li133),tmp=(C_word)a,a+=4,tmp)); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9856,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1567: ##sys#check-syntax */ t13=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t12; av2[2]=lf[245]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[258]; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} /* walk in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_fcall f_9588(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_9588,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9596,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1526: walk1 */ t5=((C_word*)((C_word*)t0)[3])[1]; f_9598(t5,t4,t2,t3);} /* k9594 in walk in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_9596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9596,2,av);} /* expand.scm:1526: simplify */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9761(t2,((C_word*)t0)[3],t1);} /* walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_fcall f_9598(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_9598,4,t0,t1,t2,t3);} a=C_alloc(12); if(C_truep(C_i_vectorp(t2))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9612,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9616,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1529: scheme#vector->list */ t6=*((C_word*)lf[183]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=C_i_pairp(t2); if(C_truep(C_i_not(t4))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_list(&a,2,lf[75],t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t2); t6=t5; t7=t2; t8=C_u_i_cdr(t7); t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9635,a[2]=t3,a[3]=t1,a[4]=t8,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[4],a[9]=t6,a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],tmp=(C_word)a,a+=12,tmp); /* expand.scm:1534: c */ t10=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[3]; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t10))(4,av2);}}}} /* k9610 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_9612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_9612,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[206],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9614 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_9616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9616,2,av);} /* expand.scm:1529: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9588(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_9635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_9635,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=C_eqp(((C_word*)t0)[2],C_fix(0)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9644,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1536: ##sys#check-syntax */ t4=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[246]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[247]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=C_a_i_list(&a,2,lf[75],((C_word*)t0)[6]); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9658,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* expand.scm:1539: walk */ t7=((C_word*)((C_word*)t0)[7])[1]; f_9588(t7,t5,((C_word*)t0)[4],t6);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9668,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); /* expand.scm:1540: c */ t3=((C_word*)t0)[11];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[9]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} /* k9642 in k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_9644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9644,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9656 in k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_9658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9658,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,lf[210],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9666 in k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_9668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_9668,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=C_a_i_list(&a,2,lf[75],((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9679,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* expand.scm:1542: walk */ t6=((C_word*)((C_word*)t0)[5])[1]; f_9588(t6,t4,((C_word*)t0)[6],t5);} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9689,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[7]))){ t3=C_u_i_car(((C_word*)t0)[7]); /* expand.scm:1543: c */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_9689(2,av2);}}}} /* k9677 in k9666 in k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static void C_ccall f_9679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9679,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,lf[210],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9687 in k9666 in k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static void C_ccall f_9689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_9689,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=C_eqp(((C_word*)t0)[2],C_fix(0)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9698,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* expand.scm:1545: ##sys#check-syntax */ t4=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[248]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[249]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=C_a_i_list(&a,2,lf[75],((C_word*)t0)[7]); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9728,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t6=C_i_cdr(((C_word*)t0)[3]); t7=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* expand.scm:1550: walk */ t8=((C_word*)((C_word*)t0)[5])[1]; f_9588(t8,t5,t6,t7);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9743,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* expand.scm:1553: walk */ t3=((C_word*)((C_word*)t0)[5])[1]; f_9588(t3,t2,((C_word*)t0)[3],((C_word*)t0)[2]);}} /* k9696 in k9687 in k9666 in k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in ... */ static void C_ccall f_9698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9698,2,av);} a=C_alloc(4); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9709,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1546: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9588(t5,t4,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k9707 in k9696 in k9687 in k9666 in k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in ... */ static void C_ccall f_9709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9709,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[74],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9718 in k9726 in k9687 in k9666 in k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in ... */ static void C_ccall f_9720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9720,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[210],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9726 in k9687 in k9666 in k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in ... */ static void C_ccall f_9728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_9728,2,av);} a=C_alloc(13); t2=C_a_i_list(&a,3,lf[210],((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9720,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1551: walk */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9588(t5,t4,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k9741 in k9687 in k9666 in k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in ... */ static void C_ccall f_9743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9743,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9747,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* expand.scm:1553: walk */ t4=((C_word*)((C_word*)t0)[3])[1]; f_9588(t4,t3,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k9745 in k9741 in k9687 in k9666 in k9633 in walk1 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in ... */ static void C_ccall f_9747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9747,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[210],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* simplify in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_fcall f_9761(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_9761,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9765,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1555: chicken.syntax#match-expression */ t4=*((C_word*)lf[122]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[256]; av2[4]=lf[257]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k9763 in simplify in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in ... */ static void C_ccall f_9765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9765,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9769,a[2]=((C_word*)t0)[2],a[3]=((C_word)li131),tmp=(C_word)a,a+=4,tmp); /* expand.scm:1555: g2546 */ t3=t2; f_9769(t3,((C_word*)t0)[3],t1);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9791,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* expand.scm:1557: chicken.syntax#match-expression */ t3=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[254]; av2[4]=lf[255]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* g2546 in k9763 in simplify in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_fcall f_9769(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9769,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_assq(lf[250],t2); t4=C_i_cdr(t3); t5=C_a_i_list(&a,2,lf[241],t4); /* expand.scm:1556: simplify */ t6=((C_word*)((C_word*)t0)[2])[1]; f_9761(t6,t1,t5);} /* k9789 in k9763 in simplify in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in ... */ static void C_ccall f_9791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9791,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9795,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li132),tmp=(C_word)a,a+=5,tmp); /* expand.scm:1555: g2553 */ t3=t2; f_9795(t3,((C_word*)t0)[4],t1);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9838,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* expand.scm:1564: chicken.syntax#match-expression */ t3=*((C_word*)lf[122]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[252]; av2[4]=lf[253]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* g2553 in k9789 in k9763 in simplify in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static void C_fcall f_9795(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9795,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_assq(lf[251],t2); t4=C_i_length(t3); if(C_truep(C_fixnum_lessp(t4,C_fix(32)))){ t5=C_i_assq(lf[250],t2); t6=C_i_cdr(t5); t7=C_i_cdr(t3); t8=C_a_i_cons(&a,2,t6,t7); t9=C_a_i_cons(&a,2,lf[241],t8); /* expand.scm:1561: simplify */ t10=((C_word*)((C_word*)t0)[2])[1]; f_9761(t10,t1,t9);} else{ t5=((C_word*)t0)[3]; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k9836 in k9789 in k9763 in simplify in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in ... */ static void C_ccall f_9838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9838,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=t1; t4=C_i_assq(lf[250],t3); t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9854 in k9584 in k9581 in k9578 in a9575 in k8213 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_9856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9856,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* expand.scm:1568: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9588(t3,((C_word*)t0)[4],t2,C_fix(0));} /* k9865 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in ... */ static void C_ccall f_9867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9867,2,av);} /* expand.scm:1489: ##sys#extend-macro-environment */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[259]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9868 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in k8146 in ... */ static void C_ccall f_9869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9869,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9873,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* expand.scm:1494: ##sys#check-syntax */ t6=*((C_word*)lf[59]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[259]; av2[3]=t2; av2[4]=lf[264]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9871 in a9868 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in k8149 in ... */ static void C_ccall f_9873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_9873,2,av);} a=C_alloc(6); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=C_i_caddr(((C_word*)t0)[2]); t5=t4; t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); t9=C_u_i_cdr(t8); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9885,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=t9,tmp=(C_word)a,a+=6,tmp); /* expand.scm:1498: r */ t11=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=lf[263]; ((C_proc)C_fast_retrieve_proc(t11))(3,av2);}} /* k9883 in k9871 in a9868 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in k8152 in ... */ static void C_ccall f_9885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_9885,2,av);} a=C_alloc(20); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[17]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9913,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10027,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li136),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_10027(t12,t8,((C_word*)t0)[2]);} /* k9911 in k9883 in k9871 in a9868 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in k8156 in ... */ static void C_ccall f_9913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_9913,2,av);} a=C_alloc(17); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=C_u_i_cdr(((C_word*)t0)[2]); t6=C_eqp(t5,C_SCHEME_END_OF_LIST); t7=(C_truep(t6)?lf[260]:C_a_i_cons(&a,2,lf[108],t5)); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9934,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t8,a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t10=C_eqp(((C_word*)t0)[6],C_SCHEME_END_OF_LIST); if(C_truep(t10)){ t11=t9; f_9934(t11,lf[262]);} else{ t11=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[6]); t12=t9; f_9934(t12,C_a_i_cons(&a,2,lf[55],t11));}} /* k9932 in k9911 in k9883 in k9871 in a9868 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in k8160 in ... */ static void C_fcall f_9934(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ C_save_and_reclaim_args((void *)trf_9934,2,t0,t1);} a=C_alloc(21); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9975,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9977,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li135),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_9977(t11,t7,((C_word*)t0)[7]);} /* k9973 in k9932 in k9911 in k9883 in k9871 in a9868 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_ccall f_9975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,1)))){ C_save_and_reclaim((void *)f_9975,2,av);} a=C_alloc(39); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[58],t2); t4=C_a_i_list(&a,3,lf[108],((C_word*)t0)[3],t3); t5=C_a_i_list(&a,4,lf[261],((C_word*)t0)[4],((C_word*)t0)[5],t4); t6=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[55],((C_word*)t0)[2],((C_word*)t0)[7],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* map-loop2458 in k9932 in k9911 in k9883 in k9871 in a9868 in k8210 in k8207 in k8204 in k8201 in k8198 in k8195 in k8192 in k8189 in k8186 in k8183 in k8180 in k8176 in k8172 in k8169 in k8166 in k8163 in ... */ static void C_fcall f_9977(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9977,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10002,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_cdr(t4); t6=C_i_cdr(t5); t7=C_eqp(t6,C_SCHEME_END_OF_LIST); if(C_truep(t7)){ t8=C_u_i_car(t4); t9=t3; f_10002(t9,t8);} else{ t8=C_u_i_cdr(t4); t9=C_i_cdr(t8); t10=t3; f_10002(t10,C_i_car(t9));}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_expand_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("expand")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_expand_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(3348))){ C_save(t1); C_rereclaim2(3348*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,375); lf[0]=C_h_intern(&lf[0],6, C_text("expand")); lf[1]=C_h_intern(&lf[1],15, C_text("chicken.syntax#")); lf[2]=C_h_intern(&lf[2],14, C_text("##sys#features")); lf[3]=C_h_intern(&lf[3],29, C_text("##sys#current-source-filename")); lf[4]=C_h_intern(&lf[4],25, C_text("##sys#current-environment")); lf[5]=C_h_intern(&lf[5],30, C_text("##sys#current-meta-environment")); lf[7]=C_h_intern(&lf[7],18, C_text("##core#macro-alias")); lf[9]=C_h_intern(&lf[9],16, C_text("##core#real-name")); lf[10]=C_h_intern(&lf[10],19, C_text("chicken.base#gensym")); lf[11]=C_h_intern(&lf[11],24, C_text("chicken.keyword#keyword\077")); lf[12]=C_h_intern(&lf[12],27, C_text("chicken.syntax#strip-syntax")); lf[13]=C_h_intern(&lf[13],18, C_text("scheme#make-vector")); lf[14]=C_h_intern(&lf[14],15, C_text("##sys#extend-se")); lf[15]=C_h_intern(&lf[15],8, C_text("for-each")); lf[16]=C_h_intern(&lf[16],13, C_text("scheme#append")); lf[17]=C_h_intern(&lf[17],3, C_text("map")); lf[18]=C_h_intern(&lf[18],15, C_text("##sys#globalize")); lf[19]=C_h_intern(&lf[19],23, C_text("##sys#alias-global-hook")); lf[20]=C_h_intern(&lf[20],23, C_text("##sys#macro-environment")); lf[21]=C_h_intern(&lf[21],30, C_text("##sys#scheme-macro-environment")); lf[22]=C_h_intern(&lf[22],31, C_text("##sys#chicken-macro-environment")); lf[23]=C_h_intern(&lf[23],35, C_text("##sys#chicken-ffi-macro-environment")); lf[24]=C_h_intern(&lf[24],41, C_text("##sys#chicken.condition-macro-environment")); lf[25]=C_h_intern(&lf[25],36, C_text("##sys#chicken.time-macro-environment")); lf[26]=C_h_intern(&lf[26],36, C_text("##sys#chicken.type-macro-environment")); lf[27]=C_h_intern(&lf[27],38, C_text("##sys#chicken.syntax-macro-environment")); lf[28]=C_h_intern(&lf[28],36, C_text("##sys#chicken.base-macro-environment")); lf[29]=C_h_intern(&lf[29],24, C_text("##sys#ensure-transformer")); lf[30]=C_h_intern(&lf[30],11, C_text("transformer")); lf[31]=C_h_intern(&lf[31],11, C_text("##sys#error")); lf[32]=C_decode_literal(C_heaptop,C_text("\376B\000\000$expected syntax-transformer, but got")); lf[33]=C_h_intern(&lf[33],30, C_text("##sys#extend-macro-environment")); lf[34]=C_h_intern(&lf[34],12, C_text("##sys#macro\077")); lf[35]=C_h_intern(&lf[35],21, C_text("##sys#undefine-macro!")); lf[36]=C_h_intern(&lf[36],14, C_text("##sys#expand-0")); lf[37]=C_h_intern(&lf[37],9, C_text("condition")); lf[38]=C_h_intern(&lf[38],23, C_text("chicken.condition#abort")); lf[39]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\007\001message")); lf[40]=C_h_intern(&lf[40],20, C_text("scheme#string-append")); lf[41]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025during expansion of (")); lf[42]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 ...) - ")); lf[43]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\007\001message")); lf[44]=C_h_intern(&lf[44],3, C_text("exn")); lf[45]=C_h_intern(&lf[45],36, C_text("chicken.syntax#expansion-result-hook")); lf[46]=C_h_intern(&lf[46],23, C_text("##sys#syntax-error-hook")); lf[47]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030syntax transformer for `")); lf[48]=C_decode_literal(C_heaptop,C_text("\376B\000\000@\047 returns original form, which would result in endless expansion")); lf[49]=C_h_intern(&lf[49],21, C_text("scheme#symbol->string")); lf[50]=C_h_intern(&lf[50],51, C_text("chicken.internal.syntax-rules#syntax-rules-mismatch")); lf[51]=C_h_intern(&lf[51],18, C_text("##sys#dynamic-wind")); lf[52]=C_h_intern(&lf[52],40, C_text("chicken.condition#with-exception-handler")); lf[53]=C_h_intern(&lf[53],37, C_text("scheme#call-with-current-continuation")); lf[54]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034invalid syntax in macro form")); lf[55]=C_h_intern(&lf[55],10, C_text("##core#let")); lf[56]=C_h_intern(&lf[56],18, C_text("##core#loop-lambda")); lf[57]=C_h_intern(&lf[57],14, C_text("##core#letrec\052")); lf[58]=C_h_intern(&lf[58],10, C_text("##core#app")); lf[59]=C_h_intern(&lf[59],18, C_text("##sys#check-syntax")); lf[60]=C_h_intern(&lf[60],3, C_text("let")); lf[61]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000" "\000\001")); lf[62]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\002")); lf[63]=C_h_intern(&lf[63],26, C_text("##sys#compiler-syntax-hook")); lf[64]=C_h_intern(&lf[64],26, C_text("##compiler#compiler-syntax")); lf[65]=C_h_intern(&lf[65],27, C_text("##sys#enable-runtime-macros")); lf[66]=C_h_intern(&lf[66],21, C_text("chicken.syntax#expand")); lf[67]=C_h_intern(&lf[67],27, C_text("##sys#extended-lambda-list\077")); lf[68]=C_h_intern(&lf[68],6, C_text("#!rest")); lf[69]=C_h_intern(&lf[69],10, C_text("#!optional")); lf[70]=C_h_intern(&lf[70],5, C_text("#!key")); lf[71]=C_h_intern(&lf[71],33, C_text("##sys#expand-extended-lambda-list")); lf[72]=C_h_intern(&lf[72],12, C_text("scheme#cadar")); lf[73]=C_h_intern(&lf[73],14, C_text("scheme#reverse")); lf[74]=C_h_intern(&lf[74],12, C_text("##sys#append")); lf[75]=C_h_intern(&lf[75],12, C_text("##core#quote")); lf[76]=C_h_intern(&lf[76],13, C_text("##core#lambda")); lf[77]=C_h_intern(&lf[77],17, C_text("##sys#get-keyword")); lf[78]=C_h_intern(&lf[78],31, C_text("chicken.keyword#string->keyword")); lf[79]=C_decode_literal(C_heaptop,C_text("\376B\000\000+rest argument list specified more than once")); lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032invalid lambda list syntax")); lf[81]=C_decode_literal(C_heaptop,C_text("\376B\000\000-`#!optional\047 argument marker in wrong context")); lf[82]=C_h_intern(&lf[82],4, C_text("rest")); lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\000#invalid syntax of `#!rest\047 argument")); lf[84]=C_decode_literal(C_heaptop,C_text("\376B\000\000)`#!rest\047 argument marker in wrong context")); lf[85]=C_decode_literal(C_heaptop,C_text("\376B\000\000(`#!key\047 argument marker in wrong context")); lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\0000invalid lambda list syntax after `#!rest\047 marker")); lf[87]=C_decode_literal(C_heaptop,C_text("\376B\000\000 invalid required argument syntax")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\0000invalid lambda list syntax after `#!rest\047 marker")); lf[89]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032invalid lambda list syntax")); lf[90]=C_h_intern(&lf[90],14, C_text("let-optionals\052")); lf[91]=C_h_intern(&lf[91],8, C_text("optional")); lf[92]=C_h_intern(&lf[92],4, C_text("let\052")); lf[93]=C_h_intern(&lf[93],31, C_text("##sys#default-macro-environment")); lf[94]=C_h_intern(&lf[94],39, C_text("##sys#expand-multiple-values-assignment")); lf[95]=C_h_intern(&lf[95],22, C_text("##sys#call-with-values")); lf[96]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016\376\377\016")); lf[97]=C_h_intern(&lf[97],11, C_text("##core#set!")); lf[98]=C_h_intern(&lf[98],27, C_text("##sys#decompose-lambda-list")); lf[99]=C_h_intern(&lf[99],32, C_text("chicken.syntax#define-definition")); lf[100]=C_h_intern(&lf[100],39, C_text("chicken.syntax#define-syntax-definition")); lf[101]=C_h_intern(&lf[101],39, C_text("chicken.syntax#define-values-definition")); lf[103]=C_h_intern(&lf[103],23, C_text("##sys#canonicalize-body")); lf[104]=C_h_intern(&lf[104],6, C_text("define")); lf[105]=C_h_intern(&lf[105],13, C_text("define-syntax")); lf[106]=C_h_intern(&lf[106],13, C_text("define-values")); lf[107]=C_h_intern(&lf[107],6, C_text("import")); lf[108]=C_h_intern(&lf[108],12, C_text("##core#begin")); lf[109]=C_h_intern(&lf[109],13, C_text("##core#module")); lf[110]=C_h_intern(&lf[110],14, C_text("##core#include")); lf[111]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[112]=C_h_intern(&lf[112],20, C_text("##core#letrec-syntax")); lf[113]=C_decode_literal(C_heaptop,C_text("\376B\000\000,redefinition of currently used defining form")); lf[114]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[115]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000")); lf[116]=C_h_intern(&lf[116],36, C_text("chicken.syntax#expand-curried-define")); lf[117]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[118]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[119]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000")); lf[120]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[121]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\013\001lambda-list\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[122]=C_h_intern(&lf[122],31, C_text("chicken.syntax#match-expression")); lf[123]=C_h_intern(&lf[123],26, C_text("##sys#line-number-database")); lf[124]=C_h_intern(&lf[124],26, C_text("##sys#syntax-error-culprit")); lf[125]=C_h_intern(&lf[125],20, C_text("##sys#syntax-context")); lf[126]=C_h_intern(&lf[126],27, C_text("chicken.syntax#syntax-error")); lf[127]=C_h_intern(&lf[127],17, C_text("##sys#signal-hook")); lf[128]=C_h_intern_kw(&lf[128],12, C_text("syntax-error")); lf[129]=C_h_intern(&lf[129],26, C_text("##sys#syntax-error/context")); lf[130]=C_h_intern(&lf[130],11, C_text("##sys#print")); lf[131]=C_h_intern(&lf[131],30, C_text("chicken.base#get-output-string")); lf[132]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 ...)\047")); lf[133]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025\012inside expression `(")); lf[134]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[135]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027 Suggesting: `(import ")); lf[136]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)\047")); lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025 Suggesting one of:\012")); lf[138]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[139]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\012 (import ")); lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)\047")); lf[141]=C_decode_literal(C_heaptop,C_text("\376B\000\000# ...)\047 without importing it first.\012")); lf[142]=C_decode_literal(C_heaptop,C_text("\376B\000\000-\012\012 Perhaps you intended to use the syntax `(")); lf[143]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[144]=C_h_intern(&lf[144],6, C_text("syntax")); lf[145]=C_h_intern(&lf[145],9, C_text("##sys#get")); lf[146]=C_h_intern(&lf[146],9, C_text("##core#db")); lf[147]=C_h_intern(&lf[147],31, C_text("chicken.base#open-output-string")); lf[148]=C_h_intern(&lf[148],30, C_text("chicken.syntax#get-line-number")); lf[149]=C_h_intern(&lf[149],31, C_text("chicken.internal#hash-table-ref")); lf[150]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[151]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006) in `")); lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004\047 - ")); lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004in `")); lf[154]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004\047 - ")); lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not enough arguments")); lf[156]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022too many arguments")); lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021not a proper list")); lf[158]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021unexpected object")); lf[159]=C_h_intern(&lf[159],1, C_text("_")); lf[160]=C_h_intern(&lf[160],4, C_text("pair")); lf[161]=C_h_intern(&lf[161],12, C_text("scheme#pair\077")); lf[162]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015pair expected")); lf[163]=C_h_intern(&lf[163],8, C_text("variable")); lf[164]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023identifier expected")); lf[165]=C_h_intern(&lf[165],6, C_text("symbol")); lf[166]=C_h_intern(&lf[166],14, C_text("scheme#symbol\077")); lf[167]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017symbol expected")); lf[168]=C_h_intern(&lf[168],4, C_text("list")); lf[169]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024proper list expected")); lf[170]=C_h_intern(&lf[170],6, C_text("number")); lf[171]=C_h_intern(&lf[171],14, C_text("scheme#number\077")); lf[172]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017number expected")); lf[173]=C_h_intern(&lf[173],6, C_text("string")); lf[174]=C_h_intern(&lf[174],14, C_text("scheme#string\077")); lf[175]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017string expected")); lf[176]=C_h_intern(&lf[176],11, C_text("lambda-list")); lf[177]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024lambda-list expected")); lf[178]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017missing keyword")); lf[179]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017incomplete form")); lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015pair expected")); lf[182]=C_h_intern(&lf[182],19, C_text("scheme#list->vector")); lf[183]=C_h_intern(&lf[183],19, C_text("scheme#vector->list")); lf[184]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033(expand.scm:837) not a list")); lf[185]=C_h_intern(&lf[185],35, C_text("chicken.syntax#er-macro-transformer")); lf[186]=C_h_intern(&lf[186],35, C_text("chicken.syntax#ir-macro-transformer")); lf[187]=C_h_intern(&lf[187],20, C_text("##sys#er-transformer")); lf[188]=C_h_intern(&lf[188],20, C_text("##sys#ir-transformer")); lf[189]=C_h_intern(&lf[189],31, C_text("##sys#initial-macro-environment")); lf[190]=C_h_intern(&lf[190],38, C_text("##sys#chicken.module-macro-environment")); lf[191]=C_h_intern(&lf[191],30, C_text("chicken.internal.syntax-rules#")); lf[192]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024no rule matches form")); lf[193]=C_h_intern(&lf[193],40, C_text("chicken.internal.syntax-rules#drop-right")); lf[194]=C_h_intern(&lf[194],40, C_text("chicken.internal.syntax-rules#take-right")); lf[195]=C_h_intern(&lf[195],28, C_text("##sys#meta-macro-environment")); lf[196]=C_h_intern(&lf[196],27, C_text("chicken.base#make-parameter")); lf[197]=C_h_intern(&lf[197],40, C_text("chicken.internal#fixup-macro-environment")); lf[198]=C_h_intern(&lf[198],29, C_text("chicken.internal#macro-subset")); lf[199]=C_h_intern(&lf[199],12, C_text("syntax-rules")); lf[200]=C_h_intern(&lf[200],3, C_text("...")); lf[201]=C_h_intern(&lf[201],9, C_text("##sys#car")); lf[202]=C_h_intern(&lf[202],9, C_text("##sys#cdr")); lf[203]=C_h_intern(&lf[203],12, C_text("##sys#length")); lf[204]=C_h_intern(&lf[204],13, C_text("##sys#vector\077")); lf[205]=C_h_intern(&lf[205],18, C_text("##sys#vector->list")); lf[206]=C_h_intern(&lf[206],18, C_text("##sys#list->vector")); lf[207]=C_h_intern(&lf[207],8, C_text("##sys#>=")); lf[208]=C_h_intern(&lf[208],7, C_text("##sys#=")); lf[209]=C_h_intern(&lf[209],7, C_text("##sys#+")); lf[210]=C_h_intern(&lf[210],10, C_text("##sys#cons")); lf[211]=C_h_intern(&lf[211],9, C_text("##sys#eq\077")); lf[212]=C_h_intern(&lf[212],12, C_text("##sys#equal\077")); lf[213]=C_h_intern(&lf[213],11, C_text("##sys#list\077")); lf[214]=C_h_intern(&lf[214],9, C_text("##sys#map")); lf[215]=C_h_intern(&lf[215],11, C_text("##sys#map-n")); lf[216]=C_h_intern(&lf[216],11, C_text("##sys#pair\077")); lf[217]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026ill-formed syntax rule")); lf[218]=C_h_intern(&lf[218],13, C_text("##core#syntax")); lf[219]=C_h_intern(&lf[219],5, C_text("quote")); lf[220]=C_decode_literal(C_heaptop,C_text("\376B\000\000,template dimension error (too few ellipses\077)")); lf[221]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021too many ellipses")); lf[222]=C_h_intern(&lf[222],11, C_text("##sys#apply")); lf[223]=C_decode_literal(C_heaptop,C_text("\376B\000\000%Only one segment per level is allowed")); lf[224]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047Cannot combine dotted tail and ellipsis")); lf[225]=C_h_intern(&lf[225],4, C_text("temp")); lf[226]=C_h_intern(&lf[226],4, C_text("tail")); lf[227]=C_h_intern(&lf[227],6, C_text("rename")); lf[228]=C_h_intern(&lf[228],2, C_text("or")); lf[229]=C_h_intern(&lf[229],4, C_text("loop")); lf[230]=C_h_intern(&lf[230],6, C_text("lambda")); lf[231]=C_h_intern(&lf[231],3, C_text("len")); lf[232]=C_h_intern(&lf[232],1, C_text("l")); lf[233]=C_h_intern(&lf[233],5, C_text("input")); lf[234]=C_h_intern(&lf[234],4, C_text("else")); lf[235]=C_h_intern(&lf[235],4, C_text("cond")); lf[236]=C_h_intern(&lf[236],7, C_text("compare")); lf[237]=C_h_intern(&lf[237],3, C_text("and")); lf[238]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\004\001list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000")); lf[239]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\002")); lf[240]=C_h_intern(&lf[240],5, C_text("delay")); lf[241]=C_h_intern(&lf[241],10, C_text("##sys#list")); lf[242]=C_h_intern(&lf[242],18, C_text("##sys#make-promise")); lf[243]=C_h_intern(&lf[243],11, C_text("delay-force")); lf[244]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[245]=C_h_intern(&lf[245],10, C_text("quasiquote")); lf[246]=C_h_intern(&lf[246],7, C_text("unquote")); lf[247]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[248]=C_h_intern(&lf[248],16, C_text("unquote-splicing")); lf[249]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[250]=C_h_intern(&lf[250],1, C_text("a")); lf[251]=C_h_intern(&lf[251],1, C_text("b")); lf[252]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001##sys#append\376\003\000\000\002\376\001\000\000\001\001a\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001##core#quote\376\003\000\000\002\376\377\016\376\377\016\376\377\016")); lf[253]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001a\376\377\016")); lf[254]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001##sys#cons\376\003\000\000\002\376\001\000\000\001\001a\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001##sys#list\376\001\000\000\001\001b\376\377\016")); lf[255]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001a\376\003\000\000\002\376\001\000\000\001\001b\376\377\016")); lf[256]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001##sys#cons\376\003\000\000\002\376\001\000\000\001\001a\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001##core#quote\376\003\000\000\002\376\377\016\376\377\016\376\377\016")); lf[257]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001a\376\377\016")); lf[258]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[259]=C_h_intern(&lf[259],2, C_text("do")); lf[260]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[261]=C_h_intern(&lf[261],9, C_text("##core#if")); lf[262]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[263]=C_h_intern(&lf[263],6, C_text("doloop")); lf[264]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\001\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000" "\000\001\001_\376\377\001\000\000\000\001")); lf[265]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000" "\000\001")); lf[266]=C_h_intern(&lf[266],4, C_text("case")); lf[267]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001eqv\077\376\001\000\000\013\001scheme#eqv\077\376\377\016")); lf[268]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[269]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001##core#begin\376\377\016")); lf[270]=C_h_intern(&lf[270],10, C_text("##sys#warn")); lf[271]=C_decode_literal(C_heaptop,C_text("\376B\000\000(clause following `else\047 clause in `case\047")); lf[272]=C_h_intern(&lf[272],16, C_text("##core#undefined")); lf[273]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[274]=C_h_intern(&lf[274],4, C_text("eqv\077")); lf[275]=C_h_intern(&lf[275],2, C_text("=>")); lf[276]=C_h_intern(&lf[276],3, C_text("tmp")); lf[277]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000")); lf[278]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[279]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001##core#begin\376\377\016")); lf[280]=C_h_intern(&lf[280],7, C_text("sprintf")); lf[281]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022\047 clause in `cond\047")); lf[282]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022clause following `")); lf[283]=C_h_intern(&lf[283],2, C_text("if")); lf[284]=C_h_intern(&lf[284],20, C_text("##sys#srfi-4-vector\077")); lf[285]=C_h_intern(&lf[285],18, C_text("chicken.blob#blob\077")); lf[286]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[287]=C_h_intern(&lf[287],4, C_text("set!")); lf[288]=C_h_intern(&lf[288],12, C_text("##sys#setter")); lf[289]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[290]=C_h_intern(&lf[290],13, C_text("letrec-syntax")); lf[291]=C_h_intern(&lf[291],44, C_text("chicken.internal#check-for-multiple-bindings")); lf[292]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015letrec-syntax")); lf[293]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000" "\000\001")); lf[294]=C_h_intern(&lf[294],10, C_text("let-syntax")); lf[295]=C_h_intern(&lf[295],17, C_text("##core#let-syntax")); lf[296]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012let-syntax")); lf[297]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000" "\000\001")); lf[298]=C_h_intern(&lf[298],6, C_text("letrec")); lf[299]=C_h_intern(&lf[299],13, C_text("##core#letrec")); lf[300]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006letrec")); lf[301]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000" "\000\001")); lf[302]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003let")); lf[303]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000" "\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[304]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003let")); lf[305]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000" "\000\001")); lf[306]=C_h_intern(&lf[306],20, C_text("##core#define-syntax")); lf[307]=C_h_intern(&lf[307],21, C_text("##sys#register-export")); lf[308]=C_h_intern(&lf[308],20, C_text("##sys#current-module")); lf[309]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[310]=C_h_intern(&lf[310],33, C_text("##core#ensure-toplevel-definition")); lf[311]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[312]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\000\000\000\003\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001")); lf[313]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[314]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[315]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[316]=C_h_intern(&lf[316],5, C_text("begin")); lf[317]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000")); lf[318]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\001\376\001\000\000\001\001_")); lf[319]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[320]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[321]=C_h_intern(&lf[321],14, C_text("current-module")); lf[322]=C_h_intern(&lf[322],17, C_text("##sys#module-name")); lf[323]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[324]=C_h_intern(&lf[324],16, C_text("define-interface")); lf[325]=C_h_intern(&lf[325],16, C_text("##core#interface")); lf[326]=C_h_intern(&lf[326],18, C_text("##sys#put/restore!")); lf[327]=C_h_intern(&lf[327],26, C_text("##core#elaborationtimeonly")); lf[328]=C_h_intern(&lf[328],1, C_text("\052")); lf[329]=C_h_intern_kw(&lf[329],9, C_text("interface")); lf[330]=C_h_intern(&lf[330],22, C_text("##sys#validate-exports")); lf[331]=C_h_intern(&lf[331],17, C_text("syntax-error-hook")); lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017invalid exports")); lf[333]=C_decode_literal(C_heaptop,C_text("\376B\000\000-`\052\047 is not allowed as a name for an interface")); lf[334]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[335]=C_h_intern(&lf[335],7, C_text("functor")); lf[336]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030invalid functor argument")); lf[337]=C_h_intern(&lf[337],41, C_text("chicken.internal#valid-library-specifier\077")); lf[338]=C_h_intern(&lf[338],22, C_text("##sys#register-functor")); lf[339]=C_h_intern(&lf[339],6, C_text("scheme")); lf[340]=C_h_intern(&lf[340],14, C_text("chicken.syntax")); lf[341]=C_h_intern(&lf[341],16, C_text("begin-for-syntax")); lf[342]=C_h_intern(&lf[342],27, C_text("chicken.internal#library-id")); lf[343]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\003\000\000\002\376\001\000\000\001\001_" "\376\001\000\000\001\001_")); lf[344]=C_h_intern(&lf[344],8, C_text("reexport")); lf[345]=C_h_intern(&lf[345],19, C_text("##sys#expand-import")); lf[346]=C_h_intern(&lf[346],6, C_text("export")); lf[347]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[348]=C_h_intern(&lf[348],24, C_text("##sys#add-to-export-list")); lf[349]=C_h_intern(&lf[349],6, C_text("module")); lf[350]=C_h_intern(&lf[350],1, C_text("=")); lf[351]=C_h_intern(&lf[351],21, C_text("scheme#string->symbol")); lf[352]=C_h_intern(&lf[352],19, C_text("##sys#string-append")); lf[353]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001_")); lf[354]=C_h_intern(&lf[354],25, C_text("##sys#instantiate-functor")); lf[355]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\377\016")); lf[356]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000")); lf[357]=C_h_intern(&lf[357],11, C_text("cond-expand")); lf[358]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042syntax error in `cond-expand\047 form")); lf[359]=C_h_intern(&lf[359],25, C_text("chicken.platform#feature\077")); lf[360]=C_h_intern(&lf[360],3, C_text("not")); lf[361]=C_decode_literal(C_heaptop,C_text("\376B\000\000(no matching clause in `cond-expand\047 form")); lf[362]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[363]=C_h_intern(&lf[363],17, C_text("import-for-syntax")); lf[364]=C_h_intern(&lf[364],30, C_text("##sys#register-meta-expression")); lf[365]=C_h_intern(&lf[365],22, C_text("##sys#decompose-import")); lf[366]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[367]=C_h_intern(&lf[367],14, C_text("##core#require")); lf[368]=C_h_intern(&lf[368],35, C_text("chicken.internal#module-requirement")); lf[369]=C_decode_literal(C_heaptop,C_text("\376B\000\000#cannot import from undefined module")); lf[370]=C_h_intern(&lf[370],12, C_text("##sys#import")); lf[371]=C_decode_literal(C_heaptop,C_text("\376B\000\0001cannot import from module currently being defined")); lf[372]=C_h_intern(&lf[372],24, C_text("import-syntax-for-syntax")); lf[373]=C_h_intern(&lf[373],13, C_text("import-syntax")); lf[374]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\002srfi-0\376\003\000\000\002\376\001\000\000\006\002srfi-2\376\003\000\000\002\376\001\000\000\006\002srfi-6\376\003\000\000\002\376\001\000\000\006\002srfi-9\376\003\000\000\002\376\001\000\000\007\002s" "rfi-46\376\003\000\000\002\376\001\000\000\007\002srfi-55\376\003\000\000\002\376\001\000\000\007\002srfi-61\376\377\016")); C_register_lf2(lf,375,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3700,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[677] = { {C_text("f_10002:expand_2escm"),(void*)f_10002}, {C_text("f_10027:expand_2escm"),(void*)f_10027}, {C_text("f_10063:expand_2escm"),(void*)f_10063}, {C_text("f_10065:expand_2escm"),(void*)f_10065}, {C_text("f_10069:expand_2escm"),(void*)f_10069}, {C_text("f_10079:expand_2escm"),(void*)f_10079}, {C_text("f_10104:expand_2escm"),(void*)f_10104}, {C_text("f_10114:expand_2escm"),(void*)f_10114}, {C_text("f_10116:expand_2escm"),(void*)f_10116}, {C_text("f_10120:expand_2escm"),(void*)f_10120}, {C_text("f_10128:expand_2escm"),(void*)f_10128}, {C_text("f_10131:expand_2escm"),(void*)f_10131}, {C_text("f_10134:expand_2escm"),(void*)f_10134}, {C_text("f_10137:expand_2escm"),(void*)f_10137}, {C_text("f_10140:expand_2escm"),(void*)f_10140}, {C_text("f_10151:expand_2escm"),(void*)f_10151}, {C_text("f_10153:expand_2escm"),(void*)f_10153}, {C_text("f_10167:expand_2escm"),(void*)f_10167}, {C_text("f_10173:expand_2escm"),(void*)f_10173}, {C_text("f_10176:expand_2escm"),(void*)f_10176}, {C_text("f_10180:expand_2escm"),(void*)f_10180}, {C_text("f_10186:expand_2escm"),(void*)f_10186}, {C_text("f_10189:expand_2escm"),(void*)f_10189}, {C_text("f_10204:expand_2escm"),(void*)f_10204}, {C_text("f_10245:expand_2escm"),(void*)f_10245}, {C_text("f_10249:expand_2escm"),(void*)f_10249}, {C_text("f_10252:expand_2escm"),(void*)f_10252}, {C_text("f_10285:expand_2escm"),(void*)f_10285}, {C_text("f_10300:expand_2escm"),(void*)f_10300}, {C_text("f_10302:expand_2escm"),(void*)f_10302}, {C_text("f_10350:expand_2escm"),(void*)f_10350}, {C_text("f_10352:expand_2escm"),(void*)f_10352}, {C_text("f_10359:expand_2escm"),(void*)f_10359}, {C_text("f_10362:expand_2escm"),(void*)f_10362}, {C_text("f_10365:expand_2escm"),(void*)f_10365}, {C_text("f_10370:expand_2escm"),(void*)f_10370}, {C_text("f_10384:expand_2escm"),(void*)f_10384}, {C_text("f_10390:expand_2escm"),(void*)f_10390}, {C_text("f_10393:expand_2escm"),(void*)f_10393}, {C_text("f_10397:expand_2escm"),(void*)f_10397}, {C_text("f_10403:expand_2escm"),(void*)f_10403}, {C_text("f_10406:expand_2escm"),(void*)f_10406}, {C_text("f_10409:expand_2escm"),(void*)f_10409}, {C_text("f_10412:expand_2escm"),(void*)f_10412}, {C_text("f_10416:expand_2escm"),(void*)f_10416}, {C_text("f_10422:expand_2escm"),(void*)f_10422}, {C_text("f_10425:expand_2escm"),(void*)f_10425}, {C_text("f_10428:expand_2escm"),(void*)f_10428}, {C_text("f_10434:expand_2escm"),(void*)f_10434}, {C_text("f_10460:expand_2escm"),(void*)f_10460}, {C_text("f_10488:expand_2escm"),(void*)f_10488}, {C_text("f_10505:expand_2escm"),(void*)f_10505}, {C_text("f_10511:expand_2escm"),(void*)f_10511}, {C_text("f_10514:expand_2escm"),(void*)f_10514}, {C_text("f_10533:expand_2escm"),(void*)f_10533}, {C_text("f_10551:expand_2escm"),(void*)f_10551}, {C_text("f_10554:expand_2escm"),(void*)f_10554}, {C_text("f_10581:expand_2escm"),(void*)f_10581}, {C_text("f_10608:expand_2escm"),(void*)f_10608}, {C_text("f_10671:expand_2escm"),(void*)f_10671}, {C_text("f_10683:expand_2escm"),(void*)f_10683}, {C_text("f_10699:expand_2escm"),(void*)f_10699}, {C_text("f_10733:expand_2escm"),(void*)f_10733}, {C_text("f_10735:expand_2escm"),(void*)f_10735}, {C_text("f_10758:expand_2escm"),(void*)f_10758}, {C_text("f_10777:expand_2escm"),(void*)f_10777}, {C_text("f_10785:expand_2escm"),(void*)f_10785}, {C_text("f_10787:expand_2escm"),(void*)f_10787}, {C_text("f_10818:expand_2escm"),(void*)f_10818}, {C_text("f_10822:expand_2escm"),(void*)f_10822}, {C_text("f_10824:expand_2escm"),(void*)f_10824}, {C_text("f_10828:expand_2escm"),(void*)f_10828}, {C_text("f_10851:expand_2escm"),(void*)f_10851}, {C_text("f_10866:expand_2escm"),(void*)f_10866}, {C_text("f_10868:expand_2escm"),(void*)f_10868}, {C_text("f_10872:expand_2escm"),(void*)f_10872}, {C_text("f_10875:expand_2escm"),(void*)f_10875}, {C_text("f_10888:expand_2escm"),(void*)f_10888}, {C_text("f_10890:expand_2escm"),(void*)f_10890}, {C_text("f_10894:expand_2escm"),(void*)f_10894}, {C_text("f_10897:expand_2escm"),(void*)f_10897}, {C_text("f_10910:expand_2escm"),(void*)f_10910}, {C_text("f_10912:expand_2escm"),(void*)f_10912}, {C_text("f_10916:expand_2escm"),(void*)f_10916}, {C_text("f_10919:expand_2escm"),(void*)f_10919}, {C_text("f_10932:expand_2escm"),(void*)f_10932}, {C_text("f_10934:expand_2escm"),(void*)f_10934}, {C_text("f_10938:expand_2escm"),(void*)f_10938}, {C_text("f_10946:expand_2escm"),(void*)f_10946}, {C_text("f_10949:expand_2escm"),(void*)f_10949}, {C_text("f_10959:expand_2escm"),(void*)f_10959}, {C_text("f_10984:expand_2escm"),(void*)f_10984}, {C_text("f_10986:expand_2escm"),(void*)f_10986}, {C_text("f_10990:expand_2escm"),(void*)f_10990}, {C_text("f_11007:expand_2escm"),(void*)f_11007}, {C_text("f_11010:expand_2escm"),(void*)f_11010}, {C_text("f_11016:expand_2escm"),(void*)f_11016}, {C_text("f_11023:expand_2escm"),(void*)f_11023}, {C_text("f_11027:expand_2escm"),(void*)f_11027}, {C_text("f_11031:expand_2escm"),(void*)f_11031}, {C_text("f_11033:expand_2escm"),(void*)f_11033}, {C_text("f_11037:expand_2escm"),(void*)f_11037}, {C_text("f_11042:expand_2escm"),(void*)f_11042}, {C_text("f_11057:expand_2escm"),(void*)f_11057}, {C_text("f_11068:expand_2escm"),(void*)f_11068}, {C_text("f_11071:expand_2escm"),(void*)f_11071}, {C_text("f_11093:expand_2escm"),(void*)f_11093}, {C_text("f_11100:expand_2escm"),(void*)f_11100}, {C_text("f_11104:expand_2escm"),(void*)f_11104}, {C_text("f_11113:expand_2escm"),(void*)f_11113}, {C_text("f_11120:expand_2escm"),(void*)f_11120}, {C_text("f_11123:expand_2escm"),(void*)f_11123}, {C_text("f_11158:expand_2escm"),(void*)f_11158}, {C_text("f_11160:expand_2escm"),(void*)f_11160}, {C_text("f_11164:expand_2escm"),(void*)f_11164}, {C_text("f_11175:expand_2escm"),(void*)f_11175}, {C_text("f_11177:expand_2escm"),(void*)f_11177}, {C_text("f_11181:expand_2escm"),(void*)f_11181}, {C_text("f_11192:expand_2escm"),(void*)f_11192}, {C_text("f_11194:expand_2escm"),(void*)f_11194}, {C_text("f_11198:expand_2escm"),(void*)f_11198}, {C_text("f_11209:expand_2escm"),(void*)f_11209}, {C_text("f_11211:expand_2escm"),(void*)f_11211}, {C_text("f_11215:expand_2escm"),(void*)f_11215}, {C_text("f_11226:expand_2escm"),(void*)f_11226}, {C_text("f_11228:expand_2escm"),(void*)f_11228}, {C_text("f_11232:expand_2escm"),(void*)f_11232}, {C_text("f_11235:expand_2escm"),(void*)f_11235}, {C_text("f_11245:expand_2escm"),(void*)f_11245}, {C_text("f_11249:expand_2escm"),(void*)f_11249}, {C_text("f_11251:expand_2escm"),(void*)f_11251}, {C_text("f_11255:expand_2escm"),(void*)f_11255}, {C_text("f_11258:expand_2escm"),(void*)f_11258}, {C_text("f_11261:expand_2escm"),(void*)f_11261}, {C_text("f_11284:expand_2escm"),(void*)f_11284}, {C_text("f_11287:expand_2escm"),(void*)f_11287}, {C_text("f_11333:expand_2escm"),(void*)f_11333}, {C_text("f_11335:expand_2escm"),(void*)f_11335}, {C_text("f_11339:expand_2escm"),(void*)f_11339}, {C_text("f_11342:expand_2escm"),(void*)f_11342}, {C_text("f_11365:expand_2escm"),(void*)f_11365}, {C_text("f_11393:expand_2escm"),(void*)f_11393}, {C_text("f_11398:expand_2escm"),(void*)f_11398}, {C_text("f_11405:expand_2escm"),(void*)f_11405}, {C_text("f_11408:expand_2escm"),(void*)f_11408}, {C_text("f_11417:expand_2escm"),(void*)f_11417}, {C_text("f_11462:expand_2escm"),(void*)f_11462}, {C_text("f_11464:expand_2escm"),(void*)f_11464}, {C_text("f_11489:expand_2escm"),(void*)f_11489}, {C_text("f_11500:expand_2escm"),(void*)f_11500}, {C_text("f_11504:expand_2escm"),(void*)f_11504}, {C_text("f_11506:expand_2escm"),(void*)f_11506}, {C_text("f_11514:expand_2escm"),(void*)f_11514}, {C_text("f_11516:expand_2escm"),(void*)f_11516}, {C_text("f_11520:expand_2escm"),(void*)f_11520}, {C_text("f_11523:expand_2escm"),(void*)f_11523}, {C_text("f_11526:expand_2escm"),(void*)f_11526}, {C_text("f_11533:expand_2escm"),(void*)f_11533}, {C_text("f_11541:expand_2escm"),(void*)f_11541}, {C_text("f_11543:expand_2escm"),(void*)f_11543}, {C_text("f_11547:expand_2escm"),(void*)f_11547}, {C_text("f_11553:expand_2escm"),(void*)f_11553}, {C_text("f_11559:expand_2escm"),(void*)f_11559}, {C_text("f_11562:expand_2escm"),(void*)f_11562}, {C_text("f_11574:expand_2escm"),(void*)f_11574}, {C_text("f_11577:expand_2escm"),(void*)f_11577}, {C_text("f_11608:expand_2escm"),(void*)f_11608}, {C_text("f_11612:expand_2escm"),(void*)f_11612}, {C_text("f_11615:expand_2escm"),(void*)f_11615}, {C_text("f_11622:expand_2escm"),(void*)f_11622}, {C_text("f_11631:expand_2escm"),(void*)f_11631}, {C_text("f_11656:expand_2escm"),(void*)f_11656}, {C_text("f_11690:expand_2escm"),(void*)f_11690}, {C_text("f_11704:expand_2escm"),(void*)f_11704}, {C_text("f_11716:expand_2escm"),(void*)f_11716}, {C_text("f_11718:expand_2escm"),(void*)f_11718}, {C_text("f_11724:expand_2escm"),(void*)f_11724}, {C_text("f_11734:expand_2escm"),(void*)f_11734}, {C_text("f_11748:expand_2escm"),(void*)f_11748}, {C_text("f_11764:expand_2escm"),(void*)f_11764}, {C_text("f_11788:expand_2escm"),(void*)f_11788}, {C_text("f_11823:expand_2escm"),(void*)f_11823}, {C_text("f_11857:expand_2escm"),(void*)f_11857}, {C_text("f_11879:expand_2escm"),(void*)f_11879}, {C_text("f_11904:expand_2escm"),(void*)f_11904}, {C_text("f_11906:expand_2escm"),(void*)f_11906}, {C_text("f_11985:expand_2escm"),(void*)f_11985}, {C_text("f_11997:expand_2escm"),(void*)f_11997}, {C_text("f_12009:expand_2escm"),(void*)f_12009}, {C_text("f_12011:expand_2escm"),(void*)f_12011}, {C_text("f_12015:expand_2escm"),(void*)f_12015}, {C_text("f_12026:expand_2escm"),(void*)f_12026}, {C_text("f_12036:expand_2escm"),(void*)f_12036}, {C_text("f_12044:expand_2escm"),(void*)f_12044}, {C_text("f_12046:expand_2escm"),(void*)f_12046}, {C_text("f_12055:expand_2escm"),(void*)f_12055}, {C_text("f_12061:expand_2escm"),(void*)f_12061}, {C_text("f_12067:expand_2escm"),(void*)f_12067}, {C_text("f_12071:expand_2escm"),(void*)f_12071}, {C_text("f_12074:expand_2escm"),(void*)f_12074}, {C_text("f_12077:expand_2escm"),(void*)f_12077}, {C_text("f_12090:expand_2escm"),(void*)f_12090}, {C_text("f_12112:expand_2escm"),(void*)f_12112}, {C_text("f_12121:expand_2escm"),(void*)f_12121}, {C_text("f_12123:expand_2escm"),(void*)f_12123}, {C_text("f_12148:expand_2escm"),(void*)f_12148}, {C_text("f_12159:expand_2escm"),(void*)f_12159}, {C_text("f_12161:expand_2escm"),(void*)f_12161}, {C_text("f_12169:expand_2escm"),(void*)f_12169}, {C_text("f_12171:expand_2escm"),(void*)f_12171}, {C_text("f_3700:expand_2escm"),(void*)f_3700}, {C_text("f_3703:expand_2escm"),(void*)f_3703}, {C_text("f_3707:expand_2escm"),(void*)f_3707}, {C_text("f_3712:expand_2escm"),(void*)f_3712}, {C_text("f_3716:expand_2escm"),(void*)f_3716}, {C_text("f_3718:expand_2escm"),(void*)f_3718}, {C_text("f_3735:expand_2escm"),(void*)f_3735}, {C_text("f_3742:expand_2escm"),(void*)f_3742}, {C_text("f_3745:expand_2escm"),(void*)f_3745}, {C_text("f_3748:expand_2escm"),(void*)f_3748}, {C_text("f_3782:expand_2escm"),(void*)f_3782}, {C_text("f_3788:expand_2escm"),(void*)f_3788}, {C_text("f_3804:expand_2escm"),(void*)f_3804}, {C_text("f_3859:expand_2escm"),(void*)f_3859}, {C_text("f_3866:expand_2escm"),(void*)f_3866}, {C_text("f_3884:expand_2escm"),(void*)f_3884}, {C_text("f_3893:expand_2escm"),(void*)f_3893}, {C_text("f_3914:expand_2escm"),(void*)f_3914}, {C_text("f_3924:expand_2escm"),(void*)f_3924}, {C_text("f_3928:expand_2escm"),(void*)f_3928}, {C_text("f_3953:expand_2escm"),(void*)f_3953}, {C_text("f_3968:expand_2escm"),(void*)f_3968}, {C_text("f_3970:expand_2escm"),(void*)f_3970}, {C_text("f_4018:expand_2escm"),(void*)f_4018}, {C_text("f_4067:expand_2escm"),(void*)f_4067}, {C_text("f_4092:expand_2escm"),(void*)f_4092}, {C_text("f_4104:expand_2escm"),(void*)f_4104}, {C_text("f_4110:expand_2escm"),(void*)f_4110}, {C_text("f_4126:expand_2escm"),(void*)f_4126}, {C_text("f_4144:expand_2escm"),(void*)f_4144}, {C_text("f_4160:expand_2escm"),(void*)f_4160}, {C_text("f_4188:expand_2escm"),(void*)f_4188}, {C_text("f_4198:expand_2escm"),(void*)f_4198}, {C_text("f_4222:expand_2escm"),(void*)f_4222}, {C_text("f_4226:expand_2escm"),(void*)f_4226}, {C_text("f_4229:expand_2escm"),(void*)f_4229}, {C_text("f_4236:expand_2escm"),(void*)f_4236}, {C_text("f_4254:expand_2escm"),(void*)f_4254}, {C_text("f_4264:expand_2escm"),(void*)f_4264}, {C_text("f_4268:expand_2escm"),(void*)f_4268}, {C_text("f_4290:expand_2escm"),(void*)f_4290}, {C_text("f_4301:expand_2escm"),(void*)f_4301}, {C_text("f_4309:expand_2escm"),(void*)f_4309}, {C_text("f_4313:expand_2escm"),(void*)f_4313}, {C_text("f_4315:expand_2escm"),(void*)f_4315}, {C_text("f_4338:expand_2escm"),(void*)f_4338}, {C_text("f_4346:expand_2escm"),(void*)f_4346}, {C_text("f_4349:expand_2escm"),(void*)f_4349}, {C_text("f_4359:expand_2escm"),(void*)f_4359}, {C_text("f_4364:expand_2escm"),(void*)f_4364}, {C_text("f_4370:expand_2escm"),(void*)f_4370}, {C_text("f_4376:expand_2escm"),(void*)f_4376}, {C_text("f_4387:expand_2escm"),(void*)f_4387}, {C_text("f_4398:expand_2escm"),(void*)f_4398}, {C_text("f_4404:expand_2escm"),(void*)f_4404}, {C_text("f_4421:expand_2escm"),(void*)f_4421}, {C_text("f_4432:expand_2escm"),(void*)f_4432}, {C_text("f_4471:expand_2escm"),(void*)f_4471}, {C_text("f_4477:expand_2escm"),(void*)f_4477}, {C_text("f_4481:expand_2escm"),(void*)f_4481}, {C_text("f_4484:expand_2escm"),(void*)f_4484}, {C_text("f_4500:expand_2escm"),(void*)f_4500}, {C_text("f_4504:expand_2escm"),(void*)f_4504}, {C_text("f_4511:expand_2escm"),(void*)f_4511}, {C_text("f_4517:expand_2escm"),(void*)f_4517}, {C_text("f_4522:expand_2escm"),(void*)f_4522}, {C_text("f_4528:expand_2escm"),(void*)f_4528}, {C_text("f_4536:expand_2escm"),(void*)f_4536}, {C_text("f_4542:expand_2escm"),(void*)f_4542}, {C_text("f_4548:expand_2escm"),(void*)f_4548}, {C_text("f_4574:expand_2escm"),(void*)f_4574}, {C_text("f_4592:expand_2escm"),(void*)f_4592}, {C_text("f_4616:expand_2escm"),(void*)f_4616}, {C_text("f_4625:expand_2escm"),(void*)f_4625}, {C_text("f_4637:expand_2escm"),(void*)f_4637}, {C_text("f_4662:expand_2escm"),(void*)f_4662}, {C_text("f_4664:expand_2escm"),(void*)f_4664}, {C_text("f_4727:expand_2escm"),(void*)f_4727}, {C_text("f_4733:expand_2escm"),(void*)f_4733}, {C_text("f_4771:expand_2escm"),(void*)f_4771}, {C_text("f_4775:expand_2escm"),(void*)f_4775}, {C_text("f_4779:expand_2escm"),(void*)f_4779}, {C_text("f_4791:expand_2escm"),(void*)f_4791}, {C_text("f_4834:expand_2escm"),(void*)f_4834}, {C_text("f_4844:expand_2escm"),(void*)f_4844}, {C_text("f_4847:expand_2escm"),(void*)f_4847}, {C_text("f_4851:expand_2escm"),(void*)f_4851}, {C_text("f_4865:expand_2escm"),(void*)f_4865}, {C_text("f_4871:expand_2escm"),(void*)f_4871}, {C_text("f_4877:expand_2escm"),(void*)f_4877}, {C_text("f_4913:expand_2escm"),(void*)f_4913}, {C_text("f_4919:expand_2escm"),(void*)f_4919}, {C_text("f_4938:expand_2escm"),(void*)f_4938}, {C_text("f_4960:expand_2escm"),(void*)f_4960}, {C_text("f_4963:expand_2escm"),(void*)f_4963}, {C_text("f_4980:expand_2escm"),(void*)f_4980}, {C_text("f_4983:expand_2escm"),(void*)f_4983}, {C_text("f_4986:expand_2escm"),(void*)f_4986}, {C_text("f_4991:expand_2escm"),(void*)f_4991}, {C_text("f_5005:expand_2escm"),(void*)f_5005}, {C_text("f_5009:expand_2escm"),(void*)f_5009}, {C_text("f_5021:expand_2escm"),(void*)f_5021}, {C_text("f_5052:expand_2escm"),(void*)f_5052}, {C_text("f_5077:expand_2escm"),(void*)f_5077}, {C_text("f_5096:expand_2escm"),(void*)f_5096}, {C_text("f_5100:expand_2escm"),(void*)f_5100}, {C_text("f_5149:expand_2escm"),(void*)f_5149}, {C_text("f_5202:expand_2escm"),(void*)f_5202}, {C_text("f_5206:expand_2escm"),(void*)f_5206}, {C_text("f_5209:expand_2escm"),(void*)f_5209}, {C_text("f_5212:expand_2escm"),(void*)f_5212}, {C_text("f_5214:expand_2escm"),(void*)f_5214}, {C_text("f_5239:expand_2escm"),(void*)f_5239}, {C_text("f_5253:expand_2escm"),(void*)f_5253}, {C_text("f_5294:expand_2escm"),(void*)f_5294}, {C_text("f_5307:expand_2escm"),(void*)f_5307}, {C_text("f_5323:expand_2escm"),(void*)f_5323}, {C_text("f_5341:expand_2escm"),(void*)f_5341}, {C_text("f_5344:expand_2escm"),(void*)f_5344}, {C_text("f_5383:expand_2escm"),(void*)f_5383}, {C_text("f_5402:expand_2escm"),(void*)f_5402}, {C_text("f_5470:expand_2escm"),(void*)f_5470}, {C_text("f_5569:expand_2escm"),(void*)f_5569}, {C_text("f_5575:expand_2escm"),(void*)f_5575}, {C_text("f_5579:expand_2escm"),(void*)f_5579}, {C_text("f_5582:expand_2escm"),(void*)f_5582}, {C_text("f_5601:expand_2escm"),(void*)f_5601}, {C_text("f_5605:expand_2escm"),(void*)f_5605}, {C_text("f_5623:expand_2escm"),(void*)f_5623}, {C_text("f_5645:expand_2escm"),(void*)f_5645}, {C_text("f_5711:expand_2escm"),(void*)f_5711}, {C_text("f_5736:expand_2escm"),(void*)f_5736}, {C_text("f_5749:expand_2escm"),(void*)f_5749}, {C_text("f_5753:expand_2escm"),(void*)f_5753}, {C_text("f_5764:expand_2escm"),(void*)f_5764}, {C_text("f_5847:expand_2escm"),(void*)f_5847}, {C_text("f_5859:expand_2escm"),(void*)f_5859}, {C_text("f_5873:expand_2escm"),(void*)f_5873}, {C_text("f_5878:expand_2escm"),(void*)f_5878}, {C_text("f_5889:expand_2escm"),(void*)f_5889}, {C_text("f_5909:expand_2escm"),(void*)f_5909}, {C_text("f_5913:expand_2escm"),(void*)f_5913}, {C_text("f_5921:expand_2escm"),(void*)f_5921}, {C_text("f_5928:expand_2escm"),(void*)f_5928}, {C_text("f_5940:expand_2escm"),(void*)f_5940}, {C_text("f_5947:expand_2escm"),(void*)f_5947}, {C_text("f_5951:expand_2escm"),(void*)f_5951}, {C_text("f_5989:expand_2escm"),(void*)f_5989}, {C_text("f_6100:expand_2escm"),(void*)f_6100}, {C_text("f_6103:expand_2escm"),(void*)f_6103}, {C_text("f_6109:expand_2escm"),(void*)f_6109}, {C_text("f_6113:expand_2escm"),(void*)f_6113}, {C_text("f_6135:expand_2escm"),(void*)f_6135}, {C_text("f_6138:expand_2escm"),(void*)f_6138}, {C_text("f_6141:expand_2escm"),(void*)f_6141}, {C_text("f_6144:expand_2escm"),(void*)f_6144}, {C_text("f_6146:expand_2escm"),(void*)f_6146}, {C_text("f_6153:expand_2escm"),(void*)f_6153}, {C_text("f_6179:expand_2escm"),(void*)f_6179}, {C_text("f_6208:expand_2escm"),(void*)f_6208}, {C_text("f_6242:expand_2escm"),(void*)f_6242}, {C_text("f_6266:expand_2escm"),(void*)f_6266}, {C_text("f_6268:expand_2escm"),(void*)f_6268}, {C_text("f_6272:expand_2escm"),(void*)f_6272}, {C_text("f_6284:expand_2escm"),(void*)f_6284}, {C_text("f_6292:expand_2escm"),(void*)f_6292}, {C_text("f_6294:expand_2escm"),(void*)f_6294}, {C_text("f_6316:expand_2escm"),(void*)f_6316}, {C_text("f_6319:expand_2escm"),(void*)f_6319}, {C_text("f_6321:expand_2escm"),(void*)f_6321}, {C_text("f_6368:expand_2escm"),(void*)f_6368}, {C_text("f_6372:expand_2escm"),(void*)f_6372}, {C_text("f_6440:expand_2escm"),(void*)f_6440}, {C_text("f_6446:expand_2escm"),(void*)f_6446}, {C_text("f_6466:expand_2escm"),(void*)f_6466}, {C_text("f_6484:expand_2escm"),(void*)f_6484}, {C_text("f_6489:expand_2escm"),(void*)f_6489}, {C_text("f_6502:expand_2escm"),(void*)f_6502}, {C_text("f_6505:expand_2escm"),(void*)f_6505}, {C_text("f_6555:expand_2escm"),(void*)f_6555}, {C_text("f_6562:expand_2escm"),(void*)f_6562}, {C_text("f_6569:expand_2escm"),(void*)f_6569}, {C_text("f_6621:expand_2escm"),(void*)f_6621}, {C_text("f_6633:expand_2escm"),(void*)f_6633}, {C_text("f_6669:expand_2escm"),(void*)f_6669}, {C_text("f_6685:expand_2escm"),(void*)f_6685}, {C_text("f_6755:expand_2escm"),(void*)f_6755}, {C_text("f_6758:expand_2escm"),(void*)f_6758}, {C_text("f_6772:expand_2escm"),(void*)f_6772}, {C_text("f_6812:expand_2escm"),(void*)f_6812}, {C_text("f_6835:expand_2escm"),(void*)f_6835}, {C_text("f_6837:expand_2escm"),(void*)f_6837}, {C_text("f_6840:expand_2escm"),(void*)f_6840}, {C_text("f_6884:expand_2escm"),(void*)f_6884}, {C_text("f_6892:expand_2escm"),(void*)f_6892}, {C_text("f_6900:expand_2escm"),(void*)f_6900}, {C_text("f_6903:expand_2escm"),(void*)f_6903}, {C_text("f_6914:expand_2escm"),(void*)f_6914}, {C_text("f_6919:expand_2escm"),(void*)f_6919}, {C_text("f_6939:expand_2escm"),(void*)f_6939}, {C_text("f_6943:expand_2escm"),(void*)f_6943}, {C_text("f_6958:expand_2escm"),(void*)f_6958}, {C_text("f_6970:expand_2escm"),(void*)f_6970}, {C_text("f_6972:expand_2escm"),(void*)f_6972}, {C_text("f_6979:expand_2escm"),(void*)f_6979}, {C_text("f_6986:expand_2escm"),(void*)f_6986}, {C_text("f_6988:expand_2escm"),(void*)f_6988}, {C_text("f_6998:expand_2escm"),(void*)f_6998}, {C_text("f_7001:expand_2escm"),(void*)f_7001}, {C_text("f_7004:expand_2escm"),(void*)f_7004}, {C_text("f_7007:expand_2escm"),(void*)f_7007}, {C_text("f_7010:expand_2escm"),(void*)f_7010}, {C_text("f_7017:expand_2escm"),(void*)f_7017}, {C_text("f_7024:expand_2escm"),(void*)f_7024}, {C_text("f_7027:expand_2escm"),(void*)f_7027}, {C_text("f_7036:expand_2escm"),(void*)f_7036}, {C_text("f_7039:expand_2escm"),(void*)f_7039}, {C_text("f_7042:expand_2escm"),(void*)f_7042}, {C_text("f_7045:expand_2escm"),(void*)f_7045}, {C_text("f_7048:expand_2escm"),(void*)f_7048}, {C_text("f_7051:expand_2escm"),(void*)f_7051}, {C_text("f_7064:expand_2escm"),(void*)f_7064}, {C_text("f_7068:expand_2escm"),(void*)f_7068}, {C_text("f_7079:expand_2escm"),(void*)f_7079}, {C_text("f_7083:expand_2escm"),(void*)f_7083}, {C_text("f_7085:expand_2escm"),(void*)f_7085}, {C_text("f_7099:expand_2escm"),(void*)f_7099}, {C_text("f_7103:expand_2escm"),(void*)f_7103}, {C_text("f_7124:expand_2escm"),(void*)f_7124}, {C_text("f_7144:expand_2escm"),(void*)f_7144}, {C_text("f_7148:expand_2escm"),(void*)f_7148}, {C_text("f_7163:expand_2escm"),(void*)f_7163}, {C_text("f_7173:expand_2escm"),(void*)f_7173}, {C_text("f_7178:expand_2escm"),(void*)f_7178}, {C_text("f_7185:expand_2escm"),(void*)f_7185}, {C_text("f_7190:expand_2escm"),(void*)f_7190}, {C_text("f_7194:expand_2escm"),(void*)f_7194}, {C_text("f_7201:expand_2escm"),(void*)f_7201}, {C_text("f_7208:expand_2escm"),(void*)f_7208}, {C_text("f_7215:expand_2escm"),(void*)f_7215}, {C_text("f_7217:expand_2escm"),(void*)f_7217}, {C_text("f_7221:expand_2escm"),(void*)f_7221}, {C_text("f_7229:expand_2escm"),(void*)f_7229}, {C_text("f_7262:expand_2escm"),(void*)f_7262}, {C_text("f_7268:expand_2escm"),(void*)f_7268}, {C_text("f_7274:expand_2escm"),(void*)f_7274}, {C_text("f_7295:expand_2escm"),(void*)f_7295}, {C_text("f_7300:expand_2escm"),(void*)f_7300}, {C_text("f_7319:expand_2escm"),(void*)f_7319}, {C_text("f_7324:expand_2escm"),(void*)f_7324}, {C_text("f_7343:expand_2escm"),(void*)f_7343}, {C_text("f_7497:expand_2escm"),(void*)f_7497}, {C_text("f_7554:expand_2escm"),(void*)f_7554}, {C_text("f_7607:expand_2escm"),(void*)f_7607}, {C_text("f_7613:expand_2escm"),(void*)f_7613}, {C_text("f_7620:expand_2escm"),(void*)f_7620}, {C_text("f_7622:expand_2escm"),(void*)f_7622}, {C_text("f_7636:expand_2escm"),(void*)f_7636}, {C_text("f_7640:expand_2escm"),(void*)f_7640}, {C_text("f_7657:expand_2escm"),(void*)f_7657}, {C_text("f_7661:expand_2escm"),(void*)f_7661}, {C_text("f_7670:expand_2escm"),(void*)f_7670}, {C_text("f_7690:expand_2escm"),(void*)f_7690}, {C_text("f_7710:expand_2escm"),(void*)f_7710}, {C_text("f_7732:expand_2escm"),(void*)f_7732}, {C_text("f_7769:expand_2escm"),(void*)f_7769}, {C_text("f_7790:expand_2escm"),(void*)f_7790}, {C_text("f_7813:expand_2escm"),(void*)f_7813}, {C_text("f_7821:expand_2escm"),(void*)f_7821}, {C_text("f_7829:expand_2escm"),(void*)f_7829}, {C_text("f_7851:expand_2escm"),(void*)f_7851}, {C_text("f_7866:expand_2escm"),(void*)f_7866}, {C_text("f_7879:expand_2escm"),(void*)f_7879}, {C_text("f_7894:expand_2escm"),(void*)f_7894}, {C_text("f_7932:expand_2escm"),(void*)f_7932}, {C_text("f_7957:expand_2escm"),(void*)f_7957}, {C_text("f_7971:expand_2escm"),(void*)f_7971}, {C_text("f_7975:expand_2escm"),(void*)f_7975}, {C_text("f_7992:expand_2escm"),(void*)f_7992}, {C_text("f_7996:expand_2escm"),(void*)f_7996}, {C_text("f_8005:expand_2escm"),(void*)f_8005}, {C_text("f_8091:expand_2escm"),(void*)f_8091}, {C_text("f_8095:expand_2escm"),(void*)f_8095}, {C_text("f_8100:expand_2escm"),(void*)f_8100}, {C_text("f_8106:expand_2escm"),(void*)f_8106}, {C_text("f_8119:expand_2escm"),(void*)f_8119}, {C_text("f_8122:expand_2escm"),(void*)f_8122}, {C_text("f_8126:expand_2escm"),(void*)f_8126}, {C_text("f_8129:expand_2escm"),(void*)f_8129}, {C_text("f_8132:expand_2escm"),(void*)f_8132}, {C_text("f_8136:expand_2escm"),(void*)f_8136}, {C_text("f_8139:expand_2escm"),(void*)f_8139}, {C_text("f_8142:expand_2escm"),(void*)f_8142}, {C_text("f_8145:expand_2escm"),(void*)f_8145}, {C_text("f_8148:expand_2escm"),(void*)f_8148}, {C_text("f_8151:expand_2escm"),(void*)f_8151}, {C_text("f_8154:expand_2escm"),(void*)f_8154}, {C_text("f_8158:expand_2escm"),(void*)f_8158}, {C_text("f_8162:expand_2escm"),(void*)f_8162}, {C_text("f_8165:expand_2escm"),(void*)f_8165}, {C_text("f_8168:expand_2escm"),(void*)f_8168}, {C_text("f_8171:expand_2escm"),(void*)f_8171}, {C_text("f_8174:expand_2escm"),(void*)f_8174}, {C_text("f_8178:expand_2escm"),(void*)f_8178}, {C_text("f_8182:expand_2escm"),(void*)f_8182}, {C_text("f_8185:expand_2escm"),(void*)f_8185}, {C_text("f_8188:expand_2escm"),(void*)f_8188}, {C_text("f_8191:expand_2escm"),(void*)f_8191}, {C_text("f_8194:expand_2escm"),(void*)f_8194}, {C_text("f_8197:expand_2escm"),(void*)f_8197}, {C_text("f_8200:expand_2escm"),(void*)f_8200}, {C_text("f_8203:expand_2escm"),(void*)f_8203}, {C_text("f_8206:expand_2escm"),(void*)f_8206}, {C_text("f_8209:expand_2escm"),(void*)f_8209}, {C_text("f_8212:expand_2escm"),(void*)f_8212}, {C_text("f_8215:expand_2escm"),(void*)f_8215}, {C_text("f_8218:expand_2escm"),(void*)f_8218}, {C_text("f_8221:expand_2escm"),(void*)f_8221}, {C_text("f_8224:expand_2escm"),(void*)f_8224}, {C_text("f_8226:expand_2escm"),(void*)f_8226}, {C_text("f_8232:expand_2escm"),(void*)f_8232}, {C_text("f_8242:expand_2escm"),(void*)f_8242}, {C_text("f_8260:expand_2escm"),(void*)f_8260}, {C_text("f_8268:expand_2escm"),(void*)f_8268}, {C_text("f_8278:expand_2escm"),(void*)f_8278}, {C_text("f_8305:expand_2escm"),(void*)f_8305}, {C_text("f_8320:expand_2escm"),(void*)f_8320}, {C_text("f_8324:expand_2escm"),(void*)f_8324}, {C_text("f_8329:expand_2escm"),(void*)f_8329}, {C_text("f_8335:expand_2escm"),(void*)f_8335}, {C_text("f_8339:expand_2escm"),(void*)f_8339}, {C_text("f_8343:expand_2escm"),(void*)f_8343}, {C_text("f_8347:expand_2escm"),(void*)f_8347}, {C_text("f_8351:expand_2escm"),(void*)f_8351}, {C_text("f_8355:expand_2escm"),(void*)f_8355}, {C_text("f_8360:expand_2escm"),(void*)f_8360}, {C_text("f_8367:expand_2escm"),(void*)f_8367}, {C_text("f_8372:expand_2escm"),(void*)f_8372}, {C_text("f_8376:expand_2escm"),(void*)f_8376}, {C_text("f_8380:expand_2escm"),(void*)f_8380}, {C_text("f_8384:expand_2escm"),(void*)f_8384}, {C_text("f_8389:expand_2escm"),(void*)f_8389}, {C_text("f_8393:expand_2escm"),(void*)f_8393}, {C_text("f_8397:expand_2escm"),(void*)f_8397}, {C_text("f_8401:expand_2escm"),(void*)f_8401}, {C_text("f_8403:expand_2escm"),(void*)f_8403}, {C_text("f_8409:expand_2escm"),(void*)f_8409}, {C_text("f_8437:expand_2escm"),(void*)f_8437}, {C_text("f_8447:expand_2escm"),(void*)f_8447}, {C_text("f_8461:expand_2escm"),(void*)f_8461}, {C_text("f_8486:expand_2escm"),(void*)f_8486}, {C_text("f_8503:expand_2escm"),(void*)f_8503}, {C_text("f_8510:expand_2escm"),(void*)f_8510}, {C_text("f_8531:expand_2escm"),(void*)f_8531}, {C_text("f_8535:expand_2escm"),(void*)f_8535}, {C_text("f_8539:expand_2escm"),(void*)f_8539}, {C_text("f_8541:expand_2escm"),(void*)f_8541}, {C_text("f_8546:expand_2escm"),(void*)f_8546}, {C_text("f_8569:expand_2escm"),(void*)f_8569}, {C_text("f_8603:expand_2escm"),(void*)f_8603}, {C_text("f_8639:expand_2escm"),(void*)f_8639}, {C_text("f_8643:expand_2escm"),(void*)f_8643}, {C_text("f_8647:expand_2escm"),(void*)f_8647}, {C_text("f_8696:expand_2escm"),(void*)f_8696}, {C_text("f_8704:expand_2escm"),(void*)f_8704}, {C_text("f_8717:expand_2escm"),(void*)f_8717}, {C_text("f_8750:expand_2escm"),(void*)f_8750}, {C_text("f_8754:expand_2escm"),(void*)f_8754}, {C_text("f_8809:expand_2escm"),(void*)f_8809}, {C_text("f_8833:expand_2escm"),(void*)f_8833}, {C_text("f_8877:expand_2escm"),(void*)f_8877}, {C_text("f_8901:expand_2escm"),(void*)f_8901}, {C_text("f_8907:expand_2escm"),(void*)f_8907}, {C_text("f_8920:expand_2escm"),(void*)f_8920}, {C_text("f_8924:expand_2escm"),(void*)f_8924}, {C_text("f_8936:expand_2escm"),(void*)f_8936}, {C_text("f_8982:expand_2escm"),(void*)f_8982}, {C_text("f_8986:expand_2escm"),(void*)f_8986}, {C_text("f_9011:expand_2escm"),(void*)f_9011}, {C_text("f_9017:expand_2escm"),(void*)f_9017}, {C_text("f_9056:expand_2escm"),(void*)f_9056}, {C_text("f_9059:expand_2escm"),(void*)f_9059}, {C_text("f_9065:expand_2escm"),(void*)f_9065}, {C_text("f_9077:expand_2escm"),(void*)f_9077}, {C_text("f_9080:expand_2escm"),(void*)f_9080}, {C_text("f_9083:expand_2escm"),(void*)f_9083}, {C_text("f_9096:expand_2escm"),(void*)f_9096}, {C_text("f_9100:expand_2escm"),(void*)f_9100}, {C_text("f_9104:expand_2escm"),(void*)f_9104}, {C_text("f_9106:expand_2escm"),(void*)f_9106}, {C_text("f_9127:expand_2escm"),(void*)f_9127}, {C_text("f_9179:expand_2escm"),(void*)f_9179}, {C_text("f_9183:expand_2escm"),(void*)f_9183}, {C_text("f_9200:expand_2escm"),(void*)f_9200}, {C_text("f_9204:expand_2escm"),(void*)f_9204}, {C_text("f_9209:expand_2escm"),(void*)f_9209}, {C_text("f_9235:expand_2escm"),(void*)f_9235}, {C_text("f_9250:expand_2escm"),(void*)f_9250}, {C_text("f_9269:expand_2escm"),(void*)f_9269}, {C_text("f_9284:expand_2escm"),(void*)f_9284}, {C_text("f_9286:expand_2escm"),(void*)f_9286}, {C_text("f_9328:expand_2escm"),(void*)f_9328}, {C_text("f_9339:expand_2escm"),(void*)f_9339}, {C_text("f_9358:expand_2escm"),(void*)f_9358}, {C_text("f_9373:expand_2escm"),(void*)f_9373}, {C_text("f_9375:expand_2escm"),(void*)f_9375}, {C_text("f_9382:expand_2escm"),(void*)f_9382}, {C_text("f_9403:expand_2escm"),(void*)f_9403}, {C_text("f_9427:expand_2escm"),(void*)f_9427}, {C_text("f_9434:expand_2escm"),(void*)f_9434}, {C_text("f_9441:expand_2escm"),(void*)f_9441}, {C_text("f_9447:expand_2escm"),(void*)f_9447}, {C_text("f_9457:expand_2escm"),(void*)f_9457}, {C_text("f_9464:expand_2escm"),(void*)f_9464}, {C_text("f_9485:expand_2escm"),(void*)f_9485}, {C_text("f_9489:expand_2escm"),(void*)f_9489}, {C_text("f_9493:expand_2escm"),(void*)f_9493}, {C_text("f_9497:expand_2escm"),(void*)f_9497}, {C_text("f_9501:expand_2escm"),(void*)f_9501}, {C_text("f_9505:expand_2escm"),(void*)f_9505}, {C_text("f_9507:expand_2escm"),(void*)f_9507}, {C_text("f_9511:expand_2escm"),(void*)f_9511}, {C_text("f_9519:expand_2escm"),(void*)f_9519}, {C_text("f_9528:expand_2escm"),(void*)f_9528}, {C_text("f_9541:expand_2escm"),(void*)f_9541}, {C_text("f_9543:expand_2escm"),(void*)f_9543}, {C_text("f_9547:expand_2escm"),(void*)f_9547}, {C_text("f_9554:expand_2escm"),(void*)f_9554}, {C_text("f_9574:expand_2escm"),(void*)f_9574}, {C_text("f_9576:expand_2escm"),(void*)f_9576}, {C_text("f_9580:expand_2escm"),(void*)f_9580}, {C_text("f_9583:expand_2escm"),(void*)f_9583}, {C_text("f_9586:expand_2escm"),(void*)f_9586}, {C_text("f_9588:expand_2escm"),(void*)f_9588}, {C_text("f_9596:expand_2escm"),(void*)f_9596}, {C_text("f_9598:expand_2escm"),(void*)f_9598}, {C_text("f_9612:expand_2escm"),(void*)f_9612}, {C_text("f_9616:expand_2escm"),(void*)f_9616}, {C_text("f_9635:expand_2escm"),(void*)f_9635}, {C_text("f_9644:expand_2escm"),(void*)f_9644}, {C_text("f_9658:expand_2escm"),(void*)f_9658}, {C_text("f_9668:expand_2escm"),(void*)f_9668}, {C_text("f_9679:expand_2escm"),(void*)f_9679}, {C_text("f_9689:expand_2escm"),(void*)f_9689}, {C_text("f_9698:expand_2escm"),(void*)f_9698}, {C_text("f_9709:expand_2escm"),(void*)f_9709}, {C_text("f_9720:expand_2escm"),(void*)f_9720}, {C_text("f_9728:expand_2escm"),(void*)f_9728}, {C_text("f_9743:expand_2escm"),(void*)f_9743}, {C_text("f_9747:expand_2escm"),(void*)f_9747}, {C_text("f_9761:expand_2escm"),(void*)f_9761}, {C_text("f_9765:expand_2escm"),(void*)f_9765}, {C_text("f_9769:expand_2escm"),(void*)f_9769}, {C_text("f_9791:expand_2escm"),(void*)f_9791}, {C_text("f_9795:expand_2escm"),(void*)f_9795}, {C_text("f_9838:expand_2escm"),(void*)f_9838}, {C_text("f_9856:expand_2escm"),(void*)f_9856}, {C_text("f_9867:expand_2escm"),(void*)f_9867}, {C_text("f_9869:expand_2escm"),(void*)f_9869}, {C_text("f_9873:expand_2escm"),(void*)f_9873}, {C_text("f_9885:expand_2escm"),(void*)f_9885}, {C_text("f_9913:expand_2escm"),(void*)f_9913}, {C_text("f_9934:expand_2escm"),(void*)f_9934}, {C_text("f_9975:expand_2escm"),(void*)f_9975}, {C_text("f_9977:expand_2escm"),(void*)f_9977}, {C_text("toplevel:expand_2escm"),(void*)C_expand_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.syntax#d o|hiding unexported module binding: chicken.syntax#define-alias o|hiding unexported module binding: chicken.syntax#d o|hiding unexported module binding: chicken.syntax#map-se o|hiding unexported module binding: chicken.syntax#dd o|hiding unexported module binding: chicken.syntax#dm o|hiding unexported module binding: chicken.syntax#dx o|hiding unexported module binding: chicken.syntax#lookup o|hiding unexported module binding: chicken.syntax#macro-alias o|hiding unexported module binding: chicken.syntax#expansion-result-hook o|hiding unexported module binding: chicken.syntax#defjam-error o|hiding unexported module binding: chicken.syntax#define-definition o|hiding unexported module binding: chicken.syntax#define-syntax-definition o|hiding unexported module binding: chicken.syntax#define-values-definition o|hiding unexported module binding: chicken.syntax#import-definition o|hiding unexported module binding: chicken.syntax#make-er/ir-transformer o|hiding unexported module binding: chicken.internal.syntax-rules#process-syntax-rules S|applied compiler syntax: S| chicken.format#sprintf 1 S| chicken.base#foldl 1 S| ##sys#map 5 S| scheme#for-each 1 S| scheme#map 12 o|eliminated procedure checks: 549 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 1 (scheme#zero? integer) o| 1 (##sys#check-output-port * * *) o| 6 (scheme#cddr (pair * pair)) o| 1 (scheme#= fixnum fixnum) o| 2 (scheme#cdddr (pair * (pair * pair))) o| 2 (scheme#vector-length vector) o| 8 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 4 (scheme#not false) o| 4 (keyword (not keyword)) o| 1 (scheme#caar (pair pair *)) o| 1 (scheme#>= fixnum fixnum) o| 3 (scheme#length list) o| 19 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 2 (scheme#cdar (pair pair *)) o| 10 (##sys#check-list (or pair list) *) o| 1 (scheme#set-cdr! pair *) o| 72 (scheme#cdr pair) o| 1 (scheme#set-car! pair *) o| 59 (scheme#car pair) (o e)|safe calls: 1257 (o e)|dropped branches: 2 (o e)|assignments to immediate values: 9 o|inlining procedure: k3720 o|inlining procedure: k3720 o|contracted procedure: "(expand.scm:93) g310311" o|inlining procedure: k3737 o|inlining procedure: k3737 o|contracted procedure: "(expand.scm:103) g343344" o|contracted procedure: "(expand.scm:102) g338339" o|contracted procedure: "(expand.scm:101) g332333" o|contracted procedure: "(expand.scm:97) g320321" o|inlining procedure: k3793 o|inlining procedure: k3793 o|inlining procedure: k3805 o|inlining procedure: k3824 o|inlining procedure: k3824 o|contracted procedure: "(expand.scm:117) g374375" o|contracted procedure: "(expand.scm:116) g363364" o|inlining procedure: k3805 o|inlining procedure: k3873 o|inlining procedure: k3895 o|inlining procedure: k3895 o|inlining procedure: k3873 o|inlining procedure: k3972 o|contracted procedure: "(expand.scm:142) g475485" o|inlining procedure: k3972 o|inlining procedure: k4020 o|contracted procedure: "(expand.scm:137) g433441" o|contracted procedure: "(expand.scm:140) g451452" o|contracted procedure: "(expand.scm:139) g447448" o|inlining procedure: k4020 o|inlining procedure: k4069 o|inlining procedure: k4069 o|inlining procedure: k4112 o|inlining procedure: k4112 o|inlining procedure: k4128 o|inlining procedure: k4128 o|inlining procedure: k4146 o|inlining procedure: k4146 o|contracted procedure: "(expand.scm:150) g512513" o|inlining procedure: k4203 o|inlining procedure: k4203 o|inlining procedure: k4233 o|inlining procedure: k4233 o|inlining procedure: k4275 o|inlining procedure: k4275 o|inlining procedure: k4317 o|inlining procedure: k4317 o|inlining procedure: k4382 o|inlining procedure: k4406 o|inlining procedure: k4406 o|inlining procedure: k4449 o|inlining procedure: k4449 o|inlining procedure: k4382 o|inlining procedure: k4553 o|inlining procedure: k4553 o|inlining procedure: k4594 o|inlining procedure: k4617 o|inlining procedure: k4666 o|inlining procedure: k4666 o|inlining procedure: k4735 o|contracted procedure: "(expand.scm:292) g688697" o|inlining procedure: k4735 o|inlining procedure: k4617 o|inlining procedure: k4780 o|inlining procedure: k4780 o|inlining procedure: k4810 o|contracted procedure: "(expand.scm:297) g738739" o|inlining procedure: k4810 o|inlining procedure: k4828 o|inlining procedure: k4828 o|inlining procedure: k4594 o|inlining procedure: k4879 o|inlining procedure: k4879 o|inlining procedure: k4921 o|inlining procedure: k4947 o|inlining procedure: k4947 o|substituted constant variable: a4954 o|substituted constant variable: a4956 o|substituted constant variable: a4958 o|inlining procedure: k4921 o|inlining procedure: k4993 o|inlining procedure: k5010 o|inlining procedure: k5010 o|substituted constant variable: %let822 o|inlining procedure: k5053 o|inlining procedure: k5053 o|inlining procedure: k5106 o|inlining procedure: k5106 o|inlining procedure: k5118 o|inlining procedure: k5118 o|inlining procedure: k5178 o|substituted constant variable: %lambda819 o|inlining procedure: k5178 o|contracted procedure: "(expand.scm:371) ->keyword813" o|inlining procedure: k5216 o|inlining procedure: k5216 o|inlining procedure: k4993 o|inlining procedure: k5263 o|inlining procedure: k5263 o|inlining procedure: k5280 o|inlining procedure: k5280 o|inlining procedure: k5308 o|inlining procedure: k5308 o|inlining procedure: k5324 o|inlining procedure: k5336 o|inlining procedure: k5336 o|inlining procedure: k5324 o|inlining procedure: k5384 o|inlining procedure: k5384 o|inlining procedure: k5403 o|inlining procedure: k5422 o|inlining procedure: k5422 o|substituted constant variable: a5460 o|substituted constant variable: a5462 o|substituted constant variable: a5464 o|inlining procedure: k5403 o|inlining procedure: k5471 o|inlining procedure: k5471 o|inlining procedure: k5493 o|inlining procedure: k5493 o|substituted constant variable: a5510 o|substituted constant variable: a5512 o|substituted constant variable: a5514 o|inlining procedure: k5521 o|inlining procedure: k5521 o|substituted constant variable: a5537 o|substituted constant variable: a5539 o|substituted constant variable: a5541 o|inlining procedure: k5545 o|inlining procedure: k5545 o|inlining procedure: k5625 o|inlining procedure: k5625 o|inlining procedure: k5647 o|contracted procedure: "(expand.scm:462) g982992" o|inlining procedure: k5647 o|inlining procedure: k5713 o|inlining procedure: k5713 o|inlining procedure: k5772 o|inlining procedure: k5772 o|inlining procedure: k5781 o|inlining procedure: k5781 o|inlining procedure: k5790 o|inlining procedure: k5790 o|inlining procedure: k5811 o|inlining procedure: k5811 o|inlining procedure: k5820 o|inlining procedure: k5820 o|substituted constant variable: a5839 o|substituted constant variable: a5841 o|substituted constant variable: a5843 o|substituted constant variable: a5845 o|inlining procedure: k5849 o|inlining procedure: k5861 o|inlining procedure: k5861 o|inlining procedure: k5884 o|inlining procedure: k5884 o|inlining procedure: k5935 o|inlining procedure: k5953 o|inlining procedure: k5953 o|inlining procedure: k5935 o|inlining procedure: k6010 o|inlining procedure: k6010 o|inlining procedure: k6042 o|inlining procedure: k6057 o|inlining procedure: k6057 o|inlining procedure: k6069 o|inlining procedure: k6069 o|inlining procedure: k6042 o|inlining procedure: k5849 o|inlining procedure: k6148 o|contracted procedure: "(expand.scm:544) g11611172" o|inlining procedure: k6120 o|inlining procedure: k6120 o|inlining procedure: k6148 o|inlining procedure: k6198 o|inlining procedure: k6198 o|inlining procedure: k6210 o|contracted procedure: "(expand.scm:536) g11131122" o|inlining procedure: k6210 o|inlining procedure: k6244 o|contracted procedure: "(expand.scm:539) g11371138" o|inlining procedure: k6244 o|substituted constant variable: g11291132 o|inlining procedure: k6296 o|inlining procedure: k6323 o|inlining procedure: k6323 o|inlining procedure: k6296 o|inlining procedure: k6363 o|inlining procedure: "(expand.scm:572) chicken.syntax#defjam-error" o|inlining procedure: k6363 o|inlining procedure: k6402 o|inlining procedure: k6402 o|substituted constant variable: a6424 o|inlining procedure: k6448 o|inlining procedure: k6448 o|inlining procedure: k6476 o|inlining procedure: k6494 o|inlining procedure: k6522 o|inlining procedure: k6522 o|inlining procedure: "(expand.scm:597) chicken.syntax#defjam-error" o|inlining procedure: k6494 o|inlining procedure: k6476 o|inlining procedure: k6625 o|inlining procedure: k6625 o|inlining procedure: k6674 o|inlining procedure: k6674 o|inlining procedure: k6710 o|inlining procedure: k6710 o|inlining procedure: k6760 o|inlining procedure: k6784 o|inlining procedure: k6784 o|inlining procedure: k6760 o|inlining procedure: k6807 o|inlining procedure: k6807 o|inlining procedure: k6830 o|inlining procedure: k6830 o|inlining procedure: k6842 o|inlining procedure: k6842 o|inlining procedure: k6959 o|inlining procedure: k6959 o|inlining procedure: k6990 o|inlining procedure: k6990 o|inlining procedure: k7052 o|inlining procedure: k7052 o|inlining procedure: k7087 o|inlining procedure: k7087 o|contracted procedure: "(expand.scm:708) syntax-imports1337" o|inlining procedure: k6921 o|inlining procedure: k6921 o|inlining procedure: k7126 o|inlining procedure: k7136 o|inlining procedure: k7153 o|inlining procedure: k7153 o|inlining procedure: k7136 o|inlining procedure: k7126 o|inlining procedure: k7180 o|inlining procedure: k7180 o|inlining procedure: k7199 o|inlining procedure: k7199 o|propagated global variable: sexp1427 ##sys#syntax-error-culprit o|inlining procedure: k7222 o|inlining procedure: k7222 o|inlining procedure: k7234 o|inlining procedure: k7234 o|inlining procedure: k7243 o|inlining procedure: k7243 o|inlining procedure: k7279 o|inlining procedure: k7279 o|inlining procedure: k7302 o|inlining procedure: k7326 o|inlining procedure: k7326 o|inlining procedure: k7361 o|inlining procedure: k7361 o|inlining procedure: k7384 o|inlining procedure: k7384 o|inlining procedure: k7302 o|inlining procedure: k7405 o|inlining procedure: k7405 o|inlining procedure: k7418 o|inlining procedure: k7430 o|inlining procedure: k7430 o|inlining procedure: k7448 o|inlining procedure: k7448 o|inlining procedure: k7466 o|inlining procedure: k7466 o|inlining procedure: k7484 o|inlining procedure: k7484 o|inlining procedure: k7506 o|inlining procedure: k7506 o|substituted constant variable: a7519 o|substituted constant variable: a7521 o|substituted constant variable: a7523 o|substituted constant variable: a7525 o|substituted constant variable: a7527 o|substituted constant variable: a7529 o|substituted constant variable: a7531 o|substituted constant variable: a7533 o|inlining procedure: k7418 o|inlining procedure: k7543 o|inlining procedure: k7543 o|inlining procedure: k7624 o|inlining procedure: k7624 o|inlining procedure: k7662 o|inlining procedure: k7662 o|contracted procedure: "(expand.scm:839) g15241525" o|inlining procedure: k7712 o|inlining procedure: k7727 o|inlining procedure: k7727 o|inlining procedure: k7712 o|inlining procedure: k7750 o|inlining procedure: k7771 o|inlining procedure: k7771 o|inlining procedure: k7750 o|inlining procedure: k7808 o|inlining procedure: k7836 o|inlining procedure: k7836 o|inlining procedure: k7867 o|inlining procedure: k7867 o|inlining procedure: k7901 o|inlining procedure: k7901 o|removed unused parameter to known procedure: n1605 "(expand.scm:872) lookup21511" o|contracted procedure: "(expand.scm:871) g15731574" o|inlining procedure: k7907 o|inlining procedure: k7907 o|removed unused parameter to known procedure: n1605 "(expand.scm:869) lookup21511" o|contracted procedure: "(expand.scm:868) g15631564" o|inlining procedure: k7808 o|inlining procedure: k7916 o|inlining procedure: k7916 o|removed unused formal parameters: (n1605) o|inlining procedure: k7934 o|inlining procedure: k7934 o|inlining procedure: k7959 o|inlining procedure: k7959 o|inlining procedure: k7997 o|inlining procedure: k7997 o|contracted procedure: "(expand.scm:908) g16331634" o|inlining procedure: k8026 o|inlining procedure: k8026 o|inlining procedure: k8055 o|contracted procedure: "(expand.scm:908) g16501651" o|inlining procedure: k8055 o|contracted procedure: "(expand.scm:915) g16461647" o|inlining procedure: k8079 o|inlining procedure: k8079 o|inlining procedure: k8244 o|inlining procedure: k8244 o|inlining procedure: k8280 o|inlining procedure: k8280 o|contracted procedure: "(synrules.scm:57) chicken.internal.syntax-rules#process-syntax-rules" o|removed side-effect free assignment to unused variable: %vector-length2627 o|removed side-effect free assignment to unused variable: %vector-ref2628 o|removed side-effect free assignment to unused variable: %null?2650 o|removed side-effect free assignment to unused variable: %or2651 o|removed side-effect free assignment to unused variable: %syntax-error2657 o|inlining procedure: k8463 o|inlining procedure: k8463 o|inlining procedure: k8505 o|inlining procedure: k8505 o|inlining procedure: k8553 o|inlining procedure: k8553 o|inlining procedure: k8571 o|inlining procedure: k8571 o|inlining procedure: k8607 o|inlining procedure: k8607 o|inlining procedure: k8709 o|inlining procedure: k8709 o|inlining procedure: k8743 o|inlining procedure: k8743 o|inlining procedure: k8879 o|inlining procedure: k8879 o|inlining procedure: k8942 o|inlining procedure: k8942 o|inlining procedure: k8970 o|inlining procedure: k8970 o|inlining procedure: k9019 o|inlining procedure: k9031 o|inlining procedure: k9031 o|inlining procedure: k9019 o|inlining procedure: k9066 o|inlining procedure: k9066 o|substituted constant variable: %append2620 o|inlining procedure: k9108 o|inlining procedure: k9108 o|substituted constant variable: %apply2621 o|substituted constant variable: %append2620 o|inlining procedure: k9142 o|inlining procedure: k9142 o|inlining procedure: k9167 o|inlining procedure: k9167 o|inlining procedure: k9211 o|inlining procedure: k9211 o|inlining procedure: k9255 o|inlining procedure: k9255 o|inlining procedure: k9288 o|inlining procedure: k9309 o|inlining procedure: k9309 o|inlining procedure: k9288 o|inlining procedure: k9344 o|inlining procedure: k9344 o|inlining procedure: k9377 o|inlining procedure: k9389 o|inlining procedure: k9389 o|inlining procedure: k9377 o|inlining procedure: k9405 o|inlining procedure: k9405 o|inlining procedure: k9429 o|inlining procedure: k9429 o|inlining procedure: k9459 o|inlining procedure: k9459 o|inlining procedure: k9600 o|inlining procedure: k9600 o|inlining procedure: k9630 o|inlining procedure: k9630 o|inlining procedure: k9684 o|inlining procedure: k9684 o|inlining procedure: k9766 o|inlining procedure: k9766 o|inlining procedure: k9800 o|inlining procedure: k9800 o|inlining procedure: k9839 o|contracted procedure: "(expand.scm:1555) g25612562" o|inlining procedure: k9839 o|inlining procedure: k9979 o|contracted procedure: "(expand.scm:1512) g24642473" o|inlining procedure: k9949 o|inlining procedure: k9949 o|inlining procedure: k9979 o|inlining procedure: k10029 o|contracted procedure: "(expand.scm:1501) g24302439" o|inlining procedure: k10029 o|inlining procedure: k10081 o|inlining procedure: k10081 o|inlining procedure: k10155 o|inlining procedure: k10155 o|inlining procedure: k10181 o|inlining procedure: k10199 o|inlining procedure: k10199 o|inlining procedure: k10181 o|inlining procedure: k10304 o|inlining procedure: k10304 o|inlining procedure: k10372 o|inlining procedure: k10372 o|substituted constant variable: a10399 o|substituted constant variable: a10400 o|inlining procedure: k10417 o|inlining procedure: k10444 o|inlining procedure: k10444 o|inlining procedure: k10417 o|inlining procedure: k10506 o|inlining procedure: k10506 o|inlining procedure: k10642 o|inlining procedure: k10642 o|inlining procedure: k10654 o|inlining procedure: k10654 o|inlining procedure: k10666 o|inlining procedure: k10666 o|inlining procedure: k10678 o|inlining procedure: k10678 o|inlining procedure: k10687 o|inlining procedure: k10687 o|inlining procedure: k10740 o|inlining procedure: k10740 o|inlining procedure: k10792 o|inlining procedure: k10792 o|inlining procedure: k10835 o|inlining procedure: k10835 o|inlining procedure: "(expand.scm:1281) chicken.syntax#defjam-error" o|contracted procedure: "(expand.scm:1278) g21442145" o|inlining procedure: k11049 o|inlining procedure: k11084 o|inlining procedure: k11084 o|inlining procedure: "(expand.scm:1256) chicken.syntax#defjam-error" o|contracted procedure: "(expand.scm:1253) g21152116" o|inlining procedure: k11049 o|inlining procedure: k11236 o|inlining procedure: k11236 o|inlining procedure: k11285 o|inlining procedure: k11285 o|inlining procedure: k11300 o|inlining procedure: k11300 o|inlining procedure: k11406 o|inlining procedure: k11406 o|inlining procedure: k11421 o|inlining procedure: k11433 o|inlining procedure: k11433 o|substituted constant variable: a11450 o|inlining procedure: k11421 o|inlining procedure: k11466 o|inlining procedure: k11466 o|propagated global variable: g19891990 ##sys#expand-import o|inlining procedure: k11524 o|inlining procedure: k11524 o|inlining procedure: k11554 o|inlining procedure: k11554 o|inlining procedure: k11651 o|inlining procedure: k11651 o|inlining procedure: k11671 o|inlining procedure: k11671 o|inlining procedure: k11736 o|inlining procedure: k11736 o|inlining procedure: k11765 o|inlining procedure: k11777 o|inlining procedure: k11777 o|inlining procedure: k11765 o|inlining procedure: k11809 o|inlining procedure: k11824 o|inlining procedure: k11824 o|inlining procedure: k11809 o|inlining procedure: k11845 o|inlining procedure: k11845 o|substituted constant variable: a11866 o|substituted constant variable: a11868 o|substituted constant variable: a11870 o|inlining procedure: k11881 o|inlining procedure: k11908 o|contracted procedure: "(expand.scm:1036) g19011910" o|inlining procedure: k11908 o|inlining procedure: k11881 o|inlining procedure: k11952 o|inlining procedure: k11952 o|inlining procedure: k11971 o|inlining procedure: k11971 o|inlining procedure: k11980 o|inlining procedure: k11980 o|inlining procedure: k12078 o|inlining procedure: k12078 o|inlining procedure: k12125 o|inlining procedure: k12125 o|propagated global variable: g17741775 ##sys#expand-import o|propagated global variable: g17601761 ##sys#expand-import o|replaced variables: 1661 o|removed binding forms: 471 o|substituted constant variable: prop313 o|removed call to pure procedure with unused result: "(expand.scm:104) chicken.base#void" o|substituted constant variable: prop346 o|substituted constant variable: prop341 o|substituted constant variable: prop335 o|substituted constant variable: prop377 o|substituted constant variable: prop366 o|substituted constant variable: prop454 o|inlining procedure: k3942 o|inlining procedure: k3942 o|substituted constant variable: prop450 o|substituted constant variable: prop515 o|substituted constant variable: r431812208 o|substituted constant variable: r440712212 o|substituted constant variable: r445012215 o|removed call to pure procedure with unused result: "(expand.scm:253) chicken.base#void" o|removed call to pure procedure with unused result: "(expand.scm:212) chicken.base#void" o|removed call to pure procedure with unused result: "(expand.scm:211) chicken.base#void" o|removed call to pure procedure with unused result: "(expand.scm:256) chicken.base#void" o|inlining procedure: k4789 o|substituted constant variable: prop741 o|substituted constant variable: r481112230 o|substituted constant variable: r492212241 o|substituted constant variable: r511912254 o|substituted constant variable: r517912257 o|substituted constant variable: r517912257 o|substituted constant variable: r552212283 o|substituted constant variable: r554612285 o|converted assignments to bindings: (err812) o|removed side-effect free assignment to unused variable: chicken.syntax#defjam-error o|substituted constant variable: r562612286 o|substituted constant variable: r562612286 o|inlining procedure: k5625 o|substituted constant variable: r601112316 o|substituted constant variable: r604312322 o|removed call to pure procedure with unused result: "(expand.scm:555) chicken.base#void" o|substituted constant variable: r619912329 o|substituted constant variable: r640312346 o|substituted constant variable: r652312353 o|substituted constant variable: r652312353 o|substituted constant variable: r671112367 o|substituted constant variable: r678512369 o|substituted constant variable: r680812373 o|substituted constant variable: r683112375 o|substituted constant variable: r708812384 o|substituted constant variable: r692212386 o|converted assignments to bindings: (outstr1350) o|substituted constant variable: r715412391 o|substituted constant variable: r713712392 o|substituted constant variable: r712712393 o|substituted constant variable: r724412405 o|substituted constant variable: r738512414 o|removed call to pure procedure with unused result: "(expand.scm:846) chicken.base#void" o|removed call to pure procedure with unused result: "(expand.scm:850) chicken.base#void" o|removed call to pure procedure with unused result: "(expand.scm:885) chicken.base#void" o|inlining procedure: k7712 o|substituted constant variable: r772812445 o|inlining procedure: k7712 o|inlining procedure: k7712 o|inlining procedure: k7712 o|substituted constant variable: r775112455 o|inlining procedure: k7712 o|inlining procedure: k7712 o|substituted constant variable: prop1576 o|substituted constant variable: prop1566 o|substituted constant variable: r791712466 o|substituted constant variable: r791712467 o|removed call to pure procedure with unused result: "(expand.scm:889) chicken.base#void" o|substituted constant variable: r793512468 o|removed call to pure procedure with unused result: "(expand.scm:910) chicken.base#void" o|removed call to pure procedure with unused result: "(expand.scm:912) chicken.base#void" o|removed call to pure procedure with unused result: "(expand.scm:914) chicken.base#void" o|removed call to pure procedure with unused result: "(expand.scm:917) chicken.base#void" o|removed call to pure procedure with unused result: "(expand.scm:922) chicken.base#void" o|substituted constant variable: prop1649 o|substituted constant variable: r824512481 o|removed side-effect free assignment to unused variable: %append2620 o|removed side-effect free assignment to unused variable: %apply2621 o|substituted constant variable: r855412489 o|substituted constant variable: r914312515 o|substituted constant variable: r931012524 o|substituted constant variable: r939012530 o|substituted constant variable: r937812531 o|substituted constant variable: r940612533 o|substituted constant variable: r943012535 o|substituted constant variable: r1015612558 o|substituted constant variable: r1037312566 o|substituted constant variable: r1068812583 o|substituted constant variable: r1074112584 o|substituted constant variable: r1079312586 o|inlining procedure: k11008 o|substituted constant variable: prop2147 o|substituted constant variable: r1108512598 o|substituted constant variable: r1108512598 o|substituted constant variable: prop2118 o|substituted constant variable: r1123712607 o|substituted constant variable: r1128612608 o|substituted constant variable: r1128612608 o|substituted constant variable: r1143412626 o|substituted constant variable: r1142212627 o|substituted constant variable: r1167212641 o|substituted constant variable: r1181012651 o|substituted constant variable: r1197212660 o|substituted constant variable: r1207912664 o|simplifications: ((let . 2)) o|replaced variables: 58 o|removed binding forms: 1558 o|inlining procedure: k3728 o|contracted procedure: k3773 o|substituted constant variable: prop45412682 o|substituted constant variable: prop45412688 o|contracted procedure: k4351 o|contracted procedure: k4354 o|contracted procedure: k4485 o|contracted procedure: k4550 o|inlining procedure: k5272 o|inlining procedure: k5272 o|contracted procedure: k6082 o|contracted procedure: k7679 o|contracted procedure: k7691 o|contracted procedure: k7715 o|substituted constant variable: r771312805 o|removed call to pure procedure with unused result: "(expand.scm:885) chicken.base#void" o|substituted constant variable: r771312810 o|removed call to pure procedure with unused result: "(expand.scm:885) chicken.base#void" o|substituted constant variable: r771312819 o|removed call to pure procedure with unused result: "(expand.scm:885) chicken.base#void" o|substituted constant variable: r771312824 o|removed call to pure procedure with unused result: "(expand.scm:885) chicken.base#void" o|substituted constant variable: r771312829 o|removed call to pure procedure with unused result: "(expand.scm:885) chicken.base#void" o|substituted constant variable: r771312834 o|removed call to pure procedure with unused result: "(expand.scm:885) chicken.base#void" o|contracted procedure: k7928 o|contracted procedure: k8017 o|contracted procedure: k8032 o|contracted procedure: k8044 o|contracted procedure: k8060 o|contracted procedure: k8069 o|inlining procedure: k9297 o|inlining procedure: k9297 o|inlining procedure: k12100 o|replaced variables: 20 o|removed binding forms: 157 o|contracted procedure: k3757 o|contracted procedure: k3765 o|contracted procedure: k3770 o|contracted procedure: k3813 o|contracted procedure: k3818 o|contracted procedure: k3933 o|contracted procedure: k4120 o|inlining procedure: k4482 o|substituted constant variable: r562612742 o|contracted procedure: k771512809 o|substituted constant variable: result153712806 o|contracted procedure: k771512814 o|substituted constant variable: result153712811 o|contracted procedure: k771512823 o|substituted constant variable: result153712820 o|contracted procedure: k771512828 o|substituted constant variable: result153712825 o|contracted procedure: k7816 o|contracted procedure: k7824 o|contracted procedure: k771512833 o|substituted constant variable: result153712830 o|contracted procedure: k771512838 o|substituted constant variable: result153712835 o|inlining procedure: "(expand.scm:872) lookup21511" o|inlining procedure: "(expand.scm:869) lookup21511" o|contracted procedure: k8052 o|substituted constant variable: r929812976 o|substituted constant variable: r929812977 o|contracted procedure: k10999 o|contracted procedure: k11060 o|substituted constant variable: r1210113000 o|replaced variables: 8 o|removed binding forms: 65 o|removed conditional forms: 3 o|removed side-effect free assignment to unused variable: lookup21511 o|replaced variables: 11 o|removed binding forms: 27 o|replaced variables: 9 o|removed binding forms: 10 o|inlining procedure: k3760 o|inlining procedure: k3760 o|replaced variables: 2 o|removed binding forms: 3 o|replaced variables: 1 o|removed binding forms: 3 o|replaced variables: 4 o|removed binding forms: 1 o|removed binding forms: 3 o|simplifications: ((if . 46) (##core#call . 1088)) o| call simplifications: o| scheme#cdddr o| scheme#cddddr o| scheme#number? o| scheme#eof-object? o| scheme#cadddr 2 o| chicken.fixnum#fx- 2 o| scheme#>= o| scheme#+ 3 o| scheme#= o| scheme#<= o| scheme#boolean? o| scheme#char? 2 o| scheme#> 2 o| scheme#- 3 o| scheme#cdar 2 o| ##sys#immediate? o| scheme#vector-ref 5 o| chicken.fixnum#fx< 2 o| chicken.fixnum#fx= 7 o| scheme#apply o| scheme#memq 5 o| scheme#member o| scheme#caddr 16 o| scheme#length 13 o| chicken.fixnum#fx<= 2 o| chicken.fixnum#fx> 4 o| scheme#cddr 10 o| ##sys#list 179 o| ##sys#cons 86 o| scheme#list? 7 o| scheme#cadr 35 o| scheme#values 8 o| ##sys#call-with-values 3 o| ##sys#apply 2 o| scheme#memv o| scheme#equal? 2 o| scheme#string? 3 o| ##sys#make-structure 2 o| scheme#list 16 o| scheme#set-car! 2 o| ##sys#structure? 2 o| scheme#caar 6 o| scheme#eq? 84 o| scheme#null? 47 o| scheme#car 68 o| ##sys#check-list 14 o| scheme#assq 12 o| scheme#symbol? 45 o| scheme#vector? 13 o| ##sys#size 4 o| chicken.fixnum#fx>= 5 o| ##sys#slot 73 o| chicken.fixnum#fx+ 4 o| scheme#cons 81 o| ##sys#setslot 20 o| scheme#not 38 o| scheme#pair? 87 o| scheme#cdr 48 o|contracted procedure: k3752 o|contracted procedure: k3790 o|contracted procedure: k3808 o|contracted procedure: k3827 o|contracted procedure: k3833 o|contracted procedure: k3839 o|contracted procedure: k3842 o|contracted procedure: k3870 o|contracted procedure: k3846 o|contracted procedure: k3849 o|contracted procedure: k3852 o|contracted procedure: k3876 o|contracted procedure: k3879 o|contracted procedure: k3920 o|contracted procedure: k3886 o|contracted procedure: k3898 o|contracted procedure: k3901 o|contracted procedure: k3908 o|contracted procedure: k3916 o|contracted procedure: k3945 o|contracted procedure: k3948 o|contracted procedure: k3958 o|contracted procedure: k4011 o|contracted procedure: k3975 o|contracted procedure: k4001 o|contracted procedure: k4005 o|contracted procedure: k3997 o|contracted procedure: k3978 o|contracted procedure: k3981 o|contracted procedure: k3989 o|contracted procedure: k3993 o|contracted procedure: k4048 o|contracted procedure: k4023 o|contracted procedure: k4041 o|contracted procedure: k4045 o|contracted procedure: k4026 o|contracted procedure: k4033 o|contracted procedure: k4037 o|contracted procedure: k4054 o|contracted procedure: k4057 o|contracted procedure: k4060 o|contracted procedure: k4072 o|contracted procedure: k4075 o|contracted procedure: k4078 o|contracted procedure: k4086 o|contracted procedure: k4094 o|contracted procedure: k4182 o|contracted procedure: k4115 o|contracted procedure: k4131 o|contracted procedure: k4149 o|contracted procedure: k4178 o|contracted procedure: k4168 o|contracted procedure: k4215 o|contracted procedure: k4200 o|contracted procedure: k4206 o|contracted procedure: k4238 o|contracted procedure: k4241 o|contracted procedure: k4249 o|contracted procedure: k4260 o|contracted procedure: k4256 o|contracted procedure: k4272 o|contracted procedure: k4291 o|contracted procedure: k4320 o|contracted procedure: k4342 o|contracted procedure: k4326 o|contracted procedure: k4392 o|contracted procedure: k4382 o|contracted procedure: k4400 o|contracted procedure: k4409 o|contracted procedure: k4412 o|contracted procedure: k4426 o|contracted procedure: k4436 o|contracted procedure: k4440 o|contracted procedure: k4446 o|contracted procedure: k4452 o|contracted procedure: k4460 o|contracted procedure: k4467 o|contracted procedure: k4505 o|contracted procedure: k4491 o|contracted procedure: k4585 o|contracted procedure: k4556 o|contracted procedure: k4565 o|contracted procedure: k4576 o|contracted procedure: k4597 o|contracted procedure: k4605 o|contracted procedure: k4611 o|contracted procedure: k4620 o|contracted procedure: k4626 o|contracted procedure: k4632 o|contracted procedure: k4638 o|contracted procedure: k4714 o|contracted procedure: k4722 o|contracted procedure: k4729 o|contracted procedure: k4710 o|contracted procedure: k4706 o|contracted procedure: k4702 o|contracted procedure: k4698 o|contracted procedure: k4653 o|contracted procedure: k4657 o|contracted procedure: k4649 o|contracted procedure: k4645 o|contracted procedure: k4669 o|contracted procedure: k4691 o|contracted procedure: k4687 o|contracted procedure: k4672 o|contracted procedure: k4675 o|contracted procedure: k4683 o|contracted procedure: k4738 o|contracted procedure: k4760 o|contracted procedure: k4756 o|contracted procedure: k4741 o|contracted procedure: k4744 o|contracted procedure: k4752 o|contracted procedure: k4783 o|contracted procedure: k4799 o|contracted procedure: k4813 o|contracted procedure: k4821 o|contracted procedure: k4897 o|contracted procedure: k4852 o|contracted procedure: k4891 o|contracted procedure: k4855 o|contracted procedure: k4885 o|contracted procedure: k4858 o|contracted procedure: k4903 o|contracted procedure: k4924 o|contracted procedure: k4927 o|contracted procedure: k4933 o|contracted procedure: k4944 o|contracted procedure: k4996 o|contracted procedure: k5013 o|contracted procedure: k5042 o|contracted procedure: k5046 o|contracted procedure: k5038 o|contracted procedure: k5034 o|contracted procedure: k5030 o|contracted procedure: k5026 o|inlining procedure: k5010 o|contracted procedure: k5109 o|contracted procedure: k5056 o|contracted procedure: k5071 o|contracted procedure: k5067 o|contracted procedure: k5063 o|inlining procedure: k5010 o|contracted procedure: k5090 o|contracted procedure: k5086 o|contracted procedure: k5082 o|inlining procedure: k5010 o|inlining procedure: k5102 o|inlining procedure: k5102 o|contracted procedure: k5115 o|contracted procedure: k5121 o|contracted procedure: k5128 o|contracted procedure: k5131 o|contracted procedure: k5146 o|contracted procedure: k5151 o|contracted procedure: k5166 o|contracted procedure: k5162 o|contracted procedure: k5158 o|contracted procedure: k5174 o|contracted procedure: k5181 o|contracted procedure: k5192 o|contracted procedure: k5188 o|contracted procedure: k5178 o|contracted procedure: k4975 o|contracted procedure: k5142 o|contracted procedure: k5138 o|contracted procedure: k5219 o|contracted procedure: k5222 o|contracted procedure: k5225 o|contracted procedure: k5233 o|contracted procedure: k5241 o|contracted procedure: k5260 o|contracted procedure: k5266 o|contracted procedure: k5559 o|contracted procedure: k5283 o|contracted procedure: k5289 o|contracted procedure: k5295 o|contracted procedure: k5302 o|contracted procedure: k5311 o|contracted procedure: k5327 o|contracted procedure: k5333 o|contracted procedure: k5346 o|contracted procedure: k5354 o|contracted procedure: k5358 o|contracted procedure: k5364 o|contracted procedure: k5378 o|contracted procedure: k5387 o|contracted procedure: k5396 o|contracted procedure: k5406 o|contracted procedure: k5412 o|contracted procedure: k5419 o|contracted procedure: k5425 o|contracted procedure: k5436 o|contracted procedure: k5432 o|contracted procedure: k5442 o|contracted procedure: k5456 o|contracted procedure: k5452 o|contracted procedure: k5474 o|contracted procedure: k5483 o|contracted procedure: k5490 o|contracted procedure: k5496 o|contracted procedure: k5506 o|contracted procedure: k5518 o|contracted procedure: k5524 o|contracted procedure: k5531 o|contracted procedure: k5542 o|contracted procedure: k5555 o|contracted procedure: k5548 o|contracted procedure: k5587 o|contracted procedure: k5595 o|contracted procedure: k5591 o|contracted procedure: k5607 o|contracted procedure: k5615 o|contracted procedure: k5618 o|contracted procedure: k5628 o|contracted procedure: k5634 o|contracted procedure: k5641 o|contracted procedure: k5625 o|contracted procedure: k5686 o|contracted procedure: k5650 o|contracted procedure: k5676 o|contracted procedure: k5680 o|contracted procedure: k5672 o|contracted procedure: k5653 o|contracted procedure: k5656 o|contracted procedure: k5664 o|contracted procedure: k5668 o|contracted procedure: k5692 o|contracted procedure: k5698 o|contracted procedure: k5701 o|contracted procedure: k5704 o|contracted procedure: k5716 o|contracted procedure: k5719 o|contracted procedure: k5722 o|contracted procedure: k5730 o|contracted procedure: k5738 o|contracted procedure: k6739 o|contracted procedure: k5754 o|contracted procedure: k6733 o|contracted procedure: k5757 o|contracted procedure: k6727 o|contracted procedure: k5760 o|contracted procedure: k5769 o|contracted procedure: k5778 o|contracted procedure: k5793 o|contracted procedure: k5808 o|contracted procedure: k5823 o|contracted procedure: k6277 o|contracted procedure: k5852 o|contracted procedure: k6076 o|contracted procedure: k5864 o|contracted procedure: k5880 o|contracted procedure: k5900 o|contracted procedure: k5915 o|contracted procedure: k5923 o|contracted procedure: k5932 o|contracted procedure: k5962 o|inlining procedure: k5953 o|contracted procedure: k5976 o|contracted procedure: k5972 o|inlining procedure: k5953 o|contracted procedure: k5983 o|inlining procedure: k5953 o|contracted procedure: k5993 o|contracted procedure: k5997 o|contracted procedure: k6004 o|contracted procedure: k6007 o|contracted procedure: k6013 o|contracted procedure: k6035 o|contracted procedure: k6038 o|contracted procedure: k6045 o|contracted procedure: k6090 o|contracted procedure: k6104 o|contracted procedure: k6086 o|contracted procedure: k6115 o|contracted procedure: k6154 o|contracted procedure: k6157 o|contracted procedure: k6165 o|contracted procedure: k6169 o|contracted procedure: k6173 o|contracted procedure: k6181 o|contracted procedure: k6185 o|contracted procedure: k6189 o|contracted procedure: k6130 o|contracted procedure: k6195 o|contracted procedure: k6201 o|contracted procedure: k6213 o|contracted procedure: k6235 o|contracted procedure: k6231 o|contracted procedure: k6216 o|contracted procedure: k6219 o|contracted procedure: k6227 o|contracted procedure: k6247 o|contracted procedure: k6254 o|contracted procedure: k6274 o|contracted procedure: k6311 o|contracted procedure: k6307 o|contracted procedure: k6303 o|contracted procedure: k6326 o|contracted procedure: k6348 o|contracted procedure: k6344 o|contracted procedure: k6329 o|contracted procedure: k6332 o|contracted procedure: k6340 o|contracted procedure: k6436 o|contracted procedure: k6357 o|contracted procedure: k6379 o|contracted procedure: k6389 o|contracted procedure: k6393 o|contracted procedure: k6382 o|contracted procedure: k6432 o|contracted procedure: k6399 o|contracted procedure: k6426 o|contracted procedure: k6405 o|contracted procedure: k6421 o|contracted procedure: k6411 o|contracted procedure: k6721 o|contracted procedure: k6451 o|contracted procedure: k6457 o|contracted procedure: k6716 o|contracted procedure: k6461 o|contracted procedure: k6707 o|contracted procedure: k6470 o|contracted procedure: k6491 o|contracted procedure: k6610 o|contracted procedure: k6497 o|contracted procedure: k6536 o|contracted procedure: k6510 o|contracted procedure: k6518 o|contracted procedure: k6532 o|contracted procedure: k6525 o|contracted procedure: k6522 o|contracted procedure: k6539 o|contracted procedure: k6606 o|contracted procedure: k6550 o|contracted procedure: k6564 o|contracted procedure: k6600 o|contracted procedure: k6574 o|contracted procedure: k6596 o|contracted procedure: k6590 o|contracted procedure: k6586 o|contracted procedure: k6578 o|contracted procedure: k6582 o|contracted procedure: k6654 o|contracted procedure: k6638 o|contracted procedure: k6650 o|contracted procedure: k6642 o|contracted procedure: k6646 o|contracted procedure: k6671 o|contracted procedure: k6703 o|contracted procedure: k6677 o|contracted procedure: k6689 o|contracted procedure: k6699 o|contracted procedure: k6713 o|contracted procedure: k6745 o|contracted procedure: k6827 o|contracted procedure: k6763 o|contracted procedure: k6766 o|contracted procedure: k6778 o|contracted procedure: k6787 o|contracted procedure: k6795 o|contracted procedure: k6791 o|contracted procedure: k6804 o|contracted procedure: k6823 o|contracted procedure: k6879 o|contracted procedure: k6845 o|contracted procedure: k6854 o|contracted procedure: k6873 o|contracted procedure: k6869 o|contracted procedure: k6865 o|contracted procedure: k6962 o|contracted procedure: k6993 o|contracted procedure: k7019 o|contracted procedure: k7031 o|contracted procedure: k7111 o|contracted procedure: k7055 o|contracted procedure: k7070 o|contracted procedure: k7090 o|contracted procedure: k7107 o|contracted procedure: k6915 o|contracted procedure: k6924 o|contracted procedure: k6952 o|contracted procedure: k6930 o|contracted procedure: k7120 o|contracted procedure: k7132 o|contracted procedure: k7139 o|contracted procedure: k7150 o|contracted procedure: k7600 o|contracted procedure: k7165 o|contracted procedure: k7594 o|contracted procedure: k7168 o|contracted procedure: k7579 o|contracted procedure: k7174 o|contracted procedure: k7231 o|contracted procedure: k7240 o|contracted procedure: k7246 o|contracted procedure: k7253 o|contracted procedure: k7276 o|contracted procedure: k7285 o|contracted procedure: k7305 o|contracted procedure: k7308 o|contracted procedure: k7311 o|contracted procedure: k7393 o|contracted procedure: k7314 o|contracted procedure: k7329 o|contracted procedure: k7335 o|contracted procedure: k7348 o|contracted procedure: k7352 o|contracted procedure: k7355 o|contracted procedure: k7378 o|contracted procedure: k7364 o|contracted procedure: k7374 o|contracted procedure: k7381 o|contracted procedure: k7387 o|contracted procedure: k7402 o|contracted procedure: k7415 o|contracted procedure: k7408 o|contracted procedure: k7421 o|contracted procedure: k7427 o|contracted procedure: k7433 o|contracted procedure: k7442 o|contracted procedure: k7451 o|contracted procedure: k7460 o|contracted procedure: k7469 o|contracted procedure: k7478 o|contracted procedure: k7487 o|contracted procedure: k7509 o|contracted procedure: k7512 o|contracted procedure: k7575 o|contracted procedure: k7537 o|contracted procedure: k7571 o|contracted procedure: k7546 o|contracted procedure: k7563 o|contracted procedure: k7567 o|contracted procedure: k7585 o|contracted procedure: k7615 o|contracted procedure: k7627 o|contracted procedure: k7648 o|contracted procedure: k7706 o|contracted procedure: k7665 o|contracted procedure: k7671 o|contracted procedure: k7699 o|contracted procedure: k7695 o|contracted procedure: k7718 o|contracted procedure: k7724 o|contracted procedure: k7747 o|contracted procedure: k7753 o|contracted procedure: k7756 o|contracted procedure: k7803 o|contracted procedure: k7762 o|contracted procedure: k7774 o|contracted procedure: k7777 o|contracted procedure: k7784 o|contracted procedure: k7792 o|contracted procedure: k7796 o|contracted procedure: k7833 o|contracted procedure: k7839 o|contracted procedure: k7845 o|contracted procedure: k7857 o|contracted procedure: k7870 o|contracted procedure: k7873 o|contracted procedure: k7885 o|contracted procedure: k7913 o|contracted procedure: k7919 o|contracted procedure: k7937 o|contracted procedure: k7953 o|contracted procedure: k7943 o|contracted procedure: k7962 o|contracted procedure: k7983 o|contracted procedure: k8076 o|contracted procedure: k8000 o|contracted procedure: k8029 o|contracted procedure: k8041 o|contracted procedure: k8238 o|contracted procedure: k8247 o|contracted procedure: k8254 o|contracted procedure: k8262 o|contracted procedure: k8274 o|contracted procedure: k8283 o|contracted procedure: k8290 o|contracted procedure: k8294 o|contracted procedure: k9512 o|contracted procedure: k8419 o|contracted procedure: k8499 o|contracted procedure: k8495 o|contracted procedure: k8427 o|contracted procedure: k8431 o|contracted procedure: k8423 o|contracted procedure: k8415 o|contracted procedure: k8439 o|contracted procedure: k8442 o|contracted procedure: k8457 o|contracted procedure: k8453 o|contracted procedure: k8449 o|contracted procedure: k8466 o|contracted procedure: k8469 o|contracted procedure: k8472 o|contracted procedure: k8480 o|contracted procedure: k8488 o|contracted procedure: k8511 o|contracted procedure: k8514 o|contracted procedure: k8521 o|contracted procedure: k8525 o|contracted procedure: k8550 o|contracted procedure: k8556 o|contracted procedure: k8563 o|contracted procedure: k8574 o|contracted procedure: k8580 o|contracted procedure: k8595 o|contracted procedure: k8591 o|contracted procedure: k8587 o|contracted procedure: k8610 o|contracted procedure: k8661 o|contracted procedure: k8621 o|contracted procedure: k8633 o|contracted procedure: k8629 o|contracted procedure: k8625 o|contracted procedure: k8617 o|contracted procedure: k8649 o|contracted procedure: k8655 o|contracted procedure: k8667 o|contracted procedure: k8706 o|contracted procedure: k8678 o|contracted procedure: k8690 o|contracted procedure: k8686 o|contracted procedure: k8682 o|contracted procedure: k8674 o|contracted procedure: k8698 o|contracted procedure: k8712 o|contracted procedure: k8726 o|contracted procedure: k8722 o|contracted procedure: k8737 o|contracted procedure: k8733 o|contracted procedure: k8740 o|contracted procedure: k8763 o|contracted procedure: k8865 o|contracted procedure: k8861 o|contracted procedure: k8771 o|contracted procedure: k8857 o|contracted procedure: k8853 o|contracted procedure: k8779 o|contracted procedure: k8845 o|contracted procedure: k8849 o|contracted procedure: k8787 o|contracted procedure: k8838 o|contracted procedure: k8827 o|contracted procedure: k8795 o|contracted procedure: k8803 o|contracted procedure: k8799 o|contracted procedure: k8791 o|contracted procedure: k8783 o|contracted procedure: k8775 o|contracted procedure: k8767 o|contracted procedure: k8759 o|contracted procedure: k8819 o|contracted procedure: k8823 o|contracted procedure: k8815 o|contracted procedure: k8811 o|contracted procedure: k8869 o|contracted procedure: k8873 o|contracted procedure: k8882 o|contracted procedure: k8888 o|contracted procedure: k8895 o|contracted procedure: k8967 o|contracted procedure: k8908 o|contracted procedure: k8959 o|contracted procedure: k8911 o|contracted procedure: k8926 o|contracted procedure: k8930 o|contracted procedure: k8945 o|contracted procedure: k8956 o|contracted procedure: k8952 o|contracted procedure: k8942 o|contracted procedure: k8973 o|contracted procedure: k8990 o|contracted procedure: k8996 o|contracted procedure: k9002 o|contracted procedure: k9013 o|contracted procedure: k9022 o|contracted procedure: k9025 o|contracted procedure: k9041 o|contracted procedure: k9034 o|contracted procedure: k9048 o|contracted procedure: k9060 o|contracted procedure: k9069 o|contracted procedure: k9087 o|contracted procedure: k9111 o|substituted constant variable: g13962 o|contracted procedure: k9118 o|contracted procedure: k9122 o|contracted procedure: k9136 o|contracted procedure: k9132 o|contracted procedure: k9139 o|contracted procedure: k9145 o|contracted procedure: k9151 o|contracted procedure: k9164 o|contracted procedure: k9170 o|contracted procedure: k9191 o|contracted procedure: k9214 o|contracted procedure: k9220 o|contracted procedure: k9227 o|contracted procedure: k9240 o|contracted procedure: k9244 o|contracted procedure: k9252 o|contracted procedure: k9258 o|contracted procedure: k9275 o|contracted procedure: k9291 o|contracted procedure: k9320 o|contracted procedure: k9303 o|contracted procedure: k9306 o|contracted procedure: k9316 o|contracted procedure: k9297 o|contracted procedure: k9333 o|contracted procedure: k9341 o|contracted procedure: k9347 o|contracted procedure: k9364 o|contracted procedure: k9399 o|contracted procedure: k9392 o|contracted procedure: k9408 o|contracted procedure: k9414 o|contracted procedure: k9421 o|contracted procedure: k9443 o|contracted procedure: k9453 o|contracted procedure: k9469 o|contracted procedure: k9472 o|contracted procedure: k9523 o|contracted procedure: k9531 o|contracted procedure: k9535 o|contracted procedure: k9568 o|contracted procedure: k9564 o|contracted procedure: k9560 o|contracted procedure: k9556 o|contracted procedure: k9603 o|contracted procedure: k9757 o|contracted procedure: k9620 o|contracted procedure: k9626 o|contracted procedure: k9639 o|contracted procedure: k9652 o|contracted procedure: k9660 o|contracted procedure: k9673 o|contracted procedure: k9681 o|contracted procedure: k9693 o|contracted procedure: k9703 o|contracted procedure: k9722 o|contracted procedure: k9714 o|contracted procedure: k9730 o|contracted procedure: k9734 o|contracted procedure: k9748 o|contracted procedure: k9783 o|contracted procedure: k9779 o|contracted procedure: k9775 o|contracted procedure: k9797 o|contracted procedure: k9830 o|contracted procedure: k9803 o|contracted procedure: k9826 o|contracted procedure: k9818 o|contracted procedure: k9822 o|contracted procedure: k9814 o|contracted procedure: k9810 o|contracted procedure: k9848 o|contracted procedure: k9861 o|contracted procedure: k9874 o|contracted procedure: k9877 o|contracted procedure: k9890 o|contracted procedure: k9908 o|contracted procedure: k9919 o|contracted procedure: k10020 o|contracted procedure: k9924 o|contracted procedure: k9944 o|contracted procedure: k9940 o|contracted procedure: k9936 o|contracted procedure: k9928 o|contracted procedure: k9915 o|contracted procedure: k9982 o|contracted procedure: k9985 o|contracted procedure: k9988 o|contracted procedure: k9996 o|contracted procedure: k10004 o|contracted procedure: k9970 o|contracted procedure: k9966 o|contracted procedure: k9952 o|contracted procedure: k9960 o|contracted procedure: k10010 o|contracted procedure: k10017 o|contracted procedure: k10032 o|contracted procedure: k10035 o|contracted procedure: k10038 o|contracted procedure: k10046 o|contracted procedure: k10054 o|contracted procedure: k9899 o|contracted procedure: k9903 o|contracted procedure: k10070 o|contracted procedure: k10084 o|contracted procedure: k10091 o|contracted procedure: k10108 o|contracted procedure: k10098 o|contracted procedure: k10121 o|contracted procedure: k10344 o|contracted procedure: k10145 o|contracted procedure: k10340 o|contracted procedure: k10158 o|contracted procedure: k10161 o|contracted procedure: k10193 o|contracted procedure: k10209 o|contracted procedure: k10216 o|contracted procedure: k10230 o|contracted procedure: k10219 o|contracted procedure: k10226 o|contracted procedure: k10282 o|contracted procedure: k10291 o|contracted procedure: k10295 o|contracted procedure: k10239 o|contracted procedure: k10257 o|contracted procedure: k10264 o|contracted procedure: k10278 o|contracted procedure: k10267 o|contracted procedure: k10274 o|contracted procedure: k10307 o|contracted procedure: k10310 o|contracted procedure: k10313 o|contracted procedure: k10321 o|contracted procedure: k10329 o|contracted procedure: k10336 o|contracted procedure: k10354 o|contracted procedure: k10727 o|contracted procedure: k10375 o|contracted procedure: k10378 o|contracted procedure: k10439 o|contracted procedure: k10468 o|contracted procedure: k10447 o|contracted procedure: k10482 o|contracted procedure: k10471 o|contracted procedure: k10478 o|contracted procedure: k10494 o|contracted procedure: k10543 o|contracted procedure: k10539 o|contracted procedure: k10519 o|contracted procedure: k10535 o|contracted procedure: k10527 o|contracted procedure: k10523 o|contracted procedure: k10591 o|contracted procedure: k10559 o|contracted procedure: k10587 o|contracted procedure: k10571 o|contracted procedure: k10583 o|contracted procedure: k10575 o|contracted procedure: k10567 o|contracted procedure: k10563 o|contracted procedure: k10598 o|contracted procedure: k10602 o|contracted procedure: k10611 o|contracted procedure: k10618 o|contracted procedure: k10634 o|contracted procedure: k10623 o|contracted procedure: k10630 o|contracted procedure: k10639 o|contracted procedure: k10645 o|contracted procedure: k10651 o|contracted procedure: k10657 o|contracted procedure: k10663 o|contracted procedure: k10675 o|contracted procedure: k10690 o|contracted procedure: k10701 o|contracted procedure: k10723 o|contracted procedure: k10737 o|contracted procedure: k10743 o|contracted procedure: k10746 o|contracted procedure: k10753 o|contracted procedure: k10779 o|contracted procedure: k10763 o|contracted procedure: k10771 o|contracted procedure: k10767 o|contracted procedure: k10789 o|contracted procedure: k10795 o|contracted procedure: k10798 o|contracted procedure: k10805 o|contracted procedure: k10812 o|contracted procedure: k10829 o|contracted procedure: k10832 o|contracted procedure: k10838 o|contracted procedure: k10845 o|contracted procedure: k10855 o|contracted procedure: k10882 o|contracted procedure: k10904 o|contracted procedure: k10926 o|contracted procedure: k10954 o|contracted procedure: k10964 o|contracted procedure: k10978 o|contracted procedure: k10967 o|contracted procedure: k10974 o|contracted procedure: k10991 o|contracted procedure: k10994 o|contracted procedure: k11002 o|contracted procedure: k11044 o|contracted procedure: k11152 o|contracted procedure: k11052 o|contracted procedure: k11063 o|contracted procedure: k11076 o|contracted procedure: k11087 o|inlining procedure: k11080 o|inlining procedure: k11080 o|contracted procedure: k11148 o|contracted procedure: k11108 o|contracted procedure: k11132 o|contracted procedure: k11142 o|contracted procedure: k11138 o|contracted procedure: k11128 o|contracted procedure: k11169 o|contracted procedure: k11186 o|contracted procedure: k11203 o|contracted procedure: k11220 o|contracted procedure: k11270 o|contracted procedure: k11274 o|contracted procedure: k11266 o|contracted procedure: k11288 o|contracted procedure: k11294 o|inlining procedure: k11285 o|contracted procedure: k11303 o|contracted procedure: k11313 o|contracted procedure: k11317 o|contracted procedure: k11320 o|contracted procedure: k11327 o|contracted procedure: k11343 o|contracted procedure: k11346 o|contracted procedure: k11350 o|contracted procedure: k11375 o|contracted procedure: k11395 o|contracted procedure: k11400 o|contracted procedure: k11412 o|contracted procedure: k11424 o|contracted procedure: k11430 o|contracted procedure: k11447 o|contracted procedure: k11436 o|contracted procedure: k11443 o|contracted procedure: k11454 o|contracted procedure: k11457 o|contracted procedure: k11379 o|contracted procedure: k11383 o|contracted procedure: k11387 o|contracted procedure: k11356 o|contracted procedure: k11367 o|contracted procedure: k11371 o|contracted procedure: k11469 o|contracted procedure: k11472 o|contracted procedure: k11475 o|contracted procedure: k11483 o|contracted procedure: k11491 o|contracted procedure: k11535 o|contracted procedure: k11548 o|contracted procedure: k11563 o|contracted procedure: k11569 o|contracted procedure: k11602 o|contracted procedure: k11598 o|contracted procedure: k11594 o|contracted procedure: k11582 o|contracted procedure: k11590 o|contracted procedure: k11586 o|contracted procedure: k11626 o|contracted procedure: k11636 o|contracted procedure: k11684 o|contracted procedure: k11644 o|contracted procedure: k11648 o|contracted procedure: k11665 o|contracted procedure: k11661 o|contracted procedure: k11651 o|contracted procedure: k11668 o|contracted procedure: k11674 o|contracted procedure: k11692 o|contracted procedure: k11695 o|contracted procedure: k11706 o|contracted procedure: k11710 o|contracted procedure: k11720 o|contracted procedure: k11730 o|contracted procedure: k11739 o|contracted procedure: k11872 o|contracted procedure: k11752 o|contracted procedure: k11758 o|contracted procedure: k11768 o|contracted procedure: k11771 o|contracted procedure: k11780 o|contracted procedure: k11793 o|contracted procedure: k11806 o|contracted procedure: k11842 o|contracted procedure: k11812 o|contracted procedure: k11818 o|contracted procedure: k11831 o|contracted procedure: k11848 o|contracted procedure: k11859 o|contracted procedure: k11884 o|contracted procedure: k11891 o|contracted procedure: k11899 o|contracted procedure: k11911 o|contracted procedure: k11933 o|contracted procedure: k11929 o|contracted procedure: k11914 o|contracted procedure: k11917 o|contracted procedure: k11925 o|contracted procedure: k12003 o|contracted procedure: k11942 o|contracted procedure: k11948 o|contracted procedure: k11999 o|contracted procedure: k11955 o|contracted procedure: k11961 o|contracted procedure: k11967 o|contracted procedure: k11974 o|contracted procedure: k12020 o|contracted procedure: k12038 o|contracted procedure: k12030 o|contracted procedure: k12052 o|contracted procedure: k12081 o|contracted procedure: k12091 o|contracted procedure: k12100 o|contracted procedure: k12113 o|contracted procedure: k12116 o|contracted procedure: k12128 o|contracted procedure: k12131 o|contracted procedure: k12134 o|contracted procedure: k12142 o|contracted procedure: k12150 o|simplifications: ((let . 196)) o|replaced variables: 2 o|removed binding forms: 907 o|inlining procedure: k5170 o|inlining procedure: k5170 o|inlining procedure: k6514 o|inlining procedure: k6514 o|inlining procedure: k11278 o|inlining procedure: k11278 o|inlining procedure: k11278 o|inlining procedure: k11640 o|inlining procedure: k11640 o|replaced variables: 205 o|removed binding forms: 7 o|simplifications: ((let . 1) (if . 2)) o|replaced variables: 6 o|removed binding forms: 117 o|contracted procedure: k10050 o|replaced variables: 4 o|removed binding forms: 5 o|removed binding forms: 2 o|direct leaf routine/allocation: chicken.syntax#lookup 0 o|direct leaf routine/allocation: g561562 0 o|direct leaf routine/allocation: g13051306 0 o|direct leaf routine/allocation: g13941395 0 o|direct leaf routine/allocation: loop1433 0 o|direct leaf routine/allocation: loop1448 0 o|direct leaf routine/allocation: g15901591 0 o|direct leaf routine/allocation: g15991600 0 o|direct leaf routine/allocation: assq-reverse1512 0 o|direct leaf routine/allocation: loop2606 0 o|direct leaf routine/allocation: g23652374 15 o|contracted procedure: "(expand.scm:100) k3749" o|contracted procedure: "(expand.scm:182) k4230" o|contracted procedure: "(expand.scm:194) k4269" o|contracted procedure: "(expand.scm:196) k4278" o|contracted procedure: "(expand.scm:278) k4608" o|contracted procedure: "(expand.scm:280) k4825" o|contracted procedure: "(expand.scm:480) k5766" o|converted assignments to bindings: (loop1433) o|converted assignments to bindings: (loop1448) o|contracted procedure: "(expand.scm:888) k7898" o|contracted procedure: "(expand.scm:888) k7904" o|contracted procedure: "(expand.scm:907) k8006" o|contracted procedure: "(expand.scm:908) k8009" o|converted assignments to bindings: (loop2606) o|contracted procedure: "(expand.scm:1467) k10325" o|simplifications: ((let . 3) (if . 2)) o|removed binding forms: 12 o|contracted procedure: "(expand.scm:819) k7499" o|replaced variables: 12 o|removed binding forms: 1 o|removed binding forms: 6 o|direct leaf routine/allocation: comp1038 0 o|contracted procedure: "(expand.scm:508) k5893" o|contracted procedure: "(expand.scm:524) k5956" o|contracted procedure: "(expand.scm:520) k6016" o|contracted procedure: "(expand.scm:502) k6048" o|contracted procedure: "(expand.scm:503) k6054" o|contracted procedure: "(expand.scm:504) k6060" o|contracted procedure: "(expand.scm:505) k6066" o|contracted procedure: "(expand.scm:590) k6479" o|contracted procedure: "(expand.scm:617) k6616" o|contracted procedure: "(expand.scm:620) k6628" o|contracted procedure: "(expand.scm:624) k6660" o|removed binding forms: 11 o|replaced variables: 8 o|simplifications: ((if . 1)) o|removed binding forms: 3 o|customizable procedures: (g17901799 map-loop17841836 expand1887 map-loop18951913 test1858 err1857 k11557 k11654 g20122021 map-loop20062033 loop2103 k10944 expand2231 map-loop23592380 k10243 expand2328 expand2402 map-loop24242442 k9932 k10000 map-loop24582476 g25532554 g25462547 walk2490 walk12491 simplify2492 k9517 loop2867 k9125 k9078 doloop28162817 k8715 k8508 map-loop26822699 loop2595 chicken.syntax#make-er/ir-transformer mirror-rename1513 k7811 k7819 k7827 doloop15471548 k7293 test1418 k7317 walk1458 doloop14731474 err1419 loop1339 loop1352 loop1369 outstr1350 loop1316 mwalk1292 k6464 fini/syntax1040 loop21262 loop1246 k6366 loop1202 map-loop12151232 fini1039 foldl11301134 map-loop11071146 k6151 map-loop11551182 k5887 loop21062 k5938 expand1041 loop1059 map-loop947964 map-loop9761000 k5292 k5468 k5381 k5339 k5342 chicken.syntax#macro-alias k5305 loop823 err812 g845854 map-loop839867 k5007 k5019 k4936 loop790 loop777 k4614 k4769 g742743 loop655 expand600 map-loop682700 map-loop709726 call-handler599 k4385 k4419 copy618 loop588 k4158 loop519 g516517 loop1504 map-loop406423 for-each-loop432459 map-loop469490 doloop384385 walk354 k3743) o|calls to known targets: 362 o|identified direct recursive calls: f_3970 1 o|identified direct recursive calls: f_4018 1 o|identified direct recursive calls: f_4315 1 o|identified direct recursive calls: f_4664 1 o|identified direct recursive calls: f_4733 1 o|identified direct recursive calls: f_4991 2 o|identified direct recursive calls: f_5645 1 o|identified direct recursive calls: f_6208 1 o|identified direct recursive calls: f_6321 1 o|identified direct recursive calls: f_6294 1 o|identified direct recursive calls: f_6758 1 o|identified direct recursive calls: f_6840 1 o|identified direct recursive calls: f_6919 1 o|identified direct recursive calls: f_7229 1 o|identified direct recursive calls: f_7274 1 o|identified direct recursive calls: f_7300 1 o|identified direct recursive calls: f_7622 1 o|identified direct recursive calls: f_7710 1 o|identified direct recursive calls: f_7932 1 o|identified direct recursive calls: f_7957 1 o|identified direct recursive calls: f_8242 1 o|identified direct recursive calls: f_8278 1 o|identified direct recursive calls: f_9106 1 o|identified direct recursive calls: f_10027 1 o|identified direct recursive calls: f_10079 1 o|identified direct recursive calls: f_10302 1 o|identified direct recursive calls: f_11906 1 o|fast box initializations: 70 o|fast global references: 21 o|fast global assignments: 5 o|dropping unused closure argument: f_3718 o|dropping unused closure argument: f_3735 o|dropping unused closure argument: f_7229 o|dropping unused closure argument: f_7274 o|dropping unused closure argument: f_7607 o|dropping unused closure argument: f_7932 */ /* end of file */ chicken-5.1.0/chicken.gc.import.c0000644000175000017500000001434113502227773016413 0ustar sjamaansjamaan/* Generated from chicken.gc.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.gc.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.gc.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.gc.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(141))){ C_save(t1); C_rereclaim2(141*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],10, C_text("chicken.gc")); lf[2]=C_h_intern(&lf[2],7, C_text("library")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001current-gc-milliseconds\376\001\000\000\042\001chicken.gc#current-gc-milliseconds\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001gc\376\001\000\000\015\001chicken.gc#gc\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001memory-statistics\376\001\000\000\034\001chick" "en.gc#memory-statistics\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001set-finalizer!\376\001\000\000\031\001chicken.gc#set-finali" "zer!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001set-gc-report!\376\001\000\000\031\001chicken.gc#set-gc-report!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020" "\001force-finalizers\376\001\000\000\033\001chicken.gc#force-finalizers\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2egc_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2egc_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2egc_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2egc_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2egc_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/c-backend.scm0000644000175000017500000014701613502227553015257 0ustar sjamaansjamaan;;; c-backend.scm - C-generating backend for the CHICKEN compiler ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit c-backend) (uses data-structures extras c-platform compiler internal support)) (module chicken.compiler.c-backend (generate-code ;; For "foreign" (aka chicken-ffi-syntax): foreign-type-declaration) (import scheme chicken.base chicken.bitwise chicken.fixnum chicken.flonum chicken.foreign chicken.format chicken.internal chicken.keyword chicken.platform chicken.sort chicken.string chicken.time chicken.compiler.core chicken.compiler.c-platform chicken.compiler.support) (include "mini-srfi-1.scm") ;;; Write atoms to output-port: (define output #f) (define (gen . data) (for-each (lambda (x) (if (eq? #t x) (newline output) (display x output) ) ) data) ) (define (gen-list lst) (for-each (lambda (x) (display x output)) (intersperse lst #\space) ) ) ;; Hacky procedures to make certain names more suitable for use in C. (define (backslashify s) (string-translate* (->string s) '(("\\" . "\\\\")))) (define (uncommentify s) (string-translate* (->string s) '(("*/" . "*_/")))) (define (c-identifier s) (string->c-identifier (->string s))) ;; Generate a sorted alist out of a symbol table (define (table->sorted-alist t) (let ((alist '())) (hash-table-for-each (lambda (id ll) (set! alist (cons (cons id ll) alist))) t) (sort! alist (lambda (p1 p2) (stringstring (car p1)) (symbol->string (car p2))))))) ;;; Generate target code: (define (generate-code literals lliterals lambda-table out source-file user-supplied-options dynamic db dbg-info-table) (let ((lambda-table* (table->sorted-alist lambda-table)) ;; sort the symbol table to make the compiler output deterministic. (non-av-proc #f)) ;; Don't truncate floating-point precision! (flonum-print-precision (+ flonum-maximum-decimal-exponent 1)) ;; Some helper procedures (define (find-lambda id) (or (hash-table-ref lambda-table id) (bomb "can't find lambda" id) ) ) ;; Compile a single expression (define (expression node temps ll) (define (expr n i) (let ((subs (node-subexpressions n)) (params (node-parameters n)) ) (case (node-class n) ((##core#immediate) (case (first params) ((bool) (gen (if (second params) "C_SCHEME_TRUE" "C_SCHEME_FALSE"))) ((char) (gen "C_make_character(" (char->integer (second params)) #\))) ((nil) (gen "C_SCHEME_END_OF_LIST")) ((fix) (gen "C_fix(" (second params) #\))) ((eof) (gen "C_SCHEME_END_OF_FILE")) (else (bomb "bad immediate")) ) ) ((##core#literal) (let ((lit (first params))) (if (vector? lit) (gen "((C_word)li" (vector-ref lit 0) ")") (gen "lf[" (first params) #\])) ) ) ((##core#float) (gen (first params))) ((if) (gen #t "if(C_truep(") (expr (car subs) i) (gen ")){") (expr (cadr subs) i) (gen #\} #t "else{") (expr (caddr subs) i) (gen #\}) ) ((##core#proc) (gen "(C_word)" (first params)) ) ((##core#bind) (let loop ((bs subs) (i i) (count (first params))) (cond [(> count 0) (gen #t #\t i #\=) (expr (car bs) i) (gen #\;) (loop (cdr bs) (add1 i) (sub1 count)) ] [else (expr (car bs) i)] ) ) ) ((##core#let_float) (let ((fi (first params))) (gen #t #\f fi #\=) (expr (first subs) i) (gen #\;) (expr (second subs) i))) ((##core#float-variable) (gen #\f (first params))) ((##core#unbox_float) (gen "C_flonum_magnitude(") (expr (first subs) i) (gen ")")) ((##core#box_float) (gen "C_flonum(&a,") (expr (first subs) i) (gen ")")) ((##core#ref) (gen "((C_word*)") (expr (car subs) i) (gen ")[" (+ (first params) 1) #\]) ) ((##core#unbox) (gen "((C_word*)") (expr (car subs) i) (gen ")[1]") ) ((##core#update_i) (gen "C_set_block_item(") (expr (car subs) i) (gen #\, (first params) #\,) (expr (cadr subs) i) (gen #\)) ) ((##core#update) (gen "C_mutate(((C_word *)") (expr (car subs) i) (gen ")+" (+ (first params) 1) ",") (expr (cadr subs) i) (gen #\)) ) ((##core#updatebox_i) (gen "C_set_block_item(") (expr (car subs) i) (gen ",0,") (expr (cadr subs) i) (gen #\)) ) ((##core#updatebox) (gen "C_mutate(((C_word *)") (expr (car subs) i) (gen ")+1,") (expr (cadr subs) i) (gen #\)) ) ((##core#closure) (let ((n (first params))) (gen "(*a=C_CLOSURE_TYPE|" n #\,) (for-each (lambda (x j) (gen "a[" j "]=") (expr x i) (gen #\,) ) subs (list-tabulate n add1)) (gen "tmp=(C_word)a,a+=" (add1 n) ",tmp)") ) ) ((##core#box) (gen "(*a=C_VECTOR_TYPE|1,a[1]=") (expr (car subs) i) (gen ",tmp=(C_word)a,a+=2,tmp)") ) ((##core#local) (gen #\t (first params))) ((##core#setlocal) (gen #\t (first params) #\=) (expr (car subs) i) ) ((##core#global) (let ((index (first params)) (safe (second params)) (block (third params)) ) (cond [block (if safe (gen "lf[" index "]") (gen "C_retrieve2(lf[" index "],C_text(" (c-ify-string (##sys#symbol->string (fourth params))) "))"))] [safe (gen "*((C_word*)lf[" index "]+1)")] [else (gen "C_fast_retrieve(lf[" index "])")] ) ) ) ((##core#setglobal) (let ((index (first params)) (block (second params)) (var (third params))) (if block (gen "C_mutate(&lf[" index "]") (gen "C_mutate((C_word*)lf[" index "]+1")) (gen " /* (set! " (uncommentify (##sys#symbol->string var)) " ...) */,") (expr (car subs) i) (gen #\)) ) ) ((##core#setglobal_i) (let ((index (first params)) (block (second params)) (var (third params)) ) (cond [block (gen "lf[" index "] /* " (uncommentify (##sys#symbol->string var)) " */ =") (expr (car subs) i) (gen #\;) ] [else (gen "C_set_block_item(lf[" index "] /* " (uncommentify (##sys#symbol->string var)) " */,0,") (expr (car subs) i) (gen #\)) ] ) ) ) ((##core#undefined) (gen "C_SCHEME_UNDEFINED")) ((##core#call) (let* ((args (cdr subs)) (n (length args)) (nc i) (nf (add1 n)) (dbi (first params)) (safe-to-call (second params)) (p2 (pair? (cddr params))) (name (and p2 (third params))) (name-str (source-info->string name)) (call-id (and p2 (pair? (cdddr params)) (fourth params))) (customizable (and call-id (fifth params))) (empty-closure (and customizable (zero? (lambda-literal-closure-size (find-lambda call-id))))) (fn (car subs)) ) (when name (if emit-trace-info (gen #t "C_trace(C_text(\"" (backslashify name-str) "\"));") (gen #t "/* " (uncommentify name-str) " */")) (when (and emit-debug-info dbi) (gen #t "C_debugger(&(C_debug_info[" dbi "])," (if non-av-proc "0,NULL" "c,av") ");"))) (cond ((eq? '##core#proc (node-class fn)) (gen #\{) (push-args args i "0") (let ([fpars (node-parameters fn)]) (gen #t (first fpars) #\( nf ",av2);}") )) (call-id (cond ((and (eq? call-id (lambda-literal-id ll)) (lambda-literal-looping ll) ) (let* ((temps (lambda-literal-temporaries ll)) (ts (list-tabulate n (lambda (i) (+ temps nf i))))) (for-each (lambda (arg tr) (gen #t #\t tr #\=) (expr arg i) (gen #\;) ) args ts) (for-each (lambda (from to) (gen #t #\t to "=t" from #\;)) ts (list-tabulate n add1)) (unless customizable (gen #t "c=" nf #\;)) (gen #t "goto loop;") ) ) (else (unless empty-closure (gen #t #\t nc #\=) (expr fn i) (gen #\;) ) (cond (customizable (gen #t call-id #\() (unless empty-closure (gen #\t nc #\,)) (expr-args args i) (gen ");") ) (else (gen #\{) (push-args args i (and (not empty-closure) (string-append "t" (number->string nc)))) (gen #t call-id #\() (unless customizable (gen nf #\,)) (gen "av2);}") ) ) ))) ((and (eq? '##core#global (node-class fn)) (not unsafe) (not no-procedure-checks) (not safe-to-call)) (let* ((gparams (node-parameters fn)) (index (first gparams)) (safe (second gparams)) (block (third gparams)) (carg #f)) (gen #t "{C_proc tp=(C_proc)") (cond (no-global-procedure-checks (set! carg (if block (string-append "lf[" (number->string index) "]") (string-append "*((C_word*)lf[" (number->string index) "]+1)"))) (gen "(void*)(*((C_word*)(" carg ")+1))")) (block (set! carg (string-append "lf[" (number->string index) "]")) (if safe (gen "C_fast_retrieve_proc(" carg ")") (gen "C_retrieve2_symbol_proc(" carg ",C_text(" (c-ify-string (##sys#symbol->string (fourth gparams))) "))"))) (safe (set! carg (string-append "*((C_word*)lf[" (number->string index) "]+1)")) (gen "C_fast_retrieve_proc(" carg ")")) (else (set! carg (string-append "*((C_word*)lf[" (number->string index) "]+1)")) (gen "C_fast_retrieve_symbol_proc(lf[" index "])") )) (gen #\;) (push-args args i carg) (gen #t "tp(" nf ",av2);}"))) (else (gen #t #\t nc #\=) (expr fn i) (gen ";{") (push-args args i (string-append "t" (number->string nc))) (gen #t "((C_proc)") (if (or unsafe no-procedure-checks safe-to-call) (gen "(void*)(*((C_word*)t" nc "+1))") (gen "C_fast_retrieve_proc(t" nc ")") ) (gen ")(" nf ",av2);}") ) ) ) ) ((##core#recurse) (let* ([n (length subs)] [nf (add1 n)] [tailcall (first params)] [call-id (second params)] [empty-closure (zero? (lambda-literal-closure-size ll))] ) (cond (tailcall (let* ((temps (lambda-literal-temporaries ll)) (ts (list-tabulate n (cut + temps nf <>)))) (for-each (lambda (arg tr) (gen #t #\t tr #\=) (expr arg i) (gen #\;) ) subs ts) (for-each (lambda (from to) (gen #t #\t to "=t" from #\;)) ts (list-tabulate n add1)) (gen #t "goto loop;") ) ) (else (gen call-id #\() (unless empty-closure (gen "t0,")) (expr-args subs i) (gen #\)) ) ) ) ) ((##core#direct_call) (let* ((args (cdr subs)) (n (length args)) (nf (add1 n)) (dbi (first params)) ;; (safe-to-call (second params)) (name (third params)) (name-str (source-info->string name)) (call-id (fourth params)) (demand (fifth params)) (allocating (not (zero? demand))) (empty-closure (zero? (lambda-literal-closure-size (find-lambda call-id)))) (fn (car subs)) ) (gen #\() (when name (if emit-trace-info (gen #t "C_trace(\"" (backslashify name-str) "\"),") (gen #t "/* " (uncommentify name-str) " */")) (when (and emit-debug-info dbi) (gen #t "C_debugger(&(C_debug_info[" dbi "])," (if non-av-proc "0,NULL" "c,av") "),"))) (gen #t " " call-id #\() (when allocating (gen "C_a_i(&a," demand #\)) (when (or (not empty-closure) (pair? args)) (gen #\,)) ) (unless empty-closure (expr fn i) (when (pair? args) (gen #\,)) ) (when (pair? args) (expr-args args i)) (gen #\)) ; function call (gen #t #\)))) ; complete expression ((##core#provide) (gen "C_a_i_provide(&a,1,lf[" (first params) "])")) ((##core#callunit) ;; The code generated here does not use the extra temporary needed for standard calls, so we have ;; one unused variable: (let* ((n (length subs)) (nf (+ n 1)) ) (gen #\{) (push-args subs i "C_SCHEME_UNDEFINED") (gen #t "C_" (toplevel (first params)) "(" nf ",av2);}"))) ((##core#return) (gen #t "return(") (expr (first subs) i) (gen ");") ) ((##core#inline) (gen (first params) #\() (expr-args subs i) (gen #\)) ) ((##core#debug-event) (gen "C_debugger(&(C_debug_info[" (first params) "])," (if non-av-proc "0,NULL" "c,av") ")")) ((##core#inline_allocate) (gen (first params) "(&a," (length subs)) (if (pair? subs) (begin (gen #\,) (expr-args subs i) ) ) (gen #\)) ) ((##core#inline_ref) (gen (foreign-result-conversion (second params) "a") (first params) #\)) ) ((##core#inline_update) (let ([t (second params)]) (gen #\( (first params) "=(" (foreign-type-declaration t "") #\) (foreign-argument-conversion t)) (expr (first subs) i) (gen "),C_SCHEME_UNDEFINED)") ) ) ((##core#inline_loc_ref) (let ([t (first params)]) (gen (foreign-result-conversion t "a") "*((" (foreign-type-declaration t "") "*)C_data_pointer(") (expr (first subs) i) (gen ")))") ) ) ((##core#inline_loc_update) (let ([t (first params)]) (gen "((*(" (foreign-type-declaration t "") "*)C_data_pointer(") (expr (first subs) i) (gen "))=" (foreign-argument-conversion t)) (expr (second subs) i) (gen "),C_SCHEME_UNDEFINED)") ) ) ((##core#switch) (gen #t "switch(") (expr (first subs) i) (gen "){") (do ([j (first params) (sub1 j)] [ps (cdr subs) (cddr ps)] ) ((zero? j) (gen #t "default:") (expr (car ps) i) (gen #\}) ) (gen #t "case ") (expr (car ps) i) (gen #\:) (expr (cadr ps) i) ) ) ((##core#cond) (gen "(C_truep(") (expr (first subs) i) (gen ")?") (expr (second subs) i) (gen #\:) (expr (third subs) i) (gen #\)) ) (else (bomb "bad form" (node-class n))) ) ) ) (define (expr-args args i) (let loop ((xs args)) (unless (null? xs) (unless (eq? xs args) (gen #\,)) (expr (car xs) i) (loop (cdr xs))))) (define (push-args args i selfarg) (let* ((n (length args)) (avl (+ n (if selfarg 1 0))) (caller-has-av? (not (or (lambda-literal-customizable ll) (lambda-literal-direct ll)))) (caller-argcount (lambda-literal-argument-count ll)) (caller-rest-mode (lambda-literal-rest-argument-mode ll))) ;; Try to re-use argvector from current function if it is ;; large enough. push-args gets used only for functions in ;; CPS context, so callee never returns to current function. ;; And even so, av[] is already copied into temporaries. (cond ((or (not caller-has-av?) ; Argvec missing or (and (< caller-argcount avl) ; known to be too small? (eq? caller-rest-mode 'none))) (gen #t "C_word av2[" avl "];")) ((>= caller-argcount avl) ; Argvec known to be re-usable? (gen #t "C_word *av2=av;")) ; Re-use our own argvector (else ; Need to determine dynamically. This is slower. (gen #t "C_word *av2;") (gen #t "if(c >= " avl ") {") (gen #t " av2=av;") ; Re-use our own argvector (gen #t "} else {") (gen #t " av2=C_alloc(" avl ");") (gen #t "}"))) (when selfarg (gen #t "av2[0]=" selfarg ";")) (do ((j (if selfarg 1 0) (add1 j)) (args args (cdr args))) ((null? args)) (gen #t "av2[" j "]=") (expr (car args) i) (gen ";")))) (expr node temps) ) (define (header) (gen "/* Generated from " source-file " by the CHICKEN compiler" #t " http://www.call-cc.org" #t (string-intersperse (map (cut string-append " " <> "\n") (string-split (chicken-version #t) "\n") ) "") " command line: ") (gen-list user-supplied-options) (unless (not unit-name) (gen #t " unit: " unit-name)) (unless (null? used-units) (gen #t " uses: ") (gen-list used-units)) (gen #t "*/") (gen #t "#include \"" target-include-file "\"") (when external-protos-first (generate-foreign-callback-stub-prototypes foreign-callback-stubs) ) (when (pair? foreign-declarations) (gen #t) (for-each (lambda (decl) (gen #t decl)) foreign-declarations) ) (unless external-protos-first (generate-foreign-callback-stub-prototypes foreign-callback-stubs) ) ) (define (trailer) (gen #t #t "/*" #t (uncommentify (get-output-string collected-debugging-output)) "*/" #t "/* end of file */" #t)) (define (declarations) (let ((n (length literals))) (gen #t #t "static C_PTABLE_ENTRY *create_ptable(void);") (for-each (lambda (uu) (gen #t "C_noret_decl(C_" uu ")" #t "C_externimport void C_ccall C_" uu "(C_word c,C_word *av) C_noret;")) (map toplevel used-units)) (unless (zero? n) (gen #t #t "static C_TLS C_word lf[" n "];") ) (gen #t "static double C_possibly_force_alignment;") (do ((i 0 (add1 i)) (llits lliterals (cdr llits))) ((null? llits)) (let* ((ll (##sys#lambda-info->string (car llits))) (llen (string-length ll))) (gen #t "static C_char C_TLS li" i "[] C_aligned={C_lihdr(" (arithmetic-shift llen -16) #\, (bitwise-and #xff (arithmetic-shift llen -8)) #\, (bitwise-and #xff llen) #\)) (do ((n 0 (add1 n))) ((>= n llen)) (gen #\, (char->integer (string-ref ll n))) ) (do ((n (- (bitwise-and #xfffff8 (+ llen 7)) llen) (sub1 n))) ; fill up with zeros to align following entry ((zero? n)) (gen ",0") ) (gen "};"))))) (define (prototypes) (gen #t) (for-each (lambda (p) (let* ((id (car p)) (ll (cdr p)) (n (lambda-literal-argument-count ll)) (customizable (lambda-literal-customizable ll)) (empty-closure (and customizable (zero? (lambda-literal-closure-size ll)))) (varlist (intersperse (make-variable-list (if empty-closure (sub1 n) n) "t") #\,)) (rest (lambda-literal-rest-argument ll)) (rest-mode (lambda-literal-rest-argument-mode ll)) (direct (lambda-literal-direct ll)) (allocated (lambda-literal-allocated ll)) ) (gen #t) (cond ((not (eq? 'toplevel id)) (gen "C_noret_decl(" id ")" #t) (gen "static ") (gen (if direct "C_word " "void ")) (if customizable (gen "C_fcall ") (gen "C_ccall ") ) (gen id) ) (else (let ((uname (toplevel unit-name))) (gen "C_noret_decl(C_" uname ")" #t) ;XXX what's this for? (gen "C_externexport void C_ccall ") (gen "C_" uname) ) ) ) (gen #\() (unless customizable (gen "C_word c,")) (when (and direct (not (zero? allocated))) (gen "C_word *a") (when (pair? varlist) (gen #\,)) ) (if (or customizable direct) (apply gen varlist) (gen "C_word *av")) (gen #\)) (unless direct (gen " C_noret")) (gen #\;) )) lambda-table*) ) (define (trampolines) (let ([ns '()] [nsr '()] [nsrv '()] ) (define (restore n) (do ((i 0 (add1 i)) (j (sub1 n) (sub1 j))) ((>= i n)) (gen #t "C_word t" i "=av[" j "];"))) (for-each (lambda (p) (let* ([id (car p)] [ll (cdr p)] [argc (lambda-literal-argument-count ll)] [rest (lambda-literal-rest-argument ll)] [rest-mode (lambda-literal-rest-argument-mode ll)] [customizable (lambda-literal-customizable ll)] [empty-closure (and customizable (zero? (lambda-literal-closure-size ll)))] ) (when empty-closure (set! argc (sub1 argc))) (when (and (not (lambda-literal-direct ll)) customizable) (gen #t #t "C_noret_decl(tr" id ")" #t "static void C_ccall tr" id "(C_word c,C_word *av) C_noret;") (gen #t "static void C_ccall tr" id "(C_word c,C_word *av){") (restore argc) (gen #t id #\() (let ([al (make-argument-list argc "t")]) (apply gen (intersperse al #\,)) ) (gen ");}") ))) lambda-table*))) (define (literal-frame) (do ([i 0 (add1 i)] [lits literals (cdr lits)] ) ((null? lits)) (gen-lit (car lits) (sprintf "lf[~s]" i)) ) ) (define (bad-literal lit) (bomb "type of literal not supported" lit) ) (define (literal-size lit) (cond ((immediate? lit) 0) ((big-fixnum? lit) 2) ; immediate if fixnum, bignum see below ((string? lit) 0) ; statically allocated ((bignum? lit) 2) ; internal vector statically allocated ((flonum? lit) words-per-flonum) ((symbol? lit) 7) ; size of symbol, and possibly a bucket ((keyword? lit) 7) ; size of keyword (symbol), and possibly a bucket ((pair? lit) (+ 3 (literal-size (car lit)) (literal-size (cdr lit)))) ((vector? lit) (+ 1 (vector-length lit) (foldl + 0 (map literal-size (vector->list lit))))) ((block-variable-literal? lit) 0) ; excluded from generated code ((##sys#immediate? lit) (bad-literal lit)) ((##core#inline "C_lambdainfop" lit) 0) ; statically allocated ((##sys#bytevector? lit) (+ 2 (bytes->words (##sys#size lit))) ) ; drops "permanent" property! ((##sys#generic-structure? lit) (let ([n (##sys#size lit)]) (let loop ([i 0] [s (+ 2 n)]) (if (>= i n) s (loop (add1 i) (+ s (literal-size (##sys#slot lit i)))) ) ) ) ) ;; We could access rat/cplx slots directly, but let's not. ((ratnum? lit) (+ (##sys#size lit) (literal-size (numerator lit)) (literal-size (denominator lit)))) ((cplxnum? lit) (+ (##sys#size lit) (literal-size (real-part lit)) (literal-size (imag-part lit)))) (else (bad-literal lit))) ) (define (gen-lit lit to) ;; we do simple immediate literals directly to avoid a function call: (cond ((and (fixnum? lit) (not (big-fixnum? lit))) (gen #t to "=C_fix(" lit ");") ) ((block-variable-literal? lit)) ((eq? lit (void)) (gen #t to "=C_SCHEME_UNDEFINED;") ) ((boolean? lit) (gen #t to #\= (if lit "C_SCHEME_TRUE" "C_SCHEME_FALSE") #\;) ) ((char? lit) (gen #t to "=C_make_character(" (char->integer lit) ");") ) ((or (keyword? lit) (symbol? lit)) ; handled slightly specially (see C_h_intern_in) (let* ((str (##sys#slot lit 1)) (cstr (c-ify-string str)) (len (##sys#size str)) (intern (if (keyword? lit) "C_h_intern_kw" "C_h_intern"))) (gen #t to "=") (gen intern "(&" to #\, len ", C_text(" cstr "));"))) ((null? lit) (gen #t to "=C_SCHEME_END_OF_LIST;") ) ((and (not (##sys#immediate? lit)) ; nop (##core#inline "C_lambdainfop" lit))) ((or (fixnum? lit) (not (##sys#immediate? lit))) (gen #t to "=C_decode_literal(C_heaptop,C_text(") (gen-string-constant (encode-literal lit)) (gen "));")) (else (bad-literal lit)))) (define (gen-string-constant str) (let* ([len (##sys#size str)] [ns (fx/ len 80)] [srest (modulo len 80)] ) (do ([i ns (sub1 i)] [offset 0 (+ offset 80)] ) ((zero? i) (when (or (zero? len) (not (zero? srest))) (gen (c-ify-string (string-like-substring str offset len))) ) ) (gen (c-ify-string (string-like-substring str offset (+ offset 80))) #t) ) ) ) (define (string-like-substring s start end) (let* ([len (- end start)] [s2 (make-string len)] ) (##sys#copy-bytes s s2 start 0 len) s2) ) (define (procedures) (for-each (lambda (p) (let* ((id (car p)) (ll (cdr p)) (n (lambda-literal-argument-count ll)) (rname (real-name id db)) (demand (lambda-literal-allocated ll)) (max-av (apply max 0 (lambda-literal-callee-signatures ll))) (rest (lambda-literal-rest-argument ll)) (customizable (lambda-literal-customizable ll)) (empty-closure (and customizable (zero? (lambda-literal-closure-size ll)))) (nec (- n (if empty-closure 1 0))) (vlist0 (make-variable-list n "t")) (alist0 (make-argument-list n "t")) (varlist (intersperse (if empty-closure (cdr vlist0) vlist0) #\,)) (arglist (intersperse (if empty-closure (cdr alist0) alist0) #\,)) (external (lambda-literal-external ll)) (looping (lambda-literal-looping ll)) (direct (lambda-literal-direct ll)) (rest-mode (lambda-literal-rest-argument-mode ll)) (temps (lambda-literal-temporaries ll)) (ftemps (lambda-literal-float-temporaries ll)) (topname (toplevel unit-name))) (when empty-closure (debugging 'o "dropping unused closure argument" id)) (gen #t #t) (gen "/* " (cleanup rname) " */" #t) (cond [(not (eq? 'toplevel id)) (gen "static ") (gen (if direct "C_word " "void ")) (if customizable (gen "C_fcall ") (gen "C_ccall ") ) (gen id) ] [else (gen "static C_TLS int toplevel_initialized=0;") (unless unit-name (gen #t "C_main_entry_point") ) (gen #t #t "void C_ccall C_" topname) ] ) (gen #\() (unless customizable (gen "C_word c,")) (when (and direct (not (zero? demand))) (gen "C_word *a") (when (pair? varlist) (gen #\,)) ) (if (or customizable direct) (apply gen varlist) (gen "C_word *av")) (gen "){") (when (eq? rest-mode 'none) (set! rest #f)) (gen #t "C_word tmp;") (unless (or customizable direct) (do ((i 0 (add1 i))) ((>= i n)) (gen #t "C_word t" i "=av[" i "];"))) (if rest (gen #t "C_word t" n #\;) ; To hold rest-list if demand is met (begin (do ([i n (add1 i)] [j (+ temps (if looping (sub1 n) 0)) (sub1 j)] ) ((zero? j)) (gen #t "C_word t" i #\;)) (for-each (lambda (i) (gen #t "double f" i #\;)) ftemps))) (cond ((eq? 'toplevel id) (let ([ldemand (foldl (lambda (n lit) (+ n (literal-size lit))) 0 literals)] [llen (length literals)] ) (gen #t "C_word *a;" #t "if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}" #t "else C_toplevel_entry(C_text(\"" (or unit-name topname) "\"));") (when emit-debug-info (gen #t "C_register_debug_info(C_debug_info);")) (when disable-stack-overflow-checking (gen #t "C_disable_overflow_check=1;") ) (unless unit-name (when target-heap-size (gen #t "C_set_or_change_heap_size(" target-heap-size ",1);" #t "C_heap_size_is_fixed=1;")) (when target-stack-size (gen #t "C_resize_stack(" target-stack-size ");") ) ) (gen #t "C_check_nursery_minimum(C_calculate_demand(" demand ",c," max-av "));" #t "if(C_unlikely(!C_demand(C_calculate_demand(" demand ",c," max-av ")))){" #t "C_save_and_reclaim((void*)C_" topname ",c,av);}" #t "toplevel_initialized=1;" #t "if(C_unlikely(!C_demand_2(" ldemand "))){" #t "C_save(t1);" #t "C_rereclaim2(" ldemand "*sizeof(C_word),1);" #t "t1=C_restore;}" #t "a=C_alloc(" demand ");") (when (not (zero? llen)) (gen #t "C_initialize_lf(lf," llen ");") (literal-frame) (gen #t "C_register_lf2(lf," llen ",create_ptable());")) (gen #\{))) (rest (gen #t "C_word *a;") (when (and (not unsafe) (not no-argc-checks) (> n 2) (not empty-closure)) (gen #t "if(c<" n ") C_bad_min_argc_2(c," n ",t0);") ) (when insert-timer-checks (gen #t "C_check_for_interrupt;")) (gen #t "if(C_unlikely(!C_demand(C_calculate_demand((c-" n ")*C_SIZEOF_PAIR +" demand ",c," max-av ")))){")) (else (unless direct (gen #t "C_word *a;")) (when (and direct (not unsafe) (not disable-stack-overflow-checking)) (gen #t "C_stack_overflow_check;")) (when looping (gen #t "loop:")) (when (and external (not unsafe) (not no-argc-checks) (not customizable)) ;; (not customizable) implies empty-closure (if (eq? rest-mode 'none) (when (> n 2) (gen #t "if(c<" n ") C_bad_min_argc_2(c," n ",t0);")) (gen #t "if(c!=" n ") C_bad_argc_2(c," n ",t0);") ) ) (cond ((not direct) ;; The interrupt handler may fill the stack, so we only ;; check for an interrupt when the procedure is restartable (when insert-timer-checks (gen #t "C_check_for_interrupt;")) (gen #t "if(C_unlikely(!C_demand(C_calculate_demand(" demand (if customizable ",0," ",c,") max-av ")))){")) (else (gen #\{))))) (cond ((and (not (eq? 'toplevel id)) (not direct)) (when (and looping (not customizable)) ;; Loop will update t_n copy of av[n]; refresh av. (do ((i 0 (add1 i))) ((>= i n)) (gen #t "av[" i "]=t" i ";"))) (cond (rest (gen #t "C_save_and_reclaim((void*)" id ",c,av);}" #t "a=C_alloc((c-" n ")*C_SIZEOF_PAIR+" demand ");") (gen #t "t" n "=C_build_rest(&a,c," n ",av);") (do ((i (+ n 1) (+ i 1)) (j temps (- j 1))) ((zero? j)) (gen #t "C_word t" i #\;))) (else (cond ((and customizable (> nec 0)) (gen #t "C_save_and_reclaim_args((void *)tr" id #\, nec #\,) (apply gen arglist) (gen ");}")) (else (gen #t "C_save_and_reclaim((void *)" id #\, n ",av);}"))) (when (> demand 0) (gen #t "a=C_alloc(" demand ");"))))) (else (gen #\}))) (set! non-av-proc customizable) (expression (lambda-literal-body ll) (if rest (add1 n) ; One temporary is needed to hold the rest-list n) ll) (gen #\}) ) ) lambda-table*) ) (debugging 'p "code generation phase...") (set! output out) (header) (declarations) (generate-external-variables external-variables) (generate-foreign-stubs foreign-lambda-stubs db) (prototypes) (generate-foreign-callback-stubs foreign-callback-stubs db) (trampolines) (when emit-debug-info (emit-debug-table dbg-info-table)) (procedures) (emit-procedure-table lambda-table* source-file) (trailer) ) ) ;;; Emit global tables for debug-info (define (emit-debug-table dbg-info-table) (gen #t #t "static C_DEBUG_INFO C_debug_info[]={") (for-each (lambda (info) (gen #t "{" (second info) ",0,") (for-each (lambda (x) (if (not x) (gen "NULL,") (gen "C_text(\"" (backslashify (->string x)) "\"),"))) (cddr info)) (gen "},")) (sort dbg-info-table (lambda (i1 i2) (< (car i1) (car i2))))) (gen #t "{0,0,NULL,NULL}};\n")) ;;; Emit procedure table: (define (emit-procedure-table lambda-table* sf) (gen #t #t "#ifdef C_ENABLE_PTABLES" #t "static C_PTABLE_ENTRY ptable[" (add1 (length lambda-table*)) "] = {") (for-each (lambda (p) (let ((id (car p)) (ll (cdr p))) (gen #t "{C_text(\"" id #\: (string->c-identifier sf) "\"),(void*)") (if (eq? 'toplevel id) (gen "C_" (toplevel unit-name) "},") (gen id "},") ) ) ) lambda-table*) (gen #t "{NULL,NULL}};") (gen #t "#endif") (gen #t #t "static C_PTABLE_ENTRY *create_ptable(void)") (gen "{" #t "#ifdef C_ENABLE_PTABLES" #t "return ptable;" #t "#else" #t "return NULL;" #t "#endif" #t "}") ) ;;; Generate top-level procedure name: (define (toplevel name) (if (not name) "toplevel" (string-append (c-identifier name) "_toplevel"))) ;;; Create name that is safe for C comments: (define (cleanup s) (let ([s2 #f] [len (string-length s)] ) (let loop ([i 0]) (if (>= i len) (or s2 s) (let ([c (string-ref s i)]) (if (or (char? c #\~) (and (char=? c #\*) (< i (sub1 len)) (char=? #\/ (string-ref s (add1 i)))) ) (begin (unless s2 (set! s2 (string-copy s))) (string-set! s2 i #\~) ) (when s2 (string-set! s2 i c)) ) (loop (add1 i)) ) ) ) ) ) ;;; Create list of variables/parameters, interspersed with a special token: (define (make-variable-list n prefix) (list-tabulate n (lambda (i) (string-append "C_word " prefix (number->string i))) ) ) (define (make-argument-list n prefix) (list-tabulate n (lambda (i) (string-append prefix (number->string i))) ) ) ;;; Generate external variable declarations: (define (generate-external-variables vars) (gen #t) (for-each (lambda (v) (let ((name (vector-ref v 0)) (type (vector-ref v 1)) (exported (vector-ref v 2)) ) (gen #t (if exported "" "static ") (foreign-type-declaration type name) #\;) ) ) vars) ) ;;; Generate foreign stubs: (define (generate-foreign-callback-stub-prototypes stubs) (for-each (lambda (stub) (gen #t) (generate-foreign-callback-header "C_externexport " stub) (gen #\;) ) stubs) ) (define (generate-foreign-stubs stubs db) (for-each (lambda (stub) (let* ([id (foreign-stub-id stub)] [rname (real-name2 id db)] [types (foreign-stub-argument-types stub)] [n (length types)] [rtype (foreign-stub-return-type stub)] [sname (foreign-stub-name stub)] [body (foreign-stub-body stub)] [names (or (foreign-stub-argument-names stub) (make-list n #f))] [rconv (foreign-result-conversion rtype "C_a")] [cps (foreign-stub-cps stub)] [callback (foreign-stub-callback stub)] ) (gen #t) (when rname (gen #t "/* from " (cleanup rname) " */") ) (when body (gen #t "#define return(x) C_cblock C_r = (" rconv "(x))); goto C_ret; C_cblockend")) (cond (cps (gen #t "C_noret_decl(" id ")" #t "static void C_ccall " id "(C_word C_c,C_word *C_av){" #t "C_word C_k=C_av[1],C_buf=C_av[2];") (do ((i 0 (add1 i))) ((>= i n)) (gen #t "C_word C_a" i "=C_av[" (+ i 3) "];"))) (else (gen #t "C_regparm static C_word C_fcall " id #\() (apply gen (intersperse (cons "C_word C_buf" (make-variable-list n "C_a")) #\,)) (gen "){"))) (gen #t "C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;") (for-each (lambda (type index name) (gen #t (foreign-type-declaration type (if name (symbol->string name) (sprintf "t~a" index)) ) "=(" (foreign-type-declaration type "") #\) (foreign-argument-conversion type) "C_a" index ");") ) types (iota n) names) (when callback (gen #t "int C_level=C_save_callback_continuation(&C_a,C_k);")) (cond [body (gen #t body #t "C_ret:") (gen #t "#undef return" #t) (cond [callback (gen #t "C_k=C_restore_callback_continuation2(C_level);" #t "C_kontinue(C_k,C_r);") ] [cps (gen #t "C_kontinue(C_k,C_r);")] [else (gen #t "return C_r;")] ) ] [else (if (not (eq? rtype 'void)) (gen #t "C_r=" rconv) (gen #t) ) (gen sname #\() (apply gen (intersperse (make-argument-list n "t") #\,)) (unless (eq? rtype 'void) (gen #\))) (gen ");") (cond [callback (gen #t "C_k=C_restore_callback_continuation2(C_level);" #t "C_kontinue(C_k,C_r);") ] [cps (gen "C_kontinue(C_k,C_r);")] [else (gen #t "return C_r;")] ) ] ) (gen #\}) ) ) stubs) ) (define (generate-foreign-callback-stubs stubs db) (for-each (lambda (stub) (let* ((id (foreign-callback-stub-id stub)) (rname (real-name2 id db)) (rtype (foreign-callback-stub-return-type stub)) (argtypes (foreign-callback-stub-argument-types stub)) (n (length argtypes)) (vlist (make-argument-list n "t")) ) (define (compute-size type var ns) (case type ((char int int32 short bool void unsigned-short scheme-object unsigned-char unsigned-int unsigned-int32 byte unsigned-byte) ns) ((float double c-pointer nonnull-c-pointer c-string-list c-string-list*) (string-append ns "+3") ) ((unsigned-integer unsigned-integer32 long integer integer32 unsigned-long number) (string-append ns "+C_SIZEOF_FIX_BIGNUM")) ((unsigned-integer64 integer64 size_t ssize_t) ;; On 32-bit systems, needs 2 digits (string-append ns "+C_SIZEOF_BIGNUM(2)")) ((c-string c-string* unsigned-c-string unsigned-c-string unsigned-c-string*) (string-append ns "+2+(" var "==NULL?1:C_bytestowords(C_strlen(" var ")))") ) ((nonnull-c-string nonnull-c-string* nonnull-unsigned-c-string nonnull-unsigned-c-string* symbol) (string-append ns "+2+C_bytestowords(C_strlen(" var "))") ) (else (cond ((and (symbol? type) (lookup-foreign-type type)) => (lambda (t) (compute-size (vector-ref t 0) var ns) ) ) ((pair? type) (case (car type) ((ref pointer c-pointer nonnull-pointer nonnull-c-pointer function instance nonnull-instance instance-ref) (string-append ns "+3") ) ((const) (compute-size (cadr type) var ns)) (else ns) ) ) (else ns) ) ) ) ) (let ((sizestr (let loop ((types argtypes) (vars vlist) (ns "0")) (if (null? types) ns (loop (cdr types) (cdr vars) (compute-size (car types) (car vars) ns)))))) (gen #t) (when rname (gen #t "/* from " (cleanup rname) " */") ) (generate-foreign-callback-header "" stub) (gen #\{ #t "C_word x,s=" sizestr ",*a=" (if (string=? "0" sizestr) "C_stack_pointer;" "C_alloc(s);")) (gen #t "C_callback_adjust_stack(a,s);") ; make sure content is below stack_bottom as well (for-each (lambda (v t) (gen #t "x=" (foreign-result-conversion t "a") v ");" #t "C_save(x);") ) (reverse vlist) (reverse argtypes)) (unless (eq? 'void rtype) (gen #t "return " (foreign-argument-conversion rtype)) ) (gen "C_callback_wrapper((void *)" id #\, n #\)) (unless (eq? 'void rtype) (gen #\))) (gen ";}") ) ) ) stubs) ) (define (generate-foreign-callback-header cls stub) (let* ((name (foreign-callback-stub-name stub)) (quals (foreign-callback-stub-qualifiers stub)) (rtype (foreign-callback-stub-return-type stub)) (argtypes (foreign-callback-stub-argument-types stub)) (n (length argtypes)) (vlist (make-argument-list n "t")) ) (gen #t cls #\space (foreign-type-declaration rtype "") quals #\space name #\() (let loop ((vs vlist) (ts argtypes)) (unless (null? vs) (gen (foreign-type-declaration (car ts) (car vs))) (when (pair? (cdr vs)) (gen #\,)) (loop (cdr vs) (cdr ts)))) (gen #\)) ) ) ;; Create type declarations (define (foreign-type-declaration type target) (let ((err (lambda () (quit-compiling "illegal foreign type `~A'" type))) (str (lambda (ts) (string-append ts " " target))) ) (case type ((scheme-object) (str "C_word")) ((char byte) (str "C_char")) ((unsigned-char unsigned-byte) (str "unsigned C_char")) ((unsigned-int unsigned-integer) (str "unsigned int")) ((unsigned-int32 unsigned-integer32) (str "C_u32")) ((int integer bool) (str "int")) ((size_t) (str "size_t")) ((ssize_t) (str "ssize_t")) ((int32 integer32) (str "C_s32")) ((integer64) (str "C_s64")) ((unsigned-integer64) (str "C_u64")) ((short) (str "short")) ((long) (str "long")) ((unsigned-short) (str "unsigned short")) ((unsigned-long) (str "unsigned long")) ((float) (str "float")) ((double number) (str "double")) ((c-pointer nonnull-c-pointer scheme-pointer nonnull-scheme-pointer) (str "void *")) ((c-string-list c-string-list*) "C_char **") ((blob nonnull-blob u8vector nonnull-u8vector) (str "unsigned char *")) ((u16vector nonnull-u16vector) (str "unsigned short *")) ((s8vector nonnull-s8vector) (str "signed char *")) ((u32vector nonnull-u32vector) (str "unsigned int *")) ;; C_u32? ((u64vector nonnull-u64vector) (str "C_u64 *")) ((s16vector nonnull-s16vector) (str "short *")) ((s32vector nonnull-s32vector) (str "int *")) ;; C_s32? ((s64vector nonnull-s64vector) (str "C_s64 *")) ((f32vector nonnull-f32vector) (str "float *")) ((f64vector nonnull-f64vector) (str "double *")) ((pointer-vector nonnull-pointer-vector) (str "void **")) ((nonnull-c-string c-string nonnull-c-string* c-string* symbol) (str "char *")) ((nonnull-unsigned-c-string nonnull-unsigned-c-string* unsigned-c-string unsigned-c-string*) (str "unsigned char *")) ((void) (str "void")) (else (cond ((and (symbol? type) (lookup-foreign-type type)) => (lambda (t) (foreign-type-declaration (vector-ref t 0) target)) ) ((string? type) (str type)) ((list? type) (let ((len (length type))) (cond ((and (= 2 len) (memq (car type) '(pointer nonnull-pointer c-pointer scheme-pointer nonnull-scheme-pointer nonnull-c-pointer) ) ) (foreign-type-declaration (cadr type) (string-append "*" target)) ) ((and (= 2 len) (eq? 'ref (car type))) (foreign-type-declaration (cadr type) (string-append "&" target)) ) ((and (> len 2) (eq? 'template (car type))) (str (string-append (foreign-type-declaration (cadr type) "") "<" (string-intersperse (map (cut foreign-type-declaration <> "") (cddr type)) ",") "> ") ) ) ((and (= len 2) (eq? 'const (car type))) (string-append "const " (foreign-type-declaration (cadr type) target))) ((and (= len 2) (eq? 'struct (car type))) (string-append "struct " (->string (cadr type)) " " target)) ((and (= len 2) (eq? 'union (car type))) (string-append "union " (->string (cadr type)) " " target)) ((and (= len 2) (eq? 'enum (car type))) (string-append "enum " (->string (cadr type)) " " target)) ((and (= len 3) (memq (car type) '(instance nonnull-instance))) (string-append (->string (cadr type)) "*" target)) ((and (= len 3) (eq? 'instance-ref (car type))) (string-append (->string (cadr type)) "&" target)) ((and (>= len 3) (eq? 'function (car type))) (let ((rtype (cadr type)) (argtypes (caddr type)) (callconv (optional (cdddr type) ""))) (string-append (foreign-type-declaration rtype "") callconv " (*" target ")(" (string-intersperse (map (lambda (at) (if (eq? '... at) "..." (foreign-type-declaration at "") ) ) argtypes) ",") ")" ) ) ) (else (err)) ) ) ) (else (err)) ) ) ) ) ) ;; Generate expression to convert argument from Scheme data (define (foreign-argument-conversion type) (let ((err (lambda () (quit-compiling "illegal foreign argument type `~A'" type)))) (case type ((scheme-object) "(") ((char unsigned-char) "C_character_code((C_word)") ((byte int int32 unsigned-int unsigned-int32 unsigned-byte) "C_unfix(") ((short) "C_unfix(") ((unsigned-short) "(unsigned short)C_unfix(") ((unsigned-long) "C_num_to_unsigned_long(") ((double number float) "C_c_double(") ((integer integer32) "C_num_to_int(") ((integer64) "C_num_to_int64(") ((size_t) "(size_t)C_num_to_uint64(") ((ssize_t) "(ssize_t)C_num_to_int64(") ((unsigned-integer64) "C_num_to_uint64(") ((long) "C_num_to_long(") ((unsigned-integer unsigned-integer32) "C_num_to_unsigned_int(") ((scheme-pointer) "C_data_pointer_or_null(") ((nonnull-scheme-pointer) "C_data_pointer(") ((c-pointer) "C_c_pointer_or_null(") ((nonnull-c-pointer) "C_c_pointer_nn(") ((blob) "C_c_bytevector_or_null(") ((nonnull-blob) "C_c_bytevector(") ((u8vector) "C_c_u8vector_or_null(") ((nonnull-u8vector) "C_c_u8vector(") ((u16vector) "C_c_u16vector_or_null(") ((nonnull-u16vector) "C_c_u16vector(") ((u32vector) "C_c_u32vector_or_null(") ((nonnull-u32vector) "C_c_u32vector(") ((u64vector) "C_c_u64vector_or_null(") ((nonnull-u64vector) "C_c_u64vector(") ((s8vector) "C_c_s8vector_or_null(") ((nonnull-s8vector) "C_c_s8vector(") ((s16vector) "C_c_s16vector_or_null(") ((nonnull-s16vector) "C_c_s16vector(") ((s32vector) "C_c_s32vector_or_null(") ((nonnull-s32vector) "C_c_s32vector(") ((s64vector) "C_c_s64vector_or_null(") ((nonnull-s64vector) "C_c_s64vector(") ((f32vector) "C_c_f32vector_or_null(") ((nonnull-f32vector) "C_c_f32vector(") ((f64vector) "C_c_f64vector_or_null(") ((nonnull-f64vector) "C_c_f64vector(") ((pointer-vector) "C_c_pointer_vector_or_null(") ((nonnull-pointer-vector) "C_c_pointer_vector(") ((c-string c-string* unsigned-c-string unsigned-c-string*) "C_string_or_null(") ((nonnull-c-string nonnull-c-string* nonnull-unsigned-c-string nonnull-unsigned-c-string* symbol) "C_c_string(") ((bool) "C_truep(") (else (cond ((and (symbol? type) (lookup-foreign-type type)) => (lambda (t) (foreign-argument-conversion (vector-ref t 0)) ) ) ((and (list? type) (>= (length type) 2)) (case (car type) ((c-pointer) "C_c_pointer_or_null(") ((nonnull-c-pointer) "C_c_pointer_nn(") ((instance) "C_c_pointer_or_null(") ((nonnull-instance) "C_c_pointer_nn(") ((scheme-pointer) "C_data_pointer_or_null(") ((nonnull-scheme-pointer) "C_data_pointer(") ((function) "C_c_pointer_or_null(") ((const) (foreign-argument-conversion (cadr type))) ((enum) "C_num_to_int(") ((ref) (string-append "*(" (foreign-type-declaration (cadr type) "*") ")C_c_pointer_nn(")) ((instance-ref) (string-append "*(" (cadr type) "*)C_c_pointer_nn(")) (else (err)) ) ) (else (err)) ) ) ) ) ) ;; Generate suitable conversion of a result value into Scheme data (define (foreign-result-conversion type dest) (let ((err (lambda () (quit-compiling "illegal foreign return type `~A'" type)))) (case type ((char unsigned-char) "C_make_character((C_word)") ((int int32) "C_fix((C_word)") ((unsigned-int unsigned-int32) "C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)") ((short) "C_fix((short)") ((unsigned-short) "C_fix(0xffff&(C_word)") ((byte) "C_fix((char)") ((unsigned-byte) "C_fix(0xff&(C_word)") ((float double) (sprintf "C_flonum(&~a," dest)) ;XXX suboptimal for int64 ((number) (sprintf "C_number(&~a," dest)) ((nonnull-c-string c-string nonnull-c-pointer c-string* nonnull-c-string* unsigned-c-string unsigned-c-string* nonnull-unsigned-c-string nonnull-unsigned-c-string* symbol c-string-list c-string-list*) (sprintf "C_mpointer(&~a,(void*)" dest) ) ((c-pointer) (sprintf "C_mpointer_or_false(&~a,(void*)" dest)) ((integer integer32) (sprintf "C_int_to_num(&~a," dest)) ((integer64 ssize_t) (sprintf "C_int64_to_num(&~a," dest)) ((unsigned-integer64 size_t) (sprintf "C_uint64_to_num(&~a," dest)) ((unsigned-integer unsigned-integer32) (sprintf "C_unsigned_int_to_num(&~a," dest)) ((long) (sprintf "C_long_to_num(&~a," dest)) ((unsigned-long) (sprintf "C_unsigned_long_to_num(&~a," dest)) ((bool) "C_mk_bool(") ((void scheme-object) "((C_word)") (else (cond ((and (symbol? type) (lookup-foreign-type type)) => (lambda (x) (foreign-result-conversion (vector-ref x 0) dest)) ) ((and (list? type) (>= (length type) 2)) (case (car type) ((nonnull-pointer nonnull-c-pointer) (sprintf "C_mpointer(&~A,(void*)" dest) ) ((ref) (sprintf "C_mpointer(&~A,(void*)&" dest) ) ((instance) (sprintf "C_mpointer_or_false(&~A,(void*)" dest) ) ((nonnull-instance) (sprintf "C_mpointer(&~A,(void*)" dest) ) ((instance-ref) (sprintf "C_mpointer(&~A,(void*)&" dest) ) ((const) (foreign-result-conversion (cadr type) dest)) ((pointer c-pointer) (sprintf "C_mpointer_or_false(&~a,(void*)" dest) ) ((function) (sprintf "C_mpointer(&~a,(void*)" dest)) ((enum) (sprintf "C_int_to_num(&~a," dest)) (else (err)) ) ) (else (err)) ) ) ) ) ) ;;; Encoded literals as strings, to be decoded by "C_decode_literal()" ;; ;; - everything hardcoded, using the FFI would be the ugly, but safer method. (define (encode-literal lit) (define getbits (foreign-lambda* int ((scheme-object lit)) " #ifdef C_SIXTY_FOUR return((C_header_bits(lit) >> (24 + 32)) & 0xff); #else return((C_header_bits(lit) >> 24) & 0xff); #endif ") ) (define getsize (foreign-lambda* int ((scheme-object lit)) "return(C_header_size(lit));")) (define (encode-size n) (if (fx> (fxlen n) 24) ;; Unfortunately we can't do much more to help the user. ;; Printing the literal is not helpful because it's *huge*, ;; and we have no line number information here. (quit-compiling "Encoded literal size of ~S is too large (must fit in 24 bits)" n) (string (integer->char (bitwise-and #xff (arithmetic-shift n -16))) (integer->char (bitwise-and #xff (arithmetic-shift n -8))) (integer->char (bitwise-and #xff n))))) (define (finish str) ; can be taken out at a later stage (string-append (string #\xfe) str)) (finish (cond ((eq? #t lit) "\xff\x06\x01") ((eq? #f lit) "\xff\x06\x00") ((char? lit) (string-append "\xff\x0a" (encode-size (char->integer lit)))) ((null? lit) "\xff\x0e") ((eof-object? lit) "\xff\x3e") ((eq? (void) lit) "\xff\x1e") ;; The big-fixnum? check can probably be simplified ((and (fixnum? lit) (not (big-fixnum? lit))) (string-append "\xff\x01" (string (integer->char (bitwise-and #xff (arithmetic-shift lit -24))) (integer->char (bitwise-and #xff (arithmetic-shift lit -16))) (integer->char (bitwise-and #xff (arithmetic-shift lit -8))) (integer->char (bitwise-and #xff lit)) ) ) ) ((exact-integer? lit) ;; Encode as hex to save space and get exact size ;; calculation. We could encode as base 32 to save more ;; space, but that makes debugging harder. The type tag is ;; a bit of a hack: we encode as "GC forwarded" string to ;; get a unique new type, as bignums don't have their own ;; type tag (they're encoded as structures). (let ((str (number->string lit 16))) (string-append "\xc2" (encode-size (string-length str)) str))) ((flonum? lit) (string-append "\x55" (number->string lit) "\x00") ) ((or (keyword? lit) (symbol? lit)) (let ((str (##sys#slot lit 1))) (string-append "\x01" (encode-size (string-length str)) (if (keyword? lit) "\x02" "\x01") str) ) ) ((##sys#immediate? lit) (bomb "invalid literal - cannot encode" lit)) ((##core#inline "C_byteblockp" lit) (##sys#string-append ; relies on the fact that ##sys#string-append doesn't check (string-append (string (integer->char (getbits lit))) (encode-size (getsize lit)) ) lit) ) (else (let ((len (getsize lit))) (string-intersperse (cons* (string (integer->char (getbits lit))) (encode-size len) (list-tabulate len (lambda (i) (encode-literal (##sys#slot lit i))))) ""))))) ) ) chicken-5.1.0/compiler-syntax.scm0000644000175000017500000002507113502227553016602 0ustar sjamaansjamaan;;;; compiler-syntax.scm - compiler syntax used internally ; ; Copyright (c) 2009-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit compiler-syntax) (uses extras support compiler)) (module chicken.compiler.compiler-syntax (compiler-syntax-statistics) (import scheme chicken.base chicken.compiler.support chicken.compiler.core chicken.fixnum chicken.format) (include "tweaks.scm") (include "mini-srfi-1.scm") ;;; Compiler macros (that operate in the expansion phase) (define compiler-syntax-statistics '()) (set! ##sys#compiler-syntax-hook (lambda (name result) (let ((a (alist-ref name compiler-syntax-statistics eq? 0))) (set! compiler-syntax-statistics (alist-update! name (add1 a) compiler-syntax-statistics))))) (define (r-c-s names transformer se) (let ((t (cons (##sys#ensure-transformer (##sys#er-transformer transformer) (car names)) (append se ##sys#default-macro-environment)))) (for-each (lambda (name) (##sys#put! name '##compiler#compiler-syntax t) ) names) ) ) (define-syntax define-internal-compiler-syntax (syntax-rules () ((_ (names . llist) se . body) (r-c-s 'names (lambda llist . body) se)))) (define-internal-compiler-syntax ((scheme#for-each ##sys#for-each) x r c) '((pair? . scheme#pair?)) (let ((%let (r 'let)) (%if (r 'if)) (%loop (r 'for-each-loop)) (%proc (gensym)) (%begin (r 'begin)) (%quote (r 'quote)) (%and (r 'and)) (%pair? (r 'pair?)) (%lambda (r 'lambda)) (lsts (cddr x))) (if (and (memq 'scheme#for-each standard-bindings) ; we have to check this because the db (and thus (> (length+ x) 2)) ; intrinsic marks) isn't set up yet (let ((vars (map (lambda _ (gensym)) lsts))) `(,%let ((,%proc ,(cadr x)) ,@(map list vars lsts)) ,@(map (lambda (var) `(##core#check (##sys#check-list ,var (,%quote for-each)))) vars) (,%let ,%loop ,(map list vars vars) (,%if (,%and ,@(map (lambda (v) `(,%pair? ,v)) vars)) (,%begin (,%proc ,@(map (lambda (v) `(##sys#slot ,v 0)) vars)) (##core#app ,%loop ,@(map (lambda (v) `(##sys#slot ,v 1)) vars) ) ))))) x))) (define-internal-compiler-syntax ((scheme#map ##sys#map) x r c) '((pair? . scheme#pair?) (cons . scheme#cons)) (let ((%let (r 'let)) (%if (r 'if)) (%loop (r 'map-loop)) (%res (gensym)) (%cons (r 'cons)) (%set! (r 'set!)) (%result (gensym)) (%node (gensym)) (%proc (gensym)) (%quote (r 'quote)) (%begin (r 'begin)) (%lambda (r 'lambda)) (%and (r 'and)) (%pair? (r 'pair?)) (lsts (cddr x))) (if (and (memq 'scheme#map standard-bindings) ; s.a. (> (length+ x) 2)) (let ((vars (map (lambda _ (gensym)) lsts))) `(,%let ((,%node (,%cons (##core#undefined) (,%quote ())))) (,%let ((,%result ,%node) (,%proc ,(cadr x)) ,@(map list vars lsts)) ,@(map (lambda (var) `(##core#check (##sys#check-list ,var (,%quote map)))) vars) (,%let ,%loop ,(map list vars vars) (,%if (,%and ,@(map (lambda (v) `(,%pair? ,v)) vars)) (,%let ((,%res (,%cons (,%proc ,@(map (lambda (v) `(##sys#slot ,v 0)) vars)) (,%quote ())))) (##sys#setslot ,%node 1 ,%res) (,%set! ,%node ,%res) (##core#app ,%loop ,@(map (lambda (v) `(##sys#slot ,v 1)) vars))) (##sys#slot ,%result 1)))))) x))) (define-internal-compiler-syntax ((chicken.base#o) x r c) '() (if (and (fx> (length x) 1) (memq 'chicken.base#o extended-bindings)) ; s.a. (let ((%tmp (r 'tmp))) `(,(r 'lambda) (,%tmp) ,(foldr list %tmp (cdr x)))) x)) (define-internal-compiler-syntax ((chicken.format#sprintf chicken.format#format) x r c) `((display . scheme#display) (write . scheme#write) (number->string . scheme#number->string) (write-char . scheme#write-char) (open-output-string . chicken.base#open-output-string) (get-output-string . chicken.base#get-output-string)) (let* ((out (gensym 'out)) (code (compile-format-string (if (eq? (car x) 'chicken.format#sprintf) 'sprintf 'format) out x (cdr x) r c))) (if code `(,(r 'let) ((,out (,(r 'open-output-string)))) ,code (,(r 'get-output-string) ,out)) x))) (define-internal-compiler-syntax ((chicken.format#fprintf) x r c) '((display . scheme#display) (write . scheme#write) (number->string . scheme#number->string) (write-char . scheme#write-char) (open-output-string . chicken.base#open-output-string) (get-output-string . chicken.base#get-output-string)) (if (>= (length x) 3) (let ((code (compile-format-string 'fprintf (cadr x) x (cddr x) r c))) (or code x)) x)) (define-internal-compiler-syntax ((chicken.format#printf) x r c) '((display . scheme#display) (write . scheme#write) (number->string . scheme#number->string) (write-char . scheme#write-char) (open-output-string . chicken.base#open-output-string) (get-output-string . chicken.base#get-output-string)) (let ((code (compile-format-string 'printf '##sys#standard-output x (cdr x) r c))) (or code x))) (define (compile-format-string func out x args r c) (call/cc (lambda (return) (and (>= (length args) 1) (memq (symbol-append 'chicken.format# func) extended-bindings) ; s.a. (or (string? (car args)) (and (list? (car args)) (c (r 'quote) (caar args)) (string? (cadar args)))) (let ((fstr (if (string? (car args)) (car args) (cadar args))) (args (cdr args))) (define (fail ret? msg . args) (let ((ln (get-line x))) (warning (sprintf "~a`~a', in format string ~s, ~?" (if ln (sprintf "(~a) " ln) "") func fstr msg args) )) (when ret? (return #f))) (let ((code '()) (index 0) (len (string-length fstr)) (%out (r 'out)) (%let (r 'let)) (%number->string (r 'number->string))) (define (fetch) (let ((c (string-ref fstr index))) (set! index (fx+ index 1)) c) ) (define (next) (if (null? args) (fail #t "too few arguments to formatted output procedure") (let ((x (car args))) (set! args (cdr args)) x) ) ) (define (endchunk chunk) (when (pair? chunk) (push (if (= 1 (length chunk)) `(##sys#write-char-0 ,(car chunk) ,%out) `(##sys#print ,(##sys#reverse-list->string chunk) #f ,%out))))) (define (push exp) (set! code (cons exp code))) (let loop ((chunk '())) (cond ((>= index len) (unless (null? args) (fail #f "too many arguments to formatted output procedure")) (endchunk chunk) `(,%let ((,%out ,out)) (##sys#check-output-port ,%out #t ',func) ,@(reverse code))) (else (let ((c (fetch))) (if (eq? c #\~) (let ((dchar (fetch))) (endchunk chunk) (case (char-upcase dchar) ((#\S) (push `(##sys#print ,(next) #t ,%out))) ((#\A) (push `(##sys#print ,(next) #f ,%out))) ((#\C) (push `(##sys#write-char-0 ,(next) ,%out))) ((#\B) (push `(##sys#print (,%number->string ,(next) 2) #f ,%out))) ((#\O) (push `(##sys#print (,%number->string ,(next) 8) #f ,%out))) ((#\X) (push `(##sys#print (,%number->string ,(next) 16) #f ,%out))) ((#\!) (push `(##sys#flush-output ,%out))) ((#\?) (let* ([fstr (next)] [lst (next)] ) (push `(##sys#apply chicken.format#fprintf ,%out ,fstr ,lst)))) ((#\~) (push `(##sys#write-char-0 #\~ ,%out))) ((#\% #\N) (push `(##sys#write-char-0 #\newline ,%out))) (else (if (char-whitespace? dchar) (let skip ((c (fetch))) (if (char-whitespace? c) (skip (fetch)) (set! index (sub1 index)))) (fail #t "illegal format-string character `~c'" dchar) ) ) ) (loop '()) ) (loop (cons c chunk))))))))))))) (define-internal-compiler-syntax ((chicken.base#foldr) x r c) '((pair? . scheme#pair?)) (if (and (fx= (length x) 4) (memq 'chicken.base#foldr extended-bindings) ) ; s.a. (let ((f (cadr x)) (z (caddr x)) (lst (cadddr x)) (%let* (r 'let*)) (%let (r 'let)) (%pair? (r 'pair?)) (%if (r 'if)) (loopvar (gensym "foldr")) (lstvar (gensym))) `(,%let* ((,lstvar ,lst)) (##core#check (##sys#check-list ,lstvar (##core#quote foldr))) (,%let ,loopvar ((,lstvar ,lstvar)) (,%if (,%pair? ,lstvar) (,f (##sys#slot ,lstvar 0) (##core#app ,loopvar (##sys#slot ,lstvar 1))) ,z)))) x)) (define-internal-compiler-syntax ((chicken.base#foldl) x r c) '((pair? . scheme#pair?)) (if (and (fx= (length x) 4) (memq 'chicken.base#foldl extended-bindings) ) ; s.a. (let ((f (cadr x)) (z (caddr x)) (lst (cadddr x)) (%let* (r 'let*)) (%let (r 'let)) (%if (r 'if)) (%pair? (r 'pair?)) (zvar (gensym)) (loopvar (gensym "foldl")) (lstvar (gensym))) `(,%let* ((,zvar ,z) (,lstvar ,lst)) (##core#check (##sys#check-list ,lstvar (##core#quote foldl))) (,%let ,loopvar ((,lstvar ,lstvar) (,zvar ,zvar)) (,%if (,%pair? ,lstvar) (##core#app ,loopvar (##sys#slot ,lstvar 1) (,f ,zvar (##sys#slot ,lstvar 0))) ,zvar)))) x)) ) chicken-5.1.0/csibatch.bat0000644000175000017500000000006313213463160015175 0ustar sjamaansjamaan@echo off csi -script %1 %2 %3 %4 %5 %6 %7 %8 %9 chicken-5.1.0/chicken.ico0000644000175000017500000000137613213463160015035 0ustar sjamaansjamaan è( @€€€€€€€€€ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿ»»°° »»° ° °»»» »»»»»»°»»»»»»»»»° »»»»»»»»»»° »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» »»»»»»»»»»»»»»° »»»»»»»»»»»»»»°»»»»»»»»»»»»»»»°»»»»»»»»»»»»»»»°»»»»»»»»»»»»»»»°»»»»»»»»»»»»»»»°»»»»»»»»»»»»»»»° »»»»»»»»»»»»»»° »»»»»»»»»»»»»»°»»»»»»»»»»»»»»°»»»»»»»»»»»»»»° »»»»»»»»»°»»»»»»»»»»»° »»»»»»»»°°»»»° »»»° »»»° »»° »»°»» ÿÁÿÿøÿÿþÿÿþÿÿüÿÿ€ÿüøàÀÀ€€€€€Ààðàðùðÿÿàÿÿàÿÿøÿÿøÿÿü?ÿÿþ¿ÿÿchicken-5.1.0/stub.c0000644000175000017500000001736113502230004014045 0ustar sjamaansjamaan/* Generated from stub.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: stub.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file stub.c unit: default_stub uses: library eval data-structures port extras */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_port_toplevel) C_externimport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[2]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_132) static void C_ccall f_132(C_word c,C_word *av) C_noret; C_noret_decl(f_135) static void C_ccall f_135(C_word c,C_word *av) C_noret; C_noret_decl(f_138) static void C_ccall f_138(C_word c,C_word *av) C_noret; C_noret_decl(f_141) static void C_ccall f_141(C_word c,C_word *av) C_noret; C_noret_decl(f_144) static void C_ccall f_144(C_word c,C_word *av) C_noret; C_noret_decl(f_147) static void C_ccall f_147(C_word c,C_word *av) C_noret; C_noret_decl(f_149) static void C_fcall f_149(C_word t0,C_word t1) C_noret; C_noret_decl(f_153) static void C_ccall f_153(C_word c,C_word *av) C_noret; C_noret_decl(C_default_5fstub_toplevel) C_externexport void C_ccall C_default_5fstub_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_149) static void C_ccall trf_149(C_word c,C_word *av) C_noret; static void C_ccall trf_149(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_149(t0,t1);} /* k130 */ static void C_ccall f_132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_132,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_135,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k133 in k130 */ static void C_ccall f_135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_135,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_138,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k136 in k133 in k130 */ static void C_ccall f_138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_138,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_141,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_port_toplevel(2,av2);}} /* k139 in k136 in k133 in k130 */ static void C_ccall f_141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_141,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_144,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k142 in k139 in k136 in k133 in k130 */ static void C_ccall f_144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_144,2,av);} a=C_alloc(17); t2=C_a_i_provide(&a,1,lf[0]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_147,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_149,a[2]=t5,a[3]=((C_word)li0),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_149(t7,t3);} /* k145 in k142 in k139 in k136 in k133 in k130 */ static void C_ccall f_147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_147,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k142 in k139 in k136 in k133 in k130 */ static void C_fcall f_149(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_149,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_153,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* stub.scm:35: chicken.platform#return-to-host */ t3=*((C_word*)lf[1]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k151 in loop in k142 in k139 in k136 in k133 in k130 */ static void C_ccall f_153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_153,2,av);} /* stub.scm:35: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_149(t2,((C_word*)t0)[3]);} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_default_5fstub_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("default_stub")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_default_5fstub_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(14))){ C_save(t1); C_rereclaim2(14*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,2); lf[0]=C_h_intern(&lf[0],12, C_text("default_stub")); lf[1]=C_h_intern(&lf[1],31, C_text("chicken.platform#return-to-host")); C_register_lf2(lf,2,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_132,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[10] = { {C_text("f_132:stub_2escm"),(void*)f_132}, {C_text("f_135:stub_2escm"),(void*)f_135}, {C_text("f_138:stub_2escm"),(void*)f_138}, {C_text("f_141:stub_2escm"),(void*)f_141}, {C_text("f_144:stub_2escm"),(void*)f_144}, {C_text("f_147:stub_2escm"),(void*)f_147}, {C_text("f_149:stub_2escm"),(void*)f_149}, {C_text("f_153:stub_2escm"),(void*)f_153}, {C_text("toplevel:stub_2escm"),(void*)C_default_5fstub_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 1 o|replaced variables: 1 o|removed binding forms: 8 o|removed binding forms: 1 o|customizable procedures: (loop18) o|calls to known targets: 2 o|fast box initializations: 1 */ /* end of file */ chicken-5.1.0/chicken.load.import.scm0000644000175000017500000000117613502227750017276 0ustar sjamaansjamaan;;;; chicken.load.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.load 'eval (scheme#list) '((dynamic-load-libraries . chicken.load#dynamic-load-libraries) (set-dynamic-load-mode! . chicken.load#set-dynamic-load-mode!) (load-library . chicken.load#load-library) (load-noisily . chicken.load#load-noisily) (load-relative . chicken.load#load-relative) (load-verbose . chicken.load#load-verbose) (provide . chicken.load#provide) (provided? . chicken.load#provided?) (require . chicken.load#require)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/csi.mdoc0000644000175000017500000001120013502227553014347 0ustar sjamaansjamaan.\" Copyright (c) 2007-2019, The CHICKEN Team .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. The name of the authors may not be used to endorse or promote products .\" derived from this software without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, .\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .\" .\" .Dd Apr 26, 2017 .Dt CSI 1 .Os .Sh NAME .Nm csi .Nd The CHICKEN Scheme interpreter .Sh SYNOPSIS .Nm .Op Ar OPTION ... .Op Ar FILENAME ... .Sh DESCRIPTION .Nm is an interpreter for the programming language Scheme supporting most of the features as described in the Revised^5 Report on the Algorithmic Language Scheme. .Nm is implemented as a program compiled with the CHICKEN compiler. .Pp .Ar FILENAME is a Scheme source file name with optional extension. .Ar OPTION may be one of the following: .Bl -tag -width Ds .It Fl h , Fl help Display usage and exit. .It Fl version Display version and exit. .It Fl release Print release number and exit. .It Fl i , Fl case-insensitive Enable case-insensitive reading. .It Fl e Ar EXPRESSION , Fl eval Ar EXPRESSION Evaluate the given expression. .It Fl p Ar EXPRESSION , Fl print Ar EXPRESSION Evaluate and print the result(s) of the given expression. .It Fl P Ar EXPRESSION , Fl pretty-print Ar EXPRESSION Evaluate and print result(s) prettily. .It Fl D Ar SYMBOL , Fl feature Ar SYMBOL Register feature identifier. .It Fl no-feature Ar SYMBOL Disable built-in feature identifier. .It Fl q , Fl quiet Do not print banner. .It Fl n , Fl no-init Do not load initialization file. .Sq .csirc .It Fl b , Fl batch Terminate after command-line processing. .It Fl w , Fl no-warnings Disable all warnings. .It Fl K Ar STYLE , Fl keyword-style Ar STYLE Enable alternative keyword-syntax .Po prefix, suffix or none Pc .It Fl no-parentheses-synonyms Disable list delimiter synonyms. .It Fl no-symbol-escape Disables support for escaped symbols. .It Fl r5rs-syntax Disable the CHICKEN extensions to R5RS syntax. .It Fl s Ar PATHNAME , Fl script Ar PATHNAME Use interpreter for shell scripts. .It Fl ss Ar PATHNAME Run a script with a .Sq main procedure .It Fl sx Ar PATHNAME Same as .Fl s , but print each expression as it is evaluated. .It Fl setup-mode Prefer the current directory when locating extensions. .It Fl R Ar NAME , Fl require-extension Ar NAME Import extension before executing code. .It Fl I Ar PATHNAME , Fl include-path Ar PATHNAME Add .Ar PATHNAME to the include path. .It Fl - Ignore all following options. .El .Sh ENVIRONMENT The following environment variables change the behaviour of .Nm Ns : .Bl -tag -width CHICKEN_INCLUDE_PATH .It Ev CSI_OPTIONS When set to a string of command-line options, then the options are passed implicitly to every direct or indirect invocation of .Nm . Note that runtime options of the form .Sq \&-: Ns Aq OPTIONS cannot be passed using this method. .It Ev CHICKEN_INCLUDE_PATH Contains one or more pathnames where the interpreter should also look for include files, separated by .Sq \&; characters. .El .Sh FILES .Bl -tag -width 4n .It Pa $XDG_CONFIG_HOME/chicken/csirc Scheme file loaded on startup. ( .Ev $XDG_CONFIG_HOME defaults to .Pa $HOME/.config ) .It Pa $HOME/.csirc Scheme file loaded on startup if the previous one doesn’t exists. .El .Sh EXIT STATUS .Ex -std .Sh SEE ALSO .Xr chicken 1 , .Xr csc 1 .Pp More information can be found in the .Lk http://wiki.call-cc.org/manual/index "CHICKEN User's Manual". .Sh AUTHORS .An The CHICKEN Team .Sh BUGS Submit bug reports by e-mail to .Mt chicken-janitors@nongnu.org chicken-5.1.0/chicken-do.mdoc0000644000175000017500000000523713502227553015612 0ustar sjamaansjamaan.\" Copyright (c) 2017-2019, The CHICKEN Team .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. The name of the authors may not be used to endorse or promote products .\" derived from this software without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, .\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .\" .\" .Dd Apr 26, 2017 .Dt CHICKEN-DO 1 .Os .Sh NAME .Nm chicken-do .Nd run a shell command unless the target exists and any dependency is not newer than the target .Sh SYNOPSIS .Nm .Op Fl q .Op Fl h .Op Fl - .Ar TARGET ... .Cm : .Ar DEPENDENCY ... .Cm : .Ar COMMAND ... .Sh DESCRIPTION If the files .Em TARGET ... do not exist, or if any of the files in .Em DEPENDENCY ... are newer than one of the target files, then execute the shell commands in .Em COMMAND ... . .Pp The program accepts the following options: .Bl -tag -width Ds .It Fl h Show usage and exit. .It Fl q Quiet operation - do not print shell commands when they are executed. .It Fl - Treat all following tokens as target filenames, even if they begin with a .Fl character. .El .Sh EXIT STATUS .Ex -std .Sh EXAMPLES Build a C program from sources: .Pp .Dl $ chicken-do prg : prg.c inc.h : gcc prg.c -o prg .Sh SEE ALSO .Xr chicken 1 , .Xr chicken-status 1 , .Xr chicken-install 1 , .Xr chicken-uninstall 1 , .Xr csc 1 .Pp More information can be found in the .Lk http://wiki.call-cc.org/manual/index "CHICKEN User's Manual". .Sh AUTHORS .An The CHICKEN Team .Sh BUGS Submit bug reports by e-mail to .Mt chicken-janitors@nongnu.org chicken-5.1.0/egg-information.scm0000644000175000017500000000727613502227553016540 0ustar sjamaansjamaan;;; loading and accessing egg-information ; ; Copyright (c) 2017-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. ;;; load egg-info from file and perform validation (define (locate-egg-file fname) (let ((fname* (make-pathname (make-pathname (pathname-directory fname) "chicken") (pathname-file fname) (pathname-extension fname)))) (if (file-exists? fname*) fname* fname))) (define (load-egg-info fname) (let ((fname (locate-egg-file fname))) (with-input-from-file fname read))) ;;; lookup specific toplevel properties of egg-information (define (get-egg-property info prop #!optional default) (let ((p (assq prop info))) (or (and p (cadr p)) default))) (define (get-egg-property* info prop #!optional (default '())) (let ((p (assq prop info))) (or (and p (cdr p)) default))) ;;; lookup specific properties for specific extensions (define (get-extension-property/internal info ext prop get default host) (define (find-prop exp) (and (not (null? exp)) (case (caar exp) ((target) (or (and (not host) (find-prop (cdar exp))) (find-prop (cdr exp)))) ((host) (or (and host (find-prop (cdar exp))) (find-prop (cdr exp)))) (else (if (eq? prop (caar exp)) (car exp) (find-prop (cdr exp))))))) (or (let walk ((p (cdr (assq 'components info)))) (and (not (null? p)) (case (caar p) ((target) (or (and (not host) (walk (cdar p))) (walk (cdr p)))) ((host) (or (and host (walk (cdar p))) (walk (cdr p)))) ((extension) (and (eq? ext (cadar p)) (let ((p (find-prop (caddr p)))) (and p (get p))))) (else (walk (cdr p)))))) default)) (define (get-extension-property info ext prop #!optional default host) (get-extension-property/internal info ext prop cadr default host)) (define (get-extension-property* info ext prop #!optional default host) (get-extension-property/internal info ext prop cdr default host)) chicken-5.1.0/pathname.c0000644000175000017500000036166613502227742014716 0ustar sjamaansjamaan/* Generated from pathname.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: pathname.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file pathname.c -emit-import-library chicken.pathname unit: pathname uses: data-structures irregex library */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_irregex_toplevel) C_externimport void C_ccall C_irregex_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[76]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,97,98,115,111,108,117,116,101,45,112,97,116,104,110,97,109,101,63,32,112,110,41}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,8),40,108,112,32,108,101,110,41}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,99,104,111,112,45,112,100,115,32,115,116,114,41,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,115,116,114,115,41,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,16),40,99,111,110,99,45,100,105,114,115,32,100,105,114,115,41}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,24),40,99,97,110,111,110,105,99,97,108,105,122,101,45,100,105,114,115,32,100,105,114,115,41}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,33),40,95,109,97,107,101,45,112,97,116,104,110,97,109,101,32,108,111,99,32,100,105,114,32,102,105,108,101,32,101,120,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,109,97,107,101,45,112,97,116,104,110,97,109,101,32,100,105,114,115,32,102,105,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,58),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,109,97,107,101,45,97,98,115,111,108,117,116,101,45,112,97,116,104,110,97,109,101,32,100,105,114,115,32,102,105,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,15),40,115,116,114,105,112,45,112,100,115,32,100,105,114,41,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,100,101,99,111,109,112,111,115,101,45,112,97,116,104,110,97,109,101,32,112,110,41}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,7),40,97,49,48,48,57,41,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,29),40,97,49,48,49,53,32,100,105,114,50,50,52,32,102,105,108,101,50,50,54,32,101,120,116,50,50,56,41,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,100,105,114,101,99,116,111,114,121,32,112,110,41}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,7),40,97,49,48,50,52,41,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,29),40,97,49,48,51,48,32,100,105,114,50,51,56,32,102,105,108,101,50,52,48,32,101,120,116,50,52,50,41,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,102,105,108,101,32,112,110,41,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,7),40,97,49,48,51,57,41,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,29),40,97,49,48,52,53,32,100,105,114,50,53,50,32,102,105,108,101,50,53,52,32,101,120,116,50,53,54,41,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,101,120,116,101,110,115,105,111,110,32,112,110,41}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,7),40,97,49,48,53,52,41,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,29),40,97,49,48,54,48,32,100,105,114,50,54,54,32,102,105,108,101,50,54,56,32,101,120,116,50,55,48,41,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,115,116,114,105,112,45,100,105,114,101,99,116,111,114,121,32,112,110,41,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,7),40,97,49,48,55,50,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,29),40,97,49,48,55,56,32,100,105,114,50,56,48,32,102,105,108,101,50,56,50,32,101,120,116,50,56,52,41,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,115,116,114,105,112,45,101,120,116,101,110,115,105,111,110,32,112,110,41,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,7),40,97,49,48,57,48,41,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,27),40,97,49,48,57,54,32,95,50,57,53,32,102,105,108,101,50,57,55,32,101,120,116,50,57,57,41,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,114,101,112,108,97,99,101,45,100,105,114,101,99,116,111,114,121,32,112,110,32,100,105,114,41,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,7),40,97,49,49,48,56,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,26),40,97,49,49,49,52,32,100,105,114,51,49,48,32,95,51,49,50,32,101,120,116,51,49,52,41,0,0,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,114,101,112,108,97,99,101,45,102,105,108,101,32,112,110,32,102,105,108,101,41}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,7),40,97,49,49,50,54,41,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,27),40,97,49,49,51,50,32,100,105,114,51,50,53,32,102,105,108,101,51,50,55,32,95,51,50,57,41,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,114,101,112,108,97,99,101,45,101,120,116,101,110,115,105,111,110,32,112,110,32,101,120,116,41,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,15),40,97,100,100,112,97,114,116,32,112,97,114,116,115,41,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,6),40,112,100,115,63,41,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,8),40,103,51,56,48,32,112,41}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,55,57,32,103,51,56,54,41,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,105,32,112,114,101,118,32,112,97,114,116,115,41,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,110,111,114,109,97,108,105,122,101,45,112,97,116,104,110,97,109,101,32,112,97,116,104,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,115,112,108,105,116,45,100,105,114,101,99,116,111,114,121,32,108,111,99,32,100,105,114,32,107,101,101,112,63,41}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,100,105,114,101,99,116,111,114,121,45,110,117,108,108,63,32,100,105,114,41,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,100,101,99,111,109,112,111,115,101,45,100,105,114,101,99,116,111,114,121,32,100,105,114,41,0,0,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,97,98,115,111,108,117,116,101,45,112,97,116,104,110,97,109,101,45,114,111,111,116,32,112,110,41,0,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,114,111,111,116,45,111,114,105,103,105,110,32,114,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,114,111,111,116,45,100,105,114,101,99,116,111,114,121,32,114,116,41,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,97,98,115,111,108,117,116,101,45,112,97,116,104,110,97,109,101,45,114,111,111,116,32,112,110,41,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,114,111,111,116,45,111,114,105,103,105,110,32,114,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,114,111,111,116,45,100,105,114,101,99,116,111,114,121,32,114,116,41,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_1004) static void C_ccall f_1004(C_word c,C_word *av) C_noret; C_noret_decl(f_1010) static void C_ccall f_1010(C_word c,C_word *av) C_noret; C_noret_decl(f_1016) static void C_ccall f_1016(C_word c,C_word *av) C_noret; C_noret_decl(f_1019) static void C_ccall f_1019(C_word c,C_word *av) C_noret; C_noret_decl(f_1025) static void C_ccall f_1025(C_word c,C_word *av) C_noret; C_noret_decl(f_1031) static void C_ccall f_1031(C_word c,C_word *av) C_noret; C_noret_decl(f_1034) static void C_ccall f_1034(C_word c,C_word *av) C_noret; C_noret_decl(f_1040) static void C_ccall f_1040(C_word c,C_word *av) C_noret; C_noret_decl(f_1046) static void C_ccall f_1046(C_word c,C_word *av) C_noret; C_noret_decl(f_1049) static void C_ccall f_1049(C_word c,C_word *av) C_noret; C_noret_decl(f_1055) static void C_ccall f_1055(C_word c,C_word *av) C_noret; C_noret_decl(f_1061) static void C_ccall f_1061(C_word c,C_word *av) C_noret; C_noret_decl(f_1067) static void C_ccall f_1067(C_word c,C_word *av) C_noret; C_noret_decl(f_1073) static void C_ccall f_1073(C_word c,C_word *av) C_noret; C_noret_decl(f_1079) static void C_ccall f_1079(C_word c,C_word *av) C_noret; C_noret_decl(f_1085) static void C_ccall f_1085(C_word c,C_word *av) C_noret; C_noret_decl(f_1091) static void C_ccall f_1091(C_word c,C_word *av) C_noret; C_noret_decl(f_1097) static void C_ccall f_1097(C_word c,C_word *av) C_noret; C_noret_decl(f_1103) static void C_ccall f_1103(C_word c,C_word *av) C_noret; C_noret_decl(f_1109) static void C_ccall f_1109(C_word c,C_word *av) C_noret; C_noret_decl(f_1115) static void C_ccall f_1115(C_word c,C_word *av) C_noret; C_noret_decl(f_1121) static void C_ccall f_1121(C_word c,C_word *av) C_noret; C_noret_decl(f_1127) static void C_ccall f_1127(C_word c,C_word *av) C_noret; C_noret_decl(f_1133) static void C_ccall f_1133(C_word c,C_word *av) C_noret; C_noret_decl(f_1143) static C_word C_fcall f_1143(C_word *a,C_word t0,C_word t1); C_noret_decl(f_1181) static void C_ccall f_1181(C_word c,C_word *av) C_noret; C_noret_decl(f_1190) static C_word C_fcall f_1190(C_word t0,C_word t1); C_noret_decl(f_1213) static void C_fcall f_1213(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1223) static void C_fcall f_1223(C_word t0,C_word t1) C_noret; C_noret_decl(f_1247) static void C_ccall f_1247(C_word c,C_word *av) C_noret; C_noret_decl(f_1250) static void C_ccall f_1250(C_word c,C_word *av) C_noret; C_noret_decl(f_1253) static void C_ccall f_1253(C_word c,C_word *av) C_noret; C_noret_decl(f_1254) static void C_fcall f_1254(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1258) static void C_ccall f_1258(C_word c,C_word *av) C_noret; C_noret_decl(f_1268) static void C_ccall f_1268(C_word c,C_word *av) C_noret; C_noret_decl(f_1271) static void C_ccall f_1271(C_word c,C_word *av) C_noret; C_noret_decl(f_1274) static void C_ccall f_1274(C_word c,C_word *av) C_noret; C_noret_decl(f_1277) static void C_fcall f_1277(C_word t0,C_word t1) C_noret; C_noret_decl(f_1284) static void C_ccall f_1284(C_word c,C_word *av) C_noret; C_noret_decl(f_1291) static void C_ccall f_1291(C_word c,C_word *av) C_noret; C_noret_decl(f_1303) static void C_fcall f_1303(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1313) static void C_ccall f_1313(C_word c,C_word *av) C_noret; C_noret_decl(f_1339) static void C_ccall f_1339(C_word c,C_word *av) C_noret; C_noret_decl(f_1348) static void C_fcall f_1348(C_word t0,C_word t1) C_noret; C_noret_decl(f_1384) static void C_ccall f_1384(C_word c,C_word *av) C_noret; C_noret_decl(f_1400) static void C_fcall f_1400(C_word t0,C_word t1) C_noret; C_noret_decl(f_1404) static void C_ccall f_1404(C_word c,C_word *av) C_noret; C_noret_decl(f_1454) static void C_fcall f_1454(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1467) static void C_ccall f_1467(C_word c,C_word *av) C_noret; C_noret_decl(f_1475) static void C_ccall f_1475(C_word c,C_word *av) C_noret; C_noret_decl(f_1477) static C_word C_fcall f_1477(C_word t0); C_noret_decl(f_1507) static void C_ccall f_1507(C_word c,C_word *av) C_noret; C_noret_decl(f_1546) static void C_ccall f_1546(C_word c,C_word *av) C_noret; C_noret_decl(f_1554) static void C_ccall f_1554(C_word c,C_word *av) C_noret; C_noret_decl(f_1557) static void C_ccall f_1557(C_word c,C_word *av) C_noret; C_noret_decl(f_1560) static void C_ccall f_1560(C_word c,C_word *av) C_noret; C_noret_decl(f_1567) static void C_ccall f_1567(C_word c,C_word *av) C_noret; C_noret_decl(f_1571) static void C_ccall f_1571(C_word c,C_word *av) C_noret; C_noret_decl(f_1589) static void C_ccall f_1589(C_word c,C_word *av) C_noret; C_noret_decl(f_1592) static void C_ccall f_1592(C_word c,C_word *av) C_noret; C_noret_decl(f_1594) static void C_ccall f_1594(C_word c,C_word *av) C_noret; C_noret_decl(f_1600) static void C_ccall f_1600(C_word c,C_word *av) C_noret; C_noret_decl(f_1609) static void C_ccall f_1609(C_word c,C_word *av) C_noret; C_noret_decl(f_1619) static void C_ccall f_1619(C_word c,C_word *av) C_noret; C_noret_decl(f_1621) static void C_ccall f_1621(C_word c,C_word *av) C_noret; C_noret_decl(f_1627) static void C_ccall f_1627(C_word c,C_word *av) C_noret; C_noret_decl(f_1630) static void C_ccall f_1630(C_word c,C_word *av) C_noret; C_noret_decl(f_587) static void C_ccall f_587(C_word c,C_word *av) C_noret; C_noret_decl(f_590) static void C_ccall f_590(C_word c,C_word *av) C_noret; C_noret_decl(f_593) static void C_ccall f_593(C_word c,C_word *av) C_noret; C_noret_decl(f_599) static void C_fcall f_599(C_word t0,C_word t1) C_noret; C_noret_decl(f_601) static void C_ccall f_601(C_word c,C_word *av) C_noret; C_noret_decl(f_612) static void C_ccall f_612(C_word c,C_word *av) C_noret; C_noret_decl(f_614) static void C_fcall f_614(C_word t0,C_word t1) C_noret; C_noret_decl(f_627) static void C_fcall f_627(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_634) static void C_fcall f_634(C_word t0,C_word t1) C_noret; C_noret_decl(f_682) static void C_fcall f_682(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_691) static void C_fcall f_691(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_719) static void C_ccall f_719(C_word c,C_word *av) C_noret; C_noret_decl(f_723) static void C_ccall f_723(C_word c,C_word *av) C_noret; C_noret_decl(f_733) static void C_fcall f_733(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_764) static void C_fcall f_764(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_787) static void C_ccall f_787(C_word c,C_word *av) C_noret; C_noret_decl(f_794) static void C_fcall f_794(C_word t0,C_word t1) C_noret; C_noret_decl(f_812) static void C_fcall f_812(C_word t0,C_word t1) C_noret; C_noret_decl(f_852) static void C_ccall f_852(C_word c,C_word *av) C_noret; C_noret_decl(f_863) static void C_ccall f_863(C_word c,C_word *av) C_noret; C_noret_decl(f_871) static void C_ccall f_871(C_word c,C_word *av) C_noret; C_noret_decl(f_882) static void C_ccall f_882(C_word c,C_word *av) C_noret; C_noret_decl(f_885) static void C_ccall f_885(C_word c,C_word *av) C_noret; C_noret_decl(f_888) static void C_ccall f_888(C_word c,C_word *av) C_noret; C_noret_decl(f_907) static void C_ccall f_907(C_word c,C_word *av) C_noret; C_noret_decl(f_910) static void C_ccall f_910(C_word c,C_word *av) C_noret; C_noret_decl(f_911) static void C_fcall f_911(C_word t0,C_word t1) C_noret; C_noret_decl(f_918) static void C_ccall f_918(C_word c,C_word *av) C_noret; C_noret_decl(f_932) static void C_ccall f_932(C_word c,C_word *av) C_noret; C_noret_decl(f_948) static void C_ccall f_948(C_word c,C_word *av) C_noret; C_noret_decl(f_958) static void C_ccall f_958(C_word c,C_word *av) C_noret; C_noret_decl(f_962) static void C_ccall f_962(C_word c,C_word *av) C_noret; C_noret_decl(f_966) static void C_ccall f_966(C_word c,C_word *av) C_noret; C_noret_decl(f_970) static void C_ccall f_970(C_word c,C_word *av) C_noret; C_noret_decl(f_973) static void C_ccall f_973(C_word c,C_word *av) C_noret; C_noret_decl(f_983) static void C_ccall f_983(C_word c,C_word *av) C_noret; C_noret_decl(f_987) static void C_ccall f_987(C_word c,C_word *av) C_noret; C_noret_decl(f_991) static void C_ccall f_991(C_word c,C_word *av) C_noret; C_noret_decl(f_998) static void C_ccall f_998(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externexport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1213) static void C_ccall trf_1213(C_word c,C_word *av) C_noret; static void C_ccall trf_1213(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1213(t0,t1,t2,t3,t4);} C_noret_decl(trf_1223) static void C_ccall trf_1223(C_word c,C_word *av) C_noret; static void C_ccall trf_1223(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1223(t0,t1);} C_noret_decl(trf_1254) static void C_ccall trf_1254(C_word c,C_word *av) C_noret; static void C_ccall trf_1254(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1254(t0,t1,t2);} C_noret_decl(trf_1277) static void C_ccall trf_1277(C_word c,C_word *av) C_noret; static void C_ccall trf_1277(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1277(t0,t1);} C_noret_decl(trf_1303) static void C_ccall trf_1303(C_word c,C_word *av) C_noret; static void C_ccall trf_1303(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1303(t0,t1,t2);} C_noret_decl(trf_1348) static void C_ccall trf_1348(C_word c,C_word *av) C_noret; static void C_ccall trf_1348(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1348(t0,t1);} C_noret_decl(trf_1400) static void C_ccall trf_1400(C_word c,C_word *av) C_noret; static void C_ccall trf_1400(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1400(t0,t1);} C_noret_decl(trf_1454) static void C_ccall trf_1454(C_word c,C_word *av) C_noret; static void C_ccall trf_1454(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1454(t0,t1,t2,t3);} C_noret_decl(trf_599) static void C_ccall trf_599(C_word c,C_word *av) C_noret; static void C_ccall trf_599(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_599(t0,t1);} C_noret_decl(trf_614) static void C_ccall trf_614(C_word c,C_word *av) C_noret; static void C_ccall trf_614(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_614(t0,t1);} C_noret_decl(trf_627) static void C_ccall trf_627(C_word c,C_word *av) C_noret; static void C_ccall trf_627(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_627(t0,t1,t2);} C_noret_decl(trf_634) static void C_ccall trf_634(C_word c,C_word *av) C_noret; static void C_ccall trf_634(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_634(t0,t1);} C_noret_decl(trf_682) static void C_ccall trf_682(C_word c,C_word *av) C_noret; static void C_ccall trf_682(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_682(t0,t1,t2);} C_noret_decl(trf_691) static void C_ccall trf_691(C_word c,C_word *av) C_noret; static void C_ccall trf_691(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_691(t0,t1,t2);} C_noret_decl(trf_733) static void C_ccall trf_733(C_word c,C_word *av) C_noret; static void C_ccall trf_733(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_733(t0,t1,t2);} C_noret_decl(trf_764) static void C_ccall trf_764(C_word c,C_word *av) C_noret; static void C_ccall trf_764(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_764(t0,t1,t2,t3,t4);} C_noret_decl(trf_794) static void C_ccall trf_794(C_word c,C_word *av) C_noret; static void C_ccall trf_794(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_794(t0,t1);} C_noret_decl(trf_812) static void C_ccall trf_812(C_word c,C_word *av) C_noret; static void C_ccall trf_812(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_812(t0,t1);} C_noret_decl(trf_911) static void C_ccall trf_911(C_word c,C_word *av) C_noret; static void C_ccall trf_911(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_911(t0,t1);} /* chicken.pathname#pathname-directory in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_1004,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1010,a[2]=t2,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1016,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp); /* pathname.scm:191: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a1009 in chicken.pathname#pathname-directory in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1010,2,av);} /* pathname.scm:191: decompose-pathname */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1015 in chicken.pathname#pathname-directory in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1016,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.pathname#pathname-file in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_1019,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1025,a[2]=t2,a[3]=((C_word)li14),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1031,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp); /* pathname.scm:196: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a1024 in chicken.pathname#pathname-file in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1025,2,av);} /* pathname.scm:196: decompose-pathname */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1030 in chicken.pathname#pathname-file in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1031,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.pathname#pathname-extension in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_1034,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1040,a[2]=t2,a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1046,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp); /* pathname.scm:201: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a1039 in chicken.pathname#pathname-extension in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1040,2,av);} /* pathname.scm:201: decompose-pathname */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1045 in chicken.pathname#pathname-extension in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1046,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.pathname#pathname-strip-directory in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_1049,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1055,a[2]=t2,a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1061,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp); /* pathname.scm:206: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a1054 in chicken.pathname#pathname-strip-directory in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1055,2,av);} /* pathname.scm:206: decompose-pathname */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1060 in chicken.pathname#pathname-strip-directory in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1061,5,av);} /* pathname.scm:207: make-pathname */ t5=*((C_word*)lf[12]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=t3; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* chicken.pathname#pathname-strip-extension in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_1067,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1073,a[2]=t2,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1079,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp); /* pathname.scm:211: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a1072 in chicken.pathname#pathname-strip-extension in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1073,2,av);} /* pathname.scm:211: decompose-pathname */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1078 in chicken.pathname#pathname-strip-extension in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1079,5,av);} /* pathname.scm:212: make-pathname */ t5=*((C_word*)lf[12]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* chicken.pathname#pathname-replace-directory in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_1085,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1091,a[2]=t2,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1097,a[2]=t3,a[3]=((C_word)li27),tmp=(C_word)a,a+=4,tmp); /* pathname.scm:216: ##sys#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a1090 in chicken.pathname#pathname-replace-directory in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1091,2,av);} /* pathname.scm:216: decompose-pathname */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1096 in chicken.pathname#pathname-replace-directory in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1097,5,av);} /* pathname.scm:217: make-pathname */ t5=*((C_word*)lf[12]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t3; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* chicken.pathname#pathname-replace-file in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_1103,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1109,a[2]=t2,a[3]=((C_word)li29),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1115,a[2]=t3,a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp); /* pathname.scm:221: ##sys#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a1108 in chicken.pathname#pathname-replace-file in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1109,2,av);} /* pathname.scm:221: decompose-pathname */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1114 in chicken.pathname#pathname-replace-file in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1115,5,av);} /* pathname.scm:222: make-pathname */ t5=*((C_word*)lf[12]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* chicken.pathname#pathname-replace-extension in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_1121,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1127,a[2]=t2,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1133,a[2]=t3,a[3]=((C_word)li33),tmp=(C_word)a,a+=4,tmp); /* pathname.scm:226: ##sys#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a1126 in chicken.pathname#pathname-replace-extension in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1127,2,av);} /* pathname.scm:226: decompose-pathname */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1132 in chicken.pathname#pathname-replace-extension in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1133,5,av);} /* pathname.scm:227: make-pathname */ t5=*((C_word*)lf[12]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* addpart in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static C_word C_fcall f_1143(C_word *a,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check;{} if(C_truep(C_i_string_equal_p(lf[46],t1))){ t3=t2; return(t3);} else{ t3=t1; if(C_truep(C_u_i_string_equal_p(lf[47],t3))){ t4=C_i_nullp(t2); if(C_truep(t4)){ return((C_truep(t4)?C_a_i_cons(&a,2,t1,t2):C_i_cdr(t2)));} else{ t5=C_i_car(t2); t6=C_i_string_equal_p(lf[48],t5); return((C_truep(t6)?C_a_i_cons(&a,2,t1,t2):C_i_cdr(t2)));}} else{ return(C_a_i_cons(&a,2,t1,t2));}}} /* chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +22,c,5)))){ C_save_and_reclaim((void*)f_1181,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+22); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; t4=C_i_nullp(t3); t5=(C_truep(t4)?((C_word*)t0)[2]:C_i_car(t3)); t6=t5; t7=C_eqp(t6,lf[44]); t8=(C_truep(t7)?C_make_character(92):C_make_character(47)); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1190,a[2]=t6,a[3]=((C_word)li36),tmp=(C_word)a,a+=4,tmp); t11=C_i_check_string_2(t2,lf[51]); t12=C_block_size(t2); t13=t12; t14=C_SCHEME_FALSE; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_FALSE; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1213,a[2]=t13,a[3]=t15,a[4]=t9,a[5]=t17,a[6]=((C_word*)t0)[3],a[7]=t2,a[8]=t10,a[9]=t19,a[10]=t6,a[11]=((C_word)li39),tmp=(C_word)a,a+=12,tmp)); t21=((C_word*)t19)[1]; f_1213(t21,t1,C_fix(0),C_fix(0),C_SCHEME_END_OF_LIST);} /* pds? in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static C_word C_fcall f_1190(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check;{} t2=C_eqp(((C_word*)t0)[2],lf[44]); if(C_truep(t2)){ t3=t1; t4=C_u_i_memq(t3,lf[50]); return(t4);} else{ return(C_eqp(t1,C_make_character(47)));}} /* loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_fcall f_1213(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){ C_save_and_reclaim_args((void *)trf_1213,5,t0,t1,t2,t3,t4);} a=C_alloc(16); t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1223,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); if(C_truep(C_fixnum_greaterp(t2,t3))){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1339,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* pathname.scm:254: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t7; av2[2]=((C_word*)t0)[7]; av2[3]=t3; av2[4]=t2; tp(5,av2);}} else{ t7=t6; f_1223(t7,C_SCHEME_UNDEFINED);}} else{ t6=C_i_string_ref(((C_word*)t0)[7],t2); t7=( /* pathname.scm:273: pds? */ f_1190(((C_word*)t0)[8],t6) ); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1348,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[9],a[5]=t1,a[6]=t5,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_not(((C_word*)((C_word*)t0)[3])[1]))){ t9=C_eqp(t2,t3); if(C_truep(t9)){ t10=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[52]); t11=t8; f_1348(t11,t10);} else{ t10=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[60]); t11=t8; f_1348(t11,t10);}} else{ t9=t8; f_1348(t9,C_SCHEME_UNDEFINED);}} else{ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1400,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[9],a[5]=t1,a[6]=((C_word*)t0)[7],a[7]=t3,a[8]=t5,tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_nullp(((C_word*)t5)[1]))){ t9=((C_word*)t0)[7]; t10=t2; t11=C_i_string_ref(t9,t10); t12=t8; f_1400(t12,(C_truep(C_u_i_char_equalp(t11,C_make_character(58)))?C_eqp(((C_word*)t0)[10],lf[44]):C_SCHEME_FALSE));} else{ t9=t8; f_1400(t9,C_SCHEME_FALSE);}}}} /* k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_fcall f_1223(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_1223,2,t0,t1);} a=C_alloc(9); if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[2])[1]))){ t2=C_eqp(((C_word*)((C_word*)t0)[3])[1],lf[52]); if(C_truep(t2)){ t3=C_a_i_string(&a,1,((C_word*)t0)[4]); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* pathname.scm:257: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[26]+1); av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=t3; tp(4,av2);}} else{ t4=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t3=lf[53]; if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* pathname.scm:257: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[26]+1); av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=t3; tp(4,av2);}} else{ t4=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1247,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); /* pathname.scm:258: chicken.base#open-output-string */ t3=*((C_word*)lf[59]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_1247,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1250,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* pathname.scm:259: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[58]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[58]+1); av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[8])[1]; tp(3,av2);}} /* k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1250,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1253,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_i_car(t2); /* pathname.scm:260: scheme#display */ t5=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k1251 in k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_1253,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1254,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li37),tmp=(C_word)a,a+=5,tmp); t3=C_u_i_cdr(((C_word*)t0)[4]); t4=C_i_check_list_2(t3,lf[56]); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1268,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1303,a[2]=t7,a[3]=t2,a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_1303(t9,t5,t3);} /* g380 in k1251 in k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_fcall f_1254(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_1254,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1258,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* pathname.scm:263: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[55]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[55]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* k1256 in g380 in k1251 in k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1258,2,av);} /* pathname.scm:264: scheme#display */ t2=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1266 in k1251 in k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_1268,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1271,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_eqp(((C_word*)t0)[7],((C_word*)t0)[8]); if(C_truep(t3)){ /* pathname.scm:266: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[55]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[55]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; tp(4,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_1271(2,av2);}}} /* k1269 in k1266 in k1251 in k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1271,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1274,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* pathname.scm:267: chicken.base#get-output-string */ t3=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1272 in k1269 in k1266 in k1251 in k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1274(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_1274,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1277,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=C_eqp(((C_word*)((C_word*)t0)[4])[1],lf[52]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1291,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t7=C_a_i_string(&a,1,((C_word*)t0)[5]); /* pathname.scm:269: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[26]+1); av2[1]=t6; av2[2]=t7; av2[3]=((C_word*)t3)[1]; tp(4,av2);}} else{ t6=t4; f_1277(t6,C_SCHEME_UNDEFINED);}} /* k1275 in k1272 in k1269 in k1266 in k1251 in k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_fcall f_1277(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_1277,2,t0,t1);} a=C_alloc(4); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1284,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* pathname.scm:271: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[26]+1); av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; tp(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1282 in k1275 in k1272 in k1269 in k1266 in k1251 in k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1284,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1289 in k1272 in k1269 in k1266 in k1251 in k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1291,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_1277(t3,t2);} /* for-each-loop379 in k1251 in k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_fcall f_1303(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1303,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1313,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* pathname.scm:261: g380 */ t5=((C_word*)t0)[3]; f_1254(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1311 in for-each-loop379 in k1251 in k1248 in k1245 in k1221 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1313,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1303(t3,((C_word*)t0)[4],t2);} /* k1337 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_1339,2,av);} a=C_alloc(9); t2=( /* pathname.scm:254: addpart */ f_1143(C_a_i(&a,9),t1,((C_word*)((C_word*)t0)[3])[1]) ); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4]; f_1223(t4,t3);} /* k1346 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_fcall f_1348(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_1348,2,t0,t1);} a=C_alloc(8); t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(t2)){ t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* pathname.scm:277: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_1213(t5,((C_word*)t0)[5],t3,t4,((C_word*)((C_word*)t0)[6])[1]);} else{ t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t4=t3; t5=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t6=t5; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1384,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* pathname.scm:280: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t7; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[2]; tp(5,av2);}}} /* k1382 in k1346 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_1384,2,av);} a=C_alloc(9); t2=( /* pathname.scm:280: addpart */ f_1143(C_a_i(&a,9),t1,((C_word*)((C_word*)t0)[3])[1]) ); /* pathname.scm:278: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_1213(t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2);} /* k1398 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_fcall f_1400(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_1400,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1404,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* pathname.scm:284: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_fix(0); av2[4]=t3; tp(5,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* pathname.scm:286: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_1213(t3,((C_word*)t0)[5],t2,((C_word*)t0)[7],((C_word*)((C_word*)t0)[8])[1]);}} /* k1402 in k1398 in loop in chicken.pathname#normalize-pathname in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1404,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* pathname.scm:285: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_1213(t5,((C_word*)t0)[5],t3,t4,C_SCHEME_END_OF_LIST);} /* chicken.pathname#split-directory in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_fcall f_1454(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_1454,4,t1,t2,t3,t4);} t5=C_i_check_string_2(t3,t2); if(C_truep(*((C_word*)lf[10]+1))){ /* pathname.scm:294: chicken.string#string-split */ t6=*((C_word*)lf[62]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=lf[63]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* pathname.scm:294: chicken.string#string-split */ t6=*((C_word*)lf[62]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=lf[64]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* chicken.pathname#directory-null? in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_1467,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1475,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_listp(t2))){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; f_1475(2,av2);}} else{ /* pathname.scm:300: split-directory */ f_1454(t3,lf[68],t2,C_SCHEME_TRUE);}} /* k1473 in chicken.pathname#directory-null? in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1475,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1477,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=( f_1477(t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k1473 in chicken.pathname#directory-null? in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static C_word C_fcall f_1477(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} t2=C_i_nullp(t1); if(C_truep(t2)){ return(t2);} else{ t3=C_i_car(t1); if(C_truep((C_truep(C_i_equalp(t3,lf[66]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t3,lf[67]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t4=t1; t5=C_u_i_cdr(t4); t7=t5; t1=t7; goto loop;} else{ return(C_SCHEME_FALSE);}}} /* chicken.pathname#decompose-directory in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_1507,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1554,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* pathname.scm:326: split-directory */ f_1454(t3,lf[70],t2,C_SCHEME_FALSE);} /* k1544 in k1565 in k1558 in k1555 in k1552 in chicken.pathname#decompose-directory in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1546,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1552 in chicken.pathname#decompose-directory in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1554,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1557,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* pathname.scm:327: absolute-pathname-root */ {C_proc tp=(C_proc)C_fast_retrieve_proc(lf[2]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=lf[2]; av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k1555 in k1552 in chicken.pathname#decompose-directory in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1557,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1560,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* pathname.scm:328: root-origin */ {C_proc tp=(C_proc)C_fast_retrieve_proc(lf[3]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=lf[3]; av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k1558 in k1555 in k1552 in chicken.pathname#decompose-directory in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1560,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1567,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* pathname.scm:329: root-directory */ {C_proc tp=(C_proc)C_fast_retrieve_proc(lf[4]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=lf[4]; av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k1565 in k1558 in k1555 in k1552 in chicken.pathname#decompose-directory in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_1567,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1571,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_i_nullp(((C_word*)t0)[4]); t5=C_i_not(t4); t6=(C_truep(t5)?((C_word*)t0)[4]:C_SCHEME_FALSE); t7=t3; if(C_truep(C_i_not(((C_word*)t0)[3]))){ t8=t7;{ C_word *av2=av; av2[0]=t8; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_i_car(t6); t9=C_block_size(((C_word*)t0)[3]); t10=C_substring_compare(((C_word*)t0)[3],t8,C_fix(0),C_fix(0),t9); if(C_truep(C_i_not(t10))){ t11=t7;{ C_word *av2=av; av2[0]=t11; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_u_i_cdr(t6); t12=C_block_size(t8); t13=C_block_size(t12); t14=C_eqp(t9,t13); if(C_truep(t14)){ t15=t7;{ C_word *av2=av; av2[0]=t15; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1546,a[2]=t7,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* pathname.scm:325: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[9]+1); av2[1]=t15; av2[2]=t8; av2[3]=t9; av2[4]=t12; tp(5,av2);}}}}} /* k1569 in k1565 in k1558 in k1555 in k1552 in chicken.pathname#decompose-directory in k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1571,2,av);} /* pathname.scm:329: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; C_values(5,av2);}} /* k1587 in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_1589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ C_save_and_reclaim((void *)f_1589,2,av);} a=C_alloc(17); t2=C_eqp(t1,lf[43]); t3=(C_truep(t2)?lf[44]:lf[45]); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1143,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp); t6=C_mutate((C_word*)lf[49]+1 /* (set! chicken.pathname#normalize-pathname ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1181,a[2]=t4,a[3]=t5,a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp)); t7=C_mutate(&lf[61] /* (set! chicken.pathname#split-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1454,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[65]+1 /* (set! chicken.pathname#directory-null? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1467,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[69]+1 /* (set! chicken.pathname#decompose-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1507,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t10=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k1590 in k591 in k588 in k585 */ static void C_ccall f_1592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1592,2,av);} a=C_alloc(10); t2=t1; t3=C_mutate(&lf[2] /* (set! chicken.pathname#absolute-pathname-root ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1594,a[2]=t2,a[3]=((C_word)li45),tmp=(C_word)a,a+=4,tmp)); t4=C_mutate(&lf[3] /* (set! chicken.pathname#root-origin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1600,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate(&lf[4] /* (set! chicken.pathname#root-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1609,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t0)[2]; f_599(t6,t5);} /* chicken.pathname#absolute-pathname-root in k1590 in k591 in k588 in k585 */ static void C_ccall f_1594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1594,3,av);} /* pathname.scm:72: chicken.irregex#irregex-match */ t3=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.pathname#root-origin in k1590 in k591 in k588 in k585 */ static void C_ccall f_1600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1600,3,av);} if(C_truep(t2)){ /* pathname.scm:73: chicken.irregex#irregex-match-substring */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.pathname#root-directory in k1590 in k591 in k588 in k585 */ static void C_ccall f_1609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1609,3,av);} if(C_truep(t2)){ /* pathname.scm:74: chicken.irregex#irregex-match-substring */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(2); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1617 in k591 in k588 in k585 */ static void C_ccall f_1619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1619,2,av);} a=C_alloc(10); t2=t1; t3=C_mutate(&lf[2] /* (set! chicken.pathname#absolute-pathname-root ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1621,a[2]=t2,a[3]=((C_word)li48),tmp=(C_word)a,a+=4,tmp)); t4=C_mutate(&lf[3] /* (set! chicken.pathname#root-origin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1627,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate(&lf[4] /* (set! chicken.pathname#root-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1630,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t0)[2]; f_599(t6,t5);} /* chicken.pathname#absolute-pathname-root in k1617 in k591 in k588 in k585 */ static void C_ccall f_1621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1621,3,av);} /* pathname.scm:76: chicken.irregex#irregex-match */ t3=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.pathname#root-origin in k1617 in k591 in k588 in k585 */ static void C_ccall f_1627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1627,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.pathname#root-directory in k1617 in k591 in k588 in k585 */ static void C_ccall f_1630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1630,3,av);} if(C_truep(t2)){ /* pathname.scm:78: chicken.irregex#irregex-match-substring */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k585 */ static void C_ccall f_587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_587,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_590,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k588 in k585 */ static void C_ccall f_590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_590,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_593,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k591 in k588 in k585 */ static void C_ccall f_593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_593,2,av);} a=C_alloc(22); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=lf[2] /* chicken.pathname#absolute-pathname-root */ =C_SCHEME_UNDEFINED;; t5=lf[3] /* chicken.pathname#root-origin */ =C_SCHEME_UNDEFINED;; t6=lf[4] /* chicken.pathname#root-directory */ =C_SCHEME_UNDEFINED;; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_599,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[10]+1))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1592,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* pathname.scm:71: chicken.irregex#irregex */ t9=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=lf[74]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1619,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* pathname.scm:75: chicken.irregex#irregex */ t9=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=lf[75]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k597 in k591 in k588 in k585 */ static void C_fcall f_599(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,0,6)))){ C_save_and_reclaim_args((void *)trf_599,2,t0,t1);} a=C_alloc(38); t2=C_mutate((C_word*)lf[5]+1 /* (set! chicken.pathname#absolute-pathname? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_601,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate(&lf[8] /* (set! chicken.pathname#chop-pds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_614,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t4=C_set_block_item(lf[12] /* chicken.pathname#make-pathname */,0,C_SCHEME_UNDEFINED); t5=C_set_block_item(lf[13] /* chicken.pathname#make-absolute-pathname */,0,C_SCHEME_UNDEFINED); t6=(C_truep(*((C_word*)lf[10]+1))?lf[14]:lf[15]); t7=t6; t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_682,a[2]=t7,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp)); t15=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_733,a[2]=t9,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp)); t16=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_764,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[12]+1 /* (set! chicken.pathname#make-pathname ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_852,a[2]=t13,a[3]=t11,a[4]=((C_word)li7),tmp=(C_word)a,a+=5,tmp)); t18=C_mutate((C_word*)lf[13]+1 /* (set! chicken.pathname#make-absolute-pathname ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_871,a[2]=t13,a[3]=t7,a[4]=t11,a[5]=((C_word)li8),tmp=(C_word)a,a+=6,tmp)); t19=(C_truep(*((C_word*)lf[10]+1))?lf[27]:lf[28]); t20=(C_truep(*((C_word*)lf[10]+1))?lf[29]:lf[30]); t21=t20; t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_907,a[2]=((C_word*)t0)[2],a[3]=t21,tmp=(C_word)a,a+=4,tmp); /* pathname.scm:162: chicken.irregex#irregex */ t23=*((C_word*)lf[72]+1);{ C_word av2[3]; av2[0]=t23; av2[1]=t22; av2[2]=t19; ((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}} /* chicken.pathname#absolute-pathname? in k597 in k591 in k588 in k585 */ static void C_ccall f_601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_601,3,av);} a=C_alloc(3); t3=C_i_check_string_2(t2,lf[6]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_612,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* pathname.scm:82: absolute-pathname-root */ {C_proc tp=(C_proc)C_fast_retrieve_proc(lf[2]); C_word *av2=av; av2[0]=lf[2]; av2[1]=t4; av2[2]=t2; tp(3,av2);}} /* k610 in chicken.pathname#absolute-pathname? in k597 in k591 in k588 in k585 */ static void C_ccall f_612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_612,2,av);} /* pathname.scm:82: chicken.irregex#irregex-match-data? */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.pathname#chop-pds in k597 in k591 in k588 in k585 */ static void C_fcall f_614(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_614,2,t1,t2);} a=C_alloc(7); if(C_truep(t2)){ t3=C_block_size(t2); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_627,a[2]=t5,a[3]=t2,a[4]=((C_word)li1),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_627(t7,t1,t3);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* lp in chicken.pathname#chop-pds in k597 in k591 in k588 in k585 */ static void C_fcall f_627(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_627,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_634,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_greater_or_equal_p(t2,C_fix(1)))){ t4=C_fixnum_difference(t2,C_fix(1)); t5=C_subchar(((C_word*)t0)[3],t4); if(C_truep(*((C_word*)lf[10]+1))){ t6=C_u_i_memq(t5,lf[11]); t7=t3; f_634(t7,t6);} else{ t6=t3; f_634(t6,C_eqp(C_make_character(47),t5));}} else{ t4=t3; f_634(t4,C_SCHEME_FALSE);}} /* k632 in lp in chicken.pathname#chop-pds in k597 in k591 in k588 in k585 */ static void C_fcall f_634(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_634,2,t0,t1);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* pathname.scm:94: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_627(t3,((C_word*)t0)[4],t2);} else{ t2=C_block_size(((C_word*)t0)[5]); if(C_truep(C_fixnum_lessp(((C_word*)t0)[2],t2))){ /* pathname.scm:96: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[2]; tp(5,av2);}} else{ t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* conc-dirs in k597 in k591 in k588 in k585 */ static void C_fcall f_682(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_682,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_check_list_2(t2,lf[16]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_691,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li3),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_691(t7,t1,t2);} /* loop in conc-dirs in k597 in k591 in k588 in k585 */ static void C_fcall f_691(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_691,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=lf[17]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=C_i_string_length(t3); t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ t6=t2; t7=C_u_i_cdr(t6); /* pathname.scm:111: loop */ t10=t1; t11=t7; t1=t10; t2=t11; goto loop;} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_719,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t7=t2; t8=C_u_i_car(t7); /* pathname.scm:113: chop-pds */ f_614(t6,t8);}}} /* k717 in loop in conc-dirs in k597 in k591 in k588 in k585 */ static void C_ccall f_719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_719,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_723,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); /* pathname.scm:115: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_691(t6,t3,t5);} /* k721 in k717 in loop in conc-dirs in k597 in k591 in k588 in k585 */ static void C_ccall f_723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_723,2,av);} /* pathname.scm:112: scheme#string-append */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* canonicalize-dirs in k597 in k591 in k588 in k585 */ static void C_fcall f_733(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_733,3,t0,t1,t2);} a=C_alloc(3); t3=C_i_not(t2); t4=(C_truep(t3)?t3:C_i_nullp(t2)); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=lf[19]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_stringp(t2))){ t5=C_a_i_list1(&a,1,t2); /* pathname.scm:119: conc-dirs */ t6=((C_word*)((C_word*)t0)[2])[1]; f_682(t6,t1,t5);} else{ /* pathname.scm:120: conc-dirs */ t5=((C_word*)((C_word*)t0)[2])[1]; f_682(t5,t1,t2);}}} /* _make-pathname in k597 in k591 in k588 in k585 */ static void C_fcall f_764(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_764,5,t1,t2,t3,t4,t5);} a=C_alloc(9); t6=(C_truep(t5)?t5:lf[20]); t7=t6; t8=(C_truep(t4)?t4:lf[21]); t9=t8; t10=C_i_check_string_2(t3,t2); t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_787,a[2]=t1,a[3]=t3,a[4]=t7,tmp=(C_word)a,a+=5,tmp); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_812,a[2]=t9,a[3]=t13,tmp=(C_word)a,a+=4,tmp); t15=C_block_size(t3); if(C_truep(C_fixnum_greater_or_equal_p(t15,C_fix(1)))){ t16=C_block_size(t9); if(C_truep(C_fixnum_greater_or_equal_p(t16,C_fix(1)))){ t17=C_subchar(t9,C_fix(0)); if(C_truep(*((C_word*)lf[10]+1))){ t18=C_u_i_memq(t17,lf[24]); t19=t14; f_812(t19,t18);} else{ t18=t14; f_812(t18,C_eqp(C_make_character(47),t17));}} else{ t17=t14; f_812(t17,C_SCHEME_FALSE);}} else{ t16=t14; f_812(t16,C_SCHEME_FALSE);}} /* k785 in _make-pathname in k597 in k591 in k588 in k585 */ static void C_ccall f_787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_787,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_794,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=C_block_size(((C_word*)t0)[4]); if(C_truep(C_fixnum_greaterp(t4,C_fix(0)))){ t5=C_subchar(((C_word*)t0)[4],C_fix(0)); t6=C_i_char_equalp(t5,C_make_character(46)); t7=t3; f_794(t7,C_i_not(t6));} else{ t5=t3; f_794(t5,C_SCHEME_FALSE);}} /* k792 in k785 in _make-pathname in k597 in k591 in k588 in k585 */ static void C_fcall f_794(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_794,2,t0,t1);} if(C_truep(t1)){ /* pathname.scm:128: scheme#string-append */ t2=*((C_word*)lf[18]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[22]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ /* pathname.scm:128: scheme#string-append */ t2=*((C_word*)lf[18]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[23]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k810 in _make-pathname in k597 in k591 in k588 in k585 */ static void C_fcall f_812(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_812,2,t0,t1);} if(C_truep(t1)){ t2=C_block_size(((C_word*)t0)[2]); /* pathname.scm:133: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(1); av2[4]=t2; tp(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; f_787(2,av2);}}} /* chicken.pathname#make-pathname in k597 in k591 in k588 in k585 */ static void C_ccall f_852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_852,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_863,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* pathname.scm:143: canonicalize-dirs */ t9=((C_word*)((C_word*)t0)[3])[1]; f_733(t9,t8,t2);} /* k861 in chicken.pathname#make-pathname in k597 in k591 in k588 in k585 */ static void C_ccall f_863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_863,2,av);} /* pathname.scm:143: _make-pathname */ f_764(((C_word*)t0)[3],lf[16],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* chicken.pathname#make-absolute-pathname in k597 in k591 in k588 in k585 */ static void C_ccall f_871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +7,c,2)))){ C_save_and_reclaim((void*)f_871,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+7); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_882,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t7,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* pathname.scm:149: canonicalize-dirs */ t9=((C_word*)((C_word*)t0)[4])[1]; f_733(t9,t8,t2);} /* k880 in chicken.pathname#make-absolute-pathname in k597 in k591 in k588 in k585 */ static void C_ccall f_882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_882,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_885,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_888,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); /* pathname.scm:150: absolute-pathname? */ t5=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k883 in k880 in chicken.pathname#make-absolute-pathname in k597 in k591 in k588 in k585 */ static void C_ccall f_885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_885,2,av);} /* pathname.scm:147: _make-pathname */ f_764(((C_word*)t0)[3],lf[25],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k886 in k880 in chicken.pathname#make-absolute-pathname in k597 in k591 in k588 in k585 */ static void C_ccall f_888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_888,2,av);} if(C_truep(t1)){ /* pathname.scm:147: _make-pathname */ f_764(((C_word*)t0)[3],lf[25],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} else{ /* pathname.scm:152: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[26]+1); av2[1]=((C_word*)t0)[7]; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}}} /* k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_907,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_910,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* pathname.scm:163: chicken.irregex#irregex */ t4=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,4)))){ C_save_and_reclaim((void *)f_910,2,av);} a=C_alloc(36); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_911,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp); t4=C_mutate((C_word*)lf[31]+1 /* (set! chicken.pathname#decompose-pathname ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_932,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word)li10),tmp=(C_word)a,a+=6,tmp)); t5=C_mutate((C_word*)lf[35]+1 /* (set! chicken.pathname#pathname-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1004,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[36]+1 /* (set! chicken.pathname#pathname-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1019,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[37]+1 /* (set! chicken.pathname#pathname-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1034,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[38]+1 /* (set! chicken.pathname#pathname-strip-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1049,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[39]+1 /* (set! chicken.pathname#pathname-strip-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1067,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[40]+1 /* (set! chicken.pathname#pathname-replace-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1085,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[41]+1 /* (set! chicken.pathname#pathname-replace-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1103,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[42]+1 /* (set! chicken.pathname#pathname-replace-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1121,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1589,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* pathname.scm:232: chicken.platform#software-version */ t14=*((C_word*)lf[71]+1);{ C_word *av2=av; av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} /* strip-pds in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_fcall f_911(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_911,2,t1,t2);} a=C_alloc(4); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_918,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* pathname.scm:167: chop-pds */ f_614(t3,t2);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k916 in strip-pds in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_918,2,av);} t2=C_block_size(t1); if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* pathname.scm:170: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(0); av2[4]=C_fix(1); tp(5,av2);}}} /* chicken.pathname#decompose-pathname in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_932,3,av);} a=C_alloc(6); t3=C_i_check_string_2(t2,lf[32]); t4=C_block_size(t2); t5=C_eqp(C_fix(0),t4); if(C_truep(t5)){ /* pathname.scm:174: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_948,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* pathname.scm:175: chicken.irregex#irregex-search */ t7=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k946 in chicken.pathname#decompose-pathname in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_948,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_958,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_970,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* pathname.scm:178: chicken.irregex#irregex-match-substring */ t5=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_973,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* pathname.scm:181: chicken.irregex#irregex-search */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k956 in k946 in chicken.pathname#decompose-pathname in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_958,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_962,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* pathname.scm:179: chicken.irregex#irregex-match-substring */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(2); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k960 in k956 in k946 in chicken.pathname#decompose-pathname in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_962,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_966,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* pathname.scm:180: chicken.irregex#irregex-match-substring */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(4); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k964 in k960 in k956 in k946 in chicken.pathname#decompose-pathname in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_966,2,av);} /* pathname.scm:177: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; C_values(5,av2);}} /* k968 in k946 in chicken.pathname#decompose-pathname in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_970,2,av);} /* pathname.scm:178: strip-pds */ f_911(((C_word*)t0)[3],t1);} /* k971 in k946 in chicken.pathname#decompose-pathname in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_973,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_983,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_991,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* pathname.scm:184: chicken.irregex#irregex-match-substring */ t5=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_998,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* pathname.scm:187: strip-pds */ f_911(t3,((C_word*)t0)[4]);}} /* k981 in k971 in k946 in chicken.pathname#decompose-pathname in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_983,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_987,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* pathname.scm:185: chicken.irregex#irregex-match-substring */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(2); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k985 in k981 in k971 in k946 in chicken.pathname#decompose-pathname in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_987,2,av);} /* pathname.scm:183: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}} /* k989 in k971 in k946 in chicken.pathname#decompose-pathname in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_991,2,av);} /* pathname.scm:184: strip-pds */ f_911(((C_word*)t0)[3],t1);} /* k996 in k971 in k946 in chicken.pathname#decompose-pathname in k908 in k905 in k597 in k591 in k588 in k585 */ static void C_ccall f_998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_998,2,av);} /* pathname.scm:187: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_pathname_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("pathname")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_pathname_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(340))){ C_save(t1); C_rereclaim2(340*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,76); lf[0]=C_h_intern(&lf[0],8, C_text("pathname")); lf[1]=C_h_intern(&lf[1],17, C_text("chicken.pathname#")); lf[5]=C_h_intern(&lf[5],35, C_text("chicken.pathname#absolute-pathname\077")); lf[6]=C_h_intern(&lf[6],18, C_text("absolute-pathname\077")); lf[7]=C_h_intern(&lf[7],35, C_text("chicken.irregex#irregex-match-data\077")); lf[9]=C_h_intern(&lf[9],15, C_text("##sys#substring")); lf[10]=C_h_intern(&lf[10],22, C_text("##sys#windows-platform")); lf[11]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000/\376\377\016")); lf[12]=C_h_intern(&lf[12],30, C_text("chicken.pathname#make-pathname")); lf[13]=C_h_intern(&lf[13],39, C_text("chicken.pathname#make-absolute-pathname")); lf[14]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\134")); lf[15]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[16]=C_h_intern(&lf[16],13, C_text("make-pathname")); lf[17]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[18]=C_h_intern(&lf[18],20, C_text("scheme#string-append")); lf[19]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[20]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[21]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[23]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[24]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000/\376\377\016")); lf[25]=C_h_intern(&lf[25],22, C_text("make-absolute-pathname")); lf[26]=C_h_intern(&lf[26],19, C_text("##sys#string-append")); lf[27]=C_decode_literal(C_heaptop,C_text("\376B\000\000&^(.\052[\134/\134\134])\077([^\134/\134\134]+)(\134.([^\134/\134\134.]+))$")); lf[28]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033^(.\052/)\077([^/]+)(\134.([^/.]+))$")); lf[29]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034^(.\052[\134/\134\134])\077((\134.)\077[^\134/\134\134]+)$")); lf[30]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024^(.\052/)\077((\134.)\077[^/]+)$")); lf[31]=C_h_intern(&lf[31],35, C_text("chicken.pathname#decompose-pathname")); lf[32]=C_h_intern(&lf[32],18, C_text("decompose-pathname")); lf[33]=C_h_intern(&lf[33],39, C_text("chicken.irregex#irregex-match-substring")); lf[34]=C_h_intern(&lf[34],30, C_text("chicken.irregex#irregex-search")); lf[35]=C_h_intern(&lf[35],35, C_text("chicken.pathname#pathname-directory")); lf[36]=C_h_intern(&lf[36],30, C_text("chicken.pathname#pathname-file")); lf[37]=C_h_intern(&lf[37],35, C_text("chicken.pathname#pathname-extension")); lf[38]=C_h_intern(&lf[38],41, C_text("chicken.pathname#pathname-strip-directory")); lf[39]=C_h_intern(&lf[39],41, C_text("chicken.pathname#pathname-strip-extension")); lf[40]=C_h_intern(&lf[40],43, C_text("chicken.pathname#pathname-replace-directory")); lf[41]=C_h_intern(&lf[41],38, C_text("chicken.pathname#pathname-replace-file")); lf[42]=C_h_intern(&lf[42],43, C_text("chicken.pathname#pathname-replace-extension")); lf[43]=C_h_intern(&lf[43],7, C_text("mingw32")); lf[44]=C_h_intern(&lf[44],7, C_text("windows")); lf[45]=C_h_intern(&lf[45],4, C_text("unix")); lf[46]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[47]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002..")); lf[48]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002..")); lf[49]=C_h_intern(&lf[49],35, C_text("chicken.pathname#normalize-pathname")); lf[50]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000/\376\003\000\000\002\376\377\012\000\000\134\376\377\016")); lf[51]=C_h_intern(&lf[51],18, C_text("normalize-pathname")); lf[52]=C_h_intern(&lf[52],3, C_text("abs")); lf[53]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[54]=C_h_intern(&lf[54],14, C_text("scheme#display")); lf[55]=C_h_intern(&lf[55],18, C_text("##sys#write-char-0")); lf[56]=C_h_intern(&lf[56],8, C_text("for-each")); lf[57]=C_h_intern(&lf[57],30, C_text("chicken.base#get-output-string")); lf[58]=C_h_intern(&lf[58],18, C_text("##sys#fast-reverse")); lf[59]=C_h_intern(&lf[59],31, C_text("chicken.base#open-output-string")); lf[60]=C_h_intern(&lf[60],3, C_text("rel")); lf[62]=C_h_intern(&lf[62],27, C_text("chicken.string#string-split")); lf[63]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002/\134")); lf[64]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[65]=C_h_intern(&lf[65],32, C_text("chicken.pathname#directory-null\077")); lf[66]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[67]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[68]=C_h_intern(&lf[68],15, C_text("directory-null\077")); lf[69]=C_h_intern(&lf[69],36, C_text("chicken.pathname#decompose-directory")); lf[70]=C_h_intern(&lf[70],19, C_text("decompose-directory")); lf[71]=C_h_intern(&lf[71],33, C_text("chicken.platform#software-version")); lf[72]=C_h_intern(&lf[72],23, C_text("chicken.irregex#irregex")); lf[73]=C_h_intern(&lf[73],29, C_text("chicken.irregex#irregex-match")); lf[74]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026([A-Za-z]:)\077([\134/\134\134]).\052")); lf[75]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005(/).\052")); C_register_lf2(lf,76,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_587,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[108] = { {C_text("f_1004:pathname_2escm"),(void*)f_1004}, {C_text("f_1010:pathname_2escm"),(void*)f_1010}, {C_text("f_1016:pathname_2escm"),(void*)f_1016}, {C_text("f_1019:pathname_2escm"),(void*)f_1019}, {C_text("f_1025:pathname_2escm"),(void*)f_1025}, {C_text("f_1031:pathname_2escm"),(void*)f_1031}, {C_text("f_1034:pathname_2escm"),(void*)f_1034}, {C_text("f_1040:pathname_2escm"),(void*)f_1040}, {C_text("f_1046:pathname_2escm"),(void*)f_1046}, {C_text("f_1049:pathname_2escm"),(void*)f_1049}, {C_text("f_1055:pathname_2escm"),(void*)f_1055}, {C_text("f_1061:pathname_2escm"),(void*)f_1061}, {C_text("f_1067:pathname_2escm"),(void*)f_1067}, {C_text("f_1073:pathname_2escm"),(void*)f_1073}, {C_text("f_1079:pathname_2escm"),(void*)f_1079}, {C_text("f_1085:pathname_2escm"),(void*)f_1085}, {C_text("f_1091:pathname_2escm"),(void*)f_1091}, {C_text("f_1097:pathname_2escm"),(void*)f_1097}, {C_text("f_1103:pathname_2escm"),(void*)f_1103}, {C_text("f_1109:pathname_2escm"),(void*)f_1109}, {C_text("f_1115:pathname_2escm"),(void*)f_1115}, {C_text("f_1121:pathname_2escm"),(void*)f_1121}, {C_text("f_1127:pathname_2escm"),(void*)f_1127}, {C_text("f_1133:pathname_2escm"),(void*)f_1133}, {C_text("f_1143:pathname_2escm"),(void*)f_1143}, {C_text("f_1181:pathname_2escm"),(void*)f_1181}, {C_text("f_1190:pathname_2escm"),(void*)f_1190}, {C_text("f_1213:pathname_2escm"),(void*)f_1213}, {C_text("f_1223:pathname_2escm"),(void*)f_1223}, {C_text("f_1247:pathname_2escm"),(void*)f_1247}, {C_text("f_1250:pathname_2escm"),(void*)f_1250}, {C_text("f_1253:pathname_2escm"),(void*)f_1253}, {C_text("f_1254:pathname_2escm"),(void*)f_1254}, {C_text("f_1258:pathname_2escm"),(void*)f_1258}, {C_text("f_1268:pathname_2escm"),(void*)f_1268}, {C_text("f_1271:pathname_2escm"),(void*)f_1271}, {C_text("f_1274:pathname_2escm"),(void*)f_1274}, {C_text("f_1277:pathname_2escm"),(void*)f_1277}, {C_text("f_1284:pathname_2escm"),(void*)f_1284}, {C_text("f_1291:pathname_2escm"),(void*)f_1291}, {C_text("f_1303:pathname_2escm"),(void*)f_1303}, {C_text("f_1313:pathname_2escm"),(void*)f_1313}, {C_text("f_1339:pathname_2escm"),(void*)f_1339}, {C_text("f_1348:pathname_2escm"),(void*)f_1348}, {C_text("f_1384:pathname_2escm"),(void*)f_1384}, {C_text("f_1400:pathname_2escm"),(void*)f_1400}, {C_text("f_1404:pathname_2escm"),(void*)f_1404}, {C_text("f_1454:pathname_2escm"),(void*)f_1454}, {C_text("f_1467:pathname_2escm"),(void*)f_1467}, {C_text("f_1475:pathname_2escm"),(void*)f_1475}, {C_text("f_1477:pathname_2escm"),(void*)f_1477}, {C_text("f_1507:pathname_2escm"),(void*)f_1507}, {C_text("f_1546:pathname_2escm"),(void*)f_1546}, {C_text("f_1554:pathname_2escm"),(void*)f_1554}, {C_text("f_1557:pathname_2escm"),(void*)f_1557}, {C_text("f_1560:pathname_2escm"),(void*)f_1560}, {C_text("f_1567:pathname_2escm"),(void*)f_1567}, {C_text("f_1571:pathname_2escm"),(void*)f_1571}, {C_text("f_1589:pathname_2escm"),(void*)f_1589}, {C_text("f_1592:pathname_2escm"),(void*)f_1592}, {C_text("f_1594:pathname_2escm"),(void*)f_1594}, {C_text("f_1600:pathname_2escm"),(void*)f_1600}, {C_text("f_1609:pathname_2escm"),(void*)f_1609}, {C_text("f_1619:pathname_2escm"),(void*)f_1619}, {C_text("f_1621:pathname_2escm"),(void*)f_1621}, {C_text("f_1627:pathname_2escm"),(void*)f_1627}, {C_text("f_1630:pathname_2escm"),(void*)f_1630}, {C_text("f_587:pathname_2escm"),(void*)f_587}, {C_text("f_590:pathname_2escm"),(void*)f_590}, {C_text("f_593:pathname_2escm"),(void*)f_593}, {C_text("f_599:pathname_2escm"),(void*)f_599}, {C_text("f_601:pathname_2escm"),(void*)f_601}, {C_text("f_612:pathname_2escm"),(void*)f_612}, {C_text("f_614:pathname_2escm"),(void*)f_614}, {C_text("f_627:pathname_2escm"),(void*)f_627}, {C_text("f_634:pathname_2escm"),(void*)f_634}, {C_text("f_682:pathname_2escm"),(void*)f_682}, {C_text("f_691:pathname_2escm"),(void*)f_691}, {C_text("f_719:pathname_2escm"),(void*)f_719}, {C_text("f_723:pathname_2escm"),(void*)f_723}, {C_text("f_733:pathname_2escm"),(void*)f_733}, {C_text("f_764:pathname_2escm"),(void*)f_764}, {C_text("f_787:pathname_2escm"),(void*)f_787}, {C_text("f_794:pathname_2escm"),(void*)f_794}, {C_text("f_812:pathname_2escm"),(void*)f_812}, {C_text("f_852:pathname_2escm"),(void*)f_852}, {C_text("f_863:pathname_2escm"),(void*)f_863}, {C_text("f_871:pathname_2escm"),(void*)f_871}, {C_text("f_882:pathname_2escm"),(void*)f_882}, {C_text("f_885:pathname_2escm"),(void*)f_885}, {C_text("f_888:pathname_2escm"),(void*)f_888}, {C_text("f_907:pathname_2escm"),(void*)f_907}, {C_text("f_910:pathname_2escm"),(void*)f_910}, {C_text("f_911:pathname_2escm"),(void*)f_911}, {C_text("f_918:pathname_2escm"),(void*)f_918}, {C_text("f_932:pathname_2escm"),(void*)f_932}, {C_text("f_948:pathname_2escm"),(void*)f_948}, {C_text("f_958:pathname_2escm"),(void*)f_958}, {C_text("f_962:pathname_2escm"),(void*)f_962}, {C_text("f_966:pathname_2escm"),(void*)f_966}, {C_text("f_970:pathname_2escm"),(void*)f_970}, {C_text("f_973:pathname_2escm"),(void*)f_973}, {C_text("f_983:pathname_2escm"),(void*)f_983}, {C_text("f_987:pathname_2escm"),(void*)f_987}, {C_text("f_991:pathname_2escm"),(void*)f_991}, {C_text("f_998:pathname_2escm"),(void*)f_998}, {C_text("toplevel:pathname_2escm"),(void*)C_pathname_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.pathname#d o|hiding unexported module binding: chicken.pathname#define-alias o|hiding unexported module binding: chicken.pathname#absolute-pathname-root o|hiding unexported module binding: chicken.pathname#root-origin o|hiding unexported module binding: chicken.pathname#root-directory o|hiding unexported module binding: chicken.pathname#chop-pds o|hiding unexported module binding: chicken.pathname#split-directory S|applied compiler syntax: S| scheme#for-each 1 o|eliminated procedure checks: 10 o|specializations: o| 1 (scheme#char=? char char) o| 1 (scheme#string-ref string fixnum) o| 1 (scheme#string=? string string) o| 1 (scheme#car pair) o| 5 (scheme#cdr pair) o| 1 (scheme#zero? integer) o| 3 (scheme#memq * list) (o e)|safe calls: 159 o|safe globals: (chicken.pathname#root-directory chicken.pathname#root-origin chicken.pathname#absolute-pathname-root) o|inlining procedure: k616 o|inlining procedure: k629 o|inlining procedure: k629 o|contracted procedure: "(pathname.scm:93) g135136" o|inlining procedure: k660 o|substituted constant variable: a664 o|inlining procedure: k660 o|inlining procedure: k616 o|inlining procedure: k693 o|inlining procedure: k693 o|inlining procedure: k735 o|inlining procedure: k735 o|inlining procedure: k789 o|inlining procedure: k789 o|inlining procedure: k823 o|contracted procedure: "(pathname.scm:132) g173174" o|inlining procedure: k831 o|substituted constant variable: a835 o|inlining procedure: k831 o|inlining procedure: k823 o|inlining procedure: k883 o|inlining procedure: k883 o|inlining procedure: k913 o|inlining procedure: k913 o|inlining procedure: k937 o|inlining procedure: k937 o|inlining procedure: k974 o|inlining procedure: k974 o|inlining procedure: k1145 o|inlining procedure: k1145 o|substituted constant variable: a1154 o|inlining procedure: k1156 o|inlining procedure: k1156 o|inlining procedure: k1192 o|substituted constant variable: a1199 o|inlining procedure: k1192 o|inlining procedure: k1215 o|inlining procedure: k1233 o|inlining procedure: k1233 o|inlining procedure: k1278 o|inlining procedure: k1278 o|inlining procedure: k1305 o|inlining procedure: k1305 o|inlining procedure: k1215 o|inlining procedure: k1349 o|inlining procedure: k1349 o|inlining procedure: k1389 o|inlining procedure: k1389 o|inlining procedure: k1395 o|inlining procedure: k1395 o|substituted constant variable: a1436 o|inlining procedure: k1430 o|inlining procedure: k1430 o|inlining procedure: k1463 o|inlining procedure: k1463 o|inlining procedure: k1482 o|inlining procedure: k1482 o|contracted procedure: "(pathname.scm:329) strip-origin-prefix427" o|inlining procedure: k1512 o|inlining procedure: k1512 o|inlining procedure: k1534 o|inlining procedure: k1534 o|inlining procedure: k1602 o|inlining procedure: k1602 o|inlining procedure: k1611 o|inlining procedure: k1611 o|inlining procedure: k1632 o|inlining procedure: k1632 o|replaced variables: 186 o|removed binding forms: 74 o|substituted constant variable: r6171643 o|substituted constant variable: r6941644 o|substituted constant variable: r7361646 o|substituted constant variable: r7901648 o|substituted constant variable: r7901648 o|substituted constant variable: r7901650 o|substituted constant variable: r7901650 o|substituted constant variable: r8241655 o|substituted constant variable: r9141661 o|substituted constant variable: r13901684 o|substituted constant variable: r13901686 o|substituted constant variable: r14311691 o|converted assignments to bindings: (pds?361) o|substituted constant variable: r14641692 o|substituted constant variable: r14641692 o|substituted constant variable: r14641694 o|substituted constant variable: r14641694 o|converted assignments to bindings: (addpart339) o|substituted constant variable: r16031703 o|substituted constant variable: r16121705 o|substituted constant variable: r16331707 o|simplifications: ((let . 2)) o|replaced variables: 11 o|removed binding forms: 186 o|inlining procedure: k1230 o|replaced variables: 4 o|removed binding forms: 30 o|replaced variables: 1 o|removed binding forms: 2 o|removed binding forms: 1 o|simplifications: ((if . 14) (##core#call . 109)) o| call simplifications: o| scheme#list? o| scheme#member o| scheme#string-ref o| chicken.fixnum#fx+ 8 o| scheme#pair? o| ##sys#slot 2 o| scheme#string 2 o| scheme#string=? 2 o| scheme#cdr o| scheme#cons 3 o| ##sys#call-with-values 8 o| chicken.fixnum#fx= 5 o| scheme#values 5 o| chicken.fixnum#fx> 3 o| scheme#char=? o| scheme#not 6 o| scheme#string? o| scheme#list o| ##sys#check-list 2 o| scheme#null? 10 o| scheme#car 8 o| scheme#string-length o| chicken.fixnum#fx>= 4 o| scheme#eq? 10 o| ##sys#size 12 o| chicken.fixnum#fx< o| chicken.fixnum#fx- 2 o| ##sys#check-string 7 o|contracted procedure: k603 o|contracted procedure: k623 o|contracted procedure: k639 o|contracted procedure: k652 o|contracted procedure: k645 o|contracted procedure: k655 o|contracted procedure: k673 o|contracted procedure: k678 o|contracted procedure: k684 o|contracted procedure: k696 o|contracted procedure: k699 o|contracted procedure: k729 o|contracted procedure: k705 o|contracted procedure: k738 o|contracted procedure: k741 o|contracted procedure: k747 o|contracted procedure: k754 o|contracted procedure: k766 o|contracted procedure: k769 o|contracted procedure: k772 o|contracted procedure: k775 o|contracted procedure: k778 o|contracted procedure: k807 o|contracted procedure: k795 o|contracted procedure: k802 o|contracted procedure: k817 o|contracted procedure: k848 o|contracted procedure: k820 o|contracted procedure: k844 o|contracted procedure: k826 o|contracted procedure: k864 o|contracted procedure: k854 o|contracted procedure: k892 o|contracted procedure: k873 o|contracted procedure: k899 o|contracted procedure: k902 o|contracted procedure: k929 o|contracted procedure: k922 o|contracted procedure: k934 o|contracted procedure: k1000 o|contracted procedure: k940 o|contracted procedure: k1583 o|contracted procedure: k1139 o|contracted procedure: k1148 o|contracted procedure: k1159 o|inlining procedure: k1162 o|contracted procedure: k1175 o|inlining procedure: k1162 o|contracted procedure: k1447 o|contracted procedure: k1183 o|contracted procedure: k1444 o|contracted procedure: k1186 o|contracted procedure: k1195 o|contracted procedure: k1203 o|contracted procedure: k1206 o|contracted procedure: k1218 o|contracted procedure: k1227 o|contracted procedure: k1239 o|contracted procedure: k1230 o|contracted procedure: k1263 o|contracted procedure: k1285 o|contracted procedure: k1293 o|contracted procedure: k1296 o|contracted procedure: k1308 o|contracted procedure: k1318 o|contracted procedure: k1322 o|contracted procedure: k1326 o|contracted procedure: k1329 o|contracted procedure: k1352 o|contracted procedure: k1359 o|contracted procedure: k1363 o|contracted procedure: k1370 o|contracted procedure: k1374 o|contracted procedure: k1385 o|contracted procedure: k1392 o|contracted procedure: k1409 o|contracted procedure: k1413 o|contracted procedure: k1417 o|contracted procedure: k1424 o|contracted procedure: k1427 o|contracted procedure: k1441 o|contracted procedure: k1456 o|contracted procedure: k1479 o|contracted procedure: k1497 o|contracted procedure: k1488 o|contracted procedure: k1500 o|contracted procedure: k1580 o|contracted procedure: k1576 o|contracted procedure: k1573 o|contracted procedure: k1515 o|contracted procedure: k1518 o|contracted procedure: k1521 o|contracted procedure: k1527 o|contracted procedure: k1531 o|contracted procedure: k1548 o|contracted procedure: k1537 o|simplifications: ((if . 1) (let . 19)) o|removed binding forms: 94 o|replaced variables: 33 o|removed binding forms: 1 o|removed binding forms: 17 o|direct leaf routine/allocation: addpart339 9 o|direct leaf routine/allocation: pds?361 0 o|direct leaf routine/allocation: loop418 0 o|contracted procedure: "(pathname.scm:254) k1333" o|contracted procedure: "(pathname.scm:273) k1343" o|contracted procedure: "(pathname.scm:280) k1378" o|converted assignments to bindings: (loop418) o|simplifications: ((let . 1)) o|removed binding forms: 3 x|eliminated type checks: x| C_i_check_string_2: 2 o|customizable procedures: (k597 chicken.pathname#split-directory k1398 k1346 loop366 k1221 g380387 for-each-loop379391 k1275 strip-pds214 canonicalize-dirs143 _make-pathname144 k810 k792 conc-dirs142 chicken.pathname#chop-pds loop146 k632 lp128) o|calls to known targets: 50 o|identified direct recursive calls: f_691 1 o|identified direct recursive calls: f_1477 1 o|fast box initializations: 7 o|fast global references: 8 o|fast global assignments: 11 o|dropping unused closure argument: f_1143 o|dropping unused closure argument: f_1454 o|dropping unused closure argument: f_1477 o|dropping unused closure argument: f_614 o|dropping unused closure argument: f_764 o|dropping unused closure argument: f_911 */ /* end of file */ chicken-5.1.0/chicken.continuation.import.c0000644000175000017500000001421213502227772020530 0ustar sjamaansjamaan/* Generated from chicken.continuation.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.continuation.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.continuation.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.continuation.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(101))){ C_save(t1); C_rereclaim2(101*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],20, C_text("chicken.continuation")); lf[2]=C_h_intern(&lf[2],12, C_text("continuation")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001continuation\077\376\001\000\000\042\001chicken.continuation#continuation\077\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\024\001continuation-capture\376\001\000\000)\001chicken.continuation#continuation-capture\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\022\001continuation-graft\376\001\000\000\047\001chicken.continuation#continuation-graft\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\023\001continuation-return\376\001\000\000(\001chicken.continuation#continuation-return\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2econtinuation_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2econtinuation_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2econtinuation_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2econtinuation_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2econtinuation_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/chicken.memory.representation.import.c0000644000175000017500000002074413502227773022377 0ustar sjamaansjamaan/* Generated from chicken.memory.representation.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.memory.representation.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.memory.representation.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.memory.representation.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(401))){ C_save(t1); C_rereclaim2(401*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],29, C_text("chicken.memory.representation")); lf[2]=C_h_intern(&lf[2],7, C_text("lolevel")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001block-ref\376\001\000\000\047\001chicken.memory.representation#block-ref\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\012\001block-set!\376\001\000\000(\001chicken.memory.representation#block-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001ex" "tend-procedure\376\001\000\000.\001chicken.memory.representation#extend-procedure\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\023\001extended-procedure\077\376\001\000\0001\001chicken.memory.representation#extended-procedure\077\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\024\001make-record-instance\376\001\000\0002\001chicken.memory.representation#make-record-" "instance\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001mutate-procedure!\376\001\000\000/\001chicken.memory.representation#mut" "ate-procedure!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001number-of-bytes\376\001\000\000-\001chicken.memory.representation" "#number-of-bytes\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001number-of-slots\376\001\000\000-\001chicken.memory.representati" "on#number-of-slots\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001object-become!\376\001\000\000,\001chicken.memory.representat" "ion#object-become!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001object-copy\376\001\000\000)\001chicken.memory.representation" "#object-copy\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001procedure-data\376\001\000\000,\001chicken.memory.representation#pr" "ocedure-data\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001record->vector\376\001\000\000,\001chicken.memory.representation#re" "cord->vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001record-instance-length\376\001\000\0004\001chicken.memory.represent" "ation#record-instance-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001record-instance-slot\376\001\000\0002\001chicken.me" "mory.representation#record-instance-slot\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001record-instance-slot-set" "!\376\001\000\0007\001chicken.memory.representation#record-instance-slot-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001re" "cord-instance-type\376\001\000\0002\001chicken.memory.representation#record-instance-type\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\020\001record-instance\077\376\001\000\000.\001chicken.memory.representation#record-instance\077\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\023\001set-procedure-data!\376\001\000\0001\001chicken.memory.representation#set-procedu" "re-data!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001vector-like\077\376\001\000\000\052\001chicken.memory.representation#vector-l" "ike\077\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2ememory_2erepresentation_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2ememory_2erepresentation_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2ememory_2erepresentation_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2ememory_2erepresentation_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2ememory_2erepresentation_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/chicken.string.import.c0000644000175000017500000001715313502227774017335 0ustar sjamaansjamaan/* Generated from chicken.string.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.string.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.string.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.string.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(341))){ C_save(t1); C_rereclaim2(341*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],14, C_text("chicken.string")); lf[2]=C_h_intern(&lf[2],15, C_text("data-structures")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001conc\376\001\000\000\023\001chicken.string#conc\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001->string\376\001\000\000\027\001chick" "en.string#->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001string-chop\376\001\000\000\032\001chicken.string#string-chop\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\014\001string-chomp\376\001\000\000\033\001chicken.string#string-chomp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001string" "-compare3\376\001\000\000\036\001chicken.string#string-compare3\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001string-compare3-ci\376" "\001\000\000!\001chicken.string#string-compare3-ci\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001reverse-list->string\376\001\000\000#\001" "chicken.string#reverse-list->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001reverse-string-append\376\001\000\000$\001ch" "icken.string#reverse-string-append\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001string-intersperse\376\001\000\000!\001chicke" "n.string#string-intersperse\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001string-split\376\001\000\000\033\001chicken.string#stri" "ng-split\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001string-translate\376\001\000\000\037\001chicken.string#string-translate\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\021\001string-translate\052\376\001\000\000 \001chicken.string#string-translate\052\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\013\001substring=\077\376\001\000\000\032\001chicken.string#substring=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001substring-ci=\077\376\001\000" "\000\035\001chicken.string#substring-ci=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001substring-index\376\001\000\000\036\001chicken.str" "ing#substring-index\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001substring-index-ci\376\001\000\000!\001chicken.string#substr" "ing-index-ci\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2estring_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2estring_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2estring_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2estring_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2estring_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/chicken.eval.import.c0000644000175000017500000001335713502227772016756 0ustar sjamaansjamaan/* Generated from chicken.eval.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.eval.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.eval.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.eval.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(61))){ C_save(t1); C_rereclaim2(61*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],12, C_text("chicken.eval")); lf[2]=C_h_intern(&lf[2],4, C_text("eval")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001eval-handler\376\001\000\000\031\001chicken.eval#eval-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001modul" "e-environment\376\001\000\000\037\001chicken.eval#module-environment\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eeval_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eeval_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eeval_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eeval_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eeval_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/port.scm0000644000175000017500000003074213502227553014431 0ustar sjamaansjamaan;;; port.scm - Optional non-standard ports ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without ; modification, are permitted provided that the following conditions ; are met: ; ; Redistributions of source code must retain the above copyright ; notice, this list of conditions and the following disclaimer. ; Redistributions in binary form must reproduce the above copyright ; notice, this list of conditions and the following disclaimer in ; the documentation and/or other materials provided with the ; distribution. ; Neither the name of the author nor the names of its contributors ; may be used to endorse or promote products derived from this ; software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT ; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS ; FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE ; COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, ; INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES ; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) ; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, ; STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED ; OF THE POSSIBILITY OF SUCH DAMAGE. (declare (unit port) (uses extras)) (module chicken.port (call-with-input-string call-with-output-string copy-port make-input-port make-output-port port-fold port-for-each port-map port-name port-position make-bidirectional-port make-broadcast-port make-concatenated-port set-buffering-mode! set-port-name! terminal-name terminal-port? terminal-size with-error-output-to-port with-input-from-port with-input-from-string with-output-to-port with-output-to-string with-error-output-to-string) (import scheme chicken.base chicken.fixnum chicken.foreign chicken.io) (include "common-declarations.scm") #> #if !defined(_WIN32) # include # include #endif #if !defined(__ANDROID__) && defined(TIOCGWINSZ) static int get_tty_size(int fd, int *rows, int *cols) { struct winsize tty_size; int r; memset(&tty_size, 0, sizeof tty_size); r = ioctl(fd, TIOCGWINSZ, &tty_size); if (r == 0) { *rows = tty_size.ws_row; *cols = tty_size.ws_col; } return r; } #else static int get_tty_size(int fd, int *rows, int *cols) { *rows = *cols = 0; errno = ENOSYS; return -1; } #endif #if defined(_WIN32) && !defined(__CYGWIN__) char *ttyname(int fd) { errno = ENOSYS; return NULL; } #endif <# (define-foreign-variable _iofbf int "_IOFBF") (define-foreign-variable _iolbf int "_IOLBF") (define-foreign-variable _ionbf int "_IONBF") (define-foreign-variable _bufsiz int "BUFSIZ") (define (port-name #!optional (port ##sys#standard-input)) (##sys#check-port port 'port-name) (##sys#slot port 3)) (define (set-port-name! port name) (##sys#check-port port 'set-port-name!) (##sys#check-string name 'set-port-name!) (##sys#setslot port 3 name)) (define (port-position #!optional (port ##sys#standard-input)) (##sys#check-port port 'port-position) (if (##core#inline "C_input_portp" port) (##sys#values (##sys#slot port 4) (##sys#slot port 5)) (##sys#error 'port-position "cannot compute position of port" port))) (define (set-buffering-mode! port mode . size) (##sys#check-port port 'set-buffering-mode!) (let ((size (if (pair? size) (car size) _bufsiz)) (mode (case mode ((#:full) _iofbf) ((#:line) _iolbf) ((#:none) _ionbf) (else (##sys#error 'set-buffering-mode! "invalid buffering-mode" mode port))))) (##sys#check-fixnum size 'set-buffering-mode!) (when (fx< (if (eq? 'stream (##sys#slot port 7)) ((foreign-lambda* int ((scheme-object p) (int m) (int s)) "C_return(setvbuf(C_port_file(p), NULL, m, s));") port mode size) -1) 0) (##sys#error 'set-buffering-mode! "cannot set buffering mode" port mode size)))) ;;;; Port-mapping (found in Gauche): (define (port-for-each fn thunk) (let loop () (let ((x (thunk))) (unless (eof-object? x) (fn x) (loop) ) ) ) ) (define port-map (lambda (fn thunk) (let loop ((xs '())) (let ((x (thunk))) (if (eof-object? x) (##sys#fast-reverse xs) (loop (cons (fn x) xs))))))) (define (port-fold fn acc thunk) (let loop ((acc acc)) (let ((x (thunk))) (if (eof-object? x) acc (loop (fn x acc))) ) ) ) (define-constant +buf-size+ 1024) (define copy-port (let ((read-char read-char) (write-char write-char)) (define (read-buf port writer) (let ((buf (make-string +buf-size+))) (let loop () (let ((n (read-string! +buf-size+ buf port))) (unless (eq? n 0) (writer buf n) (loop)))))) (define (write-buf buf n port writer) (do ((i 0 (fx+ i 1))) ((fx>= i n)) (writer (integer->char (##sys#byte buf i)) port))) (define (read-and-write reader writer) (let loop () (let ((x (reader))) (unless (eof-object? x) (writer x) (loop))))) (define (read-and-write-buf src dest reader) (let ((buf (make-string +buf-size+))) (let loop ((n 0)) (when (fx>= n +buf-size+) (write-string buf +buf-size+ dest) (set! n 0)) (let ((c (reader src))) (cond ((eof-object? c) (when (fx>= n 0) (write-string buf n dest))) (else (##sys#setbyte buf n (char->integer c)) (loop (fx+ n 1)))))))) (lambda (src dest #!optional (read read-char) (write write-char)) ;; does not check port args intentionally (cond ((eq? read read-char) (read-buf src (if (eq? write write-char) (lambda (buf n) (write-string buf n dest)) (lambda (buf n) (write-buf buf n dest write))))) ((eq? write write-char) (read-and-write-buf src dest read)) (else (read-and-write (lambda () (read src)) (lambda (x) (write x dest)))))))) ;;;; funky-ports (define (make-broadcast-port . ports) (make-output-port (lambda (s) (for-each (cut write-string s #f <>) ports)) void (lambda () (for-each flush-output ports)) ) ) (define (make-concatenated-port p1 . ports) (let ((ports (cons p1 ports))) ;;XXX should also forward other port-methods (make-input-port (lambda () (let loop () (if (null? ports) #!eof (let ((c (read-char (car ports)))) (cond ((eof-object? c) (set! ports (cdr ports)) (loop) ) (else c) ) ) ) ) ) (lambda () (and (not (null? ports)) (char-ready? (car ports)))) void (lambda () (let loop () (if (null? ports) #!eof (let ((c (peek-char (car ports)))) (cond ((eof-object? c) (set! ports (cdr ports)) (loop) ) (else c)))))) (lambda (p n dest start) (let loop ((n n) (c 0)) (cond ((null? ports) c) ((fx<= n 0) c) (else (let ((m (read-string! n dest (car ports) (fx+ start c)))) (when (fx< m n) (set! ports (cdr ports)) ) (loop (fx- n m) (fx+ c m)))))))))) ;;; Redirect standard ports: (define (with-input-from-port port thunk) (##sys#check-input-port port #t 'with-input-from-port) (fluid-let ((##sys#standard-input port)) (thunk) ) ) (define (with-output-to-port port thunk) (##sys#check-output-port port #t 'with-output-to-port) (fluid-let ((##sys#standard-output port)) (thunk) ) ) (define (with-error-output-to-port port thunk) (##sys#check-output-port port #t 'with-error-output-to-port) (fluid-let ((##sys#standard-error port)) (thunk) ) ) ;;; Extended string-port operations: (define call-with-input-string (lambda (str proc) (let ((in (open-input-string str))) (proc in) ) ) ) (define call-with-output-string (lambda (proc) (let ((out (open-output-string))) (proc out) (get-output-string out) ) ) ) (define with-input-from-string (lambda (str thunk) (fluid-let ([##sys#standard-input (open-input-string str)]) (thunk) ) ) ) (define with-output-to-string (lambda (thunk) (fluid-let ((##sys#standard-output (open-output-string))) (thunk) (get-output-string ##sys#standard-output) ) ) ) (define with-error-output-to-string (lambda (thunk) (fluid-let ((##sys#standard-error (open-output-string))) (thunk) (get-output-string ##sys#standard-error) ) ) ) ;;; Custom ports: ; ; - Port-slots: ; ; 10: last (define make-input-port (lambda (read ready? close #!optional peek read-string read-line read-buffered) (let* ((class (vector (lambda (p) ; read-char (let ([last (##sys#slot p 10)]) (cond [peek (read)] [last (##sys#setislot p 10 #f) last] [else (read)] ) ) ) (lambda (p) ; peek-char (let ([last (##sys#slot p 10)]) (cond [peek (peek)] [last last] [else (let ([last (read)]) (##sys#setslot p 10 last) last) ] ) ) ) #f ; write-char #f ; write-string (lambda (p d) ; close (close)) #f ; flush-output (lambda (p) ; char-ready? (ready?) ) read-string ; read-string! read-line ; read-line read-buffered)) (data (vector #f)) (port (##sys#make-port 1 class "(custom)" 'custom))) (##sys#set-port-data! port data) port) ) ) (define make-output-port (lambda (write close #!optional flush) (let* ((class (vector #f ; read-char #f ; peek-char (lambda (p c) ; write-char (write (string c)) ) (lambda (p s) ; write-string (write s) ) (lambda (p d) ; close (close)) (lambda (p) ; flush-output (when flush (flush)) ) #f ; char-ready? #f ; read-string! #f) ) ; read-line (data (vector #f)) (port (##sys#make-port 2 class "(custom)" 'custom))) (##sys#set-port-data! port data) port) ) ) (define (make-bidirectional-port i o) (let* ((class (vector (lambda (_) ; read-char (read-char i)) (lambda (_) ; peek-char (peek-char i)) (lambda (_ c) ; write-char (write-char c o)) (lambda (_ s) ; write-string (write-string s #f o)) (lambda (_ d) ; close (case d ((1) (close-input-port i)) ((2) (close-output-port o)))) (lambda (_) ; flush-output (flush-output o)) (lambda (_) ; char-ready? (char-ready? i)) (lambda (_ n d s) ; read-string! (read-string! n d i s)) (lambda (_ l) ; read-line (read-line i l)) (lambda () ; read-buffered (read-buffered i)))) (port (##sys#make-port 3 class "(bidirectional)" 'bidirectional))) (##sys#set-port-data! port (vector #f)) port)) ;; Duplication from posix-common.scm (define posix-error (let ((strerror (foreign-lambda c-string "strerror" int)) (string-append string-append)) (lambda (type loc msg . args) (let ((rn (##sys#update-errno))) (apply ##sys#signal-hook type loc (string-append msg " - " (strerror rn)) args))))) ;; Terminal ports (define (terminal-port? port) (##sys#check-open-port port 'terminal-port?) (let ((fp (##sys#peek-unsigned-integer port 0))) (and (not (eq? 0 fp)) (##core#inline "C_tty_portp" port)))) (define (check-terminal! caller port) (##sys#check-open-port port caller) (unless (and (eq? 'stream (##sys#slot port 7)) (##core#inline "C_tty_portp" port)) (##sys#error caller "port is not connected to a terminal" port))) (define terminal-name (let ((ttyname (foreign-lambda c-string "ttyname" int))) (lambda (port) (check-terminal! 'terminal-name port) (or (ttyname (##core#inline "C_port_fileno" port)) (posix-error #:error 'terminal-name "cannot determine terminal name" port))))) (define terminal-size (let ((ttysize (foreign-lambda int "get_tty_size" int (nonnull-c-pointer int) (nonnull-c-pointer int)))) (lambda (port) (check-terminal! 'terminal-size port) (let-location ((columns int) (rows int)) (if (fx= 0 (ttysize (##core#inline "C_port_fileno" port) (location columns) (location rows))) (values columns rows) (posix-error #:error 'terminal-size "cannot determine terminal size" port)))))) ) chicken-5.1.0/buildbranch0000644000175000017500000000000013502227762015123 0ustar sjamaansjamaanchicken-5.1.0/chicken-ffi-syntax.c0000644000175000017500000055717513502227762016617 0ustar sjamaansjamaan/* Generated from chicken-ffi-syntax.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken-ffi-syntax.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file chicken-ffi-syntax.c unit: chicken-ffi-syntax uses: data-structures extras internal library expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[98]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,16),40,97,50,55,51,50,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,42),40,99,111,109,112,105,108,101,114,45,111,110,108,121,45,101,114,45,116,114,97,110,115,102,111,114,109,101,114,32,116,114,97,110,115,102,111,114,109,101,114,41,0,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,16),40,97,50,56,48,51,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,48,49,55,32,103,49,48,50,57,41,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,16),40,97,50,56,52,55,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,57,55,54,32,103,57,56,56,41,0,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,16),40,97,50,57,52,50,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,57,52,50,32,103,57,53,52,41,0,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,16),40,97,51,48,51,51,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,57,48,49,32,103,57,49,51,41,0,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,16),40,97,51,49,50,56,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,56,54,48,32,103,56,55,50,41,0,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,56,51,49,32,103,56,52,51,41,0,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,16),40,97,51,50,49,57,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,16),40,97,51,51,57,52,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,16),40,97,51,52,49,49,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,16),40,97,51,52,50,56,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,16),40,97,51,52,52,57,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,16),40,97,51,53,49,53,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,6),40,103,55,50,48,41,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,23),40,108,111,111,112,32,98,105,110,100,105,110,103,115,32,97,108,105,97,115,101,115,41,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,11),40,97,51,54,57,48,32,98,32,97,41,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,10),40,103,49,53,56,32,120,32,114,41,0,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,15),40,102,111,108,100,114,49,53,51,32,103,49,53,52,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,49,57,53,32,103,50,48,55,41,0,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,49,54,56,32,103,49,56,48,41,0,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,115,116,115,41,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,55,49,52,32,103,55,50,54,41,0,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,16),40,97,51,53,56,56,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,16),40,97,51,55,53,53,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,13),40,97,51,56,52,49,32,120,32,114,32,99,41,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,53,50,32,103,54,54,52,41,0,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,50,53,32,103,54,51,55,41,0,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,16),40,97,51,56,54,50,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_1431) static void C_ccall f_1431(C_word c,C_word *av) C_noret; C_noret_decl(f_1434) static void C_ccall f_1434(C_word c,C_word *av) C_noret; C_noret_decl(f_1437) static void C_ccall f_1437(C_word c,C_word *av) C_noret; C_noret_decl(f_1440) static void C_ccall f_1440(C_word c,C_word *av) C_noret; C_noret_decl(f_1443) static void C_ccall f_1443(C_word c,C_word *av) C_noret; C_noret_decl(f_1659) static void C_fcall f_1659(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1667) static void C_fcall f_1667(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1675) static void C_ccall f_1675(C_word c,C_word *av) C_noret; C_noret_decl(f_1686) static void C_ccall f_1686(C_word c,C_word *av) C_noret; C_noret_decl(f_1699) static void C_fcall f_1699(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1713) static void C_ccall f_1713(C_word c,C_word *av) C_noret; C_noret_decl(f_1717) static void C_ccall f_1717(C_word c,C_word *av) C_noret; C_noret_decl(f_1729) static void C_ccall f_1729(C_word c,C_word *av) C_noret; C_noret_decl(f_1731) static void C_fcall f_1731(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1778) static void C_ccall f_1778(C_word c,C_word *av) C_noret; C_noret_decl(f_1780) static void C_fcall f_1780(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1854) static C_word C_fcall f_1854(C_word t0); C_noret_decl(f_2725) static void C_ccall f_2725(C_word c,C_word *av) C_noret; C_noret_decl(f_2727) static void C_fcall f_2727(C_word t0,C_word t1) C_noret; C_noret_decl(f_2733) static void C_ccall f_2733(C_word c,C_word *av) C_noret; C_noret_decl(f_2740) static void C_ccall f_2740(C_word c,C_word *av) C_noret; C_noret_decl(f_2753) static void C_ccall f_2753(C_word c,C_word *av) C_noret; C_noret_decl(f_2756) static void C_ccall f_2756(C_word c,C_word *av) C_noret; C_noret_decl(f_2759) static void C_ccall f_2759(C_word c,C_word *av) C_noret; C_noret_decl(f_2762) static void C_ccall f_2762(C_word c,C_word *av) C_noret; C_noret_decl(f_2765) static void C_ccall f_2765(C_word c,C_word *av) C_noret; C_noret_decl(f_2768) static void C_ccall f_2768(C_word c,C_word *av) C_noret; C_noret_decl(f_2771) static void C_ccall f_2771(C_word c,C_word *av) C_noret; C_noret_decl(f_2774) static void C_ccall f_2774(C_word c,C_word *av) C_noret; C_noret_decl(f_2777) static void C_ccall f_2777(C_word c,C_word *av) C_noret; C_noret_decl(f_2780) static void C_ccall f_2780(C_word c,C_word *av) C_noret; C_noret_decl(f_2783) static void C_ccall f_2783(C_word c,C_word *av) C_noret; C_noret_decl(f_2786) static void C_ccall f_2786(C_word c,C_word *av) C_noret; C_noret_decl(f_2789) static void C_ccall f_2789(C_word c,C_word *av) C_noret; C_noret_decl(f_2792) static void C_ccall f_2792(C_word c,C_word *av) C_noret; C_noret_decl(f_2795) static void C_ccall f_2795(C_word c,C_word *av) C_noret; C_noret_decl(f_2798) static void C_ccall f_2798(C_word c,C_word *av) C_noret; C_noret_decl(f_2802) static void C_ccall f_2802(C_word c,C_word *av) C_noret; C_noret_decl(f_2804) static void C_ccall f_2804(C_word c,C_word *av) C_noret; C_noret_decl(f_2808) static void C_ccall f_2808(C_word c,C_word *av) C_noret; C_noret_decl(f_2811) static void C_ccall f_2811(C_word c,C_word *av) C_noret; C_noret_decl(f_2814) static void C_ccall f_2814(C_word c,C_word *av) C_noret; C_noret_decl(f_2817) static void C_ccall f_2817(C_word c,C_word *av) C_noret; C_noret_decl(f_2832) static void C_ccall f_2832(C_word c,C_word *av) C_noret; C_noret_decl(f_2846) static void C_ccall f_2846(C_word c,C_word *av) C_noret; C_noret_decl(f_2848) static void C_ccall f_2848(C_word c,C_word *av) C_noret; C_noret_decl(f_2852) static void C_ccall f_2852(C_word c,C_word *av) C_noret; C_noret_decl(f_2881) static void C_ccall f_2881(C_word c,C_word *av) C_noret; C_noret_decl(f_2887) static void C_ccall f_2887(C_word c,C_word *av) C_noret; C_noret_decl(f_2891) static void C_ccall f_2891(C_word c,C_word *av) C_noret; C_noret_decl(f_2895) static void C_ccall f_2895(C_word c,C_word *av) C_noret; C_noret_decl(f_2901) static void C_fcall f_2901(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2926) static void C_ccall f_2926(C_word c,C_word *av) C_noret; C_noret_decl(f_2941) static void C_ccall f_2941(C_word c,C_word *av) C_noret; C_noret_decl(f_2943) static void C_ccall f_2943(C_word c,C_word *av) C_noret; C_noret_decl(f_2947) static void C_ccall f_2947(C_word c,C_word *av) C_noret; C_noret_decl(f_2972) static void C_ccall f_2972(C_word c,C_word *av) C_noret; C_noret_decl(f_2978) static void C_ccall f_2978(C_word c,C_word *av) C_noret; C_noret_decl(f_2982) static void C_ccall f_2982(C_word c,C_word *av) C_noret; C_noret_decl(f_2986) static void C_ccall f_2986(C_word c,C_word *av) C_noret; C_noret_decl(f_2992) static void C_fcall f_2992(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3017) static void C_ccall f_3017(C_word c,C_word *av) C_noret; C_noret_decl(f_3032) static void C_ccall f_3032(C_word c,C_word *av) C_noret; C_noret_decl(f_3034) static void C_ccall f_3034(C_word c,C_word *av) C_noret; C_noret_decl(f_3038) static void C_ccall f_3038(C_word c,C_word *av) C_noret; C_noret_decl(f_3067) static void C_ccall f_3067(C_word c,C_word *av) C_noret; C_noret_decl(f_3073) static void C_ccall f_3073(C_word c,C_word *av) C_noret; C_noret_decl(f_3077) static void C_ccall f_3077(C_word c,C_word *av) C_noret; C_noret_decl(f_3081) static void C_ccall f_3081(C_word c,C_word *av) C_noret; C_noret_decl(f_3087) static void C_fcall f_3087(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3112) static void C_ccall f_3112(C_word c,C_word *av) C_noret; C_noret_decl(f_3127) static void C_ccall f_3127(C_word c,C_word *av) C_noret; C_noret_decl(f_3129) static void C_ccall f_3129(C_word c,C_word *av) C_noret; C_noret_decl(f_3133) static void C_ccall f_3133(C_word c,C_word *av) C_noret; C_noret_decl(f_3158) static void C_ccall f_3158(C_word c,C_word *av) C_noret; C_noret_decl(f_3164) static void C_ccall f_3164(C_word c,C_word *av) C_noret; C_noret_decl(f_3168) static void C_ccall f_3168(C_word c,C_word *av) C_noret; C_noret_decl(f_3172) static void C_ccall f_3172(C_word c,C_word *av) C_noret; C_noret_decl(f_3178) static void C_fcall f_3178(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3203) static void C_ccall f_3203(C_word c,C_word *av) C_noret; C_noret_decl(f_3218) static void C_ccall f_3218(C_word c,C_word *av) C_noret; C_noret_decl(f_3220) static void C_ccall f_3220(C_word c,C_word *av) C_noret; C_noret_decl(f_3224) static void C_ccall f_3224(C_word c,C_word *av) C_noret; C_noret_decl(f_3227) static void C_fcall f_3227(C_word t0,C_word t1) C_noret; C_noret_decl(f_3230) static void C_ccall f_3230(C_word c,C_word *av) C_noret; C_noret_decl(f_3233) static void C_ccall f_3233(C_word c,C_word *av) C_noret; C_noret_decl(f_3242) static void C_ccall f_3242(C_word c,C_word *av) C_noret; C_noret_decl(f_3259) static void C_fcall f_3259(C_word t0,C_word t1) C_noret; C_noret_decl(f_3274) static void C_ccall f_3274(C_word c,C_word *av) C_noret; C_noret_decl(f_3288) static void C_ccall f_3288(C_word c,C_word *av) C_noret; C_noret_decl(f_3290) static void C_fcall f_3290(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3315) static void C_ccall f_3315(C_word c,C_word *av) C_noret; C_noret_decl(f_3324) static void C_fcall f_3324(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3393) static void C_ccall f_3393(C_word c,C_word *av) C_noret; C_noret_decl(f_3395) static void C_ccall f_3395(C_word c,C_word *av) C_noret; C_noret_decl(f_3399) static void C_ccall f_3399(C_word c,C_word *av) C_noret; C_noret_decl(f_3410) static void C_ccall f_3410(C_word c,C_word *av) C_noret; C_noret_decl(f_3412) static void C_ccall f_3412(C_word c,C_word *av) C_noret; C_noret_decl(f_3416) static void C_ccall f_3416(C_word c,C_word *av) C_noret; C_noret_decl(f_3427) static void C_ccall f_3427(C_word c,C_word *av) C_noret; C_noret_decl(f_3429) static void C_ccall f_3429(C_word c,C_word *av) C_noret; C_noret_decl(f_3433) static void C_ccall f_3433(C_word c,C_word *av) C_noret; C_noret_decl(f_3448) static void C_ccall f_3448(C_word c,C_word *av) C_noret; C_noret_decl(f_3450) static void C_ccall f_3450(C_word c,C_word *av) C_noret; C_noret_decl(f_3454) static void C_ccall f_3454(C_word c,C_word *av) C_noret; C_noret_decl(f_3457) static void C_ccall f_3457(C_word c,C_word *av) C_noret; C_noret_decl(f_3467) static void C_fcall f_3467(C_word t0,C_word t1) C_noret; C_noret_decl(f_3475) static void C_ccall f_3475(C_word c,C_word *av) C_noret; C_noret_decl(f_3479) static void C_ccall f_3479(C_word c,C_word *av) C_noret; C_noret_decl(f_3491) static void C_ccall f_3491(C_word c,C_word *av) C_noret; C_noret_decl(f_3514) static void C_ccall f_3514(C_word c,C_word *av) C_noret; C_noret_decl(f_3516) static void C_ccall f_3516(C_word c,C_word *av) C_noret; C_noret_decl(f_3520) static void C_ccall f_3520(C_word c,C_word *av) C_noret; C_noret_decl(f_3523) static void C_ccall f_3523(C_word c,C_word *av) C_noret; C_noret_decl(f_3538) static void C_ccall f_3538(C_word c,C_word *av) C_noret; C_noret_decl(f_3546) static void C_ccall f_3546(C_word c,C_word *av) C_noret; C_noret_decl(f_3552) static void C_ccall f_3552(C_word c,C_word *av) C_noret; C_noret_decl(f_3555) static void C_ccall f_3555(C_word c,C_word *av) C_noret; C_noret_decl(f_3558) static void C_ccall f_3558(C_word c,C_word *av) C_noret; C_noret_decl(f_3561) static void C_ccall f_3561(C_word c,C_word *av) C_noret; C_noret_decl(f_3564) static void C_ccall f_3564(C_word c,C_word *av) C_noret; C_noret_decl(f_3567) static void C_ccall f_3567(C_word c,C_word *av) C_noret; C_noret_decl(f_3571) static void C_ccall f_3571(C_word c,C_word *av) C_noret; C_noret_decl(f_3583) static void C_ccall f_3583(C_word c,C_word *av) C_noret; C_noret_decl(f_3587) static void C_ccall f_3587(C_word c,C_word *av) C_noret; C_noret_decl(f_3589) static void C_ccall f_3589(C_word c,C_word *av) C_noret; C_noret_decl(f_3593) static void C_ccall f_3593(C_word c,C_word *av) C_noret; C_noret_decl(f_3602) static void C_fcall f_3602(C_word t0,C_word t1) C_noret; C_noret_decl(f_3610) static void C_ccall f_3610(C_word c,C_word *av) C_noret; C_noret_decl(f_3616) static void C_ccall f_3616(C_word c,C_word *av) C_noret; C_noret_decl(f_3623) static void C_ccall f_3623(C_word c,C_word *av) C_noret; C_noret_decl(f_3627) static void C_ccall f_3627(C_word c,C_word *av) C_noret; C_noret_decl(f_3629) static void C_fcall f_3629(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3652) static void C_ccall f_3652(C_word c,C_word *av) C_noret; C_noret_decl(f_3691) static void C_ccall f_3691(C_word c,C_word *av) C_noret; C_noret_decl(f_3714) static void C_fcall f_3714(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3739) static void C_ccall f_3739(C_word c,C_word *av) C_noret; C_noret_decl(f_3754) static void C_ccall f_3754(C_word c,C_word *av) C_noret; C_noret_decl(f_3756) static void C_ccall f_3756(C_word c,C_word *av) C_noret; C_noret_decl(f_3760) static void C_ccall f_3760(C_word c,C_word *av) C_noret; C_noret_decl(f_3775) static void C_ccall f_3775(C_word c,C_word *av) C_noret; C_noret_decl(f_3782) static void C_ccall f_3782(C_word c,C_word *av) C_noret; C_noret_decl(f_3818) static void C_ccall f_3818(C_word c,C_word *av) C_noret; C_noret_decl(f_3822) static void C_ccall f_3822(C_word c,C_word *av) C_noret; C_noret_decl(f_3836) static void C_ccall f_3836(C_word c,C_word *av) C_noret; C_noret_decl(f_3840) static void C_ccall f_3840(C_word c,C_word *av) C_noret; C_noret_decl(f_3842) static void C_ccall f_3842(C_word c,C_word *av) C_noret; C_noret_decl(f_3846) static void C_ccall f_3846(C_word c,C_word *av) C_noret; C_noret_decl(f_3861) static void C_ccall f_3861(C_word c,C_word *av) C_noret; C_noret_decl(f_3863) static void C_ccall f_3863(C_word c,C_word *av) C_noret; C_noret_decl(f_3870) static void C_fcall f_3870(C_word t0,C_word t1) C_noret; C_noret_decl(f_3873) static void C_fcall f_3873(C_word t0,C_word t1) C_noret; C_noret_decl(f_3879) static void C_ccall f_3879(C_word c,C_word *av) C_noret; C_noret_decl(f_3889) static void C_ccall f_3889(C_word c,C_word *av) C_noret; C_noret_decl(f_3936) static void C_ccall f_3936(C_word c,C_word *av) C_noret; C_noret_decl(f_3949) static void C_ccall f_3949(C_word c,C_word *av) C_noret; C_noret_decl(f_3979) static void C_ccall f_3979(C_word c,C_word *av) C_noret; C_noret_decl(f_3995) static void C_ccall f_3995(C_word c,C_word *av) C_noret; C_noret_decl(f_4007) static void C_fcall f_4007(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4054) static void C_ccall f_4054(C_word c,C_word *av) C_noret; C_noret_decl(f_4056) static void C_fcall f_4056(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4153) static void C_ccall f_4153(C_word c,C_word *av) C_noret; C_noret_decl(f_4157) static void C_ccall f_4157(C_word c,C_word *av) C_noret; C_noret_decl(f_4161) static void C_ccall f_4161(C_word c,C_word *av) C_noret; C_noret_decl(C_chicken_2dffi_2dsyntax_toplevel) C_externexport void C_ccall C_chicken_2dffi_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1659) static void C_ccall trf_1659(C_word c,C_word *av) C_noret; static void C_ccall trf_1659(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1659(t0,t1,t2);} C_noret_decl(trf_1667) static void C_ccall trf_1667(C_word c,C_word *av) C_noret; static void C_ccall trf_1667(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1667(t0,t1,t2,t3);} C_noret_decl(trf_1699) static void C_ccall trf_1699(C_word c,C_word *av) C_noret; static void C_ccall trf_1699(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1699(t0,t1,t2);} C_noret_decl(trf_1731) static void C_ccall trf_1731(C_word c,C_word *av) C_noret; static void C_ccall trf_1731(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1731(t0,t1,t2);} C_noret_decl(trf_1780) static void C_ccall trf_1780(C_word c,C_word *av) C_noret; static void C_ccall trf_1780(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1780(t0,t1,t2);} C_noret_decl(trf_2727) static void C_ccall trf_2727(C_word c,C_word *av) C_noret; static void C_ccall trf_2727(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2727(t0,t1);} C_noret_decl(trf_2901) static void C_ccall trf_2901(C_word c,C_word *av) C_noret; static void C_ccall trf_2901(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2901(t0,t1,t2);} C_noret_decl(trf_2992) static void C_ccall trf_2992(C_word c,C_word *av) C_noret; static void C_ccall trf_2992(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2992(t0,t1,t2);} C_noret_decl(trf_3087) static void C_ccall trf_3087(C_word c,C_word *av) C_noret; static void C_ccall trf_3087(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3087(t0,t1,t2);} C_noret_decl(trf_3178) static void C_ccall trf_3178(C_word c,C_word *av) C_noret; static void C_ccall trf_3178(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3178(t0,t1,t2);} C_noret_decl(trf_3227) static void C_ccall trf_3227(C_word c,C_word *av) C_noret; static void C_ccall trf_3227(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3227(t0,t1);} C_noret_decl(trf_3259) static void C_ccall trf_3259(C_word c,C_word *av) C_noret; static void C_ccall trf_3259(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3259(t0,t1);} C_noret_decl(trf_3290) static void C_ccall trf_3290(C_word c,C_word *av) C_noret; static void C_ccall trf_3290(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3290(t0,t1,t2);} C_noret_decl(trf_3324) static void C_ccall trf_3324(C_word c,C_word *av) C_noret; static void C_ccall trf_3324(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3324(t0,t1,t2);} C_noret_decl(trf_3467) static void C_ccall trf_3467(C_word c,C_word *av) C_noret; static void C_ccall trf_3467(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3467(t0,t1);} C_noret_decl(trf_3602) static void C_ccall trf_3602(C_word c,C_word *av) C_noret; static void C_ccall trf_3602(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3602(t0,t1);} C_noret_decl(trf_3629) static void C_ccall trf_3629(C_word c,C_word *av) C_noret; static void C_ccall trf_3629(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3629(t0,t1,t2,t3);} C_noret_decl(trf_3714) static void C_ccall trf_3714(C_word c,C_word *av) C_noret; static void C_ccall trf_3714(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3714(t0,t1,t2);} C_noret_decl(trf_3870) static void C_ccall trf_3870(C_word c,C_word *av) C_noret; static void C_ccall trf_3870(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3870(t0,t1);} C_noret_decl(trf_3873) static void C_ccall trf_3873(C_word c,C_word *av) C_noret; static void C_ccall trf_3873(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3873(t0,t1);} C_noret_decl(trf_4007) static void C_ccall trf_4007(C_word c,C_word *av) C_noret; static void C_ccall trf_4007(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4007(t0,t1,t2);} C_noret_decl(trf_4056) static void C_ccall trf_4056(C_word c,C_word *av) C_noret; static void C_ccall trf_4056(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4056(t0,t1,t2);} /* k1429 */ static void C_ccall f_1431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1431,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1434,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k1432 in k1429 */ static void C_ccall f_1434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1434,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1437,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k1435 in k1432 in k1429 */ static void C_ccall f_1437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1437,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1440,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_1440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1440,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1443,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_1443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_1443,2,av);} a=C_alloc(11); t2=C_a_i_provide(&a,1,lf[0]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2725,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:51: ##sys#macro-environment */ t4=*((C_word*)lf[97]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* foldr153 in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_1659(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_1659,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1667,a[2]=((C_word*)t0)[2],a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1686,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g158 in foldr153 in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_1667(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_1667,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1675,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:72: proc */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1673 in g158 in foldr153 in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_1675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1675,2,av);} /* mini-srfi-1.scm:72: scheme#append */ t2=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1684 in foldr153 in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_1686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1686,2,av);} /* mini-srfi-1.scm:72: g158 */ t2=((C_word*)t0)[2]; f_1667(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_1699(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,0,3)))){ C_save_and_reclaim_args((void *)trf_1699,3,t0,t1,t2);} a=C_alloc(25); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1854,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp); t5=( f_1854(t3) ); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1713,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=t2; t12=C_i_check_list_2(t11,lf[26]); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1778,a[2]=t6,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1780,a[2]=t9,a[3]=t15,a[4]=t10,a[5]=((C_word)li26),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_1780(t17,t13,t11);}} /* k1711 in loop in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_1713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_1713,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1717,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[3]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1729,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1731,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li25),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_1731(t13,t9,t8);} /* k1715 in k1711 in loop in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_1717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1717,2,av);} /* mini-srfi-1.scm:76: scheme#append */ t2=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1727 in k1711 in loop in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_1729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1729,2,av);} /* mini-srfi-1.scm:77: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1699(t2,((C_word*)t0)[3],t1);} /* map-loop195 in k1711 in loop in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_1731(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_1731,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1776 in loop in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_1778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1778,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* map-loop168 in loop in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_1780(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_1780,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in loop in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static C_word C_fcall f_1854(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t1))){ return(C_SCHEME_FALSE);} else{ t2=C_i_car(t1); t3=C_i_nullp(t2); if(C_truep(t3)){ return(t3);} else{ t4=t1; t5=C_u_i_cdr(t4); t7=t5; t1=t7; goto loop;}}} /* k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_2725,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2727,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2753,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4161,a[2]=t4,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:66: chicken.base#alist-ref */ t6=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=lf[88]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* compiler-only-er-transformer in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_2727(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_2727,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2733,a[2]=t2,a[3]=((C_word)li0),tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:57: ##sys#er-transformer */ t4=*((C_word*)lf[5]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a2732 in compiler-only-er-transformer in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_2733,5,av);} a=C_alloc(7); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2740,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* chicken-ffi-syntax.scm:59: chicken.platform#feature? */ t6=*((C_word*)lf[3]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2738 in a2732 in compiler-only-er-transformer in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2740,2,av);} if(C_truep(t1)){ /* chicken-ffi-syntax.scm:60: transformer */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=C_i_car(((C_word*)t0)[4]); /* chicken-ffi-syntax.scm:61: chicken.syntax#syntax-error */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=lf[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2753,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2756,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3840,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3842,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:106: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2756,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2759,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3836,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:113: chicken.base#alist-ref */ t4=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[80]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2759,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2762,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3587,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3589,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:131: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2762,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2765,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3583,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:166: chicken.base#alist-ref */ t4=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[59]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2765,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2768,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3448,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3450,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:182: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2768,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2771,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3427,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3429,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:208: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2771,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2774,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3410,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3412,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:219: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2774,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2777,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3393,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3395,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:227: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2777,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2780,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3218,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3220,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:235: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2780,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2783,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3127,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3129,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:254: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2783,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2786,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3032,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3034,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:268: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2786,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2789,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2941,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2943,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:285: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2789,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2792,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2846,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2848,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:299: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2790 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_2792,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2795,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2802,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2804,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:314: compiler-only-er-transformer */ f_2727(t3,t4);} /* k2793 in k2790 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2795,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2798,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:329: chicken.internal#macro-subset */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2796 in k2793 in k2790 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_ccall f_2798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2798,2,av);} t2=C_mutate((C_word*)lf[6]+1 /* (set! ##sys#chicken-ffi-macro-environment ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2800 in k2790 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2802,2,av);} /* chicken-ffi-syntax.scm:311: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[9]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a2803 in k2790 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2804,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2808,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:316: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[9]; av2[3]=t2; av2[4]=lf[24]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k2806 in a2803 in k2790 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_ccall f_2808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2808,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2811,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* chicken-ffi-syntax.scm:317: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2809 in k2806 in a2803 in k2790 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in ... */ static void C_ccall f_2811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2811,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2814,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:318: chicken.base#gensym */ t4=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[21]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2812 in k2809 in k2806 in a2803 in k2790 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in ... */ static void C_ccall f_2814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2814,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2817,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_stringp(((C_word*)t0)[3]))){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[3]; f_2817(2,av2);}} else{ /* chicken-ffi-syntax.scm:323: chicken.compiler.c-backend#foreign-type-declaration */ t4=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[19]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k2815 in k2812 in k2809 in k2806 in a2803 in k2790 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in ... */ static void C_ccall f_2817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2817,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2832,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:325: scheme#string-append */ t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[16]; av2[3]=t1; av2[4]=lf[17]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2830 in k2815 in k2812 in k2809 in k2806 in a2803 in k2790 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in ... */ static void C_ccall f_2832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ C_save_and_reclaim((void *)f_2832,2,av);} a=C_alloc(33); t2=C_a_i_list(&a,4,lf[10],((C_word*)t0)[2],lf[11],t1); t3=C_a_i_list(&a,4,lf[12],lf[13],C_SCHEME_FALSE,((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[14],t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2844 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2846,2,av);} /* chicken-ffi-syntax.scm:296: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[25]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a2847 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2848,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2852,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:301: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[25]; av2[3]=t2; av2[4]=lf[32]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k2850 in a2847 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_2852,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2881,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=C_i_caddr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:305: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k2879 in k2850 in a2847 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_ccall f_2881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_2881,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[26]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2887,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2901,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li3),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_2901(t7,t3,t1);} /* k2885 in k2879 in k2850 in a2847 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in ... */ static void C_ccall f_2887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_2887,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2891,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2895,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:307: chicken.syntax#strip-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2889 in k2885 in k2879 in k2850 in a2847 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in ... */ static void C_ccall f_2891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_2891,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,3,lf[27],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[28],t4); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[12],t2,C_SCHEME_FALSE,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2893 in k2885 in k2879 in k2850 in a2847 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in ... */ static void C_ccall f_2895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2895,2,av);} /* chicken-ffi-syntax.scm:306: chicken.compiler.support#foreign-type->scrutiny-type */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[30]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1017 in k2879 in k2850 in a2847 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in ... */ static void C_fcall f_2901(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2901,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2926,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_car(t4); /* chicken-ffi-syntax.scm:304: chicken.compiler.support#foreign-type->scrutiny-type */ t6=*((C_word*)lf[29]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[31]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2924 in map-loop1017 in k2879 in k2850 in a2847 in k2787 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in ... */ static void C_ccall f_2926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2926,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2901(t6,((C_word*)t0)[5],t5);} /* k2939 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2941,2,av);} /* chicken-ffi-syntax.scm:282: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[33]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a2942 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2943,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2947,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:287: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[33]; av2[3]=t2; av2[4]=lf[35]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k2945 in a2942 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_2947,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2972,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=C_i_cdddr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:290: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k2970 in k2945 in a2942 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_2972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_2972,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[26]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2978,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2992,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li5),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_2992(t7,t3,t1);} /* k2976 in k2970 in k2945 in a2942 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_ccall f_2978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_2978,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2982,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2986,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:292: chicken.syntax#strip-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2980 in k2976 in k2970 in k2945 in a2942 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in ... */ static void C_ccall f_2982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_2982,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,3,lf[27],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[34],t4); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[12],t2,C_SCHEME_FALSE,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2984 in k2976 in k2970 in k2945 in a2942 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in ... */ static void C_ccall f_2986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2986,2,av);} /* chicken-ffi-syntax.scm:291: chicken.compiler.support#foreign-type->scrutiny-type */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[30]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop976 in k2970 in k2945 in a2942 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_fcall f_2992(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2992,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3017,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[29]+1); /* chicken-ffi-syntax.scm:289: g999 */ t6=*((C_word*)lf[29]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[31]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3015 in map-loop976 in k2970 in k2945 in a2942 in k2784 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in ... */ static void C_ccall f_3017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3017,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2992(t6,((C_word*)t0)[5],t5);} /* k3030 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3032,2,av);} /* chicken-ffi-syntax.scm:265: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[36]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3033 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3034,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3038,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:270: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[36]; av2[3]=t2; av2[4]=lf[38]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3036 in a3033 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_3038,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3067,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=C_i_caddr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:276: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k3065 in k3036 in a3033 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_3067,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[26]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3073,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3087,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li7),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_3087(t7,t3,t1);} /* k3071 in k3065 in k3036 in a3033 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3073,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3077,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3081,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:278: chicken.syntax#strip-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3075 in k3071 in k3065 in k3036 in a3033 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_ccall f_3077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_3077,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,3,lf[27],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[37],t4); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[12],t2,C_SCHEME_FALSE,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k3079 in k3071 in k3065 in k3036 in a3033 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_ccall f_3081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3081,2,av);} /* chicken-ffi-syntax.scm:277: chicken.compiler.support#foreign-type->scrutiny-type */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[30]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop942 in k3065 in k3036 in a3033 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_3087(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3087,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3112,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_car(t4); /* chicken-ffi-syntax.scm:273: chicken.compiler.support#foreign-type->scrutiny-type */ t6=*((C_word*)lf[29]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=lf[31]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3110 in map-loop942 in k3065 in k3036 in a3033 in k2781 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_ccall f_3112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3112,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3087(t6,((C_word*)t0)[5],t5);} /* k3125 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3127,2,av);} /* chicken-ffi-syntax.scm:251: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[39]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3128 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3129,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3133,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:256: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[39]; av2[3]=t2; av2[4]=lf[41]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3131 in a3128 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_3133,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3158,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=C_i_cdddr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:259: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k3156 in k3131 in a3128 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_3158,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[26]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3164,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3178,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li9),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_3178(t7,t3,t1);} /* k3162 in k3156 in k3131 in a3128 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3164,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3168,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3172,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:261: chicken.syntax#strip-syntax */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3166 in k3162 in k3156 in k3131 in a3128 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_3168,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,3,lf[27],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[40],t4); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[12],t2,C_SCHEME_FALSE,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k3170 in k3162 in k3156 in k3131 in a3128 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3172,2,av);} /* chicken-ffi-syntax.scm:260: chicken.compiler.support#foreign-type->scrutiny-type */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[30]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop901 in k3156 in k3131 in a3128 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_3178(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3178,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3203,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[29]+1); /* chicken-ffi-syntax.scm:258: g924 */ t6=*((C_word*)lf[29]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[31]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3201 in map-loop901 in k3156 in k3131 in a3128 in k2778 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3203,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3178(t6,((C_word*)t0)[5],t5);} /* k3216 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3218,2,av);} /* chicken-ffi-syntax.scm:232: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[42]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3220,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3224,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:237: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[42]; av2[3]=t2; av2[4]=lf[45]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3222 in a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3224,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3227,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t3))){ t4=C_i_caddr(((C_word*)t0)[2]); t5=C_i_stringp(t4); t6=t2; f_3227(t6,C_i_not(t5));} else{ t4=t2; f_3227(t4,C_SCHEME_FALSE);}} /* k3225 in k3222 in a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_3227(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3227,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3230,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_car(t5); /* chicken-ffi-syntax.scm:239: chicken.syntax#strip-syntax */ t7=*((C_word*)lf[22]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t3; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_3230(2,av2);}}} /* k3228 in k3225 in k3222 in a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3230,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3233,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[4])){ t4=C_i_caddr(((C_word*)t0)[2]); /* chicken-ffi-syntax.scm:240: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_car(t5); /* chicken-ffi-syntax.scm:240: chicken.syntax#strip-syntax */ t7=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t3; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k3231 in k3228 in k3225 in k3222 in a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_3233,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=C_i_check_list_2(t1,lf[26]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3242,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3324,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li12),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_3324(t11,t7,t1);} /* k3240 in k3231 in k3228 in k3225 in k3222 in a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_3242,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3259,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(t1,lf[26]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3274,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3290,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li11),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_3290(t12,t8,t1);} /* k3257 in k3240 in k3231 in k3228 in k3225 in k3222 in a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_fcall f_3259(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,1)))){ C_save_and_reclaim_args((void *)trf_3259,2,t0,t1);} a=C_alloc(18); t2=C_a_i_cons(&a,2,lf[27],t1); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,lf[43],t4); t6=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[12],t2,C_SCHEME_FALSE,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k3272 in k3240 in k3231 in k3228 in k3225 in k3222 in a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_ccall f_3274(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3274,2,av);} a=C_alloc(4); t2=t1; if(C_truep(C_i_not(((C_word*)t0)[2]))){ t3=((C_word*)t0)[3]; f_3259(t3,C_a_i_cons(&a,2,t2,lf[44]));} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3288,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:247: chicken.compiler.support#foreign-type->scrutiny-type */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=lf[30]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k3286 in k3272 in k3240 in k3231 in k3228 in k3225 in k3222 in a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in ... */ static void C_ccall f_3288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_3288,2,av);} a=C_alloc(6); t2=C_a_i_list1(&a,1,t1); t3=((C_word*)t0)[2]; f_3259(t3,C_a_i_cons(&a,2,((C_word*)t0)[3],t2));} /* map-loop860 in k3240 in k3231 in k3228 in k3225 in k3222 in a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_fcall f_3290(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3290,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3315,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[29]+1); /* chicken-ffi-syntax.scm:243: g883 */ t6=*((C_word*)lf[29]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[31]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3313 in map-loop860 in k3240 in k3231 in k3228 in k3225 in k3222 in a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in ... */ static void C_ccall f_3315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3315,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3290(t6,((C_word*)t0)[5],t5);} /* map-loop831 in k3231 in k3228 in k3225 in k3222 in a3219 in k2775 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_3324(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_3324,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3391 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3393,2,av);} /* chicken-ffi-syntax.scm:224: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[46]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3394 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3395,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3399,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:229: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[46]; av2[3]=t2; av2[4]=lf[47]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3397 in a3394 in k2772 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3399,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[10],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3408 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3410,2,av);} /* chicken-ffi-syntax.scm:216: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[48]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3411 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3412,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3416,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:221: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[48]; av2[3]=t2; av2[4]=lf[50]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3414 in a3411 in k2769 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3416,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[49],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3425 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3427,2,av);} /* chicken-ffi-syntax.scm:205: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[51]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3428 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3429,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3433,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:210: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[51]; av2[3]=t2; av2[4]=lf[53]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3431 in a3428 in k2766 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_3433,2,av);} a=C_alloc(9); t2=C_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[51],t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,2,lf[52],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3446 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3448,2,av);} /* chicken-ffi-syntax.scm:179: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[54]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3449 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3450,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3454,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:184: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[54]; av2[3]=t2; av2[4]=lf[58]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3452 in a3449 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3454,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3457,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:185: chicken.base#gensym */ t3=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[57]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3455 in k3452 in a3449 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_3457,2,av);} a=C_alloc(22); t2=t1; t3=C_i_cadr(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3467,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_caddr(((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3491,a[2]=t4,a[3]=t2,a[4]=t6,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_stringp(t3))){ t8=t4; f_3467(t8,C_a_i_list(&a,4,lf[10],t2,t6,t3));} else{ if(C_truep(C_i_symbolp(t3))){ /* chicken-ffi-syntax.scm:191: scheme#symbol->string */ t8=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* chicken-ffi-syntax.scm:193: chicken.syntax#syntax-error */ t8=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=lf[54]; av2[3]=lf[56]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}} /* k3465 in k3455 in k3452 in a3449 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_3467(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_3467,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3475,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3479,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_caddr(((C_word*)t0)[4]); /* chicken-ffi-syntax.scm:198: chicken.syntax#strip-syntax */ t6=*((C_word*)lf[22]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3473 in k3465 in k3455 in k3452 in a3449 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_3475,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,4,lf[12],t1,C_SCHEME_FALSE,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[14],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3477 in k3465 in k3455 in k3452 in a3449 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3479,2,av);} /* chicken-ffi-syntax.scm:197: chicken.compiler.support#foreign-type->scrutiny-type */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[30]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3489 in k3455 in k3452 in a3449 in k2763 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_3491,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; f_3467(t2,C_a_i_list(&a,4,lf[10],((C_word*)t0)[3],((C_word*)t0)[4],t1));} /* k3512 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3514,2,av);} /* chicken-ffi-syntax.scm:164: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[60]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_3516,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3520,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:169: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[60]; av2[3]=t2; av2[4]=lf[72]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3518 in a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3520,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3523,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:170: chicken.base#gensym */ t3=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[71]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3521 in k3518 in a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3523,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3538,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:172: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[59]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3536 in k3521 in k3518 in a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3538,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3546,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-ffi-syntax.scm:174: chicken.base#open-output-string */ t4=*((C_word*)lf[70]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3544 in k3536 in k3521 in k3518 in a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3546,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[61]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3552,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* chicken-ffi-syntax.scm:174: ##sys#print */ t6=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[69]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3550 in k3544 in k3536 in k3521 in k3518 in a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3552,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* chicken-ffi-syntax.scm:174: ##sys#print */ t3=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3553 in k3550 in k3544 in k3536 in k3521 in k3518 in a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3555,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3558,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* chicken-ffi-syntax.scm:174: ##sys#print */ t3=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[68]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3556 in k3553 in k3550 in k3544 in k3536 in k3521 in k3518 in a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_3558,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3571,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[7]); /* chicken-ffi-syntax.scm:176: chicken.string#string-intersperse */ t5=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[67]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k3559 in k3556 in k3553 in k3550 in k3544 in k3536 in k3521 in k3518 in a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3561,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3564,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-ffi-syntax.scm:174: ##sys#print */ t3=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[65]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3562 in k3559 in k3556 in k3553 in k3550 in k3544 in k3536 in k3521 in k3518 in a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3564,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3567,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:174: chicken.base#get-output-string */ t3=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3565 in k3562 in k3559 in k3556 in k3553 in k3550 in k3544 in k3536 in k3521 in k3518 in a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 in ... */ static void C_ccall f_3567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_3567,2,av);} a=C_alloc(27); t2=C_a_i_list(&a,2,lf[51],t1); t3=C_a_i_list(&a,2,((C_word*)t0)[2],t2); t4=C_a_i_list(&a,2,lf[62],((C_word*)t0)[3]); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[14],t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k3569 in k3556 in k3553 in k3550 in k3544 in k3536 in k3521 in k3518 in a3515 in k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3571,2,av);} /* chicken-ffi-syntax.scm:174: ##sys#print */ t2=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3581 in k2760 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_3583,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,lf[59],t1); t3=C_a_i_list(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3514,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3516,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:167: compiler-only-er-transformer */ f_2727(t5,t6);} /* k3585 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3587,2,av);} /* chicken-ffi-syntax.scm:128: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[74]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_3589,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3593,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:133: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[74]; av2[3]=t2; av2[4]=lf[79]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_3593,2,av);} a=C_alloc(23); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3602,a[2]=((C_word*)t0)[3],a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp); t12=C_i_check_list_2(t3,lf[26]); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3616,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3714,a[2]=t9,a[3]=t15,a[4]=t11,a[5]=t10,a[6]=((C_word)li28),tmp=(C_word)a,a+=7,tmp)); t17=((C_word*)t15)[1]; f_3714(t17,t13,t3);} /* g720 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_3602(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3602,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3610,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:136: chicken.base#gensym */ t3=*((C_word*)lf[20]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3608 in g720 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3610,2,av);} /* chicken-ffi-syntax.scm:136: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_3616,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3623,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3691,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp); t5=t4; t6=C_a_i_list(&a,1,t2); if(C_truep(C_i_nullp(t6))){ t7=C_i_check_list_2(((C_word*)t0)[4],lf[77]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1659,a[2]=t5,a[3]=t9,a[4]=((C_word)li23),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_1659(t11,t3,((C_word*)t0)[4]);} else{ t7=C_a_i_cons(&a,2,((C_word*)t0)[4],t6); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1699,a[2]=t9,a[3]=t5,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_1699(t11,t3,t7);}} /* k3621 in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_3623,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3627,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3629,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word)li20),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_3629(t7,t3,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k3625 in k3621 in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_3627,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[75],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k3621 in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_3629(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3629,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,lf[75],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=C_i_car(t3); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3652,a[2]=t5,a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); t9=t2; t10=C_u_i_cdr(t9); t11=t3; t12=C_u_i_cdr(t11); /* chicken-ffi-syntax.scm:149: loop */ t14=t8; t15=t10; t16=t12; t1=t14; t2=t15; t3=t16; goto loop;}} /* k3650 in loop in k3621 in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_3652,2,av);} a=C_alloc(15); t2=C_i_length(((C_word*)t0)[2]); t3=C_eqp(C_fix(3),t2); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[2]); t5=C_i_cadr(((C_word*)t0)[2]); t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,5,lf[76],t4,t5,((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=C_i_car(((C_word*)t0)[2]); t5=C_i_cadr(((C_word*)t0)[2]); t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,4,lf[76],t4,t5,t1); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* a3690 in k3614 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_3691,4,av);} a=C_alloc(6); t4=C_i_cddr(t2); if(C_truep(C_i_pairp(t4))){ t5=t2; t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); t8=C_a_i_cons(&a,2,t3,t7); t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_a_i_list1(&a,1,t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* map-loop714 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_3714(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3714,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3739,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-ffi-syntax.scm:136: g720 */ t4=((C_word*)t0)[4]; f_3602(t4,t3);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3737 in map-loop714 in k3591 in a3588 in k2757 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3739,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3714(t6,((C_word*)t0)[5],t5);} /* k3752 in k3834 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3754,2,av);} /* chicken-ffi-syntax.scm:111: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[81]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3755 in k3834 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_3756,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3760,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:116: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[81]; av2[3]=t2; av2[4]=lf[84]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3758 in a3755 in k3834 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_3760,2,av);} a=C_alloc(11); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=C_i_caddr(((C_word*)t0)[2]); t5=t4; t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); t9=C_u_i_cdr(t8); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_SCHEME_FALSE:C_i_car(t9)); t12=t11; t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3775,a[2]=t3,a[3]=t5,a[4]=t12,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3822,a[2]=((C_word*)t0)[4],a[3]=t13,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:120: chicken.base#gensym */ t15=*((C_word*)lf[20]+1);{ C_word *av2=av; av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} /* k3773 in k3758 in a3755 in k3834 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3775,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3782,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-ffi-syntax.scm:121: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[80]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3780 in k3773 in k3758 in a3755 in k3834 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3782,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3818,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* chicken-ffi-syntax.scm:122: scheme#symbol->string */ t4=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3816 in k3780 in k3773 in k3758 in a3755 in k3834 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(48,c,1)))){ C_save_and_reclaim((void *)f_3818,2,av);} a=C_alloc(48); t2=C_a_i_list(&a,4,lf[10],((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_a_i_list(&a,5,lf[82],((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4]); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t4=C_u_i_car(((C_word*)t0)[5]); t5=C_a_i_list(&a,3,lf[83],((C_word*)t0)[2],t4); t6=C_a_i_list(&a,1,t5); t7=C_a_i_cons(&a,2,t3,t6); t8=C_a_i_cons(&a,2,t2,t7); t9=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t9; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[7],t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); t5=C_a_i_cons(&a,2,t2,t4); t6=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[7],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k3820 in k3758 in a3755 in k3834 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3822,2,av);} /* chicken-ffi-syntax.scm:120: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3834 in k2754 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_3836,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,lf[80],t1); t3=C_a_i_list(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3754,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3756,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:114: compiler-only-er-transformer */ f_2727(t5,t6);} /* k3838 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3840,2,av);} /* chicken-ffi-syntax.scm:103: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[85]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3841 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3842,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3846,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-ffi-syntax.scm:108: ##sys#check-syntax */ t6=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[85]; av2[3]=t2; av2[4]=lf[87]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k3844 in a3841 in k2751 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_3846,2,av);} a=C_alloc(6); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[86],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3859 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3861,2,av);} /* chicken-ffi-syntax.scm:64: ##sys#extend-macro-environment */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[90]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3863,5,av);} a=C_alloc(5); t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3870,a[2]=t6,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t6))){ t8=C_u_i_car(t6); t9=t7; f_3870(t9,C_i_stringp(t8));} else{ t8=t7; f_3870(t8,C_SCHEME_FALSE);}} /* k3868 in a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_3870(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3870,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3873,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_not(t2))){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t4=C_u_i_car(((C_word*)t0)[2]); t5=t3; f_3873(t5,C_i_symbolp(t4));} else{ t4=t3; f_3873(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_3873(t4,C_SCHEME_FALSE);}} /* k3871 in k3868 in a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_3873(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_3873,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3879,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:75: ##sys#check-syntax */ t3=*((C_word*)lf[23]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[90]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[91]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3936,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ /* chicken-ffi-syntax.scm:85: ##sys#check-syntax */ t3=*((C_word*)lf[23]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[90]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[95]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* chicken-ffi-syntax.scm:86: ##sys#check-syntax */ t3=*((C_word*)lf[23]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[90]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[96]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} /* k3877 in k3871 in k3868 in a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3879,2,av);} a=C_alloc(5); t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3889,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-ffi-syntax.scm:77: r */ t5=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[80]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3887 in k3877 in k3871 in k3868 in a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){ C_save_and_reclaim((void *)f_3889,2,av);} a=C_alloc(42); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[10],((C_word*)t0)[3],t2); t4=C_u_i_cdr(((C_word*)t0)[2]); t5=C_u_i_car(t4); t6=C_a_i_list(&a,4,lf[82],((C_word*)t0)[3],t5,C_SCHEME_TRUE); t7=C_u_i_cdr(((C_word*)t0)[2]); t8=C_u_i_cdr(t7); if(C_truep(C_i_pairp(t8))){ t9=C_i_caddr(((C_word*)t0)[2]); t10=C_a_i_list(&a,3,lf[83],((C_word*)t0)[3],t9); t11=C_a_i_list(&a,1,t10); t12=C_a_i_cons(&a,2,t6,t11); t13=C_a_i_cons(&a,2,t3,t12); t14=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t14; av2[1]=C_a_i_cons(&a,2,t1,t13); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t9=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST); t10=C_a_i_cons(&a,2,t3,t9); t11=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t11; av2[1]=C_a_i_cons(&a,2,t1,t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} /* k3934 in k3871 in k3868 in a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3936,2,av);} a=C_alloc(8); t2=(C_truep(((C_word*)t0)[2])?C_i_cadr(((C_word*)t0)[3]):C_i_car(((C_word*)t0)[3])); t3=t2; t4=C_i_cdr(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3949,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t5,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* chicken-ffi-syntax.scm:89: r */ t7=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[88]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k3947 in k3934 in k3871 in k3868 in a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,c,3)))){ C_save_and_reclaim((void *)f_3949,2,av);} a=C_alloc(37); t2=t1; t3=C_u_i_car(((C_word*)t0)[2]); t4=C_u_i_car(((C_word*)t0)[2]); t5=C_a_i_list(&a,2,lf[92],t4); t6=t5; t7=(C_truep(((C_word*)t0)[3])?C_i_car(((C_word*)t0)[4]):lf[93]); t8=t7; t9=(C_truep(((C_word*)t0)[3])?C_i_caddr(((C_word*)t0)[4]):C_i_cadr(((C_word*)t0)[4])); t10=C_a_i_list(&a,2,lf[92],t9); t11=t10; t12=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t13=t12; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=((C_word*)t14)[1]; t16=C_i_check_list_2(((C_word*)t0)[5],lf[26]); t17=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4054,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t6,a[5]=t8,a[6]=t11,a[7]=((C_word*)t0)[6],a[8]=t2,a[9]=t3,a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4056,a[2]=t14,a[3]=t19,a[4]=t15,a[5]=((C_word)li33),tmp=(C_word)a,a+=6,tmp)); t21=((C_word*)t19)[1]; f_4056(t21,t17,((C_word*)t0)[5]);} /* k3977 in k4052 in k3947 in k3934 in k3871 in k3868 in a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_3979,2,av);} a=C_alloc(25); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3995,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4007,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li32),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_4007(t11,t7,((C_word*)t0)[11]);} /* k3993 in k3977 in k4052 in k3947 in k3934 in k3871 in k3868 in a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_3995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ C_save_and_reclaim((void *)f_3995,2,av);} a=C_alloc(33); t2=(C_truep(((C_word*)t0)[2])?C_i_cdddr(((C_word*)t0)[3]):C_i_cddr(((C_word*)t0)[3])); t3=C_a_i_cons(&a,2,t1,t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); t5=C_a_i_list(&a,6,lf[94],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t4); t6=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,3,((C_word*)t0)[10],((C_word*)t0)[11],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* map-loop652 in k3977 in k4052 in k3947 in k3934 in k3871 in k3868 in a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_4007(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_4007,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cadr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4052 in k3947 in k3934 in k3871 in k3868 in a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_4054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_4054,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,2,lf[92],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* chicken-ffi-syntax.scm:95: r */ t5=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[89]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* map-loop625 in k3947 in k3934 in k3871 in k3868 in a3862 in k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_fcall f_4056(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_4056,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4151 in k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_4153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,5)))){ C_save_and_reclaim((void *)f_4153,2,av);} a=C_alloc(19); t2=C_a_i_cons(&a,2,lf[89],t1); t3=C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3861,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3863,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp); /* chicken-ffi-syntax.scm:69: compiler-only-er-transformer */ f_2727(t5,t6);} /* k4155 in k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_4157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4157,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,lf[80],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4153,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-ffi-syntax.scm:68: chicken.base#alist-ref */ t5=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[89]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k4159 in k2723 in k1441 in k1438 in k1435 in k1432 in k1429 */ static void C_ccall f_4161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4161,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,lf[88],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4157,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-ffi-syntax.scm:67: chicken.base#alist-ref */ t5=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[80]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_chicken_2dffi_2dsyntax_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("chicken-ffi-syntax")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_chicken_2dffi_2dsyntax_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1118))){ C_save(t1); C_rereclaim2(1118*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,98); lf[0]=C_h_intern(&lf[0],18, C_text("chicken-ffi-syntax")); lf[1]=C_h_intern(&lf[1],27, C_text("chicken.syntax#syntax-error")); lf[2]=C_decode_literal(C_heaptop,C_text("\376B\000\000,The FFI is not supported in interpreted mode")); lf[3]=C_h_intern(&lf[3],25, C_text("chicken.platform#feature\077")); lf[4]=C_h_intern(&lf[4],9, C_text("compiling")); lf[5]=C_h_intern(&lf[5],20, C_text("##sys#er-transformer")); lf[6]=C_h_intern(&lf[6],35, C_text("##sys#chicken-ffi-macro-environment")); lf[7]=C_h_intern(&lf[7],29, C_text("chicken.internal#macro-subset")); lf[8]=C_h_intern(&lf[8],30, C_text("##sys#extend-macro-environment")); lf[9]=C_h_intern(&lf[9],17, C_text("foreign-type-size")); lf[10]=C_h_intern(&lf[10],30, C_text("##core#define-foreign-variable")); lf[11]=C_h_intern(&lf[11],6, C_text("size_t")); lf[12]=C_h_intern(&lf[12],10, C_text("##core#the")); lf[13]=C_h_intern(&lf[13],6, C_text("fixnum")); lf[14]=C_h_intern(&lf[14],12, C_text("##core#begin")); lf[15]=C_h_intern(&lf[15],20, C_text("scheme#string-append")); lf[16]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007sizeof(")); lf[17]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[18]=C_h_intern(&lf[18],51, C_text("chicken.compiler.c-backend#foreign-type-declaration")); lf[19]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[20]=C_h_intern(&lf[20],19, C_text("chicken.base#gensym")); lf[21]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005code_")); lf[22]=C_h_intern(&lf[22],27, C_text("chicken.syntax#strip-syntax")); lf[23]=C_h_intern(&lf[23],18, C_text("##sys#check-syntax")); lf[24]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[25]=C_h_intern(&lf[25],20, C_text("foreign-safe-lambda\052")); lf[26]=C_h_intern(&lf[26],3, C_text("map")); lf[27]=C_h_intern(&lf[27],9, C_text("procedure")); lf[28]=C_h_intern(&lf[28],27, C_text("##core#foreign-safe-lambda\052")); lf[29]=C_h_intern(&lf[29],52, C_text("chicken.compiler.support#foreign-type->scrutiny-type")); lf[30]=C_h_intern(&lf[30],6, C_text("result")); lf[31]=C_h_intern(&lf[31],3, C_text("arg")); lf[32]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[33]=C_h_intern(&lf[33],19, C_text("foreign-safe-lambda")); lf[34]=C_h_intern(&lf[34],26, C_text("##core#foreign-safe-lambda")); lf[35]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[36]=C_h_intern(&lf[36],15, C_text("foreign-lambda\052")); lf[37]=C_h_intern(&lf[37],22, C_text("##core#foreign-lambda\052")); lf[38]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[39]=C_h_intern(&lf[39],14, C_text("foreign-lambda")); lf[40]=C_h_intern(&lf[40],21, C_text("##core#foreign-lambda")); lf[41]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[42]=C_h_intern(&lf[42],17, C_text("foreign-primitive")); lf[43]=C_h_intern(&lf[43],24, C_text("##core#foreign-primitive")); lf[44]=C_h_intern(&lf[44],1, C_text("\052")); lf[45]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[46]=C_h_intern(&lf[46],23, C_text("define-foreign-variable")); lf[47]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\006\001symbol\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\003\376\001\000\000\006\001string\376\377\001\000\000\000\000\376\377\001\000\000\000\001")); lf[48]=C_h_intern(&lf[48],19, C_text("define-foreign-type")); lf[49]=C_h_intern(&lf[49],26, C_text("##core#define-foreign-type")); lf[50]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\006\001symbol\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\003\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\002")); lf[51]=C_h_intern(&lf[51],15, C_text("foreign-declare")); lf[52]=C_h_intern(&lf[52],14, C_text("##core#declare")); lf[53]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\006\001string\376\377\001\000\000\000\000")); lf[54]=C_h_intern(&lf[54],13, C_text("foreign-value")); lf[55]=C_h_intern(&lf[55],21, C_text("scheme#symbol->string")); lf[56]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052bad argument type - not a string or symbol")); lf[57]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005code_")); lf[58]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[59]=C_h_intern(&lf[59],7, C_text("declare")); lf[60]=C_h_intern(&lf[60],12, C_text("foreign-code")); lf[61]=C_h_intern(&lf[61],6, C_text("format")); lf[62]=C_h_intern(&lf[62],13, C_text("##core#inline")); lf[63]=C_h_intern(&lf[63],30, C_text("chicken.base#get-output-string")); lf[64]=C_h_intern(&lf[64],11, C_text("##sys#print")); lf[65]=C_decode_literal(C_heaptop,C_text("\376B\000\000 \012; return C_SCHEME_UNDEFINED; }\012")); lf[66]=C_h_intern(&lf[66],33, C_text("chicken.string#string-intersperse")); lf[67]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005() { ")); lf[69]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016static C_word ")); lf[70]=C_h_intern(&lf[70],31, C_text("chicken.base#open-output-string")); lf[71]=C_h_intern(&lf[71],5, C_text("code_")); lf[72]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\006\001string\376\377\001\000\000\000\000")); lf[73]=C_h_intern(&lf[73],22, C_text("chicken.base#alist-ref")); lf[74]=C_h_intern(&lf[74],12, C_text("let-location")); lf[75]=C_h_intern(&lf[75],10, C_text("##core#let")); lf[76]=C_h_intern(&lf[76],19, C_text("##core#let-location")); lf[77]=C_h_intern(&lf[77],5, C_text("foldr")); lf[78]=C_h_intern(&lf[78],13, C_text("scheme#append")); lf[79]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\003\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001\376" "\377\001\000\000\000\000\376\001\000\000\001\001_")); lf[80]=C_h_intern(&lf[80],5, C_text("begin")); lf[81]=C_h_intern(&lf[81],15, C_text("define-location")); lf[82]=C_h_intern(&lf[82],31, C_text("##core#define-external-variable")); lf[83]=C_h_intern(&lf[83],11, C_text("##core#set!")); lf[84]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\003\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001")); lf[85]=C_h_intern(&lf[85],8, C_text("location")); lf[86]=C_h_intern(&lf[86],15, C_text("##core#location")); lf[87]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001location\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[88]=C_h_intern(&lf[88],6, C_text("define")); lf[89]=C_h_intern(&lf[89],6, C_text("lambda")); lf[90]=C_h_intern(&lf[90],15, C_text("define-external")); lf[91]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001symbol\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\003\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001")); lf[92]=C_h_intern(&lf[92],12, C_text("##core#quote")); lf[93]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[94]=C_h_intern(&lf[94],31, C_text("##core#foreign-callback-wrapper")); lf[95]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001symbol\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\006\001symbol\376\377\016\376\377\001\000" "\000\000\000\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[96]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001symbol\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\006\001symbol\376\377\016\376\377\001\000\000\000\000\376\003\000\000\002\376\001\000\000\001\001_\376\000" "\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[97]=C_h_intern(&lf[97],23, C_text("##sys#macro-environment")); C_register_lf2(lf,98,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1431,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[166] = { {C_text("f_1431:chicken_2dffi_2dsyntax_2escm"),(void*)f_1431}, {C_text("f_1434:chicken_2dffi_2dsyntax_2escm"),(void*)f_1434}, {C_text("f_1437:chicken_2dffi_2dsyntax_2escm"),(void*)f_1437}, {C_text("f_1440:chicken_2dffi_2dsyntax_2escm"),(void*)f_1440}, {C_text("f_1443:chicken_2dffi_2dsyntax_2escm"),(void*)f_1443}, {C_text("f_1659:chicken_2dffi_2dsyntax_2escm"),(void*)f_1659}, {C_text("f_1667:chicken_2dffi_2dsyntax_2escm"),(void*)f_1667}, {C_text("f_1675:chicken_2dffi_2dsyntax_2escm"),(void*)f_1675}, {C_text("f_1686:chicken_2dffi_2dsyntax_2escm"),(void*)f_1686}, {C_text("f_1699:chicken_2dffi_2dsyntax_2escm"),(void*)f_1699}, {C_text("f_1713:chicken_2dffi_2dsyntax_2escm"),(void*)f_1713}, {C_text("f_1717:chicken_2dffi_2dsyntax_2escm"),(void*)f_1717}, {C_text("f_1729:chicken_2dffi_2dsyntax_2escm"),(void*)f_1729}, {C_text("f_1731:chicken_2dffi_2dsyntax_2escm"),(void*)f_1731}, {C_text("f_1778:chicken_2dffi_2dsyntax_2escm"),(void*)f_1778}, {C_text("f_1780:chicken_2dffi_2dsyntax_2escm"),(void*)f_1780}, {C_text("f_1854:chicken_2dffi_2dsyntax_2escm"),(void*)f_1854}, {C_text("f_2725:chicken_2dffi_2dsyntax_2escm"),(void*)f_2725}, {C_text("f_2727:chicken_2dffi_2dsyntax_2escm"),(void*)f_2727}, {C_text("f_2733:chicken_2dffi_2dsyntax_2escm"),(void*)f_2733}, {C_text("f_2740:chicken_2dffi_2dsyntax_2escm"),(void*)f_2740}, {C_text("f_2753:chicken_2dffi_2dsyntax_2escm"),(void*)f_2753}, {C_text("f_2756:chicken_2dffi_2dsyntax_2escm"),(void*)f_2756}, {C_text("f_2759:chicken_2dffi_2dsyntax_2escm"),(void*)f_2759}, {C_text("f_2762:chicken_2dffi_2dsyntax_2escm"),(void*)f_2762}, {C_text("f_2765:chicken_2dffi_2dsyntax_2escm"),(void*)f_2765}, {C_text("f_2768:chicken_2dffi_2dsyntax_2escm"),(void*)f_2768}, {C_text("f_2771:chicken_2dffi_2dsyntax_2escm"),(void*)f_2771}, {C_text("f_2774:chicken_2dffi_2dsyntax_2escm"),(void*)f_2774}, {C_text("f_2777:chicken_2dffi_2dsyntax_2escm"),(void*)f_2777}, {C_text("f_2780:chicken_2dffi_2dsyntax_2escm"),(void*)f_2780}, {C_text("f_2783:chicken_2dffi_2dsyntax_2escm"),(void*)f_2783}, {C_text("f_2786:chicken_2dffi_2dsyntax_2escm"),(void*)f_2786}, {C_text("f_2789:chicken_2dffi_2dsyntax_2escm"),(void*)f_2789}, {C_text("f_2792:chicken_2dffi_2dsyntax_2escm"),(void*)f_2792}, {C_text("f_2795:chicken_2dffi_2dsyntax_2escm"),(void*)f_2795}, {C_text("f_2798:chicken_2dffi_2dsyntax_2escm"),(void*)f_2798}, {C_text("f_2802:chicken_2dffi_2dsyntax_2escm"),(void*)f_2802}, {C_text("f_2804:chicken_2dffi_2dsyntax_2escm"),(void*)f_2804}, {C_text("f_2808:chicken_2dffi_2dsyntax_2escm"),(void*)f_2808}, {C_text("f_2811:chicken_2dffi_2dsyntax_2escm"),(void*)f_2811}, {C_text("f_2814:chicken_2dffi_2dsyntax_2escm"),(void*)f_2814}, {C_text("f_2817:chicken_2dffi_2dsyntax_2escm"),(void*)f_2817}, {C_text("f_2832:chicken_2dffi_2dsyntax_2escm"),(void*)f_2832}, {C_text("f_2846:chicken_2dffi_2dsyntax_2escm"),(void*)f_2846}, {C_text("f_2848:chicken_2dffi_2dsyntax_2escm"),(void*)f_2848}, {C_text("f_2852:chicken_2dffi_2dsyntax_2escm"),(void*)f_2852}, {C_text("f_2881:chicken_2dffi_2dsyntax_2escm"),(void*)f_2881}, {C_text("f_2887:chicken_2dffi_2dsyntax_2escm"),(void*)f_2887}, {C_text("f_2891:chicken_2dffi_2dsyntax_2escm"),(void*)f_2891}, {C_text("f_2895:chicken_2dffi_2dsyntax_2escm"),(void*)f_2895}, {C_text("f_2901:chicken_2dffi_2dsyntax_2escm"),(void*)f_2901}, {C_text("f_2926:chicken_2dffi_2dsyntax_2escm"),(void*)f_2926}, {C_text("f_2941:chicken_2dffi_2dsyntax_2escm"),(void*)f_2941}, {C_text("f_2943:chicken_2dffi_2dsyntax_2escm"),(void*)f_2943}, {C_text("f_2947:chicken_2dffi_2dsyntax_2escm"),(void*)f_2947}, {C_text("f_2972:chicken_2dffi_2dsyntax_2escm"),(void*)f_2972}, {C_text("f_2978:chicken_2dffi_2dsyntax_2escm"),(void*)f_2978}, {C_text("f_2982:chicken_2dffi_2dsyntax_2escm"),(void*)f_2982}, {C_text("f_2986:chicken_2dffi_2dsyntax_2escm"),(void*)f_2986}, {C_text("f_2992:chicken_2dffi_2dsyntax_2escm"),(void*)f_2992}, {C_text("f_3017:chicken_2dffi_2dsyntax_2escm"),(void*)f_3017}, {C_text("f_3032:chicken_2dffi_2dsyntax_2escm"),(void*)f_3032}, {C_text("f_3034:chicken_2dffi_2dsyntax_2escm"),(void*)f_3034}, {C_text("f_3038:chicken_2dffi_2dsyntax_2escm"),(void*)f_3038}, {C_text("f_3067:chicken_2dffi_2dsyntax_2escm"),(void*)f_3067}, {C_text("f_3073:chicken_2dffi_2dsyntax_2escm"),(void*)f_3073}, {C_text("f_3077:chicken_2dffi_2dsyntax_2escm"),(void*)f_3077}, {C_text("f_3081:chicken_2dffi_2dsyntax_2escm"),(void*)f_3081}, {C_text("f_3087:chicken_2dffi_2dsyntax_2escm"),(void*)f_3087}, {C_text("f_3112:chicken_2dffi_2dsyntax_2escm"),(void*)f_3112}, {C_text("f_3127:chicken_2dffi_2dsyntax_2escm"),(void*)f_3127}, {C_text("f_3129:chicken_2dffi_2dsyntax_2escm"),(void*)f_3129}, {C_text("f_3133:chicken_2dffi_2dsyntax_2escm"),(void*)f_3133}, {C_text("f_3158:chicken_2dffi_2dsyntax_2escm"),(void*)f_3158}, {C_text("f_3164:chicken_2dffi_2dsyntax_2escm"),(void*)f_3164}, {C_text("f_3168:chicken_2dffi_2dsyntax_2escm"),(void*)f_3168}, {C_text("f_3172:chicken_2dffi_2dsyntax_2escm"),(void*)f_3172}, {C_text("f_3178:chicken_2dffi_2dsyntax_2escm"),(void*)f_3178}, {C_text("f_3203:chicken_2dffi_2dsyntax_2escm"),(void*)f_3203}, {C_text("f_3218:chicken_2dffi_2dsyntax_2escm"),(void*)f_3218}, {C_text("f_3220:chicken_2dffi_2dsyntax_2escm"),(void*)f_3220}, {C_text("f_3224:chicken_2dffi_2dsyntax_2escm"),(void*)f_3224}, {C_text("f_3227:chicken_2dffi_2dsyntax_2escm"),(void*)f_3227}, {C_text("f_3230:chicken_2dffi_2dsyntax_2escm"),(void*)f_3230}, {C_text("f_3233:chicken_2dffi_2dsyntax_2escm"),(void*)f_3233}, {C_text("f_3242:chicken_2dffi_2dsyntax_2escm"),(void*)f_3242}, {C_text("f_3259:chicken_2dffi_2dsyntax_2escm"),(void*)f_3259}, {C_text("f_3274:chicken_2dffi_2dsyntax_2escm"),(void*)f_3274}, {C_text("f_3288:chicken_2dffi_2dsyntax_2escm"),(void*)f_3288}, {C_text("f_3290:chicken_2dffi_2dsyntax_2escm"),(void*)f_3290}, {C_text("f_3315:chicken_2dffi_2dsyntax_2escm"),(void*)f_3315}, {C_text("f_3324:chicken_2dffi_2dsyntax_2escm"),(void*)f_3324}, {C_text("f_3393:chicken_2dffi_2dsyntax_2escm"),(void*)f_3393}, {C_text("f_3395:chicken_2dffi_2dsyntax_2escm"),(void*)f_3395}, {C_text("f_3399:chicken_2dffi_2dsyntax_2escm"),(void*)f_3399}, {C_text("f_3410:chicken_2dffi_2dsyntax_2escm"),(void*)f_3410}, {C_text("f_3412:chicken_2dffi_2dsyntax_2escm"),(void*)f_3412}, {C_text("f_3416:chicken_2dffi_2dsyntax_2escm"),(void*)f_3416}, {C_text("f_3427:chicken_2dffi_2dsyntax_2escm"),(void*)f_3427}, {C_text("f_3429:chicken_2dffi_2dsyntax_2escm"),(void*)f_3429}, {C_text("f_3433:chicken_2dffi_2dsyntax_2escm"),(void*)f_3433}, {C_text("f_3448:chicken_2dffi_2dsyntax_2escm"),(void*)f_3448}, {C_text("f_3450:chicken_2dffi_2dsyntax_2escm"),(void*)f_3450}, {C_text("f_3454:chicken_2dffi_2dsyntax_2escm"),(void*)f_3454}, {C_text("f_3457:chicken_2dffi_2dsyntax_2escm"),(void*)f_3457}, {C_text("f_3467:chicken_2dffi_2dsyntax_2escm"),(void*)f_3467}, {C_text("f_3475:chicken_2dffi_2dsyntax_2escm"),(void*)f_3475}, {C_text("f_3479:chicken_2dffi_2dsyntax_2escm"),(void*)f_3479}, {C_text("f_3491:chicken_2dffi_2dsyntax_2escm"),(void*)f_3491}, {C_text("f_3514:chicken_2dffi_2dsyntax_2escm"),(void*)f_3514}, {C_text("f_3516:chicken_2dffi_2dsyntax_2escm"),(void*)f_3516}, {C_text("f_3520:chicken_2dffi_2dsyntax_2escm"),(void*)f_3520}, {C_text("f_3523:chicken_2dffi_2dsyntax_2escm"),(void*)f_3523}, {C_text("f_3538:chicken_2dffi_2dsyntax_2escm"),(void*)f_3538}, {C_text("f_3546:chicken_2dffi_2dsyntax_2escm"),(void*)f_3546}, {C_text("f_3552:chicken_2dffi_2dsyntax_2escm"),(void*)f_3552}, {C_text("f_3555:chicken_2dffi_2dsyntax_2escm"),(void*)f_3555}, {C_text("f_3558:chicken_2dffi_2dsyntax_2escm"),(void*)f_3558}, {C_text("f_3561:chicken_2dffi_2dsyntax_2escm"),(void*)f_3561}, {C_text("f_3564:chicken_2dffi_2dsyntax_2escm"),(void*)f_3564}, {C_text("f_3567:chicken_2dffi_2dsyntax_2escm"),(void*)f_3567}, {C_text("f_3571:chicken_2dffi_2dsyntax_2escm"),(void*)f_3571}, {C_text("f_3583:chicken_2dffi_2dsyntax_2escm"),(void*)f_3583}, {C_text("f_3587:chicken_2dffi_2dsyntax_2escm"),(void*)f_3587}, {C_text("f_3589:chicken_2dffi_2dsyntax_2escm"),(void*)f_3589}, {C_text("f_3593:chicken_2dffi_2dsyntax_2escm"),(void*)f_3593}, {C_text("f_3602:chicken_2dffi_2dsyntax_2escm"),(void*)f_3602}, {C_text("f_3610:chicken_2dffi_2dsyntax_2escm"),(void*)f_3610}, {C_text("f_3616:chicken_2dffi_2dsyntax_2escm"),(void*)f_3616}, {C_text("f_3623:chicken_2dffi_2dsyntax_2escm"),(void*)f_3623}, {C_text("f_3627:chicken_2dffi_2dsyntax_2escm"),(void*)f_3627}, {C_text("f_3629:chicken_2dffi_2dsyntax_2escm"),(void*)f_3629}, {C_text("f_3652:chicken_2dffi_2dsyntax_2escm"),(void*)f_3652}, {C_text("f_3691:chicken_2dffi_2dsyntax_2escm"),(void*)f_3691}, {C_text("f_3714:chicken_2dffi_2dsyntax_2escm"),(void*)f_3714}, {C_text("f_3739:chicken_2dffi_2dsyntax_2escm"),(void*)f_3739}, {C_text("f_3754:chicken_2dffi_2dsyntax_2escm"),(void*)f_3754}, {C_text("f_3756:chicken_2dffi_2dsyntax_2escm"),(void*)f_3756}, {C_text("f_3760:chicken_2dffi_2dsyntax_2escm"),(void*)f_3760}, {C_text("f_3775:chicken_2dffi_2dsyntax_2escm"),(void*)f_3775}, {C_text("f_3782:chicken_2dffi_2dsyntax_2escm"),(void*)f_3782}, {C_text("f_3818:chicken_2dffi_2dsyntax_2escm"),(void*)f_3818}, {C_text("f_3822:chicken_2dffi_2dsyntax_2escm"),(void*)f_3822}, {C_text("f_3836:chicken_2dffi_2dsyntax_2escm"),(void*)f_3836}, {C_text("f_3840:chicken_2dffi_2dsyntax_2escm"),(void*)f_3840}, {C_text("f_3842:chicken_2dffi_2dsyntax_2escm"),(void*)f_3842}, {C_text("f_3846:chicken_2dffi_2dsyntax_2escm"),(void*)f_3846}, {C_text("f_3861:chicken_2dffi_2dsyntax_2escm"),(void*)f_3861}, {C_text("f_3863:chicken_2dffi_2dsyntax_2escm"),(void*)f_3863}, {C_text("f_3870:chicken_2dffi_2dsyntax_2escm"),(void*)f_3870}, {C_text("f_3873:chicken_2dffi_2dsyntax_2escm"),(void*)f_3873}, {C_text("f_3879:chicken_2dffi_2dsyntax_2escm"),(void*)f_3879}, {C_text("f_3889:chicken_2dffi_2dsyntax_2escm"),(void*)f_3889}, {C_text("f_3936:chicken_2dffi_2dsyntax_2escm"),(void*)f_3936}, {C_text("f_3949:chicken_2dffi_2dsyntax_2escm"),(void*)f_3949}, {C_text("f_3979:chicken_2dffi_2dsyntax_2escm"),(void*)f_3979}, {C_text("f_3995:chicken_2dffi_2dsyntax_2escm"),(void*)f_3995}, {C_text("f_4007:chicken_2dffi_2dsyntax_2escm"),(void*)f_4007}, {C_text("f_4054:chicken_2dffi_2dsyntax_2escm"),(void*)f_4054}, {C_text("f_4056:chicken_2dffi_2dsyntax_2escm"),(void*)f_4056}, {C_text("f_4153:chicken_2dffi_2dsyntax_2escm"),(void*)f_4153}, {C_text("f_4157:chicken_2dffi_2dsyntax_2escm"),(void*)f_4157}, {C_text("f_4161:chicken_2dffi_2dsyntax_2escm"),(void*)f_4161}, {C_text("toplevel:chicken_2dffi_2dsyntax_2escm"),(void*)C_chicken_2dffi_2dsyntax_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* S|applied compiler syntax: S| chicken.format#sprintf 1 S| chicken.base#foldl 3 S| scheme#map 12 S| chicken.base#foldr 3 o|eliminated procedure checks: 143 o|specializations: o| 1 (##sys#check-output-port * * *) o| 1 (scheme#= fixnum fixnum) o| 1 (scheme#cdddr (pair * (pair * pair))) o| 3 (scheme#cddr (pair * pair)) o| 3 (scheme#cadr (pair * pair)) o| 1 (scheme#eqv? * *) o| 4 (##sys#check-list (or pair list) *) o| 29 (scheme#cdr pair) o| 12 (scheme#car pair) (o e)|safe calls: 420 o|safe globals: (posv posq make-list iota find-tail find length+ lset=/eq? lset<=/eq? list-tabulate lset-intersection/eq? lset-union/eq? lset-difference/eq? lset-adjoin/eq? list-index last unzip1 remove filter-map filter alist-cons delete-duplicates fifth fourth third second first delete concatenate cons* any every append-map split-at drop take span partition) o|removed side-effect free assignment to unused variable: partition o|removed side-effect free assignment to unused variable: span o|removed side-effect free assignment to unused variable: drop o|removed side-effect free assignment to unused variable: split-at o|inlining procedure: k1825 o|inlining procedure: k1825 o|inlining procedure: k1856 o|inlining procedure: k1856 o|removed side-effect free assignment to unused variable: cons* o|removed side-effect free assignment to unused variable: concatenate o|removed side-effect free assignment to unused variable: first o|removed side-effect free assignment to unused variable: second o|removed side-effect free assignment to unused variable: third o|removed side-effect free assignment to unused variable: fourth o|removed side-effect free assignment to unused variable: fifth o|removed side-effect free assignment to unused variable: delete-duplicates o|removed side-effect free assignment to unused variable: alist-cons o|inlining procedure: k2073 o|inlining procedure: k2073 o|inlining procedure: k2065 o|inlining procedure: k2065 o|removed side-effect free assignment to unused variable: filter-map o|removed side-effect free assignment to unused variable: remove o|removed side-effect free assignment to unused variable: unzip1 o|removed side-effect free assignment to unused variable: last o|removed side-effect free assignment to unused variable: list-index o|removed side-effect free assignment to unused variable: lset-adjoin/eq? o|removed side-effect free assignment to unused variable: lset-difference/eq? o|removed side-effect free assignment to unused variable: lset-union/eq? o|removed side-effect free assignment to unused variable: lset-intersection/eq? o|inlining procedure: k2464 o|inlining procedure: k2464 o|removed side-effect free assignment to unused variable: lset<=/eq? o|removed side-effect free assignment to unused variable: lset=/eq? o|removed side-effect free assignment to unused variable: length+ o|removed side-effect free assignment to unused variable: find o|removed side-effect free assignment to unused variable: find-tail o|removed side-effect free assignment to unused variable: iota o|removed side-effect free assignment to unused variable: make-list o|removed side-effect free assignment to unused variable: posq o|removed side-effect free assignment to unused variable: posv o|inlining procedure: k2735 o|inlining procedure: k2735 o|inlining procedure: k2903 o|contracted procedure: "(chicken-ffi-syntax.scm:303) g10231032" o|inlining procedure: k2903 o|inlining procedure: k2994 o|contracted procedure: "(chicken-ffi-syntax.scm:289) g982991" o|propagated global variable: g9991000 chicken.compiler.support#foreign-type->scrutiny-type o|inlining procedure: k2994 o|inlining procedure: k3089 o|contracted procedure: "(chicken-ffi-syntax.scm:272) g948957" o|inlining procedure: k3089 o|inlining procedure: k3180 o|contracted procedure: "(chicken-ffi-syntax.scm:258) g907916" o|propagated global variable: g924925 chicken.compiler.support#foreign-type->scrutiny-type o|inlining procedure: k3180 o|inlining procedure: k3276 o|inlining procedure: k3276 o|inlining procedure: k3292 o|contracted procedure: "(chicken-ffi-syntax.scm:243) g866875" o|propagated global variable: g883884 chicken.compiler.support#foreign-type->scrutiny-type o|inlining procedure: k3292 o|inlining procedure: k3326 o|inlining procedure: k3326 o|inlining procedure: k3358 o|inlining procedure: k3358 o|inlining procedure: k3489 o|inlining procedure: k3489 o|substituted constant variable: a3548 o|substituted constant variable: a3549 o|removed unused formal parameters: (_731) o|inlining procedure: k3631 o|inlining procedure: k3631 o|substituted constant variable: a3681 o|inlining procedure: k3693 o|inlining procedure: k3693 o|contracted procedure: "(chicken-ffi-syntax.scm:138) append-map" o|inlining procedure: k1646 o|inlining procedure: k1661 o|inlining procedure: k1661 o|inlining procedure: k1646 o|inlining procedure: k1701 o|inlining procedure: k1701 o|inlining procedure: k1733 o|contracted procedure: "(mini-srfi-1.scm:77) g201210" o|inlining procedure: k1733 o|inlining procedure: k1782 o|contracted procedure: "(mini-srfi-1.scm:76) g174183" o|inlining procedure: k1782 o|inlining procedure: k3716 o|removed unused parameter to known procedure: _731 "(chicken-ffi-syntax.scm:136) g720729" o|inlining procedure: k3716 o|inlining procedure: k3800 o|inlining procedure: k3800 o|inlining procedure: k3874 o|inlining procedure: k3907 o|inlining procedure: k3907 o|inlining procedure: k3874 o|inlining procedure: k3997 o|inlining procedure: k3997 o|inlining procedure: k4009 o|contracted procedure: "(chicken-ffi-syntax.scm:96) g658667" o|inlining procedure: k4009 o|inlining procedure: k4058 o|contracted procedure: "(chicken-ffi-syntax.scm:94) g631640" o|inlining procedure: k4058 o|inlining procedure: k4090 o|inlining procedure: k4090 o|inlining procedure: k4119 o|inlining procedure: k4119 o|replaced variables: 257 o|removed binding forms: 145 o|removed side-effect free assignment to unused variable: every o|removed side-effect free assignment to unused variable: filter o|removed side-effect free assignment to unused variable: list-tabulate o|substituted constant variable: r32774182 o|substituted constant variable: r32774182 o|substituted constant variable: r36944201 o|substituted constant variable: r16624204 o|substituted constant variable: r17024206 o|contracted procedure: "(mini-srfi-1.scm:74) any" o|substituted constant variable: r18574164 o|substituted constant variable: r38014216 o|substituted constant variable: r38014216 o|substituted constant variable: r39084221 o|substituted constant variable: r39084221 o|substituted constant variable: r41204237 o|converted assignments to bindings: (compiler-only-er-transformer590) o|simplifications: ((let . 1)) o|replaced variables: 3 o|removed binding forms: 295 o|removed call to pure procedure with unused result: "(chicken-ffi-syntax.scm:136) ##sys#slot" o|replaced variables: 17 o|removed binding forms: 18 o|contracted procedure: k3741 o|removed binding forms: 19 o|removed binding forms: 1 o|simplifications: ((if . 5) (##core#call . 237)) o| call simplifications: o| scheme#apply o| scheme#null? 5 o| scheme#length o| scheme#eq? o| scheme#symbol? 2 o| scheme#cdr 7 o| scheme#cddr 3 o| scheme#not 3 o| scheme#list 2 o| scheme#cdddr 3 o| scheme#caddr 9 o| ##sys#check-list 10 o| scheme#pair? 18 o| scheme#cons 24 o| ##sys#setslot 11 o| ##sys#slot 34 o| ##sys#cons 28 o| scheme#cadr 15 o| scheme#string? 4 o| ##sys#list 41 o| scheme#car 15 o|contracted procedure: k2748 o|contracted procedure: k2822 o|contracted procedure: k2826 o|contracted procedure: k2833 o|contracted procedure: k2840 o|contracted procedure: k2867 o|contracted procedure: k2882 o|contracted procedure: k2857 o|contracted procedure: k2861 o|contracted procedure: k2897 o|contracted procedure: k2906 o|contracted procedure: k2909 o|contracted procedure: k2912 o|contracted procedure: k2920 o|contracted procedure: k2928 o|contracted procedure: k2876 o|contracted procedure: k2935 o|contracted procedure: k2962 o|contracted procedure: k2973 o|contracted procedure: k2952 o|contracted procedure: k2956 o|contracted procedure: k2988 o|contracted procedure: k2997 o|contracted procedure: k3000 o|contracted procedure: k3003 o|contracted procedure: k3011 o|contracted procedure: k3019 o|contracted procedure: k3026 o|contracted procedure: k3053 o|contracted procedure: k3068 o|contracted procedure: k3043 o|contracted procedure: k3047 o|contracted procedure: k3083 o|contracted procedure: k3092 o|contracted procedure: k3095 o|contracted procedure: k3098 o|contracted procedure: k3106 o|contracted procedure: k3114 o|contracted procedure: k3062 o|contracted procedure: k3121 o|contracted procedure: k3148 o|contracted procedure: k3159 o|contracted procedure: k3138 o|contracted procedure: k3142 o|contracted procedure: k3174 o|contracted procedure: k3183 o|contracted procedure: k3186 o|contracted procedure: k3189 o|contracted procedure: k3197 o|contracted procedure: k3205 o|contracted procedure: k3212 o|contracted procedure: k3234 o|contracted procedure: k3237 o|contracted procedure: k3247 o|contracted procedure: k3251 o|contracted procedure: k3261 o|contracted procedure: k3269 o|contracted procedure: k3279 o|contracted procedure: k3276 o|contracted procedure: k3295 o|contracted procedure: k3298 o|contracted procedure: k3301 o|contracted procedure: k3309 o|contracted procedure: k3317 o|contracted procedure: k3329 o|contracted procedure: k3351 o|contracted procedure: k3347 o|contracted procedure: k3332 o|contracted procedure: k3335 o|contracted procedure: k3343 o|contracted procedure: k3358 o|contracted procedure: k3387 o|contracted procedure: k3372 o|contracted procedure: k3383 o|contracted procedure: k3379 o|contracted procedure: k3404 o|contracted procedure: k3421 o|contracted procedure: k3442 o|contracted procedure: k3438 o|contracted procedure: k3458 o|contracted procedure: k3469 o|contracted procedure: k3481 o|contracted procedure: k3485 o|contracted procedure: k3492 o|contracted procedure: k3498 o|contracted procedure: k3577 o|contracted procedure: k3508 o|contracted procedure: k3540 o|contracted procedure: k3528 o|contracted procedure: k3532 o|contracted procedure: k3573 o|contracted procedure: k3594 o|contracted procedure: k3599 o|contracted procedure: k3611 o|contracted procedure: k3634 o|contracted procedure: k3641 o|contracted procedure: k3644 o|contracted procedure: k3647 o|contracted procedure: k3683 o|contracted procedure: k3656 o|contracted procedure: k3663 o|contracted procedure: k3667 o|contracted procedure: k3674 o|contracted procedure: k3678 o|contracted procedure: k3710 o|contracted procedure: k3696 o|contracted procedure: k3703 o|contracted procedure: k1649 o|contracted procedure: k1652 o|contracted procedure: k1664 o|contracted procedure: k1680 o|contracted procedure: k1688 o|contracted procedure: k1695 o|contracted procedure: k1719 o|contracted procedure: k1736 o|contracted procedure: k1758 o|contracted procedure: k1754 o|contracted procedure: k1739 o|contracted procedure: k1742 o|contracted procedure: k1750 o|contracted procedure: k1765 o|contracted procedure: k1773 o|contracted procedure: k1785 o|contracted procedure: k1807 o|contracted procedure: k1803 o|contracted procedure: k1788 o|contracted procedure: k1791 o|contracted procedure: k1799 o|contracted procedure: k1859 o|contracted procedure: k1874 o|contracted procedure: k1862 o|contracted procedure: k3719 o|contracted procedure: k3722 o|contracted procedure: k3725 o|contracted procedure: k3733 o|contracted procedure: k3830 o|contracted procedure: k3748 o|contracted procedure: k3761 o|contracted procedure: k3764 o|contracted procedure: k3823 o|contracted procedure: k3770 o|contracted procedure: k3788 o|contracted procedure: k3784 o|contracted procedure: k3796 o|contracted procedure: k3803 o|contracted procedure: k3810 o|contracted procedure: k3800 o|contracted procedure: k3851 o|contracted procedure: k4139 o|contracted procedure: k4143 o|contracted procedure: k4147 o|contracted procedure: k3855 o|contracted procedure: k3865 o|contracted procedure: k3880 o|contracted procedure: k3931 o|contracted procedure: k3895 o|contracted procedure: k3891 o|contracted procedure: k3903 o|contracted procedure: k3910 o|contracted procedure: k3921 o|contracted procedure: k3917 o|contracted procedure: k3907 o|contracted procedure: k3937 o|contracted procedure: k3940 o|contracted procedure: k3957 o|contracted procedure: k3961 o|contracted procedure: k4090 o|contracted procedure: k3965 o|contracted procedure: k4041 o|contracted procedure: k4049 o|contracted procedure: k3969 o|contracted procedure: k3985 o|contracted procedure: k3997 o|contracted procedure: k3981 o|contracted procedure: k3973 o|contracted procedure: k3953 o|contracted procedure: k4012 o|contracted procedure: k4034 o|contracted procedure: k4030 o|contracted procedure: k4015 o|contracted procedure: k4018 o|contracted procedure: k4026 o|contracted procedure: k4061 o|contracted procedure: k4083 o|contracted procedure: k4079 o|contracted procedure: k4064 o|contracted procedure: k4067 o|contracted procedure: k4075 o|contracted procedure: k4116 o|contracted procedure: k4122 o|contracted procedure: k4130 o|simplifications: ((let . 26)) o|removed binding forms: 191 o|inlining procedure: k3792 o|inlining procedure: k3792 o|inlining procedure: k3899 o|inlining procedure: k3899 o|replaced variables: 69 o|removed binding forms: 42 o|replaced variables: 6 o|removed binding forms: 3 o|direct leaf routine/allocation: loop237 0 o|contracted procedure: k1704 o|converted assignments to bindings: (loop237) o|simplifications: ((let . 1)) o|removed binding forms: 1 o|customizable procedures: (k3868 k3871 map-loop625643 map-loop652670 g720729 map-loop714732 map-loop168186 map-loop195213 loop164 foldr153156 g158159 loop744 k3465 k3225 map-loop831848 map-loop860885 k3257 map-loop901926 map-loop942960 map-loop9761001 map-loop10171035 compiler-only-er-transformer590) o|calls to known targets: 58 o|identified direct recursive calls: f_3324 1 o|identified direct recursive calls: f_3629 1 o|identified direct recursive calls: f_1659 1 o|identified direct recursive calls: f_1854 1 o|identified direct recursive calls: f_1731 1 o|identified direct recursive calls: f_1780 1 o|identified direct recursive calls: f_4007 1 o|identified direct recursive calls: f_4056 1 o|fast box initializations: 14 o|dropping unused closure argument: f_1854 o|dropping unused closure argument: f_2727 */ /* end of file */ chicken-5.1.0/chicken.file.import.scm0000644000175000017500000000202413502227742017270 0ustar sjamaansjamaan;;;; chicken.file.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.file 'file (scheme#list) '((create-directory . chicken.file#create-directory) (delete-directory . chicken.file#delete-directory) (create-temporary-file . chicken.file#create-temporary-file) (create-temporary-directory . chicken.file#create-temporary-directory) (delete-file . chicken.file#delete-file) (delete-file* . chicken.file#delete-file*) (copy-file . chicken.file#copy-file) (move-file . chicken.file#move-file) (rename-file . chicken.file#rename-file) (file-exists? . chicken.file#file-exists?) (directory-exists? . chicken.file#directory-exists?) (file-readable? . chicken.file#file-readable?) (file-writable? . chicken.file#file-writable?) (file-executable? . chicken.file#file-executable?) (directory . chicken.file#directory) (find-files . chicken.file#find-files) (glob . chicken.file#glob)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/chicken.keyword.import.scm0000644000175000017500000000063213502227727020043 0ustar sjamaansjamaan;;;; chicken.keyword.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.keyword 'library (scheme#list) '((keyword? . chicken.keyword#keyword?) (get-keyword . chicken.keyword#get-keyword) (keyword->string . chicken.keyword#keyword->string) (string->keyword . chicken.keyword#string->keyword)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/LICENSE0000644000175000017500000002375113502227553013750 0ustar sjamaansjamaan== Main license CHICKEN falls under the following main license: Copyright (c) 2007-2019, The CHICKEN Team Copyright (c) 2000-2007, Felix L. Winkelmann All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. The name of the authors may not be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. == Additional licenses in main code synrules.scm: Copyright (c) 1993-2001, Richard Kelsey and Jonathan Rees All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. The name of the authors may not be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. irregex.scm: Copyright (c) 2005-2016, Alex Shinn All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. The name of the authors may not be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. {{let-optionals}} implementation in chicken-syntax.scm: Copyright (c) 1996 Olin Shivers All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. The name of the authors may not be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. === Public domain / unencumbered Since we would still like to acknowledge all the useful contributions from people who gave us public domain code, here's a list for completeness sake: data-structures.scm: Copyright (C) 1995 Mikael Djurfeldt Taken from SLIB (slightly adapted) SLIB's sort.scm has this statement: Richard A. O'Keefe (based on Prolog code by D.H.D.Warren) This code is in the public domain. extras.scm: Copyright (c) 1991, Marc Feeley Author: Marc Feeley (feeley@iro.umontreal.ca) Distribution restrictions: none == Tests Tests are ''not'' part of a typical binary CHICKEN distribution, so these licenses are only relevant in atypical situations: tests/slatex.scm tests/slatex.sty tests/test.tex: Copyright (c) 1990-2002, Dorai Sitaram. All rights reserved. Permission to distribute and use this work for any purpose is hereby granted provided this copyright notice is included in the copy. This work is provided as is, with no warranty of any kind. tests/dwindtst.scm: Copyright (C) 1992 Aubrey Jaffer Permission to copy this software, to modify it, to redistribute it, to distribute modified versions, and to use it for any purpose is granted, subject to the following restrictions and understandings. 1. Any copy made of this software must include this copyright notice in full. 2. I have made no warranty or representation that the operation of this software will be error-free, and I am under no obligation to provide any services, by way of maintenance, update, or otherwise. 3. In conjunction with products arising from the use of this material, there shall be no use of my name in any advertising, promotional, or sales literature without prior written consent in each case. tests/r4rstest.scm: Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000, 2003 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. To receive a copy of the GNU General Public License, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA; or view http://swissnet.ai.mit.edu/~jaffer/GPL.html tests/numbers-test-gauche.scm: Copyright (c) 2000-2010 Shiro Kawai Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. Neither the name of the authors nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. chicken-5.1.0/chicken.internal.import.c0000644000175000017500000001714013502227773017636 0ustar sjamaansjamaan/* Generated from chicken.internal.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.internal.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.internal.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.internal.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(321))){ C_save(t1); C_rereclaim2(321*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],16, C_text("chicken.internal")); lf[2]=C_h_intern(&lf[2],8, C_text("internal")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001string->c-identifier\376\001\000\000%\001chicken.internal#string->c-identifier\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001library-id\376\001\000\000\033\001chicken.internal#library-id\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001valid-" "library-specifier\077\376\001\000\000)\001chicken.internal#valid-library-specifier\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022" "\001module-requirement\376\001\000\000#\001chicken.internal#module-requirement\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001chec" "k-for-multiple-bindings\376\001\000\000,\001chicken.internal#check-for-multiple-bindings\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\014\001macro-subset\376\001\000\000\035\001chicken.internal#macro-subset\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001fixup-ma" "cro-environment\376\001\000\000(\001chicken.internal#fixup-macro-environment\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001mak" "e-hash-table\376\001\000\000 \001chicken.internal#make-hash-table\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001hash-table-ref" "\376\001\000\000\037\001chicken.internal#hash-table-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001hash-table-set!\376\001\000\000 \001chicke" "n.internal#hash-table-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001hash-table-update!\376\001\000\000#\001chicken.intern" "al#hash-table-update!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001hash-table-for-each\376\001\000\000$\001chicken.internal#h" "ash-table-for-each\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001hash-table-size\376\001\000\000 \001chicken.internal#hash-tab" "le-size\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001default-imports\376\001\000\000 \001chicken.internal#default-imports\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\026\001default-syntax-imports\376\001\000\000\047\001chicken.internal#default-syntax-imports\376" "\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2einternal_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2einternal_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2einternal_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2einternal_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2einternal_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/chicken.blob.import.scm0000644000175000017500000000067613502227727017305 0ustar sjamaansjamaan;;;; chicken.blob.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.blob 'library (scheme#list) '((blob->string . chicken.blob#blob->string) (string->blob . chicken.blob#string->blob) (blob? . chicken.blob#blob?) (blob=? . chicken.blob#blob=?) (blob-size . chicken.blob#blob-size) (make-blob . chicken.blob#make-blob)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/c-platform.scm0000644000175000017500000016211313502227553015507 0ustar sjamaansjamaan;;;; c-platform.scm - Platform specific parameters and definitions ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit c-platform) (uses internal optimizer support compiler)) (module chicken.compiler.c-platform (;; Batch compilation defaults default-declarations default-profiling-declarations default-units ;; Compiler flags valid-compiler-options valid-compiler-options-with-argument ;; For consumption by c-backend *only* target-include-file words-per-flonum) (import scheme chicken.base chicken.compiler.optimizer chicken.compiler.support chicken.compiler.core chicken.fixnum chicken.internal) (include "tweaks") (include "mini-srfi-1.scm") ;;; Parameters: (default-optimization-passes 3) (define default-declarations '((always-bound ##sys#standard-input ##sys#standard-output ##sys#standard-error ##sys#undefined-value) (bound-to-procedure ##sys#for-each ##sys#map ##sys#print ##sys#setter ##sys#setslot ##sys#dynamic-wind ##sys#call-with-values ##sys#start-timer ##sys#stop-timer ##sys#gcd ##sys#lcm ##sys#structure? ##sys#slot ##sys#allocate-vector ##sys#list->vector ##sys#block-ref ##sys#block-set! ##sys#list ##sys#cons ##sys#append ##sys#vector ##sys#foreign-char-argument ##sys#foreign-fixnum-argument ##sys#foreign-flonum-argument ##sys#error ##sys#peek-c-string ##sys#peek-nonnull-c-string ##sys#peek-and-free-c-string ##sys#peek-and-free-nonnull-c-string ##sys#foreign-block-argument ##sys#foreign-string-argument ##sys#foreign-pointer-argument ##sys#call-with-current-continuation))) (define default-profiling-declarations '((##core#declare (uses profiler) (bound-to-procedure ##sys#profile-entry ##sys#profile-exit) ) ) ) (define default-units '(library eval)) (define words-per-flonum 4) (eq-inline-operator "C_eqp") (membership-test-operators '(("C_i_memq" . "C_eqp") ("C_u_i_memq" . "C_eqp") ("C_i_member" . "C_i_equalp") ("C_i_memv" . "C_i_eqvp") ) ) (membership-unfold-limit 20) (define target-include-file "chicken.h") (define valid-compiler-options '(-help h help version verbose explicit-use no-trace no-warnings unsafe block check-syntax to-stdout no-usual-integrations case-insensitive no-lambda-info profile inline keep-shadowed-macros ignore-repository fixnum-arithmetic disable-interrupts optimize-leaf-routines compile-syntax tag-pointers accumulate-profile disable-stack-overflow-checks raw specialize emit-external-prototypes-first release local inline-global analyze-only dynamic static no-argc-checks no-procedure-checks no-parentheses-synonyms no-procedure-checks-for-toplevel-bindings no-bound-checks no-procedure-checks-for-usual-bindings no-compiler-syntax no-parentheses-synonyms no-symbol-escape r5rs-syntax emit-all-import-libraries strict-types clustering lfa2 debug-info regenerate-import-libraries setup-mode no-module-registration)) (define valid-compiler-options-with-argument '(debug emit-link-file output-file include-path heap-size stack-size unit uses module keyword-style require-extension inline-limit profile-name prelude postlude prologue epilogue nursery extend feature no-feature emit-inline-file consult-inline-file emit-types-file consult-types-file emit-import-library)) ;;; Standard and extended bindings: (set! default-standard-bindings (map (lambda (x) (symbol-append 'scheme# x)) '(not boolean? apply call-with-current-continuation eq? eqv? equal? pair? cons car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr set-car! set-cdr! null? list list? length zero? * - + / - > < >= <= = current-output-port current-input-port write-char newline write display append symbol->string for-each map char? char->integer integer->char eof-object? vector-length string-length string-ref string-set! vector-ref vector-set! char=? char? char>=? char<=? gcd lcm reverse symbol? string->symbol number? complex? real? integer? rational? odd? even? positive? negative? exact? inexact? max min quotient remainder modulo floor ceiling truncate round rationalize exact->inexact inexact->exact exp log sin expt sqrt cos tan asin acos atan number->string string->number char-ci=? char-ci? char-ci>=? char-ci<=? char-alphabetic? char-whitespace? char-numeric? char-lower-case? char-upper-case? char-upcase char-downcase string? string=? string>? string=? string<=? string-ci=? string-ci? string-ci<=? string-ci>=? string-append string->list list->string vector? vector->list list->vector string read read-char substring string-fill! vector-copy! vector-fill! make-string make-vector open-input-file open-output-file call-with-input-file call-with-output-file close-input-port close-output-port values call-with-values vector procedure? memq memv member assq assv assoc list-tail list-ref abs char-ready? peek-char list->string string->list current-input-port current-output-port make-polar make-rectangular real-part imag-part load eval interaction-environment null-environment scheme-report-environment))) (define-constant +flonum-bindings+ (map (lambda (x) (symbol-append 'chicken.flonum# x)) '(fp/? fp+ fp- fp* fp/ fp> fp< fp= fp>= fp<= fpmin fpmax fpneg fpgcd fpfloor fpceiling fptruncate fpround fpsin fpcos fptan fpasin fpacos fpatan fpatan2 fpexp fpexpt fplog fpsqrt fpabs fpinteger?))) (define-constant +fixnum-bindings+ (map (lambda (x) (symbol-append 'chicken.fixnum# x)) '(fx* fx*? fx+ fx+? fx- fx-? fx/ fx/? fx< fx<= fx= fx> fx>= fxand fxeven? fxgcd fxior fxlen fxmax fxmin fxmod fxneg fxnot fxodd? fxrem fxshl fxshr fxxor))) (define-constant +extended-bindings+ '(chicken.base#bignum? chicken.base#cplxnum? chicken.base#fixnum? chicken.base#flonum? chicken.base#ratnum? chicken.base#add1 chicken.base#sub1 chicken.base#nan? chicken.base#finite? chicken.base#infinite? chicken.base#gensym chicken.base#void chicken.base#print chicken.base#print* chicken.base#error chicken.base#call/cc chicken.base#char-name chicken.base#current-error-port chicken.base#symbol-append chicken.base#foldl chicken.base#foldr chicken.base#setter chicken.base#getter-with-setter chicken.base#equal=? chicken.base#exact-integer? chicken.base#flush-output chicken.base#identity chicken.base#o chicken.base#atom? chicken.base#alist-ref chicken.base#rassoc chicken.bitwise#integer-length chicken.bitwise#bitwise-and chicken.bitwise#bitwise-not chicken.bitwise#bitwise-ior chicken.bitwise#bitwise-xor chicken.bitwise#arithmetic-shift chicken.bitwise#bit->boolean chicken.blob#blob-size chicken.blob#blob=? chicken.keyword#get-keyword srfi-4#u8vector? srfi-4#s8vector? srfi-4#u16vector? srfi-4#s16vector? srfi-4#u32vector? srfi-4#u64vector? srfi-4#s32vector? srfi-4#s64vector? srfi-4#f32vector? srfi-4#f64vector? srfi-4#u8vector-length srfi-4#s8vector-length srfi-4#u16vector-length srfi-4#s16vector-length srfi-4#u32vector-length srfi-4#u64vector-length srfi-4#s32vector-length srfi-4#s64vector-length srfi-4#f32vector-length srfi-4#f64vector-length srfi-4#u8vector-ref srfi-4#s8vector-ref srfi-4#u16vector-ref srfi-4#s16vector-ref srfi-4#u32vector-ref srfi-4#u64vector-ref srfi-4#s32vector-ref srfi-4#s64vector-ref srfi-4#f32vector-ref srfi-4#f64vector-ref srfi-4#u8vector-set! srfi-4#s8vector-set! srfi-4#u16vector-set! srfi-4#s16vector-set! srfi-4#u32vector-set! srfi-4#u64vector-set! srfi-4#s32vector-set! srfi-4#s64vector-set! srfi-4#f32vector-set! srfi-4#f64vector-set! srfi-4#u8vector->blob/shared srfi-4#s8vector->blob/shared srfi-4#u16vector->blob/shared srfi-4#s16vector->blob/shared srfi-4#u32vector->blob/shared srfi-4#s32vector->blob/shared srfi-4#u64vector->blob/shared srfi-4#s64vector->blob/shared srfi-4#f32vector->blob/shared srfi-4#f64vector->blob/shared srfi-4#blob->u8vector/shared srfi-4#blob->s8vector/shared srfi-4#blob->u16vector/shared srfi-4#blob->s16vector/shared srfi-4#blob->u32vector/shared srfi-4#blob->s32vector/shared srfi-4#blob->u64vector/shared srfi-4#blob->s64vector/shared srfi-4#blob->f32vector/shared srfi-4#blob->f64vector/shared chicken.memory#u8vector-ref chicken.memory#s8vector-ref chicken.memory#u16vector-ref chicken.memory#s16vector-ref chicken.memory#u32vector-ref chicken.memory#s32vector-ref chicken.memory#u64vector-ref chicken.memory#s64vector-ref chicken.memory#f32vector-ref chicken.memory#f64vector-ref chicken.memory#f32vector-set! chicken.memory#f64vector-set! chicken.memory#u8vector-set! chicken.memory#s8vector-set! chicken.memory#u16vector-set! chicken.memory#s16vector-set! chicken.memory#u32vector-set! chicken.memory#s32vector-set! chicken.memory#u64vector-set! chicken.memory#s64vector-set! chicken.memory.representation#number-of-slots chicken.memory.representation#make-record-instance chicken.memory.representation#block-ref chicken.memory.representation#block-set! chicken.locative#locative-ref chicken.locative#locative-set! chicken.locative#locative->object chicken.locative#locative? chicken.memory#pointer+ chicken.memory#pointer=? chicken.memory#address->pointer chicken.memory#pointer->address chicken.memory#pointer->object chicken.memory#object->pointer chicken.memory#pointer-u8-ref chicken.memory#pointer-s8-ref chicken.memory#pointer-u16-ref chicken.memory#pointer-s16-ref chicken.memory#pointer-u32-ref chicken.memory#pointer-s32-ref chicken.memory#pointer-f32-ref chicken.memory#pointer-f64-ref chicken.memory#pointer-u8-set! chicken.memory#pointer-s8-set! chicken.memory#pointer-u16-set! chicken.memory#pointer-s16-set! chicken.memory#pointer-u32-set! chicken.memory#pointer-s32-set! chicken.memory#pointer-f32-set! chicken.memory#pointer-f64-set! chicken.string#substring-index chicken.string#substring-index-ci chicken.string#substring=? chicken.string#substring-ci=? chicken.io#read-string chicken.format#format chicken.format#printf chicken.format#sprintf chicken.format#fprintf)) (set! default-extended-bindings (append +fixnum-bindings+ +flonum-bindings+ +extended-bindings+)) (set! internal-bindings '(##sys#slot ##sys#setslot ##sys#block-ref ##sys#block-set! ##sys#/-2 ##sys#call-with-current-continuation ##sys#size ##sys#byte ##sys#setbyte ##sys#pointer? ##sys#generic-structure? ##sys#structure? ##sys#check-structure ##sys#check-exact ##sys#check-number ##sys#check-list ##sys#check-pair ##sys#check-string ##sys#check-symbol ##sys#check-boolean ##sys#check-locative ##sys#check-port ##sys#check-input-port ##sys#check-output-port ##sys#check-open-port ##sys#check-char ##sys#check-vector ##sys#check-byte-vector ##sys#list ##sys#cons ##sys#call-with-values ##sys#flonum-in-fixnum-range? ##sys#immediate? ##sys#context-switch ##sys#make-structure ##sys#apply ##sys#apply-values chicken.continuation#continuation-graft ##sys#bytevector? ##sys#make-vector ##sys#setter ##sys#car ##sys#cdr ##sys#pair? ##sys#eq? ##sys#list? ##sys#vector? ##sys#eqv? ##sys#get-keyword ##sys#foreign-char-argument ##sys#foreign-fixnum-argument ##sys#foreign-flonum-argument ##sys#foreign-block-argument ##sys#foreign-struct-wrapper-argument ##sys#foreign-string-argument ##sys#foreign-pointer-argument ##sys#void ##sys#foreign-ranged-integer-argument ##sys#foreign-unsigned-ranged-integer-argument ##sys#peek-fixnum ##sys#setislot ##sys#poke-integer ##sys#permanent? ##sys#values ##sys#poke-double ##sys#intern-symbol ##sys#null-pointer? ##sys#peek-byte ##sys#file-exists? ##sys#substring-index ##sys#substring-index-ci ##sys#lcm ##sys#gcd)) (for-each (cut mark-variable <> '##compiler#pure '#t) '(##sys#slot ##sys#block-ref ##sys#size ##sys#byte ##sys#pointer? ##sys#generic-structure? ##sys#immediate? ##sys#bytevector? ##sys#pair? ##sys#eq? ##sys#list? ##sys#vector? ##sys#eqv? ##sys#get-keyword ; ok it isn't, but this is only used for ext. llists ##sys#void ##sys#permanent?)) ;;; Rewriting-definitions for this platform: (let () ;; (add1 ) -> (##core#inline "C_fixnum_increase" ) [fixnum-mode] ;; (add1 ) -> (##core#inline "C_u_fixnum_increase" ) [fixnum-mode + unsafe] ;; (add1 ) -> (##core#inline_allocate ("C_s_a_i_plus" 36) 1) ;; (sub1 ) -> (##core#inline "C_fixnum_decrease" ) [fixnum-mode] ;; (sub1 ) -> (##core#inline "C_u_fixnum_decrease" ) [fixnum-mode + unsafe] ;; (sub1 ) -> (##core#inline_allocate ("C_s_a_i_minus" 36) 1) (define ((op1 fiop ufiop aiop) db classargs cont callargs) (and (= (length callargs) 1) (make-node '##core#call (list #t) (list cont (if (eq? 'fixnum number-type) (make-node '##core#inline (list (if unsafe ufiop fiop)) callargs) (make-node '##core#inline_allocate (list aiop 36) (list (car callargs) (qnode 1)))))))) (rewrite 'chicken.base#add1 8 (op1 "C_fixnum_increase" "C_u_fixnum_increase" "C_s_a_i_plus")) (rewrite 'chicken.base#sub1 8 (op1 "C_fixnum_decrease" "C_u_fixnum_decrease" "C_s_a_i_minus"))) (let () (define (eqv?-id db classargs cont callargs) ;; (eqv? ) -> (quote #t) [two identical objects] ;; (eqv? ...) -> (##core#inline "C_eqp" ...) ;; [one argument is a constant and either immediate or not a number] (and (= (length callargs) 2) (let ((arg1 (first callargs)) (arg2 (second callargs)) ) (or (and (eq? '##core#variable (node-class arg1)) (eq? '##core#variable (node-class arg2)) (equal? (node-parameters arg1) (node-parameters arg2)) (make-node '##core#call (list #t) (list cont (qnode #t))) ) (and (or (and (eq? 'quote (node-class arg1)) (let ((p1 (first (node-parameters arg1)))) (or (immediate? p1) (not (number? p1)))) ) (and (eq? 'quote (node-class arg2)) (let ((p2 (first (node-parameters arg2)))) (or (immediate? p2) (not (number? p2)))) ) ) (make-node '##core#call (list #t) (list cont (make-node '##core#inline '("C_eqp") callargs)) ) ) ) ) ) ) (rewrite 'scheme#eqv? 8 eqv?-id) (rewrite '##sys#eqv? 8 eqv?-id)) (rewrite 'scheme#equal? 8 (lambda (db classargs cont callargs) ;; (equal? ) -> (quote #t) ;; (equal? ...) -> (##core#inline "C_eqp" ...) [one argument is a constant and immediate or a symbol] ;; (equal? ...) -> (##core#inline "C_i_equalp" ...) (and (= (length callargs) 2) (let ([arg1 (first callargs)] [arg2 (second callargs)] ) (or (and (eq? '##core#variable (node-class arg1)) (eq? '##core#variable (node-class arg2)) (equal? (node-parameters arg1) (node-parameters arg2)) (make-node '##core#call (list #t) (list cont (qnode #t))) ) (and (or (and (eq? 'quote (node-class arg1)) (let ([f (first (node-parameters arg1))]) (or (immediate? f) (symbol? f)) ) ) (and (eq? 'quote (node-class arg2)) (let ([f (first (node-parameters arg2))]) (or (immediate? f) (symbol? f)) ) ) ) (make-node '##core#call (list #t) (list cont (make-node '##core#inline '("C_eqp") callargs)) ) ) (make-node '##core#call (list #t) (list cont (make-node '##core#inline '("C_i_equalp") callargs)) ) ) ) ) ) ) (let () (define (rewrite-apply db classargs cont callargs) ;; (apply ... '( ...)) -> ( ... ' ...) ;; (apply ...) -> ((##core#proc "C_apply") ...) ;; (apply values ) -> ((##core#proc "C_apply_values") lst) ;; (apply ##sys#values ) -> ((##core#proc "C_apply_values") lst) (and (pair? callargs) (let ([lastarg (last callargs)] [proc (car callargs)] ) (if (eq? 'quote (node-class lastarg)) (make-node '##core#call (list #f) (cons* (first callargs) cont (append (cdr (butlast callargs)) (map qnode (first (node-parameters lastarg)))) ) ) (or (and (eq? '##core#variable (node-class proc)) (= 2 (length callargs)) (let ([name (car (node-parameters proc))]) (and (memq name '(values ##sys#values)) (intrinsic? name) (make-node '##core#call (list #t) (list (make-node '##core#proc '("C_apply_values" #t) '()) cont (cadr callargs) ) ) ) ) ) (make-node '##core#call (list #t) (cons* (make-node '##core#proc '("C_apply" #t) '()) cont callargs) ) ) ) ) ) ) (rewrite 'scheme#apply 8 rewrite-apply) (rewrite '##sys#apply 8 rewrite-apply) ) (let () (define (rewrite-c..r op iop1 iop2) (rewrite op 8 (lambda (db classargs cont callargs) ;; ( ) -> (##core#inline ) [safe] ;; ( ) -> (##core#inline ) [unsafe] (and (= (length callargs) 1) (call-with-current-continuation (lambda (return) (let ((arg (first callargs))) (make-node '##core#call (list #t) (list cont (cond [(and unsafe iop2) (make-node '##core#inline (list iop2) callargs)] [iop1 (make-node '##core#inline (list iop1) callargs)] [else (return #f)] ) ) ) ) ) ) ) ) ) ) (rewrite-c..r 'scheme#car "C_i_car" "C_u_i_car") (rewrite-c..r '##sys#car "C_i_car" "C_u_i_car") (rewrite-c..r '##sys#cdr "C_i_cdr" "C_u_i_cdr") (rewrite-c..r 'scheme#cadr "C_i_cadr" "C_u_i_cadr") (rewrite-c..r 'scheme#caddr "C_i_caddr" "C_u_i_caddr") (rewrite-c..r 'scheme#cadddr "C_i_cadddr" "C_u_i_cadddr") ) (let ((rvalues (lambda (db classargs cont callargs) ;; (values ) -> (and (= (length callargs) 1) (make-node '##core#call (list #t) (cons cont callargs) ) ) ) ) ) (rewrite 'scheme#values 8 rvalues) (rewrite '##sys#values 8 rvalues) ) (let () (define (rewrite-c-w-v db classargs cont callargs) ;; (call-with-values ) -> (let ((k (lambda (r) [ r]))) [ k]) ;; - if is a known lambda of a single argument (and (= 2 (length callargs)) (let ((arg1 (car callargs)) (arg2 (cadr callargs)) ) (and (eq? '##core#variable (node-class arg1)) ; probably not needed (eq? '##core#variable (node-class arg2)) (and-let* ((sym (car (node-parameters arg2))) (val (db-get db sym 'value)) ) (and (eq? '##core#lambda (node-class val)) (let ((llist (third (node-parameters val)))) (and (list? llist) (= 2 (length llist)) (let ((tmp (gensym)) (tmpk (gensym 'r)) ) (debugging 'o "removing single-valued `call-with-values'" (node-parameters val)) (make-node 'let (list tmp) (list (make-node '##core#lambda (list (gensym 'f_) #f (list tmpk) 0) (list (make-node '##core#call (list #t) (list arg2 cont (varnode tmpk)) ) ) ) (make-node '##core#call (list #t) (list arg1 (varnode tmp)) ) ) ) ) ) ) ) ) ) ) ) ) (rewrite 'scheme#call-with-values 8 rewrite-c-w-v) (rewrite '##sys#call-with-values 8 rewrite-c-w-v) ) (rewrite 'scheme#values 13 #f "C_values" #t) (rewrite '##sys#values 13 #f "C_values" #t) (rewrite 'scheme#call-with-values 13 2 "C_u_call_with_values" #f) (rewrite 'scheme#call-with-values 13 2 "C_call_with_values" #t) (rewrite '##sys#call-with-values 13 2 "C_u_call_with_values" #f) (rewrite '##sys#call-with-values 13 2 "C_call_with_values" #t) (rewrite 'chicken.continuation#continuation-graft 13 2 "C_continuation_graft" #t) (rewrite 'scheme#caar 2 1 "C_u_i_caar" #f) (rewrite 'scheme#cdar 2 1 "C_u_i_cdar" #f) (rewrite 'scheme#cddr 2 1 "C_u_i_cddr" #f) (rewrite 'scheme#caaar 2 1 "C_u_i_caaar" #f) (rewrite 'scheme#cadar 2 1 "C_u_i_cadar" #f) (rewrite 'scheme#caddr 2 1 "C_u_i_caddr" #f) (rewrite 'scheme#cdaar 2 1 "C_u_i_cdaar" #f) (rewrite 'scheme#cdadr 2 1 "C_u_i_cdadr" #f) (rewrite 'scheme#cddar 2 1 "C_u_i_cddar" #f) (rewrite 'scheme#cdddr 2 1 "C_u_i_cdddr" #f) (rewrite 'scheme#caaaar 2 1 "C_u_i_caaaar" #f) (rewrite 'scheme#caadar 2 1 "C_u_i_caadar" #f) (rewrite 'scheme#caaddr 2 1 "C_u_i_caaddr" #f) (rewrite 'scheme#cadaar 2 1 "C_u_i_cadaar" #f) (rewrite 'scheme#cadadr 2 1 "C_u_i_cadadr" #f) (rewrite 'scheme#caddar 2 1 "C_u_i_caddar" #f) (rewrite 'scheme#cadddr 2 1 "C_u_i_cadddr" #f) (rewrite 'scheme#cdaaar 2 1 "C_u_i_cdaaar" #f) (rewrite 'scheme#cdaadr 2 1 "C_u_i_cdaadr" #f) (rewrite 'scheme#cdadar 2 1 "C_u_i_cdadar" #f) (rewrite 'scheme#cdaddr 2 1 "C_u_i_cdaddr" #f) (rewrite 'scheme#cddaar 2 1 "C_u_i_cddaar" #f) (rewrite 'scheme#cddadr 2 1 "C_u_i_cddadr" #f) (rewrite 'scheme#cdddar 2 1 "C_u_i_cdddar" #f) (rewrite 'scheme#cddddr 2 1 "C_u_i_cddddr" #f) (rewrite 'scheme#caar 2 1 "C_i_caar" #t) (rewrite 'scheme#cdar 2 1 "C_i_cdar" #t) (rewrite 'scheme#cddr 2 1 "C_i_cddr" #t) (rewrite 'scheme#cdddr 2 1 "C_i_cdddr" #t) (rewrite 'scheme#cddddr 2 1 "C_i_cddddr" #t) (rewrite 'scheme#cdr 7 1 "C_slot" 1 #f) (rewrite 'scheme#cdr 2 1 "C_i_cdr" #t) (rewrite 'scheme#eq? 1 2 "C_eqp") (rewrite '##sys#eq? 1 2 "C_eqp") (rewrite 'scheme#eqv? 1 2 "C_i_eqvp") (rewrite '##sys#eqv? 1 2 "C_i_eqvp") (rewrite 'scheme#list-ref 2 2 "C_u_i_list_ref" #f) (rewrite 'scheme#list-ref 2 2 "C_i_list_ref" #t) (rewrite 'scheme#null? 2 1 "C_i_nullp" #t) (rewrite '##sys#null? 2 1 "C_i_nullp" #t) (rewrite 'scheme#length 2 1 "C_i_length" #t) (rewrite 'scheme#not 2 1 "C_i_not"#t ) (rewrite 'scheme#char? 2 1 "C_charp" #t) (rewrite 'scheme#string? 2 1 "C_i_stringp" #t) (rewrite 'chicken.locative#locative? 2 1 "C_i_locativep" #t) (rewrite 'scheme#symbol? 2 1 "C_i_symbolp" #t) (rewrite 'scheme#vector? 2 1 "C_i_vectorp" #t) (rewrite '##sys#vector? 2 1 "C_i_vectorp" #t) (rewrite '##sys#srfi-4-vector? 2 1 "C_i_srfi_4_vectorp" #t) (rewrite 'srfi-4#u8vector? 2 1 "C_i_u8vectorp" #t) (rewrite 'srfi-4#s8vector? 2 1 "C_i_s8vectorp" #t) (rewrite 'srfi-4#u16vector? 2 1 "C_i_u16vectorp" #t) (rewrite 'srfi-4#s16vector? 2 1 "C_i_s16vectorp" #t) (rewrite 'srfi-4#u32vector? 2 1 "C_i_u32vectorp" #t) (rewrite 'srfi-4#s32vector? 2 1 "C_i_s32vectorp" #t) (rewrite 'srfi-4#u64vector? 2 1 "C_i_u64vectorp" #t) (rewrite 'srfi-4#s64vector? 2 1 "C_i_s64vectorp" #t) (rewrite 'srfi-4#f32vector? 2 1 "C_i_f32vectorp" #t) (rewrite 'srfi-4#f64vector? 2 1 "C_i_f64vectorp" #t) (rewrite 'scheme#pair? 2 1 "C_i_pairp" #t) (rewrite '##sys#pair? 2 1 "C_i_pairp" #t) (rewrite 'scheme#procedure? 2 1 "C_i_closurep" #t) (rewrite 'chicken.base#port? 2 1 "C_i_portp" #t) (rewrite 'scheme#boolean? 2 1 "C_booleanp" #t) (rewrite 'scheme#number? 2 1 "C_i_numberp" #t) (rewrite 'scheme#complex? 2 1 "C_i_numberp" #t) (rewrite 'scheme#rational? 2 1 "C_i_rationalp" #t) (rewrite 'scheme#real? 2 1 "C_i_realp" #t) (rewrite 'scheme#integer? 2 1 "C_i_integerp" #t) (rewrite 'chicken.base#exact-integer? 2 1 "C_i_exact_integerp" #t) (rewrite 'chicken.base#flonum? 2 1 "C_i_flonump" #t) (rewrite 'chicken.base#fixnum? 2 1 "C_fixnump" #t) (rewrite 'chicken.base#bignum? 2 1 "C_i_bignump" #t) (rewrite 'chicken.base#cplxnum? 2 1 "C_i_cplxnump" #t) (rewrite 'chicken.base#ratnum? 2 1 "C_i_ratnump" #t) (rewrite 'chicken.base#nan? 2 1 "C_i_nanp" #f) (rewrite 'chicken.base#finite? 2 1 "C_i_finitep" #f) (rewrite 'chicken.base#infinite? 2 1 "C_i_infinitep" #f) (rewrite 'chicken.flonum#fpinteger? 2 1 "C_u_i_fpintegerp" #f) (rewrite '##sys#pointer? 2 1 "C_anypointerp" #t) (rewrite 'pointer? 2 1 "C_i_safe_pointerp" #t) (rewrite '##sys#generic-structure? 2 1 "C_structurep" #t) (rewrite 'scheme#exact? 2 1 "C_i_exactp" #t) (rewrite 'scheme#exact? 2 1 "C_u_i_exactp" #f) (rewrite 'scheme#inexact? 2 1 "C_i_inexactp" #t) (rewrite 'scheme#inexact? 2 1 "C_u_i_inexactp" #f) (rewrite 'scheme#list? 2 1 "C_i_listp" #t) (rewrite 'scheme#eof-object? 2 1 "C_eofp" #t) (rewrite 'scheme#string-ref 2 2 "C_subchar" #f) (rewrite 'scheme#string-ref 2 2 "C_i_string_ref" #t) (rewrite 'scheme#string-set! 2 3 "C_setsubchar" #f) (rewrite 'scheme#string-set! 2 3 "C_i_string_set" #t) (rewrite 'scheme#vector-ref 2 2 "C_slot" #f) (rewrite 'scheme#vector-ref 2 2 "C_i_vector_ref" #t) (rewrite 'scheme#char=? 2 2 "C_u_i_char_equalp" #f) (rewrite 'scheme#char=? 2 2 "C_i_char_equalp" #t) (rewrite 'scheme#char>? 2 2 "C_u_i_char_greaterp" #f) (rewrite 'scheme#char>? 2 2 "C_i_char_greaterp" #t) (rewrite 'scheme#char=? 2 2 "C_u_i_char_greater_or_equal_p" #f) (rewrite 'scheme#char>=? 2 2 "C_i_char_greater_or_equal_p" #t) (rewrite 'scheme#char<=? 2 2 "C_u_i_char_less_or_equal_p" #f) (rewrite 'scheme#char<=? 2 2 "C_i_char_less_or_equal_p" #t) (rewrite '##sys#slot 2 2 "C_slot" #t) ; consider as safe, the primitive is unsafe anyway. (rewrite '##sys#block-ref 2 2 "C_i_block_ref" #t) ;XXX must be safe for pattern matcher (anymore?) (rewrite '##sys#size 2 1 "C_block_size" #t) (rewrite 'chicken.fixnum#fxnot 2 1 "C_fixnum_not" #t) (rewrite 'chicken.fixnum#fx* 2 2 "C_fixnum_times" #t) (rewrite 'chicken.fixnum#fx+? 2 2 "C_i_o_fixnum_plus" #t) (rewrite 'chicken.fixnum#fx-? 2 2 "C_i_o_fixnum_difference" #t) (rewrite 'chicken.fixnum#fx*? 2 2 "C_i_o_fixnum_times" #t) (rewrite 'chicken.fixnum#fx/? 2 2 "C_i_o_fixnum_quotient" #t) (rewrite 'chicken.fixnum#fx= 2 2 "C_eqp" #t) (rewrite 'chicken.fixnum#fx> 2 2 "C_fixnum_greaterp" #t) (rewrite 'chicken.fixnum#fx< 2 2 "C_fixnum_lessp" #t) (rewrite 'chicken.fixnum#fx>= 2 2 "C_fixnum_greater_or_equal_p" #t) (rewrite 'chicken.fixnum#fx<= 2 2 "C_fixnum_less_or_equal_p" #t) (rewrite 'chicken.flonum#fp= 2 2 "C_flonum_equalp" #f) (rewrite 'chicken.flonum#fp> 2 2 "C_flonum_greaterp" #f) (rewrite 'chicken.flonum#fp< 2 2 "C_flonum_lessp" #f) (rewrite 'chicken.flonum#fp>= 2 2 "C_flonum_greater_or_equal_p" #f) (rewrite 'chicken.flonum#fp<= 2 2 "C_flonum_less_or_equal_p" #f) (rewrite 'chicken.fixnum#fxmax 2 2 "C_i_fixnum_max" #t) (rewrite 'chicken.fixnum#fxmin 2 2 "C_i_fixnum_min" #t) (rewrite 'chicken.flonum#fpmax 2 2 "C_i_flonum_max" #f) (rewrite 'chicken.flonum#fpmin 2 2 "C_i_flonum_min" #f) (rewrite 'chicken.fixnum#fxgcd 2 2 "C_i_fixnum_gcd" #t) (rewrite 'chicken.fixnum#fxlen 2 1 "C_i_fixnum_length" #t) (rewrite 'scheme#char-numeric? 2 1 "C_u_i_char_numericp" #t) (rewrite 'scheme#char-alphabetic? 2 1 "C_u_i_char_alphabeticp" #t) (rewrite 'scheme#char-whitespace? 2 1 "C_u_i_char_whitespacep" #t) (rewrite 'scheme#char-upper-case? 2 1 "C_u_i_char_upper_casep" #t) (rewrite 'scheme#char-lower-case? 2 1 "C_u_i_char_lower_casep" #t) (rewrite 'scheme#char-upcase 2 1 "C_u_i_char_upcase" #t) (rewrite 'scheme#char-downcase 2 1 "C_u_i_char_downcase" #t) (rewrite 'scheme#list-tail 2 2 "C_i_list_tail" #t) (rewrite '##sys#structure? 2 2 "C_i_structurep" #t) (rewrite '##sys#bytevector? 2 2 "C_bytevectorp" #t) (rewrite 'chicken.memory.representation#block-ref 2 2 "C_slot" #f) ; ok to be unsafe, lolevel is anyway (rewrite 'chicken.memory.representation#number-of-slots 2 1 "C_block_size" #f) (rewrite 'scheme#assv 14 'fixnum 2 "C_i_assq" "C_u_i_assq") (rewrite 'scheme#assv 2 2 "C_i_assv" #t) (rewrite 'scheme#memv 14 'fixnum 2 "C_i_memq" "C_u_i_memq") (rewrite 'scheme#memv 2 2 "C_i_memv" #t) (rewrite 'scheme#assq 17 2 "C_i_assq" "C_u_i_assq") (rewrite 'scheme#memq 17 2 "C_i_memq" "C_u_i_memq") (rewrite 'scheme#assoc 2 2 "C_i_assoc" #t) (rewrite 'scheme#member 2 2 "C_i_member" #t) (rewrite 'scheme#set-car! 4 '##sys#setslot 0) (rewrite 'scheme#set-cdr! 4 '##sys#setslot 1) (rewrite 'scheme#set-car! 17 2 "C_i_set_car" "C_u_i_set_car") (rewrite 'scheme#set-cdr! 17 2 "C_i_set_cdr" "C_u_i_set_cdr") (rewrite 'scheme#abs 14 'fixnum 1 "C_fixnum_abs" "C_fixnum_abs") (rewrite 'chicken.bitwise#bitwise-and 19) (rewrite 'chicken.bitwise#bitwise-xor 19) (rewrite 'chicken.bitwise#bitwise-ior 19) (rewrite 'chicken.bitwise#bitwise-and 21 -1 "C_fixnum_and" "C_u_fixnum_and" "C_s_a_i_bitwise_and" 5) (rewrite 'chicken.bitwise#bitwise-xor 21 0 "C_fixnum_xor" "C_fixnum_xor" "C_s_a_i_bitwise_xor" 5) (rewrite 'chicken.bitwise#bitwise-ior 21 0 "C_fixnum_or" "C_u_fixnum_or" "C_s_a_i_bitwise_ior" 5) (rewrite 'chicken.bitwise#bitwise-not 22 1 "C_s_a_i_bitwise_not" #t 5 "C_fixnum_not") (rewrite 'chicken.flonum#fp+ 16 2 "C_a_i_flonum_plus" #f words-per-flonum) (rewrite 'chicken.flonum#fp- 16 2 "C_a_i_flonum_difference" #f words-per-flonum) (rewrite 'chicken.flonum#fp* 16 2 "C_a_i_flonum_times" #f words-per-flonum) (rewrite 'chicken.flonum#fp/ 16 2 "C_a_i_flonum_quotient" #f words-per-flonum) (rewrite 'chicken.flonum#fp/? 16 2 "C_a_i_flonum_quotient_checked" #f words-per-flonum) (rewrite 'chicken.flonum#fpneg 16 1 "C_a_i_flonum_negate" #f words-per-flonum) (rewrite 'chicken.flonum#fpgcd 16 2 "C_a_i_flonum_gcd" #f words-per-flonum) (rewrite 'scheme#zero? 5 "C_eqp" 0 'fixnum) (rewrite 'scheme#zero? 2 1 "C_u_i_zerop" #f) (rewrite 'scheme#zero? 2 1 "C_i_zerop" #t) (rewrite 'scheme#positive? 5 "C_fixnum_greaterp" 0 'fixnum) (rewrite 'scheme#positive? 5 "C_flonum_greaterp" 0 'flonum) (rewrite 'scheme#positive? 2 1 "C_i_positivep" #t) (rewrite 'scheme#negative? 5 "C_fixnum_lessp" 0 'fixnum) (rewrite 'scheme#negative? 5 "C_flonum_lessp" 0 'flonum) (rewrite 'scheme#negative? 2 1 "C_i_negativep" #t) (rewrite 'scheme#vector-length 6 "C_fix" "C_header_size" #f) (rewrite 'scheme#string-length 6 "C_fix" "C_header_size" #f) (rewrite 'scheme#char->integer 6 "C_fix" "C_character_code" #t) (rewrite 'scheme#integer->char 6 "C_make_character" "C_unfix" #t) (rewrite 'scheme#vector-length 2 1 "C_i_vector_length" #t) (rewrite '##sys#vector-length 2 1 "C_i_vector_length" #t) (rewrite 'scheme#string-length 2 1 "C_i_string_length" #t) (rewrite '##sys#check-exact 2 1 "C_i_check_exact" #t) (rewrite '##sys#check-fixnum 2 1 "C_i_check_fixnum" #t) (rewrite '##sys#check-number 2 1 "C_i_check_number" #t) (rewrite '##sys#check-list 2 1 "C_i_check_list" #t) (rewrite '##sys#check-pair 2 1 "C_i_check_pair" #t) (rewrite '##sys#check-boolean 2 1 "C_i_check_boolean" #t) (rewrite '##sys#check-locative 2 1 "C_i_check_locative" #t) (rewrite '##sys#check-symbol 2 1 "C_i_check_symbol" #t) (rewrite '##sys#check-string 2 1 "C_i_check_string" #t) (rewrite '##sys#check-byte-vector 2 1 "C_i_check_bytevector" #t) (rewrite '##sys#check-vector 2 1 "C_i_check_vector" #t) (rewrite '##sys#check-structure 2 2 "C_i_check_structure" #t) (rewrite '##sys#check-char 2 1 "C_i_check_char" #t) (rewrite '##sys#check-exact 2 2 "C_i_check_exact_2" #t) (rewrite '##sys#check-fixnum 2 2 "C_i_check_fixnum_2" #t) (rewrite '##sys#check-number 2 2 "C_i_check_number_2" #t) (rewrite '##sys#check-list 2 2 "C_i_check_list_2" #t) (rewrite '##sys#check-pair 2 2 "C_i_check_pair_2" #t) (rewrite '##sys#check-boolean 2 2 "C_i_check_boolean_2" #t) (rewrite '##sys#check-locative 2 2 "C_i_check_locative_2" #t) (rewrite '##sys#check-symbol 2 2 "C_i_check_symbol_2" #t) (rewrite '##sys#check-string 2 2 "C_i_check_string_2" #t) (rewrite '##sys#check-byte-vector 2 2 "C_i_check_bytevector_2" #t) (rewrite '##sys#check-vector 2 2 "C_i_check_vector_2" #t) (rewrite '##sys#check-structure 2 3 "C_i_check_structure_2" #t) (rewrite '##sys#check-char 2 2 "C_i_check_char_2" #t) (rewrite 'scheme#= 9 "C_eqp" "C_i_equalp" #t #t) (rewrite 'scheme#> 9 "C_fixnum_greaterp" "C_flonum_greaterp" #t #f) (rewrite 'scheme#< 9 "C_fixnum_lessp" "C_flonum_lessp" #t #f) (rewrite 'scheme#>= 9 "C_fixnum_greater_or_equal_p" "C_flonum_greater_or_equal_p" #t #f) (rewrite 'scheme#<= 9 "C_fixnum_less_or_equal_p" "C_flonum_less_or_equal_p" #t #f) (rewrite 'setter 11 1 '##sys#setter #t) (rewrite 'scheme#for-each 11 2 '##sys#for-each #t) (rewrite 'scheme#map 11 2 '##sys#map #t) (rewrite 'chicken.memory.representation#block-set! 11 3 '##sys#setslot #t) (rewrite '##sys#block-set! 11 3 '##sys#setslot #f) (rewrite 'chicken.memory.representation#make-record-instance 11 #f '##sys#make-structure #f) (rewrite 'scheme#substring 11 3 '##sys#substring #f) (rewrite 'scheme#string-append 11 2 '##sys#string-append #f) (rewrite 'scheme#string->list 11 1 '##sys#string->list #t) (rewrite 'scheme#list->string 11 1 '##sys#list->string #t) (rewrite 'scheme#vector-set! 11 3 '##sys#setslot #f) (rewrite 'scheme#vector-set! 2 3 "C_i_vector_set" #t) (rewrite 'scheme#gcd 12 '##sys#gcd #t 2) (rewrite 'scheme#lcm 12 '##sys#lcm #t 2) (rewrite 'chicken.base#identity 12 #f #t 1) (rewrite 'scheme#gcd 19) (rewrite 'scheme#lcm 19) (rewrite 'scheme#gcd 18 0) (rewrite 'scheme#lcm 18 1) (rewrite 'scheme#list 18 '()) (rewrite 'scheme#* 8 (lambda (db classargs cont callargs) ;; (*) -> 1 ;; (* ) -> ;; (* ...) -> (##core#inline "C_fixnum_times" (##core#inline "C_fixnum_times" ...)) [fixnum-mode] ;; - Remove "1" from arguments. ;; - Replace multiplications with 2 by shift left. [fixnum-mode] (let ((callargs (filter (lambda (x) (not (and (eq? 'quote (node-class x)) (eq? 1 (first (node-parameters x))) ) ) ) callargs) ) ) (cond ((null? callargs) (make-node '##core#call (list #t) (list cont (qnode 0)))) ((null? (cdr callargs)) (make-node '##core#call (list #t) (list cont (first callargs))) ) ((eq? number-type 'fixnum) (make-node '##core#call (list #t) (list cont (fold-inner (lambda (x y) (if (and (eq? 'quote (node-class y)) (eq? 2 (first (node-parameters y)))) (make-node '##core#inline '("C_fixnum_shift_left") (list x (qnode 1))) (make-node '##core#inline '("C_fixnum_times") (list x y)) ) ) callargs) ) ) ) (else #f) ) ) ) ) (rewrite 'scheme#+ 8 (lambda (db classargs cont callargs) ;; (+ ) -> ;; (+ ...) -> (##core#inline "C_fixnum_plus" (##core#inline "C_fixnum_plus" ...)) [fixnum-mode] ;; (+ ...) -> (##core#inline "C_u_fixnum_plus" (##core#inline "C_u_fixnum_plus" ...)) ;; [fixnum-mode + unsafe] ;; - Remove "0" from arguments, if more than 1. (cond ((or (null? callargs) (not (eq? number-type 'fixnum))) #f) ((null? (cdr callargs)) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (if unsafe '("C_u_fixnum_plus") '("C_fixnum_plus")) callargs)) ) ) (else (let ((callargs (cons (car callargs) (filter (lambda (x) (not (and (eq? 'quote (node-class x)) (zero? (first (node-parameters x))) ) ) ) (cdr callargs) ) ) ) ) (and (>= (length callargs) 2) (make-node '##core#call (list #t) (list cont (fold-inner (lambda (x y) (make-node '##core#inline (if unsafe '("C_u_fixnum_plus") '("C_fixnum_plus")) (list x y) ) ) callargs) ) ) ) ) ) ) ) ) (rewrite 'scheme#- 8 (lambda (db classargs cont callargs) ;; (- ) -> (##core#inline "C_fixnum_negate" ) [fixnum-mode] ;; (- ) -> (##core#inline "C_u_fixnum_negate" ) [fixnum-mode + unsafe] ;; (- ...) -> (##core#inline "C_fixnum_difference" (##core#inline "C_fixnum_difference" ...)) [fixnum-mode] ;; (- ...) -> (##core#inline "C_u_fixnum_difference" (##core#inline "C_u_fixnum_difference" ...)) ;; [fixnum-mode + unsafe] ;; - Remove "0" from arguments, if more than 1. (cond ((or (null? callargs) (not (eq? number-type 'fixnum))) #f) ((null? (cdr callargs)) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (if unsafe '("C_u_fixnum_negate") '("C_fixnum_negate")) callargs)) ) ) (else (let ((callargs (cons (car callargs) (filter (lambda (x) (not (and (eq? 'quote (node-class x)) (zero? (first (node-parameters x))) ) ) ) (cdr callargs) ) ) ) ) (and (>= (length callargs) 2) (make-node '##core#call (list #t) (list cont (fold-inner (lambda (x y) (make-node '##core#inline (if unsafe '("C_u_fixnum_difference") '("C_fixnum_difference")) (list x y) ) ) callargs) ) ) ) ) ) ) ) ) (let () (define (rewrite-div db classargs cont callargs) ;; (/ ...) -> (##core#inline "C_fixnum_divide" (##core#inline "C_fixnum_divide" ...)) [fixnum-mode] ;; - Remove "1" from arguments, if more than 1. ;; - Replace divisions by 2 with shift right. [fixnum-mode] (and (eq? number-type 'fixnum) (>= (length callargs) 2) (let ((callargs (cons (car callargs) (filter (lambda (x) (not (and (eq? 'quote (node-class x)) (eq? 1 (first (node-parameters x))) ) ) ) (cdr callargs) ) ) ) ) (and (>= (length callargs) 2) (make-node '##core#call (list #t) (list cont (fold-inner (lambda (x y) (if (and (eq? 'quote (node-class y)) (eq? 2 (first (node-parameters y)))) (make-node '##core#inline '("C_fixnum_shift_right") (list x (qnode 1))) (make-node '##core#inline '("C_fixnum_divide") (list x y)) ) ) callargs) ) ) ) ) ) ) (rewrite 'scheme#/ 8 rewrite-div) (rewrite '##sys#/-2 8 rewrite-div)) (rewrite 'scheme#quotient 8 (lambda (db classargs cont callargs) ;; (quotient 2) -> (##core#inline "C_fixnum_shift_right" 1) [fixnum-mode] ;; (quotient ) -> (##core#inline "C_fixnum_divide" ) [fixnum-mode] (and (eq? 'fixnum number-type) (= (length callargs) 2) (make-node '##core#call (list #t) (let ([arg2 (second callargs)]) (list cont (if (and (eq? 'quote (node-class arg2)) (eq? 2 (first (node-parameters arg2))) ) (make-node '##core#inline '("C_fixnum_shift_right") (list (first callargs) (qnode 1)) ) (make-node '##core#inline '("C_fixnum_divide") callargs) ) ) ) ) ) ) ) (rewrite 'scheme#+ 19) (rewrite 'scheme#- 19) (rewrite 'scheme#* 19) (rewrite 'scheme#/ 19) (rewrite 'scheme#+ 16 2 "C_s_a_i_plus" #t 29) (rewrite 'scheme#- 16 2 "C_s_a_i_minus" #t 29) (rewrite 'scheme#* 16 2 "C_s_a_i_times" #t 33) (rewrite 'scheme#quotient 16 2 "C_s_a_i_quotient" #t 5) (rewrite 'scheme#remainder 16 2 "C_s_a_i_remainder" #t 5) (rewrite 'scheme#modulo 16 2 "C_s_a_i_modulo" #t 5) (rewrite 'scheme#= 17 2 "C_i_nequalp") (rewrite 'scheme#> 17 2 "C_i_greaterp") (rewrite 'scheme#< 17 2 "C_i_lessp") (rewrite 'scheme#>= 17 2 "C_i_greater_or_equalp") (rewrite 'scheme#<= 17 2 "C_i_less_or_equalp") (rewrite 'scheme#= 13 #f "C_nequalp" #t) (rewrite 'scheme#> 13 #f "C_greaterp" #t) (rewrite 'scheme#< 13 #f "C_lessp" #t) (rewrite 'scheme#>= 13 #f "C_greater_or_equal_p" #t) (rewrite 'scheme#<= 13 #f "C_less_or_equal_p" #t) (rewrite 'scheme#* 13 #f "C_times" #t) (rewrite 'scheme#+ 13 #f "C_plus" #t) (rewrite 'scheme#- 13 '(1 . #f) "C_minus" #t) (rewrite 'scheme#number->string 13 '(1 . 2) "C_number_to_string" #t) (rewrite '##sys#call-with-current-continuation 13 1 "C_call_cc" #t) (rewrite '##sys#allocate-vector 13 4 "C_allocate_vector" #t) (rewrite '##sys#ensure-heap-reserve 13 1 "C_ensure_heap_reserve" #t) (rewrite 'chicken.platform#return-to-host 13 0 "C_return_to_host" #t) (rewrite '##sys#context-switch 13 1 "C_context_switch" #t) (rewrite '##sys#intern-symbol 13 1 "C_string_to_symbol" #t) (rewrite '##sys#make-symbol 13 1 "C_make_symbol" #t) (rewrite 'scheme#even? 14 'fixnum 1 "C_i_fixnumevenp" "C_i_fixnumevenp") (rewrite 'scheme#odd? 14 'fixnum 1 "C_i_fixnumoddp" "C_i_fixnumoddp") (rewrite 'scheme#remainder 14 'fixnum 2 "C_fixnum_modulo" "C_fixnum_modulo") (rewrite 'scheme#even? 17 1 "C_i_evenp") (rewrite 'scheme#odd? 17 1 "C_i_oddp") (rewrite 'chicken.fixnum#fxodd? 2 1 "C_i_fixnumoddp" #t) (rewrite 'chicken.fixnum#fxeven? 2 1 "C_i_fixnumevenp" #t) (rewrite 'scheme#floor 15 'flonum 'fixnum 'chicken.flonum#fpfloor #f) (rewrite 'scheme#ceiling 15 'flonum 'fixnum 'chicken.flonum#fpceiling #f) (rewrite 'scheme#truncate 15 'flonum 'fixnum 'chicken.flonum#fptruncate #f) (rewrite 'chicken.flonum#fpsin 16 1 "C_a_i_flonum_sin" #f words-per-flonum) (rewrite 'chicken.flonum#fpcos 16 1 "C_a_i_flonum_cos" #f words-per-flonum) (rewrite 'chicken.flonum#fptan 16 1 "C_a_i_flonum_tan" #f words-per-flonum) (rewrite 'chicken.flonum#fpasin 16 1 "C_a_i_flonum_asin" #f words-per-flonum) (rewrite 'chicken.flonum#fpacos 16 1 "C_a_i_flonum_acos" #f words-per-flonum) (rewrite 'chicken.flonum#fpatan 16 1 "C_a_i_flonum_atan" #f words-per-flonum) (rewrite 'chicken.flonum#fpatan2 16 2 "C_a_i_flonum_atan2" #f words-per-flonum) (rewrite 'chicken.flonum#fpexp 16 1 "C_a_i_flonum_exp" #f words-per-flonum) (rewrite 'chicken.flonum#fpexpt 16 2 "C_a_i_flonum_expt" #f words-per-flonum) (rewrite 'chicken.flonum#fplog 16 1 "C_a_i_flonum_log" #f words-per-flonum) (rewrite 'chicken.flonum#fpsqrt 16 1 "C_a_i_flonum_sqrt" #f words-per-flonum) (rewrite 'chicken.flonum#fpabs 16 1 "C_a_i_flonum_abs" #f words-per-flonum) (rewrite 'chicken.flonum#fptruncate 16 1 "C_a_i_flonum_truncate" #f words-per-flonum) (rewrite 'chicken.flonum#fpround 16 1 "C_a_i_flonum_round" #f words-per-flonum) (rewrite 'chicken.flonum#fpceiling 16 1 "C_a_i_flonum_ceiling" #f words-per-flonum) (rewrite 'chicken.flonum#fpround 16 1 "C_a_i_flonum_floor" #f words-per-flonum) (rewrite 'scheme#cons 16 2 "C_a_i_cons" #t 3) (rewrite '##sys#cons 16 2 "C_a_i_cons" #t 3) (rewrite 'scheme#list 16 #f "C_a_i_list" #t '(0 3) #t) (rewrite '##sys#list 16 #f "C_a_i_list" #t '(0 3)) (rewrite 'scheme#vector 16 #f "C_a_i_vector" #t #t #t) (rewrite '##sys#vector 16 #f "C_a_i_vector" #t #t) (rewrite '##sys#make-structure 16 #f "C_a_i_record" #t #t #t) (rewrite 'scheme#string 16 #f "C_a_i_string" #t #t) ; the last #t is actually too much, but we don't care (rewrite 'chicken.memory#address->pointer 16 1 "C_a_i_address_to_pointer" #f 2) (rewrite 'chicken.memory#pointer->address 16 1 "C_a_i_pointer_to_address" #f words-per-flonum) (rewrite 'chicken.memory#pointer+ 16 2 "C_a_u_i_pointer_inc" #f 2) (rewrite 'chicken.locative#locative-ref 16 1 "C_a_i_locative_ref" #t 6) (rewrite 'chicken.memory#pointer-u8-ref 2 1 "C_u_i_pointer_u8_ref" #f) (rewrite 'chicken.memory#pointer-s8-ref 2 1 "C_u_i_pointer_s8_ref" #f) (rewrite 'chicken.memory#pointer-u16-ref 2 1 "C_u_i_pointer_u16_ref" #f) (rewrite 'chicken.memory#pointer-s16-ref 2 1 "C_u_i_pointer_s16_ref" #f) (rewrite 'chicken.memory#pointer-u8-set! 2 2 "C_u_i_pointer_u8_set" #f) (rewrite 'chicken.memory#pointer-s8-set! 2 2 "C_u_i_pointer_s8_set" #f) (rewrite 'chicken.memory#pointer-u16-set! 2 2 "C_u_i_pointer_u16_set" #f) (rewrite 'chicken.memory#pointer-s16-set! 2 2 "C_u_i_pointer_s16_set" #f) (rewrite 'chicken.memory#pointer-u32-set! 2 2 "C_u_i_pointer_u32_set" #f) (rewrite 'chicken.memory#pointer-s32-set! 2 2 "C_u_i_pointer_s32_set" #f) (rewrite 'chicken.memory#pointer-f32-set! 2 2 "C_u_i_pointer_f32_set" #f) (rewrite 'chicken.memory#pointer-f64-set! 2 2 "C_u_i_pointer_f64_set" #f) (rewrite 'chicken.memory#pointer-u32-ref 16 1 "C_a_u_i_pointer_u32_ref" #f words-per-flonum) (rewrite 'chicken.memory#pointer-s32-ref 16 1 "C_a_u_i_pointer_s32_ref" #f words-per-flonum) (rewrite 'chicken.memory#pointer-f32-ref 16 1 "C_a_u_i_pointer_f32_ref" #f words-per-flonum) (rewrite 'chicken.memory#pointer-f64-ref 16 1 "C_a_u_i_pointer_f64_ref" #f words-per-flonum) (rewrite '##sys#setslot 8 (lambda (db classargs cont callargs) ;; (##sys#setslot ) -> (##core#inline "C_i_set_i_slot" ) ;; (##sys#setslot ) -> (##core#inline "C_i_setslot" ) (and (= (length callargs) 3) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (let ([val (third callargs)]) (if (and (eq? 'quote (node-class val)) (immediate? (first (node-parameters val))) ) '("C_i_set_i_slot") '("C_i_setslot") ) ) callargs) ) ) ) ) ) (rewrite 'chicken.fixnum#fx+ 17 2 "C_fixnum_plus" "C_u_fixnum_plus") (rewrite 'chicken.fixnum#fx- 17 2 "C_fixnum_difference" "C_u_fixnum_difference") (rewrite 'chicken.fixnum#fxshl 17 2 "C_fixnum_shift_left") (rewrite 'chicken.fixnum#fxshr 17 2 "C_fixnum_shift_right") (rewrite 'chicken.fixnum#fxneg 17 1 "C_fixnum_negate" "C_u_fixnum_negate") (rewrite 'chicken.fixnum#fxxor 17 2 "C_fixnum_xor" "C_fixnum_xor") (rewrite 'chicken.fixnum#fxand 17 2 "C_fixnum_and" "C_u_fixnum_and") (rewrite 'chicken.fixnum#fxior 17 2 "C_fixnum_or" "C_u_fixnum_or") (rewrite 'chicken.fixnum#fx/ 17 2 "C_fixnum_divide" "C_u_fixnum_divide") (rewrite 'chicken.fixnum#fxmod 17 2 "C_fixnum_modulo" "C_u_fixnum_modulo") (rewrite 'chicken.fixnum#fxrem 17 2 "C_i_fixnum_remainder_checked") (rewrite 'chicken.bitwise#arithmetic-shift 8 (lambda (db classargs cont callargs) ;; (arithmetic-shift <-int>) ;; -> (##core#inline "C_fixnum_shift_right" -) ;; (arithmetic-shift <+int>) ;; -> (##core#inline "C_fixnum_shift_left" ) ;; _ -> (##core#inline "C_i_fixnum_arithmetic_shift" ) ;; ;; not in fixnum-mode: ;; _ -> (##core#inline_allocate ("C_s_a_i_arithmetic_shift" 6) ) (and (= 2 (length callargs)) (let ((val (second callargs))) (make-node '##core#call (list #t) (list cont (or (and-let* (((eq? 'quote (node-class val))) ((eq? number-type 'fixnum)) (n (first (node-parameters val))) ((and (fixnum? n) (not (big-fixnum? n)))) ) (if (negative? n) (make-node '##core#inline '("C_fixnum_shift_right") (list (first callargs) (qnode (- n))) ) (make-node '##core#inline '("C_fixnum_shift_left") (list (first callargs) val) ) ) ) (if (eq? number-type 'fixnum) (make-node '##core#inline '("C_i_fixnum_arithmetic_shift") callargs) (make-node '##core#inline_allocate (list "C_s_a_i_arithmetic_shift" 5) callargs) ) ) ) ) ) ) ) ) (rewrite '##sys#byte 17 2 "C_subbyte") (rewrite '##sys#setbyte 17 3 "C_setbyte") (rewrite '##sys#peek-fixnum 17 2 "C_peek_fixnum") (rewrite '##sys#peek-byte 17 2 "C_peek_byte") (rewrite 'chicken.memory#pointer->object 17 2 "C_pointer_to_object") (rewrite '##sys#setislot 17 3 "C_i_set_i_slot") (rewrite '##sys#poke-integer 17 3 "C_poke_integer") (rewrite '##sys#poke-double 17 3 "C_poke_double") (rewrite 'scheme#string=? 17 2 "C_i_string_equal_p" "C_u_i_string_equal_p") (rewrite 'scheme#string-ci=? 17 2 "C_i_string_ci_equal_p") (rewrite '##sys#permanent? 17 1 "C_permanentp") (rewrite '##sys#null-pointer? 17 1 "C_null_pointerp" "C_null_pointerp") (rewrite '##sys#immediate? 17 1 "C_immp") (rewrite 'chicken.locative#locative->object 17 1 "C_i_locative_to_object") (rewrite 'chicken.locative#locative-set! 17 2 "C_i_locative_set") (rewrite '##sys#foreign-fixnum-argument 17 1 "C_i_foreign_fixnum_argumentp") (rewrite '##sys#foreign-char-argument 17 1 "C_i_foreign_char_argumentp") (rewrite '##sys#foreign-flonum-argument 17 1 "C_i_foreign_flonum_argumentp") (rewrite '##sys#foreign-block-argument 17 1 "C_i_foreign_block_argumentp") (rewrite '##sys#foreign-struct-wrapper-argument 17 2 "C_i_foreign_struct_wrapper_argumentp") (rewrite '##sys#foreign-string-argument 17 1 "C_i_foreign_string_argumentp") (rewrite '##sys#foreign-pointer-argument 17 1 "C_i_foreign_pointer_argumentp") (rewrite '##sys#foreign-ranged-integer-argument 17 2 "C_i_foreign_ranged_integer_argumentp") (rewrite '##sys#foreign-unsigned-ranged-integer-argument 17 2 "C_i_foreign_unsigned_ranged_integer_argumentp") (rewrite 'chicken.blob#blob-size 2 1 "C_block_size" #f) ;; TODO: Move this stuff to types.db (rewrite 'srfi-4#u8vector-ref 2 2 "C_u_i_u8vector_ref" #f) (rewrite 'srfi-4#u8vector-ref 2 2 "C_i_u8vector_ref" #t) (rewrite 'srfi-4#s8vector-ref 2 2 "C_u_i_s8vector_ref" #f) (rewrite 'srfi-4#s8vector-ref 2 2 "C_i_s8vector_ref" #t) (rewrite 'srfi-4#u16vector-ref 2 2 "C_u_i_u16vector_ref" #f) (rewrite 'srfi-4#u16vector-ref 2 2 "C_i_u16vector_ref" #t) (rewrite 'srfi-4#s16vector-ref 2 2 "C_u_i_s16vector_ref" #f) (rewrite 'srfi-4#s16vector-ref 2 2 "C_i_s16vector_ref" #t) (rewrite 'srfi-4#u32vector-ref 16 2 "C_a_i_u32vector_ref" #t words-per-flonum) (rewrite 'srfi-4#s32vector-ref 16 2 "C_a_i_s32vector_ref" #t words-per-flonum) (rewrite 'srfi-4#f32vector-ref 16 2 "C_a_u_i_f32vector_ref" #f words-per-flonum) (rewrite 'srfi-4#f32vector-ref 16 2 "C_a_i_f32vector_ref" #t words-per-flonum) (rewrite 'srfi-4#f64vector-ref 16 2 "C_a_u_i_f64vector_ref" #f words-per-flonum) (rewrite 'srfi-4#f64vector-ref 16 2 "C_a_i_f64vector_ref" #t words-per-flonum) (rewrite 'srfi-4#u8vector-set! 2 3 "C_u_i_u8vector_set" #f) (rewrite 'srfi-4#u8vector-set! 2 3 "C_i_u8vector_set" #t) (rewrite 'srfi-4#s8vector-set! 2 3 "C_u_i_s8vector_set" #f) (rewrite 'srfi-4#s8vector-set! 2 3 "C_i_s8vector_set" #t) (rewrite 'srfi-4#u16vector-set! 2 3 "C_u_i_u16vector_set" #f) (rewrite 'srfi-4#u16vector-set! 2 3 "C_i_u16vector_set" #t) (rewrite 'srfi-4#s16vector-set! 2 3 "C_u_i_s16vector_set" #f) (rewrite 'srfi-4#s16vector-set! 2 3 "C_i_s16vector_set" #t) (rewrite 'srfi-4#u32vector-set! 2 3 "C_u_i_u32vector_set" #f) (rewrite 'srfi-4#u32vector-set! 2 3 "C_i_u32vector_set" #t) (rewrite 'srfi-4#s32vector-set! 2 3 "C_u_i_s32vector_set" #f) (rewrite 'srfi-4#s32vector-set! 2 3 "C_i_s32vector_set" #t) (rewrite 'srfi-4#u64vector-set! 2 3 "C_u_i_u64vector_set" #f) (rewrite 'srfi-4#u64vector-set! 2 3 "C_i_u64vector_set" #t) (rewrite 'srfi-4#s64vector-set! 2 3 "C_u_i_s64vector_set" #f) (rewrite 'srfi-4#s64vector-set! 2 3 "C_i_s64vector_set" #t) (rewrite 'srfi-4#f32vector-set! 2 3 "C_u_i_f32vector_set" #f) (rewrite 'srfi-4#f32vector-set! 2 3 "C_i_f32vector_set" #t) (rewrite 'srfi-4#f64vector-set! 2 3 "C_u_i_f64vector_set" #f) (rewrite 'srfi-4#f64vector-set! 2 3 "C_i_f64vector_set" #t) (rewrite 'srfi-4#u8vector-length 2 1 "C_u_i_u8vector_length" #f) (rewrite 'srfi-4#u8vector-length 2 1 "C_i_u8vector_length" #t) (rewrite 'srfi-4#s8vector-length 2 1 "C_u_i_s8vector_length" #f) (rewrite 'srfi-4#s8vector-length 2 1 "C_i_s8vector_length" #t) (rewrite 'srfi-4#u16vector-length 2 1 "C_u_i_u16vector_length" #f) (rewrite 'srfi-4#u16vector-length 2 1 "C_i_u16vector_length" #t) (rewrite 'srfi-4#s16vector-length 2 1 "C_u_i_s16vector_length" #f) (rewrite 'srfi-4#s16vector-length 2 1 "C_i_s16vector_length" #t) (rewrite 'srfi-4#u32vector-length 2 1 "C_u_i_u32vector_length" #f) (rewrite 'srfi-4#u32vector-length 2 1 "C_i_u32vector_length" #t) (rewrite 'srfi-4#s32vector-length 2 1 "C_u_i_s32vector_length" #f) (rewrite 'srfi-4#s32vector-length 2 1 "C_i_s32vector_length" #t) (rewrite 'srfi-4#u64vector-length 2 1 "C_u_i_u64vector_length" #f) (rewrite 'srfi-4#u64vector-length 2 1 "C_i_u64vector_length" #t) (rewrite 'srfi-4#s64vector-length 2 1 "C_u_i_s64vector_length" #f) (rewrite 'srfi-4#s64vector-length 2 1 "C_i_s64vector_length" #t) (rewrite 'srfi-4#f32vector-length 2 1 "C_u_i_f32vector_length" #f) (rewrite 'srfi-4#f32vector-length 2 1 "C_i_f32vector_length" #t) (rewrite 'srfi-4#f64vector-length 2 1 "C_u_i_f64vector_length" #f) (rewrite 'srfi-4#f64vector-length 2 1 "C_i_f64vector_length" #t) (rewrite 'chicken.base#atom? 17 1 "C_i_not_pair_p") (rewrite 'srfi-4#u8vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'srfi-4#s8vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'srfi-4#u16vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'srfi-4#s16vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'srfi-4#u32vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'srfi-4#s32vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'srfi-4#u64vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'srfi-4#s64vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'srfi-4#f32vector->blob/shared 7 1 "C_slot" 1 #f) (rewrite 'srfi-4#f64vector->blob/shared 7 1 "C_slot" 1 #f) (let () (define (rewrite-make-vector db classargs cont callargs) ;; (make-vector ' []) -> (let (( )) (##core#inline_allocate ("C_a_i_vector" +1) ' )) ;; - should be less or equal to 32. (let ([argc (length callargs)]) (and (pair? callargs) (let ([n (first callargs)]) (and (eq? 'quote (node-class n)) (let ([tmp (gensym)] [c (first (node-parameters n))] ) (and (fixnum? c) (<= 0 c 32) (let ([val (if (pair? (cdr callargs)) (second callargs) (make-node '##core#undefined '() '()) ) ] ) (make-node 'let (list tmp) (list val (make-node '##core#call (list #t) (list cont (make-node '##core#inline_allocate (list "C_a_i_vector" (add1 c)) (list-tabulate c (lambda (i) (varnode tmp)) ) ) ) ) ) ) ) ) ) ) ) ) ) ) (rewrite 'scheme#make-vector 8 rewrite-make-vector) (rewrite '##sys#make-vector 8 rewrite-make-vector) ) (let () (define (rewrite-call/cc db classargs cont callargs) ;; (call/cc ), = (lambda (kont k) ... k is never used ...) -> ( #f) (and (= 1 (length callargs)) (let ((val (first callargs))) (and (eq? '##core#variable (node-class val)) (and-let* ((proc (db-get db (first (node-parameters val)) 'value)) ((eq? '##core#lambda (node-class proc))) ) (let ((llist (third (node-parameters proc)))) (##sys#decompose-lambda-list llist (lambda (vars argc rest) (and (= argc 2) (let ((var (or rest (second llist)))) (and (not (db-get db var 'references)) (not (db-get db var 'assigned)) (not (db-get db var 'inline-transient)) (make-node '##core#call (list #t) (list val cont (qnode #f)) ) ) ) ) ) ) ) ) ) ) ) ) (rewrite 'scheme#call-with-current-continuation 8 rewrite-call/cc) (rewrite 'chicken.base#call/cc 8 rewrite-call/cc)) (define setter-map '((scheme#car . scheme#set-car!) (scheme#cdr . scheme#set-cdr!) (scheme#string-ref . scheme#string-set!) (scheme#vector-ref . scheme#vector-set!) (srfi-4#u8vector-ref . srfi-4#u8vector-set!) (srfi-4#s8vector-ref . srfi-4#s8vector-set!) (srfi-4#u16vector-ref . srfi-4#u16vector-set!) (srfi-4#s16vector-ref . srfi-4#s16vector-set!) (srfi-4#u32vector-ref . srfi-4#u32vector-set!) (srfi-4#s32vector-ref . srfi-4#s32vector-set!) (srfi-4#u64vector-ref . srfi-4#u64vector-set!) (srfi-4#s64vector-ref . srfi-4#s64vector-set!) (srfi-4#f32vector-ref . srfi-4#f32vector-set!) (srfi-4#f64vector-ref . srfi-4#f64vector-set!) (chicken.locative#locative-ref . chicken.locative#locative-set!) (chicken.memory#pointer-u8-ref . chicken.memory#pointer-u8-set!) (chicken.memory#pointer-s8-ref . chicken.memory#pointer-s8-set!) (chicken.memory#pointer-u16-ref . chicken.memory#pointer-u16-set!) (chicken.memory#pointer-s16-ref . chicken.memory#pointer-s16-set!) (chicken.memory#pointer-u32-ref . chicken.memory#pointer-u32-set!) (chicken.memory#pointer-s32-ref . chicken.memory#pointer-s32-set!) (chicken.memory#pointer-f32-ref . chicken.memory#pointer-f32-set!) (chicken.memory#pointer-f64-ref . chicken.memory#pointer-f64-set!) (chicken.memory.representation#block-ref . chicken.memory.representation#block-set!) )) (rewrite '##sys#setter 8 (lambda (db classargs cont callargs) ;; (setter ) -> (and (= 1 (length callargs)) (let ((arg (car callargs))) (and (eq? '##core#variable (node-class arg)) (let ((sym (car (node-parameters arg)))) (and (intrinsic? sym) (and-let* ((a (assq sym setter-map))) (make-node '##core#call (list #t) (list cont (varnode (cdr a))) ) ) ) ) ) ) ) ) ) (rewrite 'chicken.base#void 3 '##sys#undefined-value 0) (rewrite '##sys#void 3 '##sys#undefined-value #f) (rewrite 'scheme#current-input-port 3 '##sys#standard-input 0) (rewrite 'scheme#current-output-port 3 '##sys#standard-output 0) (rewrite 'chicken.base#current-error-port 3 '##sys#standard-error 0) (rewrite 'chicken.bitwise#bit->boolean 8 (lambda (db classargs cont callargs) (and (= 2 (length callargs)) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (list (if (eq? number-type 'fixnum) "C_u_i_bit_to_bool" "C_i_bit_to_bool")) callargs) ) ) ) ) ) (rewrite 'chicken.bitwise#integer-length 8 (lambda (db classargs cont callargs) (and (= 1 (length callargs)) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (list (if (eq? number-type 'fixnum) "C_i_fixnum_length" "C_i_integer_length")) callargs) ) ) ) ) ) (rewrite 'scheme#read-char 23 0 '##sys#read-char/port '##sys#standard-input) (rewrite 'scheme#write-char 23 1 '##sys#write-char/port '##sys#standard-output) (rewrite 'chicken.string#substring=? 23 2 '##sys#substring=? 0 0 #f) (rewrite 'chicken.string#substring-ci=? 23 2 '##sys#substring-ci=? 0 0 #f) (rewrite 'chicken.string#substring-index 23 2 '##sys#substring-index 0) (rewrite 'chicken.string#substring-index-ci 23 2 '##sys#substring-index-ci 0) (rewrite 'chicken.keyword#get-keyword 7 2 "C_i_get_keyword" #f #t) (rewrite '##sys#get-keyword 7 2 "C_i_get_keyword" #f #t) ) chicken-5.1.0/support.c0000644000175000017500000355711713502227744014640 0ustar sjamaansjamaan/* Generated from support.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: support.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.support -output-file support.c unit: support uses: library eval expand data-structures extras file internal pathname port */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_file_toplevel) C_externimport void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_port_toplevel) C_externimport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[529]; static double C_possibly_force_alignment; #define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub4065(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word lit=(C_word )(C_a0); return(C_header_size(lit)); C_ret: #undef return return C_r;} /* from k7123 */ C_regparm static C_word C_fcall stub915(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_fix((C_word)C_wordstobytes(t0)); return C_r;} /* from k7116 */ C_regparm static C_word C_fcall stub910(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_fix((C_word)C_bytestowords(t0)); return C_r;} C_noret_decl(f18834) static void C_ccall f18834(C_word c,C_word *av) C_noret; C_noret_decl(f_10029) static void C_ccall f_10029(C_word c,C_word *av) C_noret; C_noret_decl(f_10031) static void C_fcall f_10031(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10056) static void C_ccall f_10056(C_word c,C_word *av) C_noret; C_noret_decl(f_10087) static void C_fcall f_10087(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_10099) static void C_ccall f_10099(C_word c,C_word *av) C_noret; C_noret_decl(f_10103) static void C_ccall f_10103(C_word c,C_word *av) C_noret; C_noret_decl(f_10126) static void C_ccall f_10126(C_word c,C_word *av) C_noret; C_noret_decl(f_10137) static void C_fcall f_10137(C_word t0,C_word t1) C_noret; C_noret_decl(f_10144) static void C_ccall f_10144(C_word c,C_word *av) C_noret; C_noret_decl(f_10155) static void C_ccall f_10155(C_word c,C_word *av) C_noret; C_noret_decl(f_10157) static void C_fcall f_10157(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10182) static void C_ccall f_10182(C_word c,C_word *av) C_noret; C_noret_decl(f_10212) static void C_ccall f_10212(C_word c,C_word *av) C_noret; C_noret_decl(f_10214) static void C_fcall f_10214(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10239) static void C_ccall f_10239(C_word c,C_word *av) C_noret; C_noret_decl(f_10253) static void C_ccall f_10253(C_word c,C_word *av) C_noret; C_noret_decl(f_10263) static void C_ccall f_10263(C_word c,C_word *av) C_noret; C_noret_decl(f_10265) static void C_fcall f_10265(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10290) static void C_ccall f_10290(C_word c,C_word *av) C_noret; C_noret_decl(f_10363) static void C_ccall f_10363(C_word c,C_word *av) C_noret; C_noret_decl(f_10369) static void C_fcall f_10369(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10395) static void C_ccall f_10395(C_word c,C_word *av) C_noret; C_noret_decl(f_10399) static void C_ccall f_10399(C_word c,C_word *av) C_noret; C_noret_decl(f_10415) static void C_ccall f_10415(C_word c,C_word *av) C_noret; C_noret_decl(f_10421) static void C_ccall f_10421(C_word c,C_word *av) C_noret; C_noret_decl(f_10427) static void C_ccall f_10427(C_word c,C_word *av) C_noret; C_noret_decl(f_10433) static void C_ccall f_10433(C_word c,C_word *av) C_noret; C_noret_decl(f_10437) static void C_ccall f_10437(C_word c,C_word *av) C_noret; C_noret_decl(f_10440) static void C_ccall f_10440(C_word c,C_word *av) C_noret; C_noret_decl(f_10447) static void C_ccall f_10447(C_word c,C_word *av) C_noret; C_noret_decl(f_10449) static void C_fcall f_10449(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10479) static void C_ccall f_10479(C_word c,C_word *av) C_noret; C_noret_decl(f_10507) static void C_ccall f_10507(C_word c,C_word *av) C_noret; C_noret_decl(f_10531) static void C_ccall f_10531(C_word c,C_word *av) C_noret; C_noret_decl(f_10553) static void C_fcall f_10553(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10578) static void C_ccall f_10578(C_word c,C_word *av) C_noret; C_noret_decl(f_10600) static void C_ccall f_10600(C_word c,C_word *av) C_noret; C_noret_decl(f_10608) static void C_fcall f_10608(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10659) static void C_ccall f_10659(C_word c,C_word *av) C_noret; C_noret_decl(f_10666) static void C_ccall f_10666(C_word c,C_word *av) C_noret; C_noret_decl(f_10669) static void C_ccall f_10669(C_word c,C_word *av) C_noret; C_noret_decl(f_10698) static void C_ccall f_10698(C_word c,C_word *av) C_noret; C_noret_decl(f_10706) static void C_ccall f_10706(C_word c,C_word *av) C_noret; C_noret_decl(f_10722) static void C_ccall f_10722(C_word c,C_word *av) C_noret; C_noret_decl(f_10725) static void C_ccall f_10725(C_word c,C_word *av) C_noret; C_noret_decl(f_10731) static void C_ccall f_10731(C_word c,C_word *av) C_noret; C_noret_decl(f_10751) static void C_ccall f_10751(C_word c,C_word *av) C_noret; C_noret_decl(f_10774) static void C_ccall f_10774(C_word c,C_word *av) C_noret; C_noret_decl(f_10779) static void C_fcall f_10779(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10783) static void C_ccall f_10783(C_word c,C_word *av) C_noret; C_noret_decl(f_10786) static void C_ccall f_10786(C_word c,C_word *av) C_noret; C_noret_decl(f_10792) static void C_ccall f_10792(C_word c,C_word *av) C_noret; C_noret_decl(f_10795) static void C_ccall f_10795(C_word c,C_word *av) C_noret; C_noret_decl(f_10812) static void C_fcall f_10812(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10822) static void C_ccall f_10822(C_word c,C_word *av) C_noret; C_noret_decl(f_10824) static void C_fcall f_10824(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10849) static void C_ccall f_10849(C_word c,C_word *av) C_noret; C_noret_decl(f_10860) static void C_ccall f_10860(C_word c,C_word *av) C_noret; C_noret_decl(f_10868) static void C_ccall f_10868(C_word c,C_word *av) C_noret; C_noret_decl(f_10876) static void C_ccall f_10876(C_word c,C_word *av) C_noret; C_noret_decl(f_10889) static void C_ccall f_10889(C_word c,C_word *av) C_noret; C_noret_decl(f_10891) static void C_fcall f_10891(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10939) static void C_fcall f_10939(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10964) static void C_ccall f_10964(C_word c,C_word *av) C_noret; C_noret_decl(f_10983) static void C_ccall f_10983(C_word c,C_word *av) C_noret; C_noret_decl(f_10988) static void C_fcall f_10988(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10998) static void C_ccall f_10998(C_word c,C_word *av) C_noret; C_noret_decl(f_11000) static void C_fcall f_11000(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11025) static void C_ccall f_11025(C_word c,C_word *av) C_noret; C_noret_decl(f_11047) static void C_fcall f_11047(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11095) static void C_ccall f_11095(C_word c,C_word *av) C_noret; C_noret_decl(f_11101) static void C_fcall f_11101(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11115) static void C_ccall f_11115(C_word c,C_word *av) C_noret; C_noret_decl(f_11119) static void C_ccall f_11119(C_word c,C_word *av) C_noret; C_noret_decl(f_11125) static void C_ccall f_11125(C_word c,C_word *av) C_noret; C_noret_decl(f_11163) static void C_ccall f_11163(C_word c,C_word *av) C_noret; C_noret_decl(f_11167) static void C_ccall f_11167(C_word c,C_word *av) C_noret; C_noret_decl(f_11170) static void C_ccall f_11170(C_word c,C_word *av) C_noret; C_noret_decl(f_11173) static void C_ccall f_11173(C_word c,C_word *av) C_noret; C_noret_decl(f_11208) static void C_ccall f_11208(C_word c,C_word *av) C_noret; C_noret_decl(f_11252) static void C_ccall f_11252(C_word c,C_word *av) C_noret; C_noret_decl(f_11254) static void C_fcall f_11254(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11279) static void C_ccall f_11279(C_word c,C_word *av) C_noret; C_noret_decl(f_11294) static void C_ccall f_11294(C_word c,C_word *av) C_noret; C_noret_decl(f_11323) static void C_ccall f_11323(C_word c,C_word *av) C_noret; C_noret_decl(f_11325) static void C_fcall f_11325(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11350) static void C_ccall f_11350(C_word c,C_word *av) C_noret; C_noret_decl(f_11359) static void C_ccall f_11359(C_word c,C_word *av) C_noret; C_noret_decl(f_11363) static void C_ccall f_11363(C_word c,C_word *av) C_noret; C_noret_decl(f_11366) static void C_ccall f_11366(C_word c,C_word *av) C_noret; C_noret_decl(f_11372) static void C_ccall f_11372(C_word c,C_word *av) C_noret; C_noret_decl(f_11380) static void C_ccall f_11380(C_word c,C_word *av) C_noret; C_noret_decl(f_11388) static void C_fcall f_11388(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11398) static void C_ccall f_11398(C_word c,C_word *av) C_noret; C_noret_decl(f_11426) static void C_ccall f_11426(C_word c,C_word *av) C_noret; C_noret_decl(f_11430) static void C_ccall f_11430(C_word c,C_word *av) C_noret; C_noret_decl(f_11435) static void C_ccall f_11435(C_word c,C_word *av) C_noret; C_noret_decl(f_11441) static void C_ccall f_11441(C_word c,C_word *av) C_noret; C_noret_decl(f_11444) static void C_ccall f_11444(C_word c,C_word *av) C_noret; C_noret_decl(f_11449) static void C_fcall f_11449(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11459) static void C_ccall f_11459(C_word c,C_word *av) C_noret; C_noret_decl(f_11474) static void C_ccall f_11474(C_word c,C_word *av) C_noret; C_noret_decl(f_11476) static void C_ccall f_11476(C_word c,C_word *av) C_noret; C_noret_decl(f_11483) static void C_ccall f_11483(C_word c,C_word *av) C_noret; C_noret_decl(f_11504) static void C_fcall f_11504(C_word t0,C_word t1) C_noret; C_noret_decl(f_11538) static void C_ccall f_11538(C_word c,C_word *av) C_noret; C_noret_decl(f_11541) static void C_fcall f_11541(C_word t0,C_word t1) C_noret; C_noret_decl(f_11560) static void C_ccall f_11560(C_word c,C_word *av) C_noret; C_noret_decl(f_11586) static void C_ccall f_11586(C_word c,C_word *av) C_noret; C_noret_decl(f_11619) static void C_ccall f_11619(C_word c,C_word *av) C_noret; C_noret_decl(f_11621) static void C_ccall f_11621(C_word c,C_word *av) C_noret; C_noret_decl(f_11627) static void C_ccall f_11627(C_word c,C_word *av) C_noret; C_noret_decl(f_11633) static void C_fcall f_11633(C_word t0,C_word t1) C_noret; C_noret_decl(f_11637) static void C_ccall f_11637(C_word c,C_word *av) C_noret; C_noret_decl(f_11660) static void C_ccall f_11660(C_word c,C_word *av) C_noret; C_noret_decl(f_11671) static void C_ccall f_11671(C_word c,C_word *av) C_noret; C_noret_decl(f_11677) static void C_ccall f_11677(C_word c,C_word *av) C_noret; C_noret_decl(f_11680) static void C_fcall f_11680(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11688) static C_word C_fcall f_11688(C_word t0,C_word t1); C_noret_decl(f_11714) static void C_fcall f_11714(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11736) static void C_ccall f_11736(C_word c,C_word *av) C_noret; C_noret_decl(f_11761) static void C_fcall f_11761(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11783) static void C_ccall f_11783(C_word c,C_word *av) C_noret; C_noret_decl(f_11801) static void C_fcall f_11801(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11832) static void C_ccall f_11832(C_word c,C_word *av) C_noret; C_noret_decl(f_11884) static void C_ccall f_11884(C_word c,C_word *av) C_noret; C_noret_decl(f_11890) static void C_ccall f_11890(C_word c,C_word *av) C_noret; C_noret_decl(f_11910) static void C_ccall f_11910(C_word c,C_word *av) C_noret; C_noret_decl(f_11916) static void C_ccall f_11916(C_word c,C_word *av) C_noret; C_noret_decl(f_11942) static void C_fcall f_11942(C_word t0,C_word t1) C_noret; C_noret_decl(f_11956) static void C_ccall f_11956(C_word c,C_word *av) C_noret; C_noret_decl(f_11964) static void C_ccall f_11964(C_word c,C_word *av) C_noret; C_noret_decl(f_12019) static void C_ccall f_12019(C_word c,C_word *av) C_noret; C_noret_decl(f_12048) static void C_ccall f_12048(C_word c,C_word *av) C_noret; C_noret_decl(f_12145) static void C_ccall f_12145(C_word c,C_word *av) C_noret; C_noret_decl(f_12151) static void C_ccall f_12151(C_word c,C_word *av) C_noret; C_noret_decl(f_12158) static void C_fcall f_12158(C_word t0,C_word t1) C_noret; C_noret_decl(f_12161) static void C_ccall f_12161(C_word c,C_word *av) C_noret; C_noret_decl(f_12184) static void C_ccall f_12184(C_word c,C_word *av) C_noret; C_noret_decl(f_12186) static void C_ccall f_12186(C_word c,C_word *av) C_noret; C_noret_decl(f_12192) static void C_ccall f_12192(C_word c,C_word *av) C_noret; C_noret_decl(f_12199) static void C_fcall f_12199(C_word t0,C_word t1) C_noret; C_noret_decl(f_12202) static void C_ccall f_12202(C_word c,C_word *av) C_noret; C_noret_decl(f_12221) static void C_ccall f_12221(C_word c,C_word *av) C_noret; C_noret_decl(f_12223) static void C_ccall f_12223(C_word c,C_word *av) C_noret; C_noret_decl(f_12229) static void C_ccall f_12229(C_word c,C_word *av) C_noret; C_noret_decl(f_12242) static void C_ccall f_12242(C_word c,C_word *av) C_noret; C_noret_decl(f_12270) static void C_ccall f_12270(C_word c,C_word *av) C_noret; C_noret_decl(f_12272) static void C_ccall f_12272(C_word c,C_word *av) C_noret; C_noret_decl(f_12293) static void C_ccall f_12293(C_word c,C_word *av) C_noret; C_noret_decl(f_12300) static void C_ccall f_12300(C_word c,C_word *av) C_noret; C_noret_decl(f_12306) static void C_ccall f_12306(C_word c,C_word *av) C_noret; C_noret_decl(f_12312) static void C_ccall f_12312(C_word c,C_word *av) C_noret; C_noret_decl(f_12321) static void C_ccall f_12321(C_word c,C_word *av) C_noret; C_noret_decl(f_12330) static void C_ccall f_12330(C_word c,C_word *av) C_noret; C_noret_decl(f_12339) static void C_ccall f_12339(C_word c,C_word *av) C_noret; C_noret_decl(f_12348) static void C_ccall f_12348(C_word c,C_word *av) C_noret; C_noret_decl(f_12357) static void C_ccall f_12357(C_word c,C_word *av) C_noret; C_noret_decl(f_12383) static void C_ccall f_12383(C_word c,C_word *av) C_noret; C_noret_decl(f_12386) static void C_ccall f_12386(C_word c,C_word *av) C_noret; C_noret_decl(f_12397) static void C_ccall f_12397(C_word c,C_word *av) C_noret; C_noret_decl(f_12399) static void C_ccall f_12399(C_word c,C_word *av) C_noret; C_noret_decl(f_12453) static void C_ccall f_12453(C_word c,C_word *av) C_noret; C_noret_decl(f_12459) static void C_ccall f_12459(C_word c,C_word *av) C_noret; C_noret_decl(f_12465) static void C_ccall f_12465(C_word c,C_word *av) C_noret; C_noret_decl(f_12471) static void C_fcall f_12471(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12496) static void C_fcall f_12496(C_word t0,C_word t1) C_noret; C_noret_decl(f_12511) static void C_fcall f_12511(C_word t0,C_word t1) C_noret; C_noret_decl(f_12529) static void C_ccall f_12529(C_word c,C_word *av) C_noret; C_noret_decl(f_12579) static void C_ccall f_12579(C_word c,C_word *av) C_noret; C_noret_decl(f_12594) static void C_fcall f_12594(C_word t0,C_word t1) C_noret; C_noret_decl(f_12634) static void C_fcall f_12634(C_word t0,C_word t1) C_noret; C_noret_decl(f_12637) static void C_ccall f_12637(C_word c,C_word *av) C_noret; C_noret_decl(f_12652) static void C_fcall f_12652(C_word t0,C_word t1) C_noret; C_noret_decl(f_12676) static void C_fcall f_12676(C_word t0,C_word t1) C_noret; C_noret_decl(f_12702) static void C_fcall f_12702(C_word t0,C_word t1) C_noret; C_noret_decl(f_12708) static void C_ccall f_12708(C_word c,C_word *av) C_noret; C_noret_decl(f_12714) static void C_ccall f_12714(C_word c,C_word *av) C_noret; C_noret_decl(f_12717) static void C_ccall f_12717(C_word c,C_word *av) C_noret; C_noret_decl(f_12720) static void C_ccall f_12720(C_word c,C_word *av) C_noret; C_noret_decl(f_12723) static void C_ccall f_12723(C_word c,C_word *av) C_noret; C_noret_decl(f_12745) static void C_fcall f_12745(C_word t0,C_word t1) C_noret; C_noret_decl(f_12751) static void C_ccall f_12751(C_word c,C_word *av) C_noret; C_noret_decl(f_12757) static void C_ccall f_12757(C_word c,C_word *av) C_noret; C_noret_decl(f_12760) static void C_ccall f_12760(C_word c,C_word *av) C_noret; C_noret_decl(f_12763) static void C_ccall f_12763(C_word c,C_word *av) C_noret; C_noret_decl(f_12766) static void C_ccall f_12766(C_word c,C_word *av) C_noret; C_noret_decl(f_12789) static void C_fcall f_12789(C_word t0,C_word t1) C_noret; C_noret_decl(f_12792) static void C_ccall f_12792(C_word c,C_word *av) C_noret; C_noret_decl(f_12833) static void C_fcall f_12833(C_word t0,C_word t1) C_noret; C_noret_decl(f_12836) static void C_ccall f_12836(C_word c,C_word *av) C_noret; C_noret_decl(f_12851) static void C_fcall f_12851(C_word t0,C_word t1) C_noret; C_noret_decl(f_12878) static void C_fcall f_12878(C_word t0,C_word t1) C_noret; C_noret_decl(f_12921) static void C_ccall f_12921(C_word c,C_word *av) C_noret; C_noret_decl(f_12925) static void C_fcall f_12925(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12952) static void C_fcall f_12952(C_word t0,C_word t1) C_noret; C_noret_decl(f_12955) static void C_ccall f_12955(C_word c,C_word *av) C_noret; C_noret_decl(f_12990) static void C_ccall f_12990(C_word c,C_word *av) C_noret; C_noret_decl(f_13026) static void C_ccall f_13026(C_word c,C_word *av) C_noret; C_noret_decl(f_13529) static void C_ccall f_13529(C_word c,C_word *av) C_noret; C_noret_decl(f_13535) static void C_ccall f_13535(C_word c,C_word *av) C_noret; C_noret_decl(f_13548) static void C_ccall f_13548(C_word c,C_word *av) C_noret; C_noret_decl(f_13562) static void C_ccall f_13562(C_word c,C_word *av) C_noret; C_noret_decl(f_13575) static void C_ccall f_13575(C_word c,C_word *av) C_noret; C_noret_decl(f_13589) static void C_ccall f_13589(C_word c,C_word *av) C_noret; C_noret_decl(f_13595) static void C_ccall f_13595(C_word c,C_word *av) C_noret; C_noret_decl(f_13599) static void C_ccall f_13599(C_word c,C_word *av) C_noret; C_noret_decl(f_13603) static void C_fcall f_13603(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13622) static void C_ccall f_13622(C_word c,C_word *av) C_noret; C_noret_decl(f_13628) static void C_ccall f_13628(C_word c,C_word *av) C_noret; C_noret_decl(f_13631) static void C_fcall f_13631(C_word t0,C_word t1) C_noret; C_noret_decl(f_13640) static void C_ccall f_13640(C_word c,C_word *av) C_noret; C_noret_decl(f_13650) static void C_fcall f_13650(C_word t0,C_word t1) C_noret; C_noret_decl(f_13659) static void C_fcall f_13659(C_word t0,C_word t1) C_noret; C_noret_decl(f_13671) static void C_fcall f_13671(C_word t0,C_word t1) C_noret; C_noret_decl(f_13683) static void C_fcall f_13683(C_word t0,C_word t1) C_noret; C_noret_decl(f_13695) static void C_fcall f_13695(C_word t0,C_word t1) C_noret; C_noret_decl(f_13701) static void C_ccall f_13701(C_word c,C_word *av) C_noret; C_noret_decl(f_13705) static void C_fcall f_13705(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13732) static void C_fcall f_13732(C_word t0,C_word t1) C_noret; C_noret_decl(f_14097) static void C_ccall f_14097(C_word c,C_word *av) C_noret; C_noret_decl(f_14103) static void C_ccall f_14103(C_word c,C_word *av) C_noret; C_noret_decl(f_14115) static void C_ccall f_14115(C_word c,C_word *av) C_noret; C_noret_decl(f_14125) static void C_fcall f_14125(C_word t0,C_word t1) C_noret; C_noret_decl(f_14137) static void C_fcall f_14137(C_word t0,C_word t1) C_noret; C_noret_decl(f_14143) static void C_ccall f_14143(C_word c,C_word *av) C_noret; C_noret_decl(f_14147) static void C_fcall f_14147(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14174) static void C_fcall f_14174(C_word t0,C_word t1) C_noret; C_noret_decl(f_14547) static void C_ccall f_14547(C_word c,C_word *av) C_noret; C_noret_decl(f_14553) static void C_ccall f_14553(C_word c,C_word *av) C_noret; C_noret_decl(f_14557) static void C_ccall f_14557(C_word c,C_word *av) C_noret; C_noret_decl(f_14673) static void C_fcall f_14673(C_word t0,C_word t1) C_noret; C_noret_decl(f_14701) static void C_ccall f_14701(C_word c,C_word *av) C_noret; C_noret_decl(f_14821) static void C_ccall f_14821(C_word c,C_word *av) C_noret; C_noret_decl(f_14825) static void C_ccall f_14825(C_word c,C_word *av) C_noret; C_noret_decl(f_14849) static void C_fcall f_14849(C_word t0,C_word t1) C_noret; C_noret_decl(f_14924) static void C_fcall f_14924(C_word t0,C_word t1) C_noret; C_noret_decl(f_15011) static void C_fcall f_15011(C_word t0,C_word t1) C_noret; C_noret_decl(f_15032) static void C_fcall f_15032(C_word t0,C_word t1) C_noret; C_noret_decl(f_15050) static void C_fcall f_15050(C_word t0,C_word t1) C_noret; C_noret_decl(f_15072) static void C_fcall f_15072(C_word t0,C_word t1) C_noret; C_noret_decl(f_15427) static void C_ccall f_15427(C_word c,C_word *av) C_noret; C_noret_decl(f_15431) static void C_ccall f_15431(C_word c,C_word *av) C_noret; C_noret_decl(f_15433) static void C_ccall f_15433(C_word c,C_word *av) C_noret; C_noret_decl(f_15465) static void C_fcall f_15465(C_word t0,C_word t1) C_noret; C_noret_decl(f_15473) static void C_fcall f_15473(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15483) static void C_ccall f_15483(C_word c,C_word *av) C_noret; C_noret_decl(f_15497) static void C_fcall f_15497(C_word t0,C_word t1) C_noret; C_noret_decl(f_15529) static void C_fcall f_15529(C_word t0,C_word t1) C_noret; C_noret_decl(f_15537) static void C_fcall f_15537(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15547) static void C_ccall f_15547(C_word c,C_word *av) C_noret; C_noret_decl(f_15582) static void C_ccall f_15582(C_word c,C_word *av) C_noret; C_noret_decl(f_15585) static void C_fcall f_15585(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15619) static void C_fcall f_15619(C_word t0,C_word t1) C_noret; C_noret_decl(f_15638) static void C_ccall f_15638(C_word c,C_word *av) C_noret; C_noret_decl(f_15644) static void C_ccall f_15644(C_word c,C_word *av) C_noret; C_noret_decl(f_15648) static void C_ccall f_15648(C_word c,C_word *av) C_noret; C_noret_decl(f_15674) static void C_ccall f_15674(C_word c,C_word *av) C_noret; C_noret_decl(f_15683) static void C_ccall f_15683(C_word c,C_word *av) C_noret; C_noret_decl(f_15694) static void C_ccall f_15694(C_word c,C_word *av) C_noret; C_noret_decl(f_15713) static void C_ccall f_15713(C_word c,C_word *av) C_noret; C_noret_decl(f_15725) static void C_ccall f_15725(C_word c,C_word *av) C_noret; C_noret_decl(f_15769) static void C_fcall f_15769(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15771) static void C_fcall f_15771(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15783) static void C_fcall f_15783(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15793) static void C_ccall f_15793(C_word c,C_word *av) C_noret; C_noret_decl(f_15807) static void C_ccall f_15807(C_word c,C_word *av) C_noret; C_noret_decl(f_15812) static void C_ccall f_15812(C_word c,C_word *av) C_noret; C_noret_decl(f_15823) static void C_fcall f_15823(C_word t0,C_word t1) C_noret; C_noret_decl(f_15836) static void C_ccall f_15836(C_word c,C_word *av) C_noret; C_noret_decl(f_15842) static void C_ccall f_15842(C_word c,C_word *av) C_noret; C_noret_decl(f_15848) static void C_ccall f_15848(C_word c,C_word *av) C_noret; C_noret_decl(f_15857) static void C_ccall f_15857(C_word c,C_word *av) C_noret; C_noret_decl(f_15865) static void C_ccall f_15865(C_word c,C_word *av) C_noret; C_noret_decl(f_15871) static void C_ccall f_15871(C_word c,C_word *av) C_noret; C_noret_decl(f_15874) static void C_ccall f_15874(C_word c,C_word *av) C_noret; C_noret_decl(f_15877) static void C_ccall f_15877(C_word c,C_word *av) C_noret; C_noret_decl(f_15880) static void C_ccall f_15880(C_word c,C_word *av) C_noret; C_noret_decl(f_15883) static void C_ccall f_15883(C_word c,C_word *av) C_noret; C_noret_decl(f_15888) static void C_ccall f_15888(C_word c,C_word *av) C_noret; C_noret_decl(f_15892) static void C_ccall f_15892(C_word c,C_word *av) C_noret; C_noret_decl(f_15904) static void C_ccall f_15904(C_word c,C_word *av) C_noret; C_noret_decl(f_15909) static void C_ccall f_15909(C_word c,C_word *av) C_noret; C_noret_decl(f_15911) static void C_ccall f_15911(C_word c,C_word *av) C_noret; C_noret_decl(f_15917) static void C_ccall f_15917(C_word c,C_word *av) C_noret; C_noret_decl(f_15924) static void C_ccall f_15924(C_word c,C_word *av) C_noret; C_noret_decl(f_15927) static void C_fcall f_15927(C_word t0,C_word t1) C_noret; C_noret_decl(f_15931) static void C_ccall f_15931(C_word c,C_word *av) C_noret; C_noret_decl(f_15937) static void C_ccall f_15937(C_word c,C_word *av) C_noret; C_noret_decl(f_15943) static void C_ccall f_15943(C_word c,C_word *av) C_noret; C_noret_decl(f_15970) static void C_ccall f_15970(C_word c,C_word *av) C_noret; C_noret_decl(f_15972) static void C_fcall f_15972(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15986) static void C_ccall f_15986(C_word c,C_word *av) C_noret; C_noret_decl(f_15996) static void C_ccall f_15996(C_word c,C_word *av) C_noret; C_noret_decl(f_16009) static void C_ccall f_16009(C_word c,C_word *av) C_noret; C_noret_decl(f_16024) static void C_ccall f_16024(C_word c,C_word *av) C_noret; C_noret_decl(f_16028) static void C_ccall f_16028(C_word c,C_word *av) C_noret; C_noret_decl(f_16035) static void C_ccall f_16035(C_word c,C_word *av) C_noret; C_noret_decl(f_16039) static void C_ccall f_16039(C_word c,C_word *av) C_noret; C_noret_decl(f_16044) static void C_ccall f_16044(C_word c,C_word *av) C_noret; C_noret_decl(f_16048) static void C_ccall f_16048(C_word c,C_word *av) C_noret; C_noret_decl(f_16056) static void C_ccall f_16056(C_word c,C_word *av) C_noret; C_noret_decl(f_16062) static void C_ccall f_16062(C_word c,C_word *av) C_noret; C_noret_decl(f_16069) static void C_ccall f_16069(C_word c,C_word *av) C_noret; C_noret_decl(f_16072) static void C_ccall f_16072(C_word c,C_word *av) C_noret; C_noret_decl(f_16075) static void C_ccall f_16075(C_word c,C_word *av) C_noret; C_noret_decl(f_16080) static void C_ccall f_16080(C_word c,C_word *av) C_noret; C_noret_decl(f_16100) static void C_ccall f_16100(C_word c,C_word *av) C_noret; C_noret_decl(f_16104) static void C_ccall f_16104(C_word c,C_word *av) C_noret; C_noret_decl(f_16115) static void C_ccall f_16115(C_word c,C_word *av) C_noret; C_noret_decl(f_16130) static void C_ccall f_16130(C_word c,C_word *av) C_noret; C_noret_decl(f_16142) static void C_ccall f_16142(C_word c,C_word *av) C_noret; C_noret_decl(f_16146) static void C_fcall f_16146(C_word t0,C_word t1) C_noret; C_noret_decl(f_16149) static void C_ccall f_16149(C_word c,C_word *av) C_noret; C_noret_decl(f_16179) static void C_ccall f_16179(C_word c,C_word *av) C_noret; C_noret_decl(f_16203) static void C_ccall f_16203(C_word c,C_word *av) C_noret; C_noret_decl(f_16218) static void C_ccall f_16218(C_word c,C_word *av) C_noret; C_noret_decl(f_16221) static void C_ccall f_16221(C_word c,C_word *av) C_noret; C_noret_decl(f_16227) static void C_ccall f_16227(C_word c,C_word *av) C_noret; C_noret_decl(f_16236) static void C_ccall f_16236(C_word c,C_word *av) C_noret; C_noret_decl(f_16239) static void C_ccall f_16239(C_word c,C_word *av) C_noret; C_noret_decl(f_16278) static void C_ccall f_16278(C_word c,C_word *av) C_noret; C_noret_decl(f_16284) static void C_ccall f_16284(C_word c,C_word *av) C_noret; C_noret_decl(f_16290) static void C_ccall f_16290(C_word c,C_word *av) C_noret; C_noret_decl(f_16293) static void C_ccall f_16293(C_word c,C_word *av) C_noret; C_noret_decl(f_16299) static void C_ccall f_16299(C_word c,C_word *av) C_noret; C_noret_decl(f_16305) static void C_ccall f_16305(C_word c,C_word *av) C_noret; C_noret_decl(f_16311) static void C_ccall f_16311(C_word c,C_word *av) C_noret; C_noret_decl(f_16317) static void C_ccall f_16317(C_word c,C_word *av) C_noret; C_noret_decl(f_16339) static void C_ccall f_16339(C_word c,C_word *av) C_noret; C_noret_decl(f_16341) static void C_fcall f_16341(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16375) static void C_fcall f_16375(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16409) static void C_ccall f_16409(C_word c,C_word *av) C_noret; C_noret_decl(f_16412) static void C_ccall f_16412(C_word c,C_word *av) C_noret; C_noret_decl(f_16440) static void C_ccall f_16440(C_word c,C_word *av) C_noret; C_noret_decl(f_16447) static void C_ccall f_16447(C_word c,C_word *av) C_noret; C_noret_decl(f_16462) static void C_ccall f_16462(C_word c,C_word *av) C_noret; C_noret_decl(f_16468) static void C_ccall f_16468(C_word c,C_word *av) C_noret; C_noret_decl(f_16471) static void C_ccall f_16471(C_word c,C_word *av) C_noret; C_noret_decl(f_16508) static void C_ccall f_16508(C_word c,C_word *av) C_noret; C_noret_decl(f_16523) static void C_ccall f_16523(C_word c,C_word *av) C_noret; C_noret_decl(f_16533) static void C_ccall f_16533(C_word c,C_word *av) C_noret; C_noret_decl(f_16536) static void C_ccall f_16536(C_word c,C_word *av) C_noret; C_noret_decl(f_16548) static void C_ccall f_16548(C_word c,C_word *av) C_noret; C_noret_decl(f_16554) static void C_ccall f_16554(C_word c,C_word *av) C_noret; C_noret_decl(f_16560) static void C_ccall f_16560(C_word c,C_word *av) C_noret; C_noret_decl(f_16563) static void C_ccall f_16563(C_word c,C_word *av) C_noret; C_noret_decl(f_16565) static void C_fcall f_16565(C_word t0,C_word t1) C_noret; C_noret_decl(f_16572) static void C_fcall f_16572(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16578) static void C_ccall f_16578(C_word c,C_word *av) C_noret; C_noret_decl(f_16589) static void C_ccall f_16589(C_word c,C_word *av) C_noret; C_noret_decl(f_16637) static void C_ccall f_16637(C_word c,C_word *av) C_noret; C_noret_decl(f_16639) static void C_ccall f_16639(C_word c,C_word *av) C_noret; C_noret_decl(f_16645) static void C_ccall f_16645(C_word c,C_word *av) C_noret; C_noret_decl(f_16649) static void C_ccall f_16649(C_word c,C_word *av) C_noret; C_noret_decl(f_16654) static void C_fcall f_16654(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16682) static void C_ccall f_16682(C_word c,C_word *av) C_noret; C_noret_decl(f_16690) static void C_ccall f_16690(C_word c,C_word *av) C_noret; C_noret_decl(f_16693) static void C_ccall f_16693(C_word c,C_word *av) C_noret; C_noret_decl(f_16696) static void C_ccall f_16696(C_word c,C_word *av) C_noret; C_noret_decl(f_16699) static void C_ccall f_16699(C_word c,C_word *av) C_noret; C_noret_decl(f_16702) static void C_ccall f_16702(C_word c,C_word *av) C_noret; C_noret_decl(f_16705) static void C_ccall f_16705(C_word c,C_word *av) C_noret; C_noret_decl(f_16706) static void C_fcall f_16706(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16716) static void C_ccall f_16716(C_word c,C_word *av) C_noret; C_noret_decl(f_16722) static void C_ccall f_16722(C_word c,C_word *av) C_noret; C_noret_decl(f_16734) static void C_ccall f_16734(C_word c,C_word *av) C_noret; C_noret_decl(f_16737) static void C_ccall f_16737(C_word c,C_word *av) C_noret; C_noret_decl(f_16740) static void C_ccall f_16740(C_word c,C_word *av) C_noret; C_noret_decl(f_16745) static void C_fcall f_16745(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16758) static void C_ccall f_16758(C_word c,C_word *av) C_noret; C_noret_decl(f_16761) static void C_ccall f_16761(C_word c,C_word *av) C_noret; C_noret_decl(f_16778) static void C_fcall f_16778(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16788) static void C_ccall f_16788(C_word c,C_word *av) C_noret; C_noret_decl(f_16801) static void C_ccall f_16801(C_word c,C_word *av) C_noret; C_noret_decl(f_16805) static void C_ccall f_16805(C_word c,C_word *av) C_noret; C_noret_decl(f_16808) static void C_fcall f_16808(C_word t0,C_word t1) C_noret; C_noret_decl(f_16823) static void C_ccall f_16823(C_word c,C_word *av) C_noret; C_noret_decl(f_16827) static void C_ccall f_16827(C_word c,C_word *av) C_noret; C_noret_decl(f_16844) static void C_ccall f_16844(C_word c,C_word *av) C_noret; C_noret_decl(f_16850) static void C_ccall f_16850(C_word c,C_word *av) C_noret; C_noret_decl(f_16860) static void C_ccall f_16860(C_word c,C_word *av) C_noret; C_noret_decl(f_16863) static void C_ccall f_16863(C_word c,C_word *av) C_noret; C_noret_decl(f_16879) static void C_ccall f_16879(C_word c,C_word *av) C_noret; C_noret_decl(f_16884) static void C_fcall f_16884(C_word t0,C_word t1) C_noret; C_noret_decl(f_16888) static void C_ccall f_16888(C_word c,C_word *av) C_noret; C_noret_decl(f_16905) static void C_ccall f_16905(C_word c,C_word *av) C_noret; C_noret_decl(f_16916) static void C_ccall f_16916(C_word c,C_word *av) C_noret; C_noret_decl(f_16928) static void C_ccall f_16928(C_word c,C_word *av) C_noret; C_noret_decl(f_16931) static void C_ccall f_16931(C_word c,C_word *av) C_noret; C_noret_decl(f_16939) static void C_ccall f_16939(C_word c,C_word *av) C_noret; C_noret_decl(f_16944) static void C_ccall f_16944(C_word c,C_word *av) C_noret; C_noret_decl(f_16957) static void C_ccall f_16957(C_word c,C_word *av) C_noret; C_noret_decl(f_16968) static void C_ccall f_16968(C_word c,C_word *av) C_noret; C_noret_decl(f_16990) static void C_ccall f_16990(C_word c,C_word *av) C_noret; C_noret_decl(f_16992) static void C_ccall f_16992(C_word c,C_word *av) C_noret; C_noret_decl(f_17012) static void C_ccall f_17012(C_word c,C_word *av) C_noret; C_noret_decl(f_17032) static void C_ccall f_17032(C_word c,C_word *av) C_noret; C_noret_decl(f_17040) static void C_ccall f_17040(C_word c,C_word *av) C_noret; C_noret_decl(f_17049) static void C_ccall f_17049(C_word c,C_word *av) C_noret; C_noret_decl(f_17054) static void C_ccall f_17054(C_word c,C_word *av) C_noret; C_noret_decl(f_17058) static void C_ccall f_17058(C_word c,C_word *av) C_noret; C_noret_decl(f_17079) static void C_ccall f_17079(C_word c,C_word *av) C_noret; C_noret_decl(f_17094) static void C_ccall f_17094(C_word c,C_word *av) C_noret; C_noret_decl(f_17100) static void C_ccall f_17100(C_word c,C_word *av) C_noret; C_noret_decl(f_17111) static void C_ccall f_17111(C_word c,C_word *av) C_noret; C_noret_decl(f_17122) static void C_ccall f_17122(C_word c,C_word *av) C_noret; C_noret_decl(f_17133) static void C_ccall f_17133(C_word c,C_word *av) C_noret; C_noret_decl(f_17137) static void C_ccall f_17137(C_word c,C_word *av) C_noret; C_noret_decl(f_17143) static void C_ccall f_17143(C_word c,C_word *av) C_noret; C_noret_decl(f_17155) static void C_ccall f_17155(C_word c,C_word *av) C_noret; C_noret_decl(f_17159) static void C_ccall f_17159(C_word c,C_word *av) C_noret; C_noret_decl(f_17171) static void C_ccall f_17171(C_word c,C_word *av) C_noret; C_noret_decl(f_17179) static void C_fcall f_17179(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17189) static void C_ccall f_17189(C_word c,C_word *av) C_noret; C_noret_decl(f_17204) static void C_ccall f_17204(C_word c,C_word *av) C_noret; C_noret_decl(f_17210) static void C_ccall f_17210(C_word c,C_word *av) C_noret; C_noret_decl(f_17213) static void C_ccall f_17213(C_word c,C_word *av) C_noret; C_noret_decl(f_17216) static void C_ccall f_17216(C_word c,C_word *av) C_noret; C_noret_decl(f_17219) static void C_ccall f_17219(C_word c,C_word *av) C_noret; C_noret_decl(f_17222) static void C_ccall f_17222(C_word c,C_word *av) C_noret; C_noret_decl(f_17226) static void C_ccall f_17226(C_word c,C_word *av) C_noret; C_noret_decl(f_17228) static void C_ccall f_17228(C_word c,C_word *av) C_noret; C_noret_decl(f_17235) static void C_ccall f_17235(C_word c,C_word *av) C_noret; C_noret_decl(f_17242) static void C_ccall f_17242(C_word c,C_word *av) C_noret; C_noret_decl(f_17253) static void C_ccall f_17253(C_word c,C_word *av) C_noret; C_noret_decl(f_17257) static void C_ccall f_17257(C_word c,C_word *av) C_noret; C_noret_decl(f_17260) static void C_ccall f_17260(C_word c,C_word *av) C_noret; C_noret_decl(f_17265) static void C_ccall f_17265(C_word c,C_word *av) C_noret; C_noret_decl(f_17271) static void C_ccall f_17271(C_word c,C_word *av) C_noret; C_noret_decl(f_17278) static void C_ccall f_17278(C_word c,C_word *av) C_noret; C_noret_decl(f_17281) static void C_ccall f_17281(C_word c,C_word *av) C_noret; C_noret_decl(f_17284) static void C_ccall f_17284(C_word c,C_word *av) C_noret; C_noret_decl(f_17287) static void C_ccall f_17287(C_word c,C_word *av) C_noret; C_noret_decl(f_5115) static void C_ccall f_5115(C_word c,C_word *av) C_noret; C_noret_decl(f_5118) static void C_ccall f_5118(C_word c,C_word *av) C_noret; C_noret_decl(f_5121) static void C_ccall f_5121(C_word c,C_word *av) C_noret; C_noret_decl(f_5124) static void C_ccall f_5124(C_word c,C_word *av) C_noret; C_noret_decl(f_5127) static void C_ccall f_5127(C_word c,C_word *av) C_noret; C_noret_decl(f_5130) static void C_ccall f_5130(C_word c,C_word *av) C_noret; C_noret_decl(f_5133) static void C_ccall f_5133(C_word c,C_word *av) C_noret; C_noret_decl(f_5136) static void C_ccall f_5136(C_word c,C_word *av) C_noret; C_noret_decl(f_5139) static void C_ccall f_5139(C_word c,C_word *av) C_noret; C_noret_decl(f_5249) static void C_fcall f_5249(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5267) static void C_ccall f_5267(C_word c,C_word *av) C_noret; C_noret_decl(f_5307) static void C_fcall f_5307(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5321) static void C_ccall f_5321(C_word c,C_word *av) C_noret; C_noret_decl(f_5510) static void C_fcall f_5510(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5516) static void C_fcall f_5516(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5538) static void C_ccall f_5538(C_word c,C_word *av) C_noret; C_noret_decl(f_5544) static void C_fcall f_5544(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5550) static void C_fcall f_5550(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5560) static void C_ccall f_5560(C_word c,C_word *av) C_noret; C_noret_decl(f_5574) static void C_fcall f_5574(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5580) static void C_fcall f_5580(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5594) static void C_ccall f_5594(C_word c,C_word *av) C_noret; C_noret_decl(f_5803) static void C_fcall f_5803(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5811) static void C_fcall f_5811(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5815) static void C_ccall f_5815(C_word c,C_word *av) C_noret; C_noret_decl(f_5819) static C_word C_fcall f_5819(C_word *a,C_word t0,C_word t1); C_noret_decl(f_5837) static void C_ccall f_5837(C_word c,C_word *av) C_noret; C_noret_decl(f_5876) static void C_fcall f_5876(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5910) static void C_fcall f_5910(C_word t0,C_word t1) C_noret; C_noret_decl(f_5916) static C_word C_fcall f_5916(C_word t0); C_noret_decl(f_5969) static void C_fcall f_5969(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5975) static void C_fcall f_5975(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6158) static void C_fcall f_6158(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6172) static void C_ccall f_6172(C_word c,C_word *av) C_noret; C_noret_decl(f_6176) static void C_ccall f_6176(C_word c,C_word *av) C_noret; C_noret_decl(f_6271) static void C_fcall f_6271(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6284) static void C_ccall f_6284(C_word c,C_word *av) C_noret; C_noret_decl(f_6422) static void C_ccall f_6422(C_word c,C_word *av) C_noret; C_noret_decl(f_6426) static void C_ccall f_6426(C_word c,C_word *av) C_noret; C_noret_decl(f_6440) static void C_ccall f_6440(C_word c,C_word *av) C_noret; C_noret_decl(f_6451) static void C_ccall f_6451(C_word c,C_word *av) C_noret; C_noret_decl(f_6454) static void C_fcall f_6454(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6469) static void C_ccall f_6469(C_word c,C_word *av) C_noret; C_noret_decl(f_6475) static void C_ccall f_6475(C_word c,C_word *av) C_noret; C_noret_decl(f_6478) static void C_fcall f_6478(C_word t0,C_word t1) C_noret; C_noret_decl(f_6484) static void C_ccall f_6484(C_word c,C_word *av) C_noret; C_noret_decl(f_6488) static void C_ccall f_6488(C_word c,C_word *av) C_noret; C_noret_decl(f_6491) static void C_ccall f_6491(C_word c,C_word *av) C_noret; C_noret_decl(f_6500) static void C_ccall f_6500(C_word c,C_word *av) C_noret; C_noret_decl(f_6508) static void C_ccall f_6508(C_word c,C_word *av) C_noret; C_noret_decl(f_6515) static void C_ccall f_6515(C_word c,C_word *av) C_noret; C_noret_decl(f_6520) static void C_fcall f_6520(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6530) static void C_ccall f_6530(C_word c,C_word *av) C_noret; C_noret_decl(f_6543) static void C_fcall f_6543(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6550) static void C_ccall f_6550(C_word c,C_word *av) C_noret; C_noret_decl(f_6553) static void C_ccall f_6553(C_word c,C_word *av) C_noret; C_noret_decl(f_6562) static void C_ccall f_6562(C_word c,C_word *av) C_noret; C_noret_decl(f_6565) static void C_ccall f_6565(C_word c,C_word *av) C_noret; C_noret_decl(f_6568) static void C_ccall f_6568(C_word c,C_word *av) C_noret; C_noret_decl(f_6571) static void C_ccall f_6571(C_word c,C_word *av) C_noret; C_noret_decl(f_6574) static void C_ccall f_6574(C_word c,C_word *av) C_noret; C_noret_decl(f_6577) static void C_ccall f_6577(C_word c,C_word *av) C_noret; C_noret_decl(f_6583) static void C_ccall f_6583(C_word c,C_word *av) C_noret; C_noret_decl(f_6586) static void C_ccall f_6586(C_word c,C_word *av) C_noret; C_noret_decl(f_6593) static void C_ccall f_6593(C_word c,C_word *av) C_noret; C_noret_decl(f_6595) static void C_ccall f_6595(C_word c,C_word *av) C_noret; C_noret_decl(f_6598) static void C_fcall f_6598(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6600) static void C_fcall f_6600(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6607) static void C_ccall f_6607(C_word c,C_word *av) C_noret; C_noret_decl(f_6610) static void C_ccall f_6610(C_word c,C_word *av) C_noret; C_noret_decl(f_6613) static void C_ccall f_6613(C_word c,C_word *av) C_noret; C_noret_decl(f_6627) static void C_ccall f_6627(C_word c,C_word *av) C_noret; C_noret_decl(f_6632) static void C_fcall f_6632(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6642) static void C_ccall f_6642(C_word c,C_word *av) C_noret; C_noret_decl(f_6659) static void C_ccall f_6659(C_word c,C_word *av) C_noret; C_noret_decl(f_6662) static void C_ccall f_6662(C_word c,C_word *av) C_noret; C_noret_decl(f_6665) static void C_ccall f_6665(C_word c,C_word *av) C_noret; C_noret_decl(f_6668) static void C_ccall f_6668(C_word c,C_word *av) C_noret; C_noret_decl(f_6674) static void C_ccall f_6674(C_word c,C_word *av) C_noret; C_noret_decl(f_6683) static void C_ccall f_6683(C_word c,C_word *av) C_noret; C_noret_decl(f_6690) static void C_ccall f_6690(C_word c,C_word *av) C_noret; C_noret_decl(f_6692) static void C_ccall f_6692(C_word c,C_word *av) C_noret; C_noret_decl(f_6696) static void C_ccall f_6696(C_word c,C_word *av) C_noret; C_noret_decl(f_6699) static void C_ccall f_6699(C_word c,C_word *av) C_noret; C_noret_decl(f_6706) static void C_ccall f_6706(C_word c,C_word *av) C_noret; C_noret_decl(f_6708) static void C_ccall f_6708(C_word c,C_word *av) C_noret; C_noret_decl(f_6712) static void C_fcall f_6712(C_word t0,C_word t1) C_noret; C_noret_decl(f_6715) static void C_ccall f_6715(C_word c,C_word *av) C_noret; C_noret_decl(f_6716) static void C_fcall f_6716(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6726) static void C_ccall f_6726(C_word c,C_word *av) C_noret; C_noret_decl(f_6729) static void C_ccall f_6729(C_word c,C_word *av) C_noret; C_noret_decl(f_6734) static void C_fcall f_6734(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6744) static void C_ccall f_6744(C_word c,C_word *av) C_noret; C_noret_decl(f_6761) static void C_ccall f_6761(C_word c,C_word *av) C_noret; C_noret_decl(f_6764) static void C_ccall f_6764(C_word c,C_word *av) C_noret; C_noret_decl(f_6767) static void C_ccall f_6767(C_word c,C_word *av) C_noret; C_noret_decl(f_6770) static void C_ccall f_6770(C_word c,C_word *av) C_noret; C_noret_decl(f_6773) static void C_ccall f_6773(C_word c,C_word *av) C_noret; C_noret_decl(f_6782) static void C_ccall f_6782(C_word c,C_word *av) C_noret; C_noret_decl(f_6785) static void C_ccall f_6785(C_word c,C_word *av) C_noret; C_noret_decl(f_6788) static void C_ccall f_6788(C_word c,C_word *av) C_noret; C_noret_decl(f_6805) static void C_ccall f_6805(C_word c,C_word *av) C_noret; C_noret_decl(f_6824) static void C_fcall f_6824(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6847) static void C_ccall f_6847(C_word c,C_word *av) C_noret; C_noret_decl(f_6851) static void C_ccall f_6851(C_word c,C_word *av) C_noret; C_noret_decl(f_6859) static void C_ccall f_6859(C_word c,C_word *av) C_noret; C_noret_decl(f_6862) static void C_fcall f_6862(C_word t0,C_word t1) C_noret; C_noret_decl(f_6870) static void C_ccall f_6870(C_word c,C_word *av) C_noret; C_noret_decl(f_6874) static void C_ccall f_6874(C_word c,C_word *av) C_noret; C_noret_decl(f_6883) static void C_fcall f_6883(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6927) static void C_ccall f_6927(C_word c,C_word *av) C_noret; C_noret_decl(f_6933) static void C_fcall f_6933(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6955) static void C_ccall f_6955(C_word c,C_word *av) C_noret; C_noret_decl(f_6964) static void C_ccall f_6964(C_word c,C_word *av) C_noret; C_noret_decl(f_6976) static void C_ccall f_6976(C_word c,C_word *av) C_noret; C_noret_decl(f_6980) static void C_ccall f_6980(C_word c,C_word *av) C_noret; C_noret_decl(f_6982) static void C_fcall f_6982(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7004) static void C_fcall f_7004(C_word t0,C_word t1) C_noret; C_noret_decl(f_7011) static void C_fcall f_7011(C_word t0,C_word t1) C_noret; C_noret_decl(f_7015) static void C_ccall f_7015(C_word c,C_word *av) C_noret; C_noret_decl(f_7019) static void C_ccall f_7019(C_word c,C_word *av) C_noret; C_noret_decl(f_7025) static void C_ccall f_7025(C_word c,C_word *av) C_noret; C_noret_decl(f_7047) static void C_ccall f_7047(C_word c,C_word *av) C_noret; C_noret_decl(f_7063) static void C_ccall f_7063(C_word c,C_word *av) C_noret; C_noret_decl(f_7067) static void C_ccall f_7067(C_word c,C_word *av) C_noret; C_noret_decl(f_7088) static void C_ccall f_7088(C_word c,C_word *av) C_noret; C_noret_decl(f_7111) static void C_ccall f_7111(C_word c,C_word *av) C_noret; C_noret_decl(f_7113) static void C_ccall f_7113(C_word c,C_word *av) C_noret; C_noret_decl(f_7120) static void C_ccall f_7120(C_word c,C_word *av) C_noret; C_noret_decl(f_7127) static void C_ccall f_7127(C_word c,C_word *av) C_noret; C_noret_decl(f_7140) static void C_ccall f_7140(C_word c,C_word *av) C_noret; C_noret_decl(f_7152) static void C_fcall f_7152(C_word t0,C_word t1) C_noret; C_noret_decl(f_7171) static void C_ccall f_7171(C_word c,C_word *av) C_noret; C_noret_decl(f_7183) static void C_ccall f_7183(C_word c,C_word *av) C_noret; C_noret_decl(f_7197) static void C_ccall f_7197(C_word c,C_word *av) C_noret; C_noret_decl(f_7199) static void C_fcall f_7199(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7225) static void C_ccall f_7225(C_word c,C_word *av) C_noret; C_noret_decl(f_7239) static void C_fcall f_7239(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7245) static void C_fcall f_7245(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7260) static void C_ccall f_7260(C_word c,C_word *av) C_noret; C_noret_decl(f_7276) static void C_ccall f_7276(C_word c,C_word *av) C_noret; C_noret_decl(f_7284) static void C_ccall f_7284(C_word c,C_word *av) C_noret; C_noret_decl(f_7288) static void C_ccall f_7288(C_word c,C_word *av) C_noret; C_noret_decl(f_7290) static void C_ccall f_7290(C_word c,C_word *av) C_noret; C_noret_decl(f_7301) static void C_ccall f_7301(C_word c,C_word *av) C_noret; C_noret_decl(f_7303) static void C_fcall f_7303(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7320) static void C_ccall f_7320(C_word c,C_word *av) C_noret; C_noret_decl(f_7334) static void C_ccall f_7334(C_word c,C_word *av) C_noret; C_noret_decl(f_7368) static void C_ccall f_7368(C_word c,C_word *av) C_noret; C_noret_decl(f_7380) static void C_ccall f_7380(C_word c,C_word *av) C_noret; C_noret_decl(f_7396) static void C_ccall f_7396(C_word c,C_word *av) C_noret; C_noret_decl(f_7426) static void C_ccall f_7426(C_word c,C_word *av) C_noret; C_noret_decl(f_7430) static void C_fcall f_7430(C_word t0,C_word t1) C_noret; C_noret_decl(f_7470) static void C_ccall f_7470(C_word c,C_word *av) C_noret; C_noret_decl(f_7472) static void C_ccall f_7472(C_word c,C_word *av) C_noret; C_noret_decl(f_7488) static void C_ccall f_7488(C_word c,C_word *av) C_noret; C_noret_decl(f_7494) static void C_ccall f_7494(C_word c,C_word *av) C_noret; C_noret_decl(f_7509) static void C_ccall f_7509(C_word c,C_word *av) C_noret; C_noret_decl(f_7526) static void C_ccall f_7526(C_word c,C_word *av) C_noret; C_noret_decl(f_7528) static void C_ccall f_7528(C_word c,C_word *av) C_noret; C_noret_decl(f_7534) static void C_fcall f_7534(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7558) static void C_fcall f_7558(C_word t0,C_word t1) C_noret; C_noret_decl(f_7574) static void C_ccall f_7574(C_word c,C_word *av) C_noret; C_noret_decl(f_7584) static void C_ccall f_7584(C_word c,C_word *av) C_noret; C_noret_decl(f_7589) static void C_ccall f_7589(C_word c,C_word *av) C_noret; C_noret_decl(f_7603) static void C_ccall f_7603(C_word c,C_word *av) C_noret; C_noret_decl(f_7606) static void C_ccall f_7606(C_word c,C_word *av) C_noret; C_noret_decl(f_7607) static void C_ccall f_7607(C_word c,C_word *av) C_noret; C_noret_decl(f_7611) static void C_ccall f_7611(C_word c,C_word *av) C_noret; C_noret_decl(f_7616) static void C_ccall f_7616(C_word c,C_word *av) C_noret; C_noret_decl(f_7622) static void C_ccall f_7622(C_word c,C_word *av) C_noret; C_noret_decl(f_7628) static void C_ccall f_7628(C_word c,C_word *av) C_noret; C_noret_decl(f_7636) static void C_ccall f_7636(C_word c,C_word *av) C_noret; C_noret_decl(f_7639) static void C_ccall f_7639(C_word c,C_word *av) C_noret; C_noret_decl(f_7647) static void C_ccall f_7647(C_word c,C_word *av) C_noret; C_noret_decl(f_7649) static void C_fcall f_7649(C_word t0,C_word t1) C_noret; C_noret_decl(f_7653) static void C_ccall f_7653(C_word c,C_word *av) C_noret; C_noret_decl(f_7675) static void C_ccall f_7675(C_word c,C_word *av) C_noret; C_noret_decl(f_7681) static void C_fcall f_7681(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7685) static void C_ccall f_7685(C_word c,C_word *av) C_noret; C_noret_decl(f_7698) static void C_ccall f_7698(C_word c,C_word *av) C_noret; C_noret_decl(f_7706) static void C_fcall f_7706(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7712) static void C_ccall f_7712(C_word c,C_word *av) C_noret; C_noret_decl(f_7723) static void C_ccall f_7723(C_word c,C_word *av) C_noret; C_noret_decl(f_7725) static void C_ccall f_7725(C_word c,C_word *av) C_noret; C_noret_decl(f_7728) static void C_ccall f_7728(C_word c,C_word *av) C_noret; C_noret_decl(f_7734) static C_word C_fcall f_7734(C_word t0,C_word t1); C_noret_decl(f_7773) static void C_ccall f_7773(C_word c,C_word *av) C_noret; C_noret_decl(f_7778) static void C_ccall f_7778(C_word c,C_word *av) C_noret; C_noret_decl(f_7782) static void C_ccall f_7782(C_word c,C_word *av) C_noret; C_noret_decl(f_7786) static void C_ccall f_7786(C_word c,C_word *av) C_noret; C_noret_decl(f_7837) static void C_ccall f_7837(C_word c,C_word *av) C_noret; C_noret_decl(f_7874) static void C_ccall f_7874(C_word c,C_word *av) C_noret; C_noret_decl(f_7876) static void C_fcall f_7876(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7926) static void C_ccall f_7926(C_word c,C_word *av) C_noret; C_noret_decl(f_7930) static void C_ccall f_7930(C_word c,C_word *av) C_noret; C_noret_decl(f_7944) static void C_ccall f_7944(C_word c,C_word *av) C_noret; C_noret_decl(f_7948) static void C_ccall f_7948(C_word c,C_word *av) C_noret; C_noret_decl(f_7956) static void C_ccall f_7956(C_word c,C_word *av) C_noret; C_noret_decl(f_7962) static void C_ccall f_7962(C_word c,C_word *av) C_noret; C_noret_decl(f_7966) static void C_ccall f_7966(C_word c,C_word *av) C_noret; C_noret_decl(f_8008) static void C_ccall f_8008(C_word c,C_word *av) C_noret; C_noret_decl(f_8012) static void C_ccall f_8012(C_word c,C_word *av) C_noret; C_noret_decl(f_8060) static void C_ccall f_8060(C_word c,C_word *av) C_noret; C_noret_decl(f_8064) static void C_ccall f_8064(C_word c,C_word *av) C_noret; C_noret_decl(f_8069) static void C_ccall f_8069(C_word c,C_word *av) C_noret; C_noret_decl(f_8079) static void C_ccall f_8079(C_word c,C_word *av) C_noret; C_noret_decl(f_8086) static void C_ccall f_8086(C_word c,C_word *av) C_noret; C_noret_decl(f_8089) static void C_fcall f_8089(C_word t0,C_word t1) C_noret; C_noret_decl(f_8093) static void C_fcall f_8093(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8120) static void C_ccall f_8120(C_word c,C_word *av) C_noret; C_noret_decl(f_8126) static void C_ccall f_8126(C_word c,C_word *av) C_noret; C_noret_decl(f_8136) static void C_ccall f_8136(C_word c,C_word *av) C_noret; C_noret_decl(f_8139) static void C_ccall f_8139(C_word c,C_word *av) C_noret; C_noret_decl(f_8142) static void C_ccall f_8142(C_word c,C_word *av) C_noret; C_noret_decl(f_8155) static void C_ccall f_8155(C_word c,C_word *av) C_noret; C_noret_decl(f_8157) static void C_fcall f_8157(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8192) static void C_ccall f_8192(C_word c,C_word *av) C_noret; C_noret_decl(f_8198) static void C_ccall f_8198(C_word c,C_word *av) C_noret; C_noret_decl(f_8204) static void C_ccall f_8204(C_word c,C_word *av) C_noret; C_noret_decl(f_8213) static void C_ccall f_8213(C_word c,C_word *av) C_noret; C_noret_decl(f_8222) static void C_ccall f_8222(C_word c,C_word *av) C_noret; C_noret_decl(f_8231) static void C_ccall f_8231(C_word c,C_word *av) C_noret; C_noret_decl(f_8240) static void C_ccall f_8240(C_word c,C_word *av) C_noret; C_noret_decl(f_8249) static void C_ccall f_8249(C_word c,C_word *av) C_noret; C_noret_decl(f_8259) static void C_ccall f_8259(C_word c,C_word *av) C_noret; C_noret_decl(f_8261) static void C_ccall f_8261(C_word c,C_word *av) C_noret; C_noret_decl(f_8267) static void C_ccall f_8267(C_word c,C_word *av) C_noret; C_noret_decl(f_8282) static void C_ccall f_8282(C_word c,C_word *av) C_noret; C_noret_decl(f_8297) static void C_ccall f_8297(C_word c,C_word *av) C_noret; C_noret_decl(f_8300) static void C_ccall f_8300(C_word c,C_word *av) C_noret; C_noret_decl(f_8367) static void C_ccall f_8367(C_word c,C_word *av) C_noret; C_noret_decl(f_8369) static void C_fcall f_8369(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8394) static void C_ccall f_8394(C_word c,C_word *av) C_noret; C_noret_decl(f_8417) static void C_ccall f_8417(C_word c,C_word *av) C_noret; C_noret_decl(f_8420) static void C_fcall f_8420(C_word t0,C_word t1) C_noret; C_noret_decl(f_8423) static void C_ccall f_8423(C_word c,C_word *av) C_noret; C_noret_decl(f_8430) static void C_ccall f_8430(C_word c,C_word *av) C_noret; C_noret_decl(f_8477) static void C_ccall f_8477(C_word c,C_word *av) C_noret; C_noret_decl(f_8481) static void C_ccall f_8481(C_word c,C_word *av) C_noret; C_noret_decl(f_8486) static void C_fcall f_8486(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8503) static void C_ccall f_8503(C_word c,C_word *av) C_noret; C_noret_decl(f_8511) static void C_ccall f_8511(C_word c,C_word *av) C_noret; C_noret_decl(f_8513) static void C_fcall f_8513(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8538) static void C_ccall f_8538(C_word c,C_word *av) C_noret; C_noret_decl(f_8574) static void C_ccall f_8574(C_word c,C_word *av) C_noret; C_noret_decl(f_8608) static void C_ccall f_8608(C_word c,C_word *av) C_noret; C_noret_decl(f_8639) static void C_fcall f_8639(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8662) static void C_ccall f_8662(C_word c,C_word *av) C_noret; C_noret_decl(f_8683) static void C_ccall f_8683(C_word c,C_word *av) C_noret; C_noret_decl(f_8705) static void C_ccall f_8705(C_word c,C_word *av) C_noret; C_noret_decl(f_8713) static void C_ccall f_8713(C_word c,C_word *av) C_noret; C_noret_decl(f_8717) static void C_ccall f_8717(C_word c,C_word *av) C_noret; C_noret_decl(f_8725) static void C_ccall f_8725(C_word c,C_word *av) C_noret; C_noret_decl(f_8746) static void C_ccall f_8746(C_word c,C_word *av) C_noret; C_noret_decl(f_8750) static void C_ccall f_8750(C_word c,C_word *av) C_noret; C_noret_decl(f_8762) static void C_ccall f_8762(C_word c,C_word *av) C_noret; C_noret_decl(f_8789) static void C_fcall f_8789(C_word t0,C_word t1) C_noret; C_noret_decl(f_8801) static void C_ccall f_8801(C_word c,C_word *av) C_noret; C_noret_decl(f_8803) static void C_fcall f_8803(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8828) static void C_ccall f_8828(C_word c,C_word *av) C_noret; C_noret_decl(f_8862) static void C_fcall f_8862(C_word t0,C_word t1) C_noret; C_noret_decl(f_8888) static void C_ccall f_8888(C_word c,C_word *av) C_noret; C_noret_decl(f_8890) static void C_fcall f_8890(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8915) static void C_ccall f_8915(C_word c,C_word *av) C_noret; C_noret_decl(f_8999) static void C_ccall f_8999(C_word c,C_word *av) C_noret; C_noret_decl(f_9001) static void C_fcall f_9001(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9026) static void C_ccall f_9026(C_word c,C_word *av) C_noret; C_noret_decl(f_9066) static void C_ccall f_9066(C_word c,C_word *av) C_noret; C_noret_decl(f_9107) static void C_fcall f_9107(C_word t0,C_word t1) C_noret; C_noret_decl(f_9136) static void C_ccall f_9136(C_word c,C_word *av) C_noret; C_noret_decl(f_9138) static void C_fcall f_9138(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9163) static void C_ccall f_9163(C_word c,C_word *av) C_noret; C_noret_decl(f_9199) static void C_ccall f_9199(C_word c,C_word *av) C_noret; C_noret_decl(f_9201) static void C_fcall f_9201(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9226) static void C_ccall f_9226(C_word c,C_word *av) C_noret; C_noret_decl(f_9238) static void C_ccall f_9238(C_word c,C_word *av) C_noret; C_noret_decl(f_9244) static void C_ccall f_9244(C_word c,C_word *av) C_noret; C_noret_decl(f_9267) static void C_ccall f_9267(C_word c,C_word *av) C_noret; C_noret_decl(f_9269) static void C_fcall f_9269(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9294) static void C_ccall f_9294(C_word c,C_word *av) C_noret; C_noret_decl(f_9305) static void C_fcall f_9305(C_word t0,C_word t1) C_noret; C_noret_decl(f_9309) static void C_ccall f_9309(C_word c,C_word *av) C_noret; C_noret_decl(f_9312) static void C_ccall f_9312(C_word c,C_word *av) C_noret; C_noret_decl(f_9319) static void C_ccall f_9319(C_word c,C_word *av) C_noret; C_noret_decl(f_9333) static void C_ccall f_9333(C_word c,C_word *av) C_noret; C_noret_decl(f_9439) static void C_ccall f_9439(C_word c,C_word *av) C_noret; C_noret_decl(f_9441) static void C_fcall f_9441(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9466) static void C_ccall f_9466(C_word c,C_word *av) C_noret; C_noret_decl(f_9484) static void C_ccall f_9484(C_word c,C_word *av) C_noret; C_noret_decl(f_9487) static void C_ccall f_9487(C_word c,C_word *av) C_noret; C_noret_decl(f_9493) static void C_ccall f_9493(C_word c,C_word *av) C_noret; C_noret_decl(f_9499) static void C_ccall f_9499(C_word c,C_word *av) C_noret; C_noret_decl(f_9533) static void C_fcall f_9533(C_word t0,C_word t1) C_noret; C_noret_decl(f_9546) static void C_ccall f_9546(C_word c,C_word *av) C_noret; C_noret_decl(f_9548) static void C_fcall f_9548(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9573) static void C_ccall f_9573(C_word c,C_word *av) C_noret; C_noret_decl(f_9603) static void C_ccall f_9603(C_word c,C_word *av) C_noret; C_noret_decl(f_9605) static void C_fcall f_9605(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9630) static void C_ccall f_9630(C_word c,C_word *av) C_noret; C_noret_decl(f_9703) static void C_ccall f_9703(C_word c,C_word *av) C_noret; C_noret_decl(f_9706) static void C_ccall f_9706(C_word c,C_word *av) C_noret; C_noret_decl(f_9715) static void C_ccall f_9715(C_word c,C_word *av) C_noret; C_noret_decl(f_9719) static void C_ccall f_9719(C_word c,C_word *av) C_noret; C_noret_decl(f_9723) static void C_ccall f_9723(C_word c,C_word *av) C_noret; C_noret_decl(f_9725) static void C_fcall f_9725(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9773) static void C_fcall f_9773(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9798) static void C_ccall f_9798(C_word c,C_word *av) C_noret; C_noret_decl(f_9826) static void C_ccall f_9826(C_word c,C_word *av) C_noret; C_noret_decl(f_9850) static void C_ccall f_9850(C_word c,C_word *av) C_noret; C_noret_decl(f_9884) static void C_ccall f_9884(C_word c,C_word *av) C_noret; C_noret_decl(f_9888) static void C_ccall f_9888(C_word c,C_word *av) C_noret; C_noret_decl(f_9898) static void C_fcall f_9898(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9922) static void C_ccall f_9922(C_word c,C_word *av) C_noret; C_noret_decl(f_9937) static void C_ccall f_9937(C_word c,C_word *av) C_noret; C_noret_decl(f_9949) static void C_ccall f_9949(C_word c,C_word *av) C_noret; C_noret_decl(f_9974) static void C_fcall f_9974(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9999) static void C_ccall f_9999(C_word c,C_word *av) C_noret; C_noret_decl(C_support_toplevel) C_externexport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_10031) static void C_ccall trf_10031(C_word c,C_word *av) C_noret; static void C_ccall trf_10031(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10031(t0,t1,t2);} C_noret_decl(trf_10087) static void C_ccall trf_10087(C_word c,C_word *av) C_noret; static void C_ccall trf_10087(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_10087(t0,t1,t2,t3,t4);} C_noret_decl(trf_10137) static void C_ccall trf_10137(C_word c,C_word *av) C_noret; static void C_ccall trf_10137(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10137(t0,t1);} C_noret_decl(trf_10157) static void C_ccall trf_10157(C_word c,C_word *av) C_noret; static void C_ccall trf_10157(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10157(t0,t1,t2);} C_noret_decl(trf_10214) static void C_ccall trf_10214(C_word c,C_word *av) C_noret; static void C_ccall trf_10214(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10214(t0,t1,t2);} C_noret_decl(trf_10265) static void C_ccall trf_10265(C_word c,C_word *av) C_noret; static void C_ccall trf_10265(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10265(t0,t1,t2);} C_noret_decl(trf_10369) static void C_ccall trf_10369(C_word c,C_word *av) C_noret; static void C_ccall trf_10369(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10369(t0,t1,t2);} C_noret_decl(trf_10449) static void C_ccall trf_10449(C_word c,C_word *av) C_noret; static void C_ccall trf_10449(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10449(t0,t1,t2,t3);} C_noret_decl(trf_10553) static void C_ccall trf_10553(C_word c,C_word *av) C_noret; static void C_ccall trf_10553(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10553(t0,t1,t2);} C_noret_decl(trf_10608) static void C_ccall trf_10608(C_word c,C_word *av) C_noret; static void C_ccall trf_10608(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10608(t0,t1,t2,t3);} C_noret_decl(trf_10779) static void C_ccall trf_10779(C_word c,C_word *av) C_noret; static void C_ccall trf_10779(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10779(t0,t1,t2);} C_noret_decl(trf_10812) static void C_ccall trf_10812(C_word c,C_word *av) C_noret; static void C_ccall trf_10812(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10812(t0,t1,t2);} C_noret_decl(trf_10824) static void C_ccall trf_10824(C_word c,C_word *av) C_noret; static void C_ccall trf_10824(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10824(t0,t1,t2);} C_noret_decl(trf_10891) static void C_ccall trf_10891(C_word c,C_word *av) C_noret; static void C_ccall trf_10891(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10891(t0,t1,t2,t3);} C_noret_decl(trf_10939) static void C_ccall trf_10939(C_word c,C_word *av) C_noret; static void C_ccall trf_10939(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10939(t0,t1,t2);} C_noret_decl(trf_10988) static void C_ccall trf_10988(C_word c,C_word *av) C_noret; static void C_ccall trf_10988(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10988(t0,t1,t2);} C_noret_decl(trf_11000) static void C_ccall trf_11000(C_word c,C_word *av) C_noret; static void C_ccall trf_11000(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11000(t0,t1,t2);} C_noret_decl(trf_11047) static void C_ccall trf_11047(C_word c,C_word *av) C_noret; static void C_ccall trf_11047(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11047(t0,t1,t2,t3);} C_noret_decl(trf_11101) static void C_ccall trf_11101(C_word c,C_word *av) C_noret; static void C_ccall trf_11101(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11101(t0,t1,t2);} C_noret_decl(trf_11254) static void C_ccall trf_11254(C_word c,C_word *av) C_noret; static void C_ccall trf_11254(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11254(t0,t1,t2);} C_noret_decl(trf_11325) static void C_ccall trf_11325(C_word c,C_word *av) C_noret; static void C_ccall trf_11325(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11325(t0,t1,t2);} C_noret_decl(trf_11388) static void C_ccall trf_11388(C_word c,C_word *av) C_noret; static void C_ccall trf_11388(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11388(t0,t1,t2);} C_noret_decl(trf_11449) static void C_ccall trf_11449(C_word c,C_word *av) C_noret; static void C_ccall trf_11449(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11449(t0,t1,t2);} C_noret_decl(trf_11504) static void C_ccall trf_11504(C_word c,C_word *av) C_noret; static void C_ccall trf_11504(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11504(t0,t1);} C_noret_decl(trf_11541) static void C_ccall trf_11541(C_word c,C_word *av) C_noret; static void C_ccall trf_11541(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11541(t0,t1);} C_noret_decl(trf_11633) static void C_ccall trf_11633(C_word c,C_word *av) C_noret; static void C_ccall trf_11633(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11633(t0,t1);} C_noret_decl(trf_11680) static void C_ccall trf_11680(C_word c,C_word *av) C_noret; static void C_ccall trf_11680(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11680(t0,t1,t2,t3);} C_noret_decl(trf_11714) static void C_ccall trf_11714(C_word c,C_word *av) C_noret; static void C_ccall trf_11714(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11714(t0,t1,t2,t3);} C_noret_decl(trf_11761) static void C_ccall trf_11761(C_word c,C_word *av) C_noret; static void C_ccall trf_11761(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11761(t0,t1,t2,t3);} C_noret_decl(trf_11801) static void C_ccall trf_11801(C_word c,C_word *av) C_noret; static void C_ccall trf_11801(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11801(t0,t1,t2,t3);} C_noret_decl(trf_11942) static void C_ccall trf_11942(C_word c,C_word *av) C_noret; static void C_ccall trf_11942(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11942(t0,t1);} C_noret_decl(trf_12158) static void C_ccall trf_12158(C_word c,C_word *av) C_noret; static void C_ccall trf_12158(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12158(t0,t1);} C_noret_decl(trf_12199) static void C_ccall trf_12199(C_word c,C_word *av) C_noret; static void C_ccall trf_12199(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12199(t0,t1);} C_noret_decl(trf_12471) static void C_ccall trf_12471(C_word c,C_word *av) C_noret; static void C_ccall trf_12471(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12471(t0,t1,t2);} C_noret_decl(trf_12496) static void C_ccall trf_12496(C_word c,C_word *av) C_noret; static void C_ccall trf_12496(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12496(t0,t1);} C_noret_decl(trf_12511) static void C_ccall trf_12511(C_word c,C_word *av) C_noret; static void C_ccall trf_12511(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12511(t0,t1);} C_noret_decl(trf_12594) static void C_ccall trf_12594(C_word c,C_word *av) C_noret; static void C_ccall trf_12594(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12594(t0,t1);} C_noret_decl(trf_12634) static void C_ccall trf_12634(C_word c,C_word *av) C_noret; static void C_ccall trf_12634(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12634(t0,t1);} C_noret_decl(trf_12652) static void C_ccall trf_12652(C_word c,C_word *av) C_noret; static void C_ccall trf_12652(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12652(t0,t1);} C_noret_decl(trf_12676) static void C_ccall trf_12676(C_word c,C_word *av) C_noret; static void C_ccall trf_12676(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12676(t0,t1);} C_noret_decl(trf_12702) static void C_ccall trf_12702(C_word c,C_word *av) C_noret; static void C_ccall trf_12702(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12702(t0,t1);} C_noret_decl(trf_12745) static void C_ccall trf_12745(C_word c,C_word *av) C_noret; static void C_ccall trf_12745(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12745(t0,t1);} C_noret_decl(trf_12789) static void C_ccall trf_12789(C_word c,C_word *av) C_noret; static void C_ccall trf_12789(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12789(t0,t1);} C_noret_decl(trf_12833) static void C_ccall trf_12833(C_word c,C_word *av) C_noret; static void C_ccall trf_12833(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12833(t0,t1);} C_noret_decl(trf_12851) static void C_ccall trf_12851(C_word c,C_word *av) C_noret; static void C_ccall trf_12851(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12851(t0,t1);} C_noret_decl(trf_12878) static void C_ccall trf_12878(C_word c,C_word *av) C_noret; static void C_ccall trf_12878(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12878(t0,t1);} C_noret_decl(trf_12925) static void C_ccall trf_12925(C_word c,C_word *av) C_noret; static void C_ccall trf_12925(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12925(t0,t1,t2);} C_noret_decl(trf_12952) static void C_ccall trf_12952(C_word c,C_word *av) C_noret; static void C_ccall trf_12952(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12952(t0,t1);} C_noret_decl(trf_13603) static void C_ccall trf_13603(C_word c,C_word *av) C_noret; static void C_ccall trf_13603(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13603(t0,t1,t2);} C_noret_decl(trf_13631) static void C_ccall trf_13631(C_word c,C_word *av) C_noret; static void C_ccall trf_13631(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13631(t0,t1);} C_noret_decl(trf_13650) static void C_ccall trf_13650(C_word c,C_word *av) C_noret; static void C_ccall trf_13650(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13650(t0,t1);} C_noret_decl(trf_13659) static void C_ccall trf_13659(C_word c,C_word *av) C_noret; static void C_ccall trf_13659(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13659(t0,t1);} C_noret_decl(trf_13671) static void C_ccall trf_13671(C_word c,C_word *av) C_noret; static void C_ccall trf_13671(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13671(t0,t1);} C_noret_decl(trf_13683) static void C_ccall trf_13683(C_word c,C_word *av) C_noret; static void C_ccall trf_13683(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13683(t0,t1);} C_noret_decl(trf_13695) static void C_ccall trf_13695(C_word c,C_word *av) C_noret; static void C_ccall trf_13695(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13695(t0,t1);} C_noret_decl(trf_13705) static void C_ccall trf_13705(C_word c,C_word *av) C_noret; static void C_ccall trf_13705(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13705(t0,t1,t2);} C_noret_decl(trf_13732) static void C_ccall trf_13732(C_word c,C_word *av) C_noret; static void C_ccall trf_13732(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13732(t0,t1);} C_noret_decl(trf_14125) static void C_ccall trf_14125(C_word c,C_word *av) C_noret; static void C_ccall trf_14125(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14125(t0,t1);} C_noret_decl(trf_14137) static void C_ccall trf_14137(C_word c,C_word *av) C_noret; static void C_ccall trf_14137(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14137(t0,t1);} C_noret_decl(trf_14147) static void C_ccall trf_14147(C_word c,C_word *av) C_noret; static void C_ccall trf_14147(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14147(t0,t1,t2);} C_noret_decl(trf_14174) static void C_ccall trf_14174(C_word c,C_word *av) C_noret; static void C_ccall trf_14174(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14174(t0,t1);} C_noret_decl(trf_14673) static void C_ccall trf_14673(C_word c,C_word *av) C_noret; static void C_ccall trf_14673(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14673(t0,t1);} C_noret_decl(trf_14849) static void C_ccall trf_14849(C_word c,C_word *av) C_noret; static void C_ccall trf_14849(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14849(t0,t1);} C_noret_decl(trf_14924) static void C_ccall trf_14924(C_word c,C_word *av) C_noret; static void C_ccall trf_14924(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14924(t0,t1);} C_noret_decl(trf_15011) static void C_ccall trf_15011(C_word c,C_word *av) C_noret; static void C_ccall trf_15011(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15011(t0,t1);} C_noret_decl(trf_15032) static void C_ccall trf_15032(C_word c,C_word *av) C_noret; static void C_ccall trf_15032(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15032(t0,t1);} C_noret_decl(trf_15050) static void C_ccall trf_15050(C_word c,C_word *av) C_noret; static void C_ccall trf_15050(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15050(t0,t1);} C_noret_decl(trf_15072) static void C_ccall trf_15072(C_word c,C_word *av) C_noret; static void C_ccall trf_15072(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15072(t0,t1);} C_noret_decl(trf_15465) static void C_ccall trf_15465(C_word c,C_word *av) C_noret; static void C_ccall trf_15465(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15465(t0,t1);} C_noret_decl(trf_15473) static void C_ccall trf_15473(C_word c,C_word *av) C_noret; static void C_ccall trf_15473(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15473(t0,t1,t2);} C_noret_decl(trf_15497) static void C_ccall trf_15497(C_word c,C_word *av) C_noret; static void C_ccall trf_15497(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15497(t0,t1);} C_noret_decl(trf_15529) static void C_ccall trf_15529(C_word c,C_word *av) C_noret; static void C_ccall trf_15529(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15529(t0,t1);} C_noret_decl(trf_15537) static void C_ccall trf_15537(C_word c,C_word *av) C_noret; static void C_ccall trf_15537(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15537(t0,t1,t2);} C_noret_decl(trf_15585) static void C_ccall trf_15585(C_word c,C_word *av) C_noret; static void C_ccall trf_15585(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15585(t0,t1,t2,t3);} C_noret_decl(trf_15619) static void C_ccall trf_15619(C_word c,C_word *av) C_noret; static void C_ccall trf_15619(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15619(t0,t1);} C_noret_decl(trf_15769) static void C_ccall trf_15769(C_word c,C_word *av) C_noret; static void C_ccall trf_15769(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15769(t0,t1,t2,t3);} C_noret_decl(trf_15771) static void C_ccall trf_15771(C_word c,C_word *av) C_noret; static void C_ccall trf_15771(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15771(t0,t1,t2);} C_noret_decl(trf_15783) static void C_ccall trf_15783(C_word c,C_word *av) C_noret; static void C_ccall trf_15783(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15783(t0,t1,t2);} C_noret_decl(trf_15823) static void C_ccall trf_15823(C_word c,C_word *av) C_noret; static void C_ccall trf_15823(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15823(t0,t1);} C_noret_decl(trf_15927) static void C_ccall trf_15927(C_word c,C_word *av) C_noret; static void C_ccall trf_15927(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15927(t0,t1);} C_noret_decl(trf_15972) static void C_ccall trf_15972(C_word c,C_word *av) C_noret; static void C_ccall trf_15972(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_15972(t0,t1,t2,t3,t4);} C_noret_decl(trf_16146) static void C_ccall trf_16146(C_word c,C_word *av) C_noret; static void C_ccall trf_16146(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16146(t0,t1);} C_noret_decl(trf_16341) static void C_ccall trf_16341(C_word c,C_word *av) C_noret; static void C_ccall trf_16341(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16341(t0,t1,t2);} C_noret_decl(trf_16375) static void C_ccall trf_16375(C_word c,C_word *av) C_noret; static void C_ccall trf_16375(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16375(t0,t1,t2);} C_noret_decl(trf_16565) static void C_ccall trf_16565(C_word c,C_word *av) C_noret; static void C_ccall trf_16565(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16565(t0,t1);} C_noret_decl(trf_16572) static void C_ccall trf_16572(C_word c,C_word *av) C_noret; static void C_ccall trf_16572(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16572(t0,t1,t2);} C_noret_decl(trf_16654) static void C_ccall trf_16654(C_word c,C_word *av) C_noret; static void C_ccall trf_16654(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16654(t0,t1,t2,t3);} C_noret_decl(trf_16706) static void C_ccall trf_16706(C_word c,C_word *av) C_noret; static void C_ccall trf_16706(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16706(t0,t1,t2);} C_noret_decl(trf_16745) static void C_ccall trf_16745(C_word c,C_word *av) C_noret; static void C_ccall trf_16745(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16745(t0,t1,t2);} C_noret_decl(trf_16778) static void C_ccall trf_16778(C_word c,C_word *av) C_noret; static void C_ccall trf_16778(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16778(t0,t1,t2);} C_noret_decl(trf_16808) static void C_ccall trf_16808(C_word c,C_word *av) C_noret; static void C_ccall trf_16808(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16808(t0,t1);} C_noret_decl(trf_16884) static void C_ccall trf_16884(C_word c,C_word *av) C_noret; static void C_ccall trf_16884(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16884(t0,t1);} C_noret_decl(trf_17179) static void C_ccall trf_17179(C_word c,C_word *av) C_noret; static void C_ccall trf_17179(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17179(t0,t1,t2);} C_noret_decl(trf_5249) static void C_ccall trf_5249(C_word c,C_word *av) C_noret; static void C_ccall trf_5249(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5249(t0,t1,t2);} C_noret_decl(trf_5307) static void C_ccall trf_5307(C_word c,C_word *av) C_noret; static void C_ccall trf_5307(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_5307(t0,t1,t2,t3,t4);} C_noret_decl(trf_5510) static void C_ccall trf_5510(C_word c,C_word *av) C_noret; static void C_ccall trf_5510(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5510(t0,t1,t2);} C_noret_decl(trf_5516) static void C_ccall trf_5516(C_word c,C_word *av) C_noret; static void C_ccall trf_5516(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5516(t0,t1,t2);} C_noret_decl(trf_5544) static void C_ccall trf_5544(C_word c,C_word *av) C_noret; static void C_ccall trf_5544(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5544(t0,t1,t2);} C_noret_decl(trf_5550) static void C_ccall trf_5550(C_word c,C_word *av) C_noret; static void C_ccall trf_5550(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5550(t0,t1,t2);} C_noret_decl(trf_5574) static void C_ccall trf_5574(C_word c,C_word *av) C_noret; static void C_ccall trf_5574(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5574(t0,t1,t2);} C_noret_decl(trf_5580) static void C_ccall trf_5580(C_word c,C_word *av) C_noret; static void C_ccall trf_5580(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5580(t0,t1,t2,t3);} C_noret_decl(trf_5803) static void C_ccall trf_5803(C_word c,C_word *av) C_noret; static void C_ccall trf_5803(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5803(t0,t1,t2);} C_noret_decl(trf_5811) static void C_ccall trf_5811(C_word c,C_word *av) C_noret; static void C_ccall trf_5811(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5811(t0,t1,t2,t3);} C_noret_decl(trf_5876) static void C_ccall trf_5876(C_word c,C_word *av) C_noret; static void C_ccall trf_5876(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5876(t0,t1,t2);} C_noret_decl(trf_5910) static void C_ccall trf_5910(C_word c,C_word *av) C_noret; static void C_ccall trf_5910(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5910(t0,t1);} C_noret_decl(trf_5969) static void C_ccall trf_5969(C_word c,C_word *av) C_noret; static void C_ccall trf_5969(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5969(t0,t1,t2);} C_noret_decl(trf_5975) static void C_ccall trf_5975(C_word c,C_word *av) C_noret; static void C_ccall trf_5975(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5975(t0,t1,t2,t3);} C_noret_decl(trf_6158) static void C_ccall trf_6158(C_word c,C_word *av) C_noret; static void C_ccall trf_6158(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6158(t0,t1,t2);} C_noret_decl(trf_6271) static void C_ccall trf_6271(C_word c,C_word *av) C_noret; static void C_ccall trf_6271(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6271(t0,t1,t2);} C_noret_decl(trf_6454) static void C_ccall trf_6454(C_word c,C_word *av) C_noret; static void C_ccall trf_6454(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6454(t0,t1,t2);} C_noret_decl(trf_6478) static void C_ccall trf_6478(C_word c,C_word *av) C_noret; static void C_ccall trf_6478(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6478(t0,t1);} C_noret_decl(trf_6520) static void C_ccall trf_6520(C_word c,C_word *av) C_noret; static void C_ccall trf_6520(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6520(t0,t1,t2);} C_noret_decl(trf_6543) static void C_ccall trf_6543(C_word c,C_word *av) C_noret; static void C_ccall trf_6543(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6543(t0,t1,t2);} C_noret_decl(trf_6598) static void C_ccall trf_6598(C_word c,C_word *av) C_noret; static void C_ccall trf_6598(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6598(t0,t1,t2);} C_noret_decl(trf_6600) static void C_ccall trf_6600(C_word c,C_word *av) C_noret; static void C_ccall trf_6600(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6600(t0,t1,t2);} C_noret_decl(trf_6632) static void C_ccall trf_6632(C_word c,C_word *av) C_noret; static void C_ccall trf_6632(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6632(t0,t1,t2);} C_noret_decl(trf_6712) static void C_ccall trf_6712(C_word c,C_word *av) C_noret; static void C_ccall trf_6712(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6712(t0,t1);} C_noret_decl(trf_6716) static void C_ccall trf_6716(C_word c,C_word *av) C_noret; static void C_ccall trf_6716(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6716(t0,t1,t2);} C_noret_decl(trf_6734) static void C_ccall trf_6734(C_word c,C_word *av) C_noret; static void C_ccall trf_6734(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6734(t0,t1,t2);} C_noret_decl(trf_6824) static void C_ccall trf_6824(C_word c,C_word *av) C_noret; static void C_ccall trf_6824(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6824(t0,t1,t2);} C_noret_decl(trf_6862) static void C_ccall trf_6862(C_word c,C_word *av) C_noret; static void C_ccall trf_6862(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6862(t0,t1);} C_noret_decl(trf_6883) static void C_ccall trf_6883(C_word c,C_word *av) C_noret; static void C_ccall trf_6883(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6883(t0,t1,t2,t3);} C_noret_decl(trf_6933) static void C_ccall trf_6933(C_word c,C_word *av) C_noret; static void C_ccall trf_6933(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6933(t0,t1,t2,t3);} C_noret_decl(trf_6982) static void C_ccall trf_6982(C_word c,C_word *av) C_noret; static void C_ccall trf_6982(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6982(t0,t1,t2);} C_noret_decl(trf_7004) static void C_ccall trf_7004(C_word c,C_word *av) C_noret; static void C_ccall trf_7004(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7004(t0,t1);} C_noret_decl(trf_7011) static void C_ccall trf_7011(C_word c,C_word *av) C_noret; static void C_ccall trf_7011(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7011(t0,t1);} C_noret_decl(trf_7152) static void C_ccall trf_7152(C_word c,C_word *av) C_noret; static void C_ccall trf_7152(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7152(t0,t1);} C_noret_decl(trf_7199) static void C_ccall trf_7199(C_word c,C_word *av) C_noret; static void C_ccall trf_7199(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7199(t0,t1,t2);} C_noret_decl(trf_7239) static void C_ccall trf_7239(C_word c,C_word *av) C_noret; static void C_ccall trf_7239(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7239(t0,t1,t2,t3);} C_noret_decl(trf_7245) static void C_ccall trf_7245(C_word c,C_word *av) C_noret; static void C_ccall trf_7245(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7245(t0,t1,t2,t3);} C_noret_decl(trf_7303) static void C_ccall trf_7303(C_word c,C_word *av) C_noret; static void C_ccall trf_7303(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_7303(t0,t1,t2,t3,t4);} C_noret_decl(trf_7430) static void C_ccall trf_7430(C_word c,C_word *av) C_noret; static void C_ccall trf_7430(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7430(t0,t1);} C_noret_decl(trf_7534) static void C_ccall trf_7534(C_word c,C_word *av) C_noret; static void C_ccall trf_7534(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7534(t0,t1,t2);} C_noret_decl(trf_7558) static void C_ccall trf_7558(C_word c,C_word *av) C_noret; static void C_ccall trf_7558(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7558(t0,t1);} C_noret_decl(trf_7649) static void C_ccall trf_7649(C_word c,C_word *av) C_noret; static void C_ccall trf_7649(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7649(t0,t1);} C_noret_decl(trf_7681) static void C_ccall trf_7681(C_word c,C_word *av) C_noret; static void C_ccall trf_7681(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7681(t0,t1,t2);} C_noret_decl(trf_7706) static void C_ccall trf_7706(C_word c,C_word *av) C_noret; static void C_ccall trf_7706(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7706(t0,t1,t2);} C_noret_decl(trf_7876) static void C_ccall trf_7876(C_word c,C_word *av) C_noret; static void C_ccall trf_7876(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7876(t0,t1,t2);} C_noret_decl(trf_8089) static void C_ccall trf_8089(C_word c,C_word *av) C_noret; static void C_ccall trf_8089(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8089(t0,t1);} C_noret_decl(trf_8093) static void C_ccall trf_8093(C_word c,C_word *av) C_noret; static void C_ccall trf_8093(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8093(t0,t1,t2);} C_noret_decl(trf_8157) static void C_ccall trf_8157(C_word c,C_word *av) C_noret; static void C_ccall trf_8157(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8157(t0,t1,t2);} C_noret_decl(trf_8369) static void C_ccall trf_8369(C_word c,C_word *av) C_noret; static void C_ccall trf_8369(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8369(t0,t1,t2);} C_noret_decl(trf_8420) static void C_ccall trf_8420(C_word c,C_word *av) C_noret; static void C_ccall trf_8420(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8420(t0,t1);} C_noret_decl(trf_8486) static void C_ccall trf_8486(C_word c,C_word *av) C_noret; static void C_ccall trf_8486(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8486(t0,t1,t2);} C_noret_decl(trf_8513) static void C_ccall trf_8513(C_word c,C_word *av) C_noret; static void C_ccall trf_8513(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8513(t0,t1,t2);} C_noret_decl(trf_8639) static void C_ccall trf_8639(C_word c,C_word *av) C_noret; static void C_ccall trf_8639(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_8639(t0,t1,t2,t3,t4);} C_noret_decl(trf_8789) static void C_ccall trf_8789(C_word c,C_word *av) C_noret; static void C_ccall trf_8789(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8789(t0,t1);} C_noret_decl(trf_8803) static void C_ccall trf_8803(C_word c,C_word *av) C_noret; static void C_ccall trf_8803(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8803(t0,t1,t2);} C_noret_decl(trf_8862) static void C_ccall trf_8862(C_word c,C_word *av) C_noret; static void C_ccall trf_8862(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8862(t0,t1);} C_noret_decl(trf_8890) static void C_ccall trf_8890(C_word c,C_word *av) C_noret; static void C_ccall trf_8890(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8890(t0,t1,t2);} C_noret_decl(trf_9001) static void C_ccall trf_9001(C_word c,C_word *av) C_noret; static void C_ccall trf_9001(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9001(t0,t1,t2);} C_noret_decl(trf_9107) static void C_ccall trf_9107(C_word c,C_word *av) C_noret; static void C_ccall trf_9107(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9107(t0,t1);} C_noret_decl(trf_9138) static void C_ccall trf_9138(C_word c,C_word *av) C_noret; static void C_ccall trf_9138(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9138(t0,t1,t2);} C_noret_decl(trf_9201) static void C_ccall trf_9201(C_word c,C_word *av) C_noret; static void C_ccall trf_9201(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9201(t0,t1,t2);} C_noret_decl(trf_9269) static void C_ccall trf_9269(C_word c,C_word *av) C_noret; static void C_ccall trf_9269(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9269(t0,t1,t2);} C_noret_decl(trf_9305) static void C_ccall trf_9305(C_word c,C_word *av) C_noret; static void C_ccall trf_9305(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9305(t0,t1);} C_noret_decl(trf_9441) static void C_ccall trf_9441(C_word c,C_word *av) C_noret; static void C_ccall trf_9441(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9441(t0,t1,t2);} C_noret_decl(trf_9533) static void C_ccall trf_9533(C_word c,C_word *av) C_noret; static void C_ccall trf_9533(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9533(t0,t1);} C_noret_decl(trf_9548) static void C_ccall trf_9548(C_word c,C_word *av) C_noret; static void C_ccall trf_9548(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9548(t0,t1,t2);} C_noret_decl(trf_9605) static void C_ccall trf_9605(C_word c,C_word *av) C_noret; static void C_ccall trf_9605(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9605(t0,t1,t2);} C_noret_decl(trf_9725) static void C_ccall trf_9725(C_word c,C_word *av) C_noret; static void C_ccall trf_9725(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9725(t0,t1,t2,t3);} C_noret_decl(trf_9773) static void C_ccall trf_9773(C_word c,C_word *av) C_noret; static void C_ccall trf_9773(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9773(t0,t1,t2);} C_noret_decl(trf_9898) static void C_ccall trf_9898(C_word c,C_word *av) C_noret; static void C_ccall trf_9898(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9898(t0,t1,t2,t3);} C_noret_decl(trf_9974) static void C_ccall trf_9974(C_word c,C_word *av) C_noret; static void C_ccall trf_9974(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9974(t0,t1,t2);} /* f18834 in chicken.compiler.support#print-version in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f18834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f18834,2,av);} /* support.scm:1680: chicken.base#print */ t2=*((C_word*)lf[220]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10027 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10029,2,av);} a=C_alloc(6); /* support.scm:629: cons* */ f_5574(((C_word*)t0)[2],lf[190],C_a_i_list(&a,2,((C_word*)t0)[3],t1));} /* map-loop1919 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10031(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10031,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10056,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:629: g1925 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10054 in map-loop1919 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10056,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10031(t6,((C_word*)t0)[5],t5);} /* loop in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10087(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_10087,5,t0,t1,t2,t3,t4);} a=C_alloc(36); t5=t2; if(C_truep(C_i_zerop(t5))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10099,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* support.scm:634: scheme#reverse */ t7=*((C_word*)lf[82]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=C_s_a_i_minus(&a,2,t2,C_fix(1)); t7=t6; t8=C_i_cdr(t3); t9=t8; t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10126,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t7,a[6]=t9,tmp=(C_word)a,a+=7,tmp); t11=t3; t12=C_u_i_car(t11); /* support.scm:635: walk */ t13=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t13; av2[1]=t10; av2[2]=t12; f_9499(3,av2);}}} /* k10097 in loop in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10099,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10103,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_car(((C_word*)t0)[3]); /* support.scm:634: walk */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; f_9499(3,av2);}} /* k10101 in k10097 in loop in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_10103,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[199],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10124 in loop in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_10126,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* support.scm:635: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10087(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10137(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ C_save_and_reclaim_args((void *)trf_10137,2,t0,t1);} a=C_alloc(21); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10144,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_car(((C_word*)t0)[3]); /* support.scm:637: walk */ t4=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; f_9499(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[7],lf[179]); if(C_truep(t2)){ t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_i_check_list_2(((C_word*)t0)[3],lf[127]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10212,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10214,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_10214(t13,t9,((C_word*)t0)[3]);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10253,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)((C_word*)t0)[2])[1]; t9=C_i_check_list_2(((C_word*)t0)[3],lf[127]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10263,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10265,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_10265(t14,t10,((C_word*)t0)[3]);}}} /* k10142 in k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_10144,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_u_i_cdr(((C_word*)t0)[3]); t9=C_i_check_list_2(t8,lf[127]); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10155,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10157,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_10157(t14,t10,t8);} /* k10153 in k10142 in k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_10155,2,av);} a=C_alloc(9); /* support.scm:637: cons* */ f_5574(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,3,((C_word*)t0)[4],((C_word*)t0)[5],t1));} /* map-loop1962 in k10142 in k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10157(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10157,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10182,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:637: g1968 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10180 in map-loop1962 in k10142 in k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10182,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10157(t6,((C_word*)t0)[5],t5);} /* k10210 in k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10212,2,av);} a=C_alloc(6); /* support.scm:639: cons* */ f_5574(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],t1));} /* map-loop1988 in k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10214(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10214,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10239,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:639: g1994 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10237 in map-loop1988 in k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10239,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10214(t6,((C_word*)t0)[5],t5);} /* k10251 in k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10253,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10261 in k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10263,2,av);} /* support.scm:640: scheme#append */ t2=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2014 in k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10265(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10265,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10290,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:640: g2020 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10288 in map-loop2014 in k10135 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10290,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10265(t6,((C_word*)t0)[5],t5);} /* chicken.compiler.support#fold-boolean in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10363,4,av);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10369,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_10369(t7,t1,t3);} /* fold in chicken.compiler.support#fold-boolean in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10369(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_10369,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_cddr(t2); if(C_truep(C_i_nullp(t3))){{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; C_apply(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10395,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=t2; t6=C_i_car(t5); t7=t2; t8=C_i_cadr(t7); /* support.scm:648: proc */ t9=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t9; av2[1]=t4; av2[2]=t6; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} /* k10393 in fold in chicken.compiler.support#fold-boolean in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10395,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10399,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* support.scm:649: fold */ t6=((C_word*)((C_word*)t0)[4])[1]; f_10369(t6,t3,t5);} /* k10397 in k10393 in fold in chicken.compiler.support#fold-boolean in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_10399,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[143],lf[174],lf[207],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_10415,8,av);} a=C_alloc(7); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10421,a[2]=t3,a[3]=t5,a[4]=t4,a[5]=t6,a[6]=t7,tmp=(C_word)a,a+=7,tmp); /* support.scm:653: ##sys#decompose-lambda-list */ t9=*((C_word*)lf[215]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t1; av2[2]=t2; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_10421,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10427,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10433,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); /* support.scm:656: ##sys#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a10426 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_10427,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5307,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_5307(t7,t1,t3,C_SCHEME_END_OF_LIST,t2);} /* a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10433,4,av);} a=C_alloc(24); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10437,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[4])){ t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=((C_word*)t0)[6]; t10=C_i_check_list_2(t9,lf[127]); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10553,a[2]=t7,a[3]=t12,a[4]=t8,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_10553(t14,t4,t9);} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[6]; f_10437(2,av2);}}} /* k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,4)))){ C_save_and_reclaim((void *)f_10437,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10440,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[7])){ t4=t3; t5=((C_word*)t0)[8]; t6=((C_word*)t0)[9]; t7=((C_word*)t0)[10]; t8=((C_word*)t0)[11]; t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=C_i_check_list_2(t6,lf[127]); t14=C_i_check_list_2(t2,lf[127]); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10600,a[2]=t8,a[3]=t7,a[4]=t4,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11047,a[2]=t11,a[3]=t17,a[4]=t12,tmp=(C_word)a,a+=5,tmp)); t19=((C_word*)t17)[1]; f_11047(t19,t15,t6,t2);} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[8]; f_10440(2,av2);}}} /* k10438 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10440,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10447,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* support.scm:661: take */ f_5249(t3,((C_word*)t0)[4],((C_word*)t0)[7]);} /* k10445 in k10438 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_10447,2,av);} a=C_alloc(9); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10449,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_10449(t5,((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* loop in k10445 in k10438 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10449(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_10449,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ if(C_truep(((C_word*)t0)[2])){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10507,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:666: last */ f_5910(t4,((C_word*)t0)[5]);} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=C_i_car(t2); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=C_i_car(t3); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10531,a[2]=t8,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t10=t2; t11=C_u_i_cdr(t10); t12=t3; t13=C_u_i_cdr(t12); /* support.scm:677: loop */ t15=t9; t16=t11; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;}} /* k10477 in k10505 in loop in k10445 in k10438 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_10479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_10479,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[143],lf[98],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10505 in loop in k10445 in k10438 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,2)))){ C_save_and_reclaim((void *)f_10507,2,av);} a=C_alloc(35); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10479,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ /* support.scm:668: qnode */ t5=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_i_length(((C_word*)t0)[4]); t6=C_a_i_fixnum_times(&a,2,C_fix(3),t5); t7=C_a_i_list2(&a,2,lf[209],t6); t8=((C_word*)t0)[4]; t9=C_a_i_record4(&a,4,lf[143],lf[179],t7,t8); t10=C_a_i_list2(&a,2,t9,((C_word*)t0)[2]); t11=((C_word*)t0)[3]; t12=t11;{ C_word *av2=av; av2[0]=t12; av2[1]=C_a_i_record4(&a,4,lf[143],lf[98],t3,t10); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* k10529 in loop in k10445 in k10438 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_10531,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[143],lf[98],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop2065 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10553(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10553,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10578,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:657: g2071 */ t5=*((C_word*)lf[99]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10576 in map-loop2065 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10578,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10553(t6,((C_word*)t0)[5],t5);} /* k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_10600,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10608,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp)); /* support.scm:726: walk */ t5=((C_word*)t3)[1]; f_10608(t5,((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10608(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){ C_save_and_reclaim_args((void *)trf_10608,4,t0,t1,t2,t3);} a=C_alloc(10); t4=t2; t5=C_slot(t4,C_fix(3)); t6=t5; t7=t2; t8=C_slot(t7,C_fix(2)); t9=t8; t10=t2; t11=C_slot(t10,C_fix(1)); t12=t11; t13=C_eqp(t12,lf[87]); if(C_truep(t13)){ t14=t1; t15=t14;{ C_word av2[2]; av2[0]=t15; av2[1]=C_a_i_record4(&a,4,lf[143],t12,t9,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t14=C_eqp(t12,lf[156]); if(C_truep(t14)){ t15=C_i_car(t9); t16=t15; t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10659,a[2]=t1,a[3]=t3,a[4]=t16,tmp=(C_word)a,a+=5,tmp); t18=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10669,a[2]=((C_word*)t0)[2],a[3]=t17,a[4]=t16,tmp=(C_word)a,a+=5,tmp); /* support.scm:692: db-get */ t19=*((C_word*)lf[129]+1);{ C_word av2[5]; av2[0]=t19; av2[1]=t18; av2[2]=((C_word*)t0)[3]; av2[3]=t16; av2[4]=lf[212]; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}} else{ t15=C_eqp(t12,lf[126]); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10706,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t17=C_i_car(t9); t18=t3; /* support.scm:682: chicken.base#alist-ref */ t19=*((C_word*)lf[210]+1);{ C_word av2[6]; av2[0]=t19; av2[1]=t16; av2[2]=t17; av2[3]=t18; av2[4]=*((C_word*)lf[211]+1); av2[5]=t17; ((C_proc)(void*)(*((C_word*)t19+1)))(6,av2);}} else{ t16=C_eqp(t12,lf[98]); if(C_truep(t16)){ t17=C_i_car(t9); t18=t17; t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10722,a[2]=t3,a[3]=t18,a[4]=t1,a[5]=t6,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); t20=C_i_car(t6); /* support.scm:701: walk */ t22=t19; t23=t20; t24=t3; t1=t22; t2=t23; t3=t24; goto loop;} else{ t17=C_eqp(t12,lf[120]); if(C_truep(t17)){ t18=C_i_caddr(t9); t19=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10774,a[2]=((C_word*)t0)[3],a[3]=t9,a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* support.scm:709: ##sys#decompose-lambda-list */ t20=*((C_word*)lf[215]+1);{ C_word av2[4]; av2[0]=t20; av2[1]=t1; av2[2]=t18; av2[3]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(4,av2);}} else{ t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10983,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t6,a[5]=t1,a[6]=t12,tmp=(C_word)a,a+=7,tmp); /* support.scm:724: tree-copy */ t19=*((C_word*)lf[216]+1);{ C_word av2[3]; av2[0]=t19; av2[1]=t18; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}}}}}} /* k10657 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_10659,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10666,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; /* support.scm:682: chicken.base#alist-ref */ t4=*((C_word*)lf[210]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=t3; av2[4]=*((C_word*)lf[211]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k10664 in k10657 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10666,2,av);} /* support.scm:694: varnode */ t2=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10667 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10669,2,av);} if(C_truep(t1)){ /* support.scm:693: cfk */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_10659(2,av2);}}} /* k10696 in k10704 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_10698,2,av);} a=C_alloc(8); t2=C_a_i_list1(&a,1,t1); t3=((C_word*)t0)[2]; t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[143],lf[126],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10704 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_10706,2,av);} a=C_alloc(7); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10698,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(((C_word*)t0)[3]); /* support.scm:698: walk */ t6=((C_word*)((C_word*)t0)[4])[1]; f_10608(t6,t4,t5,((C_word*)t0)[5]);} /* k10720 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_10722,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10725,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* support.scm:702: chicken.base#gensym */ t4=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10723 in k10720 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_10725,2,av);} a=C_alloc(14); t2=t1; t3=((C_word*)t0)[2]; t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t5=C_a_i_cons(&a,2,t4,t3); t6=t5; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10731,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* support.scm:704: db-put! */ t8=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[8]; av2[3]=t2; av2[4]=lf[213]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} /* k10729 in k10723 in k10720 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_10731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10731,2,av);} a=C_alloc(8); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10751,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_i_cadr(((C_word*)t0)[5]); /* support.scm:707: walk */ t6=((C_word*)((C_word*)t0)[6])[1]; f_10608(t6,t4,t5,((C_word*)t0)[7]);} /* k10749 in k10729 in k10723 in k10720 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in ... */ static void C_ccall f_10751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_10751,2,av);} a=C_alloc(11); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[143],lf[98],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_10774,5,av);} a=C_alloc(26); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10779,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t10=t2; t11=C_i_check_list_2(t10,lf[127]); t12=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10792,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=t3,a[7]=t4,a[8]=t2,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10939,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_10939(t16,t12,t10);} /* g2205 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10779(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10779,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10783,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:713: chicken.base#gensym */ t4=*((C_word*)lf[99]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10781 in g2205 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_10783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_10783,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10786,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:714: db-put! */ t4=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[213]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k10784 in k10781 in g2205 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in ... */ static void C_ccall f_10786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10786,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10790 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){ C_save_and_reclaim((void *)f_10792,2,av);} a=C_alloc(25); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10795,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[8]; t9=C_i_check_list_2(t2,lf[127]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10889,a[2]=t3,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10891,a[2]=t6,a[3]=t12,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_10891(t14,t10,t8,t2);} /* k10793 in k10790 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_10795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10795,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* support.scm:720: chicken.base#gensym */ t4=*((C_word*)lf[99]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[214]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* g2272 in k10866 in k10858 in k10793 in k10790 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in ... */ static void C_fcall f_10812(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_10812,3,t0,t1,t2);} /* support.scm:723: g2289 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10608(t3,t1,t2,((C_word*)t0)[3]);} /* k10820 in k10866 in k10858 in k10793 in k10790 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in ... */ static void C_ccall f_10822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_10822,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],lf[120],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2266 in k10866 in k10858 in k10793 in k10790 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in ... */ static void C_fcall f_10824(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10824,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10849,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:723: g2272 */ t5=((C_word*)t0)[4]; f_10812(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10847 in map-loop2266 in k10866 in k10858 in k10793 in k10790 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in ... */ static void C_ccall f_10849(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10849,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10824(t6,((C_word*)t0)[5],t5);} /* k10858 in k10793 in k10790 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in ... */ static void C_ccall f_10860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_10860,2,av);} a=C_alloc(14); t2=t1; t3=C_i_cadr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10868,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10876,a[2]=t5,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[9])){ t7=((C_word*)t0)[9]; /* support.scm:682: chicken.base#alist-ref */ t8=*((C_word*)lf[210]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=((C_word*)t0)[4]; av2[4]=*((C_word*)lf[211]+1); av2[5]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} else{ /* support.scm:721: build-lambda-list */ t7=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k10866 in k10858 in k10793 in k10790 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in ... */ static void C_ccall f_10868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ C_save_and_reclaim((void *)f_10868,2,av);} a=C_alloc(33); t2=C_i_cadddr(((C_word*)t0)[2]); t3=C_a_i_list4(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],t1,t2); t4=t3; t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10812,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t10=C_i_check_list_2(((C_word*)t0)[7],lf[127]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10822,a[2]=((C_word*)t0)[8],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10824,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_10824(t15,t11,((C_word*)t0)[7]);} /* k10874 in k10858 in k10793 in k10790 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in ... */ static void C_ccall f_10876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10876,2,av);} /* support.scm:721: build-lambda-list */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10887 in k10790 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_10889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10889,2,av);} /* support.scm:717: scheme#append */ t2=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2229 in k10790 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_fcall f_10891(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_10891,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_cons(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop2199 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10939(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10939,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10964,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:712: g2205 */ t5=((C_word*)t0)[4]; f_10779(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10962 in map-loop2199 in a10773 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_10964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10964,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10939(t6,((C_word*)t0)[5],t5);} /* k10981 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_10983,2,av);} a=C_alloc(22); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10988,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t8=C_i_check_list_2(((C_word*)t0)[4],lf[127]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10998,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11000,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_11000(t13,t9,((C_word*)t0)[4]);} /* g2311 in k10981 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_10988(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_10988,3,t0,t1,t2);} /* support.scm:725: g2328 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10608(t3,t1,t2,((C_word*)t0)[3]);} /* k10996 in k10981 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_10998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_10998,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2305 in k10981 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11000(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11000,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11025,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:725: g2311 */ t5=((C_word*)t0)[4]; f_10988(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11023 in map-loop2305 in k10981 in walk in k10598 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_11025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11025,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11000(t6,((C_word*)t0)[5],t5);} /* map-loop2118 in k10435 in a10432 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11047(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11047,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_cons(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* chicken.compiler.support#tree-copy in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11095,3,av);} a=C_alloc(5); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11101,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_11101(t6,t1,t2);} /* rec in chicken.compiler.support#tree-copy in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11101(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11101,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11115,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=t2; t5=C_u_i_car(t4); /* support.scm:732: rec */ t7=t3; t8=t5; t1=t7; t2=t8; goto loop;} else{ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11113 in rec in chicken.compiler.support#tree-copy in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11115,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11119,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* support.scm:732: rec */ t6=((C_word*)((C_word*)t0)[4])[1]; f_11101(t6,t3,t5);} /* k11117 in k11113 in rec in chicken.compiler.support#tree-copy in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11119,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.support#copy-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_11125,3,av);} a=C_alloc(5); t3=t2; t4=C_slot(t3,C_fix(1)); t5=t2; t6=C_slot(t5,C_fix(2)); t7=t2; t8=C_slot(t7,C_fix(3)); t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_a_i_record4(&a,4,lf[143],t4,t6,t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* chicken.compiler.support#copy-node! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11163,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11167,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=C_slot(t5,C_fix(1)); /* support.scm:741: node-class-set! */ t7=*((C_word*)lf[147]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t4; av2[2]=t3; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k11165 in chicken.compiler.support#copy-node! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11167,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11170,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[4]; t4=C_slot(t3,C_fix(2)); /* support.scm:742: node-parameters-set! */ t5=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k11168 in k11165 in chicken.compiler.support#copy-node! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11170,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=C_slot(t3,C_fix(3)); /* support.scm:743: node-subexpressions-set! */ t5=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k11171 in k11168 in k11165 in chicken.compiler.support#copy-node! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11173,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* walk in k11539 in k11536 in k11584 in k11502 in k11617 in k11481 in a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_11208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_11208,3,av);} a=C_alloc(18); t3=t2; t4=C_slot(t3,C_fix(1)); t5=t4; t6=t2; t7=C_slot(t6,C_fix(2)); t8=t7; t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=((C_word*)((C_word*)t0)[2])[1]; t14=t2; t15=C_slot(t14,C_fix(3)); t16=C_i_check_list_2(t15,lf[127]); t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11252,a[2]=t8,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11254,a[2]=t11,a[3]=t19,a[4]=t13,a[5]=t12,tmp=(C_word)a,a+=6,tmp)); t21=((C_word*)t19)[1]; f_11254(t21,t17,t15);} /* k11250 in walk in k11539 in k11536 in k11584 in k11502 in k11617 in k11481 in a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in ... */ static void C_ccall f_11252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_11252,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2390 in walk in k11539 in k11536 in k11584 in k11502 in k11617 in k11481 in a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in ... */ static void C_fcall f_11254(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11254,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11279,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:750: g2396 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11277 in map-loop2390 in walk in k11539 in k11536 in k11584 in k11502 in k11617 in k11481 in a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in ... */ static void C_ccall f_11279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11279,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11254(t6,((C_word*)t0)[5],t5);} /* walk in k11635 in loop in a11626 in chicken.compiler.support#load-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_11294,3,av);} a=C_alloc(18); t3=C_i_car(t2); t4=t3; t5=C_i_cadr(t2); t6=t5; t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=((C_word*)((C_word*)t0)[2])[1]; t12=t2; t13=C_u_i_cdr(t12); t14=C_u_i_cdr(t13); t15=C_i_check_list_2(t14,lf[127]); t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11323,a[2]=t1,a[3]=t4,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11325,a[2]=t9,a[3]=t18,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t20=((C_word*)t18)[1]; f_11325(t20,t16,t14);} /* k11321 in walk in k11635 in loop in a11626 in chicken.compiler.support#load-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_11323,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2429 in walk in k11635 in loop in a11626 in chicken.compiler.support#load-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11325(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11325,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11350,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:754: g2435 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11348 in map-loop2429 in walk in k11635 in loop in a11626 in chicken.compiler.support#load-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11350,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11325(t6,((C_word*)t0)[5],t5);} /* chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_11359,7,av);} a=C_alloc(18); t7=C_SCHEME_END_OF_LIST; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_END_OF_LIST; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11363,a[2]=t1,a[3]=t8,a[4]=t10,a[5]=t3,a[6]=t2,tmp=(C_word)a,a+=7,tmp); t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11476,a[2]=t8,a[3]=t10,a[4]=t6,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* support.scm:761: chicken.internal#hash-table-for-each */ t13=*((C_word*)lf[141]+1);{ C_word *av2=av; av2[0]=t13; av2[1]=t11; av2[2]=t12; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} /* k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_11363,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11366,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[4])[1]))){ /* support.scm:781: chicken.file#delete-file* */ t3=*((C_word*)lf[227]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11426,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* support.scm:782: scheme#with-output-to-file */ t4=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k11364 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11366,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11372,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[3])[1]))){ /* support.scm:793: debugging */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[225]; av2[3]=lf[226]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_11372(2,av2);}}} /* k11370 in k11364 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11372,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11380,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)((C_word*)t0)[3])[1]; t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7276,tmp=(C_word)a,a+=2,tmp); /* support.scm:288: chicken.sort#sort */ t5=*((C_word*)lf[224]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11378 in k11370 in k11364 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11380,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[44]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11388,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_11388(t6,((C_word*)t0)[2],t1);} /* for-each-loop2531 in k11378 in k11370 in k11364 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11388(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_11388,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11398,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:794: g2547 */ t5=*((C_word*)lf[220]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[221]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11396 in for-each-loop2531 in k11378 in k11370 in k11364 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11398,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11388(t3,((C_word*)t0)[4],t2);} /* a11425 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_11426,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11430,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11474,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:784: chicken.platform#chicken-version */ t4=*((C_word*)lf[233]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11428 in a11425 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11430,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11441,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:790: scheme#reverse */ t3=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11433 in for-each-loop2509 in k11439 in k11428 in a11425 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11435,2,av);} /* support.scm:789: scheme#newline */ t2=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11439 in k11428 in a11425 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_11441,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11444,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11449,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_11449(t6,t2,t1);} /* k11442 in k11439 in k11428 in a11425 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11444,2,av);} /* support.scm:791: chicken.base#print */ t2=*((C_word*)lf[220]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[228]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* for-each-loop2509 in k11439 in k11428 in a11425 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11449(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_11449,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11459,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11435,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* support.scm:788: chicken.pretty-print#pp */ t7=*((C_word*)lf[229]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11457 in for-each-loop2509 in k11439 in k11428 in a11425 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11459,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11449(t3,((C_word*)t0)[4],t2);} /* k11472 in a11425 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11474,2,av);} /* support.scm:784: chicken.base#print */ t2=*((C_word*)lf[220]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[230]; av2[3]=t1; av2[4]=lf[231]; av2[5]=((C_word*)t0)[3]; av2[6]=lf[232]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11476,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11483,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); /* support.scm:763: variable-visible? */ t5=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k11481 in a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_11483,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=C_i_assq(lf[235],((C_word*)t0)[2]); t3=t2; if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11619,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t5=((C_word*)t0)[3]; /* tweaks.scm:60: ##sys#get */ t6=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=lf[243]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11502 in k11617 in k11481 in a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11504(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_11504,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ if(C_truep(C_i_assq(lf[237],((C_word*)t0)[2]))){ t2=C_i_cdr(((C_word*)t0)[3]); t3=C_slot(t2,C_fix(2)); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11586,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],a[7]=t4,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* support.scm:771: db-get */ t6=*((C_word*)lf[129]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[241]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11536 in k11584 in k11502 in k11617 in k11481 in a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11538,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11541,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_eqp(t1,lf[238]); if(C_truep(t3)){ t4=t2; f_11541(t4,C_SCHEME_TRUE);} else{ t4=C_eqp(t1,lf[239]); if(C_truep(t4)){ t5=t2; f_11541(t5,C_SCHEME_FALSE);} else{ t5=C_i_cadddr(((C_word*)t0)[7]); t6=t2; f_11541(t6,C_i_lessp(t5,((C_word*)t0)[8]));}}} /* k11539 in k11536 in k11584 in k11502 in k11617 in k11481 in a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11541(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_11541,2,t0,t1);} a=C_alloc(13); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11560,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t5=C_u_i_cdr(((C_word*)t0)[6]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11208,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1];{ C_word av2[3]; av2[0]=t9; av2[1]=t4; av2[2]=t5; f_11208(3,av2);}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11558 in k11539 in k11536 in k11584 in k11502 in k11617 in k11481 in a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_11560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11560,2,av);} a=C_alloc(9); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11584 in k11502 in k11617 in k11481 in a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11586,2,av);} a=C_alloc(9); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11538,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=((C_word*)t0)[2]; /* tweaks.scm:60: ##sys#get */ t4=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=lf[240]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11617 in k11481 in a11475 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_11619,2,av);} a=C_alloc(10); t2=C_i_structurep(t1,lf[143]); if(C_truep(C_i_not(t2))){ t3=C_i_assq(lf[236],((C_word*)t0)[2]); t4=C_i_not(t3); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11504,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(t4)){ t6=t5; f_11504(t6,t4);} else{ t6=C_i_cdr(t3); t7=C_eqp(lf[242],t6); t8=t5; f_11504(t8,C_i_not(t7));}} else{ t3=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.support#load-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){ C_save_and_reclaim((void *)f_11621,3,av);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11627,tmp=(C_word)a,a+=2,tmp); /* support.scm:798: scheme#with-input-from-file */ t4=*((C_word*)lf[247]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a11626 in chicken.compiler.support#load-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11627,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11633,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_11633(t5,t1);} /* loop in a11626 in chicken.compiler.support#load-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11633(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_11633,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11637,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:801: scheme#read */ t3=*((C_word*)lf[85]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11635 in loop in a11626 in chicken.compiler.support#load-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_11637,2,av);} a=C_alloc(13); if(C_truep(C_eofp(t1))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11660,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=C_i_car(t1); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11671,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_cadr(t1); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11294,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t10=((C_word*)t8)[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t5; av2[2]=t6; f_11294(3,av2);}}} /* k11658 in k11635 in loop in a11626 in chicken.compiler.support#load-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11660,2,av);} /* support.scm:807: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11633(t2,((C_word*)t0)[3]);} /* k11669 in k11635 in loop in a11626 in chicken.compiler.support#load-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_11671,2,av);} a=C_alloc(3); t2=C_a_i_list(&a,1,t1); if(C_truep(C_i_nullp(t2))){ /* tweaks.scm:57: ##sys#put! */ t3=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[243]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_i_car(t2); /* tweaks.scm:57: ##sys#put! */ t4=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[243]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* chicken.compiler.support#match-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_11677,5,av);} a=C_alloc(27); t5=C_SCHEME_END_OF_LIST; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11680,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t14=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11714,a[2]=t8,a[3]=t10,tmp=(C_word)a,a+=4,tmp)); t15=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11761,a[2]=t8,a[3]=t12,a[4]=t10,tmp=(C_word)a,a+=5,tmp)); t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11884,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* support.scm:841: matchn */ t17=((C_word*)t12)[1]; f_11761(t17,t16,t2,t3);} /* resolve in chicken.compiler.support#match-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11680(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11680,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11688,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* support.scm:816: g2592 */ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=( /* support.scm:816: g2592 */ f_11688(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(C_i_memq(t2,((C_word*)t0)[3]))){ t5=t2; t6=t3; t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_a_i_cons(&a,2,t5,t6); t9=C_a_i_cons(&a,2,t8,t7); t10=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_eqp(t2,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* g2592 in resolve in chicken.compiler.support#match-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static C_word C_fcall f_11688(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_i_cdr(t1); return(C_i_equalp(((C_word*)t0)[2],t2));} /* match1 in chicken.compiler.support#match-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11714(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11714,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t3); if(C_truep(C_i_not(t4))){ /* support.scm:823: resolve */ t5=((C_word*)((C_word*)t0)[2])[1]; f_11680(t5,t1,t3,t2);} else{ t5=C_i_pairp(t2); if(C_truep(C_i_not(t5))){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11736,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_i_car(t2); t8=C_i_car(t3); /* support.scm:825: match1 */ t10=t6; t11=t7; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;}}} /* k11734 in match1 in chicken.compiler.support#match-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11736,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* support.scm:825: match1 */ t6=((C_word*)((C_word*)t0)[4])[1]; f_11714(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* matchn in chicken.compiler.support#match-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11761(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_11761,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_i_pairp(t3); if(C_truep(C_i_not(t4))){ /* support.scm:830: resolve */ t5=((C_word*)((C_word*)t0)[2])[1]; f_11680(t5,t1,t3,t2);} else{ t5=t2; t6=C_slot(t5,C_fix(1)); t7=t3; t8=C_i_car(t7); t9=C_eqp(t6,t8); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11783,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t11=t2; t12=C_slot(t11,C_fix(2)); t13=t3; t14=C_i_cadr(t13); /* support.scm:832: match1 */ t15=((C_word*)((C_word*)t0)[4])[1]; f_11714(t15,t10,t12,t14);} else{ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}} /* k11781 in matchn in chicken.compiler.support#match-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_11783,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(3)); t4=C_i_cddr(((C_word*)t0)[3]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11801,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_11801(t8,((C_word*)t0)[6],t3,t4);} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* loop in k11781 in matchn in chicken.compiler.support#match-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11801(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11801,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_nullp(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_pairp(t3); if(C_truep(C_i_not(t4))){ /* support.scm:836: resolve */ t5=((C_word*)((C_word*)t0)[2])[1]; f_11680(t5,t1,t3,t2);} else{ if(C_truep(C_i_nullp(t2))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11832,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t6=C_i_car(t2); t7=C_i_car(t3); /* support.scm:838: matchn */ t8=((C_word*)((C_word*)t0)[4])[1]; f_11761(t8,t5,t6,t7);}}}} /* k11830 in loop in k11781 in matchn in chicken.compiler.support#match-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11832,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* support.scm:839: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_11801(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11882 in chicken.compiler.support#match-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_11884,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11890,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=C_slot(t3,C_fix(1)); t5=((C_word*)t0)[4]; t6=C_slot(t5,C_fix(2)); /* support.scm:844: debugging */ t7=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t7; av2[1]=t2; av2[2]=lf[249]; av2[3]=lf[250]; av2[4]=t4; av2[5]=t6; av2[6]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k11888 in k11882 in chicken.compiler.support#match-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11890,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#expression-has-side-effects? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11910,4,av);} a=C_alloc(5); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11916,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=t2; f_11916(3,av2);}} /* walk in chicken.compiler.support#expression-has-side-effects? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11916,3,av);} a=C_alloc(7); t3=t2; t4=C_slot(t3,C_fix(3)); t5=t4; t6=t2; t7=C_slot(t6,C_fix(1)); t8=t7; t9=C_eqp(t8,lf[156]); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11942,a[2]=t1,a[3]=t8,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=t5,tmp=(C_word)a,a+=7,tmp); if(C_truep(t9)){ t11=t10; f_11942(t11,t9);} else{ t11=C_eqp(t8,lf[87]); if(C_truep(t11)){ t12=t10; f_11942(t12,t11);} else{ t12=C_eqp(t8,lf[161]); t13=t10; f_11942(t13,(C_truep(t12)?t12:C_eqp(t8,lf[176])));}}} /* k11940 in walk in chicken.compiler.support#expression-has-side-effects? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_11942(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_11942,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[120]); if(C_truep(t2)){ t3=((C_word*)t0)[4]; t4=C_slot(t3,C_fix(2)); t5=C_i_car(t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11956,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=((C_word*)t0)[2]; t9=t7; t10=*((C_word*)lf[253]+1); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6271,a[2]=t12,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t14=((C_word*)t12)[1]; f_6271(t14,t8,*((C_word*)lf[253]+1));} else{ t3=C_eqp(((C_word*)t0)[3],lf[160]); if(C_truep(t3)){ if(C_truep(t3)){ /* support.scm:860: any */ f_5544(((C_word*)t0)[2],((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[6]);} else{ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=C_eqp(((C_word*)t0)[3],lf[98]); if(C_truep(t4)){ /* support.scm:860: any */ f_5544(((C_word*)t0)[2],((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[6]);} else{ t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}}} /* a11955 in k11940 in walk in chicken.compiler.support#expression-has-side-effects? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11956,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11964,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:858: foreign-callback-stub-id */ t4=*((C_word*)lf[252]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11962 in a11955 in k11940 in walk in chicken.compiler.support#expression-has-side-effects? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_11964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11964,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.support#simple-lambda-node? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_12019,3,av);} a=C_alloc(6); t3=t2; t4=C_slot(t3,C_fix(2)); t5=C_i_caddr(t4); t6=C_i_pairp(t5); t7=(C_truep(t6)?C_i_car(t5):C_SCHEME_FALSE); t8=t7; if(C_truep(t8)){ if(C_truep(C_i_cadr(t4))){ t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12048,a[2]=t8,a[3]=t10,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1];{ C_word *av2=av; av2[0]=t12; av2[1]=t1; av2[2]=t2; f_12048(3,av2);}} else{ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* rec in chicken.compiler.support#simple-lambda-node? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12048,3,av);} t3=t2; t4=C_slot(t3,C_fix(1)); t5=C_eqp(t4,lf[181]); if(C_truep(t5)){ t6=t2; t7=C_slot(t6,C_fix(3)); t8=C_i_car(t7); t9=C_slot(t8,C_fix(1)); t10=C_eqp(lf[156],t9); if(C_truep(t10)){ t11=C_slot(t8,C_fix(2)); t12=C_i_car(t11); t13=C_eqp(((C_word*)t0)[2],t12); if(C_truep(t13)){ t14=C_i_cdr(t7); /* support.scm:876: every */ f_5510(t1,((C_word*)((C_word*)t0)[3])[1],t14);} else{ t14=t1;{ C_word *av2=av; av2[0]=t14; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t11=t1;{ C_word *av2=av; av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t6=C_eqp(t4,lf[190]); if(C_truep(t6)){ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=t2; t8=C_slot(t7,C_fix(3)); /* support.scm:878: every */ f_5510(t1,((C_word*)((C_word*)t0)[3])[1],t8);}}} /* chicken.compiler.support#dump-undefined-globals in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_12145,3,av);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12151,tmp=(C_word)a,a+=2,tmp); /* support.scm:884: chicken.internal#hash-table-for-each */ t4=*((C_word*)lf[141]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a12150 in chicken.compiler.support#dump-undefined-globals in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_12151,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12158,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12184,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* support.scm:886: chicken.keyword#keyword? */ t6=*((C_word*)lf[259]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k12156 in a12150 in chicken.compiler.support#dump-undefined-globals in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_12158(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_12158,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12161,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:889: scheme#write */ t3=*((C_word*)lf[256]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12159 in k12156 in a12150 in chicken.compiler.support#dump-undefined-globals in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12161,2,av);} /* support.scm:890: scheme#newline */ t2=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12182 in a12150 in chicken.compiler.support#dump-undefined-globals in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12184,2,av);} if(C_truep(C_i_not(t1))){ if(C_truep(C_i_assq(lf[257],((C_word*)t0)[2]))){ t2=C_i_assq(lf[258],((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_12158(t3,C_i_not(t2));} else{ t2=((C_word*)t0)[3]; f_12158(t2,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[3]; f_12158(t2,C_SCHEME_FALSE);}} /* chicken.compiler.support#dump-defined-globals in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_12186,3,av);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12192,tmp=(C_word)a,a+=2,tmp); /* support.scm:894: chicken.internal#hash-table-for-each */ t4=*((C_word*)lf[141]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a12191 in chicken.compiler.support#dump-defined-globals in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_12192,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12199,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12221,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* support.scm:896: chicken.keyword#keyword? */ t6=*((C_word*)lf[259]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k12197 in a12191 in chicken.compiler.support#dump-defined-globals in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_12199(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_12199,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:899: scheme#write */ t3=*((C_word*)lf[256]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12200 in k12197 in a12191 in chicken.compiler.support#dump-defined-globals in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12202,2,av);} /* support.scm:900: scheme#newline */ t2=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12219 in a12191 in chicken.compiler.support#dump-defined-globals in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12221,2,av);} if(C_truep(C_i_not(t1))){ t2=C_i_assq(lf[257],((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_12199(t3,(C_truep(t2)?C_i_assq(lf[258],((C_word*)t0)[2]):C_SCHEME_FALSE));} else{ t2=((C_word*)t0)[3]; f_12199(t2,C_SCHEME_FALSE);}} /* chicken.compiler.support#dump-global-refs in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_12223,3,av);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12229,tmp=(C_word)a,a+=2,tmp); /* support.scm:904: chicken.internal#hash-table-for-each */ t4=*((C_word*)lf[141]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a12228 in chicken.compiler.support#dump-global-refs in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12229,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12270,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:906: chicken.keyword#keyword? */ t5=*((C_word*)lf[259]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12240 in k12268 in a12228 in chicken.compiler.support#dump-global-refs in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12242,2,av);} /* support.scm:909: scheme#newline */ t2=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12268 in a12228 in chicken.compiler.support#dump-global-refs in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12270,2,av);} a=C_alloc(9); t2=C_i_not(t1); t3=(C_truep(t2)?C_i_assq(lf[257],((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_i_assq(lf[262],((C_word*)t0)[2]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12242,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); if(C_truep(t4)){ t6=C_i_cdr(t4); t7=C_i_length(t6); t8=C_a_i_list2(&a,2,((C_word*)t0)[4],t7); /* support.scm:908: scheme#write */ t9=*((C_word*)lf[256]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t5; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t6=C_a_i_list2(&a,2,((C_word*)t0)[4],C_fix(0)); /* support.scm:908: scheme#write */ t7=*((C_word*)lf[256]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#toplevel-definition-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12272,5,av);} a=C_alloc(4); t5=t2; if(C_truep(C_u_i_namespaced_symbolp(t5))){ t6=t1; t7=t2; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17049,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* support.scm:1638: variable-hidden? */ t9=*((C_word*)lf[266]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ if(C_truep(C_i_not(t4))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12293,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:920: debugging */ t7=*((C_word*)lf[22]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=lf[191]; av2[3]=lf[268]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* k12291 in ##sys#toplevel-definition-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12293,2,av);} /* support.scm:921: hide-variable */ t2=*((C_word*)lf[267]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.compiler.support#make-foreign-callback-stub in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_12300,7,av);} a=C_alloc(7); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_record6(&a,6,lf[270],t2,t3,t4,t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* chicken.compiler.support#foreign-callback-stub? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12306,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_structurep(t2,lf[270]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#foreign-callback-stub-id in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12312,3,av);} t3=C_i_check_structure_2(t2,lf[270],lf[272]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#foreign-callback-stub-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12321,3,av);} t3=C_i_check_structure_2(t2,lf[270],lf[274]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#foreign-callback-stub-qualifiers in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12330,3,av);} t3=C_i_check_structure_2(t2,lf[270],lf[276]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#foreign-callback-stub-return-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12339,3,av);} t3=C_i_check_structure_2(t2,lf[270],lf[278]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(4)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#foreign-callback-stub-argument-types in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12348,3,av);} t3=C_i_check_structure_2(t2,lf[270],lf[280]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(5)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#register-foreign-callback-stub! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12357,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12383,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t4; av2[2]=*((C_word*)lf[269]+1); av2[3]=t2; av2[4]=t3; C_apply(5,av2);}} /* k12381 in chicken.compiler.support#register-foreign-callback-stub! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_12383,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,*((C_word*)lf[253]+1)); t3=C_mutate((C_word*)lf[253]+1 /* (set! chicken.compiler.support#foreign-callback-stubs ...) */,t2); t4=((C_word*)t0)[2]; t5=((C_word*)t0)[3]; t6=C_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t6))){ /* tweaks.scm:57: ##sys#put! */ t7=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=t5; av2[3]=lf[282]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=C_i_car(t6); /* tweaks.scm:57: ##sys#put! */ t8=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t4; av2[2]=t5; av2[3]=lf[282]; av2[4]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* chicken.compiler.support#clear-foreign-type-table! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_12386,2,av);} a=C_alloc(3); if(C_truep(lf[283])){ /* support.scm:949: scheme#vector-fill! */ t2=*((C_word*)lf[285]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[283]; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12397,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:950: scheme#make-vector */ t3=*((C_word*)lf[286]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(301); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k12395 in chicken.compiler.support#clear-foreign-type-table! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12397,2,av);} t2=C_mutate(&lf[283] /* (set! chicken.compiler.support#foreign-type-table ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#register-foreign-type! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_12399,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=C_i_nullp(t4); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); t11=C_i_nullp(t8); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t13=(C_truep(t10)?t6:C_SCHEME_FALSE); t14=(C_truep(t6)?C_a_i_vector3(&a,3,t3,t13,t10):C_a_i_vector3(&a,3,t3,t13,C_SCHEME_FALSE)); /* support.scm:958: chicken.internal#hash-table-set! */ t15=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=t1; av2[2]=lf[283]; av2[3]=t2; av2[4]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} /* chicken.compiler.support#lookup-foreign-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12453,3,av);} /* support.scm:966: chicken.internal#hash-table-ref */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[283]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_12459,4,av);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12465,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13529,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* support.scm:983: follow-without-loop */ f_7239(t1,t3,t4,t5);} /* a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_12465,4,av);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12471,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_12471(t7,t1,t2);} /* repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_12471(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_12471,3,t0,t1,t2);} a=C_alloc(9); t3=t2; t4=C_eqp(t3,lf[291]); t5=(C_truep(t4)?t4:C_eqp(t3,lf[292])); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[2]:C_a_i_list(&a,2,lf[293],((C_word*)t0)[2])); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(t3,lf[294]); t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12496,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); if(C_truep(t6)){ t8=t7; f_12496(t8,t6);} else{ t8=C_eqp(t3,lf[381]); if(C_truep(t8)){ t9=t7; f_12496(t9,t8);} else{ t9=C_eqp(t3,lf[382]); if(C_truep(t9)){ t10=t7; f_12496(t10,t9);} else{ t10=C_eqp(t3,lf[383]); if(C_truep(t10)){ t11=t7; f_12496(t11,t10);} else{ t11=C_eqp(t3,lf[384]); t12=t7; f_12496(t12,(C_truep(t11)?t11:C_eqp(t3,lf[385])));}}}}}} /* k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_12496(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_12496,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ if(C_truep(*((C_word*)lf[10]+1))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[295],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[4],lf[296]); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12511,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=t3; f_12511(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[379]); t5=t3; f_12511(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[380])));}}} /* k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_12511(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_12511,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[3]:C_a_i_list(&a,2,lf[297],((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[298]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[299])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12529,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:994: chicken.base#gensym */ t5=*((C_word*)lf[99]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[4],lf[304]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[305])); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[3]:C_a_i_list(&a,2,lf[300],((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(((C_word*)t0)[4],lf[306]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12579,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:1006: chicken.base#gensym */ t8=*((C_word*)lf[99]+1);{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_eqp(((C_word*)t0)[4],lf[308]); if(C_truep(t7)){ if(C_truep(*((C_word*)lf[10]+1))){ t8=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t8; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_a_i_list(&a,2,lf[301],lf[306]); t9=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t9; av2[1]=C_a_i_list(&a,3,lf[307],t8,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t8=C_eqp(((C_word*)t0)[4],lf[309]); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12634,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(t8)){ t10=t9; f_12634(t10,t8);} else{ t10=C_eqp(((C_word*)t0)[4],lf[370]); if(C_truep(t10)){ t11=t9; f_12634(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[4],lf[371]); if(C_truep(t11)){ t12=t9; f_12634(t12,t11);} else{ t12=C_eqp(((C_word*)t0)[4],lf[372]); if(C_truep(t12)){ t13=t9; f_12634(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[4],lf[373]); if(C_truep(t13)){ t14=t9; f_12634(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[4],lf[374]); if(C_truep(t14)){ t15=t9; f_12634(t15,t14);} else{ t15=C_eqp(((C_word*)t0)[4],lf[375]); if(C_truep(t15)){ t16=t9; f_12634(t16,t15);} else{ t16=C_eqp(((C_word*)t0)[4],lf[376]); if(C_truep(t16)){ t17=t9; f_12634(t17,t16);} else{ t17=C_eqp(((C_word*)t0)[4],lf[377]); t18=t9; f_12634(t18,(C_truep(t17)?t17:C_eqp(((C_word*)t0)[4],lf[378])));}}}}}}}}}}}}}} /* k12527 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){ C_save_and_reclaim((void *)f_12529,2,av);} a=C_alloc(42); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=(C_truep(*((C_word*)lf[10]+1))?t1:C_a_i_list(&a,2,lf[300],t1)); t5=C_a_i_list(&a,2,lf[301],C_SCHEME_FALSE); t6=C_a_i_list(&a,4,lf[302],t1,t4,t5); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[303],t3,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k12577 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_12579,2,av);} a=C_alloc(29); t2=t1; t3=C_a_i_list(&a,2,t2,((C_word*)t0)[2]); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12594,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t5,tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[10]+1))){ t7=t6; f_12594(t7,t2);} else{ t7=C_a_i_list(&a,2,lf[301],lf[306]); t8=t6; f_12594(t8,C_a_i_list(&a,3,lf[307],t7,t2));}} /* k12592 in k12577 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_12594(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,0,1)))){ C_save_and_reclaim_args((void *)trf_12594,2,t0,t1);} a=C_alloc(27); t2=C_a_i_list(&a,2,lf[301],C_SCHEME_FALSE); t3=C_a_i_list(&a,4,lf[302],((C_word*)t0)[2],t1,t2); t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[303],((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_12634(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_12634,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12637,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:1019: chicken.base#gensym */ t3=*((C_word*)lf[99]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[5],lf[310]); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12676,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=t3; f_12676(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[5],lf[361]); if(C_truep(t4)){ t5=t3; f_12676(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[5],lf[362]); if(C_truep(t5)){ t6=t3; f_12676(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[5],lf[363]); if(C_truep(t6)){ t7=t3; f_12676(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[5],lf[364]); if(C_truep(t7)){ t8=t3; f_12676(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[5],lf[365]); if(C_truep(t8)){ t9=t3; f_12676(t9,t8);} else{ t9=C_eqp(((C_word*)t0)[5],lf[366]); if(C_truep(t9)){ t10=t3; f_12676(t10,t9);} else{ t10=C_eqp(((C_word*)t0)[5],lf[367]); if(C_truep(t10)){ t11=t3; f_12676(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[5],lf[368]); t12=t3; f_12676(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t0)[5],lf[369])));}}}}}}}}}} /* k12635 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_12637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_12637,2,av);} a=C_alloc(29); t2=t1; t3=C_a_i_list(&a,2,t2,((C_word*)t0)[2]); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12652,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t5,tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[10]+1))){ t7=t6; f_12652(t7,t2);} else{ t7=C_a_i_list(&a,2,lf[301],((C_word*)t0)[4]); t8=t6; f_12652(t8,C_a_i_list(&a,3,lf[307],t7,t2));}} /* k12650 in k12635 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_12652(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,0,1)))){ C_save_and_reclaim_args((void *)trf_12652,2,t0,t1);} a=C_alloc(27); t2=C_a_i_list(&a,2,lf[301],C_SCHEME_FALSE); t3=C_a_i_list(&a,4,lf[302],((C_word*)t0)[2],t1,t2); t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[303],((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_12676(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_12676,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ if(C_truep(*((C_word*)lf[10]+1))){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=C_u_i_assq(t2,lf[311]); t4=C_slot(t3,C_fix(1)); t5=C_a_i_list(&a,2,lf[301],t4); t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[307],t5,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[5],lf[312]); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12702,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=t3; f_12702(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[5],lf[356]); if(C_truep(t4)){ t5=t3; f_12702(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[5],lf[357]); if(C_truep(t5)){ t6=t3; f_12702(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[5],lf[358]); if(C_truep(t6)){ t7=t3; f_12702(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[5],lf[359]); t8=t3; f_12702(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[5],lf[360])));}}}}}} /* k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_12702(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_12702,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_assq(t2,((C_word*)t0)[3]); t4=C_slot(t3,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12708,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* support.scm:1038: chicken.base#open-output-string */ t7=*((C_word*)lf[319]+1);{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[6],lf[320]); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12745,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=t3; f_12745(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[6],lf[351]); if(C_truep(t4)){ t5=t3; f_12745(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[6],lf[352]); if(C_truep(t5)){ t6=t3; f_12745(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[6],lf[353]); if(C_truep(t6)){ t7=t3; f_12745(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[6],lf[354]); t8=t3; f_12745(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],lf[355])));}}}}}} /* k12706 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_12708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_12708,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[313]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12714,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* support.scm:1038: ##sys#print */ t6=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[318]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12712 in k12706 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in ... */ static void C_ccall f_12714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12714,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12717,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* support.scm:1038: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12715 in k12712 in k12706 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in ... */ static void C_ccall f_12717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12717,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12720,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:1038: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[317]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12718 in k12715 in k12712 in k12706 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in ... */ static void C_ccall f_12720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12720,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12723,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1038: chicken.base#get-output-string */ t3=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k12721 in k12718 in k12715 in k12712 in k12706 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in ... */ static void C_ccall f_12723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_12723,2,av);} a=C_alloc(18); if(C_truep(*((C_word*)lf[10]+1))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_a_i_list(&a,3,lf[314],t1,lf[294]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[315],((C_word*)t0)[2],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_fcall f_12745(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_12745,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_slot(t2,C_fix(1)); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12751,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* support.scm:1046: chicken.base#open-output-string */ t6=*((C_word*)lf[319]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[6],lf[324]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12789,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_12789(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[6],lf[349]); t5=t3; f_12789(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[6],lf[350])));}}} /* k12749 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in ... */ static void C_ccall f_12751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_12751,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[313]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12757,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* support.scm:1046: ##sys#print */ t6=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[323]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12755 in k12749 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in ... */ static void C_ccall f_12757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12757,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12760,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* support.scm:1046: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12758 in k12755 in k12749 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in ... */ static void C_ccall f_12760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12760,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12763,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:1046: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[322]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12761 in k12758 in k12755 in k12749 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in ... */ static void C_ccall f_12763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12763,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12766,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1046: chicken.base#get-output-string */ t3=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k12764 in k12761 in k12758 in k12755 in k12749 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in ... */ static void C_ccall f_12766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_12766,2,av);} a=C_alloc(18); if(C_truep(*((C_word*)lf[10]+1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_a_i_list(&a,3,lf[314],t1,lf[294]); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[321],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in ... */ static void C_fcall f_12789(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_12789,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12792,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1052: chicken.base#gensym */ t3=*((C_word*)lf[99]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[326]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[325],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[4],lf[327]); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12833,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t3)){ t5=t4; f_12833(t5,t3);} else{ t5=C_eqp(((C_word*)t0)[4],lf[346]); if(C_truep(t5)){ t6=t4; f_12833(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[4],lf[347]); t7=t4; f_12833(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[348])));}}}}} /* k12790 in k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in ... */ static void C_ccall f_12792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){ C_save_and_reclaim((void *)f_12792,2,av);} a=C_alloc(42); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=C_a_i_list(&a,2,lf[325],t1); t5=C_a_i_list(&a,2,lf[301],C_SCHEME_FALSE); t6=C_a_i_list(&a,4,lf[302],t1,t4,t5); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[303],t3,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k12831 in k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in ... */ static void C_fcall f_12833(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_12833,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12836,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1060: chicken.base#gensym */ t3=*((C_word*)lf[99]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[330]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12878,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_12878(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[344]); t5=t3; f_12878(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[345])));}}} /* k12834 in k12831 in k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in ... */ static void C_ccall f_12836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_12836,2,av);} a=C_alloc(26); t2=t1; t3=C_a_i_list(&a,2,t2,((C_word*)t0)[2]); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12851,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t5,tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[10]+1))){ t7=t6; f_12851(t7,C_a_i_list(&a,2,lf[328],t2));} else{ t7=C_a_i_list(&a,2,lf[329],t2); t8=t6; f_12851(t8,C_a_i_list(&a,2,lf[328],t7));}} /* k12849 in k12834 in k12831 in k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in ... */ static void C_fcall f_12851(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,0,1)))){ C_save_and_reclaim_args((void *)trf_12851,2,t0,t1);} a=C_alloc(27); t2=C_a_i_list(&a,2,lf[301],C_SCHEME_FALSE); t3=C_a_i_list(&a,4,lf[302],((C_word*)t0)[2],t1,t2); t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[303],((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12876 in k12831 in k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in ... */ static void C_fcall f_12878(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_12878,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ if(C_truep(*((C_word*)lf[10]+1))){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[328],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_a_i_list(&a,2,lf[329],((C_word*)t0)[3]); t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[328],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[4],lf[331]); if(C_truep(t2)){ if(C_truep(*((C_word*)lf[10]+1))){ t3=C_a_i_list(&a,2,lf[182],((C_word*)t0)[3]); t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list(&a,2,lf[328],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_a_i_list(&a,2,lf[182],((C_word*)t0)[3]); t4=C_a_i_list(&a,2,lf[329],t3); t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_list(&a,2,lf[328],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12921,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[6]))){ /* support.scm:1076: lookup-foreign-type */ t4=*((C_word*)lf[288]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_12921(2,av2);}}}}} /* k12919 in k12876 in k12831 in k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in ... */ static void C_ccall f_12921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_12921,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12925,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1076: g3079 */ t3=t2; f_12925(t3,((C_word*)t0)[3],t1);} else{ if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t2=((C_word*)t0)[4]; t3=C_u_i_car(t2); t4=C_eqp(t3,lf[332]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12952,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t4)){ t6=t5; f_12952(t6,t4);} else{ t6=C_eqp(t3,lf[342]); if(C_truep(t6)){ t7=t5; f_12952(t7,t6);} else{ t7=C_eqp(t3,lf[343]); t8=t5; f_12952(t8,(C_truep(t7)?t7:C_eqp(t3,lf[324])));}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* g3079 in k12919 in k12876 in k12831 in k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in ... */ static void C_fcall f_12925(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_12925,3,t0,t1,t2);} t3=C_i_vector_ref(t2,C_fix(0)); /* support.scm:1077: next */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12950 in k12919 in k12876 in k12831 in k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in ... */ static void C_fcall f_12952(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_12952,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12955,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1081: chicken.base#gensym */ t3=*((C_word*)lf[99]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[333]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[334])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12990,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1087: chicken.base#gensym */ t5=*((C_word*)lf[99]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[4],lf[299]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13026,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1093: chicken.base#gensym */ t6=*((C_word*)lf[99]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[4],lf[304]); if(C_truep(t5)){ if(C_truep(*((C_word*)lf[10]+1))){ t6=((C_word*)t0)[2]; t7=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_list(&a,2,lf[300],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=C_eqp(((C_word*)t0)[4],lf[337]); if(C_truep(t6)){ t7=C_a_i_list(&a,2,lf[301],lf[335]); t8=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_list(&a,3,lf[336],((C_word*)t0)[2],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_eqp(((C_word*)t0)[4],lf[338]); if(C_truep(t7)){ t8=C_i_cadr(((C_word*)t0)[5]); /* support.scm:1106: repeat */ t9=((C_word*)((C_word*)t0)[6])[1]; f_12471(t9,((C_word*)t0)[3],t8);} else{ t8=C_eqp(((C_word*)t0)[4],lf[339]); if(C_truep(t8)){ if(C_truep(*((C_word*)lf[10]+1))){ t9=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t9; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_a_i_list(&a,3,lf[314],lf[340],lf[294]); t10=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t10; av2[1]=C_a_i_list(&a,3,lf[315],((C_word*)t0)[2],t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t9=C_eqp(((C_word*)t0)[4],lf[341]); if(C_truep(t9)){ t10=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t10; av2[1]=(C_truep(t9)?C_a_i_list(&a,2,lf[325],((C_word*)t0)[2]):((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(((C_word*)t0)[4],lf[326]); t11=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t11; av2[1]=(C_truep(t10)?C_a_i_list(&a,2,lf[325],((C_word*)t0)[2]):((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}}}}}} /* k12953 in k12950 in k12919 in k12876 in k12831 in k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in ... */ static void C_ccall f_12955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){ C_save_and_reclaim((void *)f_12955,2,av);} a=C_alloc(42); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=C_a_i_list(&a,2,lf[325],t1); t5=C_a_i_list(&a,2,lf[301],C_SCHEME_FALSE); t6=C_a_i_list(&a,4,lf[302],t1,t4,t5); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[303],t3,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k12988 in k12950 in k12919 in k12876 in k12831 in k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in ... */ static void C_ccall f_12990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(51,c,1)))){ C_save_and_reclaim((void *)f_12990,2,av);} a=C_alloc(51); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=C_a_i_list(&a,2,lf[301],lf[335]); t5=C_a_i_list(&a,3,lf[336],((C_word*)t0)[2],t4); t6=C_a_i_list(&a,2,lf[301],C_SCHEME_FALSE); t7=C_a_i_list(&a,4,lf[302],t1,t5,t6); t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_list(&a,3,lf[303],t3,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k13024 in k12950 in k12919 in k12876 in k12831 in k12787 in k12743 in k12700 in k12674 in k12632 in k12509 in k12494 in repeat in a12464 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in ... */ static void C_ccall f_13026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){ C_save_and_reclaim((void *)f_13026,2,av);} a=C_alloc(42); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=(C_truep(*((C_word*)lf[10]+1))?t1:C_a_i_list(&a,2,lf[300],t1)); t5=C_a_i_list(&a,2,lf[301],C_SCHEME_FALSE); t6=C_a_i_list(&a,4,lf[302],t1,t4,t5); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[303],t3,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* a13528 in chicken.compiler.support#foreign-type-check in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13529,2,av);} /* support.scm:1118: quit-compiling */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[386]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.support#foreign-type-convert-result in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_13535,4,av);} a=C_alloc(4); if(C_truep(C_i_symbolp(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13548,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:1125: lookup-foreign-type */ t5=*((C_word*)lf[288]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k13546 in chicken.compiler.support#foreign-type-convert-result in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_13548,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_vector_ref(t1,C_fix(2)); if(C_truep(t2)){ t3=C_a_i_list2(&a,2,t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[2]; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.support#foreign-type-convert-argument in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_13562,4,av);} a=C_alloc(4); if(C_truep(C_i_symbolp(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13575,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:1132: lookup-foreign-type */ t5=*((C_word*)lf[288]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k13573 in chicken.compiler.support#foreign-type-convert-argument in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_13575,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_vector_ref(t1,C_fix(1)); if(C_truep(t2)){ t3=C_a_i_list2(&a,2,t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[2]; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.support#final-foreign-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_13589,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13595,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13622,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:1138: follow-without-loop */ f_7239(t1,t2,t3,t4);} /* a13594 in chicken.compiler.support#final-foreign-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_13595,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13599,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_symbolp(t2))){ /* support.scm:1141: lookup-foreign-type */ t5=*((C_word*)lf[288]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_13599(2,av2);}}} /* k13597 in a13594 in chicken.compiler.support#final-foreign-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_13599,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13603,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1141: g3166 */ t3=t2; f_13603(t3,((C_word*)t0)[3],t1);} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g3166 in k13597 in a13594 in chicken.compiler.support#final-foreign-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_13603(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_13603,3,t0,t1,t2);} t3=C_i_vector_ref(t2,C_fix(0)); /* support.scm:1142: next */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a13621 in chicken.compiler.support#final-foreign-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13622,2,av);} /* support.scm:1144: quit-compiling */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[390]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_13628,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13631,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13640,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14097,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:1152: follow-without-loop */ f_7239(t1,t2,t4,t5);} /* err in chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_13631(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_13631,2,t0,t1);} /* support.scm:1151: quit-compiling */ t2=*((C_word*)lf[37]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[392]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a13639 in chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_13640,4,av);} a=C_alloc(7); t4=t2; t5=C_eqp(t4,lf[291]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13650,a[2]=t1,a[3]=t4,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); if(C_truep(t5)){ t7=t6; f_13650(t7,t5);} else{ t7=C_eqp(t4,lf[294]); if(C_truep(t7)){ t8=t6; f_13650(t8,t7);} else{ t8=C_eqp(t4,lf[358]); if(C_truep(t8)){ t9=t6; f_13650(t9,t8);} else{ t9=C_eqp(t4,lf[393]); if(C_truep(t9)){ t10=t6; f_13650(t10,t9);} else{ t10=C_eqp(t4,lf[394]); if(C_truep(t10)){ t11=t6; f_13650(t11,t10);} else{ t11=C_eqp(t4,lf[320]); if(C_truep(t11)){ t12=t6; f_13650(t12,t11);} else{ t12=C_eqp(t4,lf[395]); if(C_truep(t12)){ t13=t6; f_13650(t13,t12);} else{ t13=C_eqp(t4,lf[292]); if(C_truep(t13)){ t14=t6; f_13650(t14,t13);} else{ t14=C_eqp(t4,lf[381]); if(C_truep(t14)){ t15=t6; f_13650(t15,t14);} else{ t15=C_eqp(t4,lf[382]); if(C_truep(t15)){ t16=t6; f_13650(t16,t15);} else{ t16=C_eqp(t4,lf[383]); if(C_truep(t16)){ t17=t6; f_13650(t17,t16);} else{ t17=C_eqp(t4,lf[384]); t18=t6; f_13650(t18,(C_truep(t17)?t17:C_eqp(t4,lf[385])));}}}}}}}}}}}} /* k13648 in a13639 in chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_13650(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_13650,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[327]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13659,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=t3; f_13659(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[3],lf[330]); if(C_truep(t4)){ t5=t3; f_13659(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[3],lf[324]); if(C_truep(t5)){ t6=t3; f_13659(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[3],lf[326]); if(C_truep(t6)){ t7=t3; f_13659(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[3],lf[331]); if(C_truep(t7)){ t8=t3; f_13659(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[3],lf[346]); if(C_truep(t8)){ t9=t3; f_13659(t9,t8);} else{ t9=C_eqp(((C_word*)t0)[3],lf[344]); if(C_truep(t9)){ t10=t3; f_13659(t10,t9);} else{ t10=C_eqp(((C_word*)t0)[3],lf[347]); if(C_truep(t10)){ t11=t3; f_13659(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[3],lf[348]); if(C_truep(t11)){ t12=t3; f_13659(t12,t11);} else{ t12=C_eqp(((C_word*)t0)[3],lf[345]); if(C_truep(t12)){ t13=t3; f_13659(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[3],lf[349]); t14=t3; f_13659(t14,(C_truep(t13)?t13:C_eqp(((C_word*)t0)[3],lf[350])));}}}}}}}}}}}} /* k13657 in k13648 in a13639 in chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_13659(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_13659,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ /* support.scm:1162: words->bytes */ t2=*((C_word*)lf[70]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[352]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13671,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=t3; f_13671(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[3],lf[359]); if(C_truep(t4)){ t5=t3; f_13671(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[3],lf[357]); if(C_truep(t5)){ t6=t3; f_13671(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[3],lf[351]); if(C_truep(t6)){ t7=t3; f_13671(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[3],lf[312]); t8=t3; f_13671(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[354])));}}}}}} /* k13669 in k13657 in k13648 in a13639 in chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_13671(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_13671,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ /* support.scm:1164: words->bytes */ t2=*((C_word*)lf[70]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(6); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[296]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=t3; f_13683(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[3],lf[379]); t5=t3; f_13683(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[3],lf[380])));}}} /* k13681 in k13669 in k13657 in k13648 in a13639 in chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_13683(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_13683,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ /* support.scm:1166: words->bytes */ t2=*((C_word*)lf[70]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(4); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[356]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13695,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t4=t3; f_13695(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[3],lf[355]); if(C_truep(t4)){ t5=t3; f_13695(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[3],lf[353]); t6=t3; f_13695(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[3],lf[360])));}}}} /* k13693 in k13681 in k13669 in k13657 in k13648 in a13639 in chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_13695(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_13695,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ /* support.scm:1168: words->bytes */ t2=*((C_word*)lf[70]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(7); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13701,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){ /* support.scm:1170: lookup-foreign-type */ t3=*((C_word*)lf[288]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_13701(2,av2);}}}} /* k13699 in k13693 in k13681 in k13669 in k13657 in k13648 in a13639 in chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_13701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_13701,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13705,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1170: g3287 */ t3=t2; f_13705(t3,((C_word*)t0)[3],t1);} else{ if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t2=((C_word*)t0)[4]; t3=C_u_i_car(t2); t4=C_eqp(t3,lf[332]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13732,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(t4)){ t6=t5; f_13732(t6,t4);} else{ t6=C_eqp(t3,lf[341]); if(C_truep(t6)){ t7=t5; f_13732(t7,t6);} else{ t7=C_eqp(t3,lf[342]); if(C_truep(t7)){ t8=t5; f_13732(t8,t7);} else{ t8=C_eqp(t3,lf[324]); if(C_truep(t8)){ t9=t5; f_13732(t9,t8);} else{ t9=C_eqp(t3,lf[326]); if(C_truep(t9)){ t10=t5; f_13732(t10,t9);} else{ t10=C_eqp(t3,lf[343]); if(C_truep(t10)){ t11=t5; f_13732(t11,t10);} else{ t11=C_eqp(t3,lf[333]); if(C_truep(t11)){ t12=t5; f_13732(t12,t11);} else{ t12=C_eqp(t3,lf[334]); t13=t5; f_13732(t13,(C_truep(t12)?t12:C_eqp(t3,lf[337])));}}}}}}}} else{ /* support.scm:1179: err */ t2=((C_word*)t0)[5]; f_13631(t2,((C_word*)t0)[3]);}}} /* g3287 in k13699 in k13693 in k13681 in k13669 in k13657 in k13648 in a13639 in chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_fcall f_13705(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_13705,3,t0,t1,t2);} t3=C_i_vector_ref(t2,C_fix(0)); /* support.scm:1171: next */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13730 in k13699 in k13693 in k13681 in k13669 in k13657 in k13648 in a13639 in chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_fcall f_13732(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_13732,2,t0,t1);} if(C_truep(t1)){ /* support.scm:1175: words->bytes */ t2=*((C_word*)lf[70]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[338]); if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[4]); /* support.scm:1176: next */ t4=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_eqp(((C_word*)t0)[3],lf[339]); if(C_truep(t3)){ /* support.scm:1177: words->bytes */ t4=*((C_word*)lf[70]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(6); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* support.scm:1178: err */ t4=((C_word*)t0)[6]; f_13631(t4,((C_word*)t0)[2]);}}}} /* a14096 in chicken.compiler.support#estimate-foreign-result-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_14097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14097,2,av);} /* support.scm:1180: quit-compiling */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[396]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.support#estimate-foreign-result-location-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_14103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14103,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14115,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14547,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:1185: follow-without-loop */ f_7239(t1,t2,t3,t4);} /* a14114 in chicken.compiler.support#estimate-foreign-result-location-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_14115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_14115,4,av);} a=C_alloc(6); t4=t2; t5=C_eqp(t4,lf[291]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14125,a[2]=t1,a[3]=t4,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(t5)){ t7=t6; f_14125(t7,t5);} else{ t7=C_eqp(t4,lf[294]); if(C_truep(t7)){ t8=t6; f_14125(t8,t7);} else{ t8=C_eqp(t4,lf[358]); if(C_truep(t8)){ t9=t6; f_14125(t9,t8);} else{ t9=C_eqp(t4,lf[393]); if(C_truep(t9)){ t10=t6; f_14125(t10,t9);} else{ t10=C_eqp(t4,lf[320]); if(C_truep(t10)){ t11=t6; f_14125(t11,t10);} else{ t11=C_eqp(t4,lf[292]); if(C_truep(t11)){ t12=t6; f_14125(t12,t11);} else{ t12=C_eqp(t4,lf[381]); if(C_truep(t12)){ t13=t6; f_14125(t13,t12);} else{ t13=C_eqp(t4,lf[359]); if(C_truep(t13)){ t14=t6; f_14125(t14,t13);} else{ t14=C_eqp(t4,lf[351]); if(C_truep(t14)){ t15=t6; f_14125(t15,t14);} else{ t15=C_eqp(t4,lf[382]); if(C_truep(t15)){ t16=t6; f_14125(t16,t15);} else{ t16=C_eqp(t4,lf[383]); if(C_truep(t16)){ t17=t6; f_14125(t17,t16);} else{ t17=C_eqp(t4,lf[324]); if(C_truep(t17)){ t18=t6; f_14125(t18,t17);} else{ t18=C_eqp(t4,lf[326]); if(C_truep(t18)){ t19=t6; f_14125(t19,t18);} else{ t19=C_eqp(t4,lf[352]); if(C_truep(t19)){ t20=t6; f_14125(t20,t19);} else{ t20=C_eqp(t4,lf[357]); if(C_truep(t20)){ t21=t6; f_14125(t21,t20);} else{ t21=C_eqp(t4,lf[296]); if(C_truep(t21)){ t22=t6; f_14125(t22,t21);} else{ t22=C_eqp(t4,lf[327]); if(C_truep(t22)){ t23=t6; f_14125(t23,t22);} else{ t23=C_eqp(t4,lf[331]); if(C_truep(t23)){ t24=t6; f_14125(t24,t23);} else{ t24=C_eqp(t4,lf[299]); if(C_truep(t24)){ t25=t6; f_14125(t25,t24);} else{ t25=C_eqp(t4,lf[304]); if(C_truep(t25)){ t26=t6; f_14125(t26,t25);} else{ t26=C_eqp(t4,lf[384]); if(C_truep(t26)){ t27=t6; f_14125(t27,t26);} else{ t27=C_eqp(t4,lf[385]); if(C_truep(t27)){ t28=t6; f_14125(t28,t27);} else{ t28=C_eqp(t4,lf[312]); if(C_truep(t28)){ t29=t6; f_14125(t29,t28);} else{ t29=C_eqp(t4,lf[354]); if(C_truep(t29)){ t30=t6; f_14125(t30,t29);} else{ t30=C_eqp(t4,lf[347]); if(C_truep(t30)){ t31=t6; f_14125(t31,t30);} else{ t31=C_eqp(t4,lf[348]); if(C_truep(t31)){ t32=t6; f_14125(t32,t31);} else{ t32=C_eqp(t4,lf[345]); if(C_truep(t32)){ t33=t6; f_14125(t33,t32);} else{ t33=C_eqp(t4,lf[330]); if(C_truep(t33)){ t34=t6; f_14125(t34,t33);} else{ t34=C_eqp(t4,lf[346]); if(C_truep(t34)){ t35=t6; f_14125(t35,t34);} else{ t35=C_eqp(t4,lf[344]); if(C_truep(t35)){ t36=t6; f_14125(t36,t35);} else{ t36=C_eqp(t4,lf[349]); t37=t6; f_14125(t37,(C_truep(t36)?t36:C_eqp(t4,lf[350])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k14123 in a14114 in chicken.compiler.support#estimate-foreign-result-location-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_14125(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_14125,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ /* support.scm:1194: words->bytes */ t2=*((C_word*)lf[70]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[379]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14137,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t4=t3; f_14137(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[3],lf[356]); if(C_truep(t4)){ t5=t3; f_14137(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[3],lf[355]); if(C_truep(t5)){ t6=t3; f_14137(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[3],lf[353]); t7=t3; f_14137(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[3],lf[360])));}}}}} /* k14135 in k14123 in a14114 in chicken.compiler.support#estimate-foreign-result-location-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_14137(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_14137,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ /* support.scm:1196: words->bytes */ t2=*((C_word*)lf[70]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(2); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14143,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){ /* support.scm:1198: lookup-foreign-type */ t3=*((C_word*)lf[288]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_14143(2,av2);}}}} /* k14141 in k14135 in k14123 in a14114 in chicken.compiler.support#estimate-foreign-result-location-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_14143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_14143,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14147,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1198: g3445 */ t3=t2; f_14147(t3,((C_word*)t0)[3],t1);} else{ if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t2=((C_word*)t0)[4]; t3=C_u_i_car(t2); t4=C_eqp(t3,lf[332]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14174,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(t4)){ t6=t5; f_14174(t6,t4);} else{ t6=C_eqp(t3,lf[341]); if(C_truep(t6)){ t7=t5; f_14174(t7,t6);} else{ t7=C_eqp(t3,lf[342]); if(C_truep(t7)){ t8=t5; f_14174(t8,t7);} else{ t8=C_eqp(t3,lf[324]); if(C_truep(t8)){ t9=t5; f_14174(t9,t8);} else{ t9=C_eqp(t3,lf[326]); if(C_truep(t9)){ t10=t5; f_14174(t10,t9);} else{ t10=C_eqp(t3,lf[343]); if(C_truep(t10)){ t11=t5; f_14174(t11,t10);} else{ t11=C_eqp(t3,lf[299]); if(C_truep(t11)){ t12=t5; f_14174(t12,t11);} else{ t12=C_eqp(t3,lf[304]); t13=t5; f_14174(t13,(C_truep(t12)?t12:C_eqp(t3,lf[339])));}}}}}}}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4]; /* support.scm:1184: quit-compiling */ t4=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[398]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* g3445 in k14141 in k14135 in k14123 in a14114 in chicken.compiler.support#estimate-foreign-result-location-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_14147(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_14147,3,t0,t1,t2);} t3=C_i_vector_ref(t2,C_fix(0)); /* support.scm:1199: next */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k14172 in k14141 in k14135 in k14123 in a14114 in chicken.compiler.support#estimate-foreign-result-location-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_14174(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_14174,2,t0,t1);} if(C_truep(t1)){ /* support.scm:1204: words->bytes */ t2=*((C_word*)lf[70]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[338]); if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[4]); /* support.scm:1205: next */ t4=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[4]; /* support.scm:1184: quit-compiling */ t5=*((C_word*)lf[37]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[398]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* a14546 in chicken.compiler.support#estimate-foreign-result-location-size in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_14547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14547,2,av);} /* support.scm:1208: quit-compiling */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[399]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.support#finish-foreign-result in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_14553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14553,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14557,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:1214: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[413]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k14555 in chicken.compiler.support#finish-foreign-result in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_14557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_14557,2,av);} a=C_alloc(21); t2=t1; t3=C_eqp(t2,lf[327]); t4=(C_truep(t3)?t3:C_eqp(t2,lf[347])); if(C_truep(t4)){ t5=C_a_i_list(&a,2,lf[301],C_fix(0)); t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[401],((C_word*)t0)[3],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_eqp(t2,lf[330]); if(C_truep(t5)){ t6=C_a_i_list(&a,2,lf[301],C_fix(0)); t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[402],((C_word*)t0)[3],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_eqp(t2,lf[346]); t7=(C_truep(t6)?t6:C_eqp(t2,lf[348])); if(C_truep(t7)){ t8=C_a_i_list(&a,2,lf[301],C_fix(0)); t9=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t9; av2[1]=C_a_i_list(&a,3,lf[403],((C_word*)t0)[3],t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=C_eqp(t2,lf[344]); t9=(C_truep(t8)?t8:C_eqp(t2,lf[345])); if(C_truep(t9)){ t10=C_a_i_list(&a,2,lf[301],C_fix(0)); t11=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t11; av2[1]=C_a_i_list(&a,3,lf[404],((C_word*)t0)[3],t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t10=C_eqp(t2,lf[331]); if(C_truep(t10)){ t11=C_a_i_list(&a,2,lf[301],C_fix(0)); t12=C_a_i_list(&a,3,lf[401],((C_word*)t0)[3],t11); t13=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t13; av2[1]=C_a_i_list(&a,2,lf[405],t12); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t11=C_eqp(t2,lf[349]); if(C_truep(t11)){ t12=C_a_i_list(&a,2,lf[301],C_SCHEME_FALSE); t13=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t13; av2[1]=C_a_i_list(&a,3,lf[406],((C_word*)t0)[3],t12); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t12=C_eqp(t2,lf[350]); if(C_truep(t12)){ t13=C_a_i_list(&a,2,lf[301],C_SCHEME_FALSE); t14=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t14; av2[1]=C_a_i_list(&a,3,lf[407],((C_word*)t0)[3],t13); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ if(C_truep(C_i_listp(t2))){ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14673,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t14=C_i_car(t2); t15=C_eqp(t14,lf[338]); if(C_truep(t15)){ t16=C_i_length(t2); t17=C_eqp(C_fix(2),t16); if(C_truep(t17)){ t18=C_i_cadr(t2); t19=C_u_i_memq(t18,lf[412]); t20=t13; f_14673(t20,t19);} else{ t18=t13; f_14673(t18,C_SCHEME_FALSE);}} else{ t16=t13; f_14673(t16,C_SCHEME_FALSE);}} else{ t13=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t13; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}}}}}}}} /* k14671 in k14555 in chicken.compiler.support#finish-foreign-result in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_14673(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ C_save_and_reclaim_args((void *)trf_14673,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); /* support.scm:1231: finish-foreign-result */ t3=*((C_word*)lf[400]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=C_i_length(((C_word*)t0)[2]); t3=C_eqp(C_fix(3),t2); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[2]); t5=C_eqp(t4,lf[333]); t6=(C_truep(t5)?t5:C_eqp(t4,lf[334])); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14701,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* support.scm:1235: chicken.base#gensym */ t8=*((C_word*)lf[99]+1);{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_eqp(t4,lf[337]); if(C_truep(t7)){ t8=C_i_caddr(((C_word*)t0)[2]); t9=C_a_i_list(&a,2,lf[301],lf[335]); t10=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t10; av2[1]=C_a_i_list(&a,4,lf[410],t8,t9,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t8=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t8; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} else{ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k14699 in k14671 in k14555 in chicken.compiler.support#finish-foreign-result in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_14701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(60,c,1)))){ C_save_and_reclaim((void *)f_14701,2,av);} a=C_alloc(60); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=C_a_i_list(&a,2,lf[408],t1); t5=C_a_i_list(&a,2,lf[409],t4); t6=C_i_caddr(((C_word*)t0)[3]); t7=C_a_i_list(&a,2,lf[301],lf[335]); t8=C_a_i_list(&a,4,lf[410],t6,t7,t1); t9=C_a_i_list(&a,4,lf[411],t1,t5,t8); t10=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t10; av2[1]=C_a_i_list(&a,3,lf[98],t3,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* chicken.compiler.support#foreign-type->scrutiny-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_14821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_14821,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14825,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:1252: final-foreign-type */ t5=*((C_word*)lf[389]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k14823 in chicken.compiler.support#foreign-type->scrutiny-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_14825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_14825,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_eqp(t3,lf[394]); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=lf[415]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(t3,lf[291]); t6=(C_truep(t5)?t5:C_eqp(t3,lf[292])); if(C_truep(t6)){ t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=lf[291]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(t3,lf[294]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14849,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(t7)){ t9=t8; f_14849(t9,t7);} else{ t9=C_eqp(t3,lf[381]); if(C_truep(t9)){ t10=t8; f_14849(t10,t9);} else{ t10=C_eqp(t3,lf[358]); if(C_truep(t10)){ t11=t8; f_14849(t11,t10);} else{ t11=C_eqp(t3,lf[320]); if(C_truep(t11)){ t12=t8; f_14849(t12,t11);} else{ t12=C_eqp(t3,lf[382]); if(C_truep(t12)){ t13=t8; f_14849(t13,t12);} else{ t13=C_eqp(t3,lf[383]); if(C_truep(t13)){ t14=t8; f_14849(t14,t13);} else{ t14=C_eqp(t3,lf[384]); t15=t8; f_14849(t15,(C_truep(t14)?t14:C_eqp(t3,lf[385])));}}}}}}}}} /* k14847 in k14823 in chicken.compiler.support#foreign-type->scrutiny-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_14849(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_14849,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[166]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[296]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],lf[379])); if(C_truep(t3)){ t4=((C_word*)t0)[4]; t5=C_eqp(t4,lf[416]); t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(t5)?lf[380]:lf[296]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[299]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[3],lf[304])); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=lf[172]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(((C_word*)t0)[3],lf[298]); if(C_truep(t6)){ t7=((C_word*)t0)[4]; t8=C_eqp(t7,lf[416]); t9=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t9; av2[1]=(C_truep(t8)?lf[417]:lf[298]); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t7=C_eqp(((C_word*)t0)[3],lf[305]); if(C_truep(t7)){ t8=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t8; av2[1]=lf[298]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(((C_word*)t0)[3],lf[306]); if(C_truep(t8)){ t9=((C_word*)t0)[4]; t10=C_eqp(t9,lf[416]); t11=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t11; av2[1]=(C_truep(t10)?lf[418]:lf[306]); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t9=C_eqp(((C_word*)t0)[3],lf[308]); if(C_truep(t9)){ t10=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t10; av2[1]=lf[306]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(((C_word*)t0)[3],lf[309]); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14924,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t10)){ t12=t11; f_14924(t12,t10);} else{ t12=C_eqp(((C_word*)t0)[3],lf[370]); if(C_truep(t12)){ t13=t11; f_14924(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[3],lf[371]); if(C_truep(t13)){ t14=t11; f_14924(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[3],lf[372]); if(C_truep(t14)){ t15=t11; f_14924(t15,t14);} else{ t15=C_eqp(((C_word*)t0)[3],lf[373]); if(C_truep(t15)){ t16=t11; f_14924(t16,t15);} else{ t16=C_eqp(((C_word*)t0)[3],lf[374]); if(C_truep(t16)){ t17=t11; f_14924(t17,t16);} else{ t17=C_eqp(((C_word*)t0)[3],lf[375]); if(C_truep(t17)){ t18=t11; f_14924(t18,t17);} else{ t18=C_eqp(((C_word*)t0)[3],lf[376]); if(C_truep(t18)){ t19=t11; f_14924(t19,t18);} else{ t19=C_eqp(((C_word*)t0)[3],lf[377]); t20=t11; f_14924(t20,(C_truep(t19)?t19:C_eqp(((C_word*)t0)[3],lf[378])));}}}}}}}}}}}}}}}} /* k14922 in k14847 in k14823 in chicken.compiler.support#foreign-type->scrutiny-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_14924(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_14924,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_eqp(t2,lf[416]); if(C_truep(t3)){ t4=C_a_i_list(&a,2,lf[419],((C_word*)t0)[3]); t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[420],lf[421],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list(&a,2,lf[419],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[5],lf[310]); if(C_truep(t2)){ t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[422]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[5],lf[362]); if(C_truep(t3)){ t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[423]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[5],lf[361]); if(C_truep(t4)){ t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[424]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[5],lf[363]); if(C_truep(t5)){ t6=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t6; av2[1]=lf[425]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(((C_word*)t0)[5],lf[364]); if(C_truep(t6)){ t7=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t7; av2[1]=lf[426]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(((C_word*)t0)[5],lf[365]); if(C_truep(t7)){ t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=lf[427]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(((C_word*)t0)[5],lf[366]); if(C_truep(t8)){ t9=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t9; av2[1]=lf[428]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_eqp(((C_word*)t0)[5],lf[367]); if(C_truep(t9)){ t10=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t10; av2[1]=lf[429]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(((C_word*)t0)[5],lf[368]); if(C_truep(t10)){ t11=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t11; av2[1]=lf[430]; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_eqp(((C_word*)t0)[5],lf[369]); if(C_truep(t11)){ t12=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t12; av2[1]=lf[431]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(((C_word*)t0)[5],lf[357]); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15011,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(t12)){ t14=t13; f_15011(t14,t12);} else{ t14=C_eqp(((C_word*)t0)[5],lf[359]); if(C_truep(t14)){ t15=t13; f_15011(t15,t14);} else{ t15=C_eqp(((C_word*)t0)[5],lf[353]); if(C_truep(t15)){ t16=t13; f_15011(t16,t15);} else{ t16=C_eqp(((C_word*)t0)[5],lf[360]); if(C_truep(t16)){ t17=t13; f_15011(t17,t16);} else{ t17=C_eqp(((C_word*)t0)[5],lf[312]); if(C_truep(t17)){ t18=t13; f_15011(t18,t17);} else{ t18=C_eqp(((C_word*)t0)[5],lf[354]); if(C_truep(t18)){ t19=t13; f_15011(t19,t18);} else{ t19=C_eqp(((C_word*)t0)[5],lf[356]); if(C_truep(t19)){ t20=t13; f_15011(t20,t19);} else{ t20=C_eqp(((C_word*)t0)[5],lf[355]); t21=t13; f_15011(t21,(C_truep(t20)?t20:C_eqp(((C_word*)t0)[5],lf[351])));}}}}}}}}}}}}}}}}}}} /* k15009 in k14922 in k14847 in k14823 in chicken.compiler.support#foreign-type->scrutiny-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15011(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15011,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[357]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[324]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[432]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[3],lf[326]); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[342]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[327]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15032,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t4)){ t6=t5; f_15032(t6,t4);} else{ t6=C_eqp(((C_word*)t0)[3],lf[346]); if(C_truep(t6)){ t7=t5; f_15032(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[3],lf[347]); t8=t5; f_15032(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[348])));}}}}}} /* k15030 in k15009 in k14922 in k14847 in k14823 in chicken.compiler.support#foreign-type->scrutiny-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15032(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15032,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[433]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[349]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],lf[350])); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[434]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[330]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15050,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t4)){ t6=t5; f_15050(t6,t4);} else{ t6=C_eqp(((C_word*)t0)[3],lf[344]); t7=t5; f_15050(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[3],lf[345])));}}}} /* k15048 in k15030 in k15009 in k14922 in k14847 in k14823 in chicken.compiler.support#foreign-type->scrutiny-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15050(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15050,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[435]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[331]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[331]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t3=((C_word*)t0)[4]; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[332]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15072,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t5)){ t7=t6; f_15072(t7,t5);} else{ t7=C_eqp(t4,lf[342]); if(C_truep(t7)){ t8=t6; f_15072(t8,t7);} else{ t8=C_eqp(t4,lf[343]); t9=t6; f_15072(t9,(C_truep(t8)?t8:C_eqp(t4,lf[324])));}}} else{ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[172]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}} /* k15070 in k15048 in k15030 in k15009 in k14922 in k14847 in k14823 in chicken.compiler.support#foreign-type->scrutiny-type in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15072(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_15072,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[436]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[338]); if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[4]); /* support.scm:1304: foreign-type->scrutiny-type */ t4=*((C_word*)lf[414]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=C_eqp(((C_word*)t0)[3],lf[339]); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[357]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[341]); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=(C_truep(t4)?lf[342]:lf[172]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[3],lf[326]); t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(t5)?lf[342]:lf[172]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}} /* chicken.compiler.support#scan-used-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_15427,4,av);} a=C_alloc(13); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15431,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15433,a[2]=t8,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1];{ C_word *av2=av; av2[0]=t10; av2[1]=t6; av2[2]=t2; f_15433(3,av2);}} /* k15429 in chicken.compiler.support#scan-used-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15431,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* walk in chicken.compiler.support#scan-used-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_15433,3,av);} a=C_alloc(10); t3=t2; t4=C_slot(t3,C_fix(3)); t5=t4; t6=t2; t7=C_slot(t6,C_fix(1)); t8=C_eqp(t7,lf[156]); t9=(C_truep(t8)?t8:C_eqp(t7,lf[126])); if(C_truep(t9)){ t10=t2; t11=C_slot(t10,C_fix(2)); t12=C_i_car(t11); t13=t12; t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15465,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15497,a[2]=t13,a[3]=((C_word*)t0)[3],a[4]=t14,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_memq(t13,((C_word*)t0)[4]))){ t16=C_i_memq(t13,((C_word*)((C_word*)t0)[3])[1]); t17=t15; f_15497(t17,C_i_not(t16));} else{ t16=t15; f_15497(t16,C_SCHEME_FALSE);}} else{ t10=C_eqp(t7,lf[87]); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15529,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp); if(C_truep(t10)){ t12=t11; f_15529(t12,t10);} else{ t12=C_eqp(t7,lf[161]); t13=t11; f_15529(t13,(C_truep(t12)?t12:C_eqp(t7,lf[173])));}}} /* k15463 in walk in chicken.compiler.support#scan-used-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15465(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_15465,2,t0,t1);} a=C_alloc(6); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_check_list_2(((C_word*)t0)[3],lf[44]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15473,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_15473(t7,((C_word*)t0)[4],((C_word*)t0)[3]);} /* for-each-loop3726 in k15463 in walk in chicken.compiler.support#scan-used-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15473(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_15473,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15483,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:1322: g3727 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15481 in for-each-loop3726 in k15463 in walk in chicken.compiler.support#scan-used-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15483,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15473(t3,((C_word*)t0)[4],t2);} /* k15495 in walk in chicken.compiler.support#scan-used-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15497(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,1)))){ C_save_and_reclaim_args((void *)trf_15497,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4]; f_15465(t4,t3);} else{ t2=((C_word*)t0)[4]; f_15465(t2,C_SCHEME_UNDEFINED);}} /* k15527 in walk in chicken.compiler.support#scan-used-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15529(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_15529,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)((C_word*)t0)[3])[1]; t3=C_i_check_list_2(((C_word*)t0)[4],lf[44]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15537,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_15537(t7,((C_word*)t0)[2],((C_word*)t0)[4]);}} /* for-each-loop3751 in k15527 in walk in chicken.compiler.support#scan-used-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15537(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_15537,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15547,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:1324: g3752 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15545 in for-each-loop3751 in k15527 in walk in chicken.compiler.support#scan-used-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15547,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15537(t3,((C_word*)t0)[4],t2);} /* chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_15582,4,av);} a=C_alloc(23); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15585,a[2]=t5,a[3]=t7,a[4]=t3,a[5]=t9,a[6]=t11,tmp=(C_word)a,a+=7,tmp)); t13=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15769,a[2]=t9,tmp=(C_word)a,a+=3,tmp)); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15807,a[2]=t1,a[3]=t5,a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* support.scm:1362: walk */ t15=((C_word*)t9)[1]; f_15585(t15,t14,t2,C_SCHEME_END_OF_LIST);} /* walk in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15585(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_15585,4,t0,t1,t2,t3);} a=C_alloc(12); t4=t2; t5=C_slot(t4,C_fix(3)); t6=t5; t7=t2; t8=C_slot(t7,C_fix(2)); t9=t8; t10=t2; t11=C_slot(t10,C_fix(1)); t12=t11; t13=C_eqp(t12,lf[87]); t14=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_15619,a[2]=t1,a[3]=t12,a[4]=t9,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=t6,a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],tmp=(C_word)a,a+=12,tmp); if(C_truep(t13)){ t15=t14; f_15619(t15,t13);} else{ t15=C_eqp(t12,lf[161]); if(C_truep(t15)){ t16=t14; f_15619(t16,t15);} else{ t16=C_eqp(t12,lf[173]); if(C_truep(t16)){ t17=t14; f_15619(t17,t16);} else{ t17=C_eqp(t12,lf[176]); t18=t14; f_15619(t18,(C_truep(t17)?t17:C_eqp(t12,lf[185])));}}}} /* k15617 in walk in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15619(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){ C_save_and_reclaim_args((void *)trf_15619,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[156]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[4]); t4=t3; if(C_truep(C_i_memq(t4,((C_word*)t0)[5]))){ t5=C_SCHEME_UNDEFINED; t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15638,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[7],a[5]=t4,a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); /* support.scm:1342: lset-adjoin/eq? */ f_5969(t5,((C_word*)((C_word*)t0)[6])[1],C_a_i_list(&a,1,t4));}} else{ t3=C_eqp(((C_word*)t0)[3],lf[126]); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[4]); if(C_truep(C_i_memq(t4,((C_word*)t0)[5]))){ t5=C_i_car(((C_word*)t0)[9]); /* support.scm:1348: walk */ t6=((C_word*)((C_word*)t0)[10])[1]; f_15585(t6,((C_word*)t0)[2],t5,((C_word*)t0)[5]);} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15674,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* support.scm:1347: lset-adjoin/eq? */ f_5969(t5,((C_word*)((C_word*)t0)[6])[1],C_a_i_list(&a,1,t4));}} else{ t4=C_eqp(((C_word*)t0)[3],lf[98]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15683,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t6=C_i_car(((C_word*)t0)[9]); /* support.scm:1350: walk */ t7=((C_word*)((C_word*)t0)[10])[1]; f_15585(t7,t5,t6,((C_word*)t0)[5]);} else{ t5=C_eqp(((C_word*)t0)[3],lf[120]); if(C_truep(t5)){ t6=C_i_caddr(((C_word*)t0)[4]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15713,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* support.scm:1353: ##sys#decompose-lambda-list */ t8=*((C_word*)lf[215]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=((C_word*)t0)[2]; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ /* support.scm:1357: walkeach */ t6=((C_word*)((C_word*)t0)[11])[1]; f_15769(t6,((C_word*)t0)[2],((C_word*)t0)[9],((C_word*)t0)[5]);}}}}}} /* k15636 in k15617 in walk in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_15638,2,av);} a=C_alloc(5); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15644,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* support.scm:1343: variable-visible? */ t4=*((C_word*)lf[244]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k15642 in k15636 in k15617 in walk in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_15644,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15648,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:1344: lset-adjoin/eq? */ f_5969(t2,((C_word*)((C_word*)t0)[3])[1],C_a_i_list(&a,1,((C_word*)t0)[4]));}} /* k15646 in k15642 in k15636 in k15617 in walk in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15648,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k15672 in k15617 in walk in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15674,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_car(((C_word*)t0)[3]); /* support.scm:1348: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_15585(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6]);} /* k15681 in k15617 in walk in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_15683,2,av);} a=C_alloc(5); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15694,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:1351: scheme#append */ t5=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k15692 in k15681 in k15617 in walk in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15694,2,av);} /* support.scm:1351: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15585(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a15712 in k15617 in walk in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_15713,5,av);} a=C_alloc(5); t5=C_i_car(((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15725,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* support.scm:1356: scheme#append */ t8=*((C_word*)lf[60]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k15723 in a15712 in k15617 in walk in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15725,2,av);} /* support.scm:1356: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15585(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* walkeach in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15769(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_15769,4,t0,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15771,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_check_list_2(t2,lf[44]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15783,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_15783(t9,t1,t2);} /* g3819 in walkeach in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15771(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_15771,3,t0,t1,t2);} /* support.scm:1360: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15585(t3,t1,t2,((C_word*)t0)[3]);} /* for-each-loop3818 in walkeach in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15783(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_15783,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15793,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:1360: g3819 */ t5=((C_word*)t0)[3]; f_15771(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15791 in for-each-loop3818 in walkeach in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15793,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15783(t3,((C_word*)t0)[4],t2);} /* k15805 in chicken.compiler.support#scan-free-variables in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15807,2,av);} /* support.scm:1363: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; C_values(4,av2);}} /* chicken.compiler.support#chop-separator in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_15812,3,av);} a=C_alloc(10); t3=C_i_string_length(t2); t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15823,a[2]=t1,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_integer_greaterp(t4,C_fix(0)))){ t6=C_i_string_ref(t2,t4); t7=t5; f_15823(t7,C_u_i_memq(t6,lf[441]));} else{ t6=t5; f_15823(t6,C_SCHEME_FALSE);}} /* k15821 in chicken.compiler.support#chop-separator in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15823(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_15823,2,t0,t1);} if(C_truep(t1)){ /* support.scm:1372: scheme#substring */ t2=*((C_word*)lf[440]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.support#make-block-variable-literal in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_15836,3,av);} a=C_alloc(3); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record2(&a,2,lf[443],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#block-variable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15842,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_structurep(t2,lf[443]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#block-variable-literal-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15848,3,av);} t3=C_i_check_structure_2(t2,lf[443],lf[446]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#make-random-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_15857,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15865,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1388: chicken.base#open-output-string */ t4=*((C_word*)lf[319]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k15863 in chicken.compiler.support#make-random-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_15865,2,av);} a=C_alloc(9); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[313]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15871,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=((C_word*)t0)[3]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15892,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t6))){ /* support.scm:1389: chicken.base#gensym */ t8=*((C_word*)lf[99]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_i_car(t6); /* support.scm:1388: ##sys#print */ t9=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t5; av2[2]=t8; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* k15869 in k15863 in chicken.compiler.support#make-random-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_15871,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15874,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:1388: ##sys#write-char-0 */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(45); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k15872 in k15869 in k15863 in chicken.compiler.support#make-random-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_15874,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15877,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15888,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* support.scm:1390: chicken.time#current-seconds */ t4=*((C_word*)lf[448]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k15875 in k15872 in k15869 in k15863 in chicken.compiler.support#make-random-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_15877,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15880,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_random_fixnum(C_fix(1000)); /* support.scm:1388: ##sys#print */ t4=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k15878 in k15875 in k15872 in k15869 in k15863 in chicken.compiler.support#make-random-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15880,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15883,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1388: chicken.base#get-output-string */ t3=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15881 in k15878 in k15875 in k15872 in k15869 in k15863 in chicken.compiler.support#make-random-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15883,2,av);} /* support.scm:1387: scheme#string->symbol */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k15886 in k15872 in k15869 in k15863 in chicken.compiler.support#make-random-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15888,2,av);} /* support.scm:1388: ##sys#print */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k15890 in k15863 in chicken.compiler.support#make-random-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15892,2,av);} /* support.scm:1388: ##sys#print */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.compiler.support#clear-real-name-table! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_15904,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15909,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:1406: scheme#make-vector */ t3=*((C_word*)lf[286]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(997); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k15907 in chicken.compiler.support#clear-real-name-table! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15909,2,av);} t2=C_mutate(&lf[449] /* (set! chicken.compiler.support#real-name-table ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#set-real-name! in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15911,4,av);} /* support.scm:1409: chicken.internal#hash-table-set! */ t4=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=lf[449]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* chicken.compiler.support#get-real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15917,3,av);} /* support.scm:1414: chicken.internal#hash-table-ref */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[449]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,3)))){ C_save_and_reclaim((void*)f_15924,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15927,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15943,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* support.scm:1426: resolve */ f_15927(t5,t2);} /* resolve in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15927(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_15927,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15931,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1421: chicken.internal#hash-table-ref */ t4=*((C_word*)lf[130]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[449]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k15929 in resolve in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_15931,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15937,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1423: chicken.internal#hash-table-ref */ t4=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[449]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15935 in k15929 in resolve in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15937,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15941 in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_15943,2,av);} a=C_alloc(6); if(C_truep(C_i_not(t1))){ /* support.scm:1427: ##sys#symbol->string */ t2=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t2=((C_word*)t0)[4]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16039,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* support.scm:1430: ##sys#symbol->string */ t5=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* support.scm:1444: ##sys#symbol->string */ t2=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}} /* k15968 in k16037 in k15941 in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_15970,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15972,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_15972(t5,((C_word*)t0)[4],((C_word*)t0)[5],C_fix(0),t1);} /* loop in k15968 in k16037 in k15941 in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_15972(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_15972,5,t0,t1,t2,t3,t4);} a=C_alloc(8); if(C_truep(C_i_greaterp(t3,C_fix(20)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15986,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_a_i_cons(&a,2,lf[455],t2); /* support.scm:1435: scheme#reverse */ t7=*((C_word*)lf[82]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15996,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); /* support.scm:1437: resolve */ f_15927(t5,t4);} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16035,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:1443: scheme#reverse */ t6=*((C_word*)lf[82]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} /* k15984 in loop in k15968 in k16037 in k15941 in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15986,2,av);} /* support.scm:1435: chicken.string#string-intersperse */ t2=*((C_word*)lf[453]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[454]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k15994 in loop in k15968 in k16037 in k15941 in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_15996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_15996,2,av);} a=C_alloc(8); t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16009,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* support.scm:1439: scheme#reverse */ t4=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16028,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* support.scm:1440: scheme#symbol->string */ t4=*((C_word*)lf[223]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k16007 in k15994 in loop in k15968 in k16037 in k15941 in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16009,2,av);} /* support.scm:1439: chicken.string#string-intersperse */ t2=*((C_word*)lf[453]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[456]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k16022 in k16026 in k15994 in loop in k15968 in k16037 in k15941 in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16024,2,av);} /* support.scm:1440: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15972(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k16026 in k15994 in loop in k15968 in k16037 in k15941 in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_16028,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=t2; t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16024,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* support.scm:1442: db-get */ t7=*((C_word*)lf[129]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; av2[4]=lf[457]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k16033 in loop in k15968 in k16037 in k15941 in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16035,2,av);} /* support.scm:1443: chicken.string#string-intersperse */ t2=*((C_word*)lf[453]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[458]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k16037 in k15941 in chicken.compiler.support#real-name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_16039,2,av);} a=C_alloc(9); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15970,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* support.scm:1432: db-get */ t5=*((C_word*)lf[129]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[457]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* chicken.compiler.support#real-name2 in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_16044,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16048,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:1447: chicken.internal#hash-table-ref */ t5=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=lf[449]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k16046 in chicken.compiler.support#real-name2 in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16048,2,av);} if(C_truep(t1)){ /* support.scm:1448: real-name */ t2=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.compiler.support#display-real-name-table in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_16056,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16062,tmp=(C_word)a,a+=2,tmp); /* support.scm:1451: chicken.internal#hash-table-for-each */ t3=*((C_word*)lf[141]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[449]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a16061 in chicken.compiler.support#display-real-name-table in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_16062,4,av);} a=C_alloc(5); t4=*((C_word*)lf[24]+1); t5=*((C_word*)lf[24]+1); t6=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16069,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:1453: ##sys#print */ t8=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[24]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* k16067 in a16061 in chicken.compiler.support#display-real-name-table in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_16069,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16072,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:1453: ##sys#write-char-0 */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(9); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k16070 in k16067 in a16061 in chicken.compiler.support#display-real-name-table in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_16072,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16075,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1453: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16073 in k16070 in k16067 in a16061 in chicken.compiler.support#display-real-name-table in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16075,2,av);} /* support.scm:1453: ##sys#write-char-0 */ t2=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.support#source-info->string in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_16080,3,av);} a=C_alloc(13); if(C_truep(C_i_listp(t2))){ t3=C_i_car(t2); t4=t3; t5=C_i_cadr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16100,a[2]=t1,a[3]=t4,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16104,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=C_i_string_length(t4); t10=C_a_i_fixnum_difference(&a,2,C_fix(4),t9); /* support.scm:1460: scheme#max */ t11=*((C_word*)lf[466]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t8; av2[2]=C_fix(0); av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ /* support.scm:1461: chicken.string#->string */ t3=*((C_word*)lf[68]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k16098 in chicken.compiler.support#source-info->string in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_16100,2,av);} /* support.scm:1460: chicken.string#conc */ t2=*((C_word*)lf[462]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[463]; av2[4]=t1; av2[5]=lf[464]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k16102 in chicken.compiler.support#source-info->string in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16104,2,av);} /* support.scm:1460: scheme#make-string */ t2=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_make_character(32); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.support#source-info->name in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16115,3,av);} if(C_truep(C_i_listp(t2))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cadr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* support.scm:1464: chicken.string#->string */ t3=*((C_word*)lf[68]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* chicken.compiler.support#source-info->line in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16130,3,av);} t3=C_i_listp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?C_i_car(t2):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#call-info in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_16142,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16146,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_cdr(t2); if(C_truep(C_i_pairp(t5))){ t6=t2; t7=t4; f_16146(t7,C_i_cadr(t6));} else{ t6=t4; f_16146(t6,C_SCHEME_FALSE);}} /* k16144 in chicken.compiler.support#call-info in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_16146(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_16146,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16149,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t1)){ if(C_truep(C_i_listp(t1))){ t3=C_i_car(t1); t4=C_i_cadr(t1); /* support.scm:1474: chicken.string#conc */ t5=*((C_word*)lf[462]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t2; av2[2]=lf[470]; av2[3]=t3; av2[4]=lf[471]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16147 in k16144 in chicken.compiler.support#call-info in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16149,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_16179,5,av);} a=C_alloc(17); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=C_i_check_list_2(t3,lf[127]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16203,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16375,a[2]=t7,a[3]=t12,a[4]=t8,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_16375(t14,t10,t3);} /* k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_16203,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(t2,lf[127]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16339,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16341,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_16341(t12,t8,t2);} /* k16216 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_16218,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16221,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:1486: g4016 */ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16219 in k16216 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_16221,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16227,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* support.scm:1487: chicken.condition#condition? */ t4=*((C_word*)lf[476]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k16225 in k16219 in k16216 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_16227,2,av);} a=C_alloc(6); if(C_truep(t1)){ /* support.scm:1487: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16236,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_length(((C_word*)t0)[4]); t4=C_eqp(C_fix(1),t3); if(C_truep(t4)){ t5=C_i_car(((C_word*)t0)[4]); /* support.scm:1489: encodeable-literal? */ t6=lf[475];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t2; av2[2]=t5; f_16508(3,av2);}} else{ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_16236(2,av2);}}}} /* k16234 in k16225 in k16219 in k16216 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_16236,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16239,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:1490: debugging */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[191]; av2[3]=lf[473]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=C_u_i_length(((C_word*)t0)[2]); t3=C_eqp(C_fix(1),t2); if(C_truep(t3)){ /* support.scm:1493: k */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* support.scm:1495: bomb */ t4=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=lf[474]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* k16237 in k16234 in k16225 in k16219 in k16216 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16239,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* support.scm:1491: k */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_TRUE; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a16277 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_16278,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16284,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16293,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:1486: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a16283 in a16277 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16284,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16290,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:1486: k4013 */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a16289 in a16283 in a16277 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16290,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a16292 in a16277 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_16293,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16299,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16311,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* support.scm:1486: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a16298 in a16292 in a16277 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_16299,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16305,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1486: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=*((C_word*)lf[477]+1); C_call_with_values(4,av2);}} /* a16304 in a16298 in a16292 in a16277 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16305,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* a16310 in a16292 in a16277 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_16311,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16317,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:1486: k4013 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a16316 in a16310 in a16292 in a16277 in k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16317,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k16337 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_16339,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=C_slot(((C_word*)t0)[2],C_fix(0)); t5=t4; if(C_truep(C_i_closurep(t5))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16218,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16278,a[2]=t5,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* support.scm:1486: scheme#call-with-current-continuation */ t8=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* support.scm:1496: bomb */ t6=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=lf[478]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* map-loop3983 in k16201 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_16341(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_16341,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_list(&a,2,lf[87],t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop3952 in chicken.compiler.support#constant-form-eval in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_16375(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_16375,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_slot(t3,C_fix(2)); t5=C_i_car(t4); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); t9=C_slot(t2,C_fix(1)); t11=t1; t12=t9; t1=t11; t2=t12; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.support#maybe-constant-fold-call in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_16409,5,av);} a=C_alloc(14); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16412,tmp=(C_word)a,a+=2,tmp); t6=C_i_car(t3); t7=C_slot(t6,C_fix(1)); t8=C_eqp(lf[156],t7); if(C_truep(t8)){ t9=t3; t10=C_u_i_car(t9); t11=C_slot(t10,C_fix(2)); t12=C_i_car(t11); t13=t12; t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16440,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t13,tmp=(C_word)a,a+=6,tmp); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16462,a[2]=t3,a[3]=t14,a[4]=t5,a[5]=t13,tmp=(C_word)a,a+=6,tmp); /* tweaks.scm:51: ##sys#get */ t16=*((C_word*)lf[183]+1);{ C_word *av2=av; av2[0]=t16; av2[1]=t15; av2[2]=t13; av2[3]=lf[482]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} else{ /* support.scm:1508: k */ t9=t4;{ C_word *av2=av; av2[0]=t9; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* constant-node? in chicken.compiler.support#maybe-constant-fold-call in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16412,3,av);} t3=C_slot(t2,C_fix(1)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(lf[87],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k16438 in chicken.compiler.support#maybe-constant-fold-call in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_16440,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16447,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* support.scm:1506: constant-form-eval */ t5=*((C_word*)lf[472]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ /* support.scm:1507: k */ t2=((C_word*)t0)[3];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* a16446 in k16438 in chicken.compiler.support#maybe-constant-fold-call in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16447,4,av);} /* support.scm:1506: k */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k16460 in chicken.compiler.support#maybe-constant-fold-call in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_16462,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16468,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* support.scm:1503: foldable? */ t3=*((C_word*)lf[481]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_16440(2,av2);}}} /* k16466 in k16460 in chicken.compiler.support#maybe-constant-fold-call in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_16468,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16471,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_16471(2,av2);}} else{ /* support.scm:1504: predicate? */ t3=*((C_word*)lf[480]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k16469 in k16466 in k16460 in chicken.compiler.support#maybe-constant-fold-call in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16471,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* support.scm:1505: every */ f_5510(((C_word*)t0)[3],((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_16440(2,av2);}}} /* chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_16508,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16523,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1518: immediate? */ t4=*((C_word*)lf[91]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_16523,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; if(C_truep(C_i_exact_integerp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16533,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16548,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* support.scm:1523: scheme#call-with-current-continuation */ t5=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_i_flonump(((C_word*)t0)[3]); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ t4=C_slot(((C_word*)t0)[3],C_fix(1)); t5=C_i_string_length(t4); t6=((C_word*)t0)[2]; t7=C_i_integer_length(t5); t8=t6;{ C_word *av2=av; av2[0]=t8; av2[1]=C_fixnum_less_or_equal_p(t7,C_fix(24)); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ if(C_truep(C_byteblockp(((C_word*)t0)[3]))){ t4=((C_word*)t0)[3]; t5=stub4065(C_SCHEME_UNDEFINED,t4); t6=((C_word*)t0)[2]; t7=C_i_integer_length(t5); t8=t6;{ C_word *av2=av; av2[0]=t8; av2[1]=C_fixnum_less_or_equal_p(t7,C_fix(24)); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t4=((C_word*)t0)[3]; t5=stub4065(C_SCHEME_UNDEFINED,t4); t6=C_i_integer_length(t5); if(C_truep(C_fixnum_less_or_equal_p(t6,C_fix(24)))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16637,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16639,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t9=t5; t10=t8; t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6158,a[2]=t9,a[3]=t12,a[4]=t10,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_6158(t14,t7,C_fix(0));} else{ t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}}}}} /* k16531 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16533,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16536,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1523: g4074 */ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16534 in k16531 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16536,2,av);} if(C_truep(t1)){ t2=C_i_string_length(t1); t3=((C_word*)t0)[2]; t4=C_i_integer_length(t2); t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_fixnum_less_or_equal_p(t4,C_fix(24)); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a16547 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_16548,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16554,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16563,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1523: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a16553 in a16547 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,2)))){ C_save_and_reclaim((void *)f_16554,3,av);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16560,tmp=(C_word)a,a+=2,tmp); /* support.scm:1523: k4071 */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a16559 in a16553 in a16547 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16560,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a16562 in a16547 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_16563,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16565,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16572,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16589,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp15102 */ t5=t2; f_16565(t5,t4);} /* tmp15102 in a16562 in a16547 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_16565(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16565,2,t0,t1);} t2=((C_word*)t0)[2]; /* ##sys#number->string */ t3=*((C_word*)lf[483]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* tmp25103 in a16562 in a16547 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_16572(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_16572,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16578,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:1523: k4071 */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a16577 in tmp25103 in a16562 in a16547 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16578,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k16587 in a16562 in a16547 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16589,2,av);} a=C_alloc(3); /* tmp25103 */ t2=((C_word*)t0)[2]; f_16572(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* k16635 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16637,2,av);} /* support.scm:1534: every */ f_5510(((C_word*)t0)[2],lf[475],t1);} /* a16638 in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16639,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[2],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_16645,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16649,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16654,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_16654(t7,t3,C_fix(0),t2);} /* k16647 in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16649,2,av);} /* support.scm:1559: scheme#newline */ t2=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_16654(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_16654,4,t0,t1,t2,t3);} a=C_alloc(9); t4=t3; t5=C_slot(t4,C_fix(1)); t6=t5; t7=t3; t8=C_slot(t7,C_fix(2)); t9=t8; t10=t3; t11=C_slot(t10,C_fix(3)); t12=t11; t13=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16682,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t12,a[5]=t3,a[6]=t1,a[7]=t9,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* support.scm:1547: scheme#make-string */ t14=*((C_word*)lf[465]+1);{ C_word av2[4]; av2[0]=t14; av2[1]=t13; av2[2]=t2; av2[3]=C_make_character(32); ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} /* k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_16682,2,av);} a=C_alloc(16); t2=t1; t3=((C_word*)t0)[2]; t4=C_a_i_fixnum_plus(&a,2,t3,C_fix(2)); t5=*((C_word*)lf[24]+1); t6=*((C_word*)lf[24]+1); t7=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16690,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t5,a[9]=((C_word*)t0)[8],a[10]=t2,tmp=(C_word)a,a+=11,tmp); /* support.scm:1549: ##sys#write-char-0 */ t9=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[24]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_16690,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* support.scm:1549: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[10]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_16693,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* support.scm:1549: ##sys#write-char-0 */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(60); av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_16696,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16699,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* support.scm:1549: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_16699,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16702,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* support.scm:1549: ##sys#write-char-0 */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_16702,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16705,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* support.scm:1549: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_16705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_16705,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16706,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_check_list_2(((C_word*)t0)[4],lf[44]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16716,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16778,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_16778(t8,t4,((C_word*)t0)[4]);} /* g4114 in k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in ... */ static void C_fcall f_16706(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16706,3,t0,t1,t2);} /* support.scm:1550: g4136 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_16654(t3,t1,((C_word*)t0)[3],t2);} /* k16714 in k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in ... */ static void C_ccall f_16716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_16716,2,av);} a=C_alloc(9); t2=C_block_size(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16722,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fixnum_greaterp(t3,C_fix(4)))){ t5=*((C_word*)lf[24]+1); t6=*((C_word*)lf[24]+1); t7=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16734,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* support.scm:1553: ##sys#write-char-0 */ t9=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=C_make_character(91); av2[3]=*((C_word*)lf[24]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* ##sys#write-char/port */ t5=*((C_word*)lf[485]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(62); av2[3]=*((C_word*)lf[24]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k16720 in k16714 in k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in ... */ static void C_ccall f_16722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16722,2,av);} /* ##sys#write-char/port */ t2=*((C_word*)lf[485]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(62); av2[3]=*((C_word*)lf[24]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k16732 in k16714 in k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in ... */ static void C_ccall f_16734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_16734,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16737,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_slot(((C_word*)t0)[4],C_fix(4)); /* support.scm:1553: ##sys#print */ t4=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k16735 in k16732 in k16714 in k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in ... */ static void C_ccall f_16737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_16737,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16740,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16745,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_16745(t6,t2,C_fix(5));} /* k16738 in k16735 in k16732 in k16714 in k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in ... */ static void C_ccall f_16740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16740,2,av);} /* ##sys#write-char/port */ t2=*((C_word*)lf[485]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(93); av2[3]=*((C_word*)lf[24]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* doloop4150 in k16735 in k16732 in k16714 in k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in ... */ static void C_fcall f_16745(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_16745,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=*((C_word*)lf[24]+1); t4=*((C_word*)lf[24]+1); t5=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16758,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* support.scm:1556: ##sys#write-char-0 */ t7=*((C_word*)lf[26]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=C_make_character(32); av2[3]=*((C_word*)lf[24]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k16756 in doloop4150 in k16735 in k16732 in k16714 in k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in ... */ static void C_ccall f_16758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_16758,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_slot(((C_word*)t0)[5],((C_word*)t0)[2]); /* support.scm:1556: ##sys#print */ t4=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k16759 in k16756 in doloop4150 in k16735 in k16732 in k16714 in k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in ... */ static void C_ccall f_16761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16761,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16745(t3,((C_word*)t0)[4],t2);} /* for-each-loop4113 in k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in ... */ static void C_fcall f_16778(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_16778,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16788,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:1550: g4114 */ t5=((C_word*)t0)[3]; f_16706(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16786 in for-each-loop4113 in k16703 in k16700 in k16697 in k16694 in k16691 in k16688 in k16680 in loop in chicken.compiler.support#dump-nodes in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in ... */ static void C_ccall f_16788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16788,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16778(t3,((C_word*)t0)[4],t2);} /* chicken.compiler.support#read-info-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_16801,5,av);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16805,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16808,a[2]=t3,a[3]=t5,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_eqp(lf[489],t2); if(C_truep(t7)){ t8=C_i_car(t3); t9=t6; f_16808(t9,C_i_symbolp(t8));} else{ t8=t6; f_16808(t8,C_SCHEME_FALSE);}} /* k16803 in chicken.compiler.support#read-info-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16805,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16806 in chicken.compiler.support#read-info-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_16808(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_16808,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16823,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:1570: chicken.string#conc */ t5=*((C_word*)lf[462]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[487]+1); av2[3]=lf[488]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k16821 in k16806 in chicken.compiler.support#read-info-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_16823,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16827,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); /* support.scm:1571: chicken.internal#hash-table-ref */ t6=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=*((C_word*)lf[138]+1); av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k16825 in k16821 in k16806 in chicken.compiler.support#read-info-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16827,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,t4,t2); /* support.scm:1566: chicken.internal#hash-table-set! */ t6=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=*((C_word*)lf[138]+1); av2[3]=((C_word*)t0)[5]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); /* support.scm:1566: chicken.internal#hash-table-set! */ t5=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=*((C_word*)lf[138]+1); av2[3]=((C_word*)t0)[5]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* chicken.compiler.support#read/source-info in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16844,3,av);} /* support.scm:1576: ##sys#read */ t3=*((C_word*)lf[491]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=*((C_word*)lf[486]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* ##sys#user-read-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_16850,4,av);} a=C_alloc(4); if(C_truep(C_i_char_equalp(C_make_character(62),t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16860,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* ##sys#read-char/port */ t5=*((C_word*)lf[496]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* support.scm:1588: old-hook */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k16858 in ##sys#user-read-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16860,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16863,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=t2; t4=((C_word*)t0)[3]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16879,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:1591: chicken.base#open-output-string */ t6=*((C_word*)lf[319]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k16861 in k16858 in ##sys#user-read-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_16863,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,2,lf[493],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[494],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16877 in k16858 in ##sys#user-read-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16879,2,av);} a=C_alloc(7); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16884,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_16884(t6,((C_word*)t0)[3]);} /* loop in k16877 in k16858 in ##sys#user-read-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_16884(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_16884,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16888,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* ##sys#read-char/port */ t3=*((C_word*)lf[496]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k16886 in loop in k16877 in k16858 in ##sys#user-read-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_16888,2,av);} a=C_alloc(5); if(C_truep(C_eofp(t1))){ /* support.scm:1595: quit-compiling */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[495]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ if(C_truep(C_u_i_char_equalp(t1,C_make_character(10)))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16905,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:1597: scheme#newline */ t3=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ if(C_truep(C_u_i_char_equalp(t1,C_make_character(60)))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* ##sys#read-char/port */ t3=*((C_word*)lf[496]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16939,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* ##sys#write-char/port */ t3=*((C_word*)lf[485]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}} /* k16903 in k16886 in loop in k16877 in k16858 in ##sys#user-read-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16905,2,av);} /* support.scm:1598: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_16884(t2,((C_word*)t0)[3]);} /* k16914 in k16886 in loop in k16877 in k16858 in ##sys#user-read-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_16916,2,av);} a=C_alloc(6); t2=t1; t3=C_eqp(C_make_character(35),t2); if(C_truep(t3)){ /* support.scm:1602: chicken.base#get-output-string */ t4=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16928,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* ##sys#write-char/port */ t5=*((C_word*)lf[485]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_make_character(60); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k16926 in k16914 in k16886 in loop in k16877 in k16858 in ##sys#user-read-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_16928,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16931,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* ##sys#write-char/port */ t3=*((C_word*)lf[485]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k16929 in k16926 in k16914 in k16886 in loop in k16877 in k16858 in ##sys#user-read-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16931,2,av);} /* support.scm:1606: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_16884(t2,((C_word*)t0)[3]);} /* k16937 in k16886 in loop in k16877 in k16858 in ##sys#user-read-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16939,2,av);} /* support.scm:1609: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_16884(t2,((C_word*)t0)[3]);} /* chicken.compiler.support#big-fixnum? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_16944,3,av);} a=C_alloc(4); if(C_truep(C_fixnump(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16957,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:1616: chicken.platform#feature? */ t4=*((C_word*)lf[497]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=lf[498]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16955 in chicken.compiler.support#big-fixnum? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16957,2,av);} if(C_truep(t1)){ t2=C_fixnum_greaterp(((C_word*)t0)[2],C_fix(1073741823)); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?t2:C_fixnum_lessp(((C_word*)t0)[2],C_fix(-1073741824))); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.compiler.support#small-bignum? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_16968,3,av);} a=C_alloc(4); if(C_truep(C_i_bignump(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16990,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:1622: chicken.platform#feature? */ t4=*((C_word*)lf[497]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=lf[498]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16988 in chicken.compiler.support#small-bignum? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16990,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2]; t3=C_i_integer_length(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_less_or_equal_p(t3,C_fix(62)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.compiler.support#hide-variable in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_16992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_16992,3,av);} a=C_alloc(3); t3=C_a_i_list(&a,1,lf[500]); if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:57: ##sys#put! */ t4=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=lf[265]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:57: ##sys#put! */ t5=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=lf[265]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* chicken.compiler.support#export-variable in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_17012,3,av);} a=C_alloc(3); t3=C_a_i_list(&a,1,lf[502]); if(C_truep(C_i_nullp(t3))){ /* tweaks.scm:57: ##sys#put! */ t4=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=lf[265]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_i_car(t3); /* tweaks.scm:57: ##sys#put! */ t5=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=lf[265]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* chicken.compiler.support#variable-hidden? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17032,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17040,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:1635: ##sys#get */ t4=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[265]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17038 in chicken.compiler.support#variable-hidden? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17040,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(t1,lf[500]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17047 in ##sys#toplevel-definition-hook in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17049,2,av);} if(C_truep(t1)){ /* support.scm:1638: chicken.plist#remprop! */ t2=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[265]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.support#variable-visible? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17054,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17058,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:1641: ##sys#get */ t5=*((C_word*)lf[183]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[265]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k17056 in chicken.compiler.support#variable-visible? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17058,2,av);} t2=C_eqp(t1,lf[500]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(t1,lf[502]); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?C_SCHEME_TRUE:C_i_not(((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* chicken.compiler.support#mark-variable in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_17079,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; if(C_truep(C_i_nullp(t4))){ /* support.scm:1651: ##sys#put! */ t5=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=C_i_car(t4); /* support.scm:1651: ##sys#put! */ t6=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* chicken.compiler.support#variable-mark in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17094,4,av);} /* support.scm:1654: ##sys#get */ t4=*((C_word*)lf[183]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* chicken.compiler.support#intrinsic? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17100,3,av);} /* tweaks.scm:60: ##sys#get */ t3=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[482]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.compiler.support#foldable? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17111,3,av);} /* tweaks.scm:60: ##sys#get */ t3=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[506]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.compiler.support#predicate? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17122,3,av);} /* tweaks.scm:60: ##sys#get */ t3=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[507]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_17133,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17137,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17226,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1665: chicken.platform#repository-path */ t5=*((C_word*)lf[515]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_17137,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17143,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17204,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:1666: chicken.base#open-output-string */ t5=*((C_word*)lf[319]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17141 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17143,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17171,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1673: scheme#call-with-input-file */ t3=*((C_word*)lf[510]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[84]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k17153 in for-each-loop4326 in k17169 in k17141 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_17155,2,av);} /* support.scm:1670: ##sys#put! */ t2=*((C_word*)lf[246]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[509]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k17157 in for-each-loop4326 in k17169 in k17141 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17159,2,av);} a=C_alloc(3); t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); t3=C_u_i_cdr(((C_word*)t0)[2]); t4=C_a_i_list1(&a,1,t3); /* support.scm:1672: scheme#append */ t5=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k17169 in k17141 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_17171,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[44]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17179,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_17179(t6,((C_word*)t0)[2],t1);} /* for-each-loop4326 in k17169 in k17141 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_17179(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_17179,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17189,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_car(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17155,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17159,a[2]=t6,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* support.scm:1672: ##sys#get */ t11=*((C_word*)lf[183]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=t8; av2[3]=lf[509]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k17187 in for-each-loop4326 in k17169 in k17141 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17189,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_17179(t3,((C_word*)t0)[4],t2);} /* k17202 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_17204,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[313]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17210,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* support.scm:1666: ##sys#print */ t6=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[513]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k17208 in k17202 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_17210,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17213,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:1666: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k17211 in k17208 in k17202 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_17213,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17216,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:1666: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[512]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k17214 in k17211 in k17208 in k17202 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17216,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17219,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:1666: ##sys#write-char-0 */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k17217 in k17214 in k17211 in k17208 in k17202 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17219,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17222,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1666: chicken.base#get-output-string */ t3=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k17220 in k17217 in k17214 in k17211 in k17208 in k17202 in k17135 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17222,2,av);} /* support.scm:1666: debugging */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[511]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k17224 in chicken.compiler.support#load-identifier-database in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17226,2,av);} /* support.scm:1665: chicken.load#find-file */ t2=*((C_word*)lf[514]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.support#print-version in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_17228,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17235,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(t4)){ /* support.scm:1679: chicken.base#print* */ t6=*((C_word*)lf[517]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[518]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f18834,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:1680: chicken.platform#chicken-version */ t7=*((C_word*)lf[233]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k17233 in chicken.compiler.support#print-version in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17235,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17242,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1680: chicken.platform#chicken-version */ t3=*((C_word*)lf[233]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k17240 in k17233 in chicken.compiler.support#print-version in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17242,2,av);} /* support.scm:1680: chicken.base#print */ t2=*((C_word*)lf[220]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.compiler.support#print-usage in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17253,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17257,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:1685: print-version */ t3=*((C_word*)lf[516]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17255 in chicken.compiler.support#print-usage in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17257,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17260,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:1686: scheme#newline */ t3=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17258 in k17255 in chicken.compiler.support#print-usage in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17260,2,av);} /* support.scm:1687: scheme#display */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[520]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.compiler.support#print-debug-options in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17265,2,av);} /* support.scm:1816: scheme#display */ t2=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=lf[522]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a17270 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_17271,4,av);} a=C_alloc(5); t4=t3; t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[32]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17278,a[2]=t1,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:483: ##sys#print */ t7=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[523]; av2[3]=C_SCHEME_FALSE; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k17276 in a17270 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_17278,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17281,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[4]; t4=C_slot(t3,C_fix(1)); /* support.scm:483: ##sys#print */ t5=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k17279 in k17276 in a17270 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_17281,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17284,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:483: ##sys#write-char-0 */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k17282 in k17279 in k17276 in a17270 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_17284,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17287,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=C_slot(t3,C_fix(2)); /* support.scm:483: ##sys#print */ t5=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k17285 in k17282 in k17279 in k17276 in a17270 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_17287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17287,2,av);} /* support.scm:483: ##sys#write-char-0 */ t2=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(62); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5113 */ static void C_ccall f_5115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5115,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5118,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k5116 in k5113 */ static void C_ccall f_5118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5118,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5121,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k5119 in k5116 in k5113 */ static void C_ccall f_5121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5121,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5124,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5124,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5127,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5127,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5130,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_file_toplevel(2,av2);}} /* k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5130,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5133,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5133,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5136,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5136,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5139,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_port_toplevel(2,av2);}} /* k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){ C_save_and_reclaim((void *)f_5139,2,av);} a=C_alloc(35); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate(&lf[2] /* (set! chicken.compiler.support#take ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5249,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[3] /* (set! chicken.compiler.support#every ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5510,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[4] /* (set! chicken.compiler.support#any ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5544,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[5] /* (set! chicken.compiler.support#cons* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5574,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate(&lf[6] /* (set! chicken.compiler.support#last ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5910,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate(&lf[7] /* (set! chicken.compiler.support#lset-adjoin/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5969,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate((C_word*)lf[8]+1 /* (set! chicken.compiler.support#number-type ...) */,lf[9]); t11=C_set_block_item(lf[10] /* chicken.compiler.support#unsafe */,0,C_SCHEME_FALSE); t12=C_mutate((C_word*)lf[11]+1 /* (set! chicken.compiler.support#compiler-cleanup-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6422,tmp=(C_word)a,a+=2,tmp)); t13=C_set_block_item(lf[12] /* chicken.compiler.support#debugging-chicken */,0,C_SCHEME_END_OF_LIST); t14=C_mutate((C_word*)lf[13]+1 /* (set! chicken.compiler.support#bomb ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6426,tmp=(C_word)a,a+=2,tmp)); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6451,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:121: chicken.base#open-output-string */ t16=*((C_word*)lf[319]+1);{ C_word *av2=av; av2[0]=t16; av2[1]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} /* chicken.compiler.support#take in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5249(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_5249,3,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5267,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); t9=C_fixnum_difference(t3,C_fix(1)); /* mini-srfi-1.scm:56: take */ t11=t6; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}} /* k5265 in chicken.compiler.support#take in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5267,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in a10426 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5307(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_5307,5,t0,t1,t2,t3,t4);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5321,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:67: scheme#reverse */ t6=*((C_word*)lf[82]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_fixnum_difference(t2,C_fix(1)); t6=C_i_car(t4); t7=C_a_i_cons(&a,2,t6,t3); t8=t4; t9=C_u_i_cdr(t8); /* mini-srfi-1.scm:68: loop */ t11=t1; t12=t5; t13=t7; t14=t9; t1=t11; t2=t12; t3=t13; t4=t14; goto loop;}} /* k5319 in loop in a10426 in a10420 in chicken.compiler.support#inline-lambda-bindings in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5321,2,av);} /* mini-srfi-1.scm:67: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}} /* chicken.compiler.support#every in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5510(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_5510,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5516,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_5516(t7,t1,t3);} /* loop in chicken.compiler.support#every in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5516(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_5516,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5538,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); /* mini-srfi-1.scm:82: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k5536 in loop in chicken.compiler.support#every in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5538,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:83: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_5516(t4,((C_word*)t0)[2],t3);}} /* chicken.compiler.support#any in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5544(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_5544,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5550,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_5550(t7,t1,t3);} /* loop in chicken.compiler.support#any in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5550(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_5550,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5560,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:88: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k5558 in loop in chicken.compiler.support#any in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5560,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:89: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_5550(t4,((C_word*)t0)[2],t3);}} /* chicken.compiler.support#cons* in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5574(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_5574,3,t1,t2,t3);} a=C_alloc(5); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5580,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_5580(t7,t1,t2,t3);} /* loop in chicken.compiler.support#cons* in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5580(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_5580,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5594,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t3); t6=t3; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:95: loop */ t9=t4; t10=t5; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* k5592 in loop in chicken.compiler.support#cons* in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5594,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* foldr389 in k7946 in chicken.compiler.support#db-get-all in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5803(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_5803,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5811,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5837,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g394 in foldr389 in k7946 in chicken.compiler.support#db-get-all in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5811(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_5811,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5815,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:135: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5813 in g394 in foldr389 in k7946 in chicken.compiler.support#db-get-all in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5815,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5819,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:135: g404 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* mini-srfi-1.scm:135: g404 */ f_5819(C_a_i(&a,3),t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g404 in k5813 in g394 in foldr389 in k7946 in chicken.compiler.support#db-get-all in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static C_word C_fcall f_5819(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));} /* k5835 in foldr389 in k7946 in chicken.compiler.support#db-get-all in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_5837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5837,2,av);} /* mini-srfi-1.scm:134: g394 */ t2=((C_word*)t0)[2]; f_5811(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* map-loop417 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5876(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_5876,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.support#last in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5910(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,0,2)))){ C_save_and_reclaim_args((void *)trf_5910,2,t1,t2);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5916,tmp=(C_word)a,a+=2,tmp); t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=( f_5916(t2) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in chicken.compiler.support#last in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static C_word C_fcall f_5916(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} t2=C_i_cdr(t1); if(C_truep(C_i_nullp(t2))){ t3=t1; t4=C_u_i_car(t3); return(t4);} else{ t3=t1; t4=C_u_i_cdr(t3); t6=t4; t1=t6; goto loop;}} /* chicken.compiler.support#lset-adjoin/eq? in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5969(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_5969,3,t1,t2,t3);} a=C_alloc(5); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5975,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_5975(t7,t1,t3,t2);} /* loop in chicken.compiler.support#lset-adjoin/eq? in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_5975(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_5975,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); if(C_truep(C_i_memq(t4,t3))){ t5=t2; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:160: loop */ t11=t1; t12=t6; t13=t3; t1=t11; t2=t12; t3=t13; goto loop;} else{ t5=t2; t6=C_u_i_cdr(t5); t7=t2; t8=C_u_i_car(t7); t9=C_a_i_cons(&a,2,t8,t3); /* mini-srfi-1.scm:161: loop */ t11=t1; t12=t6; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}}} /* loop in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6158(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6158,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6172,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:190: proc */ t4=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k6170 in loop in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6172,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6176,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* mini-srfi-1.scm:190: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6158(t5,t3,t4);} /* k6174 in k6170 in loop in k16521 in chicken.compiler.support#encodeable-literal? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6176,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k11940 in walk in chicken.compiler.support#expression-has-side-effects? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6271(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6271,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6284,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:216: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k6282 in loop in k11940 in walk in chicken.compiler.support#expression-has-side-effects? in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6284,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:217: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_6271(t4,((C_word*)t0)[3],t3);}} /* chicken.compiler.support#compiler-cleanup-hook in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6422,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.support#bomb in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_6426,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6440,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=t2; t5=C_u_i_car(t4); /* support.scm:117: scheme#string-append */ t6=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=lf[16]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ /* support.scm:118: chicken.base#error */ t3=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=lf[17]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k6438 in chicken.compiler.support#bomb in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6440,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[14]+1); av2[3]=t1; av2[4]=t3; C_apply(5,av2);}} /* k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(47,c,5)))){ C_save_and_reclaim((void *)f_6451,2,av);} a=C_alloc(47); t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.support#collected-debugging-output ...) */,t1); t3=C_mutate(&lf[19] /* (set! chicken.compiler.support#+logged-debugging-modes+ ...) */,lf[20]); t4=C_mutate(&lf[21] /* (set! chicken.compiler.support#test-debugging-mode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6454,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate((C_word*)lf[22]+1 /* (set! chicken.compiler.support#debugging ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6475,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate((C_word*)lf[34]+1 /* (set! chicken.compiler.support#with-debugging-output ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6595,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate((C_word*)lf[37]+1 /* (set! chicken.compiler.support#quit-compiling ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6692,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate((C_word*)lf[42]+1 /* (set! ##sys#syntax-error-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6708,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate((C_word*)lf[51]+1 /* (set! chicken.syntax#syntax-error ...) */,*((C_word*)lf[42]+1)); t10=C_mutate((C_word*)lf[52]+1 /* (set! chicken.compiler.support#emit-syntax-trace-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6805,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate((C_word*)lf[53]+1 /* (set! chicken.compiler.support#check-signature ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6859,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate((C_word*)lf[56]+1 /* (set! chicken.compiler.support#build-lambda-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6927,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate((C_word*)lf[57]+1 /* (set! chicken.compiler.support#c-ify-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6964,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate((C_word*)lf[67]+1 /* (set! chicken.compiler.support#valid-c-identifier? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7063,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate((C_word*)lf[69]+1 /* (set! chicken.compiler.support#bytes->words ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7113,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate((C_word*)lf[70]+1 /* (set! chicken.compiler.support#words->bytes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7120,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate((C_word*)lf[71]+1 /* (set! chicken.compiler.support#check-and-open-input-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7127,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate((C_word*)lf[78]+1 /* (set! chicken.compiler.support#close-checked-input-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7171,tmp=(C_word)a,a+=2,tmp)); t19=C_mutate((C_word*)lf[81]+1 /* (set! chicken.compiler.support#fold-inner ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7183,tmp=(C_word)a,a+=2,tmp)); t20=C_mutate(&lf[83] /* (set! chicken.compiler.support#follow-without-loop ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7239,tmp=(C_word)a,a+=2,tmp)); t21=C_mutate((C_word*)lf[84]+1 /* (set! chicken.compiler.support#read-expressions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7290,tmp=(C_word)a,a+=2,tmp)); t22=C_mutate((C_word*)lf[86]+1 /* (set! chicken.compiler.support#constant? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7334,tmp=(C_word)a,a+=2,tmp)); t23=C_mutate((C_word*)lf[90]+1 /* (set! chicken.compiler.support#collapsable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7396,tmp=(C_word)a,a+=2,tmp)); t24=C_mutate((C_word*)lf[91]+1 /* (set! chicken.compiler.support#immediate? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7426,tmp=(C_word)a,a+=2,tmp)); t25=C_mutate((C_word*)lf[93]+1 /* (set! chicken.compiler.support#basic-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7472,tmp=(C_word)a,a+=2,tmp)); t26=C_mutate((C_word*)lf[95]+1 /* (set! chicken.compiler.support#canonicalize-begin-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7528,tmp=(C_word)a,a+=2,tmp)); t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7603,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:351: chicken.condition#condition-predicate */ t28=*((C_word*)lf[528]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t28; av2[1]=t27; av2[2]=lf[526]; ((C_proc)(void*)(*((C_word*)t28+1)))(3,av2);}} /* chicken.compiler.support#test-debugging-mode in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6454(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_6454,3,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_symbolp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_memq(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6469,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* support.scm:128: any */ f_5544(t1,t4,t2);}} /* a6468 in chicken.compiler.support#test-debugging-mode in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6469,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_memq(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +17,c,3)))){ C_save_and_reclaim((void*)f_6475,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+17); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6478,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6543,a[2]=t2,tmp=(C_word)a,a+=3,tmp)); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6562,a[2]=t1,a[3]=t8,a[4]=t2,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* support.scm:143: test-debugging-mode */ f_6454(t11,t2,*((C_word*)lf[12]+1));} /* text in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6478(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_6478,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6484,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:132: chicken.port#with-output-to-string */ t3=*((C_word*)lf[31]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a6483 in text in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6484,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6488,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:134: scheme#display */ t3=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6486 in a6483 in text in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6488,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6491,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6500,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:136: scheme#display */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[30]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* support.scm:140: scheme#newline */ t3=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6489 in k6486 in a6483 in text in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6491,2,av);} /* support.scm:140: scheme#newline */ t2=*((C_word*)lf[23]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6498 in k6486 in a6483 in text in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6500,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6520,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_6520(t6,((C_word*)t0)[3],t2);} /* k6506 in for-each-loop685 in k6498 in k6486 in a6483 in text in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6508,2,av);} /* support.scm:138: ##sys#write-char-0 */ t2=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6513 in for-each-loop685 in k6498 in k6486 in a6483 in text in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6515,2,av);} /* support.scm:138: ##sys#print */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* for-each-loop685 in k6498 in k6486 in a6483 in text in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6520(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_6520,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6530,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=*((C_word*)lf[24]+1); t7=*((C_word*)lf[24]+1); t8=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6508,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6515,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* support.scm:138: scheme#force */ t11=*((C_word*)lf[28]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6528 in for-each-loop685 in k6498 in k6486 in a6483 in text in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6530,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6520(t3,((C_word*)t0)[4],t2);} /* dump in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6543(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_6543,3,t0,t1,t2);} a=C_alloc(5); t3=*((C_word*)lf[18]+1); t4=*((C_word*)lf[18]+1); t5=C_i_check_port_2(*((C_word*)lf[18]+1),C_fix(2),C_SCHEME_TRUE,lf[32]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6550,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:142: ##sys#print */ t7=*((C_word*)lf[27]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k6548 in dump in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6550,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6553,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:142: ##sys#write-char-0 */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(124); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6551 in k6548 in dump in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6553,2,av);} /* support.scm:142: ##sys#print */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6560 in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6562,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6565,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:144: text */ t3=((C_word*)((C_word*)t0)[5])[1]; f_6478(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6583,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6586,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* support.scm:151: test-debugging-mode */ f_6454(t3,((C_word*)t0)[4],lf[19]);}} /* k6563 in k6560 in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6565,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6568,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* support.scm:145: scheme#display */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6566 in k6563 in k6560 in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6568,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6571,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* support.scm:146: chicken.base#flush-output */ t3=*((C_word*)lf[33]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6569 in k6566 in k6563 in k6560 in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6571,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6574,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6577,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* support.scm:147: test-debugging-mode */ f_6454(t3,((C_word*)t0)[5],lf[19]);} /* k6572 in k6569 in k6566 in k6563 in k6560 in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6574,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6575 in k6569 in k6566 in k6563 in k6560 in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6577,2,av);} if(C_truep(t1)){ /* support.scm:148: dump */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6543(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6581 in k6560 in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6583,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6584 in k6560 in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6586,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6593,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:152: text */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6478(t3,t2);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6591 in k6584 in k6560 in chicken.compiler.support#debugging in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6593,2,av);} /* support.scm:152: dump */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6543(t2,((C_word*)t0)[3],t1);} /* chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6595,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6598,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6659,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* support.scm:163: test-debugging-mode */ f_6454(t5,t2,*((C_word*)lf[12]+1));} /* collect in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6598(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_6598,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6600,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6627,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:162: chicken.string#string-split */ t5=*((C_word*)lf[35]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[36]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* g737 in collect in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6600(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_6600,3,t0,t1,t2);} a=C_alloc(5); t3=*((C_word*)lf[18]+1); t4=*((C_word*)lf[18]+1); t5=C_i_check_port_2(*((C_word*)lf[18]+1),C_fix(2),C_SCHEME_TRUE,lf[32]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6607,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t7=((C_word*)t0)[2]; t8=C_u_i_car(t7); /* support.scm:159: ##sys#print */ t9=*((C_word*)lf[27]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t6; av2[2]=t8; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t7=((C_word*)t0)[2]; /* support.scm:159: ##sys#print */ t8=*((C_word*)lf[27]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* k6605 in g737 in collect in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6607,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6610,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:159: ##sys#write-char-0 */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(124); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6608 in k6605 in g737 in collect in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6610,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6613,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:159: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6611 in k6608 in k6605 in g737 in collect in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6613,2,av);} /* support.scm:159: ##sys#write-char-0 */ t2=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6625 in collect in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6627,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6632,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_6632(t5,((C_word*)t0)[3],t1);} /* for-each-loop736 in k6625 in collect in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6632(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6632,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6642,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:157: g737 */ t5=((C_word*)t0)[3]; f_6600(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6640 in for-each-loop736 in k6625 in collect in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6642(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6642,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6632(t3,((C_word*)t0)[4],t2);} /* k6657 in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6659,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6662,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:164: chicken.port#with-output-to-string */ t3=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* support.scm:169: test-debugging-mode */ f_6454(t2,((C_word*)t0)[4],lf[19]);}} /* k6660 in k6657 in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6662,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6665,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* support.scm:165: scheme#display */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6663 in k6660 in k6657 in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6665,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6668,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* support.scm:166: chicken.base#flush-output */ t3=*((C_word*)lf[33]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6666 in k6663 in k6660 in k6657 in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6668,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6674,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:167: test-debugging-mode */ f_6454(t2,((C_word*)t0)[5],lf[19]);} /* k6672 in k6666 in k6663 in k6660 in k6657 in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6674,2,av);} if(C_truep(t1)){ /* support.scm:168: collect */ t2=((C_word*)t0)[2]; f_6598(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6681 in k6657 in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6683,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:170: chicken.port#with-output-to-string */ t3=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6688 in k6681 in k6657 in chicken.compiler.support#with-debugging-output in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6690,2,av);} /* support.scm:170: collect */ t2=((C_word*)t0)[2]; f_6598(t2,((C_word*)t0)[3],t1);} /* chicken.compiler.support#quit-compiling in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,3)))){ C_save_and_reclaim((void*)f_6692,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=*((C_word*)lf[38]+1); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6696,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6706,a[2]=t5,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:174: scheme#string-append */ t7=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=lf[41]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k6694 in chicken.compiler.support#quit-compiling in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6696,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6699,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:175: scheme#newline */ t3=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6697 in k6694 in chicken.compiler.support#quit-compiling in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6699,2,av);} /* support.scm:176: chicken.base#exit */ t2=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6704 in chicken.compiler.support#quit-compiling in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6706,2,av);}{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[40]+1); av2[3]=((C_word*)t0)[3]; av2[4]=t1; av2[5]=((C_word*)t0)[4]; C_apply(6,av2);}} /* ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,2)))){ C_save_and_reclaim((void*)f_6708,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t6=*((C_word*)lf[38]+1); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6712,a[2]=t6,a[3]=t5,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_symbolp(((C_word*)t4)[1]))){ t8=((C_word*)t4)[1]; t9=C_i_car(((C_word*)t5)[1]); t10=C_set_block_item(t4,0,t9); t11=C_i_cdr(((C_word*)t5)[1]); t12=C_set_block_item(t5,0,t11); t13=t7; f_6712(t13,t8);} else{ t8=t7; f_6712(t8,C_SCHEME_FALSE);}} /* k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6712(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_6712,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6715,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t4=((C_word*)t0)[2]; t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[32]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6761,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* support.scm:187: ##sys#print */ t7=*((C_word*)lf[27]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=lf[49]; av2[3]=C_SCHEME_FALSE; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t4=((C_word*)t0)[2]; t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[32]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6782,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* support.scm:188: ##sys#print */ t7=*((C_word*)lf[27]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=lf[50]; av2[3]=C_SCHEME_FALSE; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k6713 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_6715,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6716,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_i_check_list_2(t3,lf[44]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6726,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6734,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_6734(t9,t5,t3);} /* g781 in k6713 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6716(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_6716,3,t0,t1,t2);} /* support.scm:189: g814 */ t3=*((C_word*)lf[40]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[43]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6724 in k6713 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_6726,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6729,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:190: chicken.base#print-call-chain */ t3=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(0); av2[4]=*((C_word*)lf[46]+1); av2[5]=lf[47]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k6727 in k6724 in k6713 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6729,2,av);} /* support.scm:191: chicken.base#exit */ t2=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(70); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* for-each-loop780 in k6713 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6734(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6734,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6744,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:189: g781 */ t5=((C_word*)t0)[3]; f_6716(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6742 in for-each-loop780 in k6713 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6744,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6734(t3,((C_word*)t0)[4],t2);} /* k6759 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_6761,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6764,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:187: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6762 in k6759 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_6764,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:187: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[48]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6765 in k6762 in k6759 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6767,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6770,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:187: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6768 in k6765 in k6762 in k6759 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6770,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6773,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:187: ##sys#write-char-0 */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6771 in k6768 in k6765 in k6762 in k6759 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6773,2,av);} /* support.scm:187: ##sys#write-char-0 */ t2=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6780 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6782,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6785,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:188: ##sys#print */ t3=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6783 in k6780 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6785,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6788,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:188: ##sys#write-char-0 */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6786 in k6783 in k6780 in k6710 in ##sys#syntax-error-hook in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6788,2,av);} /* support.scm:188: ##sys#write-char-0 */ t2=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.support#emit-syntax-trace-info in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6805,4,av);} t4=*((C_word*)lf[46]+1); t5=C_slot(*((C_word*)lf[46]+1),C_fix(14)); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_emit_syntax_trace_info(t2,t3,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* loop in k6868 in err in chicken.compiler.support#check-signature in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6824(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6824,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ /* support.scm:204: proc */ t3=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6847,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* support.scm:205: proc */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}} /* k6845 in loop in k6868 in err in chicken.compiler.support#check-signature in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6847,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6851,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* support.scm:205: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_6824(t6,t3,t5);} /* k6849 in k6845 in loop in k6868 in err in chicken.compiler.support#check-signature in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6851,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.support#check-signature in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_6859,5,av);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6862,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6883,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_6883(t9,t1,t3,t4);} /* err in chicken.compiler.support#check-signature in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6862(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_6862,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6870,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:212: real-name */ t3=*((C_word*)lf[55]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6868 in err in chicken.compiler.support#check-signature in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6870,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6874,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[3]); t5=*((C_word*)lf[55]+1); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6824,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_6824(t9,t3,t4);} /* k6872 in k6868 in err in chicken.compiler.support#check-signature in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6874,2,av);} /* support.scm:210: quit-compiling */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[54]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* loop in chicken.compiler.support#check-signature in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6883(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_6883,4,t0,t1,t2,t3);} if(C_truep(C_i_nullp(t3))){ if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* support.scm:215: err */ t4=((C_word*)t0)[2]; f_6862(t4,t1);}} else{ t4=C_i_symbolp(t3); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t2))){ /* support.scm:217: err */ t5=((C_word*)t0)[2]; f_6862(t5,t1);} else{ t5=C_i_cdr(t2); t6=C_i_cdr(t3); /* support.scm:218: loop */ t8=t1; t9=t5; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}}}} /* chicken.compiler.support#build-lambda-list in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6927,5,av);} a=C_alloc(6); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6933,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_6933(t8,t1,t2,t3);} /* loop in chicken.compiler.support#build-lambda-list in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6933(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(33,0,3)))){ C_save_and_reclaim_args((void *)trf_6933,4,t0,t1,t2,t3);} a=C_alloc(33); t4=t3; t5=C_i_zerop(t4); t6=(C_truep(t5)?t5:C_i_nullp(t2)); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=(C_truep(t7)?t7:C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_i_car(t2); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6955,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=t2; t11=C_u_i_cdr(t10); t12=t3; t13=C_s_a_i_minus(&a,2,t12,C_fix(1)); /* support.scm:226: loop */ t15=t9; t16=t11; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;}} /* k6953 in loop in chicken.compiler.support#build-lambda-list in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6955,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.support#c-ify-string in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6964,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6976,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6980,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#string->list */ t5=*((C_word*)lf[62]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6974 in chicken.compiler.support#c-ify-string in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6976,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(34),t1); /* ##sys#list->string */ t3=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6978 in chicken.compiler.support#c-ify-string in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_6980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6980,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6982,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_6982(t5,((C_word*)t0)[2],t1);} /* loop in k6978 in chicken.compiler.support#c-ify-string in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_6982(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_6982,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=lf[59]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=C_fix(C_character_code(t4)); t6=t5; t7=C_fixnum_lessp(t6,C_fix(32)); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7004,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=t4,tmp=(C_word)a,a+=7,tmp); if(C_truep(t7)){ t9=t8; f_7004(t9,t7);} else{ t9=C_fixnum_greater_or_equal_p(t6,C_fix(127)); if(C_truep(t9)){ t10=t8; f_7004(t10,t9);} else{ t10=C_u_i_memq(t4,lf[66]); t11=t8; f_7004(t11,t10);}}}} /* k7002 in loop in k6978 in chicken.compiler.support#c-ify-string in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7004(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7004,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7011,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_lessp(((C_word*)t0)[5],C_fix(8)))){ t3=t2; f_7011(t3,lf[64]);} else{ t3=C_fixnum_lessp(((C_word*)t0)[5],C_fix(64)); t4=t2; f_7011(t4,(C_truep(t3)?lf[65]:C_SCHEME_END_OF_LIST));}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7047,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* support.scm:245: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6982(t5,t2,t4);}} /* k7009 in k7002 in loop in k6978 in chicken.compiler.support#c-ify-string in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7011(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_7011,2,t0,t1);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7015,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7025,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#fixnum->string */ t5=*((C_word*)lf[63]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(8); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7013 in k7009 in k7002 in loop in k6978 in chicken.compiler.support#c-ify-string in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7015,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7019,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); /* support.scm:244: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_6982(t6,t3,t5);} /* k7017 in k7013 in k7009 in k7002 in loop in k6978 in chicken.compiler.support#c-ify-string in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7019,2,av);} /* support.scm:239: scheme#append */ t2=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[61]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k7023 in k7009 in k7002 in loop in k6978 in chicken.compiler.support#c-ify-string in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7025,2,av);} /* ##sys#string->list */ t2=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7045 in k7002 in loop in k6978 in chicken.compiler.support#c-ify-string in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7047,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.support#valid-c-identifier? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7063,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7067,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7111,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* support.scm:249: chicken.string#->string */ t5=*((C_word*)lf[68]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7065 in chicken.compiler.support#valid-c-identifier? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){ C_save_and_reclaim((void *)f_7067,2,av);} a=C_alloc(2); if(C_truep(C_i_pairp(t1))){ t2=C_u_i_car(t1); t3=C_u_i_char_alphabeticp(t2); t4=(C_truep(t3)?t3:C_u_i_char_equalp(C_make_character(95),t2)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7088,tmp=(C_word)a,a+=2,tmp); t6=C_u_i_cdr(t1); /* support.scm:253: every */ f_5510(((C_word*)t0)[2],t5,t6);} else{ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a7087 in k7065 in chicken.compiler.support#valid-c-identifier? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7088,3,av);} t3=C_u_i_char_alphabeticp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_u_i_char_numericp(t2); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t2; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_u_i_char_equalp(C_make_character(95),t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* k7109 in chicken.compiler.support#valid-c-identifier? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7111,2,av);} /* ##sys#string->list */ t2=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.compiler.support#bytes->words in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7113,3,av);} t3=C_i_foreign_fixnum_argumentp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=stub910(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#words->bytes in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7120,3,av);} t3=C_i_foreign_fixnum_argumentp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=stub915(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#check-and-open-input-file in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_7127,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; if(C_truep(C_i_string_equal_p(t2,lf[72]))){ t4=*((C_word*)lf[73]+1); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=*((C_word*)lf[73]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7140,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:263: chicken.file#file-exists? */ t5=*((C_word*)lf[77]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k7138 in chicken.compiler.support#check-and-open-input-file in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7140,2,av);} a=C_alloc(5); if(C_truep(t1)){ /* support.scm:263: scheme#open-input-file */ t2=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_i_nullp(((C_word*)t0)[4]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7152,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t4=t3; f_7152(t4,t2);} else{ t4=C_i_car(((C_word*)t0)[4]); t5=t3; f_7152(t5,C_i_not(t4));}}} /* k7150 in k7138 in chicken.compiler.support#check-and-open-input-file in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7152(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_7152,2,t0,t1);} if(C_truep(t1)){ /* support.scm:265: quit-compiling */ t2=*((C_word*)lf[37]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[75]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_i_car(((C_word*)t0)[4]); /* support.scm:266: quit-compiling */ t3=*((C_word*)lf[37]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[76]; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* chicken.compiler.support#close-checked-input-file in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7171,4,av);} if(C_truep(C_i_string_equal_p(t3,lf[79]))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* support.scm:269: scheme#close-input-port */ t4=*((C_word*)lf[80]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* chicken.compiler.support#fold-inner in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7183,4,av);} a=C_alloc(4); t4=C_i_cdr(t3); if(C_truep(C_i_nullp(t4))){ t5=t3; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7197,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:274: scheme#reverse */ t6=*((C_word*)lf[82]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k7195 in chicken.compiler.support#fold-inner in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7197,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7199,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_7199(t5,((C_word*)t0)[3],t1);} /* fold in k7195 in chicken.compiler.support#fold-inner in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7199(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7199,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_cddr(t2); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=C_u_i_cdr(t4); t6=C_u_i_car(t5); t7=t2; t8=C_u_i_car(t7); t9=C_a_i_list2(&a,2,t6,t8);{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t9; C_apply(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7225,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=t2; t6=C_u_i_cdr(t5); /* support.scm:279: fold */ t11=t4; t12=t6; t1=t11; t2=t12; goto loop;}} /* k7223 in fold in k7195 in chicken.compiler.support#fold-inner in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7225,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_list2(&a,2,t1,t3);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t4; C_apply(4,av2);}} /* chicken.compiler.support#follow-without-loop in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7239(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_7239,4,t1,t2,t3,t4);} a=C_alloc(7); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7245,a[2]=t4,a[3]=t6,a[4]=t3,tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_7245(t8,t1,t2,C_SCHEME_END_OF_LIST);} /* loop in chicken.compiler.support#follow-without-loop in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7245(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7245,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_member(t2,t3))){ /* support.scm:284: abort */ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7260,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* support.scm:285: proc */ t5=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* a7259 in loop in chicken.compiler.support#follow-without-loop in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7260,3,av);} a=C_alloc(3); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* support.scm:285: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_7245(t4,t1,t2,t3);} /* a7275 in k11370 in k11364 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7276,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7284,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:288: scheme#symbol->string */ t5=*((C_word*)lf[223]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7282 in a7275 in k11370 in k11364 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7284,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7288,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:288: scheme#symbol->string */ t4=*((C_word*)lf[223]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7286 in k7282 in a7275 in k11370 in k11364 in k11361 in chicken.compiler.support#emit-global-inline-file in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7288,2,av);} /* support.scm:288: scheme#string= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.support#read-expressions in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_7290,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=C_i_nullp(t2); t4=(C_truep(t3)?*((C_word*)lf[73]+1):C_i_car(t2)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7301,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:291: scheme#read */ t7=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7299 in chicken.compiler.support#read-expressions in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_7301,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7303,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_7303(t5,((C_word*)t0)[3],t1,C_fix(0),C_SCHEME_END_OF_LIST);} /* doloop961 in k7299 in chicken.compiler.support#read-expressions in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7303(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_7303,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_eofp(t2))){ /* support.scm:294: scheme#reverse */ t5=*((C_word*)lf[82]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7320,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* support.scm:291: scheme#read */ t6=*((C_word*)lf[85]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k7318 in doloop961 in k7299 in chicken.compiler.support#read-expressions in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_7320,2,av);} a=C_alloc(32); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); t4=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t5=((C_word*)((C_word*)t0)[5])[1]; f_7303(t5,((C_word*)t0)[6],t1,t3,t4);} /* chicken.compiler.support#constant? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7334,3,av);} a=C_alloc(4); t3=C_i_numberp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_charp(t2); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_stringp(t2); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_booleanp(t2); if(C_truep(t6)){ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eofp(t2); if(C_truep(t7)){ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7368,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:305: chicken.blob#blob? */ t9=*((C_word*)lf[89]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}}}} /* k7366 in chicken.compiler.support#constant? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7368,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_vectorp(((C_word*)t0)[3]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7380,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:307: ##sys#srfi-4-vector? */ t4=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}} /* k7378 in k7366 in chicken.compiler.support#constant? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7380,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(lf[87],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* chicken.compiler.support#collapsable-literal? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7396,3,av);} t3=C_booleanp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_charp(t2); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eofp(t2); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_numberp(t2); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=(C_truep(t6)?t6:C_i_symbolp(t2)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}} /* chicken.compiler.support#immediate? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7426,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7430,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnump(t2))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7470,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* support.scm:318: big-fixnum? */ t5=*((C_word*)lf[92]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3; f_7430(t4,C_SCHEME_FALSE);}} /* k7428 in chicken.compiler.support#immediate? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7430(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_7430,2,t0,t1);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_eqp(C_SCHEME_UNDEFINED,((C_word*)t0)[3]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_nullp(((C_word*)t0)[3]); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eofp(((C_word*)t0)[3]); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_charp(((C_word*)t0)[3]); t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(t5)?t5:C_booleanp(((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}} /* k7468 in chicken.compiler.support#immediate? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7470,2,av);} t2=((C_word*)t0)[2]; f_7430(t2,C_i_not(t1));} /* chicken.compiler.support#basic-literal? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7472,3,av);} a=C_alloc(4); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_symbolp(t2); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7488,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:328: constant? */ t6=*((C_word*)lf[86]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} /* k7486 in chicken.compiler.support#basic-literal? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7488,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7494,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7526,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:329: scheme#vector->list */ t4=*((C_word*)lf[94]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_7494(2,av2);}}}} /* k7492 in k7486 in chicken.compiler.support#basic-literal? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7494,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7509,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); /* support.scm:331: basic-literal? */ t5=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* k7507 in k7492 in k7486 in chicken.compiler.support#basic-literal? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7509,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* support.scm:332: basic-literal? */ t4=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7524 in k7486 in chicken.compiler.support#basic-literal? in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7526,2,av);} /* support.scm:329: every */ f_5510(((C_word*)t0)[2],*((C_word*)lf[93]+1),t1);} /* chicken.compiler.support#canonicalize-begin-body in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7528,3,av);} a=C_alloc(5); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7534,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_7534(t6,t1,t2);} /* loop in chicken.compiler.support#canonicalize-begin-body in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7534(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_7534,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=lf[96]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_cdr(t2); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_u_i_car(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t2; t5=C_u_i_car(t4); t6=C_i_equalp(t5,lf[97]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7558,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t6)){ t8=t7; f_7558(t8,t6);} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7589,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* support.scm:343: constant? */ t9=*((C_word*)lf[86]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}} /* k7556 in loop in chicken.compiler.support#canonicalize-begin-body in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7558(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7558,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* support.scm:345: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7534(t4,((C_word*)t0)[4],t3);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7584,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* support.scm:346: chicken.base#gensym */ t3=*((C_word*)lf[99]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[100]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k7572 in k7582 in k7556 in loop in chicken.compiler.support#canonicalize-begin-body in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_7574,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[98],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7582 in k7556 in loop in chicken.compiler.support#canonicalize-begin-body in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7584,2,av);} a=C_alloc(13); t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_list(&a,2,t1,t3); t5=C_a_i_list(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7574,a[2]=((C_word*)t0)[3],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); /* support.scm:347: loop */ t10=((C_word*)((C_word*)t0)[4])[1]; f_7534(t10,t7,t9);} /* k7587 in loop in chicken.compiler.support#canonicalize-begin-body in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7589,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_7558(t3,t2);} else{ t2=((C_word*)t0)[2]; f_7558(t2,C_i_equalp(((C_word*)t0)[3],lf[101]));}} /* k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7603,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7606,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* support.scm:352: chicken.condition#condition-property-accessor */ t4=*((C_word*)lf[525]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[526]; av2[3]=lf[527]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(51,c,6)))){ C_save_and_reclaim((void *)f_7606,2,av);} a=C_alloc(51); t2=t1; t3=C_mutate((C_word*)lf[102]+1 /* (set! chicken.compiler.support#string->expr ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7607,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t4=C_mutate((C_word*)lf[110]+1 /* (set! chicken.compiler.support#llist-length ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7725,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate((C_word*)lf[111]+1 /* (set! chicken.compiler.support#llist-match? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7728,tmp=(C_word)a,a+=2,tmp)); t6=lf[112] /* chicken.compiler.support#profile-info-vector-name */ =C_SCHEME_FALSE;; t7=C_mutate((C_word*)lf[113]+1 /* (set! chicken.compiler.support#reset-profile-info-vector-name! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7773,tmp=(C_word)a,a+=2,tmp)); t8=lf[116] /* chicken.compiler.support#profile-lambda-list */ =C_SCHEME_END_OF_LIST;; t9=lf[117] /* chicken.compiler.support#profile-lambda-index */ =C_fix(0);; t10=C_mutate((C_word*)lf[118]+1 /* (set! chicken.compiler.support#expand-profile-lambda ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7782,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate((C_word*)lf[124]+1 /* (set! chicken.compiler.support#profiling-prelude-exps ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7837,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate((C_word*)lf[129]+1 /* (set! chicken.compiler.support#db-get ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7926,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate((C_word*)lf[131]+1 /* (set! chicken.compiler.support#db-get-all ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7944,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate((C_word*)lf[133]+1 /* (set! chicken.compiler.support#db-put! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7962,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate((C_word*)lf[135]+1 /* (set! chicken.compiler.support#collect! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8008,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate((C_word*)lf[136]+1 /* (set! chicken.compiler.support#db-get-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8060,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate((C_word*)lf[137]+1 /* (set! chicken.compiler.support#get-line ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8069,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate((C_word*)lf[139]+1 /* (set! chicken.compiler.support#get-line-2 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8079,tmp=(C_word)a,a+=2,tmp)); t19=C_mutate((C_word*)lf[140]+1 /* (set! chicken.compiler.support#display-line-number-database ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8120,tmp=(C_word)a,a+=2,tmp)); t20=C_mutate((C_word*)lf[142]+1 /* (set! chicken.compiler.support#make-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8192,tmp=(C_word)a,a+=2,tmp)); t21=C_mutate((C_word*)lf[144]+1 /* (set! chicken.compiler.support#node? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8198,tmp=(C_word)a,a+=2,tmp)); t22=C_mutate((C_word*)lf[145]+1 /* (set! chicken.compiler.support#node-class ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8204,tmp=(C_word)a,a+=2,tmp)); t23=C_mutate((C_word*)lf[147]+1 /* (set! chicken.compiler.support#node-class-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8213,tmp=(C_word)a,a+=2,tmp)); t24=C_mutate((C_word*)lf[149]+1 /* (set! chicken.compiler.support#node-parameters ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8222,tmp=(C_word)a,a+=2,tmp)); t25=C_mutate((C_word*)lf[151]+1 /* (set! chicken.compiler.support#node-parameters-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8231,tmp=(C_word)a,a+=2,tmp)); t26=C_mutate((C_word*)lf[152]+1 /* (set! chicken.compiler.support#node-subexpressions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8240,tmp=(C_word)a,a+=2,tmp)); t27=C_mutate((C_word*)lf[154]+1 /* (set! chicken.compiler.support#node-subexpressions-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8249,tmp=(C_word)a,a+=2,tmp)); t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8259,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t29=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17271,tmp=(C_word)a,a+=2,tmp); /* support.scm:482: ##sys#register-record-printer */ t30=*((C_word*)lf[524]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t30; av2[1]=t28; av2[2]=lf[143]; av2[3]=t29; ((C_proc)(void*)(*((C_word*)t30+1)))(4,av2);}} /* chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_7607,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7611,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7616,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* support.scm:354: scheme#call-with-current-continuation */ t5=*((C_word*)lf[109]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7609 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7611,2,av);} /* support.scm:353: g1069 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7616,3,av);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7622,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7647,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:354: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a7621 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7622,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7628,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* support.scm:354: k1066 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a7627 in a7621 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7628,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7636,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7639,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:357: exn? */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7634 in a7627 in a7621 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7636,2,av);} /* support.scm:355: quit-compiling */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7637 in a7627 in a7621 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7639,2,av);} if(C_truep(t1)){ /* support.scm:358: exn-msg */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ /* support.scm:359: chicken.string#->string */ t2=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* a7646 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7647,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7649,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7706,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7723,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp14742 */ t5=t2; f_7649(t5,t4);} /* tmp14742 in a7646 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7649(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7649,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7653,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7675,tmp=(C_word)a,a+=2,tmp); /* support.scm:360: chicken.port#with-input-from-string */ t4=*((C_word*)lf[107]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7651 in tmp14742 in a7646 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7653,2,av);} a=C_alloc(3); if(C_truep(C_i_nullp(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[104]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_cdr(t1); t3=C_i_nullp(t2); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?C_u_i_car(t1):C_a_i_cons(&a,2,lf[105],t1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a7674 in tmp14742 in a7646 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7675,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7681,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_7681(t5,t1,C_SCHEME_END_OF_LIST);} /* loop in a7674 in tmp14742 in a7646 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7681(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7681,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7685,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* support.scm:364: scheme#read */ t4=*((C_word*)lf[85]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7683 in loop in a7674 in tmp14742 in a7646 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7685,2,av);} a=C_alloc(3); if(C_truep(C_eofp(t1))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7698,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:366: scheme#reverse */ t3=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); /* support.scm:367: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_7681(t3,((C_word*)t0)[2],t2);}} /* k7696 in k7683 in loop in a7674 in tmp14742 in a7646 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7698,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[106]+1); av2[3]=t1; C_apply(4,av2);}} /* tmp24743 in a7646 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7706(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_7706,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7712,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* support.scm:354: k1066 */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a7711 in tmp24743 in a7646 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7712,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k7721 in a7646 in a7615 in chicken.compiler.support#string->expr in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7723,2,av);} a=C_alloc(3); /* tmp24743 */ t2=((C_word*)t0)[2]; f_7706(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* chicken.compiler.support#llist-length in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7725,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#llist-match? in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){ C_save_and_reclaim((void *)f_7728,4,av);} a=C_alloc(2); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7734,tmp=(C_word)a,a+=2,tmp); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=( f_7734(t2,t3) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* loop in chicken.compiler.support#llist-match? in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static C_word C_fcall f_7734(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t1))){ return(C_i_nullp(t2));} else{ t3=C_i_symbolp(t1); if(C_truep(t3)){ return(t3);} else{ if(C_truep(C_i_nullp(t2))){ return(C_i_not_pair_p(t1));} else{ t4=C_i_cdr(t1); t5=C_i_cdr(t2); t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}}}} /* chicken.compiler.support#reset-profile-info-vector-name! in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7773,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7778,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:388: make-random-name */ t3=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[115]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7776 in chicken.compiler.support#reset-profile-info-vector-name! in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7778,2,av);} t2=C_mutate(&lf[112] /* (set! chicken.compiler.support#profile-info-vector-name ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#expand-profile-lambda in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7782,5,av);} a=C_alloc(7); t5=lf[117]; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7786,a[2]=t2,a[3]=t5,a[4]=t3,a[5]=t4,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* support.scm:395: chicken.base#gensym */ t7=*((C_word*)lf[99]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k7784 in chicken.compiler.support#expand-profile-lambda in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(131,c,1)))){ C_save_and_reclaim((void *)f_7786,2,av);} a=C_alloc(131); t2=((C_word*)t0)[2]; t3=lf[116]; t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t5=C_a_i_cons(&a,2,t4,lf[116]); t6=C_mutate(&lf[116] /* (set! chicken.compiler.support#profile-lambda-list ...) */,t5); t7=C_mutate(&lf[117] /* (set! chicken.compiler.support#profile-lambda-index ...) */,C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1))); t8=C_a_i_list(&a,2,lf[87],((C_word*)t0)[3]); t9=C_a_i_list(&a,3,lf[119],t8,lf[112]); t10=C_a_i_list(&a,3,lf[120],C_SCHEME_END_OF_LIST,t9); t11=C_a_i_list(&a,3,lf[120],((C_word*)t0)[4],((C_word*)t0)[5]); t12=C_a_i_list(&a,3,lf[121],t11,t1); t13=C_a_i_list(&a,3,lf[120],C_SCHEME_END_OF_LIST,t12); t14=C_a_i_list(&a,2,lf[87],((C_word*)t0)[3]); t15=C_a_i_list(&a,3,lf[122],t14,lf[112]); t16=C_a_i_list(&a,3,lf[120],C_SCHEME_END_OF_LIST,t15); t17=C_a_i_list(&a,4,lf[123],t10,t13,t16); t18=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t18; av2[1]=C_a_i_list(&a,3,lf[120],t1,t17); ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} /* chicken.compiler.support#profiling-prelude-exps in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(46,c,3)))){ C_save_and_reclaim((void *)f_7837,3,av);} a=C_alloc(46); t3=C_i_length(lf[116]); t4=C_a_i_list(&a,2,lf[87],t3); t5=C_a_i_list(&a,2,lf[87],t2); t6=C_a_i_list(&a,3,lf[125],t4,t5); t7=C_a_i_list(&a,3,lf[126],lf[112],t6); t8=t7; t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=lf[116]; t14=C_i_check_list_2(lf[116],lf[127]); t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7874,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7876,a[2]=t11,a[3]=t17,a[4]=t12,tmp=(C_word)a,a+=5,tmp)); t19=((C_word*)t17)[1]; f_7876(t19,t15,lf[116]);} /* k7872 in chicken.compiler.support#profiling-prelude-exps in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7874,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop1124 in chicken.compiler.support#profiling-prelude-exps in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_7876(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(27,0,2)))){ C_save_and_reclaim_args((void *)trf_7876,3,t0,t1,t2);} a=C_alloc(27); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_list(&a,2,lf[87],t4); t6=C_u_i_cdr(t3); t7=C_a_i_list(&a,2,lf[87],t6); t8=C_a_i_list(&a,4,lf[128],lf[112],t5,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t14=t1; t15=t12; t1=t14; t2=t15; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.support#db-get in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7926,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7930,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* support.scm:420: chicken.internal#hash-table-ref */ t6=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k7928 in chicken.compiler.support#db-get in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7930,2,av);} if(C_truep(t1)){ t2=C_i_assq(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?C_slot(t2,C_fix(1)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.compiler.support#db-get-all in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_7944,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7948,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* support.scm:426: chicken.internal#hash-table-ref */ t6=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k7946 in chicken.compiler.support#db-get-all in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_7948,2,av);} a=C_alloc(9); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7956,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[2]; t5=t3; t6=((C_word*)t0)[3]; t7=C_i_check_list_2(t6,lf[132]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5803,a[2]=t5,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_5803(t11,t4,t6);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a7955 in k7946 in chicken.compiler.support#db-get-all in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7956,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_assq(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#db-put! in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7962,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7966,a[2]=t4,a[3]=t1,a[4]=t5,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* support.scm:432: chicken.internal#hash-table-ref */ t7=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k7964 in chicken.compiler.support#db-put! in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_7966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_7966,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_setslot(t2,C_fix(1),((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ t3=C_slot(t1,C_fix(1)); t4=((C_word*)t0)[2]; t5=((C_word*)t0)[4]; t6=C_a_i_cons(&a,2,t4,t5); t7=C_a_i_cons(&a,2,t6,t3); t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_setslot(t1,C_fix(1),t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} else{ if(C_truep(((C_word*)t0)[4])){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]); t3=C_a_i_list1(&a,1,t2); /* support.scm:437: chicken.internal#hash-table-set! */ t4=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* chicken.compiler.support#collect! in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_8008,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8012,a[2]=t4,a[3]=t5,a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* support.scm:440: chicken.internal#hash-table-ref */ t7=*((C_word*)lf[130]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k8010 in chicken.compiler.support#collect! in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_8012,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=C_slot(t2,C_fix(1)); t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_setslot(t2,C_fix(1),t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=C_a_i_list1(&a,1,((C_word*)t0)[3]); t4=C_slot(t1,C_fix(1)); t5=((C_word*)t0)[2]; t6=C_a_i_cons(&a,2,t5,t3); t7=C_a_i_cons(&a,2,t6,t4); t8=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_setslot(t1,C_fix(1),t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_list1(&a,1,t2); /* support.scm:445: chicken.internal#hash-table-set! */ t4=*((C_word*)lf[134]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* chicken.compiler.support#db-get-list in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_8060,5,av);} a=C_alloc(3); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8064,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* support.scm:448: db-get */ t6=*((C_word*)lf[129]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=t3; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k8062 in chicken.compiler.support#db-get-list in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8064,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.compiler.support#get-line in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8069,3,av);} t3=C_i_car(t2); /* support.scm:455: db-get */ t4=*((C_word*)lf[129]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=*((C_word*)lf[138]+1); av2[3]=t3; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* chicken.compiler.support#get-line-2 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_8079,3,av);} a=C_alloc(5); t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8086,a[2]=t1,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* support.scm:459: chicken.internal#hash-table-ref */ t6=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[138]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k8084 in chicken.compiler.support#get-line-2 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8086,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8089,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t4=C_i_cdr(t2); t5=t3; f_8089(t5,C_i_assq(((C_word*)t0)[4],t4));} else{ t4=t3; f_8089(t4,C_SCHEME_FALSE);}} /* k8087 in k8084 in chicken.compiler.support#get-line-2 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8089(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_8089,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8093,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:460: g1207 */ t3=t2; f_8093(t3,((C_word*)t0)[3],t1);} else{ /* support.scm:462: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} /* g1207 in k8087 in k8084 in chicken.compiler.support#get-line-2 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8093(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_8093,3,t0,t1,t2);} t3=C_i_car(((C_word*)t0)[2]); t4=C_i_cdr(t2); /* support.scm:461: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_values(4,av2);}} /* chicken.compiler.support#display-line-number-database in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_8120,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8126,tmp=(C_word)a,a+=2,tmp); /* support.scm:465: chicken.internal#hash-table-for-each */ t3=*((C_word*)lf[141]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=*((C_word*)lf[138]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a8125 in chicken.compiler.support#display-line-number-database in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_8126,4,av);} a=C_alloc(5); if(C_truep(t3)){ t4=*((C_word*)lf[24]+1); t5=*((C_word*)lf[24]+1); t6=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8136,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* support.scm:467: ##sys#print */ t8=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[24]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k8134 in a8125 in chicken.compiler.support#display-line-number-database in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_8136,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8139,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* support.scm:467: ##sys#write-char-0 */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8137 in k8134 in a8125 in chicken.compiler.support#display-line-number-database in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_8139,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8142,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[4]; t8=C_i_check_list_2(t7,lf[127]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8155,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8157,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_8157(t13,t9,t7);} /* k8140 in k8137 in k8134 in a8125 in chicken.compiler.support#display-line-number-database in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8142,2,av);} /* support.scm:467: ##sys#write-char-0 */ t2=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k8153 in k8137 in k8134 in a8125 in chicken.compiler.support#display-line-number-database in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8155,2,av);} /* support.scm:467: ##sys#print */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1219 in k8137 in k8134 in a8125 in chicken.compiler.support#display-line-number-database in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8157(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_8157,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.support#make-node in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8192,5,av);} a=C_alloc(5); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[143],t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.compiler.support#node? in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8198,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_structurep(t2,lf[143]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.support#node-class in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8204,3,av);} t3=C_i_check_structure_2(t2,lf[143],lf[146]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#node-class-set! in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8213,4,av);} t4=C_i_check_structure_2(t2,lf[143],C_SCHEME_FALSE); /* support.scm:475: ##sys#block-set! */ t5=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(1); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* chicken.compiler.support#node-parameters in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8222,3,av);} t3=C_i_check_structure_2(t2,lf[143],lf[150]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#node-parameters-set! in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8231,4,av);} t4=C_i_check_structure_2(t2,lf[143],C_SCHEME_FALSE); /* support.scm:475: ##sys#block-set! */ t5=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(2); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* chicken.compiler.support#node-subexpressions in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8240,3,av);} t3=C_i_check_structure_2(t2,lf[143],lf[153]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#node-subexpressions-set! in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8249,4,av);} t4=C_i_check_structure_2(t2,lf[143],C_SCHEME_FALSE); /* support.scm:475: ##sys#block-set! */ t5=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(3); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(156,c,8)))){ C_save_and_reclaim((void *)f_8259,2,av);} a=C_alloc(156); t2=C_mutate((C_word*)lf[142]+1 /* (set! chicken.compiler.support#make-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8261,tmp=(C_word)a,a+=2,tmp)); t3=C_mutate((C_word*)lf[155]+1 /* (set! chicken.compiler.support#varnode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8267,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate((C_word*)lf[157]+1 /* (set! chicken.compiler.support#qnode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8282,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate((C_word*)lf[158]+1 /* (set! chicken.compiler.support#build-node-graph ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8297,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate((C_word*)lf[193]+1 /* (set! chicken.compiler.support#build-expression-tree ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9493,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate((C_word*)lf[206]+1 /* (set! chicken.compiler.support#fold-boolean ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10363,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate((C_word*)lf[208]+1 /* (set! chicken.compiler.support#inline-lambda-bindings ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10415,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate((C_word*)lf[216]+1 /* (set! chicken.compiler.support#tree-copy ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11095,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate((C_word*)lf[217]+1 /* (set! chicken.compiler.support#copy-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11125,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate((C_word*)lf[218]+1 /* (set! chicken.compiler.support#copy-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11163,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate((C_word*)lf[219]+1 /* (set! chicken.compiler.support#emit-global-inline-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11359,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate((C_word*)lf[245]+1 /* (set! chicken.compiler.support#load-inline-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11621,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate((C_word*)lf[248]+1 /* (set! chicken.compiler.support#match-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11677,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate((C_word*)lf[251]+1 /* (set! chicken.compiler.support#expression-has-side-effects? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11910,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate((C_word*)lf[254]+1 /* (set! chicken.compiler.support#simple-lambda-node? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12019,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate((C_word*)lf[255]+1 /* (set! chicken.compiler.support#dump-undefined-globals ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12145,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate((C_word*)lf[260]+1 /* (set! chicken.compiler.support#dump-defined-globals ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12186,tmp=(C_word)a,a+=2,tmp)); t19=C_mutate((C_word*)lf[261]+1 /* (set! chicken.compiler.support#dump-global-refs ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12223,tmp=(C_word)a,a+=2,tmp)); t20=C_mutate((C_word*)lf[263]+1 /* (set! ##sys#toplevel-definition-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12272,tmp=(C_word)a,a+=2,tmp)); t21=C_set_block_item(lf[253] /* chicken.compiler.support#foreign-callback-stubs */,0,C_SCHEME_END_OF_LIST); t22=C_mutate((C_word*)lf[269]+1 /* (set! chicken.compiler.support#make-foreign-callback-stub ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12300,tmp=(C_word)a,a+=2,tmp)); t23=C_mutate((C_word*)lf[271]+1 /* (set! chicken.compiler.support#foreign-callback-stub? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12306,tmp=(C_word)a,a+=2,tmp)); t24=C_mutate((C_word*)lf[252]+1 /* (set! chicken.compiler.support#foreign-callback-stub-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12312,tmp=(C_word)a,a+=2,tmp)); t25=C_mutate((C_word*)lf[273]+1 /* (set! chicken.compiler.support#foreign-callback-stub-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12321,tmp=(C_word)a,a+=2,tmp)); t26=C_mutate((C_word*)lf[275]+1 /* (set! chicken.compiler.support#foreign-callback-stub-qualifiers ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12330,tmp=(C_word)a,a+=2,tmp)); t27=C_mutate((C_word*)lf[277]+1 /* (set! chicken.compiler.support#foreign-callback-stub-return-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12339,tmp=(C_word)a,a+=2,tmp)); t28=C_mutate((C_word*)lf[279]+1 /* (set! chicken.compiler.support#foreign-callback-stub-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12348,tmp=(C_word)a,a+=2,tmp)); t29=C_mutate((C_word*)lf[281]+1 /* (set! chicken.compiler.support#register-foreign-callback-stub! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12357,tmp=(C_word)a,a+=2,tmp)); t30=lf[283] /* chicken.compiler.support#foreign-type-table */ =C_SCHEME_FALSE;; t31=C_mutate((C_word*)lf[284]+1 /* (set! chicken.compiler.support#clear-foreign-type-table! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12386,tmp=(C_word)a,a+=2,tmp)); t32=C_mutate((C_word*)lf[287]+1 /* (set! chicken.compiler.support#register-foreign-type! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12399,tmp=(C_word)a,a+=2,tmp)); t33=C_mutate((C_word*)lf[288]+1 /* (set! chicken.compiler.support#lookup-foreign-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12453,tmp=(C_word)a,a+=2,tmp)); t34=lf[289]; t35=C_mutate((C_word*)lf[290]+1 /* (set! chicken.compiler.support#foreign-type-check ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12459,a[2]=t34,tmp=(C_word)a,a+=3,tmp)); t36=C_mutate((C_word*)lf[387]+1 /* (set! chicken.compiler.support#foreign-type-convert-result ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13535,tmp=(C_word)a,a+=2,tmp)); t37=C_mutate((C_word*)lf[388]+1 /* (set! chicken.compiler.support#foreign-type-convert-argument ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13562,tmp=(C_word)a,a+=2,tmp)); t38=C_mutate((C_word*)lf[389]+1 /* (set! chicken.compiler.support#final-foreign-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13589,tmp=(C_word)a,a+=2,tmp)); t39=C_mutate((C_word*)lf[391]+1 /* (set! chicken.compiler.support#estimate-foreign-result-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13628,tmp=(C_word)a,a+=2,tmp)); t40=C_mutate((C_word*)lf[397]+1 /* (set! chicken.compiler.support#estimate-foreign-result-location-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14103,tmp=(C_word)a,a+=2,tmp)); t41=C_mutate((C_word*)lf[400]+1 /* (set! chicken.compiler.support#finish-foreign-result ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14553,tmp=(C_word)a,a+=2,tmp)); t42=C_mutate((C_word*)lf[414]+1 /* (set! chicken.compiler.support#foreign-type->scrutiny-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14821,tmp=(C_word)a,a+=2,tmp)); t43=C_mutate((C_word*)lf[437]+1 /* (set! chicken.compiler.support#scan-used-variables ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15427,tmp=(C_word)a,a+=2,tmp)); t44=C_mutate((C_word*)lf[438]+1 /* (set! chicken.compiler.support#scan-free-variables ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15582,tmp=(C_word)a,a+=2,tmp)); t45=C_mutate((C_word*)lf[439]+1 /* (set! chicken.compiler.support#chop-separator ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15812,tmp=(C_word)a,a+=2,tmp)); t46=C_mutate((C_word*)lf[442]+1 /* (set! chicken.compiler.support#make-block-variable-literal ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15836,tmp=(C_word)a,a+=2,tmp)); t47=C_mutate((C_word*)lf[444]+1 /* (set! chicken.compiler.support#block-variable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15842,tmp=(C_word)a,a+=2,tmp)); t48=C_mutate((C_word*)lf[445]+1 /* (set! chicken.compiler.support#block-variable-literal-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15848,tmp=(C_word)a,a+=2,tmp)); t49=C_mutate((C_word*)lf[114]+1 /* (set! chicken.compiler.support#make-random-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15857,tmp=(C_word)a,a+=2,tmp)); t50=lf[449] /* chicken.compiler.support#real-name-table */ =C_SCHEME_FALSE;; t51=C_mutate((C_word*)lf[450]+1 /* (set! chicken.compiler.support#clear-real-name-table! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15904,tmp=(C_word)a,a+=2,tmp)); t52=C_mutate((C_word*)lf[451]+1 /* (set! chicken.compiler.support#set-real-name! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15911,tmp=(C_word)a,a+=2,tmp)); t53=C_mutate((C_word*)lf[452]+1 /* (set! chicken.compiler.support#get-real-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15917,tmp=(C_word)a,a+=2,tmp)); t54=C_mutate((C_word*)lf[55]+1 /* (set! chicken.compiler.support#real-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15924,tmp=(C_word)a,a+=2,tmp)); t55=C_mutate((C_word*)lf[459]+1 /* (set! chicken.compiler.support#real-name2 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16044,tmp=(C_word)a,a+=2,tmp)); t56=C_mutate((C_word*)lf[460]+1 /* (set! chicken.compiler.support#display-real-name-table ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16056,tmp=(C_word)a,a+=2,tmp)); t57=C_mutate((C_word*)lf[461]+1 /* (set! chicken.compiler.support#source-info->string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16080,tmp=(C_word)a,a+=2,tmp)); t58=C_mutate((C_word*)lf[467]+1 /* (set! chicken.compiler.support#source-info->name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16115,tmp=(C_word)a,a+=2,tmp)); t59=C_mutate((C_word*)lf[468]+1 /* (set! chicken.compiler.support#source-info->line ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16130,tmp=(C_word)a,a+=2,tmp)); t60=C_mutate((C_word*)lf[469]+1 /* (set! chicken.compiler.support#call-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16142,tmp=(C_word)a,a+=2,tmp)); t61=C_mutate((C_word*)lf[472]+1 /* (set! chicken.compiler.support#constant-form-eval ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16179,tmp=(C_word)a,a+=2,tmp)); t62=C_mutate((C_word*)lf[479]+1 /* (set! chicken.compiler.support#maybe-constant-fold-call ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16409,tmp=(C_word)a,a+=2,tmp)); t63=C_mutate(&lf[475] /* (set! chicken.compiler.support#encodeable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16508,tmp=(C_word)a,a+=2,tmp)); t64=C_mutate((C_word*)lf[484]+1 /* (set! chicken.compiler.support#dump-nodes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16645,tmp=(C_word)a,a+=2,tmp)); t65=C_mutate((C_word*)lf[486]+1 /* (set! chicken.compiler.support#read-info-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16801,tmp=(C_word)a,a+=2,tmp)); t66=C_mutate((C_word*)lf[490]+1 /* (set! chicken.compiler.support#read/source-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16844,tmp=(C_word)a,a+=2,tmp)); t67=*((C_word*)lf[492]+1); t68=C_mutate((C_word*)lf[492]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16850,a[2]=t67,tmp=(C_word)a,a+=3,tmp)); t69=C_mutate((C_word*)lf[92]+1 /* (set! chicken.compiler.support#big-fixnum? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16944,tmp=(C_word)a,a+=2,tmp)); t70=C_mutate((C_word*)lf[499]+1 /* (set! chicken.compiler.support#small-bignum? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16968,tmp=(C_word)a,a+=2,tmp)); t71=C_mutate((C_word*)lf[267]+1 /* (set! chicken.compiler.support#hide-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16992,tmp=(C_word)a,a+=2,tmp)); t72=C_mutate((C_word*)lf[501]+1 /* (set! chicken.compiler.support#export-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17012,tmp=(C_word)a,a+=2,tmp)); t73=C_mutate((C_word*)lf[266]+1 /* (set! chicken.compiler.support#variable-hidden? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17032,tmp=(C_word)a,a+=2,tmp)); t74=C_mutate((C_word*)lf[244]+1 /* (set! chicken.compiler.support#variable-visible? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17054,tmp=(C_word)a,a+=2,tmp)); t75=C_mutate((C_word*)lf[503]+1 /* (set! chicken.compiler.support#mark-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17079,tmp=(C_word)a,a+=2,tmp)); t76=C_mutate((C_word*)lf[504]+1 /* (set! chicken.compiler.support#variable-mark ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17094,tmp=(C_word)a,a+=2,tmp)); t77=C_mutate((C_word*)lf[505]+1 /* (set! chicken.compiler.support#intrinsic? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17100,tmp=(C_word)a,a+=2,tmp)); t78=C_mutate((C_word*)lf[481]+1 /* (set! chicken.compiler.support#foldable? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17111,tmp=(C_word)a,a+=2,tmp)); t79=C_mutate((C_word*)lf[480]+1 /* (set! chicken.compiler.support#predicate? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17122,tmp=(C_word)a,a+=2,tmp)); t80=C_mutate((C_word*)lf[508]+1 /* (set! chicken.compiler.support#load-identifier-database ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17133,tmp=(C_word)a,a+=2,tmp)); t81=C_mutate((C_word*)lf[516]+1 /* (set! chicken.compiler.support#print-version ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17228,tmp=(C_word)a,a+=2,tmp)); t82=C_mutate((C_word*)lf[519]+1 /* (set! chicken.compiler.support#print-usage ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17253,tmp=(C_word)a,a+=2,tmp)); t83=C_mutate((C_word*)lf[521]+1 /* (set! chicken.compiler.support#print-debug-options ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17265,tmp=(C_word)a,a+=2,tmp)); t84=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t84; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t84+1)))(2,av2);}} /* chicken.compiler.support#make-node in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8261,5,av);} a=C_alloc(5); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[143],t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.compiler.support#varnode in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_8267,3,av);} a=C_alloc(8); t3=C_a_i_list1(&a,1,t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[143],lf[156],t3,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#qnode in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_8282,3,av);} a=C_alloc(8); t3=C_a_i_list1(&a,1,t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[143],lf[87],t3,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_8297,3,av);} a=C_alloc(12); t3=C_fix(0); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8300,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9484,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* support.scm:584: walk */ t9=((C_word*)t6)[1];{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=t2; f_8300(3,av2);}} /* walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ av[0]=t0; av[1]=t1; av[2]=t2; C_save_and_reclaim((void *)f_8300,3,av);} a=C_alloc(20); if(C_truep(C_i_symbolp(t2))){ /* support.scm:494: varnode */ t3=*((C_word*)lf[155]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2; if(C_truep(C_i_structurep(t3,lf[143]))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_pairp(t2); if(C_truep(C_i_not(t4))){ /* support.scm:496: bomb */ t5=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=lf[159]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=C_i_car(t2); if(C_truep(C_i_symbolp(t5))){ t6=t2; t7=C_u_i_car(t6); t8=C_eqp(t7,lf[160]); t9=(C_truep(t8)?t8:C_eqp(t7,lf[161])); if(C_truep(t9)){ t10=t2; t11=C_u_i_car(t10); t12=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t13=t12; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=((C_word*)t14)[1]; t16=((C_word*)((C_word*)t0)[2])[1]; t17=t2; t18=C_u_i_cdr(t17); t19=C_i_check_list_2(t18,lf[127]); t20=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8367,a[2]=t1,a[3]=t11,tmp=(C_word)a,a+=4,tmp); t21=C_SCHEME_UNDEFINED; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8369,a[2]=t14,a[3]=t22,a[4]=t16,a[5]=t15,tmp=(C_word)a,a+=6,tmp)); t24=((C_word*)t22)[1]; f_8369(t24,t20,t18);} else{ t10=C_eqp(t7,lf[87]); if(C_truep(t10)){ t11=C_i_cadr(t2); t12=t11; t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8417,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8420,a[2]=t13,a[3]=t12,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_numberp(t12))){ t15=C_eqp(lf[166],*((C_word*)lf[8]+1)); if(C_truep(t15)){ t16=C_i_integerp(t12); t17=t14; f_8420(t17,C_i_not(t16));} else{ t16=t14; f_8420(t16,C_SCHEME_FALSE);}} else{ t15=t14; f_8420(t15,C_SCHEME_FALSE);}} else{ t11=C_eqp(t7,lf[98]); if(C_truep(t11)){ t12=C_i_cadr(t2); t13=C_i_caddr(t2); t14=t13; if(C_truep(C_i_nullp(t12))){ /* support.scm:514: walk */ t25=t1; t26=t14; t1=t25; t2=t26; c=3; goto loop;} else{ t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8477,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t14,tmp=(C_word)a,a+=6,tmp); t16=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t17=t16; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=((C_word*)t18)[1]; t20=C_i_check_list_2(t12,lf[127]); t21=C_SCHEME_UNDEFINED; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5876,a[2]=t18,a[3]=t22,a[4]=t19,tmp=(C_word)a,a+=5,tmp)); t24=((C_word*)t22)[1]; f_5876(t24,t15,t12);}} else{ t12=C_eqp(t7,lf[167]); t13=(C_truep(t12)?t12:C_eqp(t7,lf[120])); if(C_truep(t13)){ t14=C_i_cadr(t2); t15=C_a_i_list1(&a,1,t14); t16=t15; t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8574,a[2]=t1,a[3]=t16,tmp=(C_word)a,a+=4,tmp); t18=C_i_caddr(t2); /* support.scm:520: walk */ t25=t17; t26=t18; t1=t25; t2=t26; c=3; goto loop;} else{ t14=C_eqp(t7,lf[168]); if(C_truep(t14)){ t15=t2; t16=C_i_cadr(t15); t17=t2; t18=C_i_caddr(t17); t19=C_a_i_list2(&a,2,t16,t18); t20=t19; t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8608,a[2]=t1,a[3]=t20,tmp=(C_word)a,a+=4,tmp); t22=t2; t23=C_i_cadddr(t22); /* support.scm:524: walk */ t25=t21; t26=t23; t1=t25; t2=t26; c=3; goto loop;} else{ t15=C_eqp(t7,lf[169]); if(C_truep(t15)){ t16=C_i_cdddr(t2); t17=t16; t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8762,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t17,tmp=(C_word)a,a+=6,tmp); t19=t2; t20=C_u_i_cdr(t19); t21=C_u_i_cdr(t20); t22=C_u_i_car(t21); /* support.scm:527: walk */ t25=t18; t26=t22; t1=t25; t2=t26; c=3; goto loop;} else{ t16=C_eqp(t7,lf[173]); if(C_truep(t16)){ t17=C_i_cadr(t2); t18=t2; t19=C_u_i_car(t18); t20=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8789,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,a[5]=t19,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t17))){ t21=C_u_i_car(t17); t22=C_eqp(lf[87],t21); if(C_truep(t22)){ t23=C_i_cadr(t17); t24=t20; f_8789(t24,C_a_i_list1(&a,1,t23));} else{ t23=t20; f_8789(t23,C_a_i_list1(&a,1,t17));}} else{ t21=t20; f_8789(t21,C_a_i_list1(&a,1,t17));}} else{ t17=C_eqp(t7,lf[174]); t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8862,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t7,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); if(C_truep(t17)){ t19=t18; f_8862(t19,t17);} else{ t19=C_eqp(t7,lf[189]); t20=t18; f_8862(t20,(C_truep(t19)?t19:C_eqp(t7,lf[190])));}}}}}}}}} else{ t6=C_a_i_list1(&a,1,C_SCHEME_FALSE); t7=t6; t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=((C_word*)((C_word*)t0)[2])[1]; t13=t2; t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9439,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9441,a[2]=t10,a[3]=t16,a[4]=t12,a[5]=t11,tmp=(C_word)a,a+=6,tmp)); t18=((C_word*)t16)[1]; f_9441(t18,t14,t13);}}}}} /* k8365 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8367,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1349 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8369(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8369,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8394,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:499: g1355 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8392 in map-loop1349 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8394,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8369(t6,((C_word*)t0)[5],t5);} /* k8415 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8417,2,av);} /* support.scm:502: qnode */ t2=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8418 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8420(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_8420,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8423,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* support.scm:506: chicken.base#warning */ t3=*((C_word*)lf[164]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[165]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* support.scm:502: qnode */ t2=*((C_word*)lf[157]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k8421 in k8418 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8423,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8430,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* support.scm:508: scheme#truncate */ t3=*((C_word*)lf[163]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8428 in k8421 in k8418 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8430,2,av);} /* support.scm:508: scheme#inexact->exact */ t2=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8475 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_8477,2,av);} a=C_alloc(25); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8481,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8486,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t9=C_i_cadr(((C_word*)t0)[4]); t10=C_i_check_list_2(t9,lf[127]); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8503,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8513,a[2]=t6,a[3]=t13,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_8513(t15,t11,t9);} /* k8479 in k8475 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8481,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],lf[98],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g1392 in k8475 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8486(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_8486,3,t0,t1,t2);} t3=C_i_cadr(t2); /* support.scm:517: walk */ t4=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; f_8300(3,av2);}} /* k8501 in k8475 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8503,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8511,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* support.scm:518: walk */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; f_8300(3,av2);}} /* k8509 in k8501 in k8475 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8511,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* support.scm:517: scheme#append */ t3=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* map-loop1386 in k8475 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8513(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8513,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8538,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:517: g1392 */ t5=((C_word*)t0)[4]; f_8486(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8536 in map-loop1386 in k8475 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8538,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8513(t6,((C_word*)t0)[5],t5);} /* k8572 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_8574,2,av);} a=C_alloc(8); t2=C_a_i_list1(&a,1,t1); t3=((C_word*)t0)[2]; t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[143],lf[167],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8606 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_8608,2,av);} a=C_alloc(8); t2=C_a_i_list1(&a,1,t1); t3=((C_word*)t0)[2]; t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[143],lf[168],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in k8760 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8639(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_8639,5,t0,t1,t2,t3,t4);} a=C_alloc(14); if(C_truep(C_i_nullp(t2))){ t5=C_i_cadr(((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8683,a[2]=t6,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* support.scm:531: scheme#reverse */ t8=*((C_word*)lf[82]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t5=C_i_caar(t2); t6=C_eqp(lf[170],t5); if(C_truep(t6)){ t7=C_i_cadr(((C_word*)t0)[2]); t8=t7; t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8725,a[2]=t8,a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t10=C_a_i_cons(&a,2,lf[172],t3); /* support.scm:537: scheme#reverse */ t11=*((C_word*)lf[82]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t7=t2; t8=C_u_i_cdr(t7); t9=C_i_caar(t2); t10=C_a_i_cons(&a,2,t9,t3); t11=t10; t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8746,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t8,a[6]=t11,tmp=(C_word)a,a+=7,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8750,a[2]=((C_word*)t0)[3],a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* support.scm:541: scheme#cadar */ t14=*((C_word*)lf[171]+1);{ C_word av2[3]; av2[0]=t14; av2[1]=t13; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}}}} /* k8660 in k8681 in loop in k8760 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8662,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],lf[169],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8681 in loop in k8760 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_8683,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8662,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_a_i_record4(&a,4,lf[143],lf[161],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[4]); /* support.scm:532: scheme#reverse */ t7=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t4; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k8703 in k8723 in loop in k8760 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8705,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],lf[169],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8711 in k8723 in loop in k8760 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8713,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* support.scm:538: scheme#reverse */ t3=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8715 in k8723 in loop in k8760 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8717,2,av);} /* support.scm:538: walk */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_8300(3,av2);}} /* k8723 in loop in k8760 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_8725,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8705,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8713,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8717,a[2]=((C_word*)t0)[5],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* support.scm:538: scheme#cadar */ t7=*((C_word*)lf[171]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k8744 in loop in k8760 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_8746,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* support.scm:539: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_8639(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* k8748 in loop in k8760 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8750,2,av);} /* support.scm:541: walk */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_8300(3,av2);}} /* k8760 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_8762,2,av);} a=C_alloc(10); t2=C_a_i_list1(&a,1,t1); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8639,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_8639(t6,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_END_OF_LIST,t2);} /* k8787 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8789(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ C_save_and_reclaim_args((void *)trf_8789,2,t0,t1);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)((C_word*)t0)[2])[1]; t8=((C_word*)t0)[3]; t9=C_u_i_cdr(t8); t10=C_u_i_cdr(t9); t11=C_i_check_list_2(t10,lf[127]); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8801,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8803,a[2]=t5,a[3]=t14,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_8803(t16,t12,t10);} /* k8799 in k8787 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8801,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1457 in k8787 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8803(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8803,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8828,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:547: g1463 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8826 in map-loop1457 in k8787 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8828,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8803(t6,((C_word*)t0)[5],t5);} /* k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8862(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ C_save_and_reclaim_args((void *)trf_8862,2,t0,t1);} a=C_alloc(21); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_i_cadr(((C_word*)t0)[2]); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=((C_word*)((C_word*)t0)[3])[1]; t12=((C_word*)t0)[2]; t13=C_u_i_cdr(t12); t14=C_u_i_cdr(t13); t15=C_i_check_list_2(t14,lf[127]); t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8888,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8890,a[2]=t9,a[3]=t18,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t20=((C_word*)t18)[1]; f_8890(t20,t16,t14);} else{ t2=C_eqp(((C_word*)t0)[5],lf[175]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=((C_word*)t0)[4]; t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_record4(&a,4,lf[143],t4,t6,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[5],lf[176]); if(C_truep(t3)){ t4=C_i_cadr(((C_word*)t0)[2]); t5=C_a_i_list2(&a,2,t4,C_SCHEME_TRUE); t6=((C_word*)t0)[4]; t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_record4(&a,4,lf[143],lf[176],t5,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[5],lf[126]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[5],lf[177])); if(C_truep(t5)){ t6=C_i_cadr(((C_word*)t0)[2]); t7=C_a_i_list1(&a,1,t6); t8=t7; t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=((C_word*)((C_word*)t0)[3])[1]; t14=((C_word*)t0)[2]; t15=C_u_i_cdr(t14); t16=C_u_i_cdr(t15); t17=C_i_check_list_2(t16,lf[127]); t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8999,a[2]=((C_word*)t0)[4],a[3]=t8,tmp=(C_word)a,a+=4,tmp); t19=C_SCHEME_UNDEFINED; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9001,a[2]=t11,a[3]=t20,a[4]=t13,a[5]=t12,tmp=(C_word)a,a+=6,tmp)); t22=((C_word*)t20)[1]; f_9001(t22,t18,t16);} else{ t6=C_eqp(((C_word*)t0)[5],lf[178]); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=C_i_cadr(t7); t9=C_i_cadr(t8); t10=((C_word*)t0)[2]; t11=C_i_caddr(t10); t12=C_i_cadr(t11); t13=((C_word*)t0)[2]; t14=C_i_cadddr(t13); t15=C_i_cadr(t14); t16=((C_word*)t0)[2]; t17=C_i_cddddr(t16); t18=C_i_car(t17); t19=C_i_cadr(t18); t20=C_a_i_list4(&a,4,t9,t12,t15,t19); t21=t20; t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9066,a[2]=((C_word*)t0)[4],a[3]=t21,tmp=(C_word)a,a+=4,tmp); t23=C_i_list_ref(((C_word*)t0)[2],C_fix(5)); /* support.scm:563: walk */ t24=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[3]; av2[0]=t24; av2[1]=t22; av2[2]=t23; f_8300(3,av2);}} else{ t7=C_eqp(((C_word*)t0)[5],lf[179]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t7)){ t9=t8; f_9107(t9,t7);} else{ t9=C_eqp(((C_word*)t0)[5],lf[185]); if(C_truep(t9)){ t10=t8; f_9107(t10,t9);} else{ t10=C_eqp(((C_word*)t0)[5],lf[186]); if(C_truep(t10)){ t11=t8; f_9107(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[5],lf[187]); t12=t8; f_9107(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t0)[5],lf[188])));}}}}}}}}} /* k8886 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8888,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1494 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_8890(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8890,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8915,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:549: g1500 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8913 in map-loop1494 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8915,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8890(t6,((C_word*)t0)[5],t5);} /* k8997 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_8999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8999,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],lf[126],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1538 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9001(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9001,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9026,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:557: g1544 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9024 in map-loop1538 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9026,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9001(t6,((C_word*)t0)[5],t5);} /* k9064 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_9066,2,av);} a=C_alloc(8); t2=C_a_i_list1(&a,1,t1); t3=((C_word*)t0)[2]; t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record4(&a,4,lf[143],lf[178],((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9107(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ C_save_and_reclaim_args((void *)trf_9107,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_car(t2); t4=t3; t5=((C_word*)t0)[2]; t6=C_i_cadr(t5); t7=t6; t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=((C_word*)((C_word*)t0)[3])[1]; t13=C_i_cddr(((C_word*)t0)[2]); t14=C_i_check_list_2(t13,lf[127]); t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9136,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t7,tmp=(C_word)a,a+=5,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9138,a[2]=t10,a[3]=t17,a[4]=t12,a[5]=t11,tmp=(C_word)a,a+=6,tmp)); t19=((C_word*)t17)[1]; f_9138(t19,t15,t13);} else{ t2=C_eqp(((C_word*)t0)[5],lf[180]); if(C_truep(t2)){ t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=t3; t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=((C_word*)((C_word*)t0)[3])[1]; t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); t12=C_i_check_list_2(t11,lf[127]); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9199,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9201,a[2]=t7,a[3]=t15,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_9201(t17,t13,t11);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9238,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9244,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* support.scm:570: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}}}} /* k9134 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_9136,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1587 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9138(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9138,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9163,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:566: g1593 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9161 in map-loop1587 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9163,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9138(t6,((C_word*)t0)[5],t5);} /* k9197 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_9199,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],lf[181],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1618 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9201(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9201,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9226,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:568: g1624 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9224 in map-loop1618 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9226,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9201(t6,((C_word*)t0)[5],t5);} /* a9237 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9238,2,av);} /* support.scm:570: get-line-2 */ t2=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a9243 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_9244,4,av);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9305,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t3,a[6]=t2,tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9333,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; /* tweaks.scm:60: ##sys#get */ t7=*((C_word*)lf[183]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=lf[184]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k9265 in k9307 in k9303 in a9243 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_9267,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],lf[181],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1664 in k9307 in k9303 in a9243 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9269(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9269,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9294,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:582: g1670 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9292 in map-loop1664 in k9307 in k9303 in a9243 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 in ... */ static void C_ccall f_9294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9294,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9269(t6,((C_word*)t0)[5],t5);} /* k9303 in a9243 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9305(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_9305,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9309,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9312,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* support.scm:578: real-name */ t5=*((C_word*)lf[55]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* support.scm:581: ##sys#symbol->string */ t4=*((C_word*)lf[182]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k9307 in k9303 in a9243 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_9309,2,av);} a=C_alloc(23); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)((C_word*)t0)[3])[1]; t9=((C_word*)t0)[4]; t10=C_i_check_list_2(t9,lf[127]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9267,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9269,a[2]=t6,a[3]=t13,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_9269(t15,t11,t9);} /* k9310 in k9303 in a9243 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_9312,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9319,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t1)){ t3=t1; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); f_9309(2,av2);}} else{ /* support.scm:580: ##sys#symbol->string */ t3=*((C_word*)lf[182]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k9317 in k9310 in k9303 in a9243 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_9319,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1); f_9309(2,av2);}} /* k9331 in a9243 in k9105 in k8860 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_9333,2,av);} a=C_alloc(29); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1))); t4=((C_word*)t0)[3]; f_9305(t4,C_SCHEME_TRUE);} else{ t2=((C_word*)t0)[3]; f_9305(t2,C_SCHEME_FALSE);}} /* k9437 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_9439,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record4(&a,4,lf[143],lf[181],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1695 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9441(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9441,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9466,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:583: g1701 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9464 in map-loop1695 in walk in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9466,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9441(t6,((C_word*)t0)[5],t5);} /* k9482 in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9484,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9487,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)((C_word*)t0)[3])[1]; if(C_truep(C_i_positivep(t4))){ /* support.scm:586: debugging */ t5=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[191]; av2[3]=lf[192]; av2[4]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k9485 in k9482 in chicken.compiler.support#build-node-graph in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9487,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_9493,3,av);} a=C_alloc(5); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9499,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t2; f_9499(3,av2);}} /* walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_9499,3,av);} a=C_alloc(8); t3=t2; t4=C_slot(t3,C_fix(3)); t5=t4; t6=t2; t7=C_slot(t6,C_fix(2)); t8=t7; t9=t2; t10=C_slot(t9,C_fix(1)); t11=t10; t12=t11; t13=C_eqp(t12,lf[160]); t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9533,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t1,a[5]=t11,a[6]=t12,a[7]=t8,tmp=(C_word)a,a+=8,tmp); if(C_truep(t13)){ t15=t14; f_9533(t15,t13);} else{ t15=C_eqp(t12,lf[204]); t16=t14; f_9533(t16,(C_truep(t15)?t15:C_eqp(t12,lf[205])));}} /* k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9533(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,5)))){ C_save_and_reclaim_args((void *)trf_9533,2,t0,t1);} a=C_alloc(21); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=((C_word*)((C_word*)t0)[2])[1]; t7=C_i_check_list_2(((C_word*)t0)[3],lf[127]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9546,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9548,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_9548(t12,t8,((C_word*)t0)[3]);} else{ t2=C_eqp(((C_word*)t0)[6],lf[194]); if(C_truep(t2)){ t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_i_check_list_2(((C_word*)t0)[3],lf[127]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9603,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9605,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_9605(t13,t9,((C_word*)t0)[3]);} else{ t3=C_eqp(((C_word*)t0)[6],lf[156]); if(C_truep(t3)){ t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_car(((C_word*)t0)[7]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[6],lf[87]); if(C_truep(t4)){ t5=C_i_car(((C_word*)t0)[7]); t6=C_booleanp(t5); if(C_truep(t6)){ if(C_truep(t6)){ t7=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t7; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_u_i_car(((C_word*)t0)[7]); t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_list(&a,2,lf[87],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t7=C_i_stringp(t5); if(C_truep(t7)){ if(C_truep(t7)){ t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_u_i_car(((C_word*)t0)[7]); t9=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t9; av2[1]=C_a_i_list(&a,2,lf[87],t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t8=C_i_numberp(t5); t9=(C_truep(t8)?t8:C_charp(t5)); if(C_truep(t9)){ t10=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t10; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_u_i_car(((C_word*)t0)[7]); t11=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t11; av2[1]=C_a_i_list(&a,2,lf[87],t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}} else{ t5=C_eqp(((C_word*)t0)[6],lf[98]); if(C_truep(t5)){ t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=((C_word*)t0)[7]; t11=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t12=t11; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=((C_word*)t13)[1]; t15=((C_word*)((C_word*)t0)[2])[1]; t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9703,a[2]=t10,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t8,a[7]=t9,a[8]=t13,a[9]=t15,a[10]=t14,tmp=(C_word)a,a+=11,tmp); /* support.scm:605: chicken.base#butlast */ t17=*((C_word*)lf[195]+1);{ C_word av2[3]; av2[0]=t17; av2[1]=t16; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}} else{ t6=C_eqp(((C_word*)t0)[6],lf[120]); if(C_truep(t6)){ t7=C_i_cadr(((C_word*)t0)[7]); t8=(C_truep(t7)?lf[167]:lf[120]); t9=t8; t10=C_i_caddr(((C_word*)t0)[7]); t11=t10; t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9826,a[2]=((C_word*)t0)[4],a[3]=t9,a[4]=t11,tmp=(C_word)a,a+=5,tmp); t13=C_i_car(((C_word*)t0)[3]); /* support.scm:612: walk */ t14=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t14; av2[1]=t12; av2[2]=t13; f_9499(3,av2);}} else{ t7=C_eqp(((C_word*)t0)[6],lf[168]); if(C_truep(t7)){ t8=C_i_car(((C_word*)t0)[7]); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9850,a[2]=((C_word*)t0)[4],a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=C_i_car(((C_word*)t0)[3]); /* support.scm:614: walk */ t12=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t12; av2[1]=t10; av2[2]=t11; f_9499(3,av2);}} else{ t8=C_eqp(((C_word*)t0)[6],lf[197]); if(C_truep(t8)){ t9=C_i_car(((C_word*)t0)[3]); /* support.scm:616: walk */ t10=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t10; av2[1]=((C_word*)t0)[4]; av2[2]=t9; f_9499(3,av2);}} else{ t9=C_eqp(((C_word*)t0)[6],lf[169]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9884,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t11=C_i_car(((C_word*)t0)[3]); /* support.scm:619: walk */ t12=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t12; av2[1]=t10; av2[2]=t11; f_9499(3,av2);}} else{ t10=C_eqp(((C_word*)t0)[6],lf[181]); if(C_truep(t10)){ t11=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t12=t11; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=((C_word*)t13)[1]; t15=((C_word*)((C_word*)t0)[2])[1]; t16=C_i_check_list_2(((C_word*)t0)[3],lf[127]); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9974,a[2]=t13,a[3]=t18,a[4]=t15,a[5]=t14,tmp=(C_word)a,a+=6,tmp)); t20=((C_word*)t18)[1]; f_9974(t20,((C_word*)t0)[4],((C_word*)t0)[3]);} else{ t11=C_eqp(((C_word*)t0)[6],lf[190]); if(C_truep(t11)){ t12=C_i_car(((C_word*)t0)[7]); t13=t12; t14=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t15=t14; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=((C_word*)t16)[1]; t18=((C_word*)((C_word*)t0)[2])[1]; t19=C_i_check_list_2(((C_word*)t0)[3],lf[127]); t20=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10029,a[2]=((C_word*)t0)[4],a[3]=t13,tmp=(C_word)a,a+=4,tmp); t21=C_SCHEME_UNDEFINED; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10031,a[2]=t16,a[3]=t22,a[4]=t18,a[5]=t17,tmp=(C_word)a,a+=6,tmp)); t24=((C_word*)t22)[1]; f_10031(t24,t20,((C_word*)t0)[3]);} else{ t12=C_eqp(((C_word*)t0)[6],lf[161]); if(C_truep(t12)){ t13=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t13; av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=C_eqp(((C_word*)t0)[6],lf[199]); if(C_truep(t13)){ t14=C_i_car(((C_word*)t0)[7]); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10087,a[2]=((C_word*)t0)[2],a[3]=t16,tmp=(C_word)a,a+=4,tmp)); t18=((C_word*)t16)[1]; f_10087(t18,((C_word*)t0)[4],t14,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ t14=C_eqp(((C_word*)t0)[6],lf[200]); t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10137,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(t14)){ t16=t15; f_10137(t16,t14);} else{ t16=C_eqp(((C_word*)t0)[6],lf[201]); if(C_truep(t16)){ t17=t15; f_10137(t17,t16);} else{ t17=C_eqp(((C_word*)t0)[6],lf[202]); t18=t15; f_10137(t18,(C_truep(t17)?t17:C_eqp(((C_word*)t0)[6],lf[203])));}}}}}}}}}}}}}}}} /* k9544 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9546,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop1752 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9548(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9548,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9573,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:595: g1758 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9571 in map-loop1752 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9573,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9548(t6,((C_word*)t0)[5],t5);} /* k9601 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_9603,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[194],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop1781 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9605(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9605,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9630,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:597: g1787 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9628 in map-loop1781 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9630,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9605(t6,((C_word*)t0)[5],t5);} /* k9701 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_9703,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9706,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9773,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_9773(t6,t2,t1);} /* k9704 in k9701 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_9706,2,av);} a=C_alloc(12); t2=C_i_check_list_2(((C_word*)t0)[2],lf[127]); t3=C_i_check_list_2(t1,lf[127]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9715,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9725,a[2]=((C_word*)t0)[6],a[3]=t6,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_9725(t8,t4,((C_word*)t0)[2],t1);} /* k9713 in k9704 in k9701 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_9715,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9719,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9723,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* support.scm:606: last */ f_5910(t4,((C_word*)t0)[4]);} /* k9717 in k9713 in k9704 in k9701 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9719,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[98],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9721 in k9713 in k9704 in k9701 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9723,2,av);} /* support.scm:606: walk */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_9499(3,av2);}} /* map-loop1823 in k9704 in k9701 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9725(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_9725,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list2(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1844 in k9701 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9773(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9773,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9798,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:605: g1850 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9796 in map-loop1844 in k9701 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9798,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9773(t6,((C_word*)t0)[5],t5);} /* k9824 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9826,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9848 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9850,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[196],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9882 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_9884,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9888,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[3]); t5=C_i_cdr(((C_word*)t0)[4]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9898,a[2]=((C_word*)t0)[5],a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_9898(t9,t3,t4,t5);} /* k9886 in k9882 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_9888,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[198],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k9882 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9898(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_9898,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9922,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_i_car(t3); /* support.scm:624: walk */ t6=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; f_9499(3,av2);}}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9949,a[2]=t5,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t7=C_i_car(t3); /* support.scm:625: walk */ t8=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; f_9499(3,av2);}}} /* k9920 in loop in k9882 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9922,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,2,lf[170],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k9935 in k9947 in loop in k9882 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9937,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9947 in loop in k9882 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_9949,2,av);} a=C_alloc(10); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9937,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); t7=((C_word*)t0)[5]; t8=C_u_i_cdr(t7); /* support.scm:626: loop */ t9=((C_word*)((C_word*)t0)[6])[1]; f_9898(t9,t4,t6,t8);} /* map-loop1893 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_fcall f_9974(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9974,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9999,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* support.scm:628: g1899 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9997 in map-loop1893 in k9531 in walk in chicken.compiler.support#build-expression-tree in k8257 in k7604 in k7601 in k6449 in k5137 in k5134 in k5131 in k5128 in k5125 in k5122 in k5119 in k5116 in k5113 */ static void C_ccall f_9999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9999,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9974(t6,((C_word*)t0)[5],t5);} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_support_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("support")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_support_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(3900))){ C_save(t1); C_rereclaim2(3900*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,529); lf[0]=C_h_intern(&lf[0],7, C_text("support")); lf[1]=C_h_intern(&lf[1],25, C_text("chicken.compiler.support#")); lf[8]=C_h_intern(&lf[8],36, C_text("chicken.compiler.support#number-type")); lf[9]=C_h_intern(&lf[9],7, C_text("generic")); lf[10]=C_h_intern(&lf[10],31, C_text("chicken.compiler.support#unsafe")); lf[11]=C_h_intern(&lf[11],46, C_text("chicken.compiler.support#compiler-cleanup-hook")); lf[12]=C_h_intern(&lf[12],42, C_text("chicken.compiler.support#debugging-chicken")); lf[13]=C_h_intern(&lf[13],29, C_text("chicken.compiler.support#bomb")); lf[14]=C_h_intern(&lf[14],18, C_text("chicken.base#error")); lf[15]=C_h_intern(&lf[15],20, C_text("scheme#string-append")); lf[16]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032[internal compiler error] ")); lf[17]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031[internal compiler error]")); lf[18]=C_h_intern(&lf[18],51, C_text("chicken.compiler.support#collected-debugging-output")); lf[20]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001o\376\003\000\000\002\376\001\000\000\001\001x\376\003\000\000\002\376\001\000\000\001\001S\376\377\016")); lf[22]=C_h_intern(&lf[22],34, C_text("chicken.compiler.support#debugging")); lf[23]=C_h_intern(&lf[23],14, C_text("scheme#newline")); lf[24]=C_h_intern(&lf[24],21, C_text("##sys#standard-output")); lf[25]=C_h_intern(&lf[25],6, C_text("printf")); lf[26]=C_h_intern(&lf[26],18, C_text("##sys#write-char-0")); lf[27]=C_h_intern(&lf[27],11, C_text("##sys#print")); lf[28]=C_h_intern(&lf[28],12, C_text("scheme#force")); lf[29]=C_h_intern(&lf[29],14, C_text("scheme#display")); lf[30]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[31]=C_h_intern(&lf[31],34, C_text("chicken.port#with-output-to-string")); lf[32]=C_h_intern(&lf[32],7, C_text("fprintf")); lf[33]=C_h_intern(&lf[33],25, C_text("chicken.base#flush-output")); lf[34]=C_h_intern(&lf[34],46, C_text("chicken.compiler.support#with-debugging-output")); lf[35]=C_h_intern(&lf[35],27, C_text("chicken.string#string-split")); lf[36]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[37]=C_h_intern(&lf[37],39, C_text("chicken.compiler.support#quit-compiling")); lf[38]=C_h_intern(&lf[38],20, C_text("##sys#standard-error")); lf[39]=C_h_intern(&lf[39],17, C_text("chicken.base#exit")); lf[40]=C_h_intern(&lf[40],22, C_text("chicken.format#fprintf")); lf[41]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010\012Error: ")); lf[42]=C_h_intern(&lf[42],23, C_text("##sys#syntax-error-hook")); lf[43]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005\011~s~%")); lf[44]=C_h_intern(&lf[44],8, C_text("for-each")); lf[45]=C_h_intern(&lf[45],29, C_text("chicken.base#print-call-chain")); lf[46]=C_h_intern(&lf[46],20, C_text("##sys#current-thread")); lf[47]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025\012\011Expansion history:\012")); lf[48]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003): ")); lf[49]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\012Syntax error (")); lf[50]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\012Syntax error: ")); lf[51]=C_h_intern(&lf[51],27, C_text("chicken.syntax#syntax-error")); lf[52]=C_h_intern(&lf[52],47, C_text("chicken.compiler.support#emit-syntax-trace-info")); lf[53]=C_h_intern(&lf[53],40, C_text("chicken.compiler.support#check-signature")); lf[54]=C_decode_literal(C_heaptop,C_text("\376B\000\000@Arguments to inlined call of `~A\047 do not match parameter-list ~A")); lf[55]=C_h_intern(&lf[55],34, C_text("chicken.compiler.support#real-name")); lf[56]=C_h_intern(&lf[56],42, C_text("chicken.compiler.support#build-lambda-list")); lf[57]=C_h_intern(&lf[57],37, C_text("chicken.compiler.support#c-ify-string")); lf[58]=C_h_intern(&lf[58],18, C_text("##sys#list->string")); lf[59]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\042\376\377\016")); lf[60]=C_h_intern(&lf[60],13, C_text("scheme#append")); lf[61]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\377\016")); lf[62]=C_h_intern(&lf[62],18, C_text("##sys#string->list")); lf[63]=C_h_intern(&lf[63],20, C_text("##sys#fixnum->string")); lf[64]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\0000\376\003\000\000\002\376\377\012\000\0000\376\377\016")); lf[65]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\0000\376\377\016")); lf[66]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\042\376\003\000\000\002\376\377\012\000\000\047\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000\077\376\003\000\000\002\376\377\012\000\000\052\376\377\016")); lf[67]=C_h_intern(&lf[67],44, C_text("chicken.compiler.support#valid-c-identifier\077")); lf[68]=C_h_intern(&lf[68],23, C_text("chicken.string#->string")); lf[69]=C_h_intern(&lf[69],37, C_text("chicken.compiler.support#bytes->words")); lf[70]=C_h_intern(&lf[70],37, C_text("chicken.compiler.support#words->bytes")); lf[71]=C_h_intern(&lf[71],50, C_text("chicken.compiler.support#check-and-open-input-file")); lf[72]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001-")); lf[73]=C_h_intern(&lf[73],20, C_text("##sys#standard-input")); lf[74]=C_h_intern(&lf[74],22, C_text("scheme#open-input-file")); lf[75]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024Can not open file ~s")); lf[76]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031(~a) can not open file ~s")); lf[77]=C_h_intern(&lf[77],25, C_text("chicken.file#file-exists\077")); lf[78]=C_h_intern(&lf[78],49, C_text("chicken.compiler.support#close-checked-input-file")); lf[79]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001-")); lf[80]=C_h_intern(&lf[80],23, C_text("scheme#close-input-port")); lf[81]=C_h_intern(&lf[81],35, C_text("chicken.compiler.support#fold-inner")); lf[82]=C_h_intern(&lf[82],14, C_text("scheme#reverse")); lf[84]=C_h_intern(&lf[84],41, C_text("chicken.compiler.support#read-expressions")); lf[85]=C_h_intern(&lf[85],11, C_text("scheme#read")); lf[86]=C_h_intern(&lf[86],34, C_text("chicken.compiler.support#constant\077")); lf[87]=C_h_intern(&lf[87],5, C_text("quote")); lf[88]=C_h_intern(&lf[88],20, C_text("##sys#srfi-4-vector\077")); lf[89]=C_h_intern(&lf[89],18, C_text("chicken.blob#blob\077")); lf[90]=C_h_intern(&lf[90],45, C_text("chicken.compiler.support#collapsable-literal\077")); lf[91]=C_h_intern(&lf[91],35, C_text("chicken.compiler.support#immediate\077")); lf[92]=C_h_intern(&lf[92],36, C_text("chicken.compiler.support#big-fixnum\077")); lf[93]=C_h_intern(&lf[93],39, C_text("chicken.compiler.support#basic-literal\077")); lf[94]=C_h_intern(&lf[94],19, C_text("scheme#vector->list")); lf[95]=C_h_intern(&lf[95],48, C_text("chicken.compiler.support#canonicalize-begin-body")); lf[96]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[97]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[98]=C_h_intern(&lf[98],3, C_text("let")); lf[99]=C_h_intern(&lf[99],19, C_text("chicken.base#gensym")); lf[100]=C_h_intern(&lf[100],1, C_text("t")); lf[101]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001##sys#void\376\377\016")); lf[102]=C_h_intern(&lf[102],37, C_text("chicken.compiler.support#string->expr")); lf[103]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042cannot parse expression: ~s [~a]~%")); lf[104]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[105]=C_h_intern(&lf[105],5, C_text("begin")); lf[106]=C_h_intern(&lf[106],13, C_text("scheme#values")); lf[107]=C_h_intern(&lf[107],35, C_text("chicken.port#with-input-from-string")); lf[108]=C_h_intern(&lf[108],40, C_text("chicken.condition#with-exception-handler")); lf[109]=C_h_intern(&lf[109],37, C_text("scheme#call-with-current-continuation")); lf[110]=C_h_intern(&lf[110],37, C_text("chicken.compiler.support#llist-length")); lf[111]=C_h_intern(&lf[111],37, C_text("chicken.compiler.support#llist-match\077")); lf[113]=C_h_intern(&lf[113],56, C_text("chicken.compiler.support#reset-profile-info-vector-name!")); lf[114]=C_h_intern(&lf[114],41, C_text("chicken.compiler.support#make-random-name")); lf[115]=C_h_intern(&lf[115],12, C_text("profile-info")); lf[118]=C_h_intern(&lf[118],46, C_text("chicken.compiler.support#expand-profile-lambda")); lf[119]=C_h_intern(&lf[119],19, C_text("##sys#profile-entry")); lf[120]=C_h_intern(&lf[120],13, C_text("##core#lambda")); lf[121]=C_h_intern(&lf[121],11, C_text("##sys#apply")); lf[122]=C_h_intern(&lf[122],18, C_text("##sys#profile-exit")); lf[123]=C_h_intern(&lf[123],18, C_text("##sys#dynamic-wind")); lf[124]=C_h_intern(&lf[124],47, C_text("chicken.compiler.support#profiling-prelude-exps")); lf[125]=C_h_intern(&lf[125],27, C_text("##sys#register-profile-info")); lf[126]=C_h_intern(&lf[126],4, C_text("set!")); lf[127]=C_h_intern(&lf[127],3, C_text("map")); lf[128]=C_h_intern(&lf[128],30, C_text("##sys#set-profile-info-vector!")); lf[129]=C_h_intern(&lf[129],31, C_text("chicken.compiler.support#db-get")); lf[130]=C_h_intern(&lf[130],31, C_text("chicken.internal#hash-table-ref")); lf[131]=C_h_intern(&lf[131],35, C_text("chicken.compiler.support#db-get-all")); lf[132]=C_h_intern(&lf[132],5, C_text("foldr")); lf[133]=C_h_intern(&lf[133],32, C_text("chicken.compiler.support#db-put!")); lf[134]=C_h_intern(&lf[134],32, C_text("chicken.internal#hash-table-set!")); lf[135]=C_h_intern(&lf[135],33, C_text("chicken.compiler.support#collect!")); lf[136]=C_h_intern(&lf[136],36, C_text("chicken.compiler.support#db-get-list")); lf[137]=C_h_intern(&lf[137],33, C_text("chicken.compiler.support#get-line")); lf[138]=C_h_intern(&lf[138],26, C_text("##sys#line-number-database")); lf[139]=C_h_intern(&lf[139],35, C_text("chicken.compiler.support#get-line-2")); lf[140]=C_h_intern(&lf[140],53, C_text("chicken.compiler.support#display-line-number-database")); lf[141]=C_h_intern(&lf[141],36, C_text("chicken.internal#hash-table-for-each")); lf[142]=C_h_intern(&lf[142],34, C_text("chicken.compiler.support#make-node")); lf[143]=C_h_intern(&lf[143],29, C_text("chicken.compiler.support#node")); lf[144]=C_h_intern(&lf[144],30, C_text("chicken.compiler.support#node\077")); lf[145]=C_h_intern(&lf[145],35, C_text("chicken.compiler.support#node-class")); lf[146]=C_h_intern(&lf[146],10, C_text("node-class")); lf[147]=C_h_intern(&lf[147],40, C_text("chicken.compiler.support#node-class-set!")); lf[148]=C_h_intern(&lf[148],16, C_text("##sys#block-set!")); lf[149]=C_h_intern(&lf[149],40, C_text("chicken.compiler.support#node-parameters")); lf[150]=C_h_intern(&lf[150],15, C_text("node-parameters")); lf[151]=C_h_intern(&lf[151],45, C_text("chicken.compiler.support#node-parameters-set!")); lf[152]=C_h_intern(&lf[152],44, C_text("chicken.compiler.support#node-subexpressions")); lf[153]=C_h_intern(&lf[153],19, C_text("node-subexpressions")); lf[154]=C_h_intern(&lf[154],49, C_text("chicken.compiler.support#node-subexpressions-set!")); lf[155]=C_h_intern(&lf[155],32, C_text("chicken.compiler.support#varnode")); lf[156]=C_h_intern(&lf[156],15, C_text("##core#variable")); lf[157]=C_h_intern(&lf[157],30, C_text("chicken.compiler.support#qnode")); lf[158]=C_h_intern(&lf[158],41, C_text("chicken.compiler.support#build-node-graph")); lf[159]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016bad expression")); lf[160]=C_h_intern(&lf[160],2, C_text("if")); lf[161]=C_h_intern(&lf[161],16, C_text("##core#undefined")); lf[162]=C_h_intern(&lf[162],21, C_text("scheme#inexact->exact")); lf[163]=C_h_intern(&lf[163],15, C_text("scheme#truncate")); lf[164]=C_h_intern(&lf[164],20, C_text("chicken.base#warning")); lf[165]=C_decode_literal(C_heaptop,C_text("\376B\000\0006literal is out of range - will be truncated to integer")); lf[166]=C_h_intern(&lf[166],6, C_text("fixnum")); lf[167]=C_h_intern(&lf[167],6, C_text("lambda")); lf[168]=C_h_intern(&lf[168],10, C_text("##core#the")); lf[169]=C_h_intern(&lf[169],15, C_text("##core#typecase")); lf[170]=C_h_intern(&lf[170],4, C_text("else")); lf[171]=C_h_intern(&lf[171],12, C_text("scheme#cadar")); lf[172]=C_h_intern(&lf[172],1, C_text("\052")); lf[173]=C_h_intern(&lf[173],16, C_text("##core#primitive")); lf[174]=C_h_intern(&lf[174],13, C_text("##core#inline")); lf[175]=C_h_intern(&lf[175],18, C_text("##core#debug-event")); lf[176]=C_h_intern(&lf[176],11, C_text("##core#proc")); lf[177]=C_h_intern(&lf[177],11, C_text("##core#set!")); lf[178]=C_h_intern(&lf[178],31, C_text("##core#foreign-callback-wrapper")); lf[179]=C_h_intern(&lf[179],22, C_text("##core#inline_allocate")); lf[180]=C_h_intern(&lf[180],10, C_text("##core#app")); lf[181]=C_h_intern(&lf[181],11, C_text("##core#call")); lf[182]=C_h_intern(&lf[182],20, C_text("##sys#symbol->string")); lf[183]=C_h_intern(&lf[183],9, C_text("##sys#get")); lf[184]=C_h_intern(&lf[184],36, C_text("##compiler#always-bound-to-procedure")); lf[185]=C_h_intern(&lf[185],17, C_text("##core#inline_ref")); lf[186]=C_h_intern(&lf[186],20, C_text("##core#inline_update")); lf[187]=C_h_intern(&lf[187],21, C_text("##core#inline_loc_ref")); lf[188]=C_h_intern(&lf[188],24, C_text("##core#inline_loc_update")); lf[189]=C_h_intern(&lf[189],14, C_text("##core#provide")); lf[190]=C_h_intern(&lf[190],15, C_text("##core#callunit")); lf[191]=C_h_intern(&lf[191],1, C_text("o")); lf[192]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033eliminated procedure checks")); lf[193]=C_h_intern(&lf[193],46, C_text("chicken.compiler.support#build-expression-tree")); lf[194]=C_h_intern(&lf[194],14, C_text("##core#closure")); lf[195]=C_h_intern(&lf[195],20, C_text("chicken.base#butlast")); lf[196]=C_h_intern(&lf[196],3, C_text("the")); lf[197]=C_h_intern(&lf[197],17, C_text("##core#the/result")); lf[198]=C_h_intern(&lf[198],17, C_text("compiler-typecase")); lf[199]=C_h_intern(&lf[199],11, C_text("##core#bind")); lf[200]=C_h_intern(&lf[200],12, C_text("##core#unbox")); lf[201]=C_h_intern(&lf[201],10, C_text("##core#ref")); lf[202]=C_h_intern(&lf[202],13, C_text("##core#update")); lf[203]=C_h_intern(&lf[203],15, C_text("##core#update_i")); lf[204]=C_h_intern(&lf[204],10, C_text("##core#box")); lf[205]=C_h_intern(&lf[205],11, C_text("##core#cond")); lf[206]=C_h_intern(&lf[206],37, C_text("chicken.compiler.support#fold-boolean")); lf[207]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\005C_and\376\377\016")); lf[208]=C_h_intern(&lf[208],47, C_text("chicken.compiler.support#inline-lambda-bindings")); lf[209]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_a_i_list")); lf[210]=C_h_intern(&lf[210],22, C_text("chicken.base#alist-ref")); lf[211]=C_h_intern(&lf[211],10, C_text("scheme#eq\077")); lf[212]=C_h_intern(&lf[212],12, C_text("contractable")); lf[213]=C_h_intern(&lf[213],16, C_text("inline-transient")); lf[214]=C_h_intern(&lf[214],1, C_text("f")); lf[215]=C_h_intern(&lf[215],27, C_text("##sys#decompose-lambda-list")); lf[216]=C_h_intern(&lf[216],34, C_text("chicken.compiler.support#tree-copy")); lf[217]=C_h_intern(&lf[217],34, C_text("chicken.compiler.support#copy-node")); lf[218]=C_h_intern(&lf[218],35, C_text("chicken.compiler.support#copy-node!")); lf[219]=C_h_intern(&lf[219],48, C_text("chicken.compiler.support#emit-global-inline-file")); lf[220]=C_h_intern(&lf[220],18, C_text("chicken.base#print")); lf[221]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[222]=C_h_intern(&lf[222],15, C_text("scheme#string<\077")); lf[223]=C_h_intern(&lf[223],21, C_text("scheme#symbol->string")); lf[224]=C_h_intern(&lf[224],17, C_text("chicken.sort#sort")); lf[225]=C_h_intern(&lf[225],1, C_text("i")); lf[226]=C_decode_literal(C_heaptop,C_text("\376B\000\0001the following procedures can be globally inlined:")); lf[227]=C_h_intern(&lf[227],25, C_text("chicken.file#delete-file\052")); lf[228]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015; END OF FILE")); lf[229]=C_h_intern(&lf[229],23, C_text("chicken.pretty-print#pp")); lf[230]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027; GENERATED BY CHICKEN ")); lf[231]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 FROM ")); lf[232]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[233]=C_h_intern(&lf[233],32, C_text("chicken.platform#chicken-version")); lf[234]=C_h_intern(&lf[234],26, C_text("scheme#with-output-to-file")); lf[235]=C_h_intern(&lf[235],11, C_text("local-value")); lf[236]=C_h_intern(&lf[236],5, C_text("value")); lf[237]=C_h_intern(&lf[237],9, C_text("inlinable")); lf[238]=C_h_intern(&lf[238],3, C_text("yes")); lf[239]=C_h_intern(&lf[239],2, C_text("no")); lf[240]=C_h_intern(&lf[240],17, C_text("##compiler#inline")); lf[241]=C_h_intern(&lf[241],11, C_text("hidden-refs")); lf[242]=C_h_intern(&lf[242],7, C_text("unknown")); lf[243]=C_h_intern(&lf[243],24, C_text("##compiler#inline-global")); lf[244]=C_h_intern(&lf[244],42, C_text("chicken.compiler.support#variable-visible\077")); lf[245]=C_h_intern(&lf[245],41, C_text("chicken.compiler.support#load-inline-file")); lf[246]=C_h_intern(&lf[246],10, C_text("##sys#put!")); lf[247]=C_h_intern(&lf[247],27, C_text("scheme#with-input-from-file")); lf[248]=C_h_intern(&lf[248],35, C_text("chicken.compiler.support#match-node")); lf[249]=C_h_intern(&lf[249],1, C_text("a")); lf[250]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007matched")); lf[251]=C_h_intern(&lf[251],53, C_text("chicken.compiler.support#expression-has-side-effects\077")); lf[252]=C_h_intern(&lf[252],49, C_text("chicken.compiler.support#foreign-callback-stub-id")); lf[253]=C_h_intern(&lf[253],47, C_text("chicken.compiler.support#foreign-callback-stubs")); lf[254]=C_h_intern(&lf[254],44, C_text("chicken.compiler.support#simple-lambda-node\077")); lf[255]=C_h_intern(&lf[255],47, C_text("chicken.compiler.support#dump-undefined-globals")); lf[256]=C_h_intern(&lf[256],12, C_text("scheme#write")); lf[257]=C_h_intern(&lf[257],6, C_text("global")); lf[258]=C_h_intern(&lf[258],8, C_text("assigned")); lf[259]=C_h_intern(&lf[259],24, C_text("chicken.keyword#keyword\077")); lf[260]=C_h_intern(&lf[260],45, C_text("chicken.compiler.support#dump-defined-globals")); lf[261]=C_h_intern(&lf[261],41, C_text("chicken.compiler.support#dump-global-refs")); lf[262]=C_h_intern(&lf[262],10, C_text("references")); lf[263]=C_h_intern(&lf[263],30, C_text("##sys#toplevel-definition-hook")); lf[264]=C_h_intern(&lf[264],22, C_text("chicken.plist#remprop!")); lf[265]=C_h_intern(&lf[265],21, C_text("##compiler#visibility")); lf[266]=C_h_intern(&lf[266],41, C_text("chicken.compiler.support#variable-hidden\077")); lf[267]=C_h_intern(&lf[267],38, C_text("chicken.compiler.support#hide-variable")); lf[268]=C_decode_literal(C_heaptop,C_text("\376B\000\000 hiding unexported module binding")); lf[269]=C_h_intern(&lf[269],51, C_text("chicken.compiler.support#make-foreign-callback-stub")); lf[270]=C_h_intern(&lf[270],46, C_text("chicken.compiler.support#foreign-callback-stub")); lf[271]=C_h_intern(&lf[271],47, C_text("chicken.compiler.support#foreign-callback-stub\077")); lf[272]=C_h_intern(&lf[272],24, C_text("foreign-callback-stub-id")); lf[273]=C_h_intern(&lf[273],51, C_text("chicken.compiler.support#foreign-callback-stub-name")); lf[274]=C_h_intern(&lf[274],26, C_text("foreign-callback-stub-name")); lf[275]=C_h_intern(&lf[275],57, C_text("chicken.compiler.support#foreign-callback-stub-qualifiers")); lf[276]=C_h_intern(&lf[276],32, C_text("foreign-callback-stub-qualifiers")); lf[277]=C_h_intern(&lf[277],58, C_text("chicken.compiler.support#foreign-callback-stub-return-type")); lf[278]=C_h_intern(&lf[278],33, C_text("foreign-callback-stub-return-type")); lf[279]=C_h_intern(&lf[279],61, C_text("chicken.compiler.support#foreign-callback-stub-argument-types")); lf[280]=C_h_intern(&lf[280],36, C_text("foreign-callback-stub-argument-types")); lf[281]=C_h_intern(&lf[281],56, C_text("chicken.compiler.support#register-foreign-callback-stub!")); lf[282]=C_h_intern(&lf[282],26, C_text("##compiler#callback-lambda")); lf[284]=C_h_intern(&lf[284],50, C_text("chicken.compiler.support#clear-foreign-type-table!")); lf[285]=C_h_intern(&lf[285],19, C_text("scheme#vector-fill!")); lf[286]=C_h_intern(&lf[286],18, C_text("scheme#make-vector")); lf[287]=C_h_intern(&lf[287],47, C_text("chicken.compiler.support#register-foreign-type!")); lf[288]=C_h_intern(&lf[288],44, C_text("chicken.compiler.support#lookup-foreign-type")); lf[289]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001integer\376B\000\000\003int\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001unsigned-integer\376B\000\000\014unsigned int" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001integer32\376B\000\000\005C_s32\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001unsigned-integer32\376B\000\000\005C_u32\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001integer64\376B\000\000\005C_s64\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001unsigned-integer64\376B\000\000\005C_u64\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\005\001short\376B\000\000\005short\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001unsigned-short\376B\000\000\016unsigned short\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\004\001long\376B\000\000\004long\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001unsigned-long\376B\000\000\015unsigned long\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\007\001ssize_t\376B\000\000\007ssize_t\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001size_t\376B\000\000\006size_t\376\377\016")); lf[290]=C_h_intern(&lf[290],43, C_text("chicken.compiler.support#foreign-type-check")); lf[291]=C_h_intern(&lf[291],4, C_text("char")); lf[292]=C_h_intern(&lf[292],13, C_text("unsigned-char")); lf[293]=C_h_intern(&lf[293],27, C_text("##sys#foreign-char-argument")); lf[294]=C_h_intern(&lf[294],3, C_text("int")); lf[295]=C_h_intern(&lf[295],29, C_text("##sys#foreign-fixnum-argument")); lf[296]=C_h_intern(&lf[296],5, C_text("float")); lf[297]=C_h_intern(&lf[297],29, C_text("##sys#foreign-flonum-argument")); lf[298]=C_h_intern(&lf[298],4, C_text("blob")); lf[299]=C_h_intern(&lf[299],14, C_text("scheme-pointer")); lf[300]=C_h_intern(&lf[300],28, C_text("##sys#foreign-block-argument")); lf[301]=C_h_intern(&lf[301],12, C_text("##core#quote")); lf[302]=C_h_intern(&lf[302],9, C_text("##core#if")); lf[303]=C_h_intern(&lf[303],10, C_text("##core#let")); lf[304]=C_h_intern(&lf[304],22, C_text("nonnull-scheme-pointer")); lf[305]=C_h_intern(&lf[305],12, C_text("nonnull-blob")); lf[306]=C_h_intern(&lf[306],14, C_text("pointer-vector")); lf[307]=C_h_intern(&lf[307],37, C_text("##sys#foreign-struct-wrapper-argument")); lf[308]=C_h_intern(&lf[308],22, C_text("nonnull-pointer-vector")); lf[309]=C_h_intern(&lf[309],8, C_text("u8vector")); lf[310]=C_h_intern(&lf[310],16, C_text("nonnull-u8vector")); lf[311]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001nonnull-u8vector\376\001\000\000\010\001u8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonnull-u16vector\376" "\001\000\000\011\001u16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001nonnull-s8vector\376\001\000\000\010\001s8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonn" "ull-s16vector\376\001\000\000\011\001s16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonnull-u32vector\376\001\000\000\011\001u32vector\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\021\001nonnull-s32vector\376\001\000\000\011\001s32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonnull-u64vector\376\001\000" "\000\011\001u64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonnull-s64vector\376\001\000\000\011\001s64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonn" "ull-f32vector\376\001\000\000\011\001f32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonnull-f64vector\376\001\000\000\011\001f64vector\376\377\016")); lf[312]=C_h_intern(&lf[312],9, C_text("integer32")); lf[313]=C_h_intern(&lf[313],6, C_text("format")); lf[314]=C_h_intern(&lf[314],13, C_text("foreign-value")); lf[315]=C_h_intern(&lf[315],37, C_text("##sys#foreign-ranged-integer-argument")); lf[316]=C_h_intern(&lf[316],30, C_text("chicken.base#get-output-string")); lf[317]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014) \052 CHAR_BIT")); lf[318]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007sizeof(")); lf[319]=C_h_intern(&lf[319],31, C_text("chicken.base#open-output-string")); lf[320]=C_h_intern(&lf[320],14, C_text("unsigned-short")); lf[321]=C_h_intern(&lf[321],46, C_text("##sys#foreign-unsigned-ranged-integer-argument")); lf[322]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014) \052 CHAR_BIT")); lf[323]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007sizeof(")); lf[324]=C_h_intern(&lf[324],9, C_text("c-pointer")); lf[325]=C_h_intern(&lf[325],30, C_text("##sys#foreign-pointer-argument")); lf[326]=C_h_intern(&lf[326],17, C_text("nonnull-c-pointer")); lf[327]=C_h_intern(&lf[327],8, C_text("c-string")); lf[328]=C_h_intern(&lf[328],19, C_text("##sys#make-c-string")); lf[329]=C_h_intern(&lf[329],29, C_text("##sys#foreign-string-argument")); lf[330]=C_h_intern(&lf[330],16, C_text("nonnull-c-string")); lf[331]=C_h_intern(&lf[331],6, C_text("symbol")); lf[332]=C_h_intern(&lf[332],3, C_text("ref")); lf[333]=C_h_intern(&lf[333],8, C_text("instance")); lf[334]=C_h_intern(&lf[334],12, C_text("instance-ref")); lf[335]=C_h_intern(&lf[335],4, C_text("this")); lf[336]=C_h_intern(&lf[336],8, C_text("slot-ref")); lf[337]=C_h_intern(&lf[337],16, C_text("nonnull-instance")); lf[338]=C_h_intern(&lf[338],5, C_text("const")); lf[339]=C_h_intern(&lf[339],4, C_text("enum")); lf[340]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026sizeof(int) \052 CHAR_BIT")); lf[341]=C_h_intern(&lf[341],15, C_text("nonnull-pointer")); lf[342]=C_h_intern(&lf[342],7, C_text("pointer")); lf[343]=C_h_intern(&lf[343],8, C_text("function")); lf[344]=C_h_intern(&lf[344],17, C_text("nonnull-c-string\052")); lf[345]=C_h_intern(&lf[345],26, C_text("nonnull-unsigned-c-string\052")); lf[346]=C_h_intern(&lf[346],9, C_text("c-string\052")); lf[347]=C_h_intern(&lf[347],17, C_text("unsigned-c-string")); lf[348]=C_h_intern(&lf[348],18, C_text("unsigned-c-string\052")); lf[349]=C_h_intern(&lf[349],13, C_text("c-string-list")); lf[350]=C_h_intern(&lf[350],14, C_text("c-string-list\052")); lf[351]=C_h_intern(&lf[351],13, C_text("unsigned-long")); lf[352]=C_h_intern(&lf[352],16, C_text("unsigned-integer")); lf[353]=C_h_intern(&lf[353],6, C_text("size_t")); lf[354]=C_h_intern(&lf[354],18, C_text("unsigned-integer32")); lf[355]=C_h_intern(&lf[355],18, C_text("unsigned-integer64")); lf[356]=C_h_intern(&lf[356],9, C_text("integer64")); lf[357]=C_h_intern(&lf[357],7, C_text("integer")); lf[358]=C_h_intern(&lf[358],5, C_text("short")); lf[359]=C_h_intern(&lf[359],4, C_text("long")); lf[360]=C_h_intern(&lf[360],7, C_text("ssize_t")); lf[361]=C_h_intern(&lf[361],17, C_text("nonnull-u16vector")); lf[362]=C_h_intern(&lf[362],16, C_text("nonnull-s8vector")); lf[363]=C_h_intern(&lf[363],17, C_text("nonnull-s16vector")); lf[364]=C_h_intern(&lf[364],17, C_text("nonnull-u32vector")); lf[365]=C_h_intern(&lf[365],17, C_text("nonnull-s32vector")); lf[366]=C_h_intern(&lf[366],17, C_text("nonnull-u64vector")); lf[367]=C_h_intern(&lf[367],17, C_text("nonnull-s64vector")); lf[368]=C_h_intern(&lf[368],17, C_text("nonnull-f32vector")); lf[369]=C_h_intern(&lf[369],17, C_text("nonnull-f64vector")); lf[370]=C_h_intern(&lf[370],9, C_text("u16vector")); lf[371]=C_h_intern(&lf[371],8, C_text("s8vector")); lf[372]=C_h_intern(&lf[372],9, C_text("s16vector")); lf[373]=C_h_intern(&lf[373],9, C_text("u32vector")); lf[374]=C_h_intern(&lf[374],9, C_text("s32vector")); lf[375]=C_h_intern(&lf[375],9, C_text("u64vector")); lf[376]=C_h_intern(&lf[376],9, C_text("s64vector")); lf[377]=C_h_intern(&lf[377],9, C_text("f32vector")); lf[378]=C_h_intern(&lf[378],9, C_text("f64vector")); lf[379]=C_h_intern(&lf[379],6, C_text("double")); lf[380]=C_h_intern(&lf[380],6, C_text("number")); lf[381]=C_h_intern(&lf[381],12, C_text("unsigned-int")); lf[382]=C_h_intern(&lf[382],4, C_text("byte")); lf[383]=C_h_intern(&lf[383],13, C_text("unsigned-byte")); lf[384]=C_h_intern(&lf[384],5, C_text("int32")); lf[385]=C_h_intern(&lf[385],14, C_text("unsigned-int32")); lf[386]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042foreign type `~S\047 refers to itself")); lf[387]=C_h_intern(&lf[387],52, C_text("chicken.compiler.support#foreign-type-convert-result")); lf[388]=C_h_intern(&lf[388],54, C_text("chicken.compiler.support#foreign-type-convert-argument")); lf[389]=C_h_intern(&lf[389],43, C_text("chicken.compiler.support#final-foreign-type")); lf[390]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042foreign type `~S\047 refers to itself")); lf[391]=C_h_intern(&lf[391],53, C_text("chicken.compiler.support#estimate-foreign-result-size")); lf[392]=C_decode_literal(C_heaptop,C_text("\376B\000\0008cannot compute size for unknown foreign type `~S\047 result")); lf[393]=C_h_intern(&lf[393],4, C_text("bool")); lf[394]=C_h_intern(&lf[394],4, C_text("void")); lf[395]=C_h_intern(&lf[395],13, C_text("scheme-object")); lf[396]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042foreign type `~S\047 refers to itself")); lf[397]=C_h_intern(&lf[397],62, C_text("chicken.compiler.support#estimate-foreign-result-location-size")); lf[398]=C_decode_literal(C_heaptop,C_text("\376B\000\0005cannot compute size of location for foreign type `~S\047")); lf[399]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042foreign type `~S\047 refers to itself")); lf[400]=C_h_intern(&lf[400],46, C_text("chicken.compiler.support#finish-foreign-result")); lf[401]=C_h_intern(&lf[401],19, C_text("##sys#peek-c-string")); lf[402]=C_h_intern(&lf[402],27, C_text("##sys#peek-nonnull-c-string")); lf[403]=C_h_intern(&lf[403],28, C_text("##sys#peek-and-free-c-string")); lf[404]=C_h_intern(&lf[404],36, C_text("##sys#peek-and-free-nonnull-c-string")); lf[405]=C_h_intern(&lf[405],19, C_text("##sys#intern-symbol")); lf[406]=C_h_intern(&lf[406],24, C_text("##sys#peek-c-string-list")); lf[407]=C_h_intern(&lf[407],33, C_text("##sys#peek-and-free-c-string-list")); lf[408]=C_h_intern(&lf[408],19, C_text("##sys#null-pointer\077")); lf[409]=C_h_intern(&lf[409],3, C_text("not")); lf[410]=C_h_intern(&lf[410],4, C_text("make")); lf[411]=C_h_intern(&lf[411],3, C_text("and")); lf[412]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001c-string\376\003\000\000\002\376\001\000\000\011\001c-string\052\376\003\000\000\002\376\001\000\000\021\001unsigned-c-string\376\003\000\000\002\376\001\000\000\022\001un" "signed-c-string\052\376\003\000\000\002\376\001\000\000\020\001nonnull-c-string\376\003\000\000\002\376\001\000\000\021\001nonnull-c-string\052\376\003\000\000\002\376\001\000\000" "\030\001nonnull-unsigned-string\052\376\377\016")); lf[413]=C_h_intern(&lf[413],27, C_text("chicken.syntax#strip-syntax")); lf[414]=C_h_intern(&lf[414],52, C_text("chicken.compiler.support#foreign-type->scrutiny-type")); lf[415]=C_h_intern(&lf[415],9, C_text("undefined")); lf[416]=C_h_intern(&lf[416],3, C_text("arg")); lf[417]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\007\001boolean\376\003\000\000\002\376\001\000\000\004\001blob\376\377\016")); lf[418]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\007\001boolean\376\003\000\000\002\376\001\000\000\016\001pointer-vector\376\377\016")); lf[419]=C_h_intern(&lf[419],6, C_text("struct")); lf[420]=C_h_intern(&lf[420],2, C_text("or")); lf[421]=C_h_intern(&lf[421],7, C_text("boolean")); lf[422]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\010\001u8vector\376\377\016")); lf[423]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\010\001s8vector\376\377\016")); lf[424]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001u16vector\376\377\016")); lf[425]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001s16vector\376\377\016")); lf[426]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001u32vector\376\377\016")); lf[427]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001s32vector\376\377\016")); lf[428]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001u64vector\376\377\016")); lf[429]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001s64vector\376\377\016")); lf[430]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001f32vector\376\377\016")); lf[431]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001f64vector\376\377\016")); lf[432]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\007\001boolean\376\003\000\000\002\376\001\000\000\007\001pointer\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016")); lf[433]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\007\001boolean\376\003\000\000\002\376\001\000\000\006\001string\376\377\016")); lf[434]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001list-of\376\003\000\000\002\376\001\000\000\006\001string\376\377\016")); lf[435]=C_h_intern(&lf[435],6, C_text("string")); lf[436]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\007\001boolean\376\003\000\000\002\376\001\000\000\007\001pointer\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016")); lf[437]=C_h_intern(&lf[437],44, C_text("chicken.compiler.support#scan-used-variables")); lf[438]=C_h_intern(&lf[438],44, C_text("chicken.compiler.support#scan-free-variables")); lf[439]=C_h_intern(&lf[439],39, C_text("chicken.compiler.support#chop-separator")); lf[440]=C_h_intern(&lf[440],16, C_text("scheme#substring")); lf[441]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000/\376\377\016")); lf[442]=C_h_intern(&lf[442],52, C_text("chicken.compiler.support#make-block-variable-literal")); lf[443]=C_h_intern(&lf[443],47, C_text("chicken.compiler.support#block-variable-literal")); lf[444]=C_h_intern(&lf[444],48, C_text("chicken.compiler.support#block-variable-literal\077")); lf[445]=C_h_intern(&lf[445],52, C_text("chicken.compiler.support#block-variable-literal-name")); lf[446]=C_h_intern(&lf[446],27, C_text("block-variable-literal-name")); lf[447]=C_h_intern(&lf[447],21, C_text("scheme#string->symbol")); lf[448]=C_h_intern(&lf[448],28, C_text("chicken.time#current-seconds")); lf[450]=C_h_intern(&lf[450],47, C_text("chicken.compiler.support#clear-real-name-table!")); lf[451]=C_h_intern(&lf[451],39, C_text("chicken.compiler.support#set-real-name!")); lf[452]=C_h_intern(&lf[452],38, C_text("chicken.compiler.support#get-real-name")); lf[453]=C_h_intern(&lf[453],33, C_text("chicken.string#string-intersperse")); lf[454]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 in ")); lf[455]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003...")); lf[456]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 in ")); lf[457]=C_h_intern(&lf[457],12, C_text("contained-in")); lf[458]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 in ")); lf[459]=C_h_intern(&lf[459],35, C_text("chicken.compiler.support#real-name2")); lf[460]=C_h_intern(&lf[460],48, C_text("chicken.compiler.support#display-real-name-table")); lf[461]=C_h_intern(&lf[461],44, C_text("chicken.compiler.support#source-info->string")); lf[462]=C_h_intern(&lf[462],19, C_text("chicken.string#conc")); lf[463]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001:")); lf[464]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[465]=C_h_intern(&lf[465],18, C_text("scheme#make-string")); lf[466]=C_h_intern(&lf[466],10, C_text("scheme#max")); lf[467]=C_h_intern(&lf[467],42, C_text("chicken.compiler.support#source-info->name")); lf[468]=C_h_intern(&lf[468],42, C_text("chicken.compiler.support#source-info->line")); lf[469]=C_h_intern(&lf[469],34, C_text("chicken.compiler.support#call-info")); lf[470]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[471]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002) ")); lf[472]=C_h_intern(&lf[472],43, C_text("chicken.compiler.support#constant-form-eval")); lf[473]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032folded constant expression")); lf[474]=C_decode_literal(C_heaptop,C_text("\376B\000\000Dattempt to constant-fold call to procedure that has multiple results")); lf[476]=C_h_intern(&lf[476],28, C_text("chicken.condition#condition\077")); lf[477]=C_h_intern(&lf[477],10, C_text("##sys#list")); lf[478]=C_decode_literal(C_heaptop,C_text("\376B\000\000.attempt to constant-fold call to non-procedure")); lf[479]=C_h_intern(&lf[479],49, C_text("chicken.compiler.support#maybe-constant-fold-call")); lf[480]=C_h_intern(&lf[480],35, C_text("chicken.compiler.support#predicate\077")); lf[481]=C_h_intern(&lf[481],34, C_text("chicken.compiler.support#foldable\077")); lf[482]=C_h_intern(&lf[482],20, C_text("##compiler#intrinsic")); lf[483]=C_h_intern(&lf[483],20, C_text("##sys#number->string")); lf[484]=C_h_intern(&lf[484],35, C_text("chicken.compiler.support#dump-nodes")); lf[485]=C_h_intern(&lf[485],21, C_text("##sys#write-char/port")); lf[486]=C_h_intern(&lf[486],39, C_text("chicken.compiler.support#read-info-hook")); lf[487]=C_h_intern(&lf[487],29, C_text("##sys#current-source-filename")); lf[488]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001:")); lf[489]=C_h_intern(&lf[489],9, C_text("list-info")); lf[490]=C_h_intern(&lf[490],41, C_text("chicken.compiler.support#read/source-info")); lf[491]=C_h_intern(&lf[491],10, C_text("##sys#read")); lf[492]=C_h_intern(&lf[492],20, C_text("##sys#user-read-hook")); lf[493]=C_h_intern(&lf[493],15, C_text("foreign-declare")); lf[494]=C_h_intern(&lf[494],7, C_text("declare")); lf[495]=C_decode_literal(C_heaptop,C_text("\376B\000\000&unexpected end of `#> ... <#\047 sequence")); lf[496]=C_h_intern(&lf[496],20, C_text("##sys#read-char/port")); lf[497]=C_h_intern(&lf[497],25, C_text("chicken.platform#feature\077")); lf[498]=C_h_intern_kw(&lf[498],5, C_text("64bit")); lf[499]=C_h_intern(&lf[499],38, C_text("chicken.compiler.support#small-bignum\077")); lf[500]=C_h_intern(&lf[500],6, C_text("hidden")); lf[501]=C_h_intern(&lf[501],40, C_text("chicken.compiler.support#export-variable")); lf[502]=C_h_intern(&lf[502],8, C_text("exported")); lf[503]=C_h_intern(&lf[503],38, C_text("chicken.compiler.support#mark-variable")); lf[504]=C_h_intern(&lf[504],38, C_text("chicken.compiler.support#variable-mark")); lf[505]=C_h_intern(&lf[505],35, C_text("chicken.compiler.support#intrinsic\077")); lf[506]=C_h_intern(&lf[506],19, C_text("##compiler#foldable")); lf[507]=C_h_intern(&lf[507],20, C_text("##compiler#predicate")); lf[508]=C_h_intern(&lf[508],49, C_text("chicken.compiler.support#load-identifier-database")); lf[509]=C_h_intern(&lf[509],9, C_text("##core#db")); lf[510]=C_h_intern(&lf[510],27, C_text("scheme#call-with-input-file")); lf[511]=C_h_intern(&lf[511],1, C_text("p")); lf[512]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 ...")); lf[513]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034loading identifier database ")); lf[514]=C_h_intern(&lf[514],22, C_text("chicken.load#find-file")); lf[515]=C_h_intern(&lf[515],32, C_text("chicken.platform#repository-path")); lf[516]=C_h_intern(&lf[516],38, C_text("chicken.compiler.support#print-version")); lf[517]=C_h_intern(&lf[517],19, C_text("chicken.base#print\052")); lf[518]=C_decode_literal(C_heaptop,C_text("\376B\000\000KCHICKEN\012(c) 2008-2019, The CHICKEN Team\012(c) 2000-2007, Felix L. Winkelmann\012" )); lf[519]=C_h_intern(&lf[519],36, C_text("chicken.compiler.support#print-usage")); lf[520]=C_decode_literal(C_heaptop,C_text("\376B\000\030\356Usage: chicken FILENAME [OPTION ...]\012\012 `chicken\047 is the CHICKEN compiler.\012" " \012 FILENAME should be a complete source file name with extension, or \042-\042 for\012 " " standard input. OPTION may be one of the following:\012\012 General options:\012\012 -h" "elp display this text and exit\012 -version " " display compiler version and exit\012 -release print " "release number and exit\012 -verbose display information on " "compilation progress\012\012 File and pathname options:\012\012 -output-file FILENAME " " specifies output-filename, default is \047out.c\047\012 -include-path PATHNAME " " specifies alternative path for included files\012 -to-stdout " " write compiled file to stdout instead of file\012\012 Language options:\012\012 -feat" "ure SYMBOL register feature identifier\012 -no-feature SYMBOL " " disable built-in feature identifier\012\012 Syntax related options:\012\012 -case-i" "nsensitive don\047t preserve case of read symbols\012 -keyword-style STY" "LE allow alternative keyword syntax\012 (p" "refix, suffix or none)\012 -no-parentheses-synonyms disables list delimiter " "synonyms\012 -no-symbol-escape disables support for escaped symbols\012 " " -r5rs-syntax disables the CHICKEN extensions to\012 " " R5RS syntax\012 -compile-syntax macros are mad" "e available at run-time\012 -emit-import-library MODULE write compile-time modu" "le information into\012 separate file\012 -emit-al" "l-import-libraries emit import-libraries for all defined modules\012 -no-modul" "e-registration do not generate module registration code\012 -no-compiler-sy" "ntax disable expansion of compiler-macros\012 -module NAME " " wrap compiled code in a module\012\012 Translation options:\012\012 -explicit-use " " do not use units \047library\047 and \047eval\047 by\012 " " default\012 -check-syntax stop compilation after macro-ex" "pansion\012 -analyze-only stop compilation after first analysis p" "ass\012\012 Debugging options:\012\012 -no-warnings disable warnings\012 " " -debug-level NUMBER set level of available debugging information\012 -" "no-trace disable tracing information\012 -debug-info " " enable debug-information in compiled code for use\012 " " with an external debugger\012 -profile executab" "le emits profiling information \012 -profile-name FILENAME name of the gen" "erated profile information file\012 -accumulate-profile executable emit" "s profiling information in\012 append mode\012 -no" "-lambda-info omit additional procedure-information\012 -emit-types-" "file FILENAME write type-declaration information into file\012 -consult-types" "-file FILENAME load additional type database\012\012 Optimization options:\012\012 -opti" "mize-level NUMBER enable certain sets of optimization options\012 -optimiz" "e-leaf-routines enable leaf routine optimization\012 -no-usual-integrations" " standard procedures may be redefined\012 -unsafe dis" "able all safety checks\012 -local assume globals are only " "modified in current\012 file\012 -block " " enable block-compilation\012 -disable-interrupts disable in" "terrupts in compiled code\012 -fixnum-arithmetic assume all numbers ar" "e fixnums\012 -disable-stack-overflow-checks disables detection of stack-overfl" "ows\012 -inline enable inlining\012 -inline-limit LIMIT " " set inlining threshold\012 -inline-global enable cross-modul" "e inlining\012 -specialize perform type-based specialization of" " primitive calls\012 -emit-inline-file FILENAME generate file with globally in" "linable\012 procedures (implies -inline -local)\012 " " -consult-inline-file FILENAME explicitly load inline file\012 -no-argc-checks" " disable argument count checks\012 -no-bound-checks dis" "able bound variable checks\012 -no-procedure-checks disable procedure ca" "ll checks\012 -no-procedure-checks-for-usual-bindings\012 " " disable procedure call checks only for usual\012 " " bindings\012 -no-procedure-checks-for-toplevel-bindings\012 " " disable procedure call checks for toplevel\012 " " bindings\012 -strict-types assume variable do n" "ot change their type\012 -clustering combine groups of local pr" "ocedures into dispatch\012 loop\012 -lfa2 " " perform additional lightweight flow-analysis pass\012\012 Configurati" "on options:\012\012 -unit NAME compile file as a library unit\012 " " -uses NAME declare library unit as used.\012 -heap-size NUMBE" "R specifies heap-size of compiled executable\012 -nursery NUMBER -st" "ack-size NUMBER\012 specifies nursery size of compi" "led executable\012 -extend FILENAME load file before compilation com" "mences\012 -prelude EXPRESSION add expression to front of source file\012 " " -postlude EXPRESSION add expression to end of source file\012 -prolog" "ue FILENAME include file before main source file\012 -epilogue FILENAM" "E include file after main source file\012 -dynamic " " compile as dynamically loadable code\012 -require-extension NAME require a" "nd import extension NAME\012\012 Obscure options:\012\012 -debug MODES d" "isplay debugging output for the given modes\012 -raw do " "not generate implicit init- and exit code \012 -emit-e" "xternal-prototypes-first\012 emit prototypes for ca" "llbacks before foreign\012 declarations\012 -regen" "erate-import-libraries emit import libraries even when unchanged\012 -ignore-rep" "ository do not refer to repository for extensions\012 -setup-mode " " prefer the current directory when locating extensions\012")); lf[521]=C_h_intern(&lf[521],44, C_text("chicken.compiler.support#print-debug-options")); lf[522]=C_decode_literal(C_heaptop,C_text("\376B\000\007\026\012Available debugging options:\012\012 a show node-matching during si" "mplification\012 b show breakdown of time needed for each compiler pas" "s\012 c print every expression before macro-expansion\012 d " "lists all assigned global variables\012 e show information about speci" "alizations\012 h you already figured that out\012 i show inf" "ormation about inlining\012 m show GC statistics during compilation\012 " " n print the line-number database \012 o show performed opt" "imizations\012 p display information about what the compiler is curren" "tly doing\012 r show invocation parameters\012 s show progra" "m-size information and other statistics\012 t show time needed for com" "pilation\012 u lists all unassigned global variable references\012 x " " display information about experimental features\012 D when pr" "inting nodes, use node-tree output\012 I show inferred type informatio" "n for unexported globals\012 M show syntax-/runtime-requirements\012 " "N show the real-name mapping table\012 P show expressions aft" "er specialization\012 S show applications of compiler syntax\012 T " " show expressions after converting to node tree\012 1 show sourc" "e expressions\012 2 show canonicalized expressions\012 3 sho" "w expressions converted into CPS\012 4 show database after each analys" "is pass\012 5 show expressions after each optimization pass\012 6 " " show expressions after each inlining pass\012 7 show expressions" " after complete optimization\012 8 show database after final analysis\012" " 9 show expressions after closure conversion\012\012")); lf[523]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007#sexpr o|hiding unexported module binding: chicken.compiler.support#sexpr->node o|hiding unexported module binding: chicken.compiler.support#foreign-callback-stub o|hiding unexported module binding: chicken.compiler.support#foreign-type-table o|hiding unexported module binding: chicken.compiler.support#block-variable-literal o|hiding unexported module binding: chicken.compiler.support#real-name-table o|hiding unexported module binding: chicken.compiler.support#real-name-max-depth o|hiding unexported module binding: chicken.compiler.support#encodeable-literal? o|hiding unexported module binding: chicken.compiler.support#scan-sharp-greater-string o|hiding unexported module binding: chicken.compiler.support#unhide-variable S|applied compiler syntax: S| chicken.format#sprintf 4 S| chicken.format#fprintf 5 S| chicken.format#printf 6 S| scheme#for-each 10 S| chicken.base#foldl 3 S| scheme#map 33 S| chicken.base#foldr 3 o|eliminated procedure checks: 438 o|specializations: o| 1 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 1 (scheme#+ fixnum fixnum) o| 1 (scheme#number->string * *) o| 1 (chicken.base#exact-integer? *) o| 2 (chicken.bitwise#integer-length *) o| 1 (scheme#length list) o| 1 (scheme#- fixnum fixnum) o| 1 (scheme#> integer integer) o| 1 (chicken.base#sub1 fixnum) o| 4 (scheme#= fixnum fixnum) o| 2 (scheme#assq * (list-of pair)) o| 1 (scheme#* fixnum fixnum) o| 1 (scheme#positive? *) o| 4 (scheme#cddr (pair * pair)) o| 1 (scheme#caddr (pair * (pair * pair))) o| 1 (scheme#integer? *) o| 330 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 2 (##sys#call-with-values (procedure () *) *) o| 3 (chicken.base#add1 *) o| 1 (scheme#cadr (pair * pair)) o| 2 (scheme#current-input-port) o| 4 (scheme#char=? char char) o| 1 (scheme#number->string fixnum fixnum) o| 3 (scheme#memq * list) o| 1 (scheme#>= fixnum fixnum) o| 3 (scheme#< fixnum fixnum) o| 1 (chicken.base#sub1 *) o| 2 (scheme#zero? *) o| 2 (chicken.base#current-error-port) o| 15 (##sys#check-output-port * * *) o| 1 (scheme#eqv? * *) o| 9 (##sys#check-list (or pair list) *) o| 52 (scheme#cdr pair) o| 34 (scheme#car pair) (o e)|safe calls: 1805 (o e)|assignments to immediate values: 5 o|safe globals: (chicken.compiler.support#bomb chicken.compiler.support#debugging-chicken chicken.compiler.support#compiler-cleanup-hook chicken.compiler.support#unsafe chicken.compiler.support#number-type chicken.compiler.support#constant659 chicken.compiler.support#posv chicken.compiler.support#posq chicken.compiler.support#make-list chicken.compiler.support#iota chicken.compiler.support#find-tail chicken.compiler.support#find chicken.compiler.support#length+ chicken.compiler.support#lset=/eq? chicken.compiler.support#lset<=/eq? chicken.compiler.support#list-tabulate chicken.compiler.support#lset-intersection/eq? chicken.compiler.support#lset-union/eq? chicken.compiler.support#lset-difference/eq? chicken.compiler.support#lset-adjoin/eq? chicken.compiler.support#list-index chicken.compiler.support#last chicken.compiler.support#unzip1 chicken.compiler.support#remove chicken.compiler.support#filter-map chicken.compiler.support#filter chicken.compiler.support#alist-cons chicken.compiler.support#delete-duplicates chicken.compiler.support#fifth chicken.compiler.support#fourth chicken.compiler.support#third chicken.compiler.support#second chicken.compiler.support#first chicken.compiler.support#delete chicken.compiler.support#concatenate chicken.compiler.support#cons* chicken.compiler.support#any chicken.compiler.support#every chicken.compiler.support#append-map chicken.compiler.support#split-at chicken.compiler.support#drop chicken.compiler.support#take chicken.compiler.support#span chicken.compiler.support#partition) o|removed side-effect free assignment to unused variable: chicken.compiler.support#partition o|removed side-effect free assignment to unused variable: chicken.compiler.support#span o|inlining procedure: k5251 o|inlining procedure: k5251 o|removed side-effect free assignment to unused variable: chicken.compiler.support#drop o|removed side-effect free assignment to unused variable: chicken.compiler.support#append-map o|inlining procedure: k5521 o|inlining procedure: k5521 o|inlining procedure: k5552 o|inlining procedure: k5552 o|merged explicitly consed rest parameter: xs320 o|inlining procedure: k5582 o|inlining procedure: k5582 o|removed side-effect free assignment to unused variable: chicken.compiler.support#concatenate o|removed side-effect free assignment to unused variable: chicken.compiler.support#delete-duplicates o|inlining procedure: k5769 o|inlining procedure: k5769 o|inlining procedure: k5761 o|inlining procedure: k5761 o|removed side-effect free assignment to unused variable: chicken.compiler.support#remove o|inlining procedure: k5918 o|inlining procedure: k5918 o|removed side-effect free assignment to unused variable: chicken.compiler.support#list-index o|merged explicitly consed rest parameter: vals460 o|inlining procedure: k5977 o|inlining procedure: k5977 o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset-union/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset-intersection/eq? o|inlining procedure: k6160 o|inlining procedure: k6160 o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset<=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.support#length+ o|removed side-effect free assignment to unused variable: chicken.compiler.support#find-tail o|removed side-effect free assignment to unused variable: chicken.compiler.support#iota o|removed side-effect free assignment to unused variable: chicken.compiler.support#make-list o|removed side-effect free assignment to unused variable: chicken.compiler.support#posq o|removed side-effect free assignment to unused variable: chicken.compiler.support#posv o|inlining procedure: k6428 o|inlining procedure: k6428 o|inlining procedure: k6456 o|inlining procedure: k6456 o|inlining procedure: k6489 o|inlining procedure: k6522 o|contracted procedure: "(support.scm:137) g686693" o|propagated global variable: out696699 ##sys#standard-output o|substituted constant variable: a6504 o|substituted constant variable: a6505 o|inlining procedure: k6522 o|inlining procedure: k6489 o|propagated global variable: out711714 chicken.compiler.support#collected-debugging-output o|substituted constant variable: a6546 o|substituted constant variable: a6547 o|propagated global variable: out711714 chicken.compiler.support#collected-debugging-output o|inlining procedure: k6557 o|inlining procedure: k6557 o|propagated global variable: out747750 chicken.compiler.support#collected-debugging-output o|substituted constant variable: a6603 o|substituted constant variable: a6604 o|inlining procedure: k6618 o|inlining procedure: k6618 o|inlining procedure: k6634 o|inlining procedure: k6634 o|inlining procedure: k6654 o|inlining procedure: k6654 o|inlining procedure: k6736 o|inlining procedure: k6736 o|substituted constant variable: a6757 o|substituted constant variable: a6758 o|substituted constant variable: a6778 o|substituted constant variable: a6779 o|contracted procedure: "(support.scm:199) thread-id827" o|propagated global variable: t828 ##sys#current-thread o|contracted procedure: "(support.scm:213) chicken.compiler.support#map-llist" o|inlining procedure: k6826 o|inlining procedure: k6826 o|inlining procedure: k6885 o|inlining procedure: k6885 o|inlining procedure: k6906 o|inlining procedure: k6906 o|inlining procedure: k6935 o|inlining procedure: k6935 o|inlining procedure: k6984 o|inlining procedure: k6984 o|substituted constant variable: a7027 o|inlining procedure: k7031 o|inlining procedure: k7031 o|substituted constant variable: a7038 o|substituted constant variable: a7040 o|inlining procedure: k7053 o|inlining procedure: k7053 o|substituted constant variable: a7057 o|substituted constant variable: a7059 o|substituted constant variable: a7061 o|inlining procedure: k7068 o|inlining procedure: k7093 o|inlining procedure: k7093 o|substituted constant variable: a7102 o|substituted constant variable: a7106 o|inlining procedure: k7068 o|inlining procedure: k7129 o|propagated global variable: r713017373 ##sys#standard-input o|inlining procedure: k7129 o|inlining procedure: k7144 o|inlining procedure: k7144 o|inlining procedure: k7173 o|inlining procedure: k7173 o|inlining procedure: k7185 o|inlining procedure: k7185 o|inlining procedure: k7205 o|inlining procedure: k7205 o|inlining procedure: k7247 o|inlining procedure: k7247 o|inlining procedure: k7305 o|inlining procedure: k7305 o|inlining procedure: k7339 o|inlining procedure: k7339 o|inlining procedure: k7351 o|inlining procedure: k7351 o|inlining procedure: k7363 o|inlining procedure: k7363 o|inlining procedure: k7375 o|inlining procedure: k7375 o|inlining procedure: k7384 o|inlining procedure: k7384 o|inlining procedure: k7401 o|inlining procedure: k7401 o|inlining procedure: k7413 o|inlining procedure: k7413 o|inlining procedure: k7431 o|inlining procedure: k7431 o|inlining procedure: k7443 o|inlining procedure: k7443 o|inlining procedure: k7455 o|inlining procedure: k7455 o|inlining procedure: k7477 o|inlining procedure: k7477 o|inlining procedure: k7489 o|inlining procedure: k7489 o|inlining procedure: k7498 o|inlining procedure: k7498 o|inlining procedure: k7536 o|inlining procedure: k7536 o|inlining procedure: k7549 o|inlining procedure: k7549 o|inlining procedure: k7590 o|inlining procedure: k7590 o|inlining procedure: k7634 o|inlining procedure: k7634 o|inlining procedure: k7654 o|inlining procedure: k7654 o|inlining procedure: k7686 o|inlining procedure: k7686 o|merged explicitly consed rest parameter: args10671085 o|consed rest parameter at call site: tmp24743 1 o|inlining procedure: k7736 o|inlining procedure: k7736 o|inlining procedure: k7751 o|inlining procedure: k7751 o|inlining procedure: k7878 o|contracted procedure: "(support.scm:410) g11301139" o|inlining procedure: k7878 o|propagated global variable: g11361140 chicken.compiler.support#profile-lambda-list o|inlining procedure: k7931 o|inlining procedure: k7931 o|inlining procedure: k7949 o|contracted procedure: "(support.scm:428) chicken.compiler.support#filter-map" o|inlining procedure: k5816 o|inlining procedure: k5816 o|inlining procedure: k5805 o|inlining procedure: k5805 o|inlining procedure: k7949 o|inlining procedure: k7967 o|inlining procedure: k7979 o|inlining procedure: k7979 o|inlining procedure: k7967 o|inlining procedure: k8013 o|inlining procedure: k8013 o|inlining procedure: k8065 o|inlining procedure: k8065 o|inlining procedure: k8090 o|inlining procedure: k8090 o|propagated global variable: out12131216 ##sys#standard-output o|substituted constant variable: a8132 o|substituted constant variable: a8133 o|inlining procedure: k8128 o|inlining procedure: k8159 o|inlining procedure: k8159 o|propagated global variable: out12131216 ##sys#standard-output o|inlining procedure: k8128 o|removed side-effect free assignment to unused variable: chicken.compiler.support#node o|contracted procedure: "(support.scm:488) g13091310" o|contracted procedure: "(support.scm:489) g13161317" o|inlining procedure: k8302 o|inlining procedure: k8302 o|inlining procedure: k8322 o|inlining procedure: k8322 o|inlining procedure: k8338 o|contracted procedure: "(support.scm:499) g13421343" o|inlining procedure: k8371 o|inlining procedure: k8371 o|inlining procedure: k8338 o|inlining procedure: k8415 o|inlining procedure: k8415 o|inlining procedure: k8434 o|inlining procedure: k8434 o|inlining procedure: k8445 o|contracted procedure: "(support.scm:515) g13791380" o|inlining procedure: k8515 o|inlining procedure: k8515 o|contracted procedure: "(support.scm:516) chicken.compiler.support#unzip1" o|inlining procedure: k5878 o|contracted procedure: "(mini-srfi-1.scm:143) g423432" o|inlining procedure: k5878 o|inlining procedure: k8445 o|contracted procedure: "(support.scm:520) g14141415" o|inlining procedure: k8583 o|contracted procedure: "(support.scm:522) g14191420" o|inlining procedure: "(support.scm:524) chicken.compiler.support#fourth" o|inlining procedure: "(support.scm:523) chicken.compiler.support#third" o|inlining procedure: "(support.scm:523) chicken.compiler.support#second" o|inlining procedure: k8583 o|inlining procedure: k8641 o|contracted procedure: "(support.scm:529) g14321433" o|contracted procedure: "(support.scm:533) g14371438" o|inlining procedure: k8641 o|contracted procedure: "(support.scm:535) g14421443" o|inlining procedure: k8767 o|contracted procedure: "(support.scm:544) g14491450" o|inlining procedure: k8805 o|inlining procedure: k8805 o|inlining procedure: k8837 o|inlining procedure: k8837 o|inlining procedure: k8767 o|contracted procedure: "(support.scm:549) g14871488" o|inlining procedure: k8892 o|inlining procedure: k8892 o|inlining procedure: k8927 o|contracted procedure: "(support.scm:551) g15181519" o|inlining procedure: k8927 o|contracted procedure: "(support.scm:553) g15231524" o|inlining procedure: k8967 o|contracted procedure: "(support.scm:555) g15311532" o|inlining procedure: k9003 o|inlining procedure: k9003 o|inlining procedure: k8967 o|contracted procedure: "(support.scm:560) g15631564" o|contracted procedure: "(support.scm:562) chicken.compiler.support#fifth" o|inlining procedure: "(support.scm:562) chicken.compiler.support#fourth" o|inlining procedure: "(support.scm:562) chicken.compiler.support#third" o|inlining procedure: "(support.scm:559) chicken.compiler.support#second" o|inlining procedure: k9099 o|contracted procedure: "(support.scm:566) g15801581" o|inlining procedure: k9140 o|inlining procedure: k9140 o|inlining procedure: "(support.scm:566) chicken.compiler.support#second" o|inlining procedure: "(support.scm:566) chicken.compiler.support#first" o|inlining procedure: k9099 o|contracted procedure: "(support.scm:568) g16111612" o|inlining procedure: k9203 o|inlining procedure: k9203 o|contracted procedure: "(support.scm:571) g16441645" o|inlining procedure: k9271 o|inlining procedure: k9271 o|inlining procedure: k9307 o|inlining procedure: k9317 o|inlining procedure: k9317 o|inlining procedure: k9307 o|contracted procedure: "(support.scm:573) g16531654" o|substituted constant variable: a9337 o|inlining procedure: k9341 o|inlining procedure: k9341 o|inlining procedure: k9353 o|inlining procedure: k9353 o|substituted constant variable: a9360 o|substituted constant variable: a9362 o|substituted constant variable: a9364 o|substituted constant variable: a9366 o|substituted constant variable: a9368 o|substituted constant variable: a9370 o|substituted constant variable: a9375 o|substituted constant variable: a9377 o|substituted constant variable: a9379 o|substituted constant variable: a9381 o|inlining procedure: k9385 o|inlining procedure: k9385 o|substituted constant variable: a9392 o|substituted constant variable: a9394 o|substituted constant variable: a9396 o|substituted constant variable: a9398 o|substituted constant variable: a9400 o|substituted constant variable: a9402 o|substituted constant variable: a9407 o|substituted constant variable: a9409 o|substituted constant variable: a9411 o|substituted constant variable: a9413 o|substituted constant variable: a9418 o|substituted constant variable: a9420 o|contracted procedure: "(support.scm:583) g16881689" o|inlining procedure: k9443 o|inlining procedure: k9443 o|contracted procedure: "(support.scm:495) g13301331" o|inlining procedure: k9485 o|inlining procedure: k9485 o|inlining procedure: k9525 o|inlining procedure: k9550 o|inlining procedure: k9550 o|inlining procedure: k9525 o|inlining procedure: k9607 o|inlining procedure: k9607 o|inlining procedure: k9638 o|inlining procedure: k9638 o|inlining procedure: k9656 o|inlining procedure: k9656 o|inlining procedure: k9673 o|inlining procedure: k9673 o|inlining procedure: k9685 o|inlining procedure: k9727 o|inlining procedure: k9727 o|inlining procedure: k9775 o|inlining procedure: k9775 o|inlining procedure: k9685 o|inlining procedure: "(support.scm:611) chicken.compiler.support#third" o|inlining procedure: "(support.scm:608) chicken.compiler.support#second" o|inlining procedure: k9834 o|inlining procedure: "(support.scm:614) chicken.compiler.support#first" o|inlining procedure: "(support.scm:614) chicken.compiler.support#first" o|inlining procedure: k9834 o|inlining procedure: "(support.scm:616) chicken.compiler.support#first" o|inlining procedure: k9868 o|inlining procedure: k9900 o|inlining procedure: k9900 o|inlining procedure: "(support.scm:619) chicken.compiler.support#first" o|inlining procedure: k9868 o|inlining procedure: k9976 o|inlining procedure: k9976 o|inlining procedure: k10007 o|consed rest parameter at call site: "(support.scm:629) chicken.compiler.support#cons*" 2 o|inlining procedure: k10033 o|inlining procedure: k10033 o|inlining procedure: k10007 o|inlining procedure: k10073 o|inlining procedure: k10089 o|inlining procedure: k10089 o|inlining procedure: k10073 o|consed rest parameter at call site: "(support.scm:637) chicken.compiler.support#cons*" 2 o|inlining procedure: k10159 o|inlining procedure: k10159 o|inlining procedure: k10194 o|consed rest parameter at call site: "(support.scm:639) chicken.compiler.support#cons*" 2 o|inlining procedure: k10216 o|inlining procedure: k10216 o|inlining procedure: k10194 o|inlining procedure: k10267 o|inlining procedure: k10267 o|substituted constant variable: a10299 o|inlining procedure: k10303 o|inlining procedure: k10303 o|substituted constant variable: a10316 o|substituted constant variable: a10318 o|substituted constant variable: a10320 o|substituted constant variable: a10322 o|substituted constant variable: a10324 o|substituted constant variable: a10326 o|substituted constant variable: a10328 o|substituted constant variable: a10330 o|substituted constant variable: a10332 o|substituted constant variable: a10334 o|substituted constant variable: a10336 o|substituted constant variable: a10338 o|substituted constant variable: a10340 o|substituted constant variable: a10342 o|substituted constant variable: a10344 o|substituted constant variable: a10346 o|inlining procedure: k10350 o|inlining procedure: k10350 o|substituted constant variable: a10357 o|substituted constant variable: a10359 o|substituted constant variable: a10361 o|contracted procedure: "(support.scm:593) g17351736" o|contracted procedure: "(support.scm:592) g17321733" o|contracted procedure: "(support.scm:591) g17291730" o|inlining procedure: k10371 o|inlining procedure: k10371 o|contracted procedure: "(support.scm:646) g20442045" o|inlining procedure: "(support.scm:648) chicken.compiler.support#second" o|inlining procedure: "(support.scm:648) chicken.compiler.support#first" o|contracted procedure: "(support.scm:656) chicken.compiler.support#split-at" o|inlining procedure: k5309 o|inlining procedure: k5309 o|inlining procedure: k10451 o|contracted procedure: "(support.scm:665) g20932094" o|inlining procedure: k10477 o|inlining procedure: k10477 o|contracted procedure: "(support.scm:669) g20982099" o|substituted constant variable: a10499 o|inlining procedure: k10451 o|contracted procedure: "(support.scm:675) g21032104" o|contracted procedure: "(support.scm:659) chicken.compiler.support#copy-node-tree-and-rename" o|inlining procedure: k10634 o|contracted procedure: "(support.scm:689) g21712172" o|inlining procedure: k10634 o|inlining procedure: "(support.scm:694) rename2147" o|inlining procedure: "(support.scm:691) chicken.compiler.support#first" o|inlining procedure: k10673 o|contracted procedure: "(support.scm:696) g21782179" o|inlining procedure: "(support.scm:698) chicken.compiler.support#first" o|inlining procedure: "(support.scm:697) rename2147" o|inlining procedure: "(support.scm:697) chicken.compiler.support#first" o|inlining procedure: k10673 o|contracted procedure: "(support.scm:705) g21872188" o|inlining procedure: "(support.scm:707) chicken.compiler.support#second" o|inlining procedure: "(support.scm:701) chicken.compiler.support#first" o|inlining procedure: "(support.scm:700) chicken.compiler.support#first" o|inlining procedure: k10760 o|contracted procedure: "(support.scm:718) g22582259" o|inlining procedure: k10826 o|inlining procedure: k10826 o|inlining procedure: "(support.scm:722) chicken.compiler.support#fourth" o|inlining procedure: k10874 o|inlining procedure: "(support.scm:721) rename2147" o|inlining procedure: k10874 o|inlining procedure: "(support.scm:720) chicken.compiler.support#second" o|inlining procedure: k10893 o|inlining procedure: k10893 o|inlining procedure: k10941 o|inlining procedure: k10941 o|inlining procedure: "(support.scm:710) chicken.compiler.support#third" o|inlining procedure: k10760 o|contracted procedure: "(support.scm:724) g22982299" o|inlining procedure: k11002 o|inlining procedure: k11002 o|substituted constant variable: a11034 o|substituted constant variable: a11036 o|substituted constant variable: a11038 o|substituted constant variable: a11040 o|substituted constant variable: a11042 o|contracted procedure: "(support.scm:686) g21622163" o|contracted procedure: "(support.scm:685) g21592160" o|contracted procedure: "(support.scm:684) g21562157" o|inlining procedure: k11049 o|inlining procedure: k11049 o|inlining procedure: k10555 o|inlining procedure: k10555 o|inlining procedure: k11103 o|inlining procedure: k11103 o|contracted procedure: "(support.scm:736) g23462347" o|contracted procedure: "(support.scm:738) g23572358" o|contracted procedure: "(support.scm:737) g23542355" o|contracted procedure: "(support.scm:736) g23512352" o|contracted procedure: "(support.scm:743) g23692370" o|contracted procedure: "(support.scm:742) g23662367" o|contracted procedure: "(support.scm:741) g23632364" o|inlining procedure: k11367 o|inlining procedure: k11390 o|contracted procedure: "(support.scm:794) g25322539" o|inlining procedure: k11390 o|contracted procedure: "(support.scm:794) chicken.compiler.support#sort-symbols" o|inlining procedure: k11367 o|inlining procedure: k11451 o|contracted procedure: "(support.scm:786) g25102517" o|inlining procedure: k11451 o|inlining procedure: k11478 o|inlining procedure: k11493 o|inlining procedure: k11511 o|inlining procedure: k11528 o|contracted procedure: "(support.scm:778) chicken.compiler.support#node->sexpr" o|inlining procedure: k11256 o|inlining procedure: k11256 o|contracted procedure: "(support.scm:750) g24072408" o|contracted procedure: "(support.scm:749) g23852386" o|contracted procedure: "(support.scm:748) g23822383" o|inlining procedure: k11566 o|inlining procedure: k11566 o|inlining procedure: "(support.scm:776) chicken.compiler.support#fourth" o|substituted constant variable: a11580 o|substituted constant variable: a11582 o|contracted procedure: "(support.scm:772) g25012502" o|inlining procedure: k11528 o|contracted procedure: "(support.scm:770) g24902491" o|inlining procedure: k11511 o|inlining procedure: k11493 o|contracted procedure: "(support.scm:765) g24762477" o|contracted procedure: "(support.scm:765) g24792480" o|inlining procedure: k11478 o|inlining procedure: k11638 o|inlining procedure: k11638 o|contracted procedure: "(support.scm:803) g25602561" o|contracted procedure: "(support.scm:806) chicken.compiler.support#sexpr->node" o|contracted procedure: "(support.scm:754) g24222423" o|inlining procedure: k11327 o|inlining procedure: k11327 o|inlining procedure: k11685 o|inlining procedure: k11685 o|inlining procedure: k11716 o|inlining procedure: k11716 o|inlining procedure: k11731 o|inlining procedure: k11731 o|inlining procedure: k11763 o|inlining procedure: k11763 o|inlining procedure: k11778 o|inlining procedure: k11803 o|inlining procedure: k11803 o|inlining procedure: k11821 o|inlining procedure: k11821 o|contracted procedure: "(support.scm:833) g26212622" o|inlining procedure: k11778 o|inlining procedure: "(support.scm:832) chicken.compiler.support#second" o|contracted procedure: "(support.scm:832) g26092610" o|inlining procedure: "(support.scm:831) chicken.compiler.support#first" o|contracted procedure: "(support.scm:831) g26052606" o|inlining procedure: k11885 o|contracted procedure: "(support.scm:844) g26292630" o|contracted procedure: "(support.scm:844) g26262627" o|inlining procedure: k11885 o|inlining procedure: k11934 o|inlining procedure: k11934 o|contracted procedure: "(support.scm:857) chicken.compiler.support#find" o|inlining procedure: k6273 o|inlining procedure: k6273 o|propagated global variable: lst566 chicken.compiler.support#foreign-callback-stubs o|inlining procedure: "(support.scm:856) chicken.compiler.support#first" o|contracted procedure: "(support.scm:856) g26642665" o|inlining procedure: k11974 o|inlining procedure: k11974 o|substituted constant variable: a11990 o|substituted constant variable: a11992 o|substituted constant variable: a11994 o|inlining procedure: k11998 o|inlining procedure: k11998 o|substituted constant variable: a12011 o|substituted constant variable: a12013 o|substituted constant variable: a12015 o|substituted constant variable: a12017 o|contracted procedure: "(support.scm:853) g26512652" o|contracted procedure: "(support.scm:852) g26422643" o|inlining procedure: k12035 o|inlining procedure: k12058 o|inlining procedure: k12081 o|inlining procedure: k12081 o|inlining procedure: "(support.scm:875) chicken.compiler.support#first" o|contracted procedure: "(support.scm:875) g27042705" o|contracted procedure: "(support.scm:874) g27002701" o|inlining procedure: "(support.scm:873) chicken.compiler.support#first" o|contracted procedure: "(support.scm:872) g26952696" o|inlining procedure: k12058 o|contracted procedure: "(support.scm:878) g27072708" o|substituted constant variable: a12135 o|substituted constant variable: a12137 o|contracted procedure: "(support.scm:870) g26912692" o|inlining procedure: "(support.scm:868) chicken.compiler.support#second" o|inlining procedure: k12035 o|inlining procedure: "(support.scm:866) chicken.compiler.support#first" o|inlining procedure: "(support.scm:865) chicken.compiler.support#third" o|contracted procedure: "(support.scm:864) g26752676" o|inlining procedure: k12153 o|inlining procedure: k12153 o|inlining procedure: k12168 o|inlining procedure: k12168 o|inlining procedure: k12194 o|inlining procedure: k12194 o|inlining procedure: k12209 o|inlining procedure: k12209 o|inlining procedure: k12231 o|inlining procedure: k12251 o|inlining procedure: k12251 o|inlining procedure: k12231 o|inlining procedure: k12274 o|contracted procedure: "(support.scm:918) chicken.compiler.support#unhide-variable" o|inlining procedure: k17044 o|inlining procedure: k17044 o|inlining procedure: k12274 o|contracted procedure: "(support.scm:917) g27392740" o|removed side-effect free assignment to unused variable: chicken.compiler.support#foreign-callback-stub o|contracted procedure: "(support.scm:941) g27812782" o|inlining procedure: k12388 o|inlining procedure: k12388 o|inlining procedure: k12425 o|inlining procedure: k12425 o|inlining procedure: k12473 o|inlining procedure: k12473 o|inlining procedure: k12497 o|inlining procedure: k12497 o|inlining procedure: k12503 o|inlining procedure: k12503 o|inlining procedure: k12556 o|inlining procedure: k12556 o|inlining procedure: k12610 o|inlining procedure: k12610 o|inlining procedure: k12668 o|substituted constant variable: tmap2821 o|substituted constant variable: tmap2821 o|inlining procedure: k12668 o|substituted constant variable: a12710 o|substituted constant variable: a12711 o|inlining procedure: k12724 o|inlining procedure: k12724 o|substituted constant variable: a12753 o|substituted constant variable: a12754 o|inlining procedure: k12737 o|inlining procedure: k12737 o|inlining procedure: k12816 o|inlining procedure: k12816 o|inlining procedure: k12870 o|inlining procedure: k12870 o|inlining procedure: k12898 o|inlining procedure: k12898 o|inlining procedure: k12922 o|inlining procedure: k12922 o|inlining procedure: k12944 o|inlining procedure: k12944 o|inlining procedure: k13018 o|inlining procedure: k13018 o|inlining procedure: k13059 o|inlining procedure: k13059 o|inlining procedure: k13065 o|inlining procedure: k13065 o|inlining procedure: k13091 o|inlining procedure: k13091 o|substituted constant variable: a13123 o|substituted constant variable: a13125 o|substituted constant variable: a13127 o|substituted constant variable: a13129 o|substituted constant variable: a13131 o|substituted constant variable: a13133 o|substituted constant variable: a13135 o|substituted constant variable: a13140 o|substituted constant variable: a13142 o|inlining procedure: k13146 o|inlining procedure: k13146 o|substituted constant variable: a13159 o|substituted constant variable: a13161 o|substituted constant variable: a13163 o|substituted constant variable: a13165 o|substituted constant variable: a13173 o|inlining procedure: k13177 o|inlining procedure: k13177 o|substituted constant variable: a13184 o|substituted constant variable: a13186 o|substituted constant variable: a13188 o|inlining procedure: k13192 o|inlining procedure: k13192 o|substituted constant variable: a13205 o|substituted constant variable: a13207 o|substituted constant variable: a13209 o|substituted constant variable: a13211 o|substituted constant variable: a13213 o|inlining procedure: k13217 o|inlining procedure: k13217 o|substituted constant variable: a13224 o|substituted constant variable: a13226 o|substituted constant variable: a13228 o|inlining procedure: k13232 o|inlining procedure: k13232 o|inlining procedure: k13244 o|inlining procedure: k13244 o|substituted constant variable: a13257 o|substituted constant variable: a13259 o|substituted constant variable: a13261 o|substituted constant variable: a13263 o|substituted constant variable: a13265 o|substituted constant variable: a13267 o|inlining procedure: k13271 o|inlining procedure: k13271 o|inlining procedure: k13283 o|inlining procedure: k13283 o|substituted constant variable: a13296 o|substituted constant variable: a13298 o|substituted constant variable: a13300 o|substituted constant variable: a13302 o|substituted constant variable: a13304 o|substituted constant variable: a13306 o|inlining procedure: k13310 o|inlining procedure: k13310 o|inlining procedure: k13322 o|inlining procedure: k13322 o|inlining procedure: k13334 o|inlining procedure: k13334 o|inlining procedure: k13346 o|inlining procedure: k13346 o|substituted constant variable: a13359 o|substituted constant variable: a13361 o|substituted constant variable: a13363 o|substituted constant variable: a13365 o|substituted constant variable: a13367 o|substituted constant variable: a13369 o|substituted constant variable: a13371 o|substituted constant variable: a13373 o|substituted constant variable: a13375 o|substituted constant variable: a13377 o|inlining procedure: k13381 o|inlining procedure: k13381 o|inlining procedure: k13393 o|inlining procedure: k13393 o|inlining procedure: k13405 o|inlining procedure: k13405 o|inlining procedure: k13417 o|inlining procedure: k13417 o|substituted constant variable: a13430 o|substituted constant variable: a13432 o|substituted constant variable: a13434 o|substituted constant variable: a13436 o|substituted constant variable: a13438 o|substituted constant variable: a13440 o|substituted constant variable: a13442 o|substituted constant variable: a13444 o|substituted constant variable: a13446 o|substituted constant variable: a13448 o|substituted constant variable: a13450 o|substituted constant variable: a13452 o|substituted constant variable: a13457 o|substituted constant variable: a13459 o|substituted constant variable: a13464 o|substituted constant variable: a13466 o|inlining procedure: k13470 o|inlining procedure: k13470 o|substituted constant variable: a13477 o|substituted constant variable: a13479 o|substituted constant variable: a13481 o|inlining procedure: k13485 o|inlining procedure: k13485 o|inlining procedure: k13497 o|inlining procedure: k13497 o|substituted constant variable: a13510 o|substituted constant variable: a13512 o|substituted constant variable: a13514 o|substituted constant variable: a13516 o|substituted constant variable: a13518 o|substituted constant variable: a13520 o|substituted constant variable: a13525 o|substituted constant variable: a13527 o|inlining procedure: k13543 o|inlining procedure: k13543 o|inlining procedure: k13549 o|inlining procedure: k13549 o|inlining procedure: k13570 o|inlining procedure: k13570 o|inlining procedure: k13576 o|inlining procedure: k13576 o|inlining procedure: k13600 o|inlining procedure: k13600 o|removed unused formal parameters: (t3172) o|inlining procedure: k13642 o|inlining procedure: k13642 o|inlining procedure: k13663 o|inlining procedure: k13663 o|inlining procedure: k13687 o|inlining procedure: k13687 o|inlining procedure: k13717 o|inlining procedure: k13736 o|inlining procedure: k13736 o|removed unused parameter to known procedure: t3172 "(support.scm:1178) err3171" o|substituted constant variable: a13762 o|substituted constant variable: a13764 o|inlining procedure: k13768 o|inlining procedure: k13768 o|inlining procedure: k13780 o|inlining procedure: k13780 o|inlining procedure: k13792 o|inlining procedure: k13792 o|inlining procedure: k13804 o|inlining procedure: k13804 o|substituted constant variable: a13811 o|substituted constant variable: a13813 o|substituted constant variable: a13815 o|substituted constant variable: a13817 o|substituted constant variable: a13819 o|substituted constant variable: a13821 o|substituted constant variable: a13823 o|substituted constant variable: a13825 o|substituted constant variable: a13827 o|inlining procedure: k13717 o|removed unused parameter to known procedure: t3172 "(support.scm:1179) err3171" o|inlining procedure: k13840 o|inlining procedure: k13840 o|substituted constant variable: a13853 o|substituted constant variable: a13855 o|substituted constant variable: a13857 o|substituted constant variable: a13859 o|inlining procedure: k13863 o|inlining procedure: k13863 o|substituted constant variable: a13870 o|substituted constant variable: a13872 o|substituted constant variable: a13874 o|inlining procedure: k13878 o|inlining procedure: k13878 o|inlining procedure: k13890 o|inlining procedure: k13890 o|substituted constant variable: a13903 o|substituted constant variable: a13905 o|substituted constant variable: a13907 o|substituted constant variable: a13909 o|substituted constant variable: a13911 o|substituted constant variable: a13913 o|inlining procedure: k13917 o|inlining procedure: k13917 o|inlining procedure: k13929 o|inlining procedure: k13929 o|inlining procedure: k13941 o|inlining procedure: k13941 o|inlining procedure: k13953 o|inlining procedure: k13953 o|inlining procedure: k13965 o|inlining procedure: k13965 o|substituted constant variable: a13978 o|substituted constant variable: a13980 o|substituted constant variable: a13982 o|substituted constant variable: a13984 o|substituted constant variable: a13986 o|substituted constant variable: a13988 o|substituted constant variable: a13990 o|substituted constant variable: a13992 o|substituted constant variable: a13994 o|substituted constant variable: a13996 o|substituted constant variable: a13998 o|substituted constant variable: a14000 o|inlining procedure: k14004 o|inlining procedure: k14004 o|inlining procedure: k14016 o|inlining procedure: k14016 o|inlining procedure: k14028 o|inlining procedure: k14028 o|inlining procedure: k14040 o|inlining procedure: k14040 o|inlining procedure: k14052 o|inlining procedure: k14052 o|inlining procedure: k14064 o|inlining procedure: k14064 o|substituted constant variable: a14071 o|substituted constant variable: a14073 o|substituted constant variable: a14075 o|substituted constant variable: a14077 o|substituted constant variable: a14079 o|substituted constant variable: a14081 o|substituted constant variable: a14083 o|substituted constant variable: a14085 o|substituted constant variable: a14087 o|substituted constant variable: a14089 o|substituted constant variable: a14091 o|substituted constant variable: a14093 o|substituted constant variable: a14095 o|inlining procedure: k14117 o|inlining procedure: k14117 o|inlining procedure: k14144 o|inlining procedure: k14144 o|inlining procedure: k14166 o|inlining procedure: k14166 o|inlining procedure: "(support.scm:1206) err3323" o|substituted constant variable: a14195 o|inlining procedure: k14199 o|inlining procedure: k14199 o|inlining procedure: k14211 o|inlining procedure: k14211 o|inlining procedure: k14223 o|inlining procedure: k14223 o|inlining procedure: k14235 o|inlining procedure: k14235 o|substituted constant variable: a14242 o|substituted constant variable: a14244 o|substituted constant variable: a14246 o|substituted constant variable: a14248 o|substituted constant variable: a14250 o|substituted constant variable: a14252 o|substituted constant variable: a14254 o|substituted constant variable: a14256 o|substituted constant variable: a14258 o|inlining procedure: "(support.scm:1207) err3323" o|inlining procedure: k14271 o|inlining procedure: k14271 o|inlining procedure: k14283 o|inlining procedure: k14283 o|substituted constant variable: a14290 o|substituted constant variable: a14292 o|substituted constant variable: a14294 o|substituted constant variable: a14296 o|substituted constant variable: a14298 o|inlining procedure: k14302 o|inlining procedure: k14302 o|inlining procedure: k14314 o|inlining procedure: k14314 o|inlining procedure: k14326 o|inlining procedure: k14326 o|inlining procedure: k14338 o|inlining procedure: k14338 o|inlining procedure: k14350 o|inlining procedure: k14350 o|inlining procedure: k14362 o|inlining procedure: k14362 o|inlining procedure: k14374 o|inlining procedure: k14374 o|inlining procedure: k14386 o|inlining procedure: k14386 o|inlining procedure: k14398 o|inlining procedure: k14398 o|inlining procedure: k14410 o|inlining procedure: k14410 o|inlining procedure: k14422 o|inlining procedure: k14422 o|inlining procedure: k14434 o|inlining procedure: k14434 o|inlining procedure: k14446 o|inlining procedure: k14446 o|inlining procedure: k14458 o|inlining procedure: k14458 o|inlining procedure: k14470 o|inlining procedure: k14470 o|substituted constant variable: a14483 o|substituted constant variable: a14485 o|substituted constant variable: a14487 o|substituted constant variable: a14489 o|substituted constant variable: a14491 o|substituted constant variable: a14493 o|substituted constant variable: a14495 o|substituted constant variable: a14497 o|substituted constant variable: a14499 o|substituted constant variable: a14501 o|substituted constant variable: a14503 o|substituted constant variable: a14505 o|substituted constant variable: a14507 o|substituted constant variable: a14509 o|substituted constant variable: a14511 o|substituted constant variable: a14513 o|substituted constant variable: a14515 o|substituted constant variable: a14517 o|substituted constant variable: a14519 o|substituted constant variable: a14521 o|substituted constant variable: a14523 o|substituted constant variable: a14525 o|substituted constant variable: a14527 o|substituted constant variable: a14529 o|substituted constant variable: a14531 o|substituted constant variable: a14533 o|substituted constant variable: a14535 o|substituted constant variable: a14537 o|substituted constant variable: a14539 o|substituted constant variable: a14541 o|substituted constant variable: a14543 o|substituted constant variable: a14545 o|inlining procedure: k14558 o|inlining procedure: k14558 o|inlining procedure: k14587 o|inlining procedure: k14587 o|inlining procedure: k14619 o|inlining procedure: k14619 o|inlining procedure: k14649 o|inlining procedure: k14649 o|inlining procedure: k14668 o|inlining procedure: k14668 o|inlining procedure: k14690 o|inlining procedure: k14690 o|substituted constant variable: a14755 o|substituted constant variable: a14760 o|substituted constant variable: a14762 o|substituted constant variable: a14763 o|inlining procedure: k14771 o|substituted constant variable: a14781 o|inlining procedure: k14771 o|substituted constant variable: a14782 o|substituted constant variable: a14792 o|substituted constant variable: a14794 o|substituted constant variable: a14796 o|substituted constant variable: a14801 o|substituted constant variable: a14803 o|substituted constant variable: a14808 o|substituted constant variable: a14810 o|substituted constant variable: a14812 o|substituted constant variable: a14817 o|substituted constant variable: a14819 o|inlining procedure: k14826 o|inlining procedure: k14826 o|inlining procedure: k14841 o|inlining procedure: k14841 o|inlining procedure: k14859 o|inlining procedure: k14859 o|substituted constant variable: a14866 o|inlining procedure: k14867 o|inlining procedure: k14867 o|inlining procedure: k14882 o|inlining procedure: k14882 o|substituted constant variable: a14889 o|inlining procedure: k14890 o|inlining procedure: k14890 o|inlining procedure: k14902 o|inlining procedure: k14902 o|substituted constant variable: a14909 o|inlining procedure: k14910 o|inlining procedure: k14910 o|inlining procedure: k14925 o|inlining procedure: k14925 o|substituted constant variable: a14942 o|inlining procedure: k14943 o|inlining procedure: k14943 o|inlining procedure: k14955 o|inlining procedure: k14955 o|inlining procedure: k14967 o|inlining procedure: k14967 o|inlining procedure: k14979 o|inlining procedure: k14979 o|inlining procedure: k14991 o|inlining procedure: k14991 o|inlining procedure: k15003 o|inlining procedure: k15003 o|inlining procedure: k15018 o|inlining procedure: k15018 o|inlining procedure: k15033 o|inlining procedure: k15033 o|inlining procedure: k15051 o|inlining procedure: k15051 o|inlining procedure: k15064 o|inlining procedure: k15064 o|inlining procedure: k15086 o|inlining procedure: k15086 o|inlining procedure: k15098 o|inlining procedure: k15098 o|substituted constant variable: a15105 o|substituted constant variable: a15107 o|substituted constant variable: a15109 o|substituted constant variable: a15111 o|inlining procedure: k15115 o|inlining procedure: k15115 o|substituted constant variable: a15128 o|substituted constant variable: a15130 o|substituted constant variable: a15132 o|substituted constant variable: a15134 o|substituted constant variable: a15136 o|inlining procedure: k15140 o|inlining procedure: k15140 o|substituted constant variable: a15147 o|substituted constant variable: a15149 o|substituted constant variable: a15151 o|substituted constant variable: a15156 o|substituted constant variable: a15158 o|inlining procedure: k15162 o|inlining procedure: k15162 o|substituted constant variable: a15175 o|substituted constant variable: a15177 o|substituted constant variable: a15179 o|substituted constant variable: a15181 o|substituted constant variable: a15183 o|substituted constant variable: a15185 o|inlining procedure: k15189 o|inlining procedure: k15189 o|inlining procedure: k15201 o|inlining procedure: k15201 o|inlining procedure: k15213 o|inlining procedure: k15213 o|inlining procedure: k15225 o|inlining procedure: k15225 o|substituted constant variable: a15232 o|substituted constant variable: a15234 o|substituted constant variable: a15236 o|substituted constant variable: a15238 o|substituted constant variable: a15240 o|substituted constant variable: a15242 o|substituted constant variable: a15244 o|substituted constant variable: a15246 o|substituted constant variable: a15248 o|substituted constant variable: a15250 o|substituted constant variable: a15252 o|substituted constant variable: a15254 o|substituted constant variable: a15256 o|substituted constant variable: a15258 o|substituted constant variable: a15260 o|substituted constant variable: a15262 o|substituted constant variable: a15264 o|substituted constant variable: a15266 o|substituted constant variable: a15268 o|inlining procedure: k15272 o|inlining procedure: k15272 o|inlining procedure: k15284 o|inlining procedure: k15284 o|inlining procedure: k15296 o|inlining procedure: k15296 o|inlining procedure: k15308 o|inlining procedure: k15308 o|substituted constant variable: a15321 o|substituted constant variable: a15323 o|substituted constant variable: a15325 o|substituted constant variable: a15327 o|substituted constant variable: a15329 o|substituted constant variable: a15331 o|substituted constant variable: a15333 o|substituted constant variable: a15335 o|substituted constant variable: a15337 o|substituted constant variable: a15339 o|substituted constant variable: a15341 o|substituted constant variable: a15343 o|substituted constant variable: a15345 o|substituted constant variable: a15347 o|substituted constant variable: a15352 o|substituted constant variable: a15354 o|substituted constant variable: a15359 o|substituted constant variable: a15361 o|inlining procedure: k15365 o|inlining procedure: k15365 o|inlining procedure: k15377 o|inlining procedure: k15377 o|inlining procedure: k15389 o|inlining procedure: k15389 o|substituted constant variable: a15402 o|substituted constant variable: a15404 o|substituted constant variable: a15406 o|substituted constant variable: a15408 o|substituted constant variable: a15410 o|substituted constant variable: a15412 o|substituted constant variable: a15414 o|substituted constant variable: a15416 o|substituted constant variable: a15421 o|substituted constant variable: a15423 o|substituted constant variable: a15425 o|inlining procedure: k15451 o|inlining procedure: k15475 o|inlining procedure: k15475 o|inlining procedure: "(support.scm:1319) chicken.compiler.support#first" o|contracted procedure: "(support.scm:1319) g37213722" o|inlining procedure: k15451 o|inlining procedure: k15539 o|inlining procedure: k15539 o|inlining procedure: k15562 o|inlining procedure: k15562 o|substituted constant variable: a15569 o|substituted constant variable: a15571 o|substituted constant variable: a15573 o|substituted constant variable: a15578 o|substituted constant variable: a15580 o|contracted procedure: "(support.scm:1317) g37143715" o|contracted procedure: "(support.scm:1316) g37053706" o|inlining procedure: k15611 o|inlining procedure: k15611 o|inlining procedure: k15629 o|inlining procedure: k15629 o|consed rest parameter at call site: "(support.scm:1344) chicken.compiler.support#lset-adjoin/eq?" 2 o|consed rest parameter at call site: "(support.scm:1342) chicken.compiler.support#lset-adjoin/eq?" 2 o|inlining procedure: "(support.scm:1340) chicken.compiler.support#first" o|inlining procedure: k15649 o|consed rest parameter at call site: "(support.scm:1347) chicken.compiler.support#lset-adjoin/eq?" 2 o|inlining procedure: "(support.scm:1346) chicken.compiler.support#first" o|inlining procedure: k15649 o|inlining procedure: "(support.scm:1351) chicken.compiler.support#second" o|inlining procedure: "(support.scm:1350) chicken.compiler.support#first" o|inlining procedure: k15699 o|inlining procedure: "(support.scm:1356) chicken.compiler.support#first" o|inlining procedure: "(support.scm:1354) chicken.compiler.support#third" o|inlining procedure: k15699 o|substituted constant variable: a15730 o|substituted constant variable: a15732 o|substituted constant variable: a15734 o|substituted constant variable: a15736 o|inlining procedure: k15740 o|inlining procedure: k15740 o|inlining procedure: k15752 o|inlining procedure: k15752 o|substituted constant variable: a15759 o|substituted constant variable: a15761 o|substituted constant variable: a15763 o|substituted constant variable: a15765 o|substituted constant variable: a15767 o|contracted procedure: "(support.scm:1337) g37913792" o|contracted procedure: "(support.scm:1336) g37823783" o|contracted procedure: "(support.scm:1335) g37793780" o|inlining procedure: k15785 o|inlining procedure: k15785 o|inlining procedure: k15818 o|inlining procedure: k15818 o|substituted constant variable: a15828 o|substituted constant variable: a15833 o|removed side-effect free assignment to unused variable: chicken.compiler.support#block-variable-literal o|substituted constant variable: a15867 o|substituted constant variable: a15868 o|inlining procedure: k15890 o|inlining procedure: k15890 o|inlining procedure: k15932 o|inlining procedure: k15932 o|inlining procedure: k15944 o|inlining procedure: k15944 o|inlining procedure: k15974 o|inlining procedure: k15974 o|inlining procedure: k15997 o|inlining procedure: k15997 o|substituted constant variable: chicken.compiler.support#real-name-max-depth o|inlining procedure: k16049 o|inlining procedure: k16049 o|propagated global variable: out39163919 ##sys#standard-output o|substituted constant variable: a16065 o|substituted constant variable: a16066 o|propagated global variable: out39163919 ##sys#standard-output o|inlining procedure: k16082 o|substituted constant variable: a16106 o|inlining procedure: k16082 o|inlining procedure: k16117 o|inlining procedure: k16117 o|inlining procedure: k16132 o|inlining procedure: k16132 o|inlining procedure: k16150 o|inlining procedure: k16150 o|inlining procedure: k16153 o|inlining procedure: k16153 o|inlining procedure: "(support.scm:1470) chicken.compiler.support#second" o|inlining procedure: k16210 o|inlining procedure: k16231 o|inlining procedure: k16231 o|substituted constant variable: a16259 o|substituted constant variable: a16272 o|inlining procedure: k16210 o|inlining procedure: k16343 o|contracted procedure: "(support.scm:1482) g39893998" o|inlining procedure: k16343 o|inlining procedure: k16377 o|contracted procedure: "(support.scm:1481) g39583967" o|inlining procedure: "(support.scm:1481) chicken.compiler.support#first" o|contracted procedure: "(support.scm:1481) g39703971" o|inlining procedure: k16377 o|contracted procedure: "(support.scm:1499) g40334034" o|inlining procedure: k16426 o|inlining procedure: k16463 o|inlining procedure: k16463 o|contracted procedure: "(support.scm:1502) g40444045" o|inlining procedure: "(support.scm:1501) chicken.compiler.support#first" o|contracted procedure: "(support.scm:1501) g40404041" o|inlining procedure: k16426 o|contracted procedure: "(support.scm:1500) g40364037" o|inlining procedure: k16524 o|inlining procedure: k16524 o|inlining procedure: k16537 o|inlining procedure: k16537 o|substituted constant variable: a16571 o|merged explicitly consed rest parameter: args40724078 o|consed rest parameter at call site: tmp25103 1 o|inlining procedure: k16593 o|inlining procedure: k16593 o|inlining procedure: k16612 o|inlining procedure: "(support.scm:1530) getsize4062" o|inlining procedure: k16612 o|inlining procedure: "(support.scm:1532) getsize4062" o|substituted constant variable: a16684 o|propagated global variable: out41084121 ##sys#standard-output o|substituted constant variable: a16686 o|substituted constant variable: a16687 o|propagated global variable: out41444147 ##sys#standard-output o|substituted constant variable: a16730 o|substituted constant variable: a16731 o|inlining procedure: k16720 o|inlining procedure: k16747 o|propagated global variable: out41534156 ##sys#standard-output o|substituted constant variable: a16754 o|substituted constant variable: a16755 o|inlining procedure: k16747 o|propagated global variable: out41534156 ##sys#standard-output o|propagated global variable: out41444147 ##sys#standard-output o|inlining procedure: k16720 o|inlining procedure: k16780 o|inlining procedure: k16780 o|propagated global variable: out41084121 ##sys#standard-output o|contracted procedure: "(support.scm:1546) g41054106" o|contracted procedure: "(support.scm:1545) g41024103" o|contracted procedure: "(support.scm:1544) g40994100" o|inlining procedure: k16803 o|inlining procedure: k16828 o|inlining procedure: k16828 o|inlining procedure: k16803 o|inlining procedure: k16852 o|contracted procedure: "(support.scm:1586) chicken.compiler.support#scan-sharp-greater-string" o|inlining procedure: k16889 o|inlining procedure: k16889 o|substituted constant variable: a16902 o|substituted constant variable: a16913 o|inlining procedure: k16909 o|substituted constant variable: a16935 o|inlining procedure: k16909 o|inlining procedure: k16852 o|inlining procedure: k16946 o|inlining procedure: k16961 o|inlining procedure: k16961 o|inlining procedure: k16946 o|inlining procedure: k16970 o|inlining procedure: k16970 o|contracted procedure: "(support.scm:1629) g42154216" o|contracted procedure: "(support.scm:1632) g42314232" o|inlining procedure: k17059 o|inlining procedure: k17059 o|substituted constant variable: a17075 o|substituted constant variable: a17077 o|contracted procedure: "(support.scm:1656) g42824283" o|contracted procedure: "(support.scm:1658) g42934294" o|contracted procedure: "(support.scm:1659) g43044305" o|inlining procedure: k17138 o|inlining procedure: k17181 o|contracted procedure: "(support.scm:1667) g43274334" o|inlining procedure: k17181 o|substituted constant variable: a17206 o|substituted constant variable: a17207 o|inlining procedure: k17138 o|substituted constant variable: chicken.compiler.support#constant659 o|substituted constant variable: a17274 o|substituted constant variable: a17275 o|contracted procedure: "(support.scm:483) g12951296" o|contracted procedure: "(support.scm:483) g12921293" o|replaced variables: 2848 o|removed binding forms: 646 o|substituted constant variable: r525217309 o|substituted constant variable: r555317313 o|removed side-effect free assignment to unused variable: chicken.compiler.support#first o|removed side-effect free assignment to unused variable: chicken.compiler.support#second o|removed side-effect free assignment to unused variable: chicken.compiler.support#third o|removed side-effect free assignment to unused variable: chicken.compiler.support#fourth o|removed side-effect free assignment to unused variable: chicken.compiler.support#filter o|removed side-effect free assignment to unused variable: chicken.compiler.support#constant659 o|propagated global variable: out696699 ##sys#standard-output o|propagated global variable: out711714 chicken.compiler.support#collected-debugging-output o|substituted constant variable: r655817343 o|inlining procedure: k6572 o|substituted constant variable: r655817344 o|inlining procedure: k6581 o|propagated global variable: out747750 chicken.compiler.support#collected-debugging-output o|converted assignments to bindings: (collect732) o|substituted constant variable: r682717355 o|converted assignments to bindings: (err844) o|substituted constant variable: r698517363 o|substituted constant variable: r703217365 o|substituted constant variable: r703217366 o|substituted constant variable: r706917372 o|substituted constant variable: r738517398 o|substituted constant variable: r749917414 o|substituted constant variable: r753717415 o|substituted constant variable: r765517425 o|substituted constant variable: r793217436 o|substituted constant variable: r580617441 o|substituted constant variable: r795017442 o|substituted constant variable: r806617450 o|propagated global variable: out12131216 ##sys#standard-output o|substituted constant variable: c1311 o|substituted constant variable: s1313 o|substituted constant variable: c1318 o|substituted constant variable: s1320 o|substituted constant variable: p1345 o|substituted constant variable: r843517470 o|substituted constant variable: c1381 o|substituted constant variable: c1416 o|substituted constant variable: c1421 o|substituted constant variable: c1434 o|substituted constant variable: c1439 o|substituted constant variable: p1440 o|substituted constant variable: s1441 o|substituted constant variable: c1444 o|substituted constant variable: s1522 o|substituted constant variable: c1525 o|substituted constant variable: s1527 o|substituted constant variable: c1533 o|substituted constant variable: c1565 o|substituted constant variable: c1613 o|substituted constant variable: c1646 o|substituted constant variable: mark1656 o|substituted constant variable: c1690 o|substituted constant variable: c2046 o|substituted constant variable: p2047 o|substituted constant variable: c2095 o|substituted constant variable: c2100 o|substituted constant variable: c2105 o|removed side-effect free assignment to unused variable: rename2147 o|substituted constant variable: s2175 o|substituted constant variable: c2180 o|substituted constant variable: c2189 o|substituted constant variable: c2260 o|substituted constant variable: r1087517723 o|substituted constant variable: r1087517723 o|substituted constant variable: r1156717760 o|substituted constant variable: mark2504 o|substituted constant variable: r1152917767 o|substituted constant variable: r1151217768 o|substituted constant variable: r1149417769 o|substituted constant variable: mark2482 o|substituted constant variable: mark2567 o|substituted constant variable: r1173217780 o|substituted constant variable: r1182217786 o|substituted constant variable: r1177917788 o|substituted constant variable: r1188617800 o|substituted constant variable: r1193517801 o|substituted constant variable: r627417803 o|substituted constant variable: r1197517811 o|substituted constant variable: r1208217817 o|substituted constant variable: r1203617834 o|substituted constant variable: r1216917848 o|substituted constant variable: r1221017852 o|substituted constant variable: r1225217856 o|substituted constant variable: r1225217856 o|substituted constant variable: rest27862789 o|substituted constant variable: mark2788 o|substituted constant variable: r1242617867 o|substituted constant variable: r1242617867 o|substituted constant variable: r1355017944 o|substituted constant variable: r1357717948 o|substituted constant variable: r1364317951 o|converted assignments to bindings: (err3171) o|removed side-effect free assignment to unused variable: err3323 o|substituted constant variable: r1477218070 o|substituted constant variable: r1482718071 o|substituted constant variable: r1484218073 o|substituted constant variable: r1486018075 o|substituted constant variable: r1486018076 o|substituted constant variable: r1486818077 o|substituted constant variable: r1488318079 o|substituted constant variable: r1488318080 o|substituted constant variable: r1489118081 o|substituted constant variable: r1490318083 o|substituted constant variable: r1490318084 o|substituted constant variable: r1491118085 o|substituted constant variable: r1494418089 o|substituted constant variable: r1495618091 o|substituted constant variable: r1496818093 o|substituted constant variable: r1498018095 o|substituted constant variable: r1499218097 o|substituted constant variable: r1500418099 o|substituted constant variable: r1501918101 o|substituted constant variable: r1503418103 o|substituted constant variable: r1505218105 o|substituted constant variable: r1506518107 o|substituted constant variable: r1508718109 o|substituted constant variable: r1561218154 o|removed side-effect free assignment to unused variable: chicken.compiler.support#real-name-max-depth o|converted assignments to bindings: (resolve3885) o|substituted constant variable: r1605018213 o|propagated global variable: out39163919 ##sys#standard-output o|substituted constant variable: r1613318219 o|substituted constant variable: r1615418223 o|substituted constant variable: r1646418244 o|converted assignments to bindings: (constant-node?4031) o|removed side-effect free assignment to unused variable: getsize4062 o|substituted constant variable: r1653818254 o|contracted procedure: "(support.scm:1536) chicken.compiler.support#list-tabulate" o|substituted constant variable: r616117325 o|propagated global variable: out41084121 ##sys#standard-output o|propagated global variable: out41444147 ##sys#standard-output o|propagated global variable: out41534156 ##sys#standard-output o|substituted constant variable: r1682918281 o|substituted constant variable: r1682918281 o|substituted constant variable: r1694718294 o|substituted constant variable: r1697118296 o|substituted constant variable: mark4222 o|substituted constant variable: mark4238 o|substituted constant variable: r1706018297 o|substituted constant variable: mark4285 o|substituted constant variable: mark4296 o|substituted constant variable: mark4307 o|substituted constant variable: r1713918302 o|simplifications: ((let . 5)) o|replaced variables: 139 o|removed binding forms: 2811 o|substituted constant variable: r65581734318328 o|substituted constant variable: r65581734418330 o|inlining procedure: "(support.scm:396) chicken.compiler.support#alist-cons" o|inlining procedure: "(support.scm:436) chicken.compiler.support#alist-cons" o|inlining procedure: "(support.scm:444) chicken.compiler.support#alist-cons" o|inlining procedure: "(support.scm:703) chicken.compiler.support#alist-cons" o|inlining procedure: k11646 o|inlining procedure: "(support.scm:818) chicken.compiler.support#alist-cons" o|inlining procedure: k11980 o|inlining procedure: k12365 o|inlining procedure: k13113 o|inlining procedure: k13540 o|inlining procedure: k13540 o|inlining procedure: k13540 o|inlining procedure: k13567 o|inlining procedure: k13567 o|inlining procedure: k13567 o|inlining procedure: k15658 o|inlining procedure: k15658 o|inlining procedure: k16147 o|inlining procedure: k16147 o|inlining procedure: "(support.scm:1524) fits?4063" o|inlining procedure: "(support.scm:1528) fits?4063" o|inlining procedure: "(support.scm:1530) fits?4063" o|inlining procedure: "(support.scm:1533) fits?4063" o|converted assignments to bindings: (fits?4063) o|inlining procedure: "(support.scm:1569) chicken.compiler.support#alist-cons" o|inlining procedure: "(support.scm:1569) chicken.compiler.support#alist-cons" o|inlining procedure: k16996 o|inlining procedure: k17016 o|inlining procedure: k17081 o|inlining procedure: k17233 o|simplifications: ((let . 1)) o|replaced variables: 113 o|removed binding forms: 277 o|removed side-effect free assignment to unused variable: chicken.compiler.support#alist-cons o|inlining procedure: k8840 o|substituted constant variable: r1164718716 o|contracted procedure: k12279 o|substituted constant variable: r1236618740 o|substituted constant variable: r1354118744 o|substituted constant variable: r1354118744 o|substituted constant variable: r1354118744 o|substituted constant variable: r1354118747 o|substituted constant variable: r1354118747 o|substituted constant variable: r1354118747 o|substituted constant variable: r1354118750 o|substituted constant variable: r1354118750 o|substituted constant variable: r1354118750 o|substituted constant variable: r1356818753 o|substituted constant variable: r1356818753 o|substituted constant variable: r1356818753 o|substituted constant variable: r1356818756 o|substituted constant variable: r1356818756 o|substituted constant variable: r1356818756 o|substituted constant variable: r1356818759 o|substituted constant variable: r1356818759 o|substituted constant variable: r1356818759 o|substituted constant variable: r1614818780 o|substituted constant variable: r1614818780 o|substituted constant variable: r1614818780 o|substituted constant variable: r1614818783 o|substituted constant variable: r1614818783 o|substituted constant variable: r1614818783 o|contracted procedure: k16619 o|contracted procedure: k16622 o|substituted constant variable: z36318821 o|substituted constant variable: r1699718827 o|substituted constant variable: r1701718828 o|substituted constant variable: r1708218829 o|simplifications: ((let . 1)) o|replaced variables: 58 o|removed binding forms: 122 o|removed conditional forms: 8 o|substituted constant variable: r884118890 o|removed binding forms: 73 o|removed conditional forms: 1 o|removed binding forms: 1 o|simplifications: ((if . 72) (##core#call . 1440)) o| call simplifications: o| chicken.base#bignum? o| scheme#char=? o| scheme#read-char 3 o| ##sys#size o| chicken.fixnum#fx> 2 o| scheme#write-char 6 o| chicken.base#flonum? o| scheme#procedure? o| scheme#> o| chicken.fixnum#fx+ 3 o| scheme#string-length 4 o| scheme#string-ref o| scheme#list? 5 o| scheme#vector-ref 6 o| scheme#vector 2 o| scheme#< o| scheme#- o| ##sys#call-with-values 4 o| scheme#cddddr o| scheme#list-ref o| scheme#cdddr o| scheme#caar 2 o| scheme#cadddr 4 o| scheme#caddr 10 o| scheme#cadr 38 o| ##sys#check-structure 12 o| ##sys#block-ref 9 o| ##sys#structure? 5 o| ##sys#make-structure 34 o| scheme#values 4 o| scheme#assq 16 o| scheme#length 6 o| ##sys#setslot 35 o| chicken.base#atom? o| ##sys#apply 3 o| ##sys#cons 8 o| scheme#equal? 3 o| ##sys#list 139 o| chicken.base#fixnum? 2 o| scheme#number? 4 o| scheme#char? 4 o| scheme#string? 2 o| scheme#boolean? 4 o| scheme#vector? 2 o| scheme#eq? 352 o| scheme#eof-object? 7 o| scheme#member o| scheme#cddr 4 o| scheme#list 49 o| scheme#string=? 2 o| ##sys#foreign-fixnum-argument 2 o| scheme#char-alphabetic? 2 o| scheme#char-numeric? o| scheme#char->integer o| chicken.fixnum#fx>= 3 o| chicken.fixnum#fx< 4 o| scheme#string->list 3 o| scheme#list->string o| ##sys#check-list 39 o| ##sys#slot 179 o| scheme#symbol? 17 o| scheme#pair? 66 o| scheme#apply 7 o| scheme#memq 8 o| scheme#cdr 24 o| scheme#null? 47 o| scheme#not 22 o| chicken.fixnum#fx<= 7 o| scheme#car 84 o| chicken.fixnum#fx- 2 o| scheme#cons 112 o|contracted procedure: k5254 o|contracted procedure: k5261 o|contracted procedure: k5271 o|contracted procedure: k5518 o|contracted procedure: k5527 o|contracted procedure: k5540 o|contracted procedure: k5555 o|contracted procedure: k5570 o|contracted procedure: k5585 o|contracted procedure: k5596 o|contracted procedure: k5931 o|contracted procedure: k5921 o|contracted procedure: k5980 o|contracted procedure: k6006 o|contracted procedure: k5986 o|contracted procedure: k6000 o|contracted procedure: k6431 o|contracted procedure: k6459 o|contracted procedure: k6495 o|contracted procedure: k6525 o|contracted procedure: k6535 o|contracted procedure: k6539 o|contracted procedure: k6621 o|propagated global variable: out747750 chicken.compiler.support#collected-debugging-output o|contracted procedure: k6637 o|contracted procedure: k6647 o|contracted procedure: k6651 o|contracted procedure: k6721 o|contracted procedure: k6739 o|contracted procedure: k6749 o|contracted procedure: k6753 o|contracted procedure: k6792 o|contracted procedure: k6796 o|contracted procedure: k6800 o|contracted procedure: k6814 o|contracted procedure: k6876 o|contracted procedure: k6829 o|contracted procedure: k6835 o|contracted procedure: k6855 o|contracted procedure: k6888 o|contracted procedure: k6894 o|contracted procedure: k6900 o|contracted procedure: k6909 o|contracted procedure: k6919 o|contracted procedure: k6923 o|contracted procedure: k6939 o|contracted procedure: k6949 o|contracted procedure: k6970 o|contracted procedure: k6987 o|contracted procedure: k6990 o|contracted procedure: k6993 o|contracted procedure: k6999 o|contracted procedure: k7028 o|contracted procedure: k7034 o|contracted procedure: k7050 o|contracted procedure: k7071 o|contracted procedure: k7078 o|contracted procedure: k7081 o|contracted procedure: k7090 o|contracted procedure: k7096 o|contracted procedure: k7116 o|contracted procedure: k7123 o|contracted procedure: k7132 o|contracted procedure: k7147 o|contracted procedure: k7160 o|contracted procedure: k7167 o|contracted procedure: k7176 o|contracted procedure: k7235 o|contracted procedure: k7188 o|contracted procedure: k7231 o|contracted procedure: k7208 o|inlining procedure: k7205 o|inlining procedure: k7205 o|contracted procedure: k7250 o|contracted procedure: k7266 o|contracted procedure: k7327 o|contracted procedure: k7292 o|contracted procedure: k7308 o|contracted procedure: k7324 o|contracted procedure: k7336 o|contracted procedure: k7342 o|contracted procedure: k7348 o|contracted procedure: k7354 o|contracted procedure: k7360 o|contracted procedure: k7372 o|contracted procedure: k7387 o|contracted procedure: k7398 o|contracted procedure: k7404 o|contracted procedure: k7410 o|contracted procedure: k7416 o|contracted procedure: k7434 o|contracted procedure: k7440 o|contracted procedure: k7446 o|contracted procedure: k7452 o|contracted procedure: k7461 o|contracted procedure: k7474 o|contracted procedure: k7480 o|contracted procedure: k7501 o|contracted procedure: k7517 o|contracted procedure: k7539 o|contracted procedure: k7597 o|contracted procedure: k7545 o|contracted procedure: k7553 o|contracted procedure: k7578 o|contracted procedure: k7568 o|contracted procedure: k7657 o|contracted procedure: k7671 o|contracted procedure: k7663 o|contracted procedure: k7689 o|contracted procedure: k7703 o|contracted procedure: k7739 o|contracted procedure: k7745 o|contracted procedure: k7754 o|contracted procedure: k7764 o|contracted procedure: k7768 o|contracted procedure: k7833 o|contracted procedure: k7829 o|contracted procedure: k7801 o|contracted procedure: k7825 o|contracted procedure: k7821 o|contracted procedure: k7805 o|contracted procedure: k7817 o|contracted procedure: k7813 o|contracted procedure: k7809 o|contracted procedure: k7797 o|contracted procedure: k574618606 o|propagated global variable: z36318603 chicken.compiler.support#profile-lambda-list o|contracted procedure: k7922 o|contracted procedure: k7914 o|contracted procedure: k7918 o|contracted procedure: k7910 o|contracted procedure: k7843 o|contracted procedure: k7847 o|contracted procedure: k7869 o|contracted procedure: k7881 o|contracted procedure: k7884 o|contracted procedure: k7887 o|contracted procedure: k7895 o|contracted procedure: k7903 o|contracted procedure: k7866 o|contracted procedure: k7856 o|contracted procedure: k7860 o|propagated global variable: g11361140 chicken.compiler.support#profile-lambda-list o|contracted procedure: k7934 o|contracted procedure: k5796 o|contracted procedure: k5808 o|contracted procedure: k5831 o|contracted procedure: k5839 o|contracted procedure: k7970 o|contracted procedure: k7990 o|contracted procedure: k574618617 o|contracted procedure: k8004 o|contracted procedure: k8000 o|contracted procedure: k8016 o|contracted procedure: k8030 o|contracted procedure: k8026 o|contracted procedure: k8041 o|contracted procedure: k8045 o|contracted procedure: k574618624 o|contracted procedure: k8056 o|contracted procedure: k8052 o|contracted procedure: k8075 o|contracted procedure: k8081 o|contracted procedure: k8099 o|contracted procedure: k8103 o|contracted procedure: k8116 o|contracted procedure: k8147 o|contracted procedure: k8150 o|contracted procedure: k8162 o|contracted procedure: k8184 o|contracted procedure: k8180 o|contracted procedure: k8165 o|contracted procedure: k8168 o|contracted procedure: k8176 o|contracted procedure: k8206 o|contracted procedure: k8215 o|contracted procedure: k8224 o|contracted procedure: k8233 o|contracted procedure: k8242 o|contracted procedure: k8251 o|contracted procedure: k8278 o|contracted procedure: k8293 o|contracted procedure: k8305 o|contracted procedure: k8319 o|contracted procedure: k9479 o|contracted procedure: k8325 o|contracted procedure: k9475 o|contracted procedure: k8334 o|contracted procedure: k8341 o|contracted procedure: k8344 o|contracted procedure: k8358 o|contracted procedure: k8362 o|contracted procedure: k8374 o|contracted procedure: k8377 o|contracted procedure: k8380 o|contracted procedure: k8388 o|contracted procedure: k8396 o|contracted procedure: k8405 o|contracted procedure: k8408 o|contracted procedure: k8431 o|contracted procedure: k8437 o|contracted procedure: k8448 o|contracted procedure: k8451 o|contracted procedure: k8454 o|contracted procedure: k8460 o|contracted procedure: k8483 o|contracted procedure: k8492 o|contracted procedure: k8495 o|contracted procedure: k8498 o|contracted procedure: k8505 o|contracted procedure: k8518 o|contracted procedure: k8521 o|contracted procedure: k8524 o|contracted procedure: k8532 o|contracted procedure: k8540 o|contracted procedure: k5861 o|contracted procedure: k5869 o|contracted procedure: k5881 o|contracted procedure: k5903 o|contracted procedure: k5899 o|contracted procedure: k5884 o|contracted procedure: k5887 o|contracted procedure: k5895 o|contracted procedure: k8549 o|contracted procedure: k8552 o|contracted procedure: k8580 o|contracted procedure: k8564 o|contracted procedure: k8568 o|contracted procedure: k8576 o|contracted procedure: k8586 o|contracted procedure: k8614 o|contracted procedure: k8618 o|contracted procedure: k8598 o|contracted procedure: k8602 o|contracted procedure: k8610 o|contracted procedure: k8624 o|contracted procedure: k8631 o|contracted procedure: k8635 o|contracted procedure: k8644 o|contracted procedure: k8677 o|contracted procedure: k8656 o|contracted procedure: k8673 o|contracted procedure: k8664 o|contracted procedure: k8756 o|contracted procedure: k8687 o|contracted procedure: k8719 o|contracted procedure: k8699 o|contracted procedure: k8707 o|contracted procedure: k8727 o|contracted procedure: k8752 o|contracted procedure: k8736 o|contracted procedure: k8740 o|contracted procedure: k8770 o|contracted procedure: k8773 o|contracted procedure: k8791 o|contracted procedure: k8796 o|contracted procedure: k8808 o|contracted procedure: k8811 o|contracted procedure: k8814 o|contracted procedure: k8822 o|contracted procedure: k8830 o|contracted procedure: k8846 o|contracted procedure: k8840 o|contracted procedure: k8837 o|contracted procedure: k8857 o|contracted procedure: k8924 o|contracted procedure: k8874 o|contracted procedure: k8878 o|contracted procedure: k8883 o|contracted procedure: k8895 o|contracted procedure: k8898 o|contracted procedure: k8901 o|contracted procedure: k8909 o|contracted procedure: k8917 o|contracted procedure: k8930 o|contracted procedure: k8948 o|contracted procedure: k8964 o|contracted procedure: k8960 o|contracted procedure: k8970 o|contracted procedure: k8973 o|contracted procedure: k9035 o|contracted procedure: k8985 o|contracted procedure: k8989 o|contracted procedure: k8994 o|contracted procedure: k9006 o|contracted procedure: k9009 o|contracted procedure: k9012 o|contracted procedure: k9020 o|contracted procedure: k9028 o|contracted procedure: k9041 o|contracted procedure: k9096 o|contracted procedure: k9044 o|contracted procedure: k9092 o|contracted procedure: k9072 o|contracted procedure: k9088 o|contracted procedure: k9076 o|contracted procedure: k9080 o|contracted procedure: k9056 o|contracted procedure: k9060 o|contracted procedure: k9068 o|contracted procedure: k5701 o|contracted procedure: k9102 o|contracted procedure: k9117 o|contracted procedure: k9121 o|contracted procedure: k9125 o|contracted procedure: k9128 o|contracted procedure: k9131 o|contracted procedure: k9143 o|contracted procedure: k9146 o|contracted procedure: k9149 o|contracted procedure: k9157 o|contracted procedure: k9165 o|contracted procedure: k9174 o|contracted procedure: k9186 o|contracted procedure: k9190 o|contracted procedure: k9194 o|contracted procedure: k9206 o|contracted procedure: k9209 o|contracted procedure: k9212 o|contracted procedure: k9220 o|contracted procedure: k9228 o|contracted procedure: k9255 o|contracted procedure: k9259 o|contracted procedure: k9262 o|contracted procedure: k9274 o|contracted procedure: k9277 o|contracted procedure: k9280 o|contracted procedure: k9288 o|contracted procedure: k9296 o|contracted procedure: k9338 o|contracted procedure: k9344 o|contracted procedure: k9350 o|contracted procedure: k9382 o|contracted procedure: k9430 o|contracted procedure: k9434 o|contracted procedure: k9446 o|contracted procedure: k9449 o|contracted procedure: k9452 o|contracted procedure: k9460 o|contracted procedure: k9468 o|contracted procedure: k9506 o|contracted procedure: k9514 o|contracted procedure: k9522 o|contracted procedure: k9528 o|contracted procedure: k9538 o|contracted procedure: k9541 o|contracted procedure: k9553 o|contracted procedure: k9556 o|contracted procedure: k9559 o|contracted procedure: k9567 o|contracted procedure: k9575 o|contracted procedure: k9584 o|contracted procedure: k9595 o|contracted procedure: k9598 o|contracted procedure: k9591 o|contracted procedure: k9610 o|contracted procedure: k9613 o|contracted procedure: k9616 o|contracted procedure: k9624 o|contracted procedure: k9632 o|contracted procedure: k9641 o|contracted procedure: k9650 o|contracted procedure: k9653 o|contracted procedure: k9659 o|inlining procedure: k9662 o|contracted procedure: k9670 o|inlining procedure: k9662 o|contracted procedure: k9676 o|inlining procedure: k9662 o|contracted procedure: k9688 o|contracted procedure: k9695 o|contracted procedure: k9698 o|contracted procedure: k9707 o|contracted procedure: k9710 o|contracted procedure: k9766 o|contracted procedure: k9730 o|contracted procedure: k9756 o|contracted procedure: k9760 o|contracted procedure: k9752 o|contracted procedure: k9733 o|contracted procedure: k9736 o|contracted procedure: k9744 o|contracted procedure: k9748 o|contracted procedure: k9778 o|contracted procedure: k9781 o|contracted procedure: k9784 o|contracted procedure: k9792 o|contracted procedure: k9800 o|contracted procedure: k9809 o|contracted procedure: k9831 o|contracted procedure: k9816 o|contracted procedure: k9820 o|contracted procedure: k9828 o|contracted procedure: k9837 o|contracted procedure: k9844 o|contracted procedure: k9852 o|contracted procedure: k9858 o|contracted procedure: k9865 o|contracted procedure: k9871 o|contracted procedure: k9878 o|contracted procedure: k9890 o|contracted procedure: k9894 o|contracted procedure: k9903 o|contracted procedure: k9909 o|contracted procedure: k9916 o|contracted procedure: k9924 o|contracted procedure: k9943 o|contracted procedure: k9931 o|contracted procedure: k9951 o|contracted procedure: k9955 o|contracted procedure: k9961 o|contracted procedure: k9964 o|contracted procedure: k9967 o|contracted procedure: k9979 o|contracted procedure: k9982 o|contracted procedure: k9985 o|contracted procedure: k9993 o|contracted procedure: k10001 o|contracted procedure: k10010 o|contracted procedure: k10017 o|contracted procedure: k10021 o|contracted procedure: k10024 o|contracted procedure: k10036 o|contracted procedure: k10039 o|contracted procedure: k10042 o|contracted procedure: k10050 o|contracted procedure: k10058 o|contracted procedure: k10067 o|contracted procedure: k10076 o|contracted procedure: k10083 o|contracted procedure: k10105 o|contracted procedure: k10112 o|contracted procedure: k10116 o|contracted procedure: k10120 o|contracted procedure: k10132 o|contracted procedure: k10146 o|contracted procedure: k10150 o|contracted procedure: k10162 o|contracted procedure: k10165 o|contracted procedure: k10168 o|contracted procedure: k10176 o|contracted procedure: k10184 o|contracted procedure: k10191 o|contracted procedure: k10197 o|contracted procedure: k10204 o|contracted procedure: k10207 o|contracted procedure: k10219 o|contracted procedure: k10222 o|contracted procedure: k10225 o|contracted procedure: k10233 o|contracted procedure: k10241 o|contracted procedure: k10255 o|contracted procedure: k10258 o|contracted procedure: k10270 o|contracted procedure: k10273 o|contracted procedure: k10276 o|contracted procedure: k10284 o|contracted procedure: k10292 o|contracted procedure: k10300 o|contracted procedure: k10306 o|contracted procedure: k10347 o|contracted procedure: k10411 o|contracted procedure: k10374 o|contracted procedure: k10389 o|contracted procedure: k10403 o|contracted procedure: k10407 o|contracted procedure: k5312 o|contracted procedure: k5326 o|contracted procedure: k5336 o|contracted procedure: k5330 o|contracted procedure: k10454 o|contracted procedure: k10469 o|contracted procedure: k10473 o|contracted procedure: k10480 o|contracted procedure: k10501 o|contracted procedure: k10495 o|contracted procedure: k10537 o|contracted procedure: k10517 o|contracted procedure: k10525 o|contracted procedure: k10521 o|contracted procedure: k10589 o|contracted procedure: k10592 o|contracted procedure: k10595 o|contracted procedure: k10615 o|contracted procedure: k10623 o|contracted procedure: k10631 o|contracted procedure: k10637 o|contracted procedure: k10651 o|contracted procedure: k10654 o|contracted procedure: k10676 o|contracted procedure: k10688 o|contracted procedure: k10692 o|contracted procedure: k10700 o|contracted procedure: k10708 o|contracted procedure: k10714 o|contracted procedure: k10717 o|contracted procedure: k10741 o|contracted procedure: k10745 o|contracted procedure: k10753 o|contracted procedure: k574618687 o|contracted procedure: k10757 o|contracted procedure: k10763 o|contracted procedure: k10770 o|contracted procedure: k10776 o|contracted procedure: k10787 o|contracted procedure: k10862 o|contracted procedure: k10870 o|contracted procedure: k10805 o|contracted procedure: k10809 o|contracted procedure: k10817 o|contracted procedure: k10829 o|contracted procedure: k10832 o|contracted procedure: k10835 o|contracted procedure: k10843 o|contracted procedure: k10851 o|contracted procedure: k10881 o|contracted procedure: k10884 o|contracted procedure: k10932 o|contracted procedure: k10896 o|contracted procedure: k10922 o|contracted procedure: k10926 o|contracted procedure: k10918 o|contracted procedure: k10899 o|contracted procedure: k10902 o|contracted procedure: k10910 o|contracted procedure: k10914 o|contracted procedure: k10944 o|contracted procedure: k10947 o|contracted procedure: k10950 o|contracted procedure: k10958 o|contracted procedure: k10966 o|contracted procedure: k10985 o|contracted procedure: k10993 o|contracted procedure: k11005 o|contracted procedure: k11008 o|contracted procedure: k11011 o|contracted procedure: k11019 o|contracted procedure: k11027 o|contracted procedure: k11088 o|contracted procedure: k11052 o|contracted procedure: k11078 o|contracted procedure: k11082 o|contracted procedure: k11074 o|contracted procedure: k11055 o|contracted procedure: k11058 o|contracted procedure: k11066 o|contracted procedure: k11070 o|contracted procedure: k10543 o|contracted procedure: k10546 o|contracted procedure: k10558 o|contracted procedure: k10561 o|contracted procedure: k10564 o|contracted procedure: k10572 o|contracted procedure: k10580 o|contracted procedure: k11106 o|contracted procedure: k11141 o|contracted procedure: k11150 o|contracted procedure: k11159 o|contracted procedure: k11180 o|contracted procedure: k11189 o|contracted procedure: k11198 o|contracted procedure: k11381 o|contracted procedure: k11393 o|contracted procedure: k11403 o|contracted procedure: k11407 o|contracted procedure: k11410 o|contracted procedure: k11416 o|contracted procedure: k11454 o|contracted procedure: k11464 o|contracted procedure: k11468 o|contracted procedure: k11484 o|contracted procedure: k11608 o|contracted procedure: k11490 o|contracted procedure: k11496 o|contracted procedure: k11499 o|contracted procedure: k11508 o|contracted procedure: k11588 o|contracted procedure: k11519 o|contracted procedure: k11525 o|contracted procedure: k11546 o|contracted procedure: k11554 o|contracted procedure: k11550 o|contracted procedure: k11219 o|contracted procedure: k11232 o|contracted procedure: k11236 o|contracted procedure: k11244 o|contracted procedure: k11247 o|contracted procedure: k11223 o|contracted procedure: k11259 o|contracted procedure: k11262 o|contracted procedure: k11265 o|contracted procedure: k11273 o|contracted procedure: k11281 o|contracted procedure: k11563 o|contracted procedure: k11569 o|contracted procedure: k11576 o|contracted procedure: k11599 o|contracted procedure: k11595 o|contracted procedure: k11641 o|contracted procedure: k11665 o|contracted procedure: k11652 o|contracted procedure: k11646 o|contracted procedure: k11673 o|contracted procedure: k11305 o|contracted procedure: k11309 o|contracted procedure: k11313 o|contracted procedure: k11318 o|contracted procedure: k11330 o|contracted procedure: k11333 o|contracted procedure: k11336 o|contracted procedure: k11344 o|contracted procedure: k11352 o|contracted procedure: k11682 o|contracted procedure: k11694 o|contracted procedure: k11703 o|contracted procedure: k574618729 o|contracted procedure: k11757 o|contracted procedure: k11719 o|contracted procedure: k11753 o|contracted procedure: k11728 o|contracted procedure: k11745 o|contracted procedure: k11749 o|contracted procedure: k11879 o|contracted procedure: k11766 o|contracted procedure: k11871 o|contracted procedure: k11875 o|contracted procedure: k11775 o|contracted procedure: k11793 o|contracted procedure: k11797 o|contracted procedure: k11806 o|contracted procedure: k11849 o|contracted procedure: k11815 o|contracted procedure: k11824 o|contracted procedure: k11841 o|contracted procedure: k11845 o|contracted procedure: k11858 o|contracted procedure: k11862 o|contracted procedure: k11897 o|contracted procedure: k11906 o|contracted procedure: k11923 o|contracted procedure: k11931 o|contracted procedure: k11937 o|contracted procedure: k11946 o|contracted procedure: k11971 o|contracted procedure: k11949 o|contracted procedure: k6276 o|contracted procedure: k6292 o|contracted procedure: k11977 o|contracted procedure: k11980 o|contracted procedure: k11995 o|contracted procedure: k12001 o|contracted procedure: k12026 o|contracted procedure: k12029 o|contracted procedure: k12138 o|contracted procedure: k12032 o|contracted procedure: k12041 o|contracted procedure: k12055 o|contracted procedure: k12061 o|contracted procedure: k12069 o|contracted procedure: k12072 o|contracted procedure: k12113 o|contracted procedure: k12078 o|contracted procedure: k12104 o|contracted procedure: k12095 o|contracted procedure: k12084 o|contracted procedure: k12091 o|contracted procedure: k12119 o|contracted procedure: k12131 o|contracted procedure: k12165 o|contracted procedure: k12171 o|contracted procedure: k12178 o|contracted procedure: k12206 o|contracted procedure: k12212 o|contracted procedure: k12261 o|contracted procedure: k12234 o|contracted procedure: k12237 o|contracted procedure: k12258 o|contracted procedure: k12251 o|inlining procedure: k12247 o|inlining procedure: k12247 o|contracted procedure: k12288 o|contracted procedure: k12314 o|contracted procedure: k12323 o|contracted procedure: k12332 o|contracted procedure: k12341 o|contracted procedure: k12350 o|contracted procedure: k12360 o|contracted procedure: k12371 o|contracted procedure: k12365 o|contracted procedure: k12446 o|contracted procedure: k12401 o|contracted procedure: k12440 o|contracted procedure: k12404 o|contracted procedure: k12434 o|contracted procedure: k12407 o|contracted procedure: k12428 o|contracted procedure: k12410 o|contracted procedure: k12421 o|contracted procedure: k12417 o|contracted procedure: k12476 o|contracted procedure: k12479 o|contracted procedure: k12491 o|contracted procedure: k12506 o|contracted procedure: k12521 o|contracted procedure: k12524 o|contracted procedure: k12553 o|contracted procedure: k12534 o|contracted procedure: k12542 o|contracted procedure: k12546 o|contracted procedure: k12538 o|contracted procedure: k12559 o|contracted procedure: k12562 o|contracted procedure: k12574 o|contracted procedure: k12607 o|contracted procedure: k12584 o|contracted procedure: k12596 o|contracted procedure: k12588 o|contracted procedure: k12603 o|contracted procedure: k12613 o|contracted procedure: k12623 o|contracted procedure: k12629 o|contracted procedure: k12665 o|contracted procedure: k12642 o|contracted procedure: k12654 o|contracted procedure: k12646 o|contracted procedure: k12661 o|contracted procedure: k12671 o|contracted procedure: k12688 o|contracted procedure: k12684 o|contracted procedure: k12697 o|contracted procedure: k12703 o|contracted procedure: k12731 o|contracted procedure: k12740 o|contracted procedure: k12778 o|contracted procedure: k12746 o|contracted procedure: k12774 o|contracted procedure: k12784 o|contracted procedure: k12813 o|contracted procedure: k12797 o|contracted procedure: k12805 o|contracted procedure: k12809 o|contracted procedure: k12801 o|contracted procedure: k12819 o|contracted procedure: k12828 o|contracted procedure: k12867 o|contracted procedure: k12841 o|contracted procedure: k12853 o|contracted procedure: k12845 o|contracted procedure: k12863 o|contracted procedure: k12873 o|contracted procedure: k12889 o|contracted procedure: k12895 o|contracted procedure: k12905 o|contracted procedure: k12916 o|contracted procedure: k12912 o|contracted procedure: k12931 o|contracted procedure: k12940 o|contracted procedure: k12947 o|contracted procedure: k12976 o|contracted procedure: k12960 o|contracted procedure: k12968 o|contracted procedure: k12972 o|contracted procedure: k12964 o|contracted procedure: k12982 o|contracted procedure: k12985 o|contracted procedure: k13015 o|contracted procedure: k12995 o|contracted procedure: k13011 o|contracted procedure: k13003 o|contracted procedure: k13007 o|contracted procedure: k12999 o|contracted procedure: k13021 o|contracted procedure: k13050 o|contracted procedure: k13031 o|contracted procedure: k13039 o|contracted procedure: k13043 o|contracted procedure: k13035 o|contracted procedure: k13056 o|contracted procedure: k13068 o|contracted procedure: k13075 o|contracted procedure: k13081 o|contracted procedure: k13088 o|contracted procedure: k13094 o|contracted procedure: k13104 o|contracted procedure: k13110 o|contracted procedure: k13113 o|contracted procedure: k13143 o|contracted procedure: k13149 o|contracted procedure: k13166 o|contracted procedure: k13174 o|contracted procedure: k13189 o|contracted procedure: k13195 o|contracted procedure: k13214 o|contracted procedure: k13229 o|contracted procedure: k13235 o|contracted procedure: k13241 o|contracted procedure: k13247 o|contracted procedure: k13268 o|contracted procedure: k13274 o|contracted procedure: k13280 o|contracted procedure: k13286 o|contracted procedure: k13307 o|contracted procedure: k13313 o|contracted procedure: k13319 o|contracted procedure: k13325 o|contracted procedure: k13331 o|contracted procedure: k13337 o|contracted procedure: k13343 o|contracted procedure: k13349 o|contracted procedure: k13378 o|contracted procedure: k13384 o|contracted procedure: k13390 o|contracted procedure: k13396 o|contracted procedure: k13402 o|contracted procedure: k13408 o|contracted procedure: k13414 o|contracted procedure: k13420 o|contracted procedure: k13467 o|contracted procedure: k13482 o|contracted procedure: k13488 o|contracted procedure: k13494 o|contracted procedure: k13500 o|contracted procedure: k13537 o|contracted procedure: k13552 o|contracted procedure: k13540 o|contracted procedure: k13564 o|contracted procedure: k13579 o|contracted procedure: k13567 o|contracted procedure: k13609 o|contracted procedure: k13615 o|contracted procedure: k13645 o|contracted procedure: k13654 o|contracted procedure: k13666 o|contracted procedure: k13678 o|contracted procedure: k13690 o|contracted procedure: k13711 o|contracted procedure: k13720 o|contracted procedure: k13727 o|contracted procedure: k13739 o|contracted procedure: k13746 o|contracted procedure: k13752 o|contracted procedure: k13765 o|contracted procedure: k13771 o|contracted procedure: k13777 o|contracted procedure: k13783 o|contracted procedure: k13789 o|contracted procedure: k13795 o|contracted procedure: k13801 o|contracted procedure: k13831 o|contracted procedure: k13837 o|contracted procedure: k13843 o|contracted procedure: k13860 o|contracted procedure: k13875 o|contracted procedure: k13881 o|contracted procedure: k13887 o|contracted procedure: k13893 o|contracted procedure: k13914 o|contracted procedure: k13920 o|contracted procedure: k13926 o|contracted procedure: k13932 o|contracted procedure: k13938 o|contracted procedure: k13944 o|contracted procedure: k13950 o|contracted procedure: k13956 o|contracted procedure: k13962 o|contracted procedure: k13968 o|contracted procedure: k14001 o|contracted procedure: k14007 o|contracted procedure: k14013 o|contracted procedure: k14019 o|contracted procedure: k14025 o|contracted procedure: k14031 o|contracted procedure: k14037 o|contracted procedure: k14043 o|contracted procedure: k14049 o|contracted procedure: k14055 o|contracted procedure: k14061 o|contracted procedure: k14120 o|contracted procedure: k14132 o|contracted procedure: k14153 o|contracted procedure: k14162 o|contracted procedure: k14169 o|contracted procedure: k14181 o|contracted procedure: k14188 o|contracted procedure: k14196 o|contracted procedure: k14202 o|contracted procedure: k14208 o|contracted procedure: k14214 o|contracted procedure: k14220 o|contracted procedure: k14226 o|contracted procedure: k14232 o|contracted procedure: k14262 o|contracted procedure: k14268 o|contracted procedure: k14274 o|contracted procedure: k14280 o|contracted procedure: k14299 o|contracted procedure: k14305 o|contracted procedure: k14311 o|contracted procedure: k14317 o|contracted procedure: k14323 o|contracted procedure: k14329 o|contracted procedure: k14335 o|contracted procedure: k14341 o|contracted procedure: k14347 o|contracted procedure: k14353 o|contracted procedure: k14359 o|contracted procedure: k14365 o|contracted procedure: k14371 o|contracted procedure: k14377 o|contracted procedure: k14383 o|contracted procedure: k14389 o|contracted procedure: k14395 o|contracted procedure: k14401 o|contracted procedure: k14407 o|contracted procedure: k14413 o|contracted procedure: k14419 o|contracted procedure: k14425 o|contracted procedure: k14431 o|contracted procedure: k14437 o|contracted procedure: k14443 o|contracted procedure: k14449 o|contracted procedure: k14455 o|contracted procedure: k14461 o|contracted procedure: k14467 o|contracted procedure: k14473 o|contracted procedure: k14561 o|contracted procedure: k14564 o|contracted procedure: k14571 o|contracted procedure: k14577 o|contracted procedure: k14584 o|contracted procedure: k14590 o|contracted procedure: k14593 o|contracted procedure: k14600 o|contracted procedure: k14606 o|contracted procedure: k14609 o|contracted procedure: k14616 o|contracted procedure: k14622 o|contracted procedure: k14633 o|contracted procedure: k14629 o|contracted procedure: k14639 o|contracted procedure: k14646 o|contracted procedure: k14652 o|contracted procedure: k14659 o|contracted procedure: k14665 o|contracted procedure: k14678 o|contracted procedure: k14765 o|contracted procedure: k14684 o|contracted procedure: k14687 o|contracted procedure: k14693 o|contracted procedure: k14696 o|contracted procedure: k14734 o|contracted procedure: k14706 o|contracted procedure: k14730 o|contracted procedure: k14714 o|contracted procedure: k14722 o|contracted procedure: k14726 o|contracted procedure: k14718 o|contracted procedure: k14710 o|contracted procedure: k14740 o|contracted procedure: k14747 o|contracted procedure: k14751 o|contracted procedure: k14788 o|contracted procedure: k14768 o|contracted procedure: k14784 o|contracted procedure: k14774 o|contracted procedure: k14778 o|contracted procedure: k14829 o|contracted procedure: k14835 o|contracted procedure: k14838 o|contracted procedure: k14844 o|contracted procedure: k14853 o|contracted procedure: k14856 o|contracted procedure: k14862 o|contracted procedure: k14870 o|contracted procedure: k14873 o|contracted procedure: k14879 o|contracted procedure: k14885 o|contracted procedure: k14893 o|contracted procedure: k14899 o|contracted procedure: k14905 o|contracted procedure: k14913 o|contracted procedure: k14919 o|contracted procedure: k14928 o|contracted procedure: k14935 o|contracted procedure: k14946 o|contracted procedure: k14952 o|contracted procedure: k14958 o|contracted procedure: k14964 o|contracted procedure: k14970 o|contracted procedure: k14976 o|contracted procedure: k14982 o|contracted procedure: k14988 o|contracted procedure: k14994 o|contracted procedure: k15000 o|contracted procedure: k15006 o|contracted procedure: k15015 o|contracted procedure: k15021 o|contracted procedure: k15027 o|contracted procedure: k15036 o|contracted procedure: k15039 o|contracted procedure: k15045 o|contracted procedure: k15054 o|contracted procedure: k15060 o|contracted procedure: k15067 o|contracted procedure: k15076 o|contracted procedure: k15083 o|contracted procedure: k15089 o|contracted procedure: k15095 o|contracted procedure: k15098 o|contracted procedure: k15112 o|contracted procedure: k15118 o|contracted procedure: k15137 o|contracted procedure: k15159 o|contracted procedure: k15165 o|contracted procedure: k15186 o|contracted procedure: k15192 o|contracted procedure: k15198 o|contracted procedure: k15204 o|contracted procedure: k15210 o|contracted procedure: k15216 o|contracted procedure: k15222 o|contracted procedure: k15269 o|contracted procedure: k15275 o|contracted procedure: k15281 o|contracted procedure: k15287 o|contracted procedure: k15293 o|contracted procedure: k15299 o|contracted procedure: k15305 o|contracted procedure: k15311 o|contracted procedure: k15362 o|contracted procedure: k15368 o|contracted procedure: k15374 o|contracted procedure: k15380 o|contracted procedure: k15386 o|contracted procedure: k15392 o|contracted procedure: k15440 o|contracted procedure: k15448 o|contracted procedure: k15454 o|contracted procedure: k15457 o|contracted procedure: k15518 o|contracted procedure: k15460 o|contracted procedure: k15466 o|contracted procedure: k15478 o|contracted procedure: k15488 o|contracted procedure: k15492 o|contracted procedure: k15499 o|contracted procedure: k15502 o|contracted procedure: k15509 o|contracted procedure: k15524 o|contracted procedure: k15530 o|contracted procedure: k15542 o|contracted procedure: k15552 o|contracted procedure: k15556 o|contracted procedure: k15559 o|contracted procedure: k15592 o|contracted procedure: k15600 o|contracted procedure: k15608 o|contracted procedure: k15614 o|contracted procedure: k15623 o|contracted procedure: k15626 o|contracted procedure: k15632 o|contracted procedure: k15652 o|contracted procedure: k15655 o|contracted procedure: k15668 o|contracted procedure: k1566518771 o|contracted procedure: k1566518775 o|contracted procedure: k15678 o|contracted procedure: k15688 o|contracted procedure: k15696 o|contracted procedure: k15702 o|contracted procedure: k15709 o|contracted procedure: k15719 o|contracted procedure: k15737 o|contracted procedure: k15743 o|contracted procedure: k15749 o|contracted procedure: k15776 o|contracted procedure: k15788 o|contracted procedure: k15798 o|contracted procedure: k15802 o|contracted procedure: k15815 o|contracted procedure: k15830 o|contracted procedure: k15850 o|contracted procedure: k15893 o|inlining procedure: k15890 o|contracted procedure: k15947 o|contracted procedure: k15956 o|contracted procedure: k15964 o|contracted procedure: k15977 o|contracted procedure: k15988 o|contracted procedure: k16000 o|contracted procedure: k16014 o|contracted procedure: k16018 o|contracted procedure: k16085 o|contracted procedure: k16088 o|contracted procedure: k16091 o|contracted procedure: k16108 o|contracted procedure: k16120 o|contracted procedure: k16135 o|contracted procedure: k16156 o|contracted procedure: k16159 o|contracted procedure: k16162 o|contracted procedure: k16175 o|contracted procedure: k16168 o|contracted procedure: k16181 o|contracted procedure: k16198 o|contracted procedure: k16326 o|contracted procedure: k16334 o|contracted procedure: k16204 o|contracted procedure: k16207 o|contracted procedure: k16213 o|contracted procedure: k16244 o|contracted procedure: k16250 o|contracted procedure: k16274 o|contracted procedure: k16262 o|contracted procedure: k16269 o|contracted procedure: k16346 o|contracted procedure: k16368 o|contracted procedure: k16364 o|contracted procedure: k16349 o|contracted procedure: k16352 o|contracted procedure: k16360 o|contracted procedure: k16380 o|contracted procedure: k16383 o|contracted procedure: k16386 o|contracted procedure: k16394 o|contracted procedure: k16402 o|contracted procedure: k16195 o|contracted procedure: k16423 o|contracted procedure: k16504 o|contracted procedure: k16500 o|contracted procedure: k16429 o|contracted procedure: k16486 o|contracted procedure: k16432 o|contracted procedure: k16544 o|contracted procedure: k16590 o|contracted procedure: k16599 o|contracted procedure: k16602 o|contracted procedure: k16609 o|contracted procedure: k16628 o|contracted procedure: k6163 o|contracted procedure: k6178 o|contracted procedure: k16661 o|contracted procedure: k16669 o|contracted procedure: k16677 o|contracted procedure: k16711 o|contracted procedure: k16717 o|contracted procedure: k16726 o|contracted procedure: k16750 o|contracted procedure: k16766 o|contracted procedure: k16770 o|contracted procedure: k16774 o|contracted procedure: k16783 o|contracted procedure: k16793 o|contracted procedure: k16797 o|contracted procedure: k16813 o|contracted procedure: k574618817 o|contracted procedure: k574618824 o|contracted procedure: k16833 o|contracted procedure: k16840 o|contracted procedure: k16855 o|contracted procedure: k16868 o|contracted procedure: k16892 o|contracted procedure: k16920 o|contracted procedure: k16949 o|contracted procedure: k16958 o|contracted procedure: k16973 o|contracted procedure: k16979 o|contracted procedure: k17002 o|contracted procedure: k16996 o|contracted procedure: k17022 o|contracted procedure: k17016 o|contracted procedure: k17062 o|contracted procedure: k17068 o|contracted procedure: k17087 o|contracted procedure: k17081 o|contracted procedure: k17172 o|contracted procedure: k17184 o|contracted procedure: k17194 o|contracted procedure: k17198 o|contracted procedure: k17146 o|contracted procedure: k17160 o|contracted procedure: k17164 o|contracted procedure: k17246 o|contracted procedure: k17230 o|contracted procedure: k17297 o|contracted procedure: k17306 o|simplifications: ((let . 147)) o|removed binding forms: 1175 o|inlining procedure: k10477 o|replaced variables: 418 o|removed binding forms: 3 o|inlining procedure: k7986 o|inlining procedure: k8037 o|inlining procedure: k11707 o|inlining procedure: k16817 o|inlining procedure: k16817 o|simplifications: ((if . 17)) o|replaced variables: 7 o|removed binding forms: 274 o|contracted procedure: k7788 o|contracted procedure: k7899 o|contracted procedure: k9084 o|contracted procedure: k10726 o|contracted procedure: k16398 o|removed binding forms: 10 o|replaced variables: 13 o|removed binding forms: 6 o|direct leaf routine/allocation: loop444 0 o|direct leaf routine/allocation: loop1091 0 o|direct leaf routine/allocation: g404405 3 o|direct leaf routine/allocation: g25922593 0 o|converted assignments to bindings: (loop444) o|converted assignments to bindings: (loop1091) o|simplifications: ((let . 2)) o|customizable procedures: (for-each-loop43264341 loop4190 k16806 g41144128 for-each-loop41134138 doloop41504151 loop4091 loop539 tmp15102 tmp25103 map-loop39523973 map-loop39834004 k16144 resolve3885 loop3897 k15821 g38193826 for-each-loop38183829 k15617 walkeach3774 walk3773 chicken.compiler.support#lset-adjoin/eq? k15527 for-each-loop37513761 k15495 k15463 for-each-loop37263737 k14847 k14922 k15009 k15030 k15048 k15070 k14671 k14123 k14135 k14172 g34453446 k13648 k13657 k13669 k13681 k13693 k13730 err3171 g32873288 g31663167 chicken.compiler.support#follow-without-loop k12494 k12509 k12632 k12674 k12700 k12743 k12787 k12831 k12876 k12950 repeat2827 g30793080 k12849 k12650 k12592 k12197 k12156 k11940 loop567 matchn2583 loop2612 match12582 resolve2581 map-loop24292446 loop2558 k11502 k11539 map-loop23902410 for-each-loop25092521 for-each-loop25312549 rec2341 map-loop20652082 map-loop21182137 g23112320 map-loop23052330 g22052214 map-loop21992219 map-loop22292248 g22722281 map-loop22662291 walk2148 loop2090 loop211 fold2042 k9531 k10135 map-loop20142031 map-loop19882005 map-loop19621979 loop1943 map-loop19191936 chicken.compiler.support#cons* map-loop18931910 loop1884 map-loop18441861 map-loop18231868 chicken.compiler.support#last map-loop17811798 map-loop17521769 map-loop16951712 k8860 k9105 k9303 map-loop16641681 map-loop16181635 map-loop15871604 map-loop15381555 map-loop14941511 k8787 map-loop14571474 loop1424 map-loop417435 g13921401 map-loop13861404 k8418 map-loop13491366 map-loop12191236 k8087 g12071208 foldr389392 g394395 map-loop11241145 tmp14742 tmp24743 loop1074 k7556 loop1045 k7428 doloop961962 loop941 fold934 k7150 chicken.compiler.support#every k7002 k7009 loop877 loop861 loop845 err844 loop833 k6710 g781806 for-each-loop780816 collect732 g737744 for-each-loop736755 text681 chicken.compiler.support#test-debugging-mode dump682 for-each-loop685702 chicken.compiler.support#any loop461 loop321 loop308 loop295 chicken.compiler.support#take) o|calls to known targets: 505 o|identified direct recursive calls: f_5249 1 o|identified direct recursive calls: f_5580 1 o|identified direct recursive calls: f_5916 1 o|identified direct recursive calls: f_5975 2 o|identified direct recursive calls: f_6883 1 o|identified direct recursive calls: f_6933 1 o|identified direct recursive calls: f_7199 1 o|identified direct recursive calls: f_7734 1 o|identified direct recursive calls: f_7876 1 o|identified direct recursive calls: f_5803 1 o|identified direct recursive calls: f_8157 1 o|identified direct recursive calls: f_5876 1 o|identified direct recursive calls: f_8300 4 o|identified direct recursive calls: f_9725 1 o|identified direct recursive calls: f_5307 1 o|identified direct recursive calls: f_10449 1 o|identified direct recursive calls: f_10891 1 o|identified direct recursive calls: f_10608 1 o|identified direct recursive calls: f_11047 1 o|identified direct recursive calls: f_11101 1 o|identified direct recursive calls: f_11714 1 o|identified direct recursive calls: f_16341 1 o|identified direct recursive calls: f_16375 1 o|fast box initializations: 88 o|fast global references: 56 o|fast global assignments: 20 o|dropping unused closure argument: f_15927 o|dropping unused closure argument: f_5249 o|dropping unused closure argument: f_5510 o|dropping unused closure argument: f_5544 o|dropping unused closure argument: f_5574 o|dropping unused closure argument: f_5910 o|dropping unused closure argument: f_5916 o|dropping unused closure argument: f_5969 o|dropping unused closure argument: f_6454 o|dropping unused closure argument: f_7239 o|dropping unused closure argument: f_7734 */ /* end of file */ chicken-5.1.0/chicken-syntax.scm0000644000175000017500000012213613502227553016374 0ustar sjamaansjamaan;;;; chicken-syntax.scm - non-standard syntax extensions ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit chicken-syntax) (uses expand internal) (disable-interrupts) (fixnum) ) ;; IMPORTANT: These macros expand directly into fully qualified names ;; from the scrutinizer and support modules. #+(not debugbuild) (declare (no-bound-checks) (no-procedure-checks)) (import (scheme) (chicken base) (chicken fixnum) (chicken syntax) (chicken internal)) (include "common-declarations.scm") (include "mini-srfi-1.scm") ;;; Exceptions: (set! ##sys#chicken.condition-macro-environment (let ((me0 (##sys#macro-environment))) (##sys#extend-macro-environment 'handle-exceptions `((call-with-current-continuation . scheme#call-with-current-continuation)) (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'handle-exceptions form '(_ variable _ . _)) (let ((k (r 'k)) (args (r 'args))) `((,(r 'call-with-current-continuation) (##core#lambda (,k) (chicken.condition#with-exception-handler (##core#lambda (,(cadr form)) (,k (##core#lambda () ,(caddr form)))) (##core#lambda () (##sys#call-with-values (##core#lambda () ,@(cdddr form)) (##core#lambda ,args (,k (##core#lambda () (##sys#apply ##sys#values ,args)))))))))))))) (##sys#extend-macro-environment 'condition-case `((memv . scheme#memv)) (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'condition-case form '(_ _ . _)) (let ((exvar (r 'exvar)) (kvar (r 'kvar)) (%and (r 'and)) (%memv (r 'memv)) (%else (r 'else))) (define (parse-clause c) (let* ((var (and (symbol? (car c)) (car c))) (kinds (if var (cadr c) (car c))) (body (if var `(##core#let ((,var ,exvar)) ,@(cddr c)) `(##core#let () ,@(cdr c))))) (if (null? kinds) `(,%else ,body) `((,%and ,kvar ,@(map (lambda (k) `(,%memv (##core#quote ,k) ,kvar)) kinds)) ,body)))) `(,(r 'handle-exceptions) ,exvar (##core#let ((,kvar (,%and (##sys#structure? ,exvar (##core#quote condition)) (##sys#slot ,exvar 1)))) ,(let ((clauses (map parse-clause (cddr form)))) `(,(r 'cond) ,@clauses ,@(if (assq %else clauses) `() ; Don't generate two else clauses `((,%else (chicken.condition#signal ,exvar))))))) ,(cadr form)))))) (macro-subset me0 ##sys#default-macro-environment))) ;;; type-related syntax (set! ##sys#chicken.type-macro-environment (let ((me0 (##sys#macro-environment))) (##sys#extend-macro-environment ': '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax ': x '(_ symbol _ . _)) (if (not (memq #:compiling ##sys#features)) '(##core#undefined) (let* ((type1 (strip-syntax (caddr x))) (name1 (cadr x))) ;; we need pred/pure info, so not using ;; "chicken.compiler.scrutinizer#check-and-validate-type" (let-values (((type pred pure) (chicken.compiler.scrutinizer#validate-type type1 (strip-syntax name1)))) (cond ((not type) (syntax-error ': "invalid type syntax" name1 type1)) (else `(##core#declare (type (,name1 ,type1 ,@(cdddr x))) ,@(if pure `((pure ,name1)) '()) ,@(if pred `((predicate (,name1 ,pred))) '())))))))))) (##sys#extend-macro-environment 'the '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'the x '(_ _ _)) (if (not (memq #:compiling ##sys#features)) (caddr x) `(##core#the ,(chicken.compiler.scrutinizer#check-and-validate-type (cadr x) 'the) #t ,(caddr x)))))) (##sys#extend-macro-environment 'assume '() (syntax-rules () ((_ ((var type) ...) body ...) (let ((var (the type var)) ...) body ...)))) (##sys#extend-macro-environment 'define-specialization '() (##sys#er-transformer (lambda (x r c) (cond ((not (memq #:compiling ##sys#features)) '(##core#undefined)) (else (##sys#check-syntax 'define-specialization x '(_ (variable . #(_ 0)) _ . #(_ 0 1))) (let* ((head (cadr x)) (name (car head)) (gname (##sys#globalize name '())) ;XXX correct? (args (cdr head)) (alias (gensym name)) (galias (##sys#globalize alias '())) ;XXX and this? (rtypes (and (pair? (cdddr x)) (strip-syntax (caddr x)))) (%define (r 'define)) (body (if rtypes (cadddr x) (caddr x)))) (let loop ((args args) (anames '()) (atypes '())) (cond ((null? args) (let ((anames (reverse anames)) (atypes (reverse atypes)) (spec `(,galias ,@(let loop2 ((anames anames) (i 1)) (if (null? anames) '() (cons (vector i) (loop2 (cdr anames) (fx+ i 1)))))))) (##sys#put! gname '##compiler#local-specializations (##sys#append (##sys#get gname '##compiler#local-specializations '()) (list (cons atypes (if (and rtypes (pair? rtypes)) (list (map (cut chicken.compiler.scrutinizer#check-and-validate-type <> 'define-specialization) rtypes) spec) (list spec)))))) `(##core#begin (##core#declare (inline ,alias) (hide ,alias)) (,%define (,alias ,@anames) (##core#let ,(map (lambda (an at) (list an `(##core#the ,at #t ,an))) anames atypes) ,body))))) (else (let ((arg (car args))) (cond ((symbol? arg) (loop (cdr args) (cons arg anames) (cons '* atypes))) ((and (list? arg) (fx= 2 (length arg)) (symbol? (car arg))) (loop (cdr args) (cons (car arg) anames) (cons (chicken.compiler.scrutinizer#check-and-validate-type (cadr arg) 'define-specialization) atypes))) (else (syntax-error 'define-specialization "invalid argument syntax" arg head))))))))))))) (##sys#extend-macro-environment 'compiler-typecase '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'compiler-typecase x '(_ _ . #((_ . #(_ 1)) 1))) (let ((val (memq #:compiling ##sys#features)) (var (gensym)) (ln (get-line-number x))) `(##core#let ((,var ,(cadr x))) (##core#typecase ,ln ,var ; must be variable (see: CPS transform) ,@(map (lambda (clause) (let ((hd (strip-syntax (car clause)))) (list (if (eq? hd 'else) 'else (if val (chicken.compiler.scrutinizer#check-and-validate-type hd 'compiler-typecase) hd)) `(##core#begin ,@(cdr clause))))) (cddr x)))))))) (##sys#extend-macro-environment 'define-type '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'define-type x '(_ variable _)) (cond ((not (memq #:compiling ##sys#features)) '(##core#undefined)) (else (let ((name (strip-syntax (cadr x))) (%quote (r 'quote)) (t0 (strip-syntax (caddr x)))) `(##core#elaborationtimeonly (##sys#put/restore! (,%quote ,name) (,%quote ##compiler#type-abbreviation) (,%quote ,(chicken.compiler.scrutinizer#check-and-validate-type t0 'define-type name)))))))))) (macro-subset me0 ##sys#default-macro-environment))) ;;; Syntax-related syntax (for use in macro transformers) (set! ##sys#chicken.syntax-macro-environment (let ((me0 (##sys#macro-environment))) (##sys#extend-macro-environment 'syntax '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'syntax x '(_ _)) `(##core#syntax ,(cadr x))))) (##sys#extend-macro-environment 'begin-for-syntax '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'begin-for-syntax x '(_ . #(_ 0))) (##sys#register-meta-expression `(##core#begin ,@(cdr x))) `(##core#elaborationtimeonly (##core#begin ,@(cdr x)))))) (##sys#extend-macro-environment 'define-for-syntax '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'define-for-syntax form '(_ _ . _)) `(,(r 'begin-for-syntax) (,(r 'define) ,@(cdr form)))))) ;;; Compiler syntax (##sys#extend-macro-environment 'define-compiler-syntax '() (syntax-rules () ((_ name) (##core#define-compiler-syntax name #f)) ((_ name transformer) (##core#define-compiler-syntax name transformer)))) (##sys#extend-macro-environment 'let-compiler-syntax '() (syntax-rules () ((_ (binding ...) body ...) (##core#let-compiler-syntax (binding ...) body ...)))) (macro-subset me0 ##sys#default-macro-environment))) ;;; Non-standard macros that provide core/"base" functionality: (set! ##sys#chicken.base-macro-environment (let ((me0 (##sys#macro-environment))) (##sys#extend-macro-environment 'define-constant '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'define-constant form '(_ variable _)) `(##core#define-constant ,@(cdr form))))) (##sys#extend-macro-environment 'define-record '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'define-record x '(_ variable . _)) (let* ((type-name (cadr x)) (plain-name (strip-syntax type-name)) (prefix (symbol->string plain-name)) (tag (if (##sys#current-module) (symbol-append (##sys#module-name (##sys#current-module)) '|#| plain-name) plain-name)) (slots (cddr x)) (%define (r 'define)) (%setter (r 'chicken.base#setter)) (%getter-with-setter (r 'chicken.base#getter-with-setter)) (slotnames (map (lambda (slot) (cond ((symbol? slot) slot) ((and (pair? slot) (c (car slot) %setter) (pair? (cdr slot)) (symbol? (cadr slot)) (null? (cddr slot))) (cadr slot)) (else (syntax-error 'define-record "invalid slot specification" slot)))) slots))) `(##core#begin (,%define ,type-name (##core#quote ,tag)) (,%define ,(string->symbol (string-append "make-" prefix)) (##core#lambda ,slotnames (##sys#make-structure (##core#quote ,tag) ,@slotnames))) (,%define ,(string->symbol (string-append prefix "?")) (##core#lambda (x) (##sys#structure? x (##core#quote ,tag)))) ,@(let mapslots ((slots slots) (i 1)) (if (eq? slots '()) slots (let* ((a (car slots)) (has-setter (not (symbol? a))) (slotname (symbol->string (if has-setter (cadr a) a))) (setr (string->symbol (string-append prefix "-" slotname "-set!"))) (getr (string->symbol (string-append prefix "-" slotname))) (setrcode `(##core#lambda (x val) (##core#check (##sys#check-structure x (##core#quote ,tag))) (##sys#block-set! x ,i val) ) )) (cons `(##core#begin ,@(if has-setter '() `((,%define ,setr ,setrcode))) (,%define ,getr ,(if has-setter `(,%getter-with-setter (##core#lambda (x) (##core#check (##sys#check-structure x (##core#quote ,tag))) (##sys#block-ref x ,i) ) ,setrcode) `(##core#lambda (x) (##core#check (##sys#check-structure x (##core#quote ,tag))) (##sys#block-ref x ,i) ) ) ) ) (mapslots (##sys#slot slots 1) (fx+ i 1)) ) ) ) ) ) ) ) ) ) (##sys#extend-macro-environment 'receive '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'receive form '(_ _ . #(_ 0))) (cond ((null? (cddr form)) `(##sys#call-with-values (##core#lambda () ,@(cdr form)) ##sys#list) ) (else (##sys#check-syntax 'receive form '(_ lambda-list _ . #(_ 1))) (let ((vars (cadr form)) (exp (caddr form)) (rest (cdddr form))) (if (and (pair? vars) (null? (cdr vars))) `(##core#let ((,(car vars) ,exp)) ,@rest) `(##sys#call-with-values (##core#lambda () ,exp) (##core#lambda ,vars ,@rest)) ) ) ) ) ))) (##sys#extend-macro-environment 'declare '() (##sys#er-transformer (lambda (form r c) `(##core#declare ,@(cdr form))))) (##sys#extend-macro-environment 'delay-force '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'delay-force form '(_ _)) `(##sys#make-promise (##core#lambda () ,(cadr form)))))) (##sys#extend-macro-environment 'include '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'include form '(_ string)) `(##core#include ,(cadr form) #f)))) (##sys#extend-macro-environment 'include-relative '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'include-relative form '(_ string)) `(##core#include ,(cadr form) ,##sys#current-source-filename)))) (##sys#extend-macro-environment 'fluid-let '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'fluid-let form '(_ #((variable _) 0) . _)) (let* ((clauses (cadr form)) (body (cddr form)) (ids (##sys#map car clauses)) (new-tmps (##sys#map (lambda (x) (r (gensym))) clauses)) (old-tmps (##sys#map (lambda (x) (r (gensym))) clauses))) `(##core#let (,@(map ##sys#list new-tmps (##sys#map cadr clauses)) ,@(map ##sys#list old-tmps (let loop ((n (length clauses))) (if (eq? n 0) '() (cons #f (loop (fx- n 1))) ) ) ) ) (##sys#dynamic-wind (##core#lambda () ,@(map (lambda (ot id) `(##core#set! ,ot ,id)) old-tmps ids) ,@(map (lambda (id nt) `(##core#set! ,id ,nt)) ids new-tmps) (##core#undefined) ) (##core#lambda () ,@body) (##core#lambda () ,@(map (lambda (nt id) `(##core#set! ,nt ,id)) new-tmps ids) ,@(map (lambda (id ot) `(##core#set! ,id ,ot)) ids old-tmps) (##core#undefined) ) ) ) ) ))) (##sys#extend-macro-environment 'parameterize '() (##sys#er-transformer (lambda (form r c) (define (pname p) (if (symbol? p) (gensym p) (gensym "parameter"))) (##sys#check-syntax 'parameterize form '#(_ 2)) (let* ((bindings (cadr form)) (body (cddr form)) (convert? (r 'convert?)) (params (##sys#map car bindings)) (vals (##sys#map cadr bindings)) (param-aliases (##sys#map (lambda (z) (r (pname z))) params)) (saveds (##sys#map (lambda (z) (r (gensym 'saved))) params)) (temps (##sys#map (lambda (z) (r (gensym 'tmp))) params)) ) `(##core#let ,(map ##sys#list param-aliases params) ; These may be expressions (##core#let ,(map ##sys#list saveds vals) (##core#let ;; Inner names are actually set. This hides the exact ;; ordering of the let if any call/cc is used in the ;; value expressions (see first example in #1336). ,(map ##sys#list saveds saveds) (##core#let ((,convert? (##core#the boolean #t #t))) ; Convert only first time extent is entered! (##sys#dynamic-wind (##core#lambda () (##core#let ;; First, call converters (which may throw exceptions!) ,(map (lambda (p s temp) `(,temp (##core#if ,convert? (,p ,s #t #f) ,s))) param-aliases saveds temps) ;; Save current values so we can restore them later ,@(map (lambda (p s) `(##core#set! ,s (,p))) param-aliases saveds) ;; Set parameters to their new values. This can't fail. ,@(map (lambda (p t) `(,p ,t #f #t)) param-aliases temps) ;; Remember we already converted (only call converters once!) (##core#set! ,convert? #f))) (##core#lambda () ,@body) (##core#lambda () (##core#let ;; Remember the current value of each parameter. ,(map (lambda (p s temp) `(,temp (,p))) param-aliases saveds temps) ;; Restore each parameter to its old value. ,@(map (lambda (p s) `(,p ,s #f #t)) param-aliases saveds) ;; Save current value for later re-invocations. ,@(map (lambda (s temp) `(##core#set! ,s ,temp)) saveds temps)))))))))))) (##sys#extend-macro-environment 'require-library '() (##sys#er-transformer (lambda (x r c) `(##core#begin ,@(map (lambda (x) (let-values (((name lib _ _ _ _) (##sys#decompose-import x r c 'import))) (if (not lib) '(##core#undefined) `(##core#require ,lib ,(module-requirement name))))) (cdr x)))))) (##sys#extend-macro-environment 'when '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'when form '#(_ 2)) `(##core#if ,(cadr form) (##core#begin ,@(cddr form)))))) (##sys#extend-macro-environment 'unless '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'unless form '#(_ 2)) `(##core#if ,(cadr form) (##core#undefined) (##core#begin ,@(cddr form)))))) (##sys#extend-macro-environment 'set!-values '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'set!-values form '(_ lambda-list _)) (##sys#expand-multiple-values-assignment (cadr form) (caddr form))))) (set! chicken.syntax#define-values-definition (##sys#extend-macro-environment 'define-values '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'define-values form '(_ lambda-list _)) `(##core#begin ,@(##sys#decompose-lambda-list (cadr form) (lambda (vars argc rest) (for-each (lambda (nm) (let ((name (##sys#get nm '##core#macro-alias nm))) (##sys#register-export name (##sys#current-module)))) vars) (map (lambda (nm) `(##core#ensure-toplevel-definition ,nm)) vars))) ,(##sys#expand-multiple-values-assignment (cadr form) (caddr form))))))) (##sys#extend-macro-environment 'let-values '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'let-values form '(_ list . _)) (let ((vbindings (cadr form)) (body (cddr form))) (letrec ((append* (lambda (il l) (if (not (pair? il)) (cons il l) (cons (car il) (append* (cdr il) l))))) (map* (lambda (proc l) (cond ((null? l) '()) ((not (pair? l)) (proc l)) (else (cons (proc (car l)) (map* proc (cdr l)))))))) (let* ([llists (map car vbindings)] [vars (let loop ((llists llists) (acc '())) (if (null? llists) acc (let* ((llist (car llists)) (new-acc (cond ((list? llist) (append llist acc)) ((pair? llist) (append* llist acc)) (else (cons llist acc))))) (loop (cdr llists) new-acc))))] [aliases (map (lambda (v) (cons v (r (gensym v)))) vars)] [lookup (lambda (v) (cdr (assq v aliases)))] [llists2 (let loop ((llists llists) (acc '())) (if (null? llists) (reverse acc) (let* ((llist (car llists)) (new-acc (cond ((not (pair? llist)) (cons (lookup llist) acc)) (else (cons (map* lookup llist) acc))))) (loop (cdr llists) new-acc))))]) (let fold ([llists llists] [exps (map (lambda (x) (cadr x)) vbindings)] [llists2 llists2] ) (cond ((null? llists) `(##core#let ,(map (lambda (v) (##sys#list v (lookup v))) vars) ,@body) ) ((and (pair? (car llists2)) (null? (cdar llists2))) `(##core#let ((,(caar llists2) ,(car exps))) ,(fold (cdr llists) (cdr exps) (cdr llists2)) ) ) (else `(##sys#call-with-values (##core#lambda () ,(car exps)) (##core#lambda ,(car llists2) ,(fold (cdr llists) (cdr exps) (cdr llists2))) ) ) ) ) ) ) ) ) ) ) (##sys#extend-macro-environment 'let*-values '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'let*-values form '(_ list . _)) (let ((vbindings (cadr form)) (body (cddr form)) (%let-values (r 'let-values)) ) (let fold ([vbindings vbindings]) (if (null? vbindings) `(##core#let () ,@body) `(,%let-values (,(car vbindings)) ,(fold (cdr vbindings))) ) ) )))) ;;XXX do we need letrec*-values ? (##sys#extend-macro-environment 'letrec-values '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'letrec-values form '(_ #((lambda-list . _) 0) . _)) (let ((vbindings (cadr form)) (body (cddr form))) (let ((vars (map car vbindings)) (exprs (map cadr vbindings))) `(##core#let ,(map (lambda (v) (##sys#list v '(##core#undefined))) (foldl (lambda (l v) ; flatten multi-value formals (##sys#append l (##sys#decompose-lambda-list v (lambda (a _ _) a)))) '() vars)) ,@(map ##sys#expand-multiple-values-assignment vars exprs) ,@body)))))) (##sys#extend-macro-environment 'letrec* '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'letrec* x '(_ #((variable _) 0) . #(_ 1))) (check-for-multiple-bindings (cadr x) x "letrec*") `(##core#letrec* ,@(cdr x))))) (##sys#extend-macro-environment 'nth-value `((list-ref . scheme#list-ref)) (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'nth-value form '(_ _ _)) (let ((v (r 'tmp))) `(##sys#call-with-values (##core#lambda () ,(caddr form)) (##core#lambda ,v (,(r 'list-ref) ,v ,(cadr form)))))))) (##sys#extend-macro-environment 'define-inline '() (##sys#er-transformer (lambda (form r c) (letrec ([quotify-proc (lambda (xs id) (##sys#check-syntax id xs '#(_ 1)) (let* ([head (car xs)] [name (if (pair? head) (car head) head)] [val (if (pair? head) `(##core#lambda ,(cdr head) ,@(cdr xs)) (cadr xs) ) ] ) (when (or (not (pair? val)) (and (not (eq? '##core#lambda (car val))) (not (c (r 'lambda) (car val))))) (syntax-error 'define-inline "invalid substitution form - must be lambda" name val) ) (list name val) ) ) ] ) `(##core#define-inline ,@(quotify-proc (cdr form) 'define-inline)))) ) ) (##sys#extend-macro-environment 'and-let* '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'and-let* form '(_ #(_ 0) . _)) (let ((bindings (cadr form)) (body (cddr form))) (let fold ([bs bindings] [last #t]) (if (null? bs) `(##core#begin ,last . ,body) (let ([b (car bs)] [bs2 (cdr bs)] ) (cond [(not (pair? b)) (##sys#check-syntax 'and-let* b 'variable) (let ((var (r (gensym)))) `(##core#let ((,var ,b)) (##core#if ,var ,(fold bs2 var) #f)))] [(null? (cdr b)) (let ((var (r (gensym)))) `(##core#let ((,var ,(car b))) (##core#if ,var ,(fold bs2 var) #f)))] [else (##sys#check-syntax 'and-let* b '(variable _)) (let ((var (car b))) `(##core#let ((,var ,(cadr b))) (##core#if ,var ,(fold bs2 var) #f)))])))))))) ;;; Optional argument handling: ;;; Copyright (C) 1996 by Olin Shivers. ;;; ;;; This file defines three macros for parsing optional arguments to procs: ;;; (LET-OPTIONALS arg-list ((var1 default1) ...) . body) ;;; (LET-OPTIONALS* arg-list ((var1 default1) ...) . body) ;;; (:OPTIONAL rest-arg default-exp) ;;; ;;; The LET-OPTIONALS macro is defined using the Clinger/Rees ;;; explicit-renaming low-level macro system. You'll have to do some work to ;;; port it to another macro system. ;;; ;;; The LET-OPTIONALS* and :OPTIONAL macros are defined with simple ;;; high-level macros, and should be portable to any R4RS system. ;;; ;;; These macros are all careful to evaluate their default forms *only* if ;;; their values are needed. ;;; ;;; The only non-R4RS dependencies in the macros are ERROR ;;; and CALL-WITH-VALUES. ;;; -Olin ;;; (LET-OPTIONALS arg-list ((var1 default1) ...) ;;; body ;;; ...) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; This form is for binding a procedure's optional arguments to either ;;; the passed-in values or a default. ;;; ;;; The expression takes a rest list ARG-LIST and binds the VARi to ;;; the elements of the rest list. When there are no more elements, then ;;; the remaining VARi are bound to their corresponding DEFAULTi values. ;;; ;;; - The default expressions are *not* evaluated unless needed. ;;; ;;; - When evaluated, the default expressions are carried out in the *outer* ;;; environment. That is, the DEFAULTi forms do *not* see any of the VARi ;;; bindings. ;;; ;;; I originally wanted to have the DEFAULTi forms get eval'd in a LET* ;;; style scope -- DEFAULT3 would see VAR1 and VAR2, etc. But this is ;;; impossible to implement without side effects or redundant conditional ;;; tests. If I drop this requirement, I can use the efficient expansion ;;; shown below. If you need LET* scope, use the less-efficient ;;; LET-OPTIONALS* form defined below. ;;; ;;; Example: ;;; (define (read-string! str . maybe-args) ;;; (let-optionals maybe-args ((port (current-input-port)) ;;; (start 0) ;;; (end (string-length str))) ;;; ...)) ;;; ;;; expands to: ;;; ;;; (let* ((body (lambda (port start end) ...)) ;;; (end-def (lambda (%port %start) (body %port %start ))) ;;; (start-def (lambda (%port) (end-def %port ))) ;;; (port-def (lambda () (start-def )))) ;;; (if (null? rest) (port-def) ;;; (let ((%port (car rest)) ;;; (rest (cdr rest))) ;;; (if (null? rest) (start-def %port) ;;; (let ((%start (car rest)) ;;; (rest (cdr rest))) ;;; (if (null? rest) (end-def %port %start) ;;; (let ((%end (car rest)) ;;; (rest (cdr rest))) ;;; (if (null? rest) (body %port %start %end) ;;; (error ...))))))))) ;;; (LET-OPTIONALS args ((var1 default1) ...) body1 ...) (##sys#extend-macro-environment 'let-optionals `((null? . scheme#null?) (car . scheme#car) (cdr . scheme#cdr)) (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'let-optionals form '(_ _ . _)) (let ((arg-list (cadr form)) (var/defs (caddr form)) (body (cdddr form))) ;; This guy makes the END-DEF, START-DEF, PORT-DEF definitions above. ;; I wish I had a reasonable loop macro. (define (make-default-procs vars body-proc defaulter-names defs rename) (let recur ((vars (reverse vars)) (defaulter-names (reverse defaulter-names)) (defs (reverse defs)) (next-guy body-proc)) (if (null? vars) '() (let ((vars (cdr vars))) `((,(car defaulter-names) (##core#lambda ,(reverse vars) (,next-guy ,@(reverse vars) ,(car defs)))) . ,(recur vars (cdr defaulter-names) (cdr defs) (car defaulter-names))))))) ;; This guy makes the (IF (NULL? REST) (PORT-DEF) ...) tree above. (define (make-if-tree vars defaulters body-proc rest rename) (let recur ((vars vars) (defaulters defaulters) (non-defaults '())) (if (null? vars) `(,body-proc . ,(reverse non-defaults)) (let ((v (car vars))) `(##core#if (,(r 'null?) ,rest) (,(car defaulters) . ,(reverse non-defaults)) (##core#let ((,v (,(r 'car) ,rest)) ; we use car/cdr, because of rest-list optimization (,rest (,(r 'cdr) ,rest))) ,(recur (cdr vars) (cdr defaulters) (cons v non-defaults)))))))) (##sys#check-syntax 'let-optionals var/defs '#((variable _) 0)) (##sys#check-syntax 'let-optionals body '#(_ 1)) (let* ((vars (map car var/defs)) (prefix-sym (lambda (prefix sym) (string->symbol (string-append prefix (symbol->string sym))))) ;; Private vars, one for each user var. ;; We prefix the % to help keep macro-expanded code from being ;; too confusing. (vars2 (map (lambda (v) (r (prefix-sym "%" v))) vars)) (defs (map cadr var/defs)) (body-proc (r 'body)) ;; A private var, bound to the value of the ARG-LIST expression. (rest-var (r '_%rest)) (defaulter-names (map (lambda (var) (r (prefix-sym "def-" var))) vars)) (defaulters (make-default-procs vars2 body-proc defaulter-names defs gensym)) (if-tree (make-if-tree vars2 defaulter-names body-proc rest-var gensym))) `(,(r 'let*) ((,rest-var ,arg-list) (,body-proc (##core#lambda ,vars . ,body)) . ,defaulters) ,if-tree) ) )))) ;;; (optional rest-arg default-exp) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; This form is for evaluating optional arguments and their defaults ;;; in simple procedures that take a *single* optional argument. It is ;;; a macro so that the default will not be computed unless it is needed. ;;; ;;; REST-ARG is a rest list from a lambda -- e.g., R in ;;; (lambda (a b . r) ...) ;;; - If REST-ARG has 0 elements, evaluate DEFAULT-EXP and return that. ;;; - If REST-ARG has 1 element, return that element. (##sys#extend-macro-environment 'optional `((null? . scheme#null?) (car . scheme#car) (cdr . scheme#cdr) ) (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'optional form '(_ _ . #(_ 0 1))) (let ((var (r 'tmp))) `(##core#let ((,var ,(cadr form))) (##core#if (,(r 'null?) ,var) ,(optional (cddr form) #f) (,(r 'car) ,var))))))) ;;; (LET-OPTIONALS* args ((var1 default1) ... [rest]) body1 ...) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; This is just like LET-OPTIONALS, except that the DEFAULTi forms ;;; are evaluated in a LET*-style environment. That is, DEFAULT3 is evaluated ;;; within the scope of VAR1 and VAR2, and so forth. ;;; ;;; - If the last form in the ((var1 default1) ...) list is not a ;;; (VARi DEFAULTi) pair, but a simple variable REST, then it is ;;; bound to any left-over values. For example, if we have VAR1 through ;;; VAR7, and ARGS has 9 values, then REST will be bound to the list of ;;; the two values of ARGS. If ARGS is too short, causing defaults to ;;; be used, then REST is bound to '(). (##sys#extend-macro-environment 'let-optionals* `((null? . scheme#null?) (car . scheme#car) (cdr . scheme#cdr)) (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'let-optionals* form '(_ _ list . _)) (let ((args (cadr form)) (var/defs (caddr form)) (body (cdddr form)) (%null? (r 'null?)) (%car (r 'car)) (%cdr (r 'cdr))) (let ((rvar (r 'tmp))) `(##core#let ((,rvar ,args)) ,(let loop ((args rvar) (vardefs var/defs)) (if (null? vardefs) `(##core#let () ,@body) (let ((head (car vardefs))) (if (pair? head) (let ((rvar2 (r 'tmp2))) `(##core#let ((,(car head) (##core#if (,%null? ,args) ,(cadr head) (,%car ,args))) (,rvar2 (##core#if (,%null? ,args) (##core#quote ()) (,%cdr ,args))) ) ,(loop rvar2 (cdr vardefs)) ) ) `(##core#let ((,head ,args)) ,@body) ) ) ) ) ) ) )))) ;;; case-lambda (SRFI-16): (##sys#extend-macro-environment 'case-lambda `((>= . scheme#>=) (car . scheme#car) (cdr . scheme#cdr) (eq? . scheme#eq?) (length . scheme#length)) (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'case-lambda form '(_ . _)) (define (genvars n) (let loop ([i 0]) (if (fx>= i n) '() (cons (r (gensym)) (loop (fx+ i 1))) ) ) ) (let* ((mincount (apply min (map (lambda (c) (##sys#decompose-lambda-list (car c) (lambda (vars argc rest) argc) ) ) (cdr form)))) (minvars (genvars mincount)) (rvar (r 'rvar)) (lvar (r 'lvar)) (%>= (r '>=)) (%eq? (r 'eq?)) (%car (r 'car)) (%cdr (r 'cdr)) (%length (r 'length))) `(##core#lambda ,(append minvars rvar) (##core#let ((,lvar (,%length ,rvar))) ,(foldr (lambda (c body) (##sys#decompose-lambda-list (car c) (lambda (vars argc rest) (##sys#check-syntax 'case-lambda (car c) 'lambda-list) `(##core#if ,(let ((a2 (fx- argc mincount))) (if rest (if (zero? a2) #t `(,%>= ,lvar ,a2) ) `(,%eq? ,lvar ,a2) ) ) ,(receive (vars1 vars2) (split-at (take vars argc) mincount) (let ((bindings (let build ((vars2 vars2) (vrest rvar)) (if (null? vars2) (cond (rest `(##core#let ((,rest ,vrest)) ,@(cdr c))) ((null? (cddr c)) (cadr c)) (else `(##core#let () ,@(cdr c))) ) (let ((vrest2 (r (gensym)))) `(##core#let ((,(car vars2) (,%car ,vrest)) (,vrest2 (,%cdr ,vrest)) ) ,(if (pair? (cdr vars2)) (build (cdr vars2) vrest2) (build '() vrest2) ) ) ) ) ) ) ) (if (null? vars1) bindings `(##core#let ,(map list vars1 minvars) ,bindings) ) ) ) ,body) ) ) ) '(##core#check (##sys#error (##core#immutable (##core#quote "no matching clause in call to 'case-lambda' form")))) (cdr form)))))))) ;;; Record printing: (##sys#extend-macro-environment 'define-record-printer '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'define-record-printer form '(_ _ . _)) (let ([head (cadr form)] [body (cddr form)]) (cond [(pair? head) (##sys#check-syntax 'define-record-printer (cons head body) '((variable variable variable) . #(_ 1))) (let* ((plain-name (strip-syntax (##sys#slot head 0))) (tag (if (##sys#current-module) (symbol-append (##sys#module-name (##sys#current-module)) '|#| plain-name) plain-name))) `(##sys#register-record-printer (##core#quote ,tag) (##core#lambda ,(##sys#slot head 1) ,@body)))] (else (##sys#check-syntax 'define-record-printer (cons head body) '(variable _)) (let* ((plain-name (strip-syntax head)) (tag (if (##sys#current-module) (symbol-append (##sys#module-name (##sys#current-module)) '|#| plain-name) plain-name))) `(##sys#register-record-printer (##core#quote ,tag) ,@body)))))))) ;;; SRFI-9: (##sys#extend-macro-environment 'define-record-type `() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'define-record-type form '(_ variable #(variable 1) variable . _)) (let* ((type-name (cadr form)) (plain-name (strip-syntax type-name)) (tag (if (##sys#current-module) (symbol-append (##sys#module-name (##sys#current-module)) '|#| plain-name) plain-name)) (conser (caddr form)) (pred (cadddr form)) (slots (cddddr form)) (%define (r 'define)) (%getter-with-setter (r 'chicken.base#getter-with-setter)) (vars (cdr conser)) (x (r 'x)) (y (r 'y)) (slotnames (map car slots))) `(##core#begin ;; TODO: Maybe wrap this in an opaque object? (,%define ,type-name (##core#quote ,tag)) (,%define ,conser (##sys#make-structure (##core#quote ,tag) ,@(map (lambda (sname) (if (memq sname vars) sname '(##core#undefined) ) ) slotnames) ) ) (,%define (,pred ,x) (##sys#structure? ,x (##core#quote ,tag))) ,@(let loop ([slots slots] [i 1]) (if (null? slots) '() (let* ((slot (car slots)) (settable (pair? (cddr slot))) (setr (and settable (caddr slot))) (ssetter (and (pair? setr) (pair? (cdr setr)) (c 'setter (car setr)) (cadr setr))) (get `(##core#lambda (,x) (##core#check (##sys#check-structure ,x (##core#quote ,tag) (##core#quote ,(cadr slot)))) (##sys#block-ref ,x ,i) ) ) (set (and settable `(##core#lambda (,x ,y) (##core#check (##sys#check-structure ,x (##core#quote ,tag) (##core#quote ,ssetter))) (##sys#block-set! ,x ,i ,y)) ))) `((,%define ,(cadr slot) ,(if (and ssetter (c ssetter (cadr slot))) `(,%getter-with-setter ,get ,set) get)) ,@(if settable (if ssetter (if (not (c ssetter (cadr slot))) `(((##sys#setter ##sys#setter) ,ssetter ,set)) '()) `((,%define ,setr ,set))) '()) ,@(loop (cdr slots) (add1 i)) ) ) ) ) ) ) ) ) ) ;;; SRFI-26: (##sys#extend-macro-environment 'cut `((apply . scheme#apply)) (##sys#er-transformer (lambda (form r c) (let ((%<> (r '<>)) (%<...> (r '<...>)) (%apply (r 'apply))) (when (null? (cdr form)) (syntax-error 'cut "you need to supply at least a procedure" form)) (let loop ([xs (cdr form)] [vars '()] [vals '()] [rest #f]) (if (null? xs) (let ([rvars (reverse vars)] [rvals (reverse vals)] ) (if rest (let ([rv (r (gensym))]) `(##core#lambda (,@rvars . ,rv) (,%apply ,(car rvals) ,@(cdr rvals) ,rv) ) ) ;;XXX should we drop the begin? `(##core#lambda ,rvars ((##core#begin ,(car rvals)) ,@(cdr rvals)) ) ) ) (cond ((c %<> (car xs)) (let ([v (r (gensym))]) (loop (cdr xs) (cons v vars) (cons v vals) #f) ) ) ((c %<...> (car xs)) (if (null? (cdr xs)) (loop '() vars vals #t) (syntax-error 'cut "tail patterns after <...> are not supported" form))) (else (loop (cdr xs) vars (cons (car xs) vals) #f)) ) ) ) ) ))) (##sys#extend-macro-environment 'cute `((apply . scheme#apply)) (##sys#er-transformer (lambda (form r c) (let ((%apply (r 'apply)) (%<> (r '<>)) (%<...> (r '<...>))) (when (null? (cdr form)) (syntax-error 'cute "you need to supply at least a procedure" form)) (let loop ([xs (cdr form)] [vars '()] [bs '()] [vals '()] [rest #f]) (if (null? xs) (let ([rvars (reverse vars)] [rvals (reverse vals)] ) (if rest (let ([rv (r (gensym))]) `(##core#let ,bs (##core#lambda (,@rvars . ,rv) (,%apply ,(car rvals) ,@(cdr rvals) ,rv) ) ) ) `(##core#let ,bs (##core#lambda ,rvars (,(car rvals) ,@(cdr rvals)) ) ) ) ) (cond ((c %<> (car xs)) (let ([v (r (gensym))]) (loop (cdr xs) (cons v vars) bs (cons v vals) #f) ) ) ((c %<...> (car xs)) (if (null? (cdr xs)) (loop '() vars bs vals #t) (syntax-error 'cute "tail patterns after <...> are not supported" form))) (else (let ([v (r (gensym))]) (loop (cdr xs) vars (cons (list v (car xs)) bs) (cons v vals) #f) ) )))))))) ;;; SRFI-31 (##sys#extend-macro-environment 'rec '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'rec form '(_ _ . _)) (let ((head (cadr form))) (if (pair? head) `(##core#letrec* ((,(car head) (##core#lambda ,(cdr head) ,@(cddr form)))) ,(car head)) `(##core#letrec* ((,head ,@(cddr form))) ,head)))))) ;;; SRFI-55 (##sys#extend-macro-environment 'require-extension '() (##sys#er-transformer (lambda (x r c) `(,(r 'import) ,@(cdr x))))) ;;; Assertions (##sys#extend-macro-environment 'assert '() (##sys#er-transformer (let ((string-append string-append)) (lambda (form r c) (##sys#check-syntax 'assert form '#(_ 1)) (let* ((exp (cadr form)) (msg-and-args (cddr form)) (msg (optional msg-and-args "assertion failed")) (tmp (r 'tmp))) (when (string? msg) (and-let* ((ln (get-line-number form))) (set! msg (string-append "(" ln ") " msg)))) `(##core#let ((,tmp ,exp)) (##core#if (##core#check ,tmp) ,tmp (##sys#error ,msg ,@(if (pair? msg-and-args) (cdr msg-and-args) `((##core#quote ,(strip-syntax exp)))))))))))) (macro-subset me0 ##sys#default-macro-environment))) ;;; "time" (set! ##sys#chicken.time-macro-environment (let ((me0 (##sys#macro-environment))) (##sys#extend-macro-environment 'time '() (##sys#er-transformer (lambda (form r c) (let ((rvar (r 't))) `(##core#begin (##sys#start-timer) (##sys#call-with-values (##core#lambda () ,@(cdr form)) (##core#lambda ,rvar (##sys#display-times (##sys#stop-timer)) (##sys#apply ##sys#values ,rvar)))))))) (macro-subset me0 ##sys#default-macro-environment))) (set! ##sys#chicken-macro-environment ;; OBSOLETE, remove after bootstrapping (let ((me0 (##sys#macro-environment))) ;; capture current macro env and add all the preceding ones as well ;; TODO: omit `chicken.{base,condition,time,type}-m-e' when plain "chicken" module goes away (append ##sys#chicken.condition-macro-environment ##sys#chicken.time-macro-environment ##sys#chicken.type-macro-environment ##sys#chicken.base-macro-environment (macro-subset me0 ##sys#default-macro-environment)))) ;; register features (chicken.platform#register-feature! 'srfi-8 'srfi-11 'srfi-15 'srfi-16 'srfi-26 'srfi-31) chicken-5.1.0/chicken-status.mdoc0000644000175000017500000000672013502227553016531 0ustar sjamaansjamaan.\" Copyright (c) 2007-2019, The CHICKEN Team .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. The name of the authors may not be used to endorse or promote products .\" derived from this software without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, .\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .\" .\" .Dd Apr 23, 2017 .Dt CHICKEN-STATUS 1 .Os .Sh NAME .Nm chicken-status .Nd list information about installed libraries .Sh SYNOPSIS .Nm .Op OPTION ... .Ar NAME ... .Sh DESCRIPTION .Nm lists information about installed CHICKEN Scheme extension libraries. .Pp If .Ar NAME is given, information is limited to the specified extension(s). Otherwise, all extensions are shown. .Pp The program accepts following arguments: .Bl -tag -width Ds .It Fl h , Fl help Show usage and exit. .It Fl version Show version and exit. .It Fl c , Fl components List installed components. .It Fl f , Fl files List installed files. .It Fl list List installed egg versions in a format suitable for use with .Xr chicken-install 1 Ns 's .No Fl override No or Fl from-list No options. .It Fl match Treat .Ar NAME as a glob pattern. .It Fl host When cross-compiling, only show host extensions. .It Fl target When cross-compiling, only show target extensions. .Dq override format. .It Fl cached List eggs that are currently cached. .El .Sh ENVIRONMENT The following environment variables change the behaviour of .Nm Ns : .Bl -tag -width CHICKEN_INSTALL_REPOSITORY .It Ev CHICKEN_INSTALL_REPOSITORY The path where extension libraries are installed. Defaults to the package library path selected during configuration .Pq usually $prefix/lib/chicken/ . .It Ev CHICKEN_REPOSITORY_PATH One or more directories holding extension libraries. Defaults to the installation repository. .It Ev CHICKEN_EGG_CACHE Location where eggs are retrieved and built. .El .Sh FILES .Bl -tag -width 4n .It Pa $XDG_CACHE_HOME/chicken-install/ Default directory for cached eggs. ( .Ev $XDG_CACHE_HOME defaults to .Pa $HOME/.cache ) .El .Sh EXIT STATUS .Ex -std .Sh SEE ALSO .Xr chicken 1 , .Xr chicken-install 1 , .Xr chicken-uninstall 1 .Pp More information can be found in the .Lk http://wiki.call-cc.org/manual/index "CHICKEN User's Manual". .Sh AUTHORS .An The CHICKEN Team .Sh BUGS Submit bug reports by e-mail to .Mt chicken-janitors@nongnu.org chicken-5.1.0/tweaks.scm0000644000175000017500000000510613502227553014737 0ustar sjamaansjamaan;;;; tweaks.scm - Some inline-routines and declarations for the compiler ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. ;; This file contains some stuff to speed up basic node accessors, and also ;; contains common declarations. (cond-expand ((not debugbuild) (declare (disable-interrupts) (no-bound-checks) (no-procedure-checks) (no-argc-checks))) (else)) (define-inline (node? x) (##sys#structure? x 'chicken.compiler.support#node)) (define-inline (make-node c p s) (##sys#make-structure 'chicken.compiler.support#node c p s)) (cond-expand ((not debugbuild) (define-inline (node-class n) (##sys#slot n 1)) (define-inline (node-parameters n) (##sys#slot n 2)) (define-inline (node-subexpressions n) (##sys#slot n 3))) (else)) (define-inline (intrinsic? sym) (##sys#get sym '##compiler#intrinsic)) (define-inline (namespaced-symbol? sym) (##core#inline "C_u_i_namespaced_symbolp" sym)) (define-inline (mark-variable var mark #!optional (val #t)) (##sys#put! var mark val) ) (define-inline (variable-mark var mark) (##sys#get var mark) ) chicken-5.1.0/chicken.file.posix.import.c0000644000175000017500000004111113502227773020075 0ustar sjamaansjamaan/* Generated from chicken.file.posix.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.file.posix.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.file.posix.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.file.posix.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1721))){ C_save(t1); C_rereclaim2(1721*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],18, C_text("chicken.file.posix")); lf[2]=C_h_intern(&lf[2],5, C_text("posix")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001create-fifo\376\001\000\000\036\001chicken.file.posix#create-fifo\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001c" "reate-symbolic-link\376\001\000\000\047\001chicken.file.posix#create-symbolic-link\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001" "read-symbolic-link\376\001\000\000%\001chicken.file.posix#read-symbolic-link\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001dup" "licate-fileno\376\001\000\000#\001chicken.file.posix#duplicate-fileno\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001fcntl/dupf" "d\376\001\000\000\036\001chicken.file.posix#fcntl/dupfd\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001fcntl/getfd\376\001\000\000\036\001chicken.fi" "le.posix#fcntl/getfd\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001fcntl/getfl\376\001\000\000\036\001chicken.file.posix#fcntl/ge" "tfl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001fcntl/setfd\376\001\000\000\036\001chicken.file.posix#fcntl/setfd\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\013\001fcntl/setfl\376\001\000\000\036\001chicken.file.posix#fcntl/setfl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001file-access-tim" "e\376\001\000\000#\001chicken.file.posix#file-access-time\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001file-change-time\376\001\000\000#\001" "chicken.file.posix#file-change-time\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001file-modification-time\376\001\000\000)\001c" "hicken.file.posix#file-modification-time\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001file-close\376\001\000\000\035\001chicken." "file.posix#file-close\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001file-control\376\001\000\000\037\001chicken.file.posix#file-c" "ontrol\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001file-creation-mode\376\001\000\000%\001chicken.file.posix#file-creation-m" "ode\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001file-group\376\001\000\000\035\001chicken.file.posix#file-group\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001" "file-link\376\001\000\000\034\001chicken.file.posix#file-link\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001file-lock\376\001\000\000\034\001chicke" "n.file.posix#file-lock\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001file-lock/blocking\376\001\000\000%\001chicken.file.posix" "#file-lock/blocking\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001file-mkstemp\376\001\000\000\037\001chicken.file.posix#file-mks" "temp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001file-open\376\001\000\000\034\001chicken.file.posix#file-open\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001f" "ile-owner\376\001\000\000\035\001chicken.file.posix#file-owner\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001file-permissions\376\001\000\000" "#\001chicken.file.posix#file-permissions\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001file-position\376\001\000\000 \001chicken." "file.posix#file-position\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001file-read\376\001\000\000\034\001chicken.file.posix#file-r" "ead\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001file-select\376\001\000\000\036\001chicken.file.posix#file-select\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\011\001file-size\376\001\000\000\034\001chicken.file.posix#file-size\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001file-stat\376\001\000\000\034\001chic" "ken.file.posix#file-stat\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001file-test-lock\376\001\000\000!\001chicken.file.posix#f" "ile-test-lock\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001file-truncate\376\001\000\000 \001chicken.file.posix#file-truncate" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001file-unlock\376\001\000\000\036\001chicken.file.posix#file-unlock\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001f" "ile-write\376\001\000\000\035\001chicken.file.posix#file-write\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001file-type\376\001\000\000\034\001chick" "en.file.posix#file-type\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001block-device\077\376\001\000\000 \001chicken.file.posix#blo" "ck-device\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001character-device\077\376\001\000\000$\001chicken.file.posix#character-de" "vice\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001directory\077\376\001\000\000\035\001chicken.file.posix#directory\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\005\001fifo\077\376\001\000\000\030\001chicken.file.posix#fifo\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001regular-file\077\376\001\000\000 \001chicken." "file.posix#regular-file\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001socket\077\376\001\000\000\032\001chicken.file.posix#socket\077\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001symbolic-link\077\376\001\000\000!\001chicken.file.posix#symbolic-link\077\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\015\001fileno/stderr\376\001\000\000 \001chicken.file.posix#fileno/stderr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001fileno/st" "din\376\001\000\000\037\001chicken.file.posix#fileno/stdin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001fileno/stdout\376\001\000\000 \001chick" "en.file.posix#fileno/stdout\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001open-input-file\052\376\001\000\000#\001chicken.file.po" "six#open-input-file\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001open-output-file\052\376\001\000\000$\001chicken.file.posix#op" "en-output-file\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001open/append\376\001\000\000\036\001chicken.file.posix#open/append\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\013\001open/binary\376\001\000\000\036\001chicken.file.posix#open/binary\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001ope" "n/creat\376\001\000\000\035\001chicken.file.posix#open/creat\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001open/excl\376\001\000\000\034\001chicken" ".file.posix#open/excl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001open/fsync\376\001\000\000\035\001chicken.file.posix#open/fsy" "nc\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001open/noctty\376\001\000\000\036\001chicken.file.posix#open/noctty\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016" "\001open/noinherit\376\001\000\000!\001chicken.file.posix#open/noinherit\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001open/nonbl" "ock\376\001\000\000 \001chicken.file.posix#open/nonblock\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001open/rdonly\376\001\000\000\036\001chicke" "n.file.posix#open/rdonly\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001open/rdwr\376\001\000\000\034\001chicken.file.posix#open/r" "dwr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001open/read\376\001\000\000\034\001chicken.file.posix#open/read\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001op" "en/sync\376\001\000\000\034\001chicken.file.posix#open/sync\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001open/text\376\001\000\000\034\001chicken." "file.posix#open/text\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001open/trunc\376\001\000\000\035\001chicken.file.posix#open/trun" "c\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001open/write\376\001\000\000\035\001chicken.file.posix#open/write\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001op" "en/wronly\376\001\000\000\036\001chicken.file.posix#open/wronly\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/irgrp\376\001\000\000\035\001chi" "cken.file.posix#perm/irgrp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/iroth\376\001\000\000\035\001chicken.file.posix#per" "m/iroth\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/irusr\376\001\000\000\035\001chicken.file.posix#perm/irusr\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\012\001perm/irwxg\376\001\000\000\035\001chicken.file.posix#perm/irwxg\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/irwxo\376\001\000\000\035" "\001chicken.file.posix#perm/irwxo\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/irwxu\376\001\000\000\035\001chicken.file.posix" "#perm/irwxu\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/isgid\376\001\000\000\035\001chicken.file.posix#perm/isgid\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\012\001perm/isuid\376\001\000\000\035\001chicken.file.posix#perm/isuid\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/isvtx\376" "\001\000\000\035\001chicken.file.posix#perm/isvtx\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/iwgrp\376\001\000\000\035\001chicken.file.p" "osix#perm/iwgrp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/iwoth\376\001\000\000\035\001chicken.file.posix#perm/iwoth\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\012\001perm/iwusr\376\001\000\000\035\001chicken.file.posix#perm/iwusr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/ix" "grp\376\001\000\000\035\001chicken.file.posix#perm/ixgrp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/ixoth\376\001\000\000\035\001chicken.fi" "le.posix#perm/ixoth\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/ixusr\376\001\000\000\035\001chicken.file.posix#perm/ixusr" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001port->fileno\376\001\000\000\037\001chicken.file.posix#port->fileno\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017" "\001set-file-group!\376\001\000\000\042\001chicken.file.posix#set-file-group!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001set-file" "-owner!\376\001\000\000\042\001chicken.file.posix#set-file-owner!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001set-file-permissi" "ons!\376\001\000\000(\001chicken.file.posix#set-file-permissions!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001set-file-posit" "ion!\376\001\000\000%\001chicken.file.posix#set-file-position!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001set-file-times!\376\001" "\000\000\042\001chicken.file.posix#set-file-times!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001seek/cur\376\001\000\000\033\001chicken.file" ".posix#seek/cur\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001seek/set\376\001\000\000\033\001chicken.file.posix#seek/set\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\010\001seek/end\376\001\000\000\033\001chicken.file.posix#seek/end\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2efile_2eposix_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2efile_2eposix_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2efile_2eposix_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2efile_2eposix_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2efile_2eposix_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/chicken.pathname.import.scm0000644000175000017500000000226213502227742020152 0ustar sjamaansjamaan;;;; chicken.pathname.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.pathname 'pathname (scheme#list) '((absolute-pathname? . chicken.pathname#absolute-pathname?) (decompose-directory . chicken.pathname#decompose-directory) (decompose-pathname . chicken.pathname#decompose-pathname) (directory-null? . chicken.pathname#directory-null?) (make-absolute-pathname . chicken.pathname#make-absolute-pathname) (make-pathname . chicken.pathname#make-pathname) (normalize-pathname . chicken.pathname#normalize-pathname) (pathname-directory . chicken.pathname#pathname-directory) (pathname-extension . chicken.pathname#pathname-extension) (pathname-file . chicken.pathname#pathname-file) (pathname-replace-directory . chicken.pathname#pathname-replace-directory) (pathname-replace-extension . chicken.pathname#pathname-replace-extension) (pathname-replace-file . chicken.pathname#pathname-replace-file) (pathname-strip-directory . chicken.pathname#pathname-strip-directory) (pathname-strip-extension . chicken.pathname#pathname-strip-extension)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/posixwin.c0000644000175000017500000167262213502230003014757 0ustar sjamaansjamaan/* Generated from posix.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: posix.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file posixwin.c -feature platform-windows -emit-import-library chicken.errno -emit-import-library chicken.file.posix -emit-import-library chicken.time.posix -emit-import-library chicken.process -emit-import-library chicken.process.signal -emit-import-library chicken.process-context.posix -no-module-registration unit: posix uses: scheduler pathname extras port lolevel library data-structures */ #include "chicken.h" #include static int C_not_implemented(void); int C_not_implemented() { return -1; } static C_TLS struct stat C_statbuf; #define C_stat_type (C_statbuf.st_mode & S_IFMT) #define C_stat_perm (C_statbuf.st_mode & ~S_IFMT) #define C_u_i_stat(fn) C_fix(C_stat(C_c_string(fn), &C_statbuf)) #define C_u_i_fstat(fd) C_fix(fstat(C_unfix(fd), &C_statbuf)) #ifndef S_IFSOCK # define S_IFSOCK 0140000 #endif #ifndef S_IRUSR # define S_IRUSR S_IREAD #endif #ifndef S_IWUSR # define S_IWUSR S_IWRITE #endif #ifndef S_IXUSR # define S_IXUSR S_IEXEC #endif #ifndef S_IRGRP # define S_IRGRP S_IREAD #endif #ifndef S_IWGRP # define S_IWGRP S_IWRITE #endif #ifndef S_IXGRP # define S_IXGRP S_IEXEC #endif #ifndef S_IROTH # define S_IROTH S_IREAD #endif #ifndef S_IWOTH # define S_IWOTH S_IWRITE #endif #ifndef S_IXOTH # define S_IXOTH S_IEXEC #endif #define cpy_tmvec_to_tmstc08(ptm, v) \ ((ptm)->tm_sec = C_unfix(C_block_item((v), 0)), \ (ptm)->tm_min = C_unfix(C_block_item((v), 1)), \ (ptm)->tm_hour = C_unfix(C_block_item((v), 2)), \ (ptm)->tm_mday = C_unfix(C_block_item((v), 3)), \ (ptm)->tm_mon = C_unfix(C_block_item((v), 4)), \ (ptm)->tm_year = C_unfix(C_block_item((v), 5)), \ (ptm)->tm_wday = C_unfix(C_block_item((v), 6)), \ (ptm)->tm_yday = C_unfix(C_block_item((v), 7)), \ (ptm)->tm_isdst = (C_block_item((v), 8) != C_SCHEME_FALSE)) #define cpy_tmvec_to_tmstc9(ptm, v) \ (((struct tm *)ptm)->tm_gmtoff = -C_unfix(C_block_item((v), 9))) #define C_tm_set_08(v, tm) cpy_tmvec_to_tmstc08( (tm), (v) ) #define C_tm_set_9(v, tm) cpy_tmvec_to_tmstc9( (tm), (v) ) static struct tm * C_tm_set( C_word v, void *tm ) { C_tm_set_08( v, (struct tm *)tm ); #if defined(C_GNU_ENV) && !defined(__CYGWIN__) && !defined(__uClinux__) C_tm_set_9( v, (struct tm *)tm ); #endif return tm; } #define TIME_STRING_MAXLENGTH 255 static char C_time_string [TIME_STRING_MAXLENGTH + 1]; #undef TIME_STRING_MAXLENGTH #define C_strftime(v, f, tm) \ (strftime(C_time_string, sizeof(C_time_string), C_c_string(f), C_tm_set((v), (tm))) ? C_time_string : NULL) #define C_a_mktime(ptr, c, v, tm) C_int64_to_num(ptr, mktime(C_tm_set((v), C_data_pointer(tm)))) #define C_asctime(v, tm) (asctime(C_tm_set((v), (tm)))) #define C_fdopen(a, n, fd, m) C_mpointer(a, fdopen(C_unfix(fd), C_c_string(m))) #define C_dup(x) C_fix(dup(C_unfix(x))) #define C_dup2(x, y) C_fix(dup2(C_unfix(x), C_unfix(y))) #define C_set_file_ptr(port, ptr) (C_set_block_item(port, 0, (C_block_item(ptr, 0))), C_SCHEME_UNDEFINED) /* It is assumed that 'int' is-a 'long' */ #define C_ftell(a, n, p) C_int64_to_num(a, ftell(C_port_file(p))) #define C_fseek(p, n, w) C_mk_nbool(fseek(C_port_file(p), C_num_to_int64(n), C_unfix(w))) #define C_lseek(fd, o, w) C_fix(lseek(C_unfix(fd), C_num_to_int64(o), C_unfix(w))) #ifndef S_IFLNK #define S_IFLNK S_IFREG #endif #ifndef S_IFREG #define S_IFREG S_IFREG #endif #ifndef S_IFDIR #define S_IFDIR S_IFREG #endif #ifndef S_IFCHR #define S_IFCHR S_IFREG #endif #ifndef S_IFBLK #define S_IFBLK S_IFREG #endif #ifndef S_IFSOCK #define S_IFSOCK S_IFREG #endif #ifndef S_IFIFO #define S_IFIFO S_IFREG #endif #ifndef WIN32_LEAN_AND_MEAN # define WIN32_LEAN_AND_MEAN #endif #include #include #include #include #include #include #include #include #include #include #define PIPE_BUF 512 #ifndef EWOULDBLOCK # define EWOULDBLOCK 0 #endif static C_TLS int C_pipefds[ 2 ]; static C_TLS time_t C_secs; /* pipe handles */ static C_TLS HANDLE C_rd0, C_wr0, C_wr0_, C_rd1, C_wr1, C_rd1_; static C_TLS HANDLE C_save0, C_save1; /* saved I/O handles */ static C_TLS char C_rdbuf; /* one-char buffer for read */ static C_TLS int C_exstatus; /* platform information; initialized for cached testing */ static C_TLS char C_shlcmd[256] = ""; /* Current user name */ static C_TLS TCHAR C_username[255 + 1] = ""; #define open_binary_input_pipe(a, n, name) C_mpointer(a, _popen(C_c_string(name), "r")) #define open_text_input_pipe(a, n, name) open_binary_input_pipe(a, n, name) #define open_binary_output_pipe(a, n, name) C_mpointer(a, _popen(C_c_string(name), "w")) #define open_text_output_pipe(a, n, name) open_binary_output_pipe(a, n, name) #define close_pipe(p) C_fix(_pclose(C_port_file(p))) #define C_chmod(fn, m) C_fix(chmod(C_c_string(fn), C_unfix(m))) #define C_pipe(d, m) C_fix(_pipe(C_pipefds, PIPE_BUF, C_unfix(m))) #define C_close(fd) C_fix(close(C_unfix(fd))) #define C_u_i_lstat(fn) C_u_i_stat(fn) #define C_u_i_execvp(f,a) C_fix(execvp(C_c_string(f), (const char *const *)C_c_pointer_vector_or_null(a))) #define C_u_i_execve(f,a,e) C_fix(execve(C_c_string(f), (const char *const *)C_c_pointer_vector_or_null(a), (const char *const *)C_c_pointer_vector_or_null(e))) /* MS replacement for the fork-exec pair */ #define C_u_i_spawnvp(m,f,a) C_fix(spawnvp(C_unfix(m), C_c_string(f), (const char *const *)C_c_pointer_vector_or_null(a))) #define C_u_i_spawnvpe(m,f,a,e) C_fix(spawnvpe(C_unfix(m), C_c_string(f), (const char *const *)C_c_pointer_vector_or_null(a), (const char *const *)C_c_pointer_vector_or_null(e))) #define C_open(fn, fl, m) C_fix(open(C_c_string(fn), C_unfix(fl), C_unfix(m))) #define C_read(fd, b, n) C_fix(read(C_unfix(fd), C_data_pointer(b), C_unfix(n))) #define C_write(fd, b, n) C_fix(write(C_unfix(fd), C_data_pointer(b), C_unfix(n))) #define C_flushall() C_fix(_flushall()) #define C_umask(m) C_fix(_umask(C_unfix(m))) #define C_ctime(n) (C_secs = (n), ctime(&C_secs)) #define TIME_STRING_MAXLENGTH 255 static char C_time_string [TIME_STRING_MAXLENGTH + 1]; #undef TIME_STRING_MAXLENGTH /* mapping from Win32 error codes to errno */ typedef struct { DWORD win32; int libc; } errmap_t; static errmap_t errmap[] = { {ERROR_INVALID_FUNCTION, EINVAL}, {ERROR_FILE_NOT_FOUND, ENOENT}, {ERROR_PATH_NOT_FOUND, ENOENT}, {ERROR_TOO_MANY_OPEN_FILES, EMFILE}, {ERROR_ACCESS_DENIED, EACCES}, {ERROR_INVALID_HANDLE, EBADF}, {ERROR_ARENA_TRASHED, ENOMEM}, {ERROR_NOT_ENOUGH_MEMORY, ENOMEM}, {ERROR_INVALID_BLOCK, ENOMEM}, {ERROR_BAD_ENVIRONMENT, E2BIG}, {ERROR_BAD_FORMAT, ENOEXEC}, {ERROR_INVALID_ACCESS, EINVAL}, {ERROR_INVALID_DATA, EINVAL}, {ERROR_INVALID_DRIVE, ENOENT}, {ERROR_CURRENT_DIRECTORY, EACCES}, {ERROR_NOT_SAME_DEVICE, EXDEV}, {ERROR_NO_MORE_FILES, ENOENT}, {ERROR_LOCK_VIOLATION, EACCES}, {ERROR_BAD_NETPATH, ENOENT}, {ERROR_NETWORK_ACCESS_DENIED, EACCES}, {ERROR_BAD_NET_NAME, ENOENT}, {ERROR_FILE_EXISTS, EEXIST}, {ERROR_CANNOT_MAKE, EACCES}, {ERROR_FAIL_I24, EACCES}, {ERROR_INVALID_PARAMETER, EINVAL}, {ERROR_NO_PROC_SLOTS, EAGAIN}, {ERROR_DRIVE_LOCKED, EACCES}, {ERROR_BROKEN_PIPE, EPIPE}, {ERROR_DISK_FULL, ENOSPC}, {ERROR_INVALID_TARGET_HANDLE, EBADF}, {ERROR_INVALID_HANDLE, EINVAL}, {ERROR_WAIT_NO_CHILDREN, ECHILD}, {ERROR_CHILD_NOT_COMPLETE, ECHILD}, {ERROR_DIRECT_ACCESS_HANDLE, EBADF}, {ERROR_NEGATIVE_SEEK, EINVAL}, {ERROR_SEEK_ON_DEVICE, EACCES}, {ERROR_DIR_NOT_EMPTY, ENOTEMPTY}, {ERROR_NOT_LOCKED, EACCES}, {ERROR_BAD_PATHNAME, ENOENT}, {ERROR_MAX_THRDS_REACHED, EAGAIN}, {ERROR_LOCK_FAILED, EACCES}, {ERROR_ALREADY_EXISTS, EEXIST}, {ERROR_FILENAME_EXCED_RANGE, ENOENT}, {ERROR_NESTING_NOT_ALLOWED, EAGAIN}, {ERROR_NOT_ENOUGH_QUOTA, ENOMEM}, {0, 0} }; static void C_fcall set_errno(DWORD w32err) { errmap_t *map; for (map = errmap; map->win32; ++map) { if (map->win32 == w32err) { errno = map->libc; return; } } errno = ENOSYS; /* For lack of anything better */ } static int C_fcall set_last_errno() { set_errno(GetLastError()); return 0; } static int fd_to_path(C_word fd, TCHAR path[]) { DWORD result; HANDLE fh = (HANDLE)_get_osfhandle(C_unfix(fd)); if (fh == INVALID_HANDLE_VALUE) { set_last_errno(); return -1; } result = GetFinalPathNameByHandle(fh, path, MAX_PATH, VOLUME_NAME_DOS); if (result == 0) { set_last_errno(); return -1; } else if (result >= MAX_PATH) { /* Shouldn't happen */ errno = ENOMEM; /* For lack of anything better */ return -1; } else { return 0; } } static C_word C_fchmod(C_word fd, C_word m) { TCHAR path[MAX_PATH]; if (fd_to_path(fd, path) == -1) return C_fix(-1); else return C_fix(chmod(path, C_unfix(m))); } static C_word C_fchdir(C_word fd) { TCHAR path[MAX_PATH]; if (fd_to_path(fd, path) == -1) return C_fix(-1); else return C_fix(chdir(path)); } static int C_fcall process_wait(C_word h, C_word t) { if (WaitForSingleObject((HANDLE)h, (t ? 0 : INFINITE)) == WAIT_OBJECT_0) { DWORD ret; if (GetExitCodeProcess((HANDLE)h, &ret)) { CloseHandle((HANDLE)h); C_exstatus = ret; return 1; } } return set_last_errno(); } #define C_process_wait(p, t) (process_wait(C_unfix(p), C_truep(t)) ? C_SCHEME_TRUE : C_SCHEME_FALSE) static C_TLS int C_isNT = 0; static int C_fcall C_windows_nt() { static int has_info = 0; if(!has_info) { OSVERSIONINFO ovf; ZeroMemory(&ovf, sizeof(ovf)); ovf.dwOSVersionInfoSize = sizeof(ovf); has_info = 1; if(GetVersionEx(&ovf)) { SYSTEM_INFO si; switch (ovf.dwPlatformId) { case VER_PLATFORM_WIN32_NT: return C_isNT = 1; } } } return C_isNT; } static int C_fcall get_shlcmd() { /* Do we need to build the shell command pathname? */ if (!strlen(C_shlcmd)) { char *cmdnam = C_windows_nt() ? "\\cmd.exe" : "\\command.com"; UINT len = GetSystemDirectory(C_shlcmd, sizeof(C_shlcmd) - strlen(cmdnam)); if (len) C_strlcpy(C_shlcmd + len, cmdnam, sizeof(C_shlcmd)); else return set_last_errno(); } return 1; } #define C_sysinfo() (sysinfo() ? C_SCHEME_TRUE : C_SCHEME_FALSE) #define C_get_shlcmd() (get_shlcmd() ? C_SCHEME_TRUE : C_SCHEME_FALSE) /* GetUserName */ static int C_fcall get_user_name() { if (!strlen(C_username)) { DWORD bufCharCount = sizeof(C_username) / sizeof(C_username[0]); if (!GetUserName(C_username, &bufCharCount)) return set_last_errno(); } return 1; } #define C_get_user_name() (get_user_name() ? C_SCHEME_TRUE : C_SCHEME_FALSE) /* Spawn a process directly. Params: app Command to execute. cmdlin Command line (arguments). env Environment for the new process (may be NULL). handle, stdin, stdout, stderr Spawned process info are returned in integers. When spawned process shares standard io stream with the parent process the respective value in handle, stdin, stdout, stderr is -1. params A bitmask controling operation. Bit 1: Child & parent share standard input if this bit is set. Bit 2: Share standard output if bit is set. Bit 3: Share standard error if bit is set. Returns: zero return value indicates failure. */ static int C_fcall C_process(const char *app, const char *cmdlin, const char **env, int *phandle, int *pstdin_fd, int *pstdout_fd, int *pstderr_fd, int params) { int i; int success = TRUE; const int f_share_io[3] = { params & 1, params & 2, params & 4}; int io_fds[3] = { -1, -1, -1 }; HANDLE child_io_handles[3] = { NULL, NULL, NULL }, standard_io_handles[3] = { GetStdHandle(STD_INPUT_HANDLE), GetStdHandle(STD_OUTPUT_HANDLE), GetStdHandle(STD_ERROR_HANDLE)}; const char modes[3] = "rww"; HANDLE cur_process = GetCurrentProcess(), child_process = NULL; void* envblk = NULL; /****** create io handles & fds ***/ for (i=0; i<3 && success; ++i) { if (f_share_io[i]) { success = DuplicateHandle( cur_process, standard_io_handles[i], cur_process, &child_io_handles[i], 0, FALSE, DUPLICATE_SAME_ACCESS); } else { HANDLE a, b; success = CreatePipe(&a,&b,NULL,0); if(success) { HANDLE parent_end; if (modes[i]=='r') { child_io_handles[i]=a; parent_end=b; } else { parent_end=a; child_io_handles[i]=b; } success = (io_fds[i] = _open_osfhandle((C_word)parent_end,0)) >= 0; /* Make new handle inheritable */ if (success) success = SetHandleInformation(child_io_handles[i], HANDLE_FLAG_INHERIT, -1); } } } #if 0 /* Requires a sorted list by key! */ /****** create environment block if necessary ****/ if (env && success) { char** p; int len = 0; for (p = env; *p; ++p) len += strlen(*p) + 1; if (envblk = C_malloc(len + 1)) { char* pb = (char*)envblk; for (p = env; *p; ++p) { C_strlcpy(pb, *p, len+1); pb += strlen(*p) + 1; } *pb = '\0'; /* This _should_ already have been checked for embedded NUL bytes */ } else success = FALSE; } #endif /****** finally spawn process ****/ if (success) { PROCESS_INFORMATION pi; STARTUPINFO si; ZeroMemory(&pi,sizeof pi); ZeroMemory(&si,sizeof si); si.cb = sizeof si; si.dwFlags = STARTF_USESTDHANDLES; si.hStdInput = child_io_handles[0]; si.hStdOutput = child_io_handles[1]; si.hStdError = child_io_handles[2]; /* FIXME passing 'app' param causes failure & possible stack corruption */ success = CreateProcess( NULL, (char*)cmdlin, NULL, NULL, TRUE, 0, envblk, NULL, &si, &pi); if (success) { child_process=pi.hProcess; CloseHandle(pi.hThread); } else set_last_errno(); } else set_last_errno(); /****** cleanup & return *********/ /* parent must close child end */ for (i=0; i<3; ++i) { if (child_io_handles[i] != NULL) CloseHandle(child_io_handles[i]); } if (success) { *phandle = (C_word)child_process; *pstdin_fd = io_fds[0]; *pstdout_fd = io_fds[1]; *pstderr_fd = io_fds[2]; } else { for (i=0; i<3; ++i) { if (io_fds[i] != -1) _close(io_fds[i]); } } return success; } static int set_file_mtime(char *filename, C_word atime, C_word mtime) { struct stat sb; struct _utimbuf tb; /* Only stat if needed */ if (atime == C_SCHEME_FALSE || mtime == C_SCHEME_FALSE) { if (C_stat(filename, &sb) == -1) return -1; } if (atime == C_SCHEME_FALSE) { tb.actime = sb.st_atime; } else { tb.actime = C_num_to_int64(atime); } if (mtime == C_SCHEME_FALSE) { tb.modtime = sb.st_mtime; } else { tb.modtime = C_num_to_int64(mtime); } return _utime(filename, &tb); } static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_scheduler_toplevel) C_externimport void C_ccall C_scheduler_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_port_toplevel) C_externimport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_lolevel_toplevel) C_externimport void C_ccall C_lolevel_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[408]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,115,121,115,116,101,109,32,99,109,100,41,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,115,121,115,116,101,109,42,32,115,116,114,41,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,8),40,103,50,53,54,32,99,41}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,50,53,48,32,103,50,54,50,41,0,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,113,115,32,115,116,114,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,112,111,115,105,120,45,101,114,114,111,114,32,116,121,112,101,32,108,111,99,32,109,115,103,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,115,116,97,116,32,102,105,108,101,32,108,105,110,107,32,101,114,114,32,108,111,99,41,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,115,116,97,116,32,102,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,101,116,45,102,105,108,101,45,112,101,114,109,105,115,115,105,111,110,115,33,32,102,32,112,41,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,109,111,100,105,102,105,99,97,116,105,111,110,45,116,105,109,101,32,102,41,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,97,99,99,101,115,115,45,116,105,109,101,32,102,41,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,99,104,97,110,103,101,45,116,105,109,101,32,102,41,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,101,116,45,102,105,108,101,45,116,105,109,101,115,33,32,102,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,115,105,122,101,32,102,41}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,101,116,45,102,105,108,101,45,111,119,110,101,114,33,32,102,32,117,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,101,116,45,102,105,108,101,45,103,114,111,117,112,33,32,102,32,103,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,116,121,112,101,32,102,105,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,114,101,103,117,108,97,114,45,102,105,108,101,63,32,102,105,108,101,41,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,121,109,98,111,108,105,99,45,108,105,110,107,63,32,102,105,108,101,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,98,108,111,99,107,45,100,101,118,105,99,101,63,32,102,105,108,101,41,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,99,104,97,114,97,99,116,101,114,45,100,101,118,105,99,101,63,32,102,105,108,101,41,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,102,111,63,32,102,105,108,101,41,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,111,99,107,101,116,63,32,102,105,108,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,100,105,114,101,99,116,111,114,121,63,32,102,105,108,101,41,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,57),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,101,116,45,102,105,108,101,45,112,111,115,105,116,105,111,110,33,32,112,111,114,116,32,112,111,115,32,46,32,119,104,101,110,99,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,16),40,109,111,100,101,32,105,110,112,32,109,32,108,111,99,41}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,20),40,99,104,101,99,107,32,108,111,99,32,102,100,32,105,110,112,32,114,41,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,111,112,101,110,45,105,110,112,117,116,45,102,105,108,101,42,32,102,100,32,46,32,109,41,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,111,112,101,110,45,111,117,116,112,117,116,45,102,105,108,101,42,32,102,100,32,46,32,109,41,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,112,111,114,116,45,62,102,105,108,101,110,111,32,112,111,114,116,41,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,100,117,112,108,105,99,97,116,101,45,102,105,108,101,110,111,32,111,108,100,32,46,32,110,101,119,41,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,50),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,117,114,114,101,110,116,45,112,114,111,99,101,115,115,45,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,42,32,102,100,41,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,45,104,111,111,107,32,100,105,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,16),67,95,100,101,99,111,100,101,95,115,101,99,111,110,100,115}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,99,104,101,99,107,45,116,105,109,101,45,118,101,99,116,111,114,32,108,111,99,32,116,109,41}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,115,101,99,111,110,100,115,45,62,108,111,99,97,108,45,116,105,109,101,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,115,101,99,111,110,100,115,45,62,117,116,99,45,116,105,109,101,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,115,101,99,111,110,100,115,45,62,115,116,114,105,110,103,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,108,111,99,97,108,45,116,105,109,101,45,62,115,101,99,111,110,100,115,32,116,109,41,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,116,105,109,101,45,62,115,116,114,105,110,103,32,116,109,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,53),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,101,116,45,115,105,103,110,97,108,45,104,97,110,100,108,101,114,33,32,115,105,103,32,112,114,111,99,41,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,115,108,101,101,112,32,110,41,0,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,7),40,97,51,53,48,51,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,24),40,97,51,53,48,57,32,101,112,105,100,32,101,110,111,114,109,32,101,99,111,100,101,41}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,119,97,105,116,32,46,32,97,114,103,115,41,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,7),40,97,51,53,55,56,41,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,11),40,97,51,53,55,50,32,101,120,110,41,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,57,57,51,32,115,108,32,105,41}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,10),40,116,109,112,49,50,49,55,55,41,0,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,7),40,97,51,54,53,50,41,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,15),40,116,109,112,50,50,49,55,56,32,97,114,103,115,41,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,7),40,97,51,53,56,55,41,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,9),40,97,51,53,54,54,32,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,61),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,108,105,115,116,45,62,99,45,115,116,114,105,110,103,45,98,117,102,102,101,114,32,115,116,114,105,110,103,45,108,105,115,116,32,99,111,110,118,101,114,116,32,108,111,99,41,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,49,48,49,50,32,105,41,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,102,114,101,101,45,99,45,115,116,114,105,110,103,45,98,117,102,102,101,114,32,98,117,102,102,101,114,45,97,114,114,97,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,7),40,103,49,48,50,53,41,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,48,50,52,41,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,99,104,101,99,107,45,101,110,118,105,114,111,110,109,101,110,116,45,108,105,115,116,32,108,115,116,32,108,111,99,41,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,7),40,110,111,112,32,120,41,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,7),40,97,51,55,56,48,41,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,11),40,97,51,55,55,52,32,101,120,110,41,0,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,48,54,56,32,103,49,48,56,48,41,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,7),40,97,51,56,48,49,41,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,7),40,97,51,56,56,50,41,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,14),40,97,51,56,55,54,32,46,32,97,114,103,115,41,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,7),40,97,51,55,57,53,41,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,9),40,97,51,55,54,56,32,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,77),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,99,97,108,108,45,119,105,116,104,45,101,120,101,99,45,97,114,103,115,32,108,111,99,32,102,105,108,101,110,97,109,101,32,97,114,103,99,111,110,118,32,97,114,103,108,105,115,116,32,101,110,118,108,105,115,116,32,112,114,111,99,41,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,21),40,99,104,101,99,107,32,108,111,99,32,99,109,100,32,105,110,112,32,114,41,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,111,112,101,110,45,105,110,112,117,116,45,112,105,112,101,32,99,109,100,32,46,32,109,41,0,0,0,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,111,112,101,110,45,111,117,116,112,117,116,45,112,105,112,101,32,99,109,100,32,46,32,109,41,0,0,0,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,99,108,111,115,101,45,105,110,112,117,116,45,112,105,112,101,32,112,111,114,116,41,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,99,108,111,115,101,45,111,117,116,112,117,116,45,112,105,112,101,32,112,111,114,116,41}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,7),40,97,52,48,52,53,41,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,17),40,97,52,48,53,54,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,7),40,97,52,48,53,48,41,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,7),40,97,52,48,54,53,41,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,112,105,112,101,32,99,109,100,32,116,104,117,110,107,32,46,32,109,111,100,101,41,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,7),40,97,52,48,55,57,41,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,17),40,97,52,48,56,53,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,99,97,108,108,45,119,105,116,104,45,111,117,116,112,117,116,45,112,105,112,101,32,99,109,100,32,112,114,111,99,32,46,32,109,111,100,101,41,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,7),40,97,52,49,48,51,41,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,17),40,97,52,49,48,57,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,99,97,108,108,45,119,105,116,104,45,105,110,112,117,116,45,112,105,112,101,32,99,109,100,32,112,114,111,99,32,46,32,109,111,100,101,41,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,7),40,97,52,49,50,55,41,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,17),40,97,52,49,51,56,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,7),40,97,52,49,51,50,41,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,7),40,97,52,49,52,55,41,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,112,105,112,101,32,99,109,100,32,116,104,117,110,107,32,46,32,109,111,100,101,41,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,111,112,101,110,32,102,105,108,101,110,97,109,101,32,102,108,97,103,115,32,46,32,109,111,100,101,41,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,99,108,111,115,101,32,102,100,41,0,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,114,101,97,100,32,102,100,32,115,105,122,101,32,46,32,98,117,102,102,101,114,41,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,119,114,105,116,101,32,102,100,32,98,117,102,102,101,114,32,46,32,115,105,122,101,41}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,13),40,115,117,102,102,105,120,45,108,111,111,112,41,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,8),40,118,97,54,48,55,53,41}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,99,111,117,110,116,41,0,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,8),40,118,97,54,48,56,51,41}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,109,107,115,116,101,109,112,32,116,101,109,112,108,97,116,101,41,0,0,0,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,99,114,101,97,116,101,45,112,105,112,101,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,100,117,112,108,105,99,97,116,101,45,102,105,108,101,110,111,32,111,108,100,32,46,32,110,101,119,41,0,0,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,108,111,99,97,108,45,116,105,109,101,122,111,110,101,45,97,98,98,114,101,118,105,97,116,105,111,110,41}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,113,117,111,116,101,45,97,114,103,45,115,116,114,105,110,103,32,115,116,114,41,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,10),40,102,95,52,54,53,56,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,25),40,97,52,54,52,51,32,112,114,103,32,97,114,103,98,117,102,32,101,110,118,98,117,102,41,0,0,0,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,101,120,101,99,117,116,101,32,102,105,108,101,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,10),40,102,95,52,55,52,49,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,25),40,97,52,55,50,54,32,112,114,103,32,97,114,103,98,117,102,32,101,110,118,98,117,102,41,0,0,0,0,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,115,112,97,119,110,32,109,111,100,101,32,102,105,108,101,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,115,104,101,108,108,45,99,111,109,109,97,110,100,32,108,111,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,114,117,110,32,102,32,46,32,97,114,103,115,41,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,7),40,103,49,53,56,49,41,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,53,56,48,41,0,0,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,15),40,99,104,107,115,116,114,108,115,116,32,108,115,116,41,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,53,48,52,32,103,49,53,49,54,41,0,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,7),40,97,53,48,56,48,41,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,22),40,97,53,48,56,54,32,105,110,32,111,117,116,32,112,105,100,32,101,114,114,41,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,39),40,37,112,114,111,99,101,115,115,32,108,111,99,32,101,114,114,63,32,99,109,100,32,97,114,103,115,32,101,110,118,32,101,120,97,99,116,102,41,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,32,99,109,100,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,42,32,99,109,100,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,117,114,114,101,110,116,45,117,115,101,114,45,110,97,109,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,99,114,101,97,116,101,45,102,105,102,111,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,50),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,114,101,97,116,101,45,115,101,115,115,105,111,110,32,46,32,95,41,0,0,0,0,0,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,99,114,101,97,116,101,45,115,121,109,98,111,108,105,99,45,108,105,110,107,32,46,32,95,41,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,62),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,117,114,114,101,110,116,45,101,102,102,101,99,116,105,118,101,45,103,114,111,117,112,45,105,100,32,46,32,95,41,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,61),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,117,114,114,101,110,116,45,101,102,102,101,99,116,105,118,101,45,117,115,101,114,45,105,100,32,46,32,95,41,0,0,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,63),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,117,114,114,101,110,116,45,101,102,102,101,99,116,105,118,101,45,117,115,101,114,45,110,97,109,101,32,46,32,95,41,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,117,114,114,101,110,116,45,103,114,111,117,112,45,105,100,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,117,114,114,101,110,116,45,117,115,101,114,45,105,100,32,46,32,95,41,0,0,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,99,111,110,116,114,111,108,32,46,32,95,41,0,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,108,105,110,107,32,46,32,95,41,0,0,0,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,108,111,99,107,32,46,32,95,41,0,0,0,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,108,111,99,107,47,98,108,111,99,107,105,110,103,32,46,32,95,41,0,0,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,115,101,108,101,99,116,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,116,101,115,116,45,108,111,99,107,32,46,32,95,41,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,116,114,117,110,99,97,116,101,32,46,32,95,41,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,117,110,108,111,99,107,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,53),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,112,97,114,101,110,116,45,112,114,111,99,101,115,115,45,105,100,32,46,32,95,41,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,102,111,114,107,32,46,32,95,41,0,0,0,0,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,112,114,111,99,101,115,115,45,103,114,111,117,112,45,105,100,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,115,105,103,110,97,108,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,114,101,97,100,45,115,121,109,98,111,108,105,99,45,108,105,110,107,32,46,32,95,41,0,0,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,101,116,45,97,108,97,114,109,33,32,46,32,95,41,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,115,101,116,45,114,111,111,116,45,100,105,114,101,99,116,111,114,121,33,32,46,32,95,41,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,101,116,45,115,105,103,110,97,108,45,109,97,115,107,33,32,46,32,95,41,0,0,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,105,103,110,97,108,45,109,97,115,107,32,46,32,95,41}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,105,103,110,97,108,45,109,97,115,107,33,32,46,32,95,41,0,0,0,0,0,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,105,103,110,97,108,45,109,97,115,107,101,100,63,32,46,32,95,41,0,0,0,0,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,105,103,110,97,108,45,117,110,109,97,115,107,33,32,46,32,95,41,0,0,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,117,115,101,114,45,105,110,102,111,114,109,97,116,105,111,110,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,117,116,99,45,116,105,109,101,45,62,115,101,99,111,110,100,115,32,46,32,95,41,0,0,0,0,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,115,116,114,105,110,103,45,62,116,105,109,101,32,46,32,95,41,0,0,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,101,114,114,110,111,35,101,114,114,110,111,41,0,0,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,11),40,97,53,53,48,57,32,115,105,103,41,0,0,0,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,14),40,97,53,53,49,56,32,46,32,114,101,115,116,41,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,10),40,97,53,53,52,51,32,117,109,41,0,0,0,0,0,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,12),40,97,53,53,52,57,32,112,111,114,116,41,0,0,0,0}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,9),40,97,53,53,56,54,32,102,41,0,0,0,0,0,0,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,9),40,97,53,53,57,50,32,102,41,0,0,0,0,0,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,9),40,97,53,53,57,56,32,102,41,0,0,0,0,0,0,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; /* from k4865 */ C_regparm static C_word C_fcall stub1459(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3,C_word C_a4,C_word C_a5,C_word C_a6,C_word C_a7){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; char * t0=(char * )C_string_or_null(C_a0); char * t1=(char * )C_string_or_null(C_a1); void * t2=(void * )C_c_pointer_or_null(C_a2); int *t3=(int *)C_c_pointer_or_null(C_a3); int *t4=(int *)C_c_pointer_or_null(C_a4); int *t5=(int *)C_c_pointer_or_null(C_a5); int *t6=(int *)C_c_pointer_or_null(C_a6); int t7=(int )C_unfix(C_a7); C_r=C_mk_bool(C_process(t0,t1,t2,t3,t4,t5,t6,t7)); return C_r;} #define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub1370(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; char *z = (_daylight ? _tzname[1] : _tzname[0]); C_return(z); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_mpointer_or_false(&C_a,(void*)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub976(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word o=(C_word )(C_a0); char *ptr = C_malloc(C_header_size(o)); if (ptr != NULL) { C_memcpy(ptr, C_data_pointer(o), C_header_size(o)); } C_return(ptr); C_ret: #undef return return C_r;} /* from k3389 */ C_regparm static C_word C_fcall stub919(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word t0=(C_word )(C_a0); C_word t1=(C_word )(C_a1); void * t2=(void * )C_data_pointer_or_null(C_a2); C_r=C_mpointer(&C_a,(void*)C_strftime(t0,t1,t2)); return C_r;} /* from k3376 */ C_regparm static C_word C_fcall stub909(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word t0=(C_word )(C_a0); void * t1=(void * )C_data_pointer_or_null(C_a1); C_r=C_mpointer(&C_a,(void*)C_asctime(t0,t1)); return C_r;} /* from k3308 */ C_regparm static C_word C_fcall stub882(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_num_to_int(C_a0); C_r=C_mpointer(&C_a,(void*)C_ctime(t0)); return C_r;} /* from chicken.process-context.posix#current-process-id in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ C_regparm static C_word C_fcall stub826(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_fix((C_word)C_getpid()); return C_r;} /* from k2719 in k2713 in k2710 in k2698 in chicken.file.posix#set-file-times! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ C_regparm static C_word C_fcall stub707(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; char * t0=(char * )C_string_or_null(C_a0); C_word t1=(C_word )(C_a1); C_word t2=(C_word )(C_a2); C_r=C_fix((C_word)set_file_mtime(t0,t1,t2)); return C_r;} /* from k2549 */ C_regparm static C_word C_fcall stub633(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_mpointer(&C_a,(void*)strerror(t0)); return C_r;} C_noret_decl(f_2227) static void C_ccall f_2227(C_word c,C_word *av) C_noret; C_noret_decl(f_2230) static void C_ccall f_2230(C_word c,C_word *av) C_noret; C_noret_decl(f_2233) static void C_ccall f_2233(C_word c,C_word *av) C_noret; C_noret_decl(f_2236) static void C_ccall f_2236(C_word c,C_word *av) C_noret; C_noret_decl(f_2239) static void C_ccall f_2239(C_word c,C_word *av) C_noret; C_noret_decl(f_2242) static void C_ccall f_2242(C_word c,C_word *av) C_noret; C_noret_decl(f_2245) static void C_ccall f_2245(C_word c,C_word *av) C_noret; C_noret_decl(f_2331) static void C_ccall f_2331(C_word c,C_word *av) C_noret; C_noret_decl(f_2344) static void C_ccall f_2344(C_word c,C_word *av) C_noret; C_noret_decl(f_2349) static void C_ccall f_2349(C_word c,C_word *av) C_noret; C_noret_decl(f_2353) static void C_ccall f_2353(C_word c,C_word *av) C_noret; C_noret_decl(f_2365) static void C_ccall f_2365(C_word c,C_word *av) C_noret; C_noret_decl(f_2369) static void C_ccall f_2369(C_word c,C_word *av) C_noret; C_noret_decl(f_2379) static void C_fcall f_2379(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2400) static void C_ccall f_2400(C_word c,C_word *av) C_noret; C_noret_decl(f_2403) static void C_ccall f_2403(C_word c,C_word *av) C_noret; C_noret_decl(f_2414) static void C_ccall f_2414(C_word c,C_word *av) C_noret; C_noret_decl(f_2420) static void C_fcall f_2420(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2445) static void C_ccall f_2445(C_word c,C_word *av) C_noret; C_noret_decl(f_2552) static void C_ccall f_2552(C_word c,C_word *av) C_noret; C_noret_decl(f_2556) static void C_ccall f_2556(C_word c,C_word *av) C_noret; C_noret_decl(f_2563) static void C_ccall f_2563(C_word c,C_word *av) C_noret; C_noret_decl(f_2567) static void C_ccall f_2567(C_word c,C_word *av) C_noret; C_noret_decl(f_2570) static void C_fcall f_2570(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2574) static void C_ccall f_2574(C_word c,C_word *av) C_noret; C_noret_decl(f_2595) static void C_ccall f_2595(C_word c,C_word *av) C_noret; C_noret_decl(f_2599) static void C_ccall f_2599(C_word c,C_word *av) C_noret; C_noret_decl(f_2608) static void C_ccall f_2608(C_word c,C_word *av) C_noret; C_noret_decl(f_2616) static void C_ccall f_2616(C_word c,C_word *av) C_noret; C_noret_decl(f_2623) static void C_ccall f_2623(C_word c,C_word *av) C_noret; C_noret_decl(f_2634) static void C_ccall f_2634(C_word c,C_word *av) C_noret; C_noret_decl(f_2638) static void C_ccall f_2638(C_word c,C_word *av) C_noret; C_noret_decl(f_2641) static void C_ccall f_2641(C_word c,C_word *av) C_noret; C_noret_decl(f_2659) static void C_ccall f_2659(C_word c,C_word *av) C_noret; C_noret_decl(f_2663) static void C_ccall f_2663(C_word c,C_word *av) C_noret; C_noret_decl(f_2673) static void C_ccall f_2673(C_word c,C_word *av) C_noret; C_noret_decl(f_2678) static void C_ccall f_2678(C_word c,C_word *av) C_noret; C_noret_decl(f_2682) static void C_ccall f_2682(C_word c,C_word *av) C_noret; C_noret_decl(f_2684) static void C_ccall f_2684(C_word c,C_word *av) C_noret; C_noret_decl(f_2688) static void C_ccall f_2688(C_word c,C_word *av) C_noret; C_noret_decl(f_2690) static void C_ccall f_2690(C_word c,C_word *av) C_noret; C_noret_decl(f_2694) static void C_ccall f_2694(C_word c,C_word *av) C_noret; C_noret_decl(f_2696) static void C_ccall f_2696(C_word c,C_word *av) C_noret; C_noret_decl(f_2700) static void C_ccall f_2700(C_word c,C_word *av) C_noret; C_noret_decl(f_2712) static void C_ccall f_2712(C_word c,C_word *av) C_noret; C_noret_decl(f_2715) static void C_ccall f_2715(C_word c,C_word *av) C_noret; C_noret_decl(f_2721) static void C_ccall f_2721(C_word c,C_word *av) C_noret; C_noret_decl(f_2731) static void C_ccall f_2731(C_word c,C_word *av) C_noret; C_noret_decl(f_2775) static void C_ccall f_2775(C_word c,C_word *av) C_noret; C_noret_decl(f_2779) static void C_ccall f_2779(C_word c,C_word *av) C_noret; C_noret_decl(f_2781) static void C_ccall f_2781(C_word c,C_word *av) C_noret; C_noret_decl(f_2787) static void C_ccall f_2787(C_word c,C_word *av) C_noret; C_noret_decl(f_2795) static void C_ccall f_2795(C_word c,C_word *av) C_noret; C_noret_decl(f_2799) static void C_ccall f_2799(C_word c,C_word *av) C_noret; C_noret_decl(f_2803) static void C_ccall f_2803(C_word c,C_word *av) C_noret; C_noret_decl(f_2805) static void C_ccall f_2805(C_word c,C_word *av) C_noret; C_noret_decl(f_2824) static void C_ccall f_2824(C_word c,C_word *av) C_noret; C_noret_decl(f_2892) static void C_ccall f_2892(C_word c,C_word *av) C_noret; C_noret_decl(f_2900) static void C_ccall f_2900(C_word c,C_word *av) C_noret; C_noret_decl(f_2902) static void C_ccall f_2902(C_word c,C_word *av) C_noret; C_noret_decl(f_2910) static void C_ccall f_2910(C_word c,C_word *av) C_noret; C_noret_decl(f_2912) static void C_ccall f_2912(C_word c,C_word *av) C_noret; C_noret_decl(f_2920) static void C_ccall f_2920(C_word c,C_word *av) C_noret; C_noret_decl(f_2922) static void C_ccall f_2922(C_word c,C_word *av) C_noret; C_noret_decl(f_2930) static void C_ccall f_2930(C_word c,C_word *av) C_noret; C_noret_decl(f_2932) static void C_ccall f_2932(C_word c,C_word *av) C_noret; C_noret_decl(f_2940) static void C_ccall f_2940(C_word c,C_word *av) C_noret; C_noret_decl(f_2942) static void C_ccall f_2942(C_word c,C_word *av) C_noret; C_noret_decl(f_2950) static void C_ccall f_2950(C_word c,C_word *av) C_noret; C_noret_decl(f_2952) static void C_ccall f_2952(C_word c,C_word *av) C_noret; C_noret_decl(f_2960) static void C_ccall f_2960(C_word c,C_word *av) C_noret; C_noret_decl(f_2965) static void C_ccall f_2965(C_word c,C_word *av) C_noret; C_noret_decl(f_2969) static void C_fcall f_2969(C_word t0,C_word t1) C_noret; C_noret_decl(f_2972) static void C_ccall f_2972(C_word c,C_word *av) C_noret; C_noret_decl(f_2975) static void C_ccall f_2975(C_word c,C_word *av) C_noret; C_noret_decl(f_2981) static void C_ccall f_2981(C_word c,C_word *av) C_noret; C_noret_decl(f_2987) static void C_ccall f_2987(C_word c,C_word *av) C_noret; C_noret_decl(f_3020) static void C_ccall f_3020(C_word c,C_word *av) C_noret; C_noret_decl(f_3048) static void C_fcall f_3048(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3056) static void C_ccall f_3056(C_word c,C_word *av) C_noret; C_noret_decl(f_3085) static void C_fcall f_3085(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3098) static void C_ccall f_3098(C_word c,C_word *av) C_noret; C_noret_decl(f_3104) static void C_ccall f_3104(C_word c,C_word *av) C_noret; C_noret_decl(f_3108) static void C_ccall f_3108(C_word c,C_word *av) C_noret; C_noret_decl(f_3116) static void C_ccall f_3116(C_word c,C_word *av) C_noret; C_noret_decl(f_3118) static void C_ccall f_3118(C_word c,C_word *av) C_noret; C_noret_decl(f_3122) static void C_ccall f_3122(C_word c,C_word *av) C_noret; C_noret_decl(f_3130) static void C_ccall f_3130(C_word c,C_word *av) C_noret; C_noret_decl(f_3132) static void C_ccall f_3132(C_word c,C_word *av) C_noret; C_noret_decl(f_3148) static void C_ccall f_3148(C_word c,C_word *av) C_noret; C_noret_decl(f_3157) static void C_ccall f_3157(C_word c,C_word *av) C_noret; C_noret_decl(f_3171) static void C_ccall f_3171(C_word c,C_word *av) C_noret; C_noret_decl(f_3177) static void C_ccall f_3177(C_word c,C_word *av) C_noret; C_noret_decl(f_3181) static void C_ccall f_3181(C_word c,C_word *av) C_noret; C_noret_decl(f_3184) static void C_fcall f_3184(C_word t0,C_word t1) C_noret; C_noret_decl(f_3187) static void C_ccall f_3187(C_word c,C_word *av) C_noret; C_noret_decl(f_3202) static void C_ccall f_3202(C_word c,C_word *av) C_noret; C_noret_decl(f_3204) static void C_ccall f_3204(C_word c,C_word *av) C_noret; C_noret_decl(f_3207) static void C_ccall f_3207(C_word c,C_word *av) C_noret; C_noret_decl(f_3211) static void C_ccall f_3211(C_word c,C_word *av) C_noret; C_noret_decl(f_3214) static void C_ccall f_3214(C_word c,C_word *av) C_noret; C_noret_decl(f_3223) static void C_ccall f_3223(C_word c,C_word *av) C_noret; C_noret_decl(f_3237) static void C_ccall f_3237(C_word c,C_word *av) C_noret; C_noret_decl(f_3240) static void C_fcall f_3240(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3259) static void C_ccall f_3259(C_word c,C_word *av) C_noret; C_noret_decl(f_3263) static void C_ccall f_3263(C_word c,C_word *av) C_noret; C_noret_decl(f_3266) static void C_ccall f_3266(C_word c,C_word *av) C_noret; C_noret_decl(f_3280) static void C_ccall f_3280(C_word c,C_word *av) C_noret; C_noret_decl(f_3284) static void C_ccall f_3284(C_word c,C_word *av) C_noret; C_noret_decl(f_3287) static void C_ccall f_3287(C_word c,C_word *av) C_noret; C_noret_decl(f_3312) static void C_ccall f_3312(C_word c,C_word *av) C_noret; C_noret_decl(f_3316) static void C_ccall f_3316(C_word c,C_word *av) C_noret; C_noret_decl(f_3319) static void C_ccall f_3319(C_word c,C_word *av) C_noret; C_noret_decl(f_3322) static void C_ccall f_3322(C_word c,C_word *av) C_noret; C_noret_decl(f_3350) static void C_ccall f_3350(C_word c,C_word *av) C_noret; C_noret_decl(f_3354) static void C_ccall f_3354(C_word c,C_word *av) C_noret; C_noret_decl(f_3358) static void C_ccall f_3358(C_word c,C_word *av) C_noret; C_noret_decl(f_3395) static void C_ccall f_3395(C_word c,C_word *av) C_noret; C_noret_decl(f_3402) static void C_ccall f_3402(C_word c,C_word *av) C_noret; C_noret_decl(f_3411) static void C_ccall f_3411(C_word c,C_word *av) C_noret; C_noret_decl(f_3421) static void C_ccall f_3421(C_word c,C_word *av) C_noret; C_noret_decl(f_3425) static void C_ccall f_3425(C_word c,C_word *av) C_noret; C_noret_decl(f_3428) static void C_ccall f_3428(C_word c,C_word *av) C_noret; C_noret_decl(f_3449) static void C_ccall f_3449(C_word c,C_word *av) C_noret; C_noret_decl(f_3457) static void C_ccall f_3457(C_word c,C_word *av) C_noret; C_noret_decl(f_3461) static void C_ccall f_3461(C_word c,C_word *av) C_noret; C_noret_decl(f_3472) static void C_ccall f_3472(C_word c,C_word *av) C_noret; C_noret_decl(f_3474) static void C_ccall f_3474(C_word c,C_word *av) C_noret; C_noret_decl(f_3478) static void C_ccall f_3478(C_word c,C_word *av) C_noret; C_noret_decl(f_3480) static void C_ccall f_3480(C_word c,C_word *av) C_noret; C_noret_decl(f_3499) static void C_ccall f_3499(C_word c,C_word *av) C_noret; C_noret_decl(f_3504) static void C_ccall f_3504(C_word c,C_word *av) C_noret; C_noret_decl(f_3510) static void C_ccall f_3510(C_word c,C_word *av) C_noret; C_noret_decl(f_3551) static void C_fcall f_3551(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3559) static void C_ccall f_3559(C_word c,C_word *av) C_noret; C_noret_decl(f_3562) static void C_ccall f_3562(C_word c,C_word *av) C_noret; C_noret_decl(f_3567) static void C_ccall f_3567(C_word c,C_word *av) C_noret; C_noret_decl(f_3573) static void C_ccall f_3573(C_word c,C_word *av) C_noret; C_noret_decl(f_3579) static void C_ccall f_3579(C_word c,C_word *av) C_noret; C_noret_decl(f_3583) static void C_ccall f_3583(C_word c,C_word *av) C_noret; C_noret_decl(f_3588) static void C_ccall f_3588(C_word c,C_word *av) C_noret; C_noret_decl(f_3590) static void C_fcall f_3590(C_word t0,C_word t1) C_noret; C_noret_decl(f_3594) static void C_ccall f_3594(C_word c,C_word *av) C_noret; C_noret_decl(f_3596) static void C_fcall f_3596(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3612) static void C_ccall f_3612(C_word c,C_word *av) C_noret; C_noret_decl(f_3618) static void C_ccall f_3618(C_word c,C_word *av) C_noret; C_noret_decl(f_3621) static void C_ccall f_3621(C_word c,C_word *av) C_noret; C_noret_decl(f_3637) static void C_ccall f_3637(C_word c,C_word *av) C_noret; C_noret_decl(f_3647) static void C_fcall f_3647(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3653) static void C_ccall f_3653(C_word c,C_word *av) C_noret; C_noret_decl(f_3664) static void C_ccall f_3664(C_word c,C_word *av) C_noret; C_noret_decl(f_3668) static void C_fcall f_3668(C_word t0,C_word t1) C_noret; C_noret_decl(f_3672) static void C_ccall f_3672(C_word c,C_word *av) C_noret; C_noret_decl(f_3677) static void C_fcall f_3677(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3687) static void C_ccall f_3687(C_word c,C_word *av) C_noret; C_noret_decl(f_3690) static void C_ccall f_3690(C_word c,C_word *av) C_noret; C_noret_decl(f_3702) static void C_fcall f_3702(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3707) static C_word C_fcall f_3707(C_word t0,C_word t1); C_noret_decl(f_3726) static C_word C_fcall f_3726(C_word t0,C_word t1); C_noret_decl(f_3749) static void C_ccall f_3749(C_word c,C_word *av) C_noret; C_noret_decl(f_3751) static void C_fcall f_3751(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_3755) static void C_ccall f_3755(C_word c,C_word *av) C_noret; C_noret_decl(f_3761) static void C_ccall f_3761(C_word c,C_word *av) C_noret; C_noret_decl(f_3764) static void C_ccall f_3764(C_word c,C_word *av) C_noret; C_noret_decl(f_3769) static void C_ccall f_3769(C_word c,C_word *av) C_noret; C_noret_decl(f_3775) static void C_ccall f_3775(C_word c,C_word *av) C_noret; C_noret_decl(f_3781) static void C_ccall f_3781(C_word c,C_word *av) C_noret; C_noret_decl(f_3785) static void C_ccall f_3785(C_word c,C_word *av) C_noret; C_noret_decl(f_3788) static void C_ccall f_3788(C_word c,C_word *av) C_noret; C_noret_decl(f_3796) static void C_ccall f_3796(C_word c,C_word *av) C_noret; C_noret_decl(f_3802) static void C_ccall f_3802(C_word c,C_word *av) C_noret; C_noret_decl(f_3806) static void C_fcall f_3806(C_word t0,C_word t1) C_noret; C_noret_decl(f_3813) static void C_ccall f_3813(C_word c,C_word *av) C_noret; C_noret_decl(f_3816) static void C_ccall f_3816(C_word c,C_word *av) C_noret; C_noret_decl(f_3820) static void C_ccall f_3820(C_word c,C_word *av) C_noret; C_noret_decl(f_3841) static void C_ccall f_3841(C_word c,C_word *av) C_noret; C_noret_decl(f_3843) static void C_fcall f_3843(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3868) static void C_ccall f_3868(C_word c,C_word *av) C_noret; C_noret_decl(f_3877) static void C_ccall f_3877(C_word c,C_word *av) C_noret; C_noret_decl(f_3883) static void C_ccall f_3883(C_word c,C_word *av) C_noret; C_noret_decl(f_3908) static void C_fcall f_3908(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3921) static void C_ccall f_3921(C_word c,C_word *av) C_noret; C_noret_decl(f_3927) static void C_ccall f_3927(C_word c,C_word *av) C_noret; C_noret_decl(f_3941) static void C_ccall f_3941(C_word c,C_word *av) C_noret; C_noret_decl(f_3948) static void C_ccall f_3948(C_word c,C_word *av) C_noret; C_noret_decl(f_3958) static void C_ccall f_3958(C_word c,C_word *av) C_noret; C_noret_decl(f_3967) static void C_ccall f_3967(C_word c,C_word *av) C_noret; C_noret_decl(f_3981) static void C_ccall f_3981(C_word c,C_word *av) C_noret; C_noret_decl(f_3988) static void C_ccall f_3988(C_word c,C_word *av) C_noret; C_noret_decl(f_3998) static void C_ccall f_3998(C_word c,C_word *av) C_noret; C_noret_decl(f_4007) static void C_ccall f_4007(C_word c,C_word *av) C_noret; C_noret_decl(f_4014) static void C_ccall f_4014(C_word c,C_word *av) C_noret; C_noret_decl(f_4022) static void C_ccall f_4022(C_word c,C_word *av) C_noret; C_noret_decl(f_4029) static void C_ccall f_4029(C_word c,C_word *av) C_noret; C_noret_decl(f_4037) static void C_ccall f_4037(C_word c,C_word *av) C_noret; C_noret_decl(f_4041) static void C_ccall f_4041(C_word c,C_word *av) C_noret; C_noret_decl(f_4046) static void C_ccall f_4046(C_word c,C_word *av) C_noret; C_noret_decl(f_4051) static void C_ccall f_4051(C_word c,C_word *av) C_noret; C_noret_decl(f_4057) static void C_ccall f_4057(C_word c,C_word *av) C_noret; C_noret_decl(f_4061) static void C_ccall f_4061(C_word c,C_word *av) C_noret; C_noret_decl(f_4066) static void C_ccall f_4066(C_word c,C_word *av) C_noret; C_noret_decl(f_4071) static void C_ccall f_4071(C_word c,C_word *av) C_noret; C_noret_decl(f_4075) static void C_ccall f_4075(C_word c,C_word *av) C_noret; C_noret_decl(f_4080) static void C_ccall f_4080(C_word c,C_word *av) C_noret; C_noret_decl(f_4086) static void C_ccall f_4086(C_word c,C_word *av) C_noret; C_noret_decl(f_4090) static void C_ccall f_4090(C_word c,C_word *av) C_noret; C_noret_decl(f_4095) static void C_ccall f_4095(C_word c,C_word *av) C_noret; C_noret_decl(f_4099) static void C_ccall f_4099(C_word c,C_word *av) C_noret; C_noret_decl(f_4104) static void C_ccall f_4104(C_word c,C_word *av) C_noret; C_noret_decl(f_4110) static void C_ccall f_4110(C_word c,C_word *av) C_noret; C_noret_decl(f_4114) static void C_ccall f_4114(C_word c,C_word *av) C_noret; C_noret_decl(f_4119) static void C_ccall f_4119(C_word c,C_word *av) C_noret; C_noret_decl(f_4123) static void C_ccall f_4123(C_word c,C_word *av) C_noret; C_noret_decl(f_4128) static void C_ccall f_4128(C_word c,C_word *av) C_noret; C_noret_decl(f_4133) static void C_ccall f_4133(C_word c,C_word *av) C_noret; C_noret_decl(f_4139) static void C_ccall f_4139(C_word c,C_word *av) C_noret; C_noret_decl(f_4143) static void C_ccall f_4143(C_word c,C_word *av) C_noret; C_noret_decl(f_4148) static void C_ccall f_4148(C_word c,C_word *av) C_noret; C_noret_decl(f_4159) static void C_ccall f_4159(C_word c,C_word *av) C_noret; C_noret_decl(f_4163) static void C_fcall f_4163(C_word t0,C_word t1) C_noret; C_noret_decl(f_4169) static void C_ccall f_4169(C_word c,C_word *av) C_noret; C_noret_decl(f_4172) static void C_ccall f_4172(C_word c,C_word *av) C_noret; C_noret_decl(f_4176) static void C_ccall f_4176(C_word c,C_word *av) C_noret; C_noret_decl(f_4179) static void C_ccall f_4179(C_word c,C_word *av) C_noret; C_noret_decl(f_4185) static void C_ccall f_4185(C_word c,C_word *av) C_noret; C_noret_decl(f_4194) static void C_ccall f_4194(C_word c,C_word *av) C_noret; C_noret_decl(f_4198) static void C_ccall f_4198(C_word c,C_word *av) C_noret; C_noret_decl(f_4203) static void C_ccall f_4203(C_word c,C_word *av) C_noret; C_noret_decl(f_4225) static void C_ccall f_4225(C_word c,C_word *av) C_noret; C_noret_decl(f_4229) static void C_ccall f_4229(C_word c,C_word *av) C_noret; C_noret_decl(f_4232) static void C_ccall f_4232(C_word c,C_word *av) C_noret; C_noret_decl(f_4235) static void C_ccall f_4235(C_word c,C_word *av) C_noret; C_noret_decl(f_4238) static void C_ccall f_4238(C_word c,C_word *av) C_noret; C_noret_decl(f_4241) static void C_ccall f_4241(C_word c,C_word *av) C_noret; C_noret_decl(f_4250) static void C_ccall f_4250(C_word c,C_word *av) C_noret; C_noret_decl(f_4268) static void C_ccall f_4268(C_word c,C_word *av) C_noret; C_noret_decl(f_4272) static void C_ccall f_4272(C_word c,C_word *av) C_noret; C_noret_decl(f_4275) static void C_ccall f_4275(C_word c,C_word *av) C_noret; C_noret_decl(f_4278) static void C_fcall f_4278(C_word t0,C_word t1) C_noret; C_noret_decl(f_4281) static void C_ccall f_4281(C_word c,C_word *av) C_noret; C_noret_decl(f_4284) static void C_ccall f_4284(C_word c,C_word *av) C_noret; C_noret_decl(f_4290) static void C_ccall f_4290(C_word c,C_word *av) C_noret; C_noret_decl(f_4308) static void C_ccall f_4308(C_word c,C_word *av) C_noret; C_noret_decl(f_4321) static void C_ccall f_4321(C_word c,C_word *av) C_noret; C_noret_decl(f_4327) static void C_ccall f_4327(C_word c,C_word *av) C_noret; C_noret_decl(f_4330) static void C_ccall f_4330(C_word c,C_word *av) C_noret; C_noret_decl(f_4335) static void C_fcall f_4335(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4343) static void C_ccall f_4343(C_word c,C_word *av) C_noret; C_noret_decl(f_4382) static C_word C_fcall f_4382(C_word t0,C_word t1); C_noret_decl(f_4423) static void C_ccall f_4423(C_word c,C_word *av) C_noret; C_noret_decl(f_4427) static void C_ccall f_4427(C_word c,C_word *av) C_noret; C_noret_decl(f_4436) static void C_fcall f_4436(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4443) static void C_fcall f_4443(C_word t0,C_word t1) C_noret; C_noret_decl(f_4467) static void C_ccall f_4467(C_word c,C_word *av) C_noret; C_noret_decl(f_4474) static void C_ccall f_4474(C_word c,C_word *av) C_noret; C_noret_decl(f_4483) static void C_ccall f_4483(C_word c,C_word *av) C_noret; C_noret_decl(f_4529) static void C_ccall f_4529(C_word c,C_word *av) C_noret; C_noret_decl(f_4533) static void C_ccall f_4533(C_word c,C_word *av) C_noret; C_noret_decl(f_4536) static void C_fcall f_4536(C_word t0,C_word t1) C_noret; C_noret_decl(f_4539) static void C_ccall f_4539(C_word c,C_word *av) C_noret; C_noret_decl(f_4545) static void C_ccall f_4545(C_word c,C_word *av) C_noret; C_noret_decl(f_4557) static void C_ccall f_4557(C_word c,C_word *av) C_noret; C_noret_decl(f_4559) static void C_ccall f_4559(C_word c,C_word *av) C_noret; C_noret_decl(f_4580) static C_word C_fcall f_4580(C_word t0,C_word t1); C_noret_decl(f_4605) static void C_ccall f_4605(C_word c,C_word *av) C_noret; C_noret_decl(f_4617) static void C_ccall f_4617(C_word c,C_word *av) C_noret; C_noret_decl(f_4644) static void C_ccall f_4644(C_word c,C_word *av) C_noret; C_noret_decl(f_4658) static void C_ccall f_4658(C_word c,C_word *av) C_noret; C_noret_decl(f_4697) static void C_ccall f_4697(C_word c,C_word *av) C_noret; C_noret_decl(f_4722) static void C_ccall f_4722(C_word c,C_word *av) C_noret; C_noret_decl(f_4727) static void C_ccall f_4727(C_word c,C_word *av) C_noret; C_noret_decl(f_4734) static void C_ccall f_4734(C_word c,C_word *av) C_noret; C_noret_decl(f_4741) static void C_ccall f_4741(C_word c,C_word *av) C_noret; C_noret_decl(f_4780) static void C_fcall f_4780(C_word t0,C_word t1) C_noret; C_noret_decl(f_4784) static void C_ccall f_4784(C_word c,C_word *av) C_noret; C_noret_decl(f_4796) static void C_ccall f_4796(C_word c,C_word *av) C_noret; C_noret_decl(f_4807) static void C_ccall f_4807(C_word c,C_word *av) C_noret; C_noret_decl(f_4811) static void C_fcall f_4811(C_word t0,C_word t1) C_noret; C_noret_decl(f_4824) static void C_ccall f_4824(C_word c,C_word *av) C_noret; C_noret_decl(f_4839) static void C_ccall f_4839(C_word c,C_word *av) C_noret; C_noret_decl(f_4843) static void C_ccall f_4843(C_word c,C_word *av) C_noret; C_noret_decl(f_4907) static void C_ccall f_4907(C_word c,C_word *av) C_noret; C_noret_decl(f_4914) static void C_ccall f_4914(C_word c,C_word *av) C_noret; C_noret_decl(f_4924) static void C_ccall f_4924(C_word c,C_word *av) C_noret; C_noret_decl(f_4928) static void C_ccall f_4928(C_word c,C_word *av) C_noret; C_noret_decl(f_4932) static void C_ccall f_4932(C_word c,C_word *av) C_noret; C_noret_decl(f_4944) static void C_ccall f_4944(C_word c,C_word *av) C_noret; C_noret_decl(f_4951) static void C_ccall f_4951(C_word c,C_word *av) C_noret; C_noret_decl(f_4955) static void C_ccall f_4955(C_word c,C_word *av) C_noret; C_noret_decl(f_4959) static void C_ccall f_4959(C_word c,C_word *av) C_noret; C_noret_decl(f_4963) static void C_ccall f_4963(C_word c,C_word *av) C_noret; C_noret_decl(f_4983) static void C_ccall f_4983(C_word c,C_word *av) C_noret; C_noret_decl(f_4991) static void C_fcall f_4991(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5016) static void C_ccall f_5016(C_word c,C_word *av) C_noret; C_noret_decl(f_5030) static void C_fcall f_5030(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_5032) static void C_fcall f_5032(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5037) static C_word C_fcall f_5037(C_word t0,C_word t1); C_noret_decl(f_5046) static C_word C_fcall f_5046(C_word t0,C_word t1); C_noret_decl(f_5073) static void C_ccall f_5073(C_word c,C_word *av) C_noret; C_noret_decl(f_5076) static void C_ccall f_5076(C_word c,C_word *av) C_noret; C_noret_decl(f_5081) static void C_ccall f_5081(C_word c,C_word *av) C_noret; C_noret_decl(f_5087) static void C_ccall f_5087(C_word c,C_word *av) C_noret; C_noret_decl(f_5112) static void C_ccall f_5112(C_word c,C_word *av) C_noret; C_noret_decl(f_5114) static void C_ccall f_5114(C_word c,C_word *av) C_noret; C_noret_decl(f_5174) static void C_ccall f_5174(C_word c,C_word *av) C_noret; C_noret_decl(f_5246) static void C_ccall f_5246(C_word c,C_word *av) C_noret; C_noret_decl(f_5256) static void C_ccall f_5256(C_word c,C_word *av) C_noret; C_noret_decl(f_5267) static void C_ccall f_5267(C_word c,C_word *av) C_noret; C_noret_decl(f_5273) static void C_ccall f_5273(C_word c,C_word *av) C_noret; C_noret_decl(f_5279) static void C_ccall f_5279(C_word c,C_word *av) C_noret; C_noret_decl(f_5285) static void C_ccall f_5285(C_word c,C_word *av) C_noret; C_noret_decl(f_5291) static void C_ccall f_5291(C_word c,C_word *av) C_noret; C_noret_decl(f_5297) static void C_ccall f_5297(C_word c,C_word *av) C_noret; C_noret_decl(f_5303) static void C_ccall f_5303(C_word c,C_word *av) C_noret; C_noret_decl(f_5309) static void C_ccall f_5309(C_word c,C_word *av) C_noret; C_noret_decl(f_5315) static void C_ccall f_5315(C_word c,C_word *av) C_noret; C_noret_decl(f_5321) static void C_ccall f_5321(C_word c,C_word *av) C_noret; C_noret_decl(f_5327) static void C_ccall f_5327(C_word c,C_word *av) C_noret; C_noret_decl(f_5333) static void C_ccall f_5333(C_word c,C_word *av) C_noret; C_noret_decl(f_5339) static void C_ccall f_5339(C_word c,C_word *av) C_noret; C_noret_decl(f_5345) static void C_ccall f_5345(C_word c,C_word *av) C_noret; C_noret_decl(f_5351) static void C_ccall f_5351(C_word c,C_word *av) C_noret; C_noret_decl(f_5357) static void C_ccall f_5357(C_word c,C_word *av) C_noret; C_noret_decl(f_5363) static void C_ccall f_5363(C_word c,C_word *av) C_noret; C_noret_decl(f_5369) static void C_ccall f_5369(C_word c,C_word *av) C_noret; C_noret_decl(f_5375) static void C_ccall f_5375(C_word c,C_word *av) C_noret; C_noret_decl(f_5381) static void C_ccall f_5381(C_word c,C_word *av) C_noret; C_noret_decl(f_5387) static void C_ccall f_5387(C_word c,C_word *av) C_noret; C_noret_decl(f_5393) static void C_ccall f_5393(C_word c,C_word *av) C_noret; C_noret_decl(f_5399) static void C_ccall f_5399(C_word c,C_word *av) C_noret; C_noret_decl(f_5405) static void C_ccall f_5405(C_word c,C_word *av) C_noret; C_noret_decl(f_5411) static void C_ccall f_5411(C_word c,C_word *av) C_noret; C_noret_decl(f_5417) static void C_ccall f_5417(C_word c,C_word *av) C_noret; C_noret_decl(f_5423) static void C_ccall f_5423(C_word c,C_word *av) C_noret; C_noret_decl(f_5429) static void C_ccall f_5429(C_word c,C_word *av) C_noret; C_noret_decl(f_5435) static void C_ccall f_5435(C_word c,C_word *av) C_noret; C_noret_decl(f_5441) static void C_ccall f_5441(C_word c,C_word *av) C_noret; C_noret_decl(f_5447) static void C_ccall f_5447(C_word c,C_word *av) C_noret; C_noret_decl(f_5465) static void C_ccall f_5465(C_word c,C_word *av) C_noret; C_noret_decl(f_5510) static void C_ccall f_5510(C_word c,C_word *av) C_noret; C_noret_decl(f_5514) static void C_ccall f_5514(C_word c,C_word *av) C_noret; C_noret_decl(f_5519) static void C_ccall f_5519(C_word c,C_word *av) C_noret; C_noret_decl(f_5526) static void C_ccall f_5526(C_word c,C_word *av) C_noret; C_noret_decl(f_5544) static void C_ccall f_5544(C_word c,C_word *av) C_noret; C_noret_decl(f_5548) static void C_ccall f_5548(C_word c,C_word *av) C_noret; C_noret_decl(f_5550) static void C_ccall f_5550(C_word c,C_word *av) C_noret; C_noret_decl(f_5554) static void C_ccall f_5554(C_word c,C_word *av) C_noret; C_noret_decl(f_5557) static void C_ccall f_5557(C_word c,C_word *av) C_noret; C_noret_decl(f_5566) static void C_ccall f_5566(C_word c,C_word *av) C_noret; C_noret_decl(f_5587) static void C_ccall f_5587(C_word c,C_word *av) C_noret; C_noret_decl(f_5591) static void C_ccall f_5591(C_word c,C_word *av) C_noret; C_noret_decl(f_5593) static void C_ccall f_5593(C_word c,C_word *av) C_noret; C_noret_decl(f_5597) static void C_ccall f_5597(C_word c,C_word *av) C_noret; C_noret_decl(f_5599) static void C_ccall f_5599(C_word c,C_word *av) C_noret; C_noret_decl(f_5603) static void C_ccall f_5603(C_word c,C_word *av) C_noret; C_noret_decl(C_posix_toplevel) C_externexport void C_ccall C_posix_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(va6075) static void C_fcall va6075(C_word t0,C_word t1) C_noret; C_noret_decl(va6083) static void C_fcall va6083(C_word t0,C_word t1) C_noret; C_noret_decl(trf_2379) static void C_ccall trf_2379(C_word c,C_word *av) C_noret; static void C_ccall trf_2379(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2379(t0,t1,t2);} C_noret_decl(trf_2420) static void C_ccall trf_2420(C_word c,C_word *av) C_noret; static void C_ccall trf_2420(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2420(t0,t1,t2);} C_noret_decl(trf_2570) static void C_ccall trf_2570(C_word c,C_word *av) C_noret; static void C_ccall trf_2570(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2570(t0,t1,t2,t3,t4);} C_noret_decl(trf_2969) static void C_ccall trf_2969(C_word c,C_word *av) C_noret; static void C_ccall trf_2969(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2969(t0,t1);} C_noret_decl(trf_3048) static void C_ccall trf_3048(C_word c,C_word *av) C_noret; static void C_ccall trf_3048(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3048(t0,t1,t2,t3);} C_noret_decl(trf_3085) static void C_ccall trf_3085(C_word c,C_word *av) C_noret; static void C_ccall trf_3085(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3085(t0,t1,t2,t3,t4);} C_noret_decl(trf_3184) static void C_ccall trf_3184(C_word c,C_word *av) C_noret; static void C_ccall trf_3184(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3184(t0,t1);} C_noret_decl(trf_3240) static void C_ccall trf_3240(C_word c,C_word *av) C_noret; static void C_ccall trf_3240(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3240(t0,t1,t2);} C_noret_decl(trf_3551) static void C_ccall trf_3551(C_word c,C_word *av) C_noret; static void C_ccall trf_3551(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3551(t0,t1,t2,t3);} C_noret_decl(trf_3590) static void C_ccall trf_3590(C_word c,C_word *av) C_noret; static void C_ccall trf_3590(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3590(t0,t1);} C_noret_decl(trf_3596) static void C_ccall trf_3596(C_word c,C_word *av) C_noret; static void C_ccall trf_3596(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3596(t0,t1,t2,t3);} C_noret_decl(trf_3647) static void C_ccall trf_3647(C_word c,C_word *av) C_noret; static void C_ccall trf_3647(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3647(t0,t1,t2);} C_noret_decl(trf_3668) static void C_ccall trf_3668(C_word c,C_word *av) C_noret; static void C_ccall trf_3668(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3668(t0,t1);} C_noret_decl(trf_3677) static void C_ccall trf_3677(C_word c,C_word *av) C_noret; static void C_ccall trf_3677(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3677(t0,t1,t2);} C_noret_decl(trf_3702) static void C_ccall trf_3702(C_word c,C_word *av) C_noret; static void C_ccall trf_3702(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3702(t0,t1,t2);} C_noret_decl(trf_3751) static void C_ccall trf_3751(C_word c,C_word *av) C_noret; static void C_ccall trf_3751(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_3751(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_3806) static void C_ccall trf_3806(C_word c,C_word *av) C_noret; static void C_ccall trf_3806(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3806(t0,t1);} C_noret_decl(trf_3843) static void C_ccall trf_3843(C_word c,C_word *av) C_noret; static void C_ccall trf_3843(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3843(t0,t1,t2);} C_noret_decl(trf_3908) static void C_ccall trf_3908(C_word c,C_word *av) C_noret; static void C_ccall trf_3908(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3908(t0,t1,t2,t3,t4);} C_noret_decl(trf_4163) static void C_ccall trf_4163(C_word c,C_word *av) C_noret; static void C_ccall trf_4163(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4163(t0,t1);} C_noret_decl(trf_4278) static void C_ccall trf_4278(C_word c,C_word *av) C_noret; static void C_ccall trf_4278(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4278(t0,t1);} C_noret_decl(trf_4335) static void C_ccall trf_4335(C_word c,C_word *av) C_noret; static void C_ccall trf_4335(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4335(t0,t1,t2);} C_noret_decl(trf_4436) static void C_ccall trf_4436(C_word c,C_word *av) C_noret; static void C_ccall trf_4436(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4436(t0,t1,t2);} C_noret_decl(trf_4443) static void C_ccall trf_4443(C_word c,C_word *av) C_noret; static void C_ccall trf_4443(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4443(t0,t1);} C_noret_decl(trf_4536) static void C_ccall trf_4536(C_word c,C_word *av) C_noret; static void C_ccall trf_4536(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4536(t0,t1);} C_noret_decl(trf_4780) static void C_ccall trf_4780(C_word c,C_word *av) C_noret; static void C_ccall trf_4780(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4780(t0,t1);} C_noret_decl(trf_4811) static void C_ccall trf_4811(C_word c,C_word *av) C_noret; static void C_ccall trf_4811(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4811(t0,t1);} C_noret_decl(trf_4991) static void C_ccall trf_4991(C_word c,C_word *av) C_noret; static void C_ccall trf_4991(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4991(t0,t1,t2);} C_noret_decl(trf_5030) static void C_ccall trf_5030(C_word c,C_word *av) C_noret; static void C_ccall trf_5030(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_5030(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_5032) static void C_ccall trf_5032(C_word c,C_word *av) C_noret; static void C_ccall trf_5032(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5032(t0,t1,t2);} C_noret_decl(trva6075) static void C_ccall trva6075(C_word c,C_word *av) C_noret; static void C_ccall trva6075(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; va6075(t0,t1);} C_noret_decl(trva6083) static void C_ccall trva6083(C_word c,C_word *av) C_noret; static void C_ccall trva6083(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; va6083(t0,t1);} /* k2225 */ static void C_ccall f_2227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2227,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2230,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k2228 in k2225 */ static void C_ccall f_2230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2230,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2233,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k2231 in k2228 in k2225 */ static void C_ccall f_2233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2233,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2236,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_port_toplevel(2,av2);}} /* k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2236,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2239,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_lolevel_toplevel(2,av2);}} /* k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2239,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2242,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2242,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2245,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word t87; C_word t88; C_word t89; C_word t90; C_word t91; C_word t92; C_word t93; C_word t94; C_word t95; C_word t96; C_word t97; C_word t98; C_word t99; C_word t100; C_word t101; C_word t102; C_word t103; C_word t104; C_word t105; C_word t106; C_word t107; C_word t108; C_word t109; C_word t110; C_word t111; C_word t112; C_word t113; C_word t114; C_word t115; C_word t116; C_word t117; C_word t118; C_word t119; C_word t120; C_word t121; C_word t122; C_word t123; C_word t124; C_word t125; C_word t126; C_word t127; C_word t128; C_word t129; C_word t130; C_word t131; C_word t132; C_word t133; C_word t134; C_word t135; C_word t136; C_word t137; C_word t138; C_word t139; C_word t140; C_word t141; C_word t142; C_word t143; C_word t144; C_word t145; C_word t146; C_word t147; C_word t148; C_word t149; C_word t150; C_word t151; C_word t152; C_word t153; C_word t154; C_word t155; C_word t156; C_word t157; C_word t158; C_word t159; C_word t160; C_word t161; C_word t162; C_word t163; C_word t164; C_word t165; C_word t166; C_word t167; C_word t168; C_word t169; C_word t170; C_word t171; C_word t172; C_word t173; C_word t174; C_word t175; C_word t176; C_word t177; C_word t178; C_word t179; C_word t180; C_word t181; C_word t182; C_word t183; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(104,c,6)))){ C_save_and_reclaim((void *)f_2245,2,av);} a=C_alloc(104); t2=C_a_i_provide(&a,1,lf[2]); t3=C_a_i_provide(&a,1,lf[3]); t4=C_set_block_item(lf[4] /* chicken.file.posix#create-fifo */,0,C_SCHEME_UNDEFINED); t5=C_set_block_item(lf[5] /* chicken.file.posix#create-symbolic-link */,0,C_SCHEME_UNDEFINED); t6=C_set_block_item(lf[6] /* chicken.file.posix#read-symbolic-link */,0,C_SCHEME_UNDEFINED); t7=C_set_block_item(lf[7] /* chicken.file.posix#duplicate-fileno */,0,C_SCHEME_UNDEFINED); t8=C_set_block_item(lf[8] /* chicken.file.posix#fcntl/dupfd */,0,C_SCHEME_UNDEFINED); t9=C_set_block_item(lf[9] /* chicken.file.posix#fcntl/getfd */,0,C_SCHEME_UNDEFINED); t10=C_set_block_item(lf[10] /* chicken.file.posix#fcntl/getfl */,0,C_SCHEME_UNDEFINED); t11=C_set_block_item(lf[11] /* chicken.file.posix#fcntl/setfd */,0,C_SCHEME_UNDEFINED); t12=C_set_block_item(lf[12] /* chicken.file.posix#fcntl/setfl */,0,C_SCHEME_UNDEFINED); t13=C_set_block_item(lf[13] /* chicken.file.posix#file-close */,0,C_SCHEME_UNDEFINED); t14=C_set_block_item(lf[14] /* chicken.file.posix#file-control */,0,C_SCHEME_UNDEFINED); t15=C_set_block_item(lf[15] /* chicken.file.posix#file-creation-mode */,0,C_SCHEME_UNDEFINED); t16=C_set_block_item(lf[16] /* chicken.file.posix#file-group */,0,C_SCHEME_UNDEFINED); t17=C_set_block_item(lf[17] /* chicken.file.posix#file-link */,0,C_SCHEME_UNDEFINED); t18=C_set_block_item(lf[18] /* chicken.file.posix#file-lock */,0,C_SCHEME_UNDEFINED); t19=C_set_block_item(lf[19] /* chicken.file.posix#file-lock/blocking */,0,C_SCHEME_UNDEFINED); t20=C_set_block_item(lf[20] /* chicken.file.posix#file-mkstemp */,0,C_SCHEME_UNDEFINED); t21=C_set_block_item(lf[21] /* chicken.file.posix#file-open */,0,C_SCHEME_UNDEFINED); t22=C_set_block_item(lf[22] /* chicken.file.posix#file-owner */,0,C_SCHEME_UNDEFINED); t23=C_set_block_item(lf[23] /* chicken.file.posix#file-permissions */,0,C_SCHEME_UNDEFINED); t24=C_set_block_item(lf[24] /* chicken.file.posix#file-position */,0,C_SCHEME_UNDEFINED); t25=C_set_block_item(lf[25] /* chicken.file.posix#file-read */,0,C_SCHEME_UNDEFINED); t26=C_set_block_item(lf[26] /* chicken.file.posix#file-select */,0,C_SCHEME_UNDEFINED); t27=C_set_block_item(lf[27] /* chicken.file.posix#file-test-lock */,0,C_SCHEME_UNDEFINED); t28=C_set_block_item(lf[28] /* chicken.file.posix#file-truncate */,0,C_SCHEME_UNDEFINED); t29=C_set_block_item(lf[29] /* chicken.file.posix#file-unlock */,0,C_SCHEME_UNDEFINED); t30=C_set_block_item(lf[30] /* chicken.file.posix#file-write */,0,C_SCHEME_UNDEFINED); t31=C_set_block_item(lf[31] /* chicken.file.posix#file-type */,0,C_SCHEME_UNDEFINED); t32=C_set_block_item(lf[32] /* chicken.file.posix#block-device? */,0,C_SCHEME_UNDEFINED); t33=C_set_block_item(lf[33] /* chicken.file.posix#character-device? */,0,C_SCHEME_UNDEFINED); t34=C_set_block_item(lf[34] /* chicken.file.posix#directory? */,0,C_SCHEME_UNDEFINED); t35=C_set_block_item(lf[35] /* chicken.file.posix#fifo? */,0,C_SCHEME_UNDEFINED); t36=C_set_block_item(lf[36] /* chicken.file.posix#regular-file? */,0,C_SCHEME_UNDEFINED); t37=C_set_block_item(lf[37] /* chicken.file.posix#socket? */,0,C_SCHEME_UNDEFINED); t38=C_set_block_item(lf[38] /* chicken.file.posix#symbolic-link? */,0,C_SCHEME_UNDEFINED); t39=C_set_block_item(lf[39] /* chicken.file.posix#fileno/stderr */,0,C_SCHEME_UNDEFINED); t40=C_set_block_item(lf[40] /* chicken.file.posix#fileno/stdin */,0,C_SCHEME_UNDEFINED); t41=C_set_block_item(lf[41] /* chicken.file.posix#fileno/stdout */,0,C_SCHEME_UNDEFINED); t42=C_set_block_item(lf[42] /* chicken.file.posix#open-input-file* */,0,C_SCHEME_UNDEFINED); t43=C_set_block_item(lf[43] /* chicken.file.posix#open-output-file* */,0,C_SCHEME_UNDEFINED); t44=C_set_block_item(lf[44] /* chicken.file.posix#open/append */,0,C_SCHEME_UNDEFINED); t45=C_set_block_item(lf[45] /* chicken.file.posix#open/binary */,0,C_SCHEME_UNDEFINED); t46=C_set_block_item(lf[46] /* chicken.file.posix#open/creat */,0,C_SCHEME_UNDEFINED); t47=C_set_block_item(lf[47] /* chicken.file.posix#open/excl */,0,C_SCHEME_UNDEFINED); t48=C_set_block_item(lf[48] /* chicken.file.posix#open/fsync */,0,C_SCHEME_UNDEFINED); t49=C_set_block_item(lf[49] /* chicken.file.posix#open/noctty */,0,C_SCHEME_UNDEFINED); t50=C_set_block_item(lf[50] /* chicken.file.posix#open/noinherit */,0,C_SCHEME_UNDEFINED); t51=C_set_block_item(lf[51] /* chicken.file.posix#open/nonblock */,0,C_SCHEME_UNDEFINED); t52=C_set_block_item(lf[52] /* chicken.file.posix#open/rdonly */,0,C_SCHEME_UNDEFINED); t53=C_set_block_item(lf[53] /* chicken.file.posix#open/rdwr */,0,C_SCHEME_UNDEFINED); t54=C_set_block_item(lf[54] /* chicken.file.posix#open/read */,0,C_SCHEME_UNDEFINED); t55=C_set_block_item(lf[55] /* chicken.file.posix#open/sync */,0,C_SCHEME_UNDEFINED); t56=C_set_block_item(lf[56] /* chicken.file.posix#open/text */,0,C_SCHEME_UNDEFINED); t57=C_set_block_item(lf[57] /* chicken.file.posix#open/trunc */,0,C_SCHEME_UNDEFINED); t58=C_set_block_item(lf[58] /* chicken.file.posix#open/write */,0,C_SCHEME_UNDEFINED); t59=C_set_block_item(lf[59] /* chicken.file.posix#open/wronly */,0,C_SCHEME_UNDEFINED); t60=C_set_block_item(lf[60] /* chicken.file.posix#perm/irgrp */,0,C_SCHEME_UNDEFINED); t61=C_set_block_item(lf[61] /* chicken.file.posix#perm/iroth */,0,C_SCHEME_UNDEFINED); t62=C_set_block_item(lf[62] /* chicken.file.posix#perm/irusr */,0,C_SCHEME_UNDEFINED); t63=C_set_block_item(lf[63] /* chicken.file.posix#perm/irwxg */,0,C_SCHEME_UNDEFINED); t64=C_set_block_item(lf[64] /* chicken.file.posix#perm/irwxo */,0,C_SCHEME_UNDEFINED); t65=C_set_block_item(lf[65] /* chicken.file.posix#perm/irwxu */,0,C_SCHEME_UNDEFINED); t66=C_set_block_item(lf[66] /* chicken.file.posix#perm/isgid */,0,C_SCHEME_UNDEFINED); t67=C_set_block_item(lf[67] /* chicken.file.posix#perm/isuid */,0,C_SCHEME_UNDEFINED); t68=C_set_block_item(lf[68] /* chicken.file.posix#perm/isvtx */,0,C_SCHEME_UNDEFINED); t69=C_set_block_item(lf[69] /* chicken.file.posix#perm/iwgrp */,0,C_SCHEME_UNDEFINED); t70=C_set_block_item(lf[70] /* chicken.file.posix#perm/iwoth */,0,C_SCHEME_UNDEFINED); t71=C_set_block_item(lf[71] /* chicken.file.posix#perm/iwusr */,0,C_SCHEME_UNDEFINED); t72=C_set_block_item(lf[72] /* chicken.file.posix#perm/ixgrp */,0,C_SCHEME_UNDEFINED); t73=C_set_block_item(lf[73] /* chicken.file.posix#perm/ixoth */,0,C_SCHEME_UNDEFINED); t74=C_set_block_item(lf[74] /* chicken.file.posix#perm/ixusr */,0,C_SCHEME_UNDEFINED); t75=C_set_block_item(lf[75] /* chicken.file.posix#port->fileno */,0,C_SCHEME_UNDEFINED); t76=C_set_block_item(lf[76] /* chicken.file.posix#seek/cur */,0,C_SCHEME_UNDEFINED); t77=C_set_block_item(lf[77] /* chicken.file.posix#seek/end */,0,C_SCHEME_UNDEFINED); t78=C_set_block_item(lf[78] /* chicken.file.posix#seek/set */,0,C_SCHEME_UNDEFINED); t79=C_set_block_item(lf[79] /* chicken.file.posix#set-file-position! */,0,C_SCHEME_UNDEFINED); t80=C_a_i_provide(&a,1,lf[80]); t81=C_set_block_item(lf[81] /* chicken.time.posix#seconds->utc-time */,0,C_SCHEME_UNDEFINED); t82=C_set_block_item(lf[82] /* chicken.time.posix#utc-time->seconds */,0,C_SCHEME_UNDEFINED); t83=C_set_block_item(lf[83] /* chicken.time.posix#seconds->local-time */,0,C_SCHEME_UNDEFINED); t84=C_set_block_item(lf[84] /* chicken.time.posix#seconds->string */,0,C_SCHEME_UNDEFINED); t85=C_set_block_item(lf[85] /* chicken.time.posix#local-time->seconds */,0,C_SCHEME_UNDEFINED); t86=C_set_block_item(lf[86] /* chicken.time.posix#string->time */,0,C_SCHEME_UNDEFINED); t87=C_set_block_item(lf[87] /* chicken.time.posix#time->string */,0,C_SCHEME_UNDEFINED); t88=C_set_block_item(lf[88] /* chicken.time.posix#local-timezone-abbreviation */,0,C_SCHEME_UNDEFINED); t89=C_a_i_provide(&a,1,lf[89]); t90=C_mutate((C_word*)lf[90]+1 /* (set! chicken.process#system ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2331,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t91=C_mutate((C_word*)lf[96]+1 /* (set! chicken.process#system* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2349,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t92=C_mutate((C_word*)lf[99]+1 /* (set! chicken.process#qs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2365,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t93=C_set_block_item(lf[109] /* chicken.process#process-execute */,0,C_SCHEME_UNDEFINED); t94=C_set_block_item(lf[110] /* chicken.process#process-fork */,0,C_SCHEME_UNDEFINED); t95=C_set_block_item(lf[111] /* chicken.process#process-run */,0,C_SCHEME_UNDEFINED); t96=C_set_block_item(lf[112] /* chicken.process#process-signal */,0,C_SCHEME_UNDEFINED); t97=C_set_block_item(lf[113] /* chicken.process#process-spawn */,0,C_SCHEME_UNDEFINED); t98=C_set_block_item(lf[114] /* chicken.process#process-wait */,0,C_SCHEME_UNDEFINED); t99=C_set_block_item(lf[115] /* chicken.process#call-with-input-pipe */,0,C_SCHEME_UNDEFINED); t100=C_set_block_item(lf[116] /* chicken.process#call-with-output-pipe */,0,C_SCHEME_UNDEFINED); t101=C_set_block_item(lf[117] /* chicken.process#close-input-pipe */,0,C_SCHEME_UNDEFINED); t102=C_set_block_item(lf[118] /* chicken.process#close-output-pipe */,0,C_SCHEME_UNDEFINED); t103=C_set_block_item(lf[119] /* chicken.process#create-pipe */,0,C_SCHEME_UNDEFINED); t104=C_set_block_item(lf[120] /* chicken.process#open-input-pipe */,0,C_SCHEME_UNDEFINED); t105=C_set_block_item(lf[121] /* chicken.process#open-output-pipe */,0,C_SCHEME_UNDEFINED); t106=C_set_block_item(lf[122] /* chicken.process#with-input-from-pipe */,0,C_SCHEME_UNDEFINED); t107=C_set_block_item(lf[123] /* chicken.process#with-output-to-pipe */,0,C_SCHEME_UNDEFINED); t108=C_set_block_item(lf[124] /* chicken.process#process */,0,C_SCHEME_UNDEFINED); t109=C_set_block_item(lf[125] /* chicken.process#process* */,0,C_SCHEME_UNDEFINED); t110=C_set_block_item(lf[126] /* chicken.process#process-sleep */,0,C_SCHEME_UNDEFINED); t111=C_set_block_item(lf[127] /* chicken.process#pipe/buf */,0,C_SCHEME_UNDEFINED); t112=C_set_block_item(lf[128] /* chicken.process#spawn/overlay */,0,C_SCHEME_UNDEFINED); t113=C_set_block_item(lf[129] /* chicken.process#spawn/wait */,0,C_SCHEME_UNDEFINED); t114=C_set_block_item(lf[130] /* chicken.process#spawn/nowait */,0,C_SCHEME_UNDEFINED); t115=C_set_block_item(lf[131] /* chicken.process#spawn/nowaito */,0,C_SCHEME_UNDEFINED); t116=C_set_block_item(lf[132] /* chicken.process#spawn/detach */,0,C_SCHEME_UNDEFINED); t117=C_a_i_provide(&a,1,lf[133]); t118=C_set_block_item(lf[134] /* chicken.process.signal#set-alarm! */,0,C_SCHEME_UNDEFINED); t119=C_set_block_item(lf[135] /* chicken.process.signal#set-signal-handler! */,0,C_SCHEME_UNDEFINED); t120=C_set_block_item(lf[136] /* chicken.process.signal#set-signal-mask! */,0,C_SCHEME_UNDEFINED); t121=C_set_block_item(lf[137] /* chicken.process.signal#signal-handler */,0,C_SCHEME_UNDEFINED); t122=C_set_block_item(lf[138] /* chicken.process.signal#signal-mask */,0,C_SCHEME_UNDEFINED); t123=C_set_block_item(lf[139] /* chicken.process.signal#signal-mask! */,0,C_SCHEME_UNDEFINED); t124=C_set_block_item(lf[140] /* chicken.process.signal#signal-masked? */,0,C_SCHEME_UNDEFINED); t125=C_set_block_item(lf[141] /* chicken.process.signal#signal-unmask! */,0,C_SCHEME_UNDEFINED); t126=C_set_block_item(lf[142] /* chicken.process.signal#signal/abrt */,0,C_SCHEME_UNDEFINED); t127=C_set_block_item(lf[143] /* chicken.process.signal#signal/alrm */,0,C_SCHEME_UNDEFINED); t128=C_set_block_item(lf[144] /* chicken.process.signal#signal/break */,0,C_SCHEME_UNDEFINED); t129=C_set_block_item(lf[145] /* chicken.process.signal#signal/bus */,0,C_SCHEME_UNDEFINED); t130=C_set_block_item(lf[146] /* chicken.process.signal#signal/chld */,0,C_SCHEME_UNDEFINED); t131=C_set_block_item(lf[147] /* chicken.process.signal#signal/cont */,0,C_SCHEME_UNDEFINED); t132=C_set_block_item(lf[148] /* chicken.process.signal#signal/fpe */,0,C_SCHEME_UNDEFINED); t133=C_set_block_item(lf[149] /* chicken.process.signal#signal/hup */,0,C_SCHEME_UNDEFINED); t134=C_set_block_item(lf[150] /* chicken.process.signal#signal/ill */,0,C_SCHEME_UNDEFINED); t135=C_set_block_item(lf[151] /* chicken.process.signal#signal/int */,0,C_SCHEME_UNDEFINED); t136=C_set_block_item(lf[152] /* chicken.process.signal#signal/io */,0,C_SCHEME_UNDEFINED); t137=C_set_block_item(lf[153] /* chicken.process.signal#signal/kill */,0,C_SCHEME_UNDEFINED); t138=C_set_block_item(lf[154] /* chicken.process.signal#signal/pipe */,0,C_SCHEME_UNDEFINED); t139=C_set_block_item(lf[155] /* chicken.process.signal#signal/prof */,0,C_SCHEME_UNDEFINED); t140=C_set_block_item(lf[156] /* chicken.process.signal#signal/quit */,0,C_SCHEME_UNDEFINED); t141=C_set_block_item(lf[157] /* chicken.process.signal#signal/segv */,0,C_SCHEME_UNDEFINED); t142=C_set_block_item(lf[158] /* chicken.process.signal#signal/stop */,0,C_SCHEME_UNDEFINED); t143=C_set_block_item(lf[159] /* chicken.process.signal#signal/term */,0,C_SCHEME_UNDEFINED); t144=C_set_block_item(lf[160] /* chicken.process.signal#signal/trap */,0,C_SCHEME_UNDEFINED); t145=C_set_block_item(lf[161] /* chicken.process.signal#signal/tstp */,0,C_SCHEME_UNDEFINED); t146=C_set_block_item(lf[162] /* chicken.process.signal#signal/urg */,0,C_SCHEME_UNDEFINED); t147=C_set_block_item(lf[163] /* chicken.process.signal#signal/usr1 */,0,C_SCHEME_UNDEFINED); t148=C_set_block_item(lf[164] /* chicken.process.signal#signal/usr2 */,0,C_SCHEME_UNDEFINED); t149=C_set_block_item(lf[165] /* chicken.process.signal#signal/vtalrm */,0,C_SCHEME_UNDEFINED); t150=C_set_block_item(lf[166] /* chicken.process.signal#signal/winch */,0,C_SCHEME_UNDEFINED); t151=C_set_block_item(lf[167] /* chicken.process.signal#signal/xcpu */,0,C_SCHEME_UNDEFINED); t152=C_set_block_item(lf[168] /* chicken.process.signal#signal/xfsz */,0,C_SCHEME_UNDEFINED); t153=C_set_block_item(lf[169] /* chicken.process.signal#signals-list */,0,C_SCHEME_UNDEFINED); t154=C_a_i_provide(&a,1,lf[170]); t155=C_set_block_item(lf[171] /* chicken.process-context.posix#change-directory* */,0,C_SCHEME_UNDEFINED); t156=C_set_block_item(lf[172] /* chicken.process-context.posix#set-root-directory! */,0,C_SCHEME_UNDEFINED); t157=C_set_block_item(lf[173] /* chicken.process-context.posix#current-effective-group-id */,0,C_SCHEME_UNDEFINED); t158=C_set_block_item(lf[174] /* chicken.process-context.posix#current-effective-user-id */,0,C_SCHEME_UNDEFINED); t159=C_set_block_item(lf[175] /* chicken.process-context.posix#current-group-id */,0,C_SCHEME_UNDEFINED); t160=C_set_block_item(lf[176] /* chicken.process-context.posix#current-user-id */,0,C_SCHEME_UNDEFINED); t161=C_set_block_item(lf[177] /* chicken.process-context.posix#current-process-id */,0,C_SCHEME_UNDEFINED); t162=C_set_block_item(lf[178] /* chicken.process-context.posix#parent-process-id */,0,C_SCHEME_UNDEFINED); t163=C_set_block_item(lf[179] /* chicken.process-context.posix#current-user-name */,0,C_SCHEME_UNDEFINED); t164=C_set_block_item(lf[180] /* chicken.process-context.posix#current-effective-user-name */,0,C_SCHEME_UNDEFINED); t165=C_set_block_item(lf[181] /* chicken.process-context.posix#create-session */,0,C_SCHEME_UNDEFINED); t166=C_set_block_item(lf[182] /* chicken.process-context.posix#process-group-id */,0,C_SCHEME_UNDEFINED); t167=C_set_block_item(lf[183] /* chicken.process-context.posix#user-information */,0,C_SCHEME_UNDEFINED); t168=C_a_i_provide(&a,1,lf[184]); t169=C_mutate(&lf[185] /* (set! chicken.posix#posix-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2552,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t170=C_mutate((C_word*)lf[188]+1 /* (set! ##sys#posix-error ...) */,lf[185]); t171=C_mutate(&lf[189] /* (set! chicken.posix#stat ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2570,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t172=C_mutate((C_word*)lf[196]+1 /* (set! chicken.file.posix#file-stat ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2616,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t173=C_mutate((C_word*)lf[198]+1 /* (set! chicken.file.posix#set-file-permissions! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2634,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t174=C_mutate((C_word*)lf[204]+1 /* (set! chicken.file.posix#file-modification-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2678,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t175=C_mutate((C_word*)lf[206]+1 /* (set! chicken.file.posix#file-access-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2684,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t176=C_mutate((C_word*)lf[208]+1 /* (set! chicken.file.posix#file-change-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2690,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t177=C_mutate((C_word*)lf[210]+1 /* (set! chicken.file.posix#set-file-times! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2696,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t178=C_mutate((C_word*)lf[215]+1 /* (set! chicken.file.posix#file-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2775,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t179=C_mutate((C_word*)lf[217]+1 /* (set! chicken.file.posix#set-file-owner! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2781,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t180=C_mutate((C_word*)lf[220]+1 /* (set! chicken.file.posix#set-file-group! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2787,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t181=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2795,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t182=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5599,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:312: chicken.base#getter-with-setter */ t183=*((C_word*)lf[395]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t183; av2[1]=t181; av2[2]=t182; av2[3]=*((C_word*)lf[217]+1); av2[4]=lf[407]; ((C_proc)(void*)(*((C_word*)t183+1)))(5,av2);}} /* chicken.process#system in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2331,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[91]); t4=C_execute_shell_command(t2); if(C_truep(C_fixnum_lessp(t4,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2344,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix.scm:202: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[95]+1); av2[1]=t5; tp(2,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2342 in chicken.process#system in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2344,2,av);} /* posix.scm:203: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[93]; av2[3]=lf[91]; av2[4]=lf[94]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* chicken.process#system* in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2349,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2353,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix.scm:209: system */ t4=*((C_word*)lf[90]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2351 in chicken.process#system* in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2353,2,av);} t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* posix.scm:211: ##sys#error */ t3=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[98]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* chicken.process#qs in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_2365,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2369,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* posix.scm:216: chicken.platform#software-version */ t5=*((C_word*)lf[108]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_car(t3); f_2369(2,av2);}}} /* k2367 in chicken.process#qs in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_2369,2,av);} a=C_alloc(18); t2=C_eqp(t1,lf[100]); t3=(C_truep(t2)?C_make_character(34):C_make_character(39)); t4=t3; t5=C_eqp(t1,lf[100]); t6=(C_truep(t5)?lf[101]:lf[102]); t7=t6; t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2379,a[2]=t4,a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=((C_word)li2),tmp=(C_word)a,a+=6,tmp); t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2400,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t10,a[5]=t12,a[6]=t11,tmp=(C_word)a,a+=7,tmp); /* ##sys#string->list */ t14=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t13; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} /* g256 in k2367 in chicken.process#qs in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_2379(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,0,4)))){ C_save_and_reclaim_args((void *)trf_2379,3,t0,t1,t2);} a=C_alloc(2); if(C_truep(C_i_char_equalp(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=t2; if(C_truep(C_u_i_char_equalp(t3,C_make_character(0)))){ /* posix.scm:224: chicken.base#error */ t4=*((C_word*)lf[103]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=lf[104]; av2[3]=lf[105]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_string(&a,1,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k2398 in k2367 in chicken.process#qs in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_2400,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2403,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2420,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word)li3),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_2420(t6,t2,t1);} /* k2401 in k2398 in k2367 in chicken.process#qs in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2403,2,av);} a=C_alloc(7); t2=C_a_i_string(&a,1,((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2414,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t4; av2[2]=*((C_word*)lf[106]+1); av2[3]=t1; C_apply(4,av2);}} /* k2412 in k2401 in k2398 in k2367 in chicken.process#qs in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_2414,2,av);} a=C_alloc(2); t2=C_a_i_string(&a,1,((C_word*)t0)[2]); /* posix.scm:227: scheme#string-append */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* map-loop250 in k2398 in k2367 in chicken.process#qs in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_2420(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2420,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2445,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* posix.scm:220: g256 */ t5=((C_word*)t0)[4]; f_2379(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2443 in map-loop250 in k2398 in k2367 in chicken.process#qs in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2445,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2420(t6,((C_word*)t0)[5],t5);} /* chicken.posix#posix-error in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +7,c,2)))){ C_save_and_reclaim((void*)f_2552,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+7); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2556,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t5,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* posix-common.scm:191: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[95]+1); av2[1]=t6; tp(2,av2);}} /* k2554 in chicken.posix#posix-error in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_2556,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2563,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2567,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(t1); t6=stub633(t4,t5); /* posix-common.scm:188: ##sys#peek-c-string */ t7=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k2561 in k2554 in chicken.posix#posix-error in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2563,2,av);}{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[92]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; av2[6]=((C_word*)t0)[5]; C_apply(7,av2);}} /* k2565 in k2554 in chicken.posix#posix-error in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2567,2,av);} /* posix-common.scm:192: string-append */ t2=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[186]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.posix#stat in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_2570(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_2570,5,t1,t2,t3,t4,t5);} a=C_alloc(12); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2574,a[2]=t4,a[3]=t1,a[4]=t5,a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnump(t2))){ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_u_i_fstat(t2); f_2574(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2595,a[2]=t6,a[3]=t2,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:235: chicken.base#port? */ t8=*((C_word*)lf[195]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k2572 in chicken.posix#stat in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2574,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ if(C_truep(((C_word*)t0)[2])){ /* posix-common.scm:246: posix-error */ t2=lf[185];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[190]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[191]; av2[5]=((C_word*)t0)[5]; f_2552(6,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2593 in chicken.posix#stat in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_2595,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2599,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:235: chicken.file.posix#port->fileno */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2608,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:237: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[192]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[5]; tp(4,av2);}} else{ /* posix-common.scm:242: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[193]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[194]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k2597 in k2593 in chicken.posix#stat in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2599,2,av);} t2=C_u_i_fstat(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_2574(2,av2);}} /* k2606 in k2593 in chicken.posix#stat in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2608,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_u_i_lstat(t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_2574(2,av2);}} else{ t2=C_u_i_stat(t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_2574(2,av2);}}} /* chicken.file.posix#file-stat in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +3,c,5)))){ C_save_and_reclaim((void*)f_2616,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+3); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2623,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:252: stat */ f_2570(t6,t2,t5,C_SCHEME_TRUE,lf[197]);} /* k2621 in chicken.file.posix#file-stat in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){ C_save_and_reclaim((void *)f_2623,2,av);} a=C_alloc(42); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_vector(&a,13,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_ino),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_mode),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_nlink),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_uid),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_gid),C_int64_to_num(&a,C_statbuf.st_size),C_int64_to_num(&a,C_statbuf.st_atime),C_int64_to_num(&a,C_statbuf.st_ctime),C_int64_to_num(&a,C_statbuf.st_mtime),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_dev),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_rdev),((C_word)C_SCHEME_UNDEFINED),((C_word)C_SCHEME_UNDEFINED)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#set-file-permissions! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2634,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2638,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:261: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[203]+1); av2[1]=t4; av2[2]=t3; av2[3]=lf[199]; tp(4,av2);}} /* k2636 in chicken.file.posix#set-file-permissions! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_2638,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnump(((C_word*)t0)[3]))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_fchmod(((C_word*)t0)[3],((C_word*)t0)[4]); f_2641(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2659,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:263: chicken.base#port? */ t4=*((C_word*)lf[195]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k2639 in k2636 in chicken.file.posix#set-file-permissions! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2641,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ /* posix-common.scm:272: posix-error */ t2=lf[185];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[190]; av2[3]=lf[199]; av2[4]=lf[200]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2552(7,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2657 in k2636 in chicken.file.posix#set-file-permissions! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_2659,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2663,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:263: chicken.file.posix#port->fileno */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[4]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2673,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:266: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[192]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[199]; tp(4,av2);}} else{ /* posix-common.scm:268: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[193]; av2[3]=lf[201]; av2[4]=lf[202]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k2661 in k2657 in k2636 in chicken.file.posix#set-file-permissions! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2663,2,av);} t2=C_fchmod(t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_2641(2,av2);}} /* k2671 in k2657 in k2636 in chicken.file.posix#set-file-permissions! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2673,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_chmod(t1,((C_word*)t0)[3]); f_2641(2,av2);}} /* chicken.file.posix#file-modification-time in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_2678,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2682,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:276: stat */ f_2570(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[205]);} /* k2680 in chicken.file.posix#file-modification-time in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_2682,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_int64_to_num(&a,C_statbuf.st_mtime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#file-access-time in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_2684,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2688,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:280: stat */ f_2570(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[207]);} /* k2686 in chicken.file.posix#file-access-time in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_2688,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_int64_to_num(&a,C_statbuf.st_atime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#file-change-time in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_2690,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2694,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:284: stat */ f_2570(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[209]);} /* k2692 in chicken.file.posix#file-change-time in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_2694,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_int64_to_num(&a,C_statbuf.st_ctime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#set-file-times! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_2696,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2700,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_nullp(t4))){ /* posix-common.scm:289: chicken.time#current-seconds */ t6=*((C_word*)lf[214]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_car(t4); f_2700(2,av2);}}} /* k2698 in chicken.file.posix#set-file-times! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2700,2,av);} a=C_alloc(7); t2=t1; t3=C_i_nullp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); t5=C_i_nullp(t4); t6=(C_truep(t5)?t2:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2712,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=t7,tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ /* posix-common.scm:290: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[213]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[213]+1); av2[1]=t10; av2[2]=t2; av2[3]=lf[211]; tp(4,av2);}} else{ t11=t10;{ C_word *av2=av; av2[0]=t11; av2[1]=C_SCHEME_UNDEFINED; f_2712(2,av2);}}} /* k2710 in k2698 in chicken.file.posix#set-file-times! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2712,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2715,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[6])){ /* posix-common.scm:291: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[213]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[213]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[211]; tp(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2715(2,av2);}}} /* k2713 in k2710 in k2698 in chicken.file.posix#set-file-times! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_2715,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2731,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=t2; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2721,a[2]=t3,a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t8=C_i_foreign_string_argumentp(t4); /* posix-common.scm:292: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[192]+1); av2[1]=t7; av2[2]=t8; tp(3,av2);}} else{ t8=t3;{ C_word *av2=av; av2[0]=t8; av2[1]=stub707(C_SCHEME_UNDEFINED,C_SCHEME_FALSE,t5,t6); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k2719 in k2713 in k2710 in k2698 in chicken.file.posix#set-file-times! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2721,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=stub707(C_SCHEME_UNDEFINED,t1,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2729 in k2713 in k2710 in k2698 in chicken.file.posix#set-file-times! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_2731,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[185]; av2[3]=lf[190]; av2[4]=lf[211]; av2[5]=lf[212]; av2[6]=((C_word*)t0)[3]; av2[7]=((C_word*)t0)[4]; C_apply(8,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.file.posix#file-size in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_2775,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2779,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:301: stat */ f_2570(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[216]);} /* k2777 in chicken.file.posix#file-size in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_2779,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_int64_to_num(&a,C_statbuf.st_size); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#set-file-owner! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_2781,4,av);} a=C_alloc(12); t4=C_a_i_list(&a,4,lf[218],t2,t3,C_fix(-1)); /* posixwin.scm:877: chicken.base#error */ t5=*((C_word*)lf[103]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=lf[219]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* chicken.file.posix#set-file-group! in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_2787,4,av);} a=C_alloc(12); t4=C_a_i_list(&a,4,lf[221],t2,C_fix(-1),t3); /* posixwin.scm:877: chicken.base#error */ t5=*((C_word*)lf[103]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=lf[219]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2795,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[22]+1 /* (set! chicken.file.posix#file-owner ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2799,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5593,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:318: chicken.base#getter-with-setter */ t5=*((C_word*)lf[395]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[220]+1); av2[4]=lf[405]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2799,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[16]+1 /* (set! chicken.file.posix#file-group ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2803,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5587,a[2]=((C_word)li161),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:324: chicken.base#getter-with-setter */ t5=*((C_word*)lf[395]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[198]+1); av2[4]=lf[403]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,4)))){ C_save_and_reclaim((void *)f_2803,2,av);} a=C_alloc(33); t2=C_mutate((C_word*)lf[23]+1 /* (set! chicken.file.posix#file-permissions ...) */,t1); t3=C_mutate((C_word*)lf[31]+1 /* (set! chicken.file.posix#file-type ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2805,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[36]+1 /* (set! chicken.file.posix#regular-file? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2892,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[38]+1 /* (set! chicken.file.posix#symbolic-link? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2902,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[32]+1 /* (set! chicken.file.posix#block-device? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2912,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[33]+1 /* (set! chicken.file.posix#character-device? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2922,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[35]+1 /* (set! chicken.file.posix#fifo? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2932,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[37]+1 /* (set! chicken.file.posix#socket? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2942,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[34]+1 /* (set! chicken.file.posix#directory? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2952,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t11=C_set_block_item(lf[78] /* chicken.file.posix#seek/set */,0,C_fix((C_word)SEEK_SET)); t12=C_set_block_item(lf[77] /* chicken.file.posix#seek/end */,0,C_fix((C_word)SEEK_END)); t13=C_set_block_item(lf[76] /* chicken.file.posix#seek/cur */,0,C_fix((C_word)SEEK_CUR)); t14=C_mutate((C_word*)lf[79]+1 /* (set! chicken.file.posix#set-file-position! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2965,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3020,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5550,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:401: chicken.base#getter-with-setter */ t17=*((C_word*)lf[395]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t17; av2[1]=t15; av2[2]=t16; av2[3]=*((C_word*)lf[79]+1); av2[4]=lf[402]; ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} /* chicken.file.posix#file-type in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +3,c,5)))){ C_save_and_reclaim((void*)f_2805,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+3); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_i_nullp(t3); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_TRUE:C_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2824,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:333: stat */ f_2570(t12,t2,t5,t9,lf[229]);} /* k2822 in chicken.file.posix#file-type in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2824,2,av);} if(C_truep(t1)){ t2=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_stat_type); t3=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFREG)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=lf[222]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFLNK)); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=lf[223]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFDIR)); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=lf[224]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFCHR)); if(C_truep(t6)){ t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=lf[225]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFBLK)); if(C_truep(t7)){ t8=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t8; av2[1]=lf[226]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFIFO)); if(C_truep(t8)){ t9=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t9; av2[1]=lf[227]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFSOCK)); t10=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t10; av2[1]=(C_truep(t9)?lf[228]:lf[222]); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}}}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.file.posix#regular-file? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2892,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2900,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:347: chicken.file.posix#file-type */ t4=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2898 in chicken.file.posix#regular-file? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2900,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[222],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#symbolic-link? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2902,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2910,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:351: chicken.file.posix#file-type */ t4=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2908 in chicken.file.posix#symbolic-link? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2910,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[223],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#block-device? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2912,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2920,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:355: chicken.file.posix#file-type */ t4=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2918 in chicken.file.posix#block-device? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2920,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[226],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#character-device? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2922,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2930,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:359: chicken.file.posix#file-type */ t4=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2928 in chicken.file.posix#character-device? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2930,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[225],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#fifo? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2932,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2940,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:363: chicken.file.posix#file-type */ t4=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2938 in chicken.file.posix#fifo? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2940,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[227],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#socket? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2942,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2950,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:367: chicken.file.posix#file-type */ t4=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2948 in chicken.file.posix#socket? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2950,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[228],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#directory? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2952,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2960,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:371: chicken.file.posix#file-type */ t4=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2958 in chicken.file.posix#directory? in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2960,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[224],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#set-file-position! in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_2965,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+5); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2969,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t6=t4; t7=t5; f_2969(t7,C_u_i_car(t6));} else{ t6=t5; f_2969(t6,C_fix((C_word)SEEK_SET));}} /* k2967 in chicken.file.posix#set-file-position! in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_2969(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2969,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2972,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:387: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[203]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[230]; tp(4,av2);}} /* k2970 in k2967 in chicken.file.posix#set-file-position! in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2972,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2975,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:388: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[230]; tp(4,av2);}} /* k2973 in k2970 in k2967 in chicken.file.posix#set-file-position! in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_2975,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2981,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2987,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:389: chicken.base#port? */ t4=*((C_word*)lf[195]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2979 in k2973 in k2970 in k2967 in chicken.file.posix#set-file-position! in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2981,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* posix-common.scm:398: posix-error */ t2=lf[185];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[190]; av2[3]=lf[230]; av2[4]=lf[231]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2552(7,av2);}}} /* k2985 in k2973 in k2970 in k2967 in chicken.file.posix#set-file-position! in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_2987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2987,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(7)); t3=C_eqp(t2,lf[232]); if(C_truep(t3)){ t4=C_fseek(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); if(C_truep(t4)){ t5=C_i_set_i_slot(((C_word*)t0)[2],C_fix(6),C_SCHEME_FALSE); t6=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t6; av2[1]=t4; f_2981(2,av2);}} else{ t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_2981(2,av2);}}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_2981(2,av2);}}} else{ if(C_truep(C_fixnump(((C_word*)t0)[2]))){ t2=C_lseek(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_2981(2,av2);}} else{ /* posix-common.scm:397: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[193]; av2[3]=lf[230]; av2[4]=lf[233]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(45,c,6)))){ C_save_and_reclaim((void *)f_3020,2,av);} a=C_alloc(45); t2=C_mutate((C_word*)lf[24]+1 /* (set! chicken.file.posix#file-position ...) */,t1); t3=C_set_block_item(lf[40] /* chicken.file.posix#fileno/stdin */,0,C_fix((C_word)STDIN_FILENO)); t4=C_set_block_item(lf[41] /* chicken.file.posix#fileno/stdout */,0,C_fix((C_word)STDOUT_FILENO)); t5=C_set_block_item(lf[39] /* chicken.file.posix#fileno/stderr */,0,C_fix((C_word)STDERR_FILENO)); t6=C_set_block_item(lf[52] /* chicken.file.posix#open/rdonly */,0,C_fix((C_word)O_RDONLY)); t7=C_set_block_item(lf[59] /* chicken.file.posix#open/wronly */,0,C_fix((C_word)O_WRONLY)); t8=C_set_block_item(lf[53] /* chicken.file.posix#open/rdwr */,0,C_fix((C_word)O_RDWR)); t9=C_set_block_item(lf[54] /* chicken.file.posix#open/read */,0,C_fix((C_word)O_RDONLY)); t10=C_set_block_item(lf[58] /* chicken.file.posix#open/write */,0,C_fix((C_word)O_WRONLY)); t11=C_set_block_item(lf[46] /* chicken.file.posix#open/creat */,0,C_fix((C_word)O_CREAT)); t12=C_set_block_item(lf[44] /* chicken.file.posix#open/append */,0,C_fix((C_word)O_APPEND)); t13=C_set_block_item(lf[47] /* chicken.file.posix#open/excl */,0,C_fix((C_word)O_EXCL)); t14=C_set_block_item(lf[57] /* chicken.file.posix#open/trunc */,0,C_fix((C_word)O_TRUNC)); t15=C_set_block_item(lf[45] /* chicken.file.posix#open/binary */,0,C_fix((C_word)O_BINARY)); t16=C_set_block_item(lf[56] /* chicken.file.posix#open/text */,0,C_fix((C_word)O_TEXT)); t17=C_set_block_item(lf[62] /* chicken.file.posix#perm/irusr */,0,C_fix((C_word)S_IRUSR)); t18=C_set_block_item(lf[71] /* chicken.file.posix#perm/iwusr */,0,C_fix((C_word)S_IWUSR)); t19=C_set_block_item(lf[74] /* chicken.file.posix#perm/ixusr */,0,C_fix((C_word)S_IXUSR)); t20=C_set_block_item(lf[60] /* chicken.file.posix#perm/irgrp */,0,C_fix((C_word)S_IRGRP)); t21=C_set_block_item(lf[69] /* chicken.file.posix#perm/iwgrp */,0,C_fix((C_word)S_IWGRP)); t22=C_set_block_item(lf[72] /* chicken.file.posix#perm/ixgrp */,0,C_fix((C_word)S_IXGRP)); t23=C_set_block_item(lf[61] /* chicken.file.posix#perm/iroth */,0,C_fix((C_word)S_IROTH)); t24=C_set_block_item(lf[70] /* chicken.file.posix#perm/iwoth */,0,C_fix((C_word)S_IWOTH)); t25=C_set_block_item(lf[73] /* chicken.file.posix#perm/ixoth */,0,C_fix((C_word)S_IXOTH)); t26=C_set_block_item(lf[65] /* chicken.file.posix#perm/irwxu */,0,C_fix((C_word)S_IRUSR | S_IWUSR | S_IXUSR)); t27=C_set_block_item(lf[63] /* chicken.file.posix#perm/irwxg */,0,C_fix((C_word)S_IRGRP | S_IWGRP | S_IXGRP)); t28=C_set_block_item(lf[64] /* chicken.file.posix#perm/irwxo */,0,C_fix((C_word)S_IROTH | S_IWOTH | S_IXOTH)); t29=C_SCHEME_UNDEFINED; t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp); t31=C_SCHEME_UNDEFINED; t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp); t33=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3048,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t34=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3085,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate((C_word*)lf[42]+1 /* (set! chicken.file.posix#open-input-file* ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3104,a[2]=t32,a[3]=t30,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp)); t36=C_mutate((C_word*)lf[43]+1 /* (set! chicken.file.posix#open-output-file* ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3118,a[2]=t32,a[3]=t30,a[4]=((C_word)li28),tmp=(C_word)a,a+=5,tmp)); t37=C_mutate((C_word*)lf[75]+1 /* (set! chicken.file.posix#port->fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3132,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate((C_word*)lf[7]+1 /* (set! chicken.file.posix#duplicate-fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3177,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate((C_word*)lf[177]+1 /* (set! chicken.process-context.posix#current-process-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3204,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate((C_word*)lf[171]+1 /* (set! chicken.process-context.posix#change-directory* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3207,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t41=*((C_word*)lf[255]+1); t42=C_mutate((C_word*)lf[255]+1 /* (set! ##sys#change-directory-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3223,a[2]=t41,a[3]=((C_word)li33),tmp=(C_word)a,a+=4,tmp)); t43=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3237,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5519,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp); t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5544,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:560: chicken.base#getter-with-setter */ t46=*((C_word*)lf[395]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t46; av2[1]=t43; av2[2]=t44; av2[3]=t45; av2[4]=lf[398]; ((C_proc)(void*)(*((C_word*)t46+1)))(5,av2);}} /* mode in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3048(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_3048,4,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3056,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t6=t3; t7=C_u_i_car(t6); t8=C_eqp(t7,lf[234]); if(C_truep(t8)){ if(C_truep(C_i_not(t2))){ /* posix-common.scm:482: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[192]+1); av2[1]=t1; av2[2]=lf[235]; av2[3]=t4; tp(4,av2);}} else{ /* posix-common.scm:486: ##sys#error */ t9=*((C_word*)lf[97]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t5; av2[2]=lf[236]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} else{ /* posix-common.scm:487: ##sys#error */ t9=*((C_word*)lf[97]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t5; av2[2]=lf[237]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} else{ if(C_truep(t2)){ /* posix-common.scm:482: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[192]+1); av2[1]=t1; av2[2]=lf[238]; av2[3]=t4; tp(4,av2);}} else{ /* posix-common.scm:482: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[192]+1); av2[1]=t1; av2[2]=lf[239]; av2[3]=t4; tp(4,av2);}}}} /* k3054 in mode in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3056,2,av);} /* posix-common.scm:482: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[192]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* check in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3085(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_3085,5,t1,t2,t3,t4,t5);} a=C_alloc(4); if(C_truep(C_null_pointerp(t5))){ /* posix-common.scm:493: posix-error */ t6=lf[185];{ C_word av2[6]; av2[0]=t6; av2[1]=t1; av2[2]=lf[190]; av2[3]=t2; av2[4]=lf[240]; av2[5]=t3; f_2552(6,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3098,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ /* posix-common.scm:494: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[241]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[241]+1); av2[1]=t6; av2[2]=C_fix(1); av2[3]=*((C_word*)lf[242]+1); av2[4]=lf[243]; av2[5]=lf[232]; tp(6,av2);}} else{ /* posix-common.scm:494: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[241]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[241]+1); av2[1]=t6; av2[2]=C_fix(2); av2[3]=*((C_word*)lf[242]+1); av2[4]=lf[243]; av2[5]=lf[232]; tp(6,av2);}}}} /* k3096 in check in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3098,2,av);} t2=C_set_file_ptr(t1,((C_word*)t0)[2]); t3=t1; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.file.posix#open-input-file* in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_3104,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3108,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* posix-common.scm:499: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[244]; tp(4,av2);}} /* k3106 in chicken.file.posix#open-input-file* in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_3108,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3116,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:500: mode */ f_3048(t2,C_SCHEME_TRUE,((C_word*)t0)[6],lf[244]);} /* k3114 in k3106 in chicken.file.posix#open-input-file* in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_3116,2,av);} a=C_alloc(2); t2=C_fdopen(&a,2,((C_word*)t0)[2],t1); /* posix-common.scm:500: check */ f_3085(((C_word*)t0)[4],lf[244],((C_word*)t0)[2],C_SCHEME_TRUE,t2);} /* chicken.file.posix#open-output-file* in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_3118,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3122,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* posix-common.scm:503: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[245]; tp(4,av2);}} /* k3120 in chicken.file.posix#open-output-file* in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_3122,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3130,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:504: mode */ f_3048(t2,C_SCHEME_FALSE,((C_word*)t0)[6],lf[245]);} /* k3128 in k3120 in chicken.file.posix#open-output-file* in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_3130,2,av);} a=C_alloc(2); t2=C_fdopen(&a,2,((C_word*)t0)[2],t1); /* posix-common.scm:504: check */ f_3085(((C_word*)t0)[4],lf[245],((C_word*)t0)[2],C_SCHEME_FALSE,t2);} /* chicken.file.posix#port->fileno in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3132,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[246]); t5=C_slot(t2,C_fix(7)); t6=C_eqp(lf[228],t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3148,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:514: ##sys#port-data */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[247]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[247]+1); av2[1]=t7; av2[2]=t2; tp(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3171,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:515: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[250]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[250]+1); av2[1]=t7; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}}} /* k3146 in chicken.file.posix#port->fileno in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3148,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_slot(t1,C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3155 in k3169 in chicken.file.posix#port->fileno in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3157,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3169 in chicken.file.posix#port->fileno in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_3171,2,av);} a=C_alloc(4); t2=C_i_zerop(t1); if(C_truep(C_i_not(t2))){ t3=C_port_fileno(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3157,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ /* posix-common.scm:518: posix-error */ t5=lf[185];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=lf[190]; av2[3]=lf[246]; av2[4]=lf[248]; av2[5]=((C_word*)t0)[2]; f_2552(6,av2);}} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ /* posix-common.scm:520: posix-error */ t3=lf[185];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[193]; av2[3]=lf[246]; av2[4]=lf[249]; av2[5]=((C_word*)t0)[2]; f_2552(6,av2);}}} /* chicken.file.posix#duplicate-fileno in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_3177,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3181,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:524: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[251]; tp(4,av2);}} /* k3179 in chicken.file.posix#duplicate-fileno in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3181,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3184,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ t3=t2; f_3184(t3,C_dup(((C_word*)t0)[3]));} else{ t3=C_i_car(((C_word*)t0)[4]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3202,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:528: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[251]; tp(4,av2);}}} /* k3182 in k3179 in chicken.file.posix#duplicate-fileno in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3184(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_3184,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3187,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posix-common.scm:531: posix-error */ t4=lf[185];{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=lf[190]; av2[3]=lf[251]; av2[4]=lf[252]; av2[5]=((C_word*)t0)[3]; f_2552(6,av2);}} else{ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3185 in k3182 in k3179 in chicken.file.posix#duplicate-fileno in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3187,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3200 in k3179 in chicken.file.posix#duplicate-fileno in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3202,2,av);} t2=((C_word*)t0)[2]; f_3184(t2,C_dup2(((C_word*)t0)[3],((C_word*)t0)[4]));} /* chicken.process-context.posix#current-process-id in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3204,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=stub826(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.process-context.posix#change-directory* in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3207,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3211,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:545: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[253]; tp(4,av2);}} /* k3209 in chicken.process-context.posix#change-directory* in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_3211,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3214,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_fchdir(((C_word*)t0)[3]); t4=C_eqp(C_fix(0),t3); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posix-common.scm:547: posix-error */ t5=lf[185];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=lf[190]; av2[3]=lf[253]; av2[4]=lf[254]; av2[5]=((C_word*)t0)[3]; f_2552(6,av2);}}} /* k3212 in k3209 in chicken.process-context.posix#change-directory* in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3214,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#change-directory-hook in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3223,3,av);} if(C_truep(C_fixnump(t2))){ t3=*((C_word*)lf[171]+1); t4=*((C_word*)lf[171]+1); /* posix-common.scm:552: g833 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[171]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[171]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} else{ /* posix-common.scm:552: g833 */ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_3237,2,av);} a=C_alloc(32); t2=C_mutate((C_word*)lf[15]+1 /* (set! chicken.file.posix#file-creation-mode ...) */,t1); t3=C_mutate(&lf[256] /* (set! chicken.posix#decode-seconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_decode_seconds,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate(&lf[257] /* (set! chicken.posix#check-time-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3240,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[83]+1 /* (set! chicken.time.posix#seconds->local-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3259,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[81]+1 /* (set! chicken.time.posix#seconds->utc-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3280,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[84]+1 /* (set! chicken.time.posix#seconds->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3312,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t8=C_fix((C_word)sizeof(struct tm)); t9=C_mutate((C_word*)lf[85]+1 /* (set! chicken.time.posix#local-time->seconds ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3350,a[2]=t8,a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp)); t10=C_fix((C_word)sizeof(struct tm)); t11=C_mutate((C_word*)lf[87]+1 /* (set! chicken.time.posix#time->string ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3395,a[2]=t10,a[3]=((C_word)li40),tmp=(C_word)a,a+=4,tmp)); t12=C_mutate((C_word*)lf[135]+1 /* (set! chicken.process.signal#set-signal-handler! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3457,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3472,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5510,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:635: chicken.base#getter-with-setter */ t15=*((C_word*)lf[395]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=t13; av2[2]=t14; av2[3]=*((C_word*)lf[135]+1); av2[4]=lf[396]; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} /* chicken.posix#check-time-vector in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3240(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_3240,3,t1,t2,t3);} t4=C_i_check_vector_2(t3,t2); t5=C_block_size(t3); if(C_truep(C_fixnum_lessp(t5,C_fix(10)))){ /* posix-common.scm:579: ##sys#error */ t6=*((C_word*)lf[97]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=lf[258]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* chicken.time.posix#seconds->local-time in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_3259,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3263,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:582: chicken.time#current-seconds */ t4=*((C_word*)lf[214]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_car(t2); f_3263(2,av2);}}} /* k3261 in chicken.time.posix#seconds->local-time in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3263,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3266,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:583: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[213]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[213]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[259]; tp(4,av2);}} /* k3264 in k3261 in chicken.time.posix#seconds->local-time in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3266,2,av);} /* posix-common.scm:584: decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(lf[256]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=lf[256]; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; tp(4,av2);}} /* chicken.time.posix#seconds->utc-time in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_3280,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3284,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:587: chicken.time#current-seconds */ t4=*((C_word*)lf[214]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_car(t2); f_3284(2,av2);}}} /* k3282 in chicken.time.posix#seconds->utc-time in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3284,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3287,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:588: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[213]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[213]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[260]; tp(4,av2);}} /* k3285 in k3282 in chicken.time.posix#seconds->utc-time in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3287,2,av);} /* posix-common.scm:589: decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(lf[256]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=lf[256]; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; tp(4,av2);}} /* chicken.time.posix#seconds->string in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_3312,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3316,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:593: chicken.time#current-seconds */ t4=*((C_word*)lf[214]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_car(t2); f_3316(2,av2);}}} /* k3314 in chicken.time.posix#seconds->string in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3316,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3319,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:594: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[213]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[213]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[262]; tp(4,av2);}} /* k3317 in k3314 in chicken.time.posix#seconds->string in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3319,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3322,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_bytevector(&a,1,C_fix(3)); t4=C_fix((C_word)sizeof(int) * CHAR_BIT); t5=C_i_foreign_ranged_integer_argumentp(((C_word*)t0)[3],t4); t6=stub882(t3,t5); /* posix-common.scm:592: ##sys#peek-c-string */ t7=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k3320 in k3317 in k3314 in chicken.time.posix#seconds->string in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3322,2,av);} if(C_truep(t1)){ t2=C_block_size(t1); t3=C_fixnum_difference(t2,C_fix(1)); /* posix-common.scm:597: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[261]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[261]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); av2[4]=t3; tp(5,av2);}} else{ /* posix-common.scm:598: ##sys#error */ t2=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[262]; av2[3]=lf[263]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* chicken.time.posix#local-time->seconds in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3350,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3354,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:603: check-time-vector */ f_3240(t3,lf[264],t2);} /* k3352 in chicken.time.posix#local-time->seconds in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3354,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:604: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[266]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[266]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* k3356 in k3352 in chicken.time.posix#local-time->seconds in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_3358,2,av);} a=C_alloc(7); t2=C_a_mktime(&a,2,((C_word*)t0)[2],t1); if(C_truep(C_i_nequalp(C_fix(-1),t2))){ /* posix-common.scm:606: ##sys#error */ t3=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[264]; av2[3]=lf[265]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.time.posix#time->string in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_3395,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3402,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:614: check-time-vector */ f_3240(t7,lf[267],t2);} /* k3400 in chicken.time.posix#time->string in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3402,2,av);} a=C_alloc(9); if(C_truep(((C_word*)t0)[2])){ t2=C_i_check_string_2(((C_word*)t0)[2],lf[267]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3411,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3421,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:618: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[192]+1); av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=lf[267]; tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3428,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3449,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:620: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[266]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[266]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_make_character(0); tp(4,av2);}}} /* k3409 in k3400 in chicken.time.posix#time->string in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3411,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* posix-common.scm:619: ##sys#error */ t2=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[267]; av2[3]=lf[268]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k3419 in k3400 in chicken.time.posix#time->string in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3421,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3425,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:618: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[266]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[266]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* k3423 in k3419 in k3400 in chicken.time.posix#time->string in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3425,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_a_i_bytevector(&a,1,C_fix(3)); if(C_truep(t1)){ t4=C_i_foreign_block_argumentp(t1); t5=stub919(t3,t2,((C_word*)t0)[3],t4); /* posix-common.scm:611: ##sys#peek-c-string */ t6=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=t5; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=stub919(t3,t2,((C_word*)t0)[3],C_SCHEME_FALSE); /* posix-common.scm:611: ##sys#peek-c-string */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=t4; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3426 in k3400 in chicken.time.posix#time->string in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3428,2,av);} if(C_truep(t1)){ t2=C_block_size(t1); t3=C_fixnum_difference(t2,C_fix(1)); /* posix-common.scm:622: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[261]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[261]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); av2[4]=t3; tp(5,av2);}} else{ /* posix-common.scm:623: ##sys#error */ t2=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[267]; av2[3]=lf[269]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k3447 in k3400 in chicken.time.posix#time->string in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3449,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_a_i_bytevector(&a,1,C_fix(3)); if(C_truep(t1)){ t4=C_i_foreign_block_argumentp(t1); t5=stub909(t3,t2,t4); /* posix-common.scm:610: ##sys#peek-c-string */ t6=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=t5; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=stub909(t3,t2,C_SCHEME_FALSE); /* posix-common.scm:610: ##sys#peek-c-string */ t5=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* chicken.process.signal#set-signal-handler! in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3457,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3461,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:630: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[203]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[271]; tp(4,av2);}} /* k3459 in chicken.process.signal#set-signal-handler! in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3461,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3]; t3=C_establish_signal_handler(((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_vector_set(*((C_word*)lf[270]+1),((C_word*)t0)[3],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_establish_signal_handler(((C_word*)t0)[3],C_SCHEME_FALSE); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_vector_set(*((C_word*)lf[270]+1),((C_word*)t0)[3],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word t87; C_word t88; C_word t89; C_word t90; C_word t91; C_word t92; C_word t93; C_word t94; C_word t95; C_word t96; C_word t97; C_word t98; C_word t99; C_word t100; C_word t101; C_word t102; C_word t103; C_word t104; C_word t105; C_word t106; C_word t107; C_word t108; C_word t109; C_word t110; C_word t111; C_word t112; C_word t113; C_word t114; C_word t115; C_word t116; C_word t117; C_word t118; C_word t119; C_word t120; C_word t121; C_word t122; C_word t123; C_word t124; C_word t125; C_word t126; C_word t127; C_word t128; C_word t129; C_word t130; C_word t131; C_word t132; C_word t133; C_word t134; C_word t135; C_word t136; C_word t137; C_word t138; C_word t139; C_word t140; C_word t141; C_word t142; C_word t143; C_word t144; C_word t145; C_word t146; C_word t147; C_word t148; C_word t149; C_word t150; C_word t151; C_word t152; C_word t153; C_word t154; C_word t155; C_word t156; C_word t157; C_word t158; C_word t159; C_word t160; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(231,c,8)))){ C_save_and_reclaim((void *)f_3472,2,av);} a=C_alloc(231); t2=C_mutate((C_word*)lf[137]+1 /* (set! chicken.process.signal#signal-handler ...) */,t1); t3=C_mutate((C_word*)lf[126]+1 /* (set! chicken.process#process-sleep ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3474,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[114]+1 /* (set! chicken.process#process-wait ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3480,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate(&lf[275] /* (set! chicken.posix#list->c-string-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3551,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate(&lf[277] /* (set! chicken.posix#free-c-string-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3668,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate(&lf[286] /* (set! chicken.posix#check-environment-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3702,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp)); t8=*((C_word*)lf[287]+1); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3749,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp); t10=C_mutate(&lf[288] /* (set! chicken.posix#call-with-exec-args ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3751,a[2]=t9,a[3]=t8,a[4]=((C_word)li69),tmp=(C_word)a,a+=5,tmp)); t11=C_set_block_item(lf[127] /* chicken.process#pipe/buf */,0,C_fix((C_word)PIPE_BUF)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3908,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp); t13=C_mutate((C_word*)lf[120]+1 /* (set! chicken.process#open-input-pipe ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3927,a[2]=t12,a[3]=((C_word)li71),tmp=(C_word)a,a+=4,tmp)); t14=C_mutate((C_word*)lf[121]+1 /* (set! chicken.process#open-output-pipe ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3967,a[2]=t12,a[3]=((C_word)li72),tmp=(C_word)a,a+=4,tmp)); t15=C_mutate((C_word*)lf[117]+1 /* (set! chicken.process#close-input-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4007,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[118]+1 /* (set! chicken.process#close-output-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4022,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[122]+1 /* (set! chicken.process#with-input-from-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4037,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[116]+1 /* (set! chicken.process#call-with-output-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4071,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[115]+1 /* (set! chicken.process#call-with-input-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4095,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[123]+1 /* (set! chicken.process#with-output-to-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4119,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp)); t21=C_set_block_item(lf[50] /* chicken.file.posix#open/noinherit */,0,C_fix((C_word)O_NOINHERIT)); t22=C_fix((C_word)S_IRUSR | S_IWUSR | S_IXUSR); t23=C_fixnum_or(C_fix((C_word)S_IRGRP),C_fix((C_word)S_IROTH)); t24=C_u_fixnum_or(t22,t23); t25=C_mutate((C_word*)lf[21]+1 /* (set! chicken.file.posix#file-open ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4159,a[2]=t24,a[3]=((C_word)li91),tmp=(C_word)a,a+=4,tmp)); t26=C_mutate((C_word*)lf[13]+1 /* (set! chicken.file.posix#file-close ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4194,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate((C_word*)lf[25]+1 /* (set! chicken.file.posix#file-read ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4225,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate((C_word*)lf[30]+1 /* (set! chicken.file.posix#file-write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4268,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate((C_word*)lf[20]+1 /* (set! chicken.file.posix#file-mkstemp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4308,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate((C_word*)lf[119]+1 /* (set! chicken.process#create-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4467,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp)); t31=C_set_block_item(lf[159] /* chicken.process.signal#signal/term */,0,C_fix((C_word)SIGTERM)); t32=C_set_block_item(lf[151] /* chicken.process.signal#signal/int */,0,C_fix((C_word)SIGINT)); t33=C_set_block_item(lf[148] /* chicken.process.signal#signal/fpe */,0,C_fix((C_word)SIGFPE)); t34=C_set_block_item(lf[150] /* chicken.process.signal#signal/ill */,0,C_fix((C_word)SIGILL)); t35=C_set_block_item(lf[157] /* chicken.process.signal#signal/segv */,0,C_fix((C_word)SIGSEGV)); t36=C_set_block_item(lf[142] /* chicken.process.signal#signal/abrt */,0,C_fix((C_word)SIGABRT)); t37=C_set_block_item(lf[144] /* chicken.process.signal#signal/break */,0,C_fix((C_word)SIGBREAK)); t38=C_set_block_item(lf[143] /* chicken.process.signal#signal/alrm */,0,C_fix(0)); t39=C_set_block_item(lf[145] /* chicken.process.signal#signal/bus */,0,C_fix(0)); t40=C_set_block_item(lf[146] /* chicken.process.signal#signal/chld */,0,C_fix(0)); t41=C_set_block_item(lf[147] /* chicken.process.signal#signal/cont */,0,C_fix(0)); t42=C_set_block_item(lf[149] /* chicken.process.signal#signal/hup */,0,C_fix(0)); t43=C_set_block_item(lf[152] /* chicken.process.signal#signal/io */,0,C_fix(0)); t44=C_set_block_item(lf[153] /* chicken.process.signal#signal/kill */,0,C_fix(0)); t45=C_set_block_item(lf[154] /* chicken.process.signal#signal/pipe */,0,C_fix(0)); t46=C_set_block_item(lf[155] /* chicken.process.signal#signal/prof */,0,C_fix(0)); t47=C_set_block_item(lf[156] /* chicken.process.signal#signal/quit */,0,C_fix(0)); t48=C_set_block_item(lf[158] /* chicken.process.signal#signal/stop */,0,C_fix(0)); t49=C_set_block_item(lf[160] /* chicken.process.signal#signal/trap */,0,C_fix(0)); t50=C_set_block_item(lf[161] /* chicken.process.signal#signal/tstp */,0,C_fix(0)); t51=C_set_block_item(lf[162] /* chicken.process.signal#signal/urg */,0,C_fix(0)); t52=C_set_block_item(lf[163] /* chicken.process.signal#signal/usr1 */,0,C_fix(0)); t53=C_set_block_item(lf[164] /* chicken.process.signal#signal/usr2 */,0,C_fix(0)); t54=C_set_block_item(lf[165] /* chicken.process.signal#signal/vtalrm */,0,C_fix(0)); t55=C_set_block_item(lf[166] /* chicken.process.signal#signal/winch */,0,C_fix(0)); t56=C_set_block_item(lf[167] /* chicken.process.signal#signal/xcpu */,0,C_fix(0)); t57=C_set_block_item(lf[168] /* chicken.process.signal#signal/xfsz */,0,C_fix(0)); t58=C_a_i_list7(&a,7,*((C_word*)lf[159]+1),*((C_word*)lf[151]+1),*((C_word*)lf[148]+1),*((C_word*)lf[150]+1),*((C_word*)lf[157]+1),*((C_word*)lf[142]+1),*((C_word*)lf[144]+1)); t59=C_mutate((C_word*)lf[169]+1 /* (set! chicken.process.signal#signals-list ...) */,t58); t60=C_mutate(&lf[329] /* (set! chicken.posix#duplicate-fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4529,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate((C_word*)lf[88]+1 /* (set! chicken.time.posix#local-timezone-abbreviation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4559,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp)); t62=C_set_block_item(lf[128] /* chicken.process#spawn/overlay */,0,C_fix((C_word)P_OVERLAY)); t63=C_set_block_item(lf[129] /* chicken.process#spawn/wait */,0,C_fix((C_word)P_WAIT)); t64=C_set_block_item(lf[130] /* chicken.process#spawn/nowait */,0,C_fix((C_word)P_NOWAIT)); t65=C_set_block_item(lf[131] /* chicken.process#spawn/nowaito */,0,C_fix((C_word)P_NOWAITO)); t66=C_set_block_item(lf[132] /* chicken.process#spawn/detach */,0,C_fix((C_word)P_DETACH)); t67=C_mutate(&lf[331] /* (set! chicken.posix#quote-arg-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4605,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp)); t68=C_mutate((C_word*)lf[109]+1 /* (set! chicken.process#process-execute ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4617,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp)); t69=C_mutate((C_word*)lf[113]+1 /* (set! chicken.process#process-spawn ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4697,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); t70=C_mutate(&lf[338] /* (set! chicken.posix#shell-command ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4780,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp)); t71=C_mutate((C_word*)lf[111]+1 /* (set! chicken.process#process-run ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4807,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp)); t72=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5030,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp); t73=C_mutate((C_word*)lf[124]+1 /* (set! chicken.process#process ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5114,a[2]=t72,a[3]=((C_word)li122),tmp=(C_word)a,a+=4,tmp)); t74=C_mutate((C_word*)lf[125]+1 /* (set! chicken.process#process* ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5174,a[2]=t72,a[3]=((C_word)li123),tmp=(C_word)a,a+=4,tmp)); t75=C_mutate((C_word*)lf[179]+1 /* (set! chicken.process-context.posix#current-user-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5246,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp)); t76=C_mutate((C_word*)lf[4]+1 /* (set! chicken.file.posix#create-fifo ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5267,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp)); t77=C_mutate((C_word*)lf[181]+1 /* (set! chicken.process-context.posix#create-session ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5273,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp)); t78=C_mutate((C_word*)lf[5]+1 /* (set! chicken.file.posix#create-symbolic-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5279,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp)); t79=C_mutate((C_word*)lf[173]+1 /* (set! chicken.process-context.posix#current-effective-group-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5285,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp)); t80=C_mutate((C_word*)lf[174]+1 /* (set! chicken.process-context.posix#current-effective-user-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5291,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp)); t81=C_mutate((C_word*)lf[180]+1 /* (set! chicken.process-context.posix#current-effective-user-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5297,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp)); t82=C_mutate((C_word*)lf[175]+1 /* (set! chicken.process-context.posix#current-group-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5303,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp)); t83=C_mutate((C_word*)lf[176]+1 /* (set! chicken.process-context.posix#current-user-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5309,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp)); t84=C_mutate((C_word*)lf[14]+1 /* (set! chicken.file.posix#file-control ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5315,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp)); t85=C_mutate((C_word*)lf[17]+1 /* (set! chicken.file.posix#file-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5321,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp)); t86=C_mutate((C_word*)lf[18]+1 /* (set! chicken.file.posix#file-lock ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5327,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp)); t87=C_mutate((C_word*)lf[19]+1 /* (set! chicken.file.posix#file-lock/blocking ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5333,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp)); t88=C_mutate((C_word*)lf[26]+1 /* (set! chicken.file.posix#file-select ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5339,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp)); t89=C_mutate((C_word*)lf[27]+1 /* (set! chicken.file.posix#file-test-lock ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5345,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp)); t90=C_mutate((C_word*)lf[28]+1 /* (set! chicken.file.posix#file-truncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5351,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp)); t91=C_mutate((C_word*)lf[29]+1 /* (set! chicken.file.posix#file-unlock ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5357,a[2]=((C_word)li140),tmp=(C_word)a,a+=3,tmp)); t92=C_mutate((C_word*)lf[178]+1 /* (set! chicken.process-context.posix#parent-process-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5363,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp)); t93=C_mutate((C_word*)lf[110]+1 /* (set! chicken.process#process-fork ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5369,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp)); t94=C_mutate((C_word*)lf[182]+1 /* (set! chicken.process-context.posix#process-group-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5375,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp)); t95=C_mutate((C_word*)lf[112]+1 /* (set! chicken.process#process-signal ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5381,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp)); t96=C_mutate((C_word*)lf[6]+1 /* (set! chicken.file.posix#read-symbolic-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5387,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp)); t97=C_mutate((C_word*)lf[134]+1 /* (set! chicken.process.signal#set-alarm! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5393,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp)); t98=C_mutate((C_word*)lf[172]+1 /* (set! chicken.process-context.posix#set-root-directory! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5399,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp)); t99=C_mutate((C_word*)lf[136]+1 /* (set! chicken.process.signal#set-signal-mask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5405,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp)); t100=C_mutate((C_word*)lf[138]+1 /* (set! chicken.process.signal#signal-mask ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5411,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp)); t101=C_mutate((C_word*)lf[139]+1 /* (set! chicken.process.signal#signal-mask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5417,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp)); t102=C_mutate((C_word*)lf[140]+1 /* (set! chicken.process.signal#signal-masked? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5423,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp)); t103=C_mutate((C_word*)lf[141]+1 /* (set! chicken.process.signal#signal-unmask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5429,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp)); t104=C_mutate((C_word*)lf[183]+1 /* (set! chicken.process-context.posix#user-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5435,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp)); t105=C_mutate((C_word*)lf[82]+1 /* (set! chicken.time.posix#utc-time->seconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5441,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp)); t106=C_mutate((C_word*)lf[86]+1 /* (set! chicken.time.posix#string->time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5447,a[2]=((C_word)li155),tmp=(C_word)a,a+=3,tmp)); t107=C_set_block_item(lf[8] /* chicken.file.posix#fcntl/dupfd */,0,C_fix(0)); t108=C_set_block_item(lf[9] /* chicken.file.posix#fcntl/getfd */,0,C_fix(0)); t109=C_set_block_item(lf[11] /* chicken.file.posix#fcntl/setfd */,0,C_fix(0)); t110=C_set_block_item(lf[10] /* chicken.file.posix#fcntl/getfl */,0,C_fix(0)); t111=C_set_block_item(lf[12] /* chicken.file.posix#fcntl/setfl */,0,C_fix(0)); t112=C_set_block_item(lf[49] /* chicken.file.posix#open/noctty */,0,C_fix(0)); t113=C_set_block_item(lf[51] /* chicken.file.posix#open/nonblock */,0,C_fix(0)); t114=C_set_block_item(lf[48] /* chicken.file.posix#open/fsync */,0,C_fix(0)); t115=C_set_block_item(lf[55] /* chicken.file.posix#open/sync */,0,C_fix(0)); t116=C_set_block_item(lf[66] /* chicken.file.posix#perm/isgid */,0,C_fix(0)); t117=C_set_block_item(lf[67] /* chicken.file.posix#perm/isuid */,0,C_fix(0)); t118=C_set_block_item(lf[68] /* chicken.file.posix#perm/isvtx */,0,C_fix(0)); t119=C_a_i_provide(&a,1,lf[352]); t120=C_mutate((C_word*)lf[353]+1 /* (set! chicken.errno#errno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5465,a[2]=((C_word)li156),tmp=(C_word)a,a+=3,tmp)); t121=C_set_block_item(lf[355] /* chicken.errno#errno/2big */,0,C_fix((C_word)E2BIG)); t122=C_set_block_item(lf[356] /* chicken.errno#errno/acces */,0,C_fix((C_word)EACCES)); t123=C_set_block_item(lf[357] /* chicken.errno#errno/again */,0,C_fix((C_word)EAGAIN)); t124=C_set_block_item(lf[358] /* chicken.errno#errno/badf */,0,C_fix((C_word)EBADF)); t125=C_set_block_item(lf[359] /* chicken.errno#errno/busy */,0,C_fix((C_word)EBUSY)); t126=C_set_block_item(lf[360] /* chicken.errno#errno/child */,0,C_fix((C_word)ECHILD)); t127=C_set_block_item(lf[361] /* chicken.errno#errno/deadlk */,0,C_fix((C_word)EDEADLK)); t128=C_set_block_item(lf[362] /* chicken.errno#errno/dom */,0,C_fix((C_word)EDOM)); t129=C_set_block_item(lf[363] /* chicken.errno#errno/exist */,0,C_fix((C_word)EEXIST)); t130=C_set_block_item(lf[364] /* chicken.errno#errno/fault */,0,C_fix((C_word)EFAULT)); t131=C_set_block_item(lf[365] /* chicken.errno#errno/fbig */,0,C_fix((C_word)EFBIG)); t132=C_set_block_item(lf[366] /* chicken.errno#errno/ilseq */,0,C_fix((C_word)EILSEQ)); t133=C_set_block_item(lf[367] /* chicken.errno#errno/intr */,0,C_fix((C_word)EINTR)); t134=C_set_block_item(lf[368] /* chicken.errno#errno/inval */,0,C_fix((C_word)EINVAL)); t135=C_set_block_item(lf[369] /* chicken.errno#errno/io */,0,C_fix((C_word)EIO)); t136=C_set_block_item(lf[370] /* chicken.errno#errno/isdir */,0,C_fix((C_word)EISDIR)); t137=C_set_block_item(lf[371] /* chicken.errno#errno/mfile */,0,C_fix((C_word)EMFILE)); t138=C_set_block_item(lf[372] /* chicken.errno#errno/mlink */,0,C_fix((C_word)EMLINK)); t139=C_set_block_item(lf[373] /* chicken.errno#errno/nametoolong */,0,C_fix((C_word)ENAMETOOLONG)); t140=C_set_block_item(lf[374] /* chicken.errno#errno/nfile */,0,C_fix((C_word)ENFILE)); t141=C_set_block_item(lf[375] /* chicken.errno#errno/nodev */,0,C_fix((C_word)ENODEV)); t142=C_set_block_item(lf[376] /* chicken.errno#errno/noent */,0,C_fix((C_word)ENOENT)); t143=C_set_block_item(lf[377] /* chicken.errno#errno/noexec */,0,C_fix((C_word)ENOEXEC)); t144=C_set_block_item(lf[378] /* chicken.errno#errno/nolck */,0,C_fix((C_word)ENOLCK)); t145=C_set_block_item(lf[379] /* chicken.errno#errno/nomem */,0,C_fix((C_word)ENOMEM)); t146=C_set_block_item(lf[380] /* chicken.errno#errno/nospc */,0,C_fix((C_word)ENOSPC)); t147=C_set_block_item(lf[381] /* chicken.errno#errno/nosys */,0,C_fix((C_word)ENOSYS)); t148=C_set_block_item(lf[382] /* chicken.errno#errno/notdir */,0,C_fix((C_word)ENOTDIR)); t149=C_set_block_item(lf[383] /* chicken.errno#errno/notempty */,0,C_fix((C_word)ENOTEMPTY)); t150=C_set_block_item(lf[384] /* chicken.errno#errno/notty */,0,C_fix((C_word)ENOTTY)); t151=C_set_block_item(lf[385] /* chicken.errno#errno/nxio */,0,C_fix((C_word)ENXIO)); t152=C_set_block_item(lf[386] /* chicken.errno#errno/perm */,0,C_fix((C_word)EPERM)); t153=C_set_block_item(lf[387] /* chicken.errno#errno/pipe */,0,C_fix((C_word)EPIPE)); t154=C_set_block_item(lf[388] /* chicken.errno#errno/range */,0,C_fix((C_word)ERANGE)); t155=C_set_block_item(lf[389] /* chicken.errno#errno/rofs */,0,C_fix((C_word)EROFS)); t156=C_set_block_item(lf[390] /* chicken.errno#errno/spipe */,0,C_fix((C_word)ESPIPE)); t157=C_set_block_item(lf[391] /* chicken.errno#errno/srch */,0,C_fix((C_word)ESRCH)); t158=C_set_block_item(lf[392] /* chicken.errno#errno/wouldblock */,0,C_fix((C_word)EWOULDBLOCK)); t159=C_set_block_item(lf[393] /* chicken.errno#errno/xdev */,0,C_fix((C_word)EXDEV)); t160=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t160; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t160+1)))(2,av2);}} /* chicken.process#process-sleep in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3474,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3478,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:647: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[272]; tp(4,av2);}} /* k3476 in chicken.process#process-sleep in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3478,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_process_sleep(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.process#process-wait in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_3480,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=C_i_nullp(t2); t6=(C_truep(t5)?C_SCHEME_END_OF_LIST:C_i_cdr(t2)); t7=C_i_nullp(t6); t8=(C_truep(t7)?C_SCHEME_FALSE:C_i_car(t6)); t9=t8; t10=C_i_nullp(t6); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t6)); t12=(C_truep(t4)?t4:C_fix(-1)); t13=t12; t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3499,a[2]=t13,a[3]=t9,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:654: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t14; av2[2]=t13; av2[3]=lf[273]; tp(4,av2);}} /* k3497 in chicken.process#process-wait in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_3499,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3504,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3510,a[2]=((C_word*)t0)[2],a[3]=((C_word)li44),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:655: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a3503 in k3497 in chicken.process#process-wait in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3504,2,av);} if(C_truep(C_process_wait(((C_word*)t0)[2],((C_word*)t0)[3]))){ /* posixwin.scm:858: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_TRUE; av2[4]=C_fix((C_word)C_exstatus); C_values(5,av2);}} else{ /* posixwin.scm:859: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=C_fix(-1); av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}}} /* a3509 in k3497 in chicken.process#process-wait in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3510,5,av);} t5=C_eqp(t2,C_fix(-1)); if(C_truep(t5)){ /* posix-common.scm:657: posix-error */ t6=lf[185];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=lf[93]; av2[3]=lf[273]; av2[4]=lf[274]; av2[5]=((C_word*)t0)[2]; f_2552(6,av2);}} else{ /* posix-common.scm:658: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; C_values(5,av2);}}} /* chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3551(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_3551,4,t1,t2,t3,t4);} a=C_alloc(12); t5=C_i_check_list_2(t2,t4); t6=t2; t7=C_u_i_length(t6); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3559,a[2]=t1,a[3]=t7,a[4]=t4,a[5]=t3,a[6]=t2,tmp=(C_word)a,a+=7,tmp); t9=C_a_i_fixnum_plus(&a,2,t7,C_fix(1)); /* posix-common.scm:674: chicken.memory#make-pointer-vector */ t10=*((C_word*)lf[282]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t8; av2[2]=t9; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_3559,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3562,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3567,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li53),tmp=(C_word)a,a+=8,tmp); /* posix-common.scm:676: scheme#call-with-current-continuation */ t5=*((C_word*)lf[281]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3560 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3562,2,av);} /* posix-common.scm:672: g988 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_3567,3,av);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3573,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li47),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3588,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word)li52),tmp=(C_word)a,a+=9,tmp); /* posix-common.scm:676: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[280]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a3572 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3573,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3579,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li46),tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:676: k985 */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3578 in a3572 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3579,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3583,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:678: free-c-string-buffer */ f_3668(t2,((C_word*)t0)[3]);} /* k3581 in a3578 in a3572 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3583,2,av);} /* posix-common.scm:678: chicken.condition#signal */ t2=*((C_word*)lf[276]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a3587 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_3588,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3590,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li49),tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3647,a[2]=((C_word*)t0)[7],a[3]=((C_word)li51),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3664,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp12177 */ t5=t2; f_3590(t5,t4);} /* tmp12177 in a3587 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3590(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_3590,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3594,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3596,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word)li48),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_3596(t6,t2,((C_word*)t0)[6],C_fix(0));} /* k3592 in tmp12177 in a3587 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3594,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* doloop993 in tmp12177 in a3587 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3596(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_3596,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_nullp(t2); t5=(C_truep(t4)?t4:C_eqp(t3,((C_word*)t0)[2])); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_i_car(t2); t7=C_i_check_string_2(t6,((C_word*)t0)[3]); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3612,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3637,a[2]=t8,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t10=t2; t11=C_u_i_car(t10); /* posix-common.scm:687: convert */ t12=((C_word*)t0)[6];{ C_word av2[3]; av2[0]=t12; av2[1]=t9; av2[2]=t11; ((C_proc)C_fast_retrieve_proc(t12))(3,av2);}}} /* k3610 in doloop993 in tmp12177 in a3587 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_3612,2,av);} a=C_alloc(13); t2=C_a_i_bytevector(&a,1,C_fix(3)); t3=stub976(t2,t1); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3618,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t4,tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_3618(2,av2);}} else{ /* posix-common.scm:689: chicken.base#error */ t6=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=lf[279]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k3616 in k3610 in doloop993 in tmp12177 in a3587 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3618,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3621,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:690: chicken.memory#pointer-vector-set! */ t3=*((C_word*)lf[278]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3619 in k3616 in k3610 in doloop993 in tmp12177 in a3587 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 in ... */ static void C_ccall f_3621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3621,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t5=((C_word*)((C_word*)t0)[4])[1]; f_3596(t5,((C_word*)t0)[5],t3,t4);} /* k3635 in doloop993 in tmp12177 in a3587 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3637,2,av);} /* posix-common.scm:687: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[192]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* tmp22178 in a3587 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3647(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3647,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3653,a[2]=t2,a[3]=((C_word)li50),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:676: k985 */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3652 in tmp22178 in a3587 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3653,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k3662 in a3587 in a3566 in k3557 in chicken.posix#list->c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3664,2,av);} a=C_alloc(3); /* tmp22178 */ t2=((C_word*)t0)[2]; f_3647(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* chicken.posix#free-c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3668(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3668,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3672,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:695: chicken.memory#pointer-vector-length */ t4=*((C_word*)lf[285]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3670 in chicken.posix#free-c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3672,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3677,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li55),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_3677(t6,((C_word*)t0)[3],C_fix(0));} /* doloop1012 in k3670 in chicken.posix#free-c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3677(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3677,3,t0,t1,t2);} a=C_alloc(5); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3687,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:698: chicken.memory#pointer-vector-ref */ t5=*((C_word*)lf[284]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3685 in doloop1012 in k3670 in chicken.posix#free-c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3687,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ /* posix-common.scm:699: chicken.memory#free */ t3=*((C_word*)lf[283]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t4=((C_word*)((C_word*)t0)[3])[1]; f_3677(t4,((C_word*)t0)[4],t3);}} /* k3688 in k3685 in doloop1012 in k3670 in chicken.posix#free-c-string-buffer in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3690,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3677(t3,((C_word*)t0)[4],t2);} /* chicken.posix#check-environment-list in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3702(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_3702,3,t1,t2,t3);} a=C_alloc(8); t4=C_i_check_list_2(t2,t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3707,a[2]=t3,a[3]=((C_word)li57),tmp=(C_word)a,a+=4,tmp); t6=t2; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3726,a[2]=t5,a[3]=((C_word)li58),tmp=(C_word)a,a+=4,tmp); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=( f_3726(t7,t6) ); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* g1025 in chicken.posix#check-environment-list in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static C_word C_fcall f_3707(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check;{} t2=C_i_check_pair_2(t1,((C_word*)t0)[2]); t3=t1; t4=C_u_i_car(t3); t5=C_i_check_string_2(t4,((C_word*)t0)[2]); t6=t1; t7=C_u_i_cdr(t6); return(C_i_check_string_2(t7,((C_word*)t0)[2]));} /* for-each-loop1024 in chicken.posix#check-environment-list in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static C_word C_fcall f_3726(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=( /* posix-common.scm:704: g1025 */ f_3707(((C_word*)t0)[2],t2) ); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* nop in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3749,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3751(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_3751,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(10); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3755,a[2]=t5,a[3]=t1,a[4]=t7,a[5]=t3,a[6]=t2,a[7]=t6,a[8]=((C_word*)t0)[2],a[9]=t4,tmp=(C_word)a,a+=10,tmp); /* posix-common.scm:715: pathname-strip-directory */ t9=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_3755,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3761,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* posix-common.scm:717: list->c-string-buffer */ f_3551(t3,t2,((C_word*)t0)[9],((C_word*)t0)[6]);} /* k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_3761,2,av);} a=C_alloc(15); t2=t1; t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3764,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3769,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li68),tmp=(C_word)a,a+=10,tmp); /* posix-common.scm:720: scheme#call-with-current-continuation */ t7=*((C_word*)lf[281]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k3762 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3764,2,av);} /* posix-common.scm:715: g1060 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_3769,3,av);} a=C_alloc(17); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3775,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li62),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3796,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word)li67),tmp=(C_word)a,a+=11,tmp); /* posix-common.scm:720: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[280]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a3774 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3775,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3781,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li61),tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:720: k1057 */ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3780 in a3774 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3781,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3785,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:722: free-c-string-buffer */ f_3668(t2,((C_word*)t0)[4]);} /* k3783 in a3780 in a3774 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3785,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3788,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ /* posix-common.scm:723: free-c-string-buffer */ f_3668(t2,((C_word*)((C_word*)t0)[4])[1]);} else{ /* posix-common.scm:724: chicken.condition#signal */ t3=*((C_word*)lf[276]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k3786 in k3783 in a3780 in a3774 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3788,2,av);} /* posix-common.scm:724: chicken.condition#signal */ t2=*((C_word*)lf[276]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a3795 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_3796,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3802,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word)li64),tmp=(C_word)a,a+=10,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3877,a[2]=((C_word*)t0)[9],a[3]=((C_word)li66),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:720: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a3801 in a3795 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_3802,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3806,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[7])){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3816,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* posix-common.scm:728: check-environment-list */ f_3702(t3,((C_word*)t0)[7],((C_word*)t0)[6]);} else{ t3=t2; f_3806(t3,C_SCHEME_UNDEFINED);}} /* k3804 in a3801 in a3795 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3806(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3806,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:734: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[192]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; tp(4,av2);}} /* k3811 in k3804 in a3801 in a3795 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3813,2,av);} /* posix-common.scm:734: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* k3814 in a3801 in a3795 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_3816,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3820,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[4]; t8=C_i_check_list_2(t7,lf[289]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3841,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3843,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li63),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_3843(t13,t9,t7);} /* k3818 in k3814 in a3801 in a3795 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3820,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_3806(t3,t2);} /* k3839 in k3814 in a3801 in a3795 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3841,2,av);} /* posix-common.scm:730: list->c-string-buffer */ f_3551(((C_word*)t0)[2],t1,((C_word*)t0)[3],((C_word*)t0)[4]);} /* map-loop1068 in k3814 in a3801 in a3795 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3843(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_3843,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3868,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_car(t4); t6=C_u_i_cdr(t4); /* posix-common.scm:731: scheme#string-append */ t7=*((C_word*)lf[106]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t5; av2[3]=lf[290]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3866 in map-loop1068 in k3814 in a3801 in a3795 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 in ... */ static void C_ccall f_3868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3868,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3843(t6,((C_word*)t0)[5],t5);} /* a3876 in a3795 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_3877,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3883,a[2]=t2,a[3]=((C_word)li65),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:720: k1057 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3882 in a3876 in a3795 in a3768 in k3759 in k3753 in chicken.posix#call-with-exec-args in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3883,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* check in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_3908(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_3908,5,t1,t2,t3,t4,t5);} a=C_alloc(4); if(C_truep(C_null_pointerp(t5))){ /* posix-common.scm:746: posix-error */ t6=lf[185];{ C_word av2[6]; av2[0]=t6; av2[1]=t1; av2[2]=lf[190]; av2[3]=t2; av2[4]=lf[291]; av2[5]=t3; f_2552(6,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3921,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ /* posix-common.scm:747: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[241]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[241]+1); av2[1]=t6; av2[2]=C_fix(1); av2[3]=*((C_word*)lf[242]+1); av2[4]=lf[292]; av2[5]=lf[232]; tp(6,av2);}} else{ /* posix-common.scm:747: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[241]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[241]+1); av2[1]=t6; av2[2]=C_fix(2); av2[3]=*((C_word*)lf[242]+1); av2[4]=lf[292]; av2[5]=lf[232]; tp(6,av2);}}}} /* k3919 in check in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3921,2,av);} t2=C_set_file_ptr(t1,((C_word*)t0)[2]); t3=t1; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.process#open-input-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,3)))){ C_save_and_reclaim((void*)f_3927,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t4=C_i_check_string_2(t2,lf[293]); t5=C_i_pairp(t3); t6=(C_truep(t5)?C_slot(t3,C_fix(0)):lf[294]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3941,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=C_eqp(t6,lf[294]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3948,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:758: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[192]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[293]; tp(4,av2);}} else{ t9=C_eqp(t6,lf[295]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3958,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:759: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[192]+1); av2[1]=t10; av2[2]=t2; av2[3]=lf[293]; tp(4,av2);}} else{ /* posix-common.scm:743: ##sys#error */ t10=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=lf[296]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* k3939 in chicken.process#open-input-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3941,2,av);} /* posix-common.scm:754: check */ f_3908(((C_word*)t0)[3],lf[293],((C_word*)t0)[4],C_SCHEME_TRUE,t1);} /* k3946 in chicken.process#open-input-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_3948,2,av);} a=C_alloc(2); t2=open_text_input_pipe(&a,1,t1); /* posix-common.scm:754: check */ f_3908(((C_word*)t0)[3],lf[293],((C_word*)t0)[4],C_SCHEME_TRUE,t2);} /* k3956 in chicken.process#open-input-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_3958,2,av);} a=C_alloc(2); t2=open_binary_input_pipe(&a,1,t1); /* posix-common.scm:754: check */ f_3908(((C_word*)t0)[3],lf[293],((C_word*)t0)[4],C_SCHEME_TRUE,t2);} /* chicken.process#open-output-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,3)))){ C_save_and_reclaim((void*)f_3967,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t4=C_i_check_string_2(t2,lf[297]); t5=C_i_pairp(t3); t6=(C_truep(t5)?C_slot(t3,C_fix(0)):lf[294]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3981,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=C_eqp(t6,lf[294]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3988,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:769: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[192]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[297]; tp(4,av2);}} else{ t9=C_eqp(t6,lf[295]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3998,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:770: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[192]+1); av2[1]=t10; av2[2]=t2; av2[3]=lf[297]; tp(4,av2);}} else{ /* posix-common.scm:743: ##sys#error */ t10=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=lf[296]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* k3979 in chicken.process#open-output-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3981,2,av);} /* posix-common.scm:765: check */ f_3908(((C_word*)t0)[3],lf[297],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} /* k3986 in chicken.process#open-output-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_3988,2,av);} a=C_alloc(2); t2=open_text_output_pipe(&a,1,t1); /* posix-common.scm:765: check */ f_3908(((C_word*)t0)[3],lf[297],((C_word*)t0)[4],C_SCHEME_FALSE,t2);} /* k3996 in chicken.process#open-output-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_3998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_3998,2,av);} a=C_alloc(2); t2=open_binary_output_pipe(&a,1,t1); /* posix-common.scm:765: check */ f_3908(((C_word*)t0)[3],lf[297],((C_word*)t0)[4],C_SCHEME_FALSE,t2);} /* chicken.process#close-input-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_4007,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[298]); t5=close_pipe(t2); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4014,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_eqp(C_fix(-1),t5); if(C_truep(t7)){ /* posix-common.scm:777: posix-error */ t8=lf[185];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t6; av2[2]=lf[190]; av2[3]=lf[298]; av2[4]=lf[299]; av2[5]=t2; f_2552(6,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k4012 in chicken.process#close-input-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4014,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.process#close-output-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_4022,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[300]); t5=close_pipe(t2); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4029,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_eqp(C_fix(-1),t5); if(C_truep(t7)){ /* posix-common.scm:784: posix-error */ t8=lf[185];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t6; av2[2]=lf[190]; av2[3]=lf[300]; av2[4]=lf[301]; av2[5]=t2; f_2552(6,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k4027 in chicken.process#close-output-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4029,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.process#with-input-from-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_4037,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4041,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[120]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k4039 in chicken.process#with-input-from-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_4041,2,av);} a=C_alloc(19); t2=t1; t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4046,a[2]=t6,a[3]=t4,a[4]=((C_word)li75),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4051,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li77),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4066,a[2]=t4,a[3]=t6,a[4]=((C_word)li78),tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:790: ##sys#dynamic-wind */ t10=*((C_word*)lf[304]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=((C_word*)t0)[3]; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* a4045 in k4039 in chicken.process#with-input-from-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4046,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[302]+1)); t3=C_mutate((C_word*)lf[302]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4050 in k4039 in chicken.process#with-input-from-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4051,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4057,a[2]=((C_word*)t0)[2],a[3]=((C_word)li76),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:791: scheme#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; C_call_with_values(4,av2);}} /* a4056 in a4050 in k4039 in chicken.process#with-input-from-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4057,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4061,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:793: chicken.process#close-input-pipe */ t4=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4059 in a4056 in a4050 in k4039 in chicken.process#with-input-from-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4061,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[303]+1); av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* a4065 in k4039 in chicken.process#with-input-from-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4066,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[302]+1)); t3=C_mutate((C_word*)lf[302]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.process#call-with-output-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_4071,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4075,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[121]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k4073 in chicken.process#call-with-output-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4075,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4080,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li80),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4086,a[2]=t2,a[3]=((C_word)li81),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:799: scheme#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a4079 in k4073 in chicken.process#call-with-output-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4080,2,av);} /* posix-common.scm:800: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a4085 in k4073 in chicken.process#call-with-output-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4086,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4090,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:802: chicken.process#close-output-pipe */ t4=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4088 in a4085 in k4073 in chicken.process#call-with-output-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4090,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[303]+1); av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* chicken.process#call-with-input-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_4095,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4099,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[120]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k4097 in chicken.process#call-with-input-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4099,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4104,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li83),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4110,a[2]=t2,a[3]=((C_word)li84),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:808: scheme#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a4103 in k4097 in chicken.process#call-with-input-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4104,2,av);} /* posix-common.scm:809: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a4109 in k4097 in chicken.process#call-with-input-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4110,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4114,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:811: chicken.process#close-input-pipe */ t4=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4112 in a4109 in k4097 in chicken.process#call-with-input-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4114,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[303]+1); av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* chicken.process#with-output-to-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_4119,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4123,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[121]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k4121 in chicken.process#with-output-to-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_4123,2,av);} a=C_alloc(19); t2=t1; t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4128,a[2]=t6,a[3]=t4,a[4]=((C_word)li86),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4133,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li88),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4148,a[2]=t4,a[3]=t6,a[4]=((C_word)li89),tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:817: ##sys#dynamic-wind */ t10=*((C_word*)lf[304]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=((C_word*)t0)[3]; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* a4127 in k4121 in chicken.process#with-output-to-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4128,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[305]+1)); t3=C_mutate((C_word*)lf[305]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4132 in k4121 in chicken.process#with-output-to-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4133,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4139,a[2]=((C_word*)t0)[2],a[3]=((C_word)li87),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:818: scheme#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; C_call_with_values(4,av2);}} /* a4138 in a4132 in k4121 in chicken.process#with-output-to-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4139,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4143,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:820: chicken.process#close-output-pipe */ t4=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4141 in a4138 in a4132 in k4121 in chicken.process#with-output-to-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4143,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[303]+1); av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* a4147 in k4121 in chicken.process#with-output-to-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4148,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[305]+1)); t3=C_mutate((C_word*)lf[305]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.file.posix#file-open in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_4159,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+5); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4163,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t6=t4; t7=t5; f_4163(t7,C_u_i_car(t6));} else{ t6=t5; f_4163(t6,((C_word*)t0)[2]);}} /* k4161 in chicken.file.posix#file-open in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_4163(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_4163,2,t0,t1);} a=C_alloc(6); t2=t1; t3=C_i_check_string_2(((C_word*)t0)[2],lf[306]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4169,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* posixwin.scm:524: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[203]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[306]; tp(4,av2);}} /* k4167 in k4161 in chicken.file.posix#file-open in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4169,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4172,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posixwin.scm:525: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[306]; tp(4,av2);}} /* k4170 in k4167 in k4161 in chicken.file.posix#file-open in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4172,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4176,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posixwin.scm:526: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[192]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[306]; tp(4,av2);}} /* k4174 in k4170 in k4167 in k4161 in chicken.file.posix#file-open in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_4176,2,av);} a=C_alloc(10); t2=C_open(t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4179,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_eqp(C_fix(-1),t2); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4185,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* posixwin.scm:528: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[95]+1); av2[1]=t5; tp(2,av2);}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k4177 in k4174 in k4170 in k4167 in k4161 in chicken.file.posix#file-open in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4179,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4183 in k4174 in k4170 in k4167 in k4161 in chicken.file.posix#file-open in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4185,2,av);} /* posixwin.scm:529: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[190]; av2[3]=lf[306]; av2[4]=lf[307]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; av2[7]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* chicken.file.posix#file-close in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4194,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4198,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:534: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[309]; tp(4,av2);}} /* k4196 in chicken.file.posix#file-close in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4198,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4203,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li92),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[3]; f_4203(2,av2);}} /* loop in k4196 in chicken.file.posix#file-close in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4203,2,av);} t2=C_close(((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t3=C_eqp(C_fix((C_word)errno),C_fix((C_word)EINTR)); if(C_truep(t3)){ /* posixwin.scm:538: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[308]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[308]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[3])[1]; tp(3,av2);}} else{ /* posixwin.scm:540: posix-error */ t4=lf[185];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=lf[190]; av2[3]=lf[309]; av2[4]=lf[310]; av2[5]=((C_word*)t0)[2]; f_2552(6,av2);}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* chicken.file.posix#file-read in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_4225,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4229,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* posixwin.scm:544: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[203]+1); av2[1]=t5; av2[2]=t2; av2[3]=lf[311]; tp(4,av2);}} /* k4227 in chicken.file.posix#file-read in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4229,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4232,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posixwin.scm:545: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[311]; tp(4,av2);}} /* k4230 in k4227 in chicken.file.posix#file-read in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4232,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4235,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_car(t3); f_4235(2,av2);}} else{ /* posixwin.scm:546: scheme#make-string */ t3=*((C_word*)lf[314]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k4233 in k4230 in k4227 in chicken.file.posix#file-read in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_4235,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4238,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_blockp(t2))){ if(C_truep(C_byteblockp(t2))){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_4238(2,av2);}} else{ /* posixwin.scm:548: ##sys#signal-hook */ t4=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[193]; av2[3]=lf[311]; av2[4]=lf[313]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} else{ /* posixwin.scm:548: ##sys#signal-hook */ t4=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[193]; av2[3]=lf[311]; av2[4]=lf[313]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} /* k4236 in k4233 in k4230 in k4227 in chicken.file.posix#file-read in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_4238,2,av);} a=C_alloc(11); t2=C_read(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4241,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_eqp(C_fix(-1),t2); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4250,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:551: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[95]+1); av2[1]=t5; tp(2,av2);}} else{ t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k4239 in k4236 in k4233 in k4230 in k4227 in chicken.file.posix#file-read in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4241,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4248 in k4236 in k4233 in k4230 in k4227 in chicken.file.posix#file-read in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4250,2,av);} /* posixwin.scm:552: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[190]; av2[3]=lf[311]; av2[4]=lf[312]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* chicken.file.posix#file-write in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_4268,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4272,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* posixwin.scm:557: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[203]+1); av2[1]=t5; av2[2]=t2; av2[3]=lf[315]; tp(4,av2);}} /* k4270 in chicken.file.posix#file-write in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_4272,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4275,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_blockp(((C_word*)t0)[3]))){ if(C_truep(C_byteblockp(((C_word*)t0)[3]))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4275(2,av2);}} else{ /* posixwin.scm:559: ##sys#signal-hook */ t3=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[193]; av2[3]=lf[315]; av2[4]=lf[317]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} else{ /* posixwin.scm:559: ##sys#signal-hook */ t3=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[193]; av2[3]=lf[315]; av2[4]=lf[317]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k4273 in k4270 in chicken.file.posix#file-write in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4275,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4278,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=t2; f_4278(t4,C_u_i_car(t3));} else{ t3=t2; f_4278(t3,C_block_size(((C_word*)t0)[3]));}} /* k4276 in k4273 in k4270 in chicken.file.posix#file-write in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_4278(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_4278,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4281,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* posixwin.scm:561: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[203]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[315]; tp(4,av2);}} /* k4279 in k4276 in k4273 in k4270 in chicken.file.posix#file-write in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4281,2,av);} a=C_alloc(9); t2=C_write(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4284,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_eqp(C_fix(-1),t2); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4290,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:564: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[95]+1); av2[1]=t5; tp(2,av2);}} else{ t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k4282 in k4279 in k4276 in k4273 in k4270 in chicken.file.posix#file-write in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4284,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4288 in k4279 in k4276 in k4273 in k4270 in chicken.file.posix#file-write in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4290,2,av);} /* posixwin.scm:565: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[190]; av2[3]=lf[315]; av2[4]=lf[316]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* chicken.file.posix#file-mkstemp in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(40,c,2)))){ C_save_and_reclaim((void *)f_4308,3,av);} a=C_alloc(40); t3=C_i_check_string_2(t2,lf[318]); t4=lf[319]; t5=C_block_size(t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)va6083,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=t1,a[6]=((C_word)li100),tmp=(C_word)a,a+=7,tmp); t8=t7; va6083(t8,C_s_a_i_times(&a,2,t6,t6));} /* k4319 */ static void C_ccall f_4321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_4321,2,av);} a=C_alloc(16); t2=t1; t3=C_block_size(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4327,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t6=C_fixnum_difference(t4,C_fix(1)); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4436,a[2]=t8,a[3]=t2,a[4]=((C_word)li99),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_4436(t10,t5,t6);} /* k4325 in k4319 */ static void C_ccall f_4327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_4327,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4330,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4423,a[2]=t3,a[3]=((C_word*)t0)[7],a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4427,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* posixwin.scm:581: chicken.pathname#pathname-directory */ t6=*((C_word*)lf[325]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4328 in k4325 in k4319 */ static void C_ccall f_4330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_4330,2,av);} a=C_alloc(13); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4335,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=((C_word)li98),tmp=(C_word)a,a+=11,tmp)); t5=((C_word*)t3)[1]; f_4335(t5,((C_word*)t0)[9],C_fix(1));} /* loop in k4328 in k4325 in k4319 */ static void C_fcall f_4335(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_4335,3,t0,t1,t2);} a=C_alloc(15); t3=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4382,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word)li96),tmp=(C_word)a,a+=7,tmp); t5=( f_4382(t4,t3) ); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4343,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=t1,a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* posixwin.scm:595: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[192]+1); av2[1]=t6; av2[2]=((C_word*)t0)[6]; av2[3]=lf[306]; tp(4,av2);}} /* k4341 in loop in k4328 in k4325 in k4319 */ static void C_ccall f_4343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_4343,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)va6075,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li97),tmp=(C_word)a,a+=10,tmp); t4=t3; va6075(t4,C_s_a_i_bitwise_ior(&a,2,*((C_word*)lf[53]+1),*((C_word*)lf[46]+1)));} /* suffix-loop in loop in k4328 in k4325 in k4319 */ static C_word C_fcall f_4382(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ t2=C_rand(((C_word*)t0)[3]); t3=C_i_string_ref(((C_word*)t0)[4],t2); t4=C_i_string_set(((C_word*)t0)[5],t1,t3); t5=C_fixnum_difference(t1,C_fix(1)); t7=t5; t1=t7; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k4421 in k4325 in k4319 */ static void C_ccall f_4423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4423,2,av);} if(C_truep(C_i_not(t1))){ /* posixwin.scm:585: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[190]; av2[3]=lf[318]; av2[4]=lf[321]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t2)){ /* posixwin.scm:587: ##sys#signal-hook */ t3=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[190]; av2[3]=lf[318]; av2[4]=lf[322]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; f_4330(2,av2);}}}} /* k4425 in k4325 in k4319 */ static void C_ccall f_4427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4427,2,av);} if(C_truep(t1)){ t2=t1; /* posixwin.scm:581: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[323]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[323]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; av2[5]=lf[318]; tp(6,av2);}} else{ /* posixwin.scm:581: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[323]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[323]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[324]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; av2[5]=lf[318]; tp(6,av2);}}} /* loop in k4319 */ static void C_fcall f_4436(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4436,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4443,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnum_greater_or_equal_p(t2,C_fix(0)))){ t4=C_i_string_ref(((C_word*)t0)[3],t2); t5=t3; f_4443(t5,C_eqp(t4,C_make_character(88)));} else{ t4=t3; f_4443(t4,C_SCHEME_FALSE);}} /* k4441 in loop in k4319 */ static void C_fcall f_4443(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_4443,2,t0,t1);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* posixwin.scm:579: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4436(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.process#create-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_4467,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_fixnum_or(*((C_word*)lf[45]+1),*((C_word*)lf[50]+1)):C_i_car(t2)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4474,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_pipe(C_SCHEME_FALSE,t4); if(C_truep(C_fixnum_lessp(t6,C_fix(0)))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4483,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* posixwin.scm:615: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[95]+1); av2[1]=t7; tp(2,av2);}} else{ /* posixwin.scm:617: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=C_fix((C_word)C_pipefds[ 0 ]); av2[3]=C_fix((C_word)C_pipefds[ 1 ]); C_values(4,av2);}}} /* k4472 in chicken.process#create-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4474,2,av);} /* posixwin.scm:617: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix((C_word)C_pipefds[ 0 ]); av2[3]=C_fix((C_word)C_pipefds[ 1 ]); C_values(4,av2);}} /* k4481 in chicken.process#create-pipe in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4483,2,av);} /* posixwin.scm:616: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[190]; av2[3]=lf[327]; av2[4]=lf[328]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.posix#duplicate-fileno in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_4529,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4533,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:672: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[329]; tp(4,av2);}} /* k4531 in chicken.posix#duplicate-fileno in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4533,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4536,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ t3=t2; f_4536(t3,C_dup(((C_word*)t0)[3]));} else{ t3=C_i_car(((C_word*)t0)[4]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4557,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:676: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[251]; tp(4,av2);}}} /* k4534 in k4531 in chicken.posix#duplicate-fileno in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_4536(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_4536,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4539,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4545,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:679: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[95]+1); av2[1]=t4; tp(2,av2);}} else{ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4537 in k4534 in k4531 in chicken.posix#duplicate-fileno in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4539,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4543 in k4534 in k4531 in chicken.posix#duplicate-fileno in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4545,2,av);} /* posixwin.scm:680: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[190]; av2[3]=lf[251]; av2[4]=lf[330]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k4555 in k4531 in chicken.posix#duplicate-fileno in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4557,2,av);} t2=((C_word*)t0)[2]; f_4536(t2,C_dup2(((C_word*)t0)[3],((C_word*)t0)[4]));} /* chicken.time.posix#local-timezone-abbreviation in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4559,2,av);} a=C_alloc(5); t2=C_a_i_bytevector(&a,1,C_fix(3)); t3=stub1370(t2); /* posixwin.scm:687: ##sys#peek-c-string */ t4=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* loop in chicken.posix#quote-arg-string in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static C_word C_fcall f_4580(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ return(C_SCHEME_FALSE);} else{ t3=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_u_i_char_whitespacep(t3))){ return(C_SCHEME_TRUE);} else{ t4=C_fixnum_plus(t1,C_fix(1)); t6=t4; t1=t6; goto loop;}}} /* chicken.posix#quote-arg-string in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4605,3,av);} a=C_alloc(5); t3=t2; t4=C_i_string_length(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4580,a[2]=t5,a[3]=t3,a[4]=((C_word)li105),tmp=(C_word)a,a+=5,tmp); t7=( f_4580(t6,C_fix(0)) ); if(C_truep(t7)){ /* posixwin.scm:721: scheme#string-append */ t8=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t1; av2[2]=lf[332]; av2[3]=t2; av2[4]=lf[333]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t8=t2; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* chicken.process#process-execute in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,7)))){ C_save_and_reclaim((void*)f_4617,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_END_OF_LIST:C_i_car(t3)); t6=C_i_nullp(t3); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_FALSE:C_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=C_i_nullp(t11); t13=(C_truep(t12)?C_SCHEME_FALSE:C_i_car(t11)); t14=C_i_nullp(t11); t15=(C_truep(t14)?C_SCHEME_END_OF_LIST:C_i_cdr(t11)); t16=(C_truep(t13)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4658,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp):lf[331]); t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4644,a[2]=t2,a[3]=((C_word)li108),tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:726: call-with-exec-args */ t18=lf[288]; f_3751(t18,t1,lf[334],t2,t16,t5,t9,t17);} /* a4643 in chicken.process#process-execute in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4644,5,av);} t5=C_flushall(); t6=(C_truep(t4)?C_u_i_execve(t2,t3,t4):C_u_i_execvp(t2,t3)); t7=C_eqp(t6,C_fix(-1)); if(C_truep(t7)){ /* posixwin.scm:734: posix-error */ t8=lf[185];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t1; av2[2]=lf[93]; av2[3]=lf[334]; av2[4]=lf[335]; av2[5]=((C_word*)t0)[2]; f_2552(6,av2);}} else{ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* f_4658 in chicken.process#process-execute in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4658,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.process#process-spawn in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +11,c,3)))){ C_save_and_reclaim((void*)f_4697,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+11); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_END_OF_LIST:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_SCHEME_FALSE:C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=C_i_nullp(t14); t16=(C_truep(t15)?C_SCHEME_FALSE:C_i_car(t14)); t17=C_i_nullp(t14); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t14)); t19=(C_truep(t16)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4741,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp):lf[331]); t20=t19; t21=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4722,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t20,a[6]=t7,a[7]=t12,tmp=(C_word)a,a+=8,tmp); /* posixwin.scm:739: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[203]+1); av2[1]=t21; av2[2]=t2; av2[3]=lf[336]; tp(4,av2);}} /* k4720 in chicken.process#process-spawn in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,7)))){ C_save_and_reclaim((void *)f_4722,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4727,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li111),tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:740: call-with-exec-args */ t3=lf[288]; f_3751(t3,((C_word*)t0)[4],lf[336],((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2);} /* a4726 in k4720 in chicken.process#process-spawn in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_4727,5,av);} a=C_alloc(4); t5=C_flushall(); t6=(C_truep(t4)?C_u_i_spawnvpe(((C_word*)t0)[2],t2,t3,t4):C_u_i_spawnvp(((C_word*)t0)[2],t2,t3)); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4734,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=C_eqp(t7,C_fix(-1)); if(C_truep(t9)){ /* posixwin.scm:748: posix-error */ t10=lf[185];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t8; av2[2]=lf[93]; av2[3]=lf[336]; av2[4]=lf[337]; av2[5]=((C_word*)t0)[3]; f_2552(6,av2);}} else{ t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k4732 in a4726 in k4720 in chicken.process#process-spawn in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4734,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4741 in chicken.process#process-spawn in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4741,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.posix#shell-command in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_4780(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_4780,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4784,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:754: chicken.process-context#get-environment-variable */ t4=*((C_word*)lf[340]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[341]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4782 in chicken.posix#shell-command in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4784,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_get_shlcmd())){ /* ##sys#peek-c-string */ t2=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_mpointer(&a,(void*)C_shlcmd); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4796,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:758: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[95]+1); av2[1]=t2; tp(2,av2);}}}} /* k4794 in k4782 in chicken.posix#shell-command in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4796,2,av);} /* posixwin.scm:759: ##sys#error */ t2=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[339]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process#process-run in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4807,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4811,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t5=t3; t6=t4; f_4811(t6,C_u_i_car(t5));} else{ t5=t4; f_4811(t5,C_SCHEME_FALSE);}} /* k4809 in chicken.process#process-run in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_4811(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_4811,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ /* posixwin.scm:768: chicken.process#process-spawn */ t2=*((C_word*)lf[113]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[130]+1); av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4824,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:772: shell-command */ f_4780(t2,lf[343]);}} /* k4822 in k4809 in chicken.process#process-run in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4824,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_a_i_list2(&a,2,lf[342],t2); /* posixwin.scm:770: chicken.process#process-spawn */ t4=*((C_word*)lf[113]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[130]+1); av2[3]=t1; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4837 in k4961 in k4957 in k4953 in k4949 in k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in ... */ static void C_ccall f_4839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4839,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[8])){ t4=C_i_foreign_string_argumentp(((C_word*)t0)[8]); /* posixwin.scm:796: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[192]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_4843(2,av2);}}} /* k4841 in k4837 in k4961 in k4957 in k4953 in k4949 in k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in ... */ static void C_ccall f_4843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4843,2,av);} t2=(C_truep(((C_word*)t0)[2])?C_i_foreign_pointer_argumentp(((C_word*)t0)[2]):C_SCHEME_FALSE); t3=(C_truep(((C_word*)t0)[3])?C_i_foreign_pointer_argumentp(((C_word*)t0)[3]):C_SCHEME_FALSE); t4=(C_truep(((C_word*)t0)[4])?C_i_foreign_pointer_argumentp(((C_word*)t0)[4]):C_SCHEME_FALSE); t5=(C_truep(((C_word*)t0)[5])?C_i_foreign_pointer_argumentp(((C_word*)t0)[5]):C_SCHEME_FALSE); t6=C_i_foreign_fixnum_argumentp(((C_word*)t0)[6]); t7=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t7; av2[1]=stub1459(C_SCHEME_UNDEFINED,((C_word*)t0)[8],t1,C_SCHEME_FALSE,t2,t3,t4,t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,5)))){ C_save_and_reclaim((void *)f_4907,2,av);} a=C_alloc(31); t2=t1; t3=C_a_i_bytevector(&a,1,C_fix(1)); t4=((*(int *)C_data_pointer(t3))=C_unfix(C_fix(-1)),C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(1)); t6=((*(int *)C_data_pointer(t5))=C_unfix(C_fix(-1)),C_SCHEME_UNDEFINED); t7=C_a_i_bytevector(&a,1,C_fix(1)); t8=((*(int *)C_data_pointer(t7))=C_unfix(C_fix(-1)),C_SCHEME_UNDEFINED); t9=C_a_i_bytevector(&a,1,C_fix(1)); t10=((*(int *)C_data_pointer(t9))=C_unfix(C_fix(-1)),C_SCHEME_UNDEFINED); t11=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4914,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t9,a[6]=t5,a[7]=t7,a[8]=((C_word*)t0)[4],a[9]=t2,tmp=(C_word)a,a+=10,tmp); t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4951,a[2]=((C_word*)t0)[3],a[3]=t11,a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=t9,a[7]=t7,a[8]=t5,tmp=(C_word)a,a+=9,tmp); /* posixwin.scm:811: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[345]+1); av2[1]=t12; av2[2]=t3; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[346]; tp(6,av2);}} /* k4912 in k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4914,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4924,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* posixwin.scm:816: chicken.file.posix#open-input-file* */ t3=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix((C_word)*((int *)C_data_pointer(((C_word*)t0)[7]))); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4944,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* posixwin.scm:824: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[95]+1); av2[1]=t2; tp(2,av2);}}} /* k4922 in k4912 in k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4924,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4928,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* posixwin.scm:818: chicken.file.posix#open-output-file* */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix((C_word)*((int *)C_data_pointer(((C_word*)t0)[6]))); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4926 in k4922 in k4912 in k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_4928,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4932,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ /* posixwin.scm:821: chicken.file.posix#open-input-file* */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix((C_word)*((int *)C_data_pointer(((C_word*)t0)[6]))); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* posixwin.scm:815: scheme#values */{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=C_fix((C_word)*((int *)C_data_pointer(((C_word*)t0)[4]))); av2[5]=C_SCHEME_FALSE; C_values(6,av2);}}} /* k4930 in k4926 in k4922 in k4912 in k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 in ... */ static void C_ccall f_4932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4932,2,av);} /* posixwin.scm:815: scheme#values */{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=C_fix((C_word)*((int *)C_data_pointer(((C_word*)t0)[5]))); av2[5]=t1; C_values(6,av2);}} /* k4942 in k4912 in k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4944,2,av);} /* posixwin.scm:825: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[93]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[344]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k4949 in k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_4951,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4955,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* posixwin.scm:812: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[345]+1); av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[346]; tp(6,av2);}} /* k4953 in k4949 in k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_4955,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* posixwin.scm:812: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[345]+1); av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[346]; tp(6,av2);}} /* k4957 in k4953 in k4949 in k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_4959,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4963,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* posixwin.scm:812: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[345]+1); av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[346]; tp(6,av2);}} /* k4961 in k4957 in k4953 in k4949 in k4905 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 in ... */ static void C_ccall f_4963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4963,2,av);} a=C_alloc(9); t2=(C_truep(((C_word*)t0)[2])?C_fix(0):C_fix(4)); t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=((C_word*)t0)[7]; t8=t1; t9=t2; t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4839,a[2]=t5,a[3]=t6,a[4]=t7,a[5]=t8,a[6]=t9,a[7]=t3,a[8]=t4,tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[8])){ t11=C_i_foreign_string_argumentp(((C_word*)t0)[8]); /* posixwin.scm:796: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[192]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[192]+1); av2[1]=t10; av2[2]=t11; tp(3,av2);}} else{ t11=t10;{ C_word *av2=av; av2[0]=t11; av2[1]=C_SCHEME_FALSE; f_4839(2,av2);}}} /* k4981 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_4983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4983,2,av);} /* posixwin.scm:803: chicken.string#string-intersperse */ t2=*((C_word*)lf[347]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* map-loop1504 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_4991(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4991,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5016,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* posixwin.scm:806: g1510 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5014 in map-loop1504 in a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5016,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4991(t6,((C_word*)t0)[5],t5);} /* %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_5030(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){ C_save_and_reclaim_args((void *)trf_5030,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(29); t8=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t9=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5032,a[2]=t2,a[3]=((C_word)li117),tmp=(C_word)a,a+=4,tmp); t12=C_i_check_string_2(((C_word*)t8)[1],t2); t13=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5073,a[2]=t2,a[3]=t8,a[4]=t9,a[5]=t3,a[6]=t10,a[7]=t1,a[8]=t6,tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t9)[1])){ /* posixwin.scm:836: chkstrlst */ t14=t11; f_5032(t14,t13,((C_word*)t9)[1]);} else{ t14=C_set_block_item(t10,0,C_SCHEME_TRUE); t15=((C_word*)t8)[1]; t16=C_a_i_list2(&a,2,lf[342],t15); t17=C_set_block_item(t9,0,t16); t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5112,a[2]=t8,a[3]=t13,tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:840: shell-command */ f_4780(t18,t2);}} /* chkstrlst in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall f_5032(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_5032,3,t0,t1,t2);} a=C_alloc(8); t3=C_i_check_list_2(t2,((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5037,a[2]=((C_word*)t0)[2],a[3]=((C_word)li115),tmp=(C_word)a,a+=4,tmp); t5=t2; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5046,a[2]=t4,a[3]=((C_word)li116),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=( f_5046(t6,t5) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* g1581 in chkstrlst in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static C_word C_fcall f_5037(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_check_string_2(t1,((C_word*)t0)[2]));} /* for-each-loop1580 in chkstrlst in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static C_word C_fcall f_5046(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=( /* posixwin.scm:833: g1581 */ f_5037(((C_word*)t0)[2],t2) ); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_5073,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5076,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[8])){ /* posixwin.scm:841: check-environment-list */ f_3702(t2,((C_word*)t0)[8],((C_word*)t0)[2]);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5076(2,av2);}}} /* k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,6)))){ C_save_and_reclaim((void *)f_5076,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5081,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li119),tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5087,a[2]=((C_word*)t0)[5],a[3]=((C_word)li120),tmp=(C_word)a,a+=4,tmp); /* posixwin.scm:842: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[7]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a5080 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_5081,2,av);} a=C_alloc(29); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)((C_word*)t0)[3])[1]; t5=((C_word*)((C_word*)t0)[4])[1]; t6=((C_word*)t0)[5]; t7=C_a_i_list(&a,1,((C_word*)((C_word*)t0)[6])[1]); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_FALSE:C_i_car(t7)); t10=C_a_i_cons(&a,2,t4,t5); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4907,a[2]=t2,a[3]=t6,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4983,a[2]=t11,tmp=(C_word)a,a+=3,tmp); if(C_truep(t9)){ /* posixwin.scm:803: chicken.string#string-intersperse */ t13=*((C_word*)lf[347]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t11; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t14=t13; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=((C_word*)t15)[1]; t17=lf[331]; t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4991,a[2]=t15,a[3]=t19,a[4]=t17,a[5]=t16,a[6]=((C_word)li118),tmp=(C_word)a,a+=7,tmp)); t21=((C_word*)t19)[1]; f_4991(t21,t12,t10);}} /* a5086 in k5074 in k5071 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5087,6,av);} if(C_truep(((C_word*)t0)[2])){ /* posixwin.scm:845: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; C_values(6,av2);}} else{ /* posixwin.scm:846: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; C_values(5,av2);}}} /* k5110 in %process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5112,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_5073(2,av2);}} /* chicken.process#process in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,7)))){ C_save_and_reclaim((void*)f_5114,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_i_nullp(t3); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_FALSE:C_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=C_i_nullp(t11); t13=(C_truep(t12)?C_SCHEME_FALSE:C_i_car(t11)); if(C_truep(C_i_nullp(t11))){ /* posixwin.scm:849: %process */ f_5030(t1,lf[348],C_SCHEME_FALSE,t2,t5,t9,t13);} else{ t14=C_i_cdr(t11); /* posixwin.scm:849: %process */ f_5030(t1,lf[348],C_SCHEME_FALSE,t2,t5,t9,t13);}} /* chicken.process#process* in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,7)))){ C_save_and_reclaim((void*)f_5174,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_i_nullp(t3); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_FALSE:C_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=C_i_nullp(t11); t13=(C_truep(t12)?C_SCHEME_FALSE:C_i_car(t11)); if(C_truep(C_i_nullp(t11))){ /* posixwin.scm:852: %process */ f_5030(t1,lf[349],C_SCHEME_TRUE,t2,t5,t9,t13);} else{ t14=C_i_cdr(t11); /* posixwin.scm:852: %process */ f_5030(t1,lf[349],C_SCHEME_TRUE,t2,t5,t9,t13);}} /* chicken.process-context.posix#current-user-name in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5246,2,av);} a=C_alloc(3); if(C_truep(C_get_user_name())){ /* ##sys#peek-c-string */ t2=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=C_mpointer(&a,(void*)C_username); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5256,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posixwin.scm:871: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[95]+1); av2[1]=t2; tp(2,av2);}}} /* k5254 in chicken.process-context.posix#current-user-name in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5256,2,av);} /* posixwin.scm:872: ##sys#error */ t2=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[350]; av2[3]=lf[351]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.file.posix#create-fifo in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5267,2,av);} /* posixwin.scm:878: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[4]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process-context.posix#create-session in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5273,2,av);} /* posixwin.scm:879: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[181]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.file.posix#create-symbolic-link in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5279,2,av);} /* posixwin.scm:880: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[5]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process-context.posix#current-effective-group-id in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5285,2,av);} /* posixwin.scm:881: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[173]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process-context.posix#current-effective-user-id in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5291,2,av);} /* posixwin.scm:882: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[174]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process-context.posix#current-effective-user-name in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5297,2,av);} /* posixwin.scm:883: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[180]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process-context.posix#current-group-id in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5303,2,av);} /* posixwin.scm:884: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[175]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process-context.posix#current-user-id in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5309,2,av);} /* posixwin.scm:885: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[176]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.file.posix#file-control in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5315,2,av);} /* posixwin.scm:887: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[14]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.file.posix#file-link in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5321,2,av);} /* posixwin.scm:888: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[17]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.file.posix#file-lock in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5327,2,av);} /* posixwin.scm:889: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[18]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.file.posix#file-lock/blocking in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5333,2,av);} /* posixwin.scm:890: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[19]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.file.posix#file-select in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5339,2,av);} /* posixwin.scm:891: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[26]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.file.posix#file-test-lock in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5345,2,av);} /* posixwin.scm:892: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[27]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.file.posix#file-truncate in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5351,2,av);} /* posixwin.scm:893: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[28]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.file.posix#file-unlock in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5357,2,av);} /* posixwin.scm:894: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[29]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process-context.posix#parent-process-id in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5363,2,av);} /* posixwin.scm:895: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[178]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process#process-fork in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5369,2,av);} /* posixwin.scm:896: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[110]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process-context.posix#process-group-id in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5375,2,av);} /* posixwin.scm:897: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[182]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process#process-signal in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5381,2,av);} /* posixwin.scm:898: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[112]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.file.posix#read-symbolic-link in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5387,2,av);} /* posixwin.scm:899: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[6]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process.signal#set-alarm! in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5393,2,av);} /* posixwin.scm:900: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[134]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process-context.posix#set-root-directory! in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5399,2,av);} /* posixwin.scm:901: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[172]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process.signal#set-signal-mask! in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5405,2,av);} /* posixwin.scm:902: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[136]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process.signal#signal-mask in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5411,2,av);} /* posixwin.scm:903: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[138]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process.signal#signal-mask! in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5417,2,av);} /* posixwin.scm:904: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[139]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process.signal#signal-masked? in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5423,2,av);} /* posixwin.scm:905: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[140]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process.signal#signal-unmask! in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5429,2,av);} /* posixwin.scm:906: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[141]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.process-context.posix#user-information in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5435,2,av);} /* posixwin.scm:907: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[183]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.time.posix#utc-time->seconds in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5441,2,av);} /* posixwin.scm:908: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[82]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.time.posix#string->time in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5447,2,av);} /* posixwin.scm:909: chicken.base#error */ t2=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[86]; av2[3]=lf[0]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.errno#errno in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5465,2,av);} /* posix.scm:374: ##sys#errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[354]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[354]+1); av2[1]=t1; tp(2,av2);}} /* a5509 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5510,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5514,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:637: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[394]; tp(4,av2);}} /* k5512 in a5509 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5514,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_slot(*((C_word*)lf[270]+1),((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5518 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_5519,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5526,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ /* posix-common.scm:562: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t6; av2[2]=t5; av2[3]=lf[397]; tp(4,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_5526(2,av2);}}} /* k5524 in a5518 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5526,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_umask(((C_word*)t0)[2]); if(C_truep(((C_word*)t0)[2])){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_umask(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=C_umask(C_fix(0)); if(C_truep(((C_word*)t0)[2])){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_umask(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* a5543 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5544,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5548,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:567: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[203]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[203]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[397]; tp(4,av2);}} /* k5546 in a5543 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5548,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_umask(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5549 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5550,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5554,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5566,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:403: chicken.base#port? */ t5=*((C_word*)lf[195]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5552 in a5549 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_5554,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5557,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_lessp(t2,C_fix(0)))){ /* posix-common.scm:412: posix-error */ t4=lf[185];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[190]; av2[3]=lf[399]; av2[4]=lf[400]; av2[5]=((C_word*)t0)[3]; f_2552(6,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5555 in k5552 in a5549 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5557,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5564 in a5549 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_5566,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(7)); t3=C_eqp(t2,lf[232]); if(C_truep(t3)){ t4=C_ftell(&a,1,((C_word*)t0)[2]); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; f_5554(2,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_fix(-1); f_5554(2,av2);}}} else{ if(C_truep(C_fixnump(((C_word*)t0)[2]))){ t2=C_lseek(((C_word*)t0)[2],C_fix(0),C_fix((C_word)SEEK_CUR)); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_5554(2,av2);}} else{ /* posix-common.scm:410: ##sys#signal-hook */ t2=*((C_word*)lf[92]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[193]; av2[3]=lf[399]; av2[4]=lf[401]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* a5586 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_5587,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5591,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:326: stat */ f_2570(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[201]);} /* k5589 in a5586 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5591,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_stat_perm); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5592 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_5593,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5597,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:319: stat */ f_2570(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[404]);} /* k5595 in a5592 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5597,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_gid); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5598 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_5599,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5603,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:313: stat */ f_2570(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[406]);} /* k5601 in a5598 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_ccall f_5603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5603,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_uid); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_posix_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("posix")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_posix_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2296))){ C_save(t1); C_rereclaim2(2296*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,408); lf[1]=C_decode_literal(C_heaptop,C_text("\376B\000\000/this function is not available on this platform")); lf[2]=C_h_intern(&lf[2],5, C_text("posix")); lf[3]=C_h_intern(&lf[3],19, C_text("chicken.file.posix#")); lf[4]=C_h_intern(&lf[4],30, C_text("chicken.file.posix#create-fifo")); lf[5]=C_h_intern(&lf[5],39, C_text("chicken.file.posix#create-symbolic-link")); lf[6]=C_h_intern(&lf[6],37, C_text("chicken.file.posix#read-symbolic-link")); lf[7]=C_h_intern(&lf[7],35, C_text("chicken.file.posix#duplicate-fileno")); lf[8]=C_h_intern(&lf[8],30, C_text("chicken.file.posix#fcntl/dupfd")); lf[9]=C_h_intern(&lf[9],30, C_text("chicken.file.posix#fcntl/getfd")); lf[10]=C_h_intern(&lf[10],30, C_text("chicken.file.posix#fcntl/getfl")); lf[11]=C_h_intern(&lf[11],30, C_text("chicken.file.posix#fcntl/setfd")); lf[12]=C_h_intern(&lf[12],30, C_text("chicken.file.posix#fcntl/setfl")); lf[13]=C_h_intern(&lf[13],29, C_text("chicken.file.posix#file-close")); lf[14]=C_h_intern(&lf[14],31, C_text("chicken.file.posix#file-control")); lf[15]=C_h_intern(&lf[15],37, C_text("chicken.file.posix#file-creation-mode")); lf[16]=C_h_intern(&lf[16],29, C_text("chicken.file.posix#file-group")); lf[17]=C_h_intern(&lf[17],28, C_text("chicken.file.posix#file-link")); lf[18]=C_h_intern(&lf[18],28, C_text("chicken.file.posix#file-lock")); lf[19]=C_h_intern(&lf[19],37, C_text("chicken.file.posix#file-lock/blocking")); lf[20]=C_h_intern(&lf[20],31, C_text("chicken.file.posix#file-mkstemp")); lf[21]=C_h_intern(&lf[21],28, C_text("chicken.file.posix#file-open")); lf[22]=C_h_intern(&lf[22],29, C_text("chicken.file.posix#file-owner")); lf[23]=C_h_intern(&lf[23],35, C_text("chicken.file.posix#file-permissions")); lf[24]=C_h_intern(&lf[24],32, C_text("chicken.file.posix#file-position")); lf[25]=C_h_intern(&lf[25],28, C_text("chicken.file.posix#file-read")); lf[26]=C_h_intern(&lf[26],30, C_text("chicken.file.posix#file-select")); lf[27]=C_h_intern(&lf[27],33, C_text("chicken.file.posix#file-test-lock")); lf[28]=C_h_intern(&lf[28],32, C_text("chicken.file.posix#file-truncate")); lf[29]=C_h_intern(&lf[29],30, C_text("chicken.file.posix#file-unlock")); lf[30]=C_h_intern(&lf[30],29, C_text("chicken.file.posix#file-write")); lf[31]=C_h_intern(&lf[31],28, C_text("chicken.file.posix#file-type")); lf[32]=C_h_intern(&lf[32],32, C_text("chicken.file.posix#block-device\077")); lf[33]=C_h_intern(&lf[33],36, C_text("chicken.file.posix#character-device\077")); lf[34]=C_h_intern(&lf[34],29, C_text("chicken.file.posix#directory\077")); lf[35]=C_h_intern(&lf[35],24, C_text("chicken.file.posix#fifo\077")); lf[36]=C_h_intern(&lf[36],32, C_text("chicken.file.posix#regular-file\077")); lf[37]=C_h_intern(&lf[37],26, C_text("chicken.file.posix#socket\077")); lf[38]=C_h_intern(&lf[38],33, C_text("chicken.file.posix#symbolic-link\077")); lf[39]=C_h_intern(&lf[39],32, C_text("chicken.file.posix#fileno/stderr")); lf[40]=C_h_intern(&lf[40],31, C_text("chicken.file.posix#fileno/stdin")); lf[41]=C_h_intern(&lf[41],32, C_text("chicken.file.posix#fileno/stdout")); lf[42]=C_h_intern(&lf[42],35, C_text("chicken.file.posix#open-input-file\052")); lf[43]=C_h_intern(&lf[43],36, C_text("chicken.file.posix#open-output-file\052")); lf[44]=C_h_intern(&lf[44],30, C_text("chicken.file.posix#open/append")); lf[45]=C_h_intern(&lf[45],30, C_text("chicken.file.posix#open/binary")); lf[46]=C_h_intern(&lf[46],29, C_text("chicken.file.posix#open/creat")); lf[47]=C_h_intern(&lf[47],28, C_text("chicken.file.posix#open/excl")); lf[48]=C_h_intern(&lf[48],29, C_text("chicken.file.posix#open/fsync")); lf[49]=C_h_intern(&lf[49],30, C_text("chicken.file.posix#open/noctty")); lf[50]=C_h_intern(&lf[50],33, C_text("chicken.file.posix#open/noinherit")); lf[51]=C_h_intern(&lf[51],32, C_text("chicken.file.posix#open/nonblock")); lf[52]=C_h_intern(&lf[52],30, C_text("chicken.file.posix#open/rdonly")); lf[53]=C_h_intern(&lf[53],28, C_text("chicken.file.posix#open/rdwr")); lf[54]=C_h_intern(&lf[54],28, C_text("chicken.file.posix#open/read")); lf[55]=C_h_intern(&lf[55],28, C_text("chicken.file.posix#open/sync")); lf[56]=C_h_intern(&lf[56],28, C_text("chicken.file.posix#open/text")); lf[57]=C_h_intern(&lf[57],29, C_text("chicken.file.posix#open/trunc")); lf[58]=C_h_intern(&lf[58],29, C_text("chicken.file.posix#open/write")); lf[59]=C_h_intern(&lf[59],30, C_text("chicken.file.posix#open/wronly")); lf[60]=C_h_intern(&lf[60],29, C_text("chicken.file.posix#perm/irgrp")); lf[61]=C_h_intern(&lf[61],29, C_text("chicken.file.posix#perm/iroth")); lf[62]=C_h_intern(&lf[62],29, C_text("chicken.file.posix#perm/irusr")); lf[63]=C_h_intern(&lf[63],29, C_text("chicken.file.posix#perm/irwxg")); lf[64]=C_h_intern(&lf[64],29, C_text("chicken.file.posix#perm/irwxo")); lf[65]=C_h_intern(&lf[65],29, C_text("chicken.file.posix#perm/irwxu")); lf[66]=C_h_intern(&lf[66],29, C_text("chicken.file.posix#perm/isgid")); lf[67]=C_h_intern(&lf[67],29, C_text("chicken.file.posix#perm/isuid")); lf[68]=C_h_intern(&lf[68],29, C_text("chicken.file.posix#perm/isvtx")); lf[69]=C_h_intern(&lf[69],29, C_text("chicken.file.posix#perm/iwgrp")); lf[70]=C_h_intern(&lf[70],29, C_text("chicken.file.posix#perm/iwoth")); lf[71]=C_h_intern(&lf[71],29, C_text("chicken.file.posix#perm/iwusr")); lf[72]=C_h_intern(&lf[72],29, C_text("chicken.file.posix#perm/ixgrp")); lf[73]=C_h_intern(&lf[73],29, C_text("chicken.file.posix#perm/ixoth")); lf[74]=C_h_intern(&lf[74],29, C_text("chicken.file.posix#perm/ixusr")); lf[75]=C_h_intern(&lf[75],31, C_text("chicken.file.posix#port->fileno")); lf[76]=C_h_intern(&lf[76],27, C_text("chicken.file.posix#seek/cur")); lf[77]=C_h_intern(&lf[77],27, C_text("chicken.file.posix#seek/end")); lf[78]=C_h_intern(&lf[78],27, C_text("chicken.file.posix#seek/set")); lf[79]=C_h_intern(&lf[79],37, C_text("chicken.file.posix#set-file-position!")); lf[80]=C_h_intern(&lf[80],19, C_text("chicken.time.posix#")); lf[81]=C_h_intern(&lf[81],36, C_text("chicken.time.posix#seconds->utc-time")); lf[82]=C_h_intern(&lf[82],36, C_text("chicken.time.posix#utc-time->seconds")); lf[83]=C_h_intern(&lf[83],38, C_text("chicken.time.posix#seconds->local-time")); lf[84]=C_h_intern(&lf[84],34, C_text("chicken.time.posix#seconds->string")); lf[85]=C_h_intern(&lf[85],38, C_text("chicken.time.posix#local-time->seconds")); lf[86]=C_h_intern(&lf[86],31, C_text("chicken.time.posix#string->time")); lf[87]=C_h_intern(&lf[87],31, C_text("chicken.time.posix#time->string")); lf[88]=C_h_intern(&lf[88],46, C_text("chicken.time.posix#local-timezone-abbreviation")); lf[89]=C_h_intern(&lf[89],16, C_text("chicken.process#")); lf[90]=C_h_intern(&lf[90],22, C_text("chicken.process#system")); lf[91]=C_h_intern(&lf[91],6, C_text("system")); lf[92]=C_h_intern(&lf[92],17, C_text("##sys#signal-hook")); lf[93]=C_h_intern_kw(&lf[93],13, C_text("process-error")); lf[94]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032`system\047 invocation failed")); lf[95]=C_h_intern(&lf[95],18, C_text("##sys#update-errno")); lf[96]=C_h_intern(&lf[96],23, C_text("chicken.process#system\052")); lf[97]=C_h_intern(&lf[97],11, C_text("##sys#error")); lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\0003shell invocation failed with non-zero return status")); lf[99]=C_h_intern(&lf[99],18, C_text("chicken.process#qs")); lf[100]=C_h_intern(&lf[100],7, C_text("mingw32")); lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\042\042")); lf[102]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004\047\134\047\047")); lf[103]=C_h_intern(&lf[103],18, C_text("chicken.base#error")); lf[104]=C_h_intern(&lf[104],2, C_text("qs")); lf[105]=C_decode_literal(C_heaptop,C_text("\376B\000\0004NUL character can not be represented in shell string")); lf[106]=C_h_intern(&lf[106],20, C_text("scheme#string-append")); lf[107]=C_h_intern(&lf[107],18, C_text("##sys#string->list")); lf[108]=C_h_intern(&lf[108],33, C_text("chicken.platform#software-version")); lf[109]=C_h_intern(&lf[109],31, C_text("chicken.process#process-execute")); lf[110]=C_h_intern(&lf[110],28, C_text("chicken.process#process-fork")); lf[111]=C_h_intern(&lf[111],27, C_text("chicken.process#process-run")); lf[112]=C_h_intern(&lf[112],30, C_text("chicken.process#process-signal")); lf[113]=C_h_intern(&lf[113],29, C_text("chicken.process#process-spawn")); lf[114]=C_h_intern(&lf[114],28, C_text("chicken.process#process-wait")); lf[115]=C_h_intern(&lf[115],36, C_text("chicken.process#call-with-input-pipe")); lf[116]=C_h_intern(&lf[116],37, C_text("chicken.process#call-with-output-pipe")); lf[117]=C_h_intern(&lf[117],32, C_text("chicken.process#close-input-pipe")); lf[118]=C_h_intern(&lf[118],33, C_text("chicken.process#close-output-pipe")); lf[119]=C_h_intern(&lf[119],27, C_text("chicken.process#create-pipe")); lf[120]=C_h_intern(&lf[120],31, C_text("chicken.process#open-input-pipe")); lf[121]=C_h_intern(&lf[121],32, C_text("chicken.process#open-output-pipe")); lf[122]=C_h_intern(&lf[122],36, C_text("chicken.process#with-input-from-pipe")); lf[123]=C_h_intern(&lf[123],35, C_text("chicken.process#with-output-to-pipe")); lf[124]=C_h_intern(&lf[124],23, C_text("chicken.process#process")); lf[125]=C_h_intern(&lf[125],24, C_text("chicken.process#process\052")); lf[126]=C_h_intern(&lf[126],29, C_text("chicken.process#process-sleep")); lf[127]=C_h_intern(&lf[127],24, C_text("chicken.process#pipe/buf")); lf[128]=C_h_intern(&lf[128],29, C_text("chicken.process#spawn/overlay")); lf[129]=C_h_intern(&lf[129],26, C_text("chicken.process#spawn/wait")); lf[130]=C_h_intern(&lf[130],28, C_text("chicken.process#spawn/nowait")); lf[131]=C_h_intern(&lf[131],29, C_text("chicken.process#spawn/nowaito")); lf[132]=C_h_intern(&lf[132],28, C_text("chicken.process#spawn/detach")); lf[133]=C_h_intern(&lf[133],23, C_text("chicken.process.signal#")); lf[134]=C_h_intern(&lf[134],33, C_text("chicken.process.signal#set-alarm!")); lf[135]=C_h_intern(&lf[135],42, C_text("chicken.process.signal#set-signal-handler!")); lf[136]=C_h_intern(&lf[136],39, C_text("chicken.process.signal#set-signal-mask!")); lf[137]=C_h_intern(&lf[137],37, C_text("chicken.process.signal#signal-handler")); lf[138]=C_h_intern(&lf[138],34, C_text("chicken.process.signal#signal-mask")); lf[139]=C_h_intern(&lf[139],35, C_text("chicken.process.signal#signal-mask!")); lf[140]=C_h_intern(&lf[140],37, C_text("chicken.process.signal#signal-masked\077")); lf[141]=C_h_intern(&lf[141],37, C_text("chicken.process.signal#signal-unmask!")); lf[142]=C_h_intern(&lf[142],34, C_text("chicken.process.signal#signal/abrt")); lf[143]=C_h_intern(&lf[143],34, C_text("chicken.process.signal#signal/alrm")); lf[144]=C_h_intern(&lf[144],35, C_text("chicken.process.signal#signal/break")); lf[145]=C_h_intern(&lf[145],33, C_text("chicken.process.signal#signal/bus")); lf[146]=C_h_intern(&lf[146],34, C_text("chicken.process.signal#signal/chld")); lf[147]=C_h_intern(&lf[147],34, C_text("chicken.process.signal#signal/cont")); lf[148]=C_h_intern(&lf[148],33, C_text("chicken.process.signal#signal/fpe")); lf[149]=C_h_intern(&lf[149],33, C_text("chicken.process.signal#signal/hup")); lf[150]=C_h_intern(&lf[150],33, C_text("chicken.process.signal#signal/ill")); lf[151]=C_h_intern(&lf[151],33, C_text("chicken.process.signal#signal/int")); lf[152]=C_h_intern(&lf[152],32, C_text("chicken.process.signal#signal/io")); lf[153]=C_h_intern(&lf[153],34, C_text("chicken.process.signal#signal/kill")); lf[154]=C_h_intern(&lf[154],34, C_text("chicken.process.signal#signal/pipe")); lf[155]=C_h_intern(&lf[155],34, C_text("chicken.process.signal#signal/prof")); lf[156]=C_h_intern(&lf[156],34, C_text("chicken.process.signal#signal/quit")); lf[157]=C_h_intern(&lf[157],34, C_text("chicken.process.signal#signal/segv")); lf[158]=C_h_intern(&lf[158],34, C_text("chicken.process.signal#signal/stop")); lf[159]=C_h_intern(&lf[159],34, C_text("chicken.process.signal#signal/term")); lf[160]=C_h_intern(&lf[160],34, C_text("chicken.process.signal#signal/trap")); lf[161]=C_h_intern(&lf[161],34, C_text("chicken.process.signal#signal/tstp")); lf[162]=C_h_intern(&lf[162],33, C_text("chicken.process.signal#signal/urg")); lf[163]=C_h_intern(&lf[163],34, C_text("chicken.process.signal#signal/usr1")); lf[164]=C_h_intern(&lf[164],34, C_text("chicken.process.signal#signal/usr2")); lf[165]=C_h_intern(&lf[165],36, C_text("chicken.process.signal#signal/vtalrm")); lf[166]=C_h_intern(&lf[166],35, C_text("chicken.process.signal#signal/winch")); lf[167]=C_h_intern(&lf[167],34, C_text("chicken.process.signal#signal/xcpu")); lf[168]=C_h_intern(&lf[168],34, C_text("chicken.process.signal#signal/xfsz")); lf[169]=C_h_intern(&lf[169],35, C_text("chicken.process.signal#signals-list")); lf[170]=C_h_intern(&lf[170],30, C_text("chicken.process-context.posix#")); lf[171]=C_h_intern(&lf[171],47, C_text("chicken.process-context.posix#change-directory\052")); lf[172]=C_h_intern(&lf[172],49, C_text("chicken.process-context.posix#set-root-directory!")); lf[173]=C_h_intern(&lf[173],56, C_text("chicken.process-context.posix#current-effective-group-id")); lf[174]=C_h_intern(&lf[174],55, C_text("chicken.process-context.posix#current-effective-user-id")); lf[175]=C_h_intern(&lf[175],46, C_text("chicken.process-context.posix#current-group-id")); lf[176]=C_h_intern(&lf[176],45, C_text("chicken.process-context.posix#current-user-id")); lf[177]=C_h_intern(&lf[177],48, C_text("chicken.process-context.posix#current-process-id")); lf[178]=C_h_intern(&lf[178],47, C_text("chicken.process-context.posix#parent-process-id")); lf[179]=C_h_intern(&lf[179],47, C_text("chicken.process-context.posix#current-user-name")); lf[180]=C_h_intern(&lf[180],57, C_text("chicken.process-context.posix#current-effective-user-name")); lf[181]=C_h_intern(&lf[181],44, C_text("chicken.process-context.posix#create-session")); lf[182]=C_h_intern(&lf[182],46, C_text("chicken.process-context.posix#process-group-id")); lf[183]=C_h_intern(&lf[183],46, C_text("chicken.process-context.posix#user-information")); lf[184]=C_h_intern(&lf[184],14, C_text("chicken.posix#")); lf[186]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 - ")); lf[187]=C_h_intern(&lf[187],19, C_text("##sys#peek-c-string")); lf[188]=C_h_intern(&lf[188],17, C_text("##sys#posix-error")); lf[190]=C_h_intern_kw(&lf[190],10, C_text("file-error")); lf[191]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022cannot access file")); lf[192]=C_h_intern(&lf[192],19, C_text("##sys#make-c-string")); lf[193]=C_h_intern_kw(&lf[193],10, C_text("type-error")); lf[194]=C_decode_literal(C_heaptop,C_text("\376B\000\0000bad argument type - not a fixnum, port or string")); lf[195]=C_h_intern(&lf[195],18, C_text("chicken.base#port\077")); lf[196]=C_h_intern(&lf[196],28, C_text("chicken.file.posix#file-stat")); lf[197]=C_h_intern(&lf[197],9, C_text("file-stat")); lf[198]=C_h_intern(&lf[198],40, C_text("chicken.file.posix#set-file-permissions!")); lf[199]=C_h_intern(&lf[199],21, C_text("set-file-permissions!")); lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036cannot change file permissions")); lf[201]=C_h_intern(&lf[201],16, C_text("file-permissions")); lf[202]=C_decode_literal(C_heaptop,C_text("\376B\000\0000bad argument type - not a fixnum, port or string")); lf[203]=C_h_intern(&lf[203],18, C_text("##sys#check-fixnum")); lf[204]=C_h_intern(&lf[204],41, C_text("chicken.file.posix#file-modification-time")); lf[205]=C_h_intern(&lf[205],22, C_text("file-modification-time")); lf[206]=C_h_intern(&lf[206],35, C_text("chicken.file.posix#file-access-time")); lf[207]=C_h_intern(&lf[207],16, C_text("file-access-time")); lf[208]=C_h_intern(&lf[208],35, C_text("chicken.file.posix#file-change-time")); lf[209]=C_h_intern(&lf[209],16, C_text("file-change-time")); lf[210]=C_h_intern(&lf[210],34, C_text("chicken.file.posix#set-file-times!")); lf[211]=C_h_intern(&lf[211],15, C_text("set-file-times!")); lf[212]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025cannot set file times")); lf[213]=C_h_intern(&lf[213],25, C_text("##sys#check-exact-integer")); lf[214]=C_h_intern(&lf[214],28, C_text("chicken.time#current-seconds")); lf[215]=C_h_intern(&lf[215],28, C_text("chicken.file.posix#file-size")); lf[216]=C_h_intern(&lf[216],9, C_text("file-size")); lf[217]=C_h_intern(&lf[217],34, C_text("chicken.file.posix#set-file-owner!")); lf[218]=C_h_intern(&lf[218],15, C_text("set-file-owner!")); lf[219]=C_h_intern(&lf[219],5, C_text("chown")); lf[220]=C_h_intern(&lf[220],34, C_text("chicken.file.posix#set-file-group!")); lf[221]=C_h_intern(&lf[221],15, C_text("set-file-group!")); lf[222]=C_h_intern(&lf[222],12, C_text("regular-file")); lf[223]=C_h_intern(&lf[223],13, C_text("symbolic-link")); lf[224]=C_h_intern(&lf[224],9, C_text("directory")); lf[225]=C_h_intern(&lf[225],16, C_text("character-device")); lf[226]=C_h_intern(&lf[226],12, C_text("block-device")); lf[227]=C_h_intern(&lf[227],4, C_text("fifo")); lf[228]=C_h_intern(&lf[228],6, C_text("socket")); lf[229]=C_h_intern(&lf[229],9, C_text("file-type")); lf[230]=C_h_intern(&lf[230],18, C_text("set-file-position!")); lf[231]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030cannot set file position")); lf[232]=C_h_intern(&lf[232],6, C_text("stream")); lf[233]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014invalid file")); lf[234]=C_h_intern_kw(&lf[234],6, C_text("append")); lf[235]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001a")); lf[236]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033invalid mode for input file")); lf[237]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025invalid mode argument")); lf[238]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001r")); lf[239]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001w")); lf[240]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020cannot open file")); lf[241]=C_h_intern(&lf[241],15, C_text("##sys#make-port")); lf[242]=C_h_intern(&lf[242],23, C_text("##sys#stream-port-class")); lf[243]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(fdport)")); lf[244]=C_h_intern(&lf[244],16, C_text("open-input-file\052")); lf[245]=C_h_intern(&lf[245],17, C_text("open-output-file\052")); lf[246]=C_h_intern(&lf[246],12, C_text("port->fileno")); lf[247]=C_h_intern(&lf[247],15, C_text("##sys#port-data")); lf[248]=C_decode_literal(C_heaptop,C_text("\376B\000\000%cannot access file-descriptor of port")); lf[249]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031port has no attached file")); lf[250]=C_h_intern(&lf[250],27, C_text("##sys#peek-unsigned-integer")); lf[251]=C_h_intern(&lf[251],16, C_text("duplicate-fileno")); lf[252]=C_decode_literal(C_heaptop,C_text("\376B\000\000 cannot duplicate file-descriptor")); lf[253]=C_h_intern(&lf[253],17, C_text("change-directory\052")); lf[254]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037cannot change current directory")); lf[255]=C_h_intern(&lf[255],27, C_text("##sys#change-directory-hook")); lf[258]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025time vector too short")); lf[259]=C_h_intern(&lf[259],19, C_text("seconds->local-time")); lf[260]=C_h_intern(&lf[260],17, C_text("seconds->utc-time")); lf[261]=C_h_intern(&lf[261],15, C_text("##sys#substring")); lf[262]=C_h_intern(&lf[262],15, C_text("seconds->string")); lf[263]=C_decode_literal(C_heaptop,C_text("\376B\000\000 cannot convert seconds to string")); lf[264]=C_h_intern(&lf[264],19, C_text("local-time->seconds")); lf[265]=C_decode_literal(C_heaptop,C_text("\376B\000\000%cannot convert time vector to seconds")); lf[266]=C_h_intern(&lf[266],17, C_text("##sys#make-string")); lf[267]=C_h_intern(&lf[267],12, C_text("time->string")); lf[268]=C_decode_literal(C_heaptop,C_text("\376B\000\000 time formatting overflows buffer")); lf[269]=C_decode_literal(C_heaptop,C_text("\376B\000\000$cannot convert time vector to string")); lf[270]=C_h_intern(&lf[270],19, C_text("##sys#signal-vector")); lf[271]=C_h_intern(&lf[271],19, C_text("set-signal-handler!")); lf[272]=C_h_intern(&lf[272],13, C_text("process-sleep")); lf[273]=C_h_intern(&lf[273],12, C_text("process-wait")); lf[274]=C_decode_literal(C_heaptop,C_text("\376B\000\000 waiting for child process failed")); lf[276]=C_h_intern(&lf[276],24, C_text("chicken.condition#signal")); lf[278]=C_h_intern(&lf[278],34, C_text("chicken.memory#pointer-vector-set!")); lf[279]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015Out of memory")); lf[280]=C_h_intern(&lf[280],40, C_text("chicken.condition#with-exception-handler")); lf[281]=C_h_intern(&lf[281],37, C_text("scheme#call-with-current-continuation")); lf[282]=C_h_intern(&lf[282],34, C_text("chicken.memory#make-pointer-vector")); lf[283]=C_h_intern(&lf[283],19, C_text("chicken.memory#free")); lf[284]=C_h_intern(&lf[284],33, C_text("chicken.memory#pointer-vector-ref")); lf[285]=C_h_intern(&lf[285],36, C_text("chicken.memory#pointer-vector-length")); lf[287]=C_h_intern(&lf[287],41, C_text("chicken.pathname#pathname-strip-directory")); lf[289]=C_h_intern(&lf[289],3, C_text("map")); lf[290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001=")); lf[291]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020cannot open pipe")); lf[292]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006(pipe)")); lf[293]=C_h_intern(&lf[293],15, C_text("open-input-pipe")); lf[294]=C_h_intern_kw(&lf[294],4, C_text("text")); lf[295]=C_h_intern_kw(&lf[295],6, C_text("binary")); lf[296]=C_decode_literal(C_heaptop,C_text("\376B\000\000#illegal input/output mode specifier")); lf[297]=C_h_intern(&lf[297],16, C_text("open-output-pipe")); lf[298]=C_h_intern(&lf[298],16, C_text("close-input-pipe")); lf[299]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030error while closing pipe")); lf[300]=C_h_intern(&lf[300],17, C_text("close-output-pipe")); lf[301]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030error while closing pipe")); lf[302]=C_h_intern(&lf[302],20, C_text("##sys#standard-input")); lf[303]=C_h_intern(&lf[303],13, C_text("scheme#values")); lf[304]=C_h_intern(&lf[304],18, C_text("##sys#dynamic-wind")); lf[305]=C_h_intern(&lf[305],21, C_text("##sys#standard-output")); lf[306]=C_h_intern(&lf[306],9, C_text("file-open")); lf[307]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020cannot open file")); lf[308]=C_h_intern(&lf[308],24, C_text("##sys#dispatch-interrupt")); lf[309]=C_h_intern(&lf[309],10, C_text("file-close")); lf[310]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021cannot close file")); lf[311]=C_h_intern(&lf[311],9, C_text("file-read")); lf[312]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025cannot read from file")); lf[313]=C_decode_literal(C_heaptop,C_text("\376B\000\000(bad argument type - not a string or blob")); lf[314]=C_h_intern(&lf[314],18, C_text("scheme#make-string")); lf[315]=C_h_intern(&lf[315],10, C_text("file-write")); lf[316]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024cannot write to file")); lf[317]=C_decode_literal(C_heaptop,C_text("\376B\000\000(bad argument type - not a string or blob")); lf[318]=C_h_intern(&lf[318],12, C_text("file-mkstemp")); lf[319]=C_decode_literal(C_heaptop,C_text("\376B\000\000$0123456789abcdefghijklmnopqrstuvwxyz")); lf[320]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034cannot create temporary file")); lf[321]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026non-existent directory")); lf[322]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020invalid template")); lf[323]=C_h_intern(&lf[323],18, C_text("##sys#file-exists\077")); lf[324]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[325]=C_h_intern(&lf[325],35, C_text("chicken.pathname#pathname-directory")); lf[326]=C_h_intern(&lf[326],18, C_text("scheme#string-copy")); lf[327]=C_h_intern(&lf[327],11, C_text("create-pipe")); lf[328]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022cannot create pipe")); lf[330]=C_decode_literal(C_heaptop,C_text("\376B\000\000 cannot duplicate file descriptor")); lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[333]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[334]=C_h_intern(&lf[334],15, C_text("process-execute")); lf[335]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026cannot execute process")); lf[336]=C_h_intern(&lf[336],13, C_text("process-spawn")); lf[337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024cannot spawn process")); lf[339]=C_decode_literal(C_heaptop,C_text("\376B\000\000 cannot retrieve system directory")); lf[340]=C_h_intern(&lf[340],48, C_text("chicken.process-context#get-environment-variable")); lf[341]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007COMSPEC")); lf[342]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002/c")); lf[343]=C_h_intern(&lf[343],11, C_text("process-run")); lf[344]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026cannot execute process")); lf[345]=C_h_intern(&lf[345],19, C_text("##sys#make-locative")); lf[346]=C_h_intern(&lf[346],8, C_text("location")); lf[347]=C_h_intern(&lf[347],33, C_text("chicken.string#string-intersperse")); lf[348]=C_h_intern(&lf[348],7, C_text("process")); lf[349]=C_h_intern(&lf[349],8, C_text("process\052")); lf[350]=C_h_intern(&lf[350],17, C_text("current-user-name")); lf[351]=C_decode_literal(C_heaptop,C_text("\376B\000\000!cannot retrieve current user-name")); lf[352]=C_h_intern(&lf[352],14, C_text("chicken.errno#")); lf[353]=C_h_intern(&lf[353],19, C_text("chicken.errno#errno")); lf[354]=C_h_intern(&lf[354],11, C_text("##sys#errno")); lf[355]=C_h_intern(&lf[355],24, C_text("chicken.errno#errno/2big")); lf[356]=C_h_intern(&lf[356],25, C_text("chicken.errno#errno/acces")); lf[357]=C_h_intern(&lf[357],25, C_text("chicken.errno#errno/again")); lf[358]=C_h_intern(&lf[358],24, C_text("chicken.errno#errno/badf")); lf[359]=C_h_intern(&lf[359],24, C_text("chicken.errno#errno/busy")); lf[360]=C_h_intern(&lf[360],25, C_text("chicken.errno#errno/child")); lf[361]=C_h_intern(&lf[361],26, C_text("chicken.errno#errno/deadlk")); lf[362]=C_h_intern(&lf[362],23, C_text("chicken.errno#errno/dom")); lf[363]=C_h_intern(&lf[363],25, C_text("chicken.errno#errno/exist")); lf[364]=C_h_intern(&lf[364],25, C_text("chicken.errno#errno/fault")); lf[365]=C_h_intern(&lf[365],24, C_text("chicken.errno#errno/fbig")); lf[366]=C_h_intern(&lf[366],25, C_text("chicken.errno#errno/ilseq")); lf[367]=C_h_intern(&lf[367],24, C_text("chicken.errno#errno/intr")); lf[368]=C_h_intern(&lf[368],25, C_text("chicken.errno#errno/inval")); lf[369]=C_h_intern(&lf[369],22, C_text("chicken.errno#errno/io")); lf[370]=C_h_intern(&lf[370],25, C_text("chicken.errno#errno/isdir")); lf[371]=C_h_intern(&lf[371],25, C_text("chicken.errno#errno/mfile")); lf[372]=C_h_intern(&lf[372],25, C_text("chicken.errno#errno/mlink")); lf[373]=C_h_intern(&lf[373],31, C_text("chicken.errno#errno/nametoolong")); lf[374]=C_h_intern(&lf[374],25, C_text("chicken.errno#errno/nfile")); lf[375]=C_h_intern(&lf[375],25, C_text("chicken.errno#errno/nodev")); lf[376]=C_h_intern(&lf[376],25, C_text("chicken.errno#errno/noent")); lf[377]=C_h_intern(&lf[377],26, C_text("chicken.errno#errno/noexec")); lf[378]=C_h_intern(&lf[378],25, C_text("chicken.errno#errno/nolck")); lf[379]=C_h_intern(&lf[379],25, C_text("chicken.errno#errno/nomem")); lf[380]=C_h_intern(&lf[380],25, C_text("chicken.errno#errno/nospc")); lf[381]=C_h_intern(&lf[381],25, C_text("chicken.errno#errno/nosys")); lf[382]=C_h_intern(&lf[382],26, C_text("chicken.errno#errno/notdir")); lf[383]=C_h_intern(&lf[383],28, C_text("chicken.errno#errno/notempty")); lf[384]=C_h_intern(&lf[384],25, C_text("chicken.errno#errno/notty")); lf[385]=C_h_intern(&lf[385],24, C_text("chicken.errno#errno/nxio")); lf[386]=C_h_intern(&lf[386],24, C_text("chicken.errno#errno/perm")); lf[387]=C_h_intern(&lf[387],24, C_text("chicken.errno#errno/pipe")); lf[388]=C_h_intern(&lf[388],25, C_text("chicken.errno#errno/range")); lf[389]=C_h_intern(&lf[389],24, C_text("chicken.errno#errno/rofs")); lf[390]=C_h_intern(&lf[390],25, C_text("chicken.errno#errno/spipe")); lf[391]=C_h_intern(&lf[391],24, C_text("chicken.errno#errno/srch")); lf[392]=C_h_intern(&lf[392],30, C_text("chicken.errno#errno/wouldblock")); lf[393]=C_h_intern(&lf[393],24, C_text("chicken.errno#errno/xdev")); lf[394]=C_h_intern(&lf[394],14, C_text("signal-handler")); lf[395]=C_h_intern(&lf[395],31, C_text("chicken.base#getter-with-setter")); lf[396]=C_decode_literal(C_heaptop,C_text("\376B\000\000+(chicken.process.signal#signal-handler sig)")); lf[397]=C_h_intern(&lf[397],18, C_text("file-creation-mode")); lf[398]=C_decode_literal(C_heaptop,C_text("\376B\000\000,(chicken.file.posix#file-creation-mode mode)")); lf[399]=C_h_intern(&lf[399],13, C_text("file-position")); lf[400]=C_decode_literal(C_heaptop,C_text("\376B\000\000%cannot retrieve file position of port")); lf[401]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014invalid file")); lf[402]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047(chicken.file.posix#file-position port)")); lf[403]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047(chicken.file.posix#file-permissions f)")); lf[404]=C_h_intern(&lf[404],10, C_text("file-group")); lf[405]=C_decode_literal(C_heaptop,C_text("\376B\000\000!(chicken.file.posix#file-group f)")); lf[406]=C_h_intern(&lf[406],10, C_text("file-owner")); lf[407]=C_decode_literal(C_heaptop,C_text("\376B\000\000!(chicken.file.posix#file-owner f)")); C_register_lf2(lf,408,create_ptable());{} t2=C_mutate(&lf[0] /* (set! c1660 ...) */,lf[1]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2227,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t3; C_scheduler_toplevel(2,av2);}} /* va6075 in k4341 in loop in k4328 in k4325 in k4319 */ static void C_fcall va6075(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){ C_save_and_reclaim_args((void *)trva6075,2,t0,t1);} a=C_alloc(5); t2=C_s_a_i_bitwise_ior(&a,2,t1,*((C_word*)lf[47]+1)); t3=C_fixnum_or(C_fix((C_word)S_IRUSR),C_fix((C_word)S_IWUSR)); t4=C_open(((C_word*)t0)[2],t2,t3); t5=C_eqp(C_fix(-1),t4); if(C_truep(t5)){ if(C_truep(C_fixnum_lessp(((C_word*)t0)[3],((C_word*)t0)[4]))){ t6=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* posixwin.scm:602: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_4335(t7,((C_word*)t0)[6],t6);} else{ /* posixwin.scm:603: posix-error */ t6=lf[185];{ C_word av2[6]; av2[0]=t6; av2[1]=((C_word*)t0)[6]; av2[2]=lf[190]; av2[3]=lf[318]; av2[4]=lf[320]; av2[5]=((C_word*)t0)[7]; f_2552(6,av2);}}} else{ /* posixwin.scm:604: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[6]; av2[2]=t4; av2[3]=((C_word*)t0)[8]; C_values(4,av2);}}} /* va6083 in chicken.file.posix#file-mkstemp in k3470 in k3235 in k3018 in k2801 in k2797 in k2793 in k2243 in k2240 in k2237 in k2234 in k2231 in k2228 in k2225 */ static void C_fcall va6083(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,0,2)))){ C_save_and_reclaim_args((void *)trva6083,2,t0,t1);} a=C_alloc(40); t2=C_s_a_i_times(&a,2,t1,((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4321,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* posixwin.scm:574: scheme#string-copy */ t5=*((C_word*)lf[326]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[359] = { {C_text("f_2227:posix_2escm"),(void*)f_2227}, {C_text("f_2230:posix_2escm"),(void*)f_2230}, {C_text("f_2233:posix_2escm"),(void*)f_2233}, {C_text("f_2236:posix_2escm"),(void*)f_2236}, {C_text("f_2239:posix_2escm"),(void*)f_2239}, {C_text("f_2242:posix_2escm"),(void*)f_2242}, {C_text("f_2245:posix_2escm"),(void*)f_2245}, {C_text("f_2331:posix_2escm"),(void*)f_2331}, {C_text("f_2344:posix_2escm"),(void*)f_2344}, {C_text("f_2349:posix_2escm"),(void*)f_2349}, {C_text("f_2353:posix_2escm"),(void*)f_2353}, {C_text("f_2365:posix_2escm"),(void*)f_2365}, {C_text("f_2369:posix_2escm"),(void*)f_2369}, {C_text("f_2379:posix_2escm"),(void*)f_2379}, {C_text("f_2400:posix_2escm"),(void*)f_2400}, {C_text("f_2403:posix_2escm"),(void*)f_2403}, {C_text("f_2414:posix_2escm"),(void*)f_2414}, {C_text("f_2420:posix_2escm"),(void*)f_2420}, {C_text("f_2445:posix_2escm"),(void*)f_2445}, {C_text("f_2552:posix_2escm"),(void*)f_2552}, {C_text("f_2556:posix_2escm"),(void*)f_2556}, {C_text("f_2563:posix_2escm"),(void*)f_2563}, {C_text("f_2567:posix_2escm"),(void*)f_2567}, {C_text("f_2570:posix_2escm"),(void*)f_2570}, {C_text("f_2574:posix_2escm"),(void*)f_2574}, {C_text("f_2595:posix_2escm"),(void*)f_2595}, {C_text("f_2599:posix_2escm"),(void*)f_2599}, {C_text("f_2608:posix_2escm"),(void*)f_2608}, {C_text("f_2616:posix_2escm"),(void*)f_2616}, {C_text("f_2623:posix_2escm"),(void*)f_2623}, {C_text("f_2634:posix_2escm"),(void*)f_2634}, {C_text("f_2638:posix_2escm"),(void*)f_2638}, {C_text("f_2641:posix_2escm"),(void*)f_2641}, {C_text("f_2659:posix_2escm"),(void*)f_2659}, {C_text("f_2663:posix_2escm"),(void*)f_2663}, {C_text("f_2673:posix_2escm"),(void*)f_2673}, {C_text("f_2678:posix_2escm"),(void*)f_2678}, {C_text("f_2682:posix_2escm"),(void*)f_2682}, {C_text("f_2684:posix_2escm"),(void*)f_2684}, {C_text("f_2688:posix_2escm"),(void*)f_2688}, {C_text("f_2690:posix_2escm"),(void*)f_2690}, {C_text("f_2694:posix_2escm"),(void*)f_2694}, {C_text("f_2696:posix_2escm"),(void*)f_2696}, {C_text("f_2700:posix_2escm"),(void*)f_2700}, {C_text("f_2712:posix_2escm"),(void*)f_2712}, {C_text("f_2715:posix_2escm"),(void*)f_2715}, {C_text("f_2721:posix_2escm"),(void*)f_2721}, {C_text("f_2731:posix_2escm"),(void*)f_2731}, {C_text("f_2775:posix_2escm"),(void*)f_2775}, {C_text("f_2779:posix_2escm"),(void*)f_2779}, {C_text("f_2781:posix_2escm"),(void*)f_2781}, {C_text("f_2787:posix_2escm"),(void*)f_2787}, {C_text("f_2795:posix_2escm"),(void*)f_2795}, {C_text("f_2799:posix_2escm"),(void*)f_2799}, {C_text("f_2803:posix_2escm"),(void*)f_2803}, {C_text("f_2805:posix_2escm"),(void*)f_2805}, {C_text("f_2824:posix_2escm"),(void*)f_2824}, {C_text("f_2892:posix_2escm"),(void*)f_2892}, {C_text("f_2900:posix_2escm"),(void*)f_2900}, {C_text("f_2902:posix_2escm"),(void*)f_2902}, {C_text("f_2910:posix_2escm"),(void*)f_2910}, {C_text("f_2912:posix_2escm"),(void*)f_2912}, {C_text("f_2920:posix_2escm"),(void*)f_2920}, {C_text("f_2922:posix_2escm"),(void*)f_2922}, {C_text("f_2930:posix_2escm"),(void*)f_2930}, {C_text("f_2932:posix_2escm"),(void*)f_2932}, {C_text("f_2940:posix_2escm"),(void*)f_2940}, {C_text("f_2942:posix_2escm"),(void*)f_2942}, {C_text("f_2950:posix_2escm"),(void*)f_2950}, {C_text("f_2952:posix_2escm"),(void*)f_2952}, {C_text("f_2960:posix_2escm"),(void*)f_2960}, {C_text("f_2965:posix_2escm"),(void*)f_2965}, {C_text("f_2969:posix_2escm"),(void*)f_2969}, {C_text("f_2972:posix_2escm"),(void*)f_2972}, {C_text("f_2975:posix_2escm"),(void*)f_2975}, {C_text("f_2981:posix_2escm"),(void*)f_2981}, {C_text("f_2987:posix_2escm"),(void*)f_2987}, {C_text("f_3020:posix_2escm"),(void*)f_3020}, {C_text("f_3048:posix_2escm"),(void*)f_3048}, {C_text("f_3056:posix_2escm"),(void*)f_3056}, {C_text("f_3085:posix_2escm"),(void*)f_3085}, {C_text("f_3098:posix_2escm"),(void*)f_3098}, {C_text("f_3104:posix_2escm"),(void*)f_3104}, {C_text("f_3108:posix_2escm"),(void*)f_3108}, {C_text("f_3116:posix_2escm"),(void*)f_3116}, {C_text("f_3118:posix_2escm"),(void*)f_3118}, {C_text("f_3122:posix_2escm"),(void*)f_3122}, {C_text("f_3130:posix_2escm"),(void*)f_3130}, {C_text("f_3132:posix_2escm"),(void*)f_3132}, {C_text("f_3148:posix_2escm"),(void*)f_3148}, {C_text("f_3157:posix_2escm"),(void*)f_3157}, {C_text("f_3171:posix_2escm"),(void*)f_3171}, {C_text("f_3177:posix_2escm"),(void*)f_3177}, {C_text("f_3181:posix_2escm"),(void*)f_3181}, {C_text("f_3184:posix_2escm"),(void*)f_3184}, {C_text("f_3187:posix_2escm"),(void*)f_3187}, {C_text("f_3202:posix_2escm"),(void*)f_3202}, {C_text("f_3204:posix_2escm"),(void*)f_3204}, {C_text("f_3207:posix_2escm"),(void*)f_3207}, {C_text("f_3211:posix_2escm"),(void*)f_3211}, {C_text("f_3214:posix_2escm"),(void*)f_3214}, {C_text("f_3223:posix_2escm"),(void*)f_3223}, {C_text("f_3237:posix_2escm"),(void*)f_3237}, {C_text("f_3240:posix_2escm"),(void*)f_3240}, {C_text("f_3259:posix_2escm"),(void*)f_3259}, {C_text("f_3263:posix_2escm"),(void*)f_3263}, {C_text("f_3266:posix_2escm"),(void*)f_3266}, {C_text("f_3280:posix_2escm"),(void*)f_3280}, {C_text("f_3284:posix_2escm"),(void*)f_3284}, {C_text("f_3287:posix_2escm"),(void*)f_3287}, {C_text("f_3312:posix_2escm"),(void*)f_3312}, {C_text("f_3316:posix_2escm"),(void*)f_3316}, {C_text("f_3319:posix_2escm"),(void*)f_3319}, {C_text("f_3322:posix_2escm"),(void*)f_3322}, {C_text("f_3350:posix_2escm"),(void*)f_3350}, {C_text("f_3354:posix_2escm"),(void*)f_3354}, {C_text("f_3358:posix_2escm"),(void*)f_3358}, {C_text("f_3395:posix_2escm"),(void*)f_3395}, {C_text("f_3402:posix_2escm"),(void*)f_3402}, {C_text("f_3411:posix_2escm"),(void*)f_3411}, {C_text("f_3421:posix_2escm"),(void*)f_3421}, {C_text("f_3425:posix_2escm"),(void*)f_3425}, {C_text("f_3428:posix_2escm"),(void*)f_3428}, {C_text("f_3449:posix_2escm"),(void*)f_3449}, {C_text("f_3457:posix_2escm"),(void*)f_3457}, {C_text("f_3461:posix_2escm"),(void*)f_3461}, {C_text("f_3472:posix_2escm"),(void*)f_3472}, {C_text("f_3474:posix_2escm"),(void*)f_3474}, {C_text("f_3478:posix_2escm"),(void*)f_3478}, {C_text("f_3480:posix_2escm"),(void*)f_3480}, {C_text("f_3499:posix_2escm"),(void*)f_3499}, {C_text("f_3504:posix_2escm"),(void*)f_3504}, {C_text("f_3510:posix_2escm"),(void*)f_3510}, {C_text("f_3551:posix_2escm"),(void*)f_3551}, {C_text("f_3559:posix_2escm"),(void*)f_3559}, {C_text("f_3562:posix_2escm"),(void*)f_3562}, {C_text("f_3567:posix_2escm"),(void*)f_3567}, {C_text("f_3573:posix_2escm"),(void*)f_3573}, {C_text("f_3579:posix_2escm"),(void*)f_3579}, {C_text("f_3583:posix_2escm"),(void*)f_3583}, {C_text("f_3588:posix_2escm"),(void*)f_3588}, {C_text("f_3590:posix_2escm"),(void*)f_3590}, {C_text("f_3594:posix_2escm"),(void*)f_3594}, {C_text("f_3596:posix_2escm"),(void*)f_3596}, {C_text("f_3612:posix_2escm"),(void*)f_3612}, {C_text("f_3618:posix_2escm"),(void*)f_3618}, {C_text("f_3621:posix_2escm"),(void*)f_3621}, {C_text("f_3637:posix_2escm"),(void*)f_3637}, {C_text("f_3647:posix_2escm"),(void*)f_3647}, {C_text("f_3653:posix_2escm"),(void*)f_3653}, {C_text("f_3664:posix_2escm"),(void*)f_3664}, {C_text("f_3668:posix_2escm"),(void*)f_3668}, {C_text("f_3672:posix_2escm"),(void*)f_3672}, {C_text("f_3677:posix_2escm"),(void*)f_3677}, {C_text("f_3687:posix_2escm"),(void*)f_3687}, {C_text("f_3690:posix_2escm"),(void*)f_3690}, {C_text("f_3702:posix_2escm"),(void*)f_3702}, {C_text("f_3707:posix_2escm"),(void*)f_3707}, {C_text("f_3726:posix_2escm"),(void*)f_3726}, {C_text("f_3749:posix_2escm"),(void*)f_3749}, {C_text("f_3751:posix_2escm"),(void*)f_3751}, {C_text("f_3755:posix_2escm"),(void*)f_3755}, {C_text("f_3761:posix_2escm"),(void*)f_3761}, {C_text("f_3764:posix_2escm"),(void*)f_3764}, {C_text("f_3769:posix_2escm"),(void*)f_3769}, {C_text("f_3775:posix_2escm"),(void*)f_3775}, {C_text("f_3781:posix_2escm"),(void*)f_3781}, {C_text("f_3785:posix_2escm"),(void*)f_3785}, {C_text("f_3788:posix_2escm"),(void*)f_3788}, {C_text("f_3796:posix_2escm"),(void*)f_3796}, {C_text("f_3802:posix_2escm"),(void*)f_3802}, {C_text("f_3806:posix_2escm"),(void*)f_3806}, {C_text("f_3813:posix_2escm"),(void*)f_3813}, {C_text("f_3816:posix_2escm"),(void*)f_3816}, {C_text("f_3820:posix_2escm"),(void*)f_3820}, {C_text("f_3841:posix_2escm"),(void*)f_3841}, {C_text("f_3843:posix_2escm"),(void*)f_3843}, {C_text("f_3868:posix_2escm"),(void*)f_3868}, {C_text("f_3877:posix_2escm"),(void*)f_3877}, {C_text("f_3883:posix_2escm"),(void*)f_3883}, {C_text("f_3908:posix_2escm"),(void*)f_3908}, {C_text("f_3921:posix_2escm"),(void*)f_3921}, {C_text("f_3927:posix_2escm"),(void*)f_3927}, {C_text("f_3941:posix_2escm"),(void*)f_3941}, {C_text("f_3948:posix_2escm"),(void*)f_3948}, {C_text("f_3958:posix_2escm"),(void*)f_3958}, {C_text("f_3967:posix_2escm"),(void*)f_3967}, {C_text("f_3981:posix_2escm"),(void*)f_3981}, {C_text("f_3988:posix_2escm"),(void*)f_3988}, {C_text("f_3998:posix_2escm"),(void*)f_3998}, {C_text("f_4007:posix_2escm"),(void*)f_4007}, {C_text("f_4014:posix_2escm"),(void*)f_4014}, {C_text("f_4022:posix_2escm"),(void*)f_4022}, {C_text("f_4029:posix_2escm"),(void*)f_4029}, {C_text("f_4037:posix_2escm"),(void*)f_4037}, {C_text("f_4041:posix_2escm"),(void*)f_4041}, {C_text("f_4046:posix_2escm"),(void*)f_4046}, {C_text("f_4051:posix_2escm"),(void*)f_4051}, {C_text("f_4057:posix_2escm"),(void*)f_4057}, {C_text("f_4061:posix_2escm"),(void*)f_4061}, {C_text("f_4066:posix_2escm"),(void*)f_4066}, {C_text("f_4071:posix_2escm"),(void*)f_4071}, {C_text("f_4075:posix_2escm"),(void*)f_4075}, {C_text("f_4080:posix_2escm"),(void*)f_4080}, {C_text("f_4086:posix_2escm"),(void*)f_4086}, {C_text("f_4090:posix_2escm"),(void*)f_4090}, {C_text("f_4095:posix_2escm"),(void*)f_4095}, {C_text("f_4099:posix_2escm"),(void*)f_4099}, {C_text("f_4104:posix_2escm"),(void*)f_4104}, {C_text("f_4110:posix_2escm"),(void*)f_4110}, {C_text("f_4114:posix_2escm"),(void*)f_4114}, {C_text("f_4119:posix_2escm"),(void*)f_4119}, {C_text("f_4123:posix_2escm"),(void*)f_4123}, {C_text("f_4128:posix_2escm"),(void*)f_4128}, {C_text("f_4133:posix_2escm"),(void*)f_4133}, {C_text("f_4139:posix_2escm"),(void*)f_4139}, {C_text("f_4143:posix_2escm"),(void*)f_4143}, {C_text("f_4148:posix_2escm"),(void*)f_4148}, {C_text("f_4159:posix_2escm"),(void*)f_4159}, {C_text("f_4163:posix_2escm"),(void*)f_4163}, {C_text("f_4169:posix_2escm"),(void*)f_4169}, {C_text("f_4172:posix_2escm"),(void*)f_4172}, {C_text("f_4176:posix_2escm"),(void*)f_4176}, {C_text("f_4179:posix_2escm"),(void*)f_4179}, {C_text("f_4185:posix_2escm"),(void*)f_4185}, {C_text("f_4194:posix_2escm"),(void*)f_4194}, {C_text("f_4198:posix_2escm"),(void*)f_4198}, {C_text("f_4203:posix_2escm"),(void*)f_4203}, {C_text("f_4225:posix_2escm"),(void*)f_4225}, {C_text("f_4229:posix_2escm"),(void*)f_4229}, {C_text("f_4232:posix_2escm"),(void*)f_4232}, {C_text("f_4235:posix_2escm"),(void*)f_4235}, {C_text("f_4238:posix_2escm"),(void*)f_4238}, {C_text("f_4241:posix_2escm"),(void*)f_4241}, {C_text("f_4250:posix_2escm"),(void*)f_4250}, {C_text("f_4268:posix_2escm"),(void*)f_4268}, {C_text("f_4272:posix_2escm"),(void*)f_4272}, {C_text("f_4275:posix_2escm"),(void*)f_4275}, {C_text("f_4278:posix_2escm"),(void*)f_4278}, {C_text("f_4281:posix_2escm"),(void*)f_4281}, {C_text("f_4284:posix_2escm"),(void*)f_4284}, {C_text("f_4290:posix_2escm"),(void*)f_4290}, {C_text("f_4308:posix_2escm"),(void*)f_4308}, {C_text("f_4321:posix_2escm"),(void*)f_4321}, {C_text("f_4327:posix_2escm"),(void*)f_4327}, {C_text("f_4330:posix_2escm"),(void*)f_4330}, {C_text("f_4335:posix_2escm"),(void*)f_4335}, {C_text("f_4343:posix_2escm"),(void*)f_4343}, {C_text("f_4382:posix_2escm"),(void*)f_4382}, {C_text("f_4423:posix_2escm"),(void*)f_4423}, {C_text("f_4427:posix_2escm"),(void*)f_4427}, {C_text("f_4436:posix_2escm"),(void*)f_4436}, {C_text("f_4443:posix_2escm"),(void*)f_4443}, {C_text("f_4467:posix_2escm"),(void*)f_4467}, {C_text("f_4474:posix_2escm"),(void*)f_4474}, {C_text("f_4483:posix_2escm"),(void*)f_4483}, {C_text("f_4529:posix_2escm"),(void*)f_4529}, {C_text("f_4533:posix_2escm"),(void*)f_4533}, {C_text("f_4536:posix_2escm"),(void*)f_4536}, {C_text("f_4539:posix_2escm"),(void*)f_4539}, {C_text("f_4545:posix_2escm"),(void*)f_4545}, {C_text("f_4557:posix_2escm"),(void*)f_4557}, {C_text("f_4559:posix_2escm"),(void*)f_4559}, {C_text("f_4580:posix_2escm"),(void*)f_4580}, {C_text("f_4605:posix_2escm"),(void*)f_4605}, {C_text("f_4617:posix_2escm"),(void*)f_4617}, {C_text("f_4644:posix_2escm"),(void*)f_4644}, {C_text("f_4658:posix_2escm"),(void*)f_4658}, {C_text("f_4697:posix_2escm"),(void*)f_4697}, {C_text("f_4722:posix_2escm"),(void*)f_4722}, {C_text("f_4727:posix_2escm"),(void*)f_4727}, {C_text("f_4734:posix_2escm"),(void*)f_4734}, {C_text("f_4741:posix_2escm"),(void*)f_4741}, {C_text("f_4780:posix_2escm"),(void*)f_4780}, {C_text("f_4784:posix_2escm"),(void*)f_4784}, {C_text("f_4796:posix_2escm"),(void*)f_4796}, {C_text("f_4807:posix_2escm"),(void*)f_4807}, {C_text("f_4811:posix_2escm"),(void*)f_4811}, {C_text("f_4824:posix_2escm"),(void*)f_4824}, {C_text("f_4839:posix_2escm"),(void*)f_4839}, {C_text("f_4843:posix_2escm"),(void*)f_4843}, {C_text("f_4907:posix_2escm"),(void*)f_4907}, {C_text("f_4914:posix_2escm"),(void*)f_4914}, {C_text("f_4924:posix_2escm"),(void*)f_4924}, {C_text("f_4928:posix_2escm"),(void*)f_4928}, {C_text("f_4932:posix_2escm"),(void*)f_4932}, {C_text("f_4944:posix_2escm"),(void*)f_4944}, {C_text("f_4951:posix_2escm"),(void*)f_4951}, {C_text("f_4955:posix_2escm"),(void*)f_4955}, {C_text("f_4959:posix_2escm"),(void*)f_4959}, {C_text("f_4963:posix_2escm"),(void*)f_4963}, {C_text("f_4983:posix_2escm"),(void*)f_4983}, {C_text("f_4991:posix_2escm"),(void*)f_4991}, {C_text("f_5016:posix_2escm"),(void*)f_5016}, {C_text("f_5030:posix_2escm"),(void*)f_5030}, {C_text("f_5032:posix_2escm"),(void*)f_5032}, {C_text("f_5037:posix_2escm"),(void*)f_5037}, {C_text("f_5046:posix_2escm"),(void*)f_5046}, {C_text("f_5073:posix_2escm"),(void*)f_5073}, {C_text("f_5076:posix_2escm"),(void*)f_5076}, {C_text("f_5081:posix_2escm"),(void*)f_5081}, {C_text("f_5087:posix_2escm"),(void*)f_5087}, {C_text("f_5112:posix_2escm"),(void*)f_5112}, {C_text("f_5114:posix_2escm"),(void*)f_5114}, {C_text("f_5174:posix_2escm"),(void*)f_5174}, {C_text("f_5246:posix_2escm"),(void*)f_5246}, {C_text("f_5256:posix_2escm"),(void*)f_5256}, {C_text("f_5267:posix_2escm"),(void*)f_5267}, {C_text("f_5273:posix_2escm"),(void*)f_5273}, {C_text("f_5279:posix_2escm"),(void*)f_5279}, {C_text("f_5285:posix_2escm"),(void*)f_5285}, {C_text("f_5291:posix_2escm"),(void*)f_5291}, {C_text("f_5297:posix_2escm"),(void*)f_5297}, {C_text("f_5303:posix_2escm"),(void*)f_5303}, {C_text("f_5309:posix_2escm"),(void*)f_5309}, {C_text("f_5315:posix_2escm"),(void*)f_5315}, {C_text("f_5321:posix_2escm"),(void*)f_5321}, {C_text("f_5327:posix_2escm"),(void*)f_5327}, {C_text("f_5333:posix_2escm"),(void*)f_5333}, {C_text("f_5339:posix_2escm"),(void*)f_5339}, {C_text("f_5345:posix_2escm"),(void*)f_5345}, {C_text("f_5351:posix_2escm"),(void*)f_5351}, {C_text("f_5357:posix_2escm"),(void*)f_5357}, {C_text("f_5363:posix_2escm"),(void*)f_5363}, {C_text("f_5369:posix_2escm"),(void*)f_5369}, {C_text("f_5375:posix_2escm"),(void*)f_5375}, {C_text("f_5381:posix_2escm"),(void*)f_5381}, {C_text("f_5387:posix_2escm"),(void*)f_5387}, {C_text("f_5393:posix_2escm"),(void*)f_5393}, {C_text("f_5399:posix_2escm"),(void*)f_5399}, {C_text("f_5405:posix_2escm"),(void*)f_5405}, {C_text("f_5411:posix_2escm"),(void*)f_5411}, {C_text("f_5417:posix_2escm"),(void*)f_5417}, {C_text("f_5423:posix_2escm"),(void*)f_5423}, {C_text("f_5429:posix_2escm"),(void*)f_5429}, {C_text("f_5435:posix_2escm"),(void*)f_5435}, {C_text("f_5441:posix_2escm"),(void*)f_5441}, {C_text("f_5447:posix_2escm"),(void*)f_5447}, {C_text("f_5465:posix_2escm"),(void*)f_5465}, {C_text("f_5510:posix_2escm"),(void*)f_5510}, {C_text("f_5514:posix_2escm"),(void*)f_5514}, {C_text("f_5519:posix_2escm"),(void*)f_5519}, {C_text("f_5526:posix_2escm"),(void*)f_5526}, {C_text("f_5544:posix_2escm"),(void*)f_5544}, {C_text("f_5548:posix_2escm"),(void*)f_5548}, {C_text("f_5550:posix_2escm"),(void*)f_5550}, {C_text("f_5554:posix_2escm"),(void*)f_5554}, {C_text("f_5557:posix_2escm"),(void*)f_5557}, {C_text("f_5566:posix_2escm"),(void*)f_5566}, {C_text("f_5587:posix_2escm"),(void*)f_5587}, {C_text("f_5591:posix_2escm"),(void*)f_5591}, {C_text("f_5593:posix_2escm"),(void*)f_5593}, {C_text("f_5597:posix_2escm"),(void*)f_5597}, {C_text("f_5599:posix_2escm"),(void*)f_5599}, {C_text("f_5603:posix_2escm"),(void*)f_5603}, {C_text("toplevel:posix_2escm"),(void*)C_posix_toplevel}, {C_text("va6075:posix_2escm"),(void*)va6075}, {C_text("va6083:posix_2escm"),(void*)va6083}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.posix#d o|hiding unexported module binding: chicken.posix#define-alias o|hiding unexported module binding: chicken.posix#define-unimplemented o|hiding unexported module binding: chicken.posix#set!-unimplemented o|hiding unexported module binding: chicken.posix#posix-error o|hiding unexported module binding: chicken.posix#stat-mode o|hiding unexported module binding: chicken.posix#stat o|hiding unexported module binding: chicken.posix#decode-seconds o|hiding unexported module binding: chicken.posix#check-time-vector o|hiding unexported module binding: chicken.posix#list->c-string-buffer o|hiding unexported module binding: chicken.posix#free-c-string-buffer o|hiding unexported module binding: chicken.posix#check-environment-list o|hiding unexported module binding: chicken.posix#call-with-exec-args o|hiding unexported module binding: chicken.posix#duplicate-fileno o|hiding unexported module binding: chicken.posix#quote-arg-string o|hiding unexported module binding: chicken.posix#shell-command o|hiding unexported module binding: chicken.posix#shell-command-arguments o|hiding unexported module binding: chicken.posix#process-impl o|hiding unexported module binding: chicken.posix#process-wait-impl o|hiding unexported module binding: chicken.posix#chown S|applied compiler syntax: S| scheme#for-each 2 S| scheme#map 3 o|eliminated procedure checks: 80 o|specializations: o| 4 (##sys#foreign-fixnum-argument fixnum) o| 2 (scheme#string-length string) o| 1 (chicken.bitwise#bitwise-ior fixnum fixnum) o| 1 (##sys#check-output-port * * *) o| 1 (##sys#check-input-port * * *) o| 1 (##sys#call-with-values (procedure () *) *) o| 3 (scheme#cdr pair) o| 1 (chicken.base#add1 fixnum) o| 1 (##sys#length list) o| 1 (scheme#zero? *) o| 1 (##sys#check-open-port * *) o| 5 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 8 (scheme#car pair) o| 4 (##sys#check-list (or pair list) *) o| 1 (scheme#char=? char char) o| 1 (scheme#zero? integer) (o e)|safe calls: 474 (o e)|assignments to immediate values: 114 o|dropping redundant toplevel assignment: chicken.file.posix#file-stat o|dropping redundant toplevel assignment: chicken.file.posix#set-file-permissions! o|dropping redundant toplevel assignment: chicken.file.posix#file-modification-time o|dropping redundant toplevel assignment: chicken.file.posix#file-access-time o|dropping redundant toplevel assignment: chicken.file.posix#file-change-time o|dropping redundant toplevel assignment: chicken.file.posix#set-file-times! o|dropping redundant toplevel assignment: chicken.file.posix#file-size o|dropping redundant toplevel assignment: chicken.file.posix#set-file-owner! o|dropping redundant toplevel assignment: chicken.file.posix#set-file-group! o|dropping redundant toplevel assignment: chicken.process-context.posix#user-information o|safe globals: (chicken.file.posix#set-file-group! chicken.file.posix#set-file-owner! chicken.file.posix#file-size chicken.file.posix#set-file-times! chicken.file.posix#file-change-time chicken.file.posix#file-access-time chicken.file.posix#file-modification-time chicken.file.posix#set-file-permissions! chicken.file.posix#file-stat chicken.posix#stat ##sys#posix-error chicken.posix#posix-error chicken.process-context.posix#user-information chicken.process-context.posix#process-group-id chicken.process-context.posix#create-session chicken.process-context.posix#current-effective-user-name chicken.process-context.posix#current-user-name chicken.process-context.posix#parent-process-id chicken.process-context.posix#current-process-id chicken.process-context.posix#current-user-id chicken.process-context.posix#current-group-id chicken.process-context.posix#current-effective-user-id chicken.process-context.posix#current-effective-group-id chicken.process-context.posix#set-root-directory! chicken.process-context.posix#change-directory* chicken.process.signal#signals-list chicken.process.signal#signal/xfsz chicken.process.signal#signal/xcpu chicken.process.signal#signal/winch chicken.process.signal#signal/vtalrm chicken.process.signal#signal/usr2 chicken.process.signal#signal/usr1 chicken.process.signal#signal/urg chicken.process.signal#signal/tstp chicken.process.signal#signal/trap chicken.process.signal#signal/term chicken.process.signal#signal/stop chicken.process.signal#signal/segv chicken.process.signal#signal/quit chicken.process.signal#signal/prof chicken.process.signal#signal/pipe chicken.process.signal#signal/kill chicken.process.signal#signal/io chicken.process.signal#signal/int chicken.process.signal#signal/ill chicken.process.signal#signal/hup chicken.process.signal#signal/fpe chicken.process.signal#signal/cont chicken.process.signal#signal/chld chicken.process.signal#signal/bus chicken.process.signal#signal/break chicken.process.signal#signal/alrm chicken.process.signal#signal/abrt chicken.process.signal#signal-unmask! chicken.process.signal#signal-masked? chicken.process.signal#signal-mask! chicken.process.signal#signal-mask chicken.process.signal#signal-handler chicken.process.signal#set-signal-mask! chicken.process.signal#set-signal-handler! chicken.process.signal#set-alarm! chicken.process#spawn/detach chicken.process#spawn/nowaito chicken.process#spawn/nowait chicken.process#spawn/wait chicken.process#spawn/overlay chicken.process#pipe/buf chicken.process#process-sleep chicken.process#process* chicken.process#process chicken.process#with-output-to-pipe chicken.process#with-input-from-pipe chicken.process#open-output-pipe chicken.process#open-input-pipe chicken.process#create-pipe chicken.process#close-output-pipe chicken.process#close-input-pipe chicken.process#call-with-output-pipe chicken.process#call-with-input-pipe chicken.process#process-wait chicken.process#process-spawn chicken.process#process-signal chicken.process#process-run chicken.process#process-fork chicken.process#process-execute chicken.process#qs chicken.process#system* chicken.process#system chicken.time.posix#local-timezone-abbreviation chicken.time.posix#time->string chicken.time.posix#string->time chicken.time.posix#local-time->seconds chicken.time.posix#seconds->string chicken.time.posix#seconds->local-time chicken.time.posix#utc-time->seconds chicken.time.posix#seconds->utc-time chicken.file.posix#set-file-position! chicken.file.posix#seek/set chicken.file.posix#seek/end chicken.file.posix#seek/cur chicken.file.posix#port->fileno chicken.file.posix#perm/ixusr chicken.file.posix#perm/ixoth chicken.file.posix#perm/ixgrp chicken.file.posix#perm/iwusr chicken.file.posix#perm/iwoth chicken.file.posix#perm/iwgrp chicken.file.posix#perm/isvtx chicken.file.posix#perm/isuid chicken.file.posix#perm/isgid chicken.file.posix#perm/irwxu chicken.file.posix#perm/irwxo chicken.file.posix#perm/irwxg chicken.file.posix#perm/irusr chicken.file.posix#perm/iroth chicken.file.posix#perm/irgrp chicken.file.posix#open/wronly chicken.file.posix#open/write chicken.file.posix#open/trunc chicken.file.posix#open/text chicken.file.posix#open/sync chicken.file.posix#open/read chicken.file.posix#open/rdwr chicken.file.posix#open/rdonly chicken.file.posix#open/nonblock chicken.file.posix#open/noinherit chicken.file.posix#open/noctty chicken.file.posix#open/fsync chicken.file.posix#open/excl chicken.file.posix#open/creat chicken.file.posix#open/binary chicken.file.posix#open/append chicken.file.posix#open-output-file* chicken.file.posix#open-input-file* chicken.file.posix#fileno/stdout chicken.file.posix#fileno/stdin chicken.file.posix#fileno/stderr chicken.file.posix#symbolic-link? chicken.file.posix#socket? chicken.file.posix#regular-file? chicken.file.posix#fifo? chicken.file.posix#directory? chicken.file.posix#character-device? chicken.file.posix#block-device? chicken.file.posix#file-type chicken.file.posix#file-write chicken.file.posix#file-unlock chicken.file.posix#file-truncate chicken.file.posix#file-test-lock chicken.file.posix#file-select chicken.file.posix#file-read chicken.file.posix#file-position chicken.file.posix#file-permissions chicken.file.posix#file-owner chicken.file.posix#file-open chicken.file.posix#file-mkstemp chicken.file.posix#file-lock/blocking chicken.file.posix#file-lock chicken.file.posix#file-link chicken.file.posix#file-group chicken.file.posix#file-creation-mode chicken.file.posix#file-control chicken.file.posix#file-close chicken.file.posix#fcntl/setfl chicken.file.posix#fcntl/setfd chicken.file.posix#fcntl/getfl chicken.file.posix#fcntl/getfd chicken.file.posix#fcntl/dupfd chicken.file.posix#duplicate-fileno chicken.file.posix#read-symbolic-link chicken.file.posix#create-symbolic-link chicken.file.posix#create-fifo c1660) o|inlining procedure: k2336 o|inlining procedure: k2336 o|inlining procedure: k2354 o|inlining procedure: k2354 o|inlining procedure: k2381 o|inlining procedure: k2381 o|substituted constant variable: a2391 o|inlining procedure: k2422 o|inlining procedure: k2422 o|contracted procedure: "(posix-common.scm:192) strerror630" o|inlining procedure: k2575 o|inlining procedure: k2575 o|inlining procedure: k2590 o|inlining procedure: k2590 o|inlining procedure: k2609 o|inlining procedure: k2609 o|inlining procedure: k2642 o|inlining procedure: k2642 o|inlining procedure: k2654 o|inlining procedure: k2654 o|inlining procedure: k2732 o|inlining procedure: k2732 o|contracted procedure: "(posix-common.scm:292) g702703" o|inlining procedure: k2719 o|inlining procedure: k2719 o|consed rest parameter at call site: "(posix-common.scm:305) chicken.posix#chown" 1 o|consed rest parameter at call site: "(posix-common.scm:309) chicken.posix#chown" 1 o|inlining procedure: k2819 o|inlining procedure: k2831 o|inlining procedure: k2831 o|inlining procedure: k2843 o|inlining procedure: k2843 o|inlining procedure: k2855 o|inlining procedure: k2855 o|inlining procedure: k2819 o|inlining procedure: k2976 o|inlining procedure: k2976 o|inlining procedure: k2991 o|inlining procedure: k2991 o|inlining procedure: k3004 o|inlining procedure: k3004 o|inlining procedure: k3054 o|inlining procedure: k3067 o|inlining procedure: k3067 o|substituted constant variable: a3080 o|inlining procedure: k3054 o|inlining procedure: k3087 o|inlining procedure: k3087 o|inlining procedure: k3100 o|inlining procedure: k3100 o|substituted constant variable: a3135 o|inlining procedure: k3136 o|inlining procedure: k3136 o|inlining procedure: k3155 o|inlining procedure: k3155 o|inlining procedure: k3185 o|inlining procedure: k3185 o|inlining procedure: k3212 o|inlining procedure: k3212 o|inlining procedure: k3225 o|propagated global variable: r32265668 chicken.process-context.posix#change-directory* o|inlining procedure: k3225 o|inlining procedure: k3245 o|inlining procedure: k3245 o|inlining procedure: k3323 o|inlining procedure: k3323 o|contracted procedure: "(posix-common.scm:595) ctime880" o|inlining procedure: k3359 o|inlining procedure: k3359 o|inlining procedure: k3403 o|contracted procedure: "(posix-common.scm:618) strftime905" o|inlining procedure: k3389 o|inlining procedure: k3389 o|inlining procedure: k3403 o|contracted procedure: "(posix-common.scm:620) asctime904" o|inlining procedure: k3376 o|inlining procedure: k3376 o|contracted procedure: "(posix-common.scm:655) chicken.posix#process-wait-impl" o|inlining procedure: k5236 o|inlining procedure: k5236 o|inlining procedure: k3512 o|inlining procedure: k3512 o|inlining procedure: k3598 o|inlining procedure: k3598 o|contracted procedure: "(posix-common.scm:688) c-string->allocated-pointer974" o|merged explicitly consed rest parameter: args9861007 o|consed rest parameter at call site: tmp22178 1 o|inlining procedure: k3679 o|inlining procedure: k3679 o|inlining procedure: k3728 o|inlining procedure: k3728 o|inlining procedure: k3786 o|inlining procedure: k3786 o|inlining procedure: k3845 o|contracted procedure: "(posix-common.scm:731) g10741083" o|inlining procedure: k3845 o|inlining procedure: k3892 o|inlining procedure: k3892 o|inlining procedure: k3910 o|inlining procedure: k3910 o|inlining procedure: k3923 o|inlining procedure: k3923 o|inlining procedure: k3939 o|inlining procedure: k3939 o|inlining procedure: "(posix-common.scm:760) badmode1097" o|substituted constant variable: a3963 o|substituted constant variable: a3965 o|inlining procedure: k3979 o|inlining procedure: k3979 o|inlining procedure: "(posix-common.scm:771) badmode1097" o|substituted constant variable: a4003 o|substituted constant variable: a4005 o|substituted constant variable: a4010 o|substituted constant variable: a4011 o|inlining procedure: k4012 o|inlining procedure: k4012 o|substituted constant variable: a4025 o|substituted constant variable: a4026 o|inlining procedure: k4027 o|inlining procedure: k4027 o|inlining procedure: k4177 o|inlining procedure: k4177 o|inlining procedure: k4205 o|inlining procedure: k4205 o|inlining procedure: k4239 o|inlining procedure: k4239 o|inlining procedure: k4282 o|inlining procedure: k4282 o|inlining procedure: k4352 o|inlining procedure: k4352 o|inlining procedure: k4384 o|inlining procedure: k4384 o|inlining procedure: k4411 o|inlining procedure: k4411 o|inlining procedure: k4428 o|inlining procedure: k4428 o|inlining procedure: k4438 o|inlining procedure: k4438 o|inlining procedure: k4472 o|inlining procedure: k4472 o|inlining procedure: k4537 o|inlining procedure: k4537 o|inlining procedure: k4607 o|inlining procedure: k4607 o|contracted procedure: "(posixwin.scm:721) needs-quoting?1374" o|inlining procedure: k4582 o|inlining procedure: k4582 o|inlining procedure: k4649 o|inlining procedure: k4649 o|inlining procedure: k4732 o|inlining procedure: k4732 o|inlining procedure: k4785 o|inlining procedure: k4785 o|inlining procedure: k4812 o|inlining procedure: k4812 o|inlining procedure: "(posixwin.scm:773) chicken.posix#shell-command-arguments" o|merged explicitly consed rest parameter: rest14861494 o|substituted constant variable: g152815291536 o|substituted constant variable: g152815291536 o|substituted constant variable: g152815291536 o|substituted constant variable: g153015311537 o|substituted constant variable: g153015311537 o|substituted constant variable: g153015311537 o|substituted constant variable: g153215331538 o|substituted constant variable: g153215331538 o|substituted constant variable: g153215331538 o|substituted constant variable: g153415351539 o|substituted constant variable: g153415351539 o|substituted constant variable: g153415351539 o|inlining procedure: k4915 o|inlining procedure: k4930 o|inlining procedure: k4930 o|inlining procedure: k4915 o|contracted procedure: "(posixwin.scm:810) c-process1450" o|inlining procedure: k4977 o|inlining procedure: k4977 o|inlining procedure: k4981 o|inlining procedure: k4981 o|inlining procedure: k4993 o|inlining procedure: k4993 o|inlining procedure: k5048 o|inlining procedure: k5048 o|consed rest parameter at call site: "(posixwin.scm:843) chicken.posix#process-impl" 8 o|inlining procedure: k5089 o|inlining procedure: k5089 o|inlining procedure: "(posixwin.scm:839) chicken.posix#shell-command-arguments" o|inlining procedure: k5248 o|inlining procedure: k5248 o|merged explicitly consed rest parameter: _16551659 o|inlining procedure: k5531 o|inlining procedure: k5531 o|inlining procedure: k5555 o|inlining procedure: k5555 o|inlining procedure: k5567 o|inlining procedure: k5567 o|inlining procedure: k5577 o|inlining procedure: k5577 o|replaced variables: 474 o|removed binding forms: 559 o|substituted constant variable: r25765613 o|substituted constant variable: r27205626 o|substituted constant variable: r27205626 o|inlining procedure: "(posix-common.scm:305) chicken.posix#chown" o|inlining procedure: "(posix-common.scm:309) chicken.posix#chown" o|substituted constant variable: r28325629 o|substituted constant variable: r28445631 o|substituted constant variable: r28565633 o|substituted constant variable: r28205635 o|substituted constant variable: r29925639 o|inlining procedure: k3054 o|substituted constant variable: r30685644 o|inlining procedure: k3054 o|inlining procedure: k3054 o|substituted constant variable: r31015650 o|substituted constant variable: r31015650 o|substituted constant variable: r31015652 o|substituted constant variable: r31015652 o|propagated global variable: g8338345669 chicken.process-context.posix#change-directory* o|substituted constant variable: r33905688 o|substituted constant variable: r33905688 o|substituted constant variable: r33775695 o|substituted constant variable: r33775695 o|substituted constant variable: r38935721 o|removed side-effect free assignment to unused variable: badmode1097 o|substituted constant variable: r39245724 o|substituted constant variable: r39245724 o|substituted constant variable: r39245726 o|substituted constant variable: r39245726 o|inlining procedure: k3939 o|inlining procedure: k3979 o|substituted constant variable: r44295782 o|substituted constant variable: r44295782 o|substituted constant variable: r45835802 o|removed side-effect free assignment to unused variable: chicken.posix#shell-command-arguments o|contracted procedure: "(posixwin.scm:843) chicken.posix#process-impl" o|substituted constant variable: r49315822 o|substituted constant variable: r49315822 o|substituted constant variable: c-pointer14531470 o|substituted constant variable: c-pointer14531470 o|substituted constant variable: c-pointer14531470 o|substituted constant variable: r49785825 o|substituted constant variable: r49785825 o|substituted constant variable: r49785827 o|substituted constant variable: r49785827 o|removed unused formal parameters: (_16551659) o|substituted constant variable: r55685855 o|replaced variables: 37 o|removed binding forms: 503 o|removed conditional forms: 1 o|inlining procedure: k3463 o|inlining procedure: k3463 o|inlining procedure: k3688 o|inlining procedure: k4254 o|inlining procedure: k4254 o|inlining procedure: k4301 o|inlining procedure: k4301 o|substituted constant variable: stdinf1492 o|substituted constant variable: stdoutf1491 o|contracted procedure: k4845 o|substituted constant variable: stdoutf1491 o|substituted constant variable: stdinf1492 o|inlining procedure: k5131 o|inlining procedure: k5191 o|removed side-effect free assignment to unused variable: chicken.posix#chown o|replaced variables: 12 o|removed binding forms: 92 o|removed conditional forms: 4 o|substituted constant variable: r30555870 o|substituted constant variable: r30555872 o|substituted constant variable: r30555874 o|substituted constant variable: r34645926 o|contracted procedure: k3613 o|substituted constant variable: r42555943 o|substituted constant variable: r43025945 o|substituted constant variable: r4846 o|contracted procedure: k4969 o|contracted procedure: k4973 o|inlining procedure: k5528 o|inlining procedure: k5528 o|simplifications: ((let . 2)) o|replaced variables: 6 o|removed binding forms: 19 o|removed conditional forms: 2 o|substituted constant variable: a4844 o|substituted constant variable: r4970 o|substituted constant variable: r4970 o|substituted constant variable: r4974 o|folded constant expression: (scheme#+ (quote 0) (quote 0) (quote 0)) o|substituted constant variable: r4970 o|substituted constant variable: r4974 o|folded constant expression: (scheme#+ (quote 0) (quote 0) (quote 4)) o|substituted constant variable: r55295987 o|replaced variables: 1 o|removed binding forms: 14 o|removed binding forms: 6 o|simplifications: ((if . 53) (##core#call . 309)) o| call simplifications: o| scheme#< o| ##sys#foreign-pointer-argument 4 o| scheme#string-length o| scheme#char-whitespace? o| scheme#* o| chicken.fixnum#fx>= 2 o| scheme#string-ref 3 o| scheme#string-set! o| chicken.bitwise#bitwise-ior o| chicken.fixnum#fxior 3 o| scheme#list 5 o| scheme#call-with-values 4 o| ##sys#check-pair o| ##sys#check-list 4 o| ##sys#apply 2 o| chicken.fixnum#fx+ 6 o| ##sys#call-with-values 3 o| scheme#values 10 o| scheme#vector-set! 2 o| ##sys#foreign-block-argument 2 o| scheme#= o| ##sys#foreign-ranged-integer-argument o| chicken.fixnum#fx- 6 o| ##sys#check-vector o| ##sys#size 6 o| ##sys#null-pointer? 2 o| scheme#not 3 o| ##sys#setislot o| chicken.fixnum#fx= 16 o| scheme#cdr 18 o| ##sys#foreign-string-argument 3 o| scheme#vector o| chicken.base#fixnum? 5 o| scheme#string? 2 o| ##sys#foreign-fixnum-argument 2 o| scheme#null? 48 o| scheme#car 31 o| scheme#string->list o| scheme#pair? 12 o| scheme#cons 8 o| ##sys#setslot 3 o| ##sys#slot 19 o| scheme#apply 11 o| scheme#char=? o| scheme#string 3 o| scheme#eq? 25 o| ##sys#check-string 11 o| chicken.fixnum#fx< 11 o|contracted procedure: k2333 o|contracted procedure: k2339 o|contracted procedure: k2357 o|contracted procedure: k2456 o|contracted procedure: k2370 o|contracted procedure: k2453 o|contracted procedure: k2373 o|contracted procedure: k2376 o|contracted procedure: k2384 o|contracted procedure: k2408 o|contracted procedure: k2416 o|contracted procedure: k2425 o|contracted procedure: k2428 o|contracted procedure: k2431 o|contracted procedure: k2439 o|contracted procedure: k2447 o|contracted procedure: k2459 o|contracted procedure: k2549 o|contracted procedure: k2578 o|contracted procedure: k2587 o|contracted procedure: k2603 o|contracted procedure: k2627 o|contracted procedure: k2618 o|contracted procedure: k2645 o|contracted procedure: k2651 o|contracted procedure: k2667 o|contracted procedure: k2759 o|contracted procedure: k2701 o|contracted procedure: k2753 o|contracted procedure: k2704 o|contracted procedure: k2747 o|contracted procedure: k2707 o|contracted procedure: k2735 o|contracted procedure: k2726 o|contracted procedure: k2765 o|contracted procedure: k2885 o|contracted procedure: k2807 o|contracted procedure: k2879 o|contracted procedure: k2810 o|contracted procedure: k2873 o|contracted procedure: k2813 o|contracted procedure: k2867 o|contracted procedure: k2816 o|contracted procedure: k2828 o|contracted procedure: k2834 o|contracted procedure: k2840 o|contracted procedure: k2846 o|contracted procedure: k2852 o|contracted procedure: k2858 o|contracted procedure: k2864 o|contracted procedure: k3001 o|contracted procedure: k2988 o|contracted procedure: k2997 o|contracted procedure: k3007 o|contracted procedure: k3013 o|contracted procedure: k3057 o|contracted procedure: k3064 o|contracted procedure: k3070 o|contracted procedure: k3090 o|contracted procedure: k3173 o|contracted procedure: k3139 o|contracted procedure: k3152 o|contracted procedure: k3158 o|contracted procedure: k3188 o|contracted procedure: k3194 o|contracted procedure: k3197 o|contracted procedure: k3215 o|contracted procedure: k3231 o|contracted procedure: k3242 o|contracted procedure: k3255 o|contracted procedure: k3248 o|contracted procedure: k3270 o|contracted procedure: k3291 o|contracted procedure: k3334 o|contracted procedure: k3330 o|contracted procedure: k3308 o|contracted procedure: k3340 o|contracted procedure: k3362 o|contracted procedure: k3450 o|contracted procedure: k3397 o|contracted procedure: k3406 o|contracted procedure: k3389 o|contracted procedure: k3440 o|contracted procedure: k3436 o|contracted procedure: k3376 o|contracted procedure: k3542 o|contracted procedure: k3482 o|contracted procedure: k3536 o|contracted procedure: k3485 o|contracted procedure: k3530 o|contracted procedure: k3488 o|contracted procedure: k3524 o|contracted procedure: k3491 o|contracted procedure: k3494 o|contracted procedure: k3515 o|contracted procedure: k3553 o|contracted procedure: k3601 o|contracted procedure: k3604 o|contracted procedure: k3641 o|contracted procedure: k3607 o|contracted procedure: k3628 o|contracted procedure: k3682 o|contracted procedure: k3695 o|contracted procedure: k36955933 o|contracted procedure: k3704 o|contracted procedure: k3709 o|contracted procedure: k3712 o|contracted procedure: k3731 o|contracted procedure: k3741 o|contracted procedure: k3745 o|contracted procedure: k3756 o|contracted procedure: k3822 o|contracted procedure: k3836 o|contracted procedure: k3848 o|contracted procedure: k3851 o|contracted procedure: k3854 o|contracted procedure: k3862 o|contracted procedure: k3870 o|contracted procedure: k3831 o|contracted procedure: k3895 o|contracted procedure: k3913 o|contracted procedure: k3929 o|contracted procedure: k3942 o|contracted procedure: k3952 o|contracted procedure: k3969 o|contracted procedure: k3982 o|contracted procedure: k3992 o|contracted procedure: k4015 o|contracted procedure: k4030 o|contracted procedure: k4156 o|contracted procedure: k4164 o|contracted procedure: k4180 o|contracted procedure: k4189 o|contracted procedure: k4208 o|contracted procedure: k4214 o|contracted procedure: k4245 o|contracted procedure: k4260 o|contracted procedure: k4285 o|contracted procedure: k4294 o|contracted procedure: k4310 o|contracted procedure: k4313 o|contracted procedure: k4322 o|contracted procedure: k4349 o|contracted procedure: k4355 o|contracted procedure: k4361 o|contracted procedure: k4368 o|contracted procedure: k4378 o|contracted procedure: k4387 o|contracted procedure: k4401 o|contracted procedure: k4390 o|contracted procedure: k4397 o|contracted procedure: k4405 o|contracted procedure: k4414 o|contracted procedure: k4432 o|contracted procedure: k4448 o|contracted procedure: k4454 o|contracted procedure: k4461 o|contracted procedure: k4488 o|contracted procedure: k4469 o|contracted procedure: k4478 o|contracted procedure: k4525 o|contracted procedure: k4540 o|contracted procedure: k4549 o|contracted procedure: k4552 o|contracted procedure: k4573 o|contracted procedure: k4585 o|contracted procedure: k4602 o|contracted procedure: k4591 o|contracted procedure: k4598 o|contracted procedure: k4690 o|contracted procedure: k4619 o|contracted procedure: k4684 o|contracted procedure: k4622 o|contracted procedure: k4678 o|contracted procedure: k4625 o|contracted procedure: k4672 o|contracted procedure: k4628 o|contracted procedure: k4666 o|contracted procedure: k4631 o|contracted procedure: k4660 o|contracted procedure: k4634 o|contracted procedure: k4637 o|contracted procedure: k4646 o|contracted procedure: k4652 o|contracted procedure: k4773 o|contracted procedure: k4699 o|contracted procedure: k4767 o|contracted procedure: k4702 o|contracted procedure: k4761 o|contracted procedure: k4705 o|contracted procedure: k4755 o|contracted procedure: k4708 o|contracted procedure: k4749 o|contracted procedure: k4711 o|contracted procedure: k4743 o|contracted procedure: k4714 o|contracted procedure: k4717 o|contracted procedure: k4729 o|contracted procedure: k4735 o|contracted procedure: k4826 o|contracted procedure: k4829 o|contracted procedure: k5034 o|contracted procedure: k5051 o|contracted procedure: k5061 o|contracted procedure: k5065 o|contracted procedure: k5068 o|contracted procedure: k5024 o|contracted procedure: k4899 o|contracted procedure: k4902 o|contracted procedure: k4965 o|contracted procedure: k4849 o|contracted procedure: k4853 o|contracted procedure: k4857 o|contracted procedure: k4861 o|contracted procedure: k4865 o|contracted procedure: k4887 o|contracted procedure: k4894 o|contracted procedure: k4984 o|contracted procedure: k4996 o|contracted procedure: k4999 o|contracted procedure: k5002 o|contracted procedure: k5010 o|contracted procedure: k5018 o|contracted procedure: k5106 o|contracted procedure: k5167 o|contracted procedure: k5116 o|contracted procedure: k5161 o|contracted procedure: k5119 o|contracted procedure: k5155 o|contracted procedure: k5122 o|contracted procedure: k5149 o|contracted procedure: k5125 o|contracted procedure: k5143 o|contracted procedure: k5128 o|contracted procedure: k5137 o|contracted procedure: k5131 o|contracted procedure: k5227 o|contracted procedure: k5176 o|contracted procedure: k5221 o|contracted procedure: k5179 o|contracted procedure: k5215 o|contracted procedure: k5182 o|contracted procedure: k5209 o|contracted procedure: k5185 o|contracted procedure: k5203 o|contracted procedure: k5188 o|contracted procedure: k5197 o|contracted procedure: k5191 o|contracted procedure: k5537 o|contracted procedure: k5521 o|contracted procedure: k5558 o|contracted procedure: k5574 o|contracted procedure: k5570 o|contracted procedure: k5580 o|simplifications: ((##core#call . 4) (let . 49)) o| call simplifications: o| scheme#* 2 o| chicken.bitwise#bitwise-ior 2 o|removed binding forms: 254 o|inlining procedure: "(posix-common.scm:753) mode1096" o|inlining procedure: "(posix-common.scm:764) mode1096" o|contracted procedure: k4316 o|contracted procedure: k4345 o|replaced variables: 155 o|removed binding forms: 2 o|removed side-effect free assignment to unused variable: mode1096 o|replaced variables: 6 o|removed binding forms: 70 o|converted assignments to bindings: (check1098) o|simplifications: ((let . 1)) o|removed binding forms: 6 o|contracted procedure: k3932 o|contracted procedure: k3972 o|removed binding forms: 2 o|direct leaf routine/allocation: g10251032 0 o|direct leaf routine/allocation: suffix-loop1340 0 o|direct leaf routine/allocation: loop1377 0 o|direct leaf routine/allocation: g15811588 0 o|contracted procedure: "(posix-common.scm:704) k3734" o|contracted procedure: k4337 o|converted assignments to bindings: (suffix-loop1340) o|contracted procedure: k4610 o|converted assignments to bindings: (loop1377) o|contracted procedure: "(posixwin.scm:833) k5054" o|simplifications: ((let . 2)) o|removed binding forms: 4 o|direct leaf routine/allocation: for-each-loop10241037 0 o|direct leaf routine/allocation: for-each-loop15801598 0 o|converted assignments to bindings: (for-each-loop10241037) o|converted assignments to bindings: (for-each-loop15801598) o|simplifications: ((let . 2)) o|customizable procedures: (%process1569 chkstrlst1576 map-loop15041521 k4809 chicken.posix#shell-command chicken.posix#call-with-exec-args k4534 va6083 k4441 loop1327 va6075 loop1338 k4276 k4161 check1098 chicken.posix#check-environment-list map-loop10681086 chicken.posix#list->c-string-buffer k3804 doloop10121013 tmp12177 tmp22178 doloop993994 chicken.posix#free-c-string-buffer chicken.posix#check-time-vector k3182 mode780 check781 k2967 chicken.posix#stat g256265 map-loop250272) o|calls to known targets: 122 o|identified direct recursive calls: f_3726 1 o|identified direct recursive calls: f_4382 1 o|identified direct recursive calls: f_4580 1 o|identified direct recursive calls: f_5046 1 o|unused rest argument: _16631666 f_5267 o|unused rest argument: _16691672 f_5273 o|unused rest argument: _16751678 f_5279 o|unused rest argument: _16811684 f_5285 o|unused rest argument: _16871690 f_5291 o|unused rest argument: _16931696 f_5297 o|unused rest argument: _16991702 f_5303 o|unused rest argument: _17051708 f_5309 o|unused rest argument: _17171720 f_5315 o|unused rest argument: _17231726 f_5321 o|unused rest argument: _17291732 f_5327 o|unused rest argument: _17351738 f_5333 o|unused rest argument: _17411744 f_5339 o|unused rest argument: _17471750 f_5345 o|unused rest argument: _17531756 f_5351 o|unused rest argument: _17591762 f_5357 o|unused rest argument: _17651768 f_5363 o|unused rest argument: _17711774 f_5369 o|unused rest argument: _17771780 f_5375 o|unused rest argument: _17831786 f_5381 o|unused rest argument: _17891792 f_5387 o|unused rest argument: _17951798 f_5393 o|unused rest argument: _18011804 f_5399 o|unused rest argument: _18071810 f_5405 o|unused rest argument: _18131816 f_5411 o|unused rest argument: _18191822 f_5417 o|unused rest argument: _18251828 f_5423 o|unused rest argument: _18311834 f_5429 o|unused rest argument: _18371840 f_5435 o|unused rest argument: _18431846 f_5441 o|unused rest argument: _18491852 f_5447 o|fast box initializations: 11 o|fast global references: 80 o|fast global assignments: 12 o|dropping unused closure argument: f_2570 o|dropping unused closure argument: f_3048 o|dropping unused closure argument: f_3085 o|dropping unused closure argument: f_3240 o|dropping unused closure argument: f_3551 o|dropping unused closure argument: f_3668 o|dropping unused closure argument: f_3702 o|dropping unused closure argument: f_3908 o|dropping unused closure argument: f_4780 o|dropping unused closure argument: f_5030 */ /* end of file */ chicken-5.1.0/chicken.compiler.user-pass.import.scm0000644000175000017500000000114313502227761022106 0ustar sjamaansjamaan;;;; chicken.compiler.user-pass.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.compiler.user-pass 'user-pass (scheme#list) '((user-options-pass . chicken.compiler.user-pass#user-options-pass) (user-read-pass . chicken.compiler.user-pass#user-read-pass) (user-preprocessor-pass . chicken.compiler.user-pass#user-preprocessor-pass) (user-pass . chicken.compiler.user-pass#user-pass) (user-post-analysis-pass . chicken.compiler.user-pass#user-post-analysis-pass)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/chicken.file.posix.import.scm0000644000175000017500000001111113502227762020430 0ustar sjamaansjamaan;;;; chicken.file.posix.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.file.posix 'posix (scheme#list) '((create-fifo . chicken.file.posix#create-fifo) (create-symbolic-link . chicken.file.posix#create-symbolic-link) (read-symbolic-link . chicken.file.posix#read-symbolic-link) (duplicate-fileno . chicken.file.posix#duplicate-fileno) (fcntl/dupfd . chicken.file.posix#fcntl/dupfd) (fcntl/getfd . chicken.file.posix#fcntl/getfd) (fcntl/getfl . chicken.file.posix#fcntl/getfl) (fcntl/setfd . chicken.file.posix#fcntl/setfd) (fcntl/setfl . chicken.file.posix#fcntl/setfl) (file-access-time . chicken.file.posix#file-access-time) (file-change-time . chicken.file.posix#file-change-time) (file-modification-time . chicken.file.posix#file-modification-time) (file-close . chicken.file.posix#file-close) (file-control . chicken.file.posix#file-control) (file-creation-mode . chicken.file.posix#file-creation-mode) (file-group . chicken.file.posix#file-group) (file-link . chicken.file.posix#file-link) (file-lock . chicken.file.posix#file-lock) (file-lock/blocking . chicken.file.posix#file-lock/blocking) (file-mkstemp . chicken.file.posix#file-mkstemp) (file-open . chicken.file.posix#file-open) (file-owner . chicken.file.posix#file-owner) (file-permissions . chicken.file.posix#file-permissions) (file-position . chicken.file.posix#file-position) (file-read . chicken.file.posix#file-read) (file-select . chicken.file.posix#file-select) (file-size . chicken.file.posix#file-size) (file-stat . chicken.file.posix#file-stat) (file-test-lock . chicken.file.posix#file-test-lock) (file-truncate . chicken.file.posix#file-truncate) (file-unlock . chicken.file.posix#file-unlock) (file-write . chicken.file.posix#file-write) (file-type . chicken.file.posix#file-type) (block-device? . chicken.file.posix#block-device?) (character-device? . chicken.file.posix#character-device?) (directory? . chicken.file.posix#directory?) (fifo? . chicken.file.posix#fifo?) (regular-file? . chicken.file.posix#regular-file?) (socket? . chicken.file.posix#socket?) (symbolic-link? . chicken.file.posix#symbolic-link?) (fileno/stderr . chicken.file.posix#fileno/stderr) (fileno/stdin . chicken.file.posix#fileno/stdin) (fileno/stdout . chicken.file.posix#fileno/stdout) (open-input-file* . chicken.file.posix#open-input-file*) (open-output-file* . chicken.file.posix#open-output-file*) (open/append . chicken.file.posix#open/append) (open/binary . chicken.file.posix#open/binary) (open/creat . chicken.file.posix#open/creat) (open/excl . chicken.file.posix#open/excl) (open/fsync . chicken.file.posix#open/fsync) (open/noctty . chicken.file.posix#open/noctty) (open/noinherit . chicken.file.posix#open/noinherit) (open/nonblock . chicken.file.posix#open/nonblock) (open/rdonly . chicken.file.posix#open/rdonly) (open/rdwr . chicken.file.posix#open/rdwr) (open/read . chicken.file.posix#open/read) (open/sync . chicken.file.posix#open/sync) (open/text . chicken.file.posix#open/text) (open/trunc . chicken.file.posix#open/trunc) (open/write . chicken.file.posix#open/write) (open/wronly . chicken.file.posix#open/wronly) (perm/irgrp . chicken.file.posix#perm/irgrp) (perm/iroth . chicken.file.posix#perm/iroth) (perm/irusr . chicken.file.posix#perm/irusr) (perm/irwxg . chicken.file.posix#perm/irwxg) (perm/irwxo . chicken.file.posix#perm/irwxo) (perm/irwxu . chicken.file.posix#perm/irwxu) (perm/isgid . chicken.file.posix#perm/isgid) (perm/isuid . chicken.file.posix#perm/isuid) (perm/isvtx . chicken.file.posix#perm/isvtx) (perm/iwgrp . chicken.file.posix#perm/iwgrp) (perm/iwoth . chicken.file.posix#perm/iwoth) (perm/iwusr . chicken.file.posix#perm/iwusr) (perm/ixgrp . chicken.file.posix#perm/ixgrp) (perm/ixoth . chicken.file.posix#perm/ixoth) (perm/ixusr . chicken.file.posix#perm/ixusr) (port->fileno . chicken.file.posix#port->fileno) (set-file-group! . chicken.file.posix#set-file-group!) (set-file-owner! . chicken.file.posix#set-file-owner!) (set-file-permissions! . chicken.file.posix#set-file-permissions!) (set-file-position! . chicken.file.posix#set-file-position!) (set-file-times! . chicken.file.posix#set-file-times!) (seek/cur . chicken.file.posix#seek/cur) (seek/set . chicken.file.posix#seek/set) (seek/end . chicken.file.posix#seek/end)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/posixunix.scm0000644000175000017500000013731713502227553015521 0ustar sjamaansjamaan;;;; posixunix.scm - Miscellaneous file- and process-handling routines ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. ;; these are not available on Windows (define-foreign-variable _stat_st_blksize unsigned-int "C_statbuf.st_blksize") (define-foreign-variable _stat_st_blocks unsigned-int "C_statbuf.st_blocks") (include "posix-common.scm") #> static C_TLS int C_wait_status; #include #include #include #include #include #include #include #if defined(__sun) && defined(__SVR4) # include # include #endif #include #include #ifndef O_FSYNC # define O_FSYNC O_SYNC #endif #ifndef PIPE_BUF # ifdef __CYGWIN__ # define PIPE_BUF _POSIX_PIPE_BUF # else # define PIPE_BUF 1024 # endif #endif #ifndef O_BINARY # define O_BINARY 0 #endif #ifndef O_TEXT # define O_TEXT 0 #endif #ifndef MAP_FILE # define MAP_FILE 0 #endif #ifndef MAP_ANON # define MAP_ANON 0 #endif #ifndef FILENAME_MAX # define FILENAME_MAX 1024 #endif static C_TLS struct flock C_flock; static C_TLS DIR *temphandle; static C_TLS struct passwd *C_user; /* Android doesn't provide pw_gecos in the passwd struct */ #ifdef __ANDROID__ # define C_PW_GECOS ("") #else # define C_PW_GECOS (C_user->pw_gecos) #endif static C_TLS int C_pipefds[ 2 ]; static C_TLS time_t C_secs; static C_TLS struct timeval C_timeval; static C_TLS struct stat C_statbuf; #define C_fchdir(fd) C_fix(fchdir(C_unfix(fd))) #define open_binary_input_pipe(a, n, name) C_mpointer(a, popen(C_c_string(name), "r")) #define open_text_input_pipe(a, n, name) open_binary_input_pipe(a, n, name) #define open_binary_output_pipe(a, n, name) C_mpointer(a, popen(C_c_string(name), "w")) #define open_text_output_pipe(a, n, name) open_binary_output_pipe(a, n, name) #define close_pipe(p) C_fix(pclose(C_port_file(p))) #define C_fork fork #define C_waitpid(id, o) C_fix(waitpid(C_unfix(id), &C_wait_status, C_unfix(o))) #define C_getppid getppid #define C_kill(id, s) C_fix(kill(C_unfix(id), C_unfix(s))) #define C_getuid getuid #define C_getgid getgid #define C_geteuid geteuid #define C_getegid getegid #define C_chown(fn, u, g) C_fix(chown(C_c_string(fn), C_unfix(u), C_unfix(g))) #define C_fchown(fd, u, g) C_fix(fchown(C_unfix(fd), C_unfix(u), C_unfix(g))) #define C_chmod(fn, m) C_fix(chmod(C_c_string(fn), C_unfix(m))) #define C_fchmod(fd, m) C_fix(fchmod(C_unfix(fd), C_unfix(m))) #define C_setuid(id) C_fix(setuid(C_unfix(id))) #define C_setgid(id) C_fix(setgid(C_unfix(id))) #define C_seteuid(id) C_fix(seteuid(C_unfix(id))) #define C_setegid(id) C_fix(setegid(C_unfix(id))) #define C_setsid(dummy) C_fix(setsid()) #define C_setpgid(x, y) C_fix(setpgid(C_unfix(x), C_unfix(y))) #define C_getpgid(x) C_fix(getpgid(C_unfix(x))) #define C_symlink(o, n) C_fix(symlink(C_c_string(o), C_c_string(n))) #define C_do_readlink(f, b) C_fix(readlink(C_c_string(f), C_c_string(b), FILENAME_MAX)) #define C_getpwnam(n) C_mk_bool((C_user = getpwnam(C_c_string(n))) != NULL) #define C_getpwuid(u) C_mk_bool((C_user = getpwuid(C_unfix(u))) != NULL) #define C_pipe(d) C_fix(pipe(C_pipefds)) #define C_truncate(f, n) C_fix(truncate(C_c_string(f), C_num_to_int(n))) #define C_ftruncate(f, n) C_fix(ftruncate(C_unfix(f), C_num_to_int(n))) #define C_alarm alarm #define C_close(fd) C_fix(close(C_unfix(fd))) #define C_umask(m) C_fix(umask(C_unfix(m))) #define C_u_i_lstat(fn) C_fix(lstat(C_c_string(fn), &C_statbuf)) #define C_u_i_execvp(f,a) C_fix(execvp(C_c_string(f), (char *const *)C_c_pointer_vector_or_null(a))) #define C_u_i_execve(f,a,e) C_fix(execve(C_c_string(f), (char *const *)C_c_pointer_vector_or_null(a), (char *const *)C_c_pointer_vector_or_null(e))) #if defined(__FreeBSD__) || defined(C_MACOSX) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(__sgi__) || defined(sgi) || defined(__DragonFly__) || defined(__SUNPRO_C) static C_TLS int C_uw; # define C_WIFEXITED(n) (C_uw = C_unfix(n), C_mk_bool(WIFEXITED(C_uw))) # define C_WIFSIGNALED(n) (C_uw = C_unfix(n), C_mk_bool(WIFSIGNALED(C_uw))) # define C_WIFSTOPPED(n) (C_uw = C_unfix(n), C_mk_bool(WIFSTOPPED(C_uw))) # define C_WEXITSTATUS(n) (C_uw = C_unfix(n), C_fix(WEXITSTATUS(C_uw))) # define C_WTERMSIG(n) (C_uw = C_unfix(n), C_fix(WTERMSIG(C_uw))) # define C_WSTOPSIG(n) (C_uw = C_unfix(n), C_fix(WSTOPSIG(C_uw))) #else # define C_WIFEXITED(n) C_mk_bool(WIFEXITED(C_unfix(n))) # define C_WIFSIGNALED(n) C_mk_bool(WIFSIGNALED(C_unfix(n))) # define C_WIFSTOPPED(n) C_mk_bool(WIFSTOPPED(C_unfix(n))) # define C_WEXITSTATUS(n) C_fix(WEXITSTATUS(C_unfix(n))) # define C_WTERMSIG(n) C_fix(WTERMSIG(C_unfix(n))) # define C_WSTOPSIG(n) C_fix(WSTOPSIG(C_unfix(n))) #endif #ifdef __CYGWIN__ # define C_mkfifo(fn, m) C_fix(-1); #else # define C_mkfifo(fn, m) C_fix(mkfifo(C_c_string(fn), C_unfix(m))) #endif #define C_flock_setup(t, s, n) (C_flock.l_type = C_unfix(t), C_flock.l_start = C_num_to_int(s), C_flock.l_whence = SEEK_SET, C_flock.l_len = C_num_to_int(n), C_SCHEME_UNDEFINED) #define C_flock_test(p) (fcntl(fileno(C_port_file(p)), F_GETLK, &C_flock) >= 0 ? (C_flock.l_type == F_UNLCK ? C_fix(0) : C_fix(C_flock.l_pid)) : C_SCHEME_FALSE) #define C_flock_lock(p) C_fix(fcntl(fileno(C_port_file(p)), F_SETLK, &C_flock)) #define C_flock_lockw(p) C_fix(fcntl(fileno(C_port_file(p)), F_SETLKW, &C_flock)) static C_TLS sigset_t C_sigset; #define C_sigemptyset(d) (sigemptyset(&C_sigset), C_SCHEME_UNDEFINED) #define C_sigaddset(s) (sigaddset(&C_sigset, C_unfix(s)), C_SCHEME_UNDEFINED) #define C_sigdelset(s) (sigdelset(&C_sigset, C_unfix(s)), C_SCHEME_UNDEFINED) #define C_sigismember(s) C_mk_bool(sigismember(&C_sigset, C_unfix(s))) #define C_sigprocmask_set(d) C_fix(sigprocmask(SIG_SETMASK, &C_sigset, NULL)) #define C_sigprocmask_block(d) C_fix(sigprocmask(SIG_BLOCK, &C_sigset, NULL)) #define C_sigprocmask_unblock(d) C_fix(sigprocmask(SIG_UNBLOCK, &C_sigset, NULL)) #define C_sigprocmask_get(d) C_fix(sigprocmask(SIG_SETMASK, NULL, &C_sigset)) #define C_open(fn, fl, m) C_fix(open(C_c_string(fn), C_unfix(fl), C_unfix(m))) #define C_read(fd, b, n) C_fix(read(C_unfix(fd), C_data_pointer(b), C_unfix(n))) #define C_write(fd, b, n) C_fix(write(C_unfix(fd), C_data_pointer(b), C_unfix(n))) #define C_mkstemp(t) C_fix(mkstemp(C_c_string(t))) #define C_ctime(n) (C_secs = (n), ctime(&C_secs)) #if defined(__SVR4) || defined(C_MACOSX) || defined(__ANDROID__) || defined(_AIX) /* Seen here: http://lists.samba.org/archive/samba-technical/2002-November/025571.html */ static time_t C_timegm(struct tm *t) { time_t tl, tb; struct tm *tg; tl = mktime (t); if (tl == -1) { t->tm_hour--; tl = mktime (t); if (tl == -1) return -1; /* can't deal with output from strptime */ tl += 3600; } tg = gmtime (&tl); tg->tm_isdst = 0; tb = mktime (tg); if (tb == -1) { tg->tm_hour--; tb = mktime (tg); if (tb == -1) return -1; /* can't deal with output from gmtime */ tb += 3600; } return (tl - (tb - tl)); } #else #define C_timegm timegm #endif #define C_a_timegm(ptr, c, v, tm) C_int64_to_num(ptr, C_timegm(C_tm_set((v), C_data_pointer(tm)))) #ifdef __linux__ extern char *strptime(const char *s, const char *format, struct tm *tm); extern pid_t getpgid(pid_t pid); #endif /* tm_get could be in posix-common, but it's only used in here */ #define cpy_tmstc08_to_tmvec(v, ptm) \ (C_set_block_item((v), 0, C_fix(((struct tm *)ptm)->tm_sec)), \ C_set_block_item((v), 1, C_fix((ptm)->tm_min)), \ C_set_block_item((v), 2, C_fix((ptm)->tm_hour)), \ C_set_block_item((v), 3, C_fix((ptm)->tm_mday)), \ C_set_block_item((v), 4, C_fix((ptm)->tm_mon)), \ C_set_block_item((v), 5, C_fix((ptm)->tm_year)), \ C_set_block_item((v), 6, C_fix((ptm)->tm_wday)), \ C_set_block_item((v), 7, C_fix((ptm)->tm_yday)), \ C_set_block_item((v), 8, ((ptm)->tm_isdst ? C_SCHEME_TRUE : C_SCHEME_FALSE))) #define cpy_tmstc9_to_tmvec(v, ptm) \ (C_set_block_item((v), 9, C_fix(-(ptm)->tm_gmtoff))) #define C_tm_get_08(v, tm) cpy_tmstc08_to_tmvec( (v), (tm) ) #define C_tm_get_9(v, tm) cpy_tmstc9_to_tmvec( (v), (tm) ) static C_word C_tm_get( C_word v, void *tm ) { C_tm_get_08( v, (struct tm *)tm ); #if defined(C_GNU_ENV) && !defined(__CYGWIN__) && !defined(__uClinux__) C_tm_get_9( v, (struct tm *)tm ); #endif return v; } #define C_strptime(s, f, v, stm) \ (strptime(C_c_string(s), C_c_string(f), ((struct tm *)(stm))) ? C_tm_get((v), (stm)) : C_SCHEME_FALSE) static int set_file_mtime(char *filename, C_word atime, C_word mtime) { struct stat sb; struct utimbuf tb; /* Only lstat if needed */ if (atime == C_SCHEME_FALSE || mtime == C_SCHEME_FALSE) { if (lstat(filename, &sb) == -1) return -1; } if (atime == C_SCHEME_FALSE) { tb.actime = sb.st_atime; } else { tb.actime = C_num_to_int64(atime); } if (mtime == C_SCHEME_FALSE) { tb.modtime = sb.st_mtime; } else { tb.modtime = C_num_to_int64(mtime); } return utime(filename, &tb); } <# ;; Faster versions of common operations (define ##sys#file-nonblocking! (foreign-lambda* bool ([int fd]) "int val = fcntl(fd, F_GETFL, 0);" "if(val == -1) C_return(0);" "C_return(fcntl(fd, F_SETFL, val | O_NONBLOCK) != -1);" ) ) (define ##sys#file-select-one (foreign-lambda int "C_check_fd_ready" int) ) ;;; Lo-level I/O: (define-foreign-variable _f_dupfd int "F_DUPFD") (define-foreign-variable _f_getfd int "F_GETFD") (define-foreign-variable _f_setfd int "F_SETFD") (define-foreign-variable _f_getfl int "F_GETFL") (define-foreign-variable _f_setfl int "F_SETFL") (set! chicken.file.posix#fcntl/dupfd _f_dupfd) (set! chicken.file.posix#fcntl/getfd _f_getfd) (set! chicken.file.posix#fcntl/setfd _f_setfd) (set! chicken.file.posix#fcntl/getfl _f_getfl) (set! chicken.file.posix#fcntl/setfl _f_setfl) (define-foreign-variable _o_nonblock int "O_NONBLOCK") (define-foreign-variable _o_noctty int "O_NOCTTY") (define-foreign-variable _o_fsync int "O_FSYNC") (define-foreign-variable _o_sync int "O_SYNC") (set! chicken.file.posix#open/nonblock _o_nonblock) (set! chicken.file.posix#open/noctty _o_noctty) (set! chicken.file.posix#open/fsync _o_fsync) (set! chicken.file.posix#open/sync _o_sync) ;; Windows-only definitions (set! chicken.file.posix#open/noinherit 0) (set! chicken.process#spawn/overlay 0) (set! chicken.process#spawn/wait 0) (set! chicken.process#spawn/nowait 0) (set! chicken.process#spawn/nowaito 0) (set! chicken.process#spawn/detach 0) (define-foreign-variable _s_isuid int "S_ISUID") (define-foreign-variable _s_isgid int "S_ISGID") (define-foreign-variable _s_isvtx int "S_ISVTX") (set! chicken.file.posix#perm/isvtx _s_isvtx) (set! chicken.file.posix#perm/isuid _s_isuid) (set! chicken.file.posix#perm/isgid _s_isgid) (set! chicken.file.posix#file-control (let ([fcntl (foreign-lambda int fcntl int int long)]) (lambda (fd cmd #!optional (arg 0)) (##sys#check-fixnum fd 'file-control) (##sys#check-fixnum cmd 'file-control) (let ([res (fcntl fd cmd arg)]) (if (fx= res -1) (posix-error #:file-error 'file-control "cannot control file" fd cmd) res ) ) ) ) ) (set! chicken.file.posix#file-open (let ((defmode (bitwise-ior _s_irwxu (bitwise-ior _s_irgrp _s_iroth))) ) (lambda (filename flags . mode) (let ([mode (if (pair? mode) (car mode) defmode)]) (##sys#check-string filename 'file-open) (##sys#check-fixnum flags 'file-open) (##sys#check-fixnum mode 'file-open) (let ([fd (##core#inline "C_open" (##sys#make-c-string filename 'file-open) flags mode)]) (when (eq? -1 fd) (posix-error #:file-error 'file-open "cannot open file" filename flags mode) ) fd) ) ) ) ) (set! chicken.file.posix#file-close (lambda (fd) (##sys#check-fixnum fd 'file-close) (let loop () (when (fx< (##core#inline "C_close" fd) 0) (cond ((fx= _errno _eintr) (##sys#dispatch-interrupt loop)) (else (posix-error #:file-error 'file-close "cannot close file" fd))))))) (set! chicken.file.posix#file-read (lambda (fd size . buffer) (##sys#check-fixnum fd 'file-read) (##sys#check-fixnum size 'file-read) (let ([buf (if (pair? buffer) (car buffer) (make-string size))]) (unless (and (##core#inline "C_blockp" buf) (##core#inline "C_byteblockp" buf)) (##sys#signal-hook #:type-error 'file-read "bad argument type - not a string or blob" buf) ) (let ([n (##core#inline "C_read" fd buf size)]) (when (eq? -1 n) (posix-error #:file-error 'file-read "cannot read from file" fd size) ) (list buf n) ) ) ) ) (set! chicken.file.posix#file-write (lambda (fd buffer . size) (##sys#check-fixnum fd 'file-write) (unless (and (##core#inline "C_blockp" buffer) (##core#inline "C_byteblockp" buffer)) (##sys#signal-hook #:type-error 'file-write "bad argument type - not a string or blob" buffer) ) (let ([size (if (pair? size) (car size) (##sys#size buffer))]) (##sys#check-fixnum size 'file-write) (let ([n (##core#inline "C_write" fd buffer size)]) (when (eq? -1 n) (posix-error #:file-error 'file-write "cannot write to file" fd size) ) n) ) ) ) (set! chicken.file.posix#file-mkstemp (lambda (template) (##sys#check-string template 'file-mkstemp) (let* ([buf (##sys#make-c-string template 'file-mkstemp)] [fd (##core#inline "C_mkstemp" buf)] [path-length (##sys#size buf)]) (when (eq? -1 fd) (posix-error #:file-error 'file-mkstemp "cannot create temporary file" template) ) (values fd (##sys#substring buf 0 (fx- path-length 1) ) ) ) ) ) ;;; I/O multiplexing: (set! chicken.file.posix#file-select (lambda (fdsr fdsw . timeout) (let* ((tm (if (pair? timeout) (car timeout) #f)) (fdsrl (cond ((not fdsr) '()) ((fixnum? fdsr) (list fdsr)) (else (##sys#check-list fdsr 'file-select) fdsr))) (fdswl (cond ((not fdsw) '()) ((fixnum? fdsw) (list fdsw)) (else (##sys#check-list fdsw 'file-select) fdsw))) (nfdsr (##sys#length fdsrl)) (nfdsw (##sys#length fdswl)) (nfds (fx+ nfdsr nfdsw)) (fds-blob (##sys#make-blob (fx* nfds (foreign-value "sizeof(struct pollfd)" int))))) (when tm (##sys#check-exact-integer tm)) (do ((i 0 (fx+ i 1)) (fdsrl fdsrl (cdr fdsrl))) ((null? fdsrl)) ((foreign-lambda* void ((int i) (int fd) (scheme-pointer p)) "struct pollfd *fds = p;" "fds[i].fd = fd; fds[i].events = POLLIN;") i (car fdsrl) fds-blob)) (do ((i nfdsr (fx+ i 1)) (fdswl fdswl (cdr fdswl))) ((null? fdswl)) ((foreign-lambda* void ((int i) (int fd) (scheme-pointer p)) "struct pollfd *fds = p;" "fds[i].fd = fd; fds[i].events = POLLOUT;") i (car fdswl) fds-blob)) (let ((n ((foreign-lambda int "poll" scheme-pointer int int) fds-blob nfds (if tm (* (max 0 tm) 1000) -1)))) (cond ((fx< n 0) (posix-error #:file-error 'file-select "failed" fdsr fdsw) ) ((fx= n 0) (values (if (pair? fdsr) '() #f) (if (pair? fdsw) '() #f))) (else (let ((rl (let lp ((i 0) (res '()) (fds fdsrl)) (cond ((null? fds) (##sys#fast-reverse res)) (((foreign-lambda* bool ((int i) (scheme-pointer p)) "struct pollfd *fds = p;" "C_return(fds[i].revents & (POLLIN|POLLERR|POLLHUP|POLLNVAL));") i fds-blob) (lp (fx+ i 1) (cons (car fds) res) (cdr fds))) (else (lp (fx+ i 1) res (cdr fds)))))) (wl (let lp ((i nfdsr) (res '()) (fds fdswl)) (cond ((null? fds) (##sys#fast-reverse res)) (((foreign-lambda* bool ((int i) (scheme-pointer p)) "struct pollfd *fds = p;" "C_return(fds[i].revents & (POLLOUT|POLLERR|POLLHUP|POLLNVAL));") i fds-blob) (lp (fx+ i 1) (cons (car fds) res) (cdr fds))) (else (lp (fx+ i 1) res (cdr fds))))))) (values (and fdsr (if (fixnum? fdsr) (and (memq fdsr rl) fdsr) rl)) (and fdsw (if (fixnum? fdsw) (and (memq fdsw wl) fdsw) wl)))))))))) ;;; Pipe primitive: (define-foreign-variable _pipefd0 int "C_pipefds[ 0 ]") (define-foreign-variable _pipefd1 int "C_pipefds[ 1 ]") (set! chicken.process#create-pipe (lambda (#!optional mode) (when (fx< (##core#inline "C_pipe" #f) 0) (posix-error #:file-error 'create-pipe "cannot create pipe") ) (values _pipefd0 _pipefd1)) ) ;;; Signal processing: (define-foreign-variable _nsig int "NSIG") (define-foreign-variable _sigterm int "SIGTERM") (define-foreign-variable _sigkill int "SIGKILL") (define-foreign-variable _sigint int "SIGINT") (define-foreign-variable _sighup int "SIGHUP") (define-foreign-variable _sigfpe int "SIGFPE") (define-foreign-variable _sigill int "SIGILL") (define-foreign-variable _sigbus int "SIGBUS") (define-foreign-variable _sigsegv int "SIGSEGV") (define-foreign-variable _sigabrt int "SIGABRT") (define-foreign-variable _sigtrap int "SIGTRAP") (define-foreign-variable _sigquit int "SIGQUIT") (define-foreign-variable _sigalrm int "SIGALRM") (define-foreign-variable _sigpipe int "SIGPIPE") (define-foreign-variable _sigusr1 int "SIGUSR1") (define-foreign-variable _sigusr2 int "SIGUSR2") (define-foreign-variable _sigvtalrm int "SIGVTALRM") (define-foreign-variable _sigprof int "SIGPROF") (define-foreign-variable _sigio int "SIGIO") (define-foreign-variable _sigurg int "SIGURG") (define-foreign-variable _sigchld int "SIGCHLD") (define-foreign-variable _sigcont int "SIGCONT") (define-foreign-variable _sigstop int "SIGSTOP") (define-foreign-variable _sigtstp int "SIGTSTP") (define-foreign-variable _sigxcpu int "SIGXCPU") (define-foreign-variable _sigxfsz int "SIGXFSZ") (define-foreign-variable _sigwinch int "SIGWINCH") (set! chicken.process.signal#signal/term _sigterm) (set! chicken.process.signal#signal/kill _sigkill) (set! chicken.process.signal#signal/int _sigint) (set! chicken.process.signal#signal/hup _sighup) (set! chicken.process.signal#signal/fpe _sigfpe) (set! chicken.process.signal#signal/ill _sigill) (set! chicken.process.signal#signal/segv _sigsegv) (set! chicken.process.signal#signal/abrt _sigabrt) (set! chicken.process.signal#signal/trap _sigtrap) (set! chicken.process.signal#signal/quit _sigquit) (set! chicken.process.signal#signal/alrm _sigalrm) (set! chicken.process.signal#signal/vtalrm _sigvtalrm) (set! chicken.process.signal#signal/prof _sigprof) (set! chicken.process.signal#signal/io _sigio) (set! chicken.process.signal#signal/urg _sigurg) (set! chicken.process.signal#signal/chld _sigchld) (set! chicken.process.signal#signal/cont _sigcont) (set! chicken.process.signal#signal/stop _sigstop) (set! chicken.process.signal#signal/tstp _sigtstp) (set! chicken.process.signal#signal/pipe _sigpipe) (set! chicken.process.signal#signal/xcpu _sigxcpu) (set! chicken.process.signal#signal/xfsz _sigxfsz) (set! chicken.process.signal#signal/usr1 _sigusr1) (set! chicken.process.signal#signal/usr2 _sigusr2) (set! chicken.process.signal#signal/winch _sigwinch) (set! chicken.process.signal#signal/bus _sigbus) (set! chicken.process.signal#signal/break 0) (set! chicken.process.signal#signals-list (list chicken.process.signal#signal/term chicken.process.signal#signal/kill chicken.process.signal#signal/int chicken.process.signal#signal/hup chicken.process.signal#signal/fpe chicken.process.signal#signal/ill chicken.process.signal#signal/segv chicken.process.signal#signal/abrt chicken.process.signal#signal/trap chicken.process.signal#signal/quit chicken.process.signal#signal/alrm chicken.process.signal#signal/vtalrm chicken.process.signal#signal/prof chicken.process.signal#signal/io chicken.process.signal#signal/urg chicken.process.signal#signal/chld chicken.process.signal#signal/cont chicken.process.signal#signal/stop chicken.process.signal#signal/tstp chicken.process.signal#signal/pipe chicken.process.signal#signal/xcpu chicken.process.signal#signal/xfsz chicken.process.signal#signal/usr1 chicken.process.signal#signal/usr2 chicken.process.signal#signal/winch chicken.process.signal#signal/bus)) (set! chicken.process.signal#set-signal-mask! (lambda (sigs) (##sys#check-list sigs 'set-signal-mask!) (##core#inline "C_sigemptyset" 0) (for-each (lambda (s) (##sys#check-fixnum s 'set-signal-mask!) (##core#inline "C_sigaddset" s) ) sigs) (when (fx< (##core#inline "C_sigprocmask_set" 0) 0) (posix-error #:process-error 'set-signal-mask! "cannot set signal mask") ))) (define chicken.process.signal#signal-mask (getter-with-setter (lambda () (##core#inline "C_sigprocmask_get" 0) (let loop ((sigs chicken.process.signal#signals-list) (mask '())) (if (null? sigs) mask (let ([sig (car sigs)]) (loop (cdr sigs) (if (##core#inline "C_sigismember" sig) (cons sig mask) mask)) ) ) ) ) chicken.process.signal#set-signal-mask! "(chicken.process.signal#signal-mask)")) (set! chicken.process.signal#signal-masked? (lambda (sig) (##sys#check-fixnum sig 'signal-masked?) (##core#inline "C_sigprocmask_get" 0) (##core#inline "C_sigismember" sig)) ) (set! chicken.process.signal#signal-mask! (lambda (sig) (##sys#check-fixnum sig 'signal-mask!) (##core#inline "C_sigemptyset" 0) (##core#inline "C_sigaddset" sig) (when (fx< (##core#inline "C_sigprocmask_block" 0) 0) (posix-error #:process-error 'signal-mask! "cannot block signal") ))) (set! chicken.process.signal#signal-unmask! (lambda (sig) (##sys#check-fixnum sig 'signal-unmask!) (##core#inline "C_sigemptyset" 0) (##core#inline "C_sigaddset" sig) (when (fx< (##core#inline "C_sigprocmask_unblock" 0) 0) (posix-error #:process-error 'signal-unmask! "cannot unblock signal") )) ) ;;; Getting group- and user-information: (set! chicken.process-context.posix#current-user-id (getter-with-setter (foreign-lambda int "C_getuid") (lambda (id) (when (fx< (##core#inline "C_setuid" id) 0) (##sys#update-errno) (##sys#error 'current-user-id!-setter "cannot set user ID" id) ) ) "(chicken.process-context.posix#current-user-id)")) (set! chicken.process-context.posix#current-effective-user-id (getter-with-setter (foreign-lambda int "C_geteuid") (lambda (id) (when (fx< (##core#inline "C_seteuid" id) 0) (##sys#update-errno) (##sys#error 'effective-user-id!-setter "cannot set effective user ID" id) ) ) "(chicken.process-context.posix#current-effective-user-id)")) (set! chicken.process-context.posix#current-group-id (getter-with-setter (foreign-lambda int "C_getgid") (lambda (id) (when (fx< (##core#inline "C_setgid" id) 0) (##sys#update-errno) (##sys#error 'current-group-id!-setter "cannot set group ID" id) ) ) "(chicken.process-context.posix#current-group-id)") ) (set! chicken.process-context.posix#current-effective-group-id (getter-with-setter (foreign-lambda int "C_getegid") (lambda (id) (when (fx< (##core#inline "C_setegid" id) 0) (##sys#update-errno) (##sys#error 'effective-group-id!-setter "cannot set effective group ID" id) ) ) "(chicken.process-context.posix#current-effective-group-id)") ) (define-foreign-variable _user-name nonnull-c-string "C_user->pw_name") (define-foreign-variable _user-passwd nonnull-c-string "C_user->pw_passwd") (define-foreign-variable _user-uid int "C_user->pw_uid") (define-foreign-variable _user-gid int "C_user->pw_gid") (define-foreign-variable _user-gecos nonnull-c-string "C_PW_GECOS") (define-foreign-variable _user-dir c-string "C_user->pw_dir") (define-foreign-variable _user-shell c-string "C_user->pw_shell") (set! chicken.process-context.posix#user-information (lambda (user #!optional as-vector) (let ([r (if (fixnum? user) (##core#inline "C_getpwuid" user) (begin (##sys#check-string user 'user-information) (##core#inline "C_getpwnam" (##sys#make-c-string user 'user-information)) ) ) ] ) (and r ((if as-vector vector list) _user-name _user-passwd _user-uid _user-gid _user-gecos _user-dir _user-shell) ) )) ) (set! chicken.process-context.posix#current-user-name (lambda () (car (chicken.process-context.posix#user-information (chicken.process-context.posix#current-user-id)))) ) (set! chicken.process-context.posix#current-effective-user-name (lambda () (car (chicken.process-context.posix#user-information (chicken.process-context.posix#current-effective-user-id)))) ) (define chown (lambda (loc f uid gid) (##sys#check-fixnum uid loc) (##sys#check-fixnum gid loc) (let ((r (cond ((port? f) (##core#inline "C_fchown" (chicken.file.posix#port->fileno f) uid gid)) ((fixnum? f) (##core#inline "C_fchown" f uid gid)) ((string? f) (##core#inline "C_chown" (##sys#make-c-string f loc) uid gid)) (else (##sys#signal-hook #:type-error loc "bad argument type - not a fixnum, port or string" f))))) (when (fx< r 0) (posix-error #:file-error loc "cannot change file owner" f uid gid) )) ) ) (set! chicken.process-context.posix#create-session (lambda () (let ([a (##core#inline "C_setsid" #f)]) (when (fx< a 0) (##sys#update-errno) (##sys#error 'create-session "cannot create session") ) a)) ) (set! chicken.process-context.posix#process-group-id (getter-with-setter (lambda (pid) (##sys#check-fixnum pid 'process-group-id) (let ([a (##core#inline "C_getpgid" pid)]) (when (fx< a 0) (##sys#update-errno) (##sys#error 'process-group-id "cannot retrieve process group ID" pid) ) a)) (lambda (pid pgid) (##sys#check-fixnum pid 'process-group) (##sys#check-fixnum pgid 'process-group) (when (fx< (##core#inline "C_setpgid" pid pgid) 0) (##sys#update-errno) (##sys#error 'process-group "cannot set process group ID" pid pgid) ) ) "(chicken.process-context.posix#process-group-id pid)")) ;;; Hard and symbolic links: (set! chicken.file.posix#create-symbolic-link (lambda (old new) (##sys#check-string old 'create-symbolic-link) (##sys#check-string new 'create-symbolic-link) (when (fx< (##core#inline "C_symlink" (##sys#make-c-string old 'create-symbolic-link) (##sys#make-c-string new 'create-symbolic-link) ) 0) (posix-error #:file-error 'create-symbol-link "cannot create symbolic link" old new) ) ) ) (define-foreign-variable _filename_max int "FILENAME_MAX") (define ##sys#read-symbolic-link (let ((buf (make-string (fx+ _filename_max 1)))) (lambda (fname location) (let ((len (##core#inline "C_do_readlink" (##sys#make-c-string fname location) buf))) (if (fx< len 0) (posix-error #:file-error location "cannot read symbolic link" fname) (substring buf 0 len)))))) (set! chicken.file.posix#read-symbolic-link (lambda (fname #!optional canonicalize) (##sys#check-string fname 'read-symbolic-link) (if canonicalize (receive (base-origin base-directory directory-components) (decompose-directory fname) (let loop ((components directory-components) (result (string-append (or base-origin "") (or base-directory "")))) (if (null? components) result (let ((pathname (make-pathname result (car components)))) (if (##sys#file-exists? pathname #f #f 'read-symbolic-link) (loop (cdr components) (if (chicken.file.posix#symbolic-link? pathname) (let ((target (##sys#read-symbolic-link pathname 'read-symbolic-link))) (if (absolute-pathname? target) target (make-pathname result target))) pathname)) (##sys#signal-hook #:file-error 'read-symbolic-link "could not canonicalize path with symbolic links, component does not exist" pathname)))))) (##sys#read-symbolic-link fname 'read-symbolic-link)))) (set! chicken.file.posix#file-link (let ((link (foreign-lambda int "link" nonnull-c-string nonnull-c-string))) (lambda (old new) (##sys#check-string old 'file-link) (##sys#check-string new 'file-link) (when (fx< (link old new) 0) (posix-error #:file-error 'hard-link "could not create hard link" old new) ) ) ) ) (define ##sys#custom-input-port (lambda (loc nam fd #!optional (nonblocking? #f) (bufi 1) (on-close void) (more? #f)) (when nonblocking? (##sys#file-nonblocking! fd) ) (let ([bufsiz (if (fixnum? bufi) bufi (##sys#size bufi))] [buf (if (fixnum? bufi) (##sys#make-string bufi) bufi)] [buflen 0] [bufpos 0] ) (let ([ready? (lambda () (let ((res (##sys#file-select-one fd))) (if (fx= -1 res) (if (or (fx= _errno _ewouldblock) (fx= _errno _eagain)) #f (posix-error #:file-error loc "cannot select" fd nam)) (fx= 1 res))))] [peek (lambda () (if (fx>= bufpos buflen) #!eof (##core#inline "C_subchar" buf bufpos)) )] [fetch (lambda () (let loop () (let ([cnt (##core#inline "C_read" fd buf bufsiz)]) (cond ((fx= cnt -1) (cond ((or (fx= _errno _ewouldblock) (fx= _errno _eagain)) (##sys#thread-block-for-i/o! ##sys#current-thread fd #:input) (##sys#thread-yield!) (loop) ) ((fx= _errno _eintr) (##sys#dispatch-interrupt loop)) (else (posix-error #:file-error loc "cannot read" fd nam) ))) [(and more? (fx= cnt 0)) ;; When "more" keep trying, otherwise read once more ;; to guard against race conditions (if (more?) (begin (##sys#thread-yield!) (loop) ) (let ([cnt (##core#inline "C_read" fd buf bufsiz)]) (when (fx= cnt -1) (if (or (fx= _errno _ewouldblock) (fx= _errno _eagain)) (set! cnt 0) (posix-error #:file-error loc "cannot read" fd nam) ) ) (set! buflen cnt) (set! bufpos 0) ) )] [else (set! buflen cnt) (set! bufpos 0)]) ) ) )] ) (letrec ([this-port (make-input-port (lambda () ; read-char (when (fx>= bufpos buflen) (fetch)) (let ([ch (peek)]) (unless (eof-object? ch) (set! bufpos (fx+ bufpos 1))) ch ) ) (lambda () ; char-ready? (or (fx< bufpos buflen) (ready?)) ) (lambda () ; close (when (fx< (##core#inline "C_close" fd) 0) (posix-error #:file-error loc "cannot close" fd nam)) (on-close)) (lambda () ; peek-char (when (fx>= bufpos buflen) (fetch)) (peek) ) (lambda (port n dest start) ; read-string! (let loop ([n (or n (fx- (##sys#size dest) start))] [m 0] [start start]) (cond [(eq? 0 n) m] [(fx< bufpos buflen) (let* ([rest (fx- buflen bufpos)] [n2 (if (fx< n rest) n rest)]) (##core#inline "C_substring_copy" buf dest bufpos (fx+ bufpos n2) start) (set! bufpos (fx+ bufpos n2)) (loop (fx- n n2) (fx+ m n2) (fx+ start n2)) ) ] [else (fetch) (if (eq? 0 buflen) m (loop n m start) ) ] ) ) ) (lambda (p limit) ; read-line (when (fx>= bufpos buflen) (fetch)) (if (fx>= bufpos buflen) #!eof (let ((limit (or limit (fx- most-positive-fixnum bufpos)))) (receive (next line full-line?) (##sys#scan-buffer-line buf (fxmin buflen (fx+ bufpos limit)) bufpos (lambda (pos) (let ((nbytes (fx- pos bufpos))) (cond ((fx>= nbytes limit) (values #f pos #f)) (else (set! limit (fx- limit nbytes)) (fetch) (if (fx< bufpos buflen) (values buf bufpos (fxmin buflen (fx+ bufpos limit))) (values #f bufpos #f))))))) ;; Update row & column position (if full-line? (begin (##sys#setislot p 4 (fx+ (##sys#slot p 4) 1)) (##sys#setislot p 5 0)) (##sys#setislot p 5 (fx+ (##sys#slot p 5) (##sys#size line)))) (set! bufpos next) line)) ) ) (lambda (port) ; read-buffered (if (fx>= bufpos buflen) "" (let ((str (##sys#substring buf bufpos buflen))) (set! bufpos buflen) str))) ) ] ) (##sys#setslot this-port 3 nam) this-port ) ) ) ) ) (define ##sys#custom-output-port (lambda (loc nam fd #!optional (nonblocking? #f) (bufi 0) (on-close void)) (when nonblocking? (##sys#file-nonblocking! fd) ) (letrec ([poke (lambda (str len) (let loop () (let ((cnt (##core#inline "C_write" fd str len))) (cond ((fx= -1 cnt) (cond ((or (fx= _errno _ewouldblock) (fx= _errno _eagain)) (##sys#thread-yield!) (poke str len) ) ((fx= _errno _eintr) (##sys#dispatch-interrupt loop)) (else (posix-error loc #:file-error "cannot write" fd nam) ) ) ) ((fx< cnt len) (poke (##sys#substring str cnt len) (fx- len cnt)) ) ) ) ))] [store (let ([bufsiz (if (fixnum? bufi) bufi (##sys#size bufi))]) (if (fx= 0 bufsiz) (lambda (str) (when str (poke str (##sys#size str)) ) ) (let ([buf (if (fixnum? bufi) (##sys#make-string bufi) bufi)] [bufpos 0]) (lambda (str) (if str (let loop ([rem (fx- bufsiz bufpos)] [start 0] [len (##sys#size str)]) (cond [(fx= 0 rem) (poke buf bufsiz) (set! bufpos 0) (loop bufsiz 0 len)] [(fx< rem len) (##core#inline "C_substring_copy" str buf start rem bufpos) (loop 0 rem (fx- len rem))] [else (##core#inline "C_substring_copy" str buf start len bufpos) (set! bufpos (fx+ bufpos len))] ) ) (when (fx< 0 bufpos) (poke buf bufpos) ) ) ) ) ) )]) (letrec ([this-port (make-output-port (lambda (str) ; write-string (store str) ) (lambda () ; close (when (fx< (##core#inline "C_close" fd) 0) (posix-error #:file-error loc "cannot close" fd nam)) (on-close)) (lambda () ; flush (store #f) ) )] ) (##sys#setslot this-port 3 nam) this-port ) ) ) ) ;;; Other file operations: (set! chicken.file.posix#file-truncate (lambda (fname off) (##sys#check-exact-integer off 'file-truncate) (when (fx< (cond ((string? fname) (##core#inline "C_truncate" (##sys#make-c-string fname 'file-truncate) off)) ((port? fname) (##core#inline "C_ftruncate" (chicken.file.posix#port->fileno fname) off)) ((fixnum? fname) (##core#inline "C_ftruncate" fname off)) (else (##sys#error 'file-truncate "invalid file" fname))) 0) (posix-error #:file-error 'file-truncate "cannot truncate file" fname off) ) ) ) ;;; Record locking: (define-foreign-variable _f_wrlck int "F_WRLCK") (define-foreign-variable _f_rdlck int "F_RDLCK") (define-foreign-variable _f_unlck int "F_UNLCK") (let () (define (setup port args loc) (let-optionals* args ([start 0] [len #t] ) (##sys#check-open-port port loc) (##sys#check-exact-integer start loc) (if (eq? #t len) (set! len 0) (##sys#check-exact-integer len loc) ) (##core#inline "C_flock_setup" (if (= (##sys#slot port 1) 1) _f_rdlck _f_wrlck) start len) (##sys#make-structure 'lock port start len) ) ) (define (err msg lock loc) (posix-error #:file-error loc msg (##sys#slot lock 1) (##sys#slot lock 2) (##sys#slot lock 3)) ) (set! chicken.file.posix#file-lock (lambda (port . args) (let loop () (let ((lock (setup port args 'file-lock))) (if (fx< (##core#inline "C_flock_lock" port) 0) (cond ((fx= _errno _eintr) (##sys#dispatch-interrupt loop)) (else (err "cannot lock file" lock 'file-lock))) lock))))) (set! chicken.file.posix#file-lock/blocking (lambda (port . args) (let loop () (let ((lock (setup port args 'file-lock/blocking))) (if (fx< (##core#inline "C_flock_lockw" port) 0) (cond ((fx= _errno _eintr) (##sys#dispatch-interrupt loop)) (else (err "cannot lock file" lock 'file-lock/blocking))) lock))))) (set! chicken.file.posix#file-test-lock (lambda (port . args) (let ([lock (setup port args 'file-test-lock)]) (cond [(##core#inline "C_flock_test" port) => (lambda (c) (and (not (fx= c 0)) c))] [else (err "cannot unlock file" lock 'file-test-lock)] ) ) ) ) ) (set! chicken.file.posix#file-unlock (lambda (lock) (##sys#check-structure lock 'lock 'file-unlock) (##core#inline "C_flock_setup" _f_unlck (##sys#slot lock 2) (##sys#slot lock 3)) (when (fx< (##core#inline "C_flock_lock" (##sys#slot lock 1)) 0) (cond ((fx= _errno _eintr) (##sys#dispatch-interrupt (lambda () (chicken.file.posix#file-unlock lock)))) (else (posix-error #:file-error 'file-unlock "cannot unlock file" lock)))))) ;;; FIFOs: (set! chicken.file.posix#create-fifo (lambda (fname . mode) (##sys#check-string fname 'create-fifo) (let ([mode (if (pair? mode) (car mode) (fxior _s_irwxu (fxior _s_irwxg _s_irwxo)))]) (##sys#check-fixnum mode 'create-fifo) (when (fx< (##core#inline "C_mkfifo" (##sys#make-c-string fname 'create-fifo) mode) 0) (posix-error #:file-error 'create-fifo "cannot create FIFO" fname mode) ) ) ) ) ;;; Time related things: (set! chicken.time.posix#string->time (let ((strptime (foreign-lambda scheme-object "C_strptime" scheme-object scheme-object scheme-object scheme-pointer)) (tm-size (foreign-value "sizeof(struct tm)" int))) (lambda (tim #!optional (fmt "%a %b %e %H:%M:%S %Z %Y")) (##sys#check-string tim 'string->time) (##sys#check-string fmt 'string->time) (strptime (##sys#make-c-string tim 'string->time) (##sys#make-c-string fmt) (make-vector 10 #f) (##sys#make-string tm-size #\nul)) ) ) ) (set! chicken.time.posix#utc-time->seconds (let ((tm-size (foreign-value "sizeof(struct tm)" int))) (lambda (tm) (check-time-vector 'utc-time->seconds tm) (let ((t (##core#inline_allocate ("C_a_timegm" 7) tm (##sys#make-string tm-size #\nul)))) (if (= -1 t) (##sys#error 'utc-time->seconds "cannot convert time vector to seconds" tm) t))))) (set! chicken.time.posix#local-timezone-abbreviation (foreign-lambda* c-string () "\n#if !defined(__CYGWIN__) && !defined(__SVR4) && !defined(__uClinux__) && !defined(__hpux__) && !defined(_AIX)\n" "time_t clock = time(NULL);" "struct tm *ltm = C_localtime(&clock);" "char *z = ltm ? (char *)ltm->tm_zone : 0;" "\n#else\n" "char *z = (daylight ? tzname[1] : tzname[0]);" "\n#endif\n" "C_return(z);") ) ;;; Other things: (set! chicken.process.signal#set-alarm! (foreign-lambda int "C_alarm" int)) ;;; Process handling: (set! chicken.process#process-fork (let ((fork (foreign-lambda int "C_fork"))) (lambda (#!optional thunk killothers) ;; flush all stdio streams before fork ((foreign-lambda int "C_fflush" c-pointer) #f) (let ((pid (fork))) (when (fx= -1 pid) (posix-error #:process-error 'process-fork "cannot create child process")) (if (and thunk (zero? pid)) ((if killothers ##sys#kill-other-threads (lambda (thunk) (thunk))) (lambda () (##sys#call-with-cthulhu (lambda () (thunk) (exit 0))))) pid))))) (set! chicken.process#process-execute (lambda (filename #!optional (arglist '()) envlist exactf) (call-with-exec-args 'process-execute filename (lambda (x) x) arglist envlist (lambda (prg argbuf envbuf) (let ((r (if envbuf (##core#inline "C_u_i_execve" prg argbuf envbuf) (##core#inline "C_u_i_execvp" prg argbuf)))) (when (fx= r -1) (posix-error #:process-error 'process-execute "cannot execute process" filename))))))) (define-foreign-variable _wnohang int "WNOHANG") (define-foreign-variable _wait-status int "C_wait_status") (define (process-wait-impl pid nohang) (let* ((res (##core#inline "C_waitpid" pid (if nohang _wnohang 0))) (norm (##core#inline "C_WIFEXITED" _wait-status)) ) (if (and (fx= res -1) (fx= _errno _eintr)) (##sys#dispatch-interrupt (lambda () (process-wait-impl pid nohang))) (values res norm (cond (norm (##core#inline "C_WEXITSTATUS" _wait-status)) ((##core#inline "C_WIFSIGNALED" _wait-status) (##core#inline "C_WTERMSIG" _wait-status)) (else (##core#inline "C_WSTOPSIG" _wait-status)) ) )) ) ) (set! chicken.process-context.posix#parent-process-id (foreign-lambda int "C_getppid")) (set! chicken.process#process-signal (lambda (id . sig) (let ((sig (if (pair? sig) (car sig) _sigterm))) (##sys#check-fixnum id 'process-signal) (##sys#check-fixnum sig 'process-signal) (let ((r (##core#inline "C_kill" id sig))) (when (fx= r -1) (posix-error #:process-error 'process-signal "could not send signal to process" id sig) ) ) ) ) ) (define (shell-command loc) (or (get-environment-variable "SHELL") "/bin/sh") ) (define (shell-command-arguments cmdlin) (list "-c" cmdlin) ) (set! chicken.process#process-run (lambda (f . args) (let ((args (if (pair? args) (car args) #f)) (pid (chicken.process#process-fork)) ) (cond ((not (eq? 0 pid)) pid) (args (chicken.process#process-execute f args)) (else (chicken.process#process-execute (shell-command 'process-run) (shell-command-arguments f)) ) ) ) ) ) ;;; Run subprocess connected with pipes: ;; process-impl ; loc caller procedure symbol ; cmd pathname or commandline ; args string-list or '() ; env string-list or #f ; stdoutf #f then share, or #t then create ; stdinf #f then share, or #t then create ; stderrf #f then share, or #t then create ; ; (values stdin-input-port? stdout-output-port? pid stderr-input-port?) ; where stdin-input-port?, etc. is a port or #f, indicating no port created. (define-constant DEFAULT-INPUT-BUFFER-SIZE 256) (define-constant DEFAULT-OUTPUT-BUFFER-SIZE 0) ;FIXME process-execute, process-fork don't show parent caller (define process-impl (let ((replace-fd (lambda (loc fd stdfd) (unless (fx= stdfd fd) (chicken.file.posix#duplicate-fileno fd stdfd) (chicken.file.posix#file-close fd) ) )) ) (let ((make-on-close (lambda (loc pid clsvec idx idxa idxb) (lambda () (vector-set! clsvec idx #t) (when (and (vector-ref clsvec idxa) (vector-ref clsvec idxb)) (receive (_ flg cod) (process-wait-impl pid #f) (unless flg (##sys#signal-hook #:process-error loc "abnormal process exit" pid cod)) ) ) ) )) (needed-pipe (lambda (loc port) (and port (receive (i o) (chicken.process#create-pipe) (cons i o))) )) [connect-parent (lambda (loc pipe port fd) (and port (let ([usefd (car pipe)] [clsfd (cdr pipe)]) (chicken.file.posix#file-close clsfd) usefd) ) )] [connect-child (lambda (loc pipe port stdfd) (when port (let ([usefd (car pipe)] [clsfd (cdr pipe)]) (chicken.file.posix#file-close clsfd) (replace-fd loc usefd stdfd)) ) )] ) (let ( (spawn (let ([swapped-ends (lambda (pipe) (and pipe (cons (cdr pipe) (car pipe)) ) )]) (lambda (loc cmd args env stdoutf stdinf stderrf) (let ([ipipe (needed-pipe loc stdinf)] [opipe (needed-pipe loc stdoutf)] [epipe (needed-pipe loc stderrf)]) (values ipipe (swapped-ends opipe) epipe (chicken.process#process-fork (lambda () (connect-child loc opipe stdinf chicken.file.posix#fileno/stdin) (connect-child loc (swapped-ends ipipe) stdoutf chicken.file.posix#fileno/stdout) (connect-child loc (swapped-ends epipe) stderrf chicken.file.posix#fileno/stderr) (chicken.process#process-execute cmd args env)))) ) ) )) [input-port (lambda (loc pid cmd pipe stdf stdfd on-close) (and-let* ([fd (connect-parent loc pipe stdf stdfd)]) (##sys#custom-input-port loc cmd fd #t DEFAULT-INPUT-BUFFER-SIZE on-close) ) )] [output-port (lambda (loc pid cmd pipe stdf stdfd on-close) (and-let* ([fd (connect-parent loc pipe stdf stdfd)]) (##sys#custom-output-port loc cmd fd #t DEFAULT-OUTPUT-BUFFER-SIZE on-close) ) )] ) (lambda (loc cmd args env stdoutf stdinf stderrf) (receive [inpipe outpipe errpipe pid] (spawn loc cmd args env stdoutf stdinf stderrf) ;When shared assume already "closed", since only created ports ;should be explicitly closed, and when one is closed we want ;to wait. (let ((clsvec (vector (not stdinf) (not stdoutf) (not stderrf)))) (values (input-port loc pid cmd inpipe stdinf chicken.file.posix#fileno/stdin (make-on-close loc pid clsvec 0 1 2)) (output-port loc pid cmd outpipe stdoutf chicken.file.posix#fileno/stdout (make-on-close loc pid clsvec 1 0 2)) pid (input-port loc pid cmd errpipe stderrf chicken.file.posix#fileno/stderr (make-on-close loc pid clsvec 2 0 1)) ) ) ) ) ) ) ) ) ;;; Run subprocess connected with pipes: ;; TODO: See if this can be moved to posix-common (let ((%process (lambda (loc err? cmd args env k) (let ((chkstrlst (lambda (lst) (##sys#check-list lst loc) (for-each (cut ##sys#check-string <> loc) lst) ))) (##sys#check-string cmd loc) (if args (chkstrlst args) (begin (set! args (shell-command-arguments cmd)) (set! cmd (shell-command loc)) ) ) (when env (check-environment-list env loc)) (##sys#call-with-values (lambda () (process-impl loc cmd args env #t #t err?)) k))))) (set! chicken.process#process (lambda (cmd #!optional args env exactf) (%process 'process #f cmd args env (lambda (i o p e) (values i o p))))) (set! chicken.process#process* (lambda (cmd #!optional args env exactf) (%process 'process* #t cmd args env values)))) ;;; chroot: (set! chicken.process-context.posix#set-root-directory! (let ((chroot (foreign-lambda int "chroot" nonnull-c-string))) (lambda (dir) (##sys#check-string dir 'set-root-directory!) (when (fx< (chroot dir) 0) (posix-error #:file-error 'set-root-directory! "unable to change root directory" dir) ) ) ) ) ;;; unimplemented stuff: (set!-unimplemented chicken.process#process-spawn) chicken-5.1.0/scrutinizer.scm0000644000175000017500000026442413502227553016034 0ustar sjamaansjamaan;;;; scrutinizer.scm - The CHICKEN Scheme compiler (local flow analysis) ; ; Copyright (c) 2009-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit scrutinizer) (uses data-structures expand extras pathname port support internal)) (module chicken.compiler.scrutinizer (scrutinize load-type-database emit-types-file validate-type check-and-validate-type install-specializations ;; Exported for use in the tests: match-types refine-types type<=?) (import scheme chicken.base chicken.compiler.support chicken.fixnum chicken.format chicken.internal chicken.io chicken.keyword chicken.pathname chicken.platform chicken.plist chicken.port chicken.pretty-print chicken.string chicken.syntax) (include "tweaks") (include "mini-srfi-1.scm") (define d-depth 0) (define scrutiny-debug #t) (define *complain?* #f) (define (d fstr . args) (when (and scrutiny-debug (##sys#debug-mode?)) (printf "[debug|~a] ~a~?~%" d-depth (make-string d-depth #\space) fstr args)) ) (define dd d) (define ddd d) (define-syntax d (syntax-rules () ((_ . _) (void)))) (define-syntax dd (syntax-rules () ((_ . _) (void)))) (define-syntax ddd (syntax-rules () ((_ . _) (void)))) ;;; Walk node tree, keeping type and binding information ; ; result specifiers: ; ; SPEC = * | (TYPE1 ...) ; TYPE = (or TYPE1 ...) ; | (not TYPE) ; | (struct NAME) ; | (procedure [NAME] (TYPE1 ... [#!optional TYPE1 ...] [#!rest [TYPE | values]]) . RESULTS) ; | VALUE ; | BASIC ; | COMPLEX ; | (forall (TVAR1 ...) TYPE) ; | (refine (SYMBOL ...) VALUE) ; | deprecated ; | (deprecated NAME) ; VALUE = string | symbol | keyword | char | number | ; boolean | true | false | ; null | eof | blob | pointer | port | locative | fixnum | ; float | bignum | ratnum | cplxnum | integer | pointer-vector ; BASIC = * | list | pair | procedure | vector | undefined | noreturn | values ; COMPLEX = (pair TYPE TYPE) ; | (vector-of TYPE) ; | (list-of TYPE) ; | (vector TYPE1 ...) ; | (list TYPE1 ...) ; RESULTS = * ; | (TYPE1 ...) ; TVAR = (VAR TYPE) | VAR ; ; global symbol properties: ; ; ##compiler#type -> TYPESPEC ; ##compiler#type-source -> 'db | 'local | 'inference ; ##compiler#predicate -> TYPESPEC ; ##compiler#specializations -> (SPECIALIZATION ...) ; ##compiler#local-specializations -> (SPECIALIZATION ...) ; ##compiler#enforce -> BOOL ; ##compiler#special-result-type -> PROCEDURE ; ##compiler#escape -> #f | 'yes | 'no ; ##compiler#type-abbreviation -> TYPESPEC ;; ##compiler#tv-root -> STRING ; ; specialization specifiers: ; ; SPECIALIZATION = ((TYPE ... [#!rest TYPE]) [RESULTS] TEMPLATE) ; TEMPLATE = #(INDEX) ; | #(INDEX ...) ; | #(SYMBOL) ; | INTEGER | SYMBOL | STRING ; | (quote CONSTANT) ; | (TEMPLATE . TEMPLATE) ; ; As an alternative to the "#!rest" and "#!optional" keywords, "&rest" or "&optional" ; may be used. (define-constant +fragment-max-length+ 6) (define-constant +fragment-max-depth+ 4) (define-constant +maximal-union-type-length+ 20) (define-constant +maximal-complex-object-constructor-result-type-length+ 256) (define-constant value-types '(string symbol keyword char null boolean true false blob eof fixnum float number integer bignum ratnum cplxnum pointer-vector port pointer locative)) (define-constant basic-types '(* list pair procedure vector undefined deprecated noreturn values)) (define-constant struct-types '(u8vector s8vector u16vector s16vector u32vector s32vector u64vector s64vector f32vector f64vector thread queue environment time continuation lock mmap condition hash-table tcp-listener)) (define-constant type-expansions '((pair . (pair * *)) (list . (list-of *)) (vector . (vector-of *)) (boolean . (or true false)) (integer . (or fixnum bignum)) (number . (or fixnum float bignum ratnum cplxnum)) (procedure . (procedure (#!rest *) . *)))) (define-inline (struct-type? t) (and (pair? t) (eq? (car t) 'struct))) (define-inline (value-type? t) (or (struct-type? t) (memq t value-types))) (define specialization-statistics '()) (define trail '()) (define (walked-result n) (first (node-parameters n))) ; assumes ##core#the/result node (define (type-always-immediate? t) (cond ((pair? t) (case (car t) ((or) (every type-always-immediate? (cdr t))) ((forall) (type-always-immediate? (third t))) (else #f))) ((memq t '(eof null fixnum char boolean undefined)) #t) (else #f))) (define (scrutinize node db complain specialize strict block-compilation) (define (report loc msg . args) (when *complain?* (warning (conc (location-name loc) (sprintf "~?" msg args))))) (set! *complain?* complain) (let ((blist '()) ; (((VAR . FLOW) TYPE) ...) (aliased '()) (noreturn #f) (dropped-branches 0) (assigned-immediates 0) (errors #f) (safe-calls 0)) (define (constant-result lit) (cond ((string? lit) 'string) ((keyword? lit) 'keyword) ((symbol? lit) 'symbol) ;; Do not assume fixnum width matches target platforms! ((or (big-fixnum? lit) (small-bignum? lit)) 'integer) ((fixnum? lit) 'fixnum) ((bignum? lit) 'bignum) ((flonum? lit) 'float) ; Why not "flonum", for consistency? ((ratnum? lit) 'ratnum) ((cplxnum? lit) 'cplxnum) ((boolean? lit) (if lit 'true 'false)) ((null? lit) 'null) ((list? lit) `(list ,@(map constant-result lit))) ((pair? lit) (simplify-type `(pair ,(constant-result (car lit)) ,(constant-result (cdr lit))))) ((eof-object? lit) 'eof) ((vector? lit) (simplify-type `(vector ,@(map constant-result (vector->list lit))))) ((and (not (##sys#immediate? lit)) (##sys#generic-structure? lit)) `(struct ,(##sys#slot lit 0))) ((char? lit) 'char) (else '*))) (define (global-result id loc node) (cond ((variable-mark id '##compiler#type) => (lambda (a) (cond ((eq? a 'deprecated) (r-deprecated-identifier loc node id) '(*)) ((and (pair? a) (eq? (car a) 'deprecated)) (r-deprecated-identifier loc node id (cadr a)) '(*)) (else (list a))))) (else '(*)))) (define (blist-type id flow) (cond ((find (lambda (b) (and (eq? id (caar b)) (memq (cdar b) flow)) ) blist) => cdr) (else #f))) (define (variable-result id e loc node flow) (cond ((blist-type id flow) => list) ((and (not strict) (db-get db id 'assigned) (not (variable-mark id '##compiler#type-source))) '(*)) ((assq id e) => (lambda (a) (cond ((eq? 'undefined (cdr a)) #;(report loc "access to variable `~a' which has an undefined value" (real-name id db)) '(*)) (else (list (cdr a)))))) (else (global-result id loc node)))) (define (always-true1 t) (cond ((pair? t) (case (car t) ((or) (every always-true1 (cdr t))) ((not) (not (always-true1 (second t)))) ((forall) (always-true1 (third t))) (else #t))) ((memq t '(* boolean false undefined noreturn)) #f) (else #t))) (define (always-true if-node test-node t loc) (and-let* ((_ (always-true1 t))) (r-cond-test-always-true loc if-node test-node t) #t)) (define (always-false if-node test-node t loc) (and-let* ((_ (eq? t 'false))) (r-cond-test-always-false loc if-node test-node) #t)) (define (always-immediate var t loc) (and-let* ((_ (type-always-immediate? t))) (d "assignment to var ~a in ~a is always immediate" var loc) #t)) (define (single tv r-value-count-mismatch) (if (eq? '* tv) '* (let ((n (length tv))) (cond ((= 1 n) (car tv)) ((zero? n) (r-value-count-mismatch tv) 'undefined) (else (r-value-count-mismatch tv) (first tv)))))) (define add-loc cons) (define (get-specializations name) (let* ((a (variable-mark name '##compiler#local-specializations)) (b (variable-mark name '##compiler#specializations)) (c (append (or a '()) (or b '())))) (and (pair? c) c))) (define (call-result node args e loc params typeenv) (let* ((actualtypes (map walked-result args)) (ptype (car actualtypes)) (pptype? (procedure-type? ptype)) (nargs (length (cdr args))) (xptype `(procedure ,(make-list nargs '*) *)) (typeenv (append-map type-typeenv actualtypes)) (op #f)) (d " call: ~a, te: ~a" actualtypes typeenv) (cond ((and (not pptype?) (not (match-types xptype ptype typeenv))) (r-invalid-called-procedure-type loc node (resolve xptype typeenv) (car args) (resolve ptype typeenv)) (values '* #f)) (else (let-values (((atypes values-rest ok alen) (procedure-argument-types ptype nargs typeenv))) (unless ok (r-proc-call-argument-count-mismatch loc node alen nargs ptype)) (do ((actualtypes (cdr actualtypes) (cdr actualtypes)) (anodes (cdr args) (cdr anodes)) (atypes atypes (cdr atypes)) (i 1 (add1 i))) ((or (null? actualtypes) (null? atypes))) (unless (match-types (car atypes) (car actualtypes) typeenv) (r-proc-call-argument-type-mismatch loc node i (car anodes) (resolve (car atypes) typeenv) (resolve (car actualtypes) typeenv) ptype))) (when (noreturn-procedure-type? ptype) (set! noreturn #t)) (let ((r (procedure-result-types ptype values-rest (cdr actualtypes) typeenv))) (let* ((pn (procedure-name ptype)) (trail0 trail)) (when pn (cond ((and (fx= 1 nargs) (variable-mark pn '##compiler#predicate)) => (lambda (pt) (cond ((match-argument-types (list pt) (cdr actualtypes) typeenv) (r-pred-call-always-true loc node pt (cadr actualtypes)) (when specialize (specialize-node! node (cdr args) `(let ((#(tmp) #(1))) '#t)) (set! r '(true)) (set! op (list pn pt)))) ((begin (trail-restore trail0 typeenv) (match-argument-types (list `(not ,pt)) (cdr actualtypes) typeenv)) (r-pred-call-always-false loc node pt (cadr actualtypes)) (when specialize (specialize-node! node (cdr args) `(let ((#(tmp) #(1))) '#f)) (set! r '(false)) (set! op (list pt `(not ,pt))))) (else (trail-restore trail0 typeenv))))) ((maybe-constant-fold-call node (node-subexpressions node) (lambda (ok res _constant?) (and ok (cons res ok)))) => (lambda (res.ok) ;; Actual type doesn't matter; the node gets walked again (set! r '*) (mutate-node! node (list 'quote (car res.ok))))) ((and specialize (get-specializations pn)) => (lambda (specs) (let loop ((specs specs)) (and (pair? specs) (let* ((spec (car specs)) (stype (first spec)) (tenv2 (append (append-map type-typeenv stype) typeenv))) (cond ((match-argument-types stype (cdr actualtypes) tenv2) (set! op (cons pn (car spec))) (set! typeenv tenv2) (let* ((r2 (and (pair? (cddr spec)) (second spec))) (rewrite (if r2 (third spec) (second spec)))) (specialize-node! node (cdr args) rewrite) (when r2 (set! r r2)))) (else (trail-restore trail0 tenv2) (loop (cdr specs)))))))))) (when op (d " specialized: `~s' for ~a" (car op) (cdr op)) (cond ((assoc op specialization-statistics) => (lambda (a) (set-cdr! a (add1 (cdr a))))) (else (set! specialization-statistics (cons (cons op 1) specialization-statistics)))))) (when (and specialize (not op) (procedure-type? ptype) (eq? '##core#call (node-class node))) (set-car! (node-parameters node) #t) (set! safe-calls (add1 safe-calls)))) (let ((r (if (eq? '* r) r (map (cut resolve <> typeenv) r)))) (d " result-types: ~a" r) (values r op)))))))) (define tag (let ((n 0)) (lambda () (set! n (add1 n)) n))) (define (add-to-blist var flow type) (let loop ((var var)) (set! blist (alist-update! (cons var flow) type blist equal?)) (let ((a (assq var aliased))) (when a (d " applying to alias: ~a -> ~a" (cdr a) type) (loop (cdr a)))))) (define (initial-argument-types dest vars argc) (if (and dest strict (variable-mark dest '##compiler#type-source)) (let* ((ptype (variable-mark dest '##compiler#type)) (typeenv (type-typeenv ptype))) (if (procedure-type? ptype) (map (cut resolve <> typeenv) (nth-value 0 (procedure-argument-types ptype argc '() #t))) (make-list argc '*))) (make-list argc '*))) (define (walk n e loc dest tail flow ctags) ; returns result specifier (let ((subs (node-subexpressions n)) (params (node-parameters n)) (class (node-class n)) ) (dd "walk: ~a ~s (loc: ~a, dest: ~a, tail: ~a, flow: ~a)" class params loc dest tail flow) #;(dd "walk: ~a ~s (loc: ~a, dest: ~a, tail: ~a, flow: ~a, blist: ~a, e: ~a)" class params loc dest tail flow blist e) (set! d-depth (add1 d-depth)) (let ((results (case class ((##core#the/result) (list (first params))) ; already walked ((quote) (list (constant-result (first params)))) ((##core#undefined) '(*)) ((##core#proc) '(procedure)) ((##core#variable) (variable-result (first params) e loc n flow)) ((##core#inline_ref) (list (foreign-type->scrutiny-type (second params) 'result))) ((##core#inline_loc_ref) (list (foreign-type->scrutiny-type (first params) 'result))) ((if) (let ((tags (cons (tag) (tag))) (tst (first subs)) (nor-1 noreturn)) (set! noreturn #f) (let* ((rt (single (walk tst e loc #f #f flow tags) (cut r-conditional-value-count-invalid loc n tst <>))) (c (second subs)) (a (third subs)) (nor0 noreturn)) (cond ((and (always-true n tst rt loc) specialize) (set! dropped-branches (add1 dropped-branches)) (mutate-node! n `(let ((,(gensym) ,tst)) ,c)) (walk n e loc dest tail flow ctags)) ((and (always-false n tst rt loc) specialize) (set! dropped-branches (add1 dropped-branches)) (mutate-node! n `(let ((,(gensym) ,tst)) ,a)) (walk n e loc dest tail flow ctags)) (else (let* ((r1 (walk c e loc dest tail (cons (car tags) flow) #f)) (nor1 noreturn)) (set! noreturn #f) (let* ((r2 (walk a e loc dest tail (cons (cdr tags) flow) #f)) (nor2 noreturn)) (set! noreturn (or nor-1 nor0 (and nor1 nor2))) ;; when only one branch is noreturn, add blist entries for ;; all in other branch: (when (or (and nor1 (not nor2)) (and nor2 (not nor1))) (let ((yestag (if nor1 (cdr tags) (car tags)))) (for-each (lambda (ble) (when (eq? (cdar ble) yestag) (d "adding blist entry ~a for single returning conditional branch" ble) (add-to-blist (caar ble) (car flow) (cdr ble)))) blist))) (cond ((and (not (eq? '* r1)) (not (eq? '* r2))) ;;(dd " branches: ~s:~s / ~s:~s" nor1 r1 nor2 r2) (cond ((and (not nor1) (not nor2) (not (= (length r1) (length r2)))) (r-cond-branch-value-count-mismatch loc n c a r1 r2) '*) (nor1 r2) (nor2 r1) (else (dd "merge branch results: ~s + ~s" r1 r2) (map (lambda (t1 t2) (simplify-type `(or ,t1 ,t2))) r1 r2)))) (else '*))))))))) ((let) ;; before CPS-conversion, `let'-nodes may have multiple bindings (let loop ((vars params) (body subs) (e2 '())) (if (null? vars) (walk (car body) (append e2 e) loc dest tail flow ctags) (let* ((var (car vars)) (val (car body)) (t (single (walk val e loc var #f flow #f) (cut r-let-value-count-invalid loc var n val <>)))) (when (and (eq? (node-class val) '##core#variable) (not (db-get db var 'assigned))) (let ((var2 (first (node-parameters val)))) (unless (db-get db var2 'assigned) ;XXX too conservative? (set! aliased (alist-cons var var2 aliased))))) (loop (cdr vars) (cdr body) (alist-cons (car vars) t e2)))))) ((##core#lambda lambda) (##sys#decompose-lambda-list (first params) (lambda (vars argc rest) (let* ((namelst (if dest (list dest) '())) (inits (initial-argument-types dest vars argc)) (args (append inits (if rest '(#!rest) '()))) (e2 (append (map (lambda (v i) (cons v i)) (if rest (butlast vars) vars) inits) e))) (when dest (d "~a: initial-argument types: ~a" dest inits)) (fluid-let ((blist '()) (noreturn #f) (aliased '())) (let* ((initial-tag (tag)) (r (walk (first subs) (if rest (alist-cons rest 'list e2) e2) (add-loc dest loc) #f #t (list initial-tag) #f))) #;(when (and specialize dest (variable-mark dest '##compiler#type-source) (not unsafe)) (debugging 'x "checks argument-types" dest) ;XXX ;; [1] this is subtle: we don't want argtype-checks to be ;; generated for toplevel defs other than user-declared ones. ;; But since the ##compiler#type-source mark is set AFTER ;; the lambda has been walked (see below, [2]), nothing is added. (generate-type-checks! n dest vars inits)) (list (append '(procedure) namelst (list (let loop ((argc argc) (vars vars) (args args)) (cond ((zero? argc) args) ((and (not (db-get db (car vars) 'assigned)) (assoc (cons (car vars) initial-tag) blist)) => (lambda (a) (cons (cond ((eq? (cdr a) '*) '*) (else (d "adjusting procedure argument type for `~a' to: ~a" (car vars) (cdr a)) (cdr a) )) (loop (sub1 argc) (cdr vars) (cdr args))))) (else (cons (car args) (loop (sub1 argc) (cdr vars) (cdr args))))))) r)))))))) ((set! ##core#set!) (let* ((var (first params)) (type (variable-mark var '##compiler#type)) (rt (single (walk (first subs) e loc var #f flow #f) (cut r-assignment-value-count-invalid loc var n (first subs) <>))) (typeenv (append (if type (type-typeenv type) '()) (type-typeenv rt))) (b (assq var e)) ) (when (and type (not b) (not (or (eq? type 'deprecated) (and (pair? type) (eq? (car type) 'deprecated)))) (not (match-types type rt typeenv))) (when strict (set! errors #t)) (r-toplevel-var-assignment-type-mismatch loc n rt var type (first subs))) (when (and (not type) ;XXX global declaration could allow this (not b) (not (eq? '* rt)) (not (db-get db var 'unknown))) (and-let* ((val (or (db-get db var 'value) (db-get db var 'local-value)))) (when (and (eq? val (first subs)) (or (not (variable-visible? var block-compilation)) (not (eq? (variable-mark var '##compiler#inline) 'no)))) (let ((rtlst (list (cons #f (tree-copy rt))))) (smash-component-types! rtlst "global") (let ((rt (cdar rtlst))) (debugging '|I| (sprintf "(: ~s ~s)" var rt)) ;; [2] sets property, but lambda has already been walked, ;; so no type-checks are generated (see also [1], above) ;; note that implicit declarations are not enforcing (mark-variable var '##compiler#type-source 'inference) (mark-variable var '##compiler#type rt)))))) (when b (cond ((eq? 'undefined (cdr b)) (set-cdr! b rt)) #;(strict (let ((ot (or (blist-type var flow) (cdr b)))) ;;XXX compiler-syntax for "map" will introduce ;; assignments that trigger this warning, so this ;; is currently disabled (unless (compatible-types? ot rt) (report loc "variable `~a' of type `~a' was modified to a value of type `~a'" var ot rt))))) ;; don't use "add-to-blist" since the current operation does not affect aliases (let ((t (if (or strict (not (db-get db var 'captured))) rt '*)) (fl (car flow))) (let loop ((bl blist) (f #f)) (cond ((null? bl) (unless f (set! blist (alist-cons (cons var fl) t blist)))) ((eq? (caaar bl) var) (let ((t (simplify-type `(or ,t ,(cdar bl))))) (dd "assignment modifies blist entry ~s -> ~a" (caar bl) t) (set-cdr! (car bl) t) (loop (cdr bl) (eq? fl (cdaar bl))))) (else (loop (cdr bl) f)))))) (when (always-immediate var rt loc) (set! assigned-immediates (add1 assigned-immediates)) (set-cdr! params '(#t))) '(undefined))) ((##core#primitive) '*) ((##core#call) (let* ((f (fragment n)) (len (length subs)) (args (map (lambda (n2 i) (make-node '##core#the/result (list (single (walk n2 e loc #f #f flow #f) (cut r-proc-call-argument-value-count loc n i n2 <>))) (list n2))) subs (iota len))) (fn (walked-result (car args))) (pn (procedure-name fn)) (typeenv (type-typeenv `(or ,@(map walked-result args)))) ; hack (enforces (and pn (variable-mark pn '##compiler#enforce))) (pt (and pn (variable-mark pn '##compiler#predicate)))) (let-values (((r specialized?) (call-result n args e loc params typeenv))) (define (smash) (when (and (not strict) (or (not pn) (and (not (variable-mark pn '##compiler#pure)) (not (variable-mark pn '##compiler#clean))))) (smash-component-types! e "env") (smash-component-types! blist "blist"))) (cond (specialized? (walk n e loc dest tail flow ctags) (smash) ;; keep type, as the specialization may contain icky stuff ;; like "##core#inline", etc. (if (eq? '* r) r (map (cut resolve <> typeenv) r))) ((eq? 'quote (node-class n)) ; Call got constant folded (walk n e loc dest tail flow ctags)) (else (for-each (lambda (arg argr) (when (eq? '##core#variable (node-class arg)) (let* ((var (first (node-parameters arg))) (a (or (blist-type var flow) (alist-ref var e))) (argr (resolve argr typeenv)) (oparg? (eq? arg (first subs))) (pred (and pt ctags (not (db-get db var 'assigned)) (not oparg?)))) (cond (pred ;;XXX is this needed? "typeenv" is the te of "args", ;; not of "pt": (let ((pt (resolve pt typeenv))) (d " predicate `~a' indicates `~a' is ~a in flow ~a" pn var pt (car ctags)) (add-to-blist var (car ctags) (if (not a) pt (refine-types a pt))) ;; if the variable type is an "or"-type, we can ;; can remove all elements that match the predicate ;; type (when a ;;XXX hack, again: (let ((at (refine-types a `(not ,pt)))) (when at (d " predicate `~a' indicates `~a' is ~a in flow ~a" pn var at (cdr ctags)) (add-to-blist var (cdr ctags) at)))))) (a (when enforces (let ((ar (if (db-get db var 'assigned) '* ; XXX necessary? (refine-types a argr)))) (d " assuming: ~a -> ~a (flow: ~a)" var ar (car flow)) (add-to-blist var (car flow) ar) (when ctags (add-to-blist var (car ctags) ar) (add-to-blist var (cdr ctags) ar))))) ((and oparg? (variable-mark var '##compiler#special-result-type)) => (lambda (srt) (dd " hardcoded special result-type: ~a" var) (set! r (srt n args loc r)))))))) subs (cons fn (nth-value 0 (procedure-argument-types fn (sub1 len) typeenv)))) (smash) (if (eq? '* r) r (map (cut resolve <> typeenv) r))))))) ((##core#the) (let ((t (first params)) (rt (walk (first subs) e loc dest tail flow ctags))) (cond ((eq? rt '*)) ((null? rt) (r-zero-values-for-the loc (first subs) t)) (else (when (> (length rt) 1) (r-too-many-values-for-the loc (first subs) t rt)) (when (and (second params) (not (compatible-types? t (first rt)))) (when strict (set! errors #t)) (r-type-mismatch-in-the loc (first subs) (first rt) t)))) (list t))) ((##core#typecase) (let* ((ts (walk (first subs) e loc #f #f flow ctags)) (trail0 trail) (typeenv0 (type-typeenv (car ts)))) ;; first exp is always a variable so ts must be of length 1 (let loop ((types (cdr params)) (subs (cdr subs))) (if (null? types) (fail-compiler-typecase loc n (car ts) (cdr params)) (let ((typeenv (append (type-typeenv (car types)) typeenv0))) (if (match-types (car types) (car ts) typeenv #t) (begin ; drops exp (mutate-node! n (car subs)) (walk n e loc dest tail flow ctags)) (begin (trail-restore trail0 typeenv) (loop (cdr types) (cdr subs))))))))) ((##core#switch ##core#cond) (bomb "scrutinize: unexpected node class" class)) (else (for-each (lambda (n) (walk n e loc #f #f flow #f)) subs) '*)))) (set! d-depth (sub1 d-depth)) (dd " ~a -> ~a" class results) results))) (let ((rn (walk (first (node-subexpressions node)) '() '() #f #f (list (tag)) #f))) (when (pair? specialization-statistics) (with-debugging-output '(o e) (lambda () (print "specializations:") (for-each (lambda (ss) (printf " ~a ~s~%" (cdr ss) (car ss))) specialization-statistics)))) (when (positive? safe-calls) (debugging '(o e) "safe calls" safe-calls)) (when (positive? dropped-branches) (debugging '(o e) "dropped branches" dropped-branches)) (when (positive? assigned-immediates) (debugging '(o e) "assignments to immediate values" assigned-immediates)) (when errors (quit-compiling "some variable types do not satisfy strictness")) rn))) ;;; replace pair/vector types with components to variants with undetermined ;; component types (used for env or blist); also convert "list[-of]" types ;; into "pair", since mutation may take place (define (smash-component-types! lst where) ;; assumes list of the form "((_ . T1) ...)" (do ((lst lst (cdr lst))) ((null? lst)) (let loop ((t (cdar lst)) (change! (cute set-cdr! (car lst) <>))) (when (pair? t) (case (car t) ((vector-of) (dd " smashing `~s' in ~a" (caar lst) where) (change! 'vector) (car t)) ((vector) (dd " smashing `~s' in ~a" (caar lst) where) ;; (vector x y z) => (vector * * *) (change! (cons 'vector (map (constantly '*) (cdr t)))) (car t)) ((list-of list) (dd " smashing `~s' in ~a" (caar lst) where) (change! '(or pair null)) (car t)) ((pair) (dd " smashing `~s' in ~a" (caar lst) where) (change! (car t)) (car t)) ((forall) (loop (third t) (cute set-car! (cddr t) <>)))))))) ;;; Type-matching ; ; - "all" means: all elements in `or'-types in second argument must match (define (match-types t1 t2 #!optional (typeenv (type-typeenv `(or ,t1 ,t2))) all) (define (match-args args1 args2) (d "match args: ~s <-> ~s" args1 args2) (let loop ((args1 args1) (args2 args2) (opt1 #f) (opt2 #f)) (cond ((null? args1) (or opt2 (null? args2) (optargs? (car args2)))) ((null? args2) (or opt1 (optargs? (car args1)))) ((eq? '#!optional (car args1)) (loop (cdr args1) args2 #t opt2)) ((eq? '#!optional (car args2)) (loop args1 (cdr args2) opt1 #t)) ((eq? '#!rest (car args1)) (match-rest (rest-type (cdr args1)) args2 opt2)) ((eq? '#!rest (car args2)) (match-rest (rest-type (cdr args2)) args1 opt1)) ((match1 (car args1) (car args2)) (loop (cdr args1) (cdr args2) opt1 opt2)) (else #f)))) (define (match-rest rtype args opt) ;XXX currently ignores `opt' (let-values (((head tail) (span (lambda (x) (not (eq? '#!rest x))) args))) (and (every (lambda (t) (or (eq? '#!optional t) (match1 rtype t))) head) (match1 rtype (if (pair? tail) (rest-type (cdr tail)) '*))))) (define (optargs? a) (memq a '(#!rest #!optional))) (define (match-results results1 results2) (cond ((eq? '* results1)) ((eq? '* results2) (not all)) ((null? results1) (null? results2)) ((null? results2) #f) ((and (memq (car results1) '(undefined noreturn)) (memq (car results2) '(undefined noreturn)))) ((match1 (car results1) (car results2)) (match-results (cdr results1) (cdr results2))) (else #f))) (define (rawmatch1 t1 t2) (fluid-let ((all #f)) (match1 t1 t2))) (define (every-match1 lst1 lst2) (let loop ((lst1 lst1) (lst2 lst2)) (cond ((null? lst1)) ((match1 (car lst1) (car lst2)) (loop (cdr lst1) (cdr lst2))) (else #f)))) (define (match1 t1 t2) ;; note: the order of determining the type is important (dd " match1: ~s <-> ~s" t1 t2) (cond ((eq? t1 t2)) ;;XXX do we have to handle circularities? ((and (symbol? t1) (assq t1 typeenv)) => (lambda (e) (cond ((second e) (and (match1 (second e) t2) (or (not (third e)) ; constraint (rawmatch1 (third e) t2)))) ;; special case for two unbound typevars ((and (symbol? t2) (assq t2 typeenv)) => (lambda (e2) ;;XXX probably not fully right, consider: ;; (forall (a b) ((a a b) ->)) + (forall (c d) ((c d d) ->)) ;; or is this not a problem? I don't know right now... (or (not (second e2)) (and (match1 t1 (second e2)) (or (not (third e2)) ; constraint (rawmatch1 t1 (third e2))))))) ((or (not (third e)) (rawmatch1 (third e) t2)) (dd " unify ~a = ~a" t1 t2) (set! trail (cons t1 trail)) (set-car! (cdr e) t2) #t) (else #f)))) ((and (symbol? t2) (assq t2 typeenv)) => (lambda (e) (cond ((second e) (and (match1 t1 (second e)) (or (not (third e)) ; constraint (rawmatch1 t1 (third e))))) ((or (not (third e)) (rawmatch1 t1 (third e))) (dd " unify ~a = ~a" t2 t1) (set! trail (cons t2 trail)) (set-car! (cdr e) t1) #t) (else #f)))) ((eq? t1 '*)) ((eq? t2 '*) (not all)) ((eq? t1 'undefined) #f) ((eq? t2 'undefined) #f) ((eq? t1 'noreturn)) ((eq? t2 'noreturn)) ((maybe-expand-type t1) => (cut match1 <> t2)) ((maybe-expand-type t2) => (cut match1 t1 <>)) ((and (pair? t1) (eq? 'not (car t1))) (fluid-let ((all (not all))) (let* ((trail0 trail) (m (match1 (cadr t1) t2))) (trail-restore trail0 typeenv) (not m)))) ((and (pair? t2) (eq? 'not (car t2))) (and (not all) (fluid-let ((all #t)) (let* ((trail0 trail) (m (match1 (cadr t2) t1))) (trail-restore trail0 typeenv) (not m))))) ;; this is subtle: "or" types for t2 are less restrictive, ;; so we handle them before "or" types for t1 ((and (pair? t2) (eq? 'or (car t2))) (over-all-instantiations (cdr t2) typeenv all (lambda (t) (match1 t1 t)))) ;; s.a. ((and (pair? t1) (eq? 'or (car t1))) (over-all-instantiations (cdr t1) typeenv #f (lambda (t) (match1 t t2)))) ; o-a-i ensures at least one element matches ((and (pair? t1) (eq? 'forall (car t1))) (match1 (third t1) t2)) ; assumes typeenv has already been extracted ((and (pair? t2) (eq? 'forall (car t2))) (match1 t1 (third t2))) ; assumes typeenv has already been extracted ((eq? 'procedure t1) (and (pair? t2) (eq? 'procedure (car t2)))) ((eq? 'procedure t2) (and (not all) (pair? t1) (eq? 'procedure (car t1)))) ((eq? t1 'null) (and (not all) (pair? t2) (eq? 'list-of (car t2)))) ((eq? t2 'null) (and (pair? t1) (eq? 'list-of (car t1)))) ((and (pair? t1) (pair? t2) (eq? (car t1) (car t2))) (case (car t1) ((procedure) (let ((args1 (procedure-arguments t1)) (args2 (procedure-arguments t2)) (results1 (procedure-results t1)) (results2 (procedure-results t2))) (and (match-args args1 args2) (match-results results1 results2)))) ((struct) (equal? t1 t2)) ((pair) (every-match1 (cdr t1) (cdr t2))) ((list-of vector-of) (match1 (second t1) (second t2))) ((list vector) (and (= (length t1) (length t2)) (every-match1 (cdr t1) (cdr t2)))) ((refine) (and (match1 (third t1) (third t2)) (or (not all) (lset<=/eq? (second t1) (second t2))))) (else #f))) ((and (pair? t1) (eq? 'refine (car t1))) (and (not all) (match1 (third t1) t2))) ((and (pair? t2) (eq? 'refine (car t2))) (match1 t1 (third t2))) ((and (pair? t1) (eq? 'pair (car t1))) (and (pair? t2) (case (car t2) ((list-of) (and (not all) (match1 (second t1) (second t2)) (match1 (third t1) t2))) ((list) (and (pair? (cdr t2)) (match1 (second t1) (second t2)) (match1 (third t1) (if (null? (cddr t2)) 'null `(list ,@(cddr t2)))))) (else #f)))) ((and (pair? t2) (eq? 'pair (car t2))) (and (pair? t1) (case (car t1) ((list-of) (and (not all) (match1 (second t1) (second t2)) (match1 t1 (third t2)))) ((list) (and (pair? (cdr t1)) (match1 (second t1) (second t2)) (match1 (if (null? (cddr t1)) 'null `(list ,@(cddr t1))) (third t2)))) (else #f)))) ((and (pair? t1) (eq? 'list (car t1))) (and (not all) (pair? t2) (eq? 'list-of (car t2)) (over-all-instantiations (cdr t1) typeenv #t (cute match1 <> (second t2))))) ((and (pair? t1) (eq? 'list-of (car t1))) (and (pair? t2) (eq? 'list (car t2)) (over-all-instantiations (cdr t2) typeenv #t (cute match1 (second t1) <>)))) ((and (pair? t1) (eq? 'vector (car t1))) (and (not all) (pair? t2) (eq? 'vector-of (car t2)) (over-all-instantiations (cdr t1) typeenv #t (cute match1 <> (second t2))))) ((and (pair? t1) (eq? 'vector-of (car t1))) (and (pair? t2) (eq? 'vector (car t2)) (over-all-instantiations (cdr t2) typeenv #t (cute match1 (second t1) <>)))) (else #f))) (dd "match (~a) ~a <-> ~a" (if all "all" "any") t1 t2) (let ((m (match1 t1 t2))) (dd "match (~a) ~s <-> ~s -> ~s" (if all "all" "any") t1 t2 m) m)) (define (match-argument-types typelist atypes typeenv) ;; this doesn't need optional: it is only used for predicate- and specialization ;; matching (let loop ((tl typelist) (atypes atypes)) (cond ((null? tl) (null? atypes)) ((null? atypes) #f) ((equal? '(#!rest) tl)) ((eq? (car tl) '#!rest) (every (lambda (at) (match-types (cadr tl) at typeenv #t)) atypes)) ((match-types (car tl) (car atypes) typeenv #t) (loop (cdr tl) (cdr atypes))) (else #f)))) ;;; Simplify type specifier ; ; - coalesces "forall" and renames type-variables ; - also removes unused typevars (define (simplify-type t) (let ((typeenv '()) ; ((VAR1 . NEWVAR1) ...) (constraints '()) ; ((VAR1 TYPE1) ...) (used '())) (define (simplify t) ;;(dd "simplify/rec: ~s" t) (call/cc (lambda (return) (cond ((pair? t) (case (car t) ((forall) (let ((typevars (second t))) (set! typeenv (append (map (lambda (v) (let ((v (if (symbol? v) v (first v)))) (cons v (make-tv v)))) typevars) typeenv)) (set! constraints (append (filter-map (lambda (v) (and (pair? v) v)) typevars) constraints)) (simplify (third t)))) ((or) (let ((ts (delete-duplicates (map simplify (cdr t)) eq?))) (cond ((null? ts) '*) ((null? (cdr ts)) (car ts)) ((> (length ts) +maximal-union-type-length+) (d "union-type cutoff! (~a): ~s" (length ts) ts) '*) ((every procedure-type? ts) (if (any (cut eq? 'procedure <>) ts) 'procedure (foldl (lambda (pt t) (let* ((name1 (procedure-name t)) (atypes1 (procedure-arguments t)) (rtypes1 (procedure-results t)) (name2 (procedure-name pt)) (atypes2 (procedure-arguments pt)) (rtypes2 (procedure-results pt))) (append '(procedure) (if (and name1 name2 (eq? name1 name2)) (list name1) '()) (list (merge-argument-types atypes1 atypes2)) (merge-result-types rtypes1 rtypes2)))) (car ts) (cdr ts)))) ((lset=/eq? '(true false) ts) 'boolean) ((lset=/eq? '(fixnum bignum) ts) 'integer) ((lset=/eq? '(fixnum float bignum ratnum cplxnum) ts) 'number) (else (let* ((ts (append-map (lambda (t) (let ((t (simplify t))) (cond ((and (pair? t) (eq? 'or (car t))) (cdr t)) ((eq? t 'undefined) (return 'undefined)) ((eq? t 'noreturn) (return '*)) (else (list t))))) ts)) (ts2 (let loop ((ts ts) (done '())) (cond ((null? ts) (reverse done)) ((eq? '* (car ts)) (return '*)) ((any (cut type<=? (car ts) <>) (cdr ts)) (loop (cdr ts) done)) ((any (cut type<=? (car ts) <>) done) (loop (cdr ts) done)) (else (loop (cdr ts) (cons (car ts) done))))))) (if (equal? ts2 (cdr t)) t (simplify `(or ,@ts2)))))))) ((refine) (let ((rs (second t)) (t2 (simplify (third t)))) (cond ((null? rs) t2) ((refinement-type? t2) (list 'refine (lset-union/eq? (second t2) rs) (third t2))) (else (list 'refine (delete-duplicates rs eq?) t2))))) ((pair) (let ((tcar (simplify (second t))) (tcdr (simplify (third t)))) (if (and (eq? '* tcar) (eq? '* tcdr)) 'pair (canonicalize-list-type `(pair ,tcar ,tcdr))))) ((vector-of) (let ((t2 (simplify (second t)))) (if (eq? t2 '*) 'vector `(,(car t) ,t2)))) ((list-of) (let ((t2 (simplify (second t)))) (if (eq? t2 '*) 'list `(,(car t) ,t2)))) ((list) (if (null? (cdr t)) 'null `(list ,@(map simplify (cdr t))))) ((vector) `(vector ,@(map simplify (cdr t)))) ((procedure) (let* ((name (and (named? t) (cadr t))) (rtypes (if name (cdddr t) (cddr t)))) (append '(procedure) (if name (list name) '()) (list (map simplify (if name (third t) (second t)))) (if (eq? '* rtypes) '* (map simplify rtypes))))) (else t))) ((assq t typeenv) => (lambda (e) (set! used (lset-adjoin/eq? used t)) (cdr e))) (else t))))) (let ((t2 (simplify t))) (when (pair? used) (set! t2 `(forall ,(filter-map (lambda (e) (and (memq (car e) used) (let ((v (cdr e))) (cond ((assq (car e) constraints) => (lambda (c) (list v (simplify (cadr c))))) (else v))))) typeenv) ,t2))) (dd "simplify: ~a -> ~a" t t2) t2))) (define (maybe-expand-type t) (and (symbol? t) (alist-ref t type-expansions eq?))) ;;; Merging types (define (merge-argument-types ts1 ts2) ;; this could be more elegantly done by combining non-matching arguments/llists ;; into "(or (procedure ...) (procedure ...))" and then simplifying (cond ((null? ts1) (cond ((null? ts2) '()) ((memq (car ts2) '(#!rest #!optional)) ts2) (else '(#!rest)))) ((null? ts2) '(#!rest)) ;XXX giving up ((eq? '#!rest (car ts1)) (cond ((and (pair? ts2) (eq? '#!rest (car ts2))) `(#!rest ,(simplify-type `(or ,(rest-type (cdr ts1)) ,(rest-type (cdr ts2)))))) (else '(#!rest)))) ;XXX giving up ((eq? '#!optional (car ts1)) (cond ((and (pair? ts2) (eq? '#!optional (car ts2))) `(#!optional ,(simplify-type `(or ,(cadr ts1) ,(cadr ts2))) ,@(merge-argument-types (cddr ts1) (cddr ts2)))) (else '(#!rest)))) ;XXX ((memq (car ts2) '(#!rest #!optional)) (merge-argument-types ts2 ts1)) (else (cons (simplify-type `(or ,(car ts1) ,(car ts2))) (merge-argument-types (cdr ts1) (cdr ts2)))))) (define (merge-result-types ts11 ts21) ;XXX possibly overly conservative (call/cc (lambda (return) (let loop ((ts1 ts11) (ts2 ts21)) (cond ((and (null? ts1) (null? ts2)) '()) ((or (atom? ts1) (atom? ts2)) (return '*)) (else (cons (simplify-type `(or ,(car ts1) ,(car ts2))) (loop (cdr ts1) (cdr ts2))))))))) (define (compatible-types? t1 t2 #!optional (te (type-typeenv `(or ,t1 ,t2)))) (or (type<=? t1 t2 te) (type<=? t2 t1 te))) (define (type-min t1 t2 #!optional (te (type-typeenv `(or ,t1 ,t2)))) (cond ((type<=? t1 t2 te) t1) ((type<=? t2 t1 te) t2) (else #f))) (define (type<=? t1 t2 #!optional (te (type-typeenv `(or ,t1 ,t2)))) (with-trail-restore te (lambda () (match-types t2 t1 te #t)))) ;; ;; Combines the information in `t1' and `t2' to produce a smaller type, ;; with a preference for `t2' if no smaller type can be determined. ;; Merges refinements at each step. ;; (define (refine-types t1 t2) (define (refine t1 t2 te) (let loop ((t1 t1) (t2 t2)) (cond ((maybe-expand-type t1) => (cut loop <> t2)) ((maybe-expand-type t2) => (cut loop t1 <>)) ((and (pair? t1) (memq (car t1) '(forall refine))) (let ((t1* (loop (third t1) t2))) (and t1* (list (car t1) (second t1) t1*)))) ((and (pair? t2) (memq (car t2) '(forall refine))) (let ((t2* (loop t1 (third t2)))) (and t2* (list (car t2) (second t2) t2*)))) ;; (or pair null) ~> (list-of a) -> (list-of a) ((and (pair? t1) (eq? (car t1) 'or) (lset=/eq? '(null pair) (cdr t1)) (and (pair? t2) (eq? 'list-of (car t2)))) t2) ((and (pair? t1) (eq? (car t1) 'or)) (let ((ts (filter-map (lambda (t) (loop t t2)) (cdr t1)))) (and (pair? ts) (cons 'or ts)))) ((and (pair? t1) (memq (car t1) '(pair list vector vector-of list-of)) (pair? t2) (eq? (car t1) (car t2)) (eq? (length t1) (length t2))) (let ((ts (map loop (cdr t1) (cdr t2)))) (and (every identity ts) (cons (car t1) ts)))) (else (type-min t1 t2 te))))) (let* ((te (type-typeenv `(or ,t1 ,t2))) (rt (or (refine t1 t2 te) t2))) (if (eq? rt t2) rt (simplify-type rt)))) ;;; various operations on procedure types (define (procedure-type? t) (or (eq? 'procedure t) (and (pair? t) (case (car t) ((forall) (procedure-type? (third t))) ((procedure) #t) ((or) (every procedure-type? (cdr t))) (else #f))))) (define (procedure-name t) (and (pair? t) (case (car t) ((forall) (procedure-name (third t))) ((procedure) (let ((n (cadr t))) (cond ((string? n) (string->symbol n)) ((symbol? n) n) (else #f)))) (else #f)))) (define (procedure-arguments t) (and (pair? t) (case (car t) ((forall) (procedure-arguments (third t))) ((procedure) (let ((n (second t))) (if (or (string? n) (symbol? n)) (third t) (second t)))) (else (bomb "procedure-arguments: not a procedure type" t))))) (define (procedure-results t) (and (pair? t) (case (car t) ((forall) (procedure-results (third t))) ((procedure) (let ((n (second t))) (if (or (string? n) (symbol? n)) (cdddr t) (cddr t)))) (else (bomb "procedure-results: not a procedure type" t))))) (define (procedure-argument-types t n typeenv #!optional norest) (let loop1 ((t t) (done '())) (cond ((and (pair? t) (eq? 'procedure (car t))) (let* ((vf #f) (ok #t) (alen 0) (llist ;; quite a mess (let loop ((at (if (or (string? (second t)) (symbol? (second t))) (third t) (second t))) (m n) (opt #f)) (cond ((null? at) (set! ok (or opt (zero? m))) '()) ((eq? '#!optional (car at)) (if norest '() (loop (cdr at) m #t) )) ((eq? '#!rest (car at)) (cond (norest '()) (else (set! vf (and (pair? (cdr at)) (eq? 'values (cadr at)))) (make-list m (rest-type (cdr at)))))) ((and opt (<= m 0)) '()) (else (set! ok (positive? m)) (set! alen (add1 alen)) (cons (car at) (loop (cdr at) (sub1 m) opt))))))) (values llist vf ok alen))) ((and (pair? t) (eq? 'forall (car t))) (loop1 (third t) done)) ; assumes typeenv has already been extracted ((assq t typeenv) => (lambda (e) (let ((t2 (second e))) (if (and t2 (memq t2 done)) (loop1 '* done) ; circularity (loop1 t2 (cons t done)))))) (else (values (make-list n '*) #f #t n))))) (define (procedure-result-types t values-rest? args typeenv) (define (loop1 t) (cond (values-rest? args) ((assq t typeenv) => (lambda (e) (loop1 (second e)))) ((and (pair? t) (eq? 'procedure (car t))) (call/cc (lambda (return) (let loop ((rt (if (or (string? (second t)) (symbol? (second t))) (cdddr t) (cddr t)))) (cond ((null? rt) '()) ((memq rt '(* noreturn)) (return '*)) (else (cons (car rt) (loop (cdr rt))))))))) ((and (pair? t) (eq? 'forall (car t))) (loop1 (third t))) ; assumes typeenv has already been extracted (else '*))) (loop1 t)) (define (named? t) (and (pair? t) (case (car t) ((procedure) (not (or (null? (cadr t)) (pair? (cadr t))))) ((forall) (named? (third t))) (else #f)))) (define (rest-type r) (cond ((null? r) '*) ((eq? 'values (car r)) '*) (else (car r)))) (define (noreturn-procedure-type? ptype) (and (pair? ptype) (case (car ptype) ((procedure) (and (list? ptype) (equal? '(noreturn) (if (pair? (second ptype)) (cddr ptype) (cdddr ptype))))) ((forall) (noreturn-procedure-type? (third ptype))) (else #f)))) (define (noreturn-type? t) (or (eq? 'noreturn t) (and (pair? t) (case (car t) ((or) (any noreturn-type? (cdr t))) ((forall) (noreturn-type? (third t))) (else #f))))) ;;; Refinement type helpers (define (refinement-type? t) (and (pair? t) (case (first t) ((refine) #t) ((forall) (refinement-type? (third t))) (else #f)))) ;;; Type-environments and -variables (define (make-tv sym) (let* ((r (get sym '##core#tv-root)) ;; ##core#tv-root is a string to make this gensym fast (new (gensym r))) (put! new '##core#tv-root r) new)) (define (type-typeenv t) (let ((te '())) (let loop ((t t)) (when (pair? t) (case (car t) ((refine) (loop (third t))) ((procedure) (cond ((or (string? (second t)) (symbol? (second t))) (for-each loop (third t)) (when (pair? (cdddr t)) (for-each loop (cdddr t)))) (else (for-each loop (second t)) (when (pair? (cddr t)) (for-each loop (cddr t)))))) ((forall) (set! te (append (map (lambda (tv) (if (symbol? tv) (list tv #f #f) (list (first tv) #f (second tv)))) (second t)) te)) (loop (third t))) ((or) (for-each loop (cdr t)))))) te)) (define (trail-restore tr typeenv) (do ((tr2 trail (cdr tr2))) ((eq? tr2 tr)) (let ((a (assq (car tr2) typeenv))) (set-car! (cdr a) #f)))) (define (with-trail-restore typeenv thunk) (let* ((trail0 trail) (result (thunk))) (trail-restore trail0 typeenv) result)) (define (resolve t typeenv) (simplify-type ;XXX do only when necessary (let resolve ((t t) (done '())) (cond ((assq t typeenv) => (lambda (a) (let ((t2 (second a))) (if (or (not t2) (memq t2 done)) ; circular reference (if (third a) (resolve (third a) (cons t done)) '*) (resolve t2 (cons t done)))))) ((not (pair? t)) (if (or (memq t value-types) (memq t basic-types)) t (bomb "resolve: can't resolve unknown type-variable" t))) (else (case (car t) ((or) `(or ,@(map (cut resolve <> done) (cdr t)))) ((not) `(not ,(resolve (second t) done))) ((forall refine) (list (car t) (second t) (resolve (third t) done))) ((pair list vector vector-of list-of) (cons (car t) (map (cut resolve <> done) (cdr t)))) ((procedure) (let* ((name (procedure-name t)) (argtypes (procedure-arguments t)) (rtypes (procedure-results t))) `(procedure ,@(if name (list name) '()) ,(let loop ((args argtypes)) (cond ((null? args) '()) ((eq? '#!rest (car args)) (if (equal? '(values) (cdr args)) args (cons (car args) (loop (cdr args))))) ((eq? '#!optional (car args)) (cons (car args) (loop (cdr args)))) (else (cons (resolve (car args) done) (loop (cdr args)))))) ,@(if (eq? '* rtypes) '* (map (cut resolve <> done) rtypes))))) (else t))))))) ;;; type-db processing (define (load-type-database name specialize #!optional (path (repository-path))) (define (clean! name) (when specialize (mark-variable name '##compiler#clean #t))) (define (pure! name) (when specialize (mark-variable name '##compiler#pure #t))) (and-let* ((dbfile (if (not path) (and (##sys#file-exists? name #t #f #f) name) (chicken.load#find-file name path)))) (debugging 'p (sprintf "loading type database `~a' ...~%" dbfile)) (fluid-let ((scrutiny-debug #f)) (for-each (lambda (e) (let* ((name (car e)) (old (variable-mark name '##compiler#type)) (specs (and (pair? (cddr e)) (cddr e))) (new (let adjust ((new (cadr e))) (if (pair? new) (cond ((and (vector? (car new)) (eq? 'procedure (vector-ref (car new) 0))) (let loop ((props (cdr (vector->list (car new))))) (unless (null? props) (case (car props) ((#:pure) (pure! name) (loop (cdr props))) ((#:clean) (clean! name) (loop (cdr props))) ((#:enforce) (mark-variable name '##compiler#enforce #t) (loop (cdr props))) ((#:foldable) (mark-variable name '##compiler#foldable #t) (loop (cdr props))) ((#:predicate) (mark-variable name '##compiler#predicate (cadr props)) (loop (cddr props))) (else (bomb "load-type-database: invalid procedure-type property" (car props) new))))) `(procedure ,@(cdr new))) ((eq? 'forall (car new)) `(forall ,(second new) ,(adjust (third new)))) (else new)) new)))) ;; validation is needed, even though .types-files can be considered ;; correct, because type variables have to be renamed: (let-values (((t pred pure) (validate-type new name))) (unless t (warning (sprintf "Invalid type specification for `~a':~%~%~a" name (type->pp-string new)))) (when (and old (not (compatible-types? old t))) (warning (sprintf (string-append "Declared type for toplevel binding `~a'" "~%~%~a~%~%" " conflicts with previously loaded type:" "~%~%~a") name (type->pp-string new) (type->pp-string old)))) (mark-variable name '##compiler#type t) (mark-variable name '##compiler#type-source 'db) (when specs (install-specializations name specs))))) (call-with-input-file dbfile read-expressions)) #t))) (define (emit-types-file source-file types-file db block-compilation) (with-output-to-file types-file (lambda () (print "; GENERATED BY CHICKEN " (chicken-version) " FROM " source-file "\n") (hash-table-for-each (lambda (sym plist) (when (and (variable-visible? sym block-compilation) (memq (variable-mark sym '##compiler#type-source) '(local inference))) (let ((specs (or (variable-mark sym '##compiler#specializations) '())) (type (variable-mark sym '##compiler#type)) (pred (variable-mark sym '##compiler#predicate)) (pure (variable-mark sym '##compiler#pure)) (clean (variable-mark sym '##compiler#clean)) (enforce (variable-mark sym '##compiler#enforce)) (foldable (variable-mark sym '##compiler#foldable))) (pp (cons* sym (let wrap ((type type)) (if (pair? type) (case (car type) ((procedure) `(#(procedure ,@(if enforce '(#:enforce) '()) ,@(if pred `(#:predicate ,pred) '()) ,@(if pure '(#:pure) '()) ,@(if clean '(#:clean) '()) ,@(if foldable '(#:foldable) '())) ,@(cdr type))) ((forall) `(forall ,(second type) ,(wrap (third type)))) (else type)) type)) specs)) (newline)))) db) (print "; END OF FILE")))) ;; ;; Source node tracking ;; ;; Nodes are mutated in place during specialization, which may lose line ;; number information if, for example, a node is changed from a ;; ##core#call to a class without debug info. To preserve line numbers ;; and allow us to print fragments of the original source, we maintain a ;; side table of mappings from mutated nodes to copies of the originals. ;; (define node-mutations '()) (define (mutate-node! node expr) (set! node-mutations (alist-update! node (copy-node node) node-mutations)) (copy-node! (build-node-graph expr) node)) (define (source-node n #!optional (k values)) (let ((orig (alist-ref n node-mutations eq?))) (if (not orig) (k n) (source-node orig k)))) (define (source-node-tree n) (source-node n (lambda (n*) (make-node (node-class n*) (node-parameters n*) (map source-node-tree (node-subexpressions n*)))))) (define (node-line-number n) (node-debug-info (source-node n))) (define (node-debug-info n) (case (node-class n) ((##core#call) (let ((params (node-parameters n))) (and (pair? (cdr params)) (pair? (cadr params)) ; debug-info has line-number information? (source-info->line (cadr params))))) ((##core#typecase) (car (node-parameters n))) (else #f))) ;; Mutate node for specialization (define (specialize-node! node args template) (let ((env '())) (define (subst x) (cond ((and (vector? x) (= 1 (vector-length x)) ) (let ((y (vector-ref x 0))) (cond ((integer? y) (if (negative? y) (list-tail args (sub1 (- y))) (list-ref args (sub1 y)))) ((symbol? y) (cond ((assq y env) => cdr) (else (let ((var (gensym y))) (set! env (alist-cons y var env)) var))))))) ((and (vector? x) (= 2 (vector-length x)) (integer? (vector-ref x 0)) (eq? '... (vector-ref x 1))) (list-tail args (sub1 (vector-ref x 0)))) ((not (pair? x)) x) ((eq? 'quote (car x)) x) ; to handle numeric constants (else (cons (subst (car x)) (subst (cdr x)))))) (mutate-node! node (subst template)))) ;;; Type-validation and -normalization (define (validate-type type name) ;; - returns converted type or #f ;; - also converts "(... -> ...)" types ;; - converts some typenames to struct types (u32vector, etc.) ;; - handles some type aliases ;; - drops "#!key ..." args by converting to #!rest ;; - replaces uses of "&rest"/"&optional" with "#!rest"/"#!optional" ;; - handles "(T1 -> T2 : T3)" (predicate) ;; - handles "(T1 --> T2 [: T3])" (clean) ;; - simplifies result ;; - coalesces all "forall" forms into one (remove "forall" if typevar-set is empty) ;; - renames type-variables ;; - replaces type-abbreviations (let ((ptype #f) ; (T . PT) | #f (clean #f) (typevars '()) (constraints '())) (define (upto lst p) (let loop ((lst lst)) (cond ((eq? lst p) '()) (else (cons (car lst) (loop (cdr lst))))))) (define (memq* x lst) ; memq, but allow improper list (let loop ((lst lst)) (cond ((not (pair? lst)) #f) ((eq? (car lst) x) lst) (else (loop (cdr lst)))))) (define (validate-llist llist) (cond ((null? llist) '()) ((symbol? llist) '(#!rest *)) ((not (pair? llist)) #f) ((or (eq? '#!optional (car llist)) (eq? '&optional (car llist))) (let ((l1 (validate-llist (cdr llist)))) (and l1 (cons '#!optional l1)))) ((or (eq? '#!rest (car llist)) (eq? '&rest (car llist))) (cond ((null? (cdr llist)) '(#!rest *)) ((not (pair? (cdr llist))) #f) (else (let ((l1 (validate (cadr llist)))) (and l1 `(#!rest ,l1)))))) ((eq? '#!key (car llist)) '(#!rest *)) (else (let* ((l1 (validate (car llist))) (l2 (validate-llist (cdr llist)))) (and l1 l2 (cons l1 l2)))))) (define (validate t #!optional (rec #t)) (cond ((memq t value-types) t) ((memq t basic-types) t) ((memq t struct-types) `(struct ,t)) ((eq? t 'immediate) '(or eof null fixnum char boolean)) ((eq? t 'any) '*) ((eq? t 'void) 'undefined) ((eq? t 'input-port) '(refine (input) port)) ((eq? t 'output-port) '(refine (output) port)) ((and (symbol? t) (##sys#get t '##compiler#type-abbreviation))) ((not (pair? t)) (cond ((memq t typevars) t) (else #f))) ((eq? 'not (car t)) (and (= 2 (length t)) `(not ,(validate (second t))))) ((eq? 'forall (car t)) (and (= 3 (length t)) (list? (second t)) (call/cc (lambda (return) (set! typevars (append (map (lambda (tv) (cond ((symbol? tv) tv) ((and (list? tv) (= 2 (length tv)) (symbol? (car tv))) (car tv)) (else (return #f)))) (second t)) typevars)) (set! constraints (append (filter-map (lambda (tv) (and (pair? tv) (list (car tv) (let ((t (validate (cadr tv)))) (unless t (return #f)) t)))) (second t)) constraints)) (validate (third t) rec))))) ((and (eq? 'quote (car t)) (pair? (cdr t)) (symbol? (second t)) (null? (cddr t)) (second t)) => (lambda (v) (unless (memq v typevars) (set! typevars (cons v typevars))) v)) ((eq? 'or (car t)) (and (list? t) (let ((ts (map validate (cdr t)))) (and (every identity ts) `(or ,@ts))))) ((eq? 'struct (car t)) (and (= 2 (length t)) (symbol? (second t)) t)) ((eq? 'deprecated (car t)) (and (= 2 (length t)) (symbol? (second t)) t)) ((eq? 'refine (car t)) (and (= 3 (length t)) (let ((t2 (validate (third t)))) (and (value-type? t2) (list? (second t)) (every symbol? (second t)) (list 'refine (second t) t2))))) ((or (memq* '--> t) (memq* '-> t)) => (lambda (p) (let* ((cleanf (eq? '--> (car p))) (ok (or (not rec) (not cleanf)))) (unless rec (set! clean cleanf)) (let ((cp (memq* ': p))) (cond ((not cp) (and ok (validate `(procedure ,(upto t p) ,@(cdr p)) rec))) ((and (= 5 (length t)) (eq? p (cdr t)) ; one argument? (eq? cp (cdddr t))) ; 4th item is ":"? (set! t (validate `(procedure (,(first t)) ,(third t)) rec)) ;; we do it this way to distinguish the "outermost" predicate ;; procedure type (set! ptype (cons t (validate (cadr cp)))) (and ok t)) (else #f)))))) ((memq (car t) '(vector-of list-of)) (and (list? t) (= 2 (length t)) (let ((t2 (validate (second t)))) (and t2 `(,(car t) ,t2))))) ((memq (car t) '(vector list)) (and (list? t) (let loop ((ts (cdr t)) (ts2 '())) (cond ((null? ts) `(,(car t) ,@(reverse ts2))) ((validate (car ts)) => (lambda (t2) (loop (cdr ts) (cons t2 ts2)))) (else #f))))) ((eq? 'pair (car t)) (and (= 3 (length t)) (let ((ts (map validate (cdr t)))) (and (every identity ts) `(pair ,@ts))))) ((eq? 'procedure (car t)) (and (pair? (cdr t)) (let* ((name (if (symbol? (cadr t)) (cadr t) name)) (t2 (if (symbol? (cadr t)) (cddr t) (cdr t)))) (and (pair? t2) (list? (car t2)) (let ((ts (validate-llist (car t2)))) (and ts (every identity ts) (let* ((rt2 (cdr t2)) (rt (if (eq? '* rt2) rt2 (and (list? rt2) (let ((rts (map validate rt2))) (and (every identity rts) rts)))))) (and rt `(procedure ,@(if (and name (not rec)) (list name) '()) ,ts ,@rt))))))))) (else #f))) (cond ((validate type #f) => (lambda (type) (when (pair? typevars) (set! type `(forall ,(map (lambda (tv) (put! tv '##core#tv-root (symbol->string (strip-syntax tv))) (cond ((assq tv constraints) => identity) (else tv))) (delete-duplicates typevars eq?)) ,type))) (let ((type2 (simplify-type type))) (values type2 (and ptype (eq? (car ptype) type) (cdr ptype)) clean)))) (else (values #f #f #f))))) (define (check-and-validate-type type loc #!optional name) (let-values (((t pred pure) (validate-type (strip-syntax type) name))) (or t (error loc "invalid type specifier" type)))) (define (install-specializations name specs) (define (fail spec) (error "invalid specialization format" spec name)) (mark-variable name '##compiler#specializations ;;XXX it would be great if result types could refer to typevars ;; bound in the argument types, like this: ;; ;; (: with-input-from-file ((-> . *) -> . *) ;; (((forall (a) (-> a))) (a) ...code that does it single-valued-ly...)) ;; ;; This would make it possible to propagate the (single) result type from ;; the thunk to the enclosing expression. Unfortunately the simplification in ;; the first validation renames typevars, so the second validation will have ;; non-matching names. (map (lambda (spec) (if (and (list? spec) (list? (first spec))) (let* ((args (map (lambda (t) (let-values (((t2 pred pure) (validate-type t #f))) (or t2 (error "invalid argument type in specialization" t spec name)))) (first spec))) (typevars (unzip1 (append-map type-typeenv args)))) (cons args (case (length spec) ((2) (cdr spec)) ((3) (cond ((list? (second spec)) (cons (map (lambda (t) (let-values (((t2 pred pure) (validate-type t #f))) (or t2 (error "invalid result type in specialization" t spec name)))) (second spec)) (cddr spec))) ((eq? '* (second spec)) (cdr spec)) (else (fail spec)))) (else (fail spec))))) (fail spec))) specs))) ;;; Canonicalize complex pair/list type for matching with "list-of" ; ; Returns an equivalent (list ...) form, or the original argument if no ; canonicalization could be done. (define (canonicalize-list-type t) (cond ((not (pair? t)) t) ((eq? 'pair (car t)) (let ((tcar (second t)) (tcdr (third t))) (let rec ((tr tcdr) (ts (list tcar))) (cond ((eq? 'null tr) `(list ,@(reverse ts))) ((and (pair? tr) (eq? 'pair (first tr))) (rec (third tr) (cons (second tr) ts))) ((and (pair? tr) (eq? 'list (first tr))) `(list ,@(reverse ts) ,@(cdr tr))) (else t))))) (else t))) ;;; Drop namespace from module-prefixed symbol: (define (strip-namespace sym) (let* ((s (symbol->string sym)) (n (string-length s))) (let loop ((i 0)) (cond ((eq? i n) sym) ((eq? (##core#inline "C_subchar" s i) #\#) (##sys#intern-symbol (##sys#substring s (fx+ i 1) n))) (else (loop (fx+ i 1))))))) ;;; hardcoded result types for certain primitives (define-syntax define-special-case (syntax-rules () ((_ name handler) (##sys#put! 'name '##compiler#special-result-type handler)))) (define-special-case ##sys#make-structure (lambda (node args loc rtypes) (or (and-let* ((subs (node-subexpressions node)) ((>= (length subs) 2)) (arg1 (second subs)) ((eq? 'quote (node-class arg1))) (val (first (node-parameters arg1))) ((symbol? val))) ;;XXX a dirty hack - we should remove the distinct ;; "pointer-vector" type. (if (eq? 'pointer-vector val) '(pointer-vector) `((struct ,(strip-namespace val))))) rtypes))) (let () (define (known-length-vector-index node args loc expected-argcount) (and-let* ((subs (node-subexpressions node)) ((= (length subs) (add1 expected-argcount))) (arg1 (walked-result (second args))) ((pair? arg1)) ((eq? 'vector (car arg1))) (index (third subs)) ((eq? 'quote (node-class index))) (val (first (node-parameters index))) ((fixnum? val)) ; Standard type warning otherwise (vector-length (length (cdr arg1)))) (if (and (>= val 0) (< val vector-length)) val (begin (r-index-out-of-range loc node val vector-length "vector") #f)))) ;; These are a bit hacky, since they mutate the node. These special ;; cases are really only intended for determining result types... (define (vector-ref-result-type node args loc rtypes) (or (and-let* ((index (known-length-vector-index node args loc 2)) (arg1 (walked-result (second args))) (vector (second (node-subexpressions node)))) (mutate-node! node `(##sys#slot ,vector ',index)) (list (list-ref (cdr arg1) index))) rtypes)) (define-special-case scheme#vector-ref vector-ref-result-type) (define-special-case ##sys#vector-ref vector-ref-result-type) (define-special-case scheme#vector-set! (lambda (node args loc rtypes) (or (and-let* ((index (known-length-vector-index node args loc 3)) (subs (node-subexpressions node)) (vector (second subs)) (new-value (fourth subs)) (new-value-type (walked-result (fourth args))) (setter (if (type-always-immediate? new-value-type) '##sys#setislot '##sys#setslot))) (mutate-node! node `(,setter ,vector ',index ,new-value)) '(undefined)) rtypes)))) ;; TODO: Also special-case vector-length? Makes little sense though. ;;; List-related special cases ; ; Preserve known element types for: ; ; list-ref, list-tail (let () (define (list-or-null a) (if (null? a) 'null `(list ,@a))) ;; Split a list or pair type form at index i, calling k with the two ;; sections of the type or returning #f if it doesn't match that far. ;; Note that "list-of" is handled by "forall" entries in types.db (define (split-list-type l i k) (cond ((not (pair? l)) (and (fx= i 0) (eq? l 'null) (k l l))) ((eq? (first l) 'list) (and (fx< i (length l)) (receive (left right) (split-at (cdr l) i) (k (list-or-null left) (list-or-null right))))) ((eq? (first l) 'pair) (let lp ((a '()) (l l) (i i)) (cond ((fx= i 0) (k (list-or-null (reverse a)) l)) ((and (pair? l) (eq? (first l) 'pair)) (lp (cons (second l) a) (third l) (sub1 i))) (else #f)))) (else #f))) ;; canonicalize-list-type will have taken care of converting (pair ;; (pair ...)) to (list ...) or (list-of ...) for proper lists. (define (proper-list-type-length t) (cond ((eq? t 'null) 0) ((and (pair? t) (eq? (car t) 'list)) (length (cdr t))) (else #f))) (define (list+index-call-result-type-special-case k) (lambda (node args loc rtypes) (or (and-let* ((subs (node-subexpressions node)) ((= (length subs) 3)) (arg1 (walked-result (second args))) (index (third subs)) ((eq? 'quote (node-class index))) (val (first (node-parameters index))) ((fixnum? val))) ; Standard type warning otherwise (cond ((negative? val) (r-index-out-of-range loc node val 'not-used "list") #f) ((split-list-type arg1 val k)) ;; Warn only if it's a known proper list. This avoids ;; false warnings due to component smashing. ((proper-list-type-length arg1) => (lambda (length) (r-index-out-of-range loc node val length "list") #f)) (else #f))) rtypes))) (define-special-case scheme#list-ref (list+index-call-result-type-special-case (lambda (_ result-type) (and (pair? result-type) (list (cadr result-type)))))) (define-special-case scheme#list-tail (list+index-call-result-type-special-case (lambda (_ result-type) (list result-type))))) (define-special-case scheme#list (lambda (node args loc rtypes) (if (null? (cdr args)) '(null) `((list ,@(map walked-result (cdr args))))))) (define-special-case ##sys#list (lambda (node args loc rtypes) (if (null? (cdr args)) '(null) `((list ,@(map walked-result (cdr args))))))) (define-special-case scheme#vector (lambda (node args loc rtypes) `((vector ,@(map walked-result (cdr args)))))) (define-special-case ##sys#vector (lambda (node args loc rtypes) `((vector ,@(map walked-result (cdr args)))))) (define-special-case scheme#reverse (lambda (node args loc rtypes) (or (and-let* ((subs (node-subexpressions node)) ((= (length subs) 2)) (arg1 (walked-result (second args))) ((pair? arg1)) ((eq? (car arg1) 'list))) `((list ,@(reverse (cdr arg1))))) rtypes))) (let () (define (append-special-case node args loc rtypes) (define (potentially-proper-list? l) (match-types l 'list '())) (define (derive-result-type) (let lp ((args (cdr args)) (index 1)) (if (null? args) 'null (let* ((arg1 (car args)) (arg1-t (walked-result arg1))) (cond ((and (pair? arg1-t) (eq? (car arg1-t) 'list)) (and-let* ((rest-t (lp (cdr args) (add1 index)))) ;; decanonicalize, then recanonicalize to make it ;; easy to append a variety of types. (canonicalize-list-type (foldl (lambda (rest t) `(pair ,t ,rest)) rest-t (reverse (cdr arg1-t)))))) ((and (pair? arg1-t) (eq? (car arg1-t) 'list-of)) (and-let* ((rest-t (lp (cdr args) (add1 index)))) ;; list-of's length unsurety is "contagious" (simplify-type `(or ,arg1-t ,rest-t)))) ;; TODO: (append (pair x (pair y z)) lst) => ;; (pair x (pair y (or z lst))) ;; This is trickier than it sounds! (else ;; The final argument may be an atom or improper list (unless (or (null? (cdr args)) (potentially-proper-list? arg1-t)) (r-proc-call-argument-type-mismatch loc node index arg1 'list arg1-t (variable-mark 'scheme#append '##compiler#type))) #f)))))) (cond ((derive-result-type) => list) (else rtypes))) (define-special-case scheme#append append-special-case) (define-special-case ##sys#append append-special-case)) ;;; Special cases for make-list/make-vector with a known size ; ; e.g. (make-list 3 #\a) => (list char char char) (let () (define (complex-object-constructor-result-type-special-case type) (lambda (node args loc rtypes) (or (and-let* ((subs (node-subexpressions node)) (fill (case (length subs) ((2) '*) ((3) (walked-result (third args))) (else #f))) (sub2 (second subs)) ((eq? 'quote (node-class sub2))) (size (first (node-parameters sub2))) ((fixnum? size)) ((<= 0 size +maximal-complex-object-constructor-result-type-length+))) `((,type ,@(make-list size fill)))) rtypes))) (define-special-case scheme#make-vector (complex-object-constructor-result-type-special-case 'vector))) ;;; perform check over all typevar instantiations ; ; If "all" is #t all types in tlist must match, if #f then one or more. (define (over-all-instantiations tlist typeenv all process) (let ((insts '()) (anyinst #f) (trail0 trail)) ;; restore trail and collect instantiations (define (restore) (ddd "restoring, trail: ~s, te: ~s" trail typeenv) (let ((is '())) (do ((tr trail (cdr tr))) ((eq? tr trail0) (set! trail tr) (when (pair? is) (set! anyinst #t)) (set! insts (cons is insts))) (set! is (alist-cons (car tr) (resolve (car tr) typeenv) is)) (ddd " restoring ~a, insts: ~s" (car tr) insts) (let ((a (assq (car tr) typeenv))) (set-car! (cdr a) #f))))) ;; collect candidates for each typevar (define (collect) (let* ((vars (delete-duplicates (concatenate (map unzip1 insts)) eq?)) (all (map (lambda (var) (cons var (filter-map (lambda (inst) (cond ((assq var inst) => cdr) ;;XXX is the following correct in all cases? (all '*) (else #f))) insts))) vars))) (ddd " collected: ~s" all) all)) (ddd " over-all-instantiations: ~s all: ~a" tlist all) ;; process all tlist elements (let loop ((ts (delete-duplicates tlist eq?)) (ok #f)) (cond ((null? ts) (cond ((or ok (null? tlist)) (for-each (lambda (i) (set! trail (cons (car i) trail)) (set-car! (cdr (assq (car i) typeenv)) (simplify-type `(or ,@(cdr i))))) (collect)) #t) (else #f))) ((process (car ts)) (restore) (loop (cdr ts) #t)) (all (restore) #f) (else (restore) (loop (cdr ts) ok)))))) ;;; Report helpers (define (multiples n) (if (= n 1) "" "s")) (define (string-add-indent str #!optional (indent " ")) (let* ((ls (string-split str "\n" #t)) (s (string-intersperse (map (lambda (l) (if (string=? "" l) l (string-append indent l))) ls) "\n"))) (if (eq? #\newline (string-ref str (sub1 (string-length str)))) (string-append s "\n") s))) (define (type->pp-string t) (define (pp-tv tv) (let ((r (get tv '##core#tv-root))) (assert r (list tv: tv)) (list 'quote (string->symbol r)))) (define (conv t #!optional (tv-replacements '())) (define (R t) (conv t tv-replacements)) (cond ((not (pair? t)) (or (alist-ref t tv-replacements eq?) t)) ((refinement-type? t) (string->symbol (sprintf "~a-~a" (string-intersperse (map conc (second t)) "/") (third t)))) (else (let ((tcar (and (pair? t) (car t)))) (cond ((and (eq? 'forall tcar) (every symbol? (second t))) ; no constraints (let ((tvs (map (lambda (tv) (cons tv (pp-tv tv))) (second t)))) (conv (third t) tvs))) ((eq? 'forall tcar) t) ; forall with constraints, do nothing ((memq tcar '(or not list vector pair list-of vector-of)) `(,tcar ,@(map R (cdr t)))) ((eq? 'struct tcar) t) ((eq? 'procedure tcar) (let ((args (map R (procedure-arguments t))) (res (let ((res (procedure-results t))) (if (eq? '* res) #f (map R res))))) (if (not res) ; '. *' return type not supported by -> `(procedure ,args ,@(or res '*)) `(,@args ,(if (and-let* ((pn (procedure-name t)) ((variable-mark pn '##compiler#pure)))) '--> '->) ,@res)))) (else (bomb "type->pp-string: unhandled type" t))))))) (let ((t* (conv (strip-syntax t)))) (string-add-indent (string-chomp (with-output-to-string (lambda () (pp t*))))))) (define (fragment x) (let ((x (build-expression-tree (source-node-tree x)))) (let walk ((x x) (d 0)) (cond ((atom? x) (strip-syntax x)) ((>= d +fragment-max-depth+) '...) ((list? x) (let* ((len (length x)) (xs (if (< +fragment-max-length+ len) (append (take x +fragment-max-length+) '(...)) x))) (map (cute walk <> (add1 d)) xs))) (else (strip-syntax x)))))) (define (pp-fragment x) (string-add-indent (string-chomp (with-output-to-string (lambda () (pp (fragment x))))))) (define (node-source-prefix n) (let ((line (node-line-number n))) (if (not line) "" (sprintf "In file `~a'," line)))) (define (location-name loc #!optional (indent " ")) (define (lname loc1) (if loc1 (sprintf "In procedure `~a'," (real-name loc1)) "In a local procedure,")) (if (null? loc) (conc "At the toplevel,\n" indent) (let rec ((loc loc) (msgs (list ""))) (if (null? (cdr loc)) (string-intersperse (cons (if (car loc) ;; If the first location is of format 'bar#foo' ;; consider it as being being procedure 'foo' in ;; module 'bar'. (receive (var mod) (variable-and-module (real-name (car loc))) (conc (if mod (sprintf "In module `~a',~%~a" mod indent) "") (sprintf "In procedure `~a'," var))) "In a toplevel procedure,") msgs) (conc "\n" indent)) (rec (cdr loc) (cons (lname (car loc)) msgs)))))) (define (variable-and-module name) ; -> (values var module-or-false) (let* ((str-name (if (symbol? name) (symbol->string name) name)) (r (string-split str-name "#" #t))) (if (pair? (cdr r)) (values (string->symbol (second r)) (string->symbol (first r))) (values (string->symbol str-name) #f)))) (define (variable-from-module sym) (receive (var mod) (variable-and-module sym) (if mod (sprintf "`~a' from module `~a'" var mod) (sprintf "`~a'" var)))) (define (describe-expression node) (define (p-expr n) (sprintf (string-append "This is the expression:" "~%~%" "~a") (pp-fragment n))) (define (p-node n) (cond ((and (eq? '##core#call (node-class n)) (let ((pnode (first (node-subexpressions n)))) (and-let* (((eq? '##core#variable (node-class pnode))) (pname (car (node-parameters pnode))) (ptype (variable-mark pname '##compiler#type))) (sprintf (string-append "It is a call to ~a which has this type:" "~%~%" "~a" "~%~%" "~a") (variable-from-module pname) (type->pp-string ptype) (p-expr n)))))) ((eq? '##core#the/result (node-class n)) ; walk through (p-node (first (node-subexpressions n)))) (else (p-expr n)))) (p-node (source-node-tree node))) (define (call-node-procedure-name node) (fragment (first (node-subexpressions node)))) (define (report2 short report-f location-node-candidates loc msg . args) (define (file-location) (any (lambda (n) (and (not (string=? "" (node-source-prefix n))) (node-source-prefix n))) location-node-candidates)) (when *complain?* (report-f (conc short (string-add-indent (conc (let ((l (file-location))) (if l (conc "\n" l) "")) "\n" (location-name loc "") (sprintf "~?" msg args)) " "))) (flush-output))) (define (report-notice reason location-node-candidates loc msg . args) (apply report2 reason ##sys#notice location-node-candidates loc msg args)) ;;; Reports (define (r-invalid-called-procedure-type loc call-node xptype p-node ptype) (define (variable-node-name n) (cond ((eq? '##core#the/result (node-class n)) (variable-node-name (first (node-subexpressions n)))) ((eq? '##core#variable (node-class n)) (car (node-parameters n))) (else #f))) (if (variable-node-name p-node) (report2 "Invalid procedure" warning (list p-node call-node) loc (string-append "In procedure call:" "~%~%" "~a" "~%~%" "Variable ~a is not a procedure." "~%~%" "It has this type:" "~%~%" "~a") (pp-fragment call-node) (variable-from-module (variable-node-name p-node)) (type->pp-string ptype)) (report2 "Invalid procedure" warning (list p-node call-node) loc (string-append "In procedure call:" "~%~%" "~a" "~%~%" "The procedure expression does not appear to be a callable." "~%~%" "~a" "~%~%" "The expected type is:" "~%~%" "~a" "~%~%" "The actual type is:" "~%~%" "~a") (pp-fragment call-node) (describe-expression p-node) (type->pp-string xptype) (type->pp-string ptype)))) (define (r-proc-call-argument-count-mismatch loc node exp-count argc ptype) (define pname (call-node-procedure-name node)) (report2 "Wrong number of arguments" warning (list node) loc (string-append "In procedure call:" "~%~%" "~a" "~%~%" "Procedure `~a' is called with ~a argument~a but ~a argument~a ~a expected." "~%~%" "Procedure ~a has this type:" "~%~%" "~a") (pp-fragment node) (strip-namespace pname) argc (multiples argc) exp-count (multiples exp-count) (if (= exp-count 1) "is" "are") (variable-from-module pname) (type->pp-string ptype))) (define (r-proc-call-argument-type-mismatch loc node i arg-node xptype atype ptype) (define pname (call-node-procedure-name node)) (report2 "Invalid argument" warning (list node) loc (string-append "In procedure call:" "~%~%" "~a" "~%~%" "Argument #~a to procedure `~a' has an invalid type:" "~%~%" "~a" "~%~%" "The expected type is:" "~%~%" "~a" "~%~%" "~a" "~%~%" "Procedure ~a has this type:" "~%~%" "~a") (pp-fragment node) i (strip-namespace pname) (type->pp-string atype) (type->pp-string xptype) (describe-expression arg-node) (variable-from-module pname) (type->pp-string ptype))) (define (r-proc-call-argument-value-count loc call-node i arg-node atype) (define pname (call-node-procedure-name call-node)) (define (p short long) (report2 short warning (list arg-node call-node) loc (string-append "In procedure call:" "~%~%" "~a" "~%~%" "Argument #~a to procedure~a ~a" "~%~%" "~a") (pp-fragment call-node) i (if (zero? i) "" (sprintf " `~a'" (strip-namespace pname))) long (describe-expression arg-node))) (if (zero? (length atype)) (p "Not enough argument values" "does not return any values.") (p "Too many argument values" (sprintf "returns ~a values but 1 is expected." (length atype))))) (define (r-index-out-of-range loc node idx obj-length obj-name) ;; Negative indices should always generate a warning (define pname (call-node-procedure-name node)) (report2 (if (negative? idx) (sprintf "Negative ~a index" obj-name) (sprintf "~a~a index out of range" (char-upcase (string-ref obj-name 0)) (substring obj-name 1))) warning (list node) loc (string-append "In procedure call:" "~%~%" "~a" "~%~%" "Procedure ~a is called with ~a") (pp-fragment node) (variable-from-module pname) (if (negative? idx) (sprintf "a negative index ~a." idx) (sprintf "index `~a' for a ~a of length `~a'." idx obj-name obj-length)))) (define (r-conditional-value-count-invalid loc if-node test-node atype) (define (p short long) (report2 short warning (list test-node if-node) loc (string-append "In conditional:" "~%~%" "~a" "~%~%" "The test expression ~a" "~%~%" "~a") (pp-fragment if-node) long (describe-expression test-node))) (if (zero? (length atype)) (p "Zero values for conditional" "returns 0 values.") (p "Too many values for conditional" (sprintf "returns ~a values." (length atype))))) (define (r-let-value-count-invalid loc var let-node val-node atype) (define (p short long) (report2 short warning (list val-node let-node) loc (string-append "In let expression:" "~%~%" "~a" "~%~%" "Variable `~a' is bound to an expression that ~a" "~%~%" "~a") (pp-fragment let-node) (real-name var) long (describe-expression val-node))) (if (zero? (length atype)) (p (sprintf "Let binding to `~a' has zero values" (real-name var)) "returns 0 values.") (p (sprintf "Let binding to `~a' has ~a values" (real-name var) (length atype)) (sprintf "returns ~a values." (length atype))))) (define (r-assignment-value-count-invalid loc var set-node val-node atype) (define (p short long) (report2 short warning (list val-node set-node) loc (string-append "In assignment:" "~%~%" "~a" "~%~%" "Variable `~a' is assigned from expression that ~a" "~%~%" "~a") (pp-fragment set-node) (strip-namespace var) long (describe-expression val-node))) (if (zero? (length atype)) (p (sprintf "Assignment to `~a' has zero values" (strip-namespace var)) "returns 0 values.") (p (sprintf "Assignment to `~a' has ~a values" (strip-namespace var) (length atype)) (sprintf "returns ~a values." (length atype))))) (define (r-pred-call-always-true loc node pred-type atype) (define pname (call-node-procedure-name node)) (report-notice "Predicate is always true" (list node) loc (string-append "In procedure call:" "~%~%" "~a" "~%~%" "The predicate will always return true." "~%~%" "Procedure ~a is a predicate for:" "~%~%" "~a" "~%~%" "The given argument has this type:" "~%~%" "~a") (pp-fragment node) (variable-from-module pname) (type->pp-string pred-type) (type->pp-string atype))) (define (r-pred-call-always-false loc node pred-type atype) (define pname (call-node-procedure-name node)) (report-notice "Predicate is always false" (list node) loc (string-append "In procedure call:" "~%~%" "~a" "~%~%" "The predicate will always return false." "~%~%" "Procedure ~a is a predicate for:" "~%~%" "~a" "~%~%" "The given argument has this type:" "~%~%" "~a") (pp-fragment node) (variable-from-module pname) (type->pp-string pred-type) (type->pp-string atype))) (define (r-cond-test-always-true loc if-node test-node t) (report-notice "Test is always true" (list test-node if-node) loc (string-append "In conditional expression:" "~%~%" "~a" "~%~%" "Test condition has always true value of type:" "~%~%" "~a") (pp-fragment if-node) (type->pp-string t))) (define (r-cond-test-always-false loc if-node test-node) (report-notice "Test is always false" (list test-node if-node) loc (string-append "In conditional expression:" "~%~%" "~a" "~%~%" "Test condition is always false.") (pp-fragment if-node))) (define (r-zero-values-for-the loc node the-type) ;; (the t r) expects r returns exactly 1 value (report2 "Not enough values" warning (list node) loc (string-append "In expression:" "~%~%" "~a" "~%~%" "Expression returns 0 values but is declared to return:" "~%~%" "~a") (pp-fragment node) (type->pp-string the-type))) (define (r-too-many-values-for-the loc node the-type rtypes) (report2 "Too many values" warning (list node) loc (string-append "In expression:" "~%~%" "~a" "~%~%" "Expression returns too many values." "~%~%" "The expression returns ~a values but is declared to return:" "~%~%" "~a") (pp-fragment node) (length rtypes) (type->pp-string the-type))) (define (r-type-mismatch-in-the loc node atype the-type) (report2 "Type mismatch" warning (list node) loc (string-append "In expression:" "~%~%" "~a" "~%~%" "Expression's declared and actual types do not match." "~%~%" "The declared type is:" "~%~%" "~a" "~%~%" "The actual type is:" "~%~%" "~a") (pp-fragment node) (type->pp-string the-type) (type->pp-string atype))) (define (fail-compiler-typecase loc node atype ct-types) (define (pp-type t) (string-add-indent (type->pp-string t) " ")) (quit-compiling (string-append "No typecase match" "~%" "~a" "~a" "In `compiler-typecase' expression:" "~%~%" " ~a" "~%~%" " Tested expression does not match any case." "~%~%" " The expression has this type:" "~%~%" "~a" "~%~%" " The specified type cases are these:" "~%~%" "~a") (if (string=? "" (node-source-prefix node)) "\n" (conc " " (node-source-prefix node) "\n ")) (location-name loc) (pp-fragment node) (pp-type atype) (string-intersperse (map pp-type ct-types) "\n\n"))) (define (r-cond-branch-value-count-mismatch loc node c-node a-node c-types a-types) (report2 "Branch values mismatch" warning (list a-node node) loc (string-append "In conditional expression:" "~%~%" "~a" "~%~%" "The branches have different numbers of values." "~%~%" "The true branch returns ~a value~a:" "~%~%" "~a" "~%~%" "The false branch returns ~a value~a:" "~%~%" "~a") (pp-fragment node) (length c-types) (multiples (length c-types)) (pp-fragment c-node) (length a-types) (multiples (length a-types)) (pp-fragment a-node))) (define (r-toplevel-var-assignment-type-mismatch loc node atype var xptype value-node) (report2 "Invalid assignment" warning (list node value-node) loc (string-append "In assignment:" "~%~%" "~a" "~%~%" "Variable `~a' is assigned invalid value." "~%~%" "The assigned value has this type:" "~%~%" "~a" "~%~%" "The declared type of ~a is:" "~%~%" "~a") (pp-fragment node) (strip-namespace var) (type->pp-string atype) (variable-from-module (let ((n (real-name var))) (if (symbol? n) n (string->symbol n)))) (type->pp-string xptype))) (define (r-deprecated-identifier loc node id #!optional suggestion) (report2 (sprintf "Deprecated identifier `~a'" (strip-namespace id)) warning (list node) loc (string-append "In expression:" "~%~%" "~a" "~%~%" "Use of deprecated identifier ~a." "~a") (pp-fragment node) ;; TODO: parent node would be nice here (variable-from-module id) (if suggestion (sprintf "~%~%The suggested alternative is ~a." (variable-from-module suggestion)) ""))) ) chicken-5.1.0/chicken-status.c0000644000175000017500000077361613502227770016051 0ustar sjamaansjamaan/* Generated from chicken-status.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken-status.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -output-file chicken-status.c uses: library eval expand file extras irregex port pathname data-structures */ #include "chicken.h" #ifndef STATICBUILD # define STATIC_CHICKEN 0 #else # define STATIC_CHICKEN 1 #endif #ifndef DEBUGBUILD # define DEBUG_CHICKEN 0 #else # define DEBUG_CHICKEN 1 #endif static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_file_toplevel) C_externimport void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_irregex_toplevel) C_externimport void C_ccall C_irregex_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_port_toplevel) C_externimport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[140]; static double C_possibly_force_alignment; C_noret_decl(f5201) static void C_ccall f5201(C_word c,C_word *av) C_noret; C_noret_decl(f5208) static void C_ccall f5208(C_word c,C_word *av) C_noret; C_noret_decl(f5215) static void C_ccall f5215(C_word c,C_word *av) C_noret; C_noret_decl(f_1649) static void C_ccall f_1649(C_word c,C_word *av) C_noret; C_noret_decl(f_1652) static void C_ccall f_1652(C_word c,C_word *av) C_noret; C_noret_decl(f_1655) static void C_ccall f_1655(C_word c,C_word *av) C_noret; C_noret_decl(f_1658) static void C_ccall f_1658(C_word c,C_word *av) C_noret; C_noret_decl(f_1661) static void C_ccall f_1661(C_word c,C_word *av) C_noret; C_noret_decl(f_1664) static void C_ccall f_1664(C_word c,C_word *av) C_noret; C_noret_decl(f_1667) static void C_ccall f_1667(C_word c,C_word *av) C_noret; C_noret_decl(f_1670) static void C_ccall f_1670(C_word c,C_word *av) C_noret; C_noret_decl(f_1673) static void C_ccall f_1673(C_word c,C_word *av) C_noret; C_noret_decl(f_1676) static void C_ccall f_1676(C_word c,C_word *av) C_noret; C_noret_decl(f_1877) static void C_fcall f_1877(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1892) static void C_fcall f_1892(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1900) static void C_fcall f_1900(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1908) static void C_ccall f_1908(C_word c,C_word *av) C_noret; C_noret_decl(f_1919) static void C_ccall f_1919(C_word c,C_word *av) C_noret; C_noret_decl(f_1932) static void C_fcall f_1932(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1939) static void C_ccall f_1939(C_word c,C_word *av) C_noret; C_noret_decl(f_1946) static void C_ccall f_1946(C_word c,C_word *av) C_noret; C_noret_decl(f_1950) static void C_ccall f_1950(C_word c,C_word *av) C_noret; C_noret_decl(f_1962) static void C_ccall f_1962(C_word c,C_word *av) C_noret; C_noret_decl(f_1964) static void C_fcall f_1964(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2011) static void C_ccall f_2011(C_word c,C_word *av) C_noret; C_noret_decl(f_2013) static void C_fcall f_2013(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2053) static void C_fcall f_2053(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2075) static void C_ccall f_2075(C_word c,C_word *av) C_noret; C_noret_decl(f_2081) static void C_fcall f_2081(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2087) static void C_fcall f_2087(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2097) static void C_ccall f_2097(C_word c,C_word *av) C_noret; C_noret_decl(f_2145) static void C_fcall f_2145(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2163) static void C_ccall f_2163(C_word c,C_word *av) C_noret; C_noret_decl(f_2173) static void C_fcall f_2173(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2186) static void C_ccall f_2186(C_word c,C_word *av) C_noret; C_noret_decl(f_2200) static void C_ccall f_2200(C_word c,C_word *av) C_noret; C_noret_decl(f_2242) static void C_fcall f_2242(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2248) static void C_fcall f_2248(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2262) static void C_ccall f_2262(C_word c,C_word *av) C_noret; C_noret_decl(f_2275) static void C_ccall f_2275(C_word c,C_word *av) C_noret; C_noret_decl(f_2287) static void C_fcall f_2287(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2296) static void C_fcall f_2296(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2304) static void C_fcall f_2304(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2311) static void C_ccall f_2311(C_word c,C_word *av) C_noret; C_noret_decl(f_2325) static void C_ccall f_2325(C_word c,C_word *av) C_noret; C_noret_decl(f_2960) static void C_ccall f_2960(C_word c,C_word *av) C_noret; C_noret_decl(f_2966) static void C_ccall f_2966(C_word c,C_word *av) C_noret; C_noret_decl(f_2970) static void C_ccall f_2970(C_word c,C_word *av) C_noret; C_noret_decl(f_2974) static void C_ccall f_2974(C_word c,C_word *av) C_noret; C_noret_decl(f_2978) static void C_ccall f_2978(C_word c,C_word *av) C_noret; C_noret_decl(f_2982) static void C_ccall f_2982(C_word c,C_word *av) C_noret; C_noret_decl(f_2986) static void C_ccall f_2986(C_word c,C_word *av) C_noret; C_noret_decl(f_2990) static void C_ccall f_2990(C_word c,C_word *av) C_noret; C_noret_decl(f_2994) static void C_ccall f_2994(C_word c,C_word *av) C_noret; C_noret_decl(f_2998) static void C_ccall f_2998(C_word c,C_word *av) C_noret; C_noret_decl(f_3002) static void C_ccall f_3002(C_word c,C_word *av) C_noret; C_noret_decl(f_3006) static void C_ccall f_3006(C_word c,C_word *av) C_noret; C_noret_decl(f_3010) static void C_ccall f_3010(C_word c,C_word *av) C_noret; C_noret_decl(f_3014) static void C_ccall f_3014(C_word c,C_word *av) C_noret; C_noret_decl(f_3018) static void C_ccall f_3018(C_word c,C_word *av) C_noret; C_noret_decl(f_3026) static void C_ccall f_3026(C_word c,C_word *av) C_noret; C_noret_decl(f_3030) static void C_ccall f_3030(C_word c,C_word *av) C_noret; C_noret_decl(f_3034) static void C_ccall f_3034(C_word c,C_word *av) C_noret; C_noret_decl(f_3038) static void C_ccall f_3038(C_word c,C_word *av) C_noret; C_noret_decl(f_3042) static void C_ccall f_3042(C_word c,C_word *av) C_noret; C_noret_decl(f_3046) static void C_ccall f_3046(C_word c,C_word *av) C_noret; C_noret_decl(f_3050) static void C_ccall f_3050(C_word c,C_word *av) C_noret; C_noret_decl(f_3054) static void C_ccall f_3054(C_word c,C_word *av) C_noret; C_noret_decl(f_3058) static void C_ccall f_3058(C_word c,C_word *av) C_noret; C_noret_decl(f_3062) static void C_ccall f_3062(C_word c,C_word *av) C_noret; C_noret_decl(f_3066) static void C_ccall f_3066(C_word c,C_word *av) C_noret; C_noret_decl(f_3070) static void C_ccall f_3070(C_word c,C_word *av) C_noret; C_noret_decl(f_3074) static void C_ccall f_3074(C_word c,C_word *av) C_noret; C_noret_decl(f_3078) static void C_ccall f_3078(C_word c,C_word *av) C_noret; C_noret_decl(f_3082) static void C_ccall f_3082(C_word c,C_word *av) C_noret; C_noret_decl(f_3086) static void C_ccall f_3086(C_word c,C_word *av) C_noret; C_noret_decl(f_3090) static void C_ccall f_3090(C_word c,C_word *av) C_noret; C_noret_decl(f_3094) static void C_ccall f_3094(C_word c,C_word *av) C_noret; C_noret_decl(f_3098) static void C_ccall f_3098(C_word c,C_word *av) C_noret; C_noret_decl(f_3167) static void C_ccall f_3167(C_word c,C_word *av) C_noret; C_noret_decl(f_3170) static void C_ccall f_3170(C_word c,C_word *av) C_noret; C_noret_decl(f_3176) static void C_ccall f_3176(C_word c,C_word *av) C_noret; C_noret_decl(f_3182) static void C_ccall f_3182(C_word c,C_word *av) C_noret; C_noret_decl(f_3186) static void C_ccall f_3186(C_word c,C_word *av) C_noret; C_noret_decl(f_3190) static void C_ccall f_3190(C_word c,C_word *av) C_noret; C_noret_decl(f_3194) static void C_ccall f_3194(C_word c,C_word *av) C_noret; C_noret_decl(f_3198) static void C_ccall f_3198(C_word c,C_word *av) C_noret; C_noret_decl(f_3204) static void C_ccall f_3204(C_word c,C_word *av) C_noret; C_noret_decl(f_3209) static C_word C_fcall f_3209(C_word t0,C_word t1,C_word t2); C_noret_decl(f_3233) static C_word C_fcall f_3233(C_word t0,C_word t1,C_word t2); C_noret_decl(f_3552) static void C_fcall f_3552(C_word t0) C_noret; C_noret_decl(f_3559) static void C_ccall f_3559(C_word c,C_word *av) C_noret; C_noret_decl(f_3562) static void C_ccall f_3562(C_word c,C_word *av) C_noret; C_noret_decl(f_3565) static void C_ccall f_3565(C_word c,C_word *av) C_noret; C_noret_decl(f_3574) static void C_ccall f_3574(C_word c,C_word *av) C_noret; C_noret_decl(f_3580) static void C_ccall f_3580(C_word c,C_word *av) C_noret; C_noret_decl(f_3586) static void C_ccall f_3586(C_word c,C_word *av) C_noret; C_noret_decl(f_3589) static void C_ccall f_3589(C_word c,C_word *av) C_noret; C_noret_decl(f_3595) static void C_ccall f_3595(C_word c,C_word *av) C_noret; C_noret_decl(f_3601) static void C_ccall f_3601(C_word c,C_word *av) C_noret; C_noret_decl(f_3607) static void C_ccall f_3607(C_word c,C_word *av) C_noret; C_noret_decl(f_3613) static void C_ccall f_3613(C_word c,C_word *av) C_noret; C_noret_decl(f_3619) static void C_ccall f_3619(C_word c,C_word *av) C_noret; C_noret_decl(f_3629) static void C_fcall f_3629(C_word t0) C_noret; C_noret_decl(f_3657) static void C_ccall f_3657(C_word c,C_word *av) C_noret; C_noret_decl(f_3663) static void C_fcall f_3663(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3667) static void C_ccall f_3667(C_word c,C_word *av) C_noret; C_noret_decl(f_3679) static void C_ccall f_3679(C_word c,C_word *av) C_noret; C_noret_decl(f_3689) static void C_ccall f_3689(C_word c,C_word *av) C_noret; C_noret_decl(f_3718) static void C_fcall f_3718(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3722) static void C_ccall f_3722(C_word c,C_word *av) C_noret; C_noret_decl(f_3739) static void C_fcall f_3739(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3747) static void C_ccall f_3747(C_word c,C_word *av) C_noret; C_noret_decl(f_3751) static void C_ccall f_3751(C_word c,C_word *av) C_noret; C_noret_decl(f_3757) static void C_ccall f_3757(C_word c,C_word *av) C_noret; C_noret_decl(f_3759) static void C_fcall f_3759(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3784) static void C_ccall f_3784(C_word c,C_word *av) C_noret; C_noret_decl(f_3796) static void C_ccall f_3796(C_word c,C_word *av) C_noret; C_noret_decl(f_3802) static void C_ccall f_3802(C_word c,C_word *av) C_noret; C_noret_decl(f_3816) static void C_ccall f_3816(C_word c,C_word *av) C_noret; C_noret_decl(f_3818) static void C_ccall f_3818(C_word c,C_word *av) C_noret; C_noret_decl(f_3825) static void C_ccall f_3825(C_word c,C_word *av) C_noret; C_noret_decl(f_3830) static void C_fcall f_3830(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3855) static void C_ccall f_3855(C_word c,C_word *av) C_noret; C_noret_decl(f_3866) static void C_ccall f_3866(C_word c,C_word *av) C_noret; C_noret_decl(f_3870) static void C_ccall f_3870(C_word c,C_word *av) C_noret; C_noret_decl(f_3872) static void C_fcall f_3872(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3891) static void C_ccall f_3891(C_word c,C_word *av) C_noret; C_noret_decl(f_3938) static void C_ccall f_3938(C_word c,C_word *av) C_noret; C_noret_decl(f_3942) static void C_ccall f_3942(C_word c,C_word *av) C_noret; C_noret_decl(f_3952) static void C_fcall f_3952(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3959) static void C_ccall f_3959(C_word c,C_word *av) C_noret; C_noret_decl(f_3967) static void C_fcall f_3967(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3977) static void C_ccall f_3977(C_word c,C_word *av) C_noret; C_noret_decl(f_4017) static void C_ccall f_4017(C_word c,C_word *av) C_noret; C_noret_decl(f_4021) static void C_ccall f_4021(C_word c,C_word *av) C_noret; C_noret_decl(f_4027) static void C_fcall f_4027(C_word t0,C_word t1) C_noret; C_noret_decl(f_4034) static void C_ccall f_4034(C_word c,C_word *av) C_noret; C_noret_decl(f_4038) static void C_ccall f_4038(C_word c,C_word *av) C_noret; C_noret_decl(f_4042) static void C_ccall f_4042(C_word c,C_word *av) C_noret; C_noret_decl(f_4047) static void C_ccall f_4047(C_word c,C_word *av) C_noret; C_noret_decl(f_4051) static void C_ccall f_4051(C_word c,C_word *av) C_noret; C_noret_decl(f_4054) static void C_ccall f_4054(C_word c,C_word *av) C_noret; C_noret_decl(f_4057) static void C_ccall f_4057(C_word c,C_word *av) C_noret; C_noret_decl(f_4075) static void C_ccall f_4075(C_word c,C_word *av) C_noret; C_noret_decl(f_4084) static void C_ccall f_4084(C_word c,C_word *av) C_noret; C_noret_decl(f_4087) static void C_ccall f_4087(C_word c,C_word *av) C_noret; C_noret_decl(f_4095) static void C_fcall f_4095(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4105) static void C_ccall f_4105(C_word c,C_word *av) C_noret; C_noret_decl(f_4120) static void C_ccall f_4120(C_word c,C_word *av) C_noret; C_noret_decl(f_4124) static void C_ccall f_4124(C_word c,C_word *av) C_noret; C_noret_decl(f_4126) static void C_fcall f_4126(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4132) static void C_ccall f_4132(C_word c,C_word *av) C_noret; C_noret_decl(f_4138) static void C_ccall f_4138(C_word c,C_word *av) C_noret; C_noret_decl(f_4290) static void C_ccall f_4290(C_word c,C_word *av) C_noret; C_noret_decl(f_4295) static void C_fcall f_4295(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4299) static void C_ccall f_4299(C_word c,C_word *av) C_noret; C_noret_decl(f_4308) static void C_ccall f_4308(C_word c,C_word *av) C_noret; C_noret_decl(f_4314) static void C_ccall f_4314(C_word c,C_word *av) C_noret; C_noret_decl(f_4323) static void C_ccall f_4323(C_word c,C_word *av) C_noret; C_noret_decl(f_4327) static void C_ccall f_4327(C_word c,C_word *av) C_noret; C_noret_decl(f_4351) static void C_ccall f_4351(C_word c,C_word *av) C_noret; C_noret_decl(f_4359) static void C_ccall f_4359(C_word c,C_word *av) C_noret; C_noret_decl(f_4371) static void C_fcall f_4371(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4381) static void C_ccall f_4381(C_word c,C_word *av) C_noret; C_noret_decl(f_4399) static void C_ccall f_4399(C_word c,C_word *av) C_noret; C_noret_decl(f_4403) static void C_ccall f_4403(C_word c,C_word *av) C_noret; C_noret_decl(f_4407) static void C_ccall f_4407(C_word c,C_word *av) C_noret; C_noret_decl(f_4412) static void C_ccall f_4412(C_word c,C_word *av) C_noret; C_noret_decl(f_4416) static void C_ccall f_4416(C_word c,C_word *av) C_noret; C_noret_decl(f_4427) static void C_fcall f_4427(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4437) static void C_ccall f_4437(C_word c,C_word *av) C_noret; C_noret_decl(f_4456) static void C_ccall f_4456(C_word c,C_word *av) C_noret; C_noret_decl(f_4458) static void C_ccall f_4458(C_word c,C_word *av) C_noret; C_noret_decl(f_4462) static void C_ccall f_4462(C_word c,C_word *av) C_noret; C_noret_decl(f_4470) static void C_fcall f_4470(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4480) static void C_ccall f_4480(C_word c,C_word *av) C_noret; C_noret_decl(f_4495) static void C_ccall f_4495(C_word c,C_word *av) C_noret; C_noret_decl(f_4497) static void C_ccall f_4497(C_word c,C_word *av) C_noret; C_noret_decl(f_4505) static void C_ccall f_4505(C_word c,C_word *av) C_noret; C_noret_decl(f_4507) static void C_ccall f_4507(C_word c,C_word *av) C_noret; C_noret_decl(f_4524) static void C_ccall f_4524(C_word c,C_word *av) C_noret; C_noret_decl(f_4535) static void C_ccall f_4535(C_word c,C_word *av) C_noret; C_noret_decl(f_4543) static void C_fcall f_4543(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4553) static void C_ccall f_4553(C_word c,C_word *av) C_noret; C_noret_decl(f_4582) static void C_fcall f_4582(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4595) static void C_fcall f_4595(C_word t0,C_word t1) C_noret; C_noret_decl(f_4598) static void C_ccall f_4598(C_word c,C_word *av) C_noret; C_noret_decl(f_4603) static void C_ccall f_4603(C_word c,C_word *av) C_noret; C_noret_decl(f_4616) static void C_fcall f_4616(C_word t0,C_word t1) C_noret; C_noret_decl(f_4623) static void C_ccall f_4623(C_word c,C_word *av) C_noret; C_noret_decl(f_4627) static void C_ccall f_4627(C_word c,C_word *av) C_noret; C_noret_decl(f_4740) static void C_ccall f_4740(C_word c,C_word *av) C_noret; C_noret_decl(f_4747) static void C_ccall f_4747(C_word c,C_word *av) C_noret; C_noret_decl(f_4753) static void C_fcall f_4753(C_word t0,C_word t1) C_noret; C_noret_decl(f_4762) static void C_ccall f_4762(C_word c,C_word *av) C_noret; C_noret_decl(f_4768) static void C_ccall f_4768(C_word c,C_word *av) C_noret; C_noret_decl(f_4775) static void C_ccall f_4775(C_word c,C_word *av) C_noret; C_noret_decl(f_4787) static void C_ccall f_4787(C_word c,C_word *av) C_noret; C_noret_decl(f_4791) static void C_fcall f_4791(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4828) static void C_ccall f_4828(C_word c,C_word *av) C_noret; C_noret_decl(f_4836) static void C_ccall f_4836(C_word c,C_word *av) C_noret; C_noret_decl(f_4870) static void C_ccall f_4870(C_word c,C_word *av) C_noret; C_noret_decl(f_4876) static void C_ccall f_4876(C_word c,C_word *av) C_noret; C_noret_decl(f_4880) static void C_ccall f_4880(C_word c,C_word *av) C_noret; C_noret_decl(f_4888) static void C_ccall f_4888(C_word c,C_word *av) C_noret; C_noret_decl(f_4895) static void C_ccall f_4895(C_word c,C_word *av) C_noret; C_noret_decl(f_4898) static void C_ccall f_4898(C_word c,C_word *av) C_noret; C_noret_decl(f_4905) static void C_ccall f_4905(C_word c,C_word *av) C_noret; C_noret_decl(f_4910) static void C_ccall f_4910(C_word c,C_word *av) C_noret; C_noret_decl(f_4915) static void C_ccall f_4915(C_word c,C_word *av) C_noret; C_noret_decl(f_4919) static void C_ccall f_4919(C_word c,C_word *av) C_noret; C_noret_decl(f_4923) static void C_ccall f_4923(C_word c,C_word *av) C_noret; C_noret_decl(f_4930) static void C_ccall f_4930(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1877) static void C_ccall trf_1877(C_word c,C_word *av) C_noret; static void C_ccall trf_1877(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1877(t0,t1,t2,t3);} C_noret_decl(trf_1892) static void C_ccall trf_1892(C_word c,C_word *av) C_noret; static void C_ccall trf_1892(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1892(t0,t1,t2);} C_noret_decl(trf_1900) static void C_ccall trf_1900(C_word c,C_word *av) C_noret; static void C_ccall trf_1900(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1900(t0,t1,t2,t3);} C_noret_decl(trf_1932) static void C_ccall trf_1932(C_word c,C_word *av) C_noret; static void C_ccall trf_1932(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1932(t0,t1,t2);} C_noret_decl(trf_1964) static void C_ccall trf_1964(C_word c,C_word *av) C_noret; static void C_ccall trf_1964(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1964(t0,t1,t2);} C_noret_decl(trf_2013) static void C_ccall trf_2013(C_word c,C_word *av) C_noret; static void C_ccall trf_2013(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2013(t0,t1,t2);} C_noret_decl(trf_2053) static void C_ccall trf_2053(C_word c,C_word *av) C_noret; static void C_ccall trf_2053(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2053(t0,t1,t2);} C_noret_decl(trf_2081) static void C_ccall trf_2081(C_word c,C_word *av) C_noret; static void C_ccall trf_2081(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2081(t0,t1,t2);} C_noret_decl(trf_2087) static void C_ccall trf_2087(C_word c,C_word *av) C_noret; static void C_ccall trf_2087(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2087(t0,t1,t2);} C_noret_decl(trf_2145) static void C_ccall trf_2145(C_word c,C_word *av) C_noret; static void C_ccall trf_2145(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2145(t0,t1,t2);} C_noret_decl(trf_2173) static void C_ccall trf_2173(C_word c,C_word *av) C_noret; static void C_ccall trf_2173(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2173(t0,t1,t2);} C_noret_decl(trf_2242) static void C_ccall trf_2242(C_word c,C_word *av) C_noret; static void C_ccall trf_2242(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2242(t0,t1,t2);} C_noret_decl(trf_2248) static void C_ccall trf_2248(C_word c,C_word *av) C_noret; static void C_ccall trf_2248(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2248(t0,t1,t2);} C_noret_decl(trf_2287) static void C_ccall trf_2287(C_word c,C_word *av) C_noret; static void C_ccall trf_2287(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2287(t0,t1,t2);} C_noret_decl(trf_2296) static void C_ccall trf_2296(C_word c,C_word *av) C_noret; static void C_ccall trf_2296(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2296(t0,t1,t2);} C_noret_decl(trf_2304) static void C_ccall trf_2304(C_word c,C_word *av) C_noret; static void C_ccall trf_2304(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2304(t0,t1,t2,t3);} C_noret_decl(trf_3552) static void C_ccall trf_3552(C_word c,C_word *av) C_noret; static void C_ccall trf_3552(C_word c,C_word *av){ C_word t0=av[0]; f_3552(t0);} C_noret_decl(trf_3629) static void C_ccall trf_3629(C_word c,C_word *av) C_noret; static void C_ccall trf_3629(C_word c,C_word *av){ C_word t0=av[0]; f_3629(t0);} C_noret_decl(trf_3663) static void C_ccall trf_3663(C_word c,C_word *av) C_noret; static void C_ccall trf_3663(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3663(t0,t1,t2);} C_noret_decl(trf_3718) static void C_ccall trf_3718(C_word c,C_word *av) C_noret; static void C_ccall trf_3718(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3718(t0,t1,t2,t3);} C_noret_decl(trf_3739) static void C_ccall trf_3739(C_word c,C_word *av) C_noret; static void C_ccall trf_3739(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3739(t0,t1,t2);} C_noret_decl(trf_3759) static void C_ccall trf_3759(C_word c,C_word *av) C_noret; static void C_ccall trf_3759(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3759(t0,t1,t2);} C_noret_decl(trf_3830) static void C_ccall trf_3830(C_word c,C_word *av) C_noret; static void C_ccall trf_3830(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3830(t0,t1,t2);} C_noret_decl(trf_3872) static void C_ccall trf_3872(C_word c,C_word *av) C_noret; static void C_ccall trf_3872(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3872(t0,t1,t2,t3);} C_noret_decl(trf_3952) static void C_ccall trf_3952(C_word c,C_word *av) C_noret; static void C_ccall trf_3952(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3952(t0,t1,t2);} C_noret_decl(trf_3967) static void C_ccall trf_3967(C_word c,C_word *av) C_noret; static void C_ccall trf_3967(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3967(t0,t1,t2);} C_noret_decl(trf_4027) static void C_ccall trf_4027(C_word c,C_word *av) C_noret; static void C_ccall trf_4027(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4027(t0,t1);} C_noret_decl(trf_4095) static void C_ccall trf_4095(C_word c,C_word *av) C_noret; static void C_ccall trf_4095(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4095(t0,t1,t2);} C_noret_decl(trf_4126) static void C_ccall trf_4126(C_word c,C_word *av) C_noret; static void C_ccall trf_4126(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4126(t0,t1,t2);} C_noret_decl(trf_4295) static void C_ccall trf_4295(C_word c,C_word *av) C_noret; static void C_ccall trf_4295(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4295(t0,t1,t2);} C_noret_decl(trf_4371) static void C_ccall trf_4371(C_word c,C_word *av) C_noret; static void C_ccall trf_4371(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4371(t0,t1,t2);} C_noret_decl(trf_4427) static void C_ccall trf_4427(C_word c,C_word *av) C_noret; static void C_ccall trf_4427(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4427(t0,t1,t2);} C_noret_decl(trf_4470) static void C_ccall trf_4470(C_word c,C_word *av) C_noret; static void C_ccall trf_4470(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4470(t0,t1,t2);} C_noret_decl(trf_4543) static void C_ccall trf_4543(C_word c,C_word *av) C_noret; static void C_ccall trf_4543(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4543(t0,t1,t2);} C_noret_decl(trf_4582) static void C_ccall trf_4582(C_word c,C_word *av) C_noret; static void C_ccall trf_4582(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4582(t0,t1,t2,t3);} C_noret_decl(trf_4595) static void C_ccall trf_4595(C_word c,C_word *av) C_noret; static void C_ccall trf_4595(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4595(t0,t1);} C_noret_decl(trf_4616) static void C_ccall trf_4616(C_word c,C_word *av) C_noret; static void C_ccall trf_4616(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4616(t0,t1);} C_noret_decl(trf_4753) static void C_ccall trf_4753(C_word c,C_word *av) C_noret; static void C_ccall trf_4753(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4753(t0,t1);} C_noret_decl(trf_4791) static void C_ccall trf_4791(C_word c,C_word *av) C_noret; static void C_ccall trf_4791(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4791(t0,t1,t2);} /* f5201 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f5201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f5201,2,av);} /* chicken-status.scm:206: chicken.base#exit */ t2=C_fast_retrieve(lf[95]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f5208 in k4766 in k4760 in k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_ccall f5208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f5208,2,av);} /* chicken-status.scm:206: chicken.base#exit */ t2=C_fast_retrieve(lf[95]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f5215 in k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f5215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f5215,2,av);} /* chicken-status.scm:206: chicken.base#exit */ t2=C_fast_retrieve(lf[95]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k1647 */ static void C_ccall f_1649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1649,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1652,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1650 in k1647 */ static void C_ccall f_1652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1652,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1655,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k1653 in k1650 in k1647 */ static void C_ccall f_1655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1655,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1658,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_file_toplevel(2,av2);}} /* k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1658,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1661,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1661,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1664,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1664,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1667,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_port_toplevel(2,av2);}} /* k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1667,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1670,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1670,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1673,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,7)))){ C_save_and_reclaim((void *)f_1673,2,av);} a=C_alloc(11); t2=C_a_i_provide(&a,1,lf[0]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1676,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:26: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[138]+1); av2[1]=t3; av2[2]=lf[139]; av2[3]=lf[139]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=C_SCHEME_END_OF_LIST; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_1676,2,av);} a=C_alloc(11); t2=C_mutate(&lf[1] /* (set! main#append-map ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1877,tmp=(C_word)a,a+=2,tmp)); t3=C_mutate(&lf[5] /* (set! main#any ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2081,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate(&lf[7] /* (set! main#delete-duplicates ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2242,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[8] /* (set! main#filter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2287,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[9] /* (set! main#staticbuild ...) */,C_mk_bool(STATIC_CHICKEN)); t7=C_mutate(&lf[10] /* (set! main#debugbuild ...) */,C_mk_bool(DEBUG_CHICKEN)); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2960,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:43: chicken.platform#feature? */ t9=C_fast_retrieve(lf[136]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=lf[137]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_1877(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_1877,4,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_i_nullp(t4))){ t5=t3; t6=C_i_check_list_2(t5,lf[2]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1892,a[2]=t2,a[3]=t8,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_1892(t10,t1,t5);} else{ t5=C_a_i_cons(&a,2,t3,t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1932,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_1932(t9,t1,t5);}} /* foldr179 in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_1892(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_1892,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1900,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1919,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g184 in foldr179 in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_1900(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_1900,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1908,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:72: proc */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k1906 in g184 in foldr179 in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1908,2,av);} /* mini-srfi-1.scm:72: scheme#append */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1917 in foldr179 in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1919,2,av);} /* mini-srfi-1.scm:72: g184 */ t2=((C_word*)t0)[2]; f_1900(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_1932(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_1932,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1939,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* mini-srfi-1.scm:74: any */ f_2081(t3,*((C_word*)lf[6]+1),t2);} /* k1937 in loop in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_1939,2,av);} a=C_alloc(21); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1946,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[3]; t8=C_i_check_list_2(t7,lf[4]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2011,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2013,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_2013(t13,t9,t7);}} /* k1944 in k1937 in loop in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_1946,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1950,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[3]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1962,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1964,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_1964(t13,t9,t8);} /* k1948 in k1944 in k1937 in loop in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1950,2,av);} /* mini-srfi-1.scm:76: scheme#append */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1960 in k1944 in k1937 in loop in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_1962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1962,2,av);} /* mini-srfi-1.scm:77: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1932(t2,((C_word*)t0)[3],t1);} /* map-loop221 in k1944 in k1937 in loop in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_1964(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_1964,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2009 in k1937 in loop in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2011,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* map-loop194 in k1937 in loop in main#append-map in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_2013(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_2013,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in k4760 in k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_fcall f_2053(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2053,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2075,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); /* mini-srfi-1.scm:82: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k2073 in loop in k4760 in k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_ccall f_2075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2075,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:83: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2053(t4,((C_word*)t0)[2],t3);}} /* main#any in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_2081(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2081,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2087,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_2087(t7,t1,t3);} /* loop in main#any in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_2087(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2087,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2097,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:88: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* k2095 in loop in main#any in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2097,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:89: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2087(t4,((C_word*)t0)[2],t3);}} /* loop in k3755 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_fcall f_2145(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_2145,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2163,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:101: loop */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}} /* k2161 in loop in k3755 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_2163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2163,2,av);} /* mini-srfi-1.scm:101: scheme#append */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in loop in main#delete-duplicates in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_2173(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_2173,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2186,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:106: test */ t5=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}} /* k2184 in loop in loop in main#delete-duplicates in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2186,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:107: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2173(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2200,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:109: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_2173(t7,t4,t6);}} /* k2198 in k2184 in loop in loop in main#delete-duplicates in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2200,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#delete-duplicates in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_2242(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2242,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2248,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_2248(t7,t1,t2);} /* loop in main#delete-duplicates in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_2248(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){ C_save_and_reclaim_args((void *)trf_2248,3,t0,t1,t2);} a=C_alloc(17); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2262,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2275,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=t4; t10=((C_word*)t0)[3]; t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2173,a[2]=t12,a[3]=t10,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_2173(t14,t8,t6);}} /* k2260 in loop in main#delete-duplicates in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2262,2,av);} a=C_alloc(3); t2=C_i_equalp(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?((C_word*)t0)[4]:C_a_i_cons(&a,2,((C_word*)t0)[5],t1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2273 in loop in main#delete-duplicates in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2275,2,av);} /* mini-srfi-1.scm:123: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2248(t2,((C_word*)t0)[3],t1);} /* main#filter in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_2287(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2287,3,t1,t2,t3);} a=C_alloc(6); t4=C_i_check_list_2(t3,lf[2]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2296,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_2296(t8,t1,t3);} /* foldr326 in main#filter in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_2296(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_2296,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2304,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2325,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g331 in foldr326 in main#filter in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_fcall f_2304(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2304,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2311,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:131: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k2309 in g331 in foldr326 in main#filter in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2311,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2323 in foldr326 in main#filter in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2325,2,av);} /* mini-srfi-1.scm:131: g331 */ t2=((C_word*)t0)[2]; f_2304(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2960,2,av);} a=C_alloc(6); t2=lf[11] /* main#cross-chicken */ =t1;; t3=lf[12] /* main#binary-version */ =C_fix((C_word)C_BINARY_VERSION);; t4=lf[13] /* main#major-version */ =C_fix((C_word)C_MAJOR_VERSION);; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2966,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_TARGET_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2966,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2970,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2970,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2974,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2974,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2978,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_CFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2978,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2982,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LDFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2982,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2986,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM_EXECUTABLE_OPTIONS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2986,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2990,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM_FILE_OPTIONS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2990,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2994,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_MORE_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2994,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2998,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_2998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2998,2,av);} a=C_alloc(6); t2=C_mutate(&lf[14] /* (set! main#default-libdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3002,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_RUN_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 */ static void C_ccall f_3002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3002,2,av);} a=C_alloc(6); t2=C_mutate(&lf[15] /* (set! main#default-runlibdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3006,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_STATIC_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in k1647 in ... */ static void C_ccall f_3006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3006,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3010,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INCLUDE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in k1650 in ... */ static void C_ccall f_3010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3010,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3014,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in k1653 in ... */ static void C_ccall f_3014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3014,2,av);} a=C_alloc(6); t2=C_mutate(&lf[16] /* (set! main#default-bindir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3018,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in k1656 in ... */ static void C_ccall f_3018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3018,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4930,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:63: chicken.platform#software-type */ t3=C_fast_retrieve(lf[135]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_3026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3026,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3030,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in ... */ static void C_ccall f_3030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3030,2,av);} a=C_alloc(9); t2=C_mutate(&lf[16] /* (set! main#default-bindir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3034,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4923,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_CSC_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in ... */ static void C_ccall f_3034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3034,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3038,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4919,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CSI_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in ... */ static void C_ccall f_3038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3038,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3042,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4915,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CHICKEN_DO_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in ... */ static void C_ccall f_3042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3042,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3046,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIBRARIAN); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in ... */ static void C_ccall f_3046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3046,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3050,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIBRARIAN_FLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in ... */ static void C_ccall f_3050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3050,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3054,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_EGG_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in ... */ static void C_ccall f_3054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3054,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3058,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in ... */ static void C_ccall f_3058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3058,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3062,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in ... */ static void C_ccall f_3062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3062,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3066,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_INCLUDE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in ... */ static void C_ccall f_3066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3066,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3070,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in ... */ static void C_ccall f_3070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3070,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3074,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_MORE_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in ... */ static void C_ccall f_3074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3074,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3078,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in ... */ static void C_ccall f_3078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3078,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3082,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LDFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in ... */ static void C_ccall f_3082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3082,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3086,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in ... */ static void C_ccall f_3086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3086,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3090,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in ... */ static void C_ccall f_3090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3090,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3094,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4910,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_retrieve2(lf[12],C_text("main#binary-version")); /* ##sys#fixnum->string */ t5=C_fast_retrieve(lf[130]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=C_retrieve2(lf[12],C_text("main#binary-version")); av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in ... */ static void C_ccall f_3094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3094,2,av);} a=C_alloc(6); t2=C_mutate(&lf[19] /* (set! main#target-repo ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3098,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4905,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_retrieve2(lf[12],C_text("main#binary-version")); /* ##sys#fixnum->string */ t6=C_fast_retrieve(lf[130]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=C_retrieve2(lf[12],C_text("main#binary-version")); av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in ... */ static void C_ccall f_3098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3098,2,av);} a=C_alloc(3); t2=C_mutate(&lf[20] /* (set! main#target-run-repo ...) */,t1); t3=C_mutate(&lf[21] /* (set! main#+egg-info-extension+ ...) */,lf[22]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3167,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:120: chicken.process-context#get-environment-variable */ t5=C_fast_retrieve(lf[127]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[128]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in ... */ static void C_ccall f_3167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3167,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3170,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_3170(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4895,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:121: chicken.platform#system-cache-directory */ t4=C_fast_retrieve(lf[126]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in ... */ static void C_ccall f_3170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_3170,2,av);} a=C_alloc(9); t2=C_mutate(&lf[23] /* (set! main#cache-directory ...) */,t1); t3=C_mutate(&lf[24] /* (set! main#get-egg-property ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3209,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate(&lf[25] /* (set! main#get-egg-property* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3233,tmp=(C_word)a,a+=2,tmp)); t5=lf[26] /* main#host-extensions */ =C_SCHEME_TRUE;; t6=lf[27] /* main#target-extensions */ =C_SCHEME_TRUE;; t7=C_mutate(&lf[28] /* (set! main#get-terminal-width ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3552,tmp=(C_word)a,a+=2,tmp)); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4888,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:62: get-terminal-width */ f_3552(t8);} /* k3174 in k3677 in k3665 in main#read-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_3176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3176,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3182,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* egg-information.scm:34: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[42]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3180 in k3174 in k3677 in k3665 in main#read-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_3182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3182,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3184 in k3677 in k3665 in main#read-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_3186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3186,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3190,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* egg-information.scm:32: chicken.pathname#pathname-file */ t4=C_fast_retrieve(lf[45]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3188 in k3184 in k3677 in k3665 in main#read-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_3190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3190,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3194,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* egg-information.scm:33: chicken.pathname#pathname-extension */ t4=C_fast_retrieve(lf[44]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3192 in k3188 in k3184 in k3677 in k3665 in main#read-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_ccall f_3194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3194,2,av);} /* egg-information.scm:30: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3196 in k3677 in k3665 in main#read-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_3198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3198,2,av);} /* egg-information.scm:30: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[46]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3202 in k3677 in k3665 in main#read-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_3204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3204,2,av);} /* egg-information.scm:38: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[40]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* main#get-egg-property in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in ... */ static C_word C_fcall f_3209(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check;{} t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_i_assq(t2,t1); if(C_truep(t6)){ t7=C_i_cadr(t6); return((C_truep(t7)?t7:t5));} else{ return(t5);}} /* main#get-egg-property* in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in ... */ static C_word C_fcall f_3233(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check;{} t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_END_OF_LIST:C_i_car(t3)); t6=C_i_assq(t2,t1); if(C_truep(t6)){ t7=C_i_cdr(t6); return((C_truep(t7)?t7:t5));} else{ return(t5);}} /* main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in ... */ static void C_fcall f_3552(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3552,1,t1);} a=C_alloc(4); t2=*((C_word*)lf[29]+1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3559,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:55: chicken.port#terminal-port? */ t4=C_fast_retrieve(lf[34]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_ccall f_3559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3559,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3562,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3574,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:56: scheme#call-with-current-continuation */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(79); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3560 in k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_3562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3562,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3565,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:56: g916 */ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k3563 in k3560 in k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_3565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3565,2,av);} if(C_truep(C_i_zerop(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(79); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* chicken-status.scm:59: scheme#min */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(79); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* a3573 in k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_3574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3574,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3580,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3589,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:56: chicken.condition#with-exception-handler */ t5=C_fast_retrieve(lf[32]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a3579 in a3573 in k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_3580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,2)))){ C_save_and_reclaim((void *)f_3580,3,av);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3586,tmp=(C_word)a,a+=2,tmp); /* chicken-status.scm:56: k913 */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3585 in a3579 in a3573 in k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_3586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3586,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3588 in a3573 in k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_3589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3589,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3595,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3613,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:56: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a3594 in a3588 in a3573 in k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_3595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3595,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3601,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3607,tmp=(C_word)a,a+=2,tmp); /* chicken-status.scm:56: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a3600 in a3594 in a3588 in a3573 in k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_3601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3601,2,av);} /* chicken-status.scm:56: chicken.port#terminal-size */ t2=C_fast_retrieve(lf[31]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a3606 in a3594 in a3588 in a3573 in k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_3607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_3607,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_list_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a3612 in a3588 in a3573 in k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_3613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_3613,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3619,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:56: k913 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3618 in a3612 in a3588 in a3573 in k3557 in main#get-terminal-width in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_3619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3619,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* main#repo-path in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_fcall f_3629(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_3629,1,t1);} t2=(C_truep(C_retrieve2(lf[11],C_text("main#cross-chicken")))?C_i_not(C_retrieve2(lf[26],C_text("main#host-extensions"))):C_SCHEME_FALSE); if(C_truep(t2)){ t3=C_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t3))){ t4=C_retrieve2(lf[19],C_text("main#target-repo")); /* chicken-status.scm:66: ##sys#split-path */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]); C_word av2[3]; av2[0]=*((C_word*)lf[37]+1); av2[1]=t1; av2[2]=C_retrieve2(lf[19],C_text("main#target-repo")); tp(3,av2);}} else{ t4=C_i_car(t3); t5=(C_truep(t4)?C_retrieve2(lf[20],C_text("main#target-run-repo")):C_retrieve2(lf[19],C_text("main#target-repo"))); /* chicken-status.scm:66: ##sys#split-path */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]); C_word av2[3]; av2[0]=*((C_word*)lf[37]+1); av2[1]=t1; av2[2]=t5; tp(3,av2);}}} else{ /* chicken-status.scm:67: chicken.platform#repository-path */ t3=C_fast_retrieve(lf[38]);{ C_word av2[2]; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a3656 in k3745 in g974 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_3657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3657,3,av);} t3=C_fast_retrieve(lf[51]); /* chicken-status.scm:70: g936 */ t4=C_fast_retrieve(lf[51]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* main#read-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_fcall f_3663(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3663,3,t1,t2,t3);} a=C_alloc(5); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3667,a[2]=t4,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t4))){ /* chicken-status.scm:72: repo-path */ f_3629(t5);} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_car(t4); f_3667(2,av2);}}} /* k3665 in main#read-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_3667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_3667,2,av);} a=C_alloc(7); t2=t1; t3=C_i_nullp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_retrieve2(lf[21],C_text("main#+egg-info-extension+")):C_i_car(t4)); t7=C_i_nullp(t4); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3679,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3689,a[2]=t9,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:73: chicken.pathname#make-pathname */ t11=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t10; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)t0)[4]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* k3677 in k3665 in main#read-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_3679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_3679,2,av);} a=C_alloc(14); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=t1; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3204,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=t3; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3176,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3186,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3198,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* egg-information.scm:30: chicken.pathname#pathname-directory */ t10=C_fast_retrieve(lf[47]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3687 in k3665 in main#read-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_3689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3689,2,av);} /* chicken-status.scm:73: chicken.load#find-file */ t2=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_fcall f_3718(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){ C_save_and_reclaim_args((void *)trf_3718,4,t1,t2,t3,t4);} a=C_alloc(22); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3722,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ t6=t2; /* chicken-status.scm:88: delete-duplicates */ f_2242(t1,t6,*((C_word*)lf[50]+1));} else{ if(C_truep(t4)){ t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3739,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t11=t3; t12=C_i_check_list_2(t11,lf[4]); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3757,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3759,a[2]=t8,a[3]=t15,a[4]=t10,a[5]=t9,tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_3759(t17,t13,t11);} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3796,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:84: filter */ f_2287(t5,t6,t2);}}} /* k3720 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_3722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3722,2,av);} /* chicken-status.scm:88: delete-duplicates */ f_2242(((C_word*)t0)[2],t1,*((C_word*)lf[50]+1));} /* g974 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_fcall f_3739(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3739,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3747,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3751,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:81: chicken.irregex#glob->sre */ t5=C_fast_retrieve(lf[53]);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3745 in g974 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_3747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3747,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=t1; t4=((C_word*)t0)[3]; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3657,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:70: filter */ f_2287(t2,t5,t4);} /* k3749 in g974 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_3751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3751,2,av);} /* chicken-status.scm:81: chicken.irregex#irregex */ t2=C_fast_retrieve(lf[52]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3755 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_3757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3757,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2145,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_2145(t5,((C_word*)t0)[2],t1);} /* map-loop968 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_fcall f_3759(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3759,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3784,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-status.scm:80: g974 */ t5=((C_word*)t0)[4]; f_3739(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3782 in map-loop968 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_3784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3784,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3759(t6,((C_word*)t0)[5],t5);} /* a3795 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_3796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3796,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3802,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:86: any */ f_2081(t1,t3,((C_word*)t0)[2]);} /* a3801 in a3795 in main#filter-egg-names in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_3802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3802,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_string_equal_p(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3814 in k4614 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_3816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3816,2,av);} /* chicken-status.scm:91: delete-duplicates */ f_2242(((C_word*)t0)[2],t1,*((C_word*)lf[102]+1));} /* a3817 in k4614 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_3818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_3818,3,av);} a=C_alloc(14); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_fast_retrieve(lf[45]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3825,a[2]=t5,a[3]=t7,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3866,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:95: chicken.pathname#make-pathname */ t10=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t9; av2[2]=t2; av2[3]=lf[104]; av2[4]=C_retrieve2(lf[21],C_text("main#+egg-info-extension+")); ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* k3823 in a3817 in k4614 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_ccall f_3825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3825,2,av);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3830,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_3830(t5,((C_word*)t0)[5],t1);} /* map-loop1006 in k3823 in a3817 in k4614 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in ... */ static void C_fcall f_3830(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3830,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3855,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-status.scm:94: g1012 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3853 in map-loop1006 in k3823 in a3817 in k4614 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in ... */ static void C_ccall f_3855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3855,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3830(t6,((C_word*)t0)[5],t5);} /* k3864 in a3817 in k4614 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_ccall f_3866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3866,2,av);} /* chicken-status.scm:95: chicken.file#glob */ t2=C_fast_retrieve(lf[103]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3868 in k4614 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_3870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3870,2,av);} /* chicken-status.scm:92: append-map */ f_1877(((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* main#format-string in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_fcall f_3872(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3872,4,t1,t2,t3,t4);} a=C_alloc(5); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_make_character(32):C_i_car(t9)); t12=C_i_nullp(t9); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t14=C_i_string_length(t2); t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3891,a[2]=t7,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t16=C_fixnum_difference(t3,t14); t17=C_i_fixnum_max(C_fix(0),t16); /* chicken-status.scm:101: scheme#make-string */ t18=*((C_word*)lf[56]+1);{ C_word av2[4]; av2[0]=t18; av2[1]=t15; av2[2]=t17; av2[3]=t11; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} /* k3889 in main#format-string in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_3891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3891,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3]; /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[55]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[55]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t2; tp(4,av2);}} else{ t2=((C_word*)t0)[3]; /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[55]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[55]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t1; tp(4,av2);}}} /* main#list-installed-eggs in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_ccall f_3938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_3938,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3942,a[2]=t4,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t4))){ /* chicken-status.scm:106: repo-path */ f_3629(t5);} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_car(t4); f_3942(2,av2);}}} /* k3940 in main#list-installed-eggs in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_3942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3942,2,av);} a=C_alloc(8); t2=t1; t3=C_i_nullp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_retrieve2(lf[21],C_text("main#+egg-info-extension+")):C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3952,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3959,a[2]=t10,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:109: chicken.sort#sort */ t12=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t12; av2[1]=t11; av2[2]=((C_word*)t0)[4]; av2[3]=*((C_word*)lf[61]+1); ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} /* g1070 in k3940 in main#list-installed-eggs in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_fcall f_3952(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_3952,3,t0,t1,t2);} t3=C_retrieve2(lf[58],C_text("main#list-egg-info")); /* chicken-status.scm:108: g1085 */ t4=C_retrieve2(lf[58],C_text("main#list-egg-info"));{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; f_4017(5,av2);}} /* k3957 in k3940 in main#list-installed-eggs in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_3959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3959,2,av);} a=C_alloc(6); t2=C_i_check_list_2(t1,lf[59]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3967,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_3967(t6,((C_word*)t0)[3],t1);} /* for-each-loop1069 in k3957 in k3940 in main#list-installed-eggs in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_fcall f_3967(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3967,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3977,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-status.scm:108: g1070 */ t5=((C_word*)t0)[3]; f_3952(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3975 in for-each-loop1069 in k3957 in k3940 in main#list-installed-eggs in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_3977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3977,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3967(t3,((C_word*)t0)[4],t2);} /* main#list-egg-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_ccall f_4017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_4017,5,av);} a=C_alloc(11); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4021,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-status.scm:113: read-info */ f_3663(t5,t2,C_a_i_list(&a,2,t3,t4));} /* k4019 in main#list-egg-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_4021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4021,2,av);} a=C_alloc(7); t2=(C_truep(t1)?( /* chicken-status.scm:114: get-egg-property */ f_3209(t1,lf[62],C_SCHEME_END_OF_LIST) ):C_SCHEME_FALSE); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4027,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=t3; f_4027(t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4054,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:115: chicken.load#find-file */ t5=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[69]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k4025 in k4019 in main#list-egg-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_fcall f_4027(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_4027,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4034,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4051,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:118: scheme#string-append */ t5=*((C_word*)lf[66]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[67]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k4032 in k4025 in k4019 in main#list-egg-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_4034,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4038,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4042,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4047,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:121: chicken.string#->string */ t6=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4036 in k4032 in k4025 in k4019 in main#list-egg-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4038,2,av);} /* chicken-status.scm:118: chicken.base#print */ t2=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4040 in k4032 in k4025 in k4019 in main#list-egg-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4042,2,av);} a=C_alloc(6); /* chicken-status.scm:120: format-string */ f_3872(((C_word*)t0)[2],t1,C_retrieve2(lf[35],C_text("main#list-width")),C_a_i_list(&a,2,C_SCHEME_TRUE,C_make_character(46)));} /* k4045 in k4032 in k4025 in k4019 in main#list-egg-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4047,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[55]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[55]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[64]; av2[3]=t1; tp(4,av2);}} /* k4049 in k4025 in k4019 in main#list-egg-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4051,2,av);} a=C_alloc(6); /* chicken-status.scm:118: format-string */ f_3872(((C_word*)t0)[2],t1,C_retrieve2(lf[35],C_text("main#list-width")),C_a_i_list(&a,2,C_SCHEME_FALSE,C_make_character(46)));} /* k4052 in k4019 in main#list-egg-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_4054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4054,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4057,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ /* chicken-status.scm:116: scheme#with-input-from-file */ t3=C_fast_retrieve(lf[40]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=*((C_word*)lf[41]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=((C_word*)t0)[2]; f_4027(t3,lf[68]);}} /* k4055 in k4052 in k4019 in main#list-egg-info in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4057,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_4027(t3,t2);} else{ t2=((C_word*)t0)[2]; f_4027(t2,lf[68]);}} /* k4073 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_4075,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4087,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4120,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4124,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-status.scm:129: chicken.file#directory */ t5=C_fast_retrieve(lf[100]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[23],C_text("main#cache-directory")); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4082 in for-each-loop1112 in k4085 in k4073 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in ... */ static void C_ccall f_4084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4084,2,av);} /* chicken-status.scm:128: list-egg-info */ t2=C_retrieve2(lf[58],C_text("main#list-egg-info"));{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=lf[99]; f_4017(5,av2);}} /* k4085 in k4073 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4087,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[59]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4095,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_4095(t6,((C_word*)t0)[2],t1);} /* for-each-loop1112 in k4085 in k4073 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_fcall f_4095(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_4095,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4105,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4084,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:128: chicken.pathname#make-pathname */ t8=C_fast_retrieve(lf[43]);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=C_retrieve2(lf[23],C_text("main#cache-directory")); av2[3]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4103 in for-each-loop1112 in k4085 in k4073 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in ... */ static void C_ccall f_4105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4105,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4095(t3,((C_word*)t0)[4],t2);} /* k4118 in k4073 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4120,2,av);} /* chicken-status.scm:129: chicken.sort#sort */ t2=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[61]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4122 in k4073 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4124,2,av);} /* chicken-status.scm:129: filter-egg-names */ f_3718(((C_word*)t0)[2],t1,((C_word*)t0)[3],((C_word*)t0)[4]);} /* main#gather-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_fcall f_4126(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_4126,3,t1,t2,t3);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4132,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:132: append-map */ f_1877(t1,t4,t2,C_SCHEME_END_OF_LIST);} /* a4131 in main#gather-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_4132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4132,3,av);} t3=C_retrieve2(lf[71],C_text("main#gather-components-rec")); /* chicken-status.scm:132: g1137 */ t4=C_retrieve2(lf[71],C_text("main#gather-components-rec"));{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; f_4138(4,av2);}} /* main#gather-components-rec in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_ccall f_4138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_4138,4,av);} a=C_alloc(12); t4=C_i_car(t2); t5=C_eqp(t4,lf[72]); if(C_truep(t5)){ if(C_truep(C_retrieve2(lf[26],C_text("main#host-extensions")))){ t6=t2; t7=C_u_i_cdr(t6); /* chicken-status.scm:137: gather-components */ f_4126(t1,t7,lf[72]);} else{ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=C_eqp(t4,lf[73]); if(C_truep(t6)){ if(C_truep(C_retrieve2(lf[27],C_text("main#target-extensions")))){ t7=t2; t8=C_u_i_cdr(t7); /* chicken-status.scm:139: gather-components */ f_4126(t1,t8,lf[73]);} else{ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t7=C_eqp(t4,lf[74]); if(C_truep(t7)){ t8=C_i_cadr(t2); t9=C_a_i_list3(&a,3,lf[74],t3,t8); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=C_a_i_list1(&a,1,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t8=C_eqp(t4,lf[75]); if(C_truep(t8)){ t9=C_i_cadr(t2); t10=C_a_i_list3(&a,3,lf[75],t3,t9); t11=t1;{ C_word *av2=av; av2[0]=t11; av2[1]=C_a_i_list1(&a,1,t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t9=C_eqp(t4,lf[76]); if(C_truep(t9)){ t10=C_i_cadr(t2); t11=C_a_i_list3(&a,3,lf[76],t3,t10); t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=C_a_i_list1(&a,1,t11); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t10=C_eqp(t4,lf[77]); if(C_truep(t10)){ t11=C_i_cadr(t2); t12=C_a_i_list3(&a,3,lf[77],t3,t11); t13=t1;{ C_word *av2=av; av2[0]=t13; av2[1]=C_a_i_list1(&a,1,t12); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t11=C_eqp(t4,lf[78]); if(C_truep(t11)){ t12=C_i_cadr(t2); t13=C_a_i_list3(&a,3,lf[78],t3,t12); t14=t1;{ C_word *av2=av; av2[0]=t14; av2[1]=C_a_i_list1(&a,1,t13); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t12=C_eqp(t4,lf[79]); if(C_truep(t12)){ t13=C_i_cadr(t2); t14=C_a_i_list3(&a,3,lf[79],t3,t13); t15=t1;{ C_word *av2=av; av2[0]=t15; av2[1]=C_a_i_list1(&a,1,t14); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t13=t1;{ C_word *av2=av; av2[0]=t13; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}}}}}}}} /* main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_ccall f_4290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4290,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4456,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:148: get-terminal-width */ f_3552(t3);} /* g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_fcall f_4295(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4295,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4299,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-status.scm:151: read-info */ f_3663(t3,t2,C_SCHEME_END_OF_LIST);} /* k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_4299,2,av);} a=C_alloc(13); t2=( /* chicken-status.scm:152: get-egg-property */ f_3209(t1,lf[62],C_SCHEME_END_OF_LIST) ); t3=t2; t4=( /* chicken-status.scm:153: get-egg-property* */ f_3233(t1,lf[81],C_SCHEME_END_OF_LIST) ); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4308,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4399,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4416,a[2]=t7,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:155: scheme#string-append */ t9=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[4]; av2[3]=lf[88]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* chicken-status.scm:159: chicken.base#print */ t7=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k4306 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4308,2,av);} a=C_alloc(3); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4314,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:161: gather-components */ f_4126(t2,((C_word*)t0)[2],C_SCHEME_FALSE);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4312 in k4306 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_ccall f_4314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4314,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[59]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4371,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_4371(t6,((C_word*)t0)[2],t1);} /* k4321 in for-each-loop1170 in k4312 in k4306 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in ... */ static void C_ccall f_4323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4323,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4327,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4351,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_caddr(((C_word*)t0)[2]); /* chicken-status.scm:165: chicken.string#->string */ t6=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4325 in k4321 in for-each-loop1170 in k4312 in k4306 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in ... */ static void C_ccall f_4327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4327,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); t3=C_eqp(t2,lf[72]); if(C_truep(t3)){ /* chicken-status.scm:164: chicken.base#print */ t4=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[82]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[83]; av2[5]=t1; av2[6]=lf[84]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} else{ t4=C_eqp(t2,lf[73]); if(C_truep(t4)){ /* chicken-status.scm:164: chicken.base#print */ t5=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[82]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[83]; av2[5]=t1; av2[6]=lf[85]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} else{ /* chicken-status.scm:164: chicken.base#print */ t5=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[82]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[83]; av2[5]=t1; av2[6]=lf[86]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}}}} /* k4349 in k4321 in for-each-loop1170 in k4312 in k4306 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in ... */ static void C_ccall f_4351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4351,2,av);} /* chicken-status.scm:165: format-string */ f_3872(((C_word*)t0)[2],t1,C_fix(32),C_SCHEME_END_OF_LIST);} /* k4357 in for-each-loop1170 in k4312 in k4306 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in ... */ static void C_ccall f_4359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4359,2,av);} /* chicken-status.scm:164: format-string */ f_3872(((C_word*)t0)[2],t1,C_fix(32),C_SCHEME_END_OF_LIST);} /* for-each-loop1170 in k4312 in k4306 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in ... */ static void C_fcall f_4371(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_4371,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4381,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4323,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4359,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=C_i_car(t6); /* chicken-status.scm:164: chicken.string#->string */ t10=C_fast_retrieve(lf[65]);{ C_word av2[3]; av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4379 in for-each-loop1170 in k4312 in k4306 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in ... */ static void C_ccall f_4381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4381,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4371(t3,((C_word*)t0)[4],t2);} /* k4397 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_4399,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4403,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4407,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4412,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:157: chicken.string#->string */ t6=C_fast_retrieve(lf[65]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4401 in k4397 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_ccall f_4403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4403,2,av);} /* chicken-status.scm:155: chicken.base#print */ t2=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4405 in k4397 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_ccall f_4407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4407,2,av);} a=C_alloc(6); /* chicken-status.scm:156: format-string */ f_3872(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,2,C_SCHEME_TRUE,C_make_character(46)));} /* k4410 in k4397 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_ccall f_4412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4412,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[55]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[55]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[87]; av2[3]=t1; tp(4,av2);}} /* k4414 in k4297 in g1154 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4416,2,av);} a=C_alloc(6); /* chicken-status.scm:155: format-string */ f_3872(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,2,C_SCHEME_FALSE,C_make_character(46)));} /* for-each-loop1153 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_fcall f_4427(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4427,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4437,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-status.scm:149: g1154 */ t5=((C_word*)t0)[3]; f_4295(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4435 in for-each-loop1153 in k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4437,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4427(t3,((C_word*)t0)[4],t2);} /* k4454 in main#list-installed-components in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_4456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(43,c,3)))){ C_save_and_reclaim((void *)f_4456,2,av);} a=C_alloc(43); t2=C_s_a_i_minus(&a,2,t1,C_fix(2)); t3=C_s_a_i_quotient(&a,2,t2,C_fix(2)); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4295,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=((C_word*)t0)[2]; t7=C_i_check_list_2(t6,lf[59]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4427,a[2]=t9,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_4427(t11,((C_word*)t0)[3],t6);} /* main#list-installed-files in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_ccall f_4458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_4458,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4462,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4495,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4497,tmp=(C_word)a,a+=2,tmp); /* chicken-status.scm:177: append-map */ f_1877(t4,t5,t2,C_SCHEME_END_OF_LIST);} /* k4460 in main#list-installed-files in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_4462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4462,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[59]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4470,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_4470(t6,((C_word*)t0)[2],t1);} /* for-each-loop1202 in k4460 in main#list-installed-files in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_fcall f_4470(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4470,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4480,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-status.scm:174: g1203 */ t5=*((C_word*)lf[63]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4478 in for-each-loop1202 in k4460 in main#list-installed-files in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4480,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4470(t3,((C_word*)t0)[4],t2);} /* k4493 in main#list-installed-files in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_4495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4495,2,av);} /* chicken-status.scm:176: chicken.sort#sort */ t2=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[61]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a4496 in main#list-installed-files in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_4497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4497,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4505,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:179: read-info */ f_3663(t3,t2,C_SCHEME_END_OF_LIST);} /* k4503 in a4496 in main#list-installed-files in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_4505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4505,2,av);} /* chicken-status.scm:179: get-egg-property* */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* chicken-status.scm:179: get-egg-property* */ f_3233(t1,lf[90],C_SCHEME_END_OF_LIST) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#dump-installed-versions in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_ccall f_4507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4507,3,av);} a=C_alloc(5); t3=C_i_check_list_2(t2,lf[59]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4543,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_4543(t7,t1,t2);} /* k4522 in k4533 in for-each-loop1222 in main#dump-installed-versions in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4524,2,av);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); /* chicken-status.scm:187: chicken.pretty-print#pp */ t4=C_fast_retrieve(lf[92]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); /* chicken-status.scm:187: chicken.pretty-print#pp */ t3=C_fast_retrieve(lf[92]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k4533 in for-each-loop1222 in main#dump-installed-versions in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_4535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4535,2,av);} a=C_alloc(4); t2=( /* chicken-status.scm:186: get-egg-property */ f_3209(t1,lf[62],C_SCHEME_END_OF_LIST) ); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4524,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:187: scheme#string->symbol */ t5=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* for-each-loop1222 in main#dump-installed-versions in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_fcall f_4543(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_4543,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4553,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4535,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:186: read-info */ f_3663(t7,t6,C_SCHEME_END_OF_LIST);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4551 in for-each-loop1222 in main#dump-installed-versions in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_4553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4553,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4543(t3,((C_word*)t0)[4],t2);} /* loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_fcall f_4582(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_4582,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4595,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ t5=((C_word*)((C_word*)t0)[4])[1]; if(C_truep(t5)){ t6=t4; f_4595(t6,t5);} else{ t6=((C_word*)((C_word*)t0)[5])[1]; t7=t4; f_4595(t7,t6);}} else{ t5=t4; f_4595(t5,C_SCHEME_FALSE);}} else{ t4=C_i_car(t2); t5=t4; if(C_truep((C_truep(C_i_equalp(t5,lf[105]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t5,lf[106]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t5,lf[107]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ t6=t1; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5201,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:192: chicken.base#print */ t8=*((C_word*)lf[63]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[108]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ if(C_truep(C_i_string_equal_p(t5,lf[109]))){ t6=lf[27] /* main#target-extensions */ =C_SCHEME_FALSE;; t7=t2; t8=C_u_i_cdr(t7); /* chicken-status.scm:234: loop */ t14=t1; t15=t8; t16=t3; t1=t14; t2=t15; t3=t16; goto loop;} else{ if(C_truep(C_u_i_string_equal_p(t5,lf[110]))){ t6=lf[26] /* main#host-extensions */ =C_SCHEME_FALSE;; t7=t2; t8=C_u_i_cdr(t7); /* chicken-status.scm:237: loop */ t14=t1; t15=t8; t16=t3; t1=t14; t2=t15; t3=t16; goto loop;} else{ if(C_truep(C_u_i_string_equal_p(t5,lf[111]))){ t6=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); t7=t2; t8=C_u_i_cdr(t7); /* chicken-status.scm:240: loop */ t14=t1; t15=t8; t16=t3; t1=t14; t2=t15; t3=t16; goto loop;} else{ if(C_truep(C_u_i_string_equal_p(t5,lf[112]))){ t6=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t7=t2; t8=C_u_i_cdr(t7); /* chicken-status.scm:243: loop */ t14=t1; t15=t8; t16=t3; t1=t14; t2=t15; t3=t16; goto loop;} else{ if(C_truep(C_u_i_string_equal_p(t5,lf[113]))){ t6=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_TRUE); t7=t2; t8=C_u_i_cdr(t7); /* chicken-status.scm:246: loop */ t14=t1; t15=t8; t16=t3; t1=t14; t2=t15; t3=t16; goto loop;} else{ t6=C_u_i_string_equal_p(t5,lf[114]); t7=(C_truep(t6)?t6:C_u_i_string_equal_p(t5,lf[115])); if(C_truep(t7)){ t8=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_TRUE); t9=t2; t10=C_u_i_cdr(t9); /* chicken-status.scm:249: loop */ t14=t1; t15=t10; t16=t3; t1=t14; t2=t15; t3=t16; goto loop;} else{ t8=C_u_i_string_equal_p(t5,lf[116]); t9=(C_truep(t8)?t8:C_u_i_string_equal_p(t5,lf[117])); if(C_truep(t9)){ t10=C_set_block_item(((C_word*)t0)[6],0,C_SCHEME_TRUE); t11=t2; t12=C_u_i_cdr(t11); /* chicken-status.scm:252: loop */ t14=t1; t15=t12; t16=t3; t1=t14; t2=t15; t3=t16; goto loop;} else{ if(C_truep(C_u_i_string_equal_p(t5,lf[118]))){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4740,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4747,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:254: chicken.platform#chicken-version */ t12=C_fast_retrieve(lf[119]);{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4753,a[2]=t5,a[3]=((C_word*)t0)[7],a[4]=t1,a[5]=t3,a[6]=t2,tmp=(C_word)a,a+=7,tmp); t11=C_block_size(t5); if(C_truep(C_i_fixnum_positivep(t11))){ t12=C_i_string_ref(t5,C_fix(0)); t13=t10; f_4753(t13,C_u_i_char_equalp(C_make_character(45),t12));} else{ t12=t10; f_4753(t12,C_SCHEME_FALSE);}}}}}}}}}}}} /* k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_fcall f_4595(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4595,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4598,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4603,tmp=(C_word)a,a+=2,tmp); /* chicken-status.scm:219: chicken.port#with-output-to-port */ t4=C_fast_retrieve(lf[97]);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=*((C_word*)lf[98]+1); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[4]; t4=((C_word*)((C_word*)t0)[5])[1]; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4075,a[2]=t2,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* chicken-status.scm:125: chicken.file#directory-exists? */ t6=C_fast_retrieve(lf[101]);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=C_retrieve2(lf[23],C_text("main#cache-directory")); ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4616,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ t3=t2; f_4616(t3,C_retrieve2(lf[91],C_text("main#dump-installed-versions")));} else{ if(C_truep(((C_word*)((C_word*)t0)[7])[1])){ t3=C_retrieve2(lf[89],C_text("main#list-installed-files")); t4=t2; f_4616(t4,C_retrieve2(lf[89],C_text("main#list-installed-files")));} else{ t3=t2; f_4616(t3,(C_truep(((C_word*)((C_word*)t0)[8])[1])?C_retrieve2(lf[80],C_text("main#list-installed-components")):C_retrieve2(lf[57],C_text("main#list-installed-eggs"))));}}}}} /* k4596 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4598,2,av);} /* chicken-status.scm:221: chicken.base#exit */ t2=C_fast_retrieve(lf[95]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a4602 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4603,2,av);} /* chicken-status.scm:220: g1264 */ t2=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=lf[96]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4614 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_fcall f_4616(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ C_save_and_reclaim_args((void *)trf_4616,2,t0,t1);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4623,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4627,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3816,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3818,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3870,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* chicken-status.scm:96: repo-path */ f_3629(t8);} /* k4621 in k4614 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4623,2,av);} /* chicken-status.scm:218: g1267 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4625 in k4614 in k4593 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4627,2,av);} /* chicken-status.scm:228: filter-egg-names */ f_3718(((C_word*)t0)[2],t1,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k4738 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_4740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4740,2,av);} /* chicken-status.scm:255: chicken.base#exit */ t2=C_fast_retrieve(lf[95]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4745 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_ccall f_4747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4747,2,av);} /* chicken-status.scm:254: chicken.base#print */ t2=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in ... */ static void C_fcall f_4753(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_4753,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=C_block_size(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t2,C_fix(2)))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4762,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4836,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:259: scheme#substring */ t5=*((C_word*)lf[122]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=((C_word*)t0)[4]; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5215,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:192: chicken.base#print */ t5=*((C_word*)lf[63]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[108]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} else{ t2=((C_word*)t0)[6]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[5]); /* chicken-status.scm:265: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_4582(t5,((C_word*)t0)[4],t3,t4);}} /* k4760 in k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_4762,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4768,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4828,tmp=(C_word)a,a+=2,tmp); t5=t4; t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2053,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_2053(t9,t3,t2);} /* k4766 in k4760 in k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_4768,2,av);} a=C_alloc(21); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4775,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4787,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4791,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_4791(t11,t7,((C_word*)t0)[6]);} else{ t2=((C_word*)t0)[3]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5208,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:192: chicken.base#print */ t4=*((C_word*)lf[63]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[108]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k4773 in k4766 in k4760 in k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_ccall f_4775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4775,2,av);} /* chicken-status.scm:261: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4582(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k4785 in k4766 in k4760 in k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_ccall f_4787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4787,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken-status.scm:261: scheme#append */ t4=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* map-loop1303 in k4766 in k4760 in k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in ... */ static void C_fcall f_4791(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4791,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_string(&a,2,C_make_character(45),t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a4827 in k4760 in k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in ... */ static void C_ccall f_4828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4828,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_memq(t2,lf[120]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4834 in k4751 in loop in k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in ... */ static void C_ccall f_4836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4836,2,av);} /* ##sys#string->list */ t2=C_fast_retrieve(lf[121]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4868 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_ccall f_4870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4870,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4876,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.base#implicit-exit-handler */ t3=C_fast_retrieve(lf[94]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4874 in k4868 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in ... */ static void C_ccall f_4876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4876,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4878 in k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in ... */ static void C_ccall f_4880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_4880,2,av);} a=C_alloc(20); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_FALSE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4582,a[2]=t9,a[3]=t11,a[4]=t7,a[5]=t3,a[6]=t5,a[7]=t13,tmp=(C_word)a,a+=8,tmp)); t15=((C_word*)t13)[1]; f_4582(t15,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k4886 in k3168 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in ... */ static void C_ccall f_4888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(62,c,5)))){ C_save_and_reclaim((void *)f_4888,2,av);} a=C_alloc(62); t2=C_s_a_i_minus(&a,2,t1,C_fix(2)); t3=C_s_a_i_quotient(&a,2,t2,C_fix(2)); t4=C_mutate(&lf[35] /* (set! main#list-width ...) */,t3); t5=C_mutate(&lf[36] /* (set! main#repo-path ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3629,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[39] /* (set! main#read-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3663,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[49] /* (set! main#filter-egg-names ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3718,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate(&lf[54] /* (set! main#format-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3872,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate(&lf[57] /* (set! main#list-installed-eggs ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3938,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate(&lf[58] /* (set! main#list-egg-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4017,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate(&lf[70] /* (set! main#gather-components ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4126,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate(&lf[71] /* (set! main#gather-components-rec ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4138,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate(&lf[80] /* (set! main#list-installed-components ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4290,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate(&lf[89] /* (set! main#list-installed-files ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4458,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate(&lf[91] /* (set! main#dump-installed-versions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4507,tmp=(C_word)a,a+=2,tmp)); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4870,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4880,a[2]=t16,tmp=(C_word)a,a+=3,tmp); /* chicken-status.scm:267: chicken.process-context#command-line-arguments */ t18=C_fast_retrieve(lf[123]);{ C_word *av2=av; av2[0]=t18; av2[1]=t17; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} /* k4893 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in ... */ static void C_ccall f_4895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4895,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4898,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t1; /* egg-environment.scm:121: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=lf[124]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* egg-environment.scm:122: chicken.process-context#current-directory */ t3=C_fast_retrieve(lf[125]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4896 in k4893 in k3165 in k3096 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in ... */ static void C_ccall f_4898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4898,2,av);} /* egg-environment.scm:121: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[124]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4903 in k3092 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in ... */ static void C_ccall f_4905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4905,2,av);} /* egg-environment.scm:97: scheme#string-append */ t2=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[15],C_text("main#default-runlibdir")); av2[3]=lf[129]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4908 in k3088 in k3084 in k3080 in k3076 in k3072 in k3068 in k3064 in k3060 in k3056 in k3052 in k3048 in k3044 in k3040 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in ... */ static void C_ccall f_4910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4910,2,av);} /* egg-environment.scm:94: scheme#string-append */ t2=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[14],C_text("main#default-libdir")); av2[3]=lf[131]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4913 in k3036 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in ... */ static void C_ccall f_4915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4915,2,av);} /* egg-environment.scm:77: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[43]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[16],C_text("main#default-bindir")); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4917 in k3032 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in ... */ static void C_ccall f_4919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4919,2,av);} /* egg-environment.scm:74: scheme#string-append */ t2=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[16],C_text("main#default-bindir")); av2[3]=lf[133]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4921 in k3028 in k3024 in k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in ... */ static void C_ccall f_4923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4923,2,av);} /* egg-environment.scm:71: scheme#string-append */ t2=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[16],C_text("main#default-bindir")); av2[3]=lf[134]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4928 in k3016 in k3012 in k3008 in k3004 in k3000 in k2996 in k2992 in k2988 in k2984 in k2980 in k2976 in k2972 in k2968 in k2964 in k2958 in k1674 in k1671 in k1668 in k1665 in k1662 in k1659 in ... */ static void C_ccall f_4930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4930,2,av);} a=C_alloc(6); t2=C_eqp(t1,lf[17]); t3=(C_truep(t2)?C_mk_bool(C_WINDOWS_SHELL):lf[18]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3026,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[132]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_PREFIX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(502))){ C_save(t1); C_rereclaim2(502*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,140); lf[0]=C_h_intern(&lf[0],5, C_text("main#")); lf[2]=C_h_intern(&lf[2],5, C_text("foldr")); lf[3]=C_h_intern(&lf[3],13, C_text("scheme#append")); lf[4]=C_h_intern(&lf[4],3, C_text("map")); lf[6]=C_h_intern(&lf[6],12, C_text("scheme#null\077")); lf[17]=C_h_intern(&lf[17],7, C_text("windows")); lf[18]=C_h_intern(&lf[18],4, C_text("unix")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010egg-info")); lf[29]=C_h_intern(&lf[29],21, C_text("##sys#standard-output")); lf[30]=C_h_intern(&lf[30],10, C_text("scheme#min")); lf[31]=C_h_intern(&lf[31],26, C_text("chicken.port#terminal-size")); lf[32]=C_h_intern(&lf[32],40, C_text("chicken.condition#with-exception-handler")); lf[33]=C_h_intern(&lf[33],37, C_text("scheme#call-with-current-continuation")); lf[34]=C_h_intern(&lf[34],27, C_text("chicken.port#terminal-port\077")); lf[37]=C_h_intern(&lf[37],16, C_text("##sys#split-path")); lf[38]=C_h_intern(&lf[38],32, C_text("chicken.platform#repository-path")); lf[40]=C_h_intern(&lf[40],27, C_text("scheme#with-input-from-file")); lf[41]=C_h_intern(&lf[41],11, C_text("scheme#read")); lf[42]=C_h_intern(&lf[42],25, C_text("chicken.file#file-exists\077")); lf[43]=C_h_intern(&lf[43],30, C_text("chicken.pathname#make-pathname")); lf[44]=C_h_intern(&lf[44],35, C_text("chicken.pathname#pathname-extension")); lf[45]=C_h_intern(&lf[45],30, C_text("chicken.pathname#pathname-file")); lf[46]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007chicken")); lf[47]=C_h_intern(&lf[47],35, C_text("chicken.pathname#pathname-directory")); lf[48]=C_h_intern(&lf[48],22, C_text("chicken.load#find-file")); lf[50]=C_h_intern(&lf[50],15, C_text("scheme#string=\077")); lf[51]=C_h_intern(&lf[51],30, C_text("chicken.irregex#irregex-search")); lf[52]=C_h_intern(&lf[52],23, C_text("chicken.irregex#irregex")); lf[53]=C_h_intern(&lf[53],25, C_text("chicken.irregex#glob->sre")); lf[55]=C_h_intern(&lf[55],19, C_text("##sys#string-append")); lf[56]=C_h_intern(&lf[56],18, C_text("scheme#make-string")); lf[59]=C_h_intern(&lf[59],8, C_text("for-each")); lf[60]=C_h_intern(&lf[60],17, C_text("chicken.sort#sort")); lf[61]=C_h_intern(&lf[61],15, C_text("scheme#string<\077")); lf[62]=C_h_intern(&lf[62],7, C_text("version")); lf[63]=C_h_intern(&lf[63],18, C_text("chicken.base#print")); lf[64]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012 version: ")); lf[65]=C_h_intern(&lf[65],23, C_text("chicken.string#->string")); lf[66]=C_h_intern(&lf[66],20, C_text("scheme#string-append")); lf[67]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007unknown")); lf[69]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007VERSION")); lf[72]=C_h_intern(&lf[72],4, C_text("host")); lf[73]=C_h_intern(&lf[73],6, C_text("target")); lf[74]=C_h_intern(&lf[74],9, C_text("extension")); lf[75]=C_h_intern(&lf[75],4, C_text("data")); lf[76]=C_h_intern(&lf[76],21, C_text("generated-source-file")); lf[77]=C_h_intern(&lf[77],9, C_text("c-include")); lf[78]=C_h_intern(&lf[78],14, C_text("scheme-include")); lf[79]=C_h_intern(&lf[79],7, C_text("program")); lf[81]=C_h_intern(&lf[81],10, C_text("components")); lf[82]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[84]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007 (host)")); lf[85]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 (target)")); lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[87]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012 version: ")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[90]=C_h_intern(&lf[90],15, C_text("installed-files")); lf[92]=C_h_intern(&lf[92],23, C_text("chicken.pretty-print#pp")); lf[93]=C_h_intern(&lf[93],21, C_text("scheme#string->symbol")); lf[94]=C_h_intern(&lf[94],34, C_text("chicken.base#implicit-exit-handler")); lf[95]=C_h_intern(&lf[95],17, C_text("chicken.base#exit")); lf[96]=C_decode_literal(C_heaptop,C_text("\376B\000\000&-components cannot be used with -list.")); lf[97]=C_h_intern(&lf[97],32, C_text("chicken.port#with-output-to-port")); lf[98]=C_h_intern(&lf[98],20, C_text("##sys#standard-error")); lf[99]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003egg")); lf[100]=C_h_intern(&lf[100],22, C_text("chicken.file#directory")); lf[101]=C_h_intern(&lf[101],30, C_text("chicken.file#directory-exists\077")); lf[102]=C_h_intern(&lf[102],13, C_text("scheme#equal\077")); lf[103]=C_h_intern(&lf[103],17, C_text("chicken.file#glob")); lf[104]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052")); lf[105]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-help")); lf[106]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-h")); lf[107]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006--help")); lf[108]=C_decode_literal(C_heaptop,C_text("\376B\000\002wusage: chicken-status [OPTION ...] [NAME ...]\012\012 -h -help " " show this message\012 -version show version and exit\012 -c" " -components list installed components\012 -cached " " list eggs in cache\012 -f -files list installed files\012 " " -list dump installed extensions and their versions in \042o" "verride\042 format\012 -match treat NAME as glob pattern\012 " " -host when cross-compiling, only show host extensions\012 " " -target when cross-compiling, only show target extensions")); lf[109]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-host")); lf[110]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007-target")); lf[111]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006-match")); lf[112]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007-cached")); lf[113]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-list")); lf[114]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-f")); lf[115]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006-files")); lf[116]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-c")); lf[117]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013-components")); lf[118]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-version")); lf[119]=C_h_intern(&lf[119],32, C_text("chicken.platform#chicken-version")); lf[120]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000h\376\003\000\000\002\376\377\012\000\000f\376\003\000\000\002\376\377\012\000\000c\376\003\000\000\002\376\377\012\000\000a\376\377\016")); lf[121]=C_h_intern(&lf[121],18, C_text("##sys#string->list")); lf[122]=C_h_intern(&lf[122],16, C_text("scheme#substring")); lf[123]=C_h_intern(&lf[123],46, C_text("chicken.process-context#command-line-arguments")); lf[124]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017chicken-install")); lf[125]=C_h_intern(&lf[125],41, C_text("chicken.process-context#current-directory")); lf[126]=C_h_intern(&lf[126],39, C_text("chicken.platform#system-cache-directory")); lf[127]=C_h_intern(&lf[127],48, C_text("chicken.process-context#get-environment-variable")); lf[128]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021CHICKEN_EGG_CACHE")); lf[129]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011/chicken/")); lf[130]=C_h_intern(&lf[130],20, C_text("##sys#fixnum->string")); lf[131]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011/chicken/")); lf[132]=C_h_intern(&lf[132],19, C_text("##sys#peek-c-string")); lf[133]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[134]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[135]=C_h_intern(&lf[135],30, C_text("chicken.platform#software-type")); lf[136]=C_h_intern(&lf[136],25, C_text("chicken.platform#feature\077")); lf[137]=C_h_intern_kw(&lf[137],13, C_text("cross-chicken")); lf[138]=C_h_intern(&lf[138],30, C_text("##sys#register-compiled-module")); lf[139]=C_h_intern(&lf[139],4, C_text("main")); C_register_lf2(lf,140,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1649,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[216] = { {C_text("f5201:chicken_2dstatus_2escm"),(void*)f5201}, {C_text("f5208:chicken_2dstatus_2escm"),(void*)f5208}, {C_text("f5215:chicken_2dstatus_2escm"),(void*)f5215}, {C_text("f_1649:chicken_2dstatus_2escm"),(void*)f_1649}, {C_text("f_1652:chicken_2dstatus_2escm"),(void*)f_1652}, {C_text("f_1655:chicken_2dstatus_2escm"),(void*)f_1655}, {C_text("f_1658:chicken_2dstatus_2escm"),(void*)f_1658}, {C_text("f_1661:chicken_2dstatus_2escm"),(void*)f_1661}, {C_text("f_1664:chicken_2dstatus_2escm"),(void*)f_1664}, {C_text("f_1667:chicken_2dstatus_2escm"),(void*)f_1667}, {C_text("f_1670:chicken_2dstatus_2escm"),(void*)f_1670}, {C_text("f_1673:chicken_2dstatus_2escm"),(void*)f_1673}, {C_text("f_1676:chicken_2dstatus_2escm"),(void*)f_1676}, {C_text("f_1877:chicken_2dstatus_2escm"),(void*)f_1877}, {C_text("f_1892:chicken_2dstatus_2escm"),(void*)f_1892}, {C_text("f_1900:chicken_2dstatus_2escm"),(void*)f_1900}, {C_text("f_1908:chicken_2dstatus_2escm"),(void*)f_1908}, {C_text("f_1919:chicken_2dstatus_2escm"),(void*)f_1919}, {C_text("f_1932:chicken_2dstatus_2escm"),(void*)f_1932}, {C_text("f_1939:chicken_2dstatus_2escm"),(void*)f_1939}, {C_text("f_1946:chicken_2dstatus_2escm"),(void*)f_1946}, {C_text("f_1950:chicken_2dstatus_2escm"),(void*)f_1950}, {C_text("f_1962:chicken_2dstatus_2escm"),(void*)f_1962}, {C_text("f_1964:chicken_2dstatus_2escm"),(void*)f_1964}, {C_text("f_2011:chicken_2dstatus_2escm"),(void*)f_2011}, {C_text("f_2013:chicken_2dstatus_2escm"),(void*)f_2013}, {C_text("f_2053:chicken_2dstatus_2escm"),(void*)f_2053}, {C_text("f_2075:chicken_2dstatus_2escm"),(void*)f_2075}, {C_text("f_2081:chicken_2dstatus_2escm"),(void*)f_2081}, {C_text("f_2087:chicken_2dstatus_2escm"),(void*)f_2087}, {C_text("f_2097:chicken_2dstatus_2escm"),(void*)f_2097}, {C_text("f_2145:chicken_2dstatus_2escm"),(void*)f_2145}, {C_text("f_2163:chicken_2dstatus_2escm"),(void*)f_2163}, {C_text("f_2173:chicken_2dstatus_2escm"),(void*)f_2173}, {C_text("f_2186:chicken_2dstatus_2escm"),(void*)f_2186}, {C_text("f_2200:chicken_2dstatus_2escm"),(void*)f_2200}, {C_text("f_2242:chicken_2dstatus_2escm"),(void*)f_2242}, {C_text("f_2248:chicken_2dstatus_2escm"),(void*)f_2248}, {C_text("f_2262:chicken_2dstatus_2escm"),(void*)f_2262}, {C_text("f_2275:chicken_2dstatus_2escm"),(void*)f_2275}, {C_text("f_2287:chicken_2dstatus_2escm"),(void*)f_2287}, {C_text("f_2296:chicken_2dstatus_2escm"),(void*)f_2296}, {C_text("f_2304:chicken_2dstatus_2escm"),(void*)f_2304}, {C_text("f_2311:chicken_2dstatus_2escm"),(void*)f_2311}, {C_text("f_2325:chicken_2dstatus_2escm"),(void*)f_2325}, {C_text("f_2960:chicken_2dstatus_2escm"),(void*)f_2960}, {C_text("f_2966:chicken_2dstatus_2escm"),(void*)f_2966}, {C_text("f_2970:chicken_2dstatus_2escm"),(void*)f_2970}, {C_text("f_2974:chicken_2dstatus_2escm"),(void*)f_2974}, {C_text("f_2978:chicken_2dstatus_2escm"),(void*)f_2978}, {C_text("f_2982:chicken_2dstatus_2escm"),(void*)f_2982}, {C_text("f_2986:chicken_2dstatus_2escm"),(void*)f_2986}, {C_text("f_2990:chicken_2dstatus_2escm"),(void*)f_2990}, {C_text("f_2994:chicken_2dstatus_2escm"),(void*)f_2994}, {C_text("f_2998:chicken_2dstatus_2escm"),(void*)f_2998}, {C_text("f_3002:chicken_2dstatus_2escm"),(void*)f_3002}, {C_text("f_3006:chicken_2dstatus_2escm"),(void*)f_3006}, {C_text("f_3010:chicken_2dstatus_2escm"),(void*)f_3010}, {C_text("f_3014:chicken_2dstatus_2escm"),(void*)f_3014}, {C_text("f_3018:chicken_2dstatus_2escm"),(void*)f_3018}, {C_text("f_3026:chicken_2dstatus_2escm"),(void*)f_3026}, {C_text("f_3030:chicken_2dstatus_2escm"),(void*)f_3030}, {C_text("f_3034:chicken_2dstatus_2escm"),(void*)f_3034}, {C_text("f_3038:chicken_2dstatus_2escm"),(void*)f_3038}, {C_text("f_3042:chicken_2dstatus_2escm"),(void*)f_3042}, {C_text("f_3046:chicken_2dstatus_2escm"),(void*)f_3046}, {C_text("f_3050:chicken_2dstatus_2escm"),(void*)f_3050}, {C_text("f_3054:chicken_2dstatus_2escm"),(void*)f_3054}, {C_text("f_3058:chicken_2dstatus_2escm"),(void*)f_3058}, {C_text("f_3062:chicken_2dstatus_2escm"),(void*)f_3062}, {C_text("f_3066:chicken_2dstatus_2escm"),(void*)f_3066}, {C_text("f_3070:chicken_2dstatus_2escm"),(void*)f_3070}, {C_text("f_3074:chicken_2dstatus_2escm"),(void*)f_3074}, {C_text("f_3078:chicken_2dstatus_2escm"),(void*)f_3078}, {C_text("f_3082:chicken_2dstatus_2escm"),(void*)f_3082}, {C_text("f_3086:chicken_2dstatus_2escm"),(void*)f_3086}, {C_text("f_3090:chicken_2dstatus_2escm"),(void*)f_3090}, {C_text("f_3094:chicken_2dstatus_2escm"),(void*)f_3094}, {C_text("f_3098:chicken_2dstatus_2escm"),(void*)f_3098}, {C_text("f_3167:chicken_2dstatus_2escm"),(void*)f_3167}, {C_text("f_3170:chicken_2dstatus_2escm"),(void*)f_3170}, {C_text("f_3176:chicken_2dstatus_2escm"),(void*)f_3176}, {C_text("f_3182:chicken_2dstatus_2escm"),(void*)f_3182}, {C_text("f_3186:chicken_2dstatus_2escm"),(void*)f_3186}, {C_text("f_3190:chicken_2dstatus_2escm"),(void*)f_3190}, {C_text("f_3194:chicken_2dstatus_2escm"),(void*)f_3194}, {C_text("f_3198:chicken_2dstatus_2escm"),(void*)f_3198}, {C_text("f_3204:chicken_2dstatus_2escm"),(void*)f_3204}, {C_text("f_3209:chicken_2dstatus_2escm"),(void*)f_3209}, {C_text("f_3233:chicken_2dstatus_2escm"),(void*)f_3233}, {C_text("f_3552:chicken_2dstatus_2escm"),(void*)f_3552}, {C_text("f_3559:chicken_2dstatus_2escm"),(void*)f_3559}, {C_text("f_3562:chicken_2dstatus_2escm"),(void*)f_3562}, {C_text("f_3565:chicken_2dstatus_2escm"),(void*)f_3565}, {C_text("f_3574:chicken_2dstatus_2escm"),(void*)f_3574}, {C_text("f_3580:chicken_2dstatus_2escm"),(void*)f_3580}, {C_text("f_3586:chicken_2dstatus_2escm"),(void*)f_3586}, {C_text("f_3589:chicken_2dstatus_2escm"),(void*)f_3589}, {C_text("f_3595:chicken_2dstatus_2escm"),(void*)f_3595}, {C_text("f_3601:chicken_2dstatus_2escm"),(void*)f_3601}, {C_text("f_3607:chicken_2dstatus_2escm"),(void*)f_3607}, {C_text("f_3613:chicken_2dstatus_2escm"),(void*)f_3613}, {C_text("f_3619:chicken_2dstatus_2escm"),(void*)f_3619}, {C_text("f_3629:chicken_2dstatus_2escm"),(void*)f_3629}, {C_text("f_3657:chicken_2dstatus_2escm"),(void*)f_3657}, {C_text("f_3663:chicken_2dstatus_2escm"),(void*)f_3663}, {C_text("f_3667:chicken_2dstatus_2escm"),(void*)f_3667}, {C_text("f_3679:chicken_2dstatus_2escm"),(void*)f_3679}, {C_text("f_3689:chicken_2dstatus_2escm"),(void*)f_3689}, {C_text("f_3718:chicken_2dstatus_2escm"),(void*)f_3718}, {C_text("f_3722:chicken_2dstatus_2escm"),(void*)f_3722}, {C_text("f_3739:chicken_2dstatus_2escm"),(void*)f_3739}, {C_text("f_3747:chicken_2dstatus_2escm"),(void*)f_3747}, {C_text("f_3751:chicken_2dstatus_2escm"),(void*)f_3751}, {C_text("f_3757:chicken_2dstatus_2escm"),(void*)f_3757}, {C_text("f_3759:chicken_2dstatus_2escm"),(void*)f_3759}, {C_text("f_3784:chicken_2dstatus_2escm"),(void*)f_3784}, {C_text("f_3796:chicken_2dstatus_2escm"),(void*)f_3796}, {C_text("f_3802:chicken_2dstatus_2escm"),(void*)f_3802}, {C_text("f_3816:chicken_2dstatus_2escm"),(void*)f_3816}, {C_text("f_3818:chicken_2dstatus_2escm"),(void*)f_3818}, {C_text("f_3825:chicken_2dstatus_2escm"),(void*)f_3825}, {C_text("f_3830:chicken_2dstatus_2escm"),(void*)f_3830}, {C_text("f_3855:chicken_2dstatus_2escm"),(void*)f_3855}, {C_text("f_3866:chicken_2dstatus_2escm"),(void*)f_3866}, {C_text("f_3870:chicken_2dstatus_2escm"),(void*)f_3870}, {C_text("f_3872:chicken_2dstatus_2escm"),(void*)f_3872}, {C_text("f_3891:chicken_2dstatus_2escm"),(void*)f_3891}, {C_text("f_3938:chicken_2dstatus_2escm"),(void*)f_3938}, {C_text("f_3942:chicken_2dstatus_2escm"),(void*)f_3942}, {C_text("f_3952:chicken_2dstatus_2escm"),(void*)f_3952}, {C_text("f_3959:chicken_2dstatus_2escm"),(void*)f_3959}, {C_text("f_3967:chicken_2dstatus_2escm"),(void*)f_3967}, {C_text("f_3977:chicken_2dstatus_2escm"),(void*)f_3977}, {C_text("f_4017:chicken_2dstatus_2escm"),(void*)f_4017}, {C_text("f_4021:chicken_2dstatus_2escm"),(void*)f_4021}, {C_text("f_4027:chicken_2dstatus_2escm"),(void*)f_4027}, {C_text("f_4034:chicken_2dstatus_2escm"),(void*)f_4034}, {C_text("f_4038:chicken_2dstatus_2escm"),(void*)f_4038}, {C_text("f_4042:chicken_2dstatus_2escm"),(void*)f_4042}, {C_text("f_4047:chicken_2dstatus_2escm"),(void*)f_4047}, {C_text("f_4051:chicken_2dstatus_2escm"),(void*)f_4051}, {C_text("f_4054:chicken_2dstatus_2escm"),(void*)f_4054}, {C_text("f_4057:chicken_2dstatus_2escm"),(void*)f_4057}, {C_text("f_4075:chicken_2dstatus_2escm"),(void*)f_4075}, {C_text("f_4084:chicken_2dstatus_2escm"),(void*)f_4084}, {C_text("f_4087:chicken_2dstatus_2escm"),(void*)f_4087}, {C_text("f_4095:chicken_2dstatus_2escm"),(void*)f_4095}, {C_text("f_4105:chicken_2dstatus_2escm"),(void*)f_4105}, {C_text("f_4120:chicken_2dstatus_2escm"),(void*)f_4120}, {C_text("f_4124:chicken_2dstatus_2escm"),(void*)f_4124}, {C_text("f_4126:chicken_2dstatus_2escm"),(void*)f_4126}, {C_text("f_4132:chicken_2dstatus_2escm"),(void*)f_4132}, {C_text("f_4138:chicken_2dstatus_2escm"),(void*)f_4138}, {C_text("f_4290:chicken_2dstatus_2escm"),(void*)f_4290}, {C_text("f_4295:chicken_2dstatus_2escm"),(void*)f_4295}, {C_text("f_4299:chicken_2dstatus_2escm"),(void*)f_4299}, {C_text("f_4308:chicken_2dstatus_2escm"),(void*)f_4308}, {C_text("f_4314:chicken_2dstatus_2escm"),(void*)f_4314}, {C_text("f_4323:chicken_2dstatus_2escm"),(void*)f_4323}, {C_text("f_4327:chicken_2dstatus_2escm"),(void*)f_4327}, {C_text("f_4351:chicken_2dstatus_2escm"),(void*)f_4351}, {C_text("f_4359:chicken_2dstatus_2escm"),(void*)f_4359}, {C_text("f_4371:chicken_2dstatus_2escm"),(void*)f_4371}, {C_text("f_4381:chicken_2dstatus_2escm"),(void*)f_4381}, {C_text("f_4399:chicken_2dstatus_2escm"),(void*)f_4399}, {C_text("f_4403:chicken_2dstatus_2escm"),(void*)f_4403}, {C_text("f_4407:chicken_2dstatus_2escm"),(void*)f_4407}, {C_text("f_4412:chicken_2dstatus_2escm"),(void*)f_4412}, {C_text("f_4416:chicken_2dstatus_2escm"),(void*)f_4416}, {C_text("f_4427:chicken_2dstatus_2escm"),(void*)f_4427}, {C_text("f_4437:chicken_2dstatus_2escm"),(void*)f_4437}, {C_text("f_4456:chicken_2dstatus_2escm"),(void*)f_4456}, {C_text("f_4458:chicken_2dstatus_2escm"),(void*)f_4458}, {C_text("f_4462:chicken_2dstatus_2escm"),(void*)f_4462}, {C_text("f_4470:chicken_2dstatus_2escm"),(void*)f_4470}, {C_text("f_4480:chicken_2dstatus_2escm"),(void*)f_4480}, {C_text("f_4495:chicken_2dstatus_2escm"),(void*)f_4495}, {C_text("f_4497:chicken_2dstatus_2escm"),(void*)f_4497}, {C_text("f_4505:chicken_2dstatus_2escm"),(void*)f_4505}, {C_text("f_4507:chicken_2dstatus_2escm"),(void*)f_4507}, {C_text("f_4524:chicken_2dstatus_2escm"),(void*)f_4524}, {C_text("f_4535:chicken_2dstatus_2escm"),(void*)f_4535}, {C_text("f_4543:chicken_2dstatus_2escm"),(void*)f_4543}, {C_text("f_4553:chicken_2dstatus_2escm"),(void*)f_4553}, {C_text("f_4582:chicken_2dstatus_2escm"),(void*)f_4582}, {C_text("f_4595:chicken_2dstatus_2escm"),(void*)f_4595}, {C_text("f_4598:chicken_2dstatus_2escm"),(void*)f_4598}, {C_text("f_4603:chicken_2dstatus_2escm"),(void*)f_4603}, {C_text("f_4616:chicken_2dstatus_2escm"),(void*)f_4616}, {C_text("f_4623:chicken_2dstatus_2escm"),(void*)f_4623}, {C_text("f_4627:chicken_2dstatus_2escm"),(void*)f_4627}, {C_text("f_4740:chicken_2dstatus_2escm"),(void*)f_4740}, {C_text("f_4747:chicken_2dstatus_2escm"),(void*)f_4747}, {C_text("f_4753:chicken_2dstatus_2escm"),(void*)f_4753}, {C_text("f_4762:chicken_2dstatus_2escm"),(void*)f_4762}, {C_text("f_4768:chicken_2dstatus_2escm"),(void*)f_4768}, {C_text("f_4775:chicken_2dstatus_2escm"),(void*)f_4775}, {C_text("f_4787:chicken_2dstatus_2escm"),(void*)f_4787}, {C_text("f_4791:chicken_2dstatus_2escm"),(void*)f_4791}, {C_text("f_4828:chicken_2dstatus_2escm"),(void*)f_4828}, {C_text("f_4836:chicken_2dstatus_2escm"),(void*)f_4836}, {C_text("f_4870:chicken_2dstatus_2escm"),(void*)f_4870}, {C_text("f_4876:chicken_2dstatus_2escm"),(void*)f_4876}, {C_text("f_4880:chicken_2dstatus_2escm"),(void*)f_4880}, {C_text("f_4888:chicken_2dstatus_2escm"),(void*)f_4888}, {C_text("f_4895:chicken_2dstatus_2escm"),(void*)f_4895}, {C_text("f_4898:chicken_2dstatus_2escm"),(void*)f_4898}, {C_text("f_4905:chicken_2dstatus_2escm"),(void*)f_4905}, {C_text("f_4910:chicken_2dstatus_2escm"),(void*)f_4910}, {C_text("f_4915:chicken_2dstatus_2escm"),(void*)f_4915}, {C_text("f_4919:chicken_2dstatus_2escm"),(void*)f_4919}, {C_text("f_4923:chicken_2dstatus_2escm"),(void*)f_4923}, {C_text("f_4930:chicken_2dstatus_2escm"),(void*)f_4930}, {C_text("toplevel:chicken_2dstatus_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: main#partition o|hiding unexported module binding: main#span o|hiding unexported module binding: main#take o|hiding unexported module binding: main#drop o|hiding unexported module binding: main#split-at o|hiding unexported module binding: main#append-map o|hiding unexported module binding: main#every o|hiding unexported module binding: main#any o|hiding unexported module binding: main#cons* o|hiding unexported module binding: main#concatenate o|hiding unexported module binding: main#delete o|hiding unexported module binding: main#first o|hiding unexported module binding: main#second o|hiding unexported module binding: main#third o|hiding unexported module binding: main#fourth o|hiding unexported module binding: main#fifth o|hiding unexported module binding: main#delete-duplicates o|hiding unexported module binding: main#alist-cons o|hiding unexported module binding: main#filter o|hiding unexported module binding: main#filter-map o|hiding unexported module binding: main#remove o|hiding unexported module binding: main#unzip1 o|hiding unexported module binding: main#last o|hiding unexported module binding: main#list-index o|hiding unexported module binding: main#lset-adjoin/eq? o|hiding unexported module binding: main#lset-difference/eq? o|hiding unexported module binding: main#lset-union/eq? o|hiding unexported module binding: main#lset-intersection/eq? o|hiding unexported module binding: main#list-tabulate o|hiding unexported module binding: main#lset<=/eq? o|hiding unexported module binding: main#lset=/eq? o|hiding unexported module binding: main#length+ o|hiding unexported module binding: main#find o|hiding unexported module binding: main#find-tail o|hiding unexported module binding: main#iota o|hiding unexported module binding: main#make-list o|hiding unexported module binding: main#posq o|hiding unexported module binding: main#posv o|hiding unexported module binding: main#staticbuild o|hiding unexported module binding: main#debugbuild o|hiding unexported module binding: main#cross-chicken o|hiding unexported module binding: main#binary-version o|hiding unexported module binding: main#major-version o|hiding unexported module binding: main#default-cc o|hiding unexported module binding: main#default-cxx o|hiding unexported module binding: main#default-install-program o|hiding unexported module binding: main#default-cflags o|hiding unexported module binding: main#default-ldflags o|hiding unexported module binding: main#default-install-program-executable-flags o|hiding unexported module binding: main#default-install-program-data-flags o|hiding unexported module binding: main#default-libs o|hiding unexported module binding: main#default-libdir o|hiding unexported module binding: main#default-runlibdir o|hiding unexported module binding: main#default-slibdir o|hiding unexported module binding: main#default-incdir o|hiding unexported module binding: main#default-bindir o|hiding unexported module binding: main#default-sharedir o|hiding unexported module binding: main#default-platform o|hiding unexported module binding: main#default-prefix o|hiding unexported module binding: main#default-bindir o|hiding unexported module binding: main#default-csc o|hiding unexported module binding: main#default-csi o|hiding unexported module binding: main#default-builder o|hiding unexported module binding: main#target-librarian o|hiding unexported module binding: main#target-librarian-options o|hiding unexported module binding: main#host-repo o|hiding unexported module binding: main#host-libdir o|hiding unexported module binding: main#host-bindir o|hiding unexported module binding: main#host-incdir o|hiding unexported module binding: main#host-sharedir o|hiding unexported module binding: main#host-libs o|hiding unexported module binding: main#host-cflags o|hiding unexported module binding: main#host-ldflags o|hiding unexported module binding: main#host-cc o|hiding unexported module binding: main#host-cxx o|hiding unexported module binding: main#target-repo o|hiding unexported module binding: main#target-run-repo o|hiding unexported module binding: main#+egg-info-extension+ o|hiding unexported module binding: main#+version-file+ o|hiding unexported module binding: main#+timestamp-file+ o|hiding unexported module binding: main#+status-file+ o|hiding unexported module binding: main#+egg-extension+ o|hiding unexported module binding: main#validate-environment o|hiding unexported module binding: main#destination-repository o|hiding unexported module binding: main#probe-dir o|hiding unexported module binding: main#cache-directory o|hiding unexported module binding: main#locate-egg-file o|hiding unexported module binding: main#load-egg-info o|hiding unexported module binding: main#get-egg-property o|hiding unexported module binding: main#get-egg-property* o|hiding unexported module binding: main#get-extension-property/internal o|hiding unexported module binding: main#get-extension-property o|hiding unexported module binding: main#get-extension-property* o|hiding unexported module binding: main#host-extensions o|hiding unexported module binding: main#target-extensions o|hiding unexported module binding: main#get-terminal-width o|hiding unexported module binding: main#list-width o|hiding unexported module binding: main#repo-path o|hiding unexported module binding: main#grep o|hiding unexported module binding: main#read-info o|hiding unexported module binding: main#filter-egg-names o|hiding unexported module binding: main#gather-eggs o|hiding unexported module binding: main#format-string o|hiding unexported module binding: main#list-installed-eggs o|hiding unexported module binding: main#list-egg-info o|hiding unexported module binding: main#list-cached-eggs o|hiding unexported module binding: main#gather-components o|hiding unexported module binding: main#gather-components-rec o|hiding unexported module binding: main#list-installed-components o|hiding unexported module binding: main#list-installed-files o|hiding unexported module binding: main#dump-installed-versions o|hiding unexported module binding: main#usage o|hiding unexported module binding: main#short-options o|hiding unexported module binding: main#main S|applied compiler syntax: S| scheme#for-each 6 S| chicken.base#foldl 3 S| scheme#map 6 S| chicken.base#foldr 3 o|eliminated procedure checks: 81 o|specializations: o| 1 (scheme#> fixnum fixnum) o| 1 (scheme#char=? char char) o| 1 (scheme#string-ref string fixnum) o| 1 (scheme#positive? fixnum) o| 2 (scheme#string-length string) o| 9 (scheme#string=? string string) o| 1 (chicken.base#current-error-port) o| 4 (scheme#string-append string string) o| 1 (scheme#zero? *) o| 1 (scheme#current-output-port) o| 2 (scheme#cdar (pair pair *)) o| 15 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 2 (scheme#number->string fixnum) o| 1 (scheme#eqv? * *) o| 5 (##sys#check-list (or pair list) *) o| 39 (scheme#cdr pair) o| 8 (scheme#car pair) (o e)|safe calls: 484 (o e)|assignments to immediate values: 3 o|removed side-effect free assignment to unused variable: main#partition o|removed side-effect free assignment to unused variable: main#span o|removed side-effect free assignment to unused variable: main#drop o|removed side-effect free assignment to unused variable: main#split-at o|merged explicitly consed rest parameter: lsts174 o|inlining procedure: k1879 o|inlining procedure: k1894 o|inlining procedure: k1894 o|inlining procedure: k1879 o|inlining procedure: k1934 o|inlining procedure: k1934 o|inlining procedure: k1966 o|contracted procedure: "(mini-srfi-1.scm:77) g227236" o|inlining procedure: k1966 o|inlining procedure: k2015 o|contracted procedure: "(mini-srfi-1.scm:76) g200209" o|inlining procedure: k2015 o|inlining procedure: k2058 o|inlining procedure: k2058 o|inlining procedure: k2089 o|inlining procedure: k2089 o|removed side-effect free assignment to unused variable: main#cons* o|removed side-effect free assignment to unused variable: main#first o|removed side-effect free assignment to unused variable: main#second o|removed side-effect free assignment to unused variable: main#third o|removed side-effect free assignment to unused variable: main#fourth o|removed side-effect free assignment to unused variable: main#fifth o|inlining procedure: k2250 o|inlining procedure: k2250 o|contracted procedure: "(mini-srfi-1.scm:123) main#delete" o|inlining procedure: k2175 o|inlining procedure: k2175 o|removed side-effect free assignment to unused variable: main#alist-cons o|inlining procedure: k2306 o|inlining procedure: k2306 o|inlining procedure: k2298 o|inlining procedure: k2298 o|removed side-effect free assignment to unused variable: main#filter-map o|removed side-effect free assignment to unused variable: main#remove o|removed side-effect free assignment to unused variable: main#unzip1 o|removed side-effect free assignment to unused variable: main#last o|removed side-effect free assignment to unused variable: main#list-index o|removed side-effect free assignment to unused variable: main#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: main#lset-difference/eq? o|removed side-effect free assignment to unused variable: main#lset-union/eq? o|removed side-effect free assignment to unused variable: main#lset-intersection/eq? o|inlining procedure: k2697 o|inlining procedure: k2697 o|removed side-effect free assignment to unused variable: main#lset<=/eq? o|removed side-effect free assignment to unused variable: main#lset=/eq? o|removed side-effect free assignment to unused variable: main#length+ o|removed side-effect free assignment to unused variable: main#find o|removed side-effect free assignment to unused variable: main#find-tail o|removed side-effect free assignment to unused variable: main#iota o|removed side-effect free assignment to unused variable: main#make-list o|removed side-effect free assignment to unused variable: main#posq o|removed side-effect free assignment to unused variable: main#posv o|removed side-effect free assignment to unused variable: main#default-cc o|removed side-effect free assignment to unused variable: main#default-cxx o|removed side-effect free assignment to unused variable: main#default-install-program o|removed side-effect free assignment to unused variable: main#default-cflags o|removed side-effect free assignment to unused variable: main#default-ldflags o|removed side-effect free assignment to unused variable: main#default-install-program-executable-flags o|removed side-effect free assignment to unused variable: main#default-install-program-data-flags o|removed side-effect free assignment to unused variable: main#default-libs o|removed side-effect free assignment to unused variable: main#default-slibdir o|removed side-effect free assignment to unused variable: main#default-incdir o|removed side-effect free assignment to unused variable: main#default-sharedir o|removed side-effect free assignment to unused variable: main#default-platform o|removed side-effect free assignment to unused variable: main#default-prefix o|removed side-effect free assignment to unused variable: main#default-csc o|removed side-effect free assignment to unused variable: main#default-csi o|removed side-effect free assignment to unused variable: main#default-builder o|removed side-effect free assignment to unused variable: main#target-librarian o|removed side-effect free assignment to unused variable: main#target-librarian-options o|removed side-effect free assignment to unused variable: main#host-libdir o|removed side-effect free assignment to unused variable: main#host-bindir o|removed side-effect free assignment to unused variable: main#host-incdir o|removed side-effect free assignment to unused variable: main#host-sharedir o|removed side-effect free assignment to unused variable: main#host-libs o|removed side-effect free assignment to unused variable: main#host-cflags o|removed side-effect free assignment to unused variable: main#host-ldflags o|removed side-effect free assignment to unused variable: main#host-cc o|removed side-effect free assignment to unused variable: main#host-cxx o|removed side-effect free assignment to unused variable: main#+timestamp-file+ o|removed side-effect free assignment to unused variable: main#+status-file+ o|removed side-effect free assignment to unused variable: main#validate-environment o|removed side-effect free assignment to unused variable: main#probe-dir o|merged explicitly consed rest parameter: rest782785 o|inlining procedure: k3220 o|inlining procedure: k3220 o|merged explicitly consed rest parameter: rest800803 o|inlining procedure: k3244 o|inlining procedure: k3244 o|inlining procedure: k3262 o|inlining procedure: k3280 o|inlining procedure: k3280 o|inlining procedure: k3297 o|inlining procedure: k3297 o|substituted constant variable: a3338 o|substituted constant variable: a3340 o|inlining procedure: k3262 o|inlining procedure: k3348 o|inlining procedure: k3348 o|inlining procedure: k3358 o|inlining procedure: k3376 o|inlining procedure: k3376 o|inlining procedure: k3393 o|inlining procedure: k3393 o|inlining procedure: k3423 o|inlining procedure: k3423 o|substituted constant variable: a3452 o|substituted constant variable: a3454 o|substituted constant variable: a3456 o|inlining procedure: k3358 o|removed side-effect free assignment to unused variable: main#get-extension-property o|removed side-effect free assignment to unused variable: main#get-extension-property* o|inlining procedure: k3554 o|substituted constant variable: default-width910 o|substituted constant variable: default-width910 o|inlining procedure: k3554 o|substituted constant variable: default-width910 o|propagated global variable: cop911 ##sys#standard-output o|inlining procedure: k3631 o|contracted procedure: "(chicken-status.scm:66) main#destination-repository" o|inlining procedure: k3131 o|inlining procedure: k3131 o|inlining procedure: k3631 o|merged explicitly consed rest parameter: rest942944 o|inlining procedure: k3680 o|contracted procedure: "(chicken-status.scm:74) main#load-egg-info" o|contracted procedure: "(egg-information.scm:37) main#locate-egg-file" o|inlining procedure: k3177 o|inlining procedure: k3177 o|inlining procedure: k3680 o|inlining procedure: k3720 o|inlining procedure: k3720 o|contracted procedure: "(chicken-status.scm:81) main#grep" o|propagated global variable: g936937 chicken.irregex#irregex-search o|contracted procedure: "(chicken-status.scm:79) main#concatenate" o|inlining procedure: k2147 o|inlining procedure: k2147 o|inlining procedure: k3761 o|inlining procedure: k3761 o|merged explicitly consed rest parameter: rest10341037 o|inlining procedure: k3892 o|inlining procedure: k3892 o|inlining procedure: k3969 o|inlining procedure: k3969 o|consed rest parameter at call site: "(chicken-status.scm:120) main#format-string" 3 o|substituted constant variable: a4043 o|consed rest parameter at call site: "(chicken-status.scm:118) main#format-string" 3 o|inlining procedure: k4058 o|inlining procedure: k4058 o|substituted constant variable: main#+version-file+ o|consed rest parameter at call site: "(chicken-status.scm:114) main#get-egg-property" 3 o|consed rest parameter at call site: "(chicken-status.scm:113) main#read-info" 2 o|consed rest parameter at call site: "(chicken-status.scm:132) main#append-map" 3 o|inlining procedure: k4143 o|inlining procedure: k4143 o|inlining procedure: k4163 o|inlining procedure: k4163 o|inlining procedure: k4171 o|inlining procedure: k4171 o|inlining procedure: k4205 o|inlining procedure: k4205 o|inlining procedure: k4239 o|inlining procedure: k4239 o|substituted constant variable: a4274 o|substituted constant variable: a4276 o|substituted constant variable: a4278 o|substituted constant variable: a4280 o|substituted constant variable: a4282 o|substituted constant variable: a4284 o|substituted constant variable: a4286 o|substituted constant variable: a4288 o|inlining procedure: k4309 o|inlining procedure: k4373 o|contracted procedure: "(chicken-status.scm:162) g11711178" o|inlining procedure: k4332 o|inlining procedure: k4332 o|substituted constant variable: a4345 o|substituted constant variable: a4347 o|consed rest parameter at call site: "(chicken-status.scm:165) main#format-string" 3 o|consed rest parameter at call site: "(chicken-status.scm:164) main#format-string" 3 o|inlining procedure: k4373 o|inlining procedure: k4309 o|consed rest parameter at call site: "(chicken-status.scm:156) main#format-string" 3 o|substituted constant variable: a4408 o|consed rest parameter at call site: "(chicken-status.scm:155) main#format-string" 3 o|consed rest parameter at call site: "(chicken-status.scm:153) main#get-egg-property*" 3 o|consed rest parameter at call site: "(chicken-status.scm:152) main#get-egg-property" 3 o|consed rest parameter at call site: "(chicken-status.scm:151) main#read-info" 2 o|inlining procedure: k4429 o|inlining procedure: k4429 o|inlining procedure: k4472 o|inlining procedure: k4472 o|consed rest parameter at call site: "(chicken-status.scm:179) main#get-egg-property*" 3 o|consed rest parameter at call site: "(chicken-status.scm:179) main#read-info" 2 o|consed rest parameter at call site: "(chicken-status.scm:177) main#append-map" 3 o|inlining procedure: k4545 o|contracted procedure: "(chicken-status.scm:184) g12231230" o|inlining procedure: k4526 o|inlining procedure: k4526 o|consed rest parameter at call site: "(chicken-status.scm:186) main#get-egg-property" 3 o|consed rest parameter at call site: "(chicken-status.scm:186) main#read-info" 2 o|inlining procedure: k4545 o|contracted procedure: "(chicken-status.scm:267) main#main" o|inlining procedure: k4584 o|inlining procedure: k4608 o|contracted procedure: "(chicken-status.scm:222) main#list-cached-eggs" o|inlining procedure: k4070 o|inlining procedure: k4097 o|contracted procedure: "(chicken-status.scm:126) g11131120" o|substituted constant variable: main#+egg-extension+ o|inlining procedure: k4097 o|inlining procedure: k4070 o|inlining procedure: k4608 o|contracted procedure: "(chicken-status.scm:228) main#gather-eggs" o|inlining procedure: k3832 o|inlining procedure: k3832 o|consed rest parameter at call site: "(chicken-status.scm:92) main#append-map" 3 o|inlining procedure: k4628 o|propagated global variable: r46295054 main#list-installed-files o|inlining procedure: k4628 o|inlining procedure: k4634 o|inlining procedure: k4634 o|inlining procedure: k4584 o|inlining procedure: k4649 o|inlining procedure: k4649 o|substituted constant variable: a4665 o|substituted constant variable: a4676 o|inlining procedure: k4672 o|inlining procedure: k4672 o|substituted constant variable: a4687 o|substituted constant variable: a4698 o|inlining procedure: k4694 o|inlining procedure: k4694 o|substituted constant variable: a4709 o|substituted constant variable: a4723 o|inlining procedure: k4719 o|inlining procedure: k4719 o|substituted constant variable: a4737 o|inlining procedure: k4748 o|inlining procedure: k4763 o|inlining procedure: k4793 o|contracted procedure: "(chicken-status.scm:261) g13091318" o|inlining procedure: k4793 o|inlining procedure: k4763 o|substituted constant variable: main#short-options o|substituted constant variable: a4844 o|inlining procedure: k4748 o|substituted constant variable: a4862 o|substituted constant variable: a4859 o|substituted constant variable: a4865 o|substituted constant variable: a4867 o|inlining procedure: k4896 o|inlining procedure: k4896 o|replaced variables: 446 o|removed binding forms: 200 o|substituted constant variable: r18954945 o|substituted constant variable: r19354947 o|substituted constant variable: r20904955 o|substituted constant variable: r22994964 o|removed side-effect free assignment to unused variable: main#list-tabulate o|removed side-effect free assignment to unused variable: main#+version-file+ o|removed side-effect free assignment to unused variable: main#+egg-extension+ o|removed side-effect free assignment to unused variable: main#get-extension-property/internal o|substituted constant variable: r35554988 o|substituted constant variable: rest703705 o|substituted constant variable: mode704 o|folded constant expression: (scheme#eq? (quote target) (quote target)) o|substituted constant variable: r36814996 o|substituted constant variable: r21485007 o|substituted constant variable: r40595016 o|substituted constant variable: r41645020 o|substituted constant variable: r43335029 o|substituted constant variable: r43335029 o|inlining procedure: k4332 o|inlining procedure: k4332 o|substituted constant variable: r45275042 o|substituted constant variable: r45275042 o|removed side-effect free assignment to unused variable: main#short-options o|contracted procedure: "(chicken-status.scm:260) main#every" o|replaced variables: 9 o|removed binding forms: 462 o|inlining procedure: k3217 o|inlining procedure: k3241 o|contracted procedure: k3134 o|inlining procedure: k4055 o|inlining procedure: "(chicken-status.scm:231) main#usage" o|inlining procedure: "(chicken-status.scm:263) main#usage" o|inlining procedure: "(chicken-status.scm:264) main#usage" o|replaced variables: 13 o|removed binding forms: 34 o|substituted constant variable: r32185171 o|substituted constant variable: r32185171 o|substituted constant variable: r32185171 o|substituted constant variable: r32425174 o|substituted constant variable: r32425174 o|substituted constant variable: r32425174 o|substituted constant variable: r3135 o|substituted constant variable: r40565183 o|substituted constant variable: r40565183 o|substituted constant variable: r40565183 o|substituted constant variable: r43335115 o|substituted constant variable: r43335117 o|removed side-effect free assignment to unused variable: main#usage o|substituted constant variable: code12405199 o|substituted constant variable: code12405206 o|substituted constant variable: code12405213 o|replaced variables: 1 o|removed binding forms: 16 o|removed conditional forms: 4 o|removed side-effect free assignment to unused variable: main#host-repo o|inlining procedure: k3128 o|removed binding forms: 11 o|substituted constant variable: r31295281 o|removed binding forms: 3 o|removed conditional forms: 1 o|removed binding forms: 1 o|simplifications: ((if . 20) (##core#call . 187)) o| call simplifications: o| scheme#member o| ##sys#size 2 o| chicken.fixnum#fx> o| scheme#string->list o| scheme#memq o| scheme#string o| scheme#- 2 o| scheme#quotient 2 o| scheme#caddr o| scheme#eq? 11 o| scheme#list 16 o| scheme#string-length o| chicken.fixnum#fx- o| chicken.fixnum#fxmax o| scheme#string=? 2 o| scheme#not 2 o| ##sys#apply o| ##sys#call-with-values 2 o| scheme#list-ref o| scheme#assq 2 o| scheme#cadr 8 o| scheme#equal? o| scheme#null? 23 o| scheme#car 18 o| scheme#apply o| scheme#cdr 8 o| scheme#cons 17 o| ##sys#setslot 5 o| ##sys#check-list 10 o| scheme#pair? 13 o| ##sys#slot 31 o|contracted procedure: k1882 o|contracted procedure: k1885 o|contracted procedure: k1897 o|contracted procedure: k1913 o|contracted procedure: k1921 o|contracted procedure: k1928 o|contracted procedure: k1952 o|contracted procedure: k1969 o|contracted procedure: k1991 o|contracted procedure: k1987 o|contracted procedure: k1972 o|contracted procedure: k1975 o|contracted procedure: k1983 o|contracted procedure: k1998 o|contracted procedure: k2006 o|contracted procedure: k2018 o|contracted procedure: k2040 o|contracted procedure: k2036 o|contracted procedure: k2021 o|contracted procedure: k2024 o|contracted procedure: k2032 o|contracted procedure: k2092 o|contracted procedure: k2107 o|contracted procedure: k2253 o|contracted procedure: k2256 o|contracted procedure: k2266 o|contracted procedure: k2178 o|contracted procedure: k2204 o|contracted procedure: k2289 o|contracted procedure: k2301 o|contracted procedure: k2319 o|contracted procedure: k2327 o|contracted procedure: k4924 o|contracted procedure: k3020 o|contracted procedure: k3226 o|contracted procedure: k3211 o|contracted procedure: k3214 o|contracted procedure: k3217 o|contracted procedure: k3250 o|contracted procedure: k3235 o|contracted procedure: k3238 o|contracted procedure: k3241 o|contracted procedure: k4882 o|contracted procedure: k3625 o|contracted procedure: k3634 o|contracted procedure: k3146 o|contracted procedure: k3128 o|contracted procedure: k3702 o|contracted procedure: k3668 o|contracted procedure: k3696 o|contracted procedure: k3671 o|contracted procedure: k3690 o|contracted procedure: k3674 o|contracted procedure: k3708 o|contracted procedure: k3726 o|contracted procedure: k3736 o|contracted procedure: k3752 o|contracted procedure: k2150 o|contracted procedure: k2157 o|contracted procedure: k3764 o|contracted procedure: k3767 o|contracted procedure: k3770 o|contracted procedure: k3778 o|contracted procedure: k3786 o|contracted procedure: k3931 o|contracted procedure: k3874 o|contracted procedure: k3925 o|contracted procedure: k3877 o|contracted procedure: k3919 o|contracted procedure: k3880 o|contracted procedure: k3913 o|contracted procedure: k3883 o|contracted procedure: k3886 o|contracted procedure: k3910 o|contracted procedure: k3906 o|contracted procedure: k4001 o|contracted procedure: k3943 o|contracted procedure: k3995 o|contracted procedure: k3946 o|contracted procedure: k3989 o|contracted procedure: k3949 o|contracted procedure: k3960 o|contracted procedure: k3972 o|contracted procedure: k3982 o|contracted procedure: k3986 o|contracted procedure: k4007 o|contracted procedure: k4140 o|contracted procedure: k4146 o|contracted procedure: k4160 o|contracted procedure: k4174 o|contracted procedure: k4185 o|contracted procedure: k4181 o|contracted procedure: k4191 o|contracted procedure: k4202 o|contracted procedure: k4198 o|contracted procedure: k4208 o|contracted procedure: k4219 o|contracted procedure: k4215 o|contracted procedure: k4225 o|contracted procedure: k4236 o|contracted procedure: k4232 o|contracted procedure: k4242 o|contracted procedure: k4253 o|contracted procedure: k4249 o|contracted procedure: k4259 o|contracted procedure: k4270 o|contracted procedure: k4266 o|contracted procedure: k4450 o|contracted procedure: k4292 o|contracted procedure: k4364 o|contracted procedure: k4376 o|contracted procedure: k4386 o|contracted procedure: k4390 o|contracted procedure: k4329 o|contracted procedure: k4335 o|contracted procedure: k4341 o|contracted procedure: k4353 o|contracted procedure: k4361 o|contracted procedure: k4420 o|contracted procedure: k4432 o|contracted procedure: k4442 o|contracted procedure: k4446 o|contracted procedure: k4463 o|contracted procedure: k4475 o|contracted procedure: k4485 o|contracted procedure: k4489 o|contracted procedure: k4536 o|contracted procedure: k4548 o|contracted procedure: k4558 o|contracted procedure: k4562 o|contracted procedure: k4526 o|inlining procedure: k4518 o|inlining procedure: k4518 o|contracted procedure: k4587 o|contracted procedure: k4088 o|contracted procedure: k4100 o|contracted procedure: k4110 o|contracted procedure: k4114 o|contracted procedure: k3820 o|contracted procedure: k3835 o|contracted procedure: k3838 o|contracted procedure: k3841 o|contracted procedure: k3849 o|contracted procedure: k3857 o|contracted procedure: k4637 o|contracted procedure: k4643 o|contracted procedure: k4652 o|contracted procedure: k4710 o|contracted procedure: k4724 o|contracted procedure: k4841 o|contracted procedure: k4757 o|contracted procedure: k4777 o|contracted procedure: k4796 o|contracted procedure: k4818 o|contracted procedure: k4814 o|contracted procedure: k4799 o|contracted procedure: k4802 o|contracted procedure: k4810 o|contracted procedure: k2055 o|contracted procedure: k2064 o|contracted procedure: k2077 o|contracted procedure: k4852 o|contracted procedure: k4856 o|contracted procedure: k4932 o|contracted procedure: k4936 o|contracted procedure: k4940 o|simplifications: ((if . 1) (let . 27)) o|removed binding forms: 164 o|substituted constant variable: r4933 o|substituted constant variable: r4937 o|substituted constant variable: r4933 o|substituted constant variable: r4937 o|substituted constant variable: r4941 o|replaced variables: 73 o|removed binding forms: 1 o|inlining procedure: k3641 o|propagated global variable: r36425567 main#target-repo o|inlining procedure: k3641 o|simplifications: ((if . 2)) o|removed binding forms: 36 o|removed binding forms: 1 o|direct leaf routine/allocation: main#get-egg-property 0 o|direct leaf routine/allocation: main#get-egg-property* 0 o|contracted procedure: "(chicken-status.scm:152) k4300" o|contracted procedure: "(chicken-status.scm:153) k4303" o|contracted procedure: "(chicken-status.scm:186) k4511" o|simplifications: ((if . 1)) o|removed binding forms: 3 o|contracted procedure: "(chicken-status.scm:114) k4022" o|replaced variables: 2 o|removed binding forms: 1 o|removed binding forms: 1 o|customizable procedures: (k4751 loop250 map-loop13031328 loop1250 k4593 k4614 map-loop10061023 main#filter-egg-names for-each-loop11121123 for-each-loop12221234 for-each-loop12021213 main#get-terminal-width g11541161 for-each-loop11531193 for-each-loop11701187 main#gather-components main#append-map main#read-info k4025 main#format-string g10701077 for-each-loop10691087 g974983 map-loop968986 loop282 main#filter main#delete-duplicates main#repo-path foldr326329 g331332 loop289 loop309 loop263 main#any map-loop194212 map-loop221239 loop190 foldr179182 g184185) o|calls to known targets: 102 o|identified direct recursive calls: f_1892 1 o|identified direct recursive calls: f_1964 1 o|identified direct recursive calls: f_2013 1 o|identified direct recursive calls: f_2296 1 o|identified direct recursive calls: f_2145 1 o|identified direct recursive calls: f_4791 1 o|identified direct recursive calls: f_4582 7 o|fast box initializations: 20 o|fast global references: 70 o|fast global assignments: 36 o|dropping unused closure argument: f_1877 o|dropping unused closure argument: f_2081 o|dropping unused closure argument: f_2242 o|dropping unused closure argument: f_2287 o|dropping unused closure argument: f_3209 o|dropping unused closure argument: f_3233 o|dropping unused closure argument: f_3552 o|dropping unused closure argument: f_3629 o|dropping unused closure argument: f_3663 o|dropping unused closure argument: f_3718 o|dropping unused closure argument: f_3872 o|dropping unused closure argument: f_4126 */ /* end of file */ chicken-5.1.0/core.scm0000644000175000017500000032242313502227553014375 0ustar sjamaansjamaan;;;; core.scm - The CHICKEN Scheme compiler (core module) ; ; ; "This is insane. What we clearly want to do is not exactly clear, and is rooted in NCOMPLR." ; ; ;-------------------------------------------------------------------------------------------- ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. ; ; ; Supported syntax: ; ; - Declaration specifiers: ; ; ([not] extended-bindings {}) ; ([not] inline {}) ; ([not] safe) ; ([not] standard-bindings {}) ; ([not] usual-integrations {}) ; (local { ...}) ; ([not] inline-global {}) ; ([number-type] ) ; (always-bound {}) ; (block) ; (block-global {}) ; (bound-to-procedure {}) ; (compile-syntax) ; (disable-interrupts) ; (emit-import-library { | ( )}) ; (export {}) ; (fixnum-arithmetic) ; (foreign-declare {}) ; (hide {}) ; (inline-limit ) ; (keep-shadowed-macros) ; (no-argc-checks) ; (no-bound-checks) ; (no-procedure-checks) ; (no-procedure-checks-for-usual-bindings) ; (no-procedure-checks-for-toplevel-bindings) ; (profile ...) ; (safe-globals) ; (separate) ; (type ( ) ...) ; (unit ) ; (unsafe) ; (unused ...) ; (uses {}) ; (strict-types) ; (specialize) ; (enforce-argument-types [ ...]) ; ; = fixnum | generic ; - Global symbol properties: ; ; ##compiler#always-bound -> BOOL ; ##compiler#always-bound-to-procedure -> BOOL ; ##compiler#local -> BOOL ; ##compiler#visibility -> #f | 'hidden | 'exported ; ##compiler#constant -> BOOL defined as constant ; ##compiler#intrinsic -> #f | 'standard | 'extended ; ##compiler#inline -> 'no | 'yes ; ##compiler#inline-global -> 'yes | 'no | ; ##compiler#profile -> BOOL ; ##compiler#unused -> BOOL ; ##compiler#foldable -> BOOL ; ##compiler#pure -> BOOL referentially transparent ; ##compiler#clean -> BOOL does not modify local state ; ##compiler#type -> TYPE ; ##compiler#type-source -> 'db | 'local | 'inference ; - Source language: ; ; ; ; (##core#declare {}) ; (##core#immutable ) ; (##core#quote ) ; (##core#syntax ) ; (##core#if []) ; (##core#let ({( )}) ) ; (##core#let ({( )}) ) ; (##core#letrec ({( )}) ) ; (##core#letrec* ({( )}) ) ; (##core#let-location [] ) ; (##core#lambda ) ; (##core#lambda ({}+ [. ]) ) ; (##core#set! ) ; (##core#ensure-toplevel-definition ) ; (##core#begin ...) ; (##core#include | #f []) ; (##core#loop-lambda ) ; (##core#undefined) ; (##core#primitive ) ; (##core#provide ) ; (##core#inline {} ) ; (##core#inline_allocate ( ) {}) ; (##core#inline_ref ( )) ; (##core#inline_update ( ) ) ; (##core#inline_loc_ref () ) ; (##core#inline_loc_update () ) ; (##core#compiletimetoo ) ; (##core#compiletimeonly ) ; (##core#elaborationtimetoo ) ; (##core#elaborationtimeonly ) ; (##core#define-foreign-variable []) ; (##core#define-foreign-type [ []]) ; (##core#foreign-lambda {}) ; (##core#foreign-lambda* ({( )})) {}) ; (##core#foreign-safe-lambda {}) ; (##core#foreign-safe-lambda* ({( )})) {}) ; (##core#foreign-primitive ({( )}) {}) ; (##core#define-inline ) ; (##core#define-constant ) ; (##core#foreign-callback-wrapper ' ' '({}) ) ; (##core#define-external-variable []) ; (##core#check ) ; (##core#require-for-syntax ...) ; (##core#require ...) ; (##core#app {}) ; (##core#define-syntax ) ; (##core#define-compiler-syntax ) ; (##core#let-compiler-syntax (( ) ...) ...) ; (##core#module #t | ( | ( ...) ...) ) ; (##core#let-module-alias (( ) ...) ) ; (##core#the ) ; (##core#typecase ( ) ... [(else )]) ; (##core#debug-event { }) ; ( {}) ; - Core language: ; ; [##core#variable {}] ; [##core#float-variable {}] ; [if {} )] ; [quote {}] ; [##core#float {}] ; [let {} ] ; [##core#lambda { (... [. ]) } ] ; [set! { [always-immediate?]} ] ; [##core#undefined {}] ; [##core#primitive {}] ; [##core#let_float {} ] ; [##core#box_float {} ] ; [##core#unbox_float {} ] ; [##core#inline {} ...] ; [##core#inline_allocate { } ...] ; [##core#inline_ref { }] ; [##core#inline_update { } ] ; [##core#inline_loc_ref {} ] ; [##core#inline_loc_update {} ] ; [##core#debug-event { }] ; [##core#call { []} ...] ; [##core#callunit {} ...] ; [##core#switch {} ... ] ; [##core#cond ] ; [##core#provide ] ; [##core#recurse {} ...] ; [##core#return ] ; [##core#direct_call { } ...] ; [##core#direct_lambda { (... [. ]) } ] ; [##core#the { } ] ; [##core#the/result {} ] ; [##core#typecase { ( ...)} ... []] ; - Closure converted/prepared language: ; ; [if {} ] ; [quote {}] ; [##core#float {}] ; [##core#bind {} ... ] ; [##core#float-variable {}] ; [##core#undefined {}] ; [##core#let_float {} ] ; [##core#box_float {} ] ; [##core#unbox_float {} ] ; [##core#inline {} ...] ; [##core#inline_allocate {} ...] ; [##core#inline_ref { }] ; [##core#inline_update { } ] ; [##core#inline_loc_ref {} ] ; [##core#inline_loc_update {} ] ; [##core#debug-event { }] ; [##core#closure {} ...] ; [##core#box {} ] ; [##core#unbox {} ] ; [##core#ref {} ] ; [##core#update {} ] ; [##core#updatebox {} ] ; [##core#update_i {} ] ; [##core#updatebox_i {} ] ; [##core#call { [ [ ]]} ...] ; [##core#callunit {} ...] ; [##core#cond ] ; [##core#local {}] ; [##core#setlocal {} ] ; [##core#global { []}] ; [##core#setglobal { } ] ; [##core#setglobal_i { } ] ; [##core#literal {}] ; [##core#immediate { []}] - type: bool/fix/nil/char ; [##core#proc { []}] ; [##core#provide ] ; [##core#recurse { } ...] ; [##core#return ] ; [##core#direct_call { } ...] ; Analysis database entries: ; ; : ; ; captured -> If true: variable is used outside it's home-scope ; global -> If true: variable does not occur in any lambda-list ; call-sites -> (( ) ...) Known call-nodes of a named procedure ; home -> Procedure which introduces this variable ; unknown -> If true: variable cannot have a known value ; assigned -> If true: variable is assigned somewhere ; assigned-locally -> If true: variable has been assigned inside user lambda ; undefined -> If true: variable is unknown yet but can be known later ; value -> Variable has a known value ; local-value -> Variable is declared local and has value ; potential-values -> ( ...) Global variable was assigned this value (used for lambda-info) ; references -> ( ...) Nodes that are accesses of this variable (##core#variable nodes) ; boxed -> If true: variable has to be boxed after closure-conversion ; contractable -> If true: variable names contractable procedure ; inlinable -> If true: variable names potentially inlinable procedure ; collapsable -> If true: variable refers to collapsable constant ; removable -> If true: variable is not used ; replacable -> Variable can be replaced by another variable ; replacing -> If true: variable can replace another variable (don't remove) ; standard-binding -> If true: variable names a standard binding ; extended-binding -> If true: variable names an extended binding ; unused -> If true: variable is a formal parameter that is never used ; rest-parameter -> #f | 'list If true: variable holds rest-argument list ; constant -> If true: variable has fixed value ; hidden-refs -> If true: procedure that refers to hidden global variables ; inline-transient -> If true: was introduced during inlining ; ; : ; ; contains -> ( ...) Procedures contained in this lambda ; contained-in -> Procedure containing this lambda ; has-unused-parameters -> If true: procedure has unused formal parameters ; use-expr -> ( ...) Marks non-direct use-sites of common subexpression ; closure-size -> Number of free variables stored in a closure ; customizable -> If true: all call sites are known, procedure does not escape ; simple -> If true: procedure only calls its continuation ; explicit-rest -> If true: procedure is called with consed rest list ; captured-variables -> ( ...) List of closed over variables ; inline-target -> If true: was target of an inlining operation (declare (unit compiler) (uses eval extras data-structures scrutinizer support)) (module chicken.compiler.core (analyze-expression canonicalize-expression compute-database-statistics initialize-compiler perform-closure-conversion perform-cps-conversion prepare-for-code-generation build-toplevel-procedure ;; These are both exported for use in eval.scm (which is a bit of ;; a hack). file-requirements is also used by batch-driver process-declaration file-requirements ;; Various ugly global boolean flags that get set by the (batch) driver all-import-libraries preserve-unchanged-import-libraries bootstrap-mode compiler-syntax-enabled emit-closure-info emit-profile enable-inline-files explicit-use-flag first-analysis no-bound-checks enable-module-registration optimize-leaf-routines standalone-executable undefine-shadowed-macros verbose-mode local-definitions enable-specialization block-compilation inline-locally inline-substitutions-enabled strict-variable-types static-extensions emit-link-file ;; These are set by the (batch) driver, and read by the (c) backend disable-stack-overflow-checking emit-trace-info external-protos-first external-variables insert-timer-checks no-argc-checks no-global-procedure-checks no-procedure-checks emit-debug-info linked-static-extensions ;; Other, non-boolean, flags set by (batch) driver profiled-procedures import-libraries inline-max-size extended-bindings standard-bindings ;; non-booleans set by the (batch) driver, and read by the (c) backend target-heap-size target-stack-size unit-name used-units provided ;; bindings, set by the (c) platform default-extended-bindings default-standard-bindings internal-bindings ;; Only read or called by the (c) backend foreign-declarations foreign-lambda-stubs foreign-stub-argument-types foreign-stub-argument-names foreign-stub-body foreign-stub-callback foreign-stub-cps foreign-stub-id foreign-stub-name foreign-stub-return-type lambda-literal-id lambda-literal-external lambda-literal-argument-count lambda-literal-rest-argument lambda-literal-rest-argument-mode lambda-literal-temporaries lambda-literal-float-temporaries lambda-literal-callee-signatures lambda-literal-allocated lambda-literal-closure-size lambda-literal-looping lambda-literal-customizable lambda-literal-body lambda-literal-direct ;; Tables and databases that really should not be exported constant-table immutable-constants inline-table line-number-database-2 line-number-database-size) (import scheme chicken.base chicken.condition chicken.compiler.scrutinizer chicken.compiler.support chicken.eval chicken.fixnum chicken.file chicken.foreign chicken.format chicken.internal chicken.io chicken.keyword chicken.load chicken.platform chicken.pretty-print chicken.pathname chicken.string chicken.syntax chicken.type) (define (d arg1 . more) (when (##sys#debug-mode?) (if (null? more) (pp arg1) (apply print arg1 more)))) (define-syntax d (syntax-rules () ((_ . _) (void)))) (include "tweaks") (include "mini-srfi-1.scm") (define-inline (gensym-f-id) (gensym 'f_)) (define-foreign-variable installation-home c-string "C_INSTALL_SHARE_HOME") (define-constant initial-analysis-database-size 3001) (define-constant default-line-number-database-size 997) (define-constant inline-table-size 301) (define-constant constant-table-size 301) (define-constant file-requirements-size 301) (define-constant default-inline-max-size 20) ;;; Global variables containing compilation parameters: (define unit-name #f) (define standard-bindings '()) (define extended-bindings '()) (define insert-timer-checks #t) (define used-units '()) (define foreign-declarations '()) (define emit-trace-info #f) (define emit-debug-info #f) (define block-compilation #f) (define line-number-database-size default-line-number-database-size) (define target-heap-size #f) (define target-stack-size #f) (define optimize-leaf-routines #f) (define emit-profile #f) (define no-bound-checks #f) (define no-argc-checks #f) (define no-procedure-checks #f) (define no-global-procedure-checks #f) (define safe-globals-flag #f) (define explicit-use-flag #f) (define disable-stack-overflow-checking #f) (define external-protos-first #f) (define inline-max-size default-inline-max-size) (define emit-closure-info #t) (define undefine-shadowed-macros #t) (define profiled-procedures #f) (define import-libraries '()) (define all-import-libraries #f) (define preserve-unchanged-import-libraries #t) (define enable-module-registration #t) (define standalone-executable #t) (define local-definitions #f) (define inline-locally #f) (define enable-inline-files #f) (define compiler-syntax-enabled #t) (define bootstrap-mode #f) (define strict-variable-types #f) (define enable-specialization #f) (define static-extensions #f) (define emit-link-file #f) ;;; Other global variables: (define verbose-mode #f) (define original-program-size #f) (define current-program-size 0) (define current-analysis-database-size initial-analysis-database-size) (define line-number-database-2 #f) (define immutable-constants '()) (define inline-table #f) (define constant-table #f) (define inline-substitutions-enabled #f) (define direct-call-ids '()) (define first-analysis #t) (define foreign-variables '()) (define foreign-lambda-stubs '()) (define external-variables '()) (define external-to-pointer '()) (define location-pointer-map '()) (define pending-canonicalizations '()) (define defconstant-bindings '()) (define callback-names '()) (define toplevel-scope #t) (define toplevel-lambda-id #f) (define file-requirements #f) (define provided '()) (define linked-static-extensions '()) (define unlikely-variables '(unquote unquote-splicing)) ;;; Initial bindings. These are supplied (set!) by the (c-)platform (define default-extended-bindings '()) (define default-standard-bindings '()) (define internal-bindings '()) ;;; Initialize globals: (define (initialize-compiler) (if line-number-database-2 (vector-fill! line-number-database-2 '()) (set! line-number-database-2 (make-vector line-number-database-size '())) ) (if inline-table (vector-fill! inline-table '()) (set! inline-table (make-vector inline-table-size '())) ) (if constant-table (vector-fill! constant-table '()) (set! constant-table (make-vector constant-table-size '())) ) (reset-profile-info-vector-name!) (clear-real-name-table!) (if file-requirements (vector-fill! file-requirements '()) (set! file-requirements (make-vector file-requirements-size '())) ) (clear-foreign-type-table!) ) ;;; Compute general statistics from analysis database: ; ; - Returns: ; ; current-program-size ; original-program-size ; number of known variables ; number of known procedures ; number of global variables ; number of known call-sites ; number of database entries ; average bucket load (define (compute-database-statistics db) (let ((nprocs 0) (nvars 0) (nglobs 0) (entries 0) (nsites 0) ) (hash-table-for-each (lambda (sym plist) (for-each (lambda (prop) (set! entries (+ entries 1)) (case (car prop) ((global) (set! nglobs (+ nglobs 1))) ((value) (set! nvars (+ nvars 1)) (if (eq? '##core#lambda (node-class (cdr prop))) (set! nprocs (+ nprocs 1)) ) ) ((call-sites) (set! nsites (+ nsites (length (cdr prop))))) ) ) plist) ) db) (values current-program-size original-program-size nvars nprocs nglobs nsites entries) ) ) ;;; Expand macros and canonicalize expressions: (define (canonicalize-expression exp) (let ((compiler-syntax '()) ;; Not sure this is correct, given that subsequent expressions ;; to be canonicalized will mutate the current environment. ;; Used to reset the environment for ##core#module forms. (initial-environment (##sys#current-environment))) (define (find-id id se) ; ignores macro bindings (cond ((null? se) #f) ((and (eq? id (caar se)) (symbol? (cdar se))) (cdar se)) (else (find-id id (cdr se))))) (define (lookup id) (cond ((keyword? id) id) ; DEPRECATED ((find-id id (##sys#current-environment))) ((##sys#get id '##core#macro-alias) symbol? => values) (else id))) (define (macro-alias var) (let ((alias (gensym var))) (##sys#put! alias '##core#macro-alias (lookup var)) alias) ) (define (handle-expansion-result outer-ln) (lambda (input output) (and-let* (((not (eq? input output))) (ln (or (get-line input) outer-ln))) (update-line-number-database! output ln)) output)) (define (canonicalize-body/ln ln body cs?) (fluid-let ((chicken.syntax#expansion-result-hook (handle-expansion-result ln))) (##sys#canonicalize-body body (##sys#current-environment) cs?))) (define (set-real-names! as ns) (for-each (lambda (a n) (set-real-name! a n)) as ns) ) (define (write-to-string x) (let ([out (open-output-string)]) (write x out) (get-output-string out) ) ) (define (unquotify x) (if (and (list? x) (= 2 (length x)) (symbol? (car x)) (eq? 'quote (lookup (car x)))) (cadr x) x) ) (define (resolve-variable x0 e dest ldest h) (when (memq x0 unlikely-variables) (warning (sprintf "reference to variable `~s' possibly unintended" x0) )) (let ((x (lookup x0))) (d `(RESOLVE-VARIABLE: ,x0 ,x ,(map (lambda (x) (car x)) (##sys#current-environment)))) (cond ((not (symbol? x)) x0) ; syntax? ((hash-table-ref constant-table x) => (lambda (val) (walk val e dest ldest h #f #f))) ((hash-table-ref inline-table x) => (lambda (val) (walk val e dest ldest h #f #f))) ((assq x foreign-variables) => (lambda (fv) (let* ((t (second fv)) (ft (final-foreign-type t)) (body `(##core#inline_ref (,(third fv) ,t)))) (walk (foreign-type-convert-result (finish-foreign-result ft body) t) e dest ldest h #f #f)))) ((assq x location-pointer-map) => (lambda (a) (let* ((t (third a)) (ft (final-foreign-type t)) (body `(##core#inline_loc_ref (,t) ,(second a)))) (walk (foreign-type-convert-result (finish-foreign-result ft body) t) e dest ldest h #f #f)))) ((not (memq x e)) (##sys#alias-global-hook x #f h)) ; only if global (else x)))) (define (emit-import-lib name il) (let* ((fname (if all-import-libraries (string-append (symbol->string name) ".import.scm") (cdr il))) (imps (##sys#compiled-module-registration (##sys#current-module))) (oldimps (and (file-exists? fname) (call-with-input-file fname read-expressions)))) (cond ((and (equal? imps oldimps) preserve-unchanged-import-libraries) (when verbose-mode (print "not generating import library `" fname "' for module `" name "' because imports did not change")) ) (else (when verbose-mode (print "generating import library `" fname "' for module `" name "' ...")) (with-output-to-file fname (lambda () (print ";;;; " fname " - GENERATED BY CHICKEN " (chicken-version) " -*- Scheme -*-\n") (for-each pretty-print imps) (print "\n;; END OF FILE"))))) ) ) (define (walk x e dest ldest h outer-ln tl?) (cond ((keyword? x) `(quote ,x)) ((symbol? x) (resolve-variable x e dest ldest h)) ((not (pair? x)) (if (constant? x) `(quote ,x) (##sys#syntax-error/context "illegal atomic form" x))) ((symbol? (car x)) (let ((ln (or (get-line x) outer-ln))) (emit-syntax-trace-info x #f) (unless (list? x) (if ln (##sys#syntax-error/context (sprintf "(~a) - malformed expression" ln) x) (##sys#syntax-error/context "malformed expression" x))) (set! ##sys#syntax-error-culprit x) (let* ((name (lookup (car x))) (xexpanded (fluid-let ((chicken.syntax#expansion-result-hook (handle-expansion-result ln))) (expand x (##sys#current-environment) compiler-syntax-enabled)))) (cond ((not (eq? x xexpanded)) (walk xexpanded e dest ldest h ln tl?)) ((hash-table-ref inline-table name) => (lambda (val) (walk (cons val (cdr x)) e dest ldest h ln #f))) (else (case name ((##core#if) `(if ,(walk (cadr x) e #f #f h ln #f) ,(walk (caddr x) e #f #f h ln #f) ,(if (null? (cdddr x)) '(##core#undefined) (walk (cadddr x) e #f #f h ln #f) ) ) ) ((##core#syntax ##core#quote) `(quote ,(strip-syntax (cadr x)))) ((##core#check) (if unsafe '(quote #t) (walk (cadr x) e dest ldest h ln tl?) ) ) ((##core#the) `(##core#the ,(strip-syntax (cadr x)) ,(caddr x) ,(walk (cadddr x) e dest ldest h ln tl?))) ((##core#typecase) `(##core#typecase ,(or ln (cadr x)) ,(walk (caddr x) e #f #f h ln tl?) ,@(map (lambda (cl) (list (strip-syntax (car cl)) (walk (cadr cl) e dest ldest h ln tl?))) (cdddr x)))) ((##core#immutable) (let ((c (cadadr x))) (cond [(assoc c immutable-constants) => cdr] [else (let ([var (gensym 'c)]) (set! immutable-constants (alist-cons c var immutable-constants)) (mark-variable var '##compiler#always-bound) (hide-variable var) var) ] ) ) ) ((##core#callunit ##core#primitive ##core#undefined) x) ((##core#provide) (let ((id (cadr x))) (set! provided (lset-adjoin/eq? provided id)) `(##core#provide ,id))) ((##core#inline_ref) `(##core#inline_ref (,(caadr x) ,(strip-syntax (cadadr x))))) ((##core#inline_loc_ref) `(##core#inline_loc_ref ,(strip-syntax (cadr x)) ,(walk (caddr x) e dest ldest h ln #f))) ((##core#require-for-syntax) (chicken.load#load-extension (cadr x) '() 'require) '(##core#undefined)) ((##core#require) (let ((id (cadr x)) (alternates (cddr x))) (let-values (((exp type) (##sys#process-require id #t alternates provided static-extensions register-static-extension))) (unless (not type) (hash-table-update! file-requirements type (cut lset-adjoin/eq? <> id) (cut list id))) (walk exp e dest ldest h ln #f)))) ((##core#let) (let* ((bindings (cadr x)) (vars (unzip1 bindings)) (aliases (map gensym vars)) (se2 (##sys#extend-se (##sys#current-environment) vars aliases)) (ln (or (get-line x) outer-ln))) (set-real-names! aliases vars) `(let ,(map (lambda (alias b) (list alias (walk (cadr b) e (car b) #t h ln #f)) ) aliases bindings) ,(parameterize ((##sys#current-environment se2)) (walk (canonicalize-body/ln ln (cddr x) compiler-syntax-enabled) (append aliases e) dest ldest h ln #f)) ) ) ) ((##core#letrec*) (let ((bindings (cadr x)) (body (cddr x)) ) (walk `(##core#let ,(map (lambda (b) (list (car b) '(##core#undefined))) bindings) ,@(map (lambda (b) `(##core#set! ,(car b) ,(cadr b))) bindings) (##core#let () ,@body) ) e dest ldest h ln #f))) ((##core#letrec) (let* ((bindings (cadr x)) (vars (unzip1 bindings)) (tmps (map gensym vars)) (body (cddr x)) ) (walk `(##core#let ,(map (lambda (b) (list (car b) '(##core#undefined))) bindings) (##core#let ,(map (lambda (t b) (list t (cadr b))) tmps bindings) ,@(map (lambda (v t) `(##core#set! ,v ,t)) vars tmps) (##core#let () ,@body) ) ) e dest ldest h ln #f))) ((##core#lambda) (let ((llist (cadr x)) (obody (cddr x)) ) (when (##sys#extended-lambda-list? llist) (set!-values (llist obody) (##sys#expand-extended-lambda-list llist obody ##sys#error (##sys#current-environment)) ) ) (##sys#decompose-lambda-list llist (lambda (vars argc rest) (let* ((aliases (map gensym vars)) (ln (or (get-line x) outer-ln)) (se2 (##sys#extend-se (##sys#current-environment) vars aliases)) (body (parameterize ((##sys#current-environment se2)) (let ((body0 (canonicalize-body/ln ln obody compiler-syntax-enabled))) (walk (if emit-debug-info `(##core#begin (##core#debug-event C_DEBUG_ENTRY (##core#quote ,dest)) ,body0) body0) (append aliases e) #f #f dest ln #f)))) (llist2 (build-lambda-list aliases argc (and rest (list-ref aliases (posq rest vars))) ) ) (l `(##core#lambda ,llist2 ,body)) ) (set-real-names! aliases vars) (cond ((or (not dest) ldest (assq dest (##sys#current-environment))) ; not global? l) ((and emit-profile (or (eq? profiled-procedures 'all) (and (eq? profiled-procedures 'some) (variable-mark dest '##compiler#profile)))) (expand-profile-lambda (if (memq dest e) ; should normally not be the case e (##sys#alias-global-hook dest #f #f)) llist2 body) ) (else l))))))) ((##core#let-syntax) (parameterize ((##sys#current-environment (append (map (lambda (b) (list (car b) (##sys#current-environment) (##sys#ensure-transformer (##sys#eval/meta (cadr b)) (car b)))) (cadr x) ) (##sys#current-environment)) )) (let ((ln (or (get-line x) outer-ln))) (walk (canonicalize-body/ln ln (cddr x) compiler-syntax-enabled) e dest ldest h ln #f)) ) ) ((##core#letrec-syntax) (let* ((ms (map (lambda (b) (list (car b) #f (##sys#ensure-transformer (##sys#eval/meta (cadr b)) (car b)))) (cadr x) ) ) (se2 (append ms (##sys#current-environment))) (ln (or (get-line x) outer-ln)) ) (for-each (lambda (sb) (set-car! (cdr sb) se2) ) ms) (parameterize ((##sys#current-environment se2)) (walk (canonicalize-body/ln ln (cddr x) compiler-syntax-enabled) e dest ldest h ln #f)))) ((##core#define-syntax) (##sys#check-syntax (car x) x (if (pair? (cadr x)) '(_ (variable . lambda-list) . #(_ 1)) '(_ variable _) ) #f (##sys#current-environment)) (let* ((var (if (pair? (cadr x)) (caadr x) (cadr x))) (body (if (pair? (cadr x)) `(##core#lambda ,(cdadr x) ,@(cddr x)) (caddr x))) (name (lookup var))) (##sys#register-syntax-export name (##sys#current-module) body) (##sys#extend-macro-environment name (##sys#current-environment) (##sys#eval/meta body)) (walk (if ##sys#enable-runtime-macros `(##sys#extend-macro-environment (##core#quote ,var) (##sys#current-environment) ,body) ;XXX possibly wrong se? '(##core#undefined) ) e dest ldest h ln #f)) ) ((##core#define-compiler-syntax) (let* ((var (cadr x)) (body (caddr x)) (name (lookup var))) (when body (set! compiler-syntax (alist-cons name (##sys#get name '##compiler#compiler-syntax) compiler-syntax))) (##sys#put! name '##compiler#compiler-syntax (and body (##sys#cons (##sys#ensure-transformer (##sys#eval/meta body) var) (##sys#current-environment)))) (walk (if ##sys#enable-runtime-macros `(##sys#put! (##core#syntax ,name) '##compiler#compiler-syntax ,(and body `(##sys#cons (##sys#ensure-transformer ,body (##core#quote ,var)) (##sys#current-environment)))) '(##core#undefined) ) e dest ldest h ln #f))) ((##core#let-compiler-syntax) (let ((bs (map (lambda (b) (##sys#check-syntax 'let-compiler-syntax b '(symbol . #(_ 0 1))) (let ((name (lookup (car b)))) (list name (and (pair? (cdr b)) (cons (##sys#ensure-transformer (##sys#eval/meta (cadr b)) (car b)) (##sys#current-environment))) (##sys#get name '##compiler#compiler-syntax) ) ) ) (cadr x))) (ln (or (get-line x) outer-ln))) (dynamic-wind (lambda () (for-each (lambda (b) (##sys#put! (car b) '##compiler#compiler-syntax (cadr b))) bs) ) (lambda () (walk (canonicalize-body/ln ln (cddr x) compiler-syntax-enabled) e dest ldest h ln tl?) ) (lambda () (for-each (lambda (b) (##sys#put! (car b) '##compiler#compiler-syntax (caddr b))) bs) ) ) ) ) ((##core#include) (fluid-let ((##sys#default-read-info-hook read-info-hook)) (##sys#include-forms-from-file (cadr x) (caddr x) (lambda (forms) (walk (if (pair? (cdddr x)) ; body? (canonicalize-body/ln ln (append forms (cadddr x)) compiler-syntax-enabled) `(##core#begin ,@forms)) e dest ldest h ln tl?))))) ((##core#let-module-alias) (##sys#with-module-aliases (map (lambda (b) (##sys#check-syntax 'functor b '(symbol symbol)) (strip-syntax b)) (cadr x)) (lambda () (walk `(##core#begin ,@(cddr x)) e dest ldest h ln #t)))) ((##core#module) (let* ((name (strip-syntax (cadr x))) (lib (or unit-name name)) (req (module-requirement name)) (exports (or (eq? #t (caddr x)) (map (lambda (exp) (cond ((symbol? exp) exp) ((and (pair? exp) (let loop ((exp exp)) (or (null? exp) (and (symbol? (car exp)) (loop (cdr exp)))))) exp) (else (##sys#syntax-error-hook 'module "invalid export syntax" exp name)))) (strip-syntax (caddr x))))) (csyntax compiler-syntax)) (when (##sys#current-module) (##sys#syntax-error-hook 'module "modules may not be nested" name)) (let-values (((body module-registration) (parameterize ((##sys#current-module (##sys#register-module name lib exports)) (##sys#current-environment '()) (##sys#macro-environment ##sys#initial-macro-environment) (##sys#module-alias-environment (##sys#module-alias-environment))) (##sys#with-property-restore (lambda () (let loop ((body (cdddr x)) (xs '())) (cond ((null? body) (handle-exceptions ex (begin ;; avoid backtrace (print-error-message ex (current-error-port)) (exit 1)) (##sys#finalize-module (##sys#current-module))) (cond ((or (assq name import-libraries) all-import-libraries) => (lambda (il) (emit-import-lib name il) ;; Remove from list to avoid error (when (pair? il) (set! import-libraries (delete il import-libraries equal?))) (values (reverse xs) '()))) ((not enable-module-registration) (values (reverse xs) '())) (else (values (reverse xs) (##sys#compiled-module-registration (##sys#current-module)))))) (else (loop (cdr body) (cons (walk (car body) e ;? #f #f h ln #t) ; reset to toplevel! xs)))))))))) (let ((body (canonicalize-begin-body (append (parameterize ((##sys#current-module #f) (##sys#macro-environment (##sys#meta-macro-environment)) (##sys#current-environment ; ??? (##sys#current-meta-environment))) (map (lambda (x) (walk x e ;? #f #f h ln tl?) ) (cons `(##core#provide ,req) module-registration))) body)))) (do ((cs compiler-syntax (cdr cs))) ((eq? cs csyntax)) (##sys#put! (caar cs) '##compiler#compiler-syntax (cdar cs))) (set! compiler-syntax csyntax) body)))) ((##core#loop-lambda) ;XXX is this really needed? (let* ((vars (cadr x)) (obody (cddr x)) (aliases (map gensym vars)) (se2 (##sys#extend-se (##sys#current-environment) vars aliases)) (ln (or (get-line x) outer-ln)) (body (parameterize ((##sys#current-environment se2)) (walk (canonicalize-body/ln ln obody compiler-syntax-enabled) (append aliases e) #f #f dest ln #f)) ) ) (set-real-names! aliases vars) `(##core#lambda ,aliases ,body) ) ) ((##core#ensure-toplevel-definition) (unless tl? (let* ((var0 (cadr x)) (var (lookup var0)) (ln (get-line x))) (quit-compiling "~atoplevel definition of `~s' in non-toplevel context" (if ln (sprintf "(~a) - " ln) "") var))) '(##core#undefined)) ((##core#set!) (let* ((var0 (cadr x)) (var (lookup var0)) (ln (get-line x)) (val (caddr x))) (when (memq var unlikely-variables) (warning (sprintf "~aassignment to variable `~s' possibly unintended" (if ln (sprintf "(~a) - " ln) "") var))) (cond ((assq var foreign-variables) => (lambda (fv) (let ((type (second fv)) (tmp (gensym))) (walk `(##core#let ((,tmp ,(foreign-type-convert-argument val type))) (##core#inline_update (,(third fv) ,type) ,(foreign-type-check tmp type))) e #f #f h ln #f)))) ((assq var location-pointer-map) => (lambda (a) (let* ((type (third a)) (tmp (gensym))) (walk `(##core#let ((,tmp ,(foreign-type-convert-argument val type))) (##core#inline_loc_update (,type) ,(second a) ,(foreign-type-check tmp type))) e #f #f h ln #f)))) (else (unless (memq var e) ; global? (set! var (##sys#alias-global-hook var #t dest)) (when safe-globals-flag (mark-variable var '##compiler#always-bound-to-procedure) (mark-variable var '##compiler#always-bound)) (when emit-debug-info (set! val `(##core#let ((,var ,val)) (##core#debug-event C_DEBUG_GLOBAL_ASSIGN (##core#quote ,var)) ,var))) ;; We use `var0` instead of `var` because the {macro,current}-environment ;; are keyed by the raw and unqualified name (cond ((##sys#macro? var0 (##sys#current-environment)) (warning (sprintf "~aassignment to syntax `~S'" (if ln (sprintf "(~a) - " ln) "") var0)) (when undefine-shadowed-macros (##sys#undefine-macro! var0) (##sys#unregister-syntax-export var0 (##sys#current-module)))) ((assq var0 (##sys#current-environment)) (warning (sprintf "~aassignment to imported value binding `~S'" (if ln (sprintf "(~a) - " ln) "") var0))))) `(set! ,var ,(walk val e var0 (memq var e) h ln #f)))))) ((##core#debug-event) `(##core#debug-event ,(cadr x) ,ln ; this arg is added - from this phase on ##core#debug-event has an additional argument! ,@(map (lambda (arg) (unquotify (walk arg e #f #f h ln tl?))) (cddr x)))) ((##core#inline) `(##core#inline ,(unquotify (cadr x)) ,@(mapwalk (cddr x) e h ln #f))) ((##core#inline_allocate) `(##core#inline_allocate ,(map unquotify (second x)) ,@(mapwalk (cddr x) e h ln #f))) ((##core#inline_update) `(##core#inline_update ,(cadr x) ,(walk (caddr x) e #f #f h ln #f)) ) ((##core#inline_loc_update) `(##core#inline_loc_update ,(cadr x) ,(walk (caddr x) e #f #f h ln #f) ,(walk (cadddr x) e #f #f h ln #f)) ) ((##core#compiletimetoo ##core#elaborationtimetoo) (let ((exp (cadr x))) (##sys#eval/meta exp) (walk exp e dest #f h ln tl?) ) ) ((##core#compiletimeonly ##core#elaborationtimeonly) (##sys#eval/meta (cadr x)) '(##core#undefined) ) ((##core#begin) (if (pair? (cdr x)) (canonicalize-begin-body (let fold ([xs (cdr x)]) (let ([x (car xs)] [r (cdr xs)] ) (if (null? r) (list (walk x e dest ldest h ln tl?)) (cons (walk x e #f #f h ln tl?) (fold r)) ) ) ) ) '(##core#undefined) ) ) ((##core#foreign-lambda) (walk (expand-foreign-lambda x #f) e dest ldest h ln #f) ) ((##core#foreign-safe-lambda) (walk (expand-foreign-lambda x #t) e dest ldest h ln #f) ) ((##core#foreign-lambda*) (walk (expand-foreign-lambda* x #f) e dest ldest h ln #f) ) ((##core#foreign-safe-lambda*) (walk (expand-foreign-lambda* x #t) e dest ldest h ln #f) ) ((##core#foreign-primitive) (walk (expand-foreign-primitive x) e dest ldest h ln #f) ) ((##core#define-foreign-variable) (let* ((var (strip-syntax (second x))) (type (strip-syntax (third x))) (name (if (pair? (cdddr x)) (fourth x) (symbol->string var)))) (set! foreign-variables (cons (list var type name) foreign-variables)) '(##core#undefined) ) ) ((##core#define-foreign-type) (let ((name (second x)) (type (strip-syntax (third x))) (conv (cdddr x))) (unless tl? (quit-compiling "~adefinition of foreign type `~s' in non-toplevel context" (if ln (sprintf "(~a) - " ln) "") name)) (cond [(pair? conv) (let ([arg (gensym)] [ret (gensym)] ) (register-foreign-type! name type arg ret) (mark-variable arg '##compiler#always-bound) (mark-variable ret '##compiler#always-bound) (hide-variable arg) (hide-variable ret) ;; NOTE: Above we already check we're in toplevel context, ;; so we can unconditionally register the export here. ;; TODO: Remove after fixing #1615 (##sys#register-export arg (##sys#current-module)) (##sys#register-export ret (##sys#current-module)) (walk `(##core#begin (##core#set! ,arg ,(first conv)) (##core#set! ,ret ,(if (pair? (cdr conv)) (second conv) '##sys#values)) ) e dest ldest h ln tl?))] [else (register-foreign-type! name type) '(##core#undefined) ] ) ) ) ((##core#define-external-variable) (let* ((sym (second x)) (ln (get-line x)) (name (symbol->string sym)) (type (third x)) (exported (fourth x)) (rname (make-random-name)) ) (unless tl? (quit-compiling "~aexternal variable definition of `~s' in non-toplevel context" (if ln (sprintf "(~a) - " ln) "") sym)) (unless exported (set! name (symbol->string (fifth x)))) (set! external-variables (cons (vector name type exported) external-variables)) (set! foreign-variables (cons (list rname 'c-pointer (string-append "&" name)) foreign-variables) ) (set! external-to-pointer (alist-cons sym rname external-to-pointer)) '(##core#undefined) ) ) ((##core#let-location) (let* ((var (second x)) (type (strip-syntax (third x))) (alias (gensym)) (store (gensym)) (init (and (pair? (cddddr x)) (fourth x)))) (set-real-name! alias var) (set! location-pointer-map (cons (list alias store type) location-pointer-map) ) (parameterize ((##sys#current-environment (alist-cons var alias (##sys#current-environment)))) (walk `(##core#let (,(let ((size (bytes->words (estimate-foreign-result-location-size type)))) ;; Add 2 words: 1 for the header, 1 for double-alignment: ;; Note: C_a_i_bytevector takes number of words, not bytes (list store `(##core#inline_allocate ("C_a_i_bytevector" ,(+ 2 size)) ',size)) ) ) (##core#begin ,@(if init `((##core#set! ,alias ,init)) '() ) ,(if init (fifth x) (fourth x)) ) ) e dest ldest h ln #f)) ) ) ((##core#define-inline) (let* ((name (second x)) (val `(##core#lambda ,@(cdaddr x))) (ln (get-line x))) (unless tl? (quit-compiling "~ainline definition of `~s' in non-toplevel context" (if ln (sprintf "(~a) - " ln) "") name)) (hash-table-set! inline-table name val) '(##core#undefined))) ((##core#define-constant) (let* ((name (second x)) (ln (get-line x)) (valexp (third x)) (val (handle-exceptions ex ;; could show line number here (quit-compiling "error in constant evaluation of ~S for named constant `~S'" valexp name) (if (and (not (symbol? valexp)) (collapsable-literal? valexp)) valexp (eval `(##core#let ,defconstant-bindings ,valexp)))))) (unless tl? (quit-compiling "~aconstant definition of `~s' in non-toplevel context" (if ln (sprintf "(~a) - " ln) "") name)) (set! defconstant-bindings (cons (list name `(##core#quote ,val)) defconstant-bindings)) (cond ((collapsable-literal? val) (hash-table-set! constant-table name `(##core#quote ,val)) '(##core#undefined)) ((basic-literal? val) (let ((var (gensym "constant"))) (hash-table-set! constant-table name var) (hide-variable var) (mark-variable var '##compiler#constant) (mark-variable var '##compiler#always-bound) (walk `(define ,var (##core#quote ,val)) e #f #f h ln tl?))) (else (quit-compiling "~ainvalid compile-time value for named constant `~S'" (if ln (sprintf "(~a) - " ln) "") name))))) ((##core#declare) (let ((old-se (##sys#current-environment))) (parameterize ((##sys#current-environment '())) ;; ?? (walk `(##core#begin ,@(map (lambda (d) (process-declaration d old-se (lambda (id) (memq (lookup id) e)))) (cdr x) ) ) e #f #f h ln #f))) ) ((##core#foreign-callback-wrapper) (let-values ([(args lam) (split-at (cdr x) 4)]) (let* ([lam (car lam)] [raw-c-name (cadr (first args))] [name (##sys#alias-global-hook raw-c-name #t dest)] [rtype (cadr (third args))] [atypes (cadr (fourth args))] [vars (second lam)] ) (if (valid-c-identifier? raw-c-name) (set! callback-names (cons (cons raw-c-name name) callback-names)) (let ((ln (get-line x))) (quit-compiling "~aname `~S' of external definition is not a valid C identifier" (if ln (sprintf "(~a) - " ln) "") raw-c-name))) (when (or (not (list? vars)) (not (list? atypes)) (not (= (length vars) (length atypes))) ) (syntax-error "non-matching or invalid argument list to foreign callback-wrapper" vars atypes) ) `(##core#foreign-callback-wrapper ,@(mapwalk args e h ln #f) ,(walk `(##core#lambda ,vars (##core#let ,(let loop ([vars vars] [types atypes]) (if (null? vars) '() (let ([var (car vars)] [type (car types)] ) (cons (list var (foreign-type-convert-result (finish-foreign-result (final-foreign-type type) var) type) ) (loop (cdr vars) (cdr types)) ) ) ) ) ,(foreign-type-convert-argument `(##core#let () ,@(cond ((member rtype '((const nonnull-c-string) (const nonnull-unsigned-c-string) nonnull-unsigned-c-string nonnull-c-string)) `((##sys#make-c-string (##core#let () ,@(cddr lam)) (##core#quote ,name)))) ((member rtype '((const c-string*) (const unsigned-c-string*) unsigned-c-string* c-string* c-string-list c-string-list*)) (syntax-error "not a valid result type for callback procedures" rtype name) ) ((member rtype '(c-string (const unsigned-c-string) unsigned-c-string (const c-string)) ) `((##core#let ((r (##core#let () ,@(cddr lam)))) (,(macro-alias 'and) r (##sys#make-c-string r (##core#quote ,name))) ) ) ) (else (cddr lam)) ) ) rtype) ) ) e #f #f h ln #f) ) ) ) ) ((##core#location) (let ([sym (cadr x)]) (if (symbol? sym) (cond ((assq (lookup sym) location-pointer-map) => (lambda (a) (walk `(##sys#make-locative ,(second a) 0 #f (##core#quote location)) e #f #f h ln #f) ) ) ((assq sym external-to-pointer) => (lambda (a) (walk (cdr a) e #f #f h ln #f)) ) ((assq sym callback-names) `(##core#inline_ref (,(symbol->string sym) c-pointer)) ) (else (walk `(##sys#make-locative ,sym 0 #f (##core#quote location)) e #f #f h ln #f) ) ) (walk `(##sys#make-locative ,sym 0 #f (##core#quote location)) e #f #f h ln #f) ) ) ) (else (let* ((x2 (fluid-let ((##sys#syntax-context (cons name ##sys#syntax-context))) (mapwalk x e h ln tl?))) (head2 (car x2)) (old (hash-table-ref line-number-database-2 head2))) (when ln (hash-table-set! line-number-database-2 head2 (cons name (alist-cons x2 ln (if old (cdr old) '()))) ) ) x2)))))))) ((not (list? x)) (##sys#syntax-error/context "malformed expression" x) ) ((constant? (car x)) (emit-syntax-trace-info x #f) (warning "literal in operator position" x) (mapwalk x e h outer-ln tl?) ) (else (emit-syntax-trace-info x #f) (let ((tmp (gensym))) (walk `(##core#let ((,tmp ,(car x))) (,tmp ,@(cdr x))) e dest ldest h outer-ln #f))))) (define (mapwalk xs e h ln tl?) (map (lambda (x) (walk x e #f #f h ln tl?)) xs) ) (when (memq 'c debugging-chicken) (newline) (pretty-print exp)) (foreign-code "C_clear_trace_buffer();") ;; Process visited definitions and main expression: (walk `(##core#begin ,@(let ([p (reverse pending-canonicalizations)]) (set! pending-canonicalizations '()) p) ,(begin (set! extended-bindings (append internal-bindings extended-bindings)) exp) ) '() #f #f #f #f #t) ) ) (define (process-declaration spec se local?) (define (check-decl spec minlen . maxlen) (let ([n (length (cdr spec))]) (if (or (< n minlen) (> n (optional maxlen 99999))) (syntax-error "invalid declaration" spec) ) ) ) (define (stripa x) ; global aliasing (##sys#globalize x se)) (define stripu strip-syntax) (define (globalize-all syms) (filter-map (lambda (var) (cond ((local? var) (note-local var) #f) (else (##sys#globalize var se)))) syms)) (define (note-local var) (##sys#notice (sprintf "ignoring declaration for locally bound variable `~a'" var))) (call-with-current-continuation (lambda (return) (unless (pair? spec) (syntax-error "invalid declaration specification" spec) ) (case (strip-syntax (car spec)) ; no global aliasing ((uses) (let ((us (lset-difference/eq? (stripu (cdr spec)) used-units))) (when (pair? us) (set! provided (append provided us)) (set! used-units (append used-units us)) (hash-table-update! file-requirements 'static (cut lset-union/eq? us <>) (lambda () us))))) ((unit) (check-decl spec 1 1) (let ((u (stripu (cadr spec)))) (when (and unit-name (not (eq? unit-name u))) (warning "unit was already given a name (new name is ignored)")) (set! unit-name u) (set! standalone-executable #f))) ((standard-bindings) (if (null? (cdr spec)) (set! standard-bindings default-standard-bindings) (set! standard-bindings (append (stripa (cdr spec)) standard-bindings)) ) ) ((extended-bindings) (if (null? (cdr spec)) (set! extended-bindings default-extended-bindings) (set! extended-bindings (append (stripa (cdr spec)) extended-bindings)) ) ) ((usual-integrations) (cond [(null? (cdr spec)) (set! standard-bindings default-standard-bindings) (set! extended-bindings default-extended-bindings) ] [else (let ([syms (stripa (cdr spec))]) (set! standard-bindings (lset-intersection/eq? syms default-standard-bindings)) (set! extended-bindings (lset-intersection/eq? syms default-extended-bindings)))])) ((number-type) (check-decl spec 1 1) (set! number-type (strip-syntax (cadr spec)))) ((fixnum fixnum-arithmetic) (set! number-type 'fixnum)) ((generic) (set! number-type 'generic)) ((unsafe) (set! unsafe #t)) ((safe) (set! unsafe #f)) ((no-bound-checks) (set! no-bound-checks #t)) ((no-argc-checks) (set! no-argc-checks #t)) ((no-procedure-checks) (set! no-procedure-checks #t)) ((disable-interrupts) (set! insert-timer-checks #f)) ((always-bound) (for-each (cut mark-variable <> '##compiler#always-bound) (stripa (cdr spec)))) ((safe-globals) (set! safe-globals-flag #t)) ((no-procedure-checks-for-usual-bindings) (for-each (cut mark-variable <> '##compiler#always-bound-to-procedure) (append default-standard-bindings default-extended-bindings)) (for-each (cut mark-variable <> '##compiler#always-bound) (append default-standard-bindings default-extended-bindings))) ((no-procedure-checks-for-toplevel-bindings) (set! no-global-procedure-checks #t)) ((bound-to-procedure) (let ((vars (globalize-all (cdr spec)))) (for-each (cut mark-variable <> '##compiler#always-bound-to-procedure) vars) (for-each (cut mark-variable <> '##compiler#always-bound) vars))) ((foreign-declare) (let ([fds (cdr spec)]) (if (every string? fds) (set! foreign-declarations (append foreign-declarations fds)) (syntax-error 'declare "invalid declaration" spec) ) ) ) ((block) (set! block-compilation #t)) ((separate) (set! block-compilation #f)) ((keep-shadowed-macros) (set! undefine-shadowed-macros #f)) ((unused) (for-each (cut mark-variable <> '##compiler#unused) (globalize-all (cdr spec)))) ((enforce-argument-types) (for-each (cut mark-variable <> '##compiler#enforce) (globalize-all (cdr spec)))) ((not) (check-decl spec 1) (case (strip-syntax (second spec)) ; strip all [(standard-bindings) (if (null? (cddr spec)) (set! standard-bindings '()) (set! standard-bindings (lset-difference/eq? default-standard-bindings (stripa (cddr spec)))))] [(extended-bindings) (if (null? (cddr spec)) (set! extended-bindings '()) (set! extended-bindings (lset-difference/eq? default-extended-bindings (stripa (cddr spec)))))] [(inline) (if (null? (cddr spec)) (set! inline-locally #f) (for-each (cut mark-variable <> '##compiler#inline 'no) (globalize-all (cddr spec)))) ] [(usual-integrations) (cond [(null? (cddr spec)) (set! standard-bindings '()) (set! extended-bindings '()) ] [else (let ([syms (stripa (cddr spec))]) (set! standard-bindings (lset-difference/eq? default-standard-bindings syms)) (set! extended-bindings (lset-difference/eq? default-extended-bindings syms)))])] ((inline-global) (set! enable-inline-files #t) (when (pair? (cddr spec)) (for-each (cut mark-variable <> '##compiler#inline-global 'no) (globalize-all (cddr spec))))) [else (check-decl spec 1 1) (let ((id (strip-syntax (cadr spec)))) (case id [(safe) (set! unsafe #t)] [else (warning "unsupported declaration specifier" id)]))])) ((compile-syntax) (set! ##sys#enable-runtime-macros #t)) ((block-global hide) (let ([syms (globalize-all (cdr spec))]) (if (null? syms) (set! block-compilation #t) (for-each hide-variable syms)))) ((export) (set! block-compilation #t) (let ((syms (globalize-all (cdr spec)))) (for-each export-variable syms))) ((emit-external-prototypes-first) (set! external-protos-first #t) ) ((inline) (if (null? (cdr spec)) (set! inline-locally #t) (for-each (cut mark-variable <> '##compiler#local) (globalize-all (cdr spec))))) ((inline-limit) (check-decl spec 1 1) (let ([n (cadr spec)]) (if (number? n) (set! inline-max-size n) (warning "invalid argument to `inline-limit' declaration" spec) ) ) ) ((pure) (let ((syms (cdr spec))) (if (every symbol? syms) (for-each (cut mark-variable <> '##compiler#pure #t) (globalize-all syms)) (quit-compiling "invalid arguments to `pure' declaration: ~S" spec)))) ((emit-import-library) (set! import-libraries (append import-libraries (map (lambda (il) (cond ((symbol? il) (cons il (string-append (symbol->string il) ".import.scm")) ) ((and (list? il) (= 2 (length il)) (symbol? (car il)) (string (cadr il))) (cons (car il) (cadr il))) (else (warning "invalid import-library specification" il)))) (strip-syntax (cdr spec)))))) ((profile) (set! emit-profile #t) (cond ((null? (cdr spec)) (set! profiled-procedures 'all) ) (else (set! profiled-procedures 'some) (for-each (cut mark-variable <> '##compiler#profile) (globalize-all (cdr spec)))))) ((local) (cond ((null? (cdr spec)) (set! local-definitions #t) ) (else (for-each (cut mark-variable <> '##compiler#local) (stripa (cdr spec)))))) ((inline-global) (set! enable-inline-files #t) (set! inline-locally #t) (when (pair? (cdr spec)) (for-each (cut mark-variable <> '##compiler#inline-global 'yes) (globalize-all (cdr spec))))) ((type) (for-each (lambda (spec) (if (not (and (list? spec) (>= (length spec) 2) (symbol? (car spec)))) (warning "illegal type declaration" (strip-syntax spec)) (let ((name (##sys#globalize (car spec) se)) (type (strip-syntax (cadr spec)))) (if (local? (car spec)) (note-local (car spec)) (let-values (((type pred pure) (validate-type type name))) (cond (type ;; HACK: since `:' doesn't have access to the SE, we ;; fixup the procedure name if type is a named procedure type ;; (We only have access to the SE for ##sys#globalize in here). ;; Quite terrible. (when (and (pair? type) (eq? 'procedure (car type)) (symbol? (cadr type))) (set-car! (cdr type) name)) (mark-variable name '##compiler#type type) (mark-variable name '##compiler#type-source 'local) (when pure (mark-variable name '##compiler#pure #t)) (when pred (mark-variable name '##compiler#predicate pred)) (when (pair? (cddr spec)) (install-specializations name (strip-syntax (cddr spec))))) (else (warning "illegal `type' declaration" (strip-syntax spec))))))))) (cdr spec))) ((predicate) (for-each (lambda (spec) (cond ((and (list? spec) (symbol? (car spec)) (= 2 (length spec))) (let ((name (##sys#globalize (car spec) se)) (type (strip-syntax (cadr spec)))) (if (local? (car spec)) (note-local (car spec)) (let-values (((type pred pure) (validate-type type name))) (if (and type (not pred)) (mark-variable name '##compiler#predicate type) (warning "illegal `predicate' declaration" spec)))))) (else (warning "illegal `type' declaration item" spec)))) (cdr spec))) ((specialize) (set! enable-specialization #t)) ((strict-types) (set! strict-variable-types #t)) (else (warning "unknown declaration specifier" spec)) ) '(##core#undefined) ) ) ) ;;; Register statically linked extension (define (register-static-extension id) (set! linked-static-extensions (cons id linked-static-extensions))) ;;; Create entry procedure: (define (build-toplevel-procedure node) (make-node 'lambda '(()) (list node))) ;;; Expand "foreign-lambda"/"foreign-safe-lambda" forms and add item to stub-list: (define-record-type foreign-stub (make-foreign-stub id return-type name argument-types argument-names body cps callback) foreign-stub? (id foreign-stub-id) ; symbol (return-type foreign-stub-return-type) ; type-specifier (name foreign-stub-name) ; string or #f (argument-types foreign-stub-argument-types) ; (type-specifier...) (argument-names foreign-stub-argument-names) ; #f or (symbol ...) (body foreign-stub-body) ; #f or string (cps foreign-stub-cps) ; boolean (callback foreign-stub-callback)) ; boolean (define (create-foreign-stub rtype sname argtypes argnames body callback cps) ;; try to describe a foreign-lambda type specification ;; eg. (type->symbol '(c-pointer (struct "point"))) => point* (define (type->symbol type-spec) (let loop ([type type-spec]) (cond ((null? type) 'a) ((list? type) (case (car type) ((c-pointer) (string->symbol (conc (loop (cdr type)) "*"))) ;; if pointer, append * ((const struct) (loop (cdr type))) ;; ignore these (else (loop (car type))))) ((or (symbol? type) (string? type)) type) (else 'a)))) (let* ((rtype (strip-syntax rtype)) (argtypes (strip-syntax argtypes)) (params (if argnames (map gensym argnames) (map (o gensym type->symbol) argtypes))) (f-id (gensym 'stub)) (bufvar (gensym)) (rsize (estimate-foreign-result-size rtype))) (when sname (set-real-name! f-id (string->symbol sname))) (set! foreign-lambda-stubs (cons (make-foreign-stub f-id rtype sname argtypes argnames body cps callback) foreign-lambda-stubs) ) (let ([rsize (if callback (+ rsize 24) rsize)] ; 24 -> has to hold cons on 64-bit platforms! [head (if cps `((##core#primitive ,f-id)) `(##core#inline ,f-id) ) ] [rest (map (lambda (p t) (foreign-type-check (foreign-type-convert-argument p t) t)) params argtypes)] ) `(##core#lambda ,params ;; Do minor GC (if callback) to make room on stack: ,@(if callback '((##sys#gc #f)) '()) ,(if (zero? rsize) (foreign-type-convert-result (append head (cons '(##core#undefined) rest)) rtype) (let ([ft (final-foreign-type rtype)] [ws (bytes->words rsize)] ) `(##core#let ([,bufvar (##core#inline_allocate ("C_a_i_bytevector" ,(+ 2 ws)) (##core#quote ,ws))]) ,(foreign-type-convert-result (finish-foreign-result ft (append head (cons bufvar rest))) rtype) ) ) ) ) ) ) ) (define (expand-foreign-lambda exp callback?) (let* ((name (third exp)) (sname (cond ((symbol? name) (symbol->string (strip-syntax name))) ((string? name) name) (else (quit-compiling "name `~s' of foreign procedure has wrong type" name)) ) ) (rtype (second exp)) (argtypes (cdddr exp)) ) (create-foreign-stub rtype sname argtypes #f #f callback? callback?) ) ) (define (expand-foreign-lambda* exp callback?) (let* ((rtype (second exp)) (args (third exp)) (body (string-intersperse (cdddr exp) "\n")) (argtypes (map (lambda (x) (car x)) args)) ;; C identifiers aren't hygienically renamed inside body strings (argnames (map cadr (strip-syntax args)))) (create-foreign-stub rtype #f argtypes argnames body callback? callback?) ) ) ;; TODO: Try to fold this procedure into expand-foreign-lambda* (define (expand-foreign-primitive exp) (let* ((hasrtype (and (pair? (cddr exp)) (not (string? (caddr exp))))) (rtype (if hasrtype (second exp) 'void)) (args (strip-syntax (if hasrtype (third exp) (second exp)))) (body (string-intersperse (if hasrtype (cdddr exp) (cddr exp)) "\n")) (argtypes (map (lambda (x) (car x)) args)) ;; C identifiers aren't hygienically renamed inside body strings (argnames (map cadr (strip-syntax args)))) (create-foreign-stub rtype #f argtypes argnames body #f #t) ) ) ;;; Traverse expression and update line-number db with all contained calls: (define (update-line-number-database! exp ln) (define (mapupdate xs) (let loop ((xs xs)) (when (pair? xs) (walk (car xs)) (loop (cdr xs)) ) ) ) (define (walk x) (cond ((not (pair? x))) ((symbol? (car x)) (let* ((name (car x)) (old (or (hash-table-ref ##sys#line-number-database name) '()))) (unless (assq x old) (hash-table-set! ##sys#line-number-database name (alist-cons x ln old))) (mapupdate (cdr x)) ) ) (else (mapupdate x)) ) ) (walk exp) ) ;;; Convert canonicalized node-graph into continuation-passing-style: (define (perform-cps-conversion node) (define (cps-lambda id llist subs k) (let ([t1 (gensym 'k)]) (k (make-node '##core#lambda (list id #t (cons t1 llist) 0) (list (walk (car subs) (lambda (r) (make-node '##core#call (list #t) (list (varnode t1) r)) ) ) ) ) ) ) ) (define (node-for-var? node var) (and (eq? (node-class node) '##core#variable) (eq? (car (node-parameters node)) var))) (define (walk n k) (let ((subs (node-subexpressions n)) (params (node-parameters n)) (class (node-class n)) ) (case (node-class n) ((##core#variable quote ##core#undefined ##core#primitive ##core#provide) (k n)) ((if) (let* ((t1 (gensym 'k)) (t2 (gensym 'r)) (k1 (lambda (r) (make-node '##core#call (list #t) (list (varnode t1) r)))) ) (make-node 'let (list t1) (list (make-node '##core#lambda (list (gensym-f-id) #f (list t2) 0) (list (k (varnode t2))) ) (walk (car subs) (lambda (v) (make-node 'if '() (list v (walk (cadr subs) k1) (walk (caddr subs) k1) ) ) ) ) ) ) ) ) ((let) (let loop ((vars params) (vals subs)) (if (null? vars) (walk (car vals) k) (walk (car vals) (lambda (r) (if (node-for-var? r (car vars)) ; Don't generate unneccessary lets (loop (cdr vars) (cdr vals)) (make-node 'let (list (car vars)) (list r (loop (cdr vars) (cdr vals))) )) ) ) ) ) ) ((lambda ##core#lambda) (cps-lambda (gensym-f-id) (first params) subs k)) ((set!) (let* ((t1 (gensym 't)) (immediate? (and (pair? (cdr params)) (cadr params))) (new-params (list (first params) immediate?))) (walk (car subs) (lambda (r) (make-node 'let (list t1) (list (make-node 'set! new-params (list r)) (k (varnode t1)) ) ) ) ) ) ) ((##core#foreign-callback-wrapper) (let ((id (gensym-f-id)) (lam (first subs)) ) (register-foreign-callback-stub! id params) (cps-lambda id (first (node-parameters lam)) (node-subexpressions lam) k) ) ) ((##core#inline ##core#inline_allocate ##core#inline_ref ##core#inline_update ##core#inline_loc_ref ##core#inline_loc_update ##core#debug-event) (walk-inline-call class params subs k) ) ((##core#call) (walk-call (car subs) (cdr subs) params k)) ((##core#callunit) (walk-call-unit (first params) k)) ((##core#the ##core#the/result) ;; remove "the" nodes, as they are not used after scrutiny (walk (car subs) k)) ((##core#typecase) ;; same here, the last clause is chosen, exp is dropped (walk (last subs) k)) (else (bomb "bad node (cps)")) ) ) ) (define (walk-call fn args params k) (let ((t0 (gensym 'k)) (t3 (gensym 'r)) ) (make-node 'let (list t0) (list (make-node '##core#lambda (list (gensym-f-id) #f (list t3) 0) (list (k (varnode t3))) ) (walk-arguments args (lambda (vars) (walk fn (lambda (r) (make-node '##core#call params (cons* r (varnode t0) vars) ) ) ) ) ) ) ) ) ) (define (walk-call-unit unitname k) (let ((t0 (gensym 'k)) (t3 (gensym 'r)) ) (make-node 'let (list t0) (list (make-node '##core#lambda (list (gensym-f-id) #f (list t3) 0) (list (k (varnode t3))) ) (make-node '##core#callunit (list unitname) (list (varnode t0)) ) ) ) ) ) (define (walk-inline-call class op args k) (walk-arguments args (lambda (vars) (k (make-node class op vars)) ) ) ) (define (walk-arguments args wk) (let loop ((args args) (vars '())) (cond ((null? args) (wk (reverse vars))) ((atomic? (car args)) (loop (cdr args) (cons (car args) vars)) ) (else (let ((t1 (gensym 'a))) (walk (car args) (lambda (r) (if (node-for-var? r t1) ; Don't generate unneccessary lets (loop (cdr args) (cons (varnode t1) vars) ) (make-node 'let (list t1) (list r (loop (cdr args) (cons (varnode t1) vars) ) ) )) ) ) ) ) ) ) ) (define (atomic? n) (let ((class (node-class n))) (or (memq class '(quote ##core#variable ##core#undefined)) (and (memq class '(##core#inline_allocate ##core#inline_ref ##core#inline_update ##core#inline_loc_ref ##core#inline_loc_update)) (every atomic? (node-subexpressions n)) ) ) ) ) (walk node values) ) ;;; Perform source-code analysis: (define (analyze-expression node) ;; Avoid crowded hash tables by using previous run's size as heuristic (let* ((db-size (fx* (fxmax current-analysis-database-size 1) 3)) (db (make-vector db-size '()))) (define (grow n) (set! current-program-size (+ current-program-size n)) ) ;; fullenv is constantly (append localenv env). It's there to avoid ;; exponential behaviour by APPEND calls when compiling deeply nested LETs (define (walk n env localenv fullenv here) (let ((subs (node-subexpressions n)) (params (node-parameters n)) (class (node-class n)) ) (grow 1) (case class ((quote ##core#undefined ##core#provide ##core#proc) #f) ((##core#variable) (let ((var (first params))) (ref var n) (unless (memq var localenv) (grow 1) (cond ((memq var env) (db-put! db var 'captured #t)) ((not (db-get db var 'global)) (db-put! db var 'global #t) ) ) ) ) ) ((##core#callunit ##core#recurse) (grow 1) (walkeach subs env localenv fullenv here)) ((##core#call) (grow 1) (let ([fun (car subs)]) (when (eq? '##core#variable (node-class fun)) (let ((name (first (node-parameters fun)))) (collect! db name 'call-sites (cons here n)))) (walk (first subs) env localenv fullenv here) (walkeach (cdr subs) env localenv fullenv here))) ((let ##core#let) (let ([env2 (append params fullenv)]) (let loop ([vars params] [vals subs]) (if (null? vars) (walk (car vals) env (append params localenv) env2 here) (let ([var (car vars)] [val (car vals)] ) (db-put! db var 'home here) (assign var val env2 here) (walk val env localenv fullenv here) (loop (cdr vars) (cdr vals)) ) ) ) ) ) ((lambda) ; this is an intermediate lambda, slightly different (grow 1) ; from '##core#lambda nodes (params = (LLIST)); (##sys#decompose-lambda-list ; CPS will convert this into ##core#lambda (first params) (lambda (vars argc rest) (for-each (lambda (var) (db-put! db var 'unknown #t)) vars) (let ([tl toplevel-scope]) (set! toplevel-scope #f) (walk (car subs) fullenv vars (append vars fullenv) #f) (set! toplevel-scope tl) ) ) ) ) ((##core#lambda ##core#direct_lambda) (grow 1) (##sys#decompose-lambda-list (third params) (lambda (vars argc rest) (let ([id (first params)] [size0 current-program-size] ) (when here (collect! db here 'contains id) (db-put! db id 'contained-in here) ) (for-each (lambda (var) (db-put! db var 'home here) (db-put! db var 'unknown #t) ) vars) (when rest (db-put! db rest 'rest-parameter 'list) ) (when (simple-lambda-node? n) (db-put! db id 'simple #t)) (let ([tl toplevel-scope]) (unless toplevel-lambda-id (set! toplevel-lambda-id id)) (when (and (second params) (not (eq? toplevel-lambda-id id))) (set! toplevel-scope #f)) ; only if non-CPS lambda (walk (car subs) fullenv vars (append vars fullenv) id) (set! toplevel-scope tl) ;; decorate ##core#call node with size (set-car! (cdddr (node-parameters n)) (- current-program-size size0)) ) ) ) ) ) ((set! ##core#set!) ;XXX ##core#set! still used? (let* ((var (first params)) (val (car subs)) ) (when (and first-analysis (not bootstrap-mode)) (case (variable-mark var '##compiler#intrinsic) ((standard) (warning "redefinition of standard binding" var) ) ((extended) (warning "redefinition of extended binding" var) ) )) (collect! db var 'potential-values val) (unless (memq var localenv) (grow 1) (cond ((memq var env) (db-put! db var 'captured #t)) ((not (db-get db var 'global)) (db-put! db var 'global #t) ) ) ) (assign var val fullenv here) (unless toplevel-scope (db-put! db var 'assigned-locally #t)) (db-put! db var 'assigned #t) (walk (car subs) env localenv fullenv here))) ((##core#primitive ##core#inline) (let ((id (first params))) (when (and first-analysis here (symbol? id) (get-real-name id)) (set-real-name! id here) ) (walkeach subs env localenv fullenv here))) (else (walkeach subs env localenv fullenv here))))) (define (walkeach xs env lenv fenv here) (for-each (lambda (x) (walk x env lenv fenv here)) xs) ) (define (assign var val env here) (cond ((eq? '##core#undefined (node-class val)) (db-put! db var 'undefined #t) ) ((and (eq? '##core#variable (node-class val)) ; assignment to itself (eq? var (first (node-parameters val))) ) ) ((or (memq var env) (variable-mark var '##compiler#constant) (not (variable-visible? var block-compilation))) (let ((props (db-get-all db var 'unknown 'value)) (home (db-get db var 'home)) ) (unless (assq 'unknown props) (if (assq 'value props) (db-put! db var 'unknown #t) (if (or (not home) (eq? here home)) (db-put! db var 'value val) (db-put! db var 'unknown #t) ) ) ) ) ) ((and (or local-definitions (variable-mark var '##compiler#local)) (not (db-get db var 'unknown))) (let ((home (db-get db var 'home))) (cond ((db-get db var 'local-value) (db-put! db var 'unknown #t)) ((or (not home) (eq? here home)) (db-put! db var 'local-value val) ) (else (db-put! db var 'unknown #t))))) (else (db-put! db var 'unknown #t)) ) ) (define (ref var node) (collect! db var 'references node) ) (define (quick-put! plist prop val) (set-cdr! plist (alist-cons prop val (cdr plist))) ) ;; Walk toplevel expression-node: (debugging 'p "analysis traversal phase...") (set! current-program-size 0) (walk node '() '() '() #f) ;; Complete gathered database information: (debugging 'p "analysis gathering phase...") (set! current-analysis-database-size 0) (hash-table-for-each (lambda (sym plist) (let ([unknown #f] [value #f] [local-value #f] [potential-values #f] [references '()] [captured #f] [call-sites '()] [assigned #f] [assigned-locally #f] [undefined #f] [global #f] [rest-parameter #f] [nreferences 0] [ncall-sites 0] ) (set! current-analysis-database-size (fx+ current-analysis-database-size 1)) (for-each (lambda (prop) (case (car prop) [(unknown) (set! unknown #t)] [(references) (set! references (cdr prop)) (set! nreferences (length references)) ] [(captured) (set! captured #t)] [(potential-values) (set! potential-values (cdr prop))] [(call-sites) (set! call-sites (cdr prop)) (set! ncall-sites (length call-sites)) ] [(assigned) (set! assigned #t)] [(assigned-locally) (set! assigned-locally #t)] [(undefined) (set! undefined #t)] [(global) (set! global #t)] [(value) (set! value (cdr prop))] [(local-value) (set! local-value (cdr prop))] [(rest-parameter) (set! rest-parameter #t)] ) ) plist) (set! value (and (not unknown) value)) (set! local-value (and (not unknown) local-value)) ;; If this is the first analysis, register known local or potentially known global ;; lambda-value id's along with their names: (when first-analysis (and-let* ((vals (or (and value (list value)) (and global potential-values)))) (for-each (lambda (val) (when (eq? (node-class val) '##core#lambda) (set-real-name! (first (node-parameters val)) sym))) vals))) ;; If this is the first analysis and the variable is global and has no references ;; and is hidden then issue warning: (when (and first-analysis global (null? references) (not (variable-mark sym '##compiler#unused)) (not (variable-hidden? sym)) (not (variable-visible? sym block-compilation)) (not (variable-mark sym '##compiler#constant)) ) (##sys#notice (sprintf "global variable `~S' is only locally visible and never used" sym) ) ) ;; Make 'boxed, if 'assigned & 'captured: (when (and assigned captured) (quick-put! plist 'boxed #t) ) ;; Make 'contractable, if it has a procedure as known value, has only one use ;; and one call-site and if the lambda has no free non-global variables ;; or is an internal lambda. Make 'inlinable if ;; use/call count is not 1: (cond (value (let ((valparams (node-parameters value))) (when (and (eq? '##core#lambda (node-class value)) (or (not (second valparams)) (every (lambda (v) (db-get db v 'global)) (nth-value 0 (scan-free-variables value block-compilation)) ) ) ) (if (and (= 1 nreferences) (= 1 ncall-sites)) (quick-put! plist 'contractable #t) (quick-put! plist 'inlinable #t) ) ) ) ) (local-value ;; Make 'inlinable, if it is declared local and has a value (let ((valparams (node-parameters local-value))) (when (eq? '##core#lambda (node-class local-value)) (let-values (((vars hvars) (scan-free-variables local-value block-compilation))) (when (and (db-get db sym 'global) (pair? hvars)) (quick-put! plist 'hidden-refs #t)) (when (or (not (second valparams)) (every (lambda (v) (db-get db v 'global)) vars)) (quick-put! plist 'inlinable #t) ) ) ) ) ) ((variable-mark sym '##compiler#inline-global) => (lambda (n) (when (node? n) (cond (assigned (debugging 'i "global inlining candidate was assigned and will not be inlined" sym) (mark-variable sym '##compiler#inline-global 'no)) (else (let ((lparams (node-parameters n))) (quick-put! plist 'inlinable #t) (quick-put! plist 'local-value n)))))))) ;; Make 'collapsable, if it has a known constant value which is either collapsable or is only ;; referenced once and if no assignments are made: (when (and value ;; (not (assq 'assigned plist)) - If it has a known value, it's assigned just once! (eq? 'quote (node-class value)) ) (let ((val (first (node-parameters value)))) (when (or (collapsable-literal? val) (= 1 nreferences) ) (quick-put! plist 'collapsable #t) ) ) ) ;; If it has a known value that is a procedure, and if the number of call-sites is equal to the ;; number of references (does not escape), then make all formal parameters 'unused which are ;; never referenced or assigned (if no rest parameter exist): ;; - also marks the procedure as 'has-unused-parameters (if not in `callback-names') ;; - if the procedure is internal (a continuation) do NOT mark unused parameters. ;; - also: if procedure has rest-parameter and no unused params, mark f-id as 'explicit-rest. (when value (let ((has #f)) (when (and (eq? '##core#lambda (node-class value)) (= nreferences ncall-sites) ) (let ((lparams (node-parameters value))) (when (second lparams) (##sys#decompose-lambda-list (third lparams) (lambda (vars argc rest) (unless rest (for-each (lambda (var) (cond ((and (not (db-get db var 'references)) (not (db-get db var 'assigned)) ) (db-put! db var 'unused #t) (set! has #t) #t) (else #f) ) ) vars) ) (cond ((and has (not (rassoc sym callback-names eq?))) (db-put! db (first lparams) 'has-unused-parameters #t) ) (rest (db-put! db (first lparams) 'explicit-rest #t) ) ) ) ) ) ) ) ) ) ;; Make 'removable, if it has no references and is not assigned to, and if it ;; has either a value that does not cause any side-effects or if it is 'undefined: (when (and (not assigned) (null? references) (or (and value (if (eq? '##core#variable (node-class value)) (let ((varname (first (node-parameters value)))) (or (not (db-get db varname 'global)) (variable-mark varname '##core#always-bound) (intrinsic? varname))) (not (expression-has-side-effects? value db)) )) undefined) ) (quick-put! plist 'removable #t) ) ;; Make 'replacable, if it has a variable as known value and if either that variable has ;; a known value itself, or if it is not captured and referenced only once, the target and ;; the source are never assigned and the source is non-global or we are in block-mode: ;; - The target-variable is not allowed to be global. ;; - The variable that can be substituted for the current one is marked as 'replacing. ;; This is done to prohibit beta-contraction of the replacing variable (It wouldn't be there, if ;; it was contracted). (when (and value (not global)) (when (eq? '##core#variable (node-class value)) (let* ((name (first (node-parameters value))) (nrefs (db-get db name 'references)) ) (when (and (not captured) (or (and (not (db-get db name 'unknown)) (db-get db name 'value)) (and (not (db-get db name 'captured)) nrefs (= 1 (length nrefs)) (not assigned) (not (db-get db name 'assigned)) (or (not (variable-visible? name block-compilation)) (not (db-get db name 'global))) ) )) (quick-put! plist 'replacable name) (db-put! db name 'replacing #t) ) ) ) ) ;; Make 'replacable, if it has a known value of the form: '(lambda () ( ))' and ;; is an internally created procedure: (See above for 'replacing) (when (and value (eq? '##core#lambda (node-class value))) (let ((params (node-parameters value))) (when (not (second params)) (let ((llist (third params)) (body (first (node-subexpressions value))) ) (when (and (pair? llist) (null? (cdr llist)) (eq? '##core#call (node-class body)) ) (let ((subs (node-subexpressions body))) (when (= 2 (length subs)) (let ((v1 (first subs)) (v2 (second subs)) ) (when (and (eq? '##core#variable (node-class v1)) (eq? '##core#variable (node-class v2)) (eq? (first llist) (first (node-parameters v2))) ) (let ((kvar (first (node-parameters v1)))) (quick-put! plist 'replacable kvar) (db-put! db kvar 'replacing #t) ) ) ) ) ) ) ) ) ) ) ) ) db) ;; Set original program-size, if this is the first analysis-pass: (unless original-program-size (set! original-program-size current-program-size) ) ;; return database db) ) ;;; Collect unsafe global procedure calls that are assigned: ;;; Convert closures to explicit data structures (effectively flattens function-binding ; structure): (define (perform-closure-conversion node db) (let ((direct-calls 0) (customizable '()) (lexicals '())) (define (test sym item) (db-get db sym item)) (define (register-customizable! var id) (set! customizable (lset-adjoin/eq? customizable var)) (db-put! db id 'customizable #t) ) (define (register-direct-call! id) (set! direct-calls (add1 direct-calls)) (set! direct-call-ids (lset-adjoin/eq? direct-call-ids id))) ;; Gather free-variable information: ;; (and: - register direct calls ;; - update (by mutation) call information in "##core#call" nodes) (define (gather n here locals) (let ((subs (node-subexpressions n)) (params (node-parameters n)) ) (case (node-class n) ((##core#variable) (let ((var (first params))) (if (memq var lexicals) (list var) '()))) ((quote ##core#undefined ##core#provide ##core#proc ##core#primitive) '()) ((let) ;;XXX remove this test later, shouldn't be needed: (when (pair? (cdr params)) (bomb "let-node has invalid format" params)) (let ((c (gather (first subs) here locals)) (var (first params))) (append c (delete var (gather (second subs) here (cons var locals)) eq?)))) ((set!) (let ((var (first params)) (c (gather (first subs) here locals))) (if (memq var lexicals) (cons var c) c))) ((##core#call) (let* ([fn (first subs)] [mode (first params)] [name (and (pair? (cdr params)) (second params))] [varfn (eq? '##core#variable (node-class fn))] ) (node-parameters-set! n (cons mode (if (or name varfn) (cons name (if varfn (let* ([varname (first (node-parameters fn))] [val (and (not (test varname 'unknown)) (not (eq? 'no (variable-mark varname '##compiler#inline))) (or (test varname 'value) (test varname 'local-value)))] ) (if (and val (eq? '##core#lambda (node-class val))) (let* ([params (node-parameters val)] [llist (third params)] [id (first params)] [refs (test varname 'references)] [sites (test varname 'call-sites)] [custom (and refs sites (= (length refs) (length sites)) (test varname 'value) (list? llist) ) ] ) (when (and name (not (llist-match? llist (cdr subs)))) (quit-compiling "~a: procedure `~a' called with wrong number of arguments" (source-info->string name) (if (pair? name) (cadr name) name))) (register-direct-call! id) (when custom (register-customizable! varname id)) (list id custom) ) '() ) ) '() ) ) '() ) ) ) (concatenate (map (lambda (n) (gather n here locals)) subs) ) )) ((##core#lambda ##core#direct_lambda) (##sys#decompose-lambda-list (third params) (lambda (vars argc rest) (let ((id (if here (first params) 'toplevel))) (fluid-let ((lexicals (append locals lexicals))) (let ((c (delete-duplicates (gather (first subs) id vars) eq?))) (db-put! db id 'closure-size (length c)) (db-put! db id 'captured-variables c) (lset-difference/eq? c locals vars))))))) (else (concatenate (map (lambda (n) (gather n here locals)) subs)) ) ) )) ;; Create explicit closures: (define (transform n here closure) (let ((subs (node-subexpressions n)) (params (node-parameters n)) (class (node-class n)) ) (case class ((quote ##core#undefined ##core#provide ##core#proc ##core#float ##core#float-variable) n) ((##core#variable) (let* ((var (first params)) (val (ref-var n here closure)) ) (if (test var 'boxed) (make-node '##core#unbox '() (list val)) val) ) ) ((if ##core#call ##core#inline ##core#inline_allocate ##core#callunit ##core#inline_ref ##core#inline_update ##core#debug-event ##core#switch ##core#cond ##core#direct_call ##core#recurse ##core#return ##core#let_float ##core#box_float ##core#unbox_float ##core#inline_loc_ref ##core#inline_loc_update) (make-node (node-class n) params (maptransform subs here closure)) ) ((let) (let* ([var (first params)] [boxedvar (test var 'boxed)] [boxedalias (gensym var)] ) (if boxedvar (make-node 'let (list boxedalias) (list (transform (first subs) here closure) (make-node 'let (list var) (list (make-node '##core#box '() (list (varnode boxedalias))) (transform (second subs) here closure) ) ) ) ) (make-node 'let params (maptransform subs here closure) ) ) ) ) ((##core#lambda ##core#direct_lambda) (let ((llist (third params))) (##sys#decompose-lambda-list llist (lambda (vars argc rest) (let* ((boxedvars (filter (lambda (v) (test v 'boxed)) vars)) (boxedaliases (map cons boxedvars (map gensym boxedvars))) (cvar (gensym 'c)) (id (if here (first params) 'toplevel)) (capturedvars (or (test id 'captured-variables) '())) (csize (or (test id 'closure-size) 0)) (info (and emit-closure-info (second params) (pair? llist))) ) ;; If rest-parameter is boxed: mark it as 'boxed-rest ;; (if we don't do this than preparation will think the (boxed) alias ;; of the rest-parameter is never used) (and-let* ((rest) ((test rest 'boxed)) (rp (test rest 'rest-parameter)) ) (db-put! db (cdr (assq rest boxedaliases)) 'boxed-rest #t) ) (make-node '##core#closure (list (+ csize (if info 2 1))) (cons (make-node class (list id (second params) (cons cvar (build-lambda-list (map (lambda (v) (cond ((assq v boxedaliases) => cdr) (else v) ) ) vars) argc (cond ((and rest (assq rest boxedaliases)) => cdr) (else rest) ) ) ) (fourth params) ) (list (let ((body (transform (car subs) cvar capturedvars))) (if (pair? boxedvars) (let loop ((aliases (unzip1 boxedaliases)) (values (map (lambda (a) (make-node '##core#box '() (list (varnode (cdr a))))) boxedaliases) )) (if (null? aliases) body (make-node 'let (list (car aliases)) (list (car values) (loop (cdr aliases) (cdr values)))))) body) ) ) ) (let ((cvars (map (lambda (v) (ref-var (varnode v) here closure)) capturedvars) ) ) (if info (append cvars (list (qnode (##sys#make-lambda-info (->string (cons (or (real-name id) '?) ;; this is not always correct, due to optimizations (strip-syntax (cdr llist)))))))) cvars) ) ) ) ) ) ) ) ) ((set!) (let* ((var (first params)) (val (first subs)) (cval (node-class val)) (immf (or (and (eq? 'quote cval) (immediate? (first (node-parameters val)))) (and (pair? (cdr params)) (second params)) (eq? '##core#undefined cval)))) (cond ((posq var closure) => (lambda (i) (if (test var 'boxed) (make-node (if immf '##core#updatebox_i '##core#updatebox) '() (list (make-node '##core#ref (list (add1 i)) (list (varnode here))) (transform val here closure) ) ) ;; Is the following actually used??? (make-node (if immf '##core#update_i '##core#update) (list (add1 i)) (list (varnode here) (transform val here closure) ) ) ) ) ) ((test var 'boxed) (make-node (if immf '##core#updatebox_i '##core#updatebox) '() (list (varnode var) (transform val here closure) ) ) ) (else (make-node 'set! (list var immf) (list (transform val here closure) ) ) ) ) ) ) ((##core#primitive) (make-node '##core#closure (list (if emit-closure-info 2 1)) (cons (make-node '##core#proc (list (car params) #t) '()) (if emit-closure-info (list (qnode (##sys#make-lambda-info (car params)))) '() ) ) ) ) (else (bomb "bad node (closure2)")) ) ) ) (define (maptransform xs here closure) (map (lambda (x) (transform x here closure)) xs) ) (define (ref-var n here closure) (let ((var (first (node-parameters n)))) (cond ((posq var closure) => (lambda (i) (make-node '##core#ref (list (+ i 1)) (list (varnode here)) ) ) ) (else n) ) ) ) (debugging 'p "closure conversion gathering phase...") (gather node #f '()) (when (pair? customizable) (debugging 'o "customizable procedures" customizable)) (debugging 'p "closure conversion transformation phase...") (let ((node2 (transform node #f #f))) (unless (zero? direct-calls) (debugging 'o "calls to known targets" direct-calls)) node2) ) ) ;;; Do some preparations before code-generation can commence: (define-record-type lambda-literal (make-lambda-literal id external arguments argument-count rest-argument temporaries float-temporaries callee-signatures allocated directly-called closure-size looping customizable rest-argument-mode body direct) lambda-literal? (id lambda-literal-id) ; symbol (external lambda-literal-external) ; boolean ;; lambda-literal-arguments is used nowhere (arguments lambda-literal-arguments) ; (symbol ...) (argument-count lambda-literal-argument-count) ; integer (rest-argument lambda-literal-rest-argument) ; symbol | #f (temporaries lambda-literal-temporaries) ; integer (float-temporaries lambda-literal-float-temporaries) ; (integer ...) (callee-signatures lambda-literal-callee-signatures) ; (integer ...) (allocated lambda-literal-allocated) ; integer ;; lambda-literal-directly-called is used nowhere (directly-called lambda-literal-directly-called) ; boolean (closure-size lambda-literal-closure-size) ; integer (looping lambda-literal-looping) ; boolean (customizable lambda-literal-customizable) ; boolean (rest-argument-mode lambda-literal-rest-argument-mode) ; #f | LIST | NONE (body lambda-literal-body) ; expression (direct lambda-literal-direct)) ; boolean (define (prepare-for-code-generation node db) (let ((literals '()) (literal-count 0) (lambda-info-literals '()) (lambda-info-literal-count 0) ;; Use analysis db as optimistic heuristic for procedure table size (lambda-table (make-vector (fx* (fxmax current-analysis-database-size 1) 3) '())) (temporaries 0) (float-temporaries '()) (allocated 0) (looping 0) (signatures '()) (fastinits 0) (fastrefs 0) (fastsets 0) (dbg-index 0) (debug-info '())) (define (walk-var var e e-count sf) (cond [(posq var e) => (lambda (i) (make-node '##core#local (list (fx- e-count (fx+ i 1))) '()))] [(keyword? var) (make-node '##core#literal (list (literal var)) '())] [else (walk-global var sf)] ) ) (define (walk-global var sf) (let* ([safe (or sf no-bound-checks unsafe (variable-mark var '##compiler#always-bound) (intrinsic? var))] [blockvar (and (db-get db var 'assigned) (not (variable-visible? var block-compilation)))]) (when blockvar (set! fastrefs (add1 fastrefs))) (make-node '##core#global (list (if blockvar (blockvar-literal var) (literal var) ) safe blockvar var) '() ) ) ) (define (walk n e e-count here boxes) (let ((subs (node-subexpressions n)) (params (node-parameters n)) (class (node-class n)) ) (case class ((##core#undefined ##core#proc ##core#float) n) ((##core#variable) (walk-var (first params) e e-count #f) ) ((##core#direct_call) (let* ((source-info (second params)) (demand (fourth params))) (if (and emit-debug-info source-info) (let ((info (list dbg-index 'C_DEBUG_CALL (source-info->line source-info) (source-info->name source-info)))) (set! params (cons dbg-index params)) (set! debug-info (cons info debug-info)) (set! dbg-index (add1 dbg-index))) (set! params (cons #f params))) (set! allocated (+ allocated demand)) (make-node class params (mapwalk subs e e-count here boxes)))) ((##core#inline_allocate) (set! allocated (+ allocated (second params))) (make-node class params (mapwalk subs e e-count here boxes)) ) ((##core#box_float) (set! allocated (+ allocated 4)) ;; words-per-flonum (make-node class params (mapwalk subs e e-count here boxes))) ((##core#inline_ref) (set! allocated (+ allocated (bytes->words (estimate-foreign-result-size (second params))))) (make-node class params '()) ) ((##core#inline_loc_ref) (set! allocated (+ allocated (bytes->words (estimate-foreign-result-size (first params))))) (make-node class params (mapwalk subs e e-count here boxes)) ) ((##core#closure) (set! allocated (+ allocated (first params) 1)) (make-node '##core#closure params (mapwalk subs e e-count here boxes)) ) ((##core#box) (set! allocated (+ allocated 2)) (make-node '##core#box params (list (walk (first subs) e e-count here boxes))) ) ((##core#updatebox) (let* ([b (first subs)] [subs (mapwalk subs e e-count here boxes)] ) (make-node (cond [(and (eq? '##core#variable (node-class b)) (memq (first (node-parameters b)) boxes) ) (set! fastinits (add1 fastinits)) '##core#updatebox_i] [else class] ) '() subs) ) ) ((##core#provide) ;; Allocate enough space for the ##core#provided property. (let ((id (literal (first params)))) (set! allocated (+ allocated 8)) (make-node class (list id) '()))) ((##core#lambda ##core#direct_lambda) (let ((temps temporaries) (ftemps float-temporaries) (sigs signatures) (lping looping) (alc allocated) (direct (eq? class '##core#direct_lambda)) ) (set! temporaries 0) (set! float-temporaries '()) (set! allocated 0) (set! signatures '()) (set! looping 0) (##sys#decompose-lambda-list (third params) (lambda (vars argc rest) (let* ((id (first params)) (rest-mode (and rest (let ((rrefs (db-get db rest 'references))) (cond ((db-get db rest 'assigned) 'list) ((and (not (db-get db rest 'boxed-rest)) (or (not rrefs) (null? rrefs))) 'none) (else (db-get db rest 'rest-parameter)) ) ) ) ) (body (walk (car subs) (##sys#fast-reverse (if (eq? 'none rest-mode) (butlast vars) vars)) (if (eq? 'none rest-mode) (fx- (length vars) 1) (length vars)) id '()) ) ) (when (eq? rest-mode 'none) (debugging 'o "unused rest argument" rest id)) (when (and direct rest) (bomb "bad direct lambda" id allocated rest) ) (hash-table-set! lambda-table id (make-lambda-literal id (second params) vars argc rest (add1 temporaries) float-temporaries signatures allocated (or direct (memq id direct-call-ids)) (or (db-get db id 'closure-size) 0) (and (not rest) (> looping 0) (begin (debugging 'o "identified direct recursive calls" id looping) #t) ) (or direct (db-get db id 'customizable)) rest-mode body direct) ) (set! looping lping) (set! temporaries temps) (set! float-temporaries ftemps) (set! allocated alc) (set! signatures (lset-adjoin/eq? sigs argc)) (make-node '##core#proc (list (first params)) '()) ) ) ) ) ) ((let) (let* ([var (first params)] [val (first subs)] [boxvars (if (eq? '##core#box (node-class val)) (list var) '())] ) (set! temporaries (add1 temporaries)) (make-node '##core#bind (list 1) ; is actually never used with more than 1 variable (list (walk val e e-count here boxes) (walk (second subs) (append (##sys#fast-reverse params) e) (fx+ e-count 1) here (append boxvars boxes)) ) ) ) ) ((##core#let_float) (let ((i (first params)) (val (first subs))) (set! float-temporaries (cons i float-temporaries)) (make-node '##core#let_float params (list (walk val e e-count here boxes) (walk (second subs) e e-count here boxes) ) ) ) ) ((set!) (let ((var (first params)) (val (first subs)) ) (cond ((posq var e) => (lambda (i) (make-node '##core#setlocal (list (fx- e-count (fx+ i 1))) (list (walk val e e-count here boxes)) ) ) ) (else (let* ((cval (node-class val)) (blockvar (not (variable-visible? var block-compilation))) (immf (or (and (eq? cval 'quote) (immediate? (first (node-parameters val)))) (and (pair? (cdr params)) (second params)) (eq? '##core#undefined cval) ) ) ) (when blockvar (set! fastsets (add1 fastsets))) (make-node (if immf '##core#setglobal_i '##core#setglobal) (list (if blockvar (blockvar-literal var) (literal var) ) blockvar var) (list (walk (car subs) e e-count here boxes)) ) ) ) ) ) ) ((##core#call) (let* ((len (length (cdr subs))) (p2 (pair? (cdr params))) (source-info (and p2 (second params)))) (set! signatures (lset-adjoin/eq? signatures len)) (when (and (>= (length params) 3) (eq? here (third params))) (set! looping (add1 looping)) ) (if (and emit-debug-info source-info) (let ((info (list dbg-index 'C_DEBUG_CALL (source-info->line source-info) (source-info->name source-info)))) (set! params (cons dbg-index params)) (set! debug-info (cons info debug-info)) (set! dbg-index (add1 dbg-index))) (set! params (cons #f params))) (make-node class params (mapwalk subs e e-count here boxes)))) ((##core#recurse) (when (first params) (set! looping (add1 looping))) (make-node class params (mapwalk subs e e-count here boxes)) ) ((quote) (let ((c (first params))) (cond ((and (fixnum? c) (not (big-fixnum? c))) (immediate-literal c) ) ((number? c) (cond ((eq? 'fixnum number-type) (cond ((and (integer? c) (not (big-fixnum? c))) (warning (sprintf "coerced inexact literal number `~S' to fixnum ~S" c (inexact->exact c))) (immediate-literal (inexact->exact c)) ) (else (quit-compiling "cannot coerce inexact literal `~S' to fixnum" c)) ) ) (else (make-node '##core#literal (list (literal c)) '())) ) ) ((immediate? c) (immediate-literal c)) (else (make-node '##core#literal (list (literal c)) '())) ) ) ) ((if ##core#cond) (let* ((test (walk (first subs) e e-count here boxes)) (t0 temporaries) (a0 allocated) (x1 (walk (second subs) e e-count here boxes)) (t1 temporaries) (a1 allocated) (x2 (walk (third subs) e e-count here boxes))) (set! allocated (+ a0 (max (- allocated a1) (- a1 a0)))) (set! temporaries (+ t0 (max (- temporaries t1) (- t1 t0)))) (make-node class params (list test x1 x2)))) ((##core#switch) (let* ((exp (walk (first subs) e e-count here boxes)) (a0 allocated)) (make-node class params (cons exp (let loop ((j (first params)) (subs (cdr subs)) (ma 0)) (set! allocated a0) (if (zero? j) (let ((def (walk (car subs) e e-count here boxes))) (set! allocated (+ a0 (max ma (- allocated a0)))) (list def)) (let* ((const (walk (car subs) e e-count here boxes)) (body (walk (cadr subs) e e-count here boxes))) (cons* const body (loop (sub1 j) (cddr subs) (max (- allocated a0) ma)))))))))) ((##core#debug-event) (let* ((i dbg-index) (params (cons i params))) (set! debug-info (cons params debug-info)) (set! dbg-index (add1 dbg-index)) (make-node class params '()))) (else (make-node class params (mapwalk subs e e-count here boxes)) ) ) ) ) (define (mapwalk xs e e-count here boxes) (map (lambda (x) (walk x e e-count here boxes)) xs) ) (define (literal x) (cond [(immediate? x) (immediate-literal x)] ;; Fixnums that don't fit in 32 bits are treated as non-immediates, ;; that's why we do the (apparently redundant) C_blockp check here. ((and (##core#inline "C_blockp" x) (##core#inline "C_lambdainfop" x)) (let ((i lambda-info-literal-count)) (set! lambda-info-literals (cons x lambda-info-literals)) (set! lambda-info-literal-count (add1 lambda-info-literal-count)) (vector i) ) ) [(posv x literals) => (lambda (p) (fx- literal-count (fx+ p 1)))] [else (new-literal x)] ) ) (define (new-literal x) (let ([i literal-count]) (set! literals (cons x literals)) (set! literal-count (add1 literal-count)) i) ) (define (blockvar-literal var) (cond ((list-index (lambda (lit) (and (block-variable-literal? lit) (eq? var (block-variable-literal-name lit)) ) ) literals) => (lambda (p) (fx- literal-count (fx+ p 1)))) (else (new-literal (make-block-variable-literal var))) ) ) (define (immediate-literal x) (if (eq? (void) x) (make-node '##core#undefined '() '()) (make-node '##core#immediate (cond ((fixnum? x) `(fix ,x)) ((boolean? x) `(bool ,x)) ((char? x) `(char ,x)) ((null? x) '(nil)) ((eof-object? x) '(eof)) (else (bomb "bad immediate (prepare)")) ) '() ) ) ) (debugging 'p "preparation phase...") (let ((node2 (walk node '() 0 #f '()))) (when (positive? fastinits) (debugging 'o "fast box initializations" fastinits)) (when (positive? fastrefs) (debugging 'o "fast global references" fastrefs)) (when (positive? fastsets) (debugging 'o "fast global assignments" fastsets)) (values node2 (##sys#fast-reverse literals) (##sys#fast-reverse lambda-info-literals) lambda-table (reverse debug-info) ) ) )) ) chicken-5.1.0/chicken-uninstall.mdoc0000644000175000017500000000620513502227553017215 0ustar sjamaansjamaan.\" Copyright (c) 2007-2019, The CHICKEN Team .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. The name of the authors may not be used to endorse or promote products .\" derived from this software without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, .\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .\" .\" .Dd Apr 26, 2017 .Dt CHICKEN-UNINSTALL 1 .Os .Sh NAME .Nm chicken-uninstall .Nd uninstall extension library .Sh SYNOPSIS .Nm .Op Ar OPTION ... .Op Ar NAME ... .Sh DESCRIPTION .Nm removes one or more already installed extension libraries for the CHICKEN Scheme system. .Ar PATTERN may be a regular expression naming multiple extensions or just an extension name. .Pp The program accepts following arguments: .Bl -tag -width Ds .It Fl h , Fl help Show usage and exit. .It Fl version Show version and exit. .It Fl force Don't ask, just delete whatever matches. .It Fl match Treat .Ar NAME as a glob pattern. .It Fl s , Fl sudo Use external program to elevate privileges for deleting files. The program defaults to .Xr sudo 8 but can be overridden with .Ev SUDO environment variable. .It Fl host When cross-compiling, only uninstall host extensions. .It Fl target When cross-compiling, only uninstall target extensions. .El .Sh ENVIRONMENT The following environment variables change the behaviour of .Nm Ns : .Bl -tag -width CHICKEN_INSTALL_REPOSITORY .It Ev CHICKEN_INSTALL_REPOSITORY The path where extension libraries are installed. Defaults to the package library path selected during configuration .Pq usually $prefix/lib/chicken/ . .It Ev SUDO The command to execute when using .Fl s flag in command. If not provided, defaults to .Xr sudo 8 . .El .Sh EXIT STATUS .Ex -std .Sh SEE ALSO .Xr chicken 1 , .Xr chicken-install 1 , .Xr chicken-status 1 .Pp More information can be found in the .Lk http://wiki.call-cc.org/manual/index "CHICKEN User's Manual". .Sh AUTHORS .An The CHICKEN Team .Sh BUGS Submit bug reports by e-mail to .Mt chicken-janitors@nongnu.org chicken-5.1.0/chicken.irregex.import.c0000644000175000017500000002425413502227773017473 0ustar sjamaansjamaan/* Generated from chicken.irregex.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.irregex.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.irregex.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.irregex.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(701))){ C_save(t1); C_rereclaim2(701*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],15, C_text("chicken.irregex")); lf[2]=C_h_intern(&lf[2],7, C_text("irregex")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001irregex\376\001\000\000\027\001chicken.irregex#irregex\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001irregex\077\376\001\000\000" "\030\001chicken.irregex#irregex\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001string->sre\376\001\000\000\033\001chicken.irregex#strin" "g->sre\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001maybe-string->sre\376\001\000\000!\001chicken.irregex#maybe-string->sre\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\014\001sre->irregex\376\001\000\000\034\001chicken.irregex#sre->irregex\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001irre" "gex-names\376\001\000\000\035\001chicken.irregex#irregex-names\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001irregex-num-submatch" "es\376\001\000\000&\001chicken.irregex#irregex-num-submatches\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001string->irregex\376\001\000" "\000\037\001chicken.irregex#string->irregex\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001make-irregex-chunker\376\001\000\000$\001chic" "ken.irregex#make-irregex-chunker\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001irregex-extract\376\001\000\000\037\001chicken.irr" "egex#irregex-extract\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001irregex-fold\376\001\000\000\034\001chicken.irregex#irregex-fo" "ld\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001irregex-match\376\001\000\000\035\001chicken.irregex#irregex-match\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\016\001irregex-match\077\376\001\000\000\036\001chicken.irregex#irregex-match\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001irregex-sear" "ch\376\001\000\000\036\001chicken.irregex#irregex-search\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001irregex-split\376\001\000\000\035\001chicken" ".irregex#irregex-split\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001irregex-replace\376\001\000\000\037\001chicken.irregex#irreg" "ex-replace\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001irregex-replace/all\376\001\000\000#\001chicken.irregex#irregex-repla" "ce/all\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001irregex-fold/chunked\376\001\000\000$\001chicken.irregex#irregex-fold/chu" "nked\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001irregex-match/chunked\376\001\000\000%\001chicken.irregex#irregex-match/chu" "nked\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001irregex-search/chunked\376\001\000\000&\001chicken.irregex#irregex-search/c" "hunked\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001irregex-match-data\077\376\001\000\000#\001chicken.irregex#irregex-match-dat" "a\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001irregex-match-names\376\001\000\000#\001chicken.irregex#irregex-match-names\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\031\001irregex-match-start-index\376\001\000\000)\001chicken.irregex#irregex-match-start" "-index\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001irregex-match-end-index\376\001\000\000\047\001chicken.irregex#irregex-match" "-end-index\376\003\000\000\002\376\003\000\000\002\376\001\000\000\034\001irregex-match-num-submatches\376\001\000\000,\001chicken.irregex#irre" "gex-match-num-submatches\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001irregex-match-substring\376\001\000\000\047\001chicken.irr" "egex#irregex-match-substring\376\003\000\000\002\376\003\000\000\002\376\001\000\000\032\001irregex-match-valid-index\077\376\001\000\000\052\001chic" "ken.irregex#irregex-match-valid-index\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001irregex-match-start-chunk\376" "\001\000\000)\001chicken.irregex#irregex-match-start-chunk\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001irregex-match-end-" "chunk\376\001\000\000\047\001chicken.irregex#irregex-match-end-chunk\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001irregex-match-" "subchunk\376\001\000\000&\001chicken.irregex#irregex-match-subchunk\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001glob->sre\376\001\000" "\000\031\001chicken.irregex#glob->sre\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001sre->string\376\001\000\000\033\001chicken.irregex#sre" "->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001irregex-opt\376\001\000\000\033\001chicken.irregex#irregex-opt\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\015\001irregex-quote\376\001\000\000\035\001chicken.irregex#irregex-quote\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eirregex_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eirregex_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eirregex_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eirregex_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eirregex_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/c-backend.c0000644000175000017500000405507613502227761014730 0ustar sjamaansjamaan/* Generated from c-backend.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: c-backend.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.c-backend -output-file c-backend.c unit: c-backend uses: library eval expand data-structures extras c-platform compiler internal support */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_c_2dplatform_toplevel) C_externimport void C_ccall C_c_2dplatform_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_compiler_toplevel) C_externimport void C_ccall C_compiler_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_support_toplevel) C_externimport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[862]; static double C_possibly_force_alignment; #define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub2809(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word lit=(C_word )(C_a0); return(C_header_size(lit)); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub2805(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word lit=(C_word )(C_a0); #ifdef C_SIXTY_FOUR return((C_header_bits(lit) >> (24 + 32)) & 0xff); #else return((C_header_bits(lit) >> 24) & 0xff); #endif C_ret: #undef return return C_r;} C_noret_decl(f14458) static void C_ccall f14458(C_word c,C_word *av) C_noret; C_noret_decl(f14463) static void C_ccall f14463(C_word c,C_word *av) C_noret; C_noret_decl(f14468) static void C_ccall f14468(C_word c,C_word *av) C_noret; C_noret_decl(f14476) static void C_ccall f14476(C_word c,C_word *av) C_noret; C_noret_decl(f14481) static void C_ccall f14481(C_word c,C_word *av) C_noret; C_noret_decl(f14486) static void C_ccall f14486(C_word c,C_word *av) C_noret; C_noret_decl(f14499) static void C_ccall f14499(C_word c,C_word *av) C_noret; C_noret_decl(f14503) static void C_ccall f14503(C_word c,C_word *av) C_noret; C_noret_decl(f14510) static void C_ccall f14510(C_word c,C_word *av) C_noret; C_noret_decl(f14515) static void C_ccall f14515(C_word c,C_word *av) C_noret; C_noret_decl(f14584) static void C_ccall f14584(C_word c,C_word *av) C_noret; C_noret_decl(f14591) static void C_ccall f14591(C_word c,C_word *av) C_noret; C_noret_decl(f14613) static void C_ccall f14613(C_word c,C_word *av) C_noret; C_noret_decl(f_10127) static void C_ccall f_10127(C_word c,C_word *av) C_noret; C_noret_decl(f_10130) static void C_ccall f_10130(C_word c,C_word *av) C_noret; C_noret_decl(f_10133) static void C_ccall f_10133(C_word c,C_word *av) C_noret; C_noret_decl(f_10136) static void C_ccall f_10136(C_word c,C_word *av) C_noret; C_noret_decl(f_10139) static void C_ccall f_10139(C_word c,C_word *av) C_noret; C_noret_decl(f_10142) static void C_ccall f_10142(C_word c,C_word *av) C_noret; C_noret_decl(f_10151) static void C_ccall f_10151(C_word c,C_word *av) C_noret; C_noret_decl(f_10154) static void C_ccall f_10154(C_word c,C_word *av) C_noret; C_noret_decl(f_10157) static void C_ccall f_10157(C_word c,C_word *av) C_noret; C_noret_decl(f_10160) static void C_ccall f_10160(C_word c,C_word *av) C_noret; C_noret_decl(f_10163) static void C_ccall f_10163(C_word c,C_word *av) C_noret; C_noret_decl(f_10166) static void C_ccall f_10166(C_word c,C_word *av) C_noret; C_noret_decl(f_10169) static void C_ccall f_10169(C_word c,C_word *av) C_noret; C_noret_decl(f_10188) static void C_ccall f_10188(C_word c,C_word *av) C_noret; C_noret_decl(f_10190) static void C_fcall f_10190(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10200) static void C_ccall f_10200(C_word c,C_word *av) C_noret; C_noret_decl(f_10239) static void C_ccall f_10239(C_word c,C_word *av) C_noret; C_noret_decl(f_10241) static void C_fcall f_10241(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_10263) static void C_ccall f_10263(C_word c,C_word *av) C_noret; C_noret_decl(f_10275) static void C_fcall f_10275(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10285) static void C_ccall f_10285(C_word c,C_word *av) C_noret; C_noret_decl(f_10298) static void C_fcall f_10298(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10302) static void C_ccall f_10302(C_word c,C_word *av) C_noret; C_noret_decl(f_10305) static void C_ccall f_10305(C_word c,C_word *av) C_noret; C_noret_decl(f_10308) static void C_ccall f_10308(C_word c,C_word *av) C_noret; C_noret_decl(f_10311) static void C_ccall f_10311(C_word c,C_word *av) C_noret; C_noret_decl(f_10317) static void C_ccall f_10317(C_word c,C_word *av) C_noret; C_noret_decl(f_10320) static void C_ccall f_10320(C_word c,C_word *av) C_noret; C_noret_decl(f_10323) static void C_ccall f_10323(C_word c,C_word *av) C_noret; C_noret_decl(f_10328) static void C_fcall f_10328(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10338) static void C_ccall f_10338(C_word c,C_word *av) C_noret; C_noret_decl(f_10341) static void C_ccall f_10341(C_word c,C_word *av) C_noret; C_noret_decl(f_10360) static void C_ccall f_10360(C_word c,C_word *av) C_noret; C_noret_decl(f_10372) static void C_ccall f_10372(C_word c,C_word *av) C_noret; C_noret_decl(f_10374) static void C_ccall f_10374(C_word c,C_word *av) C_noret; C_noret_decl(f_10376) static void C_fcall f_10376(C_word t0,C_word t1) C_noret; C_noret_decl(f_10381) static void C_fcall f_10381(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10451) static void C_fcall f_10451(C_word t0,C_word t1) C_noret; C_noret_decl(f_10568) static void C_fcall f_10568(C_word t0,C_word t1) C_noret; C_noret_decl(f_10589) static void C_fcall f_10589(C_word t0,C_word t1) C_noret; C_noret_decl(f_10721) static void C_fcall f_10721(C_word t0,C_word t1) C_noret; C_noret_decl(f_10733) static void C_fcall f_10733(C_word t0,C_word t1) C_noret; C_noret_decl(f_10748) static void C_ccall f_10748(C_word c,C_word *av) C_noret; C_noret_decl(f_10752) static void C_fcall f_10752(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10785) static void C_fcall f_10785(C_word t0,C_word t1) C_noret; C_noret_decl(f_10796) static void C_ccall f_10796(C_word c,C_word *av) C_noret; C_noret_decl(f_10802) static void C_fcall f_10802(C_word t0,C_word t1) C_noret; C_noret_decl(f_10813) static void C_ccall f_10813(C_word c,C_word *av) C_noret; C_noret_decl(f_10819) static void C_fcall f_10819(C_word t0,C_word t1) C_noret; C_noret_decl(f_10826) static void C_ccall f_10826(C_word c,C_word *av) C_noret; C_noret_decl(f_10830) static void C_ccall f_10830(C_word c,C_word *av) C_noret; C_noret_decl(f_10834) static void C_ccall f_10834(C_word c,C_word *av) C_noret; C_noret_decl(f_10852) static void C_ccall f_10852(C_word c,C_word *av) C_noret; C_noret_decl(f_10854) static void C_fcall f_10854(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10879) static void C_ccall f_10879(C_word c,C_word *av) C_noret; C_noret_decl(f_10896) static void C_fcall f_10896(C_word t0,C_word t1) C_noret; C_noret_decl(f_10903) static void C_ccall f_10903(C_word c,C_word *av) C_noret; C_noret_decl(f_10913) static void C_fcall f_10913(C_word t0,C_word t1) C_noret; C_noret_decl(f_10920) static void C_ccall f_10920(C_word c,C_word *av) C_noret; C_noret_decl(f_10930) static void C_fcall f_10930(C_word t0,C_word t1) C_noret; C_noret_decl(f_10937) static void C_ccall f_10937(C_word c,C_word *av) C_noret; C_noret_decl(f_10947) static void C_fcall f_10947(C_word t0,C_word t1) C_noret; C_noret_decl(f_10954) static void C_ccall f_10954(C_word c,C_word *av) C_noret; C_noret_decl(f_10964) static void C_fcall f_10964(C_word t0,C_word t1) C_noret; C_noret_decl(f_10971) static void C_ccall f_10971(C_word c,C_word *av) C_noret; C_noret_decl(f_10981) static void C_fcall f_10981(C_word t0,C_word t1) C_noret; C_noret_decl(f_10988) static void C_ccall f_10988(C_word c,C_word *av) C_noret; C_noret_decl(f_10998) static void C_fcall f_10998(C_word t0,C_word t1) C_noret; C_noret_decl(f_11017) static void C_ccall f_11017(C_word c,C_word *av) C_noret; C_noret_decl(f_11021) static void C_ccall f_11021(C_word c,C_word *av) C_noret; C_noret_decl(f_11042) static void C_ccall f_11042(C_word c,C_word *av) C_noret; C_noret_decl(f_11044) static void C_fcall f_11044(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11069) static void C_ccall f_11069(C_word c,C_word *av) C_noret; C_noret_decl(f_11468) static void C_fcall f_11468(C_word t0,C_word t1) C_noret; C_noret_decl(f_11470) static void C_fcall f_11470(C_word t0,C_word t1) C_noret; C_noret_decl(f_11498) static void C_fcall f_11498(C_word t0,C_word t1) C_noret; C_noret_decl(f_11525) static void C_fcall f_11525(C_word t0,C_word t1) C_noret; C_noret_decl(f_11750) static void C_fcall f_11750(C_word t0,C_word t1) C_noret; C_noret_decl(f_11759) static void C_fcall f_11759(C_word t0,C_word t1) C_noret; C_noret_decl(f_11768) static void C_ccall f_11768(C_word c,C_word *av) C_noret; C_noret_decl(f_11789) static void C_fcall f_11789(C_word t0,C_word t1) C_noret; C_noret_decl(f_11866) static void C_ccall f_11866(C_word c,C_word *av) C_noret; C_noret_decl(f_12133) static void C_fcall f_12133(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12135) static void C_fcall f_12135(C_word t0,C_word t1) C_noret; C_noret_decl(f_12202) static void C_ccall f_12202(C_word c,C_word *av) C_noret; C_noret_decl(f_12208) static void C_ccall f_12208(C_word c,C_word *av) C_noret; C_noret_decl(f_12211) static void C_ccall f_12211(C_word c,C_word *av) C_noret; C_noret_decl(f_12214) static void C_ccall f_12214(C_word c,C_word *av) C_noret; C_noret_decl(f_12226) static void C_ccall f_12226(C_word c,C_word *av) C_noret; C_noret_decl(f_12232) static void C_ccall f_12232(C_word c,C_word *av) C_noret; C_noret_decl(f_12235) static void C_ccall f_12235(C_word c,C_word *av) C_noret; C_noret_decl(f_12238) static void C_ccall f_12238(C_word c,C_word *av) C_noret; C_noret_decl(f_12250) static void C_fcall f_12250(C_word t0,C_word t1) C_noret; C_noret_decl(f_12253) static void C_ccall f_12253(C_word c,C_word *av) C_noret; C_noret_decl(f_12259) static void C_ccall f_12259(C_word c,C_word *av) C_noret; C_noret_decl(f_12262) static void C_ccall f_12262(C_word c,C_word *av) C_noret; C_noret_decl(f_12265) static void C_ccall f_12265(C_word c,C_word *av) C_noret; C_noret_decl(f_12277) static void C_ccall f_12277(C_word c,C_word *av) C_noret; C_noret_decl(f_12283) static void C_ccall f_12283(C_word c,C_word *av) C_noret; C_noret_decl(f_12286) static void C_ccall f_12286(C_word c,C_word *av) C_noret; C_noret_decl(f_12289) static void C_ccall f_12289(C_word c,C_word *av) C_noret; C_noret_decl(f_12304) static void C_ccall f_12304(C_word c,C_word *av) C_noret; C_noret_decl(f_12310) static void C_ccall f_12310(C_word c,C_word *av) C_noret; C_noret_decl(f_12313) static void C_ccall f_12313(C_word c,C_word *av) C_noret; C_noret_decl(f_12316) static void C_ccall f_12316(C_word c,C_word *av) C_noret; C_noret_decl(f_12331) static void C_ccall f_12331(C_word c,C_word *av) C_noret; C_noret_decl(f_12337) static void C_ccall f_12337(C_word c,C_word *av) C_noret; C_noret_decl(f_12340) static void C_ccall f_12340(C_word c,C_word *av) C_noret; C_noret_decl(f_12343) static void C_ccall f_12343(C_word c,C_word *av) C_noret; C_noret_decl(f_12358) static void C_ccall f_12358(C_word c,C_word *av) C_noret; C_noret_decl(f_12364) static void C_ccall f_12364(C_word c,C_word *av) C_noret; C_noret_decl(f_12367) static void C_ccall f_12367(C_word c,C_word *av) C_noret; C_noret_decl(f_12370) static void C_ccall f_12370(C_word c,C_word *av) C_noret; C_noret_decl(f_12385) static void C_ccall f_12385(C_word c,C_word *av) C_noret; C_noret_decl(f_12391) static void C_ccall f_12391(C_word c,C_word *av) C_noret; C_noret_decl(f_12394) static void C_ccall f_12394(C_word c,C_word *av) C_noret; C_noret_decl(f_12397) static void C_ccall f_12397(C_word c,C_word *av) C_noret; C_noret_decl(f_12409) static void C_ccall f_12409(C_word c,C_word *av) C_noret; C_noret_decl(f_12415) static void C_ccall f_12415(C_word c,C_word *av) C_noret; C_noret_decl(f_12418) static void C_ccall f_12418(C_word c,C_word *av) C_noret; C_noret_decl(f_12421) static void C_ccall f_12421(C_word c,C_word *av) C_noret; C_noret_decl(f_12433) static void C_ccall f_12433(C_word c,C_word *av) C_noret; C_noret_decl(f_12439) static void C_ccall f_12439(C_word c,C_word *av) C_noret; C_noret_decl(f_12442) static void C_ccall f_12442(C_word c,C_word *av) C_noret; C_noret_decl(f_12445) static void C_ccall f_12445(C_word c,C_word *av) C_noret; C_noret_decl(f_12466) static void C_ccall f_12466(C_word c,C_word *av) C_noret; C_noret_decl(f_12470) static void C_fcall f_12470(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12487) static void C_fcall f_12487(C_word t0,C_word t1) C_noret; C_noret_decl(f_12502) static void C_ccall f_12502(C_word c,C_word *av) C_noret; C_noret_decl(f_12508) static void C_ccall f_12508(C_word c,C_word *av) C_noret; C_noret_decl(f_12511) static void C_ccall f_12511(C_word c,C_word *av) C_noret; C_noret_decl(f_12514) static void C_ccall f_12514(C_word c,C_word *av) C_noret; C_noret_decl(f_12526) static void C_ccall f_12526(C_word c,C_word *av) C_noret; C_noret_decl(f_12532) static void C_ccall f_12532(C_word c,C_word *av) C_noret; C_noret_decl(f_12535) static void C_ccall f_12535(C_word c,C_word *av) C_noret; C_noret_decl(f_12538) static void C_ccall f_12538(C_word c,C_word *av) C_noret; C_noret_decl(f_12550) static void C_ccall f_12550(C_word c,C_word *av) C_noret; C_noret_decl(f_12556) static void C_ccall f_12556(C_word c,C_word *av) C_noret; C_noret_decl(f_12559) static void C_ccall f_12559(C_word c,C_word *av) C_noret; C_noret_decl(f_12562) static void C_ccall f_12562(C_word c,C_word *av) C_noret; C_noret_decl(f_12574) static void C_ccall f_12574(C_word c,C_word *av) C_noret; C_noret_decl(f_12580) static void C_ccall f_12580(C_word c,C_word *av) C_noret; C_noret_decl(f_12583) static void C_ccall f_12583(C_word c,C_word *av) C_noret; C_noret_decl(f_12586) static void C_ccall f_12586(C_word c,C_word *av) C_noret; C_noret_decl(f_12598) static void C_ccall f_12598(C_word c,C_word *av) C_noret; C_noret_decl(f_12604) static void C_ccall f_12604(C_word c,C_word *av) C_noret; C_noret_decl(f_12607) static void C_ccall f_12607(C_word c,C_word *av) C_noret; C_noret_decl(f_12610) static void C_ccall f_12610(C_word c,C_word *av) C_noret; C_noret_decl(f_12638) static void C_ccall f_12638(C_word c,C_word *av) C_noret; C_noret_decl(f_12644) static void C_ccall f_12644(C_word c,C_word *av) C_noret; C_noret_decl(f_12647) static void C_ccall f_12647(C_word c,C_word *av) C_noret; C_noret_decl(f_12650) static void C_ccall f_12650(C_word c,C_word *av) C_noret; C_noret_decl(f_12662) static void C_ccall f_12662(C_word c,C_word *av) C_noret; C_noret_decl(f_12668) static void C_ccall f_12668(C_word c,C_word *av) C_noret; C_noret_decl(f_12671) static void C_ccall f_12671(C_word c,C_word *av) C_noret; C_noret_decl(f_12674) static void C_ccall f_12674(C_word c,C_word *av) C_noret; C_noret_decl(f_12686) static void C_ccall f_12686(C_word c,C_word *av) C_noret; C_noret_decl(f_12692) static void C_ccall f_12692(C_word c,C_word *av) C_noret; C_noret_decl(f_12695) static void C_ccall f_12695(C_word c,C_word *av) C_noret; C_noret_decl(f_12698) static void C_ccall f_12698(C_word c,C_word *av) C_noret; C_noret_decl(f_12920) static void C_fcall f_12920(C_word t0,C_word t1) C_noret; C_noret_decl(f_12929) static void C_fcall f_12929(C_word t0,C_word t1) C_noret; C_noret_decl(f_12995) static void C_ccall f_12995(C_word c,C_word *av) C_noret; C_noret_decl(f_13017) static void C_ccall f_13017(C_word c,C_word *av) C_noret; C_noret_decl(f_13045) static void C_fcall f_13045(C_word t0,C_word t1) C_noret; C_noret_decl(f_13104) static void C_ccall f_13104(C_word c,C_word *av) C_noret; C_noret_decl(f_13111) static void C_ccall f_13111(C_word c,C_word *av) C_noret; C_noret_decl(f_13131) static void C_ccall f_13131(C_word c,C_word *av) C_noret; C_noret_decl(f_13138) static void C_ccall f_13138(C_word c,C_word *av) C_noret; C_noret_decl(f_13151) static void C_ccall f_13151(C_word c,C_word *av) C_noret; C_noret_decl(f_13158) static void C_ccall f_13158(C_word c,C_word *av) C_noret; C_noret_decl(f_13181) static void C_ccall f_13181(C_word c,C_word *av) C_noret; C_noret_decl(f_13189) static void C_ccall f_13189(C_word c,C_word *av) C_noret; C_noret_decl(f_13211) static void C_ccall f_13211(C_word c,C_word *av) C_noret; C_noret_decl(f_13219) static void C_ccall f_13219(C_word c,C_word *av) C_noret; C_noret_decl(f_13223) static void C_ccall f_13223(C_word c,C_word *av) C_noret; C_noret_decl(f_13225) static void C_ccall f_13225(C_word c,C_word *av) C_noret; C_noret_decl(f_13254) static void C_ccall f_13254(C_word c,C_word *av) C_noret; C_noret_decl(f_3192) static void C_ccall f_3192(C_word c,C_word *av) C_noret; C_noret_decl(f_3195) static void C_ccall f_3195(C_word c,C_word *av) C_noret; C_noret_decl(f_3198) static void C_ccall f_3198(C_word c,C_word *av) C_noret; C_noret_decl(f_3201) static void C_ccall f_3201(C_word c,C_word *av) C_noret; C_noret_decl(f_3204) static void C_ccall f_3204(C_word c,C_word *av) C_noret; C_noret_decl(f_3207) static void C_ccall f_3207(C_word c,C_word *av) C_noret; C_noret_decl(f_3210) static void C_ccall f_3210(C_word c,C_word *av) C_noret; C_noret_decl(f_3213) static void C_ccall f_3213(C_word c,C_word *av) C_noret; C_noret_decl(f_3216) static void C_ccall f_3216(C_word c,C_word *av) C_noret; C_noret_decl(f_3657) static void C_fcall f_3657(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3671) static void C_ccall f_3671(C_word c,C_word *av) C_noret; C_noret_decl(f_4229) static void C_fcall f_4229(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4235) static void C_fcall f_4235(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4249) static void C_ccall f_4249(C_word c,C_word *av) C_noret; C_noret_decl(f_4253) static void C_ccall f_4253(C_word c,C_word *av) C_noret; C_noret_decl(f_4409) static void C_ccall f_4409(C_word c,C_word *av) C_noret; C_noret_decl(f_4421) static void C_ccall f_4421(C_word c,C_word *av) C_noret; C_noret_decl(f_4497) static void C_ccall f_4497(C_word c,C_word *av) C_noret; C_noret_decl(f_4517) static void C_fcall f_4517(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4527) static void C_ccall f_4527(C_word c,C_word *av) C_noret; C_noret_decl(f_4540) static void C_fcall f_4540(C_word t0,C_word t1) C_noret; C_noret_decl(f_4549) static void C_ccall f_4549(C_word c,C_word *av) C_noret; C_noret_decl(f_4554) static void C_fcall f_4554(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4564) static void C_ccall f_4564(C_word c,C_word *av) C_noret; C_noret_decl(f_4605) static void C_ccall f_4605(C_word c,C_word *av) C_noret; C_noret_decl(f_4611) static void C_ccall f_4611(C_word c,C_word *av) C_noret; C_noret_decl(f_4616) static void C_ccall f_4616(C_word c,C_word *av) C_noret; C_noret_decl(f_4624) static void C_ccall f_4624(C_word c,C_word *av) C_noret; C_noret_decl(f_4628) static void C_ccall f_4628(C_word c,C_word *av) C_noret; C_noret_decl(f_4638) static void C_ccall f_4638(C_word c,C_word *av) C_noret; C_noret_decl(f_4649) static void C_ccall f_4649(C_word c,C_word *av) C_noret; C_noret_decl(f_4653) static void C_ccall f_4653(C_word c,C_word *av) C_noret; C_noret_decl(f_4656) static void C_ccall f_4656(C_word c,C_word *av) C_noret; C_noret_decl(f_4658) static void C_fcall f_4658(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4662) static void C_ccall f_4662(C_word c,C_word *av) C_noret; C_noret_decl(f_4670) static void C_fcall f_4670(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4673) static void C_fcall f_4673(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4677) static void C_ccall f_4677(C_word c,C_word *av) C_noret; C_noret_decl(f_4680) static void C_ccall f_4680(C_word c,C_word *av) C_noret; C_noret_decl(f_4683) static void C_ccall f_4683(C_word c,C_word *av) C_noret; C_noret_decl(f_4820) static void C_ccall f_4820(C_word c,C_word *av) C_noret; C_noret_decl(f_4823) static void C_ccall f_4823(C_word c,C_word *av) C_noret; C_noret_decl(f_4826) static void C_ccall f_4826(C_word c,C_word *av) C_noret; C_noret_decl(f_4829) static void C_ccall f_4829(C_word c,C_word *av) C_noret; C_noret_decl(f_4832) static void C_ccall f_4832(C_word c,C_word *av) C_noret; C_noret_decl(f_4835) static void C_ccall f_4835(C_word c,C_word *av) C_noret; C_noret_decl(f_4878) static void C_fcall f_4878(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4888) static void C_ccall f_4888(C_word c,C_word *av) C_noret; C_noret_decl(f_4891) static void C_ccall f_4891(C_word c,C_word *av) C_noret; C_noret_decl(f_4894) static void C_ccall f_4894(C_word c,C_word *av) C_noret; C_noret_decl(f_4926) static void C_ccall f_4926(C_word c,C_word *av) C_noret; C_noret_decl(f_4929) static void C_ccall f_4929(C_word c,C_word *av) C_noret; C_noret_decl(f_4932) static void C_ccall f_4932(C_word c,C_word *av) C_noret; C_noret_decl(f_4965) static void C_ccall f_4965(C_word c,C_word *av) C_noret; C_noret_decl(f_4968) static void C_ccall f_4968(C_word c,C_word *av) C_noret; C_noret_decl(f_4984) static void C_ccall f_4984(C_word c,C_word *av) C_noret; C_noret_decl(f_4987) static void C_ccall f_4987(C_word c,C_word *av) C_noret; C_noret_decl(f_5003) static void C_ccall f_5003(C_word c,C_word *av) C_noret; C_noret_decl(f_5006) static void C_ccall f_5006(C_word c,C_word *av) C_noret; C_noret_decl(f_5030) static void C_ccall f_5030(C_word c,C_word *av) C_noret; C_noret_decl(f_5033) static void C_ccall f_5033(C_word c,C_word *av) C_noret; C_noret_decl(f_5049) static void C_ccall f_5049(C_word c,C_word *av) C_noret; C_noret_decl(f_5052) static void C_ccall f_5052(C_word c,C_word *av) C_noret; C_noret_decl(f_5055) static void C_ccall f_5055(C_word c,C_word *av) C_noret; C_noret_decl(f_5058) static void C_ccall f_5058(C_word c,C_word *av) C_noret; C_noret_decl(f_5082) static void C_ccall f_5082(C_word c,C_word *av) C_noret; C_noret_decl(f_5085) static void C_ccall f_5085(C_word c,C_word *av) C_noret; C_noret_decl(f_5088) static void C_ccall f_5088(C_word c,C_word *av) C_noret; C_noret_decl(f_5091) static void C_ccall f_5091(C_word c,C_word *av) C_noret; C_noret_decl(f_5119) static void C_ccall f_5119(C_word c,C_word *av) C_noret; C_noret_decl(f_5122) static void C_ccall f_5122(C_word c,C_word *av) C_noret; C_noret_decl(f_5125) static void C_ccall f_5125(C_word c,C_word *av) C_noret; C_noret_decl(f_5128) static void C_ccall f_5128(C_word c,C_word *av) C_noret; C_noret_decl(f_5148) static void C_ccall f_5148(C_word c,C_word *av) C_noret; C_noret_decl(f_5151) static void C_ccall f_5151(C_word c,C_word *av) C_noret; C_noret_decl(f_5154) static void C_ccall f_5154(C_word c,C_word *av) C_noret; C_noret_decl(f_5157) static void C_ccall f_5157(C_word c,C_word *av) C_noret; C_noret_decl(f_5180) static void C_ccall f_5180(C_word c,C_word *av) C_noret; C_noret_decl(f_5181) static void C_fcall f_5181(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5185) static void C_ccall f_5185(C_word c,C_word *av) C_noret; C_noret_decl(f_5188) static void C_ccall f_5188(C_word c,C_word *av) C_noret; C_noret_decl(f_5194) static void C_ccall f_5194(C_word c,C_word *av) C_noret; C_noret_decl(f_5203) static void C_ccall f_5203(C_word c,C_word *av) C_noret; C_noret_decl(f_5210) static void C_fcall f_5210(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5220) static void C_ccall f_5220(C_word c,C_word *av) C_noret; C_noret_decl(f_5254) static void C_ccall f_5254(C_word c,C_word *av) C_noret; C_noret_decl(f_5257) static void C_ccall f_5257(C_word c,C_word *av) C_noret; C_noret_decl(f_5286) static void C_ccall f_5286(C_word c,C_word *av) C_noret; C_noret_decl(f_5328) static void C_ccall f_5328(C_word c,C_word *av) C_noret; C_noret_decl(f_5332) static void C_ccall f_5332(C_word c,C_word *av) C_noret; C_noret_decl(f_5363) static void C_ccall f_5363(C_word c,C_word *av) C_noret; C_noret_decl(f_5366) static void C_ccall f_5366(C_word c,C_word *av) C_noret; C_noret_decl(f_5369) static void C_ccall f_5369(C_word c,C_word *av) C_noret; C_noret_decl(f_5380) static void C_ccall f_5380(C_word c,C_word *av) C_noret; C_noret_decl(f_5384) static void C_ccall f_5384(C_word c,C_word *av) C_noret; C_noret_decl(f_5411) static void C_ccall f_5411(C_word c,C_word *av) C_noret; C_noret_decl(f_5414) static void C_ccall f_5414(C_word c,C_word *av) C_noret; C_noret_decl(f_5425) static void C_ccall f_5425(C_word c,C_word *av) C_noret; C_noret_decl(f_5429) static void C_ccall f_5429(C_word c,C_word *av) C_noret; C_noret_decl(f_5432) static void C_ccall f_5432(C_word c,C_word *av) C_noret; C_noret_decl(f_5435) static void C_ccall f_5435(C_word c,C_word *av) C_noret; C_noret_decl(f_5446) static void C_ccall f_5446(C_word c,C_word *av) C_noret; C_noret_decl(f_5450) static void C_ccall f_5450(C_word c,C_word *av) C_noret; C_noret_decl(f_5487) static void C_ccall f_5487(C_word c,C_word *av) C_noret; C_noret_decl(f_5490) static void C_fcall f_5490(C_word t0,C_word t1) C_noret; C_noret_decl(f_5493) static void C_fcall f_5493(C_word t0,C_word t1) C_noret; C_noret_decl(f_5496) static void C_fcall f_5496(C_word t0,C_word t1) C_noret; C_noret_decl(f_5500) static void C_ccall f_5500(C_word c,C_word *av) C_noret; C_noret_decl(f_5509) static void C_ccall f_5509(C_word c,C_word *av) C_noret; C_noret_decl(f_5512) static void C_ccall f_5512(C_word c,C_word *av) C_noret; C_noret_decl(f_5515) static void C_ccall f_5515(C_word c,C_word *av) C_noret; C_noret_decl(f_5531) static void C_ccall f_5531(C_word c,C_word *av) C_noret; C_noret_decl(f_5534) static void C_ccall f_5534(C_word c,C_word *av) C_noret; C_noret_decl(f_5537) static void C_ccall f_5537(C_word c,C_word *av) C_noret; C_noret_decl(f_5538) static void C_fcall f_5538(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5542) static void C_ccall f_5542(C_word c,C_word *av) C_noret; C_noret_decl(f_5545) static void C_ccall f_5545(C_word c,C_word *av) C_noret; C_noret_decl(f_5554) static void C_ccall f_5554(C_word c,C_word *av) C_noret; C_noret_decl(f_5562) static void C_ccall f_5562(C_word c,C_word *av) C_noret; C_noret_decl(f_5568) static void C_ccall f_5568(C_word c,C_word *av) C_noret; C_noret_decl(f_5571) static void C_ccall f_5571(C_word c,C_word *av) C_noret; C_noret_decl(f_5579) static void C_fcall f_5579(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5589) static void C_ccall f_5589(C_word c,C_word *av) C_noret; C_noret_decl(f_5616) static void C_fcall f_5616(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5626) static void C_ccall f_5626(C_word c,C_word *av) C_noret; C_noret_decl(f_5653) static void C_ccall f_5653(C_word c,C_word *av) C_noret; C_noret_decl(f_5660) static void C_ccall f_5660(C_word c,C_word *av) C_noret; C_noret_decl(f_5666) static void C_ccall f_5666(C_word c,C_word *av) C_noret; C_noret_decl(f_5669) static void C_ccall f_5669(C_word c,C_word *av) C_noret; C_noret_decl(f_5672) static void C_ccall f_5672(C_word c,C_word *av) C_noret; C_noret_decl(f_5681) static void C_ccall f_5681(C_word c,C_word *av) C_noret; C_noret_decl(f_5684) static void C_ccall f_5684(C_word c,C_word *av) C_noret; C_noret_decl(f_5687) static void C_ccall f_5687(C_word c,C_word *av) C_noret; C_noret_decl(f_5690) static void C_ccall f_5690(C_word c,C_word *av) C_noret; C_noret_decl(f_5700) static void C_ccall f_5700(C_word c,C_word *av) C_noret; C_noret_decl(f_5711) static void C_ccall f_5711(C_word c,C_word *av) C_noret; C_noret_decl(f_5715) static void C_ccall f_5715(C_word c,C_word *av) C_noret; C_noret_decl(f_5718) static void C_ccall f_5718(C_word c,C_word *av) C_noret; C_noret_decl(f_5731) static void C_ccall f_5731(C_word c,C_word *av) C_noret; C_noret_decl(f_5737) static void C_fcall f_5737(C_word t0,C_word t1) C_noret; C_noret_decl(f_5740) static void C_ccall f_5740(C_word c,C_word *av) C_noret; C_noret_decl(f_5752) static void C_ccall f_5752(C_word c,C_word *av) C_noret; C_noret_decl(f_5755) static void C_ccall f_5755(C_word c,C_word *av) C_noret; C_noret_decl(f_5758) static void C_ccall f_5758(C_word c,C_word *av) C_noret; C_noret_decl(f_5761) static void C_ccall f_5761(C_word c,C_word *av) C_noret; C_noret_decl(f_5768) static void C_ccall f_5768(C_word c,C_word *av) C_noret; C_noret_decl(f_5778) static void C_ccall f_5778(C_word c,C_word *av) C_noret; C_noret_decl(f_5786) static void C_ccall f_5786(C_word c,C_word *av) C_noret; C_noret_decl(f_5794) static void C_ccall f_5794(C_word c,C_word *av) C_noret; C_noret_decl(f_5807) static void C_ccall f_5807(C_word c,C_word *av) C_noret; C_noret_decl(f_5811) static void C_ccall f_5811(C_word c,C_word *av) C_noret; C_noret_decl(f_5819) static void C_ccall f_5819(C_word c,C_word *av) C_noret; C_noret_decl(f_5827) static void C_ccall f_5827(C_word c,C_word *av) C_noret; C_noret_decl(f_5834) static void C_ccall f_5834(C_word c,C_word *av) C_noret; C_noret_decl(f_5839) static void C_ccall f_5839(C_word c,C_word *av) C_noret; C_noret_decl(f_5846) static void C_ccall f_5846(C_word c,C_word *av) C_noret; C_noret_decl(f_5850) static void C_ccall f_5850(C_word c,C_word *av) C_noret; C_noret_decl(f_5853) static void C_ccall f_5853(C_word c,C_word *av) C_noret; C_noret_decl(f_5856) static void C_ccall f_5856(C_word c,C_word *av) C_noret; C_noret_decl(f_5859) static void C_ccall f_5859(C_word c,C_word *av) C_noret; C_noret_decl(f_5862) static void C_ccall f_5862(C_word c,C_word *av) C_noret; C_noret_decl(f_5865) static void C_ccall f_5865(C_word c,C_word *av) C_noret; C_noret_decl(f_5871) static void C_fcall f_5871(C_word t0,C_word t1) C_noret; C_noret_decl(f_5884) static void C_ccall f_5884(C_word c,C_word *av) C_noret; C_noret_decl(f_5889) static void C_ccall f_5889(C_word c,C_word *av) C_noret; C_noret_decl(f_5912) static void C_ccall f_5912(C_word c,C_word *av) C_noret; C_noret_decl(f_5916) static void C_ccall f_5916(C_word c,C_word *av) C_noret; C_noret_decl(f_5919) static void C_ccall f_5919(C_word c,C_word *av) C_noret; C_noret_decl(f_5939) static void C_ccall f_5939(C_word c,C_word *av) C_noret; C_noret_decl(f_5946) static void C_ccall f_5946(C_word c,C_word *av) C_noret; C_noret_decl(f_5950) static void C_ccall f_5950(C_word c,C_word *av) C_noret; C_noret_decl(f_5954) static void C_ccall f_5954(C_word c,C_word *av) C_noret; C_noret_decl(f_5997) static void C_ccall f_5997(C_word c,C_word *av) C_noret; C_noret_decl(f_6003) static void C_ccall f_6003(C_word c,C_word *av) C_noret; C_noret_decl(f_6006) static void C_ccall f_6006(C_word c,C_word *av) C_noret; C_noret_decl(f_6007) static void C_fcall f_6007(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6011) static void C_ccall f_6011(C_word c,C_word *av) C_noret; C_noret_decl(f_6014) static void C_ccall f_6014(C_word c,C_word *av) C_noret; C_noret_decl(f_6023) static void C_ccall f_6023(C_word c,C_word *av) C_noret; C_noret_decl(f_6031) static void C_ccall f_6031(C_word c,C_word *av) C_noret; C_noret_decl(f_6037) static void C_ccall f_6037(C_word c,C_word *av) C_noret; C_noret_decl(f_6042) static void C_fcall f_6042(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6052) static void C_ccall f_6052(C_word c,C_word *av) C_noret; C_noret_decl(f_6079) static void C_fcall f_6079(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6089) static void C_ccall f_6089(C_word c,C_word *av) C_noret; C_noret_decl(f_6116) static void C_ccall f_6116(C_word c,C_word *av) C_noret; C_noret_decl(f_6123) static void C_ccall f_6123(C_word c,C_word *av) C_noret; C_noret_decl(f_6126) static void C_ccall f_6126(C_word c,C_word *av) C_noret; C_noret_decl(f_6129) static void C_ccall f_6129(C_word c,C_word *av) C_noret; C_noret_decl(f_6157) static void C_ccall f_6157(C_word c,C_word *av) C_noret; C_noret_decl(f_6170) static void C_ccall f_6170(C_word c,C_word *av) C_noret; C_noret_decl(f_6174) static void C_ccall f_6174(C_word c,C_word *av) C_noret; C_noret_decl(f_6177) static void C_ccall f_6177(C_word c,C_word *av) C_noret; C_noret_decl(f_6180) static void C_ccall f_6180(C_word c,C_word *av) C_noret; C_noret_decl(f_6183) static void C_ccall f_6183(C_word c,C_word *av) C_noret; C_noret_decl(f_6186) static void C_ccall f_6186(C_word c,C_word *av) C_noret; C_noret_decl(f_6189) static void C_ccall f_6189(C_word c,C_word *av) C_noret; C_noret_decl(f_6192) static void C_ccall f_6192(C_word c,C_word *av) C_noret; C_noret_decl(f_6204) static void C_ccall f_6204(C_word c,C_word *av) C_noret; C_noret_decl(f_6216) static void C_ccall f_6216(C_word c,C_word *av) C_noret; C_noret_decl(f_6234) static void C_ccall f_6234(C_word c,C_word *av) C_noret; C_noret_decl(f_6254) static void C_ccall f_6254(C_word c,C_word *av) C_noret; C_noret_decl(f_6261) static void C_ccall f_6261(C_word c,C_word *av) C_noret; C_noret_decl(f_6265) static void C_ccall f_6265(C_word c,C_word *av) C_noret; C_noret_decl(f_6294) static void C_ccall f_6294(C_word c,C_word *av) C_noret; C_noret_decl(f_6297) static void C_ccall f_6297(C_word c,C_word *av) C_noret; C_noret_decl(f_6304) static void C_ccall f_6304(C_word c,C_word *av) C_noret; C_noret_decl(f_6317) static void C_ccall f_6317(C_word c,C_word *av) C_noret; C_noret_decl(f_6320) static void C_ccall f_6320(C_word c,C_word *av) C_noret; C_noret_decl(f_6336) static void C_ccall f_6336(C_word c,C_word *av) C_noret; C_noret_decl(f_6339) static void C_ccall f_6339(C_word c,C_word *av) C_noret; C_noret_decl(f_6372) static void C_ccall f_6372(C_word c,C_word *av) C_noret; C_noret_decl(f_6375) static void C_ccall f_6375(C_word c,C_word *av) C_noret; C_noret_decl(f_6384) static void C_ccall f_6384(C_word c,C_word *av) C_noret; C_noret_decl(f_6408) static void C_ccall f_6408(C_word c,C_word *av) C_noret; C_noret_decl(f_6428) static void C_ccall f_6428(C_word c,C_word *av) C_noret; C_noret_decl(f_6431) static void C_ccall f_6431(C_word c,C_word *av) C_noret; C_noret_decl(f_6446) static void C_ccall f_6446(C_word c,C_word *av) C_noret; C_noret_decl(f_6450) static void C_ccall f_6450(C_word c,C_word *av) C_noret; C_noret_decl(f_6462) static void C_ccall f_6462(C_word c,C_word *av) C_noret; C_noret_decl(f_6465) static void C_ccall f_6465(C_word c,C_word *av) C_noret; C_noret_decl(f_6476) static void C_ccall f_6476(C_word c,C_word *av) C_noret; C_noret_decl(f_6480) static void C_ccall f_6480(C_word c,C_word *av) C_noret; C_noret_decl(f_6492) static void C_ccall f_6492(C_word c,C_word *av) C_noret; C_noret_decl(f_6495) static void C_ccall f_6495(C_word c,C_word *av) C_noret; C_noret_decl(f_6498) static void C_ccall f_6498(C_word c,C_word *av) C_noret; C_noret_decl(f_6501) static void C_ccall f_6501(C_word c,C_word *av) C_noret; C_noret_decl(f_6512) static void C_ccall f_6512(C_word c,C_word *av) C_noret; C_noret_decl(f_6520) static void C_ccall f_6520(C_word c,C_word *av) C_noret; C_noret_decl(f_6529) static void C_ccall f_6529(C_word c,C_word *av) C_noret; C_noret_decl(f_6532) static void C_ccall f_6532(C_word c,C_word *av) C_noret; C_noret_decl(f_6535) static void C_ccall f_6535(C_word c,C_word *av) C_noret; C_noret_decl(f_6548) static void C_fcall f_6548(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6556) static void C_ccall f_6556(C_word c,C_word *av) C_noret; C_noret_decl(f_6559) static void C_ccall f_6559(C_word c,C_word *av) C_noret; C_noret_decl(f_6569) static void C_ccall f_6569(C_word c,C_word *av) C_noret; C_noret_decl(f_6572) static void C_ccall f_6572(C_word c,C_word *av) C_noret; C_noret_decl(f_6575) static void C_ccall f_6575(C_word c,C_word *av) C_noret; C_noret_decl(f_6578) static void C_ccall f_6578(C_word c,C_word *av) C_noret; C_noret_decl(f_6608) static void C_ccall f_6608(C_word c,C_word *av) C_noret; C_noret_decl(f_6611) static void C_ccall f_6611(C_word c,C_word *av) C_noret; C_noret_decl(f_6614) static void C_ccall f_6614(C_word c,C_word *av) C_noret; C_noret_decl(f_6617) static void C_ccall f_6617(C_word c,C_word *av) C_noret; C_noret_decl(f_6620) static void C_ccall f_6620(C_word c,C_word *av) C_noret; C_noret_decl(f_6623) static void C_ccall f_6623(C_word c,C_word *av) C_noret; C_noret_decl(f_6645) static void C_ccall f_6645(C_word c,C_word *av) C_noret; C_noret_decl(f_6725) static void C_fcall f_6725(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6731) static void C_fcall f_6731(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6741) static void C_ccall f_6741(C_word c,C_word *av) C_noret; C_noret_decl(f_6744) static void C_ccall f_6744(C_word c,C_word *av) C_noret; C_noret_decl(f_6761) static void C_fcall f_6761(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6773) static void C_fcall f_6773(C_word t0,C_word t1) C_noret; C_noret_decl(f_6776) static void C_ccall f_6776(C_word c,C_word *av) C_noret; C_noret_decl(f_6779) static void C_ccall f_6779(C_word c,C_word *av) C_noret; C_noret_decl(f_6782) static void C_ccall f_6782(C_word c,C_word *av) C_noret; C_noret_decl(f_6785) static void C_ccall f_6785(C_word c,C_word *av) C_noret; C_noret_decl(f_6794) static void C_fcall f_6794(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6804) static void C_ccall f_6804(C_word c,C_word *av) C_noret; C_noret_decl(f_6807) static void C_ccall f_6807(C_word c,C_word *av) C_noret; C_noret_decl(f_6810) static void C_ccall f_6810(C_word c,C_word *av) C_noret; C_noret_decl(f_6830) static void C_fcall f_6830(C_word t0,C_word t1) C_noret; C_noret_decl(f_6845) static void C_ccall f_6845(C_word c,C_word *av) C_noret; C_noret_decl(f_6848) static void C_ccall f_6848(C_word c,C_word *av) C_noret; C_noret_decl(f_6851) static void C_ccall f_6851(C_word c,C_word *av) C_noret; C_noret_decl(f_6854) static void C_ccall f_6854(C_word c,C_word *av) C_noret; C_noret_decl(f_6857) static void C_ccall f_6857(C_word c,C_word *av) C_noret; C_noret_decl(f_6873) static void C_ccall f_6873(C_word c,C_word *av) C_noret; C_noret_decl(f_6876) static void C_ccall f_6876(C_word c,C_word *av) C_noret; C_noret_decl(f_6884) static void C_fcall f_6884(C_word t0,C_word t1) C_noret; C_noret_decl(f_6888) static void C_ccall f_6888(C_word c,C_word *av) C_noret; C_noret_decl(f_6891) static void C_ccall f_6891(C_word c,C_word *av) C_noret; C_noret_decl(f_6894) static void C_ccall f_6894(C_word c,C_word *av) C_noret; C_noret_decl(f_6897) static void C_ccall f_6897(C_word c,C_word *av) C_noret; C_noret_decl(f_6900) static void C_ccall f_6900(C_word c,C_word *av) C_noret; C_noret_decl(f_6903) static void C_ccall f_6903(C_word c,C_word *av) C_noret; C_noret_decl(f_6906) static void C_ccall f_6906(C_word c,C_word *av) C_noret; C_noret_decl(f_6909) static void C_ccall f_6909(C_word c,C_word *av) C_noret; C_noret_decl(f_6921) static void C_ccall f_6921(C_word c,C_word *av) C_noret; C_noret_decl(f_6931) static void C_fcall f_6931(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6941) static void C_ccall f_6941(C_word c,C_word *av) C_noret; C_noret_decl(f_6961) static void C_ccall f_6961(C_word c,C_word *av) C_noret; C_noret_decl(f_6974) static void C_ccall f_6974(C_word c,C_word *av) C_noret; C_noret_decl(f_6986) static void C_ccall f_6986(C_word c,C_word *av) C_noret; C_noret_decl(f_6989) static void C_ccall f_6989(C_word c,C_word *av) C_noret; C_noret_decl(f_6991) static void C_fcall f_6991(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7016) static void C_ccall f_7016(C_word c,C_word *av) C_noret; C_noret_decl(f_7027) static void C_ccall f_7027(C_word c,C_word *av) C_noret; C_noret_decl(f_7037) static void C_ccall f_7037(C_word c,C_word *av) C_noret; C_noret_decl(f_7041) static void C_ccall f_7041(C_word c,C_word *av) C_noret; C_noret_decl(f_7043) static void C_fcall f_7043(C_word t0,C_word t1) C_noret; C_noret_decl(f_7050) static void C_ccall f_7050(C_word c,C_word *av) C_noret; C_noret_decl(f_7064) static void C_ccall f_7064(C_word c,C_word *av) C_noret; C_noret_decl(f_7070) static void C_ccall f_7070(C_word c,C_word *av) C_noret; C_noret_decl(f_7073) static void C_ccall f_7073(C_word c,C_word *av) C_noret; C_noret_decl(f_7076) static void C_ccall f_7076(C_word c,C_word *av) C_noret; C_noret_decl(f_7081) static void C_fcall f_7081(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7091) static void C_ccall f_7091(C_word c,C_word *av) C_noret; C_noret_decl(f_7097) static void C_ccall f_7097(C_word c,C_word *av) C_noret; C_noret_decl(f_7100) static void C_ccall f_7100(C_word c,C_word *av) C_noret; C_noret_decl(f_7103) static void C_ccall f_7103(C_word c,C_word *av) C_noret; C_noret_decl(f_7106) static void C_ccall f_7106(C_word c,C_word *av) C_noret; C_noret_decl(f_7121) static void C_fcall f_7121(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7129) static void C_ccall f_7129(C_word c,C_word *av) C_noret; C_noret_decl(f_7139) static void C_fcall f_7139(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7149) static void C_ccall f_7149(C_word c,C_word *av) C_noret; C_noret_decl(f_7190) static void C_fcall f_7190(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7200) static void C_ccall f_7200(C_word c,C_word *av) C_noret; C_noret_decl(f_7213) static void C_fcall f_7213(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7238) static void C_ccall f_7238(C_word c,C_word *av) C_noret; C_noret_decl(f_7247) static void C_fcall f_7247(C_word t0,C_word t1) C_noret; C_noret_decl(f_7251) static void C_ccall f_7251(C_word c,C_word *av) C_noret; C_noret_decl(f_7260) static void C_ccall f_7260(C_word c,C_word *av) C_noret; C_noret_decl(f_7263) static void C_ccall f_7263(C_word c,C_word *av) C_noret; C_noret_decl(f_7266) static void C_fcall f_7266(C_word t0,C_word t1) C_noret; C_noret_decl(f_7269) static void C_ccall f_7269(C_word c,C_word *av) C_noret; C_noret_decl(f_7272) static void C_ccall f_7272(C_word c,C_word *av) C_noret; C_noret_decl(f_7275) static void C_ccall f_7275(C_word c,C_word *av) C_noret; C_noret_decl(f_7278) static void C_ccall f_7278(C_word c,C_word *av) C_noret; C_noret_decl(f_7281) static void C_ccall f_7281(C_word c,C_word *av) C_noret; C_noret_decl(f_7284) static void C_ccall f_7284(C_word c,C_word *av) C_noret; C_noret_decl(f_7287) static void C_ccall f_7287(C_word c,C_word *av) C_noret; C_noret_decl(f_7290) static void C_ccall f_7290(C_word c,C_word *av) C_noret; C_noret_decl(f_7293) static void C_ccall f_7293(C_word c,C_word *av) C_noret; C_noret_decl(f_7296) static void C_ccall f_7296(C_word c,C_word *av) C_noret; C_noret_decl(f_7299) static void C_ccall f_7299(C_word c,C_word *av) C_noret; C_noret_decl(f_7302) static void C_ccall f_7302(C_word c,C_word *av) C_noret; C_noret_decl(f_7305) static void C_ccall f_7305(C_word c,C_word *av) C_noret; C_noret_decl(f_7323) static void C_fcall f_7323(C_word t0,C_word t1) C_noret; C_noret_decl(f_7326) static void C_ccall f_7326(C_word c,C_word *av) C_noret; C_noret_decl(f_7349) static void C_ccall f_7349(C_word c,C_word *av) C_noret; C_noret_decl(f_7352) static void C_ccall f_7352(C_word c,C_word *av) C_noret; C_noret_decl(f_7355) static void C_ccall f_7355(C_word c,C_word *av) C_noret; C_noret_decl(f_7358) static void C_ccall f_7358(C_word c,C_word *av) C_noret; C_noret_decl(f_7374) static void C_ccall f_7374(C_word c,C_word *av) C_noret; C_noret_decl(f_7377) static void C_ccall f_7377(C_word c,C_word *av) C_noret; C_noret_decl(f_7380) static void C_ccall f_7380(C_word c,C_word *av) C_noret; C_noret_decl(f_7391) static void C_ccall f_7391(C_word c,C_word *av) C_noret; C_noret_decl(f_7400) static void C_ccall f_7400(C_word c,C_word *av) C_noret; C_noret_decl(f_7408) static void C_fcall f_7408(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7418) static void C_ccall f_7418(C_word c,C_word *av) C_noret; C_noret_decl(f_7431) static void C_fcall f_7431(C_word t0,C_word t1) C_noret; C_noret_decl(f_7442) static void C_fcall f_7442(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7452) static void C_ccall f_7452(C_word c,C_word *av) C_noret; C_noret_decl(f_7468) static void C_ccall f_7468(C_word c,C_word *av) C_noret; C_noret_decl(f_7471) static void C_ccall f_7471(C_word c,C_word *av) C_noret; C_noret_decl(f_7474) static void C_ccall f_7474(C_word c,C_word *av) C_noret; C_noret_decl(f_7477) static void C_ccall f_7477(C_word c,C_word *av) C_noret; C_noret_decl(f_7480) static void C_fcall f_7480(C_word t0,C_word t1) C_noret; C_noret_decl(f_7483) static void C_fcall f_7483(C_word t0,C_word t1) C_noret; C_noret_decl(f_7492) static void C_ccall f_7492(C_word c,C_word *av) C_noret; C_noret_decl(f_7495) static void C_ccall f_7495(C_word c,C_word *av) C_noret; C_noret_decl(f_7498) static void C_ccall f_7498(C_word c,C_word *av) C_noret; C_noret_decl(f_7501) static void C_ccall f_7501(C_word c,C_word *av) C_noret; C_noret_decl(f_7504) static void C_ccall f_7504(C_word c,C_word *av) C_noret; C_noret_decl(f_7507) static void C_ccall f_7507(C_word c,C_word *av) C_noret; C_noret_decl(f_7514) static void C_ccall f_7514(C_word c,C_word *av) C_noret; C_noret_decl(f_7521) static void C_ccall f_7521(C_word c,C_word *av) C_noret; C_noret_decl(f_7527) static void C_ccall f_7527(C_word c,C_word *av) C_noret; C_noret_decl(f_7535) static void C_fcall f_7535(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7545) static void C_ccall f_7545(C_word c,C_word *av) C_noret; C_noret_decl(f_7558) static void C_fcall f_7558(C_word t0,C_word t1) C_noret; C_noret_decl(f_7564) static void C_fcall f_7564(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7574) static void C_ccall f_7574(C_word c,C_word *av) C_noret; C_noret_decl(f_7589) static void C_ccall f_7589(C_word c,C_word *av) C_noret; C_noret_decl(f_7595) static void C_ccall f_7595(C_word c,C_word *av) C_noret; C_noret_decl(f_7598) static void C_ccall f_7598(C_word c,C_word *av) C_noret; C_noret_decl(f_7601) static void C_ccall f_7601(C_word c,C_word *av) C_noret; C_noret_decl(f_7604) static void C_ccall f_7604(C_word c,C_word *av) C_noret; C_noret_decl(f_7612) static void C_ccall f_7612(C_word c,C_word *av) C_noret; C_noret_decl(f_7619) static void C_ccall f_7619(C_word c,C_word *av) C_noret; C_noret_decl(f_7625) static void C_ccall f_7625(C_word c,C_word *av) C_noret; C_noret_decl(f_7655) static void C_ccall f_7655(C_word c,C_word *av) C_noret; C_noret_decl(f_7668) static void C_ccall f_7668(C_word c,C_word *av) C_noret; C_noret_decl(f_7672) static void C_ccall f_7672(C_word c,C_word *av) C_noret; C_noret_decl(f_7696) static void C_ccall f_7696(C_word c,C_word *av) C_noret; C_noret_decl(f_7699) static void C_ccall f_7699(C_word c,C_word *av) C_noret; C_noret_decl(f_7705) static void C_ccall f_7705(C_word c,C_word *av) C_noret; C_noret_decl(f_7707) static void C_fcall f_7707(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7731) static void C_fcall f_7731(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7756) static void C_ccall f_7756(C_word c,C_word *av) C_noret; C_noret_decl(f_7770) static void C_ccall f_7770(C_word c,C_word *av) C_noret; C_noret_decl(f_7788) static void C_ccall f_7788(C_word c,C_word *av) C_noret; C_noret_decl(f_7795) static void C_ccall f_7795(C_word c,C_word *av) C_noret; C_noret_decl(f_7816) static void C_fcall f_7816(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7836) static void C_ccall f_7836(C_word c,C_word *av) C_noret; C_noret_decl(f_7857) static void C_ccall f_7857(C_word c,C_word *av) C_noret; C_noret_decl(f_7861) static void C_ccall f_7861(C_word c,C_word *av) C_noret; C_noret_decl(f_7882) static void C_ccall f_7882(C_word c,C_word *av) C_noret; C_noret_decl(f_7886) static void C_ccall f_7886(C_word c,C_word *av) C_noret; C_noret_decl(f_7895) static void C_fcall f_7895(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7902) static void C_fcall f_7902(C_word t0,C_word t1) C_noret; C_noret_decl(f_7908) static void C_ccall f_7908(C_word c,C_word *av) C_noret; C_noret_decl(f_7952) static void C_ccall f_7952(C_word c,C_word *av) C_noret; C_noret_decl(f_7961) static void C_ccall f_7961(C_word c,C_word *av) C_noret; C_noret_decl(f_7970) static void C_ccall f_7970(C_word c,C_word *av) C_noret; C_noret_decl(f_7976) static void C_ccall f_7976(C_word c,C_word *av) C_noret; C_noret_decl(f_8000) static void C_fcall f_8000(C_word t0,C_word t1) C_noret; C_noret_decl(f_8003) static void C_ccall f_8003(C_word c,C_word *av) C_noret; C_noret_decl(f_8006) static void C_ccall f_8006(C_word c,C_word *av) C_noret; C_noret_decl(f_8013) static void C_ccall f_8013(C_word c,C_word *av) C_noret; C_noret_decl(f_8047) static void C_ccall f_8047(C_word c,C_word *av) C_noret; C_noret_decl(f_8049) static void C_fcall f_8049(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8063) static void C_fcall f_8063(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8077) static void C_fcall f_8077(C_word t0,C_word t1) C_noret; C_noret_decl(f_8084) static void C_ccall f_8084(C_word c,C_word *av) C_noret; C_noret_decl(f_8088) static void C_ccall f_8088(C_word c,C_word *av) C_noret; C_noret_decl(f_8100) static void C_ccall f_8100(C_word c,C_word *av) C_noret; C_noret_decl(f_8113) static void C_ccall f_8113(C_word c,C_word *av) C_noret; C_noret_decl(f_8117) static void C_ccall f_8117(C_word c,C_word *av) C_noret; C_noret_decl(f_8123) static void C_fcall f_8123(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8130) static void C_ccall f_8130(C_word c,C_word *av) C_noret; C_noret_decl(f_8133) static void C_ccall f_8133(C_word c,C_word *av) C_noret; C_noret_decl(f_8135) static void C_fcall f_8135(C_word t0,C_word t1) C_noret; C_noret_decl(f_8137) static void C_fcall f_8137(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8145) static void C_ccall f_8145(C_word c,C_word *av) C_noret; C_noret_decl(f_8148) static void C_ccall f_8148(C_word c,C_word *av) C_noret; C_noret_decl(f_8151) static void C_ccall f_8151(C_word c,C_word *av) C_noret; C_noret_decl(f_8154) static void C_ccall f_8154(C_word c,C_word *av) C_noret; C_noret_decl(f_8157) static void C_ccall f_8157(C_word c,C_word *av) C_noret; C_noret_decl(f_8160) static void C_ccall f_8160(C_word c,C_word *av) C_noret; C_noret_decl(f_8163) static void C_fcall f_8163(C_word t0,C_word t1) C_noret; C_noret_decl(f_8169) static void C_ccall f_8169(C_word c,C_word *av) C_noret; C_noret_decl(f_8172) static void C_ccall f_8172(C_word c,C_word *av) C_noret; C_noret_decl(f_8175) static void C_ccall f_8175(C_word c,C_word *av) C_noret; C_noret_decl(f_8178) static void C_ccall f_8178(C_word c,C_word *av) C_noret; C_noret_decl(f_8181) static void C_ccall f_8181(C_word c,C_word *av) C_noret; C_noret_decl(f_8184) static void C_ccall f_8184(C_word c,C_word *av) C_noret; C_noret_decl(f_8187) static void C_ccall f_8187(C_word c,C_word *av) C_noret; C_noret_decl(f_8190) static void C_ccall f_8190(C_word c,C_word *av) C_noret; C_noret_decl(f_8193) static void C_ccall f_8193(C_word c,C_word *av) C_noret; C_noret_decl(f_8196) static void C_ccall f_8196(C_word c,C_word *av) C_noret; C_noret_decl(f_8199) static void C_ccall f_8199(C_word c,C_word *av) C_noret; C_noret_decl(f_8202) static void C_ccall f_8202(C_word c,C_word *av) C_noret; C_noret_decl(f_8205) static void C_ccall f_8205(C_word c,C_word *av) C_noret; C_noret_decl(f_8208) static void C_ccall f_8208(C_word c,C_word *av) C_noret; C_noret_decl(f_8211) static void C_ccall f_8211(C_word c,C_word *av) C_noret; C_noret_decl(f_8214) static void C_ccall f_8214(C_word c,C_word *av) C_noret; C_noret_decl(f_8217) static void C_ccall f_8217(C_word c,C_word *av) C_noret; C_noret_decl(f_8220) static void C_ccall f_8220(C_word c,C_word *av) C_noret; C_noret_decl(f_8223) static void C_ccall f_8223(C_word c,C_word *av) C_noret; C_noret_decl(f_8226) static void C_ccall f_8226(C_word c,C_word *av) C_noret; C_noret_decl(f_8229) static void C_fcall f_8229(C_word t0,C_word t1) C_noret; C_noret_decl(f_8232) static void C_ccall f_8232(C_word c,C_word *av) C_noret; C_noret_decl(f_8235) static void C_ccall f_8235(C_word c,C_word *av) C_noret; C_noret_decl(f_8238) static void C_ccall f_8238(C_word c,C_word *av) C_noret; C_noret_decl(f_8241) static void C_ccall f_8241(C_word c,C_word *av) C_noret; C_noret_decl(f_8244) static void C_ccall f_8244(C_word c,C_word *av) C_noret; C_noret_decl(f_8248) static void C_ccall f_8248(C_word c,C_word *av) C_noret; C_noret_decl(f_8255) static void C_ccall f_8255(C_word c,C_word *av) C_noret; C_noret_decl(f_8266) static void C_ccall f_8266(C_word c,C_word *av) C_noret; C_noret_decl(f_8272) static void C_ccall f_8272(C_word c,C_word *av) C_noret; C_noret_decl(f_8275) static void C_ccall f_8275(C_word c,C_word *av) C_noret; C_noret_decl(f_8284) static void C_fcall f_8284(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8292) static void C_ccall f_8292(C_word c,C_word *av) C_noret; C_noret_decl(f_8306) static void C_ccall f_8306(C_word c,C_word *av) C_noret; C_noret_decl(f_8321) static void C_ccall f_8321(C_word c,C_word *av) C_noret; C_noret_decl(f_8324) static void C_ccall f_8324(C_word c,C_word *av) C_noret; C_noret_decl(f_8341) static void C_fcall f_8341(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8351) static void C_ccall f_8351(C_word c,C_word *av) C_noret; C_noret_decl(f_8381) static void C_ccall f_8381(C_word c,C_word *av) C_noret; C_noret_decl(f_8385) static void C_ccall f_8385(C_word c,C_word *av) C_noret; C_noret_decl(f_8388) static void C_ccall f_8388(C_word c,C_word *av) C_noret; C_noret_decl(f_8391) static void C_ccall f_8391(C_word c,C_word *av) C_noret; C_noret_decl(f_8394) static void C_ccall f_8394(C_word c,C_word *av) C_noret; C_noret_decl(f_8397) static void C_ccall f_8397(C_word c,C_word *av) C_noret; C_noret_decl(f_8400) static void C_ccall f_8400(C_word c,C_word *av) C_noret; C_noret_decl(f_8409) static void C_ccall f_8409(C_word c,C_word *av) C_noret; C_noret_decl(f_8412) static void C_ccall f_8412(C_word c,C_word *av) C_noret; C_noret_decl(f_8423) static void C_ccall f_8423(C_word c,C_word *av) C_noret; C_noret_decl(f_8444) static void C_fcall f_8444(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8460) static void C_fcall f_8460(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8468) static void C_ccall f_8468(C_word c,C_word *av) C_noret; C_noret_decl(f_8471) static void C_ccall f_8471(C_word c,C_word *av) C_noret; C_noret_decl(f_8481) static void C_ccall f_8481(C_word c,C_word *av) C_noret; C_noret_decl(f_8484) static void C_ccall f_8484(C_word c,C_word *av) C_noret; C_noret_decl(f_8487) static void C_ccall f_8487(C_word c,C_word *av) C_noret; C_noret_decl(f_8496) static void C_fcall f_8496(C_word t0,C_word t1) C_noret; C_noret_decl(f_8520) static void C_ccall f_8520(C_word c,C_word *av) C_noret; C_noret_decl(f_8523) static void C_ccall f_8523(C_word c,C_word *av) C_noret; C_noret_decl(f_8526) static void C_ccall f_8526(C_word c,C_word *av) C_noret; C_noret_decl(f_8529) static void C_ccall f_8529(C_word c,C_word *av) C_noret; C_noret_decl(f_8538) static void C_ccall f_8538(C_word c,C_word *av) C_noret; C_noret_decl(f_8554) static void C_fcall f_8554(C_word t0,C_word t1) C_noret; C_noret_decl(f_8614) static void C_ccall f_8614(C_word c,C_word *av) C_noret; C_noret_decl(f_8627) static void C_fcall f_8627(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8637) static void C_ccall f_8637(C_word c,C_word *av) C_noret; C_noret_decl(f_8652) static void C_fcall f_8652(C_word t0,C_word t1) C_noret; C_noret_decl(f_8654) static void C_fcall f_8654(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8662) static void C_ccall f_8662(C_word c,C_word *av) C_noret; C_noret_decl(f_8682) static void C_fcall f_8682(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8692) static void C_ccall f_8692(C_word c,C_word *av) C_noret; C_noret_decl(f_8713) static void C_fcall f_8713(C_word t0,C_word t1) C_noret; C_noret_decl(f_8716) static void C_ccall f_8716(C_word c,C_word *av) C_noret; C_noret_decl(f_8739) static void C_ccall f_8739(C_word c,C_word *av) C_noret; C_noret_decl(f_8742) static void C_ccall f_8742(C_word c,C_word *av) C_noret; C_noret_decl(f_8745) static void C_ccall f_8745(C_word c,C_word *av) C_noret; C_noret_decl(f_8761) static void C_ccall f_8761(C_word c,C_word *av) C_noret; C_noret_decl(f_8764) static void C_ccall f_8764(C_word c,C_word *av) C_noret; C_noret_decl(f_8778) static void C_ccall f_8778(C_word c,C_word *av) C_noret; C_noret_decl(f_8803) static void C_ccall f_8803(C_word c,C_word *av) C_noret; C_noret_decl(f_8807) static void C_ccall f_8807(C_word c,C_word *av) C_noret; C_noret_decl(f_8815) static void C_fcall f_8815(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8825) static void C_ccall f_8825(C_word c,C_word *av) C_noret; C_noret_decl(f_8839) static void C_ccall f_8839(C_word c,C_word *av) C_noret; C_noret_decl(f_8843) static void C_ccall f_8843(C_word c,C_word *av) C_noret; C_noret_decl(f_8846) static void C_ccall f_8846(C_word c,C_word *av) C_noret; C_noret_decl(f_8849) static void C_ccall f_8849(C_word c,C_word *av) C_noret; C_noret_decl(f_8852) static void C_ccall f_8852(C_word c,C_word *av) C_noret; C_noret_decl(f_8855) static void C_ccall f_8855(C_word c,C_word *av) C_noret; C_noret_decl(f_8858) static void C_ccall f_8858(C_word c,C_word *av) C_noret; C_noret_decl(f_8861) static void C_ccall f_8861(C_word c,C_word *av) C_noret; C_noret_decl(f_8864) static void C_ccall f_8864(C_word c,C_word *av) C_noret; C_noret_decl(f_8867) static void C_ccall f_8867(C_word c,C_word *av) C_noret; C_noret_decl(f_8870) static void C_ccall f_8870(C_word c,C_word *av) C_noret; C_noret_decl(f_8885) static void C_ccall f_8885(C_word c,C_word *av) C_noret; C_noret_decl(f_8890) static void C_ccall f_8890(C_word c,C_word *av) C_noret; C_noret_decl(f_8908) static void C_ccall f_8908(C_word c,C_word *av) C_noret; C_noret_decl(f_8912) static void C_ccall f_8912(C_word c,C_word *av) C_noret; C_noret_decl(f_8921) static void C_ccall f_8921(C_word c,C_word *av) C_noret; C_noret_decl(f_8926) static void C_fcall f_8926(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8936) static void C_ccall f_8936(C_word c,C_word *av) C_noret; C_noret_decl(f_8954) static void C_ccall f_8954(C_word c,C_word *av) C_noret; C_noret_decl(f_8960) static void C_ccall f_8960(C_word c,C_word *av) C_noret; C_noret_decl(f_8965) static void C_fcall f_8965(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8975) static void C_ccall f_8975(C_word c,C_word *av) C_noret; C_noret_decl(f_8988) static void C_ccall f_8988(C_word c,C_word *av) C_noret; C_noret_decl(f_9006) static void C_ccall f_9006(C_word c,C_word *av) C_noret; C_noret_decl(f_9007) static void C_fcall f_9007(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9015) static void C_ccall f_9015(C_word c,C_word *av) C_noret; C_noret_decl(f_9028) static void C_ccall f_9028(C_word c,C_word *av) C_noret; C_noret_decl(f_9035) static void C_ccall f_9035(C_word c,C_word *av) C_noret; C_noret_decl(f_9038) static void C_ccall f_9038(C_word c,C_word *av) C_noret; C_noret_decl(f_9041) static void C_ccall f_9041(C_word c,C_word *av) C_noret; C_noret_decl(f_9044) static void C_ccall f_9044(C_word c,C_word *av) C_noret; C_noret_decl(f_9047) static void C_ccall f_9047(C_word c,C_word *av) C_noret; C_noret_decl(f_9052) static void C_fcall f_9052(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9062) static void C_ccall f_9062(C_word c,C_word *av) C_noret; C_noret_decl(f_9080) static void C_ccall f_9080(C_word c,C_word *av) C_noret; C_noret_decl(f_9094) static void C_ccall f_9094(C_word c,C_word *av) C_noret; C_noret_decl(f_9096) static void C_fcall f_9096(C_word t0,C_word t1) C_noret; C_noret_decl(f_9105) static void C_fcall f_9105(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9131) static void C_fcall f_9131(C_word t0,C_word t1) C_noret; C_noret_decl(f_9141) static void C_ccall f_9141(C_word c,C_word *av) C_noret; C_noret_decl(f_9172) static void C_fcall f_9172(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9178) static void C_ccall f_9178(C_word c,C_word *av) C_noret; C_noret_decl(f_9186) static void C_ccall f_9186(C_word c,C_word *av) C_noret; C_noret_decl(f_9189) static void C_fcall f_9189(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9195) static void C_ccall f_9195(C_word c,C_word *av) C_noret; C_noret_decl(f_9203) static void C_ccall f_9203(C_word c,C_word *av) C_noret; C_noret_decl(f_9210) static void C_ccall f_9210(C_word c,C_word *av) C_noret; C_noret_decl(f_9232) static void C_ccall f_9232(C_word c,C_word *av) C_noret; C_noret_decl(f_9240) static void C_fcall f_9240(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9250) static void C_ccall f_9250(C_word c,C_word *av) C_noret; C_noret_decl(f_9263) static void C_fcall f_9263(C_word t0,C_word t1) C_noret; C_noret_decl(f_9269) static void C_ccall f_9269(C_word c,C_word *av) C_noret; C_noret_decl(f_9272) static void C_ccall f_9272(C_word c,C_word *av) C_noret; C_noret_decl(f_9283) static void C_fcall f_9283(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9293) static void C_ccall f_9293(C_word c,C_word *av) C_noret; C_noret_decl(f_9308) static void C_fcall f_9308(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9312) static void C_ccall f_9312(C_word c,C_word *av) C_noret; C_noret_decl(f_9315) static void C_ccall f_9315(C_word c,C_word *av) C_noret; C_noret_decl(f_9318) static void C_ccall f_9318(C_word c,C_word *av) C_noret; C_noret_decl(f_9324) static void C_ccall f_9324(C_word c,C_word *av) C_noret; C_noret_decl(f_9327) static void C_ccall f_9327(C_word c,C_word *av) C_noret; C_noret_decl(f_9330) static void C_ccall f_9330(C_word c,C_word *av) C_noret; C_noret_decl(f_9333) static void C_ccall f_9333(C_word c,C_word *av) C_noret; C_noret_decl(f_9336) static void C_ccall f_9336(C_word c,C_word *av) C_noret; C_noret_decl(f_9339) static void C_ccall f_9339(C_word c,C_word *av) C_noret; C_noret_decl(f_9342) static void C_ccall f_9342(C_word c,C_word *av) C_noret; C_noret_decl(f_9345) static void C_ccall f_9345(C_word c,C_word *av) C_noret; C_noret_decl(f_9348) static void C_ccall f_9348(C_word c,C_word *av) C_noret; C_noret_decl(f_9351) static void C_ccall f_9351(C_word c,C_word *av) C_noret; C_noret_decl(f_9354) static void C_ccall f_9354(C_word c,C_word *av) C_noret; C_noret_decl(f_9357) static void C_ccall f_9357(C_word c,C_word *av) C_noret; C_noret_decl(f_9360) static void C_ccall f_9360(C_word c,C_word *av) C_noret; C_noret_decl(f_9369) static void C_ccall f_9369(C_word c,C_word *av) C_noret; C_noret_decl(f_9373) static void C_ccall f_9373(C_word c,C_word *av) C_noret; C_noret_decl(f_9377) static void C_ccall f_9377(C_word c,C_word *av) C_noret; C_noret_decl(f_9381) static void C_ccall f_9381(C_word c,C_word *av) C_noret; C_noret_decl(f_9387) static void C_ccall f_9387(C_word c,C_word *av) C_noret; C_noret_decl(f_9393) static void C_ccall f_9393(C_word c,C_word *av) C_noret; C_noret_decl(f_9396) static void C_ccall f_9396(C_word c,C_word *av) C_noret; C_noret_decl(f_9402) static void C_ccall f_9402(C_word c,C_word *av) C_noret; C_noret_decl(f_9411) static void C_ccall f_9411(C_word c,C_word *av) C_noret; C_noret_decl(f_9414) static void C_ccall f_9414(C_word c,C_word *av) C_noret; C_noret_decl(f_9417) static void C_ccall f_9417(C_word c,C_word *av) C_noret; C_noret_decl(f_9423) static void C_ccall f_9423(C_word c,C_word *av) C_noret; C_noret_decl(f_9426) static void C_ccall f_9426(C_word c,C_word *av) C_noret; C_noret_decl(f_9444) static void C_ccall f_9444(C_word c,C_word *av) C_noret; C_noret_decl(f_9447) static void C_ccall f_9447(C_word c,C_word *av) C_noret; C_noret_decl(f_9450) static void C_ccall f_9450(C_word c,C_word *av) C_noret; C_noret_decl(f_9453) static void C_ccall f_9453(C_word c,C_word *av) C_noret; C_noret_decl(f_9456) static void C_ccall f_9456(C_word c,C_word *av) C_noret; C_noret_decl(f_9481) static void C_ccall f_9481(C_word c,C_word *av) C_noret; C_noret_decl(f_9485) static void C_ccall f_9485(C_word c,C_word *av) C_noret; C_noret_decl(f_9503) static void C_fcall f_9503(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_9510) static void C_fcall f_9510(C_word t0,C_word t1) C_noret; C_noret_decl(f_9513) static void C_ccall f_9513(C_word c,C_word *av) C_noret; C_noret_decl(f_9555) static void C_ccall f_9555(C_word c,C_word *av) C_noret; C_noret_decl(f_9560) static void C_fcall f_9560(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9570) static void C_ccall f_9570(C_word c,C_word *av) C_noret; C_noret_decl(f_9582) static void C_ccall f_9582(C_word c,C_word *av) C_noret; C_noret_decl(f_9585) static void C_ccall f_9585(C_word c,C_word *av) C_noret; C_noret_decl(f_9592) static void C_ccall f_9592(C_word c,C_word *av) C_noret; C_noret_decl(f_9600) static void C_ccall f_9600(C_word c,C_word *av) C_noret; C_noret_decl(f_9610) static void C_ccall f_9610(C_word c,C_word *av) C_noret; C_noret_decl(f_9621) static void C_fcall f_9621(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9631) static void C_ccall f_9631(C_word c,C_word *av) C_noret; C_noret_decl(f_9646) static void C_fcall f_9646(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9650) static void C_ccall f_9650(C_word c,C_word *av) C_noret; C_noret_decl(f_9653) static void C_ccall f_9653(C_word c,C_word *av) C_noret; C_noret_decl(f_9656) static void C_ccall f_9656(C_word c,C_word *av) C_noret; C_noret_decl(f_9659) static void C_ccall f_9659(C_word c,C_word *av) C_noret; C_noret_decl(f_9665) static void C_ccall f_9665(C_word c,C_word *av) C_noret; C_noret_decl(f_9667) static void C_fcall f_9667(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_9677) static void C_fcall f_9677(C_word t0,C_word t1) C_noret; C_noret_decl(f_9686) static void C_fcall f_9686(C_word t0,C_word t1) C_noret; C_noret_decl(f_9698) static void C_fcall f_9698(C_word t0,C_word t1) C_noret; C_noret_decl(f_9710) static void C_fcall f_9710(C_word t0,C_word t1) C_noret; C_noret_decl(f_9722) static void C_fcall f_9722(C_word t0,C_word t1) C_noret; C_noret_decl(f_9734) static void C_fcall f_9734(C_word t0,C_word t1) C_noret; C_noret_decl(f_9740) static void C_ccall f_9740(C_word c,C_word *av) C_noret; C_noret_decl(f_9744) static void C_fcall f_9744(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9771) static void C_fcall f_9771(C_word t0,C_word t1) C_noret; C_noret_decl(C_c_2dbackend_toplevel) C_externexport void C_ccall C_c_2dbackend_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(va15061) static void C_fcall va15061(C_word t0,C_word t1) C_noret; C_noret_decl(va15067) static void C_fcall va15067(C_word t0,C_word t1) C_noret; C_noret_decl(va15097) static void C_fcall va15097(C_word t0,C_word t1) C_noret; C_noret_decl(va15099) static void C_fcall va15099(C_word t0,C_word t1) C_noret; C_noret_decl(va15107) static void C_fcall va15107(C_word t0,C_word t1) C_noret; C_noret_decl(va15109) static void C_fcall va15109(C_word t0,C_word t1) C_noret; C_noret_decl(trf_10190) static void C_ccall trf_10190(C_word c,C_word *av) C_noret; static void C_ccall trf_10190(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10190(t0,t1,t2,t3);} C_noret_decl(trf_10241) static void C_ccall trf_10241(C_word c,C_word *av) C_noret; static void C_ccall trf_10241(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_10241(t0,t1,t2,t3,t4);} C_noret_decl(trf_10275) static void C_ccall trf_10275(C_word c,C_word *av) C_noret; static void C_ccall trf_10275(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10275(t0,t1,t2);} C_noret_decl(trf_10298) static void C_ccall trf_10298(C_word c,C_word *av) C_noret; static void C_ccall trf_10298(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10298(t0,t1,t2);} C_noret_decl(trf_10328) static void C_ccall trf_10328(C_word c,C_word *av) C_noret; static void C_ccall trf_10328(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10328(t0,t1,t2,t3);} C_noret_decl(trf_10376) static void C_ccall trf_10376(C_word c,C_word *av) C_noret; static void C_ccall trf_10376(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10376(t0,t1);} C_noret_decl(trf_10381) static void C_ccall trf_10381(C_word c,C_word *av) C_noret; static void C_ccall trf_10381(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10381(t0,t1,t2);} C_noret_decl(trf_10451) static void C_ccall trf_10451(C_word c,C_word *av) C_noret; static void C_ccall trf_10451(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10451(t0,t1);} C_noret_decl(trf_10568) static void C_ccall trf_10568(C_word c,C_word *av) C_noret; static void C_ccall trf_10568(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10568(t0,t1);} C_noret_decl(trf_10589) static void C_ccall trf_10589(C_word c,C_word *av) C_noret; static void C_ccall trf_10589(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10589(t0,t1);} C_noret_decl(trf_10721) static void C_ccall trf_10721(C_word c,C_word *av) C_noret; static void C_ccall trf_10721(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10721(t0,t1);} C_noret_decl(trf_10733) static void C_ccall trf_10733(C_word c,C_word *av) C_noret; static void C_ccall trf_10733(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10733(t0,t1);} C_noret_decl(trf_10752) static void C_ccall trf_10752(C_word c,C_word *av) C_noret; static void C_ccall trf_10752(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10752(t0,t1,t2);} C_noret_decl(trf_10785) static void C_ccall trf_10785(C_word c,C_word *av) C_noret; static void C_ccall trf_10785(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10785(t0,t1);} C_noret_decl(trf_10802) static void C_ccall trf_10802(C_word c,C_word *av) C_noret; static void C_ccall trf_10802(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10802(t0,t1);} C_noret_decl(trf_10819) static void C_ccall trf_10819(C_word c,C_word *av) C_noret; static void C_ccall trf_10819(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10819(t0,t1);} C_noret_decl(trf_10854) static void C_ccall trf_10854(C_word c,C_word *av) C_noret; static void C_ccall trf_10854(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10854(t0,t1,t2);} C_noret_decl(trf_10896) static void C_ccall trf_10896(C_word c,C_word *av) C_noret; static void C_ccall trf_10896(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10896(t0,t1);} C_noret_decl(trf_10913) static void C_ccall trf_10913(C_word c,C_word *av) C_noret; static void C_ccall trf_10913(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10913(t0,t1);} C_noret_decl(trf_10930) static void C_ccall trf_10930(C_word c,C_word *av) C_noret; static void C_ccall trf_10930(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10930(t0,t1);} C_noret_decl(trf_10947) static void C_ccall trf_10947(C_word c,C_word *av) C_noret; static void C_ccall trf_10947(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10947(t0,t1);} C_noret_decl(trf_10964) static void C_ccall trf_10964(C_word c,C_word *av) C_noret; static void C_ccall trf_10964(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10964(t0,t1);} C_noret_decl(trf_10981) static void C_ccall trf_10981(C_word c,C_word *av) C_noret; static void C_ccall trf_10981(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10981(t0,t1);} C_noret_decl(trf_10998) static void C_ccall trf_10998(C_word c,C_word *av) C_noret; static void C_ccall trf_10998(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10998(t0,t1);} C_noret_decl(trf_11044) static void C_ccall trf_11044(C_word c,C_word *av) C_noret; static void C_ccall trf_11044(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11044(t0,t1,t2);} C_noret_decl(trf_11468) static void C_ccall trf_11468(C_word c,C_word *av) C_noret; static void C_ccall trf_11468(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11468(t0,t1);} C_noret_decl(trf_11470) static void C_ccall trf_11470(C_word c,C_word *av) C_noret; static void C_ccall trf_11470(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11470(t0,t1);} C_noret_decl(trf_11498) static void C_ccall trf_11498(C_word c,C_word *av) C_noret; static void C_ccall trf_11498(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11498(t0,t1);} C_noret_decl(trf_11525) static void C_ccall trf_11525(C_word c,C_word *av) C_noret; static void C_ccall trf_11525(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11525(t0,t1);} C_noret_decl(trf_11750) static void C_ccall trf_11750(C_word c,C_word *av) C_noret; static void C_ccall trf_11750(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11750(t0,t1);} C_noret_decl(trf_11759) static void C_ccall trf_11759(C_word c,C_word *av) C_noret; static void C_ccall trf_11759(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11759(t0,t1);} C_noret_decl(trf_11789) static void C_ccall trf_11789(C_word c,C_word *av) C_noret; static void C_ccall trf_11789(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11789(t0,t1);} C_noret_decl(trf_12133) static void C_ccall trf_12133(C_word c,C_word *av) C_noret; static void C_ccall trf_12133(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12133(t0,t1,t2);} C_noret_decl(trf_12135) static void C_ccall trf_12135(C_word c,C_word *av) C_noret; static void C_ccall trf_12135(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12135(t0,t1);} C_noret_decl(trf_12250) static void C_ccall trf_12250(C_word c,C_word *av) C_noret; static void C_ccall trf_12250(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12250(t0,t1);} C_noret_decl(trf_12470) static void C_ccall trf_12470(C_word c,C_word *av) C_noret; static void C_ccall trf_12470(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12470(t0,t1,t2);} C_noret_decl(trf_12487) static void C_ccall trf_12487(C_word c,C_word *av) C_noret; static void C_ccall trf_12487(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12487(t0,t1);} C_noret_decl(trf_12920) static void C_ccall trf_12920(C_word c,C_word *av) C_noret; static void C_ccall trf_12920(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12920(t0,t1);} C_noret_decl(trf_12929) static void C_ccall trf_12929(C_word c,C_word *av) C_noret; static void C_ccall trf_12929(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12929(t0,t1);} C_noret_decl(trf_13045) static void C_ccall trf_13045(C_word c,C_word *av) C_noret; static void C_ccall trf_13045(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13045(t0,t1);} C_noret_decl(trf_3657) static void C_ccall trf_3657(C_word c,C_word *av) C_noret; static void C_ccall trf_3657(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3657(t0,t1,t2,t3);} C_noret_decl(trf_4229) static void C_ccall trf_4229(C_word c,C_word *av) C_noret; static void C_ccall trf_4229(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4229(t0,t1,t2);} C_noret_decl(trf_4235) static void C_ccall trf_4235(C_word c,C_word *av) C_noret; static void C_ccall trf_4235(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4235(t0,t1,t2);} C_noret_decl(trf_4517) static void C_ccall trf_4517(C_word c,C_word *av) C_noret; static void C_ccall trf_4517(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4517(t0,t1,t2);} C_noret_decl(trf_4540) static void C_ccall trf_4540(C_word c,C_word *av) C_noret; static void C_ccall trf_4540(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4540(t0,t1);} C_noret_decl(trf_4554) static void C_ccall trf_4554(C_word c,C_word *av) C_noret; static void C_ccall trf_4554(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4554(t0,t1,t2);} C_noret_decl(trf_4658) static void C_ccall trf_4658(C_word c,C_word *av) C_noret; static void C_ccall trf_4658(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4658(t0,t1,t2);} C_noret_decl(trf_4670) static void C_ccall trf_4670(C_word c,C_word *av) C_noret; static void C_ccall trf_4670(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_4670(t0,t1,t2,t3,t4);} C_noret_decl(trf_4673) static void C_ccall trf_4673(C_word c,C_word *av) C_noret; static void C_ccall trf_4673(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4673(t0,t1,t2,t3);} C_noret_decl(trf_4878) static void C_ccall trf_4878(C_word c,C_word *av) C_noret; static void C_ccall trf_4878(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_4878(t0,t1,t2,t3,t4);} C_noret_decl(trf_5181) static void C_ccall trf_5181(C_word c,C_word *av) C_noret; static void C_ccall trf_5181(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5181(t0,t1,t2,t3);} C_noret_decl(trf_5210) static void C_ccall trf_5210(C_word c,C_word *av) C_noret; static void C_ccall trf_5210(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5210(t0,t1,t2,t3);} C_noret_decl(trf_5490) static void C_ccall trf_5490(C_word c,C_word *av) C_noret; static void C_ccall trf_5490(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5490(t0,t1);} C_noret_decl(trf_5493) static void C_ccall trf_5493(C_word c,C_word *av) C_noret; static void C_ccall trf_5493(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5493(t0,t1);} C_noret_decl(trf_5496) static void C_ccall trf_5496(C_word c,C_word *av) C_noret; static void C_ccall trf_5496(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5496(t0,t1);} C_noret_decl(trf_5538) static void C_ccall trf_5538(C_word c,C_word *av) C_noret; static void C_ccall trf_5538(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5538(t0,t1,t2,t3);} C_noret_decl(trf_5579) static void C_ccall trf_5579(C_word c,C_word *av) C_noret; static void C_ccall trf_5579(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5579(t0,t1,t2,t3);} C_noret_decl(trf_5616) static void C_ccall trf_5616(C_word c,C_word *av) C_noret; static void C_ccall trf_5616(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5616(t0,t1,t2,t3);} C_noret_decl(trf_5737) static void C_ccall trf_5737(C_word c,C_word *av) C_noret; static void C_ccall trf_5737(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5737(t0,t1);} C_noret_decl(trf_5871) static void C_ccall trf_5871(C_word c,C_word *av) C_noret; static void C_ccall trf_5871(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5871(t0,t1);} C_noret_decl(trf_6007) static void C_ccall trf_6007(C_word c,C_word *av) C_noret; static void C_ccall trf_6007(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6007(t0,t1,t2,t3);} C_noret_decl(trf_6042) static void C_ccall trf_6042(C_word c,C_word *av) C_noret; static void C_ccall trf_6042(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6042(t0,t1,t2,t3);} C_noret_decl(trf_6079) static void C_ccall trf_6079(C_word c,C_word *av) C_noret; static void C_ccall trf_6079(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6079(t0,t1,t2,t3);} C_noret_decl(trf_6548) static void C_ccall trf_6548(C_word c,C_word *av) C_noret; static void C_ccall trf_6548(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6548(t0,t1,t2,t3);} C_noret_decl(trf_6725) static void C_ccall trf_6725(C_word c,C_word *av) C_noret; static void C_ccall trf_6725(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6725(t0,t1,t2,t3);} C_noret_decl(trf_6731) static void C_ccall trf_6731(C_word c,C_word *av) C_noret; static void C_ccall trf_6731(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6731(t0,t1,t2);} C_noret_decl(trf_6761) static void C_ccall trf_6761(C_word c,C_word *av) C_noret; static void C_ccall trf_6761(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_6761(t0,t1,t2,t3,t4);} C_noret_decl(trf_6773) static void C_ccall trf_6773(C_word c,C_word *av) C_noret; static void C_ccall trf_6773(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6773(t0,t1);} C_noret_decl(trf_6794) static void C_ccall trf_6794(C_word c,C_word *av) C_noret; static void C_ccall trf_6794(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6794(t0,t1,t2,t3);} C_noret_decl(trf_6830) static void C_ccall trf_6830(C_word c,C_word *av) C_noret; static void C_ccall trf_6830(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6830(t0,t1);} C_noret_decl(trf_6884) static void C_ccall trf_6884(C_word c,C_word *av) C_noret; static void C_ccall trf_6884(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6884(t0,t1);} C_noret_decl(trf_6931) static void C_ccall trf_6931(C_word c,C_word *av) C_noret; static void C_ccall trf_6931(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6931(t0,t1,t2);} C_noret_decl(trf_6991) static void C_ccall trf_6991(C_word c,C_word *av) C_noret; static void C_ccall trf_6991(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6991(t0,t1,t2);} C_noret_decl(trf_7043) static void C_ccall trf_7043(C_word c,C_word *av) C_noret; static void C_ccall trf_7043(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7043(t0,t1);} C_noret_decl(trf_7081) static void C_ccall trf_7081(C_word c,C_word *av) C_noret; static void C_ccall trf_7081(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7081(t0,t1,t2,t3);} C_noret_decl(trf_7121) static void C_ccall trf_7121(C_word c,C_word *av) C_noret; static void C_ccall trf_7121(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7121(t0,t1,t2);} C_noret_decl(trf_7139) static void C_ccall trf_7139(C_word c,C_word *av) C_noret; static void C_ccall trf_7139(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7139(t0,t1,t2);} C_noret_decl(trf_7190) static void C_ccall trf_7190(C_word c,C_word *av) C_noret; static void C_ccall trf_7190(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7190(t0,t1,t2);} C_noret_decl(trf_7213) static void C_ccall trf_7213(C_word c,C_word *av) C_noret; static void C_ccall trf_7213(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7213(t0,t1,t2);} C_noret_decl(trf_7247) static void C_ccall trf_7247(C_word c,C_word *av) C_noret; static void C_ccall trf_7247(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7247(t0,t1);} C_noret_decl(trf_7266) static void C_ccall trf_7266(C_word c,C_word *av) C_noret; static void C_ccall trf_7266(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7266(t0,t1);} C_noret_decl(trf_7323) static void C_ccall trf_7323(C_word c,C_word *av) C_noret; static void C_ccall trf_7323(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7323(t0,t1);} C_noret_decl(trf_7408) static void C_ccall trf_7408(C_word c,C_word *av) C_noret; static void C_ccall trf_7408(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7408(t0,t1,t2);} C_noret_decl(trf_7431) static void C_ccall trf_7431(C_word c,C_word *av) C_noret; static void C_ccall trf_7431(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7431(t0,t1);} C_noret_decl(trf_7442) static void C_ccall trf_7442(C_word c,C_word *av) C_noret; static void C_ccall trf_7442(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7442(t0,t1,t2,t3);} C_noret_decl(trf_7480) static void C_ccall trf_7480(C_word c,C_word *av) C_noret; static void C_ccall trf_7480(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7480(t0,t1);} C_noret_decl(trf_7483) static void C_ccall trf_7483(C_word c,C_word *av) C_noret; static void C_ccall trf_7483(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7483(t0,t1);} C_noret_decl(trf_7535) static void C_ccall trf_7535(C_word c,C_word *av) C_noret; static void C_ccall trf_7535(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7535(t0,t1,t2);} C_noret_decl(trf_7558) static void C_ccall trf_7558(C_word c,C_word *av) C_noret; static void C_ccall trf_7558(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7558(t0,t1);} C_noret_decl(trf_7564) static void C_ccall trf_7564(C_word c,C_word *av) C_noret; static void C_ccall trf_7564(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7564(t0,t1,t2,t3);} C_noret_decl(trf_7707) static void C_ccall trf_7707(C_word c,C_word *av) C_noret; static void C_ccall trf_7707(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7707(t0,t1,t2,t3);} C_noret_decl(trf_7731) static void C_ccall trf_7731(C_word c,C_word *av) C_noret; static void C_ccall trf_7731(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7731(t0,t1,t2);} C_noret_decl(trf_7816) static void C_ccall trf_7816(C_word c,C_word *av) C_noret; static void C_ccall trf_7816(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7816(t0,t1,t2,t3);} C_noret_decl(trf_7895) static void C_ccall trf_7895(C_word c,C_word *av) C_noret; static void C_ccall trf_7895(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7895(t0,t1,t2,t3);} C_noret_decl(trf_7902) static void C_ccall trf_7902(C_word c,C_word *av) C_noret; static void C_ccall trf_7902(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7902(t0,t1);} C_noret_decl(trf_8000) static void C_ccall trf_8000(C_word c,C_word *av) C_noret; static void C_ccall trf_8000(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8000(t0,t1);} C_noret_decl(trf_8049) static void C_ccall trf_8049(C_word c,C_word *av) C_noret; static void C_ccall trf_8049(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8049(t0,t1,t2);} C_noret_decl(trf_8063) static void C_ccall trf_8063(C_word c,C_word *av) C_noret; static void C_ccall trf_8063(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8063(t0,t1,t2,t3);} C_noret_decl(trf_8077) static void C_ccall trf_8077(C_word c,C_word *av) C_noret; static void C_ccall trf_8077(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8077(t0,t1);} C_noret_decl(trf_8123) static void C_ccall trf_8123(C_word c,C_word *av) C_noret; static void C_ccall trf_8123(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8123(t0,t1,t2,t3);} C_noret_decl(trf_8135) static void C_ccall trf_8135(C_word c,C_word *av) C_noret; static void C_ccall trf_8135(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8135(t0,t1);} C_noret_decl(trf_8137) static void C_ccall trf_8137(C_word c,C_word *av) C_noret; static void C_ccall trf_8137(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8137(t0,t1,t2);} C_noret_decl(trf_8163) static void C_ccall trf_8163(C_word c,C_word *av) C_noret; static void C_ccall trf_8163(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8163(t0,t1);} C_noret_decl(trf_8229) static void C_ccall trf_8229(C_word c,C_word *av) C_noret; static void C_ccall trf_8229(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8229(t0,t1);} C_noret_decl(trf_8284) static void C_ccall trf_8284(C_word c,C_word *av) C_noret; static void C_ccall trf_8284(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8284(t0,t1,t2,t3);} C_noret_decl(trf_8341) static void C_ccall trf_8341(C_word c,C_word *av) C_noret; static void C_ccall trf_8341(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8341(t0,t1,t2);} C_noret_decl(trf_8444) static void C_ccall trf_8444(C_word c,C_word *av) C_noret; static void C_ccall trf_8444(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8444(t0,t1,t2,t3);} C_noret_decl(trf_8460) static void C_ccall trf_8460(C_word c,C_word *av) C_noret; static void C_ccall trf_8460(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8460(t0,t1,t2,t3);} C_noret_decl(trf_8496) static void C_ccall trf_8496(C_word c,C_word *av) C_noret; static void C_ccall trf_8496(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8496(t0,t1);} C_noret_decl(trf_8554) static void C_ccall trf_8554(C_word c,C_word *av) C_noret; static void C_ccall trf_8554(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8554(t0,t1);} C_noret_decl(trf_8627) static void C_ccall trf_8627(C_word c,C_word *av) C_noret; static void C_ccall trf_8627(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8627(t0,t1,t2);} C_noret_decl(trf_8652) static void C_ccall trf_8652(C_word c,C_word *av) C_noret; static void C_ccall trf_8652(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8652(t0,t1);} C_noret_decl(trf_8654) static void C_ccall trf_8654(C_word c,C_word *av) C_noret; static void C_ccall trf_8654(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8654(t0,t1,t2,t3);} C_noret_decl(trf_8682) static void C_ccall trf_8682(C_word c,C_word *av) C_noret; static void C_ccall trf_8682(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8682(t0,t1,t2);} C_noret_decl(trf_8713) static void C_ccall trf_8713(C_word c,C_word *av) C_noret; static void C_ccall trf_8713(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8713(t0,t1);} C_noret_decl(trf_8815) static void C_ccall trf_8815(C_word c,C_word *av) C_noret; static void C_ccall trf_8815(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8815(t0,t1,t2);} C_noret_decl(trf_8926) static void C_ccall trf_8926(C_word c,C_word *av) C_noret; static void C_ccall trf_8926(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8926(t0,t1,t2);} C_noret_decl(trf_8965) static void C_ccall trf_8965(C_word c,C_word *av) C_noret; static void C_ccall trf_8965(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8965(t0,t1,t2);} C_noret_decl(trf_9007) static void C_ccall trf_9007(C_word c,C_word *av) C_noret; static void C_ccall trf_9007(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9007(t0,t1,t2);} C_noret_decl(trf_9052) static void C_ccall trf_9052(C_word c,C_word *av) C_noret; static void C_ccall trf_9052(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9052(t0,t1,t2);} C_noret_decl(trf_9096) static void C_ccall trf_9096(C_word c,C_word *av) C_noret; static void C_ccall trf_9096(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9096(t0,t1);} C_noret_decl(trf_9105) static void C_ccall trf_9105(C_word c,C_word *av) C_noret; static void C_ccall trf_9105(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9105(t0,t1,t2);} C_noret_decl(trf_9131) static void C_ccall trf_9131(C_word c,C_word *av) C_noret; static void C_ccall trf_9131(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9131(t0,t1);} C_noret_decl(trf_9172) static void C_ccall trf_9172(C_word c,C_word *av) C_noret; static void C_ccall trf_9172(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9172(t0,t1,t2);} C_noret_decl(trf_9189) static void C_ccall trf_9189(C_word c,C_word *av) C_noret; static void C_ccall trf_9189(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9189(t0,t1,t2);} C_noret_decl(trf_9240) static void C_ccall trf_9240(C_word c,C_word *av) C_noret; static void C_ccall trf_9240(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9240(t0,t1,t2);} C_noret_decl(trf_9263) static void C_ccall trf_9263(C_word c,C_word *av) C_noret; static void C_ccall trf_9263(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9263(t0,t1);} C_noret_decl(trf_9283) static void C_ccall trf_9283(C_word c,C_word *av) C_noret; static void C_ccall trf_9283(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9283(t0,t1,t2);} C_noret_decl(trf_9308) static void C_ccall trf_9308(C_word c,C_word *av) C_noret; static void C_ccall trf_9308(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9308(t0,t1,t2);} C_noret_decl(trf_9503) static void C_ccall trf_9503(C_word c,C_word *av) C_noret; static void C_ccall trf_9503(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_9503(t0,t1,t2,t3,t4);} C_noret_decl(trf_9510) static void C_ccall trf_9510(C_word c,C_word *av) C_noret; static void C_ccall trf_9510(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9510(t0,t1);} C_noret_decl(trf_9560) static void C_ccall trf_9560(C_word c,C_word *av) C_noret; static void C_ccall trf_9560(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9560(t0,t1,t2);} C_noret_decl(trf_9621) static void C_ccall trf_9621(C_word c,C_word *av) C_noret; static void C_ccall trf_9621(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9621(t0,t1,t2);} C_noret_decl(trf_9646) static void C_ccall trf_9646(C_word c,C_word *av) C_noret; static void C_ccall trf_9646(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9646(t0,t1,t2);} C_noret_decl(trf_9667) static void C_ccall trf_9667(C_word c,C_word *av) C_noret; static void C_ccall trf_9667(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_9667(t0,t1,t2,t3,t4);} C_noret_decl(trf_9677) static void C_ccall trf_9677(C_word c,C_word *av) C_noret; static void C_ccall trf_9677(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9677(t0,t1);} C_noret_decl(trf_9686) static void C_ccall trf_9686(C_word c,C_word *av) C_noret; static void C_ccall trf_9686(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9686(t0,t1);} C_noret_decl(trf_9698) static void C_ccall trf_9698(C_word c,C_word *av) C_noret; static void C_ccall trf_9698(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9698(t0,t1);} C_noret_decl(trf_9710) static void C_ccall trf_9710(C_word c,C_word *av) C_noret; static void C_ccall trf_9710(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9710(t0,t1);} C_noret_decl(trf_9722) static void C_ccall trf_9722(C_word c,C_word *av) C_noret; static void C_ccall trf_9722(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9722(t0,t1);} C_noret_decl(trf_9734) static void C_ccall trf_9734(C_word c,C_word *av) C_noret; static void C_ccall trf_9734(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9734(t0,t1);} C_noret_decl(trf_9744) static void C_ccall trf_9744(C_word c,C_word *av) C_noret; static void C_ccall trf_9744(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9744(t0,t1,t2);} C_noret_decl(trf_9771) static void C_ccall trf_9771(C_word c,C_word *av) C_noret; static void C_ccall trf_9771(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9771(t0,t1);} C_noret_decl(trva15061) static void C_ccall trva15061(C_word c,C_word *av) C_noret; static void C_ccall trva15061(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; va15061(t0,t1);} C_noret_decl(trva15067) static void C_ccall trva15067(C_word c,C_word *av) C_noret; static void C_ccall trva15067(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; va15067(t0,t1);} C_noret_decl(trva15097) static void C_ccall trva15097(C_word c,C_word *av) C_noret; static void C_ccall trva15097(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; va15097(t0,t1);} C_noret_decl(trva15099) static void C_ccall trva15099(C_word c,C_word *av) C_noret; static void C_ccall trva15099(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; va15099(t0,t1);} C_noret_decl(trva15107) static void C_ccall trva15107(C_word c,C_word *av) C_noret; static void C_ccall trva15107(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; va15107(t0,t1);} C_noret_decl(trva15109) static void C_ccall trva15109(C_word c,C_word *av) C_noret; static void C_ccall trva15109(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; va15109(t0,t1);} /* f14458 in k5382 in k5361 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f14458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f14458,2,av);} /* c-backend.scm:75: chicken.string#string-translate* */ t2=C_fast_retrieve(lf[92]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[93]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f14463 in k5427 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f14463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f14463,2,av);} /* c-backend.scm:75: chicken.string#string-translate* */ t2=C_fast_retrieve(lf[92]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[93]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f14468 in k5448 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f14468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f14468,2,av);} /* c-backend.scm:75: chicken.string#string-translate* */ t2=C_fast_retrieve(lf[92]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[93]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f14476 in k5664 in k5658 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f14476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f14476,2,av);} /* c-backend.scm:325: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[116]; f_4497(3,av2);}} /* f14481 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f14481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f14481,2,av);} /* c-backend.scm:74: chicken.string#string-translate* */ t2=C_fast_retrieve(lf[92]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[170]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f14486 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f14486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f14486,2,av);} /* c-backend.scm:75: chicken.string#string-translate* */ t2=C_fast_retrieve(lf[92]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[93]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f14499 in k6121 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f14499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f14499,2,av);} /* c-backend.scm:399: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* f14503 in k6184 in k6181 in k6178 in k6175 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f14503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f14503,2,av);} /* c-backend.scm:431: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=C_make_character(41); f_4497(4,av2);}} /* f14510 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f14510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f14510,2,av);} /* c-backend.scm:74: chicken.string#string-translate* */ t2=C_fast_retrieve(lf[92]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[170]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f14515 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f14515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f14515,2,av);} /* c-backend.scm:75: chicken.string#string-translate* */ t2=C_fast_retrieve(lf[92]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[93]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f14584 in k7039 in k8868 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f14584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f14584,2,av);} /* c-backend.scm:75: chicken.string#string-translate* */ t2=C_fast_retrieve(lf[92]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[93]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f14591 in k8910 in for-each-loop1731 in k8888 in for-each-loop1718 in k8952 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f14591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f14591,2,av);} /* c-backend.scm:74: chicken.string#string-translate* */ t2=C_fast_retrieve(lf[92]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[170]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f14613 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f14613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f14613,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_10127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_10127,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10130,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* c-backend.scm:1168: gen */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; f_4497(3,av2);}} /* k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_10130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_10130,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10133,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[10])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10239,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1170: cleanup */ f_9096(t3,((C_word*)t0)[10]);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_10133(2,av2);}}} /* k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_10133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_10133,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10136,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* c-backend.scm:1171: generate-foreign-callback-header */ f_10298(t2,lf[582],((C_word*)t0)[9]);} /* k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_10136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,7)))){ C_save_and_reclaim((void *)f_10136,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10139,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_string_equal_p(lf[576],((C_word*)t0)[8]))){ /* c-backend.scm:1172: gen */ t3=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(123); av2[3]=C_SCHEME_TRUE; av2[4]=lf[577]; av2[5]=((C_word*)t0)[8]; av2[6]=lf[578]; av2[7]=lf[579]; f_4497(8,av2);}} else{ /* c-backend.scm:1172: gen */ t3=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(123); av2[3]=C_SCHEME_TRUE; av2[4]=lf[577]; av2[5]=((C_word*)t0)[8]; av2[6]=lf[578]; av2[7]=lf[580]; f_4497(8,av2);}}} /* k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_ccall f_10139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10139,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10142,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:1174: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[575]; f_4497(4,av2);}} /* k10140 in k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in ... */ static void C_ccall f_10142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_10142,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10154,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:1179: scheme#reverse */ t3=*((C_word*)lf[574]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k10149 in for-each-loop2157 in k10155 in k10152 in k10140 in k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in ... */ static void C_ccall f_10151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_10151,2,av);} /* c-backend.scm:1177: gen */ t2=lf[4];{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[570]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=lf[571]; av2[7]=C_SCHEME_TRUE; av2[8]=lf[572]; f_4497(9,av2);}} /* k10152 in k10140 in k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in ... */ static void C_ccall f_10154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_10154,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10157,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:1180: scheme#reverse */ t4=*((C_word*)lf[574]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10155 in k10152 in k10140 in k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in ... */ static void C_ccall f_10157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_10157,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10160,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10190,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_10190(t6,t2,((C_word*)t0)[6],t1);} /* k10158 in k10155 in k10152 in k10140 in k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in ... */ static void C_ccall f_10160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_10160,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10163,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_eqp(lf[559],((C_word*)t0)[3]); if(C_truep(t3)){ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_10163(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10188,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1182: foreign-argument-conversion */ f_11468(t4,((C_word*)t0)[3]);}} /* k10161 in k10158 in k10155 in k10152 in k10140 in k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in ... */ static void C_ccall f_10163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_10163,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10166,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1183: gen */ t3=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[568]; av2[3]=((C_word*)t0)[4]; av2[4]=C_make_character(44); av2[5]=((C_word*)t0)[5]; av2[6]=C_make_character(41); f_4497(7,av2);}} /* k10164 in k10161 in k10158 in k10155 in k10152 in k10140 in k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in ... */ static void C_ccall f_10166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10166,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10169,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_eqp(lf[559],((C_word*)t0)[3]); if(C_truep(t3)){ /* c-backend.scm:1185: gen */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[567]; f_4497(3,av2);}} else{ /* c-backend.scm:1184: gen */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=C_make_character(41); f_4497(3,av2);}}} /* k10167 in k10164 in k10161 in k10158 in k10155 in k10152 in k10140 in k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in ... */ static void C_ccall f_10169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10169,2,av);} /* c-backend.scm:1185: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[567]; f_4497(3,av2);}} /* k10186 in k10158 in k10155 in k10152 in k10140 in k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in ... */ static void C_ccall f_10188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10188,2,av);} /* c-backend.scm:1182: gen */ t2=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[569]; av2[4]=t1; f_4497(5,av2);}} /* for-each-loop2157 in k10155 in k10152 in k10140 in k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in ... */ static void C_fcall f_10190(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_10190,4,t0,t1,t2,t3);} a=C_alloc(10); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10200,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); t9=t6; t10=t7; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10151,a[2]=t9,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1177: foreign-result-conversion */ f_12133(t11,t8,lf[573]);} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k10198 in for-each-loop2157 in k10155 in k10152 in k10140 in k10137 in k10134 in k10131 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in ... */ static void C_ccall f_10200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10200,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_10190(t4,((C_word*)t0)[5],t2,t3);} /* k10237 in k10128 in k10125 in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_10239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10239,2,av);} /* c-backend.scm:1170: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[583]; av2[4]=t1; av2[5]=lf[584]; f_4497(6,av2);}} /* loop in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_fcall f_10241(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_10241,5,t0,t1,t2,t3,t4);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t5=t4; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_i_cdr(t2); t6=t5; t7=C_i_cdr(t3); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10263,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t6,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t10=t2; t11=C_u_i_car(t10); t12=t3; t13=C_u_i_car(t12); /* c-backend.scm:1167: compute-size */ t14=((C_word*)((C_word*)t0)[3])[1]; f_9667(t14,t9,t11,t13,t4);}} /* k10261 in loop in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_10263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10263,2,av);} /* c-backend.scm:1166: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10241(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* for-each-loop1980 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10275(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10275,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10285,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* c-backend.scm:1124: g1981 */ t5=((C_word*)t0)[3]; f_9646(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10283 in for-each-loop1980 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10285,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10275(t3,((C_word*)t0)[4],t2);} /* chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10298(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10298,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10302,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1189: chicken.compiler.support#foreign-callback-stub-name */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[655]); C_word av2[3]; av2[0]=*((C_word*)lf[655]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10302,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10305,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1190: chicken.compiler.support#foreign-callback-stub-qualifiers */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[654]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[654]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k10303 in k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_10305,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10308,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:1191: chicken.compiler.support#foreign-callback-stub-return-type */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[588]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[588]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k10306 in k10303 in k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_10308,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10311,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:1192: chicken.compiler.support#foreign-callback-stub-argument-types */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[587]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[587]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k10309 in k10306 in k10303 in k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10311,2,av);} a=C_alloc(8); t2=t1; t3=C_i_length(t2); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10317,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:1194: make-argument-list */ f_9189(t4,t3,lf[653]);} /* k10315 in k10309 in k10306 in k10303 in k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_10317,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10320,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10372,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1195: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[219]+1); av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=lf[652]; tp(4,av2);}} /* k10318 in k10315 in k10309 in k10306 in k10303 in k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_10320,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10323,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10328,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_10328(t6,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k10321 in k10318 in k10315 in k10309 in k10306 in k10303 in k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10323,2,av);} /* c-backend.scm:1201: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* loop in k10318 in k10315 in k10309 in k10306 in k10303 in k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10328(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_10328,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10338,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10360,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_i_car(t3); t7=C_i_car(t2); /* c-backend.scm:1198: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[219]+1); av2[1]=t5; av2[2]=t6; av2[3]=t7; tp(4,av2);}}} /* k10336 in loop in k10318 in k10315 in k10309 in k10306 in k10303 in k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10338,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10341,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); if(C_truep(C_i_pairp(t4))){ /* c-backend.scm:1199: gen */ t5=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=C_make_character(44); f_4497(3,av2);}} else{ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_10341(2,av2);}}} /* k10339 in k10336 in loop in k10318 in k10315 in k10309 in k10306 in k10303 in k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10341,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* c-backend.scm:1200: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_10328(t6,((C_word*)t0)[5],t3,t5);} /* k10358 in loop in k10318 in k10315 in k10309 in k10306 in k10303 in k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10360,2,av);} /* c-backend.scm:1198: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_4497(3,av2);}} /* k10370 in k10315 in k10309 in k10306 in k10303 in k10300 in chicken.compiler.c-backend#generate-foreign-callback-header in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_10372,2,av);} /* c-backend.scm:1195: gen */ t2=lf[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[3]; av2[4]=C_make_character(32); av2[5]=t1; av2[6]=((C_word*)t0)[4]; av2[7]=C_make_character(32); av2[8]=((C_word*)t0)[5]; av2[9]=C_make_character(40); f_4497(10,av2);}} /* chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_10374,4,av);} a=C_alloc(14); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10376,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10381,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t6=t2; t7=C_eqp(t6,lf[561]); if(C_truep(t7)){ /* c-backend.scm:1210: str */ t8=t5; f_10381(t8,t1,lf[659]);} else{ t8=C_eqp(t6,lf[17]); t9=(C_truep(t8)?t8:C_eqp(t6,lf[565])); if(C_truep(t9)){ /* c-backend.scm:1211: str */ t10=t5; f_10381(t10,t1,lf[660]);} else{ t10=C_eqp(t6,lf[562]); t11=(C_truep(t10)?t10:C_eqp(t6,lf[566])); if(C_truep(t11)){ /* c-backend.scm:1212: str */ t12=t5; f_10381(t12,t1,lf[661]);} else{ t12=C_eqp(t6,lf[563]); t13=(C_truep(t12)?t12:C_eqp(t6,lf[514])); if(C_truep(t13)){ /* c-backend.scm:1213: str */ t14=t5; f_10381(t14,t1,lf[662]);} else{ t14=C_eqp(t6,lf[564]); t15=(C_truep(t14)?t14:C_eqp(t6,lf[547])); if(C_truep(t15)){ /* c-backend.scm:1214: str */ t16=t5; f_10381(t16,t1,lf[663]);} else{ t16=C_eqp(t6,lf[556]); t17=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10451,a[2]=t5,a[3]=t1,a[4]=t6,a[5]=t3,a[6]=t2,a[7]=t4,tmp=(C_word)a,a+=8,tmp); if(C_truep(t16)){ t18=t17; f_10451(t18,t16);} else{ t18=C_eqp(t6,lf[549]); t19=t17; f_10451(t19,(C_truep(t18)?t18:C_eqp(t6,lf[14])));}}}}}}} /* err in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10376(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_10376,2,t0,t1);} /* c-backend.scm:1207: chicken.compiler.support#quit-compiling */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[656]); C_word av2[4]; av2[0]=*((C_word*)lf[656]+1); av2[1]=t1; av2[2]=lf[657]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* str in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10381(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_10381,3,t0,t1,t2);} /* c-backend.scm:1208: scheme#string-append */ t3=*((C_word*)lf[128]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[658]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10451(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_10451,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1215: str */ t2=((C_word*)t0)[2]; f_10381(t2,((C_word*)t0)[3],lf[664]);} else{ t2=C_eqp(((C_word*)t0)[4],lf[545]); if(C_truep(t2)){ /* c-backend.scm:1216: str */ t3=((C_word*)t0)[2]; f_10381(t3,((C_word*)t0)[3],lf[665]);} else{ t3=C_eqp(((C_word*)t0)[4],lf[546]); if(C_truep(t3)){ /* c-backend.scm:1217: str */ t4=((C_word*)t0)[2]; f_10381(t4,((C_word*)t0)[3],lf[666]);} else{ t4=C_eqp(((C_word*)t0)[4],lf[557]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[550])); if(C_truep(t5)){ /* c-backend.scm:1218: str */ t6=((C_word*)t0)[2]; f_10381(t6,((C_word*)t0)[3],lf[667]);} else{ t6=C_eqp(((C_word*)t0)[4],lf[544]); if(C_truep(t6)){ /* c-backend.scm:1219: str */ t7=((C_word*)t0)[2]; f_10381(t7,((C_word*)t0)[3],lf[668]);} else{ t7=C_eqp(((C_word*)t0)[4],lf[516]); if(C_truep(t7)){ /* c-backend.scm:1220: str */ t8=((C_word*)t0)[2]; f_10381(t8,((C_word*)t0)[3],lf[669]);} else{ t8=C_eqp(((C_word*)t0)[4],lf[558]); if(C_truep(t8)){ /* c-backend.scm:1221: str */ t9=((C_word*)t0)[2]; f_10381(t9,((C_word*)t0)[3],lf[670]);} else{ t9=C_eqp(((C_word*)t0)[4],lf[548]); if(C_truep(t9)){ /* c-backend.scm:1222: str */ t10=((C_word*)t0)[2]; f_10381(t10,((C_word*)t0)[3],lf[671]);} else{ t10=C_eqp(((C_word*)t0)[4],lf[560]); if(C_truep(t10)){ /* c-backend.scm:1223: str */ t11=((C_word*)t0)[2]; f_10381(t11,((C_word*)t0)[3],lf[672]);} else{ t11=C_eqp(((C_word*)t0)[4],lf[551]); if(C_truep(t11)){ /* c-backend.scm:1224: str */ t12=((C_word*)t0)[2]; f_10381(t12,((C_word*)t0)[3],lf[673]);} else{ t12=C_eqp(((C_word*)t0)[4],lf[512]); if(C_truep(t12)){ /* c-backend.scm:1225: str */ t13=((C_word*)t0)[2]; f_10381(t13,((C_word*)t0)[3],lf[674]);} else{ t13=C_eqp(((C_word*)t0)[4],lf[553]); t14=(C_truep(t13)?t13:C_eqp(((C_word*)t0)[4],lf[552])); if(C_truep(t14)){ /* c-backend.scm:1226: str */ t15=((C_word*)t0)[2]; f_10381(t15,((C_word*)t0)[3],lf[675]);} else{ t15=C_eqp(((C_word*)t0)[4],lf[529]); t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10568,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t15)){ t17=t16; f_10568(t17,t15);} else{ t17=C_eqp(((C_word*)t0)[4],lf[531]); if(C_truep(t17)){ t18=t16; f_10568(t18,t17);} else{ t18=C_eqp(((C_word*)t0)[4],lf[747]); t19=t16; f_10568(t19,(C_truep(t18)?t18:C_eqp(((C_word*)t0)[4],lf[748])));}}}}}}}}}}}}}}} /* k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10568(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_10568,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1227: str */ t2=((C_word*)t0)[2]; f_10381(t2,((C_word*)t0)[3],lf[676]);} else{ t2=C_eqp(((C_word*)t0)[4],lf[554]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[555])); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[677]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[4],lf[678]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10589,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5; f_10589(t6,t4);} else{ t6=C_eqp(((C_word*)t0)[4],lf[744]); if(C_truep(t6)){ t7=t5; f_10589(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[4],lf[745]); t8=t5; f_10589(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[746])));}}}}} /* k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10589(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_10589,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1229: str */ t2=((C_word*)t0)[2]; f_10381(t2,((C_word*)t0)[3],lf[679]);} else{ t2=C_eqp(((C_word*)t0)[4],lf[680]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[681])); if(C_truep(t3)){ /* c-backend.scm:1230: str */ t4=((C_word*)t0)[2]; f_10381(t4,((C_word*)t0)[3],lf[682]);} else{ t4=C_eqp(((C_word*)t0)[4],lf[683]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[684])); if(C_truep(t5)){ /* c-backend.scm:1231: str */ t6=((C_word*)t0)[2]; f_10381(t6,((C_word*)t0)[3],lf[685]);} else{ t6=C_eqp(((C_word*)t0)[4],lf[686]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[687])); if(C_truep(t7)){ /* c-backend.scm:1232: str */ t8=((C_word*)t0)[2]; f_10381(t8,((C_word*)t0)[3],lf[688]);} else{ t8=C_eqp(((C_word*)t0)[4],lf[689]); t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[4],lf[690])); if(C_truep(t9)){ /* c-backend.scm:1233: str */ t10=((C_word*)t0)[2]; f_10381(t10,((C_word*)t0)[3],lf[691]);} else{ t10=C_eqp(((C_word*)t0)[4],lf[692]); t11=(C_truep(t10)?t10:C_eqp(((C_word*)t0)[4],lf[693])); if(C_truep(t11)){ /* c-backend.scm:1234: str */ t12=((C_word*)t0)[2]; f_10381(t12,((C_word*)t0)[3],lf[694]);} else{ t12=C_eqp(((C_word*)t0)[4],lf[695]); t13=(C_truep(t12)?t12:C_eqp(((C_word*)t0)[4],lf[696])); if(C_truep(t13)){ /* c-backend.scm:1235: str */ t14=((C_word*)t0)[2]; f_10381(t14,((C_word*)t0)[3],lf[697]);} else{ t14=C_eqp(((C_word*)t0)[4],lf[698]); t15=(C_truep(t14)?t14:C_eqp(((C_word*)t0)[4],lf[699])); if(C_truep(t15)){ /* c-backend.scm:1236: str */ t16=((C_word*)t0)[2]; f_10381(t16,((C_word*)t0)[3],lf[700]);} else{ t16=C_eqp(((C_word*)t0)[4],lf[701]); t17=(C_truep(t16)?t16:C_eqp(((C_word*)t0)[4],lf[702])); if(C_truep(t17)){ /* c-backend.scm:1237: str */ t18=((C_word*)t0)[2]; f_10381(t18,((C_word*)t0)[3],lf[703]);} else{ t18=C_eqp(((C_word*)t0)[4],lf[704]); t19=(C_truep(t18)?t18:C_eqp(((C_word*)t0)[4],lf[705])); if(C_truep(t19)){ /* c-backend.scm:1238: str */ t20=((C_word*)t0)[2]; f_10381(t20,((C_word*)t0)[3],lf[706]);} else{ t20=C_eqp(((C_word*)t0)[4],lf[707]); t21=(C_truep(t20)?t20:C_eqp(((C_word*)t0)[4],lf[708])); if(C_truep(t21)){ /* c-backend.scm:1239: str */ t22=((C_word*)t0)[2]; f_10381(t22,((C_word*)t0)[3],lf[709]);} else{ t22=C_eqp(((C_word*)t0)[4],lf[522]); t23=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10721,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t22)){ t24=t23; f_10721(t24,t22);} else{ t24=C_eqp(((C_word*)t0)[4],lf[518]); if(C_truep(t24)){ t25=t23; f_10721(t25,t24);} else{ t25=C_eqp(((C_word*)t0)[4],lf[537]); if(C_truep(t25)){ t26=t23; f_10721(t26,t25);} else{ t26=C_eqp(((C_word*)t0)[4],lf[541]); t27=t23; f_10721(t27,(C_truep(t26)?t26:C_eqp(((C_word*)t0)[4],lf[540])));}}}}}}}}}}}}}}} /* k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10721(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_10721,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1241: str */ t2=((C_word*)t0)[2]; f_10381(t2,((C_word*)t0)[3],lf[710]);} else{ t2=C_eqp(((C_word*)t0)[4],lf[538]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10733,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_10733(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[539]); if(C_truep(t4)){ t5=t3; f_10733(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[4],lf[542]); t6=t3; f_10733(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[4],lf[543])));}}}} /* k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10733(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_10733,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ /* c-backend.scm:1243: str */ t2=((C_word*)t0)[2]; f_10381(t2,((C_word*)t0)[3],lf[711]);} else{ t2=C_eqp(((C_word*)t0)[4],lf[559]); if(C_truep(t2)){ /* c-backend.scm:1244: str */ t3=((C_word*)t0)[2]; f_10381(t3,((C_word*)t0)[3],lf[712]);} else{ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10748,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[6]))){ /* c-backend.scm:1246: chicken.compiler.support#lookup-foreign-type */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[536]); C_word av2[3]; av2[0]=*((C_word*)lf[536]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_10748(2,av2);}}}}} /* k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10748,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10752,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1246: g2326 */ t3=t2; f_10752(t3,((C_word*)t0)[3],t1);} else{ if(C_truep(C_i_stringp(((C_word*)t0)[4]))){ /* c-backend.scm:1249: str */ t2=((C_word*)t0)[5]; f_10381(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ if(C_truep(C_i_listp(((C_word*)t0)[4]))){ t2=((C_word*)t0)[4]; t3=C_u_i_length(t2); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10785,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,tmp=(C_word)a,a+=8,tmp); t5=C_eqp(C_fix(2),t3); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[4]); t7=t4; f_10785(t7,C_u_i_memq(t6,lf[743]));} else{ t6=t4; f_10785(t6,C_SCHEME_FALSE);}} else{ /* c-backend.scm:1300: err */ t2=((C_word*)t0)[6]; f_10376(t2,((C_word*)t0)[3]);}}}} /* g2326 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10752(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_10752,3,t0,t1,t2);} t3=C_i_vector_ref(t2,C_fix(0)); /* c-backend.scm:1248: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[219]+1); av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10785(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_10785,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10796,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1257: scheme#string-append */ t5=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[713]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10802,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_eqp(C_fix(2),((C_word*)t0)[7]); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[2]); t5=t2; f_10802(t5,C_eqp(lf[525],t4));} else{ t4=t2; f_10802(t4,C_SCHEME_FALSE);}}} /* k10794 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10796,2,av);} /* c-backend.scm:1257: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[219]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10802(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_10802,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10813,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1260: scheme#string-append */ t5=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[714]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10819,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_fixnum_greaterp(((C_word*)t0)[7],C_fix(2)))){ t3=C_i_car(((C_word*)t0)[2]); t4=t2; f_10819(t4,C_eqp(lf[742],t3));} else{ t3=t2; f_10819(t3,C_SCHEME_FALSE);}}} /* k10811 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10813,2,av);} /* c-backend.scm:1260: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[219]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10819(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_10819,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10830,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(((C_word*)t0)[4]); /* c-backend.scm:1265: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[219]+1); av2[1]=t3; av2[2]=t4; av2[3]=lf[719]; tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10896,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); t3=C_eqp(((C_word*)t0)[7],C_fix(2)); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[4]); t5=t2; f_10896(t5,C_eqp(lf[527],t4));} else{ t4=t2; f_10896(t4,C_SCHEME_FALSE);}}} /* k10824 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10826,2,av);} /* c-backend.scm:1263: str */ t2=((C_word*)t0)[2]; f_10381(t2,((C_word*)t0)[3],t1);} /* k10828 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_10830,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10834,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_cddr(((C_word*)t0)[3]); t9=C_i_check_list_2(t8,lf[287]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10852,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10854,a[2]=t6,a[3]=t12,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_10854(t14,t10,t8);} /* k10832 in k10828 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10834,2,av);} /* c-backend.scm:1264: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[715]; av2[4]=t1; av2[5]=lf[716]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k10850 in k10828 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10852,2,av);} /* c-backend.scm:1267: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[280]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[717]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2339 in k10828 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10854(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_10854,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10879,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[219]+1); /* c-backend.scm:1268: g2362 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[219]+1); av2[1]=t3; av2[2]=t4; av2[3]=lf[718]; tp(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10877 in map-loop2339 in k10828 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_10879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10879,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10854(t6,((C_word*)t0)[5],t5);} /* k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10896(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_10896,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10903,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:1272: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[219]+1); av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10913,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_eqp(((C_word*)t0)[6],C_fix(2)); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[3]); t5=t2; f_10913(t5,C_eqp(lf[741],t4));} else{ t4=t2; f_10913(t4,C_SCHEME_FALSE);}}} /* k10901 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_10903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10903,2,av);} /* c-backend.scm:1272: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[720]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_10913(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_10913,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10920,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[4]); /* c-backend.scm:1274: chicken.string#->string */ t4=C_fast_retrieve(lf[94]);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10930,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_eqp(((C_word*)t0)[6],C_fix(2)); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[4]); t5=t2; f_10930(t5,C_eqp(lf[740],t4));} else{ t4=t2; f_10930(t4,C_SCHEME_FALSE);}}} /* k10918 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_10920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10920,2,av);} /* c-backend.scm:1274: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[721]; av2[3]=t1; av2[4]=lf[722]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_fcall f_10930(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_10930,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10937,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[4]); /* c-backend.scm:1276: chicken.string#->string */ t4=C_fast_retrieve(lf[94]);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10947,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_eqp(((C_word*)t0)[6],C_fix(2)); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[4]); t5=t2; f_10947(t5,C_eqp(lf[739],t4));} else{ t4=t2; f_10947(t4,C_SCHEME_FALSE);}}} /* k10935 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_10937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10937,2,av);} /* c-backend.scm:1276: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[723]; av2[3]=t1; av2[4]=lf[724]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_fcall f_10947(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_10947,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10954,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[4]); /* c-backend.scm:1278: chicken.string#->string */ t4=C_fast_retrieve(lf[94]);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10964,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_eqp(((C_word*)t0)[6],C_fix(3)); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[4]); t5=t2; f_10964(t5,C_u_i_memq(t4,lf[738]));} else{ t4=t2; f_10964(t4,C_SCHEME_FALSE);}}} /* k10952 in k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_10954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10954,2,av);} /* c-backend.scm:1278: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[725]; av2[3]=t1; av2[4]=lf[726]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k10962 in k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_fcall f_10964(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_10964,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10971,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[4]); /* c-backend.scm:1280: chicken.string#->string */ t4=C_fast_retrieve(lf[94]);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10981,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_eqp(((C_word*)t0)[6],C_fix(3)); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[4]); t5=t2; f_10981(t5,C_eqp(lf[535],t4));} else{ t4=t2; f_10981(t4,C_SCHEME_FALSE);}}} /* k10969 in k10962 in k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_10971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10971,2,av);} /* c-backend.scm:1280: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[727]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10979 in k10962 in k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_fcall f_10981(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10981,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10988,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[4]); /* c-backend.scm:1282: chicken.string#->string */ t4=C_fast_retrieve(lf[94]);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10998,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[6],C_fix(3)))){ t3=C_i_car(((C_word*)t0)[4]); t4=t2; f_10998(t4,C_eqp(lf[532],t3));} else{ t3=t2; f_10998(t3,C_SCHEME_FALSE);}}} /* k10986 in k10979 in k10962 in k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_10988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10988,2,av);} /* c-backend.scm:1282: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[728]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10996 in k10979 in k10962 in k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_fcall f_10998(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_10998,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=C_i_caddr(((C_word*)t0)[2]); t4=t3; t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); t9=C_i_nullp(t8); t10=(C_truep(t9)?lf[729]:C_i_car(t8)); t11=t10; t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11017,a[2]=((C_word*)t0)[3],a[3]=t11,a[4]=((C_word*)t0)[4],a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1288: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[219]+1); av2[1]=t12; av2[2]=t2; av2[3]=lf[737]; tp(4,av2);}} else{ /* c-backend.scm:1299: err */ t2=((C_word*)t0)[5]; f_10376(t2,((C_word*)t0)[3]);}} /* k11015 in k10996 in k10979 in k10962 in k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_11017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_11017,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11021,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_check_list_2(((C_word*)t0)[5],lf[287]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11042,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11044,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_11044(t13,t9,((C_word*)t0)[5]);} /* k11019 in k11015 in k10996 in k10979 in k10962 in k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in ... */ static void C_ccall f_11021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_11021,2,av);} /* c-backend.scm:1287: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[730]; av2[5]=((C_word*)t0)[5]; av2[6]=lf[731]; av2[7]=t1; av2[8]=lf[732]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k11040 in k11015 in k10996 in k10979 in k10962 in k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in ... */ static void C_ccall f_11042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11042,2,av);} /* c-backend.scm:1291: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[280]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[733]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2387 in k11015 in k10996 in k10979 in k10962 in k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in k3208 in ... */ static void C_fcall f_11044(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11044,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11069,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_eqp(lf[734],t4); if(C_truep(t5)){ t6=t3;{ C_word av2[2]; av2[0]=t6; av2[1]=lf[735]; f_11069(2,av2);}} else{ /* c-backend.scm:1295: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[219]+1); av2[1]=t3; av2[2]=t4; av2[3]=lf[736]; tp(4,av2);}}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11067 in map-loop2387 in k11015 in k10996 in k10979 in k10962 in k10945 in k10928 in k10911 in k10894 in k10817 in k10800 in k10783 in k10746 in k10731 in k10719 in k10587 in k10566 in k10449 in chicken.compiler.c-backend#foreign-type-declaration in k3214 in k3211 in ... */ static void C_ccall f_11069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11069,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11044(t6,((C_word*)t0)[5],t5);} /* chicken.compiler.c-backend#foreign-argument-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_11468(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_11468,2,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11470,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=t2; t5=C_eqp(t4,lf[561]); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=lf[750]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(t4,lf[17]); t7=(C_truep(t6)?t6:C_eqp(t4,lf[562])); if(C_truep(t7)){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=lf[751]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t4,lf[565]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11498,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(t8)){ t10=t9; f_11498(t10,t8);} else{ t10=C_eqp(t4,lf[556]); if(C_truep(t10)){ t11=t9; f_11498(t11,t10);} else{ t11=C_eqp(t4,lf[557]); if(C_truep(t11)){ t12=t9; f_11498(t12,t11);} else{ t12=C_eqp(t4,lf[563]); if(C_truep(t12)){ t13=t9; f_11498(t13,t12);} else{ t13=C_eqp(t4,lf[564]); t14=t9; f_11498(t14,(C_truep(t13)?t13:C_eqp(t4,lf[566])));}}}}}}} /* err in chicken.compiler.c-backend#foreign-argument-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_11470(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_11470,2,t0,t1);} /* c-backend.scm:1307: chicken.compiler.support#quit-compiling */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[656]); C_word av2[4]; av2[0]=*((C_word*)lf[656]+1); av2[1]=t1; av2[2]=lf[749]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* k11496 in chicken.compiler.c-backend#foreign-argument-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_11498(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11498,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[752]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[558]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[753]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[3],lf[560]); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[754]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[551]); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[755]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[3],lf[553]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11525,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t5)){ t7=t6; f_11525(t7,t5);} else{ t7=C_eqp(((C_word*)t0)[3],lf[552]); t8=t6; f_11525(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[512])));}}}}}} /* k11523 in k11496 in chicken.compiler.c-backend#foreign-argument-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_11525(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11525,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[756]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[549]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],lf[550])); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[757]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[3],lf[544]); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[758]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[3],lf[545]); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=lf[759]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(((C_word*)t0)[3],lf[546]); if(C_truep(t6)){ t7=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t7; av2[1]=lf[760]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(((C_word*)t0)[3],lf[516]); if(C_truep(t7)){ t8=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t8; av2[1]=lf[761]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(((C_word*)t0)[3],lf[548]); if(C_truep(t8)){ t9=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t9; av2[1]=lf[762]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_eqp(((C_word*)t0)[3],lf[514]); t10=(C_truep(t9)?t9:C_eqp(((C_word*)t0)[3],lf[547])); if(C_truep(t10)){ t11=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t11; av2[1]=lf[763]; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_eqp(((C_word*)t0)[3],lf[747]); if(C_truep(t11)){ t12=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t12; av2[1]=lf[764]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(((C_word*)t0)[3],lf[748]); if(C_truep(t12)){ t13=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t13; av2[1]=lf[765]; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=C_eqp(((C_word*)t0)[3],lf[529]); if(C_truep(t13)){ t14=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t14; av2[1]=lf[766]; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=C_eqp(((C_word*)t0)[3],lf[531]); if(C_truep(t14)){ t15=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t15; av2[1]=lf[767]; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t15=C_eqp(((C_word*)t0)[3],lf[678]); if(C_truep(t15)){ t16=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t16; av2[1]=lf[768]; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t16=C_eqp(((C_word*)t0)[3],lf[744]); if(C_truep(t16)){ t17=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t17; av2[1]=lf[769]; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} else{ t17=C_eqp(((C_word*)t0)[3],lf[745]); if(C_truep(t17)){ t18=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t18; av2[1]=lf[770]; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ t18=C_eqp(((C_word*)t0)[3],lf[746]); if(C_truep(t18)){ t19=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t19; av2[1]=lf[771]; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t19=C_eqp(((C_word*)t0)[3],lf[680]); if(C_truep(t19)){ t20=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t20; av2[1]=lf[772]; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} else{ t20=C_eqp(((C_word*)t0)[3],lf[681]); if(C_truep(t20)){ t21=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t21; av2[1]=lf[773]; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}} else{ t21=C_eqp(((C_word*)t0)[3],lf[686]); if(C_truep(t21)){ t22=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t22; av2[1]=lf[774]; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ t22=C_eqp(((C_word*)t0)[3],lf[687]); if(C_truep(t22)){ t23=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t23; av2[1]=lf[775]; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} else{ t23=C_eqp(((C_word*)t0)[3],lf[689]); if(C_truep(t23)){ t24=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t24; av2[1]=lf[776]; ((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}} else{ t24=C_eqp(((C_word*)t0)[3],lf[690]); if(C_truep(t24)){ t25=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t25; av2[1]=lf[777]; ((C_proc)(void*)(*((C_word*)t25+1)))(2,av2);}} else{ t25=C_eqp(((C_word*)t0)[3],lf[683]); if(C_truep(t25)){ t26=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t26; av2[1]=lf[778]; ((C_proc)(void*)(*((C_word*)t26+1)))(2,av2);}} else{ t26=C_eqp(((C_word*)t0)[3],lf[684]); if(C_truep(t26)){ t27=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t27; av2[1]=lf[779]; ((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}} else{ t27=C_eqp(((C_word*)t0)[3],lf[692]); if(C_truep(t27)){ t28=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t28; av2[1]=lf[780]; ((C_proc)(void*)(*((C_word*)t28+1)))(2,av2);}} else{ t28=C_eqp(((C_word*)t0)[3],lf[693]); if(C_truep(t28)){ t29=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t29; av2[1]=lf[781]; ((C_proc)(void*)(*((C_word*)t29+1)))(2,av2);}} else{ t29=C_eqp(((C_word*)t0)[3],lf[695]); if(C_truep(t29)){ t30=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t30; av2[1]=lf[782]; ((C_proc)(void*)(*((C_word*)t30+1)))(2,av2);}} else{ t30=C_eqp(((C_word*)t0)[3],lf[696]); if(C_truep(t30)){ t31=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t31; av2[1]=lf[783]; ((C_proc)(void*)(*((C_word*)t31+1)))(2,av2);}} else{ t31=C_eqp(((C_word*)t0)[3],lf[698]); if(C_truep(t31)){ t32=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t32; av2[1]=lf[784]; ((C_proc)(void*)(*((C_word*)t32+1)))(2,av2);}} else{ t32=C_eqp(((C_word*)t0)[3],lf[699]); if(C_truep(t32)){ t33=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t33; av2[1]=lf[785]; ((C_proc)(void*)(*((C_word*)t33+1)))(2,av2);}} else{ t33=C_eqp(((C_word*)t0)[3],lf[701]); if(C_truep(t33)){ t34=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t34; av2[1]=lf[786]; ((C_proc)(void*)(*((C_word*)t34+1)))(2,av2);}} else{ t34=C_eqp(((C_word*)t0)[3],lf[702]); if(C_truep(t34)){ t35=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t35; av2[1]=lf[787]; ((C_proc)(void*)(*((C_word*)t35+1)))(2,av2);}} else{ t35=C_eqp(((C_word*)t0)[3],lf[704]); if(C_truep(t35)){ t36=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t36; av2[1]=lf[788]; ((C_proc)(void*)(*((C_word*)t36+1)))(2,av2);}} else{ t36=C_eqp(((C_word*)t0)[3],lf[705]); if(C_truep(t36)){ t37=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t37; av2[1]=lf[789]; ((C_proc)(void*)(*((C_word*)t37+1)))(2,av2);}} else{ t37=C_eqp(((C_word*)t0)[3],lf[707]); if(C_truep(t37)){ t38=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t38; av2[1]=lf[790]; ((C_proc)(void*)(*((C_word*)t38+1)))(2,av2);}} else{ t38=C_eqp(((C_word*)t0)[3],lf[708]); if(C_truep(t38)){ t39=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t39; av2[1]=lf[791]; ((C_proc)(void*)(*((C_word*)t39+1)))(2,av2);}} else{ t39=C_eqp(((C_word*)t0)[3],lf[518]); t40=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11750,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t39)){ t41=t40; f_11750(t41,t39);} else{ t41=C_eqp(((C_word*)t0)[3],lf[541]); if(C_truep(t41)){ t42=t40; f_11750(t42,t41);} else{ t42=C_eqp(((C_word*)t0)[3],lf[542]); t43=t40; f_11750(t43,(C_truep(t42)?t42:C_eqp(((C_word*)t0)[3],lf[543])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k11748 in k11523 in k11496 in chicken.compiler.c-backend#foreign-argument-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_11750(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11750,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[792]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[522]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11759,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t4=t3; f_11759(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[3],lf[537]); if(C_truep(t4)){ t5=t3; f_11759(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[3],lf[538]); if(C_truep(t5)){ t6=t3; f_11759(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[3],lf[539]); t7=t3; f_11759(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[3],lf[540])));}}}}} /* k11757 in k11748 in k11523 in k11496 in chicken.compiler.c-backend#foreign-argument-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_11759(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11759,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[793]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[14]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=lf[794]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11768,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){ /* c-backend.scm:1356: chicken.compiler.support#lookup-foreign-type */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[536]); C_word av2[3]; av2[0]=*((C_word*)lf[536]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_11768(2,av2);}}}}} /* k11766 in k11757 in k11748 in k11523 in k11496 in chicken.compiler.c-backend#foreign-argument-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_11768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11768,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=t1; t4=C_i_vector_ref(t3,C_fix(0)); /* c-backend.scm:1358: foreign-argument-conversion */ f_11468(t2,t4);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11789,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_listp(((C_word*)t0)[3]))){ t3=((C_word*)t0)[3]; t4=C_u_i_length(t3); t5=t2; f_11789(t5,C_fixnum_greater_or_equal_p(t4,C_fix(2)));} else{ t3=t2; f_11789(t3,C_SCHEME_FALSE);}}} /* k11787 in k11766 in k11757 in k11748 in k11523 in k11496 in chicken.compiler.c-backend#foreign-argument-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_11789(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_11789,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(t2,lf[529]); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[795]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(t2,lf[531]); if(C_truep(t4)){ t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[796]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(t2,lf[533]); if(C_truep(t5)){ t6=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t6; av2[1]=lf[797]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(t2,lf[534]); if(C_truep(t6)){ t7=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t7; av2[1]=lf[798]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(t2,lf[747]); if(C_truep(t7)){ t8=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t8; av2[1]=lf[799]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t2,lf[748]); if(C_truep(t8)){ t9=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t9; av2[1]=lf[800]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_eqp(t2,lf[532]); if(C_truep(t9)){ t10=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t10; av2[1]=lf[801]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(t2,lf[527]); if(C_truep(t10)){ t11=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:1368: foreign-argument-conversion */ f_11468(((C_word*)t0)[3],t11);} else{ t11=C_eqp(t2,lf[739]); if(C_truep(t11)){ t12=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t12; av2[1]=lf[802]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(t2,lf[525]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11866,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t14=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:1371: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[219]+1); av2[1]=t13; av2[2]=t14; av2[3]=lf[805]; tp(4,av2);}} else{ t13=C_eqp(t2,lf[535]); if(C_truep(t13)){ t14=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:1374: scheme#string-append */ t15=*((C_word*)lf[128]+1);{ C_word av2[5]; av2[0]=t15; av2[1]=((C_word*)t0)[3]; av2[2]=lf[806]; av2[3]=t14; av2[4]=lf[807]; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} else{ /* c-backend.scm:1375: err */ t14=((C_word*)t0)[4]; f_11470(t14,((C_word*)t0)[3]);}}}}}}}}}}}} else{ /* c-backend.scm:1376: err */ t2=((C_word*)t0)[4]; f_11470(t2,((C_word*)t0)[3]);}} /* k11864 in k11787 in k11766 in k11757 in k11748 in k11523 in k11496 in chicken.compiler.c-backend#foreign-argument-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_11866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11866,2,av);} /* c-backend.scm:1371: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[803]; av2[3]=t1; av2[4]=lf[804]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_12133(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_12133,3,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12135,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t2; t6=C_eqp(t5,lf[17]); t7=(C_truep(t6)?t6:C_eqp(t5,lf[562])); if(C_truep(t7)){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=lf[809]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t5,lf[556]); t9=(C_truep(t8)?t8:C_eqp(t5,lf[557])); if(C_truep(t9)){ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=lf[810]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(t5,lf[563]); t11=(C_truep(t10)?t10:C_eqp(t5,lf[564])); if(C_truep(t11)){ t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=lf[811]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(t5,lf[558]); if(C_truep(t12)){ t13=t1;{ C_word av2[2]; av2[0]=t13; av2[1]=lf[812]; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=C_eqp(t5,lf[560]); if(C_truep(t13)){ t14=t1;{ C_word av2[2]; av2[0]=t14; av2[1]=lf[813]; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=C_eqp(t5,lf[565]); if(C_truep(t14)){ t15=t1;{ C_word av2[2]; av2[0]=t15; av2[1]=lf[814]; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t15=C_eqp(t5,lf[566]); if(C_truep(t15)){ t16=t1;{ C_word av2[2]; av2[0]=t16; av2[1]=lf[815]; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t16=C_eqp(t5,lf[512]); t17=(C_truep(t16)?t16:C_eqp(t5,lf[553])); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12202,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1392: chicken.base#open-output-string */ t19=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t19; av2[1]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t18=C_eqp(t5,lf[552]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12226,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1393: chicken.base#open-output-string */ t20=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t20; av2[1]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} else{ t19=C_eqp(t5,lf[522]); t20=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12250,a[2]=t1,a[3]=t3,a[4]=t5,a[5]=t2,a[6]=t4,tmp=(C_word)a,a+=7,tmp); if(C_truep(t19)){ t21=t20; f_12250(t21,t19);} else{ t21=C_eqp(t5,lf[518]); if(C_truep(t21)){ t22=t20; f_12250(t22,t21);} else{ t22=C_eqp(t5,lf[531]); if(C_truep(t22)){ t23=t20; f_12250(t23,t22);} else{ t23=C_eqp(t5,lf[541]); if(C_truep(t23)){ t24=t20; f_12250(t24,t23);} else{ t24=C_eqp(t5,lf[537]); if(C_truep(t24)){ t25=t20; f_12250(t25,t24);} else{ t25=C_eqp(t5,lf[542]); if(C_truep(t25)){ t26=t20; f_12250(t26,t25);} else{ t26=C_eqp(t5,lf[543]); if(C_truep(t26)){ t27=t20; f_12250(t27,t26);} else{ t27=C_eqp(t5,lf[538]); if(C_truep(t27)){ t28=t20; f_12250(t28,t27);} else{ t28=C_eqp(t5,lf[539]); if(C_truep(t28)){ t29=t20; f_12250(t29,t28);} else{ t29=C_eqp(t5,lf[540]); if(C_truep(t29)){ t30=t20; f_12250(t30,t29);} else{ t30=C_eqp(t5,lf[554]); t31=t20; f_12250(t31,(C_truep(t30)?t30:C_eqp(t5,lf[555])));}}}}}}}}}}}}}}}}}}}} /* err in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_12135(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_12135,2,t0,t1);} /* c-backend.scm:1383: chicken.compiler.support#quit-compiling */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[656]); C_word av2[4]; av2[0]=*((C_word*)lf[656]+1); av2[1]=t1; av2[2]=lf[808]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* k12200 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12202,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12208,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1392: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[816]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12206 in k12200 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12208,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12211,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1392: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12209 in k12206 in k12200 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12211,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12214,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1392: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[335]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[335]+1); av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k12212 in k12209 in k12206 in k12200 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12214,2,av);} /* c-backend.scm:1392: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12224 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12226,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12232,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1393: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[817]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12230 in k12224 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12232,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12235,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1393: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12233 in k12230 in k12224 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12235,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12238,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1393: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[335]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[335]+1); av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k12236 in k12233 in k12230 in k12224 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12238,2,av);} /* c-backend.scm:1393: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_12250(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_12250,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12253,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1397: chicken.base#open-output-string */ t3=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[529]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12277,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1398: chicken.base#open-output-string */ t4=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[4],lf[549]); t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[4],lf[550])); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12304,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1399: chicken.base#open-output-string */ t6=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[4],lf[544]); t6=(C_truep(t5)?t5:C_eqp(((C_word*)t0)[4],lf[546])); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12331,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1400: chicken.base#open-output-string */ t8=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_eqp(((C_word*)t0)[4],lf[516]); t8=(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[545])); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1401: chicken.base#open-output-string */ t10=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_eqp(((C_word*)t0)[4],lf[514]); t10=(C_truep(t9)?t9:C_eqp(((C_word*)t0)[4],lf[547])); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12385,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1402: chicken.base#open-output-string */ t12=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t11=C_eqp(((C_word*)t0)[4],lf[548]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12409,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1403: chicken.base#open-output-string */ t13=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t12=C_eqp(((C_word*)t0)[4],lf[551]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12433,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1404: chicken.base#open-output-string */ t14=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t13=C_eqp(((C_word*)t0)[4],lf[14]); if(C_truep(t13)){ t14=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t14; av2[1]=lf[828]; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=C_eqp(((C_word*)t0)[4],lf[559]); t15=(C_truep(t14)?t14:C_eqp(((C_word*)t0)[4],lf[561])); if(C_truep(t15)){ t16=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t16; av2[1]=lf[829]; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12466,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[5]))){ /* c-backend.scm:1408: chicken.compiler.support#lookup-foreign-type */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[536]); C_word av2[3]; av2[0]=*((C_word*)lf[536]+1); av2[1]=t16; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ t17=t16;{ C_word av2[2]; av2[0]=t17; av2[1]=C_SCHEME_FALSE; f_12466(2,av2);}}}}}}}}}}}}} /* k12251 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12253,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12259,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1397: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[819]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12257 in k12251 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12259,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12262,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1397: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12260 in k12257 in k12251 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12262,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12265,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1397: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[818]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12263 in k12260 in k12257 in k12251 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12265,2,av);} /* c-backend.scm:1397: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12275 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12277,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12283,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1398: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[821]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12281 in k12275 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12283,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12286,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1398: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12284 in k12281 in k12275 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12286,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12289,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1398: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[820]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12287 in k12284 in k12281 in k12275 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12289,2,av);} /* c-backend.scm:1398: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12302 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12304,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12310,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1399: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[822]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12308 in k12302 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12310,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12313,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1399: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12311 in k12308 in k12302 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12313,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12316,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1399: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[335]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[335]+1); av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k12314 in k12311 in k12308 in k12302 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12316,2,av);} /* c-backend.scm:1399: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12329 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12331,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12337,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1400: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[823]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12335 in k12329 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12337,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12340,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1400: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12338 in k12335 in k12329 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12340,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12343,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1400: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[335]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[335]+1); av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k12341 in k12338 in k12335 in k12329 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12343,2,av);} /* c-backend.scm:1400: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12356 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12358,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12364,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1401: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[824]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12362 in k12356 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12364,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12367,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1401: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12365 in k12362 in k12356 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12367,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12370,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1401: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[335]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[335]+1); av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k12368 in k12365 in k12362 in k12356 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12370,2,av);} /* c-backend.scm:1401: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12383 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12385,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12391,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1402: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[825]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12389 in k12383 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12391,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12394,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1402: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12392 in k12389 in k12383 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12394,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12397,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1402: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[335]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[335]+1); av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k12395 in k12392 in k12389 in k12383 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12397,2,av);} /* c-backend.scm:1402: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12407 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12409,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12415,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1403: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[826]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12413 in k12407 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12415,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12418,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1403: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12416 in k12413 in k12407 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12418,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12421,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1403: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[335]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[335]+1); av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k12419 in k12416 in k12413 in k12407 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12421,2,av);} /* c-backend.scm:1403: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12431 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12433,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12439,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1404: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[827]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12437 in k12431 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12439,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12442,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1404: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12440 in k12437 in k12431 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12442,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12445,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1404: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[335]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[335]+1); av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k12443 in k12440 in k12437 in k12431 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12445,2,av);} /* c-backend.scm:1404: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_12466,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12470,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1408: g2686 */ t3=t2; f_12470(t3,((C_word*)t0)[3],t1);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12487,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_listp(((C_word*)t0)[4]))){ t3=((C_word*)t0)[4]; t4=C_u_i_length(t3); t5=t2; f_12487(t5,C_fixnum_greater_or_equal_p(t4,C_fix(2)));} else{ t3=t2; f_12487(t3,C_SCHEME_FALSE);}}} /* g2686 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_12470(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_12470,3,t0,t1,t2);} t3=C_i_vector_ref(t2,C_fix(0)); /* c-backend.scm:1410: foreign-result-conversion */ f_12133(t1,t3,((C_word*)t0)[2]);} /* k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_12487(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_12487,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(t2,lf[530]); t4=(C_truep(t3)?t3:C_eqp(t2,lf[531])); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12502,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1414: chicken.base#open-output-string */ t6=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_eqp(t2,lf[525]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12526,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1416: chicken.base#open-output-string */ t7=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_eqp(t2,lf[533]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12550,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1418: chicken.base#open-output-string */ t8=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_eqp(t2,lf[534]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12574,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1420: chicken.base#open-output-string */ t9=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=C_eqp(t2,lf[535]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12598,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1422: chicken.base#open-output-string */ t10=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_eqp(t2,lf[527]); if(C_truep(t9)){ t10=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:1423: foreign-result-conversion */ f_12133(((C_word*)t0)[3],t10,((C_word*)t0)[4]);} else{ t10=C_eqp(t2,lf[528]); t11=(C_truep(t10)?t10:C_eqp(t2,lf[529])); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12638,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1425: chicken.base#open-output-string */ t13=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t12=C_eqp(t2,lf[532]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12662,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1426: chicken.base#open-output-string */ t14=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t13=C_eqp(t2,lf[739]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12686,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1427: chicken.base#open-output-string */ t15=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ /* c-backend.scm:1428: err */ t14=((C_word*)t0)[5]; f_12135(t14,((C_word*)t0)[3]);}}}}}}}}}} else{ /* c-backend.scm:1429: err */ t2=((C_word*)t0)[5]; f_12135(t2,((C_word*)t0)[3]);}} /* k12500 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12502,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12508,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1414: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[831]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12506 in k12500 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12508,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12511,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1414: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12509 in k12506 in k12500 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12511,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1414: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[830]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12512 in k12509 in k12506 in k12500 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12514,2,av);} /* c-backend.scm:1414: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12524 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12526,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12532,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1416: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[833]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12530 in k12524 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12532,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12535,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1416: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12533 in k12530 in k12524 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12535,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12538,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1416: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[832]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12536 in k12533 in k12530 in k12524 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12538,2,av);} /* c-backend.scm:1416: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12548 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12550,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12556,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1418: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[835]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12554 in k12548 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12556,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12559,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1418: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12557 in k12554 in k12548 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12559,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12562,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1418: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[834]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12560 in k12557 in k12554 in k12548 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12562,2,av);} /* c-backend.scm:1418: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12572 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12574,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12580,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1420: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[837]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12578 in k12572 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12580,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12583,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1420: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12581 in k12578 in k12572 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12583,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12586,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1420: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[836]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12584 in k12581 in k12578 in k12572 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12586,2,av);} /* c-backend.scm:1420: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12596 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12598,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12604,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1422: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[839]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12602 in k12596 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12604,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12607,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1422: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12605 in k12602 in k12596 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12607,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12610,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1422: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[838]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12608 in k12605 in k12602 in k12596 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12610,2,av);} /* c-backend.scm:1422: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12636 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12638,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12644,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1425: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[841]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12642 in k12636 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12644,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12647,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1425: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12645 in k12642 in k12636 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12647,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12650,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1425: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[840]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12648 in k12645 in k12642 in k12636 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12650,2,av);} /* c-backend.scm:1425: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12660 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12662,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12668,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1426: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[843]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12666 in k12660 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12668,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12671,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1426: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12669 in k12666 in k12660 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12671,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12674,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1426: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[842]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12672 in k12669 in k12666 in k12660 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12674,2,av);} /* c-backend.scm:1426: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12684 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12686,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12692,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1427: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[844]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12690 in k12684 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12692,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12695,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1427: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12693 in k12690 in k12684 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12695,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12698,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1427: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[335]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[335]+1); av2[1]=t2; av2[2]=C_make_character(44); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k12696 in k12693 in k12690 in k12684 in k12485 in k12464 in k12248 in chicken.compiler.c-backend#foreign-result-conversion in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12698,2,av);} /* c-backend.scm:1427: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_12920(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_12920,2,t1,t2);} a=C_alloc(13); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12929,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12995,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_eqp(C_SCHEME_TRUE,t2); if(C_truep(t5)){ t6=t1; t7=C_a_i_string(&a,1,C_make_character(254)); /* c-backend.scm:1461: scheme#string-append */ t8=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=lf[846]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t6=C_eqp(C_SCHEME_FALSE,t2); if(C_truep(t6)){ t7=t1; t8=C_a_i_string(&a,1,C_make_character(254)); /* c-backend.scm:1461: scheme#string-append */ t9=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=lf[847]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ if(C_truep(C_charp(t2))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13017,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t8=C_fix(C_character_code(t2)); /* c-backend.scm:1465: encode-size */ f_12929(t7,t8);} else{ if(C_truep(C_i_nullp(t2))){ t7=t1; t8=C_a_i_string(&a,1,C_make_character(254)); /* c-backend.scm:1461: scheme#string-append */ t9=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=lf[849]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ if(C_truep(C_eofp(t2))){ t7=t1; t8=C_a_i_string(&a,1,C_make_character(254)); /* c-backend.scm:1461: scheme#string-append */ t9=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=lf[850]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t7=*((C_word*)lf[351]+1); t8=C_eqp(*((C_word*)lf[351]+1),t2); if(C_truep(t8)){ t9=t1; t10=C_a_i_string(&a,1,C_make_character(254)); /* c-backend.scm:1461: scheme#string-append */ t11=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t9; av2[2]=t10; av2[3]=lf[851]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13045,a[2]=t2,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnump(t2))){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13254,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1470: chicken.compiler.support#big-fixnum? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[347]); C_word av2[3]; av2[0]=*((C_word*)lf[347]+1); av2[1]=t10; av2[2]=t2; tp(3,av2);}} else{ t10=t9; f_13045(t10,C_SCHEME_FALSE);}}}}}}}} /* encode-size in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_12929(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){ C_save_and_reclaim_args((void *)trf_12929,2,t1,t2);} a=C_alloc(29); t3=C_i_fixnum_length(t2); if(C_truep(C_fixnum_greaterp(t3,C_fix(24)))){ /* c-backend.scm:1454: chicken.compiler.support#quit-compiling */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[656]); C_word av2[4]; av2[0]=*((C_word*)lf[656]+1); av2[1]=t1; av2[2]=lf[845]; av2[3]=t2; tp(4,av2);}} else{ t4=C_s_a_i_arithmetic_shift(&a,2,t2,C_fix(-16)); t5=C_s_a_i_bitwise_and(&a,2,C_fix(255),t4); t6=C_make_character(C_unfix(t5)); t7=C_s_a_i_arithmetic_shift(&a,2,t2,C_fix(-8)); t8=C_s_a_i_bitwise_and(&a,2,C_fix(255),t7); t9=C_make_character(C_unfix(t8)); t10=C_s_a_i_bitwise_and(&a,2,C_fix(255),t2); t11=C_make_character(C_unfix(t10)); t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=C_a_i_string(&a,3,t6,t9,t11); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* k12993 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_12995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){ C_save_and_reclaim((void *)f_12995,2,av);} a=C_alloc(2); t2=((C_word*)t0)[2]; t3=C_a_i_string(&a,1,C_make_character(254)); /* c-backend.scm:1461: scheme#string-append */ t4=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k13015 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13017,2,av);} /* c-backend.scm:1465: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[848]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_13045(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(40,0,3)))){ C_save_and_reclaim_args((void *)trf_13045,2,t0,t1);} a=C_alloc(40); if(C_truep(t1)){ t2=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],C_fix(-24)); t3=C_s_a_i_bitwise_and(&a,2,C_fix(255),t2); t4=C_make_character(C_unfix(t3)); t5=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],C_fix(-16)); t6=C_s_a_i_bitwise_and(&a,2,C_fix(255),t5); t7=C_make_character(C_unfix(t6)); t8=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],C_fix(-8)); t9=C_s_a_i_bitwise_and(&a,2,C_fix(255),t8); t10=C_make_character(C_unfix(t9)); t11=C_s_a_i_bitwise_and(&a,2,C_fix(255),((C_word*)t0)[2]); t12=C_make_character(C_unfix(t11)); t13=C_a_i_string(&a,4,t4,t7,t10,t12); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[118]); C_word av2[4]; av2[0]=*((C_word*)lf[118]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[852]; av2[3]=t13; tp(4,av2);}} else{ t2=((C_word*)t0)[2]; if(C_truep(C_i_exact_integerp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13104,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2]; /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]); C_word av2[4]; av2[0]=*((C_word*)lf[120]+1); av2[1]=t3; av2[2]=t4; av2[3]=C_fix(16); tp(4,av2);}} else{ if(C_truep(C_i_flonump(((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13131,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[2]; /* ##sys#flonum->string */ t5=C_fast_retrieve(lf[856]);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13138,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1488: chicken.keyword#keyword? */ t4=C_fast_retrieve(lf[346]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}}} /* k13102 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_13104,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13111,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_block_size(t2); /* c-backend.scm:1485: encode-size */ f_12929(t3,t4);} /* k13109 in k13102 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13111,2,av);} /* c-backend.scm:1485: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[853]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k13129 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13131,2,av);} /* c-backend.scm:1487: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[854]; av2[3]=t1; av2[4]=lf[855]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k13136 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_13138,2,av);} a=C_alloc(11); t2=(C_truep(t1)?t1:C_i_symbolp(((C_word*)t0)[2])); if(C_truep(t2)){ t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13151,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=C_i_string_length(t4); /* c-backend.scm:1492: encode-size */ f_12929(t5,t6);} else{ if(C_truep(C_immp(((C_word*)t0)[2]))){ /* c-backend.scm:1496: chicken.compiler.support#bomb */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[860]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} else{ if(C_truep(C_byteblockp(((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13181,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2]; t5=stub2805(C_SCHEME_UNDEFINED,t4); t6=C_make_character(C_unfix(t5)); t7=C_a_i_string(&a,1,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13189,a[2]=t3,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=((C_word*)t0)[2]; t11=stub2809(C_SCHEME_UNDEFINED,t10); /* c-backend.scm:1501: encode-size */ f_12929(t9,t11);} else{ t3=((C_word*)t0)[2]; t4=stub2809(C_SCHEME_UNDEFINED,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13211,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t7=((C_word*)t0)[2]; t8=stub2805(C_SCHEME_UNDEFINED,t7); t9=C_make_character(C_unfix(t8)); t10=C_a_i_string(&a,1,t9); t11=t10; t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13219,a[2]=t6,a[3]=t11,a[4]=((C_word*)t0)[2],a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1508: encode-size */ f_12929(t12,t5);}}}} /* k13149 in k13136 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_13151,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13158,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1493: chicken.keyword#keyword? */ t4=C_fast_retrieve(lf[346]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13156 in k13149 in k13136 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_13158,2,av);} if(C_truep(t1)){ /* c-backend.scm:1490: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[857]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[858]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ /* c-backend.scm:1490: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[857]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[859]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k13179 in k13136 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13181,2,av);} /* c-backend.scm:1498: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[118]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[118]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k13187 in k13136 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13189,2,av);} /* c-backend.scm:1499: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k13209 in k13136 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13211,2,av);} /* c-backend.scm:1505: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[280]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[861]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k13217 in k13136 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_13219,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13223,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13225,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1509: list-tabulate */ f_4229(t3,((C_word*)t0)[5],t4);} /* k13221 in k13217 in k13136 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_13223,2,av);} a=C_alloc(11); t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3657,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_3657(t6,((C_word*)t0)[3],((C_word*)t0)[4],t2);} /* a13224 in k13217 in k13136 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13225,3,av);} t3=C_slot(((C_word*)t0)[2],t2); /* c-backend.scm:1509: encode-literal */ f_12920(t1,t3);} /* k13252 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_13254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13254,2,av);} t2=((C_word*)t0)[2]; f_13045(t2,C_i_not(t1));} /* k3190 */ static void C_ccall f_3192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3192,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3195,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k3193 in k3190 */ static void C_ccall f_3195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3195,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3198,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k3196 in k3193 in k3190 */ static void C_ccall f_3198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3198,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3201,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_3201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3201,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3204,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_3204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3204,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3207,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_c_2dplatform_toplevel(2,av2);}} /* k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_3207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3207,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3210,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_compiler_toplevel(2,av2);}} /* k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_3210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3210,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3213,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_3213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3213,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3216,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_support_toplevel(2,av2);}} /* k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_3216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(44,c,11)))){ C_save_and_reclaim((void *)f_3216,2,av);} a=C_alloc(44); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate(&lf[2] /* (set! chicken.compiler.c-backend#list-tabulate ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4229,tmp=(C_word)a,a+=2,tmp)); t5=lf[3] /* chicken.compiler.c-backend#output */ =C_SCHEME_FALSE;; t6=C_mutate(&lf[4] /* (set! chicken.compiler.c-backend#gen ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4497,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[7] /* (set! chicken.compiler.c-backend#gen-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4540,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate((C_word*)lf[9]+1 /* (set! chicken.compiler.c-backend#generate-code ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4649,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate(&lf[198] /* (set! chicken.compiler.c-backend#toplevel ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9080,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate(&lf[469] /* (set! chicken.compiler.c-backend#cleanup ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9096,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate(&lf[319] /* (set! chicken.compiler.c-backend#make-variable-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9172,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate(&lf[322] /* (set! chicken.compiler.c-backend#make-argument-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9189,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate(&lf[265] /* (set! chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9263,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate(&lf[581] /* (set! chicken.compiler.c-backend#generate-foreign-callback-header ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10298,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate((C_word*)lf[219]+1 /* (set! chicken.compiler.c-backend#foreign-type-declaration ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10374,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate(&lf[218] /* (set! chicken.compiler.c-backend#foreign-argument-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11468,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate(&lf[213] /* (set! chicken.compiler.c-backend#foreign-result-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12133,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate(&lf[365] /* (set! chicken.compiler.c-backend#encode-literal ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12920,tmp=(C_word)a,a+=2,tmp)); t19=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t19; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} /* loop in k13221 in k13217 in k13136 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_3657(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_3657,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3671,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t3); t6=t3; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:95: loop */ t9=t4; t10=t5; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* k3669 in loop in k13221 in k13217 in k13136 in k13043 in chicken.compiler.c-backend#encode-literal in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_3671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3671,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.c-backend#list-tabulate in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_4229(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_4229,3,t1,t2,t3);} a=C_alloc(7); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4235,a[2]=t2,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_4235(t7,t1,C_fix(0));} /* loop in chicken.compiler.c-backend#list-tabulate in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_4235(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4235,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4249,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:190: proc */ t4=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}} /* k4247 in loop in chicken.compiler.c-backend#list-tabulate in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4249,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4253,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* mini-srfi-1.scm:190: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_4235(t5,t3,t4);} /* k4251 in k4247 in loop in chicken.compiler.c-backend#list-tabulate in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4253,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4408 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in ... */ static void C_ccall f_4409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4409,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4420 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_4421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4421,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.c-backend#gen in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_4497,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4517,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_4517(t6,t1,t2);} /* for-each-loop628 in chicken.compiler.c-backend#gen in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_4517(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4517,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4527,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=C_eqp(C_SCHEME_TRUE,t4); if(C_truep(t5)){ /* c-backend.scm:64: scheme#newline */ t6=*((C_word*)lf[5]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t3; av2[2]=lf[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* c-backend.scm:65: scheme#display */ t6=*((C_word*)lf[6]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4525 in for-each-loop628 in chicken.compiler.c-backend#gen in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4527,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4517(t3,((C_word*)t0)[4],t2);} /* chicken.compiler.c-backend#gen-list in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_4540(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_4540,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4549,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:71: chicken.base#intersperse */ t4=C_fast_retrieve(lf[8]);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_make_character(32); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4547 in chicken.compiler.c-backend#gen-list in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4549,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4554,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_4554(t5,((C_word*)t0)[2],t1);} /* for-each-loop648 in k4547 in chicken.compiler.c-backend#gen-list in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_4554(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4554,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4564,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* c-backend.scm:70: scheme#display */ t5=*((C_word*)lf[6]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4562 in for-each-loop648 in k4547 in chicken.compiler.c-backend#gen-list in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4564,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4554(t3,((C_word*)t0)[4],t2);} /* k4603 in chicken.compiler.c-backend#toplevel in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4605,2,av);} /* c-backend.scm:76: chicken.internal#string->c-identifier */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[489]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[489]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k4609 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_4611,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4616,tmp=(C_word)a,a+=2,tmp); /* c-backend.scm:87: chicken.sort#sort! */ t3=C_fast_retrieve(lf[645]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a4615 in k4609 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4616,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4624,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t2); /* c-backend.scm:87: scheme#symbol->string */ t6=*((C_word*)lf[610]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4622 in a4615 in k4609 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4624,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4628,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:88: scheme#symbol->string */ t5=*((C_word*)lf[610]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4626 in k4622 in a4615 in k4609 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4628,2,av);} /* c-backend.scm:87: scheme#string= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a4637 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4638,4,av);} a=C_alloc(6); t4=C_a_i_cons(&a,2,t2,t3); t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[2])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10=av[10]; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(c!=11) C_bad_argc_2(c,11,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_4649,11,av);} a=C_alloc(20); t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4653,a[2]=t4,a[3]=t7,a[4]=t6,a[5]=t2,a[6]=t3,a[7]=t9,a[8]=t5,a[9]=t1,a[10]=t10,tmp=(C_word)a,a+=11,tmp); t12=t11; t13=t4; t14=C_SCHEME_END_OF_LIST; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4611,a[2]=t12,a[3]=t15,tmp=(C_word)a,a+=4,tmp); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4638,a[2]=t15,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:81: chicken.internal#hash-table-for-each */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[646]); C_word *av2=av; av2[0]=*((C_word*)lf[646]+1); av2[1]=t16; av2[2]=t17; av2[3]=t13; tp(4,av2);}} /* k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_4653,2,av);} a=C_alloc(20); t2=t1; t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4656,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t2,a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp); t6=C_fast_retrieve(lf[642]); t7=C_a_i_fixnum_plus(&a,2,C_fast_retrieve(lf[642]),C_fix(1)); /* c-backend.scm:98: chicken.flonum#flonum-print-precision */ t8=C_fast_retrieve(lf[643]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t5; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(82,c,5)))){ C_save_and_reclaim((void *)f_4656,2,av);} a=C_alloc(82); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_SCHEME_UNDEFINED; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4658,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp)); t27=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4670,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t28=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6884,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp)); t29=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7043,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp)); t30=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7247,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp)); t31=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7431,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp)); t32=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7558,a[2]=t19,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp)); t33=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7612,a[2]=t17,tmp=(C_word)a,a+=3,tmp)); t34=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7895,a[2]=t21,tmp=(C_word)a,a+=3,tmp)); t35=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8049,a[2]=t23,tmp=(C_word)a,a+=3,tmp)); t36=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8123,tmp=(C_word)a,a+=2,tmp)); t37=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8135,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=t15,a[6]=t17,a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp)); t38=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8839,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[5],a[6]=t25,a[7]=((C_word*)t0)[12],a[8]=t13,a[9]=((C_word*)t0)[9],a[10]=t11,a[11]=t9,a[12]=t7,tmp=(C_word)a,a+=13,tmp); /* c-backend.scm:934: chicken.compiler.support#debugging */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[470]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[470]+1); av2[1]=t38; av2[2]=lf[640]; av2[3]=lf[641]; tp(4,av2);}} /* find-lambda in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_4658(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_4658,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4662,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:103: chicken.internal#hash-table-ref */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[12]); C_word av2[4]; av2[0]=*((C_word*)lf[12]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; tp(4,av2);}} /* k4660 in find-lambda in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4662,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* c-backend.scm:104: chicken.compiler.support#bomb */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[11]; av2[3]=((C_word*)t0)[3]; tp(4,av2);}}} /* expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_4670(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,0,5)))){ C_save_and_reclaim_args((void *)trf_4670,5,t0,t1,t2,t3,t4);} a=C_alloc(21); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4673,a[2]=t6,a[3]=t10,a[4]=t4,a[5]=t8,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp)); t12=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6725,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t13=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6761,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); /* c-backend.scm:556: expr */ t14=((C_word*)t6)[1]; f_4673(t14,t1,t2,t3);} /* expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_4673(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_4673,4,t0,t1,t2,t3);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4677,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=t2,tmp=(C_word)a,a+=11,tmp); /* c-backend.scm:110: chicken.compiler.support#node-subexpressions */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[242]); C_word av2[3]; av2[0]=*((C_word*)lf[242]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}} /* k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_4677,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4680,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* c-backend.scm:111: chicken.compiler.support#node-parameters */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[110]+1); av2[1]=t3; av2[2]=((C_word*)t0)[10]; tp(3,av2);}} /* k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_4680,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4683,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* c-backend.scm:112: chicken.compiler.support#node-class */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[160]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[160]+1); av2[1]=t3; av2[2]=((C_word*)t0)[11]; tp(3,av2);}} /* k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,6)))){ C_save_and_reclaim((void *)f_4683,2,av);} a=C_alloc(25); t2=C_eqp(t1,lf[13]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[2]); t4=C_eqp(t3,lf[14]); if(C_truep(t4)){ if(C_truep(C_i_cadr(((C_word*)t0)[2]))){ /* c-backend.scm:116: gen */ t5=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[15]; f_4497(3,av2);}} else{ /* c-backend.scm:116: gen */ t5=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[16]; f_4497(3,av2);}}} else{ t5=C_eqp(t3,lf[17]); if(C_truep(t5)){ t6=C_i_cadr(((C_word*)t0)[2]); t7=C_fix(C_character_code(t6)); /* c-backend.scm:117: gen */ t8=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=((C_word*)t0)[3]; av2[2]=lf[18]; av2[3]=t7; av2[4]=C_make_character(41); f_4497(5,av2);}} else{ t6=C_eqp(t3,lf[19]); if(C_truep(t6)){ /* c-backend.scm:118: gen */ t7=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=lf[20]; f_4497(3,av2);}} else{ t7=C_eqp(t3,lf[21]); if(C_truep(t7)){ t8=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:119: gen */ t9=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[3]; av2[2]=lf[22]; av2[3]=t8; av2[4]=C_make_character(41); f_4497(5,av2);}} else{ t8=C_eqp(t3,lf[23]); if(C_truep(t8)){ /* c-backend.scm:120: gen */ t9=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=((C_word*)t0)[3]; av2[2]=lf[24]; f_4497(3,av2);}} else{ /* c-backend.scm:121: chicken.compiler.support#bomb */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[10]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[25]; tp(3,av2);}}}}}}} else{ t3=C_eqp(t1,lf[26]); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[2]); if(C_truep(C_i_vectorp(t4))){ t5=C_i_vector_ref(t4,C_fix(0)); /* c-backend.scm:126: gen */ t6=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=lf[27]; av2[3]=t5; av2[4]=lf[28]; f_4497(5,av2);}} else{ t5=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:127: gen */ t6=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=lf[29]; av2[3]=t5; av2[4]=C_make_character(93); f_4497(5,av2);}}} else{ t4=C_eqp(t1,lf[30]); if(C_truep(t4)){ t5=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:130: gen */ t6=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=t5; f_4497(3,av2);}} else{ t5=C_eqp(t1,lf[31]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4820,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:133: gen */ t7=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=C_SCHEME_TRUE; av2[3]=lf[34]; f_4497(4,av2);}} else{ t6=C_eqp(t1,lf[35]); if(C_truep(t6)){ t7=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:142: gen */ t8=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=((C_word*)t0)[3]; av2[2]=lf[36]; av2[3]=t7; f_4497(4,av2);}} else{ t7=C_eqp(t1,lf[37]); if(C_truep(t7)){ t8=C_i_car(((C_word*)t0)[2]); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4878,a[2]=t10,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_4878(t12,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[6],t8);} else{ t8=C_eqp(t1,lf[38]); if(C_truep(t8)){ t9=C_i_car(((C_word*)t0)[2]); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4926,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:155: gen */ t11=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t11; av2[1]=t10; av2[2]=C_SCHEME_TRUE; av2[3]=C_make_character(102); av2[4]=t9; av2[5]=C_make_character(61); f_4497(6,av2);}} else{ t9=C_eqp(t1,lf[39]); if(C_truep(t9)){ t10=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:161: gen */ t11=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(102); av2[3]=t10; f_4497(4,av2);}} else{ t10=C_eqp(t1,lf[40]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4965,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:164: gen */ t12=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=lf[42]; f_4497(3,av2);}} else{ t11=C_eqp(t1,lf[43]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4984,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:169: gen */ t13=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t12; av2[2]=lf[45]; f_4497(3,av2);}} else{ t12=C_eqp(t1,lf[46]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5003,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:174: gen */ t14=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t13; av2[2]=lf[48]; f_4497(3,av2);}} else{ t13=C_eqp(t1,lf[49]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5030,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:179: gen */ t15=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t15; av2[1]=t14; av2[2]=lf[51]; f_4497(3,av2);}} else{ t14=C_eqp(t1,lf[52]); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5049,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:184: gen */ t16=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t16; av2[1]=t15; av2[2]=lf[53]; f_4497(3,av2);}} else{ t15=C_eqp(t1,lf[54]); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5082,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:191: gen */ t17=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t17; av2[1]=t16; av2[2]=lf[57]; f_4497(3,av2);}} else{ t16=C_eqp(t1,lf[58]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5119,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:198: gen */ t18=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t18; av2[1]=t17; av2[2]=lf[60]; f_4497(3,av2);}} else{ t17=C_eqp(t1,lf[61]); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5148,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:205: gen */ t19=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t19; av2[1]=t18; av2[2]=lf[63]; f_4497(3,av2);}} else{ t18=C_eqp(t1,lf[64]); if(C_truep(t18)){ t19=C_i_car(((C_word*)t0)[2]); t20=t19; t21=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5180,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],a[5]=t20,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:213: gen */ t22=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t22; av2[1]=t21; av2[2]=lf[71]; av2[3]=t20; av2[4]=C_make_character(44); f_4497(5,av2);}} else{ t19=C_eqp(t1,lf[72]); if(C_truep(t19)){ t20=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5254,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:223: gen */ t21=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t21; av2[1]=t20; av2[2]=lf[74]; f_4497(3,av2);}} else{ t20=C_eqp(t1,lf[75]); if(C_truep(t20)){ t21=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:227: gen */ t22=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t22; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(116); av2[3]=t21; f_4497(4,av2);}} else{ t21=C_eqp(t1,lf[76]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5286,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t23=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:230: gen */ t24=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t24; av2[1]=t22; av2[2]=C_make_character(116); av2[3]=t23; av2[4]=C_make_character(61); f_4497(5,av2);}} else{ t22=C_eqp(t1,lf[77]); if(C_truep(t22)){ t23=C_i_car(((C_word*)t0)[2]); t24=t23; t25=C_i_cadr(((C_word*)t0)[2]); if(C_truep(C_i_caddr(((C_word*)t0)[2]))){ if(C_truep(t25)){ /* c-backend.scm:239: gen */ t26=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t26; av2[1]=((C_word*)t0)[3]; av2[2]=lf[78]; av2[3]=t24; av2[4]=lf[79]; f_4497(5,av2);}} else{ t26=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5328,a[2]=((C_word*)t0)[3],a[3]=t24,tmp=(C_word)a,a+=4,tmp); t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5332,a[2]=t26,tmp=(C_word)a,a+=3,tmp); t28=C_i_cadddr(((C_word*)t0)[2]); /* c-backend.scm:241: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[84]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[84]+1); av2[1]=t27; av2[2]=t28; tp(3,av2);}}} else{ if(C_truep(t25)){ /* c-backend.scm:243: gen */ t26=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t26; av2[1]=((C_word*)t0)[3]; av2[2]=lf[85]; av2[3]=t24; av2[4]=lf[86]; f_4497(5,av2);}} else{ /* c-backend.scm:244: gen */ t26=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t26; av2[1]=((C_word*)t0)[3]; av2[2]=lf[87]; av2[3]=t24; av2[4]=lf[88]; f_4497(5,av2);}}}} else{ t23=C_eqp(t1,lf[89]); if(C_truep(t23)){ t24=C_i_car(((C_word*)t0)[2]); t25=C_i_cadr(((C_word*)t0)[2]); t26=C_i_caddr(((C_word*)t0)[2]); t27=t26; t28=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5363,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t27,tmp=(C_word)a,a+=7,tmp); if(C_truep(t25)){ /* c-backend.scm:251: gen */ t29=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t29; av2[1]=t28; av2[2]=lf[95]; av2[3]=t24; av2[4]=lf[96]; f_4497(5,av2);}} else{ /* c-backend.scm:252: gen */ t29=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t29; av2[1]=t28; av2[2]=lf[97]; av2[3]=t24; av2[4]=lf[98]; f_4497(5,av2);}}} else{ t24=C_eqp(t1,lf[99]); if(C_truep(t24)){ t25=C_i_car(((C_word*)t0)[2]); t26=t25; t27=C_i_cadr(((C_word*)t0)[2]); t28=C_i_caddr(((C_word*)t0)[2]); if(C_truep(t27)){ t29=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5411,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t30=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5425,a[2]=t29,a[3]=t26,tmp=(C_word)a,a+=4,tmp); t31=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5429,a[2]=t30,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:263: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[84]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[84]+1); av2[1]=t31; av2[2]=t28; tp(3,av2);}} else{ t29=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5432,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t30=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5446,a[2]=t29,a[3]=t26,tmp=(C_word)a,a+=4,tmp); t31=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5450,a[2]=t30,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:268: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[84]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[84]+1); av2[1]=t31; av2[2]=t28; tp(3,av2);}}} else{ t25=C_eqp(t1,lf[106]); if(C_truep(t25)){ /* c-backend.scm:272: gen */ t26=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t26; av2[1]=((C_word*)t0)[3]; av2[2]=lf[107]; f_4497(3,av2);}} else{ t26=C_eqp(t1,lf[108]); if(C_truep(t26)){ t27=C_i_cdr(((C_word*)t0)[4]); t28=t27; t29=C_i_length(t28); t30=t29; t31=((C_word*)t0)[6]; t32=C_a_i_fixnum_plus(&a,2,t30,C_fix(1)); t33=C_i_car(((C_word*)t0)[2]); t34=t33; t35=C_i_cadr(((C_word*)t0)[2]); t36=t35; t37=C_i_cddr(((C_word*)t0)[2]); t38=C_i_pairp(t37); t39=t38; t40=(C_truep(t39)?C_i_caddr(((C_word*)t0)[2]):C_SCHEME_FALSE); t41=t40; t42=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_5487,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t32,a[5]=((C_word*)t0)[7],a[6]=t28,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[5],a[9]=t30,a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=t31,a[13]=t36,a[14]=t41,a[15]=t34,a[16]=((C_word*)t0)[10],a[17]=((C_word*)t0)[11],a[18]=((C_word*)t0)[2],a[19]=t39,tmp=(C_word)a,a+=20,tmp); /* c-backend.scm:283: chicken.compiler.support#source-info->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[174]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[174]+1); av2[1]=t42; av2[2]=t41; tp(3,av2);}} else{ t27=C_eqp(t1,lf[175]); if(C_truep(t27)){ t28=C_i_length(((C_word*)t0)[4]); t29=t28; t30=C_a_i_fixnum_plus(&a,2,t29,C_fix(1)); t31=C_i_car(((C_word*)t0)[2]); t32=t31; t33=C_i_cadr(((C_word*)t0)[2]); t34=t33; t35=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5997,a[2]=t32,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=t29,a[7]=((C_word*)t0)[4],a[8]=t30,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t34,tmp=(C_word)a,a+=12,tmp); /* c-backend.scm:381: chicken.compiler.core#lambda-literal-closure-size */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[173]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[173]+1); av2[1]=t35; av2[2]=((C_word*)t0)[8]; tp(3,av2);}} else{ t28=C_eqp(t1,lf[179]); if(C_truep(t28)){ t29=C_i_cdr(((C_word*)t0)[4]); t30=t29; t31=C_i_length(t30); t32=C_a_i_fixnum_plus(&a,2,t31,C_fix(1)); t33=C_i_car(((C_word*)t0)[2]); t34=t33; t35=C_i_caddr(((C_word*)t0)[2]); t36=t35; t37=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6157,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t30,a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[5],a[9]=t36,a[10]=t34,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* c-backend.scm:408: chicken.compiler.support#source-info->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[174]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[174]+1); av2[1]=t37; av2[2]=t36; tp(3,av2);}} else{ t29=C_eqp(t1,lf[191]); if(C_truep(t29)){ t30=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:434: gen */ t31=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t31; av2[1]=((C_word*)t0)[3]; av2[2]=lf[192]; av2[3]=t30; av2[4]=lf[193]; f_4497(5,av2);}} else{ t30=C_eqp(t1,lf[194]); if(C_truep(t30)){ t31=C_i_length(((C_word*)t0)[4]); t32=C_a_i_fixnum_plus(&a,2,t31,C_fix(1)); t33=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6294,a[2]=((C_word*)t0)[3],a[3]=t32,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:441: gen */ t34=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t34; av2[1]=t33; av2[2]=C_make_character(123); f_4497(3,av2);}} else{ t31=C_eqp(t1,lf[200]); if(C_truep(t31)){ t32=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6317,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:446: gen */ t33=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t33; av2[1]=t32; av2[2]=C_SCHEME_TRUE; av2[3]=lf[202]; f_4497(4,av2);}} else{ t32=C_eqp(t1,lf[203]); if(C_truep(t32)){ t33=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6336,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t34=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:451: gen */ t35=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t35; av2[1]=t33; av2[2]=t34; av2[3]=C_make_character(40); f_4497(4,av2);}} else{ t33=C_eqp(t1,lf[204]); if(C_truep(t33)){ t34=C_i_car(((C_word*)t0)[2]); if(C_truep(((C_word*)((C_word*)t0)[10])[1])){ /* c-backend.scm:456: gen */ t35=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t35; av2[1]=((C_word*)t0)[3]; av2[2]=lf[205]; av2[3]=t34; av2[4]=lf[206]; av2[5]=lf[207]; av2[6]=lf[208]; f_4497(7,av2);}} else{ /* c-backend.scm:456: gen */ t35=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t35; av2[1]=((C_word*)t0)[3]; av2[2]=lf[205]; av2[3]=t34; av2[4]=lf[206]; av2[5]=lf[209]; av2[6]=lf[208]; f_4497(7,av2);}}} else{ t34=C_eqp(t1,lf[210]); if(C_truep(t34)){ t35=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6372,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t36=C_i_car(((C_word*)t0)[2]); t37=C_i_length(((C_word*)t0)[4]); /* c-backend.scm:460: gen */ t38=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t38; av2[1]=t35; av2[2]=t36; av2[3]=lf[211]; av2[4]=t37; f_4497(5,av2);}} else{ t35=C_eqp(t1,lf[212]); if(C_truep(t35)){ t36=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6408,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t37=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:468: foreign-result-conversion */ f_12133(t36,t37,lf[214]);} else{ t36=C_eqp(t1,lf[215]); if(C_truep(t36)){ t37=C_i_cadr(((C_word*)t0)[2]); t38=t37; t39=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6428,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t40=C_i_car(((C_word*)t0)[2]); t41=t40; t42=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6446,a[2]=t39,a[3]=t41,a[4]=t38,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:472: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[219]+1); av2[1]=t42; av2[2]=t38; av2[3]=lf[220]; tp(4,av2);}} else{ t37=C_eqp(t1,lf[221]); if(C_truep(t37)){ t38=C_i_car(((C_word*)t0)[2]); t39=t38; t40=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6462,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t41=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6476,a[2]=t40,a[3]=t39,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:478: foreign-result-conversion */ f_12133(t41,t39,lf[226]);} else{ t38=C_eqp(t1,lf[227]); if(C_truep(t38)){ t39=C_i_car(((C_word*)t0)[2]); t40=t39; t41=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6492,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t40,tmp=(C_word)a,a+=7,tmp); t42=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6520,a[2]=t41,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:484: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[219]+1); av2[1]=t42; av2[2]=t40; av2[3]=lf[232]; tp(4,av2);}} else{ t39=C_eqp(t1,lf[233]); if(C_truep(t39)){ t40=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6529,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:491: gen */ t41=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t41; av2[1]=t40; av2[2]=C_SCHEME_TRUE; av2[3]=lf[237]; f_4497(4,av2);}} else{ t40=C_eqp(t1,lf[238]); if(C_truep(t40)){ t41=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6608,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:506: gen */ t42=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t42; av2[1]=t41; av2[2]=lf[240]; f_4497(3,av2);}} else{ t41=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6645,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:514: chicken.compiler.support#node-class */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[160]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[160]+1); av2[1]=t41; av2[2]=((C_word*)t0)[12]; tp(3,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k4818 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4820,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4823,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:134: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k4821 in k4818 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4823,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:135: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[33]; f_4497(3,av2);}} /* k4824 in k4821 in k4818 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4826,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4829,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:136: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k4827 in k4824 in k4821 in k4818 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4829,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4832,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:137: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(125); av2[3]=C_SCHEME_TRUE; av2[4]=lf[32]; f_4497(5,av2);}} /* k4830 in k4827 in k4824 in k4821 in k4818 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_4832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4832,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4835,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_caddr(((C_word*)t0)[3]); /* c-backend.scm:138: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_4835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4835,2,av);} /* c-backend.scm:139: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(125); f_4497(3,av2);}} /* loop in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_4878(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_4878,5,t0,t1,t2,t3,t4);} a=C_alloc(8); if(C_truep(C_i_greaterp(t4,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4888,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t1,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:147: gen */ t6=lf[4];{ C_word av2[6]; av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=C_make_character(116); av2[4]=t3; av2[5]=C_make_character(61); f_4497(6,av2);}} else{ t5=C_i_car(t2); /* c-backend.scm:151: expr */ t6=((C_word*)((C_word*)t0)[3])[1]; f_4673(t6,t1,t5,t3);}} /* k4886 in loop in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4888,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4891,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:148: expr */ t4=((C_word*)((C_word*)t0)[7])[1]; f_4673(t4,t2,t3,((C_word*)t0)[3]);} /* k4889 in k4886 in loop in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4891,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4894,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:149: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(59); f_4497(3,av2);}} /* k4892 in k4889 in k4886 in loop in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(58,c,4)))){ C_save_and_reclaim((void *)f_4894,2,av);} a=C_alloc(58); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_s_a_i_plus(&a,2,t4,C_fix(1)); t6=((C_word*)t0)[4]; t7=C_s_a_i_minus(&a,2,t6,C_fix(1)); /* c-backend.scm:150: loop */ t8=((C_word*)((C_word*)t0)[5])[1]; f_4878(t8,((C_word*)t0)[6],t3,t5,t7);} /* k4924 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4926,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4929,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:156: expr */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k4927 in k4924 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4929,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4932,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:157: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(59); f_4497(3,av2);}} /* k4930 in k4927 in k4924 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4932,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* c-backend.scm:158: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4673(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5]);} /* k4963 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4965,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4968,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:165: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k4966 in k4963 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4968,2,av);} /* c-backend.scm:166: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[41]; f_4497(3,av2);}} /* k4982 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4984,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4987,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:170: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k4985 in k4982 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_4987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4987,2,av);} /* c-backend.scm:171: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[44]; f_4497(3,av2);}} /* k5001 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5003,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5006,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_car(((C_word*)t0)[4]); /* c-backend.scm:175: expr */ t4=((C_word*)((C_word*)t0)[5])[1]; f_4673(t4,t2,t3,((C_word*)t0)[6]);} /* k5004 in k5001 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_5006,2,av);} a=C_alloc(29); t2=C_i_car(((C_word*)t0)[2]); t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); /* c-backend.scm:176: gen */ t4=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[47]; av2[3]=t3; av2[4]=C_make_character(93); f_4497(5,av2);}} /* k5028 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5030,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5033,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:180: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5031 in k5028 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5033,2,av);} /* c-backend.scm:181: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[50]; f_4497(3,av2);}} /* k5047 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5049,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5052,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:185: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5050 in k5047 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5052,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5055,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[6]); /* c-backend.scm:186: gen */ t4=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=C_make_character(44); av2[3]=t3; av2[4]=C_make_character(44); f_4497(5,av2);}} /* k5053 in k5050 in k5047 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5055,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5058,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:187: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5056 in k5053 in k5050 in k5047 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5058,2,av);} /* c-backend.scm:188: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k5080 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5082,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5085,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:192: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5083 in k5080 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){ C_save_and_reclaim((void *)f_5085,2,av);} a=C_alloc(35); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5088,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[6]); t4=C_s_a_i_plus(&a,2,t3,C_fix(1)); /* c-backend.scm:193: gen */ t5=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=lf[55]; av2[3]=t4; av2[4]=lf[56]; f_4497(5,av2);}} /* k5086 in k5083 in k5080 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5088,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5091,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:194: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5089 in k5086 in k5083 in k5080 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5091,2,av);} /* c-backend.scm:195: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k5117 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5119,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5122,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:199: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5120 in k5117 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5122,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5125,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:200: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[59]; f_4497(3,av2);}} /* k5123 in k5120 in k5117 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5125,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5128,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:201: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5126 in k5123 in k5120 in k5117 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5128,2,av);} /* c-backend.scm:202: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k5146 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5148,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5151,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:206: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5149 in k5146 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5151,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5154,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:207: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[62]; f_4497(3,av2);}} /* k5152 in k5149 in k5146 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5154,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5157,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:208: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5155 in k5152 in k5149 in k5146 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5157,2,av);} /* c-backend.scm:209: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k5178 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_5180,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5181,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5194,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:219: list-tabulate */ f_4229(t4,((C_word*)t0)[5],*((C_word*)lf[70]+1));} /* g781 in k5178 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_5181(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_5181,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5185,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:216: gen */ t5=lf[4];{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[65]; av2[3]=t3; av2[4]=lf[66]; f_4497(5,av2);}} /* k5183 in g781 in k5178 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5185,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5188,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:217: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4673(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k5186 in k5183 in g781 in k5178 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5188,2,av);} /* c-backend.scm:218: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(44); f_4497(3,av2);}} /* k5192 in k5178 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_5194,2,av);} a=C_alloc(10); t2=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t3=C_i_check_list_2(t1,lf[67]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5203,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5210,a[2]=t6,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_5210(t8,t4,((C_word*)t0)[2],t1);} /* k5201 in k5192 in k5178 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_5203,2,av);} a=C_alloc(29); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* c-backend.scm:220: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[68]; av2[3]=t2; av2[4]=lf[69]; f_4497(5,av2);}} /* for-each-loop780 in k5192 in k5178 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_5210(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_5210,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5220,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* c-backend.scm:214: g781 */ t9=((C_word*)t0)[3]; f_5181(t9,t6,t7,t8);} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k5218 in for-each-loop780 in k5192 in k5178 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5220,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_5210(t4,((C_word*)t0)[5],t2,t3);} /* k5252 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5254,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5257,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:224: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5255 in k5252 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5257,2,av);} /* c-backend.scm:225: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[73]; f_4497(3,av2);}} /* k5284 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5286,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:231: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4673(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5]);} /* k5326 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5328,2,av);} /* c-backend.scm:240: gen */ t2=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[80]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[81]; av2[5]=t1; av2[6]=lf[82]; f_4497(7,av2);}} /* k5330 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5332,2,av);} /* c-backend.scm:241: chicken.compiler.support#c-ify-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[83]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[83]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k5361 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_5363,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5366,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5380,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5384,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:253: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[84]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[84]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k5364 in k5361 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5366,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5369,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:254: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5367 in k5364 in k5361 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5369,2,av);} /* c-backend.scm:255: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k5378 in k5361 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5380,2,av);} /* c-backend.scm:253: gen */ t2=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[90]; av2[3]=t1; av2[4]=lf[91]; f_4497(5,av2);}} /* k5382 in k5361 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5384,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14458,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:75: chicken.string#->string */ t4=C_fast_retrieve(lf[94]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5409 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5411,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5414,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:264: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5412 in k5409 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5414,2,av);} /* c-backend.scm:265: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); f_4497(3,av2);}} /* k5423 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5425,2,av);} /* c-backend.scm:262: gen */ t2=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[100]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[101]; av2[5]=t1; av2[6]=lf[102]; f_4497(7,av2);}} /* k5427 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5429,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14463,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:75: chicken.string#->string */ t4=C_fast_retrieve(lf[94]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5430 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5432,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5435,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:269: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k5433 in k5430 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5435,2,av);} /* c-backend.scm:270: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k5444 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5446,2,av);} /* c-backend.scm:267: gen */ t2=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[104]; av2[5]=t1; av2[6]=lf[105]; f_4497(7,av2);}} /* k5448 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5450,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14468,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:75: chicken.string#->string */ t4=C_fast_retrieve(lf[94]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_5487,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_5490,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=t2,a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); if(C_truep(((C_word*)t0)[19])){ t4=C_i_cdddr(((C_word*)t0)[18]); t5=C_i_pairp(t4); t6=t3; f_5490(t6,(C_truep(t5)?C_i_cadddr(((C_word*)t0)[18]):C_SCHEME_FALSE));} else{ t4=t3; f_5490(t4,C_SCHEME_FALSE);}} /* k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_5490(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){ C_save_and_reclaim_args((void *)trf_5490,2,t0,t1);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_5493,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); if(C_truep(t2)){ t4=C_i_cddddr(((C_word*)t0)[19]); t5=t3; f_5493(t5,C_i_car(t4));} else{ t4=t3; f_5493(t4,C_SCHEME_FALSE);}} /* k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_5493(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,0,2)))){ C_save_and_reclaim_args((void *)trf_5493,2,t0,t1);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_5496,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5950,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5954,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:286: find-lambda */ t6=((C_word*)((C_word*)t0)[19])[1]; f_4658(t6,t5,((C_word*)t0)[8]);} else{ t4=t3; f_5496(t4,C_SCHEME_FALSE);}} /* k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_5496(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,0,2)))){ C_save_and_reclaim_args((void *)trf_5496,2,t0,t1);} a=C_alloc(28); t2=t1; t3=C_u_i_car(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_5500,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=t2,a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); if(C_truep(((C_word*)t0)[16])){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5919,a[2]=((C_word*)t0)[17],a[3]=((C_word*)t0)[18],a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fast_retrieve(lf[167]))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5939,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=t6; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14481,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:74: chicken.string#->string */ t9=C_fast_retrieve(lf[94]);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[19]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5946,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=t6; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14486,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:75: chicken.string#->string */ t9=C_fast_retrieve(lf[94]);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[19]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} else{ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_5500(2,av2);}}} /* k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_5500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_5500,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_5916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); /* c-backend.scm:295: chicken.compiler.support#node-class */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[160]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[160]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k5507 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_5509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5509,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:297: push-args */ t3=((C_word*)((C_word*)t0)[5])[1]; f_6761(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],lf[111]);} /* k5510 in k5507 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_5512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5512,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5515,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:298: chicken.compiler.support#node-parameters */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[110]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k5513 in k5510 in k5507 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_5515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5515,2,av);} t2=C_i_car(t1); /* c-backend.scm:299: gen */ t3=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=t2; av2[4]=C_make_character(40); av2[5]=((C_word*)t0)[3]; av2[6]=lf[109]; f_4497(7,av2);}} /* k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_5531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){ C_save_and_reclaim((void *)f_5531,2,av);} a=C_alloc(18); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5534,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* c-backend.scm:303: chicken.compiler.core#lambda-literal-temporaries */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[115]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[115]+1); av2[1]=t2; av2[2]=((C_word*)t0)[9]; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5660,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[14],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[11])){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5660(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5715,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[15],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:318: gen */ t4=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=C_make_character(116); av2[4]=((C_word*)t0)[12]; av2[5]=C_make_character(61); f_4497(6,av2);}}}} /* k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_5534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_5534,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5537,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5653,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:304: list-tabulate */ f_4229(t3,((C_word*)t0)[7],t4);} /* k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_5537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_5537,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5538,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_i_check_list_2(t2,lf[67]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5554,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5616,a[2]=t7,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_5616(t9,t5,((C_word*)t0)[8],t2);} /* g869 in k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_fcall f_5538(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){ C_save_and_reclaim_args((void *)trf_5538,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5542,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:307: gen */ t5=lf[4];{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=C_make_character(116); av2[4]=t3; av2[5]=C_make_character(61); f_4497(6,av2);}} /* k5540 in g869 in k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_5542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5542,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5545,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:308: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4673(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k5543 in k5540 in g869 in k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_ccall f_5545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5545,2,av);} /* c-backend.scm:309: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); f_4497(3,av2);}} /* k5552 in k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5554,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5562,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:313: list-tabulate */ f_4229(t3,((C_word*)t0)[6],*((C_word*)lf[70]+1));} /* k5560 in k5552 in k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_5562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_5562,2,av);} a=C_alloc(10); t2=C_i_check_list_2(t1,lf[67]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5568,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5579,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_5579(t7,t3,((C_word*)t0)[5],t1);} /* k5566 in k5560 in k5552 in k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_ccall f_5568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_5568,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5571,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* c-backend.scm:315: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[112]; f_4497(4,av2);}} else{ /* c-backend.scm:314: gen */ t3=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[113]; av2[4]=((C_word*)t0)[4]; av2[5]=C_make_character(59); f_4497(6,av2);}}} /* k5569 in k5566 in k5560 in k5552 in k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in ... */ static void C_ccall f_5571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5571,2,av);} /* c-backend.scm:315: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[112]; f_4497(4,av2);}} /* for-each-loop879 in k5560 in k5552 in k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_fcall f_5579(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,7)))){ C_save_and_reclaim_args((void *)trf_5579,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5589,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* c-backend.scm:312: gen */ t9=lf[4];{ C_word av2[8]; av2[0]=t9; av2[1]=t6; av2[2]=C_SCHEME_TRUE; av2[3]=C_make_character(116); av2[4]=t8; av2[5]=lf[114]; av2[6]=t7; av2[7]=C_make_character(59); f_4497(8,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k5587 in for-each-loop879 in k5560 in k5552 in k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in ... */ static void C_ccall f_5589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5589,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_5579(t4,((C_word*)t0)[5],t2,t3);} /* for-each-loop868 in k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_fcall f_5616(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_5616,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5626,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* c-backend.scm:305: g869 */ t9=((C_word*)t0)[3]; f_5538(t9,t6,t7,t8);} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k5624 in for-each-loop868 in k5535 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_5626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5626,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_5616(t4,((C_word*)t0)[5],t2,t3);} /* a5652 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_5653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_5653,3,av);} a=C_alloc(33); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15061,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t3; va15061(t4,C_s_a_i_plus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]));} /* k5658 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_5660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_5660,2,av);} a=C_alloc(11); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5666,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:322: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[9]; av2[4]=C_make_character(40); f_4497(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5681,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); /* c-backend.scm:327: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(123); f_4497(3,av2);}}} /* k5664 in k5658 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_5666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5666,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5669,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14476,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:324: expr-args */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6725(t4,t3,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ /* c-backend.scm:323: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(116); av2[3]=((C_word*)t0)[7]; av2[4]=C_make_character(44); f_4497(5,av2);}}} /* k5667 in k5664 in k5658 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5669,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5672,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:324: expr-args */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6725(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k5670 in k5667 in k5664 in k5658 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_5672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5672,2,av);} /* c-backend.scm:325: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[116]; f_4497(3,av2);}} /* k5679 in k5658 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_5681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_5681,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5700,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_not(((C_word*)t0)[9]))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5711,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t4; av2[2]=((C_word*)t0)[10]; av2[3]=C_fix(10); tp(4,av2);}} else{ /* c-backend.scm:328: push-args */ t4=((C_word*)((C_word*)t0)[6])[1]; f_6761(t4,t2,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}} /* k5682 in k5679 in k5658 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5684,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5687,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:329: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[5]; av2[4]=C_make_character(40); f_4497(5,av2);}} /* k5685 in k5682 in k5679 in k5658 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_5687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5687,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5690,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* c-backend.scm:331: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[117]; f_4497(3,av2);}} else{ /* c-backend.scm:330: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(44); f_4497(4,av2);}}} /* k5688 in k5685 in k5682 in k5679 in k5658 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_ccall f_5690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5690,2,av);} /* c-backend.scm:331: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[117]; f_4497(3,av2);}} /* k5698 in k5679 in k5658 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5700,2,av);} /* c-backend.scm:328: push-args */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6761(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k5709 in k5679 in k5658 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5711,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[118]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[118]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[119]; av2[3]=t1; tp(4,av2);}} /* k5713 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_5715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5715,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5718,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:319: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4673(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k5716 in k5713 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_5718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5718,2,av);} /* c-backend.scm:320: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); f_4497(3,av2);}} /* k5729 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_5731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5731,2,av);} t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ /* c-backend.scm:302: chicken.compiler.core#lambda-literal-looping */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[121]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5531(2,av2);}}} /* k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_fcall f_5737(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){ C_save_and_reclaim_args((void *)trf_5737,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5740,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:336: chicken.compiler.support#node-parameters */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]); C_word av2[3]; av2[0]=*((C_word*)lf[110]+1); av2[1]=t2; av2[2]=((C_word*)t0)[7]; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5850,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); /* c-backend.scm:366: gen */ t3=lf[4];{ C_word av2[6]; av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=C_make_character(116); av2[4]=((C_word*)t0)[8]; av2[5]=C_make_character(61); f_4497(6,av2);}}} /* k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_5740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_5740,2,av);} a=C_alloc(14); t2=t1; t3=C_i_car(t2); t4=t3; t5=C_i_cadr(t2); t6=t5; t7=C_i_caddr(t2); t8=t7; t9=C_SCHEME_FALSE; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5752,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t10,a[8]=t8,a[9]=t4,a[10]=t6,a[11]=t2,tmp=(C_word)a,a+=12,tmp); /* c-backend.scm:341: gen */ t12=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t12; av2[1]=t11; av2[2]=C_SCHEME_TRUE; av2[3]=lf[148]; f_4497(4,av2);}} /* k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_5752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_5752,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5755,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_fast_retrieve(lf[125]))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5768,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[8])){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5778,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=C_fix(10); tp(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5786,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=C_fix(10); tp(4,av2);}}} else{ if(C_truep(((C_word*)t0)[8])){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5794,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[10],a[4]=t2,a[5]=((C_word*)t0)[11],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5819,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=C_fix(10); tp(4,av2);}} else{ if(C_truep(((C_word*)t0)[10])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5827,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5834,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=C_fix(10); tp(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5839,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5846,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=C_fix(10); tp(4,av2);}}}}} /* k5753 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5755,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5758,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:362: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(59); f_4497(3,av2);}} /* k5756 in k5753 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_5758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_5758,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:363: push-args */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6761(t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)((C_word*)t0)[7])[1]);} /* k5759 in k5756 in k5753 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_ccall f_5761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5761,2,av);} /* c-backend.scm:364: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[123]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[124]; f_4497(6,av2);}} /* k5766 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5768,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* c-backend.scm:347: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[126]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=lf[127]; f_4497(5,av2);}} /* k5776 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5778,2,av);} /* c-backend.scm:345: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[129]; av2[3]=t1; av2[4]=lf[130]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5784 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5786,2,av);} /* c-backend.scm:346: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[131]; av2[3]=t1; av2[4]=lf[132]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5792 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_5794,2,av);} a=C_alloc(7); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); if(C_truep(((C_word*)t0)[3])){ /* c-backend.scm:351: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[133]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=lf[134]; f_4497(5,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5807,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5811,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_cadddr(((C_word*)t0)[5]); /* c-backend.scm:353: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[84]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[84]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}}} /* k5805 in k5792 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_5807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5807,2,av);} /* c-backend.scm:352: gen */ t2=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[135]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=lf[136]; av2[5]=t1; av2[6]=lf[137]; f_4497(7,av2);}} /* k5809 in k5792 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_5811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5811,2,av);} /* c-backend.scm:353: chicken.compiler.support#c-ify-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[83]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[83]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k5817 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5819,2,av);} /* c-backend.scm:349: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[138]; av2[3]=t1; av2[4]=lf[139]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5825 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5827,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* c-backend.scm:357: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[140]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=lf[141]; f_4497(5,av2);}} /* k5832 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5834,2,av);} /* c-backend.scm:356: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[142]; av2[3]=t1; av2[4]=lf[143]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5837 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5839,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* c-backend.scm:361: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[144]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[145]; f_4497(5,av2);}} /* k5844 in k5750 in k5738 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5846,2,av);} /* c-backend.scm:360: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[146]; av2[3]=t1; av2[4]=lf[147]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5848 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_5850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5850,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5853,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* c-backend.scm:367: expr */ t3=((C_word*)((C_word*)t0)[9])[1]; f_4673(t3,t2,((C_word*)t0)[10],((C_word*)t0)[8]);} /* k5851 in k5848 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_5853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5853,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* c-backend.scm:368: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[159]; f_4497(3,av2);}} /* k5854 in k5851 in k5848 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_5856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_5856,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5859,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5884,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5889,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(10); tp(4,av2);}} /* k5857 in k5854 in k5851 in k5848 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_5859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5859,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5862,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:370: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[157]; f_4497(4,av2);}} /* k5860 in k5857 in k5854 in k5851 in k5848 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_ccall f_5862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5862,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_fast_retrieve(lf[151]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5871,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fast_retrieve(lf[151]))){ t5=t4; f_5871(t5,C_fast_retrieve(lf[151]));} else{ t5=C_fast_retrieve(lf[156]); if(C_truep(C_fast_retrieve(lf[156]))){ t6=C_fast_retrieve(lf[156]); t7=t4; f_5871(t7,C_fast_retrieve(lf[156]));} else{ t6=t4; f_5871(t6,((C_word*)t0)[5]);}}} /* k5863 in k5860 in k5857 in k5854 in k5851 in k5848 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in ... */ static void C_ccall f_5865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5865,2,av);} /* c-backend.scm:374: gen */ t2=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[149]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[150]; f_4497(5,av2);}} /* k5869 in k5860 in k5857 in k5854 in k5851 in k5848 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in ... */ static void C_fcall f_5871(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_5871,2,t0,t1);} if(C_truep(t1)){ /* c-backend.scm:372: gen */ t2=lf[4];{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[152]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[153]; f_4497(5,av2);}} else{ /* c-backend.scm:373: gen */ t2=lf[4];{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[154]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[155]; f_4497(5,av2);}}} /* k5882 in k5854 in k5851 in k5848 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_5884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5884,2,av);} /* c-backend.scm:369: push-args */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6761(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k5887 in k5854 in k5851 in k5848 in k5735 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_5889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5889,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[118]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[118]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[158]; av2[3]=t1; tp(4,av2);}} /* k5910 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_5912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5912,2,av);} t2=C_eqp(lf[77],t1); if(C_truep(t2)){ if(C_truep(C_i_not(C_fast_retrieve(lf[151])))){ t3=C_i_not(C_fast_retrieve(lf[156])); t4=((C_word*)t0)[2]; f_5737(t4,(C_truep(t3)?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE));} else{ t3=((C_word*)t0)[2]; f_5737(t3,C_SCHEME_FALSE);}} else{ t3=((C_word*)t0)[2]; f_5737(t3,C_SCHEME_FALSE);}} /* k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_5916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_5916,2,av);} a=C_alloc(21); t2=C_eqp(lf[35],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5509,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:296: gen */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_make_character(123); f_4497(3,av2);}} else{ if(C_truep(((C_word*)t0)[8])){ t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_5531,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[8],a[14]=((C_word*)t0)[5],a[15]=((C_word*)t0)[4],tmp=(C_word)a,a+=16,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5731,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word*)t0)[12],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:301: chicken.compiler.core#lambda-literal-id */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[122]+1); av2[1]=t4; av2[2]=((C_word*)t0)[12]; tp(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5737,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[15],a[9]=((C_word*)t0)[16],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5912,a[2]=t3,a[3]=((C_word*)t0)[16],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:332: chicken.compiler.support#node-class */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[160]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[160]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k5917 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_5919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5919,2,av);} t2=(C_truep(C_fast_retrieve(lf[161]))?((C_word*)t0)[2]:C_SCHEME_FALSE); if(C_truep(t2)){ if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* c-backend.scm:293: gen */ t3=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[162]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[163]; av2[6]=lf[164]; av2[7]=lf[165]; f_4497(8,av2);}} else{ /* c-backend.scm:293: gen */ t3=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[162]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[163]; av2[6]=lf[166]; av2[7]=lf[165]; f_4497(8,av2);}}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; f_5500(2,av2);}}} /* k5937 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_5939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5939,2,av);} /* c-backend.scm:290: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[168]; av2[4]=t1; av2[5]=lf[169]; f_4497(6,av2);}} /* k5944 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_5946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5946,2,av);} /* c-backend.scm:291: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[171]; av2[4]=t1; av2[5]=lf[172]; f_4497(6,av2);}} /* k5948 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5950,2,av);} t2=((C_word*)t0)[2]; f_5496(t2,C_i_zerop(t1));} /* k5952 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5954,2,av);} /* c-backend.scm:286: chicken.compiler.core#lambda-literal-closure-size */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[173]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[173]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_5997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_5997,2,av);} a=C_alloc(8); t2=C_i_zerop(t1); if(C_truep(((C_word*)t0)[2])){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6003,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:383: chicken.compiler.core#lambda-literal-temporaries */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[115]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[115]+1); av2[1]=t3; av2[2]=((C_word*)t0)[9]; tp(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6123,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:396: gen */ t4=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[11]; av2[3]=C_make_character(40); f_4497(4,av2);}}} /* k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_6003,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6006,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6116,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:384: list-tabulate */ f_4229(t3,((C_word*)t0)[5],t4);} /* k6004 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_6006,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6007,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_i_check_list_2(t2,lf[67]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6023,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6079,a[2]=t7,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_6079(t9,t5,((C_word*)t0)[6],t2);} /* g986 in k6004 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_6007(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){ C_save_and_reclaim_args((void *)trf_6007,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6011,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:387: gen */ t5=lf[4];{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=C_make_character(116); av2[4]=t3; av2[5]=C_make_character(61); f_4497(6,av2);}} /* k6009 in g986 in k6004 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_6011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6011,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6014,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:388: expr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4673(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k6012 in k6009 in g986 in k6004 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_6014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6014,2,av);} /* c-backend.scm:389: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); f_4497(3,av2);}} /* k6021 in k6004 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6023,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6031,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:393: list-tabulate */ f_4229(t3,((C_word*)t0)[4],*((C_word*)lf[70]+1));} /* k6029 in k6021 in k6004 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_6031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_6031,2,av);} a=C_alloc(8); t2=C_i_check_list_2(t1,lf[67]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6037,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6042,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6042(t7,t3,((C_word*)t0)[3],t1);} /* k6035 in k6029 in k6021 in k6004 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_6037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6037,2,av);} /* c-backend.scm:394: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[176]; f_4497(4,av2);}} /* for-each-loop996 in k6029 in k6021 in k6004 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_fcall f_6042(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,7)))){ C_save_and_reclaim_args((void *)trf_6042,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6052,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* c-backend.scm:392: gen */ t9=lf[4];{ C_word av2[8]; av2[0]=t9; av2[1]=t6; av2[2]=C_SCHEME_TRUE; av2[3]=C_make_character(116); av2[4]=t8; av2[5]=lf[177]; av2[6]=t7; av2[7]=C_make_character(59); f_4497(8,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k6050 in for-each-loop996 in k6029 in k6021 in k6004 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_6052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6052,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_6042(t4,((C_word*)t0)[5],t2,t3);} /* for-each-loop985 in k6004 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_6079(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_6079,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6089,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* c-backend.scm:385: g986 */ t9=((C_word*)t0)[3]; f_6007(t9,t6,t7,t8);} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k6087 in for-each-loop985 in k6004 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_6089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6089,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_6079(t4,((C_word*)t0)[5],t2,t3);} /* a6115 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_6116,3,av);} a=C_alloc(33); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15067,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t3; va15067(t4,C_s_a_i_plus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]));} /* k6121 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6123,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6126,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14499,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:398: expr-args */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6725(t4,t3,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ /* c-backend.scm:397: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[178]; f_4497(3,av2);}}} /* k6124 in k6121 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6126,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6129,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:398: expr-args */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6725(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k6127 in k6124 in k6121 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6129,2,av);} /* c-backend.scm:399: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_6157,2,av);} a=C_alloc(18); t2=t1; t3=C_i_cadddr(((C_word*)t0)[2]); t4=t3; t5=C_i_cddddr(((C_word*)t0)[2]); t6=C_i_car(t5); t7=t6; t8=C_i_zerop(t7); t9=C_i_not(t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6170,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t10,a[9]=t7,a[10]=t4,a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=t2,tmp=(C_word)a,a+=15,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6265,a[2]=t11,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:412: find-lambda */ t13=((C_word*)((C_word*)t0)[12])[1]; f_4658(t13,t12,t4);} /* k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_6170,2,av);} a=C_alloc(16); t2=C_i_zerop(t1); t3=C_u_i_car(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_6174,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* c-backend.scm:414: gen */ t5=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_make_character(40); f_4497(3,av2);}} /* k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_6174,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6177,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[12])){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6234,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[14],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fast_retrieve(lf[167]))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6254,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14510,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:74: chicken.string#->string */ t7=C_fast_retrieve(lf[94]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[15]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6261,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14515,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:75: chicken.string#->string */ t7=C_fast_retrieve(lf[94]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[15]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6177(2,av2);}}} /* k6175 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_6177,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6180,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* c-backend.scm:422: gen */ t3=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[181]; av2[4]=((C_word*)t0)[11]; av2[5]=C_make_character(40); f_4497(6,av2);}} /* k6178 in k6175 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_6180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_6180,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6183,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[9])){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6216,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:424: gen */ t4=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[180]; av2[3]=((C_word*)t0)[10]; av2[4]=C_make_character(41); f_4497(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6183(2,av2);}}} /* k6181 in k6178 in k6175 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_6183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6183,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6186,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6186(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6204,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:427: expr */ t4=((C_word*)((C_word*)t0)[7])[1]; f_4673(t4,t3,((C_word*)t0)[8],((C_word*)t0)[5]);}} /* k6184 in k6181 in k6178 in k6175 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_6186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6186,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6189,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ /* c-backend.scm:429: expr-args */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6725(t3,t2,((C_word*)t0)[3],((C_word*)t0)[5]);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14503,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:430: gen */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_make_character(41); f_4497(3,av2);}}} /* k6187 in k6184 in k6181 in k6178 in k6175 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_6189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6189,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6192,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:430: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k6190 in k6187 in k6184 in k6181 in k6178 in k6175 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_6192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6192,2,av);} /* c-backend.scm:431: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=C_make_character(41); f_4497(4,av2);}} /* k6202 in k6181 in k6178 in k6175 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_6204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6204,2,av);} if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ /* c-backend.scm:428: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(44); f_4497(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_6186(2,av2);}}} /* k6214 in k6178 in k6175 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_6216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6216,2,av);} t2=C_i_not(((C_word*)t0)[2]); if(C_truep(t2)){ if(C_truep(t2)){ /* c-backend.scm:425: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(44); f_4497(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; f_6183(2,av2);}}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ /* c-backend.scm:425: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(44); f_4497(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; f_6183(2,av2);}}}} /* k6232 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6234,2,av);} t2=(C_truep(C_fast_retrieve(lf[161]))?((C_word*)t0)[2]:C_SCHEME_FALSE); if(C_truep(t2)){ if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* c-backend.scm:420: gen */ t3=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[182]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[183]; av2[6]=lf[184]; av2[7]=lf[185]; f_4497(8,av2);}} else{ /* c-backend.scm:420: gen */ t3=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[182]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[183]; av2[6]=lf[186]; av2[7]=lf[185]; f_4497(8,av2);}}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; f_6177(2,av2);}}} /* k6252 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6254,2,av);} /* c-backend.scm:417: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[187]; av2[4]=t1; av2[5]=lf[188]; f_4497(6,av2);}} /* k6259 in k6172 in k6168 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6261,2,av);} /* c-backend.scm:418: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[189]; av2[4]=t1; av2[5]=lf[190]; f_4497(6,av2);}} /* k6263 in k6155 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6265,2,av);} /* c-backend.scm:412: chicken.compiler.core#lambda-literal-closure-size */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[173]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[173]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k6292 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_6294,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6297,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:442: push-args */ t3=((C_word*)((C_word*)t0)[5])[1]; f_6761(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],lf[199]);} /* k6295 in k6292 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6297,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6304,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_car(((C_word*)t0)[4]); /* c-backend.scm:443: toplevel */ t4=lf[198];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; f_9080(3,av2);}} /* k6302 in k6295 in k6292 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6304,2,av);} /* c-backend.scm:443: gen */ t2=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[195]; av2[4]=t1; av2[5]=lf[196]; av2[6]=((C_word*)t0)[3]; av2[7]=lf[197]; f_4497(8,av2);}} /* k6315 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6317,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6320,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:447: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k6318 in k6315 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6320,2,av);} /* c-backend.scm:448: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[201]; f_4497(3,av2);}} /* k6334 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6336,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6339,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:452: expr-args */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6725(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k6337 in k6334 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6339,2,av);} /* c-backend.scm:453: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k6370 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_6372,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6375,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6384,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:463: gen */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_make_character(44); f_4497(3,av2);}} else{ /* c-backend.scm:465: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}}} /* k6373 in k6370 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6375,2,av);} /* c-backend.scm:465: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k6382 in k6370 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6384,2,av);} /* c-backend.scm:464: expr-args */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6725(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k6406 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6408,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:468: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; av2[4]=C_make_character(41); f_4497(5,av2);}} /* k6426 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6428,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6431,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:473: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k6429 in k6426 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6431,2,av);} /* c-backend.scm:474: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[216]; f_4497(3,av2);}} /* k6444 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6446,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6450,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:472: foreign-argument-conversion */ f_11468(t3,((C_word*)t0)[4]);} /* k6448 in k6444 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6450,2,av);} /* c-backend.scm:472: gen */ t2=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(40); av2[3]=((C_word*)t0)[3]; av2[4]=lf[217]; av2[5]=((C_word*)t0)[4]; av2[6]=C_make_character(41); av2[7]=t1; f_4497(8,av2);}} /* k6460 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6462,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6465,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:479: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k6463 in k6460 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6465,2,av);} /* c-backend.scm:480: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[222]; f_4497(3,av2);}} /* k6474 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6476,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6480,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:478: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[219]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[225]; tp(4,av2);}} /* k6478 in k6474 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6480,2,av);} /* c-backend.scm:478: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[223]; av2[4]=t1; av2[5]=lf[224]; f_4497(6,av2);}} /* k6490 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6492,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:485: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k6493 in k6490 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_6495,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6512,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:486: foreign-argument-conversion */ f_11468(t3,((C_word*)t0)[6]);} /* k6496 in k6493 in k6490 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6498,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6501,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:487: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k6499 in k6496 in k6493 in k6490 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6501,2,av);} /* c-backend.scm:488: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[228]; f_4497(3,av2);}} /* k6510 in k6493 in k6490 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6512,2,av);} /* c-backend.scm:486: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[229]; av2[3]=t1; f_4497(4,av2);}} /* k6518 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6520,2,av);} /* c-backend.scm:484: gen */ t2=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[230]; av2[3]=t1; av2[4]=lf[231]; f_4497(5,av2);}} /* k6527 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6529,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6532,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:492: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k6530 in k6527 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6532,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6535,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:493: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[236]; f_4497(3,av2);}} /* k6533 in k6530 in k6527 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_6535,2,av);} a=C_alloc(7); t2=C_i_car(((C_word*)t0)[2]); t3=C_i_cdr(((C_word*)t0)[3]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6548,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_6548(t7,((C_word*)t0)[6],t2,t3);} /* doloop1085 in k6533 in k6530 in k6527 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_6548(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_6548,4,t0,t1,t2,t3);} a=C_alloc(8); t4=t2; if(C_truep(C_i_zerop(t4))){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6556,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:497: gen */ t6=lf[4];{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[234]; f_4497(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6569,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:500: gen */ t6=lf[4];{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[235]; f_4497(4,av2);}}} /* k6554 in doloop1085 in k6533 in k6530 in k6527 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_6556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6556,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6559,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:498: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k6557 in k6554 in doloop1085 in k6533 in k6530 in k6527 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_6559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6559,2,av);} /* c-backend.scm:499: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(125); f_4497(3,av2);}} /* k6567 in doloop1085 in k6533 in k6530 in k6527 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_6569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_6569,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6572,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:501: expr */ t4=((C_word*)((C_word*)t0)[6])[1]; f_4673(t4,t2,t3,((C_word*)t0)[7]);} /* k6570 in k6567 in doloop1085 in k6533 in k6530 in k6527 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_6572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6572,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6575,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:502: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(58); f_4497(3,av2);}} /* k6573 in k6570 in k6567 in doloop1085 in k6533 in k6530 in k6527 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_6575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6575,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6578,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:503: expr */ t4=((C_word*)((C_word*)t0)[6])[1]; f_4673(t4,t2,t3,((C_word*)t0)[7]);} /* k6576 in k6573 in k6570 in k6567 in doloop1085 in k6533 in k6530 in k6527 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_6578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_6578,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_s_a_i_minus(&a,2,t2,C_fix(1)); t4=C_i_cddr(((C_word*)t0)[3]); t5=((C_word*)((C_word*)t0)[4])[1]; f_6548(t5,((C_word*)t0)[5],t3,t4);} /* k6606 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6608,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6611,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:507: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k6609 in k6606 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6611,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6614,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:508: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[239]; f_4497(3,av2);}} /* k6612 in k6609 in k6606 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6614,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6617,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* c-backend.scm:509: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k6615 in k6612 in k6609 in k6606 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6617,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6620,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:510: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(58); f_4497(3,av2);}} /* k6618 in k6615 in k6612 in k6609 in k6606 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_6620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6620,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6623,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_caddr(((C_word*)t0)[3]); /* c-backend.scm:511: expr */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4673(t4,t2,t3,((C_word*)t0)[5]);} /* k6621 in k6618 in k6615 in k6612 in k6609 in k6606 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_6623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6623,2,av);} /* c-backend.scm:512: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k6643 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6645,2,av);} /* c-backend.scm:514: chicken.compiler.support#bomb */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[241]; av2[3]=t1; tp(4,av2);}} /* expr-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_6725(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_6725,4,t0,t1,t2,t3);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6731,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_6731(t7,t1,t2);} /* loop in expr-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_6731(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_6731,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6741,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t4=C_eqp(t2,((C_word*)t0)[5]); if(C_truep(t4)){ t5=t3;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_6741(2,av2);}} else{ /* c-backend.scm:519: gen */ t5=lf[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=C_make_character(44); f_4497(3,av2);}}}} /* k6739 in loop in expr-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6741,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)t0)[2]); /* c-backend.scm:520: expr */ t4=((C_word*)((C_word*)t0)[5])[1]; f_4673(t4,t2,t3,((C_word*)t0)[6]);} /* k6742 in k6739 in loop in expr-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6744,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* c-backend.scm:521: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6731(t4,((C_word*)t0)[4],t3);} /* push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_6761(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_6761,5,t0,t1,t2,t3,t4);} a=C_alloc(18); t5=C_i_length(t2); t6=(C_truep(t4)?C_fix(1):C_fix(0)); t7=C_a_i_fixnum_plus(&a,2,t5,t6); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6773,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t1,a[6]=t2,a[7]=t7,a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6873,a[2]=t8,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:526: chicken.compiler.core#lambda-literal-customizable */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[263]); C_word av2[3]; av2[0]=*((C_word*)lf[263]+1); av2[1]=t9; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_6773(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_6773,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6776,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* c-backend.scm:528: chicken.compiler.core#lambda-literal-argument-count */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[261]); C_word av2[3]; av2[0]=*((C_word*)lf[261]+1); av2[1]=t3; av2[2]=((C_word*)t0)[8]; tp(3,av2);}} /* k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_6776,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* c-backend.scm:529: chicken.compiler.core#lambda-literal-rest-argument-mode */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[260]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[260]+1); av2[1]=t3; av2[2]=((C_word*)t0)[9]; tp(3,av2);}} /* k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6779,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6782,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_not(((C_word*)t0)[7]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6830,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ t5=t4; f_6830(t5,t3);} else{ t5=C_i_lessp(((C_word*)t0)[9],((C_word*)t0)[8]); t6=t4; f_6830(t6,(C_truep(t5)?C_eqp(t1,lf[259]):C_SCHEME_FALSE));}} /* k6780 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_6782,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6785,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[2])){ /* c-backend.scm:548: gen */ t3=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[246]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[247]; f_4497(6,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6785(2,av2);}}} /* k6783 in k6780 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_6785,2,av);} a=C_alloc(7); t2=(C_truep(((C_word*)t0)[2])?C_fix(1):C_fix(0)); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6794,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_6794(t6,((C_word*)t0)[5],t2,((C_word*)t0)[6]);} /* doloop1127 in k6783 in k6780 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_6794(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_6794,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t3))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6804,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:552: gen */ t5=lf[4];{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[244]; av2[4]=t2; av2[5]=lf[245]; f_4497(6,av2);}}} /* k6802 in doloop1127 in k6783 in k6780 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6804,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6807,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[3]); /* c-backend.scm:553: expr */ t4=((C_word*)((C_word*)t0)[6])[1]; f_4673(t4,t2,t3,((C_word*)t0)[7]);} /* k6805 in k6802 in doloop1127 in k6783 in k6780 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_6807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6807,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6810,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:554: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[243]; f_4497(3,av2);}} /* k6808 in k6805 in k6802 in doloop1127 in k6783 in k6780 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_6810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_6810,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=((C_word*)((C_word*)t0)[4])[1]; f_6794(t6,((C_word*)t0)[5],t3,t5);} /* k6828 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_6830(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_6830,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ /* c-backend.scm:538: gen */ t2=lf[4];{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[248]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[249]; f_4497(6,av2);}} else{ if(C_truep(C_i_greater_or_equalp(((C_word*)t0)[4],((C_word*)t0)[3]))){ /* c-backend.scm:540: gen */ t2=lf[4];{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[250]; f_4497(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6845,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:542: gen */ t3=lf[4];{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[258]; f_4497(4,av2);}}}} /* k6843 in k6828 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_6845,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6848,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:543: gen */ t3=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[256]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[257]; f_4497(6,av2);}} /* k6846 in k6843 in k6828 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6848,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:544: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[255]; f_4497(4,av2);}} /* k6849 in k6846 in k6843 in k6828 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6851,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6854,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:545: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[254]; f_4497(4,av2);}} /* k6852 in k6849 in k6846 in k6843 in k6828 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_6854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_6854,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6857,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:546: gen */ t3=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[252]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[253]; f_4497(6,av2);}} /* k6855 in k6852 in k6849 in k6846 in k6843 in k6828 in k6777 in k6774 in k6771 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_6857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6857,2,av);} /* c-backend.scm:547: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[251]; f_4497(4,av2);}} /* k6871 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6873,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6876,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t1; t4=((C_word*)t0)[2]; f_6773(t4,C_i_not(t3));} else{ /* c-backend.scm:527: chicken.compiler.core#lambda-literal-direct */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[262]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[262]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k6874 in k6871 in push-args in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6876,2,av);} t2=((C_word*)t0)[2]; f_6773(t2,C_i_not(t1));} /* header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_6884(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,0,2)))){ C_save_and_reclaim_args((void *)trf_6884,2,t0,t1);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6888,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6974,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6986,a[2]=t3,a[3]=t6,a[4]=t7,tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7027,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:563: chicken.platform#chicken-version */ t10=C_fast_retrieve(lf[286]);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6888,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6891,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:566: gen-list */ f_4540(t2,((C_word*)t0)[3]);} /* k6889 in k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_6891,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6894,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_not(C_fast_retrieve(lf[274])))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6894(2,av2);}} else{ /* c-backend.scm:568: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[275]; av2[4]=C_fast_retrieve(lf[274]); f_4497(5,av2);}}} /* k6892 in k6889 in k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6894,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6897,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(C_fast_retrieve(lf[272])))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6897(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6961,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:570: gen */ t4=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[273]; f_4497(4,av2);}}} /* k6895 in k6892 in k6889 in k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6897,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6900,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:572: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[271]; f_4497(4,av2);}} /* k6898 in k6895 in k6892 in k6889 in k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_6900,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6903,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:573: gen */ t3=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[268]; av2[4]=C_fast_retrieve(lf[269]); av2[5]=lf[270]; f_4497(6,av2);}} /* k6901 in k6898 in k6895 in k6892 in k6889 in k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6903,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6906,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fast_retrieve(lf[264]))){ /* c-backend.scm:575: generate-foreign-callback-stub-prototypes */ f_9263(t2,C_fast_retrieve(lf[266]));} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6906(2,av2);}}} /* k6904 in k6901 in k6898 in k6895 in k6892 in k6889 in k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6906,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6909,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_pairp(C_fast_retrieve(lf[267])))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6921,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:577: gen */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; f_4497(3,av2);}} else{ if(C_truep(C_fast_retrieve(lf[264]))){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* c-backend.scm:580: generate-foreign-callback-stub-prototypes */ f_9263(((C_word*)t0)[2],C_fast_retrieve(lf[266]));}}} /* k6907 in k6904 in k6901 in k6898 in k6895 in k6892 in k6889 in k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6909,2,av);} if(C_truep(C_fast_retrieve(lf[264]))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* c-backend.scm:580: generate-foreign-callback-stub-prototypes */ f_9263(((C_word*)t0)[2],C_fast_retrieve(lf[266]));}} /* k6919 in k6904 in k6901 in k6898 in k6895 in k6892 in k6889 in k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6921,2,av);} a=C_alloc(5); t2=C_fast_retrieve(lf[267]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6931,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_6931(t6,((C_word*)t0)[2],C_fast_retrieve(lf[267]));} /* for-each-loop1186 in k6919 in k6904 in k6901 in k6898 in k6895 in k6892 in k6889 in k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_fcall f_6931(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_6931,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6941,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* c-backend.scm:578: gen */ t5=lf[4];{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=t4; f_4497(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6939 in for-each-loop1186 in k6919 in k6904 in k6901 in k6898 in k6895 in k6892 in k6889 in k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_6941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6941,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6931(t3,((C_word*)t0)[4],t2);} /* k6959 in k6892 in k6889 in k6886 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6961,2,av);} /* c-backend.scm:571: gen-list */ f_4540(((C_word*)t0)[2],C_fast_retrieve(lf[272]));} /* k6972 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_6974,2,av);} /* c-backend.scm:559: gen */ t2=lf[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[276]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[277]; av2[5]=C_SCHEME_TRUE; av2[6]=lf[278]; av2[7]=C_SCHEME_TRUE; av2[8]=t1; av2[9]=lf[279]; f_4497(10,av2);}} /* k6984 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6986,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6989,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6991,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_6991(t6,t2,t1);} /* k6987 in k6984 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_6989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6989,2,av);} /* c-backend.scm:561: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[280]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[281]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1151 in k6984 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_6991(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_6991,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7016,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* c-backend.scm:562: g1174 */ t5=*((C_word*)lf[128]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=lf[282]; av2[3]=t4; av2[4]=lf[283]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7014 in map-loop1151 in k6984 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7016,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6991(t6,((C_word*)t0)[5],t5);} /* k7025 in header in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7027,2,av);} /* c-backend.scm:563: chicken.string#string-split */ t2=C_fast_retrieve(lf[284]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[285]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7035 in k8868 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_7037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){ C_save_and_reclaim((void *)f_7037,2,av);} /* c-backend.scm:583: gen */ t2=lf[4];{ C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[480]; av2[5]=C_SCHEME_TRUE; av2[6]=t1; av2[7]=lf[481]; av2[8]=C_SCHEME_TRUE; av2[9]=lf[482]; av2[10]=C_SCHEME_TRUE; f_4497(11,av2);}} /* k7039 in k8868 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_7041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7041,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14584,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:75: chicken.string#->string */ t4=C_fast_retrieve(lf[94]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7043(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_7043,2,t0,t1);} a=C_alloc(5); t2=C_i_length(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7050,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:592: gen */ t5=lf[4];{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[300]; f_4497(5,av2);}} /* k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_7050,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=lf[198]; t7=C_fast_retrieve(lf[272]); t8=C_i_check_list_2(C_fast_retrieve(lf[272]),lf[287]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7064,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7213,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_7213(t13,t9,C_fast_retrieve(lf[272]));} /* k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7064,2,av);} a=C_alloc(10); t2=C_i_check_list_2(t1,lf[67]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7070,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7190,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_7190(t7,t3,t1);} /* k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_7070,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7073,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_eqp(((C_word*)t0)[4],C_fix(0)); if(C_truep(t3)){ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_7073(2,av2);}} else{ /* c-backend.scm:599: gen */ t4=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[294]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[295]; f_4497(7,av2);}}} /* k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7073,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7076,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:600: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[293]; f_4497(4,av2);}} /* k7074 in k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7076,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7081,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_7081(t5,((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3]);} /* doloop1222 in k7074 in k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7081(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7081,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t3))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7091,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t3); /* c-backend.scm:604: ##sys#lambda-info->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[292]); C_word av2[3]; av2[0]=*((C_word*)lf[292]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}}} /* k7089 in doloop1222 in k7074 in k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,11)))){ C_save_and_reclaim((void *)f_7091,2,av);} a=C_alloc(23); t2=t1; t3=C_i_string_length(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7097,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t4,a[7]=t2,tmp=(C_word)a,a+=8,tmp); t6=C_s_a_i_arithmetic_shift(&a,2,t4,C_fix(-16)); t7=C_s_a_i_arithmetic_shift(&a,2,t4,C_fix(-8)); t8=C_s_a_i_bitwise_and(&a,2,C_fix(255),t7); t9=C_u_fixnum_and(C_fix(255),t4); /* c-backend.scm:606: gen */ t10=lf[4];{ C_word *av2; if(c >= 12) { av2=av; } else { av2=C_alloc(12); } av2[0]=t10; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[290]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[291]; av2[6]=t6; av2[7]=C_make_character(44); av2[8]=t8; av2[9]=C_make_character(44); av2[10]=t9; av2[11]=C_make_character(41); f_4497(12,av2);}} /* k7095 in k7089 in doloop1222 in k7074 in k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_7097,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7100,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7139,a[2]=((C_word*)t0)[6],a[3]=t4,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_7139(t6,t2,C_fix(0));} /* k7098 in k7095 in k7089 in doloop1222 in k7074 in k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_7100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_7100,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7103,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[6],C_fix(7)); t4=C_s_a_i_bitwise_and(&a,2,C_fix(16777208),t3); t5=C_s_a_u_i_integer_minus(&a,2,t4,((C_word*)t0)[6]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7121,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1]; f_7121(t9,t2,t5);} /* k7101 in k7098 in k7095 in k7089 in doloop1222 in k7074 in k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_7103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7103,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7106,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:617: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[288]; f_4497(3,av2);}} /* k7104 in k7101 in k7098 in k7095 in k7089 in doloop1222 in k7074 in k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_7106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_7106,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=((C_word*)((C_word*)t0)[4])[1]; f_7081(t6,((C_word*)t0)[5],t3,t5);} /* doloop1263 in k7098 in k7095 in k7089 in doloop1222 in k7074 in k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_fcall f_7121(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7121,3,t0,t1,t2);} a=C_alloc(5); t3=t2; if(C_truep(C_i_zerop(t3))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7129,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:616: gen */ t5=lf[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[289]; f_4497(3,av2);}}} /* k7127 in doloop1263 in k7098 in k7095 in k7089 in doloop1222 in k7074 in k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_7129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_7129,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_s_a_i_minus(&a,2,t2,C_fix(1)); t4=((C_word*)((C_word*)t0)[3])[1]; f_7121(t4,((C_word*)t0)[4],t3);} /* doloop1262 in k7095 in k7089 in doloop1222 in k7074 in k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_fcall f_7139(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7139,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7149,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_string_ref(((C_word*)t0)[4],t2); t5=C_fix(C_character_code(t4)); /* c-backend.scm:613: gen */ t6=lf[4];{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=C_make_character(44); av2[3]=t5; f_4497(4,av2);}}} /* k7147 in doloop1262 in k7095 in k7089 in doloop1222 in k7074 in k7071 in k7068 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_7149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7149,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); t4=((C_word*)((C_word*)t0)[3])[1]; f_7139(t4,((C_word*)t0)[4],t3);} /* for-each-loop1214 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7190(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,9)))){ C_save_and_reclaim_args((void *)trf_7190,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7200,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* c-backend.scm:595: gen */ t5=lf[4];{ C_word av2[10]; av2[0]=t5; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[296]; av2[4]=t4; av2[5]=lf[297]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[298]; av2[8]=t4; av2[9]=lf[299]; f_4497(10,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7198 in for-each-loop1214 in k7062 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7200,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7190(t3,((C_word*)t0)[4],t2);} /* map-loop1228 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7213(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7213,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7238,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* c-backend.scm:597: g1234 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7236 in map-loop1228 in k7048 in declarations in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7238,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7213(t6,((C_word*)t0)[5],t5);} /* prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7247(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7247,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7251,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:620: gen */ t3=lf[4];{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; f_4497(3,av2);}} /* k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7251,2,av);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7408,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_7408(t6,((C_word*)t0)[3],((C_word*)t0)[2]);} /* k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7260,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7263,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:626: chicken.compiler.core#lambda-literal-customizable */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[263]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[263]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7263,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7266,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7400,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:627: chicken.compiler.core#lambda-literal-closure-size */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[173]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[173]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} else{ t4=t3; f_7266(t4,C_SCHEME_FALSE);}} /* k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7266(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(38,0,3)))){ C_save_and_reclaim_args((void *)trf_7266,2,t0,t1);} a=C_alloc(38); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7269,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7391,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t4=C_s_a_i_minus(&a,2,((C_word*)t0)[6],C_fix(1)); /* c-backend.scm:628: make-variable-list */ f_9172(t3,t4,lf[320]);} else{ /* c-backend.scm:628: make-variable-list */ f_9172(t3,((C_word*)t0)[6],lf[320]);}} /* k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7269,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7272,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:629: chicken.compiler.core#lambda-literal-rest-argument */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[318]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[318]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7272,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7275,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:630: chicken.compiler.core#lambda-literal-rest-argument-mode */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[260]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[260]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7275,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7278,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:631: chicken.compiler.core#lambda-literal-direct */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[262]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[262]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_7278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7278,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7281,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:632: chicken.compiler.core#lambda-literal-allocated */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[317]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[317]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_7281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7281,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7284,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:633: gen */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; f_4497(3,av2);}} /* k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_7284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_7284,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7287,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_eqp(lf[305],((C_word*)t0)[7]); if(C_truep(C_i_not(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7349,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:635: gen */ t5=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=lf[311]; av2[3]=((C_word*)t0)[7]; av2[4]=lf[312]; av2[5]=C_SCHEME_TRUE; f_4497(6,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7374,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:643: toplevel */ t5=lf[198];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_fast_retrieve(lf[274]); f_9080(3,av2);}}} /* k7285 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_7287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7287,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:647: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(40); f_4497(3,av2);}} /* k7288 in k7285 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_7290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7290,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7293,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[4])){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7293(2,av2);}} else{ /* c-backend.scm:648: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[304]; f_4497(3,av2);}}} /* k7291 in k7288 in k7285 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_7293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7293,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7296,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7323,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ t4=C_i_zerop(((C_word*)t0)[6]); t5=t3; f_7323(t5,C_i_not(t4));} else{ t4=t3; f_7323(t4,C_SCHEME_FALSE);}} /* k7294 in k7291 in k7288 in k7285 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_7296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7296,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7299,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ if(C_truep(((C_word*)t0)[4])){{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=lf[4]; av2[3]=((C_word*)t0)[5]; C_apply(4,av2);}} else{ /* c-backend.scm:654: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[302]; f_4497(3,av2);}}} else{ if(C_truep(((C_word*)t0)[3])){{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=lf[4]; av2[3]=((C_word*)t0)[5]; C_apply(4,av2);}} else{ /* c-backend.scm:654: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[302]; f_4497(3,av2);}}}} /* k7297 in k7294 in k7291 in k7288 in k7285 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_ccall f_7299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7299,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7302,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:655: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(41); f_4497(3,av2);}} /* k7300 in k7297 in k7294 in k7291 in k7288 in k7285 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in ... */ static void C_ccall f_7302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7302,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7305,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* c-backend.scm:657: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); f_4497(3,av2);}} else{ /* c-backend.scm:656: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[301]; f_4497(3,av2);}}} /* k7303 in k7300 in k7297 in k7294 in k7291 in k7288 in k7285 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in ... */ static void C_ccall f_7305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7305,2,av);} /* c-backend.scm:657: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); f_4497(3,av2);}} /* k7321 in k7291 in k7288 in k7285 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_fcall f_7323(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7323,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:650: gen */ t3=lf[4];{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[303]; f_4497(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_7296(2,av2);}}} /* k7324 in k7321 in k7291 in k7288 in k7285 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_ccall f_7326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7326,2,av);} if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ /* c-backend.scm:651: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(44); f_4497(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_7296(2,av2);}}} /* k7347 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_7349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7349,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7352,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:636: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[310]; f_4497(3,av2);}} /* k7350 in k7347 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_7352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7352,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[5])){ /* c-backend.scm:637: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[308]; f_4497(3,av2);}} else{ /* c-backend.scm:637: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[309]; f_4497(3,av2);}}} /* k7353 in k7350 in k7347 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_7355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7355,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ /* c-backend.scm:639: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[306]; f_4497(3,av2);}} else{ /* c-backend.scm:640: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[307]; f_4497(3,av2);}}} /* k7356 in k7353 in k7350 in k7347 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_7358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7358,2,av);} /* c-backend.scm:641: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; f_4497(3,av2);}} /* k7372 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_7374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_7374,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7377,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:644: gen */ t4=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[315]; av2[3]=t2; av2[4]=lf[316]; av2[5]=C_SCHEME_TRUE; f_4497(6,av2);}} /* k7375 in k7372 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_7377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7377,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7380,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:645: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[314]; f_4497(3,av2);}} /* k7378 in k7375 in k7372 in k7282 in k7279 in k7276 in k7273 in k7270 in k7267 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_7380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7380,2,av);} /* c-backend.scm:646: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[313]; av2[3]=((C_word*)t0)[3]; f_4497(4,av2);}} /* k7389 in k7264 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7391,2,av);} /* c-backend.scm:628: chicken.base#intersperse */ t2=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7398 in k7261 in k7258 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7400,2,av);} t2=((C_word*)t0)[2]; f_7266(t2,C_i_zerop(t1));} /* for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7408(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_7408,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7418,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=C_i_car(t4); t7=t6; t8=C_u_i_cdr(t4); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7260,a[2]=t5,a[3]=t7,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:625: chicken.compiler.core#lambda-literal-argument-count */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[261]); C_word av2[3]; av2[0]=*((C_word*)lf[261]+1); av2[1]=t9; av2[2]=t8; tp(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7416 in for-each-loop1283 in k7249 in prototypes in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7418,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7408(t3,((C_word*)t0)[4],t2);} /* trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7431(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7431,2,t0,t1);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7535,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_7535(t6,t1,((C_word*)t0)[2]);} /* doloop1350 in k7493 in k7490 in k7519 in k7481 in k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_fcall f_7442(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,7)))){ C_save_and_reclaim_args((void *)trf_7442,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7452,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:669: gen */ t5=lf[4];{ C_word av2[8]; av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[324]; av2[4]=t2; av2[5]=lf[325]; av2[6]=t3; av2[7]=lf[326]; f_4497(8,av2);}}} /* k7450 in doloop1350 in k7493 in k7490 in k7519 in k7481 in k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_7452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(58,c,3)))){ C_save_and_reclaim((void *)f_7452,2,av);} a=C_alloc(58); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); t4=((C_word*)t0)[3]; t5=C_s_a_i_minus(&a,2,t4,C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7442(t6,((C_word*)t0)[5],t3,t5);} /* k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7468,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7471,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:676: chicken.compiler.core#lambda-literal-rest-argument */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[318]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[318]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7471,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7474,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:677: chicken.compiler.core#lambda-literal-rest-argument-mode */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[260]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[260]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7474,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7477,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:678: chicken.compiler.core#lambda-literal-customizable */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[263]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[263]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7477,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7480,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7527,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:679: chicken.compiler.core#lambda-literal-closure-size */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[173]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[173]+1); av2[1]=t4; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ t4=t3; f_7480(t4,C_SCHEME_FALSE);}} /* k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7480(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_7480,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7483,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t1)){ t3=((C_word*)((C_word*)t0)[4])[1]; t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,C_s_a_i_minus(&a,2,t3,C_fix(1))); t5=t2; f_7483(t5,t4);} else{ t3=t2; f_7483(t3,C_SCHEME_UNDEFINED);}} /* k7481 in k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7483(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7483,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7521,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:681: chicken.compiler.core#lambda-literal-direct */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[262]); C_word av2[3]; av2[0]=*((C_word*)lf[262]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k7490 in k7519 in k7481 in k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_7492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_7492,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:684: gen */ t3=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[327]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[328]; f_4497(6,av2);}} /* k7493 in k7490 in k7519 in k7481 in k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_7495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(40,c,4)))){ C_save_and_reclaim((void *)f_7495,2,av);} a=C_alloc(40); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_s_a_i_minus(&a,2,t3,C_fix(1)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7442,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_7442(t8,t2,C_fix(0),t4);} /* k7496 in k7493 in k7490 in k7519 in k7481 in k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_7498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_7498,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:686: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[4]; av2[4]=C_make_character(40); f_4497(5,av2);}} /* k7499 in k7496 in k7493 in k7490 in k7519 in k7481 in k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_7501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7501,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7504,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:687: make-argument-list */ f_9189(t2,((C_word*)((C_word*)t0)[3])[1],lf[323]);} /* k7502 in k7499 in k7496 in k7493 in k7490 in k7519 in k7481 in k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_7504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7504,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7507,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7514,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:688: chicken.base#intersperse */ t4=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t1; av2[3]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7505 in k7502 in k7499 in k7496 in k7493 in k7490 in k7519 in k7481 in k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_7507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7507,2,av);} /* c-backend.scm:689: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[321]; f_4497(3,av2);}} /* k7512 in k7502 in k7499 in k7496 in k7493 in k7490 in k7519 in k7481 in k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_7514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7514,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[4]; av2[3]=t1; C_apply(4,av2);}} /* k7519 in k7481 in k7478 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_7521,2,av);} a=C_alloc(5); t2=C_i_not(t1); t3=(C_truep(t2)?((C_word*)t0)[2]:C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7492,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:682: gen */ t5=lf[4];{ C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[329]; av2[5]=((C_word*)t0)[5]; av2[6]=lf[330]; av2[7]=C_SCHEME_TRUE; av2[8]=lf[331]; av2[9]=((C_word*)t0)[5]; av2[10]=lf[332]; f_4497(11,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k7525 in k7475 in k7472 in k7469 in k7466 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7527,2,av);} t2=((C_word*)t0)[2]; f_7480(t2,C_i_zerop(t1));} /* for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7535(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_7535,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7545,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=C_i_car(t4); t7=t6; t8=C_u_i_cdr(t4); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7468,a[2]=t5,a[3]=t7,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:675: chicken.compiler.core#lambda-literal-argument-count */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[261]); C_word av2[3]; av2[0]=*((C_word*)lf[261]+1); av2[1]=t9; av2[2]=t8; tp(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7543 in for-each-loop1340 in trampolines in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7545,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7535(t3,((C_word*)t0)[4],t2);} /* literal-frame in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7558(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_7558,2,t0,t1);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7564,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_7564(t5,t1,C_fix(0),((C_word*)t0)[3]);} /* doloop1381 in literal-frame in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7564(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_7564,4,t0,t1,t2,t3);} a=C_alloc(12); if(C_truep(C_i_nullp(t3))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7574,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t3); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7589,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t6,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:696: chicken.base#open-output-string */ t8=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k7572 in doloop1381 in literal-frame in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_7574,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=((C_word*)((C_word*)t0)[4])[1]; f_7564(t6,((C_word*)t0)[5],t3,t5);} /* k7587 in doloop1381 in literal-frame in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_7589,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7595,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:696: ##sys#print */ t6=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[337]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7593 in k7587 in doloop1381 in literal-frame in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_7595,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7598,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:696: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7596 in k7593 in k7587 in doloop1381 in literal-frame in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7598,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7601,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:696: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[335]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[335]+1); av2[1]=t2; av2[2]=C_make_character(93); av2[3]=((C_word*)t0)[6]; tp(4,av2);}} /* k7599 in k7596 in k7593 in k7587 in doloop1381 in literal-frame in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7601,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7604,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:696: chicken.base#get-output-string */ t3=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7602 in k7599 in k7596 in k7593 in k7587 in doloop1381 in literal-frame in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7604,2,av);} /* c-backend.scm:696: gen-lit */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7895(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7612,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7619,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:702: chicken.compiler.support#immediate? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[348]); C_word *av2=av; av2[0]=*((C_word*)lf[348]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7619,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7625,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:703: chicken.compiler.support#big-fixnum? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[347]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[347]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7625,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(2); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_bignump(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(2); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(((C_word*)t0)[3]))){ t2=C_fast_retrieve(lf[339]); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_fast_retrieve(lf[339]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(7); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7655,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:708: chicken.keyword#keyword? */ t3=C_fast_retrieve(lf[346]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}}}} /* k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_7655,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(7); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7668,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); /* c-backend.scm:709: literal-size */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; f_7612(3,av2);}} else{ if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[3]; t3=C_block_size(t2); t4=t3; t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=((C_word*)((C_word*)t0)[4])[1]; t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7696,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t7,a[5]=t9,a[6]=t8,tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:712: scheme#vector->list */ t11=*((C_word*)lf[341]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7770,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:713: chicken.compiler.support#block-variable-literal? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[345]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[345]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}}}} /* k7666 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7668,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7672,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* c-backend.scm:709: literal-size */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; f_7612(3,av2);}} /* k7670 in k7666 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_7672,2,av);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15097,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=t2; va15097(t3,C_s_a_i_plus(&a,2,C_fix(3),((C_word*)t0)[3]));} /* k7694 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_7696,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7699,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7731,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_7731(t6,t2,t1);} /* k7697 in k7694 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_7699,2,av);} a=C_alloc(9); t2=C_i_check_list_2(t1,lf[340]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7705,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7707,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_7707(t7,t3,t1,C_fix(0));} /* k7703 in k7697 in k7694 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_7705,2,av);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15099,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=t2; va15099(t3,C_s_a_i_plus(&a,2,C_fix(1),((C_word*)t0)[3]));} /* foldl1410 in k7697 in k7694 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7707(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){ C_save_and_reclaim_args((void *)trf_7707,4,t0,t1,t2,t3);} a=C_alloc(29); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=C_slot(t2,C_fix(0)); t6=C_s_a_i_plus(&a,2,t3,t5); t8=t1; t9=t4; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* map-loop1416 in k7694 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7731(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7731,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7756,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* c-backend.scm:712: g1422 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7754 in map-loop1416 in k7694 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7756,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7731(t6,((C_word*)t0)[5],t5);} /* k7768 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7770,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_immp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; /* c-backend.scm:699: chicken.compiler.support#bomb */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t2; av2[2]=lf[342]; av2[3]=t3; tp(4,av2);}} else{ if(C_truep(C_lambdainfop(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7788,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:716: ##sys#bytevector? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[344]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[344]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}}}} /* k7786 in k7768 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_7788,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7795,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_block_size(((C_word*)t0)[3]); /* c-backend.scm:716: chicken.compiler.support#bytes->words */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[343]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[343]+1); av2[1]=t2; av2[2]=t3; tp(3,av2);}} else{ if(C_truep(C_structurep(((C_word*)t0)[3]))){ t2=C_block_size(((C_word*)t0)[3]); t3=t2; t4=C_a_i_fixnum_plus(&a,2,C_fix(2),t3); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7816,a[2]=t3,a[3]=t6,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_7816(t8,((C_word*)t0)[2],C_fix(0),t4);} else{ if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){ t2=C_block_size(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7857,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[3]; t6=C_u_i_ratnum_num(t5); /* c-backend.scm:725: literal-size */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t4; av2[2]=t6; f_7612(3,av2);}} else{ if(C_truep(C_i_cplxnump(((C_word*)t0)[3]))){ t2=C_block_size(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7882,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[3]; t6=C_u_i_cplxnum_real(t5); /* c-backend.scm:728: literal-size */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t4; av2[2]=t6; f_7612(3,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; /* c-backend.scm:699: chicken.compiler.support#bomb */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t2; av2[2]=lf[342]; av2[3]=t3; tp(4,av2);}}}}}} /* k7793 in k7786 in k7768 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_7795,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_s_a_i_plus(&a,2,C_fix(2),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k7786 in k7768 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7816(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(35,0,2)))){ C_save_and_reclaim_args((void *)trf_7816,4,t0,t1,t2,t3);} a=C_alloc(35); if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t2; t5=C_s_a_i_plus(&a,2,t4,C_fix(1)); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7836,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=C_slot(((C_word*)t0)[4],t2); /* c-backend.scm:722: literal-size */ t8=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; f_7612(3,av2);}}} /* k7834 in loop in k7786 in k7768 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_7836,2,av);} a=C_alloc(29); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1); /* c-backend.scm:722: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_7816(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k7855 in k7786 in k7768 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7857,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7861,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_ratnum_denom(t4); /* c-backend.scm:726: literal-size */ t6=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; f_7612(3,av2);}} /* k7859 in k7855 in k7786 in k7768 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_7861,2,av);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15107,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=t2; va15107(t3,C_s_a_i_plus(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));} /* k7880 in k7786 in k7768 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7882,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7886,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_cplxnum_imag(t4); /* c-backend.scm:729: literal-size */ t6=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; f_7612(3,av2);}} /* k7884 in k7880 in k7786 in k7768 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_7886,2,av);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15109,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=t2; va15109(t3,C_s_a_i_plus(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));} /* gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7895(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_7895,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7902,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnump(t2))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8047,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:734: chicken.compiler.support#big-fixnum? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[347]); C_word av2[3]; av2[0]=*((C_word*)lf[347]+1); av2[1]=t5; av2[2]=t2; tp(3,av2);}} else{ t5=t4; f_7902(t5,C_SCHEME_FALSE);}} /* k7900 in gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_7902(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,6)))){ C_save_and_reclaim_args((void *)trf_7902,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ /* c-backend.scm:735: gen */ t2=lf[4];{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[3]; av2[4]=lf[349]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[350]; f_4497(7,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7908,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:736: chicken.compiler.support#block-variable-literal? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[345]); C_word av2[3]; av2[0]=*((C_word*)lf[345]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* k7906 in k7900 in gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_7908,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=*((C_word*)lf[351]+1); t3=C_eqp(((C_word*)t0)[3],*((C_word*)lf[351]+1)); if(C_truep(t3)){ /* c-backend.scm:738: gen */ t4=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[4]; av2[4]=lf[352]; f_4497(5,av2);}} else{ if(C_truep(C_booleanp(((C_word*)t0)[3]))){ if(C_truep(((C_word*)t0)[3])){ /* c-backend.scm:740: gen */ t4=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[4]; av2[4]=C_make_character(61); av2[5]=lf[353]; av2[6]=C_make_character(59); f_4497(7,av2);}} else{ /* c-backend.scm:740: gen */ t4=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[4]; av2[4]=C_make_character(61); av2[5]=lf[354]; av2[6]=C_make_character(59); f_4497(7,av2);}}} else{ if(C_truep(C_charp(((C_word*)t0)[3]))){ t4=C_fix(C_character_code(((C_word*)t0)[3])); /* c-backend.scm:742: gen */ t5=lf[4];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[4]; av2[4]=lf[355]; av2[5]=t4; av2[6]=lf[356]; f_4497(7,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7952,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:743: chicken.keyword#keyword? */ t5=C_fast_retrieve(lf[346]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}}} /* k7950 in k7906 in k7900 in gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_7952,2,av);} a=C_alloc(6); t2=(C_truep(t1)?t1:C_i_symbolp(((C_word*)t0)[2])); if(C_truep(t2)){ t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7961,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:745: chicken.compiler.support#c-ify-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[83]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[83]+1); av2[1]=t5; av2[2]=t4; tp(3,av2);}} else{ if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ /* c-backend.scm:753: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[4]; av2[4]=lf[363]; f_4497(5,av2);}} else{ t3=C_immp(((C_word*)t0)[2]); t4=C_i_not(t3); t5=(C_truep(t4)?C_lambdainfop(((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t5)){ t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_fixnump(((C_word*)t0)[2]); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8000,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(t6)){ t8=t7; f_8000(t8,t6);} else{ t8=C_immp(((C_word*)t0)[2]); t9=t7; f_8000(t9,C_i_not(t8));}}}}} /* k7959 in k7950 in k7906 in k7900 in gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7961,2,av);} a=C_alloc(6); t2=t1; t3=C_block_size(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7976,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:747: chicken.keyword#keyword? */ t6=C_fast_retrieve(lf[346]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k7968 in k7974 in k7959 in k7950 in k7906 in k7900 in gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_7970,2,av);} /* c-backend.scm:751: gen */ t2=lf[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[359]; av2[4]=((C_word*)t0)[4]; av2[5]=C_make_character(44); av2[6]=((C_word*)t0)[5]; av2[7]=lf[360]; av2[8]=((C_word*)t0)[6]; av2[9]=lf[361]; f_4497(10,av2);}} /* k7974 in k7959 in k7950 in k7906 in k7900 in gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_7976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_7976,2,av);} a=C_alloc(7); t2=(C_truep(t1)?lf[357]:lf[358]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7970,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:750: gen */ t5=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[3]; av2[4]=lf[362]; f_4497(5,av2);}} /* k7998 in k7950 in k7906 in k7900 in gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_8000(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_8000,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8003,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:757: gen */ t3=lf[4];{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[5]; av2[4]=lf[366]; f_4497(5,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[4]; /* c-backend.scm:699: chicken.compiler.support#bomb */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]); C_word av2[4]; av2[0]=*((C_word*)lf[10]+1); av2[1]=t2; av2[2]=lf[342]; av2[3]=t3; tp(4,av2);}}} /* k8001 in k7998 in k7950 in k7906 in k7900 in gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_8003,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8006,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8013,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:758: encode-literal */ f_12920(t3,((C_word*)t0)[4]);} /* k8004 in k8001 in k7998 in k7950 in k7906 in k7900 in gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8006,2,av);} /* c-backend.scm:759: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[364]; f_4497(3,av2);}} /* k8011 in k8001 in k7998 in k7950 in k7906 in k7900 in gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8013,2,av);} /* c-backend.scm:758: gen-string-constant */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8049(t2,((C_word*)t0)[3],t1);} /* k8045 in gen-lit in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8047,2,av);} t2=((C_word*)t0)[2]; f_7902(t2,C_i_not(t1));} /* gen-string-constant in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_8049(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_8049,3,t0,t1,t2);} a=C_alloc(9); t3=C_block_size(t2); t4=t3; t5=C_fixnum_divide(t4,C_fix(80)); t6=C_fixnum_modulo(t4,C_fix(80)); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8063,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t6,a[6]=t8,tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_8063(t10,t1,t5,C_fix(0));} /* doloop1481 in gen-string-constant in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_8063(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(41,0,4)))){ C_save_and_reclaim_args((void *)trf_8063,4,t0,t1,t2,t3);} a=C_alloc(41); t4=t2; if(C_truep(C_i_zerop(t4))){ t5=C_eqp(((C_word*)t0)[2],C_fix(0)); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8077,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); if(C_truep(t5)){ t7=t6; f_8077(t7,t5);} else{ t7=C_eqp(((C_word*)t0)[5],C_fix(0)); t8=t6; f_8077(t8,C_i_not(t7));}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8100,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8113,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8117,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_s_a_i_plus(&a,2,t3,C_fix(80)); /* c-backend.scm:771: string-like-substring */ f_8123(t7,((C_word*)t0)[4],t3,t8);}} /* k8075 in doloop1481 in gen-string-constant in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_8077(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_8077,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8084,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8088,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:770: string-like-substring */ f_8123(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8082 in k8075 in doloop1481 in gen-string-constant in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8084,2,av);} /* c-backend.scm:770: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_4497(3,av2);}} /* k8086 in k8075 in doloop1481 in gen-string-constant in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8088,2,av);} /* c-backend.scm:770: chicken.compiler.support#c-ify-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[83]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[83]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k8098 in doloop1481 in gen-string-constant in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(58,c,3)))){ C_save_and_reclaim((void *)f_8100,2,av);} a=C_alloc(58); t2=((C_word*)t0)[2]; t3=C_s_a_i_minus(&a,2,t2,C_fix(1)); t4=C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(80)); t5=((C_word*)((C_word*)t0)[4])[1]; f_8063(t5,((C_word*)t0)[5],t3,t4);} /* k8111 in doloop1481 in gen-string-constant in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8113,2,av);} /* c-backend.scm:771: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; f_4497(4,av2);}} /* k8115 in doloop1481 in gen-string-constant in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8117,2,av);} /* c-backend.scm:771: chicken.compiler.support#c-ify-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[83]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[83]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* string-like-substring in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_8123(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(35,0,2)))){ C_save_and_reclaim_args((void *)trf_8123,4,t1,t2,t3,t4);} a=C_alloc(35); t5=C_s_a_i_minus(&a,2,t4,t3); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8130,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:775: scheme#make-string */ t8=*((C_word*)lf[368]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k8128 in string-like-substring in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_8130,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8133,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:776: ##sys#copy-bytes */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[367]); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[367]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=((C_word*)t0)[4]; av2[5]=C_fix(0); av2[6]=((C_word*)t0)[5]; tp(7,av2);}} /* k8131 in k8128 in string-like-substring in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8133,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_8135(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_8135,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8137,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_i_check_list_2(((C_word*)t0)[8],lf[67]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8815,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_8815(t7,t1,((C_word*)t0)[8]);} /* g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_8137(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_8137,3,t0,t1,t2);} a=C_alloc(11); t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8145,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t6,a[6]=t4,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); /* c-backend.scm:784: chicken.compiler.core#lambda-literal-argument-count */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[261]); C_word av2[3]; av2[0]=*((C_word*)lf[261]+1); av2[1]=t7; av2[2]=t6; tp(3,av2);}} /* k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_8145,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8148,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* c-backend.scm:785: chicken.compiler.support#real-name */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[479]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[479]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[10]; tp(4,av2);}} /* k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_8148,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8151,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,tmp=(C_word)a,a+=12,tmp); /* c-backend.scm:786: chicken.compiler.core#lambda-literal-allocated */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[317]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[317]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_8151,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8154,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8807,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:787: chicken.compiler.core#lambda-literal-callee-signatures */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[478]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[478]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_8154,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8157,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* c-backend.scm:788: chicken.compiler.core#lambda-literal-rest-argument */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[318]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[318]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_8157,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8160,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* c-backend.scm:789: chicken.compiler.core#lambda-literal-customizable */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[263]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[263]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_8160,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8163,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8803,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:790: chicken.compiler.core#lambda-literal-closure-size */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[173]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[173]+1); av2[1]=t4; av2[2]=((C_word*)t0)[7]; tp(3,av2);}} else{ t4=t3; f_8163(t4,C_SCHEME_FALSE);}} /* k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_8163(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(47,0,3)))){ C_save_and_reclaim_args((void *)trf_8163,2,t0,t1);} a=C_alloc(47); t2=t1; t3=(C_truep(t2)?C_s_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)):C_s_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(0))); t4=t3; t5=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_8169,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t4,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=t2,a[17]=((C_word*)t0)[15],tmp=(C_word)a,a+=18,tmp); /* c-backend.scm:792: make-variable-list */ f_9172(t5,((C_word*)t0)[2],lf[476]);} /* k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_8169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_8169,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8172,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t2,tmp=(C_word)a,a+=19,tmp); /* c-backend.scm:793: make-argument-list */ f_9189(t3,((C_word*)t0)[6],lf[475]);} /* k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_8172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_8172,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8175,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t2,tmp=(C_word)a,a+=19,tmp); if(C_truep(((C_word*)t0)[16])){ t4=C_i_cdr(((C_word*)t0)[18]); /* c-backend.scm:794: chicken.base#intersperse */ t5=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* c-backend.scm:794: chicken.base#intersperse */ t4=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[18]; av2[3]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_8175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_8175,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8178,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=t2,a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp); if(C_truep(((C_word*)t0)[16])){ t4=C_i_cdr(((C_word*)t0)[18]); /* c-backend.scm:795: chicken.base#intersperse */ t5=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* c-backend.scm:795: chicken.base#intersperse */ t4=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[18]; av2[3]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_8178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_8178,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_8181,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); /* c-backend.scm:796: chicken.compiler.core#lambda-literal-external */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[474]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[474]+1); av2[1]=t3; av2[2]=((C_word*)t0)[8]; tp(3,av2);}} /* k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_8181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_8181,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_8184,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t2,a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp); /* c-backend.scm:797: chicken.compiler.core#lambda-literal-looping */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[121]+1); av2[1]=t3; av2[2]=((C_word*)t0)[8]; tp(3,av2);}} /* k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_8184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_8184,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_8187,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t2,a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp); /* c-backend.scm:798: chicken.compiler.core#lambda-literal-direct */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[262]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[262]+1); av2[1]=t3; av2[2]=((C_word*)t0)[8]; tp(3,av2);}} /* k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_8187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_8187,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_8190,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],tmp=(C_word)a,a+=23,tmp); /* c-backend.scm:799: chicken.compiler.core#lambda-literal-rest-argument-mode */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[260]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[260]+1); av2[1]=t3; av2[2]=((C_word*)t0)[8]; tp(3,av2);}} /* k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_ccall f_8190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_8190,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_8193,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=t2,a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],tmp=(C_word)a,a+=24,tmp); /* c-backend.scm:800: chicken.compiler.core#lambda-literal-temporaries */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[115]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[115]+1); av2[1]=t3; av2[2]=((C_word*)t0)[8]; tp(3,av2);}} /* k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in ... */ static void C_ccall f_8193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){ C_save_and_reclaim((void *)f_8193,2,av);} a=C_alloc(25); t2=t1; t3=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8196,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],tmp=(C_word)a,a+=25,tmp); /* c-backend.scm:801: chicken.compiler.core#lambda-literal-float-temporaries */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[473]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[473]+1); av2[1]=t3; av2[2]=((C_word*)t0)[8]; tp(3,av2);}} /* k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in ... */ static void C_ccall f_8196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_8196,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8199,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=t2,a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],tmp=(C_word)a,a+=26,tmp); /* c-backend.scm:802: toplevel */ t4=lf[198];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_fast_retrieve(lf[274]); f_9080(3,av2);}} /* k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in ... */ static void C_ccall f_8199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_8199,2,av);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_8202,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=t2,a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],tmp=(C_word)a,a+=27,tmp); if(C_truep(((C_word*)t0)[20])){ /* c-backend.scm:803: chicken.compiler.support#debugging */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[470]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[470]+1); av2[1]=t3; av2[2]=lf[471]; av2[3]=lf[472]; av2[4]=((C_word*)t0)[9]; tp(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_8202(2,av2);}}} /* k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in ... */ static void C_ccall f_8202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_8202,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_8205,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* c-backend.scm:804: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; f_4497(4,av2);}} /* k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in ... */ static void C_ccall f_8205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_8205,2,av);} a=C_alloc(29); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8208,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],tmp=(C_word)a,a+=26,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8778,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:805: cleanup */ f_9096(t3,((C_word*)t0)[26]);} /* k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in ... */ static void C_ccall f_8208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){ C_save_and_reclaim((void *)f_8208,2,av);} a=C_alloc(32); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8211,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],tmp=(C_word)a,a+=26,tmp); t3=C_eqp(lf[305],((C_word*)t0)[9]); if(C_truep(C_i_not(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8739,a[2]=t2,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:807: gen */ t5=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[463]; f_4497(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8761,a[2]=t2,a[3]=((C_word*)t0)[19],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:814: gen */ t5=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[466]; f_4497(3,av2);}}} /* k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in ... */ static void C_ccall f_8211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_8211,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8214,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],tmp=(C_word)a,a+=26,tmp); /* c-backend.scm:818: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(40); f_4497(3,av2);}} /* k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in ... */ static void C_ccall f_8214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_8214,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8217,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],tmp=(C_word)a,a+=26,tmp); if(C_truep(((C_word*)t0)[3])){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8217(2,av2);}} else{ /* c-backend.scm:819: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[458]; f_4497(3,av2);}}} /* k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in ... */ static void C_ccall f_8217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,c,2)))){ C_save_and_reclaim((void *)f_8217,2,av);} a=C_alloc(30); t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8220,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],tmp=(C_word)a,a+=26,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8713,a[2]=((C_word*)t0)[25],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[10])){ t4=C_i_zerop(((C_word*)t0)[12]); t5=t3; f_8713(t5,C_i_not(t4));} else{ t4=t3; f_8713(t4,C_SCHEME_FALSE);}} /* k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in ... */ static void C_ccall f_8220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_8220,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8223,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],tmp=(C_word)a,a+=25,tmp); if(C_truep(((C_word*)t0)[3])){ if(C_truep(((C_word*)t0)[3])){{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=lf[4]; av2[3]=((C_word*)t0)[25]; C_apply(4,av2);}} else{ /* c-backend.scm:825: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[456]; f_4497(3,av2);}}} else{ if(C_truep(((C_word*)t0)[10])){{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=lf[4]; av2[3]=((C_word*)t0)[25]; C_apply(4,av2);}} else{ /* c-backend.scm:825: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[456]; f_4497(3,av2);}}}} /* k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in ... */ static void C_ccall f_8223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){ C_save_and_reclaim((void *)f_8223,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8226,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],tmp=(C_word)a,a+=25,tmp); /* c-backend.scm:826: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[455]; f_4497(3,av2);}} /* k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in ... */ static void C_ccall f_8226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){ C_save_and_reclaim((void *)f_8226,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8229,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],tmp=(C_word)a,a+=25,tmp); t3=C_eqp(((C_word*)t0)[22],lf[259]); if(C_truep(t3)){ t4=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_FALSE); t5=t2; f_8229(t5,t4);} else{ t4=t2; f_8229(t4,C_SCHEME_UNDEFINED);}} /* k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in ... */ static void C_fcall f_8229(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,0,3)))){ C_save_and_reclaim_args((void *)trf_8229,2,t0,t1);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8232,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],tmp=(C_word)a,a+=25,tmp); /* c-backend.scm:828: gen */ t3=lf[4];{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[454]; f_4497(4,av2);}} /* k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in ... */ static void C_ccall f_8232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(31,c,3)))){ C_save_and_reclaim((void *)f_8232,2,av);} a=C_alloc(31); t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8235,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],tmp=(C_word)a,a+=25,tmp); t3=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:((C_word*)t0)[10]); if(C_truep(t3)){ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_8235(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8682,a[2]=((C_word*)t0)[6],a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_8682(t7,t2,C_fix(0));}} /* k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in ... */ static void C_ccall f_8235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(90,c,5)))){ C_save_and_reclaim((void *)f_8235,2,av);} a=C_alloc(90); t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_8238,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* c-backend.scm:834: gen */ t3=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[448]; av2[4]=((C_word*)t0)[6]; av2[5]=C_make_character(59); f_4497(6,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8614,a[2]=((C_word*)t0)[24],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8652,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[15])){ t5=C_s_a_i_minus(&a,2,((C_word*)t0)[6],C_fix(1)); t6=t4; f_8652(t6,C_s_a_i_plus(&a,2,((C_word*)t0)[11],t5));} else{ t5=t4; f_8652(t5,C_s_a_i_plus(&a,2,((C_word*)t0)[11],C_fix(0)));}}} /* k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in ... */ static void C_ccall f_8238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,c,4)))){ C_save_and_reclaim((void *)f_8238,2,av);} a=C_alloc(30); t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8241,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp); t3=C_eqp(lf[305],((C_word*)t0)[9]); if(C_truep(t3)){ t4=((C_word*)t0)[16]; t5=C_i_check_list_2(t4,lf[340]); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8381,a[2]=((C_word*)t0)[16],a[3]=t2,a[4]=((C_word*)t0)[17],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[18],a[7]=((C_word*)t0)[19],tmp=(C_word)a,a+=8,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8444,a[2]=((C_word*)t0)[20],a[3]=t8,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_8444(t10,t6,t4,C_fix(0));} else{ if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8481,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[18],a[6]=((C_word*)t0)[21],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:875: gen */ t5=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[433]; f_4497(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8520,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[18],a[7]=((C_word*)t0)[22],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[23],a[10]=((C_word*)t0)[15],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)t0)[10])){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_8520(2,av2);}} else{ /* c-backend.scm:881: gen */ t5=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[447]; f_4497(4,av2);}}}}} /* k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in ... */ static void C_ccall f_8241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_8241,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8244,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_eqp(lf[305],((C_word*)t0)[9]); t4=C_i_not(t3); t5=(C_truep(t4)?C_i_not(((C_word*)t0)[10]):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8266,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[14],tmp=(C_word)a,a+=11,tmp); t7=(C_truep(((C_word*)t0)[15])?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t7)){ t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8341,a[2]=((C_word*)t0)[6],a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_8341(t11,t6,C_fix(0));} else{ t8=t6;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_8266(2,av2);}}} else{ /* c-backend.scm:923: gen */ t6=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t2; av2[2]=C_make_character(125); f_4497(3,av2);}}} /* k8242 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in ... */ static void C_ccall f_8244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_8244,2,av);} a=C_alloc(10); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8248,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8255,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t3,a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:926: chicken.compiler.core#lambda-literal-body */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[369]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[369]+1); av2[1]=t4; av2[2]=((C_word*)t0)[8]; tp(3,av2);}} /* k8246 in k8242 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in ... */ static void C_ccall f_8248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8248,2,av);} /* c-backend.scm:931: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(125); f_4497(3,av2);}} /* k8253 in k8242 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in ... */ static void C_ccall f_8255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_8255,2,av);} a=C_alloc(29); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); /* c-backend.scm:925: expression */ t3=((C_word*)((C_word*)t0)[4])[1]; f_4670(t3,((C_word*)t0)[5],t1,t2,((C_word*)t0)[6]);} else{ /* c-backend.scm:925: expression */ t2=((C_word*)((C_word*)t0)[4])[1]; f_4670(t2,((C_word*)t0)[5],t1,((C_word*)t0)[3],((C_word*)t0)[6]);}} /* k8264 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in ... */ static void C_ccall f_8266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,11)))){ C_save_and_reclaim((void *)f_8266,2,av);} a=C_alloc(8); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8272,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:907: gen */ t3=lf[4];{ C_word *av2; if(c >= 12) { av2=av; } else { av2=C_alloc(12); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[374]; av2[4]=((C_word*)t0)[6]; av2[5]=lf[375]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[376]; av2[8]=((C_word*)t0)[3]; av2[9]=lf[377]; av2[10]=((C_word*)t0)[7]; av2[11]=lf[378]; f_4497(12,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8306,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t3=(C_truep(((C_word*)t0)[8])?C_i_greaterp(((C_word*)t0)[9],C_fix(0)):C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8321,a[2]=t2,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:916: gen */ t5=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[382]; av2[4]=((C_word*)t0)[6]; av2[5]=C_make_character(44); av2[6]=((C_word*)t0)[9]; av2[7]=C_make_character(44); f_4497(8,av2);}} else{ /* c-backend.scm:920: gen */ t4=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[383]; av2[4]=((C_word*)t0)[6]; av2[5]=C_make_character(44); av2[6]=((C_word*)t0)[3]; av2[7]=lf[384]; f_4497(8,av2);}}}} /* k8270 in k8264 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in ... */ static void C_ccall f_8272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,7)))){ C_save_and_reclaim((void *)f_8272,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8275,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:909: gen */ t3=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[371]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[372]; av2[6]=((C_word*)t0)[2]; av2[7]=lf[373]; f_4497(8,av2);}} /* k8273 in k8270 in k8264 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in ... */ static void C_ccall f_8275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(34,c,4)))){ C_save_and_reclaim((void *)f_8275,2,av);} a=C_alloc(34); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8284,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_8284(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} /* doloop1648 in k8273 in k8270 in k8264 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in ... */ static void C_fcall f_8284(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){ C_save_and_reclaim_args((void *)trf_8284,4,t0,t1,t2,t3);} a=C_alloc(6); t4=t3; if(C_truep(C_i_zerop(t4))){ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8292,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:913: gen */ t6=lf[4];{ C_word av2[6]; av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[370]; av2[4]=t2; av2[5]=C_make_character(59); f_4497(6,av2);}}} /* k8290 in doloop1648 in k8273 in k8270 in k8264 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in ... */ static void C_ccall f_8292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(58,c,3)))){ C_save_and_reclaim((void *)f_8292,2,av);} a=C_alloc(58); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_8284(t4,((C_word*)t0)[5],t2,t3);} /* k8304 in k8264 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in ... */ static void C_ccall f_8306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8306,2,av);} if(C_truep(C_i_greaterp(((C_word*)t0)[2],C_fix(0)))){ /* c-backend.scm:922: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[379]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[380]; f_4497(6,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_8244(2,av2);}}} /* k8319 in k8264 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in ... */ static void C_ccall f_8321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8321,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8324,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=lf[4]; av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* k8322 in k8319 in k8264 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in ... */ static void C_ccall f_8324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8324,2,av);} /* c-backend.scm:918: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[381]; f_4497(3,av2);}} /* doloop1640 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in ... */ static void C_fcall f_8341(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,7)))){ C_save_and_reclaim_args((void *)trf_8341,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8351,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:905: gen */ t4=lf[4];{ C_word av2[8]; av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[385]; av2[4]=t2; av2[5]=lf[386]; av2[6]=t2; av2[7]=lf[387]; f_4497(8,av2);}}} /* k8349 in doloop1640 in k8239 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in ... */ static void C_ccall f_8351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_8351,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); t4=((C_word*)((C_word*)t0)[3])[1]; f_8341(t4,((C_word*)t0)[4],t3);} /* k8379 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in ... */ static void C_ccall f_8381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,9)))){ C_save_and_reclaim((void *)f_8381,2,av);} a=C_alloc(9); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_length(t3); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8385,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t6=C_fast_retrieve(lf[274]); if(C_truep(C_fast_retrieve(lf[274]))){ t7=C_fast_retrieve(lf[274]); t8=C_fast_retrieve(lf[274]); /* c-backend.scm:847: gen */ t9=lf[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t9; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[419]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[420]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[421]; av2[8]=C_fast_retrieve(lf[274]); av2[9]=lf[422]; f_4497(10,av2);}} else{ /* c-backend.scm:847: gen */ t7=lf[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t7; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[419]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[420]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[421]; av2[8]=((C_word*)t0)[7]; av2[9]=lf[422]; f_4497(10,av2);}}} /* k8383 in k8379 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in ... */ static void C_ccall f_8385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_8385,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8388,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_fast_retrieve(lf[161]))){ /* c-backend.scm:851: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[418]; f_4497(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8388(2,av2);}}} /* k8386 in k8383 in k8379 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in ... */ static void C_ccall f_8388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_8388,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8391,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_fast_retrieve(lf[416]))){ /* c-backend.scm:853: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[417]; f_4497(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8391(2,av2);}}} /* k8389 in k8386 in k8383 in k8379 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in ... */ static void C_ccall f_8391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,7)))){ C_save_and_reclaim((void *)f_8391,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8394,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_fast_retrieve(lf[274]))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8394(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8423,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fast_retrieve(lf[412]))){ /* c-backend.scm:856: gen */ t4=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[413]; av2[4]=C_fast_retrieve(lf[412]); av2[5]=lf[414]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[415]; f_4497(8,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_8423(2,av2);}}}} /* k8392 in k8389 in k8386 in k8383 in k8379 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in ... */ static void C_ccall f_8394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,35)))){ C_save_and_reclaim((void *)f_8394,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8397,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:860: gen */ t3=lf[4];{ C_word *av2; if(c >= 36) { av2=av; } else { av2=C_alloc(36); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[392]; av2[4]=((C_word*)t0)[5]; av2[5]=lf[393]; av2[6]=((C_word*)t0)[6]; av2[7]=lf[394]; av2[8]=C_SCHEME_TRUE; av2[9]=lf[395]; av2[10]=((C_word*)t0)[5]; av2[11]=lf[396]; av2[12]=((C_word*)t0)[6]; av2[13]=lf[397]; av2[14]=C_SCHEME_TRUE; av2[15]=lf[398]; av2[16]=((C_word*)t0)[7]; av2[17]=lf[399]; av2[18]=C_SCHEME_TRUE; av2[19]=lf[400]; av2[20]=C_SCHEME_TRUE; av2[21]=lf[401]; av2[22]=((C_word*)t0)[8]; av2[23]=lf[402]; av2[24]=C_SCHEME_TRUE; av2[25]=lf[403]; av2[26]=C_SCHEME_TRUE; av2[27]=lf[404]; av2[28]=((C_word*)t0)[8]; av2[29]=lf[405]; av2[30]=C_SCHEME_TRUE; av2[31]=lf[406]; av2[32]=C_SCHEME_TRUE; av2[33]=lf[407]; av2[34]=((C_word*)t0)[5]; av2[35]=lf[408]; f_4497(36,av2);}} /* k8395 in k8392 in k8389 in k8386 in k8383 in k8379 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in ... */ static void C_ccall f_8397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_8397,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8400,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_eqp(((C_word*)t0)[3],C_fix(0)); if(C_truep(C_i_not(t3))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8409,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:870: gen */ t5=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; av2[3]=lf[390]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[391]; f_4497(6,av2);}} else{ /* c-backend.scm:873: gen */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(123); f_4497(3,av2);}}} /* k8398 in k8395 in k8392 in k8389 in k8386 in k8383 in k8379 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in ... */ static void C_ccall f_8400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8400,2,av);} /* c-backend.scm:873: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(123); f_4497(3,av2);}} /* k8407 in k8395 in k8392 in k8389 in k8386 in k8383 in k8379 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in ... */ static void C_ccall f_8409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8409,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8412,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:871: literal-frame */ t3=((C_word*)((C_word*)t0)[4])[1]; f_7558(t3,t2);} /* k8410 in k8407 in k8395 in k8392 in k8389 in k8386 in k8383 in k8379 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in ... */ static void C_ccall f_8412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8412,2,av);} /* c-backend.scm:872: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[388]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[389]; f_4497(6,av2);}} /* k8421 in k8389 in k8386 in k8383 in k8379 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in ... */ static void C_ccall f_8423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8423,2,av);} if(C_truep(C_fast_retrieve(lf[409]))){ /* c-backend.scm:859: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[410]; av2[4]=C_fast_retrieve(lf[409]); av2[5]=lf[411]; f_4497(6,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_8394(2,av2);}}} /* foldl1593 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in ... */ static void C_fcall f_8444(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_8444,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8460,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8471,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t8=C_slot(t2,C_fix(0)); /* c-backend.scm:845: g1600 */ t9=t6; f_8460(t9,t7,t3,t8);} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* g1600 in foldl1593 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in ... */ static void C_fcall f_8460(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_8460,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8468,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:845: literal-size */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; f_7612(3,av2);}} /* k8466 in g1600 in foldl1593 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in ... */ static void C_ccall f_8468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_8468,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_s_a_i_plus(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8469 in foldl1593 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in ... */ static void C_ccall f_8471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8471,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_8444(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k8479 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in ... */ static void C_ccall f_8481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_8481,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8484,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8496,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_not(C_fast_retrieve(lf[151])))){ if(C_truep(C_i_not(C_fast_retrieve(lf[432])))){ t4=C_i_greaterp(((C_word*)t0)[3],C_fix(2)); t5=t3; f_8496(t5,(C_truep(t4)?C_i_not(((C_word*)t0)[6]):C_SCHEME_FALSE));} else{ t4=t3; f_8496(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_8496(t4,C_SCHEME_FALSE);}} /* k8482 in k8479 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in ... */ static void C_ccall f_8484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,9)))){ C_save_and_reclaim((void *)f_8484,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8487,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fast_retrieve(lf[427]))){ /* c-backend.scm:878: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[428]; f_4497(4,av2);}} else{ /* c-backend.scm:879: gen */ t3=lf[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[423]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[424]; av2[6]=((C_word*)t0)[4]; av2[7]=lf[425]; av2[8]=((C_word*)t0)[5]; av2[9]=lf[426]; f_4497(10,av2);}}} /* k8485 in k8482 in k8479 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in ... */ static void C_ccall f_8487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_8487,2,av);} /* c-backend.scm:879: gen */ t2=lf[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[423]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[424]; av2[6]=((C_word*)t0)[4]; av2[7]=lf[425]; av2[8]=((C_word*)t0)[5]; av2[9]=lf[426]; f_4497(10,av2);}} /* k8494 in k8479 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in ... */ static void C_fcall f_8496(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,7)))){ C_save_and_reclaim_args((void *)trf_8496,2,t0,t1);} if(C_truep(t1)){ /* c-backend.scm:877: gen */ t2=lf[4];{ C_word av2[8]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[429]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[430]; av2[6]=((C_word*)t0)[3]; av2[7]=lf[431]; f_4497(8,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_8484(2,av2);}}} /* k8518 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in ... */ static void C_ccall f_8520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_8520,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8523,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)t0)[2])){ if(C_truep(C_i_not(C_fast_retrieve(lf[151])))){ if(C_truep(C_i_not(C_fast_retrieve(lf[416])))){ /* c-backend.scm:883: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[446]; f_4497(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8523(2,av2);}}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8523(2,av2);}}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8523(2,av2);}}} /* k8521 in k8518 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in ... */ static void C_ccall f_8523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_8523,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8526,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[10])){ /* c-backend.scm:884: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[445]; f_4497(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8526(2,av2);}}} /* k8524 in k8521 in k8518 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in ... */ static void C_ccall f_8526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_8526,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8529,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8554,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[9])){ if(C_truep(C_i_not(C_fast_retrieve(lf[151])))){ t4=C_i_not(C_fast_retrieve(lf[432])); t5=t3; f_8554(t5,(C_truep(t4)?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE));} else{ t4=t3; f_8554(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_8554(t4,C_SCHEME_FALSE);}} /* k8527 in k8524 in k8521 in k8518 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in ... */ static void C_ccall f_8529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8529,2,av);} a=C_alloc(6); if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8538,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fast_retrieve(lf[427]))){ /* c-backend.scm:893: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[438]; f_4497(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8538(2,av2);}}} else{ /* c-backend.scm:899: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=C_make_character(123); f_4497(3,av2);}}} /* k8536 in k8527 in k8524 in k8521 in k8518 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in ... */ static void C_ccall f_8538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_8538,2,av);} if(C_truep(((C_word*)t0)[2])){ /* c-backend.scm:894: gen */ t2=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[434]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[435]; av2[6]=((C_word*)t0)[5]; av2[7]=lf[436]; f_4497(8,av2);}} else{ /* c-backend.scm:894: gen */ t2=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[434]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[437]; av2[6]=((C_word*)t0)[5]; av2[7]=lf[436]; f_4497(8,av2);}}} /* k8552 in k8524 in k8521 in k8518 in k8236 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in ... */ static void C_fcall f_8554(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,7)))){ C_save_and_reclaim_args((void *)trf_8554,2,t0,t1);} if(C_truep(t1)){ t2=C_eqp(((C_word*)t0)[2],lf[259]); if(C_truep(t2)){ if(C_truep(C_i_greaterp(((C_word*)t0)[3],C_fix(2)))){ /* c-backend.scm:888: gen */ t3=lf[4];{ C_word av2[8]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[439]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[440]; av2[6]=((C_word*)t0)[3]; av2[7]=lf[441]; f_4497(8,av2);}} else{ t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8529(2,av2);}}} else{ /* c-backend.scm:889: gen */ t3=lf[4];{ C_word av2[8]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[442]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[443]; av2[6]=((C_word*)t0)[3]; av2[7]=lf[444]; f_4497(8,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_8529(2,av2);}}} /* k8612 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in ... */ static void C_ccall f_8614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_8614,2,av);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8627,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_8627(t6,((C_word*)t0)[3],((C_word*)t0)[2]);} /* for-each-loop1569 in k8612 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in ... */ static void C_fcall f_8627(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){ C_save_and_reclaim_args((void *)trf_8627,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8637,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* c-backend.scm:842: gen */ t5=lf[4];{ C_word av2[6]; av2[0]=t5; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[449]; av2[4]=t4; av2[5]=C_make_character(59); f_4497(6,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8635 in for-each-loop1569 in k8612 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in ... */ static void C_ccall f_8637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8637,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8627(t3,((C_word*)t0)[4],t2);} /* k8650 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in ... */ static void C_fcall f_8652(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_8652,2,t0,t1);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8654,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_8654(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* doloop1561 in k8650 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in ... */ static void C_fcall f_8654(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){ C_save_and_reclaim_args((void *)trf_8654,4,t0,t1,t2,t3);} a=C_alloc(6); t4=t3; if(C_truep(C_i_zerop(t4))){ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8662,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:839: gen */ t6=lf[4];{ C_word av2[6]; av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=lf[450]; av2[4]=t2; av2[5]=C_make_character(59); f_4497(6,av2);}}} /* k8660 in doloop1561 in k8650 in k8233 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in ... */ static void C_ccall f_8662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(58,c,3)))){ C_save_and_reclaim((void *)f_8662,2,av);} a=C_alloc(58); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); t4=((C_word*)t0)[3]; t5=C_s_a_i_minus(&a,2,t4,C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8654(t6,((C_word*)t0)[5],t3,t5);} /* doloop1556 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in ... */ static void C_fcall f_8682(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,7)))){ C_save_and_reclaim_args((void *)trf_8682,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8692,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:832: gen */ t4=lf[4];{ C_word av2[8]; av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[451]; av2[4]=t2; av2[5]=lf[452]; av2[6]=t2; av2[7]=lf[453]; f_4497(8,av2);}}} /* k8690 in doloop1556 in k8230 in k8227 in k8224 in k8221 in k8218 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in ... */ static void C_ccall f_8692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_8692,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); t4=((C_word*)((C_word*)t0)[3])[1]; f_8682(t4,((C_word*)t0)[4],t3);} /* k8711 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in ... */ static void C_fcall f_8713(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_8713,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8716,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:821: gen */ t3=lf[4];{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[457]; f_4497(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_8220(2,av2);}}} /* k8714 in k8711 in k8215 in k8212 in k8209 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in ... */ static void C_ccall f_8716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8716,2,av);} if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ /* c-backend.scm:822: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(44); f_4497(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_8220(2,av2);}}} /* k8737 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in ... */ static void C_ccall f_8739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8739,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8742,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[5])){ /* c-backend.scm:808: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[461]; f_4497(3,av2);}} else{ /* c-backend.scm:808: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[462]; f_4497(3,av2);}}} /* k8740 in k8737 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in ... */ static void C_ccall f_8742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8742,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8745,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ /* c-backend.scm:810: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[459]; f_4497(3,av2);}} else{ /* c-backend.scm:811: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[460]; f_4497(3,av2);}}} /* k8743 in k8740 in k8737 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in ... */ static void C_ccall f_8745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8745,2,av);} /* c-backend.scm:812: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; f_4497(3,av2);}} /* k8759 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in ... */ static void C_ccall f_8761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_8761,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8764,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fast_retrieve(lf[274]))){ /* c-backend.scm:817: gen */ t3=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[464]; av2[5]=((C_word*)t0)[3]; f_4497(6,av2);}} else{ /* c-backend.scm:816: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[465]; f_4497(4,av2);}}} /* k8762 in k8759 in k8206 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in ... */ static void C_ccall f_8764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8764,2,av);} /* c-backend.scm:817: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[464]; av2[5]=((C_word*)t0)[3]; f_4497(6,av2);}} /* k8776 in k8203 in k8200 in k8197 in k8194 in k8191 in k8188 in k8185 in k8182 in k8179 in k8176 in k8173 in k8170 in k8167 in k8161 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in ... */ static void C_ccall f_8778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8778,2,av);} /* c-backend.scm:805: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[467]; av2[3]=t1; av2[4]=lf[468]; av2[5]=C_SCHEME_TRUE; f_4497(6,av2);}} /* k8801 in k8158 in k8155 in k8152 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8803,2,av);} t2=((C_word*)t0)[2]; f_8163(t2,C_i_zerop(t1));} /* k8805 in k8149 in k8146 in k8143 in g1499 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8807,2,av);}{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[477]+1); av2[3]=C_fix(0); av2[4]=t1; C_apply(5,av2);}} /* for-each-loop1498 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_8815(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8815,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8825,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* c-backend.scm:780: g1499 */ t5=((C_word*)t0)[3]; f_8137(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8823 in for-each-loop1498 in procedures in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8825,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8815(t3,((C_word*)t0)[4],t2);} /* k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_8839,2,av);} a=C_alloc(11); t2=C_mutate(&lf[3] /* (set! chicken.compiler.c-backend#output ...) */,((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8843,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); /* c-backend.scm:936: header */ t4=((C_word*)((C_word*)t0)[12])[1]; f_6884(t4,t3);} /* k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_8843,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8846,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* c-backend.scm:937: declarations */ t3=((C_word*)((C_word*)t0)[10])[1]; f_7043(t3,t2);} /* k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_8846,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8849,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t3=t2; t4=C_fast_retrieve(lf[637]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9210,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1036: gen */ t6=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; f_4497(3,av2);}} /* k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8849(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_8849,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8852,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t3=C_fast_retrieve(lf[591]); t4=((C_word*)t0)[8]; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9308,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_fast_retrieve(lf[591]); t7=C_i_check_list_2(C_fast_retrieve(lf[591]),lf[67]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9621,a[2]=t9,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_9621(t11,t2,C_fast_retrieve(lf[591]));} /* k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8852,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8855,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* c-backend.scm:940: prototypes */ t3=((C_word*)((C_word*)t0)[9])[1]; f_7247(t3,t2);} /* k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_8855,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8858,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_fast_retrieve(lf[266]); t4=((C_word*)t0)[8]; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9646,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_fast_retrieve(lf[266]); t7=C_i_check_list_2(C_fast_retrieve(lf[266]),lf[67]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10275,a[2]=t9,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_10275(t11,t2,C_fast_retrieve(lf[266]));} /* k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_8858,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8861,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:942: trampolines */ t3=((C_word*)((C_word*)t0)[7])[1]; f_7431(t3,t2);} /* k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_8861,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8864,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fast_retrieve(lf[161]))){ t3=t2; t4=((C_word*)t0)[6]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8885,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:953: gen */ t6=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[511]; f_4497(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8864(2,av2);}}} /* k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8864,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:945: procedures */ t3=((C_word*)((C_word*)t0)[5])[1]; f_8135(t3,t2);} /* k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_8867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,8)))){ C_save_and_reclaim((void *)f_8867,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8870,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=t2; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9006,a[2]=t5,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t7=C_i_length(t4); t8=C_a_i_fixnum_plus(&a,2,t7,C_fix(1)); /* c-backend.scm:971: gen */ t9=lf[4];{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t9; av2[1]=t6; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[500]; av2[5]=C_SCHEME_TRUE; av2[6]=lf[501]; av2[7]=t8; av2[8]=lf[502]; f_4497(9,av2);}} /* k8868 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_8870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_8870,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7037,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7041,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:585: chicken.base#get-output-string */ t5=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_fast_retrieve(lf[483]); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_8885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_8885,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8954,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8988,tmp=(C_word)a,a+=2,tmp); /* c-backend.scm:964: chicken.sort#sort */ t4=C_fast_retrieve(lf[510]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8888 in for-each-loop1718 in k8952 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_8890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_8890,2,av);} a=C_alloc(8); t2=C_i_cddr(((C_word*)t0)[2]); t3=C_i_check_list_2(t2,lf[67]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8921,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8926,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_8926(t8,t4,t2);} /* k8906 in for-each-loop1731 in k8888 in for-each-loop1718 in k8952 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_8908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8908,2,av);} /* c-backend.scm:961: gen */ t2=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[506]; av2[3]=t1; av2[4]=lf[507]; f_4497(5,av2);}} /* k8910 in for-each-loop1731 in k8888 in for-each-loop1718 in k8952 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_8912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8912,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14591,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:74: chicken.string#->string */ t4=C_fast_retrieve(lf[94]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8919 in k8888 in for-each-loop1718 in k8952 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_8921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8921,2,av);} /* c-backend.scm:963: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[504]; f_4497(3,av2);}} /* for-each-loop1731 in k8888 in for-each-loop1718 in k8952 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_fcall f_8926(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_8926,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8936,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; if(C_truep(C_i_not(t4))){ /* c-backend.scm:960: gen */ t6=lf[4];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=lf[505]; f_4497(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8908,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8912,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:961: chicken.string#->string */ t8=C_fast_retrieve(lf[94]);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8934 in for-each-loop1731 in k8888 in for-each-loop1718 in k8952 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_8936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8936,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8926(t3,((C_word*)t0)[4],t2);} /* k8952 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_8954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_8954,2,av);} a=C_alloc(8); t2=C_i_check_list_2(t1,lf[67]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8960,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8965,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_8965(t7,t3,t1);} /* k8958 in k8952 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_8960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8960,2,av);} /* c-backend.scm:965: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[503]; f_4497(4,av2);}} /* for-each-loop1718 in k8952 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_fcall f_8965(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_8965,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8975,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8890,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t8=C_i_cadr(t6); /* c-backend.scm:956: gen */ t9=lf[4];{ C_word av2[6]; av2[0]=t9; av2[1]=t7; av2[2]=C_SCHEME_TRUE; av2[3]=lf[508]; av2[4]=t8; av2[5]=lf[509]; f_4497(6,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8973 in for-each-loop1718 in k8952 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_8975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8975,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8965(t3,((C_word*)t0)[4],t2);} /* a8987 in k8883 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_8988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8988,4,av);} t4=C_i_car(t2); t5=C_i_car(t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_lessp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k9004 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_9006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_9006,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9007,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9038,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9052,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_9052(t7,t3,((C_word*)t0)[4]);} /* g1764 in k9004 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_fcall f_9007(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_9007,3,t0,t1,t2);} a=C_alloc(8); t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9015,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9035,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:977: chicken.internal#string->c-identifier */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[489]); C_word av2[3]; av2[0]=*((C_word*)lf[489]+1); av2[1]=t8; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k9013 in g1764 in k9004 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_9015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_9015,2,av);} a=C_alloc(3); t2=C_eqp(lf[305],((C_word*)t0)[2]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9028,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:979: toplevel */ t4=lf[198];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_fast_retrieve(lf[274]); f_9080(3,av2);}} else{ /* c-backend.scm:980: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=lf[486]; f_4497(4,av2);}}} /* k9026 in k9013 in g1764 in k9004 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_9028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9028,2,av);} /* c-backend.scm:979: gen */ t2=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[484]; av2[3]=t1; av2[4]=lf[485]; f_4497(5,av2);}} /* k9033 in g1764 in k9004 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_9035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_9035,2,av);} /* c-backend.scm:977: gen */ t2=lf[4];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[487]; av2[4]=((C_word*)t0)[3]; av2[5]=C_make_character(58); av2[6]=t1; av2[7]=lf[488]; f_4497(8,av2);}} /* k9036 in k9004 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_9038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_9038,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9041,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:982: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[499]; f_4497(4,av2);}} /* k9039 in k9036 in k9004 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_9041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_9041,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9044,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:983: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[498]; f_4497(4,av2);}} /* k9042 in k9039 in k9036 in k9004 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_9044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_9044,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9047,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:984: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=C_SCHEME_TRUE; av2[4]=lf[497]; f_4497(5,av2);}} /* k9045 in k9042 in k9039 in k9036 in k9004 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_9047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,14)))){ C_save_and_reclaim((void *)f_9047,2,av);} /* c-backend.scm:985: gen */ t2=lf[4];{ C_word *av2; if(c >= 15) { av2=av; } else { av2=C_alloc(15); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[490]; av2[3]=C_SCHEME_TRUE; av2[4]=lf[491]; av2[5]=C_SCHEME_TRUE; av2[6]=lf[492]; av2[7]=C_SCHEME_TRUE; av2[8]=lf[493]; av2[9]=C_SCHEME_TRUE; av2[10]=lf[494]; av2[11]=C_SCHEME_TRUE; av2[12]=lf[495]; av2[13]=C_SCHEME_TRUE; av2[14]=lf[496]; f_4497(15,av2);}} /* for-each-loop1763 in k9004 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_fcall f_9052(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9052,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9062,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* c-backend.scm:973: g1764 */ t5=((C_word*)t0)[3]; f_9007(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9060 in for-each-loop1763 in k9004 in k8865 in k8862 in k8859 in k8856 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_9062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9062,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9052(t3,((C_word*)t0)[4],t2);} /* chicken.compiler.c-backend#toplevel in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_9080,3,av);} a=C_alloc(6); if(C_truep(C_i_not(t2))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=lf[647]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9094,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=t2; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4605,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:76: chicken.string#->string */ t7=C_fast_retrieve(lf[94]);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k9092 in chicken.compiler.c-backend#toplevel in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9094,2,av);} /* c-backend.scm:998: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[648]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.c-backend#cleanup in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_9096(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_9096,2,t1,t2);} a=C_alloc(10); t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_i_string_length(t2); t6=t5; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9105,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_9105(t10,t1,C_fix(0));} /* loop in chicken.compiler.c-backend#cleanup in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_9105(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_9105,3,t0,t1,t2);} a=C_alloc(18); if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){ t3=((C_word*)((C_word*)t0)[3])[1]; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=(C_truep(t3)?t3:((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_string_ref(((C_word*)t0)[4],t2); t4=t3; t5=C_u_i_char_lessp(t4,C_make_character(32)); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9131,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=t4,tmp=(C_word)a,a+=8,tmp); if(C_truep(t5)){ t7=t6; f_9131(t7,t5);} else{ t7=C_u_i_char_greaterp(t4,C_make_character(126)); if(C_truep(t7)){ t8=t6; f_9131(t8,t7);} else{ if(C_truep(C_u_i_char_equalp(t4,C_make_character(42)))){ t8=t2; t9=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1)); if(C_truep(C_i_integer_lessp(t8,t9))){ t10=t2; t11=C_a_i_fixnum_plus(&a,2,t10,C_fix(1)); t12=C_i_string_ref(((C_word*)t0)[4],t11); t13=C_u_i_char_equalp(C_make_character(47),t12); t14=t6; f_9131(t14,t13);} else{ t10=t6; f_9131(t10,C_SCHEME_FALSE);}} else{ t8=t6; f_9131(t8,C_SCHEME_FALSE);}}}}} /* k9129 in loop in chicken.compiler.c-backend#cleanup in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_9131(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9131,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=C_i_string_set(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],C_make_character(126)); t3=((C_word*)t0)[3]; t4=C_a_i_fixnum_plus(&a,2,t3,C_fix(1)); /* c-backend.scm:1017: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9105(t5,((C_word*)t0)[5],t4);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9141,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1014: scheme#string-copy */ t3=C_fast_retrieve(lf[649]);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=C_i_string_set(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],((C_word*)t0)[7]); t3=((C_word*)t0)[3]; t4=C_a_i_fixnum_plus(&a,2,t3,C_fix(1)); /* c-backend.scm:1017: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9105(t5,((C_word*)t0)[5],t4);} else{ t2=((C_word*)t0)[3]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); /* c-backend.scm:1017: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_9105(t4,((C_word*)t0)[5],t3);}}} /* k9139 in k9129 in loop in chicken.compiler.c-backend#cleanup in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9141,2,av);} a=C_alloc(5); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_string_set(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],C_make_character(126)); t4=((C_word*)t0)[3]; t5=C_a_i_fixnum_plus(&a,2,t4,C_fix(1)); /* c-backend.scm:1017: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_9105(t6,((C_word*)t0)[5],t5);} /* chicken.compiler.c-backend#make-variable-list in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_9172(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_9172,3,t1,t2,t3);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9178,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1023: list-tabulate */ f_4229(t1,t2,t4);} /* a9177 in chicken.compiler.c-backend#make-variable-list in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9178,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9186,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_fix(10); tp(4,av2);}} /* k9184 in a9177 in chicken.compiler.c-backend#make-variable-list in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9186,2,av);} /* c-backend.scm:1025: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[650]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.compiler.c-backend#make-argument-list in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_9189(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_9189,3,t1,t2,t3);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9195,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1028: list-tabulate */ f_4229(t1,t2,t4);} /* a9194 in chicken.compiler.c-backend#make-argument-list in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9195,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9203,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[120]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[120]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_fix(10); tp(4,av2);}} /* k9201 in a9194 in chicken.compiler.c-backend#make-argument-list in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9203,2,av);} /* c-backend.scm:1030: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k9208 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_9210,2,av);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9240,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_9240(t6,((C_word*)t0)[3],((C_word*)t0)[2]);} /* k9230 in for-each-loop1822 in k9208 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9232,2,av);} /* c-backend.scm:1042: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[3]; av2[4]=t1; av2[5]=C_make_character(59); f_4497(6,av2);}} /* for-each-loop1822 in k9208 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_9240(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_9240,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9250,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=C_i_vector_ref(t4,C_fix(0)); t7=C_i_vector_ref(t4,C_fix(1)); t8=C_i_vector_ref(t4,C_fix(2)); t9=(C_truep(t8)?lf[638]:lf[639]); t10=t9; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9232,a[2]=t5,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1042: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[219]+1); av2[1]=t11; av2[2]=t7; av2[3]=t6; tp(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9248 in for-each-loop1822 in k9208 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9250,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9240(t3,((C_word*)t0)[4],t2);} /* chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_9263(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_9263,2,t1,t2);} a=C_alloc(5); t3=C_i_check_list_2(t2,lf[67]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9283,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_9283(t7,t1,t2);} /* k9267 in for-each-loop1846 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_9269,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9272,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1052: generate-foreign-callback-header */ f_10298(t2,lf[651],((C_word*)t0)[3]);} /* k9270 in k9267 in for-each-loop1846 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9272,2,av);} /* c-backend.scm:1053: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(59); f_4497(3,av2);}} /* for-each-loop1846 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_9283(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_9283,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9293,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9269,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1051: gen */ t8=lf[4];{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=C_SCHEME_TRUE; f_4497(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9291 in for-each-loop1846 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9293,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9283(t3,((C_word*)t0)[4],t2);} /* g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_9308(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9308,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9312,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1059: chicken.compiler.core#foreign-stub-id */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[636]); C_word av2[3]; av2[0]=*((C_word*)lf[636]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_9312,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9315,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1060: chicken.compiler.support#real-name2 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[589]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[589]+1); av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_9315,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9318,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1061: chicken.compiler.core#foreign-stub-argument-types */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[635]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[635]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_9318,2,av);} a=C_alloc(8); t2=t1; t3=C_i_length(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9324,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* c-backend.scm:1063: chicken.compiler.core#foreign-stub-return-type */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[634]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[634]+1); av2[1]=t5; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_9324,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9327,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* c-backend.scm:1064: chicken.compiler.core#foreign-stub-name */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[633]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[633]+1); av2[1]=t3; av2[2]=((C_word*)t0)[7]; tp(3,av2);}} /* k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_9327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_9327,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9330,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* c-backend.scm:1065: chicken.compiler.core#foreign-stub-body */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[632]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[632]+1); av2[1]=t3; av2[2]=((C_word*)t0)[8]; tp(3,av2);}} /* k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_9330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_9330,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9333,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* c-backend.scm:1066: chicken.compiler.core#foreign-stub-argument-names */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[631]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[631]+1); av2[1]=t3; av2[2]=((C_word*)t0)[9]; tp(3,av2);}} /* k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_9333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_9333,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9336,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_9336(2,av2);}} else{ t3=C_a_i_list(&a,1,C_SCHEME_FALSE); if(C_truep(C_i_nullp(t3))){ t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f14613,tmp=(C_word)a,a+=2,tmp); /* mini-srfi-1.scm:228: list-tabulate */ f_4229(t2,((C_word*)t0)[6],t4);} else{ t4=C_i_car(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4421,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:228: list-tabulate */ f_4229(t2,((C_word*)t0)[6],t6);}}} /* k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_ccall f_9336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_9336,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9339,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* c-backend.scm:1067: foreign-result-conversion */ f_12133(t3,((C_word*)t0)[5],lf[630]);} /* k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_ccall f_9339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_9339,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* c-backend.scm:1068: chicken.compiler.core#foreign-stub-cps */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[629]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[629]+1); av2[1]=t3; av2[2]=((C_word*)t0)[11]; tp(3,av2);}} /* k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_ccall f_9342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_9342,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9345,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* c-backend.scm:1069: chicken.compiler.core#foreign-stub-callback */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[628]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[628]+1); av2[1]=t3; av2[2]=((C_word*)t0)[12]; tp(3,av2);}} /* k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_ccall f_9345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_9345,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9348,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* c-backend.scm:1070: gen */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; f_4497(3,av2);}} /* k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_ccall f_9348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_9348,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9351,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)t0)[13])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9610,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1072: cleanup */ f_9096(t3,((C_word*)t0)[13]);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_9351(2,av2);}}} /* k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in ... */ static void C_ccall f_9351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_9351,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9354,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)t0)[5])){ /* c-backend.scm:1074: gen */ t3=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[624]; av2[4]=((C_word*)t0)[11]; av2[5]=lf[625]; f_4497(6,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_9354(2,av2);}}} /* k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in ... */ static void C_ccall f_9354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,11)))){ C_save_and_reclaim((void *)f_9354,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9357,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[7])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9555,a[2]=((C_word*)t0)[9],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1077: gen */ t4=lf[4];{ C_word *av2; if(c >= 12) { av2=av; } else { av2=C_alloc(12); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[615]; av2[4]=((C_word*)t0)[12]; av2[5]=lf[616]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[617]; av2[8]=((C_word*)t0)[12]; av2[9]=lf[618]; av2[10]=C_SCHEME_TRUE; av2[11]=lf[619]; f_4497(12,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9582,a[2]=t2,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1084: gen */ t4=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[623]; av2[4]=((C_word*)t0)[12]; av2[5]=C_make_character(40); f_4497(6,av2);}}} /* k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in ... */ static void C_ccall f_9357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_9357,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* c-backend.scm:1087: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[611]; f_4497(4,av2);}} /* k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in ... */ static void C_ccall f_9360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_9360,2,av);} a=C_alloc(14); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9402,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=t2,tmp=(C_word)a,a+=12,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4409,tmp=(C_word)a,a+=2,tmp); /* mini-srfi-1.scm:225: list-tabulate */ f_4229(t3,((C_word*)t0)[9],t4);} /* k9367 in k9508 in for-each-loop1899 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in ... */ static void C_ccall f_9369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_9369,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9373,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1094: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[219]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[609]; tp(4,av2);}} /* k9371 in k9367 in k9508 in for-each-loop1899 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in ... */ static void C_ccall f_9373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_9373,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9377,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1095: foreign-argument-conversion */ f_11468(t3,((C_word*)t0)[5]);} /* k9375 in k9371 in k9367 in k9508 in for-each-loop1899 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in ... */ static void C_ccall f_9377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){ C_save_and_reclaim((void *)f_9377,2,av);} /* c-backend.scm:1090: gen */ t2=lf[4];{ C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[3]; av2[4]=lf[606]; av2[5]=((C_word*)t0)[4]; av2[6]=C_make_character(41); av2[7]=t1; av2[8]=lf[607]; av2[9]=((C_word*)t0)[5]; av2[10]=lf[608]; f_4497(11,av2);}} /* k9379 in k9508 in for-each-loop1899 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in ... */ static void C_ccall f_9381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9381,2,av);} /* c-backend.scm:1091: foreign-type-declaration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[219]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k9385 in k9508 in for-each-loop1899 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in ... */ static void C_ccall f_9387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_9387,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[333]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9393,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1093: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[335]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[335]+1); av2[1]=t5; av2[2]=C_make_character(116); av2[3]=t3; tp(4,av2);}} /* k9391 in k9385 in k9508 in for-each-loop1899 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in ... */ static void C_ccall f_9393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9393,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9396,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1093: ##sys#print */ t3=*((C_word*)lf[336]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9394 in k9391 in k9385 in k9508 in for-each-loop1899 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in ... */ static void C_ccall f_9396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9396,2,av);} /* c-backend.scm:1093: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[334]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in ... */ static void C_ccall f_9402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){ C_save_and_reclaim((void *)f_9402,2,av);} a=C_alloc(15); t2=C_i_check_list_2(t1,lf[67]); t3=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9411,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9503,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_9503(t8,t4,((C_word*)t0)[11],t1,((C_word*)t0)[2]);} /* k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in ... */ static void C_ccall f_9411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_9411,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9414,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[4])){ /* c-backend.scm:1097: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[605]; f_4497(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_9414(2,av2);}}} /* k9412 in k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in ... */ static void C_ccall f_9414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_9414,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9417,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9423,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1099: gen */ t4=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=((C_word*)t0)[3]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[597]; f_4497(6,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9444,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t4=C_eqp(((C_word*)t0)[6],lf[559]); if(C_truep(C_i_not(t4))){ /* c-backend.scm:1109: gen */ t5=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[604]; av2[4]=((C_word*)t0)[9]; f_4497(5,av2);}} else{ /* c-backend.scm:1110: gen */ t5=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=C_SCHEME_TRUE; f_4497(3,av2);}}}} /* k9415 in k9412 in k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in ... */ static void C_ccall f_9417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9417,2,av);} /* c-backend.scm:1120: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(125); f_4497(3,av2);}} /* k9421 in k9412 in k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in ... */ static void C_ccall f_9423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9423,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9426,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1101: gen */ t3=lf[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; av2[3]=lf[596]; av2[4]=C_SCHEME_TRUE; f_4497(5,av2);}} /* k9424 in k9421 in k9412 in k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in ... */ static void C_ccall f_9426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9426,2,av);} if(C_truep(((C_word*)t0)[2])){ /* c-backend.scm:1103: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[592]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[593]; f_4497(6,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ /* c-backend.scm:1105: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[594]; f_4497(4,av2);}} else{ /* c-backend.scm:1106: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[595]; f_4497(4,av2);}}}} /* k9442 in k9412 in k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in ... */ static void C_ccall f_9444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_9444,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:1111: gen */ t3=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_make_character(40); f_4497(4,av2);}} /* k9445 in k9442 in k9412 in k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in ... */ static void C_ccall f_9447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_9447,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9450,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9481,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9485,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1112: make-argument-list */ f_9189(t4,((C_word*)t0)[6],lf[603]);} /* k9448 in k9445 in k9442 in k9412 in k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in ... */ static void C_ccall f_9450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9450,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9453,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_eqp(((C_word*)t0)[5],lf[559]); if(C_truep(t3)){ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_9453(2,av2);}} else{ /* c-backend.scm:1113: gen */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=C_make_character(41); f_4497(3,av2);}}} /* k9451 in k9448 in k9445 in k9442 in k9412 in k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in ... */ static void C_ccall f_9453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9453,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9456,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1114: gen */ t3=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[602]; f_4497(3,av2);}} /* k9454 in k9451 in k9448 in k9445 in k9442 in k9412 in k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in ... */ static void C_ccall f_9456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9456,2,av);} if(C_truep(((C_word*)t0)[2])){ /* c-backend.scm:1116: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[598]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[599]; f_4497(6,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ /* c-backend.scm:1118: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[600]; f_4497(3,av2);}} else{ /* c-backend.scm:1119: gen */ t2=lf[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[601]; f_4497(4,av2);}}}} /* k9479 in k9445 in k9442 in k9412 in k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in ... */ static void C_ccall f_9481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9481,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[4]; av2[3]=t1; C_apply(4,av2);}} /* k9483 in k9445 in k9442 in k9412 in k9409 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in ... */ static void C_ccall f_9485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9485,2,av);} /* c-backend.scm:1112: chicken.base#intersperse */ t2=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop1899 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in ... */ static void C_fcall f_9503(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_9503,5,t0,t1,t2,t3,t4);} a=C_alloc(7); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9510,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(t2))){ t6=C_i_pairp(t3); t7=t5; f_9510(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} else{ t6=t5; f_9510(t6,C_SCHEME_FALSE);}} /* k9508 in for-each-loop1899 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in ... */ static void C_fcall f_9510(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){ C_save_and_reclaim_args((void *)trf_9510,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9513,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_slot(((C_word*)t0)[2],C_fix(0)); t4=C_slot(((C_word*)t0)[3],C_fix(0)); t5=C_slot(((C_word*)t0)[4],C_fix(0)); t6=t2; t7=t3; t8=t4; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9369,a[2]=t6,a[3]=t8,a[4]=t7,tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9381,a[2]=t9,a[3]=t7,tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ /* c-backend.scm:1093: scheme#symbol->string */ t11=*((C_word*)lf[610]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9387,a[2]=t10,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* c-backend.scm:1093: chicken.base#open-output-string */ t12=C_fast_retrieve(lf[338]);{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9511 in k9508 in for-each-loop1899 in k9400 in k9358 in k9355 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in ... */ static void C_ccall f_9513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9513,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=C_slot(((C_word*)t0)[4],C_fix(1)); t5=((C_word*)((C_word*)t0)[5])[1]; f_9503(t5,((C_word*)t0)[6],t2,t3,t4);} /* k9553 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in ... */ static void C_ccall f_9555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_9555,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9560,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_9560(t5,((C_word*)t0)[3],C_fix(0));} /* doloop1912 in k9553 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in ... */ static void C_fcall f_9560(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(34,0,7)))){ C_save_and_reclaim_args((void *)trf_9560,3,t0,t1,t2);} a=C_alloc(34); if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9570,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_s_a_i_plus(&a,2,t2,C_fix(3)); /* c-backend.scm:1082: gen */ t5=lf[4];{ C_word av2[8]; av2[0]=t5; av2[1]=t3; av2[2]=C_SCHEME_TRUE; av2[3]=lf[612]; av2[4]=t2; av2[5]=lf[613]; av2[6]=t4; av2[7]=lf[614]; f_4497(8,av2);}}} /* k9568 in doloop1912 in k9553 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in ... */ static void C_ccall f_9570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_9570,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); t4=((C_word*)((C_word*)t0)[3])[1]; f_9560(t4,((C_word*)t0)[4],t3);} /* k9580 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in ... */ static void C_ccall f_9582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_9582,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9585,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9592,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9600,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-backend.scm:1085: make-variable-list */ f_9172(t4,((C_word*)t0)[3],lf[622]);} /* k9583 in k9580 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in ... */ static void C_ccall f_9585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9585,2,av);} /* c-backend.scm:1086: gen */ t2=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[620]; f_4497(3,av2);}} /* k9590 in k9580 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in ... */ static void C_ccall f_9592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9592,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[4]; av2[3]=t1; C_apply(4,av2);}} /* k9598 in k9580 in k9352 in k9349 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in ... */ static void C_ccall f_9600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_9600,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[621],t1); /* c-backend.scm:1085: chicken.base#intersperse */ t3=C_fast_retrieve(lf[8]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=C_make_character(44); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k9608 in k9346 in k9343 in k9340 in k9337 in k9334 in k9331 in k9328 in k9325 in k9322 in k9316 in k9313 in k9310 in g1870 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in ... */ static void C_ccall f_9610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9610,2,av);} /* c-backend.scm:1072: gen */ t2=lf[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_TRUE; av2[3]=lf[626]; av2[4]=t1; av2[5]=lf[627]; f_4497(6,av2);}} /* for-each-loop1869 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_9621(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9621,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9631,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* c-backend.scm:1057: g1870 */ t5=((C_word*)t0)[3]; f_9308(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9629 in for-each-loop1869 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9631,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9621(t3,((C_word*)t0)[4],t2);} /* g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall f_9646(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9646,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9650,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1126: chicken.compiler.support#foreign-callback-stub-id */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[590]); C_word av2[3]; av2[0]=*((C_word*)lf[590]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_9650,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9653,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1127: chicken.compiler.support#real-name2 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[589]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[589]+1); av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_ccall f_9653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_9653,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9656,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* c-backend.scm:1128: chicken.compiler.support#foreign-callback-stub-return-type */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[588]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[588]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 in ... */ static void C_ccall f_9656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_9656,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9659,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* c-backend.scm:1129: chicken.compiler.support#foreign-callback-stub-argument-types */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[587]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[587]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in ... */ static void C_ccall f_9659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_9659,2,av);} a=C_alloc(9); t2=t1; t3=C_i_length(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9665,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t2,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); /* c-backend.scm:1131: make-argument-list */ f_9189(t5,t4,lf[586]);} /* k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in ... */ static void C_ccall f_9665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,5)))){ C_save_and_reclaim((void *)f_9665,2,av);} a=C_alloc(21); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9667,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10127,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10241,a[2]=t8,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_10241(t10,t6,((C_word*)t0)[6],t2,lf[585]);} /* compute-size in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in ... */ static void C_fcall f_9667(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_9667,5,t0,t1,t2,t3,t4);} a=C_alloc(8); t5=t2; t6=C_eqp(t5,lf[17]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9677,a[2]=t4,a[3]=t1,a[4]=t5,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=t2,tmp=(C_word)a,a+=8,tmp); if(C_truep(t6)){ t8=t7; f_9677(t8,t6);} else{ t8=C_eqp(t5,lf[556]); if(C_truep(t8)){ t9=t7; f_9677(t9,t8);} else{ t9=C_eqp(t5,lf[557]); if(C_truep(t9)){ t10=t7; f_9677(t10,t9);} else{ t10=C_eqp(t5,lf[558]); if(C_truep(t10)){ t11=t7; f_9677(t11,t10);} else{ t11=C_eqp(t5,lf[14]); if(C_truep(t11)){ t12=t7; f_9677(t12,t11);} else{ t12=C_eqp(t5,lf[559]); if(C_truep(t12)){ t13=t7; f_9677(t13,t12);} else{ t13=C_eqp(t5,lf[560]); if(C_truep(t13)){ t14=t7; f_9677(t14,t13);} else{ t14=C_eqp(t5,lf[561]); if(C_truep(t14)){ t15=t7; f_9677(t15,t14);} else{ t15=C_eqp(t5,lf[562]); if(C_truep(t15)){ t16=t7; f_9677(t16,t15);} else{ t16=C_eqp(t5,lf[563]); if(C_truep(t16)){ t17=t7; f_9677(t17,t16);} else{ t17=C_eqp(t5,lf[564]); if(C_truep(t17)){ t18=t7; f_9677(t18,t17);} else{ t18=C_eqp(t5,lf[565]); t19=t7; f_9677(t19,(C_truep(t18)?t18:C_eqp(t5,lf[566])));}}}}}}}}}}}} /* k9675 in compute-size in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in ... */ static void C_fcall f_9677(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_9677,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[512]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9686,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_9686(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[553]); if(C_truep(t4)){ t5=t3; f_9686(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[4],lf[529]); if(C_truep(t5)){ t6=t3; f_9686(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[4],lf[531]); if(C_truep(t6)){ t7=t3; f_9686(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[4],lf[554]); t8=t3; f_9686(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[555])));}}}}}} /* k9684 in k9675 in compute-size in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_fcall f_9686(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_9686,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1140: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[513]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[514]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9698,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_9698(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[547]); if(C_truep(t4)){ t5=t3; f_9698(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[4],lf[548]); if(C_truep(t5)){ t6=t3; f_9698(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[4],lf[549]); if(C_truep(t6)){ t7=t3; f_9698(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[4],lf[550]); if(C_truep(t7)){ t8=t3; f_9698(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[4],lf[551]); t9=t3; f_9698(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t0)[4],lf[552])));}}}}}}} /* k9696 in k9684 in k9675 in compute-size in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in ... */ static void C_fcall f_9698(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_9698,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1143: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[515]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[516]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9710,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_9710(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[544]); if(C_truep(t4)){ t5=t3; f_9710(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[4],lf[545]); t6=t3; f_9710(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[4],lf[546])));}}}} /* k9708 in k9696 in k9684 in k9675 in compute-size in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in ... */ static void C_fcall f_9710(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_9710,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* c-backend.scm:1146: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[517]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[518]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9722,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_9722(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[4],lf[541]); if(C_truep(t4)){ t5=t3; f_9722(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[4],lf[542]); if(C_truep(t5)){ t6=t3; f_9722(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[4],lf[542]); t7=t3; f_9722(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[543])));}}}}} /* k9720 in k9708 in k9696 in k9684 in k9675 in compute-size in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in ... */ static void C_fcall f_9722(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,7)))){ C_save_and_reclaim_args((void *)trf_9722,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ /* c-backend.scm:1148: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word av2[8]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[519]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[520]; av2[6]=((C_word*)t0)[4]; av2[7]=lf[521]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} else{ t2=C_eqp(((C_word*)t0)[5],lf[522]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9734,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=t3; f_9734(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[5],lf[537]); if(C_truep(t4)){ t5=t3; f_9734(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[5],lf[538]); if(C_truep(t5)){ t6=t3; f_9734(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[5],lf[539]); t7=t3; f_9734(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[5],lf[540])));}}}}} /* k9732 in k9720 in k9708 in k9696 in k9684 in k9675 in compute-size in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in chicken.compiler.c-backend#generate-code in ... */ static void C_fcall f_9734(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ C_save_and_reclaim_args((void *)trf_9734,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ /* c-backend.scm:1150: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[523]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[524]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9740,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[6]))){ /* c-backend.scm:1152: chicken.compiler.support#lookup-foreign-type */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[536]); C_word av2[3]; av2[0]=*((C_word*)lf[536]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_9740(2,av2);}}}} /* k9738 in k9732 in k9720 in k9708 in k9696 in k9684 in k9675 in compute-size in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in k4651 in ... */ static void C_ccall f_9740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_9740,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-backend.scm:1152: g2116 */ t3=t2; f_9744(t3,((C_word*)t0)[5],t1);} else{ if(C_truep(C_i_pairp(((C_word*)t0)[6]))){ t2=((C_word*)t0)[6]; t3=C_u_i_car(t2); t4=C_eqp(t3,lf[525]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9771,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5; f_9771(t6,t4);} else{ t6=C_eqp(t3,lf[528]); if(C_truep(t6)){ t7=t5; f_9771(t7,t6);} else{ t7=C_eqp(t3,lf[529]); if(C_truep(t7)){ t8=t5; f_9771(t8,t7);} else{ t8=C_eqp(t3,lf[530]); if(C_truep(t8)){ t9=t5; f_9771(t9,t8);} else{ t9=C_eqp(t3,lf[531]); if(C_truep(t9)){ t10=t5; f_9771(t10,t9);} else{ t10=C_eqp(t3,lf[532]); if(C_truep(t10)){ t11=t5; f_9771(t11,t10);} else{ t11=C_eqp(t3,lf[533]); if(C_truep(t11)){ t12=t5; f_9771(t12,t11);} else{ t12=C_eqp(t3,lf[534]); t13=t5; f_9771(t13,(C_truep(t12)?t12:C_eqp(t3,lf[535])));}}}}}}}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* g2116 in k9738 in k9732 in k9720 in k9708 in k9696 in k9684 in k9675 in compute-size in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in ... */ static void C_fcall f_9744(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_9744,3,t0,t1,t2);} t3=C_i_vector_ref(t2,C_fix(0)); /* c-backend.scm:1153: compute-size */ t4=((C_word*)((C_word*)t0)[2])[1]; f_9667(t4,t1,t3,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k9769 in k9738 in k9732 in k9720 in k9708 in k9696 in k9684 in k9675 in compute-size in k9663 in k9657 in k9654 in k9651 in k9648 in g1981 in k8853 in k8850 in k8847 in k8844 in k8841 in k8837 in k4654 in ... */ static void C_fcall f_9771(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_9771,2,t0,t1);} if(C_truep(t1)){ /* c-backend.scm:1158: scheme#string-append */ t2=*((C_word*)lf[128]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[526]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[527]); if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[5]); /* c-backend.scm:1159: compute-size */ t4=((C_word*)((C_word*)t0)[6])[1]; f_9667(t4,((C_word*)t0)[2],t3,((C_word*)t0)[7],((C_word*)t0)[3]);} else{ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_c_2dbackend_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("c-backend")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_c_2dbackend_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1709))){ C_save(t1); C_rereclaim2(1709*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,862); lf[0]=C_h_intern(&lf[0],9, C_text("c-backend")); lf[1]=C_h_intern(&lf[1],27, C_text("chicken.compiler.c-backend#")); lf[5]=C_h_intern(&lf[5],14, C_text("scheme#newline")); lf[6]=C_h_intern(&lf[6],14, C_text("scheme#display")); lf[8]=C_h_intern(&lf[8],24, C_text("chicken.base#intersperse")); lf[9]=C_h_intern(&lf[9],40, C_text("chicken.compiler.c-backend#generate-code")); lf[10]=C_h_intern(&lf[10],29, C_text("chicken.compiler.support#bomb")); lf[11]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021can\047t find lambda")); lf[12]=C_h_intern(&lf[12],31, C_text("chicken.internal#hash-table-ref")); lf[13]=C_h_intern(&lf[13],16, C_text("##core#immediate")); lf[14]=C_h_intern(&lf[14],4, C_text("bool")); lf[15]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_SCHEME_TRUE")); lf[16]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_SCHEME_FALSE")); lf[17]=C_h_intern(&lf[17],4, C_text("char")); lf[18]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_make_character(")); lf[19]=C_h_intern(&lf[19],3, C_text("nil")); lf[20]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_SCHEME_END_OF_LIST")); lf[21]=C_h_intern(&lf[21],3, C_text("fix")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_fix(")); lf[23]=C_h_intern(&lf[23],3, C_text("eof")); lf[24]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_SCHEME_END_OF_FILE")); lf[25]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015bad immediate")); lf[26]=C_h_intern(&lf[26],14, C_text("##core#literal")); lf[27]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013((C_word)li")); lf[28]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[29]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf[")); lf[30]=C_h_intern(&lf[30],12, C_text("##core#float")); lf[31]=C_h_intern(&lf[31],2, C_text("if")); lf[32]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005else{")); lf[33]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003)){")); lf[34]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013if(C_truep(")); lf[35]=C_h_intern(&lf[35],11, C_text("##core#proc")); lf[36]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(C_word)")); lf[37]=C_h_intern(&lf[37],11, C_text("##core#bind")); lf[38]=C_h_intern(&lf[38],16, C_text("##core#let_float")); lf[39]=C_h_intern(&lf[39],21, C_text("##core#float-variable")); lf[40]=C_h_intern(&lf[40],18, C_text("##core#unbox_float")); lf[41]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[42]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_flonum_magnitude(")); lf[43]=C_h_intern(&lf[43],16, C_text("##core#box_float")); lf[44]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[45]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_flonum(&a,")); lf[46]=C_h_intern(&lf[46],10, C_text("##core#ref")); lf[47]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)[")); lf[48]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012((C_word\052)")); lf[49]=C_h_intern(&lf[49],12, C_text("##core#unbox")); lf[50]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004)[1]")); lf[51]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012((C_word\052)")); lf[52]=C_h_intern(&lf[52],15, C_text("##core#update_i")); lf[53]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_set_block_item(")); lf[54]=C_h_intern(&lf[54],13, C_text("##core#update")); lf[55]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)+")); lf[56]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001,")); lf[57]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_mutate(((C_word \052)")); lf[58]=C_h_intern(&lf[58],18, C_text("##core#updatebox_i")); lf[59]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,0,")); lf[60]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_set_block_item(")); lf[61]=C_h_intern(&lf[61],16, C_text("##core#updatebox")); lf[62]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004)+1,")); lf[63]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_mutate(((C_word \052)")); lf[64]=C_h_intern(&lf[64],14, C_text("##core#closure")); lf[65]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002a[")); lf[66]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002]=")); lf[67]=C_h_intern(&lf[67],8, C_text("for-each")); lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021tmp=(C_word)a,a+=")); lf[69]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005,tmp)")); lf[70]=C_h_intern(&lf[70],17, C_text("chicken.base#add1")); lf[71]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023(\052a=C_CLOSURE_TYPE|")); lf[72]=C_h_intern(&lf[72],10, C_text("##core#box")); lf[73]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030,tmp=(C_word)a,a+=2,tmp)")); lf[74]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031(\052a=C_VECTOR_TYPE|1,a[1]=")); lf[75]=C_h_intern(&lf[75],12, C_text("##core#local")); lf[76]=C_h_intern(&lf[76],15, C_text("##core#setlocal")); lf[77]=C_h_intern(&lf[77],13, C_text("##core#global")); lf[78]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf[")); lf[79]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]")); lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_retrieve2(lf[")); lf[81]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011],C_text(")); lf[82]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002))")); lf[83]=C_h_intern(&lf[83],37, C_text("chicken.compiler.support#c-ify-string")); lf[84]=C_h_intern(&lf[84],20, C_text("##sys#symbol->string")); lf[85]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\052((C_word\052)lf[")); lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004]+1)")); lf[87]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_fast_retrieve(lf[")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002])")); lf[89]=C_h_intern(&lf[89],16, C_text("##core#setglobal")); lf[90]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012 /\052 (set! ")); lf[91]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 ...) \052/,")); lf[92]=C_h_intern(&lf[92],32, C_text("chicken.string#string-translate\052")); lf[93]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376B\000\000\002\052/\376B\000\000\003\052_/\376\377\016")); lf[94]=C_h_intern(&lf[94],23, C_text("chicken.string#->string")); lf[95]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_mutate(&lf[")); lf[96]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]")); lf[97]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_mutate((C_word\052)lf[")); lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003]+1")); lf[99]=C_h_intern(&lf[99],18, C_text("##core#setglobal_i")); lf[100]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf[")); lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005] /\052 ")); lf[102]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005 \052/ =")); lf[103]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_set_block_item(lf[")); lf[104]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005] /\052 ")); lf[105]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 \052/,0,")); lf[106]=C_h_intern(&lf[106],16, C_text("##core#undefined")); lf[107]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_SCHEME_UNDEFINED")); lf[108]=C_h_intern(&lf[108],11, C_text("##core#call")); lf[109]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007,av2);}")); lf[110]=C_h_intern(&lf[110],40, C_text("chicken.compiler.support#node-parameters")); lf[111]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0010")); lf[112]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012goto loop;")); lf[113]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002c=")); lf[114]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002=t")); lf[115]=C_h_intern(&lf[115],48, C_text("chicken.compiler.core#lambda-literal-temporaries")); lf[116]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[117]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006av2);}")); lf[118]=C_h_intern(&lf[118],19, C_text("##sys#string-append")); lf[119]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t")); lf[120]=C_h_intern(&lf[120],20, C_text("##sys#number->string")); lf[121]=C_h_intern(&lf[121],44, C_text("chicken.compiler.core#lambda-literal-looping")); lf[122]=C_h_intern(&lf[122],39, C_text("chicken.compiler.core#lambda-literal-id")); lf[123]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003tp(")); lf[124]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007,av2);}")); lf[125]=C_h_intern(&lf[125],48, C_text("chicken.compiler.core#no-global-procedure-checks")); lf[126]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024(void\052)(\052((C_word\052)(")); lf[127]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005)+1))")); lf[128]=C_h_intern(&lf[128],20, C_text("scheme#string-append")); lf[129]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf[")); lf[130]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]")); lf[131]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\052((C_word\052)lf[")); lf[132]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004]+1)")); lf[133]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_fast_retrieve_proc(")); lf[134]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[135]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_retrieve2_symbol_proc(")); lf[136]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,C_text(")); lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002))")); lf[138]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf[")); lf[139]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]")); lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_fast_retrieve_proc(")); lf[141]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[142]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\052((C_word\052)lf[")); lf[143]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004]+1)")); lf[144]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037C_fast_retrieve_symbol_proc(lf[")); lf[145]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002])")); lf[146]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\052((C_word\052)lf[")); lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004]+1)")); lf[148]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023{C_proc tp=(C_proc)")); lf[149]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)(")); lf[150]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007,av2);}")); lf[151]=C_h_intern(&lf[151],31, C_text("chicken.compiler.support#unsafe")); lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024(void\052)(\052((C_word\052)t")); lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004+1))")); lf[154]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_fast_retrieve_proc(t")); lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[156]=C_h_intern(&lf[156],41, C_text("chicken.compiler.core#no-procedure-checks")); lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011((C_proc)")); lf[158]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t")); lf[159]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002;{")); lf[160]=C_h_intern(&lf[160],35, C_text("chicken.compiler.support#node-class")); lf[161]=C_h_intern(&lf[161],37, C_text("chicken.compiler.core#emit-debug-info")); lf[162]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_debugger(&(C_debug_info[")); lf[163]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003]),")); lf[164]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0060,NULL")); lf[165]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[166]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004c,av")); lf[167]=C_h_intern(&lf[167],37, C_text("chicken.compiler.core#emit-trace-info")); lf[168]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_trace(C_text(\042")); lf[169]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004\042));")); lf[170]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376B\000\000\001\134\376B\000\000\002\134\134\376\377\016")); lf[171]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003/\052 ")); lf[172]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 \052/")); lf[173]=C_h_intern(&lf[173],49, C_text("chicken.compiler.core#lambda-literal-closure-size")); lf[174]=C_h_intern(&lf[174],44, C_text("chicken.compiler.support#source-info->string")); lf[175]=C_h_intern(&lf[175],14, C_text("##core#recurse")); lf[176]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012goto loop;")); lf[177]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002=t")); lf[178]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003t0,")); lf[179]=C_h_intern(&lf[179],18, C_text("##core#direct_call")); lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_a_i(&a,")); lf[181]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[182]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_debugger(&(C_debug_info[")); lf[183]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003]),")); lf[184]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0060,NULL")); lf[185]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002),")); lf[186]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004c,av")); lf[187]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_trace(\042")); lf[188]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\042),")); lf[189]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003/\052 ")); lf[190]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 \052/")); lf[191]=C_h_intern(&lf[191],14, C_text("##core#provide")); lf[192]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_a_i_provide(&a,1,lf[")); lf[193]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002])")); lf[194]=C_h_intern(&lf[194],15, C_text("##core#callunit")); lf[195]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002C_")); lf[196]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[197]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007,av2);}")); lf[199]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_SCHEME_UNDEFINED")); lf[200]=C_h_intern(&lf[200],13, C_text("##core#return")); lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[202]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007return(")); lf[203]=C_h_intern(&lf[203],13, C_text("##core#inline")); lf[204]=C_h_intern(&lf[204],18, C_text("##core#debug-event")); lf[205]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_debugger(&(C_debug_info[")); lf[206]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003]),")); lf[207]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0060,NULL")); lf[208]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[209]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004c,av")); lf[210]=C_h_intern(&lf[210],22, C_text("##core#inline_allocate")); lf[211]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004(&a,")); lf[212]=C_h_intern(&lf[212],17, C_text("##core#inline_ref")); lf[214]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001a")); lf[215]=C_h_intern(&lf[215],20, C_text("##core#inline_update")); lf[216]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025),C_SCHEME_UNDEFINED)")); lf[217]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002=(")); lf[219]=C_h_intern(&lf[219],51, C_text("chicken.compiler.c-backend#foreign-type-declaration")); lf[220]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[221]=C_h_intern(&lf[221],21, C_text("##core#inline_loc_ref")); lf[222]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003)))")); lf[223]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\052((")); lf[224]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\052)C_data_pointer(")); lf[225]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[226]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001a")); lf[227]=C_h_intern(&lf[227],24, C_text("##core#inline_loc_update")); lf[228]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025),C_SCHEME_UNDEFINED)")); lf[229]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003))=")); lf[230]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004((\052(")); lf[231]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\052)C_data_pointer(")); lf[232]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[233]=C_h_intern(&lf[233],13, C_text("##core#switch")); lf[234]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010default:")); lf[235]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005case ")); lf[236]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002){")); lf[237]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007switch(")); lf[238]=C_h_intern(&lf[238],11, C_text("##core#cond")); lf[239]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)\077")); lf[240]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011(C_truep(")); lf[241]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010bad form")); lf[242]=C_h_intern(&lf[242],44, C_text("chicken.compiler.support#node-subexpressions")); lf[243]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001;")); lf[244]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004av2[")); lf[245]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002]=")); lf[246]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007av2[0]=")); lf[247]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001;")); lf[248]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_word av2[")); lf[249]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002];")); lf[250]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_word \052av2=av;")); lf[251]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001}")); lf[252]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016 av2=C_alloc(")); lf[253]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[254]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010} else {")); lf[255]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 av2=av;")); lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010if(c >= ")); lf[257]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003) {")); lf[258]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_word \052av2;")); lf[259]=C_h_intern(&lf[259],4, C_text("none")); lf[260]=C_h_intern(&lf[260],55, C_text("chicken.compiler.core#lambda-literal-rest-argument-mode")); lf[261]=C_h_intern(&lf[261],51, C_text("chicken.compiler.core#lambda-literal-argument-count")); lf[262]=C_h_intern(&lf[262],43, C_text("chicken.compiler.core#lambda-literal-direct")); lf[263]=C_h_intern(&lf[263],49, C_text("chicken.compiler.core#lambda-literal-customizable")); lf[264]=C_h_intern(&lf[264],43, C_text("chicken.compiler.core#external-protos-first")); lf[266]=C_h_intern(&lf[266],47, C_text("chicken.compiler.support#foreign-callback-stubs")); lf[267]=C_h_intern(&lf[267],42, C_text("chicken.compiler.core#foreign-declarations")); lf[268]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012#include \042")); lf[269]=C_h_intern(&lf[269],47, C_text("chicken.compiler.c-platform#target-include-file")); lf[270]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[271]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\052/")); lf[272]=C_h_intern(&lf[272],32, C_text("chicken.compiler.core#used-units")); lf[273]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 uses: ")); lf[274]=C_h_intern(&lf[274],31, C_text("chicken.compiler.core#unit-name")); lf[275]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 unit: ")); lf[276]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022/\052 Generated from ")); lf[277]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030 by the CHICKEN compiler")); lf[278]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031 http://www.call-cc.org")); lf[279]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021 command line: ")); lf[280]=C_h_intern(&lf[280],33, C_text("chicken.string#string-intersperse")); lf[281]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[282]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 ")); lf[283]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[284]=C_h_intern(&lf[284],27, C_text("chicken.string#string-split")); lf[285]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[286]=C_h_intern(&lf[286],32, C_text("chicken.platform#chicken-version")); lf[287]=C_h_intern(&lf[287],3, C_text("map")); lf[288]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002};")); lf[289]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002,0")); lf[290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026static C_char C_TLS li")); lf[291]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026[] C_aligned={C_lihdr(")); lf[292]=C_h_intern(&lf[292],25, C_text("##sys#lambda-info->string")); lf[293]=C_decode_literal(C_heaptop,C_text("\376B\000\000)static double C_possibly_force_alignment;")); lf[294]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027static C_TLS C_word lf[")); lf[295]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002];")); lf[296]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_noret_decl(C_")); lf[297]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[298]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036C_externimport void C_ccall C_")); lf[299]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036(C_word c,C_word \052av) C_noret;")); lf[300]=C_decode_literal(C_heaptop,C_text("\376B\000\000+static C_PTABLE_ENTRY \052create_ptable(void);")); lf[301]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 C_noret")); lf[302]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word \052av")); lf[303]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_word \052a")); lf[304]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_word c,")); lf[305]=C_h_intern(&lf[305],8, C_text("toplevel")); lf[306]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_fcall ")); lf[307]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_ccall ")); lf[308]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_word ")); lf[309]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005void ")); lf[310]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007static ")); lf[311]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_noret_decl(")); lf[312]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[313]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002C_")); lf[314]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034C_externexport void C_ccall ")); lf[315]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_noret_decl(C_")); lf[316]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[317]=C_h_intern(&lf[317],46, C_text("chicken.compiler.core#lambda-literal-allocated")); lf[318]=C_h_intern(&lf[318],50, C_text("chicken.compiler.core#lambda-literal-rest-argument")); lf[320]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t")); lf[321]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003);}")); lf[323]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t")); lf[324]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_word t")); lf[325]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004=av[")); lf[326]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002];")); lf[327]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026static void C_ccall tr")); lf[328]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026(C_word c,C_word \052av){")); lf[329]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_noret_decl(tr")); lf[330]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026static void C_ccall tr")); lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036(C_word c,C_word \052av) C_noret;")); lf[333]=C_h_intern(&lf[333],6, C_text("format")); lf[334]=C_h_intern(&lf[334],30, C_text("chicken.base#get-output-string")); lf[335]=C_h_intern(&lf[335],18, C_text("##sys#write-char-0")); lf[336]=C_h_intern(&lf[336],11, C_text("##sys#print")); lf[337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf[")); lf[338]=C_h_intern(&lf[338],31, C_text("chicken.base#open-output-string")); lf[339]=C_h_intern(&lf[339],44, C_text("chicken.compiler.c-platform#words-per-flonum")); lf[340]=C_h_intern(&lf[340],5, C_text("foldl")); lf[341]=C_h_intern(&lf[341],19, C_text("scheme#vector->list")); lf[342]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035type of literal not supported")); lf[343]=C_h_intern(&lf[343],37, C_text("chicken.compiler.support#bytes->words")); lf[344]=C_h_intern(&lf[344],17, C_text("##sys#bytevector\077")); lf[345]=C_h_intern(&lf[345],48, C_text("chicken.compiler.support#block-variable-literal\077")); lf[346]=C_h_intern(&lf[346],24, C_text("chicken.keyword#keyword\077")); lf[347]=C_h_intern(&lf[347],36, C_text("chicken.compiler.support#big-fixnum\077")); lf[348]=C_h_intern(&lf[348],35, C_text("chicken.compiler.support#immediate\077")); lf[349]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007=C_fix(")); lf[350]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[351]=C_h_intern(&lf[351],21, C_text("##sys#undefined-value")); lf[352]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024=C_SCHEME_UNDEFINED;")); lf[353]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_SCHEME_TRUE")); lf[354]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_SCHEME_FALSE")); lf[355]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022=C_make_character(")); lf[356]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[357]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_h_intern_kw")); lf[358]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_h_intern")); lf[359]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002(&")); lf[360]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011, C_text(")); lf[361]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003));")); lf[362]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001=")); lf[363]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026=C_SCHEME_END_OF_LIST;")); lf[364]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003));")); lf[366]=C_decode_literal(C_heaptop,C_text("\376B\000\000#=C_decode_literal(C_heaptop,C_text(")); lf[367]=C_h_intern(&lf[367],16, C_text("##sys#copy-bytes")); lf[368]=C_h_intern(&lf[368],18, C_text("scheme#make-string")); lf[369]=C_h_intern(&lf[369],41, C_text("chicken.compiler.core#lambda-literal-body")); lf[370]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_word t")); lf[371]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t")); lf[372]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023=C_build_rest(&a,c,")); lf[373]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005,av);")); lf[374]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_save_and_reclaim((void\052)")); lf[375]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,c,av);}")); lf[376]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015a=C_alloc((c-")); lf[377]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020)\052C_SIZEOF_PAIR+")); lf[378]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[379]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012a=C_alloc(")); lf[380]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[381]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003);}")); lf[382]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042C_save_and_reclaim_args((void \052)tr")); lf[383]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_save_and_reclaim((void \052)")); lf[384]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006,av);}")); lf[385]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003av[")); lf[386]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003]=t")); lf[387]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001;")); lf[388]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_register_lf2(lf,")); lf[389]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022,create_ptable());")); lf[390]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_initialize_lf(lf,")); lf[391]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[392]=C_decode_literal(C_heaptop,C_text("\376B\000\000+C_check_nursery_minimum(C_calculate_demand(")); lf[393]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,c,")); lf[394]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003));")); lf[395]=C_decode_literal(C_heaptop,C_text("\376B\000\000+if(C_unlikely(!C_demand(C_calculate_demand(")); lf[396]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,c,")); lf[397]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005)))){")); lf[398]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034C_save_and_reclaim((void\052)C_")); lf[399]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,c,av);}")); lf[400]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027toplevel_initialized=1;")); lf[401]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032if(C_unlikely(!C_demand_2(")); lf[402]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004))){")); lf[403]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_save(t1);")); lf[404]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_rereclaim2(")); lf[405]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023\052sizeof(C_word),1);")); lf[406]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016t1=C_restore;}")); lf[407]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012a=C_alloc(")); lf[408]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[409]=C_h_intern(&lf[409],39, C_text("chicken.compiler.core#target-stack-size")); lf[410]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_resize_stack(")); lf[411]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[412]=C_h_intern(&lf[412],38, C_text("chicken.compiler.core#target-heap-size")); lf[413]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_set_or_change_heap_size(")); lf[414]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004,1);")); lf[415]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_heap_size_is_fixed=1;")); lf[416]=C_h_intern(&lf[416],53, C_text("chicken.compiler.core#disable-stack-overflow-checking")); lf[417]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_disable_overflow_check=1;")); lf[418]=C_decode_literal(C_heaptop,C_text("\376B\000\000$C_register_debug_info(C_debug_info);")); lf[419]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word \052a;")); lf[420]=C_decode_literal(C_heaptop,C_text("\376B\000\000=if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}")); lf[421]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036else C_toplevel_entry(C_text(\042")); lf[422]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004\042));")); lf[423]=C_decode_literal(C_heaptop,C_text("\376B\000\000.if(C_unlikely(!C_demand(C_calculate_demand((c-")); lf[424]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021)\052C_SIZEOF_PAIR +")); lf[425]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,c,")); lf[426]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005)))){")); lf[427]=C_h_intern(&lf[427],41, C_text("chicken.compiler.core#insert-timer-checks")); lf[428]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_check_for_interrupt;")); lf[429]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005if(c<")); lf[430]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025) C_bad_min_argc_2(c,")); lf[431]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005,t0);")); lf[432]=C_h_intern(&lf[432],36, C_text("chicken.compiler.core#no-argc-checks")); lf[433]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word \052a;")); lf[434]=C_decode_literal(C_heaptop,C_text("\376B\000\000+if(C_unlikely(!C_demand(C_calculate_demand(")); lf[435]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,0,")); lf[436]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005)))){")); lf[437]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,c,")); lf[438]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_check_for_interrupt;")); lf[439]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005if(c<")); lf[440]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025) C_bad_min_argc_2(c,")); lf[441]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005,t0);")); lf[442]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006if(c!=")); lf[443]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021) C_bad_argc_2(c,")); lf[444]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005,t0);")); lf[445]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005loop:")); lf[446]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_stack_overflow_check;")); lf[447]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word \052a;")); lf[448]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_word t")); lf[449]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010double f")); lf[450]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_word t")); lf[451]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_word t")); lf[452]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004=av[")); lf[453]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002];")); lf[454]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_word tmp;")); lf[455]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002){")); lf[456]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word \052av")); lf[457]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_word \052a")); lf[458]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_word c,")); lf[459]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_fcall ")); lf[460]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_ccall ")); lf[461]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_word ")); lf[462]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005void ")); lf[463]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007static ")); lf[464]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017void C_ccall C_")); lf[465]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_main_entry_point")); lf[466]=C_decode_literal(C_heaptop,C_text("\376B\000\000(static C_TLS int toplevel_initialized=0;")); lf[467]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003/\052 ")); lf[468]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 \052/")); lf[470]=C_h_intern(&lf[470],34, C_text("chicken.compiler.support#debugging")); lf[471]=C_h_intern(&lf[471],1, C_text("o")); lf[472]=C_decode_literal(C_heaptop,C_text("\376B\000\000 dropping unused closure argument")); lf[473]=C_h_intern(&lf[473],54, C_text("chicken.compiler.core#lambda-literal-float-temporaries")); lf[474]=C_h_intern(&lf[474],45, C_text("chicken.compiler.core#lambda-literal-external")); lf[475]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t")); lf[476]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t")); lf[477]=C_h_intern(&lf[477],10, C_text("scheme#max")); lf[478]=C_h_intern(&lf[478],54, C_text("chicken.compiler.core#lambda-literal-callee-signatures")); lf[479]=C_h_intern(&lf[479],34, C_text("chicken.compiler.support#real-name")); lf[480]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002/\052")); lf[481]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\052/")); lf[482]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021/\052 end of file \052/")); lf[483]=C_h_intern(&lf[483],51, C_text("chicken.compiler.support#collected-debugging-output")); lf[484]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002C_")); lf[485]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002},")); lf[486]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002},")); lf[487]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011{C_text(\042")); lf[488]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012\042),(void\052)")); lf[489]=C_h_intern(&lf[489],37, C_text("chicken.internal#string->c-identifier")); lf[490]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001{")); lf[491]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027#ifdef C_ENABLE_PTABLES")); lf[492]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016return ptable;")); lf[493]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005#else")); lf[494]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014return NULL;")); lf[495]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006#endif")); lf[496]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001}")); lf[497]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052static C_PTABLE_ENTRY \052create_ptable(void)")); lf[498]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006#endif")); lf[499]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015{NULL,NULL}};")); lf[500]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027#ifdef C_ENABLE_PTABLES")); lf[501]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035static C_PTABLE_ENTRY ptable[")); lf[502]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005] = {")); lf[503]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022{0,0,NULL,NULL}};\012")); lf[504]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002},")); lf[505]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005NULL,")); lf[506]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_text(\042")); lf[507]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\042),")); lf[508]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001{")); lf[509]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,0,")); lf[510]=C_h_intern(&lf[510],17, C_text("chicken.sort#sort")); lf[511]=C_decode_literal(C_heaptop,C_text("\376B\000\000$static C_DEBUG_INFO C_debug_info[]={")); lf[512]=C_h_intern(&lf[512],5, C_text("float")); lf[513]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002+3")); lf[514]=C_h_intern(&lf[514],16, C_text("unsigned-integer")); lf[515]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024+C_SIZEOF_FIX_BIGNUM")); lf[516]=C_h_intern(&lf[516],18, C_text("unsigned-integer64")); lf[517]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023+C_SIZEOF_BIGNUM(2)")); lf[518]=C_h_intern(&lf[518],8, C_text("c-string")); lf[519]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004+2+(")); lf[520]=C_decode_literal(C_heaptop,C_text("\376B\000\000!==NULL\0771:C_bytestowords(C_strlen(")); lf[521]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003)))")); lf[522]=C_h_intern(&lf[522],16, C_text("nonnull-c-string")); lf[523]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033+2+C_bytestowords(C_strlen(")); lf[524]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002))")); lf[525]=C_h_intern(&lf[525],3, C_text("ref")); lf[526]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002+3")); lf[527]=C_h_intern(&lf[527],5, C_text("const")); lf[528]=C_h_intern(&lf[528],7, C_text("pointer")); lf[529]=C_h_intern(&lf[529],9, C_text("c-pointer")); lf[530]=C_h_intern(&lf[530],15, C_text("nonnull-pointer")); lf[531]=C_h_intern(&lf[531],17, C_text("nonnull-c-pointer")); lf[532]=C_h_intern(&lf[532],8, C_text("function")); lf[533]=C_h_intern(&lf[533],8, C_text("instance")); lf[534]=C_h_intern(&lf[534],16, C_text("nonnull-instance")); lf[535]=C_h_intern(&lf[535],12, C_text("instance-ref")); lf[536]=C_h_intern(&lf[536],44, C_text("chicken.compiler.support#lookup-foreign-type")); lf[537]=C_h_intern(&lf[537],17, C_text("nonnull-c-string\052")); lf[538]=C_h_intern(&lf[538],25, C_text("nonnull-unsigned-c-string")); lf[539]=C_h_intern(&lf[539],26, C_text("nonnull-unsigned-c-string\052")); lf[540]=C_h_intern(&lf[540],6, C_text("symbol")); lf[541]=C_h_intern(&lf[541],9, C_text("c-string\052")); lf[542]=C_h_intern(&lf[542],17, C_text("unsigned-c-string")); lf[543]=C_h_intern(&lf[543],18, C_text("unsigned-c-string\052")); lf[544]=C_h_intern(&lf[544],9, C_text("integer64")); lf[545]=C_h_intern(&lf[545],6, C_text("size_t")); lf[546]=C_h_intern(&lf[546],7, C_text("ssize_t")); lf[547]=C_h_intern(&lf[547],18, C_text("unsigned-integer32")); lf[548]=C_h_intern(&lf[548],4, C_text("long")); lf[549]=C_h_intern(&lf[549],7, C_text("integer")); lf[550]=C_h_intern(&lf[550],9, C_text("integer32")); lf[551]=C_h_intern(&lf[551],13, C_text("unsigned-long")); lf[552]=C_h_intern(&lf[552],6, C_text("number")); lf[553]=C_h_intern(&lf[553],6, C_text("double")); lf[554]=C_h_intern(&lf[554],13, C_text("c-string-list")); lf[555]=C_h_intern(&lf[555],14, C_text("c-string-list\052")); lf[556]=C_h_intern(&lf[556],3, C_text("int")); lf[557]=C_h_intern(&lf[557],5, C_text("int32")); lf[558]=C_h_intern(&lf[558],5, C_text("short")); lf[559]=C_h_intern(&lf[559],4, C_text("void")); lf[560]=C_h_intern(&lf[560],14, C_text("unsigned-short")); lf[561]=C_h_intern(&lf[561],13, C_text("scheme-object")); lf[562]=C_h_intern(&lf[562],13, C_text("unsigned-char")); lf[563]=C_h_intern(&lf[563],12, C_text("unsigned-int")); lf[564]=C_h_intern(&lf[564],14, C_text("unsigned-int32")); lf[565]=C_h_intern(&lf[565],4, C_text("byte")); lf[566]=C_h_intern(&lf[566],13, C_text("unsigned-byte")); lf[567]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002;}")); lf[568]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_callback_wrapper((void \052)")); lf[569]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007return ")); lf[570]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002x=")); lf[571]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[572]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_save(x);")); lf[573]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001a")); lf[574]=C_h_intern(&lf[574],14, C_text("scheme#reverse")); lf[575]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035C_callback_adjust_stack(a,s);")); lf[576]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0010")); lf[577]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_word x,s=")); lf[578]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004,\052a=")); lf[579]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_stack_pointer;")); lf[580]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_alloc(s);")); lf[582]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[583]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010/\052 from ")); lf[584]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 \052/")); lf[585]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0010")); lf[586]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t")); lf[587]=C_h_intern(&lf[587],61, C_text("chicken.compiler.support#foreign-callback-stub-argument-types")); lf[588]=C_h_intern(&lf[588],58, C_text("chicken.compiler.support#foreign-callback-stub-return-type")); lf[589]=C_h_intern(&lf[589],35, C_text("chicken.compiler.support#real-name2")); lf[590]=C_h_intern(&lf[590],49, C_text("chicken.compiler.support#foreign-callback-stub-id")); lf[591]=C_h_intern(&lf[591],42, C_text("chicken.compiler.core#foreign-lambda-stubs")); lf[592]=C_decode_literal(C_heaptop,C_text("\376B\000\000.C_k=C_restore_callback_continuation2(C_level);")); lf[593]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_kontinue(C_k,C_r);")); lf[594]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_kontinue(C_k,C_r);")); lf[595]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013return C_r;")); lf[596]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015#undef return")); lf[597]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_ret:")); lf[598]=C_decode_literal(C_heaptop,C_text("\376B\000\000.C_k=C_restore_callback_continuation2(C_level);")); lf[599]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_kontinue(C_k,C_r);")); lf[600]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_kontinue(C_k,C_r);")); lf[601]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013return C_r;")); lf[602]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[603]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t")); lf[604]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004C_r=")); lf[605]=C_decode_literal(C_heaptop,C_text("\376B\000\0003int C_level=C_save_callback_continuation(&C_a,C_k);")); lf[606]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002=(")); lf[607]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003C_a")); lf[608]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);")); lf[609]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[610]=C_h_intern(&lf[610],21, C_text("scheme#symbol->string")); lf[611]=C_decode_literal(C_heaptop,C_text("\376B\000\0002C_word C_r=C_SCHEME_UNDEFINED,\052C_a=(C_word\052)C_buf;")); lf[612]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word C_a")); lf[613]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006=C_av[")); lf[614]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002];")); lf[615]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_noret_decl(")); lf[616]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[617]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024static void C_ccall ")); lf[618]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032(C_word C_c,C_word \052C_av){")); lf[619]=C_decode_literal(C_heaptop,C_text("\376B\000\000!C_word C_k=C_av[1],C_buf=C_av[2];")); lf[620]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002){")); lf[621]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_word C_buf")); lf[622]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003C_a")); lf[623]=C_decode_literal(C_heaptop,C_text("\376B\000\000 C_regparm static C_word C_fcall ")); lf[624]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042#define return(x) C_cblock C_r = (")); lf[625]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036(x))); goto C_ret; C_cblockend")); lf[626]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010/\052 from ")); lf[627]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 \052/")); lf[628]=C_h_intern(&lf[628],43, C_text("chicken.compiler.core#foreign-stub-callback")); lf[629]=C_h_intern(&lf[629],38, C_text("chicken.compiler.core#foreign-stub-cps")); lf[630]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003C_a")); lf[631]=C_h_intern(&lf[631],49, C_text("chicken.compiler.core#foreign-stub-argument-names")); lf[632]=C_h_intern(&lf[632],39, C_text("chicken.compiler.core#foreign-stub-body")); lf[633]=C_h_intern(&lf[633],39, C_text("chicken.compiler.core#foreign-stub-name")); lf[634]=C_h_intern(&lf[634],46, C_text("chicken.compiler.core#foreign-stub-return-type")); lf[635]=C_h_intern(&lf[635],49, C_text("chicken.compiler.core#foreign-stub-argument-types")); lf[636]=C_h_intern(&lf[636],37, C_text("chicken.compiler.core#foreign-stub-id")); lf[637]=C_h_intern(&lf[637],40, C_text("chicken.compiler.core#external-variables")); lf[638]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[639]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007static ")); lf[640]=C_h_intern(&lf[640],1, C_text("p")); lf[641]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030code generation phase...")); lf[642]=C_h_intern(&lf[642],46, C_text("chicken.flonum#flonum-maximum-decimal-exponent")); lf[643]=C_h_intern(&lf[643],37, C_text("chicken.flonum#flonum-print-precision")); lf[644]=C_h_intern(&lf[644],15, C_text("scheme#string<\077")); lf[645]=C_h_intern(&lf[645],18, C_text("chicken.sort#sort!")); lf[646]=C_h_intern(&lf[646],36, C_text("chicken.internal#hash-table-for-each")); lf[647]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010toplevel")); lf[648]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011_toplevel")); lf[649]=C_h_intern(&lf[649],18, C_text("scheme#string-copy")); lf[650]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_word ")); lf[651]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_externexport ")); lf[652]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[653]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t")); lf[654]=C_h_intern(&lf[654],57, C_text("chicken.compiler.support#foreign-callback-stub-qualifiers")); lf[655]=C_h_intern(&lf[655],51, C_text("chicken.compiler.support#foreign-callback-stub-name")); lf[656]=C_h_intern(&lf[656],39, C_text("chicken.compiler.support#quit-compiling")); lf[657]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031illegal foreign type `~A\047")); lf[658]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[659]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_word")); lf[660]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_char")); lf[661]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017unsigned C_char")); lf[662]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014unsigned int")); lf[663]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_u32")); lf[664]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003int")); lf[665]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006size_t")); lf[666]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007ssize_t")); lf[667]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_s32")); lf[668]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_s64")); lf[669]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_u64")); lf[670]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005short")); lf[671]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004long")); lf[672]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016unsigned short")); lf[673]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015unsigned long")); lf[674]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005float")); lf[675]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006double")); lf[676]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006void \052")); lf[677]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_char \052\052")); lf[678]=C_h_intern(&lf[678],4, C_text("blob")); lf[679]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017unsigned char \052")); lf[680]=C_h_intern(&lf[680],9, C_text("u16vector")); lf[681]=C_h_intern(&lf[681],17, C_text("nonnull-u16vector")); lf[682]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020unsigned short \052")); lf[683]=C_h_intern(&lf[683],8, C_text("s8vector")); lf[684]=C_h_intern(&lf[684],16, C_text("nonnull-s8vector")); lf[685]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015signed char \052")); lf[686]=C_h_intern(&lf[686],9, C_text("u32vector")); lf[687]=C_h_intern(&lf[687],17, C_text("nonnull-u32vector")); lf[688]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016unsigned int \052")); lf[689]=C_h_intern(&lf[689],9, C_text("u64vector")); lf[690]=C_h_intern(&lf[690],17, C_text("nonnull-u64vector")); lf[691]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_u64 \052")); lf[692]=C_h_intern(&lf[692],9, C_text("s16vector")); lf[693]=C_h_intern(&lf[693],17, C_text("nonnull-s16vector")); lf[694]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007short \052")); lf[695]=C_h_intern(&lf[695],9, C_text("s32vector")); lf[696]=C_h_intern(&lf[696],17, C_text("nonnull-s32vector")); lf[697]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005int \052")); lf[698]=C_h_intern(&lf[698],9, C_text("s64vector")); lf[699]=C_h_intern(&lf[699],17, C_text("nonnull-s64vector")); lf[700]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_s64 \052")); lf[701]=C_h_intern(&lf[701],9, C_text("f32vector")); lf[702]=C_h_intern(&lf[702],17, C_text("nonnull-f32vector")); lf[703]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007float \052")); lf[704]=C_h_intern(&lf[704],9, C_text("f64vector")); lf[705]=C_h_intern(&lf[705],17, C_text("nonnull-f64vector")); lf[706]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010double \052")); lf[707]=C_h_intern(&lf[707],14, C_text("pointer-vector")); lf[708]=C_h_intern(&lf[708],22, C_text("nonnull-pointer-vector")); lf[709]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007void \052\052")); lf[710]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006char \052")); lf[711]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017unsigned char \052")); lf[712]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004void")); lf[713]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052")); lf[714]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001&")); lf[715]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001<")); lf[716]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002> ")); lf[717]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001,")); lf[718]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[719]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[720]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006const ")); lf[721]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007struct ")); lf[722]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[723]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006union ")); lf[724]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[725]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005enum ")); lf[726]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[727]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052")); lf[728]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001&")); lf[729]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[730]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 (\052")); lf[731]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)(")); lf[732]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[733]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001,")); lf[734]=C_h_intern(&lf[734],3, C_text("...")); lf[735]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003...")); lf[736]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[737]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[738]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001instance\376\003\000\000\002\376\001\000\000\020\001nonnull-instance\376\377\016")); lf[739]=C_h_intern(&lf[739],4, C_text("enum")); lf[740]=C_h_intern(&lf[740],5, C_text("union")); lf[741]=C_h_intern(&lf[741],6, C_text("struct")); lf[742]=C_h_intern(&lf[742],8, C_text("template")); lf[743]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001pointer\376\003\000\000\002\376\001\000\000\017\001nonnull-pointer\376\003\000\000\002\376\001\000\000\011\001c-pointer\376\003\000\000\002\376\001\000\000\016\001schem" "e-pointer\376\003\000\000\002\376\001\000\000\026\001nonnull-scheme-pointer\376\003\000\000\002\376\001\000\000\021\001nonnull-c-pointer\376\377\016")); lf[744]=C_h_intern(&lf[744],12, C_text("nonnull-blob")); lf[745]=C_h_intern(&lf[745],8, C_text("u8vector")); lf[746]=C_h_intern(&lf[746],16, C_text("nonnull-u8vector")); lf[747]=C_h_intern(&lf[747],14, C_text("scheme-pointer")); lf[748]=C_h_intern(&lf[748],22, C_text("nonnull-scheme-pointer")); lf[749]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042illegal foreign argument type `~A\047")); lf[750]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[751]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031C_character_code((C_word)")); lf[752]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_unfix(")); lf[753]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_unfix(")); lf[754]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030(unsigned short)C_unfix(")); lf[755]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_num_to_unsigned_long(")); lf[756]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_c_double(")); lf[757]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_num_to_int(")); lf[758]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_num_to_int64(")); lf[759]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030(size_t)C_num_to_uint64(")); lf[760]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030(ssize_t)C_num_to_int64(")); lf[761]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_num_to_uint64(")); lf[762]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_num_to_long(")); lf[763]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_num_to_unsigned_int(")); lf[764]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_data_pointer_or_null(")); lf[765]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_data_pointer(")); lf[766]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_c_pointer_or_null(")); lf[767]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_c_pointer_nn(")); lf[768]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_c_bytevector_or_null(")); lf[769]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_c_bytevector(")); lf[770]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_c_u8vector_or_null(")); lf[771]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_c_u8vector(")); lf[772]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_u16vector_or_null(")); lf[773]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_u16vector(")); lf[774]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_u32vector_or_null(")); lf[775]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_u32vector(")); lf[776]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_u64vector_or_null(")); lf[777]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_u64vector(")); lf[778]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_c_s8vector_or_null(")); lf[779]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_c_s8vector(")); lf[780]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_s16vector_or_null(")); lf[781]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_s16vector(")); lf[782]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_s32vector_or_null(")); lf[783]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_s32vector(")); lf[784]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_s64vector_or_null(")); lf[785]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_s64vector(")); lf[786]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_f32vector_or_null(")); lf[787]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_f32vector(")); lf[788]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_f64vector_or_null(")); lf[789]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_f64vector(")); lf[790]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_c_pointer_vector_or_null(")); lf[791]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_c_pointer_vector(")); lf[792]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_string_or_null(")); lf[793]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_c_string(")); lf[794]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_truep(")); lf[795]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_c_pointer_or_null(")); lf[796]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_c_pointer_nn(")); lf[797]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_c_pointer_or_null(")); lf[798]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_c_pointer_nn(")); lf[799]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_data_pointer_or_null(")); lf[800]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_data_pointer(")); lf[801]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_c_pointer_or_null(")); lf[802]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_num_to_int(")); lf[803]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\052(")); lf[804]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020)C_c_pointer_nn(")); lf[805]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052")); lf[806]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\052(")); lf[807]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\052)C_c_pointer_nn(")); lf[808]=C_decode_literal(C_heaptop,C_text("\376B\000\000 illegal foreign return type `~A\047")); lf[809]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031C_make_character((C_word)")); lf[810]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_fix((C_word)")); lf[811]=C_decode_literal(C_heaptop,C_text("\376B\000\000%C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)")); lf[812]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_fix((short)")); lf[813]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_fix(0xffff&(C_word)")); lf[814]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fix((char)")); lf[815]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_fix(0xff&(C_word)")); lf[816]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_flonum(&")); lf[817]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_number(&")); lf[818]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)")); lf[819]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&")); lf[820]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)")); lf[821]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_mpointer_or_false(&")); lf[822]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_int_to_num(&")); lf[823]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_int64_to_num(&")); lf[824]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_uint64_to_num(&")); lf[825]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_unsigned_int_to_num(&")); lf[826]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_long_to_num(&")); lf[827]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_unsigned_long_to_num(&")); lf[828]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_mk_bool(")); lf[829]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011((C_word)")); lf[830]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)")); lf[831]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&")); lf[832]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011,(void\052)&")); lf[833]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&")); lf[834]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)")); lf[835]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_mpointer_or_false(&")); lf[836]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)")); lf[837]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&")); lf[838]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011,(void\052)&")); lf[839]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&")); lf[840]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)")); lf[841]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_mpointer_or_false(&")); lf[842]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)")); lf[843]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&")); lf[844]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_int_to_num(&")); lf[845]=C_decode_literal(C_heaptop,C_text("\376B\000\000=Encoded literal size of ~S is too large (must fit in 24 bits)")); lf[846]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\377\006\001")); lf[847]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\377\006\000")); lf[848]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\377\012")); lf[849]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\377\016")); lf[850]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\377>")); lf[851]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\377\036")); lf[852]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\377\001")); lf[853]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\302")); lf[854]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001U")); lf[855]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\000")); lf[856]=C_h_intern(&lf[856],20, C_text("##sys#flonum->string")); lf[857]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\001")); lf[858]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\002")); lf[859]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\001")); lf[860]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037invalid literal - cannot encode")); lf[861]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); C_register_lf2(lf,862,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3192,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* va15061 in a5652 in k5532 in k5529 in k5914 in k5498 in k5494 in k5491 in k5488 in k5485 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in ... */ static void C_fcall va15061(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){ C_save_and_reclaim_args((void *)trva15061,2,t0,t1);} a=C_alloc(29); t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* va15067 in a6115 in k6001 in k5995 in k4681 in k4678 in k4675 in expr in expression in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall va15067(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){ C_save_and_reclaim_args((void *)trva15067,2,t0,t1);} a=C_alloc(29); t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* va15097 in k7670 in k7666 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall va15097(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){ C_save_and_reclaim_args((void *)trva15097,2,t0,t1);} a=C_alloc(29); t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* va15099 in k7703 in k7697 in k7694 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall va15099(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){ C_save_and_reclaim_args((void *)trva15099,2,t0,t1);} a=C_alloc(29); t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* va15107 in k7859 in k7855 in k7786 in k7768 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall va15107(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){ C_save_and_reclaim_args((void *)trva15107,2,t0,t1);} a=C_alloc(29); t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* va15109 in k7884 in k7880 in k7786 in k7768 in k7653 in k7623 in k7617 in literal-size in k4654 in k4651 in chicken.compiler.c-backend#generate-code in k3214 in k3211 in k3208 in k3205 in k3202 in k3199 in k3196 in k3193 in k3190 */ static void C_fcall va15109(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){ C_save_and_reclaim_args((void *)trva15109,2,t0,t1);} a=C_alloc(29); t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[823] = { {C_text("f14458:c_2dbackend_2escm"),(void*)f14458}, {C_text("f14463:c_2dbackend_2escm"),(void*)f14463}, {C_text("f14468:c_2dbackend_2escm"),(void*)f14468}, {C_text("f14476:c_2dbackend_2escm"),(void*)f14476}, {C_text("f14481:c_2dbackend_2escm"),(void*)f14481}, {C_text("f14486:c_2dbackend_2escm"),(void*)f14486}, {C_text("f14499:c_2dbackend_2escm"),(void*)f14499}, {C_text("f14503:c_2dbackend_2escm"),(void*)f14503}, {C_text("f14510:c_2dbackend_2escm"),(void*)f14510}, {C_text("f14515:c_2dbackend_2escm"),(void*)f14515}, {C_text("f14584:c_2dbackend_2escm"),(void*)f14584}, {C_text("f14591:c_2dbackend_2escm"),(void*)f14591}, {C_text("f14613:c_2dbackend_2escm"),(void*)f14613}, {C_text("f_10127:c_2dbackend_2escm"),(void*)f_10127}, {C_text("f_10130:c_2dbackend_2escm"),(void*)f_10130}, {C_text("f_10133:c_2dbackend_2escm"),(void*)f_10133}, {C_text("f_10136:c_2dbackend_2escm"),(void*)f_10136}, {C_text("f_10139:c_2dbackend_2escm"),(void*)f_10139}, {C_text("f_10142:c_2dbackend_2escm"),(void*)f_10142}, {C_text("f_10151:c_2dbackend_2escm"),(void*)f_10151}, {C_text("f_10154:c_2dbackend_2escm"),(void*)f_10154}, {C_text("f_10157:c_2dbackend_2escm"),(void*)f_10157}, {C_text("f_10160:c_2dbackend_2escm"),(void*)f_10160}, {C_text("f_10163:c_2dbackend_2escm"),(void*)f_10163}, {C_text("f_10166:c_2dbackend_2escm"),(void*)f_10166}, {C_text("f_10169:c_2dbackend_2escm"),(void*)f_10169}, {C_text("f_10188:c_2dbackend_2escm"),(void*)f_10188}, {C_text("f_10190:c_2dbackend_2escm"),(void*)f_10190}, {C_text("f_10200:c_2dbackend_2escm"),(void*)f_10200}, {C_text("f_10239:c_2dbackend_2escm"),(void*)f_10239}, {C_text("f_10241:c_2dbackend_2escm"),(void*)f_10241}, {C_text("f_10263:c_2dbackend_2escm"),(void*)f_10263}, {C_text("f_10275:c_2dbackend_2escm"),(void*)f_10275}, {C_text("f_10285:c_2dbackend_2escm"),(void*)f_10285}, {C_text("f_10298:c_2dbackend_2escm"),(void*)f_10298}, {C_text("f_10302:c_2dbackend_2escm"),(void*)f_10302}, {C_text("f_10305:c_2dbackend_2escm"),(void*)f_10305}, {C_text("f_10308:c_2dbackend_2escm"),(void*)f_10308}, {C_text("f_10311:c_2dbackend_2escm"),(void*)f_10311}, {C_text("f_10317:c_2dbackend_2escm"),(void*)f_10317}, {C_text("f_10320:c_2dbackend_2escm"),(void*)f_10320}, {C_text("f_10323:c_2dbackend_2escm"),(void*)f_10323}, {C_text("f_10328:c_2dbackend_2escm"),(void*)f_10328}, {C_text("f_10338:c_2dbackend_2escm"),(void*)f_10338}, {C_text("f_10341:c_2dbackend_2escm"),(void*)f_10341}, {C_text("f_10360:c_2dbackend_2escm"),(void*)f_10360}, {C_text("f_10372:c_2dbackend_2escm"),(void*)f_10372}, {C_text("f_10374:c_2dbackend_2escm"),(void*)f_10374}, {C_text("f_10376:c_2dbackend_2escm"),(void*)f_10376}, {C_text("f_10381:c_2dbackend_2escm"),(void*)f_10381}, {C_text("f_10451:c_2dbackend_2escm"),(void*)f_10451}, {C_text("f_10568:c_2dbackend_2escm"),(void*)f_10568}, {C_text("f_10589:c_2dbackend_2escm"),(void*)f_10589}, {C_text("f_10721:c_2dbackend_2escm"),(void*)f_10721}, {C_text("f_10733:c_2dbackend_2escm"),(void*)f_10733}, {C_text("f_10748:c_2dbackend_2escm"),(void*)f_10748}, {C_text("f_10752:c_2dbackend_2escm"),(void*)f_10752}, {C_text("f_10785:c_2dbackend_2escm"),(void*)f_10785}, {C_text("f_10796:c_2dbackend_2escm"),(void*)f_10796}, {C_text("f_10802:c_2dbackend_2escm"),(void*)f_10802}, {C_text("f_10813:c_2dbackend_2escm"),(void*)f_10813}, {C_text("f_10819:c_2dbackend_2escm"),(void*)f_10819}, {C_text("f_10826:c_2dbackend_2escm"),(void*)f_10826}, {C_text("f_10830:c_2dbackend_2escm"),(void*)f_10830}, {C_text("f_10834:c_2dbackend_2escm"),(void*)f_10834}, {C_text("f_10852:c_2dbackend_2escm"),(void*)f_10852}, {C_text("f_10854:c_2dbackend_2escm"),(void*)f_10854}, {C_text("f_10879:c_2dbackend_2escm"),(void*)f_10879}, {C_text("f_10896:c_2dbackend_2escm"),(void*)f_10896}, {C_text("f_10903:c_2dbackend_2escm"),(void*)f_10903}, {C_text("f_10913:c_2dbackend_2escm"),(void*)f_10913}, {C_text("f_10920:c_2dbackend_2escm"),(void*)f_10920}, {C_text("f_10930:c_2dbackend_2escm"),(void*)f_10930}, {C_text("f_10937:c_2dbackend_2escm"),(void*)f_10937}, {C_text("f_10947:c_2dbackend_2escm"),(void*)f_10947}, {C_text("f_10954:c_2dbackend_2escm"),(void*)f_10954}, {C_text("f_10964:c_2dbackend_2escm"),(void*)f_10964}, {C_text("f_10971:c_2dbackend_2escm"),(void*)f_10971}, {C_text("f_10981:c_2dbackend_2escm"),(void*)f_10981}, {C_text("f_10988:c_2dbackend_2escm"),(void*)f_10988}, {C_text("f_10998:c_2dbackend_2escm"),(void*)f_10998}, {C_text("f_11017:c_2dbackend_2escm"),(void*)f_11017}, {C_text("f_11021:c_2dbackend_2escm"),(void*)f_11021}, {C_text("f_11042:c_2dbackend_2escm"),(void*)f_11042}, {C_text("f_11044:c_2dbackend_2escm"),(void*)f_11044}, {C_text("f_11069:c_2dbackend_2escm"),(void*)f_11069}, {C_text("f_11468:c_2dbackend_2escm"),(void*)f_11468}, {C_text("f_11470:c_2dbackend_2escm"),(void*)f_11470}, {C_text("f_11498:c_2dbackend_2escm"),(void*)f_11498}, {C_text("f_11525:c_2dbackend_2escm"),(void*)f_11525}, {C_text("f_11750:c_2dbackend_2escm"),(void*)f_11750}, {C_text("f_11759:c_2dbackend_2escm"),(void*)f_11759}, {C_text("f_11768:c_2dbackend_2escm"),(void*)f_11768}, {C_text("f_11789:c_2dbackend_2escm"),(void*)f_11789}, {C_text("f_11866:c_2dbackend_2escm"),(void*)f_11866}, {C_text("f_12133:c_2dbackend_2escm"),(void*)f_12133}, {C_text("f_12135:c_2dbackend_2escm"),(void*)f_12135}, {C_text("f_12202:c_2dbackend_2escm"),(void*)f_12202}, {C_text("f_12208:c_2dbackend_2escm"),(void*)f_12208}, {C_text("f_12211:c_2dbackend_2escm"),(void*)f_12211}, {C_text("f_12214:c_2dbackend_2escm"),(void*)f_12214}, {C_text("f_12226:c_2dbackend_2escm"),(void*)f_12226}, {C_text("f_12232:c_2dbackend_2escm"),(void*)f_12232}, {C_text("f_12235:c_2dbackend_2escm"),(void*)f_12235}, {C_text("f_12238:c_2dbackend_2escm"),(void*)f_12238}, {C_text("f_12250:c_2dbackend_2escm"),(void*)f_12250}, {C_text("f_12253:c_2dbackend_2escm"),(void*)f_12253}, {C_text("f_12259:c_2dbackend_2escm"),(void*)f_12259}, {C_text("f_12262:c_2dbackend_2escm"),(void*)f_12262}, {C_text("f_12265:c_2dbackend_2escm"),(void*)f_12265}, {C_text("f_12277:c_2dbackend_2escm"),(void*)f_12277}, {C_text("f_12283:c_2dbackend_2escm"),(void*)f_12283}, {C_text("f_12286:c_2dbackend_2escm"),(void*)f_12286}, {C_text("f_12289:c_2dbackend_2escm"),(void*)f_12289}, {C_text("f_12304:c_2dbackend_2escm"),(void*)f_12304}, {C_text("f_12310:c_2dbackend_2escm"),(void*)f_12310}, {C_text("f_12313:c_2dbackend_2escm"),(void*)f_12313}, {C_text("f_12316:c_2dbackend_2escm"),(void*)f_12316}, {C_text("f_12331:c_2dbackend_2escm"),(void*)f_12331}, {C_text("f_12337:c_2dbackend_2escm"),(void*)f_12337}, {C_text("f_12340:c_2dbackend_2escm"),(void*)f_12340}, {C_text("f_12343:c_2dbackend_2escm"),(void*)f_12343}, {C_text("f_12358:c_2dbackend_2escm"),(void*)f_12358}, {C_text("f_12364:c_2dbackend_2escm"),(void*)f_12364}, {C_text("f_12367:c_2dbackend_2escm"),(void*)f_12367}, {C_text("f_12370:c_2dbackend_2escm"),(void*)f_12370}, {C_text("f_12385:c_2dbackend_2escm"),(void*)f_12385}, {C_text("f_12391:c_2dbackend_2escm"),(void*)f_12391}, {C_text("f_12394:c_2dbackend_2escm"),(void*)f_12394}, {C_text("f_12397:c_2dbackend_2escm"),(void*)f_12397}, {C_text("f_12409:c_2dbackend_2escm"),(void*)f_12409}, {C_text("f_12415:c_2dbackend_2escm"),(void*)f_12415}, {C_text("f_12418:c_2dbackend_2escm"),(void*)f_12418}, {C_text("f_12421:c_2dbackend_2escm"),(void*)f_12421}, {C_text("f_12433:c_2dbackend_2escm"),(void*)f_12433}, {C_text("f_12439:c_2dbackend_2escm"),(void*)f_12439}, {C_text("f_12442:c_2dbackend_2escm"),(void*)f_12442}, {C_text("f_12445:c_2dbackend_2escm"),(void*)f_12445}, {C_text("f_12466:c_2dbackend_2escm"),(void*)f_12466}, {C_text("f_12470:c_2dbackend_2escm"),(void*)f_12470}, {C_text("f_12487:c_2dbackend_2escm"),(void*)f_12487}, {C_text("f_12502:c_2dbackend_2escm"),(void*)f_12502}, {C_text("f_12508:c_2dbackend_2escm"),(void*)f_12508}, {C_text("f_12511:c_2dbackend_2escm"),(void*)f_12511}, {C_text("f_12514:c_2dbackend_2escm"),(void*)f_12514}, {C_text("f_12526:c_2dbackend_2escm"),(void*)f_12526}, {C_text("f_12532:c_2dbackend_2escm"),(void*)f_12532}, {C_text("f_12535:c_2dbackend_2escm"),(void*)f_12535}, {C_text("f_12538:c_2dbackend_2escm"),(void*)f_12538}, {C_text("f_12550:c_2dbackend_2escm"),(void*)f_12550}, {C_text("f_12556:c_2dbackend_2escm"),(void*)f_12556}, {C_text("f_12559:c_2dbackend_2escm"),(void*)f_12559}, {C_text("f_12562:c_2dbackend_2escm"),(void*)f_12562}, {C_text("f_12574:c_2dbackend_2escm"),(void*)f_12574}, {C_text("f_12580:c_2dbackend_2escm"),(void*)f_12580}, {C_text("f_12583:c_2dbackend_2escm"),(void*)f_12583}, {C_text("f_12586:c_2dbackend_2escm"),(void*)f_12586}, {C_text("f_12598:c_2dbackend_2escm"),(void*)f_12598}, {C_text("f_12604:c_2dbackend_2escm"),(void*)f_12604}, {C_text("f_12607:c_2dbackend_2escm"),(void*)f_12607}, {C_text("f_12610:c_2dbackend_2escm"),(void*)f_12610}, {C_text("f_12638:c_2dbackend_2escm"),(void*)f_12638}, {C_text("f_12644:c_2dbackend_2escm"),(void*)f_12644}, {C_text("f_12647:c_2dbackend_2escm"),(void*)f_12647}, {C_text("f_12650:c_2dbackend_2escm"),(void*)f_12650}, {C_text("f_12662:c_2dbackend_2escm"),(void*)f_12662}, {C_text("f_12668:c_2dbackend_2escm"),(void*)f_12668}, {C_text("f_12671:c_2dbackend_2escm"),(void*)f_12671}, {C_text("f_12674:c_2dbackend_2escm"),(void*)f_12674}, {C_text("f_12686:c_2dbackend_2escm"),(void*)f_12686}, {C_text("f_12692:c_2dbackend_2escm"),(void*)f_12692}, {C_text("f_12695:c_2dbackend_2escm"),(void*)f_12695}, {C_text("f_12698:c_2dbackend_2escm"),(void*)f_12698}, {C_text("f_12920:c_2dbackend_2escm"),(void*)f_12920}, {C_text("f_12929:c_2dbackend_2escm"),(void*)f_12929}, {C_text("f_12995:c_2dbackend_2escm"),(void*)f_12995}, {C_text("f_13017:c_2dbackend_2escm"),(void*)f_13017}, {C_text("f_13045:c_2dbackend_2escm"),(void*)f_13045}, {C_text("f_13104:c_2dbackend_2escm"),(void*)f_13104}, {C_text("f_13111:c_2dbackend_2escm"),(void*)f_13111}, {C_text("f_13131:c_2dbackend_2escm"),(void*)f_13131}, {C_text("f_13138:c_2dbackend_2escm"),(void*)f_13138}, {C_text("f_13151:c_2dbackend_2escm"),(void*)f_13151}, {C_text("f_13158:c_2dbackend_2escm"),(void*)f_13158}, {C_text("f_13181:c_2dbackend_2escm"),(void*)f_13181}, {C_text("f_13189:c_2dbackend_2escm"),(void*)f_13189}, {C_text("f_13211:c_2dbackend_2escm"),(void*)f_13211}, {C_text("f_13219:c_2dbackend_2escm"),(void*)f_13219}, {C_text("f_13223:c_2dbackend_2escm"),(void*)f_13223}, {C_text("f_13225:c_2dbackend_2escm"),(void*)f_13225}, {C_text("f_13254:c_2dbackend_2escm"),(void*)f_13254}, {C_text("f_3192:c_2dbackend_2escm"),(void*)f_3192}, {C_text("f_3195:c_2dbackend_2escm"),(void*)f_3195}, {C_text("f_3198:c_2dbackend_2escm"),(void*)f_3198}, {C_text("f_3201:c_2dbackend_2escm"),(void*)f_3201}, {C_text("f_3204:c_2dbackend_2escm"),(void*)f_3204}, {C_text("f_3207:c_2dbackend_2escm"),(void*)f_3207}, {C_text("f_3210:c_2dbackend_2escm"),(void*)f_3210}, {C_text("f_3213:c_2dbackend_2escm"),(void*)f_3213}, {C_text("f_3216:c_2dbackend_2escm"),(void*)f_3216}, {C_text("f_3657:c_2dbackend_2escm"),(void*)f_3657}, {C_text("f_3671:c_2dbackend_2escm"),(void*)f_3671}, {C_text("f_4229:c_2dbackend_2escm"),(void*)f_4229}, {C_text("f_4235:c_2dbackend_2escm"),(void*)f_4235}, {C_text("f_4249:c_2dbackend_2escm"),(void*)f_4249}, {C_text("f_4253:c_2dbackend_2escm"),(void*)f_4253}, {C_text("f_4409:c_2dbackend_2escm"),(void*)f_4409}, {C_text("f_4421:c_2dbackend_2escm"),(void*)f_4421}, {C_text("f_4497:c_2dbackend_2escm"),(void*)f_4497}, {C_text("f_4517:c_2dbackend_2escm"),(void*)f_4517}, {C_text("f_4527:c_2dbackend_2escm"),(void*)f_4527}, {C_text("f_4540:c_2dbackend_2escm"),(void*)f_4540}, {C_text("f_4549:c_2dbackend_2escm"),(void*)f_4549}, {C_text("f_4554:c_2dbackend_2escm"),(void*)f_4554}, {C_text("f_4564:c_2dbackend_2escm"),(void*)f_4564}, {C_text("f_4605:c_2dbackend_2escm"),(void*)f_4605}, {C_text("f_4611:c_2dbackend_2escm"),(void*)f_4611}, {C_text("f_4616:c_2dbackend_2escm"),(void*)f_4616}, {C_text("f_4624:c_2dbackend_2escm"),(void*)f_4624}, {C_text("f_4628:c_2dbackend_2escm"),(void*)f_4628}, {C_text("f_4638:c_2dbackend_2escm"),(void*)f_4638}, {C_text("f_4649:c_2dbackend_2escm"),(void*)f_4649}, {C_text("f_4653:c_2dbackend_2escm"),(void*)f_4653}, {C_text("f_4656:c_2dbackend_2escm"),(void*)f_4656}, {C_text("f_4658:c_2dbackend_2escm"),(void*)f_4658}, {C_text("f_4662:c_2dbackend_2escm"),(void*)f_4662}, {C_text("f_4670:c_2dbackend_2escm"),(void*)f_4670}, {C_text("f_4673:c_2dbackend_2escm"),(void*)f_4673}, {C_text("f_4677:c_2dbackend_2escm"),(void*)f_4677}, {C_text("f_4680:c_2dbackend_2escm"),(void*)f_4680}, {C_text("f_4683:c_2dbackend_2escm"),(void*)f_4683}, {C_text("f_4820:c_2dbackend_2escm"),(void*)f_4820}, {C_text("f_4823:c_2dbackend_2escm"),(void*)f_4823}, {C_text("f_4826:c_2dbackend_2escm"),(void*)f_4826}, {C_text("f_4829:c_2dbackend_2escm"),(void*)f_4829}, {C_text("f_4832:c_2dbackend_2escm"),(void*)f_4832}, {C_text("f_4835:c_2dbackend_2escm"),(void*)f_4835}, {C_text("f_4878:c_2dbackend_2escm"),(void*)f_4878}, {C_text("f_4888:c_2dbackend_2escm"),(void*)f_4888}, {C_text("f_4891:c_2dbackend_2escm"),(void*)f_4891}, {C_text("f_4894:c_2dbackend_2escm"),(void*)f_4894}, {C_text("f_4926:c_2dbackend_2escm"),(void*)f_4926}, {C_text("f_4929:c_2dbackend_2escm"),(void*)f_4929}, {C_text("f_4932:c_2dbackend_2escm"),(void*)f_4932}, {C_text("f_4965:c_2dbackend_2escm"),(void*)f_4965}, {C_text("f_4968:c_2dbackend_2escm"),(void*)f_4968}, {C_text("f_4984:c_2dbackend_2escm"),(void*)f_4984}, {C_text("f_4987:c_2dbackend_2escm"),(void*)f_4987}, {C_text("f_5003:c_2dbackend_2escm"),(void*)f_5003}, {C_text("f_5006:c_2dbackend_2escm"),(void*)f_5006}, {C_text("f_5030:c_2dbackend_2escm"),(void*)f_5030}, {C_text("f_5033:c_2dbackend_2escm"),(void*)f_5033}, {C_text("f_5049:c_2dbackend_2escm"),(void*)f_5049}, {C_text("f_5052:c_2dbackend_2escm"),(void*)f_5052}, {C_text("f_5055:c_2dbackend_2escm"),(void*)f_5055}, {C_text("f_5058:c_2dbackend_2escm"),(void*)f_5058}, {C_text("f_5082:c_2dbackend_2escm"),(void*)f_5082}, {C_text("f_5085:c_2dbackend_2escm"),(void*)f_5085}, {C_text("f_5088:c_2dbackend_2escm"),(void*)f_5088}, {C_text("f_5091:c_2dbackend_2escm"),(void*)f_5091}, {C_text("f_5119:c_2dbackend_2escm"),(void*)f_5119}, {C_text("f_5122:c_2dbackend_2escm"),(void*)f_5122}, {C_text("f_5125:c_2dbackend_2escm"),(void*)f_5125}, {C_text("f_5128:c_2dbackend_2escm"),(void*)f_5128}, {C_text("f_5148:c_2dbackend_2escm"),(void*)f_5148}, {C_text("f_5151:c_2dbackend_2escm"),(void*)f_5151}, {C_text("f_5154:c_2dbackend_2escm"),(void*)f_5154}, {C_text("f_5157:c_2dbackend_2escm"),(void*)f_5157}, {C_text("f_5180:c_2dbackend_2escm"),(void*)f_5180}, {C_text("f_5181:c_2dbackend_2escm"),(void*)f_5181}, {C_text("f_5185:c_2dbackend_2escm"),(void*)f_5185}, {C_text("f_5188:c_2dbackend_2escm"),(void*)f_5188}, {C_text("f_5194:c_2dbackend_2escm"),(void*)f_5194}, {C_text("f_5203:c_2dbackend_2escm"),(void*)f_5203}, {C_text("f_5210:c_2dbackend_2escm"),(void*)f_5210}, {C_text("f_5220:c_2dbackend_2escm"),(void*)f_5220}, {C_text("f_5254:c_2dbackend_2escm"),(void*)f_5254}, {C_text("f_5257:c_2dbackend_2escm"),(void*)f_5257}, {C_text("f_5286:c_2dbackend_2escm"),(void*)f_5286}, {C_text("f_5328:c_2dbackend_2escm"),(void*)f_5328}, {C_text("f_5332:c_2dbackend_2escm"),(void*)f_5332}, {C_text("f_5363:c_2dbackend_2escm"),(void*)f_5363}, {C_text("f_5366:c_2dbackend_2escm"),(void*)f_5366}, {C_text("f_5369:c_2dbackend_2escm"),(void*)f_5369}, {C_text("f_5380:c_2dbackend_2escm"),(void*)f_5380}, {C_text("f_5384:c_2dbackend_2escm"),(void*)f_5384}, {C_text("f_5411:c_2dbackend_2escm"),(void*)f_5411}, {C_text("f_5414:c_2dbackend_2escm"),(void*)f_5414}, {C_text("f_5425:c_2dbackend_2escm"),(void*)f_5425}, {C_text("f_5429:c_2dbackend_2escm"),(void*)f_5429}, {C_text("f_5432:c_2dbackend_2escm"),(void*)f_5432}, {C_text("f_5435:c_2dbackend_2escm"),(void*)f_5435}, {C_text("f_5446:c_2dbackend_2escm"),(void*)f_5446}, {C_text("f_5450:c_2dbackend_2escm"),(void*)f_5450}, {C_text("f_5487:c_2dbackend_2escm"),(void*)f_5487}, {C_text("f_5490:c_2dbackend_2escm"),(void*)f_5490}, {C_text("f_5493:c_2dbackend_2escm"),(void*)f_5493}, {C_text("f_5496:c_2dbackend_2escm"),(void*)f_5496}, {C_text("f_5500:c_2dbackend_2escm"),(void*)f_5500}, {C_text("f_5509:c_2dbackend_2escm"),(void*)f_5509}, {C_text("f_5512:c_2dbackend_2escm"),(void*)f_5512}, {C_text("f_5515:c_2dbackend_2escm"),(void*)f_5515}, {C_text("f_5531:c_2dbackend_2escm"),(void*)f_5531}, {C_text("f_5534:c_2dbackend_2escm"),(void*)f_5534}, {C_text("f_5537:c_2dbackend_2escm"),(void*)f_5537}, {C_text("f_5538:c_2dbackend_2escm"),(void*)f_5538}, {C_text("f_5542:c_2dbackend_2escm"),(void*)f_5542}, {C_text("f_5545:c_2dbackend_2escm"),(void*)f_5545}, {C_text("f_5554:c_2dbackend_2escm"),(void*)f_5554}, {C_text("f_5562:c_2dbackend_2escm"),(void*)f_5562}, {C_text("f_5568:c_2dbackend_2escm"),(void*)f_5568}, {C_text("f_5571:c_2dbackend_2escm"),(void*)f_5571}, {C_text("f_5579:c_2dbackend_2escm"),(void*)f_5579}, {C_text("f_5589:c_2dbackend_2escm"),(void*)f_5589}, {C_text("f_5616:c_2dbackend_2escm"),(void*)f_5616}, {C_text("f_5626:c_2dbackend_2escm"),(void*)f_5626}, {C_text("f_5653:c_2dbackend_2escm"),(void*)f_5653}, {C_text("f_5660:c_2dbackend_2escm"),(void*)f_5660}, {C_text("f_5666:c_2dbackend_2escm"),(void*)f_5666}, {C_text("f_5669:c_2dbackend_2escm"),(void*)f_5669}, {C_text("f_5672:c_2dbackend_2escm"),(void*)f_5672}, {C_text("f_5681:c_2dbackend_2escm"),(void*)f_5681}, {C_text("f_5684:c_2dbackend_2escm"),(void*)f_5684}, {C_text("f_5687:c_2dbackend_2escm"),(void*)f_5687}, {C_text("f_5690:c_2dbackend_2escm"),(void*)f_5690}, {C_text("f_5700:c_2dbackend_2escm"),(void*)f_5700}, {C_text("f_5711:c_2dbackend_2escm"),(void*)f_5711}, {C_text("f_5715:c_2dbackend_2escm"),(void*)f_5715}, {C_text("f_5718:c_2dbackend_2escm"),(void*)f_5718}, {C_text("f_5731:c_2dbackend_2escm"),(void*)f_5731}, {C_text("f_5737:c_2dbackend_2escm"),(void*)f_5737}, {C_text("f_5740:c_2dbackend_2escm"),(void*)f_5740}, {C_text("f_5752:c_2dbackend_2escm"),(void*)f_5752}, {C_text("f_5755:c_2dbackend_2escm"),(void*)f_5755}, {C_text("f_5758:c_2dbackend_2escm"),(void*)f_5758}, {C_text("f_5761:c_2dbackend_2escm"),(void*)f_5761}, {C_text("f_5768:c_2dbackend_2escm"),(void*)f_5768}, {C_text("f_5778:c_2dbackend_2escm"),(void*)f_5778}, {C_text("f_5786:c_2dbackend_2escm"),(void*)f_5786}, {C_text("f_5794:c_2dbackend_2escm"),(void*)f_5794}, {C_text("f_5807:c_2dbackend_2escm"),(void*)f_5807}, {C_text("f_5811:c_2dbackend_2escm"),(void*)f_5811}, {C_text("f_5819:c_2dbackend_2escm"),(void*)f_5819}, {C_text("f_5827:c_2dbackend_2escm"),(void*)f_5827}, {C_text("f_5834:c_2dbackend_2escm"),(void*)f_5834}, {C_text("f_5839:c_2dbackend_2escm"),(void*)f_5839}, {C_text("f_5846:c_2dbackend_2escm"),(void*)f_5846}, {C_text("f_5850:c_2dbackend_2escm"),(void*)f_5850}, {C_text("f_5853:c_2dbackend_2escm"),(void*)f_5853}, {C_text("f_5856:c_2dbackend_2escm"),(void*)f_5856}, {C_text("f_5859:c_2dbackend_2escm"),(void*)f_5859}, {C_text("f_5862:c_2dbackend_2escm"),(void*)f_5862}, {C_text("f_5865:c_2dbackend_2escm"),(void*)f_5865}, {C_text("f_5871:c_2dbackend_2escm"),(void*)f_5871}, {C_text("f_5884:c_2dbackend_2escm"),(void*)f_5884}, {C_text("f_5889:c_2dbackend_2escm"),(void*)f_5889}, {C_text("f_5912:c_2dbackend_2escm"),(void*)f_5912}, {C_text("f_5916:c_2dbackend_2escm"),(void*)f_5916}, {C_text("f_5919:c_2dbackend_2escm"),(void*)f_5919}, {C_text("f_5939:c_2dbackend_2escm"),(void*)f_5939}, {C_text("f_5946:c_2dbackend_2escm"),(void*)f_5946}, {C_text("f_5950:c_2dbackend_2escm"),(void*)f_5950}, {C_text("f_5954:c_2dbackend_2escm"),(void*)f_5954}, {C_text("f_5997:c_2dbackend_2escm"),(void*)f_5997}, {C_text("f_6003:c_2dbackend_2escm"),(void*)f_6003}, {C_text("f_6006:c_2dbackend_2escm"),(void*)f_6006}, {C_text("f_6007:c_2dbackend_2escm"),(void*)f_6007}, {C_text("f_6011:c_2dbackend_2escm"),(void*)f_6011}, {C_text("f_6014:c_2dbackend_2escm"),(void*)f_6014}, {C_text("f_6023:c_2dbackend_2escm"),(void*)f_6023}, {C_text("f_6031:c_2dbackend_2escm"),(void*)f_6031}, {C_text("f_6037:c_2dbackend_2escm"),(void*)f_6037}, {C_text("f_6042:c_2dbackend_2escm"),(void*)f_6042}, {C_text("f_6052:c_2dbackend_2escm"),(void*)f_6052}, {C_text("f_6079:c_2dbackend_2escm"),(void*)f_6079}, {C_text("f_6089:c_2dbackend_2escm"),(void*)f_6089}, {C_text("f_6116:c_2dbackend_2escm"),(void*)f_6116}, {C_text("f_6123:c_2dbackend_2escm"),(void*)f_6123}, {C_text("f_6126:c_2dbackend_2escm"),(void*)f_6126}, {C_text("f_6129:c_2dbackend_2escm"),(void*)f_6129}, {C_text("f_6157:c_2dbackend_2escm"),(void*)f_6157}, {C_text("f_6170:c_2dbackend_2escm"),(void*)f_6170}, {C_text("f_6174:c_2dbackend_2escm"),(void*)f_6174}, {C_text("f_6177:c_2dbackend_2escm"),(void*)f_6177}, {C_text("f_6180:c_2dbackend_2escm"),(void*)f_6180}, {C_text("f_6183:c_2dbackend_2escm"),(void*)f_6183}, {C_text("f_6186:c_2dbackend_2escm"),(void*)f_6186}, {C_text("f_6189:c_2dbackend_2escm"),(void*)f_6189}, {C_text("f_6192:c_2dbackend_2escm"),(void*)f_6192}, {C_text("f_6204:c_2dbackend_2escm"),(void*)f_6204}, {C_text("f_6216:c_2dbackend_2escm"),(void*)f_6216}, {C_text("f_6234:c_2dbackend_2escm"),(void*)f_6234}, {C_text("f_6254:c_2dbackend_2escm"),(void*)f_6254}, {C_text("f_6261:c_2dbackend_2escm"),(void*)f_6261}, {C_text("f_6265:c_2dbackend_2escm"),(void*)f_6265}, {C_text("f_6294:c_2dbackend_2escm"),(void*)f_6294}, {C_text("f_6297:c_2dbackend_2escm"),(void*)f_6297}, {C_text("f_6304:c_2dbackend_2escm"),(void*)f_6304}, {C_text("f_6317:c_2dbackend_2escm"),(void*)f_6317}, {C_text("f_6320:c_2dbackend_2escm"),(void*)f_6320}, {C_text("f_6336:c_2dbackend_2escm"),(void*)f_6336}, {C_text("f_6339:c_2dbackend_2escm"),(void*)f_6339}, {C_text("f_6372:c_2dbackend_2escm"),(void*)f_6372}, {C_text("f_6375:c_2dbackend_2escm"),(void*)f_6375}, {C_text("f_6384:c_2dbackend_2escm"),(void*)f_6384}, {C_text("f_6408:c_2dbackend_2escm"),(void*)f_6408}, {C_text("f_6428:c_2dbackend_2escm"),(void*)f_6428}, {C_text("f_6431:c_2dbackend_2escm"),(void*)f_6431}, {C_text("f_6446:c_2dbackend_2escm"),(void*)f_6446}, {C_text("f_6450:c_2dbackend_2escm"),(void*)f_6450}, {C_text("f_6462:c_2dbackend_2escm"),(void*)f_6462}, {C_text("f_6465:c_2dbackend_2escm"),(void*)f_6465}, {C_text("f_6476:c_2dbackend_2escm"),(void*)f_6476}, {C_text("f_6480:c_2dbackend_2escm"),(void*)f_6480}, {C_text("f_6492:c_2dbackend_2escm"),(void*)f_6492}, {C_text("f_6495:c_2dbackend_2escm"),(void*)f_6495}, {C_text("f_6498:c_2dbackend_2escm"),(void*)f_6498}, {C_text("f_6501:c_2dbackend_2escm"),(void*)f_6501}, {C_text("f_6512:c_2dbackend_2escm"),(void*)f_6512}, {C_text("f_6520:c_2dbackend_2escm"),(void*)f_6520}, {C_text("f_6529:c_2dbackend_2escm"),(void*)f_6529}, {C_text("f_6532:c_2dbackend_2escm"),(void*)f_6532}, {C_text("f_6535:c_2dbackend_2escm"),(void*)f_6535}, {C_text("f_6548:c_2dbackend_2escm"),(void*)f_6548}, {C_text("f_6556:c_2dbackend_2escm"),(void*)f_6556}, {C_text("f_6559:c_2dbackend_2escm"),(void*)f_6559}, {C_text("f_6569:c_2dbackend_2escm"),(void*)f_6569}, {C_text("f_6572:c_2dbackend_2escm"),(void*)f_6572}, {C_text("f_6575:c_2dbackend_2escm"),(void*)f_6575}, {C_text("f_6578:c_2dbackend_2escm"),(void*)f_6578}, {C_text("f_6608:c_2dbackend_2escm"),(void*)f_6608}, {C_text("f_6611:c_2dbackend_2escm"),(void*)f_6611}, {C_text("f_6614:c_2dbackend_2escm"),(void*)f_6614}, {C_text("f_6617:c_2dbackend_2escm"),(void*)f_6617}, {C_text("f_6620:c_2dbackend_2escm"),(void*)f_6620}, {C_text("f_6623:c_2dbackend_2escm"),(void*)f_6623}, {C_text("f_6645:c_2dbackend_2escm"),(void*)f_6645}, {C_text("f_6725:c_2dbackend_2escm"),(void*)f_6725}, {C_text("f_6731:c_2dbackend_2escm"),(void*)f_6731}, {C_text("f_6741:c_2dbackend_2escm"),(void*)f_6741}, {C_text("f_6744:c_2dbackend_2escm"),(void*)f_6744}, {C_text("f_6761:c_2dbackend_2escm"),(void*)f_6761}, {C_text("f_6773:c_2dbackend_2escm"),(void*)f_6773}, {C_text("f_6776:c_2dbackend_2escm"),(void*)f_6776}, {C_text("f_6779:c_2dbackend_2escm"),(void*)f_6779}, {C_text("f_6782:c_2dbackend_2escm"),(void*)f_6782}, {C_text("f_6785:c_2dbackend_2escm"),(void*)f_6785}, {C_text("f_6794:c_2dbackend_2escm"),(void*)f_6794}, {C_text("f_6804:c_2dbackend_2escm"),(void*)f_6804}, {C_text("f_6807:c_2dbackend_2escm"),(void*)f_6807}, {C_text("f_6810:c_2dbackend_2escm"),(void*)f_6810}, {C_text("f_6830:c_2dbackend_2escm"),(void*)f_6830}, {C_text("f_6845:c_2dbackend_2escm"),(void*)f_6845}, {C_text("f_6848:c_2dbackend_2escm"),(void*)f_6848}, {C_text("f_6851:c_2dbackend_2escm"),(void*)f_6851}, {C_text("f_6854:c_2dbackend_2escm"),(void*)f_6854}, {C_text("f_6857:c_2dbackend_2escm"),(void*)f_6857}, {C_text("f_6873:c_2dbackend_2escm"),(void*)f_6873}, {C_text("f_6876:c_2dbackend_2escm"),(void*)f_6876}, {C_text("f_6884:c_2dbackend_2escm"),(void*)f_6884}, {C_text("f_6888:c_2dbackend_2escm"),(void*)f_6888}, {C_text("f_6891:c_2dbackend_2escm"),(void*)f_6891}, {C_text("f_6894:c_2dbackend_2escm"),(void*)f_6894}, {C_text("f_6897:c_2dbackend_2escm"),(void*)f_6897}, {C_text("f_6900:c_2dbackend_2escm"),(void*)f_6900}, {C_text("f_6903:c_2dbackend_2escm"),(void*)f_6903}, {C_text("f_6906:c_2dbackend_2escm"),(void*)f_6906}, {C_text("f_6909:c_2dbackend_2escm"),(void*)f_6909}, {C_text("f_6921:c_2dbackend_2escm"),(void*)f_6921}, {C_text("f_6931:c_2dbackend_2escm"),(void*)f_6931}, {C_text("f_6941:c_2dbackend_2escm"),(void*)f_6941}, {C_text("f_6961:c_2dbackend_2escm"),(void*)f_6961}, {C_text("f_6974:c_2dbackend_2escm"),(void*)f_6974}, {C_text("f_6986:c_2dbackend_2escm"),(void*)f_6986}, {C_text("f_6989:c_2dbackend_2escm"),(void*)f_6989}, {C_text("f_6991:c_2dbackend_2escm"),(void*)f_6991}, {C_text("f_7016:c_2dbackend_2escm"),(void*)f_7016}, {C_text("f_7027:c_2dbackend_2escm"),(void*)f_7027}, {C_text("f_7037:c_2dbackend_2escm"),(void*)f_7037}, {C_text("f_7041:c_2dbackend_2escm"),(void*)f_7041}, {C_text("f_7043:c_2dbackend_2escm"),(void*)f_7043}, {C_text("f_7050:c_2dbackend_2escm"),(void*)f_7050}, {C_text("f_7064:c_2dbackend_2escm"),(void*)f_7064}, {C_text("f_7070:c_2dbackend_2escm"),(void*)f_7070}, {C_text("f_7073:c_2dbackend_2escm"),(void*)f_7073}, {C_text("f_7076:c_2dbackend_2escm"),(void*)f_7076}, {C_text("f_7081:c_2dbackend_2escm"),(void*)f_7081}, {C_text("f_7091:c_2dbackend_2escm"),(void*)f_7091}, {C_text("f_7097:c_2dbackend_2escm"),(void*)f_7097}, {C_text("f_7100:c_2dbackend_2escm"),(void*)f_7100}, {C_text("f_7103:c_2dbackend_2escm"),(void*)f_7103}, {C_text("f_7106:c_2dbackend_2escm"),(void*)f_7106}, {C_text("f_7121:c_2dbackend_2escm"),(void*)f_7121}, {C_text("f_7129:c_2dbackend_2escm"),(void*)f_7129}, {C_text("f_7139:c_2dbackend_2escm"),(void*)f_7139}, {C_text("f_7149:c_2dbackend_2escm"),(void*)f_7149}, {C_text("f_7190:c_2dbackend_2escm"),(void*)f_7190}, {C_text("f_7200:c_2dbackend_2escm"),(void*)f_7200}, {C_text("f_7213:c_2dbackend_2escm"),(void*)f_7213}, {C_text("f_7238:c_2dbackend_2escm"),(void*)f_7238}, {C_text("f_7247:c_2dbackend_2escm"),(void*)f_7247}, {C_text("f_7251:c_2dbackend_2escm"),(void*)f_7251}, {C_text("f_7260:c_2dbackend_2escm"),(void*)f_7260}, {C_text("f_7263:c_2dbackend_2escm"),(void*)f_7263}, {C_text("f_7266:c_2dbackend_2escm"),(void*)f_7266}, {C_text("f_7269:c_2dbackend_2escm"),(void*)f_7269}, {C_text("f_7272:c_2dbackend_2escm"),(void*)f_7272}, {C_text("f_7275:c_2dbackend_2escm"),(void*)f_7275}, {C_text("f_7278:c_2dbackend_2escm"),(void*)f_7278}, {C_text("f_7281:c_2dbackend_2escm"),(void*)f_7281}, {C_text("f_7284:c_2dbackend_2escm"),(void*)f_7284}, {C_text("f_7287:c_2dbackend_2escm"),(void*)f_7287}, {C_text("f_7290:c_2dbackend_2escm"),(void*)f_7290}, {C_text("f_7293:c_2dbackend_2escm"),(void*)f_7293}, {C_text("f_7296:c_2dbackend_2escm"),(void*)f_7296}, {C_text("f_7299:c_2dbackend_2escm"),(void*)f_7299}, {C_text("f_7302:c_2dbackend_2escm"),(void*)f_7302}, {C_text("f_7305:c_2dbackend_2escm"),(void*)f_7305}, {C_text("f_7323:c_2dbackend_2escm"),(void*)f_7323}, {C_text("f_7326:c_2dbackend_2escm"),(void*)f_7326}, {C_text("f_7349:c_2dbackend_2escm"),(void*)f_7349}, {C_text("f_7352:c_2dbackend_2escm"),(void*)f_7352}, {C_text("f_7355:c_2dbackend_2escm"),(void*)f_7355}, {C_text("f_7358:c_2dbackend_2escm"),(void*)f_7358}, {C_text("f_7374:c_2dbackend_2escm"),(void*)f_7374}, {C_text("f_7377:c_2dbackend_2escm"),(void*)f_7377}, {C_text("f_7380:c_2dbackend_2escm"),(void*)f_7380}, {C_text("f_7391:c_2dbackend_2escm"),(void*)f_7391}, {C_text("f_7400:c_2dbackend_2escm"),(void*)f_7400}, {C_text("f_7408:c_2dbackend_2escm"),(void*)f_7408}, {C_text("f_7418:c_2dbackend_2escm"),(void*)f_7418}, {C_text("f_7431:c_2dbackend_2escm"),(void*)f_7431}, {C_text("f_7442:c_2dbackend_2escm"),(void*)f_7442}, {C_text("f_7452:c_2dbackend_2escm"),(void*)f_7452}, {C_text("f_7468:c_2dbackend_2escm"),(void*)f_7468}, {C_text("f_7471:c_2dbackend_2escm"),(void*)f_7471}, {C_text("f_7474:c_2dbackend_2escm"),(void*)f_7474}, {C_text("f_7477:c_2dbackend_2escm"),(void*)f_7477}, {C_text("f_7480:c_2dbackend_2escm"),(void*)f_7480}, {C_text("f_7483:c_2dbackend_2escm"),(void*)f_7483}, {C_text("f_7492:c_2dbackend_2escm"),(void*)f_7492}, {C_text("f_7495:c_2dbackend_2escm"),(void*)f_7495}, {C_text("f_7498:c_2dbackend_2escm"),(void*)f_7498}, {C_text("f_7501:c_2dbackend_2escm"),(void*)f_7501}, {C_text("f_7504:c_2dbackend_2escm"),(void*)f_7504}, {C_text("f_7507:c_2dbackend_2escm"),(void*)f_7507}, {C_text("f_7514:c_2dbackend_2escm"),(void*)f_7514}, {C_text("f_7521:c_2dbackend_2escm"),(void*)f_7521}, {C_text("f_7527:c_2dbackend_2escm"),(void*)f_7527}, {C_text("f_7535:c_2dbackend_2escm"),(void*)f_7535}, {C_text("f_7545:c_2dbackend_2escm"),(void*)f_7545}, {C_text("f_7558:c_2dbackend_2escm"),(void*)f_7558}, {C_text("f_7564:c_2dbackend_2escm"),(void*)f_7564}, {C_text("f_7574:c_2dbackend_2escm"),(void*)f_7574}, {C_text("f_7589:c_2dbackend_2escm"),(void*)f_7589}, {C_text("f_7595:c_2dbackend_2escm"),(void*)f_7595}, {C_text("f_7598:c_2dbackend_2escm"),(void*)f_7598}, {C_text("f_7601:c_2dbackend_2escm"),(void*)f_7601}, {C_text("f_7604:c_2dbackend_2escm"),(void*)f_7604}, {C_text("f_7612:c_2dbackend_2escm"),(void*)f_7612}, {C_text("f_7619:c_2dbackend_2escm"),(void*)f_7619}, {C_text("f_7625:c_2dbackend_2escm"),(void*)f_7625}, {C_text("f_7655:c_2dbackend_2escm"),(void*)f_7655}, {C_text("f_7668:c_2dbackend_2escm"),(void*)f_7668}, {C_text("f_7672:c_2dbackend_2escm"),(void*)f_7672}, {C_text("f_7696:c_2dbackend_2escm"),(void*)f_7696}, {C_text("f_7699:c_2dbackend_2escm"),(void*)f_7699}, {C_text("f_7705:c_2dbackend_2escm"),(void*)f_7705}, {C_text("f_7707:c_2dbackend_2escm"),(void*)f_7707}, {C_text("f_7731:c_2dbackend_2escm"),(void*)f_7731}, {C_text("f_7756:c_2dbackend_2escm"),(void*)f_7756}, {C_text("f_7770:c_2dbackend_2escm"),(void*)f_7770}, {C_text("f_7788:c_2dbackend_2escm"),(void*)f_7788}, {C_text("f_7795:c_2dbackend_2escm"),(void*)f_7795}, {C_text("f_7816:c_2dbackend_2escm"),(void*)f_7816}, {C_text("f_7836:c_2dbackend_2escm"),(void*)f_7836}, {C_text("f_7857:c_2dbackend_2escm"),(void*)f_7857}, {C_text("f_7861:c_2dbackend_2escm"),(void*)f_7861}, {C_text("f_7882:c_2dbackend_2escm"),(void*)f_7882}, {C_text("f_7886:c_2dbackend_2escm"),(void*)f_7886}, {C_text("f_7895:c_2dbackend_2escm"),(void*)f_7895}, {C_text("f_7902:c_2dbackend_2escm"),(void*)f_7902}, {C_text("f_7908:c_2dbackend_2escm"),(void*)f_7908}, {C_text("f_7952:c_2dbackend_2escm"),(void*)f_7952}, {C_text("f_7961:c_2dbackend_2escm"),(void*)f_7961}, {C_text("f_7970:c_2dbackend_2escm"),(void*)f_7970}, {C_text("f_7976:c_2dbackend_2escm"),(void*)f_7976}, {C_text("f_8000:c_2dbackend_2escm"),(void*)f_8000}, {C_text("f_8003:c_2dbackend_2escm"),(void*)f_8003}, {C_text("f_8006:c_2dbackend_2escm"),(void*)f_8006}, {C_text("f_8013:c_2dbackend_2escm"),(void*)f_8013}, {C_text("f_8047:c_2dbackend_2escm"),(void*)f_8047}, {C_text("f_8049:c_2dbackend_2escm"),(void*)f_8049}, {C_text("f_8063:c_2dbackend_2escm"),(void*)f_8063}, {C_text("f_8077:c_2dbackend_2escm"),(void*)f_8077}, {C_text("f_8084:c_2dbackend_2escm"),(void*)f_8084}, {C_text("f_8088:c_2dbackend_2escm"),(void*)f_8088}, {C_text("f_8100:c_2dbackend_2escm"),(void*)f_8100}, {C_text("f_8113:c_2dbackend_2escm"),(void*)f_8113}, {C_text("f_8117:c_2dbackend_2escm"),(void*)f_8117}, {C_text("f_8123:c_2dbackend_2escm"),(void*)f_8123}, {C_text("f_8130:c_2dbackend_2escm"),(void*)f_8130}, {C_text("f_8133:c_2dbackend_2escm"),(void*)f_8133}, {C_text("f_8135:c_2dbackend_2escm"),(void*)f_8135}, {C_text("f_8137:c_2dbackend_2escm"),(void*)f_8137}, {C_text("f_8145:c_2dbackend_2escm"),(void*)f_8145}, {C_text("f_8148:c_2dbackend_2escm"),(void*)f_8148}, {C_text("f_8151:c_2dbackend_2escm"),(void*)f_8151}, {C_text("f_8154:c_2dbackend_2escm"),(void*)f_8154}, {C_text("f_8157:c_2dbackend_2escm"),(void*)f_8157}, {C_text("f_8160:c_2dbackend_2escm"),(void*)f_8160}, {C_text("f_8163:c_2dbackend_2escm"),(void*)f_8163}, {C_text("f_8169:c_2dbackend_2escm"),(void*)f_8169}, {C_text("f_8172:c_2dbackend_2escm"),(void*)f_8172}, {C_text("f_8175:c_2dbackend_2escm"),(void*)f_8175}, {C_text("f_8178:c_2dbackend_2escm"),(void*)f_8178}, {C_text("f_8181:c_2dbackend_2escm"),(void*)f_8181}, {C_text("f_8184:c_2dbackend_2escm"),(void*)f_8184}, {C_text("f_8187:c_2dbackend_2escm"),(void*)f_8187}, {C_text("f_8190:c_2dbackend_2escm"),(void*)f_8190}, {C_text("f_8193:c_2dbackend_2escm"),(void*)f_8193}, {C_text("f_8196:c_2dbackend_2escm"),(void*)f_8196}, {C_text("f_8199:c_2dbackend_2escm"),(void*)f_8199}, {C_text("f_8202:c_2dbackend_2escm"),(void*)f_8202}, {C_text("f_8205:c_2dbackend_2escm"),(void*)f_8205}, {C_text("f_8208:c_2dbackend_2escm"),(void*)f_8208}, {C_text("f_8211:c_2dbackend_2escm"),(void*)f_8211}, {C_text("f_8214:c_2dbackend_2escm"),(void*)f_8214}, {C_text("f_8217:c_2dbackend_2escm"),(void*)f_8217}, {C_text("f_8220:c_2dbackend_2escm"),(void*)f_8220}, {C_text("f_8223:c_2dbackend_2escm"),(void*)f_8223}, {C_text("f_8226:c_2dbackend_2escm"),(void*)f_8226}, {C_text("f_8229:c_2dbackend_2escm"),(void*)f_8229}, {C_text("f_8232:c_2dbackend_2escm"),(void*)f_8232}, {C_text("f_8235:c_2dbackend_2escm"),(void*)f_8235}, {C_text("f_8238:c_2dbackend_2escm"),(void*)f_8238}, {C_text("f_8241:c_2dbackend_2escm"),(void*)f_8241}, {C_text("f_8244:c_2dbackend_2escm"),(void*)f_8244}, {C_text("f_8248:c_2dbackend_2escm"),(void*)f_8248}, {C_text("f_8255:c_2dbackend_2escm"),(void*)f_8255}, {C_text("f_8266:c_2dbackend_2escm"),(void*)f_8266}, {C_text("f_8272:c_2dbackend_2escm"),(void*)f_8272}, {C_text("f_8275:c_2dbackend_2escm"),(void*)f_8275}, {C_text("f_8284:c_2dbackend_2escm"),(void*)f_8284}, {C_text("f_8292:c_2dbackend_2escm"),(void*)f_8292}, {C_text("f_8306:c_2dbackend_2escm"),(void*)f_8306}, {C_text("f_8321:c_2dbackend_2escm"),(void*)f_8321}, {C_text("f_8324:c_2dbackend_2escm"),(void*)f_8324}, {C_text("f_8341:c_2dbackend_2escm"),(void*)f_8341}, {C_text("f_8351:c_2dbackend_2escm"),(void*)f_8351}, {C_text("f_8381:c_2dbackend_2escm"),(void*)f_8381}, {C_text("f_8385:c_2dbackend_2escm"),(void*)f_8385}, {C_text("f_8388:c_2dbackend_2escm"),(void*)f_8388}, {C_text("f_8391:c_2dbackend_2escm"),(void*)f_8391}, {C_text("f_8394:c_2dbackend_2escm"),(void*)f_8394}, {C_text("f_8397:c_2dbackend_2escm"),(void*)f_8397}, {C_text("f_8400:c_2dbackend_2escm"),(void*)f_8400}, {C_text("f_8409:c_2dbackend_2escm"),(void*)f_8409}, {C_text("f_8412:c_2dbackend_2escm"),(void*)f_8412}, {C_text("f_8423:c_2dbackend_2escm"),(void*)f_8423}, {C_text("f_8444:c_2dbackend_2escm"),(void*)f_8444}, {C_text("f_8460:c_2dbackend_2escm"),(void*)f_8460}, {C_text("f_8468:c_2dbackend_2escm"),(void*)f_8468}, {C_text("f_8471:c_2dbackend_2escm"),(void*)f_8471}, {C_text("f_8481:c_2dbackend_2escm"),(void*)f_8481}, {C_text("f_8484:c_2dbackend_2escm"),(void*)f_8484}, {C_text("f_8487:c_2dbackend_2escm"),(void*)f_8487}, {C_text("f_8496:c_2dbackend_2escm"),(void*)f_8496}, {C_text("f_8520:c_2dbackend_2escm"),(void*)f_8520}, {C_text("f_8523:c_2dbackend_2escm"),(void*)f_8523}, {C_text("f_8526:c_2dbackend_2escm"),(void*)f_8526}, {C_text("f_8529:c_2dbackend_2escm"),(void*)f_8529}, {C_text("f_8538:c_2dbackend_2escm"),(void*)f_8538}, {C_text("f_8554:c_2dbackend_2escm"),(void*)f_8554}, {C_text("f_8614:c_2dbackend_2escm"),(void*)f_8614}, {C_text("f_8627:c_2dbackend_2escm"),(void*)f_8627}, {C_text("f_8637:c_2dbackend_2escm"),(void*)f_8637}, {C_text("f_8652:c_2dbackend_2escm"),(void*)f_8652}, {C_text("f_8654:c_2dbackend_2escm"),(void*)f_8654}, {C_text("f_8662:c_2dbackend_2escm"),(void*)f_8662}, {C_text("f_8682:c_2dbackend_2escm"),(void*)f_8682}, {C_text("f_8692:c_2dbackend_2escm"),(void*)f_8692}, {C_text("f_8713:c_2dbackend_2escm"),(void*)f_8713}, {C_text("f_8716:c_2dbackend_2escm"),(void*)f_8716}, {C_text("f_8739:c_2dbackend_2escm"),(void*)f_8739}, {C_text("f_8742:c_2dbackend_2escm"),(void*)f_8742}, {C_text("f_8745:c_2dbackend_2escm"),(void*)f_8745}, {C_text("f_8761:c_2dbackend_2escm"),(void*)f_8761}, {C_text("f_8764:c_2dbackend_2escm"),(void*)f_8764}, {C_text("f_8778:c_2dbackend_2escm"),(void*)f_8778}, {C_text("f_8803:c_2dbackend_2escm"),(void*)f_8803}, {C_text("f_8807:c_2dbackend_2escm"),(void*)f_8807}, {C_text("f_8815:c_2dbackend_2escm"),(void*)f_8815}, {C_text("f_8825:c_2dbackend_2escm"),(void*)f_8825}, {C_text("f_8839:c_2dbackend_2escm"),(void*)f_8839}, {C_text("f_8843:c_2dbackend_2escm"),(void*)f_8843}, {C_text("f_8846:c_2dbackend_2escm"),(void*)f_8846}, {C_text("f_8849:c_2dbackend_2escm"),(void*)f_8849}, {C_text("f_8852:c_2dbackend_2escm"),(void*)f_8852}, {C_text("f_8855:c_2dbackend_2escm"),(void*)f_8855}, {C_text("f_8858:c_2dbackend_2escm"),(void*)f_8858}, {C_text("f_8861:c_2dbackend_2escm"),(void*)f_8861}, {C_text("f_8864:c_2dbackend_2escm"),(void*)f_8864}, {C_text("f_8867:c_2dbackend_2escm"),(void*)f_8867}, {C_text("f_8870:c_2dbackend_2escm"),(void*)f_8870}, {C_text("f_8885:c_2dbackend_2escm"),(void*)f_8885}, {C_text("f_8890:c_2dbackend_2escm"),(void*)f_8890}, {C_text("f_8908:c_2dbackend_2escm"),(void*)f_8908}, {C_text("f_8912:c_2dbackend_2escm"),(void*)f_8912}, {C_text("f_8921:c_2dbackend_2escm"),(void*)f_8921}, {C_text("f_8926:c_2dbackend_2escm"),(void*)f_8926}, {C_text("f_8936:c_2dbackend_2escm"),(void*)f_8936}, {C_text("f_8954:c_2dbackend_2escm"),(void*)f_8954}, {C_text("f_8960:c_2dbackend_2escm"),(void*)f_8960}, {C_text("f_8965:c_2dbackend_2escm"),(void*)f_8965}, {C_text("f_8975:c_2dbackend_2escm"),(void*)f_8975}, {C_text("f_8988:c_2dbackend_2escm"),(void*)f_8988}, {C_text("f_9006:c_2dbackend_2escm"),(void*)f_9006}, {C_text("f_9007:c_2dbackend_2escm"),(void*)f_9007}, {C_text("f_9015:c_2dbackend_2escm"),(void*)f_9015}, {C_text("f_9028:c_2dbackend_2escm"),(void*)f_9028}, {C_text("f_9035:c_2dbackend_2escm"),(void*)f_9035}, {C_text("f_9038:c_2dbackend_2escm"),(void*)f_9038}, {C_text("f_9041:c_2dbackend_2escm"),(void*)f_9041}, {C_text("f_9044:c_2dbackend_2escm"),(void*)f_9044}, {C_text("f_9047:c_2dbackend_2escm"),(void*)f_9047}, {C_text("f_9052:c_2dbackend_2escm"),(void*)f_9052}, {C_text("f_9062:c_2dbackend_2escm"),(void*)f_9062}, {C_text("f_9080:c_2dbackend_2escm"),(void*)f_9080}, {C_text("f_9094:c_2dbackend_2escm"),(void*)f_9094}, {C_text("f_9096:c_2dbackend_2escm"),(void*)f_9096}, {C_text("f_9105:c_2dbackend_2escm"),(void*)f_9105}, {C_text("f_9131:c_2dbackend_2escm"),(void*)f_9131}, {C_text("f_9141:c_2dbackend_2escm"),(void*)f_9141}, {C_text("f_9172:c_2dbackend_2escm"),(void*)f_9172}, {C_text("f_9178:c_2dbackend_2escm"),(void*)f_9178}, {C_text("f_9186:c_2dbackend_2escm"),(void*)f_9186}, {C_text("f_9189:c_2dbackend_2escm"),(void*)f_9189}, {C_text("f_9195:c_2dbackend_2escm"),(void*)f_9195}, {C_text("f_9203:c_2dbackend_2escm"),(void*)f_9203}, {C_text("f_9210:c_2dbackend_2escm"),(void*)f_9210}, {C_text("f_9232:c_2dbackend_2escm"),(void*)f_9232}, {C_text("f_9240:c_2dbackend_2escm"),(void*)f_9240}, {C_text("f_9250:c_2dbackend_2escm"),(void*)f_9250}, {C_text("f_9263:c_2dbackend_2escm"),(void*)f_9263}, {C_text("f_9269:c_2dbackend_2escm"),(void*)f_9269}, {C_text("f_9272:c_2dbackend_2escm"),(void*)f_9272}, {C_text("f_9283:c_2dbackend_2escm"),(void*)f_9283}, {C_text("f_9293:c_2dbackend_2escm"),(void*)f_9293}, {C_text("f_9308:c_2dbackend_2escm"),(void*)f_9308}, {C_text("f_9312:c_2dbackend_2escm"),(void*)f_9312}, {C_text("f_9315:c_2dbackend_2escm"),(void*)f_9315}, {C_text("f_9318:c_2dbackend_2escm"),(void*)f_9318}, {C_text("f_9324:c_2dbackend_2escm"),(void*)f_9324}, {C_text("f_9327:c_2dbackend_2escm"),(void*)f_9327}, {C_text("f_9330:c_2dbackend_2escm"),(void*)f_9330}, {C_text("f_9333:c_2dbackend_2escm"),(void*)f_9333}, {C_text("f_9336:c_2dbackend_2escm"),(void*)f_9336}, {C_text("f_9339:c_2dbackend_2escm"),(void*)f_9339}, {C_text("f_9342:c_2dbackend_2escm"),(void*)f_9342}, {C_text("f_9345:c_2dbackend_2escm"),(void*)f_9345}, {C_text("f_9348:c_2dbackend_2escm"),(void*)f_9348}, {C_text("f_9351:c_2dbackend_2escm"),(void*)f_9351}, {C_text("f_9354:c_2dbackend_2escm"),(void*)f_9354}, {C_text("f_9357:c_2dbackend_2escm"),(void*)f_9357}, {C_text("f_9360:c_2dbackend_2escm"),(void*)f_9360}, {C_text("f_9369:c_2dbackend_2escm"),(void*)f_9369}, {C_text("f_9373:c_2dbackend_2escm"),(void*)f_9373}, {C_text("f_9377:c_2dbackend_2escm"),(void*)f_9377}, {C_text("f_9381:c_2dbackend_2escm"),(void*)f_9381}, {C_text("f_9387:c_2dbackend_2escm"),(void*)f_9387}, {C_text("f_9393:c_2dbackend_2escm"),(void*)f_9393}, {C_text("f_9396:c_2dbackend_2escm"),(void*)f_9396}, {C_text("f_9402:c_2dbackend_2escm"),(void*)f_9402}, {C_text("f_9411:c_2dbackend_2escm"),(void*)f_9411}, {C_text("f_9414:c_2dbackend_2escm"),(void*)f_9414}, {C_text("f_9417:c_2dbackend_2escm"),(void*)f_9417}, {C_text("f_9423:c_2dbackend_2escm"),(void*)f_9423}, {C_text("f_9426:c_2dbackend_2escm"),(void*)f_9426}, {C_text("f_9444:c_2dbackend_2escm"),(void*)f_9444}, {C_text("f_9447:c_2dbackend_2escm"),(void*)f_9447}, {C_text("f_9450:c_2dbackend_2escm"),(void*)f_9450}, {C_text("f_9453:c_2dbackend_2escm"),(void*)f_9453}, {C_text("f_9456:c_2dbackend_2escm"),(void*)f_9456}, {C_text("f_9481:c_2dbackend_2escm"),(void*)f_9481}, {C_text("f_9485:c_2dbackend_2escm"),(void*)f_9485}, {C_text("f_9503:c_2dbackend_2escm"),(void*)f_9503}, {C_text("f_9510:c_2dbackend_2escm"),(void*)f_9510}, {C_text("f_9513:c_2dbackend_2escm"),(void*)f_9513}, {C_text("f_9555:c_2dbackend_2escm"),(void*)f_9555}, {C_text("f_9560:c_2dbackend_2escm"),(void*)f_9560}, {C_text("f_9570:c_2dbackend_2escm"),(void*)f_9570}, {C_text("f_9582:c_2dbackend_2escm"),(void*)f_9582}, {C_text("f_9585:c_2dbackend_2escm"),(void*)f_9585}, {C_text("f_9592:c_2dbackend_2escm"),(void*)f_9592}, {C_text("f_9600:c_2dbackend_2escm"),(void*)f_9600}, {C_text("f_9610:c_2dbackend_2escm"),(void*)f_9610}, {C_text("f_9621:c_2dbackend_2escm"),(void*)f_9621}, {C_text("f_9631:c_2dbackend_2escm"),(void*)f_9631}, {C_text("f_9646:c_2dbackend_2escm"),(void*)f_9646}, {C_text("f_9650:c_2dbackend_2escm"),(void*)f_9650}, {C_text("f_9653:c_2dbackend_2escm"),(void*)f_9653}, {C_text("f_9656:c_2dbackend_2escm"),(void*)f_9656}, {C_text("f_9659:c_2dbackend_2escm"),(void*)f_9659}, {C_text("f_9665:c_2dbackend_2escm"),(void*)f_9665}, {C_text("f_9667:c_2dbackend_2escm"),(void*)f_9667}, {C_text("f_9677:c_2dbackend_2escm"),(void*)f_9677}, {C_text("f_9686:c_2dbackend_2escm"),(void*)f_9686}, {C_text("f_9698:c_2dbackend_2escm"),(void*)f_9698}, {C_text("f_9710:c_2dbackend_2escm"),(void*)f_9710}, {C_text("f_9722:c_2dbackend_2escm"),(void*)f_9722}, {C_text("f_9734:c_2dbackend_2escm"),(void*)f_9734}, {C_text("f_9740:c_2dbackend_2escm"),(void*)f_9740}, {C_text("f_9744:c_2dbackend_2escm"),(void*)f_9744}, {C_text("f_9771:c_2dbackend_2escm"),(void*)f_9771}, {C_text("toplevel:c_2dbackend_2escm"),(void*)C_c_2dbackend_toplevel}, {C_text("va15061:c_2dbackend_2escm"),(void*)va15061}, {C_text("va15067:c_2dbackend_2escm"),(void*)va15067}, {C_text("va15097:c_2dbackend_2escm"),(void*)va15097}, {C_text("va15099:c_2dbackend_2escm"),(void*)va15099}, {C_text("va15107:c_2dbackend_2escm"),(void*)va15107}, {C_text("va15109:c_2dbackend_2escm"),(void*)va15109}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.compiler.c-backend#partition o|hiding unexported module binding: chicken.compiler.c-backend#span o|hiding unexported module binding: chicken.compiler.c-backend#take o|hiding unexported module binding: chicken.compiler.c-backend#drop o|hiding unexported module binding: chicken.compiler.c-backend#split-at o|hiding unexported module binding: chicken.compiler.c-backend#append-map o|hiding unexported module binding: chicken.compiler.c-backend#every o|hiding unexported module binding: chicken.compiler.c-backend#any o|hiding unexported module binding: chicken.compiler.c-backend#cons* o|hiding unexported module binding: chicken.compiler.c-backend#concatenate o|hiding unexported module binding: chicken.compiler.c-backend#delete o|hiding unexported module binding: chicken.compiler.c-backend#first o|hiding unexported module binding: chicken.compiler.c-backend#second o|hiding unexported module binding: chicken.compiler.c-backend#third o|hiding unexported module binding: chicken.compiler.c-backend#fourth o|hiding unexported module binding: chicken.compiler.c-backend#fifth o|hiding unexported module binding: chicken.compiler.c-backend#delete-duplicates o|hiding unexported module binding: chicken.compiler.c-backend#alist-cons o|hiding unexported module binding: chicken.compiler.c-backend#filter o|hiding unexported module binding: chicken.compiler.c-backend#filter-map o|hiding unexported module binding: chicken.compiler.c-backend#remove o|hiding unexported module binding: chicken.compiler.c-backend#unzip1 o|hiding unexported module binding: chicken.compiler.c-backend#last o|hiding unexported module binding: chicken.compiler.c-backend#list-index o|hiding unexported module binding: chicken.compiler.c-backend#lset-adjoin/eq? o|hiding unexported module binding: chicken.compiler.c-backend#lset-difference/eq? o|hiding unexported module binding: chicken.compiler.c-backend#lset-union/eq? o|hiding unexported module binding: chicken.compiler.c-backend#lset-intersection/eq? o|hiding unexported module binding: chicken.compiler.c-backend#list-tabulate o|hiding unexported module binding: chicken.compiler.c-backend#lset<=/eq? o|hiding unexported module binding: chicken.compiler.c-backend#lset=/eq? o|hiding unexported module binding: chicken.compiler.c-backend#length+ o|hiding unexported module binding: chicken.compiler.c-backend#find o|hiding unexported module binding: chicken.compiler.c-backend#find-tail o|hiding unexported module binding: chicken.compiler.c-backend#iota o|hiding unexported module binding: chicken.compiler.c-backend#make-list o|hiding unexported module binding: chicken.compiler.c-backend#posq o|hiding unexported module binding: chicken.compiler.c-backend#posv o|hiding unexported module binding: chicken.compiler.c-backend#output o|hiding unexported module binding: chicken.compiler.c-backend#gen o|hiding unexported module binding: chicken.compiler.c-backend#gen-list o|hiding unexported module binding: chicken.compiler.c-backend#backslashify o|hiding unexported module binding: chicken.compiler.c-backend#uncommentify o|hiding unexported module binding: chicken.compiler.c-backend#c-identifier o|hiding unexported module binding: chicken.compiler.c-backend#table->sorted-alist o|hiding unexported module binding: chicken.compiler.c-backend#emit-debug-table o|hiding unexported module binding: chicken.compiler.c-backend#emit-procedure-table o|hiding unexported module binding: chicken.compiler.c-backend#toplevel o|hiding unexported module binding: chicken.compiler.c-backend#cleanup o|hiding unexported module binding: chicken.compiler.c-backend#make-variable-list o|hiding unexported module binding: chicken.compiler.c-backend#make-argument-list o|hiding unexported module binding: chicken.compiler.c-backend#generate-external-variables o|hiding unexported module binding: chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes o|hiding unexported module binding: chicken.compiler.c-backend#generate-foreign-stubs o|hiding unexported module binding: chicken.compiler.c-backend#generate-foreign-callback-stubs o|hiding unexported module binding: chicken.compiler.c-backend#generate-foreign-callback-header o|hiding unexported module binding: chicken.compiler.c-backend#foreign-argument-conversion o|hiding unexported module binding: chicken.compiler.c-backend#foreign-result-conversion o|hiding unexported module binding: chicken.compiler.c-backend#encode-literal S|applied compiler syntax: S| chicken.format#sprintf 20 S| scheme#for-each 22 S| chicken.base#foldl 5 S| scheme#map 8 S| chicken.base#foldr 3 o|eliminated procedure checks: 160 o|specializations: o| 1 (scheme#number->string float) o| 1 (scheme#string-length string) o| 1 (scheme#number->string * *) o| 1 (chicken.base#exact-integer? *) o| 1 (scheme#cdddr (pair * (pair * pair))) o| 3 (scheme#>= fixnum fixnum) o| 1 (scheme#> fixnum fixnum) o| 2 (scheme#memq * list) o| 8 (scheme#= fixnum fixnum) o| 1 (scheme#< integer integer) o| 1 (chicken.base#sub1 fixnum) o| 2 (scheme#char=? char char) o| 1 (scheme#char>? char char) o| 1 (scheme#charstring *) o| 14 (scheme#zero? *) o| 7 (chicken.base#add1 fixnum) o| 10 (chicken.base#sub1 *) o| 12 (chicken.base#add1 *) o| 282 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 5 (scheme#+ fixnum fixnum) o| 1 (scheme#eqv? * *) o| 16 (##sys#check-list (or pair list) *) o| 35 (scheme#cdr pair) o| 13 (scheme#car pair) (o e)|safe calls: 1553 o|safe globals: (chicken.compiler.c-backend#encode-literal chicken.compiler.c-backend#foreign-result-conversion chicken.compiler.c-backend#foreign-argument-conversion chicken.compiler.c-backend#foreign-type-declaration chicken.compiler.c-backend#generate-foreign-callback-header chicken.compiler.c-backend#generate-foreign-callback-stubs chicken.compiler.c-backend#generate-foreign-stubs chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes chicken.compiler.c-backend#generate-external-variables chicken.compiler.c-backend#make-argument-list chicken.compiler.c-backend#make-variable-list chicken.compiler.c-backend#cleanup chicken.compiler.c-backend#toplevel chicken.compiler.c-backend#emit-procedure-table chicken.compiler.c-backend#emit-debug-table chicken.compiler.c-backend#generate-code chicken.compiler.c-backend#table->sorted-alist chicken.compiler.c-backend#c-identifier chicken.compiler.c-backend#uncommentify chicken.compiler.c-backend#backslashify chicken.compiler.c-backend#gen-list chicken.compiler.c-backend#gen chicken.compiler.c-backend#output chicken.compiler.c-backend#posv chicken.compiler.c-backend#posq chicken.compiler.c-backend#make-list chicken.compiler.c-backend#iota chicken.compiler.c-backend#find-tail chicken.compiler.c-backend#find chicken.compiler.c-backend#length+ chicken.compiler.c-backend#lset=/eq? chicken.compiler.c-backend#lset<=/eq? chicken.compiler.c-backend#list-tabulate chicken.compiler.c-backend#lset-intersection/eq? chicken.compiler.c-backend#lset-union/eq? chicken.compiler.c-backend#lset-difference/eq? chicken.compiler.c-backend#lset-adjoin/eq? chicken.compiler.c-backend#list-index chicken.compiler.c-backend#last chicken.compiler.c-backend#unzip1 chicken.compiler.c-backend#remove chicken.compiler.c-backend#filter-map chicken.compiler.c-backend#filter chicken.compiler.c-backend#alist-cons chicken.compiler.c-backend#delete-duplicates chicken.compiler.c-backend#fifth chicken.compiler.c-backend#fourth chicken.compiler.c-backend#third chicken.compiler.c-backend#second chicken.compiler.c-backend#first chicken.compiler.c-backend#delete chicken.compiler.c-backend#concatenate chicken.compiler.c-backend#cons* chicken.compiler.c-backend#any chicken.compiler.c-backend#every chicken.compiler.c-backend#append-map chicken.compiler.c-backend#split-at chicken.compiler.c-backend#drop chicken.compiler.c-backend#take chicken.compiler.c-backend#span chicken.compiler.c-backend#partition) o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#partition o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#span o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#drop o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#split-at o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#append-map o|inlining procedure: k3598 o|inlining procedure: k3598 o|inlining procedure: k3629 o|inlining procedure: k3629 o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#concatenate o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#delete-duplicates o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#alist-cons o|inlining procedure: k3846 o|inlining procedure: k3846 o|inlining procedure: k3838 o|inlining procedure: k3838 o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#filter-map o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#remove o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#unzip1 o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#last o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#list-index o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset-union/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset-intersection/eq? o|inlining procedure: k4237 o|inlining procedure: k4237 o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset<=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#length+ o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#find o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#find-tail o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#posq o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#posv o|inlining procedure: k4519 o|contracted procedure: "(c-backend.scm:61) g629636" o|inlining procedure: k4501 o|inlining procedure: k4501 o|inlining procedure: k4519 o|inlining procedure: k4556 o|contracted procedure: "(c-backend.scm:69) g649656" o|inlining procedure: k4556 o|inlining procedure: k4663 o|inlining procedure: k4663 o|inlining procedure: k4684 o|inlining procedure: k4703 o|inlining procedure: k4703 o|inlining procedure: "(c-backend.scm:116) chicken.compiler.c-backend#second" o|inlining procedure: k4709 o|inlining procedure: "(c-backend.scm:117) chicken.compiler.c-backend#second" o|inlining procedure: k4709 o|inlining procedure: k4735 o|inlining procedure: "(c-backend.scm:119) chicken.compiler.c-backend#second" o|inlining procedure: k4735 o|substituted constant variable: a4761 o|substituted constant variable: a4763 o|substituted constant variable: a4765 o|substituted constant variable: a4767 o|substituted constant variable: a4769 o|inlining procedure: "(c-backend.scm:115) chicken.compiler.c-backend#first" o|inlining procedure: k4684 o|inlining procedure: k4779 o|inlining procedure: k4779 o|inlining procedure: "(c-backend.scm:127) chicken.compiler.c-backend#first" o|inlining procedure: "(c-backend.scm:124) chicken.compiler.c-backend#first" o|inlining procedure: k4799 o|inlining procedure: "(c-backend.scm:130) chicken.compiler.c-backend#first" o|inlining procedure: k4799 o|inlining procedure: k4851 o|inlining procedure: "(c-backend.scm:142) chicken.compiler.c-backend#first" o|inlining procedure: k4851 o|inlining procedure: k4880 o|inlining procedure: k4880 o|inlining procedure: "(c-backend.scm:145) chicken.compiler.c-backend#first" o|inlining procedure: k4915 o|inlining procedure: "(c-backend.scm:158) chicken.compiler.c-backend#second" o|inlining procedure: "(c-backend.scm:156) chicken.compiler.c-backend#first" o|inlining procedure: "(c-backend.scm:154) chicken.compiler.c-backend#first" o|inlining procedure: k4915 o|inlining procedure: "(c-backend.scm:161) chicken.compiler.c-backend#first" o|inlining procedure: k4957 o|inlining procedure: "(c-backend.scm:165) chicken.compiler.c-backend#first" o|inlining procedure: k4957 o|inlining procedure: "(c-backend.scm:170) chicken.compiler.c-backend#first" o|inlining procedure: k4995 o|inlining procedure: "(c-backend.scm:176) chicken.compiler.c-backend#first" o|inlining procedure: k4995 o|inlining procedure: k5041 o|inlining procedure: "(c-backend.scm:186) chicken.compiler.c-backend#first" o|inlining procedure: k5041 o|inlining procedure: "(c-backend.scm:193) chicken.compiler.c-backend#first" o|inlining procedure: k5111 o|inlining procedure: k5111 o|inlining procedure: k5169 o|inlining procedure: k5212 o|inlining procedure: k5212 o|inlining procedure: "(c-backend.scm:212) chicken.compiler.c-backend#first" o|inlining procedure: k5169 o|inlining procedure: k5265 o|inlining procedure: "(c-backend.scm:227) chicken.compiler.c-backend#first" o|inlining procedure: k5265 o|inlining procedure: "(c-backend.scm:230) chicken.compiler.c-backend#first" o|inlining procedure: k5298 o|inlining procedure: k5316 o|inlining procedure: k5316 o|inlining procedure: "(c-backend.scm:242) chicken.compiler.c-backend#fourth" o|inlining procedure: k5337 o|inlining procedure: k5337 o|inlining procedure: "(c-backend.scm:236) chicken.compiler.c-backend#third" o|inlining procedure: "(c-backend.scm:235) chicken.compiler.c-backend#second" o|inlining procedure: "(c-backend.scm:234) chicken.compiler.c-backend#first" o|inlining procedure: k5298 o|inlining procedure: "(c-backend.scm:249) chicken.compiler.c-backend#third" o|inlining procedure: "(c-backend.scm:248) chicken.compiler.c-backend#second" o|inlining procedure: "(c-backend.scm:247) chicken.compiler.c-backend#first" o|inlining procedure: k5391 o|inlining procedure: "(c-backend.scm:260) chicken.compiler.c-backend#third" o|inlining procedure: "(c-backend.scm:259) chicken.compiler.c-backend#second" o|inlining procedure: "(c-backend.scm:258) chicken.compiler.c-backend#first" o|inlining procedure: k5391 o|inlining procedure: k5460 o|inlining procedure: "(c-backend.scm:299) chicken.compiler.c-backend#first" o|inlining procedure: k5523 o|inlining procedure: k5569 o|inlining procedure: k5569 o|inlining procedure: k5581 o|contracted procedure: "(c-backend.scm:311) g880903" o|inlining procedure: k5581 o|inlining procedure: k5618 o|inlining procedure: k5618 o|inlining procedure: k5661 o|inlining procedure: k5661 o|inlining procedure: k5698 o|substituted constant variable: a5707 o|inlining procedure: k5698 o|inlining procedure: k5523 o|inlining procedure: k5788 o|inlining procedure: "(c-backend.scm:353) chicken.compiler.c-backend#fourth" o|inlining procedure: k5788 o|inlining procedure: "(c-backend.scm:339) chicken.compiler.c-backend#third" o|inlining procedure: "(c-backend.scm:338) chicken.compiler.c-backend#second" o|inlining procedure: "(c-backend.scm:337) chicken.compiler.c-backend#first" o|inlining procedure: k5863 o|inlining procedure: k5863 o|propagated global variable: tmp952954 chicken.compiler.support#unsafe o|propagated global variable: tmp952954 chicken.compiler.support#unsafe o|propagated global variable: tmp955957 chicken.compiler.core#no-procedure-checks o|inlining procedure: k5878 o|propagated global variable: tmp955957 chicken.compiler.core#no-procedure-checks o|inlining procedure: k5878 o|substituted constant variable: a5885 o|inlining procedure: k5894 o|inlining procedure: k5894 o|inlining procedure: k5920 o|inlining procedure: k5930 o|inlining procedure: k5930 o|inlining procedure: k5920 o|inlining procedure: k5958 o|inlining procedure: "(c-backend.scm:284) chicken.compiler.c-backend#fourth" o|inlining procedure: k5958 o|inlining procedure: "(c-backend.scm:282) chicken.compiler.c-backend#third" o|inlining procedure: "(c-backend.scm:280) chicken.compiler.c-backend#second" o|inlining procedure: "(c-backend.scm:279) chicken.compiler.c-backend#first" o|inlining procedure: k5460 o|inlining procedure: k5998 o|inlining procedure: k6044 o|contracted procedure: "(c-backend.scm:391) g9971020" o|inlining procedure: k6044 o|inlining procedure: k6081 o|inlining procedure: k6081 o|inlining procedure: k5998 o|inlining procedure: "(c-backend.scm:380) chicken.compiler.c-backend#second" o|inlining procedure: "(c-backend.scm:379) chicken.compiler.c-backend#first" o|inlining procedure: k6136 o|inlining procedure: k6205 o|inlining procedure: k6205 o|inlining procedure: k6217 o|inlining procedure: k6217 o|inlining procedure: k6235 o|inlining procedure: k6245 o|inlining procedure: k6245 o|inlining procedure: k6235 o|inlining procedure: "(c-backend.scm:409) chicken.compiler.c-backend#fourth" o|inlining procedure: "(c-backend.scm:407) chicken.compiler.c-backend#third" o|inlining procedure: "(c-backend.scm:405) chicken.compiler.c-backend#first" o|inlining procedure: k6136 o|inlining procedure: "(c-backend.scm:434) chicken.compiler.c-backend#first" o|substituted constant variable: a6291 o|inlining procedure: k6281 o|inlining procedure: "(c-backend.scm:443) chicken.compiler.c-backend#first" o|inlining procedure: k6281 o|inlining procedure: "(c-backend.scm:447) chicken.compiler.c-backend#first" o|inlining procedure: k6328 o|inlining procedure: "(c-backend.scm:451) chicken.compiler.c-backend#first" o|inlining procedure: k6328 o|inlining procedure: k6361 o|inlining procedure: k6361 o|inlining procedure: "(c-backend.scm:456) chicken.compiler.c-backend#first" o|inlining procedure: k6364 o|inlining procedure: "(c-backend.scm:460) chicken.compiler.c-backend#first" o|inlining procedure: k6364 o|inlining procedure: "(c-backend.scm:468) chicken.compiler.c-backend#first" o|inlining procedure: "(c-backend.scm:468) chicken.compiler.c-backend#second" o|inlining procedure: k6417 o|inlining procedure: "(c-backend.scm:473) chicken.compiler.c-backend#first" o|inlining procedure: "(c-backend.scm:472) chicken.compiler.c-backend#first" o|inlining procedure: "(c-backend.scm:471) chicken.compiler.c-backend#second" o|inlining procedure: k6417 o|inlining procedure: "(c-backend.scm:479) chicken.compiler.c-backend#first" o|inlining procedure: "(c-backend.scm:477) chicken.compiler.c-backend#first" o|inlining procedure: k6481 o|inlining procedure: "(c-backend.scm:487) chicken.compiler.c-backend#second" o|inlining procedure: "(c-backend.scm:485) chicken.compiler.c-backend#first" o|inlining procedure: "(c-backend.scm:483) chicken.compiler.c-backend#first" o|inlining procedure: k6481 o|inlining procedure: k6550 o|inlining procedure: k6550 o|inlining procedure: "(c-backend.scm:494) chicken.compiler.c-backend#first" o|inlining procedure: "(c-backend.scm:492) chicken.compiler.c-backend#first" o|inlining procedure: k6600 o|inlining procedure: "(c-backend.scm:511) chicken.compiler.c-backend#third" o|inlining procedure: "(c-backend.scm:509) chicken.compiler.c-backend#second" o|inlining procedure: "(c-backend.scm:507) chicken.compiler.c-backend#first" o|inlining procedure: k6600 o|substituted constant variable: a6647 o|substituted constant variable: a6649 o|substituted constant variable: a6651 o|substituted constant variable: a6653 o|substituted constant variable: a6655 o|substituted constant variable: a6657 o|substituted constant variable: a6659 o|substituted constant variable: a6661 o|substituted constant variable: a6663 o|substituted constant variable: a6665 o|substituted constant variable: a6667 o|substituted constant variable: a6669 o|substituted constant variable: a6671 o|substituted constant variable: a6673 o|substituted constant variable: a6675 o|substituted constant variable: a6677 o|substituted constant variable: a6679 o|substituted constant variable: a6681 o|substituted constant variable: a6683 o|substituted constant variable: a6685 o|substituted constant variable: a6687 o|substituted constant variable: a6689 o|substituted constant variable: a6691 o|substituted constant variable: a6693 o|substituted constant variable: a6695 o|substituted constant variable: a6697 o|substituted constant variable: a6699 o|substituted constant variable: a6701 o|substituted constant variable: a6703 o|substituted constant variable: a6705 o|substituted constant variable: a6707 o|substituted constant variable: a6709 o|substituted constant variable: a6711 o|substituted constant variable: a6713 o|substituted constant variable: a6715 o|substituted constant variable: a6717 o|substituted constant variable: a6719 o|substituted constant variable: a6721 o|substituted constant variable: a6723 o|inlining procedure: k6733 o|inlining procedure: k6733 o|inlining procedure: k6796 o|inlining procedure: k6796 o|inlining procedure: k6834 o|inlining procedure: k6834 o|inlining procedure: k6861 o|inlining procedure: k6861 o|inlining procedure: k6874 o|inlining procedure: k6874 o|inlining procedure: k6910 o|inlining procedure: k6910 o|inlining procedure: k6933 o|contracted procedure: "(c-backend.scm:578) g11871194" o|inlining procedure: k6933 o|propagated global variable: g11931195 chicken.compiler.core#foreign-declarations o|inlining procedure: k6993 o|contracted procedure: "(c-backend.scm:562) g11571166" o|inlining procedure: k6993 o|inlining procedure: k7083 o|inlining procedure: k7083 o|inlining procedure: k7123 o|inlining procedure: k7123 o|substituted constant variable: a7137 o|inlining procedure: k7141 o|inlining procedure: k7141 o|substituted constant variable: a7172 o|inlining procedure: k7192 o|contracted procedure: "(c-backend.scm:593) g12151223" o|inlining procedure: k7192 o|inlining procedure: k7215 o|inlining procedure: k7215 o|propagated global variable: g12401244 chicken.compiler.core#used-units o|inlining procedure: k7410 o|contracted procedure: "(c-backend.scm:621) g12841291" o|inlining procedure: k7303 o|inlining procedure: k7303 o|inlining procedure: k7327 o|inlining procedure: k7327 o|inlining procedure: k7356 o|inlining procedure: k7356 o|inlining procedure: k7369 o|inlining procedure: k7369 o|inlining procedure: k7393 o|inlining procedure: k7393 o|inlining procedure: k7410 o|inlining procedure: k7484 o|contracted procedure: "(c-backend.scm:685) restore1348" o|inlining procedure: k7444 o|inlining procedure: k7444 o|inlining procedure: k7484 o|inlining procedure: k7537 o|inlining procedure: k7537 o|inlining procedure: k7566 o|inlining procedure: k7566 o|substituted constant variable: a7591 o|substituted constant variable: a7592 o|inlining procedure: k7614 o|inlining procedure: k7614 o|inlining procedure: k7626 o|inlining procedure: k7626 o|inlining procedure: k7638 o|propagated global variable: r763913805 chicken.compiler.c-platform#words-per-flonum o|inlining procedure: k7638 o|inlining procedure: k7650 o|inlining procedure: k7650 o|inlining procedure: k7677 o|inlining procedure: k7709 o|inlining procedure: k7709 o|substituted constant variable: g14091412 o|inlining procedure: k7733 o|inlining procedure: k7733 o|inlining procedure: k7677 o|inlining procedure: k7771 o|inlining procedure: "(c-backend.scm:714) bad-literal698" o|inlining procedure: k7771 o|inlining procedure: k7783 o|inlining procedure: k7783 o|substituted constant variable: a7813 o|inlining procedure: k7818 o|inlining procedure: k7818 o|inlining procedure: k7841 o|inlining procedure: k7841 o|inlining procedure: "(c-backend.scm:730) bad-literal698" o|inlining procedure: k7897 o|inlining procedure: k7897 o|inlining procedure: k7912 o|inlining procedure: k7912 o|inlining procedure: k7931 o|inlining procedure: k7931 o|inlining procedure: k7934 o|inlining procedure: k7934 o|inlining procedure: k7977 o|inlining procedure: k7977 o|inlining procedure: k7992 o|inlining procedure: k7992 o|inlining procedure: "(c-backend.scm:760) bad-literal698" o|substituted constant variable: a8058 o|inlining procedure: k8065 o|inlining procedure: k8065 o|inlining procedure: k8257 o|inlining procedure: k8257 o|inlining procedure: k8267 o|inlining procedure: k8286 o|inlining procedure: k8286 o|inlining procedure: k8267 o|inlining procedure: k8343 o|inlining procedure: k8343 o|inlining procedure: k8398 o|inlining procedure: k8398 o|inlining procedure: k8424 o|inlining procedure: k8424 o|propagated global variable: tmp16061608 chicken.compiler.core#unit-name o|inlining procedure: k8440 o|propagated global variable: tmp16061608 chicken.compiler.core#unit-name o|inlining procedure: k8440 o|inlining procedure: k8446 o|inlining procedure: k8446 o|substituted constant variable: g15921595 o|inlining procedure: k8476 o|inlining procedure: k8503 o|inlining procedure: k8503 o|inlining procedure: k8476 o|inlining procedure: k8543 o|inlining procedure: k8543 o|inlining procedure: k8555 o|inlining procedure: k8555 o|inlining procedure: k8573 o|inlining procedure: k8573 o|inlining procedure: k8597 o|inlining procedure: k8597 o|inlining procedure: k8629 o|contracted procedure: "(c-backend.scm:840) g15701577" o|inlining procedure: k8629 o|inlining procedure: k8656 o|inlining procedure: k8656 o|inlining procedure: k8671 o|inlining procedure: k8671 o|inlining procedure: k8684 o|inlining procedure: k8684 o|inlining procedure: k8717 o|inlining procedure: k8717 o|inlining procedure: k8743 o|inlining procedure: k8743 o|inlining procedure: k8756 o|inlining procedure: k8756 o|inlining procedure: k8783 o|inlining procedure: k8783 o|inlining procedure: k8790 o|inlining procedure: k8790 o|inlining procedure: k8797 o|inlining procedure: k8797 o|inlining procedure: k8817 o|inlining procedure: k8817 o|contracted procedure: "(c-backend.scm:947) trailer693" o|contracted procedure: "(c-backend.scm:946) chicken.compiler.c-backend#emit-procedure-table" o|inlining procedure: k9016 o|inlining procedure: k9016 o|inlining procedure: k9054 o|inlining procedure: k9054 o|contracted procedure: "(c-backend.scm:944) chicken.compiler.c-backend#emit-debug-table" o|inlining procedure: k8967 o|contracted procedure: "(c-backend.scm:954) g17191726" o|inlining procedure: k8928 o|contracted procedure: "(c-backend.scm:957) g17321739" o|inlining procedure: k8893 o|inlining procedure: k8893 o|inlining procedure: k8928 o|inlining procedure: "(c-backend.scm:956) chicken.compiler.c-backend#second" o|inlining procedure: k8967 o|contracted procedure: "(c-backend.scm:941) chicken.compiler.c-backend#generate-foreign-callback-stubs" o|inlining procedure: k9669 o|inlining procedure: k9669 o|inlining procedure: k9690 o|inlining procedure: k9690 o|inlining procedure: k9714 o|inlining procedure: k9714 o|inlining procedure: k9741 o|inlining procedure: k9741 o|inlining procedure: k9763 o|inlining procedure: k9763 o|substituted constant variable: a9789 o|inlining procedure: k9793 o|inlining procedure: k9793 o|inlining procedure: k9805 o|inlining procedure: k9805 o|inlining procedure: k9817 o|inlining procedure: k9817 o|inlining procedure: k9829 o|inlining procedure: k9829 o|substituted constant variable: a9836 o|substituted constant variable: a9838 o|substituted constant variable: a9840 o|substituted constant variable: a9842 o|substituted constant variable: a9844 o|substituted constant variable: a9846 o|substituted constant variable: a9848 o|substituted constant variable: a9850 o|substituted constant variable: a9852 o|inlining procedure: k9862 o|inlining procedure: k9862 o|inlining procedure: k9874 o|inlining procedure: k9874 o|substituted constant variable: a9881 o|substituted constant variable: a9883 o|substituted constant variable: a9885 o|substituted constant variable: a9887 o|substituted constant variable: a9889 o|inlining procedure: k9893 o|inlining procedure: k9893 o|inlining procedure: k9905 o|inlining procedure: k9905 o|substituted constant variable: a9912 o|substituted constant variable: a9914 o|substituted constant variable: a9916 o|substituted constant variable: a9918 o|substituted constant variable: a9920 o|inlining procedure: k9924 o|inlining procedure: k9924 o|substituted constant variable: a9937 o|substituted constant variable: a9939 o|substituted constant variable: a9941 o|substituted constant variable: a9943 o|inlining procedure: k9947 o|inlining procedure: k9947 o|inlining procedure: k9959 o|inlining procedure: k9959 o|inlining procedure: k9971 o|inlining procedure: k9971 o|substituted constant variable: a9978 o|substituted constant variable: a9980 o|substituted constant variable: a9982 o|substituted constant variable: a9984 o|substituted constant variable: a9986 o|substituted constant variable: a9988 o|substituted constant variable: a9990 o|inlining procedure: k9994 o|inlining procedure: k9994 o|inlining procedure: k10006 o|inlining procedure: k10006 o|substituted constant variable: a10019 o|substituted constant variable: a10021 o|substituted constant variable: a10023 o|substituted constant variable: a10025 o|substituted constant variable: a10027 o|substituted constant variable: a10029 o|inlining procedure: k10033 o|inlining procedure: k10033 o|inlining procedure: k10045 o|inlining procedure: k10045 o|inlining procedure: k10057 o|inlining procedure: k10057 o|inlining procedure: k10069 o|inlining procedure: k10069 o|inlining procedure: k10081 o|inlining procedure: k10081 o|inlining procedure: k10093 o|inlining procedure: k10093 o|substituted constant variable: a10100 o|substituted constant variable: a10102 o|substituted constant variable: a10104 o|substituted constant variable: a10106 o|substituted constant variable: a10108 o|substituted constant variable: a10110 o|substituted constant variable: a10112 o|substituted constant variable: a10114 o|substituted constant variable: a10116 o|substituted constant variable: a10118 o|substituted constant variable: a10120 o|substituted constant variable: a10122 o|substituted constant variable: a10124 o|inlining procedure: k10167 o|inlining procedure: k10167 o|inlining procedure: k10192 o|contracted procedure: "(c-backend.scm:1175) g21582166" o|inlining procedure: k10192 o|inlining procedure: k10227 o|inlining procedure: k10227 o|inlining procedure: k10243 o|inlining procedure: k10243 o|propagated global variable: stubs1976 chicken.compiler.support#foreign-callback-stubs o|inlining procedure: k10277 o|inlining procedure: k10277 o|contracted procedure: "(c-backend.scm:939) chicken.compiler.c-backend#generate-foreign-stubs" o|inlining procedure: k9415 o|inlining procedure: k9433 o|inlining procedure: k9433 o|inlining procedure: k9415 o|inlining procedure: k9463 o|inlining procedure: k9463 o|inlining procedure: k9505 o|contracted procedure: "(c-backend.scm:1088) g19001920" o|inlining procedure: k9379 o|substituted constant variable: a9389 o|substituted constant variable: a9390 o|inlining procedure: k9379 o|inlining procedure: k9505 o|inlining procedure: k9544 o|inlining procedure: k9544 o|contracted procedure: "(c-backend.scm:1096) chicken.compiler.c-backend#iota" o|inlining procedure: k9562 o|inlining procedure: k9562 o|contracted procedure: "(c-backend.scm:1066) chicken.compiler.c-backend#make-list" o|propagated global variable: stubs1865 chicken.compiler.core#foreign-lambda-stubs o|inlining procedure: k9623 o|inlining procedure: k9623 o|contracted procedure: "(c-backend.scm:938) chicken.compiler.c-backend#generate-external-variables" o|inlining procedure: k9242 o|contracted procedure: "(c-backend.scm:1037) g18231830" o|inlining procedure: k9242 o|propagated global variable: a8878 chicken.flonum#flonum-maximum-decimal-exponent o|substituted constant variable: a8879 o|contracted procedure: "(c-backend.scm:94) chicken.compiler.c-backend#table->sorted-alist" o|inlining procedure: k9082 o|inlining procedure: k9082 o|contracted procedure: "(c-backend.scm:998) chicken.compiler.c-backend#c-identifier" o|inlining procedure: k9107 o|inlining procedure: k9107 o|substituted constant variable: a9128 o|inlining procedure: k9142 o|inlining procedure: k9142 o|substituted constant variable: a9149 o|inlining procedure: k9150 o|inlining procedure: k9150 o|substituted constant variable: a9157 o|inlining procedure: k9158 o|substituted constant variable: a9164 o|inlining procedure: k9158 o|inlining procedure: k9285 o|contracted procedure: "(c-backend.scm:1049) g18471854" o|inlining procedure: k9285 o|inlining procedure: k10330 o|inlining procedure: k10330 o|inlining procedure: k10386 o|inlining procedure: k10386 o|inlining procedure: k10407 o|inlining procedure: k10407 o|inlining procedure: k10431 o|inlining procedure: k10431 o|inlining procedure: k10455 o|inlining procedure: k10455 o|inlining procedure: k10473 o|inlining procedure: k10473 o|inlining procedure: k10494 o|inlining procedure: k10494 o|inlining procedure: k10512 o|inlining procedure: k10512 o|inlining procedure: k10530 o|inlining procedure: k10530 o|inlining procedure: k10548 o|inlining procedure: k10548 o|inlining procedure: k10572 o|inlining procedure: k10572 o|inlining procedure: k10593 o|inlining procedure: k10593 o|inlining procedure: k10617 o|inlining procedure: k10617 o|inlining procedure: k10641 o|inlining procedure: k10641 o|inlining procedure: k10665 o|inlining procedure: k10665 o|inlining procedure: k10689 o|inlining procedure: k10689 o|inlining procedure: k10713 o|inlining procedure: k10713 o|inlining procedure: k10737 o|inlining procedure: k10737 o|inlining procedure: k10764 o|inlining procedure: k10764 o|inlining procedure: k10780 o|inlining procedure: k10780 o|inlining procedure: k10814 o|inlining procedure: k10856 o|contracted procedure: "(c-backend.scm:1268) g23452354" o|propagated global variable: g23622363 chicken.compiler.c-backend#foreign-type-declaration o|inlining procedure: k10856 o|inlining procedure: k10814 o|inlining procedure: k10908 o|inlining procedure: k10908 o|inlining procedure: k10942 o|inlining procedure: k10942 o|inlining procedure: k10976 o|inlining procedure: k10976 o|inlining procedure: k11046 o|contracted procedure: "(c-backend.scm:1292) g23932402" o|inlining procedure: k11028 o|inlining procedure: k11028 o|inlining procedure: k11046 o|substituted constant variable: a11097 o|substituted constant variable: a11109 o|substituted constant variable: a11117 o|substituted constant variable: a11119 o|substituted constant variable: a11131 o|substituted constant variable: a11143 o|substituted constant variable: a11155 o|substituted constant variable: a11167 o|substituted constant variable: a11179 o|substituted constant variable: a11190 o|substituted constant variable: a11199 o|substituted constant variable: a11200 o|substituted constant variable: a11212 o|inlining procedure: k11216 o|inlining procedure: k11216 o|substituted constant variable: a11229 o|substituted constant variable: a11231 o|substituted constant variable: a11233 o|substituted constant variable: a11235 o|inlining procedure: k11239 o|inlining procedure: k11239 o|inlining procedure: k11251 o|inlining procedure: k11251 o|substituted constant variable: a11258 o|substituted constant variable: a11260 o|substituted constant variable: a11262 o|substituted constant variable: a11264 o|substituted constant variable: a11266 o|substituted constant variable: a11271 o|substituted constant variable: a11273 o|substituted constant variable: a11278 o|substituted constant variable: a11280 o|substituted constant variable: a11285 o|substituted constant variable: a11287 o|substituted constant variable: a11292 o|substituted constant variable: a11294 o|substituted constant variable: a11299 o|substituted constant variable: a11301 o|substituted constant variable: a11306 o|substituted constant variable: a11308 o|substituted constant variable: a11313 o|substituted constant variable: a11315 o|substituted constant variable: a11320 o|substituted constant variable: a11322 o|substituted constant variable: a11327 o|substituted constant variable: a11329 o|substituted constant variable: a11334 o|substituted constant variable: a11336 o|inlining procedure: k11340 o|inlining procedure: k11340 o|substituted constant variable: a11353 o|substituted constant variable: a11355 o|substituted constant variable: a11357 o|substituted constant variable: a11359 o|substituted constant variable: a11364 o|substituted constant variable: a11366 o|inlining procedure: k11370 o|inlining procedure: k11370 o|substituted constant variable: a11383 o|substituted constant variable: a11385 o|substituted constant variable: a11387 o|substituted constant variable: a11389 o|substituted constant variable: a11394 o|substituted constant variable: a11396 o|substituted constant variable: a11398 o|substituted constant variable: a11400 o|substituted constant variable: a11402 o|substituted constant variable: a11404 o|substituted constant variable: a11406 o|substituted constant variable: a11408 o|substituted constant variable: a11410 o|substituted constant variable: a11415 o|substituted constant variable: a11417 o|substituted constant variable: a11419 o|substituted constant variable: a11421 o|inlining procedure: k11425 o|inlining procedure: k11425 o|substituted constant variable: a11432 o|substituted constant variable: a11434 o|substituted constant variable: a11436 o|substituted constant variable: a11441 o|substituted constant variable: a11443 o|substituted constant variable: a11448 o|substituted constant variable: a11450 o|substituted constant variable: a11455 o|substituted constant variable: a11457 o|substituted constant variable: a11462 o|substituted constant variable: a11464 o|substituted constant variable: a11466 o|inlining procedure: k11475 o|inlining procedure: k11475 o|inlining procedure: k11490 o|inlining procedure: k11490 o|inlining procedure: k11505 o|inlining procedure: k11505 o|inlining procedure: k11517 o|inlining procedure: k11517 o|inlining procedure: k11535 o|inlining procedure: k11535 o|inlining procedure: k11547 o|inlining procedure: k11547 o|inlining procedure: k11559 o|inlining procedure: k11559 o|inlining procedure: k11574 o|inlining procedure: k11574 o|inlining procedure: k11586 o|inlining procedure: k11586 o|inlining procedure: k11598 o|inlining procedure: k11598 o|inlining procedure: k11610 o|inlining procedure: k11610 o|inlining procedure: k11622 o|inlining procedure: k11622 o|inlining procedure: k11634 o|inlining procedure: k11634 o|inlining procedure: k11646 o|inlining procedure: k11646 o|inlining procedure: k11658 o|inlining procedure: k11658 o|inlining procedure: k11670 o|inlining procedure: k11670 o|inlining procedure: k11682 o|inlining procedure: k11682 o|inlining procedure: k11694 o|inlining procedure: k11694 o|inlining procedure: k11706 o|inlining procedure: k11706 o|inlining procedure: k11718 o|inlining procedure: k11718 o|inlining procedure: k11730 o|inlining procedure: k11730 o|inlining procedure: k11742 o|inlining procedure: k11742 o|inlining procedure: k11760 o|inlining procedure: k11760 o|contracted procedure: "(c-backend.scm:1356) g24792480" o|inlining procedure: k11784 o|inlining procedure: k11799 o|inlining procedure: k11799 o|inlining procedure: k11811 o|inlining procedure: k11811 o|inlining procedure: k11823 o|inlining procedure: k11823 o|inlining procedure: k11835 o|inlining procedure: k11835 o|inlining procedure: k11854 o|inlining procedure: k11854 o|substituted constant variable: a11888 o|substituted constant variable: a11890 o|substituted constant variable: a11892 o|substituted constant variable: a11894 o|substituted constant variable: a11896 o|substituted constant variable: a11898 o|substituted constant variable: a11900 o|substituted constant variable: a11902 o|substituted constant variable: a11904 o|substituted constant variable: a11906 o|substituted constant variable: a11908 o|inlining procedure: k11784 o|substituted constant variable: a11920 o|substituted constant variable: a11928 o|inlining procedure: k11932 o|inlining procedure: k11932 o|inlining procedure: k11944 o|inlining procedure: k11944 o|substituted constant variable: a11951 o|substituted constant variable: a11953 o|substituted constant variable: a11955 o|substituted constant variable: a11957 o|substituted constant variable: a11959 o|inlining procedure: k11963 o|inlining procedure: k11963 o|substituted constant variable: a11976 o|substituted constant variable: a11978 o|substituted constant variable: a11980 o|substituted constant variable: a11982 o|substituted constant variable: a11984 o|substituted constant variable: a11986 o|substituted constant variable: a11988 o|substituted constant variable: a11990 o|substituted constant variable: a11992 o|substituted constant variable: a11994 o|substituted constant variable: a11996 o|substituted constant variable: a11998 o|substituted constant variable: a12000 o|substituted constant variable: a12002 o|substituted constant variable: a12004 o|substituted constant variable: a12006 o|substituted constant variable: a12008 o|substituted constant variable: a12010 o|substituted constant variable: a12012 o|substituted constant variable: a12014 o|substituted constant variable: a12016 o|substituted constant variable: a12018 o|substituted constant variable: a12020 o|substituted constant variable: a12022 o|substituted constant variable: a12024 o|substituted constant variable: a12026 o|substituted constant variable: a12028 o|substituted constant variable: a12030 o|substituted constant variable: a12032 o|substituted constant variable: a12034 o|substituted constant variable: a12036 o|substituted constant variable: a12038 o|substituted constant variable: a12043 o|substituted constant variable: a12045 o|substituted constant variable: a12047 o|substituted constant variable: a12049 o|substituted constant variable: a12051 o|substituted constant variable: a12053 o|substituted constant variable: a12055 o|substituted constant variable: a12060 o|substituted constant variable: a12062 o|inlining procedure: k12066 o|inlining procedure: k12066 o|substituted constant variable: a12073 o|substituted constant variable: a12075 o|substituted constant variable: a12077 o|substituted constant variable: a12079 o|substituted constant variable: a12081 o|substituted constant variable: a12083 o|inlining procedure: k12087 o|inlining procedure: k12087 o|inlining procedure: k12099 o|inlining procedure: k12099 o|substituted constant variable: a12112 o|substituted constant variable: a12114 o|substituted constant variable: a12116 o|substituted constant variable: a12118 o|substituted constant variable: a12120 o|substituted constant variable: a12122 o|substituted constant variable: a12127 o|substituted constant variable: a12129 o|substituted constant variable: a12131 o|inlining procedure: k12140 o|inlining procedure: k12140 o|inlining procedure: k12158 o|inlining procedure: k12158 o|inlining procedure: k12173 o|inlining procedure: k12173 o|inlining procedure: k12185 o|inlining procedure: k12185 o|substituted constant variable: a12204 o|substituted constant variable: a12205 o|substituted constant variable: a12228 o|substituted constant variable: a12229 o|inlining procedure: k12218 o|inlining procedure: k12218 o|substituted constant variable: a12255 o|substituted constant variable: a12256 o|substituted constant variable: a12279 o|substituted constant variable: a12280 o|inlining procedure: k12269 o|inlining procedure: k12269 o|substituted constant variable: a12306 o|substituted constant variable: a12307 o|substituted constant variable: a12333 o|substituted constant variable: a12334 o|inlining procedure: k12320 o|inlining procedure: k12320 o|substituted constant variable: a12360 o|substituted constant variable: a12361 o|substituted constant variable: a12387 o|substituted constant variable: a12388 o|inlining procedure: k12374 o|inlining procedure: k12374 o|substituted constant variable: a12411 o|substituted constant variable: a12412 o|substituted constant variable: a12435 o|substituted constant variable: a12436 o|inlining procedure: k12425 o|inlining procedure: k12425 o|inlining procedure: k12455 o|inlining procedure: k12455 o|inlining procedure: k12482 o|substituted constant variable: a12504 o|substituted constant variable: a12505 o|substituted constant variable: a12528 o|substituted constant variable: a12529 o|inlining procedure: k12518 o|inlining procedure: k12518 o|substituted constant variable: a12552 o|substituted constant variable: a12553 o|substituted constant variable: a12576 o|substituted constant variable: a12577 o|inlining procedure: k12566 o|inlining procedure: k12566 o|substituted constant variable: a12600 o|substituted constant variable: a12601 o|inlining procedure: k12614 o|inlining procedure: k12614 o|substituted constant variable: a12640 o|substituted constant variable: a12641 o|substituted constant variable: a12664 o|substituted constant variable: a12665 o|inlining procedure: k12654 o|inlining procedure: k12654 o|substituted constant variable: a12688 o|substituted constant variable: a12689 o|substituted constant variable: a12706 o|substituted constant variable: a12708 o|substituted constant variable: a12713 o|substituted constant variable: a12715 o|substituted constant variable: a12717 o|substituted constant variable: a12719 o|substituted constant variable: a12721 o|substituted constant variable: a12723 o|substituted constant variable: a12725 o|substituted constant variable: a12730 o|substituted constant variable: a12732 o|inlining procedure: k12482 o|substituted constant variable: a12744 o|substituted constant variable: a12755 o|substituted constant variable: a12757 o|substituted constant variable: a12759 o|substituted constant variable: a12761 o|substituted constant variable: a12763 o|substituted constant variable: a12768 o|substituted constant variable: a12770 o|substituted constant variable: a12775 o|substituted constant variable: a12777 o|substituted constant variable: a12782 o|substituted constant variable: a12784 o|substituted constant variable: a12789 o|substituted constant variable: a12791 o|substituted constant variable: a12793 o|inlining procedure: k12797 o|inlining procedure: k12797 o|inlining procedure: k12809 o|inlining procedure: k12809 o|inlining procedure: k12821 o|inlining procedure: k12821 o|inlining procedure: k12833 o|inlining procedure: k12833 o|inlining procedure: k12845 o|inlining procedure: k12845 o|substituted constant variable: a12858 o|substituted constant variable: a12860 o|substituted constant variable: a12862 o|substituted constant variable: a12864 o|substituted constant variable: a12866 o|substituted constant variable: a12868 o|substituted constant variable: a12870 o|substituted constant variable: a12872 o|substituted constant variable: a12874 o|substituted constant variable: a12876 o|substituted constant variable: a12878 o|substituted constant variable: a12880 o|substituted constant variable: a12882 o|substituted constant variable: a12887 o|substituted constant variable: a12889 o|substituted constant variable: a12891 o|substituted constant variable: a12893 o|substituted constant variable: a12895 o|substituted constant variable: a12897 o|substituted constant variable: a12902 o|substituted constant variable: a12904 o|substituted constant variable: a12909 o|substituted constant variable: a12911 o|substituted constant variable: a12916 o|substituted constant variable: a12918 o|inlining procedure: k12931 o|inlining procedure: k12931 o|contracted procedure: "(c-backend.scm:1462) finish2803" o|inlining procedure: k12999 o|inlining procedure: k12999 o|inlining procedure: k13022 o|inlining procedure: k13022 o|inlining procedure: k13034 o|inlining procedure: k13034 o|substituted constant variable: a13049 o|inlining procedure: k13098 o|substituted constant variable: a13118 o|inlining procedure: k13098 o|inlining procedure: k13133 o|inlining procedure: k13153 o|inlining procedure: k13153 o|inlining procedure: k13133 o|inlining procedure: k13172 o|inlining procedure: "(c-backend.scm:1501) getsize2801" o|inlining procedure: "(c-backend.scm:1500) getbits2800" o|inlining procedure: k13172 o|contracted procedure: "(c-backend.scm:1506) chicken.compiler.c-backend#cons*" o|inlining procedure: k3659 o|inlining procedure: k3659 o|inlining procedure: "(c-backend.scm:1507) getbits2800" o|inlining procedure: "(c-backend.scm:1504) getsize2801" o|replaced variables: 2113 o|removed binding forms: 621 o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#every o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#any o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#first o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#second o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#third o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#fourth o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#filter o|substituted constant variable: r423813267 o|substituted constant variable: r470413278 o|substituted constant variable: r470413278 o|substituted constant variable: r470413280 o|substituted constant variable: r470413280 o|inlining procedure: k5688 o|substituted constant variable: r569913499 o|substituted constant variable: r569913499 o|propagated global variable: r587913534 chicken.compiler.core#no-procedure-checks o|substituted constant variable: r589513537 o|substituted constant variable: r593113539 o|substituted constant variable: r593113539 o|substituted constant variable: r593113541 o|substituted constant variable: r593113541 o|substituted constant variable: r595913550 o|substituted constant variable: r624613589 o|substituted constant variable: r624613589 o|substituted constant variable: r624613591 o|substituted constant variable: r624613591 o|substituted constant variable: r636213634 o|substituted constant variable: r636213634 o|substituted constant variable: r636213636 o|substituted constant variable: r636213636 o|inlining procedure: k6373 o|substituted constant variable: r686213740 o|substituted constant variable: r737013784 o|substituted constant variable: r737013784 o|substituted constant variable: r737013786 o|substituted constant variable: r737013786 o|contracted procedure: "(c-backend.scm:671) g13411356" o|removed side-effect free assignment to unused variable: bad-literal698 o|substituted constant variable: r761513801 o|substituted constant variable: r762713803 o|substituted constant variable: r765113807 o|substituted constant variable: r793213837 o|substituted constant variable: r793213837 o|substituted constant variable: r793213839 o|substituted constant variable: r793213839 o|propagated global variable: r844113876 chicken.compiler.core#unit-name o|substituted constant variable: r850413884 o|substituted constant variable: r854413886 o|substituted constant variable: r854413886 o|substituted constant variable: r854413888 o|substituted constant variable: r854413888 o|substituted constant variable: r857413893 o|substituted constant variable: r859813895 o|substituted constant variable: r867213902 o|substituted constant variable: r867213902 o|substituted constant variable: r875713918 o|substituted constant variable: r875713918 o|substituted constant variable: r875713920 o|substituted constant variable: r875713920 o|inlining procedure: k8762 o|substituted constant variable: r879813930 o|substituted constant variable: r879813930 o|substituted constant variable: r879813932 o|substituted constant variable: r879813932 o|substituted constant variable: r1022814013 o|substituted constant variable: r1022814013 o|substituted constant variable: r1022814015 o|substituted constant variable: r1022814015 o|propagated global variable: g19871989 chicken.compiler.support#foreign-callback-stubs o|substituted constant variable: r954514042 o|propagated global variable: g18761878 chicken.compiler.core#foreign-lambda-stubs o|substituted constant variable: r908314049 o|inlining procedure: k9132 o|inlining procedure: k9132 o|substituted constant variable: r915914058 o|substituted constant variable: r1057314081 o|substituted constant variable: r1102914112 o|substituted constant variable: r1147614127 o|substituted constant variable: r1149114129 o|substituted constant variable: r1150614131 o|substituted constant variable: r1151814133 o|substituted constant variable: r1153614135 o|substituted constant variable: r1154814137 o|substituted constant variable: r1156014139 o|substituted constant variable: r1157514141 o|substituted constant variable: r1158714143 o|substituted constant variable: r1159914145 o|substituted constant variable: r1161114147 o|substituted constant variable: r1162314149 o|substituted constant variable: r1163514151 o|substituted constant variable: r1164714153 o|substituted constant variable: r1165914155 o|substituted constant variable: r1167114157 o|substituted constant variable: r1168314159 o|substituted constant variable: r1169514161 o|substituted constant variable: r1170714163 o|substituted constant variable: r1171914165 o|substituted constant variable: r1173114167 o|substituted constant variable: r1174314169 o|substituted constant variable: r1176114171 o|substituted constant variable: r1180014174 o|substituted constant variable: r1181214176 o|substituted constant variable: r1182414178 o|substituted constant variable: r1214114197 o|substituted constant variable: r1215914199 o|substituted constant variable: r1217414201 o|substituted constant variable: r1218614203 o|substituted constant variable: r1245614215 o|removed side-effect free assignment to unused variable: getbits2800 o|removed side-effect free assignment to unused variable: getsize2801 o|substituted constant variable: r1300014239 o|substituted constant variable: r1302314241 o|substituted constant variable: r1303514243 o|substituted constant variable: r1315414248 o|substituted constant variable: r1315414248 o|substituted constant variable: r1315414250 o|substituted constant variable: r1315414250 o|replaced variables: 168 o|removed binding forms: 2151 o|inlining procedure: "(c-backend.scm:253) chicken.compiler.c-backend#uncommentify" o|inlining procedure: "(c-backend.scm:263) chicken.compiler.c-backend#uncommentify" o|inlining procedure: "(c-backend.scm:268) chicken.compiler.c-backend#uncommentify" o|inlining procedure: k5667 o|inlining procedure: "(c-backend.scm:290) chicken.compiler.c-backend#backslashify" o|inlining procedure: "(c-backend.scm:291) chicken.compiler.c-backend#uncommentify" o|inlining procedure: "(c-backend.scm:285) chicken.compiler.c-backend#fifth" o|inlining procedure: k6124 o|inlining procedure: k6187 o|inlining procedure: k6223 o|inlining procedure: "(c-backend.scm:417) chicken.compiler.c-backend#backslashify" o|inlining procedure: "(c-backend.scm:418) chicken.compiler.c-backend#uncommentify" o|inlining procedure: "(c-backend.scm:410) chicken.compiler.c-backend#fifth" o|inlining procedure: k6907 o|inlining procedure: k7312 o|inlining procedure: k7312 o|propagated global variable: r844113876 chicken.compiler.core#unit-name o|inlining procedure: k8485 o|inlining procedure: k8591 o|inlining procedure: k8591 o|inlining procedure: k8702 o|inlining procedure: k8702 o|inlining procedure: "(c-backend.scm:584) chicken.compiler.c-backend#uncommentify" o|inlining procedure: "(c-backend.scm:961) chicken.compiler.c-backend#backslashify" o|inlining procedure: k4414 o|inlining procedure: k9119 o|inlining procedure: k13191 o|inlining procedure: k13199 o|inlining procedure: k13239 o|converted assignments to bindings: (encode-size2802) o|simplifications: ((let . 1)) o|replaced variables: 29 o|removed binding forms: 292 o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#fifth o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#backslashify o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#uncommentify o|substituted constant variable: r859214569 o|substituted constant variable: r859214570 o|substituted constant variable: r441514609 o|contracted procedure: k13202 o|replaced variables: 82 o|removed binding forms: 37 o|removed conditional forms: 2 o|substituted constant variable: x55814610 o|removed binding forms: 89 o|removed binding forms: 1 o|simplifications: ((if . 69) (##core#call . 859)) o| call simplifications: o| scheme#eof-object? o| chicken.fixnum#fxlen o| scheme#integer->char 9 o| scheme#string 5 o| scheme#list? 3 o| chicken.fixnum#fx> 2 o| scheme#string-set! 3 o| scheme#string=? o| scheme#- 4 o| chicken.fixnum#fx/ o| chicken.base#void 2 o| scheme#boolean? o| scheme#char? 2 o| chicken.base#fixnum? 3 o| scheme#string? 2 o| chicken.base#bignum? o| chicken.base#flonum? 2 o| scheme#symbol? 7 o| ##sys#immediate? 4 o| ##sys#generic-structure? o| chicken.base#ratnum? o| chicken.base#cplxnum? o| ##sys#size 8 o| scheme#apply 9 o| scheme#string-length 3 o| chicken.bitwise#arithmetic-shift 7 o| scheme#string-ref 3 o| chicken.bitwise#bitwise-and 9 o| ##sys#setslot 5 o| scheme#< 2 o| scheme#>= 8 o| scheme#null? 12 o| scheme#cdr 7 o| scheme#length 11 o| scheme#cddr 4 o| scheme#cdddr o| scheme#cddddr 2 o| scheme#not 36 o| scheme#cadddr 4 o| ##sys#check-list 24 o| scheme#+ 19 o| scheme#> 5 o| scheme#caddr 9 o| scheme#vector? 2 o| scheme#vector-ref 8 o| scheme#car 88 o| scheme#char->integer 4 o| scheme#cadr 36 o| scheme#pair? 49 o| scheme#eq? 324 o| ##sys#slot 83 o| chicken.fixnum#fx>= 4 o| chicken.fixnum#fx+ o| scheme#cons 15 o|contracted procedure: k4240 o|contracted procedure: k4255 o|contracted procedure: k4522 o|contracted procedure: k4532 o|contracted procedure: k4536 o|contracted procedure: k4504 o|contracted procedure: k4559 o|contracted procedure: k4569 o|contracted procedure: k4573 o|contracted procedure: k4687 o|contracted procedure: k4690 o|contracted procedure: k4696 o|contracted procedure: k4706 o|contracted procedure: k4712 o|contracted procedure: k4723 o|contracted procedure: k4719 o|contracted procedure: k4729 o|contracted procedure: k4738 o|contracted procedure: k4745 o|contracted procedure: k4751 o|contracted procedure: k4773 o|contracted procedure: k4776 o|contracted procedure: k4782 o|contracted procedure: k4789 o|contracted procedure: k4796 o|contracted procedure: k4802 o|contracted procedure: k4809 o|contracted procedure: k4815 o|contracted procedure: k4840 o|contracted procedure: k4844 o|contracted procedure: k4848 o|contracted procedure: k4854 o|contracted procedure: k4861 o|contracted procedure: k4867 o|contracted procedure: k4874 o|contracted procedure: k4883 o|contracted procedure: k4905 o|contracted procedure: k4912 o|contracted procedure: k4918 o|contracted procedure: k4921 o|contracted procedure: k4937 o|contracted procedure: k4941 o|contracted procedure: k4947 o|contracted procedure: k4954 o|contracted procedure: k4960 o|contracted procedure: k4973 o|contracted procedure: k4979 o|contracted procedure: k4992 o|contracted procedure: k4998 o|contracted procedure: k5015 o|contracted procedure: k5011 o|contracted procedure: k5019 o|contracted procedure: k5025 o|contracted procedure: k5038 o|contracted procedure: k5044 o|contracted procedure: k5063 o|contracted procedure: k5067 o|contracted procedure: k5071 o|contracted procedure: k5077 o|contracted procedure: k5096 o|contracted procedure: k5104 o|contracted procedure: k5100 o|contracted procedure: k5108 o|contracted procedure: k5114 o|contracted procedure: k5133 o|contracted procedure: k5137 o|contracted procedure: k5143 o|contracted procedure: k5162 o|contracted procedure: k5166 o|contracted procedure: k5172 o|contracted procedure: k5175 o|contracted procedure: k5195 o|contracted procedure: k5198 o|contracted procedure: k5240 o|contracted procedure: k5215 o|contracted procedure: k5225 o|contracted procedure: k5229 o|contracted procedure: k5233 o|contracted procedure: k5237 o|contracted procedure: k5249 o|contracted procedure: k5262 o|contracted procedure: k5268 o|contracted procedure: k5275 o|contracted procedure: k5281 o|contracted procedure: k5291 o|contracted procedure: k5295 o|contracted procedure: k5301 o|contracted procedure: k5304 o|contracted procedure: k5307 o|contracted procedure: k5310 o|contracted procedure: k5334 o|contracted procedure: k5349 o|contracted procedure: k5352 o|contracted procedure: k5355 o|contracted procedure: k5358 o|contracted procedure: k5374 o|contracted procedure: k5394 o|contracted procedure: k5397 o|contracted procedure: k5400 o|contracted procedure: k5403 o|contracted procedure: k5419 o|contracted procedure: k5440 o|contracted procedure: k5454 o|contracted procedure: k5463 o|contracted procedure: k5466 o|contracted procedure: k5469 o|contracted procedure: k5473 o|contracted procedure: k5476 o|contracted procedure: k5975 o|contracted procedure: k5479 o|contracted procedure: k5482 o|contracted procedure: k5504 o|contracted procedure: k5520 o|contracted procedure: k5549 o|contracted procedure: k5563 o|contracted procedure: k5609 o|contracted procedure: k5584 o|contracted procedure: k5594 o|contracted procedure: k5598 o|contracted procedure: k5602 o|contracted procedure: k5606 o|contracted procedure: k5646 o|contracted procedure: k5621 o|contracted procedure: k5631 o|contracted procedure: k5635 o|contracted procedure: k5639 o|contracted procedure: k5643 o|contracted procedure: k5701 o|contracted procedure: k5722 o|contracted procedure: k5741 o|contracted procedure: k5744 o|contracted procedure: k5747 o|contracted procedure: k5813 o|contracted procedure: k5891 o|contracted procedure: k5897 o|contracted procedure: k5903 o|contracted procedure: k5923 o|contracted procedure: k377814492 o|contracted procedure: k5968 o|contracted procedure: k5961 o|contracted procedure: k5981 o|contracted procedure: k5984 o|contracted procedure: k5988 o|contracted procedure: k5991 o|contracted procedure: k6018 o|contracted procedure: k6032 o|contracted procedure: k6072 o|contracted procedure: k6047 o|contracted procedure: k6057 o|contracted procedure: k6061 o|contracted procedure: k6065 o|contracted procedure: k6069 o|contracted procedure: k6109 o|contracted procedure: k6084 o|contracted procedure: k6094 o|contracted procedure: k6098 o|contracted procedure: k6102 o|contracted procedure: k6106 o|contracted procedure: k6139 o|contracted procedure: k6142 o|contracted procedure: k6145 o|contracted procedure: k6149 o|contracted procedure: k6152 o|contracted procedure: k6158 o|contracted procedure: k6164 o|contracted procedure: k6196 o|contracted procedure: k6208 o|contracted procedure: k6220 o|contracted procedure: k6223 o|contracted procedure: k6238 o|contracted procedure: k377814521 o|contracted procedure: k6271 o|contracted procedure: k6278 o|contracted procedure: k6284 o|contracted procedure: k6287 o|contracted procedure: k6306 o|contracted procedure: k6312 o|contracted procedure: k6325 o|contracted procedure: k6331 o|contracted procedure: k6344 o|contracted procedure: k6350 o|contracted procedure: k6357 o|contracted procedure: k6367 o|contracted procedure: k6379 o|contracted procedure: k6389 o|contracted procedure: k6393 o|contracted procedure: k6399 o|contracted procedure: k6410 o|contracted procedure: k6414 o|contracted procedure: k6420 o|contracted procedure: k6423 o|contracted procedure: k6436 o|contracted procedure: k6440 o|contracted procedure: k6454 o|contracted procedure: k6457 o|contracted procedure: k6470 o|contracted procedure: k6484 o|contracted procedure: k6487 o|contracted procedure: k6506 o|contracted procedure: k6514 o|contracted procedure: k6524 o|contracted procedure: k6540 o|contracted procedure: k6544 o|contracted procedure: k6564 o|contracted procedure: k6585 o|contracted procedure: k6589 o|contracted procedure: k6593 o|contracted procedure: k6597 o|contracted procedure: k6603 o|contracted procedure: k6628 o|contracted procedure: k6632 o|contracted procedure: k6636 o|contracted procedure: k6736 o|contracted procedure: k6751 o|contracted procedure: k6754 o|contracted procedure: k6763 o|contracted procedure: k6768 o|contracted procedure: k6790 o|contracted procedure: k6799 o|contracted procedure: k6819 o|contracted procedure: k6825 o|contracted procedure: k6837 o|contracted procedure: k6864 o|contracted procedure: k6916 o|contracted procedure: k6936 o|contracted procedure: k6946 o|contracted procedure: k6950 o|contracted procedure: k6956 o|contracted procedure: k6965 o|contracted procedure: k6976 o|contracted procedure: k6996 o|contracted procedure: k6999 o|contracted procedure: k7002 o|contracted procedure: k7010 o|contracted procedure: k7018 o|contracted procedure: k7045 o|contracted procedure: k7056 o|contracted procedure: k7059 o|contracted procedure: k7065 o|contracted procedure: k7086 o|contracted procedure: k7092 o|contracted procedure: k7116 o|contracted procedure: k7144 o|contracted procedure: k7160 o|contracted procedure: k7156 o|contracted procedure: k7164 o|contracted procedure: k7175 o|contracted procedure: k7168 o|contracted procedure: k7179 o|contracted procedure: k7182 o|contracted procedure: k7195 o|contracted procedure: k7205 o|contracted procedure: k7209 o|contracted procedure: k7218 o|contracted procedure: k7221 o|contracted procedure: k7224 o|contracted procedure: k7232 o|contracted procedure: k7240 o|propagated global variable: g12401244 chicken.compiler.core#used-units o|contracted procedure: k7401 o|contracted procedure: k7413 o|contracted procedure: k7423 o|contracted procedure: k7427 o|contracted procedure: k7254 o|contracted procedure: k7330 o|contracted procedure: k7385 o|contracted procedure: k7344 o|contracted procedure: k7528 o|contracted procedure: k7540 o|contracted procedure: k7550 o|contracted procedure: k7554 o|contracted procedure: k7462 o|contracted procedure: k7515 o|contracted procedure: k7487 o|contracted procedure: k7447 o|contracted procedure: k7569 o|contracted procedure: k7583 o|contracted procedure: k7629 o|contracted procedure: k7635 o|contracted procedure: k7641 o|contracted procedure: k7647 o|contracted procedure: k7659 o|contracted procedure: k7680 o|contracted procedure: k7687 o|contracted procedure: k7691 o|contracted procedure: k7700 o|contracted procedure: k7712 o|contracted procedure: k7719 o|contracted procedure: k7727 o|contracted procedure: k7723 o|contracted procedure: k7736 o|contracted procedure: k7739 o|contracted procedure: k7742 o|contracted procedure: k7750 o|contracted procedure: k7758 o|contracted procedure: k7774 o|contracted procedure: k7797 o|contracted procedure: k7803 o|contracted procedure: k7806 o|contracted procedure: k7821 o|contracted procedure: k7830 o|contracted procedure: k7838 o|contracted procedure: k7844 o|contracted procedure: k7851 o|contracted procedure: k7869 o|contracted procedure: k7876 o|contracted procedure: k8035 o|contracted procedure: k7915 o|propagated global variable: r8036 ##sys#undefined-value o|contracted procedure: k7924 o|contracted procedure: k7937 o|contracted procedure: k7944 o|contracted procedure: k7953 o|contracted procedure: k7956 o|contracted procedure: k7962 o|contracted procedure: k7965 o|contracted procedure: k7980 o|contracted procedure: k8028 o|contracted procedure: k8024 o|contracted procedure: k7986 o|contracted procedure: k7995 o|contracted procedure: k8021 o|contracted procedure: k8038 o|contracted procedure: k8051 o|contracted procedure: k8054 o|contracted procedure: k8072 o|contracted procedure: k8093 o|contracted procedure: k8107 o|contracted procedure: k8119 o|contracted procedure: k8125 o|contracted procedure: k8139 o|contracted procedure: k8164 o|contracted procedure: k8370 o|contracted procedure: k8363 o|contracted procedure: k8261 o|contracted procedure: k8280 o|contracted procedure: k8297 o|contracted procedure: k8301 o|contracted procedure: k8310 o|contracted procedure: k8316 o|contracted procedure: k8334 o|contracted procedure: k8346 o|contracted procedure: k8373 o|contracted procedure: k8376 o|contracted procedure: k8417 o|contracted procedure: k8404 o|contracted procedure: k8449 o|contracted procedure: k8456 o|contracted procedure: k8473 o|contracted procedure: k8500 o|contracted procedure: k8506 o|contracted procedure: k8512 o|contracted procedure: k8533 o|contracted procedure: k8558 o|contracted procedure: k8564 o|contracted procedure: k8576 o|contracted procedure: k8582 o|contracted procedure: k8600 o|contracted procedure: k8591 o|contracted procedure: k8620 o|contracted procedure: k8632 o|contracted procedure: k8642 o|contracted procedure: k8646 o|contracted procedure: k8675 o|contracted procedure: k8687 o|contracted procedure: k8698 o|contracted procedure: k8720 o|contracted procedure: k8772 o|contracted procedure: k8734 o|contracted procedure: k8783 o|contracted procedure: k8790 o|contracted procedure: k8808 o|contracted procedure: k8820 o|contracted procedure: k8830 o|contracted procedure: k8834 o|contracted procedure: k9009 o|contracted procedure: k9019 o|contracted procedure: k9057 o|contracted procedure: k9067 o|contracted procedure: k9071 o|contracted procedure: k9076 o|contracted procedure: k8955 o|contracted procedure: k8970 o|contracted procedure: k8980 o|contracted procedure: k8984 o|contracted procedure: k8913 o|contracted procedure: k8916 o|contracted procedure: k8931 o|contracted procedure: k8941 o|contracted procedure: k8945 o|contracted procedure: k8896 o|contracted procedure: k8949 o|contracted procedure: k8994 o|contracted procedure: k8998 o|contracted procedure: k9660 o|contracted procedure: k9672 o|contracted procedure: k9681 o|contracted procedure: k9693 o|contracted procedure: k9705 o|contracted procedure: k9717 o|contracted procedure: k9729 o|contracted procedure: k9750 o|contracted procedure: k9759 o|contracted procedure: k9766 o|contracted procedure: k9778 o|contracted procedure: k9785 o|contracted procedure: k9790 o|contracted procedure: k9796 o|contracted procedure: k9802 o|contracted procedure: k9808 o|contracted procedure: k9814 o|contracted procedure: k9820 o|contracted procedure: k9826 o|contracted procedure: k9853 o|contracted procedure: k9859 o|contracted procedure: k9865 o|contracted procedure: k9871 o|contracted procedure: k9890 o|contracted procedure: k9896 o|contracted procedure: k9902 o|contracted procedure: k9921 o|contracted procedure: k9927 o|contracted procedure: k9944 o|contracted procedure: k9950 o|contracted procedure: k9956 o|contracted procedure: k9962 o|contracted procedure: k9968 o|contracted procedure: k9991 o|contracted procedure: k9997 o|contracted procedure: k10003 o|contracted procedure: k10009 o|contracted procedure: k10030 o|contracted procedure: k10036 o|contracted procedure: k10042 o|contracted procedure: k10048 o|contracted procedure: k10054 o|contracted procedure: k10060 o|contracted procedure: k10066 o|contracted procedure: k10072 o|contracted procedure: k10078 o|contracted procedure: k10084 o|contracted procedure: k10090 o|contracted procedure: k10173 o|contracted procedure: k10179 o|contracted procedure: k10220 o|contracted procedure: k10195 o|contracted procedure: k10205 o|contracted procedure: k10209 o|contracted procedure: k10213 o|contracted procedure: k10217 o|contracted procedure: k10230 o|contracted procedure: k10246 o|contracted procedure: k10253 o|contracted procedure: k10257 o|contracted procedure: k10268 o|contracted procedure: k10280 o|contracted procedure: k10290 o|contracted procedure: k10294 o|propagated global variable: g19871989 chicken.compiler.support#foreign-callback-stubs o|contracted procedure: k9319 o|contracted procedure: k9403 o|contracted procedure: k9406 o|contracted procedure: k9472 o|contracted procedure: k9496 o|contracted procedure: k9486 o|contracted procedure: k9518 o|contracted procedure: k9522 o|contracted procedure: k9526 o|contracted procedure: k9530 o|contracted procedure: k9534 o|contracted procedure: k9538 o|contracted procedure: k9541 o|contracted procedure: k9547 o|contracted procedure: k9565 o|contracted procedure: k9577 o|contracted procedure: k9594 o|contracted procedure: k4423 o|contracted procedure: k4414 o|contracted procedure: k9614 o|contracted procedure: k9626 o|contracted procedure: k9636 o|contracted procedure: k9640 o|propagated global variable: g18761878 chicken.compiler.core#foreign-lambda-stubs o|contracted procedure: k9233 o|contracted procedure: k9245 o|contracted procedure: k9255 o|contracted procedure: k9259 o|contracted procedure: k9213 o|contracted procedure: k9216 o|contracted procedure: k9219 o|contracted procedure: k9226 o|contracted procedure: k4630 o|contracted procedure: k4634 o|contracted procedure: k4645 o|contracted procedure: k4641 o|contracted procedure: k9085 o|contracted procedure: k9098 o|contracted procedure: k9110 o|contracted procedure: k9116 o|inlining procedure: k9119 o|inlining procedure: k9119 o|inlining procedure: k9119 o|contracted procedure: k9166 o|contracted procedure: k9276 o|contracted procedure: k9288 o|contracted procedure: k9298 o|contracted procedure: k9302 o|contracted procedure: k10312 o|contracted procedure: k10333 o|contracted procedure: k10349 o|contracted procedure: k10362 o|contracted procedure: k10366 o|contracted procedure: k10389 o|contracted procedure: k10398 o|contracted procedure: k10401 o|contracted procedure: k10410 o|contracted procedure: k10413 o|contracted procedure: k10422 o|contracted procedure: k10425 o|contracted procedure: k10434 o|contracted procedure: k10437 o|contracted procedure: k10446 o|contracted procedure: k10458 o|contracted procedure: k10467 o|contracted procedure: k10476 o|contracted procedure: k10479 o|contracted procedure: k10488 o|contracted procedure: k10497 o|contracted procedure: k10506 o|contracted procedure: k10515 o|contracted procedure: k10524 o|contracted procedure: k10533 o|contracted procedure: k10542 o|contracted procedure: k10551 o|contracted procedure: k10554 o|contracted procedure: k10563 o|contracted procedure: k10575 o|contracted procedure: k10578 o|contracted procedure: k10584 o|contracted procedure: k10596 o|contracted procedure: k10599 o|contracted procedure: k10608 o|contracted procedure: k10611 o|contracted procedure: k10620 o|contracted procedure: k10623 o|contracted procedure: k10632 o|contracted procedure: k10635 o|contracted procedure: k10644 o|contracted procedure: k10647 o|contracted procedure: k10656 o|contracted procedure: k10659 o|contracted procedure: k10668 o|contracted procedure: k10671 o|contracted procedure: k10680 o|contracted procedure: k10683 o|contracted procedure: k10692 o|contracted procedure: k10695 o|contracted procedure: k10704 o|contracted procedure: k10707 o|contracted procedure: k10716 o|contracted procedure: k10728 o|contracted procedure: k10740 o|contracted procedure: k10758 o|contracted procedure: k10767 o|contracted procedure: k10776 o|contracted procedure: k10790 o|contracted procedure: k10807 o|contracted procedure: k10836 o|contracted procedure: k10844 o|contracted procedure: k10847 o|contracted procedure: k10859 o|contracted procedure: k10862 o|contracted procedure: k10865 o|contracted procedure: k10873 o|contracted procedure: k10881 o|contracted procedure: k10888 o|contracted procedure: k10905 o|contracted procedure: k10922 o|contracted procedure: k10939 o|contracted procedure: k10956 o|contracted procedure: k10973 o|contracted procedure: k10990 o|contracted procedure: k10999 o|contracted procedure: k11002 o|contracted procedure: k11077 o|contracted procedure: k11008 o|contracted procedure: k11023 o|contracted procedure: k11037 o|contracted procedure: k11049 o|contracted procedure: k11052 o|contracted procedure: k11055 o|contracted procedure: k11063 o|contracted procedure: k11071 o|contracted procedure: k11031 o|contracted procedure: k11086 o|contracted procedure: k11093 o|contracted procedure: k11098 o|contracted procedure: k11105 o|contracted procedure: k11110 o|contracted procedure: k11114 o|contracted procedure: k11120 o|contracted procedure: k11127 o|contracted procedure: k11132 o|contracted procedure: k11139 o|contracted procedure: k11144 o|contracted procedure: k11151 o|contracted procedure: k11156 o|contracted procedure: k11163 o|contracted procedure: k11168 o|contracted procedure: k11175 o|contracted procedure: k11180 o|contracted procedure: k11187 o|contracted procedure: k11192 o|contracted procedure: k11196 o|contracted procedure: k11205 o|contracted procedure: k11213 o|contracted procedure: k11219 o|contracted procedure: k11236 o|contracted procedure: k11242 o|contracted procedure: k11248 o|contracted procedure: k11337 o|contracted procedure: k11343 o|contracted procedure: k11367 o|contracted procedure: k11373 o|contracted procedure: k11422 o|contracted procedure: k11478 o|contracted procedure: k11484 o|contracted procedure: k11487 o|contracted procedure: k11493 o|contracted procedure: k11502 o|contracted procedure: k11508 o|contracted procedure: k11514 o|contracted procedure: k11520 o|contracted procedure: k11529 o|contracted procedure: k11532 o|contracted procedure: k11538 o|contracted procedure: k11544 o|contracted procedure: k11550 o|contracted procedure: k11556 o|contracted procedure: k11562 o|contracted procedure: k11568 o|contracted procedure: k11571 o|contracted procedure: k11577 o|contracted procedure: k11583 o|contracted procedure: k11589 o|contracted procedure: k11595 o|contracted procedure: k11601 o|contracted procedure: k11607 o|contracted procedure: k11613 o|contracted procedure: k11619 o|contracted procedure: k11625 o|contracted procedure: k11631 o|contracted procedure: k11637 o|contracted procedure: k11643 o|contracted procedure: k11649 o|contracted procedure: k11655 o|contracted procedure: k11661 o|contracted procedure: k11667 o|contracted procedure: k11673 o|contracted procedure: k11679 o|contracted procedure: k11685 o|contracted procedure: k11691 o|contracted procedure: k11697 o|contracted procedure: k11703 o|contracted procedure: k11709 o|contracted procedure: k11715 o|contracted procedure: k11721 o|contracted procedure: k11727 o|contracted procedure: k11733 o|contracted procedure: k11739 o|contracted procedure: k11745 o|contracted procedure: k11754 o|contracted procedure: k11763 o|contracted procedure: k11778 o|contracted procedure: k11790 o|contracted procedure: k11796 o|contracted procedure: k11802 o|contracted procedure: k11808 o|contracted procedure: k11814 o|contracted procedure: k11820 o|contracted procedure: k11826 o|contracted procedure: k11832 o|contracted procedure: k11838 o|contracted procedure: k11845 o|contracted procedure: k11851 o|contracted procedure: k11857 o|contracted procedure: k11868 o|contracted procedure: k11874 o|contracted procedure: k11881 o|contracted procedure: k11912 o|contracted procedure: k11921 o|contracted procedure: k11929 o|contracted procedure: k11935 o|contracted procedure: k11941 o|contracted procedure: k11960 o|contracted procedure: k11966 o|contracted procedure: k12063 o|contracted procedure: k12084 o|contracted procedure: k12090 o|contracted procedure: k12096 o|contracted procedure: k12102 o|contracted procedure: k12143 o|contracted procedure: k12146 o|contracted procedure: k12152 o|contracted procedure: k12155 o|contracted procedure: k12161 o|contracted procedure: k12164 o|contracted procedure: k12170 o|contracted procedure: k12176 o|contracted procedure: k12182 o|contracted procedure: k12188 o|contracted procedure: k12194 o|contracted procedure: k12197 o|contracted procedure: k12221 o|contracted procedure: k12245 o|contracted procedure: k12272 o|contracted procedure: k12296 o|contracted procedure: k12299 o|contracted procedure: k12323 o|contracted procedure: k12326 o|contracted procedure: k12350 o|contracted procedure: k12353 o|contracted procedure: k12377 o|contracted procedure: k12380 o|contracted procedure: k12404 o|contracted procedure: k12428 o|contracted procedure: k12452 o|contracted procedure: k12458 o|contracted procedure: k12461 o|contracted procedure: k12476 o|contracted procedure: k12488 o|contracted procedure: k12494 o|contracted procedure: k12497 o|contracted procedure: k12521 o|contracted procedure: k12545 o|contracted procedure: k12569 o|contracted procedure: k12593 o|contracted procedure: k12617 o|contracted procedure: k12624 o|contracted procedure: k12630 o|contracted procedure: k12633 o|contracted procedure: k12657 o|contracted procedure: k12681 o|contracted procedure: k12736 o|contracted procedure: k12745 o|contracted procedure: k12794 o|contracted procedure: k12800 o|contracted procedure: k12806 o|contracted procedure: k12812 o|contracted procedure: k12818 o|contracted procedure: k12824 o|contracted procedure: k12830 o|contracted procedure: k12836 o|contracted procedure: k12842 o|contracted procedure: k12848 o|contracted procedure: k12976 o|contracted procedure: k12934 o|contracted procedure: k12972 o|contracted procedure: k12968 o|contracted procedure: k12944 o|contracted procedure: k12964 o|contracted procedure: k12960 o|contracted procedure: k12948 o|contracted procedure: k12956 o|contracted procedure: k12952 o|contracted procedure: k12986 o|contracted procedure: k12996 o|contracted procedure: k13002 o|contracted procedure: k13008 o|contracted procedure: k13019 o|contracted procedure: k13025 o|contracted procedure: k13031 o|contracted procedure: k13256 o|contracted procedure: k13037 o|propagated global variable: r13257 ##sys#undefined-value o|contracted procedure: k13095 o|contracted procedure: k13091 o|contracted procedure: k13055 o|contracted procedure: k13087 o|contracted procedure: k13083 o|contracted procedure: k13059 o|contracted procedure: k13079 o|contracted procedure: k13075 o|contracted procedure: k13063 o|contracted procedure: k13071 o|contracted procedure: k13067 o|contracted procedure: k13051 o|contracted procedure: k13113 o|contracted procedure: k13122 o|contracted procedure: k13139 o|contracted procedure: k13142 o|contracted procedure: k13160 o|contracted procedure: k13166 o|contracted procedure: k13195 o|contracted procedure: k13183 o|contracted procedure: k13235 o|contracted procedure: k13213 o|contracted procedure: k3662 o|contracted procedure: k3673 o|contracted procedure: k13231 o|contracted procedure: k13245 o|simplifications: ((##core#call . 12) (let . 103)) o| call simplifications: o| scheme#+ 12 o|removed binding forms: 793 o|inlining procedure: k12993 o|inlining procedure: k12993 o|inlining procedure: k12993 o|inlining procedure: k12993 o|inlining procedure: k12993 o|replaced variables: 224 o|removed binding forms: 1 o|substituted constant variable: r1299415371 o|substituted constant variable: r1299415371 o|substituted constant variable: r1299415375 o|substituted constant variable: r1299415375 o|substituted constant variable: r1299415379 o|substituted constant variable: r1299415379 o|substituted constant variable: r1299415383 o|substituted constant variable: r1299415383 o|substituted constant variable: r1299415387 o|substituted constant variable: r1299415387 o|simplifications: ((if . 9)) o|removed binding forms: 123 o|contracted procedure: k6161 o|removed binding forms: 11 x|number of unboxed float variables: 0 x|number of inline operations replaced with unboxed ones: 0 o|customizable procedures: (k13043 loop285 encode-size2802 k12248 k12485 err2492 g26862687 k11496 k11523 k11748 k11757 k11787 err2414 k10449 k10566 k10587 k10719 k10731 k10783 k10800 k10817 k10894 k10911 k10928 k10945 k10962 k10979 k10996 err2214 map-loop23872405 map-loop23392364 g23262327 str2215 loop2203 for-each-loop18461859 k9129 loop1793 header692 declarations694 for-each-loop18221836 g18701877 for-each-loop18691970 doloop19121913 k9508 for-each-loop18991938 prototypes695 g19811988 for-each-loop19802189 loop2150 chicken.compiler.c-backend#generate-foreign-callback-header for-each-loop21572171 k9675 k9684 k9696 k9708 k9720 k9732 k9769 g21162117 compute-size1997 trampolines696 for-each-loop17311742 for-each-loop17181751 procedures703 g17641771 for-each-loop17631777 g14991506 for-each-loop14981682 k8161 chicken.compiler.c-backend#cleanup k8711 k8227 doloop15561557 k8650 doloop15611562 for-each-loop15691580 k8552 k8494 g16001601 foldl15931597 literal-frame697 doloop16401641 doloop16481649 expression691 doloop14811482 k8075 string-like-substring702 k7900 k7998 chicken.compiler.c-backend#encode-literal gen-string-constant701 va15109 va15107 loop1446 map-loop14161433 foldl14101440 va15099 va15097 gen-lit700 doloop13811382 k7478 k7481 doloop13501351 chicken.compiler.c-backend#make-argument-list for-each-loop13401375 k7264 chicken.compiler.c-backend#make-variable-list k7321 for-each-loop12831329 map-loop12281245 for-each-loop12141252 doloop12621264 doloop12631268 doloop12221257 map-loop11511176 chicken.compiler.c-backend#gen-list for-each-loop11861197 chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes k6771 k6828 doloop11271137 loop1107 doloop10851086 chicken.compiler.c-backend#foreign-argument-conversion chicken.compiler.c-backend#foreign-result-conversion va15067 g9861005 for-each-loop9851012 for-each-loop9961025 k5488 k5491 find-lambda690 k5494 k5735 k5869 expr-args712 va15061 g869888 for-each-loop868895 for-each-loop879908 push-args713 chicken.compiler.c-backend#list-tabulate g781789 for-each-loop780796 loop737 expr711 for-each-loop648659 for-each-loop628639 loop503) o|calls to known targets: 843 o|identified direct recursive calls: f_7707 1 o|unused rest argument: _56314612 f14613 o|unused rest argument: _563 f_4421 o|identified direct recursive calls: f_3657 1 o|fast box initializations: 66 o|fast global references: 393 o|fast global assignments: 14 o|dropping unused closure argument: f_10298 o|dropping unused closure argument: f_11468 o|dropping unused closure argument: f_12133 o|dropping unused closure argument: f_12920 o|dropping unused closure argument: f_12929 o|dropping unused closure argument: f_4229 o|dropping unused closure argument: f_4540 o|dropping unused closure argument: f_8123 o|dropping unused closure argument: f_9096 o|dropping unused closure argument: f_9172 o|dropping unused closure argument: f_9189 o|dropping unused closure argument: f_9263 */ /* end of file */ chicken-5.1.0/lfa2.c0000644000175000017500000077630013502227757013746 0ustar sjamaansjamaan/* Generated from lfa2.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: lfa2.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.lfa2 -output-file lfa2.c unit: lfa2 uses: library eval expand extras support */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_support_toplevel) C_externimport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[102]; static double C_possibly_force_alignment; C_noret_decl(f5313) static void C_ccall f5313(C_word c,C_word *av) C_noret; C_noret_decl(f5371) static void C_ccall f5371(C_word c,C_word *av) C_noret; C_noret_decl(f5392) static void C_ccall f5392(C_word c,C_word *av) C_noret; C_noret_decl(f5404) static void C_ccall f5404(C_word c,C_word *av) C_noret; C_noret_decl(f5411) static void C_ccall f5411(C_word c,C_word *av) C_noret; C_noret_decl(f_1442) static void C_ccall f_1442(C_word c,C_word *av) C_noret; C_noret_decl(f_1445) static void C_ccall f_1445(C_word c,C_word *av) C_noret; C_noret_decl(f_1448) static void C_ccall f_1448(C_word c,C_word *av) C_noret; C_noret_decl(f_1451) static void C_ccall f_1451(C_word c,C_word *av) C_noret; C_noret_decl(f_1454) static void C_ccall f_1454(C_word c,C_word *av) C_noret; C_noret_decl(f_2074) static void C_fcall f_2074(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2082) static void C_fcall f_2082(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2089) static void C_ccall f_2089(C_word c,C_word *av) C_noret; C_noret_decl(f_2103) static void C_ccall f_2103(C_word c,C_word *av) C_noret; C_noret_decl(f_2118) static void C_fcall f_2118(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2126) static void C_fcall f_2126(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2130) static void C_ccall f_2130(C_word c,C_word *av) C_noret; C_noret_decl(f_2134) static C_word C_fcall f_2134(C_word *a,C_word t0,C_word t1); C_noret_decl(f_2152) static void C_ccall f_2152(C_word c,C_word *av) C_noret; C_noret_decl(f_2164) static void C_ccall f_2164(C_word c,C_word *av) C_noret; C_noret_decl(f_2172) static void C_ccall f_2172(C_word c,C_word *av) C_noret; C_noret_decl(f_2668) static void C_fcall f_2668(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2674) static C_word C_fcall f_2674(C_word t0,C_word t1,C_word t2); C_noret_decl(f_2739) static void C_ccall f_2739(C_word c,C_word *av) C_noret; C_noret_decl(f_2755) static void C_ccall f_2755(C_word c,C_word *av) C_noret; C_noret_decl(f_2767) static void C_ccall f_2767(C_word c,C_word *av) C_noret; C_noret_decl(f_2770) static void C_ccall f_2770(C_word c,C_word *av) C_noret; C_noret_decl(f_2870) static void C_fcall f_2870(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2896) static void C_fcall f_2896(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2902) static void C_fcall f_2902(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2907) static void C_ccall f_2907(C_word c,C_word *av) C_noret; C_noret_decl(f_2933) static void C_ccall f_2933(C_word c,C_word *av) C_noret; C_noret_decl(f_2937) static void C_ccall f_2937(C_word c,C_word *av) C_noret; C_noret_decl(f_2941) static void C_ccall f_2941(C_word c,C_word *av) C_noret; C_noret_decl(f_2943) static void C_fcall f_2943(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2947) static void C_ccall f_2947(C_word c,C_word *av) C_noret; C_noret_decl(f_2950) static void C_ccall f_2950(C_word c,C_word *av) C_noret; C_noret_decl(f_2953) static void C_ccall f_2953(C_word c,C_word *av) C_noret; C_noret_decl(f_2958) static void C_fcall f_2958(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2962) static void C_ccall f_2962(C_word c,C_word *av) C_noret; C_noret_decl(f_2965) static void C_ccall f_2965(C_word c,C_word *av) C_noret; C_noret_decl(f_2966) static void C_fcall f_2966(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2973) static void C_ccall f_2973(C_word c,C_word *av) C_noret; C_noret_decl(f_2983) static void C_ccall f_2983(C_word c,C_word *av) C_noret; C_noret_decl(f_3000) static void C_ccall f_3000(C_word c,C_word *av) C_noret; C_noret_decl(f_3007) static void C_ccall f_3007(C_word c,C_word *av) C_noret; C_noret_decl(f_3035) static void C_ccall f_3035(C_word c,C_word *av) C_noret; C_noret_decl(f_3037) static void C_fcall f_3037(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3047) static void C_ccall f_3047(C_word c,C_word *av) C_noret; C_noret_decl(f_3066) static void C_ccall f_3066(C_word c,C_word *av) C_noret; C_noret_decl(f_3083) static void C_fcall f_3083(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3093) static void C_fcall f_3093(C_word t0,C_word t1) C_noret; C_noret_decl(f_3129) static C_word C_fcall f_3129(C_word t0,C_word t1); C_noret_decl(f_3135) static void C_fcall f_3135(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3140) static void C_ccall f_3140(C_word c,C_word *av) C_noret; C_noret_decl(f_3142) static void C_ccall f_3142(C_word c,C_word *av) C_noret; C_noret_decl(f_3152) static void C_fcall f_3152(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3159) static void C_fcall f_3159(C_word t0,C_word t1) C_noret; C_noret_decl(f_3163) static void C_fcall f_3163(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3171) static void C_ccall f_3171(C_word c,C_word *av) C_noret; C_noret_decl(f_3183) static void C_ccall f_3183(C_word c,C_word *av) C_noret; C_noret_decl(f_3189) static void C_ccall f_3189(C_word c,C_word *av) C_noret; C_noret_decl(f_3200) static void C_ccall f_3200(C_word c,C_word *av) C_noret; C_noret_decl(f_3208) static void C_fcall f_3208(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3214) static void C_fcall f_3214(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3220) static void C_fcall f_3220(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3226) static void C_fcall f_3226(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3230) static void C_ccall f_3230(C_word c,C_word *av) C_noret; C_noret_decl(f_3233) static void C_ccall f_3233(C_word c,C_word *av) C_noret; C_noret_decl(f_3236) static void C_ccall f_3236(C_word c,C_word *av) C_noret; C_noret_decl(f_3245) static void C_ccall f_3245(C_word c,C_word *av) C_noret; C_noret_decl(f_3248) static void C_ccall f_3248(C_word c,C_word *av) C_noret; C_noret_decl(f_3295) static void C_ccall f_3295(C_word c,C_word *av) C_noret; C_noret_decl(f_3301) static void C_fcall f_3301(C_word t0,C_word t1) C_noret; C_noret_decl(f_3304) static void C_ccall f_3304(C_word c,C_word *av) C_noret; C_noret_decl(f_3315) static void C_ccall f_3315(C_word c,C_word *av) C_noret; C_noret_decl(f_3327) static void C_ccall f_3327(C_word c,C_word *av) C_noret; C_noret_decl(f_3334) static void C_ccall f_3334(C_word c,C_word *av) C_noret; C_noret_decl(f_3385) static void C_ccall f_3385(C_word c,C_word *av) C_noret; C_noret_decl(f_3388) static void C_ccall f_3388(C_word c,C_word *av) C_noret; C_noret_decl(f_3391) static void C_ccall f_3391(C_word c,C_word *av) C_noret; C_noret_decl(f_3402) static void C_fcall f_3402(C_word t0,C_word t1) C_noret; C_noret_decl(f_3409) static void C_fcall f_3409(C_word t0,C_word t1) C_noret; C_noret_decl(f_3423) static void C_ccall f_3423(C_word c,C_word *av) C_noret; C_noret_decl(f_3426) static void C_ccall f_3426(C_word c,C_word *av) C_noret; C_noret_decl(f_3439) static void C_ccall f_3439(C_word c,C_word *av) C_noret; C_noret_decl(f_3447) static void C_ccall f_3447(C_word c,C_word *av) C_noret; C_noret_decl(f_3453) static void C_fcall f_3453(C_word t0,C_word t1) C_noret; C_noret_decl(f_3495) static void C_ccall f_3495(C_word c,C_word *av) C_noret; C_noret_decl(f_3514) static void C_ccall f_3514(C_word c,C_word *av) C_noret; C_noret_decl(f_3517) static void C_ccall f_3517(C_word c,C_word *av) C_noret; C_noret_decl(f_3520) static void C_fcall f_3520(C_word t0,C_word t1) C_noret; C_noret_decl(f_3531) static void C_ccall f_3531(C_word c,C_word *av) C_noret; C_noret_decl(f_3534) static void C_ccall f_3534(C_word c,C_word *av) C_noret; C_noret_decl(f_3545) static void C_ccall f_3545(C_word c,C_word *av) C_noret; C_noret_decl(f_3570) static void C_fcall f_3570(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3574) static void C_ccall f_3574(C_word c,C_word *av) C_noret; C_noret_decl(f_3586) static void C_ccall f_3586(C_word c,C_word *av) C_noret; C_noret_decl(f_3593) static void C_fcall f_3593(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3597) static void C_ccall f_3597(C_word c,C_word *av) C_noret; C_noret_decl(f_3600) static void C_ccall f_3600(C_word c,C_word *av) C_noret; C_noret_decl(f_3615) static void C_fcall f_3615(C_word t0,C_word t1) C_noret; C_noret_decl(f_3641) static void C_ccall f_3641(C_word c,C_word *av) C_noret; C_noret_decl(f_3661) static void C_ccall f_3661(C_word c,C_word *av) C_noret; C_noret_decl(f_3675) static void C_fcall f_3675(C_word t0,C_word t1) C_noret; C_noret_decl(f_3723) static void C_fcall f_3723(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3730) static void C_ccall f_3730(C_word c,C_word *av) C_noret; C_noret_decl(f_3733) static void C_ccall f_3733(C_word c,C_word *av) C_noret; C_noret_decl(f_3739) static void C_ccall f_3739(C_word c,C_word *av) C_noret; C_noret_decl(f_3742) static void C_ccall f_3742(C_word c,C_word *av) C_noret; C_noret_decl(f_3749) static void C_ccall f_3749(C_word c,C_word *av) C_noret; C_noret_decl(f_3753) static void C_ccall f_3753(C_word c,C_word *av) C_noret; C_noret_decl(f_3757) static void C_ccall f_3757(C_word c,C_word *av) C_noret; C_noret_decl(f_3771) static void C_fcall f_3771(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3781) static void C_ccall f_3781(C_word c,C_word *av) C_noret; C_noret_decl(f_3825) static void C_ccall f_3825(C_word c,C_word *av) C_noret; C_noret_decl(f_3833) static void C_ccall f_3833(C_word c,C_word *av) C_noret; C_noret_decl(f_3848) static void C_ccall f_3848(C_word c,C_word *av) C_noret; C_noret_decl(f_3851) static void C_ccall f_3851(C_word c,C_word *av) C_noret; C_noret_decl(f_3854) static void C_ccall f_3854(C_word c,C_word *av) C_noret; C_noret_decl(f_3863) static void C_fcall f_3863(C_word t0,C_word t1) C_noret; C_noret_decl(f_3889) static void C_ccall f_3889(C_word c,C_word *av) C_noret; C_noret_decl(f_3909) static void C_ccall f_3909(C_word c,C_word *av) C_noret; C_noret_decl(f_3923) static void C_fcall f_3923(C_word t0,C_word t1) C_noret; C_noret_decl(f_3967) static void C_fcall f_3967(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3977) static void C_fcall f_3977(C_word t0,C_word t1) C_noret; C_noret_decl(f_3993) static void C_ccall f_3993(C_word c,C_word *av) C_noret; C_noret_decl(f_4009) static void C_ccall f_4009(C_word c,C_word *av) C_noret; C_noret_decl(f_4040) static void C_fcall f_4040(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4050) static void C_ccall f_4050(C_word c,C_word *av) C_noret; C_noret_decl(f_4066) static void C_fcall f_4066(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4076) static void C_ccall f_4076(C_word c,C_word *av) C_noret; C_noret_decl(f_4078) static void C_fcall f_4078(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4088) static void C_ccall f_4088(C_word c,C_word *av) C_noret; C_noret_decl(f_4140) static void C_ccall f_4140(C_word c,C_word *av) C_noret; C_noret_decl(f_4143) static void C_ccall f_4143(C_word c,C_word *av) C_noret; C_noret_decl(f_4151) static void C_ccall f_4151(C_word c,C_word *av) C_noret; C_noret_decl(f_4155) static void C_ccall f_4155(C_word c,C_word *av) C_noret; C_noret_decl(f_4163) static void C_ccall f_4163(C_word c,C_word *av) C_noret; C_noret_decl(f_4166) static void C_ccall f_4166(C_word c,C_word *av) C_noret; C_noret_decl(f_4169) static void C_ccall f_4169(C_word c,C_word *av) C_noret; C_noret_decl(f_4172) static void C_ccall f_4172(C_word c,C_word *av) C_noret; C_noret_decl(f_4189) static void C_fcall f_4189(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4199) static void C_ccall f_4199(C_word c,C_word *av) C_noret; C_noret_decl(f_4212) static void C_ccall f_4212(C_word c,C_word *av) C_noret; C_noret_decl(f_4216) static void C_ccall f_4216(C_word c,C_word *av) C_noret; C_noret_decl(f_4218) static void C_ccall f_4218(C_word c,C_word *av) C_noret; C_noret_decl(f_4222) static void C_ccall f_4222(C_word c,C_word *av) C_noret; C_noret_decl(f_4225) static void C_ccall f_4225(C_word c,C_word *av) C_noret; C_noret_decl(f_4228) static void C_ccall f_4228(C_word c,C_word *av) C_noret; C_noret_decl(f_4256) static void C_ccall f_4256(C_word c,C_word *av) C_noret; C_noret_decl(f_4293) static void C_fcall f_4293(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4322) static void C_ccall f_4322(C_word c,C_word *av) C_noret; C_noret_decl(f_4324) static void C_fcall f_4324(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4349) static void C_ccall f_4349(C_word c,C_word *av) C_noret; C_noret_decl(f_4373) static void C_ccall f_4373(C_word c,C_word *av) C_noret; C_noret_decl(f_4383) static void C_ccall f_4383(C_word c,C_word *av) C_noret; C_noret_decl(f_4385) static void C_fcall f_4385(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4410) static void C_ccall f_4410(C_word c,C_word *av) C_noret; C_noret_decl(f_4432) static void C_ccall f_4432(C_word c,C_word *av) C_noret; C_noret_decl(f_4445) static void C_ccall f_4445(C_word c,C_word *av) C_noret; C_noret_decl(f_4449) static void C_ccall f_4449(C_word c,C_word *av) C_noret; C_noret_decl(f_4452) static void C_ccall f_4452(C_word c,C_word *av) C_noret; C_noret_decl(f_4455) static void C_ccall f_4455(C_word c,C_word *av) C_noret; C_noret_decl(f_4464) static void C_ccall f_4464(C_word c,C_word *av) C_noret; C_noret_decl(f_4478) static void C_ccall f_4478(C_word c,C_word *av) C_noret; C_noret_decl(f_4501) static void C_ccall f_4501(C_word c,C_word *av) C_noret; C_noret_decl(f_4519) static void C_ccall f_4519(C_word c,C_word *av) C_noret; C_noret_decl(f_4523) static void C_ccall f_4523(C_word c,C_word *av) C_noret; C_noret_decl(f_4540) static void C_ccall f_4540(C_word c,C_word *av) C_noret; C_noret_decl(f_4542) static void C_fcall f_4542(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4567) static void C_ccall f_4567(C_word c,C_word *av) C_noret; C_noret_decl(f_4590) static void C_fcall f_4590(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4602) static void C_ccall f_4602(C_word c,C_word *av) C_noret; C_noret_decl(f_4634) static void C_ccall f_4634(C_word c,C_word *av) C_noret; C_noret_decl(f_4636) static void C_fcall f_4636(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4661) static void C_ccall f_4661(C_word c,C_word *av) C_noret; C_noret_decl(f_4687) static void C_ccall f_4687(C_word c,C_word *av) C_noret; C_noret_decl(f_4689) static void C_fcall f_4689(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4714) static void C_ccall f_4714(C_word c,C_word *av) C_noret; C_noret_decl(f_4738) static void C_ccall f_4738(C_word c,C_word *av) C_noret; C_noret_decl(f_4740) static void C_fcall f_4740(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4765) static void C_ccall f_4765(C_word c,C_word *av) C_noret; C_noret_decl(f_4786) static void C_ccall f_4786(C_word c,C_word *av) C_noret; C_noret_decl(f_4789) static void C_ccall f_4789(C_word c,C_word *av) C_noret; C_noret_decl(f_4791) static void C_ccall f_4791(C_word c,C_word *av) C_noret; C_noret_decl(f_4798) static void C_ccall f_4798(C_word c,C_word *av) C_noret; C_noret_decl(f_4801) static void C_ccall f_4801(C_word c,C_word *av) C_noret; C_noret_decl(f_4804) static void C_ccall f_4804(C_word c,C_word *av) C_noret; C_noret_decl(f_4810) static void C_ccall f_4810(C_word c,C_word *av) C_noret; C_noret_decl(f_4813) static void C_ccall f_4813(C_word c,C_word *av) C_noret; C_noret_decl(f_4822) static void C_ccall f_4822(C_word c,C_word *av) C_noret; C_noret_decl(C_lfa2_toplevel) C_externexport void C_ccall C_lfa2_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_2074) static void C_ccall trf_2074(C_word c,C_word *av) C_noret; static void C_ccall trf_2074(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2074(t0,t1,t2);} C_noret_decl(trf_2082) static void C_ccall trf_2082(C_word c,C_word *av) C_noret; static void C_ccall trf_2082(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2082(t0,t1,t2,t3);} C_noret_decl(trf_2118) static void C_ccall trf_2118(C_word c,C_word *av) C_noret; static void C_ccall trf_2118(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2118(t0,t1,t2);} C_noret_decl(trf_2126) static void C_ccall trf_2126(C_word c,C_word *av) C_noret; static void C_ccall trf_2126(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2126(t0,t1,t2,t3);} C_noret_decl(trf_2668) static void C_ccall trf_2668(C_word c,C_word *av) C_noret; static void C_ccall trf_2668(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2668(t0,t1,t2);} C_noret_decl(trf_2870) static void C_ccall trf_2870(C_word c,C_word *av) C_noret; static void C_ccall trf_2870(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2870(t0,t1,t2);} C_noret_decl(trf_2896) static void C_ccall trf_2896(C_word c,C_word *av) C_noret; static void C_ccall trf_2896(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2896(t0,t1,t2);} C_noret_decl(trf_2902) static void C_ccall trf_2902(C_word c,C_word *av) C_noret; static void C_ccall trf_2902(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2902(t0,t1,t2);} C_noret_decl(trf_2943) static void C_ccall trf_2943(C_word c,C_word *av) C_noret; static void C_ccall trf_2943(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2943(t0,t1,t2);} C_noret_decl(trf_2958) static void C_ccall trf_2958(C_word c,C_word *av) C_noret; static void C_ccall trf_2958(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2958(t0,t1,t2,t3);} C_noret_decl(trf_2966) static void C_ccall trf_2966(C_word c,C_word *av) C_noret; static void C_ccall trf_2966(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2966(t0,t1,t2);} C_noret_decl(trf_3037) static void C_ccall trf_3037(C_word c,C_word *av) C_noret; static void C_ccall trf_3037(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3037(t0,t1,t2);} C_noret_decl(trf_3083) static void C_ccall trf_3083(C_word c,C_word *av) C_noret; static void C_ccall trf_3083(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3083(t0,t1,t2);} C_noret_decl(trf_3093) static void C_ccall trf_3093(C_word c,C_word *av) C_noret; static void C_ccall trf_3093(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3093(t0,t1);} C_noret_decl(trf_3135) static void C_ccall trf_3135(C_word c,C_word *av) C_noret; static void C_ccall trf_3135(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3135(t0,t1,t2);} C_noret_decl(trf_3152) static void C_ccall trf_3152(C_word c,C_word *av) C_noret; static void C_ccall trf_3152(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3152(t0,t1,t2,t3,t4);} C_noret_decl(trf_3159) static void C_ccall trf_3159(C_word c,C_word *av) C_noret; static void C_ccall trf_3159(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3159(t0,t1);} C_noret_decl(trf_3163) static void C_ccall trf_3163(C_word c,C_word *av) C_noret; static void C_ccall trf_3163(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3163(t0,t1,t2);} C_noret_decl(trf_3208) static void C_ccall trf_3208(C_word c,C_word *av) C_noret; static void C_ccall trf_3208(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3208(t0,t1,t2);} C_noret_decl(trf_3214) static void C_ccall trf_3214(C_word c,C_word *av) C_noret; static void C_ccall trf_3214(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3214(t0,t1,t2);} C_noret_decl(trf_3220) static void C_ccall trf_3220(C_word c,C_word *av) C_noret; static void C_ccall trf_3220(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3220(t0,t1,t2);} C_noret_decl(trf_3226) static void C_ccall trf_3226(C_word c,C_word *av) C_noret; static void C_ccall trf_3226(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3226(t0,t1,t2,t3,t4);} C_noret_decl(trf_3301) static void C_ccall trf_3301(C_word c,C_word *av) C_noret; static void C_ccall trf_3301(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3301(t0,t1);} C_noret_decl(trf_3402) static void C_ccall trf_3402(C_word c,C_word *av) C_noret; static void C_ccall trf_3402(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3402(t0,t1);} C_noret_decl(trf_3409) static void C_ccall trf_3409(C_word c,C_word *av) C_noret; static void C_ccall trf_3409(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3409(t0,t1);} C_noret_decl(trf_3453) static void C_ccall trf_3453(C_word c,C_word *av) C_noret; static void C_ccall trf_3453(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3453(t0,t1);} C_noret_decl(trf_3520) static void C_ccall trf_3520(C_word c,C_word *av) C_noret; static void C_ccall trf_3520(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3520(t0,t1);} C_noret_decl(trf_3570) static void C_ccall trf_3570(C_word c,C_word *av) C_noret; static void C_ccall trf_3570(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3570(t0,t1,t2);} C_noret_decl(trf_3593) static void C_ccall trf_3593(C_word c,C_word *av) C_noret; static void C_ccall trf_3593(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3593(t0,t1,t2);} C_noret_decl(trf_3615) static void C_ccall trf_3615(C_word c,C_word *av) C_noret; static void C_ccall trf_3615(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3615(t0,t1);} C_noret_decl(trf_3675) static void C_ccall trf_3675(C_word c,C_word *av) C_noret; static void C_ccall trf_3675(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3675(t0,t1);} C_noret_decl(trf_3723) static void C_ccall trf_3723(C_word c,C_word *av) C_noret; static void C_ccall trf_3723(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3723(t0,t1,t2);} C_noret_decl(trf_3771) static void C_ccall trf_3771(C_word c,C_word *av) C_noret; static void C_ccall trf_3771(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3771(t0,t1,t2);} C_noret_decl(trf_3863) static void C_ccall trf_3863(C_word c,C_word *av) C_noret; static void C_ccall trf_3863(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3863(t0,t1);} C_noret_decl(trf_3923) static void C_ccall trf_3923(C_word c,C_word *av) C_noret; static void C_ccall trf_3923(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3923(t0,t1);} C_noret_decl(trf_3967) static void C_ccall trf_3967(C_word c,C_word *av) C_noret; static void C_ccall trf_3967(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3967(t0,t1,t2);} C_noret_decl(trf_3977) static void C_ccall trf_3977(C_word c,C_word *av) C_noret; static void C_ccall trf_3977(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3977(t0,t1);} C_noret_decl(trf_4040) static void C_ccall trf_4040(C_word c,C_word *av) C_noret; static void C_ccall trf_4040(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4040(t0,t1,t2);} C_noret_decl(trf_4066) static void C_ccall trf_4066(C_word c,C_word *av) C_noret; static void C_ccall trf_4066(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4066(t0,t1,t2);} C_noret_decl(trf_4078) static void C_ccall trf_4078(C_word c,C_word *av) C_noret; static void C_ccall trf_4078(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4078(t0,t1,t2);} C_noret_decl(trf_4189) static void C_ccall trf_4189(C_word c,C_word *av) C_noret; static void C_ccall trf_4189(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4189(t0,t1,t2);} C_noret_decl(trf_4293) static void C_ccall trf_4293(C_word c,C_word *av) C_noret; static void C_ccall trf_4293(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4293(t0,t1,t2);} C_noret_decl(trf_4324) static void C_ccall trf_4324(C_word c,C_word *av) C_noret; static void C_ccall trf_4324(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4324(t0,t1,t2);} C_noret_decl(trf_4385) static void C_ccall trf_4385(C_word c,C_word *av) C_noret; static void C_ccall trf_4385(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4385(t0,t1,t2);} C_noret_decl(trf_4542) static void C_ccall trf_4542(C_word c,C_word *av) C_noret; static void C_ccall trf_4542(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4542(t0,t1,t2);} C_noret_decl(trf_4590) static void C_ccall trf_4590(C_word c,C_word *av) C_noret; static void C_ccall trf_4590(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4590(t0,t1,t2);} C_noret_decl(trf_4636) static void C_ccall trf_4636(C_word c,C_word *av) C_noret; static void C_ccall trf_4636(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4636(t0,t1,t2);} C_noret_decl(trf_4689) static void C_ccall trf_4689(C_word c,C_word *av) C_noret; static void C_ccall trf_4689(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4689(t0,t1,t2);} C_noret_decl(trf_4740) static void C_ccall trf_4740(C_word c,C_word *av) C_noret; static void C_ccall trf_4740(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4740(t0,t1,t2);} /* f5313 in k3518 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f5313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5313,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[61]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f5371 in count-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f5371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5371,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[9],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f5392 in k3400 in k3389 in k3386 in k3383 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f5392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5392,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[9],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f5404 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f5404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5404,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[9],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f5411 in g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f5411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5411,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[9],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1440 */ static void C_ccall f_1442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1442,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1445,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1443 in k1440 */ static void C_ccall f_1445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1445,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1448,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k1446 in k1443 in k1440 */ static void C_ccall f_1448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1448,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1451,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_1451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1451,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1454,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_support_toplevel(2,av2);}} /* k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_1454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_1454,2,av);} a=C_alloc(22); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate(&lf[2] /* (set! chicken.compiler.lfa2#posq ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2668,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[3] /* (set! chicken.compiler.lfa2#+unboxed-map+ ...) */,lf[4]); t6=C_mutate((C_word*)lf[5]+1 /* (set! chicken.compiler.lfa2#perform-secondary-flow-analysis ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2739,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate((C_word*)lf[88]+1 /* (set! chicken.compiler.lfa2#perform-unboxing ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4212,tmp=(C_word)a,a+=2,tmp)); t8=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* foldr245 in eliminate-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_2074(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_2074,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2082,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2103,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g250 in foldr245 in eliminate-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_2082(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2082,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2089,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:131: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2087 in g250 in foldr245 in eliminate-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2089,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2101 in foldr245 in eliminate-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2103,2,av);} /* mini-srfi-1.scm:131: g250 */ t2=((C_word*)t0)[2]; f_2082(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* foldr263 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_2118(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_2118,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2152,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g268 in foldr263 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_2126(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_2126,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2130,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:135: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2128 in g268 in foldr263 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2130,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2134,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:135: g278 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* mini-srfi-1.scm:135: g278 */ f_2134(C_a_i(&a,3),t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g278 in k2128 in g268 in foldr263 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static C_word C_fcall f_2134(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));} /* k2150 in foldr263 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2152,2,av);} /* mini-srfi-1.scm:134: g268 */ t2=((C_word*)t0)[2]; f_2126(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a2163 in eliminate-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2164,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2172,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:141: pred */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2170 in a2163 in eliminate-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2172,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.lfa2#posq in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_2668(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_2668,3,t1,t2,t3);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2674,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=( f_2674(t4,C_fix(0),t3) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* loop in chicken.compiler.lfa2#posq in k1452 in k1449 in k1446 in k1443 in k1440 */ static C_word C_fcall f_2674(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t2))){ return(C_SCHEME_FALSE);} else{ t3=C_i_car(t2); t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ return(t1);} else{ t5=C_fixnum_plus(t1,C_fix(1)); t6=t2; t7=C_u_i_cdr(t6); t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}}} /* chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(78,c,5)))){ C_save_and_reclaim((void *)f_2739,4,av);} a=C_alloc(78); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_SCHEME_UNDEFINED; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_SCHEME_UNDEFINED; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_SCHEME_UNDEFINED; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=C_SCHEME_UNDEFINED; t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp); t32=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2870,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t33=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2896,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t34=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2902,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t35=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2943,a[2]=t29,tmp=(C_word)a,a+=3,tmp)); t36=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2958,a[2]=t15,a[3]=t13,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t37=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3129,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t38=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3135,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t39=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3152,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t40=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3208,a[2]=t23,tmp=(C_word)a,a+=3,tmp)); t41=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3214,a[2]=t23,tmp=(C_word)a,a+=3,tmp)); t42=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3220,a[2]=t23,tmp=(C_word)a,a+=3,tmp)); t43=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3226,a[2]=t25,a[3]=t19,a[4]=t21,a[5]=t31,a[6]=t11,a[7]=t7,a[8]=t27,a[9]=t17,tmp=(C_word)a,a+=10,tmp)); t44=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4140,a[2]=t1,a[3]=t7,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* lfa2.scm:489: walk */ t45=((C_word*)t31)[1]; f_3226(t45,t44,t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* k2753 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2755,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[37]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[38]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:245: chicken.compiler.support#big-fixnum? */ t3=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k2765 in k2753 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2767,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2770,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_2770(2,av2);}} else{ /* lfa2.scm:245: chicken.compiler.support#small-bignum? */ t3=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k2768 in k2765 in k2753 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_2770,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[39]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_fixnump(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[40]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_bignump(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[41]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[42]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[43]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_cplxnump(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[44]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_booleanp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[34]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[45]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_listp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[46]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[47]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_eofp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[48]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[49]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_immp(((C_word*)t0)[3]); t3=C_i_not(t2); t4=(C_truep(t3)?C_structurep(((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t4)){ t5=C_slot(((C_word*)t0)[3],C_fix(0)); t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,2,lf[50],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_charp(((C_word*)t0)[3]); t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=(C_truep(t5)?lf[51]:lf[30]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}}}}}}}}}}} /* report in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_2870(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){ C_save_and_reclaim_args((void *)trf_2870,3,t0,t1,t2);} a=C_alloc(29); t3=C_i_assoc(t2,((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t3)){ t4=t1; t5=C_i_cdr(t3); t6=C_s_a_i_plus(&a,2,t5,C_fix(1)); t7=t4;{ C_word av2[2]; av2[0]=t7; av2[1]=C_i_set_cdr(t3,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=t2; t5=((C_word*)((C_word*)t0)[2])[1]; t6=C_a_i_cons(&a,2,t4,C_fix(1)); t7=C_a_i_cons(&a,2,t6,t5); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* assigned? in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_2896(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_2896,3,t0,t1,t2);} /* lfa2.scm:268: chicken.compiler.support#db-get */ t3=*((C_word*)lf[6]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* droppable? in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_2902(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2902,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2907,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* lfa2.scm:271: chicken.compiler.support#node-class */ t4=*((C_word*)lf[14]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2905 in droppable? in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2907,2,av);} a=C_alloc(5); t2=C_u_i_memq(t1,lf[8]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2941,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* lfa2.scm:273: chicken.compiler.support#node-class */ t4=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k2931 in k2935 in k2939 in k2905 in droppable? in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2933,2,av);} t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* lfa2.scm:276: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[11]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k2935 in k2939 in k2905 in droppable? in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2937,2,av);} a=C_alloc(4); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2933,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:275: chicken.compiler.support#db-get */ t5=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t3; av2[4]=lf[12]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k2939 in k2905 in droppable? in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2941,2,av);} a=C_alloc(4); t2=C_eqp(lf[9],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2937,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:274: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* drop! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_2943(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_2943,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2947,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:279: sub-boxed */ t4=((C_word*)((C_word*)t0)[2])[1]; f_3220(t4,t3,t2);} /* k2945 in drop! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2947,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2950,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:280: chicken.compiler.support#node-class-set! */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[18]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2948 in k2945 in drop! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2950,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2953,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:281: chicken.compiler.support#node-parameters-set! */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2951 in k2948 in k2945 in drop! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2953,2,av);} /* lfa2.scm:282: chicken.compiler.support#node-subexpressions-set! */ t2=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_2958(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_2958,4,t0,t1,t2,t3);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2962,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3066,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:285: chicken.compiler.support#node-parameters */ t6=*((C_word*)lf[13]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2960 in extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_2962,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2965,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* lfa2.scm:286: chicken.compiler.support#node-subexpressions */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2963 in k2960 in extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_2965,2,av);} a=C_alloc(20); t2=C_SCHEME_TRUE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2966,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=C_i_check_list_2(t1,lf[19]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2983,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3037,a[2]=t8,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_3037(t10,t6,t1);} /* g601 in k2963 in k2960 in extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_2966(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2966,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2973,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* lfa2.scm:290: droppable? */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2902(t4,t3,t2);} /* k2971 in g601 in k2963 in k2960 in extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2973,2,av);} if(C_truep(t1)){ /* lfa2.scm:291: drop! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2943(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2981 in k2963 in k2960 in extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_2983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_2983,2,av);} a=C_alloc(8); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ /* lfa2.scm:295: drop! */ t2=((C_word*)((C_word*)t0)[3])[1]; f_2943(t2,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3000,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3035,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:301: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k2998 in k2981 in k2963 in k2960 in extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3000,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* lfa2.scm:296: chicken.compiler.support#node-parameters-set! */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3005 in k3033 in k2981 in k2963 in k2960 in extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3007,2,av);} /* lfa2.scm:299: scheme#string-append */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3033 in k2981 in k2963 in k2960 in extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3035,2,av);} a=C_alloc(4); t2=C_i_length(t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3007,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); switch(t2){ case C_fix(1): /* lfa2.scm:299: scheme#string-append */ t4=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[21]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);} case C_fix(2): /* lfa2.scm:299: scheme#string-append */ t4=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[22]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);} case C_fix(3): /* lfa2.scm:299: scheme#string-append */ t4=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[23]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);} default: /* lfa2.scm:305: chicken.compiler.support#bomb */ t4=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[25]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* for-each-loop600 in k2963 in k2960 in extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3037(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3037,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3047,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* lfa2.scm:288: g601 */ t5=((C_word*)t0)[3]; f_2966(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3045 in for-each-loop600 in k2963 in k2960 in extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3047,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3037(t3,((C_word*)t0)[4],t2);} /* k3064 in extinguish! in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3066,2,av);} t2=C_i_car(t1); /* lfa2.scm:285: report */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2870(t3,((C_word*)t0)[3],t2);} /* loop in k3246 in k3243 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3083(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3083,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3093,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_cdar(t2); t5=C_eqp(((C_word*)t0)[3],t4); if(C_truep(t5)){ t6=t2; t7=C_u_i_car(t6); t8=C_u_i_car(t7); t9=t3; f_3093(t9,C_i_assq(t8,((C_word*)t0)[4]));} else{ t6=t3; f_3093(t6,C_SCHEME_FALSE);}}} /* k3091 in loop in k3246 in k3243 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3093(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_3093,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_i_cdr(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* lfa2.scm:315: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3083(t4,((C_word*)t0)[2],t3);}} /* floatvar? in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static C_word C_fcall f_3129(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)((C_word*)t0)[2])[1]));} /* eliminate-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3135(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_3135,3,t0,t1,t2);} a=C_alloc(16); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3140,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3142,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=((C_word*)((C_word*)t0)[2])[1]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2164,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t8=t7; t9=C_i_check_list_2(t6,lf[27]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2074,a[2]=t8,a[3]=t11,tmp=(C_word)a,a+=4,tmp)); t13=((C_word*)t11)[1]; f_2074(t13,t3,t6);} /* k3138 in eliminate-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3140,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a3141 in eliminate-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3142,3,av);} t3=C_i_car(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(((C_word*)t0)[2],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* count-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3152(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_3152,5,t0,t1,t2,t3,t4);} a=C_alloc(13); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_fix(1):C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3159,a[2]=t7,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3189,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t10=t9; t11=t2; t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5371,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:318: chicken.compiler.support#node-class */ t13=*((C_word*)lf[14]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t12; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* k3157 in count-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3159(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_3159,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3163,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:328: g666 */ t3=t2; f_3163(t3,((C_word*)t0)[4],t1);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g666 in k3157 in count-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3163(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3163,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3171,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* lfa2.scm:332: acc */ t4=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3169 in g666 in k3157 in count-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3171,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3183,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* lfa2.scm:332: acc */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3181 in k3169 in g666 in k3157 in count-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_3183,2,av);} a=C_alloc(29); t2=C_i_car(t1); t3=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_set_car(((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3187 in count-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3189,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3200,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:329: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; f_3159(t2,C_SCHEME_FALSE);}} /* k3198 in k3187 in count-floatvar in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3200,2,av);} t2=C_i_car(t1); t3=((C_word*)t0)[2]; f_3159(t3,C_i_assq(t2,((C_word*)((C_word*)t0)[3])[1]));} /* add-boxed in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3208(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_3208,3,t0,t1,t2);} /* lfa2.scm:334: count-floatvar */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3152(t3,t1,t2,*((C_word*)lf[28]+1),C_SCHEME_END_OF_LIST);} /* add-unboxed in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3214(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_3214,3,t0,t1,t2);} /* lfa2.scm:335: count-floatvar */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3152(t3,t1,t2,*((C_word*)lf[29]+1),C_SCHEME_END_OF_LIST);} /* sub-boxed in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3220(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_3220,3,t0,t1,t2);} a=C_alloc(3); /* lfa2.scm:336: count-floatvar */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3152(t3,t1,t2,*((C_word*)lf[28]+1),C_a_i_list(&a,1,C_fix(-1)));} /* walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3226(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_3226,5,t0,t1,t2,t3,t4);} a=C_alloc(14); t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_3230,a[2]=t1,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t2,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],tmp=(C_word)a,a+=14,tmp); /* lfa2.scm:339: chicken.compiler.support#node-class */ t6=*((C_word*)lf[14]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3230,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3233,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* lfa2.scm:340: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_3233,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_3236,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* lfa2.scm:341: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_3236,2,av);} a=C_alloc(24); t2=t1; t3=C_eqp(((C_word*)t0)[2],lf[9]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3245,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t5=C_i_car(((C_word*)t0)[3]); t6=( /* lfa2.scm:344: floatvar? */ f_3129(((C_word*)((C_word*)t0)[9])[1],t5) ); if(C_truep(t6)){ t7=C_i_car(((C_word*)t0)[3]); t8=C_i_assq(t7,((C_word*)t0)[5]); if(C_truep(C_i_not(t8))){ t9=C_i_car(((C_word*)t0)[3]); /* lfa2.scm:346: eliminate-floatvar */ t10=((C_word*)((C_word*)t0)[10])[1]; f_3135(t10,t4,t9);} else{ t9=t4;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_3245(2,av2);}}} else{ t7=t4;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_3245(2,av2);}}} else{ t4=C_eqp(((C_word*)t0)[2],lf[31]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[2],lf[32])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3295,a[2]=t2,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t7=C_i_car(t2); /* lfa2.scm:350: walk */ t8=((C_word*)((C_word*)t0)[11])[1]; f_3226(t8,t6,t7,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ t6=C_eqp(((C_word*)t0)[2],lf[35]); if(C_truep(t6)){ t7=C_i_car(((C_word*)t0)[3]); t8=((C_word*)t0)[4]; t9=t7; if(C_truep(C_i_stringp(t9))){ t10=t8;{ C_word *av2=av; av2[0]=t10; av2[1]=lf[36]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2755,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:242: chicken.keyword#keyword? */ t11=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}} else{ t7=C_eqp(((C_word*)t0)[2],lf[55]); if(C_truep(t7)){ t8=C_i_car(t2); t9=t8; t10=C_i_car(((C_word*)t0)[3]); t11=t10; t12=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_3385,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=t11,a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[4],a[7]=t9,a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[9],tmp=(C_word)a,a+=14,tmp); /* lfa2.scm:365: walk */ t13=((C_word*)((C_word*)t0)[11])[1]; f_3226(t13,t12,t9,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ t8=C_eqp(((C_word*)t0)[2],lf[56]); t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[2],lf[57])); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3495,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t11=C_i_car(t2); /* lfa2.scm:387: walk */ t12=((C_word*)((C_word*)t0)[11])[1]; f_3226(t12,t10,t11,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} else{ t10=C_eqp(((C_word*)t0)[2],lf[59]); t11=(C_truep(t10)?t10:C_eqp(((C_word*)t0)[2],lf[60])); if(C_truep(t11)){ t12=C_i_car(t2); t13=t12; t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3514,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[11],a[4]=t13,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3520,a[2]=((C_word*)t0)[10],a[3]=t14,a[4]=t13,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3534,a[2]=t15,a[3]=((C_word*)t0)[9],a[4]=t13,tmp=(C_word)a,a+=5,tmp); t17=t16; t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5404,a[2]=t17,tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:318: chicken.compiler.support#node-class */ t19=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t19; av2[1]=t18; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}} else{ t12=C_eqp(((C_word*)t0)[2],lf[18]); if(C_truep(t12)){ t13=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t13; av2[1]=lf[61]; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=C_eqp(((C_word*)t0)[2],lf[62]); if(C_truep(t13)){ t14=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t14; av2[1]=lf[58]; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=C_eqp(((C_word*)t0)[2],lf[63]); t15=(C_truep(t14)?t14:C_eqp(((C_word*)t0)[2],lf[64])); if(C_truep(t15)){ t16=C_i_car(((C_word*)t0)[3]); t17=C_i_assoc(t16,lf[3]); t18=t17; t19=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3570,a[2]=t18,a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t20=C_i_check_list_2(t2,lf[19]); t21=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3586,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[15],a[4]=((C_word*)t0)[8],a[5]=t2,a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[4],tmp=(C_word)a,a+=10,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4040,a[2]=t23,a[3]=t19,tmp=(C_word)a,a+=4,tmp)); t25=((C_word*)t23)[1]; f_4040(t25,t21,t2);} else{ t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4066,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t17=C_i_check_list_2(t2,lf[19]); t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4076,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t19=C_SCHEME_UNDEFINED; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4078,a[2]=t20,a[3]=t16,tmp=(C_word)a,a+=4,tmp)); t22=((C_word*)t20)[1]; f_4078(t22,t18,t2);}}}}}}}}}} /* k3243 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3245,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3248,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* lfa2.scm:347: add-boxed */ t3=((C_word*)((C_word*)t0)[6])[1]; f_3208(t3,t2,((C_word*)t0)[7]);} /* k3246 in k3243 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3248,2,av);} a=C_alloc(7); t2=C_i_car(((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=t2; t5=((C_word*)t0)[4]; t6=((C_word*)t0)[5]; t7=C_i_assq(t4,t5); if(C_truep(t7)){ t8=t3;{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_cdr(t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3083,a[2]=t9,a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_3083(t11,t3,t6);}} /* k3293 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3295,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3301,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(t2))){ t4=C_u_i_car(t2); t5=t3; f_3301(t5,C_eqp(lf[34],t4));} else{ t4=t3; f_3301(t4,C_SCHEME_FALSE);}} /* k3299 in k3293 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3301(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_3301,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3304,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_i_cadr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3327,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t6=C_i_cadr(((C_word*)t0)[6]); /* lfa2.scm:353: scheme#append */ t7=*((C_word*)lf[33]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3334,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t3=C_i_cadr(((C_word*)t0)[2]); /* lfa2.scm:359: walk */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3226(t4,t2,t3,((C_word*)t0)[7],((C_word*)t0)[5]);}} /* k3302 in k3299 in k3293 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3304,2,av);} a=C_alloc(6); t2=C_i_caddr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3315,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t5=C_i_caddr(((C_word*)t0)[6]); /* lfa2.scm:356: scheme#append */ t6=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k3313 in k3302 in k3299 in k3293 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3315,2,av);} /* lfa2.scm:355: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3226(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k3325 in k3299 in k3293 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3327,2,av);} /* lfa2.scm:352: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3226(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k3332 in k3299 in k3293 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3334,2,av);} t2=C_i_caddr(((C_word*)t0)[2]); /* lfa2.scm:360: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3226(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k3383 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3385,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3388,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* lfa2.scm:366: assigned? */ t4=((C_word*)((C_word*)t0)[8])[1]; f_2896(t4,t3,((C_word*)t0)[4]);} /* k3386 in k3383 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_3388,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3391,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3453,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[12],a[5]=t3,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[13],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_not(t2))){ t5=C_eqp(lf[42],((C_word*)t0)[10]); if(C_truep(t5)){ t6=( /* lfa2.scm:369: floatvar? */ f_3129(((C_word*)((C_word*)t0)[14])[1],((C_word*)t0)[4]) ); t7=t4; f_3453(t7,C_i_not(t6));} else{ t6=t4; f_3453(t6,C_SCHEME_FALSE);}} else{ t5=t4; f_3453(t5,C_SCHEME_FALSE);}} /* k3389 in k3386 in k3383 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_3391,2,av);} a=C_alloc(16); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3402,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[8])){ t5=t4; f_3402(t5,((C_word*)t0)[10]);} else{ t5=((C_word*)t0)[10]; t6=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[11]); t7=t4; f_3402(t7,C_a_i_cons(&a,2,t6,t5));}} /* k3400 in k3389 in k3386 in k3383 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3402(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_3402,2,t0,t1);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3409,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3426,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5392,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:318: chicken.compiler.support#node-class */ t7=*((C_word*)lf[14]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k3407 in k3400 in k3389 in k3386 in k3383 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3409(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_3409,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3423,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* lfa2.scm:380: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[13]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; /* lfa2.scm:373: walk */ t3=((C_word*)((C_word*)t0)[4])[1]; f_3226(t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2);}} /* k3421 in k3407 in k3400 in k3389 in k3386 in k3383 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_3423,2,av);} a=C_alloc(12); t2=C_i_car(t1); t3=((C_word*)t0)[2]; t4=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,t4,t3); t6=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t7=C_a_i_cons(&a,2,t6,t5); /* lfa2.scm:373: walk */ t8=((C_word*)((C_word*)t0)[4])[1]; f_3226(t8,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t7);} /* k3424 in k3400 in k3389 in k3386 in k3383 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3426,2,av);} a=C_alloc(7); if(C_truep(t1)){ if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3439,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3447,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:379: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[3]; f_3409(t2,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[3]; f_3409(t2,C_SCHEME_FALSE);}} /* k3437 in k3424 in k3400 in k3389 in k3386 in k3383 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3439,2,av);} t2=((C_word*)t0)[2]; f_3409(t2,C_i_not(t1));} /* k3445 in k3424 in k3400 in k3389 in k3386 in k3383 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3447,2,av);} t2=C_i_car(t1); /* lfa2.scm:379: assigned? */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2896(t3,((C_word*)t0)[3],t2);} /* k3451 in k3386 in k3383 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3453(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_3453,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=C_a_i_list3(&a,3,((C_word*)t0)[2],C_fix(0),C_fix(0)); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); /* lfa2.scm:371: add-unboxed */ t5=((C_word*)((C_word*)t0)[4])[1]; f_3214(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ /* lfa2.scm:372: add-boxed */ t2=((C_word*)((C_word*)t0)[7])[1]; f_3208(t2,((C_word*)t0)[5],((C_word*)t0)[6]);}} /* k3493 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3495,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[58]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3512 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3514,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3517,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:394: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3226(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k3515 in k3512 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3517,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[61]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3518 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3520(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_3520,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3531,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:393: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[13]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5313,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:394: walk */ t3=((C_word*)((C_word*)t0)[6])[1]; f_3226(t3,t2,((C_word*)t0)[4],((C_word*)t0)[7],((C_word*)t0)[8]);}} /* k3529 in k3518 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3531,2,av);} t2=C_i_car(t1); /* lfa2.scm:393: eliminate-floatvar */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3135(t3,((C_word*)t0)[3],t2);} /* k3532 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3534,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3545,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:392: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; f_3520(t2,C_SCHEME_FALSE);}} /* k3543 in k3532 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3545,2,av);} t2=C_i_car(t1); /* lfa2.scm:392: floatvar? */ t3=((C_word*)t0)[2]; f_3520(t3,( /* lfa2.scm:392: floatvar? */ f_3129(((C_word*)((C_word*)t0)[3])[1],t2) ));} /* g731 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3570(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_3570,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3574,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* lfa2.scm:402: walk */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3226(t4,t3,t2,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k3572 in g731 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3574,2,av);} if(C_truep(((C_word*)t0)[2])){ /* lfa2.scm:403: add-unboxed */ t2=((C_word*)((C_word*)t0)[3])[1]; f_3214(t2,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3586,2,av);} a=C_alloc(8); t2=C_i_car(((C_word*)t0)[2]); t3=C_i_assoc(t2,lf[65]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3593,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* lfa2.scm:405: g753 */ t5=t4; f_3593(t5,((C_word*)t0)[9],t3);} else{ t4=C_i_car(((C_word*)t0)[2]); t5=C_i_assoc(t4,lf[72]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3723,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); /* lfa2.scm:405: g768 */ t7=t6; f_3723(t7,((C_word*)t0)[9],t5);} else{ t6=C_i_car(((C_word*)t0)[2]); t7=C_i_assoc(t6,lf[73]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3771,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* lfa2.scm:405: g777 */ t9=t8; f_3771(t9,((C_word*)t0)[9],t7);} else{ t8=C_i_car(((C_word*)t0)[2]); t9=C_i_assoc(t8,lf[77]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3967,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:405: g804 */ t11=t10; f_3967(t11,((C_word*)t0)[9],t9);} else{ t10=C_SCHEME_UNDEFINED; t11=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}} /* g753 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3593(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_3593,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3597,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t4=C_i_car(((C_word*)t0)[4]); /* lfa2.scm:407: walk */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3226(t5,t3,t4,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k3595 in g753 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_3597,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3600,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[66]+1))){ /* lfa2.scm:409: extinguish! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2958(t4,t3,((C_word*)t0)[4],lf[67]);} else{ t4=C_i_cadr(((C_word*)t0)[5]); t5=C_eqp(lf[68],t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3615,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(t2))){ t7=C_i_car(t2); t8=C_eqp(lf[50],t7); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3661,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t10=C_i_cadr(((C_word*)t0)[6]); /* lfa2.scm:414: chicken.compiler.support#node-class */ t11=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t9=t6; f_3615(t9,C_SCHEME_FALSE);}} else{ t7=t6; f_3615(t7,C_SCHEME_FALSE);}} else{ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3675,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],a[7]=t2,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(t2))){ t7=C_u_i_car(t2); t8=t6; f_3675(t8,C_eqp(lf[34],t7));} else{ t7=t6; f_3675(t7,C_SCHEME_FALSE);}}}} /* k3598 in k3595 in g753 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3600,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3613 in k3595 in g753 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3615(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3615,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_cadr(((C_word*)t0)[7]); /* lfa2.scm:415: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[13]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3639 in k3613 in k3595 in g753 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3641,2,av);} t2=C_i_car(t1); if(C_truep(C_i_symbolp(t2))){ t3=C_i_cadr(((C_word*)t0)[2]); t4=C_eqp(t2,t3); if(C_truep(t4)){ /* lfa2.scm:418: extinguish! */ t5=((C_word*)((C_word*)t0)[3])[1]; f_2958(t5,((C_word*)t0)[4],((C_word*)t0)[5],lf[69]);} else{ t5=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t5; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3659 in k3595 in g753 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3661,2,av);} t2=((C_word*)t0)[2]; f_3615(t2,C_eqp(lf[35],t1));} /* k3673 in k3595 in g753 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3675(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3675,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_memq(lf[34],t3))){ /* lfa2.scm:421: extinguish! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2958(t4,((C_word*)t0)[4],((C_word*)t0)[5],lf[70]);} else{ t4=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_member(((C_word*)t0)[7],t3))){ /* lfa2.scm:424: extinguish! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2958(t4,((C_word*)t0)[4],((C_word*)t0)[5],lf[71]);} else{ t4=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* g768 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3723(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_3723,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3730,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* lfa2.scm:429: walk */ t6=((C_word*)((C_word*)t0)[4])[1]; f_3226(t6,t5,t4,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k3728 in g768 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_3730,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3733,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[3]); if(C_truep(C_i_member(t2,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3739,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3757,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:431: chicken.compiler.support#node-class */ t7=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k3731 in k3728 in g768 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3733,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3737 in k3728 in g768 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3739,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3742,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3753,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:432: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3740 in k3737 in k3728 in g768 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3742,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3749,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:433: chicken.compiler.support#node-subexpressions */ t3=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3747 in k3740 in k3737 in k3728 in g768 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3749,2,av);} /* lfa2.scm:433: chicken.compiler.support#node-subexpressions-set! */ t2=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3751 in k3737 in k3728 in g768 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3753,2,av);} /* lfa2.scm:432: chicken.compiler.support#node-parameters-set! */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3755 in k3728 in g768 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3757,2,av);} /* lfa2.scm:431: chicken.compiler.support#node-class-set! */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3771(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_3771,3,t0,t1,t2);} a=C_alloc(14); t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3781,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); t6=t5; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5411,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:318: chicken.compiler.support#node-class */ t8=*((C_word*)lf[14]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k3779 in g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_3781,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3848,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* lfa2.scm:442: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3851,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* lfa2.scm:456: walk */ t3=((C_word*)((C_word*)t0)[8])[1]; f_3226(t3,t2,((C_word*)t0)[5],((C_word*)t0)[9],((C_word*)t0)[10]);}} /* k3823 in k3831 in k3846 in k3779 in g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_3825,2,av);} a=C_alloc(21); t2=C_i_car(t1); if(C_truep(C_i_symbolp(t2))){ t3=C_a_i_list(&a,2,lf[50],t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],t3); t5=C_a_i_list(&a,1,t4); t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[34],t5,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=C_a_i_cons(&a,2,((C_word*)t0)[2],lf[50]); t4=C_a_i_list(&a,1,t3); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[34],t4,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k3831 in k3846 in k3779 in g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3833,2,av);} a=C_alloc(15); t2=C_eqp(lf[35],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3825,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(((C_word*)t0)[4]); /* lfa2.scm:447: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_a_i_cons(&a,2,((C_word*)t0)[2],lf[50]); t4=C_a_i_list(&a,1,t3); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[34],t4,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k3846 in k3779 in g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3848,2,av);} a=C_alloc(15); t2=C_i_car(t1); t3=t2; t4=C_i_cadr(((C_word*)t0)[2]); t5=C_eqp(lf[68],t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3833,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t7=C_i_cadr(((C_word*)t0)[4]); /* lfa2.scm:445: chicken.compiler.support#node-class */ t8=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t6=C_i_cadr(((C_word*)t0)[2]); t7=C_a_i_cons(&a,2,t3,t6); t8=C_a_i_list(&a,1,t7); t9=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t9; av2[1]=C_a_i_list(&a,3,lf[34],t8,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k3849 in k3779 in g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_3851,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3854,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_i_cadr(((C_word*)t0)[3]); t5=C_eqp(lf[68],t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3863,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(t2))){ t7=C_i_car(t2); t8=C_eqp(lf[50],t7); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3909,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t10=C_i_cadr(((C_word*)t0)[6]); /* lfa2.scm:461: chicken.compiler.support#node-class */ t11=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t9=t6; f_3863(t9,C_SCHEME_FALSE);}} else{ t7=t6; f_3863(t7,C_SCHEME_FALSE);}} else{ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3923,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=t2,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(t2))){ t7=C_u_i_car(t2); t8=t6; f_3923(t8,C_eqp(lf[34],t7));} else{ t7=t6; f_3923(t7,C_SCHEME_FALSE);}}} /* k3852 in k3849 in k3779 in g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3854,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[34]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3861 in k3849 in k3779 in g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3863(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3863,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3889,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_cadr(((C_word*)t0)[7]); /* lfa2.scm:463: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[13]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[34]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3887 in k3861 in k3849 in k3779 in g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3889,2,av);} t2=C_i_car(t1); if(C_truep(C_i_symbolp(t2))){ t3=C_i_cadr(((C_word*)t0)[2]); t4=C_eqp(t2,t3); if(C_truep(t4)){ /* lfa2.scm:466: extinguish! */ t5=((C_word*)((C_word*)t0)[3])[1]; f_2958(t5,((C_word*)t0)[4],((C_word*)t0)[5],lf[74]);} else{ t5=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t5; av2[1]=lf[34]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[34]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3907 in k3849 in k3779 in g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3909,2,av);} t2=((C_word*)t0)[2]; f_3863(t2,C_eqp(lf[35],t1));} /* k3921 in k3849 in k3779 in g777 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3923(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3923,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_memq(lf[34],t3))){ /* lfa2.scm:469: extinguish! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2958(t4,((C_word*)t0)[4],((C_word*)t0)[5],lf[75]);} else{ t4=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[34]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_member(((C_word*)t0)[7],t3))){ /* lfa2.scm:472: extinguish! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2958(t4,((C_word*)t0)[4],((C_word*)t0)[5],lf[76]);} else{ t4=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[34]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* g804 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3967(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_3967,3,t0,t1,t2);} a=C_alloc(8); t3=C_i_pairp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3977,a[2]=t1,a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t7=C_i_cadr(t2); t8=C_eqp(lf[68],t7); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4009,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:479: chicken.compiler.support#node-class */ t10=*((C_word*)lf[14]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t9=t6; f_3977(t9,C_SCHEME_FALSE);}} else{ t7=t6; f_3977(t7,C_SCHEME_FALSE);}} /* k3975 in g804 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_3977(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_3977,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3993,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:480: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[13]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_i_cadr(((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3991 in k3975 in g804 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_3993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_3993,2,av);} a=C_alloc(6); t2=C_i_car(t1); t3=C_i_symbolp(t2); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?C_a_i_list(&a,2,lf[50],t2):lf[50]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4007 in g804 in k3584 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4009,2,av);} t2=((C_word*)t0)[2]; f_3977(t2,C_eqp(lf[35],t1));} /* for-each-loop730 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4040(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4040,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4050,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* lfa2.scm:400: g731 */ t5=((C_word*)t0)[3]; f_3570(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4048 in for-each-loop730 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4050,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4040(t3,((C_word*)t0)[4],t2);} /* g819 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4066(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_4066,3,t0,t1,t2);} /* lfa2.scm:486: g834 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3226(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k4074 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4076,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop818 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4078(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4078,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4088,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* lfa2.scm:486: g819 */ t5=((C_word*)t0)[3]; f_4066(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4086 in for-each-loop818 in k3234 in k3231 in k3228 in walk in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4088,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4078(t3,((C_word*)t0)[4],t2);} /* k4138 in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4140,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4143,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[4])[1]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4151,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:491: chicken.compiler.support#with-debugging-output */ t4=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[87]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4141 in k4138 in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4143,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4150 in k4138 in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4151,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4155,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:494: chicken.base#print */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[85]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4153 in a4150 in k4138 in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4155,2,av);} a=C_alloc(5); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_check_list_2(t2,lf[19]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4189,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_4189(t7,((C_word*)t0)[3],t2);} /* k4161 in for-each-loop844 in k4153 in a4150 in k4138 in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4163,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4166,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)t0)[4]); /* lfa2.scm:496: ##sys#print */ t4=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4164 in k4161 in for-each-loop844 in k4153 in a4150 in k4138 in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4166,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4169,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* lfa2.scm:496: ##sys#print */ t3=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[82]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4167 in k4164 in k4161 in for-each-loop844 in k4153 in a4150 in k4138 in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4169,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4172,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_u_i_cdr(((C_word*)t0)[4]); /* lfa2.scm:496: ##sys#print */ t4=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4170 in k4167 in k4164 in k4161 in for-each-loop844 in k4153 in a4150 in k4138 in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4172,2,av);} /* lfa2.scm:496: ##sys#write-char-0 */ t2=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop844 in k4153 in a4150 in k4138 in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4189(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_4189,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4199,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=*((C_word*)lf[78]+1); t8=*((C_word*)lf[78]+1); t9=C_i_check_port_2(*((C_word*)lf[78]+1),C_fix(2),C_SCHEME_TRUE,lf[79]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4163,a[2]=t5,a[3]=t7,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* lfa2.scm:496: ##sys#print */ t11=*((C_word*)lf[81]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[83]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[78]+1); ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4197 in for-each-loop844 in k4153 in a4150 in k4138 in chicken.compiler.lfa2#perform-secondary-flow-analysis in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4199,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4189(t3,((C_word*)t0)[4],t2);} /* chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_4212,4,av);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4216,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4822,tmp=(C_word)a,a+=2,tmp); t6=t5; t7=C_i_check_list_2(t3,lf[27]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2118,a[2]=t6,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_2118(t11,t4,t3);} /* k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_4216,2,av);} a=C_alloc(23); t2=t1; t3=C_fix(0); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4218,a[2]=t2,a[3]=t4,a[4]=t6,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4445,a[2]=t2,a[3]=t8,a[4]=t6,a[5]=t4,tmp=(C_word)a,a+=6,tmp)); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4786,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* lfa2.scm:582: walk */ t12=((C_word*)t8)[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=((C_word*)t0)[3]; f_4445(3,av2);}} /* walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4218,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4222,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* lfa2.scm:510: chicken.compiler.support#node-class */ t4=*((C_word*)lf[14]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4222,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4225,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* lfa2.scm:511: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_4225,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4228,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* lfa2.scm:512: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4226 in k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_4228,2,av);} a=C_alloc(21); t2=t1; t3=C_eqp(((C_word*)t0)[2],lf[35]); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[3]); if(C_truep(C_i_flonump(t4))){ t5=C_a_i_list1(&a,1,t4); /* lfa2.scm:517: chicken.compiler.support#make-node */ t6=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=lf[90]; av2[3]=t5; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=C_eqp(((C_word*)t0)[2],lf[9]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4256,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t6=C_i_car(((C_word*)t0)[3]); /* lfa2.scm:520: posq */ f_2668(t5,t6,((C_word*)t0)[6]);} else{ t5=C_eqp(((C_word*)t0)[2],lf[63]); t6=(C_truep(t5)?t5:C_eqp(((C_word*)t0)[2],lf[64])); if(C_truep(t6)){ t7=C_i_car(((C_word*)t0)[3]); t8=C_i_assoc(t7,lf[3]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4293,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* lfa2.scm:525: g917 */ t10=t9; f_4293(t10,((C_word*)t0)[4],t8);} else{ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4373,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t11=t10; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=((C_word*)t12)[1]; t14=((C_word*)((C_word*)t0)[9])[1]; t15=C_i_check_list_2(t2,lf[94]); t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4383,a[2]=t9,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4385,a[2]=t12,a[3]=t18,a[4]=t14,a[5]=t13,tmp=(C_word)a,a+=6,tmp)); t20=((C_word*)t18)[1]; f_4385(t20,t16,t2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4432,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* lfa2.scm:540: walk */ t8=((C_word*)((C_word*)t0)[9])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[5]; f_4445(3,av2);}}}}} /* k4254 in k4226 in k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4256,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* lfa2.scm:522: chicken.compiler.support#make-node */ t3=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[91]; av2[3]=t2; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=C_a_i_list1(&a,1,((C_word*)t0)[4]); /* lfa2.scm:523: chicken.compiler.support#make-node */ t3=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[92]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* g917 in k4226 in k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4293(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(49,0,3)))){ C_save_and_reclaim_args((void *)trf_4293,3,t0,t1,t2);} a=C_alloc(49); t3=t2; t4=C_i_cadr(t3); t5=t2; t6=C_i_caddr(t5); t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t7,C_fix(1))); t9=C_a_i_list1(&a,1,t4); t10=t9; t11=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t12=t11; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=((C_word*)t13)[1]; t15=C_eqp(t6,lf[93]); t16=(C_truep(t15)?((C_word*)((C_word*)t0)[3])[1]:((C_word*)((C_word*)t0)[4])[1]); t17=t16; t18=C_i_check_list_2(((C_word*)t0)[5],lf[94]); t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4322,a[2]=t1,a[3]=t10,tmp=(C_word)a,a+=4,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4324,a[2]=t13,a[3]=t21,a[4]=t17,a[5]=t14,tmp=(C_word)a,a+=6,tmp)); t23=((C_word*)t21)[1]; f_4324(t23,t19,((C_word*)t0)[5]);} /* k4320 in g917 in k4226 in k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4322,2,av);} /* lfa2.scm:530: chicken.compiler.support#make-node */ t2=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[63]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop924 in g917 in k4226 in k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4324(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4324,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4349,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* lfa2.scm:532: g930 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4347 in map-loop924 in g917 in k4226 in k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4349,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4324(t6,((C_word*)t0)[5],t5);} /* k4371 in k4226 in k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4373,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* lfa2.scm:537: chicken.compiler.support#make-node */ t3=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[92]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4381 in k4226 in k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4383,2,av);} /* lfa2.scm:538: chicken.compiler.support#make-node */ t2=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop951 in k4226 in k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4385(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4385,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4410,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* lfa2.scm:539: g957 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4408 in map-loop951 in k4226 in k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4410,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4385(t6,((C_word*)t0)[5],t5);} /* k4430 in k4226 in k4223 in k4220 in walk/unbox in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4432,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* lfa2.scm:540: chicken.compiler.support#make-node */ t3=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[92]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4445,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4449,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* lfa2.scm:543: chicken.compiler.support#node-class */ t4=*((C_word*)lf[14]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4449,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4452,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* lfa2.scm:544: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_4452,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4455,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* lfa2.scm:545: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_4455,2,av);} a=C_alloc(18); t2=t1; t3=C_eqp(((C_word*)t0)[2],lf[9]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4464,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(((C_word*)t0)[4]); /* lfa2.scm:548: posq */ f_2668(t4,t5,((C_word*)t0)[6]);} else{ t4=C_eqp(((C_word*)t0)[2],lf[55]); if(C_truep(t4)){ t5=C_i_car(t2); t6=t5; t7=C_i_car(((C_word*)t0)[4]); t8=t7; t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4501,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t6,a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); /* lfa2.scm:557: posq */ f_2668(t9,t8,((C_word*)t0)[6]);} else{ t5=C_eqp(((C_word*)t0)[2],lf[63]); t6=(C_truep(t5)?t5:C_eqp(((C_word*)t0)[2],lf[64])); if(C_truep(t6)){ t7=C_i_car(((C_word*)t0)[4]); t8=C_i_assoc(t7,lf[3]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4590,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* lfa2.scm:564: g1024 */ t10=t9; f_4590(t10,((C_word*)t0)[3],t8);} else{ t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=((C_word*)((C_word*)t0)[7])[1]; t14=C_i_check_list_2(t2,lf[94]); t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4687,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4689,a[2]=t11,a[3]=t17,a[4]=t13,a[5]=t12,tmp=(C_word)a,a+=6,tmp)); t19=((C_word*)t17)[1]; f_4689(t19,t15,t2);}} else{ t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=((C_word*)((C_word*)t0)[7])[1]; t12=C_i_check_list_2(t2,lf[94]); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4738,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4740,a[2]=t9,a[3]=t15,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_4740(t17,t13,t2);}}}} /* k4462 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4464,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4478,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); /* lfa2.scm:551: chicken.compiler.support#make-node */ t4=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[91]; av2[3]=t3; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4476 in k4462 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4478,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* lfa2.scm:550: chicken.compiler.support#make-node */ t3=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[95]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4499 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_4501,2,av);} a=C_alloc(17); if(C_truep(t1)){ t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4519,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* lfa2.scm:560: walk/unbox */ t5=((C_word*)((C_word*)t0)[6])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; f_4218(3,av2);}} else{ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=((C_word*)((C_word*)t0)[5])[1]; t7=C_i_check_list_2(((C_word*)t0)[4],lf[94]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4540,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4542,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_4542(t12,t8,((C_word*)t0)[4]);}} /* k4517 in k4499 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4519,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4523,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_cadr(((C_word*)t0)[4]); /* lfa2.scm:561: walk */ t5=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; f_4445(3,av2);}} /* k4521 in k4517 in k4499 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4523,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* lfa2.scm:559: chicken.compiler.support#make-node */ t3=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[96]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4538 in k4499 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4540,2,av);} /* lfa2.scm:562: chicken.compiler.support#make-node */ t2=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[55]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop991 in k4499 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4542(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4542,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4567,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* lfa2.scm:562: g997 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4565 in map-loop991 in k4499 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4567,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4542(t6,((C_word*)t0)[5],t5);} /* g1024 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4590(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,0,3)))){ C_save_and_reclaim_args((void *)trf_4590,3,t0,t1,t2);} a=C_alloc(53); t3=t2; t4=C_i_cadr(t3); t5=t2; t6=C_i_caddr(t5); t7=t6; t8=((C_word*)((C_word*)t0)[2])[1]; t9=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t8,C_fix(1))); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4602,a[2]=t7,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t11=C_a_i_list1(&a,1,t4); t12=t11; t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t14=t13; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=((C_word*)t15)[1]; t17=C_eqp(t7,lf[98]); t18=(C_truep(t17)?((C_word*)((C_word*)t0)[3])[1]:((C_word*)((C_word*)t0)[4])[1]); t19=t18; t20=C_i_check_list_2(((C_word*)t0)[5],lf[94]); t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4634,a[2]=t10,a[3]=t12,tmp=(C_word)a,a+=4,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4636,a[2]=t15,a[3]=t23,a[4]=t19,a[5]=t16,tmp=(C_word)a,a+=6,tmp)); t25=((C_word*)t23)[1]; f_4636(t25,t21,((C_word*)t0)[5]);} /* k4600 in g1024 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4602,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],lf[97]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_a_i_list1(&a,1,t1); /* lfa2.scm:577: chicken.compiler.support#make-node */ t4=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[95]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k4632 in g1024 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4634,2,av);} /* lfa2.scm:569: chicken.compiler.support#make-node */ t2=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[63]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1032 in g1024 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4636(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4636,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4661,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* lfa2.scm:571: g1038 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4659 in map-loop1032 in g1024 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4661,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4636(t6,((C_word*)t0)[5],t5);} /* k4685 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4687,2,av);} /* lfa2.scm:579: chicken.compiler.support#make-node */ t2=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1065 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4689(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4689,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4714,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* lfa2.scm:579: g1071 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4712 in map-loop1065 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4714,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4689(t6,((C_word*)t0)[5],t5);} /* k4736 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4738,2,av);} /* lfa2.scm:580: chicken.compiler.support#make-node */ t2=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1091 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_fcall f_4740(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4740,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4765,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* lfa2.scm:580: g1097 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4763 in map-loop1091 in k4453 in k4450 in k4447 in walk in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4765,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4740(t6,((C_word*)t0)[5],t5);} /* k4784 in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4786,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4789,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4791,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:583: chicken.compiler.support#with-debugging-output */ t5=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=lf[101]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k4787 in k4784 in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4789,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4790 in k4784 in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4791,2,av);} a=C_alloc(6); t2=*((C_word*)lf[78]+1); t3=*((C_word*)lf[78]+1); t4=C_i_check_port_2(*((C_word*)lf[78]+1),C_fix(2),C_SCHEME_TRUE,lf[79]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4798,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* lfa2.scm:586: ##sys#print */ t6=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[100]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[78]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4796 in a4790 in k4784 in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4798,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4801,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_length(((C_word*)t0)[5]); /* lfa2.scm:586: ##sys#print */ t4=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4799 in k4796 in a4790 in k4784 in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4801,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4804,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:586: ##sys#write-char-0 */ t3=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4802 in k4799 in k4796 in a4790 in k4784 in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4804,2,av);} a=C_alloc(5); t2=*((C_word*)lf[78]+1); t3=*((C_word*)lf[78]+1); t4=C_i_check_port_2(*((C_word*)lf[78]+1),C_fix(2),C_SCHEME_TRUE,lf[79]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4810,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* lfa2.scm:588: ##sys#print */ t6=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[99]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[78]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4808 in k4802 in k4799 in k4796 in a4790 in k4784 in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4810,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* lfa2.scm:588: ##sys#print */ t3=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4811 in k4808 in k4802 in k4799 in k4796 in a4790 in k4784 in k4214 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4813,2,av);} /* lfa2.scm:588: ##sys#write-char-0 */ t2=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a4821 in chicken.compiler.lfa2#perform-unboxing in k1452 in k1449 in k1446 in k1443 in k1440 */ static void C_ccall f_4822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4822,3,av);} t3=C_i_cadr(t2); t4=C_i_caddr(t2); if(C_truep(C_i_nequalp(t3,t4))){ t5=t2; t6=C_u_i_car(t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_lfa2_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("lfa2")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_lfa2_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(3518))){ C_save(t1); C_rereclaim2(3518*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,102); lf[0]=C_h_intern(&lf[0],4, C_text("lfa2")); lf[1]=C_h_intern(&lf[1],22, C_text("chicken.compiler.lfa2#")); lf[4]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_a_i_flonum_plus\376\003\000\000\002\376B\000\000\022C_ub_i_flonum_plus\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000" "\002\376\003\000\000\002\376B\000\000\027C_a_i_flonum_difference\376\003\000\000\002\376B\000\000\030C_ub_i_flonum_difference\376\003\000\000\002\376\001\000\000\002\001o" "p\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_a_i_flonum_times\376\003\000\000\002\376B\000\000\023C_ub_i_flonum_times\376\003\000\000\002\376\001\000\000\002\001op\376" "\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\025C_a_i_flonum_quotient\376\003\000\000\002\376B\000\000\026C_ub_i_flonum_quotient\376\003\000\000\002\376\001\000\000\002" "\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\017C_flonum_equalp\376\003\000\000\002\376B\000\000\024C_ub_i_flonum_equalp\376\003\000\000\002\376\001\000\000\004\001pre" "d\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_flonum_greaterp\376\003\000\000\002\376B\000\000\026C_ub_i_flonum_greaterp\376\003\000\000\002\376\001\000\000\004\001p" "red\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\016C_flonum_lessp\376\003\000\000\002\376B\000\000\023C_ub_i_flonum_lessp\376\003\000\000\002\376\001\000\000\004\001pred\376" "\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\033C_flonum_greater_or_equal_p\376\003\000\000\002\376B\000\000 C_ub_i_flonum_greater_or_e" "qual_p\376\003\000\000\002\376\001\000\000\004\001pred\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\030C_flonum_less_or_equal_p\376\003\000\000\002\376B\000\000\035C_ub_i_" "flonum_less_or_equal_p\376\003\000\000\002\376\001\000\000\004\001pred\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_u_i_flonum_nanp\376\003\000\000\002\376B\000" "\000\022C_ub_i_flonum_nanp\376\003\000\000\002\376\001\000\000\004\001pred\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\026C_u_i_flonum_infinitep\376\003\000\000\002" "\376B\000\000\026C_ub_i_flonum_infnitep\376\003\000\000\002\376\001\000\000\004\001pred\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\025C_u_i_flonum_finitep" "p\376\003\000\000\002\376B\000\000\025C_ub_i_flonum_finitep\376\003\000\000\002\376\001\000\000\004\001pred\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_flonum_si" "n\376\003\000\000\002\376B\000\000\005C_sin\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_flonum_cos\376\003\000\000\002\376B\000\000\005C_cos\376\003" "\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_flonum_tan\376\003\000\000\002\376B\000\000\005C_tan\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000" "\002\376\003\000\000\002\376B\000\000\021C_a_i_flonum_asin\376\003\000\000\002\376B\000\000\006C_asin\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_a_i" "_flonum_acos\376\003\000\000\002\376B\000\000\006C_acos\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_a_i_flonum_atan\376\003\000\000" "\002\376B\000\000\006C_atan\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_a_i_flonum_atan2\376\003\000\000\002\376B\000\000\007C_atan2\376\003" "\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_flonum_exp\376\003\000\000\002\376B\000\000\005C_exp\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000" "\002\376\003\000\000\002\376B\000\000\021C_a_i_flonum_expr\376\003\000\000\002\376B\000\000\005C_pow\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_" "flonum_log\376\003\000\000\002\376B\000\000\005C_log\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_a_i_flonum_sqrt\376\003\000\000\002\376B" "\000\000\006C_sqrt\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\025C_a_i_flonum_truncate\376\003\000\000\002\376B\000\000\007C_trunc\376\003" "\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\024C_a_i_flonum_ceiling\376\003\000\000\002\376B\000\000\006C_ceil\376\003\000\000\002\376\001\000\000\002\001op\376\377" "\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_a_i_flonum_floor\376\003\000\000\002\376B\000\000\007C_floor\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000" "\000\022C_a_i_flonum_round\376\003\000\000\002\376B\000\000\007C_round\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_flonum" "_abs\376\003\000\000\002\376B\000\000\006C_fabs\376\003\000\000\002\376\001\000\000\002\001op\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\025C_a_u_i_f32vector_ref\376\003\000\000\002\376B\000" "\000\024C_ub_i_f32vector_ref\376\003\000\000\002\376\001\000\000\003\001acc\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\025C_a_u_i_f64vector_ref\376\003\000\000\002" "\376B\000\000\024C_ub_i_f64vector_ref\376\003\000\000\002\376\001\000\000\003\001acc\376\377\016\376\377\016")); lf[5]=C_h_intern(&lf[5],53, C_text("chicken.compiler.lfa2#perform-secondary-flow-analysis")); lf[6]=C_h_intern(&lf[6],31, C_text("chicken.compiler.support#db-get")); lf[7]=C_h_intern(&lf[7],8, C_text("assigned")); lf[8]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001quote\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\003\000\000\002\376\001\000\000\020\001##core#primitive\376\003\000\000\002\376\001\000\000\015" "\001##core#lambda\376\377\016")); lf[9]=C_h_intern(&lf[9],15, C_text("##core#variable")); lf[10]=C_h_intern(&lf[10],38, C_text("chicken.compiler.support#variable-mark")); lf[11]=C_h_intern(&lf[11],23, C_text("##compiler#always-bound")); lf[12]=C_h_intern(&lf[12],6, C_text("global")); lf[13]=C_h_intern(&lf[13],40, C_text("chicken.compiler.support#node-parameters")); lf[14]=C_h_intern(&lf[14],35, C_text("chicken.compiler.support#node-class")); lf[15]=C_h_intern(&lf[15],49, C_text("chicken.compiler.support#node-subexpressions-set!")); lf[16]=C_h_intern(&lf[16],45, C_text("chicken.compiler.support#node-parameters-set!")); lf[17]=C_h_intern(&lf[17],40, C_text("chicken.compiler.support#node-class-set!")); lf[18]=C_h_intern(&lf[18],16, C_text("##core#undefined")); lf[19]=C_h_intern(&lf[19],8, C_text("for-each")); lf[20]=C_h_intern(&lf[20],20, C_text("scheme#string-append")); lf[21]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0011")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0012")); lf[23]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0013")); lf[24]=C_h_intern(&lf[24],29, C_text("chicken.compiler.support#bomb")); lf[25]=C_decode_literal(C_heaptop,C_text("\376B\000\0005bad number of arguments to extinguished ##core#inline")); lf[26]=C_h_intern(&lf[26],44, C_text("chicken.compiler.support#node-subexpressions")); lf[27]=C_h_intern(&lf[27],5, C_text("foldr")); lf[28]=C_h_intern(&lf[28],10, C_text("scheme#cdr")); lf[29]=C_h_intern(&lf[29],11, C_text("scheme#cddr")); lf[30]=C_h_intern(&lf[30],1, C_text("\052")); lf[31]=C_h_intern(&lf[31],2, C_text("if")); lf[32]=C_h_intern(&lf[32],11, C_text("##core#cond")); lf[33]=C_h_intern(&lf[33],13, C_text("scheme#append")); lf[34]=C_h_intern(&lf[34],7, C_text("boolean")); lf[35]=C_h_intern(&lf[35],5, C_text("quote")); lf[36]=C_h_intern(&lf[36],6, C_text("string")); lf[37]=C_h_intern(&lf[37],7, C_text("keyword")); lf[38]=C_h_intern(&lf[38],6, C_text("symbol")); lf[39]=C_h_intern(&lf[39],7, C_text("integer")); lf[40]=C_h_intern(&lf[40],6, C_text("fixnum")); lf[41]=C_h_intern(&lf[41],6, C_text("bignum")); lf[42]=C_h_intern(&lf[42],5, C_text("float")); lf[43]=C_h_intern(&lf[43],6, C_text("ratnum")); lf[44]=C_h_intern(&lf[44],7, C_text("cplxnum")); lf[45]=C_h_intern(&lf[45],4, C_text("null")); lf[46]=C_h_intern(&lf[46],4, C_text("list")); lf[47]=C_h_intern(&lf[47],4, C_text("pair")); lf[48]=C_h_intern(&lf[48],3, C_text("eof")); lf[49]=C_h_intern(&lf[49],6, C_text("vector")); lf[50]=C_h_intern(&lf[50],6, C_text("struct")); lf[51]=C_h_intern(&lf[51],4, C_text("char")); lf[52]=C_h_intern(&lf[52],38, C_text("chicken.compiler.support#small-bignum\077")); lf[53]=C_h_intern(&lf[53],36, C_text("chicken.compiler.support#big-fixnum\077")); lf[54]=C_h_intern(&lf[54],24, C_text("chicken.keyword#keyword\077")); lf[55]=C_h_intern(&lf[55],3, C_text("let")); lf[56]=C_h_intern(&lf[56],13, C_text("##core#lambda")); lf[57]=C_h_intern(&lf[57],20, C_text("##core#direct_lambda")); lf[58]=C_h_intern(&lf[58],9, C_text("procedure")); lf[59]=C_h_intern(&lf[59],4, C_text("set!")); lf[60]=C_h_intern(&lf[60],11, C_text("##core#set!")); lf[61]=C_h_intern(&lf[61],9, C_text("undefined")); lf[62]=C_h_intern(&lf[62],16, C_text("##core#primitive")); lf[63]=C_h_intern(&lf[63],13, C_text("##core#inline")); lf[64]=C_h_intern(&lf[64],22, C_text("##core#inline_allocate")); lf[65]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_i_check_closure\376\003\000\000\002\376\001\000\000\011\001procedure\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\017C_i_check_" "exact\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\006\001bignum\376\003\000\000\002\376\001\000\000\007\001integer\376\003\000\000\002\376\001\000\000\006\001ratnum\376\377\016\376\003\000" "\000\002\376\003\000\000\002\376B\000\000\021C_i_check_inexact\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_i_check_number\376" "\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\007\001integer\376\003\000\000\002\376\001\000\000\006\001bignum\376\003\000\000\002\376\001\000\000\006\001ratnum\376\003\000\000\002\376\001\000\000\005\001f" "loat\376\003\000\000\002\376\001\000\000\007\001cplxnum\376\003\000\000\002\376\001\000\000\006\001number\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_i_check_string\376\003\000\000\002\376\001" "\000\000\006\001string\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\024C_i_check_bytevector\376\003\000\000\002\376\001\000\000\004\001blob\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000" "\020C_i_check_symbol\376\003\000\000\002\376\001\000\000\006\001symbol\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_i_check_keyword\376\003\000\000\002\376\001\000\000\007\001" "keyword\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\016C_i_check_list\376\003\000\000\002\376\001\000\000\004\001null\376\003\000\000\002\376\001\000\000\004\001pair\376\003\000\000\002\376\001\000\000\004\001" "list\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\016C_i_check_pair\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_i_check_l" "ocative\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_i_check_boolean\376\003\000\000\002\376\001\000\000\007\001boolean\376" "\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_i_check_vector\376\003\000\000\002\376\001\000\000\006\001vector\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\023C_i_check_st" "ructure\376\003\000\000\002\376\001\000\000\010\001\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\016C_i_check_char\376\003\000\000\002\376\001\000\000\004\001char\376\377\016\376\003\000\000" "\002\376\003\000\000\002\376B\000\000\023C_i_check_closure_2\376\003\000\000\002\376\001\000\000\011\001procedure\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_i_check_ex" "act_2\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\006\001bignum\376\003\000\000\002\376\001\000\000\007\001integer\376\003\000\000\002\376\001\000\000\006\001ratnum\376\377\016\376\003\000" "\000\002\376\003\000\000\002\376B\000\000\023C_i_check_inexact_2\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_i_check_numbe" "r_2\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\007\001integer\376\003\000\000\002\376\001\000\000\006\001bignum\376\003\000\000\002\376\001\000\000\006\001ratnum\376\003\000\000\002\376\001\000" "\000\005\001float\376\003\000\000\002\376\001\000\000\007\001cplxnum\376\003\000\000\002\376\001\000\000\006\001number\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_i_check_string_2\376" "\003\000\000\002\376\001\000\000\006\001string\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\026C_i_check_bytevector_2\376\003\000\000\002\376\001\000\000\004\001blob\376\377\016\376\003\000\000\002\376" "\003\000\000\002\376B\000\000\022C_i_check_symbol_2\376\003\000\000\002\376\001\000\000\006\001symbol\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\023C_i_check_keyword_" "2\376\003\000\000\002\376\001\000\000\007\001keyword\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_i_check_list_2\376\003\000\000\002\376\001\000\000\004\001null\376\003\000\000\002\376\001\000\000\004\001p" "air\376\003\000\000\002\376\001\000\000\004\001list\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_i_check_pair_2\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016\376\003\000\000\002\376\003\000\000\002" "\376B\000\000\024C_i_check_locative_2\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\023C_i_check_boolean_" "2\376\003\000\000\002\376\001\000\000\007\001boolean\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_i_check_vector_2\376\003\000\000\002\376\001\000\000\006\001vector\376\377\016\376\003\000\000\002" "\376\003\000\000\002\376B\000\000\025C_i_check_structure_2\376\003\000\000\002\376\001\000\000\010\001\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_i_check_ch" "ar_2\376\003\000\000\002\376\001\000\000\004\001char\376\377\016\376\377\016")); lf[66]=C_h_intern(&lf[66],31, C_text("chicken.compiler.support#unsafe")); lf[67]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_noop")); lf[68]=C_h_intern(&lf[68],8, C_text("\052struct\052")); lf[69]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_noop")); lf[70]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_noop")); lf[71]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_noop")); lf[72]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376B\000\000\034C_i_foreign_fixnum_argumentp\376\003\000\000\002\376\001\000\000\006\001fixnum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\035C_" "i_foreign_integer_argumentp\376\003\000\000\002\376\001\000\000\007\001integer\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\006\001bignum\376" "\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\032C_i_foreign_char_argumentp\376\003\000\000\002\376\001\000\000\004\001char\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\034C_i_" "foreign_flonum_argumentp\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\034C_i_foreign_string_arg" "umentp\376\003\000\000\002\376\001\000\000\006\001string\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\034C_i_foreign_symbol_argumentp\376\003\000\000\002\376\001\000\000\006\001" "symbol\376\377\016\376\377\016")); lf[73]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376B\000\000\014C_i_closurep\376\003\000\000\002\376\001\000\000\011\001procedure\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\011C_fixnump\376\003\000\000\002\376" "\001\000\000\006\001fixnum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\011C_bignump\376\003\000\000\002\376\001\000\000\006\001bignum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_i_exa" "ct_integerp\376\003\000\000\002\376\001\000\000\007\001integer\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\006\001bignum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000" "\013C_i_flonump\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_i_numberp\376\003\000\000\002\376\001\000\000\006\001number\376\003\000\000\002\376" "\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\007\001integer\376\003\000\000\002\376\001\000\000\006\001bignum\376\003\000\000\002\376\001\000\000\006\001ratnum\376\003\000\000\002\376\001\000\000\005\001float\376" "\003\000\000\002\376\001\000\000\007\001cplxnum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_i_ratnump\376\003\000\000\002\376\001\000\000\006\001ratnum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000" "\014C_i_cplxnump\376\003\000\000\002\376\001\000\000\007\001cplxnum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\011C_stringp\376\003\000\000\002\376\001\000\000\006\001string\376\377\016\376\003" "\000\000\002\376\003\000\000\002\376B\000\000\015C_bytevectorp\376\003\000\000\002\376\001\000\000\004\001blob\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\014C_i_keywordp\376\003\000\000\002\376\001\000\000" "\007\001keyword\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_i_symbolp\376\003\000\000\002\376\001\000\000\006\001symbol\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\011C_i_lis" "tp\376\003\000\000\002\376\001\000\000\004\001list\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\011C_i_pairp\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_l" "ocativep\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\012C_booleanp\376\003\000\000\002\376\001\000\000\007\001boolean\376\377\016\376\003\000\000" "\002\376\003\000\000\002\376B\000\000\013C_i_vectorp\376\003\000\000\002\376\001\000\000\006\001vector\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\014C_structurep\376\003\000\000\002\376\001\000\000\006\001" "struct\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\016C_i_structurep\376\003\000\000\002\376\001\000\000\010\001\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\007C_cha" "rp\376\003\000\000\002\376\001\000\000\004\001char\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\011C_i_portp\376\003\000\000\002\376\001\000\000\004\001port\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\011C_i" "_nullp\376\003\000\000\002\376\001\000\000\004\001null\376\377\016\376\377\016")); lf[74]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_true")); lf[75]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_true")); lf[76]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_true")); lf[77]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_record1\376\003\000\000\002\376\001\000\000\010\001\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_record2\376\003" "\000\000\002\376\001\000\000\010\001\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_record3\376\003\000\000\002\376\001\000\000\010\001\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002" "\376B\000\000\015C_a_i_record4\376\003\000\000\002\376\001\000\000\010\001\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_record5\376\003\000\000\002\376\001\000\000\010\001\052" "struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_record6\376\003\000\000\002\376\001\000\000\010\001\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i" "_record7\376\003\000\000\002\376\001\000\000\010\001\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_record8\376\003\000\000\002\376\001\000\000\010\001\052struct\052\376\377\016" "\376\003\000\000\002\376\003\000\000\002\376B\000\000\014C_a_i_record\376\003\000\000\002\376\001\000\000\010\001\052struct\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\014C_a_i_string\376\003\000\000" "\002\376\001\000\000\006\001string\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\012C_a_i_port\376\003\000\000\002\376\001\000\000\004\001port\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_" "vector1\376\003\000\000\002\376\001\000\000\006\001vector\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_vector2\376\003\000\000\002\376\001\000\000\006\001vector\376\377\016\376\003\000\000\002" "\376\003\000\000\002\376B\000\000\015C_a_i_vector3\376\003\000\000\002\376\001\000\000\006\001vector\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_vector4\376\003\000\000\002\376\001\000\000" "\006\001vector\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_vector5\376\003\000\000\002\376\001\000\000\006\001vector\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_" "vector6\376\003\000\000\002\376\001\000\000\006\001vector\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_vector7\376\003\000\000\002\376\001\000\000\006\001vector\376\377\016\376\003\000\000\002" "\376\003\000\000\002\376B\000\000\015C_a_i_vector8\376\003\000\000\002\376\001\000\000\006\001vector\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\010C_a_pair\376\003\000\000\002\376\001\000\000\004\001pai" "r\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_bytevector\376\003\000\000\002\376\001\000\000\004\001blob\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\023C_a_i_make_l" "ocative\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\014C_a_i_vector\376\003\000\000\002\376\001\000\000\006\001vector\376\377\016\376\003\000\000" "\002\376\003\000\000\002\376B\000\000\013C_a_i_list1\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_a_i_list2\376\003\000\000\002\376\001\000\000\004\001pai" "r\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_a_i_list3\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_a_i_list4\376\003\000\000\002\376" "\001\000\000\004\001pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_a_i_list5\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_a_i_lis" "t6\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C_a_i_list7\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\013C" "_a_i_list8\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\012C_a_i_cons\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016\376\003\000\000\002\376\003\000\000" "\002\376B\000\000\014C_a_i_flonum\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_fix_to_flo\376\003\000\000\002\376\001\000\000\005\001f" "loat\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_big_to_flo\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_fi" "x_to_big\376\003\000\000\002\376\001\000\000\006\001bignum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_bignum0\376\003\000\000\002\376\001\000\000\006\001bignum\376\377\016\376\003\000\000" "\002\376\003\000\000\002\376B\000\000\015C_a_i_bignum1\376\003\000\000\002\376\001\000\000\006\001bignum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\015C_a_i_bignum2\376\003\000\000\002\376\001\000" "\000\006\001bignum\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_flonum_abs\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_a" "_i_flonum_acos\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000$C_a_i_flonum_actual_quotient_che" "cked\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_a_i_flonum_asin\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376" "\003\000\000\002\376B\000\000\022C_a_i_flonum_atan2\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_a_i_flonum_atan\376\003" "\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\024C_a_i_flonum_ceiling\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000" "\002\376B\000\000\020C_a_i_flonum_cos\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\027C_a_i_flonum_difference\376" "\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_flonum_exp\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B" "\000\000\021C_a_i_flonum_expt\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_a_i_flonum_floor\376\003\000\000\002\376\001\000" "\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_flonum_gcd\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_" "i_flonum_log\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\033C_a_i_flonum_modulo_checked\376\003\000\000\002\376\001" "\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\023C_a_i_flonum_negate\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021" "C_a_i_flonum_plus\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\035C_a_i_flonum_quotient_checked" "\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\025C_a_i_flonum_quotient\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376" "\003\000\000\002\376B\000\000\036C_a_i_flonum_remainder_checked\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_a_i_f" "lonum_round\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\031C_a_i_flonum_round_proper\376\003\000\000\002\376\001\000\000\005" "\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_flonum_sin\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\021C_a_i_" "flonum_sqrt\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\020C_a_i_flonum_tan\376\003\000\000\002\376\001\000\000\005\001float\376\377\016" "\376\003\000\000\002\376\003\000\000\002\376B\000\000\022C_a_i_flonum_times\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\025C_a_i_flonum_" "truncate\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\025C_a_u_i_f64vector_ref\376\003\000\000\002\376\001\000\000\005\001float\376" "\377\016\376\003\000\000\002\376\003\000\000\002\376B\000\000\025C_a_u_i_f32vector_ref\376\003\000\000\002\376\001\000\000\005\001float\376\377\016\376\377\016")); lf[78]=C_h_intern(&lf[78],21, C_text("##sys#standard-output")); lf[79]=C_h_intern(&lf[79],6, C_text("printf")); lf[80]=C_h_intern(&lf[80],18, C_text("##sys#write-char-0")); lf[81]=C_h_intern(&lf[81],11, C_text("##sys#print")); lf[82]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002:\011")); lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[84]=C_h_intern(&lf[84],18, C_text("chicken.base#print")); lf[85]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027eliminated type checks:")); lf[86]=C_h_intern(&lf[86],46, C_text("chicken.compiler.support#with-debugging-output")); lf[87]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001x\376\003\000\000\002\376\001\000\000\001\001o\376\377\016")); lf[88]=C_h_intern(&lf[88],38, C_text("chicken.compiler.lfa2#perform-unboxing")); lf[89]=C_h_intern(&lf[89],34, C_text("chicken.compiler.support#make-node")); lf[90]=C_h_intern(&lf[90],12, C_text("##core#float")); lf[91]=C_h_intern(&lf[91],21, C_text("##core#float-variable")); lf[92]=C_h_intern(&lf[92],18, C_text("##core#unbox_float")); lf[93]=C_h_intern(&lf[93],2, C_text("op")); lf[94]=C_h_intern(&lf[94],3, C_text("map")); lf[95]=C_h_intern(&lf[95],16, C_text("##core#box_float")); lf[96]=C_h_intern(&lf[96],16, C_text("##core#let_float")); lf[97]=C_h_intern(&lf[97],4, C_text("pred")); lf[98]=C_h_intern(&lf[98],3, C_text("acc")); lf[99]=C_decode_literal(C_heaptop,C_text("\376B\000\0008number of inline operations replaced with unboxed ones: ")); lf[100]=C_decode_literal(C_heaptop,C_text("\376B\000\000#number of unboxed float variables: ")); lf[101]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001x\376\003\000\000\002\376\001\000\000\001\001o\376\377\016")); C_register_lf2(lf,102,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1442,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[194] = { {C_text("f5313:lfa2_2escm"),(void*)f5313}, {C_text("f5371:lfa2_2escm"),(void*)f5371}, {C_text("f5392:lfa2_2escm"),(void*)f5392}, {C_text("f5404:lfa2_2escm"),(void*)f5404}, {C_text("f5411:lfa2_2escm"),(void*)f5411}, {C_text("f_1442:lfa2_2escm"),(void*)f_1442}, {C_text("f_1445:lfa2_2escm"),(void*)f_1445}, {C_text("f_1448:lfa2_2escm"),(void*)f_1448}, {C_text("f_1451:lfa2_2escm"),(void*)f_1451}, {C_text("f_1454:lfa2_2escm"),(void*)f_1454}, {C_text("f_2074:lfa2_2escm"),(void*)f_2074}, {C_text("f_2082:lfa2_2escm"),(void*)f_2082}, {C_text("f_2089:lfa2_2escm"),(void*)f_2089}, {C_text("f_2103:lfa2_2escm"),(void*)f_2103}, {C_text("f_2118:lfa2_2escm"),(void*)f_2118}, {C_text("f_2126:lfa2_2escm"),(void*)f_2126}, {C_text("f_2130:lfa2_2escm"),(void*)f_2130}, {C_text("f_2134:lfa2_2escm"),(void*)f_2134}, {C_text("f_2152:lfa2_2escm"),(void*)f_2152}, {C_text("f_2164:lfa2_2escm"),(void*)f_2164}, {C_text("f_2172:lfa2_2escm"),(void*)f_2172}, {C_text("f_2668:lfa2_2escm"),(void*)f_2668}, {C_text("f_2674:lfa2_2escm"),(void*)f_2674}, {C_text("f_2739:lfa2_2escm"),(void*)f_2739}, {C_text("f_2755:lfa2_2escm"),(void*)f_2755}, {C_text("f_2767:lfa2_2escm"),(void*)f_2767}, {C_text("f_2770:lfa2_2escm"),(void*)f_2770}, {C_text("f_2870:lfa2_2escm"),(void*)f_2870}, {C_text("f_2896:lfa2_2escm"),(void*)f_2896}, {C_text("f_2902:lfa2_2escm"),(void*)f_2902}, {C_text("f_2907:lfa2_2escm"),(void*)f_2907}, {C_text("f_2933:lfa2_2escm"),(void*)f_2933}, {C_text("f_2937:lfa2_2escm"),(void*)f_2937}, {C_text("f_2941:lfa2_2escm"),(void*)f_2941}, {C_text("f_2943:lfa2_2escm"),(void*)f_2943}, {C_text("f_2947:lfa2_2escm"),(void*)f_2947}, {C_text("f_2950:lfa2_2escm"),(void*)f_2950}, {C_text("f_2953:lfa2_2escm"),(void*)f_2953}, {C_text("f_2958:lfa2_2escm"),(void*)f_2958}, {C_text("f_2962:lfa2_2escm"),(void*)f_2962}, {C_text("f_2965:lfa2_2escm"),(void*)f_2965}, {C_text("f_2966:lfa2_2escm"),(void*)f_2966}, {C_text("f_2973:lfa2_2escm"),(void*)f_2973}, {C_text("f_2983:lfa2_2escm"),(void*)f_2983}, {C_text("f_3000:lfa2_2escm"),(void*)f_3000}, {C_text("f_3007:lfa2_2escm"),(void*)f_3007}, {C_text("f_3035:lfa2_2escm"),(void*)f_3035}, {C_text("f_3037:lfa2_2escm"),(void*)f_3037}, {C_text("f_3047:lfa2_2escm"),(void*)f_3047}, {C_text("f_3066:lfa2_2escm"),(void*)f_3066}, {C_text("f_3083:lfa2_2escm"),(void*)f_3083}, {C_text("f_3093:lfa2_2escm"),(void*)f_3093}, {C_text("f_3129:lfa2_2escm"),(void*)f_3129}, {C_text("f_3135:lfa2_2escm"),(void*)f_3135}, {C_text("f_3140:lfa2_2escm"),(void*)f_3140}, {C_text("f_3142:lfa2_2escm"),(void*)f_3142}, {C_text("f_3152:lfa2_2escm"),(void*)f_3152}, {C_text("f_3159:lfa2_2escm"),(void*)f_3159}, {C_text("f_3163:lfa2_2escm"),(void*)f_3163}, {C_text("f_3171:lfa2_2escm"),(void*)f_3171}, {C_text("f_3183:lfa2_2escm"),(void*)f_3183}, {C_text("f_3189:lfa2_2escm"),(void*)f_3189}, {C_text("f_3200:lfa2_2escm"),(void*)f_3200}, {C_text("f_3208:lfa2_2escm"),(void*)f_3208}, {C_text("f_3214:lfa2_2escm"),(void*)f_3214}, {C_text("f_3220:lfa2_2escm"),(void*)f_3220}, {C_text("f_3226:lfa2_2escm"),(void*)f_3226}, {C_text("f_3230:lfa2_2escm"),(void*)f_3230}, {C_text("f_3233:lfa2_2escm"),(void*)f_3233}, {C_text("f_3236:lfa2_2escm"),(void*)f_3236}, {C_text("f_3245:lfa2_2escm"),(void*)f_3245}, {C_text("f_3248:lfa2_2escm"),(void*)f_3248}, {C_text("f_3295:lfa2_2escm"),(void*)f_3295}, {C_text("f_3301:lfa2_2escm"),(void*)f_3301}, {C_text("f_3304:lfa2_2escm"),(void*)f_3304}, {C_text("f_3315:lfa2_2escm"),(void*)f_3315}, {C_text("f_3327:lfa2_2escm"),(void*)f_3327}, {C_text("f_3334:lfa2_2escm"),(void*)f_3334}, {C_text("f_3385:lfa2_2escm"),(void*)f_3385}, {C_text("f_3388:lfa2_2escm"),(void*)f_3388}, {C_text("f_3391:lfa2_2escm"),(void*)f_3391}, {C_text("f_3402:lfa2_2escm"),(void*)f_3402}, {C_text("f_3409:lfa2_2escm"),(void*)f_3409}, {C_text("f_3423:lfa2_2escm"),(void*)f_3423}, {C_text("f_3426:lfa2_2escm"),(void*)f_3426}, {C_text("f_3439:lfa2_2escm"),(void*)f_3439}, {C_text("f_3447:lfa2_2escm"),(void*)f_3447}, {C_text("f_3453:lfa2_2escm"),(void*)f_3453}, {C_text("f_3495:lfa2_2escm"),(void*)f_3495}, {C_text("f_3514:lfa2_2escm"),(void*)f_3514}, {C_text("f_3517:lfa2_2escm"),(void*)f_3517}, {C_text("f_3520:lfa2_2escm"),(void*)f_3520}, {C_text("f_3531:lfa2_2escm"),(void*)f_3531}, {C_text("f_3534:lfa2_2escm"),(void*)f_3534}, {C_text("f_3545:lfa2_2escm"),(void*)f_3545}, {C_text("f_3570:lfa2_2escm"),(void*)f_3570}, {C_text("f_3574:lfa2_2escm"),(void*)f_3574}, {C_text("f_3586:lfa2_2escm"),(void*)f_3586}, {C_text("f_3593:lfa2_2escm"),(void*)f_3593}, {C_text("f_3597:lfa2_2escm"),(void*)f_3597}, {C_text("f_3600:lfa2_2escm"),(void*)f_3600}, {C_text("f_3615:lfa2_2escm"),(void*)f_3615}, {C_text("f_3641:lfa2_2escm"),(void*)f_3641}, {C_text("f_3661:lfa2_2escm"),(void*)f_3661}, {C_text("f_3675:lfa2_2escm"),(void*)f_3675}, {C_text("f_3723:lfa2_2escm"),(void*)f_3723}, {C_text("f_3730:lfa2_2escm"),(void*)f_3730}, {C_text("f_3733:lfa2_2escm"),(void*)f_3733}, {C_text("f_3739:lfa2_2escm"),(void*)f_3739}, {C_text("f_3742:lfa2_2escm"),(void*)f_3742}, {C_text("f_3749:lfa2_2escm"),(void*)f_3749}, {C_text("f_3753:lfa2_2escm"),(void*)f_3753}, {C_text("f_3757:lfa2_2escm"),(void*)f_3757}, {C_text("f_3771:lfa2_2escm"),(void*)f_3771}, {C_text("f_3781:lfa2_2escm"),(void*)f_3781}, {C_text("f_3825:lfa2_2escm"),(void*)f_3825}, {C_text("f_3833:lfa2_2escm"),(void*)f_3833}, {C_text("f_3848:lfa2_2escm"),(void*)f_3848}, {C_text("f_3851:lfa2_2escm"),(void*)f_3851}, {C_text("f_3854:lfa2_2escm"),(void*)f_3854}, {C_text("f_3863:lfa2_2escm"),(void*)f_3863}, {C_text("f_3889:lfa2_2escm"),(void*)f_3889}, {C_text("f_3909:lfa2_2escm"),(void*)f_3909}, {C_text("f_3923:lfa2_2escm"),(void*)f_3923}, {C_text("f_3967:lfa2_2escm"),(void*)f_3967}, {C_text("f_3977:lfa2_2escm"),(void*)f_3977}, {C_text("f_3993:lfa2_2escm"),(void*)f_3993}, {C_text("f_4009:lfa2_2escm"),(void*)f_4009}, {C_text("f_4040:lfa2_2escm"),(void*)f_4040}, {C_text("f_4050:lfa2_2escm"),(void*)f_4050}, {C_text("f_4066:lfa2_2escm"),(void*)f_4066}, {C_text("f_4076:lfa2_2escm"),(void*)f_4076}, {C_text("f_4078:lfa2_2escm"),(void*)f_4078}, {C_text("f_4088:lfa2_2escm"),(void*)f_4088}, {C_text("f_4140:lfa2_2escm"),(void*)f_4140}, {C_text("f_4143:lfa2_2escm"),(void*)f_4143}, {C_text("f_4151:lfa2_2escm"),(void*)f_4151}, {C_text("f_4155:lfa2_2escm"),(void*)f_4155}, {C_text("f_4163:lfa2_2escm"),(void*)f_4163}, {C_text("f_4166:lfa2_2escm"),(void*)f_4166}, {C_text("f_4169:lfa2_2escm"),(void*)f_4169}, {C_text("f_4172:lfa2_2escm"),(void*)f_4172}, {C_text("f_4189:lfa2_2escm"),(void*)f_4189}, {C_text("f_4199:lfa2_2escm"),(void*)f_4199}, {C_text("f_4212:lfa2_2escm"),(void*)f_4212}, {C_text("f_4216:lfa2_2escm"),(void*)f_4216}, {C_text("f_4218:lfa2_2escm"),(void*)f_4218}, {C_text("f_4222:lfa2_2escm"),(void*)f_4222}, {C_text("f_4225:lfa2_2escm"),(void*)f_4225}, {C_text("f_4228:lfa2_2escm"),(void*)f_4228}, {C_text("f_4256:lfa2_2escm"),(void*)f_4256}, {C_text("f_4293:lfa2_2escm"),(void*)f_4293}, {C_text("f_4322:lfa2_2escm"),(void*)f_4322}, {C_text("f_4324:lfa2_2escm"),(void*)f_4324}, {C_text("f_4349:lfa2_2escm"),(void*)f_4349}, {C_text("f_4373:lfa2_2escm"),(void*)f_4373}, {C_text("f_4383:lfa2_2escm"),(void*)f_4383}, {C_text("f_4385:lfa2_2escm"),(void*)f_4385}, {C_text("f_4410:lfa2_2escm"),(void*)f_4410}, {C_text("f_4432:lfa2_2escm"),(void*)f_4432}, {C_text("f_4445:lfa2_2escm"),(void*)f_4445}, {C_text("f_4449:lfa2_2escm"),(void*)f_4449}, {C_text("f_4452:lfa2_2escm"),(void*)f_4452}, {C_text("f_4455:lfa2_2escm"),(void*)f_4455}, {C_text("f_4464:lfa2_2escm"),(void*)f_4464}, {C_text("f_4478:lfa2_2escm"),(void*)f_4478}, {C_text("f_4501:lfa2_2escm"),(void*)f_4501}, {C_text("f_4519:lfa2_2escm"),(void*)f_4519}, {C_text("f_4523:lfa2_2escm"),(void*)f_4523}, {C_text("f_4540:lfa2_2escm"),(void*)f_4540}, {C_text("f_4542:lfa2_2escm"),(void*)f_4542}, {C_text("f_4567:lfa2_2escm"),(void*)f_4567}, {C_text("f_4590:lfa2_2escm"),(void*)f_4590}, {C_text("f_4602:lfa2_2escm"),(void*)f_4602}, {C_text("f_4634:lfa2_2escm"),(void*)f_4634}, {C_text("f_4636:lfa2_2escm"),(void*)f_4636}, {C_text("f_4661:lfa2_2escm"),(void*)f_4661}, {C_text("f_4687:lfa2_2escm"),(void*)f_4687}, {C_text("f_4689:lfa2_2escm"),(void*)f_4689}, {C_text("f_4714:lfa2_2escm"),(void*)f_4714}, {C_text("f_4738:lfa2_2escm"),(void*)f_4738}, {C_text("f_4740:lfa2_2escm"),(void*)f_4740}, {C_text("f_4765:lfa2_2escm"),(void*)f_4765}, {C_text("f_4786:lfa2_2escm"),(void*)f_4786}, {C_text("f_4789:lfa2_2escm"),(void*)f_4789}, {C_text("f_4791:lfa2_2escm"),(void*)f_4791}, {C_text("f_4798:lfa2_2escm"),(void*)f_4798}, {C_text("f_4801:lfa2_2escm"),(void*)f_4801}, {C_text("f_4804:lfa2_2escm"),(void*)f_4804}, {C_text("f_4810:lfa2_2escm"),(void*)f_4810}, {C_text("f_4813:lfa2_2escm"),(void*)f_4813}, {C_text("f_4822:lfa2_2escm"),(void*)f_4822}, {C_text("toplevel:lfa2_2escm"),(void*)C_lfa2_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.compiler.lfa2#partition o|hiding unexported module binding: chicken.compiler.lfa2#span o|hiding unexported module binding: chicken.compiler.lfa2#take o|hiding unexported module binding: chicken.compiler.lfa2#drop o|hiding unexported module binding: chicken.compiler.lfa2#split-at o|hiding unexported module binding: chicken.compiler.lfa2#append-map o|hiding unexported module binding: chicken.compiler.lfa2#every o|hiding unexported module binding: chicken.compiler.lfa2#any o|hiding unexported module binding: chicken.compiler.lfa2#cons* o|hiding unexported module binding: chicken.compiler.lfa2#concatenate o|hiding unexported module binding: chicken.compiler.lfa2#delete o|hiding unexported module binding: chicken.compiler.lfa2#first o|hiding unexported module binding: chicken.compiler.lfa2#second o|hiding unexported module binding: chicken.compiler.lfa2#third o|hiding unexported module binding: chicken.compiler.lfa2#fourth o|hiding unexported module binding: chicken.compiler.lfa2#fifth o|hiding unexported module binding: chicken.compiler.lfa2#delete-duplicates o|hiding unexported module binding: chicken.compiler.lfa2#alist-cons o|hiding unexported module binding: chicken.compiler.lfa2#filter o|hiding unexported module binding: chicken.compiler.lfa2#filter-map o|hiding unexported module binding: chicken.compiler.lfa2#remove o|hiding unexported module binding: chicken.compiler.lfa2#unzip1 o|hiding unexported module binding: chicken.compiler.lfa2#last o|hiding unexported module binding: chicken.compiler.lfa2#list-index o|hiding unexported module binding: chicken.compiler.lfa2#lset-adjoin/eq? o|hiding unexported module binding: chicken.compiler.lfa2#lset-difference/eq? o|hiding unexported module binding: chicken.compiler.lfa2#lset-union/eq? o|hiding unexported module binding: chicken.compiler.lfa2#lset-intersection/eq? o|hiding unexported module binding: chicken.compiler.lfa2#list-tabulate o|hiding unexported module binding: chicken.compiler.lfa2#lset<=/eq? o|hiding unexported module binding: chicken.compiler.lfa2#lset=/eq? o|hiding unexported module binding: chicken.compiler.lfa2#length+ o|hiding unexported module binding: chicken.compiler.lfa2#find o|hiding unexported module binding: chicken.compiler.lfa2#find-tail o|hiding unexported module binding: chicken.compiler.lfa2#iota o|hiding unexported module binding: chicken.compiler.lfa2#make-list o|hiding unexported module binding: chicken.compiler.lfa2#posq o|hiding unexported module binding: chicken.compiler.lfa2#posv o|hiding unexported module binding: chicken.compiler.lfa2#+type-check-map+ o|hiding unexported module binding: chicken.compiler.lfa2#+predicate-map+ o|hiding unexported module binding: chicken.compiler.lfa2#+ffi-type-check-map+ o|hiding unexported module binding: chicken.compiler.lfa2#+constructor-map+ o|hiding unexported module binding: chicken.compiler.lfa2#+unboxed-map+ S|applied compiler syntax: S| chicken.format#printf 3 S| scheme#for-each 4 S| chicken.base#foldl 3 S| scheme#map 9 S| chicken.base#foldr 3 o|eliminated procedure checks: 71 o|specializations: o| 3 (##sys#check-output-port * * *) o| 22 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 1 (scheme#caar (pair pair *)) o| 3 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 1 (scheme#memq * list) o| 3 (chicken.base#add1 *) o| 1 (scheme#eqv? * *) o| 3 (##sys#check-list (or pair list) *) o| 28 (scheme#cdr pair) o| 11 (scheme#car pair) (o e)|safe calls: 465 o|safe globals: (chicken.compiler.lfa2#perform-unboxing chicken.compiler.lfa2#perform-secondary-flow-analysis chicken.compiler.lfa2#+unboxed-map+ chicken.compiler.lfa2#+constructor-map+ chicken.compiler.lfa2#+ffi-type-check-map+ chicken.compiler.lfa2#+predicate-map+ chicken.compiler.lfa2#+type-check-map+ chicken.compiler.lfa2#posv chicken.compiler.lfa2#posq chicken.compiler.lfa2#make-list chicken.compiler.lfa2#iota chicken.compiler.lfa2#find-tail chicken.compiler.lfa2#find chicken.compiler.lfa2#length+ chicken.compiler.lfa2#lset=/eq? chicken.compiler.lfa2#lset<=/eq? chicken.compiler.lfa2#list-tabulate chicken.compiler.lfa2#lset-intersection/eq? chicken.compiler.lfa2#lset-union/eq? chicken.compiler.lfa2#lset-difference/eq? chicken.compiler.lfa2#lset-adjoin/eq? chicken.compiler.lfa2#list-index chicken.compiler.lfa2#last chicken.compiler.lfa2#unzip1 chicken.compiler.lfa2#remove chicken.compiler.lfa2#filter-map chicken.compiler.lfa2#filter chicken.compiler.lfa2#alist-cons chicken.compiler.lfa2#delete-duplicates chicken.compiler.lfa2#fifth chicken.compiler.lfa2#fourth chicken.compiler.lfa2#third chicken.compiler.lfa2#second chicken.compiler.lfa2#first chicken.compiler.lfa2#delete chicken.compiler.lfa2#concatenate chicken.compiler.lfa2#cons* chicken.compiler.lfa2#any chicken.compiler.lfa2#every chicken.compiler.lfa2#append-map chicken.compiler.lfa2#split-at chicken.compiler.lfa2#drop chicken.compiler.lfa2#take chicken.compiler.lfa2#span chicken.compiler.lfa2#partition) o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#partition o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#span o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#drop o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#split-at o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#append-map o|inlining procedure: k1836 o|inlining procedure: k1836 o|inlining procedure: k1867 o|inlining procedure: k1867 o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#cons* o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#concatenate o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#fourth o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#fifth o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#delete-duplicates o|inlining procedure: k2084 o|inlining procedure: k2084 o|inlining procedure: k2076 o|inlining procedure: k2076 o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#unzip1 o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#last o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#list-index o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#lset-union/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#lset-intersection/eq? o|inlining procedure: k2475 o|inlining procedure: k2475 o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#lset<=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#lset=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#length+ o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#find o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#find-tail o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#iota o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#make-list o|inlining procedure: k2676 o|inlining procedure: k2676 o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#posv o|inlining procedure: k2875 o|contracted procedure: "(lfa2.scm:263) g577578" o|inlining procedure: k2875 o|substituted constant variable: a2908 o|inlining procedure: k2909 o|inlining procedure: k2909 o|inlining procedure: k2924 o|inlining procedure: k2924 o|inlining procedure: "(lfa2.scm:274) chicken.compiler.lfa2#first" o|inlining procedure: k2968 o|inlining procedure: k2968 o|inlining procedure: k2984 o|inlining procedure: k2984 o|inlining procedure: k3005 o|inlining procedure: k3005 o|inlining procedure: k3017 o|inlining procedure: k3017 o|substituted constant variable: a3027 o|substituted constant variable: a3029 o|substituted constant variable: a3031 o|inlining procedure: k3039 o|inlining procedure: k3039 o|inlining procedure: "(lfa2.scm:285) chicken.compiler.lfa2#first" o|contracted procedure: "(lfa2.scm:325) chicken.compiler.lfa2#remove" o|merged explicitly consed rest parameter: rest650653 o|inlining procedure: k3160 o|inlining procedure: k3160 o|inlining procedure: "(lfa2.scm:329) chicken.compiler.lfa2#first" o|consed rest parameter at call site: "(lfa2.scm:334) count-floatvar553" 3 o|consed rest parameter at call site: "(lfa2.scm:335) count-floatvar553" 3 o|consed rest parameter at call site: "(lfa2.scm:336) count-floatvar553" 3 o|inlining procedure: k3237 o|contracted procedure: "(lfa2.scm:348) vartype549" o|inlining procedure: k3073 o|inlining procedure: k3073 o|inlining procedure: k3085 o|inlining procedure: k3085 o|inlining procedure: "(lfa2.scm:348) chicken.compiler.lfa2#first" o|inlining procedure: "(lfa2.scm:346) chicken.compiler.lfa2#first" o|inlining procedure: "(lfa2.scm:345) chicken.compiler.lfa2#first" o|inlining procedure: "(lfa2.scm:344) chicken.compiler.lfa2#first" o|inlining procedure: k3237 o|inlining procedure: k3296 o|inlining procedure: "(lfa2.scm:356) chicken.compiler.lfa2#third" o|inlining procedure: "(lfa2.scm:355) chicken.compiler.lfa2#third" o|inlining procedure: "(lfa2.scm:353) chicken.compiler.lfa2#second" o|inlining procedure: "(lfa2.scm:352) chicken.compiler.lfa2#second" o|inlining procedure: k3296 o|inlining procedure: "(lfa2.scm:360) chicken.compiler.lfa2#third" o|inlining procedure: "(lfa2.scm:359) chicken.compiler.lfa2#second" o|inlining procedure: "(lfa2.scm:350) chicken.compiler.lfa2#first" o|inlining procedure: k3358 o|contracted procedure: "(lfa2.scm:361) constant-result543" o|inlining procedure: k2744 o|inlining procedure: k2744 o|inlining procedure: k2756 o|inlining procedure: k2756 o|inlining procedure: k2771 o|inlining procedure: k2771 o|inlining procedure: k2783 o|inlining procedure: k2783 o|inlining procedure: k2795 o|inlining procedure: k2795 o|inlining procedure: k2807 o|inlining procedure: k2807 o|inlining procedure: k2819 o|inlining procedure: k2819 o|inlining procedure: k2831 o|inlining procedure: k2831 o|inlining procedure: k2850 o|inlining procedure: k2850 o|inlining procedure: "(lfa2.scm:361) chicken.compiler.lfa2#first" o|inlining procedure: k3358 o|inlining procedure: k3404 o|inlining procedure: "(lfa2.scm:380) chicken.compiler.lfa2#first" o|inlining procedure: k3404 o|inlining procedure: k3427 o|inlining procedure: "(lfa2.scm:379) chicken.compiler.lfa2#first" o|inlining procedure: k3427 o|inlining procedure: "(lfa2.scm:373) chicken.compiler.lfa2#second" o|inlining procedure: k3471 o|inlining procedure: k3471 o|inlining procedure: "(lfa2.scm:364) chicken.compiler.lfa2#first" o|inlining procedure: "(lfa2.scm:363) chicken.compiler.lfa2#first" o|inlining procedure: k3484 o|inlining procedure: "(lfa2.scm:387) chicken.compiler.lfa2#first" o|inlining procedure: k3484 o|inlining procedure: "(lfa2.scm:393) chicken.compiler.lfa2#first" o|inlining procedure: "(lfa2.scm:392) chicken.compiler.lfa2#first" o|inlining procedure: "(lfa2.scm:390) chicken.compiler.lfa2#first" o|inlining procedure: k3546 o|inlining procedure: k3546 o|inlining procedure: k3575 o|inlining procedure: k3575 o|inlining procedure: k3558 o|inlining procedure: k3598 o|inlining procedure: k3598 o|inlining procedure: k3610 o|inlining procedure: "(lfa2.scm:417) chicken.compiler.lfa2#second" o|inlining procedure: "(lfa2.scm:415) chicken.compiler.lfa2#first" o|inlining procedure: "(lfa2.scm:415) chicken.compiler.lfa2#second" o|inlining procedure: k3610 o|inlining procedure: k3649 o|inlining procedure: "(lfa2.scm:414) chicken.compiler.lfa2#second" o|inlining procedure: k3649 o|inlining procedure: "(lfa2.scm:413) chicken.compiler.lfa2#first" o|inlining procedure: k3670 o|inlining procedure: k3670 o|inlining procedure: "(lfa2.scm:407) chicken.compiler.lfa2#first" o|inlining procedure: k3731 o|inlining procedure: k3731 o|inlining procedure: "(lfa2.scm:428) chicken.compiler.lfa2#first" o|inlining procedure: k3720 o|inlining procedure: k3720 o|inlining procedure: k3776 o|inlining procedure: k3798 o|inlining procedure: k3813 o|inlining procedure: k3813 o|inlining procedure: "(lfa2.scm:446) chicken.compiler.lfa2#first" o|inlining procedure: "(lfa2.scm:448) chicken.compiler.lfa2#second" o|inlining procedure: "(lfa2.scm:445) chicken.compiler.lfa2#second" o|inlining procedure: k3798 o|inlining procedure: "(lfa2.scm:442) chicken.compiler.lfa2#first" o|inlining procedure: k3776 o|inlining procedure: k3858 o|inlining procedure: "(lfa2.scm:465) chicken.compiler.lfa2#second" o|inlining procedure: "(lfa2.scm:462) chicken.compiler.lfa2#first" o|inlining procedure: "(lfa2.scm:463) chicken.compiler.lfa2#second" o|inlining procedure: k3858 o|inlining procedure: k3897 o|inlining procedure: "(lfa2.scm:461) chicken.compiler.lfa2#second" o|inlining procedure: k3897 o|inlining procedure: "(lfa2.scm:460) chicken.compiler.lfa2#first" o|inlining procedure: k3918 o|inlining procedure: k3918 o|inlining procedure: "(lfa2.scm:439) chicken.compiler.lfa2#first" o|inlining procedure: k3972 o|inlining procedure: "(lfa2.scm:480) chicken.compiler.lfa2#first" o|inlining procedure: k3972 o|inlining procedure: k3997 o|inlining procedure: k3997 o|inlining procedure: "(lfa2.scm:476) chicken.compiler.lfa2#first" o|inlining procedure: k3964 o|inlining procedure: k3964 o|substituted constant variable: chicken.compiler.lfa2#+constructor-map+ o|inlining procedure: "(lfa2.scm:474) chicken.compiler.lfa2#first" o|substituted constant variable: chicken.compiler.lfa2#+predicate-map+ o|inlining procedure: "(lfa2.scm:437) chicken.compiler.lfa2#first" o|substituted constant variable: chicken.compiler.lfa2#+ffi-type-check-map+ o|inlining procedure: "(lfa2.scm:426) chicken.compiler.lfa2#first" o|substituted constant variable: chicken.compiler.lfa2#+type-check-map+ o|inlining procedure: "(lfa2.scm:405) chicken.compiler.lfa2#first" o|inlining procedure: k4042 o|inlining procedure: k4042 o|inlining procedure: "(lfa2.scm:399) chicken.compiler.lfa2#first" o|inlining procedure: k3558 o|inlining procedure: k4080 o|inlining procedure: k4080 o|substituted constant variable: a4104 o|substituted constant variable: a4106 o|substituted constant variable: a4108 o|substituted constant variable: a4110 o|substituted constant variable: a4115 o|substituted constant variable: a4117 o|substituted constant variable: a4122 o|substituted constant variable: a4124 o|substituted constant variable: a4126 o|substituted constant variable: a4128 o|substituted constant variable: a4133 o|substituted constant variable: a4135 o|substituted constant variable: a4137 o|inlining procedure: k4141 o|inlining procedure: k4191 o|contracted procedure: "(lfa2.scm:495) g845852" o|propagated global variable: out855858 ##sys#standard-output o|substituted constant variable: a4159 o|substituted constant variable: a4160 o|propagated global variable: out855858 ##sys#standard-output o|inlining procedure: k4191 o|inlining procedure: k4141 o|inlining procedure: k4229 o|inlining procedure: "(lfa2.scm:515) chicken.compiler.lfa2#first" o|inlining procedure: k4229 o|inlining procedure: k4257 o|inlining procedure: k4257 o|inlining procedure: "(lfa2.scm:520) chicken.compiler.lfa2#first" o|inlining procedure: k4278 o|inlining procedure: k4326 o|inlining procedure: k4326 o|inlining procedure: "(lfa2.scm:528) chicken.compiler.lfa2#third" o|inlining procedure: "(lfa2.scm:527) chicken.compiler.lfa2#second" o|inlining procedure: k4387 o|inlining procedure: k4387 o|inlining procedure: "(lfa2.scm:525) chicken.compiler.lfa2#first" o|inlining procedure: k4278 o|substituted constant variable: a4437 o|substituted constant variable: a4439 o|substituted constant variable: a4441 o|substituted constant variable: a4443 o|inlining procedure: k4456 o|inlining procedure: "(lfa2.scm:548) chicken.compiler.lfa2#first" o|inlining procedure: k4456 o|inlining procedure: k4502 o|inlining procedure: "(lfa2.scm:561) chicken.compiler.lfa2#second" o|inlining procedure: k4502 o|inlining procedure: k4544 o|inlining procedure: k4544 o|inlining procedure: "(lfa2.scm:556) chicken.compiler.lfa2#first" o|inlining procedure: "(lfa2.scm:555) chicken.compiler.lfa2#first" o|inlining procedure: k4575 o|inlining procedure: k4603 o|inlining procedure: k4603 o|substituted constant variable: a4617 o|inlining procedure: k4638 o|inlining procedure: k4638 o|inlining procedure: "(lfa2.scm:567) chicken.compiler.lfa2#third" o|inlining procedure: "(lfa2.scm:566) chicken.compiler.lfa2#second" o|inlining procedure: k4691 o|inlining procedure: k4691 o|inlining procedure: "(lfa2.scm:564) chicken.compiler.lfa2#first" o|inlining procedure: k4575 o|inlining procedure: k4742 o|inlining procedure: k4742 o|substituted constant variable: a4777 o|substituted constant variable: a4779 o|substituted constant variable: a4781 o|substituted constant variable: a4783 o|propagated global variable: out11161122 ##sys#standard-output o|substituted constant variable: a4794 o|substituted constant variable: a4795 o|propagated global variable: out11191126 ##sys#standard-output o|substituted constant variable: a4806 o|substituted constant variable: a4807 o|propagated global variable: out11191126 ##sys#standard-output o|propagated global variable: out11161122 ##sys#standard-output o|inlining procedure: k4824 o|inlining procedure: k4824 o|contracted procedure: "(lfa2.scm:502) chicken.compiler.lfa2#filter-map" o|inlining procedure: k2131 o|inlining procedure: k2131 o|inlining procedure: k2120 o|inlining procedure: k2120 o|replaced variables: 484 o|removed binding forms: 153 o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#every o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#any o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#first o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#second o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#third o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#list-tabulate o|substituted constant variable: r26774849 o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#+type-check-map+ o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#+predicate-map+ o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#+ffi-type-check-map+ o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#+constructor-map+ o|substituted constant variable: r30064866 o|substituted constant variable: r30064866 o|inlining procedure: k3005 o|inlining procedure: k3005 o|substituted constant variable: r30184870 o|contracted procedure: "(mini-srfi-1.scm:141) chicken.compiler.lfa2#filter" o|substituted constant variable: r20774846 o|substituted constant variable: r30864889 o|substituted constant variable: r27454950 o|substituted constant variable: r27574952 o|substituted constant variable: r27724954 o|substituted constant variable: r27844956 o|substituted constant variable: r27964958 o|substituted constant variable: r28084960 o|substituted constant variable: r28204962 o|substituted constant variable: r28324964 o|substituted constant variable: r28514966 o|substituted constant variable: r28514967 o|substituted constant variable: r34284989 o|substituted constant variable: r34724996 o|substituted constant variable: r34855007 o|inlining procedure: k3512 o|substituted constant variable: r35475029 o|inlining procedure: k3598 o|inlining procedure: k3598 o|substituted constant variable: r36505061 o|inlining procedure: k3598 o|inlining procedure: k3598 o|inlining procedure: k3798 o|substituted constant variable: r38145089 o|inlining procedure: k3798 o|substituted constant variable: r37775112 o|inlining procedure: k3852 o|inlining procedure: k3852 o|substituted constant variable: r38985136 o|inlining procedure: k3852 o|inlining procedure: k3852 o|substituted constant variable: r39985157 o|substituted constant variable: r35595192 o|propagated global variable: out855858 ##sys#standard-output o|propagated global variable: out11161122 ##sys#standard-output o|propagated global variable: out11191126 ##sys#standard-output o|substituted constant variable: r48255288 o|substituted constant variable: r21215292 o|replaced variables: 111 o|removed binding forms: 480 o|inlining procedure: "(lfa2.scm:265) chicken.compiler.lfa2#alist-cons" o|inlining procedure: "(lfa2.scm:328) varnode?550" o|inlining procedure: "(lfa2.scm:381) chicken.compiler.lfa2#alist-cons" o|inlining procedure: "(lfa2.scm:381) chicken.compiler.lfa2#alist-cons" o|inlining procedure: "(lfa2.scm:377) varnode?550" o|inlining procedure: "(lfa2.scm:376) chicken.compiler.lfa2#alist-cons" o|inlining procedure: "(lfa2.scm:391) varnode?550" o|inlining procedure: k3622 o|substituted constant variable: r37995319 o|substituted constant variable: r37995321 o|substituted constant variable: r377751125324 o|substituted constant variable: r377751125326 o|substituted constant variable: r377751125328 o|substituted constant variable: r377751125330 o|inlining procedure: "(lfa2.scm:440) varnode?550" o|replaced variables: 14 o|removed binding forms: 165 o|removed side-effect free assignment to unused variable: chicken.compiler.lfa2#alist-cons o|substituted constant variable: y2365359 o|substituted constant variable: r30065297 o|substituted constant variable: r30065299 o|removed side-effect free assignment to unused variable: varnode?550 o|substituted constant variable: r36235406 o|inlining procedure: k3870 o|replaced variables: 69 o|removed binding forms: 23 o|removed conditional forms: 1 o|substituted constant variable: r38715441 o|removed binding forms: 77 o|removed conditional forms: 1 o|removed binding forms: 1 o|simplifications: ((if . 13) (##core#call . 298)) o| call simplifications: o| scheme#= o| ##sys#setslot 6 o| ##sys#cons 3 o| scheme#member 3 o| scheme#memq 2 o| scheme#string? o| scheme#symbol? 5 o| chicken.base#fixnum? o| chicken.base#bignum? o| chicken.base#flonum? o| chicken.base#ratnum? o| chicken.base#cplxnum? o| scheme#boolean? o| scheme#list? o| scheme#eof-object? o| scheme#vector? o| ##sys#immediate? o| ##sys#generic-structure? o| scheme#char? o| ##sys#list 5 o| scheme#cadr 22 o| scheme#caddr 6 o| scheme#cdar o| scheme#+ o| scheme#set-car! o| scheme#assq 5 o| ##sys#check-list 12 o| scheme#pair? 20 o| ##sys#slot 31 o| scheme#length 2 o| scheme#list 12 o| scheme#not 8 o| scheme#assoc 8 o| scheme#cons 25 o| scheme#cdr 4 o| scheme#set-cdr! o| scheme#null? 4 o| scheme#car 45 o| scheme#eq? 51 o| chicken.fixnum#fx+ o|contracted procedure: k2679 o|contracted procedure: k2698 o|contracted procedure: k2685 o|contracted procedure: k2692 o|contracted procedure: k2872 o|contracted procedure: k2885 o|contracted procedure: k20615363 o|contracted procedure: k2915 o|contracted procedure: k2918 o|contracted procedure: k2921 o|contracted procedure: k2978 o|contracted procedure: k2994 o|contracted procedure: k3002 o|contracted procedure: k3008 o|contracted procedure: k3014 o|contracted procedure: k3020 o|contracted procedure: k3042 o|contracted procedure: k3052 o|contracted procedure: k3056 o|contracted procedure: k3060 o|contracted procedure: k3148 o|contracted procedure: k2067 o|contracted procedure: k2079 o|contracted procedure: k2097 o|contracted procedure: k2105 o|contracted procedure: k3201 o|contracted procedure: k3154 o|contracted procedure: k3177 o|contracted procedure: k3173 o|contracted procedure: k3194 o|contracted procedure: k3240 o|contracted procedure: k3253 o|contracted procedure: k3070 o|contracted procedure: k3088 o|contracted procedure: k3115 o|contracted procedure: k3105 o|contracted procedure: k3263 o|contracted procedure: k3277 o|contracted procedure: k3273 o|contracted procedure: k3281 o|contracted procedure: k3287 o|contracted procedure: k3290 o|contracted procedure: k3309 o|contracted procedure: k3317 o|contracted procedure: k3321 o|contracted procedure: k3329 o|contracted procedure: k3339 o|contracted procedure: k3343 o|contracted procedure: k3346 o|contracted procedure: k3355 o|contracted procedure: k3361 o|contracted procedure: k3368 o|contracted procedure: k2747 o|contracted procedure: k2759 o|contracted procedure: k2774 o|contracted procedure: k2780 o|contracted procedure: k2786 o|contracted procedure: k2792 o|contracted procedure: k2798 o|contracted procedure: k2804 o|contracted procedure: k2810 o|contracted procedure: k2816 o|contracted procedure: k2822 o|contracted procedure: k2828 o|contracted procedure: k2834 o|contracted procedure: k2863 o|contracted procedure: k2856 o|contracted procedure: k2840 o|contracted procedure: k2847 o|contracted procedure: k2853 o|contracted procedure: k3374 o|contracted procedure: k3377 o|contracted procedure: k3380 o|contracted procedure: k3396 o|contracted procedure: k3410 o|contracted procedure: k20615381 o|contracted procedure: k20615388 o|contracted procedure: k3430 o|contracted procedure: k3441 o|contracted procedure: k20615400 o|contracted procedure: k3462 o|contracted procedure: k3455 o|contracted procedure: k3468 o|contracted procedure: k3474 o|contracted procedure: k3487 o|contracted procedure: k3490 o|contracted procedure: k3497 o|contracted procedure: k3503 o|contracted procedure: k3506 o|contracted procedure: k3509 o|contracted procedure: k3525 o|contracted procedure: k3539 o|contracted procedure: k3549 o|contracted procedure: k3555 o|contracted procedure: k3561 o|contracted procedure: k3564 o|contracted procedure: k4063 o|contracted procedure: k3567 o|contracted procedure: k3581 o|contracted procedure: k4036 o|contracted procedure: k3587 o|contracted procedure: k3707 o|contracted procedure: k3607 o|contracted procedure: k3616 o|contracted procedure: k3628 o|contracted procedure: k3635 o|contracted procedure: k3622 o|contracted procedure: k3643 o|contracted procedure: k3646 o|contracted procedure: k3667 o|contracted procedure: k3652 o|contracted procedure: k3663 o|contracted procedure: k3679 o|contracted procedure: k3690 o|contracted procedure: k3698 o|contracted procedure: k3711 o|contracted procedure: k4032 o|contracted procedure: k3717 o|contracted procedure: k3725 o|contracted procedure: k3759 o|contracted procedure: k3734 o|contracted procedure: k4028 o|contracted procedure: k3765 o|contracted procedure: k3773 o|contracted procedure: k3786 o|contracted procedure: k3794 o|contracted procedure: k3842 o|contracted procedure: k3801 o|contracted procedure: k3807 o|contracted procedure: k3810 o|contracted procedure: k3816 o|inlining procedure: k3798 o|contracted procedure: k3827 o|contracted procedure: k3835 o|inlining procedure: k3798 o|contracted procedure: k3955 o|contracted procedure: k3855 o|contracted procedure: k3864 o|contracted procedure: k3876 o|contracted procedure: k3883 o|contracted procedure: k3870 o|contracted procedure: k3891 o|contracted procedure: k3894 o|contracted procedure: k3915 o|contracted procedure: k3900 o|contracted procedure: k3911 o|contracted procedure: k3927 o|contracted procedure: k3938 o|contracted procedure: k3946 o|contracted procedure: k4024 o|contracted procedure: k3961 o|contracted procedure: k4014 o|contracted procedure: k3969 o|contracted procedure: k3978 o|contracted procedure: k3984 o|contracted procedure: k4011 o|contracted procedure: k4000 o|contracted procedure: k4045 o|contracted procedure: k4055 o|contracted procedure: k4059 o|contracted procedure: k4071 o|contracted procedure: k4083 o|contracted procedure: k4093 o|contracted procedure: k4097 o|contracted procedure: k4144 o|contracted procedure: k4182 o|contracted procedure: k4194 o|contracted procedure: k4204 o|contracted procedure: k4208 o|contracted procedure: k4179 o|contracted procedure: k4232 o|contracted procedure: k4235 o|contracted procedure: k4245 o|contracted procedure: k4251 o|contracted procedure: k4264 o|contracted procedure: k4271 o|contracted procedure: k4275 o|contracted procedure: k4281 o|contracted procedure: k4284 o|contracted procedure: k4419 o|contracted procedure: k4287 o|contracted procedure: k4295 o|contracted procedure: k4298 o|contracted procedure: k4307 o|contracted procedure: k4311 o|contracted procedure: k4357 o|contracted procedure: k4314 o|contracted procedure: k4317 o|contracted procedure: k4329 o|contracted procedure: k4332 o|contracted procedure: k4335 o|contracted procedure: k4343 o|contracted procedure: k4351 o|contracted procedure: k4367 o|contracted procedure: k4375 o|contracted procedure: k4378 o|contracted procedure: k4390 o|contracted procedure: k4393 o|contracted procedure: k4396 o|contracted procedure: k4404 o|contracted procedure: k4412 o|contracted procedure: k4426 o|contracted procedure: k4459 o|contracted procedure: k4472 o|contracted procedure: k4480 o|contracted procedure: k4484 o|contracted procedure: k4490 o|contracted procedure: k4493 o|contracted procedure: k4496 o|contracted procedure: k4509 o|contracted procedure: k4513 o|contracted procedure: k4525 o|contracted procedure: k4532 o|contracted procedure: k4535 o|contracted procedure: k4547 o|contracted procedure: k4550 o|contracted procedure: k4553 o|contracted procedure: k4561 o|contracted procedure: k4569 o|contracted procedure: k4578 o|contracted procedure: k4581 o|contracted procedure: k4723 o|contracted procedure: k4584 o|contracted procedure: k4592 o|contracted procedure: k4595 o|contracted procedure: k4606 o|contracted procedure: k4613 o|contracted procedure: k4619 o|contracted procedure: k4623 o|contracted procedure: k4669 o|contracted procedure: k4626 o|contracted procedure: k4629 o|contracted procedure: k4641 o|contracted procedure: k4644 o|contracted procedure: k4647 o|contracted procedure: k4655 o|contracted procedure: k4663 o|contracted procedure: k4679 o|contracted procedure: k4682 o|contracted procedure: k4694 o|contracted procedure: k4697 o|contracted procedure: k4700 o|contracted procedure: k4708 o|contracted procedure: k4716 o|contracted procedure: k4730 o|contracted procedure: k4733 o|contracted procedure: k4745 o|contracted procedure: k4748 o|contracted procedure: k4751 o|contracted procedure: k4759 o|contracted procedure: k4767 o|contracted procedure: k4818 o|contracted procedure: k4832 o|contracted procedure: k4836 o|contracted procedure: k4827 o|contracted procedure: k2111 o|contracted procedure: k2123 o|contracted procedure: k2146 o|contracted procedure: k2154 o|simplifications: ((let . 46)) o|removed binding forms: 257 o|inlining procedure: k3256 o|inlining procedure: k3256 o|inlining procedure: k3790 o|inlining procedure: k3790 o|inlining procedure: k3790 o|inlining procedure: k3790 o|replaced variables: 82 o|removed binding forms: 1 o|inlining procedure: k2892 o|substituted constant variable: r32575615 o|inlining procedure: k3404 o|simplifications: ((let . 1)) o|removed binding forms: 42 o|removed conditional forms: 1 o|contracted procedure: k3417 o|removed binding forms: 4 o|replaced variables: 2 o|removed binding forms: 1 o|direct leaf routine/allocation: loop477 0 o|direct leaf routine/allocation: floatvar?551 0 o|direct leaf routine/allocation: g278279 3 o|converted assignments to bindings: (loop477) o|contracted procedure: "(lfa2.scm:344) k3266" o|contracted procedure: "(lfa2.scm:369) k3481" o|simplifications: ((let . 1)) o|removed binding forms: 2 o|customizable procedures: (foldr263266 g268269 map-loop10911108 map-loop10651082 g10241025 map-loop10321049 map-loop9911008 map-loop951968 g917918 map-loop924941 chicken.compiler.lfa2#posq for-each-loop844864 g819826 for-each-loop818836 g731738 for-each-loop730742 g804805 k3975 g777778 k3921 k3861 g768769 g753754 k3673 k3613 extinguish!548 k3518 k3451 add-unboxed555 k3400 assigned?545 k3407 k3299 walk557 eliminate-floatvar552 add-boxed554 k3091 loop633 count-floatvar553 k3157 g666667 foldr245248 g250251 report544 g601608 for-each-loop600611 droppable?546 drop!547 sub-boxed556) o|calls to known targets: 117 o|identified direct recursive calls: f_2674 1 o|identified direct recursive calls: f_2074 1 o|identified direct recursive calls: f_2118 1 o|fast box initializations: 27 o|fast global references: 6 o|fast global assignments: 2 o|dropping unused closure argument: f_2668 */ /* end of file */ chicken-5.1.0/chicken.bitwise.import.scm0000644000175000017500000000106213502227727020023 0ustar sjamaansjamaan;;;; chicken.bitwise.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.bitwise 'library (scheme#list) '((arithmetic-shift . chicken.bitwise#arithmetic-shift) (integer-length . chicken.bitwise#integer-length) (bit->boolean . chicken.bitwise#bit->boolean) (bitwise-not . chicken.bitwise#bitwise-not) (bitwise-xor . chicken.bitwise#bitwise-xor) (bitwise-ior . chicken.bitwise#bitwise-ior) (bitwise-and . chicken.bitwise#bitwise-and)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/file.c0000644000175000017500000061245013502227742014026 0ustar sjamaansjamaan/* Generated from file.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: file.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file file.c -emit-import-library chicken.file unit: file uses: extras irregex pathname library */ #include "chicken.h" #include #define C_test_access(fn, m) C_fix(access(C_c_string(fn), C_unfix(m))) /* For Windows */ #ifndef R_OK # define R_OK 2 #endif #ifndef W_OK # define W_OK 4 #endif #ifndef X_OK # define X_OK 2 #endif #define C_rename(old, new) C_fix(rename(C_c_string(old), C_c_string(new))) #define C_remove(str) C_fix(remove(C_c_string(str))) #define C_rmdir(str) C_fix(rmdir(C_c_string(str))) #ifndef _WIN32 # include # define C_mkdir(str) C_fix(mkdir(C_c_string(str), S_IRWXU | S_IRWXG | S_IRWXO)) #else # define C_mkdir(str) C_fix(mkdir(C_c_string(str))) #endif #if !defined(_WIN32) || defined(__CYGWIN__) # include # include #else struct dirent { char * d_name; }; typedef struct { struct _finddata_t fdata; int handle; struct dirent current; } DIR; static DIR * C_fcall opendir(const char *name) { int name_len = strlen(name); int what_len = name_len + 3; DIR *dir = (DIR *)malloc(sizeof(DIR)); char *what; if (!dir) { errno = ENOMEM; return NULL; } what = (char *)malloc(what_len); if (!what) { free(dir); errno = ENOMEM; return NULL; } C_strlcpy(what, name, what_len); if (strchr("\\/", name[name_len - 1])) C_strlcat(what, "*", what_len); else C_strlcat(what, "\\*", what_len); dir->handle = _findfirst(what, &dir->fdata); if (dir->handle == -1) { free(what); free(dir); return NULL; } dir->current.d_name = NULL; /* as the first-time indicator */ free(what); return dir; } static int C_fcall closedir(DIR * dir) { if (dir) { int res = _findclose(dir->handle); free(dir); return res; } return -1; } static struct dirent * C_fcall readdir(DIR * dir) { if (dir) { if (!dir->current.d_name /* first time after opendir */ || _findnext(dir->handle, &dir->fdata) != -1) { dir->current.d_name = dir->fdata.name; return &dir->current; } } return NULL; } #endif #define C_opendir(s,h) C_set_block_item(h, 0, (C_word) opendir(C_c_string(s))) #define C_readdir(h,e) C_set_block_item(e, 0, (C_word) readdir((DIR *)C_block_item(h, 0))) #define C_closedir(h) (closedir((DIR *)C_block_item(h, 0)), C_SCHEME_UNDEFINED) #define C_foundfile(e,b,l) (C_strlcpy(C_c_string(b), ((struct dirent *) C_block_item(e, 0))->d_name, l), C_fix(strlen(((struct dirent *) C_block_item(e, 0))->d_name))) static C_word C_fcall C_u_i_symbolic_linkp(C_word path) { #if !defined(_WIN32) || defined(__CYGWIN__) struct stat buf; if (lstat(C_c_string(path), &buf) == 0) return C_mk_bool(S_ISLNK(buf.st_mode)); #endif return C_SCHEME_FALSE; } static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_irregex_toplevel) C_externimport void C_ccall C_irregex_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[108]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,102,105,108,101,35,112,111,115,105,120,45,101,114,114,111,114,32,116,121,112,101,32,108,111,99,32,109,115,103,32,97,114,103,115,41,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,102,105,108,101,35,102,105,108,101,45,101,120,105,115,116,115,63,32,110,97,109,101,41}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,102,105,108,101,35,100,105,114,101,99,116,111,114,121,45,101,120,105,115,116,115,63,32,110,97,109,101,41,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,35,116,101,115,116,45,97,99,99,101,115,115,32,102,105,108,101,110,97,109,101,32,97,99,99,32,108,111,99,41,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,102,105,108,101,35,102,105,108,101,45,114,101,97,100,97,98,108,101,63,32,102,105,108,101,110,97,109,101,41,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,102,105,108,101,35,102,105,108,101,45,119,114,105,116,97,98,108,101,63,32,102,105,108,101,110,97,109,101,41,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,102,105,108,101,35,102,105,108,101,45,101,120,101,99,117,116,97,98,108,101,63,32,102,105,108,101,110,97,109,101,41}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,102,105,108,101,35,100,105,114,101,99,116,111,114,121,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,100,105,114,41,0,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,7),40,97,49,48,53,48,41,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,29),40,97,49,48,53,54,32,100,105,114,50,51,48,32,102,105,108,101,50,51,50,32,101,120,116,50,51,52,41,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,35,99,114,101,97,116,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,11),40,114,109,100,105,114,32,100,105,114,41,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,8),40,103,50,54,55,32,102,41}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,54,32,103,50,55,51,41,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,35,100,101,108,101,116,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,102,105,108,101,35,100,101,108,101,116,101,45,102,105,108,101,32,102,105,108,101,110,97,109,101,41,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,102,105,108,101,35,100,101,108,101,116,101,45,102,105,108,101,42,32,102,105,108,101,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,102,105,108,101,35,114,101,110,97,109,101,45,102,105,108,101,32,111,108,100,102,105,108,101,32,110,101,119,102,105,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,100,32,108,41,0,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,102,105,108,101,35,99,111,112,121,45,102,105,108,101,32,111,108,100,102,105,108,101,32,110,101,119,102,105,108,101,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,100,32,108,41,0,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,102,105,108,101,35,109,111,118,101,45,102,105,108,101,32,111,108,100,102,105,108,101,32,110,101,119,102,105,108,101,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,9),40,116,101,109,112,100,105,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,9),40,97,49,54,49,52,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,35,99,114,101,97,116,101,45,116,101,109,112,111,114,97,114,121,45,102,105,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,102,105,108,101,35,99,114,101,97,116,101,45,116,101,109,112,111,114,97,114,121,45,100,105,114,101,99,116,111,114,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,7),40,97,49,55,51,50,41,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,8),40,103,52,55,55,32,109,41}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,102,110,115,41,0,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,7),40,97,49,56,50,56,41,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,13),40,97,49,56,50,50,32,101,120,118,97,114,41,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,9),40,116,109,112,49,55,50,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,7),40,97,49,56,55,55,41,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,14),40,116,109,112,50,55,50,51,32,97,114,103,115,41,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,7),40,97,49,56,54,52,41,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,9),40,97,49,56,49,54,32,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,28),40,97,49,55,51,56,32,100,105,114,52,52,57,32,102,105,108,52,53,49,32,101,120,116,52,53,51,41,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,17),40,99,111,110,99,45,108,111,111,112,32,112,97,116,104,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,102,105,108,101,35,103,108,111,98,32,46,32,112,97,116,104,115,41,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,7),40,97,50,48,48,55,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,7),40,97,50,48,49,50,41,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,7),40,97,50,48,51,50,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,100,105,114,32,102,115,32,114,41,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,10),40,102,95,50,48,56,52,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,12),40,102,95,50,48,57,50,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,12),40,102,95,50,49,48,48,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,7),40,97,50,49,48,53,41,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,7),40,97,50,49,48,56,41,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,7),40,97,50,49,49,49,41,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,7),40,97,50,49,49,52,41,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,12),40,102,95,50,49,50,48,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,7),40,97,50,49,49,55,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,12),40,102,95,50,49,50,56,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,7),40,97,50,49,50,53,41,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,102,105,108,101,35,102,105,110,100,45,102,105,108,101,115,32,100,105,114,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; /* from getpid */ C_regparm static C_word C_fcall stub437(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_fix((C_word)C_getpid()); return C_r;} /* from getpid */ C_regparm static C_word C_fcall stub428(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_fix((C_word)C_getpid()); return C_r;} /* from k750 */ C_regparm static C_word C_fcall stub135(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_mpointer(&C_a,(void*)strerror(t0)); return C_r;} C_noret_decl(f_1007) static void C_ccall f_1007(C_word c,C_word *av) C_noret; C_noret_decl(f_1009) static void C_fcall f_1009(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1016) static void C_fcall f_1016(C_word t0,C_word t1) C_noret; C_noret_decl(f_1019) static void C_ccall f_1019(C_word c,C_word *av) C_noret; C_noret_decl(f_1035) static void C_ccall f_1035(C_word c,C_word *av) C_noret; C_noret_decl(f_1042) static void C_ccall f_1042(C_word c,C_word *av) C_noret; C_noret_decl(f_1049) static void C_ccall f_1049(C_word c,C_word *av) C_noret; C_noret_decl(f_1051) static void C_ccall f_1051(C_word c,C_word *av) C_noret; C_noret_decl(f_1057) static void C_ccall f_1057(C_word c,C_word *av) C_noret; C_noret_decl(f_1080) static void C_ccall f_1080(C_word c,C_word *av) C_noret; C_noret_decl(f_1098) static void C_ccall f_1098(C_word c,C_word *av) C_noret; C_noret_decl(f_1104) static void C_fcall f_1104(C_word t0,C_word t1) C_noret; C_noret_decl(f_1108) static void C_ccall f_1108(C_word c,C_word *av) C_noret; C_noret_decl(f_1127) static void C_ccall f_1127(C_word c,C_word *av) C_noret; C_noret_decl(f_1128) static void C_fcall f_1128(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1141) static void C_ccall f_1141(C_word c,C_word *av) C_noret; C_noret_decl(f_1144) static void C_ccall f_1144(C_word c,C_word *av) C_noret; C_noret_decl(f_1150) static void C_ccall f_1150(C_word c,C_word *av) C_noret; C_noret_decl(f_1153) static void C_ccall f_1153(C_word c,C_word *av) C_noret; C_noret_decl(f_1158) static void C_fcall f_1158(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1168) static void C_ccall f_1168(C_word c,C_word *av) C_noret; C_noret_decl(f_1190) static void C_ccall f_1190(C_word c,C_word *av) C_noret; C_noret_decl(f_1197) static void C_ccall f_1197(C_word c,C_word *av) C_noret; C_noret_decl(f_1203) static void C_ccall f_1203(C_word c,C_word *av) C_noret; C_noret_decl(f_1210) static void C_ccall f_1210(C_word c,C_word *av) C_noret; C_noret_decl(f_1214) static void C_ccall f_1214(C_word c,C_word *av) C_noret; C_noret_decl(f_1219) static void C_ccall f_1219(C_word c,C_word *av) C_noret; C_noret_decl(f_1221) static void C_ccall f_1221(C_word c,C_word *av) C_noret; C_noret_decl(f_1228) static void C_ccall f_1228(C_word c,C_word *av) C_noret; C_noret_decl(f_1233) static void C_ccall f_1233(C_word c,C_word *av) C_noret; C_noret_decl(f_1246) static void C_ccall f_1246(C_word c,C_word *av) C_noret; C_noret_decl(f_1249) static void C_ccall f_1249(C_word c,C_word *av) C_noret; C_noret_decl(f_1255) static void C_ccall f_1255(C_word c,C_word *av) C_noret; C_noret_decl(f_1262) static void C_ccall f_1262(C_word c,C_word *av) C_noret; C_noret_decl(f_1266) static void C_ccall f_1266(C_word c,C_word *av) C_noret; C_noret_decl(f_1271) static void C_ccall f_1271(C_word c,C_word *av) C_noret; C_noret_decl(f_1275) static void C_ccall f_1275(C_word c,C_word *av) C_noret; C_noret_decl(f_1278) static void C_ccall f_1278(C_word c,C_word *av) C_noret; C_noret_decl(f_1295) static void C_ccall f_1295(C_word c,C_word *av) C_noret; C_noret_decl(f_1320) static void C_ccall f_1320(C_word c,C_word *av) C_noret; C_noret_decl(f_1323) static void C_ccall f_1323(C_word c,C_word *av) C_noret; C_noret_decl(f_1326) static void C_ccall f_1326(C_word c,C_word *av) C_noret; C_noret_decl(f_1329) static void C_ccall f_1329(C_word c,C_word *av) C_noret; C_noret_decl(f_1332) static void C_ccall f_1332(C_word c,C_word *av) C_noret; C_noret_decl(f_1335) static void C_ccall f_1335(C_word c,C_word *av) C_noret; C_noret_decl(f_1342) static void C_ccall f_1342(C_word c,C_word *av) C_noret; C_noret_decl(f_1344) static void C_fcall f_1344(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1354) static void C_ccall f_1354(C_word c,C_word *av) C_noret; C_noret_decl(f_1357) static void C_ccall f_1357(C_word c,C_word *av) C_noret; C_noret_decl(f_1360) static void C_ccall f_1360(C_word c,C_word *av) C_noret; C_noret_decl(f_1367) static void C_ccall f_1367(C_word c,C_word *av) C_noret; C_noret_decl(f_1374) static void C_ccall f_1374(C_word c,C_word *av) C_noret; C_noret_decl(f_1386) static void C_ccall f_1386(C_word c,C_word *av) C_noret; C_noret_decl(f_1425) static void C_ccall f_1425(C_word c,C_word *av) C_noret; C_noret_decl(f_1450) static void C_ccall f_1450(C_word c,C_word *av) C_noret; C_noret_decl(f_1453) static void C_ccall f_1453(C_word c,C_word *av) C_noret; C_noret_decl(f_1456) static void C_ccall f_1456(C_word c,C_word *av) C_noret; C_noret_decl(f_1459) static void C_ccall f_1459(C_word c,C_word *av) C_noret; C_noret_decl(f_1462) static void C_ccall f_1462(C_word c,C_word *av) C_noret; C_noret_decl(f_1465) static void C_ccall f_1465(C_word c,C_word *av) C_noret; C_noret_decl(f_1472) static void C_ccall f_1472(C_word c,C_word *av) C_noret; C_noret_decl(f_1474) static void C_fcall f_1474(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1484) static void C_ccall f_1484(C_word c,C_word *av) C_noret; C_noret_decl(f_1487) static void C_ccall f_1487(C_word c,C_word *av) C_noret; C_noret_decl(f_1490) static void C_ccall f_1490(C_word c,C_word *av) C_noret; C_noret_decl(f_1493) static void C_ccall f_1493(C_word c,C_word *av) C_noret; C_noret_decl(f_1500) static void C_ccall f_1500(C_word c,C_word *av) C_noret; C_noret_decl(f_1507) static void C_ccall f_1507(C_word c,C_word *av) C_noret; C_noret_decl(f_1519) static void C_ccall f_1519(C_word c,C_word *av) C_noret; C_noret_decl(f_1558) static void C_fcall f_1558(C_word t0,C_word t1) C_noret; C_noret_decl(f_1565) static void C_ccall f_1565(C_word c,C_word *av) C_noret; C_noret_decl(f_1572) static void C_ccall f_1572(C_word c,C_word *av) C_noret; C_noret_decl(f_1578) static void C_ccall f_1578(C_word c,C_word *av) C_noret; C_noret_decl(f_1583) static void C_ccall f_1583(C_word c,C_word *av) C_noret; C_noret_decl(f_1595) static void C_fcall f_1595(C_word t0,C_word t1) C_noret; C_noret_decl(f_1601) static void C_ccall f_1601(C_word c,C_word *av) C_noret; C_noret_decl(f_1607) static void C_ccall f_1607(C_word c,C_word *av) C_noret; C_noret_decl(f_1615) static void C_ccall f_1615(C_word c,C_word *av) C_noret; C_noret_decl(f_1620) static void C_ccall f_1620(C_word c,C_word *av) C_noret; C_noret_decl(f_1624) static void C_ccall f_1624(C_word c,C_word *av) C_noret; C_noret_decl(f_1628) static void C_ccall f_1628(C_word c,C_word *av) C_noret; C_noret_decl(f_1632) static void C_ccall f_1632(C_word c,C_word *av) C_noret; C_noret_decl(f_1646) static void C_ccall f_1646(C_word c,C_word *av) C_noret; C_noret_decl(f_1652) static void C_fcall f_1652(C_word t0,C_word t1) C_noret; C_noret_decl(f_1658) static void C_ccall f_1658(C_word c,C_word *av) C_noret; C_noret_decl(f_1664) static void C_ccall f_1664(C_word c,C_word *av) C_noret; C_noret_decl(f_1671) static void C_ccall f_1671(C_word c,C_word *av) C_noret; C_noret_decl(f_1684) static void C_ccall f_1684(C_word c,C_word *av) C_noret; C_noret_decl(f_1688) static void C_ccall f_1688(C_word c,C_word *av) C_noret; C_noret_decl(f_1692) static void C_ccall f_1692(C_word c,C_word *av) C_noret; C_noret_decl(f_1696) static void C_ccall f_1696(C_word c,C_word *av) C_noret; C_noret_decl(f_1700) static void C_ccall f_1700(C_word c,C_word *av) C_noret; C_noret_decl(f_1704) static void C_ccall f_1704(C_word c,C_word *av) C_noret; C_noret_decl(f_1712) static void C_ccall f_1712(C_word c,C_word *av) C_noret; C_noret_decl(f_1718) static void C_fcall f_1718(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1733) static void C_ccall f_1733(C_word c,C_word *av) C_noret; C_noret_decl(f_1739) static void C_ccall f_1739(C_word c,C_word *av) C_noret; C_noret_decl(f_1746) static void C_ccall f_1746(C_word c,C_word *av) C_noret; C_noret_decl(f_1753) static void C_ccall f_1753(C_word c,C_word *av) C_noret; C_noret_decl(f_1756) static void C_ccall f_1756(C_word c,C_word *av) C_noret; C_noret_decl(f_1758) static void C_fcall f_1758(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1775) static void C_ccall f_1775(C_word c,C_word *av) C_noret; C_noret_decl(f_1779) static void C_fcall f_1779(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1787) static void C_ccall f_1787(C_word c,C_word *av) C_noret; C_noret_decl(f_1791) static void C_ccall f_1791(C_word c,C_word *av) C_noret; C_noret_decl(f_1799) static void C_ccall f_1799(C_word c,C_word *av) C_noret; C_noret_decl(f_1817) static void C_ccall f_1817(C_word c,C_word *av) C_noret; C_noret_decl(f_1823) static void C_ccall f_1823(C_word c,C_word *av) C_noret; C_noret_decl(f_1829) static void C_ccall f_1829(C_word c,C_word *av) C_noret; C_noret_decl(f_1865) static void C_ccall f_1865(C_word c,C_word *av) C_noret; C_noret_decl(f_1867) static void C_fcall f_1867(C_word t0,C_word t1) C_noret; C_noret_decl(f_1872) static void C_fcall f_1872(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1878) static void C_ccall f_1878(C_word c,C_word *av) C_noret; C_noret_decl(f_1889) static void C_ccall f_1889(C_word c,C_word *av) C_noret; C_noret_decl(f_1893) static void C_ccall f_1893(C_word c,C_word *av) C_noret; C_noret_decl(f_1897) static void C_ccall f_1897(C_word c,C_word *av) C_noret; C_noret_decl(f_1903) static void C_ccall f_1903(C_word c,C_word *av) C_noret; C_noret_decl(f_1907) static void C_ccall f_1907(C_word c,C_word *av) C_noret; C_noret_decl(f_1910) static void C_ccall f_1910(C_word c,C_word *av) C_noret; C_noret_decl(f_1913) static void C_ccall f_1913(C_word c,C_word *av) C_noret; C_noret_decl(f_1916) static void C_ccall f_1916(C_word c,C_word *av) C_noret; C_noret_decl(f_1919) static void C_ccall f_1919(C_word c,C_word *av) C_noret; C_noret_decl(f_1922) static void C_ccall f_1922(C_word c,C_word *av) C_noret; C_noret_decl(f_1928) static void C_fcall f_1928(C_word t0,C_word t1) C_noret; C_noret_decl(f_1931) static void C_fcall f_1931(C_word t0,C_word t1) C_noret; C_noret_decl(f_1938) static void C_ccall f_1938(C_word c,C_word *av) C_noret; C_noret_decl(f_1940) static void C_fcall f_1940(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1953) static void C_ccall f_1953(C_word c,C_word *av) C_noret; C_noret_decl(f_1962) static void C_ccall f_1962(C_word c,C_word *av) C_noret; C_noret_decl(f_1984) static void C_ccall f_1984(C_word c,C_word *av) C_noret; C_noret_decl(f_1987) static void C_ccall f_1987(C_word c,C_word *av) C_noret; C_noret_decl(f_1996) static void C_ccall f_1996(C_word c,C_word *av) C_noret; C_noret_decl(f_2006) static void C_ccall f_2006(C_word c,C_word *av) C_noret; C_noret_decl(f_2008) static void C_ccall f_2008(C_word c,C_word *av) C_noret; C_noret_decl(f_2013) static void C_ccall f_2013(C_word c,C_word *av) C_noret; C_noret_decl(f_2021) static void C_ccall f_2021(C_word c,C_word *av) C_noret; C_noret_decl(f_2025) static void C_ccall f_2025(C_word c,C_word *av) C_noret; C_noret_decl(f_2028) static void C_ccall f_2028(C_word c,C_word *av) C_noret; C_noret_decl(f_2033) static void C_ccall f_2033(C_word c,C_word *av) C_noret; C_noret_decl(f_2043) static void C_ccall f_2043(C_word c,C_word *av) C_noret; C_noret_decl(f_2046) static void C_ccall f_2046(C_word c,C_word *av) C_noret; C_noret_decl(f_2055) static void C_ccall f_2055(C_word c,C_word *av) C_noret; C_noret_decl(f_2058) static void C_ccall f_2058(C_word c,C_word *av) C_noret; C_noret_decl(f_2067) static void C_ccall f_2067(C_word c,C_word *av) C_noret; C_noret_decl(f_2074) static void C_ccall f_2074(C_word c,C_word *av) C_noret; C_noret_decl(f_2083) static void C_ccall f_2083(C_word c,C_word *av) C_noret; C_noret_decl(f_2084) static void C_ccall f_2084(C_word c,C_word *av) C_noret; C_noret_decl(f_2092) static void C_ccall f_2092(C_word c,C_word *av) C_noret; C_noret_decl(f_2100) static void C_ccall f_2100(C_word c,C_word *av) C_noret; C_noret_decl(f_2106) static void C_ccall f_2106(C_word c,C_word *av) C_noret; C_noret_decl(f_2109) static void C_ccall f_2109(C_word c,C_word *av) C_noret; C_noret_decl(f_2112) static void C_ccall f_2112(C_word c,C_word *av) C_noret; C_noret_decl(f_2115) static void C_ccall f_2115(C_word c,C_word *av) C_noret; C_noret_decl(f_2118) static void C_ccall f_2118(C_word c,C_word *av) C_noret; C_noret_decl(f_2120) static void C_ccall f_2120(C_word c,C_word *av) C_noret; C_noret_decl(f_2126) static void C_ccall f_2126(C_word c,C_word *av) C_noret; C_noret_decl(f_2128) static void C_ccall f_2128(C_word c,C_word *av) C_noret; C_noret_decl(f_732) static void C_ccall f_732(C_word c,C_word *av) C_noret; C_noret_decl(f_735) static void C_ccall f_735(C_word c,C_word *av) C_noret; C_noret_decl(f_738) static void C_ccall f_738(C_word c,C_word *av) C_noret; C_noret_decl(f_741) static void C_ccall f_741(C_word c,C_word *av) C_noret; C_noret_decl(f_753) static void C_fcall f_753(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_757) static void C_ccall f_757(C_word c,C_word *av) C_noret; C_noret_decl(f_764) static void C_ccall f_764(C_word c,C_word *av) C_noret; C_noret_decl(f_768) static void C_ccall f_768(C_word c,C_word *av) C_noret; C_noret_decl(f_770) static void C_ccall f_770(C_word c,C_word *av) C_noret; C_noret_decl(f_780) static void C_ccall f_780(C_word c,C_word *av) C_noret; C_noret_decl(f_782) static void C_ccall f_782(C_word c,C_word *av) C_noret; C_noret_decl(f_792) static void C_ccall f_792(C_word c,C_word *av) C_noret; C_noret_decl(f_794) static void C_fcall f_794(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_802) static void C_ccall f_802(C_word c,C_word *av) C_noret; C_noret_decl(f_821) static void C_ccall f_821(C_word c,C_word *av) C_noret; C_noret_decl(f_824) static void C_ccall f_824(C_word c,C_word *av) C_noret; C_noret_decl(f_830) static void C_ccall f_830(C_word c,C_word *av) C_noret; C_noret_decl(f_836) static void C_ccall f_836(C_word c,C_word *av) C_noret; C_noret_decl(f_842) static void C_ccall f_842(C_word c,C_word *av) C_noret; C_noret_decl(f_846) static void C_ccall f_846(C_word c,C_word *av) C_noret; C_noret_decl(f_861) static void C_ccall f_861(C_word c,C_word *av) C_noret; C_noret_decl(f_864) static void C_ccall f_864(C_word c,C_word *av) C_noret; C_noret_decl(f_867) static void C_ccall f_867(C_word c,C_word *av) C_noret; C_noret_decl(f_871) static void C_ccall f_871(C_word c,C_word *av) C_noret; C_noret_decl(f_885) static void C_fcall f_885(C_word t0,C_word t1) C_noret; C_noret_decl(f_899) static void C_ccall f_899(C_word c,C_word *av) C_noret; C_noret_decl(f_911) static void C_fcall f_911(C_word t0,C_word t1) C_noret; C_noret_decl(f_921) static void C_ccall f_921(C_word c,C_word *av) C_noret; C_noret_decl(f_981) static void C_ccall f_981(C_word c,C_word *av) C_noret; C_noret_decl(f_991) static void C_ccall f_991(C_word c,C_word *av) C_noret; C_noret_decl(f_997) static void C_ccall f_997(C_word c,C_word *av) C_noret; C_noret_decl(C_file_toplevel) C_externexport void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1009) static void C_ccall trf_1009(C_word c,C_word *av) C_noret; static void C_ccall trf_1009(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1009(t0,t1,t2);} C_noret_decl(trf_1016) static void C_ccall trf_1016(C_word c,C_word *av) C_noret; static void C_ccall trf_1016(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1016(t0,t1);} C_noret_decl(trf_1104) static void C_ccall trf_1104(C_word c,C_word *av) C_noret; static void C_ccall trf_1104(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1104(t0,t1);} C_noret_decl(trf_1128) static void C_ccall trf_1128(C_word c,C_word *av) C_noret; static void C_ccall trf_1128(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1128(t0,t1,t2);} C_noret_decl(trf_1158) static void C_ccall trf_1158(C_word c,C_word *av) C_noret; static void C_ccall trf_1158(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1158(t0,t1,t2);} C_noret_decl(trf_1344) static void C_ccall trf_1344(C_word c,C_word *av) C_noret; static void C_ccall trf_1344(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1344(t0,t1,t2,t3);} C_noret_decl(trf_1474) static void C_ccall trf_1474(C_word c,C_word *av) C_noret; static void C_ccall trf_1474(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1474(t0,t1,t2,t3);} C_noret_decl(trf_1558) static void C_ccall trf_1558(C_word c,C_word *av) C_noret; static void C_ccall trf_1558(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1558(t0,t1);} C_noret_decl(trf_1595) static void C_ccall trf_1595(C_word c,C_word *av) C_noret; static void C_ccall trf_1595(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1595(t0,t1);} C_noret_decl(trf_1652) static void C_ccall trf_1652(C_word c,C_word *av) C_noret; static void C_ccall trf_1652(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1652(t0,t1);} C_noret_decl(trf_1718) static void C_ccall trf_1718(C_word c,C_word *av) C_noret; static void C_ccall trf_1718(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1718(t0,t1,t2);} C_noret_decl(trf_1758) static void C_ccall trf_1758(C_word c,C_word *av) C_noret; static void C_ccall trf_1758(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1758(t0,t1,t2);} C_noret_decl(trf_1779) static void C_ccall trf_1779(C_word c,C_word *av) C_noret; static void C_ccall trf_1779(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1779(t0,t1,t2);} C_noret_decl(trf_1867) static void C_ccall trf_1867(C_word c,C_word *av) C_noret; static void C_ccall trf_1867(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1867(t0,t1);} C_noret_decl(trf_1872) static void C_ccall trf_1872(C_word c,C_word *av) C_noret; static void C_ccall trf_1872(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1872(t0,t1,t2);} C_noret_decl(trf_1928) static void C_ccall trf_1928(C_word c,C_word *av) C_noret; static void C_ccall trf_1928(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1928(t0,t1);} C_noret_decl(trf_1931) static void C_ccall trf_1931(C_word c,C_word *av) C_noret; static void C_ccall trf_1931(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1931(t0,t1);} C_noret_decl(trf_1940) static void C_ccall trf_1940(C_word c,C_word *av) C_noret; static void C_ccall trf_1940(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1940(t0,t1,t2,t3,t4);} C_noret_decl(trf_753) static void C_ccall trf_753(C_word c,C_word *av) C_noret; static void C_ccall trf_753(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_753(t0,t1,t2,t3,t4);} C_noret_decl(trf_794) static void C_ccall trf_794(C_word c,C_word *av) C_noret; static void C_ccall trf_794(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_794(t0,t1,t2,t3);} C_noret_decl(trf_885) static void C_ccall trf_885(C_word c,C_word *av) C_noret; static void C_ccall trf_885(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_885(t0,t1);} C_noret_decl(trf_911) static void C_ccall trf_911(C_word c,C_word *av) C_noret; static void C_ccall trf_911(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_911(t0,t1);} /* k1005 in k995 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1007,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1009,a[2]=t3,a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_1009(t5,((C_word*)t0)[2],t1);} /* loop in k1005 in k995 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_fcall f_1009(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_1009,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1016,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1049,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* file.scm:272: directory-exists? */ t5=*((C_word*)lf[11]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3; f_1016(t4,C_SCHEME_FALSE);}} /* k1014 in loop in k1005 in k995 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_fcall f_1016(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_1016,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1019,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1042,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* file.scm:273: chicken.pathname#pathname-directory */ t4=*((C_word*)lf[33]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1017 in k1014 in loop in k1005 in k995 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1019,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1035,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* file.scm:261: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[16]+1); av2[1]=t4; av2[2]=t3; av2[3]=lf[31]; tp(4,av2);}} /* k1033 in k1017 in k1014 in loop in k1005 in k995 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_1035,2,av);} a=C_alloc(3); t2=C_mkdir(t1); t3=C_eqp(C_fix(0),t2); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* file.scm:262: posix-error */ f_753(((C_word*)t0)[2],lf[14],lf[31],lf[32],C_a_i_list(&a,1,((C_word*)t0)[3]));}} /* k1040 in k1014 in loop in k1005 in k995 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1042,2,av);} /* file.scm:273: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1009(t2,((C_word*)t0)[3],t1);} /* k1047 in loop in k1005 in k995 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1049,2,av);} t2=((C_word*)t0)[2]; f_1016(t2,C_i_not(t1));} /* a1050 in k995 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1051,2,av);} /* file.scm:270: chicken.pathname#decompose-pathname */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1056 in k995 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1057,5,av);} if(C_truep(t3)){ /* file.scm:271: chicken.pathname#make-pathname */ t5=*((C_word*)lf[35]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=t2; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k1078 in k995 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_1080,2,av);} a=C_alloc(3); t2=C_mkdir(t1); t3=C_eqp(C_fix(0),t2); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* file.scm:262: posix-error */ f_753(((C_word*)t0)[2],lf[14],lf[31],lf[32],C_a_i_list(&a,1,((C_word*)t0)[3]));}} /* chicken.file#delete-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,6)))){ C_save_and_reclaim((void*)f_1098,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1104,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp); t7=C_i_check_string_2(t2,lf[37]); if(C_truep(t5)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1127,a[2]=t6,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* file.scm:286: find-files */ t9=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t9; av2[1]=t8; av2[2]=t2; av2[3]=lf[41]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[42]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(7,av2);}} else{ /* file.scm:298: rmdir */ f_1104(t1,t2);}} /* rmdir in chicken.file#delete-directory in k739 in k736 in k733 in k730 */ static void C_fcall f_1104(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_1104,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1108,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* file.scm:281: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[16]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k1106 in rmdir in chicken.file#delete-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_1108,2,av);} a=C_alloc(3); t2=C_rmdir(t1); t3=C_eqp(C_fix(0),t2); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* file.scm:283: posix-error */ f_753(((C_word*)t0)[2],lf[14],lf[37],lf[38],C_a_i_list(&a,1,((C_word*)t0)[3]));}} /* k1125 in chicken.file#delete-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_1127,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1128,a[2]=((C_word*)t0)[2],a[3]=((C_word)li14),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1153,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1158,a[2]=t5,a[3]=t2,a[4]=((C_word)li15),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_1158(t7,t3,t1);} /* g267 in k1125 in chicken.file#delete-directory in k739 in k736 in k733 in k730 */ static void C_fcall f_1128(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_1128,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1144,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=t3; t5=t2; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1141,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* file.scm:258: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[16]+1); av2[1]=t6; av2[2]=t5; av2[3]=lf[37]; tp(4,av2);}} /* k1139 in g267 in k1125 in chicken.file#delete-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1141,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_u_i_symbolic_linkp(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1142 in g267 in k1125 in chicken.file#delete-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1144,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[39]+1); t3=*((C_word*)lf[39]+1); /* file.scm:291: g277 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[39]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1150,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* file.scm:293: directory-exists? */ t3=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k1148 in k1142 in g267 in k1125 in chicken.file#delete-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1150,2,av);} if(C_truep(t1)){ /* file.scm:291: g277 */ f_1104(((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=*((C_word*)lf[39]+1); t3=*((C_word*)lf[39]+1); /* file.scm:291: g277 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[39]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* k1151 in k1125 in chicken.file#delete-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1153,2,av);} /* file.scm:297: rmdir */ f_1104(((C_word*)t0)[3],((C_word*)t0)[4]);} /* for-each-loop266 in k1125 in chicken.file#delete-directory in k739 in k736 in k733 in k730 */ static void C_fcall f_1158(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1158,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1168,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* file.scm:290: g267 */ t5=((C_word*)t0)[3]; f_1128(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1166 in for-each-loop266 in k1125 in chicken.file#delete-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1168,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1158(t3,((C_word*)t0)[4],t2);} /* chicken.file#delete-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1190,3,av);} a=C_alloc(9); t3=C_i_check_string_2(t2,lf[43]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1197,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1219,a[2]=t1,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* file.scm:305: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[16]+1); av2[1]=t5; av2[2]=t2; av2[3]=lf[43]; tp(4,av2);}} /* k1195 in chicken.file#delete-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1197,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1201 in k1217 in chicken.file#delete-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1203,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1210,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1214,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)strerror(errno)); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1208 in k1201 in k1217 in chicken.file#delete-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1210,2,av);} /* file.scm:307: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[14]; av2[3]=lf[43]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1212 in k1201 in k1217 in chicken.file#delete-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1214,2,av);} /* file.scm:309: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[45]; av2[3]=t1; tp(4,av2);}} /* k1217 in chicken.file#delete-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1219,2,av);} a=C_alloc(4); t2=C_remove(t1); t3=C_eqp(C_fix(0),t2); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1203,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* file.scm:306: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[7]+1); av2[1]=t4; tp(2,av2);}}} /* chicken.file#delete-file* in k739 in k736 in k733 in k730 */ static void C_ccall f_1221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1221,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1228,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* file.scm:313: file-exists? */ t4=*((C_word*)lf[8]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1226 in chicken.file#delete-file* in k739 in k736 in k733 in k730 */ static void C_ccall f_1228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1228,2,av);} if(C_truep(t1)){ /* file.scm:313: delete-file */ t2=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.file#rename-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,2)))){ C_save_and_reclaim((void*)f_1233,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+9); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=C_i_check_string_2(t2,lf[48]); t8=C_i_check_string_2(t3,lf[48]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1246,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1278,a[2]=t9,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_not(t6))){ /* file.scm:318: file-exists? */ t11=*((C_word*)lf[8]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t11=t9;{ C_word *av2=av; av2[0]=t11; av2[1]=C_SCHEME_UNDEFINED; f_1246(2,av2);}}} /* k1244 in chicken.file#rename-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1246,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1249,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1271,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* file.scm:322: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[16]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[48]; tp(4,av2);}} /* k1247 in k1244 in chicken.file#rename-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1249,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1253 in k1273 in k1269 in k1244 in chicken.file#rename-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_1255,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1262,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1266,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)strerror(errno)); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1260 in k1253 in k1273 in k1269 in k1244 in chicken.file#rename-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_1262,2,av);} /* file.scm:325: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[14]; av2[3]=lf[48]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k1264 in k1253 in k1273 in k1269 in k1244 in chicken.file#rename-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1266,2,av);} /* file.scm:327: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[49]; av2[3]=t1; tp(4,av2);}} /* k1269 in k1244 in chicken.file#rename-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_1271,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1275,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* file.scm:323: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[16]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[48]; tp(4,av2);}} /* k1273 in k1269 in k1244 in chicken.file#rename-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1275,2,av);} a=C_alloc(5); t2=C_rename(((C_word*)t0)[2],t1); t3=C_eqp(C_fix(0),t2); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1255,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* file.scm:324: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[7]+1); av2[1]=t4; tp(2,av2);}}} /* k1276 in chicken.file#rename-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1278,2,av);} if(C_truep(t1)){ /* file.scm:319: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[48]; av2[3]=lf[51]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_1246(2,av2);}}} /* chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +7,c,4)))){ C_save_and_reclaim((void*)f_1295,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+7); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_fix(1024):C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=C_i_check_string_2(t2,lf[53]); t16=C_i_check_string_2(t3,lf[53]); t17=C_i_check_number_2(t12,lf[53]); t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1320,a[2]=t12,a[3]=t1,a[4]=t3,a[5]=t2,a[6]=t7,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_integerp(t12))){ if(C_truep(C_fixnum_greaterp(t12,C_fix(0)))){ t19=t18;{ C_word *av2=av; av2[0]=t19; av2[1]=C_SCHEME_UNDEFINED; f_1320(2,av2);}} else{ /* file.scm:335: ##sys#error */ t19=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t19; av2[1]=t18; av2[2]=lf[53]; av2[3]=lf[64]; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}}} else{ /* file.scm:335: ##sys#error */ t19=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t19; av2[1]=t18; av2[2]=lf[53]; av2[3]=lf[64]; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}}} /* k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_1320,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1323,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1386,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* file.scm:336: directory-exists? */ t4=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_1323,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1374,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_not(((C_word*)t0)[6]))){ /* file.scm:338: file-exists? */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_1326(2,av2);}}} /* k1324 in k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1326,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1329,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* file.scm:340: scheme#open-input-file */ t3=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[60]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k1327 in k1324 in k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1329,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1332,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* file.scm:341: scheme#open-output-file */ t4=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[60]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1330 in k1327 in k1324 in k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1332,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1335,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* file.scm:342: scheme#make-string */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1333 in k1330 in k1327 in k1324 in k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_1335,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* file.scm:343: chicken.io#read-string! */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1340 in k1333 in k1330 in k1327 in k1324 in k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_1342,2,av);} a=C_alloc(10); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1344,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li20),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_1344(t5,((C_word*)t0)[6],t1,C_fix(0));} /* loop in k1340 in k1333 in k1330 in k1327 in k1324 in k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_fcall f_1344(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_1344,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_eqp(C_fix(0),t2); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1354,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* file.scm:347: scheme#close-input-port */ t6=*((C_word*)lf[55]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1360,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* file.scm:351: chicken.io#write-string */ t6=*((C_word*)lf[57]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; av2[3]=t2; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k1352 in loop in k1340 in k1333 in k1330 in k1327 in k1324 in k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1354,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1357,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* file.scm:348: scheme#close-output-port */ t3=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1355 in k1352 in loop in k1340 in k1333 in k1330 in k1327 in k1324 in k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1357,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1358 in loop in k1340 in k1333 in k1330 in k1327 in k1324 in k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1360,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1367,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* file.scm:352: chicken.io#read-string! */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1365 in k1358 in loop in k1340 in k1333 in k1330 in k1327 in k1324 in k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1367,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[3]); /* file.scm:352: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_1344(t3,((C_word*)t0)[5],t1,t2);} /* k1372 in k1321 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1374,2,av);} if(C_truep(t1)){ /* file.scm:339: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[53]; av2[3]=lf[62]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_1326(2,av2);}}} /* k1384 in k1318 in chicken.file#copy-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1386,2,av);} if(C_truep(t1)){ /* file.scm:337: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[53]; av2[3]=lf[63]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_1323(2,av2);}}} /* chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +7,c,4)))){ C_save_and_reclaim((void*)f_1425,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+7); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_fix(1024):C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=C_i_check_string_2(t2,lf[66]); t16=C_i_check_string_2(t3,lf[66]); t17=C_i_check_number_2(t12,lf[66]); t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1450,a[2]=t2,a[3]=t12,a[4]=t1,a[5]=t3,a[6]=t7,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_integerp(t12))){ if(C_truep(C_fixnum_greaterp(t12,C_fix(0)))){ t19=t18;{ C_word *av2=av; av2[0]=t19; av2[1]=C_SCHEME_UNDEFINED; f_1450(2,av2);}} else{ /* file.scm:359: ##sys#error */ t19=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t19; av2[1]=t18; av2[2]=lf[66]; av2[3]=lf[69]; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}}} else{ /* file.scm:359: ##sys#error */ t19=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t19; av2[1]=t18; av2[2]=lf[66]; av2[3]=lf[69]; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}}} /* k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_1450,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1453,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1519,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* file.scm:360: directory-exists? */ t4=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_1453,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1456,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1507,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_not(((C_word*)t0)[6]))){ /* file.scm:362: file-exists? */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_1456(2,av2);}}} /* k1454 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1456,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1459,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* file.scm:364: scheme#open-input-file */ t3=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=lf[60]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k1457 in k1454 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1459,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1462,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* file.scm:365: scheme#open-output-file */ t4=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=lf[60]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1460 in k1457 in k1454 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_1462,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1465,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* file.scm:366: scheme#make-string */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_1465,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1472,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* file.scm:367: chicken.io#read-string! */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=t2; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1470 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_1472,2,av);} a=C_alloc(11); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1474,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word)li22),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_1474(t5,((C_word*)t0)[7],t1,C_fix(0));} /* loop in k1470 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_fcall f_1474(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_1474,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_eqp(C_fix(0),t2); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1484,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* file.scm:371: scheme#close-input-port */ t6=*((C_word*)lf[55]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1493,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); /* file.scm:376: chicken.io#write-string */ t6=*((C_word*)lf[57]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k1482 in loop in k1470 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1484,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1487,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* file.scm:372: scheme#close-output-port */ t3=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1485 in k1482 in loop in k1470 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1487,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1490,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* file.scm:373: delete-file */ t3=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1488 in k1485 in k1482 in loop in k1470 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1490,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1491 in loop in k1470 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1493,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1500,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* file.scm:377: chicken.io#read-string! */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1498 in k1491 in loop in k1470 in k1463 in k1460 in k1457 in k1454 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1500,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[3]); /* file.scm:377: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_1474(t3,((C_word*)t0)[5],t1,t2);} /* k1505 in k1451 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1507,2,av);} if(C_truep(t1)){ /* file.scm:363: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[66]; av2[3]=lf[67]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_1456(2,av2);}}} /* k1517 in k1448 in chicken.file#move-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1519,2,av);} if(C_truep(t1)){ /* file.scm:361: ##sys#error */ t2=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[66]; av2[3]=lf[68]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_1453(2,av2);}}} /* tempdir in k739 in k736 in k733 in k730 */ static void C_fcall f_1558(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_1558,2,t0,t1);} a=C_alloc(4); t2=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(t2)){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1565,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* file.scm:391: chicken.process-context#get-environment-variable */ t4=*((C_word*)lf[72]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[75]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k1563 in tempdir in k739 in k736 in k733 in k730 */ static void C_ccall f_1565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1565,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1572,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* file.scm:392: chicken.process-context#get-environment-variable */ t3=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[74]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k1570 in k1563 in tempdir in k739 in k736 in k733 in k730 */ static void C_ccall f_1572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1572,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1578,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* file.scm:393: chicken.process-context#get-environment-variable */ t3=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[73]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k1576 in k1570 in k1563 in tempdir in k739 in k736 in k733 in k730 */ static void C_ccall f_1578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1578,2,av);} if(C_truep(t1)){ t2=t1; t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=lf[71]; t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* chicken.file#create-temporary-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,2)))){ C_save_and_reclaim((void*)f_1583,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+9); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t3=C_i_nullp(t2); t4=(C_truep(t3)?lf[77]:C_i_car(t2)); t5=t4; t6=C_i_check_string_2(t5,lf[78]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1595,a[2]=t8,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li26),tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_1595(t10,t1);} /* loop in chicken.file#create-temporary-file in k739 in k736 in k733 in k730 */ static void C_fcall f_1595(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_1595,2,t0,t1);} a=C_alloc(10); t2=C_random_fixnum(C_fix(65536)); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1601,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1620,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* file.scm:404: tempdir */ t5=((C_word*)t0)[5]; f_1558(t5,t4);} /* k1599 in loop in chicken.file#create-temporary-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1601,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1607,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* file.scm:411: file-exists? */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1605 in k1599 in loop in chicken.file#create-temporary-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1607,2,av);} a=C_alloc(4); if(C_truep(t1)){ /* file.scm:412: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1595(t2,((C_word*)t0)[3]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1615,a[2]=((C_word*)t0)[4],a[3]=((C_word)li25),tmp=(C_word)a,a+=4,tmp); /* file.scm:413: scheme#call-with-output-file */ t3=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* a1614 in k1605 in k1599 in loop in chicken.file#create-temporary-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1615,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1618 in loop in chicken.file#create-temporary-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1620,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1624,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1628,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[81]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[81]+1); av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(16); tp(4,av2);}} /* k1622 in k1618 in loop in chicken.file#create-temporary-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1624,2,av);} /* file.scm:403: chicken.pathname#make-pathname */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k1626 in k1618 in loop in chicken.file#create-temporary-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1628,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1632,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=stub428(C_SCHEME_UNDEFINED); /* file.scm:409: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[81]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k1630 in k1626 in k1618 in loop in chicken.file#create-temporary-file in k739 in k736 in k733 in k730 */ static void C_ccall f_1632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1632,2,av);} /* file.scm:405: string-append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[80]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* chicken.file#create-temporary-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_1646,2,av);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1652,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li28),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_1652(t5,t1);} /* loop in chicken.file#create-temporary-directory in k739 in k736 in k733 in k730 */ static void C_fcall f_1652(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_1652,2,t0,t1);} a=C_alloc(9); t2=C_random_fixnum(C_fix(65536)); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1658,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1692,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* file.scm:420: tempdir */ t5=((C_word*)t0)[4]; f_1558(t5,t4);} /* k1656 in loop in chicken.file#create-temporary-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1658,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1664,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* file.scm:426: file-exists? */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1662 in k1656 in loop in chicken.file#create-temporary-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1664,2,av);} a=C_alloc(4); if(C_truep(t1)){ /* file.scm:427: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1652(t2,((C_word*)t0)[3]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1671,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* file.scm:428: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[16]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[83]; tp(4,av2);}}} /* k1669 in k1662 in k1656 in loop in chicken.file#create-temporary-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1671,2,av);} a=C_alloc(10); t2=C_mkdir(t1); t3=C_eqp(t2,C_fix(0)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1688,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)strerror(errno)); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k1682 in k1669 in k1662 in k1656 in loop in chicken.file#create-temporary-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1684,2,av);} /* file.scm:431: ##sys#signal-hook */ t2=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[14]; av2[3]=lf[83]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1686 in k1669 in k1662 in k1656 in loop in chicken.file#create-temporary-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1688,2,av);} /* file.scm:433: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[84]; av2[3]=t1; tp(4,av2);}} /* k1690 in loop in chicken.file#create-temporary-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_1692,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1696,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1700,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[81]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[81]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(16); tp(4,av2);}} /* k1694 in k1690 in loop in chicken.file#create-temporary-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1696,2,av);} /* file.scm:419: chicken.pathname#make-pathname */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1698 in k1690 in loop in chicken.file#create-temporary-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1700,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1704,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=stub437(C_SCHEME_UNDEFINED); /* file.scm:425: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[81]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[81]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k1702 in k1698 in k1690 in loop in chicken.file#create-temporary-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_1704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1704,2,av);} /* file.scm:421: string-append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[85]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_1712,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1718,a[2]=t4,a[3]=((C_word)li41),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_1718(t6,t1,t2);} /* conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_fcall f_1718(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_1718,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1733,a[2]=t4,a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1739,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp); /* file.scm:444: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}}} /* a1732 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1733,2,av);} /* file.scm:444: chicken.pathname#decompose-pathname */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_1739,5,av);} a=C_alloc(13); t5=t2; t6=(C_truep(t5)?t5:lf[87]); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1746,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=t1,a[6]=t7,tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1893,a[2]=t8,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1897,a[2]=t9,tmp=(C_word)a,a+=3,tmp); if(C_truep(t3)){ /* file.scm:446: chicken.pathname#make-pathname */ t11=*((C_word*)lf[35]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; av2[2]=C_SCHEME_FALSE; av2[3]=t3; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ /* file.scm:446: chicken.pathname#make-pathname */ t11=*((C_word*)lf[35]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; av2[2]=C_SCHEME_FALSE; av2[3]=lf[98]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}} /* k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_1746,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1753,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1817,a[2]=((C_word*)t0)[6],a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp); /* file.scm:447: scheme#call-with-current-continuation */ t5=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1751 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_1753,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1756,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* file.scm:447: g491 */ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k1754 in k1751 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1756,2,av);} a=C_alloc(10); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1758,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li32),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_1758(t5,((C_word*)t0)[6],t1);} /* loop in k1754 in k1751 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_fcall f_1758(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_1758,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ t4=C_i_cdr(((C_word*)t0)[2]); /* file.scm:449: conc-loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_1718(t5,t1,t4);} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1775,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t2); /* file.scm:450: chicken.irregex#irregex-match */ t6=*((C_word*)lf[89]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k1773 in loop in k1754 in k1751 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1775,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li31),tmp=(C_word)a,a+=6,tmp); /* file.scm:449: g477 */ t3=t2; f_1779(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* file.scm:454: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1758(t4,((C_word*)t0)[5],t3);}} /* g477 in k1773 in loop in k1754 in k1751 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_fcall f_1779(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_1779,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1787,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1799,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* file.scm:452: chicken.irregex#irregex-match-substring */ t5=*((C_word*)lf[88]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1785 in g477 in k1773 in loop in k1754 in k1751 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1787,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1791,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[3]); /* file.scm:453: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_1758(t5,t3,t4);} /* k1789 in k1785 in g477 in k1773 in loop in k1754 in k1751 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1791,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1797 in g477 in k1773 in loop in k1754 in k1751 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1799,2,av);} /* file.scm:452: chicken.pathname#make-pathname */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a1816 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1817,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1823,a[2]=t2,a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1865,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp); /* file.scm:447: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[94]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a1822 in a1816 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1823,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1829,a[2]=t2,a[3]=((C_word)li33),tmp=(C_word)a,a+=4,tmp); /* file.scm:447: k488 */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a1828 in a1822 in a1816 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1829,2,av);} t2=C_i_structurep(((C_word*)t0)[2],lf[90]); t3=(C_truep(t2)?C_slot(((C_word*)t0)[2],C_fix(1)):C_SCHEME_FALSE); if(C_truep(t3)){ if(C_truep(C_i_memq(lf[91],t3))){ if(C_truep(C_i_memq(lf[92],t3))){ if(C_truep(C_i_memq(lf[0],t3))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* file.scm:447: chicken.condition#signal */ t4=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ /* file.scm:447: chicken.condition#signal */ t4=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ /* file.scm:447: chicken.condition#signal */ t4=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ /* file.scm:447: chicken.condition#signal */ t4=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* a1864 in a1816 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_1865,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1867,a[2]=((C_word*)t0)[2],a[3]=((C_word)li35),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1872,a[2]=((C_word*)t0)[3],a[3]=((C_word)li37),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1889,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp1722 */ t5=t2; f_1867(t5,t4);} /* tmp1722 in a1864 in a1816 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_fcall f_1867(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_1867,2,t0,t1);} /* file.scm:447: directory */ t2=*((C_word*)lf[23]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* tmp2723 in a1864 in a1816 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_fcall f_1872(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_1872,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1878,a[2]=t2,a[3]=((C_word)li36),tmp=(C_word)a,a+=4,tmp); /* file.scm:447: k488 */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a1877 in tmp2723 in a1864 in a1816 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1878,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k1887 in a1864 in a1816 in k1744 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1889,2,av);} a=C_alloc(3); /* tmp2723 */ t2=((C_word*)t0)[2]; f_1872(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* k1891 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1893,2,av);} /* file.scm:446: chicken.irregex#irregex */ t2=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k1895 in a1738 in conc-loop in chicken.file#glob in k739 in k736 in k733 in k730 */ static void C_ccall f_1897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1897,2,av);} /* file.scm:446: chicken.irregex#glob->sre */ t2=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,4)))){ C_save_and_reclaim((void*)f_1903,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1907,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2126,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp); /* file.scm:459: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[103]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[103]+1); av2[1]=t4; av2[2]=lf[107]; av2[3]=t3; av2[4]=t5; tp(5,av2);}} /* k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_1907,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1910,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2118,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp); /* file.scm:459: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[103]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[103]+1); av2[1]=t3; av2[2]=lf[106]; av2[3]=((C_word*)t0)[4]; av2[4]=t4; tp(5,av2);}} /* k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_1910,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1913,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2115,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp); /* file.scm:459: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[103]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[103]+1); av2[1]=t3; av2[2]=lf[105]; av2[3]=((C_word*)t0)[5]; av2[4]=t4; tp(5,av2);}} /* k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_1913,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2112,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp); /* file.scm:459: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[103]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[103]+1); av2[1]=t3; av2[2]=lf[104]; av2[3]=((C_word*)t0)[6]; av2[4]=t4; tp(5,av2);}} /* k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_1916,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1919,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2109,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp); /* file.scm:459: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[103]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[103]+1); av2[1]=t3; av2[2]=lf[41]; av2[3]=((C_word*)t0)[7]; av2[4]=t4; tp(5,av2);}} /* k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_1919,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1922,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2106,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp); /* file.scm:459: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[103]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[103]+1); av2[1]=t3; av2[2]=lf[42]; av2[3]=((C_word*)t0)[8]; av2[4]=t4; tp(5,av2);}} /* k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_1922,2,av);} a=C_alloc(17); t2=t1; t3=C_i_check_string_2(((C_word*)t0)[2],lf[99]); t4=C_fix(0); t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1928,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_not(((C_word*)t0)[8]))){ t7=t6; f_1928(t7,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2092,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp));} else{ if(C_truep(C_fixnump(((C_word*)t0)[8]))){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2100,a[2]=t5,a[3]=((C_word*)t0)[8],a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp); t8=t6; f_1928(t8,t7);} else{ t7=t6; f_1928(t7,((C_word*)t0)[8]);}}} /* k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_fcall f_1928(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_1928,2,t0,t1);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1931,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_closurep(((C_word*)t0)[9]))){ t4=t3; f_1931(t4,((C_word*)t0)[9]);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2083,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* file.scm:474: chicken.irregex#irregex */ t5=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_fcall f_1931(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_1931,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1938,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* file.scm:477: directory */ t4=*((C_word*)lf[23]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_1938,2,av);} a=C_alloc(12); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1940,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li46),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_1940(t5,((C_word*)t0)[8],((C_word*)t0)[9],t1,((C_word*)t0)[10]);} /* loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_fcall f_1940(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_1940,5,t0,t1,t2,t3,t4);} a=C_alloc(14); if(C_truep(C_i_nullp(t3))){ t5=t4; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_slot(t3,C_fix(0)); t6=t5; t7=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_1953,a[2]=t3,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,a[7]=t4,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[8],tmp=(C_word)a,a+=14,tmp); /* file.scm:482: chicken.pathname#make-pathname */ t8=*((C_word*)lf[35]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_1953,2,av);} a=C_alloc(15); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=t3; t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_1962,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t4,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* file.scm:484: directory-exists? */ t6=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_1962,2,av);} a=C_alloc(17); if(C_truep(t1)){ if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[2],lf[100]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[2],lf[101]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* file.scm:485: loop */ t2=((C_word*)((C_word*)t0)[3])[1]; f_1940(t2,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} else{ t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_2058,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2055,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* file.scm:258: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[16]+1); av2[1]=t4; av2[2]=((C_word*)t0)[10]; av2[3]=lf[99]; tp(4,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2067,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* file.scm:496: pproc */ t3=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k1982 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1984,2,av);} /* file.scm:487: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1940(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k1985 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1987,2,av);} if(C_truep(t1)){ /* file.scm:487: action */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} else{ t2=((C_word*)t0)[5]; /* file.scm:487: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_1940(t3,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t2);}} /* k1994 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_1996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){ C_save_and_reclaim((void *)f_1996,2,av);} a=C_alloc(31); if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2006,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2008,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li43),tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2013,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word)li44),tmp=(C_word)a,a+=9,tmp); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2033,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li45),tmp=(C_word)a,a+=6,tmp); /* file.scm:491: ##sys#dynamic-wind */ t11=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t7; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2043,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2046,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* file.scm:495: pproc */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k2004 in k1994 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2006,2,av);} /* file.scm:489: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1940(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* a2007 in k1994 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2008,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a2012 in k1994 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_2013,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2021,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* file.scm:493: directory */ t3=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2019 in a2012 in k1994 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_2021,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2025,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2028,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t2,tmp=(C_word)a,a+=9,tmp); /* file.scm:494: pproc */ t5=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2023 in k2019 in a2012 in k1994 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 in ... */ static void C_ccall f_2025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2025,2,av);} /* file.scm:492: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1940(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k2026 in k2019 in a2012 in k1994 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 in ... */ static void C_ccall f_2028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2028,2,av);} if(C_truep(t1)){ /* file.scm:494: action */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} else{ t2=((C_word*)t0)[5]; /* file.scm:492: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_1940(t3,((C_word*)t0)[7],((C_word*)t0)[4],((C_word*)t0)[8],t2);}} /* a2032 in k1994 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2033,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2041 in k1994 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2043,2,av);} /* file.scm:495: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1940(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k2044 in k1994 in k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2046,2,av);} if(C_truep(t1)){ /* file.scm:495: action */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} else{ t2=((C_word*)t0)[5]; /* file.scm:495: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_1940(t3,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t2);}} /* k2053 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2055,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_u_i_symbolic_linkp(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2056 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_2058,2,av);} a=C_alloc(16); t2=(C_truep(t1)?C_i_not(((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1984,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1987,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* file.scm:487: pproc */ t5=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1996,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); /* file.scm:488: lproc */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}} /* k2065 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2067,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2074,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* file.scm:496: action */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} else{ /* file.scm:497: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1940(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[8]);}} /* k2072 in k2065 in k1960 in k1951 in loop in k1936 in k1929 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2074,2,av);} /* file.scm:496: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1940(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k2081 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2083,2,av);} a=C_alloc(4); t2=t1; t3=((C_word*)t0)[2]; f_1931(t3,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2084,a[2]=t2,a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp));} /* f_2084 in k2081 in k1926 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2084,3,av);} /* file.scm:475: chicken.irregex#irregex-match */ t3=*((C_word*)lf[89]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* f_2092 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2092,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_2100 in k1920 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2100,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fixnum_lessp(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a2105 in k1917 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2106,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a2108 in k1914 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2109,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a2111 in k1911 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2112,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a2114 in k1908 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2115,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a2117 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2118,2,av);} a=C_alloc(3); t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2120,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_2120 in a2117 in k1905 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2120,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a2125 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2126,2,av);} a=C_alloc(3); t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2128,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_2128 in a2125 in chicken.file#find-files in k739 in k736 in k733 in k730 */ static void C_ccall f_2128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2128,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k730 */ static void C_ccall f_732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_732,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_735,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k733 in k730 */ static void C_ccall f_735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_735,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_738,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k736 in k733 in k730 */ static void C_ccall f_738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_738,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_741,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k739 in k736 in k733 in k730 */ static void C_ccall f_741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(83,c,6)))){ C_save_and_reclaim((void *)f_741,2,av);} a=C_alloc(83); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate(&lf[2] /* (set! chicken.file#posix-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_753,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[8]+1 /* (set! chicken.file#file-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_770,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[11]+1 /* (set! chicken.file#directory-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_782,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate(&lf[13] /* (set! chicken.file#test-access ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_794,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[17]+1 /* (set! chicken.file#file-readable? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_824,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[19]+1 /* (set! chicken.file#file-writable? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_830,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[21]+1 /* (set! chicken.file#file-executable? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_836,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[23]+1 /* (set! chicken.file#directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_842,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[30]+1 /* (set! chicken.file#create-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_981,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[36]+1 /* (set! chicken.file#delete-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1098,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[39]+1 /* (set! chicken.file#delete-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1190,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[46]+1 /* (set! chicken.file#delete-file* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1221,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[47]+1 /* (set! chicken.file#rename-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1233,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[52]+1 /* (set! chicken.file#copy-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1295,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[65]+1 /* (set! chicken.file#move-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1425,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t19=C_SCHEME_FALSE; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=lf[70]; t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1558,a[2]=t20,a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp); t23=C_mutate((C_word*)lf[76]+1 /* (set! chicken.file#create-temporary-file ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1583,a[2]=t21,a[3]=t22,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp)); t24=C_mutate((C_word*)lf[82]+1 /* (set! chicken.file#create-temporary-directory ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1646,a[2]=t21,a[3]=t22,a[4]=((C_word)li29),tmp=(C_word)a,a+=5,tmp)); t25=C_mutate((C_word*)lf[86]+1 /* (set! chicken.file#glob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1712,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate((C_word*)lf[40]+1 /* (set! chicken.file#find-files ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1903,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t27=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t27; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}} /* chicken.file#posix-error in k739 in k736 in k733 in k730 */ static void C_fcall f_753(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_753,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_757,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t5,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* file.scm:196: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[7]+1); av2[1]=t6; tp(2,av2);}} /* k755 in chicken.file#posix-error in k739 in k736 in k733 in k730 */ static void C_ccall f_757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_757,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_764,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_768,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(t1); t6=stub135(t4,t5); /* file.scm:193: ##sys#peek-c-string */ t7=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k762 in k755 in chicken.file#posix-error in k739 in k736 in k733 in k730 */ static void C_ccall f_764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_764,2,av);}{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[3]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; av2[6]=((C_word*)t0)[5]; C_apply(7,av2);}} /* k766 in k755 in chicken.file#posix-error in k739 in k736 in k733 in k730 */ static void C_ccall f_768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_768,2,av);} /* file.scm:197: string-append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[5]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.file#file-exists? in k739 in k736 in k733 in k730 */ static void C_ccall f_770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_770,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[9]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_780,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* file.scm:204: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t4; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; av2[5]=lf[9]; tp(6,av2);}} /* k778 in chicken.file#file-exists? in k739 in k736 in k733 in k730 */ static void C_ccall f_780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_780,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.file#directory-exists? in k739 in k736 in k733 in k730 */ static void C_ccall f_782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_782,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[12]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_792,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* file.scm:208: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t4; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; av2[5]=lf[12]; tp(6,av2);}} /* k790 in chicken.file#directory-exists? in k739 in k736 in k733 in k730 */ static void C_ccall f_792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_792,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.file#test-access in k739 in k736 in k733 in k730 */ static void C_fcall f_794(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_794,4,t1,t2,t3,t4);} a=C_alloc(6); t5=C_i_check_string_2(t2,t4); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_802,a[2]=t3,a[3]=t1,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* file.scm:219: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[16]+1); av2[1]=t6; av2[2]=t2; av2[3]=t4; tp(4,av2);}} /* k800 in chicken.file#test-access in k739 in k736 in k733 in k730 */ static void C_ccall f_802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_802,2,av);} a=C_alloc(5); t2=C_test_access(t1,((C_word*)t0)[2]); t3=C_eqp(t2,C_fix(0)); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_821,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* file.scm:221: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[7]+1); av2[1]=t4; tp(2,av2);}}} /* k819 in k800 in chicken.file#test-access in k739 in k736 in k733 in k730 */ static void C_ccall f_821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_821,2,av);} a=C_alloc(3); t2=C_fix((C_word)EACCES); t3=C_eqp(t1,t2); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* file.scm:223: posix-error */ f_753(((C_word*)t0)[2],lf[14],((C_word*)t0)[3],lf[15],C_a_i_list(&a,1,((C_word*)t0)[4]));}} /* chicken.file#file-readable? in k739 in k736 in k733 in k730 */ static void C_ccall f_824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_824,3,av);} /* file.scm:225: test-access */ f_794(t1,t2,C_fix((C_word)R_OK),lf[18]);} /* chicken.file#file-writable? in k739 in k736 in k733 in k730 */ static void C_ccall f_830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_830,3,av);} /* file.scm:226: test-access */ f_794(t1,t2,C_fix((C_word)W_OK),lf[20]);} /* chicken.file#file-executable? in k739 in k736 in k733 in k730 */ static void C_ccall f_836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_836,3,av);} /* file.scm:227: test-access */ f_794(t1,t2,C_fix((C_word)X_OK),lf[22]);} /* chicken.file#directory in k739 in k736 in k733 in k730 */ static void C_ccall f_842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_842,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_846,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* file.scm:232: chicken.process-context#current-directory */ t5=*((C_word*)lf[29]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_car(t3); f_846(2,av2);}}} /* k844 in chicken.file#directory in k739 in k736 in k733 in k730 */ static void C_ccall f_846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_846,2,av);} a=C_alloc(5); t2=t1; t3=C_i_nullp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_i_check_string_2(t2,lf[24]); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_861,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[28]+1); av2[1]=t11; av2[2]=C_fix(256); av2[3]=C_make_character(32); tp(4,av2);}} /* k859 in k844 in chicken.file#directory in k739 in k736 in k733 in k730 */ static void C_ccall f_861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_861,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_864,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* file.scm:235: ##sys#make-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[27]+1); av2[1]=t3; tp(2,av2);}} /* k862 in k859 in k844 in chicken.file#directory in k739 in k736 in k733 in k730 */ static void C_ccall f_864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_864,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_867,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* file.scm:236: ##sys#make-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[27]+1); av2[1]=t3; tp(2,av2);}} /* k865 in k862 in k859 in k844 in chicken.file#directory in k739 in k736 in k733 in k730 */ static void C_ccall f_867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_867,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_871,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* file.scm:239: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[16]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[24]; tp(4,av2);}} /* k869 in k865 in k862 in k859 in k844 in chicken.file#directory in k739 in k736 in k733 in k730 */ static void C_ccall f_871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_871,2,av);} a=C_alloc(10); t2=C_opendir(t1,((C_word*)t0)[2]); if(C_truep(C_null_pointerp(((C_word*)t0)[2]))){ /* file.scm:241: posix-error */ f_753(((C_word*)t0)[3],lf[14],lf[24],lf[25],C_a_i_list(&a,1,((C_word*)t0)[4]));} else{ t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_885,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t4,a[6]=((C_word*)t0)[7],a[7]=((C_word)li7),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_885(t6,((C_word*)t0)[3]);}} /* loop in k869 in k865 in k862 in k859 in k844 in chicken.file#directory in k739 in k736 in k733 in k730 */ static void C_fcall f_885(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_885,2,t0,t1);} a=C_alloc(6); t2=C_readdir(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(C_null_pointerp(((C_word*)t0)[3]))){ t3=C_closedir(((C_word*)t0)[2]); t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_block_size(((C_word*)t0)[4]); t4=C_foundfile(((C_word*)t0)[3],((C_word*)t0)[4],t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_899,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=t1,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* file.scm:247: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[26]+1); av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t4; tp(5,av2);}}} /* k897 in loop in k869 in k865 in k862 in k859 in k844 in chicken.file#directory in k739 in k736 in k733 in k730 */ static void C_ccall f_899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_899,2,av);} a=C_alloc(5); t2=t1; t3=C_i_string_ref(t2,C_fix(0)); t4=C_fixnum_greaterp(((C_word*)t0)[2],C_fix(1)); t5=(C_truep(t4)?C_i_string_ref(t2,C_fix(1)):C_SCHEME_FALSE); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_911,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t7=C_eqp(C_make_character(46),t3); if(C_truep(t7)){ t8=C_i_not(t5); if(C_truep(t8)){ t9=t6; f_911(t9,t8);} else{ t9=C_eqp(C_make_character(46),t5); if(C_truep(t9)){ t10=C_eqp(C_fix(2),((C_word*)t0)[2]); t11=t6; f_911(t11,(C_truep(t10)?t10:C_i_not(((C_word*)t0)[5])));} else{ t10=t6; f_911(t10,C_i_not(((C_word*)t0)[5]));}}} else{ t8=t6; f_911(t8,C_SCHEME_FALSE);}} /* k909 in k897 in loop in k869 in k865 in k862 in k859 in k844 in chicken.file#directory in k739 in k736 in k733 in k730 */ static void C_fcall f_911(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_911,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ /* file.scm:254: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_885(t2,((C_word*)t0)[3]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_921,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* file.scm:255: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_885(t3,t2);}} /* k919 in k909 in k897 in loop in k869 in k865 in k862 in k859 in k844 in chicken.file#directory in k739 in k736 in k733 in k730 */ static void C_ccall f_921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_921,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,2)))){ C_save_and_reclaim((void*)f_981,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=C_i_check_string_2(t2,lf[31]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_991,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t9=C_block_size(t2); t10=C_eqp(C_fix(0),t9); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_997,a[2]=t1,a[3]=t2,a[4]=t6,a[5]=t8,tmp=(C_word)a,a+=6,tmp); if(C_truep(t10)){ t12=t11;{ C_word *av2=av; av2[0]=t12; av2[1]=t10; f_997(2,av2);}} else{ /* file.scm:268: file-exists? */ t12=*((C_word*)lf[8]+1);{ C_word *av2=av; av2[0]=t12; av2[1]=t11; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} /* k989 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_991,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k995 in chicken.file#create-directory in k739 in k736 in k733 in k730 */ static void C_ccall f_997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_997,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1007,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1051,a[2]=((C_word*)t0)[3],a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1057,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp); /* file.scm:270: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} else{ t2=((C_word*)t0)[5]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1080,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* file.scm:261: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[16]+1); av2[1]=t4; av2[2]=t3; av2[3]=lf[31]; tp(4,av2);}}}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_file_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("file")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_file_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(553))){ C_save(t1); C_rereclaim2(553*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,108); lf[0]=C_h_intern(&lf[0],4, C_text("file")); lf[1]=C_h_intern(&lf[1],13, C_text("chicken.file#")); lf[3]=C_h_intern(&lf[3],17, C_text("##sys#signal-hook")); lf[4]=C_h_intern(&lf[4],20, C_text("scheme#string-append")); lf[5]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 - ")); lf[6]=C_h_intern(&lf[6],19, C_text("##sys#peek-c-string")); lf[7]=C_h_intern(&lf[7],18, C_text("##sys#update-errno")); lf[8]=C_h_intern(&lf[8],25, C_text("chicken.file#file-exists\077")); lf[9]=C_h_intern(&lf[9],12, C_text("file-exists\077")); lf[10]=C_h_intern(&lf[10],18, C_text("##sys#file-exists\077")); lf[11]=C_h_intern(&lf[11],30, C_text("chicken.file#directory-exists\077")); lf[12]=C_h_intern(&lf[12],17, C_text("directory-exists\077")); lf[14]=C_h_intern_kw(&lf[14],10, C_text("file-error")); lf[15]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022cannot access file")); lf[16]=C_h_intern(&lf[16],19, C_text("##sys#make-c-string")); lf[17]=C_h_intern(&lf[17],27, C_text("chicken.file#file-readable\077")); lf[18]=C_h_intern(&lf[18],14, C_text("file-readable\077")); lf[19]=C_h_intern(&lf[19],27, C_text("chicken.file#file-writable\077")); lf[20]=C_h_intern(&lf[20],14, C_text("file-writable\077")); lf[21]=C_h_intern(&lf[21],29, C_text("chicken.file#file-executable\077")); lf[22]=C_h_intern(&lf[22],16, C_text("file-executable\077")); lf[23]=C_h_intern(&lf[23],22, C_text("chicken.file#directory")); lf[24]=C_h_intern(&lf[24],9, C_text("directory")); lf[25]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025cannot open directory")); lf[26]=C_h_intern(&lf[26],15, C_text("##sys#substring")); lf[27]=C_h_intern(&lf[27],18, C_text("##sys#make-pointer")); lf[28]=C_h_intern(&lf[28],17, C_text("##sys#make-string")); lf[29]=C_h_intern(&lf[29],41, C_text("chicken.process-context#current-directory")); lf[30]=C_h_intern(&lf[30],29, C_text("chicken.file#create-directory")); lf[31]=C_h_intern(&lf[31],16, C_text("create-directory")); lf[32]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027cannot create directory")); lf[33]=C_h_intern(&lf[33],35, C_text("chicken.pathname#pathname-directory")); lf[34]=C_h_intern(&lf[34],35, C_text("chicken.pathname#decompose-pathname")); lf[35]=C_h_intern(&lf[35],30, C_text("chicken.pathname#make-pathname")); lf[36]=C_h_intern(&lf[36],29, C_text("chicken.file#delete-directory")); lf[37]=C_h_intern(&lf[37],16, C_text("delete-directory")); lf[38]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027cannot delete directory")); lf[39]=C_h_intern(&lf[39],24, C_text("chicken.file#delete-file")); lf[40]=C_h_intern(&lf[40],23, C_text("chicken.file#find-files")); lf[41]=C_h_intern_kw(&lf[41],8, C_text("dotfiles")); lf[42]=C_h_intern_kw(&lf[42],15, C_text("follow-symlinks")); lf[43]=C_h_intern(&lf[43],11, C_text("delete-file")); lf[44]=C_h_intern(&lf[44],19, C_text("##sys#string-append")); lf[45]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025cannot delete file - ")); lf[46]=C_h_intern(&lf[46],25, C_text("chicken.file#delete-file\052")); lf[47]=C_h_intern(&lf[47],24, C_text("chicken.file#rename-file")); lf[48]=C_h_intern(&lf[48],11, C_text("rename-file")); lf[49]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025cannot rename file - ")); lf[50]=C_h_intern(&lf[50],11, C_text("##sys#error")); lf[51]=C_decode_literal(C_heaptop,C_text("\376B\000\000#newfile exists but clobber is false")); lf[52]=C_h_intern(&lf[52],22, C_text("chicken.file#copy-file")); lf[53]=C_h_intern(&lf[53],9, C_text("copy-file")); lf[54]=C_h_intern(&lf[54],24, C_text("scheme#close-output-port")); lf[55]=C_h_intern(&lf[55],23, C_text("scheme#close-input-port")); lf[56]=C_h_intern(&lf[56],23, C_text("chicken.io#read-string!")); lf[57]=C_h_intern(&lf[57],23, C_text("chicken.io#write-string")); lf[58]=C_h_intern(&lf[58],18, C_text("scheme#make-string")); lf[59]=C_h_intern(&lf[59],23, C_text("scheme#open-output-file")); lf[60]=C_h_intern_kw(&lf[60],6, C_text("binary")); lf[61]=C_h_intern(&lf[61],22, C_text("scheme#open-input-file")); lf[62]=C_decode_literal(C_heaptop,C_text("\376B\000\000#newfile exists but clobber is false")); lf[63]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027cannot copy directories")); lf[64]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052invalid blocksize - not a positive integer")); lf[65]=C_h_intern(&lf[65],22, C_text("chicken.file#move-file")); lf[66]=C_h_intern(&lf[66],9, C_text("move-file")); lf[67]=C_decode_literal(C_heaptop,C_text("\376B\000\000#newfile exists but clobber is false")); lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027cannot move directories")); lf[69]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052invalid blocksize - not a positive integer")); lf[70]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004temp")); lf[71]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004/tmp")); lf[72]=C_h_intern(&lf[72],48, C_text("chicken.process-context#get-environment-variable")); lf[73]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003TMP")); lf[74]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004TEMP")); lf[75]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006TMPDIR")); lf[76]=C_h_intern(&lf[76],34, C_text("chicken.file#create-temporary-file")); lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003tmp")); lf[78]=C_h_intern(&lf[78],21, C_text("create-temporary-file")); lf[79]=C_h_intern(&lf[79],28, C_text("scheme#call-with-output-file")); lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[81]=C_h_intern(&lf[81],20, C_text("##sys#number->string")); lf[82]=C_h_intern(&lf[82],39, C_text("chicken.file#create-temporary-directory")); lf[83]=C_h_intern(&lf[83],26, C_text("create-temporary-directory")); lf[84]=C_decode_literal(C_heaptop,C_text("\376B\000\000$cannot create temporary directory - ")); lf[85]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[86]=C_h_intern(&lf[86],17, C_text("chicken.file#glob")); lf[87]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[88]=C_h_intern(&lf[88],39, C_text("chicken.irregex#irregex-match-substring")); lf[89]=C_h_intern(&lf[89],29, C_text("chicken.irregex#irregex-match")); lf[90]=C_h_intern(&lf[90],9, C_text("condition")); lf[91]=C_h_intern(&lf[91],3, C_text("exn")); lf[92]=C_h_intern(&lf[92],3, C_text("i/o")); lf[93]=C_h_intern(&lf[93],24, C_text("chicken.condition#signal")); lf[94]=C_h_intern(&lf[94],40, C_text("chicken.condition#with-exception-handler")); lf[95]=C_h_intern(&lf[95],37, C_text("scheme#call-with-current-continuation")); lf[96]=C_h_intern(&lf[96],23, C_text("chicken.irregex#irregex")); lf[97]=C_h_intern(&lf[97],25, C_text("chicken.irregex#glob->sre")); lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052")); lf[99]=C_h_intern(&lf[99],10, C_text("find-files")); lf[100]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002..")); lf[102]=C_h_intern(&lf[102],18, C_text("##sys#dynamic-wind")); lf[103]=C_h_intern(&lf[103],17, C_text("##sys#get-keyword")); lf[104]=C_h_intern_kw(&lf[104],5, C_text("limit")); lf[105]=C_h_intern_kw(&lf[105],4, C_text("seed")); lf[106]=C_h_intern_kw(&lf[106],6, C_text("action")); lf[107]=C_h_intern_kw(&lf[107],4, C_text("test")); C_register_lf2(lf,108,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_732,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[190] = { {C_text("f_1007:file_2escm"),(void*)f_1007}, {C_text("f_1009:file_2escm"),(void*)f_1009}, {C_text("f_1016:file_2escm"),(void*)f_1016}, {C_text("f_1019:file_2escm"),(void*)f_1019}, {C_text("f_1035:file_2escm"),(void*)f_1035}, {C_text("f_1042:file_2escm"),(void*)f_1042}, {C_text("f_1049:file_2escm"),(void*)f_1049}, {C_text("f_1051:file_2escm"),(void*)f_1051}, {C_text("f_1057:file_2escm"),(void*)f_1057}, {C_text("f_1080:file_2escm"),(void*)f_1080}, {C_text("f_1098:file_2escm"),(void*)f_1098}, {C_text("f_1104:file_2escm"),(void*)f_1104}, {C_text("f_1108:file_2escm"),(void*)f_1108}, {C_text("f_1127:file_2escm"),(void*)f_1127}, {C_text("f_1128:file_2escm"),(void*)f_1128}, {C_text("f_1141:file_2escm"),(void*)f_1141}, {C_text("f_1144:file_2escm"),(void*)f_1144}, {C_text("f_1150:file_2escm"),(void*)f_1150}, {C_text("f_1153:file_2escm"),(void*)f_1153}, {C_text("f_1158:file_2escm"),(void*)f_1158}, {C_text("f_1168:file_2escm"),(void*)f_1168}, {C_text("f_1190:file_2escm"),(void*)f_1190}, {C_text("f_1197:file_2escm"),(void*)f_1197}, {C_text("f_1203:file_2escm"),(void*)f_1203}, {C_text("f_1210:file_2escm"),(void*)f_1210}, {C_text("f_1214:file_2escm"),(void*)f_1214}, {C_text("f_1219:file_2escm"),(void*)f_1219}, {C_text("f_1221:file_2escm"),(void*)f_1221}, {C_text("f_1228:file_2escm"),(void*)f_1228}, {C_text("f_1233:file_2escm"),(void*)f_1233}, {C_text("f_1246:file_2escm"),(void*)f_1246}, {C_text("f_1249:file_2escm"),(void*)f_1249}, {C_text("f_1255:file_2escm"),(void*)f_1255}, {C_text("f_1262:file_2escm"),(void*)f_1262}, {C_text("f_1266:file_2escm"),(void*)f_1266}, {C_text("f_1271:file_2escm"),(void*)f_1271}, {C_text("f_1275:file_2escm"),(void*)f_1275}, {C_text("f_1278:file_2escm"),(void*)f_1278}, {C_text("f_1295:file_2escm"),(void*)f_1295}, {C_text("f_1320:file_2escm"),(void*)f_1320}, {C_text("f_1323:file_2escm"),(void*)f_1323}, {C_text("f_1326:file_2escm"),(void*)f_1326}, {C_text("f_1329:file_2escm"),(void*)f_1329}, {C_text("f_1332:file_2escm"),(void*)f_1332}, {C_text("f_1335:file_2escm"),(void*)f_1335}, {C_text("f_1342:file_2escm"),(void*)f_1342}, {C_text("f_1344:file_2escm"),(void*)f_1344}, {C_text("f_1354:file_2escm"),(void*)f_1354}, {C_text("f_1357:file_2escm"),(void*)f_1357}, {C_text("f_1360:file_2escm"),(void*)f_1360}, {C_text("f_1367:file_2escm"),(void*)f_1367}, {C_text("f_1374:file_2escm"),(void*)f_1374}, {C_text("f_1386:file_2escm"),(void*)f_1386}, {C_text("f_1425:file_2escm"),(void*)f_1425}, {C_text("f_1450:file_2escm"),(void*)f_1450}, {C_text("f_1453:file_2escm"),(void*)f_1453}, {C_text("f_1456:file_2escm"),(void*)f_1456}, {C_text("f_1459:file_2escm"),(void*)f_1459}, {C_text("f_1462:file_2escm"),(void*)f_1462}, {C_text("f_1465:file_2escm"),(void*)f_1465}, {C_text("f_1472:file_2escm"),(void*)f_1472}, {C_text("f_1474:file_2escm"),(void*)f_1474}, {C_text("f_1484:file_2escm"),(void*)f_1484}, {C_text("f_1487:file_2escm"),(void*)f_1487}, {C_text("f_1490:file_2escm"),(void*)f_1490}, {C_text("f_1493:file_2escm"),(void*)f_1493}, {C_text("f_1500:file_2escm"),(void*)f_1500}, {C_text("f_1507:file_2escm"),(void*)f_1507}, {C_text("f_1519:file_2escm"),(void*)f_1519}, {C_text("f_1558:file_2escm"),(void*)f_1558}, {C_text("f_1565:file_2escm"),(void*)f_1565}, {C_text("f_1572:file_2escm"),(void*)f_1572}, {C_text("f_1578:file_2escm"),(void*)f_1578}, {C_text("f_1583:file_2escm"),(void*)f_1583}, {C_text("f_1595:file_2escm"),(void*)f_1595}, {C_text("f_1601:file_2escm"),(void*)f_1601}, {C_text("f_1607:file_2escm"),(void*)f_1607}, {C_text("f_1615:file_2escm"),(void*)f_1615}, {C_text("f_1620:file_2escm"),(void*)f_1620}, {C_text("f_1624:file_2escm"),(void*)f_1624}, {C_text("f_1628:file_2escm"),(void*)f_1628}, {C_text("f_1632:file_2escm"),(void*)f_1632}, {C_text("f_1646:file_2escm"),(void*)f_1646}, {C_text("f_1652:file_2escm"),(void*)f_1652}, {C_text("f_1658:file_2escm"),(void*)f_1658}, {C_text("f_1664:file_2escm"),(void*)f_1664}, {C_text("f_1671:file_2escm"),(void*)f_1671}, {C_text("f_1684:file_2escm"),(void*)f_1684}, {C_text("f_1688:file_2escm"),(void*)f_1688}, {C_text("f_1692:file_2escm"),(void*)f_1692}, {C_text("f_1696:file_2escm"),(void*)f_1696}, {C_text("f_1700:file_2escm"),(void*)f_1700}, {C_text("f_1704:file_2escm"),(void*)f_1704}, {C_text("f_1712:file_2escm"),(void*)f_1712}, {C_text("f_1718:file_2escm"),(void*)f_1718}, {C_text("f_1733:file_2escm"),(void*)f_1733}, {C_text("f_1739:file_2escm"),(void*)f_1739}, {C_text("f_1746:file_2escm"),(void*)f_1746}, {C_text("f_1753:file_2escm"),(void*)f_1753}, {C_text("f_1756:file_2escm"),(void*)f_1756}, {C_text("f_1758:file_2escm"),(void*)f_1758}, {C_text("f_1775:file_2escm"),(void*)f_1775}, {C_text("f_1779:file_2escm"),(void*)f_1779}, {C_text("f_1787:file_2escm"),(void*)f_1787}, {C_text("f_1791:file_2escm"),(void*)f_1791}, {C_text("f_1799:file_2escm"),(void*)f_1799}, {C_text("f_1817:file_2escm"),(void*)f_1817}, {C_text("f_1823:file_2escm"),(void*)f_1823}, {C_text("f_1829:file_2escm"),(void*)f_1829}, {C_text("f_1865:file_2escm"),(void*)f_1865}, {C_text("f_1867:file_2escm"),(void*)f_1867}, {C_text("f_1872:file_2escm"),(void*)f_1872}, {C_text("f_1878:file_2escm"),(void*)f_1878}, {C_text("f_1889:file_2escm"),(void*)f_1889}, {C_text("f_1893:file_2escm"),(void*)f_1893}, {C_text("f_1897:file_2escm"),(void*)f_1897}, {C_text("f_1903:file_2escm"),(void*)f_1903}, {C_text("f_1907:file_2escm"),(void*)f_1907}, {C_text("f_1910:file_2escm"),(void*)f_1910}, {C_text("f_1913:file_2escm"),(void*)f_1913}, {C_text("f_1916:file_2escm"),(void*)f_1916}, {C_text("f_1919:file_2escm"),(void*)f_1919}, {C_text("f_1922:file_2escm"),(void*)f_1922}, {C_text("f_1928:file_2escm"),(void*)f_1928}, {C_text("f_1931:file_2escm"),(void*)f_1931}, {C_text("f_1938:file_2escm"),(void*)f_1938}, {C_text("f_1940:file_2escm"),(void*)f_1940}, {C_text("f_1953:file_2escm"),(void*)f_1953}, {C_text("f_1962:file_2escm"),(void*)f_1962}, {C_text("f_1984:file_2escm"),(void*)f_1984}, {C_text("f_1987:file_2escm"),(void*)f_1987}, {C_text("f_1996:file_2escm"),(void*)f_1996}, {C_text("f_2006:file_2escm"),(void*)f_2006}, {C_text("f_2008:file_2escm"),(void*)f_2008}, {C_text("f_2013:file_2escm"),(void*)f_2013}, {C_text("f_2021:file_2escm"),(void*)f_2021}, {C_text("f_2025:file_2escm"),(void*)f_2025}, {C_text("f_2028:file_2escm"),(void*)f_2028}, {C_text("f_2033:file_2escm"),(void*)f_2033}, {C_text("f_2043:file_2escm"),(void*)f_2043}, {C_text("f_2046:file_2escm"),(void*)f_2046}, {C_text("f_2055:file_2escm"),(void*)f_2055}, {C_text("f_2058:file_2escm"),(void*)f_2058}, {C_text("f_2067:file_2escm"),(void*)f_2067}, {C_text("f_2074:file_2escm"),(void*)f_2074}, {C_text("f_2083:file_2escm"),(void*)f_2083}, {C_text("f_2084:file_2escm"),(void*)f_2084}, {C_text("f_2092:file_2escm"),(void*)f_2092}, {C_text("f_2100:file_2escm"),(void*)f_2100}, {C_text("f_2106:file_2escm"),(void*)f_2106}, {C_text("f_2109:file_2escm"),(void*)f_2109}, {C_text("f_2112:file_2escm"),(void*)f_2112}, {C_text("f_2115:file_2escm"),(void*)f_2115}, {C_text("f_2118:file_2escm"),(void*)f_2118}, {C_text("f_2120:file_2escm"),(void*)f_2120}, {C_text("f_2126:file_2escm"),(void*)f_2126}, {C_text("f_2128:file_2escm"),(void*)f_2128}, {C_text("f_732:file_2escm"),(void*)f_732}, {C_text("f_735:file_2escm"),(void*)f_735}, {C_text("f_738:file_2escm"),(void*)f_738}, {C_text("f_741:file_2escm"),(void*)f_741}, {C_text("f_753:file_2escm"),(void*)f_753}, {C_text("f_757:file_2escm"),(void*)f_757}, {C_text("f_764:file_2escm"),(void*)f_764}, {C_text("f_768:file_2escm"),(void*)f_768}, {C_text("f_770:file_2escm"),(void*)f_770}, {C_text("f_780:file_2escm"),(void*)f_780}, {C_text("f_782:file_2escm"),(void*)f_782}, {C_text("f_792:file_2escm"),(void*)f_792}, {C_text("f_794:file_2escm"),(void*)f_794}, {C_text("f_802:file_2escm"),(void*)f_802}, {C_text("f_821:file_2escm"),(void*)f_821}, {C_text("f_824:file_2escm"),(void*)f_824}, {C_text("f_830:file_2escm"),(void*)f_830}, {C_text("f_836:file_2escm"),(void*)f_836}, {C_text("f_842:file_2escm"),(void*)f_842}, {C_text("f_846:file_2escm"),(void*)f_846}, {C_text("f_861:file_2escm"),(void*)f_861}, {C_text("f_864:file_2escm"),(void*)f_864}, {C_text("f_867:file_2escm"),(void*)f_867}, {C_text("f_871:file_2escm"),(void*)f_871}, {C_text("f_885:file_2escm"),(void*)f_885}, {C_text("f_899:file_2escm"),(void*)f_899}, {C_text("f_911:file_2escm"),(void*)f_911}, {C_text("f_921:file_2escm"),(void*)f_921}, {C_text("f_981:file_2escm"),(void*)f_981}, {C_text("f_991:file_2escm"),(void*)f_991}, {C_text("f_997:file_2escm"),(void*)f_997}, {C_text("toplevel:file_2escm"),(void*)C_file_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.file#d o|hiding unexported module binding: chicken.file#define-alias o|hiding unexported module binding: chicken.file#posix-error o|hiding unexported module binding: chicken.file#test-access S|applied compiler syntax: S| scheme#for-each 1 o|eliminated procedure checks: 22 o|specializations: o| 1 (##sys#call-with-values (procedure () *) *) o| 1 (scheme#cdr pair) o| 2 (scheme#number->string * *) o| 2 (scheme#integer? *) o| 1 (##sys#check-list (or pair list) *) o| 1 (scheme#string-ref string fixnum) o| 1 (scheme#string-length string) o| 1 (scheme#make-string fixnum) (o e)|safe calls: 202 o|dropping redundant toplevel assignment: chicken.file#create-temporary-file o|dropping redundant toplevel assignment: chicken.file#create-temporary-directory o|safe globals: (chicken.file#find-files chicken.file#glob chicken.file#create-temporary-directory chicken.file#create-temporary-file chicken.file#move-file chicken.file#copy-file chicken.file#rename-file chicken.file#delete-file* chicken.file#delete-file chicken.file#delete-directory chicken.file#create-directory chicken.file#directory chicken.file#file-executable? chicken.file#file-writable? chicken.file#file-readable? chicken.file#test-access chicken.file#directory-exists? chicken.file#file-exists? chicken.file#posix-error) o|merged explicitly consed rest parameter: args142 o|contracted procedure: "(file.scm:197) strerror132" o|inlining procedure: k775 o|inlining procedure: k775 o|inlining procedure: k787 o|inlining procedure: k787 o|inlining procedure: k806 o|inlining procedure: k806 o|consed rest parameter at call site: "(file.scm:223) chicken.file#posix-error" 4 o|inlining procedure: k872 o|consed rest parameter at call site: "(file.scm:241) chicken.file#posix-error" 4 o|inlining procedure: k872 o|inlining procedure: k887 o|inlining procedure: k887 o|inlining procedure: k928 o|inlining procedure: k928 o|substituted constant variable: a950 o|substituted constant variable: a952 o|inlining procedure: k989 o|inlining procedure: k989 o|inlining procedure: k1011 o|contracted procedure: "(file.scm:274) g224225" o|inlining procedure: k1022 o|inlining procedure: k1022 o|consed rest parameter at call site: "(file.scm:262) chicken.file#posix-error" 4 o|inlining procedure: k1011 o|inlining procedure: k1059 o|inlining procedure: k1059 o|contracted procedure: "(file.scm:275) g242243" o|inlining procedure: k1067 o|inlining procedure: k1067 o|consed rest parameter at call site: "(file.scm:262) chicken.file#posix-error" 4 o|inlining procedure: k1109 o|inlining procedure: k1109 o|consed rest parameter at call site: "(file.scm:283) chicken.file#posix-error" 4 o|inlining procedure: k1130 o|propagated global variable: r11312156 chicken.file#delete-file o|inlining procedure: k1130 o|contracted procedure: "(file.scm:292) g283284" o|inlining procedure: k1122 o|inlining procedure: k1160 o|inlining procedure: k1160 o|inlining procedure: k1122 o|inlining procedure: k1195 o|inlining procedure: k1195 o|inlining procedure: k1223 o|inlining procedure: k1223 o|inlining procedure: k1247 o|inlining procedure: k1247 o|inlining procedure: k1346 o|inlining procedure: k1346 o|inlining procedure: k1476 o|inlining procedure: k1476 o|inlining procedure: k1560 o|inlining procedure: k1560 o|inlining procedure: k1573 o|inlining procedure: k1573 o|inlining procedure: k1602 o|inlining procedure: k1602 o|contracted procedure: "(file.scm:409) getpid427" o|substituted constant variable: a1638 o|inlining procedure: k1659 o|inlining procedure: k1659 o|contracted procedure: "(file.scm:425) getpid436" o|substituted constant variable: a1710 o|inlining procedure: k1720 o|inlining procedure: k1720 o|inlining procedure: k1760 o|inlining procedure: k1760 o|inlining procedure: k1834 o|inlining procedure: k1834 o|inlining procedure: k1843 o|inlining procedure: k1843 o|merged explicitly consed rest parameter: args489504 o|consed rest parameter at call site: tmp2723 1 o|inlining procedure: k1899 o|inlining procedure: k1899 o|inlining procedure: k1942 o|inlining procedure: k1942 o|inlining procedure: k1963 o|inlining procedure: k1963 o|inlining procedure: k1982 o|inlining procedure: k1982 o|inlining procedure: k1991 o|inlining procedure: k2023 o|inlining procedure: k2023 o|inlining procedure: k1991 o|inlining procedure: k2041 o|inlining procedure: k2041 o|contracted procedure: "(file.scm:486) g549550" o|inlining procedure: k2062 o|inlining procedure: k2062 o|inlining procedure: k2094 o|inlining procedure: k2094 o|replaced variables: 227 o|removed binding forms: 93 o|substituted constant variable: r7762131 o|substituted constant variable: r7882133 o|substituted constant variable: r8882138 o|substituted constant variable: loc226 o|substituted constant variable: loc226 o|substituted constant variable: loc244 o|substituted constant variable: loc244 o|propagated global variable: g2772782157 chicken.file#delete-file o|inlining procedure: k1130 o|inlining procedure: k1130 o|propagated global variable: r11312239 chicken.file#delete-file o|propagated global variable: r11312239 chicken.file#delete-file o|substituted constant variable: loc286 o|converted assignments to bindings: (rmdir260) o|substituted constant variable: r12242175 o|inlining procedure: k1566 o|inlining procedure: k1566 o|inlining procedure: k1566 o|inlining procedure: k1566 o|substituted constant variable: r17212192 o|substituted constant variable: r18352196 o|substituted constant variable: r18442199 o|substituted constant variable: r19002202 o|substituted constant variable: r19002202 o|substituted constant variable: loc552 o|converted assignments to bindings: (tempdir400) o|simplifications: ((let . 2)) o|replaced variables: 11 o|removed binding forms: 229 o|inlining procedure: k931 o|inlining procedure: k1276 o|inlining procedure: k1372 o|inlining procedure: k1390 o|inlining procedure: k1505 o|inlining procedure: k1523 o|inlining procedure: k1634 o|inlining procedure: k1706 o|inlining procedure: k1837 o|inlining procedure: k1837 o|inlining procedure: k1837 o|replaced variables: 8 o|removed binding forms: 36 o|substituted constant variable: r9322292 o|substituted constant variable: r9322292 o|substituted constant variable: r12772299 o|substituted constant variable: r13732302 o|substituted constant variable: r13912303 o|substituted constant variable: r15062306 o|substituted constant variable: r15242307 o|substituted constant variable: r18382316 o|substituted constant variable: r18382318 o|substituted constant variable: r18382320 o|removed binding forms: 12 o|removed conditional forms: 9 o|removed binding forms: 9 o|simplifications: ((if . 20) (##core#call . 113)) o| call simplifications: o| chicken.base#fixnum? o| chicken.fixnum#fx< o| scheme#procedure? o| scheme#member o| ##sys#apply o| ##sys#structure? o| scheme#memv 3 o| ##sys#check-number 2 o| scheme#> 2 o| chicken.fixnum#fx+ 3 o| scheme#pair? 2 o| ##sys#slot 5 o| ##sys#call-with-values 2 o| scheme#car 12 o| scheme#null? 18 o| scheme#cdr 8 o| ##sys#null-pointer? 2 o| ##sys#size 2 o| scheme#string-ref o| chicken.fixnum#fx> o| scheme#eq? 6 o| scheme#not 10 o| scheme#cons 3 o| chicken.fixnum#fx= 8 o| ##sys#check-string 15 o| ##sys#foreign-fixnum-argument o| scheme#apply o|contracted procedure: k750 o|contracted procedure: k772 o|contracted procedure: k784 o|contracted procedure: k796 o|contracted procedure: k803 o|contracted procedure: k812 o|contracted procedure: k965 o|contracted procedure: k847 o|contracted procedure: k959 o|contracted procedure: k850 o|contracted procedure: k953 o|contracted procedure: k853 o|contracted procedure: k856 o|contracted procedure: k875 o|contracted procedure: k890 o|contracted procedure: k894 o|contracted procedure: k900 o|contracted procedure: k946 o|contracted procedure: k903 o|contracted procedure: k922 o|contracted procedure: k925 o|contracted procedure: k940 o|contracted procedure: k931 o|contracted procedure: k971 o|contracted procedure: k1091 o|contracted procedure: k983 o|contracted procedure: k986 o|contracted procedure: k1088 o|contracted procedure: k992 o|contracted procedure: k1025 o|contracted procedure: k1070 o|contracted procedure: k1183 o|contracted procedure: k1100 o|contracted procedure: k1112 o|contracted procedure: k1119 o|contracted procedure: k1163 o|contracted procedure: k1173 o|contracted procedure: k1177 o|contracted procedure: k1192 o|contracted procedure: k1198 o|contracted procedure: k1288 o|contracted procedure: k1235 o|contracted procedure: k1238 o|contracted procedure: k1241 o|contracted procedure: k1250 o|contracted procedure: k1282 o|contracted procedure: k1418 o|contracted procedure: k1297 o|contracted procedure: k1412 o|contracted procedure: k1300 o|contracted procedure: k1406 o|contracted procedure: k1303 o|contracted procedure: k1400 o|contracted procedure: k1306 o|contracted procedure: k1309 o|contracted procedure: k1312 o|contracted procedure: k1315 o|contracted procedure: k1349 o|contracted procedure: k1369 o|contracted procedure: k1378 o|contracted procedure: k1390 o|substituted constant variable: g2395 o|contracted procedure: k1551 o|contracted procedure: k1427 o|contracted procedure: k1545 o|contracted procedure: k1430 o|contracted procedure: k1539 o|contracted procedure: k1433 o|contracted procedure: k1533 o|contracted procedure: k1436 o|contracted procedure: k1439 o|contracted procedure: k1442 o|contracted procedure: k1445 o|contracted procedure: k1479 o|contracted procedure: k1502 o|contracted procedure: k1511 o|contracted procedure: k1523 o|substituted constant variable: g2399 o|contracted procedure: k1639 o|contracted procedure: k1585 o|contracted procedure: k1588 o|contracted procedure: k1675 o|contracted procedure: k1723 o|contracted procedure: k1726 o|contracted procedure: k1741 o|contracted procedure: k1813 o|contracted procedure: k1763 o|contracted procedure: k1770 o|contracted procedure: k1793 o|contracted procedure: k1809 o|contracted procedure: k1858 o|contracted procedure: k1831 o|contracted procedure: k1846 o|contracted procedure: k1852 o|contracted procedure: k1837 o|contracted procedure: k1923 o|contracted procedure: k1945 o|contracted procedure: k1948 o|contracted procedure: k1954 o|contracted procedure: k1966 o|contracted procedure: k1975 o|contracted procedure: k2001 o|contracted procedure: k2078 o|contracted procedure: k2089 o|contracted procedure: k2097 o|simplifications: ((if . 1) (let . 19)) o|replaced variables: 2 o|removed binding forms: 103 o|replaced variables: 48 o|removed binding forms: 4 o|removed binding forms: 22 o|customizable procedures: (k1926 k1929 loop533 tmp1722 tmp2723 g477478 loop469 conc-loop446 loop434 tempdir400 loop425 loop381 loop345 g267274 for-each-loop266287 rmdir260 k1014 loop221 k909 loop187 chicken.file#test-access chicken.file#posix-error) o|calls to known targets: 71 o|unused rest argument: _528 f_2092 o|unused rest argument: _529 f_2100 o|unused rest argument: _514 f_2128 o|fast box initializations: 10 o|fast global references: 8 o|fast global assignments: 2 o|dropping unused closure argument: f_1104 o|dropping unused closure argument: f_753 o|dropping unused closure argument: f_794 */ /* end of file */ chicken-5.1.0/chicken.platform.import.scm0000644000175000017500000000216413502227730020177 0ustar sjamaansjamaan;;;; chicken.platform.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.platform 'library (scheme#list) '((build-platform . chicken.platform#build-platform) (chicken-version . chicken.platform#chicken-version) (chicken-home . chicken.platform#chicken-home) (feature? . chicken.platform#feature?) (features . chicken.platform#features) (machine-byte-order . chicken.platform#machine-byte-order) (machine-type . chicken.platform#machine-type) (repository-path . chicken.platform#repository-path) (installation-repository . chicken.platform#installation-repository) (register-feature! . chicken.platform#register-feature!) (unregister-feature! . chicken.platform#unregister-feature!) (software-type . chicken.platform#software-type) (software-version . chicken.platform#software-version) (return-to-host . chicken.platform#return-to-host) (system-config-directory . chicken.platform#system-config-directory) (system-cache-directory . chicken.platform#system-cache-directory)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/tcp.c0000644000175000017500000102455513502227764013705 0ustar sjamaansjamaan/* Generated from tcp.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: tcp.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file tcp.c -emit-import-library chicken.tcp unit: tcp uses: port scheduler library */ #include "chicken.h" #ifdef _WIN32 # include # include /* Beware: winsock2.h must come BEFORE windows.h */ # define socklen_t int static WSADATA wsa; # ifndef SHUT_RD # define SHUT_RD SD_RECEIVE # endif # ifndef SHUT_WR # define SHUT_WR SD_SEND # endif # define typecorrect_getsockopt(socket, level, optname, optval, optlen) \ getsockopt(socket, level, optname, (char *)optval, optlen) static C_word make_socket_nonblocking (C_word sock) { int fd = C_unfix(sock); C_return(C_mk_bool(ioctlsocket(fd, FIONBIO, (void *)&fd) != SOCKET_ERROR)) ; } /* This is a bit of a hack, but it keeps things simple */ static C_TLS char *last_wsa_errorstring = NULL; static char *errormsg_from_code(int code) { int bufsize; if (last_wsa_errorstring != NULL) { LocalFree(last_wsa_errorstring); last_wsa_errorstring = NULL; } bufsize = FormatMessage( FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS, NULL, code, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (LPTSTR) &last_wsa_errorstring, 0, NULL); if (bufsize == 0) return "ERROR WHILE FETCHING ERROR"; return last_wsa_errorstring; } # define get_last_socket_error() WSAGetLastError() # define should_retry_call() (WSAGetLastError() == WSAEWOULDBLOCK) /* Not EINPROGRESS in winsock. Nonblocking connect returns EWOULDBLOCK... */ # define call_in_progress() (WSAGetLastError() == WSAEWOULDBLOCK) # define call_was_interrupted() (WSAGetLastError() == WSAEINTR) /* ? */ #else # include # include # include # include # include # include # include # define closesocket close # define INVALID_SOCKET -1 # define SOCKET_ERROR -1 # define typecorrect_getsockopt getsockopt static C_word make_socket_nonblocking (C_word sock) { int fd = C_unfix(sock); int val = fcntl(fd, F_GETFL, 0); if(val == -1) C_return(C_SCHEME_FALSE); C_return(C_mk_bool(fcntl(fd, F_SETFL, val | O_NONBLOCK) != -1)); } # define get_last_socket_error() errno # define errormsg_from_code(e) strerror(e) # define should_retry_call() (errno == EAGAIN || errno == EWOULDBLOCK) # define call_was_interrupted() (errno == EINTR) # define call_in_progress() (errno == EINPROGRESS) #endif #ifdef ECOS #include #endif #ifndef h_addr # define h_addr h_addr_list[ 0 ] #endif static char addr_buffer[ 20 ]; static int C_set_socket_options(int socket) { int yes = 1; int r; r = setsockopt(socket, SOL_SOCKET, SO_REUSEADDR, (const char *)&yes, sizeof(int)); if(r != 0) return r; #ifdef SO_NOSIGPIPE /* * Avoid SIGPIPE (iOS uses *only* SIGPIPE otherwise, not returning EPIPE). * For consistency we do this everywhere the option is supported. */ r = setsockopt(socket, SOL_SOCKET, SO_NOSIGPIPE, (const char *)&yes, sizeof(int)); #endif return r; } static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_port_toplevel) C_externimport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_scheduler_toplevel) C_externimport void C_ccall C_scheduler_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[109]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,50),40,99,104,105,99,107,101,110,46,116,99,112,35,103,101,116,104,111,115,116,97,100,100,114,32,115,97,100,100,114,50,54,48,32,104,111,115,116,50,54,49,32,112,111,114,116,50,54,50,41,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,108,105,115,116,101,110,32,112,111,114,116,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,108,105,115,116,101,110,101,114,63,32,120,41,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,99,108,111,115,101,32,116,99,112,108,41,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,10),40,102,95,49,54,50,52,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,11),40,99,104,101,99,107,32,108,111,99,41,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,12),40,114,101,97,100,45,105,110,112,117,116,41,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,7),40,97,49,56,51,56,41,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,108,101,110,32,111,102,102,115,101,116,32,100,108,119,41,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,10),40,111,117,116,112,117,116,32,115,41,0,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,10),40,102,95,50,48,50,49,32,115,41,0,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,10),40,102,95,50,48,52,49,32,115,41,0,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,7),40,97,49,57,51,52,41,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,8),40,102,95,50,48,48,53,41}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,7),40,97,50,48,53,54,41,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,7),40,97,50,48,55,56,41,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,7),40,97,50,49,50,48,41,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,7),40,97,50,49,55,48,41,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,110,32,109,32,115,116,97,114,116,41}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,22),40,97,50,49,56,56,32,112,32,110,32,100,101,115,116,32,115,116,97,114,116,41,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,11),40,97,50,50,56,49,32,112,111,115,41,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,7),40,97,50,50,55,49,41,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,28),40,97,50,51,50,55,32,110,101,120,116,32,108,105,110,101,32,102,117,108,108,45,108,105,110,101,63,41,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,15),40,97,50,50,53,51,32,112,32,108,105,109,105,116,41,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,9),40,97,50,51,55,50,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,116,99,112,35,105,111,45,112,111,114,116,115,32,108,111,99,32,102,100,41,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,97,99,99,101,112,116,32,116,99,112,108,41,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,97,99,99,101,112,116,45,114,101,97,100,121,63,32,116,99,112,108,41,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,7),40,97,50,56,49,56,41,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,23),40,97,50,56,50,52,32,104,111,115,116,55,48,48,32,112,111,114,116,55,48,49,41,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,99,111,110,110,101,99,116,32,104,111,115,116,32,46,32,109,111,114,101,41,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,112,111,114,116,45,62,102,105,108,101,110,111,32,112,32,108,111,99,41,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,97,100,100,114,101,115,115,101,115,32,112,41,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,112,111,114,116,45,110,117,109,98,101,114,115,32,112,41}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,108,105,115,116,101,110,101,114,45,112,111,114,116,32,116,99,112,108,41,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,97,98,97,110,100,111,110,45,112,111,114,116,32,112,41}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,116,99,112,35,116,99,112,45,108,105,115,116,101,110,101,114,45,102,105,108,101,110,111,32,108,41,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; #define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub685(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int socket=(int )C_unfix(C_a0); int err, optlen; optlen = sizeof(err); if (typecorrect_getsockopt(socket, SOL_SOCKET, SO_ERROR, &err, (socklen_t *)&optlen) == SOCKET_ERROR) C_return(SOCKET_ERROR); C_return(err); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub394(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * saddr=(void * )C_data_pointer_or_null(C_a0); unsigned short port=(unsigned short )(unsigned short)C_unfix(C_a1); struct sockaddr_in *addr = (struct sockaddr_in *)saddr; memset(addr, 0, sizeof(struct sockaddr_in)); addr->sin_family = AF_INET; addr->sin_port = htons(port); addr->sin_addr.s_addr = htonl(INADDR_ANY); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_mk_bool((x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub263(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * saddr=(void * )C_data_pointer_or_null(C_a0); char * host=(char * )C_string_or_null(C_a1); unsigned short port=(unsigned short )(unsigned short)C_unfix(C_a2); struct hostent *he = gethostbyname(host); struct sockaddr_in *addr = (struct sockaddr_in *)saddr; if(he == NULL) C_return(0); memset(addr, 0, sizeof(struct sockaddr_in)); addr->sin_family = AF_INET; addr->sin_port = htons((short)port); addr->sin_addr = *((struct in_addr *)he->h_addr); C_return(1); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub251(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; char * serv=(char * )C_string_or_null(C_a0); char * proto=(char * )C_string_or_null(C_a1); struct servent *se; if((se = getservbyname(serv, proto)) == NULL) C_return(0); else C_return(ntohs(se->s_port)); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_mk_bool((x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub246(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; #ifdef _WIN32 C_return(WSAStartup(MAKEWORD(1, 1), &wsa) == 0); #else signal(SIGPIPE, SIG_IGN); C_return(1); #endif C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub241(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int s=(int )C_unfix(C_a0); struct sockaddr_in sa; unsigned char *ptr; unsigned int len = sizeof(struct sockaddr_in); if(getpeername(s, (struct sockaddr *)&sa, ((socklen_t *)&len)) != 0) C_return(NULL); ptr = (unsigned char *)&sa.sin_addr; C_snprintf(addr_buffer, sizeof(addr_buffer), "%d.%d.%d.%d", ptr[ 0 ], ptr[ 1 ], ptr[ 2 ], ptr[ 3 ]); C_return(addr_buffer); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub236(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int s=(int )C_unfix(C_a0); struct sockaddr_in sa; int len = sizeof(struct sockaddr_in); if(getpeername(s, (struct sockaddr *)&sa, (socklen_t *)(&len)) != 0) C_return(-1); else C_return(ntohs(sa.sin_port)); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub231(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int s=(int )C_unfix(C_a0); struct sockaddr_in sa; int len = sizeof(struct sockaddr_in); if(getsockname(s, (struct sockaddr *)&sa, (socklen_t *)(&len)) != 0) C_return(-1); else C_return(ntohs(sa.sin_port)); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub225(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int s=(int )C_unfix(C_a0); struct sockaddr_in sa; unsigned char *ptr; int len = sizeof(struct sockaddr_in); if(getsockname(s, (struct sockaddr *)&sa, (socklen_t *)&len) != 0) C_return(NULL); ptr = (unsigned char *)&sa.sin_addr; C_snprintf(addr_buffer, sizeof(addr_buffer), "%d.%d.%d.%d", ptr[ 0 ], ptr[ 1 ], ptr[ 2 ], ptr[ 3 ]); C_return(addr_buffer); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub214(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3,C_word C_a4){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int s=(int )C_unfix(C_a0); void * msg=(void * )C_data_pointer_or_null(C_a1); int offset=(int )C_unfix(C_a2); int len=(int )C_unfix(C_a3); int flags=(int )C_unfix(C_a4); C_return(send(s, (char *)msg+offset, len, flags)); C_ret: #undef return return C_r;} /* from k1151 */ C_regparm static C_word C_fcall stub205(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_fix((C_word)C_set_socket_options(t0)); return C_r;} /* from k1144 */ C_regparm static C_word C_fcall stub200(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_fix((C_word)C_check_fd_ready(t0)); return C_r;} /* from k1134 */ C_regparm static C_word C_fcall stub191(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); void * t1=(void * )C_data_pointer_or_null(C_a1); int t2=(int )C_unfix(C_a2); C_r=C_fix((C_word)connect(t0,t1,t2)); return C_r;} /* from k1119 */ C_regparm static C_word C_fcall stub183(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); int t1=(int )C_unfix(C_a1); C_r=C_fix((C_word)shutdown(t0,t1)); return C_r;} /* from k1105 */ C_regparm static C_word C_fcall stub172(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); void * t1=(void * )C_data_pointer_or_null(C_a1); int t2=(int )C_unfix(C_a2); int t3=(int )C_unfix(C_a3); C_r=C_fix((C_word)recv(t0,t1,t2,t3)); return C_r;} /* from k1086 */ C_regparm static C_word C_fcall stub164(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_fix((C_word)closesocket(t0)); return C_r;} /* from k1073 */ C_regparm static C_word C_fcall stub153(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); void * t1=(void * )C_c_pointer_or_null(C_a1); void * t2=(void * )C_c_pointer_or_null(C_a2); C_r=C_fix((C_word)accept(t0,t1,t2)); return C_r;} /* from k1058 */ C_regparm static C_word C_fcall stub145(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); int t1=(int )C_unfix(C_a1); C_r=C_fix((C_word)listen(t0,t1)); return C_r;} /* from k1044 */ C_regparm static C_word C_fcall stub135(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); void * t1=(void * )C_data_pointer_or_null(C_a1); int t2=(int )C_unfix(C_a2); C_r=C_fix((C_word)bind(t0,t1,t2)); return C_r;} /* from k1029 */ C_regparm static C_word C_fcall stub126(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); int t1=(int )C_unfix(C_a1); int t2=(int )C_unfix(C_a2); C_r=C_fix((C_word)socket(t0,t1,t2)); return C_r;} /* from chicken.tcp#interrupted? */ C_regparm static C_word C_fcall stub120(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_mk_bool(call_was_interrupted()); return C_r;} /* from chicken.tcp#in-progress? */ C_regparm static C_word C_fcall stub117(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_mk_bool(call_in_progress()); return C_r;} /* from chicken.tcp#retry? */ C_regparm static C_word C_fcall stub114(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_mk_bool(should_retry_call()); return C_r;} /* from k1005 */ C_regparm static C_word C_fcall stub109(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_mpointer(&C_a,(void*)errormsg_from_code(t0)); return C_r;} /* from chicken.tcp#last-error-code */ C_regparm static C_word C_fcall stub105(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_fix((C_word)get_last_socket_error()); return C_r;} C_noret_decl(f3420) static void C_ccall f3420(C_word c,C_word *av) C_noret; C_noret_decl(f_1221) static void C_ccall f_1221(C_word c,C_word *av) C_noret; C_noret_decl(f_1228) static void C_ccall f_1228(C_word c,C_word *av) C_noret; C_noret_decl(f_1232) static void C_ccall f_1232(C_word c,C_word *av) C_noret; C_noret_decl(f_1248) static void C_fcall f_1248(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1257) static void C_ccall f_1257(C_word c,C_word *av) C_noret; C_noret_decl(f_1283) static void C_fcall f_1283(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1306) static void C_ccall f_1306(C_word c,C_word *av) C_noret; C_noret_decl(f_1310) static void C_ccall f_1310(C_word c,C_word *av) C_noret; C_noret_decl(f_1313) static void C_ccall f_1313(C_word c,C_word *av) C_noret; C_noret_decl(f_1316) static void C_ccall f_1316(C_word c,C_word *av) C_noret; C_noret_decl(f_1326) static void C_ccall f_1326(C_word c,C_word *av) C_noret; C_noret_decl(f_1330) static void C_ccall f_1330(C_word c,C_word *av) C_noret; C_noret_decl(f_1334) static void C_ccall f_1334(C_word c,C_word *av) C_noret; C_noret_decl(f_1372) static void C_ccall f_1372(C_word c,C_word *av) C_noret; C_noret_decl(f_1375) static void C_ccall f_1375(C_word c,C_word *av) C_noret; C_noret_decl(f_1381) static void C_ccall f_1381(C_word c,C_word *av) C_noret; C_noret_decl(f_1384) static void C_ccall f_1384(C_word c,C_word *av) C_noret; C_noret_decl(f_1387) static void C_ccall f_1387(C_word c,C_word *av) C_noret; C_noret_decl(f_1403) static void C_ccall f_1403(C_word c,C_word *av) C_noret; C_noret_decl(f_1407) static void C_ccall f_1407(C_word c,C_word *av) C_noret; C_noret_decl(f_1411) static void C_ccall f_1411(C_word c,C_word *av) C_noret; C_noret_decl(f_1427) static void C_ccall f_1427(C_word c,C_word *av) C_noret; C_noret_decl(f_1431) static void C_ccall f_1431(C_word c,C_word *av) C_noret; C_noret_decl(f_1435) static void C_ccall f_1435(C_word c,C_word *av) C_noret; C_noret_decl(f_1457) static void C_ccall f_1457(C_word c,C_word *av) C_noret; C_noret_decl(f_1466) static void C_ccall f_1466(C_word c,C_word *av) C_noret; C_noret_decl(f_1482) static void C_ccall f_1482(C_word c,C_word *av) C_noret; C_noret_decl(f_1485) static void C_ccall f_1485(C_word c,C_word *av) C_noret; C_noret_decl(f_1488) static void C_ccall f_1488(C_word c,C_word *av) C_noret; C_noret_decl(f_1491) static void C_ccall f_1491(C_word c,C_word *av) C_noret; C_noret_decl(f_1494) static void C_ccall f_1494(C_word c,C_word *av) C_noret; C_noret_decl(f_1513) static void C_ccall f_1513(C_word c,C_word *av) C_noret; C_noret_decl(f_1517) static void C_ccall f_1517(C_word c,C_word *av) C_noret; C_noret_decl(f_1521) static void C_ccall f_1521(C_word c,C_word *av) C_noret; C_noret_decl(f_1565) static void C_ccall f_1565(C_word c,C_word *av) C_noret; C_noret_decl(f_1574) static void C_ccall f_1574(C_word c,C_word *av) C_noret; C_noret_decl(f_1594) static void C_ccall f_1594(C_word c,C_word *av) C_noret; C_noret_decl(f_1598) static void C_ccall f_1598(C_word c,C_word *av) C_noret; C_noret_decl(f_1602) static void C_ccall f_1602(C_word c,C_word *av) C_noret; C_noret_decl(f_1616) static void C_ccall f_1616(C_word c,C_word *av) C_noret; C_noret_decl(f_1622) static void C_fcall f_1622(C_word t0,C_word t1) C_noret; C_noret_decl(f_1624) static void C_ccall f_1624(C_word c,C_word *av) C_noret; C_noret_decl(f_1628) static void C_ccall f_1628(C_word c,C_word *av) C_noret; C_noret_decl(f_1639) static void C_ccall f_1639(C_word c,C_word *av) C_noret; C_noret_decl(f_1643) static void C_ccall f_1643(C_word c,C_word *av) C_noret; C_noret_decl(f_1647) static void C_ccall f_1647(C_word c,C_word *av) C_noret; C_noret_decl(f_1651) static void C_ccall f_1651(C_word c,C_word *av) C_noret; C_noret_decl(f_1653) static void C_fcall f_1653(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1657) static void C_ccall f_1657(C_word c,C_word *av) C_noret; C_noret_decl(f_1660) static void C_ccall f_1660(C_word c,C_word *av) C_noret; C_noret_decl(f_1666) static void C_ccall f_1666(C_word c,C_word *av) C_noret; C_noret_decl(f_1669) static void C_fcall f_1669(C_word t0,C_word t1) C_noret; C_noret_decl(f_1670) static void C_fcall f_1670(C_word t0,C_word t1) C_noret; C_noret_decl(f_1674) static void C_ccall f_1674(C_word c,C_word *av) C_noret; C_noret_decl(f_1677) static void C_fcall f_1677(C_word t0,C_word t1) C_noret; C_noret_decl(f_1682) static void C_ccall f_1682(C_word c,C_word *av) C_noret; C_noret_decl(f_1701) static void C_ccall f_1701(C_word c,C_word *av) C_noret; C_noret_decl(f_1704) static void C_ccall f_1704(C_word c,C_word *av) C_noret; C_noret_decl(f_1707) static void C_ccall f_1707(C_word c,C_word *av) C_noret; C_noret_decl(f_1710) static void C_ccall f_1710(C_word c,C_word *av) C_noret; C_noret_decl(f_1738) static void C_ccall f_1738(C_word c,C_word *av) C_noret; C_noret_decl(f_1742) static void C_ccall f_1742(C_word c,C_word *av) C_noret; C_noret_decl(f_1746) static void C_ccall f_1746(C_word c,C_word *av) C_noret; C_noret_decl(f_1764) static void C_ccall f_1764(C_word c,C_word *av) C_noret; C_noret_decl(f_1767) static void C_ccall f_1767(C_word c,C_word *av) C_noret; C_noret_decl(f_1768) static void C_fcall f_1768(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1772) static void C_ccall f_1772(C_word c,C_word *av) C_noret; C_noret_decl(f_1783) static void C_fcall f_1783(C_word t0,C_word t1) C_noret; C_noret_decl(f_1785) static void C_fcall f_1785(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1807) static void C_ccall f_1807(C_word c,C_word *av) C_noret; C_noret_decl(f_1810) static void C_ccall f_1810(C_word c,C_word *av) C_noret; C_noret_decl(f_1813) static void C_ccall f_1813(C_word c,C_word *av) C_noret; C_noret_decl(f_1816) static void C_ccall f_1816(C_word c,C_word *av) C_noret; C_noret_decl(f_1839) static void C_ccall f_1839(C_word c,C_word *av) C_noret; C_noret_decl(f_1850) static void C_ccall f_1850(C_word c,C_word *av) C_noret; C_noret_decl(f_1854) static void C_ccall f_1854(C_word c,C_word *av) C_noret; C_noret_decl(f_1858) static void C_ccall f_1858(C_word c,C_word *av) C_noret; C_noret_decl(f_1898) static void C_ccall f_1898(C_word c,C_word *av) C_noret; C_noret_decl(f_1905) static void C_ccall f_1905(C_word c,C_word *av) C_noret; C_noret_decl(f_1908) static void C_ccall f_1908(C_word c,C_word *av) C_noret; C_noret_decl(f_1923) static void C_ccall f_1923(C_word c,C_word *av) C_noret; C_noret_decl(f_1926) static void C_ccall f_1926(C_word c,C_word *av) C_noret; C_noret_decl(f_1935) static void C_ccall f_1935(C_word c,C_word *av) C_noret; C_noret_decl(f_1943) static void C_fcall f_1943(C_word t0,C_word t1) C_noret; C_noret_decl(f_1946) static void C_fcall f_1946(C_word t0,C_word t1) C_noret; C_noret_decl(f_1952) static void C_fcall f_1952(C_word t0,C_word t1) C_noret; C_noret_decl(f_1959) static void C_ccall f_1959(C_word c,C_word *av) C_noret; C_noret_decl(f_1963) static void C_ccall f_1963(C_word c,C_word *av) C_noret; C_noret_decl(f_1967) static void C_ccall f_1967(C_word c,C_word *av) C_noret; C_noret_decl(f_1989) static void C_fcall f_1989(C_word t0,C_word t1) C_noret; C_noret_decl(f_1992) static void C_ccall f_1992(C_word c,C_word *av) C_noret; C_noret_decl(f_2005) static void C_ccall f_2005(C_word c,C_word *av) C_noret; C_noret_decl(f_2015) static void C_ccall f_2015(C_word c,C_word *av) C_noret; C_noret_decl(f_2021) static void C_ccall f_2021(C_word c,C_word *av) C_noret; C_noret_decl(f_2026) static void C_ccall f_2026(C_word c,C_word *av) C_noret; C_noret_decl(f_2035) static void C_ccall f_2035(C_word c,C_word *av) C_noret; C_noret_decl(f_2041) static void C_ccall f_2041(C_word c,C_word *av) C_noret; C_noret_decl(f_2057) static void C_ccall f_2057(C_word c,C_word *av) C_noret; C_noret_decl(f_2061) static void C_ccall f_2061(C_word c,C_word *av) C_noret; C_noret_decl(f_2079) static void C_ccall f_2079(C_word c,C_word *av) C_noret; C_noret_decl(f_2092) static void C_ccall f_2092(C_word c,C_word *av) C_noret; C_noret_decl(f_2105) static void C_ccall f_2105(C_word c,C_word *av) C_noret; C_noret_decl(f_2109) static void C_ccall f_2109(C_word c,C_word *av) C_noret; C_noret_decl(f_2113) static void C_ccall f_2113(C_word c,C_word *av) C_noret; C_noret_decl(f_2121) static void C_ccall f_2121(C_word c,C_word *av) C_noret; C_noret_decl(f_2129) static void C_fcall f_2129(C_word t0,C_word t1) C_noret; C_noret_decl(f_2135) static void C_fcall f_2135(C_word t0,C_word t1) C_noret; C_noret_decl(f_2142) static void C_ccall f_2142(C_word c,C_word *av) C_noret; C_noret_decl(f_2146) static void C_ccall f_2146(C_word c,C_word *av) C_noret; C_noret_decl(f_2150) static void C_ccall f_2150(C_word c,C_word *av) C_noret; C_noret_decl(f_2171) static void C_ccall f_2171(C_word c,C_word *av) C_noret; C_noret_decl(f_2175) static void C_ccall f_2175(C_word c,C_word *av) C_noret; C_noret_decl(f_2189) static void C_ccall f_2189(C_word c,C_word *av) C_noret; C_noret_decl(f_2195) static void C_fcall f_2195(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2243) static void C_ccall f_2243(C_word c,C_word *av) C_noret; C_noret_decl(f_2254) static void C_ccall f_2254(C_word c,C_word *av) C_noret; C_noret_decl(f_2258) static void C_ccall f_2258(C_word c,C_word *av) C_noret; C_noret_decl(f_2272) static void C_ccall f_2272(C_word c,C_word *av) C_noret; C_noret_decl(f_2282) static void C_ccall f_2282(C_word c,C_word *av) C_noret; C_noret_decl(f_2298) static void C_ccall f_2298(C_word c,C_word *av) C_noret; C_noret_decl(f_2328) static void C_ccall f_2328(C_word c,C_word *av) C_noret; C_noret_decl(f_2373) static void C_ccall f_2373(C_word c,C_word *av) C_noret; C_noret_decl(f_2383) static void C_ccall f_2383(C_word c,C_word *av) C_noret; C_noret_decl(f_2404) static void C_ccall f_2404(C_word c,C_word *av) C_noret; C_noret_decl(f_2408) static void C_ccall f_2408(C_word c,C_word *av) C_noret; C_noret_decl(f_2412) static void C_ccall f_2412(C_word c,C_word *av) C_noret; C_noret_decl(f_2416) static void C_ccall f_2416(C_word c,C_word *av) C_noret; C_noret_decl(f_2426) static void C_ccall f_2426(C_word c,C_word *av) C_noret; C_noret_decl(f_2429) static void C_fcall f_2429(C_word t0,C_word t1) C_noret; C_noret_decl(f_2434) static void C_ccall f_2434(C_word c,C_word *av) C_noret; C_noret_decl(f_2438) static void C_ccall f_2438(C_word c,C_word *av) C_noret; C_noret_decl(f_2441) static void C_ccall f_2441(C_word c,C_word *av) C_noret; C_noret_decl(f_2444) static void C_ccall f_2444(C_word c,C_word *av) C_noret; C_noret_decl(f_2447) static void C_ccall f_2447(C_word c,C_word *av) C_noret; C_noret_decl(f_2475) static void C_ccall f_2475(C_word c,C_word *av) C_noret; C_noret_decl(f_2479) static void C_ccall f_2479(C_word c,C_word *av) C_noret; C_noret_decl(f_2483) static void C_ccall f_2483(C_word c,C_word *av) C_noret; C_noret_decl(f_2509) static void C_ccall f_2509(C_word c,C_word *av) C_noret; C_noret_decl(f_2511) static void C_ccall f_2511(C_word c,C_word *av) C_noret; C_noret_decl(f_2521) static void C_ccall f_2521(C_word c,C_word *av) C_noret; C_noret_decl(f_2534) static void C_ccall f_2534(C_word c,C_word *av) C_noret; C_noret_decl(f_2538) static void C_ccall f_2538(C_word c,C_word *av) C_noret; C_noret_decl(f_2542) static void C_ccall f_2542(C_word c,C_word *av) C_noret; C_noret_decl(f_2561) static void C_ccall f_2561(C_word c,C_word *av) C_noret; C_noret_decl(f_2568) static void C_ccall f_2568(C_word c,C_word *av) C_noret; C_noret_decl(f_2571) static void C_fcall f_2571(C_word t0,C_word t1) C_noret; C_noret_decl(f_2574) static void C_ccall f_2574(C_word c,C_word *av) C_noret; C_noret_decl(f_2580) static void C_ccall f_2580(C_word c,C_word *av) C_noret; C_noret_decl(f_2583) static void C_ccall f_2583(C_word c,C_word *av) C_noret; C_noret_decl(f_2586) static void C_ccall f_2586(C_word c,C_word *av) C_noret; C_noret_decl(f_2592) static void C_ccall f_2592(C_word c,C_word *av) C_noret; C_noret_decl(f_2595) static void C_ccall f_2595(C_word c,C_word *av) C_noret; C_noret_decl(f_2598) static void C_ccall f_2598(C_word c,C_word *av) C_noret; C_noret_decl(f_2601) static void C_ccall f_2601(C_word c,C_word *av) C_noret; C_noret_decl(f_2607) static void C_ccall f_2607(C_word c,C_word *av) C_noret; C_noret_decl(f_2626) static void C_ccall f_2626(C_word c,C_word *av) C_noret; C_noret_decl(f_2630) static void C_ccall f_2630(C_word c,C_word *av) C_noret; C_noret_decl(f_2634) static void C_ccall f_2634(C_word c,C_word *av) C_noret; C_noret_decl(f_2652) static void C_ccall f_2652(C_word c,C_word *av) C_noret; C_noret_decl(f_2656) static void C_ccall f_2656(C_word c,C_word *av) C_noret; C_noret_decl(f_2660) static void C_ccall f_2660(C_word c,C_word *av) C_noret; C_noret_decl(f_2664) static void C_ccall f_2664(C_word c,C_word *av) C_noret; C_noret_decl(f_2680) static void C_ccall f_2680(C_word c,C_word *av) C_noret; C_noret_decl(f_2683) static void C_ccall f_2683(C_word c,C_word *av) C_noret; C_noret_decl(f_2711) static void C_ccall f_2711(C_word c,C_word *av) C_noret; C_noret_decl(f_2715) static void C_ccall f_2715(C_word c,C_word *av) C_noret; C_noret_decl(f_2719) static void C_ccall f_2719(C_word c,C_word *av) C_noret; C_noret_decl(f_2738) static void C_ccall f_2738(C_word c,C_word *av) C_noret; C_noret_decl(f_2742) static void C_ccall f_2742(C_word c,C_word *av) C_noret; C_noret_decl(f_2746) static void C_ccall f_2746(C_word c,C_word *av) C_noret; C_noret_decl(f_2764) static void C_ccall f_2764(C_word c,C_word *av) C_noret; C_noret_decl(f_2768) static void C_ccall f_2768(C_word c,C_word *av) C_noret; C_noret_decl(f_2772) static void C_ccall f_2772(C_word c,C_word *av) C_noret; C_noret_decl(f_2788) static void C_ccall f_2788(C_word c,C_word *av) C_noret; C_noret_decl(f_2792) static void C_ccall f_2792(C_word c,C_word *av) C_noret; C_noret_decl(f_2796) static void C_ccall f_2796(C_word c,C_word *av) C_noret; C_noret_decl(f_2805) static void C_ccall f_2805(C_word c,C_word *av) C_noret; C_noret_decl(f_2811) static void C_ccall f_2811(C_word c,C_word *av) C_noret; C_noret_decl(f_2819) static void C_ccall f_2819(C_word c,C_word *av) C_noret; C_noret_decl(f_2825) static void C_ccall f_2825(C_word c,C_word *av) C_noret; C_noret_decl(f_2836) static void C_ccall f_2836(C_word c,C_word *av) C_noret; C_noret_decl(f_2844) static void C_fcall f_2844(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2848) static void C_ccall f_2848(C_word c,C_word *av) C_noret; C_noret_decl(f_2862) static void C_ccall f_2862(C_word c,C_word *av) C_noret; C_noret_decl(f_2868) static void C_ccall f_2868(C_word c,C_word *av) C_noret; C_noret_decl(f_2875) static void C_ccall f_2875(C_word c,C_word *av) C_noret; C_noret_decl(f_2878) static void C_ccall f_2878(C_word c,C_word *av) C_noret; C_noret_decl(f_2882) static void C_ccall f_2882(C_word c,C_word *av) C_noret; C_noret_decl(f_2885) static void C_ccall f_2885(C_word c,C_word *av) C_noret; C_noret_decl(f_2892) static void C_ccall f_2892(C_word c,C_word *av) C_noret; C_noret_decl(f_2896) static void C_ccall f_2896(C_word c,C_word *av) C_noret; C_noret_decl(f_2900) static void C_ccall f_2900(C_word c,C_word *av) C_noret; C_noret_decl(f_2913) static void C_ccall f_2913(C_word c,C_word *av) C_noret; C_noret_decl(f_2917) static void C_ccall f_2917(C_word c,C_word *av) C_noret; C_noret_decl(f_2921) static void C_ccall f_2921(C_word c,C_word *av) C_noret; C_noret_decl(f_2929) static void C_ccall f_2929(C_word c,C_word *av) C_noret; C_noret_decl(f_2935) static void C_ccall f_2935(C_word c,C_word *av) C_noret; C_noret_decl(f_2944) static void C_ccall f_2944(C_word c,C_word *av) C_noret; C_noret_decl(f_2947) static void C_ccall f_2947(C_word c,C_word *av) C_noret; C_noret_decl(f_2960) static void C_ccall f_2960(C_word c,C_word *av) C_noret; C_noret_decl(f_2964) static void C_ccall f_2964(C_word c,C_word *av) C_noret; C_noret_decl(f_2968) static void C_ccall f_2968(C_word c,C_word *av) C_noret; C_noret_decl(f_2984) static void C_ccall f_2984(C_word c,C_word *av) C_noret; C_noret_decl(f_2988) static void C_ccall f_2988(C_word c,C_word *av) C_noret; C_noret_decl(f_2992) static void C_ccall f_2992(C_word c,C_word *av) C_noret; C_noret_decl(f_3000) static void C_ccall f_3000(C_word c,C_word *av) C_noret; C_noret_decl(f_3013) static void C_ccall f_3013(C_word c,C_word *av) C_noret; C_noret_decl(f_3023) static void C_ccall f_3023(C_word c,C_word *av) C_noret; C_noret_decl(f_3027) static void C_ccall f_3027(C_word c,C_word *av) C_noret; C_noret_decl(f_3031) static void C_ccall f_3031(C_word c,C_word *av) C_noret; C_noret_decl(f_3039) static void C_ccall f_3039(C_word c,C_word *av) C_noret; C_noret_decl(f_3049) static void C_ccall f_3049(C_word c,C_word *av) C_noret; C_noret_decl(f_3055) static void C_ccall f_3055(C_word c,C_word *av) C_noret; C_noret_decl(f_3066) static void C_ccall f_3066(C_word c,C_word *av) C_noret; C_noret_decl(f_3070) static void C_ccall f_3070(C_word c,C_word *av) C_noret; C_noret_decl(f_3074) static void C_ccall f_3074(C_word c,C_word *av) C_noret; C_noret_decl(f_3078) static void C_ccall f_3078(C_word c,C_word *av) C_noret; C_noret_decl(f_987) static void C_ccall f_987(C_word c,C_word *av) C_noret; C_noret_decl(f_990) static void C_ccall f_990(C_word c,C_word *av) C_noret; C_noret_decl(f_993) static void C_ccall f_993(C_word c,C_word *av) C_noret; C_noret_decl(C_tcp_toplevel) C_externexport void C_ccall C_tcp_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1248) static void C_ccall trf_1248(C_word c,C_word *av) C_noret; static void C_ccall trf_1248(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1248(t0,t1,t2,t3);} C_noret_decl(trf_1283) static void C_ccall trf_1283(C_word c,C_word *av) C_noret; static void C_ccall trf_1283(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1283(t0,t1,t2);} C_noret_decl(trf_1622) static void C_ccall trf_1622(C_word c,C_word *av) C_noret; static void C_ccall trf_1622(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1622(t0,t1);} C_noret_decl(trf_1653) static void C_ccall trf_1653(C_word c,C_word *av) C_noret; static void C_ccall trf_1653(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1653(t0,t1,t2,t3);} C_noret_decl(trf_1669) static void C_ccall trf_1669(C_word c,C_word *av) C_noret; static void C_ccall trf_1669(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1669(t0,t1);} C_noret_decl(trf_1670) static void C_ccall trf_1670(C_word c,C_word *av) C_noret; static void C_ccall trf_1670(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1670(t0,t1);} C_noret_decl(trf_1677) static void C_ccall trf_1677(C_word c,C_word *av) C_noret; static void C_ccall trf_1677(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1677(t0,t1);} C_noret_decl(trf_1768) static void C_ccall trf_1768(C_word c,C_word *av) C_noret; static void C_ccall trf_1768(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1768(t0,t1,t2);} C_noret_decl(trf_1783) static void C_ccall trf_1783(C_word c,C_word *av) C_noret; static void C_ccall trf_1783(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1783(t0,t1);} C_noret_decl(trf_1785) static void C_ccall trf_1785(C_word c,C_word *av) C_noret; static void C_ccall trf_1785(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1785(t0,t1,t2,t3,t4);} C_noret_decl(trf_1943) static void C_ccall trf_1943(C_word c,C_word *av) C_noret; static void C_ccall trf_1943(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1943(t0,t1);} C_noret_decl(trf_1946) static void C_ccall trf_1946(C_word c,C_word *av) C_noret; static void C_ccall trf_1946(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1946(t0,t1);} C_noret_decl(trf_1952) static void C_ccall trf_1952(C_word c,C_word *av) C_noret; static void C_ccall trf_1952(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1952(t0,t1);} C_noret_decl(trf_1989) static void C_ccall trf_1989(C_word c,C_word *av) C_noret; static void C_ccall trf_1989(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1989(t0,t1);} C_noret_decl(trf_2129) static void C_ccall trf_2129(C_word c,C_word *av) C_noret; static void C_ccall trf_2129(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2129(t0,t1);} C_noret_decl(trf_2135) static void C_ccall trf_2135(C_word c,C_word *av) C_noret; static void C_ccall trf_2135(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2135(t0,t1);} C_noret_decl(trf_2195) static void C_ccall trf_2195(C_word c,C_word *av) C_noret; static void C_ccall trf_2195(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2195(t0,t1,t2,t3,t4);} C_noret_decl(trf_2429) static void C_ccall trf_2429(C_word c,C_word *av) C_noret; static void C_ccall trf_2429(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2429(t0,t1);} C_noret_decl(trf_2571) static void C_ccall trf_2571(C_word c,C_word *av) C_noret; static void C_ccall trf_2571(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2571(t0,t1);} C_noret_decl(trf_2844) static void C_ccall trf_2844(C_word c,C_word *av) C_noret; static void C_ccall trf_2844(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2844(t0,t1,t2);} /* f3420 in loop in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f3420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f3420,2,av);} /* tcp.scm:610: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[36]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[36]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} /* k1219 in k991 in k988 in k985 */ static void C_ccall f_1221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){ C_save_and_reclaim((void *)f_1221,2,av);} a=C_alloc(15); t2=C_mutate(&lf[2] /* (set! chicken.tcp#gethostaddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1248,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate((C_word*)lf[4]+1 /* (set! chicken.tcp#tcp-listen ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1466,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[23]+1 /* (set! chicken.tcp#tcp-listener? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1565,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[24]+1 /* (set! chicken.tcp#tcp-close ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1574,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1616,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* tcp.scm:345: chicken.base#make-parameter */ t7=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k1226 in k1308 in k1304 in loop in a2818 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1228,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1232,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ t4=C_i_foreign_string_argumentp(((C_word*)t0)[3]); /* tcp.scm:240: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[3]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=stub251(C_SCHEME_UNDEFINED,t2,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1230 in k1226 in k1308 in k1304 in loop in a2818 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1232,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=stub251(C_SCHEME_UNDEFINED,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.tcp#gethostaddr in k1219 in k991 in k988 in k985 */ static void C_fcall f_1248(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1248,4,t1,t2,t3,t4);} a=C_alloc(5); t5=(C_truep(t2)?C_i_foreign_block_argumentp(t2):C_SCHEME_FALSE); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1257,a[2]=t4,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ t8=C_i_foreign_string_argumentp(t3); /* tcp.scm:246: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[3]+1); av2[1]=t7; av2[2]=t8; tp(3,av2);}} else{ t8=C_fix((C_word)sizeof(unsigned short) * CHAR_BIT); t9=C_i_foreign_unsigned_ranged_integer_argumentp(t4,t8); t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=stub263(C_SCHEME_UNDEFINED,t6,C_SCHEME_FALSE,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k1255 in chicken.tcp#gethostaddr in k1219 in k991 in k988 in k985 */ static void C_ccall f_1257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1257,2,av);} t2=C_fix((C_word)sizeof(unsigned short) * CHAR_BIT); t3=C_i_foreign_unsigned_ranged_integer_argumentp(((C_word*)t0)[2],t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=stub263(C_SCHEME_UNDEFINED,((C_word*)t0)[4],t1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in a2818 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1283(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_1283,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ /* tcp.scm:282: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} else{ t3=C_subchar(((C_word*)t0)[3],t2); if(C_truep(C_i_char_equalp(t3,C_make_character(58)))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1306,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=C_fixnum_plus(t2,C_fix(1)); /* tcp.scm:286: substring */ t6=*((C_word*)lf[83]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t5; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t4=C_fixnum_plus(t2,C_fix(1)); /* tcp.scm:292: loop */ t7=t1; t8=t4; t1=t7; t2=t8; goto loop;}}} /* k1304 in loop in a2818 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_1306,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1310,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:287: substring */ t4=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k1308 in k1304 in loop in a2818 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_1310,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1313,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=t3; t5=lf[82]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1228,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t7=C_i_foreign_string_argumentp(t2); /* tcp.scm:240: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[3]+1); av2[1]=t6; av2[2]=t7; tp(3,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_1228(2,av2);}}} /* k1311 in k1308 in k1304 in loop in a2818 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_1313,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1316,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_eqp(C_fix(0),t2); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1326,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1330,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t6; av2[2]=lf[81]; av2[3]=lf[13]; tp(4,av2);}} else{ /* tcp.scm:285: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; C_values(4,av2);}}} /* k1314 in k1311 in k1308 in k1304 in loop in a2818 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1316,2,av);} /* tcp.scm:285: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_values(4,av2);}} /* k1324 in k1311 in k1308 in k1304 in loop in a2818 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1326,2,av);} /* tcp.scm:290: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[72]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1328 in k1311 in k1308 in k1304 in loop in a2818 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1330,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1334,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k1332 in k1328 in k1311 in k1308 in k1304 in loop in a2818 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1334,2,av);} /* tcp.scm:290: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_1372,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[4])){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1457,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* tcp.scm:305: gethostaddr */ f_1248(t4,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t4=(C_truep(t2)?C_i_foreign_block_argumentp(t2):C_SCHEME_FALSE); t5=C_fix((C_word)sizeof(unsigned short) * CHAR_BIT); t6=C_i_foreign_unsigned_ranged_integer_argumentp(((C_word*)t0)[5],t5); t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=stub394(C_SCHEME_UNDEFINED,t4,t6); f_1375(2,av2);}}} /* k1373 in k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_1375,2,av);} a=C_alloc(7); t2=C_fix((C_word)AF_INET); t3=C_i_foreign_fixnum_argumentp(t2); t4=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t5=C_fix(0); t6=stub126(C_SCHEME_UNDEFINED,t3,t4,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1381,a[2]=((C_word*)t0)[3],a[3]=t7,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t9=C_eqp(C_fix((C_word)INVALID_SOCKET),t7); if(C_truep(t9)){ /* tcp.scm:312: ##sys#error */ t10=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t8; av2[2]=lf[17]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t10=t8;{ C_word *av2=av; av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_1381(2,av2);}}} /* k1379 in k1373 in k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_1381,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1384,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t4=stub205(C_SCHEME_UNDEFINED,t3); t5=C_eqp(C_fix((C_word)SOCKET_ERROR),t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1427,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1431,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t7; av2[2]=lf[15]; av2[3]=lf[13]; tp(4,av2);}} else{ t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_1384(2,av2);}}} /* k1382 in k1379 in k1373 in k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_1384,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1387,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_fix((C_word)sizeof(struct sockaddr_in)); t4=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t5=(C_truep(((C_word*)t0)[4])?C_i_foreign_block_argumentp(((C_word*)t0)[4]):C_SCHEME_FALSE); t6=C_i_foreign_fixnum_argumentp(t3); t7=stub135(C_SCHEME_UNDEFINED,t4,t5,t6); t8=C_eqp(C_fix((C_word)SOCKET_ERROR),t7); if(C_truep(t8)){ t9=stub105(C_SCHEME_UNDEFINED); t10=t9; t11=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t12=stub164(C_SCHEME_UNDEFINED,t11); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1403,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1407,a[2]=t13,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t14; av2[2]=lf[14]; av2[3]=lf[13]; tp(4,av2);}} else{ t9=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t9; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k1385 in k1382 in k1379 in k1373 in k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1387,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1401 in k1382 in k1379 in k1373 in k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_1403,2,av);} /* tcp.scm:317: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[8]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; av2[7]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k1405 in k1382 in k1379 in k1373 in k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1407,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1411,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t6=stub109(t4,t5); /* tcp.scm:171: ##sys#peek-c-string */ t7=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k1409 in k1405 in k1382 in k1379 in k1373 in k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1411,2,av);} /* tcp.scm:317: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1425 in k1379 in k1373 in k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1427,2,av);} /* tcp.scm:315: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[8]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1429 in k1379 in k1373 in k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1431,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1435,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k1433 in k1429 in k1379 in k1373 in k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1435,2,av);} /* tcp.scm:315: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1455 in k1370 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_1457,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_1375(2,av2);}} else{ /* tcp.scm:306: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[8]; av2[4]=lf[18]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}} /* chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_1466,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(100):C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1482,a[2]=t1,a[3]=t6,a[4]=t2,a[5]=t11,tmp=(C_word)a,a+=6,tmp); /* tcp.scm:323: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[20]+1); av2[1]=t14; av2[2]=t2; tp(3,av2);}} /* k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_1482,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1485,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_fixnum_lessp(((C_word*)t0)[4],C_fix(0)); if(C_truep(t3)){ if(C_truep(t3)){ /* tcp.scm:325: ##sys#signal-hook */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=lf[21]; av2[3]=lf[8]; av2[4]=lf[22]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_1485(2,av2);}}} else{ if(C_truep(C_fixnum_greaterp(((C_word*)t0)[4],C_fix(65535)))){ /* tcp.scm:325: ##sys#signal-hook */ t4=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=lf[21]; av2[3]=lf[8]; av2[4]=lf[22]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_1485(2,av2);}}}} /* k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1485,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1488,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* tcp.scm:326: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_1488,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1491,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=t2; t4=C_fix((C_word)SOCK_STREAM); t5=((C_word*)t0)[5]; t6=((C_word*)t0)[4]; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1372,a[2]=t4,a[3]=t3,a[4]=t5,a[5]=t6,tmp=(C_word)a,a+=6,tmp); t8=C_fix((C_word)sizeof(struct sockaddr_in)); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[19]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[19]+1); av2[1]=t7; av2[2]=t8; av2[3]=C_make_character(32); tp(4,av2);}} /* k1489 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_1491,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1494,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_foreign_fixnum_argumentp(t2); t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t6=stub145(C_SCHEME_UNDEFINED,t4,t5); t7=C_eqp(C_fix((C_word)SOCKET_ERROR),t6); if(C_truep(t7)){ t8=stub105(C_SCHEME_UNDEFINED); t9=t8; t10=C_i_foreign_fixnum_argumentp(t2); t11=stub164(C_SCHEME_UNDEFINED,t10); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1513,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1517,a[2]=t12,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t13; av2[2]=lf[12]; av2[3]=lf[13]; tp(4,av2);}} else{ t8=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_record2(&a,2,lf[5],t2); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k1492 in k1489 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1494,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_record2(&a,2,lf[5],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1511 in k1489 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_1513,2,av);} /* tcp.scm:329: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[8]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k1515 in k1489 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1517,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1521,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t6=stub109(t4,t5); /* tcp.scm:171: ##sys#peek-c-string */ t7=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k1519 in k1515 in k1489 in k1486 in k1483 in k1480 in chicken.tcp#tcp-listen in k1219 in k991 in k988 in k985 */ static void C_ccall f_1521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1521,2,av);} /* tcp.scm:329: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.tcp#tcp-listener? in k1219 in k991 in k988 in k985 */ static void C_ccall f_1565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1565,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(C_blockp(t2))?C_i_structurep(t2,lf[5]):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.tcp#tcp-close in k1219 in k991 in k988 in k985 */ static void C_ccall f_1574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_1574,3,av);} a=C_alloc(7); t3=C_i_check_structure(t2,lf[5]); t4=C_slot(t2,C_fix(1)); t5=C_i_foreign_fixnum_argumentp(t4); t6=stub164(C_SCHEME_UNDEFINED,t5); t7=C_eqp(C_fix((C_word)SOCKET_ERROR),t6); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1594,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1598,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t9; av2[2]=lf[26]; av2[3]=lf[13]; tp(4,av2);}} else{ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k1592 in chicken.tcp#tcp-close in k1219 in k991 in k988 in k985 */ static void C_ccall f_1594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1594,2,av);} /* tcp.scm:340: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[25]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1596 in chicken.tcp#tcp-close in k1219 in k991 in k988 in k985 */ static void C_ccall f_1598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1598,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1602,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k1600 in k1596 in chicken.tcp#tcp-close in k1219 in k991 in k988 in k985 */ static void C_ccall f_1602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1602,2,av);} /* tcp.scm:340: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_1616,2,av);} a=C_alloc(16); t2=C_mutate((C_word*)lf[27]+1 /* (set! chicken.tcp#tcp-buffer-size ...) */,t1); t3=C_set_block_item(lf[28] /* chicken.tcp#tcp-read-timeout */,0,C_SCHEME_UNDEFINED); t4=C_set_block_item(lf[29] /* chicken.tcp#tcp-write-timeout */,0,C_SCHEME_UNDEFINED); t5=C_set_block_item(lf[30] /* chicken.tcp#tcp-connect-timeout */,0,C_SCHEME_UNDEFINED); t6=C_set_block_item(lf[31] /* chicken.tcp#tcp-accept-timeout */,0,C_SCHEME_UNDEFINED); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1622,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t12=C_fixnum_times(C_fix(60),C_fix(1000)); t13=C_set_block_item(t10,0,t12); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1639,a[2]=((C_word*)t0)[2],a[3]=t8,a[4]=t10,tmp=(C_word)a,a+=5,tmp); t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3078,a[2]=t14,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:356: check */ f_1622(t15,lf[107]);} /* check in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1622(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_1622,2,t1,t2);} a=C_alloc(4); t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1624,a[2]=t2,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_1624 in check in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1624,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1628,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ /* tcp.scm:353: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1626 */ static void C_ccall f_1628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1628,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_1639,2,av);} a=C_alloc(8); t2=C_mutate((C_word*)lf[28]+1 /* (set! chicken.tcp#tcp-read-timeout ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1643,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3074,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* tcp.scm:357: check */ f_1622(t4,lf[106]);} /* k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_1643,2,av);} a=C_alloc(7); t2=C_mutate((C_word*)lf[29]+1 /* (set! chicken.tcp#tcp-write-timeout ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1647,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3070,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* tcp.scm:358: check */ f_1622(t4,lf[105]);} /* k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1647,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[30]+1 /* (set! chicken.tcp#tcp-connect-timeout ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1651,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3066,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* tcp.scm:359: check */ f_1622(t4,lf[104]);} /* k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){ C_save_and_reclaim((void *)f_1651,2,av);} a=C_alloc(31); t2=C_mutate((C_word*)lf[31]+1 /* (set! chicken.tcp#tcp-accept-timeout ...) */,t1); t3=*((C_word*)lf[27]+1); t4=C_mutate(&lf[32] /* (set! chicken.tcp#io-ports ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1653,a[2]=t3,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp)); t5=C_mutate((C_word*)lf[64]+1 /* (set! chicken.tcp#tcp-accept ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2416,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[68]+1 /* (set! chicken.tcp#tcp-accept-ready? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2511,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[71]+1 /* (set! chicken.tcp#tcp-connect ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2561,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate(&lf[84] /* (set! chicken.tcp#tcp-port->fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2844,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[88]+1 /* (set! chicken.tcp#tcp-addresses ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2862,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[92]+1 /* (set! chicken.tcp#tcp-port-numbers ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2929,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[96]+1 /* (set! chicken.tcp#tcp-listener-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3000,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[99]+1 /* (set! chicken.tcp#tcp-abandon-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3039,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[101]+1 /* (set! chicken.tcp#tcp-listener-fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3055,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t14=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t14; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} /* chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1653(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_1653,4,t0,t1,t2,t3);} a=C_alloc(14); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1657,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(make_socket_nonblocking(t3))){ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1657(2,av2);}} else{ t5=stub105(C_SCHEME_UNDEFINED); t6=t5; t7=t3; t8=C_i_foreign_fixnum_argumentp(t7); t9=stub164(C_SCHEME_UNDEFINED,t8); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2404,a[2]=t4,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2408,a[2]=t10,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[11]+1); av2[1]=t11; av2[2]=lf[63]; av2[3]=lf[13]; tp(4,av2);}}} /* k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1657,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1660,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[19]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[19]+1); av2[1]=t2; av2[2]=C_fix(1024); av2[3]=C_make_character(32); tp(4,av2);}} /* k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_1660,2,av);} a=C_alloc(24); t2=t1; t3=C_a_i_vector5(&a,5,((C_word*)t0)[2],C_SCHEME_FALSE,C_SCHEME_FALSE,t2,C_fix(0)); t4=t3; t5=C_fix(0); t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_fix(0); t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_FALSE; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_FALSE; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1666,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t6,a[5]=t4,a[6]=t8,a[7]=((C_word*)t0)[3],a[8]=t12,a[9]=t10,tmp=(C_word)a,a+=10,tmp); /* tcp.scm:372: tbs */ t14=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} /* k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_1666,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1669,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(t2)){ t4=C_fixnum_greaterp(t2,C_fix(0)); t5=t3; f_1669(t5,(C_truep(t4)?lf[62]:C_SCHEME_FALSE));} else{ t4=t3; f_1669(t4,C_SCHEME_FALSE);}} /* k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1669(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(66,0,8)))){ C_save_and_reclaim_args((void *)trf_1669,2,t0,t1);} a=C_alloc(66); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1670,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li7),tmp=(C_word)a,a+=8,tmp); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2057,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word)li15),tmp=(C_word)a,a+=7,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2079,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word)li16),tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2121,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[5],a[6]=((C_word)li17),tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2171,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word)li18),tmp=(C_word)a,a+=7,tmp); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2189,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word)li20),tmp=(C_word)a,a+=7,tmp); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2254,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word)li24),tmp=(C_word)a,a+=7,tmp); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2373,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word)li25),tmp=(C_word)a,a+=6,tmp); /* tcp.scm:401: chicken.port#make-input-port */ t13=*((C_word*)lf[61]+1);{ C_word av2[9]; av2[0]=t13; av2[1]=t5; av2[2]=t6; av2[3]=t7; av2[4]=t8; av2[5]=t9; av2[6]=t10; av2[7]=t11; av2[8]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(9,av2);}} /* read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1670(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_1670,2,t0,t1);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1674,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* tcp.scm:376: tcp-read-timeout */ t3=*((C_word*)lf[28]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1672 in read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_1674,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1677,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1764,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:377: chicken.time#current-milliseconds */ t5=*((C_word*)lf[42]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3; f_1677(t4,C_SCHEME_FALSE);}} /* k1675 in k1672 in read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1677(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_1677,2,t0,t1);} a=C_alloc(13); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1682,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li6),tmp=(C_word)a,a+=11,tmp)); t6=((C_word*)t4)[1];{ C_word av2[2]; av2[0]=t6; av2[1]=((C_word*)t0)[8]; f_1682(2,av2);}} /* loop in k1675 in k1672 in read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_1682,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=C_i_foreign_fixnum_argumentp(t2); t4=(C_truep(((C_word*)t0)[3])?C_i_foreign_block_argumentp(((C_word*)t0)[3]):C_SCHEME_FALSE); t5=C_fix(1024); t6=C_fix(0); t7=stub172(C_SCHEME_UNDEFINED,t3,t4,t5,t6); t8=C_eqp(C_fix((C_word)SOCKET_ERROR),t7); if(C_truep(t8)){ if(C_truep(stub114(C_SCHEME_UNDEFINED))){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1701,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ /* tcp.scm:383: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[39]+1); av2[1]=t9; av2[2]=*((C_word*)lf[33]+1); av2[3]=((C_word*)t0)[6]; tp(4,av2);}} else{ t10=t9;{ C_word *av2=av; av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_1701(2,av2);}}} else{ if(C_truep(stub120(C_SCHEME_UNDEFINED))){ /* tcp.scm:393: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[40]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[4])[1]; tp(3,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1738,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1742,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t10; av2[2]=lf[41]; av2[3]=lf[13]; tp(4,av2);}}}} else{ t9=C_set_block_item(((C_word*)t0)[7],0,t7); t10=C_i_set_i_slot(((C_word*)t0)[8],C_fix(4),t7); t11=C_set_block_item(((C_word*)t0)[9],0,C_fix(0)); t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* k1699 in loop in k1675 in k1672 in read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1701,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1704,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* tcp.scm:385: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[37]+1); av2[1]=t2; av2[2]=*((C_word*)lf[33]+1); av2[3]=((C_word*)t0)[5]; av2[4]=lf[38]; tp(5,av2);}} /* k1702 in k1699 in loop in k1675 in k1672 in read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1704,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1707,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* tcp.scm:386: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[36]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[36]+1); av2[1]=t2; tp(2,av2);}} /* k1705 in k1702 in k1699 in loop in k1675 in k1672 in read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_1707,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1710,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_slot(*((C_word*)lf[33]+1),C_fix(13)))){ /* tcp.scm:388: ##sys#signal-hook */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[34]; av2[3]=lf[35]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ /* tcp.scm:391: loop */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[3]; f_1682(2,av2);}}} /* k1708 in k1705 in k1702 in k1699 in loop in k1675 in k1672 in read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 in ... */ static void C_ccall f_1710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1710,2,av);} /* tcp.scm:391: loop */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_1682(2,av2);}} /* k1736 in loop in k1675 in k1672 in read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1738,2,av);} /* tcp.scm:395: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=C_SCHEME_FALSE; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1740 in loop in k1675 in k1672 in read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1742,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1746,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k1744 in k1740 in loop in k1675 in k1672 in read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1746,2,av);} /* tcp.scm:395: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1762 in k1672 in read-input in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_1764,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; f_1677(t2,C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]));} /* k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_1767,2,av);} a=C_alloc(29); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1768,a[2]=((C_word*)t0)[2],a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1908,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=(C_truep(((C_word*)((C_word*)t0)[5])[1])?(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2021,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=((C_word)li11),tmp=(C_word)a,a+=6,tmp):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2041,a[2]=t3,a[3]=((C_word)li12),tmp=(C_word)a,a+=4,tmp)); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1935,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word)li13),tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2005,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word)li14),tmp=(C_word)a,a+=5,tmp); /* tcp.scm:514: chicken.port#make-output-port */ t8=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t4; av2[2]=t5; av2[3]=t6; av2[4]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ /* tcp.scm:514: chicken.port#make-output-port */ t7=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=t5; av2[3]=t6; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1768(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1768,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1772,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* tcp.scm:484: tcp-write-timeout */ t4=*((C_word*)lf[29]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_1772,2,av);} a=C_alloc(11); t2=t1; t3=C_block_size(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1783,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t4,tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1905,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:487: chicken.time#current-milliseconds */ t7=*((C_word*)lf[42]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=t5; f_1783(t6,C_SCHEME_FALSE);}} /* k1781 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1783(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_1783,2,t0,t1);} a=C_alloc(9); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1785,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word)li9),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_1785(t5,((C_word*)t0)[5],((C_word*)t0)[6],C_fix(0),t1);} /* loop in k1781 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1785(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_1785,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=C_i_fixnum_min(C_fix(8192),t2); t6=((C_word*)t0)[2]; t7=((C_word*)t0)[3]; t8=t3; t9=C_i_foreign_fixnum_argumentp(t6); t10=(C_truep(t7)?C_i_foreign_block_argumentp(t7):C_SCHEME_FALSE); t11=C_i_foreign_fixnum_argumentp(t8); t12=C_i_foreign_fixnum_argumentp(t5); t13=C_fix(0); t14=stub214(C_SCHEME_UNDEFINED,t9,t10,t11,t12,t13); t15=C_eqp(C_fix((C_word)SOCKET_ERROR),t14); if(C_truep(t15)){ if(C_truep(stub114(C_SCHEME_UNDEFINED))){ t16=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1807,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); if(C_truep(t4)){ /* tcp.scm:493: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[39]+1); av2[1]=t16; av2[2]=*((C_word*)lf[33]+1); av2[3]=t4; tp(4,av2);}} else{ t17=t16;{ C_word av2[2]; av2[0]=t17; av2[1]=C_SCHEME_UNDEFINED; f_1807(2,av2);}}} else{ if(C_truep(stub120(C_SCHEME_UNDEFINED))){ t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1839,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=((C_word)li8),tmp=(C_word)a,a+=7,tmp); /* tcp.scm:503: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[40]+1); av2[1]=t1; av2[2]=t16; tp(3,av2);}} else{ t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1850,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1854,a[2]=t16,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[11]+1); av2[1]=t17; av2[2]=lf[45]; av2[3]=lf[13]; tp(4,av2);}}}} else{ if(C_truep(C_fixnum_lessp(t14,t2))){ t16=C_fixnum_difference(t2,t14); t17=t16; t18=C_fixnum_plus(t3,t14); t19=t18; t20=C_eqp(t14,C_fix(0)); if(C_truep(t20)){ /* tcp.scm:508: loop */ t23=t1; t24=t17; t25=t19; t26=((C_word*)t0)[5]; t1=t23; t2=t24; t3=t25; t4=t26; goto loop;} else{ if(C_truep(((C_word*)t0)[5])){ t21=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1898,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t17,a[6]=t19,tmp=(C_word)a,a+=7,tmp); /* tcp.scm:512: chicken.time#current-milliseconds */ t22=*((C_word*)lf[42]+1);{ C_word av2[2]; av2[0]=t22; av2[1]=t21; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ /* tcp.scm:508: loop */ t23=t1; t24=t17; t25=t19; t26=C_SCHEME_FALSE; t1=t23; t2=t24; t3=t25; t4=t26; goto loop;}}} else{ t16=t1;{ C_word av2[2]; av2[0]=t16; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}}} /* k1805 in loop in k1781 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_1807,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1810,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* tcp.scm:495: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[37]+1); av2[1]=t2; av2[2]=*((C_word*)lf[33]+1); av2[3]=((C_word*)t0)[8]; av2[4]=lf[44]; tp(5,av2);}} /* k1808 in k1805 in loop in k1781 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_1810,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* tcp.scm:496: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[36]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[36]+1); av2[1]=t2; tp(2,av2);}} /* k1811 in k1808 in k1805 in loop in k1781 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 in ... */ static void C_ccall f_1813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_1813,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1816,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_slot(*((C_word*)lf[33]+1),C_fix(13)))){ /* tcp.scm:498: ##sys#signal-hook */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[34]; av2[3]=lf[43]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ /* tcp.scm:501: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_1785(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}} /* k1814 in k1811 in k1808 in k1805 in loop in k1781 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in ... */ static void C_ccall f_1816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1816,2,av);} /* tcp.scm:501: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1785(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* a1838 in loop in k1781 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1839,2,av);} /* tcp.scm:504: g619 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1785(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k1848 in loop in k1781 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1850,2,av);} /* tcp.scm:506: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=C_SCHEME_FALSE; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1852 in loop in k1781 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1854,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1858,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k1856 in k1852 in loop in k1781 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1858,2,av);} /* tcp.scm:506: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1896 in loop in k1781 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_1898,2,av);} a=C_alloc(29); t2=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[2]); /* tcp.scm:508: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1785(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* k1903 in k1770 in output in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_1905,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; f_1783(t2,C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]));} /* k1906 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1908,2,av);} a=C_alloc(6); t2=t1; t3=C_i_setslot(((C_word*)t0)[2],C_fix(3),lf[46]); t4=C_i_setslot(t2,C_fix(3),lf[47]); t5=C_i_setslot(((C_word*)t0)[2],C_fix(7),lf[48]); t6=C_i_setslot(t2,C_fix(7),lf[48]); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1923,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* tcp.scm:542: ##sys#set-port-data! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[49]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[49]+1); av2[1]=t7; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k1921 in k1906 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1923,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* tcp.scm:543: ##sys#set-port-data! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[49]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[49]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k1924 in k1921 in k1906 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1926,2,av);} /* tcp.scm:544: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_values(4,av2);}} /* a1934 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_1935,2,av);} a=C_alloc(11); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=C_SCHEME_UNDEFINED; t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1943,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1989,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ t5=C_block_size(((C_word*)((C_word*)t0)[6])[1]); t6=t4; f_1989(t6,C_fixnum_greaterp(t5,C_fix(0)));} else{ t5=t4; f_1989(t5,C_SCHEME_FALSE);}}} /* k1941 in a1934 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1943(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1943,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1946,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_slot(((C_word*)t0)[5],C_fix(2)))){ t3=t2; f_1946(t3,C_SCHEME_UNDEFINED);} else{ t3=((C_word*)t0)[3]; t4=C_fix((C_word)SHUT_WR); t5=C_i_foreign_fixnum_argumentp(t3); t6=C_i_foreign_fixnum_argumentp(t4); t7=t2; f_1946(t7,stub183(C_SCHEME_UNDEFINED,t5,t6));}} /* k1944 in k1941 in a1934 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1946(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_1946,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t3=((C_word*)t0)[3]; t4=C_i_foreign_fixnum_argumentp(t3); t5=stub164(C_SCHEME_UNDEFINED,t4); t6=t2; f_1952(t6,C_eqp(C_fix((C_word)SOCKET_ERROR),t5));} else{ t3=t2; f_1952(t3,C_SCHEME_FALSE);}} /* k1950 in k1944 in k1941 in a1934 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1952(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_1952,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1963,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=lf[51]; av2[3]=lf[13]; tp(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1957 in k1950 in k1944 in k1941 in a1934 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1959,2,av);} /* tcp.scm:532: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=C_SCHEME_FALSE; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k1961 in k1950 in k1944 in k1941 in a1934 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1963,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1967,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k1965 in k1961 in k1950 in k1944 in k1941 in a1934 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1967,2,av);} /* tcp.scm:532: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k1987 in a1934 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_1989(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_1989,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1992,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* tcp.scm:528: output */ t3=((C_word*)t0)[4]; f_1768(t3,t2,((C_word*)((C_word*)t0)[2])[1]);} else{ t2=((C_word*)t0)[3]; f_1943(t2,C_SCHEME_UNDEFINED);}} /* k1990 in k1987 in a1934 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_1992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1992,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[52]); t3=((C_word*)t0)[3]; f_1943(t3,t2);} /* f_2005 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2005,2,av);} a=C_alloc(4); t2=C_block_size(((C_word*)((C_word*)t0)[2])[1]); if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2015,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:536: output */ t4=((C_word*)t0)[3]; f_1768(t4,t3,((C_word*)((C_word*)t0)[2])[1]);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2013 */ static void C_ccall f_2015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2015,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[53]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_2021 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2021,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2026,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* tcp.scm:517: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=t2; tp(4,av2);}} /* k2024 */ static void C_ccall f_2026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2026,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_block_size(((C_word*)((C_word*)t0)[2])[1]); if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[3]))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2035,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* tcp.scm:519: output */ t5=((C_word*)t0)[5]; f_1768(t5,t4,((C_word*)((C_word*)t0)[2])[1]);} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2033 in k2024 */ static void C_ccall f_2035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2035,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[50]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_2041 in k1765 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2041,3,av);} t3=C_block_size(t2); if(C_truep(C_fixnum_greaterp(t3,C_fix(0)))){ /* tcp.scm:523: output */ t4=((C_word*)t0)[2]; f_1768(t4,t1,t2);} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a2056 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2057,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2061,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ /* tcp.scm:404: read-input */ t3=((C_word*)t0)[5]; f_1670(t3,t2);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2061(2,av2);}}} /* k2059 in a2056 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2061,2,av);} if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_subchar(((C_word*)t0)[5],((C_word*)((C_word*)t0)[2])[1]); t3=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t4=C_set_block_item(((C_word*)t0)[2],0,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a2078 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_2079,2,av);} a=C_alloc(11); t2=C_fixnum_lessp(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t2)){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=((C_word*)t0)[4]; t4=C_i_foreign_fixnum_argumentp(t3); t5=stub200(C_SCHEME_UNDEFINED,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2092,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_eqp(C_fix((C_word)SOCKET_ERROR),t6); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2105,a[2]=t7,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2109,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t10; av2[2]=lf[55]; av2[3]=lf[13]; tp(4,av2);}} else{ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_eqp(t6,C_fix(1)); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}} /* k2090 in a2078 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2092,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2103 in a2078 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2105,2,av);} /* tcp.scm:416: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=C_SCHEME_FALSE; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2107 in a2078 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2109,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2113,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k2111 in k2107 in a2078 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2113,2,av);} /* tcp.scm:416: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a2120 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2121,2,av);} a=C_alloc(5); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=C_SCHEME_UNDEFINED; t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2129,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_slot(((C_word*)t0)[5],C_fix(1)))){ t4=t3; f_2129(t4,C_SCHEME_UNDEFINED);} else{ t4=((C_word*)t0)[3]; t5=C_fix((C_word)SHUT_RD); t6=C_i_foreign_fixnum_argumentp(t4); t7=C_i_foreign_fixnum_argumentp(t5); t8=t3; f_2129(t8,stub183(C_SCHEME_UNDEFINED,t6,t7));}}} /* k2127 in a2120 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_2129(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_2129,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2135,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t3=((C_word*)t0)[3]; t4=C_i_foreign_fixnum_argumentp(t3); t5=stub164(C_SCHEME_UNDEFINED,t4); t6=t2; f_2135(t6,C_eqp(C_fix((C_word)SOCKET_ERROR),t5));} else{ t3=t2; f_2135(t3,C_SCHEME_FALSE);}} /* k2133 in k2127 in a2120 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_2135(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_2135,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2142,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2146,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[11]+1); av2[1]=t3; av2[2]=lf[56]; av2[3]=lf[13]; tp(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2140 in k2133 in k2127 in a2120 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2142,2,av);} /* tcp.scm:423: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=C_SCHEME_FALSE; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2144 in k2133 in k2127 in a2120 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2146,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2150,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k2148 in k2144 in k2133 in k2127 in a2120 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2150,2,av);} /* tcp.scm:423: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a2170 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2171,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2175,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ /* tcp.scm:426: read-input */ t3=((C_word*)t0)[5]; f_1670(t3,t2);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2175(2,av2);}}} /* k2173 in a2170 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2175,2,av);} if(C_truep(C_fixnum_lessp(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ t2=C_subchar(((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a2188 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_2189,6,av);} a=C_alloc(11); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2195,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t7,a[7]=((C_word*)t0)[5],a[8]=((C_word)li19),tmp=(C_word)a,a+=9,tmp)); t9=((C_word*)t7)[1]; f_2195(t9,t1,t3,C_fix(0),t5);} /* loop in a2188 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_2195(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_2195,5,t0,t1,t2,t3,t4);} a=C_alloc(8); t5=C_eqp(t2,C_fix(0)); if(C_truep(t5)){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(C_fixnum_lessp(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ t6=C_fixnum_difference(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[2])[1]); t7=C_fixnum_lessp(t2,t6); t8=(C_truep(t7)?t2:t6); t9=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],t8); t10=C_substring_copy(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)((C_word*)t0)[2])[1],t9,t4); t11=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],t8); t12=C_set_block_item(((C_word*)t0)[2],0,t11); t13=C_fixnum_difference(t2,t8); t14=C_fixnum_plus(t3,t8); t15=C_fixnum_plus(t4,t8); /* tcp.scm:438: loop */ t17=t1; t18=t13; t19=t14; t20=t15; t1=t17; t2=t18; t3=t19; t4=t20; goto loop;} else{ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2243,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=t4,tmp=(C_word)a,a+=8,tmp); /* tcp.scm:440: read-input */ t7=((C_word*)t0)[7]; f_1670(t7,t6);}}} /* k2241 in loop in a2188 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2243,2,av);} t2=C_eqp(((C_word*)((C_word*)t0)[2])[1],C_fix(0)); if(C_truep(t2)){ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* tcp.scm:443: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_2195(t3,((C_word*)t0)[4],((C_word*)t0)[6],((C_word*)t0)[3],((C_word*)t0)[7]);}} /* a2253 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_2254,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2258,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ /* tcp.scm:446: read-input */ t5=((C_word*)t0)[5]; f_1670(t5,t4);} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2258(2,av2);}}} /* k2256 in a2253 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){ C_save_and_reclaim((void *)f_2258,2,av);} a=C_alloc(15); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[5]; t3=(C_truep(t2)?t2:C_fixnum_difference(*((C_word*)lf[57]+1),((C_word*)((C_word*)t0)[2])[1])); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2272,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word)li22),tmp=(C_word)a,a+=8,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2328,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[2],a[4]=((C_word)li23),tmp=(C_word)a,a+=5,tmp); /* tcp.scm:450: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}}} /* a2271 in k2256 in a2253 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_2272,2,av);} a=C_alloc(8); t2=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]); t3=C_i_fixnum_min(((C_word*)((C_word*)t0)[4])[1],t2); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2282,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li21),tmp=(C_word)a,a+=8,tmp); /* tcp.scm:451: ##sys#scan-buffer-line */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[58]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[58]+1); av2[1]=t1; av2[2]=((C_word*)t0)[5]; av2[3]=t3; av2[4]=((C_word*)((C_word*)t0)[2])[1]; av2[5]=t4; tp(6,av2);}} /* a2281 in a2271 in k2256 in a2253 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_2282,3,av);} a=C_alloc(8); t3=C_fixnum_difference(t2,((C_word*)((C_word*)t0)[2])[1]); t4=t3; if(C_truep(C_fixnum_greater_or_equal_p(t4,((C_word*)((C_word*)t0)[3])[1]))){ /* tcp.scm:458: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=t2; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2298,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* tcp.scm:459: read-input */ t6=((C_word*)t0)[6]; f_1670(t6,t5);}} /* k2296 in a2281 in a2271 in k2256 in a2253 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2298,2,av);} t2=C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); t3=C_set_block_item(((C_word*)t0)[2],0,t2); if(C_truep(C_fixnum_lessp(((C_word*)((C_word*)t0)[4])[1],((C_word*)((C_word*)t0)[5])[1]))){ t4=C_fixnum_plus(((C_word*)((C_word*)t0)[4])[1],((C_word*)((C_word*)t0)[2])[1]); t5=C_i_fixnum_min(((C_word*)((C_word*)t0)[5])[1],t4); /* tcp.scm:462: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=t5; C_values(5,av2);}} else{ /* tcp.scm:465: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[6]; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}}} /* a2327 in k2256 in a2253 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2328,5,av);} if(C_truep(t4)){ t5=C_slot(((C_word*)t0)[2],C_fix(4)); t6=C_fixnum_plus(t5,C_fix(1)); t7=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),t6); t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),C_fix(0)); t9=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t5=C_slot(((C_word*)t0)[2],C_fix(5)); t6=C_block_size(t3); t7=C_fixnum_plus(t5,t6); t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),t7); t9=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* a2372 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_2373,3,av);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=lf[59]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2383,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* tcp.scm:478: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[60]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[60]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=((C_word*)((C_word*)t0)[3])[1]; tp(5,av2);}}} /* k2381 in a2372 in k1667 in k1664 in k1658 in k1655 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2383,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2402 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2404,2,av);} /* tcp.scm:365: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2406 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2408,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2412,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t6=stub109(t4,t5); /* tcp.scm:171: ##sys#peek-c-string */ t7=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k2410 in k2406 in chicken.tcp#io-ports in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2412,2,av);} /* tcp.scm:365: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2416,3,av);} a=C_alloc(5); t3=C_i_check_structure(t2,lf[5]); t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2426,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* tcp.scm:549: tcp-accept-timeout */ t7=*((C_word*)lf[31]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k2424 in chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_2426,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2429,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2509,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:550: chicken.time#current-milliseconds */ t5=*((C_word*)lf[42]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3; f_2429(t4,C_SCHEME_FALSE);}} /* k2427 in k2424 in chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_2429(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_2429,2,t0,t1);} a=C_alloc(10); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2434,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word)li27),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1];{ C_word av2[2]; av2[0]=t6; av2[1]=((C_word*)t0)[5]; f_2434(2,av2);}} /* loop in k2427 in k2424 in chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2434,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2438,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[6])){ /* tcp.scm:553: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[39]+1); av2[1]=t2; av2[2]=*((C_word*)lf[33]+1); av2[3]=((C_word*)t0)[6]; tp(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2438(2,av2);}}} /* k2436 in loop in k2427 in k2424 in chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_2438,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2441,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* tcp.scm:554: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[37]+1); av2[1]=t2; av2[2]=*((C_word*)lf[33]+1); av2[3]=((C_word*)t0)[2]; av2[4]=lf[38]; tp(5,av2);}} /* k2439 in k2436 in loop in k2427 in k2424 in chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_2441,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2444,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* tcp.scm:555: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[36]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[36]+1); av2[1]=t2; tp(2,av2);}} /* k2442 in k2439 in k2436 in loop in k2427 in k2424 in chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_2444,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_slot(*((C_word*)lf[33]+1),C_fix(13)))){ /* tcp.scm:557: ##sys#signal-hook */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[34]; av2[3]=lf[65]; av2[4]=lf[67]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2447(2,av2);}}} /* k2445 in k2442 in k2439 in k2436 in loop in k2427 in k2424 in chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2447,2,av);} a=C_alloc(7); t2=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t3=stub153(C_SCHEME_UNDEFINED,t2,C_SCHEME_FALSE,C_SCHEME_FALSE); t4=C_eqp(C_fix((C_word)INVALID_SOCKET),t3); if(C_truep(C_i_not(t4))){ /* tcp.scm:563: io-ports */ t5=lf[32]; f_1653(t5,((C_word*)t0)[3],lf[65],t3);} else{ if(C_truep(stub120(C_SCHEME_UNDEFINED))){ /* tcp.scm:565: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[40]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)((C_word*)t0)[4])[1]; tp(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2475,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2479,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t6; av2[2]=lf[66]; av2[3]=lf[13]; tp(4,av2);}}}} /* k2473 in k2445 in k2442 in k2439 in k2436 in loop in k2427 in k2424 in chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2475,2,av);} /* tcp.scm:567: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[65]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2477 in k2445 in k2442 in k2439 in k2436 in loop in k2427 in k2424 in chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2479,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2483,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k2481 in k2477 in k2445 in k2442 in k2439 in k2436 in loop in k2427 in k2424 in chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2483,2,av);} /* tcp.scm:567: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2507 in k2424 in chicken.tcp#tcp-accept in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_2509,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; f_2429(t2,C_s_a_i_plus(&a,2,((C_word*)t0)[3],t1));} /* chicken.tcp#tcp-accept-ready? in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_2511,3,av);} a=C_alloc(11); t3=C_i_check_structure_2(t2,lf[5],lf[69]); t4=C_slot(t2,C_fix(1)); t5=C_i_foreign_fixnum_argumentp(t4); t6=stub200(C_SCHEME_UNDEFINED,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2521,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=C_eqp(C_fix((C_word)SOCKET_ERROR),t7); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2534,a[2]=t8,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2538,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t11; av2[2]=lf[70]; av2[3]=lf[13]; tp(4,av2);}} else{ t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=C_eqp(C_fix(1),t7); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k2519 in chicken.tcp#tcp-accept-ready? in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2521,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(C_fix(1),((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2532 in chicken.tcp#tcp-accept-ready? in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2534,2,av);} /* tcp.scm:574: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[69]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2536 in chicken.tcp#tcp-accept-ready? in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2538,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2542,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k2540 in k2536 in chicken.tcp#tcp-accept-ready? in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2542,2,av);} /* tcp.scm:574: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,2)))){ C_save_and_reclaim((void*)f_2561,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t5=C_i_nullp(t3); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t3)); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2568,a[2]=t4,a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* tcp.scm:587: tcp-connect-timeout */ t10=*((C_word*)lf[30]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_2568,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2571,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2836,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:588: chicken.time#current-milliseconds */ t5=*((C_word*)lf[42]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3; f_2571(t4,C_SCHEME_FALSE);}} /* k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_2571(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2571,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2574,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=C_fix((C_word)sizeof(struct sockaddr_in)); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[19]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[19]+1); av2[1]=t3; av2[2]=t4; av2[3]=C_make_character(32); tp(4,av2);}} /* k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_2574,2,av);} a=C_alloc(21); t2=t1; t3=C_i_check_string(((C_word*)((C_word*)t0)[2])[1]); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2580,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2580(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2811,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2819,a[2]=((C_word*)t0)[2],a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2825,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word)li33),tmp=(C_word)a,a+=5,tmp); /* tcp.scm:592: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t5; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}}} /* k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_2580,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2583,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* tcp.scm:594: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; tp(3,av2);}} /* k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_2583,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2586,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2805,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* tcp.scm:595: gethostaddr */ f_1248(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[6])[1]);} /* k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_2586,2,av);} a=C_alloc(16); t2=C_fix((C_word)AF_INET); t3=C_fix((C_word)SOCK_STREAM); t4=C_i_foreign_fixnum_argumentp(t2); t5=C_i_foreign_fixnum_argumentp(t3); t6=C_fix(0); t7=stub126(C_SCHEME_UNDEFINED,t4,t5,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2592,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t10=C_eqp(C_fix((C_word)INVALID_SOCKET),t8); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2788,a[2]=t9,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2792,a[2]=t11,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t12; av2[2]=lf[78]; av2[3]=lf[13]; tp(4,av2);}} else{ t11=t9;{ C_word *av2=av; av2[0]=t11; av2[1]=C_SCHEME_UNDEFINED; f_2592(2,av2);}}} /* k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_2592,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2595,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t4=stub205(C_SCHEME_UNDEFINED,t3); t5=C_eqp(C_fix((C_word)SOCKET_ERROR),t4); if(C_truep(t5)){ t6=stub105(C_SCHEME_UNDEFINED); t7=t6; t8=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t9=stub164(C_SCHEME_UNDEFINED,t8); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2764,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2768,a[2]=t10,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t11; av2[2]=lf[77]; av2[3]=lf[13]; tp(4,av2);}} else{ t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_2595(2,av2);}}} /* k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_2595,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2598,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(make_socket_nonblocking(((C_word*)t0)[2]))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2598(2,av2);}} else{ t3=stub105(C_SCHEME_UNDEFINED); t4=t3; t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t6=stub164(C_SCHEME_UNDEFINED,t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2738,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2742,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t8; av2[2]=lf[76]; av2[3]=lf[13]; tp(4,av2);}}} /* k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_2598,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2601,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2664,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t4,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li30),tmp=(C_word)a,a+=9,tmp)); t6=((C_word*)t4)[1];{ C_word *av2=av; av2[0]=t6; av2[1]=t2; f_2664(2,av2);}} /* k2599 in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_2601,2,av);} a=C_alloc(12); t2=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t3=stub685(C_SCHEME_UNDEFINED,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2607,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t6=C_eqp(C_fix((C_word)SOCKET_ERROR),t4); if(C_truep(t6)){ t7=stub105(C_SCHEME_UNDEFINED); t8=t7; t9=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t10=stub164(C_SCHEME_UNDEFINED,t9); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2626,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2630,a[2]=t11,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t12; av2[2]=lf[73]; av2[3]=lf[13]; tp(4,av2);}} else{ if(C_truep(C_fixnum_greaterp(t4,C_fix(0)))){ t7=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t8=stub164(C_SCHEME_UNDEFINED,t7); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2652,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2656,a[2]=t9,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t10; av2[2]=lf[74]; av2[3]=lf[13]; tp(4,av2);}} else{ /* tcp.scm:622: io-ports */ t7=lf[32]; f_1653(t7,((C_word*)t0)[3],lf[72],((C_word*)t0)[2]);}}} /* k2605 in k2599 in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2607,2,av);} /* tcp.scm:622: io-ports */ t2=lf[32]; f_1653(t2,((C_word*)t0)[2],lf[72],((C_word*)t0)[3]);} /* k2624 in k2599 in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2626,2,av);} /* tcp.scm:618: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[72]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2628 in k2599 in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2630,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2634,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t6=stub109(t4,t5); /* tcp.scm:171: ##sys#peek-c-string */ t7=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k2632 in k2628 in k2599 in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 in ... */ static void C_ccall f_2634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2634,2,av);} /* tcp.scm:618: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2650 in k2599 in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2652,2,av);} /* tcp.scm:621: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[72]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k2654 in k2599 in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2656,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2660,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t6=stub109(t4,t5); /* tcp.scm:171: ##sys#peek-c-string */ t7=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k2658 in k2654 in k2599 in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 in ... */ static void C_ccall f_2660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2660,2,av);} /* tcp.scm:621: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_2664,2,av);} a=C_alloc(10); t2=C_fix((C_word)sizeof(struct sockaddr_in)); t3=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t4=(C_truep(((C_word*)t0)[3])?C_i_foreign_block_argumentp(((C_word*)t0)[3]):C_SCHEME_FALSE); t5=C_i_foreign_fixnum_argumentp(t2); t6=stub191(C_SCHEME_UNDEFINED,t3,t4,t5); t7=C_eqp(C_fix((C_word)SOCKET_ERROR),t6); if(C_truep(t7)){ if(C_truep(stub117(C_SCHEME_UNDEFINED))){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2680,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ /* tcp.scm:608: ##sys#thread-block-for-timeout! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[39]+1); av2[1]=t8; av2[2]=*((C_word*)lf[33]+1); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f3420,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* tcp.scm:609: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[37]+1); av2[1]=t9; av2[2]=*((C_word*)lf[33]+1); av2[3]=((C_word*)t0)[2]; av2[4]=lf[44]; tp(5,av2);}}} else{ if(C_truep(stub120(C_SCHEME_UNDEFINED))){ /* tcp.scm:612: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[40]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[5])[1]; tp(3,av2);}} else{ t8=stub105(C_SCHEME_UNDEFINED); t9=t8; t10=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t11=stub164(C_SCHEME_UNDEFINED,t10); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2711,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2715,a[2]=t12,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t13; av2[2]=lf[75]; av2[3]=lf[13]; tp(4,av2);}}}} else{ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k2678 in loop in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2680,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2683,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* tcp.scm:609: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[37]+1); av2[1]=t2; av2[2]=*((C_word*)lf[33]+1); av2[3]=((C_word*)t0)[3]; av2[4]=lf[44]; tp(5,av2);}} /* k2681 in k2678 in loop in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 in ... */ static void C_ccall f_2683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2683,2,av);} /* tcp.scm:610: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[36]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[36]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} /* k2709 in loop in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_2711,2,av);} /* tcp.scm:614: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[72]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)((C_word*)t0)[4])[1]; av2[7]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k2713 in loop in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2715,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2719,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t6=stub109(t4,t5); /* tcp.scm:171: ##sys#peek-c-string */ t7=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k2717 in k2713 in loop in k2596 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 in ... */ static void C_ccall f_2719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2719,2,av);} /* tcp.scm:614: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2736 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2738,2,av);} /* tcp.scm:603: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[72]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2740 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2742,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2746,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t6=stub109(t4,t5); /* tcp.scm:171: ##sys#peek-c-string */ t7=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k2744 in k2740 in k2593 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2746,2,av);} /* tcp.scm:603: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2762 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2764,2,av);} /* tcp.scm:601: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[72]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2766 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2768,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2772,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t6=stub109(t4,t5); /* tcp.scm:171: ##sys#peek-c-string */ t7=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k2770 in k2766 in k2590 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2772,2,av);} /* tcp.scm:601: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2786 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2788,2,av);} /* tcp.scm:599: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[72]; av2[4]=t1; av2[5]=((C_word*)((C_word*)t0)[3])[1]; av2[6]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k2790 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2792,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2796,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k2794 in k2790 in k2584 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2796,2,av);} /* tcp.scm:599: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2803 in k2581 in k2578 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2805,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_2586(2,av2);}} else{ /* tcp.scm:596: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[72]; av2[4]=lf[79]; av2[5]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k2809 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2811,2,av);} if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_2580(2,av2);}} else{ /* tcp.scm:593: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[21]; av2[3]=lf[72]; av2[4]=lf[80]; av2[5]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* a2818 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_2819,2,av);} a=C_alloc(8); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_block_size(t2); t4=t3; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1283,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li31),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_1283(t8,t1,C_fix(0));} /* a2824 in k2572 in k2569 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2825,4,av);} t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2834 in k2566 in chicken.tcp#tcp-connect in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_2836,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; f_2571(t2,C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]));} /* chicken.tcp#tcp-port->fileno in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_fcall f_2844(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2844,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2848,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* tcp.scm:625: ##sys#port-data */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[87]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[87]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}} /* k2846 in chicken.tcp#tcp-port->fileno in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2848,2,av);} if(C_truep(C_i_vectorp(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_slot(t1,C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* tcp.scm:628: chicken.base#error */ t2=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[86]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2862,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[89]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2868,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:632: tcp-port->fileno */ f_2844(t5,t2,lf[89]);} /* k2866 in chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2868,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2875,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(t2); t6=stub225(t4,t5); /* tcp.scm:192: ##sys#peek-c-string */ t7=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k2873 in k2866 in chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_2875,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2878,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_2878(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2913,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2917,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=lf[91]; av2[3]=lf[13]; tp(4,av2);}}} /* k2876 in k2873 in k2866 in chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2878,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2882,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(((C_word*)t0)[4]); t6=stub241(t4,t5); /* tcp.scm:216: ##sys#peek-c-string */ t7=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k2880 in k2876 in k2873 in k2866 in chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_2882,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2885,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t1)){ t3=t1; /* tcp.scm:633: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t3; C_values(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2892,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2896,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t4; av2[2]=lf[90]; av2[3]=lf[13]; tp(4,av2);}}} /* k2883 in k2880 in k2876 in k2873 in k2866 in chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2885,2,av);} /* tcp.scm:633: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_values(4,av2);}} /* k2890 in k2880 in k2876 in k2873 in k2866 in chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2892,2,av);} /* tcp.scm:637: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[89]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2894 in k2880 in k2876 in k2873 in k2866 in chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2896,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2900,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k2898 in k2894 in k2880 in k2876 in k2873 in k2866 in chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2900,2,av);} /* tcp.scm:637: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2911 in k2873 in k2866 in chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2913,2,av);} /* tcp.scm:635: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[89]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2915 in k2873 in k2866 in chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2917,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2921,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k2919 in k2915 in k2873 in k2866 in chicken.tcp#tcp-addresses in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2921,2,av);} /* tcp.scm:635: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.tcp#tcp-port-numbers in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2929,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[93]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2935,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:641: tcp-port->fileno */ f_2844(t5,t2,lf[93]);} /* k2933 in chicken.tcp#tcp-port-numbers in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_2935,2,av);} a=C_alloc(13); t2=C_i_foreign_fixnum_argumentp(t1); t3=stub231(C_SCHEME_UNDEFINED,t2); t4=t3; t5=C_i_foreign_fixnum_argumentp(t1); t6=stub236(C_SCHEME_UNDEFINED,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2944,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t7,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t9=C_eqp(C_fix(-1),t4); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2984,a[2]=t8,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2988,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t11; av2[2]=lf[95]; av2[3]=lf[13]; tp(4,av2);}} else{ t10=t8;{ C_word *av2=av; av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_2944(2,av2);}}} /* k2942 in k2933 in chicken.tcp#tcp-port-numbers in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_2944,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2947,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_eqp(C_fix(-1),((C_word*)t0)[4]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2960,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2964,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t5; av2[2]=lf[94]; av2[3]=lf[13]; tp(4,av2);}} else{ /* tcp.scm:648: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_values(4,av2);}}} /* k2945 in k2942 in k2933 in chicken.tcp#tcp-port-numbers in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2947,2,av);} /* tcp.scm:648: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_values(4,av2);}} /* k2958 in k2942 in k2933 in chicken.tcp#tcp-port-numbers in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2960,2,av);} /* tcp.scm:647: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[93]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2962 in k2942 in k2933 in chicken.tcp#tcp-port-numbers in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2964,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2968,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k2966 in k2962 in k2942 in k2933 in chicken.tcp#tcp-port-numbers in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2968,2,av);} /* tcp.scm:647: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2982 in k2933 in chicken.tcp#tcp-port-numbers in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2984,2,av);} /* tcp.scm:645: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[93]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k2986 in k2933 in chicken.tcp#tcp-port-numbers in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2988,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2992,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k2990 in k2986 in k2933 in chicken.tcp#tcp-port-numbers in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_2992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2992,2,av);} /* tcp.scm:645: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.tcp#tcp-listener-port in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_3000,3,av);} a=C_alloc(12); t3=C_i_check_structure_2(t2,lf[5],lf[97]); t4=C_slot(t2,C_fix(1)); t5=t4; t6=C_i_foreign_fixnum_argumentp(t5); t7=stub231(C_SCHEME_UNDEFINED,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3013,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=C_eqp(C_fix(-1),t8); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3023,a[2]=t9,a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3027,a[2]=t11,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[11]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[11]+1); av2[1]=t12; av2[2]=lf[98]; av2[3]=lf[13]; tp(4,av2);}} else{ t11=t1;{ C_word *av2=av; av2[0]=t11; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} /* k3011 in chicken.tcp#tcp-listener-port in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3013,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3021 in chicken.tcp#tcp-listener-port in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_3023,2,av);} /* tcp.scm:655: ##sys#signal-hook */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[7]; av2[3]=lf[97]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k3025 in chicken.tcp#tcp-listener-port in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3027,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3031,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=stub105(C_SCHEME_UNDEFINED); t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub109(t5,t6); /* tcp.scm:171: ##sys#peek-c-string */ t8=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k3029 in k3025 in chicken.tcp#tcp-listener-port in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3031,2,av);} /* tcp.scm:655: scheme#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.tcp#tcp-abandon-port in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3039,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[100]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3049,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tcp.scm:660: ##sys#port-data */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[87]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[87]+1); av2[1]=t5; av2[2]=t2; tp(3,av2);}} /* k3047 in chicken.tcp#tcp-abandon-port in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3049,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_set_i_slot(t1,t2,C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.tcp#tcp-listener-fileno in k1649 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3055,3,av);} t3=C_i_check_structure_2(t2,lf[5],lf[102]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3064 in k1645 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3066,2,av);} /* tcp.scm:359: chicken.base#make-parameter */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3068 in k1641 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3070,2,av);} /* tcp.scm:358: chicken.base#make-parameter */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3072 in k1637 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3074,2,av);} /* tcp.scm:357: chicken.base#make-parameter */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3076 in k1614 in k1219 in k991 in k988 in k985 */ static void C_ccall f_3078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3078,2,av);} /* tcp.scm:356: chicken.base#make-parameter */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k985 */ static void C_ccall f_987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_987,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_990,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_scheduler_toplevel(2,av2);}} /* k988 in k985 */ static void C_ccall f_990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_990,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_993,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k991 in k988 in k985 */ static void C_ccall f_993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_993,2,av);} a=C_alloc(19); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1221,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(stub246(C_SCHEME_UNDEFINED))){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1221(2,av2);}} else{ /* tcp.scm:237: ##sys#signal-hook */ t5=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[7]; av2[3]=lf[108]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_tcp_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("tcp")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_tcp_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(441))){ C_save(t1); C_rereclaim2(441*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,109); lf[0]=C_h_intern(&lf[0],3, C_text("tcp")); lf[1]=C_h_intern(&lf[1],12, C_text("chicken.tcp#")); lf[3]=C_h_intern(&lf[3],19, C_text("##sys#make-c-string")); lf[4]=C_h_intern(&lf[4],22, C_text("chicken.tcp#tcp-listen")); lf[5]=C_h_intern(&lf[5],12, C_text("tcp-listener")); lf[6]=C_h_intern(&lf[6],17, C_text("##sys#signal-hook")); lf[7]=C_h_intern_kw(&lf[7],13, C_text("network-error")); lf[8]=C_h_intern(&lf[8],10, C_text("tcp-listen")); lf[9]=C_h_intern(&lf[9],20, C_text("scheme#string-append")); lf[10]=C_h_intern(&lf[10],19, C_text("##sys#peek-c-string")); lf[11]=C_h_intern(&lf[11],19, C_text("##sys#string-append")); lf[12]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027cannot listen on socket")); lf[13]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 - ")); lf[14]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025cannot bind to socket")); lf[15]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035error while setting up socket")); lf[16]=C_h_intern(&lf[16],11, C_text("##sys#error")); lf[17]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024cannot create socket")); lf[18]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037getting listener host IP failed")); lf[19]=C_h_intern(&lf[19],17, C_text("##sys#make-string")); lf[20]=C_h_intern(&lf[20],18, C_text("##sys#check-fixnum")); lf[21]=C_h_intern_kw(&lf[21],12, C_text("domain-error")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid port number")); lf[23]=C_h_intern(&lf[23],25, C_text("chicken.tcp#tcp-listener\077")); lf[24]=C_h_intern(&lf[24],21, C_text("chicken.tcp#tcp-close")); lf[25]=C_h_intern(&lf[25],9, C_text("tcp-close")); lf[26]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027cannot close TCP socket")); lf[27]=C_h_intern(&lf[27],27, C_text("chicken.tcp#tcp-buffer-size")); lf[28]=C_h_intern(&lf[28],28, C_text("chicken.tcp#tcp-read-timeout")); lf[29]=C_h_intern(&lf[29],29, C_text("chicken.tcp#tcp-write-timeout")); lf[30]=C_h_intern(&lf[30],31, C_text("chicken.tcp#tcp-connect-timeout")); lf[31]=C_h_intern(&lf[31],30, C_text("chicken.tcp#tcp-accept-timeout")); lf[33]=C_h_intern(&lf[33],20, C_text("##sys#current-thread")); lf[34]=C_h_intern_kw(&lf[34],21, C_text("network-timeout-error")); lf[35]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030read operation timed out")); lf[36]=C_h_intern(&lf[36],19, C_text("##sys#thread-yield!")); lf[37]=C_h_intern(&lf[37],27, C_text("##sys#thread-block-for-i/o!")); lf[38]=C_h_intern_kw(&lf[38],5, C_text("input")); lf[39]=C_h_intern(&lf[39],31, C_text("##sys#thread-block-for-timeout!")); lf[40]=C_h_intern(&lf[40],24, C_text("##sys#dispatch-interrupt")); lf[41]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027cannot read from socket")); lf[42]=C_h_intern(&lf[42],33, C_text("chicken.time#current-milliseconds")); lf[43]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031write operation timed out")); lf[44]=C_h_intern_kw(&lf[44],6, C_text("output")); lf[45]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026cannot write to socket")); lf[46]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005(tcp)")); lf[47]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005(tcp)")); lf[48]=C_h_intern(&lf[48],6, C_text("socket")); lf[49]=C_h_intern(&lf[49],20, C_text("##sys#set-port-data!")); lf[50]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[51]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037cannot close socket output port")); lf[52]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[53]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[54]=C_h_intern(&lf[54],29, C_text("chicken.port#make-output-port")); lf[55]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035cannot check socket for input")); lf[56]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036cannot close socket input port")); lf[57]=C_h_intern(&lf[57],35, C_text("chicken.fixnum#most-positive-fixnum")); lf[58]=C_h_intern(&lf[58],22, C_text("##sys#scan-buffer-line")); lf[59]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[60]=C_h_intern(&lf[60],15, C_text("##sys#substring")); lf[61]=C_h_intern(&lf[61],28, C_text("chicken.port#make-input-port")); lf[62]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[63]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027cannot create TCP ports")); lf[64]=C_h_intern(&lf[64],22, C_text("chicken.tcp#tcp-accept")); lf[65]=C_h_intern(&lf[65],10, C_text("tcp-accept")); lf[66]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036could not accept from listener")); lf[67]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032accept operation timed out")); lf[68]=C_h_intern(&lf[68],29, C_text("chicken.tcp#tcp-accept-ready\077")); lf[69]=C_h_intern(&lf[69],17, C_text("tcp-accept-ready\077")); lf[70]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035cannot check socket for input")); lf[71]=C_h_intern(&lf[71],23, C_text("chicken.tcp#tcp-connect")); lf[72]=C_h_intern(&lf[72],11, C_text("tcp-connect")); lf[73]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023getsockopt() failed")); lf[74]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024cannot create socket")); lf[75]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030cannot connect to socket")); lf[76]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016fcntl() failed")); lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035error while setting up socket")); lf[78]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024cannot create socket")); lf[79]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030cannot find host address")); lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021no port specified")); lf[81]=C_decode_literal(C_heaptop,C_text("\376B\000\000 cannot compute port from service")); lf[82]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003tcp")); lf[83]=C_h_intern(&lf[83],16, C_text("scheme#substring")); lf[85]=C_h_intern(&lf[85],18, C_text("chicken.base#error")); lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\000)argument does not appear to be a TCP port")); lf[87]=C_h_intern(&lf[87],15, C_text("##sys#port-data")); lf[88]=C_h_intern(&lf[88],25, C_text("chicken.tcp#tcp-addresses")); lf[89]=C_h_intern(&lf[89],13, C_text("tcp-addresses")); lf[90]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035cannot compute remote address")); lf[91]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034cannot compute local address")); lf[92]=C_h_intern(&lf[92],28, C_text("chicken.tcp#tcp-port-numbers")); lf[93]=C_h_intern(&lf[93],16, C_text("tcp-port-numbers")); lf[94]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032cannot compute remote port")); lf[95]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031cannot compute local port")); lf[96]=C_h_intern(&lf[96],29, C_text("chicken.tcp#tcp-listener-port")); lf[97]=C_h_intern(&lf[97],17, C_text("tcp-listener-port")); lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033cannot obtain listener port")); lf[99]=C_h_intern(&lf[99],28, C_text("chicken.tcp#tcp-abandon-port")); lf[100]=C_h_intern(&lf[100],16, C_text("tcp-abandon-port")); lf[101]=C_h_intern(&lf[101],31, C_text("chicken.tcp#tcp-listener-fileno")); lf[102]=C_h_intern(&lf[102],19, C_text("tcp-listener-fileno")); lf[103]=C_h_intern(&lf[103],27, C_text("chicken.base#make-parameter")); lf[104]=C_h_intern(&lf[104],18, C_text("tcp-accept-timeout")); lf[105]=C_h_intern(&lf[105],19, C_text("tcp-connect-timeout")); lf[106]=C_h_intern(&lf[106],17, C_text("tcp-write-timeout")); lf[107]=C_h_intern(&lf[107],16, C_text("tcp-read-timeout")); lf[108]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031cannot initialize Winsock")); C_register_lf2(lf,109,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_987,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_port_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[223] = { {C_text("f3420:tcp_2escm"),(void*)f3420}, {C_text("f_1221:tcp_2escm"),(void*)f_1221}, {C_text("f_1228:tcp_2escm"),(void*)f_1228}, {C_text("f_1232:tcp_2escm"),(void*)f_1232}, {C_text("f_1248:tcp_2escm"),(void*)f_1248}, {C_text("f_1257:tcp_2escm"),(void*)f_1257}, {C_text("f_1283:tcp_2escm"),(void*)f_1283}, {C_text("f_1306:tcp_2escm"),(void*)f_1306}, {C_text("f_1310:tcp_2escm"),(void*)f_1310}, {C_text("f_1313:tcp_2escm"),(void*)f_1313}, {C_text("f_1316:tcp_2escm"),(void*)f_1316}, {C_text("f_1326:tcp_2escm"),(void*)f_1326}, {C_text("f_1330:tcp_2escm"),(void*)f_1330}, {C_text("f_1334:tcp_2escm"),(void*)f_1334}, {C_text("f_1372:tcp_2escm"),(void*)f_1372}, {C_text("f_1375:tcp_2escm"),(void*)f_1375}, {C_text("f_1381:tcp_2escm"),(void*)f_1381}, {C_text("f_1384:tcp_2escm"),(void*)f_1384}, {C_text("f_1387:tcp_2escm"),(void*)f_1387}, {C_text("f_1403:tcp_2escm"),(void*)f_1403}, {C_text("f_1407:tcp_2escm"),(void*)f_1407}, {C_text("f_1411:tcp_2escm"),(void*)f_1411}, {C_text("f_1427:tcp_2escm"),(void*)f_1427}, {C_text("f_1431:tcp_2escm"),(void*)f_1431}, {C_text("f_1435:tcp_2escm"),(void*)f_1435}, {C_text("f_1457:tcp_2escm"),(void*)f_1457}, {C_text("f_1466:tcp_2escm"),(void*)f_1466}, {C_text("f_1482:tcp_2escm"),(void*)f_1482}, {C_text("f_1485:tcp_2escm"),(void*)f_1485}, {C_text("f_1488:tcp_2escm"),(void*)f_1488}, {C_text("f_1491:tcp_2escm"),(void*)f_1491}, {C_text("f_1494:tcp_2escm"),(void*)f_1494}, {C_text("f_1513:tcp_2escm"),(void*)f_1513}, {C_text("f_1517:tcp_2escm"),(void*)f_1517}, {C_text("f_1521:tcp_2escm"),(void*)f_1521}, {C_text("f_1565:tcp_2escm"),(void*)f_1565}, {C_text("f_1574:tcp_2escm"),(void*)f_1574}, {C_text("f_1594:tcp_2escm"),(void*)f_1594}, {C_text("f_1598:tcp_2escm"),(void*)f_1598}, {C_text("f_1602:tcp_2escm"),(void*)f_1602}, {C_text("f_1616:tcp_2escm"),(void*)f_1616}, {C_text("f_1622:tcp_2escm"),(void*)f_1622}, {C_text("f_1624:tcp_2escm"),(void*)f_1624}, {C_text("f_1628:tcp_2escm"),(void*)f_1628}, {C_text("f_1639:tcp_2escm"),(void*)f_1639}, {C_text("f_1643:tcp_2escm"),(void*)f_1643}, {C_text("f_1647:tcp_2escm"),(void*)f_1647}, {C_text("f_1651:tcp_2escm"),(void*)f_1651}, {C_text("f_1653:tcp_2escm"),(void*)f_1653}, {C_text("f_1657:tcp_2escm"),(void*)f_1657}, {C_text("f_1660:tcp_2escm"),(void*)f_1660}, {C_text("f_1666:tcp_2escm"),(void*)f_1666}, {C_text("f_1669:tcp_2escm"),(void*)f_1669}, {C_text("f_1670:tcp_2escm"),(void*)f_1670}, {C_text("f_1674:tcp_2escm"),(void*)f_1674}, {C_text("f_1677:tcp_2escm"),(void*)f_1677}, {C_text("f_1682:tcp_2escm"),(void*)f_1682}, {C_text("f_1701:tcp_2escm"),(void*)f_1701}, {C_text("f_1704:tcp_2escm"),(void*)f_1704}, {C_text("f_1707:tcp_2escm"),(void*)f_1707}, {C_text("f_1710:tcp_2escm"),(void*)f_1710}, {C_text("f_1738:tcp_2escm"),(void*)f_1738}, {C_text("f_1742:tcp_2escm"),(void*)f_1742}, {C_text("f_1746:tcp_2escm"),(void*)f_1746}, {C_text("f_1764:tcp_2escm"),(void*)f_1764}, {C_text("f_1767:tcp_2escm"),(void*)f_1767}, {C_text("f_1768:tcp_2escm"),(void*)f_1768}, {C_text("f_1772:tcp_2escm"),(void*)f_1772}, {C_text("f_1783:tcp_2escm"),(void*)f_1783}, {C_text("f_1785:tcp_2escm"),(void*)f_1785}, {C_text("f_1807:tcp_2escm"),(void*)f_1807}, {C_text("f_1810:tcp_2escm"),(void*)f_1810}, {C_text("f_1813:tcp_2escm"),(void*)f_1813}, {C_text("f_1816:tcp_2escm"),(void*)f_1816}, {C_text("f_1839:tcp_2escm"),(void*)f_1839}, {C_text("f_1850:tcp_2escm"),(void*)f_1850}, {C_text("f_1854:tcp_2escm"),(void*)f_1854}, {C_text("f_1858:tcp_2escm"),(void*)f_1858}, {C_text("f_1898:tcp_2escm"),(void*)f_1898}, {C_text("f_1905:tcp_2escm"),(void*)f_1905}, {C_text("f_1908:tcp_2escm"),(void*)f_1908}, {C_text("f_1923:tcp_2escm"),(void*)f_1923}, {C_text("f_1926:tcp_2escm"),(void*)f_1926}, {C_text("f_1935:tcp_2escm"),(void*)f_1935}, {C_text("f_1943:tcp_2escm"),(void*)f_1943}, {C_text("f_1946:tcp_2escm"),(void*)f_1946}, {C_text("f_1952:tcp_2escm"),(void*)f_1952}, {C_text("f_1959:tcp_2escm"),(void*)f_1959}, {C_text("f_1963:tcp_2escm"),(void*)f_1963}, {C_text("f_1967:tcp_2escm"),(void*)f_1967}, {C_text("f_1989:tcp_2escm"),(void*)f_1989}, {C_text("f_1992:tcp_2escm"),(void*)f_1992}, {C_text("f_2005:tcp_2escm"),(void*)f_2005}, {C_text("f_2015:tcp_2escm"),(void*)f_2015}, {C_text("f_2021:tcp_2escm"),(void*)f_2021}, {C_text("f_2026:tcp_2escm"),(void*)f_2026}, {C_text("f_2035:tcp_2escm"),(void*)f_2035}, {C_text("f_2041:tcp_2escm"),(void*)f_2041}, {C_text("f_2057:tcp_2escm"),(void*)f_2057}, {C_text("f_2061:tcp_2escm"),(void*)f_2061}, {C_text("f_2079:tcp_2escm"),(void*)f_2079}, {C_text("f_2092:tcp_2escm"),(void*)f_2092}, {C_text("f_2105:tcp_2escm"),(void*)f_2105}, {C_text("f_2109:tcp_2escm"),(void*)f_2109}, {C_text("f_2113:tcp_2escm"),(void*)f_2113}, {C_text("f_2121:tcp_2escm"),(void*)f_2121}, {C_text("f_2129:tcp_2escm"),(void*)f_2129}, {C_text("f_2135:tcp_2escm"),(void*)f_2135}, {C_text("f_2142:tcp_2escm"),(void*)f_2142}, {C_text("f_2146:tcp_2escm"),(void*)f_2146}, {C_text("f_2150:tcp_2escm"),(void*)f_2150}, {C_text("f_2171:tcp_2escm"),(void*)f_2171}, {C_text("f_2175:tcp_2escm"),(void*)f_2175}, {C_text("f_2189:tcp_2escm"),(void*)f_2189}, {C_text("f_2195:tcp_2escm"),(void*)f_2195}, {C_text("f_2243:tcp_2escm"),(void*)f_2243}, {C_text("f_2254:tcp_2escm"),(void*)f_2254}, {C_text("f_2258:tcp_2escm"),(void*)f_2258}, {C_text("f_2272:tcp_2escm"),(void*)f_2272}, {C_text("f_2282:tcp_2escm"),(void*)f_2282}, {C_text("f_2298:tcp_2escm"),(void*)f_2298}, {C_text("f_2328:tcp_2escm"),(void*)f_2328}, {C_text("f_2373:tcp_2escm"),(void*)f_2373}, {C_text("f_2383:tcp_2escm"),(void*)f_2383}, {C_text("f_2404:tcp_2escm"),(void*)f_2404}, {C_text("f_2408:tcp_2escm"),(void*)f_2408}, {C_text("f_2412:tcp_2escm"),(void*)f_2412}, {C_text("f_2416:tcp_2escm"),(void*)f_2416}, {C_text("f_2426:tcp_2escm"),(void*)f_2426}, {C_text("f_2429:tcp_2escm"),(void*)f_2429}, {C_text("f_2434:tcp_2escm"),(void*)f_2434}, {C_text("f_2438:tcp_2escm"),(void*)f_2438}, {C_text("f_2441:tcp_2escm"),(void*)f_2441}, {C_text("f_2444:tcp_2escm"),(void*)f_2444}, {C_text("f_2447:tcp_2escm"),(void*)f_2447}, {C_text("f_2475:tcp_2escm"),(void*)f_2475}, {C_text("f_2479:tcp_2escm"),(void*)f_2479}, {C_text("f_2483:tcp_2escm"),(void*)f_2483}, {C_text("f_2509:tcp_2escm"),(void*)f_2509}, {C_text("f_2511:tcp_2escm"),(void*)f_2511}, {C_text("f_2521:tcp_2escm"),(void*)f_2521}, {C_text("f_2534:tcp_2escm"),(void*)f_2534}, {C_text("f_2538:tcp_2escm"),(void*)f_2538}, {C_text("f_2542:tcp_2escm"),(void*)f_2542}, {C_text("f_2561:tcp_2escm"),(void*)f_2561}, {C_text("f_2568:tcp_2escm"),(void*)f_2568}, {C_text("f_2571:tcp_2escm"),(void*)f_2571}, {C_text("f_2574:tcp_2escm"),(void*)f_2574}, {C_text("f_2580:tcp_2escm"),(void*)f_2580}, {C_text("f_2583:tcp_2escm"),(void*)f_2583}, {C_text("f_2586:tcp_2escm"),(void*)f_2586}, {C_text("f_2592:tcp_2escm"),(void*)f_2592}, {C_text("f_2595:tcp_2escm"),(void*)f_2595}, {C_text("f_2598:tcp_2escm"),(void*)f_2598}, {C_text("f_2601:tcp_2escm"),(void*)f_2601}, {C_text("f_2607:tcp_2escm"),(void*)f_2607}, {C_text("f_2626:tcp_2escm"),(void*)f_2626}, {C_text("f_2630:tcp_2escm"),(void*)f_2630}, {C_text("f_2634:tcp_2escm"),(void*)f_2634}, {C_text("f_2652:tcp_2escm"),(void*)f_2652}, {C_text("f_2656:tcp_2escm"),(void*)f_2656}, {C_text("f_2660:tcp_2escm"),(void*)f_2660}, {C_text("f_2664:tcp_2escm"),(void*)f_2664}, {C_text("f_2680:tcp_2escm"),(void*)f_2680}, {C_text("f_2683:tcp_2escm"),(void*)f_2683}, {C_text("f_2711:tcp_2escm"),(void*)f_2711}, {C_text("f_2715:tcp_2escm"),(void*)f_2715}, {C_text("f_2719:tcp_2escm"),(void*)f_2719}, {C_text("f_2738:tcp_2escm"),(void*)f_2738}, {C_text("f_2742:tcp_2escm"),(void*)f_2742}, {C_text("f_2746:tcp_2escm"),(void*)f_2746}, {C_text("f_2764:tcp_2escm"),(void*)f_2764}, {C_text("f_2768:tcp_2escm"),(void*)f_2768}, {C_text("f_2772:tcp_2escm"),(void*)f_2772}, {C_text("f_2788:tcp_2escm"),(void*)f_2788}, {C_text("f_2792:tcp_2escm"),(void*)f_2792}, {C_text("f_2796:tcp_2escm"),(void*)f_2796}, {C_text("f_2805:tcp_2escm"),(void*)f_2805}, {C_text("f_2811:tcp_2escm"),(void*)f_2811}, {C_text("f_2819:tcp_2escm"),(void*)f_2819}, {C_text("f_2825:tcp_2escm"),(void*)f_2825}, {C_text("f_2836:tcp_2escm"),(void*)f_2836}, {C_text("f_2844:tcp_2escm"),(void*)f_2844}, {C_text("f_2848:tcp_2escm"),(void*)f_2848}, {C_text("f_2862:tcp_2escm"),(void*)f_2862}, {C_text("f_2868:tcp_2escm"),(void*)f_2868}, {C_text("f_2875:tcp_2escm"),(void*)f_2875}, {C_text("f_2878:tcp_2escm"),(void*)f_2878}, {C_text("f_2882:tcp_2escm"),(void*)f_2882}, {C_text("f_2885:tcp_2escm"),(void*)f_2885}, {C_text("f_2892:tcp_2escm"),(void*)f_2892}, {C_text("f_2896:tcp_2escm"),(void*)f_2896}, {C_text("f_2900:tcp_2escm"),(void*)f_2900}, {C_text("f_2913:tcp_2escm"),(void*)f_2913}, {C_text("f_2917:tcp_2escm"),(void*)f_2917}, {C_text("f_2921:tcp_2escm"),(void*)f_2921}, {C_text("f_2929:tcp_2escm"),(void*)f_2929}, {C_text("f_2935:tcp_2escm"),(void*)f_2935}, {C_text("f_2944:tcp_2escm"),(void*)f_2944}, {C_text("f_2947:tcp_2escm"),(void*)f_2947}, {C_text("f_2960:tcp_2escm"),(void*)f_2960}, {C_text("f_2964:tcp_2escm"),(void*)f_2964}, {C_text("f_2968:tcp_2escm"),(void*)f_2968}, {C_text("f_2984:tcp_2escm"),(void*)f_2984}, {C_text("f_2988:tcp_2escm"),(void*)f_2988}, {C_text("f_2992:tcp_2escm"),(void*)f_2992}, {C_text("f_3000:tcp_2escm"),(void*)f_3000}, {C_text("f_3013:tcp_2escm"),(void*)f_3013}, {C_text("f_3023:tcp_2escm"),(void*)f_3023}, {C_text("f_3027:tcp_2escm"),(void*)f_3027}, {C_text("f_3031:tcp_2escm"),(void*)f_3031}, {C_text("f_3039:tcp_2escm"),(void*)f_3039}, {C_text("f_3049:tcp_2escm"),(void*)f_3049}, {C_text("f_3055:tcp_2escm"),(void*)f_3055}, {C_text("f_3066:tcp_2escm"),(void*)f_3066}, {C_text("f_3070:tcp_2escm"),(void*)f_3070}, {C_text("f_3074:tcp_2escm"),(void*)f_3074}, {C_text("f_3078:tcp_2escm"),(void*)f_3078}, {C_text("f_987:tcp_2escm"),(void*)f_987}, {C_text("f_990:tcp_2escm"),(void*)f_990}, {C_text("f_993:tcp_2escm"),(void*)f_993}, {C_text("toplevel:tcp_2escm"),(void*)C_tcp_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.tcp#d o|hiding unexported module binding: chicken.tcp#define-alias o|hiding unexported module binding: chicken.tcp#last-error-code o|hiding unexported module binding: chicken.tcp#error-code->message o|hiding unexported module binding: chicken.tcp#retry? o|hiding unexported module binding: chicken.tcp#in-progress? o|hiding unexported module binding: chicken.tcp#interrupted? o|hiding unexported module binding: chicken.tcp#socket o|hiding unexported module binding: chicken.tcp#bind o|hiding unexported module binding: chicken.tcp#listen o|hiding unexported module binding: chicken.tcp#accept o|hiding unexported module binding: chicken.tcp#close o|hiding unexported module binding: chicken.tcp#recv o|hiding unexported module binding: chicken.tcp#shutdown o|hiding unexported module binding: chicken.tcp#connect o|hiding unexported module binding: chicken.tcp#check-fd-ready o|hiding unexported module binding: chicken.tcp#set-socket-options o|hiding unexported module binding: chicken.tcp#send o|hiding unexported module binding: chicken.tcp#getsockname o|hiding unexported module binding: chicken.tcp#getsockport o|hiding unexported module binding: chicken.tcp#getpeerport o|hiding unexported module binding: chicken.tcp#getpeername o|hiding unexported module binding: chicken.tcp#startup o|hiding unexported module binding: chicken.tcp#getservbyname o|hiding unexported module binding: chicken.tcp#gethostaddr o|hiding unexported module binding: chicken.tcp#network-error o|hiding unexported module binding: chicken.tcp#network-error/close o|hiding unexported module binding: chicken.tcp#network-error/code o|hiding unexported module binding: chicken.tcp#parse-host o|hiding unexported module binding: chicken.tcp#fresh-addr o|hiding unexported module binding: chicken.tcp#bind-socket o|hiding unexported module binding: chicken.tcp#io-ports o|hiding unexported module binding: chicken.tcp#get-socket-error o|hiding unexported module binding: chicken.tcp#tcp-port->fileno o|eliminated procedure checks: 64 o|specializations: o| 3 (##sys#check-open-port * *) o| 3 (scheme#make-string fixnum) o| 24 (scheme#string-append string string) (o e)|safe calls: 343 (o e)|assignments to immediate values: 6 o|safe globals: (chicken.tcp#startup chicken.tcp#getpeername chicken.tcp#getpeerport chicken.tcp#getsockport chicken.tcp#getsockname chicken.tcp#send chicken.tcp#set-socket-options chicken.tcp#check-fd-ready chicken.tcp#connect chicken.tcp#shutdown chicken.tcp#recv chicken.tcp#close chicken.tcp#accept chicken.tcp#listen chicken.tcp#bind chicken.tcp#socket chicken.tcp#interrupted? chicken.tcp#in-progress? chicken.tcp#retry? chicken.tcp#error-code->message chicken.tcp#last-error-code) o|inlining procedure: k1285 o|inlining procedure: k1285 o|inlining procedure: k1314 o|inlining procedure: "(tcp.scm:290) chicken.tcp#last-error-code" o|substituted constant variable: a1339 o|substituted constant variable: a1340 o|inlining procedure: k1314 o|contracted procedure: "(tcp.scm:288) chicken.tcp#getservbyname" o|inlining procedure: k1230 o|inlining procedure: k1230 o|inlining procedure: k1492 o|substituted constant variable: a1522 o|substituted constant variable: a1523 o|inlining procedure: "(tcp.scm:329) chicken.tcp#close" o|inlining procedure: "(tcp.scm:329) chicken.tcp#last-error-code" o|inlining procedure: k1492 o|contracted procedure: "(tcp.scm:328) chicken.tcp#listen" o|contracted procedure: "(tcp.scm:327) chicken.tcp#bind-socket" o|inlining procedure: k1385 o|substituted constant variable: a1412 o|substituted constant variable: a1413 o|inlining procedure: "(tcp.scm:317) chicken.tcp#close" o|inlining procedure: "(tcp.scm:317) chicken.tcp#last-error-code" o|inlining procedure: k1385 o|contracted procedure: "(tcp.scm:316) chicken.tcp#bind" o|inlining procedure: "(tcp.scm:315) chicken.tcp#last-error-code" o|substituted constant variable: a1440 o|substituted constant variable: a1441 o|inlining procedure: "(tcp.scm:314) chicken.tcp#set-socket-options" o|inlining procedure: k1452 o|inlining procedure: k1452 o|contracted procedure: "(tcp.scm:309) chicken.tcp#fresh-addr" o|inlining procedure: k1567 o|inlining procedure: k1567 o|inlining procedure: k1582 o|inlining procedure: "(tcp.scm:340) chicken.tcp#last-error-code" o|substituted constant variable: a1607 o|substituted constant variable: a1608 o|inlining procedure: k1582 o|inlining procedure: "(tcp.scm:339) chicken.tcp#close" o|inlining procedure: k1626 o|inlining procedure: k1626 o|inlining procedure: k1687 o|inlining procedure: k1708 o|inlining procedure: k1708 o|inlining procedure: k1723 o|inlining procedure: k1723 o|inlining procedure: "(tcp.scm:395) chicken.tcp#last-error-code" o|substituted constant variable: a1751 o|substituted constant variable: a1752 o|inlining procedure: "(tcp.scm:392) chicken.tcp#interrupted?" o|inlining procedure: "(tcp.scm:381) chicken.tcp#retry?" o|inlining procedure: k1687 o|contracted procedure: "(tcp.scm:379) chicken.tcp#recv" o|inlining procedure: k1793 o|inlining procedure: k1829 o|inlining procedure: k1829 o|inlining procedure: "(tcp.scm:506) chicken.tcp#last-error-code" o|substituted constant variable: a1863 o|substituted constant variable: a1864 o|inlining procedure: "(tcp.scm:502) chicken.tcp#interrupted?" o|inlining procedure: "(tcp.scm:491) chicken.tcp#retry?" o|inlining procedure: k1793 o|inlining procedure: k1883 o|inlining procedure: k1883 o|contracted procedure: "(tcp.scm:489) chicken.tcp#send" o|inlining procedure: k1937 o|inlining procedure: k1937 o|inlining procedure: "(tcp.scm:532) chicken.tcp#last-error-code" o|substituted constant variable: a1972 o|substituted constant variable: a1973 o|inlining procedure: "(tcp.scm:531) chicken.tcp#close" o|inlining procedure: k2002 o|inlining procedure: k2007 o|inlining procedure: k2007 o|inlining procedure: k2002 o|inlining procedure: k2027 o|inlining procedure: k2027 o|inlining procedure: k2043 o|inlining procedure: k2043 o|inlining procedure: k2062 o|inlining procedure: k2062 o|inlining procedure: k2084 o|inlining procedure: k2084 o|inlining procedure: "(tcp.scm:416) chicken.tcp#last-error-code" o|substituted constant variable: a2118 o|substituted constant variable: a2119 o|inlining procedure: "(tcp.scm:414) chicken.tcp#check-fd-ready" o|inlining procedure: k2123 o|inlining procedure: k2123 o|inlining procedure: "(tcp.scm:423) chicken.tcp#last-error-code" o|substituted constant variable: a2155 o|substituted constant variable: a2156 o|inlining procedure: "(tcp.scm:422) chicken.tcp#close" o|inlining procedure: k2176 o|inlining procedure: k2176 o|inlining procedure: k2197 o|inlining procedure: k2197 o|inlining procedure: k2244 o|inlining procedure: k2244 o|inlining procedure: k2259 o|inlining procedure: k2259 o|inlining procedure: k2287 o|inlining procedure: k2287 o|inlining procedure: k2330 o|inlining procedure: k2330 o|inlining procedure: k2375 o|inlining procedure: k2375 o|inlining procedure: k2385 o|inlining procedure: k2385 o|substituted constant variable: a2391 o|substituted constant variable: a2413 o|substituted constant variable: a2414 o|inlining procedure: "(tcp.scm:365) chicken.tcp#close" o|inlining procedure: "(tcp.scm:365) chicken.tcp#last-error-code" o|inlining procedure: k2451 o|inlining procedure: k2451 o|inlining procedure: "(tcp.scm:567) chicken.tcp#last-error-code" o|substituted constant variable: a2488 o|substituted constant variable: a2489 o|inlining procedure: "(tcp.scm:564) chicken.tcp#interrupted?" o|contracted procedure: "(tcp.scm:561) chicken.tcp#accept" o|inlining procedure: k1073 o|inlining procedure: k1073 o|inlining procedure: k2519 o|inlining procedure: "(tcp.scm:574) chicken.tcp#last-error-code" o|substituted constant variable: a2547 o|substituted constant variable: a2548 o|inlining procedure: k2519 o|inlining procedure: "(tcp.scm:572) chicken.tcp#check-fd-ready" o|inlining procedure: k2605 o|substituted constant variable: a2635 o|substituted constant variable: a2636 o|inlining procedure: "(tcp.scm:618) chicken.tcp#close" o|inlining procedure: "(tcp.scm:618) chicken.tcp#last-error-code" o|inlining procedure: k2605 o|substituted constant variable: a2661 o|substituted constant variable: a2662 o|inlining procedure: "(tcp.scm:620) chicken.tcp#close" o|contracted procedure: "(tcp.scm:616) chicken.tcp#get-socket-error" o|inlining procedure: k2666 o|inlining procedure: k2690 o|inlining procedure: k2690 o|substituted constant variable: a2720 o|substituted constant variable: a2721 o|inlining procedure: "(tcp.scm:614) chicken.tcp#close" o|inlining procedure: "(tcp.scm:614) chicken.tcp#last-error-code" o|inlining procedure: "(tcp.scm:611) chicken.tcp#interrupted?" o|contracted procedure: "(tcp.scm:606) chicken.tcp#in-progress?" o|inlining procedure: k2666 o|contracted procedure: "(tcp.scm:605) chicken.tcp#connect" o|substituted constant variable: a2747 o|substituted constant variable: a2748 o|inlining procedure: "(tcp.scm:603) chicken.tcp#close" o|inlining procedure: "(tcp.scm:603) chicken.tcp#last-error-code" o|substituted constant variable: a2773 o|substituted constant variable: a2774 o|inlining procedure: "(tcp.scm:601) chicken.tcp#close" o|inlining procedure: "(tcp.scm:601) chicken.tcp#last-error-code" o|inlining procedure: "(tcp.scm:600) chicken.tcp#set-socket-options" o|inlining procedure: "(tcp.scm:599) chicken.tcp#last-error-code" o|substituted constant variable: a2801 o|substituted constant variable: a2802 o|inlining procedure: k2812 o|inlining procedure: k2812 o|inlining procedure: k2849 o|inlining procedure: k2849 o|substituted constant variable: a2865 o|inlining procedure: k2883 o|inlining procedure: k2883 o|inlining procedure: "(tcp.scm:637) chicken.tcp#last-error-code" o|substituted constant variable: a2905 o|substituted constant variable: a2906 o|contracted procedure: "(tcp.scm:636) chicken.tcp#getpeername" o|inlining procedure: "(tcp.scm:635) chicken.tcp#last-error-code" o|substituted constant variable: a2926 o|substituted constant variable: a2927 o|contracted procedure: "(tcp.scm:634) chicken.tcp#getsockname" o|substituted constant variable: a2932 o|inlining procedure: k2945 o|inlining procedure: "(tcp.scm:647) chicken.tcp#last-error-code" o|substituted constant variable: a2973 o|substituted constant variable: a2974 o|inlining procedure: k2945 o|inlining procedure: "(tcp.scm:645) chicken.tcp#last-error-code" o|substituted constant variable: a2997 o|substituted constant variable: a2998 o|contracted procedure: "(tcp.scm:643) chicken.tcp#getpeerport" o|inlining procedure: "(tcp.scm:642) chicken.tcp#getsockport" o|inlining procedure: k3011 o|inlining procedure: "(tcp.scm:655) chicken.tcp#last-error-code" o|substituted constant variable: a3036 o|substituted constant variable: a3037 o|inlining procedure: k3011 o|inlining procedure: "(tcp.scm:653) chicken.tcp#getsockport" o|substituted constant variable: a3042 o|contracted procedure: "(tcp.scm:236) chicken.tcp#startup" o|replaced variables: 300 o|removed binding forms: 145 o|removed side-effect free assignment to unused variable: chicken.tcp#last-error-code o|removed side-effect free assignment to unused variable: chicken.tcp#retry? o|removed side-effect free assignment to unused variable: chicken.tcp#interrupted? o|removed side-effect free assignment to unused variable: chicken.tcp#close o|removed side-effect free assignment to unused variable: chicken.tcp#check-fd-ready o|removed side-effect free assignment to unused variable: chicken.tcp#set-socket-options o|removed side-effect free assignment to unused variable: chicken.tcp#getsockport o|substituted constant variable: r15683136 o|substituted constant variable: int171178 o|substituted constant variable: int170177 o|inlining procedure: k1883 o|substituted constant variable: flags213221 o|substituted constant variable: r20033191 o|substituted constant variable: r20033191 o|substituted constant variable: r20633197 o|inlining procedure: k2090 o|substituted constant variable: r21773218 o|substituted constant variable: r22603223 o|substituted constant variable: r23763235 o|substituted constant variable: r23863237 o|substituted constant variable: r23863238 o|substituted constant variable: c-pointer151158 o|substituted constant variable: c-pointer152159 o|substituted constant variable: c-pointer152159 o|substituted constant variable: c-pointer152159 o|substituted constant variable: r10743252 o|substituted constant variable: r10743252 o|substituted constant variable: c-pointer151158 o|substituted constant variable: c-pointer151158 o|inlining procedure: k2605 o|contracted procedure: "(tcp.scm:592) chicken.tcp#parse-host" o|substituted constant variable: r12313096 o|substituted constant variable: r12313096 o|replaced variables: 94 o|removed binding forms: 364 o|removed conditional forms: 2 o|inlining procedure: k1437 o|inlining procedure: k1531 o|inlining procedure: k1604 o|inlining procedure: k1748 o|inlining procedure: k1814 o|inlining procedure: k1860 o|substituted constant variable: r18843370 o|inlining procedure: k1969 o|inlining procedure: k2115 o|inlining procedure: k2152 o|inlining procedure: k2485 o|contracted procedure: k1069 o|inlining procedure: k2544 o|inlining procedure: k2678 o|inlining procedure: k2798 o|inlining procedure: k1336 o|substituted constant variable: proto378 o|inlining procedure: k2902 o|inlining procedure: k2923 o|inlining procedure: k2970 o|inlining procedure: k2994 o|inlining procedure: k3033 o|inlining procedure: k3079 o|replaced variables: 5 o|removed binding forms: 130 o|contracted procedure: k1501 o|contracted procedure: k1391 o|contracted procedure: k1696 o|contracted procedure: k1726 o|contracted procedure: k1802 o|contracted procedure: k1832 o|contracted procedure: k2392 o|contracted procedure: k2463 o|substituted constant variable: r1070 o|substituted constant variable: r1070 o|contracted procedure: k2614 o|contracted procedure: k2675 o|contracted procedure: k2693 o|contracted procedure: k2699 o|contracted procedure: k2726 o|contracted procedure: k2752 o|simplifications: ((let . 8)) o|replaced variables: 1 o|removed binding forms: 39 o|removed binding forms: 3 o|simplifications: ((if . 16) (##core#call . 194)) o| call simplifications: o| chicken.fixnum#fx* o| scheme#vector? o| ##sys#check-string o| scheme#char=? o| scheme#not o| scheme#vector o| ##sys#call-with-values 2 o| chicken.fixnum#fx>= 9 o| ##sys#setslot 4 o| scheme#values 11 o| ##sys#size 7 o| chicken.fixnum#fxmin 3 o| chicken.fixnum#fx- 6 o| chicken.fixnum#fx+ 12 o| chicken.fixnum#fx= o| scheme#+ 5 o| ##sys#setislot 5 o| ##sys#check-structure 5 o| ##sys#slot 14 o| ##sys#structure? o| scheme#car 3 o| scheme#null? 5 o| scheme#cdr 2 o| chicken.fixnum#fx< 7 o| chicken.fixnum#fx> 6 o| scheme#eq? 26 o| ##sys#make-structure 2 o| ##sys#foreign-block-argument 6 o| ##sys#foreign-string-argument 3 o| ##sys#foreign-unsigned-ranged-integer-argument 2 o| ##sys#foreign-fixnum-argument 41 o|contracted procedure: k1005 o|contracted procedure: k1021 o|contracted procedure: k1025 o|contracted procedure: k1029 o|contracted procedure: k1115 o|contracted procedure: k1119 o|contracted procedure: k1251 o|contracted procedure: k1259 o|contracted procedure: k1267 o|contracted procedure: k1558 o|contracted procedure: k1468 o|contracted procedure: k1552 o|contracted procedure: k1471 o|contracted procedure: k1546 o|contracted procedure: k1474 o|contracted procedure: k1540 o|contracted procedure: k1477 o|contracted procedure: k1498 o|contracted procedure: k10863108 o|contracted procedure: k1054 o|contracted procedure: k1058 o|contracted procedure: k1388 o|contracted procedure: k10863122 o|contracted procedure: k1036 o|contracted procedure: k1040 o|contracted procedure: k1044 o|contracted procedure: k1418 o|contracted procedure: k11513132 o|contracted procedure: k1446 o|contracted procedure: k1356 o|contracted procedure: k1360 o|contracted procedure: k1528 o|contracted procedure: k1531 o|contracted procedure: k1576 o|contracted procedure: k1579 o|contracted procedure: k1585 o|contracted procedure: k10863145 o|contracted procedure: k1633 o|contracted procedure: k1661 o|contracted procedure: k1690 o|contracted procedure: k1714 o|contracted procedure: k1754 o|contracted procedure: k1093 o|contracted procedure: k1097 o|contracted procedure: k1101 o|contracted procedure: k1105 o|contracted procedure: k1777 o|contracted procedure: k1787 o|contracted procedure: k1796 o|contracted procedure: k1820 o|contracted procedure: k1868 o|contracted procedure: k1875 o|contracted procedure: k1879 o|contracted procedure: k1886 o|contracted procedure: k1883 o|contracted procedure: k1158 o|contracted procedure: k1162 o|contracted procedure: k1166 o|contracted procedure: k1170 o|contracted procedure: k1174 o|contracted procedure: k1909 o|contracted procedure: k1912 o|contracted procedure: k1915 o|contracted procedure: k1918 o|contracted procedure: k1931 o|contracted procedure: k2038 o|contracted procedure: k2030 o|contracted procedure: k2053 o|contracted procedure: k2046 o|contracted procedure: k10863186 o|contracted procedure: k1981 o|contracted procedure: k1998 o|contracted procedure: k2018 o|contracted procedure: k2010 o|contracted procedure: k2065 o|contracted procedure: k2069 o|contracted procedure: k2072 o|contracted procedure: k2081 o|contracted procedure: k2096 o|contracted procedure: k11443207 o|contracted procedure: k10863216 o|contracted procedure: k2164 o|contracted procedure: k2179 o|contracted procedure: k2182 o|contracted procedure: k2200 o|contracted procedure: k2206 o|contracted procedure: k2209 o|contracted procedure: k2238 o|contracted procedure: k2212 o|contracted procedure: k2216 o|contracted procedure: k2220 o|contracted procedure: k2227 o|contracted procedure: k2231 o|contracted procedure: k2235 o|contracted procedure: k2247 o|contracted procedure: k2262 o|contracted procedure: k2265 o|contracted procedure: k2324 o|contracted procedure: k2278 o|contracted procedure: k2284 o|contracted procedure: k2290 o|contracted procedure: k2300 o|contracted procedure: k2306 o|contracted procedure: k2317 o|contracted procedure: k2313 o|contracted procedure: k2345 o|contracted procedure: k2341 o|contracted procedure: k2334 o|inlining procedure: k2330 o|contracted procedure: k2356 o|contracted procedure: k2360 o|contracted procedure: k2352 o|inlining procedure: k2330 o|contracted procedure: k2366 o|contracted procedure: k2378 o|contracted procedure: k2388 o|contracted procedure: k10863244 o|contracted procedure: k2418 o|contracted procedure: k2421 o|contracted procedure: k2491 o|contracted procedure: k2454 o|contracted procedure: k1065 o|contracted procedure: k2494 o|contracted procedure: k2513 o|contracted procedure: k2525 o|contracted procedure: k2550 o|contracted procedure: k11443270 o|contracted procedure: k2837 o|contracted procedure: k2563 o|contracted procedure: k2575 o|contracted procedure: k2611 o|contracted procedure: k10863281 o|contracted procedure: k2640 o|contracted procedure: k10863293 o|contracted procedure: k2557 o|contracted procedure: k2669 o|contracted procedure: k10863302 o|contracted procedure: k1126 o|contracted procedure: k1130 o|contracted procedure: k1134 o|contracted procedure: k10863311 o|contracted procedure: k2749 o|contracted procedure: k10863318 o|contracted procedure: k11513325 o|contracted procedure: k2779 o|contracted procedure: k1276 o|contracted procedure: k1288 o|contracted procedure: k1297 o|contracted procedure: k1317 o|contracted procedure: k1237 o|contracted procedure: k1244 o|contracted procedure: k1342 o|contracted procedure: k1349 o|contracted procedure: k2852 o|contracted procedure: k1213 o|contracted procedure: k1188 o|contracted procedure: k2951 o|contracted procedure: k2975 o|contracted procedure: k1202 o|contracted procedure: k11953354 o|contracted procedure: k3002 o|contracted procedure: k3005 o|contracted procedure: k3014 o|contracted procedure: k11953365 o|contracted procedure: k3051 o|contracted procedure: k3057 o|simplifications: ((let . 25)) o|removed binding forms: 164 o|inlining procedure: k1255 o|inlining procedure: "(tcp.scm:329) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:317) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:315) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:340) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:395) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:506) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:532) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:530) chicken.tcp#shutdown" o|inlining procedure: "(tcp.scm:416) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:423) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:421) chicken.tcp#shutdown" o|inlining procedure: "(tcp.scm:365) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:567) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:574) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:618) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:621) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:614) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:603) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:601) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:599) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:290) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:637) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:635) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:647) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:645) chicken.tcp#error-code->message" o|inlining procedure: "(tcp.scm:655) chicken.tcp#error-code->message" o|replaced variables: 92 o|removed binding forms: 1 o|removed side-effect free assignment to unused variable: chicken.tcp#error-code->message o|removed side-effect free assignment to unused variable: chicken.tcp#shutdown o|substituted constant variable: r12563498 o|substituted constant variable: r12563498 o|inlining procedure: k1978 o|inlining procedure: k2161 o|replaced variables: 52 o|removed binding forms: 67 o|contracted procedure: k1525 o|contracted procedure: k1504 o|contracted procedure: k1415 o|contracted procedure: k1394 o|contracted procedure: k1443 o|inlining procedure: "(tcp.scm:310) chicken.tcp#socket" o|contracted procedure: k1610 o|contracted procedure: k1684 o|contracted procedure: k1790 o|contracted procedure: k2087 o|contracted procedure: k2395 o|contracted procedure: k2448 o|contracted procedure: k2516 o|contracted procedure: k2602 o|contracted procedure: k2617 o|contracted procedure: k2643 o|contracted procedure: k2723 o|contracted procedure: k2702 o|contracted procedure: k2729 o|contracted procedure: k2776 o|contracted procedure: k2755 o|inlining procedure: "(tcp.scm:597) chicken.tcp#socket" o|contracted procedure: k2936 o|contracted procedure: k2939 o|contracted procedure: k3008 o|removed binding forms: 81 o|removed side-effect free assignment to unused variable: chicken.tcp#socket o|substituted constant variable: int1251303663 o|substituted constant variable: int1251303680 o|replaced variables: 5 o|removed binding forms: 7 o|contracted procedure: k1376 o|contracted procedure: k2587 o|removed binding forms: 2 o|customizable procedures: (check474 chicken.tcp#tcp-port->fileno k2569 loop380 k2427 chicken.tcp#io-ports k1667 loop557 k2127 k2133 read-input507 k1987 k1941 k1944 k1950 output595 k1781 loop598 k1675 chicken.tcp#gethostaddr) o|calls to known targets: 83 o|identified direct recursive calls: f_1785 2 o|identified direct recursive calls: f_2195 1 o|identified direct recursive calls: f_1283 1 o|fast box initializations: 7 o|fast global references: 7 o|fast global assignments: 3 o|dropping unused closure argument: f_1248 o|dropping unused closure argument: f_1622 o|dropping unused closure argument: f_2844 */ /* end of file */ chicken-5.1.0/stub.scm0000644000175000017500000000334113502227553014415 0ustar sjamaansjamaan;;;; stub.scm ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit default_stub) (uses library eval data-structures port extras) (not safe) ) (import chicken.platform) (let loop () (return-to-host) (loop)) chicken-5.1.0/chicken.compiler.scrutinizer.import.scm0000644000175000017500000000155513502227745022556 0ustar sjamaansjamaan;;;; chicken.compiler.scrutinizer.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.compiler.scrutinizer 'scrutinizer (scheme#list) '((scrutinize . chicken.compiler.scrutinizer#scrutinize) (load-type-database . chicken.compiler.scrutinizer#load-type-database) (emit-types-file . chicken.compiler.scrutinizer#emit-types-file) (validate-type . chicken.compiler.scrutinizer#validate-type) (check-and-validate-type . chicken.compiler.scrutinizer#check-and-validate-type) (install-specializations . chicken.compiler.scrutinizer#install-specializations) (match-types . chicken.compiler.scrutinizer#match-types) (refine-types . chicken.compiler.scrutinizer#refine-types) (type<=? . chicken.compiler.scrutinizer#type<=?)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/chicken.gc.import.scm0000644000175000017500000000076013502227730016744 0ustar sjamaansjamaan;;;; chicken.gc.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.gc 'library (scheme#list) '((current-gc-milliseconds . chicken.gc#current-gc-milliseconds) (gc . chicken.gc#gc) (memory-statistics . chicken.gc#memory-statistics) (set-finalizer! . chicken.gc#set-finalizer!) (set-gc-report! . chicken.gc#set-gc-report!) (force-finalizers . chicken.gc#force-finalizers)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/eval-modules.scm0000644000175000017500000000673113502227553016043 0ustar sjamaansjamaan;;;; module registrations for all core modules ; ; Copyright (c) 2017-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit eval-modules) (uses eval)) (include "common-declarations.scm") (define-syntax put! (syntax-rules () ((_ sym prop val) (##core#inline_allocate ("C_a_i_putprop" 8) sym prop val)))) (define-syntax get (syntax-rules () ((_ sym prop) (##core#inline "C_i_getprop" sym prop #f)))) (define-syntax defmod (er-macro-transformer (lambda (x r c) (let ((name (cadr x)) (%lambda (r 'lambda)) (%quote (r 'quote)) (%include (r 'include)) (%put! (r 'put!))) `(,%put! (,%quote ,name) (,%quote ##sys#import) (,%lambda () (,%include ,(string-append (symbol->string name) ".import.scm")))))))) (defmod chicken.bitwise) (defmod chicken.blob) (defmod chicken.foreign) (defmod chicken.fixnum) (defmod chicken.keyword) (defmod chicken.internal) (defmod chicken.platform) (defmod chicken.errno) (defmod chicken.condition) (defmod chicken.string) (defmod chicken.irregex) (defmod chicken.pathname) (defmod chicken.io) (defmod chicken.port) (defmod chicken.time) (defmod chicken.memory) (defmod chicken.file.posix) (defmod chicken.flonum) (defmod chicken.format) (defmod chicken.gc) (defmod chicken.eval) (defmod chicken.load) (defmod chicken.locative) (defmod chicken.memory.representation) (defmod chicken.plist) (defmod chicken.pretty-print) (defmod chicken.process) (defmod chicken.process.signal) (defmod chicken.process-context) (defmod chicken.process-context.posix) (defmod chicken.random) (defmod chicken.sort) (defmod chicken.time.posix) (defmod chicken.continuation) (defmod chicken.file) (defmod chicken.read-syntax) (defmod chicken.repl) (defmod chicken.tcp) (defmod srfi-4) (set! ##sys#import-library-hook (let ((hook ##sys#import-library-hook)) (lambda (mname) (cond ((get mname '##sys#import) => (lambda (il) (il))) (else (hook mname)) ) ) ) ) chicken-5.1.0/chicken.pathname.import.c0000644000175000017500000001722713502227773017625 0ustar sjamaansjamaan/* Generated from chicken.pathname.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.pathname.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.pathname.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.pathname.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(321))){ C_save(t1); C_rereclaim2(321*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],16, C_text("chicken.pathname")); lf[2]=C_h_intern(&lf[2],8, C_text("pathname")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001absolute-pathname\077\376\001\000\000#\001chicken.pathname#absolute-pathname\077\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\023\001decompose-directory\376\001\000\000$\001chicken.pathname#decompose-directory\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\022\001decompose-pathname\376\001\000\000#\001chicken.pathname#decompose-pathname\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\017\001directory-null\077\376\001\000\000 \001chicken.pathname#directory-null\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001make-abs" "olute-pathname\376\001\000\000\047\001chicken.pathname#make-absolute-pathname\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001make-" "pathname\376\001\000\000\036\001chicken.pathname#make-pathname\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001normalize-pathname\376\001" "\000\000#\001chicken.pathname#normalize-pathname\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001pathname-directory\376\001\000\000#\001c" "hicken.pathname#pathname-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001pathname-extension\376\001\000\000#\001chicke" "n.pathname#pathname-extension\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001pathname-file\376\001\000\000\036\001chicken.pathname" "#pathname-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\032\001pathname-replace-directory\376\001\000\000+\001chicken.pathname#p" "athname-replace-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\032\001pathname-replace-extension\376\001\000\000+\001chicken" ".pathname#pathname-replace-extension\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001pathname-replace-file\376\001\000\000&\001c" "hicken.pathname#pathname-replace-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001pathname-strip-directory\376\001\000" "\000)\001chicken.pathname#pathname-strip-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001pathname-strip-exten" "sion\376\001\000\000)\001chicken.pathname#pathname-strip-extension\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2epathname_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2epathname_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2epathname_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2epathname_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2epathname_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/rules.make0000644000175000017500000012153013502227553014726 0ustar sjamaansjamaan# rules.make - basic build rules -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2000-2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. VPATH=$(SRCDIR) # Clear Make's default rules for C programs .SUFFIXES: %.o : %.c %: %.o # object files LIBCHICKEN_SCHEME_OBJECTS_1 = \ library eval read-syntax repl data-structures pathname port file \ extras lolevel tcp srfi-4 continuation $(POSIXFILE) internal \ irregex scheduler debugger-client profiler stub expand modules \ chicken-syntax chicken-ffi-syntax build-version LIBCHICKEN_OBJECTS_1 = $(LIBCHICKEN_SCHEME_OBJECTS_1) runtime LIBCHICKEN_SHARED_OBJECTS = $(LIBCHICKEN_OBJECTS_1:=$(O)) LIBCHICKEN_STATIC_OBJECTS = $(LIBCHICKEN_OBJECTS_1:=-static$(O)) \ eval-modules-static$(O) COMPILER_OBJECTS_1 = \ chicken batch-driver core optimizer lfa2 compiler-syntax scrutinizer support \ c-platform c-backend user-pass COMPILER_OBJECTS = $(COMPILER_OBJECTS_1:=$(O)) COMPILER_STATIC_OBJECTS = $(COMPILER_OBJECTS_1:=-static$(O)) # "Utility programs" is arbitrary. It includes anything but the "chicken" binary. # We can't use the INSTALLED_PROGRAMS below because of the possible $(EXE) # suffix and other possible mangling requested by the user. (is this supported?) UTILITY_PROGRAM_OBJECTS_1 = \ csc csi chicken-install chicken-uninstall chicken-status chicken-profile # Not all programs built are installed(?) This is the master list that takes # care of which programs should actually be installed/uninstalled INSTALLED_PROGRAMS = \ $(CHICKEN_PROGRAM) $(CSI_PROGRAM) $(CHICKEN_PROFILE_PROGRAM) \ $(CSC_PROGRAM) \ $(CHICKEN_DO_PROGRAM) $(CHICKEN_STATUS_PROGRAM) \ $(CHICKEN_INSTALL_PROGRAM) $(CHICKEN_UNINSTALL_PROGRAM) # These generated files make up a bootstrapped distribution build. # They are not cleaned by the 'clean' target, but only by 'spotless'. DISTFILES = $(filter-out runtime.c,$(LIBCHICKEN_OBJECTS_1:=.c)) \ $(UTILITY_PROGRAM_OBJECTS_1:=.c) \ $(COMPILER_OBJECTS_1:=.c) \ $(IMPORT_LIBRARIES:=.import.c) \ $(DYNAMIC_IMPORT_LIBRARIES:=.import.scm) \ $(foreach lib,$(DYNAMIC_CHICKEN_IMPORT_LIBRARIES),chicken.$(lib).import.scm) \ $(foreach lib,$(DYNAMIC_CHICKEN_UNIT_IMPORT_LIBRARIES),chicken.$(lib).import.scm) \ $(foreach lib,$(COMPILER_OBJECTS_1),chicken.compiler.$(lib).import.scm) \ eval-modules.c posixunix.c posixwin.c # Remove the duplicate $(POSIXFILE) entry: DISTFILES := $(sort $(DISTFILES)) # library objects ## Any variable that starts with "declare-" is a meta-rule. When $(call)ed ## it produces output that represents an instantiated rule and recipe. ## This output then needs to be $(eval)ed in order to be added to the ## ruleset evaluated by Make. This allows us to automatically generate ## similar rules for long lists of targets. ## Note: in some of the rules that follow it is important to add ## $(INCLUDES) last, because on raw mingw (using the DOS shell) the ## backslash in "-I.\" seems to be interpreted as a line-terminator. ## This may be caused by cmd.exe-stupidness or a bug in mingw32-make ## or some other obscure reason. define declare-shared-library-object $(1)$(O): $(1).c chicken.h $$(CHICKEN_CONFIG_H) $$(C_COMPILER) $$(C_COMPILER_OPTIONS) \ $$(C_COMPILER_COMPILE_OPTION) $$(C_COMPILER_OPTIMIZATION_OPTIONS) $$(C_COMPILER_SHARED_OPTIONS) \ $$(C_COMPILER_BUILD_RUNTIME_OPTIONS) $$< $$(C_COMPILER_OUTPUT) \ $$(INCLUDES) endef # The above meta-rule is reused in the setup API stuff below, so we alias it declare-libchicken-object = $(declare-shared-library-object) $(foreach obj, $(LIBCHICKEN_OBJECTS_1),\ $(eval $(call declare-libchicken-object,$(obj)))) # static versions define declare-static-library-object $(1)-static$(O): $(1).c chicken.h $$(CHICKEN_CONFIG_H) $$(C_COMPILER) $$(C_COMPILER_OPTIONS) \ $$(C_COMPILER_COMPILE_OPTION) $$(C_COMPILER_OPTIMIZATION_OPTIONS) \ $$(C_COMPILER_STATIC_OPTIONS) \ $$(C_COMPILER_BUILD_RUNTIME_OPTIONS) $$< $$(C_COMPILER_OUTPUT) \ $$(INCLUDES) endef declare-static-libchicken-object = $(declare-static-library-object) $(foreach obj, $(LIBCHICKEN_OBJECTS_1),\ $(eval $(call declare-static-libchicken-object,$(obj)))) $(eval $(call declare-static-libchicken-object,eval-modules)) # import library objects define declare-import-lib-object $(1).import$(O): $(1).import.c chicken.h $$(CHICKEN_CONFIG_H) $$(C_COMPILER) $$(C_COMPILER_OPTIONS) \ -DC_SHARED $$(C_COMPILER_COMPILE_OPTION) \ $$(C_COMPILER_OPTIMIZATION_OPTIONS) $$(C_COMPILER_SHARED_OPTIONS) \ $$(C_COMPILER_BUILD_RUNTIME_OPTIONS) $$< $$(C_COMPILER_OUTPUT) \ $$(INCLUDES) endef $(foreach obj,$(IMPORT_LIBRARIES),\ $(eval $(call declare-import-lib-object,$(obj)))) # compiler objects define declare-compiler-object $(1)$(O): $(1).c chicken.h $$(CHICKEN_CONFIG_H) $$(C_COMPILER) $$(C_COMPILER_OPTIONS) \ $$(C_COMPILER_COMPILE_OPTION) $$(C_COMPILER_OPTIMIZATION_OPTIONS) $$(C_COMPILER_SHARED_OPTIONS) $$< \ $$(C_COMPILER_OUTPUT) $$(INCLUDES) endef $(foreach obj, $(COMPILER_OBJECTS_1),\ $(eval $(call declare-compiler-object,$(obj)))) # static compiler objects define declare-static-compiler-object $(1)-static$(O): $(1).c chicken.h $$(CHICKEN_CONFIG_H) $$(C_COMPILER) $$(C_COMPILER_OPTIONS) \ $$(C_COMPILER_STATIC_OPTIONS) \ $$(C_COMPILER_COMPILE_OPTION) $$(C_COMPILER_OPTIMIZATION_OPTIONS) $$< $$(C_COMPILER_OUTPUT) \ $$(INCLUDES) endef $(foreach obj, $(COMPILER_OBJECTS_1),\ $(eval $(call declare-static-compiler-object,$(obj)))) # program objects define declare-utility-program-object $(1)$(O): $(1).c chicken.h $$(CHICKEN_CONFIG_H) $$(C_COMPILER) $$(C_COMPILER_OPTIONS) $$(C_COMPILER_SHARED_OPTIONS) \ $$(C_COMPILER_COMPILE_OPTION) $$(C_COMPILER_OPTIMIZATION_OPTIONS) $$< $$(C_COMPILER_OUTPUT) \ $$(INCLUDES) endef $(foreach obj, $(UTILITY_PROGRAM_OBJECTS_1),\ $(eval $(call declare-utility-program-object,$(obj)))) # resource objects %.rc.o: %.rc $(RC_COMPILER) $< $@ # libraries .PHONY: libs libs: $(TARGETLIBS) lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(SO): $(LIBCHICKEN_SHARED_OBJECTS) $(LINKER) $(LINKER_OPTIONS) $(LINKER_LINK_SHARED_LIBRARY_OPTIONS) $(LIBCHICKEN_SO_LINKER_OPTIONS) \ $(LINKER_OUTPUT) $^ $(LIBCHICKEN_SO_LIBRARIES) ifdef USES_SONAME ln -sf $(LIBCHICKEN_SO_FILE) $(LIBCHICKEN_SO_FILE).$(BINARYVERSION) endif cyg$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)-0.dll: $(LIBCHICKEN_SHARED_OBJECTS) $(LINKER) -shared -o $(LIBCHICKEN_SO_FILE) -Wl,--dll -Wl,--add-stdcall-alias \ -Wl,--enable-stdcall-fixup -Wl,--warn-unresolved-symbols \ -Wl,--dll-search-prefix=cyg -Wl,--allow-multiple-definition \ -Wl,--allow-shlib-undefined \ -Wl,--out-implib=libchicken.dll.a -Wl,--export-all-symbols \ -Wl,--enable-auto-import \ -Wl,--whole-archive $(LIBCHICKEN_SHARED_OBJECTS) \ -Wl,--no-whole-archive $(LIBCHICKEN_SO_LIBRARIES) lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A): $(LIBCHICKEN_STATIC_OBJECTS) $(LIBRARIAN) $(LIBRARIAN_OPTIONS) $(LIBRARIAN_OUTPUT) $^ # import libraries and extensions %.so: %.o $(LINKER) $(LINKER_OPTIONS) $(LINKER_LINK_SHARED_DLOADABLE_OPTIONS) $^ $(LINKER_OUTPUT_OPTION) $@ \ $(LINKER_LIBRARY_PREFIX)$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(LINKER_LIBRARY_SUFFIX) \ $(LIBRARIES) # executables $(CHICKEN_SHARED_EXECUTABLE): $(COMPILER_OBJECTS) $(PRIMARY_LIBCHICKEN) $(LINKER) $(LINKER_OPTIONS) $(LINKER_EXECUTABLE_OPTIONS) $(COMPILER_OBJECTS) $(LINKER_OUTPUT) \ $(LINKER_LIBRARY_PREFIX)$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(LINKER_LIBRARY_SUFFIX) $(LINKER_LINK_SHARED_PROGRAM_OPTIONS) $(LIBRARIES) define declare-program-from-object $(1)-RC_FILE = $(if $(and $(RC_COMPILER),$(3)),$(2).rc$(O)) $(1): $(2)$(O) $$(PRIMARY_LIBCHICKEN) $$($(1)-RC_FILE) $$(LINKER) $$(LINKER_OPTIONS) $$(LINKER_EXECUTABLE_OPTIONS) $$< \ $$($(1)-RC_FILE) $$(LINKER_OUTPUT) \ $$(LINKER_LIBRARY_PREFIX)$$(PROGRAM_PREFIX)chicken$$(PROGRAM_SUFFIX)$$(LINKER_LIBRARY_SUFFIX) \ $$(LINKER_LINK_SHARED_PROGRAM_OPTIONS) $$(LIBRARIES) endef # Unfortunately, we can't loop over INSTALLED_PROGRAMS here because of # the possible name mangling and EXE suffixing in there :( $(eval $(call declare-program-from-object,$(CSI_SHARED_EXECUTABLE),csi)) $(eval $(call declare-program-from-object,$(CHICKEN_INSTALL_PROGRAM)$(EXE),chicken-install,true)) $(eval $(call declare-program-from-object,$(CHICKEN_UNINSTALL_PROGRAM)$(EXE),chicken-uninstall,true)) $(eval $(call declare-program-from-object,$(CHICKEN_STATUS_PROGRAM)$(EXE),chicken-status)) $(eval $(call declare-program-from-object,$(CHICKEN_PROFILE_PROGRAM)$(EXE),chicken-profile)) $(eval $(call declare-program-from-object,$(CSC_PROGRAM)$(EXE),csc)) # static executables $(CHICKEN_STATIC_EXECUTABLE): $(COMPILER_STATIC_OBJECTS) lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A) $(LINKER) $(LINKER_OPTIONS) $(LINKER_STATIC_OPTIONS) $(COMPILER_STATIC_OBJECTS) $(LINKER_OUTPUT) lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A) $(LIBRARIES) define declare-static-program-from-object $(1): $(2)$(O) lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A) $$(LINKER) $$(LINKER_OPTIONS) $$(LINKER_STATIC_OPTIONS) $$< $$(LINKER_OUTPUT) lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A) $$(LIBRARIES) endef $(eval $(call declare-program-from-object,$(CSI_STATIC_EXECUTABLE),csi)) # "chicken-do" $(CHICKEN_DO_PROGRAM)$(EXE): $(SRCDIR)chicken-do.c $(C_COMPILER) $(C_COMPILER_OPTIONS) $(C_COMPILER_OPTIMIZATION_OPTIONS) $< -o $@ # scripts $(CHICKEN_DEBUGGER_PROGRAM): $(SRCDIR)feathers$(SCRIPT_EXT).in $(GENERATE_DEBUGGER) # installation .PHONY: install uninstall install-libs .PHONY: install-target install-dev install-bin install-other-files install-wrappers install: $(TARGETS) install-target install-bin install-libs install-dev install-other-files install-target: install-libs install-libs: $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(ILIBDIR)" ifneq ($(LIBCHICKEN_IMPORT_LIBRARY),) $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_STATIC_LIBRARY_OPTIONS) $(LIBCHICKEN_IMPORT_LIBRARY) "$(DESTDIR)$(ILIBDIR)" endif ifndef STATICBUILD ifdef DLLSINPATH $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(IBINDIR)" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_SHARED_LIBRARY_OPTIONS) $(LIBCHICKEN_SO_FILE) "$(DESTDIR)$(IBINDIR)" else ifdef USES_SONAME $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_SHARED_LIBRARY_OPTIONS) $(LIBCHICKEN_SO_FILE) "$(DESTDIR)$(ILIBDIR)$(SEP)$(LIBCHICKEN_SO_FILE).$(BINARYVERSION)" cd "$(DESTDIR)$(ILIBDIR)" && ln -sf $(LIBCHICKEN_SO_FILE).$(BINARYVERSION) lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(SO) else $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_SHARED_LIBRARY_OPTIONS) $(LIBCHICKEN_SO_FILE) "$(DESTDIR)$(ILIBDIR)$(SEP)$(LIBCHICKEN_SO_FILE)" endif endif endif define NL endef # A newline, used to inject recipe lines in a loop. Ugly, but necessary install-dev: install-libs $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(ILIBDIR)" $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(ISHAREDIR)" $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(IEGGDIR)" $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(ICHICKENINCDIR)" $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(IDATADIR)" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_STATIC_LIBRARY_OPTIONS) lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A) "$(DESTDIR)$(ILIBDIR)" ifneq ($(POSTINSTALL_STATIC_LIBRARY),true) $(POSTINSTALL_STATIC_LIBRARY) $(POSTINSTALL_STATIC_LIBRARY_FLAGS) "$(ILIBDIR)$(SEP)libchicken$(A)" endif $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)chicken.h "$(DESTDIR)$(ICHICKENINCDIR)" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(CHICKEN_CONFIG_H) "$(DESTDIR)$(ICHICKENINCDIR)" ifeq ($(PLATFORM),macosx) $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)mac.r "$(DESTDIR)$(ISHAREDIR)" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)CHICKEN.icns "$(DESTDIR)$(IDATADIR)" endif ifdef WINDOWS $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)chicken.ico "$(DESTDIR)$(IDATADIR)" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)chicken.rc$(O) "$(DESTDIR)$(IDATADIR)" endif $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)types.db "$(DESTDIR)$(IEGGDIR)" ifeq ($(NEEDS_RELINKING),yes) install-bin: $(foreach prog,$(INSTALLED_PROGRAMS),\ $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(prog)$(EXE) $(NL)) $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(IMPORT_LIBRARIES:%=%.so) $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(IMPORT_LIBRARIES:%=%.import.so) $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(LIBCHICKEN_SO_FILE) "$(MAKE)" PLATFORM=$(PLATFORM) CONFIG=$(CONFIG) NEEDS_RELINKING=no RUNTIME_LINKER_PATH="$(LIBDIR)" install-bin # Damn. What was this for, again? # # $(MAKE_WRITABLE_COMMAND) $(CHICKEN_PROGRAM)$(EXE) $(CSI_PROGRAM)$(EXE) $(CSC_PROGRAM)$(EXE) $(CHICKEN_PROFILE_PROGRAM)$(EXE) # $(MAKE_WRITABLE_COMMAND) $(CHICKEN_INSTALL_PROGRAM)$(EXE) # $(MAKE_WRITABLE_COMMAND) $(CHICKEN_UNINSTALL_PROGRAM)$(EXE) # $(MAKE_WRITABLE_COMMAND) $(CHICKEN_STATUS_PROGRAM)$(EXE) else install-bin: $(TARGETS) install-libs install-dev $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(IBINDIR)" $(foreach prog,$(INSTALLED_PROGRAMS),\ $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_EXECUTABLE_OPTIONS) \ $(prog)$(EXE) "$(DESTDIR)$(IBINDIR)" $(NL)) $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_EXECUTABLE_OPTIONS) $(CHICKEN_DEBUGGER_PROGRAM) "$(DESTDIR)$(IBINDIR)" ifdef STATICBUILD $(foreach lib,$(IMPORT_LIBRARIES),\ $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) \ $(lib).import.scm "$(DESTDIR)$(IEGGDIR)" $(NL)) else $(foreach lib,$(IMPORT_LIBRARIES),\ $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_EXECUTABLE_OPTIONS) \ $(lib).import.so "$(DESTDIR)$(IEGGDIR)" $(NL)) endif ifneq ($(POSTINSTALL_PROGRAM),true) ifndef STATICBUILD $(foreach prog,$(INSTALLED_PROGRAMS),\ $(POSTINSTALL_PROGRAM) $(POSTINSTALL_PROGRAM_FLAGS) \ "$(DESTDIR)$(IBINDIR)$(SEP)$(prog)" $(NL)) $(foreach import-lib,$(IMPORT_LIBRARIES),\ $(POSTINSTALL_PROGRAM) $(POSTINSTALL_PROGRAM_FLAGS) \ "$(DESTDIR)$(IEGGDIR)$(SEP)$(import-lib).import.so" $(NL)) endif endif ifeq ($(CROSS_CHICKEN)$(DESTDIR),0) -$(IBINDIR)$(SEP)$(CHICKEN_INSTALL_PROGRAM) -update-db else @echo @echo "Warning: cannot run \`$(CHICKEN_INSTALL_PROGRAM) -update-db' when cross-compiling or DESTDIR is set" @echo endif endif ifdef WINDOWS_SHELL $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_EXECUTABLE_OPTIONS) $(SRCDIR)csibatch.bat "$(DESTDIR)$(IBINDIR)" endif install-other-files: $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(IMAN1DIR)" $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(IDOCDIR)" $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(IDATADIR)" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)chicken$(MAN) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_PROGRAM).1" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)csc$(MAN) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CSC_PROGRAM).1" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)csi$(MAN) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CSI_PROGRAM).1" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)chicken-do$(MAN) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_DO_PROGRAM).1" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)chicken-install$(MAN) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_INSTALL_PROGRAM).1" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)chicken-uninstall$(MAN) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_UNINSTALL_PROGRAM).1" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)chicken-status$(MAN) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_STATUS_PROGRAM).1" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)chicken-profile$(MAN) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_PROFILE_PROGRAM).1" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)feathers$(MAN) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_DEBUGGER_PROGRAM).1" $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) "$(DESTDIR)$(IDOCDIR)$(SEP)manual" -$(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)manual-html$(SEP)* "$(DESTDIR)$(IDOCDIR)$(SEP)manual" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)README "$(DESTDIR)$(IDOCDIR)" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)DEPRECATED "$(DESTDIR)$(IDOCDIR)" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)LICENSE "$(DESTDIR)$(IDOCDIR)" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)setup.defaults "$(DESTDIR)$(IDATADIR)" $(INSTALL_PROGRAM) $(INSTALL_PROGRAM_FILE_OPTIONS) $(SRCDIR)feathers.tcl "$(DESTDIR)$(IDATADIR)" install-wrappers: ifeq ($(WRAPPERDIR),) @echo @echo Error: WRAPPERDIR is not set @echo @exit 1 endif $(foreach prg, $(INSTALLED_PROGRAMS), \ $(CSI) -s $(SRCDIR)scripts$(SEP)make-wrapper.scm $(prg) "$(WRAPPERDIR)" $(NL)) uninstall: $(foreach prog,$(INSTALLED_PROGRAMS),\ $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS)\ "$(DESTDIR)$(IBINDIR)$(SEP)$(prog)$(EXE)" $(NL)) $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IBINDIR)$(SEP)$(CHICKEN_DEBUGGER_PROGRAM)" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(ILIBDIR)$(SEP)lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A)" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(ILIBDIR)$(SEP)lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(SO)" ifdef USES_SONAME -$(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(ILIBDIR)$(SEP)lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(SO).$(BINARYVERSION)" endif ifdef WINDOWS $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IBINDIR)$(SEP)lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(SO)" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(ILIBDIR)$(SEP)$(LIBCHICKEN_IMPORT_LIBRARY)" endif ifeq ($(PLATFORM),cygwin) $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IBINDIR)$(SEP)cyg$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)*" endif $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_PROGRAM).1" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CSC_PROGRAM).1" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CSI_PROGRAM).1" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_INSTALL_PROGRAM).1" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_UNINSTALL_PROGRAM).1" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_STATUS_PROGRAM).1" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_PROFILE_PROGRAM).1" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IMAN1DIR)$(SEP)$(CHICKEN_DEBUGGER_PROGRAM).1" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(ICHICKENINCDIR)$(SEP)chicken.h" $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(ICHICKENINCDIR)$(SEP)$(CHICKEN_CONFIG_H)" $(REMOVE_COMMAND) $(REMOVE_COMMAND_RECURSIVE_OPTIONS) "$(DESTDIR)$(IDATADIR)" $(REMOVE_COMMAND) $(REMOVE_COMMAND_RECURSIVE_OPTIONS) "$(DESTDIR)$(IEGGDIR)" ifdef WINDOWS_SHELL $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) "$(DESTDIR)$(IBINDIR)$(SEP)csibatch.bat" endif # build versioning ifdef WINDOWS_SHELL buildbranch: echo.$(BRANCHNAME)>buildbranch buildid: echo.$(BUILD_ID)>buildid else .PHONY: identify-me identify-me: @sh $(SRCDIR)identify.sh $(SRCDIR) buildbranch: identify-me buildid: identify-me endif # bootstrapping c sources define declare-emitted-import-lib-dependency .SECONDARY: $(1).import.scm $(1).import.scm: $(2).c endef define declare-emitted-chicken-import-lib-dependency $(call declare-emitted-import-lib-dependency,chicken.$(1),$(1)) endef define declare-emitted-compiler-import-lib-dependency $(call declare-emitted-import-lib-dependency,chicken.compiler.$(1),$(1)) endef $(foreach lib, $(DYNAMIC_IMPORT_LIBRARIES),\ $(eval $(call declare-emitted-import-lib-dependency,$(lib),$(lib)))) $(foreach lib, $(DYNAMIC_CHICKEN_UNIT_IMPORT_LIBRARIES),\ $(eval $(call declare-emitted-chicken-import-lib-dependency,$(lib)))) $(foreach lib, $(COMPILER_OBJECTS_1),\ $(eval $(call declare-emitted-compiler-import-lib-dependency,$(lib)))) # special cases for modules not corresponding directly to units $(eval $(call declare-emitted-import-lib-dependency,chicken.errno,$(POSIXFILE))) $(eval $(call declare-emitted-import-lib-dependency,chicken.file.posix,$(POSIXFILE))) $(eval $(call declare-emitted-import-lib-dependency,chicken.time.posix,$(POSIXFILE))) $(eval $(call declare-emitted-import-lib-dependency,chicken.process,$(POSIXFILE))) $(eval $(call declare-emitted-import-lib-dependency,chicken.process.signal,$(POSIXFILE))) $(eval $(call declare-emitted-import-lib-dependency,chicken.process-context.posix,$(POSIXFILE))) $(eval $(call declare-emitted-import-lib-dependency,chicken.bitwise,library)) $(eval $(call declare-emitted-import-lib-dependency,chicken.blob,library)) $(eval $(call declare-emitted-import-lib-dependency,chicken.fixnum,library)) $(eval $(call declare-emitted-import-lib-dependency,chicken.flonum,library)) $(eval $(call declare-emitted-import-lib-dependency,chicken.gc,library)) $(eval $(call declare-emitted-import-lib-dependency,chicken.keyword,library)) $(eval $(call declare-emitted-import-lib-dependency,chicken.platform,library)) $(eval $(call declare-emitted-import-lib-dependency,chicken.plist,library)) $(eval $(call declare-emitted-import-lib-dependency,chicken.process-context,library)) $(eval $(call declare-emitted-import-lib-dependency,chicken.time,library)) $(eval $(call declare-emitted-import-lib-dependency,chicken.load,eval)) $(eval $(call declare-emitted-import-lib-dependency,chicken.format,extras)) $(eval $(call declare-emitted-import-lib-dependency,chicken.io,extras)) $(eval $(call declare-emitted-import-lib-dependency,chicken.pretty-print,extras)) $(eval $(call declare-emitted-import-lib-dependency,chicken.random,extras)) $(eval $(call declare-emitted-import-lib-dependency,chicken.locative,lolevel)) $(eval $(call declare-emitted-import-lib-dependency,chicken.memory,lolevel)) $(eval $(call declare-emitted-import-lib-dependency,chicken.memory.representation,lolevel)) $(eval $(call declare-emitted-import-lib-dependency,chicken.sort,data-structures)) $(eval $(call declare-emitted-import-lib-dependency,chicken.string,data-structures)) chicken.c: chicken.scm mini-srfi-1.scm \ chicken.compiler.batch-driver.import.scm \ chicken.compiler.c-platform.import.scm \ chicken.compiler.support.import.scm \ chicken.compiler.user-pass.import.scm \ chicken.process-context.import.scm \ chicken.string.import.scm batch-driver.c: batch-driver.scm mini-srfi-1.scm \ chicken.compiler.core.import.scm \ chicken.compiler.compiler-syntax.import.scm \ chicken.compiler.optimizer.import.scm \ chicken.compiler.scrutinizer.import.scm \ chicken.compiler.c-platform.import.scm \ chicken.compiler.lfa2.import.scm \ chicken.compiler.c-backend.import.scm \ chicken.compiler.support.import.scm \ chicken.compiler.user-pass.import.scm \ chicken.format.import.scm \ chicken.gc.import.scm \ chicken.internal.import.scm \ chicken.load.import.scm \ chicken.pathname.import.scm \ chicken.platform.import.scm \ chicken.pretty-print.import.scm \ chicken.process-context.import.scm \ chicken.string.import.scm \ chicken.time.import.scm c-platform.c: c-platform.scm mini-srfi-1.scm \ chicken.compiler.optimizer.import.scm \ chicken.compiler.support.import.scm \ chicken.compiler.core.import.scm \ chicken.internal.import.scm c-backend.c: c-backend.scm mini-srfi-1.scm \ chicken.compiler.c-platform.import.scm \ chicken.compiler.support.import.scm \ chicken.compiler.core.import.scm \ chicken.bitwise.import.scm \ chicken.flonum.import.scm \ chicken.foreign.import.scm \ chicken.format.import.scm \ chicken.internal.import.scm \ chicken.sort.import.scm \ chicken.string.import.scm \ chicken.time.import.scm core.c: core.scm mini-srfi-1.scm \ chicken.compiler.scrutinizer.import.scm \ chicken.compiler.support.import.scm \ chicken.eval.import.scm \ chicken.format.import.scm \ chicken.io.import.scm \ chicken.keyword.import.scm \ chicken.load.import.scm \ chicken.pretty-print.import.scm \ chicken.string.import.scm optimizer.c: optimizer.scm mini-srfi-1.scm \ chicken.compiler.support.import.scm \ chicken.internal.import.scm \ chicken.sort.import.scm \ chicken.string.import.scm scheduler.c: scheduler.scm \ chicken.format.import.scm \ chicken.condition.import.scm scrutinizer.c: scrutinizer.scm mini-srfi-1.scm \ chicken.compiler.support.import.scm \ chicken.format.import.scm \ chicken.internal.import.scm \ chicken.io.import.scm \ chicken.pathname.import.scm \ chicken.platform.import.scm \ chicken.port.import.scm \ chicken.pretty-print.import.scm \ chicken.string.import.scm lfa2.c: lfa2.scm mini-srfi-1.scm \ chicken.compiler.support.import.scm \ chicken.format.import.scm compiler-syntax.c: compiler-syntax.scm mini-srfi-1.scm \ chicken.compiler.support.import.scm \ chicken.compiler.core.import.scm \ chicken.format.import.scm chicken-ffi-syntax.c: chicken-ffi-syntax.scm \ chicken.format.import.scm \ chicken.internal.import.scm \ chicken.string.import.scm support.c: support.scm mini-srfi-1.scm \ chicken.bitwise.import.scm \ chicken.blob.import.scm \ chicken.condition.import.scm \ chicken.file.import.scm \ chicken.foreign.import.scm \ chicken.format.import.scm \ chicken.internal.import.scm \ chicken.io.import.scm \ chicken.keyword.import.scm \ chicken.pathname.import.scm \ chicken.platform.import.scm \ chicken.plist.import.scm \ chicken.port.import.scm \ chicken.pretty-print.import.scm \ chicken.random.import.scm \ chicken.sort.import.scm \ chicken.string.import.scm \ chicken.time.import.scm modules.c: modules.scm \ chicken.internal.import.scm \ chicken.keyword.import.scm \ chicken.base.import.scm \ chicken.syntax.import.scm \ chicken.load.import.scm \ chicken.platform.import.scm csc.c: csc.scm \ chicken.file.import.scm \ chicken.foreign.import.scm \ chicken.format.import.scm \ chicken.io.import.scm \ chicken.pathname.import.scm \ chicken.process.import.scm \ chicken.process-context.import.scm \ chicken.string.import.scm csi.c: csi.scm \ chicken.condition.import.scm \ chicken.foreign.import.scm \ chicken.format.import.scm \ chicken.gc.import.scm \ chicken.internal.import.scm \ chicken.io.import.scm \ chicken.keyword.import.scm \ chicken.load.import.scm \ chicken.platform.import.scm \ chicken.port.import.scm \ chicken.pretty-print.import.scm \ chicken.process-context.import.scm \ chicken.repl.import.scm \ chicken.sort.import.scm \ chicken.string.import.scm chicken-profile.c: chicken-profile.scm \ chicken.internal.import.scm \ chicken.file.posix.import.scm \ chicken.process-context.import.scm \ chicken.sort.import.scm \ chicken.string.import.scm chicken-status.c: chicken-status.scm \ chicken.file.import.scm \ chicken.file.posix.import.scm \ chicken.foreign.import.scm \ chicken.format.import.scm \ chicken.irregex.import.scm \ chicken.pathname.import.scm \ chicken.port.import.scm \ chicken.pretty-print.import.scm \ chicken.process-context.import.scm \ chicken.sort.import.scm \ chicken.string.import.scm chicken-install.c: chicken-install.scm \ chicken.condition.import.scm \ chicken.file.import.scm \ chicken.file.posix.import.scm \ chicken.foreign.import.scm \ chicken.format.import.scm \ chicken.io.import.scm \ chicken.irregex.import.scm \ chicken.pathname.import.scm \ chicken.port.import.scm \ chicken.pretty-print.import.scm \ chicken.process.import.scm \ chicken.process-context.import.scm \ chicken.sort.import.scm \ chicken.string.import.scm \ chicken.tcp.import.scm chicken-uninstall.c: chicken-uninstall.scm \ chicken.file.import.scm \ chicken.foreign.import.scm \ chicken.format.import.scm \ chicken.irregex.import.scm \ chicken.pathname.import.scm \ chicken.port.import.scm \ chicken.process.import.scm \ chicken.process-context.import.scm \ chicken.string.import.scm chicken-syntax.c: chicken-syntax.scm \ chicken.platform.import.scm \ chicken.internal.import.scm srfi-4.c: srfi-4.scm \ chicken.bitwise.import.scm \ chicken.foreign.import.scm \ chicken.gc.import.scm \ chicken.platform.import.scm posixunix.c: posixunix.scm \ chicken.bitwise.import.scm \ chicken.condition.import.scm \ chicken.foreign.import.scm \ chicken.memory.import.scm \ chicken.pathname.import.scm \ chicken.platform.import.scm \ chicken.port.import.scm \ chicken.process-context.import.scm \ chicken.time.import.scm posixwin.c: posixwin.scm \ chicken.condition.import.scm \ chicken.bitwise.import.scm \ chicken.foreign.import.scm \ chicken.memory.import.scm \ chicken.pathname.import.scm \ chicken.platform.import.scm \ chicken.port.import.scm \ chicken.process-context.import.scm \ chicken.string.import.scm \ chicken.time.import.scm data-structures.c: data-structures.scm \ chicken.condition.import.scm \ chicken.foreign.import.scm expand.c: expand.scm \ chicken.blob.import.scm \ chicken.condition.import.scm \ chicken.keyword.import.scm \ chicken.platform.import.scm \ chicken.internal.import.scm extras.c: extras.scm \ chicken.string.import.scm \ chicken.time.import.scm eval.c: eval.scm \ chicken.blob.import.scm \ chicken.condition.import.scm \ chicken.foreign.import.scm \ chicken.internal.import.scm \ chicken.keyword.import.scm \ chicken.platform.import.scm repl.c: repl.scm \ chicken.eval.import.scm file.c: file.scm \ chicken.condition.import.scm \ chicken.io.import.scm \ chicken.irregex.import.scm \ chicken.foreign.import.scm \ chicken.pathname.import.scm \ chicken.process-context.import.scm lolevel.c: lolevel.scm \ chicken.foreign.import.scm pathname.c: pathname.scm \ chicken.irregex.import.scm \ chicken.platform.import.scm \ chicken.string.import.scm port.c: port.scm \ chicken.io.import.scm read-syntax.c: read-syntax.scm \ chicken.internal.import.scm \ chicken.platform.import.scm tcp.c: tcp.scm \ chicken.foreign.import.scm \ chicken.port.import.scm \ chicken.time.import.scm eval-modules.c: eval-modules.scm $(DYNAMIC_IMPORT_LIBRARIES:=.import.scm) \ $(foreach lib,$(DYNAMIC_CHICKEN_IMPORT_LIBRARIES),chicken.$(lib).import.scm) \ $(foreach lib,$(DYNAMIC_CHICKEN_UNIT_IMPORT_LIBRARIES),$(lib).c) define profile-flags $(if $(filter $(basename $(1)),$(PROFILE_OBJECTS)),-profile) endef bootstrap-lib = $(CHICKEN) $(call profile-flags, $@) $< $(CHICKEN_LIBRARY_OPTIONS) -output-file $@ library.c: $(SRCDIR)library.scm $(bootstrap-lib) \ -no-module-registration \ -emit-import-library chicken.bitwise \ -emit-import-library chicken.blob \ -emit-import-library chicken.fixnum \ -emit-import-library chicken.flonum \ -emit-import-library chicken.gc \ -emit-import-library chicken.keyword \ -emit-import-library chicken.platform \ -emit-import-library chicken.plist \ -emit-import-library chicken.process-context internal.c: $(SRCDIR)internal.scm $(SRCDIR)mini-srfi-1.scm $(bootstrap-lib) -emit-import-library chicken.internal eval.c: $(SRCDIR)eval.scm $(SRCDIR)common-declarations.scm $(SRCDIR)mini-srfi-1.scm $(bootstrap-lib) \ -emit-import-library chicken.eval \ -emit-import-library chicken.load read-syntax.c: $(SRCDIR)read-syntax.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) -emit-import-library chicken.read-syntax repl.c: $(SRCDIR)repl.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) -emit-import-library chicken.repl expand.c: $(SRCDIR)expand.scm $(SRCDIR)synrules.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) \ -no-module-registration modules.c: $(SRCDIR)modules.scm $(SRCDIR)common-declarations.scm $(SRCDIR)mini-srfi-1.scm $(bootstrap-lib) extras.c: $(SRCDIR)extras.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) \ -emit-import-library chicken.format \ -emit-import-library chicken.io \ -emit-import-library chicken.pretty-print \ -emit-import-library chicken.random posixunix.c: $(SRCDIR)posix.scm $(SRCDIR)posixunix.scm $(SRCDIR)posix-common.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) -feature platform-unix \ -emit-import-library chicken.errno \ -emit-import-library chicken.file.posix \ -emit-import-library chicken.time.posix \ -emit-import-library chicken.process \ -emit-import-library chicken.process.signal \ -emit-import-library chicken.process-context.posix \ -no-module-registration posixwin.c: $(SRCDIR)posix.scm $(SRCDIR)posixwin.scm $(SRCDIR)posix-common.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) -feature platform-windows \ -emit-import-library chicken.errno \ -emit-import-library chicken.file.posix \ -emit-import-library chicken.time.posix \ -emit-import-library chicken.process \ -emit-import-library chicken.process.signal \ -emit-import-library chicken.process-context.posix \ -no-module-registration irregex.c: $(SRCDIR)irregex.scm $(SRCDIR)irregex-core.scm $(SRCDIR)irregex-utils.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) -emit-import-library chicken.irregex chicken-syntax.c: $(SRCDIR)chicken-syntax.scm $(SRCDIR)common-declarations.scm $(SRCDIR)mini-srfi-1.scm $(bootstrap-lib) chicken-ffi-syntax.c: $(SRCDIR)chicken-ffi-syntax.scm $(SRCDIR)common-declarations.scm $(SRCDIR)mini-srfi-1.scm $(bootstrap-lib) continuation.c: $(SRCDIR)continuation.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) -emit-import-library chicken.continuation data-structures.c: $(SRCDIR)data-structures.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) \ -emit-import-library chicken.sort \ -emit-import-library chicken.string pathname.c: $(SRCDIR)pathname.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) -emit-import-library chicken.pathname port.c: $(SRCDIR)port.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) -emit-import-library chicken.port file.c: $(SRCDIR)file.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) -emit-import-library chicken.file lolevel.c: $(SRCDIR)lolevel.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) \ -emit-import-library chicken.locative \ -emit-import-library chicken.memory \ -emit-import-library chicken.memory.representation tcp.c: $(SRCDIR)tcp.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) -emit-import-library chicken.tcp srfi-4.c: $(SRCDIR)srfi-4.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) -emit-import-library srfi-4 scheduler.c: $(SRCDIR)scheduler.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) profiler.c: $(SRCDIR)profiler.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) stub.c: $(SRCDIR)stub.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) debugger-client.c: $(SRCDIR)debugger-client.scm $(SRCDIR)common-declarations.scm dbg-stub.c $(bootstrap-lib) build-version.c: $(SRCDIR)build-version.scm $(SRCDIR)buildversion buildbranch buildid $(bootstrap-lib) eval-modules.c: $(SRCDIR)eval-modules.scm $(SRCDIR)common-declarations.scm $(bootstrap-lib) define declare-bootstrap-import-lib $(1).import.c: $$(SRCDIR)$(1).import.scm $$(CHICKEN) $$< $$(CHICKEN_IMPORT_LIBRARY_OPTIONS) -output-file $$@ endef $(foreach obj, $(IMPORT_LIBRARIES),\ $(eval $(call declare-bootstrap-import-lib,$(obj)))) # Bootstrap compiler objects define declare-bootstrap-compiler-object $(1).c: $$(SRCDIR)$(1).scm $$(SRCDIR)tweaks.scm $$(CHICKEN) $$< $$(CHICKEN_PROGRAM_OPTIONS) -emit-import-library chicken.compiler.$(1) \ -output-file $$@ endef $(foreach obj, $(COMPILER_OBJECTS_1),\ $(eval $(call declare-bootstrap-compiler-object,$(obj)))) csi.c: $(SRCDIR)csi.scm $(SRCDIR)banner.scm $(SRCDIR)mini-srfi-1.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ chicken-profile.c: $(SRCDIR)chicken-profile.scm $(SRCDIR)mini-srfi-1.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ chicken-install.c: $(SRCDIR)chicken-install.scm $(SRCDIR)mini-srfi-1.scm $(SRCDIR)egg-compile.scm $(SRCDIR)egg-download.scm $(SRCDIR)egg-environment.scm $(SRCDIR)egg-information.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ chicken-uninstall.c: $(SRCDIR)chicken-uninstall.scm $(SRCDIR)mini-srfi-1.scm $(SRCDIR)egg-environment.scm $(SRCDIR)egg-information.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ chicken-status.c: $(SRCDIR)chicken-status.scm $(SRCDIR)mini-srfi-1.scm $(SRCDIR)egg-environment.scm $(SRCDIR)egg-information.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ csc.c: $(SRCDIR)csc.scm $(SRCDIR)mini-srfi-1.scm $(SRCDIR)egg-environment.scm $(CHICKEN) $< $(CHICKEN_PROGRAM_OPTIONS) -output-file $@ # distribution files .PHONY: distfiles dist html distfiles: $(DISTFILES) dist: distfiles html CSI=$(CSI) $(CSI) -s $(SRCDIR)scripts$(SEP)makedist.scm -platform $(PLATFORM) CHICKEN=$(CHICKEN) # Jim's `manual-labor' must be installed (just run "chicken-install manual-labor") html: $(MAKEDIR_COMMAND) $(MAKEDIR_COMMAND_OPTIONS) $(SRCDIR)manual-html manual-labor $(SRCDIR)manual $(SRCDIR)manual-html $(COPY_COMMAND) $(SRCDIR)chicken.png manual-html $(COPY_COMMAND) $(SRCDIR)manual.css manual-html $(COPY_COMMAND) $(SRCDIR)index.html manual-html # cleaning up .PHONY: clean distclean spotless confclean testclean clean: -$(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(EXE) $(PROGRAM_PREFIX)csi$(PROGRAM_SUFFIX)$(EXE) $(PROGRAM_PREFIX)csc$(PROGRAM_SUFFIX)$(EXE) \ $(CHICKEN_PROFILE_PROGRAM)$(EXE) \ $(CHICKEN_INSTALL_PROGRAM)$(EXE) \ $(CHICKEN_UNINSTALL_PROGRAM)$(EXE) \ $(CHICKEN_STATUS_PROGRAM)$(EXE) \ *$(O) \ $(CHICKEN_DO_PROGRAM)$(EXE) \ $(CHICKEN_DEBUGGER_PROGRAM) \ $(LIBCHICKEN_SO_FILE) \ $(PRIMARY_LIBCHICKEN) \ lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A) \ $(IMPORT_LIBRARIES:=.import.so) $(LIBCHICKEN_IMPORT_LIBRARY) \ $(foreach lib,$(DYNAMIC_IMPORT_LIBRARIES),chicken.$(lib).import.scm) ifdef USES_SONAME -$(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).so.$(BINARYVERSION) endif confclean: -$(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) \ chicken-config.h chicken-defaults.h chicken-install.rc chicken-uninstall.rc spotless: distclean testclean -$(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(DISTFILES) \ buildid buildbranch distclean: clean confclean testclean: -$(REMOVE_COMMAND) $(REMOVE_COMMAND_RECURSIVE_OPTIONS) \ $(SRCDIR)tests$(SEP)*.dll \ $(SRCDIR)tests$(SEP)*.import.scm \ $(SRCDIR)tests$(SEP)*.link \ $(SRCDIR)tests$(SEP)*.o \ $(SRCDIR)tests$(SEP)*.obj \ $(SRCDIR)tests$(SEP)*.out \ $(SRCDIR)tests$(SEP)*.profile \ $(SRCDIR)tests$(SEP)*.so \ $(SRCDIR)tests$(SEP)tmp \ $(SRCDIR)tests$(SEP)tmp.c \ $(SRCDIR)tests$(SEP)empty-file \ $(SRCDIR)tests$(SEP)null \ $(SRCDIR)tests$(SEP)null.c \ $(SRCDIR)tests$(SEP)null.exe \ $(SRCDIR)tests$(SEP)test-repository # run tests .PHONY: check export PROGRAM_PREFIX export PROGRAM_SUFFIX check: $(TARGETS) ifndef WINDOWS_SHELL cd tests; sh runtests.sh else cd tests & runtests.bat endif # benchmark .PHONY: bench bench: $(CHICKEN_SHARED_EXECUTABLE) $(CSI_SHARED_EXECUTABLE) $(CSC_PROGRAM)$(EXE) cd tests; echo >>bench.log; date >>bench.log; sh runbench.sh 2>&1 | tee -a bench.log # build static bootstrapping chicken .PHONY: boot-chicken bootclean boot-chicken: "$(MAKE)" PLATFORM=$(PLATFORM) PREFIX=/nowhere CONFIG= \ CHICKEN=$(CHICKEN) PROGRAM_SUFFIX=-boot-stage1 STATICBUILD=1 \ C_COMPILER_OPTIMIZATION_OPTIONS="$(C_COMPILER_OPTIMIZATION_OPTIONS)" BUILDING_CHICKEN_BOOT=1 \ confclean chicken-boot-stage1$(EXE) "$(MAKE)" PLATFORM=$(PLATFORM) PREFIX=/nowhere CONFIG= \ CHICKEN=.$(SEP)chicken-boot-stage1$(EXE) PROGRAM_SUFFIX=-boot \ STATICBUILD=1 C_COMPILER_OPTIMIZATION_OPTIONS="$(C_COMPILER_OPTIMIZATION_OPTIONS)" \ touchfiles chicken-boot$(EXE) confclean bootclean: -$(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) \ $(SRCDIR)chicken-boot$(EXE) \ $(SRCDIR)chicken-boot-stage1$(EXE) \ $(SRCDIR)libchicken-boot$(A) \ $(SRCDIR)libchicken-boot-stage1$(A) .PHONY: touchfiles touchfiles: ifdef WINDOWS_SHELL for %%x in (*.scm) do copy /b %%x +,, else touch *.scm endif chicken-5.1.0/Makefile.aix0000644000175000017500000000740413502227553015160 0ustar sjamaansjamaan# Makefile.aix - configuration for AIX -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # Copyright (c) 2013-2015, Erik W. Falor # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration ARCH ?= $(shell sh $(SRCDIR)/config-arch.sh) # options C_COMPILER = gcc C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H -maix64 -Os ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 -fomit-frame-pointer else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer endif endif CXX_COMPILER = g++ LINKER_OPTIONS = -maix64 -Wl,-bsvr4 -Wl,-bbigtoc LINKER_LINK_SHARED_DLOADABLE_OPTIONS = -L. -shared LINKER_EXECUTABLE_OPTIONS = -L. -Wl,-R"$(RUNTIME_LINKER_PATH)" LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared LIBRARIAN_OPTIONS = -rv -X 64 LIBRARIES = -lm -ldl NEEDS_RELINKING = yes USES_SONAME = yes # special files CHICKEN_CONFIG_H = chicken-config.h # select default and internal settings include $(SRCDIR)/defaults.make chicken-config.h: chicken-defaults.h echo "/* GENERATED */" >$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_DLFCN_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define HAVE_SIGACTION 1" >>$@ echo "#define HAVE_SIGSETJMP 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_STRTOQ 0" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_SETENV 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_ALLOCA 1" >>$@ echo "#define HAVE_ALLOCA_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_SYSEXITS_H 1" >>$@ echo "#define SEARCH_EXE_PATH 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make chicken-5.1.0/repl.c0000644000175000017500000023634413502227774014062 0ustar sjamaansjamaan/* Generated from repl.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: repl.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file repl.c -emit-import-library chicken.repl unit: repl uses: eval library */ #include "chicken.h" static C_word code_258() { C_clear_trace_buffer(); ; return C_SCHEME_UNDEFINED; } static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[58]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,6),40,97,52,54,57,41,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,114,101,112,108,45,112,114,105,110,116,45,104,111,111,107,32,120,32,112,111,114,116,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,114,101,112,108,35,113,117,105,116,45,104,111,111,107,32,114,101,115,117,108,116,41,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,114,101,112,108,35,113,117,105,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,20),40,99,104,105,99,107,101,110,46,114,101,112,108,35,114,101,115,101,116,41,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,114,101,97,100,45,112,114,111,109,112,116,45,104,111,111,107,41}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,114,101,115,105,122,101,45,116,114,97,99,101,45,98,117,102,102,101,114,32,105,41,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,53,51,32,103,49,54,48,41,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,14),40,119,114,105,116,101,45,101,114,114,32,120,115,41,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,114,101,112,108,35,113,117,105,116,45,104,111,111,107,32,114,101,115,117,108,116,41,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,17),40,97,55,48,49,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,6),40,97,54,56,50,41,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,6),40,97,56,49,55,41,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,56,51,32,103,49,57,48,41,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,55,49,32,103,50,55,56,41,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,118,97,114,115,32,117,41,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,15),40,97,56,50,51,32,46,32,114,101,115,117,108,116,41,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,6),40,97,57,55,56,41,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,8),40,97,57,55,50,32,99,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,6),40,97,55,56,48,41,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,6),40,97,57,56,56,41,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,8),40,97,54,55,54,32,107,41}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,114,101,112,108,35,114,101,112,108,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,7),40,97,49,48,48,56,41,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_1009) static void C_ccall f_1009(C_word c,C_word *av) C_noret; C_noret_decl(f_453) static void C_ccall f_453(C_word c,C_word *av) C_noret; C_noret_decl(f_456) static void C_ccall f_456(C_word c,C_word *av) C_noret; C_noret_decl(f_461) static void C_ccall f_461(C_word c,C_word *av) C_noret; C_noret_decl(f_465) static void C_ccall f_465(C_word c,C_word *av) C_noret; C_noret_decl(f_470) static void C_ccall f_470(C_word c,C_word *av) C_noret; C_noret_decl(f_476) static void C_ccall f_476(C_word c,C_word *av) C_noret; C_noret_decl(f_482) static void C_ccall f_482(C_word c,C_word *av) C_noret; C_noret_decl(f_498) static void C_ccall f_498(C_word c,C_word *av) C_noret; C_noret_decl(f_502) static void C_ccall f_502(C_word c,C_word *av) C_noret; C_noret_decl(f_509) static void C_ccall f_509(C_word c,C_word *av) C_noret; C_noret_decl(f_511) static void C_ccall f_511(C_word c,C_word *av) C_noret; C_noret_decl(f_515) static void C_ccall f_515(C_word c,C_word *av) C_noret; C_noret_decl(f_522) static void C_ccall f_522(C_word c,C_word *av) C_noret; C_noret_decl(f_525) static void C_ccall f_525(C_word c,C_word *av) C_noret; C_noret_decl(f_527) static void C_ccall f_527(C_word c,C_word *av) C_noret; C_noret_decl(f_531) static void C_ccall f_531(C_word c,C_word *av) C_noret; C_noret_decl(f_533) static void C_ccall f_533(C_word c,C_word *av) C_noret; C_noret_decl(f_539) static void C_fcall f_539(C_word t0,C_word t1) C_noret; C_noret_decl(f_553) static void C_fcall f_553(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_563) static void C_ccall f_563(C_word c,C_word *av) C_noret; C_noret_decl(f_600) static void C_ccall f_600(C_word c,C_word *av) C_noret; C_noret_decl(f_613) static void C_ccall f_613(C_word c,C_word *av) C_noret; C_noret_decl(f_617) static void C_ccall f_617(C_word c,C_word *av) C_noret; C_noret_decl(f_625) static void C_fcall f_625(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_635) static void C_ccall f_635(C_word c,C_word *av) C_noret; C_noret_decl(f_657) static void C_ccall f_657(C_word c,C_word *av) C_noret; C_noret_decl(f_660) static void C_ccall f_660(C_word c,C_word *av) C_noret; C_noret_decl(f_662) static C_word C_fcall f_662(C_word t0); C_noret_decl(f_668) static C_word C_fcall f_668(C_word t0); C_noret_decl(f_677) static void C_ccall f_677(C_word c,C_word *av) C_noret; C_noret_decl(f_683) static void C_ccall f_683(C_word c,C_word *av) C_noret; C_noret_decl(f_688) static void C_ccall f_688(C_word c,C_word *av) C_noret; C_noret_decl(f_690) static void C_ccall f_690(C_word c,C_word *av) C_noret; C_noret_decl(f_697) static void C_ccall f_697(C_word c,C_word *av) C_noret; C_noret_decl(f_702) static void C_ccall f_702(C_word c,C_word *av) C_noret; C_noret_decl(f_709) static void C_ccall f_709(C_word c,C_word *av) C_noret; C_noret_decl(f_712) static void C_ccall f_712(C_word c,C_word *av) C_noret; C_noret_decl(f_715) static void C_ccall f_715(C_word c,C_word *av) C_noret; C_noret_decl(f_719) static void C_fcall f_719(C_word t0,C_word t1) C_noret; C_noret_decl(f_722) static void C_ccall f_722(C_word c,C_word *av) C_noret; C_noret_decl(f_746) static void C_ccall f_746(C_word c,C_word *av) C_noret; C_noret_decl(f_753) static void C_fcall f_753(C_word t0,C_word t1) C_noret; C_noret_decl(f_756) static void C_ccall f_756(C_word c,C_word *av) C_noret; C_noret_decl(f_762) static void C_ccall f_762(C_word c,C_word *av) C_noret; C_noret_decl(f_776) static void C_ccall f_776(C_word c,C_word *av) C_noret; C_noret_decl(f_781) static void C_ccall f_781(C_word c,C_word *av) C_noret; C_noret_decl(f_787) static void C_fcall f_787(C_word t0,C_word t1) C_noret; C_noret_decl(f_794) static void C_ccall f_794(C_word c,C_word *av) C_noret; C_noret_decl(f_797) static void C_ccall f_797(C_word c,C_word *av) C_noret; C_noret_decl(f_803) static void C_ccall f_803(C_word c,C_word *av) C_noret; C_noret_decl(f_812) static void C_ccall f_812(C_word c,C_word *av) C_noret; C_noret_decl(f_818) static void C_ccall f_818(C_word c,C_word *av) C_noret; C_noret_decl(f_824) static void C_ccall f_824(C_word c,C_word *av) C_noret; C_noret_decl(f_828) static void C_ccall f_828(C_word c,C_word *av) C_noret; C_noret_decl(f_831) static void C_ccall f_831(C_word c,C_word *av) C_noret; C_noret_decl(f_842) static void C_fcall f_842(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_846) static void C_ccall f_846(C_word c,C_word *av) C_noret; C_noret_decl(f_858) static void C_ccall f_858(C_word c,C_word *av) C_noret; C_noret_decl(f_863) static void C_ccall f_863(C_word c,C_word *av) C_noret; C_noret_decl(f_866) static void C_ccall f_866(C_word c,C_word *av) C_noret; C_noret_decl(f_869) static void C_ccall f_869(C_word c,C_word *av) C_noret; C_noret_decl(f_876) static void C_ccall f_876(C_word c,C_word *av) C_noret; C_noret_decl(f_879) static void C_ccall f_879(C_word c,C_word *av) C_noret; C_noret_decl(f_891) static void C_ccall f_891(C_word c,C_word *av) C_noret; C_noret_decl(f_896) static void C_fcall f_896(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_906) static void C_ccall f_906(C_word c,C_word *av) C_noret; C_noret_decl(f_926) static void C_ccall f_926(C_word c,C_word *av) C_noret; C_noret_decl(f_971) static void C_ccall f_971(C_word c,C_word *av) C_noret; C_noret_decl(f_973) static void C_ccall f_973(C_word c,C_word *av) C_noret; C_noret_decl(f_979) static void C_ccall f_979(C_word c,C_word *av) C_noret; C_noret_decl(f_989) static void C_ccall f_989(C_word c,C_word *av) C_noret; C_noret_decl(f_993) static void C_ccall f_993(C_word c,C_word *av) C_noret; C_noret_decl(f_998) static void C_ccall f_998(C_word c,C_word *av) C_noret; C_noret_decl(C_repl_toplevel) C_externexport void C_ccall C_repl_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_539) static void C_ccall trf_539(C_word c,C_word *av) C_noret; static void C_ccall trf_539(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_539(t0,t1);} C_noret_decl(trf_553) static void C_ccall trf_553(C_word c,C_word *av) C_noret; static void C_ccall trf_553(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_553(t0,t1,t2);} C_noret_decl(trf_625) static void C_ccall trf_625(C_word c,C_word *av) C_noret; static void C_ccall trf_625(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_625(t0,t1,t2);} C_noret_decl(trf_719) static void C_ccall trf_719(C_word c,C_word *av) C_noret; static void C_ccall trf_719(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_719(t0,t1);} C_noret_decl(trf_753) static void C_ccall trf_753(C_word c,C_word *av) C_noret; static void C_ccall trf_753(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_753(t0,t1);} C_noret_decl(trf_787) static void C_ccall trf_787(C_word c,C_word *av) C_noret; static void C_ccall trf_787(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_787(t0,t1);} C_noret_decl(trf_842) static void C_ccall trf_842(C_word c,C_word *av) C_noret; static void C_ccall trf_842(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_842(t0,t1,t2,t3);} C_noret_decl(trf_896) static void C_ccall trf_896(C_word c,C_word *av) C_noret; static void C_ccall trf_896(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_896(t0,t1,t2);} /* a1008 in k454 in k451 */ static void C_ccall f_1009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1009,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=lf[56]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k451 */ static void C_ccall f_453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_453,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_456,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k454 in k451 */ static void C_ccall f_456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(34,c,4)))){ C_save_and_reclaim((void *)f_456,2,av);} a=C_alloc(34); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_set_block_item(lf[2] /* ##sys#repl-print-length-limit */,0,C_SCHEME_FALSE); t5=C_set_block_item(lf[3] /* ##sys#repl-read-hook */,0,C_SCHEME_FALSE); t6=C_set_block_item(lf[4] /* ##sys#repl-recent-call-chain */,0,C_SCHEME_FALSE); t7=C_mutate((C_word*)lf[5]+1 /* (set! ##sys#repl-print-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_461,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate(&lf[9] /* (set! chicken.repl#quit-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_476,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[11]+1 /* (set! chicken.repl#quit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_482,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[12]+1 /* (set! chicken.repl#reset-handler ...) */,*((C_word*)lf[13]+1)); t11=C_mutate((C_word*)lf[14]+1 /* (set! chicken.repl#reset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_498,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_509,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1009,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp); /* repl.scm:58: chicken.base#make-parameter */ t14=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t12; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} /* ##sys#repl-print-hook in k454 in k451 */ static void C_ccall f_461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_461,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_465,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_470,a[2]=t2,a[3]=t3,a[4]=((C_word)li0),tmp=(C_word)a,a+=5,tmp); /* repl.scm:48: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[8]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[8]+1); av2[1]=t4; av2[2]=*((C_word*)lf[2]+1); av2[3]=t5; tp(4,av2);}} /* k463 in ##sys#repl-print-hook in k454 in k451 */ static void C_ccall f_465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_465,2,av);} /* repl.scm:49: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[6]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[6]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* a469 in ##sys#repl-print-hook in k454 in k451 */ static void C_ccall f_470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_470,2,av);} t2=*((C_word*)lf[7]+1); /* repl.scm:48: g104 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[7]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; tp(5,av2);}} /* chicken.repl#quit-hook in k454 in k451 */ static void C_ccall f_476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_476,3,av);} /* repl.scm:51: chicken.base#exit */ t3=*((C_word*)lf[10]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.repl#quit in k454 in k451 */ static void C_ccall f_482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_482,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; if(C_truep(C_i_nullp(t2))){ /* repl.scm:52: quit-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(lf[9]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=lf[9]; av2[1]=t1; av2[2]=C_SCHEME_FALSE; tp(3,av2);}} else{ t3=C_i_car(t2); /* repl.scm:52: quit-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(lf[9]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=lf[9]; av2[1]=t1; av2[2]=t3; tp(3,av2);}}} /* chicken.repl#reset in k454 in k451 */ static void C_ccall f_498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_498,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_502,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* repl.scm:55: reset-handler */ t3=*((C_word*)lf[12]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k500 in chicken.repl#reset in k454 in k451 */ static void C_ccall f_502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_502,2,av);} /* repl.scm:55: g122 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k507 in k454 in k451 */ static void C_ccall f_509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_509,2,av);} a=C_alloc(12); t2=C_mutate((C_word*)lf[15]+1 /* (set! chicken.repl#repl-prompt ...) */,t1); t3=*((C_word*)lf[15]+1); t4=C_mutate((C_word*)lf[16]+1 /* (set! ##sys#read-prompt-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_511,a[2]=t3,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp)); t5=C_mutate((C_word*)lf[19]+1 /* (set! ##sys#resize-trace-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_527,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t6=*((C_word*)lf[21]+1); t7=*((C_word*)lf[22]+1); t8=C_mutate((C_word*)lf[23]+1 /* (set! chicken.repl#repl ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_533,a[2]=t6,a[3]=t7,a[4]=((C_word)li23),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* ##sys#read-prompt-hook in k507 in k454 in k451 */ static void C_ccall f_511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_511,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_515,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_522,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* repl.scm:63: repl-prompt */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k513 in ##sys#read-prompt-hook in k507 in k454 in k451 */ static void C_ccall f_515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_515,2,av);} /* repl.scm:64: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[17]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[17]+1); av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[18]+1); tp(3,av2);}} /* k520 in ##sys#read-prompt-hook in k507 in k454 in k451 */ static void C_ccall f_522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_522,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_525,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* repl.scm:63: g127 */ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k523 in k520 in ##sys#read-prompt-hook in k507 in k454 in k451 */ static void C_ccall f_525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_525,2,av);} /* repl.scm:63: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* ##sys#resize-trace-buffer in k507 in k454 in k451 */ static void C_ccall f_527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_527,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_531,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* repl.scm:67: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[20]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k529 in ##sys#resize-trace-buffer in k507 in k454 in k451 */ static void C_ccall f_531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_531,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_resize_trace_buffer(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +18,c,3)))){ C_save_and_reclaim((void*)f_533,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+18); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t3=C_i_nullp(t2); t4=(C_truep(t3)?((C_word*)t0)[2]:C_i_car(t2)); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_539,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp); t7=*((C_word*)lf[26]+1); t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=*((C_word*)lf[18]+1); t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=*((C_word*)lf[25]+1); t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_657,a[2]=t8,a[3]=t10,a[4]=t12,a[5]=t6,a[6]=((C_word*)t0)[3],a[7]=t5,a[8]=t1,tmp=(C_word)a,a+=9,tmp); /* repl.scm:93: ##sys#error-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[38]+1); av2[1]=t13; tp(2,av2);}} /* write-err in chicken.repl#repl in k507 in k454 in k451 */ static void C_fcall f_539(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_539,2,t1,t2);} a=C_alloc(6); t3=C_i_check_list_2(t2,lf[24]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_553,a[2]=t5,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_553(t7,t1,t2);} /* for-each-loop153 in write-err in chicken.repl#repl in k507 in k454 in k451 */ static void C_fcall f_553(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_553,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_563,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[5]+1); /* repl.scm:78: g169 */ t6=t5;{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[25]+1); ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k561 in for-each-loop153 in write-err in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_563,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_553(t3,((C_word*)t0)[4],t2);} /* k598 in k826 in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_600,2,av);} a=C_alloc(6); t2=C_u_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_613,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_617,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_length(((C_word*)t0)[2]); /* repl.scm:87: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[44]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k611 in k598 in k826 in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_613,2,av);} /* repl.scm:86: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k615 in k598 in k826 in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_617,2,av);} /* repl.scm:87: string-append */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[42]; av2[3]=t1; av2[4]=lf[43]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* for-each-loop183 in k826 in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_fcall f_625(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_625,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_635,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[5]+1); /* repl.scm:84: g199 */ t6=t5;{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[18]+1); ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k633 in for-each-loop183 in k826 in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_635,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_625(t3,((C_word*)t0)[4],t2);} /* k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_657,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_660,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* repl.scm:94: ##sys#reset-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[13]+1); av2[1]=t3; tp(2,av2);}} /* k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_660,2,av);} a=C_alloc(29); t2=t1; t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=lf[9]; t6=*((C_word*)lf[27]+1); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_662,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t12=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_668,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t13=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_677,a[2]=t4,a[3]=t10,a[4]=((C_word*)t0)[5],a[5]=t8,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t5,a[9]=t6,a[10]=t2,a[11]=((C_word*)t0)[8],a[12]=((C_word)li22),tmp=(C_word)a,a+=13,tmp); /* repl.scm:109: call-with-current-continuation */ t14=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=((C_word*)t0)[9]; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} /* saveports in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static C_word C_fcall f_662(C_word t0){ C_word tmp; C_word t1; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t1=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[26]+1)); t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[18]+1)); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,*((C_word*)lf[25]+1)); return(t3);} /* resetports in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static C_word C_fcall f_668(C_word t0){ C_word tmp; C_word t1; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t1=C_mutate((C_word*)lf[26]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[2])[1]); t2=C_mutate((C_word*)lf[18]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate((C_word*)lf[25]+1 /* (set! ##sys#standard-error ...) */,((C_word*)((C_word*)t0)[4])[1]); return(t3);} /* a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_677,3,av);} a=C_alloc(22); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_683,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li11),tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_781,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[3],a[6]=((C_word)li20),tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_989,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[2],a[7]=((C_word)li21),tmp=(C_word)a,a+=8,tmp); /* repl.scm:111: ##sys#dynamic-wind */ t6=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_683,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_688,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* repl.scm:113: chicken.load#load-verbose */ t3=*((C_word*)lf[39]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_688,2,av);} a=C_alloc(9); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate(&lf[9] /* (set! chicken.repl#quit-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_690,a[2]=((C_word*)t0)[3],a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_697,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* repl.scm:115: chicken.load#load-verbose */ t5=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* chicken.repl#quit-hook in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_690,3,av);} /* repl.scm:114: k */ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_697,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_702,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp); /* repl.scm:116: ##sys#error-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[38]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t2; tp(3,av2);}} /* a701 in k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_702,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=( /* repl.scm:118: resetports */ f_668(((C_word*)((C_word*)t0)[2])[1]) ); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_709,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* repl.scm:119: ##sys#print */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[37]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k707 in a701 in k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_709,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_712,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[5])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_776,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* repl.scm:121: ##sys#print */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[36]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_712(2,av2);}}} /* k710 in k707 in a701 in k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_712,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_715,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_753,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); t6=t3; f_753(t6,C_i_nullp(t5));} else{ t4=t3; f_753(t4,C_SCHEME_FALSE);}} /* k713 in k710 in k707 in a701 in k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_715,2,av);} a=C_alloc(7); t2=*((C_word*)lf[28]+1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_719,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[28]+1))){ if(C_truep(C_i_structurep(*((C_word*)lf[28]+1),lf[31]))){ t4=C_slot(*((C_word*)lf[28]+1),C_fix(2)); t5=C_i_member(lf[32],t4); if(C_truep(t5)){ t6=C_i_cadr(t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_746,a[2]=t3,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* repl.scm:135: ##sys#really-print-call-chain */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[33]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[33]+1); av2[1]=t8; av2[2]=*((C_word*)lf[25]+1); av2[3]=t7; av2[4]=lf[34]; tp(5,av2);}} else{ t6=t3; f_719(t6,C_SCHEME_FALSE);}} else{ t4=t3; f_719(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_719(t4,C_SCHEME_FALSE);}} /* k717 in k713 in k710 in k707 in a701 in k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_fcall f_719(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_719,2,t0,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_722,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t1; t4=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#repl-recent-call-chain ...) */,t3); /* repl.scm:140: chicken.base#flush-output */ t5=*((C_word*)lf[29]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* repl.scm:139: chicken.base#print-call-chain */ t3=*((C_word*)lf[30]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k720 in k717 in k713 in k710 in k707 in a701 in k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_722,2,av);} t2=C_set_block_item(lf[4] /* ##sys#repl-recent-call-chain */,0,t1); /* repl.scm:140: chicken.base#flush-output */ t3=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k744 in k713 in k710 in k707 in a701 in k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_746,2,av);} t2=((C_word*)t0)[2]; f_719(t2,((C_word*)t0)[3]);} /* k751 in k710 in k707 in a701 in k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_fcall f_753(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_753,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_756,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* repl.scm:125: ##sys#print */ t3=*((C_word*)lf[7]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[35]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_762,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* repl.scm:128: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[6]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[6]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[25]+1); tp(4,av2);}}} /* k754 in k751 in k710 in k707 in a701 in k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_756,2,av);} /* repl.scm:126: write-err */ f_539(((C_word*)t0)[3],((C_word*)t0)[4]);} /* k760 in k751 in k710 in k707 in a701 in k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_762,2,av);} /* repl.scm:129: write-err */ f_539(((C_word*)t0)[3],((C_word*)t0)[4]);} /* k774 in k707 in a701 in k695 in k686 in a682 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_776,2,av);} /* repl.scm:122: ##sys#print */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_781,2,av);} a=C_alloc(10); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_787,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word)li19),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_787(t5,t1);} /* loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_fcall f_787(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_787,2,t0,t1);} a=C_alloc(10); t2=( /* repl.scm:143: saveports */ f_662(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_794,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_973,a[2]=((C_word*)t0)[6],a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp); /* repl.scm:144: call-with-current-continuation */ t5=*((C_word*)lf[54]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_794,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_797,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* repl.scm:151: ##sys#read-prompt-hook */ t3=*((C_word*)lf[16]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_797,2,av);} a=C_alloc(5); t2=*((C_word*)lf[3]+1); t3=(C_truep(t2)?t2:((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_803,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* repl.scm:152: g253 */ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} /* k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_803,2,av);} a=C_alloc(9); t2=t1; if(C_truep(C_eofp(t2))){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_812,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_971,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* repl.scm:154: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[52]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[52]+1); av2[1]=t4; av2[2]=*((C_word*)lf[26]+1); tp(3,av2);}}} /* k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_812,2,av);} a=C_alloc(9); t2=code_258(); t3=C_set_block_item(lf[27] /* ##sys#unbound-in-eval */,0,C_SCHEME_END_OF_LIST); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_818,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li12),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_824,a[2]=((C_word*)t0)[4],a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp); /* repl.scm:158: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a817 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_818,2,av);} /* repl.scm:158: evaluator */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +11,c,4)))){ C_save_and_reclaim((void*)f_824,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+11); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_828,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(C_truep(*((C_word*)lf[45]+1))?C_i_pairp(*((C_word*)lf[27]+1)):C_SCHEME_FALSE); if(C_truep(t4)){ t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_842,a[2]=t6,a[3]=((C_word)li15),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_842(t8,t3,*((C_word*)lf[27]+1),C_SCHEME_END_OF_LIST);} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_828(2,av2);}}} /* k826 in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_828,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_831,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=t2; t4=((C_word*)t0)[4]; if(C_truep(C_i_nullp(t4))){ /* repl.scm:82: ##sys#print */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[40]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=C_i_car(t4); t6=C_eqp(C_SCHEME_UNDEFINED,t5); if(C_truep(C_i_not(t6))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_600,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_625,a[2]=t9,a[3]=((C_word)li13),tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_625(t11,t7,t4);} else{ t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} /* k829 in k826 in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_831,2,av);} /* repl.scm:183: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_787(t2,((C_word*)t0)[3]);} /* loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_fcall f_842(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_842,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_846,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ if(C_truep(C_i_pairp(t3))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_858,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* repl.scm:164: ##sys#notice */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[48]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[48]+1); av2[1]=t5; av2[2]=lf[49]; tp(3,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_fix(9); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=C_i_caar(t2); t6=C_i_memq(t5,t3); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_926,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(t6)){ t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=t6; f_926(2,av2);}} else{ t8=t2; t9=C_u_i_car(t8); t10=C_u_i_car(t9); t11=C_u_i_namespaced_symbolp(t10); if(C_truep(t11)){ t12=t7;{ C_word av2[2]; av2[0]=t12; av2[1]=t11; f_926(2,av2);}} else{ t12=t2; t13=C_u_i_car(t12); t14=C_u_i_car(t13); /* repl.scm:179: ##sys#symbol-has-toplevel-binding? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[50]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[50]+1); av2[1]=t7; av2[2]=t14; tp(3,av2);}}}}} /* k844 in loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_846,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(9); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k856 in loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_858,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_891,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_896,a[2]=t5,a[3]=((C_word)li14),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_896(t7,t3,t2);} /* k861 in for-each-loop271 in k856 in loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_863,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_866,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_car(((C_word*)t0)[3]); /* repl.scm:169: ##sys#print */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k864 in k861 in for-each-loop271 in k856 in loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_866,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_869,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_u_i_cdr(((C_word*)t0)[3]))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_876,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* repl.scm:171: ##sys#print */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[46]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* repl.scm:174: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[6]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[6]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[25]+1); tp(4,av2);}}} /* k867 in k864 in k861 in for-each-loop271 in k856 in loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_869,2,av);} /* repl.scm:174: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[6]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[6]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[25]+1); tp(4,av2);}} /* k874 in k864 in k861 in for-each-loop271 in k856 in loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_876,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_879,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_u_i_cdr(((C_word*)t0)[3]); /* repl.scm:172: ##sys#print */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k877 in k874 in k864 in k861 in for-each-loop271 in k856 in loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_879,2,av);} /* repl.scm:173: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[6]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[6]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); av2[3]=*((C_word*)lf[25]+1); tp(4,av2);}} /* k889 in k856 in loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_891,2,av);} /* repl.scm:176: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[17]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[17]+1); av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[25]+1); tp(3,av2);}} /* for-each-loop271 in k856 in loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_fcall f_896(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_896,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_906,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_863,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* repl.scm:168: ##sys#print */ t8=*((C_word*)lf[7]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=lf[47]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[25]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k904 in for-each-loop271 in k856 in loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_906,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_896(t3,((C_word*)t0)[4],t2);} /* k924 in loop in a823 in k810 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_926,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* repl.scm:180: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_842(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[5]); /* repl.scm:181: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_842(t7,((C_word*)t0)[4],t3,t6);}} /* k969 in k801 in k795 in k792 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_971,2,av);} t2=C_eqp(C_make_character(10),t1); if(C_truep(t2)){ /* repl.scm:155: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[51]+1); av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[26]+1); tp(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_812(2,av2);}}} /* a972 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_973,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_979,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li17),tmp=(C_word)a,a+=5,tmp); /* repl.scm:146: ##sys#reset-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[13]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} /* a978 in a972 in loop in a780 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_979,2,av);} t2=C_set_block_item(lf[53] /* ##sys#read-error-with-line-number */,0,C_SCHEME_FALSE); t3=( /* repl.scm:149: resetports */ f_668(((C_word*)((C_word*)t0)[2])[1]) ); /* repl.scm:150: c */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a988 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_989,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_993,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* repl.scm:185: chicken.load#load-verbose */ t3=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k991 in a988 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_993,2,av);} a=C_alloc(4); t2=C_mutate(&lf[9] /* (set! chicken.repl#quit-hook ...) */,((C_word*)t0)[2]); t3=C_mutate((C_word*)lf[27]+1 /* (set! ##sys#unbound-in-eval ...) */,((C_word*)t0)[3]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_998,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* repl.scm:188: ##sys#error-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[38]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k996 in k991 in a988 in a676 in k658 in k655 in chicken.repl#repl in k507 in k454 in k451 */ static void C_ccall f_998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_998,2,av);} /* repl.scm:189: ##sys#reset-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[13]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_repl_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("repl")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_repl_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(332))){ C_save(t1); C_rereclaim2(332*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,58); lf[0]=C_h_intern(&lf[0],4, C_text("repl")); lf[1]=C_h_intern(&lf[1],13, C_text("chicken.repl#")); lf[2]=C_h_intern(&lf[2],29, C_text("##sys#repl-print-length-limit")); lf[3]=C_h_intern(&lf[3],20, C_text("##sys#repl-read-hook")); lf[4]=C_h_intern(&lf[4],28, C_text("##sys#repl-recent-call-chain")); lf[5]=C_h_intern(&lf[5],21, C_text("##sys#repl-print-hook")); lf[6]=C_h_intern(&lf[6],18, C_text("##sys#write-char-0")); lf[7]=C_h_intern(&lf[7],11, C_text("##sys#print")); lf[8]=C_h_intern(&lf[8],29, C_text("##sys#with-print-length-limit")); lf[10]=C_h_intern(&lf[10],17, C_text("chicken.base#exit")); lf[11]=C_h_intern(&lf[11],17, C_text("chicken.repl#quit")); lf[12]=C_h_intern(&lf[12],26, C_text("chicken.repl#reset-handler")); lf[13]=C_h_intern(&lf[13],19, C_text("##sys#reset-handler")); lf[14]=C_h_intern(&lf[14],18, C_text("chicken.repl#reset")); lf[15]=C_h_intern(&lf[15],24, C_text("chicken.repl#repl-prompt")); lf[16]=C_h_intern(&lf[16],22, C_text("##sys#read-prompt-hook")); lf[17]=C_h_intern(&lf[17],18, C_text("##sys#flush-output")); lf[18]=C_h_intern(&lf[18],21, C_text("##sys#standard-output")); lf[19]=C_h_intern(&lf[19],25, C_text("##sys#resize-trace-buffer")); lf[20]=C_h_intern(&lf[20],18, C_text("##sys#check-fixnum")); lf[21]=C_h_intern(&lf[21],11, C_text("scheme#eval")); lf[22]=C_h_intern(&lf[22],11, C_text("scheme#read")); lf[23]=C_h_intern(&lf[23],17, C_text("chicken.repl#repl")); lf[24]=C_h_intern(&lf[24],8, C_text("for-each")); lf[25]=C_h_intern(&lf[25],20, C_text("##sys#standard-error")); lf[26]=C_h_intern(&lf[26],20, C_text("##sys#standard-input")); lf[27]=C_h_intern(&lf[27],21, C_text("##sys#unbound-in-eval")); lf[28]=C_h_intern(&lf[28],20, C_text("##sys#last-exception")); lf[29]=C_h_intern(&lf[29],25, C_text("chicken.base#flush-output")); lf[30]=C_h_intern(&lf[30],29, C_text("chicken.base#print-call-chain")); lf[31]=C_h_intern(&lf[31],9, C_text("condition")); lf[32]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\012\001call-chain")); lf[33]=C_h_intern(&lf[33],29, C_text("##sys#really-print-call-chain")); lf[34]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020\012\011Call history:\012")); lf[35]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[36]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[37]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\012Error")); lf[38]=C_h_intern(&lf[38],19, C_text("##sys#error-handler")); lf[39]=C_h_intern(&lf[39],25, C_text("chicken.load#load-verbose")); lf[40]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014; no values\012")); lf[41]=C_h_intern(&lf[41],20, C_text("scheme#string-append")); lf[42]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002; ")); lf[43]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 values\012")); lf[44]=C_h_intern(&lf[44],20, C_text("##sys#number->string")); lf[45]=C_h_intern(&lf[45],22, C_text("##sys#warnings-enabled")); lf[46]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005 (in ")); lf[47]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[48]=C_h_intern(&lf[48],12, C_text("##sys#notice")); lf[49]=C_decode_literal(C_heaptop,C_text("\376B\000\000=the following toplevel variables are referenced but unbound:\012")); lf[50]=C_h_intern(&lf[50],34, C_text("##sys#symbol-has-toplevel-binding\077")); lf[51]=C_h_intern(&lf[51],17, C_text("##sys#read-char-0")); lf[52]=C_h_intern(&lf[52],17, C_text("##sys#peek-char-0")); lf[53]=C_h_intern(&lf[53],33, C_text("##sys#read-error-with-line-number")); lf[54]=C_h_intern(&lf[54],37, C_text("scheme#call-with-current-continuation")); lf[55]=C_h_intern(&lf[55],18, C_text("##sys#dynamic-wind")); lf[56]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004#;> ")); lf[57]=C_h_intern(&lf[57],27, C_text("chicken.base#make-parameter")); C_register_lf2(lf,58,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_453,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[76] = { {C_text("f_1009:repl_2escm"),(void*)f_1009}, {C_text("f_453:repl_2escm"),(void*)f_453}, {C_text("f_456:repl_2escm"),(void*)f_456}, {C_text("f_461:repl_2escm"),(void*)f_461}, {C_text("f_465:repl_2escm"),(void*)f_465}, {C_text("f_470:repl_2escm"),(void*)f_470}, {C_text("f_476:repl_2escm"),(void*)f_476}, {C_text("f_482:repl_2escm"),(void*)f_482}, {C_text("f_498:repl_2escm"),(void*)f_498}, {C_text("f_502:repl_2escm"),(void*)f_502}, {C_text("f_509:repl_2escm"),(void*)f_509}, {C_text("f_511:repl_2escm"),(void*)f_511}, {C_text("f_515:repl_2escm"),(void*)f_515}, {C_text("f_522:repl_2escm"),(void*)f_522}, {C_text("f_525:repl_2escm"),(void*)f_525}, {C_text("f_527:repl_2escm"),(void*)f_527}, {C_text("f_531:repl_2escm"),(void*)f_531}, {C_text("f_533:repl_2escm"),(void*)f_533}, {C_text("f_539:repl_2escm"),(void*)f_539}, {C_text("f_553:repl_2escm"),(void*)f_553}, {C_text("f_563:repl_2escm"),(void*)f_563}, {C_text("f_600:repl_2escm"),(void*)f_600}, {C_text("f_613:repl_2escm"),(void*)f_613}, {C_text("f_617:repl_2escm"),(void*)f_617}, {C_text("f_625:repl_2escm"),(void*)f_625}, {C_text("f_635:repl_2escm"),(void*)f_635}, {C_text("f_657:repl_2escm"),(void*)f_657}, {C_text("f_660:repl_2escm"),(void*)f_660}, {C_text("f_662:repl_2escm"),(void*)f_662}, {C_text("f_668:repl_2escm"),(void*)f_668}, {C_text("f_677:repl_2escm"),(void*)f_677}, {C_text("f_683:repl_2escm"),(void*)f_683}, {C_text("f_688:repl_2escm"),(void*)f_688}, {C_text("f_690:repl_2escm"),(void*)f_690}, {C_text("f_697:repl_2escm"),(void*)f_697}, {C_text("f_702:repl_2escm"),(void*)f_702}, {C_text("f_709:repl_2escm"),(void*)f_709}, {C_text("f_712:repl_2escm"),(void*)f_712}, {C_text("f_715:repl_2escm"),(void*)f_715}, {C_text("f_719:repl_2escm"),(void*)f_719}, {C_text("f_722:repl_2escm"),(void*)f_722}, {C_text("f_746:repl_2escm"),(void*)f_746}, {C_text("f_753:repl_2escm"),(void*)f_753}, {C_text("f_756:repl_2escm"),(void*)f_756}, {C_text("f_762:repl_2escm"),(void*)f_762}, {C_text("f_776:repl_2escm"),(void*)f_776}, {C_text("f_781:repl_2escm"),(void*)f_781}, {C_text("f_787:repl_2escm"),(void*)f_787}, {C_text("f_794:repl_2escm"),(void*)f_794}, {C_text("f_797:repl_2escm"),(void*)f_797}, {C_text("f_803:repl_2escm"),(void*)f_803}, {C_text("f_812:repl_2escm"),(void*)f_812}, {C_text("f_818:repl_2escm"),(void*)f_818}, {C_text("f_824:repl_2escm"),(void*)f_824}, {C_text("f_828:repl_2escm"),(void*)f_828}, {C_text("f_831:repl_2escm"),(void*)f_831}, {C_text("f_842:repl_2escm"),(void*)f_842}, {C_text("f_846:repl_2escm"),(void*)f_846}, {C_text("f_858:repl_2escm"),(void*)f_858}, {C_text("f_863:repl_2escm"),(void*)f_863}, {C_text("f_866:repl_2escm"),(void*)f_866}, {C_text("f_869:repl_2escm"),(void*)f_869}, {C_text("f_876:repl_2escm"),(void*)f_876}, {C_text("f_879:repl_2escm"),(void*)f_879}, {C_text("f_891:repl_2escm"),(void*)f_891}, {C_text("f_896:repl_2escm"),(void*)f_896}, {C_text("f_906:repl_2escm"),(void*)f_906}, {C_text("f_926:repl_2escm"),(void*)f_926}, {C_text("f_971:repl_2escm"),(void*)f_971}, {C_text("f_973:repl_2escm"),(void*)f_973}, {C_text("f_979:repl_2escm"),(void*)f_979}, {C_text("f_989:repl_2escm"),(void*)f_989}, {C_text("f_993:repl_2escm"),(void*)f_993}, {C_text("f_998:repl_2escm"),(void*)f_998}, {C_text("toplevel:repl_2escm"),(void*)C_repl_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.repl#d o|hiding unexported module binding: chicken.repl#define-alias o|hiding unexported module binding: chicken.repl#quit-hook S|applied compiler syntax: S| scheme#for-each 3 o|eliminated procedure checks: 22 o|specializations: o| 1 (scheme#car pair) o| 2 (scheme#caar (pair pair *)) o| 6 (scheme#cdr pair) o| 2 (##sys#check-list (or pair list) *) (o e)|safe calls: 52 (o e)|assignments to immediate values: 2 o|safe globals: (chicken.repl#reset chicken.repl#reset-handler chicken.repl#quit chicken.repl#quit-hook ##sys#repl-print-hook ##sys#repl-recent-call-chain ##sys#repl-read-hook ##sys#repl-print-length-limit) o|propagated global variable: g104105 ##sys#print o|inlining procedure: k484 o|inlining procedure: k484 o|inlining procedure: k555 o|contracted procedure: "(repl.scm:78) g154161" o|inlining procedure: k555 o|inlining procedure: k578 o|inlining procedure: k578 o|inlining procedure: k601 o|inlining procedure: k601 o|inlining procedure: k627 o|contracted procedure: "(repl.scm:84) g184191" o|inlining procedure: k627 o|propagated global variable: lexn234 ##sys#last-exception o|inlining procedure: k732 o|inlining procedure: k732 o|propagated global variable: lexn234 ##sys#last-exception o|inlining procedure: k804 o|inlining procedure: k804 o|inlining procedure: k844 o|inlining procedure: k898 o|contracted procedure: "(repl.scm:166) g272279" o|inlining procedure: k867 o|inlining procedure: k867 o|inlining procedure: k898 o|inlining procedure: k844 o|inlining procedure: k946 o|inlining procedure: k946 o|replaced variables: 80 o|removed binding forms: 76 o|substituted constant variable: r4851011 o|substituted constant variable: r4851011 o|substituted constant variable: r7331030 o|contracted procedure: "(repl.scm:182) write-results149" o|inlining procedure: k844 o|converted assignments to bindings: (write-err148) o|simplifications: ((let . 1)) o|replaced variables: 5 o|removed binding forms: 83 o|inlining procedure: k720 o|replaced variables: 6 o|removed binding forms: 11 o|removed binding forms: 6 o|simplifications: ((if . 3) (##core#call . 36)) o| call simplifications: o| scheme#eof-object? o| ##sys#call-with-values o| scheme#caar o| scheme#memq o| scheme#cons o| scheme#eq? 2 o| scheme#not o| scheme#length o| ##sys#structure? o| scheme#member o| scheme#cadr o| ##sys#check-list o| scheme#pair? 7 o| ##sys#slot 7 o| scheme#null? 5 o| scheme#car 4 o|contracted procedure: k490 o|contracted procedure: k484 o|contracted procedure: k1002 o|contracted procedure: k535 o|contracted procedure: k546 o|contracted procedure: k558 o|contracted procedure: k568 o|contracted procedure: k572 o|contracted procedure: k729 o|contracted procedure: k748 o|propagated global variable: lexn234 ##sys#last-exception o|contracted procedure: k735 o|contracted procedure: k741 o|contracted procedure: k766 o|contracted procedure: k798 o|contracted procedure: k807 o|contracted procedure: k581 o|contracted procedure: k652 o|contracted procedure: k648 o|contracted procedure: k590 o|contracted procedure: k604 o|contracted procedure: k619 o|contracted procedure: k630 o|contracted procedure: k640 o|contracted procedure: k644 o|contracted procedure: k835 o|contracted procedure: k847 o|contracted procedure: k853 o|contracted procedure: k901 o|contracted procedure: k911 o|contracted procedure: k915 o|contracted procedure: k886 o|contracted procedure: k956 o|contracted procedure: k921 o|contracted procedure: k938 o|contracted procedure: k962 o|simplifications: ((let . 12)) o|removed binding forms: 35 o|replaced variables: 6 o|removed binding forms: 3 o|direct leaf routine/allocation: saveports215 0 o|direct leaf routine/allocation: resetports216 0 o|contracted procedure: "(repl.scm:118) k704" o|contracted procedure: "(repl.scm:143) k789" o|contracted procedure: "(repl.scm:149) k982" o|removed binding forms: 3 o|customizable procedures: (loop262 for-each-loop271287 for-each-loop183201 loop248 k751 write-err148 k717 for-each-loop153171) o|calls to known targets: 24 o|fast box initializations: 7 o|fast global references: 3 o|fast global assignments: 3 o|dropping unused closure argument: f_539 */ /* end of file */ chicken-5.1.0/chicken-install.mdoc0000644000175000017500000001306413502227553016653 0ustar sjamaansjamaan.\" Copyright (c) 2007-2019, The CHICKEN Team .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. The name of the authors may not be used to endorse or promote products .\" derived from this software without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, .\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .\" .\" .Dd Apr 26, 2017 .Dt CHICKEN-INSTALL 1 .Os .Sh NAME .Nm chicken-install .Nd download and install extension libraries for CHICKEN Scheme .Sh SYNOPSIS .Nm .Op Ar OPTION ... .Op Ar NAME[:VERSION] ... .Sh DESCRIPTION .Nm downloads, compiles and installs a prepackaged extension library from sources. If no extension name is given on the command line, then any existing .Em egg descriptions in the current directory will be executed in unspecified order. .Pp The program accepts following arguments: .Bl -tag -width Ds .It Fl h , Fl help Show usage and exit. .It Fl version Show version and exit. .It Fl v , Fl verbose Print extra information during installation. .It Fl force Install without confirmation, even if versions don't match. .It Fl k , Fl keep Keep temporary files. .It Fl s , Fl sudo Use an external program to elevate privileges for filesystem operations. The program defaults to .Xr sudo 8 but can be overridden with the .Ev SUDO environment variable. .It Fl r , Fl retrieve Just retrieve the egg, don't install it .No (giving Fl r No more than once implies Fl recursive Ns ). .It Fl recursive .No If Fl retrieve No is given, also fetch dependencies recursively. .It Fl dry-run Do not build or install, just print the locations of the generated build & install scripts. .It Fl list-versions List available versions for the given eggs. .It Fl purge Remove cached files for given eggs (or purge cache completely). .It Fl host When cross-compiling, only compile extensions for host. .It Fl target When cross-compiling, only compile extensions for target. .It Fl test Run included test cases, if available. .It Fl n , Fl no-install Do not install the egg, just build it. .It Fl no-install-dependencies Do not install dependencies. Note that this option may result in build failures due to missing extension libraries. .It Fl u , Fl update-db Update export database. .It Fl repository Print path used for egg installation. .It Fl override Ar filename Override versions for installed eggs with information from .Ar filename . .It Fl from-list Ar filename Install eggs listed in .Ar filename , which has the same format as .Xr chicken-status 1 Ns 's .Fl list No output. This option may be given multiple times. .It Fl cached Install given eggs from cache and do not download. .It Fl feature , Fl D Ar name Register feature .Ar name , usable as a condition in cond-expand clauses. .El .Sh ENVIRONMENT Following environment variables change the behaviour of .Nm Ns : .Bl -tag -width CHICKEN_INSTALL_REPOSITORY .It Ev CHICKEN_EGG_CACHE Location where eggs are retrieved and built. .It Ev CHICKEN_INSTALL_REPOSITORY The path where extension libraries are installed. Defaults to the package library path selected during configuration .Pq usually $prefix/lib/chicken/ . .It Ev SUDO The command to execute when using .Fl s flag in command. If not provided, defaults to .Xr sudo 8 . .El .Sh FILES .Bl -tag -width 4n .It Pa $XDG_CONFIG_HOME/chicken/setup.defaults User specific setup.defaults file. ( .Ev $XDG_CONFIG_HOME defaults to .Pa $HOME/.config ) .It Pa $prefix/share/chicken/setup.default System-wide setup.defaults file. .It Pa $XDG_CACHE_HOME/chicken-install/ Default directory for cached eggs. ( .Ev $XDG_CACHE_HOME defaults to .Pa $HOME/.cache ) .El .Sh EXIT STATUS The .Nm utility exits 0 on success, 2 if the user aborted an operation, 3 if it was invoked with no explicitly given egg names and no *.egg files could be found in the current directory, and >0 if any other error occurs. .Sh EXAMPLES Install .Sq regex egg as root user: .Pp .Dl # chicken-install regex .Pp Install an egg as an normal user but using .Xr sudo 8 : .Pp .Dl $ chicken-install -s regex .Pp Install an egg as an normal user but elevating privileges with different program, such as OpenBSD .Xr doas 1 : .Pp .Dl $ SUDO=/usr/bin/doas chicken-install -s regex .Sh SEE ALSO .Xr chicken 1 , .Xr chicken-status 1 , .Xr chicken-uninstall 1 , .Xr csc 1 .Pp More information can be found in the .Lk http://wiki.call-cc.org/manual/index "CHICKEN User's Manual". .Sh AUTHORS .An The CHICKEN Team .Sh BUGS Submit bug reports by e-mail to .Mt chicken-janitors@nongnu.org chicken-5.1.0/expand.scm0000644000175000017500000014603713502227553014731 0ustar sjamaansjamaan;;;; expand.scm - The HI/LO expander ; ; Copyright (c) 2008-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. ;; this unit needs the "modules" unit, but must be initialized first, so it doesn't ;; declare "modules" as used - if you use "-explicit-use", take care of this. (declare (unit expand) (uses internal) (disable-interrupts) (fixnum) (not inline ##sys#syntax-error-hook ##sys#compiler-syntax-hook)) (module chicken.syntax (expand get-line-number strip-syntax syntax-error er-macro-transformer ir-macro-transformer) (import scheme chicken.base chicken.condition chicken.fixnum chicken.internal chicken.keyword chicken.platform) (include "common-declarations.scm") (define-syntax d (syntax-rules () ((_ . _) (void)))) ;; Macro to avoid "unused variable map-se" when "d" is disabled (define-syntax map-se (syntax-rules () ((_ ?se) (map (lambda (a) (cons (car a) (if (symbol? (cdr a)) (cdr a) '))) ?se)))) (set! ##sys#features (append '(#:srfi-0 #:srfi-2 #:srfi-6 #:srfi-9 #:srfi-46 #:srfi-55 #:srfi-61) ##sys#features)) (define-alias dd d) (define-alias dm d) (define-alias dx d) (define-inline (getp sym prop) (##core#inline "C_i_getprop" sym prop #f)) (define-inline (putp sym prop val) (##core#inline_allocate ("C_a_i_putprop" 8) sym prop val)) (define-inline (namespaced-symbol? sym) (##core#inline "C_u_i_namespaced_symbolp" sym)) ;;; Source file tracking (define ##sys#current-source-filename #f) ;;; Syntactic environments (define ##sys#current-environment (make-parameter '())) (define ##sys#current-meta-environment (make-parameter '())) (define (lookup id se) (cond ((##core#inline "C_u_i_assq" id se) => cdr) ((getp id '##core#macro-alias)) (else #f))) (define (macro-alias var se) (if (or (keyword? var) (namespaced-symbol? var)) var (let* ((alias (gensym var)) (ua (or (lookup var se) var)) (rn (or (getp var '##core#real-name) var))) (putp alias '##core#macro-alias ua) (putp alias '##core#real-name rn) (dd "aliasing " alias " (real: " var ") to " (if (pair? ua) ' ua)) alias) ) ) (define (strip-syntax exp) (let ((seen '())) (let walk ((x exp)) (cond ((assq x seen) => cdr) ((keyword? x) x) ((symbol? x) (let ((x2 (getp x '##core#macro-alias) ) ) (cond ((getp x '##core#real-name)) ((not x2) x) ((pair? x2) x) (else x2)))) ((pair? x) (let ((cell (cons #f #f))) (set! seen (cons (cons x cell) seen)) (set-car! cell (walk (car x))) (set-cdr! cell (walk (cdr x))) cell)) ((vector? x) (let* ((len (##sys#size x)) (vec (make-vector len))) (set! seen (cons (cons x vec) seen)) (do ((i 0 (fx+ i 1))) ((fx>= i len) vec) (##sys#setslot vec i (walk (##sys#slot x i)))))) (else x))))) (define (##sys#extend-se se vars #!optional (aliases (map gensym vars))) (for-each (lambda (alias sym) (let ((original-real-name (getp sym '##core#real-name))) (putp alias '##core#real-name (or original-real-name sym)))) aliases vars) (append (map (lambda (x y) (cons x y)) vars aliases) se)) ; inline cons ;;; resolve symbol to global name (define (##sys#globalize sym se) (let loop1 ((sym sym)) (cond ((not (symbol? sym)) sym) ((getp sym '##core#macro-alias) => (lambda (a) (if (symbol? a) (loop1 a) sym))) (else (let loop ((se se)) ; ignores syntax bindings (cond ((null? se) (##sys#alias-global-hook sym #t #f)) ;XXX could hint at decl (3rd arg) ((and (eq? sym (caar se)) (symbol? (cdar se))) (cdar se)) (else (loop (cdr se))))))))) ;;; Macro handling (define ##sys#macro-environment (make-parameter '())) (define ##sys#scheme-macro-environment '()) ; reassigned below ;; These are all re-assigned by chicken-syntax.scm: (define ##sys#chicken-macro-environment '()) ; used later in chicken.import.scm [OBSOLETE] (define ##sys#chicken-ffi-macro-environment '()) ; used later in foreign.import.scm (define ##sys#chicken.condition-macro-environment '()) ; used later in chicken.condition.import.scm (define ##sys#chicken.time-macro-environment '()) ; used later in chicken.time.import.scm (define ##sys#chicken.type-macro-environment '()) ; used later in chicken.type.import.scm (define ##sys#chicken.syntax-macro-environment '()) ; used later in chicken.syntax.import.scm (define ##sys#chicken.base-macro-environment '()) ; used later in chicken.base.import.scm (define (##sys#ensure-transformer t #!optional loc) (if (##sys#structure? t 'transformer) (##sys#slot t 1) (##sys#error loc "expected syntax-transformer, but got" t))) (define (##sys#extend-macro-environment name se transformer) (let ((me (##sys#macro-environment)) (handler (##sys#ensure-transformer transformer name))) (cond ((lookup name me) => (lambda (a) (set-car! a se) (set-car! (cdr a) handler) a)) (else (let ((data (list se handler))) (##sys#macro-environment (cons (cons name data) me)) data))))) (define (##sys#macro? sym #!optional (senv (##sys#current-environment))) (or (let ((l (lookup sym senv))) (pair? l)) (and-let* ((l (lookup sym (##sys#macro-environment)))) (pair? l)))) (define (##sys#undefine-macro! name) (##sys#macro-environment ;; this builds up stack, but isn't used often anyway... (let loop ((me (##sys#macro-environment))) (cond ((null? me) '()) ((eq? name (caar me)) (cdr me)) (else (cons (car me) (loop (cdr me)))))))) ;; The basic macro-expander (define (##sys#expand-0 exp dse cs?) (define (call-handler name handler exp se cs) (dd "invoking macro: " name) (dd `(STATIC-SE: ,@(map-se se))) (handle-exceptions ex ;; modify error message in condition object to include ;; currently expanded macro-name (abort (if (and (##sys#structure? ex 'condition) (memv 'exn (##sys#slot ex 1)) ) (##sys#make-structure 'condition (##sys#slot ex 1) (let copy ([ps (##sys#slot ex 2)]) (if (null? ps) '() (let ([p (car ps)] [r (cdr ps)]) (if (and (equal? '(exn . message) p) (pair? r) (string? (car r)) ) (cons '(exn . message) (cons (string-append "during expansion of (" (##sys#slot name 1) " ...) - " (car r) ) (cdr r) ) ) (copy r) ) ) ) ) ) ex) ) (let ((exp2 (if cs ;; compiler-syntax may "fall through" (fluid-let ((chicken.internal.syntax-rules#syntax-rules-mismatch (lambda (input) exp))) ; a bit of a hack (handler exp se dse)) (handler exp se dse))) ) (when (and (not cs) (eq? exp exp2)) (##sys#syntax-error-hook (string-append "syntax transformer for `" (symbol->string name) "' returns original form, which would result in endless expansion") exp)) (dx `(,name ~~> ,exp2)) (expansion-result-hook exp exp2) ) ) ) (define (expand head exp mdef) (dd `(EXPAND: ,head ,(cond ((getp head '##core#macro-alias) => (lambda (a) (if (symbol? a) a ')) ) (else '_)) ,exp ,(if (pair? mdef) `(SE: ,@(map-se (car mdef))) mdef))) (cond ((not (list? exp)) (##sys#syntax-error-hook "invalid syntax in macro form" exp) ) ((pair? mdef) (values ;; force ref. opaqueness by passing dynamic se [what does this comment mean? I forgot ...] (call-handler head (cadr mdef) exp (car mdef) #f) #t)) (else (values exp #f)) ) ) (let loop ((exp exp)) (if (pair? exp) (let ((head (car exp)) (body (cdr exp)) ) (if (symbol? head) (let ((head2 (or (lookup head dse) head))) (unless (pair? head2) (set! head2 (or (lookup head2 (##sys#macro-environment)) head2)) ) (cond [(eq? head2 '##core#let) (##sys#check-syntax 'let body '#(_ 2) #f dse) (let ([bindings (car body)]) (cond [(symbol? bindings) ; expand named let (##sys#check-syntax 'let body '(_ #((variable _) 0) . #(_ 1)) #f dse) (let ([bs (cadr body)]) (values `(##core#app (##core#letrec* ([,bindings (##core#loop-lambda ,(map (lambda (b) (car b)) bs) ,@(cddr body))]) ,bindings) ,@(##sys#map cadr bs) ) #t) ) ] [else (values exp #f)] ) ) ] ((and cs? (symbol? head2) (getp head2 '##compiler#compiler-syntax)) => (lambda (cs) (let ((result (call-handler head (car cs) exp (cdr cs) #t))) (cond ((eq? result exp) (expand head exp head2)) (else (when ##sys#compiler-syntax-hook (##sys#compiler-syntax-hook head2 result)) (loop result)))))) [else (expand head exp head2)] ) ) (values exp #f) ) ) (values exp #f) ) ) ) (define ##sys#compiler-syntax-hook #f) (define ##sys#enable-runtime-macros #f) (define expansion-result-hook (lambda (input output) output)) ;;; User-level macroexpansion (define (expand exp #!optional (se (##sys#current-environment)) cs?) (let loop ((exp exp)) (let-values (((exp2 m) (##sys#expand-0 exp se cs?))) (if m (loop exp2) exp2) ) ) ) ;;; Extended (DSSSL-style) lambda lists ; ; Assumptions: ; ; 1) #!rest must come before #!key ; 2) default values may refer to earlier variables ; 3) optional/key args may be either variable or (variable default) ; 4) an argument marker may not be specified more than once ; 5) no special handling of extra keywords (no error) ; 6) default value of optional/key args is #f ; 7) mixing with dotted list syntax is allowed (define (##sys#extended-lambda-list? llist) (let loop ([llist llist]) (and (pair? llist) (case (##sys#slot llist 0) [(#!rest #!optional #!key) #t] [else (loop (cdr llist))] ) ) ) ) (define ##sys#expand-extended-lambda-list (let ((reverse reverse)) (lambda (llist0 body errh se) (define (err msg) (errh msg llist0)) (define (->keyword s) (string->keyword (##sys#slot s 1))) (let ((rvar #f) (hasrest #f) ;; These might not exist in se, use default or chicken env: (%let* (macro-alias 'let* ##sys#default-macro-environment)) (%lambda '##core#lambda) (%opt (macro-alias 'optional ##sys#chicken.base-macro-environment)) (%let-optionals* (macro-alias 'let-optionals* ##sys#chicken.base-macro-environment)) (%let '##core#let)) (let loop ([mode 0] ; req=0, opt=1, rest=2, key=3, end=4 [req '()] [opt '()] [key '()] [llist llist0] ) (cond [(null? llist) (values (if rvar (##sys#append (reverse req) rvar) (reverse req)) (let ([body (if (null? key) body `((,%let* ,(map (lambda (k) (let ([s (car k)]) `(,s (##sys#get-keyword (##core#quote ,(->keyword (strip-syntax s))) ,(or hasrest rvar) ,@(if (pair? (cdr k)) `((,%lambda () ,@(cdr k))) '()))))) (reverse key) ) ,@body) ) ) ] ) (cond [(null? opt) body] [(and (not hasrest) (null? key) (null? (cdr opt))) `((,%let ([,(caar opt) (,%opt ,rvar ,(cadar opt))]) ,@body) ) ] [(and (not hasrest) (null? key)) `((,%let-optionals* ,rvar ,(reverse opt) ,@body))] [else `((,%let-optionals* ,rvar ,(##sys#append (reverse opt) (list (or hasrest rvar))) ,@body))] ) ) ) ] [(symbol? llist) (if (fx> mode 2) (err "rest argument list specified more than once") (begin (unless rvar (set! rvar llist)) (set! hasrest llist) (loop 4 req opt '() '()) ) ) ] [(not (pair? llist)) (err "invalid lambda list syntax") ] [else (let* ((var (car llist)) (x (or (and (symbol? var) (not (eq? 3 mode)) (lookup var se)) var)) (r (cdr llist))) (case x [(#!optional) (unless rvar (set! rvar (macro-alias 'rest se))) (if (eq? mode 0) (loop 1 req '() '() r) (err "`#!optional' argument marker in wrong context") ) ] [(#!rest) (if (fx<= mode 1) (if (and (pair? r) (symbol? (car r))) (begin (if (not rvar) (set! rvar (car r))) (set! hasrest (car r)) (loop 2 req opt '() (cdr r)) ) (err "invalid syntax of `#!rest' argument") ) (err "`#!rest' argument marker in wrong context") ) ] [(#!key) (if (not rvar) (set! rvar (macro-alias 'rest se))) (if (fx<= mode 2) (loop 3 req opt '() r) (err "`#!key' argument marker in wrong context") ) ] [else (cond [(symbol? var) (case mode [(0) (loop 0 (cons var req) '() '() r)] [(1) (loop 1 req (cons (list var #f) opt) '() r)] [(2) (err "invalid lambda list syntax after `#!rest' marker")] [else (loop 3 req opt (cons (list var) key) r)] ) ] [(and (list? var) (eq? 2 (length var)) (symbol? (car var))) (case mode [(0) (err "invalid required argument syntax")] [(1) (loop 1 req (cons var opt) '() r)] [(2) (err "invalid lambda list syntax after `#!rest' marker")] [else (loop 3 req opt (cons var key) r)] ) ] [else (err "invalid lambda list syntax")] ) ] ) ) ] ) ) ) ) ) ) ;;; Error message for redefinition of currently used defining form ; ; (i.e.`"(define define ...)") (define (defjam-error form) (##sys#syntax-error-hook "redefinition of currently used defining form" ; help me find something better form)) ;;; Expansion of multiple values assignments. ; ; Given a lambda list and a multi-valued expression, returns a form that ; will `set!` each variable to its corresponding value in order. (define (##sys#expand-multiple-values-assignment formals expr) (##sys#decompose-lambda-list formals (lambda (vars argc rest) (let ((aliases (if (symbol? formals) '() (map gensym formals))) (rest-alias (if (not rest) '() (gensym rest)))) `(##sys#call-with-values (##core#lambda () ,expr) (##core#lambda ,(append aliases rest-alias) ,@(map (lambda (v a) `(##core#set! ,v ,a)) vars aliases) ,@(cond ((null? formals) '((##core#undefined))) ((null? rest-alias) '()) (else `((##core#set! ,rest ,rest-alias)))))))))) ;;; Expansion of bodies (and internal definitions) ; ; This code is disgustingly complex. (define define-definition) (define define-syntax-definition) (define define-values-definition) (define import-definition) (define ##sys#canonicalize-body (lambda (body #!optional (se (##sys#current-environment)) cs?) (define (comp s id) (let ((f (lookup id se))) (or (eq? s f) (case s ((define) (if f (eq? f define-definition) (eq? s id))) ((define-syntax) (if f (eq? f define-syntax-definition) (eq? s id))) ((define-values) (if f (eq? f define-values-definition) (eq? s id))) ((import) (if f (eq? f import-definition) (eq? s id))) (else (eq? s id)))))) (define (fini vars vals mvars body) (if (and (null? vars) (null? mvars)) ;; Macro-expand body, and restart when defines are found. (let loop ((body body) (exps '())) (if (not (pair? body)) (cons '##core#begin (reverse exps)) ; no more defines, otherwise we would have called `expand' (let loop2 ((body body)) (let ((x (car body)) (rest (cdr body))) (if (and (pair? x) (let ((d (car x))) (and (symbol? d) (or (comp 'define d) (comp 'define-values d) (comp 'define-syntax d) (comp '##core#begin d) (comp 'import d))))) ;; Stupid hack to avoid expanding imports (if (comp 'import (car x)) (loop rest (cons x exps)) (cons '##core#begin (##sys#append (reverse exps) (list (expand body))))) (let ((x2 (##sys#expand-0 x se cs?))) (if (eq? x x2) ;; Modules and includes must be processed before ;; we can continue with other forms, so hand ;; control back to the compiler (if (and (pair? x) (symbol? (car x)) (or (comp '##core#module (car x)) (comp '##core#include (car x)))) `(##core#begin ,@(reverse exps) ,@(if (comp '##core#module (car x)) (if (null? rest) `(,x) `(,x (##core#let () ,@rest))) `((##core#include ,@(cdr x) ,rest)))) (loop rest (cons x exps))) (loop2 (cons x2 rest)) )) ))) )) ;; We saw defines. Translate to letrec, and let compiler ;; call us again for the remaining body by wrapping the ;; remaining body forms in a ##core#let. (let* ((result `(##core#let ,(##sys#map (lambda (v) (##sys#list v '(##core#undefined))) ;; vars are all normalised to lambda-lists: flatten them (foldl (lambda (l v) (##sys#append l (##sys#decompose-lambda-list v (lambda (a _ _) a)))) '() (reverse vars))) ; not strictly necessary... ,@(map (lambda (var val is-mvar?) ;; Non-mvars should expand to set! for ;; efficiency, but also because they must be ;; implicit multi-value continuations. (if is-mvar? (##sys#expand-multiple-values-assignment var val) `(##core#set! ,(car var) ,val))) (reverse vars) (reverse vals) (reverse mvars)) ,@body) ) ) (dd `(BODY: ,result)) result))) (define (fini/syntax vars vals mvars body) (fini vars vals mvars (let loop ((body body) (defs '()) (done #f)) (cond (done `((##core#letrec-syntax ,(map cdr (reverse defs)) ,@body) )) ((not (pair? body)) (loop body defs #t)) ((and (list? (car body)) (>= 3 (length (car body))) (symbol? (caar body)) (comp 'define-syntax (caar body))) (let ((def (car body))) ;; This check is insufficient, if introduced by ;; different expansions, but better than nothing: (when (eq? (car def) (cadr def)) (defjam-error def)) (loop (cdr body) (cons def defs) #f))) (else (loop body defs #t)))))) ;; Expand a run of defines or define-syntaxes into letrec. As ;; soon as we encounter something else, finish up. (define (expand body) ;; Each #t in "mvars" indicates an MV-capable "var". Non-MV ;; vars (#f in mvars) are 1-element lambda-lists for simplicity. (let loop ((body body) (vars '()) (vals '()) (mvars '())) (if (not (pair? body)) (fini vars vals mvars body) (let* ((x (car body)) (rest (cdr body)) (exp1 (and (pair? x) (car x))) (head (and exp1 (symbol? exp1) exp1))) (if (not (symbol? head)) (fini vars vals mvars body) (cond ((comp 'define head) (##sys#check-syntax 'define x '(_ _ . #(_ 0)) #f se) (let loop2 ((x x)) (let ((head (cadr x))) (cond ((not (pair? head)) (##sys#check-syntax 'define x '(_ variable . #(_ 0)) #f se) (when (eq? (car x) head) ; see above (defjam-error x)) (loop rest (cons (list head) vars) (cons (if (pair? (cddr x)) (caddr x) '(##core#undefined) ) vals) (cons #f mvars))) ((pair? (car head)) (##sys#check-syntax 'define x '(_ (_ . lambda-list) . #(_ 1)) #f se) (loop2 (chicken.syntax#expand-curried-define head (cddr x) se))) (else (##sys#check-syntax 'define x '(_ (variable . lambda-list) . #(_ 1)) #f se) (loop rest (cons (list (car head)) vars) (cons `(##core#lambda ,(cdr head) ,@(cddr x)) vals) (cons #f mvars))))))) ((comp 'define-syntax head) (##sys#check-syntax 'define-syntax x '(_ _ . #(_ 1)) se) (fini/syntax vars vals mvars body)) ((comp 'define-values head) ;;XXX check for any of the variables being `define-values' (##sys#check-syntax 'define-values x '(_ lambda-list _) #f se) (loop rest (cons (cadr x) vars) (cons (caddr x) vals) (cons #t mvars))) ((comp '##core#begin head) (loop (##sys#append (cdr x) rest) vars vals mvars)) (else ;; Do not macro-expand local definitions we are ;; in the process of introducing. (if (member (list head) vars) (fini vars vals mvars body) (let ((x2 (##sys#expand-0 x se cs?))) (if (eq? x x2) (fini vars vals mvars body) (loop (cons x2 rest) vars vals mvars))))))))))) (expand body) ) ) ;;; A simple expression matcher ;; Used by "quasiquote", below (define chicken.syntax#match-expression (lambda (exp pat vars) (let ((env '())) (define (mwalk x p) (cond ((not (pair? p)) (cond ((assq p env) => (lambda (a) (equal? x (cdr a)))) ((memq p vars) (set! env (cons (cons p x) env)) #t) (else (eq? x p)) ) ) ((pair? x) (and (mwalk (car x) (car p)) (mwalk (cdr x) (cdr p)) ) ) (else #f) ) ) (and (mwalk exp pat) env) ) ) ) ;;; Expand "curried" lambda-list syntax for `define' ;; Used by "define", below (define (chicken.syntax#expand-curried-define head body se) (let ((name #f)) (define (loop head body) (if (symbol? (car head)) (begin (set! name (car head)) `(##core#lambda ,(cdr head) ,@body) ) (loop (car head) `((##core#lambda ,(cdr head) ,@body)) ) )) (let ([exp (loop head body)]) (list 'define name exp) ) ) ) ;;; General syntax checking routine: (define ##sys#line-number-database #f) (define ##sys#syntax-error-culprit #f) (define ##sys#syntax-context '()) (define (syntax-error . args) (apply ##sys#signal-hook #:syntax-error (strip-syntax args))) (define ##sys#syntax-error-hook syntax-error) (define ##sys#syntax-error/context (lambda (msg arg) (define (syntax-imports sym) (let loop ((defs (or (##sys#get (strip-syntax sym) '##core#db) '()))) (cond ((null? defs) '()) ((eq? 'syntax (caar defs)) (cons (cadar defs) (loop (cdr defs)))) (else (loop (cdr defs)))))) (if (null? ##sys#syntax-context) (##sys#syntax-error-hook msg arg) (let ((out (open-output-string))) (define (outstr str) (##sys#print str #f out)) (let loop ((cx ##sys#syntax-context)) (cond ((null? cx) ; no unimported syntax found (outstr msg) (outstr ": ") (##sys#print arg #t out) (outstr "\ninside expression `(") (##sys#print (strip-syntax (car ##sys#syntax-context)) #t out) (outstr " ...)'")) (else (let* ((sym (strip-syntax (car cx))) (us (syntax-imports sym))) (cond ((pair? us) (outstr msg) (outstr ": ") (##sys#print arg #t out) (outstr "\n\n Perhaps you intended to use the syntax `(") (##sys#print sym #t out) (outstr " ...)' without importing it first.\n") (if (fx= 1 (length us)) (outstr (string-append " Suggesting: `(import " (symbol->string (car us)) ")'")) (outstr (string-append " Suggesting one of:\n" (let loop ((lst us)) (if (null? lst) "" (string-append "\n (import " (symbol->string (car lst)) ")'" (loop (cdr lst))))))))) (else (loop (cdr cx)))))))) (##sys#syntax-error-hook (get-output-string out)))))) (define (get-line-number sexp) (and ##sys#line-number-database (pair? sexp) (let ([head (car sexp)]) (and (symbol? head) (cond ((hash-table-ref ##sys#line-number-database head) => (lambda (pl) (let ((a (assq sexp pl))) (and a (cdr a))))) (else #f)))))) (define-constant +default-argument-count-limit+ 99999) (define ##sys#check-syntax (lambda (id exp pat #!optional culprit (se (##sys#current-environment))) (define (test x pred msg) (unless (pred x) (err msg)) ) (define (err msg) (let* ([sexp ##sys#syntax-error-culprit] [ln (get-line-number sexp)] ) (##sys#syntax-error-hook (if ln (string-append "(" ln ") in `" (symbol->string id) "' - " msg) (string-append "in `" (symbol->string id) "' - " msg) ) exp) ) ) (define (lambda-list? x) (or (##sys#extended-lambda-list? x) (let loop ((x x)) (cond ((null? x)) ((symbol? x) (not (keyword? x))) ((pair? x) (let ((s (car x))) (and (symbol? s) (not (keyword? s)) (loop (cdr x)) ) ) ) (else #f) ) ) ) ) (define (variable? v) (symbol? v)) (define (proper-list? x) (let loop ((x x)) (cond ((eq? x '())) ((pair? x) (loop (cdr x))) (else #f) ) ) ) (when culprit (set! ##sys#syntax-error-culprit culprit)) (let walk ((x exp) (p pat)) (cond ((vector? p) (let* ((p2 (vector-ref p 0)) (vlen (##sys#size p)) (min (if (fx> vlen 1) (vector-ref p 1) 0) ) (max (cond ((eq? vlen 1) 1) ((fx> vlen 2) (vector-ref p 2)) (else +default-argument-count-limit+) ) ) ) (do ((x x (cdr x)) (n 0 (fx+ n 1)) ) ((eq? x '()) (if (fx< n min) (err "not enough arguments") ) ) (cond ((fx>= n max) (err "too many arguments") ) ((not (pair? x)) (err "not a proper list") ) (else (walk (car x) p2) ) ) ) ) ) ((##sys#immediate? p) (if (not (eq? p x)) (err "unexpected object")) ) ((symbol? p) (case p ((_) #t) ((pair) (test x pair? "pair expected")) ((variable) (test x variable? "identifier expected")) ((symbol) (test x symbol? "symbol expected")) ((list) (test x proper-list? "proper list expected")) ((number) (test x number? "number expected")) ((string) (test x string? "string expected")) ((lambda-list) (test x lambda-list? "lambda-list expected")) (else (test x (lambda (y) (let ((y2 (and (symbol? y) (lookup y se)))) (eq? (if (symbol? y2) y2 y) p))) "missing keyword")) ) ) ((not (pair? p)) (err "incomplete form") ) ((not (pair? x)) (err "pair expected")) (else (walk (car x) (car p)) (walk (cdr x) (cdr p)) ) ) ) ) ) ;;; explicit/implicit-renaming transformer (define (make-er/ir-transformer handler explicit-renaming?) (##sys#make-structure 'transformer (lambda (form se dse) (let ((renv '())) ; keep rename-environment for this expansion (assert (list? se) "not a list" se) ;XXX remove later (define (rename sym) (cond ((pair? sym) (cons (rename (car sym)) (rename (cdr sym)))) ((vector? sym) (list->vector (rename (vector->list sym)))) ((or (not (symbol? sym)) (keyword? sym)) sym) ((assq sym renv) => (lambda (a) (dd `(RENAME/RENV: ,sym --> ,(cdr a))) (cdr a))) (else (let ((a (macro-alias sym se))) (dd `(RENAME: ,sym --> ,a)) (set! renv (cons (cons sym a) renv)) a)))) (define (compare s1 s2) (let ((result (cond ((pair? s1) (and (pair? s2) (compare (car s1) (car s2)) (compare (cdr s1) (cdr s2)))) ((vector? s1) (and (vector? s2) (let ((len (vector-length s1))) (and (fx= len (vector-length s2)) (do ((i 0 (fx+ i 1)) (f #t (compare (vector-ref s1 i) (vector-ref s2 i)))) ((or (fx>= i len) (not f)) f)))))) ((and (symbol? s1) (not (keyword? s1)) (symbol? s2) (not (keyword? s2))) (let ((ss1 (or (getp s1 '##core#macro-alias) (lookup2 1 s1 dse) s1) ) (ss2 (or (getp s2 '##core#macro-alias) (lookup2 2 s2 dse) s2) ) ) (cond ((symbol? ss1) (cond ((symbol? ss2) (eq? ss1 ss2)) ((assq ss1 (##sys#macro-environment)) => (lambda (a) (eq? (cdr a) ss2))) (else #f) ) ) ((symbol? ss2) (cond ((assq ss2 (##sys#macro-environment)) => (lambda (a) (eq? ss1 (cdr a)))) (else #f))) (else (eq? ss1 ss2))))) (else (eq? s1 s2))) ) ) (dd `(COMPARE: ,s1 ,s2 --> ,result)) result)) (define (lookup2 n sym dse) (let ((r (lookup sym dse))) (dd " (lookup/DSE " (list n) ": " sym " --> " (if (and r (pair? r)) ' r) ")") r)) (define (assq-reverse s l) (cond ((null? l) #f) ((eq? (cdar l) s) (car l)) (else (assq-reverse s (cdr l))))) (define (mirror-rename sym) (cond ((pair? sym) (cons (mirror-rename (car sym)) (mirror-rename (cdr sym)))) ((vector? sym) (list->vector (mirror-rename (vector->list sym)))) ((or (not (symbol? sym)) (keyword? sym)) sym) (else ; Code stolen from strip-syntax (let ((renamed (lookup sym se) ) ) (cond ((assq-reverse sym renv) => (lambda (a) (dd "REVERSING RENAME: " sym " --> " (car a)) (car a))) ((not renamed) (dd "IMPLICITLY RENAMED: " sym) (rename sym)) ((pair? renamed) (dd "MACRO: " sym) (rename sym)) ((getp sym '##core#real-name) => (lambda (name) (dd "STRIP SYNTAX ON " sym " ---> " name) name)) ;; Rename builtin aliases so strip-syntax can still ;; access symbols as entered by the user (else (let ((implicitly-renamed (rename sym))) (dd "BUILTIN ALIAS: " sym " as " renamed " --> " implicitly-renamed) implicitly-renamed))))))) (if explicit-renaming? ;; Let the user handle renaming (handler form rename compare) ;; Implicit renaming: ;; Rename everything in the input first, feed it to the transformer ;; and then swap out all renamed identifiers by their non-renamed ;; versions, and vice versa. User can decide when to inject code ;; unhygienically this way. (mirror-rename (handler (rename form) rename compare)) ) ) ))) (define (er-macro-transformer handler) (make-er/ir-transformer handler #t)) (define (ir-macro-transformer handler) (make-er/ir-transformer handler #f)) (define ##sys#er-transformer er-macro-transformer) (define ##sys#ir-transformer ir-macro-transformer) ;; Expose some internals for use in core.scm and chicken-syntax.scm: (define chicken.syntax#define-definition define-definition) (define chicken.syntax#define-syntax-definition define-syntax-definition) (define chicken.syntax#define-values-definition define-values-definition) (define chicken.syntax#expansion-result-hook expansion-result-hook) ) ; chicken.syntax module (import scheme chicken.base chicken.blob chicken.fixnum) (import chicken.syntax chicken.internal chicken.platform) ;;; Macro definitions: (##sys#extend-macro-environment 'import-syntax '() (##sys#er-transformer (cut ##sys#expand-import <> <> <> ##sys#current-environment ##sys#macro-environment #f #f 'import-syntax))) (##sys#extend-macro-environment 'import-syntax-for-syntax '() (##sys#er-transformer (cut ##sys#expand-import <> <> <> ##sys#current-meta-environment ##sys#meta-macro-environment #t #f 'import-syntax-for-syntax))) (set! chicken.syntax#import-definition (##sys#extend-macro-environment 'import '() (##sys#er-transformer (lambda (x r c) `(##core#begin ,@(map (lambda (x) (let-values (((name lib spec v s i) (##sys#decompose-import x r c 'import)) ((mod) (##sys#current-module))) (when (and mod (eq? name (##sys#module-name mod))) (##sys#syntax-error-hook 'import "cannot import from module currently being defined" name)) (if (not spec) (##sys#syntax-error-hook 'import "cannot import from undefined module" name) (##sys#import spec v s i ##sys#current-environment ##sys#macro-environment #f #f 'import)) (if (not lib) '(##core#undefined) `(##core#require ,lib ,(module-requirement name))))) (cdr x))))))) (##sys#extend-macro-environment 'import-for-syntax '() (##sys#er-transformer (lambda (x r c) (##sys#register-meta-expression `(,(r 'import) ,@(cdr x))) `(##core#elaborationtimeonly (,(r 'import) ,@(cdr x)))))) (##sys#extend-macro-environment 'cond-expand '() (##sys#er-transformer (lambda (form r c) (let ((clauses (cdr form))) (define (err x) (##sys#error "syntax error in `cond-expand' form" x (cons 'cond-expand clauses))) (define (test fx) (cond ((symbol? fx) (feature? (strip-syntax fx))) ((not (pair? fx)) (err fx)) (else (let ((head (car fx)) (rest (cdr fx))) (case (strip-syntax head) ((and) (or (eq? rest '()) (if (pair? rest) (and (test (car rest)) (test `(and ,@(cdr rest)))) (err fx)))) ((or) (and (not (eq? rest '())) (if (pair? rest) (or (test (car rest)) (test `(or ,@(cdr rest)))) (err fx)))) ((not) (not (test (cadr fx)))) (else (err fx))))))) (let expand ((cls clauses)) (cond ((eq? cls '()) (##sys#apply ##sys#error "no matching clause in `cond-expand' form" (map (lambda (x) (car x)) clauses))) ((not (pair? cls)) (err cls)) (else (let ((clause (car cls)) (rclauses (cdr cls))) (if (not (pair? clause)) (err clause) (let ((id (car clause))) (cond ((eq? (strip-syntax id) 'else) (let ((rest (cdr clause))) (if (eq? rest '()) '(##core#undefined) `(##core#begin ,@rest)))) ((test id) `(##core#begin ,@(cdr clause))) (else (expand rclauses))))))))))))) ;; The "initial" macro environment, containing only import forms and ;; cond-expand. TODO: Eventually, cond-expand should move to the ;; (chicken base) module to match r7rs. Keeping it in the initial env ;; makes it a whole lot easier to write portable CHICKEN 4 & 5 code. (define ##sys#initial-macro-environment (##sys#macro-environment)) (##sys#extend-macro-environment 'module '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'module x '(_ _ _ . #(_ 0))) (let ((len (length x)) (name (library-id (cadr x)))) ;; We strip syntax here instead of doing a hygienic comparison ;; to "=". This is a tradeoff; either we do this, or we must ;; include a mapping of (= . scheme#=) in our syntax env. In ;; the initial environment, = is bound to scheme#=, but when ;; using -explicit-use that's not the case. Doing an unhygienic ;; comparison ensures module will work in both cases. (cond ((and (fx>= len 4) (eq? '= (strip-syntax (caddr x)))) (let* ((x (strip-syntax x)) (app (cadddr x))) (cond ((fx> len 4) ;; feature suggested by syn: ;; ;; (module NAME = FUNCTORNAME BODY ...) ;; ~> ;; (begin ;; (module _NAME * BODY ...) ;; (module NAME = (FUNCTORNAME _NAME))) ;; ;; - the use of "_NAME" is a bit stupid, but it must be ;; externally visible to generate an import library from ;; and compiling "NAME" separately may need an import-lib ;; for stuff in "BODY" (say, syntax needed by syntax exported ;; from the functor, or something like this...) (let ((mtmp (string->symbol (##sys#string-append "_" (symbol->string name)))) (%module (r 'module))) `(##core#begin (,%module ,mtmp * ,@(cddddr x)) (,%module ,name = (,app ,mtmp))))) (else (##sys#check-syntax 'module x '(_ _ _ (_ . #(_ 0)))) (##sys#instantiate-functor name (library-id (car app)) (cdr app)))))) ; functor arguments (else ;;XXX use module name in "loc" argument? (let ((exports (##sys#validate-exports (strip-syntax (caddr x)) 'module))) `(##core#module ,name ,(if (eq? '* exports) #t exports) ,@(let ((body (cdddr x))) (if (and (pair? body) (null? (cdr body)) (string? (car body))) `((##core#include ,(car body) ,##sys#current-source-filename)) body)))))))))) (##sys#extend-macro-environment 'export '() (##sys#er-transformer (lambda (x r c) (let ((exps (##sys#validate-exports (strip-syntax (cdr x)) 'export)) (mod (##sys#current-module))) (when mod (##sys#add-to-export-list mod exps)) '(##core#undefined))))) (##sys#extend-macro-environment 'reexport '() (##sys#er-transformer (cut ##sys#expand-import <> <> <> ##sys#current-environment ##sys#macro-environment #f #t 'reexport))) ;;; functor definition (##sys#extend-macro-environment 'functor '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'functor x '(_ (_ . #((_ _) 0)) _ . _)) (let* ((x (strip-syntax x)) (head (cadr x)) (name (car head)) (args (cdr head)) (exps (caddr x)) (body (cdddr x)) (registration `(##sys#register-functor (##core#quote ,(library-id name)) (##core#quote ,(map (lambda (arg) (let ((argname (car arg)) (exps (##sys#validate-exports (cadr arg) 'functor))) (unless (or (symbol? argname) (and (list? argname) (= 2 (length argname)) (symbol? (car argname)) (valid-library-specifier? (cadr argname)))) (##sys#syntax-error-hook "invalid functor argument" name arg)) (cons argname exps))) args)) (##core#quote ,(##sys#validate-exports exps 'functor)) (##core#quote ,body)))) `(##core#module ,(library-id name) #t (import scheme chicken.syntax) ;; TODO: Is this correct? (begin-for-syntax ,registration)))))) ;;; interface definition (##sys#extend-macro-environment 'define-interface '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'define-interface x '(_ variable _)) (let ((name (strip-syntax (cadr x)))) (when (eq? '* name) (syntax-error-hook 'define-interface "`*' is not allowed as a name for an interface")) `(##core#elaborationtimeonly (##sys#put/restore! (##core#quote ,name) (##core#quote ##core#interface) (##core#quote ,(let ((exps (strip-syntax (caddr x)))) (cond ((eq? '* exps) '*) ((symbol? exps) `(#:interface ,exps)) ((list? exps) (##sys#validate-exports exps 'define-interface)) (else (syntax-error-hook 'define-interface "invalid exports" (caddr x)))))))))))) (##sys#extend-macro-environment 'current-module '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'current-module x '(_)) (and-let* ((mod (##sys#current-module))) `(##core#quote ,(##sys#module-name mod)))))) ;; The chicken.module syntax environment (define ##sys#chicken.module-macro-environment (##sys#macro-environment)) (set! ##sys#scheme-macro-environment (let ((me0 (##sys#macro-environment))) (##sys#extend-macro-environment 'lambda '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'lambda x '(_ lambda-list . #(_ 1))) `(##core#lambda ,@(cdr x))))) (##sys#extend-macro-environment 'quote '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'quote x '(_ _)) `(##core#quote ,(cadr x))))) (##sys#extend-macro-environment 'if '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'if x '(_ _ _ . #(_))) `(##core#if ,@(cdr x))))) (##sys#extend-macro-environment 'begin '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'begin x '(_ . #(_ 0))) `(##core#begin ,@(cdr x))))) (set! chicken.syntax#define-definition (##sys#extend-macro-environment 'define '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'define x '(_ . #(_ 1))) (let loop ((form x)) (let ((head (cadr form)) (body (cddr form)) ) (cond ((not (pair? head)) (##sys#check-syntax 'define form '(_ variable . #(_ 0 1))) (let ((name (or (getp head '##core#macro-alias) head))) (##sys#register-export name (##sys#current-module))) (when (c (r 'define) head) (chicken.syntax#defjam-error x)) `(##core#begin (##core#ensure-toplevel-definition ,head) (##core#set! ,head ,(if (pair? body) (car body) '(##core#undefined))))) ((pair? (car head)) (##sys#check-syntax 'define form '(_ (_ . lambda-list) . #(_ 1))) (loop (chicken.syntax#expand-curried-define head body '()))) ;XXX '() should be se (else (##sys#check-syntax 'define form '(_ (variable . lambda-list) . #(_ 1))) (loop (list (car x) (car head) `(##core#lambda ,(cdr head) ,@body))))))))))) (set! chicken.syntax#define-syntax-definition (##sys#extend-macro-environment 'define-syntax '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'define-syntax form '(_ variable _)) (let ((head (cadr form)) (body (caddr form))) (let ((name (or (getp head '##core#macro-alias) head))) (##sys#register-export name (##sys#current-module))) (when (c (r 'define-syntax) head) (chicken.syntax#defjam-error form)) `(##core#define-syntax ,head ,body)))))) (##sys#extend-macro-environment 'let '() (##sys#er-transformer (lambda (x r c) (cond ((and (pair? (cdr x)) (symbol? (cadr x))) (##sys#check-syntax 'let x '(_ variable #((variable _) 0) . #(_ 1))) (check-for-multiple-bindings (caddr x) x "let")) (else (##sys#check-syntax 'let x '(_ #((variable _) 0) . #(_ 1))) (check-for-multiple-bindings (cadr x) x "let"))) `(##core#let ,@(cdr x))))) (##sys#extend-macro-environment 'letrec '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'letrec x '(_ #((variable _) 0) . #(_ 1))) (check-for-multiple-bindings (cadr x) x "letrec") `(##core#letrec ,@(cdr x))))) (##sys#extend-macro-environment 'let-syntax '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'let-syntax x '(_ #((variable _) 0) . #(_ 1))) (check-for-multiple-bindings (cadr x) x "let-syntax") `(##core#let-syntax ,@(cdr x))))) (##sys#extend-macro-environment 'letrec-syntax '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'letrec-syntax x '(_ #((variable _) 0) . #(_ 1))) (check-for-multiple-bindings (cadr x) x "letrec-syntax") `(##core#letrec-syntax ,@(cdr x))))) (##sys#extend-macro-environment 'set! '() (##sys#er-transformer (lambda (x r c) (##sys#check-syntax 'set! x '(_ _ _)) (let ((dest (cadr x)) (val (caddr x))) (cond ((pair? dest) `((##sys#setter ,(car dest)) ,@(cdr dest) ,val)) (else `(##core#set! ,dest ,val))))))) (##sys#extend-macro-environment 'and '() (##sys#er-transformer (lambda (form r c) (let ((body (cdr form))) (if (null? body) #t (let ((rbody (cdr body)) (hbody (car body)) ) (if (null? rbody) hbody `(##core#if ,hbody (,(r 'and) ,@rbody) #f) ) ) ) ) ) ) ) (##sys#extend-macro-environment 'or '() (##sys#er-transformer (lambda (form r c) (let ((body (cdr form))) (if (null? body) #f (let ((rbody (cdr body)) (hbody (car body))) (if (null? rbody) hbody (let ((tmp (r 'tmp))) `(##core#let ((,tmp ,hbody)) (##core#if ,tmp ,tmp (,(r 'or) ,@rbody)) ) ) ) ) ) ) ) ) ) (##sys#extend-macro-environment 'cond '() (##sys#er-transformer (lambda (form r c) (let ((body (cdr form)) (%=> (r '=>)) (%or (r 'or)) (%else (r 'else))) (let expand ((clauses body) (else? #f)) (if (not (pair? clauses)) '(##core#undefined) (let ((clause (car clauses)) (rclauses (cdr clauses)) ) (##sys#check-syntax 'cond clause '#(_ 1)) (cond (else? (##sys#warn (chicken.format#sprintf "clause following `~S' clause in `cond'" else?) (strip-syntax clause)) (expand rclauses else?) '(##core#begin)) ((or (c %else (car clause)) (eq? #t (car clause)) ;; Like "constant?" from support.scm (number? (car clause)) (char? (car clause)) (string? (car clause)) (eof-object? (car clause)) (blob? (car clause)) (vector? (car clause)) (##sys#srfi-4-vector? (car clause)) (and (pair? (car clause)) (c (r 'quote) (caar clause)))) (expand rclauses (strip-syntax (car clause))) (cond ((and (fx= (length clause) 3) (c %=> (cadr clause))) `(,(caddr clause) ,(car clause))) ((pair? (cdr clause)) `(##core#begin ,@(cdr clause))) ((c %else (car clause)) `(##core#undefined)) (else (car clause)))) ((null? (cdr clause)) `(,%or ,(car clause) ,(expand rclauses #f))) ((and (fx= (length clause) 3) (c %=> (cadr clause))) (let ((tmp (r 'tmp))) `(##core#let ((,tmp ,(car clause))) (##core#if ,tmp (,(caddr clause) ,tmp) ,(expand rclauses #f) ) ) ) ) ((and (fx= (length clause) 4) (c %=> (caddr clause))) (let ((tmp (r 'tmp))) `(##sys#call-with-values (##core#lambda () ,(car clause)) (##core#lambda ,tmp (if (##sys#apply ,(cadr clause) ,tmp) (##sys#apply ,(cadddr clause) ,tmp) ,(expand rclauses #f) ) ) ) ) ) (else `(##core#if ,(car clause) (##core#begin ,@(cdr clause)) ,(expand rclauses #f) ) ) ) ) ) ) ) ) ) ) (##sys#extend-macro-environment 'case '((eqv? . scheme#eqv?)) (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'case form '(_ _ . #(_ 0))) (let ((exp (cadr form)) (body (cddr form)) ) (let ((tmp (r 'tmp)) (%or (r 'or)) (%=> (r '=>)) (%eqv? (r 'eqv?)) (%else (r 'else))) `(let ((,tmp ,exp)) ,(let expand ((clauses body) (else? #f)) (if (not (pair? clauses)) '(##core#undefined) (let ((clause (car clauses)) (rclauses (cdr clauses)) ) (##sys#check-syntax 'case clause '#(_ 1)) (cond (else? (##sys#warn "clause following `else' clause in `case'" (strip-syntax clause)) (expand rclauses #t) '(##core#begin)) ((c %else (car clause)) (expand rclauses #t) (cond ((null? (cdr clause)) `(##core#undefined)) ((and (fx= (length clause) 3) ; (else => expr) (c %=> (cadr clause))) `(,(caddr clause) ,tmp)) (else `(##core#begin ,@(cdr clause))))) (else `(##core#if (,%or ,@(##sys#map (lambda (x) `(,%eqv? ,tmp ',x)) (car clause))) ,(if (and (fx= (length clause) 3) ; ((...) => expr) (c %=> (cadr clause))) `(,(caddr clause) ,tmp) `(##core#begin ,@(cdr clause))) ,(expand rclauses #f) ) ) ) ) ) ) ) ) ) ) ) ) (##sys#extend-macro-environment 'let* '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'let* form '(_ #((variable _) 0) . #(_ 1))) (let ((bindings (cadr form)) (body (cddr form)) ) (let expand ((bs bindings)) (if (eq? bs '()) `(##core#let () ,@body) `(##core#let (,(car bs)) ,(expand (cdr bs))) ) ) ) ) ) ) (##sys#extend-macro-environment 'do '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'do form '(_ #((variable _ . #(_)) 0) . #(_ 1))) (let ((bindings (cadr form)) (test (caddr form)) (body (cdddr form)) (dovar (r 'doloop))) `(##core#let ,dovar ,(##sys#map (lambda (b) (list (car b) (car (cdr b)))) bindings) (##core#if ,(car test) ,(let ((tbody (cdr test))) (if (eq? tbody '()) '(##core#undefined) `(##core#begin ,@tbody) ) ) (##core#begin ,(if (eq? body '()) '(##core#undefined) `(##core#let () ,@body) ) (##core#app ,dovar ,@(##sys#map (lambda (b) (if (eq? (cdr (cdr b)) '()) (car b) (car (cdr (cdr b))) ) ) bindings) ) ) ) ) ) ) ) ) (##sys#extend-macro-environment 'quasiquote '() (##sys#er-transformer (lambda (form r c) (let ((%quasiquote (r 'quasiquote)) (%unquote (r 'unquote)) (%unquote-splicing (r 'unquote-splicing))) (define (walk x n) (simplify (walk1 x n))) (define (walk1 x n) (cond ((vector? x) `(##sys#list->vector ,(walk (vector->list x) n)) ) ((not (pair? x)) `(##core#quote ,x)) (else (let ((head (car x)) (tail (cdr x))) (cond ((c %unquote head) (cond ((eq? n 0) (##sys#check-syntax 'unquote x '(_ _)) (car tail)) (else (list '##sys#cons `(##core#quote ,%unquote) (walk tail (fx- n 1)) ) ))) ((c %quasiquote head) (list '##sys#cons `(##core#quote ,%quasiquote) (walk tail (fx+ n 1)) ) ) ((and (pair? head) (c %unquote-splicing (car head))) (cond ((eq? n 0) (##sys#check-syntax 'unquote-splicing head '(_ _)) `(##sys#append ,(cadr head) ,(walk tail n))) (else `(##sys#cons (##sys#cons (##core#quote ,%unquote-splicing) ,(walk (cdr head) (fx- n 1)) ) ,(walk tail n))))) (else `(##sys#cons ,(walk head n) ,(walk tail n)) ) ) ) ) ) ) (define (simplify x) (cond ((chicken.syntax#match-expression x '(##sys#cons a (##core#quote ())) '(a)) => (lambda (env) (simplify `(##sys#list ,(cdr (assq 'a env))))) ) ((chicken.syntax#match-expression x '(##sys#cons a (##sys#list . b)) '(a b)) => (lambda (env) (let ((bxs (assq 'b env))) (if (fx< (length bxs) 32) (simplify `(##sys#list ,(cdr (assq 'a env)) ,@(cdr bxs) ) ) x) ) ) ) ((chicken.syntax#match-expression x '(##sys#append a (##core#quote ())) '(a)) => (lambda (env) (cdr (assq 'a env))) ) (else x) ) ) (##sys#check-syntax 'quasiquote form '(_ _)) (walk (cadr form) 0) ) ) ) ) (##sys#extend-macro-environment 'delay '() (##sys#er-transformer (lambda (form r c) (##sys#check-syntax 'delay form '(_ _)) `(,(r 'delay-force) (##sys#make-promise (##sys#call-with-values (##core#lambda () ,(cadr form)) ##sys#list)))))) ;;; syntax-rules (include "synrules.scm") (macro-subset me0))) ;;; the base macro environment (the old "scheme", essentially) ;;; TODO: Remove this (define ##sys#default-macro-environment (fixup-macro-environment (##sys#macro-environment))) (define ##sys#meta-macro-environment (make-parameter (##sys#macro-environment))) chicken-5.1.0/scrutinizer.c0000644000175000017500000653632413502227750015502 0ustar sjamaansjamaan/* Generated from scrutinizer.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: scrutinizer.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.scrutinizer -output-file scrutinizer.c unit: scrutinizer uses: library eval expand data-structures extras pathname port support internal */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_port_toplevel) C_externimport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_support_toplevel) C_externimport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[661]; static double C_possibly_force_alignment; C_noret_decl(f25846) static void C_ccall f25846(C_word c,C_word *av) C_noret; C_noret_decl(f25952) static void C_ccall f25952(C_word c,C_word *av) C_noret; C_noret_decl(f26161) static void C_ccall f26161(C_word c,C_word *av) C_noret; C_noret_decl(f26629) static void C_ccall f26629(C_word c,C_word *av) C_noret; C_noret_decl(f26761) static void C_ccall f26761(C_word c,C_word *av) C_noret; C_noret_decl(f26767) static void C_ccall f26767(C_word c,C_word *av) C_noret; C_noret_decl(f26777) static void C_ccall f26777(C_word c,C_word *av) C_noret; C_noret_decl(f26785) static void C_ccall f26785(C_word c,C_word *av) C_noret; C_noret_decl(f26825) static void C_ccall f26825(C_word c,C_word *av) C_noret; C_noret_decl(f26831) static void C_ccall f26831(C_word c,C_word *av) C_noret; C_noret_decl(f26845) static void C_ccall f26845(C_word c,C_word *av) C_noret; C_noret_decl(f28121) static void C_ccall f28121(C_word c,C_word *av) C_noret; C_noret_decl(f28127) static void C_ccall f28127(C_word c,C_word *av) C_noret; C_noret_decl(f28147) static void C_ccall f28147(C_word c,C_word *av) C_noret; C_noret_decl(f28390) static void C_ccall f28390(C_word c,C_word *av) C_noret; C_noret_decl(f28396) static void C_ccall f28396(C_word c,C_word *av) C_noret; C_noret_decl(f28402) static void C_ccall f28402(C_word c,C_word *av) C_noret; C_noret_decl(f_10004) static void C_ccall f_10004(C_word c,C_word *av) C_noret; C_noret_decl(f_10008) static void C_ccall f_10008(C_word c,C_word *av) C_noret; C_noret_decl(f_10012) static void C_ccall f_10012(C_word c,C_word *av) C_noret; C_noret_decl(f_10014) static void C_ccall f_10014(C_word c,C_word *av) C_noret; C_noret_decl(f_10036) static void C_ccall f_10036(C_word c,C_word *av) C_noret; C_noret_decl(f_10043) static void C_ccall f_10043(C_word c,C_word *av) C_noret; C_noret_decl(f_10046) static void C_ccall f_10046(C_word c,C_word *av) C_noret; C_noret_decl(f_10049) static void C_ccall f_10049(C_word c,C_word *av) C_noret; C_noret_decl(f_10057) static void C_ccall f_10057(C_word c,C_word *av) C_noret; C_noret_decl(f_10066) static void C_ccall f_10066(C_word c,C_word *av) C_noret; C_noret_decl(f_10073) static void C_ccall f_10073(C_word c,C_word *av) C_noret; C_noret_decl(f_10080) static void C_ccall f_10080(C_word c,C_word *av) C_noret; C_noret_decl(f_10088) static void C_ccall f_10088(C_word c,C_word *av) C_noret; C_noret_decl(f_10090) static void C_fcall f_10090(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_10098) static void C_fcall f_10098(C_word t0,C_word t1) C_noret; C_noret_decl(f_10102) static void C_fcall f_10102(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10110) static void C_fcall f_10110(C_word t0,C_word t1) C_noret; C_noret_decl(f_10114) static void C_ccall f_10114(C_word c,C_word *av) C_noret; C_noret_decl(f_10149) static void C_ccall f_10149(C_word c,C_word *av) C_noret; C_noret_decl(f_10171) static void C_ccall f_10171(C_word c,C_word *av) C_noret; C_noret_decl(f_10183) static void C_fcall f_10183(C_word t0,C_word t1) C_noret; C_noret_decl(f_10196) static void C_ccall f_10196(C_word c,C_word *av) C_noret; C_noret_decl(f_10218) static void C_ccall f_10218(C_word c,C_word *av) C_noret; C_noret_decl(f_10227) static void C_ccall f_10227(C_word c,C_word *av) C_noret; C_noret_decl(f_10229) static void C_fcall f_10229(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10300) static void C_ccall f_10300(C_word c,C_word *av) C_noret; C_noret_decl(f_10303) static void C_ccall f_10303(C_word c,C_word *av) C_noret; C_noret_decl(f_10306) static void C_ccall f_10306(C_word c,C_word *av) C_noret; C_noret_decl(f_10312) static void C_ccall f_10312(C_word c,C_word *av) C_noret; C_noret_decl(f_10315) static void C_ccall f_10315(C_word c,C_word *av) C_noret; C_noret_decl(f_10318) static void C_ccall f_10318(C_word c,C_word *av) C_noret; C_noret_decl(f_10324) static void C_ccall f_10324(C_word c,C_word *av) C_noret; C_noret_decl(f_10335) static void C_fcall f_10335(C_word t0,C_word t1) C_noret; C_noret_decl(f_10343) static void C_fcall f_10343(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10370) static void C_ccall f_10370(C_word c,C_word *av) C_noret; C_noret_decl(f_10389) static void C_ccall f_10389(C_word c,C_word *av) C_noret; C_noret_decl(f_10407) static void C_ccall f_10407(C_word c,C_word *av) C_noret; C_noret_decl(f_10417) static void C_ccall f_10417(C_word c,C_word *av) C_noret; C_noret_decl(f_10432) static void C_fcall f_10432(C_word t0,C_word t1) C_noret; C_noret_decl(f_10435) static void C_ccall f_10435(C_word c,C_word *av) C_noret; C_noret_decl(f_10438) static void C_ccall f_10438(C_word c,C_word *av) C_noret; C_noret_decl(f_10447) static void C_fcall f_10447(C_word t0,C_word t1) C_noret; C_noret_decl(f_10453) static void C_ccall f_10453(C_word c,C_word *av) C_noret; C_noret_decl(f_10459) static void C_ccall f_10459(C_word c,C_word *av) C_noret; C_noret_decl(f_10462) static void C_ccall f_10462(C_word c,C_word *av) C_noret; C_noret_decl(f_10469) static void C_ccall f_10469(C_word c,C_word *av) C_noret; C_noret_decl(f_10475) static void C_ccall f_10475(C_word c,C_word *av) C_noret; C_noret_decl(f_10478) static void C_ccall f_10478(C_word c,C_word *av) C_noret; C_noret_decl(f_10481) static void C_ccall f_10481(C_word c,C_word *av) C_noret; C_noret_decl(f_10484) static void C_ccall f_10484(C_word c,C_word *av) C_noret; C_noret_decl(f_10487) static void C_ccall f_10487(C_word c,C_word *av) C_noret; C_noret_decl(f_10490) static void C_ccall f_10490(C_word c,C_word *av) C_noret; C_noret_decl(f_10498) static void C_ccall f_10498(C_word c,C_word *av) C_noret; C_noret_decl(f_10518) static void C_ccall f_10518(C_word c,C_word *av) C_noret; C_noret_decl(f_10522) static void C_ccall f_10522(C_word c,C_word *av) C_noret; C_noret_decl(f_10551) static void C_ccall f_10551(C_word c,C_word *av) C_noret; C_noret_decl(f_10558) static void C_fcall f_10558(C_word t0,C_word t1) C_noret; C_noret_decl(f_10561) static void C_fcall f_10561(C_word t0,C_word t1) C_noret; C_noret_decl(f_10581) static void C_fcall f_10581(C_word t0,C_word t1) C_noret; C_noret_decl(f_10588) static void C_ccall f_10588(C_word c,C_word *av) C_noret; C_noret_decl(f_10610) static void C_ccall f_10610(C_word c,C_word *av) C_noret; C_noret_decl(f_10614) static void C_ccall f_10614(C_word c,C_word *av) C_noret; C_noret_decl(f_10621) static void C_ccall f_10621(C_word c,C_word *av) C_noret; C_noret_decl(f_10623) static void C_ccall f_10623(C_word c,C_word *av) C_noret; C_noret_decl(f_10650) static void C_ccall f_10650(C_word c,C_word *av) C_noret; C_noret_decl(f_10657) static void C_fcall f_10657(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10673) static void C_ccall f_10673(C_word c,C_word *av) C_noret; C_noret_decl(f_10677) static void C_ccall f_10677(C_word c,C_word *av) C_noret; C_noret_decl(f_10679) static void C_ccall f_10679(C_word c,C_word *av) C_noret; C_noret_decl(f_10686) static void C_ccall f_10686(C_word c,C_word *av) C_noret; C_noret_decl(f_10692) static void C_ccall f_10692(C_word c,C_word *av) C_noret; C_noret_decl(f_10695) static void C_ccall f_10695(C_word c,C_word *av) C_noret; C_noret_decl(f_10698) static void C_ccall f_10698(C_word c,C_word *av) C_noret; C_noret_decl(f_10701) static void C_ccall f_10701(C_word c,C_word *av) C_noret; C_noret_decl(f_10704) static void C_ccall f_10704(C_word c,C_word *av) C_noret; C_noret_decl(f_10707) static void C_ccall f_10707(C_word c,C_word *av) C_noret; C_noret_decl(f_10712) static void C_ccall f_10712(C_word c,C_word *av) C_noret; C_noret_decl(f_10718) static void C_ccall f_10718(C_word c,C_word *av) C_noret; C_noret_decl(f_10721) static void C_fcall f_10721(C_word t0,C_word t1) C_noret; C_noret_decl(f_10728) static void C_fcall f_10728(C_word t0,C_word t1) C_noret; C_noret_decl(f_10731) static void C_ccall f_10731(C_word c,C_word *av) C_noret; C_noret_decl(f_10756) static void C_ccall f_10756(C_word c,C_word *av) C_noret; C_noret_decl(f_10760) static void C_ccall f_10760(C_word c,C_word *av) C_noret; C_noret_decl(f_10766) static void C_ccall f_10766(C_word c,C_word *av) C_noret; C_noret_decl(f_10769) static void C_ccall f_10769(C_word c,C_word *av) C_noret; C_noret_decl(f_10779) static void C_fcall f_10779(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10791) static void C_fcall f_10791(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10816) static void C_ccall f_10816(C_word c,C_word *av) C_noret; C_noret_decl(f_10833) static void C_fcall f_10833(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10846) static void C_ccall f_10846(C_word c,C_word *av) C_noret; C_noret_decl(f_10849) static void C_ccall f_10849(C_word c,C_word *av) C_noret; C_noret_decl(f_10852) static void C_ccall f_10852(C_word c,C_word *av) C_noret; C_noret_decl(f_10858) static void C_fcall f_10858(C_word t0,C_word t1) C_noret; C_noret_decl(f_10864) static void C_ccall f_10864(C_word c,C_word *av) C_noret; C_noret_decl(f_10870) static void C_ccall f_10870(C_word c,C_word *av) C_noret; C_noret_decl(f_10876) static void C_ccall f_10876(C_word c,C_word *av) C_noret; C_noret_decl(f_10899) static void C_ccall f_10899(C_word c,C_word *av) C_noret; C_noret_decl(f_10914) static void C_ccall f_10914(C_word c,C_word *av) C_noret; C_noret_decl(f_10920) static void C_ccall f_10920(C_word c,C_word *av) C_noret; C_noret_decl(f_10926) static void C_ccall f_10926(C_word c,C_word *av) C_noret; C_noret_decl(f_10942) static void C_ccall f_10942(C_word c,C_word *av) C_noret; C_noret_decl(f_10948) static void C_ccall f_10948(C_word c,C_word *av) C_noret; C_noret_decl(f_10952) static void C_fcall f_10952(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10960) static void C_ccall f_10960(C_word c,C_word *av) C_noret; C_noret_decl(f_10982) static void C_ccall f_10982(C_word c,C_word *av) C_noret; C_noret_decl(f_10993) static void C_ccall f_10993(C_word c,C_word *av) C_noret; C_noret_decl(f_10997) static void C_ccall f_10997(C_word c,C_word *av) C_noret; C_noret_decl(f_11006) static void C_ccall f_11006(C_word c,C_word *av) C_noret; C_noret_decl(f_11009) static void C_ccall f_11009(C_word c,C_word *av) C_noret; C_noret_decl(f_11019) static void C_fcall f_11019(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11031) static void C_fcall f_11031(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11056) static void C_ccall f_11056(C_word c,C_word *av) C_noret; C_noret_decl(f_11065) static void C_fcall f_11065(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11075) static void C_ccall f_11075(C_word c,C_word *av) C_noret; C_noret_decl(f_11104) static void C_ccall f_11104(C_word c,C_word *av) C_noret; C_noret_decl(f_11106) static void C_ccall f_11106(C_word c,C_word *av) C_noret; C_noret_decl(f_11114) static void C_ccall f_11114(C_word c,C_word *av) C_noret; C_noret_decl(f_11122) static void C_ccall f_11122(C_word c,C_word *av) C_noret; C_noret_decl(f_11139) static void C_ccall f_11139(C_word c,C_word *av) C_noret; C_noret_decl(f_11141) static void C_fcall f_11141(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11166) static void C_ccall f_11166(C_word c,C_word *av) C_noret; C_noret_decl(f_11179) static void C_fcall f_11179(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11208) static void C_ccall f_11208(C_word c,C_word *av) C_noret; C_noret_decl(f_11237) static void C_ccall f_11237(C_word c,C_word *av) C_noret; C_noret_decl(f_11243) static void C_ccall f_11243(C_word c,C_word *av) C_noret; C_noret_decl(f_11262) static void C_ccall f_11262(C_word c,C_word *av) C_noret; C_noret_decl(f_11268) static void C_fcall f_11268(C_word t0,C_word t1) C_noret; C_noret_decl(f_11271) static void C_fcall f_11271(C_word t0,C_word t1) C_noret; C_noret_decl(f_11293) static void C_ccall f_11293(C_word c,C_word *av) C_noret; C_noret_decl(f_11325) static void C_ccall f_11325(C_word c,C_word *av) C_noret; C_noret_decl(f_11328) static void C_ccall f_11328(C_word c,C_word *av) C_noret; C_noret_decl(f_11341) static void C_fcall f_11341(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11362) static void C_ccall f_11362(C_word c,C_word *av) C_noret; C_noret_decl(f_11368) static void C_ccall f_11368(C_word c,C_word *av) C_noret; C_noret_decl(f_11371) static void C_ccall f_11371(C_word c,C_word *av) C_noret; C_noret_decl(f_11381) static void C_ccall f_11381(C_word c,C_word *av) C_noret; C_noret_decl(f_11400) static void C_ccall f_11400(C_word c,C_word *av) C_noret; C_noret_decl(f_11425) static void C_fcall f_11425(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11435) static void C_ccall f_11435(C_word c,C_word *av) C_noret; C_noret_decl(f_11437) static void C_fcall f_11437(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11447) static void C_ccall f_11447(C_word c,C_word *av) C_noret; C_noret_decl(f_11508) static void C_ccall f_11508(C_word c,C_word *av) C_noret; C_noret_decl(f_11511) static void C_ccall f_11511(C_word c,C_word *av) C_noret; C_noret_decl(f_11514) static void C_ccall f_11514(C_word c,C_word *av) C_noret; C_noret_decl(f_11517) static void C_ccall f_11517(C_word c,C_word *av) C_noret; C_noret_decl(f_11520) static void C_ccall f_11520(C_word c,C_word *av) C_noret; C_noret_decl(f_11523) static void C_ccall f_11523(C_word c,C_word *av) C_noret; C_noret_decl(f_11546) static void C_ccall f_11546(C_word c,C_word *av) C_noret; C_noret_decl(f_11550) static void C_ccall f_11550(C_word c,C_word *av) C_noret; C_noret_decl(f_11558) static void C_ccall f_11558(C_word c,C_word *av) C_noret; C_noret_decl(f_11561) static void C_ccall f_11561(C_word c,C_word *av) C_noret; C_noret_decl(f_11564) static void C_ccall f_11564(C_word c,C_word *av) C_noret; C_noret_decl(f_11567) static void C_ccall f_11567(C_word c,C_word *av) C_noret; C_noret_decl(f_11584) static void C_fcall f_11584(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11594) static void C_ccall f_11594(C_word c,C_word *av) C_noret; C_noret_decl(f_11621) static void C_ccall f_11621(C_word c,C_word *av) C_noret; C_noret_decl(f_11623) static void C_fcall f_11623(C_word t0,C_word t1) C_noret; C_noret_decl(f_11629) static void C_fcall f_11629(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11639) static void C_ccall f_11639(C_word c,C_word *av) C_noret; C_noret_decl(f_11651) static void C_ccall f_11651(C_word c,C_word *av) C_noret; C_noret_decl(f_11659) static void C_fcall f_11659(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11679) static void C_ccall f_11679(C_word c,C_word *av) C_noret; C_noret_decl(f_11692) static void C_ccall f_11692(C_word c,C_word *av) C_noret; C_noret_decl(f_11704) static void C_ccall f_11704(C_word c,C_word *av) C_noret; C_noret_decl(f_11711) static void C_ccall f_11711(C_word c,C_word *av) C_noret; C_noret_decl(f_11713) static void C_fcall f_11713(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11738) static void C_ccall f_11738(C_word c,C_word *av) C_noret; C_noret_decl(f_11760) static void C_ccall f_11760(C_word c,C_word *av) C_noret; C_noret_decl(f_11773) static void C_ccall f_11773(C_word c,C_word *av) C_noret; C_noret_decl(f_11794) static void C_ccall f_11794(C_word c,C_word *av) C_noret; C_noret_decl(f_11815) static void C_ccall f_11815(C_word c,C_word *av) C_noret; C_noret_decl(f_11819) static void C_ccall f_11819(C_word c,C_word *av) C_noret; C_noret_decl(f_11830) static void C_fcall f_11830(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11839) static void C_fcall f_11839(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_11936) static void C_ccall f_11936(C_word c,C_word *av) C_noret; C_noret_decl(f_11961) static void C_fcall f_11961(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11967) static void C_ccall f_11967(C_word c,C_word *av) C_noret; C_noret_decl(f_11973) static void C_ccall f_11973(C_word c,C_word *av) C_noret; C_noret_decl(f_11983) static void C_ccall f_11983(C_word c,C_word *av) C_noret; C_noret_decl(f_11990) static void C_ccall f_11990(C_word c,C_word *av) C_noret; C_noret_decl(f_12007) static void C_ccall f_12007(C_word c,C_word *av) C_noret; C_noret_decl(f_12024) static void C_fcall f_12024(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12058) static void C_fcall f_12058(C_word t0,C_word t1) C_noret; C_noret_decl(f_12067) static void C_ccall f_12067(C_word c,C_word *av) C_noret; C_noret_decl(f_12092) static void C_fcall f_12092(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12098) static void C_ccall f_12098(C_word c,C_word *av) C_noret; C_noret_decl(f_12103) static void C_ccall f_12103(C_word c,C_word *av) C_noret; C_noret_decl(f_12109) static void C_ccall f_12109(C_word c,C_word *av) C_noret; C_noret_decl(f_12114) static void C_fcall f_12114(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12120) static void C_fcall f_12120(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12133) static void C_ccall f_12133(C_word c,C_word *av) C_noret; C_noret_decl(f_12150) static void C_ccall f_12150(C_word c,C_word *av) C_noret; C_noret_decl(f_12167) static void C_fcall f_12167(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12180) static void C_ccall f_12180(C_word c,C_word *av) C_noret; C_noret_decl(f_12208) static void C_fcall f_12208(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12221) static void C_ccall f_12221(C_word c,C_word *av) C_noret; C_noret_decl(f_12258) static void C_ccall f_12258(C_word c,C_word *av) C_noret; C_noret_decl(f_12299) static void C_fcall f_12299(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12312) static void C_ccall f_12312(C_word c,C_word *av) C_noret; C_noret_decl(f_12342) static void C_ccall f_12342(C_word c,C_word *av) C_noret; C_noret_decl(f_12412) static void C_ccall f_12412(C_word c,C_word *av) C_noret; C_noret_decl(f_12416) static void C_fcall f_12416(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12426) static void C_ccall f_12426(C_word c,C_word *av) C_noret; C_noret_decl(f_12430) static void C_fcall f_12430(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12443) static void C_fcall f_12443(C_word t0,C_word t1) C_noret; C_noret_decl(f_12451) static void C_ccall f_12451(C_word c,C_word *av) C_noret; C_noret_decl(f_12456) static void C_ccall f_12456(C_word c,C_word *av) C_noret; C_noret_decl(f_12460) static void C_ccall f_12460(C_word c,C_word *av) C_noret; C_noret_decl(f_12463) static void C_ccall f_12463(C_word c,C_word *av) C_noret; C_noret_decl(f_12472) static void C_ccall f_12472(C_word c,C_word *av) C_noret; C_noret_decl(f_12481) static void C_fcall f_12481(C_word t0,C_word t1) C_noret; C_noret_decl(f_12492) static void C_ccall f_12492(C_word c,C_word *av) C_noret; C_noret_decl(f_12497) static void C_ccall f_12497(C_word c,C_word *av) C_noret; C_noret_decl(f_12501) static void C_ccall f_12501(C_word c,C_word *av) C_noret; C_noret_decl(f_12504) static void C_ccall f_12504(C_word c,C_word *av) C_noret; C_noret_decl(f_12513) static void C_ccall f_12513(C_word c,C_word *av) C_noret; C_noret_decl(f_12522) static void C_fcall f_12522(C_word t0,C_word t1) C_noret; C_noret_decl(f_12531) static void C_ccall f_12531(C_word c,C_word *av) C_noret; C_noret_decl(f_12541) static void C_fcall f_12541(C_word t0,C_word t1) C_noret; C_noret_decl(f_12550) static void C_ccall f_12550(C_word c,C_word *av) C_noret; C_noret_decl(f_12560) static void C_fcall f_12560(C_word t0,C_word t1) C_noret; C_noret_decl(f_12573) static void C_fcall f_12573(C_word t0,C_word t1) C_noret; C_noret_decl(f_12666) static void C_fcall f_12666(C_word t0,C_word t1) C_noret; C_noret_decl(f_12678) static void C_ccall f_12678(C_word c,C_word *av) C_noret; C_noret_decl(f_12681) static void C_ccall f_12681(C_word c,C_word *av) C_noret; C_noret_decl(f_12684) static void C_ccall f_12684(C_word c,C_word *av) C_noret; C_noret_decl(f_12687) static void C_ccall f_12687(C_word c,C_word *av) C_noret; C_noret_decl(f_12693) static void C_ccall f_12693(C_word c,C_word *av) C_noret; C_noret_decl(f_12786) static void C_ccall f_12786(C_word c,C_word *av) C_noret; C_noret_decl(f_12839) static void C_fcall f_12839(C_word t0,C_word t1) C_noret; C_noret_decl(f_12858) static void C_fcall f_12858(C_word t0,C_word t1) C_noret; C_noret_decl(f_12871) static void C_fcall f_12871(C_word t0,C_word t1) C_noret; C_noret_decl(f_12896) static void C_ccall f_12896(C_word c,C_word *av) C_noret; C_noret_decl(f_12929) static void C_ccall f_12929(C_word c,C_word *av) C_noret; C_noret_decl(f_12973) static void C_fcall f_12973(C_word t0,C_word t1) C_noret; C_noret_decl(f_12998) static void C_ccall f_12998(C_word c,C_word *av) C_noret; C_noret_decl(f_13031) static void C_ccall f_13031(C_word c,C_word *av) C_noret; C_noret_decl(f_13075) static void C_fcall f_13075(C_word t0,C_word t1) C_noret; C_noret_decl(f_13105) static void C_ccall f_13105(C_word c,C_word *av) C_noret; C_noret_decl(f_13117) static void C_fcall f_13117(C_word t0,C_word t1) C_noret; C_noret_decl(f_13139) static void C_ccall f_13139(C_word c,C_word *av) C_noret; C_noret_decl(f_13151) static void C_fcall f_13151(C_word t0,C_word t1) C_noret; C_noret_decl(f_13181) static void C_ccall f_13181(C_word c,C_word *av) C_noret; C_noret_decl(f_13193) static void C_fcall f_13193(C_word t0,C_word t1) C_noret; C_noret_decl(f_13215) static void C_ccall f_13215(C_word c,C_word *av) C_noret; C_noret_decl(f_13403) static void C_fcall f_13403(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13409) static void C_fcall f_13409(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13442) static void C_ccall f_13442(C_word c,C_word *av) C_noret; C_noret_decl(f_13456) static void C_ccall f_13456(C_word c,C_word *av) C_noret; C_noret_decl(f_13475) static void C_fcall f_13475(C_word t0,C_word t1) C_noret; C_noret_decl(f_13478) static void C_ccall f_13478(C_word c,C_word *av) C_noret; C_noret_decl(f_13484) static void C_ccall f_13484(C_word c,C_word *av) C_noret; C_noret_decl(f_13505) static void C_ccall f_13505(C_word c,C_word *av) C_noret; C_noret_decl(f_13509) static void C_ccall f_13509(C_word c,C_word *av) C_noret; C_noret_decl(f_13520) static void C_ccall f_13520(C_word c,C_word *av) C_noret; C_noret_decl(f_13522) static void C_ccall f_13522(C_word c,C_word *av) C_noret; C_noret_decl(f_13545) static void C_ccall f_13545(C_word c,C_word *av) C_noret; C_noret_decl(f_13557) static void C_ccall f_13557(C_word c,C_word *av) C_noret; C_noret_decl(f_13559) static void C_fcall f_13559(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13584) static void C_ccall f_13584(C_word c,C_word *av) C_noret; C_noret_decl(f_13600) static void C_ccall f_13600(C_word c,C_word *av) C_noret; C_noret_decl(f_13628) static void C_ccall f_13628(C_word c,C_word *av) C_noret; C_noret_decl(f_13634) static void C_ccall f_13634(C_word c,C_word *av) C_noret; C_noret_decl(f_13646) static void C_fcall f_13646(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13666) static void C_ccall f_13666(C_word c,C_word *av) C_noret; C_noret_decl(f_13669) static void C_ccall f_13669(C_word c,C_word *av) C_noret; C_noret_decl(f_13672) static void C_ccall f_13672(C_word c,C_word *av) C_noret; C_noret_decl(f_13675) static void C_ccall f_13675(C_word c,C_word *av) C_noret; C_noret_decl(f_13678) static void C_ccall f_13678(C_word c,C_word *av) C_noret; C_noret_decl(f_13681) static void C_ccall f_13681(C_word c,C_word *av) C_noret; C_noret_decl(f_13688) static void C_fcall f_13688(C_word t0,C_word t1) C_noret; C_noret_decl(f_13696) static void C_ccall f_13696(C_word c,C_word *av) C_noret; C_noret_decl(f_13700) static void C_ccall f_13700(C_word c,C_word *av) C_noret; C_noret_decl(f_13715) static void C_ccall f_13715(C_word c,C_word *av) C_noret; C_noret_decl(f_13721) static void C_ccall f_13721(C_word c,C_word *av) C_noret; C_noret_decl(f_13731) static void C_ccall f_13731(C_word c,C_word *av) C_noret; C_noret_decl(f_13737) static void C_ccall f_13737(C_word c,C_word *av) C_noret; C_noret_decl(f_13743) static void C_ccall f_13743(C_word c,C_word *av) C_noret; C_noret_decl(f_13746) static void C_ccall f_13746(C_word c,C_word *av) C_noret; C_noret_decl(f_13749) static void C_ccall f_13749(C_word c,C_word *av) C_noret; C_noret_decl(f_13766) static void C_fcall f_13766(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13791) static void C_ccall f_13791(C_word c,C_word *av) C_noret; C_noret_decl(f_13802) static void C_ccall f_13802(C_word c,C_word *av) C_noret; C_noret_decl(f_13820) static void C_ccall f_13820(C_word c,C_word *av) C_noret; C_noret_decl(f_13830) static void C_ccall f_13830(C_word c,C_word *av) C_noret; C_noret_decl(f_13846) static void C_ccall f_13846(C_word c,C_word *av) C_noret; C_noret_decl(f_13850) static void C_ccall f_13850(C_word c,C_word *av) C_noret; C_noret_decl(f_13856) static void C_fcall f_13856(C_word t0,C_word t1) C_noret; C_noret_decl(f_13908) static void C_ccall f_13908(C_word c,C_word *av) C_noret; C_noret_decl(f_13910) static void C_fcall f_13910(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13935) static void C_ccall f_13935(C_word c,C_word *av) C_noret; C_noret_decl(f_13954) static void C_ccall f_13954(C_word c,C_word *av) C_noret; C_noret_decl(f_13973) static void C_ccall f_13973(C_word c,C_word *av) C_noret; C_noret_decl(f_13988) static void C_ccall f_13988(C_word c,C_word *av) C_noret; C_noret_decl(f_14001) static void C_ccall f_14001(C_word c,C_word *av) C_noret; C_noret_decl(f_14004) static void C_ccall f_14004(C_word c,C_word *av) C_noret; C_noret_decl(f_14040) static void C_ccall f_14040(C_word c,C_word *av) C_noret; C_noret_decl(f_14064) static void C_ccall f_14064(C_word c,C_word *av) C_noret; C_noret_decl(f_14105) static void C_ccall f_14105(C_word c,C_word *av) C_noret; C_noret_decl(f_14107) static void C_fcall f_14107(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14132) static void C_ccall f_14132(C_word c,C_word *av) C_noret; C_noret_decl(f_14161) static void C_ccall f_14161(C_word c,C_word *av) C_noret; C_noret_decl(f_14163) static void C_fcall f_14163(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14188) static void C_ccall f_14188(C_word c,C_word *av) C_noret; C_noret_decl(f_14222) static void C_ccall f_14222(C_word c,C_word *av) C_noret; C_noret_decl(f_14236) static void C_fcall f_14236(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14261) static void C_ccall f_14261(C_word c,C_word *av) C_noret; C_noret_decl(f_14275) static void C_fcall f_14275(C_word t0,C_word t1) C_noret; C_noret_decl(f_14281) static void C_ccall f_14281(C_word c,C_word *av) C_noret; C_noret_decl(f_14283) static void C_fcall f_14283(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14308) static void C_ccall f_14308(C_word c,C_word *av) C_noret; C_noret_decl(f_14361) static void C_fcall f_14361(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14366) static void C_ccall f_14366(C_word c,C_word *av) C_noret; C_noret_decl(f_14375) static void C_ccall f_14375(C_word c,C_word *av) C_noret; C_noret_decl(f_14392) static void C_ccall f_14392(C_word c,C_word *av) C_noret; C_noret_decl(f_14394) static void C_ccall f_14394(C_word c,C_word *av) C_noret; C_noret_decl(f_14409) static void C_fcall f_14409(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14417) static void C_ccall f_14417(C_word c,C_word *av) C_noret; C_noret_decl(f_14444) static void C_fcall f_14444(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14483) static void C_fcall f_14483(C_word t0,C_word t1) C_noret; C_noret_decl(f_14490) static void C_ccall f_14490(C_word c,C_word *av) C_noret; C_noret_decl(f_14528) static void C_fcall f_14528(C_word t0,C_word t1) C_noret; C_noret_decl(f_14539) static void C_ccall f_14539(C_word c,C_word *av) C_noret; C_noret_decl(f_14543) static void C_ccall f_14543(C_word c,C_word *av) C_noret; C_noret_decl(f_14589) static void C_ccall f_14589(C_word c,C_word *av) C_noret; C_noret_decl(f_14593) static void C_ccall f_14593(C_word c,C_word *av) C_noret; C_noret_decl(f_14619) static void C_ccall f_14619(C_word c,C_word *av) C_noret; C_noret_decl(f_14625) static void C_fcall f_14625(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14651) static void C_ccall f_14651(C_word c,C_word *av) C_noret; C_noret_decl(f_14655) static void C_ccall f_14655(C_word c,C_word *av) C_noret; C_noret_decl(f_14682) static void C_fcall f_14682(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14686) static void C_ccall f_14686(C_word c,C_word *av) C_noret; C_noret_decl(f_14689) static void C_ccall f_14689(C_word c,C_word *av) C_noret; C_noret_decl(f_14714) static void C_ccall f_14714(C_word c,C_word *av) C_noret; C_noret_decl(f_14720) static void C_ccall f_14720(C_word c,C_word *av) C_noret; C_noret_decl(f_14726) static void C_ccall f_14726(C_word c,C_word *av) C_noret; C_noret_decl(f_14741) static void C_ccall f_14741(C_word c,C_word *av) C_noret; C_noret_decl(f_14745) static void C_ccall f_14745(C_word c,C_word *av) C_noret; C_noret_decl(f_14750) static void C_fcall f_14750(C_word t0,C_word t1) C_noret; C_noret_decl(f_14769) static void C_ccall f_14769(C_word c,C_word *av) C_noret; C_noret_decl(f_14778) static void C_ccall f_14778(C_word c,C_word *av) C_noret; C_noret_decl(f_14782) static void C_ccall f_14782(C_word c,C_word *av) C_noret; C_noret_decl(f_14786) static void C_fcall f_14786(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14796) static void C_ccall f_14796(C_word c,C_word *av) C_noret; C_noret_decl(f_14800) static void C_fcall f_14800(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14813) static void C_fcall f_14813(C_word t0,C_word t1) C_noret; C_noret_decl(f_14816) static void C_ccall f_14816(C_word c,C_word *av) C_noret; C_noret_decl(f_14840) static void C_fcall f_14840(C_word t0,C_word t1) C_noret; C_noret_decl(f_14843) static void C_ccall f_14843(C_word c,C_word *av) C_noret; C_noret_decl(f_14867) static void C_fcall f_14867(C_word t0,C_word t1) C_noret; C_noret_decl(f_14873) static void C_fcall f_14873(C_word t0,C_word t1) C_noret; C_noret_decl(f_14876) static void C_ccall f_14876(C_word c,C_word *av) C_noret; C_noret_decl(f_14887) static void C_ccall f_14887(C_word c,C_word *av) C_noret; C_noret_decl(f_14901) static void C_fcall f_14901(C_word t0,C_word t1) C_noret; C_noret_decl(f_14919) static void C_ccall f_14919(C_word c,C_word *av) C_noret; C_noret_decl(f_14925) static void C_ccall f_14925(C_word c,C_word *av) C_noret; C_noret_decl(f_14932) static void C_fcall f_14932(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14961) static void C_ccall f_14961(C_word c,C_word *av) C_noret; C_noret_decl(f_15040) static void C_ccall f_15040(C_word c,C_word *av) C_noret; C_noret_decl(f_15070) static void C_ccall f_15070(C_word c,C_word *av) C_noret; C_noret_decl(f_15073) static void C_ccall f_15073(C_word c,C_word *av) C_noret; C_noret_decl(f_15091) static void C_ccall f_15091(C_word c,C_word *av) C_noret; C_noret_decl(f_15143) static void C_fcall f_15143(C_word t0,C_word t1) C_noret; C_noret_decl(f_15194) static void C_fcall f_15194(C_word t0,C_word t1) C_noret; C_noret_decl(f_15251) static void C_fcall f_15251(C_word t0,C_word t1) C_noret; C_noret_decl(f_15308) static void C_fcall f_15308(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15317) static void C_fcall f_15317(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15324) static void C_fcall f_15324(C_word t0,C_word t1) C_noret; C_noret_decl(f_15327) static void C_ccall f_15327(C_word c,C_word *av) C_noret; C_noret_decl(f_15334) static void C_fcall f_15334(C_word t0,C_word t1) C_noret; C_noret_decl(f_15336) static void C_fcall f_15336(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15375) static void C_fcall f_15375(C_word t0,C_word t1) C_noret; C_noret_decl(f_15415) static void C_ccall f_15415(C_word c,C_word *av) C_noret; C_noret_decl(f_15434) static void C_fcall f_15434(C_word t0,C_word t1) C_noret; C_noret_decl(f_15457) static void C_fcall f_15457(C_word t0,C_word t1) C_noret; C_noret_decl(f_15471) static void C_fcall f_15471(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15504) static void C_ccall f_15504(C_word c,C_word *av) C_noret; C_noret_decl(f_15531) static void C_fcall f_15531(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15542) static void C_fcall f_15542(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15559) static void C_fcall f_15559(C_word t0,C_word t1) C_noret; C_noret_decl(f_15564) static void C_ccall f_15564(C_word c,C_word *av) C_noret; C_noret_decl(f_15572) static void C_fcall f_15572(C_word t0,C_word t1) C_noret; C_noret_decl(f_15574) static void C_fcall f_15574(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15600) static void C_ccall f_15600(C_word c,C_word *av) C_noret; C_noret_decl(f_15631) static void C_fcall f_15631(C_word t0,C_word t1) C_noret; C_noret_decl(f_15659) static C_word C_fcall f_15659(C_word t0); C_noret_decl(f_15712) static C_word C_fcall f_15712(C_word t0); C_noret_decl(f_15732) static C_word C_fcall f_15732(C_word t0); C_noret_decl(f_15791) static void C_ccall f_15791(C_word c,C_word *av) C_noret; C_noret_decl(f_15835) static C_word C_fcall f_15835(C_word t0); C_noret_decl(f_15874) static void C_ccall f_15874(C_word c,C_word *av) C_noret; C_noret_decl(f_15877) static void C_ccall f_15877(C_word c,C_word *av) C_noret; C_noret_decl(f_15882) static void C_ccall f_15882(C_word c,C_word *av) C_noret; C_noret_decl(f_15886) static void C_ccall f_15886(C_word c,C_word *av) C_noret; C_noret_decl(f_15888) static void C_ccall f_15888(C_word c,C_word *av) C_noret; C_noret_decl(f_15924) static void C_fcall f_15924(C_word t0,C_word t1) C_noret; C_noret_decl(f_15933) static void C_ccall f_15933(C_word c,C_word *av) C_noret; C_noret_decl(f_15950) static void C_fcall f_15950(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15960) static void C_ccall f_15960(C_word c,C_word *av) C_noret; C_noret_decl(f_15977) static void C_fcall f_15977(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15987) static void C_ccall f_15987(C_word c,C_word *av) C_noret; C_noret_decl(f_16007) static void C_ccall f_16007(C_word c,C_word *av) C_noret; C_noret_decl(f_16023) static void C_fcall f_16023(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16033) static void C_ccall f_16033(C_word c,C_word *av) C_noret; C_noret_decl(f_16050) static void C_fcall f_16050(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16060) static void C_ccall f_16060(C_word c,C_word *av) C_noret; C_noret_decl(f_16092) static void C_ccall f_16092(C_word c,C_word *av) C_noret; C_noret_decl(f_16134) static void C_ccall f_16134(C_word c,C_word *av) C_noret; C_noret_decl(f_16136) static void C_fcall f_16136(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16161) static void C_fcall f_16161(C_word t0,C_word t1) C_noret; C_noret_decl(f_16183) static void C_fcall f_16183(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16193) static void C_ccall f_16193(C_word c,C_word *av) C_noret; C_noret_decl(f_16214) static void C_fcall f_16214(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16220) static C_word C_fcall f_16220(C_word t0,C_word t1); C_noret_decl(f_16252) static void C_ccall f_16252(C_word c,C_word *av) C_noret; C_noret_decl(f_16255) static void C_ccall f_16255(C_word c,C_word *av) C_noret; C_noret_decl(f_16257) static void C_ccall f_16257(C_word c,C_word *av) C_noret; C_noret_decl(f_16265) static void C_ccall f_16265(C_word c,C_word *av) C_noret; C_noret_decl(f_16267) static void C_fcall f_16267(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16275) static void C_fcall f_16275(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16356) static void C_fcall f_16356(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16367) static void C_ccall f_16367(C_word c,C_word *av) C_noret; C_noret_decl(f_16369) static void C_fcall f_16369(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16394) static void C_ccall f_16394(C_word c,C_word *av) C_noret; C_noret_decl(f_16414) static void C_ccall f_16414(C_word c,C_word *av) C_noret; C_noret_decl(f_16440) static void C_ccall f_16440(C_word c,C_word *av) C_noret; C_noret_decl(f_16453) static void C_fcall f_16453(C_word t0,C_word t1) C_noret; C_noret_decl(f_16463) static void C_fcall f_16463(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16474) static void C_ccall f_16474(C_word c,C_word *av) C_noret; C_noret_decl(f_16476) static void C_fcall f_16476(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16501) static void C_ccall f_16501(C_word c,C_word *av) C_noret; C_noret_decl(f_16517) static void C_ccall f_16517(C_word c,C_word *av) C_noret; C_noret_decl(f_16520) static void C_ccall f_16520(C_word c,C_word *av) C_noret; C_noret_decl(f_16523) static void C_ccall f_16523(C_word c,C_word *av) C_noret; C_noret_decl(f_16530) static void C_ccall f_16530(C_word c,C_word *av) C_noret; C_noret_decl(f_16542) static void C_ccall f_16542(C_word c,C_word *av) C_noret; C_noret_decl(f_16546) static void C_ccall f_16546(C_word c,C_word *av) C_noret; C_noret_decl(f_16553) static void C_fcall f_16553(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16565) static void C_fcall f_16565(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16590) static void C_ccall f_16590(C_word c,C_word *av) C_noret; C_noret_decl(f_16599) static void C_fcall f_16599(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16627) static void C_ccall f_16627(C_word c,C_word *av) C_noret; C_noret_decl(f_16646) static void C_ccall f_16646(C_word c,C_word *av) C_noret; C_noret_decl(f_16655) static void C_ccall f_16655(C_word c,C_word *av) C_noret; C_noret_decl(f_16659) static void C_ccall f_16659(C_word c,C_word *av) C_noret; C_noret_decl(f_16722) static void C_ccall f_16722(C_word c,C_word *av) C_noret; C_noret_decl(f_16726) static void C_ccall f_16726(C_word c,C_word *av) C_noret; C_noret_decl(f_16728) static void C_fcall f_16728(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16737) static void C_fcall f_16737(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16747) static void C_ccall f_16747(C_word c,C_word *av) C_noret; C_noret_decl(f_16753) static void C_ccall f_16753(C_word c,C_word *av) C_noret; C_noret_decl(f_16758) static void C_ccall f_16758(C_word c,C_word *av) C_noret; C_noret_decl(f_16763) static void C_ccall f_16763(C_word c,C_word *av) C_noret; C_noret_decl(f_16765) static void C_fcall f_16765(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16772) static void C_ccall f_16772(C_word c,C_word *av) C_noret; C_noret_decl(f_16775) static void C_fcall f_16775(C_word t0,C_word t1) C_noret; C_noret_decl(f_16778) static void C_ccall f_16778(C_word c,C_word *av) C_noret; C_noret_decl(f_16783) static void C_ccall f_16783(C_word c,C_word *av) C_noret; C_noret_decl(f_16789) static void C_ccall f_16789(C_word c,C_word *av) C_noret; C_noret_decl(f_16793) static void C_ccall f_16793(C_word c,C_word *av) C_noret; C_noret_decl(f_16796) static void C_ccall f_16796(C_word c,C_word *av) C_noret; C_noret_decl(f_16799) static void C_ccall f_16799(C_word c,C_word *av) C_noret; C_noret_decl(f_16802) static void C_ccall f_16802(C_word c,C_word *av) C_noret; C_noret_decl(f_16811) static void C_fcall f_16811(C_word t0,C_word t1) C_noret; C_noret_decl(f_16818) static void C_ccall f_16818(C_word c,C_word *av) C_noret; C_noret_decl(f_16822) static void C_ccall f_16822(C_word c,C_word *av) C_noret; C_noret_decl(f_16826) static void C_ccall f_16826(C_word c,C_word *av) C_noret; C_noret_decl(f_16830) static void C_ccall f_16830(C_word c,C_word *av) C_noret; C_noret_decl(f_16837) static void C_ccall f_16837(C_word c,C_word *av) C_noret; C_noret_decl(f_16844) static void C_ccall f_16844(C_word c,C_word *av) C_noret; C_noret_decl(f_16850) static void C_ccall f_16850(C_word c,C_word *av) C_noret; C_noret_decl(f_16853) static void C_ccall f_16853(C_word c,C_word *av) C_noret; C_noret_decl(f_16856) static void C_ccall f_16856(C_word c,C_word *av) C_noret; C_noret_decl(f_16859) static void C_ccall f_16859(C_word c,C_word *av) C_noret; C_noret_decl(f_16862) static void C_ccall f_16862(C_word c,C_word *av) C_noret; C_noret_decl(f_16865) static void C_ccall f_16865(C_word c,C_word *av) C_noret; C_noret_decl(f_16868) static void C_ccall f_16868(C_word c,C_word *av) C_noret; C_noret_decl(f_16872) static void C_ccall f_16872(C_word c,C_word *av) C_noret; C_noret_decl(f_16877) static void C_fcall f_16877(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16890) static void C_fcall f_16890(C_word t0,C_word t1) C_noret; C_noret_decl(f_16893) static void C_ccall f_16893(C_word c,C_word *av) C_noret; C_noret_decl(f_16904) static void C_fcall f_16904(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16923) static void C_ccall f_16923(C_word c,C_word *av) C_noret; C_noret_decl(f_16937) static void C_ccall f_16937(C_word c,C_word *av) C_noret; C_noret_decl(f_16951) static void C_ccall f_16951(C_word c,C_word *av) C_noret; C_noret_decl(f_16965) static void C_ccall f_16965(C_word c,C_word *av) C_noret; C_noret_decl(f_16979) static void C_ccall f_16979(C_word c,C_word *av) C_noret; C_noret_decl(f_17009) static void C_ccall f_17009(C_word c,C_word *av) C_noret; C_noret_decl(f_17028) static void C_ccall f_17028(C_word c,C_word *av) C_noret; C_noret_decl(f_17060) static void C_ccall f_17060(C_word c,C_word *av) C_noret; C_noret_decl(f_17066) static void C_ccall f_17066(C_word c,C_word *av) C_noret; C_noret_decl(f_17068) static void C_fcall f_17068(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17078) static void C_ccall f_17078(C_word c,C_word *av) C_noret; C_noret_decl(f_17091) static void C_ccall f_17091(C_word c,C_word *av) C_noret; C_noret_decl(f_17098) static void C_ccall f_17098(C_word c,C_word *av) C_noret; C_noret_decl(f_17104) static void C_ccall f_17104(C_word c,C_word *av) C_noret; C_noret_decl(f_17107) static void C_ccall f_17107(C_word c,C_word *av) C_noret; C_noret_decl(f_17110) static void C_ccall f_17110(C_word c,C_word *av) C_noret; C_noret_decl(f_17113) static void C_ccall f_17113(C_word c,C_word *av) C_noret; C_noret_decl(f_17116) static void C_ccall f_17116(C_word c,C_word *av) C_noret; C_noret_decl(f_17125) static void C_ccall f_17125(C_word c,C_word *av) C_noret; C_noret_decl(f_17139) static void C_ccall f_17139(C_word c,C_word *av) C_noret; C_noret_decl(f_17145) static void C_ccall f_17145(C_word c,C_word *av) C_noret; C_noret_decl(f_17149) static void C_ccall f_17149(C_word c,C_word *av) C_noret; C_noret_decl(f_17152) static void C_ccall f_17152(C_word c,C_word *av) C_noret; C_noret_decl(f_17157) static void C_ccall f_17157(C_word c,C_word *av) C_noret; C_noret_decl(f_17164) static void C_fcall f_17164(C_word t0,C_word t1) C_noret; C_noret_decl(f_17167) static void C_ccall f_17167(C_word c,C_word *av) C_noret; C_noret_decl(f_17173) static void C_ccall f_17173(C_word c,C_word *av) C_noret; C_noret_decl(f_17176) static void C_ccall f_17176(C_word c,C_word *av) C_noret; C_noret_decl(f_17179) static void C_ccall f_17179(C_word c,C_word *av) C_noret; C_noret_decl(f_17182) static void C_ccall f_17182(C_word c,C_word *av) C_noret; C_noret_decl(f_17185) static void C_ccall f_17185(C_word c,C_word *av) C_noret; C_noret_decl(f_17188) static void C_ccall f_17188(C_word c,C_word *av) C_noret; C_noret_decl(f_17191) static void C_ccall f_17191(C_word c,C_word *av) C_noret; C_noret_decl(f_17198) static void C_ccall f_17198(C_word c,C_word *av) C_noret; C_noret_decl(f_17202) static void C_ccall f_17202(C_word c,C_word *av) C_noret; C_noret_decl(f_17204) static void C_fcall f_17204(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17225) static void C_ccall f_17225(C_word c,C_word *av) C_noret; C_noret_decl(f_17235) static void C_ccall f_17235(C_word c,C_word *av) C_noret; C_noret_decl(f_17243) static void C_ccall f_17243(C_word c,C_word *av) C_noret; C_noret_decl(f_17251) static void C_ccall f_17251(C_word c,C_word *av) C_noret; C_noret_decl(f_17259) static void C_ccall f_17259(C_word c,C_word *av) C_noret; C_noret_decl(f_17287) static void C_ccall f_17287(C_word c,C_word *av) C_noret; C_noret_decl(f_17298) static void C_ccall f_17298(C_word c,C_word *av) C_noret; C_noret_decl(f_17302) static void C_ccall f_17302(C_word c,C_word *av) C_noret; C_noret_decl(f_17307) static void C_ccall f_17307(C_word c,C_word *av) C_noret; C_noret_decl(f_17310) static void C_fcall f_17310(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17315) static void C_ccall f_17315(C_word c,C_word *av) C_noret; C_noret_decl(f_17322) static void C_ccall f_17322(C_word c,C_word *av) C_noret; C_noret_decl(f_17326) static void C_ccall f_17326(C_word c,C_word *av) C_noret; C_noret_decl(f_17328) static void C_fcall f_17328(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17335) static void C_ccall f_17335(C_word c,C_word *av) C_noret; C_noret_decl(f_17355) static void C_ccall f_17355(C_word c,C_word *av) C_noret; C_noret_decl(f_17361) static void C_ccall f_17361(C_word c,C_word *av) C_noret; C_noret_decl(f_17369) static void C_ccall f_17369(C_word c,C_word *av) C_noret; C_noret_decl(f_17373) static void C_ccall f_17373(C_word c,C_word *av) C_noret; C_noret_decl(f_17380) static void C_ccall f_17380(C_word c,C_word *av) C_noret; C_noret_decl(f_17386) static void C_ccall f_17386(C_word c,C_word *av) C_noret; C_noret_decl(f_17388) static void C_fcall f_17388(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17413) static void C_ccall f_17413(C_word c,C_word *av) C_noret; C_noret_decl(f_17430) static void C_ccall f_17430(C_word c,C_word *av) C_noret; C_noret_decl(f_17436) static void C_ccall f_17436(C_word c,C_word *av) C_noret; C_noret_decl(f_17445) static void C_ccall f_17445(C_word c,C_word *av) C_noret; C_noret_decl(f_17484) static void C_ccall f_17484(C_word c,C_word *av) C_noret; C_noret_decl(f_17490) static void C_fcall f_17490(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_17493) static void C_fcall f_17493(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17500) static void C_fcall f_17500(C_word t0,C_word t1) C_noret; C_noret_decl(f_17540) static void C_ccall f_17540(C_word c,C_word *av) C_noret; C_noret_decl(f_17550) static void C_fcall f_17550(C_word t0,C_word t1) C_noret; C_noret_decl(f_17577) static void C_ccall f_17577(C_word c,C_word *av) C_noret; C_noret_decl(f_17581) static void C_ccall f_17581(C_word c,C_word *av) C_noret; C_noret_decl(f_17641) static void C_ccall f_17641(C_word c,C_word *av) C_noret; C_noret_decl(f_17643) static void C_ccall f_17643(C_word c,C_word *av) C_noret; C_noret_decl(f_17652) static void C_fcall f_17652(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17670) static void C_ccall f_17670(C_word c,C_word *av) C_noret; C_noret_decl(f_17674) static void C_fcall f_17674(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17680) static C_word C_fcall f_17680(C_word t0,C_word t1); C_noret_decl(f_17708) static void C_fcall f_17708(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17736) static void C_fcall f_17736(C_word t0,C_word t1) C_noret; C_noret_decl(f_17739) static void C_ccall f_17739(C_word c,C_word *av) C_noret; C_noret_decl(f_17756) static void C_fcall f_17756(C_word t0,C_word t1) C_noret; C_noret_decl(f_17771) static void C_ccall f_17771(C_word c,C_word *av) C_noret; C_noret_decl(f_17798) static void C_ccall f_17798(C_word c,C_word *av) C_noret; C_noret_decl(f_17801) static void C_ccall f_17801(C_word c,C_word *av) C_noret; C_noret_decl(f_17838) static void C_ccall f_17838(C_word c,C_word *av) C_noret; C_noret_decl(f_17896) static void C_ccall f_17896(C_word c,C_word *av) C_noret; C_noret_decl(f_17930) static void C_ccall f_17930(C_word c,C_word *av) C_noret; C_noret_decl(f_17962) static void C_ccall f_17962(C_word c,C_word *av) C_noret; C_noret_decl(f_17967) static void C_ccall f_17967(C_word c,C_word *av) C_noret; C_noret_decl(f_17971) static void C_ccall f_17971(C_word c,C_word *av) C_noret; C_noret_decl(f_17982) static void C_ccall f_17982(C_word c,C_word *av) C_noret; C_noret_decl(f_17984) static void C_ccall f_17984(C_word c,C_word *av) C_noret; C_noret_decl(f_18000) static void C_ccall f_18000(C_word c,C_word *av) C_noret; C_noret_decl(f_18003) static void C_ccall f_18003(C_word c,C_word *av) C_noret; C_noret_decl(f_18019) static void C_fcall f_18019(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18066) static void C_ccall f_18066(C_word c,C_word *av) C_noret; C_noret_decl(f_18068) static void C_fcall f_18068(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18093) static void C_ccall f_18093(C_word c,C_word *av) C_noret; C_noret_decl(f_18112) static void C_fcall f_18112(C_word t0,C_word t1) C_noret; C_noret_decl(f_18116) static C_word C_fcall f_18116(C_word *a,C_word t0,C_word t1); C_noret_decl(f_18154) static void C_ccall f_18154(C_word c,C_word *av) C_noret; C_noret_decl(f_18160) static void C_ccall f_18160(C_word c,C_word *av) C_noret; C_noret_decl(f_18165) static void C_fcall f_18165(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18190) static void C_ccall f_18190(C_word c,C_word *av) C_noret; C_noret_decl(f_18266) static void C_ccall f_18266(C_word c,C_word *av) C_noret; C_noret_decl(f_18296) static void C_fcall f_18296(C_word t0,C_word t1) C_noret; C_noret_decl(f_18308) static void C_ccall f_18308(C_word c,C_word *av) C_noret; C_noret_decl(f_18335) static void C_ccall f_18335(C_word c,C_word *av) C_noret; C_noret_decl(f_18338) static void C_ccall f_18338(C_word c,C_word *av) C_noret; C_noret_decl(f_18342) static void C_fcall f_18342(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18355) static void C_fcall f_18355(C_word t0,C_word t1) C_noret; C_noret_decl(f_18358) static void C_ccall f_18358(C_word c,C_word *av) C_noret; C_noret_decl(f_18382) static void C_ccall f_18382(C_word c,C_word *av) C_noret; C_noret_decl(f_18390) static void C_fcall f_18390(C_word t0,C_word t1) C_noret; C_noret_decl(f_18394) static void C_ccall f_18394(C_word c,C_word *av) C_noret; C_noret_decl(f_18405) static void C_ccall f_18405(C_word c,C_word *av) C_noret; C_noret_decl(f_18484) static void C_ccall f_18484(C_word c,C_word *av) C_noret; C_noret_decl(f_18526) static void C_fcall f_18526(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18544) static void C_ccall f_18544(C_word c,C_word *av) C_noret; C_noret_decl(f_18547) static void C_ccall f_18547(C_word c,C_word *av) C_noret; C_noret_decl(f_18551) static void C_fcall f_18551(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18594) static void C_ccall f_18594(C_word c,C_word *av) C_noret; C_noret_decl(f_18600) static void C_ccall f_18600(C_word c,C_word *av) C_noret; C_noret_decl(f_18605) static void C_fcall f_18605(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18630) static void C_ccall f_18630(C_word c,C_word *av) C_noret; C_noret_decl(f_18675) static void C_ccall f_18675(C_word c,C_word *av) C_noret; C_noret_decl(f_18684) static void C_ccall f_18684(C_word c,C_word *av) C_noret; C_noret_decl(f_18688) static void C_fcall f_18688(C_word t0,C_word t1) C_noret; C_noret_decl(f_18698) static void C_ccall f_18698(C_word c,C_word *av) C_noret; C_noret_decl(f_18730) static void C_ccall f_18730(C_word c,C_word *av) C_noret; C_noret_decl(f_18736) static void C_ccall f_18736(C_word c,C_word *av) C_noret; C_noret_decl(f_18738) static void C_fcall f_18738(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18763) static void C_ccall f_18763(C_word c,C_word *av) C_noret; C_noret_decl(f_18895) static void C_ccall f_18895(C_word c,C_word *av) C_noret; C_noret_decl(f_18899) static void C_fcall f_18899(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18903) static void C_fcall f_18903(C_word t0,C_word t1) C_noret; C_noret_decl(f_18906) static void C_ccall f_18906(C_word c,C_word *av) C_noret; C_noret_decl(f_18938) static void C_fcall f_18938(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18942) static void C_ccall f_18942(C_word c,C_word *av) C_noret; C_noret_decl(f_18955) static void C_ccall f_18955(C_word c,C_word *av) C_noret; C_noret_decl(f_18959) static void C_ccall f_18959(C_word c,C_word *av) C_noret; C_noret_decl(f_18962) static void C_ccall f_18962(C_word c,C_word *av) C_noret; C_noret_decl(f_18968) static void C_ccall f_18968(C_word c,C_word *av) C_noret; C_noret_decl(f_18970) static void C_fcall f_18970(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18995) static void C_ccall f_18995(C_word c,C_word *av) C_noret; C_noret_decl(f_19010) static void C_ccall f_19010(C_word c,C_word *av) C_noret; C_noret_decl(f_19019) static void C_ccall f_19019(C_word c,C_word *av) C_noret; C_noret_decl(f_19027) static void C_ccall f_19027(C_word c,C_word *av) C_noret; C_noret_decl(f_19029) static void C_ccall f_19029(C_word c,C_word *av) C_noret; C_noret_decl(f_19044) static void C_ccall f_19044(C_word c,C_word *av) C_noret; C_noret_decl(f_19047) static void C_fcall f_19047(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19059) static void C_fcall f_19059(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19066) static void C_fcall f_19066(C_word t0,C_word t1) C_noret; C_noret_decl(f_19070) static void C_fcall f_19070(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19076) static void C_ccall f_19076(C_word c,C_word *av) C_noret; C_noret_decl(f_19082) static void C_ccall f_19082(C_word c,C_word *av) C_noret; C_noret_decl(f_19098) static void C_ccall f_19098(C_word c,C_word *av) C_noret; C_noret_decl(f_19101) static void C_ccall f_19101(C_word c,C_word *av) C_noret; C_noret_decl(f_19111) static void C_ccall f_19111(C_word c,C_word *av) C_noret; C_noret_decl(f_19137) static void C_fcall f_19137(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19143) static void C_ccall f_19143(C_word c,C_word *av) C_noret; C_noret_decl(f_19149) static void C_ccall f_19149(C_word c,C_word *av) C_noret; C_noret_decl(f_19165) static void C_ccall f_19165(C_word c,C_word *av) C_noret; C_noret_decl(f_19171) static void C_fcall f_19171(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19196) static void C_ccall f_19196(C_word c,C_word *av) C_noret; C_noret_decl(f_19234) static void C_ccall f_19234(C_word c,C_word *av) C_noret; C_noret_decl(f_19236) static void C_fcall f_19236(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19261) static void C_ccall f_19261(C_word c,C_word *av) C_noret; C_noret_decl(f_19287) static void C_ccall f_19287(C_word c,C_word *av) C_noret; C_noret_decl(f_19289) static void C_fcall f_19289(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19314) static void C_ccall f_19314(C_word c,C_word *av) C_noret; C_noret_decl(f_19323) static void C_fcall f_19323(C_word t0,C_word t1) C_noret; C_noret_decl(f_19351) static void C_fcall f_19351(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19365) static void C_ccall f_19365(C_word c,C_word *av) C_noret; C_noret_decl(f_19371) static void C_fcall f_19371(C_word t0,C_word t1) C_noret; C_noret_decl(f_19392) static void C_fcall f_19392(C_word t0,C_word t1) C_noret; C_noret_decl(f_19399) static void C_ccall f_19399(C_word c,C_word *av) C_noret; C_noret_decl(f_19403) static void C_ccall f_19403(C_word c,C_word *av) C_noret; C_noret_decl(f_19437) static void C_fcall f_19437(C_word t0,C_word t1) C_noret; C_noret_decl(f_19441) static void C_ccall f_19441(C_word c,C_word *av) C_noret; C_noret_decl(f_19449) static void C_fcall f_19449(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19469) static void C_ccall f_19469(C_word c,C_word *av) C_noret; C_noret_decl(f_19485) static void C_ccall f_19485(C_word c,C_word *av) C_noret; C_noret_decl(f_19487) static void C_fcall f_19487(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_19491) static void C_ccall f_19491(C_word c,C_word *av) C_noret; C_noret_decl(f_19503) static void C_ccall f_19503(C_word c,C_word *av) C_noret; C_noret_decl(f_19554) static void C_ccall f_19554(C_word c,C_word *av) C_noret; C_noret_decl(f_19566) static void C_ccall f_19566(C_word c,C_word *av) C_noret; C_noret_decl(f_19570) static void C_ccall f_19570(C_word c,C_word *av) C_noret; C_noret_decl(f_19586) static void C_ccall f_19586(C_word c,C_word *av) C_noret; C_noret_decl(f_19590) static void C_ccall f_19590(C_word c,C_word *av) C_noret; C_noret_decl(f_19599) static void C_ccall f_19599(C_word c,C_word *av) C_noret; C_noret_decl(f_19611) static void C_ccall f_19611(C_word c,C_word *av) C_noret; C_noret_decl(f_19634) static void C_ccall f_19634(C_word c,C_word *av) C_noret; C_noret_decl(f_19641) static void C_ccall f_19641(C_word c,C_word *av) C_noret; C_noret_decl(f_19644) static void C_ccall f_19644(C_word c,C_word *av) C_noret; C_noret_decl(f_19647) static void C_ccall f_19647(C_word c,C_word *av) C_noret; C_noret_decl(f_19700) static void C_ccall f_19700(C_word c,C_word *av) C_noret; C_noret_decl(f_19710) static void C_ccall f_19710(C_word c,C_word *av) C_noret; C_noret_decl(f_19737) static void C_fcall f_19737(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_19755) static void C_ccall f_19755(C_word c,C_word *av) C_noret; C_noret_decl(f_19761) static void C_fcall f_19761(C_word t0,C_word t1) C_noret; C_noret_decl(f_19832) static void C_fcall f_19832(C_word t0,C_word t1) C_noret; C_noret_decl(f_19834) static void C_ccall f_19834(C_word c,C_word *av) C_noret; C_noret_decl(f_19838) static void C_ccall f_19838(C_word c,C_word *av) C_noret; C_noret_decl(f_19841) static void C_ccall f_19841(C_word c,C_word *av) C_noret; C_noret_decl(f_19853) static void C_ccall f_19853(C_word c,C_word *av) C_noret; C_noret_decl(f_19887) static void C_ccall f_19887(C_word c,C_word *av) C_noret; C_noret_decl(f_19890) static void C_ccall f_19890(C_word c,C_word *av) C_noret; C_noret_decl(f_19896) static void C_fcall f_19896(C_word t0,C_word t1) C_noret; C_noret_decl(f_19900) static void C_fcall f_19900(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19904) static void C_ccall f_19904(C_word c,C_word *av) C_noret; C_noret_decl(f_19911) static void C_ccall f_19911(C_word c,C_word *av) C_noret; C_noret_decl(f_19915) static void C_ccall f_19915(C_word c,C_word *av) C_noret; C_noret_decl(f_19927) static void C_ccall f_19927(C_word c,C_word *av) C_noret; C_noret_decl(f_19930) static void C_ccall f_19930(C_word c,C_word *av) C_noret; C_noret_decl(f_19933) static void C_ccall f_19933(C_word c,C_word *av) C_noret; C_noret_decl(f_19936) static void C_ccall f_19936(C_word c,C_word *av) C_noret; C_noret_decl(f_19939) static void C_ccall f_19939(C_word c,C_word *av) C_noret; C_noret_decl(f_19942) static void C_ccall f_19942(C_word c,C_word *av) C_noret; C_noret_decl(f_19945) static void C_ccall f_19945(C_word c,C_word *av) C_noret; C_noret_decl(f_19947) static void C_ccall f_19947(C_word c,C_word *av) C_noret; C_noret_decl(f_19956) static void C_fcall f_19956(C_word t0,C_word t1) C_noret; C_noret_decl(f_19966) static void C_fcall f_19966(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19979) static void C_ccall f_19979(C_word c,C_word *av) C_noret; C_noret_decl(f_19985) static void C_fcall f_19985(C_word t0,C_word t1) C_noret; C_noret_decl(f_19988) static void C_ccall f_19988(C_word c,C_word *av) C_noret; C_noret_decl(f_19998) static void C_ccall f_19998(C_word c,C_word *av) C_noret; C_noret_decl(f_20001) static void C_ccall f_20001(C_word c,C_word *av) C_noret; C_noret_decl(f_20003) static void C_fcall f_20003(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20044) static void C_fcall f_20044(C_word t0,C_word t1) C_noret; C_noret_decl(f_20047) static void C_ccall f_20047(C_word c,C_word *av) C_noret; C_noret_decl(f_20064) static void C_ccall f_20064(C_word c,C_word *av) C_noret; C_noret_decl(f_20070) static void C_ccall f_20070(C_word c,C_word *av) C_noret; C_noret_decl(f_20077) static void C_ccall f_20077(C_word c,C_word *av) C_noret; C_noret_decl(f_20101) static void C_ccall f_20101(C_word c,C_word *av) C_noret; C_noret_decl(f_20110) static void C_ccall f_20110(C_word c,C_word *av) C_noret; C_noret_decl(f_20113) static void C_ccall f_20113(C_word c,C_word *av) C_noret; C_noret_decl(f_20117) static void C_ccall f_20117(C_word c,C_word *av) C_noret; C_noret_decl(f_20121) static void C_ccall f_20121(C_word c,C_word *av) C_noret; C_noret_decl(f_20133) static void C_ccall f_20133(C_word c,C_word *av) C_noret; C_noret_decl(f_20163) static void C_ccall f_20163(C_word c,C_word *av) C_noret; C_noret_decl(f_20177) static void C_ccall f_20177(C_word c,C_word *av) C_noret; C_noret_decl(f_20181) static void C_ccall f_20181(C_word c,C_word *av) C_noret; C_noret_decl(f_20185) static void C_ccall f_20185(C_word c,C_word *av) C_noret; C_noret_decl(f_20208) static void C_ccall f_20208(C_word c,C_word *av) C_noret; C_noret_decl(f_20210) static void C_fcall f_20210(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_20213) static void C_fcall f_20213(C_word t0,C_word t1) C_noret; C_noret_decl(f_20222) static void C_fcall f_20222(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20273) static void C_ccall f_20273(C_word c,C_word *av) C_noret; C_noret_decl(f_20277) static void C_fcall f_20277(C_word t0,C_word t1) C_noret; C_noret_decl(f_20281) static void C_ccall f_20281(C_word c,C_word *av) C_noret; C_noret_decl(f_20285) static void C_fcall f_20285(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20293) static void C_ccall f_20293(C_word c,C_word *av) C_noret; C_noret_decl(f_20295) static void C_ccall f_20295(C_word c,C_word *av) C_noret; C_noret_decl(f_20319) static void C_fcall f_20319(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20344) static void C_ccall f_20344(C_word c,C_word *av) C_noret; C_noret_decl(f_20355) static void C_ccall f_20355(C_word c,C_word *av) C_noret; C_noret_decl(f_20365) static void C_ccall f_20365(C_word c,C_word *av) C_noret; C_noret_decl(f_20367) static void C_fcall f_20367(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20392) static void C_ccall f_20392(C_word c,C_word *av) C_noret; C_noret_decl(f_20409) static void C_ccall f_20409(C_word c,C_word *av) C_noret; C_noret_decl(f_20411) static void C_fcall f_20411(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20425) static void C_fcall f_20425(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20441) static void C_ccall f_20441(C_word c,C_word *av) C_noret; C_noret_decl(f_20460) static void C_ccall f_20460(C_word c,C_word *av) C_noret; C_noret_decl(f_20466) static void C_ccall f_20466(C_word c,C_word *av) C_noret; C_noret_decl(f_20468) static void C_fcall f_20468(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20478) static void C_ccall f_20478(C_word c,C_word *av) C_noret; C_noret_decl(f_20498) static void C_ccall f_20498(C_word c,C_word *av) C_noret; C_noret_decl(f_20501) static void C_ccall f_20501(C_word c,C_word *av) C_noret; C_noret_decl(f_20512) static void C_ccall f_20512(C_word c,C_word *av) C_noret; C_noret_decl(f_20515) static void C_ccall f_20515(C_word c,C_word *av) C_noret; C_noret_decl(f_20535) static void C_fcall f_20535(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20542) static void C_ccall f_20542(C_word c,C_word *av) C_noret; C_noret_decl(f_20545) static void C_ccall f_20545(C_word c,C_word *av) C_noret; C_noret_decl(f_20571) static void C_fcall f_20571(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20584) static void C_ccall f_20584(C_word c,C_word *av) C_noret; C_noret_decl(f_20586) static void C_fcall f_20586(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20611) static void C_ccall f_20611(C_word c,C_word *av) C_noret; C_noret_decl(f_20626) static void C_fcall f_20626(C_word t0,C_word t1) C_noret; C_noret_decl(f_20633) static void C_ccall f_20633(C_word c,C_word *av) C_noret; C_noret_decl(f_20636) static void C_ccall f_20636(C_word c,C_word *av) C_noret; C_noret_decl(f_20643) static void C_ccall f_20643(C_word c,C_word *av) C_noret; C_noret_decl(f_20652) static void C_fcall f_20652(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20658) static void C_ccall f_20658(C_word c,C_word *av) C_noret; C_noret_decl(f_20671) static void C_ccall f_20671(C_word c,C_word *av) C_noret; C_noret_decl(f_20687) static void C_ccall f_20687(C_word c,C_word *av) C_noret; C_noret_decl(f_20693) static void C_ccall f_20693(C_word c,C_word *av) C_noret; C_noret_decl(f_20696) static void C_ccall f_20696(C_word c,C_word *av) C_noret; C_noret_decl(f_20699) static void C_ccall f_20699(C_word c,C_word *av) C_noret; C_noret_decl(f_20702) static void C_ccall f_20702(C_word c,C_word *av) C_noret; C_noret_decl(f_20710) static void C_ccall f_20710(C_word c,C_word *av) C_noret; C_noret_decl(f_20723) static void C_ccall f_20723(C_word c,C_word *av) C_noret; C_noret_decl(f_20725) static void C_fcall f_20725(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20750) static void C_ccall f_20750(C_word c,C_word *av) C_noret; C_noret_decl(f_20760) static void C_fcall f_20760(C_word t0,C_word t1) C_noret; C_noret_decl(f_20766) static void C_ccall f_20766(C_word c,C_word *av) C_noret; C_noret_decl(f_20778) static void C_ccall f_20778(C_word c,C_word *av) C_noret; C_noret_decl(f_20787) static void C_ccall f_20787(C_word c,C_word *av) C_noret; C_noret_decl(f_20796) static void C_fcall f_20796(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20821) static void C_ccall f_20821(C_word c,C_word *av) C_noret; C_noret_decl(f_20855) static void C_ccall f_20855(C_word c,C_word *av) C_noret; C_noret_decl(f_20857) static void C_fcall f_20857(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20882) static void C_ccall f_20882(C_word c,C_word *av) C_noret; C_noret_decl(f_20907) static void C_ccall f_20907(C_word c,C_word *av) C_noret; C_noret_decl(f_20913) static void C_ccall f_20913(C_word c,C_word *av) C_noret; C_noret_decl(f_20916) static void C_ccall f_20916(C_word c,C_word *av) C_noret; C_noret_decl(f_20919) static void C_ccall f_20919(C_word c,C_word *av) C_noret; C_noret_decl(f_20950) static void C_ccall f_20950(C_word c,C_word *av) C_noret; C_noret_decl(f_20953) static void C_fcall f_20953(C_word t0,C_word t1) C_noret; C_noret_decl(f_20956) static void C_ccall f_20956(C_word c,C_word *av) C_noret; C_noret_decl(f_20973) static void C_fcall f_20973(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20998) static void C_ccall f_20998(C_word c,C_word *av) C_noret; C_noret_decl(f_21007) static void C_fcall f_21007(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21032) static void C_ccall f_21032(C_word c,C_word *av) C_noret; C_noret_decl(f_21069) static void C_ccall f_21069(C_word c,C_word *av) C_noret; C_noret_decl(f_21076) static void C_ccall f_21076(C_word c,C_word *av) C_noret; C_noret_decl(f_21080) static void C_ccall f_21080(C_word c,C_word *av) C_noret; C_noret_decl(f_21082) static void C_ccall f_21082(C_word c,C_word *av) C_noret; C_noret_decl(f_21090) static void C_ccall f_21090(C_word c,C_word *av) C_noret; C_noret_decl(f_21092) static void C_fcall f_21092(C_word t0,C_word t1) C_noret; C_noret_decl(f_21096) static void C_ccall f_21096(C_word c,C_word *av) C_noret; C_noret_decl(f_21101) static void C_ccall f_21101(C_word c,C_word *av) C_noret; C_noret_decl(f_21127) static void C_ccall f_21127(C_word c,C_word *av) C_noret; C_noret_decl(f_21132) static void C_fcall f_21132(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21144) static void C_fcall f_21144(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21169) static void C_ccall f_21169(C_word c,C_word *av) C_noret; C_noret_decl(f_21186) static void C_ccall f_21186(C_word c,C_word *av) C_noret; C_noret_decl(f_21195) static void C_ccall f_21195(C_word c,C_word *av) C_noret; C_noret_decl(f_21197) static void C_fcall f_21197(C_word t0,C_word t1) C_noret; C_noret_decl(f_21205) static void C_ccall f_21205(C_word c,C_word *av) C_noret; C_noret_decl(f_21209) static void C_ccall f_21209(C_word c,C_word *av) C_noret; C_noret_decl(f_21211) static void C_ccall f_21211(C_word c,C_word *av) C_noret; C_noret_decl(f_21219) static void C_ccall f_21219(C_word c,C_word *av) C_noret; C_noret_decl(f_21221) static void C_fcall f_21221(C_word t0,C_word t1) C_noret; C_noret_decl(f_21225) static void C_ccall f_21225(C_word c,C_word *av) C_noret; C_noret_decl(f_21234) static void C_ccall f_21234(C_word c,C_word *av) C_noret; C_noret_decl(f_21240) static void C_ccall f_21240(C_word c,C_word *av) C_noret; C_noret_decl(f_21243) static void C_ccall f_21243(C_word c,C_word *av) C_noret; C_noret_decl(f_21246) static void C_ccall f_21246(C_word c,C_word *av) C_noret; C_noret_decl(f_21251) static void C_fcall f_21251(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21264) static void C_ccall f_21264(C_word c,C_word *av) C_noret; C_noret_decl(f_21270) static void C_ccall f_21270(C_word c,C_word *av) C_noret; C_noret_decl(f_21273) static void C_ccall f_21273(C_word c,C_word *av) C_noret; C_noret_decl(f_21276) static void C_ccall f_21276(C_word c,C_word *av) C_noret; C_noret_decl(f_21283) static void C_ccall f_21283(C_word c,C_word *av) C_noret; C_noret_decl(f_21301) static void C_fcall f_21301(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_21315) static void C_fcall f_21315(C_word t0,C_word t1) C_noret; C_noret_decl(f_21319) static void C_ccall f_21319(C_word c,C_word *av) C_noret; C_noret_decl(f_21323) static void C_ccall f_21323(C_word c,C_word *av) C_noret; C_noret_decl(f_21329) static void C_ccall f_21329(C_word c,C_word *av) C_noret; C_noret_decl(f_21337) static void C_ccall f_21337(C_word c,C_word *av) C_noret; C_noret_decl(f_21343) static void C_ccall f_21343(C_word c,C_word *av) C_noret; C_noret_decl(f_21351) static void C_ccall f_21351(C_word c,C_word *av) C_noret; C_noret_decl(f_21355) static void C_ccall f_21355(C_word c,C_word *av) C_noret; C_noret_decl(f_21361) static void C_ccall f_21361(C_word c,C_word *av) C_noret; C_noret_decl(f_21364) static void C_ccall f_21364(C_word c,C_word *av) C_noret; C_noret_decl(f_21367) static void C_ccall f_21367(C_word c,C_word *av) C_noret; C_noret_decl(f_21370) static void C_ccall f_21370(C_word c,C_word *av) C_noret; C_noret_decl(f_21373) static void C_ccall f_21373(C_word c,C_word *av) C_noret; C_noret_decl(f_21379) static void C_ccall f_21379(C_word c,C_word *av) C_noret; C_noret_decl(f_21382) static void C_ccall f_21382(C_word c,C_word *av) C_noret; C_noret_decl(f_21385) static void C_ccall f_21385(C_word c,C_word *av) C_noret; C_noret_decl(f_21388) static void C_ccall f_21388(C_word c,C_word *av) C_noret; C_noret_decl(f_21391) static void C_ccall f_21391(C_word c,C_word *av) C_noret; C_noret_decl(f_21407) static void C_ccall f_21407(C_word c,C_word *av) C_noret; C_noret_decl(f_21421) static void C_fcall f_21421(C_word t0,C_word t1) C_noret; C_noret_decl(f_21425) static void C_ccall f_21425(C_word c,C_word *av) C_noret; C_noret_decl(f_21428) static void C_ccall f_21428(C_word c,C_word *av) C_noret; C_noret_decl(f_21441) static void C_ccall f_21441(C_word c,C_word *av) C_noret; C_noret_decl(f_21445) static void C_ccall f_21445(C_word c,C_word *av) C_noret; C_noret_decl(f_21460) static void C_ccall f_21460(C_word c,C_word *av) C_noret; C_noret_decl(f_21472) static void C_fcall f_21472(C_word t0,C_word t1) C_noret; C_noret_decl(f_21478) static void C_ccall f_21478(C_word c,C_word *av) C_noret; C_noret_decl(f_21484) static void C_ccall f_21484(C_word c,C_word *av) C_noret; C_noret_decl(f_21491) static void C_ccall f_21491(C_word c,C_word *av) C_noret; C_noret_decl(f_21497) static void C_ccall f_21497(C_word c,C_word *av) C_noret; C_noret_decl(f_21500) static void C_ccall f_21500(C_word c,C_word *av) C_noret; C_noret_decl(f_21503) static void C_ccall f_21503(C_word c,C_word *av) C_noret; C_noret_decl(f_21506) static void C_ccall f_21506(C_word c,C_word *av) C_noret; C_noret_decl(f_21509) static void C_ccall f_21509(C_word c,C_word *av) C_noret; C_noret_decl(f_21515) static void C_ccall f_21515(C_word c,C_word *av) C_noret; C_noret_decl(f_21521) static void C_ccall f_21521(C_word c,C_word *av) C_noret; C_noret_decl(f_21524) static void C_ccall f_21524(C_word c,C_word *av) C_noret; C_noret_decl(f_21527) static void C_ccall f_21527(C_word c,C_word *av) C_noret; C_noret_decl(f_21532) static void C_fcall f_21532(C_word t0,C_word t1) C_noret; C_noret_decl(f_21535) static void C_fcall f_21535(C_word t0,C_word t1) C_noret; C_noret_decl(f_21543) static void C_ccall f_21543(C_word c,C_word *av) C_noret; C_noret_decl(f_21547) static void C_ccall f_21547(C_word c,C_word *av) C_noret; C_noret_decl(f_21549) static void C_fcall f_21549(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21553) static void C_ccall f_21553(C_word c,C_word *av) C_noret; C_noret_decl(f_21573) static void C_ccall f_21573(C_word c,C_word *av) C_noret; C_noret_decl(f_21580) static void C_ccall f_21580(C_word c,C_word *av) C_noret; C_noret_decl(f_21601) static void C_ccall f_21601(C_word c,C_word *av) C_noret; C_noret_decl(f_21611) static void C_ccall f_21611(C_word c,C_word *av) C_noret; C_noret_decl(f_21615) static void C_ccall f_21615(C_word c,C_word *av) C_noret; C_noret_decl(f_21619) static void C_ccall f_21619(C_word c,C_word *av) C_noret; C_noret_decl(f_21623) static void C_ccall f_21623(C_word c,C_word *av) C_noret; C_noret_decl(f_21627) static void C_ccall f_21627(C_word c,C_word *av) C_noret; C_noret_decl(f_21631) static void C_ccall f_21631(C_word c,C_word *av) C_noret; C_noret_decl(f_21635) static void C_ccall f_21635(C_word c,C_word *av) C_noret; C_noret_decl(f_21639) static void C_ccall f_21639(C_word c,C_word *av) C_noret; C_noret_decl(f_21646) static void C_ccall f_21646(C_word c,C_word *av) C_noret; C_noret_decl(f_21662) static void C_ccall f_21662(C_word c,C_word *av) C_noret; C_noret_decl(f_21665) static void C_fcall f_21665(C_word t0,C_word t1) C_noret; C_noret_decl(f_21671) static void C_ccall f_21671(C_word c,C_word *av) C_noret; C_noret_decl(f_21687) static void C_ccall f_21687(C_word c,C_word *av) C_noret; C_noret_decl(f_21693) static void C_ccall f_21693(C_word c,C_word *av) C_noret; C_noret_decl(f_21700) static void C_ccall f_21700(C_word c,C_word *av) C_noret; C_noret_decl(f_21704) static void C_ccall f_21704(C_word c,C_word *av) C_noret; C_noret_decl(f_21708) static void C_ccall f_21708(C_word c,C_word *av) C_noret; C_noret_decl(f_21712) static void C_ccall f_21712(C_word c,C_word *av) C_noret; C_noret_decl(f_21715) static void C_ccall f_21715(C_word c,C_word *av) C_noret; C_noret_decl(f_21719) static void C_ccall f_21719(C_word c,C_word *av) C_noret; C_noret_decl(f_21723) static void C_ccall f_21723(C_word c,C_word *av) C_noret; C_noret_decl(f_21729) static void C_ccall f_21729(C_word c,C_word *av) C_noret; C_noret_decl(f_21732) static void C_ccall f_21732(C_word c,C_word *av) C_noret; C_noret_decl(f_21746) static void C_fcall f_21746(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21764) static void C_ccall f_21764(C_word c,C_word *av) C_noret; C_noret_decl(f_21777) static void C_ccall f_21777(C_word c,C_word *av) C_noret; C_noret_decl(f_21781) static void C_ccall f_21781(C_word c,C_word *av) C_noret; C_noret_decl(f_21785) static void C_ccall f_21785(C_word c,C_word *av) C_noret; C_noret_decl(f_21791) static void C_ccall f_21791(C_word c,C_word *av) C_noret; C_noret_decl(f_21802) static void C_ccall f_21802(C_word c,C_word *av) C_noret; C_noret_decl(f_21806) static void C_ccall f_21806(C_word c,C_word *av) C_noret; C_noret_decl(f_21810) static void C_ccall f_21810(C_word c,C_word *av) C_noret; C_noret_decl(f_21814) static void C_ccall f_21814(C_word c,C_word *av) C_noret; C_noret_decl(f_21818) static void C_ccall f_21818(C_word c,C_word *av) C_noret; C_noret_decl(f_21829) static void C_ccall f_21829(C_word c,C_word *av) C_noret; C_noret_decl(f_21833) static void C_ccall f_21833(C_word c,C_word *av) C_noret; C_noret_decl(f_21837) static void C_ccall f_21837(C_word c,C_word *av) C_noret; C_noret_decl(f_21841) static void C_ccall f_21841(C_word c,C_word *av) C_noret; C_noret_decl(f_21845) static void C_ccall f_21845(C_word c,C_word *av) C_noret; C_noret_decl(f_21852) static void C_ccall f_21852(C_word c,C_word *av) C_noret; C_noret_decl(f_21863) static void C_ccall f_21863(C_word c,C_word *av) C_noret; C_noret_decl(f_21867) static void C_ccall f_21867(C_word c,C_word *av) C_noret; C_noret_decl(f_21871) static void C_ccall f_21871(C_word c,C_word *av) C_noret; C_noret_decl(f_21887) static void C_ccall f_21887(C_word c,C_word *av) C_noret; C_noret_decl(f_21891) static void C_ccall f_21891(C_word c,C_word *av) C_noret; C_noret_decl(f_21896) static void C_fcall f_21896(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_21901) static void C_ccall f_21901(C_word c,C_word *av) C_noret; C_noret_decl(f_21912) static void C_ccall f_21912(C_word c,C_word *av) C_noret; C_noret_decl(f_21916) static void C_ccall f_21916(C_word c,C_word *av) C_noret; C_noret_decl(f_21920) static void C_ccall f_21920(C_word c,C_word *av) C_noret; C_noret_decl(f_21924) static void C_ccall f_21924(C_word c,C_word *av) C_noret; C_noret_decl(f_21928) static void C_ccall f_21928(C_word c,C_word *av) C_noret; C_noret_decl(f_21932) static void C_ccall f_21932(C_word c,C_word *av) C_noret; C_noret_decl(f_21936) static void C_ccall f_21936(C_word c,C_word *av) C_noret; C_noret_decl(f_21940) static void C_ccall f_21940(C_word c,C_word *av) C_noret; C_noret_decl(f_21942) static void C_ccall f_21942(C_word c,C_word *av) C_noret; C_noret_decl(f_21947) static void C_ccall f_21947(C_word c,C_word *av) C_noret; C_noret_decl(f_21949) static void C_ccall f_21949(C_word c,C_word *av) C_noret; C_noret_decl(f_21961) static void C_ccall f_21961(C_word c,C_word *av) C_noret; C_noret_decl(f_21965) static void C_ccall f_21965(C_word c,C_word *av) C_noret; C_noret_decl(f_21969) static void C_ccall f_21969(C_word c,C_word *av) C_noret; C_noret_decl(f_21973) static void C_ccall f_21973(C_word c,C_word *av) C_noret; C_noret_decl(f_21977) static void C_ccall f_21977(C_word c,C_word *av) C_noret; C_noret_decl(f_21983) static void C_ccall f_21983(C_word c,C_word *av) C_noret; C_noret_decl(f_21986) static void C_ccall f_21986(C_word c,C_word *av) C_noret; C_noret_decl(f_21989) static void C_ccall f_21989(C_word c,C_word *av) C_noret; C_noret_decl(f_21996) static void C_ccall f_21996(C_word c,C_word *av) C_noret; C_noret_decl(f_22012) static void C_ccall f_22012(C_word c,C_word *av) C_noret; C_noret_decl(f_22018) static void C_ccall f_22018(C_word c,C_word *av) C_noret; C_noret_decl(f_22021) static void C_ccall f_22021(C_word c,C_word *av) C_noret; C_noret_decl(f_22024) static void C_ccall f_22024(C_word c,C_word *av) C_noret; C_noret_decl(f_22027) static void C_ccall f_22027(C_word c,C_word *av) C_noret; C_noret_decl(f_22035) static void C_fcall f_22035(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_22040) static void C_ccall f_22040(C_word c,C_word *av) C_noret; C_noret_decl(f_22047) static void C_ccall f_22047(C_word c,C_word *av) C_noret; C_noret_decl(f_22055) static void C_ccall f_22055(C_word c,C_word *av) C_noret; C_noret_decl(f_22059) static void C_ccall f_22059(C_word c,C_word *av) C_noret; C_noret_decl(f_22063) static void C_ccall f_22063(C_word c,C_word *av) C_noret; C_noret_decl(f_22067) static void C_ccall f_22067(C_word c,C_word *av) C_noret; C_noret_decl(f_22071) static void C_ccall f_22071(C_word c,C_word *av) C_noret; C_noret_decl(f_22077) static void C_ccall f_22077(C_word c,C_word *av) C_noret; C_noret_decl(f_22080) static void C_ccall f_22080(C_word c,C_word *av) C_noret; C_noret_decl(f_22083) static void C_ccall f_22083(C_word c,C_word *av) C_noret; C_noret_decl(f_22089) static void C_ccall f_22089(C_word c,C_word *av) C_noret; C_noret_decl(f_22095) static void C_ccall f_22095(C_word c,C_word *av) C_noret; C_noret_decl(f_22098) static void C_ccall f_22098(C_word c,C_word *av) C_noret; C_noret_decl(f_22101) static void C_ccall f_22101(C_word c,C_word *av) C_noret; C_noret_decl(f_22104) static void C_ccall f_22104(C_word c,C_word *av) C_noret; C_noret_decl(f_22107) static void C_ccall f_22107(C_word c,C_word *av) C_noret; C_noret_decl(f_22110) static void C_ccall f_22110(C_word c,C_word *av) C_noret; C_noret_decl(f_22113) static void C_ccall f_22113(C_word c,C_word *av) C_noret; C_noret_decl(f_22120) static void C_ccall f_22120(C_word c,C_word *av) C_noret; C_noret_decl(f_22126) static void C_ccall f_22126(C_word c,C_word *av) C_noret; C_noret_decl(f_22129) static void C_ccall f_22129(C_word c,C_word *av) C_noret; C_noret_decl(f_22132) static void C_ccall f_22132(C_word c,C_word *av) C_noret; C_noret_decl(f_22138) static void C_ccall f_22138(C_word c,C_word *av) C_noret; C_noret_decl(f_22144) static void C_ccall f_22144(C_word c,C_word *av) C_noret; C_noret_decl(f_22147) static void C_ccall f_22147(C_word c,C_word *av) C_noret; C_noret_decl(f_22150) static void C_ccall f_22150(C_word c,C_word *av) C_noret; C_noret_decl(f_22157) static void C_ccall f_22157(C_word c,C_word *av) C_noret; C_noret_decl(f_22167) static void C_ccall f_22167(C_word c,C_word *av) C_noret; C_noret_decl(f_22170) static void C_fcall f_22170(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_22182) static void C_ccall f_22182(C_word c,C_word *av) C_noret; C_noret_decl(f_22186) static void C_ccall f_22186(C_word c,C_word *av) C_noret; C_noret_decl(f_22190) static void C_ccall f_22190(C_word c,C_word *av) C_noret; C_noret_decl(f_22206) static void C_ccall f_22206(C_word c,C_word *av) C_noret; C_noret_decl(f_22212) static void C_ccall f_22212(C_word c,C_word *av) C_noret; C_noret_decl(f_22215) static void C_ccall f_22215(C_word c,C_word *av) C_noret; C_noret_decl(f_22218) static void C_ccall f_22218(C_word c,C_word *av) C_noret; C_noret_decl(f_22221) static void C_ccall f_22221(C_word c,C_word *av) C_noret; C_noret_decl(f_22229) static void C_ccall f_22229(C_word c,C_word *av) C_noret; C_noret_decl(f_22232) static void C_fcall f_22232(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_22244) static void C_ccall f_22244(C_word c,C_word *av) C_noret; C_noret_decl(f_22248) static void C_ccall f_22248(C_word c,C_word *av) C_noret; C_noret_decl(f_22252) static void C_ccall f_22252(C_word c,C_word *av) C_noret; C_noret_decl(f_22256) static void C_ccall f_22256(C_word c,C_word *av) C_noret; C_noret_decl(f_22269) static void C_ccall f_22269(C_word c,C_word *av) C_noret; C_noret_decl(f_22275) static void C_ccall f_22275(C_word c,C_word *av) C_noret; C_noret_decl(f_22278) static void C_ccall f_22278(C_word c,C_word *av) C_noret; C_noret_decl(f_22281) static void C_ccall f_22281(C_word c,C_word *av) C_noret; C_noret_decl(f_22284) static void C_ccall f_22284(C_word c,C_word *av) C_noret; C_noret_decl(f_22288) static void C_ccall f_22288(C_word c,C_word *av) C_noret; C_noret_decl(f_22295) static void C_ccall f_22295(C_word c,C_word *av) C_noret; C_noret_decl(f_22301) static void C_ccall f_22301(C_word c,C_word *av) C_noret; C_noret_decl(f_22304) static void C_ccall f_22304(C_word c,C_word *av) C_noret; C_noret_decl(f_22307) static void C_ccall f_22307(C_word c,C_word *av) C_noret; C_noret_decl(f_22310) static void C_ccall f_22310(C_word c,C_word *av) C_noret; C_noret_decl(f_22313) static void C_ccall f_22313(C_word c,C_word *av) C_noret; C_noret_decl(f_22316) static void C_ccall f_22316(C_word c,C_word *av) C_noret; C_noret_decl(f_22320) static void C_ccall f_22320(C_word c,C_word *av) C_noret; C_noret_decl(f_22326) static void C_ccall f_22326(C_word c,C_word *av) C_noret; C_noret_decl(f_22329) static void C_ccall f_22329(C_word c,C_word *av) C_noret; C_noret_decl(f_22332) static void C_ccall f_22332(C_word c,C_word *av) C_noret; C_noret_decl(f_22335) static void C_ccall f_22335(C_word c,C_word *av) C_noret; C_noret_decl(f_22343) static void C_ccall f_22343(C_word c,C_word *av) C_noret; C_noret_decl(f_22349) static void C_ccall f_22349(C_word c,C_word *av) C_noret; C_noret_decl(f_22352) static void C_fcall f_22352(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_22364) static void C_ccall f_22364(C_word c,C_word *av) C_noret; C_noret_decl(f_22368) static void C_ccall f_22368(C_word c,C_word *av) C_noret; C_noret_decl(f_22372) static void C_ccall f_22372(C_word c,C_word *av) C_noret; C_noret_decl(f_22376) static void C_ccall f_22376(C_word c,C_word *av) C_noret; C_noret_decl(f_22389) static void C_ccall f_22389(C_word c,C_word *av) C_noret; C_noret_decl(f_22395) static void C_ccall f_22395(C_word c,C_word *av) C_noret; C_noret_decl(f_22398) static void C_ccall f_22398(C_word c,C_word *av) C_noret; C_noret_decl(f_22401) static void C_ccall f_22401(C_word c,C_word *av) C_noret; C_noret_decl(f_22404) static void C_ccall f_22404(C_word c,C_word *av) C_noret; C_noret_decl(f_22408) static void C_ccall f_22408(C_word c,C_word *av) C_noret; C_noret_decl(f_22415) static void C_ccall f_22415(C_word c,C_word *av) C_noret; C_noret_decl(f_22421) static void C_ccall f_22421(C_word c,C_word *av) C_noret; C_noret_decl(f_22424) static void C_ccall f_22424(C_word c,C_word *av) C_noret; C_noret_decl(f_22427) static void C_ccall f_22427(C_word c,C_word *av) C_noret; C_noret_decl(f_22430) static void C_ccall f_22430(C_word c,C_word *av) C_noret; C_noret_decl(f_22433) static void C_ccall f_22433(C_word c,C_word *av) C_noret; C_noret_decl(f_22436) static void C_ccall f_22436(C_word c,C_word *av) C_noret; C_noret_decl(f_22440) static void C_ccall f_22440(C_word c,C_word *av) C_noret; C_noret_decl(f_22446) static void C_ccall f_22446(C_word c,C_word *av) C_noret; C_noret_decl(f_22449) static void C_ccall f_22449(C_word c,C_word *av) C_noret; C_noret_decl(f_22452) static void C_ccall f_22452(C_word c,C_word *av) C_noret; C_noret_decl(f_22455) static void C_ccall f_22455(C_word c,C_word *av) C_noret; C_noret_decl(f_22463) static void C_ccall f_22463(C_word c,C_word *av) C_noret; C_noret_decl(f_22474) static void C_ccall f_22474(C_word c,C_word *av) C_noret; C_noret_decl(f_22485) static void C_ccall f_22485(C_word c,C_word *av) C_noret; C_noret_decl(f_22489) static void C_ccall f_22489(C_word c,C_word *av) C_noret; C_noret_decl(f_22493) static void C_ccall f_22493(C_word c,C_word *av) C_noret; C_noret_decl(f_22497) static void C_ccall f_22497(C_word c,C_word *av) C_noret; C_noret_decl(f_22501) static void C_ccall f_22501(C_word c,C_word *av) C_noret; C_noret_decl(f_22508) static void C_ccall f_22508(C_word c,C_word *av) C_noret; C_noret_decl(f_22519) static void C_ccall f_22519(C_word c,C_word *av) C_noret; C_noret_decl(f_22523) static void C_ccall f_22523(C_word c,C_word *av) C_noret; C_noret_decl(f_22527) static void C_ccall f_22527(C_word c,C_word *av) C_noret; C_noret_decl(f_22531) static void C_ccall f_22531(C_word c,C_word *av) C_noret; C_noret_decl(f_22535) static void C_ccall f_22535(C_word c,C_word *av) C_noret; C_noret_decl(f_22549) static void C_ccall f_22549(C_word c,C_word *av) C_noret; C_noret_decl(f_22553) static void C_ccall f_22553(C_word c,C_word *av) C_noret; C_noret_decl(f_22557) static void C_ccall f_22557(C_word c,C_word *av) C_noret; C_noret_decl(f_22571) static void C_ccall f_22571(C_word c,C_word *av) C_noret; C_noret_decl(f_22575) static void C_ccall f_22575(C_word c,C_word *av) C_noret; C_noret_decl(f_22589) static void C_ccall f_22589(C_word c,C_word *av) C_noret; C_noret_decl(f_22593) static void C_ccall f_22593(C_word c,C_word *av) C_noret; C_noret_decl(f_22597) static void C_ccall f_22597(C_word c,C_word *av) C_noret; C_noret_decl(f_22611) static void C_ccall f_22611(C_word c,C_word *av) C_noret; C_noret_decl(f_22615) static void C_ccall f_22615(C_word c,C_word *av) C_noret; C_noret_decl(f_22623) static void C_ccall f_22623(C_word c,C_word *av) C_noret; C_noret_decl(f_22637) static void C_ccall f_22637(C_word c,C_word *av) C_noret; C_noret_decl(f_22641) static void C_ccall f_22641(C_word c,C_word *av) C_noret; C_noret_decl(f_22645) static void C_ccall f_22645(C_word c,C_word *av) C_noret; C_noret_decl(f_22649) static void C_ccall f_22649(C_word c,C_word *av) C_noret; C_noret_decl(f_22654) static void C_ccall f_22654(C_word c,C_word *av) C_noret; C_noret_decl(f_22662) static void C_ccall f_22662(C_word c,C_word *av) C_noret; C_noret_decl(f_22669) static void C_ccall f_22669(C_word c,C_word *av) C_noret; C_noret_decl(f_22673) static void C_ccall f_22673(C_word c,C_word *av) C_noret; C_noret_decl(f_22677) static void C_ccall f_22677(C_word c,C_word *av) C_noret; C_noret_decl(f_22681) static void C_ccall f_22681(C_word c,C_word *av) C_noret; C_noret_decl(f_22685) static void C_ccall f_22685(C_word c,C_word *av) C_noret; C_noret_decl(f_22689) static void C_ccall f_22689(C_word c,C_word *av) C_noret; C_noret_decl(f_22699) static void C_ccall f_22699(C_word c,C_word *av) C_noret; C_noret_decl(f_22701) static void C_fcall f_22701(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22726) static void C_ccall f_22726(C_word c,C_word *av) C_noret; C_noret_decl(f_22738) static void C_ccall f_22738(C_word c,C_word *av) C_noret; C_noret_decl(f_22745) static void C_ccall f_22745(C_word c,C_word *av) C_noret; C_noret_decl(f_22759) static void C_ccall f_22759(C_word c,C_word *av) C_noret; C_noret_decl(f_22763) static void C_ccall f_22763(C_word c,C_word *av) C_noret; C_noret_decl(f_22775) static void C_ccall f_22775(C_word c,C_word *av) C_noret; C_noret_decl(f_22787) static void C_ccall f_22787(C_word c,C_word *av) C_noret; C_noret_decl(f_22805) static void C_ccall f_22805(C_word c,C_word *av) C_noret; C_noret_decl(f_22809) static void C_ccall f_22809(C_word c,C_word *av) C_noret; C_noret_decl(f_22813) static void C_ccall f_22813(C_word c,C_word *av) C_noret; C_noret_decl(f_22817) static void C_ccall f_22817(C_word c,C_word *av) C_noret; C_noret_decl(f_22821) static void C_ccall f_22821(C_word c,C_word *av) C_noret; C_noret_decl(f_22825) static void C_ccall f_22825(C_word c,C_word *av) C_noret; C_noret_decl(f_22829) static void C_ccall f_22829(C_word c,C_word *av) C_noret; C_noret_decl(f_22832) static void C_ccall f_22832(C_word c,C_word *av) C_noret; C_noret_decl(f_22840) static void C_fcall f_22840(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_22851) static void C_ccall f_22851(C_word c,C_word *av) C_noret; C_noret_decl(f_22857) static void C_ccall f_22857(C_word c,C_word *av) C_noret; C_noret_decl(f_22860) static void C_ccall f_22860(C_word c,C_word *av) C_noret; C_noret_decl(f_22863) static void C_ccall f_22863(C_word c,C_word *av) C_noret; C_noret_decl(f_22866) static void C_ccall f_22866(C_word c,C_word *av) C_noret; C_noret_decl(f_22874) static void C_ccall f_22874(C_word c,C_word *av) C_noret; C_noret_decl(f_22878) static void C_ccall f_22878(C_word c,C_word *av) C_noret; C_noret_decl(f_22882) static void C_ccall f_22882(C_word c,C_word *av) C_noret; C_noret_decl(f_22886) static void C_ccall f_22886(C_word c,C_word *av) C_noret; C_noret_decl(f_22889) static void C_ccall f_22889(C_word c,C_word *av) C_noret; C_noret_decl(f_22895) static void C_ccall f_22895(C_word c,C_word *av) C_noret; C_noret_decl(f_22898) static void C_ccall f_22898(C_word c,C_word *av) C_noret; C_noret_decl(f_22901) static void C_ccall f_22901(C_word c,C_word *av) C_noret; C_noret_decl(f_22904) static void C_ccall f_22904(C_word c,C_word *av) C_noret; C_noret_decl(f_22907) static void C_ccall f_22907(C_word c,C_word *av) C_noret; C_noret_decl(f_22914) static void C_ccall f_22914(C_word c,C_word *av) C_noret; C_noret_decl(f_22918) static void C_ccall f_22918(C_word c,C_word *av) C_noret; C_noret_decl(f_22930) static void C_ccall f_22930(C_word c,C_word *av) C_noret; C_noret_decl(f_22934) static void C_ccall f_22934(C_word c,C_word *av) C_noret; C_noret_decl(f_22949) static void C_ccall f_22949(C_word c,C_word *av) C_noret; C_noret_decl(f_22975) static void C_ccall f_22975(C_word c,C_word *av) C_noret; C_noret_decl(f_22992) static void C_ccall f_22992(C_word c,C_word *av) C_noret; C_noret_decl(f_23013) static void C_ccall f_23013(C_word c,C_word *av) C_noret; C_noret_decl(f_23015) static void C_fcall f_23015(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23040) static void C_ccall f_23040(C_word c,C_word *av) C_noret; C_noret_decl(f_23049) static void C_ccall f_23049(C_word c,C_word *av) C_noret; C_noret_decl(f_23070) static void C_ccall f_23070(C_word c,C_word *av) C_noret; C_noret_decl(f_23072) static void C_fcall f_23072(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23097) static void C_ccall f_23097(C_word c,C_word *av) C_noret; C_noret_decl(f_23106) static void C_ccall f_23106(C_word c,C_word *av) C_noret; C_noret_decl(f_23131) static void C_ccall f_23131(C_word c,C_word *av) C_noret; C_noret_decl(f_23133) static void C_fcall f_23133(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23158) static void C_ccall f_23158(C_word c,C_word *av) C_noret; C_noret_decl(f_23171) static void C_ccall f_23171(C_word c,C_word *av) C_noret; C_noret_decl(f_23196) static void C_ccall f_23196(C_word c,C_word *av) C_noret; C_noret_decl(f_23198) static void C_fcall f_23198(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23223) static void C_ccall f_23223(C_word c,C_word *av) C_noret; C_noret_decl(f_23238) static void C_ccall f_23238(C_word c,C_word *av) C_noret; C_noret_decl(f_23240) static void C_ccall f_23240(C_word c,C_word *av) C_noret; C_noret_decl(f_23248) static void C_ccall f_23248(C_word c,C_word *av) C_noret; C_noret_decl(f_23250) static void C_ccall f_23250(C_word c,C_word *av) C_noret; C_noret_decl(f_23266) static void C_ccall f_23266(C_word c,C_word *av) C_noret; C_noret_decl(f_23270) static void C_ccall f_23270(C_word c,C_word *av) C_noret; C_noret_decl(f_23279) static void C_ccall f_23279(C_word c,C_word *av) C_noret; C_noret_decl(f_23297) static void C_ccall f_23297(C_word c,C_word *av) C_noret; C_noret_decl(f_23306) static void C_ccall f_23306(C_word c,C_word *av) C_noret; C_noret_decl(f_23317) static void C_ccall f_23317(C_word c,C_word *av) C_noret; C_noret_decl(f_23323) static void C_ccall f_23323(C_word c,C_word *av) C_noret; C_noret_decl(f_23327) static void C_ccall f_23327(C_word c,C_word *av) C_noret; C_noret_decl(f_23380) static void C_ccall f_23380(C_word c,C_word *av) C_noret; C_noret_decl(f_23384) static void C_ccall f_23384(C_word c,C_word *av) C_noret; C_noret_decl(f_23388) static void C_ccall f_23388(C_word c,C_word *av) C_noret; C_noret_decl(f_6712) static void C_ccall f_6712(C_word c,C_word *av) C_noret; C_noret_decl(f_6715) static void C_ccall f_6715(C_word c,C_word *av) C_noret; C_noret_decl(f_6718) static void C_ccall f_6718(C_word c,C_word *av) C_noret; C_noret_decl(f_6721) static void C_ccall f_6721(C_word c,C_word *av) C_noret; C_noret_decl(f_6724) static void C_ccall f_6724(C_word c,C_word *av) C_noret; C_noret_decl(f_6727) static void C_ccall f_6727(C_word c,C_word *av) C_noret; C_noret_decl(f_6730) static void C_ccall f_6730(C_word c,C_word *av) C_noret; C_noret_decl(f_6733) static void C_ccall f_6733(C_word c,C_word *av) C_noret; C_noret_decl(f_6736) static void C_ccall f_6736(C_word c,C_word *av) C_noret; C_noret_decl(f_6802) static void C_fcall f_6802(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6816) static void C_ccall f_6816(C_word c,C_word *av) C_noret; C_noret_decl(f_6822) static void C_ccall f_6822(C_word c,C_word *av) C_noret; C_noret_decl(f_6840) static void C_ccall f_6840(C_word c,C_word *av) C_noret; C_noret_decl(f_6846) static void C_fcall f_6846(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6864) static void C_ccall f_6864(C_word c,C_word *av) C_noret; C_noret_decl(f_6904) static void C_fcall f_6904(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6918) static void C_ccall f_6918(C_word c,C_word *av) C_noret; C_noret_decl(f_6937) static void C_fcall f_6937(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6952) static void C_fcall f_6952(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6960) static void C_fcall f_6960(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6968) static void C_ccall f_6968(C_word c,C_word *av) C_noret; C_noret_decl(f_6979) static void C_ccall f_6979(C_word c,C_word *av) C_noret; C_noret_decl(f_6992) static void C_fcall f_6992(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6999) static void C_ccall f_6999(C_word c,C_word *av) C_noret; C_noret_decl(f_7006) static void C_ccall f_7006(C_word c,C_word *av) C_noret; C_noret_decl(f_7010) static void C_ccall f_7010(C_word c,C_word *av) C_noret; C_noret_decl(f_7022) static void C_ccall f_7022(C_word c,C_word *av) C_noret; C_noret_decl(f_7024) static void C_fcall f_7024(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7071) static void C_ccall f_7071(C_word c,C_word *av) C_noret; C_noret_decl(f_7073) static void C_fcall f_7073(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7107) static void C_fcall f_7107(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7113) static void C_fcall f_7113(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7135) static void C_ccall f_7135(C_word c,C_word *av) C_noret; C_noret_decl(f_7141) static void C_fcall f_7141(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7147) static void C_fcall f_7147(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7157) static void C_ccall f_7157(C_word c,C_word *av) C_noret; C_noret_decl(f_7177) static void C_fcall f_7177(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7191) static void C_ccall f_7191(C_word c,C_word *av) C_noret; C_noret_decl(f_7205) static void C_fcall f_7205(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7223) static void C_ccall f_7223(C_word c,C_word *av) C_noret; C_noret_decl(f_7233) static void C_fcall f_7233(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7246) static void C_ccall f_7246(C_word c,C_word *av) C_noret; C_noret_decl(f_7260) static void C_ccall f_7260(C_word c,C_word *av) C_noret; C_noret_decl(f_7302) static void C_fcall f_7302(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7308) static void C_fcall f_7308(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7322) static void C_ccall f_7322(C_word c,C_word *av) C_noret; C_noret_decl(f_7335) static void C_ccall f_7335(C_word c,C_word *av) C_noret; C_noret_decl(f_7391) static void C_fcall f_7391(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7400) static void C_fcall f_7400(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7408) static void C_fcall f_7408(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7412) static void C_ccall f_7412(C_word c,C_word *av) C_noret; C_noret_decl(f_7416) static C_word C_fcall f_7416(C_word *a,C_word t0,C_word t1); C_noret_decl(f_7434) static void C_ccall f_7434(C_word c,C_word *av) C_noret; C_noret_decl(f_7456) static void C_ccall f_7456(C_word c,C_word *av) C_noret; C_noret_decl(f_7473) static void C_fcall f_7473(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7572) static void C_fcall f_7572(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7658) static void C_fcall f_7658(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7683) static void C_fcall f_7683(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7706) static void C_ccall f_7706(C_word c,C_word *av) C_noret; C_noret_decl(f_7711) static void C_ccall f_7711(C_word c,C_word *av) C_noret; C_noret_decl(f_7718) static void C_ccall f_7718(C_word c,C_word *av) C_noret; C_noret_decl(f_7725) static void C_ccall f_7725(C_word c,C_word *av) C_noret; C_noret_decl(f_7749) static void C_fcall f_7749(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7755) static void C_fcall f_7755(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7769) static void C_ccall f_7769(C_word c,C_word *av) C_noret; C_noret_decl(f_7773) static void C_ccall f_7773(C_word c,C_word *av) C_noret; C_noret_decl(f_7785) static void C_ccall f_7785(C_word c,C_word *av) C_noret; C_noret_decl(f_7791) static void C_fcall f_7791(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7803) static void C_ccall f_7803(C_word c,C_word *av) C_noret; C_noret_decl(f_7868) static void C_fcall f_7868(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7881) static void C_ccall f_7881(C_word c,C_word *av) C_noret; C_noret_decl(f_7929) static void C_ccall f_7929(C_word c,C_word *av) C_noret; C_noret_decl(f_7932) static void C_fcall f_7932(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7941) static void C_ccall f_7941(C_word c,C_word *av) C_noret; C_noret_decl(f_8061) static void C_ccall f_8061(C_word c,C_word *av) C_noret; C_noret_decl(f_8069) static void C_ccall f_8069(C_word c,C_word *av) C_noret; C_noret_decl(f_8071) static void C_ccall f_8071(C_word c,C_word *av) C_noret; C_noret_decl(f_8114) static void C_ccall f_8114(C_word c,C_word *av) C_noret; C_noret_decl(f_8148) static void C_ccall f_8148(C_word c,C_word *av) C_noret; C_noret_decl(f_8161) static void C_ccall f_8161(C_word c,C_word *av) C_noret; C_noret_decl(f_8173) static void C_ccall f_8173(C_word c,C_word *av) C_noret; C_noret_decl(f_8176) static void C_ccall f_8176(C_word c,C_word *av) C_noret; C_noret_decl(f_8237) static void C_ccall f_8237(C_word c,C_word *av) C_noret; C_noret_decl(f_8239) static void C_fcall f_8239(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8264) static void C_ccall f_8264(C_word c,C_word *av) C_noret; C_noret_decl(f_8288) static void C_ccall f_8288(C_word c,C_word *av) C_noret; C_noret_decl(f_8292) static void C_ccall f_8292(C_word c,C_word *av) C_noret; C_noret_decl(f_8322) static void C_ccall f_8322(C_word c,C_word *av) C_noret; C_noret_decl(f_8325) static void C_ccall f_8325(C_word c,C_word *av) C_noret; C_noret_decl(f_8327) static void C_fcall f_8327(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8352) static void C_ccall f_8352(C_word c,C_word *av) C_noret; C_noret_decl(f_8397) static void C_ccall f_8397(C_word c,C_word *av) C_noret; C_noret_decl(f_8401) static void C_fcall f_8401(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8411) static void C_ccall f_8411(C_word c,C_word *av) C_noret; C_noret_decl(f_8417) static void C_fcall f_8417(C_word t0,C_word t1) C_noret; C_noret_decl(f_8420) static void C_ccall f_8420(C_word c,C_word *av) C_noret; C_noret_decl(f_8440) static void C_fcall f_8440(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8444) static void C_ccall f_8444(C_word c,C_word *av) C_noret; C_noret_decl(f_8452) static void C_ccall f_8452(C_word c,C_word *av) C_noret; C_noret_decl(f_8471) static void C_fcall f_8471(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_8475) static void C_ccall f_8475(C_word c,C_word *av) C_noret; C_noret_decl(f_8487) static void C_fcall f_8487(C_word t0,C_word t1) C_noret; C_noret_decl(f_8525) static void C_ccall f_8525(C_word c,C_word *av) C_noret; C_noret_decl(f_8532) static void C_ccall f_8532(C_word c,C_word *av) C_noret; C_noret_decl(f_8534) static void C_ccall f_8534(C_word c,C_word *av) C_noret; C_noret_decl(f_8566) static void C_ccall f_8566(C_word c,C_word *av) C_noret; C_noret_decl(f_8596) static void C_fcall f_8596(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_8600) static void C_ccall f_8600(C_word c,C_word *av) C_noret; C_noret_decl(f_8606) static void C_ccall f_8606(C_word c,C_word *av) C_noret; C_noret_decl(f_8618) static void C_ccall f_8618(C_word c,C_word *av) C_noret; C_noret_decl(f_8624) static void C_ccall f_8624(C_word c,C_word *av) C_noret; C_noret_decl(f_8632) static void C_fcall f_8632(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8660) static void C_ccall f_8660(C_word c,C_word *av) C_noret; C_noret_decl(f_8663) static void C_ccall f_8663(C_word c,C_word *av) C_noret; C_noret_decl(f_8676) static void C_ccall f_8676(C_word c,C_word *av) C_noret; C_noret_decl(f_8679) static void C_ccall f_8679(C_word c,C_word *av) C_noret; C_noret_decl(f_8682) static void C_ccall f_8682(C_word c,C_word *av) C_noret; C_noret_decl(f_8698) static void C_fcall f_8698(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8708) static void C_ccall f_8708(C_word c,C_word *av) C_noret; C_noret_decl(f_8714) static void C_ccall f_8714(C_word c,C_word *av) C_noret; C_noret_decl(f_8724) static void C_ccall f_8724(C_word c,C_word *av) C_noret; C_noret_decl(f_8733) static void C_fcall f_8733(C_word t0,C_word t1) C_noret; C_noret_decl(f_8736) static void C_ccall f_8736(C_word c,C_word *av) C_noret; C_noret_decl(f_8743) static void C_ccall f_8743(C_word c,C_word *av) C_noret; C_noret_decl(f_8749) static void C_ccall f_8749(C_word c,C_word *av) C_noret; C_noret_decl(f_8754) static void C_ccall f_8754(C_word c,C_word *av) C_noret; C_noret_decl(f_8760) static void C_ccall f_8760(C_word c,C_word *av) C_noret; C_noret_decl(f_8764) static void C_ccall f_8764(C_word c,C_word *av) C_noret; C_noret_decl(f_8767) static void C_ccall f_8767(C_word c,C_word *av) C_noret; C_noret_decl(f_8770) static void C_fcall f_8770(C_word t0,C_word t1) C_noret; C_noret_decl(f_8773) static void C_ccall f_8773(C_word c,C_word *av) C_noret; C_noret_decl(f_8776) static void C_ccall f_8776(C_word c,C_word *av) C_noret; C_noret_decl(f_8779) static void C_fcall f_8779(C_word t0,C_word t1) C_noret; C_noret_decl(f_8782) static void C_fcall f_8782(C_word t0,C_word t1) C_noret; C_noret_decl(f_8785) static void C_ccall f_8785(C_word c,C_word *av) C_noret; C_noret_decl(f_8798) static void C_fcall f_8798(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8810) static void C_fcall f_8810(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8835) static void C_ccall f_8835(C_word c,C_word *av) C_noret; C_noret_decl(f_8845) static void C_fcall f_8845(C_word t0,C_word t1) C_noret; C_noret_decl(f_8854) static void C_ccall f_8854(C_word c,C_word *av) C_noret; C_noret_decl(f_8866) static void C_ccall f_8866(C_word c,C_word *av) C_noret; C_noret_decl(f_8873) static void C_ccall f_8873(C_word c,C_word *av) C_noret; C_noret_decl(f_8876) static void C_ccall f_8876(C_word c,C_word *av) C_noret; C_noret_decl(f_8879) static void C_ccall f_8879(C_word c,C_word *av) C_noret; C_noret_decl(f_8913) static void C_fcall f_8913(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8920) static void C_ccall f_8920(C_word c,C_word *av) C_noret; C_noret_decl(f_8923) static void C_ccall f_8923(C_word c,C_word *av) C_noret; C_noret_decl(f_8929) static void C_ccall f_8929(C_word c,C_word *av) C_noret; C_noret_decl(f_8958) static void C_ccall f_8958(C_word c,C_word *av) C_noret; C_noret_decl(f_8962) static void C_ccall f_8962(C_word c,C_word *av) C_noret; C_noret_decl(f_8980) static void C_ccall f_8980(C_word c,C_word *av) C_noret; C_noret_decl(f_8983) static void C_ccall f_8983(C_word c,C_word *av) C_noret; C_noret_decl(f_8986) static void C_ccall f_8986(C_word c,C_word *av) C_noret; C_noret_decl(f_8992) static void C_ccall f_8992(C_word c,C_word *av) C_noret; C_noret_decl(f_9025) static void C_ccall f_9025(C_word c,C_word *av) C_noret; C_noret_decl(f_9029) static void C_ccall f_9029(C_word c,C_word *av) C_noret; C_noret_decl(f_9068) static void C_ccall f_9068(C_word c,C_word *av) C_noret; C_noret_decl(f_9072) static void C_fcall f_9072(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9091) static void C_ccall f_9091(C_word c,C_word *av) C_noret; C_noret_decl(f_9095) static void C_fcall f_9095(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9101) static void C_fcall f_9101(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9115) static void C_ccall f_9115(C_word c,C_word *av) C_noret; C_noret_decl(f_9121) static void C_ccall f_9121(C_word c,C_word *av) C_noret; C_noret_decl(f_9135) static void C_ccall f_9135(C_word c,C_word *av) C_noret; C_noret_decl(f_9166) static void C_ccall f_9166(C_word c,C_word *av) C_noret; C_noret_decl(f_9179) static void C_ccall f_9179(C_word c,C_word *av) C_noret; C_noret_decl(f_9189) static void C_ccall f_9189(C_word c,C_word *av) C_noret; C_noret_decl(f_9191) static void C_ccall f_9191(C_word c,C_word *av) C_noret; C_noret_decl(f_9220) static void C_fcall f_9220(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_9233) static void C_ccall f_9233(C_word c,C_word *av) C_noret; C_noret_decl(f_9249) static void C_ccall f_9249(C_word c,C_word *av) C_noret; C_noret_decl(f_9260) static void C_ccall f_9260(C_word c,C_word *av) C_noret; C_noret_decl(f_9264) static void C_ccall f_9264(C_word c,C_word *av) C_noret; C_noret_decl(f_9292) static void C_ccall f_9292(C_word c,C_word *av) C_noret; C_noret_decl(f_9296) static void C_ccall f_9296(C_word c,C_word *av) C_noret; C_noret_decl(f_9298) static void C_fcall f_9298(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9323) static void C_ccall f_9323(C_word c,C_word *av) C_noret; C_noret_decl(f_9332) static C_word C_fcall f_9332(C_word *a,C_word t0); C_noret_decl(f_9337) static void C_fcall f_9337(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_9343) static void C_fcall f_9343(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9348) static void C_ccall f_9348(C_word c,C_word *av) C_noret; C_noret_decl(f_9370) static void C_fcall f_9370(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9377) static void C_ccall f_9377(C_word c,C_word *av) C_noret; C_noret_decl(f_9380) static void C_ccall f_9380(C_word c,C_word *av) C_noret; C_noret_decl(f_9383) static void C_ccall f_9383(C_word c,C_word *av) C_noret; C_noret_decl(f_9389) static void C_ccall f_9389(C_word c,C_word *av) C_noret; C_noret_decl(f_9393) static void C_fcall f_9393(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9400) static void C_ccall f_9400(C_word c,C_word *av) C_noret; C_noret_decl(f_9408) static void C_fcall f_9408(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9433) static void C_ccall f_9433(C_word c,C_word *av) C_noret; C_noret_decl(f_9442) static void C_ccall f_9442(C_word c,C_word *av) C_noret; C_noret_decl(f_9448) static void C_ccall f_9448(C_word c,C_word *av) C_noret; C_noret_decl(f_9466) static void C_fcall f_9466(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8) C_noret; C_noret_decl(f_9470) static void C_ccall f_9470(C_word c,C_word *av) C_noret; C_noret_decl(f_9473) static void C_ccall f_9473(C_word c,C_word *av) C_noret; C_noret_decl(f_9476) static void C_ccall f_9476(C_word c,C_word *av) C_noret; C_noret_decl(f_9484) static void C_ccall f_9484(C_word c,C_word *av) C_noret; C_noret_decl(f_9512) static void C_ccall f_9512(C_word c,C_word *av) C_noret; C_noret_decl(f_9554) static void C_ccall f_9554(C_word c,C_word *av) C_noret; C_noret_decl(f_9571) static void C_ccall f_9571(C_word c,C_word *av) C_noret; C_noret_decl(f_9591) static void C_ccall f_9591(C_word c,C_word *av) C_noret; C_noret_decl(f_9608) static void C_ccall f_9608(C_word c,C_word *av) C_noret; C_noret_decl(f_9627) static void C_ccall f_9627(C_word c,C_word *av) C_noret; C_noret_decl(f_9638) static void C_ccall f_9638(C_word c,C_word *av) C_noret; C_noret_decl(f_9657) static void C_ccall f_9657(C_word c,C_word *av) C_noret; C_noret_decl(f_9660) static void C_ccall f_9660(C_word c,C_word *av) C_noret; C_noret_decl(f_9664) static void C_ccall f_9664(C_word c,C_word *av) C_noret; C_noret_decl(f_9671) static void C_ccall f_9671(C_word c,C_word *av) C_noret; C_noret_decl(f_9677) static void C_fcall f_9677(C_word t0,C_word t1) C_noret; C_noret_decl(f_9683) static void C_fcall f_9683(C_word t0,C_word t1) C_noret; C_noret_decl(f_9686) static void C_ccall f_9686(C_word c,C_word *av) C_noret; C_noret_decl(f_9718) static void C_fcall f_9718(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9747) static void C_ccall f_9747(C_word c,C_word *av) C_noret; C_noret_decl(f_9812) static void C_fcall f_9812(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9846) static void C_fcall f_9846(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9856) static void C_ccall f_9856(C_word c,C_word *av) C_noret; C_noret_decl(f_9899) static void C_ccall f_9899(C_word c,C_word *av) C_noret; C_noret_decl(f_9902) static void C_ccall f_9902(C_word c,C_word *av) C_noret; C_noret_decl(f_9906) static void C_ccall f_9906(C_word c,C_word *av) C_noret; C_noret_decl(f_9908) static void C_ccall f_9908(C_word c,C_word *av) C_noret; C_noret_decl(f_9931) static void C_fcall f_9931(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_9949) static void C_ccall f_9949(C_word c,C_word *av) C_noret; C_noret_decl(f_9958) static void C_ccall f_9958(C_word c,C_word *av) C_noret; C_noret_decl(f_9961) static void C_fcall f_9961(C_word t0,C_word t1) C_noret; C_noret_decl(f_9977) static void C_fcall f_9977(C_word t0,C_word t1) C_noret; C_noret_decl(f_9986) static void C_ccall f_9986(C_word c,C_word *av) C_noret; C_noret_decl(f_9994) static void C_ccall f_9994(C_word c,C_word *av) C_noret; C_noret_decl(C_scrutinizer_toplevel) C_externexport void C_ccall C_scrutinizer_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_10090) static void C_ccall trf_10090(C_word c,C_word *av) C_noret; static void C_ccall trf_10090(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_10090(t0,t1,t2,t3,t4);} C_noret_decl(trf_10098) static void C_ccall trf_10098(C_word c,C_word *av) C_noret; static void C_ccall trf_10098(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10098(t0,t1);} C_noret_decl(trf_10102) static void C_ccall trf_10102(C_word c,C_word *av) C_noret; static void C_ccall trf_10102(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10102(t0,t1,t2);} C_noret_decl(trf_10110) static void C_ccall trf_10110(C_word c,C_word *av) C_noret; static void C_ccall trf_10110(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10110(t0,t1);} C_noret_decl(trf_10183) static void C_ccall trf_10183(C_word c,C_word *av) C_noret; static void C_ccall trf_10183(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10183(t0,t1);} C_noret_decl(trf_10229) static void C_ccall trf_10229(C_word c,C_word *av) C_noret; static void C_ccall trf_10229(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10229(t0,t1,t2,t3);} C_noret_decl(trf_10335) static void C_ccall trf_10335(C_word c,C_word *av) C_noret; static void C_ccall trf_10335(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10335(t0,t1);} C_noret_decl(trf_10343) static void C_ccall trf_10343(C_word c,C_word *av) C_noret; static void C_ccall trf_10343(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10343(t0,t1,t2,t3);} C_noret_decl(trf_10432) static void C_ccall trf_10432(C_word c,C_word *av) C_noret; static void C_ccall trf_10432(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10432(t0,t1);} C_noret_decl(trf_10447) static void C_ccall trf_10447(C_word c,C_word *av) C_noret; static void C_ccall trf_10447(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10447(t0,t1);} C_noret_decl(trf_10558) static void C_ccall trf_10558(C_word c,C_word *av) C_noret; static void C_ccall trf_10558(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10558(t0,t1);} C_noret_decl(trf_10561) static void C_ccall trf_10561(C_word c,C_word *av) C_noret; static void C_ccall trf_10561(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10561(t0,t1);} C_noret_decl(trf_10581) static void C_ccall trf_10581(C_word c,C_word *av) C_noret; static void C_ccall trf_10581(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10581(t0,t1);} C_noret_decl(trf_10657) static void C_ccall trf_10657(C_word c,C_word *av) C_noret; static void C_ccall trf_10657(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10657(t0,t1,t2,t3);} C_noret_decl(trf_10721) static void C_ccall trf_10721(C_word c,C_word *av) C_noret; static void C_ccall trf_10721(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10721(t0,t1);} C_noret_decl(trf_10728) static void C_ccall trf_10728(C_word c,C_word *av) C_noret; static void C_ccall trf_10728(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10728(t0,t1);} C_noret_decl(trf_10779) static void C_ccall trf_10779(C_word c,C_word *av) C_noret; static void C_ccall trf_10779(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10779(t0,t1,t2);} C_noret_decl(trf_10791) static void C_ccall trf_10791(C_word c,C_word *av) C_noret; static void C_ccall trf_10791(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10791(t0,t1,t2);} C_noret_decl(trf_10833) static void C_ccall trf_10833(C_word c,C_word *av) C_noret; static void C_ccall trf_10833(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10833(t0,t1,t2,t3);} C_noret_decl(trf_10858) static void C_ccall trf_10858(C_word c,C_word *av) C_noret; static void C_ccall trf_10858(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10858(t0,t1);} C_noret_decl(trf_10952) static void C_ccall trf_10952(C_word c,C_word *av) C_noret; static void C_ccall trf_10952(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10952(t0,t1,t2);} C_noret_decl(trf_11019) static void C_ccall trf_11019(C_word c,C_word *av) C_noret; static void C_ccall trf_11019(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11019(t0,t1,t2);} C_noret_decl(trf_11031) static void C_ccall trf_11031(C_word c,C_word *av) C_noret; static void C_ccall trf_11031(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11031(t0,t1,t2);} C_noret_decl(trf_11065) static void C_ccall trf_11065(C_word c,C_word *av) C_noret; static void C_ccall trf_11065(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11065(t0,t1,t2,t3);} C_noret_decl(trf_11141) static void C_ccall trf_11141(C_word c,C_word *av) C_noret; static void C_ccall trf_11141(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11141(t0,t1,t2);} C_noret_decl(trf_11179) static void C_ccall trf_11179(C_word c,C_word *av) C_noret; static void C_ccall trf_11179(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11179(t0,t1,t2,t3);} C_noret_decl(trf_11268) static void C_ccall trf_11268(C_word c,C_word *av) C_noret; static void C_ccall trf_11268(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11268(t0,t1);} C_noret_decl(trf_11271) static void C_ccall trf_11271(C_word c,C_word *av) C_noret; static void C_ccall trf_11271(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11271(t0,t1);} C_noret_decl(trf_11341) static void C_ccall trf_11341(C_word c,C_word *av) C_noret; static void C_ccall trf_11341(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11341(t0,t1,t2,t3);} C_noret_decl(trf_11425) static void C_ccall trf_11425(C_word c,C_word *av) C_noret; static void C_ccall trf_11425(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11425(t0,t1,t2);} C_noret_decl(trf_11437) static void C_ccall trf_11437(C_word c,C_word *av) C_noret; static void C_ccall trf_11437(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11437(t0,t1,t2);} C_noret_decl(trf_11584) static void C_ccall trf_11584(C_word c,C_word *av) C_noret; static void C_ccall trf_11584(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11584(t0,t1,t2);} C_noret_decl(trf_11623) static void C_ccall trf_11623(C_word c,C_word *av) C_noret; static void C_ccall trf_11623(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11623(t0,t1);} C_noret_decl(trf_11629) static void C_ccall trf_11629(C_word c,C_word *av) C_noret; static void C_ccall trf_11629(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11629(t0,t1,t2);} C_noret_decl(trf_11659) static void C_ccall trf_11659(C_word c,C_word *av) C_noret; static void C_ccall trf_11659(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11659(t0,t1,t2,t3);} C_noret_decl(trf_11713) static void C_ccall trf_11713(C_word c,C_word *av) C_noret; static void C_ccall trf_11713(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11713(t0,t1,t2);} C_noret_decl(trf_11830) static void C_ccall trf_11830(C_word c,C_word *av) C_noret; static void C_ccall trf_11830(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11830(t0,t1,t2,t3);} C_noret_decl(trf_11839) static void C_ccall trf_11839(C_word c,C_word *av) C_noret; static void C_ccall trf_11839(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_11839(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_11961) static void C_ccall trf_11961(C_word c,C_word *av) C_noret; static void C_ccall trf_11961(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11961(t0,t1,t2,t3);} C_noret_decl(trf_12024) static void C_ccall trf_12024(C_word c,C_word *av) C_noret; static void C_ccall trf_12024(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12024(t0,t1,t2,t3);} C_noret_decl(trf_12058) static void C_ccall trf_12058(C_word c,C_word *av) C_noret; static void C_ccall trf_12058(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12058(t0,t1);} C_noret_decl(trf_12092) static void C_ccall trf_12092(C_word c,C_word *av) C_noret; static void C_ccall trf_12092(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12092(t0,t1,t2,t3);} C_noret_decl(trf_12114) static void C_ccall trf_12114(C_word c,C_word *av) C_noret; static void C_ccall trf_12114(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12114(t0,t1,t2,t3);} C_noret_decl(trf_12120) static void C_ccall trf_12120(C_word c,C_word *av) C_noret; static void C_ccall trf_12120(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12120(t0,t1,t2,t3);} C_noret_decl(trf_12167) static void C_ccall trf_12167(C_word c,C_word *av) C_noret; static void C_ccall trf_12167(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12167(t0,t1,t2);} C_noret_decl(trf_12208) static void C_ccall trf_12208(C_word c,C_word *av) C_noret; static void C_ccall trf_12208(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12208(t0,t1,t2);} C_noret_decl(trf_12299) static void C_ccall trf_12299(C_word c,C_word *av) C_noret; static void C_ccall trf_12299(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12299(t0,t1,t2);} C_noret_decl(trf_12416) static void C_ccall trf_12416(C_word c,C_word *av) C_noret; static void C_ccall trf_12416(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12416(t0,t1,t2);} C_noret_decl(trf_12430) static void C_ccall trf_12430(C_word c,C_word *av) C_noret; static void C_ccall trf_12430(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12430(t0,t1,t2);} C_noret_decl(trf_12443) static void C_ccall trf_12443(C_word c,C_word *av) C_noret; static void C_ccall trf_12443(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12443(t0,t1);} C_noret_decl(trf_12481) static void C_ccall trf_12481(C_word c,C_word *av) C_noret; static void C_ccall trf_12481(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12481(t0,t1);} C_noret_decl(trf_12522) static void C_ccall trf_12522(C_word c,C_word *av) C_noret; static void C_ccall trf_12522(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12522(t0,t1);} C_noret_decl(trf_12541) static void C_ccall trf_12541(C_word c,C_word *av) C_noret; static void C_ccall trf_12541(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12541(t0,t1);} C_noret_decl(trf_12560) static void C_ccall trf_12560(C_word c,C_word *av) C_noret; static void C_ccall trf_12560(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12560(t0,t1);} C_noret_decl(trf_12573) static void C_ccall trf_12573(C_word c,C_word *av) C_noret; static void C_ccall trf_12573(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12573(t0,t1);} C_noret_decl(trf_12666) static void C_ccall trf_12666(C_word c,C_word *av) C_noret; static void C_ccall trf_12666(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12666(t0,t1);} C_noret_decl(trf_12839) static void C_ccall trf_12839(C_word c,C_word *av) C_noret; static void C_ccall trf_12839(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12839(t0,t1);} C_noret_decl(trf_12858) static void C_ccall trf_12858(C_word c,C_word *av) C_noret; static void C_ccall trf_12858(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12858(t0,t1);} C_noret_decl(trf_12871) static void C_ccall trf_12871(C_word c,C_word *av) C_noret; static void C_ccall trf_12871(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12871(t0,t1);} C_noret_decl(trf_12973) static void C_ccall trf_12973(C_word c,C_word *av) C_noret; static void C_ccall trf_12973(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12973(t0,t1);} C_noret_decl(trf_13075) static void C_ccall trf_13075(C_word c,C_word *av) C_noret; static void C_ccall trf_13075(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13075(t0,t1);} C_noret_decl(trf_13117) static void C_ccall trf_13117(C_word c,C_word *av) C_noret; static void C_ccall trf_13117(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13117(t0,t1);} C_noret_decl(trf_13151) static void C_ccall trf_13151(C_word c,C_word *av) C_noret; static void C_ccall trf_13151(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13151(t0,t1);} C_noret_decl(trf_13193) static void C_ccall trf_13193(C_word c,C_word *av) C_noret; static void C_ccall trf_13193(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13193(t0,t1);} C_noret_decl(trf_13403) static void C_ccall trf_13403(C_word c,C_word *av) C_noret; static void C_ccall trf_13403(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13403(t0,t1,t2,t3);} C_noret_decl(trf_13409) static void C_ccall trf_13409(C_word c,C_word *av) C_noret; static void C_ccall trf_13409(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13409(t0,t1,t2,t3);} C_noret_decl(trf_13475) static void C_ccall trf_13475(C_word c,C_word *av) C_noret; static void C_ccall trf_13475(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13475(t0,t1);} C_noret_decl(trf_13559) static void C_ccall trf_13559(C_word c,C_word *av) C_noret; static void C_ccall trf_13559(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13559(t0,t1,t2);} C_noret_decl(trf_13646) static void C_ccall trf_13646(C_word c,C_word *av) C_noret; static void C_ccall trf_13646(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13646(t0,t1,t2,t3);} C_noret_decl(trf_13688) static void C_ccall trf_13688(C_word c,C_word *av) C_noret; static void C_ccall trf_13688(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13688(t0,t1);} C_noret_decl(trf_13766) static void C_ccall trf_13766(C_word c,C_word *av) C_noret; static void C_ccall trf_13766(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13766(t0,t1,t2,t3);} C_noret_decl(trf_13856) static void C_ccall trf_13856(C_word c,C_word *av) C_noret; static void C_ccall trf_13856(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13856(t0,t1);} C_noret_decl(trf_13910) static void C_ccall trf_13910(C_word c,C_word *av) C_noret; static void C_ccall trf_13910(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13910(t0,t1,t2);} C_noret_decl(trf_14107) static void C_ccall trf_14107(C_word c,C_word *av) C_noret; static void C_ccall trf_14107(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14107(t0,t1,t2);} C_noret_decl(trf_14163) static void C_ccall trf_14163(C_word c,C_word *av) C_noret; static void C_ccall trf_14163(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14163(t0,t1,t2);} C_noret_decl(trf_14236) static void C_ccall trf_14236(C_word c,C_word *av) C_noret; static void C_ccall trf_14236(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14236(t0,t1,t2);} C_noret_decl(trf_14275) static void C_ccall trf_14275(C_word c,C_word *av) C_noret; static void C_ccall trf_14275(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14275(t0,t1);} C_noret_decl(trf_14283) static void C_ccall trf_14283(C_word c,C_word *av) C_noret; static void C_ccall trf_14283(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14283(t0,t1,t2);} C_noret_decl(trf_14361) static void C_ccall trf_14361(C_word c,C_word *av) C_noret; static void C_ccall trf_14361(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14361(t0,t1,t2);} C_noret_decl(trf_14409) static void C_ccall trf_14409(C_word c,C_word *av) C_noret; static void C_ccall trf_14409(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14409(t0,t1,t2);} C_noret_decl(trf_14444) static void C_ccall trf_14444(C_word c,C_word *av) C_noret; static void C_ccall trf_14444(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14444(t0,t1,t2);} C_noret_decl(trf_14483) static void C_ccall trf_14483(C_word c,C_word *av) C_noret; static void C_ccall trf_14483(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14483(t0,t1);} C_noret_decl(trf_14528) static void C_ccall trf_14528(C_word c,C_word *av) C_noret; static void C_ccall trf_14528(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14528(t0,t1);} C_noret_decl(trf_14625) static void C_ccall trf_14625(C_word c,C_word *av) C_noret; static void C_ccall trf_14625(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14625(t0,t1,t2,t3);} C_noret_decl(trf_14682) static void C_ccall trf_14682(C_word c,C_word *av) C_noret; static void C_ccall trf_14682(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14682(t0,t1,t2,t3);} C_noret_decl(trf_14750) static void C_ccall trf_14750(C_word c,C_word *av) C_noret; static void C_ccall trf_14750(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14750(t0,t1);} C_noret_decl(trf_14786) static void C_ccall trf_14786(C_word c,C_word *av) C_noret; static void C_ccall trf_14786(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14786(t0,t1,t2);} C_noret_decl(trf_14800) static void C_ccall trf_14800(C_word c,C_word *av) C_noret; static void C_ccall trf_14800(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14800(t0,t1,t2);} C_noret_decl(trf_14813) static void C_ccall trf_14813(C_word c,C_word *av) C_noret; static void C_ccall trf_14813(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14813(t0,t1);} C_noret_decl(trf_14840) static void C_ccall trf_14840(C_word c,C_word *av) C_noret; static void C_ccall trf_14840(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14840(t0,t1);} C_noret_decl(trf_14867) static void C_ccall trf_14867(C_word c,C_word *av) C_noret; static void C_ccall trf_14867(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14867(t0,t1);} C_noret_decl(trf_14873) static void C_ccall trf_14873(C_word c,C_word *av) C_noret; static void C_ccall trf_14873(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14873(t0,t1);} C_noret_decl(trf_14901) static void C_ccall trf_14901(C_word c,C_word *av) C_noret; static void C_ccall trf_14901(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14901(t0,t1);} C_noret_decl(trf_14932) static void C_ccall trf_14932(C_word c,C_word *av) C_noret; static void C_ccall trf_14932(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14932(t0,t1,t2,t3);} C_noret_decl(trf_15143) static void C_ccall trf_15143(C_word c,C_word *av) C_noret; static void C_ccall trf_15143(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15143(t0,t1);} C_noret_decl(trf_15194) static void C_ccall trf_15194(C_word c,C_word *av) C_noret; static void C_ccall trf_15194(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15194(t0,t1);} C_noret_decl(trf_15251) static void C_ccall trf_15251(C_word c,C_word *av) C_noret; static void C_ccall trf_15251(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15251(t0,t1);} C_noret_decl(trf_15308) static void C_ccall trf_15308(C_word c,C_word *av) C_noret; static void C_ccall trf_15308(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_15308(t0,t1,t2,t3,t4);} C_noret_decl(trf_15317) static void C_ccall trf_15317(C_word c,C_word *av) C_noret; static void C_ccall trf_15317(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15317(t0,t1,t2,t3);} C_noret_decl(trf_15324) static void C_ccall trf_15324(C_word c,C_word *av) C_noret; static void C_ccall trf_15324(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15324(t0,t1);} C_noret_decl(trf_15334) static void C_ccall trf_15334(C_word c,C_word *av) C_noret; static void C_ccall trf_15334(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15334(t0,t1);} C_noret_decl(trf_15336) static void C_ccall trf_15336(C_word c,C_word *av) C_noret; static void C_ccall trf_15336(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_15336(t0,t1,t2,t3,t4);} C_noret_decl(trf_15375) static void C_ccall trf_15375(C_word c,C_word *av) C_noret; static void C_ccall trf_15375(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15375(t0,t1);} C_noret_decl(trf_15434) static void C_ccall trf_15434(C_word c,C_word *av) C_noret; static void C_ccall trf_15434(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15434(t0,t1);} C_noret_decl(trf_15457) static void C_ccall trf_15457(C_word c,C_word *av) C_noret; static void C_ccall trf_15457(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15457(t0,t1);} C_noret_decl(trf_15471) static void C_ccall trf_15471(C_word c,C_word *av) C_noret; static void C_ccall trf_15471(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15471(t0,t1,t2);} C_noret_decl(trf_15531) static void C_ccall trf_15531(C_word c,C_word *av) C_noret; static void C_ccall trf_15531(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15531(t0,t1,t2);} C_noret_decl(trf_15542) static void C_ccall trf_15542(C_word c,C_word *av) C_noret; static void C_ccall trf_15542(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15542(t0,t1,t2);} C_noret_decl(trf_15559) static void C_ccall trf_15559(C_word c,C_word *av) C_noret; static void C_ccall trf_15559(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15559(t0,t1);} C_noret_decl(trf_15572) static void C_ccall trf_15572(C_word c,C_word *av) C_noret; static void C_ccall trf_15572(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15572(t0,t1);} C_noret_decl(trf_15574) static void C_ccall trf_15574(C_word c,C_word *av) C_noret; static void C_ccall trf_15574(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15574(t0,t1,t2);} C_noret_decl(trf_15631) static void C_ccall trf_15631(C_word c,C_word *av) C_noret; static void C_ccall trf_15631(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15631(t0,t1);} C_noret_decl(trf_15924) static void C_ccall trf_15924(C_word c,C_word *av) C_noret; static void C_ccall trf_15924(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15924(t0,t1);} C_noret_decl(trf_15950) static void C_ccall trf_15950(C_word c,C_word *av) C_noret; static void C_ccall trf_15950(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15950(t0,t1,t2);} C_noret_decl(trf_15977) static void C_ccall trf_15977(C_word c,C_word *av) C_noret; static void C_ccall trf_15977(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15977(t0,t1,t2);} C_noret_decl(trf_16023) static void C_ccall trf_16023(C_word c,C_word *av) C_noret; static void C_ccall trf_16023(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16023(t0,t1,t2);} C_noret_decl(trf_16050) static void C_ccall trf_16050(C_word c,C_word *av) C_noret; static void C_ccall trf_16050(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16050(t0,t1,t2);} C_noret_decl(trf_16136) static void C_ccall trf_16136(C_word c,C_word *av) C_noret; static void C_ccall trf_16136(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16136(t0,t1,t2);} C_noret_decl(trf_16161) static void C_ccall trf_16161(C_word c,C_word *av) C_noret; static void C_ccall trf_16161(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16161(t0,t1);} C_noret_decl(trf_16183) static void C_ccall trf_16183(C_word c,C_word *av) C_noret; static void C_ccall trf_16183(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16183(t0,t1,t2);} C_noret_decl(trf_16214) static void C_ccall trf_16214(C_word c,C_word *av) C_noret; static void C_ccall trf_16214(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16214(t0,t1,t2);} C_noret_decl(trf_16267) static void C_ccall trf_16267(C_word c,C_word *av) C_noret; static void C_ccall trf_16267(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16267(t0,t1,t2,t3);} C_noret_decl(trf_16275) static void C_ccall trf_16275(C_word c,C_word *av) C_noret; static void C_ccall trf_16275(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16275(t0,t1,t2);} C_noret_decl(trf_16356) static void C_ccall trf_16356(C_word c,C_word *av) C_noret; static void C_ccall trf_16356(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16356(t0,t1,t2);} C_noret_decl(trf_16369) static void C_ccall trf_16369(C_word c,C_word *av) C_noret; static void C_ccall trf_16369(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16369(t0,t1,t2);} C_noret_decl(trf_16453) static void C_ccall trf_16453(C_word c,C_word *av) C_noret; static void C_ccall trf_16453(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16453(t0,t1);} C_noret_decl(trf_16463) static void C_ccall trf_16463(C_word c,C_word *av) C_noret; static void C_ccall trf_16463(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16463(t0,t1,t2);} C_noret_decl(trf_16476) static void C_ccall trf_16476(C_word c,C_word *av) C_noret; static void C_ccall trf_16476(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16476(t0,t1,t2);} C_noret_decl(trf_16553) static void C_ccall trf_16553(C_word c,C_word *av) C_noret; static void C_ccall trf_16553(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16553(t0,t1,t2);} C_noret_decl(trf_16565) static void C_ccall trf_16565(C_word c,C_word *av) C_noret; static void C_ccall trf_16565(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16565(t0,t1,t2);} C_noret_decl(trf_16599) static void C_ccall trf_16599(C_word c,C_word *av) C_noret; static void C_ccall trf_16599(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16599(t0,t1,t2);} C_noret_decl(trf_16728) static void C_ccall trf_16728(C_word c,C_word *av) C_noret; static void C_ccall trf_16728(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16728(t0,t1,t2);} C_noret_decl(trf_16737) static void C_ccall trf_16737(C_word c,C_word *av) C_noret; static void C_ccall trf_16737(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16737(t0,t1,t2);} C_noret_decl(trf_16765) static void C_ccall trf_16765(C_word c,C_word *av) C_noret; static void C_ccall trf_16765(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16765(t0,t1,t2);} C_noret_decl(trf_16775) static void C_ccall trf_16775(C_word c,C_word *av) C_noret; static void C_ccall trf_16775(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16775(t0,t1);} C_noret_decl(trf_16811) static void C_ccall trf_16811(C_word c,C_word *av) C_noret; static void C_ccall trf_16811(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16811(t0,t1);} C_noret_decl(trf_16877) static void C_ccall trf_16877(C_word c,C_word *av) C_noret; static void C_ccall trf_16877(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16877(t0,t1,t2);} C_noret_decl(trf_16890) static void C_ccall trf_16890(C_word c,C_word *av) C_noret; static void C_ccall trf_16890(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16890(t0,t1);} C_noret_decl(trf_16904) static void C_ccall trf_16904(C_word c,C_word *av) C_noret; static void C_ccall trf_16904(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16904(t0,t1,t2);} C_noret_decl(trf_17068) static void C_ccall trf_17068(C_word c,C_word *av) C_noret; static void C_ccall trf_17068(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17068(t0,t1,t2);} C_noret_decl(trf_17164) static void C_ccall trf_17164(C_word c,C_word *av) C_noret; static void C_ccall trf_17164(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17164(t0,t1);} C_noret_decl(trf_17204) static void C_ccall trf_17204(C_word c,C_word *av) C_noret; static void C_ccall trf_17204(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17204(t0,t1,t2);} C_noret_decl(trf_17310) static void C_ccall trf_17310(C_word c,C_word *av) C_noret; static void C_ccall trf_17310(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17310(t0,t1,t2);} C_noret_decl(trf_17328) static void C_ccall trf_17328(C_word c,C_word *av) C_noret; static void C_ccall trf_17328(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17328(t0,t1,t2);} C_noret_decl(trf_17388) static void C_ccall trf_17388(C_word c,C_word *av) C_noret; static void C_ccall trf_17388(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17388(t0,t1,t2);} C_noret_decl(trf_17490) static void C_ccall trf_17490(C_word c,C_word *av) C_noret; static void C_ccall trf_17490(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_17490(t0,t1,t2,t3);} C_noret_decl(trf_17493) static void C_ccall trf_17493(C_word c,C_word *av) C_noret; static void C_ccall trf_17493(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17493(t0,t1,t2);} C_noret_decl(trf_17500) static void C_ccall trf_17500(C_word c,C_word *av) C_noret; static void C_ccall trf_17500(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17500(t0,t1);} C_noret_decl(trf_17550) static void C_ccall trf_17550(C_word c,C_word *av) C_noret; static void C_ccall trf_17550(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17550(t0,t1);} C_noret_decl(trf_17652) static void C_ccall trf_17652(C_word c,C_word *av) C_noret; static void C_ccall trf_17652(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17652(t0,t1,t2);} C_noret_decl(trf_17674) static void C_ccall trf_17674(C_word c,C_word *av) C_noret; static void C_ccall trf_17674(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17674(t0,t1,t2);} C_noret_decl(trf_17708) static void C_ccall trf_17708(C_word c,C_word *av) C_noret; static void C_ccall trf_17708(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17708(t0,t1,t2);} C_noret_decl(trf_17736) static void C_ccall trf_17736(C_word c,C_word *av) C_noret; static void C_ccall trf_17736(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17736(t0,t1);} C_noret_decl(trf_17756) static void C_ccall trf_17756(C_word c,C_word *av) C_noret; static void C_ccall trf_17756(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17756(t0,t1);} C_noret_decl(trf_18019) static void C_ccall trf_18019(C_word c,C_word *av) C_noret; static void C_ccall trf_18019(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18019(t0,t1,t2);} C_noret_decl(trf_18068) static void C_ccall trf_18068(C_word c,C_word *av) C_noret; static void C_ccall trf_18068(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18068(t0,t1,t2);} C_noret_decl(trf_18112) static void C_ccall trf_18112(C_word c,C_word *av) C_noret; static void C_ccall trf_18112(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18112(t0,t1);} C_noret_decl(trf_18165) static void C_ccall trf_18165(C_word c,C_word *av) C_noret; static void C_ccall trf_18165(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18165(t0,t1,t2);} C_noret_decl(trf_18296) static void C_ccall trf_18296(C_word c,C_word *av) C_noret; static void C_ccall trf_18296(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18296(t0,t1);} C_noret_decl(trf_18342) static void C_ccall trf_18342(C_word c,C_word *av) C_noret; static void C_ccall trf_18342(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18342(t0,t1,t2);} C_noret_decl(trf_18355) static void C_ccall trf_18355(C_word c,C_word *av) C_noret; static void C_ccall trf_18355(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18355(t0,t1);} C_noret_decl(trf_18390) static void C_ccall trf_18390(C_word c,C_word *av) C_noret; static void C_ccall trf_18390(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18390(t0,t1);} C_noret_decl(trf_18526) static void C_ccall trf_18526(C_word c,C_word *av) C_noret; static void C_ccall trf_18526(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18526(t0,t1,t2,t3);} C_noret_decl(trf_18551) static void C_ccall trf_18551(C_word c,C_word *av) C_noret; static void C_ccall trf_18551(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18551(t0,t1,t2);} C_noret_decl(trf_18605) static void C_ccall trf_18605(C_word c,C_word *av) C_noret; static void C_ccall trf_18605(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18605(t0,t1,t2);} C_noret_decl(trf_18688) static void C_ccall trf_18688(C_word c,C_word *av) C_noret; static void C_ccall trf_18688(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18688(t0,t1);} C_noret_decl(trf_18738) static void C_ccall trf_18738(C_word c,C_word *av) C_noret; static void C_ccall trf_18738(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18738(t0,t1,t2);} C_noret_decl(trf_18899) static void C_ccall trf_18899(C_word c,C_word *av) C_noret; static void C_ccall trf_18899(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18899(t0,t1,t2);} C_noret_decl(trf_18903) static void C_ccall trf_18903(C_word c,C_word *av) C_noret; static void C_ccall trf_18903(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18903(t0,t1);} C_noret_decl(trf_18938) static void C_ccall trf_18938(C_word c,C_word *av) C_noret; static void C_ccall trf_18938(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18938(t0,t1,t2);} C_noret_decl(trf_18970) static void C_ccall trf_18970(C_word c,C_word *av) C_noret; static void C_ccall trf_18970(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18970(t0,t1,t2);} C_noret_decl(trf_19047) static void C_ccall trf_19047(C_word c,C_word *av) C_noret; static void C_ccall trf_19047(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19047(t0,t1,t2);} C_noret_decl(trf_19059) static void C_ccall trf_19059(C_word c,C_word *av) C_noret; static void C_ccall trf_19059(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19059(t0,t1,t2);} C_noret_decl(trf_19066) static void C_ccall trf_19066(C_word c,C_word *av) C_noret; static void C_ccall trf_19066(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19066(t0,t1);} C_noret_decl(trf_19070) static void C_ccall trf_19070(C_word c,C_word *av) C_noret; static void C_ccall trf_19070(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19070(t0,t1,t2);} C_noret_decl(trf_19137) static void C_ccall trf_19137(C_word c,C_word *av) C_noret; static void C_ccall trf_19137(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19137(t0,t1,t2);} C_noret_decl(trf_19171) static void C_ccall trf_19171(C_word c,C_word *av) C_noret; static void C_ccall trf_19171(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19171(t0,t1,t2);} C_noret_decl(trf_19236) static void C_ccall trf_19236(C_word c,C_word *av) C_noret; static void C_ccall trf_19236(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19236(t0,t1,t2);} C_noret_decl(trf_19289) static void C_ccall trf_19289(C_word c,C_word *av) C_noret; static void C_ccall trf_19289(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19289(t0,t1,t2);} C_noret_decl(trf_19323) static void C_ccall trf_19323(C_word c,C_word *av) C_noret; static void C_ccall trf_19323(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19323(t0,t1);} C_noret_decl(trf_19351) static void C_ccall trf_19351(C_word c,C_word *av) C_noret; static void C_ccall trf_19351(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19351(t0,t1,t2,t3);} C_noret_decl(trf_19371) static void C_ccall trf_19371(C_word c,C_word *av) C_noret; static void C_ccall trf_19371(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19371(t0,t1);} C_noret_decl(trf_19392) static void C_ccall trf_19392(C_word c,C_word *av) C_noret; static void C_ccall trf_19392(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19392(t0,t1);} C_noret_decl(trf_19437) static void C_ccall trf_19437(C_word c,C_word *av) C_noret; static void C_ccall trf_19437(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19437(t0,t1);} C_noret_decl(trf_19449) static void C_ccall trf_19449(C_word c,C_word *av) C_noret; static void C_ccall trf_19449(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19449(t0,t1,t2);} C_noret_decl(trf_19487) static void C_ccall trf_19487(C_word c,C_word *av) C_noret; static void C_ccall trf_19487(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_19487(t0,t1,t2,t3,t4);} C_noret_decl(trf_19737) static void C_ccall trf_19737(C_word c,C_word *av) C_noret; static void C_ccall trf_19737(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_19737(t0,t1,t2,t3,t4);} C_noret_decl(trf_19761) static void C_ccall trf_19761(C_word c,C_word *av) C_noret; static void C_ccall trf_19761(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19761(t0,t1);} C_noret_decl(trf_19832) static void C_ccall trf_19832(C_word c,C_word *av) C_noret; static void C_ccall trf_19832(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19832(t0,t1);} C_noret_decl(trf_19896) static void C_ccall trf_19896(C_word c,C_word *av) C_noret; static void C_ccall trf_19896(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19896(t0,t1);} C_noret_decl(trf_19900) static void C_ccall trf_19900(C_word c,C_word *av) C_noret; static void C_ccall trf_19900(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19900(t0,t1,t2);} C_noret_decl(trf_19956) static void C_ccall trf_19956(C_word c,C_word *av) C_noret; static void C_ccall trf_19956(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19956(t0,t1);} C_noret_decl(trf_19966) static void C_ccall trf_19966(C_word c,C_word *av) C_noret; static void C_ccall trf_19966(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19966(t0,t1,t2,t3);} C_noret_decl(trf_19985) static void C_ccall trf_19985(C_word c,C_word *av) C_noret; static void C_ccall trf_19985(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19985(t0,t1);} C_noret_decl(trf_20003) static void C_ccall trf_20003(C_word c,C_word *av) C_noret; static void C_ccall trf_20003(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20003(t0,t1,t2,t3);} C_noret_decl(trf_20044) static void C_ccall trf_20044(C_word c,C_word *av) C_noret; static void C_ccall trf_20044(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20044(t0,t1);} C_noret_decl(trf_20210) static void C_ccall trf_20210(C_word c,C_word *av) C_noret; static void C_ccall trf_20210(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_20210(t0,t1,t2,t3,t4);} C_noret_decl(trf_20213) static void C_ccall trf_20213(C_word c,C_word *av) C_noret; static void C_ccall trf_20213(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20213(t0,t1);} C_noret_decl(trf_20222) static void C_ccall trf_20222(C_word c,C_word *av) C_noret; static void C_ccall trf_20222(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20222(t0,t1,t2);} C_noret_decl(trf_20277) static void C_ccall trf_20277(C_word c,C_word *av) C_noret; static void C_ccall trf_20277(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20277(t0,t1);} C_noret_decl(trf_20285) static void C_ccall trf_20285(C_word c,C_word *av) C_noret; static void C_ccall trf_20285(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20285(t0,t1,t2);} C_noret_decl(trf_20319) static void C_ccall trf_20319(C_word c,C_word *av) C_noret; static void C_ccall trf_20319(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20319(t0,t1,t2);} C_noret_decl(trf_20367) static void C_ccall trf_20367(C_word c,C_word *av) C_noret; static void C_ccall trf_20367(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20367(t0,t1,t2);} C_noret_decl(trf_20411) static void C_ccall trf_20411(C_word c,C_word *av) C_noret; static void C_ccall trf_20411(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20411(t0,t1,t2,t3);} C_noret_decl(trf_20425) static void C_ccall trf_20425(C_word c,C_word *av) C_noret; static void C_ccall trf_20425(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20425(t0,t1,t2);} C_noret_decl(trf_20468) static void C_ccall trf_20468(C_word c,C_word *av) C_noret; static void C_ccall trf_20468(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20468(t0,t1,t2);} C_noret_decl(trf_20535) static void C_ccall trf_20535(C_word c,C_word *av) C_noret; static void C_ccall trf_20535(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20535(t0,t1,t2);} C_noret_decl(trf_20571) static void C_ccall trf_20571(C_word c,C_word *av) C_noret; static void C_ccall trf_20571(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20571(t0,t1,t2);} C_noret_decl(trf_20586) static void C_ccall trf_20586(C_word c,C_word *av) C_noret; static void C_ccall trf_20586(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20586(t0,t1,t2);} C_noret_decl(trf_20626) static void C_ccall trf_20626(C_word c,C_word *av) C_noret; static void C_ccall trf_20626(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20626(t0,t1);} C_noret_decl(trf_20652) static void C_ccall trf_20652(C_word c,C_word *av) C_noret; static void C_ccall trf_20652(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20652(t0,t1,t2,t3);} C_noret_decl(trf_20725) static void C_ccall trf_20725(C_word c,C_word *av) C_noret; static void C_ccall trf_20725(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20725(t0,t1,t2);} C_noret_decl(trf_20760) static void C_ccall trf_20760(C_word c,C_word *av) C_noret; static void C_ccall trf_20760(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20760(t0,t1);} C_noret_decl(trf_20796) static void C_ccall trf_20796(C_word c,C_word *av) C_noret; static void C_ccall trf_20796(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20796(t0,t1,t2);} C_noret_decl(trf_20857) static void C_ccall trf_20857(C_word c,C_word *av) C_noret; static void C_ccall trf_20857(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20857(t0,t1,t2);} C_noret_decl(trf_20953) static void C_ccall trf_20953(C_word c,C_word *av) C_noret; static void C_ccall trf_20953(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20953(t0,t1);} C_noret_decl(trf_20973) static void C_ccall trf_20973(C_word c,C_word *av) C_noret; static void C_ccall trf_20973(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20973(t0,t1,t2);} C_noret_decl(trf_21007) static void C_ccall trf_21007(C_word c,C_word *av) C_noret; static void C_ccall trf_21007(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21007(t0,t1,t2);} C_noret_decl(trf_21092) static void C_ccall trf_21092(C_word c,C_word *av) C_noret; static void C_ccall trf_21092(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21092(t0,t1);} C_noret_decl(trf_21132) static void C_ccall trf_21132(C_word c,C_word *av) C_noret; static void C_ccall trf_21132(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21132(t0,t1,t2);} C_noret_decl(trf_21144) static void C_ccall trf_21144(C_word c,C_word *av) C_noret; static void C_ccall trf_21144(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21144(t0,t1,t2);} C_noret_decl(trf_21197) static void C_ccall trf_21197(C_word c,C_word *av) C_noret; static void C_ccall trf_21197(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21197(t0,t1);} C_noret_decl(trf_21221) static void C_ccall trf_21221(C_word c,C_word *av) C_noret; static void C_ccall trf_21221(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21221(t0,t1);} C_noret_decl(trf_21251) static void C_ccall trf_21251(C_word c,C_word *av) C_noret; static void C_ccall trf_21251(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21251(t0,t1,t2);} C_noret_decl(trf_21301) static void C_ccall trf_21301(C_word c,C_word *av) C_noret; static void C_ccall trf_21301(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_21301(t0,t1,t2,t3);} C_noret_decl(trf_21315) static void C_ccall trf_21315(C_word c,C_word *av) C_noret; static void C_ccall trf_21315(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21315(t0,t1);} C_noret_decl(trf_21421) static void C_ccall trf_21421(C_word c,C_word *av) C_noret; static void C_ccall trf_21421(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21421(t0,t1);} C_noret_decl(trf_21472) static void C_ccall trf_21472(C_word c,C_word *av) C_noret; static void C_ccall trf_21472(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21472(t0,t1);} C_noret_decl(trf_21532) static void C_ccall trf_21532(C_word c,C_word *av) C_noret; static void C_ccall trf_21532(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21532(t0,t1);} C_noret_decl(trf_21535) static void C_ccall trf_21535(C_word c,C_word *av) C_noret; static void C_ccall trf_21535(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21535(t0,t1);} C_noret_decl(trf_21549) static void C_ccall trf_21549(C_word c,C_word *av) C_noret; static void C_ccall trf_21549(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21549(t0,t1,t2);} C_noret_decl(trf_21665) static void C_ccall trf_21665(C_word c,C_word *av) C_noret; static void C_ccall trf_21665(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21665(t0,t1);} C_noret_decl(trf_21746) static void C_ccall trf_21746(C_word c,C_word *av) C_noret; static void C_ccall trf_21746(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21746(t0,t1,t2);} C_noret_decl(trf_21896) static void C_ccall trf_21896(C_word c,C_word *av) C_noret; static void C_ccall trf_21896(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_21896(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_22035) static void C_ccall trf_22035(C_word c,C_word *av) C_noret; static void C_ccall trf_22035(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_22035(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_22170) static void C_ccall trf_22170(C_word c,C_word *av) C_noret; static void C_ccall trf_22170(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22170(t0,t1,t2,t3);} C_noret_decl(trf_22232) static void C_ccall trf_22232(C_word c,C_word *av) C_noret; static void C_ccall trf_22232(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22232(t0,t1,t2,t3);} C_noret_decl(trf_22352) static void C_ccall trf_22352(C_word c,C_word *av) C_noret; static void C_ccall trf_22352(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22352(t0,t1,t2,t3);} C_noret_decl(trf_22701) static void C_ccall trf_22701(C_word c,C_word *av) C_noret; static void C_ccall trf_22701(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22701(t0,t1,t2);} C_noret_decl(trf_22840) static void C_ccall trf_22840(C_word c,C_word *av) C_noret; static void C_ccall trf_22840(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_22840(t0,t1,t2,t3,t4);} C_noret_decl(trf_23015) static void C_ccall trf_23015(C_word c,C_word *av) C_noret; static void C_ccall trf_23015(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23015(t0,t1,t2);} C_noret_decl(trf_23072) static void C_ccall trf_23072(C_word c,C_word *av) C_noret; static void C_ccall trf_23072(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23072(t0,t1,t2);} C_noret_decl(trf_23133) static void C_ccall trf_23133(C_word c,C_word *av) C_noret; static void C_ccall trf_23133(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23133(t0,t1,t2);} C_noret_decl(trf_23198) static void C_ccall trf_23198(C_word c,C_word *av) C_noret; static void C_ccall trf_23198(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23198(t0,t1,t2);} C_noret_decl(trf_6802) static void C_ccall trf_6802(C_word c,C_word *av) C_noret; static void C_ccall trf_6802(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6802(t0,t1,t2,t3);} C_noret_decl(trf_6846) static void C_ccall trf_6846(C_word c,C_word *av) C_noret; static void C_ccall trf_6846(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6846(t0,t1,t2);} C_noret_decl(trf_6904) static void C_ccall trf_6904(C_word c,C_word *av) C_noret; static void C_ccall trf_6904(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_6904(t0,t1,t2,t3,t4);} C_noret_decl(trf_6937) static void C_ccall trf_6937(C_word c,C_word *av) C_noret; static void C_ccall trf_6937(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6937(t0,t1,t2,t3);} C_noret_decl(trf_6952) static void C_ccall trf_6952(C_word c,C_word *av) C_noret; static void C_ccall trf_6952(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6952(t0,t1,t2);} C_noret_decl(trf_6960) static void C_ccall trf_6960(C_word c,C_word *av) C_noret; static void C_ccall trf_6960(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6960(t0,t1,t2,t3);} C_noret_decl(trf_6992) static void C_ccall trf_6992(C_word c,C_word *av) C_noret; static void C_ccall trf_6992(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6992(t0,t1,t2);} C_noret_decl(trf_7024) static void C_ccall trf_7024(C_word c,C_word *av) C_noret; static void C_ccall trf_7024(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7024(t0,t1,t2);} C_noret_decl(trf_7073) static void C_ccall trf_7073(C_word c,C_word *av) C_noret; static void C_ccall trf_7073(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7073(t0,t1,t2);} C_noret_decl(trf_7107) static void C_ccall trf_7107(C_word c,C_word *av) C_noret; static void C_ccall trf_7107(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7107(t0,t1,t2);} C_noret_decl(trf_7113) static void C_ccall trf_7113(C_word c,C_word *av) C_noret; static void C_ccall trf_7113(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7113(t0,t1,t2);} C_noret_decl(trf_7141) static void C_ccall trf_7141(C_word c,C_word *av) C_noret; static void C_ccall trf_7141(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7141(t0,t1,t2);} C_noret_decl(trf_7147) static void C_ccall trf_7147(C_word c,C_word *av) C_noret; static void C_ccall trf_7147(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7147(t0,t1,t2);} C_noret_decl(trf_7177) static void C_ccall trf_7177(C_word c,C_word *av) C_noret; static void C_ccall trf_7177(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7177(t0,t1,t2,t3);} C_noret_decl(trf_7205) static void C_ccall trf_7205(C_word c,C_word *av) C_noret; static void C_ccall trf_7205(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7205(t0,t1,t2);} C_noret_decl(trf_7233) static void C_ccall trf_7233(C_word c,C_word *av) C_noret; static void C_ccall trf_7233(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7233(t0,t1,t2);} C_noret_decl(trf_7302) static void C_ccall trf_7302(C_word c,C_word *av) C_noret; static void C_ccall trf_7302(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7302(t0,t1,t2);} C_noret_decl(trf_7308) static void C_ccall trf_7308(C_word c,C_word *av) C_noret; static void C_ccall trf_7308(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7308(t0,t1,t2);} C_noret_decl(trf_7391) static void C_ccall trf_7391(C_word c,C_word *av) C_noret; static void C_ccall trf_7391(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7391(t0,t1,t2);} C_noret_decl(trf_7400) static void C_ccall trf_7400(C_word c,C_word *av) C_noret; static void C_ccall trf_7400(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7400(t0,t1,t2);} C_noret_decl(trf_7408) static void C_ccall trf_7408(C_word c,C_word *av) C_noret; static void C_ccall trf_7408(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7408(t0,t1,t2,t3);} C_noret_decl(trf_7473) static void C_ccall trf_7473(C_word c,C_word *av) C_noret; static void C_ccall trf_7473(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7473(t0,t1,t2);} C_noret_decl(trf_7572) static void C_ccall trf_7572(C_word c,C_word *av) C_noret; static void C_ccall trf_7572(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7572(t0,t1,t2,t3);} C_noret_decl(trf_7658) static void C_ccall trf_7658(C_word c,C_word *av) C_noret; static void C_ccall trf_7658(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7658(t0,t1,t2,t3);} C_noret_decl(trf_7683) static void C_ccall trf_7683(C_word c,C_word *av) C_noret; static void C_ccall trf_7683(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7683(t0,t1,t2,t3);} C_noret_decl(trf_7749) static void C_ccall trf_7749(C_word c,C_word *av) C_noret; static void C_ccall trf_7749(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7749(t0,t1,t2);} C_noret_decl(trf_7755) static void C_ccall trf_7755(C_word c,C_word *av) C_noret; static void C_ccall trf_7755(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7755(t0,t1,t2);} C_noret_decl(trf_7791) static void C_ccall trf_7791(C_word c,C_word *av) C_noret; static void C_ccall trf_7791(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7791(t0,t1,t2);} C_noret_decl(trf_7868) static void C_ccall trf_7868(C_word c,C_word *av) C_noret; static void C_ccall trf_7868(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7868(t0,t1,t2);} C_noret_decl(trf_7932) static void C_ccall trf_7932(C_word c,C_word *av) C_noret; static void C_ccall trf_7932(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7932(t0,t1,t2);} C_noret_decl(trf_8239) static void C_ccall trf_8239(C_word c,C_word *av) C_noret; static void C_ccall trf_8239(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8239(t0,t1,t2);} C_noret_decl(trf_8327) static void C_ccall trf_8327(C_word c,C_word *av) C_noret; static void C_ccall trf_8327(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8327(t0,t1,t2);} C_noret_decl(trf_8401) static void C_ccall trf_8401(C_word c,C_word *av) C_noret; static void C_ccall trf_8401(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8401(t0,t1,t2);} C_noret_decl(trf_8417) static void C_ccall trf_8417(C_word c,C_word *av) C_noret; static void C_ccall trf_8417(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8417(t0,t1);} C_noret_decl(trf_8440) static void C_ccall trf_8440(C_word c,C_word *av) C_noret; static void C_ccall trf_8440(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8440(t0,t1,t2,t3);} C_noret_decl(trf_8471) static void C_ccall trf_8471(C_word c,C_word *av) C_noret; static void C_ccall trf_8471(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_8471(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_8487) static void C_ccall trf_8487(C_word c,C_word *av) C_noret; static void C_ccall trf_8487(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8487(t0,t1);} C_noret_decl(trf_8596) static void C_ccall trf_8596(C_word c,C_word *av) C_noret; static void C_ccall trf_8596(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_8596(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_8632) static void C_ccall trf_8632(C_word c,C_word *av) C_noret; static void C_ccall trf_8632(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8632(t0,t1,t2);} C_noret_decl(trf_8698) static void C_ccall trf_8698(C_word c,C_word *av) C_noret; static void C_ccall trf_8698(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_8698(t0,t1,t2,t3,t4);} C_noret_decl(trf_8733) static void C_ccall trf_8733(C_word c,C_word *av) C_noret; static void C_ccall trf_8733(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8733(t0,t1);} C_noret_decl(trf_8770) static void C_ccall trf_8770(C_word c,C_word *av) C_noret; static void C_ccall trf_8770(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8770(t0,t1);} C_noret_decl(trf_8779) static void C_ccall trf_8779(C_word c,C_word *av) C_noret; static void C_ccall trf_8779(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8779(t0,t1);} C_noret_decl(trf_8782) static void C_ccall trf_8782(C_word c,C_word *av) C_noret; static void C_ccall trf_8782(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8782(t0,t1);} C_noret_decl(trf_8798) static void C_ccall trf_8798(C_word c,C_word *av) C_noret; static void C_ccall trf_8798(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8798(t0,t1,t2);} C_noret_decl(trf_8810) static void C_ccall trf_8810(C_word c,C_word *av) C_noret; static void C_ccall trf_8810(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8810(t0,t1,t2);} C_noret_decl(trf_8845) static void C_ccall trf_8845(C_word c,C_word *av) C_noret; static void C_ccall trf_8845(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8845(t0,t1);} C_noret_decl(trf_8913) static void C_ccall trf_8913(C_word c,C_word *av) C_noret; static void C_ccall trf_8913(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8913(t0,t1,t2);} C_noret_decl(trf_9072) static void C_ccall trf_9072(C_word c,C_word *av) C_noret; static void C_ccall trf_9072(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9072(t0,t1,t2);} C_noret_decl(trf_9095) static void C_ccall trf_9095(C_word c,C_word *av) C_noret; static void C_ccall trf_9095(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9095(t0,t1,t2);} C_noret_decl(trf_9101) static void C_ccall trf_9101(C_word c,C_word *av) C_noret; static void C_ccall trf_9101(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9101(t0,t1,t2);} C_noret_decl(trf_9220) static void C_ccall trf_9220(C_word c,C_word *av) C_noret; static void C_ccall trf_9220(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_9220(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_9298) static void C_ccall trf_9298(C_word c,C_word *av) C_noret; static void C_ccall trf_9298(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9298(t0,t1,t2);} C_noret_decl(trf_9337) static void C_ccall trf_9337(C_word c,C_word *av) C_noret; static void C_ccall trf_9337(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_9337(t0,t1,t2,t3,t4);} C_noret_decl(trf_9343) static void C_ccall trf_9343(C_word c,C_word *av) C_noret; static void C_ccall trf_9343(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9343(t0,t1,t2);} C_noret_decl(trf_9370) static void C_ccall trf_9370(C_word c,C_word *av) C_noret; static void C_ccall trf_9370(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9370(t0,t1,t2,t3);} C_noret_decl(trf_9393) static void C_ccall trf_9393(C_word c,C_word *av) C_noret; static void C_ccall trf_9393(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9393(t0,t1,t2);} C_noret_decl(trf_9408) static void C_ccall trf_9408(C_word c,C_word *av) C_noret; static void C_ccall trf_9408(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9408(t0,t1,t2);} C_noret_decl(trf_9466) static void C_ccall trf_9466(C_word c,C_word *av) C_noret; static void C_ccall trf_9466(C_word c,C_word *av){ C_word t0=av[8]; C_word t1=av[7]; C_word t2=av[6]; C_word t3=av[5]; C_word t4=av[4]; C_word t5=av[3]; C_word t6=av[2]; C_word t7=av[1]; C_word t8=av[0]; f_9466(t0,t1,t2,t3,t4,t5,t6,t7,t8);} C_noret_decl(trf_9677) static void C_ccall trf_9677(C_word c,C_word *av) C_noret; static void C_ccall trf_9677(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9677(t0,t1);} C_noret_decl(trf_9683) static void C_ccall trf_9683(C_word c,C_word *av) C_noret; static void C_ccall trf_9683(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9683(t0,t1);} C_noret_decl(trf_9718) static void C_ccall trf_9718(C_word c,C_word *av) C_noret; static void C_ccall trf_9718(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9718(t0,t1,t2,t3);} C_noret_decl(trf_9812) static void C_ccall trf_9812(C_word c,C_word *av) C_noret; static void C_ccall trf_9812(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9812(t0,t1,t2);} C_noret_decl(trf_9846) static void C_ccall trf_9846(C_word c,C_word *av) C_noret; static void C_ccall trf_9846(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9846(t0,t1,t2);} C_noret_decl(trf_9931) static void C_ccall trf_9931(C_word c,C_word *av) C_noret; static void C_ccall trf_9931(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_9931(t0,t1,t2,t3,t4);} C_noret_decl(trf_9961) static void C_ccall trf_9961(C_word c,C_word *av) C_noret; static void C_ccall trf_9961(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9961(t0,t1);} C_noret_decl(trf_9977) static void C_ccall trf_9977(C_word c,C_word *av) C_noret; static void C_ccall trf_9977(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9977(t0,t1);} /* f25846 in chicken.compiler.scrutinizer#make-list in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f25846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f25846,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f25952 in k22679 in k22675 in k22671 in k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f25952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f25952,2,av);} a=C_alloc(3); /* scrutinizer.scm:2891: string-add-indent */ f_20535(((C_word*)t0)[2],t1,C_a_i_list(&a,1,lf[315]));} /* f26161 in k20631 in map-loop4963 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f26161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f26161,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,lf[123],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f26629 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f26629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f26629,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f26761 in k19489 in known-length-vector-index in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f26761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f26761,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f26767 in k19588 in vector-ref-result-type in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f26767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f26767,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f26777 in k19836 */ static void C_ccall f26777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f26777,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f26785 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f26785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f26785,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f26825 in k20119 */ static void C_ccall f26825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f26825,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f26831 in k22932 in a22929 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f26831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f26831,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f26845 in k23277 in k23268 in a23265 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f26845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f26845,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f28121 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f28121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f28121,2,av);} t2=C_i_car(t1); /* scrutinizer.scm:2500: fragment */ f_21092(((C_word*)t0)[2],t2);} /* f28127 in k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in ... */ static void C_ccall f28127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f28127,2,av);} t2=C_i_car(t1); /* scrutinizer.scm:2500: fragment */ f_21092(((C_word*)t0)[2],t2);} /* f28147 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f28147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f28147,2,av);} t2=C_i_car(t1); /* scrutinizer.scm:2500: fragment */ f_21092(((C_word*)t0)[2],t2);} /* f28390 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f28390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f28390,2,av);} t2=C_i_car(t1); /* scrutinizer.scm:2500: fragment */ f_21092(((C_word*)t0)[2],t2);} /* f28396 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f28396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f28396,2,av);} t2=C_i_car(t1); /* scrutinizer.scm:2500: fragment */ f_21092(((C_word*)t0)[2],t2);} /* f28402 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f28402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f28402,2,av);} t2=C_i_car(t1); /* scrutinizer.scm:2500: fragment */ f_21092(((C_word*)t0)[2],t2);} /* k10002 in k10006 in k9956 in loop in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10004,2,av);} t2=((C_word*)t0)[2]; f_9977(t2,C_i_not(t1));} /* k10006 in k9956 in loop in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_10008,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[87]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10004,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:520: chicken.compiler.support#db-get */ t4=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[68]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=((C_word*)t0)[2]; f_9977(t3,C_SCHEME_FALSE);}} /* k10010 in loop in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10012,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10014,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:517: single */ f_8632(((C_word*)t0)[7],t1,t2);} /* a10013 in k10010 in loop in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_10014,3,av);} t3=lf[220]; /* scrutinizer.scm:518: g1382 */ t4=lf[220];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=t2; f_22229(7,av2);}} /* a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_10036,5,av);} a=C_alloc(20); t5=(C_truep(((C_word*)t0)[2])?C_a_i_list1(&a,1,((C_word*)t0)[2]):C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_10043,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t6,a[8]=((C_word*)t0)[7],a[9]=t3,a[10]=t2,a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=t4,a[15]=t1,a[16]=((C_word*)t0)[11],tmp=(C_word)a,a+=17,tmp); /* scrutinizer.scm:530: initial-argument-types */ t8=((C_word*)((C_word*)t0)[12])[1]; f_9370(t8,t7,((C_word*)t0)[2],t3);} /* k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_10043,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10046,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=t2,a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp); if(C_truep(((C_word*)t0)[14])){ /* scrutinizer.scm:531: scheme#append */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[226]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* scrutinizer.scm:531: scheme#append */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_10046,2,av);} a=C_alloc(29); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_10049,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10218,a[2]=((C_word*)t0)[16],a[3]=t3,a[4]=((C_word*)t0)[17],a[5]=t6,a[6]=t7,tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[14])){ /* scrutinizer.scm:533: chicken.base#butlast */ t9=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t9=t8;{ C_word *av2=av; av2[0]=t9; av2[1]=((C_word*)t0)[10]; f_10218(2,av2);}}} /* k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(49,c,4)))){ C_save_and_reclaim((void *)f_10049,2,av);} a=C_alloc(49); t2=t1; t3=(C_truep(((C_word*)t0)[2])?C_SCHEME_UNDEFINED:C_SCHEME_UNDEFINED); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_FALSE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_END_OF_LIST; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_FALSE; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_FALSE; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10057,a[2]=t11,a[3]=((C_word*)t0)[3],a[4]=t13,a[5]=((C_word*)t0)[4],a[6]=t15,a[7]=((C_word*)t0)[5],a[8]=t5,a[9]=t7,a[10]=t9,tmp=(C_word)a,a+=11,tmp); t17=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10066,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[2],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=t2,tmp=(C_word)a,a+=15,tmp); t18=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10196,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=((C_word*)t0)[4],a[6]=t9,a[7]=((C_word*)t0)[5],a[8]=t11,a[9]=t13,a[10]=t15,tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:538: ##sys#dynamic-wind */ t19=*((C_word*)lf[224]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t19; av2[1]=((C_word*)t0)[16]; av2[2]=t16; av2[3]=t17; av2[4]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}} /* a10056 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10057,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,2)))){ C_save_and_reclaim((void *)f_10066,2,av);} a=C_alloc(53); t2=( /* scrutinizer.scm:541: tag */ f_9332(C_a_i(&a,29),((C_word*)((C_word*)t0)[2])[1]) ); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10073,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t5=C_i_car(((C_word*)t0)[9]); t6=t5; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10183,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=t3,a[5]=((C_word*)t0)[12],a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[13])){ t8=((C_word*)t0)[13]; t9=C_a_i_cons(&a,2,t8,lf[47]); t10=t7; f_10183(t10,C_a_i_cons(&a,2,t9,((C_word*)t0)[14]));} else{ t8=t7; f_10183(t8,((C_word*)t0)[14]);}} /* k10071 in a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,5)))){ C_save_and_reclaim((void *)f_10073,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10080,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10088,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10090,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_10090(t8,t4,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k10078 in k10071 in a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10080,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10086 in k10071 in a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_10088,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* scrutinizer.scm:557: scheme#append */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[223]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* loop in k10071 in a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_10090(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){ C_save_and_reclaim_args((void *)trf_10090,5,t0,t1,t2,t3,t4);} a=C_alloc(13); t5=t2; if(C_truep(C_i_zerop(t5))){ t6=t4; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10098,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10171,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t6,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t8=C_i_car(t3); /* scrutinizer.scm:563: chicken.compiler.support#db-get */ t9=*((C_word*)lf[67]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[5]; av2[3]=t8; av2[4]=lf[68]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* k10096 in loop in k10071 in a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_fcall f_10098(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,4)))){ C_save_and_reclaim_args((void *)trf_10098,2,t0,t1);} a=C_alloc(33); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10102,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:562: g1469 */ t3=t2; f_10102(t3,((C_word*)t0)[6],t1);} else{ t2=C_i_car(((C_word*)t0)[4]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10149,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_s_a_i_minus(&a,2,t5,C_fix(1)); t7=((C_word*)t0)[3]; t8=C_u_i_cdr(t7); t9=((C_word*)t0)[4]; t10=C_u_i_cdr(t9); /* scrutinizer.scm:577: loop */ t11=((C_word*)((C_word*)t0)[5])[1]; f_10090(t11,t4,t6,t8,t10);}} /* g1469 in k10096 in loop in k10071 in a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_fcall f_10102(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_10102,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10110,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=C_i_cdr(t2); t5=C_eqp(t4,lf[53]); if(C_truep(t5)){ t6=t3; f_10110(t6,lf[53]);} else{ t6=t2; t7=t3; f_10110(t7,C_u_i_cdr(t6));}} /* k10108 in g1469 in k10096 in loop in k10071 in a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_10110(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,4)))){ C_save_and_reclaim_args((void *)trf_10110,2,t0,t1);} a=C_alloc(33); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10114,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_s_a_i_minus(&a,2,t4,C_fix(1)); t6=C_i_cdr(((C_word*)t0)[4]); t7=C_i_cdr(((C_word*)t0)[5]); /* scrutinizer.scm:573: loop */ t8=((C_word*)((C_word*)t0)[6])[1]; f_10090(t8,t3,t5,t6,t7);} /* k10112 in k10108 in g1469 in k10096 in loop in k10071 in a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_10114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10114,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10147 in k10096 in loop in k10071 in a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_10149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10149,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10169 in loop in k10071 in a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_10171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10171,2,av);} a=C_alloc(3); if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); t5=((C_word*)t0)[4]; f_10098(t5,C_i_assoc(t4,((C_word*)((C_word*)t0)[5])[1]));} else{ t2=((C_word*)t0)[4]; f_10098(t2,C_SCHEME_FALSE);}} /* k10181 in a10065 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_10183(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,8)))){ C_save_and_reclaim_args((void *)trf_10183,2,t0,t1);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_list1(&a,1,((C_word*)t0)[4]); /* scrutinizer.scm:542: walk */ t4=((C_word*)((C_word*)t0)[5])[1]; f_9466(t4,((C_word*)t0)[6],((C_word*)t0)[7],t1,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,t3,C_SCHEME_FALSE);} /* a10195 in k10047 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10196,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k10216 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_10218,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[6]); t3=C_i_check_list_2(((C_word*)t0)[2],lf[6]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10227,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10229,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_10229(t8,t4,t1,((C_word*)t0)[2]);} /* k10225 in k10216 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10227,2,av);} /* scrutinizer.scm:532: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1400 in k10216 in k10044 in k10041 in a10035 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_10229(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_10229,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_cons(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,8)))){ C_save_and_reclaim((void *)f_10300,2,av);} a=C_alloc(25); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_10303,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t2,a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10621,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[14],a[6]=((C_word*)t0)[16],a[7]=t3,tmp=(C_word)a,a+=8,tmp); t5=C_i_car(((C_word*)t0)[11]); /* scrutinizer.scm:582: walk */ t6=((C_word*)((C_word*)t0)[17])[1]; f_9466(t6,t4,t5,((C_word*)t0)[3],((C_word*)t0)[13],((C_word*)t0)[2],C_SCHEME_FALSE,((C_word*)t0)[7],C_SCHEME_FALSE);} /* k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_10303,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10306,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10610,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[13])){ /* scrutinizer.scm:586: type-typeenv */ t5=lf[161];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[13]; f_15882(3,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; f_10610(2,av2);}}} /* k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){ C_save_and_reclaim((void *)f_10306,2,av);} a=C_alloc(32); t2=t1; t3=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10312,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t4,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10558,a[2]=((C_word*)t0)[12],a[3]=t5,a[4]=((C_word*)t0)[15],a[5]=((C_word*)t0)[16],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[14],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[17],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)t0)[14])){ if(C_truep(C_i_not(t4))){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10581,a[2]=t6,a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[7],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t8=C_eqp(((C_word*)t0)[14],lf[59]); if(C_truep(t8)){ t9=t7; f_10581(t9,C_i_not(t8));} else{ if(C_truep(C_i_pairp(((C_word*)t0)[14]))){ t9=C_u_i_car(((C_word*)t0)[14]); t10=C_eqp(t9,lf[59]); t11=t7; f_10581(t11,C_i_not(t10));} else{ t9=t7; f_10581(t9,C_SCHEME_TRUE);}}} else{ t7=t6; f_10558(t7,C_SCHEME_FALSE);}} else{ t7=t6; f_10558(t7,C_SCHEME_FALSE);}} /* k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_10312,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10315,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10432,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[13],a[7]=((C_word*)t0)[11],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_not(((C_word*)t0)[14]))){ if(C_truep(C_i_not(((C_word*)t0)[6]))){ t4=C_eqp(lf[53],((C_word*)t0)[5]); if(C_truep(C_i_not(t4))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10551,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:599: chicken.compiler.support#db-get */ t6=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[11]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[252]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=t3; f_10432(t5,C_SCHEME_FALSE);}} else{ t4=t3; f_10432(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_10432(t4,C_SCHEME_FALSE);}} /* k10313 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_10315,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10318,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ t3=C_i_cdr(((C_word*)t0)[6]); t4=C_eqp(lf[35],t3); t5=(C_truep(t4)?C_i_setslot(((C_word*)t0)[6],C_fix(1),((C_word*)t0)[5]):C_SCHEME_UNDEFINED); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10335,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t7=((C_word*)t0)[10]; if(C_truep(t7)){ t8=t6; f_10335(t8,(C_truep(t7)?((C_word*)t0)[5]:lf[53]));} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10417,a[2]=t6,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:628: chicken.compiler.support#db-get */ t9=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[11]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[234]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_10318(2,av2);}}} /* k10316 in k10313 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10318,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10324,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8624,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:281: type-always-immediate? */ t5=lf[27];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; f_8071(3,av2);}} /* k10322 in k10316 in k10313 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(58,c,1)))){ C_save_and_reclaim((void *)f_10324,2,av);} a=C_alloc(58); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1))); t4=C_i_set_cdr(((C_word*)t0)[3],lf[230]); t5=lf[16]; t6=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=lf[231]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=lf[16]; t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=lf[231]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10333 in k10313 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_10335(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_10335,2,t0,t1);} a=C_alloc(9); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10343,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t6,tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_10343(t8,((C_word*)t0)[5],((C_word*)((C_word*)t0)[4])[1],C_SCHEME_FALSE);} /* loop in k10333 in k10313 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_10343(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_10343,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t5=((C_word*)((C_word*)t0)[4])[1]; t6=C_a_i_cons(&a,2,t4,((C_word*)t0)[5]); t7=C_a_i_cons(&a,2,t6,t5); t8=C_mutate(((C_word *)((C_word*)t0)[4])+1,t7); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10407,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=t3,tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:636: scheme#caaar */ t5=*((C_word*)lf[233]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k10368 in k10405 in loop in k10333 in k10313 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_10370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10370,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_i_set_cdr(t3,t1); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10389,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:641: scheme#cdaar */ t8=*((C_word*)lf[232]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k10387 in k10368 in k10405 in loop in k10333 in k10313 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_10389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10389,2,av);} t2=C_eqp(((C_word*)t0)[2],t1); /* scrutinizer.scm:641: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10343(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k10405 in loop in k10333 in k10313 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_10407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_10407,2,av);} a=C_alloc(15); t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10370,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_car(t4); t6=C_u_i_cdr(t5); t7=C_a_i_list(&a,3,lf[28],((C_word*)t0)[7],t6); /* scrutinizer.scm:637: simplify-type */ f_13475(t3,t7);} else{ t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* scrutinizer.scm:642: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_10343(t5,((C_word*)t0)[6],t4,((C_word*)t0)[8]);}} /* k10415 in k10313 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10417,2,av);} t2=C_i_not(t1); t3=((C_word*)t0)[2]; f_10335(t3,(C_truep(t2)?((C_word*)t0)[3]:lf[53]));} /* k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_10432(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_10432,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10435,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:600: chicken.compiler.support#db-get */ t3=*((C_word*)lf[67]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[251]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_10315(2,av2);}}} /* k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_10435,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10438,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_10438(2,av2);}} else{ /* scrutinizer.scm:601: chicken.compiler.support#db-get */ t3=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[250]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_10438,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)t0)[5]); t4=C_eqp(t1,t3); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10522,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:603: chicken.compiler.support#variable-visible? */ t6=*((C_word*)lf[249]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t5=t2; f_10447(t5,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_10315(2,av2);}}} /* k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_fcall f_10447(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_10447,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:606: chicken.compiler.support#tree-copy */ t3=*((C_word*)lf[246]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_10315(2,av2);}}} /* k10451 in k10496 in k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_10453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10453,2,av);} a=C_alloc(10); t2=C_i_cdar(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10459,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10469,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:609: chicken.base#open-output-string */ t6=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k10457 in k10451 in k10496 in k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_10459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10459,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10462,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:613: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[66]; av2[4]=lf[236]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10460 in k10457 in k10451 in k10496 in k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_10462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10462,2,av);} /* scrutinizer.scm:614: chicken.compiler.support#mark-variable */ t2=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[65]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10467 in k10451 in k10496 in k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_10469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_10469,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10475,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:609: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[243]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10473 in k10467 in k10451 in k10496 in k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_10475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10475,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10478,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:609: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10476 in k10473 in k10467 in k10451 in k10496 in k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_10478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10478,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10481,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:609: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10479 in k10476 in k10473 in k10467 in k10451 in k10496 in k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in ... */ static void C_ccall f_10481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10481,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10484,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:609: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10482 in k10479 in k10476 in k10473 in k10467 in k10451 in k10496 in k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in ... */ static void C_ccall f_10484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10484,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10487,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:609: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(41); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10485 in k10482 in k10479 in k10476 in k10473 in k10467 in k10451 in k10496 in k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in ... */ static void C_ccall f_10487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10487,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10490,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:609: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k10488 in k10485 in k10482 in k10479 in k10476 in k10473 in k10467 in k10451 in k10496 in k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in ... */ static void C_ccall f_10490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10490,2,av);} /* scrutinizer.scm:609: chicken.compiler.support#debugging */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[239]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k10496 in k10445 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_10498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_10498,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,t1); t3=C_a_i_list1(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10453,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:607: smash-component-types! */ f_11623(t5,t4);} /* k10516 in k10520 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_10518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10518,2,av);} t2=C_eqp(t1,lf[247]); t3=((C_word*)t0)[2]; f_10447(t3,C_i_not(t2));} /* k10520 in k10436 in k10433 in k10430 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_10522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10522,2,av);} a=C_alloc(3); t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_10447(t3,t2);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10518,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:604: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[248]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k10549 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10551,2,av);} t2=((C_word*)t0)[2]; f_10432(t2,C_i_not(t1));} /* k10556 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_10558(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_10558,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[9])){ t3=C_set_block_item(((C_word*)t0)[10],0,C_SCHEME_TRUE); t4=t2; f_10561(t4,t3);} else{ t3=t2; f_10561(t3,C_SCHEME_UNDEFINED);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_10312(2,av2);}}} /* k10559 in k10556 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_10561(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,14)))){ C_save_and_reclaim_args((void *)trf_10561,2,t0,t1);} a=C_alloc(15); t2=C_i_car(((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=((C_word*)t0)[7]; t8=((C_word*)t0)[8]; t9=C_a_i_list2(&a,2,t5,t2); t10=t9; t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22805,a[2]=t3,a[3]=t10,a[4]=t4,a[5]=t8,a[6]=t7,a[7]=t6,a[8]=t5,tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2951: scheme#string-append */ t12=*((C_word*)lf[76]+1);{ C_word av2[15]; av2[0]=t12; av2[1]=t11; av2[2]=lf[256]; av2[3]=lf[257]; av2[4]=lf[258]; av2[5]=lf[259]; av2[6]=lf[260]; av2[7]=lf[261]; av2[8]=lf[262]; av2[9]=lf[263]; av2[10]=lf[264]; av2[11]=lf[265]; av2[12]=lf[266]; av2[13]=lf[267]; av2[14]=lf[268]; ((C_proc)(void*)(*((C_word*)t12+1)))(15,av2);}} /* k10579 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_10581(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_10581,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10588,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:593: match-types */ t3=*((C_word*)lf[170]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[2]; f_10558(t2,C_SCHEME_FALSE);}} /* k10586 in k10579 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10588,2,av);} t2=((C_word*)t0)[2]; f_10558(t2,C_i_not(t1));} /* k10608 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10610,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10614,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:587: type-typeenv */ t4=lf[161];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; f_15882(3,av2);}} /* k10612 in k10608 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10614,2,av);} /* scrutinizer.scm:585: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k10619 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10621,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10623,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:582: single */ f_8632(((C_word*)t0)[7],t1,t2);} /* a10622 in k10619 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_10623,3,av);} t3=lf[269]; t4=C_i_car(((C_word*)t0)[2]); /* scrutinizer.scm:583: g1498 */ t5=lf[269];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t4; av2[6]=t2; f_22349(7,av2);}} /* k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,4)))){ C_save_and_reclaim((void *)f_10650,2,av);} a=C_alloc(38); t2=C_i_length(((C_word*)t0)[2]); t3=t2; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10657,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t9=((C_word*)t0)[2]; t10=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_10686,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[2],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=t3,a[18]=((C_word*)t0)[18],a[19]=t6,a[20]=t8,a[21]=t7,a[22]=t9,tmp=(C_word)a,a+=23,tmp); t11=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7929,tmp=(C_word)a,a+=2,tmp); /* mini-srfi-1.scm:225: list-tabulate */ f_7749(t10,t3,t11);} /* g1582 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_10657(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,8)))){ C_save_and_reclaim_args((void *)trf_10657,4,t0,t1,t2,t3);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10673,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10677,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=t4,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:658: walk */ t6=((C_word*)((C_word*)t0)[5])[1]; f_9466(t6,t5,t2,((C_word*)t0)[6],((C_word*)t0)[2],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],C_SCHEME_FALSE);} /* k10671 in g1582 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10673,2,av);} a=C_alloc(6); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* scrutinizer.scm:654: chicken.compiler.support#make-node */ t4=*((C_word*)lf[271]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[85]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10675 in g1582 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10677,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10679,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:657: single */ f_8632(((C_word*)t0)[7],t1,t2);} /* a10678 in k10675 in g1582 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_10679,3,av);} t3=lf[272]; /* scrutinizer.scm:659: g1603 */ t4=lf[272];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=t2; f_21942(7,av2);}} /* k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_10686,2,av);} a=C_alloc(27); t2=C_i_check_list_2(t1,lf[6]); t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10692,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],tmp=(C_word)a,a+=19,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11179,a[2]=((C_word*)t0)[19],a[3]=t5,a[4]=((C_word*)t0)[20],a[5]=((C_word*)t0)[21],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_11179(t7,t3,((C_word*)t0)[22],t1);} /* k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_10692,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_10695,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); t4=C_i_car(t2); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26629,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:166: chicken.compiler.support#node-parameters */ t7=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_10695,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_10698,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t2,a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp); /* scrutinizer.scm:664: procedure-name */ f_15143(t3,t2);} /* k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,3)))){ C_save_and_reclaim((void *)f_10698,2,av);} a=C_alloc(38); t2=t1; t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_10701,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=lf[25]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11139,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11141,a[2]=t6,a[3]=t11,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_11141(t13,t9,((C_word*)t0)[4]);} /* k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_10701,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_10704,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],tmp=(C_word)a,a+=23,tmp); if(C_truep(((C_word*)t0)[9])){ /* scrutinizer.scm:668: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; av2[3]=lf[278]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_10704(2,av2);}}} /* k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_10704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10704,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_10707,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t2,a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],tmp=(C_word)a,a+=24,tmp); if(C_truep(((C_word*)t0)[9])){ /* scrutinizer.scm:669: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; av2[3]=lf[165]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_10707(2,av2);}}} /* k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_10707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_10707,2,av);} a=C_alloc(29); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10712,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_10718,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],a[16]=t2,a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[4],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); /* scrutinizer.scm:670: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[23]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a10711 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_10712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10712,2,av);} /* scrutinizer.scm:671: call-result */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8698(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_10718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,8)))){ C_save_and_reclaim((void *)f_10718,4,av);} a=C_alloc(31); t4=t2; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10721,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10766,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[6],a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:681: walk */ t8=((C_word*)((C_word*)t0)[7])[1]; f_9466(t8,t7,((C_word*)t0)[8],((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[13]);} else{ t7=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_11122,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[16],a[14]=((C_word*)t0)[6],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[18],a[17]=t5,a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=t6,a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); /* scrutinizer.scm:688: chicken.compiler.support#node-class */ t8=*((C_word*)lf[88]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* smash in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_10721(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_10721,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10728,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_not(((C_word*)t0)[4]))){ t3=C_i_not(((C_word*)t0)[5]); if(C_truep(t3)){ t4=t2; f_10728(t4,t3);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10760,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:676: chicken.compiler.support#variable-mark */ t5=*((C_word*)lf[64]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=lf[274]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} else{ t3=t2; f_10728(t3,C_SCHEME_FALSE);}} /* k10726 in smash in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_10728(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_10728,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10731,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:678: smash-component-types! */ f_11623(t2,((C_word*)t0)[4]);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10729 in k10726 in smash in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_10731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10731,2,av);} /* scrutinizer.scm:679: smash-component-types! */ f_11623(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);} /* k10754 in k10758 in smash in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_10756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10756,2,av);} t2=((C_word*)t0)[2]; f_10728(t2,C_i_not(t1));} /* k10758 in smash in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_10760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10760,2,av);} a=C_alloc(3); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10756,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:677: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[273]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_10728(t2,C_SCHEME_FALSE);}} /* k10764 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_10766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10766,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10769,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:682: smash */ t3=((C_word*)t0)[5]; f_10721(t3,t2);} /* k10767 in k10764 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_10769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_10769,2,av);} a=C_alloc(16); t2=C_eqp(lf[53],((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10779,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t8=((C_word*)((C_word*)t0)[2])[1]; t9=C_i_check_list_2(t8,lf[6]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10791,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_10791(t13,((C_word*)t0)[3],t8);}} /* g1678 in k10767 in k10764 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_10779(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_10779,3,t0,t1,t2);} t3=lf[118]; /* scrutinizer.scm:687: g1695 */ t4=lf[118];{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; f_16257(4,av2);}} /* map-loop1672 in k10767 in k10764 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_10791(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10791,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10816,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:687: g1678 */ t5=((C_word*)t0)[4]; f_10779(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10814 in map-loop1672 in k10767 in k10764 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_10816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10816,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10791(t6,((C_word*)t0)[5],t5);} /* g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_10833(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,2)))){ C_save_and_reclaim_args((void *)trf_10833,4,t0,t1,t2,t3);} a=C_alloc(19); t4=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10997,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=t3,a[17]=((C_word*)t0)[14],a[18]=((C_word*)t0)[15],tmp=(C_word)a,a+=19,tmp); /* scrutinizer.scm:693: chicken.compiler.support#node-class */ t5=*((C_word*)lf[88]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in ... */ static void C_ccall f_10846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_10846,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10849,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],tmp=(C_word)a,a+=18,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_10849(2,av2);}} else{ /* scrutinizer.scm:695: chicken.base#alist-ref */ t3=*((C_word*)lf[277]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[18]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in ... */ static void C_ccall f_10849(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_10849,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10852,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp); /* scrutinizer.scm:696: resolve */ t4=lf[118];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[17]; av2[3]=((C_word*)t0)[9]; f_16257(4,av2);}} /* k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in ... */ static void C_ccall f_10852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_10852,2,av);} a=C_alloc(22); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=C_eqp(((C_word*)t0)[3],t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10858,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=t2,a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=t5,tmp=(C_word)a,a+=18,tmp); if(C_truep(((C_word*)t0)[9])){ if(C_truep(((C_word*)t0)[5])){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10982,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:700: chicken.compiler.support#db-get */ t8=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[13]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[68]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t7=t6; f_10858(t7,C_SCHEME_FALSE);}} else{ t7=t6; f_10858(t7,C_SCHEME_FALSE);}} /* k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in ... */ static void C_fcall f_10858(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_10858,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10864,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:705: resolve */ t3=lf[118];{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; f_16257(4,av2);}} else{ if(C_truep(((C_word*)t0)[2])){ if(C_truep(((C_word*)t0)[9])){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10914,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[10],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10942,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:723: chicken.compiler.support#db-get */ t4=*((C_word*)lf[67]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[12]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[68]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10948,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[15],a[5]=((C_word*)t0)[16],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[17])){ /* scrutinizer.scm:733: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[64]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[276]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_10948(2,av2);}}}}} /* k10862 in k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in ... */ static void C_ccall f_10864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_10864,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10870,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t4=C_i_car(((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10899,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=t5,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_not(((C_word*)t0)[2]))){ /* scrutinizer.scm:708: add-to-blist */ t7=((C_word*)((C_word*)t0)[4])[1]; f_9337(t7,t3,((C_word*)t0)[6],t5,t2);} else{ /* scrutinizer.scm:710: refine-types */ t7=*((C_word*)lf[275]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k10868 in k10862 in k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in ... */ static void C_ccall f_10870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_10870,2,av);} a=C_alloc(12); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10876,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t3=C_a_i_list(&a,2,lf[69],((C_word*)t0)[7]); /* scrutinizer.scm:716: refine-types */ t4=*((C_word*)lf[275]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10874 in k10868 in k10862 in k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in ... */ static void C_ccall f_10876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10876,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:720: add-to-blist */ t4=((C_word*)((C_word*)t0)[3])[1]; f_9337(t4,((C_word*)t0)[4],((C_word*)t0)[5],t3,t1);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k10897 in k10862 in k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in ... */ static void C_ccall f_10899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10899,2,av);} /* scrutinizer.scm:708: add-to-blist */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9337(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k10912 in k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in ... */ static void C_ccall f_10914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_10914,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10920,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t4=C_i_car(((C_word*)t0)[6]); /* scrutinizer.scm:728: add-to-blist */ t5=((C_word*)((C_word*)t0)[3])[1]; f_9337(t5,t3,((C_word*)t0)[5],t4,t2);} /* k10918 in k10912 in k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in ... */ static void C_ccall f_10920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_10920,2,av);} a=C_alloc(7); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_car(((C_word*)t0)[2]); /* scrutinizer.scm:730: add-to-blist */ t4=((C_word*)((C_word*)t0)[3])[1]; f_9337(t4,t2,((C_word*)t0)[5],t3,((C_word*)t0)[6]);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10924 in k10918 in k10912 in k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in ... */ static void C_ccall f_10926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10926,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:731: add-to-blist */ t4=((C_word*)((C_word*)t0)[3])[1]; f_9337(t4,((C_word*)t0)[4],((C_word*)t0)[5],t3,((C_word*)t0)[6]);} /* k10940 in k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in ... */ static void C_ccall f_10942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10942,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[53]; f_10914(2,av2);}} else{ /* scrutinizer.scm:725: refine-types */ t2=*((C_word*)lf[275]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k10946 in k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in ... */ static void C_ccall f_10948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10948,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:702: g1755 */ t3=t2; f_10952(t3,((C_word*)t0)[6],t1);} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g1755 in k10946 in k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in ... */ static void C_fcall f_10952(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_10952,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10960,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:738: srt */ t4=t2;{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k10958 in g1755 in k10946 in k10856 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in ... */ static void C_ccall f_10960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10960,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10980 in k10850 in k10847 in k10844 in k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in ... */ static void C_ccall f_10982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10982,2,av);} t2=C_i_not(t1); t3=((C_word*)t0)[2]; f_10858(t3,(C_truep(t2)?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE));} /* k10991 in k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_10993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_10993,2,av);} a=C_alloc(19); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10846,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp); /* scrutinizer.scm:695: blist-type */ t5=((C_word*)((C_word*)t0)[18])[1]; f_8440(t5,t4,t3,((C_word*)t0)[10]);} /* k10995 in g1709 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_10997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_10997,2,av);} a=C_alloc(19); t2=C_eqp(lf[87],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10993,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],tmp=(C_word)a,a+=19,tmp); /* scrutinizer.scm:694: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11004 in k11102 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_11006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11006,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11009,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:745: smash */ t3=((C_word*)t0)[5]; f_10721(t3,t2);} /* k11007 in k11004 in k11102 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_11009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_11009,2,av);} a=C_alloc(16); t2=C_eqp(lf[53],((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t2)){ t3=((C_word*)((C_word*)t0)[2])[1]; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11019,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t8=((C_word*)((C_word*)t0)[2])[1]; t9=C_i_check_list_2(t8,lf[6]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11031,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_11031(t13,((C_word*)t0)[3],t8);}} /* g1779 in k11007 in k11004 in k11102 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in ... */ static void C_fcall f_11019(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_11019,3,t0,t1,t2);} t3=lf[118]; /* scrutinizer.scm:748: g1796 */ t4=lf[118];{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; f_16257(4,av2);}} /* map-loop1773 in k11007 in k11004 in k11102 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in ... */ static void C_fcall f_11031(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11031,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11056,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:748: g1779 */ t5=((C_word*)t0)[4]; f_11019(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11054 in map-loop1773 in k11007 in k11004 in k11102 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in ... */ static void C_ccall f_11056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11056,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11031(t6,((C_word*)t0)[5],t5);} /* for-each-loop1708 in k11102 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_11065(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11065,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11075,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* scrutinizer.scm:691: g1709 */ t9=((C_word*)t0)[3]; f_10833(t9,t6,t7,t8);} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k11073 in for-each-loop1708 in k11102 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_11075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11075,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_11065(t4,((C_word*)t0)[5],t2,t3);} /* k11102 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_11104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_11104,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_i_check_list_2(((C_word*)t0)[3],lf[212]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11006,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11065,a[2]=t6,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_11065(t8,t4,((C_word*)t0)[3],t2);} /* a11105 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_11106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_11106,2,av);} a=C_alloc(5); t2=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1)); /* scrutinizer.scm:744: procedure-argument-types */ f_15308(t1,((C_word*)t0)[3],t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* a11113 in k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_11114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_11114,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_list_ref(t2,C_fix(0)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11120 in a10717 in k10705 in k10702 in k10699 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_11122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,8)))){ C_save_and_reclaim((void *)f_11122,2,av);} a=C_alloc(32); t2=C_eqp(lf[123],t1); if(C_truep(t2)){ /* scrutinizer.scm:689: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_9466(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} else{ t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10833,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[14],a[7]=((C_word*)t0)[15],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[16],a[10]=((C_word*)t0)[17],a[11]=((C_word*)t0)[4],a[12]=((C_word*)t0)[18],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[5],a[15]=((C_word*)t0)[19],tmp=(C_word)a,a+=16,tmp); t4=((C_word*)t0)[11]; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11104,a[2]=((C_word*)t0)[20],a[3]=t4,a[4]=((C_word*)t0)[17],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[14],a[7]=((C_word*)t0)[21],a[8]=t3,tmp=(C_word)a,a+=9,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11106,a[2]=((C_word*)t0)[22],a[3]=((C_word*)t0)[20],a[4]=((C_word*)t0)[14],tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11114,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:742: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t5; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}}} /* k11137 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11139,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[28],t1); /* scrutinizer.scm:665: type-typeenv */ t3=lf[161];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; f_15882(3,av2);}} /* map-loop1623 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11141(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11141,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11166,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:666: g1629 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11164 in map-loop1623 in k10696 in k10693 in k10690 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11166,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11141(t6,((C_word*)t0)[5],t5);} /* map-loop1576 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11179(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_11179,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11208,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* scrutinizer.scm:653: g1582 */ t9=((C_word*)t0)[4]; f_10657(t9,t6,t7,t8);} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k11206 in map-loop1576 in k10684 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11208,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=C_slot(((C_word*)t0)[4],C_fix(1)); t7=((C_word*)((C_word*)t0)[5])[1]; f_11179(t7,((C_word*)t0)[6],t5,t6);} /* k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,10)))){ C_save_and_reclaim((void *)f_11237,2,av);} a=C_alloc(36); t2=t1; t3=C_eqp(t2,lf[53]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11243,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ t5=C_a_i_list1(&a,1,((C_word*)t0)[2]); t6=lf[16]; t7=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t2))){ t5=C_i_car(((C_word*)t0)[4]); t6=t4; t7=((C_word*)t0)[5]; t8=t5; t9=((C_word*)t0)[2]; t10=C_a_i_list1(&a,1,t8); t11=t10; t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22589,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=t9,a[6]=t8,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2835: scheme#string-append */ t13=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t13; av2[1]=t12; av2[2]=lf[281]; av2[3]=lf[282]; av2[4]=lf[283]; av2[5]=lf[284]; av2[6]=lf[285]; av2[7]=lf[286]; av2[8]=lf[287]; ((C_proc)(void*)(*((C_word*)t13+1)))(9,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11262,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); t6=C_i_length(t2); if(C_truep(C_fixnum_greaterp(t6,C_fix(1)))){ t7=C_i_car(((C_word*)t0)[4]); t8=t5; t9=((C_word*)t0)[5]; t10=t7; t11=((C_word*)t0)[2]; t12=t2; t13=C_a_i_list1(&a,1,t10); t14=t13; t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22611,a[2]=t12,a[3]=t8,a[4]=t14,a[5]=t9,a[6]=t11,a[7]=t10,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2852: scheme#string-append */ t16=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=t16; av2[1]=t15; av2[2]=lf[304]; av2[3]=lf[305]; av2[4]=lf[306]; av2[5]=lf[307]; av2[6]=lf[308]; av2[7]=lf[309]; av2[8]=lf[310]; av2[9]=lf[311]; av2[10]=lf[312]; ((C_proc)(void*)(*((C_word*)t16+1)))(11,av2);}} else{ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_11262(2,av2);}}}}} /* k11241 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ C_save_and_reclaim((void *)f_11243,2,av);} a=C_alloc(32); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=lf[16]; t4=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11260 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_11262,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11268,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_cadr(((C_word*)t0)[10]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11293,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_car(((C_word*)t0)[3]); /* scrutinizer.scm:758: compatible-types? */ f_14682(t3,((C_word*)t0)[6],t4,C_SCHEME_END_OF_LIST);} else{ t3=t2; f_11268(t3,C_SCHEME_FALSE);}} /* k11266 in k11260 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11268(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,0,2)))){ C_save_and_reclaim_args((void *)trf_11268,2,t0,t1);} a=C_alloc(32); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11271,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[7])){ t3=C_set_block_item(((C_word*)t0)[8],0,C_SCHEME_TRUE); t4=t2; f_11271(t4,t3);} else{ t3=t2; f_11271(t3,C_SCHEME_UNDEFINED);}} else{ t2=C_a_i_list1(&a,1,((C_word*)t0)[6]); t3=lf[16]; t4=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t5=((C_word*)t0)[9];{ C_word av2[2]; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k11269 in k11266 in k11260 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11271(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,14)))){ C_save_and_reclaim_args((void *)trf_11271,2,t0,t1);} a=C_alloc(11); t2=C_i_car(((C_word*)t0)[2]); t3=C_i_car(((C_word*)t0)[3]); t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=t2; t7=t3; t8=((C_word*)t0)[6]; t9=C_a_i_list1(&a,1,t6); t10=t9; t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22637,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=t7,a[6]=t8,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2872: scheme#string-append */ t12=*((C_word*)lf[76]+1);{ C_word av2[15]; av2[0]=t12; av2[1]=t11; av2[2]=lf[289]; av2[3]=lf[290]; av2[4]=lf[291]; av2[5]=lf[292]; av2[6]=lf[293]; av2[7]=lf[294]; av2[8]=lf[295]; av2[9]=lf[296]; av2[10]=lf[297]; av2[11]=lf[298]; av2[12]=lf[299]; av2[13]=lf[300]; av2[14]=lf[301]; ((C_proc)(void*)(*((C_word*)t12+1)))(15,av2);}} /* k11291 in k11260 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11293,2,av);} t2=((C_word*)t0)[2]; f_11268(t2,C_i_not(t1));} /* k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_11325,2,av);} a=C_alloc(15); t2=t1; t3=lf[24]; t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_11328,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=t3,a[14]=((C_word*)t0)[12],tmp=(C_word)a,a+=15,tmp); t5=C_i_car(t2); /* scrutinizer.scm:765: type-typeenv */ t6=lf[161];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; f_15882(3,av2);}} /* k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_11328,2,av);} a=C_alloc(17); t2=t1; t3=C_i_cdr(((C_word*)t0)[2]); t4=C_i_cdr(((C_word*)t0)[3]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_11341,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=t6,a[13]=((C_word*)t0)[13],a[14]=t2,tmp=(C_word)a,a+=15,tmp)); t8=((C_word*)t6)[1]; f_11341(t8,((C_word*)t0)[14],t3,t4);} /* loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11341(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,18)))){ C_save_and_reclaim_args((void *)trf_11341,4,t0,t1,t2,t3);} a=C_alloc(20); if(C_truep(C_i_nullp(t2))){ t4=C_i_car(((C_word*)t0)[2]); t5=C_i_cdr(((C_word*)t0)[3]); t6=t1; t7=((C_word*)t0)[4]; t8=((C_word*)t0)[5]; t9=t4; t10=t5; t11=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22654,tmp=(C_word)a,a+=2,tmp); t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22669,a[2]=t6,a[3]=t11,a[4]=t10,a[5]=t9,a[6]=t8,a[7]=t7,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2893: scheme#string-append */ t13=*((C_word*)lf[76]+1);{ C_word av2[19]; av2[0]=t13; av2[1]=t12; av2[2]=lf[326]; av2[3]=lf[327]; av2[4]=lf[328]; av2[5]=lf[329]; av2[6]=lf[330]; av2[7]=lf[331]; av2[8]=lf[332]; av2[9]=lf[333]; av2[10]=lf[334]; av2[11]=lf[335]; av2[12]=lf[336]; av2[13]=lf[337]; av2[14]=lf[338]; av2[15]=lf[339]; av2[16]=lf[340]; av2[17]=lf[341]; av2[18]=lf[342]; ((C_proc)(void*)(*((C_word*)t13+1)))(19,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_11362,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=t3,a[12]=t2,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[2],tmp=(C_word)a,a+=16,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11400,a[2]=t4,a[3]=((C_word*)t0)[14],tmp=(C_word)a,a+=4,tmp); t6=C_i_car(t2); /* scrutinizer.scm:770: type-typeenv */ t7=lf[161];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; f_15882(3,av2);}}} /* k11360 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,5)))){ C_save_and_reclaim((void *)f_11362,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_11368,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=t2,tmp=(C_word)a,a+=16,tmp); t4=((C_word*)t0)[12]; t5=C_u_i_car(t4); t6=C_i_car(((C_word*)t0)[15]); /* scrutinizer.scm:771: match-types */ t7=*((C_word*)lf[170]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t3; av2[2]=t5; av2[3]=t6; av2[4]=t2; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} /* k11366 in k11360 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_11368,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11371,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=C_i_car(((C_word*)t0)[11]); /* scrutinizer.scm:773: mutate-node! */ f_17310(t2,((C_word*)t0)[4],t3);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11381,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:776: trail-restore */ f_16214(t2,((C_word*)t0)[14],((C_word*)t0)[15]);}} /* k11369 in k11366 in k11360 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_11371,2,av);} /* scrutinizer.scm:774: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9466(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k11379 in k11366 in k11360 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11381,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_i_cdr(((C_word*)t0)[3]); /* scrutinizer.scm:777: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_11341(t5,((C_word*)t0)[5],t3,t4);} /* k11398 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11400,2,av);} /* scrutinizer.scm:770: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* g1837 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11425(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){ C_save_and_reclaim_args((void *)trf_11425,3,t0,t1,t2);} /* scrutinizer.scm:781: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_9466(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],C_SCHEME_FALSE);} /* k11433 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_11435,2,av);} a=C_alloc(29); t2=lf[16]; t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=lf[53]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* for-each-loop1836 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11437(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11437,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11447,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:781: g1837 */ t5=((C_word*)t0)[3]; f_11425(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11445 in for-each-loop1836 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11447,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11437(t3,((C_word*)t0)[4],t2);} /* k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_11508,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11511,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(lf[23]))){ t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11546,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:789: chicken.compiler.support#with-debugging-output */ t5=*((C_word*)lf[359]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=lf[360]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_11511(2,av2);}}} /* k11509 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_11511,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)((C_word*)t0)[7])[1]; if(C_truep(C_i_positivep(t3))){ /* scrutinizer.scm:798: chicken.compiler.support#debugging */ t4=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[352]; av2[3]=lf[353]; av2[4]=((C_word*)((C_word*)t0)[7])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_11514(2,av2);}}} /* k11512 in k11509 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11514,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11517,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)((C_word*)t0)[6])[1]; if(C_truep(C_i_positivep(t3))){ /* scrutinizer.scm:800: chicken.compiler.support#debugging */ t4=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[350]; av2[3]=lf[351]; av2[4]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_11517(2,av2);}}} /* k11515 in k11512 in k11509 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11517,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11520,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)((C_word*)t0)[5])[1]; if(C_truep(C_i_positivep(t3))){ /* scrutinizer.scm:802: chicken.compiler.support#debugging */ t4=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[348]; av2[3]=lf[349]; av2[4]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_11520(2,av2);}}} /* k11518 in k11515 in k11512 in k11509 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11520,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11523,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ /* scrutinizer.scm:804: chicken.compiler.support#quit-compiling */ t3=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[347]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11521 in k11518 in k11515 in k11512 in k11509 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11523,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a11545 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11546,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11550,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:792: chicken.base#print */ t3=*((C_word*)lf[357]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[358]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11548 in a11545 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11550,2,av);} a=C_alloc(5); t2=lf[23]; t3=C_i_check_list_2(lf[23],lf[212]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11584,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_11584(t7,((C_word*)t0)[2],lf[23]);} /* k11556 in for-each-loop1861 in k11548 in a11545 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11558,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_cdr(((C_word*)t0)[4]); /* scrutinizer.scm:795: ##sys#print */ t4=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k11559 in k11556 in for-each-loop1861 in k11548 in a11545 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11561,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11564,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:795: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11562 in k11559 in k11556 in for-each-loop1861 in k11548 in a11545 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11564,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11567,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_u_i_car(((C_word*)t0)[4]); /* scrutinizer.scm:795: ##sys#print */ t4=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k11565 in k11562 in k11559 in k11556 in for-each-loop1861 in k11548 in a11545 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11567,2,av);} /* scrutinizer.scm:795: ##sys#write-char-0 */ t2=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop1861 in k11548 in a11545 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11584(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_11584,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11594,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=*((C_word*)lf[354]+1); t8=*((C_word*)lf[354]+1); t9=C_i_check_port_2(*((C_word*)lf[354]+1),C_fix(2),C_SCHEME_TRUE,lf[355]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11558,a[2]=t5,a[3]=t7,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:795: ##sys#print */ t11=*((C_word*)lf[242]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[356]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[354]+1); ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11592 in for-each-loop1861 in k11548 in a11545 in k11506 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11594,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11584(t3,((C_word*)t0)[4],t2);} /* k11619 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,8)))){ C_save_and_reclaim((void *)f_11621,2,av);} a=C_alloc(32); t2=C_i_car(t1); t3=( /* scrutinizer.scm:787: tag */ f_9332(C_a_i(&a,29),((C_word*)((C_word*)t0)[2])[1]) ); t4=C_a_i_list1(&a,1,t3); /* scrutinizer.scm:787: walk */ t5=((C_word*)((C_word*)t0)[3])[1]; f_9466(t5,((C_word*)t0)[4],t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,C_SCHEME_FALSE,t4,C_SCHEME_FALSE);} /* chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11623(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_11623,2,t1,t2);} a=C_alloc(5); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11629,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_11629(t6,t1,t2);} /* doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11629(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){ C_save_and_reclaim_args((void *)trf_11629,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11639,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_cdar(t2); t5=t2; t6=C_u_i_car(t5); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11651,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11659,a[2]=t9,tmp=(C_word)a,a+=3,tmp)); t11=((C_word*)t9)[1]; f_11659(t11,t3,t4,t7);}} /* k11637 in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11639,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)((C_word*)t0)[3])[1]; f_11629(t4,((C_word*)t0)[4],t3);} /* a11649 in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11651,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_setslot(((C_word*)t0)[2],C_fix(1),t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11659(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_11659,4,t0,t1,t2,t3);} a=C_alloc(16); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_car(t4); t6=C_eqp(t5,lf[361]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11679,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:822: change! */ t8=t3;{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[50]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=C_eqp(t5,lf[50]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11692,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11704,a[2]=t2,a[3]=t3,a[4]=t8,a[5]=t11,a[6]=t12,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:827: chicken.base#constantly */ t14=*((C_word*)lf[362]+1);{ C_word av2[3]; av2[0]=t14; av2[1]=t13; av2[2]=lf[53]; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} else{ t8=C_eqp(t5,lf[363]); t9=(C_truep(t8)?t8:C_eqp(t5,lf[47])); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11760,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:831: change! */ t11=t3;{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=lf[364]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t10=C_eqp(t5,lf[48]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11773,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t12=t2; t13=C_u_i_car(t12); /* scrutinizer.scm:835: change! */ t14=t3;{ C_word av2[3]; av2[0]=t14; av2[1]=t11; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} else{ t11=C_eqp(t5,lf[29]); if(C_truep(t11)){ t12=t2; t13=C_i_caddr(t12); t14=C_i_cddr(t2); t15=t14; t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11794,a[2]=t15,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:838: loop */ t18=t1; t19=t13; t20=t16; t1=t18; t2=t19; t3=t20; goto loop;} else{ t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}}}}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k11677 in loop in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11679,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11690 in loop in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11692,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11702 in loop in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_11704,2,av);} a=C_alloc(12); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_i_check_list_2(t4,lf[6]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11711,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11713,a[2]=((C_word*)t0)[5],a[3]=t8,a[4]=t2,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_11713(t10,t6,t4);} /* k11709 in k11702 in loop in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11711,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[50],t1); /* scrutinizer.scm:827: change! */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* map-loop1931 in k11702 in loop in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11713(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11713,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11738,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:827: g1937 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11736 in map-loop1931 in k11702 in loop in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11738,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11713(t6,((C_word*)t0)[5],t5);} /* k11758 in loop in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11760,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11771 in loop in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11773,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a11790 in loop in doloop1913 in chicken.compiler.scrutinizer#smash-component-types! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11794,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_set_car(((C_word*)t0)[2],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +15,c,2)))){ C_save_and_reclaim((void*)f_11815,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+15); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11819,a[2]=t5,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_nullp(t5))){ t7=C_a_i_list(&a,3,lf[28],t2,t3); /* scrutinizer.scm:846: type-typeenv */ t8=lf[161];{ C_word *av2=av; av2[0]=t8; av2[1]=t6; av2[2]=t7; f_15882(3,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=C_i_car(t5); f_11819(2,av2);}}} /* k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,4)))){ C_save_and_reclaim((void *)f_11819,2,av);} a=C_alloc(42); t2=t1; t3=C_i_nullp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_i_nullp(t4); t10=(C_truep(t9)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_SCHEME_UNDEFINED; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_SCHEME_UNDEFINED; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11830,a[2]=t14,a[3]=t22,tmp=(C_word)a,a+=4,tmp)); t24=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11961,a[2]=t22,tmp=(C_word)a,a+=3,tmp)); t25=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12024,a[2]=t8,a[3]=t16,a[4]=t22,tmp=(C_word)a,a+=5,tmp)); t26=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12092,a[2]=t8,a[3]=t22,tmp=(C_word)a,a+=4,tmp)); t27=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12114,a[2]=t22,tmp=(C_word)a,a+=3,tmp)); t28=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12150,a[2]=t2,a[3]=t18,a[4]=t22,a[5]=t8,a[6]=t16,a[7]=t12,a[8]=t20,tmp=(C_word)a,a+=9,tmp)); /* scrutinizer.scm:1081: match1 */ t29=((C_word*)t22)[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t29; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; f_12150(4,av2);}} /* match-args in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11830(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,6)))){ C_save_and_reclaim_args((void *)trf_11830,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11839,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_11839(t7,t1,t2,t3,C_SCHEME_FALSE,C_SCHEME_FALSE);} /* loop in match-args in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11839(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_11839,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t6=t5; if(C_truep(t6)){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_i_nullp(t3); if(C_truep(t7)){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_i_car(t3); t9=t1; t10=t9;{ C_word av2[2]; av2[0]=t10; av2[1]=C_u_i_memq(t8,lf[365]); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}} else{ if(C_truep(C_i_nullp(t3))){ t6=t4; if(C_truep(t6)){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_i_car(t2); t8=t1; t9=t8;{ C_word av2[2]; av2[0]=t9; av2[1]=C_u_i_memq(t7,lf[365]); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t6=C_i_car(t2); t7=C_eqp(lf[366],t6); if(C_truep(t7)){ t8=t2; t9=C_u_i_cdr(t8); /* scrutinizer.scm:859: loop */ t22=t1; t23=t9; t24=t3; t25=C_SCHEME_TRUE; t26=t5; t1=t22; t2=t23; t3=t24; t4=t25; t5=t26; goto loop;} else{ t8=C_i_car(t3); t9=C_eqp(lf[366],t8); if(C_truep(t9)){ t10=t3; t11=C_u_i_cdr(t10); /* scrutinizer.scm:861: loop */ t22=t1; t23=t2; t24=t11; t25=t4; t26=C_SCHEME_TRUE; t1=t22; t2=t23; t3=t24; t4=t25; t5=t26; goto loop;} else{ t10=t2; t11=C_u_i_car(t10); t12=C_eqp(lf[367],t11); if(C_truep(t12)){ t13=t2; t14=C_u_i_cdr(t13); t15=( /* scrutinizer.scm:863: rest-type */ f_15712(t14) ); /* scrutinizer.scm:863: match-rest */ t16=((C_word*)((C_word*)t0)[3])[1]; f_11961(t16,t1,t15,t3);} else{ t13=t3; t14=C_u_i_car(t13); t15=C_eqp(lf[367],t14); if(C_truep(t15)){ t16=t3; t17=C_u_i_cdr(t16); t18=( /* scrutinizer.scm:865: rest-type */ f_15712(t17) ); /* scrutinizer.scm:865: match-rest */ t19=((C_word*)((C_word*)t0)[3])[1]; f_11961(t19,t1,t18,t2);} else{ t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11936,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp); t17=t2; t18=C_u_i_car(t17); t19=t3; t20=C_u_i_car(t19); /* scrutinizer.scm:866: match1 */ t21=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t21; av2[1]=t16; av2[2]=t18; av2[3]=t20; f_12150(4,av2);}}}}}}}} /* k11934 in loop in match-args in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_11936,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* scrutinizer.scm:867: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_11839(t6,((C_word*)t0)[5],t3,t5,((C_word*)t0)[6],((C_word*)t0)[7]);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* match-rest in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_11961(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_11961,4,t0,t1,t2,t3);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11967,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11983,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:871: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a11966 in match-rest in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_11967,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11973,tmp=(C_word)a,a+=2,tmp); t3=t2; t4=((C_word*)t0)[2]; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6802,a[2]=t6,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_6802(t8,t1,t4,C_SCHEME_END_OF_LIST);} /* a11972 in a11966 in match-rest in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11973,3,av);} t3=C_eqp(lf[367],t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a11982 in match-rest in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_11983,4,av);} a=C_alloc(10); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11990,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12007,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:872: every */ f_7107(t5,t6,t2);} /* k11988 in a11982 in match-rest in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_11990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11990,2,av);} if(C_truep(t1)){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=C_u_i_cdr(((C_word*)t0)[2]); t3=( /* scrutinizer.scm:877: rest-type */ f_15712(t2) ); /* scrutinizer.scm:877: match1 */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; f_12150(4,av2);}} else{ /* scrutinizer.scm:877: match1 */ t2=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[53]; f_12150(4,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a12006 in a11982 in match-rest in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12007,3,av);} t3=C_eqp(lf[366],t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* scrutinizer.scm:875: match1 */ t4=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; f_12150(4,av2);}}} /* match-results in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12024(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_12024,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_eqp(lf[53],t2); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(lf[53],t3); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_not(((C_word*)((C_word*)t0)[2])[1]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t2))){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_nullp(t3); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t3))){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12058,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t7=C_i_car(t2); if(C_truep((C_truep(C_eqp(t7,lf[35]))?C_SCHEME_TRUE:(C_truep(C_eqp(t7,lf[70]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t8=C_i_car(t3); t9=t6; f_12058(t9,C_u_i_memq(t8,lf[370]));} else{ t8=t6; f_12058(t8,C_SCHEME_FALSE);}}}}}} /* k12056 in match-results in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12058(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_12058,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12067,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=C_i_car(((C_word*)t0)[4]); /* scrutinizer.scm:889: match1 */ t6=((C_word*)((C_word*)t0)[6])[1];{ C_word av2[4]; av2[0]=t6; av2[1]=t2; av2[2]=t4; av2[3]=t5; f_12150(4,av2);}}} /* k12065 in k12056 in match-results in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12067,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* scrutinizer.scm:890: match-results */ t6=((C_word*)((C_word*)t0)[4])[1]; f_12024(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* rawmatch1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12092(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){ C_save_and_reclaim_args((void *)trf_12092,4,t0,t1,t2,t3);} a=C_alloc(19); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_FALSE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12098,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12103,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12109,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:894: ##sys#dynamic-wind */ t11=*((C_word*)lf[224]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t1; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* a12097 in rawmatch1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12098,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a12102 in rawmatch1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12103,2,av);} /* scrutinizer.scm:895: match1 */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; f_12150(4,av2);}} /* a12108 in rawmatch1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12109,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* every-match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12114(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_12114,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12120,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_12120(t7,t1,t2,t3);} /* loop in every-match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12120(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_12120,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_nullp(t2); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12133,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t6=C_i_car(t2); t7=C_i_car(t3); /* scrutinizer.scm:900: match1 */ t8=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t8; av2[1]=t5; av2[2]=t6; av2[3]=t7; f_12150(4,av2);}}} /* k12131 in loop in every-match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12133,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* scrutinizer.scm:900: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_12120(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_12150,4,av);} a=C_alloc(11); t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_symbolp(t2); t6=(C_truep(t5)?C_i_assq(t2,((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12167,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:906: g2114 */ t8=t7; f_12167(t8,t1,t6);} else{ t7=C_i_symbolp(t3); t8=(C_truep(t7)?C_i_assq(t3,((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12299,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:906: g2147 */ t10=t9; f_12299(t10,t1,t8);} else{ t9=C_eqp(t2,lf[53]); if(C_truep(t9)){ t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(t3,lf[53]); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; av2[0]=t11; av2[1]=C_i_not(((C_word*)((C_word*)t0)[5])[1]); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_eqp(t2,lf[35]); if(C_truep(t11)){ t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(t3,lf[35]); if(C_truep(t12)){ t13=t1;{ C_word *av2=av; av2[0]=t13; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=C_eqp(t2,lf[70]); if(C_truep(t13)){ t14=t1;{ C_word *av2=av; av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=C_eqp(t3,lf[70]); if(C_truep(t14)){ t15=t1;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t15=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12412,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); t16=t2; if(C_truep(C_i_symbolp(t16))){ /* scrutinizer.scm:1247: chicken.base#alist-ref */ t17=*((C_word*)lf[277]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t17; av2[1]=t15; av2[2]=t16; av2[3]=lf[375]; av2[4]=*((C_word*)lf[376]+1); ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} else{ t17=t15;{ C_word *av2=av; av2[0]=t17; av2[1]=C_SCHEME_FALSE; f_12412(2,av2);}}}}}}}}}}}} /* g2114 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12167(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_12167,3,t0,t1,t2);} a=C_alloc(6); t3=t2; if(C_truep(C_i_cadr(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12180,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t5=t2; t6=C_i_cadr(t5); /* scrutinizer.scm:911: match1 */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t7; av2[1]=t4; av2[2]=t6; av2[3]=((C_word*)t0)[3]; f_12150(4,av2);}} else{ t4=C_i_symbolp(((C_word*)t0)[3]); t5=(C_truep(t4)?C_i_assq(((C_word*)t0)[3],((C_word*)t0)[5]):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12208,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:910: g2128 */ t7=t6; f_12208(t7,t1,t5);} else{ t6=t2; t7=C_i_caddr(t6); t8=C_i_not(t7); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12258,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); if(C_truep(t8)){ t10=t9;{ C_word av2[2]; av2[0]=t10; av2[1]=t8; f_12258(2,av2);}} else{ t10=t2; t11=C_i_caddr(t10); /* scrutinizer.scm:925: rawmatch1 */ t12=((C_word*)((C_word*)t0)[2])[1]; f_12092(t12,t9,t11,((C_word*)t0)[3]);}}}} /* k12178 in g2114 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12180,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); t4=C_i_not(t3); if(C_truep(t4)){ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=((C_word*)t0)[2]; t6=C_i_caddr(t5); /* scrutinizer.scm:913: rawmatch1 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_12092(t7,((C_word*)t0)[3],t6,((C_word*)t0)[5]);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g2128 in g2114 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12208(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_12208,3,t0,t1,t2);} a=C_alloc(6); t3=t2; t4=C_i_cadr(t3); t5=C_i_not(t4); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12221,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t7=t2; t8=C_i_cadr(t7); /* scrutinizer.scm:921: match1 */ t9=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=((C_word*)t0)[3]; av2[3]=t8; f_12150(4,av2);}}} /* k12219 in g2128 in g2114 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12221,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); t4=C_i_not(t3); if(C_truep(t4)){ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=((C_word*)t0)[2]; t6=C_i_caddr(t5); /* scrutinizer.scm:923: rawmatch1 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_12092(t7,((C_word*)t0)[3],((C_word*)t0)[5],t6);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12256 in g2114 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_12258,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],lf[24]); t3=C_mutate(&lf[24] /* (set! chicken.compiler.scrutinizer#trail ...) */,t2); t4=C_i_cdr(((C_word*)t0)[3]); t5=C_i_set_car(t4,((C_word*)t0)[4]); t6=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g2147 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12299(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_12299,3,t0,t1,t2);} a=C_alloc(6); t3=t2; if(C_truep(C_i_cadr(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12312,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t5=t2; t6=C_i_cadr(t5); /* scrutinizer.scm:934: match1 */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t6; f_12150(4,av2);}} else{ t4=t2; t5=C_i_caddr(t4); t6=C_i_not(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12342,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); if(C_truep(t6)){ t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=t6; f_12342(2,av2);}} else{ t8=t2; t9=C_i_caddr(t8); /* scrutinizer.scm:938: rawmatch1 */ t10=((C_word*)((C_word*)t0)[2])[1]; f_12092(t10,t7,((C_word*)t0)[3],t9);}}} /* k12310 in g2147 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12312,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); t4=C_i_not(t3); if(C_truep(t4)){ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=((C_word*)t0)[2]; t6=C_i_caddr(t5); /* scrutinizer.scm:936: rawmatch1 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_12092(t7,((C_word*)t0)[3],((C_word*)t0)[5],t6);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12340 in g2147 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_12342,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],lf[24]); t3=C_mutate(&lf[24] /* (set! chicken.compiler.scrutinizer#trail ...) */,t2); t4=C_i_cdr(((C_word*)t0)[3]); t5=C_i_set_car(t4,((C_word*)t0)[4]); t6=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_12412,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12416,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:906: g2175 */ t3=t2; f_12416(t3,((C_word*)t0)[4],t1);} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12426,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=((C_word*)t0)[3]; if(C_truep(C_i_symbolp(t3))){ /* scrutinizer.scm:1247: chicken.base#alist-ref */ t4=*((C_word*)lf[277]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=lf[375]; av2[4]=*((C_word*)lf[376]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_12426(2,av2);}}}} /* g2175 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12416(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_12416,3,t0,t1,t2);} /* scrutinizer.scm:950: g2183 */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; f_12150(4,av2);}} /* k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_12426,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12430,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:906: g2186 */ t3=t2; f_12430(t3,((C_word*)t0)[4],t1);} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12443,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=t2; f_12443(t5,C_eqp(lf[69],t4));} else{ t3=t2; f_12443(t3,C_SCHEME_FALSE);}}} /* g2186 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12430(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_12430,3,t0,t1,t2);} /* scrutinizer.scm:951: g2194 */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; f_12150(4,av2);}} /* k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12443(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ C_save_and_reclaim_args((void *)trf_12443,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ t2=C_i_not(((C_word*)((C_word*)t0)[2])[1]); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12451,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12456,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12472,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:953: ##sys#dynamic-wind */ t10=*((C_word*)lf[224]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=((C_word*)t0)[7]; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12481,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[6]))){ t3=((C_word*)t0)[6]; t4=C_u_i_car(t3); t5=t2; f_12481(t5,C_eqp(lf[69],t4));} else{ t3=t2; f_12481(t3,C_SCHEME_FALSE);}}} /* a12450 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12451,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a12455 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12456,2,av);} a=C_alloc(5); t2=lf[24]; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12460,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_cadr(((C_word*)t0)[3]); /* scrutinizer.scm:955: match1 */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[5]; f_12150(4,av2);}} /* k12458 in a12455 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12460,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12463,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:956: trail-restore */ f_16214(t3,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k12461 in k12458 in a12455 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12463,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a12471 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12472,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12481(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ C_save_and_reclaim_args((void *)trf_12481,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[2])[1]))){ t2=C_SCHEME_TRUE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12492,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12497,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12513,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:960: ##sys#dynamic-wind */ t9=*((C_word*)lf[224]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=((C_word*)t0)[7]; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t2=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12522,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t3=((C_word*)t0)[4]; t4=C_u_i_car(t3); t5=t2; f_12522(t5,C_eqp(lf[28],t4));} else{ t3=t2; f_12522(t3,C_SCHEME_FALSE);}}} /* a12491 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12492,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a12496 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12497,2,av);} a=C_alloc(5); t2=lf[24]; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12501,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_cadr(((C_word*)t0)[3]); /* scrutinizer.scm:962: match1 */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[5]; f_12150(4,av2);}} /* k12499 in a12496 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12501,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12504,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:963: trail-restore */ f_16214(t3,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k12502 in k12499 in a12496 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12504,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a12512 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12513,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12522(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){ C_save_and_reclaim_args((void *)trf_12522,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12531,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:968: over-all-instantiations */ f_20210(((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)((C_word*)t0)[7])[1],t3);} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12541,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t3=((C_word*)t0)[4]; t4=C_u_i_car(t3); t5=t2; f_12541(t5,C_eqp(lf[28],t4));} else{ t3=t2; f_12541(t3,C_SCHEME_FALSE);}}} /* a12530 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12531,3,av);} /* scrutinizer.scm:972: match1 */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; f_12150(4,av2);}} /* k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12541(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){ C_save_and_reclaim_args((void *)trf_12541,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12550,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:975: over-all-instantiations */ f_20210(((C_word*)t0)[5],t2,((C_word*)t0)[6],C_SCHEME_FALSE,t3);} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12560,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=t2; f_12560(t5,C_eqp(lf[29],t4));} else{ t3=t2; f_12560(t3,C_SCHEME_FALSE);}}} /* a12549 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_12550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12550,3,av);} /* scrutinizer.scm:979: match1 */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; f_12150(4,av2);}} /* k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12560(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_12560,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); /* scrutinizer.scm:981: match1 */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=t3; av2[3]=((C_word*)t0)[5]; f_12150(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12573,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); t5=t2; f_12573(t5,C_eqp(lf[29],t4));} else{ t3=t2; f_12573(t3,C_SCHEME_FALSE);}}} /* k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12573(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_12573,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); /* scrutinizer.scm:983: match1 */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; f_12150(4,av2);}} else{ t2=C_eqp(lf[84],((C_word*)t0)[5]); if(C_truep(t2)){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=C_eqp(lf[84],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=C_eqp(lf[84],((C_word*)t0)[2]); if(C_truep(t3)){ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[6])[1]))){ if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t4=((C_word*)t0)[5]; t5=C_u_i_car(t4); t6=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t6; av2[1]=C_eqp(lf[84],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=C_eqp(((C_word*)t0)[5],lf[31]); if(C_truep(t4)){ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[6])[1]))){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t5=((C_word*)t0)[2]; t6=C_u_i_car(t5); t7=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t7; av2[1]=C_eqp(lf[363],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=C_eqp(((C_word*)t0)[2],lf[31]); if(C_truep(t5)){ if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t6=((C_word*)t0)[5]; t7=C_u_i_car(t6); t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=C_eqp(lf[363],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12666,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t7=((C_word*)t0)[5]; t8=C_u_i_car(t7); t9=((C_word*)t0)[2]; t10=C_u_i_car(t9); t11=t6; f_12666(t11,C_eqp(t8,t10));} else{ t7=t6; f_12666(t7,C_SCHEME_FALSE);}} else{ t7=t6; f_12666(t7,C_SCHEME_FALSE);}}}}}}} /* k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_12666(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_12666,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(t2,lf[84]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12678,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:997: procedure-arguments */ f_15194(t4,((C_word*)t0)[2]);} else{ t4=C_eqp(t2,lf[52]); if(C_truep(t4)){ t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=C_i_equalp(((C_word*)t0)[2],((C_word*)t0)[6]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(t2,lf[48]); if(C_truep(t5)){ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_i_cdr(((C_word*)t0)[6]); /* scrutinizer.scm:1004: every-match1 */ t9=((C_word*)((C_word*)t0)[7])[1]; f_12114(t9,((C_word*)t0)[4],t7,t8);} else{ t6=C_eqp(t2,lf[363]); t7=(C_truep(t6)?t6:C_eqp(t2,lf[361])); if(C_truep(t7)){ t8=((C_word*)t0)[2]; t9=C_i_cadr(t8); t10=((C_word*)t0)[6]; t11=C_i_cadr(t10); /* scrutinizer.scm:1005: match1 */ t12=((C_word*)((C_word*)t0)[8])[1];{ C_word av2[4]; av2[0]=t12; av2[1]=((C_word*)t0)[4]; av2[2]=t9; av2[3]=t11; f_12150(4,av2);}} else{ t8=C_eqp(t2,lf[47]); t9=(C_truep(t8)?t8:C_eqp(t2,lf[50])); if(C_truep(t9)){ t10=C_i_length(((C_word*)t0)[2]); t11=C_i_length(((C_word*)t0)[6]); t12=C_eqp(t10,t11); if(C_truep(t12)){ t13=C_i_cdr(((C_word*)t0)[2]); t14=C_i_cdr(((C_word*)t0)[6]); /* scrutinizer.scm:1008: every-match1 */ t15=((C_word*)((C_word*)t0)[7])[1]; f_12114(t15,((C_word*)t0)[4],t13,t14);} else{ t13=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t13; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ t10=C_eqp(t2,lf[374]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12786,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t12=((C_word*)t0)[2]; t13=C_i_caddr(t12); t14=((C_word*)t0)[6]; t15=C_i_caddr(t14); /* scrutinizer.scm:1010: match1 */ t16=((C_word*)((C_word*)t0)[8])[1];{ C_word av2[4]; av2[0]=t16; av2[1]=t11; av2[2]=t13; av2[3]=t15; f_12150(4,av2);}} else{ t11=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12839,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=t2; f_12839(t5,C_eqp(lf[374],t4));} else{ t3=t2; f_12839(t3,C_SCHEME_FALSE);}}} /* k12676 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_12678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_12678,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12681,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:998: procedure-arguments */ f_15194(t3,((C_word*)t0)[5]);} /* k12679 in k12676 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_12681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_12681,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:999: procedure-results */ f_15251(t3,((C_word*)t0)[7]);} /* k12682 in k12679 in k12676 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_12684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_12684,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12687,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:1000: procedure-results */ f_15251(t3,((C_word*)t0)[7]);} /* k12685 in k12682 in k12679 in k12676 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_12687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_12687,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1001: match-args */ t4=((C_word*)((C_word*)t0)[5])[1]; f_11830(t4,t3,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k12691 in k12685 in k12682 in k12679 in k12676 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_12693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12693,2,av);} if(C_truep(t1)){ /* scrutinizer.scm:1002: match-results */ t2=((C_word*)((C_word*)t0)[2])[1]; f_12024(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12784 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_12786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_12786,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_i_not(((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=((C_word*)t0)[4]; t4=C_i_cadr(t3); t5=((C_word*)t0)[5]; t6=C_i_cadr(t5); t7=((C_word*)t0)[3]; t8=t6; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7785,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:193: every */ f_7107(t7,t9,t4);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_fcall f_12839(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_12839,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[2])[1]))){ t2=((C_word*)t0)[3]; t3=C_i_caddr(t2); /* scrutinizer.scm:1015: match1 */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=((C_word*)t0)[6]; f_12150(4,av2);}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12858,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[6]))){ t3=((C_word*)t0)[6]; t4=C_u_i_car(t3); t5=t2; f_12858(t5,C_eqp(lf[374],t4));} else{ t3=t2; f_12858(t3,C_SCHEME_FALSE);}}} /* k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_fcall f_12858(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_12858,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); /* scrutinizer.scm:1017: match1 */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; f_12150(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12871,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); t5=t2; f_12871(t5,C_eqp(lf[48],t4));} else{ t3=t2; f_12871(t3,C_SCHEME_FALSE);}}} /* k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_12871(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_12871,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_eqp(t3,lf[363]); if(C_truep(t4)){ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[3])[1]))){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12896,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t6=((C_word*)t0)[4]; t7=C_i_cadr(t6); t8=((C_word*)t0)[2]; t9=C_i_cadr(t8); /* scrutinizer.scm:1023: match1 */ t10=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[4]; av2[0]=t10; av2[1]=t5; av2[2]=t7; av2[3]=t9; f_12150(4,av2);}} else{ t5=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=C_eqp(t3,lf[47]); if(C_truep(t5)){ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); if(C_truep(C_i_pairp(t7))){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12929,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t9=((C_word*)t0)[4]; t10=C_i_cadr(t9); t11=((C_word*)t0)[2]; t12=C_i_cadr(t11); /* scrutinizer.scm:1027: match1 */ t13=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[4]; av2[0]=t13; av2[1]=t8; av2[2]=t10; av2[3]=t12; f_12150(4,av2);}} else{ t8=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t6=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} else{ t2=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12973,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=t2; f_12973(t5,C_eqp(lf[48],t4));} else{ t3=t2; f_12973(t3,C_SCHEME_FALSE);}}} /* k12894 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_12896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12896,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); /* scrutinizer.scm:1024: match1 */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=t3; av2[3]=((C_word*)t0)[5]; f_12150(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12927 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_12929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_12929,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); t4=C_i_cddr(((C_word*)t0)[3]); if(C_truep(C_i_nullp(t4))){ /* scrutinizer.scm:1028: match1 */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=lf[31]; f_12150(4,av2);}} else{ t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); t8=C_a_i_cons(&a,2,lf[47],t7); /* scrutinizer.scm:1028: match1 */ t9=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t8; f_12150(4,av2);}}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12971 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_12973(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_12973,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_eqp(t3,lf[363]); if(C_truep(t4)){ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[3])[1]))){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12998,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t6=((C_word*)t0)[2]; t7=C_i_cadr(t6); t8=((C_word*)t0)[4]; t9=C_i_cadr(t8); /* scrutinizer.scm:1038: match1 */ t10=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[4]; av2[0]=t10; av2[1]=t5; av2[2]=t7; av2[3]=t9; f_12150(4,av2);}} else{ t5=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=C_eqp(t3,lf[47]); if(C_truep(t5)){ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); if(C_truep(C_i_pairp(t7))){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13031,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t9=((C_word*)t0)[2]; t10=C_i_cadr(t9); t11=((C_word*)t0)[4]; t12=C_i_cadr(t11); /* scrutinizer.scm:1042: match1 */ t13=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[4]; av2[0]=t13; av2[1]=t8; av2[2]=t10; av2[3]=t12; f_12150(4,av2);}} else{ t8=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t6=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} else{ t2=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13075,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=t2; f_13075(t5,C_eqp(lf[47],t4));} else{ t3=t2; f_13075(t3,C_SCHEME_FALSE);}}} /* k12996 in k12971 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_12998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12998,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); /* scrutinizer.scm:1039: match1 */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; f_12150(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k13029 in k12971 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_13031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_13031,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t2))){ t3=((C_word*)t0)[3]; t4=C_i_caddr(t3); /* scrutinizer.scm:1043: match1 */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=lf[31]; av2[3]=t4; f_12150(4,av2);}} else{ t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_cdr(t4); t6=C_a_i_cons(&a,2,lf[47],t5); t7=((C_word*)t0)[3]; t8=C_i_caddr(t7); /* scrutinizer.scm:1043: match1 */ t9=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=((C_word*)t0)[5]; av2[2]=t6; av2[3]=t8; f_12150(4,av2);}}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k13073 in k12971 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_13075(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_13075,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[2])[1]))){ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=C_eqp(lf[363],t3); if(C_truep(t4)){ t5=C_i_cdr(((C_word*)t0)[4]); t6=((C_word*)t0)[3]; t7=C_i_cadr(t6); t8=t7; t9=((C_word*)((C_word*)t0)[5])[1]; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13105,a[2]=t9,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1051: over-all-instantiations */ f_20210(((C_word*)t0)[6],t5,((C_word*)t0)[7],C_SCHEME_TRUE,t10);} else{ t5=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13117,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t3=((C_word*)t0)[4]; t4=C_u_i_car(t3); t5=t2; f_13117(t5,C_eqp(lf[363],t4));} else{ t3=t2; f_13117(t3,C_SCHEME_FALSE);}}} /* a13101 in k13073 in k12971 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_13105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13105,3,av);} /* scrutinizer.scm:1055: g23012302 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k13115 in k13073 in k12971 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in ... */ static void C_fcall f_13117(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_13117,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_eqp(lf[47],t3); if(C_truep(t4)){ t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=((C_word*)t0)[3]; t8=C_i_cadr(t7); t9=t8; t10=((C_word*)((C_word*)t0)[4])[1]; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13139,a[2]=t10,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1058: over-all-instantiations */ f_20210(((C_word*)t0)[5],t6,((C_word*)t0)[6],C_SCHEME_TRUE,t11);} else{ t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13151,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=t2; f_13151(t5,C_eqp(lf[50],t4));} else{ t3=t2; f_13151(t3,C_SCHEME_FALSE);}}} /* a13135 in k13115 in k13073 in k12971 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in ... */ static void C_ccall f_13139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13139,3,av);} /* scrutinizer.scm:1062: g23162317 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k13149 in k13115 in k13073 in k12971 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in ... */ static void C_fcall f_13151(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ C_save_and_reclaim_args((void *)trf_13151,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[2])[1]))){ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=C_eqp(lf[361],t3); if(C_truep(t4)){ t5=C_i_cdr(((C_word*)t0)[4]); t6=((C_word*)t0)[3]; t7=C_i_cadr(t6); t8=t7; t9=((C_word*)((C_word*)t0)[5])[1]; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13181,a[2]=t9,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1066: over-all-instantiations */ f_20210(((C_word*)t0)[6],t5,((C_word*)t0)[7],C_SCHEME_TRUE,t10);} else{ t5=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13193,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t3=((C_word*)t0)[4]; t4=C_u_i_car(t3); t5=t2; f_13193(t5,C_eqp(lf[361],t4));} else{ t3=t2; f_13193(t3,C_SCHEME_FALSE);}}} /* a13177 in k13149 in k13115 in k13073 in k12971 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in ... */ static void C_ccall f_13181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13181,3,av);} /* scrutinizer.scm:1070: g23322333 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k13191 in k13149 in k13115 in k13073 in k12971 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in ... */ static void C_fcall f_13193(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_13193,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_eqp(lf[50],t3); if(C_truep(t4)){ t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=((C_word*)t0)[3]; t8=C_i_cadr(t7); t9=t8; t10=((C_word*)((C_word*)t0)[4])[1]; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13215,a[2]=t10,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1073: over-all-instantiations */ f_20210(((C_word*)t0)[5],t6,((C_word*)t0)[6],C_SCHEME_TRUE,t11);} else{ t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a13211 in k13191 in k13149 in k13115 in k13073 in k12971 in k12869 in k12856 in k12837 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in ... */ static void C_ccall f_13215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13215,3,av);} /* scrutinizer.scm:1077: g23472348 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.compiler.scrutinizer#match-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_13403(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_13403,4,t1,t2,t3,t4);} a=C_alloc(6); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13409,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_13409(t8,t1,t2,t3);} /* loop in chicken.compiler.scrutinizer#match-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_13409(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){ C_save_and_reclaim_args((void *)trf_13409,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_nullp(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_equalp(lf[377],t2); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t2); t6=C_eqp(t5,lf[367]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13442,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1094: every */ f_7107(t1,t7,t3);} else{ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13456,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t8=t2; t9=C_u_i_car(t8); t10=C_i_car(t3); /* scrutinizer.scm:1098: match-types */ t11=*((C_word*)lf[170]+1);{ C_word av2[6]; av2[0]=t11; av2[1]=t7; av2[2]=t9; av2[3]=t10; av2[4]=((C_word*)t0)[2]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}}}}}} /* a13441 in loop in chicken.compiler.scrutinizer#match-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_13442,3,av);} t3=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:1096: match-types */ t4=*((C_word*)lf[170]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=t2; av2[4]=((C_word*)t0)[3]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k13454 in loop in chicken.compiler.scrutinizer#match-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13456,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* scrutinizer.scm:1099: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_13409(t6,((C_word*)t0)[5],t3,t5);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_13475(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ C_save_and_reclaim_args((void *)trf_13475,2,t1,t2);} a=C_alloc(21); t3=C_SCHEME_END_OF_LIST; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_END_OF_LIST; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_END_OF_LIST; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13478,a[2]=t4,a[3]=t6,a[4]=t10,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14375,a[2]=t8,a[3]=t1,a[4]=t6,a[5]=t10,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1229: simplify */ t13=((C_word*)t10)[1];{ C_word av2[3]; av2[0]=t13; av2[1]=t12; av2[2]=t2; f_13478(3,av2);}} /* simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_13478,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13484,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1114: chicken.base#call/cc */ t4=*((C_word*)lf[167]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_13484,3,av);} a=C_alloc(24); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[29]); if(C_truep(t5)){ t6=((C_word*)t0)[2]; t7=C_i_cadr(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13505,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=t8,tmp=(C_word)a,a+=8,tmp); t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t11=t10; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=((C_word*)t12)[1]; t14=C_i_check_list_2(t8,lf[6]); t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13557,a[2]=t9,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13559,a[2]=t12,a[3]=t17,a[4]=t13,tmp=(C_word)a,a+=5,tmp)); t19=((C_word*)t17)[1]; f_13559(t19,t15,t8);} else{ t6=C_eqp(t4,lf[28]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13600,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=((C_word*)((C_word*)t0)[5])[1]; t13=((C_word*)t0)[2]; t14=C_u_i_cdr(t13); t15=C_i_check_list_2(t14,lf[6]); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13908,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13910,a[2]=t10,a[3]=t18,a[4]=t12,a[5]=t11,tmp=(C_word)a,a+=6,tmp)); t20=((C_word*)t18)[1]; f_13910(t20,t16,t14);} else{ t7=C_eqp(t4,lf[374]); if(C_truep(t7)){ t8=((C_word*)t0)[2]; t9=C_i_cadr(t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13954,a[2]=t10,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t12=((C_word*)t0)[2]; t13=C_i_caddr(t12); /* scrutinizer.scm:1184: simplify */ t14=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2=av; av2[0]=t14; av2[1]=t11; av2[2]=t13; f_13478(3,av2);}} else{ t8=C_eqp(t4,lf[48]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14001,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t10=((C_word*)t0)[2]; t11=C_i_cadr(t10); /* scrutinizer.scm:1191: simplify */ t12=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2=av; av2[0]=t12; av2[1]=t9; av2[2]=t11; f_13478(3,av2);}} else{ t9=C_eqp(t4,lf[361]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14040,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t11=((C_word*)t0)[2]; t12=C_i_cadr(t11); /* scrutinizer.scm:1198: simplify */ t13=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2=av; av2[0]=t13; av2[1]=t10; av2[2]=t12; f_13478(3,av2);}} else{ t10=C_eqp(t4,lf[363]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14064,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t12=((C_word*)t0)[2]; t13=C_i_cadr(t12); /* scrutinizer.scm:1203: simplify */ t14=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2=av; av2[0]=t14; av2[1]=t11; av2[2]=t13; f_13478(3,av2);}} else{ t11=C_eqp(t4,lf[47]); if(C_truep(t11)){ t12=((C_word*)t0)[2]; t13=C_u_i_cdr(t12); if(C_truep(C_i_nullp(t13))){ t14=t1;{ C_word *av2=av; av2[0]=t14; av2[1]=lf[31]; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t15=t14; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=((C_word*)t16)[1]; t18=((C_word*)((C_word*)t0)[5])[1]; t19=((C_word*)t0)[2]; t20=C_u_i_cdr(t19); t21=C_i_check_list_2(t20,lf[6]); t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14105,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t23=C_SCHEME_UNDEFINED; t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp); t25=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14107,a[2]=t16,a[3]=t24,a[4]=t18,a[5]=t17,tmp=(C_word)a,a+=6,tmp)); t26=((C_word*)t24)[1]; f_14107(t26,t22,t20);}} else{ t12=C_eqp(t4,lf[50]); if(C_truep(t12)){ t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t14=t13; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=((C_word*)t15)[1]; t17=((C_word*)((C_word*)t0)[5])[1]; t18=((C_word*)t0)[2]; t19=C_u_i_cdr(t18); t20=C_i_check_list_2(t19,lf[6]); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14161,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14163,a[2]=t15,a[3]=t23,a[4]=t17,a[5]=t16,tmp=(C_word)a,a+=6,tmp)); t25=((C_word*)t23)[1]; f_14163(t25,t21,t19);} else{ t13=C_eqp(t4,lf[84]); if(C_truep(t13)){ t14=( /* scrutinizer.scm:1214: named? */ f_15659(((C_word*)t0)[2]) ); t15=(C_truep(t14)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE); t16=(C_truep(t15)?C_i_cdddr(((C_word*)t0)[2]):C_i_cddr(((C_word*)t0)[2])); t17=t16; t18=(C_truep(t15)?C_a_i_list1(&a,1,t15):C_SCHEME_END_OF_LIST); t19=t18; t20=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t21=t20; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=((C_word*)t22)[1]; t24=((C_word*)((C_word*)t0)[5])[1]; t25=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14275,a[2]=t1,a[3]=t19,a[4]=t17,a[5]=((C_word*)t0)[5],a[6]=t22,a[7]=t24,a[8]=t23,tmp=(C_word)a,a+=9,tmp); if(C_truep(t15)){ t26=((C_word*)t0)[2]; t27=t25; f_14275(t27,C_i_caddr(t26));} else{ t26=((C_word*)t0)[2]; t27=t25; f_14275(t27,C_i_cadr(t26));}} else{ t14=t1;{ C_word *av2=av; av2[0]=t14; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}}}}}}}}}} else{ t3=C_i_assq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14361,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1116: g2673 */ t5=t4; f_14361(t5,t1,t3);} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k13503 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_13505,2,av);} a=C_alloc(12); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13509,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13520,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13522,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:1127: filter-map */ f_7391(t4,t5,((C_word*)t0)[7]);} /* k13507 in k13503 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13509,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; t4=C_i_caddr(t3); /* scrutinizer.scm:1132: simplify */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=t4; f_13478(3,av2);}} /* k13518 in k13503 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13520,2,av);} /* scrutinizer.scm:1127: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a13521 in k13503 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13522,3,av);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k13543 in map-loop2406 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_13545,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k13555 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13557,2,av);} /* scrutinizer.scm:1121: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2406 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_13559(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_13559,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13584,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=C_i_symbolp(t4); t7=(C_truep(t6)?t4:C_i_car(t4)); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13545,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=t9; t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15874,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1495: chicken.plist#get */ t12=*((C_word*)lf[379]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t11; av2[2]=t8; av2[3]=lf[378]; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k13582 in map-loop2406 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13584,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_13559(t6,((C_word*)t0)[5],t5);} /* k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_13600,2,av);} a=C_alloc(7); t2=t1; if(C_truep(C_i_nullp(t2))){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[53]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_cdr(t2); if(C_truep(C_i_nullp(t3))){ t4=C_u_i_car(t2); t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_length(t2); if(C_truep(C_fixnum_greaterp(t4,C_fix(20)))){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=lf[53]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13628,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1140: every */ f_7107(t5,lf[121],t2);}}}} /* k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_13628,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13634,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13721,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:1141: any */ f_7141(t2,t3,((C_word*)t0)[3]);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13731,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1158: lset=/eq? */ f_7791(t2,lf[387],((C_word*)t0)[3]);}} /* k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_13634,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[84]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_car(((C_word*)t0)[3]); t3=C_u_i_cdr(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[380]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13646,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_13646(t8,((C_word*)t0)[2],t3,t2);}} /* foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_13646(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_13646,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13715,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(0)); t8=t6; t9=t3; t10=t7; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13666,a[2]=t8,a[3]=t9,a[4]=t10,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1145: procedure-name */ f_15143(t11,t10);} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_13666,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13669,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1146: procedure-arguments */ f_15194(t3,((C_word*)t0)[4]);} /* k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_13669,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13672,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1147: procedure-results */ f_15251(t3,((C_word*)t0)[5]);} /* k13670 in k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_13672,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13675,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1148: procedure-name */ f_15143(t3,((C_word*)t0)[5]);} /* k13673 in k13670 in k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_13675,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13678,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:1149: procedure-arguments */ f_15194(t3,((C_word*)t0)[6]);} /* k13676 in k13673 in k13670 in k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_13678,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13681,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:1150: procedure-results */ f_15251(t3,((C_word*)t0)[7]);} /* k13679 in k13676 in k13673 in k13670 in k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_13681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_13681,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13688,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[6])){ if(C_truep(((C_word*)t0)[7])){ t4=C_eqp(((C_word*)t0)[6],((C_word*)t0)[7]); t5=t3; f_13688(t5,(C_truep(t4)?C_a_i_list1(&a,1,((C_word*)t0)[6]):C_SCHEME_END_OF_LIST));} else{ t4=t3; f_13688(t4,C_SCHEME_END_OF_LIST);}} else{ t4=t3; f_13688(t4,C_SCHEME_END_OF_LIST);}} /* k13686 in k13679 in k13676 in k13673 in k13670 in k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_fcall f_13688(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_13688,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13700,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1154: merge-argument-types */ f_14444(t3,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k13694 in k13698 in k13686 in k13679 in k13676 in k13673 in k13670 in k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_13696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_13696,2,av);} /* scrutinizer.scm:1151: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[381]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k13698 in k13686 in k13679 in k13676 in k13673 in k13670 in k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_13700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_13700,2,av);} a=C_alloc(12); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[4]; t6=((C_word*)t0)[5]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14619,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1278: chicken.base#call/cc */ t8=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t4; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k13713 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13715,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_13646(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a13720 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13721,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_eqp(lf[84],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_13731,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[34]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13737,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1159: lset=/eq? */ f_7791(t2,lf[386],((C_word*)t0)[6]);}} /* k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_13737,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[40]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1160: lset=/eq? */ f_7791(t2,lf[385],((C_word*)t0)[6]);}} /* k13741 in k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_13743,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[383]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13746,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13846,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1162: append-map */ f_6937(t2,t3,((C_word*)t0)[6],C_SCHEME_END_OF_LIST);}} /* k13744 in k13741 in k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_13746,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13749,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13766,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_13766(t6,t2,t1,C_SCHEME_END_OF_LIST);} /* k13747 in k13744 in k13741 in k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13749,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_equalp(t1,t3))){ t4=((C_word*)t0)[2]; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_a_i_cons(&a,2,lf[28],t1); /* scrutinizer.scm:1181: simplify */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; f_13478(3,av2);}}} /* loop in k13744 in k13741 in k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_13766(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_13766,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ /* scrutinizer.scm:1172: scheme#reverse */ t4=*((C_word*)lf[369]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=C_i_car(t2); t5=C_eqp(lf[53],t4); if(C_truep(t5)){ /* scrutinizer.scm:1173: return */ t6=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t6; av2[1]=t1; av2[2]=lf[53]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13791,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13830,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t8=t2; t9=C_u_i_cdr(t8); /* scrutinizer.scm:1174: any */ f_7141(t6,t7,t9);}}} /* k13789 in loop in k13744 in k13741 in k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_13791,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1175: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_13766(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13802,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13820,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1176: any */ f_7141(t2,t3,((C_word*)t0)[5]);}} /* k13800 in k13789 in loop in k13744 in k13741 in k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_13802,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1177: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_13766(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[5]); /* scrutinizer.scm:1178: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_13766(t7,((C_word*)t0)[4],t3,t6);}} /* a13819 in k13789 in loop in k13744 in k13741 in k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13820,3,av);} t3=*((C_word*)lf[384]+1); t4=C_i_car(((C_word*)t0)[2]); /* scrutinizer.scm:1176: g2533 */ t5=*((C_word*)lf[384]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a13829 in loop in k13744 in k13741 in k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13830,3,av);} t3=*((C_word*)lf[384]+1); t4=C_i_car(((C_word*)t0)[2]); /* scrutinizer.scm:1174: g2525 */ t5=*((C_word*)lf[384]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a13845 in k13741 in k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_13846,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13850,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1164: simplify */ t4=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; f_13478(3,av2);}} /* k13848 in a13845 in k13741 in k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_13850,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13856,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t2))){ t4=C_u_i_car(t2); t5=t3; f_13856(t5,C_eqp(lf[28],t4));} else{ t4=t3; f_13856(t4,C_SCHEME_FALSE);}} /* k13854 in k13848 in a13845 in k13741 in k13735 in k13729 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_13856(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_13856,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_i_cdr(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[35]); if(C_truep(t2)){ /* scrutinizer.scm:1167: return */ t3=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[35]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=C_eqp(((C_word*)t0)[3],lf[70]); if(C_truep(t3)){ /* scrutinizer.scm:1168: return */ t4=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[53]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}} /* k13906 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13908,2,av);} /* scrutinizer.scm:1134: delete-duplicates */ f_7302(((C_word*)t0)[2],t1,*((C_word*)lf[376]+1));} /* map-loop2439 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_13910(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_13910,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13935,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1134: g2445 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k13933 in map-loop2439 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13935,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_13910(t6,((C_word*)t0)[5],t5);} /* k13952 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_13954,2,av);} a=C_alloc(12); t2=t1; if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=( /* scrutinizer.scm:1186: refinement-type? */ f_15835(t2) ); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13973,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=C_i_cadr(t2); t6=C_a_i_list(&a,1,((C_word*)t0)[2]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7658,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t10=((C_word*)t8)[1]; f_7658(t10,t4,t6,t5);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13988,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1189: delete-duplicates */ f_7302(t4,((C_word*)t0)[2],*((C_word*)lf[376]+1));}}} /* k13971 in k13952 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_13973,2,av);} a=C_alloc(9); t2=C_i_caddr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list3(&a,3,lf[374],t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13986 in k13952 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_13988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_13988,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,lf[374],t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k13999 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14001,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14004,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_i_caddr(t4); /* scrutinizer.scm:1192: simplify */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; f_13478(3,av2);}} /* k14002 in k13999 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_14004,2,av);} a=C_alloc(9); t2=C_eqp(lf[53],((C_word*)t0)[2]); t3=(C_truep(t2)?C_eqp(lf[53],t1):C_SCHEME_FALSE); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=lf[48]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_a_i_list(&a,3,lf[48],((C_word*)t0)[2],t1); /* scrutinizer.scm:1195: canonicalize-list-type */ f_19323(((C_word*)t0)[3],t4);}} /* k14038 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_14040,2,av);} a=C_alloc(6); t2=C_eqp(t1,lf[53]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[50]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,2,t4,t1); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k14062 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_14064,2,av);} a=C_alloc(6); t2=C_eqp(t1,lf[53]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[47]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,2,t4,t1); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k14103 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_14105,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[47],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2564 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14107(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_14107,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14132,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1210: g2570 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k14130 in map-loop2564 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14132,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_14107(t6,((C_word*)t0)[5],t5);} /* k14159 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_14161,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[50],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2593 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14163(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_14163,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14188,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1212: g2599 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k14186 in map-loop2593 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14188,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_14163(t6,((C_word*)t0)[5],t5);} /* k14220 in k14279 in k14273 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_14222,2,av);} /* scrutinizer.scm:1216: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[391]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* map-loop2648 in k14279 in k14273 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14236(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_14236,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14261,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1222: g2654 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k14259 in map-loop2648 in k14279 in k14273 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14261,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_14236(t6,((C_word*)t0)[5],t5);} /* k14273 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14275(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_14275,2,t0,t1);} a=C_alloc(14); t2=C_i_check_list_2(t1,lf[6]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14281,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14283,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_14283(t7,t3,t1);} /* k14279 in k14273 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,5)))){ C_save_and_reclaim((void *)f_14281,2,av);} a=C_alloc(21); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14222,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_eqp(lf[53],((C_word*)t0)[4]); if(C_truep(t5)){ /* scrutinizer.scm:1216: scheme#append */ t6=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=((C_word*)t0)[2]; av2[2]=lf[391]; av2[3]=((C_word*)t0)[3]; av2[4]=t3; av2[5]=lf[53]; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=((C_word*)((C_word*)t0)[5])[1]; t11=C_i_check_list_2(((C_word*)t0)[4],lf[6]); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14236,a[2]=t8,a[3]=t13,a[4]=t10,a[5]=t9,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_14236(t15,t4,((C_word*)t0)[4]);}} /* map-loop2622 in k14273 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14283(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_14283,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14308,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1219: g2628 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k14306 in map-loop2622 in k14273 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14308,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_14283(t6,((C_word*)t0)[5],t5);} /* g2673 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14361(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){ C_save_and_reclaim_args((void *)trf_14361,3,t0,t1,t2);} a=C_alloc(13); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14366,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)((C_word*)t0)[2])[1]; t5=C_a_i_list(&a,1,((C_word*)t0)[3]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7572,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1]; f_7572(t9,t3,t5,t4);} /* k14364 in g2673 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14366,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cdr(((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14373 in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_14375,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[2])[1]))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14392,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14394,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1232: filter-map */ f_7391(t4,t5,((C_word*)((C_word*)t0)[6])[1]);} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t3)[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14390 in k14373 in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_14392,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,3,lf[29],t1,((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a14393 in k14373 in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14394,3,av);} a=C_alloc(4); t3=C_i_car(t2); if(C_truep(C_i_memq(t3,((C_word*)((C_word*)t0)[2])[1]))){ t4=t2; t5=C_u_i_cdr(t4); t6=t2; t7=C_u_i_car(t6); t8=C_i_assq(t7,((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14409,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1236: g2691 */ t10=t9; f_14409(t10,t1,t8);} else{ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* g2691 in a14393 in k14373 in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14409(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_14409,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14417,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(t2); /* scrutinizer.scm:1238: simplify */ t5=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; f_13478(3,av2);}} /* k14415 in g2691 in a14393 in k14373 in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_14417,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.scrutinizer#merge-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14444(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_14444,3,t1,t2,t3);} a=C_alloc(14); if(C_truep(C_i_nullp(t2))){ if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t3); if(C_truep((C_truep(C_eqp(t4,lf[367]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[366]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=t3; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=lf[392]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} else{ if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[393]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_eqp(lf[367],t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14483,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t3))){ t7=t3; t8=C_u_i_car(t7); t9=t6; f_14483(t9,C_eqp(lf[367],t8));} else{ t7=t6; f_14483(t7,C_SCHEME_FALSE);}} else{ t6=t2; t7=C_u_i_car(t6); t8=C_eqp(lf[366],t7); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14528,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t3))){ t10=t3; t11=C_u_i_car(t10); t12=t9; f_14528(t12,C_eqp(lf[366],t11));} else{ t10=t9; f_14528(t10,C_SCHEME_FALSE);}} else{ t9=C_i_car(t3); if(C_truep((C_truep(C_eqp(t9,lf[367]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[366]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* scrutinizer.scm:1273: merge-argument-types */ t17=t1; t18=t3; t19=t2; t1=t17; t2=t18; t3=t19; goto loop;} else{ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14589,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t11=t2; t12=C_u_i_car(t11); t13=t3; t14=C_u_i_car(t13); t15=C_a_i_list(&a,3,lf[28],t12,t14); /* scrutinizer.scm:1274: simplify-type */ f_13475(t10,t15);}}}}}} /* k14481 in chicken.compiler.scrutinizer#merge-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14483(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_14483,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14490,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=( /* scrutinizer.scm:1263: rest-type */ f_15712(t4) ); t6=C_i_cdr(((C_word*)t0)[4]); t7=( /* scrutinizer.scm:1264: rest-type */ f_15712(t6) ); t8=C_a_i_list(&a,3,lf[28],t5,t7); /* scrutinizer.scm:1262: simplify-type */ f_13475(t2,t8);} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[394]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k14488 in k14481 in chicken.compiler.scrutinizer#merge-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_14490,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[367],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k14526 in chicken.compiler.scrutinizer#merge-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14528(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_14528,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14539,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_cadr(((C_word*)t0)[3]); t4=C_i_cadr(((C_word*)t0)[4]); t5=C_a_i_list(&a,3,lf[28],t3,t4); /* scrutinizer.scm:1269: simplify-type */ f_13475(t2,t5);} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[395]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k14537 in k14526 in chicken.compiler.scrutinizer#merge-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14539,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14543,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_cddr(((C_word*)t0)[3]); t5=C_i_cddr(((C_word*)t0)[4]); /* scrutinizer.scm:1270: merge-argument-types */ f_14444(t3,t4,t5);} /* k14541 in k14537 in k14526 in chicken.compiler.scrutinizer#merge-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_14543,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[366],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14587 in chicken.compiler.scrutinizer#merge-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14589,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14593,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=((C_word*)t0)[4]; t7=C_u_i_cdr(t6); /* scrutinizer.scm:1275: merge-argument-types */ f_14444(t3,t5,t7);} /* k14591 in k14587 in chicken.compiler.scrutinizer#merge-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_14593,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a14618 in k13698 in k13686 in k13679 in k13676 in k13673 in k13670 in k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_14619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_14619,3,av);} a=C_alloc(6); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14625,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_14625(t6,t1,((C_word*)t0)[2],((C_word*)t0)[3]);} /* loop in a14618 in k13698 in k13686 in k13679 in k13676 in k13673 in k13670 in k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_14625(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_14625,4,t0,t1,t2,t3);} a=C_alloc(15); t4=C_i_nullp(t2); t5=(C_truep(t4)?C_i_nullp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_not_pair_p(t2); t7=(C_truep(t6)?t6:C_i_not_pair_p(t3)); if(C_truep(t7)){ /* scrutinizer.scm:1282: return */ t8=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t8; av2[1]=t1; av2[2]=lf[53]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14651,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t9=C_i_car(t2); t10=C_i_car(t3); t11=C_a_i_list(&a,3,lf[28],t9,t10); /* scrutinizer.scm:1283: simplify-type */ f_13475(t8,t11);}}} /* k14649 in loop in a14618 in k13698 in k13686 in k13679 in k13676 in k13673 in k13670 in k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_14651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14651,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14655,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=((C_word*)t0)[4]; t7=C_u_i_cdr(t6); /* scrutinizer.scm:1284: loop */ t8=((C_word*)((C_word*)t0)[5])[1]; f_14625(t8,t3,t5,t7);} /* k14653 in k14649 in loop in a14618 in k13698 in k13686 in k13679 in k13676 in k13673 in k13670 in k13667 in k13664 in foldl2482 in k13632 in k13626 in k13598 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in ... */ static void C_ccall f_14655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_14655,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.scrutinizer#compatible-types? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14682(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_14682,4,t1,t2,t3,t4);} a=C_alloc(14); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14686,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t4))){ t6=C_a_i_list(&a,3,lf[28],t2,t3); /* scrutinizer.scm:1287: type-typeenv */ t7=lf[161];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; f_15882(3,av2);}} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_car(t4); f_14686(2,av2);}}} /* k14684 in chicken.compiler.scrutinizer#compatible-types? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_14686,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14689,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1288: type<=? */ t4=*((C_word*)lf[384]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k14687 in k14684 in chicken.compiler.scrutinizer#compatible-types? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14689,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* scrutinizer.scm:1289: type<=? */ t2=*((C_word*)lf[384]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k14712 in k14899 in k14871 in k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_14714,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14720,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1292: type<=? */ t4=*((C_word*)lf[384]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k14718 in k14712 in k14899 in k14871 in k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_14720,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14726,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1293: type<=? */ t3=*((C_word*)lf[384]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k14724 in k14718 in k14712 in k14899 in k14871 in k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_14726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14726,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.scrutinizer#type<=? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +14,c,2)))){ C_save_and_reclaim((void*)f_14741,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+14); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14745,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t4))){ t6=C_a_i_list(&a,3,lf[28],t2,t3); /* scrutinizer.scm:1296: type-typeenv */ t7=lf[161];{ C_word *av2=av; av2[0]=t7; av2[1]=t5; av2[2]=t6; f_15882(3,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_car(t4); f_14745(2,av2);}}} /* k14743 in chicken.compiler.scrutinizer#type<=? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_14745,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14750,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=t2; t6=lf[24]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16252,a[2]=t4,a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1537: thunk */ t8=t3; f_14750(t8,t7);} /* a14749 in k14743 in chicken.compiler.scrutinizer#type<=? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14750(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_14750,2,t0,t1);} /* scrutinizer.scm:1300: match-types */ t2=*((C_word*)lf[170]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_14769,4,av);} a=C_alloc(14); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15070,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=C_a_i_list(&a,3,lf[28],t2,t3); /* scrutinizer.scm:1339: type-typeenv */ t6=lf[161];{ C_word *av2=av; av2[0]=t6; av2[1]=t4; av2[2]=t5; f_15882(3,av2);}} /* loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_14778,4,av);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14782,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t5=t2; if(C_truep(C_i_symbolp(t5))){ /* scrutinizer.scm:1247: chicken.base#alist-ref */ t6=*((C_word*)lf[277]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=lf[375]; av2[4]=*((C_word*)lf[376]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_14782(2,av2);}}} /* k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_14782,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14786,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1312: g2826 */ t3=t2; f_14786(t3,((C_word*)t0)[4],t1);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14796,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[3]; if(C_truep(C_i_symbolp(t3))){ /* scrutinizer.scm:1247: chicken.base#alist-ref */ t4=*((C_word*)lf[277]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=lf[375]; av2[4]=*((C_word*)lf[376]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_14796(2,av2);}}}} /* g2826 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14786(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_14786,3,t0,t1,t2);} /* scrutinizer.scm:1313: g2834 */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; f_14778(4,av2);}} /* k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_14796,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14800,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1312: g2837 */ t3=t2; f_14800(t3,((C_word*)t0)[4],t1);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14813,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=t2; f_14813(t5,C_u_i_memq(t4,lf[399]));} else{ t3=t2; f_14813(t3,C_SCHEME_FALSE);}}} /* g2837 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14800(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_14800,3,t0,t1,t2);} /* scrutinizer.scm:1314: g2845 */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; f_14778(4,av2);}} /* k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14813(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_14813,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14816,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[2]; t4=C_i_caddr(t3); /* scrutinizer.scm:1316: loop */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=((C_word*)t0)[5]; f_14778(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14840,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); t5=t2; f_14840(t5,C_u_i_memq(t4,lf[398]));} else{ t3=t2; f_14840(t3,C_SCHEME_FALSE);}}} /* k14814 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_14816,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=((C_word*)t0)[2]; t4=C_i_cadr(t3); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list3(&a,3,t2,t4,t1); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14840(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_14840,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[2]; t4=C_i_caddr(t3); /* scrutinizer.scm:1319: loop */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=t4; f_14778(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[28]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15040,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t7=((C_word*)t0)[5]; t8=C_u_i_cdr(t7); /* scrutinizer.scm:1323: lset=/eq? */ f_7791(t6,lf[397],t8);} else{ t6=t2; f_14867(t6,C_SCHEME_FALSE);}} else{ t3=t2; f_14867(t3,C_SCHEME_FALSE);}}} /* k14841 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_14843,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=((C_word*)t0)[2]; t4=C_i_cadr(t3); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list3(&a,3,t2,t4,t1); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14867(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_14867,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14873,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); t5=t2; f_14873(t5,C_eqp(t4,lf[28]));} else{ t3=t2; f_14873(t3,C_SCHEME_FALSE);}}} /* k14871 in k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14873(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_14873,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14876,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14887,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[5]); /* scrutinizer.scm:1327: filter-map */ f_7391(t2,t3,t4);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14901,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); if(C_truep((C_truep(C_eqp(t4,lf[48]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[47]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[50]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[361]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[363]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))){ if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t5=((C_word*)t0)[5]; t6=C_u_i_car(t5); t7=((C_word*)t0)[4]; t8=C_u_i_car(t7); t9=C_eqp(t6,t8); if(C_truep(t9)){ t10=C_i_length(((C_word*)t0)[5]); t11=C_i_length(((C_word*)t0)[4]); t12=t2; f_14901(t12,C_eqp(t10,t11));} else{ t10=t2; f_14901(t10,C_SCHEME_FALSE);}} else{ t5=t2; f_14901(t5,C_SCHEME_FALSE);}} else{ t5=t2; f_14901(t5,C_SCHEME_FALSE);}} else{ t3=t2; f_14901(t3,C_SCHEME_FALSE);}}} /* k14874 in k14871 in k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_14876,2,av);} a=C_alloc(3); t2=C_i_pairp(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?C_a_i_cons(&a,2,lf[28],t1):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a14886 in k14871 in k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14887,3,av);} /* scrutinizer.scm:1327: loop */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; f_14778(4,av2);}} /* k14899 in k14871 in k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14901(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){ C_save_and_reclaim_args((void *)trf_14901,2,t0,t1);} a=C_alloc(17); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=((C_word*)((C_word*)t0)[2])[1]; t7=C_i_cdr(((C_word*)t0)[3]); t8=C_i_cdr(((C_word*)t0)[4]); t9=C_i_check_list_2(t7,lf[6]); t10=C_i_check_list_2(t8,lf[6]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14919,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14932,a[2]=t4,a[3]=t13,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_14932(t15,t11,t7,t8);} else{ t2=((C_word*)t0)[5]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=C_a_i_list(&a,1,((C_word*)t0)[6]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14714,a[2]=t2,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t5))){ t7=C_a_i_list(&a,3,lf[28],t3,t4); /* scrutinizer.scm:1291: type-typeenv */ t8=lf[161];{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; f_15882(3,av2);}} else{ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_i_car(t5); f_14714(2,av2);}}}} /* k14917 in k14899 in k14871 in k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14919,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14925,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1335: every */ f_7107(t3,*((C_word*)lf[396]+1),t2);} /* k14923 in k14917 in k14899 in k14871 in k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_14925,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t3,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* map-loop2868 in k14899 in k14871 in k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_14932(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_14932,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14961,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* scrutinizer.scm:1334: g2874 */ t9=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=t7; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k14959 in map-loop2868 in k14899 in k14871 in k14865 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_14961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_14961,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=C_slot(((C_word*)t0)[4],C_fix(1)); t7=((C_word*)((C_word*)t0)[5])[1]; f_14932(t7,((C_word*)t0)[6],t5,t6);} /* k15038 in k14838 in k14811 in k14794 in k14780 in loop in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15040,2,av);} if(C_truep(t1)){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[3]; f_14867(t4,C_eqp(lf[363],t3));} else{ t2=((C_word*)t0)[3]; f_14867(t2,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[3]; f_14867(t2,C_SCHEME_FALSE);}} /* k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_15070,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15073,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=((C_word*)t0)[2]; t5=t1; t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14778,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t2; av2[2]=t3; av2[3]=t4; f_14778(4,av2);}} /* k15071 in k15068 in chicken.compiler.scrutinizer#refine-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15073,2,av);} t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* scrutinizer.scm:1343: simplify-type */ f_13475(((C_word*)t0)[3],t2);}} /* chicken.compiler.scrutinizer#procedure-type? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ av[0]=t0; av[1]=t1; av[2]=t2; C_save_and_reclaim((void *)f_15091,3,av);} t3=C_eqp(lf[84],t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_car(t4); t6=C_eqp(t5,lf[29]); if(C_truep(t6)){ t7=t2; t8=C_i_caddr(t7); /* scrutinizer.scm:1351: procedure-type? */ t12=t1; t13=t8; t1=t12; t2=t13; c=3; goto loop;} else{ t7=C_eqp(t5,lf[84]); if(C_truep(t7)){ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t5,lf[28]); if(C_truep(t8)){ t9=t2; t10=C_u_i_cdr(t9); /* scrutinizer.scm:1353: every */ f_7107(t1,lf[121],t10);} else{ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* chicken.compiler.scrutinizer#procedure-name in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15143(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_15143,2,t1,t2);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[29]); if(C_truep(t5)){ t6=t2; t7=C_i_caddr(t6); /* scrutinizer.scm:1359: procedure-name */ t10=t1; t11=t7; t1=t10; t2=t11; goto loop;} else{ t6=C_eqp(t4,lf[84]); if(C_truep(t6)){ t7=C_i_cadr(t2); if(C_truep(C_i_stringp(t7))){ /* scrutinizer.scm:1362: scheme#string->symbol */ t8=*((C_word*)lf[254]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t1; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t8=C_i_symbolp(t7); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=(C_truep(t8)?t7:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.scrutinizer#procedure-arguments in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15194(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_15194,2,t1,t2);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[29]); if(C_truep(t5)){ t6=t2; t7=C_i_caddr(t6); /* scrutinizer.scm:1370: procedure-arguments */ t14=t1; t15=t7; t1=t14; t2=t15; goto loop;} else{ t6=C_eqp(t4,lf[84]); if(C_truep(t6)){ t7=t2; t8=C_i_cadr(t7); t9=C_i_stringp(t8); t10=(C_truep(t9)?t9:C_i_symbolp(t8)); if(C_truep(t10)){ t11=t1; t12=t2; t13=t11;{ C_word av2[2]; av2[0]=t13; av2[1]=C_i_caddr(t12); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t11=t1; t12=t2; t13=t11;{ C_word av2[2]; av2[0]=t13; av2[1]=C_i_cadr(t12); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ /* scrutinizer.scm:1376: chicken.compiler.support#bomb */ t7=*((C_word*)lf[345]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[400]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.scrutinizer#procedure-results in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15251(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_15251,2,t1,t2);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[29]); if(C_truep(t5)){ t6=t2; t7=C_i_caddr(t6); /* scrutinizer.scm:1381: procedure-results */ t12=t1; t13=t7; t1=t12; t2=t13; goto loop;} else{ t6=C_eqp(t4,lf[84]); if(C_truep(t6)){ t7=t2; t8=C_i_cadr(t7); t9=C_i_stringp(t8); if(C_truep(t9)){ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=(C_truep(t9)?C_i_cdddr(t2):C_i_cddr(t2)); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_i_symbolp(t8); t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=(C_truep(t10)?C_i_cdddr(t2):C_i_cddr(t2)); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ /* scrutinizer.scm:1387: chicken.compiler.support#bomb */ t7=*((C_word*)lf[345]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[401]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15308(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_15308,5,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=C_i_nullp(t5); t7=(C_truep(t6)?C_SCHEME_FALSE:C_i_car(t5)); t8=t7; t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15317,a[2]=t8,a[3]=t3,a[4]=t10,a[5]=t4,tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_15317(t12,t1,t2,C_SCHEME_END_OF_LIST);} /* loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15317(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_15317,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15324,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=t3,a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_pairp(t2))){ t5=t2; t6=C_u_i_car(t5); t7=t4; f_15324(t7,C_eqp(lf[84],t6));} else{ t5=t4; f_15324(t5,C_SCHEME_FALSE);}} /* k15322 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15324(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,0,2)))){ C_save_and_reclaim_args((void *)trf_15324,2,t0,t1);} a=C_alloc(24); if(C_truep(t1)){ t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_TRUE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_fix(0); t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15327,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,a[5]=t7,tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15334,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t7,a[6]=t8,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t10=((C_word*)t0)[5]; t11=C_i_cadr(t10); t12=C_i_stringp(t11); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15434,a[2]=((C_word*)t0)[5],a[3]=t9,tmp=(C_word)a,a+=4,tmp); if(C_truep(t12)){ t14=t13; f_15434(t14,t12);} else{ t14=((C_word*)t0)[5]; t15=C_i_cadr(t14); t16=t13; f_15434(t16,C_i_symbolp(t15));}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15457,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); t5=t2; f_15457(t5,C_eqp(lf[29],t4));} else{ t3=t2; f_15457(t3,C_SCHEME_FALSE);}}} /* k15325 in k15322 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_15327,2,av);} /* scrutinizer.scm:1420: scheme#values */{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; av2[5]=((C_word*)((C_word*)t0)[5])[1]; C_values(6,av2);}} /* k15332 in k15322 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15334(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_15334,2,t0,t1);} a=C_alloc(9); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15336,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_15336(t5,((C_word*)t0)[6],t1,((C_word*)t0)[7],C_SCHEME_FALSE);} /* loop in k15332 in k15322 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15336(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(62,0,4)))){ C_save_and_reclaim_args((void *)trf_15336,5,t0,t1,t2,t3,t4);} a=C_alloc(62); if(C_truep(C_i_nullp(t2))){ t5=t4; if(C_truep(t5)){ t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=t3; t7=C_i_zerop(t6); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t5=C_i_car(t2); t6=C_eqp(lf[366],t5); if(C_truep(t6)){ if(C_truep(((C_word*)t0)[3])){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=t2; t8=C_u_i_cdr(t7); /* scrutinizer.scm:1409: loop */ t23=t1; t24=t8; t25=t3; t26=C_SCHEME_TRUE; t1=t23; t2=t24; t3=t25; t4=t26; goto loop;}} else{ t7=t2; t8=C_u_i_car(t7); t9=C_eqp(lf[367],t8); if(C_truep(t9)){ if(C_truep(((C_word*)t0)[3])){ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15375,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t11=t2; t12=C_u_i_cdr(t11); if(C_truep(C_i_pairp(t12))){ t13=C_i_cadr(t2); t14=t10; f_15375(t14,C_eqp(lf[402],t13));} else{ t13=t10; f_15375(t13,C_SCHEME_FALSE);}}} else{ t10=(C_truep(t4)?C_i_less_or_equalp(t3,C_fix(0)):C_SCHEME_FALSE); if(C_truep(t10)){ t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=t3; t12=C_set_block_item(((C_word*)t0)[2],0,C_i_positivep(t11)); t13=((C_word*)((C_word*)t0)[6])[1]; t14=C_mutate(((C_word *)((C_word*)t0)[6])+1,C_s_a_i_plus(&a,2,t13,C_fix(1))); t15=t2; t16=C_u_i_car(t15); t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15415,a[2]=t1,a[3]=t16,tmp=(C_word)a,a+=4,tmp); t18=t2; t19=C_u_i_cdr(t18); t20=t3; t21=C_s_a_i_minus(&a,2,t20,C_fix(1)); /* scrutinizer.scm:1419: loop */ t23=t17; t24=t19; t25=t21; t26=t4; t1=t23; t2=t24; t3=t25; t4=t26; goto loop;}}}}} /* k15373 in loop in k15332 in k15322 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15375(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_15375,2,t0,t1);} a=C_alloc(3); t2=C_set_block_item(((C_word*)t0)[2],0,t1); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=( /* scrutinizer.scm:1414: rest-type */ f_15712(t4) ); /* scrutinizer.scm:1414: make-list */ f_7932(((C_word*)t0)[4],((C_word*)t0)[5],C_a_i_list(&a,1,t5));} /* k15413 in loop in k15332 in k15322 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_15415,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15432 in k15322 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15434(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_15434,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; f_15334(t3,C_i_caddr(t2));} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; f_15334(t3,C_i_cadr(t2));}} /* k15455 in k15322 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15457(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_15457,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); /* scrutinizer.scm:1422: loop1 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_15317(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} else{ t2=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[6]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15471,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1391: g3013 */ t4=t3; f_15471(t4,((C_word*)t0)[4],t2);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15504,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1429: make-list */ f_7932(t3,((C_word*)t0)[7],C_a_i_list(&a,1,lf[53]));}}} /* g3013 in k15455 in k15322 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15471(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_15471,3,t0,t1,t2);} a=C_alloc(3); t3=C_i_cadr(t2); t4=(C_truep(t3)?C_i_memq(t3,((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t4)){ /* scrutinizer.scm:1427: loop1 */ t5=((C_word*)((C_word*)t0)[3])[1]; f_15317(t5,t1,lf[53],((C_word*)t0)[2]);} else{ t5=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[2]); /* scrutinizer.scm:1428: loop1 */ t6=((C_word*)((C_word*)t0)[3])[1]; f_15317(t6,t1,t3,t5);}} /* k15502 in k15455 in k15322 in loop1 in chicken.compiler.scrutinizer#procedure-argument-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_15504,2,av);} /* scrutinizer.scm:1429: scheme#values */{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; av2[5]=((C_word*)t0)[3]; C_values(6,av2);}} /* loop1 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15531(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_15531,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(((C_word*)t0)[2])){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_assq(t2,((C_word*)t0)[4]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15542,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1433: g3032 */ t5=t4; f_15542(t5,t1,t3);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15559,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t2))){ t5=t2; t6=C_u_i_car(t5); t7=t4; f_15559(t7,C_eqp(lf[84],t6));} else{ t5=t4; f_15559(t5,C_SCHEME_FALSE);}}}} /* g3032 in loop1 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_fcall f_15542(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_15542,3,t0,t1,t2);} t3=C_i_cadr(t2); /* scrutinizer.scm:1434: loop1 */ t4=((C_word*)((C_word*)t0)[2])[1]; f_15531(t4,t1,t3);} /* k15557 in loop1 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_fcall f_15559(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_15559,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15564,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1436: chicken.base#call/cc */ t3=*((C_word*)lf[167]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15631,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=t2; f_15631(t5,C_eqp(lf[29],t4));} else{ t3=t2; f_15631(t3,C_SCHEME_FALSE);}}} /* a15563 in k15557 in loop1 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_15564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_15564,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15572,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2]; t5=C_i_cadr(t4); t6=C_i_stringp(t5); if(C_truep(t6)){ t7=t3; f_15572(t7,(C_truep(t6)?C_i_cdddr(((C_word*)t0)[2]):C_i_cddr(((C_word*)t0)[2])));} else{ t7=((C_word*)t0)[2]; t8=C_i_cadr(t7); t9=C_i_symbolp(t8); t10=t3; f_15572(t10,(C_truep(t9)?C_i_cdddr(((C_word*)t0)[2]):C_i_cddr(((C_word*)t0)[2])));}} /* k15570 in a15563 in k15557 in loop1 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_15572(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_15572,2,t0,t1);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15574,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_15574(t5,((C_word*)t0)[3],t1);} /* loop in k15570 in a15563 in k15557 in loop1 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_15574(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_15574,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=t2; if(C_truep((C_truep(C_eqp(t3,lf[53]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[70]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* scrutinizer.scm:1442: return */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=lf[53]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15600,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); /* scrutinizer.scm:1443: loop */ t10=t6; t11=t8; t1=t10; t2=t11; goto loop;}}} /* k15598 in loop in k15570 in a15563 in k15557 in loop1 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_15600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_15600,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15629 in k15557 in loop1 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_fcall f_15631(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_15631,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); /* scrutinizer.scm:1445: loop1 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_15531(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[53]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.compiler.scrutinizer#named? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static C_word C_fcall f_15659(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=t1; t3=C_u_i_car(t2); t4=C_eqp(t3,lf[84]); if(C_truep(t4)){ t5=C_i_cadr(t1); t6=C_i_nullp(t5); if(C_truep(t6)){ return(C_i_not(t6));} else{ t7=t1; t8=C_u_i_cdr(t7); t9=C_u_i_car(t8); t10=C_i_pairp(t9); return(C_i_not(t10));}} else{ t5=C_eqp(t3,lf[29]); if(C_truep(t5)){ t6=t1; t7=C_i_caddr(t6); t12=t7; t1=t12; goto loop;} else{ return(C_SCHEME_FALSE);}}} else{ return(C_SCHEME_FALSE);}} /* chicken.compiler.scrutinizer#rest-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static C_word C_fcall f_15712(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check;{} if(C_truep(C_i_nullp(t1))){ return(lf[53]);} else{ t2=C_i_car(t1); t3=C_eqp(lf[402],t2); if(C_truep(t3)){ return(lf[53]);} else{ t4=t1; return(C_u_i_car(t4));}}} /* chicken.compiler.scrutinizer#noreturn-procedure-type? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static C_word C_fcall f_15732(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=t1; t3=C_u_i_car(t2); t4=C_eqp(t3,lf[84]); if(C_truep(t4)){ if(C_truep(C_i_listp(t1))){ t5=t1; t6=C_i_cadr(t5); t7=C_i_pairp(t6); t8=(C_truep(t7)?C_i_cddr(t1):C_i_cdddr(t1)); return(C_i_equalp(lf[403],t8));} else{ return(C_SCHEME_FALSE);}} else{ t5=C_eqp(t3,lf[29]); if(C_truep(t5)){ t6=t1; t7=C_i_caddr(t6); t10=t7; t1=t10; goto loop;} else{ return(C_SCHEME_FALSE);}}} else{ return(C_SCHEME_FALSE);}} /* chicken.compiler.scrutinizer#noreturn-type? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ av[0]=t0; av[1]=t1; av[2]=t2; C_save_and_reclaim((void *)f_15791,3,av);} t3=C_eqp(lf[70],t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_car(t4); t6=C_eqp(t5,lf[28]); if(C_truep(t6)){ t7=t2; t8=C_u_i_cdr(t7); /* scrutinizer.scm:1479: any */ f_7141(t1,lf[404],t8);} else{ t7=C_eqp(t5,lf[29]); if(C_truep(t7)){ t8=t2; t9=C_i_caddr(t8); /* scrutinizer.scm:1480: noreturn-type? */ t11=t1; t12=t9; t1=t11; t2=t12; c=3; goto loop;} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* chicken.compiler.scrutinizer#refinement-type? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static C_word C_fcall f_15835(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=t1; t3=C_i_car(t2); t4=C_eqp(t3,lf[374]); if(C_truep(t4)){ return(C_SCHEME_TRUE);} else{ t5=C_eqp(t3,lf[29]); if(C_truep(t5)){ t6=t1; t7=C_i_caddr(t6); t9=t7; t1=t9; goto loop;} else{ return(C_SCHEME_FALSE);}}} else{ return(C_SCHEME_FALSE);}} /* k15872 in map-loop2406 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_15874,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15877,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1497: chicken.base#gensym */ t4=*((C_word*)lf[197]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15875 in k15872 in map-loop2406 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_15877,2,av);} a=C_alloc(8); t2=C_a_i_putprop(&a,3,t1,lf[378],((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_15882,3,av);} a=C_alloc(12); t3=C_SCHEME_END_OF_LIST; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15886,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15888,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1];{ C_word *av2=av; av2[0]=t9; av2[1]=t5; av2[2]=t2; f_15888(3,av2);}} /* k15884 in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15886,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ av[0]=t0; av[1]=t1; av[2]=t2; C_save_and_reclaim((void *)f_15888,3,av);} a=C_alloc(22); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[374]); if(C_truep(t5)){ t6=t2; t7=C_i_caddr(t6); /* scrutinizer.scm:1507: loop */ t21=t1; t22=t7; t1=t21; t2=t22; c=3; goto loop;} else{ t6=C_eqp(t4,lf[84]); if(C_truep(t6)){ t7=t2; t8=C_i_cadr(t7); t9=C_i_stringp(t8); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15924,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t9)){ t11=t10; f_15924(t11,t9);} else{ t11=t2; t12=C_i_cadr(t11); t13=t10; f_15924(t13,C_i_symbolp(t12));}} else{ t7=C_eqp(t4,lf[29]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16092,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=t2; t14=C_i_cadr(t13); t15=C_i_check_list_2(t14,lf[6]); t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16134,a[2]=t8,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16136,a[2]=t11,a[3]=t18,a[4]=t12,tmp=(C_word)a,a+=5,tmp)); t20=((C_word*)t18)[1]; f_16136(t20,t16,t14);} else{ t8=C_eqp(t4,lf[28]); if(C_truep(t8)){ t9=((C_word*)((C_word*)t0)[2])[1]; t10=t2; t11=C_u_i_cdr(t10); t12=C_i_check_list_2(t11,lf[212]); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16183,a[2]=t14,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t16=((C_word*)t14)[1]; f_16183(t16,t1,t11);} else{ t9=C_SCHEME_UNDEFINED; t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15922 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15924(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_15924,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3]; t4=C_i_caddr(t3); t5=C_i_check_list_2(t4,lf[212]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15933,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15977,a[2]=t8,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_15977(t10,t6,t4);} else{ t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3]; t4=C_i_cadr(t3); t5=C_i_check_list_2(t4,lf[212]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16007,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16050,a[2]=t8,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_16050(t10,t6,t4);}} /* k15931 in k15922 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_15933,2,av);} a=C_alloc(6); t2=C_i_cdddr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t2))){ t3=((C_word*)((C_word*)t0)[3])[1]; t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); t8=C_i_check_list_2(t7,lf[212]); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15950,a[2]=t10,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_15950(t12,((C_word*)t0)[4],t7);} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* for-each-loop3140 in k15931 in k15922 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15950(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_15950,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15960,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1512: g3141 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15958 in for-each-loop3140 in k15931 in k15922 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15960,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15950(t3,((C_word*)t0)[4],t2);} /* for-each-loop3123 in k15922 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_15977(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_15977,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15987,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1510: g3124 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15985 in for-each-loop3123 in k15922 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_15987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15987,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_15977(t3,((C_word*)t0)[4],t2);} /* k16005 in k15922 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_16007,2,av);} a=C_alloc(6); t2=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t2))){ t3=((C_word*)((C_word*)t0)[3])[1]; t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_i_check_list_2(t6,lf[212]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16023,a[2]=t9,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_16023(t11,((C_word*)t0)[4],t6);} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* for-each-loop3175 in k16005 in k15922 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16023(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_16023,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16033,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1516: g3176 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16031 in for-each-loop3175 in k16005 in k15922 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16033,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16023(t3,((C_word*)t0)[4],t2);} /* for-each-loop3158 in k15922 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16050(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_16050,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16060,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1514: g3159 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16058 in for-each-loop3158 in k15922 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16060,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16050(t3,((C_word*)t0)[4],t2);} /* k16090 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16092,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; t4=C_i_caddr(t3); /* scrutinizer.scm:1524: loop */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=t4; f_15888(3,av2);}} /* k16132 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16134,2,av);} /* scrutinizer.scm:1518: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop3193 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16136(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_16136,3,t0,t1,t2);} a=C_alloc(15); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16161,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); if(C_truep(C_i_symbolp(t4))){ t5=t3; f_16161(t5,C_a_i_list3(&a,3,t4,C_SCHEME_FALSE,C_SCHEME_FALSE));} else{ t5=C_i_car(t4); t6=C_i_cadr(t4); t7=t3; f_16161(t7,C_a_i_list3(&a,3,t5,C_SCHEME_FALSE,t6));}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16159 in map-loop3193 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16161(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_16161,2,t0,t1);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_16136(t6,((C_word*)t0)[5],t5);} /* for-each-loop3221 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16183(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_16183,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16193,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1526: g3222 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16191 in for-each-loop3221 in loop in chicken.compiler.scrutinizer#type-typeenv in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16193,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16183(t3,((C_word*)t0)[4],t2);} /* chicken.compiler.scrutinizer#trail-restore in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16214(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_16214,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16220,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=( f_16220(t4,lf[24]) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* doloop3241 in chicken.compiler.scrutinizer#trail-restore in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static C_word C_fcall f_16220(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check; loop:{} t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_SCHEME_UNDEFINED; return(t3);} else{ t3=C_i_car(t1); t4=C_i_assq(t3,((C_word*)t0)[3]); t5=C_i_cdr(t4); t6=C_i_set_car(t5,C_SCHEME_FALSE); t7=t1; t8=C_u_i_cdr(t7); t10=t8; t1=t10; goto loop;}} /* k16250 in k14743 in chicken.compiler.scrutinizer#type<=? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_16252,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16255,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1538: trail-restore */ f_16214(t3,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k16253 in k16250 in k14743 in chicken.compiler.scrutinizer#type<=? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16255,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_16257,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16265,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16267,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_16267(t8,t4,t2,C_SCHEME_END_OF_LIST);} /* k16263 in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16265,2,av);} /* scrutinizer.scm:1542: simplify-type */ f_13475(((C_word*)t0)[2],t1);} /* resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16267(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){ C_save_and_reclaim_args((void *)trf_16267,4,t0,t1,t2,t3);} a=C_alloc(20); t4=C_i_assq(t2,((C_word*)t0)[2]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16275,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1544: g3265 */ t6=t5; f_16275(t6,t1,t4);} else{ t5=C_i_pairp(t2); if(C_truep(C_i_not(t5))){ t6=C_i_memq(t2,lf[19]); if(C_truep(t6)){ if(C_truep(t6)){ t7=t2; t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* scrutinizer.scm:1556: chicken.compiler.support#bomb */ t7=*((C_word*)lf[345]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[405]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} else{ if(C_truep(C_i_memq(t2,lf[21]))){ t7=t2; t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* scrutinizer.scm:1556: chicken.compiler.support#bomb */ t7=*((C_word*)lf[345]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[405]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} else{ t6=C_i_car(t2); t7=t6; t8=C_eqp(t7,lf[28]); if(C_truep(t8)){ t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16356,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t14=t2; t15=C_u_i_cdr(t14); t16=C_i_check_list_2(t15,lf[6]); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16367,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16369,a[2]=t11,a[3]=t19,a[4]=t13,a[5]=t12,tmp=(C_word)a,a+=6,tmp)); t21=((C_word*)t19)[1]; f_16369(t21,t17,t15);} else{ t9=C_eqp(t7,lf[69]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16414,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t11=t2; t12=C_i_cadr(t11); /* scrutinizer.scm:1560: resolve */ t22=t10; t23=t12; t24=t3; t1=t22; t2=t23; t3=t24; goto loop;} else{ t10=C_eqp(t7,lf[29]); t11=(C_truep(t10)?t10:C_eqp(t7,lf[374])); if(C_truep(t11)){ t12=t2; t13=C_u_i_car(t12); t14=t2; t15=C_i_cadr(t14); t16=t15; t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16440,a[2]=t1,a[3]=t13,a[4]=t16,tmp=(C_word)a,a+=5,tmp); t18=t2; t19=C_i_caddr(t18); /* scrutinizer.scm:1562: resolve */ t22=t17; t23=t19; t24=t3; t1=t22; t2=t23; t3=t24; goto loop;} else{ t12=C_eqp(t7,lf[48]); t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16453,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t1,a[6]=t7,tmp=(C_word)a,a+=7,tmp); if(C_truep(t12)){ t14=t13; f_16453(t14,t12);} else{ t14=C_eqp(t7,lf[47]); if(C_truep(t14)){ t15=t13; f_16453(t15,t14);} else{ t15=C_eqp(t7,lf[50]); if(C_truep(t15)){ t16=t13; f_16453(t16,t15);} else{ t16=C_eqp(t7,lf[361]); t17=t13; f_16453(t17,(C_truep(t16)?t16:C_eqp(t7,lf[363])));}}}}}}}}} /* g3265 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16275(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_16275,3,t0,t1,t2);} a=C_alloc(3); t3=t2; t4=C_i_cadr(t3); t5=C_i_not(t4); t6=(C_truep(t5)?t5:C_i_memq(t4,((C_word*)t0)[2])); if(C_truep(t6)){ t7=t2; if(C_truep(C_i_caddr(t7))){ t8=t2; t9=C_i_caddr(t8); t10=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]); /* scrutinizer.scm:1550: resolve */ t11=((C_word*)((C_word*)t0)[4])[1]; f_16267(t11,t1,t9,t10);} else{ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=lf[53]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t7=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]); /* scrutinizer.scm:1552: resolve */ t8=((C_word*)((C_word*)t0)[4])[1]; f_16267(t8,t1,t4,t7);}} /* g3292 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16356(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16356,3,t0,t1,t2);} /* scrutinizer.scm:1559: g3309 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_16267(t3,t1,t2,((C_word*)t0)[3]);} /* k16365 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16367,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[28],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop3286 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16369(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_16369,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16394,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1559: g3292 */ t5=((C_word*)t0)[4]; f_16356(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16392 in map-loop3286 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16394,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_16369(t6,((C_word*)t0)[5],t5);} /* k16412 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_16414,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[69],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16438 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_16440,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16453(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ C_save_and_reclaim_args((void *)trf_16453,2,t0,t1);} a=C_alloc(21); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16463,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t9=((C_word*)t0)[2]; t10=C_u_i_cdr(t9); t11=C_i_check_list_2(t10,lf[6]); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16474,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16476,a[2]=t6,a[3]=t14,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_16476(t16,t12,t10);} else{ t2=C_eqp(((C_word*)t0)[6],lf[84]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16517,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1566: procedure-name */ f_15143(t3,((C_word*)t0)[2]);} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* g3344 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16463(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16463,3,t0,t1,t2);} /* scrutinizer.scm:1564: g3361 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_16267(t3,t1,t2,((C_word*)t0)[3]);} /* k16472 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16474,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop3338 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16476(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_16476,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16501,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1564: g3344 */ t5=((C_word*)t0)[4]; f_16463(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16499 in map-loop3338 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16501,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_16476(t6,((C_word*)t0)[5],t5);} /* k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16517,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16520,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1567: procedure-arguments */ f_15194(t3,((C_word*)t0)[5]);} /* k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16520,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16523,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1568: procedure-results */ f_15251(t3,((C_word*)t0)[6]);} /* k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_16523,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16530,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(C_truep(((C_word*)t0)[3])?C_a_i_list1(&a,1,((C_word*)t0)[3]):C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16542,a[2]=t3,a[3]=t5,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16599,a[2]=t8,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_16599(t10,t6,((C_word*)t0)[6]);} /* k16528 in k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16530,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[84],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16540 in k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_16542,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16546,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_eqp(lf[53],((C_word*)t0)[4]); if(C_truep(t4)){ t5=C_a_i_cons(&a,2,t2,lf[53]); /* scrutinizer.scm:1569: ##sys#append */ t6=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16553,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t10=C_i_check_list_2(((C_word*)t0)[4],lf[6]); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16565,a[2]=t7,a[3]=t12,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_16565(t14,t3,((C_word*)t0)[4]);}} /* k16544 in k16540 in k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_16546,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* scrutinizer.scm:1569: ##sys#append */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* g3391 in k16540 in k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16553(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16553,3,t0,t1,t2);} /* scrutinizer.scm:1582: g3408 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_16267(t3,t1,t2,((C_word*)t0)[3]);} /* map-loop3385 in k16540 in k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16565(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_16565,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16590,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1582: g3391 */ t5=((C_word*)t0)[4]; f_16553(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16588 in map-loop3385 in k16540 in k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16590,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_16565(t6,((C_word*)t0)[5],t5);} /* loop in k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16599(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_16599,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=C_eqp(lf[367],t3); if(C_truep(t4)){ t5=t2; t6=C_u_i_cdr(t5); if(C_truep(C_i_equalp(lf[407],t6))){ t7=t2; t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=t2; t8=C_u_i_car(t7); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16627,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=t2; t11=C_u_i_cdr(t10); /* scrutinizer.scm:1576: loop */ t14=t9; t15=t11; t1=t14; t2=t15; goto loop;}} else{ t5=t2; t6=C_u_i_car(t5); t7=C_eqp(lf[366],t6); if(C_truep(t7)){ t8=t2; t9=C_u_i_car(t8); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16646,a[2]=t1,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=t2; t12=C_u_i_cdr(t11); /* scrutinizer.scm:1578: loop */ t14=t10; t15=t12; t1=t14; t2=t15; goto loop;} else{ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16655,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t9=t2; t10=C_u_i_car(t9); /* scrutinizer.scm:1579: resolve */ t11=((C_word*)((C_word*)t0)[3])[1]; f_16267(t11,t8,t10,((C_word*)t0)[4]);}}}} /* k16625 in loop in k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16627,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16644 in loop in k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16646,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16653 in loop in k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_16655,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16659,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* scrutinizer.scm:1579: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_16599(t6,t3,t5);} /* k16657 in k16653 in loop in k16521 in k16518 in k16515 in k16451 in resolve in chicken.compiler.scrutinizer#resolve in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16659,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_16722,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+5); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16726,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t4))){ /* scrutinizer.scm:1589: chicken.platform#repository-path */ t6=*((C_word*)lf[433]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_car(t4); f_16726(2,av2);}}} /* k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,5)))){ C_save_and_reclaim((void *)f_16726,2,av);} a=C_alloc(19); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16728,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp)); t7=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16737,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp)); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16747,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_not(t1))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17125,a[2]=((C_word*)t0)[4],a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1595: ##sys#file-exists? */ t10=*((C_word*)lf[431]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}} else{ /* scrutinizer.scm:1596: chicken.load#find-file */ t9=*((C_word*)lf[432]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[4]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} /* clean! in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16728(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_16728,3,t0,t1,t2);} if(C_truep(((C_word*)t0)[2])){ /* scrutinizer.scm:1591: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[235]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[273]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* pure! in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16737(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_16737,3,t0,t1,t2);} if(C_truep(((C_word*)t0)[2])){ /* scrutinizer.scm:1593: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[235]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[274]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_16747,2,av);} a=C_alloc(10); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16753,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17098,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1597: chicken.base#open-output-string */ t5=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_16753,2,av);} a=C_alloc(17); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16758,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16763,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17091,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1598: ##sys#dynamic-wind */ t9=*((C_word*)lf[224]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[5]; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a16757 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16758,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[17]); t3=C_mutate(&lf[17] /* (set! chicken.compiler.scrutinizer#scrutiny-debug ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_16763,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16765,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17060,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1659: scheme#call-with-input-file */ t4=*((C_word*)lf[426]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=*((C_word*)lf[427]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16765(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_16765,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16772,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1602: chicken.compiler.support#variable-mark */ t6=*((C_word*)lf[64]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[65]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_16772,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16775,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_i_cddr(((C_word*)t0)[4]); if(C_truep(C_i_pairp(t4))){ t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); t7=t3; f_16775(t7,C_u_i_cdr(t6));} else{ t5=t3; f_16775(t5,C_SCHEME_FALSE);}} /* k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16775(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_16775,2,t0,t1);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16778,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[5]; t5=C_u_i_cdr(t4); t6=C_u_i_car(t5); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16877,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[7],a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_16877(t10,t3,t6);} /* k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_16778,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16783,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16789,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1638: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a16782 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16783,2,av);} /* scrutinizer.scm:1638: validate-type */ t2=*((C_word*)lf[409]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_16789,5,av);} a=C_alloc(13); t5=t2; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16793,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t5,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); if(C_truep(t5)){ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_16793(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16844,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1641: chicken.base#open-output-string */ t8=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k16791 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_16793,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16796,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16811,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16837,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1644: compatible-types? */ f_14682(t4,((C_word*)t0)[6],((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} else{ t4=t3; f_16811(t4,C_SCHEME_FALSE);}} /* k16794 in k16791 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_16796,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16799,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1655: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[65]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16797 in k16794 in k16791 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_16799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_16799,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16802,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1656: chicken.compiler.support#mark-variable */ t3=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[66]; av2[4]=lf[411]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16800 in k16797 in k16794 in k16791 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_16802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16802,2,av);} if(C_truep(((C_word*)t0)[2])){ /* scrutinizer.scm:1658: install-specializations */ t2=*((C_word*)lf[410]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16809 in k16791 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16811(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_16811,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16818,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16822,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1647: scheme#string-append */ t4=*((C_word*)lf[76]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=lf[413]; av2[3]=lf[414]; av2[4]=lf[415]; av2[5]=lf[416]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_16796(2,av2);}}} /* k16816 in k16809 in k16791 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_16818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16818,2,av);} /* scrutinizer.scm:1645: chicken.base#warning */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k16820 in k16809 in k16791 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_16822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_16822,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16826,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1653: type->pp-string */ f_20626(t3,((C_word*)t0)[5]);} /* k16824 in k16820 in k16809 in k16791 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_16826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_16826,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16830,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1654: type->pp-string */ f_20626(t3,((C_word*)t0)[5]);} /* k16828 in k16824 in k16820 in k16809 in k16791 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_16830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_16830,2,av);} /* scrutinizer.scm:1646: chicken.format#sprintf */ t2=*((C_word*)lf[412]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k16835 in k16791 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16837,2,av);} t2=((C_word*)t0)[2]; f_16811(t2,C_i_not(t1));} /* k16842 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_16844,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16850,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1641: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[418]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k16848 in k16842 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16850,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16853,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1641: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16851 in k16848 in k16842 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_16853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16853,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1641: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[417]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16854 in k16851 in k16848 in k16842 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_16856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_16856,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16859,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1641: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k16857 in k16854 in k16851 in k16848 in k16842 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_16859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_16859,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16862,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1641: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k16860 in k16857 in k16854 in k16851 in k16848 in k16842 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_16862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_16862,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16872,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1643: type->pp-string */ f_20626(t3,((C_word*)t0)[5]);} /* k16863 in k16860 in k16857 in k16854 in k16851 in k16848 in k16842 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_16865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16865,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16868,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1641: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k16866 in k16863 in k16860 in k16857 in k16854 in k16851 in k16848 in k16842 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_16868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16868,2,av);} /* scrutinizer.scm:1640: chicken.base#warning */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k16870 in k16860 in k16857 in k16854 in k16851 in k16848 in k16842 in a16788 in k16776 in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_16872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16872,2,av);} /* scrutinizer.scm:1641: ##sys#print */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* adjust in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16877(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_16877,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16890,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t4=t2; t5=C_u_i_car(t4); if(C_truep(C_i_vectorp(t5))){ t6=t2; t7=C_u_i_car(t6); t8=C_i_vector_ref(t7,C_fix(0)); t9=t3; f_16890(t9,C_eqp(lf[84],t8));} else{ t6=t3; f_16890(t6,C_SCHEME_FALSE);}} else{ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16888 in adjust in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16890(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_16890,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16893,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17009,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); /* scrutinizer.scm:1609: scheme#vector->list */ t6=*((C_word*)lf[51]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_eqp(lf[29],t3); if(C_truep(t4)){ t5=((C_word*)t0)[2]; t6=C_i_cadr(t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17028,a[2]=((C_word*)t0)[3],a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=((C_word*)t0)[2]; t10=C_i_caddr(t9); /* scrutinizer.scm:1633: adjust */ t11=((C_word*)((C_word*)t0)[7])[1]; f_16877(t11,t8,t10);} else{ t5=((C_word*)t0)[2]; t6=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* k16891 in k16888 in adjust in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_16893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16893,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[84],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in k17007 in k16888 in adjust in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_16904(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_16904,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=C_eqp(t3,lf[419]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16923,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1613: pure! */ t6=((C_word*)((C_word*)t0)[3])[1]; f_16737(t6,t5,((C_word*)t0)[4]);} else{ t5=C_eqp(t3,lf[420]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16937,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1616: clean! */ t7=((C_word*)((C_word*)t0)[5])[1]; f_16728(t7,t6,((C_word*)t0)[4]);} else{ t6=C_eqp(t3,lf[421]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16951,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1619: chicken.compiler.support#mark-variable */ t8=*((C_word*)lf[235]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[4]; av2[3]=lf[278]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t7=C_eqp(t3,lf[422]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16965,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1622: chicken.compiler.support#mark-variable */ t9=*((C_word*)lf[235]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[4]; av2[3]=lf[423]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t8=C_eqp(t3,lf[424]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16979,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t10=C_i_cadr(t2); /* scrutinizer.scm:1625: chicken.compiler.support#mark-variable */ t11=*((C_word*)lf[235]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t9; av2[2]=((C_word*)t0)[4]; av2[3]=lf[165]; av2[4]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t9=t2; t10=C_u_i_car(t9); /* scrutinizer.scm:1628: chicken.compiler.support#bomb */ t11=*((C_word*)lf[345]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t1; av2[2]=lf[425]; av2[3]=t10; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}}}}}}} /* k16921 in loop in k17007 in k16888 in adjust in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_16923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16923,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1614: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_16904(t4,((C_word*)t0)[4],t3);} /* k16935 in loop in k17007 in k16888 in adjust in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_16937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16937,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1617: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_16904(t4,((C_word*)t0)[4],t3);} /* k16949 in loop in k17007 in k16888 in adjust in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_16951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16951,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1620: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_16904(t4,((C_word*)t0)[4],t3);} /* k16963 in loop in k17007 in k16888 in adjust in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_16965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16965,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:1623: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_16904(t4,((C_word*)t0)[4],t3);} /* k16977 in loop in k17007 in k16888 in adjust in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_16979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16979,2,av);} t2=C_i_cddr(((C_word*)t0)[2]); /* scrutinizer.scm:1626: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_16904(t3,((C_word*)t0)[4],t2);} /* k17007 in k16888 in adjust in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_17009,2,av);} a=C_alloc(9); t2=C_i_cdr(t1); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16904,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_16904(t6,((C_word*)t0)[6],t2);} /* k17026 in k16888 in adjust in k16773 in k16770 in g3461 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_17028,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[29],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17058 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_17060,2,av);} a=C_alloc(9); t2=C_i_check_list_2(t1,lf[212]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17066,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17068,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_17068(t7,t3,t1);} /* k17064 in k17058 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17066,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop3460 in k17058 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17068(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_17068,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17078,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1599: g3461 */ t5=((C_word*)t0)[3]; f_16765(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k17076 in for-each-loop3460 in k17058 in a16762 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17078,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_17068(t3,((C_word*)t0)[4],t2);} /* a17090 in k16751 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17091,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[17]); t3=C_mutate(&lf[17] /* (set! chicken.compiler.scrutinizer#scrutiny-debug ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17096 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_17098,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17104,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1597: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[430]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k17102 in k17096 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_17104,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1597: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k17105 in k17102 in k17096 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_17107,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17110,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1597: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[429]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k17108 in k17105 in k17102 in k17096 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17110,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17113,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1597: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k17111 in k17108 in k17105 in k17102 in k17096 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17113,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17116,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1597: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k17114 in k17111 in k17108 in k17105 in k17102 in k17096 in k16745 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17116,2,av);} /* scrutinizer.scm:1597: chicken.compiler.support#debugging */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[428]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k17123 in k16724 in chicken.compiler.scrutinizer#load-type-database in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17125,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_16747(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_16747(2,av2);}}} /* chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_17139,6,av);} a=C_alloc(5); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17145,a[2]=t5,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1663: scheme#with-output-to-file */ t7=*((C_word*)lf[448]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=t3; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_17145,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17149,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17307,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1665: chicken.platform#chicken-version */ t4=*((C_word*)lf[447]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_17149,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17152,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17157,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1667: chicken.internal#hash-table-for-each */ t4=*((C_word*)lf[443]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17150 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17152,2,av);} /* scrutinizer.scm:1698: chicken.base#print */ t2=*((C_word*)lf[357]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[435]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_17157,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17164,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17298,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1669: chicken.compiler.support#variable-visible? */ t6=*((C_word*)lf[249]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17164(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_17164,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17167,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1671: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[64]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[162]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_17167,2,av);} a=C_alloc(5); t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1672: chicken.compiler.support#variable-mark */ t5=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[65]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_17173,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17176,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1673: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[165]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_17176,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17179,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1674: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[274]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_17179,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17182,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:1675: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[273]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_17182,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17185,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:1676: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[278]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_17185,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17188,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:1677: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[423]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_17188,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17191,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17198,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17202,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17204,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=t2,a[7]=t7,tmp=(C_word)a,a+=8,tmp)); t9=((C_word*)t7)[1]; f_17204(t9,t5,((C_word*)t0)[9]);} /* k17189 in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_17191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17191,2,av);} /* scrutinizer.scm:1696: scheme#newline */ t2=*((C_word*)lf[436]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17196 in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_17198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17198,2,av);} /* scrutinizer.scm:1678: chicken.pretty-print#pp */ t2=*((C_word*)lf[437]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k17200 in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_17202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_17202,2,av);} a=C_alloc(11); t2=((C_word*)t0)[2]; t3=C_a_i_list(&a,2,t1,((C_word*)t0)[3]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7177,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_7177(t7,((C_word*)t0)[4],t2,t3);} /* wrap in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_fcall f_17204(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(25,0,3)))){ C_save_and_reclaim_args((void *)trf_17204,3,t0,t1,t2);} a=C_alloc(25); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[84]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17225,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17235,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=(C_truep(((C_word*)t0)[2])?lf[438]:C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17243,a[2]=t7,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=(C_truep(((C_word*)t0)[3])?C_a_i_list(&a,2,lf[424],((C_word*)t0)[3]):C_SCHEME_END_OF_LIST); t12=t11; t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17251,a[2]=t10,a[3]=t12,tmp=(C_word)a,a+=4,tmp); t14=(C_truep(((C_word*)t0)[4])?lf[439]:C_SCHEME_END_OF_LIST); t15=t14; t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17259,a[2]=t13,a[3]=t15,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[5])){ t17=lf[440]; if(C_truep(((C_word*)t0)[6])){ /* scrutinizer.scm:1684: ##sys#append */ t18=*((C_word*)lf[406]+1);{ C_word av2[4]; av2[0]=t18; av2[1]=t16; av2[2]=t17; av2[3]=lf[441]; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} else{ /* scrutinizer.scm:1684: ##sys#append */ t18=*((C_word*)lf[406]+1);{ C_word av2[4]; av2[0]=t18; av2[1]=t16; av2[2]=t17; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}}} else{ t17=C_SCHEME_END_OF_LIST; if(C_truep(((C_word*)t0)[6])){ /* scrutinizer.scm:1684: ##sys#append */ t18=*((C_word*)lf[406]+1);{ C_word av2[4]; av2[0]=t18; av2[1]=t16; av2[2]=t17; av2[3]=lf[441]; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} else{ /* scrutinizer.scm:1684: ##sys#append */ t18=*((C_word*)lf[406]+1);{ C_word av2[4]; av2[0]=t18; av2[1]=t16; av2[2]=t17; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}}}} else{ t6=C_eqp(t4,lf[29]); if(C_truep(t6)){ t7=t2; t8=C_i_cadr(t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17287,a[2]=t1,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=t2; t12=C_i_caddr(t11); /* scrutinizer.scm:1692: wrap */ t19=t10; t20=t12; t1=t19; t2=t20; goto loop;} else{ t7=t2; t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} else{ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k17223 in wrap in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_17225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_17225,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17233 in wrap in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_17235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17235,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[84],t1); /* scrutinizer.scm:1684: ##sys#list->vector */ t3=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k17241 in wrap in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_17243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17243,2,av);} /* scrutinizer.scm:1684: ##sys#append */ t2=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k17249 in wrap in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_17251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17251,2,av);} /* scrutinizer.scm:1684: ##sys#append */ t2=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k17257 in wrap in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_17259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17259,2,av);} /* scrutinizer.scm:1684: ##sys#append */ t2=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k17285 in wrap in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_17287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_17287,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[29],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17296 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17298,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17302,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1670: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[66]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_17164(t2,C_SCHEME_FALSE);}} /* k17300 in k17296 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17302,2,av);} t2=((C_word*)t0)[2]; f_17164(t2,C_u_i_memq(t1,lf[442]));} /* k17305 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_17307,2,av);} /* scrutinizer.scm:1665: chicken.base#print */ t2=*((C_word*)lf[357]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[444]; av2[3]=t1; av2[4]=lf[445]; av2[5]=((C_word*)t0)[3]; av2[6]=lf[446]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* chicken.compiler.scrutinizer#mutate-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17310(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_17310,3,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17315,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17326,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1713: chicken.compiler.support#copy-node */ t6=*((C_word*)lf[452]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k17313 in chicken.compiler.scrutinizer#mutate-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17315,2,av);} a=C_alloc(4); t2=C_mutate(&lf[449] /* (set! chicken.compiler.scrutinizer#node-mutations ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17322,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1714: chicken.compiler.support#build-node-graph */ t4=*((C_word*)lf[451]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k17320 in k17313 in chicken.compiler.scrutinizer#mutate-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17322,2,av);} /* scrutinizer.scm:1714: chicken.compiler.support#copy-node! */ t2=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k17324 in chicken.compiler.scrutinizer#mutate-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_17326,2,av);} /* scrutinizer.scm:1713: chicken.base#alist-update! */ t2=*((C_word*)lf[186]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=lf[449]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.compiler.scrutinizer#source-node in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17328(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_17328,3,t1,t2,t3);} a=C_alloc(5); t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[454]+1):C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17335,a[2]=t6,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1717: chicken.base#alist-ref */ t8=*((C_word*)lf[277]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=lf[449]; av2[4]=*((C_word*)lf[376]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* k17333 in chicken.compiler.scrutinizer#source-node in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17335,2,av);} a=C_alloc(3); if(C_truep(C_i_not(t1))){ /* scrutinizer.scm:1718: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ /* scrutinizer.scm:1718: source-node */ f_17328(((C_word*)t0)[3],t1,C_a_i_list(&a,1,((C_word*)t0)[2]));}} /* chicken.compiler.scrutinizer#source-node-tree in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_17355,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17361,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:1721: source-node */ f_17328(t1,t2,C_a_i_list(&a,1,t3));} /* a17360 in chicken.compiler.scrutinizer#source-node-tree in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17361,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17369,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1724: chicken.compiler.support#node-class */ t4=*((C_word*)lf[88]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k17367 in a17360 in chicken.compiler.scrutinizer#source-node-tree in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_17369,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17373,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1725: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k17371 in k17367 in a17360 in chicken.compiler.scrutinizer#source-node-tree in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_17373,2,av);} a=C_alloc(13); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=lf[455]; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17380,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t5,a[6]=t7,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:1726: chicken.compiler.support#node-subexpressions */ t9=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k17378 in k17371 in k17367 in a17360 in chicken.compiler.scrutinizer#source-node-tree in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_17380,2,av);} a=C_alloc(13); t2=C_i_check_list_2(t1,lf[6]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17386,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17388,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_17388(t7,t3,t1);} /* k17384 in k17378 in k17371 in k17367 in a17360 in chicken.compiler.scrutinizer#source-node-tree in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_17386,2,av);} /* scrutinizer.scm:1724: chicken.compiler.support#make-node */ t2=*((C_word*)lf[271]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop3613 in k17378 in k17371 in k17367 in a17360 in chicken.compiler.scrutinizer#source-node-tree in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17388(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_17388,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17413,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1726: g3619 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17411 in map-loop3613 in k17378 in k17371 in k17367 in a17360 in chicken.compiler.scrutinizer#source-node-tree in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17413,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_17388(t6,((C_word*)t0)[5],t5);} /* k17428 in chicken.compiler.scrutinizer#node-source-prefix in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_17430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17430,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=t1; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17436,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1732: chicken.compiler.support#node-class */ t5=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k17434 in k17428 in chicken.compiler.scrutinizer#node-source-prefix in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_17436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17436,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[120]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17445,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1734: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_eqp(t1,lf[313]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17484,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1739: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k17443 in k17434 in k17428 in chicken.compiler.scrutinizer#node-source-prefix in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_17445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17445,2,av);} t2=C_i_cdr(t1); if(C_truep(C_i_pairp(t2))){ t3=C_i_cadr(t1); if(C_truep(C_i_pairp(t3))){ t4=C_u_i_cdr(t1); t5=C_u_i_car(t4); /* scrutinizer.scm:1737: chicken.compiler.support#source-info->line */ t6=*((C_word*)lf[512]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[2]; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17482 in k17434 in k17428 in chicken.compiler.scrutinizer#node-source-prefix in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_17484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17484,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.scrutinizer#specialize-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17490(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_17490,4,t1,t2,t3,t4);} a=C_alloc(13); t5=C_SCHEME_END_OF_LIST; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17493,a[2]=t3,a[3]=t6,a[4]=t8,tmp=(C_word)a,a+=5,tmp)); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17641,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1768: subst */ t11=((C_word*)t8)[1]; f_17493(t11,t10,t4);} /* subst in chicken.compiler.scrutinizer#specialize-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17493(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_17493,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17500,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_vectorp(t2))){ t4=t2; t5=C_block_size(t4); t6=t3; f_17500(t6,C_eqp(C_fix(1),t5));} else{ t4=t3; f_17500(t4,C_SCHEME_FALSE);}} /* k17498 in subst in chicken.compiler.scrutinizer#specialize-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17500(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(58,0,2)))){ C_save_and_reclaim_args((void *)trf_17500,2,t0,t1);} a=C_alloc(58); if(C_truep(t1)){ t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); t3=t2; if(C_truep(C_i_integerp(t3))){ if(C_truep(C_i_negativep(t3))){ t4=C_s_a_i_negate(&a,1,t3); t5=C_s_a_i_minus(&a,2,t4,C_fix(1)); t6=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_list_tail(((C_word*)t0)[4],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=C_s_a_i_minus(&a,2,t3,C_fix(1)); t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=C_i_list_ref(((C_word*)t0)[4],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ if(C_truep(C_i_symbolp(t3))){ t4=C_i_assq(t3,((C_word*)((C_word*)t0)[5])[1]); if(C_truep(t4)){ t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17540,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1757: chicken.base#gensym */ t6=*((C_word*)lf[197]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17550,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_block_size(t3); t5=C_eqp(C_fix(2),t4); if(C_truep(t5)){ t6=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); if(C_truep(C_i_integerp(t6))){ t7=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); t8=t2; f_17550(t8,C_eqp(lf[456],t7));} else{ t7=t2; f_17550(t7,C_SCHEME_FALSE);}} else{ t6=t2; f_17550(t6,C_SCHEME_FALSE);}} else{ t3=t2; f_17550(t3,C_SCHEME_FALSE);}}} /* k17538 in k17498 in subst in chicken.compiler.scrutinizer#specialize-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_17540,2,av);} a=C_alloc(6); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); t4=C_a_i_cons(&a,2,t3,t2); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k17548 in k17498 in subst in chicken.compiler.scrutinizer#specialize-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17550(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,0,2)))){ C_save_and_reclaim_args((void *)trf_17550,2,t0,t1);} a=C_alloc(29); if(C_truep(t1)){ t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); t3=C_s_a_i_minus(&a,2,t2,C_fix(1)); t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_list_tail(((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_i_pairp(((C_word*)t0)[2]); if(C_truep(C_i_not(t2))){ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(((C_word*)t0)[2]); t4=C_eqp(lf[123],t3); if(C_truep(t4)){ t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17577,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t6=((C_word*)t0)[2]; t7=C_u_i_car(t6); /* scrutinizer.scm:1767: subst */ t8=((C_word*)((C_word*)t0)[5])[1]; f_17493(t8,t5,t7);}}}} /* k17575 in k17548 in k17498 in subst in chicken.compiler.scrutinizer#specialize-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17577,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17581,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* scrutinizer.scm:1767: subst */ t6=((C_word*)((C_word*)t0)[4])[1]; f_17493(t6,t3,t5);} /* k17579 in k17575 in k17548 in k17498 in subst in chicken.compiler.scrutinizer#specialize-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_17581,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17639 in chicken.compiler.scrutinizer#specialize-node! in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17641,2,av);} /* scrutinizer.scm:1768: mutate-node! */ f_17310(((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,c,4)))){ C_save_and_reclaim((void *)f_17643,4,av);} a=C_alloc(37); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_FALSE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_END_OF_LIST; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_END_OF_LIST; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17674,tmp=(C_word)a,a+=2,tmp)); t19=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17708,a[2]=t15,a[3]=t17,tmp=(C_word)a,a+=4,tmp)); t20=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17838,a[2]=t9,a[3]=t17,a[4]=t11,a[5]=t5,a[6]=t13,a[7]=t7,a[8]=t3,a[9]=t15,tmp=(C_word)a,a+=10,tmp)); t21=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18895,a[2]=t5,a[3]=t7,a[4]=t9,a[5]=t11,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1946: validate */ t22=((C_word*)t17)[1];{ C_word *av2=av; av2[0]=t22; av2[1]=t21; av2[2]=t2; av2[3]=C_SCHEME_FALSE; f_17838(4,av2);}} /* loop in k18356 in k18353 in g3876 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17652(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_17652,3,t0,t1,t2);} a=C_alloc(4); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17670,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); /* scrutinizer.scm:1793: loop */ t10=t6; t11=t8; t1=t10; t2=t11; goto loop;}} /* k17668 in loop in k18356 in k18353 in g3876 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_17670,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* memq* in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17674(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_17674,3,t1,t2,t3);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17680,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=( f_17680(t4,t3) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* loop in memq* in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static C_word C_fcall f_17680(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check; loop:{} t2=C_i_pairp(t1); if(C_truep(C_i_not(t2))){ return(C_SCHEME_FALSE);} else{ t3=C_i_car(t1); t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ return(t1);} else{ t5=t1; t6=C_u_i_cdr(t5); t8=t6; t1=t8; goto loop;}}} /* validate-llist in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17708(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_17708,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=lf[457]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_eqp(lf[366],t4); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17736,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(t5)){ t7=t6; f_17736(t7,t5);} else{ t7=t2; t8=C_u_i_car(t7); t9=t6; f_17736(t9,C_eqp(lf[462],t8));}}}}} /* k17734 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17736(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_17736,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17739,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* scrutinizer.scm:1805: validate-llist */ t5=((C_word*)((C_word*)t0)[4])[1]; f_17708(t5,t2,t4);} else{ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=C_eqp(lf[367],t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17756,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(t4)){ t6=t5; f_17756(t6,t4);} else{ t6=((C_word*)t0)[3]; t7=C_u_i_car(t6); t8=t5; f_17756(t8,C_eqp(lf[461],t7));}}} /* k17737 in k17734 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_17739,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_a_i_cons(&a,2,lf[366],t1):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17754 in k17734 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_17756(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_17756,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_nullp(t3))){ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[458]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_i_pairp(t5); if(C_truep(C_i_not(t6))){ t7=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17771,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t8=C_i_cadr(((C_word*)t0)[2]); /* scrutinizer.scm:1812: validate */ t9=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[3]; av2[0]=t9; av2[1]=t7; av2[2]=t8; f_17838(3,av2);}}}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_eqp(lf[459],t3); if(C_truep(t4)){ t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=lf[460]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17798,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t6=((C_word*)t0)[2]; t7=C_u_i_car(t6); /* scrutinizer.scm:1816: validate */ t8=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[3]; av2[0]=t8; av2[1]=t5; av2[2]=t7; f_17838(3,av2);}}}} /* k17769 in k17754 in k17734 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_17771,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_a_i_list(&a,2,lf[367],t1):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17796 in k17754 in k17734 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17798,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17801,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* scrutinizer.scm:1817: validate-llist */ t6=((C_word*)((C_word*)t0)[4])[1]; f_17708(t6,t3,t5);} /* k17799 in k17796 in k17754 in k17734 in validate-llist in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_17801,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(((C_word*)t0)[3])?(C_truep(t1)?C_a_i_cons(&a,2,((C_word*)t0)[3],t1):C_SCHEME_FALSE):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +15,c,3)))){ C_save_and_reclaim((void*)f_17838,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+15); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t5=C_i_nullp(t3); t6=(C_truep(t5)?C_SCHEME_TRUE:C_i_car(t3)); t7=t6; if(C_truep(C_i_memq(((C_word*)t4)[1],lf[19]))){ t8=((C_word*)t4)[1]; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ if(C_truep(C_i_memq(((C_word*)t4)[1],lf[21]))){ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=((C_word*)t4)[1]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ if(C_truep(C_i_memq(((C_word*)t4)[1],lf[463]))){ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_list(&a,2,lf[52],((C_word*)t4)[1]); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(((C_word*)t4)[1],lf[464]); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=lf[465]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_eqp(((C_word*)t4)[1],lf[466]); if(C_truep(t9)){ t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=lf[53]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(((C_word*)t4)[1],lf[467]); if(C_truep(t10)){ t11=t1;{ C_word *av2=av; av2[0]=t11; av2[1]=lf[35]; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_eqp(((C_word*)t4)[1],lf[468]); if(C_truep(t11)){ t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=lf[469]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(((C_word*)t4)[1],lf[470]); if(C_truep(t12)){ t13=t1;{ C_word *av2=av; av2[0]=t13; av2[1]=lf[471]; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t13=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17896,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t7,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],tmp=(C_word)a,a+=13,tmp); if(C_truep(C_i_symbolp(((C_word*)t4)[1]))){ /* scrutinizer.scm:1828: ##sys#get */ t14=*((C_word*)lf[476]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t14; av2[1]=t13; av2[2]=((C_word*)t4)[1]; av2[3]=lf[477]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t14=t13;{ C_word *av2=av; av2[0]=t14; av2[1]=C_SCHEME_FALSE; f_17896(2,av2);}}}}}}}}}}} /* k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_17896,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_i_pairp(((C_word*)((C_word*)t0)[3])[1]); if(C_truep(C_i_not(t2))){ if(C_truep(C_i_memq(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]))){ t3=((C_word*)((C_word*)t0)[3])[1]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=C_i_car(((C_word*)((C_word*)t0)[3])[1]); t4=C_eqp(lf[69],t3); if(C_truep(t4)){ t5=C_i_length(((C_word*)((C_word*)t0)[3])[1]); t6=C_eqp(C_fix(2),t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17930,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=((C_word*)((C_word*)t0)[3])[1]; t9=C_i_cadr(t8); /* scrutinizer.scm:1834: validate */ t10=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t7; av2[2]=t9; f_17838(3,av2);}} else{ t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t5=C_i_car(((C_word*)((C_word*)t0)[3])[1]); t6=C_eqp(lf[29],t5); if(C_truep(t6)){ t7=C_i_length(((C_word*)((C_word*)t0)[3])[1]); t8=C_eqp(C_fix(3),t7); if(C_truep(t8)){ t9=((C_word*)((C_word*)t0)[3])[1]; t10=C_i_cadr(t9); if(C_truep(C_i_listp(t10))){ t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17962,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1838: chicken.base#call/cc */ t12=*((C_word*)lf[167]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=((C_word*)t0)[2]; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t11=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t9=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18112,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); t8=C_i_car(((C_word*)((C_word*)t0)[3])[1]); t9=C_eqp(lf[123],t8); if(C_truep(t9)){ t10=C_i_cdr(((C_word*)((C_word*)t0)[3])[1]); if(C_truep(C_i_pairp(t10))){ t11=((C_word*)((C_word*)t0)[3])[1]; t12=C_i_cadr(t11); if(C_truep(C_i_symbolp(t12))){ t13=C_i_cddr(((C_word*)((C_word*)t0)[3])[1]); if(C_truep(C_i_nullp(t13))){ t14=((C_word*)((C_word*)t0)[3])[1]; t15=t7; f_18112(t15,C_i_cadr(t14));} else{ t14=t7; f_18112(t14,C_SCHEME_FALSE);}} else{ t13=t7; f_18112(t13,C_SCHEME_FALSE);}} else{ t11=t7; f_18112(t11,C_SCHEME_FALSE);}} else{ t10=t7; f_18112(t10,C_SCHEME_FALSE);}}}}}} /* k17928 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_17930,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[69],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a17961 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_17962,3,av);} a=C_alloc(29); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17967,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18019,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=((C_word*)((C_word*)t0)[4])[1]; t10=C_i_cadr(t9); t11=C_i_check_list_2(t10,lf[6]); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18066,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18068,a[2]=t6,a[3]=t14,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_18068(t16,t12,t10);} /* k17965 in a17961 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_17967,2,av);} a=C_alloc(15); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17971,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17982,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17984,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t6=((C_word*)((C_word*)t0)[4])[1]; t7=C_i_cadr(t6); /* scrutinizer.scm:1851: filter-map */ f_7391(t4,t5,t7);} /* k17969 in k17965 in a17961 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17971,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_i_caddr(t3); /* scrutinizer.scm:1860: validate */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=t4; av2[3]=((C_word*)t0)[6]; f_17838(4,av2);}} /* k17980 in k17965 in a17961 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17982,2,av);} /* scrutinizer.scm:1851: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a17983 in k17965 in a17961 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_17984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_17984,3,av);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18000,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=C_i_cadr(t2); /* scrutinizer.scm:1855: validate */ t7=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; av2[0]=t7; av2[1]=t5; av2[2]=t6; f_17838(3,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17998 in a17983 in k17965 in a17961 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_18000,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18003,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* scrutinizer.scm:1856: return */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k18001 in k17998 in a17983 in k17965 in a17961 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_18003,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g3781 in a17961 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18019(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_18019,3,t0,t1,t2);} if(C_truep(C_i_symbolp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_listp(t2))){ t3=t2; t4=C_u_i_length(t3); t5=C_eqp(C_fix(2),t4); if(C_truep(t5)){ t6=C_i_car(t2); if(C_truep(C_i_symbolp(t6))){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* scrutinizer.scm:1847: return */ t7=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t7; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} else{ /* scrutinizer.scm:1847: return */ t6=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t6; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} else{ /* scrutinizer.scm:1847: return */ t3=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t3; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k18064 in a17961 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18066,2,av);} /* scrutinizer.scm:1841: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop3775 in a17961 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18068(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18068,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18093,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1841: g3781 */ t5=((C_word*)t0)[4]; f_18019(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18091 in map-loop3775 in a17961 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18093,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18068(t6,((C_word*)t0)[5],t5);} /* k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18112(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_18112,2,t0,t1);} a=C_alloc(16); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18116,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1820: g3817 */ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=( /* scrutinizer.scm:1820: g3817 */ f_18116(C_a_i(&a,3),t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_i_car(((C_word*)((C_word*)t0)[4])[1]); t3=C_eqp(lf[28],t2); if(C_truep(t3)){ if(C_truep(C_i_listp(((C_word*)((C_word*)t0)[4])[1]))){ t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)((C_word*)t0)[5])[1]; t9=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); t10=C_i_check_list_2(t9,lf[6]); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18154,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18165,a[2]=t6,a[3]=t13,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_18165(t15,t11,t9);} else{ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=C_i_car(((C_word*)((C_word*)t0)[4])[1]); t5=C_eqp(lf[52],t4); if(C_truep(t5)){ t6=C_i_length(((C_word*)((C_word*)t0)[4])[1]); t7=C_eqp(C_fix(2),t6); if(C_truep(t7)){ t8=((C_word*)((C_word*)t0)[4])[1]; t9=C_i_cadr(t8); if(C_truep(C_i_symbolp(t9))){ t10=((C_word*)((C_word*)t0)[4])[1]; t11=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t10=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t8=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t6=C_i_car(((C_word*)((C_word*)t0)[4])[1]); t7=C_eqp(lf[59],t6); if(C_truep(t7)){ t8=C_i_length(((C_word*)((C_word*)t0)[4])[1]); t9=C_eqp(C_fix(2),t8); if(C_truep(t9)){ t10=((C_word*)((C_word*)t0)[4])[1]; t11=C_i_cadr(t10); t12=C_i_symbolp(t11); t13=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t13; av2[1]=(C_truep(t12)?((C_word*)((C_word*)t0)[4])[1]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t10=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t8=C_i_car(((C_word*)((C_word*)t0)[4])[1]); t9=C_eqp(lf[374],t8); if(C_truep(t9)){ t10=C_i_length(((C_word*)((C_word*)t0)[4])[1]); t11=C_eqp(C_fix(3),t10); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18266,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t13=((C_word*)((C_word*)t0)[4])[1]; t14=C_i_caddr(t13); /* scrutinizer.scm:1881: validate */ t15=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[3]; av2[0]=t15; av2[1]=t12; av2[2]=t14; f_17838(3,av2);}} else{ t12=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} else{ t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18335,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:1886: memq* */ f_17674(t10,lf[473],((C_word*)((C_word*)t0)[4])[1]);}}}}}} /* g3817 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static C_word C_fcall f_18116(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} if(C_truep(C_i_memq(t1,((C_word*)((C_word*)t0)[2])[1]))){ return(t1);} else{ t2=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); return(t1);}} /* k18152 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_18154,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18160,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1873: every */ f_7107(t3,*((C_word*)lf[396]+1),t2);} /* k18158 in k18152 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18160,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_a_i_cons(&a,2,lf[28],((C_word*)t0)[3]):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop3825 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18165(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18165,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18190,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1872: g3831 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18188 in map-loop3825 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18190,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18165(t6,((C_word*)t0)[5],t5);} /* k18264 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_18266,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18296,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t2))){ t4=C_u_i_car(t2); t5=C_eqp(t4,lf[52]); t6=t3; f_18296(t6,(C_truep(t5)?t5:C_i_memq(t2,lf[19])));} else{ t4=t3; f_18296(t4,C_i_memq(t2,lf[19]));}} /* k18294 in k18264 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18296(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_18296,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_cadr(t2); if(C_truep(C_i_listp(t3))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18308,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=((C_word*)((C_word*)t0)[2])[1]; t6=C_i_cadr(t5); /* scrutinizer.scm:1884: every */ f_7107(t4,*((C_word*)lf[472]+1),t6);} else{ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k18306 in k18294 in k18264 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_18308,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_cadr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list3(&a,3,lf[374],t3,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_18335,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18338,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_18338(2,av2);}} else{ /* scrutinizer.scm:1886: memq* */ f_17674(t2,lf[475],((C_word*)((C_word*)t0)[4])[1]);}} /* k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_18338,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:1820: g3876 */ t3=t2; f_18342(t3,((C_word*)t0)[8],t1);} else{ t2=C_i_car(((C_word*)((C_word*)t0)[4])[1]); if(C_truep((C_truep(C_eqp(t2,lf[361]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[363]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ if(C_truep(C_i_listp(((C_word*)((C_word*)t0)[4])[1]))){ t3=C_i_length(((C_word*)((C_word*)t0)[4])[1]); t4=C_eqp(C_fix(2),t3); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18484,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); t6=((C_word*)((C_word*)t0)[4])[1]; t7=C_i_cadr(t6); /* scrutinizer.scm:1909: validate */ t8=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t5; av2[2]=t7; f_17838(3,av2);}} else{ t5=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=C_i_car(((C_word*)((C_word*)t0)[4])[1]); if(C_truep((C_truep(C_eqp(t3,lf[50]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[47]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ if(C_truep(C_i_listp(((C_word*)((C_word*)t0)[4])[1]))){ t4=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18526,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_18526(t8,((C_word*)t0)[8],t4,C_SCHEME_END_OF_LIST);} else{ t4=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=C_i_car(((C_word*)((C_word*)t0)[4])[1]); t5=C_eqp(lf[48],t4); if(C_truep(t5)){ t6=C_i_length(((C_word*)((C_word*)t0)[4])[1]); t7=C_eqp(C_fix(3),t6); if(C_truep(t7)){ t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=((C_word*)((C_word*)t0)[3])[1]; t13=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); t14=C_i_check_list_2(t13,lf[6]); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18594,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18605,a[2]=t10,a[3]=t17,a[4]=t12,a[5]=t11,tmp=(C_word)a,a+=6,tmp)); t19=((C_word*)t17)[1]; f_18605(t19,t15,t13);} else{ t8=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t6=C_i_car(((C_word*)((C_word*)t0)[4])[1]); t7=C_eqp(lf[84],t6); if(C_truep(t7)){ t8=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); if(C_truep(C_i_pairp(t8))){ t9=C_i_cadr(((C_word*)((C_word*)t0)[4])[1]); t10=C_i_symbolp(t9); t11=(C_truep(t10)?C_i_cadr(((C_word*)((C_word*)t0)[4])[1]):((C_word*)t0)[9]); t12=t11; t13=C_i_cadr(((C_word*)((C_word*)t0)[4])[1]); t14=C_i_symbolp(t13); t15=(C_truep(t14)?C_i_cddr(((C_word*)((C_word*)t0)[4])[1]):C_i_cdr(((C_word*)((C_word*)t0)[4])[1])); t16=t15; if(C_truep(C_i_pairp(t16))){ t17=C_u_i_car(t16); if(C_truep(C_i_listp(t17))){ t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18675,a[2]=t16,a[3]=((C_word*)t0)[8],a[4]=t12,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t19=C_u_i_car(t16); /* scrutinizer.scm:1930: validate-llist */ t20=((C_word*)((C_word*)t0)[10])[1]; f_17708(t20,t18,t19);} else{ t18=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t18; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}} else{ t17=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t17; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}} else{ t9=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t8=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}}}} /* g3876 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18342(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_18342,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_car(t2); t4=C_eqp(lf[473],t3); t5=C_i_not(((C_word*)t0)[2]); t6=(C_truep(t5)?t5:C_i_not(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18355,a[2]=t7,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[2])){ t9=t8; f_18355(t9,C_SCHEME_UNDEFINED);} else{ t9=C_set_block_item(((C_word*)t0)[7],0,t4); t10=t8; f_18355(t10,t9);}} /* k18353 in g3876 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18355(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_18355,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:1891: memq* */ f_17674(t2,lf[474],((C_word*)t0)[3]);} /* k18356 in k18353 in g3876 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_18358,2,av);} a=C_alloc(12); t2=t1; if(C_truep(C_i_not(t2))){ if(C_truep(((C_word*)t0)[2])){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18382,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)((C_word*)t0)[7])[1]; t5=((C_word*)t0)[3]; t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17652,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_17652(t9,t3,t4);} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18390,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t4=C_i_length(((C_word*)((C_word*)t0)[7])[1]); t5=C_eqp(C_fix(5),t4); if(C_truep(t5)){ t6=C_i_cdr(((C_word*)((C_word*)t0)[7])[1]); t7=C_eqp(((C_word*)t0)[3],t6); if(C_truep(t7)){ t8=C_i_cdddr(((C_word*)((C_word*)t0)[7])[1]); t9=t3; f_18390(t9,C_eqp(t2,t8));} else{ t8=t3; f_18390(t8,C_SCHEME_FALSE);}} else{ t6=t3; f_18390(t6,C_SCHEME_FALSE);}}} /* k18380 in k18356 in k18353 in g3876 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_18382,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,t1,t3); t5=C_a_i_cons(&a,2,lf[84],t4); /* scrutinizer.scm:1894: validate */ t6=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=t5; av2[3]=((C_word*)t0)[5]; f_17838(4,av2);}} /* k18388 in k18356 in k18353 in g3876 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18390(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){ C_save_and_reclaim_args((void *)trf_18390,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18394,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_i_car(t3); t5=C_a_i_list(&a,1,t4); t6=((C_word*)((C_word*)t0)[2])[1]; t7=C_i_caddr(t6); t8=C_a_i_list(&a,3,lf[84],t5,t7); /* scrutinizer.scm:1900: validate */ t9=((C_word*)((C_word*)t0)[7])[1];{ C_word av2[4]; av2[0]=t9; av2[1]=t2; av2[2]=t8; av2[3]=((C_word*)t0)[8]; f_17838(4,av2);}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k18392 in k18388 in k18356 in k18353 in g3876 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_18394,2,av);} a=C_alloc(6); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18405,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=C_i_cadr(((C_word*)t0)[6]); /* scrutinizer.scm:1903: validate */ t5=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; f_17838(3,av2);}} /* k18403 in k18392 in k18388 in k18356 in k18353 in g3876 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18405,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); if(C_truep(((C_word*)t0)[4])){ t4=((C_word*)((C_word*)t0)[2])[1]; t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18482 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_18484,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,2,t2,t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* loop in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18526(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18526,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18544,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1914: scheme#reverse */ t7=*((C_word*)lf[369]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18547,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t2); /* scrutinizer.scm:1915: validate */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; f_17838(3,av2);}}} /* k18542 in loop in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18544,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k18545 in loop in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_18547,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18551,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1914: g3922 */ t3=t2; f_18551(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g3922 in k18545 in loop in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18551(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_18551,3,t0,t1,t2);} a=C_alloc(3); t3=C_i_cdr(((C_word*)t0)[2]); t4=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); /* scrutinizer.scm:1916: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_18526(t5,t1,t3,t4);} /* k18592 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_18594,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18600,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1921: every */ f_7107(t3,*((C_word*)lf[396]+1),t2);} /* k18598 in k18592 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18600,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_a_i_cons(&a,2,lf[48],((C_word*)t0)[3]):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop3930 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18605(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18605,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18630,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1920: g3936 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18628 in map-loop3930 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18630,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18605(t6,((C_word*)t0)[5],t5);} /* k18673 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_18675,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:1932: every */ f_7107(t3,*((C_word*)lf[396]+1),t2);} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18682 in k18673 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_18684,2,av);} a=C_alloc(22); if(C_truep(t1)){ t2=C_u_i_cdr(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18688,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=C_eqp(lf[53],t2); if(C_truep(t4)){ t5=t3; f_18688(t5,t2);} else{ if(C_truep(C_i_listp(t2))){ t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=((C_word*)((C_word*)t0)[7])[1]; t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18730,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18738,a[2]=t7,a[3]=t12,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_18738(t14,t10,t2);} else{ t5=t3; f_18688(t5,C_SCHEME_FALSE);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k18686 in k18682 in k18673 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18688(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_18688,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18698,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ t3=C_i_not(((C_word*)t0)[4]); t4=(C_truep(t3)?C_a_i_list1(&a,1,((C_word*)t0)[3]):C_SCHEME_END_OF_LIST); t5=C_a_i_cons(&a,2,((C_word*)t0)[5],t1); /* scrutinizer.scm:1941: ##sys#append */ t6=*((C_word*)lf[406]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t2; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_a_i_cons(&a,2,((C_word*)t0)[5],t1); /* scrutinizer.scm:1941: ##sys#append */ t4=*((C_word*)lf[406]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k18696 in k18686 in k18682 in k18673 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18698,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[84],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k18728 in k18682 in k18673 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_18730,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18736,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1938: every */ f_7107(t3,*((C_word*)lf[396]+1),t2);} /* k18734 in k18728 in k18682 in k18673 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18736,2,av);} t2=((C_word*)t0)[2]; f_18688(t2,(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE));} /* map-loop3972 in k18682 in k18673 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18738(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18738,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18763,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1937: g3978 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18761 in map-loop3972 in k18682 in k18673 in k18336 in k18333 in k18110 in k17894 in validate in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18763,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18738(t6,((C_word*)t0)[5],t5);} /* k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_18895,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18899,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1946: g4003 */ t3=t2; f_18899(t3,((C_word*)t0)[6],t1);} else{ /* scrutinizer.scm:1962: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[6]; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}}} /* g4003 in k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18899(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){ C_save_and_reclaim_args((void *)trf_18899,3,t0,t1,t2);} a=C_alloc(23); t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18903,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[4])[1]))){ t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18938,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18962,a[2]=t3,a[3]=t4,a[4]=t7,a[5]=t9,a[6]=t8,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:1955: delete-duplicates */ f_7302(t10,((C_word*)((C_word*)t0)[4])[1],*((C_word*)lf[376]+1));} else{ t5=t4; f_18903(t5,C_SCHEME_UNDEFINED);}} /* k18901 in g4003 in k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18903(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18903,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18906,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:1957: simplify-type */ f_13475(t2,((C_word*)((C_word*)t0)[3])[1]);} /* k18904 in k18901 in g4003 in k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18906,2,av);} if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_eqp(t2,((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t3)){ t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); /* scrutinizer.scm:1958: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t4; av2[4]=((C_word*)((C_word*)t0)[5])[1]; C_values(5,av2);}} else{ /* scrutinizer.scm:1958: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)((C_word*)t0)[5])[1]; C_values(5,av2);}}} else{ /* scrutinizer.scm:1958: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)((C_word*)t0)[5])[1]; C_values(5,av2);}}} /* g4017 in g4003 in k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18938(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_18938,3,t0,t1,t2);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18942,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18955,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18959,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1952: chicken.syntax#strip-syntax */ t6=*((C_word*)lf[480]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k18940 in g4017 in g4003 in k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18942,2,av);} t2=C_i_assq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t2)){ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18953 in g4017 in g4003 in k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18955,2,av);} /* scrutinizer.scm:1952: chicken.plist#put! */ t2=*((C_word*)lf[478]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[378]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k18957 in g4017 in g4003 in k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18959,2,av);} /* scrutinizer.scm:1952: scheme#symbol->string */ t2=*((C_word*)lf[479]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k18960 in g4003 in k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_18962,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[6]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18968,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18970,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_18970(t7,t3,t1);} /* k18966 in k18960 in g4003 in k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_18968,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,3,lf[29],t1,((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3]; f_18903(t4,t3);} /* map-loop4011 in k18960 in g4003 in k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_18970(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18970,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18995,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1951: g4017 */ t5=((C_word*)t0)[4]; f_18938(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18993 in map-loop4011 in k18960 in g4003 in k18893 in chicken.compiler.scrutinizer#validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_18995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18995,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18970(t6,((C_word*)t0)[5],t5);} /* chicken.compiler.scrutinizer#check-and-validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_19010,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+8); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19019,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19029,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1965: ##sys#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t8; av2[3]=t9; C_call_with_values(4,av2);}} /* a19018 in chicken.compiler.scrutinizer#check-and-validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_19019,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19027,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:1965: chicken.syntax#strip-syntax */ t3=*((C_word*)lf[480]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k19025 in a19018 in chicken.compiler.scrutinizer#check-and-validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19027,2,av);} /* scrutinizer.scm:1965: validate-type */ t2=*((C_word*)lf[409]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a19028 in chicken.compiler.scrutinizer#check-and-validate-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19029,5,av);} if(C_truep(t2)){ t5=t2; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* scrutinizer.scm:1967: chicken.base#error */ t5=*((C_word*)lf[482]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[483]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_19044,4,av);} a=C_alloc(24); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19047,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19059,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t10=C_i_check_list_2(t3,lf[6]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19287,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19289,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_19289(t15,t11,t3);} /* fail in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19047(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_19047,3,t0,t1,t2);} /* scrutinizer.scm:1971: chicken.base#error */ t3=*((C_word*)lf[482]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=lf[484]; av2[3]=t2; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19059(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_19059,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19066,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_listp(t2))){ t4=t2; t5=C_i_car(t4); t6=t3; f_19066(t6,C_i_listp(t5));} else{ t4=t3; f_19066(t4,C_SCHEME_FALSE);}} /* k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19066(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){ C_save_and_reclaim_args((void *)trf_19066,2,t0,t1);} a=C_alloc(23); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19070,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t7=((C_word*)t0)[2]; t8=C_i_car(t7); t9=C_i_check_list_2(t8,lf[6]); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19098,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19236,a[2]=t4,a[3]=t12,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_19236(t14,t10,t8);} else{ /* scrutinizer.scm:2011: fail */ t2=((C_word*)t0)[5]; f_19047(t2,((C_word*)t0)[4],((C_word*)t0)[2]);}} /* g4114 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19070(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_19070,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19076,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19082,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:1988: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a19075 in g4114 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19076,2,av);} /* scrutinizer.scm:1988: validate-type */ t2=*((C_word*)lf[409]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a19081 in g4114 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_19082,5,av);} if(C_truep(t2)){ t5=t2; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* scrutinizer.scm:1990: chicken.base#error */ t5=*((C_word*)lf[482]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=lf[485]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} /* k19096 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_19098,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19101,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19234,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1993: append-map */ f_6937(t4,lf[161],t2,C_SCHEME_END_OF_LIST);} /* k19099 in k19096 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_19101,2,av);} a=C_alloc(26); t2=C_i_length(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19111,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); switch(t2){ case C_fix(2): t4=C_i_cdr(((C_word*)t0)[2]); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} case C_fix(3): t4=((C_word*)t0)[2]; t5=C_i_cadr(t4); if(C_truep(C_i_listp(t5))){ t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19137,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t11=((C_word*)t0)[2]; t12=C_i_cadr(t11); t13=C_i_check_list_2(t12,lf[6]); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19165,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19171,a[2]=t8,a[3]=t16,a[4]=t10,a[5]=t9,tmp=(C_word)a,a+=6,tmp)); t18=((C_word*)t16)[1]; f_19171(t18,t14,t12);} else{ t6=((C_word*)t0)[2]; t7=C_i_cadr(t6); t8=C_eqp(lf[53],t7); if(C_truep(t8)){ t9=C_i_cdr(((C_word*)t0)[2]); t10=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t10; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ /* scrutinizer.scm:2009: fail */ t9=((C_word*)t0)[6]; f_19047(t9,t3,((C_word*)t0)[2]);}} default: /* scrutinizer.scm:2010: fail */ t4=((C_word*)t0)[6]; f_19047(t4,t3,((C_word*)t0)[2]);}} /* k19109 in k19099 in k19096 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_19111,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g4167 in k19099 in k19096 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19137(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_19137,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19143,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19149,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2002: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a19142 in g4167 in k19099 in k19096 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19143,2,av);} /* scrutinizer.scm:2002: validate-type */ t2=*((C_word*)lf[409]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a19148 in g4167 in k19099 in k19096 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_19149,5,av);} if(C_truep(t2)){ t5=t2; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* scrutinizer.scm:2004: chicken.base#error */ t5=*((C_word*)lf[482]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=lf[486]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} /* k19163 in k19099 in k19096 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_19165,2,av);} a=C_alloc(6); t2=C_i_cddr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop4161 in k19099 in k19096 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19171(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_19171,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19196,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2001: g4167 */ t5=((C_word*)t0)[4]; f_19137(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19194 in map-loop4161 in k19099 in k19096 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19196,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19171(t6,((C_word*)t0)[5],t5);} /* k19232 in k19096 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19234,2,av);} /* scrutinizer.scm:1993: unzip1 */ t2=lf[12];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_7456(3,av2);}} /* map-loop4108 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19236(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_19236,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19261,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1987: g4114 */ t5=((C_word*)t0)[4]; f_19070(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19259 in map-loop4108 in k19064 in g4092 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19261,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19236(t6,((C_word*)t0)[5],t5);} /* k19285 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19287,2,av);} /* scrutinizer.scm:1972: chicken.compiler.support#mark-variable */ t2=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[162]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop4086 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19289(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_19289,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19314,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:1984: g4092 */ t5=((C_word*)t0)[4]; f_19059(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19312 in map-loop4086 in chicken.compiler.scrutinizer#install-specializations in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19314,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19289(t6,((C_word*)t0)[5],t5);} /* chicken.compiler.scrutinizer#canonicalize-list-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19323(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_19323,2,t1,t2);} a=C_alloc(9); t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_eqp(lf[48],t4); if(C_truep(t5)){ t6=t2; t7=C_i_cadr(t6); t8=t2; t9=C_i_caddr(t8); t10=C_a_i_list1(&a,1,t7); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19351,a[2]=t12,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t14=((C_word*)t12)[1]; f_19351(t14,t1,t9,t10);} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19351(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_19351,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_eqp(lf[31],t2); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19365,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2027: scheme#reverse */ t6=*((C_word*)lf[369]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19371,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(t2))){ t6=t2; t7=C_i_car(t6); t8=t5; f_19371(t8,C_eqp(lf[48],t7));} else{ t6=t5; f_19371(t6,C_SCHEME_FALSE);}}} /* k19363 in rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_19365,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[47],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19369 in rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19371(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_19371,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); t4=((C_word*)t0)[2]; t5=C_i_cadr(t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]); /* scrutinizer.scm:2029: rec */ t7=((C_word*)((C_word*)t0)[4])[1]; f_19351(t7,((C_word*)t0)[5],t3,t6);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19392,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_i_car(t3); t5=t2; f_19392(t5,C_eqp(lf[47],t4));} else{ t3=t2; f_19392(t3,C_SCHEME_FALSE);}}} /* k19390 in k19369 in rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19392(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_19392,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19399,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19403,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2031: scheme#reverse */ t4=*((C_word*)lf[369]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[5]; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19397 in k19390 in k19369 in rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_19399,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[47],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19401 in k19390 in k19369 in rec in chicken.compiler.scrutinizer#canonicalize-list-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19403,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* scrutinizer.scm:2031: ##sys#append */ t3=*((C_word*)lf[406]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.compiler.scrutinizer#strip-namespace in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19437(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_19437,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19441,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2039: scheme#symbol->string */ t4=*((C_word*)lf[479]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19439 in chicken.compiler.scrutinizer#strip-namespace in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_19441,2,av);} a=C_alloc(8); t2=t1; t3=C_block_size(t2); t4=t3; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19449,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_19449(t8,((C_word*)t0)[3],C_fix(0));} /* loop in k19439 in chicken.compiler.scrutinizer#strip-namespace in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19449(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_19449,3,t0,t1,t2);} a=C_alloc(3); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=((C_word*)t0)[3]; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_subchar(((C_word*)t0)[4],t2); t5=C_eqp(t4,C_make_character(35)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19469,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=C_fixnum_plus(t2,C_fix(1)); /* scrutinizer.scm:2044: ##sys#substring */ t8=*((C_word*)lf[487]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[4]; av2[3]=t7; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t6=C_fixnum_plus(t2,C_fix(1)); /* scrutinizer.scm:2045: loop */ t9=t1; t10=t6; t1=t9; t2=t10; goto loop;}}} /* k19467 in loop in k19439 in chicken.compiler.scrutinizer#strip-namespace in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19469,2,av);} /* scrutinizer.scm:2044: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_string_to_symbol(3,av2);}} /* k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,6)))){ C_save_and_reclaim((void *)f_19485,2,av);} a=C_alloc(14); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19487,tmp=(C_word)a,a+=2,tmp)); t7=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19586,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19641,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2098: ##sys#put! */ t9=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=lf[657]; av2[3]=lf[276]; av2[4]=((C_word*)t5)[1]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* known-length-vector-index in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19487(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_19487,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19491,a[2]=t5,a[3]=t1,a[4]=t4,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2072: chicken.compiler.support#node-subexpressions */ t7=*((C_word*)lf[86]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k19489 in known-length-vector-index in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,2)))){ C_save_and_reclaim((void *)f_19491,2,av);} a=C_alloc(38); t2=t1; if(C_truep(t2)){ t3=C_i_length(t2); t4=((C_word*)t0)[2]; t5=C_s_a_i_plus(&a,2,t4,C_fix(1)); if(C_truep(C_i_nequalp(t3,t5))){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19503,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t7=((C_word*)t0)[6]; t8=C_i_cadr(t7); t9=t6; t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26761,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:166: chicken.compiler.support#node-parameters */ t11=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19501 in k19489 in known-length-vector-index in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_19503,2,av);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ if(C_truep(C_i_pairp(t2))){ t3=C_i_car(t2); t4=C_eqp(lf[50],t3); if(C_truep(t4)){ t5=C_i_caddr(((C_word*)t0)[2]); t6=t5; if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19570,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t6,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2078: chicken.compiler.support#node-class */ t8=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19552 in k19564 in k19568 in k19501 in k19489 in known-length-vector-index in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19554,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19564 in k19568 in k19501 in k19489 in known-length-vector-index in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_19566,2,av);} a=C_alloc(3); t2=C_i_car(t1); if(C_truep(t2)){ if(C_truep(C_fixnump(t2))){ t3=C_u_i_cdr(((C_word*)t0)[2]); t4=C_i_length(t3); t5=C_i_greater_or_equalp(t2,C_fix(0)); t6=(C_truep(t5)?C_i_lessp(t2,t4):C_SCHEME_FALSE); if(C_truep(t6)){ t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19554,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2085: r-index-out-of-range */ f_22035(t7,((C_word*)t0)[4],((C_word*)t0)[5],t2,t4,lf[489]);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19568 in k19501 in k19489 in known-length-vector-index in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_19570,2,av);} a=C_alloc(6); t2=C_eqp(lf[123],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19566,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2079: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* vector-ref-result-type in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_19586,6,av);} a=C_alloc(6); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19590,a[2]=t1,a[3]=t5,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2091: known-length-vector-index */ f_19487(t6,t2,t3,t4,C_fix(2));} /* k19588 in vector-ref-result-type in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_19590,2,av);} a=C_alloc(9); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19599,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[5]; t5=C_i_cadr(t4); t6=t3; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26767,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:166: chicken.compiler.support#node-parameters */ t8=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k19597 in k19588 in vector-ref-result-type in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_19599,2,av);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19634,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2093: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[4]; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k19609 in k19632 in k19597 in k19588 in vector-ref-result-type in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_19611,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=C_i_list_ref(t2,((C_word*)t0)[3]); t4=C_a_i_list1(&a,1,t3); if(C_truep(t4)){ t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=((C_word*)t0)[5]; t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k19632 in k19597 in k19588 in vector-ref-result-type in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_19634,2,av);} a=C_alloc(21); t2=C_i_cadr(t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19611,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=C_a_i_list(&a,2,lf[123],((C_word*)t0)[3]); t5=C_a_i_list(&a,3,lf[490],t2,t4); /* scrutinizer.scm:2094: mutate-node! */ f_17310(t3,((C_word*)t0)[6],t5);} else{ t3=((C_word*)t0)[5]; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_19641,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19644,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2099: ##sys#put! */ t3=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[656]; av2[3]=lf[276]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_19644,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19647,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23266,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2101: ##sys#put! */ t4=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[655]; av2[3]=lf[276]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_19647,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19832,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19927,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23248,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23250,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2181: list+index-call-result-type-special-case */ f_19832(t4,t5);} /* a19699 in k19909 in k19913 in k19851 in k19836 */ static void C_ccall f_19700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_19700,2,av);} a=C_alloc(5); t2=C_i_cdr(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6904,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_6904(t6,t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t2);} /* a19709 in k19909 in k19913 in k19851 in k19836 */ static void C_ccall f_19710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_19710,4,av);} a=C_alloc(6); t4=C_i_nullp(t2); t5=(C_truep(t4)?lf[31]:C_a_i_cons(&a,2,lf[47],t2)); t6=C_i_nullp(t3); t7=(C_truep(t6)?lf[31]:C_a_i_cons(&a,2,lf[47],t3)); /* scrutinizer.scm:2137: k */ t8=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t8; av2[1]=t1; av2[2]=t5; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* lp in k19909 in k19913 in k19851 in k19836 */ static void C_fcall f_19737(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_19737,5,t0,t1,t2,t3,t4);} a=C_alloc(7); t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19755,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2142: scheme#reverse */ t7=*((C_word*)lf[369]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19761,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(t3))){ t7=t3; t8=C_i_car(t7); t9=t6; f_19761(t9,C_eqp(t8,lf[48]));} else{ t7=t6; f_19761(t7,C_SCHEME_FALSE);}}} /* k19753 in lp in k19909 in k19913 in k19851 in k19836 */ static void C_ccall f_19755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_19755,2,av);} a=C_alloc(3); t2=C_i_nullp(t1); t3=(C_truep(t2)?lf[31]:C_a_i_cons(&a,2,lf[47],t1)); /* scrutinizer.scm:2142: k */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k19759 in lp in k19909 in k19913 in k19851 in k19836 */ static void C_fcall f_19761(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,0,4)))){ C_save_and_reclaim_args((void *)trf_19761,2,t0,t1);} a=C_alloc(32); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_cadr(t2); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); t5=((C_word*)t0)[2]; t6=C_i_caddr(t5); t7=((C_word*)t0)[4]; t8=C_s_a_i_minus(&a,2,t7,C_fix(1)); /* scrutinizer.scm:2145: lp */ t9=((C_word*)((C_word*)t0)[5])[1]; f_19737(t9,((C_word*)t0)[6],t4,t6,t8);} else{ t2=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* list+index-call-result-type-special-case in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_19832(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){ C_save_and_reclaim_args((void *)trf_19832,2,t1,t2);} a=C_alloc(3); t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19834,a[2]=t2,tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_19834 in list+index-call-result-type-special-case in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_19834,6,av);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19838,a[2]=t1,a[3]=t5,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2160: chicken.compiler.support#node-subexpressions */ t7=*((C_word*)lf[86]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k19836 */ static void C_ccall f_19838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_19838,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19841,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=C_i_length(t2); t5=C_eqp(t4,C_fix(3)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19853,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t7=((C_word*)t0)[7]; t8=C_i_cadr(t7); t9=t6; t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26777,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:166: chicken.compiler.support#node-parameters */ t11=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t6=((C_word*)t0)[3]; t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t4=((C_word*)t0)[3]; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k19839 in k19836 */ static void C_ccall f_19841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19841,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19851 in k19836 */ static void C_ccall f_19853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_19853,2,av);} a=C_alloc(10); t2=t1; if(C_truep(t2)){ t3=C_i_caddr(((C_word*)t0)[2]); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19915,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t2,a[8]=((C_word*)t0)[8],a[9]=t4,tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2164: chicken.compiler.support#node-class */ t6=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=((C_word*)t0)[3]; t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k19885 in k19909 in k19913 in k19851 in k19836 */ static void C_ccall f_19887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19887,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k19888 in k19909 in k19913 in k19851 in k19836 */ static void C_ccall f_19890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_19890,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19896,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); t3=C_eqp(((C_word*)t0)[8],lf[31]); if(C_truep(t3)){ t4=t2; f_19896(t4,C_fix(0));} else{ if(C_truep(C_i_pairp(((C_word*)t0)[8]))){ t4=C_u_i_car(((C_word*)t0)[8]); t5=C_eqp(t4,lf[47]); if(C_truep(t5)){ t6=C_i_cdr(((C_word*)t0)[8]); t7=t2; f_19896(t7,C_i_length(t6));} else{ t6=t2; f_19896(t6,C_SCHEME_FALSE);}} else{ t4=t2; f_19896(t4,C_SCHEME_FALSE);}}}} /* k19894 in k19888 in k19909 in k19913 in k19851 in k19836 */ static void C_fcall f_19896(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_19896,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19900,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2167: g4438 */ t3=t2; f_19900(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[6]; t3=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g4438 in k19894 in k19888 in k19909 in k19913 in k19851 in k19836 */ static void C_fcall f_19900(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){ C_save_and_reclaim_args((void *)trf_19900,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19904,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2175: r-index-out-of-range */ f_22035(t3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t2,lf[493]);} /* k19902 in g4438 in k19894 in k19888 in k19909 in k19913 in k19851 in k19836 */ static void C_ccall f_19904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19904,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19909 in k19913 in k19851 in k19836 */ static void C_ccall f_19911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,6)))){ C_save_and_reclaim((void *)f_19911,2,av);} a=C_alloc(16); t2=C_i_car(t1); t3=t2; if(C_truep(t3)){ if(C_truep(C_fixnump(t3))){ if(C_truep(C_i_negativep(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19887,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2168: r-index-out-of-range */ f_22035(t4,((C_word*)t0)[4],((C_word*)t0)[5],t3,lf[491],lf[492]);} else{ t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19890,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t5=((C_word*)t0)[7]; t6=t3; t7=((C_word*)t0)[8]; t8=C_i_pairp(t5); if(C_truep(C_i_not(t8))){ t9=C_eqp(t6,C_fix(0)); if(C_truep(t9)){ t10=C_eqp(t5,lf[31]); if(C_truep(t10)){ /* scrutinizer.scm:2133: k */ t11=t7;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t4; av2[2]=t5; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t11=t4;{ C_word *av2=av; av2[0]=t11; av2[1]=C_SCHEME_FALSE; f_19890(2,av2);}}} else{ t10=t4;{ C_word *av2=av; av2[0]=t10; av2[1]=C_SCHEME_FALSE; f_19890(2,av2);}}} else{ t9=C_i_car(t5); t10=C_eqp(t9,lf[47]); if(C_truep(t10)){ t11=C_i_length(t5); if(C_truep(C_fixnum_lessp(t6,t11))){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19700,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19710,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2136: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t4; av2[2]=t12; av2[3]=t13; C_call_with_values(4,av2);}} else{ t12=t4;{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_FALSE; f_19890(2,av2);}}} else{ t11=C_i_car(t5); t12=C_eqp(t11,lf[48]); if(C_truep(t12)){ t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19737,a[2]=t7,a[3]=t14,tmp=(C_word)a,a+=4,tmp)); t16=((C_word*)t14)[1]; f_19737(t16,t4,C_SCHEME_END_OF_LIST,t5,t6);} else{ t13=t4;{ C_word *av2=av; av2[0]=t13; av2[1]=C_SCHEME_FALSE; f_19890(2,av2);}}}}}} else{ t4=((C_word*)t0)[2]; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=((C_word*)t0)[2]; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k19913 in k19851 in k19836 */ static void C_ccall f_19915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_19915,2,av);} a=C_alloc(9); t2=C_eqp(lf[123],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19911,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2165: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_19927,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19930,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23238,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23240,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2187: list+index-call-result-type-special-case */ f_19832(t3,t4);} /* k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_19930,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19933,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23171,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2190: ##sys#put! */ t4=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[649]; av2[3]=lf[276]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_19933,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19936,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23106,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2196: ##sys#put! */ t4=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[647]; av2[3]=lf[276]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_19936,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19939,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23049,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2202: ##sys#put! */ t4=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[645]; av2[3]=lf[276]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_19939,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19942,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22992,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2206: ##sys#put! */ t4=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[644]; av2[3]=lf[276]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_19942,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19945,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22930,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2210: ##sys#put! */ t4=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[369]; av2[3]=lf[276]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_19945,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19947,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20110,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2260: ##sys#put! */ t4=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[5]; av2[3]=lf[276]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_19947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_19947,6,av);} a=C_alloc(9); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19956,a[2]=t3,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20101,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2257: derive-result-type */ t8=t6; f_19956(t8,t7);} /* derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_fcall f_19956(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_19956,2,t0,t1);} a=C_alloc(7); t2=C_i_cdr(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19966,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_19966(t6,t1,t2,C_fix(1));} /* lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_fcall f_19966(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_19966,4,t0,t1,t2,t3);} a=C_alloc(12); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[31]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19979,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=t5,tmp=(C_word)a,a+=9,tmp); t7=t6; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26785,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:166: chicken.compiler.support#node-parameters */ t9=*((C_word*)lf[26]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k19977 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_19979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_19979,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19985,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_pairp(t2))){ t4=C_u_i_car(t2); t5=t3; f_19985(t5,C_eqp(t4,lf[47]));} else{ t4=t3; f_19985(t4,C_SCHEME_FALSE);}} /* k19983 in k19977 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_19985(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,3)))){ C_save_and_reclaim_args((void *)trf_19985,2,t0,t1);} a=C_alloc(33); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19988,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); t5=((C_word*)t0)[5]; t6=C_s_a_i_plus(&a,2,t5,C_fix(1)); /* scrutinizer.scm:2233: lp */ t7=((C_word*)((C_word*)t0)[6])[1]; f_19966(t7,t2,t4,t6);} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20044,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t3=C_u_i_car(((C_word*)t0)[3]); t4=t2; f_20044(t4,C_eqp(t3,lf[363]));} else{ t3=t2; f_20044(t3,C_SCHEME_FALSE);}}} /* k19986 in k19983 in k19977 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_19988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_19988,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19998,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[3]); /* scrutinizer.scm:2238: scheme#reverse */ t5=*((C_word*)lf[369]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k19996 in k19986 in k19983 in k19977 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_19998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_19998,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20001,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20003,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_20003(t6,t2,t1,((C_word*)t0)[3]);} /* k19999 in k19996 in k19986 in k19983 in k19977 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20001,2,av);} /* scrutinizer.scm:2236: canonicalize-list-type */ f_19323(((C_word*)t0)[2],t1);} /* foldl4643 in k19996 in k19986 in k19983 in k19977 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_fcall f_20003(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_20003,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=C_slot(t2,C_fix(0)); t6=t3; t7=C_a_i_list(&a,3,lf[48],t5,t6); t9=t1; t10=t4; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k20042 in k19983 in k19977 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_20044(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,4)))){ C_save_and_reclaim_args((void *)trf_20044,2,t0,t1);} a=C_alloc(33); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20047,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); t5=((C_word*)t0)[5]; t6=C_s_a_i_plus(&a,2,t5,C_fix(1)); /* scrutinizer.scm:2241: lp */ t7=((C_word*)((C_word*)t0)[6])[1]; f_19966(t7,t2,t4,t6);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20064,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); t5=C_i_nullp(t4); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20070,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); if(C_truep(t5)){ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=t5; f_20070(2,av2);}} else{ /* scrutinizer.scm:2222: match-types */ t7=*((C_word*)lf[170]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=lf[47]; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}}} /* k20045 in k20042 in k19983 in k19977 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_20047,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_a_i_list(&a,3,lf[28],((C_word*)t0)[2],t1); /* scrutinizer.scm:2243: simplify-type */ f_13475(((C_word*)t0)[3],t2);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k20062 in k20042 in k19983 in k19977 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20064,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20068 in k20042 in k19983 in k19977 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_20070,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20077,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2255: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[5]; av2[3]=lf[65]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k20075 in k20068 in k20042 in k19983 in k19977 in lp in derive-result-type in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_20077,2,av);} /* scrutinizer.scm:2253: r-proc-call-argument-type-mismatch */ f_21896(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[47],((C_word*)t0)[7],t1);} /* k20099 in append-special-case in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_20101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_20101,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_20110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_20110,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20113,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2261: ##sys#put! */ t3=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[406]; av2[3]=lf[276]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_20113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_20113,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20117,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2284: ##sys#put! */ t4=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[643]; av2[3]=lf[276]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* f_20117 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_20117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_20117,6,av);} a=C_alloc(5); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20121,a[2]=t1,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2271: chicken.compiler.support#node-subexpressions */ t7=*((C_word*)lf[86]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k20119 */ static void C_ccall f_20121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_20121,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=C_i_length(t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20133,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); switch(t3){ case C_fix(2): t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=lf[53]; f_20133(2,av2);} case C_fix(3): t5=((C_word*)t0)[4]; t6=C_i_caddr(t5); t7=t4; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26825,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:166: chicken.compiler.support#node-parameters */ t9=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);} default: t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_20133(2,av2);}}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20131 in k20119 */ static void C_ccall f_20133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_20133,2,av);} a=C_alloc(6); t2=t1; if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[2]); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20185,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2277: chicken.compiler.support#node-class */ t6=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=((C_word*)t0)[4]; t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t3=((C_word*)t0)[4]; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20161 in k20179 in k20183 in k20131 in k20119 */ static void C_ccall f_20163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_20163,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20177,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2281: make-list */ f_7932(t2,((C_word*)t0)[4],C_a_i_list(&a,1,((C_word*)t0)[5]));} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20175 in k20161 in k20179 in k20183 in k20131 in k20119 */ static void C_ccall f_20177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_20177,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[50],t1); t3=C_a_i_list(&a,1,t2); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[3]; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k20179 in k20183 in k20131 in k20119 */ static void C_ccall f_20181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_20181,2,av);} a=C_alloc(6); t2=C_i_car(t1); t3=t2; if(C_truep(t3)){ if(C_truep(C_fixnump(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20163,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2280: scheme#<= */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t4; av2[2]=C_fix(0); av2[3]=t3; av2[4]=C_fix(256); C_less_or_equal_p(5,av2);}} else{ t4=((C_word*)t0)[3]; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=((C_word*)t0)[3]; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k20183 in k20131 in k20119 */ static void C_ccall f_20185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_20185,2,av);} a=C_alloc(5); t2=C_eqp(lf[123],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20181,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2278: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_20208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,9)))){ C_save_and_reclaim((void *)f_20208,2,av);} a=C_alloc(36); t2=C_mutate(&lf[371] /* (set! chicken.compiler.scrutinizer#over-all-instantiations ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20210,tmp=(C_word)a,a+=2,tmp)); t3=C_mutate(&lf[314] /* (set! chicken.compiler.scrutinizer#string-add-indent ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20535,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate(&lf[74] /* (set! chicken.compiler.scrutinizer#type->pp-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20626,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[142] /* (set! chicken.compiler.scrutinizer#fragment ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21092,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[75] /* (set! chicken.compiler.scrutinizer#pp-fragment ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21197,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[325] /* (set! chicken.compiler.scrutinizer#node-source-prefix ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21221,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate(&lf[319] /* (set! chicken.compiler.scrutinizer#location-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21251,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate(&lf[517] /* (set! chicken.compiler.scrutinizer#variable-and-module ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21421,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate(&lf[91] /* (set! chicken.compiler.scrutinizer#variable-from-module ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21472,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate(&lf[102] /* (set! chicken.compiler.scrutinizer#describe-expression ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21532,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate(&lf[71] /* (set! chicken.compiler.scrutinizer#report2 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21662,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate(&lf[169] /* (set! chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21896,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate(&lf[272] /* (set! chicken.compiler.scrutinizer#r-proc-call-argument-value-count ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21942,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate(&lf[488] /* (set! chicken.compiler.scrutinizer#r-index-out-of-range ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22035,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate(&lf[219] /* (set! chicken.compiler.scrutinizer#r-conditional-value-count-invalid ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22167,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate(&lf[220] /* (set! chicken.compiler.scrutinizer#r-let-value-count-invalid ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22229,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate(&lf[269] /* (set! chicken.compiler.scrutinizer#r-assignment-value-count-invalid ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22349,tmp=(C_word)a,a+=2,tmp)); t19=C_mutate(&lf[61] /* (set! chicken.compiler.scrutinizer#r-deprecated-identifier ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22840,tmp=(C_word)a,a+=2,tmp)); t20=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t20; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} /* chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_20210(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,0,3)))){ C_save_and_reclaim_args((void *)trf_20210,5,t1,t2,t3,t4,t5);} a=C_alloc(24); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=lf[24]; t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20213,a[2]=t8,a[3]=t7,a[4]=t3,tmp=(C_word)a,a+=5,tmp)); t14=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20277,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20409,a[2]=t2,a[3]=t3,a[4]=t12,a[5]=t10,a[6]=t4,a[7]=t5,a[8]=t1,tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2333: delete-duplicates */ f_7302(t15,t2,*((C_word*)lf[376]+1));} /* restore in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_20213(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_20213,2,t0,t1);} a=C_alloc(11); t2=C_SCHEME_END_OF_LIST; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20222,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t5,tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_20222(t7,t1,lf[24]);} /* doloop4723 in restore in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_20222(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_20222,3,t0,t1,t2);} a=C_alloc(8); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_mutate(&lf[24] /* (set! chicken.compiler.scrutinizer#trail ...) */,t2); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[3])[1]))){ t5=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t5); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t5); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20273,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp); t7=t2; t8=C_u_i_car(t7); /* scrutinizer.scm:2308: resolve */ t9=lf[118];{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=t8; av2[3]=((C_word*)t0)[5]; f_16257(4,av2);}}} /* k20271 in doloop4723 in restore in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_20273,2,av);} a=C_alloc(6); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); t4=C_a_i_cons(&a,2,t3,t2); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t6=((C_word*)t0)[4]; t7=C_u_i_car(t6); t8=C_i_assq(t7,((C_word*)t0)[5]); t9=C_i_cdr(t8); t10=C_i_set_car(t9,C_SCHEME_FALSE); t11=((C_word*)t0)[4]; t12=C_u_i_cdr(t11); t13=((C_word*)((C_word*)t0)[6])[1]; f_20222(t13,((C_word*)t0)[7],t12);} /* collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_20277(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,0,3)))){ C_save_and_reclaim_args((void *)trf_20277,2,t0,t1);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20281,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20355,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=lf[12]; t9=((C_word*)((C_word*)t0)[3])[1]; t10=C_i_check_list_2(t9,lf[6]); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20365,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20367,a[2]=t6,a[3]=t13,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_20367(t15,t11,t9);} /* k20279 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_20281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_20281,2,av);} a=C_alloc(17); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20285,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t7=C_i_check_list_2(t1,lf[6]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20319,a[2]=t4,a[3]=t9,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_20319(t11,((C_word*)t0)[4],t1);} /* g4771 in k20279 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_fcall f_20285(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_20285,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20293,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20295,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2320: filter-map */ f_7391(t3,t4,((C_word*)((C_word*)t0)[3])[1]);} /* k20291 in g4771 in k20279 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_20293,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a20294 in g4771 in k20279 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20295,3,av);} t3=C_i_assq(((C_word*)t0)[2],t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?C_i_cdr(t3):(C_truep(((C_word*)t0)[3])?lf[53]:C_SCHEME_FALSE)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop4765 in k20279 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_fcall f_20319(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_20319,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20344,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2317: g4771 */ t5=((C_word*)t0)[4]; f_20285(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20342 in map-loop4765 in k20279 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20344,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20319(t6,((C_word*)t0)[5],t5);} /* k20353 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_20355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20355,2,av);} /* scrutinizer.scm:2316: delete-duplicates */ f_7302(((C_word*)t0)[2],t1,*((C_word*)lf[376]+1));} /* k20363 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_20365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_20365,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7205,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_7205(t5,((C_word*)t0)[2],t1);} /* map-loop4738 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_20367(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_20367,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20392,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2316: g4744 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20390 in map-loop4738 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20392,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20367(t6,((C_word*)t0)[5],t5);} /* k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_20409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_20409,2,av);} a=C_alloc(11); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20411,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_20411(t5,((C_word*)t0)[8],t1,C_SCHEME_FALSE);} /* loop in k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_20411(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_20411,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=(C_truep(t4)?t4:C_i_nullp(((C_word*)t0)[2])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20425,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20460,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2342: collect */ t8=((C_word*)((C_word*)t0)[4])[1]; f_20277(t8,t7);} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20498,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t1,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t3,tmp=(C_word)a,a+=8,tmp); t5=C_i_car(t2); /* scrutinizer.scm:2345: process */ t6=((C_word*)t0)[8];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* g4816 in loop in k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_fcall f_20425(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_20425,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_car(t2); t4=C_a_i_cons(&a,2,t3,lf[24]); t5=C_mutate(&lf[24] /* (set! chicken.compiler.scrutinizer#trail ...) */,t4); t6=t2; t7=C_u_i_car(t6); t8=C_i_assq(t7,((C_word*)t0)[2]); t9=C_i_cdr(t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20441,a[2]=t1,a[3]=t10,tmp=(C_word)a,a+=4,tmp); t12=t2; t13=C_u_i_cdr(t12); t14=C_a_i_cons(&a,2,lf[28],t13); /* scrutinizer.scm:2341: simplify-type */ f_13475(t11,t14);} /* k20439 in g4816 in loop in k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20441,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_set_car(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20458 in loop in k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_20460,2,av);} a=C_alloc(9); t2=C_i_check_list_2(t1,lf[212]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20466,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20468,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_20468(t7,t3,t1);} /* k20464 in k20458 in loop in k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20466,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop4815 in k20458 in loop in k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_fcall f_20468(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_20468,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20478,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2337: g4816 */ t5=((C_word*)t0)[3]; f_20425(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20476 in for-each-loop4815 in k20458 in loop in k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_20478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20478,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_20468(t3,((C_word*)t0)[4],t2);} /* k20496 in loop in k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_20498,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2346: restore */ t3=((C_word*)((C_word*)t0)[5])[1]; f_20213(t3,t2);} else{ if(C_truep(((C_word*)t0)[6])){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20512,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2349: restore */ t3=((C_word*)((C_word*)t0)[5])[1]; f_20213(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20515,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2352: restore */ t3=((C_word*)((C_word*)t0)[5])[1]; f_20213(t3,t2);}}} /* k20499 in k20496 in loop in k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20501,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:2347: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_20411(t4,((C_word*)t0)[4],t3,C_SCHEME_TRUE);} /* k20510 in k20496 in loop in k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20512,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20513 in k20496 in loop in k20407 in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20515,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:2353: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_20411(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} /* chicken.compiler.scrutinizer#string-add-indent in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_20535(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_20535,3,t1,t2,t3);} a=C_alloc(5); t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[494]:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20542,a[2]=t2,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2361: chicken.string#string-split */ t8=*((C_word*)lf[499]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=lf[500]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* k20540 in chicken.compiler.scrutinizer#string-add-indent in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_20542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_20542,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20545,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20571,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20584,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20586,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_20586(t12,t8,t1);} /* k20543 in k20540 in chicken.compiler.scrutinizer#string-add-indent in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_20545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_20545,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_block_size(t2); t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1)); t5=C_i_string_ref(((C_word*)t0)[2],t4); t6=C_eqp(C_make_character(10),t5); if(C_truep(t6)){ /* ##sys#string-append */ t7=*((C_word*)lf[495]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[496]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* g4867 in k20540 in chicken.compiler.scrutinizer#string-add-indent in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_20571(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_20571,3,t0,t1,t2);} if(C_truep(C_i_string_equal_p(lf[497],t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* scrutinizer.scm:2366: scheme#string-append */ t3=*((C_word*)lf[76]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k20582 in k20540 in chicken.compiler.scrutinizer#string-add-indent in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_20584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20584,2,av);} /* scrutinizer.scm:2362: chicken.string#string-intersperse */ t2=*((C_word*)lf[317]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[498]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop4861 in k20540 in chicken.compiler.scrutinizer#string-add-indent in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_20586(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_20586,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20611,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2363: g4867 */ t5=((C_word*)t0)[4]; f_20571(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20609 in map-loop4861 in k20540 in chicken.compiler.scrutinizer#string-add-indent in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20611,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20586(t6,((C_word*)t0)[5],t5);} /* chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_20626(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_20626,2,t1,t2);} a=C_alloc(12); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20652,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21069,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21090,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2409: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[480]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k20631 in map-loop4963 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_20633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_20633,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20636,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26161,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2377: scheme#string->symbol */ t5=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=C_a_i_list2(&a,2,lf[502],((C_word*)t0)[3]); /* scrutinizer.scm:2376: ##sys#error */ t5=*((C_word*)lf[503]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k20634 in k20631 in map-loop4963 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_20636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20636,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20643,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2377: scheme#string->symbol */ t3=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k20641 in k20634 in k20631 in map-loop4963 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_20643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_20643,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,lf[123],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_20652(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_20652,4,t0,t1,t2,t3);} a=C_alloc(10); t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_END_OF_LIST:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20658,a[2]=((C_word*)t0)[2],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_i_pairp(t2); if(C_truep(C_i_not(t8))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20671,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2382: chicken.base#alist-ref */ t10=*((C_word*)lf[277]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=t2; av2[3]=t6; av2[4]=*((C_word*)lf[376]+1); ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t9=( /* scrutinizer.scm:2383: refinement-type? */ f_15835(t2) ); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20687,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2385: chicken.base#open-output-string */ t11=*((C_word*)lf[244]+1);{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20760,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t2))){ t11=t2; t12=t10; f_20760(t12,C_u_i_car(t11));} else{ t11=t10; f_20760(t11,C_SCHEME_FALSE);}}}} /* R in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_20658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20658,3,av);} a=C_alloc(3); /* scrutinizer.scm:2379: conv */ t3=((C_word*)((C_word*)t0)[2])[1]; f_20652(t3,t1,t2,C_a_i_list(&a,1,((C_word*)t0)[3]));} /* k20669 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_20671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20671,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20685 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_20687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_20687,2,av);} a=C_alloc(26); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20693,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20710,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=*((C_word*)lf[322]+1); t12=((C_word*)t0)[3]; t13=C_i_cadr(t12); t14=C_i_check_list_2(t13,lf[6]); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20723,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20725,a[2]=t9,a[3]=t17,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t19=((C_word*)t17)[1]; f_20725(t19,t15,t13);} /* k20691 in k20685 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_20693,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2385: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(45); av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k20694 in k20691 in k20685 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_20696,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20699,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=C_i_caddr(t3); /* scrutinizer.scm:2385: ##sys#print */ t5=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k20697 in k20694 in k20691 in k20685 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_20699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20699,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20702,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2385: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k20700 in k20697 in k20694 in k20691 in k20685 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_20702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20702,2,av);} /* scrutinizer.scm:2384: scheme#string->symbol */ t2=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k20708 in k20685 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20710,2,av);} /* scrutinizer.scm:2385: ##sys#print */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k20721 in k20685 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20723,2,av);} /* scrutinizer.scm:2385: chicken.string#string-intersperse */ t2=*((C_word*)lf[317]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[501]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop4925 in k20685 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_fcall f_20725(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_20725,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20750,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2385: g4931 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20748 in map-loop4925 in k20685 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20750,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20725(t6,((C_word*)t0)[5],t5);} /* k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_20760(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_20760,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20766,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=C_eqp(lf[29],t2); if(C_truep(t4)){ t5=((C_word*)t0)[2]; t6=C_i_cadr(t5); /* scrutinizer.scm:2389: every */ f_7107(t3,*((C_word*)lf[472]+1),t6);} else{ t5=t3;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_20766(2,av2);}}} /* k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_20766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_20766,2,av);} a=C_alloc(17); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=((C_word*)t0)[2]; t7=C_i_cadr(t6); t8=C_i_check_list_2(t7,lf[6]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20787,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20796,a[2]=t4,a[3]=t11,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_20796(t13,t9,t7);} else{ t2=C_eqp(lf[29],((C_word*)t0)[5]); if(C_truep(t2)){ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep((C_truep(C_eqp(((C_word*)t0)[5],lf[28]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[69]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[47]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[50]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[48]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[363]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[5],lf[361]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))))){ t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[6]; t8=C_i_cdr(((C_word*)t0)[2]); t9=C_i_check_list_2(t8,lf[6]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20855,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20857,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_20857(t14,t10,t8);} else{ t3=C_eqp(lf[52],((C_word*)t0)[5]); if(C_truep(t3)){ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(lf[84],((C_word*)t0)[5]); if(C_truep(t4)){ t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=((C_word*)t0)[6]; t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20907,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=t7,a[6]=t9,a[7]=t8,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2397: procedure-arguments */ f_15194(t10,((C_word*)t0)[2]);} else{ /* scrutinizer.scm:2408: chicken.compiler.support#bomb */ t5=*((C_word*)lf[345]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=lf[504]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}}}}} /* k20776 in map-loop4963 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_20778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_20778,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20785 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20787,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_i_caddr(t2); /* scrutinizer.scm:2391: conv */ t4=((C_word*)((C_word*)t0)[3])[1]; f_20652(t4,((C_word*)t0)[4],t3,C_a_i_list(&a,1,t1));} /* map-loop4963 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_fcall f_20796(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_20796,3,t0,t1,t2);} a=C_alloc(14); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20821,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20778,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t7; t9=t6; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20633,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2375: chicken.plist#get */ t11=*((C_word*)lf[379]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=t9; av2[3]=lf[378]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20819 in map-loop4963 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_20821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20821,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20796(t6,((C_word*)t0)[5],t5);} /* k20853 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_20855,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop4993 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_fcall f_20857(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_20857,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20882,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2394: g4999 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20880 in map-loop4993 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_20882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20882,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20857(t6,((C_word*)t0)[5],t5);} /* k20905 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_20907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_20907,2,av);} a=C_alloc(13); t2=C_i_check_list_2(t1,lf[6]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20913,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21007,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_21007(t7,t3,t1);} /* k20911 in k20905 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_20913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_20913,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20916,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2398: procedure-results */ f_15251(t3,((C_word*)t0)[3]);} /* k20914 in k20911 in k20905 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_20916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_20916,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20919,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_eqp(lf[53],t1); if(C_truep(t3)){ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_20919(2,av2);}} else{ t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[5]; t9=C_i_check_list_2(t1,lf[6]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20973,a[2]=t6,a[3]=t11,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_20973(t13,t2,t1);}} /* k20917 in k20914 in k20911 in k20905 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_20919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_20919,2,av);} a=C_alloc(6); t2=t1; if(C_truep(C_i_not(t2))){ t3=(C_truep(t2)?C_a_i_cons(&a,2,((C_word*)t0)[2],t2):C_a_i_cons(&a,2,((C_word*)t0)[2],lf[53])); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[84],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20950,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2404: procedure-name */ f_15143(t3,((C_word*)t0)[4]);}} /* k20948 in k20917 in k20914 in k20911 in k20905 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in ... */ static void C_ccall f_20950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_20950,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20953,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20956,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2405: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t1; av2[3]=lf[274]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2; f_20953(t3,C_SCHEME_FALSE);}} /* k20951 in k20948 in k20917 in k20914 in k20911 in k20905 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in ... */ static void C_fcall f_20953(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_20953,2,t0,t1);} a=C_alloc(3); t2=(C_truep(t1)?C_a_i_cons(&a,2,lf[473],((C_word*)t0)[2]):C_a_i_cons(&a,2,lf[475],((C_word*)t0)[2])); /* scrutinizer.scm:2404: ##sys#append */ t3=*((C_word*)lf[406]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k20954 in k20948 in k20917 in k20914 in k20911 in k20905 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in ... */ static void C_ccall f_20956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20956,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_20953(t3,t2);} else{ t2=((C_word*)t0)[2]; f_20953(t2,C_SCHEME_FALSE);}} /* map-loop5048 in k20914 in k20911 in k20905 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_fcall f_20973(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_20973,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20998,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2401: g5054 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20996 in map-loop5048 in k20914 in k20911 in k20905 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in ... */ static void C_ccall f_20998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20998,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20973(t6,((C_word*)t0)[5],t5);} /* map-loop5021 in k20905 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_fcall f_21007(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_21007,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21032,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2397: g5027 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21030 in map-loop5021 in k20905 in k20764 in k20758 in conv in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_21032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21032,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_21007(t6,((C_word*)t0)[5],t5);} /* k21067 in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_21069,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21076,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21080,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21082,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2412: chicken.port#with-output-to-string */ t6=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k21074 in k21067 in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21076,2,av);} /* scrutinizer.scm:2410: string-add-indent */ f_20535(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k21078 in k21067 in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21080,2,av);} /* scrutinizer.scm:2411: chicken.string#string-chomp */ t2=*((C_word*)lf[505]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a21081 in k21067 in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21082,2,av);} /* scrutinizer.scm:2413: chicken.pretty-print#pp */ t2=*((C_word*)lf[437]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k21088 in chicken.compiler.scrutinizer#type->pp-string in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21090,2,av);} /* scrutinizer.scm:2409: conv */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20652(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* chicken.compiler.scrutinizer#fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_21092(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_21092,2,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21096,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21195,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2416: source-node-tree */ t5=lf[455];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; f_17355(3,av2);}} /* k21094 in chicken.compiler.scrutinizer#fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_21096,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21101,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); f_21101(4,av2);}} /* walk in k21094 in chicken.compiler.scrutinizer#fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_21101,4,av);} a=C_alloc(8); if(C_truep(C_i_not_pair_p(t2))){ /* scrutinizer.scm:2418: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[480]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_i_greater_or_equalp(t3,C_fix(4)))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=lf[456]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_listp(t2))){ t4=t2; t5=C_u_i_length(t4); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21127,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnum_lessp(C_fix(6),t5))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21186,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2423: take */ f_6846(t7,t2,C_fix(6));} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=t2; f_21127(2,av2);}}} else{ /* scrutinizer.scm:2426: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[480]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}}} /* k21125 in walk in k21094 in chicken.compiler.scrutinizer#fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(46,c,3)))){ C_save_and_reclaim((void *)f_21127,2,av);} a=C_alloc(46); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=((C_word*)t0)[2]; t7=C_s_a_i_plus(&a,2,t6,C_fix(1)); t8=((C_word*)((C_word*)t0)[3])[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21132,a[2]=t8,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t10=C_i_check_list_2(t1,lf[6]); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21144,a[2]=t4,a[3]=t12,a[4]=t9,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_21144(t14,((C_word*)t0)[4],t1);} /* g5109 in k21125 in walk in k21094 in chicken.compiler.scrutinizer#fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_fcall f_21132(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_21132,3,t0,t1,t2);} /* scrutinizer.scm:2425: g51235124 */ t3=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* map-loop5103 in k21125 in walk in k21094 in chicken.compiler.scrutinizer#fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_fcall f_21144(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_21144,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21169,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2425: g5109 */ t5=((C_word*)t0)[4]; f_21132(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21167 in map-loop5103 in k21125 in walk in k21094 in chicken.compiler.scrutinizer#fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_21169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21169,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_21144(t6,((C_word*)t0)[5],t5);} /* k21184 in walk in k21094 in chicken.compiler.scrutinizer#fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21186,2,av);} /* scrutinizer.scm:2423: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[507]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k21193 in chicken.compiler.scrutinizer#fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21195,2,av);} /* scrutinizer.scm:2416: chicken.compiler.support#build-expression-tree */ t2=*((C_word*)lf[508]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.compiler.scrutinizer#pp-fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_21197(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_21197,2,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21205,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21209,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21211,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2431: chicken.port#with-output-to-string */ t6=*((C_word*)lf[506]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k21203 in chicken.compiler.scrutinizer#pp-fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21205,2,av);} /* scrutinizer.scm:2429: string-add-indent */ f_20535(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k21207 in chicken.compiler.scrutinizer#pp-fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21209,2,av);} /* scrutinizer.scm:2430: chicken.string#string-chomp */ t2=*((C_word*)lf[505]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a21210 in chicken.compiler.scrutinizer#pp-fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21211,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21219,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2433: fragment */ f_21092(t2,((C_word*)t0)[2]);} /* k21217 in a21210 in chicken.compiler.scrutinizer#pp-fragment in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21219,2,av);} /* scrutinizer.scm:2433: chicken.pretty-print#pp */ t2=*((C_word*)lf[437]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.compiler.scrutinizer#node-source-prefix in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_21221(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_21221,2,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21225,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17430,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:1729: source-node */ f_17328(t5,t2,C_SCHEME_END_OF_LIST);} /* k21223 in chicken.compiler.scrutinizer#node-source-prefix in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21225,2,av);} a=C_alloc(4); t2=t1; if(C_truep(C_i_not(t2))){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[509]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21234,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2437: chicken.base#open-output-string */ t4=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k21232 in k21223 in chicken.compiler.scrutinizer#node-source-prefix in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21234,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21240,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2437: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[511]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k21238 in k21232 in k21223 in chicken.compiler.scrutinizer#node-source-prefix in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_21240,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21243,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2437: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21241 in k21238 in k21232 in k21223 in chicken.compiler.scrutinizer#node-source-prefix in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_21243,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21246,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2437: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[510]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21244 in k21241 in k21238 in k21232 in k21223 in chicken.compiler.scrutinizer#node-source-prefix in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_21246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21246,2,av);} /* scrutinizer.scm:2437: chicken.base#get-output-string */ t2=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_21251(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_21251,3,t1,t2,t3);} a=C_alloc(9); t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[513]:C_i_car(t3)); t6=t5; if(C_truep(C_i_nullp(t2))){ /* scrutinizer.scm:2445: chicken.string#conc */ t7=*((C_word*)lf[322]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[514]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=C_a_i_list1(&a,1,lf[515]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21301,a[2]=t6,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_21301(t11,t1,t2,t7);}} /* k21262 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21264,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21270,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2442: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[525]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k21268 in k21262 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_21270,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21273,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21283,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2442: chicken.compiler.support#real-name */ t4=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21271 in k21268 in k21262 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_21273,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2442: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[524]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21274 in k21271 in k21268 in k21262 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_21276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21276,2,av);} /* scrutinizer.scm:2442: chicken.base#get-output-string */ t2=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k21281 in k21268 in k21262 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21283,2,av);} /* scrutinizer.scm:2442: ##sys#print */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_21301(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_21301,4,t0,t1,t2,t3);} a=C_alloc(14); t4=C_i_cdr(t2); if(C_truep(C_i_nullp(t4))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21315,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21323,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t7=t2; if(C_truep(C_u_i_car(t7))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21329,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21343,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2454: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t6; av2[2]=t8; av2[3]=t9; C_call_with_values(4,av2);}} else{ t8=t5; f_21315(t8,C_a_i_cons(&a,2,lf[523],t3));}} else{ t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21407,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t6,tmp=(C_word)a,a+=6,tmp); t8=t2; t9=C_u_i_car(t8); t10=t7; t11=t9; if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21264,a[2]=t10,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2442: chicken.base#open-output-string */ t13=*((C_word*)lf[244]+1);{ C_word av2[2]; av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t12=t10;{ C_word av2[2]; av2[0]=t12; av2[1]=lf[526]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}} /* k21313 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_21315(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_21315,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21319,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2458: chicken.string#conc */ t4=*((C_word*)lf[322]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[516]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k21317 in k21313 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21319,2,av);} /* scrutinizer.scm:2449: chicken.string#string-intersperse */ t2=*((C_word*)lf[317]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k21321 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_21323,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_21315(t2,C_a_i_cons(&a,2,t1,((C_word*)t0)[3]));} /* a21328 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21329,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21337,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[2]); /* scrutinizer.scm:2454: chicken.compiler.support#real-name */ t4=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21335 in a21328 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21337,2,av);} /* scrutinizer.scm:2454: variable-and-module */ f_21421(((C_word*)t0)[2],t1);} /* a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_21343,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21351,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21373,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2455: chicken.base#open-output-string */ t6=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=lf[522]; f_21351(2,av2);}}} /* k21349 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21351,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21355,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2456: chicken.base#open-output-string */ t4=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k21353 in k21349 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_21355,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21361,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2456: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[519]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k21359 in k21353 in k21349 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_21361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21361,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21364,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2456: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21362 in k21359 in k21353 in k21349 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_21364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_21364,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21367,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2456: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[518]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21365 in k21362 in k21359 in k21353 in k21349 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_21367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21367,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21370,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2456: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k21368 in k21365 in k21362 in k21359 in k21353 in k21349 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in ... */ static void C_ccall f_21370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21370,2,av);} /* scrutinizer.scm:2455: chicken.string#conc */ t2=*((C_word*)lf[322]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k21371 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_21373,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21379,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2455: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[521]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k21377 in k21371 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21379,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21382,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2455: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21380 in k21377 in k21371 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_21382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21382,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21385,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2455: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[520]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21383 in k21380 in k21377 in k21371 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_21385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_21385,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21388,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2455: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k21386 in k21383 in k21380 in k21377 in k21371 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_21388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_21388,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21391,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2455: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21389 in k21386 in k21383 in k21380 in k21377 in k21371 in a21342 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in ... */ static void C_ccall f_21391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21391,2,av);} /* scrutinizer.scm:2455: chicken.base#get-output-string */ t2=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k21405 in rec in chicken.compiler.scrutinizer#location-name in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_21407,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* scrutinizer.scm:2459: rec */ t3=((C_word*)((C_word*)t0)[3])[1]; f_21301(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* chicken.compiler.scrutinizer#variable-and-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_21421(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_21421,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21425,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_symbolp(t2))){ /* scrutinizer.scm:2463: scheme#symbol->string */ t4=*((C_word*)lf[479]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=t2; f_21425(2,av2);}}} /* k21423 in chicken.compiler.scrutinizer#variable-and-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_21425,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21428,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2464: chicken.string#string-split */ t4=*((C_word*)lf[499]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[527]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k21426 in k21423 in chicken.compiler.scrutinizer#variable-and-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21428,2,av);} a=C_alloc(4); t2=t1; t3=C_i_cdr(t2); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21441,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_cadr(t2); /* scrutinizer.scm:2466: scheme#string->symbol */ t6=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21460,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2467: scheme#string->symbol */ t5=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k21439 in k21426 in k21423 in chicken.compiler.scrutinizer#variable-and-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21441,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21445,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_car(((C_word*)t0)[3]); /* scrutinizer.scm:2466: scheme#string->symbol */ t5=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k21443 in k21439 in k21426 in k21423 in chicken.compiler.scrutinizer#variable-and-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21445,2,av);} /* scrutinizer.scm:2466: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_values(4,av2);}} /* k21458 in k21426 in k21423 in chicken.compiler.scrutinizer#variable-and-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21460,2,av);} /* scrutinizer.scm:2467: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} /* chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_21472(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_21472,2,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21478,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21484,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2470: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a21477 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21478,2,av);} /* scrutinizer.scm:2470: variable-and-module */ f_21421(t1,((C_word*)t0)[2]);} /* a21483 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21484,4,av);} a=C_alloc(5); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21491,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2472: chicken.base#open-output-string */ t5=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21515,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2473: chicken.base#open-output-string */ t5=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k21489 in a21483 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_21491,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21497,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2472: ##sys#write-char-0 */ t6=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(96); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k21495 in k21489 in a21483 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21497,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21500,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2472: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21498 in k21495 in k21489 in a21483 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21500,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2472: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[528]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21501 in k21498 in k21495 in k21489 in a21483 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_21503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_21503,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21506,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2472: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21504 in k21501 in k21498 in k21495 in k21489 in a21483 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_21506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_21506,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21509,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2472: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k21507 in k21504 in k21501 in k21498 in k21495 in k21489 in a21483 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_21509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21509,2,av);} /* scrutinizer.scm:2472: chicken.base#get-output-string */ t2=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k21513 in a21483 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_21515,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21521,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2473: ##sys#write-char-0 */ t6=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(96); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k21519 in k21513 in a21483 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_21521,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21524,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2473: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k21522 in k21519 in k21513 in a21483 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_21524,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21527,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2473: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k21525 in k21522 in k21519 in k21513 in a21483 in chicken.compiler.scrutinizer#variable-from-module in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_21527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21527,2,av);} /* scrutinizer.scm:2473: chicken.base#get-output-string */ t2=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_21532(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_21532,2,t1,t2);} a=C_alloc(14); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21535,tmp=(C_word)a,a+=2,tmp)); t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21549,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21646,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2497: source-node-tree */ t10=lf[455];{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t2; f_17355(3,av2);}} /* p-expr in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_21535(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_21535,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21543,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2477: scheme#string-append */ t4=*((C_word*)lf[76]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[529]; av2[3]=lf[530]; av2[4]=lf[531]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k21541 in p-expr in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21543,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21547,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2478: pp-fragment */ f_21197(t3,((C_word*)t0)[3]);} /* k21545 in k21541 in p-expr in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21547,2,av);} /* scrutinizer.scm:2477: chicken.format#sprintf */ t2=*((C_word*)lf[412]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_21549(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_21549,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21553,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21639,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2480: chicken.compiler.support#node-class */ t5=*((C_word*)lf[88]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k21551 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21553,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21580,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2494: chicken.compiler.support#node-class */ t3=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k21571 in k21578 in k21551 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21573,2,av);} t2=C_i_car(t1); /* scrutinizer.scm:2495: p-node */ t3=((C_word*)((C_word*)t0)[2])[1]; f_21549(t3,((C_word*)t0)[3],t2);} /* k21578 in k21551 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21580,2,av);} a=C_alloc(4); t2=C_eqp(lf[85],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21573,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2495: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* scrutinizer.scm:2496: p-expr */ f_21535(((C_word*)t0)[3],((C_word*)t0)[4]);}} /* k21599 in k21625 in k21629 in k21633 in k21637 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_21601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,6)))){ C_save_and_reclaim((void *)f_21601,2,av);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21611,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2485: scheme#string-append */ t4=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t3; av2[2]=lf[532]; av2[3]=lf[533]; av2[4]=lf[534]; av2[5]=lf[535]; av2[6]=lf[536]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_21553(2,av2);}}} /* k21609 in k21599 in k21625 in k21629 in k21633 in k21637 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_21611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_21611,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21615,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2491: variable-from-module */ f_21472(t3,((C_word*)t0)[6]);} /* k21613 in k21609 in k21599 in k21625 in k21629 in k21633 in k21637 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in ... */ static void C_ccall f_21615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_21615,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21619,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2492: type->pp-string */ f_20626(t3,((C_word*)t0)[6]);} /* k21617 in k21613 in k21609 in k21599 in k21625 in k21629 in k21633 in k21637 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in ... */ static void C_ccall f_21619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21619,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21623,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2493: p-expr */ f_21535(t3,((C_word*)t0)[6]);} /* k21621 in k21617 in k21613 in k21609 in k21599 in k21625 in k21629 in k21633 in k21637 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in ... */ static void C_ccall f_21623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21623,2,av);} /* scrutinizer.scm:2485: chicken.format#sprintf */ t2=*((C_word*)lf[412]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k21625 in k21629 in k21633 in k21637 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_21627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_21627,2,av);} a=C_alloc(6); t2=C_i_car(t1); t3=t2; if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21601,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2484: chicken.compiler.support#variable-mark */ t5=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=lf[65]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_21553(2,av2);}}} /* k21629 in k21633 in k21637 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21631,2,av);} a=C_alloc(5); t2=C_eqp(lf[87],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21627,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2483: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_21553(2,av2);}}} /* k21633 in k21637 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21635,2,av);} a=C_alloc(6); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21631,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2482: chicken.compiler.support#node-class */ t5=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k21637 in p-node in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21639,2,av);} a=C_alloc(5); t2=C_eqp(lf[120],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21635,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2481: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_21553(2,av2);}}} /* k21644 in chicken.compiler.scrutinizer#describe-expression in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21646,2,av);} /* scrutinizer.scm:2497: p-node */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21549(t2,((C_word*)t0)[3],t1);} /* chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_21662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-7)*C_SIZEOF_PAIR +23,c,2)))){ C_save_and_reclaim((void*)f_21662,c,av);} a=C_alloc((c-7)*C_SIZEOF_PAIR+23); t7=C_build_rest(&a,c,7,av); C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21665,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(lf[18])){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21693,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21700,a[2]=t3,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21704,a[2]=t10,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21708,a[2]=t11,tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21712,a[2]=t12,a[3]=t6,a[4]=t7,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2512: file-location */ t14=t8; f_21665(t14,t13);} else{ t9=C_SCHEME_UNDEFINED; t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* file-location in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_21665(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,0,3)))){ C_save_and_reclaim_args((void *)trf_21665,2,t0,t1);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21671,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2504: any */ f_7141(t1,t2,((C_word*)t0)[2]);} /* a21670 in file-location in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21671,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21687,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2504: node-source-prefix */ f_21221(t3,t2);} /* k21685 in a21670 in file-location in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21687,2,av);} t2=C_u_i_string_equal_p(lf[537],t1); if(C_truep(C_i_not(t2))){ /* scrutinizer.scm:2505: node-source-prefix */ f_21221(((C_word*)t0)[2],((C_word*)t0)[3]);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21691 in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21693,2,av);} /* scrutinizer.scm:2516: chicken.base#flush-output */ t2=*((C_word*)lf[538]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21698 in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21700,2,av);} /* scrutinizer.scm:2508: report-f */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k21702 in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21704,2,av);} /* scrutinizer.scm:2509: chicken.string#conc */ t2=*((C_word*)lf[322]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k21706 in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_21708,2,av);} a=C_alloc(3); /* scrutinizer.scm:2511: string-add-indent */ f_20535(((C_word*)t0)[2],t1,C_a_i_list(&a,1,lf[539]));} /* k21710 in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_21712,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21715,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t1)){ /* scrutinizer.scm:2512: chicken.string#conc */ t3=*((C_word*)lf[322]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[543]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=lf[544]; f_21715(2,av2);}}} /* k21713 in k21710 in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_21715,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21719,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2513: location-name */ f_21251(t3,((C_word*)t0)[5],C_a_i_list(&a,1,lf[542]));} /* k21717 in k21713 in k21710 in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_21719,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21723,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2514: chicken.base#open-output-string */ t4=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k21721 in k21717 in k21713 in k21710 in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_21723,2,av);} a=C_alloc(6); t2=t1; t3=C_i_check_port_2(t2,C_fix(2),C_SCHEME_TRUE,lf[237]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21729,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t4; av2[2]=*((C_word*)lf[541]+1); av2[3]=t2; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; C_apply(6,av2);}} /* k21727 in k21721 in k21717 in k21713 in k21710 in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_21729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21729,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21732,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2514: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k21730 in k21727 in k21721 in k21717 in k21713 in k21710 in chicken.compiler.scrutinizer#report2 in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_21732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21732,2,av);} /* scrutinizer.scm:2512: chicken.string#conc */ t2=*((C_word*)lf[322]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[540]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* variable-node-name in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_21746(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_21746,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21785,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2525: chicken.compiler.support#node-class */ t4=*((C_word*)lf[88]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21762 in k21783 in variable-node-name in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21764,2,av);} t2=C_i_car(t1); /* scrutinizer.scm:2526: variable-node-name */ t3=((C_word*)((C_word*)t0)[2])[1]; f_21746(t3,((C_word*)t0)[3],t2);} /* k21775 in k21779 in k21783 in variable-node-name in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_21777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21777,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21779 in k21783 in variable-node-name in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21781,2,av);} a=C_alloc(3); t2=C_eqp(lf[87],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21777,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2527: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21783 in variable-node-name in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21785,2,av);} a=C_alloc(4); t2=C_eqp(lf[85],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21764,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2526: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21781,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2527: chicken.compiler.support#node-class */ t4=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k21789 in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,16)))){ C_save_and_reclaim((void *)f_21791,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21802,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2535: scheme#string-append */ t5=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=t5; av2[1]=t4; av2[2]=lf[92]; av2[3]=lf[93]; av2[4]=lf[94]; av2[5]=lf[95]; av2[6]=lf[96]; av2[7]=lf[97]; av2[8]=lf[98]; av2[9]=lf[99]; av2[10]=lf[100]; ((C_proc)(void*)(*((C_word*)t5+1)))(11,av2);}} else{ t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21829,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2553: scheme#string-append */ t5=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 17) { av2=av; } else { av2=C_alloc(17); } av2[0]=t5; av2[1]=t4; av2[2]=lf[103]; av2[3]=lf[104]; av2[4]=lf[105]; av2[5]=lf[106]; av2[6]=lf[107]; av2[7]=lf[108]; av2[8]=lf[109]; av2[9]=lf[110]; av2[10]=lf[111]; av2[11]=lf[112]; av2[12]=lf[113]; av2[13]=lf[114]; av2[14]=lf[115]; av2[15]=lf[116]; av2[16]=lf[117]; ((C_proc)(void*)(*((C_word*)t5+1)))(17,av2);}}} /* k21800 in k21789 in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_21802,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21806,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2545: pp-fragment */ f_21197(t3,((C_word*)t0)[8]);} /* k21804 in k21800 in k21789 in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_21806,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21810,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21818,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2546: variable-node-name */ t5=((C_word*)((C_word*)t0)[7])[1]; f_21746(t5,t4,((C_word*)t0)[8]);} /* k21808 in k21804 in k21800 in k21789 in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_21810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_21810,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21814,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2547: type->pp-string */ f_20626(t3,((C_word*)t0)[7]);} /* k21812 in k21808 in k21804 in k21800 in k21789 in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_21814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_21814,2,av);} /* scrutinizer.scm:2530: report2 */ t2=lf[71];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[89]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; av2[8]=((C_word*)t0)[7]; av2[9]=t1; f_21662(10,av2);}} /* k21816 in k21804 in k21800 in k21789 in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_21818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21818,2,av);} /* scrutinizer.scm:2546: variable-from-module */ f_21472(((C_word*)t0)[2],t1);} /* k21827 in k21789 in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_21829,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21833,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2569: pp-fragment */ f_21197(t3,((C_word*)t0)[8]);} /* k21831 in k21827 in k21789 in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_21833,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21837,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2570: describe-expression */ f_21532(t3,((C_word*)t0)[8]);} /* k21835 in k21831 in k21827 in k21789 in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_21837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_21837,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21841,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2571: type->pp-string */ f_20626(t3,((C_word*)t0)[8]);} /* k21839 in k21835 in k21831 in k21827 in k21789 in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_21841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_21841,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21845,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2572: type->pp-string */ f_20626(t3,((C_word*)t0)[8]);} /* k21843 in k21839 in k21835 in k21831 in k21827 in k21789 in k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_21845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){ C_save_and_reclaim((void *)f_21845,2,av);} /* scrutinizer.scm:2548: report2 */ t2=lf[71];{ C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[101]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; av2[8]=((C_word*)t0)[7]; av2[9]=((C_word*)t0)[8]; av2[10]=t1; f_21662(11,av2);}} /* k21850 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,10)))){ C_save_and_reclaim((void *)f_21852,2,av);} a=C_alloc(13); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_a_i_list1(&a,1,((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21863,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t4,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2581: scheme#string-append */ t6=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=t6; av2[1]=t5; av2[2]=lf[177]; av2[3]=lf[178]; av2[4]=lf[179]; av2[5]=lf[180]; av2[6]=lf[181]; av2[7]=lf[182]; av2[8]=lf[183]; av2[9]=lf[184]; av2[10]=lf[185]; ((C_proc)(void*)(*((C_word*)t6+1)))(11,av2);}} /* k21861 in k21850 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_21863,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2591: pp-fragment */ f_21197(t3,((C_word*)t0)[9]);} /* k21865 in k21861 in k21850 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_21867,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21871,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:2592: strip-namespace */ f_19437(t3,((C_word*)((C_word*)t0)[9])[1]);} /* k21869 in k21865 in k21861 in k21850 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_21871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_21871,2,av);} a=C_alloc(14); t2=t1; t3=C_i_nequalp(((C_word*)t0)[2],C_fix(1)); t4=(C_truep(t3)?lf[171]:lf[172]); t5=t4; t6=C_i_nequalp(((C_word*)t0)[3],C_fix(1)); t7=(C_truep(t6)?lf[171]:lf[172]); t8=t7; t9=C_i_nequalp(((C_word*)t0)[3],C_fix(1)); t10=(C_truep(t9)?lf[173]:lf[174]); t11=t10; t12=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21887,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t2,a[8]=((C_word*)t0)[2],a[9]=t5,a[10]=((C_word*)t0)[3],a[11]=t8,a[12]=t11,a[13]=((C_word*)t0)[9],tmp=(C_word)a,a+=14,tmp); /* scrutinizer.scm:2596: variable-from-module */ f_21472(t12,((C_word*)((C_word*)t0)[10])[1]);} /* k21885 in k21869 in k21865 in k21861 in k21850 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_21887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_21887,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21891,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t2,tmp=(C_word)a,a+=14,tmp); /* scrutinizer.scm:2597: type->pp-string */ f_20626(t3,((C_word*)t0)[13]);} /* k21889 in k21885 in k21869 in k21865 in k21861 in k21850 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_21891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,15)))){ C_save_and_reclaim((void *)f_21891,2,av);} /* scrutinizer.scm:2576: report2 */ t2=lf[71];{ C_word *av2; if(c >= 16) { av2=av; } else { av2=C_alloc(16); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[175]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; av2[8]=((C_word*)t0)[7]; av2[9]=((C_word*)t0)[8]; av2[10]=((C_word*)t0)[9]; av2[11]=((C_word*)t0)[10]; av2[12]=((C_word*)t0)[11]; av2[13]=((C_word*)t0)[12]; av2[14]=((C_word*)t0)[13]; av2[15]=t1; f_21662(16,av2);}} /* chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_21896(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){ C_word tmp; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){ C_save_and_reclaim_args((void *)trf_21896,8,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(16); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21901,a[2]=t10,a[3]=t3,a[4]=t1,a[5]=t2,a[6]=t4,a[7]=t8,a[8]=t5,a[9]=t6,a[10]=t7,tmp=(C_word)a,a+=11,tmp); t12=t11; t13=t3; t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28390,a[2]=t12,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2500: chicken.compiler.support#node-subexpressions */ t15=*((C_word*)lf[86]+1);{ C_word av2[3]; av2[0]=t15; av2[1]=t14; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} /* k21899 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,18)))){ C_save_and_reclaim((void *)f_21901,2,av);} a=C_alloc(15); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_a_i_list1(&a,1,((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21912,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[3],tmp=(C_word)a,a+=12,tmp); /* scrutinizer.scm:2606: scheme#string-append */ t6=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 19) { av2=av; } else { av2=C_alloc(19); } av2[0]=t6; av2[1]=t5; av2[2]=lf[546]; av2[3]=lf[547]; av2[4]=lf[548]; av2[5]=lf[549]; av2[6]=lf[550]; av2[7]=lf[551]; av2[8]=lf[552]; av2[9]=lf[553]; av2[10]=lf[554]; av2[11]=lf[555]; av2[12]=lf[556]; av2[13]=lf[557]; av2[14]=lf[558]; av2[15]=lf[559]; av2[16]=lf[560]; av2[17]=lf[561]; av2[18]=lf[562]; ((C_proc)(void*)(*((C_word*)t6+1)))(19,av2);}} /* k21910 in k21899 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_21912,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* scrutinizer.scm:2624: pp-fragment */ f_21197(t3,((C_word*)t0)[11]);} /* k21914 in k21910 in k21899 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_21916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21916,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21920,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:2626: strip-namespace */ f_19437(t3,((C_word*)((C_word*)t0)[8])[1]);} /* k21918 in k21914 in k21910 in k21899 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_21920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21920,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21924,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:2627: type->pp-string */ f_20626(t3,((C_word*)t0)[12]);} /* k21922 in k21918 in k21914 in k21910 in k21899 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_21924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21924,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21928,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:2628: type->pp-string */ f_20626(t3,((C_word*)t0)[12]);} /* k21926 in k21922 in k21918 in k21914 in k21910 in k21899 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_21928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21928,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21932,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:2629: describe-expression */ f_21532(t3,((C_word*)t0)[12]);} /* k21930 in k21926 in k21922 in k21918 in k21914 in k21910 in k21899 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_21932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21932,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21936,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:2630: variable-from-module */ f_21472(t3,((C_word*)((C_word*)t0)[12])[1]);} /* k21934 in k21930 in k21926 in k21922 in k21918 in k21914 in k21910 in k21899 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in ... */ static void C_ccall f_21936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21936,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21940,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:2631: type->pp-string */ f_20626(t3,((C_word*)t0)[12]);} /* k21938 in k21934 in k21930 in k21926 in k21922 in k21918 in k21914 in k21910 in k21899 in chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in ... */ static void C_ccall f_21940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,14)))){ C_save_and_reclaim((void *)f_21940,2,av);} /* scrutinizer.scm:2601: report2 */ t2=lf[71];{ C_word *av2; if(c >= 15) { av2=av; } else { av2=C_alloc(15); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[545]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; av2[8]=((C_word*)t0)[7]; av2[9]=((C_word*)t0)[8]; av2[10]=((C_word*)t0)[9]; av2[11]=((C_word*)t0)[10]; av2[12]=((C_word*)t0)[11]; av2[13]=((C_word*)t0)[12]; av2[14]=t1; f_21662(15,av2);}} /* chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_21942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_21942,7,av);} a=C_alloc(17); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21947,a[2]=t8,a[3]=t10,a[4]=t5,a[5]=t3,a[6]=t2,a[7]=t4,a[8]=t6,a[9]=t1,tmp=(C_word)a,a+=10,tmp); t12=t11; t13=t3; t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28396,a[2]=t12,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2500: chicken.compiler.support#node-subexpressions */ t15=*((C_word*)lf[86]+1);{ C_word *av2=av; av2[0]=t15; av2[1]=t14; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} /* k21945 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_21947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_21947,2,av);} a=C_alloc(12); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21949,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp)); t4=C_i_length(((C_word*)t0)[8]); t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ /* scrutinizer.scm:2655: p */ t6=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[9]; av2[2]=lf[572]; av2[3]=lf[573]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22012,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2658: chicken.base#open-output-string */ t7=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* f_21949 in k21945 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_21949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,8)))){ C_save_and_reclaim((void *)f_21949,4,av);} a=C_alloc(17); t4=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21961,a[2]=t1,a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:2641: scheme#string-append */ t7=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t7; av2[1]=t6; av2[2]=lf[565]; av2[3]=lf[566]; av2[4]=lf[567]; av2[5]=lf[568]; av2[6]=lf[569]; av2[7]=lf[570]; av2[8]=lf[571]; ((C_proc)(void*)(*((C_word*)t7+1)))(9,av2);}} /* k21959 */ static void C_ccall f_21961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_21961,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21965,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:2649: pp-fragment */ f_21197(t3,((C_word*)t0)[10]);} /* k21963 in k21959 */ static void C_ccall f_21965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_21965,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21969,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=((C_word*)t0)[7]; if(C_truep(C_i_zerop(t4))){ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=lf[563]; f_21969(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21977,a[2]=t3,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2651: chicken.base#open-output-string */ t6=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k21967 in k21963 in k21959 */ static void C_ccall f_21969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_21969,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21973,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:2653: describe-expression */ f_21532(t3,((C_word*)t0)[10]);} /* k21971 in k21967 in k21963 in k21959 */ static void C_ccall f_21973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,11)))){ C_save_and_reclaim((void *)f_21973,2,av);} /* scrutinizer.scm:2636: report2 */ t2=lf[71];{ C_word *av2; if(c >= 12) { av2=av; } else { av2=C_alloc(12); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; av2[8]=((C_word*)t0)[8]; av2[9]=((C_word*)t0)[9]; av2[10]=((C_word*)t0)[10]; av2[11]=t1; f_21662(12,av2);}} /* k21975 in k21963 in k21959 */ static void C_ccall f_21977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21977,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21983,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2651: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[564]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k21981 in k21975 in k21963 in k21959 */ static void C_ccall f_21983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_21983,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21986,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21996,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2651: strip-namespace */ f_19437(t3,((C_word*)((C_word*)t0)[5])[1]);} /* k21984 in k21981 in k21975 in k21963 in k21959 */ static void C_ccall f_21986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_21986,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21989,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2651: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k21987 in k21984 in k21981 in k21975 in k21963 in k21959 */ static void C_ccall f_21989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21989,2,av);} /* scrutinizer.scm:2651: chicken.base#get-output-string */ t2=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k21994 in k21981 in k21975 in k21963 in k21959 */ static void C_ccall f_21996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21996,2,av);} /* scrutinizer.scm:2651: ##sys#print */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k22010 in k21945 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22012,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22018,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2658: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[576]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22016 in k22010 in k21945 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22018,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[6]; t4=C_u_i_length(t3); /* scrutinizer.scm:2658: ##sys#print */ t5=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k22019 in k22016 in k22010 in k21945 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_22021,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2658: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[575]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22022 in k22019 in k22016 in k22010 in k21945 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22024,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22027,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2658: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k22025 in k22022 in k22019 in k22016 in k22010 in k21945 in chicken.compiler.scrutinizer#r-proc-call-argument-value-count in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_22027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22027,2,av);} /* scrutinizer.scm:2657: p */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[574]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_22035(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_22035,6,t1,t2,t3,t4,t5,t6);} a=C_alloc(14); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22040,a[2]=t8,a[3]=t3,a[4]=t1,a[5]=t2,a[6]=t4,a[7]=t5,a[8]=t6,tmp=(C_word)a,a+=9,tmp); t10=t9; t11=t3; t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28402,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2500: chicken.compiler.support#node-subexpressions */ t13=*((C_word*)lf[86]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t12; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_22040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_22040,2,av);} a=C_alloc(13); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22047,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); t4=((C_word*)t0)[6]; if(C_truep(C_i_negativep(t4))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22120,a[2]=t3,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2665: chicken.base#open-output-string */ t6=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22138,a[2]=t3,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2666: chicken.base#open-output-string */ t6=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,6)))){ C_save_and_reclaim((void *)f_22047,2,av);} a=C_alloc(14); t2=t1; t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22055,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:2672: scheme#string-append */ t6=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t6; av2[1]=t5; av2[2]=lf[582]; av2[3]=lf[583]; av2[4]=lf[584]; av2[5]=lf[585]; av2[6]=lf[586]; ((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}} /* k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_22055,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22059,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:2678: pp-fragment */ f_21197(t3,((C_word*)t0)[10]);} /* k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_22059,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22063,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:2679: variable-from-module */ f_21472(t3,((C_word*)((C_word*)t0)[10])[1]);} /* k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_22063,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22067,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t4=((C_word*)t0)[8]; if(C_truep(C_i_negativep(t4))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22071,a[2]=t3,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2681: chicken.base#open-output-string */ t6=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22089,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2682: chicken.base#open-output-string */ t6=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k22065 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_22067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_22067,2,av);} /* scrutinizer.scm:2663: report2 */ t2=lf[71];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; av2[8]=((C_word*)t0)[8]; av2[9]=t1; f_21662(10,av2);}} /* k22069 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_22071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22071,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22077,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2681: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[577]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22075 in k22069 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_22077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_22077,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22080,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2681: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22078 in k22075 in k22069 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in ... */ static void C_ccall f_22080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_22080,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22083,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2681: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(46); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k22081 in k22078 in k22075 in k22069 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in ... */ static void C_ccall f_22083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22083,2,av);} /* scrutinizer.scm:2681: chicken.base#get-output-string */ t2=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k22087 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_22089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_22089,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22095,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2682: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[581]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22093 in k22087 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_22095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22095,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22098,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2682: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22096 in k22093 in k22087 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in ... */ static void C_ccall f_22098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22098,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22101,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2682: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[580]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22099 in k22096 in k22093 in k22087 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in ... */ static void C_ccall f_22101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22101,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22104,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2682: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22102 in k22099 in k22096 in k22093 in k22087 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in ... */ static void C_ccall f_22104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22104,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2682: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[579]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22105 in k22102 in k22099 in k22096 in k22093 in k22087 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in ... */ static void C_ccall f_22107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_22107,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22110,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2682: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22108 in k22105 in k22102 in k22099 in k22096 in k22093 in k22087 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in ... */ static void C_ccall f_22110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_22110,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22113,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2682: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[578]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22111 in k22108 in k22105 in k22102 in k22099 in k22096 in k22093 in k22087 in k22061 in k22057 in k22053 in k22045 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in ... */ static void C_ccall f_22113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22113,2,av);} /* scrutinizer.scm:2682: chicken.base#get-output-string */ t2=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k22118 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22120,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22126,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2665: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[588]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22124 in k22118 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_22126,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22129,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2665: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22127 in k22124 in k22118 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_22129,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22132,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2665: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[587]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22130 in k22127 in k22124 in k22118 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22132,2,av);} /* scrutinizer.scm:2665: chicken.base#get-output-string */ t2=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k22136 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22138,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22144,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=C_i_string_ref(((C_word*)t0)[3],C_fix(0)); t7=C_u_i_char_upcase(t6); /* scrutinizer.scm:2666: ##sys#print */ t8=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t5; av2[2]=t7; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* k22142 in k22136 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_22144,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22147,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22157,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2668: scheme#substring */ t4=*((C_word*)lf[590]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k22145 in k22142 in k22136 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_22147,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22150,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2666: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[589]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22148 in k22145 in k22142 in k22136 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22150,2,av);} /* scrutinizer.scm:2666: chicken.base#get-output-string */ t2=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k22155 in k22142 in k22136 in k22038 in chicken.compiler.scrutinizer#r-index-out-of-range in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22157,2,av);} /* scrutinizer.scm:2666: ##sys#print */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_22167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_22167,6,av);} a=C_alloc(10); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22170,a[2]=t4,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t7=C_i_length(t5); t8=C_eqp(t7,C_fix(0)); if(C_truep(t8)){ /* scrutinizer.scm:2700: p */ t9=t6; f_22170(t9,t1,lf[598],lf[599]);} else{ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22206,a[2]=t6,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2703: chicken.base#open-output-string */ t10=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* p in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_22170(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,8)))){ C_save_and_reclaim_args((void *)trf_22170,4,t0,t1,t2,t3);} a=C_alloc(15); t4=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22182,a[2]=t1,a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2688: scheme#string-append */ t7=*((C_word*)lf[76]+1);{ C_word av2[9]; av2[0]=t7; av2[1]=t6; av2[2]=lf[591]; av2[3]=lf[592]; av2[4]=lf[593]; av2[5]=lf[594]; av2[6]=lf[595]; av2[7]=lf[596]; av2[8]=lf[597]; ((C_proc)(void*)(*((C_word*)t7+1)))(9,av2);}} /* k22180 in p in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22182,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22186,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2696: pp-fragment */ f_21197(t3,((C_word*)t0)[8]);} /* k22184 in k22180 in p in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22186,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22190,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2698: describe-expression */ f_21532(t3,((C_word*)t0)[8]);} /* k22188 in k22184 in k22180 in p in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_22190,2,av);} /* scrutinizer.scm:2686: report2 */ t2=lf[71];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; av2[8]=((C_word*)t0)[8]; av2[9]=t1; f_21662(10,av2);}} /* k22204 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_22206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22206,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22212,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2703: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[602]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22210 in k22204 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22212,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22215,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[6]; t4=C_u_i_length(t3); /* scrutinizer.scm:2703: ##sys#print */ t5=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k22213 in k22210 in k22204 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_22215,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22218,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2703: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[601]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22216 in k22213 in k22210 in k22204 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22218,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22221,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2703: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k22219 in k22216 in k22213 in k22210 in k22204 in chicken.compiler.scrutinizer#r-conditional-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22221,2,av);} /* scrutinizer.scm:2702: p */ t2=((C_word*)t0)[2]; f_22170(t2,((C_word*)t0)[3],lf[600],t1);} /* chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_22229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_22229,7,av);} a=C_alloc(12); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22232,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t8=C_i_length(t6); t9=C_eqp(t8,C_fix(0)); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22269,a[2]=t7,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2722: chicken.base#open-output-string */ t11=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22295,a[2]=t7,a[3]=t1,a[4]=t6,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2724: chicken.base#open-output-string */ t11=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} /* p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_22232(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,8)))){ C_save_and_reclaim_args((void *)trf_22232,4,t0,t1,t2,t3);} a=C_alloc(16); t4=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22244,a[2]=t1,a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2709: scheme#string-append */ t7=*((C_word*)lf[76]+1);{ C_word av2[9]; av2[0]=t7; av2[1]=t6; av2[2]=lf[603]; av2[3]=lf[604]; av2[4]=lf[605]; av2[5]=lf[606]; av2[6]=lf[607]; av2[7]=lf[608]; av2[8]=lf[609]; ((C_proc)(void*)(*((C_word*)t7+1)))(9,av2);}} /* k22242 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22244,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22248,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2717: pp-fragment */ f_21197(t3,((C_word*)t0)[9]);} /* k22246 in k22242 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22248,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22252,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2718: chicken.compiler.support#real-name */ t4=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k22250 in k22246 in k22242 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22252,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22256,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2720: describe-expression */ f_21532(t3,((C_word*)t0)[9]);} /* k22254 in k22250 in k22246 in k22242 in p in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){ C_save_and_reclaim((void *)f_22256,2,av);} /* scrutinizer.scm:2707: report2 */ t2=lf[71];{ C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; av2[8]=((C_word*)t0)[8]; av2[9]=((C_word*)t0)[9]; av2[10]=t1; f_21662(11,av2);}} /* k22267 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_22269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22269,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22275,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2722: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[612]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22273 in k22267 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22275,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22278,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22288,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2722: chicken.compiler.support#real-name */ t4=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k22276 in k22273 in k22267 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_22278,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22281,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2722: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[611]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22279 in k22276 in k22273 in k22267 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22281,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22284,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2722: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k22282 in k22279 in k22276 in k22273 in k22267 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22284,2,av);} /* scrutinizer.scm:2722: p */ t2=((C_word*)t0)[2]; f_22232(t2,((C_word*)t0)[3],t1,lf[610]);} /* k22286 in k22273 in k22267 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22288,2,av);} /* scrutinizer.scm:2722: ##sys#print */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_22295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_22295,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22301,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2724: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[617]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_22301,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22304,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22343,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2724: chicken.compiler.support#real-name */ t4=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k22302 in k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22304,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22307,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2724: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[616]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22305 in k22302 in k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22307,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22310,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[4]; t4=C_u_i_length(t3); /* scrutinizer.scm:2724: ##sys#print */ t5=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k22308 in k22305 in k22302 in k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22310,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22313,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2724: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[615]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22311 in k22308 in k22305 in k22302 in k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_22313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22313,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22316,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2724: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k22314 in k22311 in k22308 in k22305 in k22302 in k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_22316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_22316,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22320,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2725: chicken.base#open-output-string */ t4=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k22318 in k22314 in k22311 in k22308 in k22305 in k22302 in k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in ... */ static void C_ccall f_22320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_22320,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2725: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[614]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22324 in k22318 in k22314 in k22311 in k22308 in k22305 in k22302 in k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in ... */ static void C_ccall f_22326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22326,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22329,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[7]; t4=C_u_i_length(t3); /* scrutinizer.scm:2725: ##sys#print */ t5=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k22327 in k22324 in k22318 in k22314 in k22311 in k22308 in k22305 in k22302 in k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in ... */ static void C_ccall f_22329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22329,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22332,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2725: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[613]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22330 in k22327 in k22324 in k22318 in k22314 in k22311 in k22308 in k22305 in k22302 in k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in ... */ static void C_ccall f_22332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22332,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22335,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2725: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k22333 in k22330 in k22327 in k22324 in k22318 in k22314 in k22311 in k22308 in k22305 in k22302 in k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in ... */ static void C_ccall f_22335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22335,2,av);} /* scrutinizer.scm:2724: p */ t2=((C_word*)t0)[2]; f_22232(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k22341 in k22299 in k22293 in chicken.compiler.scrutinizer#r-let-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22343,2,av);} /* scrutinizer.scm:2724: ##sys#print */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_22349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_22349,7,av);} a=C_alloc(12); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22352,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t8=C_i_length(t6); t9=C_eqp(t8,C_fix(0)); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22389,a[2]=t7,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2744: chicken.base#open-output-string */ t11=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22415,a[2]=t7,a[3]=t1,a[4]=t6,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2746: chicken.base#open-output-string */ t11=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} /* p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_22352(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,8)))){ C_save_and_reclaim_args((void *)trf_22352,4,t0,t1,t2,t3);} a=C_alloc(16); t4=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22364,a[2]=t1,a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2731: scheme#string-append */ t7=*((C_word*)lf[76]+1);{ C_word av2[9]; av2[0]=t7; av2[1]=t6; av2[2]=lf[618]; av2[3]=lf[619]; av2[4]=lf[620]; av2[5]=lf[621]; av2[6]=lf[622]; av2[7]=lf[623]; av2[8]=lf[624]; ((C_proc)(void*)(*((C_word*)t7+1)))(9,av2);}} /* k22362 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22364,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22368,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2739: pp-fragment */ f_21197(t3,((C_word*)t0)[9]);} /* k22366 in k22362 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22368,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22372,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2740: strip-namespace */ f_19437(t3,((C_word*)t0)[9]);} /* k22370 in k22366 in k22362 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22372,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22376,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2742: describe-expression */ f_21532(t3,((C_word*)t0)[9]);} /* k22374 in k22370 in k22366 in k22362 in p in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){ C_save_and_reclaim((void *)f_22376,2,av);} /* scrutinizer.scm:2729: report2 */ t2=lf[71];{ C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; av2[8]=((C_word*)t0)[8]; av2[9]=((C_word*)t0)[9]; av2[10]=t1; f_21662(11,av2);}} /* k22387 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_22389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22389,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22395,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2744: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[627]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22393 in k22387 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22395,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22398,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22408,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2744: strip-namespace */ f_19437(t3,((C_word*)t0)[6]);} /* k22396 in k22393 in k22387 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_22398,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22401,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2744: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[626]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22399 in k22396 in k22393 in k22387 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22401,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22404,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2744: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k22402 in k22399 in k22396 in k22393 in k22387 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22404,2,av);} /* scrutinizer.scm:2744: p */ t2=((C_word*)t0)[2]; f_22352(t2,((C_word*)t0)[3],t1,lf[625]);} /* k22406 in k22393 in k22387 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22408,2,av);} /* scrutinizer.scm:2744: ##sys#print */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_22415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_22415,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22421,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2746: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[632]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_22421,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22463,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2746: strip-namespace */ f_19437(t3,((C_word*)t0)[7]);} /* k22422 in k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22424,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22427,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2746: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[631]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22425 in k22422 in k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22427,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22430,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[4]; t4=C_u_i_length(t3); /* scrutinizer.scm:2746: ##sys#print */ t5=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k22428 in k22425 in k22422 in k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22430,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22433,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2746: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[630]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22431 in k22428 in k22425 in k22422 in k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_22433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22433,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22436,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2746: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k22434 in k22431 in k22428 in k22425 in k22422 in k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_22436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_22436,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22440,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2747: chicken.base#open-output-string */ t4=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k22438 in k22434 in k22431 in k22428 in k22425 in k22422 in k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in ... */ static void C_ccall f_22440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_22440,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22446,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2747: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[629]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22444 in k22438 in k22434 in k22431 in k22428 in k22425 in k22422 in k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in ... */ static void C_ccall f_22446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_22446,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22449,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[7]; t4=C_u_i_length(t3); /* scrutinizer.scm:2747: ##sys#print */ t5=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k22447 in k22444 in k22438 in k22434 in k22431 in k22428 in k22425 in k22422 in k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in ... */ static void C_ccall f_22449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22449,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22452,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2747: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[628]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22450 in k22447 in k22444 in k22438 in k22434 in k22431 in k22428 in k22425 in k22422 in k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in ... */ static void C_ccall f_22452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22452,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22455,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2747: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k22453 in k22450 in k22447 in k22444 in k22438 in k22434 in k22431 in k22428 in k22425 in k22422 in k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in ... */ static void C_ccall f_22455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22455,2,av);} /* scrutinizer.scm:2746: p */ t2=((C_word*)t0)[2]; f_22352(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k22461 in k22419 in k22413 in chicken.compiler.scrutinizer#r-assignment-value-count-invalid in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22463,2,av);} /* scrutinizer.scm:2746: ##sys#print */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k22472 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,14)))){ C_save_and_reclaim((void *)f_22474,2,av);} a=C_alloc(12); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_a_i_list1(&a,1,((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22485,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2755: scheme#string-append */ t6=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 15) { av2=av; } else { av2=C_alloc(15); } av2[0]=t6; av2[1]=t5; av2[2]=lf[129]; av2[3]=lf[130]; av2[4]=lf[131]; av2[5]=lf[132]; av2[6]=lf[133]; av2[7]=lf[134]; av2[8]=lf[135]; av2[9]=lf[136]; av2[10]=lf[137]; av2[11]=lf[138]; av2[12]=lf[139]; av2[13]=lf[140]; av2[14]=lf[141]; ((C_proc)(void*)(*((C_word*)t6+1)))(15,av2);}} /* k22483 in k22472 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22485,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22489,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2769: pp-fragment */ f_21197(t3,((C_word*)t0)[8]);} /* k22487 in k22483 in k22472 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22489,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22493,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2770: variable-from-module */ f_21472(t3,((C_word*)((C_word*)t0)[8])[1]);} /* k22491 in k22487 in k22483 in k22472 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in ... */ static void C_ccall f_22493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22493,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22497,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2771: type->pp-string */ f_20626(t3,((C_word*)t0)[8]);} /* k22495 in k22491 in k22487 in k22483 in k22472 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in ... */ static void C_ccall f_22497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22497,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2772: type->pp-string */ f_20626(t3,((C_word*)t0)[8]);} /* k22499 in k22495 in k22491 in k22487 in k22483 in k22472 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in ... */ static void C_ccall f_22501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,8)))){ C_save_and_reclaim((void *)f_22501,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=lf[71]; av2[3]=lf[128]; av2[4]=*((C_word*)lf[73]+1); av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=t2; C_apply(9,av2);}} /* k22506 in k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,14)))){ C_save_and_reclaim((void *)f_22508,2,av);} a=C_alloc(12); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_a_i_list1(&a,1,((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22519,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2780: scheme#string-append */ t6=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 15) { av2=av; } else { av2=C_alloc(15); } av2[0]=t6; av2[1]=t5; av2[2]=lf[145]; av2[3]=lf[146]; av2[4]=lf[147]; av2[5]=lf[148]; av2[6]=lf[149]; av2[7]=lf[150]; av2[8]=lf[151]; av2[9]=lf[152]; av2[10]=lf[153]; av2[11]=lf[154]; av2[12]=lf[155]; av2[13]=lf[156]; av2[14]=lf[157]; ((C_proc)(void*)(*((C_word*)t6+1)))(15,av2);}} /* k22517 in k22506 in k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in ... */ static void C_ccall f_22519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22519,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22523,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2794: pp-fragment */ f_21197(t3,((C_word*)t0)[8]);} /* k22521 in k22517 in k22506 in k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in ... */ static void C_ccall f_22523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22523,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22527,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2795: variable-from-module */ f_21472(t3,((C_word*)((C_word*)t0)[8])[1]);} /* k22525 in k22521 in k22517 in k22506 in k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in ... */ static void C_ccall f_22527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22527,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22531,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2796: type->pp-string */ f_20626(t3,((C_word*)t0)[8]);} /* k22529 in k22525 in k22521 in k22517 in k22506 in k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in ... */ static void C_ccall f_22531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22531,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22535,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2797: type->pp-string */ f_20626(t3,((C_word*)t0)[8]);} /* k22533 in k22529 in k22525 in k22521 in k22517 in k22506 in k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in ... */ static void C_ccall f_22535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,8)))){ C_save_and_reclaim((void *)f_22535,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=lf[71]; av2[3]=lf[144]; av2[4]=*((C_word*)lf[73]+1); av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=t2; C_apply(9,av2);}} /* k22547 in k8598 in always-true in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22549,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22553,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2812: pp-fragment */ f_21197(t3,((C_word*)t0)[6]);} /* k22551 in k22547 in k8598 in always-true in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22553,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22557,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2813: type->pp-string */ f_20626(t3,((C_word*)t0)[6]);} /* k22555 in k22551 in k22547 in k8598 in always-true in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,8)))){ C_save_and_reclaim((void *)f_22557,2,av);} a=C_alloc(6); t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=lf[71]; av2[3]=lf[72]; av2[4]=*((C_word*)lf[73]+1); av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; av2[8]=t2; C_apply(9,av2);}} /* k22569 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_22571,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22575,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2826: pp-fragment */ f_21197(t3,((C_word*)t0)[5]);} /* k22573 in k22569 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_22575,2,av);} a=C_alloc(3); t2=C_a_i_list(&a,1,t1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[71]; av2[3]=lf[213]; av2[4]=*((C_word*)lf[73]+1); av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; av2[7]=((C_word*)t0)[5]; av2[8]=t2; C_apply(9,av2);}} /* k22587 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22589,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22593,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2843: pp-fragment */ f_21197(t3,((C_word*)t0)[6]);} /* k22591 in k22587 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22593,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22597,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2844: type->pp-string */ f_20626(t3,((C_word*)t0)[6]);} /* k22595 in k22591 in k22587 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_22597,2,av);} /* scrutinizer.scm:2830: report2 */ t2=lf[71];{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[280]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; av2[8]=t1; f_21662(9,av2);}} /* k22609 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_22611,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22615,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2862: pp-fragment */ f_21197(t3,((C_word*)t0)[7]);} /* k22613 in k22609 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_22615,2,av);} a=C_alloc(8); t2=t1; t3=C_i_length(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22623,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=t4,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2864: type->pp-string */ f_20626(t5,((C_word*)t0)[7]);} /* k22621 in k22613 in k22609 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_22623,2,av);} /* scrutinizer.scm:2847: report2 */ t2=lf[71];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[303]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; av2[8]=((C_word*)t0)[7]; av2[9]=t1; f_21662(10,av2);}} /* k22635 in k11269 in k11266 in k11260 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_22637,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2886: pp-fragment */ f_21197(t3,((C_word*)t0)[7]);} /* k22639 in k22635 in k11269 in k11266 in k11260 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_22641,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22645,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2887: type->pp-string */ f_20626(t3,((C_word*)t0)[7]);} /* k22643 in k22639 in k22635 in k11269 in k11266 in k11260 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_22645,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22649,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2888: type->pp-string */ f_20626(t3,((C_word*)t0)[7]);} /* k22647 in k22643 in k22639 in k22635 in k11269 in k11266 in k11260 in k11235 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_22649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_22649,2,av);} /* scrutinizer.scm:2867: report2 */ t2=lf[71];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[288]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; av2[8]=((C_word*)t0)[7]; av2[9]=t1; f_21662(10,av2);}} /* pp-type in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_22654,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22662,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2891: type->pp-string */ f_20626(t3,t2);} /* k22660 in pp-type in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_22662,2,av);} a=C_alloc(3); /* scrutinizer.scm:2891: string-add-indent */ f_20535(((C_word*)t0)[2],t1,C_a_i_list(&a,1,lf[315]));} /* k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_22669,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22673,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22738,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2911: node-source-prefix */ f_21221(t4,((C_word*)t0)[6]);} /* k22671 in k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_22673,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22677,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2914: location-name */ f_21251(t3,((C_word*)t0)[8],C_SCHEME_END_OF_LIST);} /* k22675 in k22671 in k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22677,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22681,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2915: pp-fragment */ f_21197(t3,((C_word*)t0)[8]);} /* k22679 in k22675 in k22671 in k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_22681,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22685,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f25952,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2891: type->pp-string */ f_20626(t5,((C_word*)t0)[8]);} /* k22683 in k22679 in k22675 in k22671 in k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_22685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_22685,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22689,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[7]; t9=C_i_check_list_2(((C_word*)t0)[8],lf[6]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22699,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22701,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_22701(t14,t10,((C_word*)t0)[8]);} /* k22687 in k22683 in k22679 in k22675 in k22671 in k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_22689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_22689,2,av);} /* scrutinizer.scm:2892: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k22697 in k22683 in k22679 in k22675 in k22671 in k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_22699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22699,2,av);} /* scrutinizer.scm:2917: chicken.string#string-intersperse */ t2=*((C_word*)lf[317]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[318]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop5602 in k22683 in k22679 in k22675 in k22671 in k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_fcall f_22701(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_22701,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22726,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2917: g5608 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k22724 in map-loop5602 in k22683 in k22679 in k22675 in k22671 in k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_22726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_22726,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_22701(t6,((C_word*)t0)[5],t5);} /* k22736 in k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_22738,2,av);} a=C_alloc(3); if(C_truep(C_u_i_string_equal_p(lf[320],t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[321]; f_22673(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22745,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2913: node-source-prefix */ f_21221(t2,((C_word*)t0)[3]);}} /* k22743 in k22736 in k22667 in loop in k11326 in k11323 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22745,2,av);} /* scrutinizer.scm:2913: chicken.string#conc */ t2=*((C_word*)lf[322]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[323]; av2[3]=t1; av2[4]=lf[324]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k22757 in k9681 in k9675 in k9669 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_22759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22759,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22763,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2939: pp-fragment */ f_21197(t3,((C_word*)t0)[9]);} /* k22761 in k22757 in k9681 in k9675 in k9669 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_22763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_22763,2,av);} a=C_alloc(11); t2=t1; t3=C_i_length(((C_word*)t0)[2]); t4=t3; t5=C_u_i_length(((C_word*)t0)[2]); t6=C_i_nequalp(t5,C_fix(1)); t7=(C_truep(t6)?lf[171]:lf[172]); t8=t7; t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22775,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t2,a[8]=t4,a[9]=t8,a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:2941: pp-fragment */ f_21197(t9,((C_word*)t0)[9]);} /* k22773 in k22761 in k22757 in k9681 in k9675 in k9669 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_22775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_22775,2,av);} a=C_alloc(12); t2=t1; t3=C_i_length(((C_word*)t0)[2]); t4=t3; t5=C_u_i_length(((C_word*)t0)[2]); t6=C_i_nequalp(t5,C_fix(1)); t7=(C_truep(t6)?lf[171]:lf[172]); t8=t7; t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_22787,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t2,a[10]=t4,a[11]=t8,tmp=(C_word)a,a+=12,tmp); /* scrutinizer.scm:2943: pp-fragment */ f_21197(t9,((C_word*)t0)[10]);} /* k22785 in k22773 in k22761 in k22757 in k9681 in k9675 in k9669 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,13)))){ C_save_and_reclaim((void *)f_22787,2,av);} /* scrutinizer.scm:2920: report2 */ t2=lf[71];{ C_word *av2; if(c >= 14) { av2=av; } else { av2=C_alloc(14); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[198]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; av2[8]=((C_word*)t0)[7]; av2[9]=((C_word*)t0)[8]; av2[10]=((C_word*)t0)[9]; av2[11]=((C_word*)t0)[10]; av2[12]=((C_word*)t0)[11]; av2[13]=t1; f_21662(14,av2);}} /* k22803 in k10559 in k10556 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22805,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22809,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2965: pp-fragment */ f_21197(t3,((C_word*)t0)[8]);} /* k22807 in k22803 in k10559 in k10556 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22809,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2966: strip-namespace */ f_19437(t3,((C_word*)t0)[7]);} /* k22811 in k22807 in k22803 in k10559 in k10556 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_22813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22813,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22817,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2967: type->pp-string */ f_20626(t3,((C_word*)t0)[9]);} /* k22815 in k22811 in k22807 in k22803 in k10559 in k10556 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_22817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_22817,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22821,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22829,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2969: chicken.compiler.support#real-name */ t5=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k22819 in k22815 in k22811 in k22807 in k22803 in k10559 in k10556 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_22821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_22821,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22825,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2971: type->pp-string */ f_20626(t3,((C_word*)t0)[9]);} /* k22823 in k22819 in k22815 in k22811 in k22807 in k22803 in k10559 in k10556 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_22825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,11)))){ C_save_and_reclaim((void *)f_22825,2,av);} /* scrutinizer.scm:2946: report2 */ t2=lf[71];{ C_word *av2; if(c >= 12) { av2=av; } else { av2=C_alloc(12); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[253]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; av2[8]=((C_word*)t0)[7]; av2[9]=((C_word*)t0)[8]; av2[10]=((C_word*)t0)[9]; av2[11]=t1; f_21662(12,av2);}} /* k22827 in k22815 in k22811 in k22807 in k22803 in k10559 in k10556 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_22829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_22829,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22832,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_symbolp(t1))){ /* scrutinizer.scm:2968: variable-from-module */ f_21472(((C_word*)t0)[2],t1);} else{ /* scrutinizer.scm:2970: scheme#string->symbol */ t3=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k22830 in k22827 in k22815 in k22811 in k22807 in k22803 in k10559 in k10556 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_22832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22832,2,av);} /* scrutinizer.scm:2968: variable-from-module */ f_21472(((C_word*)t0)[2],t1);} /* chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_22840(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_22840,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=C_i_nullp(t5); t7=(C_truep(t6)?C_SCHEME_FALSE:C_i_car(t5)); t8=t7; t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22851,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t8,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2975: chicken.base#open-output-string */ t10=*((C_word*)lf[244]+1);{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_22851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_22851,2,av);} a=C_alloc(9); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2975: ##sys#print */ t6=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[641]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_22857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_22857,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22918,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2975: strip-namespace */ f_19437(t3,((C_word*)t0)[6]);} /* k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_22860,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22863,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2975: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_22863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22863,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22866,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2975: chicken.base#get-output-string */ t3=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in ... */ static void C_ccall f_22866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,7)))){ C_save_and_reclaim((void *)f_22866,2,av);} a=C_alloc(12); t2=t1; t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22874,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2979: scheme#string-append */ t6=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t6; av2[1]=t5; av2[2]=lf[635]; av2[3]=lf[636]; av2[4]=lf[637]; av2[5]=lf[638]; av2[6]=lf[639]; av2[7]=lf[640]; ((C_proc)(void*)(*((C_word*)t6+1)))(8,av2);}} /* k22872 in k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in ... */ static void C_ccall f_22874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22874,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22878,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2986: pp-fragment */ f_21197(t3,((C_word*)t0)[8]);} /* k22876 in k22872 in k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in ... */ static void C_ccall f_22878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22878,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22882,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2987: variable-from-module */ f_21472(t3,((C_word*)t0)[8]);} /* k22880 in k22876 in k22872 in k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in ... */ static void C_ccall f_22882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_22882,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22886,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[8])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22889,a[2]=t3,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2989: chicken.base#open-output-string */ t5=*((C_word*)lf[244]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=lf[634]; f_22886(2,av2);}}} /* k22884 in k22880 in k22876 in k22872 in k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in ... */ static void C_ccall f_22886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_22886,2,av);} /* scrutinizer.scm:2974: report2 */ t2=lf[71];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[90]+1); av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; av2[8]=((C_word*)t0)[8]; av2[9]=t1; f_21662(10,av2);}} /* k22887 in k22880 in k22876 in k22872 in k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in ... */ static void C_ccall f_22889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_22889,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[237]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22895,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2989: ##sys#write-char-0 */ t6=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(10); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k22893 in k22887 in k22880 in k22876 in k22872 in k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in ... */ static void C_ccall f_22895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_22895,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22898,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2989: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k22896 in k22893 in k22887 in k22880 in k22876 in k22872 in k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in ... */ static void C_ccall f_22898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22898,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2989: ##sys#print */ t3=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[633]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k22899 in k22896 in k22893 in k22887 in k22880 in k22876 in k22872 in k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in ... */ static void C_ccall f_22901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22901,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22904,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22914,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2990: variable-from-module */ f_21472(t3,((C_word*)t0)[5]);} /* k22902 in k22899 in k22896 in k22893 in k22887 in k22880 in k22876 in k22872 in k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in ... */ static void C_ccall f_22904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_22904,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22907,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2989: ##sys#write-char-0 */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(46); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k22905 in k22902 in k22899 in k22896 in k22893 in k22887 in k22880 in k22876 in k22872 in k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in ... */ static void C_ccall f_22907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22907,2,av);} /* scrutinizer.scm:2989: chicken.base#get-output-string */ t2=*((C_word*)lf[240]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k22912 in k22899 in k22896 in k22893 in k22887 in k22880 in k22876 in k22872 in k22864 in k22861 in k22858 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in ... */ static void C_ccall f_22914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22914,2,av);} /* scrutinizer.scm:2989: ##sys#print */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k22916 in k22855 in k22849 in chicken.compiler.scrutinizer#r-deprecated-identifier in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_22918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22918,2,av);} /* scrutinizer.scm:2975: ##sys#print */ t2=*((C_word*)lf[242]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a22929 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22930,6,av);} a=C_alloc(5); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22934,a[2]=t1,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2212: chicken.compiler.support#node-subexpressions */ t7=*((C_word*)lf[86]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k22932 in a22929 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22934,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_i_length(t1); t3=C_eqp(t2,C_fix(2)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22949,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[4]; t6=C_i_cadr(t5); t7=t4; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26831,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:166: chicken.compiler.support#node-parameters */ t9=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t4=((C_word*)t0)[3]; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k22947 in k22932 in a22929 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_22949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22949,2,av);} a=C_alloc(4); if(C_truep(t1)){ if(C_truep(C_i_pairp(t1))){ t2=C_i_car(t1); t3=C_eqp(t2,lf[47]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22975,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=C_u_i_cdr(t1); /* scrutinizer.scm:2217: scheme#reverse */ t6=*((C_word*)lf[369]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=((C_word*)t0)[3]; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k22973 in k22947 in k22932 in a22929 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_22975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_22975,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[47],t1); t3=C_a_i_list(&a,1,t2); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[3]; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a22991 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_22992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_22992,6,av);} a=C_alloc(16); t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=lf[25]; t11=C_i_cdr(t3); t12=C_i_check_list_2(t11,lf[6]); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23013,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23015,a[2]=t8,a[3]=t15,a[4]=t10,a[5]=t9,tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_23015(t17,t13,t11);} /* k23011 in a22991 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_23013,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[50],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop4565 in a22991 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_23015(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_23015,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23040,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2208: g4571 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k23038 in map-loop4565 in a22991 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_23040,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_23015(t6,((C_word*)t0)[5],t5);} /* a23048 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_23049,6,av);} a=C_alloc(16); t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=lf[25]; t11=C_i_cdr(t3); t12=C_i_check_list_2(t11,lf[6]); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23070,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23072,a[2]=t8,a[3]=t15,a[4]=t10,a[5]=t9,tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_23072(t17,t13,t11);} /* k23068 in a23048 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_23070,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[50],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop4531 in a23048 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_23072(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_23072,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23097,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2204: g4537 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k23095 in map-loop4531 in a23048 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_23097,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_23072(t6,((C_word*)t0)[5],t5);} /* a23105 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_23106,6,av);} a=C_alloc(16); t6=C_i_cdr(t3); if(C_truep(C_i_nullp(t6))){ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=lf[646]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=lf[25]; t12=t3; t13=C_u_i_cdr(t12); t14=C_i_check_list_2(t13,lf[6]); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23131,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23133,a[2]=t9,a[3]=t17,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t19=((C_word*)t17)[1]; f_23133(t19,t15,t13);}} /* k23129 in a23105 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_23131,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[47],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop4497 in a23105 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_23133(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_23133,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23158,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2200: g4503 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k23156 in map-loop4497 in a23105 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_23158,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_23133(t6,((C_word*)t0)[5],t5);} /* a23170 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_23171,6,av);} a=C_alloc(16); t6=C_i_cdr(t3); if(C_truep(C_i_nullp(t6))){ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=lf[648]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=lf[25]; t12=t3; t13=C_u_i_cdr(t12); t14=C_i_check_list_2(t13,lf[6]); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23196,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23198,a[2]=t9,a[3]=t17,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t19=((C_word*)t17)[1]; f_23198(t19,t15,t13);}} /* k23194 in a23170 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_23196,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[47],t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop4463 in a23170 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_23198(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_23198,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23223,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:2194: g4469 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k23221 in map-loop4463 in a23170 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_23223,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_23198(t6,((C_word*)t0)[5],t5);} /* k23236 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_23238,2,av);} /* scrutinizer.scm:2186: ##sys#put! */ t2=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[650]; av2[3]=lf[276]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a23239 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_23240,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list1(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k23246 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_23248,2,av);} /* scrutinizer.scm:2180: ##sys#put! */ t2=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[651]; av2[3]=lf[276]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a23249 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_23250,4,av);} a=C_alloc(3); if(C_truep(C_i_pairp(t3))){ t4=C_i_cadr(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list1(&a,1,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a23265 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_23266,6,av);} a=C_alloc(6); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23270,a[2]=t1,a[3]=t5,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2103: known-length-vector-index */ f_19487(t6,t2,t3,t4,C_fix(3));} /* k23268 in a23265 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_23270,2,av);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2104: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k23277 in k23268 in a23265 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_23279,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=C_i_cadr(t1); t3=t2; if(C_truep(t3)){ t4=C_i_cadddr(t1); t5=t4; if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23297,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=t5,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t7=((C_word*)t0)[6]; t8=C_i_cadddr(t7); t9=t6; t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26845,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:166: chicken.compiler.support#node-parameters */ t11=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t6=((C_word*)t0)[3]; t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t4=((C_word*)t0)[3]; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k23295 in k23277 in k23268 in a23265 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_23297,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23317,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:2108: type-always-immediate? */ t3=lf[27];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; f_8071(3,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k23304 in k23315 in k23295 in k23277 in k23268 in a23265 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23306,2,av);} t2=lf[654]; if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k23315 in k23295 in k23277 in k23268 in a23265 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_23317,2,av);} a=C_alloc(22); t2=(C_truep(t1)?lf[652]:lf[653]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23306,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_list(&a,2,lf[123],((C_word*)t0)[4]); t5=C_a_i_list(&a,4,t2,((C_word*)t0)[5],t4,((C_word*)t0)[6]); /* scrutinizer.scm:2111: mutate-node! */ f_17310(t3,((C_word*)t0)[7],t5);} /* a23322 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_23323,6,av);} a=C_alloc(4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23327,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2057: chicken.compiler.support#node-subexpressions */ t7=*((C_word*)lf[86]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k23325 in a23322 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_23327,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=C_i_length(t1); if(C_truep(C_fixnum_greater_or_equal_p(t2,C_fix(2)))){ t3=C_i_cadr(t1); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23388,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:2060: chicken.compiler.support#node-class */ t6=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=((C_word*)t0)[3]; t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k23378 in k23382 in k23386 in k23325 in a23322 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_23380,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,2,lf[52],t1); t3=C_a_i_list(&a,1,t2); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[3]; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k23382 in k23386 in k23325 in a23322 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_23384,2,av);} a=C_alloc(4); t2=C_i_car(t1); if(C_truep(t2)){ if(C_truep(C_i_symbolp(t2))){ t3=C_eqp(lf[658],t2); if(C_truep(t3)){ t4=lf[659]; if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=((C_word*)t0)[3]; t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23380,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2067: strip-namespace */ f_19437(t4,t2);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k23386 in k23325 in a23322 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_23388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_23388,2,av);} a=C_alloc(4); t2=C_eqp(lf[123],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23384,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:2061: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6710 */ static void C_ccall f_6712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6712,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6715,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k6713 in k6710 */ static void C_ccall f_6715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6715,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6718,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k6716 in k6713 in k6710 */ static void C_ccall f_6718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6718,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6721,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6721,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6724,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6724,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6727,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6727,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6730,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_port_toplevel(2,av2);}} /* k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6730,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6733,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_support_toplevel(2,av2);}} /* k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6733,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6736,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(111,c,8)))){ C_save_and_reclaim((void *)f_6736,2,av);} a=C_alloc(111); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate(&lf[2] /* (set! chicken.compiler.scrutinizer#take ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6846,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[3] /* (set! chicken.compiler.scrutinizer#append-map ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6937,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[9] /* (set! chicken.compiler.scrutinizer#every ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7107,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[7] /* (set! chicken.compiler.scrutinizer#any ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7141,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate(&lf[10] /* (set! chicken.compiler.scrutinizer#delete-duplicates ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7302,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate(&lf[11] /* (set! chicken.compiler.scrutinizer#filter-map ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7391,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate(&lf[12] /* (set! chicken.compiler.scrutinizer#unzip1 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7456,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate(&lf[13] /* (set! chicken.compiler.scrutinizer#list-tabulate ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7749,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate(&lf[14] /* (set! chicken.compiler.scrutinizer#lset=/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7791,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate(&lf[15] /* (set! chicken.compiler.scrutinizer#make-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7932,tmp=(C_word)a,a+=2,tmp)); t14=lf[16] /* chicken.compiler.scrutinizer#d-depth */ =C_fix(0);; t15=lf[17] /* chicken.compiler.scrutinizer#scrutiny-debug */ =C_SCHEME_TRUE;; t16=lf[18] /* chicken.compiler.scrutinizer#*complain?* */ =C_SCHEME_FALSE;; t17=C_mutate(&lf[19] /* (set! chicken.compiler.scrutinizer#constant709 ...) */,lf[20]); t18=C_mutate(&lf[21] /* (set! chicken.compiler.scrutinizer#constant716 ...) */,lf[22]); t19=lf[23] /* chicken.compiler.scrutinizer#specialization-statistics */ =C_SCHEME_END_OF_LIST;; t20=lf[24] /* chicken.compiler.scrutinizer#trail */ =C_SCHEME_END_OF_LIST;; t21=C_mutate(&lf[25] /* (set! chicken.compiler.scrutinizer#walked-result ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8061,tmp=(C_word)a,a+=2,tmp)); t22=C_mutate(&lf[27] /* (set! chicken.compiler.scrutinizer#type-always-immediate? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8071,tmp=(C_word)a,a+=2,tmp)); t23=C_mutate((C_word*)lf[36]+1 /* (set! chicken.compiler.scrutinizer#scrutinize ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8114,tmp=(C_word)a,a+=2,tmp)); t24=C_mutate(&lf[245] /* (set! chicken.compiler.scrutinizer#smash-component-types! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11623,tmp=(C_word)a,a+=2,tmp)); t25=C_mutate((C_word*)lf[170]+1 /* (set! chicken.compiler.scrutinizer#match-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11815,tmp=(C_word)a,a+=2,tmp)); t26=C_mutate(&lf[159] /* (set! chicken.compiler.scrutinizer#match-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13403,tmp=(C_word)a,a+=2,tmp)); t27=C_mutate(&lf[49] /* (set! chicken.compiler.scrutinizer#simplify-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13475,tmp=(C_word)a,a+=2,tmp)); t28=C_mutate(&lf[382] /* (set! chicken.compiler.scrutinizer#merge-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14444,tmp=(C_word)a,a+=2,tmp)); t29=C_mutate(&lf[302] /* (set! chicken.compiler.scrutinizer#compatible-types? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14682,tmp=(C_word)a,a+=2,tmp)); t30=C_mutate((C_word*)lf[384]+1 /* (set! chicken.compiler.scrutinizer#type<=? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14741,tmp=(C_word)a,a+=2,tmp)); t31=C_mutate((C_word*)lf[275]+1 /* (set! chicken.compiler.scrutinizer#refine-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14769,tmp=(C_word)a,a+=2,tmp)); t32=C_mutate(&lf[121] /* (set! chicken.compiler.scrutinizer#procedure-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15091,tmp=(C_word)a,a+=2,tmp)); t33=C_mutate(&lf[166] /* (set! chicken.compiler.scrutinizer#procedure-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15143,tmp=(C_word)a,a+=2,tmp)); t34=C_mutate(&lf[373] /* (set! chicken.compiler.scrutinizer#procedure-arguments ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15194,tmp=(C_word)a,a+=2,tmp)); t35=C_mutate(&lf[372] /* (set! chicken.compiler.scrutinizer#procedure-results ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15251,tmp=(C_word)a,a+=2,tmp)); t36=C_mutate(&lf[119] /* (set! chicken.compiler.scrutinizer#procedure-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15308,tmp=(C_word)a,a+=2,tmp)); t37=C_mutate(&lf[390] /* (set! chicken.compiler.scrutinizer#named? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15659,tmp=(C_word)a,a+=2,tmp)); t38=C_mutate(&lf[368] /* (set! chicken.compiler.scrutinizer#rest-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15712,tmp=(C_word)a,a+=2,tmp)); t39=C_mutate(&lf[168] /* (set! chicken.compiler.scrutinizer#noreturn-procedure-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15732,tmp=(C_word)a,a+=2,tmp)); t40=C_mutate(&lf[404] /* (set! chicken.compiler.scrutinizer#noreturn-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15791,tmp=(C_word)a,a+=2,tmp)); t41=C_mutate(&lf[388] /* (set! chicken.compiler.scrutinizer#refinement-type? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15835,tmp=(C_word)a,a+=2,tmp)); t42=C_mutate(&lf[161] /* (set! chicken.compiler.scrutinizer#type-typeenv ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15882,tmp=(C_word)a,a+=2,tmp)); t43=C_mutate(&lf[158] /* (set! chicken.compiler.scrutinizer#trail-restore ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16214,tmp=(C_word)a,a+=2,tmp)); t44=C_mutate(&lf[118] /* (set! chicken.compiler.scrutinizer#resolve ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16257,tmp=(C_word)a,a+=2,tmp)); t45=C_mutate((C_word*)lf[408]+1 /* (set! chicken.compiler.scrutinizer#load-type-database ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16722,tmp=(C_word)a,a+=2,tmp)); t46=C_mutate((C_word*)lf[434]+1 /* (set! chicken.compiler.scrutinizer#emit-types-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17139,tmp=(C_word)a,a+=2,tmp)); t47=lf[449] /* chicken.compiler.scrutinizer#node-mutations */ =C_SCHEME_END_OF_LIST;; t48=C_mutate(&lf[160] /* (set! chicken.compiler.scrutinizer#mutate-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17310,tmp=(C_word)a,a+=2,tmp)); t49=C_mutate(&lf[453] /* (set! chicken.compiler.scrutinizer#source-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17328,tmp=(C_word)a,a+=2,tmp)); t50=C_mutate(&lf[455] /* (set! chicken.compiler.scrutinizer#source-node-tree ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17355,tmp=(C_word)a,a+=2,tmp)); t51=C_mutate(&lf[125] /* (set! chicken.compiler.scrutinizer#specialize-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17490,tmp=(C_word)a,a+=2,tmp)); t52=C_mutate((C_word*)lf[409]+1 /* (set! chicken.compiler.scrutinizer#validate-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17643,tmp=(C_word)a,a+=2,tmp)); t53=C_mutate((C_word*)lf[481]+1 /* (set! chicken.compiler.scrutinizer#check-and-validate-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19010,tmp=(C_word)a,a+=2,tmp)); t54=C_mutate((C_word*)lf[410]+1 /* (set! chicken.compiler.scrutinizer#install-specializations ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19044,tmp=(C_word)a,a+=2,tmp)); t55=C_mutate(&lf[389] /* (set! chicken.compiler.scrutinizer#canonicalize-list-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19323,tmp=(C_word)a,a+=2,tmp)); t56=C_mutate(&lf[176] /* (set! chicken.compiler.scrutinizer#strip-namespace ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19437,tmp=(C_word)a,a+=2,tmp)); t57=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19485,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t58=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23323,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:2055: ##sys#put! */ t59=*((C_word*)lf[642]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t59; av2[1]=t57; av2[2]=lf[660]; av2[3]=lf[276]; av2[4]=t58; ((C_proc)(void*)(*((C_word*)t59+1)))(5,av2);}} /* loop in a11966 in match-rest in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_6802(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6802,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6816,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:49: scheme#reverse */ t5=*((C_word*)lf[369]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6822,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t2); /* mini-srfi-1.scm:50: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k6814 in loop in a11966 in match-rest in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6816,2,av);} /* mini-srfi-1.scm:49: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}} /* k6820 in loop in a11966 in match-rest in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6822,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]); /* mini-srfi-1.scm:50: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_6802(t7,((C_word*)t0)[5],t3,t6);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6840,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:51: scheme#reverse */ t3=*((C_word*)lf[369]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k6838 in k6820 in loop in a11966 in match-rest in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6840,2,av);} /* mini-srfi-1.scm:51: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}} /* chicken.compiler.scrutinizer#take in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_6846(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_6846,3,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6864,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); t9=C_fixnum_difference(t3,C_fix(1)); /* mini-srfi-1.scm:56: take */ t11=t6; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}} /* k6862 in chicken.compiler.scrutinizer#take in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6864,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in a19699 in k19909 in k19913 in k19851 in k19836 */ static void C_fcall f_6904(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_6904,5,t0,t1,t2,t3,t4);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6918,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:67: scheme#reverse */ t6=*((C_word*)lf[369]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_fixnum_difference(t2,C_fix(1)); t6=C_i_car(t4); t7=C_a_i_cons(&a,2,t6,t3); t8=t4; t9=C_u_i_cdr(t8); /* mini-srfi-1.scm:68: loop */ t11=t1; t12=t5; t13=t7; t14=t9; t1=t11; t2=t12; t3=t13; t4=t14; goto loop;}} /* k6916 in loop in a19699 in k19909 in k19913 in k19851 in k19836 */ static void C_ccall f_6918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6918,2,av);} /* mini-srfi-1.scm:67: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}} /* chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_6937(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_6937,4,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_i_nullp(t4))){ t5=t3; t6=C_i_check_list_2(t5,lf[4]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6952,a[2]=t2,a[3]=t8,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_6952(t10,t1,t5);} else{ t5=C_a_i_cons(&a,2,t3,t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6992,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_6992(t9,t1,t5);}} /* foldr170 in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_6952(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_6952,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6960,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6979,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g175 in foldr170 in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_6960(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_6960,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6968,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:72: proc */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6966 in g175 in foldr170 in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6968,2,av);} /* mini-srfi-1.scm:72: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6977 in foldr170 in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6979,2,av);} /* mini-srfi-1.scm:72: g175 */ t2=((C_word*)t0)[2]; f_6960(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_6992(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_6992,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6999,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* mini-srfi-1.scm:74: any */ f_7141(t3,*((C_word*)lf[8]+1),t2);} /* k6997 in loop in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_6999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_6999,2,av);} a=C_alloc(21); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7006,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[3]; t8=C_i_check_list_2(t7,lf[6]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7071,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7073,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_7073(t13,t9,t7);}} /* k7004 in k6997 in loop in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_7006,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7010,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[3]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7022,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7024,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_7024(t13,t9,t8);} /* k7008 in k7004 in k6997 in loop in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7010,2,av);} /* mini-srfi-1.scm:76: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7020 in k7004 in k6997 in loop in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7022,2,av);} /* mini-srfi-1.scm:77: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6992(t2,((C_word*)t0)[3],t1);} /* map-loop212 in k7004 in k6997 in loop in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7024(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_7024,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7069 in k6997 in loop in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7071,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* map-loop185 in k6997 in loop in chicken.compiler.scrutinizer#append-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7073(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_7073,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.scrutinizer#every in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7107(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7107,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7113,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7113(t7,t1,t3);} /* loop in chicken.compiler.scrutinizer#every in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7113(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7113,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7135,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); /* mini-srfi-1.scm:82: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k7133 in loop in chicken.compiler.scrutinizer#every in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7135,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:83: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_7113(t4,((C_word*)t0)[2],t3);}} /* chicken.compiler.scrutinizer#any in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7141(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7141,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7147,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7147(t7,t1,t3);} /* loop in chicken.compiler.scrutinizer#any in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7147(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7147,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7157,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:88: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k7155 in loop in chicken.compiler.scrutinizer#any in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7157,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:89: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_7147(t4,((C_word*)t0)[2],t3);}} /* loop in k17200 in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_fcall f_7177(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_7177,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7191,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t3); t6=t3; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:95: loop */ t9=t4; t10=t5; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* k7189 in loop in k17200 in k17186 in k17183 in k17180 in k17177 in k17174 in k17171 in k17165 in k17162 in a17156 in k17147 in a17144 in chicken.compiler.scrutinizer#emit-types-file in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_7191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7191,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k20363 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in k6725 in ... */ static void C_fcall f_7205(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7205,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7223,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:101: loop */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}} /* k7221 in loop in k20363 in collect in chicken.compiler.scrutinizer#over-all-instantiations in k20206 in k20111 in k20108 in k19943 in k19940 in k19937 in k19934 in k19931 in k19928 in k19925 in k19645 in k19642 in k19639 in k19483 in k6734 in k6731 in k6728 in ... */ static void C_ccall f_7223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7223,2,av);} /* mini-srfi-1.scm:101: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in loop in chicken.compiler.scrutinizer#delete-duplicates in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7233(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7233,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7246,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:106: test */ t5=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k7244 in loop in loop in chicken.compiler.scrutinizer#delete-duplicates in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7246,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:107: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7233(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7260,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:109: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_7233(t7,t4,t6);}} /* k7258 in k7244 in loop in loop in chicken.compiler.scrutinizer#delete-duplicates in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7260,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.scrutinizer#delete-duplicates in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7302(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7302,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7308,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7308(t7,t1,t2);} /* loop in chicken.compiler.scrutinizer#delete-duplicates in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7308(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){ C_save_and_reclaim_args((void *)trf_7308,3,t0,t1,t2);} a=C_alloc(17); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7322,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7335,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=t4; t10=((C_word*)t0)[3]; t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7233,a[2]=t12,a[3]=t10,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_7233(t14,t8,t6);}} /* k7320 in loop in chicken.compiler.scrutinizer#delete-duplicates in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7322,2,av);} a=C_alloc(3); t2=C_i_equalp(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?((C_word*)t0)[4]:C_a_i_cons(&a,2,((C_word*)t0)[5],t1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7333 in loop in chicken.compiler.scrutinizer#delete-duplicates in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7335,2,av);} /* mini-srfi-1.scm:123: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7308(t2,((C_word*)t0)[3],t1);} /* chicken.compiler.scrutinizer#filter-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7391(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7391,3,t1,t2,t3);} a=C_alloc(6); t4=C_i_check_list_2(t3,lf[4]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7400,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_7400(t8,t1,t3);} /* foldr335 in chicken.compiler.scrutinizer#filter-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7400(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_7400,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7408,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7434,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g340 in foldr335 in chicken.compiler.scrutinizer#filter-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7408(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7408,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7412,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:135: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7410 in g340 in foldr335 in chicken.compiler.scrutinizer#filter-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7412,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7416,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:135: g350 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* mini-srfi-1.scm:135: g350 */ f_7416(C_a_i(&a,3),t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g350 in k7410 in g340 in foldr335 in chicken.compiler.scrutinizer#filter-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static C_word C_fcall f_7416(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));} /* k7432 in foldr335 in chicken.compiler.scrutinizer#filter-map in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7434,2,av);} /* mini-srfi-1.scm:134: g340 */ t2=((C_word*)t0)[2]; f_7408(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* chicken.compiler.scrutinizer#unzip1 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_7456,3,av);} a=C_alloc(12); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(t2,lf[6]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7473,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_7473(t11,t1,t2);} /* map-loop363 in chicken.compiler.scrutinizer#unzip1 in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7473(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_7473,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in g2673 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7572(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_7572,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); if(C_truep(C_i_memq(t4,t3))){ t5=t2; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:160: loop */ t11=t1; t12=t6; t13=t3; t1=t11; t2=t12; t3=t13; goto loop;} else{ t5=t2; t6=C_u_i_cdr(t5); t7=t2; t8=C_u_i_car(t7); t9=C_a_i_cons(&a,2,t8,t3); /* mini-srfi-1.scm:161: loop */ t11=t1; t12=t6; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}}} /* foldl445 in k13952 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7658(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_7658,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7725,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(0)); t8=t3; t9=C_i_check_list_2(t7,lf[380]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7683,a[2]=t11,tmp=(C_word)a,a+=3,tmp)); t13=((C_word*)t11)[1]; f_7683(t13,t6,t7,t8);} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* foldl461 in foldl445 in k13952 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7683(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_7683,4,t0,t1,t2,t3);} a=C_alloc(13); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7718,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(0)); t8=t6; t9=t3; t10=t7; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7706,a[2]=t8,a[3]=t9,a[4]=t10,tmp=(C_word)a,a+=5,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7711,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:175: any */ f_7141(t11,t12,t9);} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k7704 in foldl461 in foldl445 in k13952 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7706,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7710 in foldl461 in foldl445 in k13952 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7711,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_eqp(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7716 in foldl461 in foldl445 in k13952 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7718,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_7683(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k7723 in foldl445 in k13952 in a13483 in simplify in chicken.compiler.scrutinizer#simplify-type in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7725,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_7658(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* chicken.compiler.scrutinizer#list-tabulate in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7749(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_7749,3,t1,t2,t3);} a=C_alloc(7); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7755,a[2]=t2,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_7755(t7,t1,C_fix(0));} /* loop in chicken.compiler.scrutinizer#list-tabulate in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7755(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7755,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7769,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:190: proc */ t4=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k7767 in loop in chicken.compiler.scrutinizer#list-tabulate in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7769,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7773,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* mini-srfi-1.scm:190: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_7755(t5,t3,t4);} /* k7771 in k7767 in loop in chicken.compiler.scrutinizer#list-tabulate in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7773,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7784 in k12784 in k12664 in k12571 in k12558 in k12539 in k12520 in k12479 in k12441 in k12424 in k12410 in match1 in k11817 in chicken.compiler.scrutinizer#match-types in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_7785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7785,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_memq(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.scrutinizer#lset=/eq? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7791(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_7791,3,t1,t2,t3);} a=C_alloc(3); t4=C_i_length(t2); t5=C_i_length(t3); t6=C_eqp(t4,t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7803,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:197: every */ f_7107(t1,t7,t2);} else{ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* a7802 in chicken.compiler.scrutinizer#lset=/eq? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7803,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_memq(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in blist-type in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7868(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7868,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7881,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:216: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k7879 in loop in blist-type in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7881,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:217: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_7868(t4,((C_word*)t0)[3],t3);}} /* a7928 in k10648 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7929,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.scrutinizer#make-list in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_7932(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_7932,3,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_nullp(t3))){ t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f25846,tmp=(C_word)a,a+=2,tmp); /* mini-srfi-1.scm:228: list-tabulate */ f_7749(t1,t2,t4);} else{ t4=C_i_car(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7941,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:228: list-tabulate */ f_7749(t1,t2,t6);}} /* a7940 in chicken.compiler.scrutinizer#make-list in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_7941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7941,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.scrutinizer#walked-result in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8061,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8069,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:166: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[26]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8067 in chicken.compiler.scrutinizer#walked-result in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8069,2,av);} t2=((C_word*)t0)[2]; t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.scrutinizer#type-always-immediate? in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ av[0]=t0; av[1]=t1; av[2]=t2; C_save_and_reclaim((void *)f_8071,3,av);} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[28]); if(C_truep(t5)){ t6=t2; t7=C_u_i_cdr(t6); /* scrutinizer.scm:171: every */ f_7107(t1,lf[27],t7);} else{ t6=C_eqp(t4,lf[29]); if(C_truep(t6)){ t7=t2; t8=C_i_caddr(t7); /* scrutinizer.scm:172: type-always-immediate? */ t10=t1; t11=t8; t1=t10; t2=t11; c=3; goto loop;} else{ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} else{ t3=t2; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep((C_truep(C_eqp(t3,lf[30]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[31]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[32]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[33]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[34]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[35]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(106,c,9)))){ C_save_and_reclaim((void *)f_8114,8,av);} a=C_alloc(106); t8=C_mutate(&lf[18] /* (set! chicken.compiler.scrutinizer#*complain?* ...) */,t4); t9=C_SCHEME_END_OF_LIST; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_END_OF_LIST; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_FALSE; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_fix(0); t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_fix(0); t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_SCHEME_FALSE; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_fix(0); t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_SCHEME_UNDEFINED; t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp); t25=C_SCHEME_UNDEFINED; t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); t27=C_SCHEME_UNDEFINED; t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp); t29=C_SCHEME_UNDEFINED; t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp); t31=C_SCHEME_UNDEFINED; t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp); t33=C_SCHEME_UNDEFINED; t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp); t35=C_SCHEME_UNDEFINED; t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp); t37=C_SCHEME_UNDEFINED; t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp); t39=C_SCHEME_UNDEFINED; t40=(*a=C_VECTOR_TYPE|1,a[1]=t39,tmp=(C_word)a,a+=2,tmp); t41=C_SCHEME_UNDEFINED; t42=(*a=C_VECTOR_TYPE|1,a[1]=t41,tmp=(C_word)a,a+=2,tmp); t43=C_SCHEME_UNDEFINED; t44=(*a=C_VECTOR_TYPE|1,a[1]=t43,tmp=(C_word)a,a+=2,tmp); t45=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8148,a[2]=t24,tmp=(C_word)a,a+=3,tmp)); t46=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8440,a[2]=t10,tmp=(C_word)a,a+=3,tmp)); t47=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8471,a[2]=t6,a[3]=t3,a[4]=t26,tmp=(C_word)a,a+=5,tmp)); t48=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8534,a[2]=t30,tmp=(C_word)a,a+=3,tmp)); t49=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8596,a[2]=t30,tmp=(C_word)a,a+=3,tmp)); t50=C_set_block_item(t34,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8632,tmp=(C_word)a,a+=2,tmp)); t51=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8698,a[2]=t22,a[3]=t5,a[4]=t14,tmp=(C_word)a,a+=5,tmp)); t52=C_fix(0); t53=(*a=C_VECTOR_TYPE|1,a[1]=t52,tmp=(C_word)a,a+=2,tmp); t54=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9332,a[2]=t53,tmp=(C_word)a,a+=3,tmp)); t55=C_set_block_item(t40,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9337,a[2]=t10,a[3]=t12,tmp=(C_word)a,a+=4,tmp)); t56=C_set_block_item(t42,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9370,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t57=C_set_block_item(t44,0,(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_9466,a[2]=t24,a[3]=t28,a[4]=t38,a[5]=t14,a[6]=t5,a[7]=t16,a[8]=t44,a[9]=t40,a[10]=t10,a[11]=t32,a[12]=t34,a[13]=t12,a[14]=t3,a[15]=t42,a[16]=t18,a[17]=t6,a[18]=t7,a[19]=t20,a[20]=t36,a[21]=t26,tmp=(C_word)a,a+=22,tmp)); t58=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11508,a[2]=t1,a[3]=t20,a[4]=t18,a[5]=t16,a[6]=t22,tmp=(C_word)a,a+=7,tmp); t59=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11621,a[2]=t38,a[3]=t44,a[4]=t58,tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:787: chicken.compiler.support#node-subexpressions */ t60=*((C_word*)lf[86]+1);{ C_word *av2=av; av2[0]=t60; av2[1]=t59; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t60+1)))(3,av2);}} /* constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8148,3,av);} a=C_alloc(5); if(C_truep(C_i_stringp(t2))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=lf[37]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8161,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:196: chicken.keyword#keyword? */ t4=*((C_word*)lf[56]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8161,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[38]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[39]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:199: chicken.compiler.support#big-fixnum? */ t3=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k8171 in k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8173,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8176,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_8176(2,av2);}} else{ /* scrutinizer.scm:199: chicken.compiler.support#small-bignum? */ t3=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k8174 in k8171 in k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_8176,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[40]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_fixnump(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[32]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_bignump(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[41]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[42]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[43]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_cplxnump(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[44]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_booleanp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(((C_word*)t0)[3])?lf[45]:lf[46]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[31]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_listp(((C_word*)t0)[3]))){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=((C_word*)((C_word*)t0)[4])[1]; t7=((C_word*)t0)[3]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8237,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8239,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_8239(t12,t8,t7);} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8288,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); /* scrutinizer.scm:212: constant-result */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; f_8148(3,av2);}} else{ if(C_truep(C_eofp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[30]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=((C_word*)((C_word*)t0)[4])[1]; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8322,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:216: scheme#vector->list */ t8=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t2=C_immp(((C_word*)t0)[3]); t3=C_i_not(t2); t4=(C_truep(t3)?C_structurep(((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t4)){ t5=C_slot(((C_word*)t0)[3],C_fix(0)); t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,2,lf[52],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_charp(((C_word*)t0)[3]); t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=(C_truep(t5)?lf[33]:lf[53]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}}}}}}}}}}} /* k8235 in k8174 in k8171 in k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8237,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[47],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop808 in k8174 in k8171 in k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8239(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8239,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8264,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:209: g814 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8262 in map-loop808 in k8174 in k8171 in k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8264,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8239(t6,((C_word*)t0)[5],t5);} /* k8286 in k8174 in k8171 in k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8288,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8292,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* scrutinizer.scm:212: constant-result */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; f_8148(3,av2);}} /* k8290 in k8286 in k8174 in k8171 in k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8292,2,av);} a=C_alloc(9); t2=C_a_i_list(&a,3,lf[48],((C_word*)t0)[2],t1); /* scrutinizer.scm:211: simplify-type */ f_13475(((C_word*)t0)[3],t2);} /* k8320 in k8174 in k8171 in k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_8322,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8325,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8327,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_8327(t6,t2,t1);} /* k8323 in k8320 in k8174 in k8171 in k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8325,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[50],t1); /* scrutinizer.scm:215: simplify-type */ f_13475(((C_word*)t0)[2],t2);} /* map-loop840 in k8320 in k8174 in k8171 in k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8327(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8327,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8352,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:216: g846 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8350 in map-loop840 in k8320 in k8174 in k8171 in k8159 in constant-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8352,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8327(t6,((C_word*)t0)[5],t5);} /* k8395 in k8485 in k8473 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_8397,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8401,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:223: g877 */ t3=t2; f_8401(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[63]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g877 in k8395 in k8485 in k8473 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8401(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ C_save_and_reclaim_args((void *)trf_8401,3,t0,t1,t2);} a=C_alloc(7); t3=C_eqp(t2,lf[59]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8411,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:227: r-deprecated-identifier */ f_22840(t4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8417,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(t2))){ t5=t2; t6=C_u_i_car(t5); t7=t4; f_8417(t7,C_eqp(t6,lf[59]));} else{ t5=t4; f_8417(t5,C_SCHEME_FALSE);}}} /* k8409 in g877 in k8395 in k8485 in k8473 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8411,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[60]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8415 in g877 in k8395 in k8485 in k8473 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8417(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){ C_save_and_reclaim_args((void *)trf_8417,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8420,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* scrutinizer.scm:230: r-deprecated-identifier */ f_22840(t2,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_a_i_list(&a,1,t3));} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8418 in k8415 in g877 in k8395 in k8485 in k8473 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8420,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[62]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* blist-type in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8440(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_8440,4,t0,t1,t2,t3);} a=C_alloc(13); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8444,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8452,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=t5; t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7868,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_7868(t11,t4,t7);} /* k8442 in blist-type in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8444,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_i_cdr(t1):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a8451 in blist-type in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8452,3,av);} t3=C_i_caar(t2); t4=C_eqp(((C_word*)t0)[2],t3); if(C_truep(t4)){ t5=t2; t6=C_u_i_car(t5); t7=C_u_i_cdr(t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_memq(t7,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* variable-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8471(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_8471,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(9); t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8475,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:244: blist-type */ t8=((C_word*)((C_word*)t0)[4])[1]; f_8440(t8,t7,t2,t6);} /* k8473 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_8475,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8487,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_not(((C_word*)t0)[7]))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8525,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:246: chicken.compiler.support#db-get */ t4=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[68]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=t2; f_8487(t3,C_SCHEME_FALSE);}}} /* k8485 in k8473 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8487(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_8487,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=lf[57]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_assq(((C_word*)t0)[3],((C_word*)t0)[4]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_cdr(t2); t5=C_eqp(lf[35],t4); if(C_truep(t5)){ t6=t3;{ C_word av2[2]; av2[0]=t6; av2[1]=lf[58]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_u_i_cdr(t2); t7=t3;{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_list1(&a,1,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8397,a[2]=t5,a[3]=t6,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:223: chicken.compiler.support#variable-mark */ t8=*((C_word*)lf[64]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t4; av2[3]=lf[65]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}} /* k8523 in k8473 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8525,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8532,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:247: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[66]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_8487(t2,C_SCHEME_FALSE);}} /* k8530 in k8523 in k8473 in variable-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8532,2,av);} t2=((C_word*)t0)[2]; f_8487(t2,C_i_not(t1));} /* always-true1 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ av[0]=t0; av[1]=t1; av[2]=t2; C_save_and_reclaim((void *)f_8534,3,av);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[28]); if(C_truep(t5)){ t6=t2; t7=C_u_i_cdr(t6); /* scrutinizer.scm:263: every */ f_7107(t1,((C_word*)((C_word*)t0)[2])[1],t7);} else{ t6=C_eqp(t4,lf[69]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8566,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t8=t2; t9=C_i_cadr(t8); /* scrutinizer.scm:264: always-true1 */ t11=t7; t12=t9; t1=t11; t2=t12; c=3; goto loop;} else{ t7=C_eqp(t4,lf[29]); if(C_truep(t7)){ t8=t2; t9=C_i_caddr(t8); /* scrutinizer.scm:265: always-true1 */ t11=t1; t12=t9; t1=t11; t2=t12; c=3; goto loop;} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}} else{ t3=t2; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep((C_truep(C_eqp(t3,lf[53]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[34]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[46]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[35]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[70]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))?C_SCHEME_FALSE:C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8564 in always-true1 in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8566,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* always-true in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8596(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_8596,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8600,a[2]=t1,a[3]=t5,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:271: always-true1 */ t7=((C_word*)((C_word*)t0)[2])[1];{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; f_8534(3,av2);}} /* k8598 in always-true in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,8)))){ C_save_and_reclaim((void *)f_8600,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8606,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=t2; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=((C_word*)t0)[5]; t7=((C_word*)t0)[6]; t8=C_a_i_list2(&a,2,t6,t5); t9=t8; t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22549,a[2]=t3,a[3]=t9,a[4]=t4,a[5]=t7,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:2804: scheme#string-append */ t11=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t11; av2[1]=t10; av2[2]=lf[77]; av2[3]=lf[78]; av2[4]=lf[79]; av2[5]=lf[80]; av2[6]=lf[81]; av2[7]=lf[82]; av2[8]=lf[83]; ((C_proc)(void*)(*((C_word*)t11+1)))(9,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8604 in k8598 in always-true in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8606,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8616 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8618,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8622 in k10316 in k10313 in k10310 in k10304 in k10301 in k10298 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8624,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* single in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8632(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_8632,3,t1,t2,t3);} a=C_alloc(4); t4=C_eqp(lf[53],t2); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=lf[53]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_length(t2); t6=C_eqp(C_fix(1),t5); if(C_truep(t6)){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(t5,C_fix(0)); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8660,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:291: r-value-count-mismatch */ t9=t3;{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8663,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:294: r-value-count-mismatch */ t9=t3;{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}} /* k8658 in single in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8660,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[35]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8661 in single in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8663,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_car(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8674 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_8676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_8676,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8679,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:301: chicken.compiler.support#variable-mark */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[162]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8677 in k8674 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_8679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8679,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8682,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:C_SCHEME_END_OF_LIST); if(C_truep(t1)){ /* scrutinizer.scm:302: scheme#append */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* scrutinizer.scm:302: scheme#append */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k8680 in k8677 in k8674 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_8682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8682,2,av);} t2=C_i_pairp(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?t1:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8698(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){ C_save_and_reclaim_args((void *)trf_8698,5,t0,t1,t2,t3,t4);} a=C_alloc(22); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=lf[25]; t10=t3; t11=C_i_check_list_2(t10,lf[6]); t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8708,a[2]=t3,a[3]=t1,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9298,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_9298(t16,t12,t10);} /* k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_8708,2,av);} a=C_alloc(11); t2=t1; t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8714,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t4,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t2,a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); /* scrutinizer.scm:308: procedure-type? */ t6=lf[121];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t4; f_15091(3,av2);}} /* k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_8714,2,av);} a=C_alloc(16); t2=t1; t3=C_i_cdr(((C_word*)t0)[2]); t4=C_u_i_length(t3); t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9296,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t4,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=t2,tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:310: make-list */ f_7932(t5,t4,C_a_i_list(&a,1,lf[53]));} /* k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_8724,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8733,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=t5,a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],tmp=(C_word)a,a+=15,tmp); if(C_truep(C_i_not(((C_word*)t0)[13]))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9292,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:314: match-types */ t8=*((C_word*)lf[170]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t3)[1]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t7=t6; f_8733(t7,C_SCHEME_FALSE);}} /* k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8733(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,6)))){ C_save_and_reclaim_args((void *)trf_8733,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8736,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8743,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:316: resolve */ t4=lf[118];{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)((C_word*)t0)[7])[1]; f_16257(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8754,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8760,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[14],tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:319: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}}} /* k8734 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8736,2,av);} /* scrutinizer.scm:317: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[53]; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} /* k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_8743,2,av);} a=C_alloc(7); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8749,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:316: resolve */ t6=lf[118];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)((C_word*)t0)[7])[1]; f_16257(4,av2);}} /* k8747 in k8741 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_8749,2,av);} a=C_alloc(14); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=t1; t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21746,a[2]=t9,tmp=(C_word)a,a+=3,tmp)); t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21791,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=t3,a[6]=t7,a[7]=t9,a[8]=t5,tmp=(C_word)a,a+=9,tmp); /* scrutinizer.scm:2529: variable-node-name */ t12=((C_word*)t9)[1]; f_21746(t12,t11,t6);} /* a8753 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8754,2,av);} /* scrutinizer.scm:320: procedure-argument-types */ f_15308(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);} /* a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,2)))){ C_save_and_reclaim((void *)f_8760,6,av);} a=C_alloc(30); t6=t2; t7=t3; t8=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8764,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=t7,a[14]=((C_word*)t0)[12],a[15]=t6,tmp=(C_word)a,a+=16,tmp); if(C_truep(t4)){ t9=t8;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_8764(2,av2);}} else{ t9=t8; t10=((C_word*)t0)[10]; t11=((C_word*)t0)[5]; t12=t5; t13=((C_word*)t0)[11]; t14=((C_word*)t0)[7]; t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21852,a[2]=t16,a[3]=t11,a[4]=t13,a[5]=t12,a[6]=t9,a[7]=t10,a[8]=t14,tmp=(C_word)a,a+=9,tmp); t18=t17; t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28147,a[2]=t18,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2500: chicken.compiler.support#node-subexpressions */ t20=*((C_word*)lf[86]+1);{ C_word *av2=av; av2[0]=t20; av2[1]=t19; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}}} /* k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,6)))){ C_save_and_reclaim((void *)f_8764,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); t3=C_i_cdr(((C_word*)t0)[10]); t4=C_i_cdr(((C_word*)t0)[9]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9220,a[2]=t6,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_9220(t8,t2,t3,t4,((C_word*)t0)[15],C_fix(1));} /* k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_8767,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8770,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); t3=( /* scrutinizer.scm:338: noreturn-procedure-type? */ f_15732(((C_word*)t0)[8]) ); if(C_truep(t3)){ t4=C_set_block_item(((C_word*)t0)[14],0,C_SCHEME_TRUE); t5=t2; f_8770(t5,t4);} else{ t4=t2; f_8770(t4,C_SCHEME_UNDEFINED);}} /* k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_8770(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ C_save_and_reclaim_args((void *)trf_8770,2,t0,t1);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8773,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); t3=C_u_i_cdr(((C_word*)t0)[10]); t4=((C_word*)t0)[13]; t5=t3; t6=((C_word*)((C_word*)t0)[4])[1]; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15531,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); /* scrutinizer.scm:1447: loop1 */ t10=((C_word*)t8)[1]; f_15531(t10,t2,((C_word*)t0)[8]);} /* k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_8773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_8773,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8776,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* scrutinizer.scm:341: procedure-name */ f_15143(t4,((C_word*)t0)[8]);} /* k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_8776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_8776,2,av);} a=C_alloc(23); t2=t1; t3=lf[24]; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(t2)){ t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8876,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=t3,a[12]=((C_word*)t0)[5],tmp=(C_word)a,a+=13,tmp); t6=C_eqp(C_fix(1),((C_word*)t0)[13]); if(C_truep(t6)){ /* scrutinizer.scm:345: chicken.compiler.support#variable-mark */ t7=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=t2; av2[3]=lf[165]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_8876(2,av2);}}} else{ t5=t4; f_8779(t5,C_SCHEME_UNDEFINED);}} /* k8777 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_fcall f_8779(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_8779,2,t0,t1);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8782,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8845,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[8])){ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[3])[1]))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8866,a[2]=t3,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:405: procedure-type? */ t5=lf[121];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; f_15091(3,av2);}} else{ t4=t3; f_8845(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_8845(t4,C_SCHEME_FALSE);}} /* k8780 in k8777 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_8782(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){ C_save_and_reclaim_args((void *)trf_8782,2,t0,t1);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8785,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_eqp(lf[53],((C_word*)((C_word*)t0)[4])[1]); if(C_truep(t3)){ t4=((C_word*)((C_word*)t0)[4])[1]; /* scrutinizer.scm:411: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t4; av2[3]=((C_word*)((C_word*)t0)[3])[1]; C_values(4,av2);}} else{ t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8798,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t9=((C_word*)((C_word*)t0)[4])[1]; t10=C_i_check_list_2(t9,lf[6]); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8810,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_8810(t14,t2,t9);}} /* k8783 in k8780 in k8777 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_8785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8785,2,av);} /* scrutinizer.scm:411: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; C_values(4,av2);}} /* g1140 in k8780 in k8777 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_8798(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_8798,3,t0,t1,t2);} t3=lf[118]; /* scrutinizer.scm:409: g1157 */ t4=lf[118];{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)((C_word*)t0)[2])[1]; f_16257(4,av2);}} /* map-loop1134 in k8780 in k8777 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_8810(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8810,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8835,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:409: g1140 */ t5=((C_word*)t0)[4]; f_8798(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8833 in map-loop1134 in k8780 in k8777 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_8835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8835,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8810(t6,((C_word*)t0)[5],t5);} /* k8843 in k8777 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_8845(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_8845,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8854,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:407: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[26]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[3]; f_8782(t2,C_SCHEME_UNDEFINED);}} /* k8852 in k8843 in k8777 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_8854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_8854,2,av);} a=C_alloc(29); t2=C_i_set_car(t1,C_SCHEME_TRUE); t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t3,C_fix(1))); t5=((C_word*)t0)[3]; f_8782(t5,t4);} /* k8864 in k8777 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_8866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8866,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8873,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:406: chicken.compiler.support#node-class */ t3=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; f_8845(t2,C_SCHEME_FALSE);}} /* k8871 in k8864 in k8777 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_8873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8873,2,av);} t2=((C_word*)t0)[2]; f_8845(t2,C_eqp(lf[120],t1));} /* k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_8876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_8876,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8879,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t1)){ t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8913,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); /* scrutinizer.scm:344: g1056 */ t4=t3; f_8913(t4,t2,t1);} else{ t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9068,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[8],a[4]=t2,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[4],tmp=(C_word)a,a+=12,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9189,a[2]=t3,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:368: chicken.compiler.support#node-subexpressions */ t5=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k8877 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_8879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_8879,2,av);} a=C_alloc(29); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=C_i_assoc(((C_word*)((C_word*)t0)[2])[1],lf[23]); if(C_truep(t2)){ t3=C_i_cdr(t2); t4=C_s_a_i_plus(&a,2,t3,C_fix(1)); t5=((C_word*)t0)[3]; f_8779(t5,C_i_set_cdr(t2,t4));} else{ t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t4=C_a_i_cons(&a,2,t3,lf[23]); t5=C_mutate(&lf[23] /* (set! chicken.compiler.scrutinizer#specialization-statistics ...) */,t4); t6=((C_word*)t0)[3]; f_8779(t6,t5);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3]; f_8779(t3,t2);}} /* g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_fcall f_8913(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){ C_save_and_reclaim_args((void *)trf_8913,3,t0,t1,t2);} a=C_alloc(17); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8920,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp); t4=C_a_i_list1(&a,1,t2); t5=C_i_cdr(((C_word*)t0)[8]); /* scrutinizer.scm:347: match-argument-types */ f_13403(t3,t4,t5,((C_word*)((C_word*)t0)[11])[1]);} /* k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_8920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_8920,2,av);} a=C_alloc(23); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8923,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t3=C_i_cadr(((C_word*)t0)[10]); t4=t2; t5=((C_word*)t0)[11]; t6=((C_word*)t0)[9]; t7=((C_word*)t0)[5]; t8=t3; t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22474,a[2]=t10,a[3]=t6,a[4]=t4,a[5]=t5,a[6]=t8,a[7]=t7,tmp=(C_word)a,a+=8,tmp); t12=t11; t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28121,a[2]=t12,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2500: chicken.compiler.support#node-subexpressions */ t14=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t13; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8980,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:357: trail-restore */ f_16214(t2,((C_word*)t0)[12],((C_word*)((C_word*)t0)[13])[1]);}} /* k8921 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_8923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_8923,2,av);} a=C_alloc(15); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8929,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); t3=C_i_cdr(((C_word*)t0)[8]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8958,a[2]=t2,a[3]=((C_word*)t0)[9],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=C_a_i_list(&a,1,lf[127]); /* scrutinizer.scm:353: ##sys#list->vector */ t7=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t2=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8927 in k8921 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_8929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8929,2,av);} a=C_alloc(6); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[122]); t3=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t4=C_mutate(((C_word *)((C_word*)t0)[5])+1,t3); t5=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8956 in k8921 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_8958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8958,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8962,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=C_a_i_list(&a,1,C_fix(1)); /* scrutinizer.scm:353: ##sys#list->vector */ t5=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8960 in k8956 in k8921 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in ... */ static void C_ccall f_8962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_8962,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list(&a,1,t2); t4=C_a_i_list(&a,2,lf[123],C_SCHEME_TRUE); t5=C_a_i_list(&a,3,lf[124],t3,t4); /* scrutinizer.scm:351: specialize-node! */ f_17490(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t5);} /* k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_ccall f_8980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_8980,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8983,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); t3=C_a_i_list(&a,2,lf[69],((C_word*)t0)[4]); t4=C_a_i_list1(&a,1,t3); t5=C_u_i_cdr(((C_word*)t0)[9]); /* scrutinizer.scm:358: match-argument-types */ f_13403(t2,t4,t5,((C_word*)((C_word*)t0)[12])[1]);} /* k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in ... */ static void C_ccall f_8983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_8983,2,av);} a=C_alloc(22); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8986,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_i_cadr(((C_word*)t0)[9]); t4=t2; t5=((C_word*)t0)[10]; t6=((C_word*)t0)[8]; t7=((C_word*)t0)[4]; t8=t3; t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22508,a[2]=t10,a[3]=t6,a[4]=t4,a[5]=t5,a[6]=t8,a[7]=t7,tmp=(C_word)a,a+=8,tmp); t12=t11; t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f28127,a[2]=t12,tmp=(C_word)a,a+=3,tmp); /* scrutinizer.scm:2500: chicken.compiler.support#node-subexpressions */ t14=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t13; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} else{ /* scrutinizer.scm:367: trail-restore */ f_16214(((C_word*)t0)[6],((C_word*)t0)[11],((C_word*)((C_word*)t0)[12])[1]);}} /* k8984 in k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in ... */ static void C_ccall f_8986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_8986,2,av);} a=C_alloc(14); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8992,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t3=C_i_cdr(((C_word*)t0)[7]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9025,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=C_a_i_list(&a,1,lf[127]); /* scrutinizer.scm:364: ##sys#list->vector */ t7=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8990 in k8984 in k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in ... */ static void C_ccall f_8992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_8992,2,av);} a=C_alloc(12); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[143]); t3=C_a_i_list(&a,2,lf[69],((C_word*)t0)[3]); t4=C_a_i_list2(&a,2,((C_word*)t0)[3],t3); t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4); t6=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k9023 in k8984 in k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in ... */ static void C_ccall f_9025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_9025,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9029,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=C_a_i_list(&a,1,C_fix(1)); /* scrutinizer.scm:364: ##sys#list->vector */ t5=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k9027 in k9023 in k8984 in k8981 in k8978 in k8918 in g1056 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in ... */ static void C_ccall f_9029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_9029,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list(&a,1,t2); t4=C_a_i_list(&a,2,lf[123],C_SCHEME_FALSE); t5=C_a_i_list(&a,3,lf[124],t3,t4); /* scrutinizer.scm:362: specialize-node! */ f_17490(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t5);} /* k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_9068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_9068,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9072,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:344: g1087 */ t3=t2; f_9072(t3,((C_word*)t0)[4],t1);} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9091,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[4],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)t0)[11])){ t3=t2; t4=((C_word*)t0)[5]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8676,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:300: chicken.compiler.support#variable-mark */ t6=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[163]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_9091(2,av2);}}}} /* g1087 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_fcall f_9072(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_9072,3,t0,t1,t2);} a=C_alloc(6); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[53]); t4=C_i_car(t2); t5=C_a_i_list2(&a,2,lf[123],t4); /* scrutinizer.scm:374: mutate-node! */ f_17310(t1,((C_word*)t0)[3],t5);} /* k9089 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_9091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_9091,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9095,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:344: g1093 */ t3=t2; f_9095(t3,((C_word*)t0)[10],t1);} else{ t2=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_8879(2,av2);}}} /* g1093 in k9089 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in ... */ static void C_fcall f_9095(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_9095,3,t0,t1,t2);} a=C_alloc(13); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9101,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t4,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp)); t6=((C_word*)t4)[1]; f_9101(t6,t1,t2);} /* loop in g1093 in k9089 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in ... */ static void C_fcall f_9101(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){ C_save_and_reclaim_args((void *)trf_9101,3,t0,t1,t2);} a=C_alloc(19); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_i_car(t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9115,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=t2,a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=t6,tmp=(C_word)a,a+=15,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9179,a[2]=t7,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:382: append-map */ f_6937(t8,lf[161],t6,C_SCHEME_END_OF_LIST);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9113 in loop in g1093 in k9089 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in ... */ static void C_ccall f_9115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_9115,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9121,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); t4=C_i_cdr(((C_word*)t0)[13]); /* scrutinizer.scm:384: match-argument-types */ f_13403(t3,((C_word*)t0)[14],t4,t2);} /* k9119 in k9113 in loop in g1093 in k9089 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in ... */ static void C_ccall f_9121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_9121,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3); t5=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)t0)[6]); t6=C_i_cddr(((C_word*)t0)[2]); t7=C_i_pairp(t6); t8=(C_truep(t7)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE); t9=t8; t10=(C_truep(t9)?C_i_caddr(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2])); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9135,a[2]=t9,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); t12=C_i_cdr(((C_word*)t0)[9]); /* scrutinizer.scm:392: specialize-node! */ f_17490(t11,((C_word*)t0)[10],t12,t10);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9166,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:395: trail-restore */ f_16214(t2,((C_word*)t0)[13],((C_word*)t0)[6]);}} /* k9133 in k9119 in k9113 in loop in g1093 in k9089 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in ... */ static void C_ccall f_9135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9135,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)t0)[2]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9164 in k9119 in k9113 in loop in g1093 in k9089 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in ... */ static void C_ccall f_9166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9166,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scrutinizer.scm:396: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_9101(t4,((C_word*)t0)[4],t3);} /* k9177 in loop in g1093 in k9089 in k9066 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in ... */ static void C_ccall f_9179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9179,2,av);} /* scrutinizer.scm:381: scheme#append */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k9187 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_9189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_9189,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9191,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:368: chicken.compiler.support#maybe-constant-fold-call */ t3=*((C_word*)lf[164]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a9190 in k9187 in k8874 in k8774 in k8771 in k8768 in k8765 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in ... */ static void C_ccall f_9191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9191,5,av);} a=C_alloc(3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=(C_truep(t2)?C_a_i_cons(&a,2,t3,t2):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* doloop1035 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9220(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){ C_save_and_reclaim_args((void *)trf_9220,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(19); t6=C_i_nullp(t2); t7=(C_truep(t6)?t6:C_i_nullp(t4)); if(C_truep(t7)){ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9233,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word*)t0)[2],a[7]=t1,tmp=(C_word)a,a+=8,tmp); t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9249,a[2]=t8,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=((C_word*)t0)[5],a[8]=t2,a[9]=((C_word*)t0)[6],a[10]=t4,tmp=(C_word)a,a+=11,tmp); t10=C_i_car(t4); t11=C_i_car(t2); /* scrutinizer.scm:328: match-types */ t12=*((C_word*)lf[170]+1);{ C_word av2[5]; av2[0]=t12; av2[1]=t9; av2[2]=t10; av2[3]=t11; av2[4]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}} /* k9231 in doloop1035 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){ C_save_and_reclaim((void *)f_9233,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_i_cdr(((C_word*)t0)[3]); t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); t7=((C_word*)t0)[5]; t8=C_s_a_i_plus(&a,2,t7,C_fix(1)); t9=((C_word*)((C_word*)t0)[6])[1]; f_9220(t9,((C_word*)t0)[7],t3,t4,t6,t8);} /* k9247 in doloop1035 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_9249,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_9233(2,av2);}} else{ t2=C_i_car(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9260,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t5=((C_word*)t0)[10]; t6=C_u_i_car(t5); /* scrutinizer.scm:335: resolve */ t7=lf[118];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t4; av2[2]=t6; av2[3]=((C_word*)((C_word*)t0)[9])[1]; f_16257(4,av2);}}} /* k9258 in k9247 in doloop1035 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_9260,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9264,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=((C_word*)t0)[8]; t5=C_u_i_car(t4); /* scrutinizer.scm:336: resolve */ t6=lf[118];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=((C_word*)((C_word*)t0)[9])[1]; f_16257(4,av2);}} /* k9262 in k9258 in k9247 in doloop1035 in k8762 in a8759 in k8731 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_ccall f_9264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_9264,2,av);} /* scrutinizer.scm:332: r-proc-call-argument-type-mismatch */ f_21896(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1,((C_word*)t0)[8]);} /* k9290 in k8722 in k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9292,2,av);} t2=((C_word*)t0)[2]; f_8733(t2,C_i_not(t1));} /* k9294 in k8712 in k8706 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_9296,2,av);} a=C_alloc(23); t2=C_a_i_list(&a,3,lf[84],t1,lf[53]); t3=t2; t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8724,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* scrutinizer.scm:311: append-map */ f_6937(t4,lf[161],((C_word*)t0)[10],C_SCHEME_END_OF_LIST);} /* map-loop979 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9298(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9298,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9323,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:306: g985 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9321 in map-loop979 in call-result in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9323,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9298(t6,((C_word*)t0)[5],t5);} /* tag in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static C_word C_fcall f_9332(C_word *a,C_word t0){ C_word tmp; C_word t1; C_word t2; C_word t3; C_stack_overflow_check;{} t1=((C_word*)((C_word*)t0)[2])[1]; t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t1,C_fix(1))); return(((C_word*)((C_word*)t0)[2])[1]);} /* add-to-blist in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9337(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_9337,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9343,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t6,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_9343(t8,t1,t2);} /* loop in add-to-blist in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9343(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){ C_save_and_reclaim_args((void *)trf_9343,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9348,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t4=C_a_i_cons(&a,2,t2,((C_word*)t0)[5]); /* scrutinizer.scm:421: chicken.base#alist-update! */ t5=*((C_word*)lf[186]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; av2[5]=*((C_word*)lf[187]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k9346 in loop in add-to-blist in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9348,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_assq(((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]); if(C_truep(t3)){ t4=C_i_cdr(t3); /* scrutinizer.scm:425: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_9343(t5,((C_word*)t0)[6],t4);} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9370(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_9370,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9377,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ if(C_truep(((C_word*)t0)[2])){ /* scrutinizer.scm:429: chicken.compiler.support#variable-mark */ t5=*((C_word*)lf[64]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[66]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_9377(2,av2);}}} else{ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_9377(2,av2);}}} /* k9375 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9377,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9380,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scrutinizer.scm:430: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[65]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* scrutinizer.scm:436: make-list */ f_7932(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,1,lf[53]));}} /* k9378 in k9375 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9380,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9383,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:431: type-typeenv */ t4=lf[161];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; f_15882(3,av2);}} /* k9381 in k9378 in k9375 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_9383,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9389,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:432: procedure-type? */ t4=lf[121];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; f_15091(3,av2);}} /* k9387 in k9381 in k9378 in k9375 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_9389,2,av);} a=C_alloc(20); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9393,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9400,a[2]=t4,a[3]=t6,a[4]=t5,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9442,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9448,tmp=(C_word)a,a+=2,tmp); /* scrutinizer.scm:434: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t7; av2[2]=t8; av2[3]=t9; C_call_with_values(4,av2);}} else{ /* scrutinizer.scm:435: make-list */ f_7932(((C_word*)t0)[3],((C_word*)t0)[5],C_a_i_list(&a,1,lf[53]));}} /* g1200 in k9387 in k9381 in k9378 in k9375 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9393(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_9393,3,t0,t1,t2);} t3=lf[118]; /* scrutinizer.scm:433: g1217 */ t4=lf[118];{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; f_16257(4,av2);}} /* k9398 in k9387 in k9381 in k9378 in k9375 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_9400,2,av);} a=C_alloc(8); t2=C_i_check_list_2(t1,lf[6]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9408,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_9408(t6,((C_word*)t0)[5],t1);} /* map-loop1194 in k9398 in k9387 in k9381 in k9378 in k9375 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9408(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9408,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9433,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:433: g1200 */ t5=((C_word*)t0)[4]; f_9393(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9431 in map-loop1194 in k9398 in k9387 in k9381 in k9378 in k9375 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9433,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9408(t6,((C_word*)t0)[5],t5);} /* a9441 in k9387 in k9381 in k9378 in k9375 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_9442,2,av);} a=C_alloc(3); /* scrutinizer.scm:434: procedure-argument-types */ f_15308(t1,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,C_a_i_list(&a,1,C_SCHEME_TRUE));} /* a9447 in k9387 in k9381 in k9378 in k9375 in initial-argument-types in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_9448,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_list_ref(t2,C_fix(0)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9466(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){ C_word tmp; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,0,2)))){ C_save_and_reclaim_args((void *)trf_9466,9,t0,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(30); t9=(*a=C_CLOSURE_TYPE|29,a[1]=(C_word)f_9470,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t4,a[7]=t2,a[8]=t7,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[8],a[14]=t5,a[15]=t6,a[16]=t8,a[17]=((C_word*)t0)[9],a[18]=((C_word*)t0)[10],a[19]=((C_word*)t0)[11],a[20]=((C_word*)t0)[12],a[21]=((C_word*)t0)[13],a[22]=((C_word*)t0)[14],a[23]=((C_word*)t0)[15],a[24]=((C_word*)t0)[16],a[25]=((C_word*)t0)[17],a[26]=((C_word*)t0)[18],a[27]=((C_word*)t0)[19],a[28]=((C_word*)t0)[20],a[29]=((C_word*)t0)[21],tmp=(C_word)a,a+=30,tmp); /* scrutinizer.scm:439: chicken.compiler.support#node-subexpressions */ t10=*((C_word*)lf[86]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){ C_save_and_reclaim((void *)f_9470,2,av);} a=C_alloc(31); t2=t1; t3=(*a=C_CLOSURE_TYPE|30,a[1]=(C_word)f_9473,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],a[27]=((C_word*)t0)[26],a[28]=((C_word*)t0)[27],a[29]=((C_word*)t0)[28],a[30]=((C_word*)t0)[29],tmp=(C_word)a,a+=31,tmp); /* scrutinizer.scm:440: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[26]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){ C_save_and_reclaim((void *)f_9473,2,av);} a=C_alloc(32); t2=t1; t3=(*a=C_CLOSURE_TYPE|31,a[1]=(C_word)f_9476,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],a[27]=((C_word*)t0)[26],a[28]=((C_word*)t0)[27],a[29]=((C_word*)t0)[28],a[30]=((C_word*)t0)[29],a[31]=((C_word*)t0)[30],tmp=(C_word)a,a+=32,tmp); /* scrutinizer.scm:441: chicken.compiler.support#node-class */ t4=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(122,c,8)))){ C_save_and_reclaim((void *)f_9476,2,av);} a=C_alloc(122); t2=lf[16]; t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_plus(&a,2,lf[16],C_fix(1))); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9484,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=C_eqp(t1,lf[85]); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[3]); t7=C_a_i_list1(&a,1,t6); t8=lf[16]; t9=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t10=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t10; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t6=C_eqp(t1,lf[123]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9512,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=C_i_car(((C_word*)t0)[3]); /* scrutinizer.scm:450: constant-result */ t9=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=t8; f_8148(3,av2);}} else{ t7=C_eqp(t1,lf[188]); if(C_truep(t7)){ t8=lf[16]; t9=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t10=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t10; av2[1]=lf[189]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t8=C_eqp(t1,lf[190]); if(C_truep(t8)){ t9=lf[16]; t10=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t11=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t11; av2[1]=lf[191]; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t9=C_eqp(t1,lf[87]); if(C_truep(t9)){ t10=C_i_car(((C_word*)t0)[3]); /* scrutinizer.scm:453: variable-result */ t11=((C_word*)((C_word*)t0)[5])[1]; f_8471(t11,t4,t10,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t10=C_eqp(t1,lf[192]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9554,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t12=C_i_cadr(((C_word*)t0)[3]); /* scrutinizer.scm:455: chicken.compiler.support#foreign-type->scrutiny-type */ t13=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t13; av2[1]=t11; av2[2]=t12; av2[3]=lf[194]; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} else{ t11=C_eqp(t1,lf[195]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9571,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t13=C_i_car(((C_word*)t0)[3]); /* scrutinizer.scm:457: chicken.compiler.support#foreign-type->scrutiny-type */ t14=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t14; av2[1]=t12; av2[2]=t13; av2[3]=lf[194]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t12=C_eqp(t1,lf[196]); if(C_truep(t12)){ t13=( /* scrutinizer.scm:459: tag */ f_9332(C_a_i(&a,29),((C_word*)((C_word*)t0)[10])[1]) ); t14=( /* scrutinizer.scm:459: tag */ f_9332(C_a_i(&a,29),((C_word*)((C_word*)t0)[10])[1]) ); t15=C_a_i_cons(&a,2,t13,t14); t16=t15; t17=C_i_car(((C_word*)t0)[11]); t18=t17; t19=((C_word*)((C_word*)t0)[12])[1]; t20=C_set_block_item(((C_word*)t0)[12],0,C_SCHEME_FALSE); t21=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_9591,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[14],a[6]=((C_word*)t0)[15],a[7]=t4,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[16],a[12]=((C_word*)t0)[17],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[18],a[15]=t18,a[16]=t19,a[17]=((C_word*)t0)[2],a[18]=t16,a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],tmp=(C_word)a,a+=22,tmp); t22=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9906,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t18,a[5]=((C_word*)t0)[22],a[6]=t21,tmp=(C_word)a,a+=7,tmp); /* scrutinizer.scm:463: walk */ t23=((C_word*)((C_word*)t0)[15])[1]; f_9466(t23,t22,t18,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[9],t16);} else{ t13=C_eqp(t1,lf[124]); if(C_truep(t13)){ t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9931,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[16],a[5]=((C_word*)t0)[17],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[18],a[8]=((C_word*)t0)[6],a[9]=t15,a[10]=((C_word*)t0)[23],a[11]=((C_word*)t0)[24],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[22],tmp=(C_word)a,a+=14,tmp)); t17=((C_word*)t15)[1]; f_9931(t17,t4,((C_word*)t0)[3],((C_word*)t0)[11],C_SCHEME_END_OF_LIST);} else{ t14=C_eqp(t1,lf[221]); t15=(C_truep(t14)?t14:C_eqp(t1,lf[222])); if(C_truep(t15)){ t16=C_i_car(((C_word*)t0)[3]); t17=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10036,a[2]=((C_word*)t0)[16],a[3]=((C_word*)t0)[20],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[23],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[24],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[15],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[25],tmp=(C_word)a,a+=13,tmp); /* scrutinizer.scm:526: ##sys#decompose-lambda-list */ t18=*((C_word*)lf[227]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t18; av2[1]=t4; av2[2]=t16; av2[3]=t17; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} else{ t16=C_eqp(t1,lf[228]); t17=(C_truep(t16)?t16:C_eqp(t1,lf[229])); if(C_truep(t17)){ t18=C_i_car(((C_word*)t0)[3]); t19=t18; t20=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10300,a[2]=t19,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[26],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[20],a[9]=((C_word*)t0)[27],a[10]=((C_word*)t0)[24],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[28],a[13]=((C_word*)t0)[7],a[14]=((C_word*)t0)[8],a[15]=((C_word*)t0)[29],a[16]=((C_word*)t0)[22],a[17]=((C_word*)t0)[15],tmp=(C_word)a,a+=18,tmp); /* scrutinizer.scm:581: chicken.compiler.support#variable-mark */ t21=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t21; av2[1]=t20; av2[2]=t19; av2[3]=lf[65]; ((C_proc)(void*)(*((C_word*)t21+1)))(4,av2);}} else{ t18=C_eqp(t1,lf[270]); if(C_truep(t18)){ t19=lf[16]; t20=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t21=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t21; av2[1]=lf[53]; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}} else{ t19=C_eqp(t1,lf[120]); if(C_truep(t19)){ t20=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10650,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[22],a[6]=((C_word*)t0)[15],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[30],a[10]=((C_word*)t0)[20],a[11]=((C_word*)t0)[27],a[12]=((C_word*)t0)[16],a[13]=((C_word*)t0)[17],a[14]=((C_word*)t0)[18],a[15]=((C_word*)t0)[19],a[16]=((C_word*)t0)[24],a[17]=((C_word*)t0)[31],a[18]=t4,tmp=(C_word)a,a+=19,tmp); /* scrutinizer.scm:651: fragment */ f_21092(t20,((C_word*)t0)[8]);} else{ t20=C_eqp(t1,lf[279]); if(C_truep(t20)){ t21=C_i_car(((C_word*)t0)[3]); t22=t21; t23=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11237,a[2]=t22,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[27],a[7]=((C_word*)t0)[29],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); t24=C_i_car(((C_word*)t0)[11]); /* scrutinizer.scm:751: walk */ t25=((C_word*)((C_word*)t0)[15])[1]; f_9466(t25,t23,t24,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[16],((C_word*)t0)[17],((C_word*)t0)[9],((C_word*)t0)[18]);} else{ t21=C_eqp(t1,lf[313]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11325,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[15],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[16],a[9]=((C_word*)t0)[17],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[18],a[12]=t4,tmp=(C_word)a,a+=13,tmp); t23=C_i_car(((C_word*)t0)[11]); /* scrutinizer.scm:763: walk */ t24=((C_word*)((C_word*)t0)[15])[1]; f_9466(t24,t22,t23,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[9],((C_word*)t0)[18]);} else{ t22=C_eqp(t1,lf[343]); t23=(C_truep(t22)?t22:C_eqp(t1,lf[344])); if(C_truep(t23)){ /* scrutinizer.scm:779: chicken.compiler.support#bomb */ t24=*((C_word*)lf[345]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t24; av2[1]=t4; av2[2]=lf[346]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t24+1)))(4,av2);}} else{ t24=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11425,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); t25=C_i_check_list_2(((C_word*)t0)[11],lf[212]); t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11435,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t27=C_SCHEME_UNDEFINED; t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp); t29=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11437,a[2]=t28,a[3]=t24,tmp=(C_word)a,a+=4,tmp)); t30=((C_word*)t28)[1]; f_11437(t30,t26,((C_word*)t0)[11]);}}}}}}}}}}}}}}}}} /* k9482 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_9484,2,av);} a=C_alloc(29); t2=lf[16]; t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9510 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ C_save_and_reclaim((void *)f_9512,2,av);} a=C_alloc(32); t2=C_a_i_list1(&a,1,t1); t3=lf[16]; t4=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9552 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ C_save_and_reclaim((void *)f_9554,2,av);} a=C_alloc(32); t2=C_a_i_list1(&a,1,t1); t3=lf[16]; t4=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9569 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ C_save_and_reclaim((void *)f_9571,2,av);} a=C_alloc(32); t2=C_a_i_list1(&a,1,t1); t3=lf[16]; t4=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,5)))){ C_save_and_reclaim((void *)f_9591,2,av);} a=C_alloc(24); t2=t1; t3=C_i_cadr(((C_word*)t0)[2]); t4=t3; t5=C_i_caddr(((C_word*)t0)[2]); t6=t5; t7=((C_word*)((C_word*)t0)[3])[1]; t8=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_9902,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=t4,a[15]=t6,a[16]=((C_word*)t0)[3],a[17]=((C_word*)t0)[16],a[18]=t7,a[19]=((C_word*)t0)[17],a[20]=((C_word*)t0)[18],a[21]=((C_word*)t0)[19],a[22]=((C_word*)t0)[20],a[23]=t2,tmp=(C_word)a,a+=24,tmp); /* scrutinizer.scm:469: always-true */ t9=((C_word*)((C_word*)t0)[21])[1]; f_8596(t9,t8,((C_word*)t0)[8],((C_word*)t0)[15],t2,((C_word*)t0)[10]);} /* k9606 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_9608,2,av);} /* scrutinizer.scm:472: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9466(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k9625 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_9627,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=C_a_i_list(&a,3,lf[124],t3,((C_word*)t0)[3]); /* scrutinizer.scm:471: mutate-node! */ f_17310(((C_word*)t0)[4],((C_word*)t0)[5],t4);} /* k9636 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_9638,2,av);} /* scrutinizer.scm:476: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9466(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k9655 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_9657,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=C_a_i_list(&a,3,lf[124],t3,((C_word*)t0)[3]); /* scrutinizer.scm:475: mutate-node! */ f_17310(((C_word*)t0)[4],((C_word*)t0)[5],t4);} /* k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,8)))){ C_save_and_reclaim((void *)f_9660,2,av);} a=C_alloc(20); t2=t1; t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t5=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_9664,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t2,a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],tmp=(C_word)a,a+=17,tmp); t6=C_u_i_cdr(((C_word*)t0)[11]); t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[12]); /* scrutinizer.scm:481: walk */ t8=((C_word*)((C_word*)t0)[15])[1]; f_9466(t8,t5,((C_word*)t0)[9],((C_word*)t0)[16],((C_word*)t0)[6],((C_word*)t0)[17],((C_word*)t0)[18],t7,C_SCHEME_FALSE);} /* k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_9664,2,av);} a=C_alloc(23); t2=t1; t3=((C_word*)((C_word*)t0)[2])[1]; t4=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:(C_truep(((C_word*)t0)[4])?((C_word*)t0)[4]:(C_truep(((C_word*)t0)[5])?t3:C_SCHEME_FALSE))); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9671,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=t2,a[9]=((C_word*)t0)[5],a[10]=t3,a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); t7=(C_truep(((C_word*)t0)[5])?C_i_not(t3):C_SCHEME_FALSE); t8=(C_truep(t7)?t7:(C_truep(t3)?C_i_not(((C_word*)t0)[5]):C_SCHEME_FALSE)); if(C_truep(t8)){ t9=(C_truep(((C_word*)t0)[5])?C_u_i_cdr(((C_word*)t0)[13]):C_u_i_car(((C_word*)t0)[13])); t10=t9; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9812,a[2]=t10,a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[15],tmp=(C_word)a,a+=5,tmp); t12=((C_word*)((C_word*)t0)[16])[1]; t13=C_i_check_list_2(t12,lf[212]); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9846,a[2]=t15,a[3]=t11,tmp=(C_word)a,a+=4,tmp)); t17=((C_word*)t15)[1]; f_9846(t17,t6,t12);} else{ t9=t6;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_9671(2,av2);}}} /* k9669 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_9671,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9677,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t3=C_eqp(lf[53],((C_word*)t0)[7]); if(C_truep(C_i_not(t3))){ t4=C_eqp(lf[53],((C_word*)t0)[8]); t5=t2; f_9677(t5,C_i_not(t4));} else{ t4=t2; f_9677(t4,C_SCHEME_FALSE);}} /* k9675 in k9669 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9677(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,0,2)))){ C_save_and_reclaim_args((void *)trf_9677,2,t0,t1);} a=C_alloc(29); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(C_i_not(((C_word*)t0)[9]))){ if(C_truep(C_i_not(((C_word*)t0)[10]))){ t3=C_i_length(((C_word*)t0)[7]); t4=C_i_length(((C_word*)t0)[8]); t5=C_eqp(t3,t4); t6=t2; f_9683(t6,C_i_not(t5));} else{ t3=t2; f_9683(t3,C_SCHEME_FALSE);}} else{ t3=t2; f_9683(t3,C_SCHEME_FALSE);}} else{ t2=lf[16]; t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=lf[53]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9681 in k9675 in k9669 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 in ... */ static void C_fcall f_9683(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,0,14)))){ C_save_and_reclaim_args((void *)trf_9683,2,t0,t1);} a=C_alloc(29); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9686,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=t2; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=((C_word*)t0)[5]; t7=((C_word*)t0)[6]; t8=((C_word*)t0)[7]; t9=((C_word*)t0)[8]; t10=C_a_i_list2(&a,2,t7,t5); t11=t10; t12=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22759,a[2]=t8,a[3]=t9,a[4]=t3,a[5]=t11,a[6]=t4,a[7]=t7,a[8]=t6,a[9]=t5,tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:2925: scheme#string-append */ t13=*((C_word*)lf[76]+1);{ C_word av2[15]; av2[0]=t13; av2[1]=t12; av2[2]=lf[199]; av2[3]=lf[200]; av2[4]=lf[201]; av2[5]=lf[202]; av2[6]=lf[203]; av2[7]=lf[204]; av2[8]=lf[205]; av2[9]=lf[206]; av2[10]=lf[207]; av2[11]=lf[208]; av2[12]=lf[209]; av2[13]=lf[210]; av2[14]=lf[211]; ((C_proc)(void*)(*((C_word*)t13+1)))(15,av2);}} else{ if(C_truep(((C_word*)t0)[9])){ t2=lf[16]; t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[10])){ t2=lf[16]; t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=C_i_check_list_2(((C_word*)t0)[7],lf[6]); t7=C_i_check_list_2(((C_word*)t0)[8],lf[6]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9718,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_9718(t11,((C_word*)t0)[11],((C_word*)t0)[7],((C_word*)t0)[8]);}}}} /* k9684 in k9681 in k9675 in k9669 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_ccall f_9686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_9686,2,av);} a=C_alloc(29); t2=lf[16]; t3=C_mutate(&lf[16] /* (set! chicken.compiler.scrutinizer#d-depth ...) */,C_s_a_i_minus(&a,2,lf[16],C_fix(1))); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=lf[53]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop1330 in k9681 in k9675 in k9669 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in ... */ static void C_fcall f_9718(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){ C_save_and_reclaim_args((void *)trf_9718,4,t0,t1,t2,t3);} a=C_alloc(16); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9747,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); t9=C_a_i_list(&a,3,lf[28],t7,t8); /* scrutinizer.scm:507: simplify-type */ f_13475(t6,t9);} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k9745 in map-loop1330 in k9681 in k9675 in k9669 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in ... */ static void C_ccall f_9747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_9747,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=C_slot(((C_word*)t0)[4],C_fix(1)); t7=((C_word*)((C_word*)t0)[5])[1]; f_9718(t7,((C_word*)t0)[6],t5,t6);} /* g1302 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9812(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_9812,3,t0,t1,t2);} t3=C_i_cdar(t2); t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ t5=t2; t6=C_u_i_car(t5); t7=C_u_i_car(t6); t8=C_i_car(((C_word*)t0)[3]); t9=t2; t10=C_u_i_cdr(t9); /* scrutinizer.scm:494: add-to-blist */ t11=((C_word*)((C_word*)t0)[4])[1]; f_9337(t11,t1,t7,t8,t10);} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* for-each-loop1301 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9846(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9846,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9856,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scrutinizer.scm:489: g1302 */ t5=((C_word*)t0)[3]; f_9812(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9854 in for-each-loop1301 in k9662 in k9658 in k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9856,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9846(t3,((C_word*)t0)[4],t2);} /* k9897 in k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(46,c,8)))){ C_save_and_reclaim((void *)f_9899,2,av);} a=C_alloc(46); t2=(C_truep(t1)?((C_word*)t0)[2]:C_SCHEME_FALSE); if(C_truep(t2)){ t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_s_a_i_plus(&a,2,t3,C_fix(1))); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9638,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9657,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[14],a[4]=t5,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:475: chicken.base#gensym */ t7=*((C_word*)lf[197]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_9660,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[16],a[4]=((C_word*)t0)[17],a[5]=((C_word*)t0)[18],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[19],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[20],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[21],a[14]=((C_word*)t0)[22],a[15]=((C_word*)t0)[4],a[16]=((C_word*)t0)[7],a[17]=((C_word*)t0)[9],a[18]=((C_word*)t0)[10],tmp=(C_word)a,a+=19,tmp); t4=C_u_i_car(((C_word*)t0)[20]); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[11]); /* scrutinizer.scm:478: walk */ t6=((C_word*)((C_word*)t0)[4])[1]; f_9466(t6,t3,((C_word*)t0)[19],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],t5,C_SCHEME_FALSE);}} /* k9900 in k9589 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(46,c,6)))){ C_save_and_reclaim((void *)f_9902,2,av);} a=C_alloc(46); t2=(C_truep(t1)?((C_word*)t0)[2]:C_SCHEME_FALSE); if(C_truep(t2)){ t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_s_a_i_plus(&a,2,t3,C_fix(1))); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9608,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9627,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[14],a[4]=t5,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:471: chicken.base#gensym */ t7=*((C_word*)lf[197]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_9899,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[14],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); t4=t3; t5=((C_word*)t0)[6]; t6=((C_word*)t0)[8]; t7=C_eqp(((C_word*)t0)[23],lf[46]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8618,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t9=t8; t10=t6; t11=t5; t12=C_a_i_list2(&a,2,((C_word*)t0)[13],t11); t13=t12; t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22571,a[2]=t9,a[3]=t13,a[4]=t10,a[5]=t11,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:2820: scheme#string-append */ t15=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t15; av2[1]=t14; av2[2]=lf[214]; av2[3]=lf[215]; av2[4]=lf[216]; av2[5]=lf[217]; av2[6]=lf[218]; ((C_proc)(void*)(*((C_word*)t15+1)))(7,av2);}} else{ t8=t4;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* k9904 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_9906,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9908,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:463: single */ f_8632(((C_word*)t0)[6],t1,t2);} /* a9907 in k9904 in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9908,3,av);} t3=lf[219]; /* scrutinizer.scm:464: g1257 */ t4=lf[219];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t2; f_22167(6,av2);}} /* loop in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9931(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,8)))){ C_save_and_reclaim_args((void *)trf_9931,5,t0,t1,t2,t3,t4);} a=C_alloc(19); if(C_truep(C_i_nullp(t2))){ t5=C_i_car(t3); t6=t5; t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9949,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t6,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* scrutinizer.scm:514: scheme#append */ t8=*((C_word*)lf[5]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t4; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t5=C_i_car(t2); t6=t5; t7=C_i_car(t3); t8=t7; t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9958,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[9],a[6]=t1,a[7]=((C_word*)t0)[10],a[8]=t6,a[9]=((C_word*)t0)[11],a[10]=t8,tmp=(C_word)a,a+=11,tmp); t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10012,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=((C_word*)t0)[12],a[5]=t8,a[6]=((C_word*)t0)[13],a[7]=t9,tmp=(C_word)a,a+=8,tmp); /* scrutinizer.scm:517: walk */ t11=((C_word*)((C_word*)t0)[2])[1]; f_9466(t11,t10,t8,((C_word*)t0)[8],((C_word*)t0)[3],t6,C_SCHEME_FALSE,((C_word*)t0)[6],C_SCHEME_FALSE);}} /* k9947 in loop in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_9949,2,av);} /* scrutinizer.scm:514: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9466(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k9956 in loop in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_9958,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9961,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9977,a[2]=t3,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10008,a[2]=t4,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); /* scrutinizer.scm:519: chicken.compiler.support#node-class */ t6=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k9959 in k9956 in loop in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9961(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_9961,2,t0,t1);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=((C_word*)t0)[2]; t7=C_u_i_car(t6); t8=((C_word*)t0)[4]; t9=C_a_i_cons(&a,2,t7,((C_word*)t0)[5]); t10=C_a_i_cons(&a,2,t9,t8); /* scrutinizer.scm:524: loop */ t11=((C_word*)((C_word*)t0)[6])[1]; f_9931(t11,((C_word*)t0)[7],t3,t5,t10);} /* k9975 in k9956 in loop in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_fcall f_9977(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9977,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9994,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:521: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[26]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; f_9961(t2,C_SCHEME_UNDEFINED);}} /* k9984 in k9992 in k9975 in k9956 in loop in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_9986,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2]; f_9961(t3,t2);} else{ t2=((C_word*)((C_word*)t0)[3])[1]; t3=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); t4=C_a_i_cons(&a,2,t3,t2); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); t6=((C_word*)t0)[2]; f_9961(t6,t5);}} /* k9992 in k9975 in k9956 in loop in k9474 in k9471 in k9468 in walk in chicken.compiler.scrutinizer#scrutinize in k6734 in k6731 in k6728 in k6725 in k6722 in k6719 in k6716 in k6713 in k6710 */ static void C_ccall f_9994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9994,2,av);} a=C_alloc(6); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9986,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* scrutinizer.scm:522: chicken.compiler.support#db-get */ t5=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=t3; av2[4]=lf[68]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_scrutinizer_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("scrutinizer")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_scrutinizer_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(3121))){ C_save(t1); C_rereclaim2(3121*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,661); lf[0]=C_h_intern(&lf[0],11, C_text("scrutinizer")); lf[1]=C_h_intern(&lf[1],29, C_text("chicken.compiler.scrutinizer#")); lf[4]=C_h_intern(&lf[4],5, C_text("foldr")); lf[5]=C_h_intern(&lf[5],13, C_text("scheme#append")); lf[6]=C_h_intern(&lf[6],3, C_text("map")); lf[8]=C_h_intern(&lf[8],12, C_text("scheme#null\077")); lf[20]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001string\376\003\000\000\002\376\001\000\000\006\001symbol\376\003\000\000\002\376\001\000\000\007\001keyword\376\003\000\000\002\376\001\000\000\004\001char\376\003\000\000\002\376\001\000\000\004\001nu" "ll\376\003\000\000\002\376\001\000\000\007\001boolean\376\003\000\000\002\376\001\000\000\004\001true\376\003\000\000\002\376\001\000\000\005\001false\376\003\000\000\002\376\001\000\000\004\001blob\376\003\000\000\002\376\001\000\000\003\001eof" "\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\005\001float\376\003\000\000\002\376\001\000\000\006\001number\376\003\000\000\002\376\001\000\000\007\001integer\376\003\000\000\002\376\001\000\000\006\001b" "ignum\376\003\000\000\002\376\001\000\000\006\001ratnum\376\003\000\000\002\376\001\000\000\007\001cplxnum\376\003\000\000\002\376\001\000\000\016\001pointer-vector\376\003\000\000\002\376\001\000\000\004\001port" "\376\003\000\000\002\376\001\000\000\007\001pointer\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016")); lf[22]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\004\001list\376\003\000\000\002\376\001\000\000\004\001pair\376\003\000\000\002\376\001\000\000\011\001procedure\376\003\000\000\002\376\001\000\000\006\001vector\376" "\003\000\000\002\376\001\000\000\011\001undefined\376\003\000\000\002\376\001\000\000\012\001deprecated\376\003\000\000\002\376\001\000\000\010\001noreturn\376\003\000\000\002\376\001\000\000\006\001values\376\377\016")); lf[26]=C_h_intern(&lf[26],40, C_text("chicken.compiler.support#node-parameters")); lf[28]=C_h_intern(&lf[28],2, C_text("or")); lf[29]=C_h_intern(&lf[29],6, C_text("forall")); lf[30]=C_h_intern(&lf[30],3, C_text("eof")); lf[31]=C_h_intern(&lf[31],4, C_text("null")); lf[32]=C_h_intern(&lf[32],6, C_text("fixnum")); lf[33]=C_h_intern(&lf[33],4, C_text("char")); lf[34]=C_h_intern(&lf[34],7, C_text("boolean")); lf[35]=C_h_intern(&lf[35],9, C_text("undefined")); lf[36]=C_h_intern(&lf[36],39, C_text("chicken.compiler.scrutinizer#scrutinize")); lf[37]=C_h_intern(&lf[37],6, C_text("string")); lf[38]=C_h_intern(&lf[38],7, C_text("keyword")); lf[39]=C_h_intern(&lf[39],6, C_text("symbol")); lf[40]=C_h_intern(&lf[40],7, C_text("integer")); lf[41]=C_h_intern(&lf[41],6, C_text("bignum")); lf[42]=C_h_intern(&lf[42],5, C_text("float")); lf[43]=C_h_intern(&lf[43],6, C_text("ratnum")); lf[44]=C_h_intern(&lf[44],7, C_text("cplxnum")); lf[45]=C_h_intern(&lf[45],4, C_text("true")); lf[46]=C_h_intern(&lf[46],5, C_text("false")); lf[47]=C_h_intern(&lf[47],4, C_text("list")); lf[48]=C_h_intern(&lf[48],4, C_text("pair")); lf[50]=C_h_intern(&lf[50],6, C_text("vector")); lf[51]=C_h_intern(&lf[51],19, C_text("scheme#vector->list")); lf[52]=C_h_intern(&lf[52],6, C_text("struct")); lf[53]=C_h_intern(&lf[53],1, C_text("\052")); lf[54]=C_h_intern(&lf[54],38, C_text("chicken.compiler.support#small-bignum\077")); lf[55]=C_h_intern(&lf[55],36, C_text("chicken.compiler.support#big-fixnum\077")); lf[56]=C_h_intern(&lf[56],24, C_text("chicken.keyword#keyword\077")); lf[57]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016")); lf[58]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016")); lf[59]=C_h_intern(&lf[59],10, C_text("deprecated")); lf[60]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016")); lf[62]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016")); lf[63]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016")); lf[64]=C_h_intern(&lf[64],38, C_text("chicken.compiler.support#variable-mark")); lf[65]=C_h_intern(&lf[65],15, C_text("##compiler#type")); lf[66]=C_h_intern(&lf[66],22, C_text("##compiler#type-source")); lf[67]=C_h_intern(&lf[67],31, C_text("chicken.compiler.support#db-get")); lf[68]=C_h_intern(&lf[68],8, C_text("assigned")); lf[69]=C_h_intern(&lf[69],3, C_text("not")); lf[70]=C_h_intern(&lf[70],8, C_text("noreturn")); lf[72]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023Test is always true")); lf[73]=C_h_intern(&lf[73],12, C_text("##sys#notice")); lf[76]=C_h_intern(&lf[76],20, C_text("scheme#string-append")); lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032In conditional expression:")); lf[78]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[79]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[81]=C_decode_literal(C_heaptop,C_text("\376B\000\000-Test condition has always true value of type:")); lf[82]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[84]=C_h_intern(&lf[84],9, C_text("procedure")); lf[85]=C_h_intern(&lf[85],17, C_text("##core#the/result")); lf[86]=C_h_intern(&lf[86],44, C_text("chicken.compiler.support#node-subexpressions")); lf[87]=C_h_intern(&lf[87],15, C_text("##core#variable")); lf[88]=C_h_intern(&lf[88],35, C_text("chicken.compiler.support#node-class")); lf[89]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021Invalid procedure")); lf[90]=C_h_intern(&lf[90],20, C_text("chicken.base#warning")); lf[92]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:")); lf[93]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[94]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[95]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[96]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037Variable ~a is not a procedure.")); lf[97]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021It has this type:")); lf[99]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[100]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021Invalid procedure")); lf[103]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:")); lf[104]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[105]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[106]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[107]=C_decode_literal(C_heaptop,C_text("\376B\000\000:The procedure expression does not appear to be a callable.")); lf[108]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[109]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[110]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[111]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025The expected type is:")); lf[112]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[113]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[114]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[115]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023The actual type is:")); lf[116]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[117]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[120]=C_h_intern(&lf[120],11, C_text("##core#call")); lf[122]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001true\376\377\016")); lf[123]=C_h_intern(&lf[123],5, C_text("quote")); lf[124]=C_h_intern(&lf[124],3, C_text("let")); lf[126]=C_h_intern(&lf[126],18, C_text("##sys#list->vector")); lf[127]=C_h_intern(&lf[127],3, C_text("tmp")); lf[128]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030Predicate is always true")); lf[129]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:")); lf[130]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[131]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[132]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[133]=C_decode_literal(C_heaptop,C_text("\376B\000\000&The predicate will always return true.")); lf[134]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[135]=C_decode_literal(C_heaptop,C_text("\376B\000\000 Procedure ~a is a predicate for:")); lf[136]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[138]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[139]=C_decode_literal(C_heaptop,C_text("\376B\000\000!The given argument has this type:")); lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[141]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[143]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001false\376\377\016")); lf[144]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031Predicate is always false")); lf[145]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:")); lf[146]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[148]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[149]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047The predicate will always return false.")); lf[150]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[151]=C_decode_literal(C_heaptop,C_text("\376B\000\000 Procedure ~a is a predicate for:")); lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[154]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000!The given argument has this type:")); lf[156]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[162]=C_h_intern(&lf[162],26, C_text("##compiler#specializations")); lf[163]=C_h_intern(&lf[163],32, C_text("##compiler#local-specializations")); lf[164]=C_h_intern(&lf[164],49, C_text("chicken.compiler.support#maybe-constant-fold-call")); lf[165]=C_h_intern(&lf[165],20, C_text("##compiler#predicate")); lf[167]=C_h_intern(&lf[167],20, C_text("chicken.base#call/cc")); lf[170]=C_h_intern(&lf[170],40, C_text("chicken.compiler.scrutinizer#match-types")); lf[171]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[172]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001s")); lf[173]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002is")); lf[174]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003are")); lf[175]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031Wrong number of arguments")); lf[177]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:")); lf[178]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[179]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[181]=C_decode_literal(C_heaptop,C_text("\376B\000\000JProcedure `~a\047 is called with ~a argument~a but ~a argument~a ~a expected.")); lf[182]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[183]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033Procedure ~a has this type:")); lf[184]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[185]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[186]=C_h_intern(&lf[186],26, C_text("chicken.base#alist-update!")); lf[187]=C_h_intern(&lf[187],13, C_text("scheme#equal\077")); lf[188]=C_h_intern(&lf[188],16, C_text("##core#undefined")); lf[189]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016")); lf[190]=C_h_intern(&lf[190],11, C_text("##core#proc")); lf[191]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001procedure\376\377\016")); lf[192]=C_h_intern(&lf[192],17, C_text("##core#inline_ref")); lf[193]=C_h_intern(&lf[193],52, C_text("chicken.compiler.support#foreign-type->scrutiny-type")); lf[194]=C_h_intern(&lf[194],6, C_text("result")); lf[195]=C_h_intern(&lf[195],21, C_text("##core#inline_loc_ref")); lf[196]=C_h_intern(&lf[196],2, C_text("if")); lf[197]=C_h_intern(&lf[197],19, C_text("chicken.base#gensym")); lf[198]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026Branch values mismatch")); lf[199]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032In conditional expression:")); lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[202]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[203]=C_decode_literal(C_heaptop,C_text("\376B\000\000.The branches have different numbers of values.")); lf[204]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[205]=C_decode_literal(C_heaptop,C_text("\376B\000\000#The true branch returns ~a value~a:")); lf[206]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[207]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[208]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[209]=C_decode_literal(C_heaptop,C_text("\376B\000\000$The false branch returns ~a value~a:")); lf[210]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[211]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[212]=C_h_intern(&lf[212],8, C_text("for-each")); lf[213]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024Test is always false")); lf[214]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032In conditional expression:")); lf[215]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[216]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[217]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[218]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037Test condition is always false.")); lf[221]=C_h_intern(&lf[221],13, C_text("##core#lambda")); lf[222]=C_h_intern(&lf[222],6, C_text("lambda")); lf[223]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001procedure\376\377\016")); lf[224]=C_h_intern(&lf[224],18, C_text("##sys#dynamic-wind")); lf[225]=C_h_intern(&lf[225],20, C_text("chicken.base#butlast")); lf[226]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016")); lf[227]=C_h_intern(&lf[227],27, C_text("##sys#decompose-lambda-list")); lf[228]=C_h_intern(&lf[228],4, C_text("set!")); lf[229]=C_h_intern(&lf[229],11, C_text("##core#set!")); lf[230]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\006\001\376\377\016")); lf[231]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001undefined\376\377\016")); lf[232]=C_h_intern(&lf[232],12, C_text("scheme#cdaar")); lf[233]=C_h_intern(&lf[233],12, C_text("scheme#caaar")); lf[234]=C_h_intern(&lf[234],8, C_text("captured")); lf[235]=C_h_intern(&lf[235],38, C_text("chicken.compiler.support#mark-variable")); lf[236]=C_h_intern(&lf[236],9, C_text("inference")); lf[237]=C_h_intern(&lf[237],6, C_text("format")); lf[238]=C_h_intern(&lf[238],34, C_text("chicken.compiler.support#debugging")); lf[239]=C_h_intern(&lf[239],1, C_text("I")); lf[240]=C_h_intern(&lf[240],30, C_text("chicken.base#get-output-string")); lf[241]=C_h_intern(&lf[241],18, C_text("##sys#write-char-0")); lf[242]=C_h_intern(&lf[242],11, C_text("##sys#print")); lf[243]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003(: ")); lf[244]=C_h_intern(&lf[244],31, C_text("chicken.base#open-output-string")); lf[246]=C_h_intern(&lf[246],34, C_text("chicken.compiler.support#tree-copy")); lf[247]=C_h_intern(&lf[247],2, C_text("no")); lf[248]=C_h_intern(&lf[248],17, C_text("##compiler#inline")); lf[249]=C_h_intern(&lf[249],42, C_text("chicken.compiler.support#variable-visible\077")); lf[250]=C_h_intern(&lf[250],11, C_text("local-value")); lf[251]=C_h_intern(&lf[251],5, C_text("value")); lf[252]=C_h_intern(&lf[252],7, C_text("unknown")); lf[253]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022Invalid assignment")); lf[254]=C_h_intern(&lf[254],21, C_text("scheme#string->symbol")); lf[255]=C_h_intern(&lf[255],34, C_text("chicken.compiler.support#real-name")); lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In assignment:")); lf[257]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[258]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[259]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[260]=C_decode_literal(C_heaptop,C_text("\376B\000\000(Variable `~a\047 is assigned invalid value.")); lf[261]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[262]=C_decode_literal(C_heaptop,C_text("\376B\000\000!The assigned value has this type:")); lf[263]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[264]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[265]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[266]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033The declared type of ~a is:")); lf[267]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[268]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[270]=C_h_intern(&lf[270],16, C_text("##core#primitive")); lf[271]=C_h_intern(&lf[271],34, C_text("chicken.compiler.support#make-node")); lf[273]=C_h_intern(&lf[273],16, C_text("##compiler#clean")); lf[274]=C_h_intern(&lf[274],15, C_text("##compiler#pure")); lf[275]=C_h_intern(&lf[275],41, C_text("chicken.compiler.scrutinizer#refine-types")); lf[276]=C_h_intern(&lf[276],30, C_text("##compiler#special-result-type")); lf[277]=C_h_intern(&lf[277],22, C_text("chicken.base#alist-ref")); lf[278]=C_h_intern(&lf[278],18, C_text("##compiler#enforce")); lf[279]=C_h_intern(&lf[279],10, C_text("##core#the")); lf[280]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021Not enough values")); lf[281]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In expression:")); lf[282]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[283]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[284]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[285]=C_decode_literal(C_heaptop,C_text("\376B\000\0006Expression returns 0 values but is declared to return:")); lf[286]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[287]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[288]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015Type mismatch")); lf[289]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In expression:")); lf[290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[291]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[292]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[293]=C_decode_literal(C_heaptop,C_text("\376B\000\0004Expression\047s declared and actual types do not match.")); lf[294]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[295]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025The declared type is:")); lf[296]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[297]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[298]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[299]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023The actual type is:")); lf[300]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[301]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[303]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017Too many values")); lf[304]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In expression:")); lf[305]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[306]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[307]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[308]=C_decode_literal(C_heaptop,C_text("\376B\000\000#Expression returns too many values.")); lf[309]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[310]=C_decode_literal(C_heaptop,C_text("\376B\000\000;The expression returns ~a values but is declared to return:")); lf[311]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[312]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[313]=C_h_intern(&lf[313],15, C_text("##core#typecase")); lf[315]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[316]=C_h_intern(&lf[316],39, C_text("chicken.compiler.support#quit-compiling")); lf[317]=C_h_intern(&lf[317],33, C_text("chicken.string#string-intersperse")); lf[318]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\012\012")); lf[320]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[321]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[322]=C_h_intern(&lf[322],19, C_text("chicken.string#conc")); lf[323]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[324]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\012 ")); lf[326]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021No typecase match")); lf[327]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~%")); lf[328]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[329]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[330]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042In `compiler-typecase\047 expression:")); lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 ~a")); lf[333]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[334]=C_decode_literal(C_heaptop,C_text("\376B\000\000, Tested expression does not match any case.")); lf[335]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[336]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037 The expression has this type:")); lf[337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[338]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[339]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[340]=C_decode_literal(C_heaptop,C_text("\376B\000\000% The specified type cases are these:")); lf[341]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[342]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[343]=C_h_intern(&lf[343],13, C_text("##core#switch")); lf[344]=C_h_intern(&lf[344],11, C_text("##core#cond")); lf[345]=C_h_intern(&lf[345],29, C_text("chicken.compiler.support#bomb")); lf[346]=C_decode_literal(C_heaptop,C_text("\376B\000\000!scrutinize: unexpected node class")); lf[347]=C_decode_literal(C_heaptop,C_text("\376B\000\000-some variable types do not satisfy strictness")); lf[348]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001o\376\003\000\000\002\376\001\000\000\001\001e\376\377\016")); lf[349]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037assignments to immediate values")); lf[350]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001o\376\003\000\000\002\376\001\000\000\001\001e\376\377\016")); lf[351]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020dropped branches")); lf[352]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001o\376\003\000\000\002\376\001\000\000\001\001e\376\377\016")); lf[353]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012safe calls")); lf[354]=C_h_intern(&lf[354],21, C_text("##sys#standard-output")); lf[355]=C_h_intern(&lf[355],6, C_text("printf")); lf[356]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[357]=C_h_intern(&lf[357],18, C_text("chicken.base#print")); lf[358]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020specializations:")); lf[359]=C_h_intern(&lf[359],46, C_text("chicken.compiler.support#with-debugging-output")); lf[360]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001o\376\003\000\000\002\376\001\000\000\001\001e\376\377\016")); lf[361]=C_h_intern(&lf[361],9, C_text("vector-of")); lf[362]=C_h_intern(&lf[362],23, C_text("chicken.base#constantly")); lf[363]=C_h_intern(&lf[363],7, C_text("list-of")); lf[364]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\004\001pair\376\003\000\000\002\376\001\000\000\004\001null\376\377\016")); lf[365]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\003\000\000\002\376\001\000\000\012\001#!optional\376\377\016")); lf[366]=C_h_intern(&lf[366],10, C_text("#!optional")); lf[367]=C_h_intern(&lf[367],6, C_text("#!rest")); lf[369]=C_h_intern(&lf[369],14, C_text("scheme#reverse")); lf[370]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001undefined\376\003\000\000\002\376\001\000\000\010\001noreturn\376\377\016")); lf[374]=C_h_intern(&lf[374],6, C_text("refine")); lf[375]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001pair\376\003\000\000\002\376\001\000\000\004\001pair\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001li" "st\376\003\000\000\002\376\001\000\000\007\001list-of\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001vector\376\003\000\000\002\376\001\000\000\011\001vector-of\376\003\000" "\000\002\376\001\000\000\001\001\052\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001boolean\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\004\001true\376\003\000\000\002\376\001\000\000\005\001false\376" "\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001integer\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\006\001bignum\376\377\016\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\006\001number\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\005\001float\376\003\000\000\002\376\001\000\000\006\001bignum" "\376\003\000\000\002\376\001\000\000\006\001ratnum\376\003\000\000\002\376\001\000\000\007\001cplxnum\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001procedure\376\003\000\000\002\376\001\000\000\011\001proced" "ure\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001#!rest\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016\376\001\000\000\001\001\052\376\377\016")); lf[376]=C_h_intern(&lf[376],10, C_text("scheme#eq\077")); lf[377]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016")); lf[378]=C_h_intern(&lf[378],14, C_text("##core#tv-root")); lf[379]=C_h_intern(&lf[379],17, C_text("chicken.plist#get")); lf[380]=C_h_intern(&lf[380],5, C_text("foldl")); lf[381]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001procedure\376\377\016")); lf[383]=C_h_intern(&lf[383],6, C_text("number")); lf[384]=C_h_intern(&lf[384],36, C_text("chicken.compiler.scrutinizer#type<=\077")); lf[385]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\005\001float\376\003\000\000\002\376\001\000\000\006\001bignum\376\003\000\000\002\376\001\000\000\006\001ratnum\376\003\000\000\002\376\001\000\000\007\001cp" "lxnum\376\377\016")); lf[386]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\006\001bignum\376\377\016")); lf[387]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001true\376\003\000\000\002\376\001\000\000\005\001false\376\377\016")); lf[391]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001procedure\376\377\016")); lf[392]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016")); lf[393]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016")); lf[394]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016")); lf[395]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\377\016")); lf[396]=C_h_intern(&lf[396],21, C_text("chicken.base#identity")); lf[397]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001null\376\003\000\000\002\376\001\000\000\004\001pair\376\377\016")); lf[398]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001forall\376\003\000\000\002\376\001\000\000\006\001refine\376\377\016")); lf[399]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001forall\376\003\000\000\002\376\001\000\000\006\001refine\376\377\016")); lf[400]=C_decode_literal(C_heaptop,C_text("\376B\000\000)procedure-arguments: not a procedure type")); lf[401]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047procedure-results: not a procedure type")); lf[402]=C_h_intern(&lf[402],6, C_text("values")); lf[403]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001noreturn\376\377\016")); lf[405]=C_decode_literal(C_heaptop,C_text("\376B\000\000,resolve: can\047t resolve unknown type-variable")); lf[406]=C_h_intern(&lf[406],12, C_text("##sys#append")); lf[407]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001values\376\377\016")); lf[408]=C_h_intern(&lf[408],47, C_text("chicken.compiler.scrutinizer#load-type-database")); lf[409]=C_h_intern(&lf[409],42, C_text("chicken.compiler.scrutinizer#validate-type")); lf[410]=C_h_intern(&lf[410],52, C_text("chicken.compiler.scrutinizer#install-specializations")); lf[411]=C_h_intern(&lf[411],2, C_text("db")); lf[412]=C_h_intern(&lf[412],22, C_text("chicken.format#sprintf")); lf[413]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047Declared type for toplevel binding `~a\047")); lf[414]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012~%~%~a~%~%")); lf[415]=C_decode_literal(C_heaptop,C_text("\376B\000\000( conflicts with previously loaded type:")); lf[416]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006~%~%~a")); lf[417]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047:")); lf[418]=C_decode_literal(C_heaptop,C_text("\376B\000\000 Invalid type specification for `")); lf[419]=C_h_intern_kw(&lf[419],4, C_text("pure")); lf[420]=C_h_intern_kw(&lf[420],5, C_text("clean")); lf[421]=C_h_intern_kw(&lf[421],7, C_text("enforce")); lf[422]=C_h_intern_kw(&lf[422],8, C_text("foldable")); lf[423]=C_h_intern(&lf[423],19, C_text("##compiler#foldable")); lf[424]=C_h_intern_kw(&lf[424],9, C_text("predicate")); lf[425]=C_decode_literal(C_heaptop,C_text("\376B\000\0003load-type-database: invalid procedure-type property")); lf[426]=C_h_intern(&lf[426],27, C_text("scheme#call-with-input-file")); lf[427]=C_h_intern(&lf[427],41, C_text("chicken.compiler.support#read-expressions")); lf[428]=C_h_intern(&lf[428],1, C_text("p")); lf[429]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005\047 ...")); lf[430]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027loading type database `")); lf[431]=C_h_intern(&lf[431],18, C_text("##sys#file-exists\077")); lf[432]=C_h_intern(&lf[432],22, C_text("chicken.load#find-file")); lf[433]=C_h_intern(&lf[433],32, C_text("chicken.platform#repository-path")); lf[434]=C_h_intern(&lf[434],44, C_text("chicken.compiler.scrutinizer#emit-types-file")); lf[435]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015; END OF FILE")); lf[436]=C_h_intern(&lf[436],14, C_text("scheme#newline")); lf[437]=C_h_intern(&lf[437],23, C_text("chicken.pretty-print#pp")); lf[438]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\002enforce\376\377\016")); lf[439]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\002pure\376\377\016")); lf[440]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\002clean\376\377\016")); lf[441]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\002foldable\376\377\016")); lf[442]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001local\376\003\000\000\002\376\001\000\000\011\001inference\376\377\016")); lf[443]=C_h_intern(&lf[443],36, C_text("chicken.internal#hash-table-for-each")); lf[444]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027; GENERATED BY CHICKEN ")); lf[445]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 FROM ")); lf[446]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[447]=C_h_intern(&lf[447],32, C_text("chicken.platform#chicken-version")); lf[448]=C_h_intern(&lf[448],26, C_text("scheme#with-output-to-file")); lf[450]=C_h_intern(&lf[450],35, C_text("chicken.compiler.support#copy-node!")); lf[451]=C_h_intern(&lf[451],41, C_text("chicken.compiler.support#build-node-graph")); lf[452]=C_h_intern(&lf[452],34, C_text("chicken.compiler.support#copy-node")); lf[454]=C_h_intern(&lf[454],13, C_text("scheme#values")); lf[456]=C_h_intern(&lf[456],3, C_text("...")); lf[457]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016")); lf[458]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016")); lf[459]=C_h_intern(&lf[459],5, C_text("#!key")); lf[460]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001#!rest\376\003\000\000\002\376\001\000\000\001\001\052\376\377\016")); lf[461]=C_h_intern(&lf[461],5, C_text("&rest")); lf[462]=C_h_intern(&lf[462],9, C_text("&optional")); lf[463]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001u8vector\376\003\000\000\002\376\001\000\000\010\001s8vector\376\003\000\000\002\376\001\000\000\011\001u16vector\376\003\000\000\002\376\001\000\000\011\001s16vector\376\003" "\000\000\002\376\001\000\000\011\001u32vector\376\003\000\000\002\376\001\000\000\011\001s32vector\376\003\000\000\002\376\001\000\000\011\001u64vector\376\003\000\000\002\376\001\000\000\011\001s64vector\376\003" "\000\000\002\376\001\000\000\011\001f32vector\376\003\000\000\002\376\001\000\000\011\001f64vector\376\003\000\000\002\376\001\000\000\006\001thread\376\003\000\000\002\376\001\000\000\005\001queue\376\003\000\000\002\376\001\000\000" "\013\001environment\376\003\000\000\002\376\001\000\000\004\001time\376\003\000\000\002\376\001\000\000\014\001continuation\376\003\000\000\002\376\001\000\000\004\001lock\376\003\000\000\002\376\001\000\000\004\001mma" "p\376\003\000\000\002\376\001\000\000\011\001condition\376\003\000\000\002\376\001\000\000\012\001hash-table\376\003\000\000\002\376\001\000\000\014\001tcp-listener\376\377\016")); lf[464]=C_h_intern(&lf[464],9, C_text("immediate")); lf[465]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\003\001eof\376\003\000\000\002\376\001\000\000\004\001null\376\003\000\000\002\376\001\000\000\006\001fixnum\376\003\000\000\002\376\001\000\000\004\001char\376\003\000\000\002\376" "\001\000\000\007\001boolean\376\377\016")); lf[466]=C_h_intern(&lf[466],3, C_text("any")); lf[467]=C_h_intern(&lf[467],4, C_text("void")); lf[468]=C_h_intern(&lf[468],10, C_text("input-port")); lf[469]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001refine\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001input\376\377\016\376\003\000\000\002\376\001\000\000\004\001port\376\377\016")); lf[470]=C_h_intern(&lf[470],11, C_text("output-port")); lf[471]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001refine\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001output\376\377\016\376\003\000\000\002\376\001\000\000\004\001port\376\377\016")); lf[472]=C_h_intern(&lf[472],14, C_text("scheme#symbol\077")); lf[473]=C_h_intern(&lf[473],3, C_text("-->")); lf[474]=C_h_intern(&lf[474],1, C_text(":")); lf[475]=C_h_intern(&lf[475],2, C_text("->")); lf[476]=C_h_intern(&lf[476],9, C_text("##sys#get")); lf[477]=C_h_intern(&lf[477],28, C_text("##compiler#type-abbreviation")); lf[478]=C_h_intern(&lf[478],18, C_text("chicken.plist#put!")); lf[479]=C_h_intern(&lf[479],21, C_text("scheme#symbol->string")); lf[480]=C_h_intern(&lf[480],27, C_text("chicken.syntax#strip-syntax")); lf[481]=C_h_intern(&lf[481],52, C_text("chicken.compiler.scrutinizer#check-and-validate-type")); lf[482]=C_h_intern(&lf[482],18, C_text("chicken.base#error")); lf[483]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026invalid type specifier")); lf[484]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035invalid specialization format")); lf[485]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047invalid argument type in specialization")); lf[486]=C_decode_literal(C_heaptop,C_text("\376B\000\000%invalid result type in specialization")); lf[487]=C_h_intern(&lf[487],15, C_text("##sys#substring")); lf[489]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006vector")); lf[490]=C_h_intern(&lf[490],10, C_text("##sys#slot")); lf[491]=C_h_intern(&lf[491],8, C_text("not-used")); lf[492]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004list")); lf[493]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004list")); lf[494]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[495]=C_h_intern(&lf[495],19, C_text("##sys#string-append")); lf[496]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[497]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[498]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[499]=C_h_intern(&lf[499],27, C_text("chicken.string#string-split")); lf[500]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[501]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[502]=C_h_intern_kw(&lf[502],2, C_text("tv")); lf[503]=C_h_intern(&lf[503],11, C_text("##sys#error")); lf[504]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037type->pp-string: unhandled type")); lf[505]=C_h_intern(&lf[505],27, C_text("chicken.string#string-chomp")); lf[506]=C_h_intern(&lf[506],34, C_text("chicken.port#with-output-to-string")); lf[507]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001...\376\377\016")); lf[508]=C_h_intern(&lf[508],46, C_text("chicken.compiler.support#build-expression-tree")); lf[509]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[510]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047,")); lf[511]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011In file `")); lf[512]=C_h_intern(&lf[512],42, C_text("chicken.compiler.support#source-info->line")); lf[513]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[514]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021At the toplevel,\012")); lf[515]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[516]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[518]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047,")); lf[519]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In procedure `")); lf[520]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047,")); lf[521]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013In module `")); lf[522]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[523]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030In a toplevel procedure,")); lf[524]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047,")); lf[525]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In procedure `")); lf[526]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025In a local procedure,")); lf[527]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001#")); lf[528]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\047 from module `")); lf[529]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027This is the expression:")); lf[530]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[531]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[532]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047It is a call to ~a which has this type:")); lf[533]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[534]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[535]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[536]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[537]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[538]=C_h_intern(&lf[538],25, C_text("chicken.base#flush-output")); lf[539]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[540]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[541]=C_h_intern(&lf[541],22, C_text("chicken.format#fprintf")); lf[542]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[543]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[544]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[545]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020Invalid argument")); lf[546]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:")); lf[547]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[548]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[549]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[550]=C_decode_literal(C_heaptop,C_text("\376B\000\0003Argument #~a to procedure `~a\047 has an invalid type:")); lf[551]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[552]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[553]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[554]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025The expected type is:")); lf[555]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[556]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[557]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[558]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[559]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[560]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033Procedure ~a has this type:")); lf[561]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[562]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[563]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[564]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 `")); lf[565]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:")); lf[566]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[567]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[568]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[569]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036Argument #~a to procedure~a ~a")); lf[570]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[571]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[572]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032Not enough argument values")); lf[573]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033does not return any values.")); lf[574]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030Too many argument values")); lf[575]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032 values but 1 is expected.")); lf[576]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010returns ")); lf[577]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021a negative index ")); lf[578]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047.")); lf[579]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014 of length `")); lf[580]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010\047 for a ")); lf[581]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007index `")); lf[582]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In procedure call:")); lf[583]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[584]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[585]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[586]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036Procedure ~a is called with ~a")); lf[587]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 index")); lf[588]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011Negative ")); lf[589]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023 index out of range")); lf[590]=C_h_intern(&lf[590],16, C_text("scheme#substring")); lf[591]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017In conditional:")); lf[592]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[593]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[594]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[595]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026The test expression ~a")); lf[596]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[597]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[598]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033Zero values for conditional")); lf[599]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021returns 0 values.")); lf[600]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037Too many values for conditional")); lf[601]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 values.")); lf[602]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010returns ")); lf[603]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022In let expression:")); lf[604]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[605]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[606]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[607]=C_decode_literal(C_heaptop,C_text("\376B\000\000/Variable `~a\047 is bound to an expression that ~a")); lf[608]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[609]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[610]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021returns 0 values.")); lf[611]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\047 has zero values")); lf[612]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020Let binding to `")); lf[613]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 values.")); lf[614]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010returns ")); lf[615]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007 values")); lf[616]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\047 has ")); lf[617]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020Let binding to `")); lf[618]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In assignment:")); lf[619]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[620]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[621]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[622]=C_decode_literal(C_heaptop,C_text("\376B\000\0001Variable `~a\047 is assigned from expression that ~a")); lf[623]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[624]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[625]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021returns 0 values.")); lf[626]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\047 has zero values")); lf[627]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017Assignment to `")); lf[628]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 values.")); lf[629]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010returns ")); lf[630]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007 values")); lf[631]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\047 has ")); lf[632]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017Assignment to `")); lf[633]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035The suggested alternative is ")); lf[634]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[635]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016In expression:")); lf[636]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[637]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[638]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~%~%")); lf[639]=C_decode_literal(C_heaptop,C_text("\376B\000\000 Use of deprecated identifier ~a.")); lf[640]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~a")); lf[641]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027Deprecated identifier `")); lf[642]=C_h_intern(&lf[642],10, C_text("##sys#put!")); lf[643]=C_h_intern(&lf[643],18, C_text("scheme#make-vector")); lf[644]=C_h_intern(&lf[644],12, C_text("##sys#vector")); lf[645]=C_h_intern(&lf[645],13, C_text("scheme#vector")); lf[646]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001null\376\377\016")); lf[647]=C_h_intern(&lf[647],10, C_text("##sys#list")); lf[648]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001null\376\377\016")); lf[649]=C_h_intern(&lf[649],11, C_text("scheme#list")); lf[650]=C_h_intern(&lf[650],16, C_text("scheme#list-tail")); lf[651]=C_h_intern(&lf[651],15, C_text("scheme#list-ref")); lf[652]=C_h_intern(&lf[652],14, C_text("##sys#setislot")); lf[653]=C_h_intern(&lf[653],13, C_text("##sys#setslot")); lf[654]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001undefined\376\377\016")); lf[655]=C_h_intern(&lf[655],18, C_text("scheme#vector-set!")); lf[656]=C_h_intern(&lf[656],16, C_text("##sys#vector-ref")); lf[657]=C_h_intern(&lf[657],17, C_text("scheme#vector-ref")); lf[658]=C_h_intern(&lf[658],14, C_text("pointer-vector")); lf[659]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001pointer-vector\376\377\016")); lf[660]=C_h_intern(&lf[660],20, C_text("##sys#make-structure")); C_register_lf2(lf,661,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6712,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[1387] = { {C_text("f25846:scrutinizer_2escm"),(void*)f25846}, {C_text("f25952:scrutinizer_2escm"),(void*)f25952}, {C_text("f26161:scrutinizer_2escm"),(void*)f26161}, {C_text("f26629:scrutinizer_2escm"),(void*)f26629}, {C_text("f26761:scrutinizer_2escm"),(void*)f26761}, {C_text("f26767:scrutinizer_2escm"),(void*)f26767}, {C_text("f26777:scrutinizer_2escm"),(void*)f26777}, {C_text("f26785:scrutinizer_2escm"),(void*)f26785}, {C_text("f26825:scrutinizer_2escm"),(void*)f26825}, {C_text("f26831:scrutinizer_2escm"),(void*)f26831}, {C_text("f26845:scrutinizer_2escm"),(void*)f26845}, {C_text("f28121:scrutinizer_2escm"),(void*)f28121}, {C_text("f28127:scrutinizer_2escm"),(void*)f28127}, {C_text("f28147:scrutinizer_2escm"),(void*)f28147}, {C_text("f28390:scrutinizer_2escm"),(void*)f28390}, {C_text("f28396:scrutinizer_2escm"),(void*)f28396}, {C_text("f28402:scrutinizer_2escm"),(void*)f28402}, {C_text("f_10004:scrutinizer_2escm"),(void*)f_10004}, {C_text("f_10008:scrutinizer_2escm"),(void*)f_10008}, {C_text("f_10012:scrutinizer_2escm"),(void*)f_10012}, {C_text("f_10014:scrutinizer_2escm"),(void*)f_10014}, {C_text("f_10036:scrutinizer_2escm"),(void*)f_10036}, {C_text("f_10043:scrutinizer_2escm"),(void*)f_10043}, {C_text("f_10046:scrutinizer_2escm"),(void*)f_10046}, {C_text("f_10049:scrutinizer_2escm"),(void*)f_10049}, {C_text("f_10057:scrutinizer_2escm"),(void*)f_10057}, {C_text("f_10066:scrutinizer_2escm"),(void*)f_10066}, {C_text("f_10073:scrutinizer_2escm"),(void*)f_10073}, {C_text("f_10080:scrutinizer_2escm"),(void*)f_10080}, {C_text("f_10088:scrutinizer_2escm"),(void*)f_10088}, {C_text("f_10090:scrutinizer_2escm"),(void*)f_10090}, {C_text("f_10098:scrutinizer_2escm"),(void*)f_10098}, {C_text("f_10102:scrutinizer_2escm"),(void*)f_10102}, {C_text("f_10110:scrutinizer_2escm"),(void*)f_10110}, {C_text("f_10114:scrutinizer_2escm"),(void*)f_10114}, {C_text("f_10149:scrutinizer_2escm"),(void*)f_10149}, {C_text("f_10171:scrutinizer_2escm"),(void*)f_10171}, {C_text("f_10183:scrutinizer_2escm"),(void*)f_10183}, {C_text("f_10196:scrutinizer_2escm"),(void*)f_10196}, {C_text("f_10218:scrutinizer_2escm"),(void*)f_10218}, {C_text("f_10227:scrutinizer_2escm"),(void*)f_10227}, {C_text("f_10229:scrutinizer_2escm"),(void*)f_10229}, {C_text("f_10300:scrutinizer_2escm"),(void*)f_10300}, {C_text("f_10303:scrutinizer_2escm"),(void*)f_10303}, {C_text("f_10306:scrutinizer_2escm"),(void*)f_10306}, {C_text("f_10312:scrutinizer_2escm"),(void*)f_10312}, {C_text("f_10315:scrutinizer_2escm"),(void*)f_10315}, {C_text("f_10318:scrutinizer_2escm"),(void*)f_10318}, {C_text("f_10324:scrutinizer_2escm"),(void*)f_10324}, {C_text("f_10335:scrutinizer_2escm"),(void*)f_10335}, {C_text("f_10343:scrutinizer_2escm"),(void*)f_10343}, {C_text("f_10370:scrutinizer_2escm"),(void*)f_10370}, {C_text("f_10389:scrutinizer_2escm"),(void*)f_10389}, {C_text("f_10407:scrutinizer_2escm"),(void*)f_10407}, {C_text("f_10417:scrutinizer_2escm"),(void*)f_10417}, {C_text("f_10432:scrutinizer_2escm"),(void*)f_10432}, {C_text("f_10435:scrutinizer_2escm"),(void*)f_10435}, {C_text("f_10438:scrutinizer_2escm"),(void*)f_10438}, {C_text("f_10447:scrutinizer_2escm"),(void*)f_10447}, {C_text("f_10453:scrutinizer_2escm"),(void*)f_10453}, {C_text("f_10459:scrutinizer_2escm"),(void*)f_10459}, {C_text("f_10462:scrutinizer_2escm"),(void*)f_10462}, {C_text("f_10469:scrutinizer_2escm"),(void*)f_10469}, {C_text("f_10475:scrutinizer_2escm"),(void*)f_10475}, {C_text("f_10478:scrutinizer_2escm"),(void*)f_10478}, {C_text("f_10481:scrutinizer_2escm"),(void*)f_10481}, {C_text("f_10484:scrutinizer_2escm"),(void*)f_10484}, {C_text("f_10487:scrutinizer_2escm"),(void*)f_10487}, {C_text("f_10490:scrutinizer_2escm"),(void*)f_10490}, {C_text("f_10498:scrutinizer_2escm"),(void*)f_10498}, {C_text("f_10518:scrutinizer_2escm"),(void*)f_10518}, {C_text("f_10522:scrutinizer_2escm"),(void*)f_10522}, {C_text("f_10551:scrutinizer_2escm"),(void*)f_10551}, {C_text("f_10558:scrutinizer_2escm"),(void*)f_10558}, {C_text("f_10561:scrutinizer_2escm"),(void*)f_10561}, {C_text("f_10581:scrutinizer_2escm"),(void*)f_10581}, {C_text("f_10588:scrutinizer_2escm"),(void*)f_10588}, {C_text("f_10610:scrutinizer_2escm"),(void*)f_10610}, {C_text("f_10614:scrutinizer_2escm"),(void*)f_10614}, {C_text("f_10621:scrutinizer_2escm"),(void*)f_10621}, {C_text("f_10623:scrutinizer_2escm"),(void*)f_10623}, {C_text("f_10650:scrutinizer_2escm"),(void*)f_10650}, {C_text("f_10657:scrutinizer_2escm"),(void*)f_10657}, {C_text("f_10673:scrutinizer_2escm"),(void*)f_10673}, {C_text("f_10677:scrutinizer_2escm"),(void*)f_10677}, {C_text("f_10679:scrutinizer_2escm"),(void*)f_10679}, {C_text("f_10686:scrutinizer_2escm"),(void*)f_10686}, {C_text("f_10692:scrutinizer_2escm"),(void*)f_10692}, {C_text("f_10695:scrutinizer_2escm"),(void*)f_10695}, {C_text("f_10698:scrutinizer_2escm"),(void*)f_10698}, {C_text("f_10701:scrutinizer_2escm"),(void*)f_10701}, {C_text("f_10704:scrutinizer_2escm"),(void*)f_10704}, {C_text("f_10707:scrutinizer_2escm"),(void*)f_10707}, {C_text("f_10712:scrutinizer_2escm"),(void*)f_10712}, {C_text("f_10718:scrutinizer_2escm"),(void*)f_10718}, {C_text("f_10721:scrutinizer_2escm"),(void*)f_10721}, {C_text("f_10728:scrutinizer_2escm"),(void*)f_10728}, {C_text("f_10731:scrutinizer_2escm"),(void*)f_10731}, {C_text("f_10756:scrutinizer_2escm"),(void*)f_10756}, {C_text("f_10760:scrutinizer_2escm"),(void*)f_10760}, {C_text("f_10766:scrutinizer_2escm"),(void*)f_10766}, {C_text("f_10769:scrutinizer_2escm"),(void*)f_10769}, {C_text("f_10779:scrutinizer_2escm"),(void*)f_10779}, {C_text("f_10791:scrutinizer_2escm"),(void*)f_10791}, {C_text("f_10816:scrutinizer_2escm"),(void*)f_10816}, {C_text("f_10833:scrutinizer_2escm"),(void*)f_10833}, {C_text("f_10846:scrutinizer_2escm"),(void*)f_10846}, {C_text("f_10849:scrutinizer_2escm"),(void*)f_10849}, {C_text("f_10852:scrutinizer_2escm"),(void*)f_10852}, {C_text("f_10858:scrutinizer_2escm"),(void*)f_10858}, {C_text("f_10864:scrutinizer_2escm"),(void*)f_10864}, {C_text("f_10870:scrutinizer_2escm"),(void*)f_10870}, {C_text("f_10876:scrutinizer_2escm"),(void*)f_10876}, {C_text("f_10899:scrutinizer_2escm"),(void*)f_10899}, {C_text("f_10914:scrutinizer_2escm"),(void*)f_10914}, {C_text("f_10920:scrutinizer_2escm"),(void*)f_10920}, {C_text("f_10926:scrutinizer_2escm"),(void*)f_10926}, {C_text("f_10942:scrutinizer_2escm"),(void*)f_10942}, {C_text("f_10948:scrutinizer_2escm"),(void*)f_10948}, {C_text("f_10952:scrutinizer_2escm"),(void*)f_10952}, {C_text("f_10960:scrutinizer_2escm"),(void*)f_10960}, {C_text("f_10982:scrutinizer_2escm"),(void*)f_10982}, {C_text("f_10993:scrutinizer_2escm"),(void*)f_10993}, {C_text("f_10997:scrutinizer_2escm"),(void*)f_10997}, {C_text("f_11006:scrutinizer_2escm"),(void*)f_11006}, {C_text("f_11009:scrutinizer_2escm"),(void*)f_11009}, {C_text("f_11019:scrutinizer_2escm"),(void*)f_11019}, {C_text("f_11031:scrutinizer_2escm"),(void*)f_11031}, {C_text("f_11056:scrutinizer_2escm"),(void*)f_11056}, {C_text("f_11065:scrutinizer_2escm"),(void*)f_11065}, {C_text("f_11075:scrutinizer_2escm"),(void*)f_11075}, {C_text("f_11104:scrutinizer_2escm"),(void*)f_11104}, {C_text("f_11106:scrutinizer_2escm"),(void*)f_11106}, {C_text("f_11114:scrutinizer_2escm"),(void*)f_11114}, {C_text("f_11122:scrutinizer_2escm"),(void*)f_11122}, {C_text("f_11139:scrutinizer_2escm"),(void*)f_11139}, {C_text("f_11141:scrutinizer_2escm"),(void*)f_11141}, {C_text("f_11166:scrutinizer_2escm"),(void*)f_11166}, {C_text("f_11179:scrutinizer_2escm"),(void*)f_11179}, {C_text("f_11208:scrutinizer_2escm"),(void*)f_11208}, {C_text("f_11237:scrutinizer_2escm"),(void*)f_11237}, {C_text("f_11243:scrutinizer_2escm"),(void*)f_11243}, {C_text("f_11262:scrutinizer_2escm"),(void*)f_11262}, {C_text("f_11268:scrutinizer_2escm"),(void*)f_11268}, {C_text("f_11271:scrutinizer_2escm"),(void*)f_11271}, {C_text("f_11293:scrutinizer_2escm"),(void*)f_11293}, {C_text("f_11325:scrutinizer_2escm"),(void*)f_11325}, {C_text("f_11328:scrutinizer_2escm"),(void*)f_11328}, {C_text("f_11341:scrutinizer_2escm"),(void*)f_11341}, {C_text("f_11362:scrutinizer_2escm"),(void*)f_11362}, {C_text("f_11368:scrutinizer_2escm"),(void*)f_11368}, {C_text("f_11371:scrutinizer_2escm"),(void*)f_11371}, {C_text("f_11381:scrutinizer_2escm"),(void*)f_11381}, {C_text("f_11400:scrutinizer_2escm"),(void*)f_11400}, {C_text("f_11425:scrutinizer_2escm"),(void*)f_11425}, {C_text("f_11435:scrutinizer_2escm"),(void*)f_11435}, {C_text("f_11437:scrutinizer_2escm"),(void*)f_11437}, {C_text("f_11447:scrutinizer_2escm"),(void*)f_11447}, {C_text("f_11508:scrutinizer_2escm"),(void*)f_11508}, {C_text("f_11511:scrutinizer_2escm"),(void*)f_11511}, {C_text("f_11514:scrutinizer_2escm"),(void*)f_11514}, {C_text("f_11517:scrutinizer_2escm"),(void*)f_11517}, {C_text("f_11520:scrutinizer_2escm"),(void*)f_11520}, {C_text("f_11523:scrutinizer_2escm"),(void*)f_11523}, {C_text("f_11546:scrutinizer_2escm"),(void*)f_11546}, {C_text("f_11550:scrutinizer_2escm"),(void*)f_11550}, {C_text("f_11558:scrutinizer_2escm"),(void*)f_11558}, {C_text("f_11561:scrutinizer_2escm"),(void*)f_11561}, {C_text("f_11564:scrutinizer_2escm"),(void*)f_11564}, {C_text("f_11567:scrutinizer_2escm"),(void*)f_11567}, {C_text("f_11584:scrutinizer_2escm"),(void*)f_11584}, {C_text("f_11594:scrutinizer_2escm"),(void*)f_11594}, {C_text("f_11621:scrutinizer_2escm"),(void*)f_11621}, {C_text("f_11623:scrutinizer_2escm"),(void*)f_11623}, {C_text("f_11629:scrutinizer_2escm"),(void*)f_11629}, {C_text("f_11639:scrutinizer_2escm"),(void*)f_11639}, {C_text("f_11651:scrutinizer_2escm"),(void*)f_11651}, {C_text("f_11659:scrutinizer_2escm"),(void*)f_11659}, {C_text("f_11679:scrutinizer_2escm"),(void*)f_11679}, {C_text("f_11692:scrutinizer_2escm"),(void*)f_11692}, {C_text("f_11704:scrutinizer_2escm"),(void*)f_11704}, {C_text("f_11711:scrutinizer_2escm"),(void*)f_11711}, {C_text("f_11713:scrutinizer_2escm"),(void*)f_11713}, {C_text("f_11738:scrutinizer_2escm"),(void*)f_11738}, {C_text("f_11760:scrutinizer_2escm"),(void*)f_11760}, {C_text("f_11773:scrutinizer_2escm"),(void*)f_11773}, {C_text("f_11794:scrutinizer_2escm"),(void*)f_11794}, {C_text("f_11815:scrutinizer_2escm"),(void*)f_11815}, {C_text("f_11819:scrutinizer_2escm"),(void*)f_11819}, {C_text("f_11830:scrutinizer_2escm"),(void*)f_11830}, {C_text("f_11839:scrutinizer_2escm"),(void*)f_11839}, {C_text("f_11936:scrutinizer_2escm"),(void*)f_11936}, {C_text("f_11961:scrutinizer_2escm"),(void*)f_11961}, {C_text("f_11967:scrutinizer_2escm"),(void*)f_11967}, {C_text("f_11973:scrutinizer_2escm"),(void*)f_11973}, {C_text("f_11983:scrutinizer_2escm"),(void*)f_11983}, {C_text("f_11990:scrutinizer_2escm"),(void*)f_11990}, {C_text("f_12007:scrutinizer_2escm"),(void*)f_12007}, {C_text("f_12024:scrutinizer_2escm"),(void*)f_12024}, {C_text("f_12058:scrutinizer_2escm"),(void*)f_12058}, {C_text("f_12067:scrutinizer_2escm"),(void*)f_12067}, {C_text("f_12092:scrutinizer_2escm"),(void*)f_12092}, {C_text("f_12098:scrutinizer_2escm"),(void*)f_12098}, {C_text("f_12103:scrutinizer_2escm"),(void*)f_12103}, {C_text("f_12109:scrutinizer_2escm"),(void*)f_12109}, {C_text("f_12114:scrutinizer_2escm"),(void*)f_12114}, {C_text("f_12120:scrutinizer_2escm"),(void*)f_12120}, {C_text("f_12133:scrutinizer_2escm"),(void*)f_12133}, {C_text("f_12150:scrutinizer_2escm"),(void*)f_12150}, {C_text("f_12167:scrutinizer_2escm"),(void*)f_12167}, {C_text("f_12180:scrutinizer_2escm"),(void*)f_12180}, {C_text("f_12208:scrutinizer_2escm"),(void*)f_12208}, {C_text("f_12221:scrutinizer_2escm"),(void*)f_12221}, {C_text("f_12258:scrutinizer_2escm"),(void*)f_12258}, {C_text("f_12299:scrutinizer_2escm"),(void*)f_12299}, {C_text("f_12312:scrutinizer_2escm"),(void*)f_12312}, {C_text("f_12342:scrutinizer_2escm"),(void*)f_12342}, {C_text("f_12412:scrutinizer_2escm"),(void*)f_12412}, {C_text("f_12416:scrutinizer_2escm"),(void*)f_12416}, {C_text("f_12426:scrutinizer_2escm"),(void*)f_12426}, {C_text("f_12430:scrutinizer_2escm"),(void*)f_12430}, {C_text("f_12443:scrutinizer_2escm"),(void*)f_12443}, {C_text("f_12451:scrutinizer_2escm"),(void*)f_12451}, {C_text("f_12456:scrutinizer_2escm"),(void*)f_12456}, {C_text("f_12460:scrutinizer_2escm"),(void*)f_12460}, {C_text("f_12463:scrutinizer_2escm"),(void*)f_12463}, {C_text("f_12472:scrutinizer_2escm"),(void*)f_12472}, {C_text("f_12481:scrutinizer_2escm"),(void*)f_12481}, {C_text("f_12492:scrutinizer_2escm"),(void*)f_12492}, {C_text("f_12497:scrutinizer_2escm"),(void*)f_12497}, {C_text("f_12501:scrutinizer_2escm"),(void*)f_12501}, {C_text("f_12504:scrutinizer_2escm"),(void*)f_12504}, {C_text("f_12513:scrutinizer_2escm"),(void*)f_12513}, {C_text("f_12522:scrutinizer_2escm"),(void*)f_12522}, {C_text("f_12531:scrutinizer_2escm"),(void*)f_12531}, {C_text("f_12541:scrutinizer_2escm"),(void*)f_12541}, {C_text("f_12550:scrutinizer_2escm"),(void*)f_12550}, {C_text("f_12560:scrutinizer_2escm"),(void*)f_12560}, {C_text("f_12573:scrutinizer_2escm"),(void*)f_12573}, {C_text("f_12666:scrutinizer_2escm"),(void*)f_12666}, {C_text("f_12678:scrutinizer_2escm"),(void*)f_12678}, {C_text("f_12681:scrutinizer_2escm"),(void*)f_12681}, {C_text("f_12684:scrutinizer_2escm"),(void*)f_12684}, {C_text("f_12687:scrutinizer_2escm"),(void*)f_12687}, {C_text("f_12693:scrutinizer_2escm"),(void*)f_12693}, {C_text("f_12786:scrutinizer_2escm"),(void*)f_12786}, {C_text("f_12839:scrutinizer_2escm"),(void*)f_12839}, {C_text("f_12858:scrutinizer_2escm"),(void*)f_12858}, {C_text("f_12871:scrutinizer_2escm"),(void*)f_12871}, {C_text("f_12896:scrutinizer_2escm"),(void*)f_12896}, {C_text("f_12929:scrutinizer_2escm"),(void*)f_12929}, {C_text("f_12973:scrutinizer_2escm"),(void*)f_12973}, {C_text("f_12998:scrutinizer_2escm"),(void*)f_12998}, {C_text("f_13031:scrutinizer_2escm"),(void*)f_13031}, {C_text("f_13075:scrutinizer_2escm"),(void*)f_13075}, {C_text("f_13105:scrutinizer_2escm"),(void*)f_13105}, {C_text("f_13117:scrutinizer_2escm"),(void*)f_13117}, {C_text("f_13139:scrutinizer_2escm"),(void*)f_13139}, {C_text("f_13151:scrutinizer_2escm"),(void*)f_13151}, {C_text("f_13181:scrutinizer_2escm"),(void*)f_13181}, {C_text("f_13193:scrutinizer_2escm"),(void*)f_13193}, {C_text("f_13215:scrutinizer_2escm"),(void*)f_13215}, {C_text("f_13403:scrutinizer_2escm"),(void*)f_13403}, {C_text("f_13409:scrutinizer_2escm"),(void*)f_13409}, {C_text("f_13442:scrutinizer_2escm"),(void*)f_13442}, {C_text("f_13456:scrutinizer_2escm"),(void*)f_13456}, {C_text("f_13475:scrutinizer_2escm"),(void*)f_13475}, {C_text("f_13478:scrutinizer_2escm"),(void*)f_13478}, {C_text("f_13484:scrutinizer_2escm"),(void*)f_13484}, {C_text("f_13505:scrutinizer_2escm"),(void*)f_13505}, {C_text("f_13509:scrutinizer_2escm"),(void*)f_13509}, {C_text("f_13520:scrutinizer_2escm"),(void*)f_13520}, {C_text("f_13522:scrutinizer_2escm"),(void*)f_13522}, {C_text("f_13545:scrutinizer_2escm"),(void*)f_13545}, {C_text("f_13557:scrutinizer_2escm"),(void*)f_13557}, {C_text("f_13559:scrutinizer_2escm"),(void*)f_13559}, {C_text("f_13584:scrutinizer_2escm"),(void*)f_13584}, {C_text("f_13600:scrutinizer_2escm"),(void*)f_13600}, {C_text("f_13628:scrutinizer_2escm"),(void*)f_13628}, {C_text("f_13634:scrutinizer_2escm"),(void*)f_13634}, {C_text("f_13646:scrutinizer_2escm"),(void*)f_13646}, {C_text("f_13666:scrutinizer_2escm"),(void*)f_13666}, {C_text("f_13669:scrutinizer_2escm"),(void*)f_13669}, {C_text("f_13672:scrutinizer_2escm"),(void*)f_13672}, {C_text("f_13675:scrutinizer_2escm"),(void*)f_13675}, {C_text("f_13678:scrutinizer_2escm"),(void*)f_13678}, {C_text("f_13681:scrutinizer_2escm"),(void*)f_13681}, {C_text("f_13688:scrutinizer_2escm"),(void*)f_13688}, {C_text("f_13696:scrutinizer_2escm"),(void*)f_13696}, {C_text("f_13700:scrutinizer_2escm"),(void*)f_13700}, {C_text("f_13715:scrutinizer_2escm"),(void*)f_13715}, {C_text("f_13721:scrutinizer_2escm"),(void*)f_13721}, {C_text("f_13731:scrutinizer_2escm"),(void*)f_13731}, {C_text("f_13737:scrutinizer_2escm"),(void*)f_13737}, {C_text("f_13743:scrutinizer_2escm"),(void*)f_13743}, {C_text("f_13746:scrutinizer_2escm"),(void*)f_13746}, {C_text("f_13749:scrutinizer_2escm"),(void*)f_13749}, {C_text("f_13766:scrutinizer_2escm"),(void*)f_13766}, {C_text("f_13791:scrutinizer_2escm"),(void*)f_13791}, {C_text("f_13802:scrutinizer_2escm"),(void*)f_13802}, {C_text("f_13820:scrutinizer_2escm"),(void*)f_13820}, {C_text("f_13830:scrutinizer_2escm"),(void*)f_13830}, {C_text("f_13846:scrutinizer_2escm"),(void*)f_13846}, {C_text("f_13850:scrutinizer_2escm"),(void*)f_13850}, {C_text("f_13856:scrutinizer_2escm"),(void*)f_13856}, {C_text("f_13908:scrutinizer_2escm"),(void*)f_13908}, {C_text("f_13910:scrutinizer_2escm"),(void*)f_13910}, {C_text("f_13935:scrutinizer_2escm"),(void*)f_13935}, {C_text("f_13954:scrutinizer_2escm"),(void*)f_13954}, {C_text("f_13973:scrutinizer_2escm"),(void*)f_13973}, {C_text("f_13988:scrutinizer_2escm"),(void*)f_13988}, {C_text("f_14001:scrutinizer_2escm"),(void*)f_14001}, {C_text("f_14004:scrutinizer_2escm"),(void*)f_14004}, {C_text("f_14040:scrutinizer_2escm"),(void*)f_14040}, {C_text("f_14064:scrutinizer_2escm"),(void*)f_14064}, {C_text("f_14105:scrutinizer_2escm"),(void*)f_14105}, {C_text("f_14107:scrutinizer_2escm"),(void*)f_14107}, {C_text("f_14132:scrutinizer_2escm"),(void*)f_14132}, {C_text("f_14161:scrutinizer_2escm"),(void*)f_14161}, {C_text("f_14163:scrutinizer_2escm"),(void*)f_14163}, {C_text("f_14188:scrutinizer_2escm"),(void*)f_14188}, {C_text("f_14222:scrutinizer_2escm"),(void*)f_14222}, {C_text("f_14236:scrutinizer_2escm"),(void*)f_14236}, {C_text("f_14261:scrutinizer_2escm"),(void*)f_14261}, {C_text("f_14275:scrutinizer_2escm"),(void*)f_14275}, {C_text("f_14281:scrutinizer_2escm"),(void*)f_14281}, {C_text("f_14283:scrutinizer_2escm"),(void*)f_14283}, {C_text("f_14308:scrutinizer_2escm"),(void*)f_14308}, {C_text("f_14361:scrutinizer_2escm"),(void*)f_14361}, {C_text("f_14366:scrutinizer_2escm"),(void*)f_14366}, {C_text("f_14375:scrutinizer_2escm"),(void*)f_14375}, {C_text("f_14392:scrutinizer_2escm"),(void*)f_14392}, {C_text("f_14394:scrutinizer_2escm"),(void*)f_14394}, {C_text("f_14409:scrutinizer_2escm"),(void*)f_14409}, {C_text("f_14417:scrutinizer_2escm"),(void*)f_14417}, {C_text("f_14444:scrutinizer_2escm"),(void*)f_14444}, {C_text("f_14483:scrutinizer_2escm"),(void*)f_14483}, {C_text("f_14490:scrutinizer_2escm"),(void*)f_14490}, {C_text("f_14528:scrutinizer_2escm"),(void*)f_14528}, {C_text("f_14539:scrutinizer_2escm"),(void*)f_14539}, {C_text("f_14543:scrutinizer_2escm"),(void*)f_14543}, {C_text("f_14589:scrutinizer_2escm"),(void*)f_14589}, {C_text("f_14593:scrutinizer_2escm"),(void*)f_14593}, {C_text("f_14619:scrutinizer_2escm"),(void*)f_14619}, {C_text("f_14625:scrutinizer_2escm"),(void*)f_14625}, {C_text("f_14651:scrutinizer_2escm"),(void*)f_14651}, {C_text("f_14655:scrutinizer_2escm"),(void*)f_14655}, {C_text("f_14682:scrutinizer_2escm"),(void*)f_14682}, {C_text("f_14686:scrutinizer_2escm"),(void*)f_14686}, {C_text("f_14689:scrutinizer_2escm"),(void*)f_14689}, {C_text("f_14714:scrutinizer_2escm"),(void*)f_14714}, {C_text("f_14720:scrutinizer_2escm"),(void*)f_14720}, {C_text("f_14726:scrutinizer_2escm"),(void*)f_14726}, {C_text("f_14741:scrutinizer_2escm"),(void*)f_14741}, {C_text("f_14745:scrutinizer_2escm"),(void*)f_14745}, {C_text("f_14750:scrutinizer_2escm"),(void*)f_14750}, {C_text("f_14769:scrutinizer_2escm"),(void*)f_14769}, {C_text("f_14778:scrutinizer_2escm"),(void*)f_14778}, {C_text("f_14782:scrutinizer_2escm"),(void*)f_14782}, {C_text("f_14786:scrutinizer_2escm"),(void*)f_14786}, {C_text("f_14796:scrutinizer_2escm"),(void*)f_14796}, {C_text("f_14800:scrutinizer_2escm"),(void*)f_14800}, {C_text("f_14813:scrutinizer_2escm"),(void*)f_14813}, {C_text("f_14816:scrutinizer_2escm"),(void*)f_14816}, {C_text("f_14840:scrutinizer_2escm"),(void*)f_14840}, {C_text("f_14843:scrutinizer_2escm"),(void*)f_14843}, {C_text("f_14867:scrutinizer_2escm"),(void*)f_14867}, {C_text("f_14873:scrutinizer_2escm"),(void*)f_14873}, {C_text("f_14876:scrutinizer_2escm"),(void*)f_14876}, {C_text("f_14887:scrutinizer_2escm"),(void*)f_14887}, {C_text("f_14901:scrutinizer_2escm"),(void*)f_14901}, {C_text("f_14919:scrutinizer_2escm"),(void*)f_14919}, {C_text("f_14925:scrutinizer_2escm"),(void*)f_14925}, {C_text("f_14932:scrutinizer_2escm"),(void*)f_14932}, {C_text("f_14961:scrutinizer_2escm"),(void*)f_14961}, {C_text("f_15040:scrutinizer_2escm"),(void*)f_15040}, {C_text("f_15070:scrutinizer_2escm"),(void*)f_15070}, {C_text("f_15073:scrutinizer_2escm"),(void*)f_15073}, {C_text("f_15091:scrutinizer_2escm"),(void*)f_15091}, {C_text("f_15143:scrutinizer_2escm"),(void*)f_15143}, {C_text("f_15194:scrutinizer_2escm"),(void*)f_15194}, {C_text("f_15251:scrutinizer_2escm"),(void*)f_15251}, {C_text("f_15308:scrutinizer_2escm"),(void*)f_15308}, {C_text("f_15317:scrutinizer_2escm"),(void*)f_15317}, {C_text("f_15324:scrutinizer_2escm"),(void*)f_15324}, {C_text("f_15327:scrutinizer_2escm"),(void*)f_15327}, {C_text("f_15334:scrutinizer_2escm"),(void*)f_15334}, {C_text("f_15336:scrutinizer_2escm"),(void*)f_15336}, {C_text("f_15375:scrutinizer_2escm"),(void*)f_15375}, {C_text("f_15415:scrutinizer_2escm"),(void*)f_15415}, {C_text("f_15434:scrutinizer_2escm"),(void*)f_15434}, {C_text("f_15457:scrutinizer_2escm"),(void*)f_15457}, {C_text("f_15471:scrutinizer_2escm"),(void*)f_15471}, {C_text("f_15504:scrutinizer_2escm"),(void*)f_15504}, {C_text("f_15531:scrutinizer_2escm"),(void*)f_15531}, {C_text("f_15542:scrutinizer_2escm"),(void*)f_15542}, {C_text("f_15559:scrutinizer_2escm"),(void*)f_15559}, {C_text("f_15564:scrutinizer_2escm"),(void*)f_15564}, {C_text("f_15572:scrutinizer_2escm"),(void*)f_15572}, {C_text("f_15574:scrutinizer_2escm"),(void*)f_15574}, {C_text("f_15600:scrutinizer_2escm"),(void*)f_15600}, {C_text("f_15631:scrutinizer_2escm"),(void*)f_15631}, {C_text("f_15659:scrutinizer_2escm"),(void*)f_15659}, {C_text("f_15712:scrutinizer_2escm"),(void*)f_15712}, {C_text("f_15732:scrutinizer_2escm"),(void*)f_15732}, {C_text("f_15791:scrutinizer_2escm"),(void*)f_15791}, {C_text("f_15835:scrutinizer_2escm"),(void*)f_15835}, {C_text("f_15874:scrutinizer_2escm"),(void*)f_15874}, {C_text("f_15877:scrutinizer_2escm"),(void*)f_15877}, {C_text("f_15882:scrutinizer_2escm"),(void*)f_15882}, {C_text("f_15886:scrutinizer_2escm"),(void*)f_15886}, {C_text("f_15888:scrutinizer_2escm"),(void*)f_15888}, {C_text("f_15924:scrutinizer_2escm"),(void*)f_15924}, {C_text("f_15933:scrutinizer_2escm"),(void*)f_15933}, {C_text("f_15950:scrutinizer_2escm"),(void*)f_15950}, {C_text("f_15960:scrutinizer_2escm"),(void*)f_15960}, {C_text("f_15977:scrutinizer_2escm"),(void*)f_15977}, {C_text("f_15987:scrutinizer_2escm"),(void*)f_15987}, {C_text("f_16007:scrutinizer_2escm"),(void*)f_16007}, {C_text("f_16023:scrutinizer_2escm"),(void*)f_16023}, {C_text("f_16033:scrutinizer_2escm"),(void*)f_16033}, {C_text("f_16050:scrutinizer_2escm"),(void*)f_16050}, {C_text("f_16060:scrutinizer_2escm"),(void*)f_16060}, {C_text("f_16092:scrutinizer_2escm"),(void*)f_16092}, {C_text("f_16134:scrutinizer_2escm"),(void*)f_16134}, {C_text("f_16136:scrutinizer_2escm"),(void*)f_16136}, {C_text("f_16161:scrutinizer_2escm"),(void*)f_16161}, {C_text("f_16183:scrutinizer_2escm"),(void*)f_16183}, {C_text("f_16193:scrutinizer_2escm"),(void*)f_16193}, {C_text("f_16214:scrutinizer_2escm"),(void*)f_16214}, {C_text("f_16220:scrutinizer_2escm"),(void*)f_16220}, {C_text("f_16252:scrutinizer_2escm"),(void*)f_16252}, {C_text("f_16255:scrutinizer_2escm"),(void*)f_16255}, {C_text("f_16257:scrutinizer_2escm"),(void*)f_16257}, {C_text("f_16265:scrutinizer_2escm"),(void*)f_16265}, {C_text("f_16267:scrutinizer_2escm"),(void*)f_16267}, {C_text("f_16275:scrutinizer_2escm"),(void*)f_16275}, {C_text("f_16356:scrutinizer_2escm"),(void*)f_16356}, {C_text("f_16367:scrutinizer_2escm"),(void*)f_16367}, {C_text("f_16369:scrutinizer_2escm"),(void*)f_16369}, {C_text("f_16394:scrutinizer_2escm"),(void*)f_16394}, {C_text("f_16414:scrutinizer_2escm"),(void*)f_16414}, {C_text("f_16440:scrutinizer_2escm"),(void*)f_16440}, {C_text("f_16453:scrutinizer_2escm"),(void*)f_16453}, {C_text("f_16463:scrutinizer_2escm"),(void*)f_16463}, {C_text("f_16474:scrutinizer_2escm"),(void*)f_16474}, {C_text("f_16476:scrutinizer_2escm"),(void*)f_16476}, {C_text("f_16501:scrutinizer_2escm"),(void*)f_16501}, {C_text("f_16517:scrutinizer_2escm"),(void*)f_16517}, {C_text("f_16520:scrutinizer_2escm"),(void*)f_16520}, {C_text("f_16523:scrutinizer_2escm"),(void*)f_16523}, {C_text("f_16530:scrutinizer_2escm"),(void*)f_16530}, {C_text("f_16542:scrutinizer_2escm"),(void*)f_16542}, {C_text("f_16546:scrutinizer_2escm"),(void*)f_16546}, {C_text("f_16553:scrutinizer_2escm"),(void*)f_16553}, {C_text("f_16565:scrutinizer_2escm"),(void*)f_16565}, {C_text("f_16590:scrutinizer_2escm"),(void*)f_16590}, {C_text("f_16599:scrutinizer_2escm"),(void*)f_16599}, {C_text("f_16627:scrutinizer_2escm"),(void*)f_16627}, {C_text("f_16646:scrutinizer_2escm"),(void*)f_16646}, {C_text("f_16655:scrutinizer_2escm"),(void*)f_16655}, {C_text("f_16659:scrutinizer_2escm"),(void*)f_16659}, {C_text("f_16722:scrutinizer_2escm"),(void*)f_16722}, {C_text("f_16726:scrutinizer_2escm"),(void*)f_16726}, {C_text("f_16728:scrutinizer_2escm"),(void*)f_16728}, {C_text("f_16737:scrutinizer_2escm"),(void*)f_16737}, {C_text("f_16747:scrutinizer_2escm"),(void*)f_16747}, {C_text("f_16753:scrutinizer_2escm"),(void*)f_16753}, {C_text("f_16758:scrutinizer_2escm"),(void*)f_16758}, {C_text("f_16763:scrutinizer_2escm"),(void*)f_16763}, {C_text("f_16765:scrutinizer_2escm"),(void*)f_16765}, {C_text("f_16772:scrutinizer_2escm"),(void*)f_16772}, {C_text("f_16775:scrutinizer_2escm"),(void*)f_16775}, {C_text("f_16778:scrutinizer_2escm"),(void*)f_16778}, {C_text("f_16783:scrutinizer_2escm"),(void*)f_16783}, {C_text("f_16789:scrutinizer_2escm"),(void*)f_16789}, {C_text("f_16793:scrutinizer_2escm"),(void*)f_16793}, {C_text("f_16796:scrutinizer_2escm"),(void*)f_16796}, {C_text("f_16799:scrutinizer_2escm"),(void*)f_16799}, {C_text("f_16802:scrutinizer_2escm"),(void*)f_16802}, {C_text("f_16811:scrutinizer_2escm"),(void*)f_16811}, {C_text("f_16818:scrutinizer_2escm"),(void*)f_16818}, {C_text("f_16822:scrutinizer_2escm"),(void*)f_16822}, {C_text("f_16826:scrutinizer_2escm"),(void*)f_16826}, {C_text("f_16830:scrutinizer_2escm"),(void*)f_16830}, {C_text("f_16837:scrutinizer_2escm"),(void*)f_16837}, {C_text("f_16844:scrutinizer_2escm"),(void*)f_16844}, {C_text("f_16850:scrutinizer_2escm"),(void*)f_16850}, {C_text("f_16853:scrutinizer_2escm"),(void*)f_16853}, {C_text("f_16856:scrutinizer_2escm"),(void*)f_16856}, {C_text("f_16859:scrutinizer_2escm"),(void*)f_16859}, {C_text("f_16862:scrutinizer_2escm"),(void*)f_16862}, {C_text("f_16865:scrutinizer_2escm"),(void*)f_16865}, {C_text("f_16868:scrutinizer_2escm"),(void*)f_16868}, {C_text("f_16872:scrutinizer_2escm"),(void*)f_16872}, {C_text("f_16877:scrutinizer_2escm"),(void*)f_16877}, {C_text("f_16890:scrutinizer_2escm"),(void*)f_16890}, {C_text("f_16893:scrutinizer_2escm"),(void*)f_16893}, {C_text("f_16904:scrutinizer_2escm"),(void*)f_16904}, {C_text("f_16923:scrutinizer_2escm"),(void*)f_16923}, {C_text("f_16937:scrutinizer_2escm"),(void*)f_16937}, {C_text("f_16951:scrutinizer_2escm"),(void*)f_16951}, {C_text("f_16965:scrutinizer_2escm"),(void*)f_16965}, {C_text("f_16979:scrutinizer_2escm"),(void*)f_16979}, {C_text("f_17009:scrutinizer_2escm"),(void*)f_17009}, {C_text("f_17028:scrutinizer_2escm"),(void*)f_17028}, {C_text("f_17060:scrutinizer_2escm"),(void*)f_17060}, {C_text("f_17066:scrutinizer_2escm"),(void*)f_17066}, {C_text("f_17068:scrutinizer_2escm"),(void*)f_17068}, {C_text("f_17078:scrutinizer_2escm"),(void*)f_17078}, {C_text("f_17091:scrutinizer_2escm"),(void*)f_17091}, {C_text("f_17098:scrutinizer_2escm"),(void*)f_17098}, {C_text("f_17104:scrutinizer_2escm"),(void*)f_17104}, {C_text("f_17107:scrutinizer_2escm"),(void*)f_17107}, {C_text("f_17110:scrutinizer_2escm"),(void*)f_17110}, {C_text("f_17113:scrutinizer_2escm"),(void*)f_17113}, {C_text("f_17116:scrutinizer_2escm"),(void*)f_17116}, {C_text("f_17125:scrutinizer_2escm"),(void*)f_17125}, {C_text("f_17139:scrutinizer_2escm"),(void*)f_17139}, {C_text("f_17145:scrutinizer_2escm"),(void*)f_17145}, {C_text("f_17149:scrutinizer_2escm"),(void*)f_17149}, {C_text("f_17152:scrutinizer_2escm"),(void*)f_17152}, {C_text("f_17157:scrutinizer_2escm"),(void*)f_17157}, {C_text("f_17164:scrutinizer_2escm"),(void*)f_17164}, {C_text("f_17167:scrutinizer_2escm"),(void*)f_17167}, {C_text("f_17173:scrutinizer_2escm"),(void*)f_17173}, {C_text("f_17176:scrutinizer_2escm"),(void*)f_17176}, {C_text("f_17179:scrutinizer_2escm"),(void*)f_17179}, {C_text("f_17182:scrutinizer_2escm"),(void*)f_17182}, {C_text("f_17185:scrutinizer_2escm"),(void*)f_17185}, {C_text("f_17188:scrutinizer_2escm"),(void*)f_17188}, {C_text("f_17191:scrutinizer_2escm"),(void*)f_17191}, {C_text("f_17198:scrutinizer_2escm"),(void*)f_17198}, {C_text("f_17202:scrutinizer_2escm"),(void*)f_17202}, {C_text("f_17204:scrutinizer_2escm"),(void*)f_17204}, {C_text("f_17225:scrutinizer_2escm"),(void*)f_17225}, {C_text("f_17235:scrutinizer_2escm"),(void*)f_17235}, {C_text("f_17243:scrutinizer_2escm"),(void*)f_17243}, {C_text("f_17251:scrutinizer_2escm"),(void*)f_17251}, {C_text("f_17259:scrutinizer_2escm"),(void*)f_17259}, {C_text("f_17287:scrutinizer_2escm"),(void*)f_17287}, {C_text("f_17298:scrutinizer_2escm"),(void*)f_17298}, {C_text("f_17302:scrutinizer_2escm"),(void*)f_17302}, {C_text("f_17307:scrutinizer_2escm"),(void*)f_17307}, {C_text("f_17310:scrutinizer_2escm"),(void*)f_17310}, {C_text("f_17315:scrutinizer_2escm"),(void*)f_17315}, {C_text("f_17322:scrutinizer_2escm"),(void*)f_17322}, {C_text("f_17326:scrutinizer_2escm"),(void*)f_17326}, {C_text("f_17328:scrutinizer_2escm"),(void*)f_17328}, {C_text("f_17335:scrutinizer_2escm"),(void*)f_17335}, {C_text("f_17355:scrutinizer_2escm"),(void*)f_17355}, {C_text("f_17361:scrutinizer_2escm"),(void*)f_17361}, {C_text("f_17369:scrutinizer_2escm"),(void*)f_17369}, {C_text("f_17373:scrutinizer_2escm"),(void*)f_17373}, {C_text("f_17380:scrutinizer_2escm"),(void*)f_17380}, {C_text("f_17386:scrutinizer_2escm"),(void*)f_17386}, {C_text("f_17388:scrutinizer_2escm"),(void*)f_17388}, {C_text("f_17413:scrutinizer_2escm"),(void*)f_17413}, {C_text("f_17430:scrutinizer_2escm"),(void*)f_17430}, {C_text("f_17436:scrutinizer_2escm"),(void*)f_17436}, {C_text("f_17445:scrutinizer_2escm"),(void*)f_17445}, {C_text("f_17484:scrutinizer_2escm"),(void*)f_17484}, {C_text("f_17490:scrutinizer_2escm"),(void*)f_17490}, {C_text("f_17493:scrutinizer_2escm"),(void*)f_17493}, {C_text("f_17500:scrutinizer_2escm"),(void*)f_17500}, {C_text("f_17540:scrutinizer_2escm"),(void*)f_17540}, {C_text("f_17550:scrutinizer_2escm"),(void*)f_17550}, {C_text("f_17577:scrutinizer_2escm"),(void*)f_17577}, {C_text("f_17581:scrutinizer_2escm"),(void*)f_17581}, {C_text("f_17641:scrutinizer_2escm"),(void*)f_17641}, {C_text("f_17643:scrutinizer_2escm"),(void*)f_17643}, {C_text("f_17652:scrutinizer_2escm"),(void*)f_17652}, {C_text("f_17670:scrutinizer_2escm"),(void*)f_17670}, {C_text("f_17674:scrutinizer_2escm"),(void*)f_17674}, {C_text("f_17680:scrutinizer_2escm"),(void*)f_17680}, {C_text("f_17708:scrutinizer_2escm"),(void*)f_17708}, {C_text("f_17736:scrutinizer_2escm"),(void*)f_17736}, {C_text("f_17739:scrutinizer_2escm"),(void*)f_17739}, {C_text("f_17756:scrutinizer_2escm"),(void*)f_17756}, {C_text("f_17771:scrutinizer_2escm"),(void*)f_17771}, {C_text("f_17798:scrutinizer_2escm"),(void*)f_17798}, {C_text("f_17801:scrutinizer_2escm"),(void*)f_17801}, {C_text("f_17838:scrutinizer_2escm"),(void*)f_17838}, {C_text("f_17896:scrutinizer_2escm"),(void*)f_17896}, {C_text("f_17930:scrutinizer_2escm"),(void*)f_17930}, {C_text("f_17962:scrutinizer_2escm"),(void*)f_17962}, {C_text("f_17967:scrutinizer_2escm"),(void*)f_17967}, {C_text("f_17971:scrutinizer_2escm"),(void*)f_17971}, {C_text("f_17982:scrutinizer_2escm"),(void*)f_17982}, {C_text("f_17984:scrutinizer_2escm"),(void*)f_17984}, {C_text("f_18000:scrutinizer_2escm"),(void*)f_18000}, {C_text("f_18003:scrutinizer_2escm"),(void*)f_18003}, {C_text("f_18019:scrutinizer_2escm"),(void*)f_18019}, {C_text("f_18066:scrutinizer_2escm"),(void*)f_18066}, {C_text("f_18068:scrutinizer_2escm"),(void*)f_18068}, {C_text("f_18093:scrutinizer_2escm"),(void*)f_18093}, {C_text("f_18112:scrutinizer_2escm"),(void*)f_18112}, {C_text("f_18116:scrutinizer_2escm"),(void*)f_18116}, {C_text("f_18154:scrutinizer_2escm"),(void*)f_18154}, {C_text("f_18160:scrutinizer_2escm"),(void*)f_18160}, {C_text("f_18165:scrutinizer_2escm"),(void*)f_18165}, {C_text("f_18190:scrutinizer_2escm"),(void*)f_18190}, {C_text("f_18266:scrutinizer_2escm"),(void*)f_18266}, {C_text("f_18296:scrutinizer_2escm"),(void*)f_18296}, {C_text("f_18308:scrutinizer_2escm"),(void*)f_18308}, {C_text("f_18335:scrutinizer_2escm"),(void*)f_18335}, {C_text("f_18338:scrutinizer_2escm"),(void*)f_18338}, {C_text("f_18342:scrutinizer_2escm"),(void*)f_18342}, {C_text("f_18355:scrutinizer_2escm"),(void*)f_18355}, {C_text("f_18358:scrutinizer_2escm"),(void*)f_18358}, {C_text("f_18382:scrutinizer_2escm"),(void*)f_18382}, {C_text("f_18390:scrutinizer_2escm"),(void*)f_18390}, {C_text("f_18394:scrutinizer_2escm"),(void*)f_18394}, {C_text("f_18405:scrutinizer_2escm"),(void*)f_18405}, {C_text("f_18484:scrutinizer_2escm"),(void*)f_18484}, {C_text("f_18526:scrutinizer_2escm"),(void*)f_18526}, {C_text("f_18544:scrutinizer_2escm"),(void*)f_18544}, {C_text("f_18547:scrutinizer_2escm"),(void*)f_18547}, {C_text("f_18551:scrutinizer_2escm"),(void*)f_18551}, {C_text("f_18594:scrutinizer_2escm"),(void*)f_18594}, {C_text("f_18600:scrutinizer_2escm"),(void*)f_18600}, {C_text("f_18605:scrutinizer_2escm"),(void*)f_18605}, {C_text("f_18630:scrutinizer_2escm"),(void*)f_18630}, {C_text("f_18675:scrutinizer_2escm"),(void*)f_18675}, {C_text("f_18684:scrutinizer_2escm"),(void*)f_18684}, {C_text("f_18688:scrutinizer_2escm"),(void*)f_18688}, {C_text("f_18698:scrutinizer_2escm"),(void*)f_18698}, {C_text("f_18730:scrutinizer_2escm"),(void*)f_18730}, {C_text("f_18736:scrutinizer_2escm"),(void*)f_18736}, {C_text("f_18738:scrutinizer_2escm"),(void*)f_18738}, {C_text("f_18763:scrutinizer_2escm"),(void*)f_18763}, {C_text("f_18895:scrutinizer_2escm"),(void*)f_18895}, {C_text("f_18899:scrutinizer_2escm"),(void*)f_18899}, {C_text("f_18903:scrutinizer_2escm"),(void*)f_18903}, {C_text("f_18906:scrutinizer_2escm"),(void*)f_18906}, {C_text("f_18938:scrutinizer_2escm"),(void*)f_18938}, {C_text("f_18942:scrutinizer_2escm"),(void*)f_18942}, {C_text("f_18955:scrutinizer_2escm"),(void*)f_18955}, {C_text("f_18959:scrutinizer_2escm"),(void*)f_18959}, {C_text("f_18962:scrutinizer_2escm"),(void*)f_18962}, {C_text("f_18968:scrutinizer_2escm"),(void*)f_18968}, {C_text("f_18970:scrutinizer_2escm"),(void*)f_18970}, {C_text("f_18995:scrutinizer_2escm"),(void*)f_18995}, {C_text("f_19010:scrutinizer_2escm"),(void*)f_19010}, {C_text("f_19019:scrutinizer_2escm"),(void*)f_19019}, {C_text("f_19027:scrutinizer_2escm"),(void*)f_19027}, {C_text("f_19029:scrutinizer_2escm"),(void*)f_19029}, {C_text("f_19044:scrutinizer_2escm"),(void*)f_19044}, {C_text("f_19047:scrutinizer_2escm"),(void*)f_19047}, {C_text("f_19059:scrutinizer_2escm"),(void*)f_19059}, {C_text("f_19066:scrutinizer_2escm"),(void*)f_19066}, {C_text("f_19070:scrutinizer_2escm"),(void*)f_19070}, {C_text("f_19076:scrutinizer_2escm"),(void*)f_19076}, {C_text("f_19082:scrutinizer_2escm"),(void*)f_19082}, {C_text("f_19098:scrutinizer_2escm"),(void*)f_19098}, {C_text("f_19101:scrutinizer_2escm"),(void*)f_19101}, {C_text("f_19111:scrutinizer_2escm"),(void*)f_19111}, {C_text("f_19137:scrutinizer_2escm"),(void*)f_19137}, {C_text("f_19143:scrutinizer_2escm"),(void*)f_19143}, {C_text("f_19149:scrutinizer_2escm"),(void*)f_19149}, {C_text("f_19165:scrutinizer_2escm"),(void*)f_19165}, {C_text("f_19171:scrutinizer_2escm"),(void*)f_19171}, {C_text("f_19196:scrutinizer_2escm"),(void*)f_19196}, {C_text("f_19234:scrutinizer_2escm"),(void*)f_19234}, {C_text("f_19236:scrutinizer_2escm"),(void*)f_19236}, {C_text("f_19261:scrutinizer_2escm"),(void*)f_19261}, {C_text("f_19287:scrutinizer_2escm"),(void*)f_19287}, {C_text("f_19289:scrutinizer_2escm"),(void*)f_19289}, {C_text("f_19314:scrutinizer_2escm"),(void*)f_19314}, {C_text("f_19323:scrutinizer_2escm"),(void*)f_19323}, {C_text("f_19351:scrutinizer_2escm"),(void*)f_19351}, {C_text("f_19365:scrutinizer_2escm"),(void*)f_19365}, {C_text("f_19371:scrutinizer_2escm"),(void*)f_19371}, {C_text("f_19392:scrutinizer_2escm"),(void*)f_19392}, {C_text("f_19399:scrutinizer_2escm"),(void*)f_19399}, {C_text("f_19403:scrutinizer_2escm"),(void*)f_19403}, {C_text("f_19437:scrutinizer_2escm"),(void*)f_19437}, {C_text("f_19441:scrutinizer_2escm"),(void*)f_19441}, {C_text("f_19449:scrutinizer_2escm"),(void*)f_19449}, {C_text("f_19469:scrutinizer_2escm"),(void*)f_19469}, {C_text("f_19485:scrutinizer_2escm"),(void*)f_19485}, {C_text("f_19487:scrutinizer_2escm"),(void*)f_19487}, {C_text("f_19491:scrutinizer_2escm"),(void*)f_19491}, {C_text("f_19503:scrutinizer_2escm"),(void*)f_19503}, {C_text("f_19554:scrutinizer_2escm"),(void*)f_19554}, {C_text("f_19566:scrutinizer_2escm"),(void*)f_19566}, {C_text("f_19570:scrutinizer_2escm"),(void*)f_19570}, {C_text("f_19586:scrutinizer_2escm"),(void*)f_19586}, {C_text("f_19590:scrutinizer_2escm"),(void*)f_19590}, {C_text("f_19599:scrutinizer_2escm"),(void*)f_19599}, {C_text("f_19611:scrutinizer_2escm"),(void*)f_19611}, {C_text("f_19634:scrutinizer_2escm"),(void*)f_19634}, {C_text("f_19641:scrutinizer_2escm"),(void*)f_19641}, {C_text("f_19644:scrutinizer_2escm"),(void*)f_19644}, {C_text("f_19647:scrutinizer_2escm"),(void*)f_19647}, {C_text("f_19700:scrutinizer_2escm"),(void*)f_19700}, {C_text("f_19710:scrutinizer_2escm"),(void*)f_19710}, {C_text("f_19737:scrutinizer_2escm"),(void*)f_19737}, {C_text("f_19755:scrutinizer_2escm"),(void*)f_19755}, {C_text("f_19761:scrutinizer_2escm"),(void*)f_19761}, {C_text("f_19832:scrutinizer_2escm"),(void*)f_19832}, {C_text("f_19834:scrutinizer_2escm"),(void*)f_19834}, {C_text("f_19838:scrutinizer_2escm"),(void*)f_19838}, {C_text("f_19841:scrutinizer_2escm"),(void*)f_19841}, {C_text("f_19853:scrutinizer_2escm"),(void*)f_19853}, {C_text("f_19887:scrutinizer_2escm"),(void*)f_19887}, {C_text("f_19890:scrutinizer_2escm"),(void*)f_19890}, {C_text("f_19896:scrutinizer_2escm"),(void*)f_19896}, {C_text("f_19900:scrutinizer_2escm"),(void*)f_19900}, {C_text("f_19904:scrutinizer_2escm"),(void*)f_19904}, {C_text("f_19911:scrutinizer_2escm"),(void*)f_19911}, {C_text("f_19915:scrutinizer_2escm"),(void*)f_19915}, {C_text("f_19927:scrutinizer_2escm"),(void*)f_19927}, {C_text("f_19930:scrutinizer_2escm"),(void*)f_19930}, {C_text("f_19933:scrutinizer_2escm"),(void*)f_19933}, {C_text("f_19936:scrutinizer_2escm"),(void*)f_19936}, {C_text("f_19939:scrutinizer_2escm"),(void*)f_19939}, {C_text("f_19942:scrutinizer_2escm"),(void*)f_19942}, {C_text("f_19945:scrutinizer_2escm"),(void*)f_19945}, {C_text("f_19947:scrutinizer_2escm"),(void*)f_19947}, {C_text("f_19956:scrutinizer_2escm"),(void*)f_19956}, {C_text("f_19966:scrutinizer_2escm"),(void*)f_19966}, {C_text("f_19979:scrutinizer_2escm"),(void*)f_19979}, {C_text("f_19985:scrutinizer_2escm"),(void*)f_19985}, {C_text("f_19988:scrutinizer_2escm"),(void*)f_19988}, {C_text("f_19998:scrutinizer_2escm"),(void*)f_19998}, {C_text("f_20001:scrutinizer_2escm"),(void*)f_20001}, {C_text("f_20003:scrutinizer_2escm"),(void*)f_20003}, {C_text("f_20044:scrutinizer_2escm"),(void*)f_20044}, {C_text("f_20047:scrutinizer_2escm"),(void*)f_20047}, {C_text("f_20064:scrutinizer_2escm"),(void*)f_20064}, {C_text("f_20070:scrutinizer_2escm"),(void*)f_20070}, {C_text("f_20077:scrutinizer_2escm"),(void*)f_20077}, {C_text("f_20101:scrutinizer_2escm"),(void*)f_20101}, {C_text("f_20110:scrutinizer_2escm"),(void*)f_20110}, {C_text("f_20113:scrutinizer_2escm"),(void*)f_20113}, {C_text("f_20117:scrutinizer_2escm"),(void*)f_20117}, {C_text("f_20121:scrutinizer_2escm"),(void*)f_20121}, {C_text("f_20133:scrutinizer_2escm"),(void*)f_20133}, {C_text("f_20163:scrutinizer_2escm"),(void*)f_20163}, {C_text("f_20177:scrutinizer_2escm"),(void*)f_20177}, {C_text("f_20181:scrutinizer_2escm"),(void*)f_20181}, {C_text("f_20185:scrutinizer_2escm"),(void*)f_20185}, {C_text("f_20208:scrutinizer_2escm"),(void*)f_20208}, {C_text("f_20210:scrutinizer_2escm"),(void*)f_20210}, {C_text("f_20213:scrutinizer_2escm"),(void*)f_20213}, {C_text("f_20222:scrutinizer_2escm"),(void*)f_20222}, {C_text("f_20273:scrutinizer_2escm"),(void*)f_20273}, {C_text("f_20277:scrutinizer_2escm"),(void*)f_20277}, {C_text("f_20281:scrutinizer_2escm"),(void*)f_20281}, {C_text("f_20285:scrutinizer_2escm"),(void*)f_20285}, {C_text("f_20293:scrutinizer_2escm"),(void*)f_20293}, {C_text("f_20295:scrutinizer_2escm"),(void*)f_20295}, {C_text("f_20319:scrutinizer_2escm"),(void*)f_20319}, {C_text("f_20344:scrutinizer_2escm"),(void*)f_20344}, {C_text("f_20355:scrutinizer_2escm"),(void*)f_20355}, {C_text("f_20365:scrutinizer_2escm"),(void*)f_20365}, {C_text("f_20367:scrutinizer_2escm"),(void*)f_20367}, {C_text("f_20392:scrutinizer_2escm"),(void*)f_20392}, {C_text("f_20409:scrutinizer_2escm"),(void*)f_20409}, {C_text("f_20411:scrutinizer_2escm"),(void*)f_20411}, {C_text("f_20425:scrutinizer_2escm"),(void*)f_20425}, {C_text("f_20441:scrutinizer_2escm"),(void*)f_20441}, {C_text("f_20460:scrutinizer_2escm"),(void*)f_20460}, {C_text("f_20466:scrutinizer_2escm"),(void*)f_20466}, {C_text("f_20468:scrutinizer_2escm"),(void*)f_20468}, {C_text("f_20478:scrutinizer_2escm"),(void*)f_20478}, {C_text("f_20498:scrutinizer_2escm"),(void*)f_20498}, {C_text("f_20501:scrutinizer_2escm"),(void*)f_20501}, {C_text("f_20512:scrutinizer_2escm"),(void*)f_20512}, {C_text("f_20515:scrutinizer_2escm"),(void*)f_20515}, {C_text("f_20535:scrutinizer_2escm"),(void*)f_20535}, {C_text("f_20542:scrutinizer_2escm"),(void*)f_20542}, {C_text("f_20545:scrutinizer_2escm"),(void*)f_20545}, {C_text("f_20571:scrutinizer_2escm"),(void*)f_20571}, {C_text("f_20584:scrutinizer_2escm"),(void*)f_20584}, {C_text("f_20586:scrutinizer_2escm"),(void*)f_20586}, {C_text("f_20611:scrutinizer_2escm"),(void*)f_20611}, {C_text("f_20626:scrutinizer_2escm"),(void*)f_20626}, {C_text("f_20633:scrutinizer_2escm"),(void*)f_20633}, {C_text("f_20636:scrutinizer_2escm"),(void*)f_20636}, {C_text("f_20643:scrutinizer_2escm"),(void*)f_20643}, {C_text("f_20652:scrutinizer_2escm"),(void*)f_20652}, {C_text("f_20658:scrutinizer_2escm"),(void*)f_20658}, {C_text("f_20671:scrutinizer_2escm"),(void*)f_20671}, {C_text("f_20687:scrutinizer_2escm"),(void*)f_20687}, {C_text("f_20693:scrutinizer_2escm"),(void*)f_20693}, {C_text("f_20696:scrutinizer_2escm"),(void*)f_20696}, {C_text("f_20699:scrutinizer_2escm"),(void*)f_20699}, {C_text("f_20702:scrutinizer_2escm"),(void*)f_20702}, {C_text("f_20710:scrutinizer_2escm"),(void*)f_20710}, {C_text("f_20723:scrutinizer_2escm"),(void*)f_20723}, {C_text("f_20725:scrutinizer_2escm"),(void*)f_20725}, {C_text("f_20750:scrutinizer_2escm"),(void*)f_20750}, {C_text("f_20760:scrutinizer_2escm"),(void*)f_20760}, {C_text("f_20766:scrutinizer_2escm"),(void*)f_20766}, {C_text("f_20778:scrutinizer_2escm"),(void*)f_20778}, {C_text("f_20787:scrutinizer_2escm"),(void*)f_20787}, {C_text("f_20796:scrutinizer_2escm"),(void*)f_20796}, {C_text("f_20821:scrutinizer_2escm"),(void*)f_20821}, {C_text("f_20855:scrutinizer_2escm"),(void*)f_20855}, {C_text("f_20857:scrutinizer_2escm"),(void*)f_20857}, {C_text("f_20882:scrutinizer_2escm"),(void*)f_20882}, {C_text("f_20907:scrutinizer_2escm"),(void*)f_20907}, {C_text("f_20913:scrutinizer_2escm"),(void*)f_20913}, {C_text("f_20916:scrutinizer_2escm"),(void*)f_20916}, {C_text("f_20919:scrutinizer_2escm"),(void*)f_20919}, {C_text("f_20950:scrutinizer_2escm"),(void*)f_20950}, {C_text("f_20953:scrutinizer_2escm"),(void*)f_20953}, {C_text("f_20956:scrutinizer_2escm"),(void*)f_20956}, {C_text("f_20973:scrutinizer_2escm"),(void*)f_20973}, {C_text("f_20998:scrutinizer_2escm"),(void*)f_20998}, {C_text("f_21007:scrutinizer_2escm"),(void*)f_21007}, {C_text("f_21032:scrutinizer_2escm"),(void*)f_21032}, {C_text("f_21069:scrutinizer_2escm"),(void*)f_21069}, {C_text("f_21076:scrutinizer_2escm"),(void*)f_21076}, {C_text("f_21080:scrutinizer_2escm"),(void*)f_21080}, {C_text("f_21082:scrutinizer_2escm"),(void*)f_21082}, {C_text("f_21090:scrutinizer_2escm"),(void*)f_21090}, {C_text("f_21092:scrutinizer_2escm"),(void*)f_21092}, {C_text("f_21096:scrutinizer_2escm"),(void*)f_21096}, {C_text("f_21101:scrutinizer_2escm"),(void*)f_21101}, {C_text("f_21127:scrutinizer_2escm"),(void*)f_21127}, {C_text("f_21132:scrutinizer_2escm"),(void*)f_21132}, {C_text("f_21144:scrutinizer_2escm"),(void*)f_21144}, {C_text("f_21169:scrutinizer_2escm"),(void*)f_21169}, {C_text("f_21186:scrutinizer_2escm"),(void*)f_21186}, {C_text("f_21195:scrutinizer_2escm"),(void*)f_21195}, {C_text("f_21197:scrutinizer_2escm"),(void*)f_21197}, {C_text("f_21205:scrutinizer_2escm"),(void*)f_21205}, {C_text("f_21209:scrutinizer_2escm"),(void*)f_21209}, {C_text("f_21211:scrutinizer_2escm"),(void*)f_21211}, {C_text("f_21219:scrutinizer_2escm"),(void*)f_21219}, {C_text("f_21221:scrutinizer_2escm"),(void*)f_21221}, {C_text("f_21225:scrutinizer_2escm"),(void*)f_21225}, {C_text("f_21234:scrutinizer_2escm"),(void*)f_21234}, {C_text("f_21240:scrutinizer_2escm"),(void*)f_21240}, {C_text("f_21243:scrutinizer_2escm"),(void*)f_21243}, {C_text("f_21246:scrutinizer_2escm"),(void*)f_21246}, {C_text("f_21251:scrutinizer_2escm"),(void*)f_21251}, {C_text("f_21264:scrutinizer_2escm"),(void*)f_21264}, {C_text("f_21270:scrutinizer_2escm"),(void*)f_21270}, {C_text("f_21273:scrutinizer_2escm"),(void*)f_21273}, {C_text("f_21276:scrutinizer_2escm"),(void*)f_21276}, {C_text("f_21283:scrutinizer_2escm"),(void*)f_21283}, {C_text("f_21301:scrutinizer_2escm"),(void*)f_21301}, {C_text("f_21315:scrutinizer_2escm"),(void*)f_21315}, {C_text("f_21319:scrutinizer_2escm"),(void*)f_21319}, {C_text("f_21323:scrutinizer_2escm"),(void*)f_21323}, {C_text("f_21329:scrutinizer_2escm"),(void*)f_21329}, {C_text("f_21337:scrutinizer_2escm"),(void*)f_21337}, {C_text("f_21343:scrutinizer_2escm"),(void*)f_21343}, {C_text("f_21351:scrutinizer_2escm"),(void*)f_21351}, {C_text("f_21355:scrutinizer_2escm"),(void*)f_21355}, {C_text("f_21361:scrutinizer_2escm"),(void*)f_21361}, {C_text("f_21364:scrutinizer_2escm"),(void*)f_21364}, {C_text("f_21367:scrutinizer_2escm"),(void*)f_21367}, {C_text("f_21370:scrutinizer_2escm"),(void*)f_21370}, {C_text("f_21373:scrutinizer_2escm"),(void*)f_21373}, {C_text("f_21379:scrutinizer_2escm"),(void*)f_21379}, {C_text("f_21382:scrutinizer_2escm"),(void*)f_21382}, {C_text("f_21385:scrutinizer_2escm"),(void*)f_21385}, {C_text("f_21388:scrutinizer_2escm"),(void*)f_21388}, {C_text("f_21391:scrutinizer_2escm"),(void*)f_21391}, {C_text("f_21407:scrutinizer_2escm"),(void*)f_21407}, {C_text("f_21421:scrutinizer_2escm"),(void*)f_21421}, {C_text("f_21425:scrutinizer_2escm"),(void*)f_21425}, {C_text("f_21428:scrutinizer_2escm"),(void*)f_21428}, {C_text("f_21441:scrutinizer_2escm"),(void*)f_21441}, {C_text("f_21445:scrutinizer_2escm"),(void*)f_21445}, {C_text("f_21460:scrutinizer_2escm"),(void*)f_21460}, {C_text("f_21472:scrutinizer_2escm"),(void*)f_21472}, {C_text("f_21478:scrutinizer_2escm"),(void*)f_21478}, {C_text("f_21484:scrutinizer_2escm"),(void*)f_21484}, {C_text("f_21491:scrutinizer_2escm"),(void*)f_21491}, {C_text("f_21497:scrutinizer_2escm"),(void*)f_21497}, {C_text("f_21500:scrutinizer_2escm"),(void*)f_21500}, {C_text("f_21503:scrutinizer_2escm"),(void*)f_21503}, {C_text("f_21506:scrutinizer_2escm"),(void*)f_21506}, {C_text("f_21509:scrutinizer_2escm"),(void*)f_21509}, {C_text("f_21515:scrutinizer_2escm"),(void*)f_21515}, {C_text("f_21521:scrutinizer_2escm"),(void*)f_21521}, {C_text("f_21524:scrutinizer_2escm"),(void*)f_21524}, {C_text("f_21527:scrutinizer_2escm"),(void*)f_21527}, {C_text("f_21532:scrutinizer_2escm"),(void*)f_21532}, {C_text("f_21535:scrutinizer_2escm"),(void*)f_21535}, {C_text("f_21543:scrutinizer_2escm"),(void*)f_21543}, {C_text("f_21547:scrutinizer_2escm"),(void*)f_21547}, {C_text("f_21549:scrutinizer_2escm"),(void*)f_21549}, {C_text("f_21553:scrutinizer_2escm"),(void*)f_21553}, {C_text("f_21573:scrutinizer_2escm"),(void*)f_21573}, {C_text("f_21580:scrutinizer_2escm"),(void*)f_21580}, {C_text("f_21601:scrutinizer_2escm"),(void*)f_21601}, {C_text("f_21611:scrutinizer_2escm"),(void*)f_21611}, {C_text("f_21615:scrutinizer_2escm"),(void*)f_21615}, {C_text("f_21619:scrutinizer_2escm"),(void*)f_21619}, {C_text("f_21623:scrutinizer_2escm"),(void*)f_21623}, {C_text("f_21627:scrutinizer_2escm"),(void*)f_21627}, {C_text("f_21631:scrutinizer_2escm"),(void*)f_21631}, {C_text("f_21635:scrutinizer_2escm"),(void*)f_21635}, {C_text("f_21639:scrutinizer_2escm"),(void*)f_21639}, {C_text("f_21646:scrutinizer_2escm"),(void*)f_21646}, {C_text("f_21662:scrutinizer_2escm"),(void*)f_21662}, {C_text("f_21665:scrutinizer_2escm"),(void*)f_21665}, {C_text("f_21671:scrutinizer_2escm"),(void*)f_21671}, {C_text("f_21687:scrutinizer_2escm"),(void*)f_21687}, {C_text("f_21693:scrutinizer_2escm"),(void*)f_21693}, {C_text("f_21700:scrutinizer_2escm"),(void*)f_21700}, {C_text("f_21704:scrutinizer_2escm"),(void*)f_21704}, {C_text("f_21708:scrutinizer_2escm"),(void*)f_21708}, {C_text("f_21712:scrutinizer_2escm"),(void*)f_21712}, {C_text("f_21715:scrutinizer_2escm"),(void*)f_21715}, {C_text("f_21719:scrutinizer_2escm"),(void*)f_21719}, {C_text("f_21723:scrutinizer_2escm"),(void*)f_21723}, {C_text("f_21729:scrutinizer_2escm"),(void*)f_21729}, {C_text("f_21732:scrutinizer_2escm"),(void*)f_21732}, {C_text("f_21746:scrutinizer_2escm"),(void*)f_21746}, {C_text("f_21764:scrutinizer_2escm"),(void*)f_21764}, {C_text("f_21777:scrutinizer_2escm"),(void*)f_21777}, {C_text("f_21781:scrutinizer_2escm"),(void*)f_21781}, {C_text("f_21785:scrutinizer_2escm"),(void*)f_21785}, {C_text("f_21791:scrutinizer_2escm"),(void*)f_21791}, {C_text("f_21802:scrutinizer_2escm"),(void*)f_21802}, {C_text("f_21806:scrutinizer_2escm"),(void*)f_21806}, {C_text("f_21810:scrutinizer_2escm"),(void*)f_21810}, {C_text("f_21814:scrutinizer_2escm"),(void*)f_21814}, {C_text("f_21818:scrutinizer_2escm"),(void*)f_21818}, {C_text("f_21829:scrutinizer_2escm"),(void*)f_21829}, {C_text("f_21833:scrutinizer_2escm"),(void*)f_21833}, {C_text("f_21837:scrutinizer_2escm"),(void*)f_21837}, {C_text("f_21841:scrutinizer_2escm"),(void*)f_21841}, {C_text("f_21845:scrutinizer_2escm"),(void*)f_21845}, {C_text("f_21852:scrutinizer_2escm"),(void*)f_21852}, {C_text("f_21863:scrutinizer_2escm"),(void*)f_21863}, {C_text("f_21867:scrutinizer_2escm"),(void*)f_21867}, {C_text("f_21871:scrutinizer_2escm"),(void*)f_21871}, {C_text("f_21887:scrutinizer_2escm"),(void*)f_21887}, {C_text("f_21891:scrutinizer_2escm"),(void*)f_21891}, {C_text("f_21896:scrutinizer_2escm"),(void*)f_21896}, {C_text("f_21901:scrutinizer_2escm"),(void*)f_21901}, {C_text("f_21912:scrutinizer_2escm"),(void*)f_21912}, {C_text("f_21916:scrutinizer_2escm"),(void*)f_21916}, {C_text("f_21920:scrutinizer_2escm"),(void*)f_21920}, {C_text("f_21924:scrutinizer_2escm"),(void*)f_21924}, {C_text("f_21928:scrutinizer_2escm"),(void*)f_21928}, {C_text("f_21932:scrutinizer_2escm"),(void*)f_21932}, {C_text("f_21936:scrutinizer_2escm"),(void*)f_21936}, {C_text("f_21940:scrutinizer_2escm"),(void*)f_21940}, {C_text("f_21942:scrutinizer_2escm"),(void*)f_21942}, {C_text("f_21947:scrutinizer_2escm"),(void*)f_21947}, {C_text("f_21949:scrutinizer_2escm"),(void*)f_21949}, {C_text("f_21961:scrutinizer_2escm"),(void*)f_21961}, {C_text("f_21965:scrutinizer_2escm"),(void*)f_21965}, {C_text("f_21969:scrutinizer_2escm"),(void*)f_21969}, {C_text("f_21973:scrutinizer_2escm"),(void*)f_21973}, {C_text("f_21977:scrutinizer_2escm"),(void*)f_21977}, {C_text("f_21983:scrutinizer_2escm"),(void*)f_21983}, {C_text("f_21986:scrutinizer_2escm"),(void*)f_21986}, {C_text("f_21989:scrutinizer_2escm"),(void*)f_21989}, {C_text("f_21996:scrutinizer_2escm"),(void*)f_21996}, {C_text("f_22012:scrutinizer_2escm"),(void*)f_22012}, {C_text("f_22018:scrutinizer_2escm"),(void*)f_22018}, {C_text("f_22021:scrutinizer_2escm"),(void*)f_22021}, {C_text("f_22024:scrutinizer_2escm"),(void*)f_22024}, {C_text("f_22027:scrutinizer_2escm"),(void*)f_22027}, {C_text("f_22035:scrutinizer_2escm"),(void*)f_22035}, {C_text("f_22040:scrutinizer_2escm"),(void*)f_22040}, {C_text("f_22047:scrutinizer_2escm"),(void*)f_22047}, {C_text("f_22055:scrutinizer_2escm"),(void*)f_22055}, {C_text("f_22059:scrutinizer_2escm"),(void*)f_22059}, {C_text("f_22063:scrutinizer_2escm"),(void*)f_22063}, {C_text("f_22067:scrutinizer_2escm"),(void*)f_22067}, {C_text("f_22071:scrutinizer_2escm"),(void*)f_22071}, {C_text("f_22077:scrutinizer_2escm"),(void*)f_22077}, {C_text("f_22080:scrutinizer_2escm"),(void*)f_22080}, {C_text("f_22083:scrutinizer_2escm"),(void*)f_22083}, {C_text("f_22089:scrutinizer_2escm"),(void*)f_22089}, {C_text("f_22095:scrutinizer_2escm"),(void*)f_22095}, {C_text("f_22098:scrutinizer_2escm"),(void*)f_22098}, {C_text("f_22101:scrutinizer_2escm"),(void*)f_22101}, {C_text("f_22104:scrutinizer_2escm"),(void*)f_22104}, {C_text("f_22107:scrutinizer_2escm"),(void*)f_22107}, {C_text("f_22110:scrutinizer_2escm"),(void*)f_22110}, {C_text("f_22113:scrutinizer_2escm"),(void*)f_22113}, {C_text("f_22120:scrutinizer_2escm"),(void*)f_22120}, {C_text("f_22126:scrutinizer_2escm"),(void*)f_22126}, {C_text("f_22129:scrutinizer_2escm"),(void*)f_22129}, {C_text("f_22132:scrutinizer_2escm"),(void*)f_22132}, {C_text("f_22138:scrutinizer_2escm"),(void*)f_22138}, {C_text("f_22144:scrutinizer_2escm"),(void*)f_22144}, {C_text("f_22147:scrutinizer_2escm"),(void*)f_22147}, {C_text("f_22150:scrutinizer_2escm"),(void*)f_22150}, {C_text("f_22157:scrutinizer_2escm"),(void*)f_22157}, {C_text("f_22167:scrutinizer_2escm"),(void*)f_22167}, {C_text("f_22170:scrutinizer_2escm"),(void*)f_22170}, {C_text("f_22182:scrutinizer_2escm"),(void*)f_22182}, {C_text("f_22186:scrutinizer_2escm"),(void*)f_22186}, {C_text("f_22190:scrutinizer_2escm"),(void*)f_22190}, {C_text("f_22206:scrutinizer_2escm"),(void*)f_22206}, {C_text("f_22212:scrutinizer_2escm"),(void*)f_22212}, {C_text("f_22215:scrutinizer_2escm"),(void*)f_22215}, {C_text("f_22218:scrutinizer_2escm"),(void*)f_22218}, {C_text("f_22221:scrutinizer_2escm"),(void*)f_22221}, {C_text("f_22229:scrutinizer_2escm"),(void*)f_22229}, {C_text("f_22232:scrutinizer_2escm"),(void*)f_22232}, {C_text("f_22244:scrutinizer_2escm"),(void*)f_22244}, {C_text("f_22248:scrutinizer_2escm"),(void*)f_22248}, {C_text("f_22252:scrutinizer_2escm"),(void*)f_22252}, {C_text("f_22256:scrutinizer_2escm"),(void*)f_22256}, {C_text("f_22269:scrutinizer_2escm"),(void*)f_22269}, {C_text("f_22275:scrutinizer_2escm"),(void*)f_22275}, {C_text("f_22278:scrutinizer_2escm"),(void*)f_22278}, {C_text("f_22281:scrutinizer_2escm"),(void*)f_22281}, {C_text("f_22284:scrutinizer_2escm"),(void*)f_22284}, {C_text("f_22288:scrutinizer_2escm"),(void*)f_22288}, {C_text("f_22295:scrutinizer_2escm"),(void*)f_22295}, {C_text("f_22301:scrutinizer_2escm"),(void*)f_22301}, {C_text("f_22304:scrutinizer_2escm"),(void*)f_22304}, {C_text("f_22307:scrutinizer_2escm"),(void*)f_22307}, {C_text("f_22310:scrutinizer_2escm"),(void*)f_22310}, {C_text("f_22313:scrutinizer_2escm"),(void*)f_22313}, {C_text("f_22316:scrutinizer_2escm"),(void*)f_22316}, {C_text("f_22320:scrutinizer_2escm"),(void*)f_22320}, {C_text("f_22326:scrutinizer_2escm"),(void*)f_22326}, {C_text("f_22329:scrutinizer_2escm"),(void*)f_22329}, {C_text("f_22332:scrutinizer_2escm"),(void*)f_22332}, {C_text("f_22335:scrutinizer_2escm"),(void*)f_22335}, {C_text("f_22343:scrutinizer_2escm"),(void*)f_22343}, {C_text("f_22349:scrutinizer_2escm"),(void*)f_22349}, {C_text("f_22352:scrutinizer_2escm"),(void*)f_22352}, {C_text("f_22364:scrutinizer_2escm"),(void*)f_22364}, {C_text("f_22368:scrutinizer_2escm"),(void*)f_22368}, {C_text("f_22372:scrutinizer_2escm"),(void*)f_22372}, {C_text("f_22376:scrutinizer_2escm"),(void*)f_22376}, {C_text("f_22389:scrutinizer_2escm"),(void*)f_22389}, {C_text("f_22395:scrutinizer_2escm"),(void*)f_22395}, {C_text("f_22398:scrutinizer_2escm"),(void*)f_22398}, {C_text("f_22401:scrutinizer_2escm"),(void*)f_22401}, {C_text("f_22404:scrutinizer_2escm"),(void*)f_22404}, {C_text("f_22408:scrutinizer_2escm"),(void*)f_22408}, {C_text("f_22415:scrutinizer_2escm"),(void*)f_22415}, {C_text("f_22421:scrutinizer_2escm"),(void*)f_22421}, {C_text("f_22424:scrutinizer_2escm"),(void*)f_22424}, {C_text("f_22427:scrutinizer_2escm"),(void*)f_22427}, {C_text("f_22430:scrutinizer_2escm"),(void*)f_22430}, {C_text("f_22433:scrutinizer_2escm"),(void*)f_22433}, {C_text("f_22436:scrutinizer_2escm"),(void*)f_22436}, {C_text("f_22440:scrutinizer_2escm"),(void*)f_22440}, {C_text("f_22446:scrutinizer_2escm"),(void*)f_22446}, {C_text("f_22449:scrutinizer_2escm"),(void*)f_22449}, {C_text("f_22452:scrutinizer_2escm"),(void*)f_22452}, {C_text("f_22455:scrutinizer_2escm"),(void*)f_22455}, {C_text("f_22463:scrutinizer_2escm"),(void*)f_22463}, {C_text("f_22474:scrutinizer_2escm"),(void*)f_22474}, {C_text("f_22485:scrutinizer_2escm"),(void*)f_22485}, {C_text("f_22489:scrutinizer_2escm"),(void*)f_22489}, {C_text("f_22493:scrutinizer_2escm"),(void*)f_22493}, {C_text("f_22497:scrutinizer_2escm"),(void*)f_22497}, {C_text("f_22501:scrutinizer_2escm"),(void*)f_22501}, {C_text("f_22508:scrutinizer_2escm"),(void*)f_22508}, {C_text("f_22519:scrutinizer_2escm"),(void*)f_22519}, {C_text("f_22523:scrutinizer_2escm"),(void*)f_22523}, {C_text("f_22527:scrutinizer_2escm"),(void*)f_22527}, {C_text("f_22531:scrutinizer_2escm"),(void*)f_22531}, {C_text("f_22535:scrutinizer_2escm"),(void*)f_22535}, {C_text("f_22549:scrutinizer_2escm"),(void*)f_22549}, {C_text("f_22553:scrutinizer_2escm"),(void*)f_22553}, {C_text("f_22557:scrutinizer_2escm"),(void*)f_22557}, {C_text("f_22571:scrutinizer_2escm"),(void*)f_22571}, {C_text("f_22575:scrutinizer_2escm"),(void*)f_22575}, {C_text("f_22589:scrutinizer_2escm"),(void*)f_22589}, {C_text("f_22593:scrutinizer_2escm"),(void*)f_22593}, {C_text("f_22597:scrutinizer_2escm"),(void*)f_22597}, {C_text("f_22611:scrutinizer_2escm"),(void*)f_22611}, {C_text("f_22615:scrutinizer_2escm"),(void*)f_22615}, {C_text("f_22623:scrutinizer_2escm"),(void*)f_22623}, {C_text("f_22637:scrutinizer_2escm"),(void*)f_22637}, {C_text("f_22641:scrutinizer_2escm"),(void*)f_22641}, {C_text("f_22645:scrutinizer_2escm"),(void*)f_22645}, {C_text("f_22649:scrutinizer_2escm"),(void*)f_22649}, {C_text("f_22654:scrutinizer_2escm"),(void*)f_22654}, {C_text("f_22662:scrutinizer_2escm"),(void*)f_22662}, {C_text("f_22669:scrutinizer_2escm"),(void*)f_22669}, {C_text("f_22673:scrutinizer_2escm"),(void*)f_22673}, {C_text("f_22677:scrutinizer_2escm"),(void*)f_22677}, {C_text("f_22681:scrutinizer_2escm"),(void*)f_22681}, {C_text("f_22685:scrutinizer_2escm"),(void*)f_22685}, {C_text("f_22689:scrutinizer_2escm"),(void*)f_22689}, {C_text("f_22699:scrutinizer_2escm"),(void*)f_22699}, {C_text("f_22701:scrutinizer_2escm"),(void*)f_22701}, {C_text("f_22726:scrutinizer_2escm"),(void*)f_22726}, {C_text("f_22738:scrutinizer_2escm"),(void*)f_22738}, {C_text("f_22745:scrutinizer_2escm"),(void*)f_22745}, {C_text("f_22759:scrutinizer_2escm"),(void*)f_22759}, {C_text("f_22763:scrutinizer_2escm"),(void*)f_22763}, {C_text("f_22775:scrutinizer_2escm"),(void*)f_22775}, {C_text("f_22787:scrutinizer_2escm"),(void*)f_22787}, {C_text("f_22805:scrutinizer_2escm"),(void*)f_22805}, {C_text("f_22809:scrutinizer_2escm"),(void*)f_22809}, {C_text("f_22813:scrutinizer_2escm"),(void*)f_22813}, {C_text("f_22817:scrutinizer_2escm"),(void*)f_22817}, {C_text("f_22821:scrutinizer_2escm"),(void*)f_22821}, {C_text("f_22825:scrutinizer_2escm"),(void*)f_22825}, {C_text("f_22829:scrutinizer_2escm"),(void*)f_22829}, {C_text("f_22832:scrutinizer_2escm"),(void*)f_22832}, {C_text("f_22840:scrutinizer_2escm"),(void*)f_22840}, {C_text("f_22851:scrutinizer_2escm"),(void*)f_22851}, {C_text("f_22857:scrutinizer_2escm"),(void*)f_22857}, {C_text("f_22860:scrutinizer_2escm"),(void*)f_22860}, {C_text("f_22863:scrutinizer_2escm"),(void*)f_22863}, {C_text("f_22866:scrutinizer_2escm"),(void*)f_22866}, {C_text("f_22874:scrutinizer_2escm"),(void*)f_22874}, {C_text("f_22878:scrutinizer_2escm"),(void*)f_22878}, {C_text("f_22882:scrutinizer_2escm"),(void*)f_22882}, {C_text("f_22886:scrutinizer_2escm"),(void*)f_22886}, {C_text("f_22889:scrutinizer_2escm"),(void*)f_22889}, {C_text("f_22895:scrutinizer_2escm"),(void*)f_22895}, {C_text("f_22898:scrutinizer_2escm"),(void*)f_22898}, {C_text("f_22901:scrutinizer_2escm"),(void*)f_22901}, {C_text("f_22904:scrutinizer_2escm"),(void*)f_22904}, {C_text("f_22907:scrutinizer_2escm"),(void*)f_22907}, {C_text("f_22914:scrutinizer_2escm"),(void*)f_22914}, {C_text("f_22918:scrutinizer_2escm"),(void*)f_22918}, {C_text("f_22930:scrutinizer_2escm"),(void*)f_22930}, {C_text("f_22934:scrutinizer_2escm"),(void*)f_22934}, {C_text("f_22949:scrutinizer_2escm"),(void*)f_22949}, {C_text("f_22975:scrutinizer_2escm"),(void*)f_22975}, {C_text("f_22992:scrutinizer_2escm"),(void*)f_22992}, {C_text("f_23013:scrutinizer_2escm"),(void*)f_23013}, {C_text("f_23015:scrutinizer_2escm"),(void*)f_23015}, {C_text("f_23040:scrutinizer_2escm"),(void*)f_23040}, {C_text("f_23049:scrutinizer_2escm"),(void*)f_23049}, {C_text("f_23070:scrutinizer_2escm"),(void*)f_23070}, {C_text("f_23072:scrutinizer_2escm"),(void*)f_23072}, {C_text("f_23097:scrutinizer_2escm"),(void*)f_23097}, {C_text("f_23106:scrutinizer_2escm"),(void*)f_23106}, {C_text("f_23131:scrutinizer_2escm"),(void*)f_23131}, {C_text("f_23133:scrutinizer_2escm"),(void*)f_23133}, {C_text("f_23158:scrutinizer_2escm"),(void*)f_23158}, {C_text("f_23171:scrutinizer_2escm"),(void*)f_23171}, {C_text("f_23196:scrutinizer_2escm"),(void*)f_23196}, {C_text("f_23198:scrutinizer_2escm"),(void*)f_23198}, {C_text("f_23223:scrutinizer_2escm"),(void*)f_23223}, {C_text("f_23238:scrutinizer_2escm"),(void*)f_23238}, {C_text("f_23240:scrutinizer_2escm"),(void*)f_23240}, {C_text("f_23248:scrutinizer_2escm"),(void*)f_23248}, {C_text("f_23250:scrutinizer_2escm"),(void*)f_23250}, {C_text("f_23266:scrutinizer_2escm"),(void*)f_23266}, {C_text("f_23270:scrutinizer_2escm"),(void*)f_23270}, {C_text("f_23279:scrutinizer_2escm"),(void*)f_23279}, {C_text("f_23297:scrutinizer_2escm"),(void*)f_23297}, {C_text("f_23306:scrutinizer_2escm"),(void*)f_23306}, {C_text("f_23317:scrutinizer_2escm"),(void*)f_23317}, {C_text("f_23323:scrutinizer_2escm"),(void*)f_23323}, {C_text("f_23327:scrutinizer_2escm"),(void*)f_23327}, {C_text("f_23380:scrutinizer_2escm"),(void*)f_23380}, {C_text("f_23384:scrutinizer_2escm"),(void*)f_23384}, {C_text("f_23388:scrutinizer_2escm"),(void*)f_23388}, {C_text("f_6712:scrutinizer_2escm"),(void*)f_6712}, {C_text("f_6715:scrutinizer_2escm"),(void*)f_6715}, {C_text("f_6718:scrutinizer_2escm"),(void*)f_6718}, {C_text("f_6721:scrutinizer_2escm"),(void*)f_6721}, {C_text("f_6724:scrutinizer_2escm"),(void*)f_6724}, {C_text("f_6727:scrutinizer_2escm"),(void*)f_6727}, {C_text("f_6730:scrutinizer_2escm"),(void*)f_6730}, {C_text("f_6733:scrutinizer_2escm"),(void*)f_6733}, {C_text("f_6736:scrutinizer_2escm"),(void*)f_6736}, {C_text("f_6802:scrutinizer_2escm"),(void*)f_6802}, {C_text("f_6816:scrutinizer_2escm"),(void*)f_6816}, {C_text("f_6822:scrutinizer_2escm"),(void*)f_6822}, {C_text("f_6840:scrutinizer_2escm"),(void*)f_6840}, {C_text("f_6846:scrutinizer_2escm"),(void*)f_6846}, {C_text("f_6864:scrutinizer_2escm"),(void*)f_6864}, {C_text("f_6904:scrutinizer_2escm"),(void*)f_6904}, {C_text("f_6918:scrutinizer_2escm"),(void*)f_6918}, {C_text("f_6937:scrutinizer_2escm"),(void*)f_6937}, {C_text("f_6952:scrutinizer_2escm"),(void*)f_6952}, {C_text("f_6960:scrutinizer_2escm"),(void*)f_6960}, {C_text("f_6968:scrutinizer_2escm"),(void*)f_6968}, {C_text("f_6979:scrutinizer_2escm"),(void*)f_6979}, {C_text("f_6992:scrutinizer_2escm"),(void*)f_6992}, {C_text("f_6999:scrutinizer_2escm"),(void*)f_6999}, {C_text("f_7006:scrutinizer_2escm"),(void*)f_7006}, {C_text("f_7010:scrutinizer_2escm"),(void*)f_7010}, {C_text("f_7022:scrutinizer_2escm"),(void*)f_7022}, {C_text("f_7024:scrutinizer_2escm"),(void*)f_7024}, {C_text("f_7071:scrutinizer_2escm"),(void*)f_7071}, {C_text("f_7073:scrutinizer_2escm"),(void*)f_7073}, {C_text("f_7107:scrutinizer_2escm"),(void*)f_7107}, {C_text("f_7113:scrutinizer_2escm"),(void*)f_7113}, {C_text("f_7135:scrutinizer_2escm"),(void*)f_7135}, {C_text("f_7141:scrutinizer_2escm"),(void*)f_7141}, {C_text("f_7147:scrutinizer_2escm"),(void*)f_7147}, {C_text("f_7157:scrutinizer_2escm"),(void*)f_7157}, {C_text("f_7177:scrutinizer_2escm"),(void*)f_7177}, {C_text("f_7191:scrutinizer_2escm"),(void*)f_7191}, {C_text("f_7205:scrutinizer_2escm"),(void*)f_7205}, {C_text("f_7223:scrutinizer_2escm"),(void*)f_7223}, {C_text("f_7233:scrutinizer_2escm"),(void*)f_7233}, {C_text("f_7246:scrutinizer_2escm"),(void*)f_7246}, {C_text("f_7260:scrutinizer_2escm"),(void*)f_7260}, {C_text("f_7302:scrutinizer_2escm"),(void*)f_7302}, {C_text("f_7308:scrutinizer_2escm"),(void*)f_7308}, {C_text("f_7322:scrutinizer_2escm"),(void*)f_7322}, {C_text("f_7335:scrutinizer_2escm"),(void*)f_7335}, {C_text("f_7391:scrutinizer_2escm"),(void*)f_7391}, {C_text("f_7400:scrutinizer_2escm"),(void*)f_7400}, {C_text("f_7408:scrutinizer_2escm"),(void*)f_7408}, {C_text("f_7412:scrutinizer_2escm"),(void*)f_7412}, {C_text("f_7416:scrutinizer_2escm"),(void*)f_7416}, {C_text("f_7434:scrutinizer_2escm"),(void*)f_7434}, {C_text("f_7456:scrutinizer_2escm"),(void*)f_7456}, {C_text("f_7473:scrutinizer_2escm"),(void*)f_7473}, {C_text("f_7572:scrutinizer_2escm"),(void*)f_7572}, {C_text("f_7658:scrutinizer_2escm"),(void*)f_7658}, {C_text("f_7683:scrutinizer_2escm"),(void*)f_7683}, {C_text("f_7706:scrutinizer_2escm"),(void*)f_7706}, {C_text("f_7711:scrutinizer_2escm"),(void*)f_7711}, {C_text("f_7718:scrutinizer_2escm"),(void*)f_7718}, {C_text("f_7725:scrutinizer_2escm"),(void*)f_7725}, {C_text("f_7749:scrutinizer_2escm"),(void*)f_7749}, {C_text("f_7755:scrutinizer_2escm"),(void*)f_7755}, {C_text("f_7769:scrutinizer_2escm"),(void*)f_7769}, {C_text("f_7773:scrutinizer_2escm"),(void*)f_7773}, {C_text("f_7785:scrutinizer_2escm"),(void*)f_7785}, {C_text("f_7791:scrutinizer_2escm"),(void*)f_7791}, {C_text("f_7803:scrutinizer_2escm"),(void*)f_7803}, {C_text("f_7868:scrutinizer_2escm"),(void*)f_7868}, {C_text("f_7881:scrutinizer_2escm"),(void*)f_7881}, {C_text("f_7929:scrutinizer_2escm"),(void*)f_7929}, {C_text("f_7932:scrutinizer_2escm"),(void*)f_7932}, {C_text("f_7941:scrutinizer_2escm"),(void*)f_7941}, {C_text("f_8061:scrutinizer_2escm"),(void*)f_8061}, {C_text("f_8069:scrutinizer_2escm"),(void*)f_8069}, {C_text("f_8071:scrutinizer_2escm"),(void*)f_8071}, {C_text("f_8114:scrutinizer_2escm"),(void*)f_8114}, {C_text("f_8148:scrutinizer_2escm"),(void*)f_8148}, {C_text("f_8161:scrutinizer_2escm"),(void*)f_8161}, {C_text("f_8173:scrutinizer_2escm"),(void*)f_8173}, {C_text("f_8176:scrutinizer_2escm"),(void*)f_8176}, {C_text("f_8237:scrutinizer_2escm"),(void*)f_8237}, {C_text("f_8239:scrutinizer_2escm"),(void*)f_8239}, {C_text("f_8264:scrutinizer_2escm"),(void*)f_8264}, {C_text("f_8288:scrutinizer_2escm"),(void*)f_8288}, {C_text("f_8292:scrutinizer_2escm"),(void*)f_8292}, {C_text("f_8322:scrutinizer_2escm"),(void*)f_8322}, {C_text("f_8325:scrutinizer_2escm"),(void*)f_8325}, {C_text("f_8327:scrutinizer_2escm"),(void*)f_8327}, {C_text("f_8352:scrutinizer_2escm"),(void*)f_8352}, {C_text("f_8397:scrutinizer_2escm"),(void*)f_8397}, {C_text("f_8401:scrutinizer_2escm"),(void*)f_8401}, {C_text("f_8411:scrutinizer_2escm"),(void*)f_8411}, {C_text("f_8417:scrutinizer_2escm"),(void*)f_8417}, {C_text("f_8420:scrutinizer_2escm"),(void*)f_8420}, {C_text("f_8440:scrutinizer_2escm"),(void*)f_8440}, {C_text("f_8444:scrutinizer_2escm"),(void*)f_8444}, {C_text("f_8452:scrutinizer_2escm"),(void*)f_8452}, {C_text("f_8471:scrutinizer_2escm"),(void*)f_8471}, {C_text("f_8475:scrutinizer_2escm"),(void*)f_8475}, {C_text("f_8487:scrutinizer_2escm"),(void*)f_8487}, {C_text("f_8525:scrutinizer_2escm"),(void*)f_8525}, {C_text("f_8532:scrutinizer_2escm"),(void*)f_8532}, {C_text("f_8534:scrutinizer_2escm"),(void*)f_8534}, {C_text("f_8566:scrutinizer_2escm"),(void*)f_8566}, {C_text("f_8596:scrutinizer_2escm"),(void*)f_8596}, {C_text("f_8600:scrutinizer_2escm"),(void*)f_8600}, {C_text("f_8606:scrutinizer_2escm"),(void*)f_8606}, {C_text("f_8618:scrutinizer_2escm"),(void*)f_8618}, {C_text("f_8624:scrutinizer_2escm"),(void*)f_8624}, {C_text("f_8632:scrutinizer_2escm"),(void*)f_8632}, {C_text("f_8660:scrutinizer_2escm"),(void*)f_8660}, {C_text("f_8663:scrutinizer_2escm"),(void*)f_8663}, {C_text("f_8676:scrutinizer_2escm"),(void*)f_8676}, {C_text("f_8679:scrutinizer_2escm"),(void*)f_8679}, {C_text("f_8682:scrutinizer_2escm"),(void*)f_8682}, {C_text("f_8698:scrutinizer_2escm"),(void*)f_8698}, {C_text("f_8708:scrutinizer_2escm"),(void*)f_8708}, {C_text("f_8714:scrutinizer_2escm"),(void*)f_8714}, {C_text("f_8724:scrutinizer_2escm"),(void*)f_8724}, {C_text("f_8733:scrutinizer_2escm"),(void*)f_8733}, {C_text("f_8736:scrutinizer_2escm"),(void*)f_8736}, {C_text("f_8743:scrutinizer_2escm"),(void*)f_8743}, {C_text("f_8749:scrutinizer_2escm"),(void*)f_8749}, {C_text("f_8754:scrutinizer_2escm"),(void*)f_8754}, {C_text("f_8760:scrutinizer_2escm"),(void*)f_8760}, {C_text("f_8764:scrutinizer_2escm"),(void*)f_8764}, {C_text("f_8767:scrutinizer_2escm"),(void*)f_8767}, {C_text("f_8770:scrutinizer_2escm"),(void*)f_8770}, {C_text("f_8773:scrutinizer_2escm"),(void*)f_8773}, {C_text("f_8776:scrutinizer_2escm"),(void*)f_8776}, {C_text("f_8779:scrutinizer_2escm"),(void*)f_8779}, {C_text("f_8782:scrutinizer_2escm"),(void*)f_8782}, {C_text("f_8785:scrutinizer_2escm"),(void*)f_8785}, {C_text("f_8798:scrutinizer_2escm"),(void*)f_8798}, {C_text("f_8810:scrutinizer_2escm"),(void*)f_8810}, {C_text("f_8835:scrutinizer_2escm"),(void*)f_8835}, {C_text("f_8845:scrutinizer_2escm"),(void*)f_8845}, {C_text("f_8854:scrutinizer_2escm"),(void*)f_8854}, {C_text("f_8866:scrutinizer_2escm"),(void*)f_8866}, {C_text("f_8873:scrutinizer_2escm"),(void*)f_8873}, {C_text("f_8876:scrutinizer_2escm"),(void*)f_8876}, {C_text("f_8879:scrutinizer_2escm"),(void*)f_8879}, {C_text("f_8913:scrutinizer_2escm"),(void*)f_8913}, {C_text("f_8920:scrutinizer_2escm"),(void*)f_8920}, {C_text("f_8923:scrutinizer_2escm"),(void*)f_8923}, {C_text("f_8929:scrutinizer_2escm"),(void*)f_8929}, {C_text("f_8958:scrutinizer_2escm"),(void*)f_8958}, {C_text("f_8962:scrutinizer_2escm"),(void*)f_8962}, {C_text("f_8980:scrutinizer_2escm"),(void*)f_8980}, {C_text("f_8983:scrutinizer_2escm"),(void*)f_8983}, {C_text("f_8986:scrutinizer_2escm"),(void*)f_8986}, {C_text("f_8992:scrutinizer_2escm"),(void*)f_8992}, {C_text("f_9025:scrutinizer_2escm"),(void*)f_9025}, {C_text("f_9029:scrutinizer_2escm"),(void*)f_9029}, {C_text("f_9068:scrutinizer_2escm"),(void*)f_9068}, {C_text("f_9072:scrutinizer_2escm"),(void*)f_9072}, {C_text("f_9091:scrutinizer_2escm"),(void*)f_9091}, {C_text("f_9095:scrutinizer_2escm"),(void*)f_9095}, {C_text("f_9101:scrutinizer_2escm"),(void*)f_9101}, {C_text("f_9115:scrutinizer_2escm"),(void*)f_9115}, {C_text("f_9121:scrutinizer_2escm"),(void*)f_9121}, {C_text("f_9135:scrutinizer_2escm"),(void*)f_9135}, {C_text("f_9166:scrutinizer_2escm"),(void*)f_9166}, {C_text("f_9179:scrutinizer_2escm"),(void*)f_9179}, {C_text("f_9189:scrutinizer_2escm"),(void*)f_9189}, {C_text("f_9191:scrutinizer_2escm"),(void*)f_9191}, {C_text("f_9220:scrutinizer_2escm"),(void*)f_9220}, {C_text("f_9233:scrutinizer_2escm"),(void*)f_9233}, {C_text("f_9249:scrutinizer_2escm"),(void*)f_9249}, {C_text("f_9260:scrutinizer_2escm"),(void*)f_9260}, {C_text("f_9264:scrutinizer_2escm"),(void*)f_9264}, {C_text("f_9292:scrutinizer_2escm"),(void*)f_9292}, {C_text("f_9296:scrutinizer_2escm"),(void*)f_9296}, {C_text("f_9298:scrutinizer_2escm"),(void*)f_9298}, {C_text("f_9323:scrutinizer_2escm"),(void*)f_9323}, {C_text("f_9332:scrutinizer_2escm"),(void*)f_9332}, {C_text("f_9337:scrutinizer_2escm"),(void*)f_9337}, {C_text("f_9343:scrutinizer_2escm"),(void*)f_9343}, {C_text("f_9348:scrutinizer_2escm"),(void*)f_9348}, {C_text("f_9370:scrutinizer_2escm"),(void*)f_9370}, {C_text("f_9377:scrutinizer_2escm"),(void*)f_9377}, {C_text("f_9380:scrutinizer_2escm"),(void*)f_9380}, {C_text("f_9383:scrutinizer_2escm"),(void*)f_9383}, {C_text("f_9389:scrutinizer_2escm"),(void*)f_9389}, {C_text("f_9393:scrutinizer_2escm"),(void*)f_9393}, {C_text("f_9400:scrutinizer_2escm"),(void*)f_9400}, {C_text("f_9408:scrutinizer_2escm"),(void*)f_9408}, {C_text("f_9433:scrutinizer_2escm"),(void*)f_9433}, {C_text("f_9442:scrutinizer_2escm"),(void*)f_9442}, {C_text("f_9448:scrutinizer_2escm"),(void*)f_9448}, {C_text("f_9466:scrutinizer_2escm"),(void*)f_9466}, {C_text("f_9470:scrutinizer_2escm"),(void*)f_9470}, {C_text("f_9473:scrutinizer_2escm"),(void*)f_9473}, {C_text("f_9476:scrutinizer_2escm"),(void*)f_9476}, {C_text("f_9484:scrutinizer_2escm"),(void*)f_9484}, {C_text("f_9512:scrutinizer_2escm"),(void*)f_9512}, {C_text("f_9554:scrutinizer_2escm"),(void*)f_9554}, {C_text("f_9571:scrutinizer_2escm"),(void*)f_9571}, {C_text("f_9591:scrutinizer_2escm"),(void*)f_9591}, {C_text("f_9608:scrutinizer_2escm"),(void*)f_9608}, {C_text("f_9627:scrutinizer_2escm"),(void*)f_9627}, {C_text("f_9638:scrutinizer_2escm"),(void*)f_9638}, {C_text("f_9657:scrutinizer_2escm"),(void*)f_9657}, {C_text("f_9660:scrutinizer_2escm"),(void*)f_9660}, {C_text("f_9664:scrutinizer_2escm"),(void*)f_9664}, {C_text("f_9671:scrutinizer_2escm"),(void*)f_9671}, {C_text("f_9677:scrutinizer_2escm"),(void*)f_9677}, {C_text("f_9683:scrutinizer_2escm"),(void*)f_9683}, {C_text("f_9686:scrutinizer_2escm"),(void*)f_9686}, {C_text("f_9718:scrutinizer_2escm"),(void*)f_9718}, {C_text("f_9747:scrutinizer_2escm"),(void*)f_9747}, {C_text("f_9812:scrutinizer_2escm"),(void*)f_9812}, {C_text("f_9846:scrutinizer_2escm"),(void*)f_9846}, {C_text("f_9856:scrutinizer_2escm"),(void*)f_9856}, {C_text("f_9899:scrutinizer_2escm"),(void*)f_9899}, {C_text("f_9902:scrutinizer_2escm"),(void*)f_9902}, {C_text("f_9906:scrutinizer_2escm"),(void*)f_9906}, {C_text("f_9908:scrutinizer_2escm"),(void*)f_9908}, {C_text("f_9931:scrutinizer_2escm"),(void*)f_9931}, {C_text("f_9949:scrutinizer_2escm"),(void*)f_9949}, {C_text("f_9958:scrutinizer_2escm"),(void*)f_9958}, {C_text("f_9961:scrutinizer_2escm"),(void*)f_9961}, {C_text("f_9977:scrutinizer_2escm"),(void*)f_9977}, {C_text("f_9986:scrutinizer_2escm"),(void*)f_9986}, {C_text("f_9994:scrutinizer_2escm"),(void*)f_9994}, {C_text("toplevel:scrutinizer_2escm"),(void*)C_scrutinizer_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.compiler.scrutinizer#partition o|hiding unexported module binding: chicken.compiler.scrutinizer#span o|hiding unexported module binding: chicken.compiler.scrutinizer#take o|hiding unexported module binding: chicken.compiler.scrutinizer#drop o|hiding unexported module binding: chicken.compiler.scrutinizer#split-at o|hiding unexported module binding: chicken.compiler.scrutinizer#append-map o|hiding unexported module binding: chicken.compiler.scrutinizer#every o|hiding unexported module binding: chicken.compiler.scrutinizer#any o|hiding unexported module binding: chicken.compiler.scrutinizer#cons* o|hiding unexported module binding: chicken.compiler.scrutinizer#concatenate o|hiding unexported module binding: chicken.compiler.scrutinizer#delete o|hiding unexported module binding: chicken.compiler.scrutinizer#first o|hiding unexported module binding: chicken.compiler.scrutinizer#second o|hiding unexported module binding: chicken.compiler.scrutinizer#third o|hiding unexported module binding: chicken.compiler.scrutinizer#fourth o|hiding unexported module binding: chicken.compiler.scrutinizer#fifth o|hiding unexported module binding: chicken.compiler.scrutinizer#delete-duplicates o|hiding unexported module binding: chicken.compiler.scrutinizer#alist-cons o|hiding unexported module binding: chicken.compiler.scrutinizer#filter o|hiding unexported module binding: chicken.compiler.scrutinizer#filter-map o|hiding unexported module binding: chicken.compiler.scrutinizer#remove o|hiding unexported module binding: chicken.compiler.scrutinizer#unzip1 o|hiding unexported module binding: chicken.compiler.scrutinizer#last o|hiding unexported module binding: chicken.compiler.scrutinizer#list-index o|hiding unexported module binding: chicken.compiler.scrutinizer#lset-adjoin/eq? o|hiding unexported module binding: chicken.compiler.scrutinizer#lset-difference/eq? o|hiding unexported module binding: chicken.compiler.scrutinizer#lset-union/eq? o|hiding unexported module binding: chicken.compiler.scrutinizer#lset-intersection/eq? o|hiding unexported module binding: chicken.compiler.scrutinizer#list-tabulate o|hiding unexported module binding: chicken.compiler.scrutinizer#lset<=/eq? o|hiding unexported module binding: chicken.compiler.scrutinizer#lset=/eq? o|hiding unexported module binding: chicken.compiler.scrutinizer#length+ o|hiding unexported module binding: chicken.compiler.scrutinizer#find o|hiding unexported module binding: chicken.compiler.scrutinizer#find-tail o|hiding unexported module binding: chicken.compiler.scrutinizer#iota o|hiding unexported module binding: chicken.compiler.scrutinizer#make-list o|hiding unexported module binding: chicken.compiler.scrutinizer#posq o|hiding unexported module binding: chicken.compiler.scrutinizer#posv o|hiding unexported module binding: chicken.compiler.scrutinizer#d-depth o|hiding unexported module binding: chicken.compiler.scrutinizer#scrutiny-debug o|hiding unexported module binding: chicken.compiler.scrutinizer#*complain?* o|hiding unexported module binding: chicken.compiler.scrutinizer#d o|hiding unexported module binding: chicken.compiler.scrutinizer#dd o|hiding unexported module binding: chicken.compiler.scrutinizer#ddd o|hiding unexported module binding: chicken.compiler.scrutinizer#d o|hiding unexported module binding: chicken.compiler.scrutinizer#dd o|hiding unexported module binding: chicken.compiler.scrutinizer#ddd o|hiding unexported module binding: chicken.compiler.scrutinizer#constant709 o|hiding unexported module binding: chicken.compiler.scrutinizer#constant716 o|hiding unexported module binding: chicken.compiler.scrutinizer#constant724 o|hiding unexported module binding: chicken.compiler.scrutinizer#constant733 o|hiding unexported module binding: chicken.compiler.scrutinizer#specialization-statistics o|hiding unexported module binding: chicken.compiler.scrutinizer#trail o|hiding unexported module binding: chicken.compiler.scrutinizer#walked-result o|hiding unexported module binding: chicken.compiler.scrutinizer#type-always-immediate? o|hiding unexported module binding: chicken.compiler.scrutinizer#smash-component-types! o|hiding unexported module binding: chicken.compiler.scrutinizer#match-argument-types o|hiding unexported module binding: chicken.compiler.scrutinizer#simplify-type o|hiding unexported module binding: chicken.compiler.scrutinizer#maybe-expand-type o|hiding unexported module binding: chicken.compiler.scrutinizer#merge-argument-types o|hiding unexported module binding: chicken.compiler.scrutinizer#merge-result-types o|hiding unexported module binding: chicken.compiler.scrutinizer#compatible-types? o|hiding unexported module binding: chicken.compiler.scrutinizer#type-min o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-type? o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-name o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-arguments o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-results o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-argument-types o|hiding unexported module binding: chicken.compiler.scrutinizer#procedure-result-types o|hiding unexported module binding: chicken.compiler.scrutinizer#named? o|hiding unexported module binding: chicken.compiler.scrutinizer#rest-type o|hiding unexported module binding: chicken.compiler.scrutinizer#noreturn-procedure-type? o|hiding unexported module binding: chicken.compiler.scrutinizer#noreturn-type? o|hiding unexported module binding: chicken.compiler.scrutinizer#refinement-type? o|hiding unexported module binding: chicken.compiler.scrutinizer#make-tv o|hiding unexported module binding: chicken.compiler.scrutinizer#type-typeenv o|hiding unexported module binding: chicken.compiler.scrutinizer#trail-restore o|hiding unexported module binding: chicken.compiler.scrutinizer#with-trail-restore o|hiding unexported module binding: chicken.compiler.scrutinizer#resolve o|hiding unexported module binding: chicken.compiler.scrutinizer#node-mutations o|hiding unexported module binding: chicken.compiler.scrutinizer#mutate-node! o|hiding unexported module binding: chicken.compiler.scrutinizer#source-node o|hiding unexported module binding: chicken.compiler.scrutinizer#source-node-tree o|hiding unexported module binding: chicken.compiler.scrutinizer#node-line-number o|hiding unexported module binding: chicken.compiler.scrutinizer#node-debug-info o|hiding unexported module binding: chicken.compiler.scrutinizer#specialize-node! o|hiding unexported module binding: chicken.compiler.scrutinizer#canonicalize-list-type o|hiding unexported module binding: chicken.compiler.scrutinizer#strip-namespace o|hiding unexported module binding: chicken.compiler.scrutinizer#define-special-case o|hiding unexported module binding: chicken.compiler.scrutinizer#over-all-instantiations o|hiding unexported module binding: chicken.compiler.scrutinizer#multiples o|hiding unexported module binding: chicken.compiler.scrutinizer#string-add-indent o|hiding unexported module binding: chicken.compiler.scrutinizer#type->pp-string o|hiding unexported module binding: chicken.compiler.scrutinizer#fragment o|hiding unexported module binding: chicken.compiler.scrutinizer#pp-fragment o|hiding unexported module binding: chicken.compiler.scrutinizer#node-source-prefix o|hiding unexported module binding: chicken.compiler.scrutinizer#location-name o|hiding unexported module binding: chicken.compiler.scrutinizer#variable-and-module o|hiding unexported module binding: chicken.compiler.scrutinizer#variable-from-module o|hiding unexported module binding: chicken.compiler.scrutinizer#describe-expression o|hiding unexported module binding: chicken.compiler.scrutinizer#call-node-procedure-name o|hiding unexported module binding: chicken.compiler.scrutinizer#report2 o|hiding unexported module binding: chicken.compiler.scrutinizer#report-notice o|hiding unexported module binding: chicken.compiler.scrutinizer#r-invalid-called-procedure-type o|hiding unexported module binding: chicken.compiler.scrutinizer#r-proc-call-argument-count-mismatch o|hiding unexported module binding: chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch o|hiding unexported module binding: chicken.compiler.scrutinizer#r-proc-call-argument-value-count o|hiding unexported module binding: chicken.compiler.scrutinizer#r-index-out-of-range o|hiding unexported module binding: chicken.compiler.scrutinizer#r-conditional-value-count-invalid o|hiding unexported module binding: chicken.compiler.scrutinizer#r-let-value-count-invalid o|hiding unexported module binding: chicken.compiler.scrutinizer#r-assignment-value-count-invalid o|hiding unexported module binding: chicken.compiler.scrutinizer#r-pred-call-always-true o|hiding unexported module binding: chicken.compiler.scrutinizer#r-pred-call-always-false o|hiding unexported module binding: chicken.compiler.scrutinizer#r-cond-test-always-true o|hiding unexported module binding: chicken.compiler.scrutinizer#r-cond-test-always-false o|hiding unexported module binding: chicken.compiler.scrutinizer#r-zero-values-for-the o|hiding unexported module binding: chicken.compiler.scrutinizer#r-too-many-values-for-the o|hiding unexported module binding: chicken.compiler.scrutinizer#r-type-mismatch-in-the o|hiding unexported module binding: chicken.compiler.scrutinizer#fail-compiler-typecase o|hiding unexported module binding: chicken.compiler.scrutinizer#r-cond-branch-value-count-mismatch o|hiding unexported module binding: chicken.compiler.scrutinizer#r-toplevel-var-assignment-type-mismatch o|hiding unexported module binding: chicken.compiler.scrutinizer#r-deprecated-identifier S|applied compiler syntax: S| scheme#for-each 11 S| chicken.format#sprintf 27 S| chicken.format#printf 2 S| chicken.base#foldl 5 S| scheme#map 49 S| chicken.base#foldr 3 o|eliminated procedure checks: 463 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 2 (scheme#string=? string string) o| 1 (scheme#< fixnum fixnum) o| 1 (scheme#string-append string string) o| 1 (scheme#>= fixnum fixnum) o| 2 (scheme#string-length string) o| 4 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 1 (scheme#- *) o| 4 (scheme#negative? *) o| 2 (scheme#integer? *) o| 2 (scheme#vector-length vector) o| 1 (scheme#cdddr (pair * (pair * pair))) o| 1 (chicken.plist#put! symbol symbol *) o| 3 (scheme#cadr (pair * pair)) o| 4 (scheme#cddr (pair * pair)) o| 4 (scheme#positive? *) o| 2 (scheme#> fixnum fixnum) o| 2 (chicken.base#sub1 fixnum) o| 2 (scheme#set-cdr! pair *) o| 8 (chicken.base#sub1 *) o| 3 (scheme#zero? *) o| 1 (scheme#caar (pair pair *)) o| 13 (chicken.base#add1 *) o| 11 (scheme#length list) o| 5 (scheme#zero? integer) o| 16 (scheme#= fixnum fixnum) o| 2 (scheme#cdar (pair pair *)) o| 15 (scheme#memq * list) o| 91 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 29 (##sys#check-output-port * * *) o| 1 (##sys#debug-mode?) o| 1 (scheme#eqv? * *) o| 11 (##sys#check-list (or pair list) *) o| 123 (scheme#cdr pair) o| 129 (scheme#car pair) (o e)|safe calls: 2506 (o e)|dropped branches: 2 (o e)|assignments to immediate values: 7 o|safe globals: (chicken.compiler.scrutinizer#strip-namespace chicken.compiler.scrutinizer#canonicalize-list-type chicken.compiler.scrutinizer#install-specializations chicken.compiler.scrutinizer#check-and-validate-type chicken.compiler.scrutinizer#validate-type chicken.compiler.scrutinizer#specialize-node! chicken.compiler.scrutinizer#node-debug-info chicken.compiler.scrutinizer#node-line-number chicken.compiler.scrutinizer#source-node-tree chicken.compiler.scrutinizer#source-node chicken.compiler.scrutinizer#mutate-node! chicken.compiler.scrutinizer#node-mutations chicken.compiler.scrutinizer#emit-types-file chicken.compiler.scrutinizer#load-type-database chicken.compiler.scrutinizer#resolve chicken.compiler.scrutinizer#with-trail-restore chicken.compiler.scrutinizer#trail-restore chicken.compiler.scrutinizer#type-typeenv chicken.compiler.scrutinizer#make-tv chicken.compiler.scrutinizer#refinement-type? chicken.compiler.scrutinizer#noreturn-type? chicken.compiler.scrutinizer#noreturn-procedure-type? chicken.compiler.scrutinizer#rest-type chicken.compiler.scrutinizer#named? chicken.compiler.scrutinizer#procedure-result-types chicken.compiler.scrutinizer#procedure-argument-types chicken.compiler.scrutinizer#procedure-results chicken.compiler.scrutinizer#procedure-arguments chicken.compiler.scrutinizer#procedure-name chicken.compiler.scrutinizer#procedure-type? chicken.compiler.scrutinizer#refine-types chicken.compiler.scrutinizer#type<=? chicken.compiler.scrutinizer#type-min chicken.compiler.scrutinizer#compatible-types? chicken.compiler.scrutinizer#merge-result-types chicken.compiler.scrutinizer#merge-argument-types chicken.compiler.scrutinizer#maybe-expand-type chicken.compiler.scrutinizer#simplify-type chicken.compiler.scrutinizer#match-argument-types chicken.compiler.scrutinizer#match-types chicken.compiler.scrutinizer#smash-component-types! chicken.compiler.scrutinizer#scrutinize chicken.compiler.scrutinizer#type-always-immediate? chicken.compiler.scrutinizer#walked-result chicken.compiler.scrutinizer#trail chicken.compiler.scrutinizer#specialization-statistics chicken.compiler.scrutinizer#constant733 chicken.compiler.scrutinizer#constant724 chicken.compiler.scrutinizer#constant716 chicken.compiler.scrutinizer#constant709 chicken.compiler.scrutinizer#ddd chicken.compiler.scrutinizer#dd chicken.compiler.scrutinizer#d chicken.compiler.scrutinizer#*complain?* chicken.compiler.scrutinizer#scrutiny-debug chicken.compiler.scrutinizer#d-depth chicken.compiler.scrutinizer#posv chicken.compiler.scrutinizer#posq chicken.compiler.scrutinizer#make-list chicken.compiler.scrutinizer#iota chicken.compiler.scrutinizer#find-tail chicken.compiler.scrutinizer#find chicken.compiler.scrutinizer#length+ chicken.compiler.scrutinizer#lset=/eq? chicken.compiler.scrutinizer#lset<=/eq? chicken.compiler.scrutinizer#list-tabulate chicken.compiler.scrutinizer#lset-intersection/eq? chicken.compiler.scrutinizer#lset-union/eq? chicken.compiler.scrutinizer#lset-difference/eq? chicken.compiler.scrutinizer#lset-adjoin/eq? chicken.compiler.scrutinizer#list-index chicken.compiler.scrutinizer#last chicken.compiler.scrutinizer#unzip1 chicken.compiler.scrutinizer#remove chicken.compiler.scrutinizer#filter-map chicken.compiler.scrutinizer#filter chicken.compiler.scrutinizer#alist-cons chicken.compiler.scrutinizer#delete-duplicates chicken.compiler.scrutinizer#fifth chicken.compiler.scrutinizer#fourth chicken.compiler.scrutinizer#third chicken.compiler.scrutinizer#second chicken.compiler.scrutinizer#first chicken.compiler.scrutinizer#delete chicken.compiler.scrutinizer#concatenate chicken.compiler.scrutinizer#cons* chicken.compiler.scrutinizer#any chicken.compiler.scrutinizer#every chicken.compiler.scrutinizer#append-map chicken.compiler.scrutinizer#split-at chicken.compiler.scrutinizer#drop chicken.compiler.scrutinizer#take chicken.compiler.scrutinizer#span chicken.compiler.scrutinizer#partition) o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#partition o|inlining procedure: k6848 o|inlining procedure: k6848 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#drop o|merged explicitly consed rest parameter: lsts165 o|inlining procedure: k6939 o|inlining procedure: k6954 o|inlining procedure: k6954 o|inlining procedure: k6939 o|inlining procedure: k6994 o|inlining procedure: k6994 o|inlining procedure: k7026 o|contracted procedure: "(mini-srfi-1.scm:77) g218227" o|inlining procedure: k7026 o|inlining procedure: k7075 o|contracted procedure: "(mini-srfi-1.scm:76) g191200" o|inlining procedure: k7075 o|inlining procedure: k7118 o|inlining procedure: k7118 o|inlining procedure: k7149 o|inlining procedure: k7149 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#fifth o|inlining procedure: k7310 o|inlining procedure: k7310 o|contracted procedure: "(mini-srfi-1.scm:123) chicken.compiler.scrutinizer#delete" o|inlining procedure: k7235 o|inlining procedure: k7235 o|inlining procedure: k7366 o|inlining procedure: k7366 o|inlining procedure: k7358 o|inlining procedure: k7358 o|inlining procedure: k7413 o|inlining procedure: k7413 o|inlining procedure: k7402 o|inlining procedure: k7402 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#remove o|inlining procedure: k7475 o|contracted procedure: "(mini-srfi-1.scm:143) g369378" o|inlining procedure: k7475 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#last o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#list-index o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#lset-intersection/eq? o|inlining procedure: k7757 o|inlining procedure: k7757 o|inlining procedure: k7793 o|inlining procedure: k7793 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#length+ o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#find-tail o|merged explicitly consed rest parameter: rest537539 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#posq o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#posv o|propagated global variable: out612615 ##sys#standard-output o|substituted constant variable: a8028 o|substituted constant variable: a8029 o|inlining procedure: k8021 o|propagated global variable: out612615 ##sys#standard-output o|inlining procedure: k8021 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#dd o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#ddd o|inlining procedure: "(scrutinizer.scm:166) chicken.compiler.scrutinizer#first" o|inlining procedure: k8073 o|inlining procedure: k8091 o|inlining procedure: "(scrutinizer.scm:172) chicken.compiler.scrutinizer#third" o|inlining procedure: k8091 o|substituted constant variable: a8105 o|substituted constant variable: a8107 o|inlining procedure: k8073 o|substituted constant variable: a8112 o|removed side-effect free assignment to unused variable: report758 o|inlining procedure: k8150 o|inlining procedure: k8150 o|inlining procedure: k8162 o|inlining procedure: k8162 o|inlining procedure: k8177 o|inlining procedure: k8177 o|inlining procedure: k8189 o|inlining procedure: k8189 o|inlining procedure: k8201 o|inlining procedure: k8201 o|inlining procedure: k8213 o|inlining procedure: k8213 o|inlining procedure: k8216 o|inlining procedure: k8216 o|inlining procedure: k8241 o|inlining procedure: k8241 o|inlining procedure: k8272 o|inlining procedure: k8272 o|inlining procedure: k8303 o|inlining procedure: k8329 o|inlining procedure: k8329 o|inlining procedure: k8303 o|inlining procedure: k8373 o|inlining procedure: k8373 o|inlining procedure: k8445 o|inlining procedure: k8445 o|inlining procedure: k8454 o|inlining procedure: k8454 o|contracted procedure: "(scrutinizer.scm:236) chicken.compiler.scrutinizer#find" o|inlining procedure: k7870 o|inlining procedure: k7870 o|inlining procedure: k8476 o|inlining procedure: k8476 o|inlining procedure: k8491 o|contracted procedure: "(scrutinizer.scm:244) g911912" o|inlining procedure: k8496 o|inlining procedure: k8496 o|inlining procedure: k8491 o|contracted procedure: "(scrutinizer.scm:258) global-result780" o|inlining procedure: k8403 o|consed rest parameter at call site: "(scrutinizer.scm:227) chicken.compiler.scrutinizer#r-deprecated-identifier" 4 o|inlining procedure: k8403 o|consed rest parameter at call site: "(scrutinizer.scm:230) chicken.compiler.scrutinizer#r-deprecated-identifier" 4 o|inlining procedure: k8398 o|inlining procedure: k8398 o|inlining procedure: k8520 o|inlining procedure: k8520 o|inlining procedure: k8536 o|inlining procedure: k8554 o|inlining procedure: "(scrutinizer.scm:264) chicken.compiler.scrutinizer#second" o|inlining procedure: k8554 o|inlining procedure: "(scrutinizer.scm:265) chicken.compiler.scrutinizer#third" o|substituted constant variable: a8585 o|substituted constant variable: a8587 o|substituted constant variable: a8589 o|inlining procedure: k8536 o|substituted constant variable: a8594 o|inlining procedure: k8601 o|contracted procedure: "(scrutinizer.scm:272) chicken.compiler.scrutinizer#r-cond-test-always-true" o|consed rest parameter at call site: "(scrutinizer.scm:2800) chicken.compiler.scrutinizer#report-notice" 5 o|inlining procedure: k8601 o|inlining procedure: k8634 o|inlining procedure: k8634 o|inlining procedure: k8652 o|inlining procedure: k8652 o|inlining procedure: "(scrutinizer.scm:295) chicken.compiler.scrutinizer#first" o|substituted constant variable: a8668 o|removed unused formal parameters: (e972 params974 typeenv975) o|inlining procedure: k8728 o|contracted procedure: "(scrutinizer.scm:315) chicken.compiler.scrutinizer#r-invalid-called-procedure-type" o|inlining procedure: k21748 o|inlining procedure: "(scrutinizer.scm:2526) chicken.compiler.scrutinizer#first" o|inlining procedure: k21748 o|inlining procedure: k21786 o|inlining procedure: k21786 o|inlining procedure: k8728 o|consed rest parameter at call site: "(scrutinizer.scm:320) chicken.compiler.scrutinizer#procedure-argument-types" 4 o|inlining procedure: k8812 o|inlining procedure: k8812 o|inlining procedure: k8855 o|inlining procedure: k8855 o|inlining procedure: k8880 o|contracted procedure: "(scrutinizer.scm:399) g11211122" o|inlining procedure: k8880 o|inlining procedure: k8915 o|contracted procedure: "(scrutinizer.scm:348) chicken.compiler.scrutinizer#r-pred-call-always-true" o|consed rest parameter at call site: "(scrutinizer.scm:2751) chicken.compiler.scrutinizer#report-notice" 5 o|inlining procedure: k8915 o|inlining procedure: k8987 o|inlining procedure: k8987 o|contracted procedure: "(scrutinizer.scm:359) chicken.compiler.scrutinizer#r-pred-call-always-false" o|consed rest parameter at call site: "(scrutinizer.scm:2776) chicken.compiler.scrutinizer#report-notice" 5 o|inlining procedure: k9069 o|inlining procedure: k9069 o|inlining procedure: k9103 o|inlining procedure: k9136 o|inlining procedure: k9136 o|inlining procedure: "(scrutinizer.scm:390) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:391) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:388) chicken.compiler.scrutinizer#second" o|consed rest parameter at call site: "(scrutinizer.scm:382) chicken.compiler.scrutinizer#append-map" 3 o|inlining procedure: "(scrutinizer.scm:380) chicken.compiler.scrutinizer#first" o|inlining procedure: k9103 o|contracted procedure: "(scrutinizer.scm:375) get-specializations789" o|inlining procedure: k8683 o|inlining procedure: k8683 o|inlining procedure: k8694 o|inlining procedure: k8694 o|inlining procedure: k9193 o|inlining procedure: k9193 o|contracted procedure: "(scrutinizer.scm:340) chicken.compiler.scrutinizer#procedure-result-types" o|inlining procedure: k15533 o|inlining procedure: k15533 o|inlining procedure: "(scrutinizer.scm:1434) chicken.compiler.scrutinizer#second" o|inlining procedure: k15554 o|inlining procedure: k15576 o|inlining procedure: k15576 o|substituted constant variable: a15586 o|inlining procedure: "(scrutinizer.scm:1438) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1438) chicken.compiler.scrutinizer#second" o|inlining procedure: k15554 o|inlining procedure: "(scrutinizer.scm:1445) chicken.compiler.scrutinizer#third" o|inlining procedure: k9222 o|inlining procedure: k9222 o|contracted procedure: "(scrutinizer.scm:322) chicken.compiler.scrutinizer#r-proc-call-argument-count-mismatch" o|consed rest parameter at call site: "(scrutinizer.scm:311) chicken.compiler.scrutinizer#append-map" 3 o|consed rest parameter at call site: "(scrutinizer.scm:310) chicken.compiler.scrutinizer#make-list" 2 o|inlining procedure: k9300 o|inlining procedure: k9300 o|inlining procedure: k9352 o|inlining procedure: k9352 o|removed unused formal parameters: (vars1186) o|inlining procedure: k9372 o|inlining procedure: k9410 o|inlining procedure: k9410 o|consed rest parameter at call site: "(scrutinizer.scm:434) chicken.compiler.scrutinizer#procedure-argument-types" 4 o|consed rest parameter at call site: "(scrutinizer.scm:435) chicken.compiler.scrutinizer#make-list" 2 o|inlining procedure: k9372 o|consed rest parameter at call site: "(scrutinizer.scm:436) chicken.compiler.scrutinizer#make-list" 2 o|inlining procedure: k9459 o|inlining procedure: k9459 o|propagated global variable: a9481 chicken.compiler.scrutinizer#d-depth o|propagated global variable: a9486 chicken.compiler.scrutinizer#d-depth o|inlining procedure: "(scrutinizer.scm:449) chicken.compiler.scrutinizer#first" o|inlining procedure: k9500 o|inlining procedure: "(scrutinizer.scm:450) chicken.compiler.scrutinizer#first" o|inlining procedure: k9500 o|inlining procedure: k9523 o|inlining procedure: k9523 o|inlining procedure: "(scrutinizer.scm:453) chicken.compiler.scrutinizer#first" o|inlining procedure: k9542 o|inlining procedure: "(scrutinizer.scm:455) chicken.compiler.scrutinizer#second" o|inlining procedure: k9542 o|inlining procedure: "(scrutinizer.scm:457) chicken.compiler.scrutinizer#first" o|inlining procedure: k9576 o|inlining procedure: k9628 o|inlining procedure: k9628 o|inlining procedure: k9678 o|contracted procedure: "(scrutinizer.scm:500) chicken.compiler.scrutinizer#r-cond-branch-value-count-mismatch" o|inlining procedure: k9678 o|inlining procedure: k9690 o|inlining procedure: k9690 o|inlining procedure: k9720 o|contracted procedure: "(scrutinizer.scm:506) g13361346" o|inlining procedure: k9720 o|inlining procedure: k9768 o|inlining procedure: k9768 o|inlining procedure: k9814 o|inlining procedure: k9814 o|inlining procedure: k9848 o|inlining procedure: k9848 o|inlining procedure: k9870 o|inlining procedure: k9870 o|inlining procedure: k9879 o|inlining procedure: k9879 o|contracted procedure: "(scrutinizer.scm:473) always-false785" o|inlining procedure: k8613 o|contracted procedure: "(scrutinizer.scm:277) chicken.compiler.scrutinizer#r-cond-test-always-false" o|consed rest parameter at call site: "(scrutinizer.scm:2816) chicken.compiler.scrutinizer#report-notice" 5 o|inlining procedure: k8613 o|inlining procedure: "(scrutinizer.scm:466) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:465) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:460) chicken.compiler.scrutinizer#first" o|inlining procedure: k9576 o|inlining procedure: k9933 o|inlining procedure: k9933 o|inlining procedure: k9981 o|inlining procedure: k9981 o|inlining procedure: "(scrutinizer.scm:521) chicken.compiler.scrutinizer#first" o|inlining procedure: k10019 o|inlining procedure: k10092 o|inlining procedure: k10092 o|inlining procedure: "(scrutinizer.scm:542) chicken.compiler.scrutinizer#first" o|inlining procedure: k10231 o|contracted procedure: "(scrutinizer.scm:532) g14061416" o|inlining procedure: k10231 o|inlining procedure: k10280 o|inlining procedure: k10280 o|removed unused parameter to known procedure: vars1186 "(scrutinizer.scm:530) initial-argument-types793" o|inlining procedure: "(scrutinizer.scm:527) chicken.compiler.scrutinizer#first" o|inlining procedure: k10019 o|inlining procedure: k10319 o|inlining procedure: k10319 o|contracted procedure: "(scrutinizer.scm:644) always-immediate786" o|inlining procedure: k8625 o|inlining procedure: k8625 o|inlining procedure: k10345 o|inlining procedure: k10345 o|inlining procedure: k10408 o|inlining procedure: k10408 o|inlining procedure: k10439 o|substituted constant variable: a10471 o|substituted constant variable: a10472 o|removed unused parameter to known procedure: where1912 "(scrutinizer.scm:607) chicken.compiler.scrutinizer#smash-component-types!" o|inlining procedure: k10505 o|inlining procedure: k10505 o|inlining procedure: "(scrutinizer.scm:602) chicken.compiler.scrutinizer#first" o|inlining procedure: k10439 o|inlining procedure: k10533 o|inlining procedure: k10533 o|contracted procedure: "(scrutinizer.scm:595) chicken.compiler.scrutinizer#r-toplevel-var-assignment-type-mismatch" o|inlining procedure: k22830 o|inlining procedure: k22830 o|inlining procedure: "(scrutinizer.scm:595) chicken.compiler.scrutinizer#first" o|inlining procedure: k10570 o|inlining procedure: k10593 o|inlining procedure: k10593 o|inlining procedure: k10570 o|inlining procedure: "(scrutinizer.scm:584) chicken.compiler.scrutinizer#first" o|inlining procedure: "(scrutinizer.scm:582) chicken.compiler.scrutinizer#first" o|inlining procedure: "(scrutinizer.scm:580) chicken.compiler.scrutinizer#first" o|inlining procedure: k10636 o|inlining procedure: k10636 o|removed unused parameter to known procedure: e972 "(scrutinizer.scm:671) call-result790" o|removed unused parameter to known procedure: params974 "(scrutinizer.scm:671) call-result790" o|removed unused parameter to known procedure: typeenv975 "(scrutinizer.scm:671) call-result790" o|inlining procedure: k10723 o|removed unused parameter to known procedure: where1912 "(scrutinizer.scm:679) chicken.compiler.scrutinizer#smash-component-types!" o|removed unused parameter to known procedure: where1912 "(scrutinizer.scm:678) chicken.compiler.scrutinizer#smash-component-types!" o|inlining procedure: k10723 o|inlining procedure: k10741 o|inlining procedure: k10741 o|inlining procedure: k10761 o|inlining procedure: k10793 o|inlining procedure: k10793 o|inlining procedure: k10761 o|inlining procedure: k10835 o|inlining procedure: k10871 o|inlining procedure: k10871 o|inlining procedure: k10897 o|inlining procedure: k10897 o|inlining procedure: k10906 o|inlining procedure: k10921 o|inlining procedure: k10921 o|inlining procedure: k10906 o|inlining procedure: k10967 o|inlining procedure: k10967 o|inlining procedure: "(scrutinizer.scm:697) chicken.compiler.scrutinizer#first" o|inlining procedure: "(scrutinizer.scm:694) chicken.compiler.scrutinizer#first" o|inlining procedure: k10835 o|inlining procedure: k11010 o|inlining procedure: k11010 o|inlining procedure: k11033 o|inlining procedure: k11033 o|inlining procedure: k11067 o|inlining procedure: k11067 o|consed rest parameter at call site: "(scrutinizer.scm:744) chicken.compiler.scrutinizer#procedure-argument-types" 4 o|inlining procedure: k11143 o|inlining procedure: k11143 o|inlining procedure: k11181 o|inlining procedure: k11181 o|contracted procedure: "(scrutinizer.scm:662) chicken.compiler.scrutinizer#iota" o|inlining procedure: k11226 o|inlining procedure: k11247 o|contracted procedure: "(scrutinizer.scm:753) chicken.compiler.scrutinizer#r-zero-values-for-the" o|inlining procedure: "(scrutinizer.scm:753) chicken.compiler.scrutinizer#first" o|inlining procedure: k11247 o|contracted procedure: "(scrutinizer.scm:760) chicken.compiler.scrutinizer#r-type-mismatch-in-the" o|inlining procedure: "(scrutinizer.scm:760) chicken.compiler.scrutinizer#first" o|inlining procedure: "(scrutinizer.scm:760) chicken.compiler.scrutinizer#first" o|consed rest parameter at call site: "(scrutinizer.scm:758) chicken.compiler.scrutinizer#compatible-types?" 3 o|inlining procedure: "(scrutinizer.scm:758) chicken.compiler.scrutinizer#first" o|inlining procedure: "(scrutinizer.scm:757) chicken.compiler.scrutinizer#second" o|contracted procedure: "(scrutinizer.scm:756) chicken.compiler.scrutinizer#r-too-many-values-for-the" o|inlining procedure: "(scrutinizer.scm:756) chicken.compiler.scrutinizer#first" o|substituted constant variable: a11312 o|inlining procedure: "(scrutinizer.scm:751) chicken.compiler.scrutinizer#first" o|inlining procedure: "(scrutinizer.scm:750) chicken.compiler.scrutinizer#first" o|inlining procedure: k11226 o|inlining procedure: k11343 o|contracted procedure: "(scrutinizer.scm:769) chicken.compiler.scrutinizer#fail-compiler-typecase" o|consed rest parameter at call site: "(scrutinizer.scm:2891) chicken.compiler.scrutinizer#string-add-indent" 2 o|inlining procedure: k22703 o|inlining procedure: k22703 o|consed rest parameter at call site: "(scrutinizer.scm:2914) chicken.compiler.scrutinizer#location-name" 2 o|substituted constant variable: a22734 o|inlining procedure: k11343 o|inlining procedure: "(scrutinizer.scm:763) chicken.compiler.scrutinizer#first" o|inlining procedure: k11413 o|inlining procedure: k11413 o|inlining procedure: k11439 o|inlining procedure: k11439 o|substituted constant variable: a11463 o|substituted constant variable: a11465 o|substituted constant variable: a11467 o|substituted constant variable: a11469 o|substituted constant variable: a11471 o|substituted constant variable: a11473 o|substituted constant variable: a11478 o|substituted constant variable: a11480 o|substituted constant variable: a11485 o|substituted constant variable: a11487 o|substituted constant variable: a11489 o|substituted constant variable: a11491 o|substituted constant variable: a11493 o|substituted constant variable: a11495 o|substituted constant variable: a11497 o|substituted constant variable: a11499 o|substituted constant variable: a11501 o|substituted constant variable: a11503 o|substituted constant variable: a11505 o|inlining procedure: k11521 o|inlining procedure: k11521 o|inlining procedure: k11586 o|contracted procedure: "(scrutinizer.scm:793) g18621869" o|propagated global variable: out18721875 ##sys#standard-output o|substituted constant variable: a11554 o|substituted constant variable: a11555 o|propagated global variable: out18721875 ##sys#standard-output o|inlining procedure: k11586 o|propagated global variable: g18681870 chicken.compiler.scrutinizer#specialization-statistics o|inlining procedure: "(scrutinizer.scm:787) chicken.compiler.scrutinizer#first" o|removed unused formal parameters: (where1912) o|inlining procedure: k11631 o|inlining procedure: k11631 o|inlining procedure: k11661 o|inlining procedure: k11681 o|inlining procedure: k11715 o|inlining procedure: k11715 o|inlining procedure: k11681 o|inlining procedure: k11762 o|inlining procedure: k11762 o|inlining procedure: "(scrutinizer.scm:838) chicken.compiler.scrutinizer#third" o|substituted constant variable: a11800 o|substituted constant variable: a11802 o|substituted constant variable: a11807 o|substituted constant variable: a11809 o|substituted constant variable: a11811 o|substituted constant variable: a11813 o|inlining procedure: k11661 o|inlining procedure: k11841 o|inlining procedure: k11853 o|inlining procedure: k11853 o|inlining procedure: "(scrutinizer.scm:854) optargs?2017" o|inlining procedure: k11841 o|inlining procedure: k11869 o|inlining procedure: k11869 o|inlining procedure: "(scrutinizer.scm:857) optargs?2017" o|inlining procedure: k11879 o|inlining procedure: k11879 o|inlining procedure: k11901 o|removed unused parameter to known procedure: opt2047 "(scrutinizer.scm:863) match-rest2016" o|inlining procedure: k11901 o|removed unused parameter to known procedure: opt2047 "(scrutinizer.scm:865) match-rest2016" o|inlining procedure: k11931 o|inlining procedure: k11931 o|removed unused formal parameters: (opt2047) o|contracted procedure: "(scrutinizer.scm:871) chicken.compiler.scrutinizer#span" o|inlining procedure: k6804 o|inlining procedure: k6804 o|inlining procedure: k11985 o|inlining procedure: k11995 o|inlining procedure: k11995 o|inlining procedure: k11985 o|inlining procedure: k12012 o|inlining procedure: k12012 o|substituted constant variable: a12022 o|inlining procedure: k12029 o|inlining procedure: k12029 o|inlining procedure: k12041 o|inlining procedure: k12041 o|inlining procedure: k12059 o|inlining procedure: k12059 o|substituted constant variable: a12085 o|substituted constant variable: a12090 o|inlining procedure: k12125 o|inlining procedure: k12125 o|inlining procedure: k12158 o|inlining procedure: k12158 o|inlining procedure: k12169 o|inlining procedure: k12184 o|inlining procedure: k12184 o|inlining procedure: "(scrutinizer.scm:913) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:912) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:911) chicken.compiler.scrutinizer#second" o|inlining procedure: k12169 o|inlining procedure: k12213 o|inlining procedure: k12213 o|inlining procedure: k12225 o|inlining procedure: k12225 o|inlining procedure: "(scrutinizer.scm:923) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:922) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:921) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:920) chicken.compiler.scrutinizer#second" o|inlining procedure: k12250 o|inlining procedure: k12250 o|inlining procedure: "(scrutinizer.scm:925) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:924) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:910) chicken.compiler.scrutinizer#second" o|inlining procedure: k12301 o|inlining procedure: k12316 o|inlining procedure: k12316 o|inlining procedure: "(scrutinizer.scm:936) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:935) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:934) chicken.compiler.scrutinizer#second" o|inlining procedure: k12301 o|inlining procedure: "(scrutinizer.scm:938) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:937) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:933) chicken.compiler.scrutinizer#second" o|inlining procedure: k12296 o|inlining procedure: k12296 o|inlining procedure: k12377 o|inlining procedure: k12377 o|inlining procedure: k12392 o|inlining procedure: k12392 o|inlining procedure: k12407 o|inlining procedure: k12407 o|inlining procedure: k12427 o|inlining procedure: k12427 o|inlining procedure: k12476 o|inlining procedure: k12476 o|inlining procedure: k12536 o|inlining procedure: k12536 o|inlining procedure: "(scrutinizer.scm:981) chicken.compiler.scrutinizer#third" o|inlining procedure: k12568 o|inlining procedure: "(scrutinizer.scm:983) chicken.compiler.scrutinizer#third" o|inlining procedure: k12568 o|inlining procedure: k12587 o|inlining procedure: k12587 o|inlining procedure: k12598 o|inlining procedure: k12610 o|inlining procedure: k12610 o|inlining procedure: k12598 o|inlining procedure: k12627 o|inlining procedure: k12627 o|inlining procedure: k12644 o|inlining procedure: k12644 o|inlining procedure: k12670 o|inlining procedure: k12670 o|inlining procedure: k12706 o|inlining procedure: k12706 o|inlining procedure: "(scrutinizer.scm:1005) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1005) chicken.compiler.scrutinizer#second" o|inlining procedure: k12741 o|inlining procedure: k12741 o|inlining procedure: k12781 o|contracted procedure: "(scrutinizer.scm:1012) chicken.compiler.scrutinizer#lset<=/eq?" o|inlining procedure: "(scrutinizer.scm:1012) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1012) chicken.compiler.scrutinizer#second" o|inlining procedure: k12781 o|inlining procedure: "(scrutinizer.scm:1010) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1010) chicken.compiler.scrutinizer#third" o|substituted constant variable: a12813 o|substituted constant variable: a12818 o|substituted constant variable: a12820 o|substituted constant variable: a12825 o|substituted constant variable: a12827 o|substituted constant variable: a12829 o|substituted constant variable: a12831 o|substituted constant variable: a12833 o|inlining procedure: k12834 o|inlining procedure: "(scrutinizer.scm:1015) chicken.compiler.scrutinizer#third" o|inlining procedure: k12834 o|inlining procedure: "(scrutinizer.scm:1017) chicken.compiler.scrutinizer#third" o|inlining procedure: k12866 o|inlining procedure: k12879 o|inlining procedure: k12891 o|inlining procedure: "(scrutinizer.scm:1024) chicken.compiler.scrutinizer#third" o|inlining procedure: k12891 o|inlining procedure: "(scrutinizer.scm:1023) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1023) chicken.compiler.scrutinizer#second" o|inlining procedure: k12879 o|inlining procedure: k12918 o|inlining procedure: k12938 o|inlining procedure: k12938 o|inlining procedure: "(scrutinizer.scm:1028) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1027) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1027) chicken.compiler.scrutinizer#second" o|inlining procedure: k12918 o|substituted constant variable: a12965 o|substituted constant variable: a12967 o|inlining procedure: k12866 o|inlining procedure: k12974 o|inlining procedure: k12987 o|inlining procedure: "(scrutinizer.scm:1039) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1038) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1038) chicken.compiler.scrutinizer#second" o|inlining procedure: k12987 o|inlining procedure: k13014 o|inlining procedure: k13026 o|inlining procedure: "(scrutinizer.scm:1046) chicken.compiler.scrutinizer#third" o|inlining procedure: k13026 o|inlining procedure: "(scrutinizer.scm:1042) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1042) chicken.compiler.scrutinizer#second" o|inlining procedure: k13014 o|substituted constant variable: a13067 o|substituted constant variable: a13069 o|inlining procedure: k12974 o|inlining procedure: k13070 o|inlining procedure: k13082 o|inlining procedure: "(scrutinizer.scm:1055) chicken.compiler.scrutinizer#second" o|inlining procedure: k13082 o|inlining procedure: k13070 o|inlining procedure: k13118 o|inlining procedure: "(scrutinizer.scm:1062) chicken.compiler.scrutinizer#second" o|inlining procedure: k13118 o|inlining procedure: k13146 o|inlining procedure: k13158 o|inlining procedure: "(scrutinizer.scm:1070) chicken.compiler.scrutinizer#second" o|inlining procedure: k13158 o|inlining procedure: k13146 o|inlining procedure: k13194 o|inlining procedure: "(scrutinizer.scm:1077) chicken.compiler.scrutinizer#second" o|inlining procedure: k13194 o|inlining procedure: k13289 o|inlining procedure: k13289 o|inlining procedure: k13411 o|inlining procedure: k13411 o|inlining procedure: k13429 o|inlining procedure: k13429 o|inlining procedure: k13451 o|inlining procedure: k13451 o|inlining procedure: k13486 o|inlining procedure: "(scrutinizer.scm:1132) chicken.compiler.scrutinizer#third" o|inlining procedure: k13524 o|inlining procedure: k13524 o|inlining procedure: k13561 o|contracted procedure: "(scrutinizer.scm:1121) g24122421" o|contracted procedure: "(scrutinizer.scm:1123) chicken.compiler.scrutinizer#make-tv" o|substituted constant variable: a15879 o|inlining procedure: "(scrutinizer.scm:1122) chicken.compiler.scrutinizer#first" o|inlining procedure: k13561 o|inlining procedure: "(scrutinizer.scm:1119) chicken.compiler.scrutinizer#second" o|inlining procedure: k13592 o|inlining procedure: k13607 o|inlining procedure: k13607 o|inlining procedure: k13623 o|inlining procedure: k13648 o|contracted procedure: "(scrutinizer.scm:1143) g24892490" o|contracted procedure: "(scrutinizer.scm:1155) chicken.compiler.scrutinizer#merge-result-types" o|inlining procedure: k14627 o|inlining procedure: k14627 o|inlining procedure: k13707 o|inlining procedure: k13707 o|inlining procedure: k13648 o|inlining procedure: k13623 o|inlining procedure: k13732 o|inlining procedure: k13732 o|inlining procedure: k13750 o|inlining procedure: k13750 o|inlining procedure: k13768 o|inlining procedure: k13768 o|inlining procedure: k13786 o|inlining procedure: k13786 o|inlining procedure: k13851 o|inlining procedure: k13851 o|inlining procedure: k13869 o|inlining procedure: k13869 o|consed rest parameter at call site: "(scrutinizer.scm:1162) chicken.compiler.scrutinizer#append-map" 3 o|substituted constant variable: a13893 o|inlining procedure: k13912 o|inlining procedure: k13912 o|inlining procedure: k13592 o|inlining procedure: k13955 o|inlining procedure: k13955 o|inlining procedure: "(scrutinizer.scm:1187) chicken.compiler.scrutinizer#third" o|contracted procedure: "(scrutinizer.scm:1187) chicken.compiler.scrutinizer#lset-union/eq?" o|inlining procedure: k7660 o|contracted procedure: "(mini-srfi-1.scm:171) g452453" o|inlining procedure: k7685 o|contracted procedure: "(mini-srfi-1.scm:173) g468469" o|inlining procedure: k7701 o|inlining procedure: k7701 o|inlining procedure: k7685 o|inlining procedure: k7660 o|inlining procedure: "(scrutinizer.scm:1187) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1184) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1183) chicken.compiler.scrutinizer#second" o|inlining procedure: k13993 o|inlining procedure: "(scrutinizer.scm:1192) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1191) chicken.compiler.scrutinizer#second" o|inlining procedure: k13993 o|inlining procedure: k14041 o|inlining procedure: k14041 o|inlining procedure: "(scrutinizer.scm:1198) chicken.compiler.scrutinizer#second" o|inlining procedure: k14056 o|inlining procedure: "(scrutinizer.scm:1203) chicken.compiler.scrutinizer#second" o|inlining procedure: k14056 o|inlining procedure: k14086 o|inlining procedure: k14086 o|inlining procedure: k14109 o|inlining procedure: k14109 o|inlining procedure: k14142 o|inlining procedure: k14165 o|inlining procedure: k14165 o|inlining procedure: k14142 o|inlining procedure: k14220 o|inlining procedure: k14220 o|inlining procedure: k14238 o|inlining procedure: k14238 o|inlining procedure: k14285 o|inlining procedure: k14285 o|inlining procedure: "(scrutinizer.scm:1219) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1219) chicken.compiler.scrutinizer#second" o|substituted constant variable: a14338 o|substituted constant variable: a14340 o|substituted constant variable: a14342 o|substituted constant variable: a14344 o|substituted constant variable: a14346 o|substituted constant variable: a14348 o|substituted constant variable: a14350 o|substituted constant variable: a14352 o|substituted constant variable: a14354 o|inlining procedure: k13486 o|contracted procedure: "(scrutinizer.scm:1226) chicken.compiler.scrutinizer#lset-adjoin/eq?" o|inlining procedure: k7574 o|inlining procedure: k7574 o|inlining procedure: k14376 o|inlining procedure: k14396 o|inlining procedure: k14396 o|inlining procedure: k14376 o|inlining procedure: k14434 o|substituted constant variable: chicken.compiler.scrutinizer#constant733 o|inlining procedure: k14434 o|inlining procedure: k14446 o|substituted constant variable: a14465 o|inlining procedure: k14458 o|inlining procedure: k14458 o|inlining procedure: k14446 o|inlining procedure: k14472 o|inlining procedure: k14472 o|inlining procedure: k14523 o|inlining procedure: k14523 o|substituted constant variable: a14579 o|inlining procedure: k14572 o|inlining procedure: k14572 o|merged explicitly consed rest parameter: rest27592762 o|inlining procedure: k14690 o|inlining procedure: k14690 o|contracted procedure: "(scrutinizer.scm:1297) chicken.compiler.scrutinizer#with-trail-restore" o|inlining procedure: k15077 o|inlining procedure: k15077 o|contracted procedure: "(scrutinizer.scm:1340) refine2813" o|inlining procedure: k14783 o|inlining procedure: k14783 o|inlining procedure: k14808 o|inlining procedure: "(scrutinizer.scm:1317) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1316) chicken.compiler.scrutinizer#third" o|inlining procedure: k14808 o|inlining procedure: k14844 o|inlining procedure: "(scrutinizer.scm:1320) chicken.compiler.scrutinizer#second" o|inlining procedure: k14844 o|inlining procedure: "(scrutinizer.scm:1319) chicken.compiler.scrutinizer#third" o|inlining procedure: k14862 o|inlining procedure: k14862 o|inlining procedure: k14877 o|inlining procedure: k14877 o|inlining procedure: k14896 o|inlining procedure: k14934 o|inlining procedure: k14934 o|inlining procedure: k14896 o|contracted procedure: "(scrutinizer.scm:1337) chicken.compiler.scrutinizer#type-min" o|inlining procedure: k14715 o|inlining procedure: k14715 o|substituted constant variable: a14990 o|inlining procedure: k14985 o|inlining procedure: k14997 o|inlining procedure: k14997 o|inlining procedure: k14985 o|inlining procedure: k15029 o|inlining procedure: k15041 o|inlining procedure: k15041 o|inlining procedure: k15029 o|substituted constant variable: a15061 o|substituted constant variable: a15067 o|inlining procedure: k15096 o|inlining procedure: k15096 o|inlining procedure: k15106 o|inlining procedure: "(scrutinizer.scm:1351) chicken.compiler.scrutinizer#third" o|inlining procedure: k15106 o|inlining procedure: k15125 o|inlining procedure: k15125 o|substituted constant variable: a15137 o|substituted constant variable: a15139 o|substituted constant variable: a15141 o|inlining procedure: k15145 o|inlining procedure: "(scrutinizer.scm:1359) chicken.compiler.scrutinizer#third" o|inlining procedure: k15165 o|inlining procedure: k15183 o|inlining procedure: k15183 o|inlining procedure: k15165 o|substituted constant variable: a15190 o|substituted constant variable: a15192 o|inlining procedure: k15145 o|inlining procedure: k15196 o|inlining procedure: "(scrutinizer.scm:1370) chicken.compiler.scrutinizer#third" o|inlining procedure: k15216 o|inlining procedure: "(scrutinizer.scm:1374) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1375) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1372) chicken.compiler.scrutinizer#second" o|inlining procedure: k15216 o|substituted constant variable: a15247 o|substituted constant variable: a15249 o|inlining procedure: k15196 o|inlining procedure: k15253 o|inlining procedure: "(scrutinizer.scm:1381) chicken.compiler.scrutinizer#third" o|inlining procedure: k15273 o|inlining procedure: "(scrutinizer.scm:1383) chicken.compiler.scrutinizer#second" o|inlining procedure: k15273 o|substituted constant variable: a15304 o|substituted constant variable: a15306 o|inlining procedure: k15253 o|merged explicitly consed rest parameter: rest29642968 o|inlining procedure: k15319 o|inlining procedure: k15338 o|inlining procedure: k15338 o|inlining procedure: k15355 o|inlining procedure: k15355 o|inlining procedure: k15363 o|consed rest parameter at call site: "(scrutinizer.scm:1414) chicken.compiler.scrutinizer#make-list" 2 o|inlining procedure: k15363 o|inlining procedure: "(scrutinizer.scm:1399) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1400) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1398) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1398) chicken.compiler.scrutinizer#second" o|inlining procedure: k15319 o|inlining procedure: "(scrutinizer.scm:1422) chicken.compiler.scrutinizer#third" o|inlining procedure: k15476 o|inlining procedure: k15476 o|inlining procedure: "(scrutinizer.scm:1425) chicken.compiler.scrutinizer#second" o|inlining procedure: k15468 o|inlining procedure: k15468 o|consed rest parameter at call site: "(scrutinizer.scm:1429) chicken.compiler.scrutinizer#make-list" 2 o|inlining procedure: k15661 o|inlining procedure: k15681 o|inlining procedure: k15681 o|inlining procedure: k15694 o|inlining procedure: "(scrutinizer.scm:1454) chicken.compiler.scrutinizer#third" o|inlining procedure: k15694 o|substituted constant variable: a15708 o|substituted constant variable: a15710 o|inlining procedure: k15661 o|inlining procedure: k15714 o|inlining procedure: k15714 o|inlining procedure: k15734 o|inlining procedure: k15747 o|inlining procedure: k15757 o|inlining procedure: k15757 o|inlining procedure: "(scrutinizer.scm:1468) chicken.compiler.scrutinizer#second" o|inlining procedure: k15747 o|inlining procedure: k15773 o|inlining procedure: "(scrutinizer.scm:1472) chicken.compiler.scrutinizer#third" o|inlining procedure: k15773 o|substituted constant variable: a15787 o|substituted constant variable: a15789 o|inlining procedure: k15734 o|inlining procedure: k15796 o|inlining procedure: k15796 o|inlining procedure: k15806 o|inlining procedure: k15806 o|inlining procedure: "(scrutinizer.scm:1480) chicken.compiler.scrutinizer#third" o|substituted constant variable: a15831 o|substituted constant variable: a15833 o|inlining procedure: k15837 o|inlining procedure: k15852 o|inlining procedure: "(scrutinizer.scm:1489) chicken.compiler.scrutinizer#third" o|inlining procedure: k15852 o|substituted constant variable: a15866 o|substituted constant variable: a15868 o|inlining procedure: "(scrutinizer.scm:1487) chicken.compiler.scrutinizer#first" o|inlining procedure: k15837 o|inlining procedure: k15890 o|inlining procedure: "(scrutinizer.scm:1507) chicken.compiler.scrutinizer#third" o|inlining procedure: k15910 o|inlining procedure: k15934 o|inlining procedure: k15952 o|inlining procedure: k15952 o|inlining procedure: k15934 o|inlining procedure: k15979 o|inlining procedure: k15979 o|inlining procedure: "(scrutinizer.scm:1510) chicken.compiler.scrutinizer#third" o|inlining procedure: k16008 o|inlining procedure: k16025 o|inlining procedure: k16025 o|inlining procedure: k16008 o|inlining procedure: k16052 o|inlining procedure: k16052 o|inlining procedure: "(scrutinizer.scm:1514) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1509) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1509) chicken.compiler.scrutinizer#second" o|inlining procedure: k15910 o|inlining procedure: "(scrutinizer.scm:1524) chicken.compiler.scrutinizer#third" o|inlining procedure: k16138 o|contracted procedure: "(scrutinizer.scm:1518) g31993208" o|inlining procedure: k16106 o|inlining procedure: k16106 o|inlining procedure: "(scrutinizer.scm:1521) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1521) chicken.compiler.scrutinizer#first" o|inlining procedure: k16138 o|inlining procedure: "(scrutinizer.scm:1522) chicken.compiler.scrutinizer#second" o|inlining procedure: k16169 o|inlining procedure: k16185 o|inlining procedure: k16185 o|inlining procedure: k16169 o|substituted constant variable: a16206 o|substituted constant variable: a16208 o|substituted constant variable: a16210 o|substituted constant variable: a16212 o|inlining procedure: k15890 o|inlining procedure: k16222 o|inlining procedure: k16222 o|inlining procedure: k16280 o|inlining procedure: "(scrutinizer.scm:1550) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1549) chicken.compiler.scrutinizer#third" o|inlining procedure: k16280 o|inlining procedure: "(scrutinizer.scm:1546) chicken.compiler.scrutinizer#second" o|inlining procedure: k16272 o|inlining procedure: k16272 o|inlining procedure: k16325 o|inlining procedure: k16325 o|inlining procedure: k16343 o|inlining procedure: k16371 o|inlining procedure: k16371 o|inlining procedure: k16343 o|inlining procedure: "(scrutinizer.scm:1560) chicken.compiler.scrutinizer#second" o|inlining procedure: k16419 o|inlining procedure: "(scrutinizer.scm:1562) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1562) chicken.compiler.scrutinizer#second" o|inlining procedure: k16419 o|inlining procedure: k16478 o|inlining procedure: k16478 o|inlining procedure: k16509 o|inlining procedure: k16544 o|inlining procedure: k16544 o|inlining procedure: k16567 o|inlining procedure: k16567 o|inlining procedure: k16601 o|inlining procedure: k16601 o|inlining procedure: k16613 o|inlining procedure: k16613 o|inlining procedure: k16632 o|inlining procedure: k16632 o|inlining procedure: k16509 o|substituted constant variable: a16674 o|inlining procedure: k16678 o|inlining procedure: k16678 o|inlining procedure: k16690 o|inlining procedure: k16690 o|substituted constant variable: a16697 o|substituted constant variable: a16699 o|substituted constant variable: a16701 o|substituted constant variable: a16703 o|substituted constant variable: a16705 o|substituted constant variable: a16710 o|substituted constant variable: a16712 o|substituted constant variable: a16714 o|substituted constant variable: a16716 o|inlining procedure: k16730 o|inlining procedure: k16730 o|inlining procedure: k16739 o|inlining procedure: k16739 o|inlining procedure: k16748 o|inlining procedure: k16803 o|inlining procedure: k16803 o|consed rest parameter at call site: "(scrutinizer.scm:1644) chicken.compiler.scrutinizer#compatible-types?" 3 o|substituted constant variable: a16846 o|substituted constant variable: a16847 o|inlining procedure: k16879 o|inlining procedure: k16906 o|inlining procedure: k16906 o|inlining procedure: k16929 o|inlining procedure: k16929 o|inlining procedure: k16957 o|inlining procedure: k16957 o|substituted constant variable: a16997 o|substituted constant variable: a16999 o|substituted constant variable: a17001 o|substituted constant variable: a17003 o|substituted constant variable: a17005 o|inlining procedure: k17012 o|inlining procedure: "(scrutinizer.scm:1633) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1633) chicken.compiler.scrutinizer#second" o|inlining procedure: k17012 o|inlining procedure: k16879 o|inlining procedure: k17070 o|inlining procedure: k17070 o|substituted constant variable: a17100 o|substituted constant variable: a17101 o|inlining procedure: k16748 o|inlining procedure: k17120 o|inlining procedure: k17120 o|inlining procedure: k17159 o|contracted procedure: "(scrutinizer.scm:1678) chicken.compiler.scrutinizer#cons*" o|inlining procedure: k7179 o|inlining procedure: k7179 o|inlining procedure: k17206 o|inlining procedure: k17265 o|inlining procedure: k17265 o|inlining procedure: k17271 o|inlining procedure: "(scrutinizer.scm:1692) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1692) chicken.compiler.scrutinizer#second" o|inlining procedure: k17271 o|substituted constant variable: a17293 o|substituted constant variable: a17295 o|inlining procedure: k17206 o|inlining procedure: k17159 o|substituted constant variable: a17303 o|merged explicitly consed rest parameter: rest35993601 o|inlining procedure: k17336 o|inlining procedure: k17336 o|consed rest parameter at call site: "(scrutinizer.scm:1718) chicken.compiler.scrutinizer#source-node" 2 o|inlining procedure: k17390 o|inlining procedure: k17390 o|consed rest parameter at call site: "(scrutinizer.scm:1721) chicken.compiler.scrutinizer#source-node" 2 o|inlining procedure: k17495 o|inlining procedure: k17508 o|inlining procedure: k17508 o|inlining procedure: k17523 o|inlining procedure: k17523 o|inlining procedure: k17495 o|inlining procedure: k17559 o|inlining procedure: k17559 o|inlining procedure: k17597 o|inlining procedure: k17597 o|substituted constant variable: a17617 o|substituted constant variable: a17629 o|inlining procedure: k17682 o|inlining procedure: k17682 o|inlining procedure: k17710 o|inlining procedure: k17710 o|inlining procedure: k17722 o|inlining procedure: k17722 o|inlining procedure: k17740 o|inlining procedure: k17740 o|inlining procedure: k17748 o|inlining procedure: k17763 o|inlining procedure: k17763 o|inlining procedure: k17748 o|inlining procedure: k17802 o|inlining procedure: k17802 o|inlining procedure: k17843 o|inlining procedure: k17843 o|inlining procedure: k17855 o|inlining procedure: k17855 o|inlining procedure: k17870 o|inlining procedure: k17870 o|inlining procedure: k17882 o|inlining procedure: k17882 o|inlining procedure: k17897 o|inlining procedure: k17897 o|inlining procedure: k17906 o|inlining procedure: k17906 o|inlining procedure: k17912 o|inlining procedure: "(scrutinizer.scm:1834) chicken.compiler.scrutinizer#second" o|substituted constant variable: a17935 o|inlining procedure: k17912 o|inlining procedure: k17946 o|inlining procedure: "(scrutinizer.scm:1860) chicken.compiler.scrutinizer#third" o|inlining procedure: k17986 o|inlining procedure: k18001 o|inlining procedure: k18001 o|inlining procedure: k17986 o|inlining procedure: "(scrutinizer.scm:1858) chicken.compiler.scrutinizer#second" o|inlining procedure: k18021 o|inlining procedure: k18021 o|inlining procedure: k18042 o|inlining procedure: k18042 o|substituted constant variable: a18055 o|inlining procedure: k18070 o|inlining procedure: k18070 o|inlining procedure: "(scrutinizer.scm:1848) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1837) chicken.compiler.scrutinizer#second" o|inlining procedure: k17946 o|substituted constant variable: a18105 o|inlining procedure: k18118 o|inlining procedure: k18118 o|inlining procedure: k18113 o|inlining procedure: k18113 o|inlining procedure: k18137 o|inlining procedure: k18167 o|inlining procedure: k18167 o|inlining procedure: k18137 o|inlining procedure: k18198 o|inlining procedure: k18210 o|inlining procedure: k18210 o|inlining procedure: "(scrutinizer.scm:1876) chicken.compiler.scrutinizer#second" o|substituted constant variable: a18220 o|inlining procedure: k18198 o|inlining procedure: k18231 o|inlining procedure: "(scrutinizer.scm:1878) chicken.compiler.scrutinizer#second" o|inlining procedure: k18231 o|substituted constant variable: a18247 o|inlining procedure: k18252 o|inlining procedure: k18267 o|inlining procedure: k18303 o|inlining procedure: "(scrutinizer.scm:1885) chicken.compiler.scrutinizer#second" o|inlining procedure: k18303 o|inlining procedure: "(scrutinizer.scm:1884) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1883) chicken.compiler.scrutinizer#second" o|inlining procedure: k18267 o|contracted procedure: "(scrutinizer.scm:1882) g38603861" o|inlining procedure: k18288 o|inlining procedure: k18288 o|contracted procedure: "(scrutinizer.scm:160) g38663867" o|inlining procedure: k18274 o|inlining procedure: k18274 o|inlining procedure: "(scrutinizer.scm:1881) chicken.compiler.scrutinizer#third" o|substituted constant variable: a18328 o|inlining procedure: k18252 o|inlining procedure: k18359 o|contracted procedure: "(scrutinizer.scm:1895) upto3691" o|inlining procedure: k17654 o|inlining procedure: k17654 o|inlining procedure: k18359 o|inlining procedure: k18399 o|inlining procedure: k18399 o|inlining procedure: "(scrutinizer.scm:1900) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:1900) chicken.compiler.scrutinizer#first" o|inlining procedure: k18429 o|inlining procedure: k18429 o|substituted constant variable: a18446 o|substituted constant variable: a18469 o|inlining procedure: k18462 o|inlining procedure: k18476 o|inlining procedure: "(scrutinizer.scm:1909) chicken.compiler.scrutinizer#second" o|inlining procedure: k18476 o|substituted constant variable: a18499 o|inlining procedure: k18462 o|substituted constant variable: a18511 o|inlining procedure: k18512 o|inlining procedure: k18528 o|inlining procedure: k18528 o|inlining procedure: k18512 o|inlining procedure: k18571 o|inlining procedure: k18595 o|inlining procedure: k18595 o|inlining procedure: k18607 o|inlining procedure: k18607 o|substituted constant variable: a18638 o|inlining procedure: k18571 o|inlining procedure: k18649 o|inlining procedure: k18667 o|inlining procedure: k18679 o|inlining procedure: k18719 o|inlining procedure: k18740 o|inlining procedure: k18740 o|inlining procedure: k18719 o|inlining procedure: k18679 o|inlining procedure: k18667 o|inlining procedure: k18649 o|inlining procedure: k18832 o|inlining procedure: k18844 o|inlining procedure: "(scrutinizer.scm:1865) chicken.compiler.scrutinizer#second" o|inlining procedure: k18844 o|inlining procedure: "(scrutinizer.scm:1863) chicken.compiler.scrutinizer#second" o|inlining procedure: k18832 o|substituted constant variable: chicken.compiler.scrutinizer#constant724 o|inlining procedure: k18911 o|inlining procedure: k18911 o|inlining procedure: k18946 o|inlining procedure: k18946 o|inlining procedure: k18972 o|inlining procedure: k18972 o|inlining procedure: k18896 o|inlining procedure: k18896 o|inlining procedure: k19031 o|inlining procedure: k19031 o|inlining procedure: k19084 o|inlining procedure: k19084 o|inlining procedure: k19061 o|inlining procedure: k19109 o|inlining procedure: k19109 o|inlining procedure: k19124 o|inlining procedure: k19151 o|inlining procedure: k19151 o|inlining procedure: k19173 o|inlining procedure: k19173 o|inlining procedure: "(scrutinizer.scm:2006) chicken.compiler.scrutinizer#second" o|inlining procedure: k19124 o|inlining procedure: "(scrutinizer.scm:2008) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:1999) chicken.compiler.scrutinizer#second" o|substituted constant variable: a19228 o|substituted constant variable: a19230 o|consed rest parameter at call site: "(scrutinizer.scm:1993) chicken.compiler.scrutinizer#append-map" 3 o|inlining procedure: k19238 o|inlining procedure: k19238 o|inlining procedure: "(scrutinizer.scm:1992) chicken.compiler.scrutinizer#first" o|inlining procedure: k19061 o|inlining procedure: "(scrutinizer.scm:1985) chicken.compiler.scrutinizer#first" o|inlining procedure: k19291 o|inlining procedure: k19291 o|inlining procedure: k19325 o|inlining procedure: k19325 o|inlining procedure: k19353 o|inlining procedure: k19353 o|inlining procedure: "(scrutinizer.scm:2029) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:2029) chicken.compiler.scrutinizer#third" o|inlining procedure: k19387 o|inlining procedure: k19387 o|inlining procedure: "(scrutinizer.scm:2030) chicken.compiler.scrutinizer#first" o|inlining procedure: "(scrutinizer.scm:2028) chicken.compiler.scrutinizer#first" o|inlining procedure: "(scrutinizer.scm:2024) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:2023) chicken.compiler.scrutinizer#second" o|inlining procedure: k19451 o|inlining procedure: k19451 o|inlining procedure: k19492 o|inlining procedure: k19504 o|inlining procedure: k19516 o|inlining procedure: k19528 o|inlining procedure: k19540 o|inlining procedure: k19540 o|inlining procedure: "(scrutinizer.scm:2079) chicken.compiler.scrutinizer#first" o|inlining procedure: k19528 o|inlining procedure: "(scrutinizer.scm:2077) chicken.compiler.scrutinizer#third" o|inlining procedure: k19516 o|inlining procedure: k19504 o|inlining procedure: "(scrutinizer.scm:2074) chicken.compiler.scrutinizer#second" o|inlining procedure: k19492 o|inlining procedure: k19594 o|inlining procedure: k19594 o|inlining procedure: k19600 o|inlining procedure: "(scrutinizer.scm:2093) chicken.compiler.scrutinizer#second" o|inlining procedure: k19600 o|inlining procedure: "(scrutinizer.scm:2092) chicken.compiler.scrutinizer#second" o|inlining procedure: k19651 o|inlining procedure: k19651 o|inlining procedure: k19663 o|inlining procedure: k19675 o|inlining procedure: k19675 o|inlining procedure: k19663 o|inlining procedure: k19690 o|contracted procedure: "(scrutinizer.scm:2136) chicken.compiler.scrutinizer#split-at" o|inlining procedure: k6906 o|inlining procedure: k6906 o|inlining procedure: k19690 o|inlining procedure: k19727 o|inlining procedure: k19739 o|inlining procedure: k19739 o|inlining procedure: "(scrutinizer.scm:2146) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:2145) chicken.compiler.scrutinizer#second" o|inlining procedure: "(scrutinizer.scm:2144) chicken.compiler.scrutinizer#first" o|inlining procedure: k19727 o|inlining procedure: "(scrutinizer.scm:2139) chicken.compiler.scrutinizer#first" o|inlining procedure: "(scrutinizer.scm:2134) chicken.compiler.scrutinizer#first" o|inlining procedure: k19842 o|inlining procedure: k19842 o|inlining procedure: k19848 o|inlining procedure: k19860 o|inlining procedure: k19872 o|inlining procedure: k19881 o|inlining procedure: k19881 o|inlining procedure: k19897 o|inlining procedure: k19897 o|contracted procedure: "(scrutinizer.scm:2173) proper-list-type-length4372" o|inlining procedure: k19804 o|inlining procedure: k19804 o|inlining procedure: k19872 o|inlining procedure: "(scrutinizer.scm:2165) chicken.compiler.scrutinizer#first" o|inlining procedure: k19860 o|inlining procedure: "(scrutinizer.scm:2163) chicken.compiler.scrutinizer#third" o|inlining procedure: "(scrutinizer.scm:2162) chicken.compiler.scrutinizer#second" o|inlining procedure: k19848 o|substituted constant variable: a19924 o|inlining procedure: k19968 o|inlining procedure: k19968 o|inlining procedure: k19989 o|inlining procedure: k20005 o|contracted procedure: "(scrutinizer.scm:2237) g46504651" o|inlining procedure: k20005 o|inlining procedure: k19989 o|inlining procedure: k20039 o|inlining procedure: k20039 o|contracted procedure: "(scrutinizer.scm:2252) potentially-proper-list?4624" o|inlining procedure: k20102 o|inlining procedure: k20102 o|inlining procedure: k20224 o|removed side-effect free assignment to unused variable: anyinst4716 o|inlining procedure: k20224 o|inlining procedure: k20300 o|inlining procedure: k20300 o|inlining procedure: k20321 o|inlining procedure: k20321 o|contracted procedure: "(scrutinizer.scm:2316) chicken.compiler.scrutinizer#concatenate" o|inlining procedure: k7207 o|inlining procedure: k7207 o|inlining procedure: k20369 o|inlining procedure: k20369 o|inlining procedure: k20413 o|inlining procedure: k20470 o|inlining procedure: k20470 o|inlining procedure: k20413 o|inlining procedure: k20507 o|inlining procedure: k20507 o|inlining procedure: k20528 o|inlining procedure: k20528 o|merged explicitly consed rest parameter: rest48494851 o|inlining procedure: k20546 o|substituted constant variable: a20556 o|inlining procedure: k20546 o|inlining procedure: k20573 o|inlining procedure: k20573 o|inlining procedure: k20588 o|inlining procedure: k20588 o|merged explicitly consed rest parameter: rest48984900 o|consed rest parameter at call site: "(scrutinizer.scm:2379) conv4889" 2 o|inlining procedure: k20663 o|inlining procedure: k20663 o|substituted constant variable: a20689 o|substituted constant variable: a20690 o|inlining procedure: "(scrutinizer.scm:2385) chicken.compiler.scrutinizer#third" o|inlining procedure: k20727 o|inlining procedure: k20727 o|inlining procedure: "(scrutinizer.scm:2385) chicken.compiler.scrutinizer#second" o|contracted procedure: "(scrutinizer.scm:2390) pp-tv4888" o|inlining procedure: k20761 o|consed rest parameter at call site: "(scrutinizer.scm:2391) conv4889" 2 o|inlining procedure: "(scrutinizer.scm:2391) chicken.compiler.scrutinizer#third" o|inlining procedure: k20798 o|inlining procedure: k20798 o|inlining procedure: "(scrutinizer.scm:2390) chicken.compiler.scrutinizer#second" o|inlining procedure: k20761 o|substituted constant variable: a20839 o|inlining procedure: k20835 o|inlining procedure: k20859 o|inlining procedure: k20859 o|inlining procedure: k20835 o|inlining procedure: k20896 o|inlining procedure: k20934 o|inlining procedure: k20934 o|inlining procedure: k20945 o|inlining procedure: k20945 o|inlining procedure: k20957 o|inlining procedure: k20957 o|inlining procedure: k20975 o|inlining procedure: k20975 o|inlining procedure: k21009 o|inlining procedure: k21009 o|inlining procedure: k20896 o|inlining procedure: "(scrutinizer.scm:2389) chicken.compiler.scrutinizer#second" o|consed rest parameter at call site: "(scrutinizer.scm:2410) chicken.compiler.scrutinizer#string-add-indent" 2 o|consed rest parameter at call site: "(scrutinizer.scm:2409) conv4889" 2 o|inlining procedure: k21103 o|inlining procedure: k21103 o|inlining procedure: k21118 o|inlining procedure: k21146 o|inlining procedure: k21146 o|substituted constant variable: a21187 o|inlining procedure: k21118 o|consed rest parameter at call site: "(scrutinizer.scm:2429) chicken.compiler.scrutinizer#string-add-indent" 2 o|inlining procedure: k21226 o|substituted constant variable: a21236 o|substituted constant variable: a21237 o|inlining procedure: k21226 o|contracted procedure: "(scrutinizer.scm:2436) chicken.compiler.scrutinizer#node-line-number" o|contracted procedure: "(scrutinizer.scm:1729) chicken.compiler.scrutinizer#node-debug-info" o|inlining procedure: k17437 o|inlining procedure: k17452 o|inlining procedure: k17452 o|inlining procedure: k17437 o|substituted constant variable: a17486 o|substituted constant variable: a17488 o|consed rest parameter at call site: "(scrutinizer.scm:1729) chicken.compiler.scrutinizer#source-node" 2 o|merged explicitly consed rest parameter: rest51615163 o|inlining procedure: k21284 o|inlining procedure: k21284 o|inlining procedure: k21303 o|inlining procedure: k21321 o|substituted constant variable: a21357 o|substituted constant variable: a21358 o|substituted constant variable: a21375 o|substituted constant variable: a21376 o|inlining procedure: k21321 o|inlining procedure: k21303 o|contracted procedure: "(scrutinizer.scm:2460) lname5169" o|substituted constant variable: a21266 o|substituted constant variable: a21267 o|inlining procedure: k21259 o|inlining procedure: k21259 o|inlining procedure: k21429 o|inlining procedure: "(scrutinizer.scm:2466) chicken.compiler.scrutinizer#first" o|inlining procedure: "(scrutinizer.scm:2466) chicken.compiler.scrutinizer#second" o|inlining procedure: k21429 o|substituted constant variable: a21493 o|substituted constant variable: a21494 o|inlining procedure: k21486 o|substituted constant variable: a21517 o|substituted constant variable: a21518 o|inlining procedure: k21486 o|inlining procedure: k21554 o|inlining procedure: k21554 o|inlining procedure: "(scrutinizer.scm:2495) chicken.compiler.scrutinizer#first" o|inlining procedure: k21590 o|inlining procedure: k21602 o|inlining procedure: k21602 o|inlining procedure: k21590 o|inlining procedure: "(scrutinizer.scm:2481) chicken.compiler.scrutinizer#first" o|inlining procedure: "(scrutinizer.scm:2500) chicken.compiler.scrutinizer#first" o|inlining procedure: k21673 o|inlining procedure: k21673 o|substituted constant variable: a21683 o|inlining procedure: k21688 o|consed rest parameter at call site: "(scrutinizer.scm:2511) chicken.compiler.scrutinizer#string-add-indent" 2 o|substituted constant variable: a21725 o|substituted constant variable: a21726 o|consed rest parameter at call site: "(scrutinizer.scm:2513) chicken.compiler.scrutinizer#location-name" 2 o|inlining procedure: k21688 o|merged explicitly consed rest parameter: args5311 o|substituted constant variable: a21979 o|substituted constant variable: a21980 o|inlining procedure: k21997 o|inlining procedure: k21997 o|substituted constant variable: a22014 o|substituted constant variable: a22015 o|substituted constant variable: a22073 o|substituted constant variable: a22074 o|substituted constant variable: a22091 o|substituted constant variable: a22092 o|substituted constant variable: a22122 o|substituted constant variable: a22123 o|substituted constant variable: a22140 o|substituted constant variable: a22141 o|inlining procedure: k22191 o|inlining procedure: k22191 o|substituted constant variable: a22208 o|substituted constant variable: a22209 o|inlining procedure: k22257 o|substituted constant variable: a22271 o|substituted constant variable: a22272 o|inlining procedure: k22257 o|substituted constant variable: a22297 o|substituted constant variable: a22298 o|substituted constant variable: a22322 o|substituted constant variable: a22323 o|inlining procedure: k22377 o|substituted constant variable: a22391 o|substituted constant variable: a22392 o|inlining procedure: k22377 o|substituted constant variable: a22417 o|substituted constant variable: a22418 o|substituted constant variable: a22442 o|substituted constant variable: a22443 o|merged explicitly consed rest parameter: rest56465650 o|substituted constant variable: a22853 o|substituted constant variable: a22854 o|substituted constant variable: a22891 o|substituted constant variable: a22892 o|contracted procedure: "(scrutinizer.scm:2285) complex-object-constructor-result-type-special-case4677" o|inlining procedure: k20125 o|inlining procedure: k20125 o|inlining procedure: k20134 o|inlining procedure: k20146 o|inlining procedure: k20158 o|consed rest parameter at call site: "(scrutinizer.scm:2281) chicken.compiler.scrutinizer#make-list" 2 o|inlining procedure: k20158 o|inlining procedure: "(scrutinizer.scm:2278) chicken.compiler.scrutinizer#first" o|inlining procedure: k20146 o|inlining procedure: "(scrutinizer.scm:2276) chicken.compiler.scrutinizer#second" o|inlining procedure: k20134 o|inlining procedure: k20189 o|inlining procedure: "(scrutinizer.scm:2274) chicken.compiler.scrutinizer#third" o|inlining procedure: k20189 o|substituted constant variable: a20203 o|substituted constant variable: a20205 o|inlining procedure: k22938 o|inlining procedure: k22938 o|inlining procedure: k22944 o|inlining procedure: k22956 o|inlining procedure: k22956 o|inlining procedure: "(scrutinizer.scm:2214) chicken.compiler.scrutinizer#second" o|inlining procedure: k22944 o|substituted constant variable: a22990 o|inlining procedure: k23017 o|inlining procedure: k23017 o|inlining procedure: k23074 o|inlining procedure: k23074 o|inlining procedure: k23108 o|inlining procedure: k23108 o|inlining procedure: k23135 o|inlining procedure: k23135 o|inlining procedure: k23173 o|inlining procedure: k23173 o|inlining procedure: k23200 o|inlining procedure: k23200 o|inlining procedure: k23252 o|inlining procedure: k23252 o|inlining procedure: k23274 o|inlining procedure: k23274 o|inlining procedure: k23280 o|inlining procedure: k23292 o|inlining procedure: "(scrutinizer.scm:2107) chicken.compiler.scrutinizer#fourth" o|inlining procedure: k23292 o|inlining procedure: "(scrutinizer.scm:2106) chicken.compiler.scrutinizer#fourth" o|inlining procedure: "(scrutinizer.scm:2105) chicken.compiler.scrutinizer#second" o|inlining procedure: k23280 o|inlining procedure: k23331 o|inlining procedure: k23331 o|inlining procedure: k23337 o|inlining procedure: k23349 o|inlining procedure: k23361 o|inlining procedure: k23361 o|inlining procedure: "(scrutinizer.scm:2061) chicken.compiler.scrutinizer#first" o|inlining procedure: k23349 o|inlining procedure: "(scrutinizer.scm:2059) chicken.compiler.scrutinizer#second" o|inlining procedure: k23337 o|substituted constant variable: a23393 o|simplifications: ((if . 10)) o|replaced variables: 3135 o|removed binding forms: 885 o|substituted constant variable: r684923394 o|substituted constant variable: r695523398 o|substituted constant variable: r699523400 o|substituted constant variable: r715023408 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#first o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#second o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#third o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#fourth o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#filter o|substituted constant variable: r740323421 o|substituted constant variable: r775823424 o|substituted constant variable: r779423427 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#d o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#constant724 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#constant733 o|substituted constant variable: r809223442 o|substituted constant variable: r815123445 o|substituted constant variable: r816323447 o|substituted constant variable: r817823449 o|substituted constant variable: r819023451 o|substituted constant variable: r820223453 o|substituted constant variable: r821423455 o|substituted constant variable: r821423456 o|substituted constant variable: r821723457 o|substituted constant variable: r837423467 o|substituted constant variable: r837423468 o|substituted constant variable: r844623470 o|substituted constant variable: r845523472 o|substituted constant variable: r787123473 o|substituted constant variable: r849723478 o|substituted constant variable: r840423481 o|substituted constant variable: r839923484 o|substituted constant variable: r852123486 o|substituted constant variable: r860223502 o|substituted constant variable: r860223503 o|substituted constant variable: r863523504 o|substituted constant variable: r865323506 o|removed side-effect free assignment to unused variable: add-loc788 o|removed call to pure procedure with unused result: "(scrutinizer.scm:410) chicken.base#void" o|substituted constant variable: r885623527 o|removed call to pure procedure with unused result: "(scrutinizer.scm:398) chicken.base#void" o|substituted constant variable: r910423559 o|substituted constant variable: r868423561 o|substituted constant variable: r869523564 o|substituted constant variable: r869523564 o|substituted constant variable: r919423567 o|substituted constant variable: r1557723576 o|removed call to pure procedure with unused result: "(scrutinizer.scm:313) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:424) chicken.base#void" o|substituted constant variable: r946023606 o|removed call to pure procedure with unused result: "(scrutinizer.scm:784) chicken.base#void" o|substituted constant variable: r952423619 o|substituted constant variable: r967923641 o|removed call to pure procedure with unused result: "(scrutinizer.scm:505) chicken.base#void" o|substituted constant variable: r976923648 o|removed call to pure procedure with unused result: "(scrutinizer.scm:492) chicken.base#void" o|substituted constant variable: r987123654 o|substituted constant variable: r861423657 o|substituted constant variable: r861423658 o|removed call to pure procedure with unused result: "(scrutinizer.scm:570) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:537) chicken.base#void" o|substituted constant variable: r1028123694 o|substituted constant variable: r1028123694 o|substituted constant variable: r1028123696 o|substituted constant variable: r1028123696 o|substituted constant variable: r862623708 o|removed call to pure procedure with unused result: "(scrutinizer.scm:282) chicken.base#void" o|substituted constant variable: r862623709 o|removed call to pure procedure with unused result: "(scrutinizer.scm:638) chicken.base#void" o|substituted constant variable: r1044023722 o|substituted constant variable: r1053423724 o|inlining procedure: k10593 o|substituted constant variable: r1057123739 o|substituted constant variable: r1063723755 o|removed call to pure procedure with unused result: "(scrutinizer.scm:718) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:706) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:726) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:737) chicken.base#void" o|substituted constant variable: r1096823777 o|converted assignments to bindings: (smash1663) o|inlining procedure: k11241 o|inlining procedure: k11241 o|converted assignments to bindings: (pp-type5598) o|substituted constant variable: r1141423853 o|removed call to pure procedure with unused result: "(scrutinizer.scm:442) chicken.base#void" o|propagated global variable: out18721875 ##sys#standard-output o|removed call to pure procedure with unused result: "(scrutinizer.scm:821) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:825) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:830) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:834) chicken.base#void" o|substituted constant variable: a1202223888 o|substituted constant variable: a1202223895 o|substituted constant variable: r1193223901 o|removed call to pure procedure with unused result: "(scrutinizer.scm:849) chicken.base#void" o|substituted constant variable: r1199623907 o|substituted constant variable: r1199623907 o|substituted constant variable: r1198623909 o|removed side-effect free assignment to unused variable: optargs?2017 o|substituted constant variable: r1225123966 o|removed call to pure procedure with unused result: "(scrutinizer.scm:926) chicken.base#void" o|substituted constant variable: r1225123967 o|removed call to pure procedure with unused result: "(scrutinizer.scm:939) chicken.base#void" o|substituted constant variable: r1239324021 o|substituted constant variable: r1258824044 o|substituted constant variable: r1261124047 o|substituted constant variable: r1262824050 o|substituted constant variable: r1278224080 o|substituted constant variable: r1289224111 o|substituted constant variable: r1293924124 o|substituted constant variable: r1293924124 o|substituted constant variable: r1291924143 o|substituted constant variable: r1298824162 o|substituted constant variable: r1302724170 o|substituted constant variable: r1301524181 o|substituted constant variable: r1297524182 o|substituted constant variable: r1308324190 o|substituted constant variable: r1311924198 o|substituted constant variable: r1315924206 o|substituted constant variable: r1319524214 o|substituted constant variable: r1329024216 o|removed call to pure procedure with unused result: "(scrutinizer.scm:905) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:1082) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:1080) chicken.base#void" o|substituted constant variable: r1345224222 o|substituted constant variable: r1352524230 o|removed call to pure procedure with unused result: "(scrutinizer.scm:1138) chicken.base#void" o|substituted constant variable: r1462824248 o|substituted constant variable: r1370824251 o|substituted constant variable: r1373324254 o|substituted constant variable: r1404224309 o|substituted constant variable: r1408724323 o|substituted constant variable: r1422124331 o|substituted constant variable: r1422124331 o|substituted constant variable: r1439724359 o|substituted constant variable: r1443524367 o|substituted constant variable: r1445924370 o|substituted constant variable: r1452424376 o|substituted constant variable: r1484524404 o|substituted constant variable: r1487824413 o|substituted constant variable: r1499824422 o|substituted constant variable: r1498624423 o|substituted constant variable: r1504224427 o|substituted constant variable: r1503024428 o|substituted constant variable: r1512624439 o|substituted constant variable: r1518424448 o|substituted constant variable: r1516624449 o|substituted constant variable: r1514624450 o|substituted constant variable: r1519724474 o|substituted constant variable: r1525424488 o|substituted constant variable: r1533924490 o|inlining procedure: k15345 o|inlining procedure: k15345 o|substituted constant variable: r1535624492 o|substituted constant variable: r1569524542 o|substituted constant variable: r1566224543 o|substituted constant variable: r1571524544 o|substituted constant variable: r1574824557 o|substituted constant variable: r1577424564 o|substituted constant variable: r1573524565 o|substituted constant variable: r1585324582 o|substituted constant variable: r1583824588 o|substituted constant variable: r1654524705 o|substituted constant variable: r1654524705 o|substituted constant variable: r1660224711 o|substituted constant variable: r1674924751 o|substituted constant variable: r1712124753 o|substituted constant variable: r1726624758 o|substituted constant variable: r1726624758 o|substituted constant variable: r1726624760 o|substituted constant variable: r1726624760 o|substituted constant variable: r1759824789 o|substituted constant variable: r1768324790 o|substituted constant variable: r1771124792 o|substituted constant variable: r1772324794 o|substituted constant variable: r1774124797 o|substituted constant variable: r1776424799 o|substituted constant variable: r1780324803 o|substituted constant variable: r1787124808 o|substituted constant variable: r1788324810 o|substituted constant variable: r1790724815 o|substituted constant variable: r1798724836 o|substituted constant variable: r1804324845 o|substituted constant variable: r1794724858 o|substituted constant variable: r1813824868 o|substituted constant variable: r1821124871 o|substituted constant variable: r1823224884 o|substituted constant variable: r1830424893 o|substituted constant variable: r1826824904 o|substituted constant variable: r1827524908 o|substituted constant variable: r1765524916 o|substituted constant variable: r1840024920 o|substituted constant variable: r1843024932 o|substituted constant variable: r1847724940 o|substituted constant variable: r1851324945 o|substituted constant variable: r1859624948 o|substituted constant variable: r1872024958 o|substituted constant variable: r1868024959 o|substituted constant variable: r1866824960 o|substituted constant variable: r1865024961 o|substituted constant variable: r1884524971 o|substituted constant variable: r1883324977 o|inlining procedure: k18911 o|substituted constant variable: r1891224980 o|substituted constant variable: r1891224980 o|converted assignments to bindings: (fail4082) o|substituted constant variable: r1954125076 o|substituted constant variable: r1952925082 o|substituted constant variable: r1951725088 o|substituted constant variable: r1950525089 o|substituted constant variable: r1949325095 o|substituted constant variable: r1960125104 o|substituted constant variable: r1965225110 o|substituted constant variable: r1967625114 o|substituted constant variable: r1969125119 o|substituted constant variable: r1972825138 o|substituted constant variable: r1988225154 o|substituted constant variable: r1989825157 o|substituted constant variable: r1980525158 o|substituted constant variable: r1987325160 o|substituted constant variable: r1986125166 o|substituted constant variable: r1984925177 o|substituted constant variable: r1996925178 o|substituted constant variable: r1999025183 o|substituted constant variable: r2004025185 o|inlining procedure: k20062 o|converted assignments to bindings: (derive-result-type4625) o|removed call to pure procedure with unused result: "(scrutinizer.scm:2310) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:2299) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:2328) chicken.base#void" o|substituted constant variable: r720825194 o|substituted constant variable: r2050825202 o|removed call to pure procedure with unused result: "(scrutinizer.scm:2331) chicken.base#void" o|substituted constant variable: r2052925204 o|substituted constant variable: r2052925205 o|contracted procedure: "(scrutinizer.scm:2390) g49694978" o|substituted constant variable: r2093525247 o|substituted constant variable: r2093525247 o|substituted constant variable: r2094625249 o|substituted constant variable: r2094625249 o|substituted constant variable: r2094625251 o|substituted constant variable: r2094625251 o|substituted constant variable: r2095825254 o|converted assignments to bindings: (R4910) o|substituted constant variable: r2122725272 o|substituted constant variable: r1745325276 o|substituted constant variable: r2132225283 o|substituted constant variable: r2132225283 o|substituted constant variable: r2126025287 o|substituted constant variable: r2160325311 o|substituted constant variable: r2159125312 o|substituted constant variable: r2167425324 o|converted assignments to bindings: (file-location5290) o|converted assignments to bindings: (p5444) o|converted assignments to bindings: (p5466) o|converted assignments to bindings: (p5514) o|substituted constant variable: type4678 o|substituted constant variable: r2015925340 o|substituted constant variable: r2014725346 o|substituted constant variable: r2013525352 o|substituted constant variable: r2019025359 o|converted assignments to bindings: (append-special-case4613) o|substituted constant variable: r2295725364 o|substituted constant variable: r2294525370 o|substituted constant variable: r2310925375 o|substituted constant variable: r2317425379 o|substituted constant variable: r2325325384 o|substituted constant variable: r2329325394 o|substituted constant variable: r2328125405 o|substituted constant variable: r2336225411 o|substituted constant variable: r2335025417 o|substituted constant variable: r2333825423 o|simplifications: ((let . 10)) o|replaced variables: 318 o|removed binding forms: 3034 o|inlining procedure: k7934 o|inlining procedure: "(scrutinizer.scm:2800) chicken.compiler.scrutinizer#report-notice" o|contracted procedure: k8725 o|contracted procedure: k8786 o|contracted procedure: k8883 o|inlining procedure: "(scrutinizer.scm:2751) chicken.compiler.scrutinizer#report-notice" o|inlining procedure: "(scrutinizer.scm:2776) chicken.compiler.scrutinizer#report-notice" o|inlining procedure: k15606 o|contracted procedure: k9355 o|contracted procedure: k9477 o|contracted procedure: k9487 o|contracted procedure: k9693 o|contracted procedure: k9820 o|inlining procedure: "(scrutinizer.scm:2816) chicken.compiler.scrutinizer#report-notice" o|inlining procedure: "(scrutinizer.scm:524) chicken.compiler.scrutinizer#alist-cons" o|inlining procedure: "(scrutinizer.scm:523) chicken.compiler.scrutinizer#alist-cons" o|contracted procedure: k10128 o|inlining procedure: "(scrutinizer.scm:543) chicken.compiler.scrutinizer#alist-cons" o|contracted procedure: k8628 o|inlining procedure: "(scrutinizer.scm:635) chicken.compiler.scrutinizer#alist-cons" o|contracted procedure: k10371 o|substituted constant variable: r1059425522 o|folded constant expression: (scheme#not (quote #f)) o|contracted procedure: k10865 o|contracted procedure: k10880 o|contracted procedure: k10915 o|contracted procedure: k10954 o|inlining procedure: "(scrutinizer.scm:2916) pp-type5598" o|contracted procedure: k11674 o|contracted procedure: k11687 o|contracted procedure: k11755 o|contracted procedure: k11768 o|contracted procedure: k11832 o|contracted procedure: k12152 o|contracted procedure: k12259 o|contracted procedure: k12343 o|contracted procedure: k13362 o|contracted procedure: k13368 o|contracted procedure: k13620 o|inlining procedure: k13701 o|inlining procedure: k13701 o|removed call to pure procedure with unused result: "(scrutinizer.scm:1242) chicken.base#void" o|removed call to pure procedure with unused result: "(scrutinizer.scm:1242) chicken.base#void" o|inlining procedure: k15288 o|substituted constant variable: r153392449025636 o|substituted constant variable: r153392449025639 o|inlining procedure: k16331 o|inlining procedure: "(scrutinizer.scm:1758) chicken.compiler.scrutinizer#alist-cons" o|inlining procedure: k18030 o|inlining procedure: k18030 o|inlining procedure: k18707 o|substituted constant variable: r1891225722 o|inlining procedure: k19591 o|inlining procedure: k19591 o|inlining procedure: k19591 o|inlining procedure: k19839 o|inlining procedure: k19839 o|inlining procedure: k19839 o|inlining procedure: k19839 o|inlining procedure: k19839 o|inlining procedure: k19839 o|inlining procedure: k19839 o|inlining procedure: k19839 o|inlining procedure: k19839 o|inlining procedure: k19839 o|substituted constant variable: r200402518525752 o|contracted procedure: k20215 o|contracted procedure: k20246 o|inlining procedure: "(scrutinizer.scm:2306) chicken.compiler.scrutinizer#alist-cons" o|contracted procedure: k20315 o|contracted procedure: k20400 o|inlining procedure: k20634 o|inlining procedure: k22926 o|inlining procedure: k20122 o|inlining procedure: k20122 o|inlining procedure: k20122 o|inlining procedure: k20122 o|inlining procedure: k20122 o|inlining procedure: k20122 o|inlining procedure: k20122 o|inlining procedure: k22935 o|inlining procedure: k22935 o|inlining procedure: k22935 o|inlining procedure: k22935 o|inlining procedure: k22935 o|inlining procedure: k23271 o|inlining procedure: k23271 o|inlining procedure: k23271 o|inlining procedure: k23271 o|inlining procedure: k23271 o|inlining procedure: k23271 o|inlining procedure: k23328 o|inlining procedure: k23328 o|inlining procedure: k23328 o|inlining procedure: k23328 o|inlining procedure: k23328 o|inlining procedure: k23328 o|inlining procedure: k23328 o|replaced variables: 59 o|removed binding forms: 565 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#alist-cons o|substituted constant variable: r793525842 o|substituted constant variable: reason530725855 o|inlining procedure: k8783 o|substituted constant variable: reason530725865 o|substituted constant variable: reason530725871 o|inlining procedure: k9482 o|inlining procedure: k9482 o|inlining procedure: k9482 o|inlining procedure: k9482 o|inlining procedure: k9482 o|inlining procedure: k9482 o|substituted constant variable: reason530725896 o|substituted constant variable: y30825921 o|inlining procedure: k9482 o|inlining procedure: k9482 o|inlining procedure: k9482 o|inlining procedure: k9482 o|substituted constant variable: r1370225978 o|substituted constant variable: r1370225979 o|contracted procedure: k1437924357 o|contracted procedure: k1437924365 o|substituted constant variable: r1803126062 o|substituted constant variable: r1803126063 o|substituted constant variable: r1870826074 o|substituted constant variable: r1959226089 o|substituted constant variable: r1959226089 o|substituted constant variable: r1959226089 o|substituted constant variable: r1959226092 o|substituted constant variable: r1959226092 o|substituted constant variable: r1959226092 o|substituted constant variable: r1959226095 o|substituted constant variable: r1959226095 o|substituted constant variable: r1959226095 o|substituted constant variable: r1984026102 o|substituted constant variable: r1984026102 o|substituted constant variable: r1984026102 o|substituted constant variable: r1984026108 o|substituted constant variable: r1984026108 o|substituted constant variable: r1984026108 o|substituted constant variable: r1984026111 o|substituted constant variable: r1984026111 o|substituted constant variable: r1984026111 o|substituted constant variable: r1984026114 o|substituted constant variable: r1984026114 o|substituted constant variable: r1984026114 o|substituted constant variable: r1984026117 o|substituted constant variable: r1984026117 o|substituted constant variable: r1984026117 o|substituted constant variable: r1984026120 o|substituted constant variable: r1984026120 o|substituted constant variable: r1984026120 o|substituted constant variable: r1984026123 o|substituted constant variable: r1984026123 o|substituted constant variable: r1984026123 o|substituted constant variable: r1984026126 o|substituted constant variable: r1984026126 o|substituted constant variable: r1984026126 o|substituted constant variable: r1984026129 o|substituted constant variable: r1984026129 o|substituted constant variable: r1984026129 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#report-notice o|substituted constant variable: r2012326180 o|substituted constant variable: r2012326180 o|substituted constant variable: r2012326180 o|substituted constant variable: r2012326183 o|substituted constant variable: r2012326183 o|substituted constant variable: r2012326183 o|substituted constant variable: r2012326186 o|substituted constant variable: r2012326186 o|substituted constant variable: r2012326186 o|substituted constant variable: r2012326189 o|substituted constant variable: r2012326189 o|substituted constant variable: r2012326189 o|substituted constant variable: r2012326192 o|substituted constant variable: r2012326192 o|substituted constant variable: r2012326192 o|substituted constant variable: r2012326195 o|substituted constant variable: r2012326195 o|substituted constant variable: r2012326195 o|substituted constant variable: r2012326198 o|substituted constant variable: r2012326198 o|substituted constant variable: r2012326198 o|substituted constant variable: r2293626201 o|substituted constant variable: r2293626201 o|substituted constant variable: r2293626201 o|substituted constant variable: r2293626204 o|substituted constant variable: r2293626204 o|substituted constant variable: r2293626204 o|substituted constant variable: r2293626207 o|substituted constant variable: r2293626207 o|substituted constant variable: r2293626207 o|substituted constant variable: r2293626210 o|substituted constant variable: r2293626210 o|substituted constant variable: r2293626210 o|substituted constant variable: r2293626213 o|substituted constant variable: r2293626213 o|substituted constant variable: r2293626213 o|substituted constant variable: r2327226227 o|substituted constant variable: r2327226227 o|substituted constant variable: r2327226227 o|substituted constant variable: r2327226230 o|substituted constant variable: r2327226230 o|substituted constant variable: r2327226230 o|substituted constant variable: r2327226233 o|substituted constant variable: r2327226233 o|substituted constant variable: r2327226233 o|substituted constant variable: r2327226236 o|substituted constant variable: r2327226236 o|substituted constant variable: r2327226236 o|substituted constant variable: r2327226239 o|substituted constant variable: r2327226239 o|substituted constant variable: r2327226239 o|substituted constant variable: r2332926245 o|substituted constant variable: r2332926245 o|substituted constant variable: r2332926245 o|substituted constant variable: r2332926248 o|substituted constant variable: r2332926248 o|substituted constant variable: r2332926248 o|substituted constant variable: r2332926251 o|substituted constant variable: r2332926251 o|substituted constant variable: r2332926251 o|substituted constant variable: r2332926254 o|substituted constant variable: r2332926254 o|substituted constant variable: r2332926254 o|substituted constant variable: r2332926257 o|substituted constant variable: r2332926257 o|substituted constant variable: r2332926257 o|substituted constant variable: r2332926260 o|substituted constant variable: r2332926260 o|substituted constant variable: r2332926260 o|replaced variables: 235 o|removed binding forms: 92 o|removed conditional forms: 40 o|substituted constant variable: x54025843 o|substituted constant variable: r948326312 o|substituted constant variable: r948326312 o|substituted constant variable: r948326317 o|substituted constant variable: r948326317 o|substituted constant variable: r948326322 o|substituted constant variable: r948326322 o|substituted constant variable: r948326339 o|substituted constant variable: r948326339 o|substituted constant variable: r948326352 o|substituted constant variable: r948326352 o|substituted constant variable: r948326357 o|substituted constant variable: r948326357 o|substituted constant variable: r948326364 o|substituted constant variable: r948326364 o|inlining procedure: "(scrutinizer.scm:663) chicken.compiler.scrutinizer#walked-result" o|substituted constant variable: r948326383 o|substituted constant variable: r948326383 o|inlining procedure: k17261 o|inlining procedure: k17261 o|inlining procedure: "(scrutinizer.scm:2074) chicken.compiler.scrutinizer#walked-result" o|inlining procedure: "(scrutinizer.scm:2092) chicken.compiler.scrutinizer#walked-result" o|inlining procedure: "(scrutinizer.scm:2162) chicken.compiler.scrutinizer#walked-result" o|inlining procedure: "(scrutinizer.scm:2230) chicken.compiler.scrutinizer#walked-result" o|inlining procedure: "(scrutinizer.scm:2274) chicken.compiler.scrutinizer#walked-result" o|inlining procedure: "(scrutinizer.scm:2214) chicken.compiler.scrutinizer#walked-result" o|inlining procedure: "(scrutinizer.scm:2107) chicken.compiler.scrutinizer#walked-result" o|replaced variables: 5 o|removed binding forms: 294 o|replaced variables: 18 o|removed binding forms: 23 o|removed binding forms: 18 o|simplifications: ((if . 105) (##core#call . 1946)) o| call simplifications: o| scheme#cadddr 2 o| scheme#char-upcase o| ##sys#apply o| scheme#string=? o| scheme#string-ref 2 o| chicken.fixnum#fx< 2 o| scheme#>= 2 o| scheme#< o| ##sys#intern-symbol o| chicken.base#identity o| ##sys#size 4 o| scheme#list-tail 2 o| scheme#vector-ref 5 o| scheme#<= 2 o| chicken.base#atom? 3 o| chicken.fixnum#fx> 2 o| scheme#cdar 3 o| scheme#list-ref 4 o| ##sys#call-with-values 12 o| scheme#= 3 o| scheme#cdddr 8 o| chicken.fixnum#fx= 3 o| scheme#cddr 18 o| scheme#assoc 2 o| scheme#set-cdr! 3 o| scheme#set-car! 7 o| scheme#values 14 o| scheme#assq 17 o| scheme#cadr 110 o| scheme#list 69 o| scheme#caar o| scheme#string? 7 o| scheme#symbol? 26 o| chicken.base#fixnum? 4 o| chicken.base#bignum? o| chicken.base#flonum? o| chicken.base#ratnum? o| chicken.base#cplxnum? o| scheme#boolean? o| scheme#list? 14 o| scheme#eof-object? o| scheme#vector? 4 o| ##sys#immediate? o| ##sys#generic-structure? o| scheme#char? o| ##sys#list 65 o| ##sys#cons 40 o| scheme#caddr 63 o| scheme#length 36 o| scheme#eq? 288 o| scheme#memq 15 o| chicken.fixnum#fx>= 2 o| chicken.fixnum#fx+ 3 o| scheme#equal? 6 o| scheme#not 79 o| scheme#null? 76 o| scheme#apply 5 o| scheme#cdr 72 o| ##sys#setslot 51 o| ##sys#check-list 61 o| scheme#pair? 174 o| ##sys#slot 192 o| chicken.fixnum#fx<= 2 o| scheme#car 171 o| chicken.fixnum#fx- 2 o| scheme#cons 173 o|contracted procedure: k6851 o|contracted procedure: k6858 o|contracted procedure: k6868 o|contracted procedure: k6942 o|contracted procedure: k6945 o|contracted procedure: k6957 o|contracted procedure: k6973 o|contracted procedure: k6981 o|contracted procedure: k6988 o|contracted procedure: k7012 o|contracted procedure: k7029 o|contracted procedure: k7051 o|contracted procedure: k7047 o|contracted procedure: k7032 o|contracted procedure: k7035 o|contracted procedure: k7043 o|contracted procedure: k7058 o|contracted procedure: k7066 o|contracted procedure: k7078 o|contracted procedure: k7100 o|contracted procedure: k7096 o|contracted procedure: k7081 o|contracted procedure: k7084 o|contracted procedure: k7092 o|contracted procedure: k7115 o|contracted procedure: k7124 o|contracted procedure: k7137 o|contracted procedure: k7152 o|contracted procedure: k7167 o|contracted procedure: k7313 o|contracted procedure: k7316 o|contracted procedure: k7326 o|contracted procedure: k7238 o|contracted procedure: k7264 o|contracted procedure: k7393 o|contracted procedure: k7405 o|contracted procedure: k7428 o|contracted procedure: k7436 o|contracted procedure: k7458 o|contracted procedure: k7466 o|contracted procedure: k7478 o|contracted procedure: k7500 o|contracted procedure: k7496 o|contracted procedure: k7481 o|contracted procedure: k7484 o|contracted procedure: k7492 o|contracted procedure: k7760 o|contracted procedure: k7775 o|contracted procedure: k7809 o|contracted procedure: k7813 o|contracted procedure: k7796 o|contracted procedure: k7943 o|contracted procedure: k7934 o|contracted procedure: k8076 o|contracted procedure: k8083 o|contracted procedure: k8094 o|contracted procedure: k8101 o|contracted procedure: k8153 o|contracted procedure: k8165 o|contracted procedure: k8180 o|contracted procedure: k8186 o|contracted procedure: k8192 o|contracted procedure: k8198 o|contracted procedure: k8204 o|contracted procedure: k8210 o|contracted procedure: k8219 o|contracted procedure: k8225 o|contracted procedure: k8232 o|contracted procedure: k8244 o|contracted procedure: k8247 o|contracted procedure: k8250 o|contracted procedure: k8258 o|contracted procedure: k8266 o|contracted procedure: k8275 o|contracted procedure: k8282 o|contracted procedure: k8300 o|contracted procedure: k8306 o|contracted procedure: k8317 o|contracted procedure: k8313 o|contracted procedure: k8332 o|contracted procedure: k8335 o|contracted procedure: k8338 o|contracted procedure: k8346 o|contracted procedure: k8354 o|contracted procedure: k8386 o|contracted procedure: k8379 o|contracted procedure: k8363 o|contracted procedure: k8370 o|contracted procedure: k8376 o|contracted procedure: k8467 o|contracted procedure: k8457 o|contracted procedure: k7873 o|contracted procedure: k7889 o|contracted procedure: k8488 o|contracted procedure: k8508 o|contracted procedure: k8499 o|contracted procedure: k8406 o|contracted procedure: k8422 o|contracted procedure: k8428 o|contracted procedure: k8517 o|contracted procedure: k8539 o|contracted procedure: k8546 o|contracted procedure: k8557 o|contracted procedure: k8568 o|contracted procedure: k8574 o|contracted procedure: k8581 o|contracted procedure: k22543 o|contracted procedure: k8637 o|contracted procedure: k8640 o|contracted procedure: k8646 o|contracted procedure: k8655 o|contracted procedure: k8700 o|contracted procedure: k8703 o|contracted procedure: k8709 o|contracted procedure: k8716 o|contracted procedure: k8719 o|contracted procedure: k21751 o|contracted procedure: k21758 o|contracted procedure: k21768 o|contracted procedure: k21796 o|contracted procedure: k21823 o|contracted procedure: k8792 o|contracted procedure: k8795 o|contracted procedure: k8803 o|contracted procedure: k8815 o|contracted procedure: k8818 o|contracted procedure: k8821 o|contracted procedure: k8829 o|contracted procedure: k8837 o|contracted procedure: k8846 o|contracted procedure: k8858 o|contracted procedure: k8886 o|contracted procedure: k8899 o|contracted procedure: k8910 o|contracted procedure: k8906 o|contracted procedure: k8932 o|contracted procedure: k8936 o|contracted procedure: k8952 o|contracted procedure: k8944 o|contracted procedure: k8948 o|contracted procedure: k8940 o|contracted procedure: k8964 o|contracted procedure: k8968 o|contracted procedure: k8972 o|contracted procedure: k22479 o|contracted procedure: k8999 o|contracted procedure: k8995 o|contracted procedure: k9003 o|contracted procedure: k9019 o|contracted procedure: k9011 o|contracted procedure: k9015 o|contracted procedure: k9007 o|contracted procedure: k9031 o|contracted procedure: k9035 o|contracted procedure: k9039 o|contracted procedure: k22513 o|contracted procedure: k9052 o|contracted procedure: k9046 o|contracted procedure: k9056 o|contracted procedure: k9060 o|contracted procedure: k9083 o|contracted procedure: k9079 o|contracted procedure: k9106 o|contracted procedure: k9110 o|contracted procedure: k9161 o|contracted procedure: k9123 o|contracted procedure: k9157 o|contracted procedure: k9150 o|contracted procedure: k9127 o|contracted procedure: k9130 o|contracted procedure: k9141 o|contracted procedure: k9173 o|contracted procedure: k8686 o|contracted procedure: k8690 o|contracted procedure: k9199 o|contracted procedure: k15536 o|contracted procedure: k15548 o|contracted procedure: k15579 o|contracted procedure: k15594 o|contracted procedure: k15623 o|contracted procedure: k15603 o|contracted procedure: k15619 o|contracted procedure: k15606 o|contracted procedure: k15636 o|contracted procedure: k15639 o|contracted procedure: k15647 o|contracted procedure: k9212 o|contracted procedure: k9216 o|contracted procedure: k9225 o|contracted procedure: k9228 o|contracted procedure: k9240 o|contracted procedure: k9254 o|contracted procedure: k9270 o|contracted procedure: k9274 o|contracted procedure: k21857 o|contracted procedure: k21892 o|contracted procedure: k21881 o|inlining procedure: "(scrutinizer.scm:2594) chicken.compiler.scrutinizer#multiples" o|inlining procedure: "(scrutinizer.scm:2593) chicken.compiler.scrutinizer#multiples" o|contracted procedure: k9283 o|contracted procedure: k9303 o|contracted procedure: k9306 o|contracted procedure: k9309 o|contracted procedure: k9317 o|contracted procedure: k9325 o|contracted procedure: k9349 o|contracted procedure: k9362 o|contracted procedure: k9366 o|contracted procedure: k9390 o|contracted procedure: k9401 o|contracted procedure: k9413 o|contracted procedure: k9416 o|contracted procedure: k9419 o|contracted procedure: k9427 o|contracted procedure: k9435 o|contracted procedure: k9490 o|contracted procedure: k9497 o|inlining procedure: k9482 o|contracted procedure: k9503 o|inlining procedure: k9482 o|contracted procedure: k9514 o|contracted procedure: k9520 o|contracted procedure: k9526 o|contracted procedure: k9532 o|contracted procedure: k9539 o|contracted procedure: k9545 o|inlining procedure: k9482 o|contracted procedure: k9556 o|contracted procedure: k9562 o|inlining procedure: k9482 o|contracted procedure: k9573 o|contracted procedure: k9579 o|contracted procedure: k9582 o|contracted procedure: k9585 o|contracted procedure: k9592 o|contracted procedure: k9595 o|contracted procedure: k9601 o|contracted procedure: k9621 o|contracted procedure: k9617 o|contracted procedure: k9613 o|contracted procedure: k9631 o|contracted procedure: k9651 o|contracted procedure: k9647 o|contracted procedure: k9643 o|contracted procedure: k9666 o|contracted procedure: k22753 o|contracted procedure: k22765 o|contracted procedure: k22777 o|inlining procedure: "(scrutinizer.scm:2942) chicken.compiler.scrutinizer#multiples" o|inlining procedure: "(scrutinizer.scm:2940) chicken.compiler.scrutinizer#multiples" o|contracted procedure: k9696 o|contracted procedure: k9708 o|contracted procedure: k9711 o|contracted procedure: k9759 o|contracted procedure: k9723 o|contracted procedure: k9726 o|contracted procedure: k9729 o|contracted procedure: k9737 o|contracted procedure: k9741 o|contracted procedure: k9749 o|contracted procedure: k9753 o|contracted procedure: k9705 o|contracted procedure: k9765 o|contracted procedure: k9771 o|contracted procedure: k9782 o|contracted procedure: k9786 o|contracted procedure: k9778 o|contracted procedure: k9800 o|contracted procedure: k9789 o|contracted procedure: k9796 o|contracted procedure: k9803 o|contracted procedure: k9806 o|contracted procedure: k9809 o|contracted procedure: k9836 o|contracted procedure: k9817 o|contracted procedure: k9830 o|contracted procedure: k9839 o|contracted procedure: k9851 o|contracted procedure: k9861 o|contracted procedure: k9865 o|contracted procedure: k9886 o|contracted procedure: k9892 o|contracted procedure: k8610 o|contracted procedure: k22565 o|contracted procedure: k9924 o|contracted procedure: k9936 o|contracted procedure: k9943 o|contracted procedure: k9950 o|contracted procedure: k9953 o|contracted procedure: k734325907 o|contracted procedure: k9978 o|contracted procedure: k734325914 o|contracted procedure: k9995 o|contracted procedure: k10022 o|contracted procedure: k10025 o|contracted procedure: k10032 o|contracted procedure: k10038 o|contracted procedure: k10050 o|contracted procedure: k10082 o|contracted procedure: k10118 o|contracted procedure: k10122 o|contracted procedure: k10133 o|contracted procedure: k10125 o|contracted procedure: k10143 o|contracted procedure: k10156 o|contracted procedure: k10163 o|contracted procedure: k10173 o|contracted procedure: k10177 o|contracted procedure: k10185 o|contracted procedure: k10189 o|contracted procedure: k734325925 o|contracted procedure: k10208 o|contracted procedure: k10219 o|contracted procedure: k10222 o|contracted procedure: k10270 o|contracted procedure: k10234 o|contracted procedure: k10260 o|contracted procedure: k10264 o|contracted procedure: k10256 o|contracted procedure: k10237 o|contracted procedure: k10240 o|contracted procedure: k10248 o|contracted procedure: k10252 o|contracted procedure: k10289 o|contracted procedure: k10292 o|contracted procedure: k10295 o|contracted procedure: k10307 o|contracted procedure: k10319 o|contracted procedure: k10427 o|contracted procedure: k10418 o|contracted procedure: k10330 o|contracted procedure: k10336 o|contracted procedure: k10348 o|contracted procedure: k10359 o|contracted procedure: k734325934 o|contracted procedure: k10365 o|contracted procedure: k10374 o|contracted procedure: k10383 o|contracted procedure: k10393 o|contracted procedure: k10408 o|contracted procedure: k10492 o|contracted procedure: k10448 o|contracted procedure: k10454 o|contracted procedure: k10524 o|contracted procedure: k10499 o|contracted procedure: k10502 o|contracted procedure: k10512 o|contracted procedure: k10530 o|contracted procedure: k10536 o|contracted procedure: k10553 o|contracted procedure: k10542 o|contracted procedure: k10566 o|contracted procedure: k22799 o|contracted procedure: k22833 o|contracted procedure: k10573 o|contracted procedure: k10590 o|contracted procedure: k10599 o|contracted procedure: k10593 o|contracted procedure: k10629 o|propagated global variable: g14981499 chicken.compiler.scrutinizer#r-assignment-value-count-invalid o|contracted procedure: k10633 o|contracted procedure: k10639 o|contracted procedure: k10645 o|contracted procedure: k10651 o|contracted procedure: k10654 o|contracted procedure: k10663 o|contracted procedure: k10667 o|contracted procedure: k10687 o|contracted procedure: k10735 o|contracted procedure: k10738 o|contracted procedure: k10747 o|contracted procedure: k10773 o|contracted procedure: k10776 o|contracted procedure: k10784 o|contracted procedure: k10796 o|contracted procedure: k10799 o|contracted procedure: k10802 o|contracted procedure: k10810 o|contracted procedure: k10818 o|contracted procedure: k10827 o|contracted procedure: k10838 o|contracted procedure: k10841 o|contracted procedure: k10984 o|contracted procedure: k10853 o|contracted procedure: k10889 o|contracted procedure: k10893 o|contracted procedure: k10900 o|contracted procedure: k10933 o|contracted procedure: k10937 o|contracted procedure: k10973 o|contracted procedure: k10998 o|contracted procedure: k11001 o|contracted procedure: k11013 o|contracted procedure: k11016 o|contracted procedure: k11024 o|contracted procedure: k11036 o|contracted procedure: k11039 o|contracted procedure: k11042 o|contracted procedure: k11050 o|contracted procedure: k11058 o|contracted procedure: k11095 o|contracted procedure: k11070 o|contracted procedure: k11080 o|contracted procedure: k11084 o|contracted procedure: k11088 o|contracted procedure: k11092 o|contracted procedure: k11134 o|contracted procedure: k11130 o|contracted procedure: k11146 o|contracted procedure: k11149 o|contracted procedure: k11152 o|contracted procedure: k11160 o|contracted procedure: k11168 o|contracted procedure: k11175 o|contracted procedure: k11220 o|contracted procedure: k11184 o|contracted procedure: k11187 o|contracted procedure: k11190 o|contracted procedure: k11198 o|contracted procedure: k11202 o|contracted procedure: k11210 o|contracted procedure: k11214 o|contracted procedure: k11229 o|contracted procedure: k11232 o|contracted procedure: k11238 o|inlining procedure: k9482 o|inlining procedure: k9482 o|contracted procedure: k11250 o|contracted procedure: k11257 o|contracted procedure: k22583 o|contracted procedure: k11276 o|contracted procedure: k11280 o|contracted procedure: k22631 o|inlining procedure: k9482 o|contracted procedure: k11284 o|contracted procedure: k11295 o|contracted procedure: k11309 o|contracted procedure: k11298 o|contracted procedure: k11305 o|contracted procedure: k22605 o|contracted procedure: k22617 o|contracted procedure: k11314 o|contracted procedure: k11320 o|contracted procedure: k11333 o|contracted procedure: k11337 o|contracted procedure: k11346 o|contracted procedure: k11353 o|contracted procedure: k11357 o|contracted procedure: k22691 o|contracted procedure: k22694 o|contracted procedure: k22706 o|contracted procedure: k22709 o|contracted procedure: k22712 o|contracted procedure: k22720 o|contracted procedure: k22728 o|contracted procedure: k11376 o|contracted procedure: k11388 o|contracted procedure: k11394 o|contracted procedure: k11402 o|contracted procedure: k11406 o|contracted procedure: k11410 o|contracted procedure: k11416 o|contracted procedure: k11419 o|contracted procedure: k11430 o|contracted procedure: k11442 o|contracted procedure: k11452 o|contracted procedure: k11456 o|contracted procedure: k11539 o|contracted procedure: k11577 o|contracted procedure: k11589 o|contracted procedure: k11599 o|contracted procedure: k11603 o|contracted procedure: k11574 o|propagated global variable: g18681870 chicken.compiler.scrutinizer#specialization-statistics o|contracted procedure: k11607 o|contracted procedure: k11611 o|contracted procedure: k11634 o|contracted procedure: k11646 o|contracted procedure: k11664 o|contracted procedure: k11671 o|contracted procedure: k11684 o|contracted procedure: k11699 o|contracted procedure: k11706 o|contracted procedure: k11695 o|contracted procedure: k11718 o|contracted procedure: k11721 o|contracted procedure: k11724 o|contracted procedure: k11732 o|contracted procedure: k11740 o|contracted procedure: k11749 o|contracted procedure: k11752 o|contracted procedure: k11765 o|contracted procedure: k11780 o|contracted procedure: k11787 o|contracted procedure: k11791 o|contracted procedure: k13383 o|contracted procedure: k11820 o|contracted procedure: k13377 o|contracted procedure: k11823 o|contracted procedure: k13371 o|contracted procedure: k11826 o|contracted procedure: k11844 o|contracted procedure: k11850 o|contracted procedure: k11860 o|contracted procedure: k11866 o|contracted procedure: k11876 o|contracted procedure: k11957 o|contracted procedure: k11882 o|contracted procedure: k11953 o|contracted procedure: k11893 o|contracted procedure: k11904 o|contracted procedure: k11919 o|contracted procedure: k11979 o|contracted procedure: k6807 o|contracted procedure: k6829 o|contracted procedure: k6842 o|contracted procedure: k11998 o|contracted procedure: k12009 o|contracted procedure: k12026 o|contracted procedure: k12035 o|contracted procedure: k12044 o|contracted procedure: k12053 o|contracted procedure: k12078 o|contracted procedure: k12082 o|contracted procedure: k12087 o|contracted procedure: k12122 o|contracted procedure: k12142 o|contracted procedure: k12146 o|contracted procedure: k12155 o|contracted procedure: k13356 o|contracted procedure: k12161 o|contracted procedure: k12172 o|contracted procedure: k12195 o|contracted procedure: k12181 o|contracted procedure: k12191 o|contracted procedure: k12199 o|contracted procedure: k12284 o|contracted procedure: k12202 o|contracted procedure: k12244 o|contracted procedure: k12210 o|contracted procedure: k12236 o|contracted procedure: k12222 o|contracted procedure: k12232 o|contracted procedure: k12240 o|contracted procedure: k12281 o|contracted procedure: k12253 o|contracted procedure: k12263 o|contracted procedure: k12270 o|contracted procedure: k12266 o|contracted procedure: k12277 o|contracted procedure: k13350 o|contracted procedure: k12293 o|contracted procedure: k12304 o|contracted procedure: k12327 o|contracted procedure: k12313 o|contracted procedure: k12323 o|contracted procedure: k12331 o|contracted procedure: k12365 o|contracted procedure: k12337 o|contracted procedure: k12347 o|contracted procedure: k12354 o|contracted procedure: k12350 o|contracted procedure: k12361 o|contracted procedure: k12371 o|contracted procedure: k12380 o|contracted procedure: k12389 o|contracted procedure: k12395 o|contracted procedure: k12398 o|contracted procedure: k12404 o|contracted procedure: k12444 o|contracted procedure: k12468 o|contracted procedure: k12485 o|contracted procedure: k12509 o|contracted procedure: k12527 o|contracted procedure: k12546 o|contracted procedure: k12565 o|contracted procedure: k12578 o|contracted procedure: k12584 o|contracted procedure: k12590 o|contracted procedure: k12601 o|contracted procedure: k12607 o|contracted procedure: k12613 o|contracted procedure: k12624 o|contracted procedure: k12630 o|contracted procedure: k12636 o|contracted procedure: k12647 o|contracted procedure: k12653 o|contracted procedure: k12667 o|contracted procedure: k12673 o|contracted procedure: k12700 o|contracted procedure: k12709 o|contracted procedure: k12718 o|contracted procedure: k12724 o|contracted procedure: k12727 o|contracted procedure: k12734 o|contracted procedure: k12738 o|contracted procedure: k12744 o|contracted procedure: k12747 o|contracted procedure: k12768 o|contracted procedure: k12772 o|contracted procedure: k12753 o|contracted procedure: k12760 o|contracted procedure: k12764 o|contracted procedure: k12778 o|contracted procedure: k12787 o|contracted procedure: k12797 o|contracted procedure: k12801 o|contracted procedure: k12805 o|contracted procedure: k12809 o|contracted procedure: k12843 o|contracted procedure: k12850 o|contracted procedure: k12863 o|contracted procedure: k12875 o|contracted procedure: k12882 o|contracted procedure: k12888 o|contracted procedure: k12901 o|contracted procedure: k12905 o|contracted procedure: k12909 o|contracted procedure: k12915 o|contracted procedure: k12921 o|contracted procedure: k12934 o|contracted procedure: k12951 o|contracted procedure: k12941 o|contracted procedure: k12938 o|contracted procedure: k12955 o|contracted procedure: k12959 o|contracted procedure: k12977 o|contracted procedure: k12984 o|contracted procedure: k12990 o|contracted procedure: k13003 o|contracted procedure: k13007 o|contracted procedure: k13011 o|contracted procedure: k13017 o|contracted procedure: k13023 o|contracted procedure: k13040 o|contracted procedure: k13053 o|contracted procedure: k13043 o|contracted procedure: k13057 o|contracted procedure: k13061 o|contracted procedure: k13079 o|contracted procedure: k13085 o|contracted procedure: k13091 o|contracted procedure: k13098 o|contracted procedure: k13102 o|contracted procedure: k13121 o|contracted procedure: k13127 o|contracted procedure: k13136 o|contracted procedure: k13155 o|contracted procedure: k13161 o|contracted procedure: k13167 o|contracted procedure: k13174 o|contracted procedure: k13178 o|contracted procedure: k13197 o|contracted procedure: k13203 o|contracted procedure: k13212 o|contracted procedure: k13222 o|contracted procedure: k13230 o|contracted procedure: k13238 o|contracted procedure: k13246 o|contracted procedure: k13254 o|contracted procedure: k13262 o|contracted procedure: k13270 o|contracted procedure: k13278 o|contracted procedure: k13286 o|contracted procedure: k13292 o|contracted procedure: k13302 o|contracted procedure: k13310 o|contracted procedure: k13318 o|contracted procedure: k13326 o|contracted procedure: k13334 o|contracted procedure: k13342 o|contracted procedure: k13389 o|contracted procedure: k13396 o|contracted procedure: k13414 o|contracted procedure: k13423 o|contracted procedure: k13426 o|contracted procedure: k13471 o|contracted procedure: k13435 o|contracted procedure: k13448 o|contracted procedure: k13467 o|contracted procedure: k13489 o|contracted procedure: k13496 o|contracted procedure: k13499 o|contracted procedure: k13514 o|contracted procedure: k13527 o|contracted procedure: k13531 o|contracted procedure: k13552 o|contracted procedure: k13564 o|contracted procedure: k13567 o|contracted procedure: k13570 o|contracted procedure: k13578 o|contracted procedure: k13586 o|contracted procedure: k13546 o|contracted procedure: k13536 o|contracted procedure: k13595 o|contracted procedure: k13604 o|contracted procedure: k13895 o|contracted procedure: k13610 o|contracted procedure: k13890 o|contracted procedure: k13617 o|contracted procedure: k13635 o|contracted procedure: k13639 o|contracted procedure: k13651 o|contracted procedure: k13658 o|contracted procedure: k13717 o|contracted procedure: k13690 o|contracted procedure: k14675 o|contracted procedure: k14630 o|contracted procedure: k14636 o|contracted procedure: k14639 o|contracted procedure: k14665 o|contracted procedure: k14669 o|contracted procedure: k14661 o|contracted procedure: k13701 o|contracted procedure: k13753 o|contracted procedure: k13760 o|contracted procedure: k13771 o|contracted procedure: k13842 o|contracted procedure: k13780 o|contracted procedure: k13814 o|contracted procedure: k13826 o|propagated global variable: g25332534 chicken.compiler.scrutinizer#type<=? o|contracted procedure: k13836 o|propagated global variable: g25252526 chicken.compiler.scrutinizer#type<=? o|contracted procedure: k13863 o|contracted procedure: k13872 o|contracted procedure: k13881 o|contracted procedure: k13899 o|contracted procedure: k13903 o|contracted procedure: k13915 o|contracted procedure: k13918 o|contracted procedure: k13921 o|contracted procedure: k13929 o|contracted procedure: k13937 o|contracted procedure: k13946 o|contracted procedure: k13949 o|contracted procedure: k13958 o|contracted procedure: k13975 o|contracted procedure: k13979 o|contracted procedure: k7663 o|contracted procedure: k7670 o|contracted procedure: k7727 o|contracted procedure: k7676 o|contracted procedure: k7688 o|contracted procedure: k7695 o|contracted procedure: k7720 o|contracted procedure: k13990 o|contracted procedure: k13996 o|contracted procedure: k14018 o|contracted procedure: k14008 o|contracted procedure: k14015 o|contracted procedure: k14025 o|contracted procedure: k14029 o|contracted procedure: k14035 o|contracted procedure: k14044 o|contracted procedure: k14053 o|contracted procedure: k14059 o|contracted procedure: k14068 o|contracted procedure: k14077 o|contracted procedure: k14083 o|contracted procedure: k14089 o|contracted procedure: k14096 o|contracted procedure: k14100 o|contracted procedure: k14112 o|contracted procedure: k14115 o|contracted procedure: k14118 o|contracted procedure: k14126 o|contracted procedure: k14134 o|contracted procedure: k14145 o|contracted procedure: k14152 o|contracted procedure: k14156 o|contracted procedure: k14168 o|contracted procedure: k14171 o|contracted procedure: k14174 o|contracted procedure: k14182 o|contracted procedure: k14190 o|contracted procedure: k14199 o|contracted procedure: k14202 o|contracted procedure: k14205 o|contracted procedure: k14212 o|contracted procedure: k14270 o|contracted procedure: k14276 o|contracted procedure: k14216 o|contracted procedure: k14223 o|contracted procedure: k14226 o|contracted procedure: k14229 o|contracted procedure: k14241 o|contracted procedure: k14244 o|contracted procedure: k14247 o|contracted procedure: k14255 o|contracted procedure: k14263 o|contracted procedure: k14288 o|contracted procedure: k14291 o|contracted procedure: k14294 o|contracted procedure: k14302 o|contracted procedure: k14310 o|contracted procedure: k14355 o|contracted procedure: k7577 o|contracted procedure: k7603 o|contracted procedure: k7583 o|contracted procedure: k7597 o|contracted procedure: k14382 o|contracted procedure: k14386 o|contracted procedure: k14428 o|contracted procedure: k14399 o|contracted procedure: k14403 o|contracted procedure: k14419 o|contracted procedure: k14437 o|contracted procedure: k14449 o|contracted procedure: k14455 o|contracted procedure: k14462 o|contracted procedure: k14469 o|contracted procedure: k14609 o|contracted procedure: k14475 o|contracted procedure: k14492 o|contracted procedure: k14504 o|contracted procedure: k14509 o|contracted procedure: k14520 o|contracted procedure: k14533 o|contracted procedure: k14545 o|contracted procedure: k14549 o|contracted procedure: k14557 o|contracted procedure: k14561 o|contracted procedure: k14553 o|contracted procedure: k14564 o|contracted procedure: k14576 o|contracted procedure: k14599 o|contracted procedure: k14696 o|contracted procedure: k14703 o|contracted procedure: k14755 o|contracted procedure: k14762 o|contracted procedure: k15074 o|contracted procedure: k15080 o|contracted procedure: k14824 o|contracted procedure: k14828 o|contracted procedure: k14832 o|contracted procedure: k14851 o|contracted procedure: k14855 o|contracted procedure: k14859 o|contracted procedure: k14880 o|contracted procedure: k14893 o|contracted procedure: k14902 o|contracted procedure: k14905 o|contracted procedure: k14908 o|contracted procedure: k14911 o|contracted procedure: k14914 o|contracted procedure: k14973 o|contracted procedure: k14937 o|contracted procedure: k14940 o|contracted procedure: k14943 o|contracted procedure: k14951 o|contracted procedure: k14955 o|contracted procedure: k14963 o|contracted procedure: k14967 o|contracted procedure: k14727 o|contracted procedure: k14734 o|contracted procedure: k14982 o|contracted procedure: k14994 o|contracted procedure: k15000 o|contracted procedure: k15007 o|contracted procedure: k15011 o|contracted procedure: k15018 o|contracted procedure: k15026 o|contracted procedure: k15032 o|contracted procedure: k15044 o|contracted procedure: k15056 o|contracted procedure: k15062 o|contracted procedure: k15087 o|contracted procedure: k15093 o|contracted procedure: k15102 o|contracted procedure: k15109 o|contracted procedure: k15116 o|contracted procedure: k15122 o|contracted procedure: k15128 o|contracted procedure: k15148 o|contracted procedure: k15155 o|contracted procedure: k15162 o|contracted procedure: k15168 o|contracted procedure: k15171 o|contracted procedure: k15177 o|contracted procedure: k15186 o|contracted procedure: k15199 o|contracted procedure: k15206 o|contracted procedure: k15213 o|contracted procedure: k15219 o|contracted procedure: k15222 o|contracted procedure: k15228 o|contracted procedure: k15231 o|contracted procedure: k15256 o|contracted procedure: k15263 o|contracted procedure: k15270 o|contracted procedure: k15276 o|contracted procedure: k15279 o|contracted procedure: k15285 o|contracted procedure: k15288 o|contracted procedure: k15521 o|contracted procedure: k15310 o|contracted procedure: k15341 o|contracted procedure: k15426 o|contracted procedure: k15352 o|contracted procedure: k15366 o|contracted procedure: k15385 o|contracted procedure: k15392 o|contracted procedure: k15400 o|contracted procedure: k15449 o|contracted procedure: k15429 o|contracted procedure: k15445 o|contracted procedure: k15462 o|contracted procedure: k15465 o|contracted procedure: k15473 o|contracted procedure: k15479 o|contracted procedure: k15489 o|contracted procedure: k15505 o|contracted procedure: k15513 o|contracted procedure: k15664 o|contracted procedure: k15671 o|contracted procedure: k15691 o|contracted procedure: k15678 o|contracted procedure: k15681 o|contracted procedure: k15697 o|contracted procedure: k15704 o|contracted procedure: k15717 o|contracted procedure: k15728 o|contracted procedure: k15723 o|contracted procedure: k15737 o|contracted procedure: k15744 o|contracted procedure: k15750 o|contracted procedure: k15770 o|contracted procedure: k15760 o|contracted procedure: k15757 o|contracted procedure: k15776 o|contracted procedure: k15783 o|contracted procedure: k15793 o|contracted procedure: k15802 o|contracted procedure: k15809 o|contracted procedure: k15820 o|contracted procedure: k15827 o|contracted procedure: k15840 o|contracted procedure: k15843 o|contracted procedure: k15849 o|contracted procedure: k15855 o|contracted procedure: k15862 o|contracted procedure: k15893 o|contracted procedure: k15900 o|contracted procedure: k15907 o|contracted procedure: k15913 o|contracted procedure: k16080 o|contracted procedure: k15919 o|contracted procedure: k15925 o|contracted procedure: k15928 o|contracted procedure: k15973 o|contracted procedure: k15937 o|contracted procedure: k15943 o|contracted procedure: k15955 o|contracted procedure: k15965 o|contracted procedure: k15969 o|contracted procedure: k15982 o|contracted procedure: k15992 o|contracted procedure: k15996 o|contracted procedure: k15999 o|contracted procedure: k16002 o|contracted procedure: k16046 o|contracted procedure: k16011 o|contracted procedure: k16016 o|contracted procedure: k16028 o|contracted procedure: k16038 o|contracted procedure: k16042 o|contracted procedure: k16055 o|contracted procedure: k16065 o|contracted procedure: k16069 o|contracted procedure: k16076 o|contracted procedure: k16086 o|contracted procedure: k16097 o|contracted procedure: k16101 o|contracted procedure: k16126 o|contracted procedure: k16129 o|contracted procedure: k16141 o|contracted procedure: k16144 o|contracted procedure: k16147 o|contracted procedure: k16155 o|contracted procedure: k16163 o|contracted procedure: k16109 o|contracted procedure: k16119 o|contracted procedure: k16123 o|contracted procedure: k16172 o|contracted procedure: k16176 o|contracted procedure: k16188 o|contracted procedure: k16198 o|contracted procedure: k16202 o|contracted procedure: k16225 o|contracted procedure: k16244 o|contracted procedure: k16228 o|contracted procedure: k16240 o|contracted procedure: k16231 o|contracted procedure: k16269 o|contracted procedure: k16277 o|contracted procedure: k16283 o|contracted procedure: k16286 o|contracted procedure: k16292 o|contracted procedure: k16299 o|contracted procedure: k16303 o|contracted procedure: k16310 o|contracted procedure: k16718 o|contracted procedure: k16322 o|contracted procedure: k16328 o|contracted procedure: k16331 o|contracted procedure: k16340 o|contracted procedure: k16346 o|contracted procedure: k16353 o|contracted procedure: k16362 o|contracted procedure: k16374 o|contracted procedure: k16377 o|contracted procedure: k16380 o|contracted procedure: k16388 o|contracted procedure: k16396 o|contracted procedure: k16405 o|contracted procedure: k16416 o|contracted procedure: k16422 o|contracted procedure: k16425 o|contracted procedure: k16434 o|contracted procedure: k16442 o|contracted procedure: k16448 o|contracted procedure: k16460 o|contracted procedure: k16469 o|contracted procedure: k16481 o|contracted procedure: k16484 o|contracted procedure: k16487 o|contracted procedure: k16495 o|contracted procedure: k16503 o|contracted procedure: k16512 o|contracted procedure: k16532 o|inlining procedure: k16536 o|contracted procedure: k16547 o|inlining procedure: k16536 o|contracted procedure: k16550 o|contracted procedure: k16558 o|contracted procedure: k16570 o|contracted procedure: k16573 o|contracted procedure: k16576 o|contracted procedure: k16584 o|contracted procedure: k16592 o|contracted procedure: k16604 o|contracted procedure: k16667 o|contracted procedure: k16610 o|contracted procedure: k16616 o|contracted procedure: k16635 o|contracted procedure: k16675 o|contracted procedure: k16681 o|contracted procedure: k16687 o|contracted procedure: k16767 o|contracted procedure: k16882 o|contracted procedure: k16900 o|contracted procedure: k16909 o|contracted procedure: k16912 o|contracted procedure: k16918 o|contracted procedure: k16932 o|contracted procedure: k16946 o|contracted procedure: k16960 o|contracted procedure: k16974 o|contracted procedure: k16984 o|contracted procedure: k16988 o|contracted procedure: k17015 o|contracted procedure: k17022 o|contracted procedure: k17030 o|contracted procedure: k17035 o|contracted procedure: k17042 o|contracted procedure: k17055 o|contracted procedure: k17049 o|contracted procedure: k17061 o|contracted procedure: k17073 o|contracted procedure: k17083 o|contracted procedure: k17087 o|contracted procedure: k17117 o|contracted procedure: k17129 o|contracted procedure: k17168 o|contracted procedure: k7182 o|contracted procedure: k7193 o|contracted procedure: k17209 o|contracted procedure: k17216 o|contracted procedure: k17229 o|contracted procedure: k17237 o|contracted procedure: k17245 o|contracted procedure: k17253 o|contracted procedure: k17274 o|contracted procedure: k17281 o|contracted procedure: k17289 o|contracted procedure: k17348 o|contracted procedure: k17330 o|contracted procedure: k17339 o|contracted procedure: k17375 o|contracted procedure: k17381 o|contracted procedure: k17393 o|contracted procedure: k17396 o|contracted procedure: k17399 o|contracted procedure: k17407 o|contracted procedure: k17415 o|contracted procedure: k17501 o|contracted procedure: k17526 o|contracted procedure: k17529 o|contracted procedure: k734326057 o|contracted procedure: k17556 o|contracted procedure: k17591 o|contracted procedure: k17562 o|contracted procedure: k17587 o|contracted procedure: k17568 o|contracted procedure: k17594 o|contracted procedure: k17619 o|contracted procedure: k17600 o|contracted procedure: k17607 o|contracted procedure: k17614 o|contracted procedure: k17623 o|contracted procedure: k17631 o|contracted procedure: k17704 o|contracted procedure: k17685 o|contracted procedure: k17700 o|contracted procedure: k17691 o|contracted procedure: k17713 o|contracted procedure: k17719 o|contracted procedure: k17834 o|contracted procedure: k17725 o|contracted procedure: k17830 o|contracted procedure: k17731 o|contracted procedure: k17751 o|contracted procedure: k17760 o|contracted procedure: k17783 o|contracted procedure: k17766 o|contracted procedure: k17779 o|contracted procedure: k17793 o|contracted procedure: k18887 o|contracted procedure: k17840 o|contracted procedure: k17846 o|contracted procedure: k17852 o|contracted procedure: k17858 o|contracted procedure: k17867 o|contracted procedure: k17873 o|contracted procedure: k17879 o|contracted procedure: k17885 o|contracted procedure: k17891 o|contracted procedure: k18878 o|contracted procedure: k17903 o|contracted procedure: k17909 o|contracted procedure: k18874 o|contracted procedure: k17915 o|contracted procedure: k17937 o|contracted procedure: k17921 o|contracted procedure: k17932 o|contracted procedure: k18870 o|contracted procedure: k17943 o|contracted procedure: k18107 o|contracted procedure: k17949 o|contracted procedure: k18102 o|contracted procedure: k17955 o|contracted procedure: k17976 o|contracted procedure: k17989 o|contracted procedure: k18008 o|contracted procedure: k18012 o|contracted procedure: k18016 o|contracted procedure: k18024 o|contracted procedure: k18039 o|contracted procedure: k18045 o|contracted procedure: k18052 o|contracted procedure: k18030 o|contracted procedure: k18058 o|contracted procedure: k18061 o|contracted procedure: k18073 o|contracted procedure: k18076 o|contracted procedure: k18079 o|contracted procedure: k18087 o|contracted procedure: k18095 o|contracted procedure: k18121 o|contracted procedure: k18125 o|contracted procedure: k18826 o|contracted procedure: k18134 o|contracted procedure: k18140 o|contracted procedure: k18143 o|contracted procedure: k18146 o|contracted procedure: k18149 o|contracted procedure: k18170 o|contracted procedure: k18173 o|contracted procedure: k18176 o|contracted procedure: k18184 o|contracted procedure: k18192 o|contracted procedure: k18822 o|contracted procedure: k18201 o|contracted procedure: k18222 o|contracted procedure: k18207 o|contracted procedure: k18217 o|contracted procedure: k18213 o|contracted procedure: k18818 o|contracted procedure: k18228 o|contracted procedure: k18249 o|contracted procedure: k18234 o|contracted procedure: k18244 o|contracted procedure: k18240 o|contracted procedure: k18814 o|contracted procedure: k18255 o|contracted procedure: k18330 o|contracted procedure: k18261 o|contracted procedure: k18321 o|contracted procedure: k18300 o|contracted procedure: k18313 o|contracted procedure: k18317 o|contracted procedure: k18277 o|contracted procedure: k18325 o|contracted procedure: k18456 o|contracted procedure: k18344 o|contracted procedure: k18347 o|contracted procedure: k18350 o|contracted procedure: k18362 o|contracted procedure: k18376 o|contracted procedure: k18372 o|contracted procedure: k17657 o|contracted procedure: k17664 o|contracted procedure: k18396 o|contracted procedure: k18407 o|contracted procedure: k18423 o|contracted procedure: k18415 o|contracted procedure: k18419 o|contracted procedure: k18411 o|contracted procedure: k18448 o|contracted procedure: k18426 o|contracted procedure: k18443 o|contracted procedure: k18432 o|contracted procedure: k18439 o|contracted procedure: k18466 o|contracted procedure: k18473 o|contracted procedure: k18501 o|contracted procedure: k18479 o|contracted procedure: k18492 o|contracted procedure: k18496 o|contracted procedure: k18508 o|contracted procedure: k18515 o|contracted procedure: k18522 o|contracted procedure: k18531 o|contracted procedure: k18538 o|contracted procedure: k18557 o|contracted procedure: k18561 o|contracted procedure: k18568 o|contracted procedure: k18807 o|contracted procedure: k18574 o|contracted procedure: k18640 o|contracted procedure: k18580 o|contracted procedure: k18583 o|contracted procedure: k18586 o|contracted procedure: k18589 o|contracted procedure: k18610 o|contracted procedure: k18613 o|contracted procedure: k18616 o|contracted procedure: k18624 o|contracted procedure: k18632 o|contracted procedure: k18803 o|contracted procedure: k18646 o|contracted procedure: k18799 o|contracted procedure: k18652 o|contracted procedure: k18795 o|contracted procedure: k18788 o|contracted procedure: k18655 o|contracted procedure: k18785 o|contracted procedure: k18775 o|contracted procedure: k18658 o|contracted procedure: k18664 o|contracted procedure: k18670 o|contracted procedure: k18704 o|contracted procedure: k18707 o|contracted procedure: k18716 o|contracted procedure: k18722 o|contracted procedure: k18725 o|contracted procedure: k18743 o|contracted procedure: k18746 o|contracted procedure: k18749 o|contracted procedure: k18757 o|contracted procedure: k18765 o|contracted procedure: k18866 o|contracted procedure: k18829 o|contracted procedure: k18862 o|contracted procedure: k18835 o|contracted procedure: k18858 o|contracted procedure: k18841 o|contracted procedure: k18854 o|contracted procedure: k18847 o|contracted procedure: k18881 o|contracted procedure: k18924 o|contracted procedure: k18917 o|contracted procedure: k18911 o|contracted procedure: k18927 o|contracted procedure: k18935 o|contracted procedure: k18943 o|contracted procedure: k18963 o|contracted procedure: k18931 o|contracted procedure: k18975 o|contracted procedure: k18978 o|contracted procedure: k18981 o|contracted procedure: k18989 o|contracted procedure: k18997 o|contracted procedure: k19037 o|contracted procedure: k19012 o|contracted procedure: k19056 o|contracted procedure: k19067 o|contracted procedure: k19090 o|contracted procedure: k19093 o|contracted procedure: k19106 o|contracted procedure: k19112 o|inlining procedure: k19109 o|contracted procedure: k19121 o|contracted procedure: k19221 o|contracted procedure: k19127 o|contracted procedure: k19134 o|contracted procedure: k19157 o|contracted procedure: k19160 o|contracted procedure: k19167 o|inlining procedure: k19109 o|contracted procedure: k19176 o|contracted procedure: k19179 o|contracted procedure: k19182 o|contracted procedure: k19190 o|contracted procedure: k19198 o|contracted procedure: k19217 o|contracted procedure: k19207 o|inlining procedure: k19109 o|contracted procedure: k19241 o|contracted procedure: k19244 o|contracted procedure: k19247 o|contracted procedure: k19255 o|contracted procedure: k19263 o|contracted procedure: k19272 o|contracted procedure: k19279 o|contracted procedure: k19282 o|contracted procedure: k19294 o|contracted procedure: k19297 o|contracted procedure: k19300 o|contracted procedure: k19308 o|contracted procedure: k19316 o|contracted procedure: k19433 o|contracted procedure: k19328 o|contracted procedure: k19429 o|contracted procedure: k19334 o|contracted procedure: k19337 o|contracted procedure: k19340 o|contracted procedure: k19347 o|contracted procedure: k19356 o|contracted procedure: k19376 o|contracted procedure: k19384 o|contracted procedure: k19380 o|contracted procedure: k19405 o|contracted procedure: k19408 o|contracted procedure: k19415 o|contracted procedure: k19418 o|contracted procedure: k19425 o|contracted procedure: k19442 o|contracted procedure: k19454 o|contracted procedure: k19460 o|contracted procedure: k19471 o|contracted procedure: k19478 o|contracted procedure: k19580 o|contracted procedure: k19495 o|contracted procedure: k19507 o|contracted procedure: k19572 o|contracted procedure: k19513 o|contracted procedure: k19519 o|contracted procedure: k19525 o|contracted procedure: k19531 o|contracted procedure: k19537 o|contracted procedure: k19543 o|contracted procedure: k19555 o|contracted procedure: k19549 o|contracted procedure: k19576 o|contracted procedure: k19603 o|contracted procedure: k19620 o|contracted procedure: k19616 o|contracted procedure: k19591 o|contracted procedure: k19628 o|contracted procedure: k19624 o|contracted procedure: k19636 o|contracted procedure: k19654 o|contracted procedure: k19798 o|contracted procedure: k19666 o|contracted procedure: k19672 o|contracted procedure: k19678 o|contracted procedure: k19794 o|contracted procedure: k19687 o|contracted procedure: k19724 o|contracted procedure: k19693 o|contracted procedure: k19706 o|contracted procedure: k6909 o|contracted procedure: k6923 o|contracted procedure: k6933 o|contracted procedure: k6927 o|contracted procedure: k19790 o|contracted procedure: k19730 o|contracted procedure: k19742 o|contracted procedure: k19776 o|contracted procedure: k19766 o|contracted procedure: k19770 o|contracted procedure: k19779 o|contracted procedure: k19786 o|contracted procedure: k19921 o|contracted procedure: k19845 o|contracted procedure: k19857 o|contracted procedure: k19863 o|contracted procedure: k19869 o|contracted procedure: k19875 o|contracted procedure: k19807 o|contracted procedure: k19820 o|contracted procedure: k19823 o|contracted procedure: k19917 o|contracted procedure: k19962 o|contracted procedure: k19971 o|contracted procedure: k19974 o|contracted procedure: k20008 o|contracted procedure: k20015 o|contracted procedure: k20028 o|contracted procedure: k20024 o|contracted procedure: k20032 o|contracted procedure: k20055 o|contracted procedure: k20065 o|contracted procedure: k20083 o|contracted procedure: k20091 o|contracted procedure: k20227 o|contracted procedure: k20235 o|contracted procedure: k20238 o|contracted procedure: k20249 o|contracted procedure: k20261 o|contracted procedure: k20252 o|contracted procedure: k20267 o|contracted procedure: k734326142 o|contracted procedure: k20282 o|contracted procedure: k20297 o|contracted procedure: k20309 o|contracted procedure: k20324 o|contracted procedure: k20327 o|contracted procedure: k20330 o|contracted procedure: k20338 o|contracted procedure: k20346 o|contracted procedure: k20357 o|contracted procedure: k20360 o|contracted procedure: k7210 o|contracted procedure: k7217 o|contracted procedure: k20372 o|contracted procedure: k20375 o|contracted procedure: k20378 o|contracted procedure: k20386 o|contracted procedure: k20394 o|contracted procedure: k20416 o|contracted procedure: k20422 o|contracted procedure: k20455 o|contracted procedure: k20428 o|contracted procedure: k20449 o|contracted procedure: k20435 o|contracted procedure: k20443 o|contracted procedure: k20461 o|contracted procedure: k20473 o|contracted procedure: k20483 o|contracted procedure: k20487 o|contracted procedure: k20522 o|contracted procedure: k20531 o|contracted procedure: k20619 o|contracted procedure: k20537 o|contracted procedure: k20563 o|contracted procedure: k20558 o|contracted procedure: k20549 o|contracted procedure: k20568 o|contracted procedure: k20576 o|contracted procedure: k20591 o|contracted procedure: k20594 o|contracted procedure: k20597 o|contracted procedure: k20605 o|contracted procedure: k20613 o|contracted procedure: k21061 o|contracted procedure: k20654 o|contracted procedure: k21058 o|contracted procedure: k20666 o|contracted procedure: k20704 o|contracted procedure: k20712 o|contracted procedure: k20715 o|contracted procedure: k20718 o|contracted procedure: k20730 o|contracted procedure: k20733 o|contracted procedure: k20736 o|contracted procedure: k20744 o|contracted procedure: k20752 o|contracted procedure: k20767 o|contracted procedure: k20779 o|contracted procedure: k20782 o|contracted procedure: k20792 o|contracted procedure: k20801 o|contracted procedure: k20804 o|contracted procedure: k20807 o|contracted procedure: k20815 o|contracted procedure: k20823 o|contracted procedure: k20648 o|contracted procedure: k20832 o|contracted procedure: k20844 o|contracted procedure: k20847 o|contracted procedure: k20850 o|contracted procedure: k20862 o|contracted procedure: k20865 o|contracted procedure: k20868 o|contracted procedure: k20876 o|contracted procedure: k20884 o|contracted procedure: k20893 o|contracted procedure: k20899 o|contracted procedure: k20902 o|contracted procedure: k20908 o|contracted procedure: k20923 o|contracted procedure: k20930 o|contracted procedure: k20941 o|contracted procedure: k20960 o|contracted procedure: k20963 o|contracted procedure: k20966 o|contracted procedure: k20978 o|contracted procedure: k20981 o|contracted procedure: k20984 o|contracted procedure: k20992 o|contracted procedure: k21000 o|contracted procedure: k21012 o|contracted procedure: k21015 o|contracted procedure: k21018 o|contracted procedure: k21026 o|contracted procedure: k21034 o|contracted procedure: k21043 o|contracted procedure: k21050 o|contracted procedure: k21053 o|contracted procedure: k21106 o|contracted procedure: k21115 o|contracted procedure: k21121 o|contracted procedure: k21128 o|contracted procedure: k21137 o|contracted procedure: k21149 o|contracted procedure: k21152 o|contracted procedure: k21155 o|contracted procedure: k21163 o|contracted procedure: k21171 o|contracted procedure: k21177 o|contracted procedure: k21229 o|contracted procedure: k17440 o|contracted procedure: k17469 o|contracted procedure: k17449 o|contracted procedure: k17465 o|contracted procedure: k17455 o|contracted procedure: k17475 o|contracted procedure: k21414 o|contracted procedure: k21253 o|contracted procedure: k21287 o|contracted procedure: k21297 o|contracted procedure: k21411 o|contracted procedure: k21306 o|contracted procedure: k21339 o|contracted procedure: k21401 o|contracted procedure: k21462 o|contracted procedure: k21432 o|contracted procedure: k21447 o|contracted procedure: k21451 o|contracted procedure: k21465 o|contracted procedure: k21560 o|contracted procedure: k21567 o|contracted procedure: k21581 o|contracted procedure: k21584 o|contracted procedure: k21587 o|contracted procedure: k21593 o|contracted procedure: k21654 o|contracted procedure: k21676 o|contracted procedure: k21906 o|contracted procedure: k21955 o|contracted procedure: k22031 o|contracted procedure: k22000 o|contracted procedure: k22049 o|contracted procedure: k22163 o|contracted procedure: k22159 o|contracted procedure: k22176 o|contracted procedure: k22225 o|contracted procedure: k22194 o|contracted procedure: k22238 o|contracted procedure: k22345 o|contracted procedure: k22260 o|contracted procedure: k22358 o|contracted procedure: k22465 o|contracted procedure: k22380 o|contracted procedure: k22919 o|contracted procedure: k22842 o|contracted procedure: k22868 o|contracted procedure: k20128 o|contracted procedure: k20137 o|contracted procedure: k20143 o|contracted procedure: k20149 o|contracted procedure: k20155 o|contracted procedure: k20171 o|contracted procedure: k20122 o|contracted procedure: k20186 o|contracted procedure: k20192 o|contracted procedure: k20199 o|contracted procedure: k22987 o|contracted procedure: k22941 o|contracted procedure: k22953 o|contracted procedure: k22979 o|contracted procedure: k22959 o|contracted procedure: k22969 o|contracted procedure: k22935 o|contracted procedure: k22983 o|contracted procedure: k23002 o|contracted procedure: k23005 o|contracted procedure: k23008 o|contracted procedure: k22998 o|contracted procedure: k23020 o|contracted procedure: k23023 o|contracted procedure: k23026 o|contracted procedure: k23034 o|contracted procedure: k23042 o|contracted procedure: k23059 o|contracted procedure: k23062 o|contracted procedure: k23065 o|contracted procedure: k23055 o|contracted procedure: k23077 o|contracted procedure: k23080 o|contracted procedure: k23083 o|contracted procedure: k23091 o|contracted procedure: k23099 o|contracted procedure: k23167 o|contracted procedure: k23111 o|contracted procedure: k23122 o|contracted procedure: k23126 o|contracted procedure: k23118 o|contracted procedure: k23138 o|contracted procedure: k23141 o|contracted procedure: k23144 o|contracted procedure: k23152 o|contracted procedure: k23160 o|contracted procedure: k23232 o|contracted procedure: k23176 o|contracted procedure: k23187 o|contracted procedure: k23191 o|contracted procedure: k23183 o|contracted procedure: k23203 o|contracted procedure: k23206 o|contracted procedure: k23209 o|contracted procedure: k23217 o|contracted procedure: k23225 o|contracted procedure: k23255 o|contracted procedure: k23262 o|contracted procedure: k23283 o|contracted procedure: k23289 o|contracted procedure: k23301 o|contracted procedure: k23312 o|contracted procedure: k23308 o|contracted procedure: k23319 o|contracted procedure: k23390 o|contracted procedure: k23334 o|contracted procedure: k23340 o|contracted procedure: k23346 o|contracted procedure: k23352 o|contracted procedure: k23358 o|contracted procedure: k23367 o|contracted procedure: k23374 o|contracted procedure: k23328 o|simplifications: ((let . 310)) o|removed binding forms: 1633 o|inlining procedure: "(scrutinizer.scm:2750) chicken.compiler.scrutinizer#call-node-procedure-name" o|inlining procedure: "(scrutinizer.scm:2775) chicken.compiler.scrutinizer#call-node-procedure-name" o|inlining procedure: "(scrutinizer.scm:2594) chicken.compiler.scrutinizer#multiples" o|inlining procedure: "(scrutinizer.scm:2593) chicken.compiler.scrutinizer#multiples" o|inlining procedure: "(scrutinizer.scm:2575) chicken.compiler.scrutinizer#call-node-procedure-name" o|inlining procedure: "(scrutinizer.scm:2942) chicken.compiler.scrutinizer#multiples" o|inlining procedure: "(scrutinizer.scm:2940) chicken.compiler.scrutinizer#multiples" o|inlining procedure: k13036 o|inlining procedure: k13036 o|inlining procedure: "(scrutinizer.scm:951) chicken.compiler.scrutinizer#maybe-expand-type" o|inlining procedure: "(scrutinizer.scm:950) chicken.compiler.scrutinizer#maybe-expand-type" o|inlining procedure: "(scrutinizer.scm:1314) chicken.compiler.scrutinizer#maybe-expand-type" o|inlining procedure: "(scrutinizer.scm:1313) chicken.compiler.scrutinizer#maybe-expand-type" o|inlining procedure: k18700 o|inlining procedure: k18700 o|inlining procedure: "(scrutinizer.scm:2138) list-or-null4370" o|inlining procedure: "(scrutinizer.scm:2137) list-or-null4370" o|inlining procedure: "(scrutinizer.scm:2142) list-or-null4370" o|inlining procedure: k19813 o|inlining procedure: k19813 o|inlining procedure: k20231 o|inlining procedure: k20231 o|inlining procedure: "(scrutinizer.scm:2600) chicken.compiler.scrutinizer#call-node-procedure-name" o|inlining procedure: "(scrutinizer.scm:2634) chicken.compiler.scrutinizer#call-node-procedure-name" o|inlining procedure: "(scrutinizer.scm:2662) chicken.compiler.scrutinizer#call-node-procedure-name" o|replaced variables: 461 o|removed binding forms: 1 o|inlining procedure: k9970 o|inlining procedure: k9988 o|inlining procedure: k10355 o|substituted constant variable: r1303728204 o|substituted constant variable: r1303728204 o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#maybe-expand-type o|inlining procedure: k17542 o|inlining procedure: k18285 o|inlining procedure: k18285 o|substituted constant variable: r1870128311 o|substituted constant variable: r1870128311 o|removed side-effect free assignment to unused variable: list-or-null4370 o|substituted constant variable: r1981428343 o|contracted procedure: "(scrutinizer.scm:2170) split-list-type4371" o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#multiples o|removed side-effect free assignment to unused variable: chicken.compiler.scrutinizer#call-node-procedure-name o|simplifications: ((if . 1)) o|replaced variables: 28 o|removed binding forms: 264 o|removed conditional forms: 1 o|substituted constant variable: r1828628592 o|substituted constant variable: r1828628592 o|substituted constant variable: r1828628592 o|inlining procedure: k19720 o|inlining procedure: k19749 o|contracted procedure: k20243 o|converted assignments to bindings: (list+index-call-result-type-special-case4373) o|simplifications: ((let . 1)) o|replaced variables: 22 o|removed binding forms: 40 o|removed conditional forms: 1 o|contracted procedure: k21873 o|contracted procedure: k21877 o|contracted procedure: k22769 o|contracted procedure: k22781 o|contracted procedure: k19716 o|simplifications: ((if . 1)) o|replaced variables: 9 o|removed binding forms: 16 o|replaced variables: 3 o|removed binding forms: 3 o|removed binding forms: 2 o|direct leaf routine/allocation: g350351 3 o|direct leaf routine/allocation: tag791 29 o|direct leaf routine/allocation: chicken.compiler.scrutinizer#named? 0 o|direct leaf routine/allocation: chicken.compiler.scrutinizer#rest-type 0 o|direct leaf routine/allocation: chicken.compiler.scrutinizer#noreturn-procedure-type? 0 o|direct leaf routine/allocation: chicken.compiler.scrutinizer#refinement-type? 0 o|direct leaf routine/allocation: doloop32413242 0 o|direct leaf routine/allocation: loop3706 0 o|direct leaf routine/allocation: g38173818 3 o|contracted procedure: "(scrutinizer.scm:338) k9207" o|contracted procedure: "(scrutinizer.scm:459) k9914" o|contracted procedure: "(scrutinizer.scm:459) k9918" o|contracted procedure: "(scrutinizer.scm:541) k10068" o|contracted procedure: "(scrutinizer.scm:787) k11615" o|contracted procedure: "(scrutinizer.scm:863) k11911" o|contracted procedure: "(scrutinizer.scm:865) k11926" o|contracted procedure: "(scrutinizer.scm:877) k11995" o|contracted procedure: "(scrutinizer.scm:1186) k13964" o|contracted procedure: "(scrutinizer.scm:1214) k14331" o|contracted procedure: "(scrutinizer.scm:1263) k14496" o|contracted procedure: "(scrutinizer.scm:1264) k14500" o|contracted procedure: "(scrutinizer.scm:1414) k15380" o|converted assignments to bindings: (doloop32413242) o|converted assignments to bindings: (loop3706) o|contracted procedure: "(scrutinizer.scm:2383) k20678" o|simplifications: ((let . 2)) o|removed binding forms: 14 o|replaced variables: 3 o|removed binding forms: 3 o|customizable procedures: (list+index-call-result-type-special-case4373 map-loop44634480 map-loop44974514 map-loop45314548 map-loop45654582 p5514 p5466 p5444 file-location5290 p-expr5252 p-node5253 rec5183 chicken.compiler.scrutinizer#variable-and-module k21313 g51095118 map-loop51035132 k20758 map-loop50215038 map-loop50485065 k20951 map-loop49935010 map-loop49634981 map-loop49254942 conv4889 g48674876 map-loop48614879 restore4719 loop4799 collect4720 g48164823 for-each-loop48154830 map-loop47384755 loop273 g47714780 map-loop47654790 doloop47234724 derive-result-type4625 k19983 k20042 lp4627 foldl46434647 k19759 lp4391 loop157 k19894 g44384439 known-length-vector-index4301 chicken.compiler.scrutinizer#r-index-out-of-range loop4237 k19369 k19390 rec4217 g40924101 map-loop40864201 k19064 g41144123 map-loop41084141 fail4082 g41674176 map-loop41614194 g40034004 g40174026 map-loop40114036 k18901 k18110 map-loop39723989 k18686 map-loop39303947 g39223923 loop3910 g38763877 k18353 memq*3692 k18388 loop3697 k18294 map-loop38253842 g37813790 map-loop37753799 k17734 k17754 validate-llist3693 k17498 k17548 subst3655 map-loop36133630 chicken.compiler.scrutinizer#source-node k17162 wrap3569 loop267 g34613468 for-each-loop34603539 k16773 k16888 adjust3476 clean!3431 pure!3432 loop3483 k16809 k16451 loop3376 g33913400 map-loop33853410 g33443353 map-loop33383363 g32923301 map-loop32863311 g32653266 resolve3256 for-each-loop32213231 k16159 map-loop31933211 k15922 for-each-loop31583168 for-each-loop31753185 for-each-loop31233133 for-each-loop31403150 k15322 k15455 g30133014 loop12974 k15432 k15332 k15373 loop2987 k14811 k14838 k14865 k14871 k14899 map-loop28682887 g28372838 g28262827 a14749 k14526 k14481 g26912692 g26732674 loop407 k14273 map-loop26222639 map-loop26482665 map-loop25932610 map-loop25642581 chicken.compiler.scrutinizer#canonicalize-list-type foldl461465 foldl445449 map-loop24392456 chicken.compiler.scrutinizer#delete-duplicates chicken.compiler.scrutinizer#lset=/eq? k13854 loop2512 k13686 chicken.compiler.scrutinizer#merge-argument-types loop2740 foldl24822486 map-loop24062425 chicken.compiler.scrutinizer#filter-map loop2372 k12441 k12479 k12520 k12539 k12558 k12571 k12664 k12837 k12856 k12869 k12971 k13073 k13115 k13149 k13191 every-match12020 chicken.compiler.scrutinizer#procedure-arguments chicken.compiler.scrutinizer#procedure-results match-args2015 chicken.compiler.scrutinizer#over-all-instantiations g21862187 g21752176 g21472148 g21142115 g21282129 rawmatch12019 loop2090 k12056 match-results2018 loop136 match-rest2016 loop2025 loop1916 map-loop19311948 doloop19131914 for-each-loop18611881 g18371844 for-each-loop18361847 loop1824 chicken.compiler.scrutinizer#node-source-prefix chicken.compiler.scrutinizer#location-name map-loop56025619 chicken.compiler.scrutinizer#string-add-indent chicken.compiler.scrutinizer#compatible-types? k11266 k11269 g15821592 map-loop15761605 map-loop16231640 g17091717 for-each-loop17081763 g17791788 map-loop17731798 k10856 g17551756 smash1663 g16781687 map-loop16721697 k10726 call-result790 k10579 k10556 k10559 k10430 k10445 chicken.compiler.scrutinizer#smash-component-types! k10333 loop1550 initial-argument-types793 map-loop14001421 k10181 k10096 g14691470 k10108 loop1458 k9975 k9959 loop1369 single787 always-true784 g13021309 for-each-loop13011314 add-to-blist792 k9675 k9681 map-loop13301354 walk794 variable-result782 g12001209 map-loop11941222 loop1178 map-loop979996 chicken.compiler.scrutinizer#make-list k8731 chicken.compiler.scrutinizer#strip-namespace chicken.compiler.scrutinizer#r-proc-call-argument-type-mismatch doloop10351036 k8768 k15557 k15629 k15570 loop3037 g30323033 loop13024 chicken.compiler.scrutinizer#procedure-name g10931094 chicken.compiler.scrutinizer#append-map loop1096 g10871088 chicken.compiler.scrutinizer#mutate-node! g10561057 chicken.compiler.scrutinizer#match-argument-types chicken.compiler.scrutinizer#trail-restore chicken.compiler.scrutinizer#fragment chicken.compiler.scrutinizer#specialize-node! k8777 k8843 k8780 g11401149 map-loop11341159 chicken.compiler.scrutinizer#procedure-argument-types chicken.compiler.scrutinizer#describe-expression chicken.compiler.scrutinizer#variable-from-module variable-node-name5318 chicken.compiler.scrutinizer#pp-fragment chicken.compiler.scrutinizer#type->pp-string blist-type781 k8485 g877878 k8415 chicken.compiler.scrutinizer#r-deprecated-identifier loop513 map-loop840857 chicken.compiler.scrutinizer#simplify-type map-loop808825 chicken.compiler.scrutinizer#list-tabulate chicken.compiler.scrutinizer#every loop485 map-loop363381 foldr335338 g340341 loop280 loop300 loop254 loop241 chicken.compiler.scrutinizer#any map-loop185203 map-loop212230 loop181 foldr170173 g175176 chicken.compiler.scrutinizer#take) o|calls to known targets: 1003 o|identified direct recursive calls: f_6846 1 o|identified direct recursive calls: f_6952 1 o|identified direct recursive calls: f_7024 1 o|identified direct recursive calls: f_7073 1 o|identified direct recursive calls: f_7400 1 o|identified direct recursive calls: f_7473 1 o|unused rest argument: _54525845 f25846 o|unused rest argument: _545 f_7941 o|identified direct recursive calls: f_8071 1 o|identified direct recursive calls: f_8534 2 o|identified direct recursive calls: f_15574 1 o|identified direct recursive calls: f_10229 1 o|identified direct recursive calls: f_11659 1 o|identified direct recursive calls: f_11839 2 o|identified direct recursive calls: f_7572 2 o|identified direct recursive calls: f_14444 1 o|identified direct recursive calls: f_15091 1 o|identified direct recursive calls: f_15143 1 o|identified direct recursive calls: f_15194 1 o|identified direct recursive calls: f_15251 1 o|identified direct recursive calls: f_15336 2 o|identified direct recursive calls: f_15659 1 o|identified direct recursive calls: f_15732 1 o|identified direct recursive calls: f_15791 1 o|identified direct recursive calls: f_15835 1 o|identified direct recursive calls: f_15888 1 o|identified direct recursive calls: f_16220 1 o|identified direct recursive calls: f_16599 2 o|identified direct recursive calls: f_16267 2 o|identified direct recursive calls: f_7177 1 o|identified direct recursive calls: f_17204 1 o|identified direct recursive calls: f_17680 1 o|identified direct recursive calls: f_17652 1 o|identified direct recursive calls: f_19449 1 o|identified direct recursive calls: f_6904 1 o|identified direct recursive calls: f_20003 1 o|identified direct recursive calls: f_7205 1 o|fast box initializations: 145 o|fast global references: 384 o|fast global assignments: 90 o|dropping unused closure argument: f_11623 o|dropping unused closure argument: f_13403 o|dropping unused closure argument: f_13475 o|dropping unused closure argument: f_14444 o|dropping unused closure argument: f_14682 o|dropping unused closure argument: f_15143 o|dropping unused closure argument: f_15194 o|dropping unused closure argument: f_15251 o|dropping unused closure argument: f_15308 o|dropping unused closure argument: f_15659 o|dropping unused closure argument: f_15712 o|dropping unused closure argument: f_15732 o|dropping unused closure argument: f_15835 o|dropping unused closure argument: f_16214 o|dropping unused closure argument: f_17310 o|dropping unused closure argument: f_17328 o|dropping unused closure argument: f_17490 o|dropping unused closure argument: f_17674 o|dropping unused closure argument: f_19323 o|dropping unused closure argument: f_19437 o|dropping unused closure argument: f_19487 o|dropping unused closure argument: f_19832 o|dropping unused closure argument: f_20210 o|dropping unused closure argument: f_20535 o|dropping unused closure argument: f_20626 o|dropping unused closure argument: f_21092 o|dropping unused closure argument: f_21197 o|dropping unused closure argument: f_21221 o|dropping unused closure argument: f_21251 o|dropping unused closure argument: f_21421 o|dropping unused closure argument: f_21472 o|dropping unused closure argument: f_21532 o|dropping unused closure argument: f_21535 o|dropping unused closure argument: f_21896 o|dropping unused closure argument: f_22035 o|dropping unused closure argument: f_22840 o|dropping unused closure argument: f_6846 o|dropping unused closure argument: f_6937 o|dropping unused closure argument: f_7107 o|dropping unused closure argument: f_7141 o|dropping unused closure argument: f_7302 o|dropping unused closure argument: f_7391 o|dropping unused closure argument: f_7749 o|dropping unused closure argument: f_7791 o|dropping unused closure argument: f_7932 o|dropping unused closure argument: f_8632 */ /* end of file */ chicken-5.1.0/port.c0000644000175000017500000046147313502227742014102 0ustar sjamaansjamaan/* Generated from port.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: port.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file port.c -emit-import-library chicken.port unit: port uses: extras library */ #include "chicken.h" #if !defined(_WIN32) # include # include #endif #if !defined(__ANDROID__) && defined(TIOCGWINSZ) static int get_tty_size(int fd, int *rows, int *cols) { struct winsize tty_size; int r; memset(&tty_size, 0, sizeof tty_size); r = ioctl(fd, TIOCGWINSZ, &tty_size); if (r == 0) { *rows = tty_size.ws_row; *cols = tty_size.ws_col; } return r; } #else static int get_tty_size(int fd, int *rows, int *cols) { *rows = *cols = 0; errno = ENOSYS; return -1; } #endif #if defined(_WIN32) && !defined(__CYGWIN__) char *ttyname(int fd) { errno = ENOSYS; return NULL; } #endif static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[90]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,111,114,116,35,112,111,114,116,45,110,97,109,101,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,112,111,114,116,35,115,101,116,45,112,111,114,116,45,110,97,109,101,33,32,112,111,114,116,32,110,97,109,101,41,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,111,114,116,35,112,111,114,116,45,112,111,115,105,116,105,111,110,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,112,111,114,116,35,115,101,116,45,98,117,102,102,101,114,105,110,103,45,109,111,100,101,33,32,112,111,114,116,32,109,111,100,101,32,46,32,115,105,122,101,41,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,111,114,116,35,112,111,114,116,45,102,111,114,45,101,97,99,104,32,102,110,32,116,104,117,110,107,41,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,120,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,112,111,114,116,35,112,111,114,116,45,109,97,112,32,102,110,32,116,104,117,110,107,41}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,97,99,99,41,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,111,114,116,35,112,111,114,116,45,102,111,108,100,32,102,110,32,97,99,99,32,116,104,117,110,107,41,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,14),40,102,95,49,49,50,49,32,98,117,102,32,110,41,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,49,56,56,32,105,41,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,14),40,102,95,49,49,50,54,32,98,117,102,32,110,41,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,110,41}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,7),40,97,49,49,52,51,41,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,9),40,97,49,49,52,57,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,111,114,116,35,99,111,112,121,45,112,111,114,116,32,115,114,99,32,100,101,115,116,32,46,32,114,101,115,116,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,11),40,103,50,53,48,32,103,50,54,50,41,0,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,52,57,32,103,50,53,54,41,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,9),40,97,49,49,56,53,32,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,55,52,32,103,50,56,49,41,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,7),40,97,49,50,49,57,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,111,114,116,35,109,97,107,101,45,98,114,111,97,100,99,97,115,116,45,112,111,114,116,32,46,32,112,111,114,116,115,41,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,7),40,97,49,50,53,55,41,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,7),40,97,49,50,57,50,41,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,7),40,97,49,51,49,50,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,110,32,99,41,0,0,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,22),40,97,49,51,52,55,32,112,32,110,32,100,101,115,116,32,115,116,97,114,116,41,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,112,111,114,116,35,109,97,107,101,45,99,111,110,99,97,116,101,110,97,116,101,100,45,112,111,114,116,32,112,49,32,46,32,112,111,114,116,115,41}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,7),40,97,49,52,48,57,41,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,7),40,97,49,52,49,52,41,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,7),40,97,49,52,50,48,41,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,112,111,114,116,35,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,112,111,114,116,32,112,111,114,116,32,116,104,117,110,107,41,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,7),40,97,49,52,51,52,41,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,7),40,97,49,52,51,57,41,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,7),40,97,49,52,52,53,41,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,112,111,114,116,35,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,112,111,114,116,32,112,111,114,116,32,116,104,117,110,107,41,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,7),40,97,49,52,53,57,41,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,7),40,97,49,52,54,52,41,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,7),40,97,49,52,55,48,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,112,111,114,116,35,119,105,116,104,45,101,114,114,111,114,45,111,117,116,112,117,116,45,116,111,45,112,111,114,116,32,112,111,114,116,32,116,104,117,110,107,41,0,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,112,111,114,116,35,99,97,108,108,45,119,105,116,104,45,105,110,112,117,116,45,115,116,114,105,110,103,32,115,116,114,32,112,114,111,99,41,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,112,111,114,116,35,99,97,108,108,45,119,105,116,104,45,111,117,116,112,117,116,45,115,116,114,105,110,103,32,112,114,111,99,41,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,7),40,97,49,53,48,53,41,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,7),40,97,49,53,49,48,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,7),40,97,49,53,49,54,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,112,111,114,116,35,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,115,116,114,105,110,103,32,115,116,114,32,116,104,117,110,107,41,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,7),40,97,49,53,51,48,41,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,7),40,97,49,53,51,53,41,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,7),40,97,49,53,52,52,41,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,111,114,116,35,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,115,116,114,105,110,103,32,116,104,117,110,107,41,0,0,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,7),40,97,49,53,53,56,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,7),40,97,49,53,54,51,41,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,7),40,97,49,53,55,50,41,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,112,111,114,116,35,119,105,116,104,45,101,114,114,111,114,45,111,117,116,112,117,116,45,116,111,45,115,116,114,105,110,103,32,116,104,117,110,107,41}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,9),40,97,49,54,49,54,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,9),40,97,49,54,51,55,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,11),40,97,49,54,53,56,32,112,32,100,41,0,0,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,9),40,97,49,54,54,52,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,112,111,114,116,35,109,97,107,101,45,105,110,112,117,116,45,112,111,114,116,32,114,101,97,100,32,114,101,97,100,121,63,32,99,108,111,115,101,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,11),40,97,49,55,51,54,32,112,32,99,41,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,11),40,97,49,55,52,54,32,112,32,115,41,0,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,11),40,97,49,55,53,50,32,112,32,100,41,0,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,9),40,97,49,55,53,56,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,50),40,99,104,105,99,107,101,110,46,112,111,114,116,35,109,97,107,101,45,111,117,116,112,117,116,45,112,111,114,116,32,119,114,105,116,101,32,99,108,111,115,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,9),40,97,49,55,56,57,32,95,41,0,0,0,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,9),40,97,49,55,57,53,32,95,41,0,0,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,11),40,97,49,56,48,49,32,95,32,99,41,0,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,11),40,97,49,56,48,55,32,95,32,115,41,0,0,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,11),40,97,49,56,49,51,32,95,32,100,41,0,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,9),40,97,49,56,51,56,32,95,41,0,0,0,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,9),40,97,49,56,52,52,32,95,41,0,0,0,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,15),40,97,49,56,53,48,32,95,32,110,32,100,32,115,41,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,11),40,97,49,56,53,54,32,95,32,108,41,0,0,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,7),40,97,49,56,54,50,41,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,111,114,116,35,109,97,107,101,45,98,105,100,105,114,101,99,116,105,111,110,97,108,45,112,111,114,116,32,105,32,111,41,0,0,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,112,111,114,116,35,112,111,115,105,120,45,101,114,114,111,114,32,116,121,112,101,32,108,111,99,32,109,115,103,32,97,114,103,115,41,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,112,111,114,116,35,116,101,114,109,105,110,97,108,45,112,111,114,116,63,32,112,111,114,116,41,0,0,0,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,111,114,116,35,99,104,101,99,107,45,116,101,114,109,105,110,97,108,33,32,99,97,108,108,101,114,32,112,111,114,116,41,0,0,0,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,111,114,116,35,116,101,114,109,105,110,97,108,45,110,97,109,101,32,112,111,114,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,111,114,116,35,116,101,114,109,105,110,97,108,45,115,105,122,101,32,112,111,114,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; /* from k1972 */ C_regparm static C_word C_fcall stub548(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); int *t1=(int *)C_c_pointer_nn(C_a1); int *t2=(int *)C_c_pointer_nn(C_a2); C_r=C_fix((C_word)get_tty_size(t0,t1,t2)); return C_r;} /* from k1942 */ C_regparm static C_word C_fcall stub534(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_mpointer(&C_a,(void*)ttyname(t0)); return C_r;} /* from k1876 */ C_regparm static C_word C_fcall stub512(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_mpointer(&C_a,(void*)strerror(t0)); return C_r;} #define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub141(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word p=(C_word )(C_a0); int m=(int )C_unfix(C_a1); int s=(int )C_unfix(C_a2); C_return(setvbuf(C_port_file(p), NULL, m, s)); C_ret: #undef return return C_r;} C_noret_decl(f_1019) static void C_fcall f_1019(C_word t0,C_word t1) C_noret; C_noret_decl(f_1023) static void C_ccall f_1023(C_word c,C_word *av) C_noret; C_noret_decl(f_1032) static void C_ccall f_1032(C_word c,C_word *av) C_noret; C_noret_decl(f_1041) static void C_ccall f_1041(C_word c,C_word *av) C_noret; C_noret_decl(f_1046) static void C_fcall f_1046(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1050) static void C_fcall f_1050(C_word t0,C_word t1) C_noret; C_noret_decl(f_1053) static void C_ccall f_1053(C_word c,C_word *av) C_noret; C_noret_decl(f_1088) static void C_ccall f_1088(C_word c,C_word *av) C_noret; C_noret_decl(f_1091) static void C_ccall f_1091(C_word c,C_word *av) C_noret; C_noret_decl(f_1121) static void C_ccall f_1121(C_word c,C_word *av) C_noret; C_noret_decl(f_1126) static void C_ccall f_1126(C_word c,C_word *av) C_noret; C_noret_decl(f_1144) static void C_ccall f_1144(C_word c,C_word *av) C_noret; C_noret_decl(f_1150) static void C_ccall f_1150(C_word c,C_word *av) C_noret; C_noret_decl(f_1180) static void C_ccall f_1180(C_word c,C_word *av) C_noret; C_noret_decl(f_1186) static void C_ccall f_1186(C_word c,C_word *av) C_noret; C_noret_decl(f_1188) static void C_fcall f_1188(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1197) static void C_fcall f_1197(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1207) static void C_ccall f_1207(C_word c,C_word *av) C_noret; C_noret_decl(f_1220) static void C_ccall f_1220(C_word c,C_word *av) C_noret; C_noret_decl(f_1226) static void C_fcall f_1226(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1236) static void C_ccall f_1236(C_word c,C_word *av) C_noret; C_noret_decl(f_1249) static void C_ccall f_1249(C_word c,C_word *av) C_noret; C_noret_decl(f_1258) static void C_ccall f_1258(C_word c,C_word *av) C_noret; C_noret_decl(f_1264) static void C_fcall f_1264(C_word t0,C_word t1) C_noret; C_noret_decl(f_1274) static void C_ccall f_1274(C_word c,C_word *av) C_noret; C_noret_decl(f_1293) static void C_ccall f_1293(C_word c,C_word *av) C_noret; C_noret_decl(f_1313) static void C_ccall f_1313(C_word c,C_word *av) C_noret; C_noret_decl(f_1319) static void C_fcall f_1319(C_word t0,C_word t1) C_noret; C_noret_decl(f_1329) static void C_ccall f_1329(C_word c,C_word *av) C_noret; C_noret_decl(f_1348) static void C_ccall f_1348(C_word c,C_word *av) C_noret; C_noret_decl(f_1354) static void C_fcall f_1354(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1370) static void C_ccall f_1370(C_word c,C_word *av) C_noret; C_noret_decl(f_1373) static void C_fcall f_1373(C_word t0,C_word t1) C_noret; C_noret_decl(f_1401) static void C_ccall f_1401(C_word c,C_word *av) C_noret; C_noret_decl(f_1410) static void C_ccall f_1410(C_word c,C_word *av) C_noret; C_noret_decl(f_1415) static void C_ccall f_1415(C_word c,C_word *av) C_noret; C_noret_decl(f_1421) static void C_ccall f_1421(C_word c,C_word *av) C_noret; C_noret_decl(f_1426) static void C_ccall f_1426(C_word c,C_word *av) C_noret; C_noret_decl(f_1435) static void C_ccall f_1435(C_word c,C_word *av) C_noret; C_noret_decl(f_1440) static void C_ccall f_1440(C_word c,C_word *av) C_noret; C_noret_decl(f_1446) static void C_ccall f_1446(C_word c,C_word *av) C_noret; C_noret_decl(f_1451) static void C_ccall f_1451(C_word c,C_word *av) C_noret; C_noret_decl(f_1460) static void C_ccall f_1460(C_word c,C_word *av) C_noret; C_noret_decl(f_1465) static void C_ccall f_1465(C_word c,C_word *av) C_noret; C_noret_decl(f_1471) static void C_ccall f_1471(C_word c,C_word *av) C_noret; C_noret_decl(f_1476) static void C_ccall f_1476(C_word c,C_word *av) C_noret; C_noret_decl(f_1480) static void C_ccall f_1480(C_word c,C_word *av) C_noret; C_noret_decl(f_1485) static void C_ccall f_1485(C_word c,C_word *av) C_noret; C_noret_decl(f_1489) static void C_ccall f_1489(C_word c,C_word *av) C_noret; C_noret_decl(f_1492) static void C_ccall f_1492(C_word c,C_word *av) C_noret; C_noret_decl(f_1497) static void C_ccall f_1497(C_word c,C_word *av) C_noret; C_noret_decl(f_1501) static void C_ccall f_1501(C_word c,C_word *av) C_noret; C_noret_decl(f_1506) static void C_ccall f_1506(C_word c,C_word *av) C_noret; C_noret_decl(f_1511) static void C_ccall f_1511(C_word c,C_word *av) C_noret; C_noret_decl(f_1517) static void C_ccall f_1517(C_word c,C_word *av) C_noret; C_noret_decl(f_1522) static void C_ccall f_1522(C_word c,C_word *av) C_noret; C_noret_decl(f_1526) static void C_ccall f_1526(C_word c,C_word *av) C_noret; C_noret_decl(f_1531) static void C_ccall f_1531(C_word c,C_word *av) C_noret; C_noret_decl(f_1536) static void C_ccall f_1536(C_word c,C_word *av) C_noret; C_noret_decl(f_1540) static void C_ccall f_1540(C_word c,C_word *av) C_noret; C_noret_decl(f_1545) static void C_ccall f_1545(C_word c,C_word *av) C_noret; C_noret_decl(f_1550) static void C_ccall f_1550(C_word c,C_word *av) C_noret; C_noret_decl(f_1554) static void C_ccall f_1554(C_word c,C_word *av) C_noret; C_noret_decl(f_1559) static void C_ccall f_1559(C_word c,C_word *av) C_noret; C_noret_decl(f_1564) static void C_ccall f_1564(C_word c,C_word *av) C_noret; C_noret_decl(f_1568) static void C_ccall f_1568(C_word c,C_word *av) C_noret; C_noret_decl(f_1573) static void C_ccall f_1573(C_word c,C_word *av) C_noret; C_noret_decl(f_1578) static void C_ccall f_1578(C_word c,C_word *av) C_noret; C_noret_decl(f_1612) static void C_ccall f_1612(C_word c,C_word *av) C_noret; C_noret_decl(f_1615) static void C_ccall f_1615(C_word c,C_word *av) C_noret; C_noret_decl(f_1617) static void C_ccall f_1617(C_word c,C_word *av) C_noret; C_noret_decl(f_1638) static void C_ccall f_1638(C_word c,C_word *av) C_noret; C_noret_decl(f_1654) static void C_ccall f_1654(C_word c,C_word *av) C_noret; C_noret_decl(f_1659) static void C_ccall f_1659(C_word c,C_word *av) C_noret; C_noret_decl(f_1665) static void C_ccall f_1665(C_word c,C_word *av) C_noret; C_noret_decl(f_1719) static void C_ccall f_1719(C_word c,C_word *av) C_noret; C_noret_decl(f_1732) static void C_ccall f_1732(C_word c,C_word *av) C_noret; C_noret_decl(f_1735) static void C_ccall f_1735(C_word c,C_word *av) C_noret; C_noret_decl(f_1737) static void C_ccall f_1737(C_word c,C_word *av) C_noret; C_noret_decl(f_1747) static void C_ccall f_1747(C_word c,C_word *av) C_noret; C_noret_decl(f_1753) static void C_ccall f_1753(C_word c,C_word *av) C_noret; C_noret_decl(f_1759) static void C_ccall f_1759(C_word c,C_word *av) C_noret; C_noret_decl(f_1774) static void C_ccall f_1774(C_word c,C_word *av) C_noret; C_noret_decl(f_1781) static void C_ccall f_1781(C_word c,C_word *av) C_noret; C_noret_decl(f_1784) static void C_ccall f_1784(C_word c,C_word *av) C_noret; C_noret_decl(f_1790) static void C_ccall f_1790(C_word c,C_word *av) C_noret; C_noret_decl(f_1796) static void C_ccall f_1796(C_word c,C_word *av) C_noret; C_noret_decl(f_1802) static void C_ccall f_1802(C_word c,C_word *av) C_noret; C_noret_decl(f_1808) static void C_ccall f_1808(C_word c,C_word *av) C_noret; C_noret_decl(f_1814) static void C_ccall f_1814(C_word c,C_word *av) C_noret; C_noret_decl(f_1839) static void C_ccall f_1839(C_word c,C_word *av) C_noret; C_noret_decl(f_1845) static void C_ccall f_1845(C_word c,C_word *av) C_noret; C_noret_decl(f_1851) static void C_ccall f_1851(C_word c,C_word *av) C_noret; C_noret_decl(f_1857) static void C_ccall f_1857(C_word c,C_word *av) C_noret; C_noret_decl(f_1863) static void C_ccall f_1863(C_word c,C_word *av) C_noret; C_noret_decl(f_1879) static void C_fcall f_1879(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1883) static void C_ccall f_1883(C_word c,C_word *av) C_noret; C_noret_decl(f_1890) static void C_ccall f_1890(C_word c,C_word *av) C_noret; C_noret_decl(f_1894) static void C_ccall f_1894(C_word c,C_word *av) C_noret; C_noret_decl(f_1896) static void C_ccall f_1896(C_word c,C_word *av) C_noret; C_noret_decl(f_1902) static void C_ccall f_1902(C_word c,C_word *av) C_noret; C_noret_decl(f_1914) static void C_fcall f_1914(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1945) static void C_ccall f_1945(C_word c,C_word *av) C_noret; C_noret_decl(f_1949) static void C_ccall f_1949(C_word c,C_word *av) C_noret; C_noret_decl(f_1952) static void C_ccall f_1952(C_word c,C_word *av) C_noret; C_noret_decl(f_1975) static void C_ccall f_1975(C_word c,C_word *av) C_noret; C_noret_decl(f_1979) static void C_ccall f_1979(C_word c,C_word *av) C_noret; C_noret_decl(f_2000) static void C_ccall f_2000(C_word c,C_word *av) C_noret; C_noret_decl(f_2004) static void C_ccall f_2004(C_word c,C_word *av) C_noret; C_noret_decl(f_727) static void C_ccall f_727(C_word c,C_word *av) C_noret; C_noret_decl(f_730) static void C_ccall f_730(C_word c,C_word *av) C_noret; C_noret_decl(f_732) static void C_ccall f_732(C_word c,C_word *av) C_noret; C_noret_decl(f_739) static void C_ccall f_739(C_word c,C_word *av) C_noret; C_noret_decl(f_750) static void C_ccall f_750(C_word c,C_word *av) C_noret; C_noret_decl(f_754) static void C_ccall f_754(C_word c,C_word *av) C_noret; C_noret_decl(f_762) static void C_ccall f_762(C_word c,C_word *av) C_noret; C_noret_decl(f_769) static void C_ccall f_769(C_word c,C_word *av) C_noret; C_noret_decl(f_794) static void C_ccall f_794(C_word c,C_word *av) C_noret; C_noret_decl(f_798) static void C_ccall f_798(C_word c,C_word *av) C_noret; C_noret_decl(f_801) static void C_fcall f_801(C_word t0,C_word t1) C_noret; C_noret_decl(f_804) static void C_ccall f_804(C_word c,C_word *av) C_noret; C_noret_decl(f_807) static void C_ccall f_807(C_word c,C_word *av) C_noret; C_noret_decl(f_813) static void C_fcall f_813(C_word t0,C_word t1) C_noret; C_noret_decl(f_870) static void C_ccall f_870(C_word c,C_word *av) C_noret; C_noret_decl(f_876) static void C_fcall f_876(C_word t0,C_word t1) C_noret; C_noret_decl(f_880) static void C_ccall f_880(C_word c,C_word *av) C_noret; C_noret_decl(f_889) static void C_ccall f_889(C_word c,C_word *av) C_noret; C_noret_decl(f_894) static void C_ccall f_894(C_word c,C_word *av) C_noret; C_noret_decl(f_900) static void C_fcall f_900(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_904) static void C_ccall f_904(C_word c,C_word *av) C_noret; C_noret_decl(f_924) static void C_ccall f_924(C_word c,C_word *av) C_noret; C_noret_decl(f_926) static void C_ccall f_926(C_word c,C_word *av) C_noret; C_noret_decl(f_932) static void C_fcall f_932(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_936) static void C_ccall f_936(C_word c,C_word *av) C_noret; C_noret_decl(f_949) static void C_ccall f_949(C_word c,C_word *av) C_noret; C_noret_decl(f_956) static void C_ccall f_956(C_word c,C_word *av) C_noret; C_noret_decl(f_961) static void C_fcall f_961(C_word t0,C_word t1) C_noret; C_noret_decl(f_965) static void C_ccall f_965(C_word c,C_word *av) C_noret; C_noret_decl(f_974) static void C_ccall f_974(C_word c,C_word *av) C_noret; C_noret_decl(f_986) static void C_fcall f_986(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_996) static void C_ccall f_996(C_word c,C_word *av) C_noret; C_noret_decl(C_port_toplevel) C_externexport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1019) static void C_ccall trf_1019(C_word c,C_word *av) C_noret; static void C_ccall trf_1019(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1019(t0,t1);} C_noret_decl(trf_1046) static void C_ccall trf_1046(C_word c,C_word *av) C_noret; static void C_ccall trf_1046(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1046(t0,t1,t2);} C_noret_decl(trf_1050) static void C_ccall trf_1050(C_word c,C_word *av) C_noret; static void C_ccall trf_1050(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1050(t0,t1);} C_noret_decl(trf_1188) static void C_ccall trf_1188(C_word c,C_word *av) C_noret; static void C_ccall trf_1188(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1188(t0,t1,t2);} C_noret_decl(trf_1197) static void C_ccall trf_1197(C_word c,C_word *av) C_noret; static void C_ccall trf_1197(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1197(t0,t1,t2);} C_noret_decl(trf_1226) static void C_ccall trf_1226(C_word c,C_word *av) C_noret; static void C_ccall trf_1226(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1226(t0,t1,t2);} C_noret_decl(trf_1264) static void C_ccall trf_1264(C_word c,C_word *av) C_noret; static void C_ccall trf_1264(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1264(t0,t1);} C_noret_decl(trf_1319) static void C_ccall trf_1319(C_word c,C_word *av) C_noret; static void C_ccall trf_1319(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1319(t0,t1);} C_noret_decl(trf_1354) static void C_ccall trf_1354(C_word c,C_word *av) C_noret; static void C_ccall trf_1354(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1354(t0,t1,t2,t3);} C_noret_decl(trf_1373) static void C_ccall trf_1373(C_word c,C_word *av) C_noret; static void C_ccall trf_1373(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1373(t0,t1);} C_noret_decl(trf_1879) static void C_ccall trf_1879(C_word c,C_word *av) C_noret; static void C_ccall trf_1879(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1879(t0,t1,t2,t3,t4);} C_noret_decl(trf_1914) static void C_ccall trf_1914(C_word c,C_word *av) C_noret; static void C_ccall trf_1914(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1914(t0,t1,t2);} C_noret_decl(trf_801) static void C_ccall trf_801(C_word c,C_word *av) C_noret; static void C_ccall trf_801(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_801(t0,t1);} C_noret_decl(trf_813) static void C_ccall trf_813(C_word c,C_word *av) C_noret; static void C_ccall trf_813(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_813(t0,t1);} C_noret_decl(trf_876) static void C_ccall trf_876(C_word c,C_word *av) C_noret; static void C_ccall trf_876(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_876(t0,t1);} C_noret_decl(trf_900) static void C_ccall trf_900(C_word c,C_word *av) C_noret; static void C_ccall trf_900(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_900(t0,t1,t2);} C_noret_decl(trf_932) static void C_ccall trf_932(C_word c,C_word *av) C_noret; static void C_ccall trf_932(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_932(t0,t1,t2);} C_noret_decl(trf_961) static void C_ccall trf_961(C_word c,C_word *av) C_noret; static void C_ccall trf_961(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_961(t0,t1);} C_noret_decl(trf_986) static void C_ccall trf_986(C_word c,C_word *av) C_noret; static void C_ccall trf_986(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_986(t0,t1,t2);} /* loop in chicken.port#copy-port in k728 in k725 */ static void C_fcall f_1019(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1019,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1023,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* port.scm:193: reader */ t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k1021 in loop in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_1023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1023,2,av);} a=C_alloc(4); if(C_truep(C_eofp(t1))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1032,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* port.scm:195: writer */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* k1030 in k1021 in loop in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_1032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1032,2,av);} /* port.scm:196: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1019(t2,((C_word*)t0)[3]);} /* k1039 in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_1041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1041,2,av);} a=C_alloc(10); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1046,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word)li14),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_1046(t6,((C_word*)t0)[5],C_fix(0));} /* loop in k1039 in chicken.port#copy-port in k728 in k725 */ static void C_fcall f_1046(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_1046,3,t0,t1,t2);} a=C_alloc(15); t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1050,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t3)[1],C_fix(1024)))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1088,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* port.scm:201: chicken.io#write-string */ t6=*((C_word*)lf[28]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(1024); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=t4; f_1050(t5,C_SCHEME_UNDEFINED);}} /* k1048 in loop in k1039 in chicken.port#copy-port in k728 in k725 */ static void C_fcall f_1050(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_1050,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1053,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* port.scm:203: reader */ t3=((C_word*)t0)[7];{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k1051 in k1048 in loop in k1039 in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_1053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1053,2,av);} if(C_truep(C_eofp(t1))){ if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],C_fix(0)))){ /* port.scm:206: chicken.io#write-string */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=C_fix(C_character_code(t1)); t3=C_setbyte(((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1],t2); t4=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],C_fix(1)); /* port.scm:209: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_1046(t5,((C_word*)t0)[3],t4);}} /* k1086 in loop in k1039 in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_1088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1088,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_fix(0)); t3=((C_word*)t0)[3]; f_1050(t3,t2);} /* chicken.port#copy-port in k728 in k725 */ static void C_ccall f_1091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +18,c,4)))){ C_save_and_reclaim((void*)f_1091,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+18); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; t5=C_i_nullp(t4); t6=(C_truep(t5)?((C_word*)t0)[2]:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_i_nullp(t9); t11=(C_truep(t10)?((C_word*)t0)[3]:C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=C_eqp(t7,((C_word*)t0)[2]); if(C_truep(t15)){ t16=C_eqp(t12,((C_word*)t0)[3]); t17=(C_truep(t16)?(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1121,a[2]=t3,a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp):(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1126,a[2]=t3,a[3]=t12,a[4]=((C_word)li12),tmp=(C_word)a,a+=5,tmp)); t18=t1; t19=t2; t20=t17; t21=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_956,a[2]=t20,a[3]=t19,a[4]=t18,tmp=(C_word)a,a+=5,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[30]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[30]+1); av2[1]=t21; av2[2]=C_fix(1024); av2[3]=C_make_character(32); tp(4,av2);}} else{ t16=C_eqp(t12,((C_word*)t0)[3]); if(C_truep(t16)){ t17=t1; t18=t2; t19=t3; t20=t7; t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1041,a[2]=t19,a[3]=t20,a[4]=t18,a[5]=t17,tmp=(C_word)a,a+=6,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[30]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[30]+1); av2[1]=t21; av2[2]=C_fix(1024); av2[3]=C_make_character(32); tp(4,av2);}} else{ t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1144,a[2]=t7,a[3]=t2,a[4]=((C_word)li15),tmp=(C_word)a,a+=5,tmp); t18=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1150,a[2]=t12,a[3]=t3,a[4]=((C_word)li16),tmp=(C_word)a,a+=5,tmp); t19=t1; t20=t17; t21=t18; t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1019,a[2]=t23,a[3]=t21,a[4]=t20,a[5]=((C_word)li17),tmp=(C_word)a,a+=6,tmp)); t25=((C_word*)t23)[1]; f_1019(t25,t19);}}} /* f_1121 in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_1121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1121,4,av);} /* port.scm:216: chicken.io#write-string */ t4=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* f_1126 in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_1126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1126,4,av);} a=C_alloc(10); t4=t2; t5=t3; t6=((C_word*)t0)[2]; t7=((C_word*)t0)[3]; t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_986,a[2]=t5,a[3]=t9,a[4]=t4,a[5]=t7,a[6]=t6,a[7]=((C_word)li11),tmp=(C_word)a,a+=8,tmp)); t11=((C_word*)t9)[1]; f_986(t11,t1,C_fix(0));} /* a1143 in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_1144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1144,2,av);} /* port.scm:222: read */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a1149 in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_1150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1150,3,av);} /* port.scm:223: write */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* chicken.port#make-broadcast-port in k728 in k725 */ static void C_ccall f_1180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +8,c,4)))){ C_save_and_reclaim((void*)f_1180,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+8); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1186,a[2]=t2,a[3]=((C_word)li21),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1220,a[2]=t2,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp); /* port.scm:229: make-output-port */ t5=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=*((C_word*)lf[34]+1); av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* a1185 in chicken.port#make-broadcast-port in k728 in k725 */ static void C_ccall f_1186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_1186,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1188,a[2]=t2,a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2]; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1197,a[2]=t6,a[3]=t3,a[4]=((C_word)li20),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_1197(t8,t1,t4);} /* g250 in a1185 in chicken.port#make-broadcast-port in k728 in k725 */ static void C_fcall f_1188(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_1188,3,t0,t1,t2);} t3=*((C_word*)lf[28]+1); /* port.scm:230: g265 */ t4=*((C_word*)lf[28]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_FALSE; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* for-each-loop249 in a1185 in chicken.port#make-broadcast-port in k728 in k725 */ static void C_fcall f_1197(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1197,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1207,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* port.scm:230: g250 */ t5=((C_word*)t0)[3]; f_1188(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1205 in for-each-loop249 in a1185 in chicken.port#make-broadcast-port in k728 in k725 */ static void C_ccall f_1207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1207,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1197(t3,((C_word*)t0)[4],t2);} /* a1219 in chicken.port#make-broadcast-port in k728 in k725 */ static void C_ccall f_1220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1220,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1226,a[2]=t4,a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_1226(t6,t1,t2);} /* for-each-loop274 in a1219 in chicken.port#make-broadcast-port in k728 in k725 */ static void C_fcall f_1226(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1226,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1236,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* port.scm:232: g275 */ t5=*((C_word*)lf[32]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1234 in for-each-loop274 in a1219 in chicken.port#make-broadcast-port in k728 in k725 */ static void C_ccall f_1236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1236,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1226(t3,((C_word*)t0)[4],t2);} /* chicken.port#make-concatenated-port in k728 in k725 */ static void C_ccall f_1249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +21,c,6)))){ C_save_and_reclaim((void*)f_1249,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+21); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t4=C_a_i_cons(&a,2,t2,t3); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1258,a[2]=t6,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1293,a[2]=t6,a[3]=((C_word)li27),tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1313,a[2]=t6,a[3]=((C_word)li29),tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1348,a[2]=t6,a[3]=((C_word)li31),tmp=(C_word)a,a+=4,tmp); /* port.scm:237: make-input-port */ t11=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t11; av2[1]=t1; av2[2]=t7; av2[3]=t8; av2[4]=*((C_word*)lf[34]+1); av2[5]=t9; av2[6]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(7,av2);}} /* a1257 in chicken.port#make-concatenated-port in k728 in k725 */ static void C_ccall f_1258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_1258,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1264,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li25),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_1264(t5,t1);} /* loop in a1257 in chicken.port#make-concatenated-port in k728 in k725 */ static void C_fcall f_1264(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1264,2,t0,t1);} a=C_alloc(5); if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[2])[1]))){ t2=t1;{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1274,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* ##sys#read-char/port */ t4=*((C_word*)lf[36]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k1272 in loop in a1257 in chicken.port#make-concatenated-port in k728 in k725 */ static void C_ccall f_1274(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1274,2,av);} if(C_truep(C_eofp(t1))){ t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* port.scm:245: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1264(t4,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a1292 in chicken.port#make-concatenated-port in k728 in k725 */ static void C_ccall f_1293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1293,2,av);} t2=C_i_nullp(((C_word*)((C_word*)t0)[2])[1]); if(C_truep(C_i_not(t2))){ t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* port.scm:249: scheme#char-ready? */ t4=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a1312 in chicken.port#make-concatenated-port in k728 in k725 */ static void C_ccall f_1313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_1313,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1319,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li28),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_1319(t5,t1);} /* loop in a1312 in chicken.port#make-concatenated-port in k728 in k725 */ static void C_fcall f_1319(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1319,2,t0,t1);} a=C_alloc(5); if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[2])[1]))){ t2=t1;{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1329,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* port.scm:255: scheme#peek-char */ t4=*((C_word*)lf[38]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k1327 in loop in a1312 in chicken.port#make-concatenated-port in k728 in k725 */ static void C_ccall f_1329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1329,2,av);} if(C_truep(C_eofp(t1))){ t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* port.scm:258: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1319(t4,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a1347 in chicken.port#make-concatenated-port in k728 in k725 */ static void C_ccall f_1348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_1348,6,av);} a=C_alloc(9); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1354,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=t5,a[5]=t4,a[6]=((C_word)li30),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_1354(t9,t1,t3,C_fix(0));} /* loop in a1347 in chicken.port#make-concatenated-port in k728 in k725 */ static void C_fcall f_1354(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ C_save_and_reclaim_args((void *)trf_1354,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[2])[1]))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1370,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t5=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t6=C_fixnum_plus(((C_word*)t0)[4],t3); /* port.scm:265: chicken.io#read-string! */ t7=*((C_word*)lf[29]+1);{ C_word av2[6]; av2[0]=t7; av2[1]=t4; av2[2]=t2; av2[3]=((C_word*)t0)[5]; av2[4]=t5; av2[5]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}}} /* k1368 in loop in a1347 in chicken.port#make-concatenated-port in k728 in k725 */ static void C_ccall f_1370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_1370,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1373,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){ t4=C_i_cdr(((C_word*)((C_word*)t0)[6])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[6])+1,t4); t6=t3; f_1373(t6,t5);} else{ t4=t3; f_1373(t4,C_SCHEME_UNDEFINED);}} /* k1371 in k1368 in loop in a1347 in chicken.port#make-concatenated-port in k728 in k725 */ static void C_fcall f_1373(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_1373,2,t0,t1);} t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_fixnum_plus(((C_word*)t0)[4],((C_word*)t0)[3]); /* port.scm:268: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_1354(t4,((C_word*)t0)[6],t2,t3);} /* chicken.port#with-input-from-port in k728 in k725 */ static void C_ccall f_1401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_1401,4,av);} a=C_alloc(18); t4=t2; t5=C_i_check_port_2(t4,C_fix(1),C_SCHEME_TRUE,lf[41]); t6=t2; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1410,a[2]=t9,a[3]=t7,a[4]=((C_word)li33),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1415,a[2]=t3,a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1421,a[2]=t7,a[3]=t9,a[4]=((C_word)li35),tmp=(C_word)a,a+=5,tmp); /* port.scm:275: ##sys#dynamic-wind */ t13=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t1; av2[2]=t10; av2[3]=t11; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} /* a1409 in chicken.port#with-input-from-port in k728 in k725 */ static void C_ccall f_1410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1410,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[3]+1)); t3=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a1414 in chicken.port#with-input-from-port in k728 in k725 */ static void C_ccall f_1415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1415,2,av);} /* port.scm:276: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a1420 in chicken.port#with-input-from-port in k728 in k725 */ static void C_ccall f_1421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1421,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[3]+1)); t3=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.port#with-output-to-port in k728 in k725 */ static void C_ccall f_1426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_1426,4,av);} a=C_alloc(18); t4=t2; t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[44]); t6=t2; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1435,a[2]=t9,a[3]=t7,a[4]=((C_word)li37),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1440,a[2]=t3,a[3]=((C_word)li38),tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1446,a[2]=t7,a[3]=t9,a[4]=((C_word)li39),tmp=(C_word)a,a+=5,tmp); /* port.scm:280: ##sys#dynamic-wind */ t13=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t1; av2[2]=t10; av2[3]=t11; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} /* a1434 in chicken.port#with-output-to-port in k728 in k725 */ static void C_ccall f_1435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1435,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[45]+1)); t3=C_mutate((C_word*)lf[45]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a1439 in chicken.port#with-output-to-port in k728 in k725 */ static void C_ccall f_1440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1440,2,av);} /* port.scm:281: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a1445 in chicken.port#with-output-to-port in k728 in k725 */ static void C_ccall f_1446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1446,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[45]+1)); t3=C_mutate((C_word*)lf[45]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.port#with-error-output-to-port in k728 in k725 */ static void C_ccall f_1451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_1451,4,av);} a=C_alloc(18); t4=t2; t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[47]); t6=t2; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1460,a[2]=t9,a[3]=t7,a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1465,a[2]=t3,a[3]=((C_word)li42),tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1471,a[2]=t7,a[3]=t9,a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp); /* port.scm:285: ##sys#dynamic-wind */ t13=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t1; av2[2]=t10; av2[3]=t11; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} /* a1459 in chicken.port#with-error-output-to-port in k728 in k725 */ static void C_ccall f_1460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1460,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[48]+1)); t3=C_mutate((C_word*)lf[48]+1 /* (set! ##sys#standard-error ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a1464 in chicken.port#with-error-output-to-port in k728 in k725 */ static void C_ccall f_1465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1465,2,av);} /* port.scm:286: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a1470 in chicken.port#with-error-output-to-port in k728 in k725 */ static void C_ccall f_1471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1471,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[48]+1)); t3=C_mutate((C_word*)lf[48]+1 /* (set! ##sys#standard-error ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.port#call-with-input-string in k728 in k725 */ static void C_ccall f_1476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1476,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1480,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* port.scm:292: chicken.base#open-input-string */ t5=*((C_word*)lf[50]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1478 in chicken.port#call-with-input-string in k728 in k725 */ static void C_ccall f_1480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1480,2,av);} /* port.scm:293: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* chicken.port#call-with-output-string in k728 in k725 */ static void C_ccall f_1485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1485,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1489,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* port.scm:297: chicken.base#open-output-string */ t4=*((C_word*)lf[53]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1487 in chicken.port#call-with-output-string in k728 in k725 */ static void C_ccall f_1489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1489,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1492,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* port.scm:298: proc */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k1490 in k1487 in chicken.port#call-with-output-string in k728 in k725 */ static void C_ccall f_1492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1492,2,av);} /* port.scm:299: chicken.base#get-output-string */ t2=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.port#with-input-from-string in k728 in k725 */ static void C_ccall f_1497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1497,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1501,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* port.scm:303: chicken.base#open-input-string */ t5=*((C_word*)lf[50]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k1499 in chicken.port#with-input-from-string in k728 in k725 */ static void C_ccall f_1501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_1501,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1506,a[2]=t5,a[3]=t3,a[4]=((C_word)li47),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1511,a[2]=((C_word*)t0)[2],a[3]=((C_word)li48),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1517,a[2]=t3,a[3]=t5,a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp); /* port.scm:303: ##sys#dynamic-wind */ t9=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[3]; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a1505 in k1499 in chicken.port#with-input-from-string in k728 in k725 */ static void C_ccall f_1506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1506,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[3]+1)); t3=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a1510 in k1499 in chicken.port#with-input-from-string in k728 in k725 */ static void C_ccall f_1511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1511,2,av);} /* port.scm:304: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a1516 in k1499 in chicken.port#with-input-from-string in k728 in k725 */ static void C_ccall f_1517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1517,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[3]+1)); t3=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.port#with-output-to-string in k728 in k725 */ static void C_ccall f_1522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1522,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1526,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* port.scm:308: chicken.base#open-output-string */ t4=*((C_word*)lf[53]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1524 in chicken.port#with-output-to-string in k728 in k725 */ static void C_ccall f_1526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_1526,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1531,a[2]=t5,a[3]=t3,a[4]=((C_word)li51),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1536,a[2]=((C_word*)t0)[2],a[3]=((C_word)li52),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1545,a[2]=t3,a[3]=t5,a[4]=((C_word)li53),tmp=(C_word)a,a+=5,tmp); /* port.scm:308: ##sys#dynamic-wind */ t9=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[3]; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a1530 in k1524 in chicken.port#with-output-to-string in k728 in k725 */ static void C_ccall f_1531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1531,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[45]+1)); t3=C_mutate((C_word*)lf[45]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a1535 in k1524 in chicken.port#with-output-to-string in k728 in k725 */ static void C_ccall f_1536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1536,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1540,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* port.scm:309: thunk */ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k1538 in a1535 in k1524 in chicken.port#with-output-to-string in k728 in k725 */ static void C_ccall f_1540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1540,2,av);} /* port.scm:310: chicken.base#get-output-string */ t2=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[45]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1544 in k1524 in chicken.port#with-output-to-string in k728 in k725 */ static void C_ccall f_1545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1545,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[45]+1)); t3=C_mutate((C_word*)lf[45]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.port#with-error-output-to-string in k728 in k725 */ static void C_ccall f_1550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1550,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1554,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* port.scm:314: chicken.base#open-output-string */ t4=*((C_word*)lf[53]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1552 in chicken.port#with-error-output-to-string in k728 in k725 */ static void C_ccall f_1554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_1554,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1559,a[2]=t5,a[3]=t3,a[4]=((C_word)li55),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1564,a[2]=((C_word*)t0)[2],a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1573,a[2]=t3,a[3]=t5,a[4]=((C_word)li57),tmp=(C_word)a,a+=5,tmp); /* port.scm:314: ##sys#dynamic-wind */ t9=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[3]; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a1558 in k1552 in chicken.port#with-error-output-to-string in k728 in k725 */ static void C_ccall f_1559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1559,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[48]+1)); t3=C_mutate((C_word*)lf[48]+1 /* (set! ##sys#standard-error ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a1563 in k1552 in chicken.port#with-error-output-to-string in k728 in k725 */ static void C_ccall f_1564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1564,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1568,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* port.scm:315: thunk */ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k1566 in a1563 in k1552 in chicken.port#with-error-output-to-string in k728 in k725 */ static void C_ccall f_1568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1568,2,av);} /* port.scm:316: chicken.base#get-output-string */ t2=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[48]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a1572 in k1552 in chicken.port#with-error-output-to-string in k728 in k725 */ static void C_ccall f_1573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1573,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[48]+1)); t3=C_mutate((C_word*)lf[48]+1 /* (set! ##sys#standard-error ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.port#make-input-port in k728 in k725 */ static void C_ccall f_1578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +35,c,5)))){ C_save_and_reclaim((void*)f_1578,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+35); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; t6=C_i_nullp(t5); t7=(C_truep(t6)?C_SCHEME_FALSE:C_i_car(t5)); t8=t7; t9=C_i_nullp(t5); t10=(C_truep(t9)?C_SCHEME_END_OF_LIST:C_i_cdr(t5)); t11=C_i_nullp(t10); t12=(C_truep(t11)?C_SCHEME_FALSE:C_i_car(t10)); t13=C_i_nullp(t10); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t10)); t15=C_i_nullp(t14); t16=(C_truep(t15)?C_SCHEME_FALSE:C_i_car(t14)); t17=C_i_nullp(t14); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t14)); t19=C_i_nullp(t18); t20=(C_truep(t19)?C_SCHEME_FALSE:C_i_car(t18)); t21=C_i_nullp(t18); t22=(C_truep(t21)?C_SCHEME_END_OF_LIST:C_i_cdr(t18)); t23=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1617,a[2]=t8,a[3]=t2,a[4]=((C_word)li59),tmp=(C_word)a,a+=5,tmp); t24=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1638,a[2]=t8,a[3]=t2,a[4]=((C_word)li60),tmp=(C_word)a,a+=5,tmp); t25=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1659,a[2]=t4,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp); t26=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1665,a[2]=t3,a[3]=((C_word)li62),tmp=(C_word)a,a+=4,tmp); t27=C_a_i_vector(&a,10,t23,t24,C_SCHEME_FALSE,C_SCHEME_FALSE,t25,C_SCHEME_FALSE,t26,t12,t16,t20); t28=C_a_i_vector1(&a,1,C_SCHEME_FALSE); t29=t28; t30=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1612,a[2]=t1,a[3]=t29,tmp=(C_word)a,a+=4,tmp); /* port.scm:354: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[58]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[58]+1); av2[1]=t30; av2[2]=C_fix(1); av2[3]=t27; av2[4]=lf[59]; av2[5]=lf[60]; tp(6,av2);}} /* k1610 in chicken.port#make-input-port in k728 in k725 */ static void C_ccall f_1612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1612,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1615,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* port.scm:355: ##sys#set-port-data! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[57]+1); av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k1613 in k1610 in chicken.port#make-input-port in k728 in k725 */ static void C_ccall f_1615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1615,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a1616 in chicken.port#make-input-port in k728 in k725 */ static void C_ccall f_1617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1617,3,av);} t3=C_slot(t2,C_fix(10)); if(C_truep(((C_word*)t0)[2])){ /* port.scm:330: read */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} else{ if(C_truep(t3)){ t4=C_i_set_i_slot(t2,C_fix(10),C_SCHEME_FALSE); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* port.scm:334: read */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}}} /* a1637 in chicken.port#make-input-port in k728 in k725 */ static void C_ccall f_1638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1638,3,av);} a=C_alloc(4); t3=C_slot(t2,C_fix(10)); if(C_truep(((C_word*)t0)[2])){ /* port.scm:337: peek */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} else{ if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1654,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* port.scm:340: read */ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}}} /* k1652 in a1637 in chicken.port#make-input-port in k728 in k725 */ static void C_ccall f_1654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1654,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(10),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a1658 in chicken.port#make-input-port in k728 in k725 */ static void C_ccall f_1659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1659,4,av);} /* port.scm:346: close */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* a1664 in chicken.port#make-input-port in k728 in k725 */ static void C_ccall f_1665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1665,3,av);} /* port.scm:349: ready? */ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* chicken.port#make-output-port in k728 in k725 */ static void C_ccall f_1719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +32,c,5)))){ C_save_and_reclaim((void*)f_1719,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+32); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1737,a[2]=t2,a[3]=((C_word)li64),tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1747,a[2]=t2,a[3]=((C_word)li65),tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1753,a[2]=t3,a[3]=((C_word)li66),tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1759,a[2]=t7,a[3]=((C_word)li67),tmp=(C_word)a,a+=4,tmp); t12=C_a_i_vector(&a,9,C_SCHEME_FALSE,C_SCHEME_FALSE,t8,t9,t10,t11,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); t13=C_a_i_vector1(&a,1,C_SCHEME_FALSE); t14=t13; t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1732,a[2]=t1,a[3]=t14,tmp=(C_word)a,a+=4,tmp); /* port.scm:376: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[58]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[58]+1); av2[1]=t15; av2[2]=C_fix(2); av2[3]=t12; av2[4]=lf[61]; av2[5]=lf[60]; tp(6,av2);}} /* k1730 in chicken.port#make-output-port in k728 in k725 */ static void C_ccall f_1732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1732,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1735,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* port.scm:377: ##sys#set-port-data! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[57]+1); av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k1733 in k1730 in chicken.port#make-output-port in k728 in k725 */ static void C_ccall f_1735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1735,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a1736 in chicken.port#make-output-port in k728 in k725 */ static void C_ccall f_1737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,2)))){ C_save_and_reclaim((void *)f_1737,4,av);} a=C_alloc(2); t4=C_a_i_string(&a,1,t3); /* port.scm:365: write */ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* a1746 in chicken.port#make-output-port in k728 in k725 */ static void C_ccall f_1747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1747,4,av);} /* port.scm:367: write */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a1752 in chicken.port#make-output-port in k728 in k725 */ static void C_ccall f_1753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1753,4,av);} /* port.scm:369: close */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* a1758 in chicken.port#make-output-port in k728 in k725 */ static void C_ccall f_1759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1759,3,av);} if(C_truep(((C_word*)t0)[2])){ /* port.scm:371: flush */ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(55,c,6)))){ C_save_and_reclaim((void *)f_1774,4,av);} a=C_alloc(55); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1790,a[2]=t2,a[3]=((C_word)li69),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1796,a[2]=t2,a[3]=((C_word)li70),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1802,a[2]=t3,a[3]=((C_word)li71),tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1808,a[2]=t3,a[3]=((C_word)li72),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1814,a[2]=t2,a[3]=t3,a[4]=((C_word)li73),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1839,a[2]=t3,a[3]=((C_word)li74),tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1845,a[2]=t2,a[3]=((C_word)li75),tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1851,a[2]=t2,a[3]=((C_word)li76),tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1857,a[2]=t2,a[3]=((C_word)li77),tmp=(C_word)a,a+=4,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1863,a[2]=t2,a[3]=((C_word)li78),tmp=(C_word)a,a+=4,tmp); t14=C_a_i_vector(&a,10,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1781,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* port.scm:404: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[58]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[58]+1); av2[1]=t15; av2[2]=C_fix(3); av2[3]=t14; av2[4]=lf[68]; av2[5]=lf[69]; tp(6,av2);}} /* k1779 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1781,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1784,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_vector1(&a,1,C_SCHEME_FALSE); /* port.scm:405: ##sys#set-port-data! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[57]+1); av2[1]=t3; av2[2]=t2; av2[3]=t4; tp(4,av2);}} /* k1782 in k1779 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1784,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a1789 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1790,3,av);} /* ##sys#read-char/port */ t3=*((C_word*)lf[36]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a1795 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1796,3,av);} /* port.scm:385: scheme#peek-char */ t3=*((C_word*)lf[38]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a1801 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1802,4,av);} /* ##sys#write-char/port */ t4=*((C_word*)lf[63]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a1807 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1808,4,av);} /* port.scm:389: chicken.io#write-string */ t4=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* a1813 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1814,4,av);} switch(t3){ case C_fix(1): /* port.scm:392: scheme#close-input-port */ t4=*((C_word*)lf[64]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);} case C_fix(2): /* port.scm:393: scheme#close-output-port */ t4=*((C_word*)lf[65]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);} default: t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a1838 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1839,3,av);} /* port.scm:395: chicken.base#flush-output */ t3=*((C_word*)lf[32]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a1844 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1845,3,av);} /* port.scm:397: scheme#char-ready? */ t3=*((C_word*)lf[37]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a1850 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1851,6,av);} /* port.scm:399: chicken.io#read-string! */ t6=*((C_word*)lf[29]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=t4; av2[4]=((C_word*)t0)[2]; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* a1856 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1857,4,av);} /* port.scm:401: chicken.io#read-line */ t4=*((C_word*)lf[66]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* a1862 in chicken.port#make-bidirectional-port in k728 in k725 */ static void C_ccall f_1863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1863,2,av);} /* port.scm:403: chicken.io#read-buffered */ t2=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.port#posix-error in k728 in k725 */ static void C_fcall f_1879(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_1879,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1883,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t5,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* port.scm:413: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[75]+1); av2[1]=t6; tp(2,av2);}} /* k1881 in chicken.port#posix-error in k728 in k725 */ static void C_ccall f_1883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_1883,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1890,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1894,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(t1); t6=stub512(t4,t5); /* port.scm:410: ##sys#peek-c-string */ t7=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k1888 in k1881 in chicken.port#posix-error in k728 in k725 */ static void C_ccall f_1890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_1890,2,av);}{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[71]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; av2[6]=((C_word*)t0)[5]; C_apply(7,av2);}} /* k1892 in k1881 in chicken.port#posix-error in k728 in k725 */ static void C_ccall f_1894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1894,2,av);} /* port.scm:414: string-append */ t2=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[73]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.port#terminal-port? in k728 in k725 */ static void C_ccall f_1896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1896,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[77]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1902,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* port.scm:419: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[78]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[78]+1); av2[1]=t5; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}} /* k1900 in chicken.port#terminal-port? in k728 in k725 */ static void C_ccall f_1902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1902,2,av);} t2=C_eqp(C_fix(0),t1); if(C_truep(C_i_not(t2))){ t3=C_tty_portp(((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.port#check-terminal! in k728 in k725 */ static void C_fcall f_1914(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_1914,3,t1,t2,t3);} t4=t3; t5=t2; t6=C_i_check_port_2(t4,C_fix(0),C_SCHEME_TRUE,t5); t7=C_slot(t3,C_fix(7)); t8=C_eqp(lf[15],t7); t9=(C_truep(t8)?C_tty_portp(t3):C_SCHEME_FALSE); if(C_truep(t9)){ t10=C_SCHEME_UNDEFINED; t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ /* port.scm:426: ##sys#error */ t10=*((C_word*)lf[9]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t1; av2[2]=t2; av2[3]=lf[80]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} /* chicken.port#terminal-name in k728 in k725 */ static void C_ccall f_1945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1945,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1949,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* port.scm:431: check-terminal! */ f_1914(t3,lf[83],t2);} /* k1947 in chicken.port#terminal-name in k728 in k725 */ static void C_ccall f_1949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1949,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_port_fileno(((C_word*)t0)[3]); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(t3); t6=stub534(t4,t5); /* port.scm:429: ##sys#peek-c-string */ t7=*((C_word*)lf[74]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k1950 in k1947 in chicken.port#terminal-name in k728 in k725 */ static void C_ccall f_1952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_1952,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* port.scm:433: posix-error */ f_1879(((C_word*)t0)[2],lf[82],lf[83],lf[84],C_a_i_list(&a,1,((C_word*)t0)[3]));}} /* chicken.port#terminal-size in k728 in k725 */ static void C_ccall f_1975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1975,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1979,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* port.scm:441: check-terminal! */ f_1914(t3,lf[86],t2);} /* k1977 in chicken.port#terminal-size in k728 in k725 */ static void C_ccall f_1979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_1979,2,av);} a=C_alloc(13); t2=C_a_i_bytevector(&a,1,C_fix(1)); t3=C_a_i_bytevector(&a,1,C_fix(1)); t4=C_port_fileno(((C_word*)t0)[2]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2000,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* port.scm:445: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[88]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[88]+1); av2[1]=t5; av2[2]=t2; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[89]; tp(6,av2);}} /* k1998 in k1977 in chicken.port#terminal-size in k728 in k725 */ static void C_ccall f_2000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_2000,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2004,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* port.scm:446: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[88]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[88]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[89]; tp(6,av2);}} /* k2002 in k1998 in k1977 in chicken.port#terminal-size in k728 in k725 */ static void C_ccall f_2004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_2004,2,av);} a=C_alloc(3); t2=C_i_foreign_fixnum_argumentp(((C_word*)t0)[2]); t3=C_i_foreign_pointer_argumentp(((C_word*)t0)[3]); t4=C_i_foreign_pointer_argumentp(t1); t5=stub548(C_SCHEME_UNDEFINED,t2,t3,t4); t6=C_eqp(C_fix(0),t5); if(C_truep(t6)){ /* port.scm:447: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=C_fix((C_word)*((int *)C_data_pointer(((C_word*)t0)[5]))); av2[3]=C_fix((C_word)*((int *)C_data_pointer(((C_word*)t0)[6]))); C_values(4,av2);}} else{ /* port.scm:448: posix-error */ f_1879(((C_word*)t0)[4],lf[82],lf[86],lf[87],C_a_i_list(&a,1,((C_word*)t0)[7]));}} /* k725 */ static void C_ccall f_727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_727,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_730,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k728 in k725 */ static void C_ccall f_730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(96,c,6)))){ C_save_and_reclaim((void *)f_730,2,av);} a=C_alloc(96); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate((C_word*)lf[2]+1 /* (set! chicken.port#port-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_732,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[6]+1 /* (set! chicken.port#set-port-name! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_750,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[8]+1 /* (set! chicken.port#port-position ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_762,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[12]+1 /* (set! chicken.port#set-buffering-mode! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_794,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[21]+1 /* (set! chicken.port#port-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_870,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[22]+1 /* (set! chicken.port#port-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_894,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[24]+1 /* (set! chicken.port#port-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_926,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t11=*((C_word*)lf[25]+1); t12=*((C_word*)lf[26]+1); t13=C_mutate((C_word*)lf[27]+1 /* (set! chicken.port#copy-port ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1091,a[2]=t11,a[3]=t12,a[4]=((C_word)li18),tmp=(C_word)a,a+=5,tmp)); t14=C_mutate((C_word*)lf[31]+1 /* (set! chicken.port#make-broadcast-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1180,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[35]+1 /* (set! chicken.port#make-concatenated-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1249,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[40]+1 /* (set! chicken.port#with-input-from-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1401,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[43]+1 /* (set! chicken.port#with-output-to-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1426,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[46]+1 /* (set! chicken.port#with-error-output-to-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1451,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[49]+1 /* (set! chicken.port#call-with-input-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1476,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[51]+1 /* (set! chicken.port#call-with-output-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1485,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[54]+1 /* (set! chicken.port#with-input-from-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1497,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[55]+1 /* (set! chicken.port#with-output-to-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1522,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate((C_word*)lf[56]+1 /* (set! chicken.port#with-error-output-to-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1550,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate((C_word*)lf[39]+1 /* (set! chicken.port#make-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1578,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate((C_word*)lf[33]+1 /* (set! chicken.port#make-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1719,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate((C_word*)lf[62]+1 /* (set! chicken.port#make-bidirectional-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1774,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate(&lf[70] /* (set! chicken.port#posix-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1879,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate((C_word*)lf[76]+1 /* (set! chicken.port#terminal-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1896,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate(&lf[79] /* (set! chicken.port#check-terminal! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1914,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate((C_word*)lf[81]+1 /* (set! chicken.port#terminal-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1945,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate((C_word*)lf[85]+1 /* (set! chicken.port#terminal-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1975,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp)); t32=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t32; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t32+1)))(2,av2);}} /* chicken.port#port-name in k728 in k725 */ static void C_ccall f_732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_732,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=C_i_nullp(t2); t4=(C_truep(t3)?*((C_word*)lf[3]+1):C_i_car(t2)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_739,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* port.scm:120: ##sys#check-port */ t7=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t5; av2[3]=lf[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k737 in chicken.port#port-name in k728 in k725 */ static void C_ccall f_739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_739,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[3],C_fix(3)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.port#set-port-name! in k728 in k725 */ static void C_ccall f_750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_750,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_754,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* port.scm:124: ##sys#check-port */ t5=*((C_word*)lf[4]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k752 in chicken.port#set-port-name! in k728 in k725 */ static void C_ccall f_754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_754,2,av);} t2=C_i_check_string_2(((C_word*)t0)[2],lf[7]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_setslot(((C_word*)t0)[4],C_fix(3),((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.port#port-position in k728 in k725 */ static void C_ccall f_762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_762,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=C_i_nullp(t2); t4=(C_truep(t3)?*((C_word*)lf[3]+1):C_i_car(t2)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_769,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* port.scm:129: ##sys#check-port */ t7=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t5; av2[3]=lf[10]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k767 in chicken.port#port-position in k728 in k725 */ static void C_ccall f_769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_769,2,av);} if(C_truep(C_input_portp(((C_word*)t0)[2]))){ t2=C_slot(((C_word*)t0)[2],C_fix(4)); t3=C_slot(((C_word*)t0)[2],C_fix(5)); /* port.scm:131: ##sys#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t3; C_values(4,av2);}} else{ /* port.scm:132: ##sys#error */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[10]; av2[3]=lf[11]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* chicken.port#set-buffering-mode! in k728 in k725 */ static void C_ccall f_794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_794,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_798,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* port.scm:135: ##sys#check-port */ t6=*((C_word*)lf[4]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[13]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k796 in chicken.port#set-buffering-mode! in k728 in k725 */ static void C_ccall f_798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_798,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_801,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=t2; f_801(t4,C_u_i_car(t3));} else{ t3=t2; f_801(t3,C_fix((C_word)BUFSIZ));}} /* k799 in k796 in chicken.port#set-buffering-mode! in k728 in k725 */ static void C_fcall f_801(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){ C_save_and_reclaim_args((void *)trf_801,2,t0,t1);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2]; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_804,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=C_eqp(t3,lf[17]); if(C_truep(t5)){ t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=C_fix((C_word)_IOFBF); f_804(2,av2);}} else{ t6=C_eqp(t3,lf[18]); if(C_truep(t6)){ t7=C_fix((C_word)_IOLBF); t8=t4;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; f_804(2,av2);}} else{ t7=C_eqp(t3,lf[19]); if(C_truep(t7)){ t8=t4;{ C_word av2[2]; av2[0]=t8; av2[1]=C_fix((C_word)_IONBF); f_804(2,av2);}} else{ /* port.scm:141: ##sys#error */ t8=*((C_word*)lf[9]+1);{ C_word av2[6]; av2[0]=t8; av2[1]=t4; av2[2]=lf[13]; av2[3]=lf[20]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}}}} /* k802 in k799 in k796 in chicken.port#set-buffering-mode! in k728 in k725 */ static void C_ccall f_804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_804,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_807,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* port.scm:142: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[16]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[13]; tp(4,av2);}} /* k805 in k802 in k799 in k796 in chicken.port#set-buffering-mode! in k728 in k725 */ static void C_ccall f_807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_807,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_slot(((C_word*)t0)[3],C_fix(7)); t4=C_eqp(lf[15],t3); if(C_truep(t4)){ t5=((C_word*)t0)[3]; t6=C_i_foreign_fixnum_argumentp(((C_word*)t0)[4]); t7=C_i_foreign_fixnum_argumentp(((C_word*)t0)[5]); t8=stub141(C_SCHEME_UNDEFINED,t5,t6,t7); t9=t2; f_813(t9,C_fixnum_lessp(t8,C_fix(0)));} else{ t5=t2; f_813(t5,C_fixnum_lessp(C_fix(-1),C_fix(0)));}} /* k811 in k805 in k802 in k799 in k796 in chicken.port#set-buffering-mode! in k728 in k725 */ static void C_fcall f_813(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){ C_save_and_reclaim_args((void *)trf_813,2,t0,t1);} if(C_truep(t1)){ /* port.scm:149: ##sys#error */ t2=*((C_word*)lf[9]+1);{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[13]; av2[3]=lf[14]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.port#port-for-each in k728 in k725 */ static void C_ccall f_870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_870,4,av);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_876,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li4),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_876(t7,t1);} /* loop in chicken.port#port-for-each in k728 in k725 */ static void C_fcall f_876(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_876,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_880,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* port.scm:155: thunk */ t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k878 in loop in chicken.port#port-for-each in k728 in k725 */ static void C_ccall f_880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_880,2,av);} a=C_alloc(4); if(C_truep(C_eofp(t1))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_889,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* port.scm:157: fn */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* k887 in k878 in loop in chicken.port#port-for-each in k728 in k725 */ static void C_ccall f_889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_889,2,av);} /* port.scm:158: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_876(t2,((C_word*)t0)[3]);} /* chicken.port#port-map in k728 in k725 */ static void C_ccall f_894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_894,4,av);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_900,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li6),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_900(t7,t1,C_SCHEME_END_OF_LIST);} /* loop in chicken.port#port-map in k728 in k725 */ static void C_fcall f_900(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_900,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_904,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* port.scm:163: thunk */ t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k902 in loop in chicken.port#port-map in k728 in k725 */ static void C_ccall f_904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_904,2,av);} a=C_alloc(5); if(C_truep(C_eofp(t1))){ /* port.scm:165: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[23]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_924,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* port.scm:166: fn */ t3=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* k922 in k902 in loop in chicken.port#port-map in k728 in k725 */ static void C_ccall f_924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_924,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* port.scm:166: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_900(t3,((C_word*)t0)[4],t2);} /* chicken.port#port-fold in k728 in k725 */ static void C_ccall f_926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_926,5,av);} a=C_alloc(8); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_932,a[2]=t6,a[3]=t2,a[4]=t4,a[5]=((C_word)li8),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_932(t8,t1,t3);} /* loop in chicken.port#port-fold in k728 in k725 */ static void C_fcall f_932(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_932,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_936,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* port.scm:170: thunk */ t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k934 in loop in chicken.port#port-fold in k728 in k725 */ static void C_ccall f_936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_936,2,av);} a=C_alloc(4); if(C_truep(C_eofp(t1))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_949,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* port.scm:173: fn */ t3=((C_word*)t0)[5];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} /* k947 in k934 in loop in chicken.port#port-fold in k728 in k725 */ static void C_ccall f_949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_949,2,av);} /* port.scm:173: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_932(t2,((C_word*)t0)[3],t1);} /* k954 in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_956,2,av);} a=C_alloc(9); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_961,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word)li13),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_961(t6,((C_word*)t0)[4]);} /* loop in k954 in chicken.port#copy-port in k728 in k725 */ static void C_fcall f_961(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_961,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_965,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* port.scm:183: chicken.io#read-string! */ t3=*((C_word*)lf[29]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=C_fix(1024); av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k963 in loop in k954 in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_965,2,av);} a=C_alloc(4); t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_974,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* port.scm:185: writer */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=t1; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} /* k972 in k963 in loop in k954 in chicken.port#copy-port in k728 in k725 */ static void C_ccall f_974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_974,2,av);} /* port.scm:186: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_961(t2,((C_word*)t0)[3]);} /* doloop188 */ static void C_fcall f_986(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_986,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_996,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_subbyte(((C_word*)t0)[4],t2); t5=C_make_character(C_unfix(t4)); /* port.scm:190: writer */ t6=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}} /* k994 in doloop188 */ static void C_ccall f_996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_996,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_986(t3,((C_word*)t0)[4],t2);} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_port_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("port")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_port_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(546))){ C_save(t1); C_rereclaim2(546*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,90); lf[0]=C_h_intern(&lf[0],4, C_text("port")); lf[1]=C_h_intern(&lf[1],13, C_text("chicken.port#")); lf[2]=C_h_intern(&lf[2],22, C_text("chicken.port#port-name")); lf[3]=C_h_intern(&lf[3],20, C_text("##sys#standard-input")); lf[4]=C_h_intern(&lf[4],16, C_text("##sys#check-port")); lf[5]=C_h_intern(&lf[5],9, C_text("port-name")); lf[6]=C_h_intern(&lf[6],27, C_text("chicken.port#set-port-name!")); lf[7]=C_h_intern(&lf[7],14, C_text("set-port-name!")); lf[8]=C_h_intern(&lf[8],26, C_text("chicken.port#port-position")); lf[9]=C_h_intern(&lf[9],11, C_text("##sys#error")); lf[10]=C_h_intern(&lf[10],13, C_text("port-position")); lf[11]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037cannot compute position of port")); lf[12]=C_h_intern(&lf[12],32, C_text("chicken.port#set-buffering-mode!")); lf[13]=C_h_intern(&lf[13],19, C_text("set-buffering-mode!")); lf[14]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031cannot set buffering mode")); lf[15]=C_h_intern(&lf[15],6, C_text("stream")); lf[16]=C_h_intern(&lf[16],18, C_text("##sys#check-fixnum")); lf[17]=C_h_intern_kw(&lf[17],4, C_text("full")); lf[18]=C_h_intern_kw(&lf[18],4, C_text("line")); lf[19]=C_h_intern_kw(&lf[19],4, C_text("none")); lf[20]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026invalid buffering-mode")); lf[21]=C_h_intern(&lf[21],26, C_text("chicken.port#port-for-each")); lf[22]=C_h_intern(&lf[22],21, C_text("chicken.port#port-map")); lf[23]=C_h_intern(&lf[23],18, C_text("##sys#fast-reverse")); lf[24]=C_h_intern(&lf[24],22, C_text("chicken.port#port-fold")); lf[25]=C_h_intern(&lf[25],16, C_text("scheme#read-char")); lf[26]=C_h_intern(&lf[26],17, C_text("scheme#write-char")); lf[27]=C_h_intern(&lf[27],22, C_text("chicken.port#copy-port")); lf[28]=C_h_intern(&lf[28],23, C_text("chicken.io#write-string")); lf[29]=C_h_intern(&lf[29],23, C_text("chicken.io#read-string!")); lf[30]=C_h_intern(&lf[30],17, C_text("##sys#make-string")); lf[31]=C_h_intern(&lf[31],32, C_text("chicken.port#make-broadcast-port")); lf[32]=C_h_intern(&lf[32],25, C_text("chicken.base#flush-output")); lf[33]=C_h_intern(&lf[33],29, C_text("chicken.port#make-output-port")); lf[34]=C_h_intern(&lf[34],17, C_text("chicken.base#void")); lf[35]=C_h_intern(&lf[35],35, C_text("chicken.port#make-concatenated-port")); lf[36]=C_h_intern(&lf[36],20, C_text("##sys#read-char/port")); lf[37]=C_h_intern(&lf[37],18, C_text("scheme#char-ready\077")); lf[38]=C_h_intern(&lf[38],16, C_text("scheme#peek-char")); lf[39]=C_h_intern(&lf[39],28, C_text("chicken.port#make-input-port")); lf[40]=C_h_intern(&lf[40],33, C_text("chicken.port#with-input-from-port")); lf[41]=C_h_intern(&lf[41],20, C_text("with-input-from-port")); lf[42]=C_h_intern(&lf[42],18, C_text("##sys#dynamic-wind")); lf[43]=C_h_intern(&lf[43],32, C_text("chicken.port#with-output-to-port")); lf[44]=C_h_intern(&lf[44],19, C_text("with-output-to-port")); lf[45]=C_h_intern(&lf[45],21, C_text("##sys#standard-output")); lf[46]=C_h_intern(&lf[46],38, C_text("chicken.port#with-error-output-to-port")); lf[47]=C_h_intern(&lf[47],25, C_text("with-error-output-to-port")); lf[48]=C_h_intern(&lf[48],20, C_text("##sys#standard-error")); lf[49]=C_h_intern(&lf[49],35, C_text("chicken.port#call-with-input-string")); lf[50]=C_h_intern(&lf[50],30, C_text("chicken.base#open-input-string")); lf[51]=C_h_intern(&lf[51],36, C_text("chicken.port#call-with-output-string")); lf[52]=C_h_intern(&lf[52],30, C_text("chicken.base#get-output-string")); lf[53]=C_h_intern(&lf[53],31, C_text("chicken.base#open-output-string")); lf[54]=C_h_intern(&lf[54],35, C_text("chicken.port#with-input-from-string")); lf[55]=C_h_intern(&lf[55],34, C_text("chicken.port#with-output-to-string")); lf[56]=C_h_intern(&lf[56],40, C_text("chicken.port#with-error-output-to-string")); lf[57]=C_h_intern(&lf[57],20, C_text("##sys#set-port-data!")); lf[58]=C_h_intern(&lf[58],15, C_text("##sys#make-port")); lf[59]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(custom)")); lf[60]=C_h_intern(&lf[60],6, C_text("custom")); lf[61]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(custom)")); lf[62]=C_h_intern(&lf[62],36, C_text("chicken.port#make-bidirectional-port")); lf[63]=C_h_intern(&lf[63],21, C_text("##sys#write-char/port")); lf[64]=C_h_intern(&lf[64],23, C_text("scheme#close-input-port")); lf[65]=C_h_intern(&lf[65],24, C_text("scheme#close-output-port")); lf[66]=C_h_intern(&lf[66],20, C_text("chicken.io#read-line")); lf[67]=C_h_intern(&lf[67],24, C_text("chicken.io#read-buffered")); lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017(bidirectional)")); lf[69]=C_h_intern(&lf[69],13, C_text("bidirectional")); lf[71]=C_h_intern(&lf[71],17, C_text("##sys#signal-hook")); lf[72]=C_h_intern(&lf[72],20, C_text("scheme#string-append")); lf[73]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 - ")); lf[74]=C_h_intern(&lf[74],19, C_text("##sys#peek-c-string")); lf[75]=C_h_intern(&lf[75],18, C_text("##sys#update-errno")); lf[76]=C_h_intern(&lf[76],27, C_text("chicken.port#terminal-port\077")); lf[77]=C_h_intern(&lf[77],14, C_text("terminal-port\077")); lf[78]=C_h_intern(&lf[78],27, C_text("##sys#peek-unsigned-integer")); lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000#port is not connected to a terminal")); lf[81]=C_h_intern(&lf[81],26, C_text("chicken.port#terminal-name")); lf[82]=C_h_intern_kw(&lf[82],5, C_text("error")); lf[83]=C_h_intern(&lf[83],13, C_text("terminal-name")); lf[84]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036cannot determine terminal name")); lf[85]=C_h_intern(&lf[85],26, C_text("chicken.port#terminal-size")); lf[86]=C_h_intern(&lf[86],13, C_text("terminal-size")); lf[87]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036cannot determine terminal size")); lf[88]=C_h_intern(&lf[88],19, C_text("##sys#make-locative")); lf[89]=C_h_intern(&lf[89],8, C_text("location")); C_register_lf2(lf,90,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_727,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[143] = { {C_text("f_1019:port_2escm"),(void*)f_1019}, {C_text("f_1023:port_2escm"),(void*)f_1023}, {C_text("f_1032:port_2escm"),(void*)f_1032}, {C_text("f_1041:port_2escm"),(void*)f_1041}, {C_text("f_1046:port_2escm"),(void*)f_1046}, {C_text("f_1050:port_2escm"),(void*)f_1050}, {C_text("f_1053:port_2escm"),(void*)f_1053}, {C_text("f_1088:port_2escm"),(void*)f_1088}, {C_text("f_1091:port_2escm"),(void*)f_1091}, {C_text("f_1121:port_2escm"),(void*)f_1121}, {C_text("f_1126:port_2escm"),(void*)f_1126}, {C_text("f_1144:port_2escm"),(void*)f_1144}, {C_text("f_1150:port_2escm"),(void*)f_1150}, {C_text("f_1180:port_2escm"),(void*)f_1180}, {C_text("f_1186:port_2escm"),(void*)f_1186}, {C_text("f_1188:port_2escm"),(void*)f_1188}, {C_text("f_1197:port_2escm"),(void*)f_1197}, {C_text("f_1207:port_2escm"),(void*)f_1207}, {C_text("f_1220:port_2escm"),(void*)f_1220}, {C_text("f_1226:port_2escm"),(void*)f_1226}, {C_text("f_1236:port_2escm"),(void*)f_1236}, {C_text("f_1249:port_2escm"),(void*)f_1249}, {C_text("f_1258:port_2escm"),(void*)f_1258}, {C_text("f_1264:port_2escm"),(void*)f_1264}, {C_text("f_1274:port_2escm"),(void*)f_1274}, {C_text("f_1293:port_2escm"),(void*)f_1293}, {C_text("f_1313:port_2escm"),(void*)f_1313}, {C_text("f_1319:port_2escm"),(void*)f_1319}, {C_text("f_1329:port_2escm"),(void*)f_1329}, {C_text("f_1348:port_2escm"),(void*)f_1348}, {C_text("f_1354:port_2escm"),(void*)f_1354}, {C_text("f_1370:port_2escm"),(void*)f_1370}, {C_text("f_1373:port_2escm"),(void*)f_1373}, {C_text("f_1401:port_2escm"),(void*)f_1401}, {C_text("f_1410:port_2escm"),(void*)f_1410}, {C_text("f_1415:port_2escm"),(void*)f_1415}, {C_text("f_1421:port_2escm"),(void*)f_1421}, {C_text("f_1426:port_2escm"),(void*)f_1426}, {C_text("f_1435:port_2escm"),(void*)f_1435}, {C_text("f_1440:port_2escm"),(void*)f_1440}, {C_text("f_1446:port_2escm"),(void*)f_1446}, {C_text("f_1451:port_2escm"),(void*)f_1451}, {C_text("f_1460:port_2escm"),(void*)f_1460}, {C_text("f_1465:port_2escm"),(void*)f_1465}, {C_text("f_1471:port_2escm"),(void*)f_1471}, {C_text("f_1476:port_2escm"),(void*)f_1476}, {C_text("f_1480:port_2escm"),(void*)f_1480}, {C_text("f_1485:port_2escm"),(void*)f_1485}, {C_text("f_1489:port_2escm"),(void*)f_1489}, {C_text("f_1492:port_2escm"),(void*)f_1492}, {C_text("f_1497:port_2escm"),(void*)f_1497}, {C_text("f_1501:port_2escm"),(void*)f_1501}, {C_text("f_1506:port_2escm"),(void*)f_1506}, {C_text("f_1511:port_2escm"),(void*)f_1511}, {C_text("f_1517:port_2escm"),(void*)f_1517}, {C_text("f_1522:port_2escm"),(void*)f_1522}, {C_text("f_1526:port_2escm"),(void*)f_1526}, {C_text("f_1531:port_2escm"),(void*)f_1531}, {C_text("f_1536:port_2escm"),(void*)f_1536}, {C_text("f_1540:port_2escm"),(void*)f_1540}, {C_text("f_1545:port_2escm"),(void*)f_1545}, {C_text("f_1550:port_2escm"),(void*)f_1550}, {C_text("f_1554:port_2escm"),(void*)f_1554}, {C_text("f_1559:port_2escm"),(void*)f_1559}, {C_text("f_1564:port_2escm"),(void*)f_1564}, {C_text("f_1568:port_2escm"),(void*)f_1568}, {C_text("f_1573:port_2escm"),(void*)f_1573}, {C_text("f_1578:port_2escm"),(void*)f_1578}, {C_text("f_1612:port_2escm"),(void*)f_1612}, {C_text("f_1615:port_2escm"),(void*)f_1615}, {C_text("f_1617:port_2escm"),(void*)f_1617}, {C_text("f_1638:port_2escm"),(void*)f_1638}, {C_text("f_1654:port_2escm"),(void*)f_1654}, {C_text("f_1659:port_2escm"),(void*)f_1659}, {C_text("f_1665:port_2escm"),(void*)f_1665}, {C_text("f_1719:port_2escm"),(void*)f_1719}, {C_text("f_1732:port_2escm"),(void*)f_1732}, {C_text("f_1735:port_2escm"),(void*)f_1735}, {C_text("f_1737:port_2escm"),(void*)f_1737}, {C_text("f_1747:port_2escm"),(void*)f_1747}, {C_text("f_1753:port_2escm"),(void*)f_1753}, {C_text("f_1759:port_2escm"),(void*)f_1759}, {C_text("f_1774:port_2escm"),(void*)f_1774}, {C_text("f_1781:port_2escm"),(void*)f_1781}, {C_text("f_1784:port_2escm"),(void*)f_1784}, {C_text("f_1790:port_2escm"),(void*)f_1790}, {C_text("f_1796:port_2escm"),(void*)f_1796}, {C_text("f_1802:port_2escm"),(void*)f_1802}, {C_text("f_1808:port_2escm"),(void*)f_1808}, {C_text("f_1814:port_2escm"),(void*)f_1814}, {C_text("f_1839:port_2escm"),(void*)f_1839}, {C_text("f_1845:port_2escm"),(void*)f_1845}, {C_text("f_1851:port_2escm"),(void*)f_1851}, {C_text("f_1857:port_2escm"),(void*)f_1857}, {C_text("f_1863:port_2escm"),(void*)f_1863}, {C_text("f_1879:port_2escm"),(void*)f_1879}, {C_text("f_1883:port_2escm"),(void*)f_1883}, {C_text("f_1890:port_2escm"),(void*)f_1890}, {C_text("f_1894:port_2escm"),(void*)f_1894}, {C_text("f_1896:port_2escm"),(void*)f_1896}, {C_text("f_1902:port_2escm"),(void*)f_1902}, {C_text("f_1914:port_2escm"),(void*)f_1914}, {C_text("f_1945:port_2escm"),(void*)f_1945}, {C_text("f_1949:port_2escm"),(void*)f_1949}, {C_text("f_1952:port_2escm"),(void*)f_1952}, {C_text("f_1975:port_2escm"),(void*)f_1975}, {C_text("f_1979:port_2escm"),(void*)f_1979}, {C_text("f_2000:port_2escm"),(void*)f_2000}, {C_text("f_2004:port_2escm"),(void*)f_2004}, {C_text("f_727:port_2escm"),(void*)f_727}, {C_text("f_730:port_2escm"),(void*)f_730}, {C_text("f_732:port_2escm"),(void*)f_732}, {C_text("f_739:port_2escm"),(void*)f_739}, {C_text("f_750:port_2escm"),(void*)f_750}, {C_text("f_754:port_2escm"),(void*)f_754}, {C_text("f_762:port_2escm"),(void*)f_762}, {C_text("f_769:port_2escm"),(void*)f_769}, {C_text("f_794:port_2escm"),(void*)f_794}, {C_text("f_798:port_2escm"),(void*)f_798}, {C_text("f_801:port_2escm"),(void*)f_801}, {C_text("f_804:port_2escm"),(void*)f_804}, {C_text("f_807:port_2escm"),(void*)f_807}, {C_text("f_813:port_2escm"),(void*)f_813}, {C_text("f_870:port_2escm"),(void*)f_870}, {C_text("f_876:port_2escm"),(void*)f_876}, {C_text("f_880:port_2escm"),(void*)f_880}, {C_text("f_889:port_2escm"),(void*)f_889}, {C_text("f_894:port_2escm"),(void*)f_894}, {C_text("f_900:port_2escm"),(void*)f_900}, {C_text("f_904:port_2escm"),(void*)f_904}, {C_text("f_924:port_2escm"),(void*)f_924}, {C_text("f_926:port_2escm"),(void*)f_926}, {C_text("f_932:port_2escm"),(void*)f_932}, {C_text("f_936:port_2escm"),(void*)f_936}, {C_text("f_949:port_2escm"),(void*)f_949}, {C_text("f_956:port_2escm"),(void*)f_956}, {C_text("f_961:port_2escm"),(void*)f_961}, {C_text("f_965:port_2escm"),(void*)f_965}, {C_text("f_974:port_2escm"),(void*)f_974}, {C_text("f_986:port_2escm"),(void*)f_986}, {C_text("f_996:port_2escm"),(void*)f_996}, {C_text("toplevel:port_2escm"),(void*)C_port_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.port#d o|hiding unexported module binding: chicken.port#define-alias o|hiding unexported module binding: chicken.port#posix-error o|hiding unexported module binding: chicken.port#check-terminal! S|applied compiler syntax: S| scheme#for-each 2 o|eliminated procedure checks: 32 o|specializations: o| 2 (##sys#check-open-port * *) o| 2 (##sys#check-output-port * * *) o| 1 (##sys#check-input-port * * *) o| 2 (##sys#check-list (or pair list) *) o| 2 (scheme#make-string fixnum) o| 5 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 1 (scheme#car pair) (o e)|safe calls: 161 (o e)|assignments to immediate values: 1 o|safe globals: (chicken.port#terminal-size chicken.port#terminal-name chicken.port#check-terminal! chicken.port#terminal-port? chicken.port#posix-error chicken.port#make-bidirectional-port chicken.port#make-output-port chicken.port#make-input-port chicken.port#with-error-output-to-string chicken.port#with-output-to-string chicken.port#with-input-from-string chicken.port#call-with-output-string chicken.port#call-with-input-string chicken.port#with-error-output-to-port chicken.port#with-output-to-port chicken.port#with-input-from-port chicken.port#make-concatenated-port chicken.port#make-broadcast-port chicken.port#copy-port chicken.port#port-fold chicken.port#port-map chicken.port#port-for-each chicken.port#set-buffering-mode! chicken.port#port-position chicken.port#set-port-name! chicken.port#port-name) o|inlining procedure: k770 o|inlining procedure: k770 o|inlining procedure: k808 o|inlining procedure: k808 o|inlining procedure: k818 o|contracted procedure: "(port.scm:143) g136137" o|inlining procedure: k818 o|inlining procedure: k844 o|inlining procedure: k844 o|substituted constant variable: a860 o|substituted constant variable: a862 o|substituted constant variable: a864 o|inlining procedure: k881 o|inlining procedure: k881 o|inlining procedure: k905 o|inlining procedure: k905 o|inlining procedure: k937 o|inlining procedure: k937 o|inlining procedure: k1105 o|contracted procedure: "(port.scm:213) read-buf173" o|inlining procedure: k966 o|inlining procedure: k966 o|substituted constant variable: a978 o|contracted procedure: "(port.scm:217) write-buf174" o|inlining procedure: k988 o|inlining procedure: k988 o|inlining procedure: k1105 o|contracted procedure: "(port.scm:219) read-and-write-buf176" o|inlining procedure: k1054 o|inlining procedure: k1054 o|substituted constant variable: a1090 o|contracted procedure: "(port.scm:221) read-and-write175" o|inlining procedure: k1024 o|inlining procedure: k1024 o|propagated global variable: g265266 chicken.io#write-string o|inlining procedure: k1199 o|inlining procedure: k1199 o|inlining procedure: k1228 o|inlining procedure: k1228 o|inlining procedure: k1266 o|inlining procedure: k1266 o|inlining procedure: k1295 o|inlining procedure: k1295 o|inlining procedure: k1321 o|inlining procedure: k1321 o|inlining procedure: k1356 o|inlining procedure: k1356 o|substituted constant variable: a1404 o|substituted constant variable: a1405 o|substituted constant variable: a1429 o|substituted constant variable: a1430 o|substituted constant variable: a1454 o|substituted constant variable: a1455 o|inlining procedure: k1622 o|inlining procedure: k1622 o|inlining procedure: k1643 o|inlining procedure: k1643 o|inlining procedure: k1761 o|inlining procedure: k1761 o|inlining procedure: k1816 o|inlining procedure: k1816 o|substituted constant variable: a1835 o|substituted constant variable: a1837 o|merged explicitly consed rest parameter: args519 o|contracted procedure: "(port.scm:414) strerror509" o|substituted constant variable: a1899 o|inlining procedure: k1903 o|inlining procedure: k1903 o|inlining procedure: k1918 o|inlining procedure: k1918 o|inlining procedure: k1953 o|inlining procedure: k1953 o|consed rest parameter at call site: "(port.scm:433) chicken.port#posix-error" 4 o|contracted procedure: "(port.scm:432) ttyname532" o|inlining procedure: k1980 o|inlining procedure: k1980 o|consed rest parameter at call site: "(port.scm:448) chicken.port#posix-error" 4 o|contracted procedure: "(port.scm:444) ttysize544" o|replaced variables: 165 o|removed binding forms: 110 o|substituted constant variable: r8192011 o|substituted constant variable: r8192011 o|substituted constant variable: r12672035 o|substituted constant variable: r12962038 o|substituted constant variable: r13222039 o|substituted constant variable: r19042052 o|replaced variables: 3 o|removed binding forms: 199 o|replaced variables: 2 o|removed binding forms: 9 o|removed binding forms: 2 o|simplifications: ((if . 17) (##core#call . 119)) o| call simplifications: o| ##sys#foreign-pointer-argument 2 o| chicken.fixnum#fx= o| scheme#values o| scheme#apply o| scheme#write-char o| scheme#string o| ##sys#setislot o| scheme#vector 6 o| chicken.fixnum#fx<= o| chicken.fixnum#fx- o| scheme#not 2 o| scheme#read-char 2 o| scheme#cdr 9 o| scheme#char->integer o| ##sys#setbyte o| chicken.fixnum#fx>= 3 o| ##sys#byte o| scheme#integer->char o| chicken.fixnum#fx+ 4 o| scheme#cons 2 o| scheme#eof-object? 7 o| scheme#pair? 3 o| scheme#eq? 12 o| ##sys#foreign-fixnum-argument 5 o| chicken.fixnum#fx< 3 o| ##sys#values o| ##sys#check-string o| ##sys#setslot 2 o| scheme#null? 19 o| scheme#car 13 o| ##sys#slot 11 o|contracted procedure: k743 o|contracted procedure: k734 o|contracted procedure: k755 o|contracted procedure: k787 o|contracted procedure: k764 o|contracted procedure: k777 o|contracted procedure: k781 o|contracted procedure: k838 o|contracted procedure: k821 o|contracted procedure: k827 o|contracted procedure: k831 o|contracted procedure: k841 o|contracted procedure: k847 o|contracted procedure: k853 o|contracted procedure: k865 o|contracted procedure: k884 o|contracted procedure: k908 o|contracted procedure: k918 o|contracted procedure: k940 o|contracted procedure: k1173 o|contracted procedure: k1093 o|contracted procedure: k1167 o|contracted procedure: k1096 o|contracted procedure: k1161 o|contracted procedure: k1099 o|contracted procedure: k1155 o|contracted procedure: k1102 o|contracted procedure: k1108 o|contracted procedure: k1118 o|contracted procedure: k1115 o|contracted procedure: k991 o|contracted procedure: k1001 o|contracted procedure: k1009 o|contracted procedure: k1005 o|contracted procedure: k969 o|contracted procedure: k1134 o|contracted procedure: k1057 o|contracted procedure: k1063 o|contracted procedure: k1080 o|contracted procedure: k1069 o|contracted procedure: k1076 o|contracted procedure: k1083 o|contracted procedure: k1027 o|contracted procedure: k1202 o|contracted procedure: k1212 o|contracted procedure: k1216 o|contracted procedure: k1231 o|contracted procedure: k1241 o|contracted procedure: k1245 o|contracted procedure: k1251 o|contracted procedure: k1269 o|contracted procedure: k1278 o|contracted procedure: k1282 o|contracted procedure: k1289 o|contracted procedure: k1309 o|contracted procedure: k1298 o|contracted procedure: k1305 o|contracted procedure: k1324 o|contracted procedure: k1333 o|contracted procedure: k1337 o|contracted procedure: k1344 o|contracted procedure: k1359 o|contracted procedure: k1365 o|contracted procedure: k1378 o|contracted procedure: k1382 o|contracted procedure: k1385 o|contracted procedure: k1389 o|contracted procedure: k1393 o|contracted procedure: k1397 o|contracted procedure: k1712 o|contracted procedure: k1580 o|contracted procedure: k1706 o|contracted procedure: k1583 o|contracted procedure: k1700 o|contracted procedure: k1586 o|contracted procedure: k1694 o|contracted procedure: k1589 o|contracted procedure: k1688 o|contracted procedure: k1592 o|contracted procedure: k1682 o|contracted procedure: k1595 o|contracted procedure: k1676 o|contracted procedure: k1598 o|contracted procedure: k1670 o|contracted procedure: k1601 o|contracted procedure: k1619 o|contracted procedure: k1631 o|contracted procedure: k1640 o|contracted procedure: k1655 o|contracted procedure: k1604 o|contracted procedure: k1607 o|contracted procedure: k1767 o|contracted procedure: k1721 o|contracted procedure: k1743 o|contracted procedure: k1724 o|contracted procedure: k1727 o|contracted procedure: k1819 o|contracted procedure: k1828 o|contracted procedure: k1776 o|contracted procedure: k1786 o|contracted procedure: k1876 o|contracted procedure: k1910 o|contracted procedure: k1906 o|contracted procedure: k1931 o|contracted procedure: k1927 o|contracted procedure: k1921 o|contracted procedure: k1942 o|contracted procedure: k1983 o|contracted procedure: k1964 o|contracted procedure: k1968 o|contracted procedure: k1972 o|simplifications: ((let . 21)) o|removed binding forms: 111 o|replaced variables: 69 o|inlining procedure: k818 o|removed binding forms: 38 o|contracted procedure: k1993 o|removed binding forms: 2 o|customizable procedures: (chicken.port#check-terminal! chicken.port#posix-error k1371 loop314 loop302 loop293 for-each-loop274284 g250257 for-each-loop249267 loop195 k1048 loop203 loop180 doloop188189 loop166 loop158 loop151 k799 k811) o|calls to known targets: 40 o|fast box initializations: 12 o|fast global references: 4 o|fast global assignments: 2 o|dropping unused closure argument: f_1879 o|dropping unused closure argument: f_1914 */ /* end of file */ chicken-5.1.0/chicken.file.import.c0000644000175000017500000001725613502227772016750 0ustar sjamaansjamaan/* Generated from chicken.file.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.file.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.file.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.file.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(361))){ C_save(t1); C_rereclaim2(361*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],12, C_text("chicken.file")); lf[2]=C_h_intern(&lf[2],4, C_text("file")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001create-directory\376\001\000\000\035\001chicken.file#create-directory\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\020\001delete-directory\376\001\000\000\035\001chicken.file#delete-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001create-tem" "porary-file\376\001\000\000\042\001chicken.file#create-temporary-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\032\001create-tempor" "ary-directory\376\001\000\000\047\001chicken.file#create-temporary-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001delete" "-file\376\001\000\000\030\001chicken.file#delete-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001delete-file\052\376\001\000\000\031\001chicken.fil" "e#delete-file\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001copy-file\376\001\000\000\026\001chicken.file#copy-file\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\011\001move-file\376\001\000\000\026\001chicken.file#move-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001rename-file\376\001\000\000\030\001chicken" ".file#rename-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001file-exists\077\376\001\000\000\031\001chicken.file#file-exists\077\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\021\001directory-exists\077\376\001\000\000\036\001chicken.file#directory-exists\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016" "\001file-readable\077\376\001\000\000\033\001chicken.file#file-readable\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001file-writable\077\376\001" "\000\000\033\001chicken.file#file-writable\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001file-executable\077\376\001\000\000\035\001chicken.fil" "e#file-executable\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001directory\376\001\000\000\026\001chicken.file#directory\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\012\001find-files\376\001\000\000\027\001chicken.file#find-files\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001glob\376\001\000\000\021\001chicken." "file#glob\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2efile_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2efile_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2efile_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2efile_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2efile_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/chicken.repl.import.scm0000644000175000017500000000060413502227774017322 0ustar sjamaansjamaan;;;; chicken.repl.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.repl 'repl (scheme#list) '((quit . chicken.repl#quit) (repl . chicken.repl#repl) (repl-prompt . chicken.repl#repl-prompt) (reset . chicken.repl#reset) (reset-handler . chicken.repl#reset-handler)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/chicken.irregex.import.scm0000644000175000017500000000433013502227735020022 0ustar sjamaansjamaan;;;; chicken.irregex.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.irregex 'irregex (scheme#list) '((irregex . chicken.irregex#irregex) (irregex? . chicken.irregex#irregex?) (string->sre . chicken.irregex#string->sre) (maybe-string->sre . chicken.irregex#maybe-string->sre) (sre->irregex . chicken.irregex#sre->irregex) (irregex-names . chicken.irregex#irregex-names) (irregex-num-submatches . chicken.irregex#irregex-num-submatches) (string->irregex . chicken.irregex#string->irregex) (make-irregex-chunker . chicken.irregex#make-irregex-chunker) (irregex-extract . chicken.irregex#irregex-extract) (irregex-fold . chicken.irregex#irregex-fold) (irregex-match . chicken.irregex#irregex-match) (irregex-match? . chicken.irregex#irregex-match?) (irregex-search . chicken.irregex#irregex-search) (irregex-split . chicken.irregex#irregex-split) (irregex-replace . chicken.irregex#irregex-replace) (irregex-replace/all . chicken.irregex#irregex-replace/all) (irregex-fold/chunked . chicken.irregex#irregex-fold/chunked) (irregex-match/chunked . chicken.irregex#irregex-match/chunked) (irregex-search/chunked . chicken.irregex#irregex-search/chunked) (irregex-match-data? . chicken.irregex#irregex-match-data?) (irregex-match-names . chicken.irregex#irregex-match-names) (irregex-match-start-index . chicken.irregex#irregex-match-start-index) (irregex-match-end-index . chicken.irregex#irregex-match-end-index) (irregex-match-num-submatches . chicken.irregex#irregex-match-num-submatches) (irregex-match-substring . chicken.irregex#irregex-match-substring) (irregex-match-valid-index? . chicken.irregex#irregex-match-valid-index?) (irregex-match-start-chunk . chicken.irregex#irregex-match-start-chunk) (irregex-match-end-chunk . chicken.irregex#irregex-match-end-chunk) (irregex-match-subchunk . chicken.irregex#irregex-match-subchunk) (glob->sre . chicken.irregex#glob->sre) (sre->string . chicken.irregex#sre->string) (irregex-opt . chicken.irregex#irregex-opt) (irregex-quote . chicken.irregex#irregex-quote)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/chicken.mdoc0000644000175000017500000002023513502227553015205 0ustar sjamaansjamaan.\" Copyright (c) 2007-2019, The CHICKEN Team .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. The name of the authors may not be used to endorse or promote products .\" derived from this software without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, .\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .\" .\" .Dd Apr 26, 2017 .Dt CHICKEN 1 .Os .Sh NAME .Nm chicken .Nd A Scheme-to-C translator .Sh SYNOPSIS .Nm .Op Ar OPTION ... .Op Ar FILENAME ... .Sh DESCRIPTION .Nm is a compiler and interpreter for the programming language Scheme supporting most of the features as described in the Revised^5 Report on the Algorithmic Language Scheme. The .Nm program is the basic Scheme-to-C translator used in this system. For a more convenient interface, see .Xr csc 1 . .Pp .Ar FILENAME should be a complete source file name with extension, or .Dq - for standard input. .Ar OPTION may be one of the following: .Pp General options: .Bl -tag -width Ds .It Fl help Display usage and exit. .It Fl version Display compiler version and exit. .It Fl release Print release number and exit. .It Fl verbose Display information on compilation progress. .El .Pp File and pathname options: .Bl -tag -width Ds .It Fl output-file Ar FILENAME Specifies output-filename, default is .Dq out.c . .It Fl include-path Ar PATHNAME Specifies alternative path for included files. .It Fl to-stdout Write compiled file to stdout instead of file. .El .Pp Language options: .Bl -tag -width Ds .It Fl feature Ar SYMBOL Register feature identifier. .It Fl no-feature Ar SYMBOL Disable built-in feature identifier. .El .Pp Syntax related options: .Bl -tag -width Ds .It Fl case-insensitive Don't preserve case of read symbols. .It Fl keyword-style Ar STYLE Allow alternative keyword syntax .Po prefix, suffix or none Pc . .It Fl no-parentheses-synonyms Disables list delimiter synonyms. .It Fl no-symbol-escape Disables support for escaped symbols. .It Fl r5rs-syntax Disables the CHICKEN extensions to R5RS syntax. .It Fl compile-syntax Macros are made available at run-time. .It Fl emit-import-library Ar MODULE Write compile-time module information into separate file. .It Fl emit-all-import-libraries Emit import-libraries for all defined modules. .It Fl no-module-registration Do not generate module registration code. .It Fl no-compiler-syntax Disable expansion of compiler-macros. .It Fl module Ar NAME Wrap compiled code in module of the given name. .El .Pp Translation options: .Bl -tag -width Ds .It Fl explicit-use Do not use units .Sq library and .Sq eval by default. .It Fl static Link extensions statically. .It Fl check-syntax Stop compilation after macro-expansion. .It Fl analyze-only Stop compilation after first analysis pass. .El .Pp Debugging options: .Bl -tag -width Ds .It Fl no-warnings Disable warnings. .It Fl debug-level Ar NUMBER Set level of available debugging information. .It Fl no-trace Disable tracing information. .It Fl profile Executable emits profiling information. .It Fl profile-name Ar FILENAME Name of the generated profile information file. .It Fl accumulate-profile Executable emits profiling information in append mode. .It Fl no-lambda-info Omit additional procedure-information. .It Fl types Ar FILENAME Load additional type database. .It Fl emit-types-file Ar FILENAME Write type-declaration information into file. .El .Pp Optimization options: .Bl -tag -width Ds .It Fl optimize-level Ar NUMBER Enable certain sets of optimization options. .It Fl optimize-leaf-routines Enable leaf routine optimization. .It Fl no-usual-integrations Standard procedures may be redefined. .It Fl unsafe Disable all safety checks. .It Fl local Assume globals are only modified in current file. .It Fl block Enable block-compilation. .It Fl disable-interrupts Disable interrupts in compiled code. .It Fl fixnum-arithmetic Assume all numbers are fixnums. .It Fl disable-stack-overflow-checks Disables detection of stack-overflows. .It Fl inline Enable inlining. .It Fl inline-limit Ar LIMIT Set inlining threshold. .It Fl inline-global Enable cross-module inlining. .It Fl specialize Perform type-based specialization of primitive calls. .It Fl emit-inline-file Ar FILENAME Generate file with globally inlinable procedures .Po implies Fl inline Fl local Pc . .It Fl consult-inline-file Ar FILENAME Explicitly load inline file. .It Fl no-argc-checks Disable argument count checks. .It Fl no-bound-checks Disable bound variable checks. .It Fl no-procedure-checks Disable procedure call checks. .It Fl no-procedure-checks-for-usual-bindings Disable procedure call checks only for usual bindings. .It Fl no-procedure-checks-for-toplevel-bindings Disable procedure call checks for toplevel bindings. .It Fl strict-types Assume variable do not change their type. .It Fl clustering Combine groups of local procedures into dispatch loop. .It Fl lfa2 Perform additional lightweight flow-analysis pass. .El .Pp Configuration options: .Bl -tag -width Ds .It Fl unit Ar NAME Compile file as a library unit. .It Fl uses Ar NAME Declare library unit as used. .It Fl heap-size Ar NUMBER Specifies heap-size of compiled executable. .It Fl nursery Ar NUMBER Fl stack-size Ar NUMBER Specifies nursery size of compiled executable. .It Fl extend Ar FILENAME Load file before compilation commences. .It Fl prelude Ar EXPRESSION Add expression to front of source file. .It Fl postlude Ar EXPRESSION Add expression to end of source file. .It Fl prologue Ar FILENAME Include file before main source file. .It Fl epilogue Ar FILENAME Include file after main source file. .It Fl dynamic Compile as dynamically loadable code. .It Fl require-extension Ar NAME Require and import extension .Ar NAME . .It Fl emit-link-file Ar FILENAME Write a list of statically linked extensions to .Ar FILENAME , used for identifying the static objects that need to be linked to an executable. .El .Pp Obscure options: .Bl -tag -width Ds .It Fl debug Ar MODES Display debugging output for the given modes. .It Fl raw Do not generate implicit init- and exit code. .It Fl emit-external-prototypes-first Emit prototypes for callbacks before foreign declarations. .It Fl regenerate-import-libraries Always emit import libraries, even when their contents haven't changed. The default behaviour is to preserve existing import libraries. .It Fl ignore-repository Do not refer to repository for extensions. .It Fl setup-mode Prefer the current directory when locating extensions. .El .Sh ENVIRONMENT The following environment variables change the behaviour of .Nm Ns : .Bl -tag -width CHICKEN_INCLUDE_PATH .It Ev CHICKEN_INCLUDE_PATH Contains one or more pathnames where the compiler should additionally look for include-files, separated by .Sq \&; characters. .It Ev CHICKEN_OPTIONS Holds a string of default compiler options that should apply to every invocation of .Nm . .El .Sh EXIT STATUS .Ex -std .Sh SEE ALSO .Xr chicken 1 , .Xr chicken-install 1 , .Xr chicken-uninstall 1 .Pp More information can be found in the .Lk http://wiki.call-cc.org/manual/index "CHICKEN User's Manual". .Sh AUTHORS .An The CHICKEN Team .Sh BUGS Submit bug reports by e-mail to .Mt chicken-janitors@nongnu.org chicken-5.1.0/scheduler.c0000644000175000017500000050272413502230004015050 0ustar sjamaansjamaan/* Generated from scheduler.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: scheduler.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file scheduler.c unit: scheduler uses: extras library */ #include "chicken.h" #ifdef HAVE_ERRNO_H # include # define C_signal_interrupted_p C_mk_bool(errno == EINTR) #else # define C_signal_interrupted_p C_SCHEME_FALSE #endif #ifdef _WIN32 /* TODO: Winsock select() only works for sockets */ # include /* Beware: winsock2.h must come BEFORE windows.h */ # define C_msleep(n) (Sleep((DWORD)C_num_to_uint64(n)), C_SCHEME_TRUE) #else # include static C_word C_msleep(C_word ms); C_word C_msleep(C_word ms) { #ifdef __CYGWIN__ if(usleep((useconds_t)C_num_to_uint64(ms) * 1000) == -1) return C_SCHEME_FALSE; #else struct timespec ts; C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab, sec = C_s_a_u_i_integer_quotient(&a, 2, ms, C_fix(1000)), msec = C_s_a_u_i_integer_remainder(&a, 2, ms, C_fix(1000)); ts.tv_sec = (time_t)C_num_to_uint64(sec); ts.tv_nsec = (long)C_unfix(msec) * 1000000; if(nanosleep(&ts, NULL) == -1) return C_SCHEME_FALSE; #endif return C_SCHEME_TRUE; } #endif #ifdef NO_POSIX_POLL /* Shouldn't we include here? */ static fd_set C_fdset_input, C_fdset_output; #define C_fd_input_ready(fd,pos) C_mk_bool(FD_ISSET(C_unfix(fd), &C_fdset_input)) #define C_fd_output_ready(fd,pos) C_mk_bool(FD_ISSET(C_unfix(fd), &C_fdset_output)) inline static int C_ready_fds_timeout(int to, unsigned int tm) { struct timeval timeout; timeout.tv_sec = tm / 1000; timeout.tv_usec = fmod(tm, 1000) * 1000; /* we use FD_SETSIZE, but really should use max fd */ return select(FD_SETSIZE, &C_fdset_input, &C_fdset_output, NULL, to ? &timeout : NULL); } inline static void C_prepare_fdset(int length) { FD_ZERO(&C_fdset_input); FD_ZERO(&C_fdset_output); } inline static void C_fdset_add(int fd, int input, int output) { if (input) FD_SET(fd, &C_fdset_input); if (output) FD_SET(fd, &C_fdset_output); } #else # include # include static int C_fdset_nfds; static struct pollfd *C_fdset_set = NULL; inline static int C_fd_ready(int fd, int pos, int what) { assert(fd == C_fdset_set[pos].fd); /* Must match position in ##sys#fd-list! */ return(C_fdset_set[pos].revents & what); } #define C_fd_input_ready(fd,pos) C_mk_bool(C_fd_ready(C_unfix(fd), C_unfix(pos),POLLIN|POLLERR|POLLHUP|POLLNVAL)) #define C_fd_output_ready(fd,pos) C_mk_bool(C_fd_ready(C_unfix(fd), C_unfix(pos),POLLOUT|POLLERR|POLLHUP|POLLNVAL)) inline static int C_ready_fds_timeout(int to, unsigned int tm) { return poll(C_fdset_set, C_fdset_nfds, to ? tm : -1); } inline static void C_prepare_fdset(int length) { /* TODO: Only realloc when needed? */ C_fdset_set = realloc(C_fdset_set, sizeof(struct pollfd) * length); if (C_fdset_set == NULL) C_halt(C_SCHEME_FALSE); /* Ugly: no message */ C_fdset_nfds = 0; } /* This *must* be called in order, so position will match ##sys#fd-list */ inline static void C_fdset_add(int fd, int input, int output) { C_fdset_set[C_fdset_nfds].events = ((input ? POLLIN : 0) | (output ? POLLOUT : 0)); C_fdset_set[C_fdset_nfds++].fd = fd; } #endif static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[71]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,12),40,100,101,108,113,32,120,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,7),40,108,111,111,112,50,41,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,50,32,116,104,114,101,97,100,115,32,107,101,101,112,41,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,110,32,112,111,115,32,108,115,116,41}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,8),40,103,51,57,51,32,116,41}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,57,50,32,103,51,57,57,41,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,7),40,108,111,111,112,49,41,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,115,99,104,101,100,117,108,101,41}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,102,111,114,99,101,45,112,114,105,109,111,114,100,105,97,108,41}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,114,101,97,100,121,45,113,117,101,117,101,41,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,97,100,100,45,116,111,45,114,101,97,100,121,45,113,117,101,117,101,32,116,104,114,101,97,100,41,0,0,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,7),40,97,49,51,48,48,41,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,105,110,116,101,114,114,117,112,116,45,104,111,111,107,32,114,101,97,115,111,110,32,115,116,97,116,101,41,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,112,114,101,118,41,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,114,101,109,111,118,101,45,102,114,111,109,45,116,105,109,101,111,117,116,45,108,105,115,116,32,116,41,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,116,108,32,112,114,101,118,41,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,116,104,114,101,97,100,45,98,108,111,99,107,45,102,111,114,45,116,105,109,101,111,117,116,33,32,116,32,116,109,41,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,116,104,114,101,97,100,45,98,108,111,99,107,45,102,111,114,45,116,101,114,109,105,110,97,116,105,111,110,33,32,116,32,116,50,41,0,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,9),40,103,51,51,53,32,116,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,51,52,32,103,51,52,49,41,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,48,48,32,103,51,48,55,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,56,54,32,103,50,57,51,41,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,116,104,114,101,97,100,45,107,105,108,108,33,32,116,32,115,41}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,116,104,114,101,97,100,45,98,97,115,105,99,45,117,110,98,108,111,99,107,33,32,116,41,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,7),40,97,49,54,57,55,41,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,100,101,102,97,117,108,116,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,97,114,103,41,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,116,104,114,101,97,100,45,98,108,111,99,107,45,102,111,114,45,105,47,111,33,32,116,32,102,100,32,105,47,111,41,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,99,108,101,97,114,45,105,47,111,45,115,116,97,116,101,45,102,111,114,45,116,104,114,101,97,100,33,32,116,41,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,27),40,102,95,50,52,55,50,32,113,117,101,117,101,32,97,114,103,32,118,97,108,32,105,110,105,116,41,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,108,41}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,32,105,41,0,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,32,105,41,0,0,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,32,105,41,0,0,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,97,108,108,45,116,104,114,101,97,100,115,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,102,101,116,99,104,45,97,110,100,45,99,108,101,97,114,45,116,104,114,101,97,100,115,41,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,114,101,115,116,111,114,101,45,116,104,114,101,97,100,115,32,118,101,99,41,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,116,104,114,101,97,100,45,117,110,98,108,111,99,107,33,32,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,7),40,97,50,53,53,57,41,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,14),40,97,50,53,52,55,32,114,101,116,117,114,110,41,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,116,104,114,101,97,100,45,115,108,101,101,112,33,32,116,109,41}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,108,101,101,112,45,104,111,111,107,32,110,41,0,0,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,11),40,115,117,115,112,101,110,100,32,116,41,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,8),40,103,54,52,54,32,97,41}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,55,56,32,103,54,56,53,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,8),40,103,54,53,54,32,97,41}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,53,53,32,103,54,54,50,41,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,52,53,32,103,54,53,50,41,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,107,105,108,108,45,111,116,104,101,114,45,116,104,114,101,97,100,115,32,116,104,117,110,107,41}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; /* from g505 */ C_regparm static C_word C_fcall stub509(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_truep(C_a0); unsigned int t1=(unsigned int )C_num_to_unsigned_int(C_a1); C_r=C_fix((C_word)C_ready_fds_timeout(t0,t1)); return C_r;} /* from g436 */ C_regparm static C_word C_fcall stub441(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); int t1=(int )C_truep(C_a1); int t2=(int )C_truep(C_a2); C_fdset_add(t0,t1,t2); return C_r;} /* from g379 */ C_regparm static C_word C_fcall stub382(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_prepare_fdset(t0); return C_r;} C_noret_decl(f_1000) static void C_fcall f_1000(C_word t0,C_word t1) C_noret; C_noret_decl(f_1004) static void C_fcall f_1004(C_word t0,C_word t1) C_noret; C_noret_decl(f_1061) static void C_fcall f_1061(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1095) static void C_ccall f_1095(C_word c,C_word *av) C_noret; C_noret_decl(f_1098) static void C_ccall f_1098(C_word c,C_word *av) C_noret; C_noret_decl(f_1110) static void C_fcall f_1110(C_word t0,C_word t1) C_noret; C_noret_decl(f_1116) static void C_ccall f_1116(C_word c,C_word *av) C_noret; C_noret_decl(f_1128) static void C_ccall f_1128(C_word c,C_word *av) C_noret; C_noret_decl(f_1136) static void C_ccall f_1136(C_word c,C_word *av) C_noret; C_noret_decl(f_1170) static void C_ccall f_1170(C_word c,C_word *av) C_noret; C_noret_decl(f_1181) static void C_ccall f_1181(C_word c,C_word *av) C_noret; C_noret_decl(f_1184) static void C_ccall f_1184(C_word c,C_word *av) C_noret; C_noret_decl(f_1283) static void C_ccall f_1283(C_word c,C_word *av) C_noret; C_noret_decl(f_1287) static void C_ccall f_1287(C_word c,C_word *av) C_noret; C_noret_decl(f_1301) static void C_ccall f_1301(C_word c,C_word *av) C_noret; C_noret_decl(f_1308) static void C_ccall f_1308(C_word c,C_word *av) C_noret; C_noret_decl(f_1314) static C_word C_fcall f_1314(C_word t0,C_word t1,C_word t2); C_noret_decl(f_1349) static void C_ccall f_1349(C_word c,C_word *av) C_noret; C_noret_decl(f_1359) static void C_ccall f_1359(C_word c,C_word *av) C_noret; C_noret_decl(f_1370) static void C_fcall f_1370(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1380) static void C_fcall f_1380(C_word t0,C_word t1) C_noret; C_noret_decl(f_1418) static void C_ccall f_1418(C_word c,C_word *av) C_noret; C_noret_decl(f_1483) static void C_ccall f_1483(C_word c,C_word *av) C_noret; C_noret_decl(f_1499) static void C_fcall f_1499(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1509) static void C_ccall f_1509(C_word c,C_word *av) C_noret; C_noret_decl(f_1525) static void C_fcall f_1525(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1535) static void C_ccall f_1535(C_word c,C_word *av) C_noret; C_noret_decl(f_1548) static void C_ccall f_1548(C_word c,C_word *av) C_noret; C_noret_decl(f_1552) static void C_ccall f_1552(C_word c,C_word *av) C_noret; C_noret_decl(f_1558) static void C_fcall f_1558(C_word t0,C_word t1) C_noret; C_noret_decl(f_1561) static void C_ccall f_1561(C_word c,C_word *av) C_noret; C_noret_decl(f_1564) static void C_ccall f_1564(C_word c,C_word *av) C_noret; C_noret_decl(f_1582) static void C_ccall f_1582(C_word c,C_word *av) C_noret; C_noret_decl(f_1589) static void C_fcall f_1589(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1608) static void C_fcall f_1608(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1618) static void C_ccall f_1618(C_word c,C_word *av) C_noret; C_noret_decl(f_1639) static void C_ccall f_1639(C_word c,C_word *av) C_noret; C_noret_decl(f_1656) static void C_ccall f_1656(C_word c,C_word *av) C_noret; C_noret_decl(f_1662) static void C_ccall f_1662(C_word c,C_word *av) C_noret; C_noret_decl(f_1674) static void C_ccall f_1674(C_word c,C_word *av) C_noret; C_noret_decl(f_1678) static void C_ccall f_1678(C_word c,C_word *av) C_noret; C_noret_decl(f_1684) static void C_ccall f_1684(C_word c,C_word *av) C_noret; C_noret_decl(f_1698) static void C_ccall f_1698(C_word c,C_word *av) C_noret; C_noret_decl(f_1702) static void C_ccall f_1702(C_word c,C_word *av) C_noret; C_noret_decl(f_1722) static void C_fcall f_1722(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1733) static void C_fcall f_1733(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1776) static void C_ccall f_1776(C_word c,C_word *av) C_noret; C_noret_decl(f_1782) static void C_ccall f_1782(C_word c,C_word *av) C_noret; C_noret_decl(f_1785) static void C_ccall f_1785(C_word c,C_word *av) C_noret; C_noret_decl(f_1788) static void C_ccall f_1788(C_word c,C_word *av) C_noret; C_noret_decl(f_1791) static void C_ccall f_1791(C_word c,C_word *av) C_noret; C_noret_decl(f_1794) static void C_ccall f_1794(C_word c,C_word *av) C_noret; C_noret_decl(f_1797) static void C_ccall f_1797(C_word c,C_word *av) C_noret; C_noret_decl(f_1818) static void C_ccall f_1818(C_word c,C_word *av) C_noret; C_noret_decl(f_1830) static void C_fcall f_1830(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1840) static void C_ccall f_1840(C_word c,C_word *av) C_noret; C_noret_decl(f_1855) static void C_ccall f_1855(C_word c,C_word *av) C_noret; C_noret_decl(f_1889) static void C_ccall f_1889(C_word c,C_word *av) C_noret; C_noret_decl(f_1895) static void C_ccall f_1895(C_word c,C_word *av) C_noret; C_noret_decl(f_1898) static void C_ccall f_1898(C_word c,C_word *av) C_noret; C_noret_decl(f_1901) static void C_ccall f_1901(C_word c,C_word *av) C_noret; C_noret_decl(f_1904) static void C_ccall f_1904(C_word c,C_word *av) C_noret; C_noret_decl(f_1907) static void C_ccall f_1907(C_word c,C_word *av) C_noret; C_noret_decl(f_1910) static void C_ccall f_1910(C_word c,C_word *av) C_noret; C_noret_decl(f_1913) static void C_ccall f_1913(C_word c,C_word *av) C_noret; C_noret_decl(f_1916) static void C_ccall f_1916(C_word c,C_word *av) C_noret; C_noret_decl(f_1934) static void C_ccall f_1934(C_word c,C_word *av) C_noret; C_noret_decl(f_1938) static void C_ccall f_1938(C_word c,C_word *av) C_noret; C_noret_decl(f_1953) static void C_fcall f_1953(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2001) static void C_ccall f_2001(C_word c,C_word *av) C_noret; C_noret_decl(f_2010) static void C_ccall f_2010(C_word c,C_word *av) C_noret; C_noret_decl(f_2034) static void C_ccall f_2034(C_word c,C_word *av) C_noret; C_noret_decl(f_2036) static void C_fcall f_2036(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2063) static void C_fcall f_2063(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2098) static void C_ccall f_2098(C_word c,C_word *av) C_noret; C_noret_decl(f_2132) static void C_ccall f_2132(C_word c,C_word *av) C_noret; C_noret_decl(f_2135) static void C_ccall f_2135(C_word c,C_word *av) C_noret; C_noret_decl(f_2156) static void C_ccall f_2156(C_word c,C_word *av) C_noret; C_noret_decl(f_2162) static void C_ccall f_2162(C_word c,C_word *av) C_noret; C_noret_decl(f_2165) static void C_ccall f_2165(C_word c,C_word *av) C_noret; C_noret_decl(f_2168) static void C_ccall f_2168(C_word c,C_word *av) C_noret; C_noret_decl(f_2171) static void C_ccall f_2171(C_word c,C_word *av) C_noret; C_noret_decl(f_2174) static void C_ccall f_2174(C_word c,C_word *av) C_noret; C_noret_decl(f_2177) static void C_ccall f_2177(C_word c,C_word *av) C_noret; C_noret_decl(f_2185) static void C_ccall f_2185(C_word c,C_word *av) C_noret; C_noret_decl(f_2188) static void C_ccall f_2188(C_word c,C_word *av) C_noret; C_noret_decl(f_2191) static void C_ccall f_2191(C_word c,C_word *av) C_noret; C_noret_decl(f_2232) static void C_ccall f_2232(C_word c,C_word *av) C_noret; C_noret_decl(f_2252) static void C_ccall f_2252(C_word c,C_word *av) C_noret; C_noret_decl(f_2263) static void C_ccall f_2263(C_word c,C_word *av) C_noret; C_noret_decl(f_2268) static void C_fcall f_2268(C_word t0,C_word t1) C_noret; C_noret_decl(f_2282) static void C_ccall f_2282(C_word c,C_word *av) C_noret; C_noret_decl(f_2284) static void C_fcall f_2284(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2306) static void C_ccall f_2306(C_word c,C_word *av) C_noret; C_noret_decl(f_2325) static void C_ccall f_2325(C_word c,C_word *av) C_noret; C_noret_decl(f_2337) static void C_ccall f_2337(C_word c,C_word *av) C_noret; C_noret_decl(f_2355) static void C_fcall f_2355(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2371) static void C_ccall f_2371(C_word c,C_word *av) C_noret; C_noret_decl(f_2378) static void C_fcall f_2378(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2397) static void C_ccall f_2397(C_word c,C_word *av) C_noret; C_noret_decl(f_2402) static void C_fcall f_2402(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2420) static void C_ccall f_2420(C_word c,C_word *av) C_noret; C_noret_decl(f_2427) static void C_fcall f_2427(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2443) static void C_ccall f_2443(C_word c,C_word *av) C_noret; C_noret_decl(f_2472) static void C_ccall f_2472(C_word c,C_word *av) C_noret; C_noret_decl(f_2481) static void C_ccall f_2481(C_word c,C_word *av) C_noret; C_noret_decl(f_2491) static void C_ccall f_2491(C_word c,C_word *av) C_noret; C_noret_decl(f_2510) static void C_ccall f_2510(C_word c,C_word *av) C_noret; C_noret_decl(f_2520) static void C_fcall f_2520(C_word t0,C_word t1) C_noret; C_noret_decl(f_2523) static void C_ccall f_2523(C_word c,C_word *av) C_noret; C_noret_decl(f_2526) static void C_ccall f_2526(C_word c,C_word *av) C_noret; C_noret_decl(f_2542) static void C_ccall f_2542(C_word c,C_word *av) C_noret; C_noret_decl(f_2548) static void C_ccall f_2548(C_word c,C_word *av) C_noret; C_noret_decl(f_2555) static void C_ccall f_2555(C_word c,C_word *av) C_noret; C_noret_decl(f_2560) static void C_ccall f_2560(C_word c,C_word *av) C_noret; C_noret_decl(f_2566) static void C_ccall f_2566(C_word c,C_word *av) C_noret; C_noret_decl(f_2580) static void C_ccall f_2580(C_word c,C_word *av) C_noret; C_noret_decl(f_2583) static void C_ccall f_2583(C_word c,C_word *av) C_noret; C_noret_decl(f_2608) static void C_ccall f_2608(C_word c,C_word *av) C_noret; C_noret_decl(f_2609) static void C_fcall f_2609(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2620) static void C_ccall f_2620(C_word c,C_word *av) C_noret; C_noret_decl(f_2621) static void C_fcall f_2621(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2630) static void C_fcall f_2630(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2640) static void C_ccall f_2640(C_word c,C_word *av) C_noret; C_noret_decl(f_2654) static void C_ccall f_2654(C_word c,C_word *av) C_noret; C_noret_decl(f_2659) static void C_ccall f_2659(C_word c,C_word *av) C_noret; C_noret_decl(f_2664) static void C_fcall f_2664(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2674) static void C_ccall f_2674(C_word c,C_word *av) C_noret; C_noret_decl(f_2687) static void C_fcall f_2687(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2697) static void C_ccall f_2697(C_word c,C_word *av) C_noret; C_noret_decl(f_904) static void C_ccall f_904(C_word c,C_word *av) C_noret; C_noret_decl(f_907) static void C_ccall f_907(C_word c,C_word *av) C_noret; C_noret_decl(f_909) static void C_fcall f_909(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_915) static void C_fcall f_915(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_942) static void C_ccall f_942(C_word c,C_word *av) C_noret; C_noret_decl(f_952) static void C_ccall f_952(C_word c,C_word *av) C_noret; C_noret_decl(f_983) static void C_ccall f_983(C_word c,C_word *av) C_noret; C_noret_decl(f_988) static void C_fcall f_988(C_word t0,C_word t1) C_noret; C_noret_decl(f_992) static void C_ccall f_992(C_word c,C_word *av) C_noret; C_noret_decl(f_995) static void C_ccall f_995(C_word c,C_word *av) C_noret; C_noret_decl(C_scheduler_toplevel) C_externexport void C_ccall C_scheduler_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1000) static void C_ccall trf_1000(C_word c,C_word *av) C_noret; static void C_ccall trf_1000(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1000(t0,t1);} C_noret_decl(trf_1004) static void C_ccall trf_1004(C_word c,C_word *av) C_noret; static void C_ccall trf_1004(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1004(t0,t1);} C_noret_decl(trf_1061) static void C_ccall trf_1061(C_word c,C_word *av) C_noret; static void C_ccall trf_1061(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1061(t0,t1,t2);} C_noret_decl(trf_1110) static void C_ccall trf_1110(C_word c,C_word *av) C_noret; static void C_ccall trf_1110(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1110(t0,t1);} C_noret_decl(trf_1370) static void C_ccall trf_1370(C_word c,C_word *av) C_noret; static void C_ccall trf_1370(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1370(t0,t1,t2,t3);} C_noret_decl(trf_1380) static void C_ccall trf_1380(C_word c,C_word *av) C_noret; static void C_ccall trf_1380(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1380(t0,t1);} C_noret_decl(trf_1499) static void C_ccall trf_1499(C_word c,C_word *av) C_noret; static void C_ccall trf_1499(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1499(t0,t1,t2);} C_noret_decl(trf_1525) static void C_ccall trf_1525(C_word c,C_word *av) C_noret; static void C_ccall trf_1525(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1525(t0,t1,t2);} C_noret_decl(trf_1558) static void C_ccall trf_1558(C_word c,C_word *av) C_noret; static void C_ccall trf_1558(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1558(t0,t1);} C_noret_decl(trf_1589) static void C_ccall trf_1589(C_word c,C_word *av) C_noret; static void C_ccall trf_1589(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1589(t0,t1,t2);} C_noret_decl(trf_1608) static void C_ccall trf_1608(C_word c,C_word *av) C_noret; static void C_ccall trf_1608(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1608(t0,t1,t2);} C_noret_decl(trf_1722) static void C_ccall trf_1722(C_word c,C_word *av) C_noret; static void C_ccall trf_1722(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1722(t0,t1,t2);} C_noret_decl(trf_1733) static void C_ccall trf_1733(C_word c,C_word *av) C_noret; static void C_ccall trf_1733(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1733(t0,t1,t2);} C_noret_decl(trf_1830) static void C_ccall trf_1830(C_word c,C_word *av) C_noret; static void C_ccall trf_1830(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1830(t0,t1,t2);} C_noret_decl(trf_1953) static void C_ccall trf_1953(C_word c,C_word *av) C_noret; static void C_ccall trf_1953(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1953(t0,t1,t2);} C_noret_decl(trf_2036) static void C_ccall trf_2036(C_word c,C_word *av) C_noret; static void C_ccall trf_2036(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2036(t0,t1,t2,t3,t4);} C_noret_decl(trf_2063) static void C_ccall trf_2063(C_word c,C_word *av) C_noret; static void C_ccall trf_2063(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2063(t0,t1,t2,t3);} C_noret_decl(trf_2268) static void C_ccall trf_2268(C_word c,C_word *av) C_noret; static void C_ccall trf_2268(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2268(t0,t1);} C_noret_decl(trf_2284) static void C_ccall trf_2284(C_word c,C_word *av) C_noret; static void C_ccall trf_2284(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2284(t0,t1,t2);} C_noret_decl(trf_2355) static void C_ccall trf_2355(C_word c,C_word *av) C_noret; static void C_ccall trf_2355(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2355(t0,t1,t2,t3);} C_noret_decl(trf_2378) static void C_ccall trf_2378(C_word c,C_word *av) C_noret; static void C_ccall trf_2378(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2378(t0,t1,t2,t3);} C_noret_decl(trf_2402) static void C_ccall trf_2402(C_word c,C_word *av) C_noret; static void C_ccall trf_2402(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2402(t0,t1,t2);} C_noret_decl(trf_2427) static void C_ccall trf_2427(C_word c,C_word *av) C_noret; static void C_ccall trf_2427(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2427(t0,t1,t2,t3);} C_noret_decl(trf_2520) static void C_ccall trf_2520(C_word c,C_word *av) C_noret; static void C_ccall trf_2520(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2520(t0,t1);} C_noret_decl(trf_2609) static void C_ccall trf_2609(C_word c,C_word *av) C_noret; static void C_ccall trf_2609(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2609(t0,t1,t2);} C_noret_decl(trf_2621) static void C_ccall trf_2621(C_word c,C_word *av) C_noret; static void C_ccall trf_2621(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2621(t0,t1,t2);} C_noret_decl(trf_2630) static void C_ccall trf_2630(C_word c,C_word *av) C_noret; static void C_ccall trf_2630(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2630(t0,t1,t2);} C_noret_decl(trf_2664) static void C_ccall trf_2664(C_word c,C_word *av) C_noret; static void C_ccall trf_2664(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2664(t0,t1,t2);} C_noret_decl(trf_2687) static void C_ccall trf_2687(C_word c,C_word *av) C_noret; static void C_ccall trf_2687(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2687(t0,t1,t2);} C_noret_decl(trf_909) static void C_ccall trf_909(C_word c,C_word *av) C_noret; static void C_ccall trf_909(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_909(t0,t1,t2);} C_noret_decl(trf_915) static void C_ccall trf_915(C_word c,C_word *av) C_noret; static void C_ccall trf_915(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_915(t0,t1,t2);} C_noret_decl(trf_988) static void C_ccall trf_988(C_word c,C_word *av) C_noret; static void C_ccall trf_988(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_988(t0,t1);} /* loop2 in k993 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_fcall f_1000(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1000,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1004,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t3=lf[16]; t4=C_i_nullp(lf[16]); if(C_truep(C_i_not(t4))){ t5=C_slot(lf[16],C_fix(1)); t6=C_mutate(&lf[16] /* (set! ready-queue-head ...) */,t5); t7=C_eqp(C_SCHEME_END_OF_LIST,t5); if(C_truep(t7)){ t8=lf[17] /* ready-queue-tail */ =C_SCHEME_END_OF_LIST;; t9=C_u_i_car(t3); t10=t2; f_1004(t10,t9);} else{ t8=C_u_i_car(t3); t9=t2; f_1004(t9,t8);}} else{ t5=t2; f_1004(t5,C_SCHEME_FALSE);}} /* k1002 in loop2 in k993 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_fcall f_1004(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_1004,2,t0,t1);} if(C_truep(C_i_not(t1))){ if(C_truep(C_i_nullp(lf[10]))){ if(C_truep(C_i_nullp(*((C_word*)lf[11]+1)))){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_halt(lf[12]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* scheduler.scm:231: loop1 */ t2=((C_word*)((C_word*)t0)[3])[1]; f_988(t2,((C_word*)t0)[2]);}} else{ /* scheduler.scm:231: loop1 */ t2=((C_word*)((C_word*)t0)[3])[1]; f_988(t2,((C_word*)t0)[2]);}} else{ t2=C_slot(t1,C_fix(3)); t3=C_eqp(t2,lf[13]); if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=t1; t6=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#current-thread ...) */,t5); t7=C_i_setslot(t5,C_fix(3),lf[14]); t8=C_slot(t5,C_fix(5)); t9=C_slot(t8,C_fix(0)); t10=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#dynamic-winds ...) */,t9); t11=C_slot(t8,C_fix(1)); t12=C_mutate((C_word*)lf[5]+1 /* (set! ##sys#standard-input ...) */,t11); t13=C_slot(t8,C_fix(2)); t14=C_mutate((C_word*)lf[6]+1 /* (set! ##sys#standard-output ...) */,t13); t15=C_slot(t8,C_fix(3)); t16=C_mutate((C_word*)lf[7]+1 /* (set! ##sys#standard-error ...) */,t15); t17=C_slot(t8,C_fix(4)); t18=C_mutate((C_word*)lf[8]+1 /* (set! ##sys#current-exception-handler ...) */,t17); t19=C_slot(t8,C_fix(5)); t20=C_mutate((C_word*)lf[9]+1 /* (set! ##sys#current-parameter-vector ...) */,t19); t21=C_slot(t5,C_fix(9)); t22=C_set_initial_timer_interrupt_period(t21); t23=C_slot(t5,C_fix(1)); /* scheduler.scm:175: ##sys#call-with-cthulhu */ t24=*((C_word*)lf[15]+1);{ C_word av2[3]; av2[0]=t24; av2[1]=t4; av2[2]=t23; ((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} else{ /* scheduler.scm:233: loop2 */ t4=((C_word*)((C_word*)t0)[4])[1]; f_1000(t4,((C_word*)t0)[2]);}}} /* loop in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_fcall f_1061(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_1061,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=lf[10] /* ##sys#timeout-list */ =C_SCHEME_END_OF_LIST;; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_u_i_caar(t2); t4=t2; t5=C_u_i_car(t4); t6=C_u_i_cdr(t5); t7=C_slot(t6,C_fix(4)); if(C_truep(C_i_equalp(t3,t7))){ if(C_truep(C_i_greater_or_equalp(((C_word*)t0)[2],t3))){ t8=C_i_set_i_slot(t6,C_fix(13),C_SCHEME_TRUE); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1095,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:200: ##sys#clear-i/o-state-for-thread! */ f_2268(t9,t6);} else{ t8=C_mutate(&lf[10] /* (set! ##sys#timeout-list ...) */,t2); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1110,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(lf[16]))){ t10=C_i_nullp(*((C_word*)lf[11]+1)); t11=t9; f_1110(t11,(C_truep(t10)?C_i_pairp(lf[10]):C_SCHEME_FALSE));} else{ t10=t9; f_1110(t10,C_SCHEME_FALSE);}}} else{ t8=t2; t9=C_u_i_cdr(t8); /* scheduler.scm:219: loop */ t12=t1; t13=t9; t1=t12; t2=t13; goto loop;}}} /* k1093 in loop in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1095,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1098,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scheduler.scm:201: ##sys#thread-basic-unblock! */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1096 in k1093 in loop in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1098,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scheduler.scm:202: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_1061(t4,((C_word*)t0)[4],t3);} /* k1108 in loop in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_fcall f_1110(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_1110,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_u_i_caar(lf[10]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1116,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1136,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:212: scheme#round */ t5=*((C_word*)lf[36]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k1114 in k1108 in loop in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ C_save_and_reclaim((void *)f_1116,2,av);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1128,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_s_a_i_minus(&a,2,t1,((C_word*)t0)[4]); /* scheduler.scm:216: scheme#max */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=C_fix(0); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1126 in k1114 in k1108 in loop in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1128,2,av);} t2=C_msleep(t1); if(C_truep(C_i_not(t2))){ t3=C_mk_bool(C_signal_interrupted_p); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1134 in k1108 in loop in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1136,2,av);} /* scheduler.scm:212: scheme#inexact->exact */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* ##sys#force-primordial in k905 in k902 */ static void C_ccall f_1170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1170,2,av);} t2=C_i_set_i_slot(*((C_word*)lf[42]+1),C_fix(13),C_SCHEME_FALSE); /* scheduler.scm:238: ##sys#thread-unblock! */ t3=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[42]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* ##sys#ready-queue in k905 in k902 */ static void C_ccall f_1181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1181,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=lf[16]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#add-to-ready-queue in k905 in k902 */ static void C_ccall f_1184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1184,3,av);} a=C_alloc(3); t3=C_i_setslot(t2,C_fix(3),lf[13]); t4=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST); t5=C_eqp(C_SCHEME_END_OF_LIST,lf[16]); if(C_truep(t5)){ t6=C_mutate(&lf[16] /* (set! ready-queue-head ...) */,t4); t7=C_mutate(&lf[17] /* (set! ready-queue-tail ...) */,t4); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=C_i_setslot(lf[17],C_fix(1),t4); t7=C_mutate(&lf[17] /* (set! ready-queue-tail ...) */,t4); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* ##sys#interrupt-hook in k905 in k902 */ static void C_ccall f_1283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_1283,4,av);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1287,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t5=C_eqp(t2,C_fix(255)); if(C_truep(t5)){ t6=*((C_word*)lf[3]+1); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1301,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word)li14),tmp=(C_word)a,a+=6,tmp); t8=C_i_setslot(*((C_word*)lf[3]+1),C_fix(1),t7); /* scheduler.scm:285: ##sys#schedule */ t9=*((C_word*)lf[2]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ /* scheduler.scm:286: oldhook */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k1285 in ##sys#interrupt-hook in k905 in k902 */ static void C_ccall f_1287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1287,2,av);} /* scheduler.scm:286: oldhook */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a1300 in ##sys#interrupt-hook in k905 in k902 */ static void C_ccall f_1301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1301,2,av);} /* scheduler.scm:284: oldhook */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* ##sys#remove-from-timeout-list in k905 in k902 */ static void C_ccall f_1308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1308,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1314,a[2]=t2,a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=( f_1314(t3,lf[10],C_SCHEME_FALSE) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in ##sys#remove-from-timeout-list in k905 in k902 */ static C_word C_fcall f_1314(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; loop:{} if(C_truep(C_i_nullp(t1))){ t3=t1; return(t3);} else{ t3=C_slot(t1,C_fix(0)); t4=C_slot(t1,C_fix(1)); t5=C_slot(t3,C_fix(1)); t6=C_eqp(t5,((C_word*)t0)[2]); if(C_truep(t6)){ if(C_truep(t2)){ return(C_i_setslot(t2,C_fix(1),t4));} else{ t7=C_mutate(&lf[10] /* (set! ##sys#timeout-list ...) */,t4); return(t7);}} else{ t9=t4; t10=t1; t1=t9; t2=t10; goto loop;}}} /* ##sys#thread-block-for-timeout! in k905 in k902 */ static void C_ccall f_1349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_1349,4,av);} a=C_alloc(13); if(C_truep(C_i_greaterp(t3,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1359,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1370,a[2]=t3,a[3]=t2,a[4]=t6,a[5]=((C_word)li18),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_1370(t8,t4,lf[10],C_SCHEME_FALSE);} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k1357 in ##sys#thread-block-for-timeout! in k905 in k902 */ static void C_ccall f_1359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1359,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),lf[47]); t3=C_i_set_i_slot(((C_word*)t0)[2],C_fix(13),C_SCHEME_FALSE); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_setslot(((C_word*)t0)[2],C_fix(4),((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in ##sys#thread-block-for-timeout! in k905 in k902 */ static void C_fcall f_1370(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_1370,4,t0,t1,t2,t3);} a=C_alloc(8); t4=C_i_nullp(t2); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1380,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t1,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5; f_1380(t6,t4);} else{ t6=C_u_i_caar(t2); t7=t5; f_1380(t7,C_i_lessp(((C_word*)t0)[2],t6));}} /* k1378 in loop in ##sys#thread-block-for-timeout! in k905 in k902 */ static void C_fcall f_1380(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_1380,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[5]); t4=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_setslot(((C_word*)t0)[2],C_fix(1),t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[5]); t4=C_mutate(&lf[10] /* (set! ##sys#timeout-list ...) */,t3); t5=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=C_slot(((C_word*)t0)[5],C_fix(1)); /* scheduler.scm:311: loop */ t3=((C_word*)((C_word*)t0)[7])[1]; f_1370(t3,((C_word*)t0)[6],t2,((C_word*)t0)[5]);}} /* ##sys#thread-block-for-termination! in k905 in k902 */ static void C_ccall f_1418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1418,4,av);} a=C_alloc(3); t4=C_slot(t3,C_fix(3)); t5=C_eqp(t4,lf[49]); t6=(C_truep(t5)?t5:C_eqp(t4,lf[50])); if(C_truep(t6)){ t7=C_SCHEME_UNDEFINED; t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_slot(t3,C_fix(12)); t8=C_a_i_cons(&a,2,t2,t7); t9=C_i_setslot(t3,C_fix(12),t8); t10=C_i_setslot(t2,C_fix(3),lf[47]); t11=C_i_set_i_slot(t2,C_fix(13),C_SCHEME_FALSE); t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=C_i_setslot(t2,C_fix(11),t3); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* k1481 in for-each-loop286 in ##sys#thread-kill! in k905 in k902 */ static void C_ccall f_1483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1483,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_set_i_slot(((C_word*)t0)[3],C_fix(3),C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop300 in for-each-loop286 in ##sys#thread-kill! in k905 in k902 */ static void C_fcall f_1499(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1499,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1509,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scheduler.scm:338: ##sys#thread-unblock! */ t5=*((C_word*)lf[43]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1507 in for-each-loop300 in for-each-loop286 in ##sys#thread-kill! in k905 in k902 */ static void C_ccall f_1509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1509,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1499(t3,((C_word*)t0)[4],t2);} /* for-each-loop286 in ##sys#thread-kill! in k905 in k902 */ static void C_fcall f_1525(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_1525,3,t0,t1,t2);} a=C_alloc(15); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1535,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_set_i_slot(t6,C_fix(2),C_SCHEME_FALSE); t8=C_i_set_i_slot(t6,C_fix(4),C_SCHEME_TRUE); t9=C_i_set_i_slot(t6,C_fix(5),C_SCHEME_FALSE); t10=C_slot(t6,C_fix(3)); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1483,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t10))){ t12=t5;{ C_word av2[2]; av2[0]=t12; av2[1]=C_i_set_i_slot(t6,C_fix(3),C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1499,a[2]=t13,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp)); t15=((C_word*)t13)[1]; f_1499(t15,t11,t10);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1533 in for-each-loop286 in ##sys#thread-kill! in k905 in k902 */ static void C_ccall f_1535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1535,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1525(t3,((C_word*)t0)[4],t2);} /* ##sys#thread-kill! in k905 in k902 */ static void C_ccall f_1548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_1548,4,av);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1552,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=C_slot(t5,C_fix(8)); if(C_truep(C_i_nullp(t6))){ t7=C_SCHEME_UNDEFINED; t8=t4;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; f_1552(2,av2);}} else{ t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1525,a[2]=t8,a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_1525(t10,t4,t6);}} /* k1550 in ##sys#thread-kill! in k905 in k902 */ static void C_ccall f_1552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1552,2,av);} a=C_alloc(9); t2=C_slot(((C_word*)t0)[2],C_fix(11)); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1558,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_structurep(t3,lf[52]))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1639,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t3,C_fix(2)); /* scheduler.scm:349: delq */ f_909(t5,((C_word*)t0)[2],t6);} else{ if(C_truep(C_i_structurep(t3,lf[53]))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1656,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t3,C_fix(12)); /* scheduler.scm:351: delq */ f_909(t5,((C_word*)t0)[2],t6);} else{ t5=C_SCHEME_UNDEFINED; t6=t4; f_1558(t6,t5);}}} /* k1556 in k1550 in ##sys#thread-kill! in k905 in k902 */ static void C_fcall f_1558(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1558,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scheduler.scm:352: ##sys#remove-from-timeout-list */ t3=*((C_word*)lf[20]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1559 in k1556 in k1550 in ##sys#thread-kill! in k905 in k902 */ static void C_ccall f_1561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1561,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1564,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scheduler.scm:353: ##sys#clear-i/o-state-for-thread! */ f_2268(t2,((C_word*)t0)[2]);} /* k1562 in k1559 in k1556 in k1550 in ##sys#thread-kill! in k905 in k902 */ static void C_ccall f_1564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_1564,2,av);} a=C_alloc(15); t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),((C_word*)t0)[3]); t3=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),C_SCHEME_FALSE); t4=C_i_set_i_slot(((C_word*)t0)[2],C_fix(11),C_SCHEME_FALSE); t5=C_i_set_i_slot(((C_word*)t0)[2],C_fix(8),C_SCHEME_END_OF_LIST); t6=C_slot(((C_word*)t0)[2],C_fix(12)); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1582,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t6))){ t8=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(12),C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1589,a[2]=((C_word*)t0)[2],a[3]=((C_word)li21),tmp=(C_word)a,a+=4,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1608,a[2]=t10,a[3]=t8,a[4]=((C_word)li22),tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_1608(t12,t7,t6);}} /* k1580 in k1562 in k1559 in k1556 in k1550 in ##sys#thread-kill! in k905 in k902 */ static void C_ccall f_1582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1582,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_set_i_slot(((C_word*)t0)[3],C_fix(12),C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g335 in k1562 in k1559 in k1556 in k1550 in ##sys#thread-kill! in k905 in k902 */ static void C_fcall f_1589(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_1589,3,t0,t1,t2);} t3=C_slot(t2,C_fix(11)); t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ /* scheduler.scm:364: ##sys#thread-basic-unblock! */ t5=*((C_word*)lf[19]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* for-each-loop334 in k1562 in k1559 in k1556 in k1550 in ##sys#thread-kill! in k905 in k902 */ static void C_fcall f_1608(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1608,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1618,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scheduler.scm:360: g335 */ t5=((C_word*)t0)[3]; f_1589(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1616 in for-each-loop334 in k1562 in k1559 in k1556 in k1550 in ##sys#thread-kill! in k905 in k902 */ static void C_ccall f_1618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1618,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1608(t3,((C_word*)t0)[4],t2);} /* k1637 in k1550 in ##sys#thread-kill! in k905 in k902 */ static void C_ccall f_1639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1639,2,av);} t2=((C_word*)t0)[2]; f_1558(t2,C_i_setslot(((C_word*)t0)[3],C_fix(2),t1));} /* k1654 in k1550 in ##sys#thread-kill! in k905 in k902 */ static void C_ccall f_1656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1656,2,av);} t2=((C_word*)t0)[2]; f_1558(t2,C_i_setslot(((C_word*)t0)[3],C_fix(12),t1));} /* ##sys#thread-basic-unblock! in k905 in k902 */ static void C_ccall f_1662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1662,3,av);} t3=C_i_set_i_slot(t2,C_fix(11),C_SCHEME_FALSE); t4=C_i_set_i_slot(t2,C_fix(4),C_SCHEME_FALSE); /* scheduler.scm:372: ##sys#add-to-ready-queue */ t5=*((C_word*)lf[41]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* ##sys#default-exception-handler in k905 in k902 */ static void C_ccall f_1674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_1674,3,av);} a=C_alloc(10); t3=*((C_word*)lf[3]+1); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1678,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_mk_bool(C_abort_on_thread_exceptions))){ t5=*((C_word*)lf[42]+1); t6=C_slot(*((C_word*)lf[42]+1),C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1698,a[2]=t7,a[3]=t2,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp); t9=C_i_setslot(*((C_word*)lf[42]+1),C_fix(1),t8); /* scheduler.scm:386: ##sys#thread-unblock! */ t10=*((C_word*)lf[43]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t4; av2[2]=*((C_word*)lf[42]+1); ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ /* scheduler.scm:388: ##sys#show-exception-warning */ t5=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[57]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k1676 in ##sys#default-exception-handler in k905 in k902 */ static void C_ccall f_1678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_1678,2,av);} a=C_alloc(3); t2=C_i_setslot(((C_word*)t0)[2],C_fix(7),((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1684,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:390: ##sys#thread-kill! */ t4=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=lf[50]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1682 in k1676 in ##sys#default-exception-handler in k905 in k902 */ static void C_ccall f_1684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1684,2,av);} /* scheduler.scm:391: ##sys#schedule */ t2=*((C_word*)lf[2]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a1697 in ##sys#default-exception-handler in k905 in k902 */ static void C_ccall f_1698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1698,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1702,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:384: chicken.condition#signal */ t3=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1700 in a1697 in ##sys#default-exception-handler in k905 in k902 */ static void C_ccall f_1702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1702,2,av);} /* scheduler.scm:385: ptx */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_fcall f_1722(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,0,3)))){ C_save_and_reclaim_args((void *)trf_1722,3,t0,t1,t2);} a=C_alloc(25); if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_u_i_caar(t2); t4=t3; t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_FALSE; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1733,a[2]=t6,a[3]=t8,a[4]=t4,a[5]=((C_word)li5),tmp=(C_word)a,a+=6,tmp); t10=t2; t11=C_u_i_car(t10); t12=C_u_i_cdr(t11); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1818,a[2]=t6,a[3]=t8,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=t1,tmp=(C_word)a,a+=8,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1830,a[2]=t15,a[3]=t9,a[4]=((C_word)li6),tmp=(C_word)a,a+=5,tmp)); t17=((C_word*)t15)[1]; f_1830(t17,t13,t12);}} /* g393 in loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_fcall f_1733(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1733,3,t0,t1,t2);} a=C_alloc(5); t3=C_slot(t2,C_fix(11)); if(C_truep(C_i_pairp(t3))){ t4=C_u_i_cdr(t3); t5=C_eqp(t4,C_SCHEME_TRUE); t6=(C_truep(t5)?t5:C_eqp(t4,lf[28])); if(C_truep(t6)){ t7=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_eqp(t4,C_SCHEME_FALSE); t8=(C_truep(t7)?t7:C_eqp(t4,lf[29])); if(C_truep(t8)){ t9=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_eqp(t4,lf[30]); if(C_truep(t9)){ t10=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t11=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1776,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* scheduler.scm:422: chicken.base#open-output-string */ t11=*((C_word*)lf[27]+1);{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k1774 in g393 in loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_1776,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1782,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* scheduler.scm:422: ##sys#print */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[38]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k1780 in k1774 in g393 in loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1782,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1785,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:422: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1783 in k1780 in k1774 in g393 in loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1785,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1788,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:422: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[37]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1786 in k1783 in k1780 in k1774 in g393 in loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_1788,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1791,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scheduler.scm:422: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1789 in k1786 in k1783 in k1780 in k1774 in g393 in loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1791,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1794,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:422: ##sys#write-char-0 */ t3=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(41); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k1792 in k1789 in k1786 in k1783 in k1780 in k1774 in g393 in loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1794,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1797,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:422: chicken.base#get-output-string */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1795 in k1792 in k1789 in k1786 in k1783 in k1780 in k1774 in g393 in loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1797,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_halt(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1816 in loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1818,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=stub441(C_SCHEME_UNDEFINED,((C_word*)t0)[4],t2,t3); t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); /* scheduler.scm:427: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_1722(t7,((C_word*)t0)[7],t6);} /* for-each-loop392 in loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_fcall f_1830(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1830,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1840,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scheduler.scm:405: g393 */ t5=((C_word*)t0)[3]; f_1733(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1838 in for-each-loop392 in loop in k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1840,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_1830(t3,((C_word*)t0)[4],t2);} /* k1853 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1855,2,av);} a=C_alloc(6); t2=stub382(C_SCHEME_UNDEFINED,t1); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1722,a[2]=t4,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_1722(t6,((C_word*)t0)[2],*((C_word*)lf[11]+1));} /* k1887 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_1889,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1895,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* scheduler.scm:435: ##sys#print */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[33]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k1893 in k1887 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_1895,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1898,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* scheduler.scm:435: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1896 in k1893 in k1887 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_1898,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* scheduler.scm:435: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[32]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1899 in k1896 in k1893 in k1887 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1901,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1904,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:435: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1902 in k1899 in k1896 in k1893 in k1887 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1904,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1907,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:435: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[31]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1905 in k1902 in k1899 in k1896 in k1893 in k1887 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_1907,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1910,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scheduler.scm:435: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k1908 in k1905 in k1902 in k1899 in k1896 in k1893 in k1887 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1910,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1913,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:435: ##sys#write-char-0 */ t3=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(41); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k1911 in k1908 in k1905 in k1902 in k1899 in k1896 in k1893 in k1887 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1913,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1916,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:435: chicken.base#get-output-string */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1914 in k1911 in k1908 in k1905 in k1902 in k1899 in k1896 in k1893 in k1887 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_1916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1916,2,av);} t2=C_halt(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#thread-block-for-i/o! in k905 in k902 */ static void C_ccall f_1934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_1934,5,av);} a=C_alloc(14); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1938,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1953,a[2]=t3,a[3]=t2,a[4]=t7,a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_1953(t9,t5,*((C_word*)lf[11]+1));} /* k1936 in ##sys#thread-block-for-i/o! in k905 in k902 */ static void C_ccall f_1938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1938,2,av);} a=C_alloc(3); t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),lf[47]); t3=C_i_set_i_slot(((C_word*)t0)[2],C_fix(13),C_SCHEME_FALSE); t4=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_setslot(((C_word*)t0)[2],C_fix(11),t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* loop in ##sys#thread-block-for-i/o! in k905 in k902 */ static void C_fcall f_1953(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_1953,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t3=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,t3,*((C_word*)lf[11]+1)); t5=C_mutate((C_word*)lf[11]+1 /* (set! ##sys#fd-list ...) */,t4); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=C_u_i_car(t2); t4=C_u_i_car(t3); t5=C_eqp(((C_word*)t0)[2],t4); if(C_truep(t5)){ t6=C_u_i_cdr(t3); t7=C_a_i_cons(&a,2,((C_word*)t0)[3],t6); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_i_setslot(t3,C_fix(1),t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=t2; t7=C_u_i_cdr(t6); /* scheduler.scm:448: loop */ t9=t1; t10=t7; t1=t9; t2=t10; goto loop;}}} /* k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_2001,2,av);} a=C_alloc(11); t2=C_i_pairp(lf[10]); t3=t2; t4=C_i_pairp(lf[16]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2010,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t7=(C_truep(t3)?C_i_not(t5):C_SCHEME_FALSE); if(C_truep(t7)){ t8=C_u_i_caar(lf[10]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2252,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2263,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:460: scheme#round */ t11=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t8=t6;{ C_word *av2=av; av2[0]=t8; av2[1]=C_fix(0); f_2010(2,av2);}}} /* k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_2010,2,av);} a=C_alloc(9); t2=(C_truep(((C_word*)t0)[2])?stub509(C_SCHEME_UNDEFINED,((C_word*)t0)[2],t1):stub509(C_SCHEME_UNDEFINED,((C_word*)t0)[3],t1)); t3=C_eqp(C_fix(-1),t2); if(C_truep(t3)){ /* scheduler.scm:470: ##sys#force-primordial */ t4=*((C_word*)lf[18]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2034,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2036,a[2]=t6,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_2036(t8,t4,t2,C_fix(0),*((C_word*)lf[11]+1));} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k2032 in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2034,2,av);} t2=C_mutate((C_word*)lf[11]+1 /* (set! ##sys#fd-list ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_fcall f_2036(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(33,0,4)))){ C_save_and_reclaim_args((void *)trf_2036,5,t0,t1,t2,t3,t4);} a=C_alloc(33); t5=t2; t6=C_i_zerop(t5); t7=(C_truep(t6)?t6:C_i_nullp(t4)); if(C_truep(t7)){ t8=t4; t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=C_u_i_car(t4); t9=t8; t10=C_u_i_car(t9); t11=t10; t12=C_fd_input_ready(t11,t3); t13=C_fd_output_ready(t11,t3); t14=(C_truep(t12)?t12:t13); if(C_truep(t14)){ t15=C_u_i_cdr(t9); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2063,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t11,a[7]=t17,a[8]=t12,a[9]=t13,a[10]=((C_word)li3),tmp=(C_word)a,a+=11,tmp)); t19=((C_word*)t17)[1]; f_2063(t19,t1,t15,C_SCHEME_END_OF_LIST);} else{ t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2232,a[2]=t1,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t16=t3; t17=C_s_a_i_plus(&a,2,t16,C_fix(1)); t18=t4; t19=C_u_i_cdr(t18); /* scheduler.scm:511: loop */ t21=t15; t22=t2; t23=t17; t24=t19; t1=t21; t2=t22; t3=t23; t4=t24; goto loop;}}} /* loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_fcall f_2063(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(65,0,4)))){ C_save_and_reclaim_args((void *)trf_2063,4,t0,t1,t2,t3);} a=C_alloc(65); if(C_truep(C_i_nullp(t2))){ if(C_truep(C_i_nullp(t3))){ t4=((C_word*)t0)[2]; t5=C_s_a_i_minus(&a,2,t4,C_fix(1)); t6=((C_word*)t0)[3]; t7=C_s_a_i_plus(&a,2,t6,C_fix(1)); t8=C_slot(((C_word*)t0)[4],C_fix(1)); /* scheduler.scm:487: loop */ t9=((C_word*)((C_word*)t0)[5])[1]; f_2036(t9,t1,t5,t7,t8);} else{ t4=C_a_i_cons(&a,2,((C_word*)t0)[6],t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2098,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=((C_word*)t0)[2]; t8=C_s_a_i_minus(&a,2,t7,C_fix(1)); t9=((C_word*)t0)[3]; t10=C_s_a_i_plus(&a,2,t9,C_fix(1)); t11=C_slot(((C_word*)t0)[4],C_fix(1)); /* scheduler.scm:489: loop */ t12=((C_word*)((C_word*)t0)[5])[1]; f_2036(t12,t6,t8,t10,t11);}} else{ t4=C_u_i_car(t2); t5=t4; t6=C_slot(t5,C_fix(11)); t7=t6; if(C_truep(C_slot(t5,C_fix(13)))){ t8=t2; t9=C_u_i_cdr(t8); /* scheduler.scm:495: loop2 */ t24=t1; t25=t9; t26=t3; t1=t24; t2=t25; t3=t26; goto loop;} else{ t8=C_i_pairp(t7); if(C_truep(C_i_not(t8))){ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2132,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=t1,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_slot(t5,C_fix(4)))){ /* scheduler.scm:500: ##sys#remove-from-timeout-list */ t10=*((C_word*)lf[20]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t10=t9;{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_2132(2,av2);}}} else{ t9=C_u_i_car(t7); t10=C_eqp(((C_word*)t0)[6],t9); if(C_truep(C_i_not(t10))){ t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2156,a[2]=t1,a[3]=((C_word*)t0)[6],a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* scheduler.scm:504: chicken.base#open-output-string */ t12=*((C_word*)lf[27]+1);{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2185,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=t1,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp); t12=C_u_i_cdr(t7); t13=t11; t14=((C_word*)t0)[8]; t15=((C_word*)t0)[9]; t16=t12; t17=C_eqp(t16,C_SCHEME_TRUE); t18=(C_truep(t17)?t17:C_eqp(t16,lf[28])); if(C_truep(t18)){ t19=t13;{ C_word av2[2]; av2[0]=t19; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t19=C_eqp(t16,C_SCHEME_FALSE); t20=(C_truep(t19)?t19:C_eqp(t16,lf[29])); if(C_truep(t20)){ t21=t13;{ C_word av2[2]; av2[0]=t21; av2[1]=t15; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}} else{ t21=C_eqp(t16,lf[30]); if(C_truep(t21)){ t22=t13;{ C_word av2[2]; av2[0]=t22; av2[1]=(C_truep(t14)?t14:t15); ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ t22=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1889,a[2]=t13,a[3]=t15,a[4]=t14,a[5]=t16,tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:435: chicken.base#open-output-string */ t23=*((C_word*)lf[27]+1);{ C_word av2[2]; av2[0]=t23; av2[1]=t22; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}}}}}}}} /* k2096 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2098,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2130 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2132,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2135,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:501: ##sys#thread-basic-unblock! */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2133 in k2130 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2135,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scheduler.scm:502: loop2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2063(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} /* k2154 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_2156,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2162,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* scheduler.scm:504: ##sys#print */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[26]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k2160 in k2154 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2162,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2165,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_u_i_car(((C_word*)t0)[6]); /* scheduler.scm:504: ##sys#print */ t4=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2163 in k2160 in k2154 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2165,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2168,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:504: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[25]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2166 in k2163 in k2160 in k2154 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_2168,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2171,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* scheduler.scm:504: ##sys#print */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2169 in k2166 in k2163 in k2160 in k2154 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2171,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:504: ##sys#write-char-0 */ t3=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(41); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2172 in k2169 in k2166 in k2163 in k2160 in k2154 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2174,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2177,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:504: chicken.base#get-output-string */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2175 in k2172 in k2169 in k2166 in k2163 in k2160 in k2154 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2177,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_halt(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2183 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2185,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2188,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_slot(((C_word*)t0)[6],C_fix(4)))){ /* scheduler.scm:507: ##sys#remove-from-timeout-list */ t3=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2188(2,av2);}}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)t0)[5]); /* scheduler.scm:510: loop2 */ t5=((C_word*)((C_word*)t0)[3])[1]; f_2063(t5,((C_word*)t0)[4],t3,t4);}} /* k2186 in k2183 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2188,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2191,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:508: ##sys#thread-basic-unblock! */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2189 in k2186 in k2183 in loop2 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2191,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* scheduler.scm:509: loop2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2063(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} /* k2230 in loop in k2008 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2232,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2250 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,3)))){ C_save_and_reclaim((void *)f_2252,2,av);} a=C_alloc(36); t2=C_a_i_current_milliseconds(&a,1,C_SCHEME_FALSE); t3=C_s_a_i_minus(&a,2,t1,t2); /* scheduler.scm:462: scheme#max */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2261 in k1999 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_2263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2263,2,av);} /* scheduler.scm:460: scheme#inexact->exact */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* ##sys#clear-i/o-state-for-thread! in k905 in k902 */ static void C_fcall f_2268(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_2268,2,t1,t2);} a=C_alloc(11); t3=C_slot(t2,C_fix(11)); if(C_truep(C_i_pairp(t3))){ t4=C_slot(t2,C_fix(11)); t5=C_u_i_car(t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2282,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2284,a[2]=t6,a[3]=t2,a[4]=t9,a[5]=((C_word)li31),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_2284(t11,t7,*((C_word*)lf[11]+1));} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2280 in ##sys#clear-i/o-state-for-thread! in k905 in k902 */ static void C_ccall f_2282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2282,2,av);} t2=C_mutate((C_word*)lf[11]+1 /* (set! ##sys#fd-list ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in ##sys#clear-i/o-state-for-thread! in k905 in k902 */ static void C_fcall f_2284(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_2284,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_u_i_car(t2); t4=t3; t5=C_u_i_car(t4); t6=C_eqp(((C_word*)t0)[2],t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2306,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t8=C_u_i_cdr(t4); /* scheduler.scm:526: delq */ f_909(t7,((C_word*)t0)[3],t8);} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2325,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* scheduler.scm:531: loop */ t11=t7; t12=t9; t1=t11; t2=t12; goto loop;}}} /* k2304 in loop in ##sys#clear-i/o-state-for-thread! in k905 in k902 */ static void C_ccall f_2306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2306,2,av);} if(C_truep(C_i_nullp(t1))){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_i_setslot(((C_word*)t0)[4],C_fix(1),t1); t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2323 in loop in ##sys#clear-i/o-state-for-thread! in k905 in k902 */ static void C_ccall f_2325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2325,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#all-threads in k905 in k902 */ static void C_ccall f_2337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +10,c,6)))){ C_save_and_reclaim((void*)f_2337,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+10); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t3=C_i_nullp(t2); t4=(C_truep(t3)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2472,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp):C_u_i_car(t2)); t5=t4; t6=C_i_nullp(t2); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_slot(t2,C_fix(1))); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_u_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_slot(t7,C_fix(1))); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2355,a[2]=t13,a[3]=t5,a[4]=((C_word)li37),tmp=(C_word)a,a+=5,tmp)); t15=((C_word*)t13)[1]; f_2355(t15,t1,lf[16],t9);} /* loop in ##sys#all-threads in k905 in k902 */ static void C_fcall f_2355(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ C_save_and_reclaim_args((void *)trf_2355,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_cdr(t4); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2371,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=t2; t8=C_u_i_car(t7); /* scheduler.scm:544: cns */ t9=((C_word*)t0)[3];{ C_word av2[6]; av2[0]=t9; av2[1]=t6; av2[2]=lf[13]; av2[3]=C_SCHEME_FALSE; av2[4]=t8; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2378,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word)li36),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_2378(t7,t1,*((C_word*)lf[11]+1),t3);}} /* k2369 in loop in ##sys#all-threads in k905 in k902 */ static void C_ccall f_2371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2371,2,av);} /* scheduler.scm:544: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2355(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in loop in ##sys#all-threads in k905 in k902 */ static void C_fcall f_2378(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_2378,4,t0,t1,t2,t3);} a=C_alloc(14); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_cdr(t4); t6=C_u_i_caar(t2); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2397,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t9=t2; t10=C_u_i_car(t9); t11=C_u_i_cdr(t10); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2402,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=t13,a[6]=((C_word)li34),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_2402(t15,t8,t11);} else{ t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2427,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word)li35),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_2427(t7,t1,lf[10],t3);}} /* k2395 in loop in loop in ##sys#all-threads in k905 in k902 */ static void C_ccall f_2397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2397,2,av);} /* scheduler.scm:547: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2378(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in loop in loop in ##sys#all-threads in k905 in k902 */ static void C_fcall f_2402(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2402,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=((C_word*)t0)[2]; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_u_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2420,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t4,tmp=(C_word)a,a+=6,tmp); t6=t2; t7=C_u_i_cdr(t6); /* scheduler.scm:551: loop */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}} /* k2418 in loop in loop in loop in ##sys#all-threads in k905 in k902 */ static void C_ccall f_2420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2420,2,av);} /* scheduler.scm:551: cns */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[60]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* loop in loop in loop in ##sys#all-threads in k905 in k902 */ static void C_fcall f_2427(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){ C_save_and_reclaim_args((void *)trf_2427,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_cdr(t4); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2443,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_u_i_caar(t2); t8=t2; t9=C_u_i_car(t8); t10=C_u_i_cdr(t9); /* scheduler.scm:554: cns */ t11=((C_word*)t0)[3];{ C_word av2[6]; av2[0]=t11; av2[1]=t6; av2[2]=lf[61]; av2[3]=t7; av2[4]=t10; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2441 in loop in loop in loop in ##sys#all-threads in k905 in k902 */ static void C_ccall f_2443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2443,2,av);} /* scheduler.scm:554: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2427(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* f_2472 in ##sys#all-threads in k905 in k902 */ static void C_ccall f_2472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2472,6,av);} a=C_alloc(3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_cons(&a,2,t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* ##sys#fetch-and-clear-threads in k905 in k902 */ static void C_ccall f_2481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_2481,2,av);} a=C_alloc(5); t2=C_a_i_vector4(&a,4,lf[16],lf[17],*((C_word*)lf[11]+1),lf[10]); t3=lf[16] /* ready-queue-head */ =C_SCHEME_END_OF_LIST;; t4=lf[17] /* ready-queue-tail */ =C_SCHEME_END_OF_LIST;; t5=C_set_block_item(lf[11] /* ##sys#fd-list */,0,C_SCHEME_END_OF_LIST); t6=lf[10] /* ##sys#timeout-list */ =C_SCHEME_END_OF_LIST;; t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* ##sys#restore-threads in k905 in k902 */ static void C_ccall f_2491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2491,3,av);} t3=C_slot(t2,C_fix(0)); t4=C_mutate(&lf[16] /* (set! ready-queue-head ...) */,t3); t5=C_slot(t2,C_fix(1)); t6=C_mutate(&lf[17] /* (set! ready-queue-tail ...) */,t5); t7=C_slot(t2,C_fix(2)); t8=C_mutate((C_word*)lf[11]+1 /* (set! ##sys#fd-list ...) */,t7); t9=C_slot(t2,C_fix(3)); t10=C_mutate(&lf[10] /* (set! ##sys#timeout-list ...) */,t9); t11=t1;{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* ##sys#thread-unblock! in k905 in k902 */ static void C_ccall f_2510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2510,3,av);} a=C_alloc(4); t3=C_slot(t2,C_fix(3)); t4=C_eqp(lf[47],t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2520,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ t6=t5; f_2520(t6,t4);} else{ t6=C_slot(t2,C_fix(3)); t7=t5; f_2520(t7,C_eqp(lf[64],t6));}} /* k2518 in ##sys#thread-unblock! in k905 in k902 */ static void C_fcall f_2520(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_2520,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2523,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:583: ##sys#remove-from-timeout-list */ t3=*((C_word*)lf[20]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2521 in k2518 in ##sys#thread-unblock! in k905 in k902 */ static void C_ccall f_2523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2523,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2526,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:584: ##sys#clear-i/o-state-for-thread! */ f_2268(t2,((C_word*)t0)[3]);} /* k2524 in k2521 in k2518 in ##sys#thread-unblock! in k905 in k902 */ static void C_ccall f_2526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2526,2,av);} /* scheduler.scm:585: ##sys#thread-basic-unblock! */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* ##sys#thread-sleep! in k905 in k902 */ static void C_ccall f_2542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2542,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2548,a[2]=t2,a[3]=((C_word)li43),tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:591: ##sys#call-with-current-continuation */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t3; C_call_cc(3,av2);}} /* a2547 in ##sys#thread-sleep! in k905 in k902 */ static void C_ccall f_2548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2548,3,av);} a=C_alloc(7); t3=*((C_word*)lf[3]+1); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2560,a[2]=t2,a[3]=((C_word)li42),tmp=(C_word)a,a+=4,tmp); t5=C_i_setslot(*((C_word*)lf[3]+1),C_fix(1),t4); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2555,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:595: ##sys#thread-block-for-timeout! */ t7=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=*((C_word*)lf[3]+1); av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k2553 in a2547 in ##sys#thread-sleep! in k905 in k902 */ static void C_ccall f_2555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2555,2,av);} /* scheduler.scm:596: ##sys#schedule */ t2=*((C_word*)lf[2]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a2559 in a2547 in ##sys#thread-sleep! in k905 in k902 */ static void C_ccall f_2560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2560,2,av);} /* scheduler.scm:594: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.base#sleep-hook in k905 in k902 */ static void C_ccall f_2566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(69,c,2)))){ C_save_and_reclaim((void *)f_2566,3,av);} a=C_alloc(69); t3=C_s_a_i_times(&a,2,lf[67],t2); t4=C_s_a_i_plus(&a,2,C_a_i_current_milliseconds(&a,1,C_SCHEME_FALSE),t3); /* scheduler.scm:603: ##sys#thread-sleep! */ t5=*((C_word*)lf[65]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* ##sys#kill-other-threads in k905 in k902 */ static void C_ccall f_2580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_2580,3,av);} a=C_alloc(13); t3=*((C_word*)lf[3]+1); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2583,a[2]=t3,a[3]=((C_word)li46),tmp=(C_word)a,a+=4,tmp); t5=C_mutate((C_word*)lf[42]+1 /* (set! ##sys#primordial-thread ...) */,*((C_word*)lf[3]+1)); t6=C_a_i_list1(&a,1,*((C_word*)lf[3]+1)); t7=C_mutate(&lf[16] /* (set! ready-queue-head ...) */,t6); t8=C_mutate(&lf[17] /* (set! ready-queue-tail ...) */,lf[16]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2608,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* scheduler.scm:623: suspend */ t10=t4;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; av2[2]=*((C_word*)lf[3]+1); f_2583(3,av2);}} /* suspend in ##sys#kill-other-threads in k905 in k902 */ static void C_ccall f_2583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2583,3,av);} t3=C_eqp(t2,((C_word*)t0)[2]); t4=(C_truep(t3)?C_SCHEME_UNDEFINED:C_i_setslot(t2,C_fix(3),lf[70])); t5=C_i_set_i_slot(t2,C_fix(11),C_SCHEME_FALSE); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_set_i_slot(t2,C_fix(12),C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_ccall f_2608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_2608,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2609,a[2]=((C_word*)t0)[2],a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp); t3=lf[10]; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2620,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2687,a[2]=t6,a[3]=t2,a[4]=((C_word)li51),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_2687(t8,t4,lf[10]);} /* g646 in k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_fcall f_2609(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_2609,3,t0,t1,t2);} t3=C_slot(t2,C_fix(1)); /* scheduler.scm:624: suspend */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; f_2583(3,av2);}} /* k2618 in k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_ccall f_2620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_2620,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2621,a[2]=((C_word*)t0)[2],a[3]=((C_word)li49),tmp=(C_word)a,a+=4,tmp); t3=*((C_word*)lf[11]+1); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2654,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2664,a[2]=t6,a[3]=t2,a[4]=((C_word)li50),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_2664(t8,t4,*((C_word*)lf[11]+1));} /* g656 in k2618 in k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_fcall f_2621(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_2621,3,t0,t1,t2);} a=C_alloc(7); t3=((C_word*)t0)[2]; t4=C_slot(t2,C_fix(1)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2630,a[2]=t6,a[3]=t3,a[4]=((C_word)li48),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_2630(t8,t1,t4);} /* for-each-loop678 in g656 in k2618 in k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_fcall f_2630(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2630,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2640,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scheduler.scm:625: g679 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2638 in for-each-loop678 in g656 in k2618 in k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_ccall f_2640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2640,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2630(t3,((C_word*)t0)[4],t2);} /* k2652 in k2618 in k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_ccall f_2654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2654,2,av);} a=C_alloc(4); t2=lf[10] /* ##sys#timeout-list */ =C_SCHEME_END_OF_LIST;; t3=C_set_block_item(lf[11] /* ##sys#fd-list */,0,C_SCHEME_END_OF_LIST); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2659,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* scheduler.scm:628: thunk */ t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k2657 in k2652 in k2618 in k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_ccall f_2659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2659,2,av);} /* scheduler.scm:629: exit */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop655 in k2618 in k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_fcall f_2664(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2664,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2674,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scheduler.scm:625: g656 */ t5=((C_word*)t0)[3]; f_2621(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2672 in for-each-loop655 in k2618 in k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_ccall f_2674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2674,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2664(t3,((C_word*)t0)[4],t2);} /* for-each-loop645 in k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_fcall f_2687(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2687,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2697,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* scheduler.scm:624: g646 */ t5=((C_word*)t0)[3]; f_2609(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2695 in for-each-loop645 in k2606 in ##sys#kill-other-threads in k905 in k902 */ static void C_ccall f_2697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2697,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2687(t3,((C_word*)t0)[4],t2);} /* k902 */ static void C_ccall f_904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_904,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_907,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k905 in k902 */ static void C_ccall f_907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(73,c,5)))){ C_save_and_reclaim((void *)f_907,2,av);} a=C_alloc(73); t2=C_a_i_provide(&a,1,lf[0]); t3=C_mutate(&lf[1] /* (set! delq ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_909,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[2]+1 /* (set! ##sys#schedule ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_952,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[18]+1 /* (set! ##sys#force-primordial ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1170,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t6=lf[16] /* ready-queue-head */ =C_SCHEME_END_OF_LIST;; t7=lf[17] /* ready-queue-tail */ =C_SCHEME_END_OF_LIST;; t8=C_mutate((C_word*)lf[44]+1 /* (set! ##sys#ready-queue ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1181,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[41]+1 /* (set! ##sys#add-to-ready-queue ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1184,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t10=*((C_word*)lf[45]+1); t11=C_mutate((C_word*)lf[45]+1 /* (set! ##sys#interrupt-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1283,a[2]=t10,a[3]=((C_word)li15),tmp=(C_word)a,a+=4,tmp)); t12=lf[10] /* ##sys#timeout-list */ =C_SCHEME_END_OF_LIST;; t13=C_mutate((C_word*)lf[20]+1 /* (set! ##sys#remove-from-timeout-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1308,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[46]+1 /* (set! ##sys#thread-block-for-timeout! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1349,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[48]+1 /* (set! ##sys#thread-block-for-termination! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1418,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[51]+1 /* (set! ##sys#thread-kill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1548,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[19]+1 /* (set! ##sys#thread-basic-unblock! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1662,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[54]+1 /* (set! ##sys#default-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1674,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t19=C_set_block_item(lf[11] /* ##sys#fd-list */,0,C_SCHEME_END_OF_LIST); t20=C_mutate((C_word*)lf[58]+1 /* (set! ##sys#thread-block-for-i/o! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1934,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate(&lf[40] /* (set! ##sys#clear-i/o-state-for-thread! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2268,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[59]+1 /* (set! ##sys#all-threads ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2337,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate((C_word*)lf[62]+1 /* (set! ##sys#fetch-and-clear-threads ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2481,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate((C_word*)lf[63]+1 /* (set! ##sys#restore-threads ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2491,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate((C_word*)lf[43]+1 /* (set! ##sys#thread-unblock! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2510,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate((C_word*)lf[65]+1 /* (set! ##sys#thread-sleep! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2542,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate((C_word*)lf[66]+1 /* (set! chicken.base#sleep-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2566,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); t28=*((C_word*)lf[68]+1); t29=C_mutate((C_word*)lf[69]+1 /* (set! ##sys#kill-other-threads ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2580,a[2]=t28,a[3]=((C_word)li52),tmp=(C_word)a,a+=4,tmp)); t30=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t30; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t30+1)))(2,av2);}} /* delq in k905 in k902 */ static void C_fcall f_909(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_909,3,t1,t2,t3);} a=C_alloc(7); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_915,a[2]=t2,a[3]=t5,a[4]=((C_word)li0),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_915(t7,t1,t3);} /* loop in delq in k905 in k902 */ static void C_fcall f_915(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_915,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=C_eqp(((C_word*)t0)[2],t3); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_slot(t2,C_fix(0)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_942,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_slot(t2,C_fix(1)); /* scheduler.scm:162: loop */ t10=t7; t11=t8; t1=t10; t2=t11; goto loop;}}} /* k940 in loop in delq in k905 in k902 */ static void C_ccall f_942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_942,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#schedule in k905 in k902 */ static void C_ccall f_952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_952,2,av);} a=C_alloc(6); t2=*((C_word*)lf[3]+1); t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_slot(*((C_word*)lf[3]+1),C_fix(3)); t6=C_slot(*((C_word*)lf[3]+1),C_fix(5)); t7=C_i_setslot(t6,C_fix(0),*((C_word*)lf[4]+1)); t8=C_i_setslot(t6,C_fix(1),*((C_word*)lf[5]+1)); t9=C_i_setslot(t6,C_fix(2),*((C_word*)lf[6]+1)); t10=C_i_setslot(t6,C_fix(3),*((C_word*)lf[7]+1)); t11=C_i_setslot(t6,C_fix(4),*((C_word*)lf[8]+1)); t12=C_i_setslot(t6,C_fix(5),*((C_word*)lf[9]+1)); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_983,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t14=C_eqp(t5,lf[14]); t15=(C_truep(t14)?t14:C_eqp(t5,lf[13])); if(C_truep(t15)){ t16=C_i_set_i_slot(*((C_word*)lf[3]+1),C_fix(13),C_SCHEME_FALSE); /* scheduler.scm:184: ##sys#add-to-ready-queue */ t17=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t17; av2[1]=t13; av2[2]=*((C_word*)lf[3]+1); ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}} else{ t16=t13;{ C_word *av2=av; av2[0]=t16; av2[1]=C_SCHEME_UNDEFINED; f_983(2,av2);}}} /* k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_983,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_988,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li9),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_988(t5,((C_word*)t0)[3]);} /* loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_fcall f_988(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){ C_save_and_reclaim_args((void *)trf_988,2,t0,t1);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_992,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(lf[10]))){ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_992(2,av2);}} else{ t3=C_a_i_current_milliseconds(&a,1,C_SCHEME_FALSE); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1061,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word)li8),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_1061(t7,t2,lf[10]);}} /* k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_992,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_995,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ /* scheduler.scm:222: ##sys#force-primordial */ t3=*((C_word*)lf[18]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(*((C_word*)lf[11]+1)))){ t3=C_SCHEME_UNDEFINED; t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; f_995(2,av2);}} else{ t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2001,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1855,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* scheduler.scm:399: ##sys#length */ t7=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}} /* k993 in k990 in loop1 in k981 in ##sys#schedule in k905 in k902 */ static void C_ccall f_995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_995,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1000,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li2),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_1000(t5,((C_word*)t0)[3]);} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_scheduler_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("scheduler")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_scheduler_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(396))){ C_save(t1); C_rereclaim2(396*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,71); lf[0]=C_h_intern(&lf[0],9, C_text("scheduler")); lf[2]=C_h_intern(&lf[2],14, C_text("##sys#schedule")); lf[3]=C_h_intern(&lf[3],20, C_text("##sys#current-thread")); lf[4]=C_h_intern(&lf[4],19, C_text("##sys#dynamic-winds")); lf[5]=C_h_intern(&lf[5],20, C_text("##sys#standard-input")); lf[6]=C_h_intern(&lf[6],21, C_text("##sys#standard-output")); lf[7]=C_h_intern(&lf[7],20, C_text("##sys#standard-error")); lf[8]=C_h_intern(&lf[8],31, C_text("##sys#current-exception-handler")); lf[9]=C_h_intern(&lf[9],30, C_text("##sys#current-parameter-vector")); lf[11]=C_h_intern(&lf[11],13, C_text("##sys#fd-list")); lf[12]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010deadlock")); lf[13]=C_h_intern(&lf[13],5, C_text("ready")); lf[14]=C_h_intern(&lf[14],7, C_text("running")); lf[15]=C_h_intern(&lf[15],23, C_text("##sys#call-with-cthulhu")); lf[18]=C_h_intern(&lf[18],22, C_text("##sys#force-primordial")); lf[19]=C_h_intern(&lf[19],27, C_text("##sys#thread-basic-unblock!")); lf[20]=C_h_intern(&lf[20],30, C_text("##sys#remove-from-timeout-list")); lf[21]=C_h_intern(&lf[21],6, C_text("format")); lf[22]=C_h_intern(&lf[22],30, C_text("chicken.base#get-output-string")); lf[23]=C_h_intern(&lf[23],18, C_text("##sys#write-char-0")); lf[24]=C_h_intern(&lf[24],11, C_text("##sys#print")); lf[25]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013 (expected ")); lf[26]=C_decode_literal(C_heaptop,C_text("\376B\000\0009thread is registered for I/O on unknown file-descriptor: ")); lf[27]=C_h_intern(&lf[27],31, C_text("chicken.base#open-output-string")); lf[28]=C_h_intern_kw(&lf[28],5, C_text("input")); lf[29]=C_h_intern_kw(&lf[29],6, C_text("output")); lf[30]=C_h_intern_kw(&lf[30],3, C_text("all")); lf[31]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006, o = ")); lf[32]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 (i = ")); lf[33]=C_decode_literal(C_heaptop,C_text("\376B\000\000#fdset-test: invalid i/o direction: ")); lf[34]=C_h_intern(&lf[34],10, C_text("scheme#max")); lf[35]=C_h_intern(&lf[35],21, C_text("scheme#inexact->exact")); lf[36]=C_h_intern(&lf[36],12, C_text("scheme#round")); lf[37]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007 (fd = ")); lf[38]=C_decode_literal(C_heaptop,C_text("\376B\000\000%create-fdset: invalid i/o direction: ")); lf[39]=C_h_intern(&lf[39],12, C_text("##sys#length")); lf[41]=C_h_intern(&lf[41],24, C_text("##sys#add-to-ready-queue")); lf[42]=C_h_intern(&lf[42],23, C_text("##sys#primordial-thread")); lf[43]=C_h_intern(&lf[43],21, C_text("##sys#thread-unblock!")); lf[44]=C_h_intern(&lf[44],17, C_text("##sys#ready-queue")); lf[45]=C_h_intern(&lf[45],20, C_text("##sys#interrupt-hook")); lf[46]=C_h_intern(&lf[46],31, C_text("##sys#thread-block-for-timeout!")); lf[47]=C_h_intern(&lf[47],7, C_text("blocked")); lf[48]=C_h_intern(&lf[48],35, C_text("##sys#thread-block-for-termination!")); lf[49]=C_h_intern(&lf[49],4, C_text("dead")); lf[50]=C_h_intern(&lf[50],10, C_text("terminated")); lf[51]=C_h_intern(&lf[51],18, C_text("##sys#thread-kill!")); lf[52]=C_h_intern(&lf[52],18, C_text("condition-variable")); lf[53]=C_h_intern(&lf[53],6, C_text("thread")); lf[54]=C_h_intern(&lf[54],31, C_text("##sys#default-exception-handler")); lf[55]=C_h_intern(&lf[55],24, C_text("chicken.condition#signal")); lf[56]=C_h_intern(&lf[56],28, C_text("##sys#show-exception-warning")); lf[57]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011in thread")); lf[58]=C_h_intern(&lf[58],27, C_text("##sys#thread-block-for-i/o!")); lf[59]=C_h_intern(&lf[59],17, C_text("##sys#all-threads")); lf[60]=C_h_intern(&lf[60],3, C_text("i/o")); lf[61]=C_h_intern(&lf[61],7, C_text("timeout")); lf[62]=C_h_intern(&lf[62],29, C_text("##sys#fetch-and-clear-threads")); lf[63]=C_h_intern(&lf[63],21, C_text("##sys#restore-threads")); lf[64]=C_h_intern(&lf[64],8, C_text("sleeping")); lf[65]=C_h_intern(&lf[65],19, C_text("##sys#thread-sleep!")); lf[66]=C_h_intern(&lf[66],23, C_text("chicken.base#sleep-hook")); lf[67]=C_decode_literal(C_heaptop,C_text("\376U1000.0\000")); lf[68]=C_h_intern(&lf[68],17, C_text("chicken.base#exit")); lf[69]=C_h_intern(&lf[69],24, C_text("##sys#kill-other-threads")); lf[70]=C_h_intern(&lf[70],9, C_text("suspended")); C_register_lf2(lf,71,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_904,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[142] = { {C_text("f_1000:scheduler_2escm"),(void*)f_1000}, {C_text("f_1004:scheduler_2escm"),(void*)f_1004}, {C_text("f_1061:scheduler_2escm"),(void*)f_1061}, {C_text("f_1095:scheduler_2escm"),(void*)f_1095}, {C_text("f_1098:scheduler_2escm"),(void*)f_1098}, {C_text("f_1110:scheduler_2escm"),(void*)f_1110}, {C_text("f_1116:scheduler_2escm"),(void*)f_1116}, {C_text("f_1128:scheduler_2escm"),(void*)f_1128}, {C_text("f_1136:scheduler_2escm"),(void*)f_1136}, {C_text("f_1170:scheduler_2escm"),(void*)f_1170}, {C_text("f_1181:scheduler_2escm"),(void*)f_1181}, {C_text("f_1184:scheduler_2escm"),(void*)f_1184}, {C_text("f_1283:scheduler_2escm"),(void*)f_1283}, {C_text("f_1287:scheduler_2escm"),(void*)f_1287}, {C_text("f_1301:scheduler_2escm"),(void*)f_1301}, {C_text("f_1308:scheduler_2escm"),(void*)f_1308}, {C_text("f_1314:scheduler_2escm"),(void*)f_1314}, {C_text("f_1349:scheduler_2escm"),(void*)f_1349}, {C_text("f_1359:scheduler_2escm"),(void*)f_1359}, {C_text("f_1370:scheduler_2escm"),(void*)f_1370}, {C_text("f_1380:scheduler_2escm"),(void*)f_1380}, {C_text("f_1418:scheduler_2escm"),(void*)f_1418}, {C_text("f_1483:scheduler_2escm"),(void*)f_1483}, {C_text("f_1499:scheduler_2escm"),(void*)f_1499}, {C_text("f_1509:scheduler_2escm"),(void*)f_1509}, {C_text("f_1525:scheduler_2escm"),(void*)f_1525}, {C_text("f_1535:scheduler_2escm"),(void*)f_1535}, {C_text("f_1548:scheduler_2escm"),(void*)f_1548}, {C_text("f_1552:scheduler_2escm"),(void*)f_1552}, {C_text("f_1558:scheduler_2escm"),(void*)f_1558}, {C_text("f_1561:scheduler_2escm"),(void*)f_1561}, {C_text("f_1564:scheduler_2escm"),(void*)f_1564}, {C_text("f_1582:scheduler_2escm"),(void*)f_1582}, {C_text("f_1589:scheduler_2escm"),(void*)f_1589}, {C_text("f_1608:scheduler_2escm"),(void*)f_1608}, {C_text("f_1618:scheduler_2escm"),(void*)f_1618}, {C_text("f_1639:scheduler_2escm"),(void*)f_1639}, {C_text("f_1656:scheduler_2escm"),(void*)f_1656}, {C_text("f_1662:scheduler_2escm"),(void*)f_1662}, {C_text("f_1674:scheduler_2escm"),(void*)f_1674}, {C_text("f_1678:scheduler_2escm"),(void*)f_1678}, {C_text("f_1684:scheduler_2escm"),(void*)f_1684}, {C_text("f_1698:scheduler_2escm"),(void*)f_1698}, {C_text("f_1702:scheduler_2escm"),(void*)f_1702}, {C_text("f_1722:scheduler_2escm"),(void*)f_1722}, {C_text("f_1733:scheduler_2escm"),(void*)f_1733}, {C_text("f_1776:scheduler_2escm"),(void*)f_1776}, {C_text("f_1782:scheduler_2escm"),(void*)f_1782}, {C_text("f_1785:scheduler_2escm"),(void*)f_1785}, {C_text("f_1788:scheduler_2escm"),(void*)f_1788}, {C_text("f_1791:scheduler_2escm"),(void*)f_1791}, {C_text("f_1794:scheduler_2escm"),(void*)f_1794}, {C_text("f_1797:scheduler_2escm"),(void*)f_1797}, {C_text("f_1818:scheduler_2escm"),(void*)f_1818}, {C_text("f_1830:scheduler_2escm"),(void*)f_1830}, {C_text("f_1840:scheduler_2escm"),(void*)f_1840}, {C_text("f_1855:scheduler_2escm"),(void*)f_1855}, {C_text("f_1889:scheduler_2escm"),(void*)f_1889}, {C_text("f_1895:scheduler_2escm"),(void*)f_1895}, {C_text("f_1898:scheduler_2escm"),(void*)f_1898}, {C_text("f_1901:scheduler_2escm"),(void*)f_1901}, {C_text("f_1904:scheduler_2escm"),(void*)f_1904}, {C_text("f_1907:scheduler_2escm"),(void*)f_1907}, {C_text("f_1910:scheduler_2escm"),(void*)f_1910}, {C_text("f_1913:scheduler_2escm"),(void*)f_1913}, {C_text("f_1916:scheduler_2escm"),(void*)f_1916}, {C_text("f_1934:scheduler_2escm"),(void*)f_1934}, {C_text("f_1938:scheduler_2escm"),(void*)f_1938}, {C_text("f_1953:scheduler_2escm"),(void*)f_1953}, {C_text("f_2001:scheduler_2escm"),(void*)f_2001}, {C_text("f_2010:scheduler_2escm"),(void*)f_2010}, {C_text("f_2034:scheduler_2escm"),(void*)f_2034}, {C_text("f_2036:scheduler_2escm"),(void*)f_2036}, {C_text("f_2063:scheduler_2escm"),(void*)f_2063}, {C_text("f_2098:scheduler_2escm"),(void*)f_2098}, {C_text("f_2132:scheduler_2escm"),(void*)f_2132}, {C_text("f_2135:scheduler_2escm"),(void*)f_2135}, {C_text("f_2156:scheduler_2escm"),(void*)f_2156}, {C_text("f_2162:scheduler_2escm"),(void*)f_2162}, {C_text("f_2165:scheduler_2escm"),(void*)f_2165}, {C_text("f_2168:scheduler_2escm"),(void*)f_2168}, {C_text("f_2171:scheduler_2escm"),(void*)f_2171}, {C_text("f_2174:scheduler_2escm"),(void*)f_2174}, {C_text("f_2177:scheduler_2escm"),(void*)f_2177}, {C_text("f_2185:scheduler_2escm"),(void*)f_2185}, {C_text("f_2188:scheduler_2escm"),(void*)f_2188}, {C_text("f_2191:scheduler_2escm"),(void*)f_2191}, {C_text("f_2232:scheduler_2escm"),(void*)f_2232}, {C_text("f_2252:scheduler_2escm"),(void*)f_2252}, {C_text("f_2263:scheduler_2escm"),(void*)f_2263}, {C_text("f_2268:scheduler_2escm"),(void*)f_2268}, {C_text("f_2282:scheduler_2escm"),(void*)f_2282}, {C_text("f_2284:scheduler_2escm"),(void*)f_2284}, {C_text("f_2306:scheduler_2escm"),(void*)f_2306}, {C_text("f_2325:scheduler_2escm"),(void*)f_2325}, {C_text("f_2337:scheduler_2escm"),(void*)f_2337}, {C_text("f_2355:scheduler_2escm"),(void*)f_2355}, {C_text("f_2371:scheduler_2escm"),(void*)f_2371}, {C_text("f_2378:scheduler_2escm"),(void*)f_2378}, {C_text("f_2397:scheduler_2escm"),(void*)f_2397}, {C_text("f_2402:scheduler_2escm"),(void*)f_2402}, {C_text("f_2420:scheduler_2escm"),(void*)f_2420}, {C_text("f_2427:scheduler_2escm"),(void*)f_2427}, {C_text("f_2443:scheduler_2escm"),(void*)f_2443}, {C_text("f_2472:scheduler_2escm"),(void*)f_2472}, {C_text("f_2481:scheduler_2escm"),(void*)f_2481}, {C_text("f_2491:scheduler_2escm"),(void*)f_2491}, {C_text("f_2510:scheduler_2escm"),(void*)f_2510}, {C_text("f_2520:scheduler_2escm"),(void*)f_2520}, {C_text("f_2523:scheduler_2escm"),(void*)f_2523}, {C_text("f_2526:scheduler_2escm"),(void*)f_2526}, {C_text("f_2542:scheduler_2escm"),(void*)f_2542}, {C_text("f_2548:scheduler_2escm"),(void*)f_2548}, {C_text("f_2555:scheduler_2escm"),(void*)f_2555}, {C_text("f_2560:scheduler_2escm"),(void*)f_2560}, {C_text("f_2566:scheduler_2escm"),(void*)f_2566}, {C_text("f_2580:scheduler_2escm"),(void*)f_2580}, {C_text("f_2583:scheduler_2escm"),(void*)f_2583}, {C_text("f_2608:scheduler_2escm"),(void*)f_2608}, {C_text("f_2609:scheduler_2escm"),(void*)f_2609}, {C_text("f_2620:scheduler_2escm"),(void*)f_2620}, {C_text("f_2621:scheduler_2escm"),(void*)f_2621}, {C_text("f_2630:scheduler_2escm"),(void*)f_2630}, {C_text("f_2640:scheduler_2escm"),(void*)f_2640}, {C_text("f_2654:scheduler_2escm"),(void*)f_2654}, {C_text("f_2659:scheduler_2escm"),(void*)f_2659}, {C_text("f_2664:scheduler_2escm"),(void*)f_2664}, {C_text("f_2674:scheduler_2escm"),(void*)f_2674}, {C_text("f_2687:scheduler_2escm"),(void*)f_2687}, {C_text("f_2697:scheduler_2escm"),(void*)f_2697}, {C_text("f_904:scheduler_2escm"),(void*)f_904}, {C_text("f_907:scheduler_2escm"),(void*)f_907}, {C_text("f_909:scheduler_2escm"),(void*)f_909}, {C_text("f_915:scheduler_2escm"),(void*)f_915}, {C_text("f_942:scheduler_2escm"),(void*)f_942}, {C_text("f_952:scheduler_2escm"),(void*)f_952}, {C_text("f_983:scheduler_2escm"),(void*)f_983}, {C_text("f_988:scheduler_2escm"),(void*)f_988}, {C_text("f_992:scheduler_2escm"),(void*)f_992}, {C_text("f_995:scheduler_2escm"),(void*)f_995}, {C_text("toplevel:scheduler_2escm"),(void*)C_scheduler_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* S|applied compiler syntax: S| chicken.format#sprintf 3 S| scheme#for-each 6 S| ##sys#for-each 1 o|eliminated procedure checks: 136 o|specializations: o| 3 (chicken.base#add1 *) o| 2 (chicken.base#sub1 *) o| 1 (scheme#zero? *) o| 3 (##sys#check-output-port * * *) o| 10 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 3 (scheme#car pair) o| 20 (scheme#cdr pair) o| 4 (scheme#cdar (pair pair *)) (o e)|safe calls: 249 (o e)|assignments to immediate values: 12 o|inlining procedure: k917 o|inlining procedure: k917 o|inlining procedure: k1005 o|inlining procedure: k1005 o|contracted procedure: "(scheduler.scm:232) switch162" o|contracted procedure: "(scheduler.scm:170) ##sys#restore-thread-state-buffer" o|contracted procedure: "(scheduler.scm:227) remove-from-ready-queue" o|inlining procedure: k1206 o|inlining procedure: k1206 o|propagated global variable: first-pair222 ready-queue-head o|inlining procedure: k1045 o|inlining procedure: k1045 o|contracted procedure: "(scheduler.scm:224) ##sys#unblock-threads-for-i/o" o|inlining procedure: k2016 o|inlining procedure: k2016 o|inlining procedure: k2038 o|inlining procedure: k2038 o|inlining procedure: k2065 o|inlining procedure: k2065 o|inlining procedure: k2124 o|inlining procedure: k2124 o|substituted constant variable: a2158 o|substituted constant variable: a2159 o|inlining procedure: k2180 o|inlining procedure: k2180 o|contracted procedure: "(scheduler.scm:505) fdset-test" o|inlining procedure: k1859 o|inlining procedure: k1859 o|inlining procedure: k1877 o|substituted constant variable: a1891 o|substituted constant variable: a1892 o|inlining procedure: k1877 o|substituted constant variable: a1918 o|substituted constant variable: a1923 o|substituted constant variable: a1925 o|substituted constant variable: a1930 o|substituted constant variable: a1932 o|contracted procedure: "(scheduler.scm:465) g505506" o|contracted procedure: "(scheduler.scm:455) create-fdset" o|inlining procedure: k1724 o|inlining procedure: k1738 o|inlining procedure: k1755 o|inlining procedure: k1755 o|substituted constant variable: a1778 o|substituted constant variable: a1779 o|substituted constant variable: a1799 o|substituted constant variable: a1804 o|substituted constant variable: a1806 o|substituted constant variable: a1811 o|substituted constant variable: a1813 o|inlining procedure: k1738 o|inlining procedure: k1724 o|contracted procedure: "(scheduler.scm:402) g436437" o|inlining procedure: k1832 o|inlining procedure: k1832 o|contracted procedure: "(scheduler.scm:398) g379380" o|inlining procedure: k1063 o|inlining procedure: k1063 o|inlining procedure: k1084 o|inlining procedure: k1084 o|inlining procedure: k1118 o|inlining procedure: k1118 o|inlining procedure: k1140 o|inlining procedure: k1140 o|contracted procedure: "(scheduler.scm:180) ##sys#update-thread-state-buffer" o|propagated global variable: ct168 ##sys#current-thread o|inlining procedure: k1192 o|inlining procedure: k1192 o|inlining procedure: k1285 o|propagated global variable: ct246 ##sys#current-thread o|inlining procedure: k1285 o|inlining procedure: k1316 o|inlining procedure: k1316 o|inlining procedure: k1334 o|inlining procedure: k1334 o|inlining procedure: k1351 o|inlining procedure: k1372 o|inlining procedure: k1372 o|inlining procedure: k1351 o|inlining procedure: k1423 o|inlining procedure: k1423 o|inlining procedure: k1580 o|inlining procedure: k1591 o|inlining procedure: k1591 o|inlining procedure: k1580 o|inlining procedure: k1610 o|inlining procedure: k1610 o|inlining procedure: k1644 o|inlining procedure: k1644 o|contracted procedure: "(scheduler.scm:345) ##sys#abandon-mutexes" o|inlining procedure: k1461 o|inlining procedure: k1461 o|inlining procedure: k1527 o|contracted procedure: "(scheduler.scm:328) g287294" o|inlining procedure: k1481 o|inlining procedure: k1481 o|inlining procedure: k1501 o|contracted procedure: "(scheduler.scm:335) g301308" o|inlining procedure: k1501 o|inlining procedure: k1527 o|propagated global variable: pt370 ##sys#primordial-thread o|inlining procedure: k1955 o|inlining procedure: k1955 o|inlining procedure: k2270 o|inlining procedure: k2286 o|inlining procedure: k2286 o|inlining procedure: k2307 o|inlining procedure: k2307 o|inlining procedure: k2270 o|inlining procedure: k2357 o|inlining procedure: k2357 o|inlining procedure: k2380 o|inlining procedure: k2404 o|inlining procedure: k2404 o|inlining procedure: k2380 o|inlining procedure: k2429 o|inlining procedure: k2429 o|inlining procedure: k2512 o|inlining procedure: k2512 o|propagated global variable: ct635 ##sys#current-thread o|propagated global variable: primordial641 ##sys#current-thread o|inlining procedure: k2632 o|inlining procedure: k2632 o|inlining procedure: k2666 o|inlining procedure: k2666 o|propagated global variable: g662674 ##sys#fd-list o|inlining procedure: k2689 o|inlining procedure: k2689 o|propagated global variable: g652667 ##sys#timeout-list o|propagated global variable: primordial641 ##sys#current-thread o|replaced variables: 275 o|removed binding forms: 179 o|inlining procedure: k1216 o|inlining procedure: k1216 o|substituted constant variable: r12072714 o|inlining procedure: k2241 o|inlining procedure: k2241 o|substituted constant variable: r11192745 o|substituted constant variable: r11412748 o|substituted constant variable: r22872810 o|converted assignments to bindings: (suspend642) o|simplifications: ((let . 1)) o|replaced variables: 18 o|removed binding forms: 300 o|inlining procedure: k1014 o|inlining procedure: k1821 o|replaced variables: 11 o|removed binding forms: 31 o|substituted constant variable: r10152928 o|contracted procedure: k1715 o|replaced variables: 2 o|removed binding forms: 13 o|removed conditional forms: 1 o|removed binding forms: 2 o|simplifications: ((if . 17) (##core#call . 242)) o| call simplifications: o| scheme#* o| scheme#+ o| ##sys#call-with-current-continuation o| scheme#vector o| scheme#list 2 o| ##sys#structure? 2 o| scheme#> o| scheme#< o| chicken.fixnum#fx= 2 o| scheme#set-cdr! 3 o| scheme#equal? o| scheme#>= o| ##sys#setislot 18 o| scheme#caar 7 o| scheme#- 2 o| chicken.fixnum#fx> o| scheme#pair? 16 o| scheme#car 12 o| scheme#cdr 8 o| scheme#not 6 o| ##sys#setslot 30 o| scheme#null? 26 o| scheme#eq? 26 o| scheme#cons 16 o| ##sys#slot 57 o|contracted procedure: k920 o|contracted procedure: k948 o|contracted procedure: k926 o|contracted procedure: k936 o|contracted procedure: k944 o|contracted procedure: k975 o|contracted procedure: k1008 o|contracted procedure: k1020 o|contracted procedure: k1014 o|contracted procedure: k1039 o|contracted procedure: k1029 o|contracted procedure: k958 o|contracted procedure: k965 o|contracted procedure: k972 o|contracted procedure: k1255 o|contracted procedure: k1259 o|contracted procedure: k1263 o|contracted procedure: k1267 o|contracted procedure: k1271 o|contracted procedure: k1275 o|contracted procedure: k1279 o|contracted procedure: k1225 o|contracted procedure: k1209 o|contracted procedure: k1212 o|propagated global variable: first-pair222 ready-queue-head o|contracted procedure: k1220 o|contracted procedure: k1048 o|contracted procedure: k2002 o|contracted procedure: k2005 o|contracted procedure: k2013 o|contracted procedure: k2019 o|contracted procedure: k2028 o|contracted procedure: k2042 o|contracted procedure: k2045 o|contracted procedure: k2048 o|contracted procedure: k2054 o|contracted procedure: k2068 o|contracted procedure: k2074 o|contracted procedure: k2085 o|contracted procedure: k2092 o|contracted procedure: k2104 o|contracted procedure: k2107 o|contracted procedure: k2110 o|contracted procedure: k2116 o|contracted procedure: k2223 o|contracted procedure: k2127 o|contracted procedure: k2141 o|contracted procedure: k2219 o|contracted procedure: k2215 o|contracted procedure: k2150 o|contracted procedure: k2197 o|contracted procedure: k2209 o|contracted procedure: k1862 o|contracted procedure: k1865 o|contracted procedure: k1871 o|contracted procedure: k1874 o|contracted procedure: k1880 o|contracted procedure: k2244 o|contracted procedure: k2247 o|contracted procedure: k2257 o|contracted procedure: k1727 o|contracted procedure: k1730 o|contracted procedure: k1735 o|contracted procedure: k1741 o|contracted procedure: k1748 o|contracted procedure: k1751 o|contracted procedure: k1758 o|contracted procedure: k1761 o|contracted procedure: k1768 o|contracted procedure: k1835 o|contracted procedure: k1845 o|contracted procedure: k1849 o|contracted procedure: k1054 o|contracted procedure: k1066 o|contracted procedure: k1070 o|contracted procedure: k1075 o|contracted procedure: k1081 o|contracted procedure: k1087 o|contracted procedure: k1090 o|contracted procedure: k1111 o|contracted procedure: k1121 o|contracted procedure: k1130 o|contracted procedure: k1137 o|contracted procedure: k1143 o|contracted procedure: k1154 o|contracted procedure: k1157 o|contracted procedure: k1160 o|contracted procedure: k1231 o|propagated global variable: ct168 ##sys#current-thread o|contracted procedure: k1234 o|contracted procedure: k1237 o|contracted procedure: k1240 o|contracted procedure: k1243 o|contracted procedure: k1246 o|contracted procedure: k1172 o|contracted procedure: k1186 o|contracted procedure: k1189 o|contracted procedure: k1196 o|contracted procedure: k1192 o|contracted procedure: k1291 o|contracted procedure: k1294 o|contracted procedure: k1319 o|contracted procedure: k1322 o|contracted procedure: k1325 o|contracted procedure: k1345 o|contracted procedure: k1331 o|contracted procedure: k1354 o|contracted procedure: k1360 o|contracted procedure: k1363 o|contracted procedure: k1375 o|contracted procedure: k1392 o|contracted procedure: k1388 o|contracted procedure: k1400 o|contracted procedure: k1396 o|contracted procedure: k1407 o|contracted procedure: k1414 o|contracted procedure: k1420 o|contracted procedure: k1426 o|contracted procedure: k1429 o|contracted procedure: k1449 o|contracted procedure: k1445 o|contracted procedure: k1432 o|contracted procedure: k1435 o|contracted procedure: k1438 o|contracted procedure: k1553 o|contracted procedure: k1565 o|contracted procedure: k1568 o|contracted procedure: k1571 o|contracted procedure: k1574 o|contracted procedure: k1577 o|contracted procedure: k1586 o|contracted procedure: k1601 o|contracted procedure: k1594 o|contracted procedure: k1613 o|contracted procedure: k1623 o|contracted procedure: k1627 o|contracted procedure: k1630 o|contracted procedure: k1641 o|contracted procedure: k1647 o|contracted procedure: k1658 o|contracted procedure: k1458 o|contracted procedure: k1464 o|contracted procedure: k1530 o|contracted procedure: k1540 o|contracted procedure: k1544 o|contracted procedure: k1469 o|contracted procedure: k1472 o|contracted procedure: k1475 o|contracted procedure: k1478 o|contracted procedure: k1487 o|contracted procedure: k1504 o|contracted procedure: k1514 o|contracted procedure: k1518 o|contracted procedure: k1664 o|contracted procedure: k1667 o|contracted procedure: k1679 o|contracted procedure: k1688 o|contracted procedure: k1691 o|propagated global variable: pt370 ##sys#primordial-thread o|propagated global variable: pt370 ##sys#primordial-thread o|contracted procedure: k1939 o|contracted procedure: k1942 o|contracted procedure: k1949 o|contracted procedure: k1958 o|contracted procedure: k1966 o|contracted procedure: k1962 o|contracted procedure: k1969 o|contracted procedure: k1993 o|contracted procedure: k1975 o|contracted procedure: k1982 o|contracted procedure: k2333 o|contracted procedure: k2273 o|contracted procedure: k2329 o|contracted procedure: k2276 o|contracted procedure: k2289 o|contracted procedure: k2292 o|contracted procedure: k2295 o|contracted procedure: k2301 o|contracted procedure: k2310 o|contracted procedure: k2314 o|contracted procedure: k2469 o|contracted procedure: k2339 o|contracted procedure: k2463 o|contracted procedure: k2342 o|contracted procedure: k2457 o|contracted procedure: k2345 o|contracted procedure: k2451 o|contracted procedure: k2348 o|contracted procedure: k2360 o|contracted procedure: k2383 o|contracted procedure: k2392 o|contracted procedure: k2407 o|contracted procedure: k2414 o|contracted procedure: k2432 o|contracted procedure: k2445 o|contracted procedure: k2483 o|contracted procedure: k2494 o|contracted procedure: k2498 o|contracted procedure: k2502 o|contracted procedure: k2506 o|contracted procedure: k2538 o|contracted procedure: k2515 o|contracted procedure: k2534 o|contracted procedure: k2550 o|propagated global variable: ct635 ##sys#current-thread o|contracted procedure: k2576 o|contracted procedure: k2572 o|contracted procedure: k2594 o|contracted procedure: k2585 o|contracted procedure: k2588 o|contracted procedure: k2602 o|contracted procedure: k2615 o|contracted procedure: k2623 o|contracted procedure: k2635 o|contracted procedure: k2645 o|contracted procedure: k2649 o|contracted procedure: k2669 o|contracted procedure: k2679 o|contracted procedure: k2683 o|contracted procedure: k2692 o|contracted procedure: k2702 o|contracted procedure: k2706 o|propagated global variable: primordial641 ##sys#current-thread o|simplifications: ((let . 44)) o|removed binding forms: 217 o|replaced variables: 69 o|removed binding forms: 24 o|contracted procedure: k978 o|contracted procedure: k961 o|propagated global variable: ct168 ##sys#current-thread o|propagated global variable: ct168 ##sys#current-thread o|removed binding forms: 2 o|replaced variables: 2 o|removed binding forms: 1 o|removed binding forms: 1 o|direct leaf routine/allocation: loop252 0 o|converted assignments to bindings: (loop252) o|simplifications: ((let . 1)) o|customizable procedures: (g646666 for-each-loop645669 g656673 for-each-loop655692 for-each-loop678688 k2518 loop608 loop605 loop601 loop598 loop567 loop489 for-each-loop300311 for-each-loop286319 delq k1556 g335342 for-each-loop334345 k1378 loop261 k1108 ##sys#clear-i/o-state-for-thread! loop177 g393400 for-each-loop392432 loop385 loop2534 loop520 k1002 loop2193 loop1175 loop154) o|calls to known targets: 80 o|identified direct recursive calls: f_915 1 o|identified direct recursive calls: f_2063 1 o|identified direct recursive calls: f_2036 1 o|identified direct recursive calls: f_1061 1 o|identified direct recursive calls: f_1314 1 o|identified direct recursive calls: f_1953 1 o|identified direct recursive calls: f_2284 1 o|identified direct recursive calls: f_2402 1 o|fast box initializations: 21 o|fast global references: 31 o|fast global assignments: 23 o|dropping unused closure argument: f_2268 o|dropping unused closure argument: f_909 */ /* end of file */ chicken-5.1.0/chicken.fixnum.import.c0000644000175000017500000002227613502227773017336 0ustar sjamaansjamaan/* Generated from chicken.fixnum.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.fixnum.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.fixnum.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.fixnum.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(661))){ C_save(t1); C_rereclaim2(661*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],14, C_text("chicken.fixnum")); lf[2]=C_h_intern(&lf[2],7, C_text("library")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx/\077\376\001\000\000\023\001chicken.fixnum#fx/\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx\052\077\376\001\000\000\023\001chicken.f" "ixnum#fx\052\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx-\077\376\001\000\000\023\001chicken.fixnum#fx-\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx+\077\376\001\000\000\023" "\001chicken.fixnum#fx+\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxrem\376\001\000\000\024\001chicken.fixnum#fxrem\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\005\001fxmod\376\001\000\000\024\001chicken.fixnum#fxmod\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxgcd\376\001\000\000\024\001chicken.fixnum#fxgc" "d\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fx/\376\001\000\000\022\001chicken.fixnum#fx/\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxlen\376\001\000\000\024\001chicken.f" "ixnum#fxlen\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fxeven\077\376\001\000\000\026\001chicken.fixnum#fxeven\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001fx" "odd\077\376\001\000\000\025\001chicken.fixnum#fxodd\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxshr\376\001\000\000\024\001chicken.fixnum#fxshr\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxshl\376\001\000\000\024\001chicken.fixnum#fxshl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxnot\376\001\000\000\024\001chicken." "fixnum#fxnot\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxxor\376\001\000\000\024\001chicken.fixnum#fxxor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxior" "\376\001\000\000\024\001chicken.fixnum#fxior\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxand\376\001\000\000\024\001chicken.fixnum#fxand\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\005\001fxneg\376\001\000\000\024\001chicken.fixnum#fxneg\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxmax\376\001\000\000\024\001chicken.fixnu" "m#fxmax\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxmin\376\001\000\000\024\001chicken.fixnum#fxmin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx<=\376\001\000\000\023\001" "chicken.fixnum#fx<=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx>=\376\001\000\000\023\001chicken.fixnum#fx>=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001" "fx<\376\001\000\000\022\001chicken.fixnum#fx<\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fx>\376\001\000\000\022\001chicken.fixnum#fx>\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\003\001fx=\376\001\000\000\022\001chicken.fixnum#fx=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fx\052\376\001\000\000\022\001chicken.fixnum#fx\052\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\003\001fx-\376\001\000\000\022\001chicken.fixnum#fx-\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fx+\376\001\000\000\022\001chicken.fixnum#f" "x+\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001fixnum-precision\376\001\000\000\037\001chicken.fixnum#fixnum-precision\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\013\001fixnum-bits\376\001\000\000\032\001chicken.fixnum#fixnum-bits\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001most-negative-" "fixnum\376\001\000\000#\001chicken.fixnum#most-negative-fixnum\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001most-positive-fix" "num\376\001\000\000#\001chicken.fixnum#most-positive-fixnum\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2efixnum_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2efixnum_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2efixnum_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2efixnum_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2efixnum_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/chicken.syntax.import.scm0000644000175000017500000000426613502227553017711 0ustar sjamaansjamaan;;;; chicken.syntax.import.scm - import library for "chicken.syntax" module ; ; Copyright (c) 2017-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. ;; NOTE: This library is currently injected in every toplevel including ;; the default macro environment, so the import library _must_ be ;; predefined (it cannot be emitted, as the compiler needs it already) (##sys#register-core-module 'chicken.syntax 'expand '((expand . chicken.syntax#expand) (get-line-number . chicken.syntax#get-line-number) (strip-syntax . chicken.syntax#strip-syntax) (syntax-error . chicken.syntax#syntax-error) (er-macro-transformer . chicken.syntax#er-macro-transformer) (ir-macro-transformer . chicken.syntax#ir-macro-transformer)) ##sys#chicken.syntax-macro-environment) chicken-5.1.0/chicken.flonum.import.c0000644000175000017500000002510513502227773017322 0ustar sjamaansjamaan/* Generated from chicken.flonum.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.flonum.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.flonum.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.flonum.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(861))){ C_save(t1); C_rereclaim2(861*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],14, C_text("chicken.flonum")); lf[2]=C_h_intern(&lf[2],7, C_text("library")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001flonum-print-precision\376\001\000\000%\001chicken.flonum#flonum-print-precisio" "n\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001fpinteger\077\376\001\000\000\031\001chicken.flonum#fpinteger\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpabs\376" "\001\000\000\024\001chicken.flonum#fpabs\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001fpsqrt\376\001\000\000\025\001chicken.flonum#fpsqrt\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\005\001fplog\376\001\000\000\024\001chicken.flonum#fplog\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001fpexpt\376\001\000\000\025\001chicken.flo" "num#fpexpt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpexp\376\001\000\000\024\001chicken.flonum#fpexp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fpatan2" "\376\001\000\000\026\001chicken.flonum#fpatan2\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001fpatan\376\001\000\000\025\001chicken.flonum#fpatan\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\006\001fpacos\376\001\000\000\025\001chicken.flonum#fpacos\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001fpasin\376\001\000\000\025\001chicke" "n.flonum#fpasin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fptan\376\001\000\000\024\001chicken.flonum#fptan\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fp" "cos\376\001\000\000\024\001chicken.flonum#fpcos\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpsin\376\001\000\000\024\001chicken.flonum#fpsin\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\011\001fpceiling\376\001\000\000\030\001chicken.flonum#fpceiling\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fpround\376\001\000\000\026\001" "chicken.flonum#fpround\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001fptruncate\376\001\000\000\031\001chicken.flonum#fptruncate\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fpfloor\376\001\000\000\026\001chicken.flonum#fpfloor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpmin\376\001\000\000\024\001chi" "cken.flonum#fpmin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpmax\376\001\000\000\024\001chicken.flonum#fpmax\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001" "fpneg\376\001\000\000\024\001chicken.flonum#fpneg\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fp<=\376\001\000\000\023\001chicken.flonum#fp<=\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\004\001fp>=\376\001\000\000\023\001chicken.flonum#fp>=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fp<\376\001\000\000\022\001chicken.flonum" "#fp<\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fp>\376\001\000\000\022\001chicken.flonum#fp>\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fp=\376\001\000\000\022\001chicken." "flonum#fp=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fp/\077\376\001\000\000\023\001chicken.flonum#fp/\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpgcd\376\001\000\000" "\024\001chicken.flonum#fpgcd\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fp/\376\001\000\000\022\001chicken.flonum#fp/\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003" "\001fp\052\376\001\000\000\022\001chicken.flonum#fp\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fp-\376\001\000\000\022\001chicken.flonum#fp-\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\003\001fp+\376\001\000\000\022\001chicken.flonum#fp+\376\003\000\000\002\376\003\000\000\002\376\001\000\000\037\001flonum-minimum-decimal-exponen" "t\376\001\000\000.\001chicken.flonum#flonum-minimum-decimal-exponent\376\003\000\000\002\376\003\000\000\002\376\001\000\000\037\001flonum-maxi" "mum-decimal-exponent\376\001\000\000.\001chicken.flonum#flonum-maximum-decimal-exponent\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\027\001flonum-minimum-exponent\376\001\000\000&\001chicken.flonum#flonum-minimum-exponent\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\027\001flonum-maximum-exponent\376\001\000\000&\001chicken.flonum#flonum-maximum-exponent\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\030\001flonum-decimal-precision\376\001\000\000\047\001chicken.flonum#flonum-decimal-precis" "ion\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001flonum-precision\376\001\000\000\037\001chicken.flonum#flonum-precision\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\016\001flonum-epsilon\376\001\000\000\035\001chicken.flonum#flonum-epsilon\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001flonum-" "radix\376\001\000\000\033\001chicken.flonum#flonum-radix\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001minimum-flonum\376\001\000\000\035\001chicke" "n.flonum#minimum-flonum\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001maximum-flonum\376\001\000\000\035\001chicken.flonum#maximu" "m-flonum\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eflonum_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eflonum_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eflonum_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eflonum_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eflonum_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/Makefile.mingw-msys0000644000175000017500000000772713502227553016521 0ustar sjamaansjamaan# Makefile.mingw - configuration for MinGW (MSYS) -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration DLLSINPATH = 1 ARCH ?= x86 WINDOWS = 1 # file extensions SO = .dll EXE = .exe # options C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os endif endif C_COMPILER_SHARED_OPTIONS = -DPIC LINKER_OPTIONS += -Wl,--enable-auto-import LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared LIBRARIES = -lm -lws2_32 LIBCHICKEN_SO_LINKER_OPTIONS = -Wl,--out-implib,lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).dll.a LIBCHICKEN_SO_LIBRARIES = -lm -lws2_32 LIBCHICKEN_IMPORT_LIBRARY = lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).dll.a # Don't use "install" program as it is broken in some Mingw versions and # Vista doesn't like it, anyway. INSTALL_PROGRAM = cp INSTALL_PROGRAM_SHARED_LIBRARY_OPTIONS = -r INSTALL_PROGRAM_STATIC_LIBRARY_OPTIONS = -r INSTALL_PROGRAM_EXECUTABLE_OPTIONS = -r INSTALL_PROGRAM_FILE_OPTIONS = -r MAKEDIR_COMMAND = mkdir MAKEDIR_COMMAND_OPTIONS = -p # special files CHICKEN_CONFIG_H = chicken-config.h POSIXFILE = posixwin # select default and internal settings include $(SRCDIR)/defaults.make chicken-config.h: chicken-defaults.h echo "/* GENERATED */" >$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define NO_POSIX_POLL 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_DIRECT_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_LOADLIBRARY 1" >>$@ echo "#define HAVE_GETPROCADDRESS 1" >>$@ echo "#define C_WINDOWS_SHELL 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make chicken-5.1.0/chicken.flonum.import.scm0000644000175000017500000000400613502227727017656 0ustar sjamaansjamaan;;;; chicken.flonum.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.flonum 'library (scheme#list) '((flonum-print-precision . chicken.flonum#flonum-print-precision) (fpinteger? . chicken.flonum#fpinteger?) (fpabs . chicken.flonum#fpabs) (fpsqrt . chicken.flonum#fpsqrt) (fplog . chicken.flonum#fplog) (fpexpt . chicken.flonum#fpexpt) (fpexp . chicken.flonum#fpexp) (fpatan2 . chicken.flonum#fpatan2) (fpatan . chicken.flonum#fpatan) (fpacos . chicken.flonum#fpacos) (fpasin . chicken.flonum#fpasin) (fptan . chicken.flonum#fptan) (fpcos . chicken.flonum#fpcos) (fpsin . chicken.flonum#fpsin) (fpceiling . chicken.flonum#fpceiling) (fpround . chicken.flonum#fpround) (fptruncate . chicken.flonum#fptruncate) (fpfloor . chicken.flonum#fpfloor) (fpmin . chicken.flonum#fpmin) (fpmax . chicken.flonum#fpmax) (fpneg . chicken.flonum#fpneg) (fp<= . chicken.flonum#fp<=) (fp>= . chicken.flonum#fp>=) (fp< . chicken.flonum#fp<) (fp> . chicken.flonum#fp>) (fp= . chicken.flonum#fp=) (fp/? . chicken.flonum#fp/?) (fpgcd . chicken.flonum#fpgcd) (fp/ . chicken.flonum#fp/) (fp* . chicken.flonum#fp*) (fp- . chicken.flonum#fp-) (fp+ . chicken.flonum#fp+) (flonum-minimum-decimal-exponent . chicken.flonum#flonum-minimum-decimal-exponent) (flonum-maximum-decimal-exponent . chicken.flonum#flonum-maximum-decimal-exponent) (flonum-minimum-exponent . chicken.flonum#flonum-minimum-exponent) (flonum-maximum-exponent . chicken.flonum#flonum-maximum-exponent) (flonum-decimal-precision . chicken.flonum#flonum-decimal-precision) (flonum-precision . chicken.flonum#flonum-precision) (flonum-epsilon . chicken.flonum#flonum-epsilon) (flonum-radix . chicken.flonum#flonum-radix) (minimum-flonum . chicken.flonum#minimum-flonum) (maximum-flonum . chicken.flonum#maximum-flonum)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/CHICKEN.icns0000644000175000017500000010271313213463160014654 0ustar sjamaansjamaanicns…Ëics#H<>?ïþþÿþÿþÿþþ?üøÀ€€<>?ïþþÿþÿþÿþþ?üøÀ€€is32ÿÿ€ÿ‡ÿÿ†ÿ‚ÿ€‚ÿ€…ÿ‚ÿÿŒÿÛÿ‹ÿÿ‰ÿ€ÿ…ÿƒÿ‚ÿ…ÿˆÿÿÿÕÚÕ‡ÿÒã÷߆ÿ¸ßõöဂÿ€¢áóóàÛÝÒ‚×ƶäñííóîèæÞÌÜèèÚáõí îðõõåï÷éÙÔçï€í êæîííïîñäÌáôíêÛêíñæÈçñíîÐæî€íïçÅÛò€íîã×Ùê€íïçÍäø€íëíèì€í ùãÓåøôïï€îïôöèÛÿªÜäçíññöéãܪ€ÿ ™ÊÖàÜØͪƒÿáÉÝ׿…ÿÒØÛÖ̃ÿÿÿZXG‡ÿXIQL†ÿ8HSSL€‚ÿ€EJRQJOLX‚U*HKQPORPPOJ:PRNUKRP QQSRJPSM`HNQ€P MIQPPQPQNfdQPM>MPQN[zNPQ3IQ€PQLAGR€PQF:7€ÿBMQPQLFJ^ÿÿW[WPQQPPQF\€ÿOIQ‡PQ…PQQPPRRPE68EFQQPPQOPPIŒÿÿgGQ‘P QQPPQPPRFAPRQ€PQ€PYÿÿªGQ’PQQƒPQR…PQLPÿFKQ¤POOÿšNPQ“PM]ÿQPQOQ’PMTÿÿKŽPR>2QPPQŽPMUÿAEQPQ0?)CRPOXÿWLŽPNISD2R‘PMÿhKPQQI&‘PRBÿvIPS5JQPQJ™“HPNBQPQFSUNPS6;5RPRE<QJQPQN.L*RQQPRD3ÄOŽP R6IP$FJ?QŒPQHNP N,RR3BQPL•cGQŒPL;LPPO3;QŽPJÿÿMOPRQ€PSRŽPMHÿÿ†GQ£PQOÌ€ÿcNR¡QRRf‚ÿNDRQžPQIj„ÿUGPRœQSg}†ÿcAEQR–QRQPVfÿˆÿYIFPRR‘QRQLJZˆ‹ÿ ÿFBBJOPQQŠPQQOJEGÿÿ ÿoSIHBIKQNOQP QRPMIHHXÌ“ÿ€ÿfMW”_@IQQSMC==7H„ÿ˜ÿƒ=NN/+@J€¡ÿEJ>oÿ£ÿÿ8OC; ÿ‚ÿ79RP5A¹Ÿÿ®—iLGA@QORN;;=Nª›ÿZPRFE:CKMB>DDLÿ fy|`u^‘™ÿh8mk .Ì""' Ûÿ¥_ï÷:ªÿÿüÿÿÿH±ÿÿÿÿÿÿöHEÿÿÿÿÿÿÿÿí ÿÿÿÿÿÿÿÿŸuõÿÿÿÿÿÿÿÿj~ñÿÿÿÿÿÿÿÿÿÿÚ U¹õÿÿÿÿÿÿÿÿÿñ²ÿÿÿÿÿÿÿÿÿ¿bÿÿÿÿÿÿÿÿÿÿ±œ‡|Q< A'~ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêÌ“LqÛÿÑ$óÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿîɆ@.šèÿÿÿÿ3¤ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÖ‚+ j¾üÿÿÿÿÿÿtvÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿù¤y¿ñÿÿÿÿÿÿÿÿÿf;ùÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÏÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿOmÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔ ëÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ´pÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ Õÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶+ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµlÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂæÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêáÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿû+hÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ78ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ< Ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ7‚ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð)÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ½‹ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ[ÝÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔ @ûÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþ>Qøÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿô[Eäÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ×=¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðu JÅÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿù–L»òÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿß}) \£×ôÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿí­V#VOCcæÿÿÿÿÿÿÿå™Q¾ÿÿÿöŸH„ÿÿØ)Îÿÿ–‰ÿÿÿëR  )?|×ÿÿÿÿÿÿêʬ üÿúñýÿçžãáo‚a? =F+ =Û6it32#é˜ÿð€ÿ€ÿƒìÿƒÿÿ¿ÿêÿ…ÿ„ÿèÿ…ÿ†ÿçÿÿæÿH‘ÿåÿ3’ÿäÿ¥’ÿåÿ”ÿãÿ®•ÿâÿ—ÿàÿç—ÿàÿ˜ÿàÿ—ÿßÿö–ÿÖßÿ—ÿÞÿ™ÿÛÿ€›ÿéÙÿÝžÿØÿ ÿÌÖÿ¡ÿ×ÿ¡ÿØÿ÷žÿÚÿ€›ÿñÝÿšÿ‡Üÿ›ÿÜÿÇšÿŠÿ»ÿŽÿ¨ÿ…³ÿ„‹ÿð®ÿ:­ÿ–ƒÿŠÿõ³ÿ€¨ÿ²…ÿŠÿf¶ÿÌ‚ ÿ€è‡ÿŠÿºÿîf€›ÿU‹ÿŠÿ½ÿÌ”ÿ€ŽÿŠÿ”Áÿ$ÿUÿ‰ÿÅÿ€‰ÿ ÿÈÿð€„ÿ€¢ÿÌÿÿÿÔ£ÿÏÿ€¦ÿfñÿ†ÿñÿø…ÿòÿ…ÿªòÿ„ÿòÿ„ÿóÿ„ÿòÿ„ÿóÿ„ÿòÿá„ÿóÿ„ÿôÿ„ÿôÿƒÿõÿƒÿõÿ‚ÿ$õÿ‚ÿöÿÿŠöÿÿ÷ÿÿ÷ÿÿ÷ÿÿ÷ÿüÿüÿ°ûÿêûÿéüÿüÿüÿüÿüÿüÿbûÿ›ûÿ¹üÿÿÿ£ùÿÿÿùÿÿÿùÿÿÿùÿÿÿ÷ÿÚ€ÿ÷ÿÿªöÿ‚ÿöÿ‚ÿõÿæ‚ÿôÿ„ÿôÿ…ÿóÿ…ÿòÿ‡ÿñÿ‡ÿÓïÿUˆÿïÿŠÿíÿ‹ÿˆëÿŒÿðéÿØŽÿéÿÿçÿ’ÿåÿ”ÿîáÿU–ÿªßÿ˜ÿÜÿÔœÿÙÿžÿÖÿ¡ÿ€ÒÿØ¥ÿôÎÿ»¨ÿËÿø¬ÿÇÿó°ÿÃÿ´ÿò¾ÿ€¸ÿ€Û¹ÿ€½ÿ€y³ÿ€Ãÿª¬ÿ¢€ÉÿE‚ÿÝ‘‘»œÿ€Ðÿ‰—ÿÞÿ’ÿÄ€äÿªÿq€èÿ¥‰ÿÇ€ëÿˆÿÔîÿ‡ÿ™ðÿ‡ÿðÿ‡ÿðÿˆÿïÿîˆÿðìÿ€‹ÿæÿwÿ²bƒÚÿƒ™ÿ¹¨ÿ€¥ÿƒ´ÕžÿÒÿ¦ÿ¨ÿ€¤ÿ¤ÿ™©ÿ€¤ÿ’ÿÝ„ÿ€$‚ªÿ€¥ÿˆÿð…ÿá€ÿÿ€ÛÿÒ†ÿ€ÿ‚¸ÿ˜ÿÿáßä€ÿƒìÿñÄÀʾÜÿ¿ëÕÌßêÿðÃÌìòÖÎóßÈÒßÔÂØ3èÿͽãðïëÊÚäÉßïðñÚÈÞçÿÛ¹ÎðíîðÊ¿ÊÂæðîîïïÏßæÿmáÀ·ãïíïðÛµ½ãïìíîîñÎÔåÿf×Á±½ëíìííîÕäñîîíïðäÎÑäÿÃ×ËÓÒÙ€î€íïïíïéÕÙåÿßÔáòñï€íî ïîííìðÅÈßÿãÿÌÌÞïíí€ì‡íïÚÂÈÉ×âÿàÝìî‚íîîí‚ìïïçØÍÌàÿíÉáðƒíîˆíîðòÍÑàÿ×Ûìî„íì…íïâØÿàÿÂßðì‚íì‰íîïÕÛßÿÿÉåðìïÛÊÖßÿÇÍéïîïÞÀÆÞÿäÓµÒðïîïáÀÏÛÿ€ ÚÊ»ÐåïíîîíŽìðÎÉÿÙÿ èÔ;ÏäïïîîïîíðäÄÔØÿØÅÉßíïîí€ìíîíŽìîïÃÕÚÖÿÑÃÆçïïí€îíïíìñÊÉê×ÿãǺÈÓåïî€ìí‘îðÕÄÔØÿÿæºÁØÞì”íïÜÉâÚÿ€ÜÁ¸Ùðîî‘íïÖ×ÿÝÿêÇÙï“íðÌÒ´ÜÿÔÃÑîî“íëÒÖÜÿÜÆÑíî“íñßΊÿÿÎÿÍ×éï“íîçÅÐÔ¾ÏÌÎÏÉ»ËÑñÿ3‚³ÿ€$€‹ÿöÆ×ò”îðÄ°»ÇÒÙÖÜààäâàÛâÌ¿¿ÉÆÞô3u­ÿ ´âÂÈ¿¼ÿŠÿ÷ÐÑñ“ìíðÕÂÑäíïðññòïñðïìîìéááçÑÉÌØñ柀¨ÿ ÌâÎÛæìà¾ÞŠÿ™ÊÄéï’îíïïîððîïîíîìîïíïðð€ïíçæÝÇÌÝæÝ‚ ÿ€ èæÐãìîïï쪊ÿñÅÅêí‘ìííìí€îïìíîíïíìîííìíîïððîîèáÇÆÌèÛ›ÿªÚâÕåíðîïҳ׊ÿоÐï’ì€îíììîíìîîï‚îìíì îííïïëëæÒËÌÛÓÌ”ÿ€ÚçÍÔìïï„îè¿ÎŠÿ´ÌÁåï îïììî€ì‚î€ìîïíññðìåÚÂÀÕÚªHÿ qæÑÑáîððììíî€ìíîîξ‰ÿÖÄÞñ“îííìîíìîîí€ìíî ïðñîëÛÈÃØÏÝ€‰ÿèÞàÏâñðïí‡îðغŠÿÛÃÖïî“ìƒîí„ìîí‡ìîîìíîíí€î ïðïí×ÇÃËàÿ€„ÿ€æãÑÕÛèîðîîìîîììíî‚ìïà´Ìˆÿ׺Ûñšîí˜îïïíìîíïñîçØÍÍÉÿÿÿÔÌÌÔÒÞíïðîîííìíïí…îïãµô‡ÿÿÅÒ€í™ìîí“ì€í€îíîíîîíîððëÕÇÉÏìÿßÄÌÆÓã€ïîî€ìîíîî€ìîìíðä·÷†ÿ™ÄÏíîì›í•îïííîïíìîíîïíîîíòíÏÃÀÃÕÇËÅËÔíðïîîƒíìííî…íîîÕцÿÜÕåð€í™ì–íîí€îíîíîî„íñè÷º¼ÌãîðïìíîìííƒîïíîìîäÀÿ…ÿæÄÜñíîî”íïííîï‚íîíîïƒí îðæÆÍâñîíìïííî‘íÝÙ…ÿÄÉÔíìíî•íîííîî„íîî…íðïðîí€îíëìˆí†îèÊø„ÿÔÕéïžíîî”íïííîï‚í€îí…ìííëì…íîðáÄÿãÅáðŸíî•íîííîî‚íîíî‡íî‚í‚îíìíìÄà„ÿ½Üðîîžíîî”íîíîîïî‚íìî†íìíìíìíï⾄ÿÛÄèï ìîí”ìîííîîíì‰îí™îêÎè„ÿ$ºÜð îí—îíîïí‚ìíìîí†ìî—ìîÚ¾ð„ÿÐÊì¢îíí”ìîíì¬îêÉâ„ÿ÷Ìàï¢ì–î€ìîí„ìîí‡ì—îèËð„ÿÑÝïíºîíï‰îï‡îí•ìíêÅàƒÿôÎâï»ìîíììîí„ìíí îïêÄãƒÿÅÙð¼îí€îíï…îí ìíêÅà‚ÿ[Ãàð®ìíïðïí†ìîíììííªîêÄâ‚ÿÛÓèï­íîèÖÎÛìï†íî€íªìíêÄàÿ´ÉÑð®í«¬½ãï„íî®íîêÅâÿùÑÕñ­í ïÕ®«¬¬ª¾æî„íï®îéÄàÿÒÑçï­í ÎÚض§×ð¶íëÆâÿ»Ôò®î ì³Ñïññⶼëïƒî®íîîÒâÿ·Þñ­íî×Âì€íñÅ«ßîµíîÓÙÿåÄãïí¬ìí×àí€ìíá®Óîµìî×Ñÿ¿Ôí®îíðïí‚î¼´éµîð×ÈÍ€ÿØÐñíµìïÄ®æí³ìíðÚÃÿ€ÿÐÏò¶îðÄ©Úð´îïá¾ÿ€ÿÍÍñíµîë·ªÑï´îðç»Ö€ÿÉÑñí´ìîʬ­³èí³ìíë¿é€ÿÑÏñµîìµ­­±èï³îïìÎê€ÿäÐó´îïÝ°­­¬Úð²îíîíÎÌ€ÿçÎð´ì®³¬Øï²ìíïïÚ¿€ÿÞÏñí±î íïÚ¯­¬Ö¶Æì²î íîðÞÃœÿÿÁÖî³ìíº¬¬¹ëîè³ì îðß¼ÿÿØÔç²í ïÓ­­«ÛòÁ®äî²íîïàµÐ€ÿÊãð±î 𾫬¾ëðЫÚñ±î ïííâ¶Ýÿÿ¿Âàð°í îÝ°­«×ïíé±Éì²í îïã¶Üÿÿ½Ûñ°í Ｋ­°ãîíè±°é²í îðä·çÿÿÈÙð¯î ðØ®®«Ñïîîí»­áïîðï¬î ïâ¶ÜÿÿøÙåî­ìíí¹¬­³æíììïèÕï€ìîÓàîªì íðß¾çÿÿUÇÜð­ìîÓ­®¬Óî€ì íÚ®¶éíìíê³Øî«ìïÛÉæ€ÿÖàï­îð«­°æïî 견¾êïïɱé¬îíÖÍÿ¸Íêí«ìíã³­«Ëíƒì ¾«¬¹¾¼¬ºëíªìíîÏÖ‚ÿÆÜï«ìï«­°äí‚ì í௭­¬«®Üî«ìíëÅð‚ÿÚËáïªîãµ°®Òï„îïʯ¬ª¯Úï¬îïäÂæ‚ÿUÁ×ð©ìíç€åêí…ìîãÅÂÛî­ìíÖÇ„ÿæÈàð¸îïððï®îìÌà…ÿÉÓîëíìîä½é…ÿÿÄàðêíîïÒȆÿÑÖêêíîæÁà‡ÿäÅÜñéíïÝÚqˆÿÞÀâïçíîéÁíŠÿÏÙìïæîïÏË‹ÿªÍÝïåîïåÜŒÿðÑâñãîïßÓàŽÿêÈßðáîïÞÒõÿÛ¾ÕííÝìíìÔÇí’ÿÂÄÖîïÝîÚȶ”ÿîÉÒèïï×îïïåÒખÿÌÏÀâìðÔîïïêáÛó˜ÿáÂËåïïÑîïìæÎèâœÿÊÅÖéðïÍîðîìÓÏñžÿܼÁØèðïÈîïðíãèÔê¡ÿ€ÐÀÏØëñÅîïðêßÝÃÖØ¥ÿ ÿÖÅÏÝìñïÀî ðïáÒÑÈÎɨÿ ÷ǼÏ×êòð»í îñîÝÐÈÊ×ÿ¬ÿ àÈ¿ÉËÚêñï¶í îðèÓËÅÃÝ÷°ÿ ëÊÇÄÊÏÛìñðî°í îðáÍÉÉÈØU´ÿÿÕÈÍÁÉÉÕãìðïí¨ì íîñìÚÊÏÍÒð¸ÿ€ éÖÎÑÊÅÈÆÑãíðî€íîîððï›î ïðåÚËÊÃÃãÿ€½ÿ€ªðÞÍ×Ì¿ÅÆÏáæäÚÓÑÑ×æíîí‘ì ííîîíèÜÌÅÃ×Ôâ€Ãÿ¿ÿÛÌÒȾÇÄÇÏßâ×ÄÅÜíïî ïïðîëßÐÀÁÀÔØáÅ€ÉÿsÿããéÿÌòÒ¿Åáïˆî€ï îéáÎÁ¼º½ÂÔ⣀Ðÿ‰ë·Óí„î ïïîèßÈ¿¸¸¶ÇÜÑðÞÿðйÔíì ííéÛų²»¸ÂÛàÄ€äÿ¸Ø½åï€î ç͸°³¾Åäñª€èÿÿ×ïîîïů²ºÂì×€ëÿÿºÍííîê·²¹Ìâîÿ ó¸ÔîíïᵷΙðÿ åÂÝïíîä¶Áïðÿ$Ƚèî€í¸Ãëðÿ ß³ÉîîíîðȽÜïÿòŵÞðííîðäµËðìÿUм¿êîííîîñ͹Ìåæÿªßº¯Âçí€ì íïïíи¶Åè̉ƒÚÿƒå῾¿Õëð‚îïïîðßÅÀÀ»ÀÌÓÓÒðШÿ€¥ÿƒÒÞßÅÙÅ»ÊÔÝêðïîî€ïîïïîïòðêÜÐËÕÓÐÃÌÖÒÿÝêßßÒÐÅÊÆÃÐÜæíñðîíîïìÙÓè€ïðî×ØÙ€ßÛÌÁÁÔߨÿ€¤ÿ)áÊÚîîïëìîððïëêæàìííêÍÐļËÒÛáÏ·ÂÃèééÔ®ÌëÌ©ÿ€¤ÿ#ÿ¿ÂÔÖàæçÚÎÈÉǾ¸²ÈëéÉÏÝåÇÀ¼¼ÃÒHm_‚ªÿ€¥ÿÿëÛÎâÔÉäá¿áðã׺ºÎ¾Èîéðéïÿ€Ûÿ݆çîáÞ€ÿ‚¸ÿ˜ÿÿž‡¥€ÿƒìÿÖK",.’ÿÿÿÈ‚g‘ÿêÿÑI%NT.cÝÿ´R9>10‡ÿèÿÿgDTRM.—²L=PTU3Kªçÿˆ!+TPQS ?e(CSQQRQ3¢æÿÿ¦;FRPRS;CROPQQR3’åÿÿ€0 NPOPPR5ETQQPRT?Y£äÿÿ†.,1;€QPPORRPRILšåÿ¦A>UTR€PQ RQPPOS!XŸÿãÿÿ\7SPP€O‡PR;.Yâÿ©LLR‚PQQP‚ORSH/U™àÿÿT;SƒPQˆPQSR=àÿFLQ„PO…PR:jÞÿ»|0SRQS@"pÛÿÿ£[-/ER€QPŽOT&^éÙÿ ÿ„a+0EQRQQRQPSF$€ÙÿM+;KQQP€OPQPŽOQS„ÿÖÿhHRRP€QPRPOT$_Õ×ÿ°U-0/ERQ€OP‘QS4MªØÿ÷®4.6?O”PR9[¿Úÿ ÿšI;SQQ‘PR/}ÿÝÿº79S“PT"zÿÜÿ”J,OQ“PLC‹ÜÿÿP*OQ“PS:`ÿ‚ÿ‚ÿÿÎÿk8IR”PM4uƒQMommo_@n~Ùÿ€ÿÿ³ÿÿ‹ÿÿQ0U”QS&"-3:17:9CCGB\?*3[Yïÿÿ­ÿ ÿ¸HB'3ÿŠÿÿY-T“OPS6 0DNRSTTURSROKLGC:?REE]“ÐÚÿ€¨ÿ ÿ¦RJBG:ŠÿÿYLR’QPRRQTSQRQPQOQRQRTTRQKGCNM9]’½ÿ‚ ÿ€ ÿ±WNJNRROBÿŠÿÏD!NP‘OPPOP€QROPQPRPOQPPOPRRSROKED2Ae¶ªÿÿ€›ÿÿ§ŸUOJQRRQQS0Šÿx#/R’O€QPOOQPOQQR‚QOPOQPPQOGJMCP]“‡ÿÿ€”ÿ€ÿ·XFPMP„QJgŠÿÿ_GR QROOQ€O‚Q€OQRPSSPKB:-5w”Uÿÿ ÿÇjREMPROOPQ€OPQQ'8Šÿÿ‰(>T“QPPOQPOQQP€OPQ RSTOI9);…m›ÿ‰ÿ€ ÿÝ™R@QRRP‡QS3,؉ÿ‘39VP“OƒQP„OQP‡OQQOPQPP€Q RSQL5'>]«ÿ€„ÿÿæ­wmAHNRQQOQQOOPQ‚OR=fˆÿ&5TšQP˜QRRPOQPRTQF3@baäÿÿÿÿffjE;JQRQQPPOPRP…QRCÕ‡ÿïN*€P™OQP“O€P€QPQPQQPQSSL.$^s´ÿë¢Qd:)APRRQQ€OQPQQ€OQOPSC$Û†ÿÿU,OQO›P•QRPPQRPOQPQRPQQPUQ+=K{Wa-#-MTRQQƒPOPPQ…PQP6x‡ÿ˜BDS€P™O–PQP€QPQPQQ„PUJ %DQSROPQOPPƒQRPQOQA:ø…ÿ¹J6TPQQ”PRPPQR‚PQPQRƒP QSJ$+ETRPORPPQPOD–…ÿÿX1ROPQ•PQPPQQ„PQQ…P€SQP€QPNOˆP†QFDë„ÿƒ;IRžPQQ”PRPPQR‚P€QP…OPPNO…PQS@Lÿ„ÿ¶>:TŸPQ•PQPPQQ‚PQPQ‡PQ‚P‚QPOPM+£„ÿÿ=6SQQžPQQ”PQPQQRQ‚POQ†POPOPOPR@7ÿ„ÿ“.HR OQP”OQPPQQPO‰QP™QK8»„ÿÿ16T QP—QPQRP‚OPOQP†OQ—OQ89ÿ„ÿr*N¢QPP”OQPO¬QK.ª„ÿ÷W:S¢O–Q€OQP„OQP‡O—QH7̓ÿÿ{=RPºQPR‰QR‡QP•OPK'£ƒÿãX?R»OQPOOQP„OPP QRL&£ƒÿ[:S¼QP€QPR…QP OPL'£‚ÿÿH7S®OPRSRP†OQPOOPPªQK&£‚ÿžIHR­PQK91>OR†PQ€PªOPL'£ÿÿ_&T®PQ  FR„PQ®PQL'£ÿð\1T­P R8 !IQ„PR®QJ&£ÿu?HR­P Q! 1=; :S¶PL)¢ÿ<-U®Q O4RTTENRƒQ®PQQ6£‚ÿ*7T­PQ:%O€PT(BQµPQ5ŒÿµCBRP¬OP:CP€OPD6QµOQ8qÿX=N®QPSRP‚QLµQR1\ÿ€ÿ-TPµOR'IP³OPS7Kÿ€ÿq+U¶QS' =S´QR?8é€ÿ\(UPµQN 4R´QSE*¡€ÿV,UP´OQ-KP³OPJ+Å€ÿh,UµQOKR³QRN5¾€ÿ©+V´QR@=S²QPQP.j€ÿ­*S´OQ;R²OPRR7D€ÿ .TP±Q PR=9)O²Q PQS;KÿÿÿO>P³OPN&K³O QSU$GQ²P QS='ÿÿÿöP@R±Q S!!NS3=T±QRPQ@%±€ÿA9S°P Q@:RPL,O²P QRA'¹ÿÿ>3T°P RFQPKL²P QSA(¹ÿÿcA°Q S;4RQQPDRQSR¬Q R>%­ÿÿëcBQ­OPPIPOOR& 8R€OQ6CQªO PS=:¹ÿÿÿX4T­OQ66Q€O P=LPOPM;Q«OS9Zÿ€ÿOP­QS%IRQ M!MRR,L¬QP6`ÿÿLDP«OPF.PƒO !!NPªOPP2Œ‚ÿY7S«OR%GP‚O PC?Q«OPK0Ó‚ÿ”ABRªQF5R„QR- =R¬QSB=ÿ‚ÿÿL0T©OPJ€HMP…OQF(%>Q­OQ9V…ÿ¾I=S¸QRSSR®QN-Ÿ„ÿÿ`/ìPOQD3É…ÿæF;SêPQR3]†ÿ~>LêPQD:̇ÿÿS5UéPQA“ÿˆÿ–.ARçPRF>Ö‰ÿxBKRæQP5p‹ÿÿg?PæQEŠŒÿÿv@SãQR14MUÅQRTL;IN’ÿ¥ÿ î‡N-8OURÀQ STC,6X}ÿ¨ÿ é]5+4MUS»P QUQ<,3bÿ¬ÿ Á_=$$9OTR¶P QSJ0$9Qÿ°ÿ ¾dU=%(;NUSQ°P QTA**P]‘ÿ´ÿòae<+#2EOTRP©O PTP:"@fyÒÿ¸ÿ€ ÿ‹ny`-$,DOSR€PQQSSR›Q RSO=%)CU­ÿ€½ÿ€ÿá›d„d3&!-@HC81+*4EQQP‘OPP€Q I;'(Gˆ~¯ÿÃÿÿÿªo„X2/@Vn §E$' (EŽžÿÿäÿÿ“+ER€Q L2 &J°Êÿ€èÿÿ>3RQQS% @Ãÿ€ëÿÿ+)QPQN]ÿîÿ Õ&/QPRDjÿðÿ ®&>RPQG,ÂðÿÿPKQ€P3Åðÿ  #PQPQT(ïÿÿJ@SPPQSE[ÿìÿÿlMQPPQQT-cŸæÿÿ* JP€O PRRP0!OÀÿÿƒÚÿƒØ–=#4NS‚Q€R SA *2=cxuwÎÿ¨ÿ€¥ÿƒÿÿ¿jŒL+,/>MTRQQ€RQRRQRUSK80&44/>‰Òÿ ±·›wkKT9'4;DNTTQPQRO80KRSRSQ78;€A=)$6rª¨ÿ€¤ÿ 48PMNIJL€OJIHCOPPN.vO&1îÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©wÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿü$ëÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿVšîÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÛ6¤õÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿe.Âÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿç#¤ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿü%7½õÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿù$@’Âÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿù$YÎÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ'zÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÙÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR%Åÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’‘ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“kqsµÁ¿Ãnqqu* VÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÊÍÐ…0 t›ÏÑ­ hÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿê×Ó˜…‡Öÿÿÿÿÿ“¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿçÝ©>”àÿÿÿÿÿÿÿØ aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ÷浟$ # éÿÿÿÿÿÿÿÿÿô'ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿö÷Ϫ/ ªÏ÷ÿÿÿÿÿÿÿÿÿÿÿÿ£¹ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþØÍ[  )YÛÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¹²ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÁFFÃþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿí]ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿìrCBqìÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿì 'Óÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ×V(}îÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõv Ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿö‹)(aqÝüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿü¦¢ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿé}z”üÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔuÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêN3íÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°'¾ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿu¡ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÅJúÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿd«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ̃ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿë#“ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³Fúÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°§ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°Jÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°xÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°¾ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°dÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°Ãÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°Yÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°Uÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°“ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°®ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°Eøÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Tÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿè±ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñàÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿö:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬âÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÎ WÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáVÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔ <ïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÇÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿï¨ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïgÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð ¸ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿérÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³Çÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²šÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽTÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿí ³ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¹Sÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿë)àÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÚÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐ Níÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿé9Œÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿm ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿"ÜÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚ!%ÔÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþOÌÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ9Ãÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²¹ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿý –ôÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿí‹OÐÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó“šÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥%pËÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓoƒðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÖ‹/˜ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúzH…Ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿù¢K!•ôÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµ’B3„îÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§O *7vèÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿê„D $,_¹üÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüp/"WfÙïýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ÷×e-9P¦êøÿóãåååãúÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïÎW# .J$ (¦ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿçiBôÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÞº="ÖÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿùÒ®2 …ÿÿÿÿÿÿÿÿÿÿÿÿì¦' èÿÿÿÿÿÿÿÿÿã™  çÿÿÿÿÿÿÿÿ¡WùÿÿÿÿÿÿÿÍ ¨ÿÿÿÿÿÿÿÿPÌÿÿÿÿÿÿÿÿPAøÿÿÿÿÿÿÿÿJ=ÔÿÿÿÿÿÿÿÿÿË"ËÿÿÿÿÿÿÿÿÿÿÿÙ(Ñÿÿÿÿÿÿÿÿÿÿÿÿÿç { ˆÈÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâךšœ‰ —­ãÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ?£º¸¸µÙôòóÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ͈ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÓÿÿÿÿÿÿÿiDÊÓÖe6<5 ÌÿÿÿÿÿÿÿÿøùùøÿÿÿÿÿÿÕÏõùùù[ w½¸è¿¶½_#$ñÿÿùÒ<### !éÿmchicken-5.1.0/chicken-ffi-syntax.scm0000644000175000017500000002505613502227553017141 0ustar sjamaansjamaan;;;; chicken-ffi-syntax.scm ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit chicken-ffi-syntax) (uses data-structures extras internal) (disable-interrupts) (fixnum)) #+(not debugbuild) (declare (no-bound-checks) (no-procedure-checks)) (import scheme chicken.base chicken.format chicken.internal chicken.platform chicken.syntax chicken.string) (include "common-declarations.scm") (include "mini-srfi-1.scm") (define ##sys#chicken-ffi-macro-environment (let ((me0 (##sys#macro-environment))) ;; IMPORTANT: These macros directly call fully qualified names from ;; the "chicken.compiler.c-backend" and "chicken.compiler.support" ;; modules. These are unbound in the interpreter, so check first: (define (compiler-only-er-transformer transformer) (##sys#er-transformer (lambda (form r c) (if (feature? 'compiling) (transformer form r c) (syntax-error (car form) "The FFI is not supported in interpreted mode"))))) (##sys#extend-macro-environment 'define-external `((define . ,(alist-ref 'define me0)) ; Or just me0? (begin . ,(alist-ref 'begin me0)) (lambda . ,(alist-ref 'lambda me0))) (compiler-only-er-transformer (lambda (form r c) (let* ((form (cdr form)) (quals (and (pair? form) (string? (car form)))) (var (and (not quals) (pair? form) (symbol? (car form)))) ) (cond [var (##sys#check-syntax 'define-external form '(symbol _ . #(_ 0 1))) (let ([var (car form)]) `(,(r 'begin) (##core#define-foreign-variable ,var ,(cadr form)) (##core#define-external-variable ,var ,(cadr form) #t) ,@(if (pair? (cddr form)) `((##core#set! ,var ,(caddr form))) '() ) ) ) ] [else (if quals (##sys#check-syntax 'define-external form '(string (symbol . #((_ symbol) 0)) _ . #(_ 1))) (##sys#check-syntax 'define-external form '((symbol . #((_ symbol) 0)) _ . #(_ 1))) ) (let* ((head (if quals (cadr form) (car form))) (args (cdr head)) ) `(,(r 'define) ,(car head) (##core#foreign-callback-wrapper (##core#quote ,(car head)) ,(if quals (car form) "") (##core#quote ,(if quals (caddr form) (cadr form))) (##core#quote ,(map (lambda (a) (car a)) args)) (,(r 'lambda) ,(map (lambda (a) (cadr a)) args) ,@(if quals (cdddr form) (cddr form)) ) ) ) ) ] ) ) ) ) ) ;;; External locations: (##sys#extend-macro-environment 'location '() (compiler-only-er-transformer (lambda (x r c) (##sys#check-syntax 'location x '(location _)) `(##core#location ,(cadr x))))) (##sys#extend-macro-environment 'define-location `((begin . ,(alist-ref 'begin me0))) (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'define-location form '(_ variable _ . #(_ 0 1))) (let ((var (cadr form)) (type (caddr form)) (init (optional (cdddr form) #f)) (name (r (gensym)))) `(,(r 'begin) (##core#define-foreign-variable ,var ,type ,(symbol->string name)) (##core#define-external-variable ,var ,type #f ,name) ,@(if (pair? init) `((##core#set! ,var ,(car init))) '() ) ) ) ) ) ) (##sys#extend-macro-environment 'let-location '() (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'let-location form '(_ #((variable _ . #(_ 0 1)) 0) . _)) (let* ((bindings (cadr form)) (body (cddr form)) (aliases (map (lambda (_) (r (gensym))) bindings))) `(##core#let ,(append-map (lambda (b a) (if (pair? (cddr b)) (list (cons a (cddr b))) '() ) ) bindings aliases) ,(let loop ((bindings bindings) (aliases aliases)) (if (null? bindings) `(##core#let () ,@body) (let ((b (car bindings)) (a (car aliases)) (rest (loop (cdr bindings) (cdr aliases)))) (if (= 3 (length b)) `(##core#let-location ,(car b) ,(cadr b) ,a ,rest) `(##core#let-location ,(car b) ,(cadr b) ,rest) ) )))))))) ;;; Embedding code directly: (##sys#extend-macro-environment 'foreign-code `((declare . ,(alist-ref 'declare me0))) (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-code form '(_ . #(string 0))) (let ([tmp (gensym 'code_)]) `(##core#begin (,(r 'declare) (foreign-declare ,(sprintf "static C_word ~A() { ~A\n; return C_SCHEME_UNDEFINED; }\n" tmp (string-intersperse (cdr form) "\n")) ) ) (##core#inline ,tmp) ) ) ) ) ) (##sys#extend-macro-environment 'foreign-value '() (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-value form '(_ _ _)) (let ((tmp (gensym "code_")) (code (cadr form))) `(##core#begin (##core#define-foreign-variable ,tmp ,(caddr form) ,(cond ((string? code) code) ((symbol? code) (symbol->string code)) (else (syntax-error 'foreign-value "bad argument type - not a string or symbol" code)))) (##core#the ,(chicken.compiler.support#foreign-type->scrutiny-type (chicken.syntax#strip-syntax (caddr form)) 'result) #f ,tmp) ) ) ) ) ) ;;; Include foreign code fragments (##sys#extend-macro-environment 'foreign-declare '() (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-declare form '(_ . #(string 0))) `(##core#declare (foreign-declare ,@(cdr form)))))) ;;; Aliases for internal forms (##sys#extend-macro-environment 'define-foreign-type '() (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'define-foreign-type form '(_ symbol _ . #(_ 0 2))) `(##core#define-foreign-type ,@(cdr form))))) (##sys#extend-macro-environment 'define-foreign-variable '() (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'define-foreign-variable form '(_ symbol _ . #(string 0 1))) `(##core#define-foreign-variable ,@(cdr form))))) (##sys#extend-macro-environment 'foreign-primitive '() (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-primitive form '(_ _ . _)) (let* ((hasrtype (and (pair? (cddr form)) (not (string? (caddr form))))) (rtype (and hasrtype (chicken.syntax#strip-syntax (cadr form)))) (args (chicken.syntax#strip-syntax (if hasrtype (caddr form) (cadr form)))) (argtypes (map car args))) `(##core#the (procedure ,(map (cut chicken.compiler.support#foreign-type->scrutiny-type <> 'arg) argtypes) ,@(if (not rtype) '* ; special case for C_values(...) (list (chicken.compiler.support#foreign-type->scrutiny-type rtype 'result)))) #f (##core#foreign-primitive ,@(cdr form))))))) (##sys#extend-macro-environment 'foreign-lambda '() (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-lambda form '(_ _ _ . _)) `(##core#the (procedure ,(map (cut chicken.compiler.support#foreign-type->scrutiny-type <> 'arg) (chicken.syntax#strip-syntax (cdddr form))) ,(chicken.compiler.support#foreign-type->scrutiny-type (chicken.syntax#strip-syntax (cadr form)) 'result)) #f (##core#foreign-lambda ,@(cdr form)))))) (##sys#extend-macro-environment 'foreign-lambda* '() (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-lambda* form '(_ _ _ _ . _)) `(##core#the (procedure ,(map (lambda (a) (chicken.compiler.support#foreign-type->scrutiny-type (car a) 'arg)) (chicken.syntax#strip-syntax (caddr form))) ,(chicken.compiler.support#foreign-type->scrutiny-type (chicken.syntax#strip-syntax (cadr form)) 'result)) #f (##core#foreign-lambda* ,@(cdr form)))))) (##sys#extend-macro-environment 'foreign-safe-lambda '() (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-safe-lambda form '(_ _ _ . _)) `(##core#the (procedure ,(map (cut chicken.compiler.support#foreign-type->scrutiny-type <> 'arg) (chicken.syntax#strip-syntax (cdddr form))) ,(chicken.compiler.support#foreign-type->scrutiny-type (chicken.syntax#strip-syntax (cadr form)) 'result)) #f (##core#foreign-safe-lambda ,@(cdr form)))))) (##sys#extend-macro-environment 'foreign-safe-lambda* '() (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-safe-lambda* form '(_ _ _ _ . _)) `(##core#the (procedure ,(map (lambda (a) (chicken.compiler.support#foreign-type->scrutiny-type (car a) 'arg)) (chicken.syntax#strip-syntax (caddr form))) ,(chicken.compiler.support#foreign-type->scrutiny-type (chicken.syntax#strip-syntax (cadr form)) 'result)) #f (##core#foreign-safe-lambda* ,@(cdr form)))))) (##sys#extend-macro-environment 'foreign-type-size '() (compiler-only-er-transformer (lambda (form r c) (##sys#check-syntax 'foreign-type-size form '(_ _)) (let* ((t (chicken.syntax#strip-syntax (cadr form))) (tmp (gensym "code_")) (decl (if (string? t) t ;; TODO: Backend should be configurable (chicken.compiler.c-backend#foreign-type-declaration t "")))) `(##core#begin (##core#define-foreign-variable ,tmp size_t ,(string-append "sizeof(" decl ")")) (##core#the fixnum #f ,tmp)))))) (macro-subset me0))) chicken-5.1.0/Makefile.linux0000644000175000017500000000752013502227553015535 0ustar sjamaansjamaan# Makefile.linux - configuration for Linux -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration ARCH ?= $(shell sh $(SRCDIR)/config-arch.sh) # options C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 -fomit-frame-pointer else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer endif endif LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared LINKER_LINK_SHARED_DLOADABLE_OPTIONS = -L. -shared -Wl,-R"$(RUNTIME_LINKER_PATH)" LINKER_LINK_SHARED_PROGRAM_OPTIONS = -Wl,-R"$(RUNTIME_LINKER_PATH)" LIBCHICKEN_SO_LINKER_OPTIONS = -Wl,-soname,lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).so.$(BINARYVERSION) LIBRARIES = -lm -ldl NEEDS_RELINKING = yes USES_SONAME = yes # architectures ifeq ($(ARCH),x32) C_COMPILER_OPTIONS += -mx32 LINKER_OPTIONS += -mx32 endif # special files CHICKEN_CONFIG_H = chicken-config.h # select default and internal settings include $(SRCDIR)/defaults.make chicken-config.h: chicken-defaults.h echo "/* GENERATED */" >$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_DLFCN_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define HAVE_SIGACTION 1" >>$@ echo "#define HAVE_SIGSETJMP 1" >>$@ echo "#define HAVE_SIGPROCMASK 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_STRTOQ 1" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_SETENV 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_ALLOCA 1" >>$@ echo "#define HAVE_ALLOCA_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_SYSEXITS_H 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make chicken-5.1.0/srfi-4.import.scm0000644000175000017500000001443013502227777016066 0ustar sjamaansjamaan;;;; srfi-4.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'srfi-4 'srfi-4 (scheme#list) '((blob->f32vector . srfi-4#blob->f32vector) (blob->f32vector/shared . srfi-4#blob->f32vector/shared) (blob->f64vector . srfi-4#blob->f64vector) (blob->f64vector/shared . srfi-4#blob->f64vector/shared) (blob->s16vector . srfi-4#blob->s16vector) (blob->s16vector/shared . srfi-4#blob->s16vector/shared) (blob->s32vector . srfi-4#blob->s32vector) (blob->s32vector/shared . srfi-4#blob->s32vector/shared) (blob->s64vector . srfi-4#blob->s64vector) (blob->s64vector/shared . srfi-4#blob->s64vector/shared) (blob->s8vector . srfi-4#blob->s8vector) (blob->s8vector/shared . srfi-4#blob->s8vector/shared) (blob->u16vector . srfi-4#blob->u16vector) (blob->u16vector/shared . srfi-4#blob->u16vector/shared) (blob->u32vector . srfi-4#blob->u32vector) (blob->u32vector/shared . srfi-4#blob->u32vector/shared) (blob->u64vector . srfi-4#blob->u64vector) (blob->u64vector/shared . srfi-4#blob->u64vector/shared) (blob->u8vector . srfi-4#blob->u8vector) (blob->u8vector/shared . srfi-4#blob->u8vector/shared) (f32vector . srfi-4#f32vector) (f32vector->blob . srfi-4#f32vector->blob) (f32vector->blob/shared . srfi-4#f32vector->blob/shared) (f32vector->list . srfi-4#f32vector->list) (f32vector-length . srfi-4#f32vector-length) (f32vector-ref . srfi-4#f32vector-ref) (f32vector-set! . srfi-4#f32vector-set!) (f32vector? . srfi-4#f32vector?) (f64vector . srfi-4#f64vector) (f64vector->blob . srfi-4#f64vector->blob) (f64vector->blob/shared . srfi-4#f64vector->blob/shared) (f64vector->list . srfi-4#f64vector->list) (f64vector-length . srfi-4#f64vector-length) (f64vector-ref . srfi-4#f64vector-ref) (f64vector-set! . srfi-4#f64vector-set!) (f64vector? . srfi-4#f64vector?) (s8vector . srfi-4#s8vector) (s8vector->blob . srfi-4#s8vector->blob) (s8vector->blob/shared . srfi-4#s8vector->blob/shared) (s8vector->list . srfi-4#s8vector->list) (s8vector-length . srfi-4#s8vector-length) (s8vector-ref . srfi-4#s8vector-ref) (s8vector-set! . srfi-4#s8vector-set!) (s8vector? . srfi-4#s8vector?) (s16vector . srfi-4#s16vector) (s16vector->blob . srfi-4#s16vector->blob) (s16vector->blob/shared . srfi-4#s16vector->blob/shared) (s16vector->list . srfi-4#s16vector->list) (s16vector-length . srfi-4#s16vector-length) (s16vector-ref . srfi-4#s16vector-ref) (s16vector-set! . srfi-4#s16vector-set!) (s16vector? . srfi-4#s16vector?) (s32vector . srfi-4#s32vector) (s32vector->blob . srfi-4#s32vector->blob) (s32vector->blob/shared . srfi-4#s32vector->blob/shared) (s32vector->list . srfi-4#s32vector->list) (s32vector-length . srfi-4#s32vector-length) (s32vector-ref . srfi-4#s32vector-ref) (s32vector-set! . srfi-4#s32vector-set!) (s32vector? . srfi-4#s32vector?) (s64vector . srfi-4#s64vector) (s64vector->blob . srfi-4#s64vector->blob) (s64vector->blob/shared . srfi-4#s64vector->blob/shared) (s64vector->list . srfi-4#s64vector->list) (s64vector-length . srfi-4#s64vector-length) (s64vector-ref . srfi-4#s64vector-ref) (s64vector-set! . srfi-4#s64vector-set!) (s64vector? . srfi-4#s64vector?) (u8vector . srfi-4#u8vector) (u8vector->blob . srfi-4#u8vector->blob) (u8vector->blob/shared . srfi-4#u8vector->blob/shared) (u8vector->list . srfi-4#u8vector->list) (u8vector-length . srfi-4#u8vector-length) (u8vector-ref . srfi-4#u8vector-ref) (u8vector-set! . srfi-4#u8vector-set!) (u8vector? . srfi-4#u8vector?) (u16vector . srfi-4#u16vector) (u16vector->blob . srfi-4#u16vector->blob) (u16vector->blob/shared . srfi-4#u16vector->blob/shared) (u16vector->list . srfi-4#u16vector->list) (u16vector-length . srfi-4#u16vector-length) (u16vector-ref . srfi-4#u16vector-ref) (u16vector-set! . srfi-4#u16vector-set!) (u16vector? . srfi-4#u16vector?) (u32vector . srfi-4#u32vector) (u32vector->blob . srfi-4#u32vector->blob) (u32vector->blob/shared . srfi-4#u32vector->blob/shared) (u32vector->list . srfi-4#u32vector->list) (u32vector-length . srfi-4#u32vector-length) (u32vector-ref . srfi-4#u32vector-ref) (u32vector-set! . srfi-4#u32vector-set!) (u32vector? . srfi-4#u32vector?) (u64vector . srfi-4#u64vector) (u64vector->blob . srfi-4#u64vector->blob) (u64vector->blob/shared . srfi-4#u64vector->blob/shared) (u64vector->list . srfi-4#u64vector->list) (u64vector-length . srfi-4#u64vector-length) (u64vector-ref . srfi-4#u64vector-ref) (u64vector-set! . srfi-4#u64vector-set!) (u64vector? . srfi-4#u64vector?) (list->f32vector . srfi-4#list->f32vector) (list->f64vector . srfi-4#list->f64vector) (list->s16vector . srfi-4#list->s16vector) (list->s32vector . srfi-4#list->s32vector) (list->s64vector . srfi-4#list->s64vector) (list->s8vector . srfi-4#list->s8vector) (list->u16vector . srfi-4#list->u16vector) (list->u32vector . srfi-4#list->u32vector) (list->u8vector . srfi-4#list->u8vector) (list->u64vector . srfi-4#list->u64vector) (make-f32vector . srfi-4#make-f32vector) (make-f64vector . srfi-4#make-f64vector) (make-s16vector . srfi-4#make-s16vector) (make-s32vector . srfi-4#make-s32vector) (make-s64vector . srfi-4#make-s64vector) (make-s8vector . srfi-4#make-s8vector) (make-u16vector . srfi-4#make-u16vector) (make-u32vector . srfi-4#make-u32vector) (make-u64vector . srfi-4#make-u64vector) (make-u8vector . srfi-4#make-u8vector) (number-vector? . srfi-4#number-vector?) (read-u8vector . srfi-4#read-u8vector) (read-u8vector! . srfi-4#read-u8vector!) (release-number-vector . srfi-4#release-number-vector) (subf32vector . srfi-4#subf32vector) (subf64vector . srfi-4#subf64vector) (subs16vector . srfi-4#subs16vector) (subs32vector . srfi-4#subs32vector) (subs64vector . srfi-4#subs64vector) (subs8vector . srfi-4#subs8vector) (subu16vector . srfi-4#subu16vector) (subu8vector . srfi-4#subu8vector) (subu32vector . srfi-4#subu32vector) (subu64vector . srfi-4#subu64vector) (write-u8vector . srfi-4#write-u8vector)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/chicken.foreign.import.c0000644000175000017500000001170113502227773017450 0ustar sjamaansjamaan/* Generated from chicken.foreign.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.foreign.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.foreign.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[3]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.foreign.import.scm:27: ##sys#register-primitive-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_fast_retrieve(lf[2]); tp(5,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(21))){ C_save(t1); C_rereclaim2(21*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],31, C_text("##sys#register-primitive-module")); lf[1]=C_h_intern(&lf[1],15, C_text("chicken.foreign")); lf[2]=C_h_intern(&lf[2],35, C_text("##sys#chicken-ffi-macro-environment")); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eforeign_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eforeign_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eforeign_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eforeign_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eforeign_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|removed binding forms: 4 */ /* end of file */ chicken-5.1.0/chicken-profile.scm0000644000175000017500000002136613502227553016511 0ustar sjamaansjamaan;;;; chicken-profile.scm - Formatted display of profile outputs - felix -*- Scheme -*- ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (block)) (module main () (import scheme chicken.base chicken.file chicken.file.posix chicken.fixnum chicken.internal chicken.platform chicken.process-context chicken.sort chicken.string) (include "mini-srfi-1.scm") (define symbol-table-size 3001) (define sort-by #f) (define file #f) (define no-unused #f) (define seconds-digits 3) (define average-digits 3) (define percent-digits 3) (define top 0) (define (print-usage) (display #<#EOF Usage: chicken-profile [OPTION ...] [FILENAME ...] -sort-by-calls sort output by call frequency -sort-by-time sort output by procedure execution time -sort-by-avg sort output by average procedure execution time -sort-by-name sort output alphabetically by procedure name -decimals DDD set number of decimals for seconds, average and percent columns (three digits, default: #{seconds-digits}#{average-digits}#{percent-digits}) -no-unused remove procedures that are never called -top N display only the top N entries -help show this text and exit -version show version and exit -release show release number and exit FILENAME defaults to the `PROFILE.', selecting the one with the highest modification time, in case multiple profiles exist. EOF ;| ) (exit 64) ) (define (run args) (let loop ([args args]) (if (null? args) (begin (unless file (set! file (let ((fs (glob "PROFILE.*"))) (if (null? fs) (error "no PROFILEs found") (first (sort fs (lambda (f1 f2) (> (file-modification-time f1) (file-modification-time f2))) ) ) ) ) ) ) (write-profile) ) (let ([arg (car args)] [rest (cdr args)] ) (define (next-arg) (if (null? rest) (error "missing argument to option" arg) (let ((narg (car rest))) (set! rest (cdr rest)) narg))) (define (next-number) (let ((n (string->number (next-arg)))) (if (and n (> n 0)) n (error "invalid argument to option" arg)))) (cond [(member arg '("-h" "-help" "--help")) (print-usage)] [(string=? arg "-version") (print "chicken-profile - Version " (chicken-version)) (exit) ] [(string=? arg "-release") (print (chicken-version)) (exit) ] [(string=? arg "-no-unused") (set! no-unused #t)] [(string=? arg "-top") (set! top (next-number))] [(string=? arg "-sort-by-calls") (set! sort-by sort-by-calls)] [(string=? arg "-sort-by-time") (set! sort-by sort-by-time)] [(string=? arg "-sort-by-avg") (set! sort-by sort-by-avg)] [(string=? arg "-sort-by-name") (set! sort-by sort-by-name)] [(string=? arg "-decimals") (set-decimals (next-arg))] [(and (> (string-length arg) 1) (char=? #\- (string-ref arg 0))) (error "invalid option" arg) ] [file (print-usage)] [else (set! file arg)] ) (loop rest) ) ) ) ) (define (sort-by-calls x y) (let ([c1 (second x)] [c2 (second y)] ) (if (eqv? c1 c2) (> (third x) (third y)) (if c1 (if c2 (> c1 c2) #t) #t) ) ) ) (define (sort-by-time x y) (let ([c1 (third x)] [c2 (third y)] ) (if (= c1 c2) (> (second x) (second y)) (> c1 c2) ) ) ) (define (sort-by-avg x y) (let ([c1 (cadddr x)] [c2 (cadddr y)] ) (if (eqv? c1 c2) (> (third x) (third y)) (> c1 c2) ) ) ) (define (sort-by-name x y) (stringstring (first x)) (symbol->string (first y))) ) (set! sort-by sort-by-time) (define (set-decimals arg) (define (arg-digit n) (let ((n (- (char->integer (string-ref arg n)) (char->integer #\0)))) (if (<= 0 n 9) (if (= n 9) 8 n) ; 9 => overflow in format-real (error "invalid argument to -decimals option" arg)))) (if (= (string-length arg) 3) (begin (set! seconds-digits (arg-digit 0)) (set! average-digits (arg-digit 1)) (set! percent-digits (arg-digit 2))) (error "invalid argument to -decimals option" arg))) (define (make-symbol-table) (make-vector symbol-table-size '())) (define (read-profile) (let* ((hash (make-symbol-table)) (header (read)) (type (if (symbol? header) header 'instrumented))) (do ((line (if (symbol? header) (read) header) (read))) ((eof-object? line)) (hash-table-set! hash (first line) (map (lambda (x y) (and x y (+ x y))) (or (hash-table-ref hash (first line)) '(0 0)) (cdr line)))) (let ((alist '())) (hash-table-for-each (lambda (sym counts) (set! alist (alist-cons sym counts alist))) hash) (cons type alist)))) (define (format-string str cols #!optional right (padc #\space)) (let* ((len (string-length str)) (pad (make-string (fxmax 0 (fx- cols len)) padc)) ) (if right (string-append pad str) (string-append str pad) ) ) ) (define (format-real n d) (let ((exact-value (inexact->exact (truncate n)))) (string-append (number->string exact-value) (if (> d 0) "." "") (substring (number->string (inexact->exact (truncate (* (- n exact-value -1) (expt 10 d))))) 1 (+ d 1))))) (define (write-profile) (print "reading `" file "' ...\n") (let* ((type&data0 (with-input-from-file file read-profile)) (type (car type&data0)) (data0 (cdr type&data0)) ;; Instrumented profiling results in total runtime being ;; counted for the outermost "main" procedure, while ;; statistical counts time spent only inside the procedure ;; itself. Ideally we'd have both, but that's tricky to do. (total-t (foldl (if (eq? type 'instrumented) (lambda (r t) (max r (third t))) (lambda (r t) (+ r (third t)))) 0 data0)) (data (sort (map (lambda (t) (append t (let ((c (second t)) ; count (t (third t))) ; time tallied to procedure (list (or (and c (> c 0) (/ t c)) ; time / count 0) (or (and (> total-t 0) (* (/ t total-t) 100)) ; % of total-time 0) )))) data0) sort-by))) (if (< 0 top (length data)) (set! data (take data top))) (set! data (map (lambda (entry) (let ((c (second entry)) ; count (t (third entry)) ; total time (a (fourth entry)) ; average time (p (fifth entry)) ) ; % of max time (list (##sys#symbol->string (first entry)) (if (not c) "overflow" (number->string c)) (format-real (/ t 1000) seconds-digits) (format-real (/ a 1000) average-digits) (format-real p percent-digits)))) (if no-unused (filter (lambda (entry) (> (second entry) 0)) data) data))) (let* ((headers (list "procedure" "calls" "seconds" "average" "percent")) (alignments (list #f #t #t #t #t)) (spacing 2) (spacer (make-string spacing #\space)) (column-widths (foldl (lambda (max-widths row) (map max (map string-length row) max-widths)) (list 0 0 0 0 0) (cons headers data)))) (define (print-row row) (print (string-intersperse (map format-string row column-widths alignments) spacer))) (print-row headers) (print (make-string (+ (foldl + 0 column-widths) (* spacing (- (length alignments) 1))) #\-)) (for-each print-row data)))) (run (command-line-arguments)) ) chicken-5.1.0/buildid0000644000175000017500000000001113502227762014264 0ustar sjamaansjamaan8e62f718 chicken-5.1.0/mini-srfi-1.scm0000644000175000017500000001571513502227553015503 0ustar sjamaansjamaan;;;; minimal implementation of SRFI-1 primitives ; ; ; Copyright (c) 2015-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unused take span drop partition split-at append-map every any cons* concatenate first second third fourth alist-cons fifth remove filter filter-map unzip1 last list-index lset-adjoin/eq? lset-difference/eq? lset-union/eq? lset-intersection/eq? list-tabulate lset<=/eq? lset=/eq? length+ find find-tail iota make-list posq posv) (hide take span drop partition split-at append-map every any cons* concatenate delete first second third fourth alist-cons delete-duplicates fifth remove filter filter-map unzip1 last list-index lset-adjoin/eq? lset-difference/eq? lset-union/eq? lset-intersection/eq? list-tabulate lset<=/eq? lset=/eq? length+ find find-tail iota make-list posq posv)) (define (partition pred lst) (let loop ((yes '()) (no '()) (lst lst)) (cond ((null? lst) (values (reverse yes) (reverse no))) ((pred (car lst)) (loop (cons (car lst) yes) no (cdr lst))) (else (loop yes (cons (car lst) no) (cdr lst)))))) (define (span pred lst) (let loop ((lst lst) (head '())) (cond ((null? lst) (values (reverse head) lst)) ((pred (car lst)) (loop (cdr lst) (cons (car lst) head))) (else (values (reverse head) lst))))) (define (take lst n) (if (fx<= n 0) '() (cons (car lst) (take (cdr lst) (fx- n 1))))) (define (drop lst n) (let loop ((lst lst) (n n)) (if (fx<= n 0) lst (loop (cdr lst) (fx- n 1))))) (define (split-at lst n) (let loop ((n n) (prev '()) (node lst)) (if (fx<= n 0) (values (reverse prev) node) (loop (fx- n 1) (cons (car node) prev) (cdr node))))) (define (append-map proc lst1 . lsts) (if (null? lsts) (foldr (lambda (x r) (append (proc x) r)) '() lst1) (let loop ((lsts (cons lst1 lsts))) (if (any null? lsts) '() (append (apply proc (map (lambda (x) (car x)) lsts)) (loop (map (lambda (x) (cdr x)) lsts))))))) (define (every pred lst) (let loop ((lst lst)) (cond ((null? lst)) ((not (pred (car lst))) #f) (else (loop (cdr lst)))))) (define (any pred lst) (let loop ((lst lst)) (cond ((null? lst) #f) ((pred (car lst))) (else (loop (cdr lst)))))) (define (cons* x1 . xs) (let loop ((x x1) (rest xs)) (if (null? rest) x (cons x (loop (car rest) (cdr rest)))))) (define (concatenate lst) (let loop ((lst lst)) (if (null? lst) '() (append (car lst) (loop (cdr lst)))))) (define (delete x lst test) (let loop ((lst lst)) (cond ((null? lst) lst) ((test x (car lst)) (loop (cdr lst))) (else (cons (car lst) (loop (cdr lst))))))) (define (first x) (car x)) (define (second x) (cadr x)) (define (third x) (caddr x)) (define (fourth x) (cadddr x)) (define (fifth x) (car (cddddr x))) (define (delete-duplicates lst test) (let loop ((lst lst)) (if (null? lst) lst (let* ((x (car lst)) (tail (cdr lst)) (new-tail (loop (delete x tail test)))) (if (equal? tail new-tail) lst (cons x new-tail)))))) (define (alist-cons x y z) (cons (cons x y) z)) (define (filter pred lst) (foldr (lambda (x r) (if (pred x) (cons x r) r)) '() lst)) (define (filter-map pred lst) (foldr (lambda (x r) (cond ((pred x) => (lambda (y) (cons y r))) (else r))) '() lst)) (define (remove pred lst) (filter (lambda (x) (not (pred x))) lst)) (define (unzip1 lst) (map (lambda (x) (car x)) lst)) (define (last lst) (let loop ((lst lst)) (if (null? (cdr lst)) (car lst) (loop (cdr lst))))) (define (list-index pred lst) (let loop ((i 0) (lst lst)) (cond ((null? lst) #f) ((pred (car lst)) i) (else (loop (fx+ i 1) (cdr lst)))))) (define (lset-adjoin/eq? lst . vals) (let loop ((vals vals) (lst lst)) (cond ((null? vals) lst) ((memq (car vals) lst) (loop (cdr vals) lst)) (else (loop (cdr vals) (cons (car vals) lst)))))) (define (lset-difference/eq? ls . lss) (foldl (lambda (ls lst) (filter (lambda (x) (not (memq x lst))) ls)) ls lss)) (define (lset-union/eq? ls . lss) (foldl (lambda (ls lst) (foldl (lambda (ls x) (if (any (lambda (y) (eq? y x)) ls) ls (cons x ls))) ls lst)) ls lss)) (define (lset-intersection/eq? ls1 . lss) (filter (lambda (x) (every (lambda (lis) (memq x lis)) lss)) ls1)) (define (list-tabulate n proc) (let loop ((i 0)) (if (fx>= i n) '() (cons (proc i) (loop (fx+ i 1)))))) (define (lset<=/eq? s1 s2) (every (lambda (s) (memq s s2)) s1)) (define (lset=/eq? s1 s2) (and (eq? (length s1) (length s2)) (every (lambda (s) (memq s s2)) s1))) ;; from SRFI-1 ref. impl. (define (length+ x) ; Returns #f if X is circular. (let lp ((x x) (lag x) (len 0)) (if (pair? x) (let ((x (cdr x)) (len (fx+ len 1))) (if (pair? x) (let ((x (cdr x)) (lag (cdr lag)) (len (fx+ len 1))) (and (not (eq? x lag)) (lp x lag len))) len)) len))) (define (find pred lst) (let loop ((lst lst)) (cond ((null? lst) #f) ((pred (car lst)) (car lst)) (else (loop (cdr lst)))))) (define (find-tail pred ls) (let lp ((ls ls)) (cond ((null? ls) #f) ((pred (car ls)) ls) (else (lp (cdr ls)))))) (define (iota n) (list-tabulate n (lambda (i) i))) (define (make-list n #!optional x) (list-tabulate n (lambda _ x))) (define (posq x lst) (let loop ((i 0) (lst lst)) (cond ((null? lst) #f) ((eq? (car lst) x) i) (else (loop (fx+ i 1) (cdr lst)))))) (define (posv x lst) (let loop ((i 0) (lst lst)) (cond ((null? lst) #f) ((eqv? (car lst) x) i) (else (loop (fx+ i 1) (cdr lst)))))) chicken-5.1.0/Makefile.mingw0000644000175000017500000000740513502227553015521 0ustar sjamaansjamaan# Makefile.mingw - configuration for MinGW (no MSYS) -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SEP = $(strip \) SRCDIR ?= .$(SEP) # platform configuration DLLSINPATH = 1 ARCH ?= x86 WINDOWS = 1 WINDOWS_SHELL = 1 UNAME_SYS = MinGW # file extensions SO = .dll EXE = .exe # options C_COMPILER ?= gcc C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os endif endif C_COMPILER_SHARED_OPTIONS = -DPIC RC_COMPILER ?= windres LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared LIBRARIES = -lm -lws2_32 LINKER_OPTIONS += -Wl,--enable-auto-import LIBCHICKEN_SO_LINKER_OPTIONS = -Wl,--out-implib,lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).dll.a LIBCHICKEN_SO_LIBRARIES = -lm -lws2_32 LIBCHICKEN_IMPORT_LIBRARY = lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).dll.a MAKEDIR_COMMAND_OPTIONS = GENERATE_DEBUGGER = type $< >$@ & echo wish $(DATADIR)\feathers.tcl %1 %2 %3 %4 %5 %6 %7 %8 %9 >>$@ # special files CHICKEN_CONFIG_H = chicken-config.h POSIXFILE = posixwin # select default and internal settings include $(SRCDIR)defaults.make chicken-config.h: chicken-defaults.h echo /* GENERATED */ >$@ echo #define HAVE_DIRENT_H 1 >>$@ echo #define HAVE_INTTYPES_H 1 >>$@ echo #define HAVE_LIMITS_H 1 >>$@ echo #define HAVE_LONG_LONG 1 >>$@ echo #define HAVE_MEMMOVE 1 >>$@ echo #define HAVE_MEMORY_H 1 >>$@ echo #define NO_POSIX_POLL 1 >>$@ echo #define HAVE_STDINT_H 1 >>$@ echo #define HAVE_STDLIB_H 1 >>$@ echo #define HAVE_STRERROR 1 >>$@ echo #define HAVE_STRINGS_H 1 >>$@ echo #define HAVE_STRING_H 1 >>$@ echo #define HAVE_STRTOLL 1 >>$@ echo #define HAVE_SYS_STAT_H 1 >>$@ echo #define HAVE_SYS_TYPES_H 1 >>$@ echo #define HAVE_UNISTD_H 1 >>$@ echo #define HAVE_UNSIGNED_LONG_LONG 1 >>$@ echo #define STDC_HEADERS 1 >>$@ echo #define HAVE_DIRECT_H 1 >>$@ echo #define HAVE_ERRNO_H 1 >>$@ echo #define HAVE_LOADLIBRARY 1 >>$@ echo #define HAVE_GETPROCADDRESS 1 >>$@ echo #define C_STACK_GROWS_DOWNWARD 1 >>$@ ifdef GCHOOKS echo #define C_GC_HOOKS >>$@ endif echo #define C_USE_STD_FEATURE_MACROS >>$@ type chicken-defaults.h >>$@ include $(SRCDIR)rules.make chicken-5.1.0/feathers.tcl0000644000175000017500000014142613502227553015250 0ustar sjamaansjamaan#!/usr/bin/env wish # # a graphical debugger for compiled CHICKEN programs # # Copyright (c) 2015-2019, The CHICKEN Team # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. set version 0 set protocol_version 1 set debugger_port 9999 set events(1) call set events(2) assign set events(3) gc set events(4) entry set events(5) signal set events(6) connect set events(7) listen set events(8) interrupted set reply(SETMASK) 1 set reply(TERMINATE) 2 set reply(CONTINUE) 3 set reply(SET_BREAKPOINT) 4 set reply(CLEAR_BREAKPOINT) 5 set reply(LIST_EVENTS) 6 set reply(GET_BYTES) 7 set reply(GET_AV) 8 set reply(GET_SLOTS) 9 set reply(GET_GLOBAL) 10 set reply(GET_STATS) 11 set reply(GET_TRACE) 12 set colors(header_foreground) white set colors(header_background) black set colors(text_foreground) black set colors(text_background) gray90 set colors(event_foreground) black set colors(event_background) white set colors(breakpoint_foreground) white set colors(breakpoint_background) DarkRed set colors(highlight_foreground) white set colors(highlight_background) CornflowerBlue set colors(mark_foreground) black set colors(mark_background) yellow set colors(trace_background) gray90 set colors(trace_foreground) black set typecode(0) VECTOR set typecode(1) SYMBOL set typecode(66) STRING set typecode(3) PAIR set typecode(36) CLOSURE set typecode(85) FLONUM set typecode(39) PORT set typecode(8) STRUCTURE set typecode(41) POINTER set typecode(42) LOCATIVE set typecode(43) TAGGED_POINTER set typecode(77) LAMBDA_INFO set typecode(15) BUCKET set EXEC_EVENT_MASK 32; # signal set STEP_EVENT_MASK 54; # call, entry, assign, signal set membar_height 50 set value_cutoff_limit 200; # must be lower than limit in dbg-stub.c set the_name "feathers" set header_text "$the_name - (c)MMXV The CHICKEN Team - Version $version" set startup_file ".$the_name" set client_addr "" set client_file "" set current_filename "" set current_c_filename "" set file_list {} set bp_queue {} set watched_queue {} set value_queue {} set current_line "" set current_c_line "" set current_bp_lines {} set current_bp_globals {} set font_name "Courier" set font_size 12 set program_name "" set search_path {"."} set data_view "" set c_view "" set data_queue {} set reply_queue {} set starting_up 1 set stepping 0 set terminated 0 set arguments_item_id "" set watched_variables {} set current_variable "" set current_value "" set listening 0 set process_id 0 set statistics_data "" set mark_start_index(.t) "" set mark_start_index(.code.t) "" set current_c_location "" set last_marked_widget .t set selected_filename "" set trace_data "" set last_location "" set logging 0 set env(CHICKEN_DEBUGGER) "localhost:9999" proc Log {msg} { global logging if {$logging} {puts stderr $msg} } proc SetupGUI {} { global font_name font_size colors the_name selected_filename label .h -height 1 -textvariable header_text -anchor w scrollbar .s -command {.t yview} text .t -wrap char -yscrollcommand {.s set} -cursor arrow -state disabled \ -font [list $font_name $font_size] frame .f ttk::combobox .files -postcommand FilesList -textvariable selected_filename pack .h -side top -fill x pack .files -side top -fill x pack .f -side bottom -fill x pack .s -fill y -side right pack .t -fill both -expand 1 for {set i 1} {$i <= 10} {incr i} { button .f.b$i -text "F$i" -font {Helvetica 10} -borderwidth 0 -relief flat \ -pady 0 pack .f.b$i -side left -expand 1 -fill x } .f.b1 configure -text "F1 Run" .f.b2 configure -text "F2 Where" .f.b3 configure -text "F3 AddDir" .f.b4 configure -text "F4 Data" .f.b5 configure -text "F5 Continue" .f.b6 configure -text "F6 Step" .f.b7 configure -text "F7 Find Prev" .f.b8 configure -text "F8 Find Next" .f.b9 configure -text "F9 C" .f.b10 configure -text "F10 Exit" .h configure -background $colors(header_background) \ -foreground $colors(header_foreground) -font {Helvetica 12} \ -borderwidth 0 .t configure -background $colors(text_background) \ -foreground $colors(text_foreground) \ -insertbackground $colors(text_foreground) -borderwidth 0 .t tag configure ev -background $colors(event_background) \ -foreground $colors(event_foreground) .t tag configure bp -background $colors(breakpoint_background) \ -foreground $colors(breakpoint_foreground) .t tag configure hl -background $colors(highlight_background) \ -foreground $colors(highlight_foreground) .t tag configure mk -background $colors(mark_background) \ -foreground $colors(mark_foreground) .t tag lower mk sel .t tag lower bp mk .t tag lower hl bp .t tag lower ev hl focus .t wm title . $the_name } proc SetupBindings {} { for {set i 1} {$i <= 10} {incr i} { bind . [list .f.b$i invoke] } .f.b1 configure -command RunProcess .f.b2 configure -command LocateFocus .f.b3 configure -command AddDirectory .f.b4 configure -command ShowData .f.b5 configure -command ContinueExecution .f.b6 configure -command StepExecution .f.b7 configure -command FindPrevious .f.b8 configure -command FindNext .f.b9 configure -command OpenCView .f.b10 configure -command Terminate bind .t { focus .t; ToggleBreakpoint %y; break } bind .t break bind .t {StepExecution; break} bind .t {ToggleBreakpoint; break} bind .t {MoveFocus -1; break} bind .t {MoveFocus 1; break} bind .t {ResizeFont 1; break} bind .t {ResizeFont -1; break} bind .t {Interrupt} bind .t {StartMark %W %x %y; break} bind .t {MoveMark %W %x %y; break} bind .t {EndMark %W; break} bind .files <> {SelectFile; focus .t} wm protocol . WM_DELETE_WINDOW Terminate } proc SetupDataView {} { global colors arguments_item_id stats membar_height the_name font_name font_size toplevel .data ttk::treeview .data.t -yscrollcommand {.data.s set} -columns {Values Addresses} \ -selectmode browse .data.t heading 0 -text Value .data.t heading 1 -text Address scrollbar .data.s -command {.data.t yview} entry .data.e canvas .data.c -height $membar_height frame .data.f text .data.f.tr -state disabled -yscrollcommand {.data.f.trs set} -height 20 \ -font [list $font_name $font_size] -foreground $colors(trace_foreground) \ -background $colors(trace_background) scrollbar .data.f.trs -command {.data.f.tr yview} pack .data.f -side bottom -fill x pack .data.c -side bottom -fill x pack .data.e -side bottom -fill x pack .data.s -fill y -side right pack .data.t -fill both -expand 1 pack .data.f.trs -fill y -side right pack .data.f.tr -side bottom -fill both -expand 1 .data.t tag configure watched -foreground $colors(breakpoint_foreground) \ -background $colors(breakpoint_background) set arguments_item_id [.data.t insert {} end -text ""] set stats(fromspace_used) [.data.c create rectangle 0 0 0 0 -fill gray80] set stats(fromspace_unused) [.data.c create rectangle 0 0 0 0 -fill gray40] set stats(scratchspace_used) [.data.c create rectangle 0 0 0 0 -fill gray80] set stats(scratchspace_unused) [.data.c create rectangle 0 0 0 0 -fill gray40] set stats(nursery_used) [.data.c create rectangle 0 0 0 0 -fill gray80] set stats(nursery_unused) [.data.c create rectangle 0 0 0 0 -fill gray40] set mh [expr $membar_height / 3] set stats(fromspace_name) [.data.c create text 10 0 -anchor nw -text "heap"] set stats(scratchspace_name) [.data.c create text 10 $mh -anchor nw -text \ "scratch"] set stats(nursery_name) [.data.c create text 10 [expr $mh * 2] -anchor nw \ -text "nursery"] set stats(fromspace_percentage) [.data.c create text 0 0 -anchor center] set stats(scratchspace_percentage) [.data.c create text 0 0 -anchor center] set stats(nursery_percentage) [.data.c create text 0 0 -anchor center] set stats(fromspace_size) [.data.c create text 0 0 -anchor ne] set stats(scratchspace_size) [.data.c create text 0 0 -anchor ne] set stats(nursery_size) [.data.c create text 0 0 -anchor ne] wm title .data "$the_name - data view" } proc SetupDataViewBindings {} { bind .data AddDirectory bind .data ShowData bind .data ContinueExecution bind .data StepExecution bind .data Terminate bind .data.e {WatchGlobal; break} bind .data.t {RemoveGlobal; break} bind .data.t {RemoveGlobal; break} bind .data.t <> OpenDataItem bind .data.t {ToggleVariableWatch; break} bind .data.t {ToggleVariableWatch %x %y; break} bind .data.t <> {Log [.data.t focus]; break} bind .data.c {RedrawStatistics} wm protocol .data WM_DELETE_WINDOW CloseDataView } proc SetupCView {} { global font_name font_size colors the_name toplevel .code label .code.h -height 1 -text "" -anchor w scrollbar .code.s -command {.code.t yview} text .code.t -wrap char -yscrollcommand {.code.s set} -cursor arrow -state \ disabled -font [list $font_name $font_size] frame .code.f pack .code.h -side top -fill x pack .code.s -fill y -side right pack .code.f -fill x -side bottom pack .code.t -fill both -expand 1 .code.h configure -background $colors(header_background) \ -foreground $colors(header_foreground) -font {Helvetica 12} \ -borderwidth 0 .code.t configure -background $colors(text_background) \ -foreground $colors(text_foreground) \ -insertbackground $colors(text_foreground) -borderwidth 0 .code.t tag configure hl -background $colors(highlight_background) \ -foreground $colors(highlight_foreground) .code.t tag configure mk -background $colors(mark_background) \ -foreground $colors(mark_foreground) .code.t tag lower mk sel .code.t tag lower hl mk wm title .code "$the_name - code view" focus .code.t } proc SetupCViewBindings {} { bind .code AddDirectory bind .code ShowData bind .code ContinueExecution bind .code StepExecution bind .code {FindPrevious .code.t} bind .code {FindNext .code.t} bind .code Terminate bind .code.t {focus .code.t} bind .code.t break bind .code {ResizeFont 1; break} bind .code {ResizeFont -1; break} bind .code.t {StartMark %W %x %y; break} bind .code.t {MoveMark %W %x %y; break} bind .code.t {EndMark %W; break} wm protocol .code WM_DELETE_WINDOW CloseCView } proc FilesList {} { global file_list .files configure -values $file_list } proc CloseDataView {} { global data_view if {$data_view != ""} { set data_view "" destroy .data } } proc CloseCView {} { global c_view if {$c_view != ""} { set c_view "" destroy .code } } proc ShowData {} { global data_view starting_up client_file program_name the_name if {$data_view == ""} { SetupDataView SetupDataViewBindings set data_view .data wm title .data "$the_name - $program_name - data view" if {!$starting_up && $client_file != ""} UpdateData } } proc OpenCView {} { global c_view starting_up current_c_location the_name program_name if {$c_view == ""} { SetupCView SetupCViewBindings set c_view .code wm title .code "$the_name - $program_name - code view" Log "$current_c_location" if {$current_c_location != ""} { LocateCSource $current_c_location } } } proc AddDirectory {} { global search_path current_filename set dir "." if {$current_filename != ""} { set dir [file dirname $current_filename] } set dir [tk_chooseDirectory -title "Select directory to add to search path" \ -initialdir $dir] if {$dir != ""} { lappend search_path $dir } } proc ResizeFont {n} { global font_size font_name c_view incr font_size $n .t configure -font [list $font_name $font_size] if {$c_view != ""} { .code.t configure -font [list $font_name $font_size] } } proc Flash {{color red}} { global colors .t configure -background $color update after 100 {.t configure -background $colors(text_background)} } proc CheckListening {} { global listening if {!$listening} { Flash return 0 } return 1 } proc MoveFocus {amount} { global current_line set ln [expr $current_line + $amount] SetFocus $ln } proc LocateFocus {} { global last_location if {$last_location != ""} { SetFocus $last_location } } proc SetFocus {line} { global current_line if {$line > 0 && $line <= [.t count -lines 1.0 end]} { set old [.t tag ranges hl] if {$old != ""} { eval .t tag remove hl $old } set current_line $line .t tag add hl $line.0 "$line.0 lineend + 1 chars" .t see $line.0 } } proc SetCFocus {line} { global current_c_line if {$line > 0 && $line <= [.code.t count -lines 1.0 end]} { set old [.code.t tag ranges hl] if {$old != ""} { eval .code.t tag remove hl $old } set current_c_line $line .code.t tag add hl $line.0 "$line.0 lineend + 1 chars" .code.t see $line.0 } } proc Interrupt {} { global process_id listening if {$listening || $process_id == 0} return catch {exec kill -USR2 $process_id} } proc ToggleBreakpoint {{y ""}} { global current_filename bp_queue current_bp_lines global current_line client_file reply_queue if {$client_file == ""} return if {$y != ""} { if {[catch {set p [.t index @1,$y]}]} return if {![regexp {^(\d+)\.} $p _ line]} return } else { set line $current_line } set aname "file:$current_filename" global $aname set aref "$aname\($line\)" if {![CheckListening]} return if {[info exists $aref]} { set bps [set $aref] if {$bps != ""} { set bp1 [lindex $bps 0] set bprest [lrange $bps 1 end] set bp_queue [concat $bp_queue $bprest] if {[lsearch -exact $current_bp_lines $line] != -1} { UnmarkBP $line SendReply CLEAR_BREAKPOINT $bp1 lappend reply_queue RemoveBPReply } else { MarkBP $line SendReply SET_BREAKPOINT $bp1 lappend reply_queue AddBPReply } } } } proc ToggleVariableWatch {{x ""} {y ""}} { global globals current_bp_globals bp_queue if {![CheckListening]} return if {$x == ""} { set item [.data.t focus] } else { if {[catch {.data.t identify item $x $y} item]} return } if {$item == ""} return if {[.data.t parent $item] != ""} return set name [.data.t item $item -text] if {$name == ""} return if {![info exists globals($name)]} return Log "globals: $name -> $globals($name)" set bps $globals($name) if {$bps != ""} { set bp1 [lindex $bps 0] set bprest [lrange $bps 1 end] set bp_queue [concat $bp_queue $bprest] if {[lsearch -exact $current_bp_globals $item] != -1} { UnmarkWatchedVariable $item SendReply CLEAR_BREAKPOINT $bp1 lappend reply_queue RemoveBPReply } else { MarkWatchedVariable $item SendReply SET_BREAKPOINT $bp1 lappend reply_queue AddBPReply } } } proc AddBPReply {} { global bp_queue reply_queue if {$bp_queue != ""} { set bp1 [lindex $bp_queue 0] set bp_queue [lrange $bp_queue 1 end] SendReply SET_BREAKPOINT $bp1 if {$bp_queue != ""} { lappend reply_queue AddBPReply } } } proc RemoveBPReply {} { global bp_queue reply_queue if {$bp_queue != ""} { set bp1 [lindex $bp_queue 0] set bp_queue [lrange $bp_queue 1 end] SendReply CLEAR_BREAKPOINT $bp1 if {$bp_queue != ""} { lappend reply_queue RemoveBPReply } } } proc MarkBP {line} { global current_bp_lines if {[lsearch -exact $current_bp_lines $line] == -1} { .t tag add bp $line.0 "$line.0 lineend" lappend current_bp_lines $line } } proc UnmarkBP {line} { global current_bp_lines set i [lsearch -exact $current_bp_lines $line] if {$i != -1} { set current_bp_lines [lreplace $current_bp_lines $i $i] .t tag remove bp $line.0 "$line.0 lineend" } } proc MarkWatchedVariable {item} { global current_bp_globals if {[lsearch -exact $current_bp_globals $item] == -1} { .data.t tag add watched $item lappend current_bp_globals $item } } proc UnmarkWatchedVariable {item} { global current_bp_globals set i [lsearch -exact $current_bp_globals $item] if {$i != -1} { set current_bp_globals [lreplace $current_bp_globals $i $i] .data.t tag remove watched $item } } proc Terminate {} { global client_file process_id if {$client_file != ""} { SendReply TERMINATE set f $client_file set client_file "" close $f catch {exec kill -9 $process_id} } exit } proc RunProcess {{prg ""}} { global env client_file program_name search_path reply_queue current_filename global data_queue bp_queue starting_up stepping terminated current_bp_lines global terminated watched_variables watched_queue listening file_list global value_queue process_id current_bp_globals data_view statistics_data global arguments_item_id trace_data last_location if {$client_file != ""} { if {!$terminated} {SendReply TERMINATE} set f $client_file set client_file "" close $f } set program_name $prg if {$program_name == ""} { set program_name [tk_getOpenFile -title "Select executable"] } if {$program_name == ""} return set args [lassign $program_name prgfname] set prgfname [file normalize $prgfname] if {![file exists $prgfname]} { .t configure -state normal .t insert end "Could not start program:\n\nfile `$prgfname' does not exist" .t see end .t configure -state disabled } lappend search_path [file dirname $prgfname] set reply_queue {} set data_queue {} set bp_queue {} set watched_queue {} set value_queue {} set last_location "" set starting_up 1 set stepping 0 set terminated 0 set current_bp_lines {} set current_bp_globals {} set current_filename "" set watched_variables {} set listening 0 set process_id 0 set statistics_data "" set file_list {} set trace_data "" .t configure -state normal .t delete 1.0 end .t configure -state disabled if {$data_view != ""} { .data.t delete [lrange [.data.t children {}] 1 end] .data.t delete [.data.t children $arguments_item_id] } if {[catch {eval exec $prgfname {*}$args <@ stdin >@ stdout 2>@ stderr &} result]} { .t configure -state normal .t insert end "Could not start program:\n\n$result" .t see end .t configure -state disabled } else { set process_id $result } } proc UpdateHeader {{msg ""}} { global header_text current_filename client_addr current_line set header_text $client_addr if {$current_filename != ""} { set header_text $current_filename if {$current_line != ""} { append header_text ":$current_line" } } if {$msg != ""} { append header_text " - $msg" } } proc ProcessInput {} { global client_file terminated gets $client_file line if {[eof $client_file]} { close $client_file set client_file "" set terminated 1 UpdateHeader "connection closed" } elseif {![fblocked $client_file]} { Log "Input: $line" ProcessLine $line } } proc ProcessLine {line} { if {[regexp {^\((\d+)\s+([^\s]*)\s+([^\s]*)\s+([^)]*)\)$} $line _ evt loc val cloc]} { set val [ProcessString $val] set loc [ProcessString $loc] set cloc [ProcessString $cloc] ProcessEvent $evt $loc $val $cloc } elseif {[regexp {^\(\*\s*(.*)\)$} $line _ data]} { ProcessData $data } else { UpdateHeader "invalid input: [string range $line 0 40]..." } } proc ProcessEvent {evt loc val cloc} { global events reply_queue starting_up EXEC_EVENT_MASK data_queue c_view global STEP_EVENT_MASK stepping data_view listening value_queue statistics_data global current_c_location protocol_version the_name program_name trace_data set listening 1 if {[info exists events($evt)]} { set eventname $events($evt) } else { UpdateHeader "unrecognized event: $evt" return } if {$data_queue != ""} { set data_queue [lrange $data_queue 1 end] } Log "evt: $eventname, dq: $data_queue, rq: $reply_queue, vq: $value_queue" if {$eventname != "listen"} { set statistics_data "" set trace_data "" } set current_c_location $cloc if {$c_view != ""} { LocateCSource $cloc } switch $eventname { connect { if {![regexp {^([^:]+):([^:]+):(\d+)$} $loc _ name pid pv]} { UpdateHeader "invalid connection info: $loc" return } if {$pv > $protocol_version} { UpdateHeader "client protocol doesn't match: $pv" return } wm title . "$the_name - $program_name" Log "\n##################### CONNECT ##################" SendReply SETMASK $STEP_EVENT_MASK set stepping 1 lappend reply_queue FetchEventListReply FirstStepReply } listen { if {$reply_queue != ""} { set action [lindex $reply_queue 0] set reply_queue [lrange $reply_queue 1 end] Log "action: $action" $action } elseif {$val == 1} { # new dbg-info was registered lappend reply_queue ApplyTags FetchEventListReply } } default { # call/entry/assign/signal/gc LocateEvent $loc $val UpdateHeader "\[$eventname\]" if {$starting_up} { SendReply SETMASK $EXEC_EVENT_MASK set starting_up 0 } elseif {$data_view != ""} UpdateData } } } proc UpdateData {} { global data_queue reply_queue watched_variables global watched_queue set watched_queue $watched_variables lappend reply_queue GetGlobals lappend data_queue GetAVData SendReply GET_AV } proc GetAVData {data} { global arguments_item_id value_queue set vals [ParseValueList $data] set cs [.data.t children $arguments_item_id] set len [llength $vals] set clen [llength $cs] for {set i 0} {$i < $len} {incr i} { lassign [ValueData [lindex $vals $i]] type text addr if {$i >= $clen} { set c [.data.t insert $arguments_item_id end -text $type -values \ [list $text $addr]] } else { set c [lindex $cs $i] .data.t item $c -text $type -values [list $text $addr] } if {$addr != ""} { lappend value_queue $c } incr i } if {$i < $clen} { .data.t delete [lrange $cs $i end] } .data.t item $arguments_item_id -open 1 } proc GetGlobals {} { global data_queue reply_queue watched_queue current_variable global data_view value_queue if {$watched_queue != ""} { set current_variable [lindex $watched_queue 0] set watched_queue [lrange $watched_queue 1 end] lappend data_queue GetGlobalData set name [MangleSymbol [.data.t item $current_variable -text]] SendReply GET_GLOBAL "\"$name\"" lappend reply_queue GetGlobals } elseif {$data_view != ""} { if {$value_queue != ""} { GetValues } else { GetStatistics } } } proc GetValues {} { global data_view value_queue current_value data_queue reply_queue if {$data_view != ""} { if {$value_queue != ""} { set current_value [lindex $value_queue 0] Log "get value: $current_value" set value_queue [lrange $value_queue 1 end] lappend data_queue GetValueData scan [.data.t set $current_value 1] %x addr SendReply GET_SLOTS $addr lappend reply_queue GetValues } else { UpdateValueText {} GetTrace } } } proc GetTrace {} { global data_queue trace_data reply_queue if {$trace_data == ""} { lappend reply_queue GetStatistics lappend data_queue GetTraceData SendReply GET_TRACE } else GetStatistics } proc GetTraceData {data} { global trace_data if {![regexp {^"([^"]*)"$} $data _ str]} { append trace_data "\n" } else { append trace_data "$str\n" } } proc RedrawTrace {} { global trace_data .data.f.tr configure -state normal .data.f.tr delete 1.0 end .data.f.tr insert 1.0 $trace_data .data.f.tr configure -state disabled } proc GetStatistics {} { global data_queue statistics_data reply_queue trace_data if {$trace_data != ""} RedrawTrace if {$statistics_data == ""} { lappend data_queue GetStatisticsData SendReply GET_STATS } } proc GetStatisticsData {data} { global statistics_data set addrs [ParseValueList $data] set statistics_data $addrs RedrawStatistics } proc RedrawStatistics {} { global statistics_data stats membar_height if {$statistics_data == ""} return set w [winfo width .data.c] set w2 [expr $w / 2] set w10 [expr $w - 10] set mh [expr $membar_height / 3] set mh2 [expr $mh * 2] # fromspace lassign [CalcSize [lindex $statistics_data 0] [lindex $statistics_data 1] \ [lindex $statistics_data 6] $w] p pc sz .data.c coords $stats(fromspace_used) 0 0 $p $mh .data.c coords $stats(fromspace_unused) $p 0 $w $mh .data.c coords $stats(fromspace_percentage) $w2 [expr $mh / 2] .data.c itemconfigure $stats(fromspace_percentage) -text "$pc%" .data.c coords $stats(fromspace_size) $w10 0 .data.c itemconfigure $stats(fromspace_size) -text "${sz}k" # scratchspace if {[lindex $statistics_data 2] != 0} { lassign [CalcSize [lindex $statistics_data 2] [lindex $statistics_data 3] \ [lindex $statistics_data 7] $w] p pc sz .data.c coords $stats(scratchspace_used) 0 $mh $p $mh2 .data.c coords $stats(scratchspace_unused) $p $mh $w $mh2 .data.c coords $stats(scratchspace_percentage) $w2 [expr int($mh * 1.5)] .data.c itemconfigure $stats(scratchspace_percentage) -text "$pc%" .data.c coords $stats(scratchspace_size) $w10 $mh .data.c itemconfigure $stats(scratchspace_size) -text "${sz}k" } # nursery lassign [CalcSize [lindex $statistics_data 4] [lindex $statistics_data 5] \ [lindex $statistics_data 8] $w 1] p pc sz .data.c coords $stats(nursery_used) 0 $mh2 $p $membar_height .data.c coords $stats(nursery_unused) $p $mh2 $w $membar_height .data.c coords $stats(nursery_percentage) $w2 [expr int($mh * 2.5)] .data.c itemconfigure $stats(nursery_percentage) -text "$pc%" .data.c coords $stats(nursery_size) $w10 $mh2 .data.c itemconfigure $stats(nursery_size) -text "${sz}k" } proc CalcSize {start limit top width {inv 0}} { set total [expr $limit - $start] if {$inv} { set amount [expr $limit - $top] } else { set amount [expr $top - $start] } set p [expr int(double($amount) / $total * 100)] set sz [expr $total / 1024] return [list [expr int((double($width) / $total) * $amount)] $p $sz] } proc GetValueData {data} { global current_value value_queue typecode value_cutoff_limit set vals [ParseValueList $data] set bits [lindex $vals 1] if {[info exists typecode($bits)]} { set type $typecode($bits) } else { set type "" } .data.t item $current_value -text $type set cs {} switch [lindex $vals 0] { "SPECIAL" { set cs [.data.t children $current_value] if {$cs == ""} { set c1 [.data.t insert $current_value end] set cs {} } else { set c1 [lindex $cs 0] set cs [lrange $cs 1 end] } .data.t item $c1 -text "" -values \ [list "" [format 0x%x [lindex $vals 2]]] set vals [lrange $vals 3 end] } "VECTOR" { set vals [lrange $vals 2 end] set cs [.data.t children $current_value] } "BLOB" { if {$type == "STRING" || $type == "LAMBDA_INFO"} { set str "\"" foreach c [lrange $vals 2 end] { # XXX escape special chars append str [format %c $c] } append str "\"" } elseif {$type == "FLONUM"} { set bytes [binary format c* $vals] binary scan $bytes d str } else { set str "#\${" foreach c [lrange $vals 2 end] { append str [format %02x $c] } append str "}" } .data.t set $current_value 0 $str set cs [.data.t children $current_value] if {$cs != ""} {.data.t delete $cs} return } default { UpdateHeader "invalid value: $data" } } set vlen [llength $vals] set clen [llength $cs] for {set i 0} {$i < $vlen} {incr i} { set val [lindex $vals $i] lassign [ValueData $val] type text addr if {$i >= $clen} { set c [.data.t insert $current_value end -text $type -values \ [list $text $addr]] Log "insert: $c" } else { set c [lindex $cs $i] Log "reuse: $c" .data.t item $c -text $type -values [list $text $addr] } if {$i >= $value_cutoff_limit} { .data.t item $c -text ":" -values {"" ""} incr i break } if {$addr != ""} { if {[.data.t item [.data.t parent $c] -open]} { lappend value_queue $c } } else { .data.t delete [.data.t children $c] } } if {$i < $clen} { .data.t delete [lrange $cs $i end] } } proc UpdateValueText {node} { global value_cutoff_limit set cs [.data.t children $node] foreach c $cs { UpdateValueText $c } if {$node == ""} return set addr [.data.t set $node 1] if {$addr == ""} return set type [.data.t item $node -text] if {$type == ":"} return set str "..." switch $type { "" return "" return "" return FLONUM return LAMBDA_INFO return STRING return PAIR { set car [.data.t set [lindex $cs 0] 0] set cdr [.data.t set [lindex $cs 1] 0] set str "($car" switch [.data.t item [lindex $cs 1] -text] { NULL {append str ")"} PAIR {append str " [string range $cdr 1 end]"} default {append str " . $cdr)"} } } VECTOR { if {$cs == ""} { set str "#()" } else { set x0 [.data.t set [lindex $cs 0] 0] set str "#($x0" foreach c [lrange $cs 1 end] { set x [.data.t set $c 0] append str " $x" } append str ")" } } SYMBOL { set name [.data.t set [lindex $cs 1] 0] set str [DemangleSymbol [string range $name 1 "end-1"]] } default { set str "#<$type $addr>" } } if {[string length $str] >= $value_cutoff_limit} { set str "[string range $str 0 $value_cutoff_limit]..." } .data.t set $node 0 $str } proc OpenDataItem {} { global value_queue listening set item [.data.t focus] if {$item == ""} return if {!$listening} return if {[.data.t parent $item] == ""} return set cs [.data.t children $item] foreach c $cs { if {[.data.t set $c 1] != "" && \ [.data.t item $c -text] != ""} { lappend value_queue $c } } GetValues } proc WatchGlobal {} { global data_queue watched_variables current_variable reply_queue if {![CheckListening]} return set name [string trim [.data.e get]] .data.e delete 0 end if {$name == ""} return if {[lsearch -exact $watched_variables $name] != -1} return set id [.data.t insert {} end -text $name] lappend watched_variables $id lappend data_queue GetGlobalData set current_variable $id set name [MangleSymbol $name] SendReply GET_GLOBAL "\"$name\"" lappend reply_queue GetValues } proc RemoveGlobal {} { global watched_variables arguments_item_id set f [.data.t focus] if {$f == $arguments_item_id || [.data.t parent $f] == $arguments_item_id} return .data.t delete $f if {$f == ""} return set p [lsearch -exact $watched_variables $f] set watched_variables [lreplace $watched_variables $p $p] } proc GetGlobalData {data} { global current_variable watched_variables value_queue if {$data == "UNKNOWN"} { .data.t set $current_variable 0 "UNKNOWN" set p [lsearch -exact $watched_variables $current_variable] set watched_variables [lreplace $watched_variables $p $p] return } set node [.data.t children $current_variable] if {$node == ""} { set node [.data.t insert $current_variable end] .data.t item $current_variable -open 1 } set val [ParseValueList $data] lassign [ValueData $val] type text addr .data.t item $node -text $type .data.t set $node 0 $text .data.t set $node 1 $addr if {$addr != ""} { lappend value_queue $node } } # returns type, text and address proc ValueData {val} { set c1 [string index $val 0] set rest [string range $val 1 end] switch $c1 { "@" { return [list "" "..." [format "0x%x" $rest]] } "=" { switch $rest { 6 {return {"BOOLEAN" "#f" ""}} 22 {return {"BOOLEAN" "#t" ""}} 14 {return {"NULL" "()" ""}} 30 {return {"UNDEFINED" "#" ""}} 46 {return {"UNBOUND" "#" ""}} 62 {return {"EOF" "#" ""}} default { if {($val & 15) == 10} { return [list "CHARACTER" [format "#\%c" [expr $val >> 8]] ""] } return [list "???" [format "#" \ $val] ""] } } } default {return [list "FIXNUM" $val ""]} } } proc MangleSymbol {str} { if {[regexp {^##([^#]+)#(.+)$} $str _ prefix name]} { set len [string length $prefix] return [binary format ca*a* $len $prefix $name] } return $str } proc DemangleSymbol {str} { set b1 "" binary scan $str ca* b1 name if {$b1 == ""} { return $str } elseif {$b1 == 0} { return "#:$name" } elseif {$b1 < 32} { return [format "##%s#%s" [string range $name 0 2] [string range $name 3 end]] } return $str } proc ParseValueList {str} { set vals {} while {[regexp {^\s*(\S+)(.*)$} $str _ val rest]} { lappend vals $val set str $rest } return $vals } proc FirstStepReply {} { global stepping set stepping 0 SendReply CONTINUE } proc ProcessData {data} { global data_queue if {$data_queue == ""} { UpdateHeader "unexpected data: $data" } set handler [lindex $data_queue 0] $handler $data } proc ExtractLocation args { foreach data $args { if {[regexp {^([^:]+):(\d+)(: .*)?$} $data _ fname line]} { return [list $fname $line] } } return "" } proc LocateFile {fname} { global search_path foreach d $search_path { set fn [file join $d $fname] if {[file exists $fn]} { set fn [file normalize $fn] Log "Located: $fn" return $fn } } return "" } proc InsertDebugInfo {index event args} { global file_list globals set loc [eval ExtractLocation $args] # check for assignment event if {$event == 1} { set name [lindex $args 1] lappend globals($name) $index } if {$loc != ""} { set fname [LocateFile [lindex $loc 0]] if {[lsearch -exact $file_list $fname] == -1} { lappend file_list $fname } set line [lindex $loc 1] # icky: compute array variable name from filename: set tname "file:$fname" global $tname set xname "$tname\($line\)" lappend $xname $index return 1 } return 0 } proc ProcessString {str} { if {$str == "#f"} { return "" } elseif {[regexp {^"(.*)"$} $str _ strip]} { return $strip } else { return $str } } proc FetchEventListReply {} { global file_list reply_queue data_queue UpdateHeader "fetching debug information ..." lappend data_queue EventInfoData SendReply LIST_EVENTS {""} } proc EventInfoData {data} { if {[regexp {(\d+)\s+(\d+)\s+([^\s]*)\s+(.*)$} $data _ index event loc val]} { set loc [ProcessString $loc] set val [ProcessString $val] InsertDebugInfo $index $event $loc $val } else { UpdateHeader "invalid event data: $data" } } proc ContinueExecution {} { global client_file EXEC_EVENT_MASK stepping reply_queue listening global value_queue if {$client_file == ""} return if {![CheckListening]} return UpdateHeader "executing ..." if {$stepping} { set stepping 0 SendReply SETMASK $EXEC_EVENT_MASK lappend reply_queue ContinueExecution } else { set value_queue {} set listening 0 SendReply CONTINUE } } proc StepExecution {} { global STEP_EVENT_MASK client_file stepping listening value_queue reply_queue global watched_queue if {$client_file == ""} return if {![CheckListening]} return if {!$stepping} { set stepping 1 SendReply SETMASK $STEP_EVENT_MASK lappend reply_queue StepExecution } else { set value_queue {} set watched_queue {} set listening 0 SendReply CONTINUE } UpdateHeader "stepping ..." } proc StartMark {w x y} { global mark_start_index last_marked_widget set mark_start_index($w) "" set last_marked_widget $w set old [$w tag ranges mk] if {$old != ""} { eval $w tag remove mk $old } if {![catch {$w index "@$x,$y"} pos]} { set mark_start_index($w) $pos } } proc EndMark {w} { global mark_start_index set rng [$w tag ranges mk] if {$rng != ""} { set text [eval $w get $rng] set len [string length $text] set found [$w search -all $text 1.0 end] foreach f $found { $w tag add mk $f "$f + $len chars" } } set mark_start_index($w) "" } proc MoveMark {w x y} { global mark_start_index if {$mark_start_index($w) == ""} return if {![catch {$w index "@$x,$y"} pos]} { if {$pos == $mark_start_index($w)} return set old [$w tag ranges mk] if {$old != ""} { eval $w tag remove $old } if {[$w compare $pos < $mark_start_index($w)]} { set tmp $mark_start_index($w) set mark_start_index($w) $pos set pos $tmp } $w tag add mk $mark_start_index($w) $pos } } proc FindNext {{w ""}} { global last_marked_widget if {$w == ""} {set w $last_marked_widget} # not sure if this test is needed if {[catch {$w index "@1,1"} pos]} return while 1 { set rng [$w tag nextrange mk $pos end] if {$rng == ""} return lassign $rng p1 pos if {[$w dlineinfo $p1] == ""} { $w see $p1 return } } } proc FindPrevious {{w ""}} { global last_marked_widget if {$w == ""} {set w $last_marked_widget} # not sure if this test is needed if {[catch {$w index "@1,1"} pos]} return set rng [$w tag prevrange mk $pos 1.0] if {$rng == ""} return set p1 [lindex $rng 0] $w see $p1 } proc SendReply {rep args} { global client_file reply set rest "" if {$args != ""} { set rest " [join $args]" } set str "($reply($rep)$rest)" Log "send: $str" puts $client_file $str } proc SelectFile {} { global current_filename selected_filename if {$current_filename == $selected_filename} return if {![LoadFile $selected_filename]} return if {[SwitchFile $selected_filename]} ApplyTags } proc OpenFile {} { global current_filename file_list set dir "." if {$current_filename != ""} { set dir [file dirname $current_filename] } set fname [tk_getOpenFile -title "Select source file" -initialdir $dir] set fname [file normalize $fname] if {$fname == "" || $fname == $current_filename} return if {[lsearch -exact $file_list $fname] == -1} { tk_messageBox -message "No debug information available for \"$fname\"" \ -type ok return } if {![LoadFile $fname]} return if {[SwitchFile $fname]} ApplyTags } proc SwitchFile {fname} { global current_bp_lines saved_bp_lines file_list current_filename Log "switch: $current_filename -> $fname" if {$current_filename != ""} { Log "saving bps: $current_bp_lines" set saved_bp_lines($current_filename) $current_bp_lines } set current_filename $fname Log "searching $fname in $file_list" if {[lsearch -exact $file_list $fname] != -1} { if {[info exists saved_bp_lines($fname)]} { set current_bp_lines {} foreach line $saved_bp_lines($fname) {MarkBP $line} Log "restoring bps: $current_bp_lines" } else { set current_bp_lines {} } return 1 } return 0 } proc LocateEvent {loc val} { global current_filename file_list saved_bp_lines search_path last_location set loc [ExtractLocation $loc $val] if {$loc != ""} { set fname0 [lindex $loc 0] set fname [LocateFile [lindex $loc 0]] set line [lindex $loc 1] if {$fname != $current_filename} { if {![LoadFile $fname]} return if {[SwitchFile $fname]} ApplyTags } set last_location $line SetFocus $line } } proc LocateCSource {cloc} { global current_c_filename search_path set loc [ExtractLocation $cloc] if {$loc != ""} { .code.h configure -text $cloc set fname [file normalize [lindex $loc 0]] set line [lindex $loc 1] if {$fname != $current_c_filename} { foreach d $search_path { set fn [file join $d $fname] if {[file exists $fn]} { set fname $fn break } } if {![LoadFile $fname .code.t]} return } SetCFocus $line } } proc LoadFile {fname {w .t}} { $w configure -state normal $w delete 1.0 end if {[file exists $fname]} { set f [open $fname] $w insert 1.0 [read $f] close $f $w configure -state disabled return 1 } else { $w insert 1.0 "File not found: \"$fname\"" $w configure -state disabled return 0 } } proc ApplyTags {} { global current_filename set aname "file:$current_filename" global $aname set old [.t tag ranges ev] Log "apply tags: $current_filename" if {$old != ""} { eval .t tag remove $old } foreach line [array names $aname] { set evts [set $aname\($line\)] .t tag add ev $line.0 "$line.0 lineend + 1 chars" } UpdateHeader "events tagged" } proc Server {channel addr port} { global client_addr client_file if {$client_file != ""} { close $channel return } fconfigure $channel -buffering line -encoding binary -blocking 0 fileevent $channel readable ProcessInput set client_addr $addr set client_file $channel } proc SetupServer {} { global debugger_port socket -server Server $debugger_port .t configure -state normal .t insert end "Waiting for connection from client ...\n" .t configure -state disabled } proc Usage {code} { global the_name set usage "Usage: $the_name " append usage {[-help] [-n] [-d] [-dir DIRNAME] [-port PORT] [PROGRAM ARGUMENTS ...]} puts stderr $usage exit $code } set load_startup_file 1 for {set i 0} {$i < $argc} {incr i} { set arg [lindex $argv $i] switch -regexp -- $arg { {^--?(h|help)$} {Usage 0} {^-dir$} { incr i lappend search_path [lindex $argv $i] } {^-n$} {set load_startup_file 0} {^-port$} { incr i set debugger_port [lindex $argv $i] } {^-d$} {set logging 1} {^-} {Usage 1} default { if {$program_name != ""} {Usage 0} set program_name [lrange $argv $i end] break } } } if {$load_startup_file} { if {[file exists $env(HOME)/$startup_file]} { source $env(HOME)/$startup_file } if {[file exists $startup_file]} { source $startup_file } } SetupGUI SetupBindings SetupServer if {$program_name != ""} { RunProcess $program_name } # TODO: # # - F2 is mostly pointless # - data-view update is slow # - modify only when necessary? or are we creating too many items on the fly? # - or too much TCP-traffic? # - allow spawning gdb, probably in separate terminal window(?) # - may be covered by just running "gdb " as client # - setting breakpoints on yet unregistered (i.e. dynamically loaded) files # is not possible - a file must be registered first # - check whether "listening" check works # - when retrieved data is wrong, clear queues # - must watched globals be mangled, when qualified? (GET_GLOBAL) # - dview: monospace font (needs tags, it seems) # - https://sourceware.org/gdb/current/onlinedocs/gdb/GDB_002fMI.html#GDB_002fMI # - gdb interface: # - toggle bp in C-source line, step/execute # - needs a way to trigger gdb from running program (in dbg-stub.c) # (send signal to self (SIGUSR2?)) # - allow explicit connection to debugger from Scheme code # - multiple dbg-info for identical filenames will cause havoc # - interrupt takes rather long (was in bignum-heavy code, try other) # - bignums are shown as raw strings (uses string-type for bitvec) # - how to handle threads? chicken-5.1.0/chicken.blob.import.c0000644000175000017500000001431013502227772016733 0ustar sjamaansjamaan/* Generated from chicken.blob.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.blob.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.blob.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.blob.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(141))){ C_save(t1); C_rereclaim2(141*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],12, C_text("chicken.blob")); lf[2]=C_h_intern(&lf[2],7, C_text("library")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001blob->string\376\001\000\000\031\001chicken.blob#blob->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001strin" "g->blob\376\001\000\000\031\001chicken.blob#string->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001blob\077\376\001\000\000\022\001chicken.blob#bl" "ob\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001blob=\077\376\001\000\000\023\001chicken.blob#blob=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001blob-size\376\001\000\000\026" "\001chicken.blob#blob-size\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001make-blob\376\001\000\000\026\001chicken.blob#make-blob\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eblob_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eblob_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eblob_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eblob_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eblob_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ chicken-5.1.0/chicken-install.c0000644000175000017500000741106413502227767016173 0ustar sjamaansjamaan/* Generated from chicken-install.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken-install.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -output-file chicken-install.c uses: library eval expand chicken-ffi-syntax file posix extras irregex tcp port internal data-structures pathname */ #include "chicken.h" #ifndef STATICBUILD # define STATIC_CHICKEN 0 #else # define STATIC_CHICKEN 1 #endif #ifndef DEBUGBUILD # define DEBUG_CHICKEN 0 #else # define DEBUG_CHICKEN 1 #endif static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_chicken_2dffi_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dffi_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_file_toplevel) C_externimport void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_posix_toplevel) C_externimport void C_ccall C_posix_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_irregex_toplevel) C_externimport void C_ccall C_irregex_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_tcp_toplevel) C_externimport void C_ccall C_tcp_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_port_toplevel) C_externimport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[967]; static double C_possibly_force_alignment; C_noret_decl(f23132) static void C_ccall f23132(C_word c,C_word *av) C_noret; C_noret_decl(f23138) static void C_ccall f23138(C_word c,C_word *av) C_noret; C_noret_decl(f23144) static void C_ccall f23144(C_word c,C_word *av) C_noret; C_noret_decl(f23150) static void C_ccall f23150(C_word c,C_word *av) C_noret; C_noret_decl(f23169) static void C_ccall f23169(C_word c,C_word *av) C_noret; C_noret_decl(f23175) static void C_ccall f23175(C_word c,C_word *av) C_noret; C_noret_decl(f23181) static void C_ccall f23181(C_word c,C_word *av) C_noret; C_noret_decl(f23187) static void C_ccall f23187(C_word c,C_word *av) C_noret; C_noret_decl(f23193) static void C_ccall f23193(C_word c,C_word *av) C_noret; C_noret_decl(f23199) static void C_ccall f23199(C_word c,C_word *av) C_noret; C_noret_decl(f23205) static void C_ccall f23205(C_word c,C_word *av) C_noret; C_noret_decl(f23211) static void C_ccall f23211(C_word c,C_word *av) C_noret; C_noret_decl(f23219) static void C_ccall f23219(C_word c,C_word *av) C_noret; C_noret_decl(f23227) static void C_ccall f23227(C_word c,C_word *av) C_noret; C_noret_decl(f23233) static void C_ccall f23233(C_word c,C_word *av) C_noret; C_noret_decl(f23239) static void C_ccall f23239(C_word c,C_word *av) C_noret; C_noret_decl(f23245) static void C_ccall f23245(C_word c,C_word *av) C_noret; C_noret_decl(f23251) static void C_ccall f23251(C_word c,C_word *av) C_noret; C_noret_decl(f23257) static void C_ccall f23257(C_word c,C_word *av) C_noret; C_noret_decl(f23263) static void C_ccall f23263(C_word c,C_word *av) C_noret; C_noret_decl(f23269) static void C_ccall f23269(C_word c,C_word *av) C_noret; C_noret_decl(f23291) static void C_ccall f23291(C_word c,C_word *av) C_noret; C_noret_decl(f23299) static void C_ccall f23299(C_word c,C_word *av) C_noret; C_noret_decl(f23305) static void C_ccall f23305(C_word c,C_word *av) C_noret; C_noret_decl(f23315) static void C_ccall f23315(C_word c,C_word *av) C_noret; C_noret_decl(f23319) static void C_ccall f23319(C_word c,C_word *av) C_noret; C_noret_decl(f23361) static void C_ccall f23361(C_word c,C_word *av) C_noret; C_noret_decl(f23378) static void C_ccall f23378(C_word c,C_word *av) C_noret; C_noret_decl(f23387) static void C_ccall f23387(C_word c,C_word *av) C_noret; C_noret_decl(f23404) static void C_ccall f23404(C_word c,C_word *av) C_noret; C_noret_decl(f23413) static void C_ccall f23413(C_word c,C_word *av) C_noret; C_noret_decl(f23424) static void C_ccall f23424(C_word c,C_word *av) C_noret; C_noret_decl(f23431) static void C_ccall f23431(C_word c,C_word *av) C_noret; C_noret_decl(f23480) static void C_ccall f23480(C_word c,C_word *av) C_noret; C_noret_decl(f23493) static void C_ccall f23493(C_word c,C_word *av) C_noret; C_noret_decl(f23498) static void C_ccall f23498(C_word c,C_word *av) C_noret; C_noret_decl(f23505) static void C_ccall f23505(C_word c,C_word *av) C_noret; C_noret_decl(f23510) static void C_ccall f23510(C_word c,C_word *av) C_noret; C_noret_decl(f_10002) static void C_ccall f_10002(C_word c,C_word *av) C_noret; C_noret_decl(f_10015) static void C_ccall f_10015(C_word c,C_word *av) C_noret; C_noret_decl(f_10035) static void C_ccall f_10035(C_word c,C_word *av) C_noret; C_noret_decl(f_10043) static void C_ccall f_10043(C_word c,C_word *av) C_noret; C_noret_decl(f_10066) static void C_ccall f_10066(C_word c,C_word *av) C_noret; C_noret_decl(f_10076) static void C_ccall f_10076(C_word c,C_word *av) C_noret; C_noret_decl(f_10079) static void C_ccall f_10079(C_word c,C_word *av) C_noret; C_noret_decl(f_10085) static void C_ccall f_10085(C_word c,C_word *av) C_noret; C_noret_decl(f_10101) static void C_ccall f_10101(C_word c,C_word *av) C_noret; C_noret_decl(f_10109) static void C_fcall f_10109(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10119) static void C_ccall f_10119(C_word c,C_word *av) C_noret; C_noret_decl(f_10132) static void C_ccall f_10132(C_word c,C_word *av) C_noret; C_noret_decl(f_10179) static void C_ccall f_10179(C_word c,C_word *av) C_noret; C_noret_decl(f_10201) static void C_ccall f_10201(C_word c,C_word *av) C_noret; C_noret_decl(f_10221) static void C_ccall f_10221(C_word c,C_word *av) C_noret; C_noret_decl(f_10231) static void C_ccall f_10231(C_word c,C_word *av) C_noret; C_noret_decl(f_10257) static void C_ccall f_10257(C_word c,C_word *av) C_noret; C_noret_decl(f_10261) static void C_ccall f_10261(C_word c,C_word *av) C_noret; C_noret_decl(f_10265) static void C_ccall f_10265(C_word c,C_word *av) C_noret; C_noret_decl(f_10275) static void C_ccall f_10275(C_word c,C_word *av) C_noret; C_noret_decl(f_10277) static void C_fcall f_10277(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10302) static void C_ccall f_10302(C_word c,C_word *av) C_noret; C_noret_decl(f_10311) static void C_fcall f_10311(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10336) static void C_ccall f_10336(C_word c,C_word *av) C_noret; C_noret_decl(f_10356) static void C_ccall f_10356(C_word c,C_word *av) C_noret; C_noret_decl(f_10371) static void C_ccall f_10371(C_word c,C_word *av) C_noret; C_noret_decl(f_10375) static void C_ccall f_10375(C_word c,C_word *av) C_noret; C_noret_decl(f_10385) static void C_ccall f_10385(C_word c,C_word *av) C_noret; C_noret_decl(f_10397) static void C_ccall f_10397(C_word c,C_word *av) C_noret; C_noret_decl(f_10409) static void C_ccall f_10409(C_word c,C_word *av) C_noret; C_noret_decl(f_10413) static void C_ccall f_10413(C_word c,C_word *av) C_noret; C_noret_decl(f_10423) static void C_ccall f_10423(C_word c,C_word *av) C_noret; C_noret_decl(f_10427) static void C_ccall f_10427(C_word c,C_word *av) C_noret; C_noret_decl(f_10444) static void C_ccall f_10444(C_word c,C_word *av) C_noret; C_noret_decl(f_10446) static void C_fcall f_10446(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10471) static void C_ccall f_10471(C_word c,C_word *av) C_noret; C_noret_decl(f_10488) static void C_ccall f_10488(C_word c,C_word *av) C_noret; C_noret_decl(f_10499) static void C_ccall f_10499(C_word c,C_word *av) C_noret; C_noret_decl(f_10501) static void C_fcall f_10501(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10526) static void C_ccall f_10526(C_word c,C_word *av) C_noret; C_noret_decl(f_10543) static void C_ccall f_10543(C_word c,C_word *av) C_noret; C_noret_decl(f_10554) static void C_ccall f_10554(C_word c,C_word *av) C_noret; C_noret_decl(f_10556) static void C_fcall f_10556(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10581) static void C_ccall f_10581(C_word c,C_word *av) C_noret; C_noret_decl(f_10617) static void C_fcall f_10617(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10642) static void C_fcall f_10642(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10652) static void C_ccall f_10652(C_word c,C_word *av) C_noret; C_noret_decl(f_10684) static void C_fcall f_10684(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10694) static void C_ccall f_10694(C_word c,C_word *av) C_noret; C_noret_decl(f_10735) static void C_ccall f_10735(C_word c,C_word *av) C_noret; C_noret_decl(f_10749) static void C_ccall f_10749(C_word c,C_word *av) C_noret; C_noret_decl(f_10753) static void C_ccall f_10753(C_word c,C_word *av) C_noret; C_noret_decl(f_10763) static void C_ccall f_10763(C_word c,C_word *av) C_noret; C_noret_decl(f_10774) static void C_ccall f_10774(C_word c,C_word *av) C_noret; C_noret_decl(f_10776) static void C_fcall f_10776(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10801) static void C_ccall f_10801(C_word c,C_word *av) C_noret; C_noret_decl(f_10817) static void C_ccall f_10817(C_word c,C_word *av) C_noret; C_noret_decl(f_10831) static void C_ccall f_10831(C_word c,C_word *av) C_noret; C_noret_decl(f_10843) static void C_ccall f_10843(C_word c,C_word *av) C_noret; C_noret_decl(f_10855) static void C_ccall f_10855(C_word c,C_word *av) C_noret; C_noret_decl(f_10868) static void C_fcall f_10868(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10878) static void C_fcall f_10878(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10897) static void C_ccall f_10897(C_word c,C_word *av) C_noret; C_noret_decl(f_10908) static void C_fcall f_10908(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10918) static void C_ccall f_10918(C_word c,C_word *av) C_noret; C_noret_decl(f_10946) static void C_ccall f_10946(C_word c,C_word *av) C_noret; C_noret_decl(f_10967) static void C_ccall f_10967(C_word c,C_word *av) C_noret; C_noret_decl(f_10986) static void C_fcall f_10986(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10996) static void C_ccall f_10996(C_word c,C_word *av) C_noret; C_noret_decl(f_11022) static void C_fcall f_11022(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11032) static void C_ccall f_11032(C_word c,C_word *av) C_noret; C_noret_decl(f_11052) static void C_fcall f_11052(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11056) static void C_ccall f_11056(C_word c,C_word *av) C_noret; C_noret_decl(f_11059) static void C_ccall f_11059(C_word c,C_word *av) C_noret; C_noret_decl(f_11065) static void C_ccall f_11065(C_word c,C_word *av) C_noret; C_noret_decl(f_11068) static void C_ccall f_11068(C_word c,C_word *av) C_noret; C_noret_decl(f_11092) static void C_ccall f_11092(C_word c,C_word *av) C_noret; C_noret_decl(f_11105) static void C_fcall f_11105(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11118) static void C_ccall f_11118(C_word c,C_word *av) C_noret; C_noret_decl(f_11127) static void C_ccall f_11127(C_word c,C_word *av) C_noret; C_noret_decl(f_11140) static void C_fcall f_11140(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11146) static void C_ccall f_11146(C_word c,C_word *av) C_noret; C_noret_decl(f_11204) static void C_ccall f_11204(C_word c,C_word *av) C_noret; C_noret_decl(f_11207) static void C_ccall f_11207(C_word c,C_word *av) C_noret; C_noret_decl(f_11210) static void C_ccall f_11210(C_word c,C_word *av) C_noret; C_noret_decl(f_11217) static void C_ccall f_11217(C_word c,C_word *av) C_noret; C_noret_decl(f_11221) static void C_ccall f_11221(C_word c,C_word *av) C_noret; C_noret_decl(f_11225) static void C_ccall f_11225(C_word c,C_word *av) C_noret; C_noret_decl(f_11248) static void C_ccall f_11248(C_word c,C_word *av) C_noret; C_noret_decl(f_11263) static void C_ccall f_11263(C_word c,C_word *av) C_noret; C_noret_decl(f_11278) static void C_ccall f_11278(C_word c,C_word *av) C_noret; C_noret_decl(f_11293) static void C_ccall f_11293(C_word c,C_word *av) C_noret; C_noret_decl(f_11308) static void C_ccall f_11308(C_word c,C_word *av) C_noret; C_noret_decl(f_11310) static void C_fcall f_11310(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11335) static void C_ccall f_11335(C_word c,C_word *av) C_noret; C_noret_decl(f_11344) static void C_fcall f_11344(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11369) static void C_ccall f_11369(C_word c,C_word *av) C_noret; C_noret_decl(f_11378) static void C_fcall f_11378(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11403) static void C_ccall f_11403(C_word c,C_word *av) C_noret; C_noret_decl(f_11412) static void C_fcall f_11412(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11437) static void C_ccall f_11437(C_word c,C_word *av) C_noret; C_noret_decl(f_11446) static void C_ccall f_11446(C_word c,C_word *av) C_noret; C_noret_decl(f_11460) static void C_fcall f_11460(C_word t0,C_word t1) C_noret; C_noret_decl(f_11464) static void C_fcall f_11464(C_word t0,C_word t1) C_noret; C_noret_decl(f_11468) static void C_ccall f_11468(C_word c,C_word *av) C_noret; C_noret_decl(f_11472) static void C_fcall f_11472(C_word t0,C_word t1) C_noret; C_noret_decl(f_11486) static void C_ccall f_11486(C_word c,C_word *av) C_noret; C_noret_decl(f_11498) static void C_ccall f_11498(C_word c,C_word *av) C_noret; C_noret_decl(f_11503) static void C_fcall f_11503(C_word t0,C_word t1) C_noret; C_noret_decl(f_11507) static void C_fcall f_11507(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11523) static void C_fcall f_11523(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11548) static void C_ccall f_11548(C_word c,C_word *av) C_noret; C_noret_decl(f_11559) static void C_fcall f_11559(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11575) static void C_fcall f_11575(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11600) static void C_ccall f_11600(C_word c,C_word *av) C_noret; C_noret_decl(f_11627) static void C_ccall f_11627(C_word c,C_word *av) C_noret; C_noret_decl(f_11637) static void C_ccall f_11637(C_word c,C_word *av) C_noret; C_noret_decl(f_11645) static void C_ccall f_11645(C_word c,C_word *av) C_noret; C_noret_decl(f_11653) static void C_fcall f_11653(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11667) static void C_fcall f_11667(C_word t0,C_word t1) C_noret; C_noret_decl(f_11671) static void C_fcall f_11671(C_word t0,C_word t1) C_noret; C_noret_decl(f_11675) static void C_ccall f_11675(C_word c,C_word *av) C_noret; C_noret_decl(f_11682) static void C_fcall f_11682(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11698) static void C_fcall f_11698(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11723) static void C_ccall f_11723(C_word c,C_word *av) C_noret; C_noret_decl(f_11740) static void C_ccall f_11740(C_word c,C_word *av) C_noret; C_noret_decl(f_11756) static void C_ccall f_11756(C_word c,C_word *av) C_noret; C_noret_decl(f_11768) static void C_ccall f_11768(C_word c,C_word *av) C_noret; C_noret_decl(f_11795) static void C_fcall f_11795(C_word t0,C_word t1) C_noret; C_noret_decl(f_11809) static void C_ccall f_11809(C_word c,C_word *av) C_noret; C_noret_decl(f_11819) static void C_ccall f_11819(C_word c,C_word *av) C_noret; C_noret_decl(f_11844) static void C_fcall f_11844(C_word t0,C_word t1) C_noret; C_noret_decl(f_11858) static void C_ccall f_11858(C_word c,C_word *av) C_noret; C_noret_decl(f_11868) static void C_ccall f_11868(C_word c,C_word *av) C_noret; C_noret_decl(f_11885) static void C_ccall f_11885(C_word c,C_word *av) C_noret; C_noret_decl(f_11889) static void C_ccall f_11889(C_word c,C_word *av) C_noret; C_noret_decl(f_11894) static void C_fcall f_11894(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11906) static void C_ccall f_11906(C_word c,C_word *av) C_noret; C_noret_decl(f_11920) static void C_ccall f_11920(C_word c,C_word *av) C_noret; C_noret_decl(f_11922) static void C_fcall f_11922(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11947) static void C_ccall f_11947(C_word c,C_word *av) C_noret; C_noret_decl(f_11956) static void C_fcall f_11956(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11966) static void C_ccall f_11966(C_word c,C_word *av) C_noret; C_noret_decl(f_11979) static void C_ccall f_11979(C_word c,C_word *av) C_noret; C_noret_decl(f_11992) static void C_ccall f_11992(C_word c,C_word *av) C_noret; C_noret_decl(f_12011) static void C_ccall f_12011(C_word c,C_word *av) C_noret; C_noret_decl(f_12015) static void C_ccall f_12015(C_word c,C_word *av) C_noret; C_noret_decl(f_12018) static void C_ccall f_12018(C_word c,C_word *av) C_noret; C_noret_decl(f_12021) static void C_ccall f_12021(C_word c,C_word *av) C_noret; C_noret_decl(f_12024) static void C_ccall f_12024(C_word c,C_word *av) C_noret; C_noret_decl(f_12027) static void C_ccall f_12027(C_word c,C_word *av) C_noret; C_noret_decl(f_12030) static void C_ccall f_12030(C_word c,C_word *av) C_noret; C_noret_decl(f_12033) static void C_ccall f_12033(C_word c,C_word *av) C_noret; C_noret_decl(f_12036) static void C_ccall f_12036(C_word c,C_word *av) C_noret; C_noret_decl(f_12039) static void C_ccall f_12039(C_word c,C_word *av) C_noret; C_noret_decl(f_12042) static void C_ccall f_12042(C_word c,C_word *av) C_noret; C_noret_decl(f_12045) static void C_ccall f_12045(C_word c,C_word *av) C_noret; C_noret_decl(f_12048) static void C_ccall f_12048(C_word c,C_word *av) C_noret; C_noret_decl(f_12051) static void C_ccall f_12051(C_word c,C_word *av) C_noret; C_noret_decl(f_12054) static void C_ccall f_12054(C_word c,C_word *av) C_noret; C_noret_decl(f_12063) static void C_ccall f_12063(C_word c,C_word *av) C_noret; C_noret_decl(f_12070) static void C_ccall f_12070(C_word c,C_word *av) C_noret; C_noret_decl(f_12074) static void C_ccall f_12074(C_word c,C_word *av) C_noret; C_noret_decl(f_12079) static void C_fcall f_12079(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12090) static void C_ccall f_12090(C_word c,C_word *av) C_noret; C_noret_decl(f_12092) static void C_fcall f_12092(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12117) static void C_ccall f_12117(C_word c,C_word *av) C_noret; C_noret_decl(f_12128) static void C_ccall f_12128(C_word c,C_word *av) C_noret; C_noret_decl(f_12132) static void C_ccall f_12132(C_word c,C_word *av) C_noret; C_noret_decl(f_12136) static void C_ccall f_12136(C_word c,C_word *av) C_noret; C_noret_decl(f_12144) static void C_ccall f_12144(C_word c,C_word *av) C_noret; C_noret_decl(f_12156) static void C_ccall f_12156(C_word c,C_word *av) C_noret; C_noret_decl(f_12166) static void C_ccall f_12166(C_word c,C_word *av) C_noret; C_noret_decl(f_12191) static void C_ccall f_12191(C_word c,C_word *av) C_noret; C_noret_decl(f_12195) static void C_ccall f_12195(C_word c,C_word *av) C_noret; C_noret_decl(f_12203) static void C_ccall f_12203(C_word c,C_word *av) C_noret; C_noret_decl(f_12207) static void C_ccall f_12207(C_word c,C_word *av) C_noret; C_noret_decl(f_12219) static void C_fcall f_12219(C_word t0,C_word t1) C_noret; C_noret_decl(f_12242) static void C_ccall f_12242(C_word c,C_word *av) C_noret; C_noret_decl(f_12246) static void C_ccall f_12246(C_word c,C_word *av) C_noret; C_noret_decl(f_12250) static void C_ccall f_12250(C_word c,C_word *av) C_noret; C_noret_decl(f_12254) static void C_ccall f_12254(C_word c,C_word *av) C_noret; C_noret_decl(f_12258) static void C_ccall f_12258(C_word c,C_word *av) C_noret; C_noret_decl(f_12262) static void C_ccall f_12262(C_word c,C_word *av) C_noret; C_noret_decl(f_12267) static void C_ccall f_12267(C_word c,C_word *av) C_noret; C_noret_decl(f_12270) static void C_ccall f_12270(C_word c,C_word *av) C_noret; C_noret_decl(f_12283) static void C_ccall f_12283(C_word c,C_word *av) C_noret; C_noret_decl(f_12286) static void C_ccall f_12286(C_word c,C_word *av) C_noret; C_noret_decl(f_12311) static void C_ccall f_12311(C_word c,C_word *av) C_noret; C_noret_decl(f_12315) static void C_ccall f_12315(C_word c,C_word *av) C_noret; C_noret_decl(f_12318) static void C_ccall f_12318(C_word c,C_word *av) C_noret; C_noret_decl(f_12321) static void C_ccall f_12321(C_word c,C_word *av) C_noret; C_noret_decl(f_12324) static void C_ccall f_12324(C_word c,C_word *av) C_noret; C_noret_decl(f_12327) static void C_ccall f_12327(C_word c,C_word *av) C_noret; C_noret_decl(f_12330) static void C_ccall f_12330(C_word c,C_word *av) C_noret; C_noret_decl(f_12333) static void C_ccall f_12333(C_word c,C_word *av) C_noret; C_noret_decl(f_12337) static void C_fcall f_12337(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12345) static void C_ccall f_12345(C_word c,C_word *av) C_noret; C_noret_decl(f_12355) static void C_ccall f_12355(C_word c,C_word *av) C_noret; C_noret_decl(f_12358) static void C_ccall f_12358(C_word c,C_word *av) C_noret; C_noret_decl(f_12361) static void C_ccall f_12361(C_word c,C_word *av) C_noret; C_noret_decl(f_12364) static void C_ccall f_12364(C_word c,C_word *av) C_noret; C_noret_decl(f_12371) static void C_ccall f_12371(C_word c,C_word *av) C_noret; C_noret_decl(f_12375) static void C_ccall f_12375(C_word c,C_word *av) C_noret; C_noret_decl(f_12379) static void C_ccall f_12379(C_word c,C_word *av) C_noret; C_noret_decl(f_12387) static void C_ccall f_12387(C_word c,C_word *av) C_noret; C_noret_decl(f_12391) static void C_ccall f_12391(C_word c,C_word *av) C_noret; C_noret_decl(f_12403) static void C_ccall f_12403(C_word c,C_word *av) C_noret; C_noret_decl(f_12407) static void C_ccall f_12407(C_word c,C_word *av) C_noret; C_noret_decl(f_12411) static void C_ccall f_12411(C_word c,C_word *av) C_noret; C_noret_decl(f_12434) static void C_fcall f_12434(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12442) static void C_ccall f_12442(C_word c,C_word *av) C_noret; C_noret_decl(f_12446) static void C_ccall f_12446(C_word c,C_word *av) C_noret; C_noret_decl(f_12452) static void C_ccall f_12452(C_word c,C_word *av) C_noret; C_noret_decl(f_12454) static void C_fcall f_12454(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12479) static void C_ccall f_12479(C_word c,C_word *av) C_noret; C_noret_decl(f_12488) static void C_fcall f_12488(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12513) static void C_ccall f_12513(C_word c,C_word *av) C_noret; C_noret_decl(f_12524) static void C_ccall f_12524(C_word c,C_word *av) C_noret; C_noret_decl(f_12531) static void C_ccall f_12531(C_word c,C_word *av) C_noret; C_noret_decl(f_12535) static void C_ccall f_12535(C_word c,C_word *av) C_noret; C_noret_decl(f_12543) static void C_fcall f_12543(C_word t0,C_word t1) C_noret; C_noret_decl(f_12566) static void C_ccall f_12566(C_word c,C_word *av) C_noret; C_noret_decl(f_12570) static void C_ccall f_12570(C_word c,C_word *av) C_noret; C_noret_decl(f_12574) static void C_ccall f_12574(C_word c,C_word *av) C_noret; C_noret_decl(f_12578) static void C_ccall f_12578(C_word c,C_word *av) C_noret; C_noret_decl(f_12582) static void C_ccall f_12582(C_word c,C_word *av) C_noret; C_noret_decl(f_12587) static void C_ccall f_12587(C_word c,C_word *av) C_noret; C_noret_decl(f_12590) static void C_ccall f_12590(C_word c,C_word *av) C_noret; C_noret_decl(f_12593) static void C_ccall f_12593(C_word c,C_word *av) C_noret; C_noret_decl(f_12603) static void C_ccall f_12603(C_word c,C_word *av) C_noret; C_noret_decl(f_12606) static void C_ccall f_12606(C_word c,C_word *av) C_noret; C_noret_decl(f_12607) static void C_ccall f_12607(C_word c,C_word *av) C_noret; C_noret_decl(f_12611) static void C_ccall f_12611(C_word c,C_word *av) C_noret; C_noret_decl(f_12614) static void C_ccall f_12614(C_word c,C_word *av) C_noret; C_noret_decl(f_12620) static void C_ccall f_12620(C_word c,C_word *av) C_noret; C_noret_decl(f_12623) static void C_ccall f_12623(C_word c,C_word *av) C_noret; C_noret_decl(f_12626) static void C_ccall f_12626(C_word c,C_word *av) C_noret; C_noret_decl(f_12633) static void C_ccall f_12633(C_word c,C_word *av) C_noret; C_noret_decl(f_12637) static void C_ccall f_12637(C_word c,C_word *av) C_noret; C_noret_decl(f_12649) static void C_ccall f_12649(C_word c,C_word *av) C_noret; C_noret_decl(f_12653) static void C_ccall f_12653(C_word c,C_word *av) C_noret; C_noret_decl(f_12660) static void C_ccall f_12660(C_word c,C_word *av) C_noret; C_noret_decl(f_12664) static void C_ccall f_12664(C_word c,C_word *av) C_noret; C_noret_decl(f_12668) static void C_ccall f_12668(C_word c,C_word *av) C_noret; C_noret_decl(f_12673) static void C_ccall f_12673(C_word c,C_word *av) C_noret; C_noret_decl(f_12676) static void C_ccall f_12676(C_word c,C_word *av) C_noret; C_noret_decl(f_12679) static void C_ccall f_12679(C_word c,C_word *av) C_noret; C_noret_decl(f_12692) static void C_ccall f_12692(C_word c,C_word *av) C_noret; C_noret_decl(f_12699) static void C_ccall f_12699(C_word c,C_word *av) C_noret; C_noret_decl(f_12703) static void C_ccall f_12703(C_word c,C_word *av) C_noret; C_noret_decl(f_12706) static void C_ccall f_12706(C_word c,C_word *av) C_noret; C_noret_decl(f_12709) static void C_ccall f_12709(C_word c,C_word *av) C_noret; C_noret_decl(f_12715) static void C_ccall f_12715(C_word c,C_word *av) C_noret; C_noret_decl(f_12718) static void C_ccall f_12718(C_word c,C_word *av) C_noret; C_noret_decl(f_12721) static void C_ccall f_12721(C_word c,C_word *av) C_noret; C_noret_decl(f_12724) static void C_ccall f_12724(C_word c,C_word *av) C_noret; C_noret_decl(f_12727) static void C_ccall f_12727(C_word c,C_word *av) C_noret; C_noret_decl(f_12734) static void C_ccall f_12734(C_word c,C_word *av) C_noret; C_noret_decl(f_12738) static void C_ccall f_12738(C_word c,C_word *av) C_noret; C_noret_decl(f_12742) static void C_ccall f_12742(C_word c,C_word *av) C_noret; C_noret_decl(f_12754) static void C_ccall f_12754(C_word c,C_word *av) C_noret; C_noret_decl(f_12764) static void C_ccall f_12764(C_word c,C_word *av) C_noret; C_noret_decl(f_12771) static void C_ccall f_12771(C_word c,C_word *av) C_noret; C_noret_decl(f_12775) static void C_ccall f_12775(C_word c,C_word *av) C_noret; C_noret_decl(f_12789) static void C_ccall f_12789(C_word c,C_word *av) C_noret; C_noret_decl(f_12794) static void C_ccall f_12794(C_word c,C_word *av) C_noret; C_noret_decl(f_12797) static void C_ccall f_12797(C_word c,C_word *av) C_noret; C_noret_decl(f_12810) static void C_ccall f_12810(C_word c,C_word *av) C_noret; C_noret_decl(f_12820) static void C_ccall f_12820(C_word c,C_word *av) C_noret; C_noret_decl(f_12824) static void C_ccall f_12824(C_word c,C_word *av) C_noret; C_noret_decl(f_12830) static void C_ccall f_12830(C_word c,C_word *av) C_noret; C_noret_decl(f_12833) static void C_ccall f_12833(C_word c,C_word *av) C_noret; C_noret_decl(f_12836) static void C_ccall f_12836(C_word c,C_word *av) C_noret; C_noret_decl(f_12839) static void C_ccall f_12839(C_word c,C_word *av) C_noret; C_noret_decl(f_12842) static void C_ccall f_12842(C_word c,C_word *av) C_noret; C_noret_decl(f_12845) static void C_ccall f_12845(C_word c,C_word *av) C_noret; C_noret_decl(f_12852) static void C_ccall f_12852(C_word c,C_word *av) C_noret; C_noret_decl(f_12856) static void C_ccall f_12856(C_word c,C_word *av) C_noret; C_noret_decl(f_12864) static void C_ccall f_12864(C_word c,C_word *av) C_noret; C_noret_decl(f_12872) static void C_ccall f_12872(C_word c,C_word *av) C_noret; C_noret_decl(f_12882) static void C_ccall f_12882(C_word c,C_word *av) C_noret; C_noret_decl(f_12889) static void C_ccall f_12889(C_word c,C_word *av) C_noret; C_noret_decl(f_12893) static void C_ccall f_12893(C_word c,C_word *av) C_noret; C_noret_decl(f_12907) static void C_ccall f_12907(C_word c,C_word *av) C_noret; C_noret_decl(f_12912) static void C_ccall f_12912(C_word c,C_word *av) C_noret; C_noret_decl(f_12915) static void C_ccall f_12915(C_word c,C_word *av) C_noret; C_noret_decl(f_12925) static void C_ccall f_12925(C_word c,C_word *av) C_noret; C_noret_decl(f_12928) static void C_ccall f_12928(C_word c,C_word *av) C_noret; C_noret_decl(f_12941) static void C_ccall f_12941(C_word c,C_word *av) C_noret; C_noret_decl(f_12945) static void C_ccall f_12945(C_word c,C_word *av) C_noret; C_noret_decl(f_12948) static void C_ccall f_12948(C_word c,C_word *av) C_noret; C_noret_decl(f_12954) static void C_ccall f_12954(C_word c,C_word *av) C_noret; C_noret_decl(f_12958) static void C_fcall f_12958(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12966) static void C_ccall f_12966(C_word c,C_word *av) C_noret; C_noret_decl(f_12976) static void C_ccall f_12976(C_word c,C_word *av) C_noret; C_noret_decl(f_12979) static void C_ccall f_12979(C_word c,C_word *av) C_noret; C_noret_decl(f_12982) static void C_ccall f_12982(C_word c,C_word *av) C_noret; C_noret_decl(f_12985) static void C_ccall f_12985(C_word c,C_word *av) C_noret; C_noret_decl(f_12992) static void C_ccall f_12992(C_word c,C_word *av) C_noret; C_noret_decl(f_12996) static void C_ccall f_12996(C_word c,C_word *av) C_noret; C_noret_decl(f_13004) static void C_ccall f_13004(C_word c,C_word *av) C_noret; C_noret_decl(f_13008) static void C_ccall f_13008(C_word c,C_word *av) C_noret; C_noret_decl(f_13020) static void C_ccall f_13020(C_word c,C_word *av) C_noret; C_noret_decl(f_13024) static void C_ccall f_13024(C_word c,C_word *av) C_noret; C_noret_decl(f_13028) static void C_ccall f_13028(C_word c,C_word *av) C_noret; C_noret_decl(f_13038) static void C_ccall f_13038(C_word c,C_word *av) C_noret; C_noret_decl(f_13043) static void C_fcall f_13043(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13068) static void C_ccall f_13068(C_word c,C_word *av) C_noret; C_noret_decl(f_13079) static void C_ccall f_13079(C_word c,C_word *av) C_noret; C_noret_decl(f_13083) static void C_ccall f_13083(C_word c,C_word *av) C_noret; C_noret_decl(f_13094) static void C_ccall f_13094(C_word c,C_word *av) C_noret; C_noret_decl(f_13099) static void C_ccall f_13099(C_word c,C_word *av) C_noret; C_noret_decl(f_13102) static void C_ccall f_13102(C_word c,C_word *av) C_noret; C_noret_decl(f_13105) static void C_ccall f_13105(C_word c,C_word *av) C_noret; C_noret_decl(f_13112) static void C_ccall f_13112(C_word c,C_word *av) C_noret; C_noret_decl(f_13115) static void C_ccall f_13115(C_word c,C_word *av) C_noret; C_noret_decl(f_13131) static void C_ccall f_13131(C_word c,C_word *av) C_noret; C_noret_decl(f_13135) static void C_ccall f_13135(C_word c,C_word *av) C_noret; C_noret_decl(f_13138) static void C_ccall f_13138(C_word c,C_word *av) C_noret; C_noret_decl(f_13144) static void C_ccall f_13144(C_word c,C_word *av) C_noret; C_noret_decl(f_13148) static void C_fcall f_13148(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13156) static void C_ccall f_13156(C_word c,C_word *av) C_noret; C_noret_decl(f_13166) static void C_ccall f_13166(C_word c,C_word *av) C_noret; C_noret_decl(f_13169) static void C_ccall f_13169(C_word c,C_word *av) C_noret; C_noret_decl(f_13172) static void C_ccall f_13172(C_word c,C_word *av) C_noret; C_noret_decl(f_13175) static void C_ccall f_13175(C_word c,C_word *av) C_noret; C_noret_decl(f_13182) static void C_ccall f_13182(C_word c,C_word *av) C_noret; C_noret_decl(f_13186) static void C_ccall f_13186(C_word c,C_word *av) C_noret; C_noret_decl(f_13194) static void C_ccall f_13194(C_word c,C_word *av) C_noret; C_noret_decl(f_13198) static void C_ccall f_13198(C_word c,C_word *av) C_noret; C_noret_decl(f_13210) static void C_ccall f_13210(C_word c,C_word *av) C_noret; C_noret_decl(f_13214) static void C_ccall f_13214(C_word c,C_word *av) C_noret; C_noret_decl(f_13218) static void C_ccall f_13218(C_word c,C_word *av) C_noret; C_noret_decl(f_13228) static void C_ccall f_13228(C_word c,C_word *av) C_noret; C_noret_decl(f_13233) static void C_fcall f_13233(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13258) static void C_ccall f_13258(C_word c,C_word *av) C_noret; C_noret_decl(f_13269) static void C_ccall f_13269(C_word c,C_word *av) C_noret; C_noret_decl(f_13273) static void C_ccall f_13273(C_word c,C_word *av) C_noret; C_noret_decl(f_13284) static void C_ccall f_13284(C_word c,C_word *av) C_noret; C_noret_decl(f_13289) static void C_ccall f_13289(C_word c,C_word *av) C_noret; C_noret_decl(f_13292) static void C_ccall f_13292(C_word c,C_word *av) C_noret; C_noret_decl(f_13295) static void C_ccall f_13295(C_word c,C_word *av) C_noret; C_noret_decl(f_13309) static void C_ccall f_13309(C_word c,C_word *av) C_noret; C_noret_decl(f_13313) static void C_ccall f_13313(C_word c,C_word *av) C_noret; C_noret_decl(f_13316) static void C_ccall f_13316(C_word c,C_word *av) C_noret; C_noret_decl(f_13319) static void C_ccall f_13319(C_word c,C_word *av) C_noret; C_noret_decl(f_13322) static void C_ccall f_13322(C_word c,C_word *av) C_noret; C_noret_decl(f_13329) static void C_ccall f_13329(C_word c,C_word *av) C_noret; C_noret_decl(f_13333) static void C_ccall f_13333(C_word c,C_word *av) C_noret; C_noret_decl(f_13337) static void C_ccall f_13337(C_word c,C_word *av) C_noret; C_noret_decl(f_13345) static void C_ccall f_13345(C_word c,C_word *av) C_noret; C_noret_decl(f_13347) static void C_ccall f_13347(C_word c,C_word *av) C_noret; C_noret_decl(f_13358) static void C_ccall f_13358(C_word c,C_word *av) C_noret; C_noret_decl(f_13362) static void C_ccall f_13362(C_word c,C_word *av) C_noret; C_noret_decl(f_13371) static void C_ccall f_13371(C_word c,C_word *av) C_noret; C_noret_decl(f_13374) static void C_ccall f_13374(C_word c,C_word *av) C_noret; C_noret_decl(f_13377) static void C_ccall f_13377(C_word c,C_word *av) C_noret; C_noret_decl(f_13380) static void C_ccall f_13380(C_word c,C_word *av) C_noret; C_noret_decl(f_13383) static void C_ccall f_13383(C_word c,C_word *av) C_noret; C_noret_decl(f_13386) static void C_ccall f_13386(C_word c,C_word *av) C_noret; C_noret_decl(f_13389) static void C_ccall f_13389(C_word c,C_word *av) C_noret; C_noret_decl(f_13392) static void C_ccall f_13392(C_word c,C_word *av) C_noret; C_noret_decl(f_13395) static void C_ccall f_13395(C_word c,C_word *av) C_noret; C_noret_decl(f_13402) static void C_ccall f_13402(C_word c,C_word *av) C_noret; C_noret_decl(f_13406) static void C_ccall f_13406(C_word c,C_word *av) C_noret; C_noret_decl(f_13410) static void C_ccall f_13410(C_word c,C_word *av) C_noret; C_noret_decl(f_13414) static void C_ccall f_13414(C_word c,C_word *av) C_noret; C_noret_decl(f_13418) static void C_ccall f_13418(C_word c,C_word *av) C_noret; C_noret_decl(f_13422) static void C_ccall f_13422(C_word c,C_word *av) C_noret; C_noret_decl(f_13426) static void C_ccall f_13426(C_word c,C_word *av) C_noret; C_noret_decl(f_13437) static void C_ccall f_13437(C_word c,C_word *av) C_noret; C_noret_decl(f_13444) static void C_ccall f_13444(C_word c,C_word *av) C_noret; C_noret_decl(f_13448) static void C_ccall f_13448(C_word c,C_word *av) C_noret; C_noret_decl(f_13452) static void C_ccall f_13452(C_word c,C_word *av) C_noret; C_noret_decl(f_13461) static void C_ccall f_13461(C_word c,C_word *av) C_noret; C_noret_decl(f_13464) static void C_ccall f_13464(C_word c,C_word *av) C_noret; C_noret_decl(f_13467) static void C_ccall f_13467(C_word c,C_word *av) C_noret; C_noret_decl(f_13470) static void C_ccall f_13470(C_word c,C_word *av) C_noret; C_noret_decl(f_13473) static void C_ccall f_13473(C_word c,C_word *av) C_noret; C_noret_decl(f_13476) static void C_ccall f_13476(C_word c,C_word *av) C_noret; C_noret_decl(f_13479) static void C_ccall f_13479(C_word c,C_word *av) C_noret; C_noret_decl(f_13482) static void C_ccall f_13482(C_word c,C_word *av) C_noret; C_noret_decl(f_13485) static void C_ccall f_13485(C_word c,C_word *av) C_noret; C_noret_decl(f_13498) static void C_ccall f_13498(C_word c,C_word *av) C_noret; C_noret_decl(f_13502) static void C_ccall f_13502(C_word c,C_word *av) C_noret; C_noret_decl(f_13506) static void C_ccall f_13506(C_word c,C_word *av) C_noret; C_noret_decl(f_13508) static void C_ccall f_13508(C_word c,C_word *av) C_noret; C_noret_decl(f_13511) static void C_ccall f_13511(C_word c,C_word *av) C_noret; C_noret_decl(f_13516) static void C_ccall f_13516(C_word c,C_word *av) C_noret; C_noret_decl(f_13520) static void C_ccall f_13520(C_word c,C_word *av) C_noret; C_noret_decl(f_13525) static void C_ccall f_13525(C_word c,C_word *av) C_noret; C_noret_decl(f_13530) static void C_ccall f_13530(C_word c,C_word *av) C_noret; C_noret_decl(f_13534) static void C_ccall f_13534(C_word c,C_word *av) C_noret; C_noret_decl(f_13540) static void C_ccall f_13540(C_word c,C_word *av) C_noret; C_noret_decl(f_13543) static void C_ccall f_13543(C_word c,C_word *av) C_noret; C_noret_decl(f_13546) static void C_ccall f_13546(C_word c,C_word *av) C_noret; C_noret_decl(f_13549) static void C_ccall f_13549(C_word c,C_word *av) C_noret; C_noret_decl(f_13552) static void C_ccall f_13552(C_word c,C_word *av) C_noret; C_noret_decl(f_13555) static void C_ccall f_13555(C_word c,C_word *av) C_noret; C_noret_decl(f_13558) static void C_ccall f_13558(C_word c,C_word *av) C_noret; C_noret_decl(f_13565) static void C_ccall f_13565(C_word c,C_word *av) C_noret; C_noret_decl(f_13569) static void C_ccall f_13569(C_word c,C_word *av) C_noret; C_noret_decl(f_13573) static void C_ccall f_13573(C_word c,C_word *av) C_noret; C_noret_decl(f_13577) static void C_ccall f_13577(C_word c,C_word *av) C_noret; C_noret_decl(f_13579) static void C_ccall f_13579(C_word c,C_word *av) C_noret; C_noret_decl(f_13587) static void C_ccall f_13587(C_word c,C_word *av) C_noret; C_noret_decl(f_13591) static void C_ccall f_13591(C_word c,C_word *av) C_noret; C_noret_decl(f_13597) static void C_ccall f_13597(C_word c,C_word *av) C_noret; C_noret_decl(f_13600) static void C_ccall f_13600(C_word c,C_word *av) C_noret; C_noret_decl(f_13603) static void C_ccall f_13603(C_word c,C_word *av) C_noret; C_noret_decl(f_13606) static void C_ccall f_13606(C_word c,C_word *av) C_noret; C_noret_decl(f_13609) static void C_ccall f_13609(C_word c,C_word *av) C_noret; C_noret_decl(f_13612) static void C_ccall f_13612(C_word c,C_word *av) C_noret; C_noret_decl(f_13619) static void C_ccall f_13619(C_word c,C_word *av) C_noret; C_noret_decl(f_13623) static void C_ccall f_13623(C_word c,C_word *av) C_noret; C_noret_decl(f_13627) static void C_ccall f_13627(C_word c,C_word *av) C_noret; C_noret_decl(f_13631) static void C_ccall f_13631(C_word c,C_word *av) C_noret; C_noret_decl(f_13633) static void C_ccall f_13633(C_word c,C_word *av) C_noret; C_noret_decl(f_13641) static void C_ccall f_13641(C_word c,C_word *av) C_noret; C_noret_decl(f_13645) static void C_ccall f_13645(C_word c,C_word *av) C_noret; C_noret_decl(f_13651) static void C_ccall f_13651(C_word c,C_word *av) C_noret; C_noret_decl(f_13654) static void C_ccall f_13654(C_word c,C_word *av) C_noret; C_noret_decl(f_13657) static void C_ccall f_13657(C_word c,C_word *av) C_noret; C_noret_decl(f_13660) static void C_ccall f_13660(C_word c,C_word *av) C_noret; C_noret_decl(f_13663) static void C_ccall f_13663(C_word c,C_word *av) C_noret; C_noret_decl(f_13666) static void C_ccall f_13666(C_word c,C_word *av) C_noret; C_noret_decl(f_13673) static void C_ccall f_13673(C_word c,C_word *av) C_noret; C_noret_decl(f_13677) static void C_ccall f_13677(C_word c,C_word *av) C_noret; C_noret_decl(f_13681) static void C_ccall f_13681(C_word c,C_word *av) C_noret; C_noret_decl(f_13685) static void C_ccall f_13685(C_word c,C_word *av) C_noret; C_noret_decl(f_13687) static void C_ccall f_13687(C_word c,C_word *av) C_noret; C_noret_decl(f_13695) static void C_ccall f_13695(C_word c,C_word *av) C_noret; C_noret_decl(f_13699) static void C_ccall f_13699(C_word c,C_word *av) C_noret; C_noret_decl(f_13711) static void C_ccall f_13711(C_word c,C_word *av) C_noret; C_noret_decl(f_13714) static void C_ccall f_13714(C_word c,C_word *av) C_noret; C_noret_decl(f_13717) static void C_ccall f_13717(C_word c,C_word *av) C_noret; C_noret_decl(f_13720) static void C_ccall f_13720(C_word c,C_word *av) C_noret; C_noret_decl(f_13723) static void C_ccall f_13723(C_word c,C_word *av) C_noret; C_noret_decl(f_13726) static void C_ccall f_13726(C_word c,C_word *av) C_noret; C_noret_decl(f_13729) static void C_ccall f_13729(C_word c,C_word *av) C_noret; C_noret_decl(f_13732) static void C_ccall f_13732(C_word c,C_word *av) C_noret; C_noret_decl(f_13735) static void C_ccall f_13735(C_word c,C_word *av) C_noret; C_noret_decl(f_13748) static void C_ccall f_13748(C_word c,C_word *av) C_noret; C_noret_decl(f_13758) static void C_ccall f_13758(C_word c,C_word *av) C_noret; C_noret_decl(f_13762) static void C_ccall f_13762(C_word c,C_word *av) C_noret; C_noret_decl(f_13764) static void C_fcall f_13764(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_13768) static void C_ccall f_13768(C_word c,C_word *av) C_noret; C_noret_decl(f_13774) static void C_ccall f_13774(C_word c,C_word *av) C_noret; C_noret_decl(f_13781) static void C_fcall f_13781(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13791) static void C_ccall f_13791(C_word c,C_word *av) C_noret; C_noret_decl(f_13794) static void C_ccall f_13794(C_word c,C_word *av) C_noret; C_noret_decl(f_13797) static void C_ccall f_13797(C_word c,C_word *av) C_noret; C_noret_decl(f_13800) static void C_ccall f_13800(C_word c,C_word *av) C_noret; C_noret_decl(f_13805) static void C_ccall f_13805(C_word c,C_word *av) C_noret; C_noret_decl(f_13811) static void C_ccall f_13811(C_word c,C_word *av) C_noret; C_noret_decl(f_13813) static void C_fcall f_13813(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13817) static void C_ccall f_13817(C_word c,C_word *av) C_noret; C_noret_decl(f_13820) static void C_ccall f_13820(C_word c,C_word *av) C_noret; C_noret_decl(f_13823) static void C_ccall f_13823(C_word c,C_word *av) C_noret; C_noret_decl(f_13826) static void C_ccall f_13826(C_word c,C_word *av) C_noret; C_noret_decl(f_13833) static void C_ccall f_13833(C_word c,C_word *av) C_noret; C_noret_decl(f_13837) static void C_ccall f_13837(C_word c,C_word *av) C_noret; C_noret_decl(f_13844) static void C_ccall f_13844(C_word c,C_word *av) C_noret; C_noret_decl(f_13851) static void C_ccall f_13851(C_word c,C_word *av) C_noret; C_noret_decl(f_13855) static void C_ccall f_13855(C_word c,C_word *av) C_noret; C_noret_decl(f_13861) static void C_ccall f_13861(C_word c,C_word *av) C_noret; C_noret_decl(f_13868) static void C_fcall f_13868(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13872) static void C_ccall f_13872(C_word c,C_word *av) C_noret; C_noret_decl(f_13875) static void C_ccall f_13875(C_word c,C_word *av) C_noret; C_noret_decl(f_13878) static void C_ccall f_13878(C_word c,C_word *av) C_noret; C_noret_decl(f_13881) static void C_ccall f_13881(C_word c,C_word *av) C_noret; C_noret_decl(f_13888) static void C_ccall f_13888(C_word c,C_word *av) C_noret; C_noret_decl(f_13892) static void C_ccall f_13892(C_word c,C_word *av) C_noret; C_noret_decl(f_13899) static void C_ccall f_13899(C_word c,C_word *av) C_noret; C_noret_decl(f_13906) static void C_ccall f_13906(C_word c,C_word *av) C_noret; C_noret_decl(f_13910) static void C_ccall f_13910(C_word c,C_word *av) C_noret; C_noret_decl(f_13915) static void C_fcall f_13915(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13925) static void C_ccall f_13925(C_word c,C_word *av) C_noret; C_noret_decl(f_13938) static void C_fcall f_13938(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13948) static void C_ccall f_13948(C_word c,C_word *av) C_noret; C_noret_decl(f_13961) static void C_fcall f_13961(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13986) static void C_ccall f_13986(C_word c,C_word *av) C_noret; C_noret_decl(f_13995) static void C_ccall f_13995(C_word c,C_word *av) C_noret; C_noret_decl(f_14006) static void C_ccall f_14006(C_word c,C_word *av) C_noret; C_noret_decl(f_14014) static void C_ccall f_14014(C_word c,C_word *av) C_noret; C_noret_decl(f_14025) static void C_ccall f_14025(C_word c,C_word *av) C_noret; C_noret_decl(f_14039) static void C_ccall f_14039(C_word c,C_word *av) C_noret; C_noret_decl(f_14047) static void C_ccall f_14047(C_word c,C_word *av) C_noret; C_noret_decl(f_14058) static void C_fcall f_14058(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_14064) static void C_ccall f_14064(C_word c,C_word *av) C_noret; C_noret_decl(f_14069) static void C_ccall f_14069(C_word c,C_word *av) C_noret; C_noret_decl(f_14075) static void C_ccall f_14075(C_word c,C_word *av) C_noret; C_noret_decl(f_14079) static void C_ccall f_14079(C_word c,C_word *av) C_noret; C_noret_decl(f_14082) static void C_ccall f_14082(C_word c,C_word *av) C_noret; C_noret_decl(f_14083) static void C_fcall f_14083(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14093) static void C_ccall f_14093(C_word c,C_word *av) C_noret; C_noret_decl(f_14098) static void C_fcall f_14098(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14108) static void C_ccall f_14108(C_word c,C_word *av) C_noret; C_noret_decl(f_14127) static void C_ccall f_14127(C_word c,C_word *av) C_noret; C_noret_decl(f_14129) static void C_ccall f_14129(C_word c,C_word *av) C_noret; C_noret_decl(f_14134) static void C_fcall f_14134(C_word t0) C_noret; C_noret_decl(f_14136) static void C_ccall f_14136(C_word c,C_word *av) C_noret; C_noret_decl(f_14149) static void C_ccall f_14149(C_word c,C_word *av) C_noret; C_noret_decl(f_14152) static void C_ccall f_14152(C_word c,C_word *av) C_noret; C_noret_decl(f_14155) static void C_ccall f_14155(C_word c,C_word *av) C_noret; C_noret_decl(f_14158) static void C_ccall f_14158(C_word c,C_word *av) C_noret; C_noret_decl(f_14161) static void C_ccall f_14161(C_word c,C_word *av) C_noret; C_noret_decl(f_14164) static void C_ccall f_14164(C_word c,C_word *av) C_noret; C_noret_decl(f_14167) static void C_ccall f_14167(C_word c,C_word *av) C_noret; C_noret_decl(f_14170) static void C_ccall f_14170(C_word c,C_word *av) C_noret; C_noret_decl(f_14173) static void C_ccall f_14173(C_word c,C_word *av) C_noret; C_noret_decl(f_14176) static void C_ccall f_14176(C_word c,C_word *av) C_noret; C_noret_decl(f_14179) static void C_ccall f_14179(C_word c,C_word *av) C_noret; C_noret_decl(f_14182) static void C_ccall f_14182(C_word c,C_word *av) C_noret; C_noret_decl(f_14189) static void C_ccall f_14189(C_word c,C_word *av) C_noret; C_noret_decl(f_14193) static void C_ccall f_14193(C_word c,C_word *av) C_noret; C_noret_decl(f_14197) static void C_ccall f_14197(C_word c,C_word *av) C_noret; C_noret_decl(f_14201) static void C_ccall f_14201(C_word c,C_word *av) C_noret; C_noret_decl(f_14205) static void C_ccall f_14205(C_word c,C_word *av) C_noret; C_noret_decl(f_14217) static void C_ccall f_14217(C_word c,C_word *av) C_noret; C_noret_decl(f_14220) static void C_ccall f_14220(C_word c,C_word *av) C_noret; C_noret_decl(f_14223) static void C_ccall f_14223(C_word c,C_word *av) C_noret; C_noret_decl(f_14226) static void C_ccall f_14226(C_word c,C_word *av) C_noret; C_noret_decl(f_14229) static void C_ccall f_14229(C_word c,C_word *av) C_noret; C_noret_decl(f_14232) static void C_ccall f_14232(C_word c,C_word *av) C_noret; C_noret_decl(f_14235) static void C_ccall f_14235(C_word c,C_word *av) C_noret; C_noret_decl(f_14238) static void C_ccall f_14238(C_word c,C_word *av) C_noret; C_noret_decl(f_14241) static void C_ccall f_14241(C_word c,C_word *av) C_noret; C_noret_decl(f_14244) static void C_ccall f_14244(C_word c,C_word *av) C_noret; C_noret_decl(f_14247) static void C_ccall f_14247(C_word c,C_word *av) C_noret; C_noret_decl(f_14250) static void C_ccall f_14250(C_word c,C_word *av) C_noret; C_noret_decl(f_14257) static void C_ccall f_14257(C_word c,C_word *av) C_noret; C_noret_decl(f_14261) static void C_ccall f_14261(C_word c,C_word *av) C_noret; C_noret_decl(f_14265) static void C_ccall f_14265(C_word c,C_word *av) C_noret; C_noret_decl(f_14269) static void C_ccall f_14269(C_word c,C_word *av) C_noret; C_noret_decl(f_14273) static void C_ccall f_14273(C_word c,C_word *av) C_noret; C_noret_decl(f_14279) static void C_fcall f_14279(C_word t0) C_noret; C_noret_decl(f_14281) static void C_ccall f_14281(C_word c,C_word *av) C_noret; C_noret_decl(f_14306) static void C_fcall f_14306(C_word t0) C_noret; C_noret_decl(f_14308) static void C_ccall f_14308(C_word c,C_word *av) C_noret; C_noret_decl(f_14321) static void C_ccall f_14321(C_word c,C_word *av) C_noret; C_noret_decl(f_14324) static void C_ccall f_14324(C_word c,C_word *av) C_noret; C_noret_decl(f_14339) static void C_ccall f_14339(C_word c,C_word *av) C_noret; C_noret_decl(f_14348) static void C_fcall f_14348(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14350) static void C_ccall f_14350(C_word c,C_word *av) C_noret; C_noret_decl(f_14354) static void C_ccall f_14354(C_word c,C_word *av) C_noret; C_noret_decl(f_14363) static void C_ccall f_14363(C_word c,C_word *av) C_noret; C_noret_decl(f_14366) static void C_ccall f_14366(C_word c,C_word *av) C_noret; C_noret_decl(f_14369) static void C_ccall f_14369(C_word c,C_word *av) C_noret; C_noret_decl(f_14372) static void C_ccall f_14372(C_word c,C_word *av) C_noret; C_noret_decl(f_14384) static void C_ccall f_14384(C_word c,C_word *av) C_noret; C_noret_decl(f_14387) static void C_ccall f_14387(C_word c,C_word *av) C_noret; C_noret_decl(f_14390) static void C_ccall f_14390(C_word c,C_word *av) C_noret; C_noret_decl(f_14393) static void C_ccall f_14393(C_word c,C_word *av) C_noret; C_noret_decl(f_14396) static void C_ccall f_14396(C_word c,C_word *av) C_noret; C_noret_decl(f_14399) static void C_ccall f_14399(C_word c,C_word *av) C_noret; C_noret_decl(f_14402) static void C_ccall f_14402(C_word c,C_word *av) C_noret; C_noret_decl(f_14405) static void C_ccall f_14405(C_word c,C_word *av) C_noret; C_noret_decl(f_14408) static void C_ccall f_14408(C_word c,C_word *av) C_noret; C_noret_decl(f_14411) static void C_ccall f_14411(C_word c,C_word *av) C_noret; C_noret_decl(f_14414) static void C_ccall f_14414(C_word c,C_word *av) C_noret; C_noret_decl(f_14417) static void C_ccall f_14417(C_word c,C_word *av) C_noret; C_noret_decl(f_14420) static void C_ccall f_14420(C_word c,C_word *av) C_noret; C_noret_decl(f_14423) static void C_ccall f_14423(C_word c,C_word *av) C_noret; C_noret_decl(f_14426) static void C_ccall f_14426(C_word c,C_word *av) C_noret; C_noret_decl(f_14429) static void C_ccall f_14429(C_word c,C_word *av) C_noret; C_noret_decl(f_14444) static void C_ccall f_14444(C_word c,C_word *av) C_noret; C_noret_decl(f_14447) static void C_ccall f_14447(C_word c,C_word *av) C_noret; C_noret_decl(f_14450) static void C_ccall f_14450(C_word c,C_word *av) C_noret; C_noret_decl(f_14453) static void C_ccall f_14453(C_word c,C_word *av) C_noret; C_noret_decl(f_14456) static void C_ccall f_14456(C_word c,C_word *av) C_noret; C_noret_decl(f_14459) static void C_ccall f_14459(C_word c,C_word *av) C_noret; C_noret_decl(f_14462) static void C_ccall f_14462(C_word c,C_word *av) C_noret; C_noret_decl(f_14465) static void C_ccall f_14465(C_word c,C_word *av) C_noret; C_noret_decl(f_14468) static void C_ccall f_14468(C_word c,C_word *av) C_noret; C_noret_decl(f_14471) static void C_ccall f_14471(C_word c,C_word *av) C_noret; C_noret_decl(f_14478) static void C_ccall f_14478(C_word c,C_word *av) C_noret; C_noret_decl(f_14482) static void C_ccall f_14482(C_word c,C_word *av) C_noret; C_noret_decl(f_14490) static void C_ccall f_14490(C_word c,C_word *av) C_noret; C_noret_decl(f_14492) static void C_ccall f_14492(C_word c,C_word *av) C_noret; C_noret_decl(f_14498) static void C_fcall f_14498(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14505) static void C_ccall f_14505(C_word c,C_word *av) C_noret; C_noret_decl(f_14508) static void C_ccall f_14508(C_word c,C_word *av) C_noret; C_noret_decl(f_14529) static void C_fcall f_14529(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14554) static void C_ccall f_14554(C_word c,C_word *av) C_noret; C_noret_decl(f_14557) static void C_ccall f_14557(C_word c,C_word *av) C_noret; C_noret_decl(f_14559) static void C_fcall f_14559(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14593) static void C_ccall f_14593(C_word c,C_word *av) C_noret; C_noret_decl(f_14601) static void C_ccall f_14601(C_word c,C_word *av) C_noret; C_noret_decl(f_14603) static void C_fcall f_14603(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14611) static void C_ccall f_14611(C_word c,C_word *av) C_noret; C_noret_decl(f_14614) static void C_fcall f_14614(C_word t0,C_word t1) C_noret; C_noret_decl(f_14645) static void C_fcall f_14645(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14654) static void C_fcall f_14654(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14662) static void C_ccall f_14662(C_word c,C_word *av) C_noret; C_noret_decl(f_14668) static void C_ccall f_14668(C_word c,C_word *av) C_noret; C_noret_decl(f_14670) static void C_fcall f_14670(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14695) static void C_ccall f_14695(C_word c,C_word *av) C_noret; C_noret_decl(f_14704) static void C_fcall f_14704(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14713) static void C_fcall f_14713(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14723) static void C_ccall f_14723(C_word c,C_word *av) C_noret; C_noret_decl(f_14725) static void C_fcall f_14725(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14750) static void C_ccall f_14750(C_word c,C_word *av) C_noret; C_noret_decl(f_14759) static void C_fcall f_14759(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14796) static void C_fcall f_14796(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14807) static void C_ccall f_14807(C_word c,C_word *av) C_noret; C_noret_decl(f_14831) static void C_fcall f_14831(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14838) static void C_ccall f_14838(C_word c,C_word *av) C_noret; C_noret_decl(f_14843) static void C_ccall f_14843(C_word c,C_word *av) C_noret; C_noret_decl(f_14872) static void C_ccall f_14872(C_word c,C_word *av) C_noret; C_noret_decl(f_14875) static void C_ccall f_14875(C_word c,C_word *av) C_noret; C_noret_decl(f_14878) static void C_ccall f_14878(C_word c,C_word *av) C_noret; C_noret_decl(f_14882) static void C_ccall f_14882(C_word c,C_word *av) C_noret; C_noret_decl(f_14884) static void C_fcall f_14884(C_word t0,C_word t1) C_noret; C_noret_decl(f_14888) static void C_ccall f_14888(C_word c,C_word *av) C_noret; C_noret_decl(f_14895) static void C_ccall f_14895(C_word c,C_word *av) C_noret; C_noret_decl(f_14899) static void C_ccall f_14899(C_word c,C_word *av) C_noret; C_noret_decl(f_14903) static void C_ccall f_14903(C_word c,C_word *av) C_noret; C_noret_decl(f_14912) static void C_ccall f_14912(C_word c,C_word *av) C_noret; C_noret_decl(f_14915) static void C_ccall f_14915(C_word c,C_word *av) C_noret; C_noret_decl(f_14918) static void C_ccall f_14918(C_word c,C_word *av) C_noret; C_noret_decl(f_14938) static void C_ccall f_14938(C_word c,C_word *av) C_noret; C_noret_decl(f_14944) static void C_ccall f_14944(C_word c,C_word *av) C_noret; C_noret_decl(f_14956) static void C_ccall f_14956(C_word c,C_word *av) C_noret; C_noret_decl(f_14962) static void C_ccall f_14962(C_word c,C_word *av) C_noret; C_noret_decl(f_14966) static void C_ccall f_14966(C_word c,C_word *av) C_noret; C_noret_decl(f_14971) static void C_fcall f_14971(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_14975) static void C_ccall f_14975(C_word c,C_word *av) C_noret; C_noret_decl(f_14980) static void C_ccall f_14980(C_word c,C_word *av) C_noret; C_noret_decl(f_14994) static void C_ccall f_14994(C_word c,C_word *av) C_noret; C_noret_decl(f_14998) static void C_ccall f_14998(C_word c,C_word *av) C_noret; C_noret_decl(f_15001) static void C_ccall f_15001(C_word c,C_word *av) C_noret; C_noret_decl(f_15004) static void C_ccall f_15004(C_word c,C_word *av) C_noret; C_noret_decl(f_15007) static void C_ccall f_15007(C_word c,C_word *av) C_noret; C_noret_decl(f_15010) static void C_ccall f_15010(C_word c,C_word *av) C_noret; C_noret_decl(f_15013) static void C_ccall f_15013(C_word c,C_word *av) C_noret; C_noret_decl(f_15016) static void C_ccall f_15016(C_word c,C_word *av) C_noret; C_noret_decl(f_15019) static void C_ccall f_15019(C_word c,C_word *av) C_noret; C_noret_decl(f_15022) static void C_ccall f_15022(C_word c,C_word *av) C_noret; C_noret_decl(f_15031) static void C_ccall f_15031(C_word c,C_word *av) C_noret; C_noret_decl(f_15034) static void C_ccall f_15034(C_word c,C_word *av) C_noret; C_noret_decl(f_15037) static void C_ccall f_15037(C_word c,C_word *av) C_noret; C_noret_decl(f_15041) static void C_ccall f_15041(C_word c,C_word *av) C_noret; C_noret_decl(f_15044) static void C_ccall f_15044(C_word c,C_word *av) C_noret; C_noret_decl(f_15049) static void C_ccall f_15049(C_word c,C_word *av) C_noret; C_noret_decl(f_15055) static void C_ccall f_15055(C_word c,C_word *av) C_noret; C_noret_decl(f_15061) static void C_ccall f_15061(C_word c,C_word *av) C_noret; C_noret_decl(f_15067) static void C_ccall f_15067(C_word c,C_word *av) C_noret; C_noret_decl(f_15074) static void C_ccall f_15074(C_word c,C_word *av) C_noret; C_noret_decl(f_15079) static void C_fcall f_15079(C_word t0,C_word t1) C_noret; C_noret_decl(f_15083) static void C_ccall f_15083(C_word c,C_word *av) C_noret; C_noret_decl(f_15095) static void C_ccall f_15095(C_word c,C_word *av) C_noret; C_noret_decl(f_15101) static void C_ccall f_15101(C_word c,C_word *av) C_noret; C_noret_decl(f_15105) static void C_ccall f_15105(C_word c,C_word *av) C_noret; C_noret_decl(f_15109) static C_word C_fcall f_15109(C_word t0,C_word t1); C_noret_decl(f_15118) static void C_ccall f_15118(C_word c,C_word *av) C_noret; C_noret_decl(f_15121) static void C_ccall f_15121(C_word c,C_word *av) C_noret; C_noret_decl(f_15127) static void C_ccall f_15127(C_word c,C_word *av) C_noret; C_noret_decl(f_15130) static void C_ccall f_15130(C_word c,C_word *av) C_noret; C_noret_decl(f_15133) static void C_ccall f_15133(C_word c,C_word *av) C_noret; C_noret_decl(f_15136) static void C_ccall f_15136(C_word c,C_word *av) C_noret; C_noret_decl(f_15139) static void C_ccall f_15139(C_word c,C_word *av) C_noret; C_noret_decl(f_15148) static void C_ccall f_15148(C_word c,C_word *av) C_noret; C_noret_decl(f_15150) static void C_fcall f_15150(C_word t0,C_word t1) C_noret; C_noret_decl(f_15154) static void C_ccall f_15154(C_word c,C_word *av) C_noret; C_noret_decl(f_15163) static void C_ccall f_15163(C_word c,C_word *av) C_noret; C_noret_decl(f_15169) static void C_ccall f_15169(C_word c,C_word *av) C_noret; C_noret_decl(f_15173) static void C_fcall f_15173(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15177) static void C_ccall f_15177(C_word c,C_word *av) C_noret; C_noret_decl(f_15195) static void C_fcall f_15195(C_word t0,C_word t1) C_noret; C_noret_decl(f_15198) static void C_ccall f_15198(C_word c,C_word *av) C_noret; C_noret_decl(f_15218) static void C_ccall f_15218(C_word c,C_word *av) C_noret; C_noret_decl(f_15227) static void C_ccall f_15227(C_word c,C_word *av) C_noret; C_noret_decl(f_15241) static void C_fcall f_15241(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15245) static void C_ccall f_15245(C_word c,C_word *av) C_noret; C_noret_decl(f_15248) static void C_ccall f_15248(C_word c,C_word *av) C_noret; C_noret_decl(f_15254) static void C_fcall f_15254(C_word t0,C_word t1) C_noret; C_noret_decl(f_15276) static void C_ccall f_15276(C_word c,C_word *av) C_noret; C_noret_decl(f_15279) static void C_ccall f_15279(C_word c,C_word *av) C_noret; C_noret_decl(f_15294) static void C_ccall f_15294(C_word c,C_word *av) C_noret; C_noret_decl(f_15297) static void C_ccall f_15297(C_word c,C_word *av) C_noret; C_noret_decl(f_15300) static void C_ccall f_15300(C_word c,C_word *av) C_noret; C_noret_decl(f_15307) static void C_ccall f_15307(C_word c,C_word *av) C_noret; C_noret_decl(f_15310) static void C_ccall f_15310(C_word c,C_word *av) C_noret; C_noret_decl(f_15313) static void C_ccall f_15313(C_word c,C_word *av) C_noret; C_noret_decl(f_15316) static void C_ccall f_15316(C_word c,C_word *av) C_noret; C_noret_decl(f_15319) static void C_ccall f_15319(C_word c,C_word *av) C_noret; C_noret_decl(f_15330) static void C_ccall f_15330(C_word c,C_word *av) C_noret; C_noret_decl(f_15332) static void C_ccall f_15332(C_word c,C_word *av) C_noret; C_noret_decl(f_15357) static void C_ccall f_15357(C_word c,C_word *av) C_noret; C_noret_decl(f_15360) static void C_ccall f_15360(C_word c,C_word *av) C_noret; C_noret_decl(f_15363) static void C_ccall f_15363(C_word c,C_word *av) C_noret; C_noret_decl(f_15373) static void C_ccall f_15373(C_word c,C_word *av) C_noret; C_noret_decl(f_15377) static void C_ccall f_15377(C_word c,C_word *av) C_noret; C_noret_decl(f_15381) static void C_ccall f_15381(C_word c,C_word *av) C_noret; C_noret_decl(f_15385) static void C_ccall f_15385(C_word c,C_word *av) C_noret; C_noret_decl(f_15393) static void C_fcall f_15393(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15397) static void C_ccall f_15397(C_word c,C_word *av) C_noret; C_noret_decl(f_15413) static void C_ccall f_15413(C_word c,C_word *av) C_noret; C_noret_decl(f_15420) static void C_ccall f_15420(C_word c,C_word *av) C_noret; C_noret_decl(f_15423) static void C_ccall f_15423(C_word c,C_word *av) C_noret; C_noret_decl(f_15426) static void C_ccall f_15426(C_word c,C_word *av) C_noret; C_noret_decl(f_15429) static void C_ccall f_15429(C_word c,C_word *av) C_noret; C_noret_decl(f_15440) static void C_ccall f_15440(C_word c,C_word *av) C_noret; C_noret_decl(f_15454) static void C_fcall f_15454(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15465) static void C_ccall f_15465(C_word c,C_word *av) C_noret; C_noret_decl(f_15469) static void C_ccall f_15469(C_word c,C_word *av) C_noret; C_noret_decl(f_15482) static void C_ccall f_15482(C_word c,C_word *av) C_noret; C_noret_decl(f_15492) static void C_ccall f_15492(C_word c,C_word *av) C_noret; C_noret_decl(f_15494) static void C_fcall f_15494(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15498) static void C_ccall f_15498(C_word c,C_word *av) C_noret; C_noret_decl(f_15501) static void C_ccall f_15501(C_word c,C_word *av) C_noret; C_noret_decl(f_15504) static void C_ccall f_15504(C_word c,C_word *av) C_noret; C_noret_decl(f_15507) static void C_ccall f_15507(C_word c,C_word *av) C_noret; C_noret_decl(f_15523) static void C_ccall f_15523(C_word c,C_word *av) C_noret; C_noret_decl(f_15527) static void C_ccall f_15527(C_word c,C_word *av) C_noret; C_noret_decl(f_15535) static void C_ccall f_15535(C_word c,C_word *av) C_noret; C_noret_decl(f_15538) static void C_ccall f_15538(C_word c,C_word *av) C_noret; C_noret_decl(f_15541) static void C_ccall f_15541(C_word c,C_word *av) C_noret; C_noret_decl(f_15544) static void C_ccall f_15544(C_word c,C_word *av) C_noret; C_noret_decl(f_15555) static void C_ccall f_15555(C_word c,C_word *av) C_noret; C_noret_decl(f_15559) static void C_ccall f_15559(C_word c,C_word *av) C_noret; C_noret_decl(f_15563) static void C_ccall f_15563(C_word c,C_word *av) C_noret; C_noret_decl(f_15571) static void C_ccall f_15571(C_word c,C_word *av) C_noret; C_noret_decl(f_15577) static void C_ccall f_15577(C_word c,C_word *av) C_noret; C_noret_decl(f_15581) static void C_ccall f_15581(C_word c,C_word *av) C_noret; C_noret_decl(f_15584) static void C_ccall f_15584(C_word c,C_word *av) C_noret; C_noret_decl(f_15589) static void C_fcall f_15589(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15602) static void C_ccall f_15602(C_word c,C_word *av) C_noret; C_noret_decl(f_15605) static void C_ccall f_15605(C_word c,C_word *av) C_noret; C_noret_decl(f_15610) static void C_ccall f_15610(C_word c,C_word *av) C_noret; C_noret_decl(f_15616) static void C_ccall f_15616(C_word c,C_word *av) C_noret; C_noret_decl(f_15622) static void C_ccall f_15622(C_word c,C_word *av) C_noret; C_noret_decl(f_15632) static void C_fcall f_15632(C_word t0,C_word t1) C_noret; C_noret_decl(f_15635) static void C_ccall f_15635(C_word c,C_word *av) C_noret; C_noret_decl(f_15641) static void C_fcall f_15641(C_word t0,C_word t1) C_noret; C_noret_decl(f_15644) static void C_ccall f_15644(C_word c,C_word *av) C_noret; C_noret_decl(f_15650) static void C_fcall f_15650(C_word t0,C_word t1) C_noret; C_noret_decl(f_15653) static void C_ccall f_15653(C_word c,C_word *av) C_noret; C_noret_decl(f_15656) static void C_ccall f_15656(C_word c,C_word *av) C_noret; C_noret_decl(f_15694) static void C_ccall f_15694(C_word c,C_word *av) C_noret; C_noret_decl(f_15700) static void C_ccall f_15700(C_word c,C_word *av) C_noret; C_noret_decl(f_15706) static void C_ccall f_15706(C_word c,C_word *av) C_noret; C_noret_decl(f_15712) static void C_ccall f_15712(C_word c,C_word *av) C_noret; C_noret_decl(f_15742) static void C_ccall f_15742(C_word c,C_word *av) C_noret; C_noret_decl(f_15748) static void C_ccall f_15748(C_word c,C_word *av) C_noret; C_noret_decl(f_15752) static void C_ccall f_15752(C_word c,C_word *av) C_noret; C_noret_decl(f_15755) static void C_ccall f_15755(C_word c,C_word *av) C_noret; C_noret_decl(f_15769) static void C_ccall f_15769(C_word c,C_word *av) C_noret; C_noret_decl(f_15800) static void C_ccall f_15800(C_word c,C_word *av) C_noret; C_noret_decl(f_15803) static void C_ccall f_15803(C_word c,C_word *av) C_noret; C_noret_decl(f_15808) static void C_ccall f_15808(C_word c,C_word *av) C_noret; C_noret_decl(f_15814) static void C_ccall f_15814(C_word c,C_word *av) C_noret; C_noret_decl(f_15820) static void C_ccall f_15820(C_word c,C_word *av) C_noret; C_noret_decl(f_15830) static void C_fcall f_15830(C_word t0,C_word t1) C_noret; C_noret_decl(f_15833) static void C_ccall f_15833(C_word c,C_word *av) C_noret; C_noret_decl(f_15842) static void C_fcall f_15842(C_word t0,C_word t1) C_noret; C_noret_decl(f_15845) static void C_ccall f_15845(C_word c,C_word *av) C_noret; C_noret_decl(f_15854) static void C_fcall f_15854(C_word t0,C_word t1) C_noret; C_noret_decl(f_15857) static void C_ccall f_15857(C_word c,C_word *av) C_noret; C_noret_decl(f_15860) static void C_ccall f_15860(C_word c,C_word *av) C_noret; C_noret_decl(f_15901) static void C_ccall f_15901(C_word c,C_word *av) C_noret; C_noret_decl(f_15907) static void C_ccall f_15907(C_word c,C_word *av) C_noret; C_noret_decl(f_15913) static void C_ccall f_15913(C_word c,C_word *av) C_noret; C_noret_decl(f_15919) static void C_ccall f_15919(C_word c,C_word *av) C_noret; C_noret_decl(f_15953) static void C_ccall f_15953(C_word c,C_word *av) C_noret; C_noret_decl(f_15985) static void C_ccall f_15985(C_word c,C_word *av) C_noret; C_noret_decl(f_15993) static void C_fcall f_15993(C_word t0) C_noret; C_noret_decl(f_16011) static void C_fcall f_16011(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16031) static void C_fcall f_16031(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16051) static void C_ccall f_16051(C_word c,C_word *av) C_noret; C_noret_decl(f_16073) static void C_ccall f_16073(C_word c,C_word *av) C_noret; C_noret_decl(f_16082) static void C_ccall f_16082(C_word c,C_word *av) C_noret; C_noret_decl(f_16112) static void C_ccall f_16112(C_word c,C_word *av) C_noret; C_noret_decl(f_16136) static void C_ccall f_16136(C_word c,C_word *av) C_noret; C_noret_decl(f_16140) static void C_ccall f_16140(C_word c,C_word *av) C_noret; C_noret_decl(f_16179) static void C_fcall f_16179(C_word t0,C_word t1) C_noret; C_noret_decl(f_16182) static void C_fcall f_16182(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16184) static void C_fcall f_16184(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16194) static void C_fcall f_16194(C_word t0,C_word t1) C_noret; C_noret_decl(f_16204) static void C_fcall f_16204(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16210) static void C_ccall f_16210(C_word c,C_word *av) C_noret; C_noret_decl(f_16217) static void C_ccall f_16217(C_word c,C_word *av) C_noret; C_noret_decl(f_16237) static void C_fcall f_16237(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16241) static void C_ccall f_16241(C_word c,C_word *av) C_noret; C_noret_decl(f_16251) static void C_fcall f_16251(C_word t0,C_word t1) C_noret; C_noret_decl(f_16274) static void C_fcall f_16274(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16284) static void C_ccall f_16284(C_word c,C_word *av) C_noret; C_noret_decl(f_16305) static void C_fcall f_16305(C_word t0,C_word t1) C_noret; C_noret_decl(f_16323) static void C_fcall f_16323(C_word t0,C_word t1) C_noret; C_noret_decl(f_16342) static void C_ccall f_16342(C_word c,C_word *av) C_noret; C_noret_decl(f_16442) static void C_fcall f_16442(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16452) static void C_ccall f_16452(C_word c,C_word *av) C_noret; C_noret_decl(f_16466) static void C_ccall f_16466(C_word c,C_word *av) C_noret; C_noret_decl(f_16486) static void C_ccall f_16486(C_word c,C_word *av) C_noret; C_noret_decl(f_16497) static void C_fcall f_16497(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16516) static void C_ccall f_16516(C_word c,C_word *av) C_noret; C_noret_decl(f_16519) static void C_ccall f_16519(C_word c,C_word *av) C_noret; C_noret_decl(f_16546) static void C_ccall f_16546(C_word c,C_word *av) C_noret; C_noret_decl(f_16549) static void C_fcall f_16549(C_word t0,C_word t1) C_noret; C_noret_decl(f_16558) static void C_ccall f_16558(C_word c,C_word *av) C_noret; C_noret_decl(f_16564) static void C_ccall f_16564(C_word c,C_word *av) C_noret; C_noret_decl(f_16569) static void C_fcall f_16569(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16594) static void C_ccall f_16594(C_word c,C_word *av) C_noret; C_noret_decl(f_16605) static void C_ccall f_16605(C_word c,C_word *av) C_noret; C_noret_decl(f_16612) static void C_ccall f_16612(C_word c,C_word *av) C_noret; C_noret_decl(f_16616) static void C_ccall f_16616(C_word c,C_word *av) C_noret; C_noret_decl(f_16618) static void C_fcall f_16618(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16686) static void C_ccall f_16686(C_word c,C_word *av) C_noret; C_noret_decl(f_16724) static void C_ccall f_16724(C_word c,C_word *av) C_noret; C_noret_decl(f_16727) static void C_ccall f_16727(C_word c,C_word *av) C_noret; C_noret_decl(f_16730) static void C_ccall f_16730(C_word c,C_word *av) C_noret; C_noret_decl(f_16732) static void C_fcall f_16732(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16743) static void C_fcall f_16743(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16747) static void C_ccall f_16747(C_word c,C_word *av) C_noret; C_noret_decl(f_16778) static void C_ccall f_16778(C_word c,C_word *av) C_noret; C_noret_decl(f_16784) static void C_ccall f_16784(C_word c,C_word *av) C_noret; C_noret_decl(f_16787) static void C_ccall f_16787(C_word c,C_word *av) C_noret; C_noret_decl(f_16790) static void C_ccall f_16790(C_word c,C_word *av) C_noret; C_noret_decl(f_16793) static void C_ccall f_16793(C_word c,C_word *av) C_noret; C_noret_decl(f_16796) static void C_ccall f_16796(C_word c,C_word *av) C_noret; C_noret_decl(f_16799) static void C_ccall f_16799(C_word c,C_word *av) C_noret; C_noret_decl(f_16827) static void C_ccall f_16827(C_word c,C_word *av) C_noret; C_noret_decl(f_16839) static void C_ccall f_16839(C_word c,C_word *av) C_noret; C_noret_decl(f_16844) static void C_fcall f_16844(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16848) static void C_ccall f_16848(C_word c,C_word *av) C_noret; C_noret_decl(f_16851) static void C_ccall f_16851(C_word c,C_word *av) C_noret; C_noret_decl(f_16856) static void C_ccall f_16856(C_word c,C_word *av) C_noret; C_noret_decl(f_16862) static void C_ccall f_16862(C_word c,C_word *av) C_noret; C_noret_decl(f_16875) static void C_ccall f_16875(C_word c,C_word *av) C_noret; C_noret_decl(f_16886) static void C_ccall f_16886(C_word c,C_word *av) C_noret; C_noret_decl(f_16888) static void C_fcall f_16888(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16913) static void C_ccall f_16913(C_word c,C_word *av) C_noret; C_noret_decl(f_16930) static void C_ccall f_16930(C_word c,C_word *av) C_noret; C_noret_decl(f_16935) static void C_fcall f_16935(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16942) static void C_ccall f_16942(C_word c,C_word *av) C_noret; C_noret_decl(f_16978) static void C_ccall f_16978(C_word c,C_word *av) C_noret; C_noret_decl(f_16980) static void C_fcall f_16980(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17005) static void C_ccall f_17005(C_word c,C_word *av) C_noret; C_noret_decl(f_17022) static void C_ccall f_17022(C_word c,C_word *av) C_noret; C_noret_decl(f_17025) static void C_fcall f_17025(C_word t0,C_word t1) C_noret; C_noret_decl(f_17055) static void C_ccall f_17055(C_word c,C_word *av) C_noret; C_noret_decl(f_17067) static void C_ccall f_17067(C_word c,C_word *av) C_noret; C_noret_decl(f_17075) static void C_ccall f_17075(C_word c,C_word *av) C_noret; C_noret_decl(f_17110) static void C_ccall f_17110(C_word c,C_word *av) C_noret; C_noret_decl(f_17118) static void C_fcall f_17118(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17128) static void C_ccall f_17128(C_word c,C_word *av) C_noret; C_noret_decl(f_17143) static void C_ccall f_17143(C_word c,C_word *av) C_noret; C_noret_decl(f_17146) static void C_ccall f_17146(C_word c,C_word *av) C_noret; C_noret_decl(f_17174) static void C_ccall f_17174(C_word c,C_word *av) C_noret; C_noret_decl(f_17180) static void C_ccall f_17180(C_word c,C_word *av) C_noret; C_noret_decl(f_17187) static void C_ccall f_17187(C_word c,C_word *av) C_noret; C_noret_decl(f_17191) static void C_ccall f_17191(C_word c,C_word *av) C_noret; C_noret_decl(f_17195) static void C_ccall f_17195(C_word c,C_word *av) C_noret; C_noret_decl(f_17200) static void C_fcall f_17200(C_word t0,C_word t1) C_noret; C_noret_decl(f_17214) static void C_ccall f_17214(C_word c,C_word *av) C_noret; C_noret_decl(f_17234) static void C_fcall f_17234(C_word t0,C_word t1) C_noret; C_noret_decl(f_17237) static void C_ccall f_17237(C_word c,C_word *av) C_noret; C_noret_decl(f_17246) static void C_ccall f_17246(C_word c,C_word *av) C_noret; C_noret_decl(f_17251) static void C_ccall f_17251(C_word c,C_word *av) C_noret; C_noret_decl(f_17254) static void C_ccall f_17254(C_word c,C_word *av) C_noret; C_noret_decl(f_17257) static void C_ccall f_17257(C_word c,C_word *av) C_noret; C_noret_decl(f_17260) static void C_ccall f_17260(C_word c,C_word *av) C_noret; C_noret_decl(f_17271) static void C_ccall f_17271(C_word c,C_word *av) C_noret; C_noret_decl(f_17277) static void C_ccall f_17277(C_word c,C_word *av) C_noret; C_noret_decl(f_17293) static void C_ccall f_17293(C_word c,C_word *av) C_noret; C_noret_decl(f_17295) static void C_ccall f_17295(C_word c,C_word *av) C_noret; C_noret_decl(f_17299) static void C_ccall f_17299(C_word c,C_word *av) C_noret; C_noret_decl(f_17318) static void C_fcall f_17318(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17343) static void C_ccall f_17343(C_word c,C_word *av) C_noret; C_noret_decl(f_17358) static void C_ccall f_17358(C_word c,C_word *av) C_noret; C_noret_decl(f_17364) static void C_ccall f_17364(C_word c,C_word *av) C_noret; C_noret_decl(f_17378) static void C_ccall f_17378(C_word c,C_word *av) C_noret; C_noret_decl(f_17385) static void C_fcall f_17385(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17389) static void C_ccall f_17389(C_word c,C_word *av) C_noret; C_noret_decl(f_17412) static void C_fcall f_17412(C_word t0,C_word t1) C_noret; C_noret_decl(f_17419) static void C_ccall f_17419(C_word c,C_word *av) C_noret; C_noret_decl(f_17425) static void C_ccall f_17425(C_word c,C_word *av) C_noret; C_noret_decl(f_17428) static void C_ccall f_17428(C_word c,C_word *av) C_noret; C_noret_decl(f_17431) static void C_ccall f_17431(C_word c,C_word *av) C_noret; C_noret_decl(f_17434) static void C_ccall f_17434(C_word c,C_word *av) C_noret; C_noret_decl(f_17437) static void C_ccall f_17437(C_word c,C_word *av) C_noret; C_noret_decl(f_17440) static void C_ccall f_17440(C_word c,C_word *av) C_noret; C_noret_decl(f_17443) static void C_ccall f_17443(C_word c,C_word *av) C_noret; C_noret_decl(f_17446) static void C_ccall f_17446(C_word c,C_word *av) C_noret; C_noret_decl(f_17507) static void C_ccall f_17507(C_word c,C_word *av) C_noret; C_noret_decl(f_17510) static void C_ccall f_17510(C_word c,C_word *av) C_noret; C_noret_decl(f_17513) static void C_ccall f_17513(C_word c,C_word *av) C_noret; C_noret_decl(f_17516) static void C_ccall f_17516(C_word c,C_word *av) C_noret; C_noret_decl(f_17518) static void C_fcall f_17518(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17522) static void C_ccall f_17522(C_word c,C_word *av) C_noret; C_noret_decl(f_17525) static void C_ccall f_17525(C_word c,C_word *av) C_noret; C_noret_decl(f_17528) static void C_ccall f_17528(C_word c,C_word *av) C_noret; C_noret_decl(f_17533) static void C_ccall f_17533(C_word c,C_word *av) C_noret; C_noret_decl(f_17540) static void C_ccall f_17540(C_word c,C_word *av) C_noret; C_noret_decl(f_17546) static void C_ccall f_17546(C_word c,C_word *av) C_noret; C_noret_decl(f_17549) static void C_ccall f_17549(C_word c,C_word *av) C_noret; C_noret_decl(f_17552) static void C_ccall f_17552(C_word c,C_word *av) C_noret; C_noret_decl(f_17555) static void C_ccall f_17555(C_word c,C_word *av) C_noret; C_noret_decl(f_17561) static void C_ccall f_17561(C_word c,C_word *av) C_noret; C_noret_decl(f_17567) static void C_fcall f_17567(C_word t0,C_word t1) C_noret; C_noret_decl(f_17570) static void C_ccall f_17570(C_word c,C_word *av) C_noret; C_noret_decl(f_17573) static void C_ccall f_17573(C_word c,C_word *av) C_noret; C_noret_decl(f_17576) static void C_ccall f_17576(C_word c,C_word *av) C_noret; C_noret_decl(f_17582) static void C_ccall f_17582(C_word c,C_word *av) C_noret; C_noret_decl(f_17591) static void C_ccall f_17591(C_word c,C_word *av) C_noret; C_noret_decl(f_17598) static void C_ccall f_17598(C_word c,C_word *av) C_noret; C_noret_decl(f_17607) static void C_fcall f_17607(C_word t0,C_word t1) C_noret; C_noret_decl(f_17619) static void C_fcall f_17619(C_word t0,C_word t1) C_noret; C_noret_decl(f_17626) static void C_ccall f_17626(C_word c,C_word *av) C_noret; C_noret_decl(f_17637) static void C_ccall f_17637(C_word c,C_word *av) C_noret; C_noret_decl(f_17641) static void C_ccall f_17641(C_word c,C_word *av) C_noret; C_noret_decl(f_17657) static void C_ccall f_17657(C_word c,C_word *av) C_noret; C_noret_decl(f_17664) static void C_ccall f_17664(C_word c,C_word *av) C_noret; C_noret_decl(f_17670) static void C_fcall f_17670(C_word t0,C_word t1) C_noret; C_noret_decl(f_17673) static void C_ccall f_17673(C_word c,C_word *av) C_noret; C_noret_decl(f_17676) static void C_ccall f_17676(C_word c,C_word *av) C_noret; C_noret_decl(f_17688) static void C_fcall f_17688(C_word t0,C_word t1) C_noret; C_noret_decl(f_17691) static void C_ccall f_17691(C_word c,C_word *av) C_noret; C_noret_decl(f_17709) static void C_ccall f_17709(C_word c,C_word *av) C_noret; C_noret_decl(f_17720) static void C_ccall f_17720(C_word c,C_word *av) C_noret; C_noret_decl(f_17727) static void C_ccall f_17727(C_word c,C_word *av) C_noret; C_noret_decl(f_17731) static void C_ccall f_17731(C_word c,C_word *av) C_noret; C_noret_decl(f_17733) static void C_ccall f_17733(C_word c,C_word *av) C_noret; C_noret_decl(f_17741) static void C_fcall f_17741(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17748) static void C_ccall f_17748(C_word c,C_word *av) C_noret; C_noret_decl(f_17762) static void C_fcall f_17762(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17772) static void C_ccall f_17772(C_word c,C_word *av) C_noret; C_noret_decl(f_17785) static void C_ccall f_17785(C_word c,C_word *av) C_noret; C_noret_decl(f_17787) static void C_fcall f_17787(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17803) static void C_ccall f_17803(C_word c,C_word *av) C_noret; C_noret_decl(f_17806) static void C_ccall f_17806(C_word c,C_word *av) C_noret; C_noret_decl(f_17812) static void C_ccall f_17812(C_word c,C_word *av) C_noret; C_noret_decl(f_17817) static void C_ccall f_17817(C_word c,C_word *av) C_noret; C_noret_decl(f_17827) static void C_ccall f_17827(C_word c,C_word *av) C_noret; C_noret_decl(f_17834) static void C_ccall f_17834(C_word c,C_word *av) C_noret; C_noret_decl(f_17837) static void C_ccall f_17837(C_word c,C_word *av) C_noret; C_noret_decl(f_17840) static void C_ccall f_17840(C_word c,C_word *av) C_noret; C_noret_decl(f_17847) static void C_ccall f_17847(C_word c,C_word *av) C_noret; C_noret_decl(f_17849) static void C_ccall f_17849(C_word c,C_word *av) C_noret; C_noret_decl(f_17857) static void C_ccall f_17857(C_word c,C_word *av) C_noret; C_noret_decl(f_17864) static void C_ccall f_17864(C_word c,C_word *av) C_noret; C_noret_decl(f_17866) static void C_ccall f_17866(C_word c,C_word *av) C_noret; C_noret_decl(f_17883) static void C_fcall f_17883(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17908) static void C_ccall f_17908(C_word c,C_word *av) C_noret; C_noret_decl(f_17918) static void C_ccall f_17918(C_word c,C_word *av) C_noret; C_noret_decl(f_17922) static void C_fcall f_17922(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17926) static void C_ccall f_17926(C_word c,C_word *av) C_noret; C_noret_decl(f_17929) static void C_ccall f_17929(C_word c,C_word *av) C_noret; C_noret_decl(f_17932) static void C_ccall f_17932(C_word c,C_word *av) C_noret; C_noret_decl(f_17944) static void C_ccall f_17944(C_word c,C_word *av) C_noret; C_noret_decl(f_17967) static void C_ccall f_17967(C_word c,C_word *av) C_noret; C_noret_decl(f_17979) static void C_ccall f_17979(C_word c,C_word *av) C_noret; C_noret_decl(f_17985) static void C_fcall f_17985(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17989) static void C_ccall f_17989(C_word c,C_word *av) C_noret; C_noret_decl(f_17992) static void C_ccall f_17992(C_word c,C_word *av) C_noret; C_noret_decl(f_18003) static void C_ccall f_18003(C_word c,C_word *av) C_noret; C_noret_decl(f_18007) static void C_ccall f_18007(C_word c,C_word *av) C_noret; C_noret_decl(f_18011) static void C_ccall f_18011(C_word c,C_word *av) C_noret; C_noret_decl(f_18019) static void C_fcall f_18019(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18039) static void C_ccall f_18039(C_word c,C_word *av) C_noret; C_noret_decl(f_18041) static void C_fcall f_18041(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18051) static void C_ccall f_18051(C_word c,C_word *av) C_noret; C_noret_decl(f_18054) static void C_ccall f_18054(C_word c,C_word *av) C_noret; C_noret_decl(f_18067) static void C_ccall f_18067(C_word c,C_word *av) C_noret; C_noret_decl(f_18075) static void C_fcall f_18075(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18100) static void C_ccall f_18100(C_word c,C_word *av) C_noret; C_noret_decl(f_18110) static void C_ccall f_18110(C_word c,C_word *av) C_noret; C_noret_decl(f_18114) static void C_fcall f_18114(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18130) static void C_ccall f_18130(C_word c,C_word *av) C_noret; C_noret_decl(f_18142) static void C_fcall f_18142(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18146) static void C_ccall f_18146(C_word c,C_word *av) C_noret; C_noret_decl(f_18149) static void C_ccall f_18149(C_word c,C_word *av) C_noret; C_noret_decl(f_18154) static void C_ccall f_18154(C_word c,C_word *av) C_noret; C_noret_decl(f_18164) static void C_ccall f_18164(C_word c,C_word *av) C_noret; C_noret_decl(f_18167) static void C_ccall f_18167(C_word c,C_word *av) C_noret; C_noret_decl(f_18174) static void C_ccall f_18174(C_word c,C_word *av) C_noret; C_noret_decl(f_18178) static void C_ccall f_18178(C_word c,C_word *av) C_noret; C_noret_decl(f_18184) static void C_ccall f_18184(C_word c,C_word *av) C_noret; C_noret_decl(f_18190) static void C_ccall f_18190(C_word c,C_word *av) C_noret; C_noret_decl(f_18200) static void C_ccall f_18200(C_word c,C_word *av) C_noret; C_noret_decl(f_18206) static void C_ccall f_18206(C_word c,C_word *av) C_noret; C_noret_decl(f_18211) static void C_fcall f_18211(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18232) static void C_ccall f_18232(C_word c,C_word *av) C_noret; C_noret_decl(f_18238) static void C_ccall f_18238(C_word c,C_word *av) C_noret; C_noret_decl(f_18247) static void C_ccall f_18247(C_word c,C_word *av) C_noret; C_noret_decl(f_18256) static void C_ccall f_18256(C_word c,C_word *av) C_noret; C_noret_decl(f_18276) static void C_ccall f_18276(C_word c,C_word *av) C_noret; C_noret_decl(f_18284) static void C_ccall f_18284(C_word c,C_word *av) C_noret; C_noret_decl(f_18288) static void C_ccall f_18288(C_word c,C_word *av) C_noret; C_noret_decl(f_18294) static void C_ccall f_18294(C_word c,C_word *av) C_noret; C_noret_decl(f_18303) static void C_ccall f_18303(C_word c,C_word *av) C_noret; C_noret_decl(f_18309) static void C_ccall f_18309(C_word c,C_word *av) C_noret; C_noret_decl(f_18312) static void C_ccall f_18312(C_word c,C_word *av) C_noret; C_noret_decl(f_18315) static void C_ccall f_18315(C_word c,C_word *av) C_noret; C_noret_decl(f_18323) static void C_ccall f_18323(C_word c,C_word *av) C_noret; C_noret_decl(f_18326) static void C_ccall f_18326(C_word c,C_word *av) C_noret; C_noret_decl(f_18335) static void C_ccall f_18335(C_word c,C_word *av) C_noret; C_noret_decl(f_18340) static void C_fcall f_18340(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18350) static void C_ccall f_18350(C_word c,C_word *av) C_noret; C_noret_decl(f_18371) static void C_fcall f_18371(C_word t0,C_word t1) C_noret; C_noret_decl(f_18390) static void C_ccall f_18390(C_word c,C_word *av) C_noret; C_noret_decl(f_18399) static void C_ccall f_18399(C_word c,C_word *av) C_noret; C_noret_decl(f_18404) static void C_ccall f_18404(C_word c,C_word *av) C_noret; C_noret_decl(f_18410) static void C_ccall f_18410(C_word c,C_word *av) C_noret; C_noret_decl(f_18414) static void C_ccall f_18414(C_word c,C_word *av) C_noret; C_noret_decl(f_18417) static void C_ccall f_18417(C_word c,C_word *av) C_noret; C_noret_decl(f_18431) static void C_fcall f_18431(C_word t0,C_word t1) C_noret; C_noret_decl(f_18434) static void C_ccall f_18434(C_word c,C_word *av) C_noret; C_noret_decl(f_18447) static void C_ccall f_18447(C_word c,C_word *av) C_noret; C_noret_decl(f_18457) static void C_ccall f_18457(C_word c,C_word *av) C_noret; C_noret_decl(f_18477) static void C_ccall f_18477(C_word c,C_word *av) C_noret; C_noret_decl(f_18484) static void C_ccall f_18484(C_word c,C_word *av) C_noret; C_noret_decl(f_18487) static void C_ccall f_18487(C_word c,C_word *av) C_noret; C_noret_decl(f_18490) static void C_ccall f_18490(C_word c,C_word *av) C_noret; C_noret_decl(f_18493) static void C_ccall f_18493(C_word c,C_word *av) C_noret; C_noret_decl(f_18496) static void C_ccall f_18496(C_word c,C_word *av) C_noret; C_noret_decl(f_18501) static void C_ccall f_18501(C_word c,C_word *av) C_noret; C_noret_decl(f_18511) static void C_ccall f_18511(C_word c,C_word *av) C_noret; C_noret_decl(f_18516) static void C_ccall f_18516(C_word c,C_word *av) C_noret; C_noret_decl(f_18523) static void C_ccall f_18523(C_word c,C_word *av) C_noret; C_noret_decl(f_18529) static void C_ccall f_18529(C_word c,C_word *av) C_noret; C_noret_decl(f_18532) static void C_ccall f_18532(C_word c,C_word *av) C_noret; C_noret_decl(f_18535) static void C_ccall f_18535(C_word c,C_word *av) C_noret; C_noret_decl(f_18542) static void C_ccall f_18542(C_word c,C_word *av) C_noret; C_noret_decl(f_18557) static void C_ccall f_18557(C_word c,C_word *av) C_noret; C_noret_decl(f_18564) static void C_ccall f_18564(C_word c,C_word *av) C_noret; C_noret_decl(f_18588) static void C_ccall f_18588(C_word c,C_word *av) C_noret; C_noret_decl(f_18594) static void C_ccall f_18594(C_word c,C_word *av) C_noret; C_noret_decl(f_18596) static void C_fcall f_18596(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18621) static void C_fcall f_18621(C_word t0,C_word t1) C_noret; C_noret_decl(f_18638) static void C_ccall f_18638(C_word c,C_word *av) C_noret; C_noret_decl(f_18660) static void C_fcall f_18660(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18670) static void C_ccall f_18670(C_word c,C_word *av) C_noret; C_noret_decl(f_18683) static void C_fcall f_18683(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18693) static void C_ccall f_18693(C_word c,C_word *av) C_noret; C_noret_decl(f_18710) static void C_ccall f_18710(C_word c,C_word *av) C_noret; C_noret_decl(f_18711) static void C_fcall f_18711(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18716) static void C_ccall f_18716(C_word c,C_word *av) C_noret; C_noret_decl(f_18722) static void C_ccall f_18722(C_word c,C_word *av) C_noret; C_noret_decl(f_18727) static void C_fcall f_18727(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_18741) static void C_ccall f_18741(C_word c,C_word *av) C_noret; C_noret_decl(f_18745) static void C_ccall f_18745(C_word c,C_word *av) C_noret; C_noret_decl(f_18750) static void C_ccall f_18750(C_word c,C_word *av) C_noret; C_noret_decl(f_18760) static void C_ccall f_18760(C_word c,C_word *av) C_noret; C_noret_decl(f_18784) static void C_fcall f_18784(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18794) static void C_ccall f_18794(C_word c,C_word *av) C_noret; C_noret_decl(f_18828) static void C_fcall f_18828(C_word t0,C_word t1) C_noret; C_noret_decl(f_18845) static void C_ccall f_18845(C_word c,C_word *av) C_noret; C_noret_decl(f_18855) static void C_ccall f_18855(C_word c,C_word *av) C_noret; C_noret_decl(f_18861) static void C_fcall f_18861(C_word t0,C_word t1) C_noret; C_noret_decl(f_18870) static void C_fcall f_18870(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_18892) static void C_ccall f_18892(C_word c,C_word *av) C_noret; C_noret_decl(f_18902) static void C_ccall f_18902(C_word c,C_word *av) C_noret; C_noret_decl(f_18923) static void C_fcall f_18923(C_word t0,C_word t1) C_noret; C_noret_decl(f_18951) static void C_fcall f_18951(C_word t0,C_word t1) C_noret; C_noret_decl(f_18954) static void C_ccall f_18954(C_word c,C_word *av) C_noret; C_noret_decl(f_18967) static void C_ccall f_18967(C_word c,C_word *av) C_noret; C_noret_decl(f_18983) static void C_ccall f_18983(C_word c,C_word *av) C_noret; C_noret_decl(f_18996) static void C_ccall f_18996(C_word c,C_word *av) C_noret; C_noret_decl(f_19011) static void C_ccall f_19011(C_word c,C_word *av) C_noret; C_noret_decl(f_19015) static void C_ccall f_19015(C_word c,C_word *av) C_noret; C_noret_decl(f_19030) static void C_ccall f_19030(C_word c,C_word *av) C_noret; C_noret_decl(f_19034) static void C_ccall f_19034(C_word c,C_word *av) C_noret; C_noret_decl(f_19045) static void C_ccall f_19045(C_word c,C_word *av) C_noret; C_noret_decl(f_19090) static void C_fcall f_19090(C_word t0,C_word t1) C_noret; C_noret_decl(f_19106) static void C_ccall f_19106(C_word c,C_word *av) C_noret; C_noret_decl(f_19109) static void C_ccall f_19109(C_word c,C_word *av) C_noret; C_noret_decl(f_19136) static void C_ccall f_19136(C_word c,C_word *av) C_noret; C_noret_decl(f_19143) static void C_ccall f_19143(C_word c,C_word *av) C_noret; C_noret_decl(f_19147) static void C_ccall f_19147(C_word c,C_word *av) C_noret; C_noret_decl(f_19151) static void C_ccall f_19151(C_word c,C_word *av) C_noret; C_noret_decl(f_19169) static void C_ccall f_19169(C_word c,C_word *av) C_noret; C_noret_decl(f_19177) static void C_ccall f_19177(C_word c,C_word *av) C_noret; C_noret_decl(f_19202) static void C_fcall f_19202(C_word t0,C_word t1) C_noret; C_noret_decl(f_19209) static void C_ccall f_19209(C_word c,C_word *av) C_noret; C_noret_decl(f_19264) static void C_ccall f_19264(C_word c,C_word *av) C_noret; C_noret_decl(f_19269) static void C_fcall f_19269(C_word t0,C_word t1) C_noret; C_noret_decl(f_19273) static void C_ccall f_19273(C_word c,C_word *av) C_noret; C_noret_decl(f_19276) static void C_ccall f_19276(C_word c,C_word *av) C_noret; C_noret_decl(f_19279) static void C_ccall f_19279(C_word c,C_word *av) C_noret; C_noret_decl(f_19305) static void C_ccall f_19305(C_word c,C_word *av) C_noret; C_noret_decl(f_19309) static void C_ccall f_19309(C_word c,C_word *av) C_noret; C_noret_decl(f_19313) static void C_ccall f_19313(C_word c,C_word *av) C_noret; C_noret_decl(f_19321) static void C_ccall f_19321(C_word c,C_word *av) C_noret; C_noret_decl(f_19323) static void C_ccall f_19323(C_word c,C_word *av) C_noret; C_noret_decl(f_19331) static void C_fcall f_19331(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19335) static void C_ccall f_19335(C_word c,C_word *av) C_noret; C_noret_decl(f_19338) static void C_fcall f_19338(C_word t0,C_word t1) C_noret; C_noret_decl(f_19345) static void C_ccall f_19345(C_word c,C_word *av) C_noret; C_noret_decl(f_19351) static void C_ccall f_19351(C_word c,C_word *av) C_noret; C_noret_decl(f_19354) static void C_ccall f_19354(C_word c,C_word *av) C_noret; C_noret_decl(f_19357) static void C_ccall f_19357(C_word c,C_word *av) C_noret; C_noret_decl(f_19360) static void C_ccall f_19360(C_word c,C_word *av) C_noret; C_noret_decl(f_19363) static void C_ccall f_19363(C_word c,C_word *av) C_noret; C_noret_decl(f_19366) static void C_ccall f_19366(C_word c,C_word *av) C_noret; C_noret_decl(f_19369) static void C_ccall f_19369(C_word c,C_word *av) C_noret; C_noret_decl(f_19372) static void C_ccall f_19372(C_word c,C_word *av) C_noret; C_noret_decl(f_19416) static void C_ccall f_19416(C_word c,C_word *av) C_noret; C_noret_decl(f_19427) static void C_ccall f_19427(C_word c,C_word *av) C_noret; C_noret_decl(f_19440) static void C_fcall f_19440(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19467) static void C_ccall f_19467(C_word c,C_word *av) C_noret; C_noret_decl(f_19480) static void C_ccall f_19480(C_word c,C_word *av) C_noret; C_noret_decl(f_19484) static void C_ccall f_19484(C_word c,C_word *av) C_noret; C_noret_decl(f_19488) static void C_ccall f_19488(C_word c,C_word *av) C_noret; C_noret_decl(f_19492) static void C_ccall f_19492(C_word c,C_word *av) C_noret; C_noret_decl(f_19496) static void C_ccall f_19496(C_word c,C_word *av) C_noret; C_noret_decl(f_19508) static void C_ccall f_19508(C_word c,C_word *av) C_noret; C_noret_decl(f_19513) static void C_fcall f_19513(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19529) static void C_ccall f_19529(C_word c,C_word *av) C_noret; C_noret_decl(f_19536) static void C_fcall f_19536(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19546) static void C_ccall f_19546(C_word c,C_word *av) C_noret; C_noret_decl(f_19549) static void C_ccall f_19549(C_word c,C_word *av) C_noret; C_noret_decl(f_19563) static void C_ccall f_19563(C_word c,C_word *av) C_noret; C_noret_decl(f_19566) static void C_ccall f_19566(C_word c,C_word *av) C_noret; C_noret_decl(f_19577) static void C_ccall f_19577(C_word c,C_word *av) C_noret; C_noret_decl(f_19582) static void C_fcall f_19582(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19592) static void C_ccall f_19592(C_word c,C_word *av) C_noret; C_noret_decl(f_19611) static void C_fcall f_19611(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19636) static void C_ccall f_19636(C_word c,C_word *av) C_noret; C_noret_decl(f_19645) static void C_fcall f_19645(C_word t0) C_noret; C_noret_decl(f_19657) static void C_ccall f_19657(C_word c,C_word *av) C_noret; C_noret_decl(f_19660) static void C_ccall f_19660(C_word c,C_word *av) C_noret; C_noret_decl(f_19663) static void C_ccall f_19663(C_word c,C_word *av) C_noret; C_noret_decl(f_19666) static void C_ccall f_19666(C_word c,C_word *av) C_noret; C_noret_decl(f_19669) static void C_ccall f_19669(C_word c,C_word *av) C_noret; C_noret_decl(f_19677) static void C_ccall f_19677(C_word c,C_word *av) C_noret; C_noret_decl(f_19683) static void C_ccall f_19683(C_word c,C_word *av) C_noret; C_noret_decl(f_19687) static void C_ccall f_19687(C_word c,C_word *av) C_noret; C_noret_decl(f_19690) static void C_ccall f_19690(C_word c,C_word *av) C_noret; C_noret_decl(f_19693) static void C_ccall f_19693(C_word c,C_word *av) C_noret; C_noret_decl(f_19696) static void C_ccall f_19696(C_word c,C_word *av) C_noret; C_noret_decl(f_19705) static void C_ccall f_19705(C_word c,C_word *av) C_noret; C_noret_decl(f_19708) static void C_ccall f_19708(C_word c,C_word *av) C_noret; C_noret_decl(f_19717) static void C_ccall f_19717(C_word c,C_word *av) C_noret; C_noret_decl(f_19727) static void C_ccall f_19727(C_word c,C_word *av) C_noret; C_noret_decl(f_19731) static void C_ccall f_19731(C_word c,C_word *av) C_noret; C_noret_decl(f_19735) static void C_ccall f_19735(C_word c,C_word *av) C_noret; C_noret_decl(f_19739) static void C_ccall f_19739(C_word c,C_word *av) C_noret; C_noret_decl(f_19743) static void C_ccall f_19743(C_word c,C_word *av) C_noret; C_noret_decl(f_19747) static void C_ccall f_19747(C_word c,C_word *av) C_noret; C_noret_decl(f_19750) static void C_fcall f_19750(C_word t0,C_word t1) C_noret; C_noret_decl(f_19755) static void C_ccall f_19755(C_word c,C_word *av) C_noret; C_noret_decl(f_19761) static void C_ccall f_19761(C_word c,C_word *av) C_noret; C_noret_decl(f_19765) static void C_ccall f_19765(C_word c,C_word *av) C_noret; C_noret_decl(f_19768) static void C_ccall f_19768(C_word c,C_word *av) C_noret; C_noret_decl(f_19771) static void C_ccall f_19771(C_word c,C_word *av) C_noret; C_noret_decl(f_19774) static void C_ccall f_19774(C_word c,C_word *av) C_noret; C_noret_decl(f_19783) static void C_ccall f_19783(C_word c,C_word *av) C_noret; C_noret_decl(f_19786) static void C_ccall f_19786(C_word c,C_word *av) C_noret; C_noret_decl(f_19789) static void C_ccall f_19789(C_word c,C_word *av) C_noret; C_noret_decl(f_19811) static void C_ccall f_19811(C_word c,C_word *av) C_noret; C_noret_decl(f_19817) static void C_ccall f_19817(C_word c,C_word *av) C_noret; C_noret_decl(f_19820) static void C_ccall f_19820(C_word c,C_word *av) C_noret; C_noret_decl(f_19830) static void C_ccall f_19830(C_word c,C_word *av) C_noret; C_noret_decl(f_19834) static void C_ccall f_19834(C_word c,C_word *av) C_noret; C_noret_decl(f_19838) static void C_ccall f_19838(C_word c,C_word *av) C_noret; C_noret_decl(f_19842) static void C_ccall f_19842(C_word c,C_word *av) C_noret; C_noret_decl(f_19846) static void C_ccall f_19846(C_word c,C_word *av) C_noret; C_noret_decl(f_19850) static void C_ccall f_19850(C_word c,C_word *av) C_noret; C_noret_decl(f_19862) static void C_ccall f_19862(C_word c,C_word *av) C_noret; C_noret_decl(f_19868) static void C_ccall f_19868(C_word c,C_word *av) C_noret; C_noret_decl(f_19876) static void C_fcall f_19876(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19886) static void C_ccall f_19886(C_word c,C_word *av) C_noret; C_noret_decl(f_19903) static void C_ccall f_19903(C_word c,C_word *av) C_noret; C_noret_decl(f_19906) static void C_ccall f_19906(C_word c,C_word *av) C_noret; C_noret_decl(f_19909) static void C_ccall f_19909(C_word c,C_word *av) C_noret; C_noret_decl(f_19912) static void C_ccall f_19912(C_word c,C_word *av) C_noret; C_noret_decl(f_19917) static void C_ccall f_19917(C_word c,C_word *av) C_noret; C_noret_decl(f_19925) static void C_ccall f_19925(C_word c,C_word *av) C_noret; C_noret_decl(f_19940) static void C_ccall f_19940(C_word c,C_word *av) C_noret; C_noret_decl(f_19943) static void C_ccall f_19943(C_word c,C_word *av) C_noret; C_noret_decl(f_19949) static void C_ccall f_19949(C_word c,C_word *av) C_noret; C_noret_decl(f_19952) static void C_ccall f_19952(C_word c,C_word *av) C_noret; C_noret_decl(f_19955) static void C_ccall f_19955(C_word c,C_word *av) C_noret; C_noret_decl(f_19958) static void C_ccall f_19958(C_word c,C_word *av) C_noret; C_noret_decl(f_19961) static void C_ccall f_19961(C_word c,C_word *av) C_noret; C_noret_decl(f_19964) static void C_ccall f_19964(C_word c,C_word *av) C_noret; C_noret_decl(f_19967) static void C_ccall f_19967(C_word c,C_word *av) C_noret; C_noret_decl(f_19976) static void C_ccall f_19976(C_word c,C_word *av) C_noret; C_noret_decl(f_19979) static void C_ccall f_19979(C_word c,C_word *av) C_noret; C_noret_decl(f_19984) static void C_ccall f_19984(C_word c,C_word *av) C_noret; C_noret_decl(f_19988) static void C_ccall f_19988(C_word c,C_word *av) C_noret; C_noret_decl(f_19992) static void C_ccall f_19992(C_word c,C_word *av) C_noret; C_noret_decl(f_19999) static void C_ccall f_19999(C_word c,C_word *av) C_noret; C_noret_decl(f_20004) static void C_fcall f_20004(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20011) static void C_ccall f_20011(C_word c,C_word *av) C_noret; C_noret_decl(f_20014) static void C_ccall f_20014(C_word c,C_word *av) C_noret; C_noret_decl(f_20021) static void C_ccall f_20021(C_word c,C_word *av) C_noret; C_noret_decl(f_20031) static void C_ccall f_20031(C_word c,C_word *av) C_noret; C_noret_decl(f_20035) static void C_ccall f_20035(C_word c,C_word *av) C_noret; C_noret_decl(f_20038) static void C_ccall f_20038(C_word c,C_word *av) C_noret; C_noret_decl(f_20045) static void C_ccall f_20045(C_word c,C_word *av) C_noret; C_noret_decl(f_20055) static void C_ccall f_20055(C_word c,C_word *av) C_noret; C_noret_decl(f_20060) static void C_ccall f_20060(C_word c,C_word *av) C_noret; C_noret_decl(f_20070) static void C_ccall f_20070(C_word c,C_word *av) C_noret; C_noret_decl(f_20073) static void C_ccall f_20073(C_word c,C_word *av) C_noret; C_noret_decl(f_20076) static void C_ccall f_20076(C_word c,C_word *av) C_noret; C_noret_decl(f_20101) static void C_ccall f_20101(C_word c,C_word *av) C_noret; C_noret_decl(f_20104) static void C_ccall f_20104(C_word c,C_word *av) C_noret; C_noret_decl(f_20107) static void C_ccall f_20107(C_word c,C_word *av) C_noret; C_noret_decl(f_20110) static void C_ccall f_20110(C_word c,C_word *av) C_noret; C_noret_decl(f_20113) static void C_ccall f_20113(C_word c,C_word *av) C_noret; C_noret_decl(f_20116) static void C_ccall f_20116(C_word c,C_word *av) C_noret; C_noret_decl(f_20119) static void C_ccall f_20119(C_word c,C_word *av) C_noret; C_noret_decl(f_20122) static void C_ccall f_20122(C_word c,C_word *av) C_noret; C_noret_decl(f_20125) static void C_ccall f_20125(C_word c,C_word *av) C_noret; C_noret_decl(f_20132) static void C_ccall f_20132(C_word c,C_word *av) C_noret; C_noret_decl(f_20136) static void C_ccall f_20136(C_word c,C_word *av) C_noret; C_noret_decl(f_20141) static void C_ccall f_20141(C_word c,C_word *av) C_noret; C_noret_decl(f_20147) static void C_ccall f_20147(C_word c,C_word *av) C_noret; C_noret_decl(f_20158) static void C_fcall f_20158(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20168) static void C_ccall f_20168(C_word c,C_word *av) C_noret; C_noret_decl(f_20183) static void C_ccall f_20183(C_word c,C_word *av) C_noret; C_noret_decl(f_20185) static void C_ccall f_20185(C_word c,C_word *av) C_noret; C_noret_decl(f_20193) static void C_ccall f_20193(C_word c,C_word *av) C_noret; C_noret_decl(f_20197) static void C_ccall f_20197(C_word c,C_word *av) C_noret; C_noret_decl(f_20209) static void C_ccall f_20209(C_word c,C_word *av) C_noret; C_noret_decl(f_20211) static void C_ccall f_20211(C_word c,C_word *av) C_noret; C_noret_decl(f_20221) static void C_ccall f_20221(C_word c,C_word *av) C_noret; C_noret_decl(f_20239) static void C_ccall f_20239(C_word c,C_word *av) C_noret; C_noret_decl(f_20244) static void C_ccall f_20244(C_word c,C_word *av) C_noret; C_noret_decl(f_20250) static void C_ccall f_20250(C_word c,C_word *av) C_noret; C_noret_decl(f_20259) static C_word C_fcall f_20259(C_word *a,C_word t0,C_word t1); C_noret_decl(f_20273) static void C_ccall f_20273(C_word c,C_word *av) C_noret; C_noret_decl(f_20278) static C_word C_fcall f_20278(C_word *a,C_word t0,C_word t1); C_noret_decl(f_20292) static void C_ccall f_20292(C_word c,C_word *av) C_noret; C_noret_decl(f_20294) static void C_fcall f_20294(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20328) static void C_fcall f_20328(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20373) static void C_ccall f_20373(C_word c,C_word *av) C_noret; C_noret_decl(f_20378) static void C_ccall f_20378(C_word c,C_word *av) C_noret; C_noret_decl(f_20384) static void C_ccall f_20384(C_word c,C_word *av) C_noret; C_noret_decl(f_20387) static void C_ccall f_20387(C_word c,C_word *av) C_noret; C_noret_decl(f_20390) static void C_ccall f_20390(C_word c,C_word *av) C_noret; C_noret_decl(f_20393) static void C_ccall f_20393(C_word c,C_word *av) C_noret; C_noret_decl(f_20398) static void C_ccall f_20398(C_word c,C_word *av) C_noret; C_noret_decl(f_20404) static void C_ccall f_20404(C_word c,C_word *av) C_noret; C_noret_decl(f_20410) static void C_ccall f_20410(C_word c,C_word *av) C_noret; C_noret_decl(f_20418) static void C_ccall f_20418(C_word c,C_word *av) C_noret; C_noret_decl(f_20424) static void C_ccall f_20424(C_word c,C_word *av) C_noret; C_noret_decl(f_20427) static void C_ccall f_20427(C_word c,C_word *av) C_noret; C_noret_decl(f_20430) static void C_ccall f_20430(C_word c,C_word *av) C_noret; C_noret_decl(f_20433) static void C_ccall f_20433(C_word c,C_word *av) C_noret; C_noret_decl(f_20435) static void C_ccall f_20435(C_word c,C_word *av) C_noret; C_noret_decl(f_20441) static void C_ccall f_20441(C_word c,C_word *av) C_noret; C_noret_decl(f_20445) static void C_ccall f_20445(C_word c,C_word *av) C_noret; C_noret_decl(f_20456) static void C_ccall f_20456(C_word c,C_word *av) C_noret; C_noret_decl(f_20461) static void C_ccall f_20461(C_word c,C_word *av) C_noret; C_noret_decl(f_20467) static void C_ccall f_20467(C_word c,C_word *av) C_noret; C_noret_decl(f_20476) static void C_fcall f_20476(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20486) static void C_ccall f_20486(C_word c,C_word *av) C_noret; C_noret_decl(f_20499) static void C_ccall f_20499(C_word c,C_word *av) C_noret; C_noret_decl(f_20506) static void C_ccall f_20506(C_word c,C_word *av) C_noret; C_noret_decl(f_20510) static void C_ccall f_20510(C_word c,C_word *av) C_noret; C_noret_decl(f_20514) static void C_ccall f_20514(C_word c,C_word *av) C_noret; C_noret_decl(f_20518) static void C_ccall f_20518(C_word c,C_word *av) C_noret; C_noret_decl(f_20533) static void C_ccall f_20533(C_word c,C_word *av) C_noret; C_noret_decl(f_20536) static void C_ccall f_20536(C_word c,C_word *av) C_noret; C_noret_decl(f_20547) static void C_ccall f_20547(C_word c,C_word *av) C_noret; C_noret_decl(f_20553) static void C_ccall f_20553(C_word c,C_word *av) C_noret; C_noret_decl(f_20556) static void C_ccall f_20556(C_word c,C_word *av) C_noret; C_noret_decl(f_20571) static void C_fcall f_20571(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20581) static void C_ccall f_20581(C_word c,C_word *av) C_noret; C_noret_decl(f_20598) static void C_ccall f_20598(C_word c,C_word *av) C_noret; C_noret_decl(f_20620) static void C_ccall f_20620(C_word c,C_word *av) C_noret; C_noret_decl(f_20641) static void C_ccall f_20641(C_word c,C_word *av) C_noret; C_noret_decl(f_20644) static void C_ccall f_20644(C_word c,C_word *av) C_noret; C_noret_decl(f_20657) static void C_ccall f_20657(C_word c,C_word *av) C_noret; C_noret_decl(f_20661) static void C_ccall f_20661(C_word c,C_word *av) C_noret; C_noret_decl(f_20667) static void C_ccall f_20667(C_word c,C_word *av) C_noret; C_noret_decl(f_20677) static void C_ccall f_20677(C_word c,C_word *av) C_noret; C_noret_decl(f_20680) static void C_ccall f_20680(C_word c,C_word *av) C_noret; C_noret_decl(f_20688) static void C_fcall f_20688(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20722) static void C_fcall f_20722(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20747) static void C_ccall f_20747(C_word c,C_word *av) C_noret; C_noret_decl(f_20763) static void C_ccall f_20763(C_word c,C_word *av) C_noret; C_noret_decl(f_20779) static void C_ccall f_20779(C_word c,C_word *av) C_noret; C_noret_decl(f_20782) static void C_ccall f_20782(C_word c,C_word *av) C_noret; C_noret_decl(f_20785) static void C_ccall f_20785(C_word c,C_word *av) C_noret; C_noret_decl(f_20793) static void C_fcall f_20793(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20818) static void C_ccall f_20818(C_word c,C_word *av) C_noret; C_noret_decl(f_20840) static void C_ccall f_20840(C_word c,C_word *av) C_noret; C_noret_decl(f_20843) static void C_ccall f_20843(C_word c,C_word *av) C_noret; C_noret_decl(f_20848) static void C_fcall f_20848(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20858) static void C_ccall f_20858(C_word c,C_word *av) C_noret; C_noret_decl(f_20865) static void C_ccall f_20865(C_word c,C_word *av) C_noret; C_noret_decl(f_20938) static void C_ccall f_20938(C_word c,C_word *av) C_noret; C_noret_decl(f_20945) static void C_ccall f_20945(C_word c,C_word *av) C_noret; C_noret_decl(f_20954) static void C_ccall f_20954(C_word c,C_word *av) C_noret; C_noret_decl(f_21157) static void C_ccall f_21157(C_word c,C_word *av) C_noret; C_noret_decl(f_21161) static void C_ccall f_21161(C_word c,C_word *av) C_noret; C_noret_decl(f_21192) static void C_ccall f_21192(C_word c,C_word *av) C_noret; C_noret_decl(f_21205) static void C_ccall f_21205(C_word c,C_word *av) C_noret; C_noret_decl(f_21211) static void C_ccall f_21211(C_word c,C_word *av) C_noret; C_noret_decl(f_21213) static void C_fcall f_21213(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21238) static void C_ccall f_21238(C_word c,C_word *av) C_noret; C_noret_decl(f_21266) static void C_ccall f_21266(C_word c,C_word *av) C_noret; C_noret_decl(f_21270) static void C_ccall f_21270(C_word c,C_word *av) C_noret; C_noret_decl(f_21295) static void C_fcall f_21295(C_word t0,C_word t1) C_noret; C_noret_decl(f_21304) static void C_ccall f_21304(C_word c,C_word *av) C_noret; C_noret_decl(f_21310) static void C_ccall f_21310(C_word c,C_word *av) C_noret; C_noret_decl(f_21317) static void C_ccall f_21317(C_word c,C_word *av) C_noret; C_noret_decl(f_21329) static void C_ccall f_21329(C_word c,C_word *av) C_noret; C_noret_decl(f_21333) static void C_fcall f_21333(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21370) static void C_ccall f_21370(C_word c,C_word *av) C_noret; C_noret_decl(f_21378) static void C_ccall f_21378(C_word c,C_word *av) C_noret; C_noret_decl(f_21390) static void C_ccall f_21390(C_word c,C_word *av) C_noret; C_noret_decl(f_21394) static void C_fcall f_21394(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21410) static void C_ccall f_21410(C_word c,C_word *av) C_noret; C_noret_decl(f_21414) static void C_ccall f_21414(C_word c,C_word *av) C_noret; C_noret_decl(f_21438) static void C_ccall f_21438(C_word c,C_word *av) C_noret; C_noret_decl(f_21441) static void C_ccall f_21441(C_word c,C_word *av) C_noret; C_noret_decl(f_21447) static void C_ccall f_21447(C_word c,C_word *av) C_noret; C_noret_decl(f_21451) static void C_ccall f_21451(C_word c,C_word *av) C_noret; C_noret_decl(f_21643) static void C_ccall f_21643(C_word c,C_word *av) C_noret; C_noret_decl(f_21647) static void C_ccall f_21647(C_word c,C_word *av) C_noret; C_noret_decl(f_21651) static void C_ccall f_21651(C_word c,C_word *av) C_noret; C_noret_decl(f_21655) static void C_ccall f_21655(C_word c,C_word *av) C_noret; C_noret_decl(f_21659) static void C_ccall f_21659(C_word c,C_word *av) C_noret; C_noret_decl(f_21666) static void C_ccall f_21666(C_word c,C_word *av) C_noret; C_noret_decl(f_21670) static void C_ccall f_21670(C_word c,C_word *av) C_noret; C_noret_decl(f_21677) static void C_ccall f_21677(C_word c,C_word *av) C_noret; C_noret_decl(f_21680) static void C_ccall f_21680(C_word c,C_word *av) C_noret; C_noret_decl(f_21687) static void C_ccall f_21687(C_word c,C_word *av) C_noret; C_noret_decl(f_21692) static void C_ccall f_21692(C_word c,C_word *av) C_noret; C_noret_decl(f_21697) static void C_ccall f_21697(C_word c,C_word *av) C_noret; C_noret_decl(f_21701) static void C_ccall f_21701(C_word c,C_word *av) C_noret; C_noret_decl(f_21705) static void C_ccall f_21705(C_word c,C_word *av) C_noret; C_noret_decl(f_21712) static void C_ccall f_21712(C_word c,C_word *av) C_noret; C_noret_decl(f_6745) static void C_ccall f_6745(C_word c,C_word *av) C_noret; C_noret_decl(f_6748) static void C_ccall f_6748(C_word c,C_word *av) C_noret; C_noret_decl(f_6751) static void C_ccall f_6751(C_word c,C_word *av) C_noret; C_noret_decl(f_6754) static void C_ccall f_6754(C_word c,C_word *av) C_noret; C_noret_decl(f_6757) static void C_ccall f_6757(C_word c,C_word *av) C_noret; C_noret_decl(f_6760) static void C_ccall f_6760(C_word c,C_word *av) C_noret; C_noret_decl(f_6763) static void C_ccall f_6763(C_word c,C_word *av) C_noret; C_noret_decl(f_6766) static void C_ccall f_6766(C_word c,C_word *av) C_noret; C_noret_decl(f_6769) static void C_ccall f_6769(C_word c,C_word *av) C_noret; C_noret_decl(f_6772) static void C_ccall f_6772(C_word c,C_word *av) C_noret; C_noret_decl(f_6775) static void C_ccall f_6775(C_word c,C_word *av) C_noret; C_noret_decl(f_6778) static void C_ccall f_6778(C_word c,C_word *av) C_noret; C_noret_decl(f_6781) static void C_ccall f_6781(C_word c,C_word *av) C_noret; C_noret_decl(f_6784) static void C_ccall f_6784(C_word c,C_word *av) C_noret; C_noret_decl(f_6798) static void C_fcall f_6798(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6812) static void C_ccall f_6812(C_word c,C_word *av) C_noret; C_noret_decl(f_6816) static void C_ccall f_6816(C_word c,C_word *av) C_noret; C_noret_decl(f_6822) static void C_ccall f_6822(C_word c,C_word *av) C_noret; C_noret_decl(f_6958) static void C_fcall f_6958(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6972) static void C_ccall f_6972(C_word c,C_word *av) C_noret; C_noret_decl(f_6991) static void C_fcall f_6991(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7006) static void C_fcall f_7006(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7014) static void C_fcall f_7014(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7022) static void C_ccall f_7022(C_word c,C_word *av) C_noret; C_noret_decl(f_7033) static void C_ccall f_7033(C_word c,C_word *av) C_noret; C_noret_decl(f_7046) static void C_fcall f_7046(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7053) static void C_ccall f_7053(C_word c,C_word *av) C_noret; C_noret_decl(f_7060) static void C_ccall f_7060(C_word c,C_word *av) C_noret; C_noret_decl(f_7064) static void C_ccall f_7064(C_word c,C_word *av) C_noret; C_noret_decl(f_7076) static void C_ccall f_7076(C_word c,C_word *av) C_noret; C_noret_decl(f_7078) static void C_fcall f_7078(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7125) static void C_ccall f_7125(C_word c,C_word *av) C_noret; C_noret_decl(f_7127) static void C_fcall f_7127(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7161) static void C_fcall f_7161(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7167) static void C_fcall f_7167(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7189) static void C_ccall f_7189(C_word c,C_word *av) C_noret; C_noret_decl(f_7195) static void C_fcall f_7195(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7201) static void C_fcall f_7201(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7211) static void C_ccall f_7211(C_word c,C_word *av) C_noret; C_noret_decl(f_7253) static void C_fcall f_7253(C_word t0,C_word t1) C_noret; C_noret_decl(f_7259) static void C_fcall f_7259(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7277) static void C_ccall f_7277(C_word c,C_word *av) C_noret; C_noret_decl(f_7281) static void C_fcall f_7281(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7287) static void C_fcall f_7287(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7300) static void C_ccall f_7300(C_word c,C_word *av) C_noret; C_noret_decl(f_7314) static void C_ccall f_7314(C_word c,C_word *av) C_noret; C_noret_decl(f_7362) static void C_fcall f_7362(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7376) static void C_ccall f_7376(C_word c,C_word *av) C_noret; C_noret_decl(f_7389) static void C_ccall f_7389(C_word c,C_word *av) C_noret; C_noret_decl(f_7410) static void C_fcall f_7410(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7418) static void C_fcall f_7418(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7425) static void C_ccall f_7425(C_word c,C_word *av) C_noret; C_noret_decl(f_7439) static void C_ccall f_7439(C_word c,C_word *av) C_noret; C_noret_decl(f_7445) static void C_fcall f_7445(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7454) static void C_fcall f_7454(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7462) static void C_fcall f_7462(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7466) static void C_ccall f_7466(C_word c,C_word *av) C_noret; C_noret_decl(f_7470) static C_word C_fcall f_7470(C_word *a,C_word t0,C_word t1); C_noret_decl(f_7488) static void C_ccall f_7488(C_word c,C_word *av) C_noret; C_noret_decl(f_7527) static void C_fcall f_7527(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7592) static void C_fcall f_7592(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7605) static void C_ccall f_7605(C_word c,C_word *av) C_noret; C_noret_decl(f_7916) static void C_fcall f_7916(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7922) static void C_fcall f_7922(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7935) static void C_ccall f_7935(C_word c,C_word *av) C_noret; C_noret_decl(f_8074) static void C_ccall f_8074(C_word c,C_word *av) C_noret; C_noret_decl(f_8080) static void C_ccall f_8080(C_word c,C_word *av) C_noret; C_noret_decl(f_8084) static void C_ccall f_8084(C_word c,C_word *av) C_noret; C_noret_decl(f_8088) static void C_ccall f_8088(C_word c,C_word *av) C_noret; C_noret_decl(f_8092) static void C_ccall f_8092(C_word c,C_word *av) C_noret; C_noret_decl(f_8096) static void C_ccall f_8096(C_word c,C_word *av) C_noret; C_noret_decl(f_8100) static void C_ccall f_8100(C_word c,C_word *av) C_noret; C_noret_decl(f_8104) static void C_ccall f_8104(C_word c,C_word *av) C_noret; C_noret_decl(f_8108) static void C_ccall f_8108(C_word c,C_word *av) C_noret; C_noret_decl(f_8112) static void C_ccall f_8112(C_word c,C_word *av) C_noret; C_noret_decl(f_8116) static void C_ccall f_8116(C_word c,C_word *av) C_noret; C_noret_decl(f_8120) static void C_ccall f_8120(C_word c,C_word *av) C_noret; C_noret_decl(f_8124) static void C_ccall f_8124(C_word c,C_word *av) C_noret; C_noret_decl(f_8128) static void C_ccall f_8128(C_word c,C_word *av) C_noret; C_noret_decl(f_8132) static void C_ccall f_8132(C_word c,C_word *av) C_noret; C_noret_decl(f_8140) static void C_ccall f_8140(C_word c,C_word *av) C_noret; C_noret_decl(f_8144) static void C_ccall f_8144(C_word c,C_word *av) C_noret; C_noret_decl(f_8148) static void C_ccall f_8148(C_word c,C_word *av) C_noret; C_noret_decl(f_8152) static void C_ccall f_8152(C_word c,C_word *av) C_noret; C_noret_decl(f_8156) static void C_ccall f_8156(C_word c,C_word *av) C_noret; C_noret_decl(f_8160) static void C_ccall f_8160(C_word c,C_word *av) C_noret; C_noret_decl(f_8164) static void C_ccall f_8164(C_word c,C_word *av) C_noret; C_noret_decl(f_8168) static void C_ccall f_8168(C_word c,C_word *av) C_noret; C_noret_decl(f_8172) static void C_ccall f_8172(C_word c,C_word *av) C_noret; C_noret_decl(f_8176) static void C_ccall f_8176(C_word c,C_word *av) C_noret; C_noret_decl(f_8180) static void C_ccall f_8180(C_word c,C_word *av) C_noret; C_noret_decl(f_8184) static void C_ccall f_8184(C_word c,C_word *av) C_noret; C_noret_decl(f_8188) static void C_ccall f_8188(C_word c,C_word *av) C_noret; C_noret_decl(f_8192) static void C_ccall f_8192(C_word c,C_word *av) C_noret; C_noret_decl(f_8196) static void C_ccall f_8196(C_word c,C_word *av) C_noret; C_noret_decl(f_8200) static void C_ccall f_8200(C_word c,C_word *av) C_noret; C_noret_decl(f_8204) static void C_ccall f_8204(C_word c,C_word *av) C_noret; C_noret_decl(f_8208) static void C_ccall f_8208(C_word c,C_word *av) C_noret; C_noret_decl(f_8212) static void C_ccall f_8212(C_word c,C_word *av) C_noret; C_noret_decl(f_8223) static void C_ccall f_8223(C_word c,C_word *av) C_noret; C_noret_decl(f_8232) static void C_ccall f_8232(C_word c,C_word *av) C_noret; C_noret_decl(f_8240) static void C_fcall f_8240(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8256) static void C_ccall f_8256(C_word c,C_word *av) C_noret; C_noret_decl(f_8267) static void C_fcall f_8267(C_word t0,C_word t1) C_noret; C_noret_decl(f_8277) static void C_ccall f_8277(C_word c,C_word *av) C_noret; C_noret_decl(f_8281) static void C_ccall f_8281(C_word c,C_word *av) C_noret; C_noret_decl(f_8284) static void C_ccall f_8284(C_word c,C_word *av) C_noret; C_noret_decl(f_8286) static void C_fcall f_8286(C_word t0,C_word t1) C_noret; C_noret_decl(f_8290) static void C_ccall f_8290(C_word c,C_word *av) C_noret; C_noret_decl(f_8296) static void C_ccall f_8296(C_word c,C_word *av) C_noret; C_noret_decl(f_8300) static void C_ccall f_8300(C_word c,C_word *av) C_noret; C_noret_decl(f_8304) static void C_ccall f_8304(C_word c,C_word *av) C_noret; C_noret_decl(f_8308) static void C_ccall f_8308(C_word c,C_word *av) C_noret; C_noret_decl(f_8312) static void C_ccall f_8312(C_word c,C_word *av) C_noret; C_noret_decl(f_8323) static C_word C_fcall f_8323(C_word t0,C_word t1,C_word t2); C_noret_decl(f_8347) static C_word C_fcall f_8347(C_word t0,C_word t1,C_word t2); C_noret_decl(f_8691) static void C_ccall f_8691(C_word c,C_word *av) C_noret; C_noret_decl(f_8692) static void C_fcall f_8692(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8701) static C_word C_fcall f_8701(C_word t0); C_noret_decl(f_8720) static C_word C_fcall f_8720(C_word t0); C_noret_decl(f_8739) static C_word C_fcall f_8739(C_word t0); C_noret_decl(f_8758) static C_word C_fcall f_8758(C_word t0); C_noret_decl(f_8777) static C_word C_fcall f_8777(C_word t0); C_noret_decl(f_8808) static C_word C_fcall f_8808(C_word t0); C_noret_decl(f_8830) static C_word C_fcall f_8830(C_word t0); C_noret_decl(f_8843) static void C_fcall f_8843(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8847) static void C_ccall f_8847(C_word c,C_word *av) C_noret; C_noret_decl(f_8852) static void C_ccall f_8852(C_word c,C_word *av) C_noret; C_noret_decl(f_8858) static void C_ccall f_8858(C_word c,C_word *av) C_noret; C_noret_decl(f_8864) static void C_ccall f_8864(C_word c,C_word *av) C_noret; C_noret_decl(f_8903) static void C_ccall f_8903(C_word c,C_word *av) C_noret; C_noret_decl(f_8905) static void C_fcall f_8905(C_word t0,C_word t1) C_noret; C_noret_decl(f_8910) static void C_fcall f_8910(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8916) static void C_ccall f_8916(C_word c,C_word *av) C_noret; C_noret_decl(f_8927) static void C_ccall f_8927(C_word c,C_word *av) C_noret; C_noret_decl(f_8932) static void C_ccall f_8932(C_word c,C_word *av) C_noret; C_noret_decl(f_8957) static void C_fcall f_8957(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8982) static void C_ccall f_8982(C_word c,C_word *av) C_noret; C_noret_decl(f_8996) static void C_ccall f_8996(C_word c,C_word *av) C_noret; C_noret_decl(f_9010) static void C_ccall f_9010(C_word c,C_word *av) C_noret; C_noret_decl(f_9023) static void C_fcall f_9023(C_word t0,C_word t1) C_noret; C_noret_decl(f_9030) static void C_ccall f_9030(C_word c,C_word *av) C_noret; C_noret_decl(f_9114) static void C_fcall f_9114(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_9118) static void C_ccall f_9118(C_word c,C_word *av) C_noret; C_noret_decl(f_9129) static void C_fcall f_9129(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9133) static void C_ccall f_9133(C_word c,C_word *av) C_noret; C_noret_decl(f_9141) static void C_fcall f_9141(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9146) static void C_ccall f_9146(C_word c,C_word *av) C_noret; C_noret_decl(f_9152) static void C_ccall f_9152(C_word c,C_word *av) C_noret; C_noret_decl(f_9165) static void C_ccall f_9165(C_word c,C_word *av) C_noret; C_noret_decl(f_9173) static void C_ccall f_9173(C_word c,C_word *av) C_noret; C_noret_decl(f_9204) static void C_ccall f_9204(C_word c,C_word *av) C_noret; C_noret_decl(f_9214) static void C_ccall f_9214(C_word c,C_word *av) C_noret; C_noret_decl(f_9217) static void C_ccall f_9217(C_word c,C_word *av) C_noret; C_noret_decl(f_9223) static void C_fcall f_9223(C_word t0,C_word t1) C_noret; C_noret_decl(f_9226) static void C_fcall f_9226(C_word t0,C_word t1) C_noret; C_noret_decl(f_9229) static void C_ccall f_9229(C_word c,C_word *av) C_noret; C_noret_decl(f_9248) static void C_fcall f_9248(C_word t0,C_word t1) C_noret; C_noret_decl(f_9252) static void C_fcall f_9252(C_word t0,C_word t1) C_noret; C_noret_decl(f_9256) static void C_fcall f_9256(C_word t0,C_word t1) C_noret; C_noret_decl(f_9260) static void C_fcall f_9260(C_word t0,C_word t1) C_noret; C_noret_decl(f_9264) static void C_ccall f_9264(C_word c,C_word *av) C_noret; C_noret_decl(f_9271) static void C_ccall f_9271(C_word c,C_word *av) C_noret; C_noret_decl(f_9278) static void C_ccall f_9278(C_word c,C_word *av) C_noret; C_noret_decl(f_9288) static void C_ccall f_9288(C_word c,C_word *av) C_noret; C_noret_decl(f_9298) static void C_ccall f_9298(C_word c,C_word *av) C_noret; C_noret_decl(f_9302) static void C_ccall f_9302(C_word c,C_word *av) C_noret; C_noret_decl(f_9319) static void C_fcall f_9319(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9329) static void C_ccall f_9329(C_word c,C_word *av) C_noret; C_noret_decl(f_9342) static void C_ccall f_9342(C_word c,C_word *av) C_noret; C_noret_decl(f_9387) static void C_ccall f_9387(C_word c,C_word *av) C_noret; C_noret_decl(f_9395) static void C_ccall f_9395(C_word c,C_word *av) C_noret; C_noret_decl(f_9416) static void C_ccall f_9416(C_word c,C_word *av) C_noret; C_noret_decl(f_9426) static void C_ccall f_9426(C_word c,C_word *av) C_noret; C_noret_decl(f_9429) static void C_ccall f_9429(C_word c,C_word *av) C_noret; C_noret_decl(f_9442) static void C_fcall f_9442(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9452) static void C_ccall f_9452(C_word c,C_word *av) C_noret; C_noret_decl(f_9465) static void C_ccall f_9465(C_word c,C_word *av) C_noret; C_noret_decl(f_9500) static void C_ccall f_9500(C_word c,C_word *av) C_noret; C_noret_decl(f_9505) static void C_ccall f_9505(C_word c,C_word *av) C_noret; C_noret_decl(f_9514) static void C_ccall f_9514(C_word c,C_word *av) C_noret; C_noret_decl(f_9524) static void C_ccall f_9524(C_word c,C_word *av) C_noret; C_noret_decl(f_9527) static void C_ccall f_9527(C_word c,C_word *av) C_noret; C_noret_decl(f_9530) static void C_ccall f_9530(C_word c,C_word *av) C_noret; C_noret_decl(f_9533) static void C_ccall f_9533(C_word c,C_word *av) C_noret; C_noret_decl(f_9546) static void C_fcall f_9546(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9556) static void C_ccall f_9556(C_word c,C_word *av) C_noret; C_noret_decl(f_9558) static void C_fcall f_9558(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9583) static void C_ccall f_9583(C_word c,C_word *av) C_noret; C_noret_decl(f_9594) static void C_ccall f_9594(C_word c,C_word *av) C_noret; C_noret_decl(f_9605) static void C_fcall f_9605(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9615) static void C_ccall f_9615(C_word c,C_word *av) C_noret; C_noret_decl(f_9628) static void C_ccall f_9628(C_word c,C_word *av) C_noret; C_noret_decl(f_9648) static void C_ccall f_9648(C_word c,C_word *av) C_noret; C_noret_decl(f_9653) static void C_ccall f_9653(C_word c,C_word *av) C_noret; C_noret_decl(f_9666) static void C_ccall f_9666(C_word c,C_word *av) C_noret; C_noret_decl(f_9676) static void C_ccall f_9676(C_word c,C_word *av) C_noret; C_noret_decl(f_9679) static void C_ccall f_9679(C_word c,C_word *av) C_noret; C_noret_decl(f_9692) static void C_fcall f_9692(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9702) static void C_ccall f_9702(C_word c,C_word *av) C_noret; C_noret_decl(f_9715) static void C_ccall f_9715(C_word c,C_word *av) C_noret; C_noret_decl(f_9739) static void C_ccall f_9739(C_word c,C_word *av) C_noret; C_noret_decl(f_9744) static void C_ccall f_9744(C_word c,C_word *av) C_noret; C_noret_decl(f_9753) static void C_ccall f_9753(C_word c,C_word *av) C_noret; C_noret_decl(f_9763) static void C_ccall f_9763(C_word c,C_word *av) C_noret; C_noret_decl(f_9766) static void C_ccall f_9766(C_word c,C_word *av) C_noret; C_noret_decl(f_9769) static void C_ccall f_9769(C_word c,C_word *av) C_noret; C_noret_decl(f_9772) static void C_ccall f_9772(C_word c,C_word *av) C_noret; C_noret_decl(f_9785) static void C_fcall f_9785(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9795) static void C_ccall f_9795(C_word c,C_word *av) C_noret; C_noret_decl(f_9797) static void C_fcall f_9797(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9822) static void C_ccall f_9822(C_word c,C_word *av) C_noret; C_noret_decl(f_9833) static void C_ccall f_9833(C_word c,C_word *av) C_noret; C_noret_decl(f_9844) static void C_fcall f_9844(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9854) static void C_ccall f_9854(C_word c,C_word *av) C_noret; C_noret_decl(f_9867) static void C_ccall f_9867(C_word c,C_word *av) C_noret; C_noret_decl(f_9887) static void C_ccall f_9887(C_word c,C_word *av) C_noret; C_noret_decl(f_9892) static void C_ccall f_9892(C_word c,C_word *av) C_noret; C_noret_decl(f_9901) static void C_ccall f_9901(C_word c,C_word *av) C_noret; C_noret_decl(f_9911) static void C_ccall f_9911(C_word c,C_word *av) C_noret; C_noret_decl(f_9914) static void C_ccall f_9914(C_word c,C_word *av) C_noret; C_noret_decl(f_9917) static void C_ccall f_9917(C_word c,C_word *av) C_noret; C_noret_decl(f_9920) static void C_ccall f_9920(C_word c,C_word *av) C_noret; C_noret_decl(f_9933) static void C_fcall f_9933(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9943) static void C_ccall f_9943(C_word c,C_word *av) C_noret; C_noret_decl(f_9945) static void C_fcall f_9945(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9970) static void C_ccall f_9970(C_word c,C_word *av) C_noret; C_noret_decl(f_9981) static void C_ccall f_9981(C_word c,C_word *av) C_noret; C_noret_decl(f_9992) static void C_fcall f_9992(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_10109) static void C_ccall trf_10109(C_word c,C_word *av) C_noret; static void C_ccall trf_10109(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10109(t0,t1,t2);} C_noret_decl(trf_10277) static void C_ccall trf_10277(C_word c,C_word *av) C_noret; static void C_ccall trf_10277(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10277(t0,t1,t2);} C_noret_decl(trf_10311) static void C_ccall trf_10311(C_word c,C_word *av) C_noret; static void C_ccall trf_10311(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10311(t0,t1,t2);} C_noret_decl(trf_10446) static void C_ccall trf_10446(C_word c,C_word *av) C_noret; static void C_ccall trf_10446(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10446(t0,t1,t2);} C_noret_decl(trf_10501) static void C_ccall trf_10501(C_word c,C_word *av) C_noret; static void C_ccall trf_10501(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10501(t0,t1,t2);} C_noret_decl(trf_10556) static void C_ccall trf_10556(C_word c,C_word *av) C_noret; static void C_ccall trf_10556(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10556(t0,t1,t2);} C_noret_decl(trf_10617) static void C_ccall trf_10617(C_word c,C_word *av) C_noret; static void C_ccall trf_10617(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10617(t0,t1,t2,t3);} C_noret_decl(trf_10642) static void C_ccall trf_10642(C_word c,C_word *av) C_noret; static void C_ccall trf_10642(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10642(t0,t1,t2);} C_noret_decl(trf_10684) static void C_ccall trf_10684(C_word c,C_word *av) C_noret; static void C_ccall trf_10684(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10684(t0,t1,t2);} C_noret_decl(trf_10776) static void C_ccall trf_10776(C_word c,C_word *av) C_noret; static void C_ccall trf_10776(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10776(t0,t1,t2);} C_noret_decl(trf_10868) static void C_ccall trf_10868(C_word c,C_word *av) C_noret; static void C_ccall trf_10868(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10868(t0,t1,t2,t3);} C_noret_decl(trf_10878) static void C_ccall trf_10878(C_word c,C_word *av) C_noret; static void C_ccall trf_10878(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10878(t0,t1,t2);} C_noret_decl(trf_10908) static void C_ccall trf_10908(C_word c,C_word *av) C_noret; static void C_ccall trf_10908(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10908(t0,t1,t2);} C_noret_decl(trf_10986) static void C_ccall trf_10986(C_word c,C_word *av) C_noret; static void C_ccall trf_10986(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10986(t0,t1,t2);} C_noret_decl(trf_11022) static void C_ccall trf_11022(C_word c,C_word *av) C_noret; static void C_ccall trf_11022(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11022(t0,t1,t2);} C_noret_decl(trf_11052) static void C_ccall trf_11052(C_word c,C_word *av) C_noret; static void C_ccall trf_11052(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11052(t0,t1,t2,t3);} C_noret_decl(trf_11105) static void C_ccall trf_11105(C_word c,C_word *av) C_noret; static void C_ccall trf_11105(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11105(t0,t1,t2,t3);} C_noret_decl(trf_11140) static void C_ccall trf_11140(C_word c,C_word *av) C_noret; static void C_ccall trf_11140(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11140(t0,t1,t2);} C_noret_decl(trf_11310) static void C_ccall trf_11310(C_word c,C_word *av) C_noret; static void C_ccall trf_11310(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11310(t0,t1,t2);} C_noret_decl(trf_11344) static void C_ccall trf_11344(C_word c,C_word *av) C_noret; static void C_ccall trf_11344(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11344(t0,t1,t2);} C_noret_decl(trf_11378) static void C_ccall trf_11378(C_word c,C_word *av) C_noret; static void C_ccall trf_11378(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11378(t0,t1,t2);} C_noret_decl(trf_11412) static void C_ccall trf_11412(C_word c,C_word *av) C_noret; static void C_ccall trf_11412(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11412(t0,t1,t2);} C_noret_decl(trf_11460) static void C_ccall trf_11460(C_word c,C_word *av) C_noret; static void C_ccall trf_11460(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11460(t0,t1);} C_noret_decl(trf_11464) static void C_ccall trf_11464(C_word c,C_word *av) C_noret; static void C_ccall trf_11464(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11464(t0,t1);} C_noret_decl(trf_11472) static void C_ccall trf_11472(C_word c,C_word *av) C_noret; static void C_ccall trf_11472(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11472(t0,t1);} C_noret_decl(trf_11503) static void C_ccall trf_11503(C_word c,C_word *av) C_noret; static void C_ccall trf_11503(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11503(t0,t1);} C_noret_decl(trf_11507) static void C_ccall trf_11507(C_word c,C_word *av) C_noret; static void C_ccall trf_11507(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11507(t0,t1,t2);} C_noret_decl(trf_11523) static void C_ccall trf_11523(C_word c,C_word *av) C_noret; static void C_ccall trf_11523(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11523(t0,t1,t2);} C_noret_decl(trf_11559) static void C_ccall trf_11559(C_word c,C_word *av) C_noret; static void C_ccall trf_11559(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11559(t0,t1,t2);} C_noret_decl(trf_11575) static void C_ccall trf_11575(C_word c,C_word *av) C_noret; static void C_ccall trf_11575(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11575(t0,t1,t2);} C_noret_decl(trf_11653) static void C_ccall trf_11653(C_word c,C_word *av) C_noret; static void C_ccall trf_11653(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11653(t0,t1,t2);} C_noret_decl(trf_11667) static void C_ccall trf_11667(C_word c,C_word *av) C_noret; static void C_ccall trf_11667(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11667(t0,t1);} C_noret_decl(trf_11671) static void C_ccall trf_11671(C_word c,C_word *av) C_noret; static void C_ccall trf_11671(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11671(t0,t1);} C_noret_decl(trf_11682) static void C_ccall trf_11682(C_word c,C_word *av) C_noret; static void C_ccall trf_11682(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11682(t0,t1,t2);} C_noret_decl(trf_11698) static void C_ccall trf_11698(C_word c,C_word *av) C_noret; static void C_ccall trf_11698(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11698(t0,t1,t2);} C_noret_decl(trf_11795) static void C_ccall trf_11795(C_word c,C_word *av) C_noret; static void C_ccall trf_11795(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11795(t0,t1);} C_noret_decl(trf_11844) static void C_ccall trf_11844(C_word c,C_word *av) C_noret; static void C_ccall trf_11844(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11844(t0,t1);} C_noret_decl(trf_11894) static void C_ccall trf_11894(C_word c,C_word *av) C_noret; static void C_ccall trf_11894(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11894(t0,t1,t2);} C_noret_decl(trf_11922) static void C_ccall trf_11922(C_word c,C_word *av) C_noret; static void C_ccall trf_11922(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11922(t0,t1,t2);} C_noret_decl(trf_11956) static void C_ccall trf_11956(C_word c,C_word *av) C_noret; static void C_ccall trf_11956(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11956(t0,t1,t2);} C_noret_decl(trf_12079) static void C_ccall trf_12079(C_word c,C_word *av) C_noret; static void C_ccall trf_12079(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12079(t0,t1,t2);} C_noret_decl(trf_12092) static void C_ccall trf_12092(C_word c,C_word *av) C_noret; static void C_ccall trf_12092(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12092(t0,t1,t2);} C_noret_decl(trf_12219) static void C_ccall trf_12219(C_word c,C_word *av) C_noret; static void C_ccall trf_12219(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12219(t0,t1);} C_noret_decl(trf_12337) static void C_ccall trf_12337(C_word c,C_word *av) C_noret; static void C_ccall trf_12337(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12337(t0,t1,t2);} C_noret_decl(trf_12434) static void C_ccall trf_12434(C_word c,C_word *av) C_noret; static void C_ccall trf_12434(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12434(t0,t1,t2);} C_noret_decl(trf_12454) static void C_ccall trf_12454(C_word c,C_word *av) C_noret; static void C_ccall trf_12454(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12454(t0,t1,t2);} C_noret_decl(trf_12488) static void C_ccall trf_12488(C_word c,C_word *av) C_noret; static void C_ccall trf_12488(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12488(t0,t1,t2);} C_noret_decl(trf_12543) static void C_ccall trf_12543(C_word c,C_word *av) C_noret; static void C_ccall trf_12543(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12543(t0,t1);} C_noret_decl(trf_12958) static void C_ccall trf_12958(C_word c,C_word *av) C_noret; static void C_ccall trf_12958(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12958(t0,t1,t2);} C_noret_decl(trf_13043) static void C_ccall trf_13043(C_word c,C_word *av) C_noret; static void C_ccall trf_13043(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13043(t0,t1,t2);} C_noret_decl(trf_13148) static void C_ccall trf_13148(C_word c,C_word *av) C_noret; static void C_ccall trf_13148(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13148(t0,t1,t2);} C_noret_decl(trf_13233) static void C_ccall trf_13233(C_word c,C_word *av) C_noret; static void C_ccall trf_13233(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13233(t0,t1,t2);} C_noret_decl(trf_13764) static void C_ccall trf_13764(C_word c,C_word *av) C_noret; static void C_ccall trf_13764(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_13764(t0,t1,t2,t3,t4);} C_noret_decl(trf_13781) static void C_ccall trf_13781(C_word c,C_word *av) C_noret; static void C_ccall trf_13781(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13781(t0,t1,t2);} C_noret_decl(trf_13813) static void C_ccall trf_13813(C_word c,C_word *av) C_noret; static void C_ccall trf_13813(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13813(t0,t1,t2);} C_noret_decl(trf_13868) static void C_ccall trf_13868(C_word c,C_word *av) C_noret; static void C_ccall trf_13868(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13868(t0,t1,t2);} C_noret_decl(trf_13915) static void C_ccall trf_13915(C_word c,C_word *av) C_noret; static void C_ccall trf_13915(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13915(t0,t1,t2);} C_noret_decl(trf_13938) static void C_ccall trf_13938(C_word c,C_word *av) C_noret; static void C_ccall trf_13938(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13938(t0,t1,t2);} C_noret_decl(trf_13961) static void C_ccall trf_13961(C_word c,C_word *av) C_noret; static void C_ccall trf_13961(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13961(t0,t1,t2);} C_noret_decl(trf_14058) static void C_ccall trf_14058(C_word c,C_word *av) C_noret; static void C_ccall trf_14058(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_14058(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_14083) static void C_ccall trf_14083(C_word c,C_word *av) C_noret; static void C_ccall trf_14083(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14083(t0,t1,t2);} C_noret_decl(trf_14098) static void C_ccall trf_14098(C_word c,C_word *av) C_noret; static void C_ccall trf_14098(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14098(t0,t1,t2);} C_noret_decl(trf_14134) static void C_ccall trf_14134(C_word c,C_word *av) C_noret; static void C_ccall trf_14134(C_word c,C_word *av){ C_word t0=av[0]; f_14134(t0);} C_noret_decl(trf_14279) static void C_ccall trf_14279(C_word c,C_word *av) C_noret; static void C_ccall trf_14279(C_word c,C_word *av){ C_word t0=av[0]; f_14279(t0);} C_noret_decl(trf_14306) static void C_ccall trf_14306(C_word c,C_word *av) C_noret; static void C_ccall trf_14306(C_word c,C_word *av){ C_word t0=av[0]; f_14306(t0);} C_noret_decl(trf_14348) static void C_ccall trf_14348(C_word c,C_word *av) C_noret; static void C_ccall trf_14348(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14348(t0,t1,t2,t3);} C_noret_decl(trf_14498) static void C_ccall trf_14498(C_word c,C_word *av) C_noret; static void C_ccall trf_14498(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14498(t0,t1,t2,t3);} C_noret_decl(trf_14529) static void C_ccall trf_14529(C_word c,C_word *av) C_noret; static void C_ccall trf_14529(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14529(t0,t1,t2);} C_noret_decl(trf_14559) static void C_ccall trf_14559(C_word c,C_word *av) C_noret; static void C_ccall trf_14559(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14559(t0,t1,t2);} C_noret_decl(trf_14603) static void C_ccall trf_14603(C_word c,C_word *av) C_noret; static void C_ccall trf_14603(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14603(t0,t1,t2);} C_noret_decl(trf_14614) static void C_ccall trf_14614(C_word c,C_word *av) C_noret; static void C_ccall trf_14614(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14614(t0,t1);} C_noret_decl(trf_14645) static void C_ccall trf_14645(C_word c,C_word *av) C_noret; static void C_ccall trf_14645(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14645(t0,t1,t2);} C_noret_decl(trf_14654) static void C_ccall trf_14654(C_word c,C_word *av) C_noret; static void C_ccall trf_14654(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14654(t0,t1,t2);} C_noret_decl(trf_14670) static void C_ccall trf_14670(C_word c,C_word *av) C_noret; static void C_ccall trf_14670(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14670(t0,t1,t2);} C_noret_decl(trf_14704) static void C_ccall trf_14704(C_word c,C_word *av) C_noret; static void C_ccall trf_14704(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14704(t0,t1,t2,t3);} C_noret_decl(trf_14713) static void C_ccall trf_14713(C_word c,C_word *av) C_noret; static void C_ccall trf_14713(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14713(t0,t1,t2);} C_noret_decl(trf_14725) static void C_ccall trf_14725(C_word c,C_word *av) C_noret; static void C_ccall trf_14725(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14725(t0,t1,t2);} C_noret_decl(trf_14759) static void C_ccall trf_14759(C_word c,C_word *av) C_noret; static void C_ccall trf_14759(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14759(t0,t1,t2);} C_noret_decl(trf_14796) static void C_ccall trf_14796(C_word c,C_word *av) C_noret; static void C_ccall trf_14796(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14796(t0,t1,t2,t3);} C_noret_decl(trf_14831) static void C_ccall trf_14831(C_word c,C_word *av) C_noret; static void C_ccall trf_14831(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14831(t0,t1,t2);} C_noret_decl(trf_14884) static void C_ccall trf_14884(C_word c,C_word *av) C_noret; static void C_ccall trf_14884(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14884(t0,t1);} C_noret_decl(trf_14971) static void C_ccall trf_14971(C_word c,C_word *av) C_noret; static void C_ccall trf_14971(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_14971(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_15079) static void C_ccall trf_15079(C_word c,C_word *av) C_noret; static void C_ccall trf_15079(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15079(t0,t1);} C_noret_decl(trf_15150) static void C_ccall trf_15150(C_word c,C_word *av) C_noret; static void C_ccall trf_15150(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15150(t0,t1);} C_noret_decl(trf_15173) static void C_ccall trf_15173(C_word c,C_word *av) C_noret; static void C_ccall trf_15173(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15173(t0,t1,t2);} C_noret_decl(trf_15195) static void C_ccall trf_15195(C_word c,C_word *av) C_noret; static void C_ccall trf_15195(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15195(t0,t1);} C_noret_decl(trf_15241) static void C_ccall trf_15241(C_word c,C_word *av) C_noret; static void C_ccall trf_15241(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15241(t0,t1,t2);} C_noret_decl(trf_15254) static void C_ccall trf_15254(C_word c,C_word *av) C_noret; static void C_ccall trf_15254(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15254(t0,t1);} C_noret_decl(trf_15393) static void C_ccall trf_15393(C_word c,C_word *av) C_noret; static void C_ccall trf_15393(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15393(t0,t1,t2);} C_noret_decl(trf_15454) static void C_ccall trf_15454(C_word c,C_word *av) C_noret; static void C_ccall trf_15454(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15454(t0,t1,t2);} C_noret_decl(trf_15494) static void C_ccall trf_15494(C_word c,C_word *av) C_noret; static void C_ccall trf_15494(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_15494(t0,t1,t2,t3,t4);} C_noret_decl(trf_15589) static void C_ccall trf_15589(C_word c,C_word *av) C_noret; static void C_ccall trf_15589(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15589(t0,t1,t2);} C_noret_decl(trf_15632) static void C_ccall trf_15632(C_word c,C_word *av) C_noret; static void C_ccall trf_15632(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15632(t0,t1);} C_noret_decl(trf_15641) static void C_ccall trf_15641(C_word c,C_word *av) C_noret; static void C_ccall trf_15641(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15641(t0,t1);} C_noret_decl(trf_15650) static void C_ccall trf_15650(C_word c,C_word *av) C_noret; static void C_ccall trf_15650(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15650(t0,t1);} C_noret_decl(trf_15830) static void C_ccall trf_15830(C_word c,C_word *av) C_noret; static void C_ccall trf_15830(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15830(t0,t1);} C_noret_decl(trf_15842) static void C_ccall trf_15842(C_word c,C_word *av) C_noret; static void C_ccall trf_15842(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15842(t0,t1);} C_noret_decl(trf_15854) static void C_ccall trf_15854(C_word c,C_word *av) C_noret; static void C_ccall trf_15854(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15854(t0,t1);} C_noret_decl(trf_15993) static void C_ccall trf_15993(C_word c,C_word *av) C_noret; static void C_ccall trf_15993(C_word c,C_word *av){ C_word t0=av[0]; f_15993(t0);} C_noret_decl(trf_16011) static void C_ccall trf_16011(C_word c,C_word *av) C_noret; static void C_ccall trf_16011(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16011(t0,t1,t2);} C_noret_decl(trf_16031) static void C_ccall trf_16031(C_word c,C_word *av) C_noret; static void C_ccall trf_16031(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16031(t0,t1,t2);} C_noret_decl(trf_16179) static void C_ccall trf_16179(C_word c,C_word *av) C_noret; static void C_ccall trf_16179(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16179(t0,t1);} C_noret_decl(trf_16182) static void C_ccall trf_16182(C_word c,C_word *av) C_noret; static void C_ccall trf_16182(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16182(t0,t1,t2,t3);} C_noret_decl(trf_16184) static void C_ccall trf_16184(C_word c,C_word *av) C_noret; static void C_ccall trf_16184(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16184(t0,t1,t2);} C_noret_decl(trf_16194) static void C_ccall trf_16194(C_word c,C_word *av) C_noret; static void C_ccall trf_16194(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16194(t0,t1);} C_noret_decl(trf_16204) static void C_ccall trf_16204(C_word c,C_word *av) C_noret; static void C_ccall trf_16204(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16204(t0,t1,t2);} C_noret_decl(trf_16237) static void C_ccall trf_16237(C_word c,C_word *av) C_noret; static void C_ccall trf_16237(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16237(t0,t1,t2);} C_noret_decl(trf_16251) static void C_ccall trf_16251(C_word c,C_word *av) C_noret; static void C_ccall trf_16251(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16251(t0,t1);} C_noret_decl(trf_16274) static void C_ccall trf_16274(C_word c,C_word *av) C_noret; static void C_ccall trf_16274(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16274(t0,t1,t2);} C_noret_decl(trf_16305) static void C_ccall trf_16305(C_word c,C_word *av) C_noret; static void C_ccall trf_16305(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16305(t0,t1);} C_noret_decl(trf_16323) static void C_ccall trf_16323(C_word c,C_word *av) C_noret; static void C_ccall trf_16323(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16323(t0,t1);} C_noret_decl(trf_16442) static void C_ccall trf_16442(C_word c,C_word *av) C_noret; static void C_ccall trf_16442(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16442(t0,t1,t2);} C_noret_decl(trf_16497) static void C_ccall trf_16497(C_word c,C_word *av) C_noret; static void C_ccall trf_16497(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16497(t0,t1,t2);} C_noret_decl(trf_16549) static void C_ccall trf_16549(C_word c,C_word *av) C_noret; static void C_ccall trf_16549(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16549(t0,t1);} C_noret_decl(trf_16569) static void C_ccall trf_16569(C_word c,C_word *av) C_noret; static void C_ccall trf_16569(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16569(t0,t1,t2);} C_noret_decl(trf_16618) static void C_ccall trf_16618(C_word c,C_word *av) C_noret; static void C_ccall trf_16618(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16618(t0,t1,t2,t3);} C_noret_decl(trf_16732) static void C_ccall trf_16732(C_word c,C_word *av) C_noret; static void C_ccall trf_16732(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16732(t0,t1,t2);} C_noret_decl(trf_16743) static void C_ccall trf_16743(C_word c,C_word *av) C_noret; static void C_ccall trf_16743(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16743(t0,t1,t2);} C_noret_decl(trf_16844) static void C_ccall trf_16844(C_word c,C_word *av) C_noret; static void C_ccall trf_16844(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16844(t0,t1,t2);} C_noret_decl(trf_16888) static void C_ccall trf_16888(C_word c,C_word *av) C_noret; static void C_ccall trf_16888(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16888(t0,t1,t2);} C_noret_decl(trf_16935) static void C_ccall trf_16935(C_word c,C_word *av) C_noret; static void C_ccall trf_16935(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16935(t0,t1,t2);} C_noret_decl(trf_16980) static void C_ccall trf_16980(C_word c,C_word *av) C_noret; static void C_ccall trf_16980(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16980(t0,t1,t2);} C_noret_decl(trf_17025) static void C_ccall trf_17025(C_word c,C_word *av) C_noret; static void C_ccall trf_17025(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17025(t0,t1);} C_noret_decl(trf_17118) static void C_ccall trf_17118(C_word c,C_word *av) C_noret; static void C_ccall trf_17118(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17118(t0,t1,t2);} C_noret_decl(trf_17200) static void C_ccall trf_17200(C_word c,C_word *av) C_noret; static void C_ccall trf_17200(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17200(t0,t1);} C_noret_decl(trf_17234) static void C_ccall trf_17234(C_word c,C_word *av) C_noret; static void C_ccall trf_17234(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17234(t0,t1);} C_noret_decl(trf_17318) static void C_ccall trf_17318(C_word c,C_word *av) C_noret; static void C_ccall trf_17318(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17318(t0,t1,t2);} C_noret_decl(trf_17385) static void C_ccall trf_17385(C_word c,C_word *av) C_noret; static void C_ccall trf_17385(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17385(t0,t1,t2);} C_noret_decl(trf_17412) static void C_ccall trf_17412(C_word c,C_word *av) C_noret; static void C_ccall trf_17412(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17412(t0,t1);} C_noret_decl(trf_17518) static void C_ccall trf_17518(C_word c,C_word *av) C_noret; static void C_ccall trf_17518(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17518(t0,t1,t2);} C_noret_decl(trf_17567) static void C_ccall trf_17567(C_word c,C_word *av) C_noret; static void C_ccall trf_17567(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17567(t0,t1);} C_noret_decl(trf_17607) static void C_ccall trf_17607(C_word c,C_word *av) C_noret; static void C_ccall trf_17607(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17607(t0,t1);} C_noret_decl(trf_17619) static void C_ccall trf_17619(C_word c,C_word *av) C_noret; static void C_ccall trf_17619(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17619(t0,t1);} C_noret_decl(trf_17670) static void C_ccall trf_17670(C_word c,C_word *av) C_noret; static void C_ccall trf_17670(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17670(t0,t1);} C_noret_decl(trf_17688) static void C_ccall trf_17688(C_word c,C_word *av) C_noret; static void C_ccall trf_17688(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17688(t0,t1);} C_noret_decl(trf_17741) static void C_ccall trf_17741(C_word c,C_word *av) C_noret; static void C_ccall trf_17741(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17741(t0,t1,t2);} C_noret_decl(trf_17762) static void C_ccall trf_17762(C_word c,C_word *av) C_noret; static void C_ccall trf_17762(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17762(t0,t1,t2);} C_noret_decl(trf_17787) static void C_ccall trf_17787(C_word c,C_word *av) C_noret; static void C_ccall trf_17787(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17787(t0,t1,t2);} C_noret_decl(trf_17883) static void C_ccall trf_17883(C_word c,C_word *av) C_noret; static void C_ccall trf_17883(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17883(t0,t1,t2);} C_noret_decl(trf_17922) static void C_ccall trf_17922(C_word c,C_word *av) C_noret; static void C_ccall trf_17922(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17922(t0,t1,t2);} C_noret_decl(trf_17985) static void C_ccall trf_17985(C_word c,C_word *av) C_noret; static void C_ccall trf_17985(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17985(t0,t1,t2);} C_noret_decl(trf_18019) static void C_ccall trf_18019(C_word c,C_word *av) C_noret; static void C_ccall trf_18019(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18019(t0,t1,t2);} C_noret_decl(trf_18041) static void C_ccall trf_18041(C_word c,C_word *av) C_noret; static void C_ccall trf_18041(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18041(t0,t1,t2);} C_noret_decl(trf_18075) static void C_ccall trf_18075(C_word c,C_word *av) C_noret; static void C_ccall trf_18075(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18075(t0,t1,t2);} C_noret_decl(trf_18114) static void C_ccall trf_18114(C_word c,C_word *av) C_noret; static void C_ccall trf_18114(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18114(t0,t1,t2);} C_noret_decl(trf_18142) static void C_ccall trf_18142(C_word c,C_word *av) C_noret; static void C_ccall trf_18142(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18142(t0,t1,t2,t3);} C_noret_decl(trf_18211) static void C_ccall trf_18211(C_word c,C_word *av) C_noret; static void C_ccall trf_18211(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18211(t0,t1,t2,t3);} C_noret_decl(trf_18340) static void C_ccall trf_18340(C_word c,C_word *av) C_noret; static void C_ccall trf_18340(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18340(t0,t1,t2);} C_noret_decl(trf_18371) static void C_ccall trf_18371(C_word c,C_word *av) C_noret; static void C_ccall trf_18371(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18371(t0,t1);} C_noret_decl(trf_18431) static void C_ccall trf_18431(C_word c,C_word *av) C_noret; static void C_ccall trf_18431(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18431(t0,t1);} C_noret_decl(trf_18596) static void C_ccall trf_18596(C_word c,C_word *av) C_noret; static void C_ccall trf_18596(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18596(t0,t1,t2);} C_noret_decl(trf_18621) static void C_ccall trf_18621(C_word c,C_word *av) C_noret; static void C_ccall trf_18621(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18621(t0,t1);} C_noret_decl(trf_18660) static void C_ccall trf_18660(C_word c,C_word *av) C_noret; static void C_ccall trf_18660(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18660(t0,t1,t2);} C_noret_decl(trf_18683) static void C_ccall trf_18683(C_word c,C_word *av) C_noret; static void C_ccall trf_18683(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18683(t0,t1,t2);} C_noret_decl(trf_18711) static void C_ccall trf_18711(C_word c,C_word *av) C_noret; static void C_ccall trf_18711(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18711(t0,t1,t2);} C_noret_decl(trf_18727) static void C_ccall trf_18727(C_word c,C_word *av) C_noret; static void C_ccall trf_18727(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_18727(t0,t1,t2,t3,t4);} C_noret_decl(trf_18784) static void C_ccall trf_18784(C_word c,C_word *av) C_noret; static void C_ccall trf_18784(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18784(t0,t1,t2);} C_noret_decl(trf_18828) static void C_ccall trf_18828(C_word c,C_word *av) C_noret; static void C_ccall trf_18828(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18828(t0,t1);} C_noret_decl(trf_18861) static void C_ccall trf_18861(C_word c,C_word *av) C_noret; static void C_ccall trf_18861(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18861(t0,t1);} C_noret_decl(trf_18870) static void C_ccall trf_18870(C_word c,C_word *av) C_noret; static void C_ccall trf_18870(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_18870(t0,t1,t2,t3,t4);} C_noret_decl(trf_18923) static void C_ccall trf_18923(C_word c,C_word *av) C_noret; static void C_ccall trf_18923(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18923(t0,t1);} C_noret_decl(trf_18951) static void C_ccall trf_18951(C_word c,C_word *av) C_noret; static void C_ccall trf_18951(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18951(t0,t1);} C_noret_decl(trf_19090) static void C_ccall trf_19090(C_word c,C_word *av) C_noret; static void C_ccall trf_19090(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19090(t0,t1);} C_noret_decl(trf_19202) static void C_ccall trf_19202(C_word c,C_word *av) C_noret; static void C_ccall trf_19202(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19202(t0,t1);} C_noret_decl(trf_19269) static void C_ccall trf_19269(C_word c,C_word *av) C_noret; static void C_ccall trf_19269(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19269(t0,t1);} C_noret_decl(trf_19331) static void C_ccall trf_19331(C_word c,C_word *av) C_noret; static void C_ccall trf_19331(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19331(t0,t1,t2);} C_noret_decl(trf_19338) static void C_ccall trf_19338(C_word c,C_word *av) C_noret; static void C_ccall trf_19338(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19338(t0,t1);} C_noret_decl(trf_19440) static void C_ccall trf_19440(C_word c,C_word *av) C_noret; static void C_ccall trf_19440(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19440(t0,t1,t2);} C_noret_decl(trf_19513) static void C_ccall trf_19513(C_word c,C_word *av) C_noret; static void C_ccall trf_19513(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19513(t0,t1,t2);} C_noret_decl(trf_19536) static void C_ccall trf_19536(C_word c,C_word *av) C_noret; static void C_ccall trf_19536(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19536(t0,t1,t2);} C_noret_decl(trf_19582) static void C_ccall trf_19582(C_word c,C_word *av) C_noret; static void C_ccall trf_19582(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19582(t0,t1,t2);} C_noret_decl(trf_19611) static void C_ccall trf_19611(C_word c,C_word *av) C_noret; static void C_ccall trf_19611(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19611(t0,t1,t2);} C_noret_decl(trf_19645) static void C_ccall trf_19645(C_word c,C_word *av) C_noret; static void C_ccall trf_19645(C_word c,C_word *av){ C_word t0=av[0]; f_19645(t0);} C_noret_decl(trf_19750) static void C_ccall trf_19750(C_word c,C_word *av) C_noret; static void C_ccall trf_19750(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19750(t0,t1);} C_noret_decl(trf_19876) static void C_ccall trf_19876(C_word c,C_word *av) C_noret; static void C_ccall trf_19876(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19876(t0,t1,t2);} C_noret_decl(trf_20004) static void C_ccall trf_20004(C_word c,C_word *av) C_noret; static void C_ccall trf_20004(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20004(t0,t1,t2,t3);} C_noret_decl(trf_20158) static void C_ccall trf_20158(C_word c,C_word *av) C_noret; static void C_ccall trf_20158(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20158(t0,t1,t2);} C_noret_decl(trf_20294) static void C_ccall trf_20294(C_word c,C_word *av) C_noret; static void C_ccall trf_20294(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20294(t0,t1,t2);} C_noret_decl(trf_20328) static void C_ccall trf_20328(C_word c,C_word *av) C_noret; static void C_ccall trf_20328(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20328(t0,t1,t2);} C_noret_decl(trf_20476) static void C_ccall trf_20476(C_word c,C_word *av) C_noret; static void C_ccall trf_20476(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20476(t0,t1,t2);} C_noret_decl(trf_20571) static void C_ccall trf_20571(C_word c,C_word *av) C_noret; static void C_ccall trf_20571(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20571(t0,t1,t2);} C_noret_decl(trf_20688) static void C_ccall trf_20688(C_word c,C_word *av) C_noret; static void C_ccall trf_20688(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20688(t0,t1,t2);} C_noret_decl(trf_20722) static void C_ccall trf_20722(C_word c,C_word *av) C_noret; static void C_ccall trf_20722(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20722(t0,t1,t2);} C_noret_decl(trf_20793) static void C_ccall trf_20793(C_word c,C_word *av) C_noret; static void C_ccall trf_20793(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20793(t0,t1,t2);} C_noret_decl(trf_20848) static void C_ccall trf_20848(C_word c,C_word *av) C_noret; static void C_ccall trf_20848(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20848(t0,t1,t2);} C_noret_decl(trf_21213) static void C_ccall trf_21213(C_word c,C_word *av) C_noret; static void C_ccall trf_21213(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21213(t0,t1,t2);} C_noret_decl(trf_21295) static void C_ccall trf_21295(C_word c,C_word *av) C_noret; static void C_ccall trf_21295(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21295(t0,t1);} C_noret_decl(trf_21333) static void C_ccall trf_21333(C_word c,C_word *av) C_noret; static void C_ccall trf_21333(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21333(t0,t1,t2);} C_noret_decl(trf_21394) static void C_ccall trf_21394(C_word c,C_word *av) C_noret; static void C_ccall trf_21394(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21394(t0,t1,t2);} C_noret_decl(trf_6798) static void C_ccall trf_6798(C_word c,C_word *av) C_noret; static void C_ccall trf_6798(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_6798(t0,t1,t2,t3,t4);} C_noret_decl(trf_6958) static void C_ccall trf_6958(C_word c,C_word *av) C_noret; static void C_ccall trf_6958(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_6958(t0,t1,t2,t3,t4);} C_noret_decl(trf_6991) static void C_ccall trf_6991(C_word c,C_word *av) C_noret; static void C_ccall trf_6991(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6991(t0,t1,t2,t3);} C_noret_decl(trf_7006) static void C_ccall trf_7006(C_word c,C_word *av) C_noret; static void C_ccall trf_7006(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7006(t0,t1,t2);} C_noret_decl(trf_7014) static void C_ccall trf_7014(C_word c,C_word *av) C_noret; static void C_ccall trf_7014(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7014(t0,t1,t2,t3);} C_noret_decl(trf_7046) static void C_ccall trf_7046(C_word c,C_word *av) C_noret; static void C_ccall trf_7046(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7046(t0,t1,t2);} C_noret_decl(trf_7078) static void C_ccall trf_7078(C_word c,C_word *av) C_noret; static void C_ccall trf_7078(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7078(t0,t1,t2);} C_noret_decl(trf_7127) static void C_ccall trf_7127(C_word c,C_word *av) C_noret; static void C_ccall trf_7127(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7127(t0,t1,t2);} C_noret_decl(trf_7161) static void C_ccall trf_7161(C_word c,C_word *av) C_noret; static void C_ccall trf_7161(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7161(t0,t1,t2);} C_noret_decl(trf_7167) static void C_ccall trf_7167(C_word c,C_word *av) C_noret; static void C_ccall trf_7167(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7167(t0,t1,t2);} C_noret_decl(trf_7195) static void C_ccall trf_7195(C_word c,C_word *av) C_noret; static void C_ccall trf_7195(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7195(t0,t1,t2);} C_noret_decl(trf_7201) static void C_ccall trf_7201(C_word c,C_word *av) C_noret; static void C_ccall trf_7201(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7201(t0,t1,t2);} C_noret_decl(trf_7253) static void C_ccall trf_7253(C_word c,C_word *av) C_noret; static void C_ccall trf_7253(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7253(t0,t1);} C_noret_decl(trf_7259) static void C_ccall trf_7259(C_word c,C_word *av) C_noret; static void C_ccall trf_7259(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7259(t0,t1,t2);} C_noret_decl(trf_7281) static void C_ccall trf_7281(C_word c,C_word *av) C_noret; static void C_ccall trf_7281(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7281(t0,t1,t2,t3);} C_noret_decl(trf_7287) static void C_ccall trf_7287(C_word c,C_word *av) C_noret; static void C_ccall trf_7287(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7287(t0,t1,t2);} C_noret_decl(trf_7362) static void C_ccall trf_7362(C_word c,C_word *av) C_noret; static void C_ccall trf_7362(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7362(t0,t1,t2);} C_noret_decl(trf_7410) static void C_ccall trf_7410(C_word c,C_word *av) C_noret; static void C_ccall trf_7410(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7410(t0,t1,t2);} C_noret_decl(trf_7418) static void C_ccall trf_7418(C_word c,C_word *av) C_noret; static void C_ccall trf_7418(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7418(t0,t1,t2,t3);} C_noret_decl(trf_7445) static void C_ccall trf_7445(C_word c,C_word *av) C_noret; static void C_ccall trf_7445(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7445(t0,t1,t2);} C_noret_decl(trf_7454) static void C_ccall trf_7454(C_word c,C_word *av) C_noret; static void C_ccall trf_7454(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7454(t0,t1,t2);} C_noret_decl(trf_7462) static void C_ccall trf_7462(C_word c,C_word *av) C_noret; static void C_ccall trf_7462(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7462(t0,t1,t2,t3);} C_noret_decl(trf_7527) static void C_ccall trf_7527(C_word c,C_word *av) C_noret; static void C_ccall trf_7527(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7527(t0,t1,t2);} C_noret_decl(trf_7592) static void C_ccall trf_7592(C_word c,C_word *av) C_noret; static void C_ccall trf_7592(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7592(t0,t1,t2,t3);} C_noret_decl(trf_7916) static void C_ccall trf_7916(C_word c,C_word *av) C_noret; static void C_ccall trf_7916(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7916(t0,t1,t2);} C_noret_decl(trf_7922) static void C_ccall trf_7922(C_word c,C_word *av) C_noret; static void C_ccall trf_7922(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7922(t0,t1,t2);} C_noret_decl(trf_8240) static void C_ccall trf_8240(C_word c,C_word *av) C_noret; static void C_ccall trf_8240(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8240(t0,t1,t2);} C_noret_decl(trf_8267) static void C_ccall trf_8267(C_word c,C_word *av) C_noret; static void C_ccall trf_8267(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8267(t0,t1);} C_noret_decl(trf_8286) static void C_ccall trf_8286(C_word c,C_word *av) C_noret; static void C_ccall trf_8286(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8286(t0,t1);} C_noret_decl(trf_8692) static void C_ccall trf_8692(C_word c,C_word *av) C_noret; static void C_ccall trf_8692(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8692(t0,t1,t2,t3);} C_noret_decl(trf_8843) static void C_ccall trf_8843(C_word c,C_word *av) C_noret; static void C_ccall trf_8843(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8843(t0,t1,t2);} C_noret_decl(trf_8905) static void C_ccall trf_8905(C_word c,C_word *av) C_noret; static void C_ccall trf_8905(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8905(t0,t1);} C_noret_decl(trf_8910) static void C_ccall trf_8910(C_word c,C_word *av) C_noret; static void C_ccall trf_8910(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8910(t0,t1,t2);} C_noret_decl(trf_8957) static void C_ccall trf_8957(C_word c,C_word *av) C_noret; static void C_ccall trf_8957(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8957(t0,t1,t2);} C_noret_decl(trf_9023) static void C_ccall trf_9023(C_word c,C_word *av) C_noret; static void C_ccall trf_9023(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9023(t0,t1);} C_noret_decl(trf_9114) static void C_ccall trf_9114(C_word c,C_word *av) C_noret; static void C_ccall trf_9114(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_9114(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_9129) static void C_ccall trf_9129(C_word c,C_word *av) C_noret; static void C_ccall trf_9129(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9129(t0,t1,t2);} C_noret_decl(trf_9141) static void C_ccall trf_9141(C_word c,C_word *av) C_noret; static void C_ccall trf_9141(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9141(t0,t1,t2);} C_noret_decl(trf_9223) static void C_ccall trf_9223(C_word c,C_word *av) C_noret; static void C_ccall trf_9223(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9223(t0,t1);} C_noret_decl(trf_9226) static void C_ccall trf_9226(C_word c,C_word *av) C_noret; static void C_ccall trf_9226(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9226(t0,t1);} C_noret_decl(trf_9248) static void C_ccall trf_9248(C_word c,C_word *av) C_noret; static void C_ccall trf_9248(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9248(t0,t1);} C_noret_decl(trf_9252) static void C_ccall trf_9252(C_word c,C_word *av) C_noret; static void C_ccall trf_9252(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9252(t0,t1);} C_noret_decl(trf_9256) static void C_ccall trf_9256(C_word c,C_word *av) C_noret; static void C_ccall trf_9256(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9256(t0,t1);} C_noret_decl(trf_9260) static void C_ccall trf_9260(C_word c,C_word *av) C_noret; static void C_ccall trf_9260(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9260(t0,t1);} C_noret_decl(trf_9319) static void C_ccall trf_9319(C_word c,C_word *av) C_noret; static void C_ccall trf_9319(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9319(t0,t1,t2);} C_noret_decl(trf_9442) static void C_ccall trf_9442(C_word c,C_word *av) C_noret; static void C_ccall trf_9442(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9442(t0,t1,t2);} C_noret_decl(trf_9546) static void C_ccall trf_9546(C_word c,C_word *av) C_noret; static void C_ccall trf_9546(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9546(t0,t1,t2);} C_noret_decl(trf_9558) static void C_ccall trf_9558(C_word c,C_word *av) C_noret; static void C_ccall trf_9558(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9558(t0,t1,t2);} C_noret_decl(trf_9605) static void C_ccall trf_9605(C_word c,C_word *av) C_noret; static void C_ccall trf_9605(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9605(t0,t1,t2);} C_noret_decl(trf_9692) static void C_ccall trf_9692(C_word c,C_word *av) C_noret; static void C_ccall trf_9692(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9692(t0,t1,t2);} C_noret_decl(trf_9785) static void C_ccall trf_9785(C_word c,C_word *av) C_noret; static void C_ccall trf_9785(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9785(t0,t1,t2);} C_noret_decl(trf_9797) static void C_ccall trf_9797(C_word c,C_word *av) C_noret; static void C_ccall trf_9797(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9797(t0,t1,t2);} C_noret_decl(trf_9844) static void C_ccall trf_9844(C_word c,C_word *av) C_noret; static void C_ccall trf_9844(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9844(t0,t1,t2);} C_noret_decl(trf_9933) static void C_ccall trf_9933(C_word c,C_word *av) C_noret; static void C_ccall trf_9933(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9933(t0,t1,t2);} C_noret_decl(trf_9945) static void C_ccall trf_9945(C_word c,C_word *av) C_noret; static void C_ccall trf_9945(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9945(t0,t1,t2);} C_noret_decl(trf_9992) static void C_ccall trf_9992(C_word c,C_word *av) C_noret; static void C_ccall trf_9992(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9992(t0,t1,t2);} /* f23132 in k12248 in k12019 in k12016 in k12013 */ static void C_ccall f23132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23132,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23138 in k12256 in k12016 in k12013 */ static void C_ccall f23138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23138,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23144 in k12013 */ static void C_ccall f23144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23144,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23150 in k12444 in g2810 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f23150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23150,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23169 in k12568 in k12319 in k12316 in k12313 */ static void C_ccall f23169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23169,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23175 in k12576 in k12316 in k12313 */ static void C_ccall f23175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23175,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23181 in k12313 */ static void C_ccall f23181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23181,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23187 in k12609 */ static void C_ccall f23187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23187,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23193 in k12704 in k12701 */ static void C_ccall f23193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23193,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23199 in k12701 */ static void C_ccall f23199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23199,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23205 in k12828 in k12822 */ static void C_ccall f23205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23205,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23211 in k12822 */ static void C_ccall f23211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23211,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23219 in k12943 */ static void C_ccall f23219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23219,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23227 in k13133 */ static void C_ccall f23227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23227,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23233 in k13360 */ static void C_ccall f23233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23233,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23239 in k13450 */ static void C_ccall f23239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23239,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23245 in k13532 */ static void C_ccall f23245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23245,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23251 in k13629 in k13589 */ static void C_ccall f23251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23251,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23257 in k13683 in k13643 */ static void C_ccall f23257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23257,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23263 in k13697 */ static void C_ccall f23263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23263,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23269 in g3208 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f23269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23269,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23291 in g3605 in main#filelist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f23291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23291,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23299 in k14805 in main#custom-cmd in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f23299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23299,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23305 in main#custom-cmd in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f23305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23305,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23315 in k15099 in k15081 in loop in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f23315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f23315,2,av);} /* egg-download.scm:102: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15079(t2,((C_word*)t0)[3]);} /* f23319 in k15103 in k15099 in k15081 in loop in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f23319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f23319,2,av);} /* egg-download.scm:102: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15079(t2,((C_word*)t0)[3]);} /* f23361 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f23361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23361,2,av);} /* egg-information.scm:38: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23378 in k17927 in k17924 in g4785 in k17916 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f23378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23378,2,av);} /* egg-information.scm:38: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23387 in k17571 in k17568 in k17565 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f23387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23387,2,av);} /* egg-information.scm:38: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23404 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f23404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23404,2,av);} /* egg-information.scm:38: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23413 in k19134 in k19104 in main#ext-version in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f23413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23413,2,av);} /* egg-information.scm:38: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23424 in k18274 in loop in k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f23424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23424,2,av);} /* egg-information.scm:38: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23431 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f23431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f23431,2,av);} /* egg-information.scm:38: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f23480 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f23480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f23480,2,av);} /* chicken-install.scm:1069: chicken.base#exit */ t2=C_fast_retrieve(lf[708]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f23493 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f23493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f23493,2,av);} /* chicken-install.scm:1069: chicken.base#exit */ t2=C_fast_retrieve(lf[708]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f23498 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f23498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f23498,2,av);} /* chicken-install.scm:1069: chicken.base#exit */ t2=C_fast_retrieve(lf[708]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f23505 in k21308 in k21302 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f23505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f23505,2,av);} /* chicken-install.scm:1069: chicken.base#exit */ t2=C_fast_retrieve(lf[708]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f23510 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f23510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f23510,2,av);} /* chicken-install.scm:1069: chicken.base#exit */ t2=C_fast_retrieve(lf[708]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10000 in for-each-loop1849 in a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_10002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10002,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9992(t3,((C_word*)t0)[4],t2);} /* a10014 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10015,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k10033 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(123,c,4)))){ C_save_and_reclaim((void *)f_10035,2,av);} a=C_alloc(123); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_i_nullp(((C_word*)((C_word*)t0)[2])[1]); t13=(C_truep(t12)?C_retrieve2(lf[75],C_text("main#default-program-linkage")):((C_word*)((C_word*)t0)[2])[1]); t14=t13; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_END_OF_LIST; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=((C_word*)((C_word*)t0)[3])[1]; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_FALSE; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=((C_word*)((C_word*)t0)[4])[1]; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_SCHEME_FALSE; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_SCHEME_FALSE; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_SCHEME_FALSE; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=C_SCHEME_FALSE; t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp); t32=C_SCHEME_FALSE; t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp); t34=C_SCHEME_FALSE; t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp); t36=C_SCHEME_FALSE; t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp); t38=C_SCHEME_FALSE; t39=(*a=C_VECTOR_TYPE|1,a[1]=t38,tmp=(C_word)a,a+=2,tmp); t40=C_SCHEME_FALSE; t41=(*a=C_VECTOR_TYPE|1,a[1]=t40,tmp=(C_word)a,a+=2,tmp); t42=C_SCHEME_FALSE; t43=(*a=C_VECTOR_TYPE|1,a[1]=t42,tmp=(C_word)a,a+=2,tmp); t44=(*a=C_CLOSURE_TYPE|31,a[1]=(C_word)f_10043,a[2]=t25,a[3]=((C_word*)t0)[5],a[4]=t27,a[5]=((C_word*)t0)[6],a[6]=t29,a[7]=((C_word*)t0)[7],a[8]=t31,a[9]=((C_word*)t0)[8],a[10]=t33,a[11]=((C_word*)t0)[9],a[12]=t35,a[13]=((C_word*)t0)[2],a[14]=t37,a[15]=((C_word*)t0)[10],a[16]=t39,a[17]=((C_word*)t0)[3],a[18]=t41,a[19]=((C_word*)t0)[11],a[20]=t43,a[21]=((C_word*)t0)[4],a[22]=t3,a[23]=t5,a[24]=t7,a[25]=t9,a[26]=t11,a[27]=t15,a[28]=t17,a[29]=t19,a[30]=t21,a[31]=t23,tmp=(C_word)a,a+=32,tmp); t45=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10066,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[2],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[7],a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],tmp=(C_word)a,a+=19,tmp); t46=(*a=C_CLOSURE_TYPE|31,a[1]=(C_word)f_10132,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=t5,a[5]=((C_word*)t0)[6],a[6]=t7,a[7]=((C_word*)t0)[7],a[8]=t9,a[9]=((C_word*)t0)[8],a[10]=t11,a[11]=((C_word*)t0)[9],a[12]=t15,a[13]=((C_word*)t0)[2],a[14]=t17,a[15]=((C_word*)t0)[10],a[16]=t19,a[17]=((C_word*)t0)[3],a[18]=t21,a[19]=((C_word*)t0)[11],a[20]=t23,a[21]=((C_word*)t0)[4],a[22]=t25,a[23]=t27,a[24]=t29,a[25]=t31,a[26]=t33,a[27]=t35,a[28]=t37,a[29]=t39,a[30]=t41,a[31]=t43,tmp=(C_word)a,a+=32,tmp); /* egg-compile.scm:319: ##sys#dynamic-wind */ t47=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t47; av2[1]=((C_word*)t0)[19]; av2[2]=t44; av2[3]=t45; av2[4]=t46; ((C_proc)(void*)(*((C_word*)t47+1)))(5,av2);}} /* a10042 in k10033 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10043,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)((C_word*)t0)[9])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[10])+1,((C_word*)((C_word*)t0)[11])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[12])+1,((C_word*)((C_word*)t0)[13])[1]); t8=C_mutate(((C_word *)((C_word*)t0)[14])+1,((C_word*)((C_word*)t0)[15])[1]); t9=C_mutate(((C_word *)((C_word*)t0)[16])+1,((C_word*)((C_word*)t0)[17])[1]); t10=C_mutate(((C_word *)((C_word*)t0)[18])+1,((C_word*)((C_word*)t0)[19])[1]); t11=C_mutate(((C_word *)((C_word*)t0)[20])+1,((C_word*)((C_word*)t0)[21])[1]); t12=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[22])[1]); t13=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[23])[1]); t14=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[24])[1]); t15=C_mutate(((C_word *)((C_word*)t0)[9])+1,((C_word*)((C_word*)t0)[25])[1]); t16=C_mutate(((C_word *)((C_word*)t0)[11])+1,((C_word*)((C_word*)t0)[26])[1]); t17=C_mutate(((C_word *)((C_word*)t0)[13])+1,((C_word*)((C_word*)t0)[27])[1]); t18=C_mutate(((C_word *)((C_word*)t0)[15])+1,((C_word*)((C_word*)t0)[28])[1]); t19=C_mutate(((C_word *)((C_word*)t0)[17])+1,((C_word*)((C_word*)t0)[29])[1]); t20=C_mutate(((C_word *)((C_word*)t0)[19])+1,((C_word*)((C_word*)t0)[30])[1]); t21=C_mutate(((C_word *)((C_word*)t0)[21])+1,((C_word*)((C_word*)t0)[31])[1]); t22=t1;{ C_word *av2=av; av2[0]=t22; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} /* a10065 in k10033 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10066,2,av);} a=C_alloc(24); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_cddr(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[118]); t5=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10076,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=t1,a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],tmp=(C_word)a,a+=18,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10109,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_10109(t9,t5,t3);} /* k10074 in a10065 in k10033 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_10076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_10076,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10079,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],tmp=(C_word)a,a+=18,tmp); t3=C_eqp(((C_word*)t0)[10],lf[54]); if(C_truep(t3)){ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_retrieve2(lf[29],C_text("main#default-bindir")); f_10079(2,av2);}} else{ /* egg-compile.scm:332: override-prefix */ t4=C_retrieve2(lf[82],C_text("main#override-prefix")); f_8692(t4,t2,lf[167],C_retrieve2(lf[40],C_text("main#host-bindir")));}} /* k10077 in k10074 in a10065 in k10033 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_10079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,5)))){ C_save_and_reclaim((void *)f_10079,2,av);} a=C_alloc(20); t2=((C_word*)((C_word*)t0)[2])[1]; t3=(C_truep(t2)?t2:((C_word*)((C_word*)t0)[3])[1]); t4=t3; t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10085,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=t4,a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10101,a[2]=((C_word*)t0)[16],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:335: chicken.string#conc */ t7=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t6; av2[2]=t1; av2[3]=lf[166]; av2[4]=t4; av2[5]=((C_word*)t0)[17]; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} /* k10083 in k10077 in k10074 in a10065 in k10033 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_10085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(72,c,1)))){ C_save_and_reclaim((void *)f_10085,2,av);} a=C_alloc(72); t2=C_a_i_list(&a,23,((C_word*)((C_word*)t0)[2])[1],lf[119],((C_word*)((C_word*)t0)[3])[1],lf[120],((C_word*)((C_word*)t0)[4])[1],lf[121],((C_word*)((C_word*)t0)[5])[1],lf[122],((C_word*)((C_word*)t0)[6])[1],lf[123],((C_word*)((C_word*)t0)[7])[1],lf[124],((C_word*)((C_word*)t0)[8])[1],lf[125],((C_word*)t0)[9],lf[133],((C_word*)t0)[10],lf[131],((C_word*)((C_word*)t0)[11])[1],lf[132],((C_word*)((C_word*)t0)[12])[1],lf[129],((C_word*)t0)[13]); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[14])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[14])+1,t3); t5=((C_word*)t0)[15];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10099 in k10077 in k10074 in a10065 in k10033 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_10101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10101,2,av);} a=C_alloc(6); t2=C_a_i_list1(&a,1,t1); /* egg-compile.scm:335: addfiles */ t3=((C_word*)((C_word*)t0)[2])[1]; f_9141(t3,((C_word*)t0)[3],C_a_i_list(&a,1,t2));} /* for-each-loop1993 in a10065 in k10033 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_10109(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10109,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10119,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:329: g1994 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10117 in for-each-loop1993 in a10065 in k10033 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_10119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10119,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10109(t3,((C_word*)t0)[4],t2);} /* a10131 in k10033 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10132,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)((C_word*)t0)[9])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[10])+1,((C_word*)((C_word*)t0)[11])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[12])+1,((C_word*)((C_word*)t0)[13])[1]); t8=C_mutate(((C_word *)((C_word*)t0)[14])+1,((C_word*)((C_word*)t0)[15])[1]); t9=C_mutate(((C_word *)((C_word*)t0)[16])+1,((C_word*)((C_word*)t0)[17])[1]); t10=C_mutate(((C_word *)((C_word*)t0)[18])+1,((C_word*)((C_word*)t0)[19])[1]); t11=C_mutate(((C_word *)((C_word*)t0)[20])+1,((C_word*)((C_word*)t0)[21])[1]); t12=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[22])[1]); t13=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[23])[1]); t14=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[24])[1]); t15=C_mutate(((C_word *)((C_word*)t0)[9])+1,((C_word*)((C_word*)t0)[25])[1]); t16=C_mutate(((C_word *)((C_word*)t0)[11])+1,((C_word*)((C_word*)t0)[26])[1]); t17=C_mutate(((C_word *)((C_word*)t0)[13])+1,((C_word*)((C_word*)t0)[27])[1]); t18=C_mutate(((C_word *)((C_word*)t0)[15])+1,((C_word*)((C_word*)t0)[28])[1]); t19=C_mutate(((C_word *)((C_word*)t0)[17])+1,((C_word*)((C_word*)t0)[29])[1]); t20=C_mutate(((C_word *)((C_word*)t0)[19])+1,((C_word*)((C_word*)t0)[30])[1]); t21=C_mutate(((C_word *)((C_word*)t0)[21])+1,((C_word*)((C_word*)t0)[31])[1]); t22=t1;{ C_word *av2=av; av2[0]=t22; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} /* compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_10179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_10179,3,av);} a=C_alloc(21); t3=C_i_car(t2); t4=C_eqp(t3,lf[168]); if(C_truep(t4)){ t5=t2; t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_u_i_cdr(t5)); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=C_eqp(t3,lf[169]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10201,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); if(C_truep(C_i_nullp(t8))){ t9=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_i_cadr(t2); t10=C_i_pairp(t9); if(C_truep(C_i_not(t10))){ /* egg-compile.scm:355: arg */ f_11052(t6,t2,C_fix(1),C_a_i_list(&a,1,((C_word*)((C_word*)t0)[5])[1]));} else{ t11=C_set_block_item(((C_word*)t0)[6],0,C_SCHEME_TRUE); t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10231,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:359: scheme#cdadr */ t13=*((C_word*)lf[170]+1);{ C_word *av2=av; av2[0]=t13; av2[1]=t12; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}}} else{ t6=C_eqp(t3,lf[171]); if(C_truep(t6)){ t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=C_fast_retrieve(lf[172]); t12=t2; t13=C_u_i_cdr(t12); t14=C_i_check_list_2(t13,lf[8]); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10257,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t1,a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10311,a[2]=t9,a[3]=t17,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t19=((C_word*)t17)[1]; f_10311(t19,t15,t13);} else{ t7=C_eqp(t3,lf[173]); if(C_truep(t7)){ t8=t2; t9=C_u_i_cdr(t8); t10=C_i_nullp(t9); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10356,a[2]=((C_word*)t0)[10],a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t10)){ t12=C_mutate(((C_word *)((C_word*)t0)[10])+1,t10); t13=t1;{ C_word *av2=av; av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ /* egg-compile.scm:366: arg */ f_11052(t11,t2,C_fix(1),C_a_i_list(&a,1,((C_word*)((C_word*)t0)[5])[1]));}} else{ t8=C_eqp(t3,lf[174]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10371,a[2]=((C_word*)t0)[11],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10375,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:368: arg */ f_11052(t10,t2,C_fix(1),C_a_i_list(&a,1,((C_word*)((C_word*)t0)[5])[1]));} else{ t9=C_eqp(t3,lf[175]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10385,a[2]=((C_word*)t0)[12],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t11=t2; t12=C_u_i_cdr(t11); /* egg-compile.scm:370: scheme#append */ t13=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t13; av2[1]=t10; av2[2]=((C_word*)((C_word*)t0)[12])[1]; av2[3]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} else{ t10=C_eqp(t3,lf[176]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10397,a[2]=((C_word*)t0)[13],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t12=t2; t13=C_u_i_cdr(t12); /* egg-compile.scm:372: scheme#append */ t14=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t14; av2[1]=t11; av2[2]=((C_word*)((C_word*)t0)[13])[1]; av2[3]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t11=C_eqp(t3,lf[177]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10409,a[2]=((C_word*)t0)[14],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10413,a[2]=t12,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:374: arg */ f_11052(t13,t2,C_fix(1),C_a_i_list(&a,1,((C_word*)((C_word*)t0)[5])[1]));} else{ t12=C_eqp(t3,lf[178]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10423,a[2]=((C_word*)t0)[15],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10427,a[2]=t13,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:376: arg */ f_11052(t14,t2,C_fix(1),C_a_i_list(&a,1,((C_word*)((C_word*)t0)[5])[1]));} else{ t13=C_eqp(t3,lf[179]); if(C_truep(t13)){ t14=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t15=t14; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=((C_word*)t16)[1]; t18=C_fast_retrieve(lf[180]); t19=t2; t20=C_u_i_cdr(t19); t21=C_i_check_list_2(t20,lf[8]); t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10444,a[2]=((C_word*)t0)[16],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t23=C_SCHEME_UNDEFINED; t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp); t25=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10446,a[2]=t16,a[3]=t24,a[4]=t18,a[5]=t17,tmp=(C_word)a,a+=6,tmp)); t26=((C_word*)t24)[1]; f_10446(t26,t22,t20);} else{ t14=C_eqp(t3,lf[181]); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10488,a[2]=((C_word*)t0)[8],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t16=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t17=t16; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=((C_word*)t18)[1]; t20=((C_word*)((C_word*)t0)[9])[1]; t21=t2; t22=C_u_i_cdr(t21); t23=C_i_check_list_2(t22,lf[8]); t24=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10499,a[2]=t15,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); t25=C_SCHEME_UNDEFINED; t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); t27=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10501,a[2]=t18,a[3]=t26,a[4]=t20,a[5]=t19,tmp=(C_word)a,a+=6,tmp)); t28=((C_word*)t26)[1]; f_10501(t28,t24,t22);} else{ t15=C_eqp(t3,lf[182]); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10543,a[2]=((C_word*)t0)[17],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t17=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t18=t17; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=((C_word*)t19)[1]; t21=((C_word*)((C_word*)t0)[9])[1]; t22=t2; t23=C_u_i_cdr(t22); t24=C_i_check_list_2(t23,lf[8]); t25=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10554,a[2]=t16,a[3]=((C_word*)t0)[17],tmp=(C_word)a,a+=4,tmp); t26=C_SCHEME_UNDEFINED; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10556,a[2]=t19,a[3]=t27,a[4]=t21,a[5]=t20,tmp=(C_word)a,a+=6,tmp)); t29=((C_word*)t27)[1]; f_10556(t29,t25,t23);} else{ /* egg-compile.scm:383: compile-common */ t16=((C_word*)((C_word*)t0)[18])[1]; f_10617(t16,t1,t2,((C_word*)((C_word*)t0)[19])[1]);}}}}}}}}}}}}} /* k10199 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10201,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10219 in k10229 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10221,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10229 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_10231,2,av);} a=C_alloc(7); t2=C_i_nullp(t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10221,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); t6=C_u_i_car(t5); /* egg-compile.scm:360: arg */ f_11052(t3,t6,C_fix(1),C_a_i_list(&a,1,((C_word*)((C_word*)t0)[6])[1]));}} /* k10255 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_10257,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10261,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:363: scheme#append */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k10259 in k10255 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_10261,2,av);} a=C_alloc(21); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10265,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)((C_word*)t0)[5])[1]; t9=C_i_check_list_2(((C_word*)t0)[6],lf[8]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10275,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10277,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_10277(t14,t10,((C_word*)t0)[6]);} /* k10263 in k10259 in k10255 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_10265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10265,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10273 in k10259 in k10255 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_10275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10275,2,av);} /* egg-compile.scm:364: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2079 in k10259 in k10255 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_10277(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10277,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10302,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:364: g2085 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10300 in map-loop2079 in k10259 in k10255 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_10302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10302,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10277(t6,((C_word*)t0)[5],t5);} /* map-loop2053 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_10311(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10311,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10336,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:362: g2059 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10334 in map-loop2053 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10336,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10311(t6,((C_word*)t0)[5],t5);} /* k10354 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10356,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10369 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10371,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10373 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10375,2,av);} /* egg-compile.scm:368: chicken.string#->string */ t2=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10383 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10385,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10395 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10397,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10407 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10409,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10411 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10413,2,av);} /* egg-compile.scm:374: chicken.string#->string */ t2=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10421 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10423,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10425 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10427,2,av);} /* egg-compile.scm:376: chicken.string#->string */ t2=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10442 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10444,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2109 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_10446(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10446,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10471,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:378: g2115 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10469 in map-loop2109 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10471,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10446(t6,((C_word*)t0)[5],t5);} /* k10486 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10488,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10497 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10499,2,av);} /* egg-compile.scm:380: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2135 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_10501(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10501,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10526,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:380: g2141 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10524 in map-loop2135 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10526,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10501(t6,((C_word*)t0)[5],t5);} /* k10541 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10543,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10552 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10554,2,av);} /* egg-compile.scm:382: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2161 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_10556(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10556,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10581,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:382: g2167 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10579 in map-loop2161 in compile-extension/program in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10581,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10556(t6,((C_word*)t0)[5],t5);} /* compile-common in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_fcall f_10617(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_10617,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_car(t2); t5=C_eqp(t4,lf[54]); if(C_truep(t5)){ t6=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t6)){ t7=t3; t8=t2; t9=C_u_i_cdr(t8); t10=C_i_check_list_2(t9,lf[118]); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10642,a[2]=t12,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t14=((C_word*)t12)[1]; f_10642(t14,t1,t9);} else{ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t6=C_eqp(t4,lf[103]); if(C_truep(t6)){ t7=C_eqp(((C_word*)t0)[2],lf[103]); if(C_truep(t7)){ t8=t3; t9=t2; t10=C_u_i_cdr(t9); t11=C_i_check_list_2(t10,lf[118]); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10684,a[2]=t13,a[3]=t8,tmp=(C_word)a,a+=4,tmp)); t15=((C_word*)t13)[1]; f_10684(t15,t1,t10);} else{ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t7=C_eqp(t4,lf[183]); if(C_truep(t7)){ t8=t2; t9=C_u_i_cdr(t8);{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[109]+1); av2[3]=t9; C_apply(4,av2);}} else{ t8=C_eqp(t4,lf[184]); if(C_truep(t8)){ /* egg-compile.scm:395: compile-cond-expand */ t9=((C_word*)((C_word*)t0)[3])[1]; f_10868(t9,t1,t2,t3);} else{ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}}}} /* for-each-loop2195 in compile-common in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_10642(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10642,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10652,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:388: g2196 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10650 in for-each-loop2195 in compile-common in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10652,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10642(t3,((C_word*)t0)[4],t2);} /* for-each-loop2212 in compile-common in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_10684(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10684,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10694,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:391: g2213 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10692 in for-each-loop2212 in compile-common in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10694,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10684(t3,((C_word*)t0)[4],t2);} /* compile-data/include in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_10735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_10735,3,av);} a=C_alloc(21); t3=C_i_car(t2); t4=C_eqp(t3,lf[185]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10749,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10753,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:399: arg */ f_11052(t6,t2,C_fix(1),C_a_i_list(&a,1,((C_word*)((C_word*)t0)[4])[1]));} else{ t5=C_eqp(t3,lf[186]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10763,a[2]=((C_word*)t0)[5],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=C_fast_retrieve(lf[172]); t12=t2; t13=C_u_i_cdr(t12); t14=C_i_check_list_2(t13,lf[8]); t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10774,a[2]=t6,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10776,a[2]=t9,a[3]=t17,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t19=((C_word*)t17)[1]; f_10776(t19,t15,t13);} else{ /* egg-compile.scm:402: compile-common */ t6=((C_word*)((C_word*)t0)[6])[1]; f_10617(t6,t1,t2,((C_word*)((C_word*)t0)[7])[1]);}}} /* k10747 in compile-data/include in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10749,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10751 in compile-data/include in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10753,2,av);} /* egg-compile.scm:399: chicken.string#->string */ t2=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10761 in compile-data/include in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10763,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10772 in compile-data/include in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10774,2,av);} /* egg-compile.scm:401: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2236 in compile-data/include in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_10776(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10776,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10801,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:401: g2242 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10799 in map-loop2236 in compile-data/include in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10801,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10776(t6,((C_word*)t0)[5],t5);} /* compile-options in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_10817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10817,3,av);} a=C_alloc(4); t3=C_i_car(t2); t4=C_eqp(t3,lf[175]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10831,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* egg-compile.scm:405: scheme#append */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t5; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t5=C_eqp(t3,lf[176]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10843,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); /* egg-compile.scm:406: scheme#append */ t9=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t6; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t6=C_eqp(t3,lf[168]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10855,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* egg-compile.scm:407: scheme#append */ t10=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ /* egg-compile.scm:408: chicken.base#error */ t7=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t1; av2[2]=lf[187]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}}} /* k10829 in compile-options in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10831,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10841 in compile-options in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10843,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10853 in compile-options in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_10855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10855,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* compile-cond-expand in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_fcall f_10868(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_10868,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_cdr(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10878,a[2]=t2,a[3]=t3,a[4]=t6,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_10878(t8,t1,t4);} /* loop in compile-cond-expand in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_10878(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_10878,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_nullp(t2))){ /* egg-compile.scm:412: chicken.base#error */ t3=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=lf[188]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=C_i_caar(t2); t4=C_eqp(lf[189],t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10897,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(t4)){ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=t4; f_10897(2,av2);}} else{ t6=t2; t7=C_u_i_car(t6); t8=C_u_i_car(t7); t9=((C_word*)t0)[5]; t10=((C_word*)((C_word*)t0)[6])[1]; t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9010,a[2]=t12,a[3]=t10,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1];{ C_word av2[3]; av2[0]=t14; av2[1]=t5; av2[2]=t8; f_9010(3,av2);}}}} /* k10895 in loop in compile-cond-expand in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10897,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_cdar(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[118]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10908,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_10908(t8,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* egg-compile.scm:417: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_10878(t4,((C_word*)t0)[4],t3);}} /* for-each-loop2280 in k10895 in loop in compile-cond-expand in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_10908(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10908,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10918,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:416: g2281 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10916 in for-each-loop2280 in k10895 in loop in compile-cond-expand in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_10918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10918,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10908(t3,((C_word*)t0)[4],t2);} /* ->dep in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_10946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10946,3,av);} t3=t2; t4=C_i_stringp(t3); t5=(C_truep(t4)?t4:C_i_symbolp(t3)); if(C_truep(t5)){ if(C_truep(C_i_symbolp(t2))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* egg-compile.scm:420: scheme#string->symbol */ t6=*((C_word*)lf[195]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} else{ /* egg-compile.scm:421: chicken.base#error */ t6=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t1; av2[2]=lf[196]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* compile in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_10967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10967,3,av);} a=C_alloc(6); t3=C_i_car(t2); t4=C_eqp(t3,lf[197]); if(C_truep(t4)){ t5=((C_word*)((C_word*)t0)[2])[1]; t6=t2; t7=C_u_i_cdr(t6); t8=C_i_check_list_2(t7,lf[118]); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10986,a[2]=t10,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_10986(t12,t1,t7);} else{ t5=C_eqp(t3,lf[198]); if(C_truep(t5)){ t6=((C_word*)((C_word*)t0)[3])[1]; t7=t2; t8=C_u_i_cdr(t7); t9=C_i_check_list_2(t8,lf[118]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11022,a[2]=t11,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t13=((C_word*)t11)[1]; f_11022(t13,t1,t8);} else{ /* egg-compile.scm:427: compile-common */ t6=((C_word*)((C_word*)t0)[4])[1]; f_10617(t6,t1,t2,((C_word*)((C_word*)t0)[5])[1]);}}} /* for-each-loop2306 in compile in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_10986(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10986,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10996,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:424: g2307 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10994 in for-each-loop2306 in compile in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_10996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10996,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10986(t3,((C_word*)t0)[4],t2);} /* for-each-loop2323 in compile in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_11022(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11022,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11032,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:426: g2324 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11030 in for-each-loop2323 in compile in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_11032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11032,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11022(t3,((C_word*)t0)[4],t2);} /* arg in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_fcall f_11052(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11052,4,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11056,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t4))){ /* egg-compile.scm:428: chicken.base#constantly */ t6=C_fast_retrieve(lf[201]);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_car(t4); f_11056(2,av2);}}} /* k11054 in arg in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_11056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11056,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11059,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=C_i_length(((C_word*)t0)[2]); if(C_truep(C_i_lessp(t4,((C_word*)t0)[3]))){ /* egg-compile.scm:430: chicken.base#error */ t5=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[200]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_11059(2,av2);}}} /* k11057 in k11054 in arg in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_11059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_11059,2,av);} a=C_alloc(9); t2=C_i_list_ref(((C_word*)t0)[2],((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11065,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11068,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:432: pred */ t6=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k11063 in k11057 in k11054 in arg in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_11065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11065,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11066 in k11057 in k11054 in arg in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_11068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11068,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* egg-compile.scm:433: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[199]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* name? in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_11092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11092,3,av);} t3=C_i_stringp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?t3:C_i_symbolp(t2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* filter in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_fcall f_11105(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11105,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11118,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t3); /* egg-compile.scm:439: pred */ t6=t2;{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k11116 in filter in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_11118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11118,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11127,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* egg-compile.scm:439: filter */ t7=((C_word*)((C_word*)t0)[4])[1]; f_11105(t7,t4,((C_word*)t0)[5],t6);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* egg-compile.scm:440: filter */ t4=((C_word*)((C_word*)t0)[4])[1]; f_11105(t4,((C_word*)t0)[3],((C_word*)t0)[5],t3);}} /* k11125 in k11116 in filter in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_11127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11127,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* filter-deps in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_fcall f_11140(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_11140,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11146,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:442: filter */ t4=((C_word*)((C_word*)t0)[9])[1]; f_11105(t4,t1,t3,t2);} /* a11145 in filter-deps in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_11146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11146,3,av);} if(C_truep(C_i_symbolp(t2))){ t3=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_assq(t2,((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_assq(t2,((C_word*)((C_word*)t0)[4])[1]); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_assq(t2,((C_word*)((C_word*)t0)[5])[1]); if(C_truep(t6)){ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_i_assq(t2,((C_word*)((C_word*)t0)[6])[1]); if(C_truep(t7)){ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_i_assq(t2,((C_word*)((C_word*)t0)[7])[1]); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_i_assq(t2,((C_word*)((C_word*)t0)[8])[1]); if(C_truep(t9)){ t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ /* egg-compile.scm:451: chicken.base#error */ t10=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t1; av2[2]=lf[203]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}}}}}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_11204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,5)))){ C_save_and_reclaim((void *)f_11204,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_11207,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:456: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=((C_word*)((C_word*)t0)[10])[1]; av2[4]=((C_word*)((C_word*)t0)[12])[1]; av2[5]=((C_word*)((C_word*)t0)[13])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_11207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(37,c,3)))){ C_save_and_reclaim((void *)f_11207,2,av);} a=C_alloc(37); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11210,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11889,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11894,a[2]=((C_word*)t0)[14],tmp=(C_word)a,a+=3,tmp); t9=C_i_check_list_2(t1,lf[8]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11920,a[2]=t3,a[3]=((C_word*)t0)[15],tmp=(C_word)a,a+=4,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11922,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_11922(t14,t10,t1);} /* k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_11210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_11210,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11217,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11645,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[13],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:467: append-map */ f_6991(t2,t3,t1,C_SCHEME_END_OF_LIST);} /* k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_11217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_11217,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11221,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11248,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=t3,tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11446,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:518: append-map */ f_6991(t4,t5,((C_word*)((C_word*)t0)[10])[1],C_SCHEME_END_OF_LIST);} /* k11219 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_11221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_11221,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11225,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_a_i_cons(&a,2,lf[204],((C_word*)((C_word*)t0)[4])[1]); t5=C_a_i_list(&a,1,t4); if(C_truep(((C_word*)t0)[5])){ t6=C_a_i_list(&a,2,lf[205],((C_word*)t0)[5]); t7=C_a_i_list(&a,1,t6); /* egg-compile.scm:551: scheme#append */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t3; av2[2]=t5; av2[3]=t7; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ /* egg-compile.scm:551: scheme#append */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k11223 in k11219 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_11225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11225,2,av);} /* egg-compile.scm:465: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; C_values(5,av2);}} /* k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_11248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_11248,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_i_check_list_2(t7,lf[8]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11263,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11412,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_11412(t13,t9,t7);} /* k11261 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_11263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_11263,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_i_check_list_2(t7,lf[8]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11278,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11378,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_11378(t13,t9,t7);} /* k11276 in k11261 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_11278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_11278,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_i_check_list_2(t7,lf[8]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11293,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11344,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_11344(t13,t9,t7);} /* k11291 in k11276 in k11261 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_11293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_11293,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_i_check_list_2(t7,lf[8]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11308,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11310,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_11310(t13,t9,t7);} /* k11306 in k11291 in k11276 in k11261 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_11308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11308,2,av);} /* egg-compile.scm:517: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* map-loop2615 in k11291 in k11276 in k11261 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_fcall f_11310(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11310,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11335,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0));{ C_word av2[4]; av2[0]=0; av2[1]=t3; av2[2]=C_retrieve2(lf[206],C_text("main#install-data")); av2[3]=t4; C_apply(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11333 in map-loop2615 in k11291 in k11276 in k11261 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_11335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11335,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11310(t6,((C_word*)t0)[5],t5);} /* map-loop2588 in k11276 in k11261 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_fcall f_11344(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11344,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11369,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0));{ C_word av2[4]; av2[0]=0; av2[1]=t3; av2[2]=C_retrieve2(lf[207],C_text("main#install-c-include")); av2[3]=t4; C_apply(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11367 in map-loop2588 in k11276 in k11261 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_11369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11369,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11344(t6,((C_word*)t0)[5],t5);} /* map-loop2561 in k11261 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_11378(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11378,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11403,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0));{ C_word av2[4]; av2[0]=0; av2[1]=t3; av2[2]=C_retrieve2(lf[206],C_text("main#install-data")); av2[3]=t4; C_apply(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11401 in map-loop2561 in k11261 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_11403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11403,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11378(t6,((C_word*)t0)[5],t5);} /* map-loop2534 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_fcall f_11412(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11412,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11437,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0));{ C_word av2[4]; av2[0]=0; av2[1]=t3; av2[2]=C_retrieve2(lf[208],C_text("main#install-program")); av2[3]=t4; C_apply(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11435 in map-loop2534 in k11246 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_11437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11437,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11412(t6,((C_word*)t0)[5],t5);} /* a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_11446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11446,3,av);} a=C_alloc(9); t3=C_i_cdr(t2); t4=C_i_get_keyword(lf[123],t3,C_SCHEME_FALSE); t5=t4; t6=t2; t7=C_u_i_cdr(t6); t8=C_i_get_keyword(lf[130],t7,C_SCHEME_FALSE); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11460,a[2]=t2,a[3]=t1,a[4]=t9,a[5]=t5,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_memq(lf[146],t5))){ t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11637,a[2]=t10,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t11; av2[2]=C_retrieve2(lf[214],C_text("main#install-static-extension")); av2[3]=t2; C_apply(4,av2);}} else{ t11=t10; f_11460(t11,C_SCHEME_END_OF_LIST);}} /* k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_fcall f_11460(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_11460,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11464,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_memq(lf[143],((C_word*)t0)[5]))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11627,a[2]=t3,tmp=(C_word)a,a+=3,tmp);{ C_word av2[4]; av2[0]=0; av2[1]=t4; av2[2]=C_retrieve2(lf[213],C_text("main#install-dynamic-extension")); av2[3]=((C_word*)t0)[2]; C_apply(4,av2);}} else{ t4=t3; f_11464(t4,C_SCHEME_END_OF_LIST);}} /* k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_11464(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_11464,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11468,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_memq(lf[143],((C_word*)t0)[6]))){ t5=C_i_get_keyword(lf[125],((C_word*)t0)[2],C_SCHEME_FALSE); /* egg-compile.scm:530: uses-compiled-import-library? */ t6=t4; f_11503(t6,( /* egg-compile.scm:530: uses-compiled-import-library? */ f_8830(t5) ));} else{ t5=t4; f_11503(t5,C_SCHEME_FALSE);}} /* k11466 in k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_11468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_11468,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11472,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); if(C_truep(C_i_get_keyword(lf[126],t5,C_SCHEME_FALSE))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11498,a[2]=t3,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t6; av2[2]=C_retrieve2(lf[210],C_text("main#install-types-file")); av2[3]=((C_word*)t0)[2]; C_apply(4,av2);}} else{ t6=t3; f_11472(t6,C_SCHEME_END_OF_LIST);}} /* k11470 in k11466 in k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_fcall f_11472(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,6)))){ C_save_and_reclaim_args((void *)trf_11472,2,t0,t1);} a=C_alloc(7); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); if(C_truep(C_i_get_keyword(lf[127],t4,C_SCHEME_FALSE))){ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11486,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,tmp=(C_word)a,a+=7,tmp);{ C_word av2[4]; av2[0]=0; av2[1]=t5; av2[2]=C_retrieve2(lf[209],C_text("main#install-inline-file")); av2[3]=((C_word*)t0)[2]; C_apply(4,av2);}} else{ /* egg-compile.scm:522: scheme#append */ t5=*((C_word*)lf[7]+1);{ C_word av2[7]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=t2; av2[6]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}}} /* k11484 in k11470 in k11466 in k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_11486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_11486,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* egg-compile.scm:522: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k11496 in k11466 in k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_11498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11498,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_11472(t2,C_a_i_list1(&a,1,t1));} /* k11501 in k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_fcall f_11503(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_11503,2,t0,t1);} a=C_alloc(16); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11507,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=C_i_check_list_2(((C_word*)t0)[3],lf[8]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11523,a[2]=t4,a[3]=t9,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_11523(t11,((C_word*)t0)[4],((C_word*)t0)[3]);} else{ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11559,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=C_i_check_list_2(((C_word*)t0)[3],lf[8]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11575,a[2]=t4,a[3]=t9,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_11575(t11,((C_word*)t0)[4],((C_word*)t0)[3]);}} /* g2486 in k11501 in k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_fcall f_11507(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_11507,3,t0,t1,t2);} t3=C_i_cdr(((C_word*)t0)[2]);{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=C_retrieve2(lf[211],C_text("main#install-import-library")); av2[3]=t2; av2[4]=t3; C_apply(5,av2);}} /* map-loop2480 in k11501 in k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_fcall f_11523(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11523,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11548,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:531: g2486 */ t5=((C_word*)t0)[4]; f_11507(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11546 in map-loop2480 in k11501 in k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_11548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11548,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11523(t6,((C_word*)t0)[5],t5);} /* g2513 in k11501 in k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_fcall f_11559(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_11559,3,t0,t1,t2);} t3=C_i_cdr(((C_word*)t0)[2]);{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=C_retrieve2(lf[212],C_text("main#install-import-library-source")); av2[3]=t2; av2[4]=t3; C_apply(5,av2);}} /* map-loop2507 in k11501 in k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_fcall f_11575(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11575,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11600,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:535: g2513 */ t5=((C_word*)t0)[4]; f_11559(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11598 in map-loop2507 in k11501 in k11462 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_11600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11600,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11575(t6,((C_word*)t0)[5],t5);} /* k11625 in k11458 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_11627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11627,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_11464(t2,C_a_i_list1(&a,1,t1));} /* k11635 in a11445 in k11215 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_11637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11637,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_11460(t2,C_a_i_list1(&a,1,t1));} /* a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_11645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_11645,3,av);} a=C_alloc(8); t3=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11653,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:469: g2431 */ t5=t4; f_11653(t5,t1,t3);} else{ t4=C_i_assq(t2,((C_word*)((C_word*)t0)[4])[1]); if(C_truep(t4)){ t5=t1; t6=t4; t7=C_i_cdr(t6); t8=C_i_get_keyword(lf[123],t7,C_SCHEME_FALSE); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11795,a[2]=t9,a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_memq(lf[143],t9))){ t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11819,a[2]=t10,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t11; av2[2]=C_retrieve2(lf[220],C_text("main#compile-dynamic-program")); av2[3]=t6; C_apply(4,av2);}} else{ t11=t10; f_11795(t11,C_SCHEME_END_OF_LIST);}} else{ t5=C_i_assq(t2,((C_word*)((C_word*)t0)[5])[1]); if(C_truep(t5)){ t6=t1; t7=t5; t8=C_i_cdr(t7); t9=C_i_get_keyword(lf[123],t8,C_SCHEME_FALSE); t10=t9; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11844,a[2]=t10,a[3]=t6,a[4]=t7,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_memq(lf[143],t10))){ t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11868,a[2]=t11,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t12; av2[2]=C_retrieve2(lf[222],C_text("main#compile-dynamic-object")); av2[3]=t7; C_apply(4,av2);}} else{ t12=t11; f_11844(t12,C_SCHEME_END_OF_LIST);}} else{ t6=C_i_assq(t2,((C_word*)((C_word*)t0)[6])[1]); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11885,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t7; av2[2]=C_retrieve2(lf[223],C_text("main#compile-generated-file")); av2[3]=t6; C_apply(4,av2);}}}}} /* g2431 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_fcall f_11653(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_11653,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_cdr(t2); t4=C_i_get_keyword(lf[123],t3,C_SCHEME_FALSE); t5=t4; t6=t2; t7=C_u_i_cdr(t6); t8=C_i_get_keyword(lf[130],t7,C_SCHEME_FALSE); t9=t8; t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11667,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t9,a[6]=t5,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_memq(lf[143],t5))){ t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11768,a[2]=t10,tmp=(C_word)a,a+=3,tmp);{ C_word av2[4]; av2[0]=0; av2[1]=t11; av2[2]=C_retrieve2(lf[218],C_text("main#compile-dynamic-extension")); av2[3]=t2; C_apply(4,av2);}} else{ t11=t10; f_11667(t11,C_SCHEME_END_OF_LIST);}} /* k11665 in g2431 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_fcall f_11667(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_11667,2,t0,t1);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11671,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_memq(lf[146],((C_word*)t0)[6]))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11740,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_memq(lf[143],((C_word*)t0)[6]))){ t5=((C_word*)t0)[4]; t6=C_u_i_car(t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11756,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t8=((C_word*)t0)[4]; t9=C_u_i_cdr(t8); /* egg-compile.scm:483: scheme#append */ t10=*((C_word*)lf[7]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t7; av2[2]=lf[217]; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t5=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=0; av2[1]=t4; av2[2]=C_retrieve2(lf[216],C_text("main#compile-static-extension")); av2[3]=t5; C_apply(4,av2);}}} else{ t4=t3; f_11671(t4,C_SCHEME_END_OF_LIST);}} /* k11669 in k11665 in g2431 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_11671(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,0,4)))){ C_save_and_reclaim_args((void *)trf_11671,2,t0,t1);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11675,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=( /* egg-compile.scm:488: uses-compiled-import-library? */ f_8830(((C_word*)t0)[4]) ); if(C_truep(t4)){ t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11682,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t10=C_i_check_list_2(((C_word*)t0)[6],lf[8]); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11698,a[2]=t7,a[3]=t12,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_11698(t14,t3,((C_word*)t0)[6]);} else{ /* egg-compile.scm:473: scheme#append */ t5=*((C_word*)lf[7]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k11673 in k11669 in k11665 in g2431 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_11675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11675,2,av);} /* egg-compile.scm:473: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g2444 in k11669 in k11665 in g2431 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_fcall f_11682(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_11682,3,t0,t1,t2);} t3=C_i_cdr(((C_word*)t0)[2]);{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=C_retrieve2(lf[215],C_text("main#compile-import-library")); av2[3]=t2; av2[4]=t3; C_apply(5,av2);}} /* map-loop2438 in k11669 in k11665 in g2431 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_fcall f_11698(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11698,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11723,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:489: g2444 */ t5=((C_word*)t0)[4]; f_11682(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11721 in map-loop2438 in k11669 in k11665 in g2431 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_11723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11723,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11698(t6,((C_word*)t0)[5],t5);} /* k11738 in k11665 in g2431 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_11740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11740,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_11671(t2,C_a_i_list1(&a,1,t1));} /* k11754 in k11665 in g2431 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_11756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11756,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=C_retrieve2(lf[216],C_text("main#compile-static-extension")); av2[3]=t2; C_apply(4,av2);}} /* k11766 in g2431 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_11768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11768,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_11667(t2,C_a_i_list1(&a,1,t1));} /* k11793 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_fcall f_11795(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_11795,2,t0,t1);} a=C_alloc(4); t2=t1; if(C_truep(C_i_memq(lf[146],((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11809,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);{ C_word av2[4]; av2[0]=0; av2[1]=t3; av2[2]=C_retrieve2(lf[219],C_text("main#compile-static-program")); av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}} else{ /* egg-compile.scm:497: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k11807 in k11793 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_11809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11809,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* egg-compile.scm:497: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11817 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_11819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11819,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_11795(t2,C_a_i_list1(&a,1,t1));} /* k11842 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_fcall f_11844(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_11844,2,t0,t1);} a=C_alloc(4); t2=t1; if(C_truep(C_i_memq(lf[146],((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11858,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);{ C_word av2[4]; av2[0]=0; av2[1]=t3; av2[2]=C_retrieve2(lf[221],C_text("main#compile-static-object")); av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}} else{ /* egg-compile.scm:506: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k11856 in k11842 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_11858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11858,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* egg-compile.scm:506: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11866 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_11868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11868,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_11844(t2,C_a_i_list1(&a,1,t1));} /* k11883 in a11644 in k11208 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_11885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11885,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11887 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_11889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11889,2,av);} /* egg-compile.scm:457: scheme#reverse */ t2=*((C_word*)lf[224]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* g2405 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_fcall f_11894(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_11894,3,t0,t1,t2);} a=C_alloc(4); t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11906,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_car(t6); t8=t2; t9=C_u_i_cdr(t8); t10=C_i_get_keyword(lf[119],t9,C_SCHEME_FALSE); /* egg-compile.scm:460: filter-deps */ t11=((C_word*)((C_word*)t0)[2])[1]; f_11140(t11,t5,t10);} /* k11904 in g2405 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_11906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11906,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11918 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_11920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11920,2,av);} /* egg-compile.scm:457: sort-dependencies */ f_8843(((C_word*)t0)[2],t1,((C_word*)((C_word*)t0)[3])[1]);} /* map-loop2399 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_fcall f_11922(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11922,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11947,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:458: g2405 */ t5=((C_word*)t0)[4]; f_11894(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11945 in map-loop2399 in k11205 in k11202 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_11947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11947,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11922(t6,((C_word*)t0)[5],t5);} /* for-each-loop1261 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_fcall f_11956(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11956,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11966,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:454: g1262 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11964 in for-each-loop1261 in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_11966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11966,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11956(t3,((C_word*)t0)[4],t2);} /* main#compile-static-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_11979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_11979,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[131],t3,C_SCHEME_FALSE); t7=t6; t8=C_i_get_keyword(lf[120],t3,C_SCHEME_FALSE); t9=t8; t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11992,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t2,a[6]=t7,a[7]=t9,tmp=(C_word)a,a+=8,tmp); t11=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12267,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:558: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t10; av2[2]=lf[121]; av2[3]=t3; av2[4]=t11; tp(5,av2);}} /* k11990 in main#compile-static-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_11992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_11992,2,av);} a=C_alloc(13); t2=t1; t3=C_i_get_keyword(lf[128],((C_word*)t0)[2],C_SCHEME_FALSE); t4=t3; t5=C_i_get_keyword(lf[129],((C_word*)t0)[2],C_SCHEME_FALSE); t6=t5; t7=C_i_get_keyword(lf[132],((C_word*)t0)[2],C_SCHEME_FALSE); t8=t7; t9=C_i_get_keyword(lf[124],((C_word*)t0)[2],C_SCHEME_FALSE); t10=t9; t11=C_i_get_keyword(lf[126],((C_word*)t0)[2],C_SCHEME_FALSE); t12=t11; t13=C_i_get_keyword(lf[127],((C_word*)t0)[2],C_SCHEME_FALSE); t14=t13; t15=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t15; av2[1]=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12011,a[2]=t8,a[3]=t10,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t6,a[8]=((C_word*)t0)[7],a[9]=t12,a[10]=t14,a[11]=t2,a[12]=t4,tmp=(C_word)a,a+=13,tmp); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} /* f_12011 in k11990 in main#compile-static-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_12011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_12011,4,av);} a=C_alloc(20); t4=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12015,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],a[15]=((C_word*)t0)[12],tmp=(C_word)a,a+=16,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12262,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:565: custom-cmd */ f_14796(t5,((C_word*)t0)[3],t2,t3);} /* k12013 */ static void C_ccall f_12015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_12015,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_12018,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); t4=t3; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[8]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23144,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t8=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k12016 in k12013 */ static void C_ccall f_12018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_12018,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_12021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=t2,a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12254,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12258,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:569: chicken.string#conc */ t6=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[13]; av2[3]=lf[268]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12019 in k12016 in k12013 */ static void C_ccall f_12021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_12021,2,av);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_12024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=t2,a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12246,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12250,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:571: chicken.string#conc */ t6=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[14]; av2[3]=lf[267]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_12024,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_12027,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=t2,a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12242,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:573: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[16]; av2[3]=C_retrieve2(lf[79],C_text("main#+link-file-extension+")); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){ C_save_and_reclaim((void *)f_12027,2,av);} a=C_alloc(31); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_12030,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp); t4=C_i_nullp(((C_word*)t0)[18]); t5=(C_truep(t4)?C_retrieve2(lf[69],C_text("main#default-static-compilation-options")):((C_word*)t0)[18]); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12219,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[16],a[4]=t3,a[5]=t6,tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[13])){ t8=C_i_not(((C_word*)t0)[19]); t9=t7; f_12219(t9,(C_truep(t8)?C_a_i_list2(&a,2,lf[266],((C_word*)t0)[14]):C_SCHEME_END_OF_LIST));} else{ t8=t7; f_12219(t8,C_SCHEME_END_OF_LIST);}} /* k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_12030,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_12033,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp); /* egg-compile.scm:584: chicken.string#conc */ t4=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[18]; av2[3]=lf[264]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,c,3)))){ C_save_and_reclaim((void *)f_12033,2,av);} a=C_alloc(30); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_12036,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=t2,tmp=(C_word)a,a+=20,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12203,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12207,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=( /* egg-compile.scm:586: object-extension */ f_8701(((C_word*)t0)[3]) ); /* egg-compile.scm:585: chicken.string#conc */ t7=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=t2; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,c,3)))){ C_save_and_reclaim((void *)f_12036,2,av);} a=C_alloc(30); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_12039,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; f_12039(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12191,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12195,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=( /* egg-compile.scm:592: archive-extension */ f_8720(((C_word*)t0)[3]) ); /* egg-compile.scm:591: chicken.string#conc */ t7=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[19]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_12039,2,av);} a=C_alloc(29); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_12042,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); t4=C_a_i_list2(&a,2,t2,((C_word*)t0)[10]); t5=(C_truep(((C_word*)t0)[16])?C_a_i_list1(&a,1,((C_word*)t0)[17]):C_SCHEME_END_OF_LIST); if(C_truep(((C_word*)t0)[18])){ t6=C_a_i_list1(&a,1,((C_word*)t0)[19]); /* egg-compile.scm:595: scheme#append */ t7=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* egg-compile.scm:595: scheme#append */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_12042,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_12045,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=t2,tmp=(C_word)a,a+=17,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12166,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[16])){ /* egg-compile.scm:598: qs* */ f_14498(t3,((C_word*)t0)[16],((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ /* egg-compile.scm:598: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[12]; av2[3]=lf[262]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_12045,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_12048,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp); if(C_truep(((C_word*)t0)[8])){ t4=((C_word*)t0)[3]; t5=C_eqp(lf[31],t4); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; f_12048(2,av2);}} else{ /* egg-compile.scm:1227: chicken.base#print */ t6=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=lf[261]; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_12048(2,av2);}}} /* k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_12048,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12051,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12128,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=t2,a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[3],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:601: qs* */ f_14498(t3,C_retrieve2(lf[36],C_text("main#default-builder")),((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k12049 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(31,c,3)))){ C_save_and_reclaim((void *)f_12051,2,av);} a=C_alloc(31); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12054,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12063,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12079,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12090,a[2]=t3,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12092,a[2]=t6,a[3]=t11,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_12092(t13,t9,((C_word*)t0)[4]);} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=C_eqp(t4,lf[31]); if(C_truep(t5)){ /* egg-compile.scm:1237: chicken.base#print */ t6=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} /* k12052 in k12049 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12054,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k12061 in k12049 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_12063,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12070,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:621: qs* */ f_14498(t3,C_retrieve2(lf[36],C_text("main#default-builder")),((C_word*)t0)[5],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k12068 in k12061 in k12049 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_12070,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12074,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:623: qs* */ f_14498(t3,C_retrieve2(lf[37],C_text("main#target-librarian")),((C_word*)t0)[6],C_SCHEME_END_OF_LIST);} /* k12072 in k12068 in k12061 in k12049 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,18)))){ C_save_and_reclaim((void *)f_12074,2,av);} /* egg-compile.scm:621: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 19) { av2=av; } else { av2=C_alloc(19); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[227]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[228]; av2[6]=((C_word*)t0)[5]; av2[7]=lf[229]; av2[8]=((C_word*)t0)[6]; av2[9]=lf[230]; av2[10]=t1; av2[11]=lf[231]; av2[12]=C_retrieve2(lf[38],C_text("main#target-librarian-options")); av2[13]=lf[232]; av2[14]=((C_word*)t0)[4]; av2[15]=lf[233]; av2[16]=((C_word*)t0)[5]; av2[17]=lf[234]; av2[18]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(19,av2);}} /* g2708 in k12049 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_fcall f_12079(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_12079,3,t0,t1,t2);} t3=C_fast_retrieve(lf[134]); t4=( /* egg-compile.scm:618: object-extension */ f_8701(((C_word*)t0)[2]) ); /* egg-compile.scm:618: g2725 */ t5=C_fast_retrieve(lf[134]);{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=lf[236]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k12088 in k12049 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12090,2,av);} /* egg-compile.scm:617: filelist */ f_14704(((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* map-loop2702 in k12049 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_fcall f_12092(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_12092,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12117,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:618: g2708 */ t5=((C_word*)t0)[4]; f_12079(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12115 in map-loop2702 in k12049 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12117,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12092(t6,((C_word*)t0)[5],t5);} /* k12126 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_12128,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12132,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:1245: chicken.string#string-intersperse */ t4=C_fast_retrieve(lf[259]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[15]; av2[3]=lf[260]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k12130 in k12126 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_12132,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12136,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:603: qs* */ f_14498(t3,((C_word*)t0)[15],((C_word*)t0)[13],C_SCHEME_END_OF_LIST);} /* k12134 in k12130 in k12126 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_12136,2,av);} a=C_alloc(16); t2=t1; t3=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[3]:lf[238]); t4=t3; t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12144,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t2,a[8]=t4,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:605: filelist */ f_14704(t5,((C_word*)t0)[9],((C_word*)t0)[15],((C_word*)t0)[14]);} /* k12142 in k12134 in k12130 in k12126 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_12144,2,av);} a=C_alloc(16); t2=t1; t3=(C_truep(C_retrieve2(lf[81],C_text("main#keep-generated-files")))?lf[239]:lf[240]); t4=t3; t5=C_eqp(((C_word*)t0)[2],lf[103]); t6=(C_truep(t5)?lf[241]:lf[242]); t7=t6; t8=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12156,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t2,a[9]=((C_word*)t0)[9],a[10]=t4,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=t7,a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:614: arglist */ f_14645(t8,((C_word*)t0)[14],((C_word*)t0)[15]);} /* k12154 in k12142 in k12134 in k12130 in k12126 in k12046 in k12043 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,32)))){ C_save_and_reclaim((void *)f_12156,2,av);} /* egg-compile.scm:601: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 33) { av2=av; } else { av2=C_alloc(33); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[243]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[244]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[245]; av2[7]=((C_word*)t0)[5]; av2[8]=lf[246]; av2[9]=((C_word*)t0)[6]; av2[10]=lf[247]; av2[11]=((C_word*)t0)[7]; av2[12]=lf[248]; av2[13]=((C_word*)t0)[8]; av2[14]=lf[249]; av2[15]=((C_word*)t0)[9]; av2[16]=((C_word*)t0)[10]; av2[17]=lf[250]; av2[18]=lf[251]; av2[19]=((C_word*)t0)[11]; av2[20]=lf[252]; av2[21]=((C_word*)t0)[12]; av2[22]=((C_word*)t0)[13]; av2[23]=lf[253]; av2[24]=((C_word*)t0)[14]; av2[25]=lf[254]; av2[26]=lf[255]; av2[27]=((C_word*)t0)[11]; av2[28]=t1; av2[29]=lf[256]; av2[30]=((C_word*)t0)[5]; av2[31]=lf[257]; av2[32]=((C_word*)t0)[15]; ((C_proc)(void*)(*((C_word*)t2+1)))(33,av2);}} /* k12164 in k12040 in k12037 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12166,2,av);} /* egg-compile.scm:598: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12189 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12191,2,av);} /* egg-compile.scm:591: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12193 in k12034 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12195,2,av);} t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:591: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}} /* k12201 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12203,2,av);} /* egg-compile.scm:585: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12205 in k12031 in k12028 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12207,2,av);} t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:585: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}} /* k12217 in k12025 in k12022 in k12019 in k12016 in k12013 */ static void C_fcall f_12219(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_12219,2,t0,t1);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_list2(&a,2,lf[265],((C_word*)t0)[3]); /* egg-compile.scm:574: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t1; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* egg-compile.scm:574: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t1; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k12240 in k12022 in k12019 in k12016 in k12013 */ static void C_ccall f_12242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12242,2,av);} /* egg-compile.scm:573: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12244 in k12019 in k12016 in k12013 */ static void C_ccall f_12246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12246,2,av);} /* egg-compile.scm:571: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12248 in k12019 in k12016 in k12013 */ static void C_ccall f_12250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12250,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23132,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12252 in k12016 in k12013 */ static void C_ccall f_12254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12254,2,av);} /* egg-compile.scm:569: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12256 in k12016 in k12013 */ static void C_ccall f_12258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12258,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23138,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12260 */ static void C_ccall f_12262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12262,2,av);} if(C_truep(t1)){ t2=t1; /* egg-compile.scm:565: qs* */ f_14498(((C_word*)t0)[2],t2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ t2=C_retrieve2(lf[34],C_text("main#default-csc")); t3=C_retrieve2(lf[34],C_text("main#default-csc")); /* egg-compile.scm:565: qs* */ f_14498(((C_word*)t0)[2],C_retrieve2(lf[34],C_text("main#default-csc")),((C_word*)t0)[3],C_SCHEME_END_OF_LIST);}} /* a12266 in main#compile-static-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_12267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12267,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#compile-dynamic-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_12270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_12270,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[120],t3,C_SCHEME_FALSE); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12283,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t7,a[6]=t2,tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12590,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:628: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t8; av2[2]=lf[121]; av2[3]=t3; av2[4]=t9; tp(5,av2);}} /* k12281 in main#compile-dynamic-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_12283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_12283,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12286,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12587,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:628: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t3; av2[2]=lf[122]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; tp(5,av2);}} /* k12284 in k12281 in main#compile-dynamic-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_12286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_12286,2,av);} a=C_alloc(15); t2=t1; t3=C_i_get_keyword(lf[128],((C_word*)t0)[2],C_SCHEME_FALSE); t4=t3; t5=C_i_get_keyword(lf[129],((C_word*)t0)[2],C_SCHEME_FALSE); t6=t5; t7=C_i_get_keyword(lf[132],((C_word*)t0)[2],C_SCHEME_FALSE); t8=t7; t9=C_i_get_keyword(lf[131],((C_word*)t0)[2],C_SCHEME_FALSE); t10=t9; t11=C_i_get_keyword(lf[130],((C_word*)t0)[2],C_SCHEME_FALSE); t12=t11; t13=C_i_get_keyword(lf[124],((C_word*)t0)[2],C_SCHEME_FALSE); t14=t13; t15=C_i_get_keyword(lf[126],((C_word*)t0)[2],C_SCHEME_FALSE); t16=t15; t17=C_i_get_keyword(lf[127],((C_word*)t0)[2],C_SCHEME_FALSE); t18=t17; t19=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t19; av2[1]=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12311,a[2]=((C_word*)t0)[4],a[3]=t8,a[4]=t14,a[5]=t2,a[6]=t10,a[7]=t6,a[8]=t18,a[9]=t16,a[10]=t12,a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[6],a[13]=((C_word*)t0)[7],a[14]=t4,tmp=(C_word)a,a+=15,tmp); ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} /* f_12311 in k12284 in k12281 in main#compile-dynamic-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_12311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_12311,4,av);} a=C_alloc(22); t4=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_12315,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=t2,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],a[15]=((C_word*)t0)[12],a[16]=((C_word*)t0)[13],a[17]=((C_word*)t0)[14],tmp=(C_word)a,a+=18,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12582,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:636: custom-cmd */ f_14796(t5,((C_word*)t0)[4],t2,t3);} /* k12313 */ static void C_ccall f_12315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_12315,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_12318,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp); t4=t3; t5=((C_word*)t0)[7]; t6=((C_word*)t0)[15]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23181,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t8=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k12316 in k12313 */ static void C_ccall f_12318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_12318,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_12321,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=t2,a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12574,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12578,a[2]=t4,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:640: chicken.string#conc */ t6=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[13]; av2[3]=lf[297]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12319 in k12316 in k12313 */ static void C_ccall f_12321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_12321,2,av);} a=C_alloc(29); t2=t1; t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_12324,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=t2,a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12566,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12570,a[2]=t4,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:642: chicken.string#conc */ t6=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[12]; av2[3]=lf[296]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){ C_save_and_reclaim((void *)f_12324,2,av);} a=C_alloc(32); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_12327,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t2,a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); t4=C_i_nullp(((C_word*)t0)[19]); t5=(C_truep(t4)?C_retrieve2(lf[71],C_text("main#default-dynamic-compilation-options")):((C_word*)t0)[19]); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12543,a[2]=((C_word*)t0)[12],a[3]=t2,a[4]=t3,a[5]=t6,tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[13])){ t8=C_i_not(((C_word*)t0)[20]); t9=t7; f_12543(t9,(C_truep(t8)?C_a_i_list2(&a,2,lf[295],((C_word*)t0)[14]):C_SCHEME_END_OF_LIST));} else{ t8=t7; f_12543(t8,C_SCHEME_END_OF_LIST);}} /* k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,c,3)))){ C_save_and_reclaim((void *)f_12327,2,av);} a=C_alloc(30); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_12330,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12531,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12535,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* egg-compile.scm:654: chicken.string#conc */ t6=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[19]; av2[3]=lf[293]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_12330,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_12333,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12524,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[18])){ /* egg-compile.scm:655: qs* */ f_14498(t3,((C_word*)t0)[18],((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ /* egg-compile.scm:655: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[19]; av2[3]=lf[292]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(36,c,3)))){ C_save_and_reclaim((void *)f_12333,2,av);} a=C_alloc(36); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12337,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t8=C_i_check_list_2(((C_word*)t0)[4],lf[8]); t9=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_12355,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=t2,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],tmp=(C_word)a,a+=19,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12488,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_12488(t13,t9,((C_word*)t0)[4]);} /* g2782 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_fcall f_12337(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_12337,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12345,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=( /* egg-compile.scm:658: object-extension */ f_8701(((C_word*)t0)[3]) ); /* egg-compile.scm:657: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k12343 in g2782 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12345,2,av);} t2=((C_word*)t0)[2]; t3=C_eqp(((C_word*)t0)[3],lf[54]); if(C_truep(t3)){ /* egg-compile.scm:1211: scheme#string-append */ t4=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(47,c,3)))){ C_save_and_reclaim((void *)f_12355,2,av);} a=C_alloc(47); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); t4=C_a_i_list1(&a,1,((C_word*)t0)[9]); t5=t4; t6=(C_truep(((C_word*)t0)[14])?C_a_i_list1(&a,1,((C_word*)t0)[15]):C_SCHEME_END_OF_LIST); t7=t6; t8=(C_truep(((C_word*)t0)[16])?C_a_i_list1(&a,1,((C_word*)t0)[17]):C_SCHEME_END_OF_LIST); t9=t8; t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t11=t10; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=((C_word*)t12)[1]; t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12434,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); t15=C_i_check_list_2(((C_word*)t0)[18],lf[8]); t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12452,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,tmp=(C_word)a,a+=6,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12454,a[2]=t12,a[3]=t18,a[4]=t14,a[5]=t13,tmp=(C_word)a,a+=6,tmp)); t20=((C_word*)t18)[1]; f_12454(t20,t16,((C_word*)t0)[18]);} /* k12356 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_12358,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12361,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=t2,tmp=(C_word)a,a+=16,tmp); if(C_truep(((C_word*)t0)[4])){ t4=((C_word*)t0)[3]; t5=C_eqp(lf[31],t4); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; f_12361(2,av2);}} else{ /* egg-compile.scm:1227: chicken.base#print */ t6=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=lf[261]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_12361(2,av2);}}} /* k12359 in k12356 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_12361,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12364,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12371,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:670: qs* */ f_14498(t3,C_retrieve2(lf[36],C_text("main#default-builder")),((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k12362 in k12359 in k12356 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12364,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k12369 in k12359 in k12356 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_12371,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:1245: chicken.string#string-intersperse */ t4=C_fast_retrieve(lf[259]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[15]; av2[3]=lf[260]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k12373 in k12369 in k12359 in k12356 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_12375,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12379,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:674: qs* */ f_14498(t3,((C_word*)t0)[15],((C_word*)t0)[11],C_SCHEME_END_OF_LIST);} /* k12377 in k12373 in k12369 in k12359 in k12356 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_12379,2,av);} a=C_alloc(17); t2=t1; t3=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[3]:lf[271]); t4=t3; t5=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_12387,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t2,a[8]=t4,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); /* egg-compile.scm:676: filelist */ f_14704(t5,((C_word*)t0)[9],((C_word*)t0)[11],((C_word*)t0)[12]);} /* k12385 in k12377 in k12373 in k12369 in k12359 in k12356 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_12387,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_12391,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); /* egg-compile.scm:677: filelist */ f_14704(t3,((C_word*)t0)[10],((C_word*)t0)[16],((C_word*)t0)[13]);} /* k12389 in k12385 in k12377 in k12373 in k12369 in k12359 in k12356 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_12391,2,av);} a=C_alloc(18); t2=t1; t3=(C_truep(C_retrieve2(lf[81],C_text("main#keep-generated-files")))?lf[272]:lf[273]); t4=t3; t5=C_eqp(((C_word*)t0)[2],lf[103]); t6=(C_truep(t5)?lf[274]:lf[275]); t7=t6; t8=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_12403,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t2,a[10]=((C_word*)t0)[10],a[11]=t4,a[12]=t7,a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],a[17]=((C_word*)t0)[15],tmp=(C_word)a,a+=18,tmp); /* egg-compile.scm:686: arglist */ f_14645(t8,((C_word*)t0)[16],((C_word*)t0)[14]);} /* k12401 in k12389 in k12385 in k12377 in k12373 in k12369 in k12359 in k12356 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_12403,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_12407,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=t2,a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp); /* egg-compile.scm:687: arglist */ f_14645(t3,((C_word*)t0)[17],((C_word*)t0)[16]);} /* k12405 in k12401 in k12389 in k12385 in k12377 in k12373 in k12369 in k12359 in k12356 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_12407,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_12411,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=t2,a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); /* egg-compile.scm:689: filelist */ f_14704(t3,((C_word*)t0)[13],((C_word*)t0)[16],((C_word*)t0)[17]);} /* k12409 in k12405 in k12401 in k12389 in k12385 in k12377 in k12373 in k12369 in k12359 in k12356 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,33)))){ C_save_and_reclaim((void *)f_12411,2,av);} /* egg-compile.scm:670: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 34) { av2=av; } else { av2=C_alloc(34); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[276]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[277]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[278]; av2[7]=((C_word*)t0)[5]; av2[8]=lf[279]; av2[9]=((C_word*)t0)[6]; av2[10]=lf[280]; av2[11]=((C_word*)t0)[7]; av2[12]=lf[281]; av2[13]=((C_word*)t0)[8]; av2[14]=lf[282]; av2[15]=((C_word*)t0)[9]; av2[16]=lf[283]; av2[17]=((C_word*)t0)[10]; av2[18]=((C_word*)t0)[11]; av2[19]=((C_word*)t0)[12]; av2[20]=lf[284]; av2[21]=lf[285]; av2[22]=lf[286]; av2[23]=((C_word*)t0)[13]; av2[24]=lf[287]; av2[25]=((C_word*)t0)[13]; av2[26]=((C_word*)t0)[14]; av2[27]=((C_word*)t0)[15]; av2[28]=lf[288]; av2[29]=((C_word*)t0)[5]; av2[30]=lf[289]; av2[31]=t1; av2[32]=lf[290]; av2[33]=((C_word*)t0)[16]; ((C_proc)(void*)(*((C_word*)t2+1)))(34,av2);}} /* g2810 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_fcall f_12434(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_12434,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12442,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12446,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:665: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[291]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k12440 in g2810 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12442,2,av);} /* egg-compile.scm:665: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12444 in g2810 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12446,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23150,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12450 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_12452,2,av);} /* egg-compile.scm:661: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* map-loop2804 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_fcall f_12454(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_12454,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12479,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:664: g2810 */ t5=((C_word*)t0)[4]; f_12434(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12477 in map-loop2804 in k12353 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12479,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12454(t6,((C_word*)t0)[5],t5);} /* map-loop2776 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_fcall f_12488(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_12488,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12513,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:656: g2782 */ t5=((C_word*)t0)[4]; f_12337(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12511 in map-loop2776 in k12331 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12513,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12488(t6,((C_word*)t0)[5],t5);} /* k12522 in k12328 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12524,2,av);} /* egg-compile.scm:655: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12529 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12531,2,av);} /* egg-compile.scm:654: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12533 in k12325 in k12322 in k12319 in k12316 in k12313 */ static void C_ccall f_12535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12535,2,av);} t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:654: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}} /* k12541 in k12322 in k12319 in k12316 in k12313 */ static void C_fcall f_12543(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_12543,2,t0,t1);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_list2(&a,2,lf[294],((C_word*)t0)[3]); /* egg-compile.scm:644: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t1; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* egg-compile.scm:644: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t1; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k12564 in k12319 in k12316 in k12313 */ static void C_ccall f_12566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12566,2,av);} /* egg-compile.scm:642: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12568 in k12319 in k12316 in k12313 */ static void C_ccall f_12570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12570,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23169,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12572 in k12316 in k12313 */ static void C_ccall f_12574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12574,2,av);} /* egg-compile.scm:640: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12576 in k12316 in k12313 */ static void C_ccall f_12578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12578,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23175,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12580 */ static void C_ccall f_12582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12582,2,av);} if(C_truep(t1)){ t2=t1; /* egg-compile.scm:636: qs* */ f_14498(((C_word*)t0)[2],t2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ t2=C_retrieve2(lf[34],C_text("main#default-csc")); t3=C_retrieve2(lf[34],C_text("main#default-csc")); /* egg-compile.scm:636: qs* */ f_14498(((C_word*)t0)[2],C_retrieve2(lf[34],C_text("main#default-csc")),((C_word*)t0)[3],C_SCHEME_END_OF_LIST);}} /* a12586 in k12281 in main#compile-dynamic-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_12587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12587,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a12589 in main#compile-dynamic-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_12590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12590,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#compile-import-library in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_12593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_12593,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[131],t3,C_SCHEME_FALSE); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12603,a[2]=t1,a[3]=t5,a[4]=t7,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12676,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:693: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t8; av2[2]=lf[121]; av2[3]=t3; av2[4]=t9; tp(5,av2);}} /* k12601 in main#compile-import-library in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_12603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_12603,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12606,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12673,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:693: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t3; av2[2]=lf[122]; av2[3]=((C_word*)t0)[6]; av2[4]=t4; tp(5,av2);}} /* k12604 in k12601 in main#compile-import-library in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_12606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_12606,2,av);} a=C_alloc(7); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12607,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_12607 in k12604 in k12601 in main#compile-import-library in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_12607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_12607,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12611,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:697: qs* */ f_14498(t4,C_retrieve2(lf[34],C_text("main#default-csc")),t3,C_SCHEME_END_OF_LIST);} /* k12609 */ static void C_ccall f_12611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_12611,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12614,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=t3; t5=((C_word*)t0)[6]; t6=((C_word*)t0)[9]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23187,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t8=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k12612 in k12609 */ static void C_ccall f_12614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_12614,2,av);} a=C_alloc(21); t2=C_i_nullp(((C_word*)t0)[2]); t3=(C_truep(t2)?lf[298]:((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12620,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t4,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12664,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12668,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=t5,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* egg-compile.scm:702: chicken.string#conc */ t8=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=t1; av2[3]=lf[313]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k12618 in k12612 in k12609 */ static void C_ccall f_12620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_12620,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12623,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12660,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:704: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[10]; av2[3]=lf[312]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k12621 in k12618 in k12612 in k12609 */ static void C_ccall f_12623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_12623,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12626,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12633,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* egg-compile.scm:705: qs* */ f_14498(t4,C_retrieve2(lf[36],C_text("main#default-builder")),((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k12624 in k12621 in k12618 in k12612 in k12609 */ static void C_ccall f_12626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12626,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k12631 in k12621 in k12618 in k12612 in k12609 */ static void C_ccall f_12633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_12633,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12637,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* egg-compile.scm:709: filelist */ f_14704(t3,((C_word*)t0)[7],((C_word*)t0)[11],((C_word*)t0)[9]);} /* k12635 in k12631 in k12621 in k12618 in k12612 in k12609 */ static void C_ccall f_12637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_12637,2,av);} a=C_alloc(13); t2=t1; t3=(C_truep(C_retrieve2(lf[81],C_text("main#keep-generated-files")))?lf[299]:lf[300]); t4=t3; t5=C_eqp(((C_word*)t0)[2],lf[103]); t6=(C_truep(t5)?lf[301]:lf[302]); t7=t6; t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12649,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=((C_word*)t0)[7],a[8]=t4,a[9]=t7,a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp); /* egg-compile.scm:716: arglist */ f_14645(t8,((C_word*)t0)[11],((C_word*)t0)[10]);} /* k12647 in k12635 in k12631 in k12621 in k12618 in k12612 in k12609 */ static void C_ccall f_12649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_12649,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12653,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,tmp=(C_word)a,a+=12,tmp); /* egg-compile.scm:717: arglist */ f_14645(t3,((C_word*)t0)[11],((C_word*)t0)[12]);} /* k12651 in k12647 in k12635 in k12631 in k12621 in k12618 in k12612 in k12609 */ static void C_ccall f_12653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,23)))){ C_save_and_reclaim((void *)f_12653,2,av);} /* egg-compile.scm:705: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 24) { av2=av; } else { av2=C_alloc(24); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[303]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[304]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[305]; av2[7]=((C_word*)t0)[5]; av2[8]=((C_word*)t0)[6]; av2[9]=lf[306]; av2[10]=((C_word*)t0)[7]; av2[11]=((C_word*)t0)[8]; av2[12]=lf[307]; av2[13]=((C_word*)t0)[9]; av2[14]=lf[308]; av2[15]=((C_word*)t0)[10]; av2[16]=lf[309]; av2[17]=((C_word*)t0)[10]; av2[18]=((C_word*)t0)[11]; av2[19]=t1; av2[20]=lf[310]; av2[21]=((C_word*)t0)[5]; av2[22]=lf[311]; av2[23]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(24,av2);}} /* k12658 in k12618 in k12612 in k12609 */ static void C_ccall f_12660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12660,2,av);} /* egg-compile.scm:704: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12662 in k12612 in k12609 */ static void C_ccall f_12664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12664,2,av);} /* egg-compile.scm:702: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12666 in k12612 in k12609 */ static void C_ccall f_12668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12668,2,av);} t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:702: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}} /* a12672 in k12601 in main#compile-import-library in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_12673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12673,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a12675 in main#compile-import-library in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_12676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12676,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#compile-static-object in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_12679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_12679,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[131],t3,C_SCHEME_FALSE); t7=t6; t8=C_i_get_keyword(lf[120],t3,C_SCHEME_FALSE); t9=t8; t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12692,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t7,a[6]=t9,a[7]=t2,tmp=(C_word)a,a+=8,tmp); t11=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12794,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:722: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t10; av2[2]=lf[121]; av2[3]=t3; av2[4]=t11; tp(5,av2);}} /* k12690 in main#compile-static-object in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_12692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_12692,2,av);} a=C_alloc(9); t2=t1; t3=C_i_get_keyword(lf[129],((C_word*)t0)[2],C_SCHEME_FALSE); t4=t3; t5=C_i_get_keyword(lf[124],((C_word*)t0)[2],C_SCHEME_FALSE); t6=t5; t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12699,a[2]=t2,a[3]=t6,a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* f_12699 in k12690 in main#compile-static-object in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_12699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_12699,4,av);} a=C_alloc(16); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12703,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t2,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12789,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:727: custom-cmd */ f_14796(t5,((C_word*)t0)[3],t2,t3);} /* k12701 */ static void C_ccall f_12703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_12703,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12706,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=t3; t5=((C_word*)t0)[7]; t6=((C_word*)t0)[11]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23199,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t8=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k12704 in k12701 */ static void C_ccall f_12706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_12706,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12709,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[11])){ t4=t3; t5=((C_word*)t0)[8]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23193,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t7=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_12709(2,av2);}}} /* k12707 in k12704 in k12701 */ static void C_ccall f_12709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_12709,2,av);} a=C_alloc(13); t2=t1; t3=C_i_nullp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_retrieve2(lf[69],C_text("main#default-static-compilation-options")):((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12715,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t5,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* egg-compile.scm:735: chicken.pathname#pathname-file */ t7=C_fast_retrieve(lf[64]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_12715,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12718,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12771,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12775,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t5=( /* egg-compile.scm:738: object-extension */ f_8701(((C_word*)t0)[3]) ); /* egg-compile.scm:736: chicken.string#conc */ t6=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[12]; av2[3]=lf[329]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12716 in k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_12718,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12721,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12764,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[11])){ /* egg-compile.scm:741: qs* */ f_14498(t3,((C_word*)t0)[11],((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ /* egg-compile.scm:741: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[12]; av2[3]=lf[328]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k12719 in k12716 in k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_12721,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12724,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)t0)[4])){ t4=((C_word*)t0)[3]; t5=C_eqp(lf[31],t4); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; f_12724(2,av2);}} else{ /* egg-compile.scm:1227: chicken.base#print */ t6=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=lf[261]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_12724(2,av2);}}} /* k12722 in k12719 in k12716 in k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_12724,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12727,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12734,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* egg-compile.scm:744: slashify */ f_14529(t3,C_retrieve2(lf[36],C_text("main#default-builder")),((C_word*)t0)[3]);} /* k12725 in k12722 in k12719 in k12716 in k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12727,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k12732 in k12722 in k12719 in k12716 in k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_12734,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12738,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* egg-compile.scm:747: filelist */ f_14704(t3,((C_word*)t0)[8],((C_word*)t0)[12],((C_word*)t0)[10]);} /* k12736 in k12732 in k12722 in k12719 in k12716 in k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_12738,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12742,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* egg-compile.scm:749: qs* */ f_14498(t3,((C_word*)t0)[12],((C_word*)t0)[11],C_SCHEME_END_OF_LIST);} /* k12740 in k12736 in k12732 in k12722 in k12719 in k12716 in k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_12742,2,av);} a=C_alloc(12); t2=t1; t3=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[3]:lf[314]); t4=t3; t5=C_eqp(((C_word*)t0)[4],lf[103]); t6=(C_truep(t5)?lf[315]:lf[316]); t7=t6; t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12754,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=t2,a[8]=t4,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[10],a[11]=t7,tmp=(C_word)a,a+=12,tmp); /* egg-compile.scm:756: arglist */ f_14645(t8,((C_word*)t0)[11],((C_word*)t0)[12]);} /* k12752 in k12740 in k12736 in k12732 in k12722 in k12719 in k12716 in k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,24)))){ C_save_and_reclaim((void *)f_12754,2,av);} /* egg-compile.scm:744: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 25) { av2=av; } else { av2=C_alloc(25); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[317]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[318]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[319]; av2[7]=((C_word*)t0)[5]; av2[8]=((C_word*)t0)[6]; av2[9]=lf[320]; av2[10]=((C_word*)t0)[7]; av2[11]=lf[321]; av2[12]=((C_word*)t0)[8]; av2[13]=lf[322]; av2[14]=((C_word*)t0)[9]; av2[15]=lf[323]; av2[16]=((C_word*)t0)[10]; av2[17]=((C_word*)t0)[11]; av2[18]=lf[324]; av2[19]=((C_word*)t0)[10]; av2[20]=t1; av2[21]=lf[325]; av2[22]=((C_word*)t0)[6]; av2[23]=lf[326]; av2[24]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(25,av2);}} /* k12762 in k12716 in k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12764,2,av);} /* egg-compile.scm:741: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12769 in k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12771,2,av);} /* egg-compile.scm:736: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12773 in k12713 in k12707 in k12704 in k12701 */ static void C_ccall f_12775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12775,2,av);} t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:736: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}} /* k12787 */ static void C_ccall f_12789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12789,2,av);} if(C_truep(t1)){ t2=t1; /* egg-compile.scm:727: qs* */ f_14498(((C_word*)t0)[2],t2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ t2=C_retrieve2(lf[34],C_text("main#default-csc")); t3=C_retrieve2(lf[34],C_text("main#default-csc")); /* egg-compile.scm:727: qs* */ f_14498(((C_word*)t0)[2],C_retrieve2(lf[34],C_text("main#default-csc")),((C_word*)t0)[3],C_SCHEME_END_OF_LIST);}} /* a12793 in main#compile-static-object in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_12794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12794,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#compile-dynamic-object in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_12797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_12797,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[120],t3,C_SCHEME_FALSE); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12810,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t7,a[6]=t2,tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12912,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:761: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t8; av2[2]=lf[121]; av2[3]=t3; av2[4]=t9; tp(5,av2);}} /* k12808 in main#compile-dynamic-object in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_12810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_12810,2,av);} a=C_alloc(9); t2=t1; t3=C_i_get_keyword(lf[129],((C_word*)t0)[2],C_SCHEME_FALSE); t4=t3; t5=C_i_get_keyword(lf[131],((C_word*)t0)[2],C_SCHEME_FALSE); t6=t5; t7=C_i_get_keyword(lf[124],((C_word*)t0)[2],C_SCHEME_FALSE); t8=t7; t9=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t9; av2[1]=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12820,a[2]=t2,a[3]=t8,a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=t4,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* f_12820 in k12808 in main#compile-dynamic-object in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_12820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_12820,4,av);} a=C_alloc(16); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12824,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t2,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12907,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:767: custom-cmd */ f_14796(t5,((C_word*)t0)[3],t2,t3);} /* k12822 */ static void C_ccall f_12824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_12824,2,av);} a=C_alloc(16); t2=t1; t3=C_i_nullp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_retrieve2(lf[71],C_text("main#default-dynamic-compilation-options")):((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12830,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t5,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t7=t6; t8=((C_word*)t0)[7]; t9=((C_word*)t0)[11]; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23211,a[2]=t7,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t11=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k12828 in k12822 */ static void C_ccall f_12830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_12830,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12833,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[11])){ t4=t3; t5=((C_word*)t0)[7]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23205,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t7=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_12833(2,av2);}}} /* k12831 in k12828 in k12822 */ static void C_ccall f_12833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_12833,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12836,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12889,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12893,a[2]=((C_word*)t0)[6],a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=( /* egg-compile.scm:776: object-extension */ f_8701(((C_word*)t0)[3]) ); /* egg-compile.scm:775: chicken.string#conc */ t7=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[11]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k12834 in k12831 in k12828 in k12822 */ static void C_ccall f_12836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_12836,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12839,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12882,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[11])){ /* egg-compile.scm:779: qs* */ f_14498(t3,((C_word*)t0)[11],((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ /* egg-compile.scm:779: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[12]; av2[3]=lf[344]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k12837 in k12834 in k12831 in k12828 in k12822 */ static void C_ccall f_12839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_12839,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12842,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)t0)[4])){ t4=((C_word*)t0)[3]; t5=C_eqp(lf[31],t4); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; f_12842(2,av2);}} else{ /* egg-compile.scm:1227: chicken.base#print */ t6=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=lf[261]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_12842(2,av2);}}} /* k12840 in k12837 in k12834 in k12831 in k12828 in k12822 */ static void C_ccall f_12842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_12842,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12845,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12852,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* egg-compile.scm:782: slashify */ f_14529(t3,C_retrieve2(lf[36],C_text("main#default-builder")),((C_word*)t0)[3]);} /* k12843 in k12840 in k12837 in k12834 in k12831 in k12828 in k12822 */ static void C_ccall f_12845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12845,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k12850 in k12840 in k12837 in k12834 in k12831 in k12828 in k12822 */ static void C_ccall f_12852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_12852,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* egg-compile.scm:786: qs* */ f_14498(t3,((C_word*)t0)[12],((C_word*)t0)[10],C_SCHEME_END_OF_LIST);} /* k12854 in k12850 in k12840 in k12837 in k12834 in k12831 in k12828 in k12822 */ static void C_ccall f_12856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_12856,2,av);} a=C_alloc(13); t2=t1; t3=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[3]:lf[330]); t4=t3; t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12864,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t2,a[8]=t4,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* egg-compile.scm:788: filelist */ f_14704(t5,((C_word*)t0)[9],((C_word*)t0)[12],((C_word*)t0)[11]);} /* k12862 in k12854 in k12850 in k12840 in k12837 in k12834 in k12831 in k12828 in k12822 */ static void C_ccall f_12864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_12864,2,av);} a=C_alloc(12); t2=t1; t3=C_eqp(((C_word*)t0)[2],lf[103]); t4=(C_truep(t3)?lf[331]:lf[332]); t5=t4; t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12872,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t2,a[9]=((C_word*)t0)[9],a[10]=t5,a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* egg-compile.scm:794: arglist */ f_14645(t6,((C_word*)t0)[11],((C_word*)t0)[12]);} /* k12870 in k12862 in k12854 in k12850 in k12840 in k12837 in k12834 in k12831 in k12828 in k12822 */ static void C_ccall f_12872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,25)))){ C_save_and_reclaim((void *)f_12872,2,av);} /* egg-compile.scm:782: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 26) { av2=av; } else { av2=C_alloc(26); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[333]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[334]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[335]; av2[7]=((C_word*)t0)[5]; av2[8]=lf[336]; av2[9]=((C_word*)t0)[6]; av2[10]=lf[337]; av2[11]=((C_word*)t0)[7]; av2[12]=lf[338]; av2[13]=((C_word*)t0)[8]; av2[14]=lf[339]; av2[15]=((C_word*)t0)[9]; av2[16]=((C_word*)t0)[10]; av2[17]=lf[340]; av2[18]=((C_word*)t0)[11]; av2[19]=lf[341]; av2[20]=((C_word*)t0)[11]; av2[21]=t1; av2[22]=lf[342]; av2[23]=((C_word*)t0)[5]; av2[24]=lf[343]; av2[25]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(26,av2);}} /* k12880 in k12834 in k12831 in k12828 in k12822 */ static void C_ccall f_12882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12882,2,av);} /* egg-compile.scm:779: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12887 in k12831 in k12828 in k12822 */ static void C_ccall f_12889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12889,2,av);} /* egg-compile.scm:775: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k12891 in k12831 in k12828 in k12822 */ static void C_ccall f_12893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12893,2,av);} t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:775: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}} /* k12905 */ static void C_ccall f_12907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12907,2,av);} if(C_truep(t1)){ t2=t1; /* egg-compile.scm:767: qs* */ f_14498(((C_word*)t0)[2],t2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ t2=C_retrieve2(lf[34],C_text("main#default-csc")); t3=C_retrieve2(lf[34],C_text("main#default-csc")); /* egg-compile.scm:767: qs* */ f_14498(((C_word*)t0)[2],C_retrieve2(lf[34],C_text("main#default-csc")),((C_word*)t0)[3],C_SCHEME_END_OF_LIST);}} /* a12911 in main#compile-dynamic-object in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_12912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12912,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#compile-dynamic-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_12915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_12915,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t4=C_i_get_keyword(lf[120],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12925,a[2]=t3,a[3]=t1,a[4]=t7,a[5]=t5,a[6]=t2,tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13102,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:799: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t8; av2[2]=lf[121]; av2[3]=t3; av2[4]=t9; tp(5,av2);}} /* k12923 in main#compile-dynamic-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_12925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_12925,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12928,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13099,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:799: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t3; av2[2]=lf[122]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; tp(5,av2);}} /* k12926 in k12923 in main#compile-dynamic-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_12928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_12928,2,av);} a=C_alloc(11); t2=t1; t3=C_i_get_keyword(lf[131],((C_word*)t0)[2],C_SCHEME_FALSE); t4=t3; t5=C_i_get_keyword(lf[124],((C_word*)t0)[2],C_SCHEME_FALSE); t6=t5; t7=C_i_get_keyword(lf[129],((C_word*)t0)[2],C_SCHEME_FALSE); t8=t7; t9=C_i_get_keyword(lf[132],((C_word*)t0)[2],C_SCHEME_FALSE); t10=t9; t11=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t11; av2[1]=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12941,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t10,a[5]=t6,a[6]=t2,a[7]=t4,a[8]=t8,a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* f_12941 in k12926 in k12923 in main#compile-dynamic-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_12941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_12941,4,av);} a=C_alloc(18); t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_12945,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=t2,a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],tmp=(C_word)a,a+=14,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13094,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:804: custom-cmd */ f_14796(t5,((C_word*)t0)[5],t2,t3);} /* k12943 */ static void C_ccall f_12945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_12945,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12948,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); t4=t3; t5=((C_word*)t0)[8]; t6=((C_word*)t0)[13]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23219,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t8=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k12946 in k12943 */ static void C_ccall f_12948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_12948,2,av);} a=C_alloc(25); t2=C_i_nullp(((C_word*)t0)[2]); t3=(C_truep(t2)?C_retrieve2(lf[71],C_text("main#default-dynamic-compilation-options")):((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12954,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=t4,a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13079,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13083,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t5,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t8=( /* egg-compile.scm:812: executable-extension */ f_8739(((C_word*)t0)[4]) ); /* egg-compile.scm:811: chicken.string#conc */ t9=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=t1; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k12952 in k12946 in k12943 */ static void C_ccall f_12954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(32,c,3)))){ C_save_and_reclaim((void *)f_12954,2,av);} a=C_alloc(32); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12958,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t8=C_i_check_list_2(((C_word*)t0)[4],lf[8]); t9=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12976,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=t2,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13043,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_13043(t13,t9,((C_word*)t0)[4]);} /* g2945 in k12952 in k12946 in k12943 */ static void C_fcall f_12958(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_12958,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12966,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=( /* egg-compile.scm:817: object-extension */ f_8701(((C_word*)t0)[3]) ); /* egg-compile.scm:816: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k12964 in g2945 in k12952 in k12946 in k12943 */ static void C_ccall f_12966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12966,2,av);} t2=((C_word*)t0)[2]; t3=C_eqp(((C_word*)t0)[3],lf[54]); if(C_truep(t3)){ /* egg-compile.scm:1211: scheme#string-append */ t4=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_12976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_12976,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_12979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13038,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[13])){ /* egg-compile.scm:820: qs* */ f_14498(t3,((C_word*)t0)[13],((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ /* egg-compile.scm:820: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[14]; av2[3]=lf[364]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k12977 in k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_12979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_12979,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); if(C_truep(((C_word*)t0)[4])){ t4=((C_word*)t0)[3]; t5=C_eqp(lf[31],t4); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; f_12982(2,av2);}} else{ /* egg-compile.scm:1227: chicken.base#print */ t6=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=lf[261]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_12982(2,av2);}}} /* k12980 in k12977 in k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_12982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_12982,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12985,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12992,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); /* egg-compile.scm:823: qs* */ f_14498(t3,C_retrieve2(lf[36],C_text("main#default-builder")),((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k12983 in k12980 in k12977 in k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_12985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12985,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k12990 in k12980 in k12977 in k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_12992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_12992,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12996,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* egg-compile.scm:827: qs* */ f_14498(t3,((C_word*)t0)[14],((C_word*)t0)[10],C_SCHEME_END_OF_LIST);} /* k12994 in k12990 in k12980 in k12977 in k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_12996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_12996,2,av);} a=C_alloc(15); t2=t1; t3=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[3]:lf[345]); t4=t3; t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_13004,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t2,a[8]=t4,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* egg-compile.scm:829: filelist */ f_14704(t5,((C_word*)t0)[9],((C_word*)t0)[14],((C_word*)t0)[11]);} /* k13002 in k12994 in k12990 in k12980 in k12977 in k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_13004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_13004,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_13008,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:830: filelist */ f_14704(t3,((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);} /* k13006 in k13002 in k12994 in k12990 in k12980 in k12977 in k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_13008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_13008,2,av);} a=C_alloc(17); t2=t1; t3=(C_truep(C_retrieve2(lf[81],C_text("main#keep-generated-files")))?lf[346]:lf[347]); t4=t3; t5=C_eqp(((C_word*)t0)[2],lf[103]); t6=(C_truep(t5)?lf[348]:lf[349]); t7=t6; t8=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_13020,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t2,a[10]=((C_word*)t0)[10],a[11]=t4,a[12]=t7,a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],tmp=(C_word)a,a+=17,tmp); /* egg-compile.scm:838: arglist */ f_14645(t8,((C_word*)t0)[15],((C_word*)t0)[13]);} /* k13018 in k13006 in k13002 in k12994 in k12990 in k12980 in k12977 in k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_13020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_13020,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_13024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=t2,a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); /* egg-compile.scm:839: arglist */ f_14645(t3,((C_word*)t0)[16],((C_word*)t0)[15]);} /* k13022 in k13018 in k13006 in k13002 in k12994 in k12990 in k12980 in k12977 in k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_13024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_13024,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_13028,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=t2,tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:841: filelist */ f_14704(t3,((C_word*)t0)[13],((C_word*)t0)[15],((C_word*)t0)[16]);} /* k13026 in k13022 in k13018 in k13006 in k13002 in k12994 in k12990 in k12980 in k12977 in k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_13028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,32)))){ C_save_and_reclaim((void *)f_13028,2,av);} /* egg-compile.scm:823: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 33) { av2=av; } else { av2=C_alloc(33); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[350]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[351]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[352]; av2[7]=((C_word*)t0)[5]; av2[8]=lf[353]; av2[9]=((C_word*)t0)[6]; av2[10]=lf[354]; av2[11]=((C_word*)t0)[7]; av2[12]=lf[355]; av2[13]=((C_word*)t0)[8]; av2[14]=lf[356]; av2[15]=((C_word*)t0)[9]; av2[16]=lf[357]; av2[17]=((C_word*)t0)[10]; av2[18]=((C_word*)t0)[11]; av2[19]=lf[358]; av2[20]=((C_word*)t0)[12]; av2[21]=lf[359]; av2[22]=((C_word*)t0)[13]; av2[23]=lf[360]; av2[24]=((C_word*)t0)[13]; av2[25]=((C_word*)t0)[14]; av2[26]=((C_word*)t0)[15]; av2[27]=lf[361]; av2[28]=((C_word*)t0)[5]; av2[29]=lf[362]; av2[30]=t1; av2[31]=lf[363]; av2[32]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(33,av2);}} /* k13036 in k12974 in k12952 in k12946 in k12943 */ static void C_ccall f_13038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13038,2,av);} /* egg-compile.scm:820: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* map-loop2939 in k12952 in k12946 in k12943 */ static void C_fcall f_13043(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_13043,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13068,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:815: g2945 */ t5=((C_word*)t0)[4]; f_12958(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k13066 in map-loop2939 in k12952 in k12946 in k12943 */ static void C_ccall f_13068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13068,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_13043(t6,((C_word*)t0)[5],t5);} /* k13077 in k12946 in k12943 */ static void C_ccall f_13079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13079,2,av);} /* egg-compile.scm:811: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k13081 in k12946 in k12943 */ static void C_ccall f_13083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13083,2,av);} t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:811: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}} /* k13092 */ static void C_ccall f_13094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13094,2,av);} if(C_truep(t1)){ t2=t1; /* egg-compile.scm:804: qs* */ f_14498(((C_word*)t0)[2],t2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ t2=C_retrieve2(lf[34],C_text("main#default-csc")); t3=C_retrieve2(lf[34],C_text("main#default-csc")); /* egg-compile.scm:804: qs* */ f_14498(((C_word*)t0)[2],C_retrieve2(lf[34],C_text("main#default-csc")),((C_word*)t0)[3],C_SCHEME_END_OF_LIST);}} /* a13098 in k12923 in main#compile-dynamic-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_13099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13099,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a13101 in main#compile-dynamic-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13102,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#compile-static-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_13105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,4)))){ C_save_and_reclaim((void*)f_13105,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_get_keyword(lf[120],t3,C_SCHEME_FALSE); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13112,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13292,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:845: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t6; av2[2]=lf[121]; av2[3]=t3; av2[4]=t7; tp(5,av2);}} /* k13110 in main#compile-static-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_13112,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13115,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13289,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:845: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t3; av2[2]=lf[122]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; tp(5,av2);}} /* k13113 in k13110 in main#compile-static-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_13115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_13115,2,av);} a=C_alloc(11); t2=t1; t3=C_i_get_keyword(lf[131],((C_word*)t0)[2],C_SCHEME_FALSE); t4=t3; t5=C_i_get_keyword(lf[124],((C_word*)t0)[2],C_SCHEME_FALSE); t6=t5; t7=C_i_get_keyword(lf[125],((C_word*)t0)[2],C_SCHEME_FALSE); t8=t7; t9=C_i_get_keyword(lf[129],((C_word*)t0)[2],C_SCHEME_FALSE); t10=t9; t11=C_i_get_keyword(lf[132],((C_word*)t0)[2],C_SCHEME_FALSE); t12=t11; t13=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t13; av2[1]=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13131,a[2]=((C_word*)t0)[4],a[3]=t8,a[4]=t12,a[5]=t6,a[6]=t2,a[7]=t4,a[8]=t10,a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} /* f_13131 in k13113 in k13110 in main#compile-static-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_13131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_13131,4,av);} a=C_alloc(18); t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_13135,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=t2,a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],tmp=(C_word)a,a+=14,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13284,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:850: custom-cmd */ f_14796(t5,((C_word*)t0)[5],t2,t3);} /* k13133 */ static void C_ccall f_13135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_13135,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_13138,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); t4=t3; t5=((C_word*)t0)[8]; t6=((C_word*)t0)[13]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23227,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t8=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k13136 in k13133 */ static void C_ccall f_13138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_13138,2,av);} a=C_alloc(25); t2=C_i_nullp(((C_word*)t0)[2]); t3=(C_truep(t2)?C_retrieve2(lf[69],C_text("main#default-static-compilation-options")):((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_13144,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=t4,a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13269,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13273,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t5,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t8=( /* egg-compile.scm:858: executable-extension */ f_8739(((C_word*)t0)[4]) ); /* egg-compile.scm:857: chicken.string#conc */ t9=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=t1; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k13142 in k13136 in k13133 */ static void C_ccall f_13144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(32,c,3)))){ C_save_and_reclaim((void *)f_13144,2,av);} a=C_alloc(32); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13148,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t8=C_i_check_list_2(((C_word*)t0)[4],lf[8]); t9=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_13166,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=t2,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13233,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_13233(t13,t9,((C_word*)t0)[4]);} /* g3003 in k13142 in k13136 in k13133 */ static void C_fcall f_13148(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_13148,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13156,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=( /* egg-compile.scm:863: object-extension */ f_8701(((C_word*)t0)[3]) ); /* egg-compile.scm:862: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k13154 in g3003 in k13142 in k13136 in k13133 */ static void C_ccall f_13156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13156,2,av);} t2=((C_word*)t0)[2]; t3=C_eqp(((C_word*)t0)[3],lf[54]); if(C_truep(t3)){ /* egg-compile.scm:1211: scheme#string-append */ t4=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_13166,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_13169,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13228,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[13])){ /* egg-compile.scm:866: qs* */ f_14498(t3,((C_word*)t0)[13],((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ /* egg-compile.scm:866: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[14]; av2[3]=lf[383]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k13167 in k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_13169,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_13172,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); if(C_truep(((C_word*)t0)[4])){ t4=((C_word*)t0)[3]; t5=C_eqp(lf[31],t4); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; f_13172(2,av2);}} else{ /* egg-compile.scm:1227: chicken.base#print */ t6=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=lf[261]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_13172(2,av2);}}} /* k13170 in k13167 in k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_13172,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13175,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_13182,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); /* egg-compile.scm:869: qs* */ f_14498(t3,C_retrieve2(lf[36],C_text("main#default-builder")),((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13173 in k13170 in k13167 in k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13175,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k13180 in k13170 in k13167 in k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_13182,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_13186,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* egg-compile.scm:873: qs* */ f_14498(t3,((C_word*)t0)[14],((C_word*)t0)[10],C_SCHEME_END_OF_LIST);} /* k13184 in k13180 in k13170 in k13167 in k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_13186,2,av);} a=C_alloc(16); t2=t1; t3=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[3]:lf[365]); t4=t3; t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_13194,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t2,a[8]=t4,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:875: filelist */ f_14704(t5,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* k13192 in k13184 in k13180 in k13170 in k13167 in k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_13194,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_13198,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:876: filelist */ f_14704(t3,((C_word*)t0)[10],((C_word*)t0)[15],((C_word*)t0)[12]);} /* k13196 in k13192 in k13184 in k13180 in k13170 in k13167 in k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_13198,2,av);} a=C_alloc(17); t2=t1; t3=(C_truep(C_retrieve2(lf[81],C_text("main#keep-generated-files")))?lf[366]:lf[367]); t4=t3; t5=C_eqp(((C_word*)t0)[2],lf[103]); t6=(C_truep(t5)?lf[368]:lf[369]); t7=t6; t8=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_13210,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t2,a[10]=((C_word*)t0)[10],a[11]=t4,a[12]=t7,a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],tmp=(C_word)a,a+=17,tmp); /* egg-compile.scm:884: arglist */ f_14645(t8,((C_word*)t0)[15],((C_word*)t0)[13]);} /* k13208 in k13196 in k13192 in k13184 in k13180 in k13170 in k13167 in k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_13210,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_13214,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=t2,a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); /* egg-compile.scm:885: arglist */ f_14645(t3,((C_word*)t0)[16],((C_word*)t0)[15]);} /* k13212 in k13208 in k13196 in k13192 in k13184 in k13180 in k13170 in k13167 in k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_13214,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_13218,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=t2,tmp=(C_word)a,a+=16,tmp); /* egg-compile.scm:887: filelist */ f_14704(t3,((C_word*)t0)[13],((C_word*)t0)[15],((C_word*)t0)[16]);} /* k13216 in k13212 in k13208 in k13196 in k13192 in k13184 in k13180 in k13170 in k13167 in k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,31)))){ C_save_and_reclaim((void *)f_13218,2,av);} /* egg-compile.scm:869: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 32) { av2=av; } else { av2=C_alloc(32); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[370]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[371]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[372]; av2[7]=((C_word*)t0)[5]; av2[8]=lf[373]; av2[9]=((C_word*)t0)[6]; av2[10]=lf[374]; av2[11]=((C_word*)t0)[7]; av2[12]=lf[375]; av2[13]=((C_word*)t0)[8]; av2[14]=lf[376]; av2[15]=((C_word*)t0)[9]; av2[16]=lf[377]; av2[17]=((C_word*)t0)[10]; av2[18]=((C_word*)t0)[11]; av2[19]=((C_word*)t0)[12]; av2[20]=lf[378]; av2[21]=((C_word*)t0)[13]; av2[22]=lf[379]; av2[23]=((C_word*)t0)[13]; av2[24]=((C_word*)t0)[14]; av2[25]=((C_word*)t0)[15]; av2[26]=lf[380]; av2[27]=((C_word*)t0)[5]; av2[28]=lf[381]; av2[29]=t1; av2[30]=lf[382]; av2[31]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(32,av2);}} /* k13226 in k13164 in k13142 in k13136 in k13133 */ static void C_ccall f_13228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13228,2,av);} /* egg-compile.scm:866: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* map-loop2997 in k13142 in k13136 in k13133 */ static void C_fcall f_13233(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_13233,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13258,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:861: g3003 */ t5=((C_word*)t0)[4]; f_13148(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k13256 in map-loop2997 in k13142 in k13136 in k13133 */ static void C_ccall f_13258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13258,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_13233(t6,((C_word*)t0)[5],t5);} /* k13267 in k13136 in k13133 */ static void C_ccall f_13269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13269,2,av);} /* egg-compile.scm:857: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k13271 in k13136 in k13133 */ static void C_ccall f_13273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13273,2,av);} t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:857: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);}} /* k13282 */ static void C_ccall f_13284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13284,2,av);} if(C_truep(t1)){ t2=t1; /* egg-compile.scm:850: qs* */ f_14498(((C_word*)t0)[2],t2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ t2=C_retrieve2(lf[34],C_text("main#default-csc")); t3=C_retrieve2(lf[34],C_text("main#default-csc")); /* egg-compile.scm:850: qs* */ f_14498(((C_word*)t0)[2],C_retrieve2(lf[34],C_text("main#default-csc")),((C_word*)t0)[3],C_SCHEME_END_OF_LIST);}} /* a13288 in k13110 in main#compile-static-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_13289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13289,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a13291 in main#compile-static-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13292,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#compile-generated-file in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_13295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,4)))){ C_save_and_reclaim((void*)f_13295,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t4=C_i_get_keyword(lf[120],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[124],t3,C_SCHEME_FALSE); t7=t6; t8=C_i_get_keyword(lf[131],t3,C_SCHEME_FALSE); t9=t8; t10=C_i_get_keyword(lf[129],t3,C_SCHEME_FALSE); t11=t10; t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13309,a[2]=t9,a[3]=t11,a[4]=t5,a[5]=t2,a[6]=t7,tmp=(C_word)a,a+=7,tmp); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} /* f_13309 in main#compile-generated-file in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_13309,4,av);} a=C_alloc(13); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13313,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13345,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:894: custom-cmd */ f_14796(t5,((C_word*)t0)[6],t2,t3);} /* k13311 */ static void C_ccall f_13313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_13313,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13316,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[7])){ /* egg-compile.scm:895: qs* */ f_14498(t3,((C_word*)t0)[7],((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ t4=((C_word*)t0)[8]; /* egg-compile.scm:895: qs* */ f_14498(t3,t4,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);}} /* k13314 in k13311 */ static void C_ccall f_13316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_13316,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13319,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=((C_word*)t0)[3]; t5=C_eqp(lf[31],t4); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; f_13319(2,av2);}} else{ /* egg-compile.scm:1227: chicken.base#print */ t6=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=lf[261]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k13317 in k13314 in k13311 */ static void C_ccall f_13319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_13319,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13322,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13329,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:897: qs* */ f_14498(t3,C_retrieve2(lf[36],C_text("main#default-builder")),((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13320 in k13317 in k13314 in k13311 */ static void C_ccall f_13322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13322,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k13327 in k13317 in k13314 in k13311 */ static void C_ccall f_13329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_13329,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13333,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:899: qs* */ f_14498(t3,((C_word*)t0)[8],((C_word*)t0)[7],C_SCHEME_END_OF_LIST);} /* k13331 in k13327 in k13317 in k13314 in k13311 */ static void C_ccall f_13333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_13333,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13337,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:900: filelist */ f_14704(t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k13335 in k13331 in k13327 in k13317 in k13314 in k13311 */ static void C_ccall f_13337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,13)))){ C_save_and_reclaim((void *)f_13337,2,av);} /* egg-compile.scm:897: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 14) { av2=av; } else { av2=C_alloc(14); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[384]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[385]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[386]; av2[7]=((C_word*)t0)[5]; av2[8]=lf[387]; av2[9]=((C_word*)t0)[6]; av2[10]=lf[388]; av2[11]=t1; av2[12]=lf[389]; av2[13]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(14,av2);}} /* k13343 */ static void C_ccall f_13345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13345,2,av);} /* egg-compile.scm:894: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* main#install-static-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_13347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_13347,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[133],t3,C_SCHEME_FALSE); t7=t6; t8=C_i_get_keyword(lf[132],t3,C_SCHEME_FALSE); t9=t8; t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13358,a[2]=t9,a[3]=t7,a[4]=t5,a[5]=t2,tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* f_13358 in main#install-static-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_13358,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13362,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t2,a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:93: scheme#string-append */ t5=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[23],C_text("main#default-install-program")); av2[3]=lf[401]; av2[4]=C_retrieve2(lf[25],C_text("main#default-install-program-data-flags")); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k13360 */ static void C_ccall f_13362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_13362,2,av);} a=C_alloc(13); t2=t1; t3=( /* egg-compile.scm:911: mkdir-command */ f_8777(((C_word*)t0)[2]) ); t4=t3; t5=(C_truep(C_i_nullp(((C_word*)t0)[3]))?( /* egg-compile.scm:913: object-extension */ f_8701(((C_word*)t0)[2]) ):( /* egg-compile.scm:914: archive-extension */ f_8720(((C_word*)t0)[2]) )); t6=t5; t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13371,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=t6,a[7]=t4,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t8=t7; t9=((C_word*)t0)[7]; t10=((C_word*)t0)[8]; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23233,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t12=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* k13369 in k13360 */ static void C_ccall f_13371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_13371,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13374,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13422,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13426,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* egg-compile.scm:916: chicken.string#conc */ t6=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[400]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k13372 in k13369 in k13360 */ static void C_ccall f_13374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_13374,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13377,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13418,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:918: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=C_retrieve2(lf[79],C_text("main#+link-file-extension+")); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k13375 in k13372 in k13369 in k13360 */ static void C_ccall f_13377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_13377,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13380,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:919: destination-repository */ f_8240(t3,((C_word*)t0)[9],C_SCHEME_END_OF_LIST);} /* k13378 in k13375 in k13372 in k13369 in k13360 */ static void C_ccall f_13380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_13380,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13383,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* egg-compile.scm:920: qs* */ f_14498(t3,t2,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13381 in k13378 in k13375 in k13372 in k13369 in k13360 */ static void C_ccall f_13383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_13383,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13386,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,tmp=(C_word)a,a+=12,tmp); /* egg-compile.scm:921: shell-variable */ f_14759(t3,lf[399],((C_word*)t0)[3]);} /* k13384 in k13381 in k13378 in k13375 in k13372 in k13369 in k13360 */ static void C_ccall f_13386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,6)))){ C_save_and_reclaim((void *)f_13386,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13389,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* egg-compile.scm:922: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t3; av2[2]=lf[396]; av2[3]=((C_word*)t0)[10]; av2[4]=lf[397]; av2[5]=t2; av2[6]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} /* k13387 in k13384 in k13381 in k13378 in k13375 in k13372 in k13369 in k13360 */ static void C_ccall f_13389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,5)))){ C_save_and_reclaim((void *)f_13389,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13392,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13410,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13414,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:924: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=lf[395]; av2[4]=((C_word*)t0)[8]; av2[5]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k13390 in k13387 in k13384 in k13381 in k13378 in k13375 in k13372 in k13369 in k13360 */ static void C_ccall f_13392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_13392,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13395,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13402,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13406,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:926: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=lf[392]; av2[4]=((C_word*)t0)[8]; av2[5]=C_retrieve2(lf[79],C_text("main#+link-file-extension+")); ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k13393 in k13390 in k13387 in k13384 in k13381 in k13378 in k13375 in k13372 in k13369 in k13360 */ static void C_ccall f_13395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13395,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k13400 in k13390 in k13387 in k13384 in k13381 in k13378 in k13375 in k13372 in k13369 in k13360 */ static void C_ccall f_13402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_13402,2,av);} /* egg-compile.scm:925: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[390]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[391]; av2[6]=((C_word*)t0)[5]; av2[7]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k13404 in k13390 in k13387 in k13384 in k13381 in k13378 in k13375 in k13372 in k13369 in k13360 */ static void C_ccall f_13406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13406,2,av);} a=C_alloc(3); /* egg-compile.scm:926: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13408 in k13387 in k13384 in k13381 in k13378 in k13375 in k13372 in k13369 in k13360 */ static void C_ccall f_13410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_13410,2,av);} /* egg-compile.scm:923: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[393]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[394]; av2[6]=((C_word*)t0)[5]; av2[7]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k13412 in k13387 in k13384 in k13381 in k13378 in k13375 in k13372 in k13369 in k13360 */ static void C_ccall f_13414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13414,2,av);} a=C_alloc(3); /* egg-compile.scm:924: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13416 in k13372 in k13369 in k13360 */ static void C_ccall f_13418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13418,2,av);} a=C_alloc(3); /* egg-compile.scm:918: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13420 in k13369 in k13360 */ static void C_ccall f_13422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13422,2,av);} a=C_alloc(3); /* egg-compile.scm:916: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13424 in k13369 in k13360 */ static void C_ccall f_13426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13426,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:916: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_a_i_list(&a,1,C_SCHEME_TRUE));}} /* main#install-dynamic-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_13437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,4)))){ C_save_and_reclaim((void*)f_13437,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13444,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13508,tmp=(C_word)a,a+=2,tmp); /* egg-compile.scm:930: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t6; av2[2]=lf[411]; av2[3]=t3; av2[4]=t7; tp(5,av2);}} /* k13442 in main#install-dynamic-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_13444,2,av);} a=C_alloc(6); t2=t1; t3=C_i_get_keyword(lf[133],((C_word*)t0)[2],C_SCHEME_FALSE); t4=t3; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13448,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* f_13448 in k13442 in main#install-dynamic-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_13448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_13448,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13452,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t2,a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:89: scheme#string-append */ t5=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[23],C_text("main#default-install-program")); av2[3]=lf[409]; av2[4]=C_retrieve2(lf[24],C_text("main#default-install-program-executable-flags")); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k13450 */ static void C_ccall f_13452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_13452,2,av);} a=C_alloc(14); t2=t1; t3=( /* egg-compile.scm:934: remove-file-command */ f_8808(((C_word*)t0)[2]) ); t4=t3; t5=( /* egg-compile.scm:935: mkdir-command */ f_8777(((C_word*)t0)[2]) ); t6=t5; t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13461,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t4,a[6]=t6,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); t8=t7; t9=((C_word*)t0)[7]; t10=((C_word*)t0)[8]; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23239,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t12=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* k13459 in k13450 */ static void C_ccall f_13461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_13461,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13464,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13502,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13506,a[2]=((C_word*)t0)[9],a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* egg-compile.scm:937: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t1; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k13462 in k13459 in k13450 */ static void C_ccall f_13464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_13464,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13467,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:938: destination-repository */ f_8240(t3,((C_word*)t0)[9],C_SCHEME_END_OF_LIST);} /* k13465 in k13462 in k13459 in k13450 */ static void C_ccall f_13467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_13467,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13470,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* egg-compile.scm:939: qs* */ f_14498(t3,t2,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13468 in k13465 in k13462 in k13459 in k13450 */ static void C_ccall f_13470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_13470,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13473,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* egg-compile.scm:940: shell-variable */ f_14759(t3,lf[408],((C_word*)t0)[3]);} /* k13471 in k13468 in k13465 in k13462 in k13459 in k13450 */ static void C_ccall f_13473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_13473,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13476,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13498,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:941: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=lf[407]; av2[4]=((C_word*)t0)[10]; av2[5]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k13474 in k13471 in k13468 in k13465 in k13462 in k13459 in k13450 */ static void C_ccall f_13476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_13476,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13479,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:942: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t3; av2[2]=lf[405]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[406]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} /* k13477 in k13474 in k13471 in k13468 in k13465 in k13462 in k13459 in k13450 */ static void C_ccall f_13479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_13479,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13482,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_eqp(((C_word*)t0)[3],lf[32]); if(C_truep(t3)){ /* egg-compile.scm:944: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=lf[404]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_13482(2,av2);}}} /* k13480 in k13477 in k13474 in k13471 in k13468 in k13465 in k13462 in k13459 in k13450 */ static void C_ccall f_13482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_13482,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13485,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:945: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[402]; av2[4]=((C_word*)t0)[5]; av2[5]=lf[403]; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in k13465 in k13462 in k13459 in k13450 */ static void C_ccall f_13485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13485,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k13496 in k13471 in k13468 in k13465 in k13462 in k13459 in k13450 */ static void C_ccall f_13498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13498,2,av);} a=C_alloc(3); /* egg-compile.scm:941: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13500 in k13459 in k13450 */ static void C_ccall f_13502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13502,2,av);} a=C_alloc(3); /* egg-compile.scm:937: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13504 in k13459 in k13450 */ static void C_ccall f_13506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13506,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:937: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_a_i_list(&a,1,C_SCHEME_TRUE));}} /* a13507 in main#install-dynamic-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13508,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=lf[410]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#install-import-library in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_13511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_13511,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13516,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* f_13516 in main#install-import-library in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,8)))){ C_save_and_reclaim((void *)f_13516,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13520,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:950: install-dynamic-extension */ t5=C_retrieve2(lf[213],C_text("main#install-dynamic-extension"));{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=lf[125]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[411]; av2[6]=lf[412]; av2[7]=lf[133]; av2[8]=((C_word*)t0)[2]; f_13437(9,av2);}} /* k13518 */ static void C_ccall f_13520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13520,2,av);} /* egg-compile.scm:948: g3106 */ t2=t1;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* main#install-import-library-source in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_13525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_13525,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13530,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* f_13530 in main#install-import-library-source in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_13530,4,av);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13534,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:93: scheme#string-append */ t5=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[23],C_text("main#default-install-program")); av2[3]=lf[401]; av2[4]=C_retrieve2(lf[25],C_text("main#default-install-program-data-flags")); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k13532 */ static void C_ccall f_13534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_13534,2,av);} a=C_alloc(12); t2=t1; t3=( /* egg-compile.scm:957: mkdir-command */ f_8777(((C_word*)t0)[2]) ); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13540,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t6=t5; t7=((C_word*)t0)[6]; t8=((C_word*)t0)[4]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23245,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t10=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k13538 in k13532 */ static void C_ccall f_13540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_13540,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13573,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13577,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* egg-compile.scm:959: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t1; av2[3]=lf[420]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k13541 in k13538 in k13532 */ static void C_ccall f_13543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_13543,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13546,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* egg-compile.scm:961: destination-repository */ f_8240(t3,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);} /* k13544 in k13541 in k13538 in k13532 */ static void C_ccall f_13546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_13546,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13549,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:962: qs* */ f_14498(t3,t2,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13547 in k13544 in k13541 in k13538 in k13532 */ static void C_ccall f_13549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_13549,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13552,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:963: shell-variable */ f_14759(t3,lf[419],((C_word*)t0)[3]);} /* k13550 in k13547 in k13544 in k13541 in k13538 in k13532 */ static void C_ccall f_13552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_13552,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:964: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t3; av2[2]=lf[417]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[418]; av2[5]=t2; av2[6]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} /* k13553 in k13550 in k13547 in k13544 in k13541 in k13538 in k13532 */ static void C_ccall f_13555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_13555,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13558,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13565,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13569,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:966: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=lf[415]; av2[4]=((C_word*)t0)[8]; av2[5]=lf[416]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k13556 in k13553 in k13550 in k13547 in k13544 in k13541 in k13538 in k13532 */ static void C_ccall f_13558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13558,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k13563 in k13553 in k13550 in k13547 in k13544 in k13541 in k13538 in k13532 */ static void C_ccall f_13565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_13565,2,av);} /* egg-compile.scm:965: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[413]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[414]; av2[6]=((C_word*)t0)[5]; av2[7]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k13567 in k13553 in k13550 in k13547 in k13544 in k13541 in k13538 in k13532 */ static void C_ccall f_13569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13569,2,av);} a=C_alloc(3); /* egg-compile.scm:966: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13571 in k13538 in k13532 */ static void C_ccall f_13573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13573,2,av);} a=C_alloc(3); /* egg-compile.scm:959: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13575 in k13538 in k13532 */ static void C_ccall f_13577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13577,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:959: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_a_i_list(&a,1,C_SCHEME_TRUE));}} /* main#install-types-file in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_13579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_13579,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[126],t3,C_SCHEME_FALSE); t7=t6; t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13587,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* f_13587 in main#install-types-file in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_13587,4,av);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13591,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:93: scheme#string-append */ t5=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[23],C_text("main#default-install-program")); av2[3]=lf[401]; av2[4]=C_retrieve2(lf[25],C_text("main#default-install-program-data-flags")); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k13589 */ static void C_ccall f_13591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_13591,2,av);} a=C_alloc(16); t2=t1; t3=( /* egg-compile.scm:972: mkdir-command */ f_8777(((C_word*)t0)[2]) ); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13597,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13627,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13631,a[2]=t6,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:973: chicken.string#conc */ t8=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[4]; av2[3]=lf[428]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k13595 in k13589 */ static void C_ccall f_13597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_13597,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13600,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* egg-compile.scm:975: destination-repository */ f_8240(t3,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);} /* k13598 in k13595 in k13589 */ static void C_ccall f_13600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_13600,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13603,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:976: qs* */ f_14498(t3,t2,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13601 in k13598 in k13595 in k13589 */ static void C_ccall f_13603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_13603,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13606,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:977: shell-variable */ f_14759(t3,lf[427],((C_word*)t0)[3]);} /* k13604 in k13601 in k13598 in k13595 in k13589 */ static void C_ccall f_13606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_13606,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13609,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:978: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t3; av2[2]=lf[425]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[426]; av2[5]=t2; av2[6]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} /* k13607 in k13604 in k13601 in k13598 in k13595 in k13589 */ static void C_ccall f_13609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_13609,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13612,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13619,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13623,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:980: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=lf[423]; av2[4]=((C_word*)t0)[8]; av2[5]=lf[424]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k13610 in k13607 in k13604 in k13601 in k13598 in k13595 in k13589 */ static void C_ccall f_13612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13612,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k13617 in k13607 in k13604 in k13601 in k13598 in k13595 in k13589 */ static void C_ccall f_13619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_13619,2,av);} /* egg-compile.scm:979: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[421]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[422]; av2[6]=((C_word*)t0)[5]; av2[7]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k13621 in k13607 in k13604 in k13601 in k13598 in k13595 in k13589 */ static void C_ccall f_13623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13623,2,av);} a=C_alloc(3); /* egg-compile.scm:980: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13625 in k13589 */ static void C_ccall f_13627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13627,2,av);} a=C_alloc(3); /* egg-compile.scm:973: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13629 in k13589 */ static void C_ccall f_13631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_13631,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23251,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* main#install-inline-file in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_13633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_13633,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[127],t3,C_SCHEME_FALSE); t7=t6; t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13641,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* f_13641 in main#install-inline-file in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_13641,4,av);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13645,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:93: scheme#string-append */ t5=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[23],C_text("main#default-install-program")); av2[3]=lf[401]; av2[4]=C_retrieve2(lf[25],C_text("main#default-install-program-data-flags")); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k13643 */ static void C_ccall f_13645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_13645,2,av);} a=C_alloc(16); t2=t1; t3=( /* egg-compile.scm:986: mkdir-command */ f_8777(((C_word*)t0)[2]) ); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13651,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13681,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13685,a[2]=t6,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:987: chicken.string#conc */ t8=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[4]; av2[3]=lf[436]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k13649 in k13643 */ static void C_ccall f_13651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_13651,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13654,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* egg-compile.scm:989: destination-repository */ f_8240(t3,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);} /* k13652 in k13649 in k13643 */ static void C_ccall f_13654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_13654,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:990: qs* */ f_14498(t3,t2,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13655 in k13652 in k13649 in k13643 */ static void C_ccall f_13657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_13657,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13660,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:991: shell-variable */ f_14759(t3,lf[435],((C_word*)t0)[3]);} /* k13658 in k13655 in k13652 in k13649 in k13643 */ static void C_ccall f_13660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_13660,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13663,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:992: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t3; av2[2]=lf[433]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[434]; av2[5]=t2; av2[6]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} /* k13661 in k13658 in k13655 in k13652 in k13649 in k13643 */ static void C_ccall f_13663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_13663,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13666,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13673,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13677,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:994: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=lf[431]; av2[4]=((C_word*)t0)[8]; av2[5]=lf[432]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k13664 in k13661 in k13658 in k13655 in k13652 in k13649 in k13643 */ static void C_ccall f_13666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13666,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k13671 in k13661 in k13658 in k13655 in k13652 in k13649 in k13643 */ static void C_ccall f_13673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_13673,2,av);} /* egg-compile.scm:993: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[429]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[430]; av2[6]=((C_word*)t0)[5]; av2[7]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k13675 in k13661 in k13658 in k13655 in k13652 in k13649 in k13643 */ static void C_ccall f_13677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13677,2,av);} a=C_alloc(3); /* egg-compile.scm:994: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13679 in k13643 */ static void C_ccall f_13681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13681,2,av);} a=C_alloc(3); /* egg-compile.scm:987: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13683 in k13643 */ static void C_ccall f_13685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_13685,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23257,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* main#install-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_13687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,4)))){ C_save_and_reclaim((void*)f_13687,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[133],t3,C_SCHEME_FALSE); t7=t6; t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13695,a[2]=t7,a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* f_13695 in main#install-program in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_13695,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13699,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); /* egg-compile.scm:89: scheme#string-append */ t5=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[23],C_text("main#default-install-program")); av2[3]=lf[409]; av2[4]=C_retrieve2(lf[24],C_text("main#default-install-program-executable-flags")); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k13697 */ static void C_ccall f_13699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_13699,2,av);} a=C_alloc(14); t2=t1; t3=( /* egg-compile.scm:999: remove-file-command */ f_8808(((C_word*)t0)[2]) ); t4=t3; t5=( /* egg-compile.scm:1000: mkdir-command */ f_8777(((C_word*)t0)[2]) ); t6=t5; t7=( /* egg-compile.scm:1001: executable-extension */ f_8739(((C_word*)t0)[2]) ); t8=t7; t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13711,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t4,a[6]=t6,a[7]=((C_word*)t0)[4],a[8]=t8,a[9]=((C_word*)t0)[5],tmp=(C_word)a,a+=10,tmp); t10=t9; t11=((C_word*)t0)[6]; t12=((C_word*)t0)[7]; t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23263,a[2]=t10,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t14=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t13; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} /* k13709 in k13697 */ static void C_ccall f_13711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_13711,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13714,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13758,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13762,a[2]=((C_word*)t0)[9],a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* egg-compile.scm:1003: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t1; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k13712 in k13709 in k13697 */ static void C_ccall f_13714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_13714,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13717,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_eqp(((C_word*)t0)[9],lf[54]); if(C_truep(t4)){ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_retrieve2(lf[29],C_text("main#default-bindir")); f_13717(2,av2);}} else{ /* egg-compile.scm:1006: override-prefix */ t5=C_retrieve2(lf[82],C_text("main#override-prefix")); f_8692(t5,t3,lf[444],C_retrieve2(lf[40],C_text("main#host-bindir")));}} /* k13715 in k13712 in k13709 in k13697 */ static void C_ccall f_13717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_13717,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13720,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* egg-compile.scm:1007: qs* */ f_14498(t3,t2,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13718 in k13715 in k13712 in k13709 in k13697 */ static void C_ccall f_13720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_13720,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13723,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* egg-compile.scm:1008: shell-variable */ f_14759(t3,lf[443],((C_word*)t0)[3]);} /* k13721 in k13718 in k13715 in k13712 in k13709 in k13697 */ static void C_ccall f_13723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_13723,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13726,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13748,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1009: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=lf[442]; av2[4]=((C_word*)t0)[10]; av2[5]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k13724 in k13721 in k13718 in k13715 in k13712 in k13709 in k13697 */ static void C_ccall f_13726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_13726,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13729,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:1010: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t3; av2[2]=lf[440]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[441]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} /* k13727 in k13724 in k13721 in k13718 in k13715 in k13712 in k13709 in k13697 */ static void C_ccall f_13729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_13729,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13732,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_eqp(((C_word*)t0)[3],lf[32]); if(C_truep(t3)){ /* egg-compile.scm:1012: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=lf[439]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_13732(2,av2);}}} /* k13730 in k13727 in k13724 in k13721 in k13718 in k13715 in k13712 in k13709 in k13697 */ static void C_ccall f_13732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_13732,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13735,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1013: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[437]; av2[4]=((C_word*)t0)[5]; av2[5]=lf[438]; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k13733 in k13730 in k13727 in k13724 in k13721 in k13718 in k13715 in k13712 in k13709 in k13697 */ static void C_ccall f_13735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13735,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k13746 in k13721 in k13718 in k13715 in k13712 in k13709 in k13697 */ static void C_ccall f_13748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13748,2,av);} a=C_alloc(3); /* egg-compile.scm:1009: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13756 in k13709 in k13697 */ static void C_ccall f_13758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13758,2,av);} a=C_alloc(3); /* egg-compile.scm:1003: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13760 in k13709 in k13697 */ static void C_ccall f_13762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13762,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],lf[54]); if(C_truep(t2)){ /* egg-compile.scm:1211: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[263]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; /* egg-compile.scm:1003: qs* */ f_14498(((C_word*)t0)[4],t3,((C_word*)t0)[5],C_a_i_list(&a,1,C_SCHEME_TRUE));}} /* main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_13764(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_13764,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13768,a[2]=t5,a[3]=t4,a[4]=t3,a[5]=t2,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:93: scheme#string-append */ t7=*((C_word*)lf[83]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=C_retrieve2(lf[23],C_text("main#default-install-program")); av2[3]=lf[401]; av2[4]=C_retrieve2(lf[25],C_text("main#default-install-program-data-flags")); ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_13768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_13768,2,av);} a=C_alloc(9); t2=t1; t3=( /* egg-compile.scm:1018: copy-directory-command */ f_8758(((C_word*)t0)[2]) ); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13774,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=t2,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:1019: scheme#string-append */ t6=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=lf[458]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_13774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_13774,2,av);} a=C_alloc(25); t2=( /* egg-compile.scm:1020: mkdir-command */ f_8777(((C_word*)t0)[2]) ); t3=t2; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13781,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t9=((C_word*)t0)[4]; t10=C_i_check_list_2(t9,lf[8]); t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13791,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13961,a[2]=t6,a[3]=t13,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_13961(t15,t11,t9);} /* g3208 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_13781(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_13781,3,t0,t1,t2);} a=C_alloc(4); t3=C_retrieve2(lf[446],C_text("main#prefix")); t4=t1; t5=((C_word*)t0)[2]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23269,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t7=C_fast_retrieve(lf[172]);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_13791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_13791,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13794,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:1022: qs* */ f_14498(t3,((C_word*)t0)[4],((C_word*)t0)[2],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_13794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_13794,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13797,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* egg-compile.scm:1023: shell-variable */ f_14759(t3,lf[457],((C_word*)t0)[3]);} /* k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_13797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,6)))){ C_save_and_reclaim((void *)f_13797,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13800,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* egg-compile.scm:1024: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t3; av2[2]=lf[455]; av2[3]=((C_word*)t0)[7]; av2[4]=lf[456]; av2[5]=t2; av2[6]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} /* k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_13800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_13800,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13805,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13811,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:1025: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[11]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a13804 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_13805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_13805,2,av);} a=C_alloc(6); t2=C_fast_retrieve(lf[447]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6798,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_6798(t6,t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]);} /* a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_13811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_13811,4,av);} a=C_alloc(26); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t6=C_i_check_list_2(t2,lf[118]); t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13861,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=t1,tmp=(C_word)a,a+=11,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13938,a[2]=t9,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_13938(t11,t7,t2);} /* g3247 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_13813(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_13813,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13817,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t2,a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:1028: strip-dir-prefix */ f_14831(t3,((C_word*)t0)[8],t2);} /* k13815 in g3247 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_13817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_13817,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13820,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:1029: chicken.pathname#pathname-directory */ t3=C_fast_retrieve(lf[66]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k13818 in k13815 in g3247 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_13820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_13820,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13823,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13851,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13855,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1032: chicken.pathname#make-pathname */ t6=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_13823(2,av2);}}} /* k13821 in k13818 in k13815 in g3247 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_13823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_13823,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13833,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:1033: qs* */ f_14498(t3,((C_word*)t0)[9],((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13824 in k13821 in k13818 in k13815 in g3247 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_13826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13826,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k13831 in k13821 in k13818 in k13815 in g3247 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_13833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,7)))){ C_save_and_reclaim((void *)f_13833,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13837,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13844,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1036: chicken.pathname#make-pathname */ t5=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* egg-compile.scm:1033: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[448]; av2[4]=t2; av2[5]=lf[449]; av2[6]=((C_word*)t0)[4]; av2[7]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}}} /* k13835 in k13831 in k13821 in k13818 in k13815 in g3247 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_13837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_13837,2,av);} /* egg-compile.scm:1033: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[448]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[449]; av2[6]=((C_word*)t0)[5]; av2[7]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k13842 in k13831 in k13821 in k13818 in k13815 in g3247 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_13844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13844,2,av);} a=C_alloc(3); /* egg-compile.scm:1036: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13849 in k13818 in k13815 in g3247 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_13851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_13851,2,av);} /* egg-compile.scm:1031: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[450]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k13853 in k13818 in k13815 in g3247 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_13855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13855,2,av);} a=C_alloc(3); /* egg-compile.scm:1032: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_13861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_13861,2,av);} a=C_alloc(15); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13868,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13915,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_13915(t6,((C_word*)t0)[10],((C_word*)t0)[2]);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g3269 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_fcall f_13868(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_13868,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13872,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t2,a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:1043: strip-dir-prefix */ f_14831(t3,((C_word*)t0)[8],t2);} /* k13870 in g3269 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_13872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_13872,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13875,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:1044: chicken.pathname#pathname-directory */ t3=C_fast_retrieve(lf[66]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k13873 in k13870 in g3269 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_13875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_13875,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13878,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13906,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13910,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1047: chicken.pathname#make-pathname */ t6=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_13878(2,av2);}}} /* k13876 in k13873 in k13870 in g3269 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_13878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_13878,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13881,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13888,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:1048: qs* */ f_14498(t3,((C_word*)t0)[9],((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k13879 in k13876 in k13873 in k13870 in g3269 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_13881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13881,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ /* egg-compile.scm:1237: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=lf[226]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k13886 in k13876 in k13873 in k13870 in g3269 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_13888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,7)))){ C_save_and_reclaim((void *)f_13888,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13892,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13899,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1051: chicken.pathname#make-pathname */ t5=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* egg-compile.scm:1048: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[452]; av2[4]=t2; av2[5]=lf[453]; av2[6]=((C_word*)t0)[4]; av2[7]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}}} /* k13890 in k13886 in k13876 in k13873 in k13870 in g3269 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_13892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_13892,2,av);} /* egg-compile.scm:1048: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[452]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[453]; av2[6]=((C_word*)t0)[5]; av2[7]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k13897 in k13886 in k13876 in k13873 in k13870 in g3269 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_13899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13899,2,av);} a=C_alloc(3); /* egg-compile.scm:1051: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k13904 in k13873 in k13870 in g3269 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_13906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_13906,2,av);} /* egg-compile.scm:1046: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[454]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k13908 in k13873 in k13870 in g3269 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_13910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_13910,2,av);} a=C_alloc(3); /* egg-compile.scm:1047: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* for-each-loop3268 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_fcall f_13915(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_13915,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13925,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:1041: g3269 */ t5=((C_word*)t0)[3]; f_13868(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13923 in for-each-loop3268 in k13859 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_13925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13925,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13915(t3,((C_word*)t0)[4],t2);} /* for-each-loop3246 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_13938(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_13938,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13948,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:1026: g3247 */ t5=((C_word*)t0)[3]; f_13813(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13946 in for-each-loop3246 in a13810 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_13948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13948,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_13938(t3,((C_word*)t0)[4],t2);} /* map-loop3202 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_13961(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_13961,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13986,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:1021: g3208 */ t5=((C_word*)t0)[4]; f_13781(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k13984 in map-loop3202 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_13986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13986,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_13961(t6,((C_word*)t0)[5],t5);} /* main#install-data in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_13995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,4)))){ C_save_and_reclaim((void*)f_13995,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t4=C_i_get_keyword(lf[152],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[153],t3,C_SCHEME_FALSE); t7=t6; t8=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t9=t8; t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14006,a[2]=t5,a[3]=t7,a[4]=t9,tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* f_14006 in main#install-data in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_14006,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14014,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[3])){ /* egg-compile.scm:1058: install-random-files */ f_13764(t1,((C_word*)t0)[3],((C_word*)t0)[2],t2,t3);} else{ t5=C_eqp(((C_word*)t0)[4],lf[54]); if(C_truep(t5)){ t6=C_retrieve2(lf[30],C_text("main#default-sharedir")); t7=C_retrieve2(lf[30],C_text("main#default-sharedir")); /* egg-compile.scm:1058: install-random-files */ f_13764(t1,C_retrieve2(lf[30],C_text("main#default-sharedir")),((C_word*)t0)[2],t2,t3);} else{ /* egg-compile.scm:1061: override-prefix */ t6=C_retrieve2(lf[82],C_text("main#override-prefix")); f_8692(t6,t4,lf[459],C_retrieve2(lf[42],C_text("main#host-sharedir")));}}} /* k14012 */ static void C_ccall f_14014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_14014,2,av);} /* egg-compile.scm:1058: install-random-files */ f_13764(((C_word*)t0)[2],t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* main#install-c-include in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_14025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,4)))){ C_save_and_reclaim((void*)f_14025,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t4=C_i_get_keyword(lf[152],t3,C_SCHEME_FALSE); t5=t4; t6=C_i_get_keyword(lf[153],t3,C_SCHEME_FALSE); t7=t6; t8=C_i_get_keyword(lf[125],t3,C_SCHEME_FALSE); t9=t8; t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14039,a[2]=t5,a[3]=t7,a[4]=t9,tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* f_14039 in main#install-c-include in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_14039,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14047,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[3])){ /* egg-compile.scm:1067: install-random-files */ f_13764(t1,((C_word*)t0)[3],((C_word*)t0)[2],t2,t3);} else{ t5=C_eqp(((C_word*)t0)[4],lf[54]); if(C_truep(t5)){ t6=C_retrieve2(lf[28],C_text("main#default-incdir")); t7=C_retrieve2(lf[28],C_text("main#default-incdir")); /* egg-compile.scm:1067: install-random-files */ f_13764(t1,C_retrieve2(lf[28],C_text("main#default-incdir")),((C_word*)t0)[2],t2,t3);} else{ /* egg-compile.scm:1070: override-prefix */ t6=C_retrieve2(lf[82],C_text("main#override-prefix")); f_8692(t6,t4,lf[460],C_retrieve2(lf[41],C_text("main#host-incdir")));}}} /* k14045 */ static void C_ccall f_14047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_14047,2,av);} /* egg-compile.scm:1067: install-random-files */ f_13764(((C_word*)t0)[2],t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14058(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){ C_word tmp; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ C_save_and_reclaim_args((void *)trf_14058,8,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(20); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_FALSE; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14064,a[2]=t12,a[3]=t10,tmp=(C_word)a,a+=4,tmp); t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14069,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t7,a[6]=t6,a[7]=t4,tmp=(C_word)a,a+=8,tmp); t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14129,a[2]=t10,a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1078: ##sys#dynamic-wind */ t16=*((C_word*)lf[149]+1);{ C_word av2[5]; av2[0]=t16; av2[1]=t1; av2[2]=t13; av2[3]=t14; av2[4]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} /* a14063 in main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14064,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[81],C_text("main#keep-generated-files"))); t3=C_mutate(&lf[81] /* (set! main#keep-generated-files ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a14068 in main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_14069,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14075,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:1079: scheme#with-output-to-file */ t3=C_fast_retrieve(lf[464]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[7]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a14074 in a14068 in main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_14075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_14075,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14079,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:1081: prefix */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k14077 in a14074 in a14068 in main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_14079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_14079,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14082,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14127,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:1082: qs* */ f_14498(t3,((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k14080 in k14077 in a14074 in a14068 in main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_14082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_14082,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14083,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=C_i_check_list_2(t3,lf[118]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14093,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14098,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_14098(t9,t5,t3);} /* g3340 in k14080 in k14077 in a14074 in a14068 in main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_14083(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_14083,3,t0,t1,t2);} /* egg-compile.scm:1084: cmd */ t3=t2;{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* k14091 in k14080 in k14077 in a14074 in a14068 in main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_14093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14093,2,av);} /* egg-compile.scm:1086: suffix */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* for-each-loop3339 in k14080 in k14077 in a14074 in a14068 in main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_14098(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_14098,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14108,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:1083: g3340 */ t5=((C_word*)t0)[3]; f_14083(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k14106 in for-each-loop3339 in k14080 in k14077 in a14074 in a14068 in main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_14108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14108,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_14098(t3,((C_word*)t0)[4],t2);} /* k14125 in k14077 in a14074 in a14068 in main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_14127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14127,2,av);} /* egg-compile.scm:1082: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[462]; av2[3]=lf[463]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a14128 in main#generate-shell-commands in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14129,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_retrieve2(lf[81],C_text("main#keep-generated-files"))); t3=C_mutate(&lf[81] /* (set! main#keep-generated-files ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* main#build-prefix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14134(C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,0,3)))){ C_save_and_reclaim_args((void *)trf_14134,1,t1);} a=C_alloc(2); t2=t1;{ C_word av2[2]; av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14136,tmp=(C_word)a,a+=2,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_14136 in main#build-prefix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14136,3,av);} a=C_alloc(5); t3=t2; t4=C_eqp(t3,lf[32]); if(C_truep(t4)){ t5=*((C_word*)lf[466]+1); t6=*((C_word*)lf[466]+1); t7=C_i_check_port_2(*((C_word*)lf[466]+1),C_fix(2),C_SCHEME_TRUE,lf[467]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14149,a[2]=t1,a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1094: ##sys#print */ t9=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=lf[475]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[466]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t5=C_eqp(t3,lf[31]); if(C_truep(t5)){ t6=*((C_word*)lf[466]+1); t7=*((C_word*)lf[466]+1); t8=C_i_check_port_2(*((C_word*)lf[466]+1),C_fix(2),C_SCHEME_TRUE,lf[467]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14217,a[2]=t1,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1108: ##sys#print */ t10=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t9; av2[2]=lf[481]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[466]+1); ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* k14147 */ static void C_ccall f_14149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14149,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14152,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1094: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k14150 in k14147 */ static void C_ccall f_14152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14152,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14155,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1094: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[474]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14153 in k14150 in k14147 */ static void C_ccall f_14155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_14155,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14158,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14205,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1104: qs* */ f_14498(t3,C_retrieve2(lf[29],C_text("main#default-bindir")),((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14158,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14161,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1094: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[473]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_14161,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14164,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14201,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1104: qs* */ f_14498(t3,C_retrieve2(lf[21],C_text("main#default-cc")),((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k14162 in k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14164,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14167,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1094: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[472]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_14167,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14170,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14197,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1105: qs* */ f_14498(t3,C_retrieve2(lf[22],C_text("main#default-cxx")),((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k14168 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14170,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1094: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[471]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14171 in k14168 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_14173,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14176,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14193,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1105: qs* */ f_14498(t3,C_retrieve2(lf[34],C_text("main#default-csc")),((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k14174 in k14171 in k14168 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14176,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14179,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1094: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[470]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14177 in k14174 in k14171 in k14168 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_14179,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14182,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14189,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1106: qs* */ f_14498(t3,C_retrieve2(lf[35],C_text("main#default-csi")),((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k14180 in k14177 in k14174 in k14171 in k14168 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14182,2,av);} /* egg-compile.scm:1094: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k14187 in k14177 in k14174 in k14171 in k14168 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14189,2,av);} /* egg-compile.scm:1094: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14191 in k14171 in k14168 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14193,2,av);} /* egg-compile.scm:1094: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14195 in k14165 in k14162 in k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14197,2,av);} /* egg-compile.scm:1094: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14199 in k14159 in k14156 in k14153 in k14150 in k14147 */ static void C_ccall f_14201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14201,2,av);} /* egg-compile.scm:1094: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14203 in k14153 in k14150 in k14147 */ static void C_ccall f_14205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14205,2,av);} /* egg-compile.scm:1094: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14215 */ static void C_ccall f_14217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14217,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14220,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1108: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k14218 in k14215 */ static void C_ccall f_14220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14220,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14223,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1108: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[480]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14221 in k14218 in k14215 */ static void C_ccall f_14223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_14223,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14226,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14273,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1117: qs* */ f_14498(t3,C_retrieve2(lf[29],C_text("main#default-bindir")),((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14226,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14229,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1108: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[479]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_14229,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14232,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14269,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1117: qs* */ f_14498(t3,C_retrieve2(lf[21],C_text("main#default-cc")),((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k14230 in k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14232,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14235,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1108: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[478]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14233 in k14230 in k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_14235,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14238,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14265,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1118: qs* */ f_14498(t3,C_retrieve2(lf[22],C_text("main#default-cxx")),((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k14236 in k14233 in k14230 in k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14238,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14241,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1108: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[477]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14239 in k14236 in k14233 in k14230 in k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_14241,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14244,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14261,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1118: qs* */ f_14498(t3,C_retrieve2(lf[34],C_text("main#default-csc")),((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k14242 in k14239 in k14236 in k14233 in k14230 in k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14244,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14247,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1108: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[476]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14245 in k14242 in k14239 in k14236 in k14233 in k14230 in k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_14247,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14250,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14257,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1119: qs* */ f_14498(t3,C_retrieve2(lf[35],C_text("main#default-csi")),((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} /* k14248 in k14245 in k14242 in k14239 in k14236 in k14233 in k14230 in k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14250,2,av);} /* egg-compile.scm:1108: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k14255 in k14245 in k14242 in k14239 in k14236 in k14233 in k14230 in k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14257,2,av);} /* egg-compile.scm:1108: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14259 in k14239 in k14236 in k14233 in k14230 in k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14261,2,av);} /* egg-compile.scm:1108: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14263 in k14233 in k14230 in k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14265,2,av);} /* egg-compile.scm:1108: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14267 in k14227 in k14224 in k14221 in k14218 in k14215 */ static void C_ccall f_14269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14269,2,av);} /* egg-compile.scm:1108: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14271 in k14221 in k14218 in k14215 */ static void C_ccall f_14273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14273,2,av);} /* egg-compile.scm:1108: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* main#build-suffix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14279(C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,0,3)))){ C_save_and_reclaim_args((void *)trf_14279,1,t1);} a=C_alloc(2); t2=t1;{ C_word av2[2]; av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14281,tmp=(C_word)a,a+=2,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_14281 in main#build-suffix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14281,3,av);} t3=C_eqp(t2,lf[32]); if(C_truep(t3)){ t4=*((C_word*)lf[466]+1); t5=*((C_word*)lf[466]+1); t6=C_i_check_port_2(*((C_word*)lf[466]+1),C_fix(2),C_SCHEME_TRUE,lf[467]); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_eqp(t2,lf[31]); if(C_truep(t4)){ t5=*((C_word*)lf[466]+1); t6=*((C_word*)lf[466]+1); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_i_check_port_2(*((C_word*)lf[466]+1),C_fix(2),C_SCHEME_TRUE,lf[467]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* main#install-prefix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14306(C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,0,3)))){ C_save_and_reclaim_args((void *)trf_14306,1,t1);} a=C_alloc(2); t2=t1;{ C_word av2[2]; av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14308,tmp=(C_word)a,a+=2,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_14308 in main#install-prefix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_14308,3,av);} a=C_alloc(4); t3=C_eqp(t2,lf[32]); if(C_truep(t3)){ t4=*((C_word*)lf[466]+1); t5=*((C_word*)lf[466]+1); t6=C_i_check_port_2(*((C_word*)lf[466]+1),C_fix(2),C_SCHEME_TRUE,lf[467]); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14321,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1135: ##sys#print */ t8=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=lf[485]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[466]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t4=C_eqp(t2,lf[31]); if(C_truep(t4)){ t5=*((C_word*)lf[466]+1); t6=*((C_word*)lf[466]+1); t7=C_i_check_port_2(*((C_word*)lf[466]+1),C_fix(2),C_SCHEME_TRUE,lf[467]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14339,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1142: ##sys#print */ t9=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=lf[486]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[466]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* k14319 */ static void C_ccall f_14321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14321,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14324,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1135: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k14322 in k14319 */ static void C_ccall f_14324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14324,2,av);} /* egg-compile.scm:1135: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[484]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14337 */ static void C_ccall f_14339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14339,2,av);} /* egg-compile.scm:1142: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* main#install-suffix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14348(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_14348,4,t1,t2,t3,t4);} a=C_alloc(5); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14350,a[2]=t3,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* f_14350 in main#install-suffix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_14350,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14354,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14492,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:1148: chicken.port#with-output-to-string */ t5=C_fast_retrieve(lf[498]);{ C_word *av2=av; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k14352 */ static void C_ccall f_14354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_14354,2,av);} a=C_alloc(8); t2=t1; t3=( /* egg-compile.scm:1149: remove-file-command */ f_8808(((C_word*)t0)[2]) ); t4=t3; t5=( /* egg-compile.scm:1150: mkdir-command */ f_8777(((C_word*)t0)[2]) ); t6=t5; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14363,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t4,a[6]=t6,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); /* egg-compile.scm:1151: destination-repository */ f_8240(t7,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k14361 in k14352 */ static void C_ccall f_14363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_14363,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14366,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:1152: qs* */ f_14498(t3,t2,((C_word*)t0)[2],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k14364 in k14361 in k14352 */ static void C_ccall f_14366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_14366,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14369,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14490,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1153: chicken.pathname#make-pathname */ t5=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; av2[4]=C_retrieve2(lf[45],C_text("main#+egg-info-extension+")); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_14369,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14372,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:1155: shell-variable */ f_14759(t3,lf[496],((C_word*)t0)[2]);} /* k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_14372,2,av);} a=C_alloc(10); t2=t1; t3=((C_word*)t0)[2]; t4=C_eqp(t3,lf[32]); if(C_truep(t4)){ t5=*((C_word*)lf[466]+1); t6=*((C_word*)lf[466]+1); t7=C_i_check_port_2(*((C_word*)lf[466]+1),C_fix(2),C_SCHEME_TRUE,lf[467]); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_14384,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* egg-compile.scm:1158: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t8; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[466]+1); tp(4,av2);}} else{ t5=C_eqp(t3,lf[31]); if(C_truep(t5)){ t6=*((C_word*)lf[466]+1); t7=*((C_word*)lf[466]+1); t8=C_i_check_port_2(*((C_word*)lf[466]+1),C_fix(2),C_SCHEME_TRUE,lf[467]); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14444,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:1169: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t9; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[466]+1); tp(4,av2);}} else{ t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_14384,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14387,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_14387,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14390,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:1158: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_14390,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_14393,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14396,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_14396,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14399,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* egg-compile.scm:1158: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k14397 in k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_14399,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14402,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14400 in k14397 in k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_14402,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14405,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:1158: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k14403 in k14400 in k14397 in k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_14405,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14408,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14406 in k14403 in k14400 in k14397 in k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_14408,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14411,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14409 in k14406 in k14403 in k14400 in k14397 in k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_14411,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14414,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[490]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14412 in k14409 in k14406 in k14403 in k14400 in k14397 in k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_14414,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14417,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14415 in k14412 in k14409 in k14406 in k14403 in k14400 in k14397 in k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14417,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14420,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14418 in k14415 in k14412 in k14409 in k14406 in k14403 in k14400 in k14397 in k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14420,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14423,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[489]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14421 in k14418 in k14415 in k14412 in k14409 in k14406 in k14403 in k14400 in k14397 in k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_14423,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14426,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14424 in k14421 in k14418 in k14415 in k14412 in k14409 in k14406 in k14403 in k14400 in k14397 in k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_14426,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14429,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1158: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[488]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14427 in k14424 in k14421 in k14418 in k14415 in k14412 in k14409 in k14406 in k14403 in k14400 in k14397 in k14394 in k14391 in k14388 in k14385 in k14382 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14429,2,av);} /* egg-compile.scm:1158: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_14444,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* egg-compile.scm:1169: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14445 in k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_14447,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14450,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* egg-compile.scm:1169: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k14448 in k14445 in k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_14450,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14453,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* egg-compile.scm:1169: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14451 in k14448 in k14445 in k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_14453,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14456,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:1169: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14454 in k14451 in k14448 in k14445 in k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_14456,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14459,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* egg-compile.scm:1169: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[495]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14457 in k14454 in k14451 in k14448 in k14445 in k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_14459,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14462,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14478,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14482,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:1175: chicken.string#string-split */ t5=C_fast_retrieve(lf[493]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=lf[494]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k14460 in k14457 in k14454 in k14451 in k14448 in k14445 in k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_14462,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14465,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* egg-compile.scm:1169: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[491]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14463 in k14460 in k14457 in k14454 in k14451 in k14448 in k14445 in k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_14465,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14468,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1169: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14466 in k14463 in k14460 in k14457 in k14454 in k14451 in k14448 in k14445 in k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_14468,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14471,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1169: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k14469 in k14466 in k14463 in k14460 in k14457 in k14454 in k14451 in k14448 in k14445 in k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14471,2,av);} /* egg-compile.scm:1169: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k14476 in k14457 in k14454 in k14451 in k14448 in k14445 in k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14478,2,av);} /* egg-compile.scm:1169: ##sys#print */ t2=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k14480 in k14457 in k14454 in k14451 in k14448 in k14445 in k14442 in k14370 in k14367 in k14364 in k14361 in k14352 */ static void C_ccall f_14482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14482,2,av);} /* egg-compile.scm:1175: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[259]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[492]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k14488 in k14364 in k14361 in k14352 */ static void C_ccall f_14490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_14490,2,av);} a=C_alloc(3); /* egg-compile.scm:1153: qs* */ f_14498(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* a14491 */ static void C_ccall f_14492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14492,2,av);} t2=C_fast_retrieve(lf[497]); /* egg-compile.scm:1148: g3457 */ t3=C_fast_retrieve(lf[497]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* main#qs* in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14498(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_14498,4,t1,t2,t3,t4);} a=C_alloc(5); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14505,a[2]=t3,a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:1186: chicken.string#->string */ t9=C_fast_retrieve(lf[172]);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k14503 in main#qs* in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14505,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14508,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ /* egg-compile.scm:1187: slashify */ f_14529(t2,t1,((C_word*)t0)[2]);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_14508(2,av2);}}} /* k14506 in k14503 in main#qs* in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_14508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14508,2,av);} t2=C_eqp(((C_word*)t0)[2],lf[31]); if(C_truep(t2)){ /* egg-compile.scm:1188: chicken.process#qs */ t3=C_fast_retrieve(lf[499]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=lf[500]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=((C_word*)t0)[2]; /* egg-compile.scm:1188: chicken.process#qs */ t4=C_fast_retrieve(lf[499]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* main#slashify in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14529(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_14529,3,t1,t2,t3);} a=C_alloc(10); t4=C_eqp(t3,lf[31]); if(C_truep(t4)){ t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14554,a[2]=t1,a[3]=t7,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* ##sys#string->list */ t10=C_fast_retrieve(lf[502]);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t5=t2; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k14552 in main#slashify in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_14554,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14557,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14559,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_14559(t6,t2,t1);} /* k14555 in k14552 in main#slashify in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_14557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14557,2,av);} /* ##sys#list->string */ t2=C_fast_retrieve(lf[501]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* map-loop3527 in k14552 in main#slashify in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_fcall f_14559(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_14559,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_char_equalp(C_make_character(47),t3); t5=(C_truep(t4)?C_make_character(92):t3); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); t9=C_slot(t2,C_fix(1)); t11=t1; t12=t9; t1=t11; t2=t12; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* main#prefix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_14593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14593,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14601,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k14599 in main#prefix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14601,2,av);} /* egg-compile.scm:1197: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* main#system+ in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14603(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_14603,3,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14611,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14614,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_eqp(t3,lf[31]); if(C_truep(t6)){ t7=C_i_string_length(t2); if(C_truep(C_i_fixnum_positivep(t7))){ t8=t2; t9=C_i_string_ref(t8,C_fix(0)); t10=C_u_i_char_equalp(C_make_character(34),t9); t11=t5; f_14614(t11,t10);} else{ t8=t5; f_14614(t8,C_SCHEME_FALSE);}} else{ t7=t5; f_14614(t7,C_SCHEME_FALSE);}} /* k14609 in main#system+ in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14611,2,av);} /* egg-compile.scm:1204: chicken.process#system */ t2=C_fast_retrieve(lf[504]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k14612 in main#system+ in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_fcall f_14614(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_14614,2,t0,t1);} if(C_truep(t1)){ /* egg-compile.scm:1207: scheme#string-append */ t2=*((C_word*)lf[83]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[505]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[506]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[3]; /* egg-compile.scm:1204: chicken.process#system */ t3=C_fast_retrieve(lf[504]);{ C_word av2[3]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* main#arglist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14645(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,0,3)))){ C_save_and_reclaim_args((void *)trf_14645,3,t1,t2,t3);} a=C_alloc(19); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14654,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t9=C_i_check_list_2(t2,lf[8]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14668,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14670,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_14670(t14,t10,t2);} /* g3574 in main#arglist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_fcall f_14654(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_14654,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14662,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:1214: qs* */ f_14498(t3,t2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);} /* k14660 in g3574 in main#arglist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_14662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14662,2,av);} /* egg-compile.scm:1214: chicken.string#conc */ t2=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[507]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k14666 in main#arglist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14668,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_fast_retrieve(lf[134]); av2[3]=t1; C_apply(4,av2);}} /* map-loop3568 in main#arglist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_fcall f_14670(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_14670,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14695,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:1214: g3574 */ t5=((C_word*)t0)[4]; f_14654(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k14693 in map-loop3568 in main#arglist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_14695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14695,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_14670(t6,((C_word*)t0)[5],t5);} /* main#filelist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14704(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){ C_save_and_reclaim_args((void *)trf_14704,4,t1,t2,t3,t4);} a=C_alloc(20); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14713,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t10=C_i_check_list_2(t3,lf[8]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14723,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14725,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_14725(t15,t11,t3);} /* g3605 in main#filelist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_fcall f_14713(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_14713,3,t0,t1,t2);} a=C_alloc(4); t3=C_retrieve2(lf[446],C_text("main#prefix")); t4=t1; t5=((C_word*)t0)[2]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23291,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t7=C_fast_retrieve(lf[172]);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k14721 in main#filelist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14723,2,av);} /* egg-compile.scm:1217: arglist */ f_14645(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* map-loop3599 in main#filelist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_fcall f_14725(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_14725,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14750,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:1217: g3605 */ t5=((C_word*)t0)[4]; f_14713(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k14748 in map-loop3599 in main#filelist in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_14750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14750,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_14725(t6,((C_word*)t0)[5],t5);} /* main#shell-variable in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14759(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_14759,3,t1,t2,t3);} t4=C_eqp(t3,lf[32]); if(C_truep(t4)){ /* egg-compile.scm:1221: scheme#string-append */ t5=*((C_word*)lf[83]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=lf[508]; av2[3]=t2; av2[4]=lf[509]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=C_eqp(t3,lf[31]); if(C_truep(t5)){ /* egg-compile.scm:1222: scheme#string-append */ t6=*((C_word*)lf[83]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=lf[510]; av2[3]=t2; av2[4]=lf[511]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* main#custom-cmd in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14796(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_14796,4,t1,t2,t3,t4);} a=C_alloc(8); if(C_truep(t2)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14807,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=C_eqp(t4,lf[31]); if(C_truep(t6)){ /* egg-compile.scm:1232: chicken.string#conc */ t7=C_fast_retrieve(lf[134]);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=t2; av2[3]=lf[512]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=t2; t8=t1; t9=t3; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23305,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t11=C_fast_retrieve(lf[172]);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k14805 in main#custom-cmd in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14807,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23299,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:1197: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* main#strip-dir-prefix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_14831(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_14831,3,t1,t2,t3);} a=C_alloc(6); t4=C_i_string_length(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14838,a[2]=t2,a[3]=t5,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* egg-compile.scm:1241: scheme#substring */ t7=*((C_word*)lf[513]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k14836 in main#strip-dir-prefix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_14838,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=C_u_i_string_equal_p(t2,t1); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14843,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ t5=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); /* egg-compile.scm:1243: scheme#substring */ t6=*((C_word*)lf[513]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ /* egg-compile.scm:1242: ##sys#error */ t5=*((C_word*)lf[514]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[515]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k14841 in k14836 in main#strip-dir-prefix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_14843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14843,2,av);} a=C_alloc(5); t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* egg-compile.scm:1243: scheme#substring */ t3=*((C_word*)lf[513]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_14872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14872,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14875,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:32: chicken.tcp#tcp-read-timeout */ t3=C_fast_retrieve(lf[952]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(30000); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_14875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14875,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14878,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:33: chicken.tcp#tcp-write-timeout */ t3=C_fast_retrieve(lf[951]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(30000); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_14878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_14878,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14882,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21670,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:35: chicken.platform#chicken-version */ t4=C_fast_retrieve(lf[799]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_14882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,8)))){ C_save_and_reclaim((void *)f_14882,2,av);} a=C_alloc(13); t2=C_mutate(&lf[516] /* (set! main#user-agent ...) */,t1); t3=C_mutate(&lf[517] /* (set! main#deconstruct-url ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14884,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate(&lf[524] /* (set! main#http-connect ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14971,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[542] /* (set! main#response-match-code? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15454,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[544] /* (set! main#make-HTTP-GET/1.1 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15494,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[591] /* (set! main#try-list-versions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15589,tmp=(C_word)a,a+=2,tmp)); t8=lf[609] /* main#user-defaults */ =C_SCHEME_FALSE;; t9=lf[610] /* main#quiet */ =C_SCHEME_TRUE;; t10=lf[611] /* main#default-servers */ =C_SCHEME_END_OF_LIST;; t11=lf[612] /* main#default-locations */ =C_SCHEME_END_OF_LIST;; t12=lf[613] /* main#mappings */ =C_SCHEME_END_OF_LIST;; t13=lf[614] /* main#aliases */ =C_SCHEME_END_OF_LIST;; t14=lf[615] /* main#override */ =C_SCHEME_END_OF_LIST;; t15=lf[616] /* main#hacks */ =C_SCHEME_END_OF_LIST;; t16=lf[599] /* main#proxy-host */ =C_SCHEME_FALSE;; t17=lf[600] /* main#proxy-port */ =C_SCHEME_FALSE;; t18=lf[601] /* main#proxy-user-pass */ =C_SCHEME_FALSE;; t19=lf[617] /* main#retrieve-only */ =C_SCHEME_FALSE;; t20=lf[618] /* main#retrieve-recursive */ =C_SCHEME_FALSE;; t21=lf[619] /* main#do-not-build */ =C_SCHEME_FALSE;; t22=lf[620] /* main#no-install */ =C_SCHEME_FALSE;; t23=lf[621] /* main#no-install-dependencies */ =C_SCHEME_FALSE;; t24=lf[622] /* main#list-versions-only */ =C_SCHEME_FALSE;; t25=lf[623] /* main#canonical-eggs */ =C_SCHEME_END_OF_LIST;; t26=lf[624] /* main#requested-eggs */ =C_SCHEME_END_OF_LIST;; t27=lf[625] /* main#dependencies */ =C_SCHEME_END_OF_LIST;; t28=lf[626] /* main#checked-eggs */ =C_SCHEME_END_OF_LIST;; t29=lf[627] /* main#run-tests */ =C_SCHEME_FALSE;; t30=lf[628] /* main#force-install */ =C_SCHEME_FALSE;; t31=lf[629] /* main#host-extension */ =C_retrieve2(lf[18],C_text("main#cross-chicken"));; t32=lf[630] /* main#target-extension */ =C_retrieve2(lf[18],C_text("main#cross-chicken"));; t33=lf[631] /* main#sudo-install */ =C_SCHEME_FALSE;; t34=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15953,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:94: chicken.process-context#get-environment-variable */ t35=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t35; av2[1]=t34; av2[2]=lf[949]; ((C_proc)(void*)(*((C_word*)t35+1)))(3,av2);}} /* main#deconstruct-url in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_fcall f_14884(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_14884,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14888,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:38: chicken.irregex#irregex-match */ t4=C_fast_retrieve(lf[522]);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[523]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k14886 in main#deconstruct-url in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_14888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14888,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14895,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ /* egg-download.scm:40: chicken.irregex#irregex-match-substring */ t4=C_fast_retrieve(lf[519]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(2); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[3]; f_14895(2,av2);}}} /* k14893 in k14886 in main#deconstruct-url in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_14895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_14895,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14899,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14912,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ /* egg-download.scm:41: chicken.irregex#irregex-match-substring */ t5=C_fast_retrieve(lf[519]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(3); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_14912(2,av2);}}} /* k14897 in k14893 in k14886 in main#deconstruct-url in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_14899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14899,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14903,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[4])){ /* egg-download.scm:46: chicken.irregex#irregex-match-substring */ t4=C_fast_retrieve(lf[519]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(5); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_14903(2,av2);}}} /* k14901 in k14897 in k14893 in k14886 in main#deconstruct-url in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_14903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14903,2,av);} if(C_truep(t1)){ t2=t1; /* egg-download.scm:39: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; C_values(5,av2);}} else{ /* egg-download.scm:39: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[518]; C_values(5,av2);}}} /* k14910 in k14893 in k14886 in main#deconstruct-url in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_14912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_14912,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14915,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:42: chicken.irregex#irregex-match-substring */ t3=C_fast_retrieve(lf[519]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(4); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(80); f_14899(2,av2);}}} /* k14913 in k14910 in k14893 in k14886 in main#deconstruct-url in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_14915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14915,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14918,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:43: scheme#string->number */ t4=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k14916 in k14913 in k14910 in k14893 in k14886 in main#deconstruct-url in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_14918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14918,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_14899(2,av2);}} else{ /* egg-download.scm:44: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[520]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* a14937 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in ... */ static void C_ccall f_14938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_14938,2,av);} /* egg-download.scm:51: http-connect */ f_14971(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in ... */ static void C_ccall f_14944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_14944,5,av);} a=C_alloc(6); t5=t1; t6=t2; t7=t3; t8=((C_word*)t0)[2]; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15148,a[2]=t6,a[3]=t7,a[4]=t8,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* egg-download.scm:111: d */ f_16497(t9,lf[763],C_SCHEME_END_OF_LIST);} /* a14955 in k15579 in a15576 in a15699 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_14956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_14956,2,av);} /* egg-download.scm:57: http-connect */ f_14971(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* a14961 in k15579 in a15576 in a15699 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_14962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_14962,5,av);} a=C_alloc(5); t5=t2; t6=t4; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14966,a[2]=t1,a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:59: scheme#close-output-port */ t8=*((C_word*)lf[603]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k14964 in a14961 in k15579 in a15576 in a15699 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_14966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14966,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15357,a[2]=t2,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:161: d */ f_16497(t5,lf[602],C_SCHEME_END_OF_LIST);} /* main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_fcall f_14971(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){ C_save_and_reclaim_args((void *)trf_14971,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(23); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14975,a[2]=t5,a[3]=t2,a[4]=t6,a[5]=t3,a[6]=t4,a[7]=t7,a[8]=t1,tmp=(C_word)a,a+=9,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15118,a[2]=t8,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15121,a[2]=t9,a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:65: chicken.base#open-output-string */ t11=C_fast_retrieve(lf[566]);{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ /* egg-download.scm:63: d */ f_16497(t8,lf[561],C_a_i_list(&a,3,t2,t3,lf[567]));}} /* k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_14975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_14975,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14980,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14994,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* egg-download.scm:67: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[8]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a14979 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_14980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14980,2,av);} t2=((C_word*)t0)[2]; t3=(C_truep(t2)?t2:((C_word*)t0)[3]); t4=((C_word*)t0)[4]; if(C_truep(t4)){ /* egg-download.scm:68: chicken.tcp#tcp-connect */ t5=C_fast_retrieve(lf[525]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=((C_word*)t0)[5]; /* egg-download.scm:68: chicken.tcp#tcp-connect */ t6=C_fast_retrieve(lf[525]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_14994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_14994,4,av);} a=C_alloc(18); t4=t2; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=t3; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_14998,a[2]=t5,a[3]=t1,a[4]=t7,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); /* egg-download.scm:69: d */ f_16497(t8,lf[560],C_a_i_list(&a,1,((C_word*)t0)[4]));} /* k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_14998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(35,c,5)))){ C_save_and_reclaim((void *)f_14998,2,av);} a=C_alloc(35); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15001,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* egg-download.scm:70: make-HTTP-GET/1.1 */ f_15494(t2,((C_word*)t0)[7],C_retrieve2(lf[516],C_text("main#user-agent")),((C_word*)t0)[8],C_a_i_list(&a,8,lf[545],((C_word*)t0)[9],lf[546],lf[559],lf[548],((C_word*)t0)[5],lf[549],((C_word*)t0)[6]));} /* k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_15001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_15001,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15004,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* egg-download.scm:73: scheme#display */ t3=*((C_word*)lf[543]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_15004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_15004,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15007,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* egg-download.scm:74: chicken.base#flush-output */ t3=*((C_word*)lf[558]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_15007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_15007,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15010,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* egg-download.scm:75: d */ f_16497(t2,lf[557],C_SCHEME_END_OF_LIST);} /* k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_15010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_15010,2,av);} a=C_alloc(17); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_15013,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp); /* egg-download.scm:78: chicken.io#read-line */ t7=C_fast_retrieve(lf[532]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_15013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_15013,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_15016,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); if(C_truep(C_i_stringp(t2))){ /* egg-download.scm:191: chicken.irregex#irregex-match */ t4=C_fast_retrieve(lf[522]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[556]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_15016(2,av2);}}} /* k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_15016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_15016,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_15019,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* egg-download.scm:80: d */ f_16497(t3,lf[555],C_a_i_list(&a,1,((C_word*)t0)[9]));} /* k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_15019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_15019,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15022,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_15044,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=t2,a[13]=((C_word*)t0)[2],a[14]=((C_word*)t0)[6],tmp=(C_word)a,a+=15,tmp); /* egg-download.scm:82: response-match-code? */ f_15454(t3,((C_word*)t0)[10],C_fix(407));} /* k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_15022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_15022,2,av);} a=C_alloc(6); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15031,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* egg-download.scm:104: d */ f_16497(t2,lf[535],C_SCHEME_END_OF_LIST);} else{ /* egg-download.scm:108: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)((C_word*)t0)[5])[1]; av2[4]=((C_word*)((C_word*)t0)[6])[1]; C_values(5,av2);}}} /* k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_15031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_15031,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15034,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15393,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_15393(t7,t2,C_SCHEME_END_OF_LIST);} /* k15032 in k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_15034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_15034,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15037,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* egg-download.scm:106: scheme#close-input-port */ t4=*((C_word*)lf[527]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15035 in k15032 in k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_15037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_15037,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15041,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* egg-download.scm:107: chicken.base#open-input-string */ t3=C_fast_retrieve(lf[526]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15039 in k15035 in k15032 in k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_15041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15041,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* egg-download.scm:108: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=((C_word*)((C_word*)t0)[5])[1]; C_values(5,av2);}} /* k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_15044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_15044,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15049,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_15055,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* egg-download.scm:83: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[12]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15079,a[2]=((C_word*)t0)[13],a[3]=t3,a[4]=((C_word*)t0)[14],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_15079(t5,((C_word*)t0)[12]);}} /* a15048 in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_15049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15049,2,av);} /* egg-download.scm:83: chicken.tcp#tcp-connect */ t2=C_fast_retrieve(lf[525]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a15054 in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_15055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(39,c,5)))){ C_save_and_reclaim((void *)f_15055,4,av);} a=C_alloc(39); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15061,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15074,a[2]=t6,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:86: make-HTTP-GET/1.1 */ f_15494(t7,((C_word*)t0)[6],C_retrieve2(lf[516],C_text("main#user-agent")),((C_word*)t0)[7],C_a_i_list(&a,10,lf[545],((C_word*)t0)[8],lf[546],lf[547],lf[548],((C_word*)t0)[9],lf[549],((C_word*)t0)[10],lf[550],((C_word*)t0)[11]));} /* k15059 in a15054 in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_15061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_15061,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15067,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:92: response-match-code? */ f_15454(t2,((C_word*)t0)[4],C_fix(200));} /* k15065 in k15059 in a15054 in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_15067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_15067,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_a_i_list(&a,1,((C_word*)t0)[3]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15555,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15559,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:230: chicken.condition#make-property-condition */ t6=C_fast_retrieve(lf[537]);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t6; av2[1]=t5; av2[2]=lf[106]; av2[3]=lf[539]; av2[4]=lf[540]; av2[5]=lf[541]; av2[6]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}}} /* k15072 in a15054 in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_15074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15074,2,av);} /* egg-download.scm:85: scheme#display */ t2=*((C_word*)lf[543]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_fcall f_15079(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15079,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15083,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* egg-download.scm:95: chicken.io#read-line */ t3=C_fast_retrieve(lf[532]);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15081 in loop in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_15083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_15083,2,av);} a=C_alloc(7); t2=t1; if(C_truep(C_i_equalp(t2,lf[551]))){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15101,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* egg-download.scm:198: chicken.irregex#irregex-match */ t4=C_fast_retrieve(lf[522]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[554]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k15093 in k15103 in k15099 in k15081 in loop in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_15095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15095,2,av);} /* egg-download.scm:102: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15079(t2,((C_word*)t0)[3]);} /* k15099 in k15081 in loop in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_15101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_15101,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23315,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:101: d */ f_16497(t3,lf[552],C_a_i_list(&a,1,((C_word*)t0)[5]));} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15105,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15482,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:201: chicken.irregex#irregex-match */ t5=C_fast_retrieve(lf[522]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[553]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k15103 in k15099 in k15081 in loop in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_15105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_15105,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15109,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=( /* egg-download.scm:97: g3860 */ f_15109(t2,t1) ); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15095,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:101: d */ f_16497(t4,lf[552],C_a_i_list(&a,1,((C_word*)t0)[5]));} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f23319,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:101: d */ f_16497(t2,lf[552],C_a_i_list(&a,1,((C_word*)t0)[5]));}} /* g3860 in k15103 in k15099 in k15081 in loop in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static C_word C_fcall f_15109(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); return(t2);} /* k15116 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_15118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_15118,2,av);} a=C_alloc(9); /* egg-download.scm:63: d */ f_16497(((C_word*)t0)[2],lf[561],C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1));} /* k15119 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_15121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_15121,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[562]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15127,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* egg-download.scm:65: ##sys#print */ t6=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[565]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k15125 in k15119 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_15127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_15127,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15130,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* egg-download.scm:65: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k15128 in k15125 in k15119 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_15130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_15130,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15133,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* egg-download.scm:65: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(58); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k15131 in k15128 in k15125 in k15119 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_15133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_15133,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15136,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:65: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k15134 in k15131 in k15128 in k15125 in k15119 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_15136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_15136,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15139,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:65: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[564]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k15137 in k15134 in k15131 in k15128 in k15125 in k15119 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_15139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15139,2,av);} /* egg-download.scm:65: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[563]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in ... */ static void C_ccall f_15148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_15148,2,av);} a=C_alloc(19); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15150,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp)); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15241,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t8,a[6]=((C_word*)t0)[4],a[7]=t5,tmp=(C_word)a,a+=8,tmp)); t10=((C_word*)t8)[1]; f_15241(t10,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* skip in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in ... */ static void C_fcall f_15150(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_15150,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15154,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:114: chicken.io#read-line */ t3=C_fast_retrieve(lf[532]);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15152 in skip in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in ... */ static void C_ccall f_15154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_15154,2,av);} a=C_alloc(6); t2=t1; t3=C_eofp(t2); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15163,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=t3; f_15163(2,av2);}} else{ /* egg-download.scm:116: chicken.irregex#irregex-match */ t5=C_fast_retrieve(lf[522]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[755]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k15161 in k15152 in skip in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in ... */ static void C_ccall f_15163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_15163,2,av);} a=C_alloc(6); if(C_truep(t1)){ /* egg-download.scm:117: chicken.base#open-input-string */ t2=C_fast_retrieve(lf[526]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[747]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15169,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* egg-download.scm:118: chicken.irregex#irregex-match */ t3=C_fast_retrieve(lf[522]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[754]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k15167 in k15161 in k15152 in skip in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in ... */ static void C_ccall f_15169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_15169,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:115: g3893 */ t3=t2; f_15173(t3,((C_word*)t0)[4],t1);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15218,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:129: chicken.irregex#irregex-match */ t3=C_fast_retrieve(lf[522]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[753]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* g3893 in k15167 in k15161 in k15152 in skip in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in ... */ static void C_fcall f_15173(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_15173,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15177,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:120: chicken.irregex#irregex-match-substring */ t4=C_fast_retrieve(lf[519]);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k15175 in g3893 in k15167 in k15161 in k15152 in skip in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in ... */ static void C_ccall f_15177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_15177,2,av);} a=C_alloc(6); t2=t1; t3=C_i_string_equal_p(lf[748],t2); t4=(C_truep(t3)?t3:C_u_i_string_equal_p(lf[749],t2)); if(C_truep(t4)){ /* egg-download.scm:128: chicken.base#open-input-string */ t5=C_fast_retrieve(lf[526]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15195,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t6=C_i_string_equal_p(t2,((C_word*)((C_word*)t0)[4])[1]); t7=t5; f_15195(t7,C_i_not(t6));} else{ t6=t5; f_15195(t6,C_SCHEME_FALSE);}}} /* k15193 in k15175 in g3893 in k15167 in k15161 in k15152 in skip in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in ... */ static void C_fcall f_15195(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_15195,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15198,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:123: chicken.base#warning */ t3=C_fast_retrieve(lf[713]);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[750]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[5]); /* egg-download.scm:128: chicken.base#open-input-string */ t3=C_fast_retrieve(lf[526]);{ C_word av2[3]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k15196 in k15193 in k15175 in g3893 in k15167 in k15161 in k15152 in skip in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in ... */ static void C_ccall f_15198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15198,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); /* egg-download.scm:128: chicken.base#open-input-string */ t3=C_fast_retrieve(lf[526]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15216 in k15167 in k15161 in k15152 in skip in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in ... */ static void C_ccall f_15218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_15218,2,av);} a=C_alloc(5); if(C_truep(t1)){ /* egg-download.scm:130: chicken.base#open-input-string */ t2=C_fast_retrieve(lf[526]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15227,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:131: chicken.irregex#irregex-match */ t3=C_fast_retrieve(lf[522]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[752]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k15225 in k15216 in k15167 in k15161 in k15152 in skip in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in ... */ static void C_ccall f_15227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15227,2,av);} if(C_truep(t1)){ /* egg-download.scm:132: skip */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15150(t2,((C_word*)t0)[3]);} else{ /* egg-download.scm:134: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[751]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in ... */ static void C_fcall f_15241(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_15241,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15245,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t2,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); /* egg-download.scm:137: skip */ t4=((C_word*)((C_word*)t0)[7])[1]; f_15150(t4,t3);} /* k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in ... */ static void C_ccall f_15245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_15245,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15248,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* egg-download.scm:138: scheme#read */ t4=*((C_word*)lf[731]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in ... */ static void C_ccall f_15248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_15248,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15254,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(t2))){ t4=C_u_i_car(t2); t5=t3; f_15254(t5,C_eqp(lf[183],t4));} else{ t4=t3; f_15254(t4,C_SCHEME_FALSE);}} /* k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in ... */ static void C_fcall f_15254(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ C_save_and_reclaim_args((void *)trf_15254,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=C_u_i_cdr(((C_word*)t0)[2]); t4=C_u_i_cdr(t3); t5=((C_word*)t0)[3]; t6=t4; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15373,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15377,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15385,a[2]=t8,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:171: scheme#string-append */ t10=*((C_word*)lf[83]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t9; av2[2]=lf[756]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t2=C_eofp(((C_word*)t0)[2]); t3=(C_truep(t2)?t2:C_i_not(((C_word*)t0)[2])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15276,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:142: scheme#close-input-port */ t5=*((C_word*)lf[527]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=C_i_stringp(((C_word*)t0)[2]); if(C_truep(C_i_not(t4))){ /* egg-download.scm:146: chicken.base#error */ t5=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[757]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15294,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); t6=t5; t7=lf[762]; t8=C_i_string_length(((C_word*)t0)[2]); t9=C_i_string_length(t7); t10=C_fixnum_lessp(t8,t9); if(C_truep(C_i_not(t10))){ t11=t7; t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16486,a[2]=t11,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t13=C_a_i_fixnum_difference(&a,2,t8,t9); /* chicken-install.scm:256: scheme#substring */ t14=*((C_word*)lf[513]+1);{ C_word av2[4]; av2[0]=t14; av2[1]=t12; av2[2]=((C_word*)t0)[2]; av2[3]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ t11=t6;{ C_word av2[2]; av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}} /* k15274 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in ... */ static void C_ccall f_15276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_15276,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:143: scheme#close-output-port */ t3=*((C_word*)lf[603]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15277 in k15274 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in ... */ static void C_ccall f_15279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15279,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15292 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in ... */ static void C_ccall f_15294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_15294,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15297,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* egg-download.scm:149: d */ f_16497(t2,lf[759],C_a_i_list(&a,1,((C_word*)t0)[6]));} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15310,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* egg-download.scm:153: d */ f_16497(t2,lf[761],C_a_i_list(&a,1,((C_word*)t0)[6]));}} /* k15295 in k15292 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in ... */ static void C_ccall f_15297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_15297,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15300,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15307,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:150: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k15298 in k15295 in k15292 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in ... */ static void C_ccall f_15300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15300,2,av);} /* egg-download.scm:151: get-files */ t2=((C_word*)((C_word*)t0)[2])[1]; f_15241(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k15305 in k15295 in k15292 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in ... */ static void C_ccall f_15307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15307,2,av);} /* egg-download.scm:150: chicken.file#create-directory */ t2=C_fast_retrieve(lf[758]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k15308 in k15292 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in ... */ static void C_ccall f_15310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_15310,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15313,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* egg-download.scm:154: scheme#read */ t3=*((C_word*)lf[731]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15311 in k15308 in k15292 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in ... */ static void C_ccall f_15313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_15313,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15316,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* egg-download.scm:155: chicken.io#read-string */ t3=*((C_word*)lf[534]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k15314 in k15311 in k15308 in k15292 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in ... */ static void C_ccall f_15316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_15316,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15319,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15330,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:156: chicken.pathname#make-pathname */ t5=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k15317 in k15314 in k15311 in k15308 in k15292 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in ... */ static void C_ccall f_15319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15319,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* egg-download.scm:158: get-files */ t3=((C_word*)((C_word*)t0)[4])[1]; f_15241(t3,((C_word*)t0)[5],t2);} /* k15328 in k15314 in k15311 in k15308 in k15292 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in ... */ static void C_ccall f_15330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_15330,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15332,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:156: scheme#with-output-to-file */ t3=C_fast_retrieve(lf[464]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; av2[4]=lf[760]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a15331 in k15328 in k15314 in k15311 in k15308 in k15292 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in ... */ static void C_ccall f_15332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15332,2,av);} /* egg-download.scm:157: g3931 */ t2=*((C_word*)lf[543]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k15355 in k14964 in a14961 in k15579 in a15576 in a15699 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_15357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_15357,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:162: chicken.io#read-string */ t3=*((C_word*)lf[534]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k15358 in k15355 in k14964 in a14961 in k15579 in a15576 in a15699 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_15360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_15360,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15363,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:163: scheme#close-input-port */ t4=*((C_word*)lf[527]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15361 in k15358 in k15355 in k14964 in a14961 in k15579 in a15576 in a15699 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_15363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15363,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15371 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in ... */ static void C_ccall f_15373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15373,2,av);} /* egg-download.scm:167: chicken.condition#abort */ t2=C_fast_retrieve(lf[596]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k15375 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in ... */ static void C_ccall f_15377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_15377,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15381,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:173: chicken.condition#make-property-condition */ t4=C_fast_retrieve(lf[537]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[597]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15379 in k15375 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in ... */ static void C_ccall f_15381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15381,2,av);} /* egg-download.scm:168: chicken.condition#make-composite-condition */ t2=C_fast_retrieve(lf[536]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k15383 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in ... */ static void C_ccall f_15385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_15385,2,av);} /* egg-download.scm:169: chicken.condition#make-property-condition */ t2=C_fast_retrieve(lf[537]);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[106]; av2[3]=lf[539]; av2[4]=t1; av2[5]=lf[541]; av2[6]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* get-chunks in k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_fcall f_15393(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_15393,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15397,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15440,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:177: chicken.io#read-line */ t5=C_fast_retrieve(lf[532]);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k15395 in get-chunks in k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_15397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_15397,2,av);} a=C_alloc(6); if(C_truep(C_i_not(t1))){ /* egg-download.scm:179: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[528]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ if(C_truep(C_i_zerop(t1))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15413,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:181: d */ f_16497(t2,lf[531],C_SCHEME_END_OF_LIST);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15423,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* egg-download.scm:184: chicken.io#read-string */ t3=*((C_word*)lf[534]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}} /* k15411 in k15395 in get-chunks in k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_15413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15413,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15420,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:182: scheme#reverse */ t3=*((C_word*)lf[224]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15418 in k15411 in k15395 in get-chunks in k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_15420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15420,2,av);} /* egg-download.scm:182: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[259]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[529]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k15421 in k15395 in get-chunks in k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_15423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_15423,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15426,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* egg-download.scm:185: d */ f_16497(t3,lf[533],C_SCHEME_END_OF_LIST);} /* k15424 in k15421 in k15395 in get-chunks in k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_15426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_15426,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15429,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* egg-download.scm:186: chicken.io#read-line */ t3=C_fast_retrieve(lf[532]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15427 in k15424 in k15421 in k15395 in get-chunks in k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_15429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15429,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* egg-download.scm:187: get-chunks */ t3=((C_word*)((C_word*)t0)[4])[1]; f_15393(t3,((C_word*)t0)[5],t2);} /* k15438 in get-chunks in k15029 in k15020 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_15440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15440,2,av);} /* egg-download.scm:177: scheme#string->number */ t2=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* main#response-match-code? in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_fcall f_15454(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_15454,3,t1,t2,t3);} a=C_alloc(4); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15465,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[568]); C_word av2[4]; av2[0]=*((C_word*)lf[568]+1); av2[1]=t4; av2[2]=t3; av2[3]=C_fix(10); tp(4,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15463 in main#response-match-code? in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_15465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_15465,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15469,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:195: chicken.irregex#irregex-match-substring */ t4=C_fast_retrieve(lf[519]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k15467 in k15463 in main#response-match-code? in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_15469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15469,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_string_equal_p(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15480 in k15099 in k15081 in loop in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_15482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_15482,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15492,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:202: chicken.irregex#irregex-match-substring */ t3=C_fast_retrieve(lf[519]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k15490 in k15480 in k15099 in k15081 in loop in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_15492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15492,2,av);} /* egg-download.scm:202: scheme#string->number */ t2=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* main#make-HTTP-GET/1.1 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_fcall f_15494(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_15494,5,t1,t2,t3,t4,t5);} a=C_alloc(9); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15498,a[2]=t5,a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t2,tmp=(C_word)a,a+=7,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15544,tmp=(C_word)a,a+=2,tmp); /* egg-download.scm:204: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[270]+1); av2[1]=t6; av2[2]=lf[545]; av2[3]=t5; av2[4]=t7; tp(5,av2);}} /* k15496 in main#make-HTTP-GET/1.1 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_15498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_15498,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15541,tmp=(C_word)a,a+=2,tmp); /* egg-download.scm:204: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t3; av2[2]=lf[590]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; tp(5,av2);}} /* k15499 in k15496 in main#make-HTTP-GET/1.1 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_15501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_15501,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15504,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15538,tmp=(C_word)a,a+=2,tmp); /* egg-download.scm:204: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t3; av2[2]=lf[546]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; tp(5,av2);}} /* k15502 in k15499 in k15496 in main#make-HTTP-GET/1.1 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_15504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_15504,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15507,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15535,tmp=(C_word)a,a+=2,tmp); /* egg-download.scm:204: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[270]+1); av2[1]=t3; av2[2]=lf[587]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; tp(5,av2);}} /* k15505 in k15502 in k15499 in k15496 in main#make-HTTP-GET/1.1 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_15507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_15507,2,av);} a=C_alloc(10); t2=t1; t3=C_i_get_keyword(lf[548],((C_word*)t0)[2],C_SCHEME_FALSE); t4=C_i_get_keyword(lf[550],((C_word*)t0)[2],C_SCHEME_FALSE); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15523,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t2,a[9]=t5,tmp=(C_word)a,a+=10,tmp); if(C_truep(t3)){ /* egg-download.scm:214: scheme#string-append */ t7=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[586]; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=((C_word*)t0)[9]; f_15523(2,av2);}}} /* k15521 in k15505 in k15502 in k15499 in k15496 in main#make-HTTP-GET/1.1 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_15523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_15523,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15527,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[9])){ /* egg-download.scm:222: scheme#string-append */ t4=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[583]; av2[3]=((C_word*)t0)[9]; av2[4]=lf[584]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=lf[585]; f_15527(2,av2);}}} /* k15525 in k15521 in k15505 in k15502 in k15499 in k15496 in main#make-HTTP-GET/1.1 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_15527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,24)))){ C_save_and_reclaim((void *)f_15527,2,av);} /* egg-download.scm:211: chicken.string#conc */ t2=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 25) { av2=av; } else { av2=C_alloc(25); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[569]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[570]; av2[5]=lf[571]; av2[6]=lf[572]; av2[7]=((C_word*)t0)[4]; av2[8]=lf[573]; av2[9]=lf[574]; av2[10]=((C_word*)t0)[5]; av2[11]=lf[575]; av2[12]=lf[576]; av2[13]=((C_word*)t0)[6]; av2[14]=lf[577]; av2[15]=lf[578]; av2[16]=((C_word*)t0)[7]; av2[17]=C_make_character(58); av2[18]=((C_word*)t0)[8]; av2[19]=lf[579]; av2[20]=t1; av2[21]=lf[580]; av2[22]=((C_word*)t0)[9]; av2[23]=lf[581]; av2[24]=lf[582]; ((C_proc)(void*)(*((C_word*)t2+1)))(25,av2);}} /* a15534 in k15502 in k15499 in k15496 in main#make-HTTP-GET/1.1 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_15535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15535,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a15537 in k15499 in k15496 in main#make-HTTP-GET/1.1 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_15538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15538,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=lf[588]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a15540 in k15496 in main#make-HTTP-GET/1.1 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_15541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15541,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=lf[589]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a15543 in main#make-HTTP-GET/1.1 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_15544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15544,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(80); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15553 in k15065 in k15059 in a15054 in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_15555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15555,2,av);} /* egg-download.scm:228: chicken.condition#signal */ t2=C_fast_retrieve(lf[111]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k15557 in k15065 in k15059 in a15054 in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_15559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_15559,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15563,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:234: chicken.condition#make-property-condition */ t4=C_fast_retrieve(lf[537]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[538]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15561 in k15557 in k15065 in k15059 in a15054 in k15042 in k15017 in k15014 in k15011 in k15008 in k15005 in k15002 in k14999 in k14996 in a14993 in k14973 in main#http-connect in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_15563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15563,2,av);} /* egg-download.scm:229: chicken.condition#make-composite-condition */ t2=C_fast_retrieve(lf[536]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a15570 in a15699 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_15571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15571,2,av);} /* egg-download.scm:240: deconstruct-url */ f_14884(t1,((C_word*)t0)[2]);} /* a15576 in a15699 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_15577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,8)))){ C_save_and_reclaim((void *)f_15577,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15581,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:241: chicken.string#conc */ t6=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[604]; av2[4]=((C_word*)t0)[2]; av2[5]=lf[605]; av2[6]=C_retrieve2(lf[20],C_text("main#major-version")); av2[7]=lf[606]; av2[8]=lf[607]; ((C_proc)(void*)(*((C_word*)t6+1)))(9,av2);}} /* k15579 in a15576 in a15699 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_15581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_15581,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15584,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=t1; t6=C_retrieve2(lf[599],C_text("main#proxy-host")); t7=C_retrieve2(lf[600],C_text("main#proxy-port")); t8=C_retrieve2(lf[601],C_text("main#proxy-user-pass")); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14956,a[2]=t3,a[3]=t4,a[4]=t5,a[5]=t6,a[6]=t7,a[7]=t8,tmp=(C_word)a,a+=8,tmp); t10=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14962,tmp=(C_word)a,a+=2,tmp); /* egg-download.scm:56: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=t9; av2[3]=t10; C_call_with_values(4,av2);}} /* k15582 in k15579 in a15576 in a15699 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_15584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15584,2,av);} /* egg-download.scm:248: chicken.string#string-split */ t2=C_fast_retrieve(lf[493]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_fcall f_15589(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_15589,3,t1,t2,t3);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15602,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:252: d */ f_16497(t4,lf[608],C_a_i_list(&a,2,t2,t3));} /* k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_15602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_15602,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15605,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15610,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:253: scheme#call-with-current-continuation */ t4=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15603 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_15605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15605,2,av);} /* egg-download.scm:250: g4022 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_15610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_15610,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15616,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15694,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* egg-download.scm:253: chicken.condition#with-exception-handler */ t5=C_fast_retrieve(lf[113]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a15615 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_15616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15616,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15622,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:253: k4019 */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a15621 in a15615 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_15622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_15622,2,av);} a=C_alloc(5); t2=C_i_structurep(((C_word*)t0)[2],lf[105]); t3=(C_truep(t2)?C_slot(((C_word*)t0)[2],C_fix(1)):C_SCHEME_FALSE); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15632,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t6=C_i_memv(lf[106],t4); t7=t5; f_15632(t7,(C_truep(t6)?C_i_memv(lf[598],t4):C_SCHEME_FALSE));} else{ t6=t5; f_15632(t6,C_SCHEME_FALSE);}} /* k15630 in a15621 in a15615 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_fcall f_15632(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_15632,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15635,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:255: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[592]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[4])){ t3=C_i_memv(lf[106],((C_word*)t0)[4]); t4=t2; f_15641(t4,(C_truep(t3)?C_i_memv(lf[538],((C_word*)t0)[4]):C_SCHEME_FALSE));} else{ t3=t2; f_15641(t3,C_SCHEME_FALSE);}}} /* k15633 in k15630 in a15621 in a15615 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_15635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15635,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15639 in k15630 in a15621 in a15615 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_fcall f_15641(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_15641,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15644,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:258: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[593]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15650,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ t3=C_i_memv(lf[106],((C_word*)t0)[4]); t4=t2; f_15650(t4,(C_truep(t3)?C_i_memv(lf[597],((C_word*)t0)[4]):C_SCHEME_FALSE));} else{ t3=t2; f_15650(t3,C_SCHEME_FALSE);}}} /* k15642 in k15639 in k15630 in a15621 in a15615 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_15644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15644,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15648 in k15639 in k15630 in a15621 in a15615 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_15650(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_15650,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15653,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:261: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[595]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; /* egg-download.scm:264: chicken.condition#abort */ t3=C_fast_retrieve(lf[596]);{ C_word av2[3]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k15651 in k15648 in k15639 in k15630 in a15621 in a15615 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_15653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15653,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15656,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:262: chicken.condition#print-error-message */ t3=C_fast_retrieve(lf[594]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15654 in k15651 in k15648 in k15639 in k15630 in a15621 in a15615 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_15656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15656,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_15694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_15694,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15700,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15706,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:253: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a15699 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_15700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_15700,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15571,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15577,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:240: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a15705 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_15706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_15706,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15712,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:253: k4019 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a15711 in a15705 in a15693 in a15609 in k15600 in main#try-list-versions in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_15712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15712,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* a15741 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in ... */ static void C_ccall f_15742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15742,2,av);} /* egg-download.scm:268: deconstruct-url */ f_14884(t1,((C_word*)t0)[2]);} /* a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in ... */ static void C_ccall f_15748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_15748,5,av);} a=C_alloc(16); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15752,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15769,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=t4,a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[3])){ /* egg-download.scm:272: scheme#string-append */ t7=*((C_word*)lf[83]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=lf[769]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=lf[770]; f_15769(2,av2);}}} /* k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in ... */ static void C_ccall f_15752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,5)))){ C_save_and_reclaim((void *)f_15752,2,av);} a=C_alloc(16); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15755,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[5]; t5=((C_word*)t0)[6]; t6=t1; t7=t2; t8=((C_word*)t0)[7]; t9=((C_word*)t0)[8]; t10=((C_word*)t0)[9]; t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14938,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=t8,a[6]=t9,a[7]=t10,tmp=(C_word)a,a+=8,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14944,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:50: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=t11; av2[3]=t12; C_call_with_values(4,av2);}} /* k15753 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in ... */ static void C_ccall f_15755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15755,2,av);} if(C_truep(t1)){ t2=t1; /* egg-download.scm:279: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; C_values(4,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ /* egg-download.scm:279: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_values(4,av2);}} else{ /* egg-download.scm:279: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[746]; C_values(4,av2);}}}} /* k15767 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in ... */ static void C_ccall f_15769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_15769,2,av);} if(C_truep(((C_word*)t0)[2])){ /* egg-download.scm:269: chicken.string#conc */ t2=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[764]; av2[4]=((C_word*)t0)[5]; av2[5]=lf[765]; av2[6]=C_retrieve2(lf[20],C_text("main#major-version")); av2[7]=t1; av2[8]=lf[766]; av2[9]=lf[767]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* egg-download.scm:269: chicken.string#conc */ t2=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[764]; av2[4]=((C_word*)t0)[5]; av2[5]=lf[765]; av2[6]=C_retrieve2(lf[20],C_text("main#major-version")); av2[7]=t1; av2[8]=lf[766]; av2[9]=lf[768]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}} /* k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_15800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_15800,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15803,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15808,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* egg-download.scm:284: scheme#call-with-current-continuation */ t4=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15801 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f_15803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15803,2,av);} /* egg-download.scm:281: g4096 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f_15808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_15808,3,av);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15814,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,tmp=(C_word)a,a+=11,tmp); /* egg-download.scm:284: chicken.condition#with-exception-handler */ t5=C_fast_retrieve(lf[113]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a15813 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_ccall f_15814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15814,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15820,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:284: k4093 */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a15819 in a15813 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in ... */ static void C_ccall f_15820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_15820,2,av);} a=C_alloc(5); t2=C_i_structurep(((C_word*)t0)[2],lf[105]); t3=(C_truep(t2)?C_slot(((C_word*)t0)[2],C_fix(1)):C_SCHEME_FALSE); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15830,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t6=C_i_memv(lf[106],t4); t7=t5; f_15830(t7,(C_truep(t6)?C_i_memv(lf[598],t4):C_SCHEME_FALSE));} else{ t6=t5; f_15830(t6,C_SCHEME_FALSE);}} /* k15828 in a15819 in a15813 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in ... */ static void C_fcall f_15830(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_15830,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15833,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:294: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[741]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15842,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[4])){ t3=C_i_memv(lf[106],((C_word*)t0)[4]); t4=t2; f_15842(t4,(C_truep(t3)?C_i_memv(lf[538],((C_word*)t0)[4]):C_SCHEME_FALSE));} else{ t3=t2; f_15842(t3,C_SCHEME_FALSE);}}} /* k15831 in k15828 in a15819 in a15813 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in ... */ static void C_ccall f_15833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15833,2,av);} /* egg-download.scm:295: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=lf[740]; C_values(4,av2);}} /* k15840 in k15828 in a15819 in a15813 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in ... */ static void C_fcall f_15842(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_15842,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15845,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:297: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[743]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15854,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ t3=C_i_memv(lf[106],((C_word*)t0)[4]); t4=t2; f_15854(t4,(C_truep(t3)?C_i_memv(lf[597],((C_word*)t0)[4]):C_SCHEME_FALSE));} else{ t3=t2; f_15854(t3,C_SCHEME_FALSE);}}} /* k15843 in k15840 in k15828 in a15819 in a15813 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in ... */ static void C_ccall f_15845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15845,2,av);} /* egg-download.scm:298: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=lf[742]; C_values(4,av2);}} /* k15852 in k15840 in k15828 in a15819 in a15813 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in ... */ static void C_fcall f_15854(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_15854,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15857,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* egg-download.scm:300: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[745]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; /* egg-download.scm:303: chicken.condition#abort */ t3=C_fast_retrieve(lf[596]);{ C_word av2[3]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k15855 in k15852 in k15840 in k15828 in a15819 in a15813 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in ... */ static void C_ccall f_15857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15857,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15860,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:301: chicken.condition#print-error-message */ t3=C_fast_retrieve(lf[594]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15858 in k15855 in k15852 in k15840 in k15828 in a15819 in a15813 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in ... */ static void C_ccall f_15860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15860,2,av);} /* egg-download.scm:302: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=lf[744]; C_values(4,av2);}} /* a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_ccall f_15901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_15901,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15907,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15913,a[2]=((C_word*)t0)[10],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:284: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in ... */ static void C_ccall f_15907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(48,c,5)))){ C_save_and_reclaim((void *)f_15907,2,av);} a=C_alloc(48); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_a_i_list(&a,12,lf[738],((C_word*)t0)[4],lf[153],((C_word*)t0)[5],lf[739],((C_word*)t0)[6],lf[548],((C_word*)t0)[7],lf[549],((C_word*)t0)[8],lf[550],((C_word*)t0)[9]); t5=C_i_get_keyword(lf[738],t4,C_SCHEME_FALSE); t6=t5; t7=C_i_get_keyword(lf[153],t4,C_SCHEME_FALSE); t8=t7; t9=C_i_get_keyword(lf[739],t4,C_SCHEME_FALSE); t10=t9; t11=C_i_get_keyword(lf[548],t4,C_SCHEME_FALSE); t12=t11; t13=C_i_get_keyword(lf[549],t4,C_SCHEME_FALSE); t14=t13; t15=C_i_get_keyword(lf[550],t4,C_SCHEME_FALSE); t16=t15; t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15742,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t18=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15748,a[2]=t8,a[3]=t6,a[4]=t12,a[5]=t14,a[6]=t16,a[7]=t10,a[8]=t2,tmp=(C_word)a,a+=9,tmp); /* egg-download.scm:268: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t17; av2[3]=t18; C_call_with_values(4,av2);}} /* a15912 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in ... */ static void C_ccall f_15913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_15913,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15919,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:284: k4093 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a15918 in a15912 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in ... */ static void C_ccall f_15919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15919,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_15953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15953,2,av);} a=C_alloc(3); t2=(C_truep(t1)?t1:lf[632]); t3=C_mutate(&lf[633] /* (set! main#sudo-program ...) */,t2); t4=lf[634] /* main#update-module-db */ =C_SCHEME_FALSE;; t5=lf[635] /* main#purge-mode */ =C_SCHEME_FALSE;; t6=lf[636] /* main#keepfiles */ =C_SCHEME_FALSE;; t7=lf[637] /* main#print-repository */ =C_SCHEME_FALSE;; t8=lf[638] /* main#cached-only */ =C_SCHEME_FALSE;; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21666,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:102: chicken.platform#software-version */ t10=C_fast_retrieve(lf[843]);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k15983 in k19141 in main#ext-version in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_15985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15985,2,av);} /* chicken-install.scm:114: ##sys#split-path */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[802]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[802]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* main#install-path in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_15993(C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_15993,1,t1);} if(C_truep(C_retrieve2(lf[18],C_text("main#cross-chicken")))){ if(C_truep(C_i_not(C_retrieve2(lf[629],C_text("main#host-extension"))))){ /* chicken-install.scm:119: destination-repository */ f_8240(t1,lf[54],C_SCHEME_END_OF_LIST);} else{ /* chicken-install.scm:120: destination-repository */ f_8240(t1,lf[103],C_SCHEME_END_OF_LIST);}} else{ /* chicken-install.scm:120: destination-repository */ f_8240(t1,lf[103],C_SCHEME_END_OF_LIST);}} /* main#build-script-extension in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_16011(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_16011,3,t1,t2,t3);} t4=C_eqp(t2,lf[54]); t5=(C_truep(t4)?lf[644]:lf[645]); t6=C_eqp(t3,lf[31]); if(C_truep(t6)){ /* chicken-install.scm:123: scheme#string-append */ t7=*((C_word*)lf[83]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t1; av2[2]=lf[646]; av2[3]=t5; av2[4]=lf[647]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* chicken-install.scm:123: scheme#string-append */ t7=*((C_word*)lf[83]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t1; av2[2]=lf[646]; av2[3]=t5; av2[4]=lf[648]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* main#install-script-extension in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_16031(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_16031,3,t1,t2,t3);} t4=C_eqp(t2,lf[54]); t5=(C_truep(t4)?lf[650]:lf[651]); t6=C_eqp(t3,lf[31]); if(C_truep(t6)){ /* chicken-install.scm:128: scheme#string-append */ t7=*((C_word*)lf[83]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t1; av2[2]=lf[652]; av2[3]=t5; av2[4]=lf[653]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ /* chicken-install.scm:128: scheme#string-append */ t7=*((C_word*)lf[83]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t1; av2[2]=lf[652]; av2[3]=t5; av2[4]=lf[654]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* main#egg-version? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_16051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16051,3,av);} a=C_alloc(3); if(C_truep(C_i_listp(t2))){ if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t4))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16073,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=t2; t7=C_u_i_car(t6); /* chicken-install.scm:139: chicken.string#->string */ t8=C_fast_retrieve(lf[172]);{ C_word *av2=av; av2[0]=t8; av2[1]=t5; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16071 in main#egg-version? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_16073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16073,2,av);} /* chicken-install.scm:140: chicken.irregex#irregex-match */ t2=C_fast_retrieve(lf[522]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[656]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* main#optname? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_16082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16082,3,av);} if(C_truep(C_i_listp(t2))){ t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_i_stringp(t4); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t2; t7=C_u_i_car(t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_symbolp(t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* main#nameprop? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_16112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16112,3,av);} if(C_truep(C_i_listp(t2))){ t3=C_i_car(t2); t4=C_i_symbolp(t3); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t2; t6=C_u_i_car(t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_i_stringp(t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* main#name-or-predefd? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_16136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_16136,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16140,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:155: optname? */ t4=C_retrieve2(lf[657],C_text("main#optname\077"));{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; f_16082(3,av2);}} /* k16138 in main#name-or-predefd? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_16140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16140,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); if(C_truep(C_i_pairp(t3))){ t4=C_i_caar(((C_word*)t0)[3]); t5=C_eqp(lf[660],t4); if(C_truep(t5)){ t6=((C_word*)t0)[3]; t7=C_u_i_car(t6); t8=C_u_i_cdr(t7); /* chicken-install.scm:159: optname? */ t9=C_retrieve2(lf[657],C_text("main#optname\077"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=((C_word*)t0)[2]; av2[2]=t8; f_16082(3,av2);}} else{ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_16179(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_16179,2,t1,t2);} a=C_alloc(9); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16182,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16466,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:244: validate */ t7=((C_word*)t4)[1]; f_16182(t7,t6,t2,C_SCHEME_TRUE);} /* validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_fcall f_16182(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_16182,4,t0,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16184,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_check_list_2(t2,lf[118]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16442,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_16442(t9,t1,t2);} /* g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_fcall f_16184(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_16184,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_pairp(t2); t4=C_i_not(t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16194,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(t4)){ t6=t5; f_16194(t6,t4);} else{ t6=C_i_listp(t2); t7=C_i_not(t6); if(C_truep(t7)){ t8=t5; f_16194(t8,t7);} else{ t8=C_i_car(t2); t9=C_i_symbolp(t8); t10=t5; f_16194(t10,C_i_not(t9));}}} /* k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_fcall f_16194(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_16194,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ /* chicken-install.scm:210: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[676]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_i_car(((C_word*)t0)[3]); t3=C_i_assq(t2,C_retrieve2(lf[674],C_text("main#egg-info-items"))); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16204,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:207: g4254 */ t5=t4; f_16204(t5,((C_word*)t0)[2],t3);} else{ /* chicken-install.scm:242: chicken.base#error */ t4=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[682]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} /* g4254 in k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_fcall f_16204(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,6)))){ C_save_and_reclaim_args((void *)trf_16204,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16210,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t2; C_apply(4,av2);}} /* a16209 in g4254 in k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_16210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(c<6) C_bad_min_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +17,c,2)))){ C_save_and_reclaim((void*)f_16210,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+17); t6=C_build_rest(&a,c,6,av); C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t7=C_i_nullp(t6); t8=(C_truep(t7)?C_SCHEME_FALSE:C_i_car(t6)); t9=t8; t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16217,a[2]=t4,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=t2,a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16305,a[2]=t10,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=t9,a[7]=t5,tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[4])){ t12=C_eqp(t3,lf[673]); t13=C_i_not(t12); t14=t11; f_16305(t14,(C_truep(t13)?C_i_not(t3):C_SCHEME_FALSE));} else{ t12=t11; f_16305(t12,C_SCHEME_FALSE);}} /* k16215 in a16209 in g4254 in k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_16217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_16217,2,av);} a=C_alloc(10); if(C_truep(((C_word*)t0)[2])){ if(C_truep(((C_word*)t0)[3])){ t2=C_i_cddr(((C_word*)t0)[4]); /* chicken-install.scm:231: validate */ t3=((C_word*)((C_word*)t0)[5])[1]; f_16182(t3,((C_word*)t0)[6],t2,C_SCHEME_FALSE);} else{ t2=C_eqp(((C_word*)t0)[7],lf[184]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16237,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[4]); t5=C_i_check_list_2(t4,lf[118]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16274,a[2]=t7,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_16274(t9,((C_word*)t0)[6],t4);} else{ t3=C_i_cdr(((C_word*)t0)[4]); /* chicken-install.scm:240: validate */ t4=((C_word*)((C_word*)t0)[5])[1]; f_16182(t4,((C_word*)t0)[6],t3,C_SCHEME_FALSE);}}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g4291 in k16215 in a16209 in g4254 in k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_fcall f_16237(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_16237,3,t0,t1,t2);} a=C_alloc(13); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16241,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16251,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_listp(t2))){ t5=t2; t6=C_u_i_length(t5); t7=t4; f_16251(t7,C_fixnum_greater_or_equal_p(t6,C_fix(1)));} else{ t5=t4; f_16251(t5,C_SCHEME_FALSE);}} /* k16239 in g4291 in k16215 in a16209 in g4254 in k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_16241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16241,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* chicken-install.scm:238: validate */ t3=((C_word*)((C_word*)t0)[3])[1]; f_16182(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5]);} /* k16249 in g4291 in k16215 in a16209 in g4254 in k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_fcall f_16251(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16251,2,t0,t1);} if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); /* chicken-install.scm:238: validate */ t3=((C_word*)((C_word*)t0)[3])[1]; f_16182(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5]);} else{ /* chicken-install.scm:237: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[6]; av2[2]=lf[677]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* for-each-loop4290 in k16215 in a16209 in g4254 in k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_fcall f_16274(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_16274,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16284,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-install.scm:233: g4291 */ t5=((C_word*)t0)[3]; f_16237(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16282 in for-each-loop4290 in k16215 in a16209 in g4254 in k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_16284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16284,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16274(t3,((C_word*)t0)[4],t2);} /* k16303 in a16209 in g4254 in k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_fcall f_16305(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_16305,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ /* chicken-install.scm:217: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[678]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[673]); t3=C_i_not(t2); t4=(C_truep(t3)?(C_truep(((C_word*)t0)[4])?C_i_not(((C_word*)t0)[5]):C_SCHEME_FALSE):C_SCHEME_FALSE); if(C_truep(t4)){ /* chicken-install.scm:222: chicken.base#error */ t5=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=lf[679]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16323,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[7])){ t6=C_i_cdr(((C_word*)t0)[3]); t7=C_i_nullp(t6); if(C_truep(t7)){ t8=t5; f_16323(t8,t7);} else{ t8=C_i_cadr(((C_word*)t0)[3]); t9=C_i_symbolp(t8); t10=t5; f_16323(t10,C_i_not(t9));}} else{ t6=t5; f_16323(t6,C_SCHEME_FALSE);}}}} /* k16321 in k16303 in a16209 in g4254 in k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_fcall f_16323(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_16323,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ /* chicken-install.scm:226: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[680]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cdr(((C_word*)t0)[3]); /* chicken-install.scm:228: validator */ t4=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; f_16217(2,av2);}}}} /* k16340 in k16321 in k16303 in a16209 in g4254 in k16192 in g4232 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_16342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16342,2,av);} if(C_truep(C_i_not(t1))){ /* chicken-install.scm:229: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[681]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_16217(2,av2);}}} /* for-each-loop4231 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_fcall f_16442(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_16442,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16452,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-install.scm:205: g4232 */ t5=((C_word*)t0)[3]; f_16184(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k16450 in for-each-loop4231 in validate in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_16452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16452,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_16442(t3,((C_word*)t0)[4],t2);} /* k16464 in main#validate-egg-info in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_16466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16466,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16484 in k15252 in k15246 in k15243 in get-files in k15146 in a14943 in k15750 in a15747 in a15906 in a15900 in a15807 in k15798 in a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in ... */ static void C_ccall f_16486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16486,2,av);} t2=C_u_i_string_equal_p(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* main#d in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_16497(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_16497,3,t1,t2,t3);} a=C_alloc(5); t4=C_i_stringp(t2); t5=C_i_not(t4); t6=(C_truep(t5)?t2:C_SCHEME_FALSE); t7=C_i_stringp(t2); t8=(C_truep(t7)?t2:C_i_car(t3)); t9=t8; t10=C_i_stringp(t2); t11=(C_truep(t10)?t3:C_i_cdr(t3)); t12=t11; t13=(C_truep(t6)?t6:C_i_not(C_retrieve2(lf[610],C_text("main#quiet")))); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16516,a[2]=t1,a[3]=t9,a[4]=t12,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:263: chicken.base#flush-output */ t15=*((C_word*)lf[558]+1);{ C_word av2[2]; av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t14=C_SCHEME_UNDEFINED; t15=t1;{ C_word av2[2]; av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}} /* k16514 in main#d in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_16516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_16516,2,av);} a=C_alloc(4); t2=*((C_word*)lf[683]+1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16519,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[684]+1); av2[3]=*((C_word*)lf[683]+1); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; C_apply(6,av2);}} /* k16517 in k16514 in main#d in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_16519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16519,2,av);} /* chicken-install.scm:266: chicken.base#flush-output */ t2=*((C_word*)lf[558]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* main#version>=? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_16546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_16546,4,av);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16549,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16612,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:272: version->list */ f_16549(t5,t2);} /* version->list in main#version>=? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_fcall f_16549(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_16549,2,t1,t2);} a=C_alloc(13); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16564,a[2]=t5,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16605,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:271: chicken.string#->string */ t9=C_fast_retrieve(lf[172]);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k16556 in map-loop4342 in k16562 in version->list in main#version>=? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_16558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16558,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k16562 in version->list in main#version>=? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_16564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_16564,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16569,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_16569(t5,((C_word*)t0)[4],t1);} /* map-loop4342 in k16562 in version->list in main#version>=? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_fcall f_16569(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_16569,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16594,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16558,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:270: scheme#string->number */ t8=*((C_word*)lf[521]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16592 in map-loop4342 in k16562 in version->list in main#version>=? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_16594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16594,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_16569(t6,((C_word*)t0)[5],t5);} /* k16603 in version->list in main#version>=? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_16605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16605,2,av);} /* chicken-install.scm:271: chicken.irregex#irregex-split */ t2=C_fast_retrieve(lf[686]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[687]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k16610 in main#version>=? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_16612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_16612,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16616,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:273: version->list */ f_16549(t3,((C_word*)t0)[4]);} /* k16614 in k16610 in main#version>=? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_16616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_16616,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16618,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_16618(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* loop in k16614 in k16610 in main#version>=? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_fcall f_16618(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_16618,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_nullp(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_nullp(t3); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t2); if(C_truep(C_i_numberp(t5))){ t6=C_i_car(t3); if(C_truep(C_i_numberp(t6))){ t7=t2; t8=C_u_i_car(t7); t9=t3; t10=C_u_i_car(t9); t11=C_i_greaterp(t8,t10); if(C_truep(t11)){ t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=t2; t13=C_u_i_car(t12); t14=t3; t15=C_u_i_car(t14); if(C_truep(C_i_nequalp(t13,t15))){ t16=t2; t17=C_u_i_cdr(t16); t18=t3; t19=C_u_i_cdr(t18); /* chicken-install.scm:280: loop */ t21=t1; t22=t17; t23=t19; t1=t21; t2=t22; t3=t23; goto loop;} else{ t16=t1;{ C_word av2[2]; av2[0]=t16; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}}} else{ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t6=C_i_car(t3); t7=C_i_numberp(t6); if(C_truep(t7)){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16686,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t9=t2; t10=C_u_i_car(t9); t11=t3; t12=C_u_i_car(t11); /* chicken-install.scm:282: scheme#string>? */ t13=*((C_word*)lf[688]+1);{ C_word av2[4]; av2[0]=t13; av2[1]=t8; av2[2]=t10; av2[3]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}}}}} /* k16684 in loop in k16614 in k16610 in main#version>=? in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_16686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16686,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=((C_word*)t0)[4]; t5=C_u_i_car(t4); if(C_truep(C_i_string_equal_p(t3,t5))){ t6=((C_word*)t0)[3]; t7=C_u_i_cdr(t6); t8=((C_word*)t0)[4]; t9=C_u_i_cdr(t8); /* chicken-install.scm:285: loop */ t10=((C_word*)((C_word*)t0)[5])[1]; f_16618(t10,((C_word*)t0)[2],t7,t9);} else{ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_16724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_16724,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16727,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=C_a_i_list2(&a,2,t1,lf[898]); /* chicken-install.scm:292: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_retrieve2(lf[3],C_text("main#+defaults-file+")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_16727(2,av2);}}} /* k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_16727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_16727,2,av);} a=C_alloc(6); t2=C_retrieve2(lf[609],C_text("main#user-defaults")); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16730,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[609],C_text("main#user-defaults")))){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_retrieve2(lf[609],C_text("main#user-defaults")); f_16730(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17146,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ /* chicken-install.scm:295: chicken.file#file-exists? */ t5=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* chicken-install.scm:296: chicken.pathname#make-pathname */ t5=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=C_retrieve2(lf[42],C_text("main#host-sharedir")); av2[3]=C_retrieve2(lf[3],C_text("main#+defaults-file+")); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_16730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_16730,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16732,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17143,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:299: chicken.file#file-exists? */ t5=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* broken in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_fcall f_16732(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_16732,3,t0,t1,t2);} /* chicken-install.scm:298: chicken.base#error */ t3=*((C_word*)lf[109]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=lf[886]; av2[3]=((C_word*)t0)[2]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_fcall f_16743(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_16743,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16747,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_listp(t2))){ t4=t2; t5=C_u_i_length(t4); if(C_truep(C_i_fixnum_positivep(t5))){ t6=t3;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_16747(2,av2);}} else{ /* chicken-install.scm:304: broken */ t6=((C_word*)t0)[2]; f_16732(t6,t3,t2);}} else{ /* chicken-install.scm:304: broken */ t4=((C_word*)t0)[2]; f_16732(t4,t3,t2);}} /* k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_16747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_16747,2,av);} a=C_alloc(23); t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(t2,lf[205]); if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_i_pairp(t5); if(C_truep(C_i_not(t6))){ /* chicken-install.scm:307: broken */ t7=((C_word*)t0)[3]; f_16732(t7,((C_word*)t0)[4],((C_word*)t0)[2]);} else{ t7=C_i_cadr(((C_word*)t0)[2]); t8=C_i_nequalp(t7,C_fix(2)); if(C_truep(C_i_not(t8))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16778,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:310: chicken.base#open-output-string */ t10=C_fast_retrieve(lf[566]);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_SCHEME_UNDEFINED; t10=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}} else{ t4=C_eqp(t2,lf[889]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16827,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); /* chicken-install.scm:319: scheme#append */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t5; av2[2]=C_retrieve2(lf[611],C_text("main#default-servers")); av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t5=C_eqp(t2,lf[8]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16839,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16844,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t12=((C_word*)t0)[2]; t13=C_u_i_cdr(t12); t14=C_i_check_list_2(t13,lf[8]); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16886,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16888,a[2]=t9,a[3]=t17,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t19=((C_word*)t17)[1]; f_16888(t19,t15,t13);} else{ t6=C_eqp(t2,lf[891]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16930,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16935,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t13=((C_word*)t0)[2]; t14=C_u_i_cdr(t13); t15=C_i_check_list_2(t14,lf[8]); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16978,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16980,a[2]=t10,a[3]=t18,a[4]=t12,a[5]=t11,tmp=(C_word)a,a+=6,tmp)); t20=((C_word*)t18)[1]; f_16980(t20,t16,t14);} else{ t7=C_eqp(t2,lf[893]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17022,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17025,a[2]=((C_word*)t0)[2],a[3]=t8,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); if(C_truep(C_i_pairp(t11))){ t12=C_i_cadr(((C_word*)t0)[2]); t13=t9; f_17025(t13,C_i_stringp(t12));} else{ t12=t9; f_17025(t12,C_SCHEME_FALSE);}} else{ t8=C_eqp(t2,lf[896]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17055,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); /* chicken-install.scm:346: scheme#append */ t12=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t12; av2[1]=t9; av2[2]=C_retrieve2(lf[612],C_text("main#default-locations")); av2[3]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} else{ t9=C_eqp(t2,lf[897]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17067,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17075,a[2]=t10,tmp=(C_word)a,a+=3,tmp); t12=C_i_cadr(((C_word*)t0)[2]); /* chicken-install.scm:348: scheme#eval */ t13=*((C_word*)lf[869]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t11; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ /* chicken-install.scm:349: broken */ t10=((C_word*)t0)[3]; f_16732(t10,((C_word*)t0)[4],((C_word*)t0)[2]);}}}}}}}} /* k16776 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_16778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16778,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[562]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16784,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:310: ##sys#print */ t6=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[888]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k16782 in k16776 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_16784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16784,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16787,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:310: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[3],C_text("main#+defaults-file+")); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16785 in k16782 in k16776 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_16787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16787,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16790,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:310: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[887]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16788 in k16785 in k16782 in k16776 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_16790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16790,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16793,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:310: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(2); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k16791 in k16788 in k16785 in k16782 in k16776 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_16793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_16793,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16796,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:310: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(41); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k16794 in k16791 in k16788 in k16785 in k16782 in k16776 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_16796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_16796,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16799,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:310: chicken.base#get-output-string */ t3=C_fast_retrieve(lf[563]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k16797 in k16794 in k16791 in k16788 in k16785 in k16782 in k16776 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in ... */ static void C_ccall f_16799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16799,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* chicken-install.scm:309: chicken.base#error */ t3=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k16825 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_16827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16827,2,av);} t2=C_mutate(&lf[611] /* (set! main#default-servers ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16837 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_16839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16839,2,av);} t2=C_mutate(&lf[613] /* (set! main#mappings ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g4458 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_fcall f_16844(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_16844,3,t0,t1,t2);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16848,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16875,tmp=(C_word)a,a+=2,tmp); t5=t4; t6=t2; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7592,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_7592(t10,t3,C_fix(0),t6);} /* k16846 in g4458 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_16848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_16848,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16851,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_16851(2,av2);}} else{ /* chicken-install.scm:326: broken */ t4=((C_word*)t0)[4]; f_16732(t4,t3,((C_word*)t0)[5]);}} /* k16849 in k16846 in g4458 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_16851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_16851,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16862,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:327: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a16855 in k16849 in k16846 in g4458 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_16856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_16856,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6958,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_6958(t6,t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t2);} /* a16861 in k16849 in k16846 in g4458 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_16862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16862,4,av);} a=C_alloc(3); t4=C_i_cdr(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a16874 in g4458 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_16875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16875,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_eqp(lf[890],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16884 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_16886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16886,2,av);} /* chicken-install.scm:322: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[613],C_text("main#mappings")); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop4452 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_fcall f_16888(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_16888,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16913,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-install.scm:324: g4458 */ t5=((C_word*)t0)[4]; f_16844(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16911 in map-loop4452 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_16913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16913,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_16888(t6,((C_word*)t0)[5],t5);} /* k16928 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_16930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16930,2,av);} t2=C_mutate(&lf[614] /* (set! main#aliases ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g4503 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_fcall f_16935(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_16935,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16942,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_listp(t2))){ t4=t2; t5=C_u_i_length(t4); t6=C_eqp(C_fix(2),t5); if(C_truep(t6)){ /* chicken-install.scm:335: every */ f_7161(t3,*((C_word*)lf[892]+1),t2);} else{ t7=t3;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_16942(2,av2);}}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_16942(2,av2);}}} /* k16940 in g4503 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_16942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_16942,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_i_cadr(((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* chicken-install.scm:337: broken */ t2=((C_word*)t0)[4]; f_16732(t2,((C_word*)t0)[3],((C_word*)t0)[5]);}} /* k16976 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_16978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16978,2,av);} /* chicken-install.scm:332: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[614],C_text("main#aliases")); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop4497 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_fcall f_16980(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_16980,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17005,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-install.scm:334: g4503 */ t5=((C_word*)t0)[4]; f_16935(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17003 in map-loop4497 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_17005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17005,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_16980(t6,((C_word*)t0)[5],t5);} /* k17020 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17022,2,av);} t2=C_mutate(&lf[615] /* (set! main#override ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17023 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_fcall f_17025(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_17025,2,t0,t1);} if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); /* chicken-install.scm:342: scheme#call-with-input-file */ t3=*((C_word*)lf[894]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_fast_retrieve(lf[895]); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_mutate(&lf[615] /* (set! main#override ...) */,t3); t5=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k17053 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17055,2,av);} t2=C_mutate(&lf[612] /* (set! main#default-locations ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17065 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17067,2,av);} t2=C_mutate(&lf[616] /* (set! main#hacks ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17073 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17075,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* chicken-install.scm:348: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[616],C_text("main#hacks")); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k17108 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_17110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_17110,2,av);} a=C_alloc(6); t2=C_i_check_list_2(t1,lf[118]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17118,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_17118(t6,((C_word*)t0)[3],t1);} /* for-each-loop4414 in k17108 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_fcall f_17118(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_17118,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17128,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-install.scm:301: g4415 */ t5=((C_word*)t0)[3]; f_16743(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k17126 in for-each-loop4414 in k17108 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17128,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_17118(t3,((C_word*)t0)[4],t2);} /* k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_17143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_17143,2,av);} a=C_alloc(7); if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16743,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17110,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:350: scheme#call-with-input-file */ t4=*((C_word*)lf[894]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_fast_retrieve(lf[895]); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k17144 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_17146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17146,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_16730(2,av2);}} else{ /* chicken-install.scm:296: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[42],C_text("main#host-sharedir")); av2[3]=C_retrieve2(lf[3],C_text("main#+defaults-file+")); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k17172 in k21436 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_17174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17174,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17180,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:358: chicken.irregex#irregex-match-substring */ t4=C_fast_retrieve(lf[519]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(3); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17178 in k17172 in k21436 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_17180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_17180,2,av);} a=C_alloc(5); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17187,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:359: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[940]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17185 in k17178 in k17172 in k21436 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_17187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17187,2,av);} a=C_alloc(4); t2=C_mutate(&lf[601] /* (set! main#proxy-user-pass ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17191,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:360: chicken.irregex#irregex-match-substring */ t4=C_fast_retrieve(lf[519]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(2); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17189 in k17185 in k17178 in k17172 in k21436 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_17191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17191,2,av);} a=C_alloc(3); t2=C_mutate(&lf[599] /* (set! main#proxy-host ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17195,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:361: scheme#string->number */ t4=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k17193 in k17189 in k17185 in k17178 in k17172 in k21436 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_17195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17195,2,av);} if(C_truep(t1)){ t2=t1; t3=C_mutate(&lf[600] /* (set! main#proxy-port ...) */,t2); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=lf[600] /* main#proxy-port */ =C_fix(80);; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* main#canonical in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_17200(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_17200,2,t1,t2);} a=C_alloc(3); if(C_truep(C_i_symbolp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17214,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:367: scheme#symbol->string */ t4=*((C_word*)lf[690]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_i_stringp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t2,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* chicken-install.scm:370: chicken.base#error */ t3=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=lf[691]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}} /* k17212 in main#canonical in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_17214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_17214,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,t1,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_17234(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_17234,2,t1,t2);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17237,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17254,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17293,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17295,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:377: append-map */ f_6991(t5,t6,t2,C_SCHEME_END_OF_LIST);} /* same? in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_17237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17237,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17246,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:374: canonical */ f_17200(t4,t2);} /* k17244 in same? in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_17246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17246,2,av);} a=C_alloc(4); t2=C_u_i_car(t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17251,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:374: canonical */ f_17200(t3,((C_word*)t0)[3]);} /* k17249 in k17244 in same? in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_17251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17251,2,av);} t2=C_u_i_car(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_equalp(((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17252 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_17254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_17254,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17257,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17260,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t5=C_i_length(((C_word*)t0)[3]); t6=C_i_length(t2); t7=C_eqp(t5,t6); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17271,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:386: every */ f_7161(t4,t8,((C_word*)t0)[3]);} else{ t8=t4;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_17260(2,av2);}}} /* k17255 in k17252 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_17257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17257,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k17258 in k17252 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_17260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_17260,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* chicken-install.scm:389: d */ f_16497(((C_word*)t0)[4],lf[693],C_a_i_list(&a,2,((C_word*)t0)[5],((C_word*)t0)[3]));}} /* a17270 in k17252 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_17271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17271,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17277,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:387: find */ f_7916(t1,t3,((C_word*)t0)[3]);} /* a17276 in a17270 in k17252 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_17277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17277,3,av);} /* chicken-install.scm:387: g4610 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; f_17237(4,av2);}} /* k17291 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_17293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_17293,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7362,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_7362(t6,((C_word*)t0)[3],t1);} /* a17294 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_17295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_17295,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17299,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17358,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:379: find */ f_7916(t3,t4,C_retrieve2(lf[613],C_text("main#mappings")));} /* k17297 in a17294 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_17299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_17299,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=t1; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_fast_retrieve(lf[172]); t9=C_i_cdr(t3); t10=C_i_check_list_2(t9,lf[8]); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17318,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_17318(t14,t2,t9);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* map-loop4578 in k17297 in a17294 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_fcall f_17318(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_17318,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17343,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-install.scm:381: g4584 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17341 in map-loop4578 in k17297 in a17294 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_17343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17343,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_17318(t6,((C_word*)t0)[5],t5);} /* a17357 in a17294 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_17358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17358,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17364,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_i_car(t2); /* chicken-install.scm:379: find */ f_7916(t1,t3,t4);} /* a17363 in a17357 in a17294 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_17364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17364,3,av);} /* chicken-install.scm:379: g4571 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; f_17237(4,av2);}} /* k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_17378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17378,2,av);} a=C_alloc(4); t2=t1; t3=C_i_assq(t2,C_retrieve2(lf[615],C_text("main#override"))); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17385,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:397: g4623 */ t5=t4; f_17385(t5,((C_word*)t0)[3],t3);} else{ t4=C_i_pairp(((C_word*)t0)[2]); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=(C_truep(t4)?C_u_i_cdr(((C_word*)t0)[2]):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_fcall f_17385(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_17385,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17389,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17412,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t5=C_i_cdr(t2); if(C_truep(C_i_pairp(t5))){ t6=C_i_cadr(t2); t7=C_u_i_cdr(((C_word*)t0)[2]); t8=C_i_equalp(t6,t7); t9=t4; f_17412(t9,C_i_not(t8));} else{ t6=t4; f_17412(t6,C_SCHEME_FALSE);}} else{ t5=t4; f_17412(t5,C_SCHEME_FALSE);}} /* k17387 in g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_17389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17389,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t2))){ t3=C_i_pairp(((C_word*)t0)[3]); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?C_u_i_cdr(((C_word*)t0)[3]):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cadr(((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17410 in g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_fcall f_17412(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_17412,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17419,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:403: chicken.base#open-output-string */ t3=C_fast_retrieve(lf[566]);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* chicken-install.scm:406: d */ f_16497(((C_word*)t0)[2],lf[792],C_a_i_list(&a,1,((C_word*)t0)[5]));}} /* k17417 in k17410 in g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_17419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_17419,2,av);} a=C_alloc(8); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[562]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17425,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:403: ##sys#print */ t6=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[791]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k17423 in k17417 in k17410 in g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_17425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_17425,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17428,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_cadr(((C_word*)t0)[7]); /* chicken-install.scm:403: ##sys#print */ t4=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k17426 in k17423 in k17417 in k17410 in g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_17428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_17428,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17431,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:403: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[790]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k17429 in k17426 in k17423 in k17417 in k17410 in g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_17431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_17431,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17434,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:403: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k17432 in k17429 in k17426 in k17423 in k17417 in k17410 in g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_17434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_17434,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17437,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:403: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[789]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k17435 in k17432 in k17429 in k17426 in k17423 in k17417 in k17410 in g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_17437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_17437,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17440,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_cdr(((C_word*)t0)[5]); /* chicken-install.scm:403: ##sys#print */ t4=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k17438 in k17435 in k17432 in k17429 in k17426 in k17423 in k17417 in k17410 in g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_17440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17440,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17443,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:403: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k17441 in k17438 in k17435 in k17432 in k17429 in k17426 in k17423 in k17417 in k17410 in g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17443,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17446,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:403: chicken.base#get-output-string */ t3=C_fast_retrieve(lf[563]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k17444 in k17441 in k17438 in k17435 in k17432 in k17429 in k17426 in k17423 in k17417 in k17410 in g4623 in k17376 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_17446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17446,2,av);} /* chicken-install.scm:402: chicken.base#warning */ t2=C_fast_retrieve(lf[713]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_17507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_17507,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17510,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:419: chicken.time#current-seconds */ t4=C_fast_retrieve(lf[772]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_17510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_17510,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17513,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:420: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[786]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_17513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_17513,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17516,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:421: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[2]; av2[4]=C_retrieve2(lf[51],C_text("main#+egg-extension+")); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_17516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_17516,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17518,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17546,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17731,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:428: probe-dir */ f_8267(t5,((C_word*)t0)[5]);} /* fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_fcall f_17518(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_17518,3,t0,t1,t2);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17522,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17540,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:423: chicken.file#file-exists? */ t5=C_fast_retrieve(lf[61]);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_17522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_17522,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17525,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:425: chicken.file#create-directory */ t3=C_fast_retrieve(lf[758]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_17525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_17525,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17528,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=((C_word*)t0)[5]; t5=((C_word*)t0)[6]; t6=((C_word*)t0)[7]; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17762,a[2]=t6,a[3]=t3,a[4]=t5,a[5]=t4,a[6]=t8,tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_17762(t10,t2,C_retrieve2(lf[612],C_text("main#default-locations")));} /* k17526 in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_17528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){ C_save_and_reclaim((void *)f_17528,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17533,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:427: scheme#with-output-to-file */ t3=C_fast_retrieve(lf[464]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a17532 in k17526 in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17533,2,av);} /* chicken-install.scm:427: g4662 */ t2=*((C_word*)lf[734]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=C_retrieve2(lf[641],C_text("main#current-status")); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k17538 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_17540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17540,2,av);} if(C_truep(t1)){ /* chicken-install.scm:424: chicken.file#delete-directory */ t2=C_fast_retrieve(lf[737]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_17522(2,av2);}}} /* k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_17546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_17546,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17549,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17664,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23404,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* egg-information.scm:37: locate-egg-file */ f_8286(t5,((C_word*)t0)[4]);} /* k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_17549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_17549,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17552,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* chicken-install.scm:443: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=C_retrieve2(lf[47],C_text("main#+version-file+")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_17552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_17552,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* chicken-install.scm:444: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_retrieve2(lf[49],C_text("main#+timestamp-file+")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_17555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_17555,2,av);} a=C_alloc(15); t2=t1; t3=( /* chicken-install.scm:445: get-egg-property */ f_8323(((C_word*)t0)[2],lf[205],C_SCHEME_END_OF_LIST) ); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17561,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=t2,tmp=(C_word)a,a+=11,tmp); if(C_truep(t3)){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=t3; f_17561(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17657,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:446: chicken.file#file-exists? */ t6=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_17561,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17567,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_not(C_retrieve2(lf[638],C_text("main#cached-only"))))){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17607,a[2]=t3,a[3]=((C_word*)t0)[7],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_stringp(((C_word*)t0)[8]))){ t5=C_i_equalp(((C_word*)t0)[8],t2); t6=t4; f_17607(t6,C_i_not(t5));} else{ t5=t4; f_17607(t5,C_SCHEME_FALSE);}} else{ t4=t3; f_17567(t4,C_SCHEME_FALSE);}} /* k17565 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_fcall f_17567(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_17567,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17570,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:455: d */ f_16497(t2,lf[776],C_a_i_list(&a,1,((C_word*)t0)[7]));} else{ /* chicken-install.scm:462: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[8]; C_values(4,av2);}}} /* k17568 in k17565 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_17570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_17570,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17573,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:456: fetch */ t3=((C_word*)t0)[6]; f_17518(t3,t2,C_SCHEME_TRUE);} /* k17571 in k17568 in k17565 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_17573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_17573,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17576,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17598,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23387,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* egg-information.scm:37: locate-egg-file */ f_8286(t5,((C_word*)t0)[5]);} /* k17574 in k17571 in k17568 in k17565 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_17576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_17576,2,av);} a=C_alloc(10); t2=( /* chicken-install.scm:458: get-egg-property */ f_8323(t1,lf[205],C_SCHEME_END_OF_LIST) ); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17582,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ /* chicken-install.scm:461: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; C_values(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17591,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:459: chicken.file#file-exists? */ t5=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k17580 in k17574 in k17571 in k17568 in k17565 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_17582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17582,2,av);} /* chicken-install.scm:461: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_values(4,av2);}} /* k17589 in k17574 in k17571 in k17568 in k17565 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_17591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17591,2,av);} if(C_truep(t1)){ /* chicken-install.scm:460: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ /* chicken-install.scm:461: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} /* k17596 in k17571 in k17568 in k17565 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_17598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17598,2,av);} /* chicken-install.scm:457: validate-egg-info */ f_16179(((C_word*)t0)[2],t1);} /* k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_fcall f_17607(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_17607,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_17567(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:451: chicken.file#file-exists? */ t3=C_fast_retrieve(lf[61]);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_fcall f_17619(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_17619,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17626,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18019,a[2]=t4,a[3]=t3,a[4]=t5,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_18019(t9,t2,C_retrieve2(lf[612],C_text("main#default-locations")));} else{ t2=((C_word*)t0)[2]; f_17567(t2,C_SCHEME_FALSE);}} /* k17624 in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_17626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17626,2,av);} t2=((C_word*)t0)[2]; f_17567(t2,C_i_not(t1));} /* k17635 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_17637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_17637,2,av);} a=C_alloc(29); t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; f_17619(t3,C_i_greaterp(t2,C_fix(3600)));} /* k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_17641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_17641,2,av);} a=C_alloc(10); t2=C_i_not(t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17619,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t4=t3; f_17619(t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17637,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:452: scheme#with-input-from-file */ t5=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k17655 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17657,2,av);} if(C_truep(t1)){ /* chicken-install.scm:447: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_17561(2,av2);}}} /* k17662 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_17664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17664,2,av);} /* chicken-install.scm:442: validate-egg-info */ f_16179(((C_word*)t0)[2],t1);} /* k17668 in k17729 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_fcall f_17670(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_17670,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17673,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:430: d */ f_16497(t2,lf[782],C_a_i_list(&a,1,((C_word*)t0)[4]));} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17688,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17709,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:433: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[61]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k17671 in k17668 in k17729 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_17673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17673,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17676,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[638],C_text("main#cached-only")))){ /* chicken-install.scm:431: chicken.base#error */ t3=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[781]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* chicken-install.scm:432: fetch */ t3=((C_word*)t0)[2]; f_17518(t3,((C_word*)t0)[3],C_SCHEME_FALSE);}} /* k17674 in k17671 in k17668 in k17729 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_17676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17676,2,av);} /* chicken-install.scm:432: fetch */ t2=((C_word*)t0)[2]; f_17518(t2,((C_word*)t0)[3],C_SCHEME_FALSE);} /* k17686 in k17668 in k17729 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_fcall f_17688(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_17688,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17691,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:436: d */ f_16497(t2,lf[785],C_a_i_list(&a,1,((C_word*)t0)[3]));} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; f_17546(2,av2);}}} /* k17689 in k17686 in k17668 in k17729 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_17691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17691,2,av);} if(C_truep(C_retrieve2(lf[638],C_text("main#cached-only")))){ if(C_truep(C_retrieve2(lf[628],C_text("main#force-install")))){ /* chicken-install.scm:439: chicken.base#warning */ t2=C_fast_retrieve(lf[713]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[783]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ /* chicken-install.scm:440: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[784]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} else{ /* chicken-install.scm:441: fetch */ t2=((C_word*)t0)[4]; f_17518(t2,((C_word*)t0)[2],C_SCHEME_FALSE);}} /* k17707 in k17668 in k17729 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_17709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17709,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17720,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:435: scheme#with-input-from-file */ t3=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_17688(t2,C_SCHEME_FALSE);}} /* k17718 in k17707 in k17668 in k17729 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_17720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17720,2,av);} t2=C_i_equalp(C_retrieve2(lf[641],C_text("main#current-status")),t1); t3=((C_word*)t0)[2]; f_17688(t3,C_i_not(t2));} /* k17725 in k17729 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_17727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17727,2,av);} t2=((C_word*)t0)[2]; f_17670(t2,C_i_not(t1));} /* k17729 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_17731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_17731,2,av);} a=C_alloc(9); t2=C_i_not(t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17670,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t4=t3; f_17670(t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17727,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:429: chicken.file#file-exists? */ t5=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* main#resolve-location in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_17733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17733,3,av);} a=C_alloc(3); t3=C_i_assoc(t2,C_retrieve2(lf[614],C_text("main#aliases"))); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17741,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:465: g4716 */ t5=t4; f_17741(t5,t1,t3);} else{ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* g4716 in main#resolve-location in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_fcall f_17741(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_17741,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17748,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:468: d */ f_16497(t5,lf[695],C_a_i_list(&a,2,((C_word*)t0)[2],t4));} /* k17746 in g4716 in main#resolve-location in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_17748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17748,2,av);} /* chicken-install.scm:469: resolve-location */ t2=C_retrieve2(lf[694],C_text("main#resolve-location"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; f_17733(3,av2);}} /* loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_fcall f_17762(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_17762,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17772,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:475: chicken.file#create-temporary-directory */ t4=C_fast_retrieve(lf[774]);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17918,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[3],a[7]=t1,tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17979,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_car(t2); /* chicken-install.scm:505: chicken.pathname#make-pathname */ t6=C_fast_retrieve(lf[62]);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_17772,2,av);} a=C_alloc(21); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_retrieve2(lf[694],C_text("main#resolve-location")); t8=C_retrieve2(lf[611],C_text("main#default-servers")); t9=C_i_check_list_2(C_retrieve2(lf[611],C_text("main#default-servers")),lf[8]); t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17785,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17883,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_17883(t14,t10,C_retrieve2(lf[611],C_text("main#default-servers")));} /* k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_17785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_17785,2,av);} a=C_alloc(10); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17787,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_17787(t5,((C_word*)t0)[7],t1);} /* loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_fcall f_17787(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_17787,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_nullp(t2))){ if(C_truep(((C_word*)t0)[2])){ /* chicken-install.scm:479: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t1; av2[2]=lf[735]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17803,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:481: chicken.file#delete-directory */ t4=C_fast_retrieve(lf[737]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17812,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp); t4=C_i_car(t2); /* chicken-install.scm:485: d */ f_16497(t3,lf[773],C_a_i_list(&a,1,t4));}} /* k17801 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_17803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17803,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17806,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:482: chicken.file#delete-directory */ t3=C_fast_retrieve(lf[737]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k17804 in k17801 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_17806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17806,2,av);} /* chicken-install.scm:483: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[736]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_17812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_17812,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17817,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17827,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:486: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[8]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a17816 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_17817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(53,c,3)))){ C_save_and_reclaim((void *)f_17817,2,av);} a=C_alloc(53); t2=C_i_car(((C_word*)t0)[2]); t3=t1; t4=((C_word*)t0)[3]; t5=t2; t6=C_a_i_list(&a,12,lf[738],((C_word*)t0)[4],lf[153],((C_word*)t0)[5],lf[739],C_SCHEME_TRUE,lf[548],C_retrieve2(lf[599],C_text("main#proxy-host")),lf[549],C_retrieve2(lf[600],C_text("main#proxy-port")),lf[550],C_retrieve2(lf[601],C_text("main#proxy-user-pass"))); t7=C_i_get_keyword(lf[738],t6,C_SCHEME_FALSE); t8=t7; t9=C_i_get_keyword(lf[153],t6,C_SCHEME_FALSE); t10=t9; t11=C_i_get_keyword(lf[739],t6,C_SCHEME_FALSE); t12=t11; t13=C_i_get_keyword(lf[548],t6,C_SCHEME_FALSE); t14=t13; t15=C_i_get_keyword(lf[549],t6,C_SCHEME_FALSE); t16=t15; t17=C_i_get_keyword(lf[550],t6,C_SCHEME_FALSE); t18=t17; t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15800,a[2]=t3,a[3]=t4,a[4]=t5,a[5]=t8,a[6]=t10,a[7]=t12,a[8]=t14,a[9]=t16,a[10]=t18,tmp=(C_word)a,a+=11,tmp); /* egg-download.scm:283: d */ f_16497(t19,lf[771],C_a_i_list(&a,2,t4,t5));} /* a17826 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_17827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_17827,4,av);} a=C_alloc(6); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17834,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:495: copy-egg-sources */ f_17985(t4,((C_word*)t0)[3],((C_word*)t0)[2]);} else{ t4=C_i_cdr(((C_word*)t0)[4]); /* chicken-install.scm:504: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_17787(t5,t1,t4);}} /* k17832 in a17826 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_17834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_17834,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17837,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:496: chicken.file#delete-directory */ t3=C_fast_retrieve(lf[737]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k17835 in k17832 in a17826 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f_17837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_17837,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17840,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17864,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:499: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=C_retrieve2(lf[47],C_text("main#+version-file+")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_17840(2,av2);}}} /* k17838 in k17835 in k17832 in a17826 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_ccall f_17840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17840,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17847,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:502: chicken.pathname#make-pathname */ t3=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=C_retrieve2(lf[49],C_text("main#+timestamp-file+")); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k17845 in k17838 in k17835 in k17832 in a17826 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in ... */ static void C_ccall f_17847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){ C_save_and_reclaim((void *)f_17847,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17849,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:501: scheme#with-output-to-file */ t3=C_fast_retrieve(lf[464]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a17848 in k17845 in k17838 in k17835 in k17832 in a17826 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in ... */ static void C_ccall f_17849(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17849,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17857,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:503: chicken.time#current-seconds */ t3=C_fast_retrieve(lf[772]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k17855 in a17848 in k17845 in k17838 in k17835 in k17832 in a17826 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in ... */ static void C_ccall f_17857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17857,2,av);} /* chicken-install.scm:503: g4751 */ t2=*((C_word*)lf[734]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k17862 in k17835 in k17832 in a17826 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_ccall f_17864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17864,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17866,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:498: scheme#with-output-to-file */ t3=C_fast_retrieve(lf[464]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a17865 in k17862 in k17835 in k17832 in a17826 in k17810 in loop in k17783 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in ... */ static void C_ccall f_17866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17866,2,av);} /* chicken-install.scm:500: g4746 */ t2=*((C_word*)lf[734]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* map-loop4760 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_fcall f_17883(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_17883,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17908,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-install.scm:476: g4766 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17906 in map-loop4760 in k17770 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_17908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17908,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_17883(t6,((C_word*)t0)[5],t5);} /* k17916 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_17918,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17922,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:474: g4785 */ t3=t2; f_17922(t3,((C_word*)t0)[7],t1);} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* chicken-install.scm:516: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_17762(t4,((C_word*)t0)[7],t3);}} /* g4785 in k17916 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_fcall f_17922(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_17922,3,t0,t1,t2);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17926,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); /* chicken-install.scm:507: d */ f_16497(t3,lf[775],C_a_i_list(&a,1,t2));} /* k17924 in g4785 in k17916 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_17926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_17926,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17929,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:508: chicken.pathname#make-pathname */ t3=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[8]; av2[4]=C_retrieve2(lf[51],C_text("main#+egg-extension+")); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k17927 in k17924 in g4785 in k17916 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_17929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_17929,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17932,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17967,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23378,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* egg-information.scm:37: locate-egg-file */ f_8286(t5,t1);} /* k17930 in k17927 in k17924 in g4785 in k17916 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_17932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_17932,2,av);} a=C_alloc(7); t2=( /* chicken-install.scm:510: get-egg-property */ f_8323(t1,lf[205],C_SCHEME_END_OF_LIST) ); t3=C_i_not(t2); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17944,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t3)){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=t3; f_17944(2,av2);}} else{ t5=C_i_not(((C_word*)t0)[7]); if(C_truep(t5)){ t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; f_17944(2,av2);}} else{ /* chicken-install.scm:513: version>=? */ t6=C_retrieve2(lf[685],C_text("main#version>=\077"));{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t2; av2[3]=((C_word*)t0)[7]; f_16546(4,av2);}}}} /* k17942 in k17930 in k17927 in k17924 in g4785 in k17916 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_17944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17944,2,av);} if(C_truep(t1)){ /* chicken-install.scm:514: copy-egg-sources */ f_17985(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=C_i_cdr(((C_word*)t0)[5]); /* chicken-install.scm:515: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_17762(t3,((C_word*)t0)[2],t2);}} /* k17965 in k17927 in k17924 in g4785 in k17916 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_17967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17967,2,av);} /* chicken-install.scm:509: validate-egg-info */ f_16179(((C_word*)t0)[2],t1);} /* k17977 in loop in k17523 in k17520 in fetch in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_17979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17979,2,av);} /* chicken-install.scm:505: probe-dir */ f_8267(((C_word*)t0)[2],t1);} /* main#copy-egg-sources in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_17985(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_17985,3,t1,t2,t3);} a=C_alloc(14); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17989,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=( /* chicken-install.scm:521: copy-directory-command */ f_8758(C_retrieve2(lf[639],C_text("main#platform"))) ); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18003,a[2]=t4,a[3]=t6,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18011,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:523: qs* */ f_14498(t8,t2,C_retrieve2(lf[639],C_text("main#platform")),C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k17987 in main#copy-egg-sources in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_17989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_17989,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17992,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:525: d */ f_16497(t3,lf[697],C_a_i_list(&a,1,t2));} /* k17990 in k17987 in main#copy-egg-sources in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_17992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17992,2,av);} /* chicken-install.scm:526: system+ */ f_14603(((C_word*)t0)[2],((C_word*)t0)[3],C_retrieve2(lf[639],C_text("main#platform")));} /* k18001 in main#copy-egg-sources in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_18003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_18003,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18007,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:524: qs* */ f_14498(t3,((C_word*)t0)[4],C_retrieve2(lf[639],C_text("main#platform")),C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k18005 in k18001 in main#copy-egg-sources in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_18007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_18007,2,av);} /* chicken-install.scm:520: scheme#string-append */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[698]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[699]; av2[6]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k18009 in main#copy-egg-sources in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_18011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18011,2,av);} /* chicken-install.scm:523: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[700]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_fcall f_18019(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ C_save_and_reclaim_args((void *)trf_18019,3,t0,t1,t2);} a=C_alloc(18); if(C_truep(C_i_nullp(t2))){ t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_retrieve2(lf[694],C_text("main#resolve-location")); t8=C_retrieve2(lf[611],C_text("main#default-servers")); t9=C_i_check_list_2(C_retrieve2(lf[611],C_text("main#default-servers")),lf[8]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18039,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18075,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_18075(t14,t10,C_retrieve2(lf[611],C_text("main#default-servers")));} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18110,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18130,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_car(t2); /* chicken-install.scm:537: chicken.pathname#make-pathname */ t6=C_fast_retrieve(lf[62]);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k18037 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_18039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_18039,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18041,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_18041(t5,((C_word*)t0)[4],t1);} /* loop in k18037 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in ... */ static void C_fcall f_18041(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_18041,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18051,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=t2; t5=C_u_i_car(t4); /* chicken-install.scm:533: try-list-versions */ f_15589(t3,((C_word*)t0)[4],t5);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18049 in loop in k18037 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_ccall f_18051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_18051,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18054,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18067,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:535: every */ f_7161(t2,t3,t1);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_18054(2,av2);}}} /* k18052 in k18049 in loop in k18037 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in ... */ static void C_ccall f_18054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18054,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* chicken-install.scm:536: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_18041(t4,((C_word*)t0)[2],t3);}} /* a18066 in k18049 in loop in k18037 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in ... */ static void C_ccall f_18067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18067,3,av);} t3=C_retrieve2(lf[685],C_text("main#version>=\077")); /* chicken-install.scm:535: g4829 */ t4=C_retrieve2(lf[685],C_text("main#version>=\077"));{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; f_16546(4,av2);}} /* map-loop4834 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_fcall f_18075(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18075,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18100,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-install.scm:531: g4840 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18098 in map-loop4834 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f_18100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18100,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18075(t6,((C_word*)t0)[5],t5);} /* k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_18110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18110,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18114,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:530: g4859 */ t3=t2; f_18114(t3,((C_word*)t0)[3],t1);} else{ t2=((C_word*)t0)[4]; t3=C_u_i_cdr(t2); /* chicken-install.scm:542: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_18019(t4,((C_word*)t0)[3],t3);}} /* g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in ... */ static void C_fcall f_18114(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_18114,3,t0,t1,t2);} a=C_alloc(5); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18142,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_18142(t6,t1,t2,((C_word*)t0)[2]);} /* k18128 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_18130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18130,2,av);} /* chicken-install.scm:537: probe-dir */ f_8267(((C_word*)t0)[2],t1);} /* walk in g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_fcall f_18142(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18142,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18146,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:547: chicken.file#directory */ t5=C_fast_retrieve(lf[780]);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k18144 in walk in g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in ... */ static void C_ccall f_18146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_18146,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18149,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:548: chicken.file#directory */ t4=C_fast_retrieve(lf[780]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k18147 in k18144 in walk in g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in ... */ static void C_ccall f_18149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_18149,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18154,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:549: every */ f_7161(((C_word*)t0)[5],t3,((C_word*)t0)[6]);} /* a18153 in k18147 in k18144 in walk in g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in for-each-loop4942 in ... */ static void C_ccall f_18154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_18154,3,av);} a=C_alloc(6); if(C_truep(C_i_member(t2,((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18164,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:551: scheme#string-append */ t4=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=lf[779]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18162 in a18153 in k18147 in k18144 in walk in g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in k18397 in ... */ static void C_ccall f_18164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_18164,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18167,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:552: scheme#string-append */ t4=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[778]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k18165 in k18162 in a18153 in k18147 in k18144 in walk in g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in a18403 in ... */ static void C_ccall f_18167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_18167,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:553: chicken.file.posix#file-modification-time */ t4=C_fast_retrieve(lf[777]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k18172 in k18165 in k18162 in a18153 in k18147 in k18144 in walk in g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in k17505 in ... */ static void C_ccall f_18174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_18174,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18178,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:554: chicken.file.posix#file-modification-time */ t4=C_fast_retrieve(lf[777]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k18176 in k18172 in k18165 in k18162 in a18153 in k18147 in k18144 in walk in g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in k17508 in ... */ static void C_ccall f_18178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_18178,2,av);} a=C_alloc(6); if(C_truep(C_i_integer_less_or_equalp(((C_word*)t0)[2],t1))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18184,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:555: chicken.file#directory-exists? */ t3=C_fast_retrieve(lf[58]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k18182 in k18176 in k18172 in k18165 in k18162 in a18153 in k18147 in k18144 in walk in g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in k17511 in ... */ static void C_ccall f_18184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_18184,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18190,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:556: chicken.file#directory-exists? */ t3=C_fast_retrieve(lf[58]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18200,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:558: chicken.file#directory-exists? */ t3=C_fast_retrieve(lf[58]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k18188 in k18182 in k18176 in k18172 in k18165 in k18162 in a18153 in k18147 in k18144 in walk in g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in ... */ static void C_ccall f_18190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18190,2,av);} if(C_truep(t1)){ /* chicken-install.scm:557: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_18142(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k18198 in k18182 in k18176 in k18172 in k18165 in k18162 in a18153 in k18147 in k18144 in walk in g4859 in k18108 in loop in k17617 in k17639 in k17605 in k17559 in k17553 in k17550 in k17547 in k17544 in k17514 in ... */ static void C_ccall f_18200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18200,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_18206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_18206,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18211,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_18211(t5,((C_word*)t0)[4],t1,C_SCHEME_END_OF_LIST);} /* loop in k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_fcall f_18211(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_18211,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18276,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t3,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t5=C_i_car(t2); /* chicken-install.scm:568: chicken.pathname#pathname-file */ t6=C_fast_retrieve(lf[64]);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k18230 in k18274 in loop in k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f_18232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_18232,2,av);} a=C_alloc(16); t2=C_i_assq(lf[204],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18238,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18256,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=t5; t7=C_i_check_list_2(((C_word*)t0)[6],lf[6]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7410,a[2]=t6,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_7410(t11,t4,((C_word*)t0)[6]);} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_18238(2,av2);}}} /* k18236 in k18230 in k18274 in loop in k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in ... */ static void C_ccall f_18238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_18238,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18247,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t5=t1; /* chicken-install.scm:578: scheme#append */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ /* chicken-install.scm:578: scheme#append */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k18245 in k18236 in k18230 in k18274 in loop in k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in ... */ static void C_ccall f_18247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18247,2,av);} /* chicken-install.scm:578: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_18211(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a18255 in k18230 in k18274 in loop in k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in ... */ static void C_ccall f_18256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18256,3,av);} t3=C_i_member(t2,((C_word*)t0)[2]); t4=C_i_not(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=(C_truep(t4)?C_i_member(t2,((C_word*)t0)[3]):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k18274 in loop in k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_18276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_18276,2,av);} a=C_alloc(10); if(C_truep(C_i_string_equal_p(((C_word*)t0)[2],t1))){ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* chicken-install.scm:569: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_18211(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6]);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18232,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=t2; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23424,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* egg-information.scm:37: locate-egg-file */ f_8286(t6,t4);}} /* k18282 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_18284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18284,2,av);} /* chicken-install.scm:565: chicken.file#glob */ t2=C_fast_retrieve(lf[828]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k18286 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_18288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18288,2,av);} /* chicken-install.scm:565: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[829]; av2[4]=C_retrieve2(lf[45],C_text("main#+egg-info-extension+")); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k18292 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_18294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_18294,2,av);} a=C_alloc(5); t2=t1; if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18303,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:583: chicken.base#flush-output */ t4=*((C_word*)lf[558]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18301 in k18292 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_18303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_18303,2,av);} a=C_alloc(6); t2=*((C_word*)lf[683]+1); t3=*((C_word*)lf[683]+1); t4=C_i_check_port_2(*((C_word*)lf[683]+1),C_fix(2),C_SCHEME_TRUE,lf[824]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18309,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:584: ##sys#print */ t6=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[827]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[683]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k18307 in k18301 in k18292 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_18309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_18309,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18312,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:584: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k18310 in k18307 in k18301 in k18292 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f_18312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_18312,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18315,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:584: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[826]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k18313 in k18310 in k18307 in k18301 in k18292 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in ... */ static void C_ccall f_18315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_18315,2,av);} a=C_alloc(8); t2=C_i_check_list_2(((C_word*)t0)[2],lf[118]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18335,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18340,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_18340(t7,t3,((C_word*)t0)[2]);} /* k18321 in for-each-loop4912 in k18313 in k18310 in k18307 in k18301 in k18292 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in ... */ static void C_ccall f_18323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_18323,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:588: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k18324 in k18321 in for-each-loop4912 in k18313 in k18310 in k18307 in k18301 in k18292 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in ... */ static void C_ccall f_18326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18326,2,av);} /* chicken-install.scm:588: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k18333 in k18313 in k18310 in k18307 in k18301 in k18292 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in ... */ static void C_ccall f_18335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18335,2,av);} /* chicken-install.scm:590: chicken.base#exit */ t2=C_fast_retrieve(lf[708]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* for-each-loop4912 in k18313 in k18310 in k18307 in k18301 in k18292 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in ... */ static void C_fcall f_18340(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_18340,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18350,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=*((C_word*)lf[683]+1); t8=*((C_word*)lf[683]+1); t9=C_i_check_port_2(*((C_word*)lf[683]+1),C_fix(2),C_SCHEME_TRUE,lf[824]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18323,a[2]=t5,a[3]=t7,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:588: ##sys#print */ t11=*((C_word*)lf[469]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[825]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[683]+1); ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18348 in for-each-loop4912 in k18313 in k18310 in k18307 in k18301 in k18292 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in ... */ static void C_ccall f_18350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18350,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_18340(t3,((C_word*)t0)[4],t2);} /* main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_18371(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_18371,2,t1,t2);} a=C_alloc(8); t3=C_i_check_list_2(t2,lf[118]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18457,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18683,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_18683(t8,t4,t2);} /* k18388 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_18390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18390,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_mutate(&lf[623] /* (set! main#canonical-eggs ...) */,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_18399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_18399,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18404,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18410,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:605: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a18403 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_18404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_18404,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17507,a[2]=t3,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:418: chicken.pathname#make-pathname */ t6=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_retrieve2(lf[59],C_text("main#cache-directory")); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* a18409 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_18410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_18410,4,av);} a=C_alloc(15); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18414,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t5,a[5]=t1,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t7=C_i_not(t4); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18431,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t7)){ t9=t8; f_18431(t9,t7);} else{ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18447,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:607: chicken.file#directory */ t10=C_fast_retrieve(lf[780]);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} /* k18412 in a18409 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_18414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_18414,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18417,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:610: d */ f_16497(t2,C_retrieve2(lf[617],C_text("main#retrieve-only")),C_a_i_list(&a,3,lf[787],((C_word*)t0)[6],((C_word*)t0)[3]));} /* k18415 in k18412 in a18409 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_18417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_18417,2,av);} a=C_alloc(12); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=C_a_i_cons(&a,2,t2,C_retrieve2(lf[623],C_text("main#canonical-eggs"))); t4=C_mutate(&lf[623] /* (set! main#canonical-eggs ...) */,t3); t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k18429 in a18409 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_fcall f_18431(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_18431,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18434,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ /* chicken-install.scm:608: chicken.file#delete-directory */ t3=C_fast_retrieve(lf[737]);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* chicken-install.scm:609: chicken.base#error */ t3=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[788]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_18414(2,av2);}}} /* k18432 in k18429 in a18409 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_18434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18434,2,av);} /* chicken-install.scm:609: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[788]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k18445 in a18409 in k18397 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_18447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18447,2,av);} t2=((C_word*)t0)[2]; f_18431(t2,C_i_nullp(t1));} /* k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_18457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_18457,2,av);} a=C_alloc(5); t2=C_i_not(C_retrieve2(lf[617],C_text("main#retrieve-only"))); t3=(C_truep(t2)?t2:C_retrieve2(lf[618],C_text("main#retrieve-recursive"))); if(C_truep(t3)){ t4=C_retrieve2(lf[623],C_text("main#canonical-eggs")); t5=C_i_check_list_2(C_retrieve2(lf[623],C_text("main#canonical-eggs")),lf[118]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18660,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1]; f_18660(t9,((C_word*)t0)[2],C_retrieve2(lf[623],C_text("main#canonical-eggs")));} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_18477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_18477,2,av);} a=C_alloc(7); t2=C_u_i_car(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t2,C_retrieve2(lf[626],C_text("main#checked-eggs"))); t4=C_mutate(&lf[626] /* (set! main#checked-eggs ...) */,t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18484,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t6=C_i_cadr(((C_word*)t0)[2]); t7=C_u_i_car(((C_word*)t0)[2]); /* chicken-install.scm:620: chicken.pathname#make-pathname */ t8=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t5; av2[2]=t6; av2[3]=t7; av2[4]=C_retrieve2(lf[51],C_text("main#+egg-extension+")); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_18484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_18484,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18487,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18638,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23361,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* egg-information.scm:37: locate-egg-file */ f_8286(t5,t1);} /* k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_18487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_18487,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18490,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_u_i_car(((C_word*)t0)[2]); /* chicken-install.scm:622: d */ f_16497(t3,lf[729],C_a_i_list(&a,1,t4));} /* k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_18490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_18490,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18493,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_u_i_car(((C_word*)t0)[2]); t4=t2; t5=t3; if(C_truep(C_retrieve2(lf[18],C_text("main#cross-chicken")))){ t6=C_SCHEME_UNDEFINED; t7=t4;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=( /* chicken-install.scm:733: get-egg-property */ f_8323(((C_word*)t0)[3],lf[670],C_SCHEME_END_OF_LIST) ); t7=t6; if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19169,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19177,a[2]=t5,a[3]=t7,a[4]=t10,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t8; av2[2]=t7; f_19177(3,av2);}} else{ t8=t4;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_18493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_18493,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18496,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_u_i_car(((C_word*)t0)[2]); /* chicken-install.scm:624: d */ f_16497(t2,lf[725],C_a_i_list(&a,1,t3));} /* k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_18496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_18496,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18511,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:625: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_18501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_18501,2,av);} a=C_alloc(13); t2=C_i_car(((C_word*)t0)[2]); t3=t1; t4=t2; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18710,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=( /* chicken-install.scm:665: get-egg-property* */ f_8347(((C_word*)t0)[3],lf[665],C_a_i_list(&a,1,C_SCHEME_END_OF_LIST)) ); t7=( /* chicken-install.scm:666: get-egg-property* */ f_8347(((C_word*)t0)[3],lf[668],C_a_i_list(&a,1,C_SCHEME_END_OF_LIST)) ); if(C_truep(C_retrieve2(lf[627],C_text("main#run-tests")))){ t8=( /* chicken-install.scm:668: get-egg-property* */ f_8347(((C_word*)t0)[3],lf[667],C_a_i_list(&a,1,C_SCHEME_END_OF_LIST)) ); /* chicken-install.scm:665: scheme#append */ t9=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t5; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ /* chicken-install.scm:665: scheme#append */ t8=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t5; av2[2]=t6; av2[3]=t7; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_18511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_18511,4,av);} a=C_alloc(8); t4=t2; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=t3; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18516,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:627: apply-mappings */ f_17234(t7,((C_word*)t5)[1]);} /* k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_18516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_18516,2,av);} a=C_alloc(14); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_car(((C_word*)t0)[3]); t4=t3; t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18588,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[2],a[7]=t7,a[8]=t8,tmp=(C_word)a,a+=9,tmp); /* chicken-install.scm:634: scheme#append */ t10=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_18523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_18523,2,av);} a=C_alloc(28); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18529,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t3=C_retrieve2(lf[628],C_text("main#force-install")); if(C_truep(C_retrieve2(lf[628],C_text("main#force-install")))){ t4=C_retrieve2(lf[628],C_text("main#force-install")); t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=C_retrieve2(lf[628],C_text("main#force-install")); f_18529(2,av2);}} else{ t4=t2; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19264,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19309,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19313,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_i_car(((C_word*)t0)[4]); t9=C_a_i_list3(&a,3,lf[711],t8,lf[712]); t10=t9; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19321,a[2]=t7,a[3]=t10,tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19323,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:754: filter-map */ f_7445(t11,t12,((C_word*)t0)[3]);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_18529(2,av2);}}} /* k18527 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_18529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_18529,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18532,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[3],lf[8]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7527,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_7527(t11,t2,((C_word*)t0)[3]);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18530 in k18527 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_18532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_18532,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18535,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18542,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:643: chicken.string#string-intersperse */ t5=C_fast_retrieve(lf[259]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[704]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k18533 in k18530 in k18527 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_18535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18535,2,av);} /* chicken-install.scm:650: retrieve-eggs */ f_18371(((C_word*)t0)[2],((C_word*)t0)[3]);} /* k18540 in k18530 in k18527 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_18542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18542,2,av);} a=C_alloc(3); /* chicken-install.scm:643: d */ f_16497(((C_word*)t0)[2],lf[703],C_a_i_list(&a,1,t1));} /* k18555 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_18557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18557,2,av);} /* chicken-install.scm:638: retrieve-eggs */ f_18371(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);} /* k18562 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_18564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18564,2,av);} a=C_alloc(3); /* chicken-install.scm:637: d */ f_16497(((C_word*)t0)[2],lf[723],C_a_i_list(&a,1,t1));} /* k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_18588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_18588,2,av);} a=C_alloc(14); t2=C_i_check_list_2(t1,lf[8]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18594,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18596,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_18596(t7,t3,t1);} /* k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_18594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_18594,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,t2,C_retrieve2(lf[625],C_text("main#dependencies"))); t4=C_mutate(&lf[625] /* (set! main#dependencies ...) */,t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18523,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[6])[1]))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18557,a[2]=t5,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18564,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:637: chicken.string#string-intersperse */ t8=C_fast_retrieve(lf[259]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=lf[724]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_18523(2,av2);}}} /* map-loop5011 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_fcall f_18596(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18596,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18621,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); if(C_truep(C_i_pairp(t4))){ t5=C_u_i_car(t4); t6=t3; f_18621(t6,t5);} else{ t5=t3; f_18621(t5,t4);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18619 in map-loop5011 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_fcall f_18621(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_18621,2,t0,t1);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18596(t6,((C_word*)t0)[5],t5);} /* k18636 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_18638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18638,2,av);} /* chicken-install.scm:621: validate-egg-info */ f_16179(((C_word*)t0)[2],t1);} /* for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_fcall f_18660(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_18660,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18670,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_car(t6); if(C_truep(C_i_member(t7,C_retrieve2(lf[626],C_text("main#checked-eggs"))))){ t8=C_SCHEME_UNDEFINED; t9=t5;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18477,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t9=C_u_i_car(t6); /* chicken-install.scm:618: d */ f_16497(t8,lf[732],C_a_i_list(&a,1,t9));}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18668 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_18670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18670,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_18660(t3,((C_word*)t0)[4],t2);} /* for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_fcall f_18683(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_18683,3,t0,t1,t2);} a=C_alloc(14); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18693,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_assoc(t6,C_retrieve2(lf[623],C_text("main#canonical-eggs"))); if(C_truep(t7)){ t8=t5; t9=t7; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18390,a[2]=t9,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:601: delete */ f_7281(t10,t9,C_retrieve2(lf[623],C_text("main#canonical-eggs")),*((C_word*)lf[733]+1));} else{ t8=C_i_pairp(t6); t9=(C_truep(t8)?C_u_i_car(t6):t6); t10=t9; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18399,a[2]=t10,a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t12=t11; t13=t6; t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17378,a[2]=t13,a[3]=t12,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t13))){ t15=C_u_i_car(t13); /* chicken-install.scm:396: scheme#string->symbol */ t16=*((C_word*)lf[195]+1);{ C_word av2[3]; av2[0]=t16; av2[1]=t14; av2[2]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ /* chicken-install.scm:396: scheme#string->symbol */ t15=*((C_word*)lf[195]+1);{ C_word av2[3]; av2[0]=t15; av2[1]=t14; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18691 in for-each-loop4942 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_18693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18693,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_18683(t3,((C_word*)t0)[4],t2);} /* k18708 in a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_18710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_18710,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18711,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=C_retrieve2(lf[616],C_text("main#hacks")); t6=C_i_check_list_2(C_retrieve2(lf[616],C_text("main#hacks")),lf[118]); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18722,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18784,a[2]=t9,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_18784(t11,t7,C_retrieve2(lf[616],C_text("main#hacks")));} /* g5064 in k18708 in a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_fcall f_18711(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_18711,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18716,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:655: h */ t4=t2;{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} /* k18714 in g5064 in k18708 in a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_18716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18716,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18720 in k18708 in a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_18722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_18722,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18727,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_18727(t5,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* loop in k18720 in k18708 in a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_fcall f_18727(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_18727,5,t0,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18741,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:658: scheme#reverse */ t6=*((C_word*)lf[224]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18750,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18760,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:659: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}}} /* k18739 in loop in k18720 in k18708 in a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_18741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_18741,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18745,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:658: scheme#reverse */ t4=*((C_word*)lf[224]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k18743 in k18739 in loop in k18720 in k18708 in a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_18745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18745,2,av);} /* chicken-install.scm:658: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_values(4,av2);}} /* a18749 in loop in k18720 in k18708 in a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_18750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18750,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* chicken-install.scm:659: check-dependency */ f_18828(t1,t2);} /* a18759 in loop in k18720 in k18708 in a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_18760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_18760,4,av);} a=C_alloc(6); t4=C_i_cdr(((C_word*)t0)[2]); t5=(C_truep(t2)?C_a_i_cons(&a,2,t2,((C_word*)t0)[3]):((C_word*)t0)[3]); if(C_truep(t3)){ t6=C_a_i_cons(&a,2,t3,((C_word*)t0)[4]); /* chicken-install.scm:660: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_18727(t7,t1,t4,t5,t6);} else{ t6=((C_word*)t0)[4]; /* chicken-install.scm:660: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_18727(t7,t1,t4,t5,t6);}} /* for-each-loop5063 in k18708 in a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_fcall f_18784(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_18784,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18794,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-install.scm:655: g5064 */ t5=((C_word*)t0)[3]; f_18711(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18792 in for-each-loop5063 in k18708 in a18500 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_18794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18794,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_18784(t3,((C_word*)t0)[4],t2);} /* main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_18828(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_18828,2,t1,t2);} a=C_alloc(8); t3=C_i_symbolp(t2); t4=(C_truep(t3)?t3:C_i_stringp(t2)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18845,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18855,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:673: ext-version */ f_19090(t6,t2);} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18861,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_listp(t2))){ t6=C_i_car(t2); t7=t5; f_18861(t7,C_eqp(lf[191],t6));} else{ t6=t5; f_18861(t6,C_SCHEME_FALSE);}}} /* k18843 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_18845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18845,2,av);} /* chicken-install.scm:673: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} /* k18853 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_18855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18855,2,av);} if(C_truep(C_i_not(t1))){ /* chicken-install.scm:673: chicken.string#->string */ t2=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ /* chicken-install.scm:673: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} /* k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_fcall f_18861(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){ C_save_and_reclaim_args((void *)trf_18861,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18870,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_18870(t6,((C_word*)t0)[3],t2,C_SCHEME_FALSE,C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18951,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_listp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; t4=C_u_i_length(t3); t5=C_eqp(C_fix(2),t4); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[2]); t7=C_i_stringp(t6); if(C_truep(t7)){ t8=t2; f_18951(t8,t7);} else{ t8=((C_word*)t0)[2]; t9=C_u_i_car(t8); t10=t2; f_18951(t10,C_i_symbolp(t9));}} else{ t6=t2; f_18951(t6,C_SCHEME_FALSE);}} else{ t3=t2; f_18951(t3,C_SCHEME_FALSE);}}} /* scan in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_fcall f_18870(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_18870,5,t0,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ if(C_truep(t4)){ /* chicken-install.scm:678: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=t4; C_values(4,av2);}} else{ if(C_truep(t3)){ t5=t3; /* chicken-install.scm:678: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t4; C_values(4,av2);}} else{ /* chicken-install.scm:678: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=t4; C_values(4,av2);}}}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18892,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18902,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:682: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}}} /* a18891 in scan in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_18892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18892,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* chicken-install.scm:682: check-dependency */ f_18828(t1,t2);} /* a18901 in scan in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_18902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_18902,4,av);} a=C_alloc(7); t4=t3; t5=C_i_not(t2); t6=(C_truep(t5)?C_i_not(t4):C_SCHEME_FALSE); if(C_truep(t6)){ /* chicken-install.scm:684: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} else{ t7=C_i_cdr(((C_word*)t0)[2]); t8=t7; t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18923,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t8,tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t10=C_i_not(((C_word*)t0)[5]); t11=t9; f_18923(t11,(C_truep(t10)?t2:((C_word*)t0)[5]));} else{ t10=t9; f_18923(t10,((C_word*)t0)[5]);}}} /* k18921 in a18901 in scan in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_fcall f_18923(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_18923,2,t0,t1);} t2=(C_truep(((C_word*)t0)[2])?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t2)){ /* chicken-install.scm:685: scan */ t3=((C_word*)((C_word*)t0)[4])[1]; f_18870(t3,((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[2]);} else{ t3=((C_word*)t0)[3]; /* chicken-install.scm:685: scan */ t4=((C_word*)((C_word*)t0)[4])[1]; f_18870(t4,((C_word*)t0)[5],((C_word*)t0)[6],t1,t3);}} /* k18949 in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_fcall f_18951(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_18951,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18954,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_car(((C_word*)t0)[3]); /* chicken-install.scm:694: ext-version */ f_19090(t2,t3);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19045,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:711: chicken.base#warning */ t3=C_fast_retrieve(lf[713]);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[796]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k18952 in k18949 in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_18954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_18954,2,av);} a=C_alloc(8); t2=t1; if(C_truep(C_i_not(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18967,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_car(t4); /* chicken-install.scm:696: chicken.string#->string */ t6=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19030,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19034,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_cadr(((C_word*)t0)[3]); /* chicken-install.scm:697: chicken.string#->string */ t6=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k18965 in k18952 in k18949 in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_18967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18967,2,av);} /* chicken-install.scm:696: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} /* k18981 in k19028 in k18952 in k18949 in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_18983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_18983,2,av);} a=C_alloc(4); if(C_truep(C_u_i_string_equal_p(lf[793],t1))){ if(C_truep(C_retrieve2(lf[628],C_text("main#force-install")))){ /* chicken-install.scm:700: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18996,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* chicken-install.scm:702: scheme#string-append */ t4=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[794]; av2[3]=t3; av2[4]=lf[795]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19011,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); /* chicken-install.scm:708: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k18994 in k18981 in k19028 in k18952 in k18949 in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_18996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18996,2,av);} /* chicken-install.scm:701: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k19009 in k18981 in k19028 in k18952 in k18949 in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_19011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_19011,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19015,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(((C_word*)t0)[3]); /* chicken-install.scm:708: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k19013 in k19009 in k18981 in k19028 in k18952 in k18949 in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_19015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_19015,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* chicken-install.scm:707: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_FALSE; av2[3]=t2; C_values(4,av2);}} /* k19028 in k18952 in k18949 in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_19030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_19030,2,av);} a=C_alloc(4); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18983,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); /* chicken-install.scm:698: chicken.string#->string */ t5=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* chicken-install.scm:709: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} /* k19032 in k18952 in k18949 in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_19034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19034,2,av);} /* chicken-install.scm:697: version>=? */ t2=C_retrieve2(lf[685],C_text("main#version>=\077"));{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; f_16546(4,av2);}} /* k19043 in k18949 in k18859 in main#check-dependency in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_19045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19045,2,av);} /* chicken-install.scm:713: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} /* main#ext-version in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_19090(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_19090,2,t1,t2);} a=C_alloc(9); t3=C_eqp(t2,lf[797]); t4=(C_truep(t3)?t3:C_i_equalp(t2,lf[798])); if(C_truep(t4)){ /* chicken-install.scm:717: chicken.platform#chicken-version */ t5=C_fast_retrieve(lf[799]);{ C_word av2[2]; av2[0]=t5; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19106,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19143,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19151,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:719: chicken.string#->string */ t8=C_fast_retrieve(lf[172]);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k19104 in main#ext-version in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_19106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_19106,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19109,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19136,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:722: chicken.file#file-exists? */ t5=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_19109(2,av2);}}} /* k19107 in k19104 in main#ext-version in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_19109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19109,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=t1; t4=C_i_assq(lf[205],t3); if(C_truep(t4)){ t5=C_i_cadr(t4); /* chicken-install.scm:727: chicken.string#->string */ t6=C_fast_retrieve(lf[172]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t2; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=lf[800]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k19134 in k19104 in main#ext-version in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_19136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19136,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23413,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-information.scm:37: locate-egg-file */ f_8286(t3,((C_word*)t0)[3]);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_19109(2,av2);}}} /* k19141 in main#ext-version in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_19143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_19143,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19147,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t3; t5=(C_truep(C_retrieve2(lf[18],C_text("main#cross-chicken")))?C_i_not(C_retrieve2(lf[629],C_text("main#host-extension"))):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15985,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:114: destination-repository */ f_8240(t6,lf[54],C_SCHEME_END_OF_LIST);} else{ /* chicken-install.scm:115: chicken.platform#repository-path */ t6=C_fast_retrieve(lf[803]);{ C_word *av2=av; av2[0]=t6; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k19145 in k19141 in main#ext-version in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_19147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19147,2,av);} /* chicken-install.scm:718: chicken.load#find-file */ t2=C_fast_retrieve(lf[801]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k19149 in main#ext-version in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_19151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19151,2,av);} /* chicken-install.scm:719: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=t1; av2[4]=C_retrieve2(lf[45],C_text("main#+egg-info-extension+")); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k19167 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_19169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19169,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* chicken-install.scm:746: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[726]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* loop in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_19177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_19177,3,av);} a=C_alloc(7); if(C_truep(C_i_symbolp(t2))){ /* chicken-install.scm:736: chicken.platform#feature? */ t3=C_fast_retrieve(lf[194]);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=C_i_listp(t2); if(C_truep(C_i_not(t3))){ /* chicken-install.scm:738: chicken.base#error */ t4=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=lf[727]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19202,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t5=C_i_car(t2); t6=C_eqp(lf[193],t5); if(C_truep(t6)){ t7=t2; t8=C_u_i_cdr(t7); t9=t4; f_19202(t9,C_i_pairp(t8));} else{ t7=t4; f_19202(t7,C_SCHEME_FALSE);}}}} /* k19200 in loop in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_fcall f_19202(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_19202,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19209,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* chicken-install.scm:740: loop */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; f_19177(3,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=C_eqp(lf[190],t3); if(C_truep(t4)){ t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); /* chicken-install.scm:742: every */ f_7161(((C_word*)t0)[2],((C_word*)((C_word*)t0)[4])[1],t6);} else{ t5=((C_word*)t0)[3]; t6=C_u_i_car(t5); t7=C_eqp(lf[191],t6); if(C_truep(t7)){ t8=((C_word*)t0)[3]; t9=C_u_i_cdr(t8); /* chicken-install.scm:744: any */ f_7195(((C_word*)t0)[2],((C_word*)((C_word*)t0)[4])[1],t9);} else{ /* chicken-install.scm:745: chicken.base#error */ t8=*((C_word*)lf[109]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=((C_word*)t0)[2]; av2[2]=lf[728]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}}} /* k19207 in k19200 in loop in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_19209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19209,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_19264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_19264,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19269,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_19269(t5,((C_word*)t0)[2]);} /* loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_fcall f_19269(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_19269,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19273,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:771: scheme#display */ t3=*((C_word*)lf[543]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[709]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k19271 in loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_19273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_19273,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:772: chicken.base#flush-output */ t3=*((C_word*)lf[558]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k19274 in k19271 in loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_19276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_19276,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19305,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:773: chicken.io#read-line */ t4=C_fast_retrieve(lf[532]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k19277 in k19274 in k19271 in loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f_19279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19279,2,av);} t2=C_i_string_equal_p(t1,lf[705]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_u_i_string_equal_p(t1,lf[706]))){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_u_i_string_equal_p(t1,lf[707]))){ /* chicken-install.scm:776: chicken.base#exit */ t3=C_fast_retrieve(lf[708]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(2); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* chicken-install.scm:777: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_19269(t3,((C_word*)t0)[2]);}}}} /* k19303 in k19274 in k19271 in loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f_19305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_19305,2,av);} a=C_alloc(22); t2=((C_word*)t0)[2]; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19440,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19480,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19484,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19488,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19492,a[2]=t8,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19496,a[2]=t4,a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* ##sys#string->list */ t11=C_fast_retrieve(lf[502]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k19307 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_19309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19309,2,av);} /* chicken-install.scm:749: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k19311 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_19313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19313,2,av);} /* chicken-install.scm:749: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[259]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[710]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k19319 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_19321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19321,2,av);} /* chicken-install.scm:750: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_19323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_19323,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19427,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_i_car(t2); /* chicken-install.scm:756: scheme#string->symbol */ t5=*((C_word*)lf[195]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_fcall f_19331(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_19331,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19335,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19338,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=C_i_cdr(t2); if(C_truep(C_i_pairp(t5))){ t6=C_i_cadr(t2); t7=C_i_cdr(((C_word*)t0)[2]); t8=C_i_equalp(t6,t7); t9=t4; f_19338(t9,C_i_not(t8));} else{ t6=t4; f_19338(t6,C_SCHEME_FALSE);}} /* k19333 in g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_19335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19335,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19336 in g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_fcall f_19338(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_19338,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19345,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:761: chicken.base#open-output-string */ t3=C_fast_retrieve(lf[566]);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k19343 in k19336 in g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f_19345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_19345,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[562]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19351,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:761: ##sys#print */ t6=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[716]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k19349 in k19343 in k19336 in g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_ccall f_19351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_19351,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19354,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_cadr(((C_word*)t0)[6]); /* chicken-install.scm:761: ##sys#print */ t4=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k19352 in k19349 in k19343 in k19336 in g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in ... */ static void C_ccall f_19354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_19354,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19357,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:761: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[715]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19355 in k19352 in k19349 in k19343 in k19336 in g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in ... */ static void C_ccall f_19357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19357,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[6]; t4=C_u_i_car(t3); /* chicken-install.scm:761: ##sys#print */ t5=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k19358 in k19355 in k19352 in k19349 in k19343 in k19336 in g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in ... */ static void C_ccall f_19360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19360,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19363,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:761: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[714]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k19361 in k19358 in k19355 in k19352 in k19349 in k19343 in k19336 in g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in ... */ static void C_ccall f_19363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_19363,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19366,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_cdr(((C_word*)t0)[5]); /* chicken-install.scm:761: ##sys#print */ t4=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k19364 in k19361 in k19358 in k19355 in k19352 in k19349 in k19343 in k19336 in g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in ... */ static void C_ccall f_19366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_19366,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19369,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:761: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k19367 in k19364 in k19361 in k19358 in k19355 in k19352 in k19349 in k19343 in k19336 in g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in ... */ static void C_ccall f_19369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19369,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19372,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:761: chicken.base#get-output-string */ t3=C_fast_retrieve(lf[563]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k19370 in k19367 in k19364 in k19361 in k19358 in k19355 in k19352 in k19349 in k19343 in k19336 in g5184 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in ... */ static void C_ccall f_19372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19372,2,av);} /* chicken-install.scm:760: chicken.base#warning */ t2=C_fast_retrieve(lf[713]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k19414 in k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_19416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_19416,2,av);} t2=(C_truep(t1)?t1:lf[717]); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* chicken-install.scm:765: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[718]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[719]; av2[5]=t2; av2[6]=lf[720]; av2[7]=t4; av2[8]=lf[721]; av2[9]=C_make_character(10); ((C_proc)(void*)(*((C_word*)t5+1)))(10,av2);}} /* k19425 in a19322 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_19427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_19427,2,av);} a=C_alloc(5); t2=C_i_assq(t1,C_retrieve2(lf[615],C_text("main#override"))); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19331,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:756: g5184 */ t4=t3; f_19331(t4,((C_word*)t0)[3],t2);} else{ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19416,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=((C_word*)t0)[2]; t7=C_u_i_car(t6); /* chicken-install.scm:766: ext-version */ f_19090(t5,t7);}} /* left in k19303 in k19274 in k19271 in loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_fcall f_19440(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_19440,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); if(C_truep(C_u_i_char_whitespacep(t3))){ t4=t2; t5=C_u_i_cdr(t4); /* chicken-install.scm:782: left */ t10=t1; t11=t5; t1=t10; t2=t11; goto loop;} else{ t4=t2; t5=C_u_i_car(t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19467,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); /* chicken-install.scm:783: left */ t10=t6; t11=t8; t1=t10; t2=t11; goto loop;}}} /* k19465 in left in k19303 in k19274 in k19271 in loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in ... */ static void C_ccall f_19467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_19467,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19478 in k19303 in k19274 in k19271 in loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_ccall f_19480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19480,2,av);} /* ##sys#list->string */ t2=C_fast_retrieve(lf[501]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k19482 in k19303 in k19274 in k19271 in loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_ccall f_19484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19484,2,av);} /* chicken-install.scm:784: scheme#reverse */ t2=*((C_word*)lf[224]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k19486 in k19303 in k19274 in k19271 in loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_ccall f_19488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19488,2,av);} /* chicken-install.scm:784: left */ t2=((C_word*)((C_word*)t0)[2])[1]; f_19440(t2,((C_word*)t0)[3],t1);} /* k19490 in k19303 in k19274 in k19271 in loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_ccall f_19492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19492,2,av);} /* chicken-install.scm:784: scheme#reverse */ t2=*((C_word*)lf[224]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k19494 in k19303 in k19274 in k19271 in loop in k19262 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in ... */ static void C_ccall f_19496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19496,2,av);} /* chicken-install.scm:784: left */ t2=((C_word*)((C_word*)t0)[2])[1]; f_19440(t2,((C_word*)t0)[3],t1);} /* k19506 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_19508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_19508,2,av);} a=C_alloc(6); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19513,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_19513(t6,((C_word*)t0)[2],((C_word*)t0)[3]);} /* loop1 in k19506 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_fcall f_19513(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_19513,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=C_i_pairp(t3); t5=(C_truep(t4)?C_u_i_car(t3):t3); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19529,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19536,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_19536(t11,t7,((C_word*)t0)[3]);}} /* k19527 in loop1 in k19506 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_19529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19529,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken-install.scm:804: loop1 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_19513(t4,((C_word*)t0)[4],t3);} /* loop2 in loop1 in k19506 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_fcall f_19536(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_19536,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19546,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=t2; t5=C_u_i_car(t4); /* chicken-install.scm:797: try-list-versions */ f_15589(t3,((C_word*)t0)[3],t5);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19544 in loop2 in loop1 in k19506 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_19546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_19546,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19549,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t4=*((C_word*)lf[466]+1); t5=*((C_word*)lf[466]+1); t6=C_i_check_port_2(*((C_word*)lf[466]+1),C_fix(2),C_SCHEME_TRUE,lf[467]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19563,a[2]=t2,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:800: ##sys#print */ t8=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[466]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_19549(2,av2);}}} /* k19547 in k19544 in loop2 in loop1 in k19506 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_19549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19549,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* chicken-install.scm:803: loop2 */ t4=((C_word*)((C_word*)t0)[4])[1]; f_19536(t4,((C_word*)t0)[2],t3);}} /* k19561 in k19544 in loop2 in loop1 in k19506 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_19563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_19563,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19566,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:800: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(58); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k19564 in k19561 in k19544 in loop2 in loop1 in k19506 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_19566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_19566,2,av);} a=C_alloc(8); t2=C_i_check_list_2(((C_word*)t0)[2],lf[118]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19577,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19582,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_19582(t7,t3,((C_word*)t0)[2]);} /* k19575 in k19564 in k19561 in k19544 in loop2 in loop1 in k19506 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_19577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19577,2,av);} /* chicken-install.scm:802: scheme#newline */ t2=*((C_word*)lf[853]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop5279 in k19564 in k19561 in k19544 in loop2 in loop1 in k19506 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_fcall f_19582(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_19582,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19592,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-install.scm:801: g5295 */ t5=*((C_word*)lf[884]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[885]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k19590 in for-each-loop5279 in k19564 in k19561 in k19544 in loop2 in loop1 in k19506 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_19592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19592,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_19582(t3,((C_word*)t0)[4],t2);} /* map-loop5235 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_fcall f_19611(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_19611,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19636,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-install.scm:790: g5241 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19634 in map-loop5235 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_19636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19636,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_19611(t6,((C_word*)t0)[5],t5);} /* main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_19645(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_19645,1,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19868,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19903,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19925,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:881: sort-dependencies */ f_8843(t5,C_retrieve2(lf[625],C_text("main#dependencies")),*((C_word*)lf[832]+1));} /* k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_19657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_19657,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19660,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23431,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* egg-information.scm:37: locate-egg-file */ f_8286(t5,t2);} /* k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_19660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_19660,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19663,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:816: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_retrieve2(lf[47],C_text("main#+version-file+")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_19663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_19663,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19666,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19862,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:817: chicken.file#file-exists? */ t5=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_19666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_19666,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19669,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_retrieve2(lf[629],C_text("main#host-extension")); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19750,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[5],a[8]=t3,tmp=(C_word)a,a+=9,tmp); if(C_truep(C_retrieve2(lf[629],C_text("main#host-extension")))){ t6=t5; f_19750(t6,C_retrieve2(lf[629],C_text("main#host-extension")));} else{ t6=C_i_not(C_retrieve2(lf[630],C_text("main#target-extension"))); t7=t5; f_19750(t7,(C_truep(t6)?C_i_not(C_retrieve2(lf[629],C_text("main#host-extension"))):C_SCHEME_FALSE));}} /* k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_19669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_19669,2,av);} a=C_alloc(9); if(C_truep(C_retrieve2(lf[630],C_text("main#target-extension")))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19677,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19683,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:853: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[7]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a19676 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_19677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_19677,2,av);} /* chicken-install.scm:853: compile-egg-info */ f_9114(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_retrieve2(lf[639],C_text("main#platform")),lf[54]);} /* a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_19683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_19683,5,av);} a=C_alloc(13); t5=t2; t6=t3; t7=t4; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19687,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[3],a[6]=t7,a[7]=t5,tmp=(C_word)a,a+=8,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19747,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:859: build-script-extension */ f_16011(t9,lf[54],C_retrieve2(lf[639],C_text("main#platform")));} /* k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_19687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_19687,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19690,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19743,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:861: install-script-extension */ f_16031(t4,lf[54],C_retrieve2(lf[639],C_text("main#platform")));} /* k19688 in k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_19690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_19690,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19735,a[2]=t3,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:864: build-prefix */ f_14134(t4);} /* k19691 in k19688 in k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_19693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_19693,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19727,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:868: install-prefix */ f_14306(t3);} /* k19694 in k19691 in k19688 in k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_19696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19696,2,av);} a=C_alloc(6); if(C_truep(C_retrieve2(lf[619],C_text("main#do-not-build")))){ /* chicken-install.scm:871: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[805]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19705,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:873: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[809]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[810]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k19703 in k19694 in k19691 in k19688 in k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_19705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_19705,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:874: run-script */ f_20004(t2,((C_word*)t0)[5],C_retrieve2(lf[639],C_text("main#platform")),C_SCHEME_END_OF_LIST);} /* k19706 in k19703 in k19694 in k19691 in k19688 in k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_19708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_19708,2,av);} a=C_alloc(4); t2=C_i_member(((C_word*)t0)[2],C_retrieve2(lf[624],C_text("main#requested-eggs"))); t3=(C_truep(t2)?C_retrieve2(lf[620],C_text("main#no-install")):C_retrieve2(lf[621],C_text("main#no-install-dependencies"))); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19717,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:876: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[807]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[808]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k19715 in k19706 in k19703 in k19694 in k19691 in k19688 in k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_19717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19717,2,av);} /* chicken-install.scm:877: run-script */ f_20004(((C_word*)t0)[2],((C_word*)t0)[3],C_retrieve2(lf[639],C_text("main#platform")),C_SCHEME_END_OF_LIST);} /* k19725 in k19691 in k19688 in k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_19727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_19727,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19731,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:869: install-suffix */ f_14348(t3,lf[54],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k19729 in k19725 in k19691 in k19688 in k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_19731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_19731,2,av);} /* chicken-install.scm:867: generate-shell-commands */ f_14058(((C_word*)t0)[2],C_retrieve2(lf[639],C_text("main#platform")),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_retrieve2(lf[636],C_text("main#keepfiles")));} /* k19733 in k19688 in k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_19735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_19735,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19739,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:865: build-suffix */ f_14279(t3);} /* k19737 in k19733 in k19688 in k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_19739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_19739,2,av);} /* chicken-install.scm:863: generate-shell-commands */ f_14058(((C_word*)t0)[2],C_retrieve2(lf[639],C_text("main#platform")),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_retrieve2(lf[636],C_text("main#keepfiles")));} /* k19741 in k19685 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_19743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19743,2,av);} /* chicken-install.scm:860: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k19745 in a19682 in k19667 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_19747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19747,2,av);} /* chicken-install.scm:858: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_fcall f_19750(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){ C_save_and_reclaim_args((void *)trf_19750,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19755,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19761,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:822: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[8]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=((C_word*)t0)[8];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_19669(2,av2);}}} /* a19754 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_19755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_19755,2,av);} /* chicken-install.scm:822: compile-egg-info */ f_9114(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_retrieve2(lf[639],C_text("main#platform")),lf[103]);} /* a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_19761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_19761,5,av);} a=C_alloc(14); t5=t2; t6=t3; t7=t4; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19765,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t7,a[6]=t6,a[7]=((C_word*)t0)[4],a[8]=t5,tmp=(C_word)a,a+=9,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19850,a[2]=t8,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:828: build-script-extension */ f_16011(t9,lf[103],C_retrieve2(lf[639],C_text("main#platform")));} /* k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_19765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_19765,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19768,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19846,a[2]=t3,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:830: install-script-extension */ f_16031(t4,lf[103],C_retrieve2(lf[639],C_text("main#platform")));} /* k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_19768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_19768,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19771,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19838,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:833: build-prefix */ f_14134(t4);} /* k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_19771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_19771,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19774,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19830,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:837: install-prefix */ f_14306(t3);} /* k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_19774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_19774,2,av);} a=C_alloc(8); if(C_truep(C_retrieve2(lf[619],C_text("main#do-not-build")))){ /* chicken-install.scm:840: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[811]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19783,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:842: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[830]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_19783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_19783,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19786,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:843: run-script */ f_20004(t2,((C_word*)t0)[7],C_retrieve2(lf[639],C_text("main#platform")),C_SCHEME_END_OF_LIST);} /* k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_19786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){ C_save_and_reclaim((void *)f_19786,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19789,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_member(((C_word*)t0)[2],C_retrieve2(lf[624],C_text("main#requested-eggs"))); t4=(C_truep(t3)?C_retrieve2(lf[620],C_text("main#no-install")):C_retrieve2(lf[621],C_text("main#no-install-dependencies"))); if(C_truep(t4)){ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_19789(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19817,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=t5; t7=((C_word*)t0)[2]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18294,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=C_i_assq(lf[204],((C_word*)t0)[6]); t10=C_i_cdr(t9); t11=t8; t12=t7; t13=t10; t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18206,a[2]=t12,a[3]=t13,a[4]=t11,tmp=(C_word)a,a+=5,tmp); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18284,a[2]=t14,tmp=(C_word)a,a+=3,tmp); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18288,a[2]=t15,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:565: install-path */ f_15993(t16);}} /* k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_19789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_19789,2,av);} a=C_alloc(9); if(C_truep(C_i_member(((C_word*)t0)[2],C_retrieve2(lf[624],C_text("main#requested-eggs"))))){ if(C_truep(C_retrieve2(lf[627],C_text("main#run-tests")))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19811,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t3=t2; t4=C_retrieve2(lf[639],C_text("main#platform")); t5=C_i_car(((C_word*)t0)[4]); t6=t5; t7=C_i_cadr(((C_word*)t0)[4]); t8=C_i_caddr(((C_word*)t0)[4]); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19940,a[2]=t3,a[3]=t4,a[4]=t9,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:892: chicken.pathname#make-pathname */ t11=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t10; av2[2]=t7; av2[3]=lf[821]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k19809 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_19811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19811,2,av);} if(C_truep(C_i_not(t1))){ /* chicken-install.scm:851: chicken.base#exit */ t2=C_fast_retrieve(lf[708]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(2); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k19815 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_19817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_19817,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19820,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:846: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[823]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k19818 in k19815 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_19820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19820,2,av);} a=C_alloc(6); /* chicken-install.scm:847: run-script */ f_20004(((C_word*)t0)[2],((C_word*)t0)[3],C_retrieve2(lf[639],C_text("main#platform")),C_a_i_list(&a,2,lf[822],C_retrieve2(lf[631],C_text("main#sudo-install"))));} /* k19828 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_19830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_19830,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19834,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:838: install-suffix */ f_14348(t3,lf[103],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k19832 in k19828 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_19834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_19834,2,av);} /* chicken-install.scm:836: generate-shell-commands */ f_14058(((C_word*)t0)[2],C_retrieve2(lf[639],C_text("main#platform")),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_retrieve2(lf[636],C_text("main#keepfiles")));} /* k19836 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_19838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_19838,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19842,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:834: build-suffix */ f_14279(t3);} /* k19840 in k19836 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_19842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_19842,2,av);} /* chicken-install.scm:832: generate-shell-commands */ f_14058(((C_word*)t0)[2],C_retrieve2(lf[639],C_text("main#platform")),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_retrieve2(lf[636],C_text("main#keepfiles")));} /* k19844 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_19846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19846,2,av);} /* chicken-install.scm:829: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k19848 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_19850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19850,2,av);} /* chicken-install.scm:827: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k19860 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_19862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19862,2,av);} if(C_truep(t1)){ /* chicken-install.scm:818: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[731]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_19666(2,av2);}}} /* k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_19868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_19868,2,av);} a=C_alloc(5); t2=C_i_check_list_2(t1,lf[118]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19876,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_19876(t6,((C_word*)t0)[2],t1);} /* for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_fcall f_19876(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_19876,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19886,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_car(t6); t8=t7; t9=C_i_cadr(t6); t10=t9; t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19657,a[2]=t8,a[3]=t10,a[4]=t5,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:814: chicken.pathname#make-pathname */ t12=C_fast_retrieve(lf[62]);{ C_word av2[5]; av2[0]=t12; av2[1]=t11; av2[2]=t10; av2[3]=t8; av2[4]=C_retrieve2(lf[51],C_text("main#+egg-extension+")); ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k19884 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_19886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19886,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_19876(t3,((C_word*)t0)[4],t2);} /* k19901 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_19903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_19903,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19906,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19917,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:882: filter-map */ f_7445(t3,t4,t2);} /* k19904 in k19901 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_19906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_19906,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19909,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[610],C_text("main#quiet")))){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19912,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:884: d */ f_16497(t4,lf[831],C_SCHEME_END_OF_LIST);}} /* k19907 in k19904 in k19901 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_19909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19909,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19910 in k19904 in k19901 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_19912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19912,2,av);} /* chicken-install.scm:885: chicken.pretty-print#pp */ t2=C_fast_retrieve(lf[497]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a19916 in k19901 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_19917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19917,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_assoc(t2,C_retrieve2(lf[623],C_text("main#canonical-eggs"))); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k19923 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_19925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19925,2,av);} /* chicken-install.scm:881: scheme#reverse */ t2=*((C_word*)lf[224]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_19940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_19940,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19943,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:893: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[820]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_19943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_19943,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19949,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19999,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:894: chicken.file#directory-exists? */ t5=C_fast_retrieve(lf[58]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f_19949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_19949,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* chicken-install.scm:896: chicken.process-context#current-directory */ t3=C_fast_retrieve(lf[819]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k19950 in k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in ... */ static void C_ccall f_19952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_19952,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19955,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19984,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:897: qs* */ f_14498(t4,C_retrieve2(lf[35],C_text("main#default-csi")),((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k19953 in k19950 in k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in ... */ static void C_ccall f_19955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_19955,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19958,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:901: chicken.process-context#change-directory */ t4=C_fast_retrieve(lf[812]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19956 in k19953 in k19950 in k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in ... */ static void C_ccall f_19958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_19958,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19961,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:902: d */ f_16497(t2,lf[814],C_a_i_list(&a,1,((C_word*)t0)[4]));} /* k19959 in k19956 in k19953 in k19950 in k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in ... */ static void C_ccall f_19961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_19961,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19964,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:903: system+ */ f_14603(t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k19962 in k19959 in k19956 in k19953 in k19950 in k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in ... */ static void C_ccall f_19964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_19964,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19967,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:904: chicken.base#flush-output */ t4=*((C_word*)lf[558]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[683]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19965 in k19962 in k19959 in k19956 in k19953 in k19950 in k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in ... */ static void C_ccall f_19967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19967,2,av);} a=C_alloc(3); t2=C_eqp(((C_word*)t0)[2],C_fix(0)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19976,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:906: chicken.process-context#change-directory */ t4=C_fast_retrieve(lf[812]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19979,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:909: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[813]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k19974 in k19965 in k19962 in k19959 in k19956 in k19953 in k19950 in k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in ... */ static void C_ccall f_19976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19976,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19977 in k19965 in k19962 in k19959 in k19956 in k19953 in k19950 in k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in ... */ static void C_ccall f_19979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19979,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19982 in k19950 in k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in ... */ static void C_ccall f_19984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_19984,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19988,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:898: qs* */ f_14498(t3,((C_word*)t0)[6],((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k19986 in k19982 in k19950 in k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in ... */ static void C_ccall f_19988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19988,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19992,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:899: qs* */ f_14498(t3,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST);} /* k19990 in k19986 in k19982 in k19950 in k19947 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in ... */ static void C_ccall f_19992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_19992,2,av);} if(C_truep(((C_word*)t0)[2])){ /* chicken-install.scm:897: scheme#string-append */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[815]; av2[4]=((C_word*)t0)[5]; av2[5]=lf[816]; av2[6]=t1; av2[7]=lf[817]; av2[8]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} else{ /* chicken-install.scm:897: scheme#string-append */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[815]; av2[4]=((C_word*)t0)[5]; av2[5]=lf[816]; av2[6]=t1; av2[7]=lf[817]; av2[8]=lf[818]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}}} /* k19997 in k19941 in k19938 in k19787 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in k21649 in ... */ static void C_ccall f_19999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19999,2,av);} if(C_truep(t1)){ /* chicken-install.scm:895: chicken.file#file-exists? */ t2=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_19949(2,av2);}}} /* main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_20004(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_20004,4,t1,t2,t3,t4);} a=C_alloc(8); t5=C_i_get_keyword(lf[822],t4,C_SCHEME_FALSE); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20011,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t6,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20060,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:913: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[270]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[270]+1); av2[1]=t7; av2[2]=lf[847]; av2[3]=t4; av2[4]=t8; tp(5,av2);}} /* k20009 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_20011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_20011,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20014,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:914: d */ f_16497(t3,lf[846],C_a_i_list(&a,1,((C_word*)t0)[4]));} /* k20012 in k20009 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_20014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_20014,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_eqp(((C_word*)t0)[4],lf[31]); if(C_truep(t3)){ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[5]; f_20021(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20031,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[6])){ /* chicken-install.scm:919: scheme#string-append */ t5=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[633],C_text("main#sudo-program")); av2[3]=lf[844]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=lf[845]; f_20031(2,av2);}}}} /* k20019 in k20012 in k20009 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_20021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_20021,2,av);} a=C_alloc(11); t2=((C_word*)t0)[2]; t3=t1; t4=C_a_i_list(&a,1,((C_word*)t0)[3]); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_TRUE:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20070,a[2]=t2,a[3]=t7,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:932: d */ f_16497(t8,lf[836],C_a_i_list(&a,1,t3));} /* k20029 in k20012 in k20009 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_20031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_20031,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20035,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20055,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:921: chicken.platform#software-version */ t5=C_fast_retrieve(lf[843]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k20033 in k20029 in k20012 in k20009 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_20035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_20035,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20038,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20045,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:925: qs* */ f_14498(t3,t1,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} else{ /* chicken-install.scm:917: scheme#string-append */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[840]; av2[4]=lf[837]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k20036 in k20033 in k20029 in k20012 in k20009 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_20038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_20038,2,av);} /* chicken-install.scm:917: scheme#string-append */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=lf[837]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k20043 in k20033 in k20029 in k20012 in k20009 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_20045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20045,2,av);} /* chicken-install.scm:924: scheme#string-append */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[838]; av2[3]=t1; av2[4]=lf[839]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k20053 in k20029 in k20012 in k20009 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_20055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20055,2,av);} t2=C_eqp(t1,lf[841]); if(C_truep(t2)){ /* chicken-install.scm:922: chicken.process-context#get-environment-variable */ t3=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[842]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_20035(2,av2);}}} /* a20059 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_20060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20060,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20068 in k20019 in k20012 in k20009 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_20070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_20070,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20073,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:933: system+ */ f_14603(t2,((C_word*)t0)[4],C_retrieve2(lf[639],C_text("main#platform")));} /* k20071 in k20068 in k20019 in k20012 in k20009 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_20073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_20073,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20076,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_eqp(t2,C_fix(0)); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[3])){ /* chicken-install.scm:936: chicken.base#error */ t5=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[833]; av2[3]=t2; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ /* chicken-install.scm:937: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t3; av2[2]=lf[834]; av2[3]=t2; av2[4]=lf[835]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}}} /* k20074 in k20071 in k20068 in k20019 in k20012 in k20009 in main#run-script in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_20076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20076,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_20101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20101,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20104,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:946: chicken.file#create-temporary-file */ t4=C_fast_retrieve(lf[875]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_20104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_20104,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20107,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:947: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[874]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_20107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_20107,2,av);} a=C_alloc(19); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20110,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20373,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20378,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20499,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:948: ##sys#dynamic-wind */ t10=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t6; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_20110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20110,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20113,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:961: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[865]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_20113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_20113,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20116,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20183,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20209,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20211,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:965: filter-map */ f_7445(t4,t5,C_fast_retrieve(lf[864]));} /* k20114 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_20116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_20116,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20119,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20141,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:978: scheme#with-output-to-file */ t5=C_fast_retrieve(lf[464]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k20117 in k20114 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_20119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_20119,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20122,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[610],C_text("main#quiet")))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_20122(2,av2);}} else{ /* chicken-install.scm:981: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[851]; av2[3]=C_retrieve2(lf[1],C_text("main#+module-db+")); av2[4]=lf[852]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k20120 in k20117 in k20114 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_20122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_20122,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20125,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20132,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20136,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:982: install-path */ f_15993(t4);} /* k20123 in k20120 in k20117 in k20114 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_20125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20125,2,av);} /* chicken-install.scm:983: chicken.file#delete-file */ t2=C_fast_retrieve(lf[849]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k20130 in k20120 in k20117 in k20114 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_20132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20132,2,av);} /* chicken-install.scm:982: chicken.file#copy-file */ t2=C_fast_retrieve(lf[850]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k20134 in k20120 in k20117 in k20114 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_20136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20136,2,av);} /* chicken-install.scm:982: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_retrieve2(lf[1],C_text("main#+module-db+")); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a20140 in k20114 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_20141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_20141,2,av);} a=C_alloc(5); t2=C_i_check_list_2(((C_word*)t0)[2],lf[118]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20158,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_20158(t6,t1,((C_word*)t0)[2]);} /* k20145 in for-each-loop5592 in a20140 in k20114 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_20147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20147,2,av);} /* chicken-install.scm:980: scheme#newline */ t2=*((C_word*)lf[853]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop5592 in a20140 in k20114 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_fcall f_20158(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_20158,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20168,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20147,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:980: scheme#write */ t7=*((C_word*)lf[734]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20166 in for-each-loop5592 in a20140 in k20114 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_20168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20168,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_20158(t3,((C_word*)t0)[4],t2);} /* k20181 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_20183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_20183,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20185,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:963: chicken.sort#sort */ t3=C_fast_retrieve(lf[855]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a20184 in k20181 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_20185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20185,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20193,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t2); /* chicken-install.scm:977: scheme#symbol->string */ t6=*((C_word*)lf[690]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k20191 in a20184 in k20181 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_20193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20193,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20197,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_car(((C_word*)t0)[3]); /* chicken-install.scm:977: scheme#symbol->string */ t5=*((C_word*)lf[690]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k20195 in k20191 in a20184 in k20181 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_20197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20197,2,av);} /* chicken-install.scm:977: scheme#string= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k20207 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_20209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20209,2,av);} /* chicken-install.scm:964: concatenate */ f_7253(((C_word*)t0)[2],t1);} /* a20210 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_20211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20211,3,av);} a=C_alloc(4); t3=C_i_cdr(t2); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20221,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:968: ##sys#module-name */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[863]); C_word *av2=av; av2[0]=*((C_word*)lf[863]+1); av2[1]=t5; av2[2]=t4; tp(3,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k20219 in a20210 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_20221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_20221,2,av);} a=C_alloc(5); t2=t1; if(C_truep(t2)){ t3=C_i_memq(t2,lf[856]); if(C_truep(C_i_not(t3))){ t4=C_eqp(t2,lf[857]); if(C_truep(C_i_not(t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20239,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_retrieve2(lf[610],C_text("main#quiet")))){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_20239(2,av2);}} else{ /* chicken-install.scm:971: chicken.base#print */ t6=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[861]; av2[3]=t2; av2[4]=lf[862]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20237 in k20219 in a20210 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_20239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_20239,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20244,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20250,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:972: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a20243 in k20237 in k20219 in a20210 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_20244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20244,2,av);} /* chicken-install.scm:972: ##sys#module-exports */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[858]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[858]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* a20249 in k20237 in k20219 in a20210 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_20250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_20250,5,av);} a=C_alloc(21); t5=t3; t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20259,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=C_i_check_list_2(t4,lf[8]); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20273,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20328,a[2]=t10,a[3]=t8,a[4]=t14,a[5]=t9,tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_20328(t16,t12,t4);} /* g5540 in a20249 in k20237 in k20219 in a20210 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static C_word C_fcall f_20259(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_i_car(t1); return(C_a_i_list3(&a,3,t2,lf[859],((C_word*)t0)[2]));} /* k20271 in a20249 in k20237 in k20219 in a20210 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_20273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_20273,2,av);} a=C_alloc(20); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20278,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=C_i_check_list_2(((C_word*)t0)[3],lf[8]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20292,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20294,a[2]=t7,a[3]=t5,a[4]=t11,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_20294(t13,t9,((C_word*)t0)[3]);} /* g5567 in k20271 in a20249 in k20237 in k20219 in a20210 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in ... */ static C_word C_fcall f_20278(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_i_car(t1); return(C_a_i_list3(&a,3,t2,lf[860],((C_word*)t0)[2]));} /* k20290 in k20271 in a20249 in k20237 in k20219 in a20210 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_20292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20292,2,av);} /* chicken-install.scm:973: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop5561 in k20271 in a20249 in k20237 in k20219 in a20210 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in ... */ static void C_fcall f_20294(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_20294,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* chicken-install.scm:974: g5567 */ f_20278(C_a_i(&a,9),((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop5534 in a20249 in k20237 in k20219 in a20210 in k20111 in k20108 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_fcall f_20328(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_20328,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* chicken-install.scm:973: g5540 */ f_20259(C_a_i(&a,9),((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a20372 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_20373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20373,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[866])); t3=C_mutate((C_word*)lf[866]+1 /* (set! ##sys#warnings-enabled ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_20378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_20378,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20476,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_20476(t5,t1,((C_word*)t0)[2]);} /* k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_20384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20384,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20387,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:952: chicken.pathname#pathname-strip-extension */ t4=C_fast_retrieve(lf[872]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_ccall f_20387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20387,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20390,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:953: chicken.pathname#pathname-strip-extension */ t3=C_fast_retrieve(lf[872]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_20390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_20390,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20393,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20398,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:954: scheme#call-with-current-continuation */ t5=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k20391 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_20393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20393,2,av);} /* chicken-install.scm:951: g5482 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_ccall f_20398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_20398,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20404,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20435,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:954: chicken.condition#with-exception-handler */ t5=C_fast_retrieve(lf[113]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a20403 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_20404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20404,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20410,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:954: k5479 */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a20409 in a20403 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_20410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_20410,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20418,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:957: chicken.base#open-output-string */ t3=C_fast_retrieve(lf[566]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k20416 in a20409 in a20403 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in ... */ static void C_ccall f_20418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_20418,2,av);} a=C_alloc(7); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[562]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:957: ##sys#print */ t6=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[867]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k20422 in k20416 in a20409 in a20403 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in ... */ static void C_ccall f_20424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_20424,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20427,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:957: ##sys#print */ t3=*((C_word*)lf[469]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k20425 in k20422 in k20416 in a20409 in a20403 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in ... */ static void C_ccall f_20427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_20427,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20430,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:957: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[468]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[468]+1); av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[5]; tp(4,av2);}} /* k20428 in k20425 in k20422 in k20416 in a20409 in a20403 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in ... */ static void C_ccall f_20430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20430,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20433,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:957: chicken.base#get-output-string */ t3=C_fast_retrieve(lf[563]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k20431 in k20428 in k20425 in k20422 in k20416 in a20409 in a20403 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in ... */ static void C_ccall f_20433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20433,2,av);} /* chicken-install.scm:955: chicken.condition#print-error-message */ t2=C_fast_retrieve(lf[594]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[683]+1); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a20434 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_ccall f_20435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_20435,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20441,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20461,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:954: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a20440 in a20434 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_20441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_20441,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20445,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[610],C_text("main#quiet")))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_20445(2,av2);}} else{ /* chicken-install.scm:958: chicken.base#print */ t3=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[870]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[871]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k20443 in a20440 in a20434 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in ... */ static void C_ccall f_20445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20445,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20456,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:959: scheme#string->symbol */ t3=*((C_word*)lf[195]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k20454 in k20443 in a20440 in a20434 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in ... */ static void C_ccall f_20456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_20456,2,av);} a=C_alloc(6); t2=C_a_i_list(&a,2,lf[868],t1); /* chicken-install.scm:959: scheme#eval */ t3=*((C_word*)lf[869]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a20460 in a20434 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_20461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_20461,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20467,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:954: k5479 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a20466 in a20460 in a20434 in a20397 in k20388 in k20385 in k20382 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in ... */ static void C_ccall f_20467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20467,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_fcall f_20476(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_20476,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20486,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20384,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:951: chicken.pathname#pathname-strip-directory */ t7=C_fast_retrieve(lf[873]);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20484 in for-each-loop5465 in a20377 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in ... */ static void C_ccall f_20486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20486,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_20476(t3,((C_word*)t0)[4],t2);} /* a20498 in k20105 in k20102 in k20099 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_20499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20499,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[866])); t3=C_mutate((C_word*)lf[866]+1 /* (set! ##sys#warnings-enabled ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20504 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_20506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_20506,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20510,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20514,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:945: install-path */ f_15993(t4);} /* k20508 in k20504 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_20510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20510,2,av);} /* chicken-install.scm:944: chicken.file#glob */ t2=C_fast_retrieve(lf[828]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k20512 in k20504 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_20514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20514,2,av);} /* chicken-install.scm:945: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[876]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k20516 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_20518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20518,2,av);} /* chicken-install.scm:944: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[877]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k20531 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_20533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_20533,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20536,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:991: d */ f_16497(t2,lf[878],C_a_i_list(&a,1,C_retrieve2(lf[59],C_text("main#cache-directory"))));} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k20534 in k20531 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_20536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20536,2,av);} /* chicken-install.scm:992: chicken.file#delete-directory */ t2=C_fast_retrieve(lf[737]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[59],C_text("main#cache-directory")); av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k20545 in for-each-loop5624 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_20547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_20547,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20553,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:998: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k20551 in k20545 in for-each-loop5624 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_20553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_20553,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20556,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:999: d */ f_16497(t2,lf[879],C_a_i_list(&a,2,((C_word*)t0)[4],((C_word*)t0)[3]));} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20554 in k20551 in k20545 in for-each-loop5624 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_20556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20556,2,av);} /* chicken-install.scm:1000: chicken.file#delete-directory */ t2=C_fast_retrieve(lf[737]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop5624 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_fcall f_20571(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_20571,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20581,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=C_i_pairp(t4); t7=(C_truep(t6)?C_u_i_car(t4):t4); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20547,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:997: chicken.pathname#make-pathname */ t10=C_fast_retrieve(lf[62]);{ C_word av2[4]; av2[0]=t10; av2[1]=t9; av2[2]=C_retrieve2(lf[59],C_text("main#cache-directory")); av2[3]=t8; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20579 in for-each-loop5624 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_20581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20581,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_20571(t3,((C_word*)t0)[4],t2);} /* k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_20598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_20598,2,av);} a=C_alloc(9); if(C_truep(C_retrieve2(lf[634],C_text("main#update-module-db")))){ t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20101,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20506,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20518,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:944: install-path */ f_15993(t5);} else{ if(C_truep(C_retrieve2(lf[635],C_text("main#purge-mode")))){ t2=((C_word*)t0)[2]; if(C_truep(C_i_nullp(((C_word*)t0)[3]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20533,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:990: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[59],C_text("main#cache-directory")); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_i_check_list_2(((C_word*)t0)[3],lf[118]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20571,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_20571(t7,t2,((C_word*)t0)[3]);}} else{ if(C_truep(C_retrieve2(lf[637],C_text("main#print-repository")))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20620,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1010: install-path */ f_15993(t2);} else{ if(C_truep(C_i_nullp(((C_word*)t0)[3]))){ if(C_truep(C_retrieve2(lf[638],C_text("main#cached-only")))){ /* chicken-install.scm:1013: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[880]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ if(C_truep(C_retrieve2(lf[622],C_text("main#list-versions-only")))){ /* chicken-install.scm:1015: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[881]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20641,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1017: chicken.file#glob */ t3=C_fast_retrieve(lf[828]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[882]; av2[3]=lf[883]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20763,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1027: apply-mappings */ f_17234(t2,((C_word*)t0)[3]);}}}}} /* k20618 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_20620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20620,2,av);} /* chicken-install.scm:1010: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k20639 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_20641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20641,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20644,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t2))){ /* chicken-install.scm:1018: chicken.base#exit */ t4=C_fast_retrieve(lf[708]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_20644(2,av2);}}} /* k20642 in k20639 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_20644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_20644,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=C_i_check_list_2(((C_word*)t0)[2],lf[8]); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20667,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20722,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_20722(t11,t7,((C_word*)t0)[2]);} /* k20655 in map-loop5655 in k20642 in k20639 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_20657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20657,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20661,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:1021: chicken.process-context#current-directory */ t4=C_fast_retrieve(lf[819]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20659 in k20655 in map-loop5655 in k20642 in k20639 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_20661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_20661,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],t1,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20665 in k20642 in k20639 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_20667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_20667,2,av);} a=C_alloc(15); t2=C_mutate(&lf[623] /* (set! main#canonical-eggs ...) */,t1); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_retrieve2(lf[623],C_text("main#canonical-eggs")); t8=C_i_check_list_2(C_retrieve2(lf[623],C_text("main#canonical-eggs")),lf[8]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20677,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20688,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_20688(t13,t9,C_retrieve2(lf[623],C_text("main#canonical-eggs")));} /* k20675 in k20665 in k20642 in k20639 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_20677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20677,2,av);} a=C_alloc(3); t2=C_mutate(&lf[624] /* (set! main#requested-eggs ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20680,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1024: retrieve-eggs */ f_18371(t3,C_SCHEME_END_OF_LIST);} /* k20678 in k20675 in k20665 in k20642 in k20639 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in ... */ static void C_ccall f_20680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20680,2,av);} if(C_truep(C_retrieve2(lf[617],C_text("main#retrieve-only")))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* chicken-install.scm:1025: install-eggs */ f_19645(((C_word*)t0)[2]);}} /* map-loop5682 in k20665 in k20642 in k20639 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_fcall f_20688(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_20688,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop5655 in k20642 in k20639 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_fcall f_20722(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_20722,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20747,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20657,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1021: chicken.pathname#pathname-file */ t7=C_fast_retrieve(lf[64]);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20745 in map-loop5655 in k20642 in k20639 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in ... */ static void C_ccall f_20747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20747,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20722(t6,((C_word*)t0)[5],t5);} /* k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_20763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_20763,2,av);} a=C_alloc(17); t2=t1; if(C_truep(C_retrieve2(lf[622],C_text("main#list-versions-only")))){ t3=((C_word*)t0)[2]; t4=t2; t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=C_retrieve2(lf[694],C_text("main#resolve-location")); t10=C_retrieve2(lf[611],C_text("main#default-servers")); t11=C_i_check_list_2(C_retrieve2(lf[611],C_text("main#default-servers")),lf[8]); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19508,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19611,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_19611(t16,t12,C_retrieve2(lf[611],C_text("main#default-servers")));} else{ t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20782,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20793,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_20793(t11,t7,t2);}} /* k20777 in map-loop5716 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_20779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20779,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_u_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20780 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_20782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20782,2,av);} a=C_alloc(3); t2=C_mutate(&lf[624] /* (set! main#requested-eggs ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20785,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1031: retrieve-eggs */ f_18371(t3,((C_word*)t0)[3]);} /* k20783 in k20780 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_20785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20785,2,av);} if(C_truep(C_retrieve2(lf[617],C_text("main#retrieve-only")))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* chicken-install.scm:1032: install-eggs */ f_19645(((C_word*)t0)[2]);}} /* map-loop5716 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_fcall f_20793(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_20793,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20818,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20779,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1030: canonical */ f_17200(t6,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20816 in map-loop5716 in k20761 in k20596 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in ... */ static void C_ccall f_20818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20818,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_20793(t6,((C_word*)t0)[5],t5);} /* k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_20840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_20840,2,av);} a=C_alloc(7); t2=C_SCHEME_END_OF_LIST; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20843,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:1074: chicken.irregex#irregex */ t5=C_fast_retrieve(lf[938]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[939]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_20843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_20843,2,av);} a=C_alloc(7); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20848,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_20848(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} /* loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_fcall f_20848(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_20848,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20858,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8223,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:106: chicken.process-context#get-environment-variable */ t6=C_fast_retrieve(lf[55]);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=lf[902]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=C_i_car(t2); t4=t3; if(C_truep((C_truep(C_i_equalp(t4,lf[903]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[904]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[905]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ t5=t1; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23480,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1035: chicken.base#print */ t7=*((C_word*)lf[225]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[906]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ if(C_truep(C_i_equalp(t4,lf[907]))){ t5=lf[627] /* main#run-tests */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1085: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[908]))){ t5=lf[637] /* main#print-repository */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1088: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[909]))){ if(C_truep(C_retrieve2(lf[617],C_text("main#retrieve-only")))){ t5=lf[618] /* main#retrieve-recursive */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1093: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ t5=lf[617] /* main#retrieve-only */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1093: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;}} else{ if(C_truep(C_i_equalp(t4,lf[910]))){ t5=lf[617] /* main#retrieve-only */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1096: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[911]))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20938,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20945,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1098: chicken.platform#chicken-version */ t7=C_fast_retrieve(lf[799]);{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep((C_truep(C_i_equalp(t4,lf[912]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[913]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20954,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_cadr(t2); /* chicken-install.scm:1101: chicken.platform#register-feature! */ t7=C_fast_retrieve(lf[914]);{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ if(C_truep(C_i_equalp(t4,lf[915]))){ t5=lf[618] /* main#retrieve-recursive */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1105: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[916]))){ t5=lf[622] /* main#list-versions-only */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1108: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[917]))){ t5=C_i_cadr(t2); t6=C_mutate(&lf[609] /* (set! main#user-defaults ...) */,t5); t7=t2; t8=C_u_i_cdr(t7); t9=C_u_i_cdr(t8); /* chicken-install.scm:1111: loop */ t11=t1; t12=t9; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[918]))){ t5=lf[628] /* main#force-install */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1114: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[919]))){ t5=lf[630] /* main#target-extension */ =C_SCHEME_FALSE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1117: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[920]))){ t5=lf[629] /* main#host-extension */ =C_SCHEME_FALSE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1120: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep((C_truep(C_i_equalp(t4,lf[921]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[922]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=lf[634] /* main#update-module-db */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1123: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[923]))){ t5=lf[621] /* main#no-install-dependencies */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1126: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[924]))){ t5=lf[619] /* main#do-not-build */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1129: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep((C_truep(C_i_equalp(t4,lf[925]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[926]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=lf[610] /* main#quiet */ =C_SCHEME_FALSE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1132: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep((C_truep(C_i_equalp(t4,lf[927]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[928]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=lf[636] /* main#keepfiles */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1135: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep((C_truep(C_i_equalp(t4,lf[929]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[930]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=lf[631] /* main#sudo-install */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1138: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep((C_truep(C_i_equalp(t4,lf[931]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[932]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=lf[620] /* main#no-install */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1141: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[933]))){ t5=lf[635] /* main#purge-mode */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1144: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[934]))){ t5=lf[638] /* main#cached-only */ =C_SCHEME_TRUE;; t6=t2; t7=C_u_i_cdr(t6); /* chicken-install.scm:1147: loop */ t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_equalp(t4,lf[935]))){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21157,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t6=t2; t7=C_u_i_cdr(t6); if(C_truep(C_i_pairp(t7))){ t8=t5;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_21157(2,av2);}} else{ t8=t5; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23493,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1035: chicken.base#print */ t10=*((C_word*)lf[225]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=lf[906]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} else{ if(C_truep(C_i_equalp(t4,lf[936]))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21266,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=t2; t7=C_u_i_cdr(t6); if(C_truep(C_i_pairp(t7))){ t8=t5;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_21266(2,av2);}} else{ t8=t5; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23498,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1035: chicken.base#print */ t10=*((C_word*)lf[225]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=lf[906]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21295,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t6=C_i_string_length(t4); if(C_truep(C_i_fixnum_positivep(t6))){ t7=C_i_string_ref(t4,C_fix(0)); t8=t5; f_21295(t8,C_u_i_char_equalp(C_make_character(45),t7));} else{ t7=t5; f_21295(t7,C_SCHEME_FALSE);}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_20858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20858,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20865,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1079: scheme#reverse */ t3=*((C_word*)lf[224]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_20865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_20865,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=t1; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20598,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16724,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:291: chicken.platform#system-config-directory */ t7=C_fast_retrieve(lf[899]);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k20936 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_20938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20938,2,av);} /* chicken-install.scm:1099: chicken.base#exit */ t2=C_fast_retrieve(lf[708]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k20943 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_20945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20945,2,av);} /* chicken-install.scm:1098: chicken.base#print */ t2=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k20952 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_20954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20954,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_u_i_cdr(t3); /* chicken-install.scm:1102: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_20848(t5,((C_word*)t0)[4],t4);} /* k21155 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_21157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_21157,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21161,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21205,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=t6,tmp=(C_word)a,a+=6,tmp); t8=C_i_cadr(((C_word*)t0)[3]); /* chicken-install.scm:1157: scheme#with-input-from-file */ t9=C_fast_retrieve(lf[730]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=C_fast_retrieve(lf[895]); ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k21159 in k21155 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_21161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21161,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_cddr(((C_word*)t0)[3]); /* chicken-install.scm:1158: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_20848(t4,((C_word*)t0)[5],t3);} /* k21190 in map-loop5785 in k21203 in k21155 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_21192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_21192,2,av);} a=C_alloc(3); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k21203 in k21155 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_21205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_21205,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[8]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21211,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21213,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_21213(t7,t3,t1);} /* k21209 in k21203 in k21155 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_21211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21211,2,av);} /* chicken-install.scm:1151: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop5785 in k21203 in k21155 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_fcall f_21213(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_21213,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21238,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_cdr(t6); if(C_truep(C_i_nullp(t7))){ t8=C_u_i_car(t6); /* chicken-install.scm:1154: chicken.string#->string */ t9=C_fast_retrieve(lf[172]);{ C_word av2[3]; av2[0]=t9; av2[1]=t5; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21192,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t9=C_u_i_car(t6); /* chicken-install.scm:1155: chicken.string#->string */ t10=C_fast_retrieve(lf[172]);{ C_word av2[3]; av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21236 in map-loop5785 in k21203 in k21155 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_21238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21238,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_21213(t6,((C_word*)t0)[5],t5);} /* k21264 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_21266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_21266,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21270,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_cadr(((C_word*)t0)[2]); /* chicken-install.scm:1162: scheme#call-with-input-file */ t4=*((C_word*)lf[894]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_fast_retrieve(lf[895]); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k21268 in k21264 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_21270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21270,2,av);} t2=C_mutate(&lf[615] /* (set! main#override ...) */,t1); t3=C_i_cddr(((C_word*)t0)[2]); /* chicken-install.scm:1163: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_20848(t4,((C_word*)t0)[4],t3);} /* k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_fcall f_21295(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_21295,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_block_size(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t2,C_fix(2)))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21304,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21378,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1170: scheme#substring */ t5=*((C_word*)lf[513]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=((C_word*)t0)[4]; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23510,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1035: chicken.base#print */ t5=*((C_word*)lf[225]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[906]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21390,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:1177: chicken.irregex#irregex-match */ t3=C_fast_retrieve(lf[522]);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k21302 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_21304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_21304,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21310,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21370,tmp=(C_word)a,a+=2,tmp); /* chicken-install.scm:1171: every */ f_7161(t3,t4,t2);} /* k21308 in k21302 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_21310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_21310,2,av);} a=C_alloc(20); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21317,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21329,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21333,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_21333(t11,t7,((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[3]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f23505,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1035: chicken.base#print */ t4=*((C_word*)lf[225]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[906]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k21315 in k21308 in k21302 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_21317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21317,2,av);} /* chicken-install.scm:1172: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20848(t2,((C_word*)t0)[3],t1);} /* k21327 in k21308 in k21302 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_21329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21329,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken-install.scm:1172: scheme#append */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* map-loop5826 in k21308 in k21302 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_fcall f_21333(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_21333,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_string(&a,2,C_make_character(45),t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a21369 in k21302 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_ccall f_21370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21370,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_memq(t2,lf[937]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k21376 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_21378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21378,2,av);} /* ##sys#string->list */ t2=C_fast_retrieve(lf[502]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k21388 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_21390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_21390,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21394,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:1081: g5859 */ t3=t2; f_21394(t3,((C_word*)t0)[5],t1);} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* chicken-install.scm:1187: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_20848(t6,((C_word*)t0)[5],t5);}} /* g5859 in k21388 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in ... */ static void C_fcall f_21394(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_21394,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21410,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:1181: chicken.irregex#irregex-match-substring */ t4=C_fast_retrieve(lf[519]);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k21408 in g5859 in k21388 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in ... */ static void C_ccall f_21410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_21410,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21414,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:1182: chicken.irregex#irregex-match-substring */ t4=C_fast_retrieve(lf[519]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_fix(2); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k21412 in k21408 in g5859 in k21388 in k21293 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in ... */ static void C_ccall f_21414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21414,2,av);} a=C_alloc(6); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); t4=C_a_i_cons(&a,2,t3,t2); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t6=C_i_cdr(((C_word*)t0)[4]); /* chicken-install.scm:1184: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_20848(t7,((C_word*)t0)[6],t6);} /* k21436 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_21438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_21438,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; if(C_truep(C_i_stringp(t1))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17174,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:357: chicken.irregex#irregex-match */ t4=C_fast_retrieve(lf[522]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[941]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21439 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_21441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21441,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21447,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.base#implicit-exit-handler */ t3=C_fast_retrieve(lf[848]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k21445 in k21439 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_21447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21447,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_21451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_21451,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=t1; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20840,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21438,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1072: chicken.process-context#get-environment-variable */ t6=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[942]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_21643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21643,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21647,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-install.scm:107: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[947]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_21647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21647,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21651,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-install.scm:108: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[946]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_21651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21651,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21655,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-install.scm:109: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[945]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_21655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_21655,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21659,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-install.scm:110: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[944]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_21659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(689,c,5)))){ C_save_and_reclaim((void *)f_21659,2,av);} a=C_alloc(689); t2=C_a_i_list7(&a,7,C_fast_retrieve(lf[640]),C_retrieve2(lf[33],C_text("main#default-prefix")),((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1); t3=C_mutate(&lf[641] /* (set! main#current-status ...) */,t2); t4=C_mutate(&lf[642] /* (set! main#install-path ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15993,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[643] /* (set! main#build-script-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16011,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[649] /* (set! main#install-script-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16031,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[655] /* (set! main#egg-version? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16051,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate(&lf[657] /* (set! main#optname? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16082,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate(&lf[658] /* (set! main#nameprop? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16112,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate(&lf[659] /* (set! main#name-or-predefd? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16136,tmp=(C_word)a,a+=2,tmp)); t11=C_a_i_list(&a,4,lf[661],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE); t12=C_a_i_list(&a,4,lf[662],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE); t13=C_a_i_list(&a,4,lf[663],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE); t14=C_a_i_list(&a,4,lf[664],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE); t15=C_a_i_list(&a,5,lf[205],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_retrieve2(lf[655],C_text("main#egg-version\077"))); t16=C_a_i_list(&a,5,lf[665],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE,*((C_word*)lf[666]+1)); t17=C_a_i_list(&a,5,lf[182],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,*((C_word*)lf[666]+1)); t18=C_a_i_list(&a,5,lf[181],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,*((C_word*)lf[666]+1)); t19=C_a_i_list(&a,5,lf[667],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE,*((C_word*)lf[666]+1)); t20=C_a_i_list(&a,5,lf[668],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE,*((C_word*)lf[666]+1)); t21=C_a_i_list(&a,4,lf[197],C_SCHEME_TRUE,C_SCHEME_TRUE,C_SCHEME_FALSE); t22=C_a_i_list(&a,5,lf[669],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE,*((C_word*)lf[666]+1)); t23=C_a_i_list(&a,4,lf[670],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE); t24=C_a_i_list(&a,5,lf[204],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE,*((C_word*)lf[666]+1)); t25=C_a_i_list(&a,4,lf[671],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE); t26=C_a_i_list(&a,5,lf[186],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,*((C_word*)lf[666]+1)); t27=C_a_i_list(&a,5,lf[672],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE,*((C_word*)lf[666]+1)); t28=C_a_i_list(&a,4,lf[177],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); t29=C_a_i_list(&a,4,lf[175],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); t30=C_a_i_list(&a,4,lf[176],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); t31=C_a_i_list(&a,4,lf[174],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); t32=C_a_i_list(&a,4,lf[168],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); t33=C_a_i_list(&a,4,lf[171],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); t34=C_a_i_list(&a,5,lf[178],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_retrieve2(lf[658],C_text("main#nameprop\077"))); t35=C_a_i_list(&a,4,lf[54],C_SCHEME_FALSE,C_SCHEME_TRUE,C_SCHEME_FALSE); t36=C_a_i_list(&a,4,lf[103],C_SCHEME_FALSE,C_SCHEME_TRUE,C_SCHEME_FALSE); t37=C_a_i_list(&a,5,lf[169],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_retrieve2(lf[659],C_text("main#name-or-predefd\077"))); t38=C_a_i_list(&a,5,lf[173],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_retrieve2(lf[657],C_text("main#optname\077"))); t39=C_a_i_list(&a,4,lf[117],C_SCHEME_FALSE,C_SCHEME_TRUE,C_SCHEME_TRUE); t40=C_a_i_list(&a,4,lf[150],C_SCHEME_FALSE,C_SCHEME_TRUE,C_SCHEME_TRUE); t41=C_a_i_list(&a,4,lf[157],C_SCHEME_FALSE,C_SCHEME_TRUE,C_SCHEME_TRUE); t42=C_a_i_list(&a,4,lf[165],C_SCHEME_FALSE,C_SCHEME_TRUE,C_SCHEME_TRUE); t43=C_a_i_list(&a,4,lf[151],C_SCHEME_FALSE,C_SCHEME_TRUE,C_SCHEME_TRUE); t44=C_a_i_list(&a,4,lf[179],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); t45=C_a_i_list(&a,4,lf[198],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE); t46=C_a_i_list(&a,4,lf[184],lf[673],C_SCHEME_TRUE,C_SCHEME_FALSE); t47=C_a_i_list(&a,4,lf[183],lf[673],C_SCHEME_FALSE,C_SCHEME_FALSE); t48=C_a_i_list(&a,4,lf[159],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_TRUE); t49=C_a_i_list(&a,4,lf[162],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_TRUE); t50=C_a_i_list(&a,31,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30,t31,t32,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42,t43,t44,t45,t46,t47,t48,t49); t51=C_a_i_cons(&a,2,t18,t50); t52=C_a_i_cons(&a,2,t17,t51); t53=C_a_i_cons(&a,2,t16,t52); t54=C_a_i_cons(&a,2,t15,t53); t55=C_a_i_cons(&a,2,t14,t54); t56=C_a_i_cons(&a,2,t13,t55); t57=C_a_i_cons(&a,2,t12,t56); t58=C_a_i_cons(&a,2,t11,t57); t59=C_mutate(&lf[674] /* (set! main#egg-info-items ...) */,t58); t60=C_mutate(&lf[675] /* (set! main#validate-egg-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16179,tmp=(C_word)a,a+=2,tmp)); t61=C_mutate(&lf[530] /* (set! main#d ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16497,tmp=(C_word)a,a+=2,tmp)); t62=C_mutate(&lf[685] /* (set! main#version>=? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16546,tmp=(C_word)a,a+=2,tmp)); t63=C_mutate(&lf[689] /* (set! main#canonical ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17200,tmp=(C_word)a,a+=2,tmp)); t64=C_mutate(&lf[692] /* (set! main#apply-mappings ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17234,tmp=(C_word)a,a+=2,tmp)); t65=C_mutate(&lf[694] /* (set! main#resolve-location ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17733,tmp=(C_word)a,a+=2,tmp)); t66=C_mutate(&lf[696] /* (set! main#copy-egg-sources ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17985,tmp=(C_word)a,a+=2,tmp)); t67=C_mutate(&lf[701] /* (set! main#retrieve-eggs ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18371,tmp=(C_word)a,a+=2,tmp)); t68=C_mutate(&lf[702] /* (set! main#check-dependency ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18828,tmp=(C_word)a,a+=2,tmp)); t69=C_mutate(&lf[722] /* (set! main#ext-version ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19090,tmp=(C_word)a,a+=2,tmp)); t70=C_mutate(&lf[804] /* (set! main#install-eggs ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19645,tmp=(C_word)a,a+=2,tmp)); t71=C_mutate(&lf[806] /* (set! main#run-script ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20004,tmp=(C_word)a,a+=2,tmp)); t72=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21441,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); t73=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21451,a[2]=t72,tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:1189: chicken.process-context#command-line-arguments */ t74=C_fast_retrieve(lf[943]);{ C_word *av2=av; av2[0]=t74; av2[1]=t73; ((C_proc)(void*)(*((C_word*)t74+1)))(2,av2);}} /* k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_21666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21666,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[500]); t3=(C_truep(t2)?lf[31]:lf[32]); t4=C_mutate(&lf[639] /* (set! main#platform ...) */,t3); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21643,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:106: chicken.process-context#get-environment-variable */ t6=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[948]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k21668 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_21670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21670,2,av);} /* egg-download.scm:35: chicken.string#conc */ t2=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[950]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k21675 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in ... */ static void C_ccall f_21677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_21677,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21680,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t1; /* egg-environment.scm:121: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=lf[955]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* egg-environment.scm:122: chicken.process-context#current-directory */ t3=C_fast_retrieve(lf[819]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21678 in k21675 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in ... */ static void C_ccall f_21680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21680,2,av);} /* egg-environment.scm:121: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[955]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k21685 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in ... */ static void C_ccall f_21687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21687,2,av);} /* egg-environment.scm:97: scheme#string-append */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[27],C_text("main#default-runlibdir")); av2[3]=lf[958]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k21690 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in ... */ static void C_ccall f_21692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21692,2,av);} /* egg-environment.scm:94: scheme#string-append */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[26],C_text("main#default-libdir")); av2[3]=lf[960]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k21695 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in ... */ static void C_ccall f_21697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21697,2,av);} /* egg-environment.scm:77: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[29],C_text("main#default-bindir")); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k21699 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in ... */ static void C_ccall f_21701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21701,2,av);} /* egg-environment.scm:74: scheme#string-append */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[29],C_text("main#default-bindir")); av2[3]=lf[962]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k21703 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in ... */ static void C_ccall f_21705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21705,2,av);} /* egg-environment.scm:71: scheme#string-append */ t2=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[29],C_text("main#default-bindir")); av2[3]=lf[963]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in ... */ static void C_ccall f_21712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_21712,2,av);} a=C_alloc(6); t2=C_eqp(t1,lf[31]); t3=(C_truep(t2)?C_mk_bool(C_WINDOWS_SHELL):lf[32]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8140,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_PREFIX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k6743 */ static void C_ccall f_6745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6745,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6748,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k6746 in k6743 */ static void C_ccall f_6748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6748,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6751,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k6749 in k6746 in k6743 */ static void C_ccall f_6751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6751,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6754,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dffi_2dsyntax_toplevel(2,av2);}} /* k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_6754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6754,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6757,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_file_toplevel(2,av2);}} /* k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_6757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6757,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6760,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_6760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6760,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6763,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_6763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6763,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6766,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_6766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6766,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6769,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_tcp_toplevel(2,av2);}} /* k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_6769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6769,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6772,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_port_toplevel(2,av2);}} /* k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_6772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6772,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6775,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_6775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6775,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6778,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_6778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6778,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6781,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_6781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,7)))){ C_save_and_reclaim((void *)f_6781,2,av);} a=C_alloc(11); t2=C_a_i_provide(&a,1,lf[0]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6784,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-install.scm:29: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[966]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[966]+1); av2[1]=t3; av2[2]=lf[857]; av2[3]=lf[857]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=C_SCHEME_END_OF_LIST; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_6784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ C_save_and_reclaim((void *)f_6784,2,av);} a=C_alloc(17); t2=C_mutate(&lf[1] /* (set! main#+module-db+ ...) */,lf[2]); t3=C_mutate(&lf[3] /* (set! main#+defaults-file+ ...) */,lf[4]); t4=C_mutate(&lf[5] /* (set! main#append-map ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6991,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[11] /* (set! main#every ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7161,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[9] /* (set! main#any ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7195,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[12] /* (set! main#concatenate ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7253,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate(&lf[13] /* (set! main#delete ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7281,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate(&lf[14] /* (set! main#filter-map ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7445,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate(&lf[15] /* (set! main#find ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7916,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate(&lf[16] /* (set! main#staticbuild ...) */,C_mk_bool(STATIC_CHICKEN)); t12=C_mutate(&lf[17] /* (set! main#debugbuild ...) */,C_mk_bool(DEBUG_CHICKEN)); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8074,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:43: chicken.platform#feature? */ t14=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t13; av2[2]=lf[965]; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} /* loop in a13804 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_6798(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_6798,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_nullp(t4))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6812,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:43: scheme#reverse */ t6=*((C_word*)lf[224]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6822,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp); t6=C_i_car(t4); /* mini-srfi-1.scm:44: pred */ t7=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} /* k6810 in loop in a13804 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_6812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6812,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6816,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:43: scheme#reverse */ t4=*((C_word*)lf[224]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6814 in k6810 in loop in a13804 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_6816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6816,2,av);} /* mini-srfi-1.scm:43: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_values(4,av2);}} /* k6820 in loop in a13804 in k13798 in k13795 in k13792 in k13789 in k13772 in k13766 in main#install-random-files in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_6822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_6822,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:44: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_6798(t7,((C_word*)t0)[5],t4,((C_word*)t0)[6],t6);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[6]); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:45: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_6798(t7,((C_word*)t0)[5],((C_word*)t0)[3],t4,t6);}} /* loop in a16855 in k16849 in k16846 in g4458 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in ... */ static void C_fcall f_6958(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_6958,5,t0,t1,t2,t3,t4);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6972,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:67: scheme#reverse */ t6=*((C_word*)lf[224]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_fixnum_difference(t2,C_fix(1)); t6=C_i_car(t4); t7=C_a_i_cons(&a,2,t6,t3); t8=t4; t9=C_u_i_cdr(t8); /* mini-srfi-1.scm:68: loop */ t11=t1; t12=t5; t13=t7; t14=t9; t1=t11; t2=t12; t3=t13; t4=t14; goto loop;}} /* k6970 in loop in a16855 in k16849 in k16846 in g4458 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in ... */ static void C_ccall f_6972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6972,2,av);} /* mini-srfi-1.scm:67: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}} /* main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_6991(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_6991,4,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_i_nullp(t4))){ t5=t3; t6=C_i_check_list_2(t5,lf[6]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7006,a[2]=t2,a[3]=t8,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_7006(t10,t1,t5);} else{ t5=C_a_i_cons(&a,2,t3,t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7046,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_7046(t9,t1,t5);}} /* foldr336 in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7006(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_7006,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7014,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7033,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g341 in foldr336 in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7014(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7014,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7022,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:72: proc */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k7020 in g341 in foldr336 in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7022,2,av);} /* mini-srfi-1.scm:72: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7031 in foldr336 in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7033,2,av);} /* mini-srfi-1.scm:72: g341 */ t2=((C_word*)t0)[2]; f_7014(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7046(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7046,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7053,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* mini-srfi-1.scm:74: any */ f_7195(t3,*((C_word*)lf[10]+1),t2);} /* k7051 in loop in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_7053,2,av);} a=C_alloc(21); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7060,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[3]; t8=C_i_check_list_2(t7,lf[8]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7125,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7127,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_7127(t13,t9,t7);}} /* k7058 in k7051 in loop in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_7060,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7064,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[3]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7076,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7078,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_7078(t13,t9,t8);} /* k7062 in k7058 in k7051 in loop in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7064,2,av);} /* mini-srfi-1.scm:76: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7074 in k7058 in k7051 in loop in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7076,2,av);} /* mini-srfi-1.scm:77: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7046(t2,((C_word*)t0)[3],t1);} /* map-loop378 in k7058 in k7051 in loop in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7078(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_7078,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7123 in k7051 in loop in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7125,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* map-loop351 in k7051 in loop in main#append-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7127(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_7127,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* main#every in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7161(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7161,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7167,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7167(t7,t1,t3);} /* loop in main#every in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7167(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7167,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7189,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); /* mini-srfi-1.scm:82: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k7187 in loop in main#every in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7189,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:83: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_7167(t4,((C_word*)t0)[2],t3);}} /* main#any in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7195(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7195,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7201,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7201(t7,t1,t3);} /* loop in main#any in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7201(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7201,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7211,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:88: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* k7209 in loop in main#any in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7211,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:89: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_7201(t4,((C_word*)t0)[2],t3);}} /* main#concatenate in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7253(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7253,2,t1,t2);} a=C_alloc(5); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7259,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_7259(t6,t1,t2);} /* loop in main#concatenate in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7259(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7259,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7277,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:101: loop */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}} /* k7275 in loop in main#concatenate in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7277,2,av);} /* mini-srfi-1.scm:101: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* main#delete in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7281(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_7281,4,t1,t2,t3,t4);} a=C_alloc(7); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7287,a[2]=t6,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_7287(t8,t1,t3);} /* loop in main#delete in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7287(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7287,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7300,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:106: test */ t5=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}} /* k7298 in loop in main#delete in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7300,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:107: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7287(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7314,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:109: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_7287(t7,t4,t6);}} /* k7312 in k7298 in loop in main#delete in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7314,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k17291 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_fcall f_7362(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_7362,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7376,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7389,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:123: delete */ f_7281(t8,t4,t6,((C_word*)t0)[3]);}} /* k7374 in loop in k17291 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_7376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7376,2,av);} a=C_alloc(3); t2=C_i_equalp(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?((C_word*)t0)[4]:C_a_i_cons(&a,2,((C_word*)t0)[5],t1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7387 in loop in k17291 in main#apply-mappings in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_7389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7389,2,av);} /* mini-srfi-1.scm:123: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7362(t2,((C_word*)t0)[3],t1);} /* foldr483 in k18230 in k18274 in loop in k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in k21653 in ... */ static void C_fcall f_7410(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_7410,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7418,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7439,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g488 in foldr483 in k18230 in k18274 in loop in k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in ... */ static void C_fcall f_7418(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7418,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7425,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:131: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k7423 in g488 in foldr483 in k18230 in k18274 in loop in k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in ... */ static void C_ccall f_7425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7425,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7437 in foldr483 in k18230 in k18274 in loop in k18204 in k19784 in k19781 in k19772 in k19769 in k19766 in k19763 in a19760 in k19748 in k19664 in k19661 in k19658 in k19655 in for-each-loop5310 in k19866 in main#install-eggs in k21657 in ... */ static void C_ccall f_7439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7439,2,av);} /* mini-srfi-1.scm:131: g488 */ t2=((C_word*)t0)[2]; f_7418(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* main#filter-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7445(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7445,3,t1,t2,t3);} a=C_alloc(6); t4=C_i_check_list_2(t3,lf[6]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7454,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_7454(t8,t1,t3);} /* foldr501 in main#filter-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7454(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_7454,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7462,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7488,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g506 in foldr501 in main#filter-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7462(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7462,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7466,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:135: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k7464 in g506 in foldr501 in main#filter-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7466,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7470,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:135: g516 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* mini-srfi-1.scm:135: g516 */ f_7470(C_a_i(&a,3),t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g516 in k7464 in g506 in foldr501 in main#filter-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static C_word C_fcall f_7470(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));} /* k7486 in foldr501 in main#filter-map in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7488,2,av);} /* mini-srfi-1.scm:134: g506 */ t2=((C_word*)t0)[2]; f_7462(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* map-loop529 in k18527 in k18521 in k18592 in k18586 in k18514 in a18510 in k18494 in k18491 in k18488 in k18485 in k18482 in k18475 in for-each-loop4988 in k18455 in main#retrieve-eggs in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in ... */ static void C_fcall f_7527(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_7527,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in g4458 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in ... */ static void C_fcall f_7592(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7592,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7605,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t3); /* mini-srfi-1.scm:154: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k7603 in loop in g4458 in k16745 in g4415 in k17141 in k16728 in k16725 in k16722 in k20863 in k20856 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in ... */ static void C_ccall f_7605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7605,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* mini-srfi-1.scm:155: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_7592(t5,((C_word*)t0)[2],t2,t4);}} /* main#find in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7916(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7916,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7922,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7922(t7,t1,t3);} /* loop in main#find in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_fcall f_7922(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7922,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7935,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:216: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* k7933 in loop in main#find in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_7935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7935,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:217: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_7922(t4,((C_word*)t0)[3],t3);}} /* k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_8074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8074,2,av);} a=C_alloc(6); t2=lf[18] /* main#cross-chicken */ =t1;; t3=lf[19] /* main#binary-version */ =C_fix((C_word)C_BINARY_VERSION);; t4=lf[20] /* main#major-version */ =C_fix((C_word)C_MAJOR_VERSION);; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8080,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_TARGET_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_8080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8080,2,av);} a=C_alloc(6); t2=C_mutate(&lf[21] /* (set! main#default-cc ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8084,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_8084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8084,2,av);} a=C_alloc(6); t2=C_mutate(&lf[22] /* (set! main#default-cxx ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8088,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_8088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8088,2,av);} a=C_alloc(6); t2=C_mutate(&lf[23] /* (set! main#default-install-program ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8092,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_CFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_8092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8092,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8096,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LDFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_8096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8096,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8100,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM_EXECUTABLE_OPTIONS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 */ static void C_ccall f_8100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8100,2,av);} a=C_alloc(6); t2=C_mutate(&lf[24] /* (set! main#default-install-program-executable-flags ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8104,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM_FILE_OPTIONS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in k6743 in ... */ static void C_ccall f_8104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8104,2,av);} a=C_alloc(6); t2=C_mutate(&lf[25] /* (set! main#default-install-program-data-flags ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8108,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_MORE_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in k6746 in ... */ static void C_ccall f_8108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8108,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8112,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in k6749 in ... */ static void C_ccall f_8112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8112,2,av);} a=C_alloc(6); t2=C_mutate(&lf[26] /* (set! main#default-libdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8116,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_RUN_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in k6752 in ... */ static void C_ccall f_8116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8116,2,av);} a=C_alloc(6); t2=C_mutate(&lf[27] /* (set! main#default-runlibdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_STATIC_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in k6755 in ... */ static void C_ccall f_8120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8120,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8124,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INCLUDE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in k6758 in ... */ static void C_ccall f_8124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8124,2,av);} a=C_alloc(6); t2=C_mutate(&lf[28] /* (set! main#default-incdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8128,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in k6761 in ... */ static void C_ccall f_8128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8128,2,av);} a=C_alloc(6); t2=C_mutate(&lf[29] /* (set! main#default-bindir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8132,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in k6767 in k6764 in ... */ static void C_ccall f_8132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8132,2,av);} a=C_alloc(3); t2=C_mutate(&lf[30] /* (set! main#default-sharedir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21712,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:63: chicken.platform#software-type */ t4=C_fast_retrieve(lf[964]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in k6770 in ... */ static void C_ccall f_8140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8140,2,av);} a=C_alloc(6); t2=C_mutate(&lf[33] /* (set! main#default-prefix ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8144,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in k6773 in ... */ static void C_ccall f_8144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_8144,2,av);} a=C_alloc(9); t2=C_mutate(&lf[29] /* (set! main#default-bindir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8148,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21705,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_CSC_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in k6776 in ... */ static void C_ccall f_8148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_8148,2,av);} a=C_alloc(9); t2=C_mutate(&lf[34] /* (set! main#default-csc ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8152,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21701,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_CSI_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in k6779 in ... */ static void C_ccall f_8152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_8152,2,av);} a=C_alloc(9); t2=C_mutate(&lf[35] /* (set! main#default-csi ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8156,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21697,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_CHICKEN_DO_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in k6782 in ... */ static void C_ccall f_8156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8156,2,av);} a=C_alloc(6); t2=C_mutate(&lf[36] /* (set! main#default-builder ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8160,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIBRARIAN); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in k8072 in ... */ static void C_ccall f_8160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8160,2,av);} a=C_alloc(6); t2=C_mutate(&lf[37] /* (set! main#target-librarian ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8164,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIBRARIAN_FLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in k8078 in ... */ static void C_ccall f_8164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8164,2,av);} a=C_alloc(6); t2=C_mutate(&lf[38] /* (set! main#target-librarian-options ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8168,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_EGG_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in k8082 in ... */ static void C_ccall f_8168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8168,2,av);} a=C_alloc(6); t2=C_mutate(&lf[39] /* (set! main#host-repo ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8172,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in k8086 in ... */ static void C_ccall f_8172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8172,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8176,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in k8090 in ... */ static void C_ccall f_8176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8176,2,av);} a=C_alloc(6); t2=C_mutate(&lf[40] /* (set! main#host-bindir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8180,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_INCLUDE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in k8094 in ... */ static void C_ccall f_8180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8180,2,av);} a=C_alloc(6); t2=C_mutate(&lf[41] /* (set! main#host-incdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8184,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in k8098 in ... */ static void C_ccall f_8184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8184,2,av);} a=C_alloc(6); t2=C_mutate(&lf[42] /* (set! main#host-sharedir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8188,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_MORE_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in k8102 in ... */ static void C_ccall f_8188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8188,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8192,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in k8106 in ... */ static void C_ccall f_8192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8192,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8196,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LDFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in k8110 in ... */ static void C_ccall f_8196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8196,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8200,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in k8114 in ... */ static void C_ccall f_8200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8200,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8204,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[961]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in k8118 in ... */ static void C_ccall f_8204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8204,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21692,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_retrieve2(lf[19],C_text("main#binary-version")); /* ##sys#fixnum->string */ t5=C_fast_retrieve(lf[959]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=C_retrieve2(lf[19],C_text("main#binary-version")); av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in k8122 in ... */ static void C_ccall f_8208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8208,2,av);} a=C_alloc(6); t2=C_mutate(&lf[43] /* (set! main#target-repo ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8212,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21687,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_retrieve2(lf[19],C_text("main#binary-version")); /* ##sys#fixnum->string */ t6=C_fast_retrieve(lf[959]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=C_retrieve2(lf[19],C_text("main#binary-version")); av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in k8126 in ... */ static void C_ccall f_8212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_8212,2,av);} a=C_alloc(7); t2=C_mutate(&lf[44] /* (set! main#target-run-repo ...) */,t1); t3=C_mutate(&lf[45] /* (set! main#+egg-info-extension+ ...) */,lf[46]); t4=C_mutate(&lf[47] /* (set! main#+version-file+ ...) */,lf[48]); t5=C_mutate(&lf[49] /* (set! main#+timestamp-file+ ...) */,lf[50]); t6=C_mutate(&lf[51] /* (set! main#+egg-extension+ ...) */,lf[52]); t7=C_mutate(&lf[53] /* (set! main#destination-repository ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8240,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate(&lf[57] /* (set! main#probe-dir ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8267,tmp=(C_word)a,a+=2,tmp)); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8281,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:120: chicken.process-context#get-environment-variable */ t10=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=lf[957]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k8221 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in ... */ static void C_ccall f_8223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_8223,2,av);} a=C_alloc(4); t2=t1; t3=C_i_not(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8232,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ if(C_truep(t3)){ t5=C_SCHEME_UNDEFINED; t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* egg-environment.scm:108: chicken.base#error */ t5=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=lf[900]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} else{ /* egg-environment.scm:107: chicken.pathname#absolute-pathname? */ t5=C_fast_retrieve(lf[901]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k8230 in k8221 in loop in k20841 in k20838 in k21449 in k21657 in k21653 in k21649 in k21645 in k21641 in k21664 in k15951 in k14880 in k14876 in k14873 in k14870 in k8689 in k8282 in k8279 in k8210 in k8206 in ... */ static void C_ccall f_8232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8232,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* egg-environment.scm:108: chicken.base#error */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[900]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* main#destination-repository in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in ... */ static void C_fcall f_8240(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_8240,3,t1,t2,t3);} a=C_alloc(3); t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_eqp(lf[54],t2); if(C_truep(t6)){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=(C_truep(t5)?C_retrieve2(lf[44],C_text("main#target-run-repo")):C_retrieve2(lf[43],C_text("main#target-repo"))); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8256,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:113: chicken.process-context#get-environment-variable */ t8=C_fast_retrieve(lf[55]);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[56]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k8254 in main#destination-repository in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in ... */ static void C_ccall f_8256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8256,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?t1:C_retrieve2(lf[39],C_text("main#host-repo"))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#probe-dir in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in ... */ static void C_fcall f_8267(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_8267,2,t1,t2);} a=C_alloc(4); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8277,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* egg-environment.scm:117: chicken.file#directory-exists? */ t4=C_fast_retrieve(lf[58]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8275 in main#probe-dir in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in ... */ static void C_ccall f_8277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8277,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in k8130 in ... */ static void C_ccall f_8281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_8281,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8284,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_8284(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21677,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:121: chicken.platform#system-cache-directory */ t4=C_fast_retrieve(lf[956]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in k21710 in ... */ static void C_ccall f_8284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_8284,2,av);} a=C_alloc(9); t2=C_mutate(&lf[59] /* (set! main#cache-directory ...) */,t1); t3=C_mutate(&lf[60] /* (set! main#locate-egg-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8286,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate(&lf[67] /* (set! main#get-egg-property ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8323,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[68] /* (set! main#get-egg-property* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8347,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[69] /* (set! main#default-static-compilation-options ...) */,lf[70]); t7=C_mutate(&lf[71] /* (set! main#default-dynamic-compilation-options ...) */,lf[72]); t8=(C_truep(C_retrieve2(lf[16],C_text("main#staticbuild")))?lf[73]:lf[74]); t9=C_mutate(&lf[75] /* (set! main#default-program-linkage ...) */,t8); t10=(C_truep(C_retrieve2(lf[16],C_text("main#staticbuild")))?lf[76]:lf[77]); t11=C_mutate(&lf[78] /* (set! main#default-extension-linkage ...) */,t10); t12=C_mutate(&lf[79] /* (set! main#+link-file-extension+ ...) */,lf[80]); t13=lf[81] /* main#keep-generated-files */ =C_SCHEME_FALSE;; t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8691,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:57: chicken.process-context#get-environment-variable */ t15=C_fast_retrieve(lf[55]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t15; av2[1]=t14; av2[2]=lf[954]; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} /* main#locate-egg-file in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in ... */ static void C_fcall f_8286(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_8286,2,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8290,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8300,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8312,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* egg-information.scm:30: chicken.pathname#pathname-directory */ t6=C_fast_retrieve(lf[66]);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8288 in main#locate-egg-file in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_8290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8290,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8296,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* egg-information.scm:34: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8294 in k8288 in main#locate-egg-file in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_8296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8296,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8298 in main#locate-egg-file in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_8300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8300,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8304,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* egg-information.scm:32: chicken.pathname#pathname-file */ t4=C_fast_retrieve(lf[64]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8302 in k8298 in main#locate-egg-file in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_8304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8304,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8308,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* egg-information.scm:33: chicken.pathname#pathname-extension */ t4=C_fast_retrieve(lf[63]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8306 in k8302 in k8298 in main#locate-egg-file in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_8308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8308,2,av);} /* egg-information.scm:30: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8310 in main#locate-egg-file in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_ccall f_8312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8312,2,av);} /* egg-information.scm:30: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[65]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* main#get-egg-property in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in ... */ static C_word C_fcall f_8323(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check;{} t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_i_assq(t2,t1); if(C_truep(t6)){ t7=C_i_cadr(t6); return((C_truep(t7)?t7:t5));} else{ return(t5);}} /* main#get-egg-property* in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in ... */ static C_word C_fcall f_8347(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check;{} t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_END_OF_LIST:C_i_car(t3)); t6=C_i_assq(t2,t1); if(C_truep(t6)){ t7=C_i_cdr(t6); return((C_truep(t7)?t7:t5));} else{ return(t5);}} /* k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in k8138 in ... */ static void C_ccall f_8691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(88,c,9)))){ C_save_and_reclaim((void *)f_8691,2,av);} a=C_alloc(88); t2=t1; t3=C_mutate(&lf[82] /* (set! main#override-prefix ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8692,a[2]=t2,tmp=(C_word)a,a+=3,tmp)); t4=C_mutate(&lf[84] /* (set! main#object-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8701,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[87] /* (set! main#archive-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8720,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[90] /* (set! main#executable-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8739,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[93] /* (set! main#copy-directory-command ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8758,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate(&lf[96] /* (set! main#mkdir-command ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8777,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate(&lf[99] /* (set! main#remove-file-command ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8808,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate(&lf[102] /* (set! main#uses-compiled-import-library? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8830,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate(&lf[104] /* (set! main#sort-dependencies ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8843,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate(&lf[115] /* (set! main#compile-egg-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9114,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate(&lf[216] /* (set! main#compile-static-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11979,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate(&lf[218] /* (set! main#compile-dynamic-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12270,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate(&lf[215] /* (set! main#compile-import-library ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12593,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate(&lf[221] /* (set! main#compile-static-object ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12679,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate(&lf[222] /* (set! main#compile-dynamic-object ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12797,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate(&lf[220] /* (set! main#compile-dynamic-program ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12915,tmp=(C_word)a,a+=2,tmp)); t19=C_mutate(&lf[219] /* (set! main#compile-static-program ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13105,tmp=(C_word)a,a+=2,tmp)); t20=C_mutate(&lf[223] /* (set! main#compile-generated-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13295,tmp=(C_word)a,a+=2,tmp)); t21=C_mutate(&lf[214] /* (set! main#install-static-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13347,tmp=(C_word)a,a+=2,tmp)); t22=C_mutate(&lf[213] /* (set! main#install-dynamic-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13437,tmp=(C_word)a,a+=2,tmp)); t23=C_mutate(&lf[211] /* (set! main#install-import-library ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13511,tmp=(C_word)a,a+=2,tmp)); t24=C_mutate(&lf[212] /* (set! main#install-import-library-source ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13525,tmp=(C_word)a,a+=2,tmp)); t25=C_mutate(&lf[210] /* (set! main#install-types-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13579,tmp=(C_word)a,a+=2,tmp)); t26=C_mutate(&lf[209] /* (set! main#install-inline-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13633,tmp=(C_word)a,a+=2,tmp)); t27=C_mutate(&lf[208] /* (set! main#install-program ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13687,tmp=(C_word)a,a+=2,tmp)); t28=C_mutate(&lf[445] /* (set! main#install-random-files ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13764,tmp=(C_word)a,a+=2,tmp)); t29=C_mutate(&lf[206] /* (set! main#install-data ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13995,tmp=(C_word)a,a+=2,tmp)); t30=C_mutate(&lf[207] /* (set! main#install-c-include ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14025,tmp=(C_word)a,a+=2,tmp)); t31=C_mutate(&lf[461] /* (set! main#generate-shell-commands ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14058,tmp=(C_word)a,a+=2,tmp)); t32=C_mutate(&lf[465] /* (set! main#build-prefix ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14134,tmp=(C_word)a,a+=2,tmp)); t33=C_mutate(&lf[482] /* (set! main#build-suffix ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14279,tmp=(C_word)a,a+=2,tmp)); t34=C_mutate(&lf[483] /* (set! main#install-prefix ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14306,tmp=(C_word)a,a+=2,tmp)); t35=C_mutate(&lf[487] /* (set! main#install-suffix ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14348,tmp=(C_word)a,a+=2,tmp)); t36=C_mutate(&lf[235] /* (set! main#qs* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14498,tmp=(C_word)a,a+=2,tmp)); t37=C_mutate(&lf[327] /* (set! main#slashify ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14529,tmp=(C_word)a,a+=2,tmp)); t38=C_mutate(&lf[446] /* (set! main#prefix ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14593,tmp=(C_word)a,a+=2,tmp)); t39=C_mutate(&lf[503] /* (set! main#system+ ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14603,tmp=(C_word)a,a+=2,tmp)); t40=C_mutate(&lf[258] /* (set! main#arglist ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14645,tmp=(C_word)a,a+=2,tmp)); t41=C_mutate(&lf[237] /* (set! main#filelist ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14704,tmp=(C_word)a,a+=2,tmp)); t42=C_mutate(&lf[398] /* (set! main#shell-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14759,tmp=(C_word)a,a+=2,tmp)); t43=C_mutate(&lf[269] /* (set! main#custom-cmd ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14796,tmp=(C_word)a,a+=2,tmp)); t44=C_mutate(&lf[451] /* (set! main#strip-dir-prefix ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14831,tmp=(C_word)a,a+=2,tmp)); t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14872,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-download.scm:31: chicken.tcp#tcp-connect-timeout */ t46=C_fast_retrieve(lf[953]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t46; av2[1]=t45; av2[2]=C_fix(30000); ((C_proc)(void*)(*((C_word*)t46+1)))(3,av2);}} /* main#override-prefix in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_8692(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_8692,4,t0,t1,t2,t3);} if(C_truep(((C_word*)t0)[2])){ /* egg-compile.scm:60: scheme#string-append */ t4=*((C_word*)lf[83]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* main#object-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static C_word C_fcall f_8701(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_eqp(t1,lf[32]); if(C_truep(t2)){ return(lf[85]);} else{ t3=C_eqp(t1,lf[31]); return((C_truep(t3)?lf[86]:C_SCHEME_UNDEFINED));}} /* main#archive-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static C_word C_fcall f_8720(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_eqp(t1,lf[32]); if(C_truep(t2)){ return(lf[88]);} else{ t3=C_eqp(t1,lf[31]); return((C_truep(t3)?lf[89]:C_SCHEME_UNDEFINED));}} /* main#executable-extension in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static C_word C_fcall f_8739(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_eqp(t1,lf[32]); if(C_truep(t2)){ return(lf[91]);} else{ t3=C_eqp(t1,lf[31]); return((C_truep(t3)?lf[92]:C_SCHEME_UNDEFINED));}} /* main#copy-directory-command in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static C_word C_fcall f_8758(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_eqp(t1,lf[32]); if(C_truep(t2)){ return(lf[94]);} else{ t3=C_eqp(t1,lf[31]); return((C_truep(t3)?lf[95]:C_SCHEME_UNDEFINED));}} /* main#mkdir-command in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static C_word C_fcall f_8777(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_eqp(t1,lf[32]); if(C_truep(t2)){ return(lf[97]);} else{ t3=C_eqp(t1,lf[31]); return((C_truep(t3)?lf[98]:C_SCHEME_UNDEFINED));}} /* main#remove-file-command in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static C_word C_fcall f_8808(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_eqp(t1,lf[32]); if(C_truep(t2)){ return(lf[100]);} else{ t3=C_eqp(t1,lf[31]); return((C_truep(t3)?lf[101]:C_SCHEME_UNDEFINED));}} /* main#uses-compiled-import-library? in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static C_word C_fcall f_8830(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check;{} t2=C_eqp(t1,lf[103]); if(C_truep(t2)){ t3=C_retrieve2(lf[16],C_text("main#staticbuild")); t4=C_retrieve2(lf[16],C_text("main#staticbuild")); return(C_i_not(C_retrieve2(lf[16],C_text("main#staticbuild"))));} else{ return(C_SCHEME_TRUE);}} /* main#sort-dependencies in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_8843(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_8843,3,t1,t2,t3);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8847,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8852,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:110: scheme#call-with-current-continuation */ t6=*((C_word*)lf[114]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8845 in main#sort-dependencies in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_8847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8847,2,av);} /* egg-compile.scm:109: g1157 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a8851 in main#sort-dependencies in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_8852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_8852,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8858,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8903,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* egg-compile.scm:110: chicken.condition#with-exception-handler */ t5=C_fast_retrieve(lf[113]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a8857 in a8851 in main#sort-dependencies in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_8858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8858,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8864,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:110: k1154 */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a8863 in a8857 in a8851 in main#sort-dependencies in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_8864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8864,2,av);} t2=C_i_structurep(((C_word*)t0)[2],lf[105]); t3=(C_truep(t2)?C_slot(((C_word*)t0)[2],C_fix(1)):C_SCHEME_FALSE); if(C_truep(t3)){ if(C_truep(C_i_memv(lf[106],t3))){ if(C_truep(C_i_memv(lf[107],t3))){ if(C_truep(C_i_memv(lf[108],t3))){ /* egg-compile.scm:112: chicken.base#error */ t4=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=lf[110]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* egg-compile.scm:110: chicken.condition#signal */ t4=C_fast_retrieve(lf[111]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ /* egg-compile.scm:110: chicken.condition#signal */ t4=C_fast_retrieve(lf[111]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ /* egg-compile.scm:110: chicken.condition#signal */ t4=C_fast_retrieve(lf[111]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ /* egg-compile.scm:110: chicken.condition#signal */ t4=C_fast_retrieve(lf[111]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* a8902 in a8851 in main#sort-dependencies in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_8903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_8903,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8905,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8910,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8927,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp16199 */ t5=t2; f_8905(t5,t4);} /* tmp16199 in a8902 in a8851 in main#sort-dependencies in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_8905(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_8905,2,t0,t1);} /* egg-compile.scm:110: chicken.sort#topological-sort */ t2=C_fast_retrieve(lf[112]);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* tmp26200 in a8902 in a8851 in main#sort-dependencies in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_fcall f_8910(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_8910,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8916,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:110: k1154 */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a8915 in tmp26200 in a8902 in a8851 in main#sort-dependencies in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_8916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8916,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k8925 in a8902 in a8851 in main#sort-dependencies in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_8927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8927,2,av);} a=C_alloc(3); /* tmp26200 */ t2=((C_word*)t0)[2]; f_8910(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* implib in k9258 in k9254 in k9250 in k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_8932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_8932,3,av);} t3=( /* egg-compile.scm:120: uses-compiled-import-library? */ f_8830(((C_word*)t0)[2]) ); if(C_truep(t3)){ /* egg-compile.scm:119: chicken.string#conc */ t4=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[135]; av2[4]=t2; av2[5]=lf[136]; av2[6]=lf[137]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} else{ /* egg-compile.scm:119: chicken.string#conc */ t4=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[135]; av2[4]=t2; av2[5]=lf[136]; av2[6]=lf[138]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}}} /* map-loop1180 in k9258 in k9254 in k9250 in k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_fcall f_8957(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8957,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8982,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:124: g1186 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8980 in map-loop1180 in k9258 in k9254 in k9250 in k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in ... */ static void C_ccall f_8982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8982,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8957(t6,((C_word*)t0)[5],t5);} /* k8994 in k9258 in k9254 in k9250 in k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_8996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8996,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* walk in loop in compile-cond-expand in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_9010,3,av);} a=C_alloc(5); t3=C_i_listp(t2); t4=(C_truep(t3)?C_i_pairp(t2):C_SCHEME_FALSE); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9023,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=C_i_car(t2); t7=C_eqp(t6,lf[193]); if(C_truep(t7)){ t8=C_i_length(t2); t9=t5; f_9023(t9,C_eqp(C_fix(2),t8));} else{ t8=t5; f_9023(t8,C_SCHEME_FALSE);}} else{ t5=t2; if(C_truep((C_truep(C_eqp(t5,lf[143]))?C_SCHEME_TRUE:(C_truep(C_eqp(t5,lf[146]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_memq(t2,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t2; if(C_truep((C_truep(C_eqp(t6,lf[54]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[103]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_i_memq(t2,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ /* egg-compile.scm:143: chicken.platform#feature? */ t7=C_fast_retrieve(lf[194]);{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t7=t1; t8=t2; /* egg-compile.scm:132: chicken.base#error */ t9=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t7; av2[2]=lf[192]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}}}}} /* k9021 in walk in loop in compile-cond-expand in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_9023(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_9023,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9030,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* egg-compile.scm:137: walk */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; f_9010(3,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=C_eqp(lf[190],t3); if(C_truep(t4)){ t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); /* egg-compile.scm:138: every */ f_7161(((C_word*)t0)[2],((C_word*)((C_word*)t0)[4])[1],t6);} else{ t5=((C_word*)t0)[3]; t6=C_u_i_car(t5); t7=C_eqp(lf[191],t6); if(C_truep(t7)){ t8=((C_word*)t0)[3]; t9=C_u_i_cdr(t8); /* egg-compile.scm:139: any */ f_7195(((C_word*)t0)[2],((C_word*)((C_word*)t0)[4])[1],t9);} else{ t8=((C_word*)t0)[2]; t9=((C_word*)t0)[3]; /* egg-compile.scm:132: chicken.base#error */ t10=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t8; av2[2]=lf[192]; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}}} /* k9028 in k9021 in walk in loop in compile-cond-expand in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9030,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in k8142 in ... */ static void C_fcall f_9114(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(79,0,2)))){ C_save_and_reclaim_args((void *)trf_9114,6,t1,t2,t3,t4,t5,t6);} a=C_alloc(79); t7=C_SCHEME_END_OF_LIST; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_END_OF_LIST; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_END_OF_LIST; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_END_OF_LIST; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_SCHEME_END_OF_LIST; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_SCHEME_END_OF_LIST; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_SCHEME_END_OF_LIST; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_SCHEME_FALSE; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_SCHEME_FALSE; t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp); t25=C_SCHEME_END_OF_LIST; t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); t27=C_SCHEME_END_OF_LIST; t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp); t29=C_SCHEME_FALSE; t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp); t31=C_SCHEME_FALSE; t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp); t33=C_SCHEME_END_OF_LIST; t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp); t35=C_SCHEME_FALSE; t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp); t37=C_SCHEME_END_OF_LIST; t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp); t39=C_SCHEME_END_OF_LIST; t40=(*a=C_VECTOR_TYPE|1,a[1]=t39,tmp=(C_word)a,a+=2,tmp); t41=C_SCHEME_END_OF_LIST; t42=(*a=C_VECTOR_TYPE|1,a[1]=t41,tmp=(C_word)a,a+=2,tmp); t43=C_SCHEME_END_OF_LIST; t44=(*a=C_VECTOR_TYPE|1,a[1]=t43,tmp=(C_word)a,a+=2,tmp); t45=C_SCHEME_FALSE; t46=(*a=C_VECTOR_TYPE|1,a[1]=t45,tmp=(C_word)a,a+=2,tmp); t47=C_SCHEME_END_OF_LIST; t48=(*a=C_VECTOR_TYPE|1,a[1]=t47,tmp=(C_word)a,a+=2,tmp); t49=C_SCHEME_FALSE; t50=(*a=C_VECTOR_TYPE|1,a[1]=t49,tmp=(C_word)a,a+=2,tmp); t51=C_SCHEME_FALSE; t52=(*a=C_VECTOR_TYPE|1,a[1]=t51,tmp=(C_word)a,a+=2,tmp); t53=C_SCHEME_FALSE; t54=(*a=C_VECTOR_TYPE|1,a[1]=t53,tmp=(C_word)a,a+=2,tmp); t55=(*a=C_CLOSURE_TYPE|30,a[1]=(C_word)f_9118,a[2]=t5,a[3]=t28,a[4]=t26,a[5]=t34,a[6]=t42,a[7]=t44,a[8]=t22,a[9]=t40,a[10]=t38,a[11]=t24,a[12]=t30,a[13]=t50,a[14]=t52,a[15]=t54,a[16]=t48,a[17]=t32,a[18]=t46,a[19]=t6,a[20]=t8,a[21]=t12,a[22]=t36,a[23]=t14,a[24]=t16,a[25]=t18,a[26]=t20,a[27]=t10,a[28]=t3,a[29]=t1,a[30]=t4,tmp=(C_word)a,a+=31,tmp); /* egg-compile.scm:174: locate-egg-file */ f_8286(t55,t2);} /* k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in k8146 in ... */ static void C_ccall f_9118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(160,c,5)))){ C_save_and_reclaim((void *)f_9118,2,av);} a=C_alloc(160); t2=t1; t3=( /* egg-compile.scm:175: object-extension */ f_8701(((C_word*)t0)[2]) ); t4=t3; t5=( /* egg-compile.scm:176: archive-extension */ f_8720(((C_word*)t0)[2]) ); t6=t5; t7=( /* egg-compile.scm:177: executable-extension */ f_8739(((C_word*)t0)[2]) ); t8=t7; t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_SCHEME_UNDEFINED; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_SCHEME_UNDEFINED; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_SCHEME_UNDEFINED; t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp); t25=C_SCHEME_UNDEFINED; t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); t27=C_SCHEME_UNDEFINED; t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp); t29=C_SCHEME_UNDEFINED; t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp); t31=C_SCHEME_UNDEFINED; t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp); t33=C_SCHEME_UNDEFINED; t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp); t35=C_SCHEME_UNDEFINED; t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp); t37=C_SCHEME_UNDEFINED; t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp); t39=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9129,tmp=(C_word)a,a+=2,tmp)); t40=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9141,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp)); t41=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_9152,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[16],a[14]=((C_word*)t0)[17],a[15]=((C_word*)t0)[18],a[16]=t16,a[17]=((C_word*)t0)[19],a[18]=t2,a[19]=((C_word*)t0)[20],a[20]=t12,a[21]=t4,a[22]=t6,a[23]=t10,a[24]=((C_word*)t0)[21],a[25]=((C_word*)t0)[22],a[26]=((C_word*)t0)[4],a[27]=t20,a[28]=((C_word*)t0)[23],a[29]=((C_word*)t0)[24],a[30]=((C_word*)t0)[25],a[31]=((C_word*)t0)[26],a[32]=((C_word*)t0)[27],a[33]=t8,a[34]=t18,a[35]=t14,tmp=(C_word)a,a+=36,tmp)); t42=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_10179,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[13],a[4]=t30,a[5]=t32,a[6]=((C_word*)t0)[14],a[7]=((C_word*)t0)[16],a[8]=((C_word*)t0)[9],a[9]=t26,a[10]=((C_word*)t0)[15],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[11],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[18],a[17]=((C_word*)t0)[10],a[18]=t18,a[19]=t16,tmp=(C_word)a,a+=20,tmp)); t43=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10617,a[2]=((C_word*)t0)[19],a[3]=t24,tmp=(C_word)a,a+=4,tmp)); t44=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10735,a[2]=((C_word*)t0)[22],a[3]=t30,a[4]=t32,a[5]=((C_word*)t0)[4],a[6]=t18,a[7]=t20,tmp=(C_word)a,a+=8,tmp)); t45=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10817,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp)); t46=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10868,a[2]=((C_word*)t0)[19],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp)); t47=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10946,tmp=(C_word)a,a+=2,tmp)); t48=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10967,a[2]=t14,a[3]=t22,a[4]=t18,a[5]=t28,tmp=(C_word)a,a+=6,tmp)); t49=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11052,tmp=(C_word)a,a+=2,tmp)); t50=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11092,tmp=(C_word)a,a+=2,tmp)); t51=C_set_block_item(t34,0,*((C_word*)lf[202]+1)); t52=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11105,a[2]=t36,tmp=(C_word)a,a+=3,tmp)); t53=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11140,a[2]=((C_word*)t0)[20],a[3]=((C_word*)t0)[21],a[4]=((C_word*)t0)[23],a[5]=((C_word*)t0)[25],a[6]=((C_word*)t0)[26],a[7]=((C_word*)t0)[24],a[8]=((C_word*)t0)[27],a[9]=t36,tmp=(C_word)a,a+=10,tmp)); t54=((C_word*)t28)[1]; t55=((C_word*)t0)[28]; t56=C_i_check_list_2(t55,lf[118]); t57=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_11204,a[2]=((C_word*)t0)[29],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[30],a[5]=((C_word*)t0)[28],a[6]=((C_word*)t0)[27],a[7]=((C_word*)t0)[23],a[8]=((C_word*)t0)[25],a[9]=((C_word*)t0)[26],a[10]=((C_word*)t0)[20],a[11]=((C_word*)t0)[19],a[12]=((C_word*)t0)[21],a[13]=((C_word*)t0)[24],a[14]=t38,a[15]=t34,tmp=(C_word)a,a+=16,tmp); t58=C_SCHEME_UNDEFINED; t59=(*a=C_VECTOR_TYPE|1,a[1]=t58,tmp=(C_word)a,a+=2,tmp); t60=C_set_block_item(t59,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11956,a[2]=t59,a[3]=t54,tmp=(C_word)a,a+=4,tmp)); t61=((C_word*)t59)[1]; f_11956(t61,t57,t55);} /* check-target in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_fcall f_9129(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_9129,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9133,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_member(t2,t3))){ /* egg-compile.scm:180: chicken.base#error */ t5=*((C_word*)lf[109]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[116]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k9131 in check-target in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_9133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9133,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* addfiles in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_fcall f_9141(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_9141,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9146,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t2); /* egg-compile.scm:183: concatenate */ f_7253(t3,t4);} /* k9144 in addfiles in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_9146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9146,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in k8150 in ... */ static void C_ccall f_9152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_9152,3,av);} a=C_alloc(25); t3=C_i_car(t2); t4=C_eqp(t3,lf[117]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_9165,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=t2,a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=t1,tmp=(C_word)a,a+=25,tmp); t6=C_i_cadr(t2); /* egg-compile.scm:188: check-target */ f_9129(t5,t6,((C_word*)((C_word*)t0)[19])[1]);} else{ t5=C_eqp(t3,lf[150]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_9387,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[15],a[11]=((C_word*)t0)[16],a[12]=t2,a[13]=((C_word*)t0)[17],a[14]=((C_word*)t0)[18],a[15]=((C_word*)t0)[24],a[16]=t1,tmp=(C_word)a,a+=17,tmp); t7=C_i_cadr(t2); /* egg-compile.scm:237: check-target */ f_9129(t6,t7,((C_word*)((C_word*)t0)[19])[1]);} else{ t6=C_eqp(t3,lf[151]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9500,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[25],a[4]=((C_word*)t0)[26],a[5]=((C_word*)t0)[27],a[6]=t2,a[7]=((C_word*)t0)[17],a[8]=((C_word*)t0)[28],a[9]=((C_word*)t0)[20],a[10]=t1,tmp=(C_word)a,a+=11,tmp); t8=C_i_cadr(t2); /* egg-compile.scm:260: check-target */ f_9129(t7,t8,((C_word*)((C_word*)t0)[28])[1]);} else{ t7=C_eqp(t3,lf[157]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9648,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[16],a[8]=t2,a[9]=((C_word*)t0)[18],a[10]=((C_word*)t0)[29],a[11]=t1,tmp=(C_word)a,a+=12,tmp); t9=C_i_cadr(t2); /* egg-compile.scm:275: check-target */ f_9129(t8,t9,((C_word*)((C_word*)t0)[28])[1]);} else{ t8=C_eqp(t3,lf[159]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9739,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[25],a[4]=((C_word*)t0)[26],a[5]=((C_word*)t0)[27],a[6]=t2,a[7]=((C_word*)t0)[17],a[8]=((C_word*)t0)[30],a[9]=((C_word*)t0)[20],a[10]=t1,tmp=(C_word)a,a+=11,tmp); t10=C_i_cadr(t2); /* egg-compile.scm:289: check-target */ f_9129(t9,t10,((C_word*)((C_word*)t0)[30])[1]);} else{ t9=C_eqp(t3,lf[162]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9887,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[25],a[4]=((C_word*)t0)[26],a[5]=((C_word*)t0)[27],a[6]=t2,a[7]=((C_word*)t0)[17],a[8]=((C_word*)t0)[31],a[9]=((C_word*)t0)[20],a[10]=t1,tmp=(C_word)a,a+=11,tmp); t11=C_i_cadr(t2); /* egg-compile.scm:304: check-target */ f_9129(t10,t11,((C_word*)((C_word*)t0)[31])[1]);} else{ t10=C_eqp(t3,lf[165]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_10035,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[16],a[13]=t2,a[14]=((C_word*)t0)[17],a[15]=((C_word*)t0)[18],a[16]=((C_word*)t0)[32],a[17]=((C_word*)t0)[20],a[18]=((C_word*)t0)[33],a[19]=t1,tmp=(C_word)a,a+=20,tmp); t12=C_i_cadr(t2); /* egg-compile.scm:319: check-target */ f_9129(t11,t12,((C_word*)((C_word*)t0)[32])[1]);} else{ /* egg-compile.scm:346: compile-common */ t11=((C_word*)((C_word*)t0)[34])[1]; f_10617(t11,t1,t2,((C_word*)((C_word*)t0)[35])[1]);}}}}}}}} /* k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_9165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(168,c,4)))){ C_save_and_reclaim((void *)f_9165,2,av);} a=C_alloc(168); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_i_nullp(((C_word*)((C_word*)t0)[2])[1]); t13=(C_truep(t12)?C_retrieve2(lf[78],C_text("main#default-extension-linkage")):((C_word*)((C_word*)t0)[2])[1]); t14=t13; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_FALSE; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_FALSE; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_FALSE; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=((C_word*)((C_word*)t0)[3])[1]; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_SCHEME_END_OF_LIST; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_SCHEME_FALSE; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_SCHEME_FALSE; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=((C_word*)((C_word*)t0)[4])[1]; t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp); t32=C_SCHEME_FALSE; t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp); t34=C_SCHEME_FALSE; t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp); t36=C_SCHEME_FALSE; t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp); t38=C_SCHEME_FALSE; t39=(*a=C_VECTOR_TYPE|1,a[1]=t38,tmp=(C_word)a,a+=2,tmp); t40=C_SCHEME_FALSE; t41=(*a=C_VECTOR_TYPE|1,a[1]=t40,tmp=(C_word)a,a+=2,tmp); t42=C_SCHEME_FALSE; t43=(*a=C_VECTOR_TYPE|1,a[1]=t42,tmp=(C_word)a,a+=2,tmp); t44=C_SCHEME_FALSE; t45=(*a=C_VECTOR_TYPE|1,a[1]=t44,tmp=(C_word)a,a+=2,tmp); t46=C_SCHEME_FALSE; t47=(*a=C_VECTOR_TYPE|1,a[1]=t46,tmp=(C_word)a,a+=2,tmp); t48=C_SCHEME_FALSE; t49=(*a=C_VECTOR_TYPE|1,a[1]=t48,tmp=(C_word)a,a+=2,tmp); t50=C_SCHEME_FALSE; t51=(*a=C_VECTOR_TYPE|1,a[1]=t50,tmp=(C_word)a,a+=2,tmp); t52=C_SCHEME_FALSE; t53=(*a=C_VECTOR_TYPE|1,a[1]=t52,tmp=(C_word)a,a+=2,tmp); t54=C_SCHEME_FALSE; t55=(*a=C_VECTOR_TYPE|1,a[1]=t54,tmp=(C_word)a,a+=2,tmp); t56=C_SCHEME_FALSE; t57=(*a=C_VECTOR_TYPE|1,a[1]=t56,tmp=(C_word)a,a+=2,tmp); t58=C_SCHEME_FALSE; t59=(*a=C_VECTOR_TYPE|1,a[1]=t58,tmp=(C_word)a,a+=2,tmp); t60=(*a=C_CLOSURE_TYPE|43,a[1]=(C_word)f_9173,a[2]=t33,a[3]=((C_word*)t0)[5],a[4]=t35,a[5]=((C_word*)t0)[6],a[6]=t37,a[7]=((C_word*)t0)[7],a[8]=t39,a[9]=((C_word*)t0)[8],a[10]=t41,a[11]=((C_word*)t0)[9],a[12]=t43,a[13]=((C_word*)t0)[2],a[14]=t45,a[15]=((C_word*)t0)[10],a[16]=t47,a[17]=((C_word*)t0)[11],a[18]=t49,a[19]=((C_word*)t0)[12],a[20]=t51,a[21]=((C_word*)t0)[3],a[22]=t53,a[23]=((C_word*)t0)[13],a[24]=t55,a[25]=((C_word*)t0)[14],a[26]=t57,a[27]=((C_word*)t0)[15],a[28]=t59,a[29]=((C_word*)t0)[4],a[30]=t3,a[31]=t5,a[32]=t7,a[33]=t9,a[34]=t11,a[35]=t15,a[36]=t17,a[37]=t19,a[38]=t21,a[39]=t23,a[40]=t25,a[41]=t27,a[42]=t29,a[43]=t31,tmp=(C_word)a,a+=44,tmp); t61=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_9204,a[2]=((C_word*)t0)[16],a[3]=((C_word*)t0)[17],a[4]=((C_word*)t0)[14],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[15],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[18],a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[12],a[16]=((C_word*)t0)[11],a[17]=((C_word*)t0)[19],a[18]=((C_word*)t0)[7],a[19]=((C_word*)t0)[13],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp); t62=(*a=C_CLOSURE_TYPE|43,a[1]=(C_word)f_9342,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=t5,a[5]=((C_word*)t0)[6],a[6]=t7,a[7]=((C_word*)t0)[7],a[8]=t9,a[9]=((C_word*)t0)[8],a[10]=t11,a[11]=((C_word*)t0)[9],a[12]=t15,a[13]=((C_word*)t0)[2],a[14]=t17,a[15]=((C_word*)t0)[10],a[16]=t19,a[17]=((C_word*)t0)[11],a[18]=t21,a[19]=((C_word*)t0)[12],a[20]=t23,a[21]=((C_word*)t0)[3],a[22]=t25,a[23]=((C_word*)t0)[13],a[24]=t27,a[25]=((C_word*)t0)[14],a[26]=t29,a[27]=((C_word*)t0)[15],a[28]=t31,a[29]=((C_word*)t0)[4],a[30]=t33,a[31]=t35,a[32]=t37,a[33]=t39,a[34]=t41,a[35]=t43,a[36]=t45,a[37]=t47,a[38]=t49,a[39]=t51,a[40]=t53,a[41]=t55,a[42]=t57,a[43]=t59,tmp=(C_word)a,a+=44,tmp); /* egg-compile.scm:188: ##sys#dynamic-wind */ t63=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t63; av2[1]=((C_word*)t0)[24]; av2[2]=t60; av2[3]=t61; av2[4]=t62; ((C_proc)(void*)(*((C_word*)t63+1)))(5,av2);}} /* a9172 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9173,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)((C_word*)t0)[9])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[10])+1,((C_word*)((C_word*)t0)[11])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[12])+1,((C_word*)((C_word*)t0)[13])[1]); t8=C_mutate(((C_word *)((C_word*)t0)[14])+1,((C_word*)((C_word*)t0)[15])[1]); t9=C_mutate(((C_word *)((C_word*)t0)[16])+1,((C_word*)((C_word*)t0)[17])[1]); t10=C_mutate(((C_word *)((C_word*)t0)[18])+1,((C_word*)((C_word*)t0)[19])[1]); t11=C_mutate(((C_word *)((C_word*)t0)[20])+1,((C_word*)((C_word*)t0)[21])[1]); t12=C_mutate(((C_word *)((C_word*)t0)[22])+1,((C_word*)((C_word*)t0)[23])[1]); t13=C_mutate(((C_word *)((C_word*)t0)[24])+1,((C_word*)((C_word*)t0)[25])[1]); t14=C_mutate(((C_word *)((C_word*)t0)[26])+1,((C_word*)((C_word*)t0)[27])[1]); t15=C_mutate(((C_word *)((C_word*)t0)[28])+1,((C_word*)((C_word*)t0)[29])[1]); t16=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[30])[1]); t17=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[31])[1]); t18=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[32])[1]); t19=C_mutate(((C_word *)((C_word*)t0)[9])+1,((C_word*)((C_word*)t0)[33])[1]); t20=C_mutate(((C_word *)((C_word*)t0)[11])+1,((C_word*)((C_word*)t0)[34])[1]); t21=C_mutate(((C_word *)((C_word*)t0)[13])+1,((C_word*)((C_word*)t0)[35])[1]); t22=C_mutate(((C_word *)((C_word*)t0)[15])+1,((C_word*)((C_word*)t0)[36])[1]); t23=C_mutate(((C_word *)((C_word*)t0)[17])+1,((C_word*)((C_word*)t0)[37])[1]); t24=C_mutate(((C_word *)((C_word*)t0)[19])+1,((C_word*)((C_word*)t0)[38])[1]); t25=C_mutate(((C_word *)((C_word*)t0)[21])+1,((C_word*)((C_word*)t0)[39])[1]); t26=C_mutate(((C_word *)((C_word*)t0)[23])+1,((C_word*)((C_word*)t0)[40])[1]); t27=C_mutate(((C_word *)((C_word*)t0)[25])+1,((C_word*)((C_word*)t0)[41])[1]); t28=C_mutate(((C_word *)((C_word*)t0)[27])+1,((C_word*)((C_word*)t0)[42])[1]); t29=C_mutate(((C_word *)((C_word*)t0)[29])+1,((C_word*)((C_word*)t0)[43])[1]); t30=t1;{ C_word *av2=av; av2[0]=t30; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t30+1)))(2,av2);}} /* a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_9204,2,av);} a=C_alloc(29); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_cddr(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[118]); t5=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_9214,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[18],a[17]=((C_word*)t0)[19],a[18]=((C_word*)t0)[20],a[19]=t1,a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],tmp=(C_word)a,a+=23,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9319,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_9319(t9,t5,t3);} /* k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_9214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_9214,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_9217,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); /* egg-compile.scm:203: destination-repository */ f_8240(t2,((C_word*)t0)[11],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_9217,2,av);} a=C_alloc(24); t2=t1; t3=((C_word*)((C_word*)t0)[2])[1]; t4=(C_truep(t3)?t3:((C_word*)((C_word*)t0)[3])[1]); t5=t4; t6=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_9223,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=t2,a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],tmp=(C_word)a,a+=24,tmp); t7=C_eqp(C_SCHEME_TRUE,((C_word*)((C_word*)t0)[12])[1]); if(C_truep(t7)){ t8=C_mutate(((C_word *)((C_word*)t0)[12])+1,t5); t9=t6; f_9223(t9,t8);} else{ t8=t6; f_9223(t8,C_SCHEME_UNDEFINED);}} /* k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_fcall f_9223(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,0,2)))){ C_save_and_reclaim_args((void *)trf_9223,2,t0,t1);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_9226,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp); t3=C_eqp(C_SCHEME_TRUE,((C_word*)((C_word*)t0)[13])[1]); if(C_truep(t3)){ t4=C_mutate(((C_word *)((C_word*)t0)[13])+1,((C_word*)t0)[3]); t5=t2; f_9226(t5,t4);} else{ t4=t2; f_9226(t4,C_SCHEME_UNDEFINED);}} /* k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_9226(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(36,0,5)))){ C_save_and_reclaim_args((void *)trf_9226,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_9229,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],tmp=(C_word)a,a+=20,tmp); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9248,a[2]=((C_word*)t0)[20],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[21],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_memq(lf[146],((C_word*)((C_word*)t0)[9])[1]))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9298,a[2]=t3,a[3]=((C_word*)t0)[21],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[17])[1]))){ /* egg-compile.scm:210: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[21]; av2[3]=lf[148]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[22]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ /* egg-compile.scm:210: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[21]; av2[3]=lf[148]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[23]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} else{ t4=t3; f_9248(t4,C_SCHEME_END_OF_LIST);}} /* k9227 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_9229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(99,c,1)))){ C_save_and_reclaim((void *)f_9229,2,av);} a=C_alloc(99); t2=((C_word*)((C_word*)t0)[2])[1]; t3=(C_truep(t2)?t2:C_a_i_list1(&a,1,((C_word*)t0)[3])); t4=C_a_i_list(&a,31,((C_word*)((C_word*)t0)[4])[1],lf[119],((C_word*)((C_word*)t0)[5])[1],lf[120],((C_word*)((C_word*)t0)[6])[1],lf[121],((C_word*)((C_word*)t0)[7])[1],lf[122],((C_word*)((C_word*)t0)[8])[1],lf[123],((C_word*)((C_word*)t0)[9])[1],lf[124],((C_word*)((C_word*)t0)[10])[1],lf[125],((C_word*)t0)[11],lf[126],((C_word*)((C_word*)t0)[12])[1],lf[127],((C_word*)((C_word*)t0)[13])[1],lf[128],((C_word*)((C_word*)t0)[14])[1],lf[129],((C_word*)t0)[15],lf[130],t3,lf[131],((C_word*)((C_word*)t0)[16])[1],lf[132],((C_word*)((C_word*)t0)[17])[1],lf[133],((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[18])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[18])+1,t5); t7=((C_word*)t0)[19];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_fcall f_9248(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ C_save_and_reclaim_args((void *)trf_9248,2,t0,t1);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9252,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_memq(lf[143],((C_word*)((C_word*)t0)[10])[1]))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9288,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:216: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=lf[144]; av2[4]=((C_word*)t0)[7]; av2[5]=lf[145]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t4=t3; f_9252(t4,C_SCHEME_END_OF_LIST);}} /* k9250 in k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_fcall f_9252(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ C_save_and_reclaim_args((void *)trf_9252,2,t0,t1);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9256,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)((C_word*)t0)[10])[1])){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9278,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:218: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=lf[141]; av2[4]=((C_word*)((C_word*)t0)[10])[1]; av2[5]=lf[142]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t4=t3; f_9256(t4,C_SCHEME_END_OF_LIST);}} /* k9254 in k9250 in k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_fcall f_9256(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ C_save_and_reclaim_args((void *)trf_9256,2,t0,t1);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9260,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)((C_word*)t0)[10])[1])){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9271,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:221: chicken.string#conc */ t5=C_fast_retrieve(lf[134]);{ C_word av2[6]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=lf[139]; av2[4]=((C_word*)((C_word*)t0)[10])[1]; av2[5]=lf[140]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t4=t3; f_9260(t4,C_SCHEME_END_OF_LIST);}} /* k9258 in k9254 in k9250 in k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_fcall f_9260(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,0,3)))){ C_save_and_reclaim_args((void *)trf_9260,2,t0,t1);} a=C_alloc(25); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9264,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t4=t3; t5=((C_word*)((C_word*)t0)[7])[1]; t6=((C_word*)t0)[8]; t7=((C_word*)t0)[9]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8932,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=t8; t14=C_i_check_list_2(t5,lf[8]); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8957,a[2]=t11,a[3]=t16,a[4]=t13,a[5]=t12,tmp=(C_word)a,a+=6,tmp)); t18=((C_word*)t16)[1]; f_8957(t18,t4,t5);} else{ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8996,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:125: implib */ t10=t8;{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[10]; f_8932(3,av2);}}} /* k9262 in k9258 in k9254 in k9250 in k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in ... */ static void C_ccall f_9264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_9264,2,av);} a=C_alloc(15); /* egg-compile.scm:208: addfiles */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9141(t2,((C_word*)t0)[3],C_a_i_list(&a,5,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1));} /* k9269 in k9254 in k9250 in k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in ... */ static void C_ccall f_9271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9271,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_9260(t2,C_a_i_list1(&a,1,t1));} /* k9276 in k9250 in k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in ... */ static void C_ccall f_9278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9278,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_9256(t2,C_a_i_list1(&a,1,t1));} /* k9286 in k9246 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_9288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9288,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_9252(t2,C_a_i_list1(&a,1,t1));} /* k9296 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_9298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_9298,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9302,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* egg-compile.scm:214: chicken.string#conc */ t4=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[147]; av2[4]=((C_word*)t0)[4]; av2[5]=C_retrieve2(lf[79],C_text("main#+link-file-extension+")); ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k9300 in k9296 in k9224 in k9221 in k9215 in k9212 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in ... */ static void C_ccall f_9302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_9302,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; f_9248(t2,C_a_i_list2(&a,2,((C_word*)t0)[3],t1));} /* for-each-loop1410 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_9319(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9319,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9329,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:202: g1411 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9327 in for-each-loop1410 in a9203 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9329,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9319(t3,((C_word*)t0)[4],t2);} /* a9341 in k9163 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9342,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)((C_word*)t0)[9])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[10])+1,((C_word*)((C_word*)t0)[11])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[12])+1,((C_word*)((C_word*)t0)[13])[1]); t8=C_mutate(((C_word *)((C_word*)t0)[14])+1,((C_word*)((C_word*)t0)[15])[1]); t9=C_mutate(((C_word *)((C_word*)t0)[16])+1,((C_word*)((C_word*)t0)[17])[1]); t10=C_mutate(((C_word *)((C_word*)t0)[18])+1,((C_word*)((C_word*)t0)[19])[1]); t11=C_mutate(((C_word *)((C_word*)t0)[20])+1,((C_word*)((C_word*)t0)[21])[1]); t12=C_mutate(((C_word *)((C_word*)t0)[22])+1,((C_word*)((C_word*)t0)[23])[1]); t13=C_mutate(((C_word *)((C_word*)t0)[24])+1,((C_word*)((C_word*)t0)[25])[1]); t14=C_mutate(((C_word *)((C_word*)t0)[26])+1,((C_word*)((C_word*)t0)[27])[1]); t15=C_mutate(((C_word *)((C_word*)t0)[28])+1,((C_word*)((C_word*)t0)[29])[1]); t16=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[30])[1]); t17=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[31])[1]); t18=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[32])[1]); t19=C_mutate(((C_word *)((C_word*)t0)[9])+1,((C_word*)((C_word*)t0)[33])[1]); t20=C_mutate(((C_word *)((C_word*)t0)[11])+1,((C_word*)((C_word*)t0)[34])[1]); t21=C_mutate(((C_word *)((C_word*)t0)[13])+1,((C_word*)((C_word*)t0)[35])[1]); t22=C_mutate(((C_word *)((C_word*)t0)[15])+1,((C_word*)((C_word*)t0)[36])[1]); t23=C_mutate(((C_word *)((C_word*)t0)[17])+1,((C_word*)((C_word*)t0)[37])[1]); t24=C_mutate(((C_word *)((C_word*)t0)[19])+1,((C_word*)((C_word*)t0)[38])[1]); t25=C_mutate(((C_word *)((C_word*)t0)[21])+1,((C_word*)((C_word*)t0)[39])[1]); t26=C_mutate(((C_word *)((C_word*)t0)[23])+1,((C_word*)((C_word*)t0)[40])[1]); t27=C_mutate(((C_word *)((C_word*)t0)[25])+1,((C_word*)((C_word*)t0)[41])[1]); t28=C_mutate(((C_word *)((C_word*)t0)[27])+1,((C_word*)((C_word*)t0)[42])[1]); t29=C_mutate(((C_word *)((C_word*)t0)[29])+1,((C_word*)((C_word*)t0)[43])[1]); t30=t1;{ C_word *av2=av; av2[0]=t30; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t30+1)))(2,av2);}} /* k9385 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_9387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(109,c,4)))){ C_save_and_reclaim((void *)f_9387,2,av);} a=C_alloc(109); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_i_nullp(((C_word*)((C_word*)t0)[2])[1]); t13=(C_truep(t12)?C_retrieve2(lf[78],C_text("main#default-extension-linkage")):((C_word*)((C_word*)t0)[2])[1]); t14=t13; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_FALSE; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_FALSE; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=((C_word*)((C_word*)t0)[3])[1]; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_SCHEME_FALSE; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_SCHEME_FALSE; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_SCHEME_FALSE; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_SCHEME_FALSE; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=C_SCHEME_FALSE; t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp); t32=C_SCHEME_FALSE; t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp); t34=C_SCHEME_FALSE; t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp); t36=C_SCHEME_FALSE; t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp); t38=C_SCHEME_FALSE; t39=(*a=C_VECTOR_TYPE|1,a[1]=t38,tmp=(C_word)a,a+=2,tmp); t40=(*a=C_CLOSURE_TYPE|28,a[1]=(C_word)f_9395,a[2]=t23,a[3]=((C_word*)t0)[4],a[4]=t25,a[5]=((C_word*)t0)[5],a[6]=t27,a[7]=((C_word*)t0)[6],a[8]=t29,a[9]=((C_word*)t0)[7],a[10]=t31,a[11]=((C_word*)t0)[8],a[12]=t33,a[13]=((C_word*)t0)[2],a[14]=t35,a[15]=((C_word*)t0)[9],a[16]=t37,a[17]=((C_word*)t0)[10],a[18]=t39,a[19]=((C_word*)t0)[3],a[20]=t3,a[21]=t5,a[22]=t7,a[23]=t9,a[24]=t11,a[25]=t15,a[26]=t17,a[27]=t19,a[28]=t21,tmp=(C_word)a,a+=29,tmp); t41=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9416,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp); t42=(*a=C_CLOSURE_TYPE|28,a[1]=(C_word)f_9465,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t5,a[5]=((C_word*)t0)[5],a[6]=t7,a[7]=((C_word*)t0)[6],a[8]=t9,a[9]=((C_word*)t0)[7],a[10]=t11,a[11]=((C_word*)t0)[8],a[12]=t15,a[13]=((C_word*)t0)[2],a[14]=t17,a[15]=((C_word*)t0)[9],a[16]=t19,a[17]=((C_word*)t0)[10],a[18]=t21,a[19]=((C_word*)t0)[3],a[20]=t23,a[21]=t25,a[22]=t27,a[23]=t29,a[24]=t31,a[25]=t33,a[26]=t35,a[27]=t37,a[28]=t39,tmp=(C_word)a,a+=29,tmp); /* egg-compile.scm:237: ##sys#dynamic-wind */ t43=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t43; av2[1]=((C_word*)t0)[16]; av2[2]=t40; av2[3]=t41; av2[4]=t42; ((C_proc)(void*)(*((C_word*)t43+1)))(5,av2);}} /* a9394 in k9385 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9395,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)((C_word*)t0)[9])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[10])+1,((C_word*)((C_word*)t0)[11])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[12])+1,((C_word*)((C_word*)t0)[13])[1]); t8=C_mutate(((C_word *)((C_word*)t0)[14])+1,((C_word*)((C_word*)t0)[15])[1]); t9=C_mutate(((C_word *)((C_word*)t0)[16])+1,((C_word*)((C_word*)t0)[17])[1]); t10=C_mutate(((C_word *)((C_word*)t0)[18])+1,((C_word*)((C_word*)t0)[19])[1]); t11=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[20])[1]); t12=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[21])[1]); t13=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[22])[1]); t14=C_mutate(((C_word *)((C_word*)t0)[9])+1,((C_word*)((C_word*)t0)[23])[1]); t15=C_mutate(((C_word *)((C_word*)t0)[11])+1,((C_word*)((C_word*)t0)[24])[1]); t16=C_mutate(((C_word *)((C_word*)t0)[13])+1,((C_word*)((C_word*)t0)[25])[1]); t17=C_mutate(((C_word *)((C_word*)t0)[15])+1,((C_word*)((C_word*)t0)[26])[1]); t18=C_mutate(((C_word *)((C_word*)t0)[17])+1,((C_word*)((C_word*)t0)[27])[1]); t19=C_mutate(((C_word *)((C_word*)t0)[19])+1,((C_word*)((C_word*)t0)[28])[1]); t20=t1;{ C_word *av2=av; av2[0]=t20; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} /* a9415 in k9385 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_9416,2,av);} a=C_alloc(20); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_cddr(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[118]); t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9426,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=t1,tmp=(C_word)a,a+=14,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9442,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_9442(t9,t5,t3);} /* k9424 in a9415 in k9385 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_9426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_9426,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9429,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); /* egg-compile.scm:247: destination-repository */ f_8240(t2,((C_word*)t0)[9],C_a_i_list(&a,1,C_SCHEME_TRUE));} /* k9427 in k9424 in a9415 in k9385 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(60,c,1)))){ C_save_and_reclaim((void *)f_9429,2,av);} a=C_alloc(60); t2=((C_word*)((C_word*)t0)[2])[1]; t3=(C_truep(t2)?t2:((C_word*)((C_word*)t0)[3])[1]); t4=C_a_i_list(&a,19,((C_word*)((C_word*)t0)[3])[1],lf[119],((C_word*)((C_word*)t0)[4])[1],lf[120],((C_word*)((C_word*)t0)[5])[1],lf[121],((C_word*)((C_word*)t0)[6])[1],lf[123],((C_word*)((C_word*)t0)[7])[1],lf[124],((C_word*)((C_word*)t0)[8])[1],lf[125],((C_word*)t0)[9],lf[129],((C_word*)t0)[10],lf[131],((C_word*)((C_word*)t0)[11])[1],lf[133],t3); t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[12])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[12])+1,t5); t7=((C_word*)t0)[13];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* for-each-loop1539 in a9415 in k9385 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_9442(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9442,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9452,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:246: g1540 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9450 in for-each-loop1539 in a9415 in k9385 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9452,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9442(t3,((C_word*)t0)[4],t2);} /* a9464 in k9385 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9465,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)((C_word*)t0)[9])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[10])+1,((C_word*)((C_word*)t0)[11])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[12])+1,((C_word*)((C_word*)t0)[13])[1]); t8=C_mutate(((C_word *)((C_word*)t0)[14])+1,((C_word*)((C_word*)t0)[15])[1]); t9=C_mutate(((C_word *)((C_word*)t0)[16])+1,((C_word*)((C_word*)t0)[17])[1]); t10=C_mutate(((C_word *)((C_word*)t0)[18])+1,((C_word*)((C_word*)t0)[19])[1]); t11=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[20])[1]); t12=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[21])[1]); t13=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[22])[1]); t14=C_mutate(((C_word *)((C_word*)t0)[9])+1,((C_word*)((C_word*)t0)[23])[1]); t15=C_mutate(((C_word *)((C_word*)t0)[11])+1,((C_word*)((C_word*)t0)[24])[1]); t16=C_mutate(((C_word *)((C_word*)t0)[13])+1,((C_word*)((C_word*)t0)[25])[1]); t17=C_mutate(((C_word *)((C_word*)t0)[15])+1,((C_word*)((C_word*)t0)[26])[1]); t18=C_mutate(((C_word *)((C_word*)t0)[17])+1,((C_word*)((C_word*)t0)[27])[1]); t19=C_mutate(((C_word *)((C_word*)t0)[19])+1,((C_word*)((C_word*)t0)[28])[1]); t20=t1;{ C_word *av2=av; av2[0]=t20; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} /* k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_9500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(44,c,4)))){ C_save_and_reclaim((void *)f_9500,2,av);} a=C_alloc(44); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_FALSE; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9505,a[2]=t9,a[3]=((C_word*)t0)[2],a[4]=t11,a[5]=((C_word*)t0)[3],a[6]=t13,a[7]=((C_word*)t0)[4],a[8]=t3,a[9]=t5,a[10]=t7,tmp=(C_word)a,a+=11,tmp); t15=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9514,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9628,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=t7,a[7]=((C_word*)t0)[4],a[8]=t9,a[9]=t11,a[10]=t13,tmp=(C_word)a,a+=11,tmp); /* egg-compile.scm:260: ##sys#dynamic-wind */ t17=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t17; av2[1]=((C_word*)t0)[10]; av2[2]=t14; av2[3]=t15; av2[4]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} /* a9504 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9505,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_9514,2,av);} a=C_alloc(15); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_cddr(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[118]); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9524,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t1,a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9605,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_9605(t9,t5,t3);} /* k9522 in a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_9524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_9524,2,av);} a=C_alloc(9); t2=((C_word*)((C_word*)t0)[2])[1]; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9527,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; f_9527(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[5],lf[54]); if(C_truep(t4)){ t5=C_retrieve2(lf[30],C_text("main#default-sharedir")); t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=C_retrieve2(lf[30],C_text("main#default-sharedir")); f_9527(2,av2);}} else{ /* egg-compile.scm:267: override-prefix */ t5=C_retrieve2(lf[82],C_text("main#override-prefix")); f_8692(t5,t3,lf[156],C_retrieve2(lf[42],C_text("main#host-sharedir")));}}} /* k9525 in k9522 in a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_9527,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9530,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9594,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:268: chicken.string#conc */ t4=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t1; av2[3]=lf[155]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k9528 in k9525 in k9522 in a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_9530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_9530,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9533,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9546,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=((C_word*)((C_word*)t0)[3])[1]; t10=C_i_check_list_2(t9,lf[8]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9556,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9558,a[2]=t6,a[3]=t13,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_9558(t15,t11,t9);} /* k9531 in k9528 in k9525 in k9522 in a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_9533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){ C_save_and_reclaim((void *)f_9533,2,av);} a=C_alloc(30); t2=C_a_i_list(&a,9,((C_word*)((C_word*)t0)[2])[1],lf[119],C_SCHEME_END_OF_LIST,lf[152],((C_word*)((C_word*)t0)[3])[1],lf[153],((C_word*)((C_word*)t0)[4])[1],lf[125],((C_word*)t0)[5]); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[6])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,t3); t5=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* g1632 in k9528 in k9525 in k9522 in a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_9546(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_9546,3,t0,t1,t2);} t3=C_fast_retrieve(lf[134]); /* egg-compile.scm:269: g1649 */ t4=C_fast_retrieve(lf[134]);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k9554 in k9528 in k9525 in k9522 in a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_9556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9556,2,av);} a=C_alloc(3); /* egg-compile.scm:269: addfiles */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9141(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* map-loop1626 in k9528 in k9525 in k9522 in a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_9558(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9558,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9583,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:269: g1632 */ t5=((C_word*)t0)[4]; f_9546(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9581 in map-loop1626 in k9528 in k9525 in k9522 in a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_9583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9583,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9558(t6,((C_word*)t0)[5],t5);} /* k9592 in k9525 in k9522 in a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_9594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9594,2,av);} /* egg-compile.scm:268: chicken.pathname#normalize-pathname */ t2=C_fast_retrieve(lf[154]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* for-each-loop1604 in a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_9605(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9605,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9615,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:263: g1605 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9613 in for-each-loop1604 in a9513 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9615,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9605(t3,((C_word*)t0)[4],t2);} /* a9627 in k9498 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9628,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k9646 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_9648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(65,c,4)))){ C_save_and_reclaim((void *)f_9648,2,av);} a=C_alloc(65); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_FALSE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_END_OF_LIST; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_END_OF_LIST; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_FALSE; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_FALSE; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_FALSE; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_FALSE; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_FALSE; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_9653,a[2]=t13,a[3]=((C_word*)t0)[2],a[4]=t15,a[5]=((C_word*)t0)[3],a[6]=t17,a[7]=((C_word*)t0)[4],a[8]=t19,a[9]=((C_word*)t0)[5],a[10]=t21,a[11]=((C_word*)t0)[6],a[12]=t3,a[13]=t5,a[14]=t7,a[15]=t9,a[16]=t11,tmp=(C_word)a,a+=17,tmp); t23=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9666,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t24=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_9715,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=t7,a[7]=((C_word*)t0)[4],a[8]=t9,a[9]=((C_word*)t0)[5],a[10]=t11,a[11]=((C_word*)t0)[6],a[12]=t13,a[13]=t15,a[14]=t17,a[15]=t19,a[16]=t21,tmp=(C_word)a,a+=17,tmp); /* egg-compile.scm:275: ##sys#dynamic-wind */ t25=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t25; av2[1]=((C_word*)t0)[11]; av2[2]=t22; av2[3]=t23; av2[4]=t24; ((C_proc)(void*)(*((C_word*)t25+1)))(5,av2);}} /* a9652 in k9646 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9653,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)((C_word*)t0)[9])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[10])+1,((C_word*)((C_word*)t0)[11])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[12])[1]); t8=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[13])[1]); t9=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[14])[1]); t10=C_mutate(((C_word *)((C_word*)t0)[9])+1,((C_word*)((C_word*)t0)[15])[1]); t11=C_mutate(((C_word *)((C_word*)t0)[11])+1,((C_word*)((C_word*)t0)[16])[1]); t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} /* a9665 in k9646 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_9666,2,av);} a=C_alloc(16); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_cddr(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[118]); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9676,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=t1,tmp=(C_word)a,a+=10,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9692,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_9692(t9,t5,t3);} /* k9674 in a9665 in k9646 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_9676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_9676,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9679,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_9679(2,av2);}} else{ /* egg-compile.scm:282: chicken.base#error */ t3=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[158]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k9677 in k9674 in a9665 in k9646 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(36,c,1)))){ C_save_and_reclaim((void *)f_9679,2,av);} a=C_alloc(36); t2=C_a_i_list(&a,11,((C_word*)((C_word*)t0)[2])[1],lf[119],((C_word*)((C_word*)t0)[3])[1],lf[120],((C_word*)((C_word*)t0)[4])[1],lf[124],((C_word*)((C_word*)t0)[5])[1],lf[131],((C_word*)((C_word*)t0)[6])[1],lf[129],((C_word*)t0)[7]); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[8])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[8])+1,t3); t5=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* for-each-loop1708 in a9665 in k9646 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_9692(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9692,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9702,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:280: g1709 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9700 in for-each-loop1708 in a9665 in k9646 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9702,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9692(t3,((C_word*)t0)[4],t2);} /* a9714 in k9646 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9715,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)((C_word*)t0)[9])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[10])+1,((C_word*)((C_word*)t0)[11])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[12])[1]); t8=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[13])[1]); t9=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[14])[1]); t10=C_mutate(((C_word *)((C_word*)t0)[9])+1,((C_word*)((C_word*)t0)[15])[1]); t11=C_mutate(((C_word *)((C_word*)t0)[11])+1,((C_word*)((C_word*)t0)[16])[1]); t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} /* k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_9739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(44,c,4)))){ C_save_and_reclaim((void *)f_9739,2,av);} a=C_alloc(44); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_FALSE; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9744,a[2]=t9,a[3]=((C_word*)t0)[2],a[4]=t11,a[5]=((C_word*)t0)[3],a[6]=t13,a[7]=((C_word*)t0)[4],a[8]=t3,a[9]=t5,a[10]=t7,tmp=(C_word)a,a+=11,tmp); t15=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9753,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9867,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=t7,a[7]=((C_word*)t0)[4],a[8]=t9,a[9]=t11,a[10]=t13,tmp=(C_word)a,a+=11,tmp); /* egg-compile.scm:289: ##sys#dynamic-wind */ t17=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t17; av2[1]=((C_word*)t0)[10]; av2[2]=t14; av2[3]=t15; av2[4]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} /* a9743 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9744,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_9753,2,av);} a=C_alloc(15); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_cddr(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[118]); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9763,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t1,a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9844,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_9844(t9,t5,t3);} /* k9761 in a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_9763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_9763,2,av);} a=C_alloc(9); t2=((C_word*)((C_word*)t0)[2])[1]; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9766,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; f_9766(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[5],lf[54]); if(C_truep(t4)){ t5=C_retrieve2(lf[28],C_text("main#default-incdir")); t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=C_retrieve2(lf[28],C_text("main#default-incdir")); f_9766(2,av2);}} else{ /* egg-compile.scm:296: override-prefix */ t5=C_retrieve2(lf[82],C_text("main#override-prefix")); f_8692(t5,t3,lf[161],C_retrieve2(lf[41],C_text("main#host-incdir")));}}} /* k9764 in k9761 in a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_9766,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9769,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9833,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:297: chicken.string#conc */ t4=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t1; av2[3]=lf[160]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k9767 in k9764 in k9761 in a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_9769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_9769,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9772,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9785,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=((C_word*)((C_word*)t0)[3])[1]; t10=C_i_check_list_2(t9,lf[8]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9795,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9797,a[2]=t6,a[3]=t13,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_9797(t15,t11,t9);} /* k9770 in k9767 in k9764 in k9761 in a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_9772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){ C_save_and_reclaim((void *)f_9772,2,av);} a=C_alloc(30); t2=C_a_i_list(&a,9,((C_word*)((C_word*)t0)[2])[1],lf[119],C_SCHEME_END_OF_LIST,lf[152],((C_word*)((C_word*)t0)[3])[1],lf[153],((C_word*)((C_word*)t0)[4])[1],lf[125],((C_word*)t0)[5]); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[6])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,t3); t5=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* g1789 in k9767 in k9764 in k9761 in a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_9785(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_9785,3,t0,t1,t2);} t3=C_fast_retrieve(lf[134]); /* egg-compile.scm:298: g1806 */ t4=C_fast_retrieve(lf[134]);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k9793 in k9767 in k9764 in k9761 in a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_9795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9795,2,av);} a=C_alloc(3); /* egg-compile.scm:298: addfiles */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9141(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* map-loop1783 in k9767 in k9764 in k9761 in a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_9797(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9797,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9822,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:298: g1789 */ t5=((C_word*)t0)[4]; f_9785(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9820 in map-loop1783 in k9767 in k9764 in k9761 in a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_9822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9822,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9797(t6,((C_word*)t0)[5],t5);} /* k9831 in k9764 in k9761 in a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_9833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9833,2,av);} /* egg-compile.scm:297: chicken.pathname#normalize-pathname */ t2=C_fast_retrieve(lf[154]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* for-each-loop1761 in a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_9844(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9844,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9854,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:292: g1762 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9852 in for-each-loop1761 in a9752 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9854,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9844(t3,((C_word*)t0)[4],t2);} /* a9866 in k9737 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9867,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in k8154 in ... */ static void C_ccall f_9887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(44,c,4)))){ C_save_and_reclaim((void *)f_9887,2,av);} a=C_alloc(44); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_FALSE; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9892,a[2]=t9,a[3]=((C_word*)t0)[2],a[4]=t11,a[5]=((C_word*)t0)[3],a[6]=t13,a[7]=((C_word*)t0)[4],a[8]=t3,a[9]=t5,a[10]=t7,tmp=(C_word)a,a+=11,tmp); t15=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9901,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10015,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=t7,a[7]=((C_word*)t0)[4],a[8]=t9,a[9]=t11,a[10]=t13,tmp=(C_word)a,a+=11,tmp); /* egg-compile.scm:304: ##sys#dynamic-wind */ t17=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t17; av2[1]=((C_word*)t0)[10]; av2[2]=t14; av2[3]=t15; av2[4]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} /* a9891 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9892,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)((C_word*)t0)[7])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[8])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[9])[1]); t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)((C_word*)t0)[10])[1]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in k8158 in ... */ static void C_ccall f_9901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_9901,2,av);} a=C_alloc(15); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_cddr(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[118]); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9911,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t1,a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9992,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_9992(t9,t5,t3);} /* k9909 in a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_ccall f_9911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_9911,2,av);} a=C_alloc(9); t2=((C_word*)((C_word*)t0)[2])[1]; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9914,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; f_9914(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[5],lf[54]); if(C_truep(t4)){ t5=C_retrieve2(lf[30],C_text("main#default-sharedir")); t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=C_retrieve2(lf[30],C_text("main#default-sharedir")); f_9914(2,av2);}} else{ /* egg-compile.scm:311: override-prefix */ t5=C_retrieve2(lf[82],C_text("main#override-prefix")); f_8692(t5,t3,lf[164],C_retrieve2(lf[42],C_text("main#host-sharedir")));}}} /* k9912 in k9909 in a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in ... */ static void C_ccall f_9914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_9914,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9917,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9981,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-compile.scm:312: chicken.string#conc */ t4=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t1; av2[3]=lf[163]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k9915 in k9912 in k9909 in a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_9917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_9917,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9920,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9933,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=((C_word*)((C_word*)t0)[3])[1]; t10=C_i_check_list_2(t9,lf[8]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9943,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9945,a[2]=t6,a[3]=t13,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_9945(t15,t11,t9);} /* k9918 in k9915 in k9912 in k9909 in a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_9920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){ C_save_and_reclaim((void *)f_9920,2,av);} a=C_alloc(30); t2=C_a_i_list(&a,9,((C_word*)((C_word*)t0)[2])[1],lf[119],C_SCHEME_END_OF_LIST,lf[152],((C_word*)((C_word*)t0)[3])[1],lf[153],((C_word*)((C_word*)t0)[4])[1],lf[125],((C_word*)t0)[5]); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[6])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,t3); t5=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* g1877 in k9915 in k9912 in k9909 in a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_9933(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_9933,3,t0,t1,t2);} t3=C_fast_retrieve(lf[134]); /* egg-compile.scm:313: g1894 */ t4=C_fast_retrieve(lf[134]);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k9941 in k9915 in k9912 in k9909 in a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_ccall f_9943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9943,2,av);} a=C_alloc(3); /* egg-compile.scm:313: addfiles */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9141(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* map-loop1871 in k9915 in k9912 in k9909 in a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in ... */ static void C_fcall f_9945(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9945,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9970,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:313: g1877 */ t5=((C_word*)t0)[4]; f_9933(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9968 in map-loop1871 in k9915 in k9912 in k9909 in a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in ... */ static void C_ccall f_9970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9970,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9945(t6,((C_word*)t0)[5],t5);} /* k9979 in k9912 in k9909 in a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in ... */ static void C_ccall f_9981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9981,2,av);} /* egg-compile.scm:312: chicken.pathname#normalize-pathname */ t2=C_fast_retrieve(lf[154]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* for-each-loop1849 in a9900 in k9885 in compile-component in k9116 in main#compile-egg-info in k8689 in k8282 in k8279 in k8210 in k8206 in k8202 in k8198 in k8194 in k8190 in k8186 in k8182 in k8178 in k8174 in k8170 in k8166 in k8162 in ... */ static void C_fcall f_9992(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9992,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10002,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* egg-compile.scm:307: g1850 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1872))){ C_save(t1); C_rereclaim2(1872*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,967); lf[0]=C_h_intern(&lf[0],5, C_text("main#")); lf[2]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012modules.db")); lf[4]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016setup.defaults")); lf[6]=C_h_intern(&lf[6],5, C_text("foldr")); lf[7]=C_h_intern(&lf[7],13, C_text("scheme#append")); lf[8]=C_h_intern(&lf[8],3, C_text("map")); lf[10]=C_h_intern(&lf[10],12, C_text("scheme#null\077")); lf[31]=C_h_intern(&lf[31],7, C_text("windows")); lf[32]=C_h_intern(&lf[32],4, C_text("unix")); lf[46]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010egg-info")); lf[48]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007VERSION")); lf[50]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011TIMESTAMP")); lf[52]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003egg")); lf[54]=C_h_intern(&lf[54],6, C_text("target")); lf[55]=C_h_intern(&lf[55],48, C_text("chicken.process-context#get-environment-variable")); lf[56]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032CHICKEN_INSTALL_REPOSITORY")); lf[58]=C_h_intern(&lf[58],30, C_text("chicken.file#directory-exists\077")); lf[61]=C_h_intern(&lf[61],25, C_text("chicken.file#file-exists\077")); lf[62]=C_h_intern(&lf[62],30, C_text("chicken.pathname#make-pathname")); lf[63]=C_h_intern(&lf[63],35, C_text("chicken.pathname#pathname-extension")); lf[64]=C_h_intern(&lf[64],30, C_text("chicken.pathname#pathname-file")); lf[65]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007chicken")); lf[66]=C_h_intern(&lf[66],35, C_text("chicken.pathname#pathname-directory")); lf[70]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\003-O2\376\003\000\000\002\376B\000\000\003-d1\376\377\016")); lf[72]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\003-O2\376\003\000\000\002\376B\000\000\003-d1\376\377\016")); lf[73]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001static\376\377\016")); lf[74]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001dynamic\376\377\016")); lf[76]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001static\376\377\016")); lf[77]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001static\376\003\000\000\002\376\001\000\000\007\001dynamic\376\377\016")); lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005.link")); lf[83]=C_h_intern(&lf[83],20, C_text("scheme#string-append")); lf[85]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002.o")); lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.obj")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002.a")); lf[89]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002.a")); lf[91]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[92]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.exe")); lf[94]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005cp -r")); lf[95]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016xcopy /y /i /e")); lf[97]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010mkdir -p")); lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005mkdir")); lf[100]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005rm -f")); lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011del /f /q")); lf[103]=C_h_intern(&lf[103],4, C_text("host")); lf[105]=C_h_intern(&lf[105],9, C_text("condition")); lf[106]=C_h_intern(&lf[106],3, C_text("exn")); lf[107]=C_h_intern(&lf[107],7, C_text("runtime")); lf[108]=C_h_intern(&lf[108],5, C_text("cycle")); lf[109]=C_h_intern(&lf[109],18, C_text("chicken.base#error")); lf[110]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023cyclic dependencies")); lf[111]=C_h_intern(&lf[111],24, C_text("chicken.condition#signal")); lf[112]=C_h_intern(&lf[112],29, C_text("chicken.sort#topological-sort")); lf[113]=C_h_intern(&lf[113],40, C_text("chicken.condition#with-exception-handler")); lf[114]=C_h_intern(&lf[114],37, C_text("scheme#call-with-current-continuation")); lf[116]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027target multiply defined")); lf[117]=C_h_intern(&lf[117],9, C_text("extension")); lf[118]=C_h_intern(&lf[118],8, C_text("for-each")); lf[119]=C_h_intern_kw(&lf[119],12, C_text("dependencies")); lf[120]=C_h_intern_kw(&lf[120],6, C_text("source")); lf[121]=C_h_intern_kw(&lf[121],7, C_text("options")); lf[122]=C_h_intern_kw(&lf[122],12, C_text("link-options")); lf[123]=C_h_intern_kw(&lf[123],7, C_text("linkage")); lf[124]=C_h_intern_kw(&lf[124],6, C_text("custom")); lf[125]=C_h_intern_kw(&lf[125],4, C_text("mode")); lf[126]=C_h_intern_kw(&lf[126],10, C_text("types-file")); lf[127]=C_h_intern_kw(&lf[127],11, C_text("inline-file")); lf[128]=C_h_intern_kw(&lf[128],16, C_text("predefined-types")); lf[129]=C_h_intern_kw(&lf[129],7, C_text("eggfile")); lf[130]=C_h_intern_kw(&lf[130],7, C_text("modules")); lf[131]=C_h_intern_kw(&lf[131],19, C_text("source-dependencies")); lf[132]=C_h_intern_kw(&lf[132],12, C_text("link-objects")); lf[133]=C_h_intern_kw(&lf[133],11, C_text("output-file")); lf[134]=C_h_intern(&lf[134],19, C_text("chicken.string#conc")); lf[135]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[136]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010.import.")); lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002so")); lf[138]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003scm")); lf[139]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.inline")); lf[141]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[142]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006.types")); lf[143]=C_h_intern(&lf[143],7, C_text("dynamic")); lf[144]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[145]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003.so")); lf[146]=C_h_intern(&lf[146],6, C_text("static")); lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[148]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[149]=C_h_intern(&lf[149],18, C_text("##sys#dynamic-wind")); lf[150]=C_h_intern(&lf[150],8, C_text("c-object")); lf[151]=C_h_intern(&lf[151],4, C_text("data")); lf[152]=C_h_intern_kw(&lf[152],5, C_text("files")); lf[153]=C_h_intern_kw(&lf[153],11, C_text("destination")); lf[154]=C_h_intern(&lf[154],35, C_text("chicken.pathname#normalize-pathname")); lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[156]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006/share")); lf[157]=C_h_intern(&lf[157],21, C_text("generated-source-file")); lf[158]=C_decode_literal(C_heaptop,C_text("\376B\000\000/generated source files need a custom build step")); lf[159]=C_h_intern(&lf[159],9, C_text("c-include")); lf[160]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[161]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010/include")); lf[162]=C_h_intern(&lf[162],14, C_text("scheme-include")); lf[163]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[164]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006/share")); lf[165]=C_h_intern(&lf[165],7, C_text("program")); lf[166]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[167]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004/bin")); lf[168]=C_h_intern(&lf[168],7, C_text("linkage")); lf[169]=C_h_intern(&lf[169],10, C_text("types-file")); lf[170]=C_h_intern(&lf[170],12, C_text("scheme#cdadr")); lf[171]=C_h_intern(&lf[171],7, C_text("objects")); lf[172]=C_h_intern(&lf[172],23, C_text("chicken.string#->string")); lf[173]=C_h_intern(&lf[173],11, C_text("inline-file")); lf[174]=C_h_intern(&lf[174],12, C_text("custom-build")); lf[175]=C_h_intern(&lf[175],11, C_text("csc-options")); lf[176]=C_h_intern(&lf[176],12, C_text("link-options")); lf[177]=C_h_intern(&lf[177],6, C_text("source")); lf[178]=C_h_intern(&lf[178],12, C_text("install-name")); lf[179]=C_h_intern(&lf[179],7, C_text("modules")); lf[180]=C_h_intern(&lf[180],27, C_text("chicken.internal#library-id")); lf[181]=C_h_intern(&lf[181],22, C_text("component-dependencies")); lf[182]=C_h_intern(&lf[182],19, C_text("source-dependencies")); lf[183]=C_h_intern(&lf[183],5, C_text("error")); lf[184]=C_h_intern(&lf[184],11, C_text("cond-expand")); lf[185]=C_h_intern(&lf[185],11, C_text("destination")); lf[186]=C_h_intern(&lf[186],5, C_text("files")); lf[187]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047invalid component-options specification")); lf[188]=C_decode_literal(C_heaptop,C_text("\376B\000\000(no matching clause in `cond-expand\047 form")); lf[189]=C_h_intern(&lf[189],4, C_text("else")); lf[190]=C_h_intern(&lf[190],3, C_text("and")); lf[191]=C_h_intern(&lf[191],2, C_text("or")); lf[192]=C_decode_literal(C_heaptop,C_text("\376B\000\0006invalid conditional expression in `cond-expand\047 clause")); lf[193]=C_h_intern(&lf[193],3, C_text("not")); lf[194]=C_h_intern(&lf[194],25, C_text("chicken.platform#feature\077")); lf[195]=C_h_intern(&lf[195],21, C_text("scheme#string->symbol")); lf[196]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022invalid dependency")); lf[197]=C_h_intern(&lf[197],10, C_text("components")); lf[198]=C_h_intern(&lf[198],17, C_text("component-options")); lf[199]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031argument has invalid type")); lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020missing argument")); lf[201]=C_h_intern(&lf[201],23, C_text("chicken.base#constantly")); lf[202]=C_h_intern(&lf[202],13, C_text("scheme#equal\077")); lf[203]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034unknown component dependency")); lf[204]=C_h_intern(&lf[204],15, C_text("installed-files")); lf[205]=C_h_intern(&lf[205],7, C_text("version")); lf[217]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\002types-file\376\003\000\000\002\376\377\006\000\376\003\000\000\002\376\001\000\000\013\002inline-file\376\003\000\000\002\376\377\006\000\376\377\016")); lf[224]=C_h_intern(&lf[224],14, C_text("scheme#reverse")); lf[225]=C_h_intern(&lf[225],18, C_text("chicken.base#print")); lf[226]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031if errorlevel 1 exit /b 1")); lf[227]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[228]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[229]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[230]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[231]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[232]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[233]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[234]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[236]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.static")); lf[238]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[239]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 -k")); lf[240]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[241]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -host")); lf[242]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[243]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[244]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[245]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[246]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[247]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[248]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[249]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[250]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035 -regenerate-import-libraries")); lf[251]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030 -setup-mode -static -I ")); lf[252]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021 -emit-link-file ")); lf[253]=C_decode_literal(C_heaptop,C_text("\376B\000\000! -D compiling-extension -c -unit ")); lf[254]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036 -D compiling-static-extension")); lf[255]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -C -I")); lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[257]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 -o ")); lf[259]=C_h_intern(&lf[259],33, C_text("chicken.string#string-intersperse")); lf[260]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[261]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011chmod +x ")); lf[262]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.scm")); lf[263]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.target")); lf[264]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.static")); lf[265]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021-emit-inline-file")); lf[266]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020-emit-types-file")); lf[267]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.inline")); lf[268]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006.types")); lf[270]=C_h_intern(&lf[270],17, C_text("##sys#get-keyword")); lf[271]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[272]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 -k")); lf[273]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[274]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -host")); lf[275]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[276]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[277]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[278]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[279]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[280]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[281]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[282]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[283]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[284]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035 -D compiling-extension -J -s")); lf[285]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035 -regenerate-import-libraries")); lf[286]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020 -setup-mode -I ")); lf[287]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -C -I")); lf[288]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[289]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 -o ")); lf[291]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013.import.scm")); lf[292]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.scm")); lf[293]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003.so")); lf[294]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021-emit-inline-file")); lf[295]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020-emit-types-file")); lf[296]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.inline")); lf[297]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006.types")); lf[298]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\003-O2\376\003\000\000\002\376B\000\000\003-d0\376\377\016")); lf[299]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 -k")); lf[300]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[301]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -host")); lf[302]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[303]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[304]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[305]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[306]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[307]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017 -setup-mode -s")); lf[308]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 -I ")); lf[309]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -C -I")); lf[310]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[311]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 -o ")); lf[312]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013.import.scm")); lf[313]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012.import.so")); lf[314]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[315]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -host")); lf[316]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[317]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[318]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[319]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[320]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[321]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[322]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[323]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030 -setup-mode -static -I ")); lf[324]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 -c -C -I")); lf[325]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[326]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 -o ")); lf[328]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002.c")); lf[329]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.static")); lf[330]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -host")); lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[333]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[334]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[335]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[336]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[338]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[339]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[340]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020 -setup-mode -I ")); lf[341]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 -c -C -I")); lf[342]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[343]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 -o ")); lf[344]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002.c")); lf[345]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[346]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 -k")); lf[347]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[348]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -host")); lf[349]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[350]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[351]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[352]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[353]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[354]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[355]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[356]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[357]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[358]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014 -setup-mode")); lf[359]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 -I ")); lf[360]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -C -I")); lf[361]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[362]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[363]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 -o ")); lf[364]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.scm")); lf[365]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[366]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 -k")); lf[367]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[368]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -host")); lf[369]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[370]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[371]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[372]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[373]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[374]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[375]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[376]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[377]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[378]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030 -static -setup-mode -I ")); lf[379]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 -C -I")); lf[380]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[381]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[382]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 -o ")); lf[383]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.scm")); lf[384]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[385]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[386]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[387]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[388]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[389]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 : ")); lf[390]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[391]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[392]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[393]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[394]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[395]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[396]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[397]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[399]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007DESTDIR")); lf[400]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.static")); lf[401]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[402]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[403]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[404]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[405]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[406]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[407]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[408]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007DESTDIR")); lf[409]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[410]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003.so")); lf[411]=C_h_intern_kw(&lf[411],3, C_text("ext")); lf[412]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012.import.so")); lf[413]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[414]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[415]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[416]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013.import.scm")); lf[417]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[418]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[419]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007DESTDIR")); lf[420]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013.import.scm")); lf[421]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[422]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[423]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[424]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006.types")); lf[425]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[426]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[427]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007DESTDIR")); lf[428]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006.types")); lf[429]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[430]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[431]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[432]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.inline")); lf[433]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[434]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[435]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007DESTDIR")); lf[436]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.inline")); lf[437]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[438]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[439]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[440]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[441]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[442]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[443]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007DESTDIR")); lf[444]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004/bin")); lf[447]=C_h_intern(&lf[447],29, C_text("chicken.file.posix#directory\077")); lf[448]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[449]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[450]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[452]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[453]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[454]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[455]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[456]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[457]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007DESTDIR")); lf[458]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[459]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006/share")); lf[460]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010/include")); lf[462]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002cd")); lf[463]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[464]=C_h_intern(&lf[464],26, C_text("scheme#with-output-to-file")); lf[466]=C_h_intern(&lf[466],21, C_text("##sys#standard-output")); lf[467]=C_h_intern(&lf[467],6, C_text("printf")); lf[468]=C_h_intern(&lf[468],18, C_text("##sys#write-char-0")); lf[469]=C_h_intern(&lf[469],11, C_text("##sys#print")); lf[470]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024\012export CHICKEN_CSI=")); lf[471]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024\012export CHICKEN_CSC=")); lf[472]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024\012export CHICKEN_CXX=")); lf[473]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031:$PATH\012export CHICKEN_CC=")); lf[474]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015\012set -e\012PATH=")); lf[475]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011#!/bin/sh")); lf[476]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\012set CHICKEN_CSI=")); lf[477]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\012set CHICKEN_CSC=")); lf[478]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\012set CHICKEN_CXX=")); lf[479]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027;%PATH%\012set CHICKEN_CC=")); lf[480]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012\012set PATH=")); lf[481]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011@echo off")); lf[484]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010\012set -e\012")); lf[485]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011#!/bin/sh")); lf[486]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011@echo off")); lf[488]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007ENDINFO")); lf[489]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013 <")); lf[491]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 >")); lf[492]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003^\012\012")); lf[493]=C_h_intern(&lf[493],27, C_text("chicken.string#string-split")); lf[494]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[495]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\012echo ")); lf[496]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007DESTDIR")); lf[497]=C_h_intern(&lf[497],23, C_text("chicken.pretty-print#pp")); lf[498]=C_h_intern(&lf[498],34, C_text("chicken.port#with-output-to-string")); lf[499]=C_h_intern(&lf[499],18, C_text("chicken.process#qs")); lf[500]=C_h_intern(&lf[500],7, C_text("mingw32")); lf[501]=C_h_intern(&lf[501],18, C_text("##sys#list->string")); lf[502]=C_h_intern(&lf[502],18, C_text("##sys#string->list")); lf[504]=C_h_intern(&lf[504],22, C_text("chicken.process#system")); lf[505]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[506]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[507]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[508]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002${")); lf[509]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001}")); lf[510]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001%")); lf[511]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001%")); lf[512]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.bat")); lf[513]=C_h_intern(&lf[513],16, C_text("scheme#substring")); lf[514]=C_h_intern(&lf[514],11, C_text("##sys#error")); lf[515]=C_decode_literal(C_heaptop,C_text("\376B\000\000#(egg-compile.scm:1242) wrong prefix")); lf[518]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[519]=C_h_intern(&lf[519],39, C_text("chicken.irregex#irregex-match-substring")); lf[520]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020not a valid port")); lf[521]=C_h_intern(&lf[521],21, C_text("scheme#string->number")); lf[522]=C_h_intern(&lf[522],29, C_text("chicken.irregex#irregex-match")); lf[523]=C_decode_literal(C_heaptop,C_text("\376B\000\000$(http://)\077([^/:]+)(:([^:/]+))\077(/.\052)\077")); lf[525]=C_h_intern(&lf[525],23, C_text("chicken.tcp#tcp-connect")); lf[526]=C_h_intern(&lf[526],30, C_text("chicken.base#open-input-string")); lf[527]=C_h_intern(&lf[527],23, C_text("scheme#close-input-port")); lf[528]=C_decode_literal(C_heaptop,C_text("\376B\000\000/invalid response from server - please try again")); lf[529]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[531]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002~%")); lf[532]=C_h_intern(&lf[532],20, C_text("chicken.io#read-line")); lf[533]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[534]=C_h_intern(&lf[534],22, C_text("chicken.io#read-string")); lf[535]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017reading chunks ")); lf[536]=C_h_intern(&lf[536],42, C_text("chicken.condition#make-composite-condition")); lf[537]=C_h_intern(&lf[537],41, C_text("chicken.condition#make-property-condition")); lf[538]=C_h_intern(&lf[538],10, C_text("http-fetch")); lf[539]=C_h_intern(&lf[539],7, C_text("message")); lf[540]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034invalid response from server")); lf[541]=C_h_intern(&lf[541],9, C_text("arguments")); lf[543]=C_h_intern(&lf[543],14, C_text("scheme#display")); lf[545]=C_h_intern_kw(&lf[545],4, C_text("port")); lf[546]=C_h_intern_kw(&lf[546],6, C_text("accept")); lf[547]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\052/\052")); lf[548]=C_h_intern_kw(&lf[548],10, C_text("proxy-host")); lf[549]=C_h_intern_kw(&lf[549],10, C_text("proxy-port")); lf[550]=C_h_intern_kw(&lf[550],15, C_text("proxy-user-pass")); lf[551]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[552]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~a~%")); lf[553]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042[Cc]ontent-[Ll]ength:\134s\052([0-9]+).\052")); lf[554]=C_decode_literal(C_heaptop,C_text("\376B\000\000$[Tt]ransfer-[Ee]ncoding:\134s\052chunked.\052")); lf[555]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~a~%")); lf[556]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034HTTP/[0-9.]+\134s+([0-9]+)\134s+.\052")); lf[557]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026reading response ...~%")); lf[558]=C_h_intern(&lf[558],25, C_text("chicken.base#flush-output")); lf[559]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\052/\052")); lf[560]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023requesting ~s ...~%")); lf[561]=C_decode_literal(C_heaptop,C_text("\376B\000\000&connecting to host ~s, port ~a ~a...~%")); lf[562]=C_h_intern(&lf[562],6, C_text("format")); lf[563]=C_h_intern(&lf[563],30, C_text("chicken.base#get-output-string")); lf[564]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002) ")); lf[565]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005(via ")); lf[566]=C_h_intern(&lf[566],31, C_text("chicken.base#open-output-string")); lf[567]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[568]=C_h_intern(&lf[568],20, C_text("##sys#number->string")); lf[569]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004GET ")); lf[570]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 HTTP/1.1")); lf[571]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\015\012")); lf[572]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014Connection: ")); lf[573]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\015\012")); lf[574]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014User-Agent: ")); lf[575]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\015\012")); lf[576]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010Accept: ")); lf[577]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\015\012")); lf[578]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006Host: ")); lf[579]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\015\012")); lf[580]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020Content-length: ")); lf[581]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\015\012")); lf[582]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\015\012")); lf[583]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033Proxy-Authorization: Basic ")); lf[584]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\015\012")); lf[585]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[586]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007http://")); lf[587]=C_h_intern_kw(&lf[587],14, C_text("content-length")); lf[588]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052")); lf[589]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005close")); lf[590]=C_h_intern_kw(&lf[590],10, C_text("connection")); lf[592]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023TCP connect timeout")); lf[593]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023HTTP protocol error")); lf[594]=C_h_intern(&lf[594],37, C_text("chicken.condition#print-error-message")); lf[595]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015Server error:")); lf[596]=C_h_intern(&lf[596],23, C_text("chicken.condition#abort")); lf[597]=C_h_intern(&lf[597],20, C_text("setup-download-error")); lf[598]=C_h_intern(&lf[598],3, C_text("net")); lf[602]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026reading response ...~%")); lf[603]=C_h_intern(&lf[603],24, C_text("scheme#close-output-port")); lf[604]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\077name=")); lf[605]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011&release=")); lf[606]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015&mode=default")); lf[607]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017&listversions=1")); lf[608]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035listing versions for ~a: ~a~%")); lf[632]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004sudo")); lf[640]=C_h_intern(&lf[640],14, C_text("##sys#build-id")); lf[644]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.target")); lf[645]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[646]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005build")); lf[647]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.bat")); lf[648]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003.sh")); lf[650]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.target")); lf[651]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[652]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007install")); lf[653]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.bat")); lf[654]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003.sh")); lf[656]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001seq\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001+\376\003\000\000\002\376\001\000\000\007\001numeric\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\077\376\003\000\000\002\376\377\012\000\000." "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001+\376\003\000\000\002\376\001\000\000\007\001numeric\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\077\376\003\000\000\002\376\377\012\000\000.\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\001\001+\376\003\000\000\002\376\001\000\000\007\001numeric\376\377\016\376\377\016\376\377\016\376\377\016")); lf[660]=C_h_intern(&lf[660],10, C_text("predefined")); lf[661]=C_h_intern(&lf[661],8, C_text("synopsis")); lf[662]=C_h_intern(&lf[662],6, C_text("author")); lf[663]=C_h_intern(&lf[663],8, C_text("category")); lf[664]=C_h_intern(&lf[664],7, C_text("license")); lf[665]=C_h_intern(&lf[665],12, C_text("dependencies")); lf[666]=C_h_intern(&lf[666],12, C_text("scheme#list\077")); lf[667]=C_h_intern(&lf[667],17, C_text("test-dependencies")); lf[668]=C_h_intern(&lf[668],18, C_text("build-dependencies")); lf[669]=C_h_intern(&lf[669],20, C_text("foreign-dependencies")); lf[670]=C_h_intern(&lf[670],8, C_text("platform")); lf[671]=C_h_intern(&lf[671],10, C_text("maintainer")); lf[672]=C_h_intern(&lf[672],18, C_text("distribution-files")); lf[673]=C_h_intern(&lf[673],1, C_text("\052")); lf[676]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034invalid egg information item")); lf[677]=C_decode_literal(C_heaptop,C_text("\376B\000\000&invalid syntax in `cond-expand\047 clause")); lf[678]=C_decode_literal(C_heaptop,C_text("\376B\000\000,egg information item not allowed at toplevel")); lf[679]=C_decode_literal(C_heaptop,C_text("\376B\000\000-egg information item only allowed at toplevel")); lf[680]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034unnamed egg information item")); lf[681]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052egg information item has invalid structure")); lf[682]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034unknown egg information item")); lf[683]=C_h_intern(&lf[683],20, C_text("##sys#standard-error")); lf[684]=C_h_intern(&lf[684],22, C_text("chicken.format#fprintf")); lf[686]=C_h_intern(&lf[686],29, C_text("chicken.irregex#irregex-split")); lf[687]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006[-\134._]")); lf[688]=C_h_intern(&lf[688],15, C_text("scheme#string>\077")); lf[690]=C_h_intern(&lf[690],21, C_text("scheme#symbol->string")); lf[691]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035internal error - bad egg spec")); lf[693]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021mapped ~s to ~s~%")); lf[695]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035resolving alias `~a\047 to: ~a~%")); lf[697]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004~a~%")); lf[698]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[699]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[700]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052")); lf[703]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016 upgrade: ~a~%")); lf[704]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[705]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003yes")); lf[706]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002no")); lf[707]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005abort")); lf[708]=C_h_intern(&lf[708],17, C_text("chicken.base#exit")); lf[709]=C_decode_literal(C_heaptop,C_text("\376B\000\000\077Do you want to replace the existing extensions\077 (yes/no/abort) ")); lf[710]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[711]=C_decode_literal(C_heaptop,C_text("\376B\000\000:The following installed extensions are outdated, because `")); lf[712]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034\047 requires later versions:\012\012")); lf[713]=C_h_intern(&lf[713],20, C_text("chicken.base#warning")); lf[714]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036\047 overrides required version `")); lf[715]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020\047 of extension `")); lf[716]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011version `")); lf[717]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007unknown")); lf[718]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[719]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 (")); lf[720]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 -> ")); lf[721]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[723]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016 missing: ~a~%")); lf[724]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[725]=C_decode_literal(C_heaptop,C_text("\376B\000\000 checking dependencies for `~a\047~%")); lf[726]=C_decode_literal(C_heaptop,C_text("\376B\000\000)extension is not targeted for this system")); lf[727]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033invalid `platform\047 property")); lf[728]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033invalid `platform\047 property")); lf[729]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034checking platform for `~a\047~%")); lf[730]=C_h_intern(&lf[730],27, C_text("scheme#with-input-from-file")); lf[731]=C_h_intern(&lf[731],11, C_text("scheme#read")); lf[732]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021checking ~a ...~%")); lf[733]=C_h_intern(&lf[733],10, C_text("scheme#eq\077")); lf[734]=C_h_intern(&lf[734],12, C_text("scheme#write")); lf[735]=C_decode_literal(C_heaptop,C_text("\376B\000\000Kno connection to server or egg not found remotely - will use cached version" )); lf[736]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036extension or version not found")); lf[737]=C_h_intern(&lf[737],29, C_text("chicken.file#delete-directory")); lf[738]=C_h_intern_kw(&lf[738],7, C_text("version")); lf[739]=C_h_intern_kw(&lf[739],5, C_text("tests")); lf[740]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[741]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023TCP connect timeout")); lf[742]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[743]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023HTTP protocol error")); lf[744]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[745]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015Server error:")); lf[746]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[747]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[748]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[749]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002#f")); lf[750]=C_decode_literal(C_heaptop,C_text("\376B\000\000 files versions are not identical")); lf[751]=C_decode_literal(C_heaptop,C_text("\376B\000\000=unrecognized file-information - possibly corrupt transmission")); lf[752]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\003\000\000\002\376B\000\000\007\011\012\013\014\015 \240\376\377\016\376\377\016")); lf[753]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026^[ ]\052\134(error .\052\134)[ ]\052$")); lf[754]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031 \052#\134|[- ]\052([^- ]\052) \052\134|#.\052")); lf[755]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 \052#!eof \052")); lf[756]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011[Server] ")); lf[757]=C_decode_literal(C_heaptop,C_text("\376B\000\0001invalid file name - possibly corrupt transmission")); lf[758]=C_h_intern(&lf[758],29, C_text("chicken.file#create-directory")); lf[759]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 ~a~%")); lf[760]=C_h_intern_kw(&lf[760],6, C_text("binary")); lf[761]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 ~a~%")); lf[762]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[763]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023reading files ...~%")); lf[764]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\077name=")); lf[765]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011&release=")); lf[766]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015&mode=default")); lf[767]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012&tests=yes")); lf[768]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[769]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011&version=")); lf[770]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[771]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024downloading ~a: ~a~%")); lf[772]=C_h_intern(&lf[772],28, C_text("chicken.time#current-seconds")); lf[773]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026trying server ~a ...~%")); lf[774]=C_h_intern(&lf[774],39, C_text("chicken.file#create-temporary-directory")); lf[775]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030trying location ~a ...~%")); lf[776]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033version of ~a out of date~%")); lf[777]=C_h_intern(&lf[777],41, C_text("chicken.file.posix#file-modification-time")); lf[778]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[779]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[780]=C_h_intern(&lf[780],22, C_text("chicken.file#directory")); lf[781]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024extension not cached")); lf[782]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017~a not cached~%")); lf[783]=C_decode_literal(C_heaptop,C_text("\376B\000\000)cached egg does not match CHICKEN version")); lf[784]=C_decode_literal(C_heaptop,C_text("\376B\000\000Jcached egg does not match CHICKEN version - use `-force\047 to install anyway")); lf[785]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027status changed for ~a~%")); lf[786]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006STATUS")); lf[787]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022~a located at ~a~%")); lf[788]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036extension or version not found")); lf[789]=C_decode_literal(C_heaptop,C_text("\376B\000\000&\047 overrides explicitly given version `")); lf[790]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020\047 of extension `")); lf[791]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011version `")); lf[792]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020overriding: ~a~%")); lf[793]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007chicken")); lf[794]=C_decode_literal(C_heaptop,C_text("\376B\000\000JYour CHICKEN version is not recent enough to use this extension - version ")); lf[795]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025 or newer is required")); lf[796]=C_decode_literal(C_heaptop,C_text("\376B\000\0007invalid dependency syntax in extension meta information")); lf[797]=C_h_intern(&lf[797],7, C_text("chicken")); lf[798]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007chicken")); lf[799]=C_h_intern(&lf[799],32, C_text("chicken.platform#chicken-version")); lf[800]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0050.0.0")); lf[801]=C_h_intern(&lf[801],22, C_text("chicken.load#find-file")); lf[802]=C_h_intern(&lf[802],16, C_text("##sys#split-path")); lf[803]=C_h_intern(&lf[803],32, C_text("chicken.platform#repository-path")); lf[805]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[807]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015 installing ")); lf[808]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 (target)")); lf[809]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011building ")); lf[810]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 (target)")); lf[811]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[812]=C_h_intern(&lf[812],40, C_text("chicken.process-context#change-directory")); lf[813]=C_decode_literal(C_heaptop,C_text("\376B\000\000+test script failed with nonzero exit status")); lf[814]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015running: ~a~%")); lf[815]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 -s ")); lf[816]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[817]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[818]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[819]=C_h_intern(&lf[819],41, C_text("chicken.process-context#current-directory")); lf[820]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007run.scm")); lf[821]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005tests")); lf[822]=C_h_intern_kw(&lf[822],4, C_text("sudo")); lf[823]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015 installing ")); lf[824]=C_h_intern(&lf[824],7, C_text("fprintf")); lf[825]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[826]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047\047 will overwrite the following files:\012\012")); lf[827]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020\012the extension `")); lf[828]=C_h_intern(&lf[828],17, C_text("chicken.file#glob")); lf[829]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052")); lf[830]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011building ")); lf[831]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020install order:~%")); lf[832]=C_h_intern(&lf[832],15, C_text("scheme#string=\077")); lf[833]=C_decode_literal(C_heaptop,C_text("\376B\000\000/shell command terminated with nonzero exit code")); lf[834]=C_decode_literal(C_heaptop,C_text("\376B\000\0000shell command terminated with nonzero exit code ")); lf[835]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[836]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017executing: ~s~%")); lf[837]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003sh ")); lf[838]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037/usr/bin/env DYLD_LIBRARY_PATH=")); lf[839]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[840]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[841]=C_h_intern(&lf[841],6, C_text("macosx")); lf[842]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021DYLD_LIBRARY_PATH")); lf[843]=C_h_intern(&lf[843],33, C_text("chicken.platform#software-version")); lf[844]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[845]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[846]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023running script ~a~%")); lf[847]=C_h_intern_kw(&lf[847],4, C_text("stop")); lf[848]=C_h_intern(&lf[848],34, C_text("chicken.base#implicit-exit-handler")); lf[849]=C_h_intern(&lf[849],24, C_text("chicken.file#delete-file")); lf[850]=C_h_intern(&lf[850],22, C_text("chicken.file#copy-file")); lf[851]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013installing ")); lf[852]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 ...")); lf[853]=C_h_intern(&lf[853],14, C_text("scheme#newline")); lf[854]=C_h_intern(&lf[854],15, C_text("scheme#string<\077")); lf[855]=C_h_intern(&lf[855],17, C_text("chicken.sort#sort")); lf[856]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001chicken.internal\376\003\000\000\002\376\001\000\000\027\001chicken.internal.syntax\376\377\016")); lf[857]=C_h_intern(&lf[857],4, C_text("main")); lf[858]=C_h_intern(&lf[858],20, C_text("##sys#module-exports")); lf[859]=C_h_intern(&lf[859],6, C_text("syntax")); lf[860]=C_h_intern(&lf[860],5, C_text("value")); lf[861]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013processing ")); lf[862]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 ...")); lf[863]=C_h_intern(&lf[863],17, C_text("##sys#module-name")); lf[864]=C_h_intern(&lf[864],18, C_text("##sys#module-table")); lf[865]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027generating database ...")); lf[866]=C_h_intern(&lf[866],22, C_text("##sys#warnings-enabled")); lf[867]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027Failed to import from `")); lf[868]=C_h_intern(&lf[868],13, C_text("import-syntax")); lf[869]=C_h_intern(&lf[869],11, C_text("scheme#eval")); lf[870]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010loading ")); lf[871]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 ...")); lf[872]=C_h_intern(&lf[872],41, C_text("chicken.pathname#pathname-strip-extension")); lf[873]=C_h_intern(&lf[873],41, C_text("chicken.pathname#pathname-strip-directory")); lf[874]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034loading import libraries ...")); lf[875]=C_h_intern(&lf[875],34, C_text("chicken.file#create-temporary-file")); lf[876]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014\052.import.scm")); lf[877]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013\052.import.so")); lf[878]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036purging complete cache at ~a~%")); lf[879]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035purging ~a from cache at ~a~%")); lf[880]=C_decode_literal(C_heaptop,C_text("\376B\000\000!`-cached\047 needs explicit egg list")); lf[881]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021no eggs specified")); lf[882]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005\052.egg")); lf[883]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015chicken/\052.egg")); lf[884]=C_h_intern(&lf[884],21, C_text("chicken.format#printf")); lf[885]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 ~a")); lf[886]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036invalid entry in defaults file")); lf[887]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052\047 does not match chicken-install version (")); lf[888]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026version of installed `")); lf[889]=C_h_intern(&lf[889],6, C_text("server")); lf[890]=C_h_intern(&lf[890],2, C_text("->")); lf[891]=C_h_intern(&lf[891],5, C_text("alias")); lf[892]=C_h_intern(&lf[892],14, C_text("scheme#string\077")); lf[893]=C_h_intern(&lf[893],8, C_text("override")); lf[894]=C_h_intern(&lf[894],27, C_text("scheme#call-with-input-file")); lf[895]=C_h_intern(&lf[895],20, C_text("chicken.io#read-list")); lf[896]=C_h_intern(&lf[896],8, C_text("location")); lf[897]=C_h_intern(&lf[897],4, C_text("hack")); lf[898]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007chicken")); lf[899]=C_h_intern(&lf[899],40, C_text("chicken.platform#system-config-directory")); lf[900]=C_decode_literal(C_heaptop,C_text("\376B\000\0007CHICKEN_INSTALL_REPOSITORY must be an absolute pathname")); lf[901]=C_h_intern(&lf[901],35, C_text("chicken.pathname#absolute-pathname\077")); lf[902]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032CHICKEN_INSTALL_REPOSITORY")); lf[903]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-h")); lf[904]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-help")); lf[905]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006--help")); lf[906]=C_decode_literal(C_heaptop,C_text("\376B\000\010\010usage: chicken-install [OPTION ...] [NAME[:VERSION] ...]\012\012 -h -help " " show this message and exit\012 -version show v" "ersion and exit\012 -force don\047t ask, install even if versi" "ons don\047t match\012 -k -keep keep temporary files\012 -s -sud" "o use external command to elevate privileges for filesystem o" "perations\012 -r -retrieve only retrieve egg into cache directory" ", don\047t install (giving `-r\047\012 more than once impl" "ies `-recursive\047)\012 -recursive if `-retrieve\047 is given, retri" "eve also dependencies\012 -dry-run do not build or install, j" "ust print the locations of the generated\012 build &" " install scripts\012 -list-versions list available versions for giv" "en eggs (HTTP transport only)\012 -n -no-install do not install, ju" "st build\012 -no-install-dependencies do not install dependencies\012 -pur" "ge remove cached files for given eggs (or purge cache complete" "ly)\012 -host when cross-compiling, compile extension only" " for host\012 -target when cross-compiling, compile extensio" "n only for target\012 -test run included test-cases, if av" "ailable\012 -u -update-db update export database\012 -repositor" "y print path used for egg installation\012 -override FILENAME " " override versions for installed eggs with information from file\012 -from" "-list FILENAME install eggs from list obtained by `chicken-status -list\047\012 " "-v -verbose be verbose\012 -cached only in" "stall from cache\012 -D -feature NAME define build feature\012 -de" "faults FILENAME use FILENAME as defaults instead of the installed `setup.d" "efaults\047\012 file\012\012chicken-install recognizes the SU" "DO, http_proxy and proxy_auth environment variables, if set.\012")); lf[907]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-test")); lf[908]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013-repository")); lf[909]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-r")); lf[910]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011-retrieve")); lf[911]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-version")); lf[912]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-D")); lf[913]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-feature")); lf[914]=C_h_intern(&lf[914],34, C_text("chicken.platform#register-feature!")); lf[915]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012-recursive")); lf[916]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016-list-versions")); lf[917]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011-defaults")); lf[918]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006-force")); lf[919]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-host")); lf[920]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007-target")); lf[921]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-u")); lf[922]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012-update-db")); lf[923]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030-no-install-dependencies")); lf[924]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-dry-run")); lf[925]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-v")); lf[926]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-verbose")); lf[927]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-k")); lf[928]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-keep")); lf[929]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-s")); lf[930]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-sudo")); lf[931]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-n")); lf[932]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013-no-install")); lf[933]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006-purge")); lf[934]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007-cached")); lf[935]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012-from-list")); lf[936]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011-override")); lf[937]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000h\376\003\000\000\002\376\377\012\000\000k\376\003\000\000\002\376\377\012\000\000s\376\003\000\000\002\376\377\012\000\000r\376\003\000\000\002\376\377\012\000\000n\376\003\000\000\002\376\377\012\000\000u\376\003\000\000\002\376\377\012\000\000v\376\377\016" )); lf[938]=C_h_intern(&lf[938],23, C_text("chicken.irregex#irregex")); lf[939]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014([^:]+):(.+)")); lf[940]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012proxy_auth")); lf[941]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033(http://)\077([^:]+):\077([0-9]\052)")); lf[942]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012http_proxy")); lf[943]=C_h_intern(&lf[943],46, C_text("chicken.process-context#command-line-arguments")); lf[944]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021DYLD_LIBRARY_PATH")); lf[945]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024CHICKEN_INCLUDE_PATH")); lf[946]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021DYLD_LIBRARY_PATH")); lf[947]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017LD_LIBRARY_PATH")); lf[948]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013CSC_OPTIONS")); lf[949]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004SUDO")); lf[950]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020chicken-install ")); lf[951]=C_h_intern(&lf[951],29, C_text("chicken.tcp#tcp-write-timeout")); lf[952]=C_h_intern(&lf[952],28, C_text("chicken.tcp#tcp-read-timeout")); lf[953]=C_h_intern(&lf[953],31, C_text("chicken.tcp#tcp-connect-timeout")); lf[954]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026CHICKEN_INSTALL_PREFIX")); lf[955]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017chicken-install")); lf[956]=C_h_intern(&lf[956],39, C_text("chicken.platform#system-cache-directory")); lf[957]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021CHICKEN_EGG_CACHE")); lf[958]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011/chicken/")); lf[959]=C_h_intern(&lf[959],20, C_text("##sys#fixnum->string")); lf[960]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011/chicken/")); lf[961]=C_h_intern(&lf[961],19, C_text("##sys#peek-c-string")); lf[962]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[963]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[964]=C_h_intern(&lf[964],30, C_text("chicken.platform#software-type")); lf[965]=C_h_intern_kw(&lf[965],13, C_text("cross-chicken")); lf[966]=C_h_intern(&lf[966],30, C_text("##sys#register-compiled-module")); C_register_lf2(lf,967,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6745,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[1599] = { {C_text("f23132:chicken_2dinstall_2escm"),(void*)f23132}, {C_text("f23138:chicken_2dinstall_2escm"),(void*)f23138}, {C_text("f23144:chicken_2dinstall_2escm"),(void*)f23144}, {C_text("f23150:chicken_2dinstall_2escm"),(void*)f23150}, {C_text("f23169:chicken_2dinstall_2escm"),(void*)f23169}, {C_text("f23175:chicken_2dinstall_2escm"),(void*)f23175}, {C_text("f23181:chicken_2dinstall_2escm"),(void*)f23181}, {C_text("f23187:chicken_2dinstall_2escm"),(void*)f23187}, {C_text("f23193:chicken_2dinstall_2escm"),(void*)f23193}, {C_text("f23199:chicken_2dinstall_2escm"),(void*)f23199}, {C_text("f23205:chicken_2dinstall_2escm"),(void*)f23205}, {C_text("f23211:chicken_2dinstall_2escm"),(void*)f23211}, {C_text("f23219:chicken_2dinstall_2escm"),(void*)f23219}, {C_text("f23227:chicken_2dinstall_2escm"),(void*)f23227}, {C_text("f23233:chicken_2dinstall_2escm"),(void*)f23233}, {C_text("f23239:chicken_2dinstall_2escm"),(void*)f23239}, {C_text("f23245:chicken_2dinstall_2escm"),(void*)f23245}, {C_text("f23251:chicken_2dinstall_2escm"),(void*)f23251}, {C_text("f23257:chicken_2dinstall_2escm"),(void*)f23257}, {C_text("f23263:chicken_2dinstall_2escm"),(void*)f23263}, {C_text("f23269:chicken_2dinstall_2escm"),(void*)f23269}, {C_text("f23291:chicken_2dinstall_2escm"),(void*)f23291}, {C_text("f23299:chicken_2dinstall_2escm"),(void*)f23299}, {C_text("f23305:chicken_2dinstall_2escm"),(void*)f23305}, {C_text("f23315:chicken_2dinstall_2escm"),(void*)f23315}, {C_text("f23319:chicken_2dinstall_2escm"),(void*)f23319}, {C_text("f23361:chicken_2dinstall_2escm"),(void*)f23361}, {C_text("f23378:chicken_2dinstall_2escm"),(void*)f23378}, {C_text("f23387:chicken_2dinstall_2escm"),(void*)f23387}, {C_text("f23404:chicken_2dinstall_2escm"),(void*)f23404}, {C_text("f23413:chicken_2dinstall_2escm"),(void*)f23413}, {C_text("f23424:chicken_2dinstall_2escm"),(void*)f23424}, {C_text("f23431:chicken_2dinstall_2escm"),(void*)f23431}, {C_text("f23480:chicken_2dinstall_2escm"),(void*)f23480}, {C_text("f23493:chicken_2dinstall_2escm"),(void*)f23493}, {C_text("f23498:chicken_2dinstall_2escm"),(void*)f23498}, {C_text("f23505:chicken_2dinstall_2escm"),(void*)f23505}, {C_text("f23510:chicken_2dinstall_2escm"),(void*)f23510}, {C_text("f_10002:chicken_2dinstall_2escm"),(void*)f_10002}, {C_text("f_10015:chicken_2dinstall_2escm"),(void*)f_10015}, {C_text("f_10035:chicken_2dinstall_2escm"),(void*)f_10035}, {C_text("f_10043:chicken_2dinstall_2escm"),(void*)f_10043}, {C_text("f_10066:chicken_2dinstall_2escm"),(void*)f_10066}, {C_text("f_10076:chicken_2dinstall_2escm"),(void*)f_10076}, {C_text("f_10079:chicken_2dinstall_2escm"),(void*)f_10079}, {C_text("f_10085:chicken_2dinstall_2escm"),(void*)f_10085}, {C_text("f_10101:chicken_2dinstall_2escm"),(void*)f_10101}, {C_text("f_10109:chicken_2dinstall_2escm"),(void*)f_10109}, {C_text("f_10119:chicken_2dinstall_2escm"),(void*)f_10119}, {C_text("f_10132:chicken_2dinstall_2escm"),(void*)f_10132}, {C_text("f_10179:chicken_2dinstall_2escm"),(void*)f_10179}, {C_text("f_10201:chicken_2dinstall_2escm"),(void*)f_10201}, {C_text("f_10221:chicken_2dinstall_2escm"),(void*)f_10221}, {C_text("f_10231:chicken_2dinstall_2escm"),(void*)f_10231}, {C_text("f_10257:chicken_2dinstall_2escm"),(void*)f_10257}, {C_text("f_10261:chicken_2dinstall_2escm"),(void*)f_10261}, {C_text("f_10265:chicken_2dinstall_2escm"),(void*)f_10265}, {C_text("f_10275:chicken_2dinstall_2escm"),(void*)f_10275}, {C_text("f_10277:chicken_2dinstall_2escm"),(void*)f_10277}, {C_text("f_10302:chicken_2dinstall_2escm"),(void*)f_10302}, {C_text("f_10311:chicken_2dinstall_2escm"),(void*)f_10311}, {C_text("f_10336:chicken_2dinstall_2escm"),(void*)f_10336}, {C_text("f_10356:chicken_2dinstall_2escm"),(void*)f_10356}, {C_text("f_10371:chicken_2dinstall_2escm"),(void*)f_10371}, {C_text("f_10375:chicken_2dinstall_2escm"),(void*)f_10375}, {C_text("f_10385:chicken_2dinstall_2escm"),(void*)f_10385}, {C_text("f_10397:chicken_2dinstall_2escm"),(void*)f_10397}, {C_text("f_10409:chicken_2dinstall_2escm"),(void*)f_10409}, {C_text("f_10413:chicken_2dinstall_2escm"),(void*)f_10413}, {C_text("f_10423:chicken_2dinstall_2escm"),(void*)f_10423}, {C_text("f_10427:chicken_2dinstall_2escm"),(void*)f_10427}, {C_text("f_10444:chicken_2dinstall_2escm"),(void*)f_10444}, {C_text("f_10446:chicken_2dinstall_2escm"),(void*)f_10446}, {C_text("f_10471:chicken_2dinstall_2escm"),(void*)f_10471}, {C_text("f_10488:chicken_2dinstall_2escm"),(void*)f_10488}, {C_text("f_10499:chicken_2dinstall_2escm"),(void*)f_10499}, {C_text("f_10501:chicken_2dinstall_2escm"),(void*)f_10501}, {C_text("f_10526:chicken_2dinstall_2escm"),(void*)f_10526}, {C_text("f_10543:chicken_2dinstall_2escm"),(void*)f_10543}, {C_text("f_10554:chicken_2dinstall_2escm"),(void*)f_10554}, {C_text("f_10556:chicken_2dinstall_2escm"),(void*)f_10556}, {C_text("f_10581:chicken_2dinstall_2escm"),(void*)f_10581}, {C_text("f_10617:chicken_2dinstall_2escm"),(void*)f_10617}, {C_text("f_10642:chicken_2dinstall_2escm"),(void*)f_10642}, {C_text("f_10652:chicken_2dinstall_2escm"),(void*)f_10652}, {C_text("f_10684:chicken_2dinstall_2escm"),(void*)f_10684}, {C_text("f_10694:chicken_2dinstall_2escm"),(void*)f_10694}, {C_text("f_10735:chicken_2dinstall_2escm"),(void*)f_10735}, {C_text("f_10749:chicken_2dinstall_2escm"),(void*)f_10749}, {C_text("f_10753:chicken_2dinstall_2escm"),(void*)f_10753}, {C_text("f_10763:chicken_2dinstall_2escm"),(void*)f_10763}, {C_text("f_10774:chicken_2dinstall_2escm"),(void*)f_10774}, {C_text("f_10776:chicken_2dinstall_2escm"),(void*)f_10776}, {C_text("f_10801:chicken_2dinstall_2escm"),(void*)f_10801}, {C_text("f_10817:chicken_2dinstall_2escm"),(void*)f_10817}, {C_text("f_10831:chicken_2dinstall_2escm"),(void*)f_10831}, {C_text("f_10843:chicken_2dinstall_2escm"),(void*)f_10843}, {C_text("f_10855:chicken_2dinstall_2escm"),(void*)f_10855}, {C_text("f_10868:chicken_2dinstall_2escm"),(void*)f_10868}, {C_text("f_10878:chicken_2dinstall_2escm"),(void*)f_10878}, {C_text("f_10897:chicken_2dinstall_2escm"),(void*)f_10897}, {C_text("f_10908:chicken_2dinstall_2escm"),(void*)f_10908}, {C_text("f_10918:chicken_2dinstall_2escm"),(void*)f_10918}, {C_text("f_10946:chicken_2dinstall_2escm"),(void*)f_10946}, {C_text("f_10967:chicken_2dinstall_2escm"),(void*)f_10967}, {C_text("f_10986:chicken_2dinstall_2escm"),(void*)f_10986}, {C_text("f_10996:chicken_2dinstall_2escm"),(void*)f_10996}, {C_text("f_11022:chicken_2dinstall_2escm"),(void*)f_11022}, {C_text("f_11032:chicken_2dinstall_2escm"),(void*)f_11032}, {C_text("f_11052:chicken_2dinstall_2escm"),(void*)f_11052}, {C_text("f_11056:chicken_2dinstall_2escm"),(void*)f_11056}, {C_text("f_11059:chicken_2dinstall_2escm"),(void*)f_11059}, {C_text("f_11065:chicken_2dinstall_2escm"),(void*)f_11065}, {C_text("f_11068:chicken_2dinstall_2escm"),(void*)f_11068}, {C_text("f_11092:chicken_2dinstall_2escm"),(void*)f_11092}, {C_text("f_11105:chicken_2dinstall_2escm"),(void*)f_11105}, {C_text("f_11118:chicken_2dinstall_2escm"),(void*)f_11118}, {C_text("f_11127:chicken_2dinstall_2escm"),(void*)f_11127}, {C_text("f_11140:chicken_2dinstall_2escm"),(void*)f_11140}, {C_text("f_11146:chicken_2dinstall_2escm"),(void*)f_11146}, {C_text("f_11204:chicken_2dinstall_2escm"),(void*)f_11204}, {C_text("f_11207:chicken_2dinstall_2escm"),(void*)f_11207}, {C_text("f_11210:chicken_2dinstall_2escm"),(void*)f_11210}, {C_text("f_11217:chicken_2dinstall_2escm"),(void*)f_11217}, {C_text("f_11221:chicken_2dinstall_2escm"),(void*)f_11221}, {C_text("f_11225:chicken_2dinstall_2escm"),(void*)f_11225}, {C_text("f_11248:chicken_2dinstall_2escm"),(void*)f_11248}, {C_text("f_11263:chicken_2dinstall_2escm"),(void*)f_11263}, {C_text("f_11278:chicken_2dinstall_2escm"),(void*)f_11278}, {C_text("f_11293:chicken_2dinstall_2escm"),(void*)f_11293}, {C_text("f_11308:chicken_2dinstall_2escm"),(void*)f_11308}, {C_text("f_11310:chicken_2dinstall_2escm"),(void*)f_11310}, {C_text("f_11335:chicken_2dinstall_2escm"),(void*)f_11335}, {C_text("f_11344:chicken_2dinstall_2escm"),(void*)f_11344}, {C_text("f_11369:chicken_2dinstall_2escm"),(void*)f_11369}, {C_text("f_11378:chicken_2dinstall_2escm"),(void*)f_11378}, {C_text("f_11403:chicken_2dinstall_2escm"),(void*)f_11403}, {C_text("f_11412:chicken_2dinstall_2escm"),(void*)f_11412}, {C_text("f_11437:chicken_2dinstall_2escm"),(void*)f_11437}, {C_text("f_11446:chicken_2dinstall_2escm"),(void*)f_11446}, {C_text("f_11460:chicken_2dinstall_2escm"),(void*)f_11460}, {C_text("f_11464:chicken_2dinstall_2escm"),(void*)f_11464}, {C_text("f_11468:chicken_2dinstall_2escm"),(void*)f_11468}, {C_text("f_11472:chicken_2dinstall_2escm"),(void*)f_11472}, {C_text("f_11486:chicken_2dinstall_2escm"),(void*)f_11486}, {C_text("f_11498:chicken_2dinstall_2escm"),(void*)f_11498}, {C_text("f_11503:chicken_2dinstall_2escm"),(void*)f_11503}, {C_text("f_11507:chicken_2dinstall_2escm"),(void*)f_11507}, {C_text("f_11523:chicken_2dinstall_2escm"),(void*)f_11523}, {C_text("f_11548:chicken_2dinstall_2escm"),(void*)f_11548}, {C_text("f_11559:chicken_2dinstall_2escm"),(void*)f_11559}, {C_text("f_11575:chicken_2dinstall_2escm"),(void*)f_11575}, {C_text("f_11600:chicken_2dinstall_2escm"),(void*)f_11600}, {C_text("f_11627:chicken_2dinstall_2escm"),(void*)f_11627}, {C_text("f_11637:chicken_2dinstall_2escm"),(void*)f_11637}, {C_text("f_11645:chicken_2dinstall_2escm"),(void*)f_11645}, {C_text("f_11653:chicken_2dinstall_2escm"),(void*)f_11653}, {C_text("f_11667:chicken_2dinstall_2escm"),(void*)f_11667}, {C_text("f_11671:chicken_2dinstall_2escm"),(void*)f_11671}, {C_text("f_11675:chicken_2dinstall_2escm"),(void*)f_11675}, {C_text("f_11682:chicken_2dinstall_2escm"),(void*)f_11682}, {C_text("f_11698:chicken_2dinstall_2escm"),(void*)f_11698}, {C_text("f_11723:chicken_2dinstall_2escm"),(void*)f_11723}, {C_text("f_11740:chicken_2dinstall_2escm"),(void*)f_11740}, {C_text("f_11756:chicken_2dinstall_2escm"),(void*)f_11756}, {C_text("f_11768:chicken_2dinstall_2escm"),(void*)f_11768}, {C_text("f_11795:chicken_2dinstall_2escm"),(void*)f_11795}, {C_text("f_11809:chicken_2dinstall_2escm"),(void*)f_11809}, {C_text("f_11819:chicken_2dinstall_2escm"),(void*)f_11819}, {C_text("f_11844:chicken_2dinstall_2escm"),(void*)f_11844}, {C_text("f_11858:chicken_2dinstall_2escm"),(void*)f_11858}, {C_text("f_11868:chicken_2dinstall_2escm"),(void*)f_11868}, {C_text("f_11885:chicken_2dinstall_2escm"),(void*)f_11885}, {C_text("f_11889:chicken_2dinstall_2escm"),(void*)f_11889}, {C_text("f_11894:chicken_2dinstall_2escm"),(void*)f_11894}, {C_text("f_11906:chicken_2dinstall_2escm"),(void*)f_11906}, {C_text("f_11920:chicken_2dinstall_2escm"),(void*)f_11920}, {C_text("f_11922:chicken_2dinstall_2escm"),(void*)f_11922}, {C_text("f_11947:chicken_2dinstall_2escm"),(void*)f_11947}, {C_text("f_11956:chicken_2dinstall_2escm"),(void*)f_11956}, {C_text("f_11966:chicken_2dinstall_2escm"),(void*)f_11966}, {C_text("f_11979:chicken_2dinstall_2escm"),(void*)f_11979}, {C_text("f_11992:chicken_2dinstall_2escm"),(void*)f_11992}, {C_text("f_12011:chicken_2dinstall_2escm"),(void*)f_12011}, {C_text("f_12015:chicken_2dinstall_2escm"),(void*)f_12015}, {C_text("f_12018:chicken_2dinstall_2escm"),(void*)f_12018}, {C_text("f_12021:chicken_2dinstall_2escm"),(void*)f_12021}, {C_text("f_12024:chicken_2dinstall_2escm"),(void*)f_12024}, {C_text("f_12027:chicken_2dinstall_2escm"),(void*)f_12027}, {C_text("f_12030:chicken_2dinstall_2escm"),(void*)f_12030}, {C_text("f_12033:chicken_2dinstall_2escm"),(void*)f_12033}, {C_text("f_12036:chicken_2dinstall_2escm"),(void*)f_12036}, {C_text("f_12039:chicken_2dinstall_2escm"),(void*)f_12039}, {C_text("f_12042:chicken_2dinstall_2escm"),(void*)f_12042}, {C_text("f_12045:chicken_2dinstall_2escm"),(void*)f_12045}, {C_text("f_12048:chicken_2dinstall_2escm"),(void*)f_12048}, {C_text("f_12051:chicken_2dinstall_2escm"),(void*)f_12051}, {C_text("f_12054:chicken_2dinstall_2escm"),(void*)f_12054}, {C_text("f_12063:chicken_2dinstall_2escm"),(void*)f_12063}, {C_text("f_12070:chicken_2dinstall_2escm"),(void*)f_12070}, {C_text("f_12074:chicken_2dinstall_2escm"),(void*)f_12074}, {C_text("f_12079:chicken_2dinstall_2escm"),(void*)f_12079}, {C_text("f_12090:chicken_2dinstall_2escm"),(void*)f_12090}, {C_text("f_12092:chicken_2dinstall_2escm"),(void*)f_12092}, {C_text("f_12117:chicken_2dinstall_2escm"),(void*)f_12117}, {C_text("f_12128:chicken_2dinstall_2escm"),(void*)f_12128}, {C_text("f_12132:chicken_2dinstall_2escm"),(void*)f_12132}, {C_text("f_12136:chicken_2dinstall_2escm"),(void*)f_12136}, {C_text("f_12144:chicken_2dinstall_2escm"),(void*)f_12144}, {C_text("f_12156:chicken_2dinstall_2escm"),(void*)f_12156}, {C_text("f_12166:chicken_2dinstall_2escm"),(void*)f_12166}, {C_text("f_12191:chicken_2dinstall_2escm"),(void*)f_12191}, {C_text("f_12195:chicken_2dinstall_2escm"),(void*)f_12195}, {C_text("f_12203:chicken_2dinstall_2escm"),(void*)f_12203}, {C_text("f_12207:chicken_2dinstall_2escm"),(void*)f_12207}, {C_text("f_12219:chicken_2dinstall_2escm"),(void*)f_12219}, {C_text("f_12242:chicken_2dinstall_2escm"),(void*)f_12242}, {C_text("f_12246:chicken_2dinstall_2escm"),(void*)f_12246}, {C_text("f_12250:chicken_2dinstall_2escm"),(void*)f_12250}, {C_text("f_12254:chicken_2dinstall_2escm"),(void*)f_12254}, {C_text("f_12258:chicken_2dinstall_2escm"),(void*)f_12258}, {C_text("f_12262:chicken_2dinstall_2escm"),(void*)f_12262}, {C_text("f_12267:chicken_2dinstall_2escm"),(void*)f_12267}, {C_text("f_12270:chicken_2dinstall_2escm"),(void*)f_12270}, {C_text("f_12283:chicken_2dinstall_2escm"),(void*)f_12283}, {C_text("f_12286:chicken_2dinstall_2escm"),(void*)f_12286}, {C_text("f_12311:chicken_2dinstall_2escm"),(void*)f_12311}, {C_text("f_12315:chicken_2dinstall_2escm"),(void*)f_12315}, {C_text("f_12318:chicken_2dinstall_2escm"),(void*)f_12318}, {C_text("f_12321:chicken_2dinstall_2escm"),(void*)f_12321}, {C_text("f_12324:chicken_2dinstall_2escm"),(void*)f_12324}, {C_text("f_12327:chicken_2dinstall_2escm"),(void*)f_12327}, {C_text("f_12330:chicken_2dinstall_2escm"),(void*)f_12330}, {C_text("f_12333:chicken_2dinstall_2escm"),(void*)f_12333}, {C_text("f_12337:chicken_2dinstall_2escm"),(void*)f_12337}, {C_text("f_12345:chicken_2dinstall_2escm"),(void*)f_12345}, {C_text("f_12355:chicken_2dinstall_2escm"),(void*)f_12355}, {C_text("f_12358:chicken_2dinstall_2escm"),(void*)f_12358}, {C_text("f_12361:chicken_2dinstall_2escm"),(void*)f_12361}, {C_text("f_12364:chicken_2dinstall_2escm"),(void*)f_12364}, {C_text("f_12371:chicken_2dinstall_2escm"),(void*)f_12371}, {C_text("f_12375:chicken_2dinstall_2escm"),(void*)f_12375}, {C_text("f_12379:chicken_2dinstall_2escm"),(void*)f_12379}, {C_text("f_12387:chicken_2dinstall_2escm"),(void*)f_12387}, {C_text("f_12391:chicken_2dinstall_2escm"),(void*)f_12391}, {C_text("f_12403:chicken_2dinstall_2escm"),(void*)f_12403}, {C_text("f_12407:chicken_2dinstall_2escm"),(void*)f_12407}, {C_text("f_12411:chicken_2dinstall_2escm"),(void*)f_12411}, {C_text("f_12434:chicken_2dinstall_2escm"),(void*)f_12434}, {C_text("f_12442:chicken_2dinstall_2escm"),(void*)f_12442}, {C_text("f_12446:chicken_2dinstall_2escm"),(void*)f_12446}, {C_text("f_12452:chicken_2dinstall_2escm"),(void*)f_12452}, {C_text("f_12454:chicken_2dinstall_2escm"),(void*)f_12454}, {C_text("f_12479:chicken_2dinstall_2escm"),(void*)f_12479}, {C_text("f_12488:chicken_2dinstall_2escm"),(void*)f_12488}, {C_text("f_12513:chicken_2dinstall_2escm"),(void*)f_12513}, {C_text("f_12524:chicken_2dinstall_2escm"),(void*)f_12524}, {C_text("f_12531:chicken_2dinstall_2escm"),(void*)f_12531}, {C_text("f_12535:chicken_2dinstall_2escm"),(void*)f_12535}, {C_text("f_12543:chicken_2dinstall_2escm"),(void*)f_12543}, {C_text("f_12566:chicken_2dinstall_2escm"),(void*)f_12566}, {C_text("f_12570:chicken_2dinstall_2escm"),(void*)f_12570}, {C_text("f_12574:chicken_2dinstall_2escm"),(void*)f_12574}, {C_text("f_12578:chicken_2dinstall_2escm"),(void*)f_12578}, {C_text("f_12582:chicken_2dinstall_2escm"),(void*)f_12582}, {C_text("f_12587:chicken_2dinstall_2escm"),(void*)f_12587}, {C_text("f_12590:chicken_2dinstall_2escm"),(void*)f_12590}, {C_text("f_12593:chicken_2dinstall_2escm"),(void*)f_12593}, {C_text("f_12603:chicken_2dinstall_2escm"),(void*)f_12603}, {C_text("f_12606:chicken_2dinstall_2escm"),(void*)f_12606}, {C_text("f_12607:chicken_2dinstall_2escm"),(void*)f_12607}, {C_text("f_12611:chicken_2dinstall_2escm"),(void*)f_12611}, {C_text("f_12614:chicken_2dinstall_2escm"),(void*)f_12614}, {C_text("f_12620:chicken_2dinstall_2escm"),(void*)f_12620}, {C_text("f_12623:chicken_2dinstall_2escm"),(void*)f_12623}, {C_text("f_12626:chicken_2dinstall_2escm"),(void*)f_12626}, {C_text("f_12633:chicken_2dinstall_2escm"),(void*)f_12633}, {C_text("f_12637:chicken_2dinstall_2escm"),(void*)f_12637}, {C_text("f_12649:chicken_2dinstall_2escm"),(void*)f_12649}, {C_text("f_12653:chicken_2dinstall_2escm"),(void*)f_12653}, {C_text("f_12660:chicken_2dinstall_2escm"),(void*)f_12660}, {C_text("f_12664:chicken_2dinstall_2escm"),(void*)f_12664}, {C_text("f_12668:chicken_2dinstall_2escm"),(void*)f_12668}, {C_text("f_12673:chicken_2dinstall_2escm"),(void*)f_12673}, {C_text("f_12676:chicken_2dinstall_2escm"),(void*)f_12676}, {C_text("f_12679:chicken_2dinstall_2escm"),(void*)f_12679}, {C_text("f_12692:chicken_2dinstall_2escm"),(void*)f_12692}, {C_text("f_12699:chicken_2dinstall_2escm"),(void*)f_12699}, {C_text("f_12703:chicken_2dinstall_2escm"),(void*)f_12703}, {C_text("f_12706:chicken_2dinstall_2escm"),(void*)f_12706}, {C_text("f_12709:chicken_2dinstall_2escm"),(void*)f_12709}, {C_text("f_12715:chicken_2dinstall_2escm"),(void*)f_12715}, {C_text("f_12718:chicken_2dinstall_2escm"),(void*)f_12718}, {C_text("f_12721:chicken_2dinstall_2escm"),(void*)f_12721}, {C_text("f_12724:chicken_2dinstall_2escm"),(void*)f_12724}, {C_text("f_12727:chicken_2dinstall_2escm"),(void*)f_12727}, {C_text("f_12734:chicken_2dinstall_2escm"),(void*)f_12734}, {C_text("f_12738:chicken_2dinstall_2escm"),(void*)f_12738}, {C_text("f_12742:chicken_2dinstall_2escm"),(void*)f_12742}, {C_text("f_12754:chicken_2dinstall_2escm"),(void*)f_12754}, {C_text("f_12764:chicken_2dinstall_2escm"),(void*)f_12764}, {C_text("f_12771:chicken_2dinstall_2escm"),(void*)f_12771}, {C_text("f_12775:chicken_2dinstall_2escm"),(void*)f_12775}, {C_text("f_12789:chicken_2dinstall_2escm"),(void*)f_12789}, {C_text("f_12794:chicken_2dinstall_2escm"),(void*)f_12794}, {C_text("f_12797:chicken_2dinstall_2escm"),(void*)f_12797}, {C_text("f_12810:chicken_2dinstall_2escm"),(void*)f_12810}, {C_text("f_12820:chicken_2dinstall_2escm"),(void*)f_12820}, {C_text("f_12824:chicken_2dinstall_2escm"),(void*)f_12824}, {C_text("f_12830:chicken_2dinstall_2escm"),(void*)f_12830}, {C_text("f_12833:chicken_2dinstall_2escm"),(void*)f_12833}, {C_text("f_12836:chicken_2dinstall_2escm"),(void*)f_12836}, {C_text("f_12839:chicken_2dinstall_2escm"),(void*)f_12839}, {C_text("f_12842:chicken_2dinstall_2escm"),(void*)f_12842}, {C_text("f_12845:chicken_2dinstall_2escm"),(void*)f_12845}, {C_text("f_12852:chicken_2dinstall_2escm"),(void*)f_12852}, {C_text("f_12856:chicken_2dinstall_2escm"),(void*)f_12856}, {C_text("f_12864:chicken_2dinstall_2escm"),(void*)f_12864}, {C_text("f_12872:chicken_2dinstall_2escm"),(void*)f_12872}, {C_text("f_12882:chicken_2dinstall_2escm"),(void*)f_12882}, {C_text("f_12889:chicken_2dinstall_2escm"),(void*)f_12889}, {C_text("f_12893:chicken_2dinstall_2escm"),(void*)f_12893}, {C_text("f_12907:chicken_2dinstall_2escm"),(void*)f_12907}, {C_text("f_12912:chicken_2dinstall_2escm"),(void*)f_12912}, {C_text("f_12915:chicken_2dinstall_2escm"),(void*)f_12915}, {C_text("f_12925:chicken_2dinstall_2escm"),(void*)f_12925}, {C_text("f_12928:chicken_2dinstall_2escm"),(void*)f_12928}, {C_text("f_12941:chicken_2dinstall_2escm"),(void*)f_12941}, {C_text("f_12945:chicken_2dinstall_2escm"),(void*)f_12945}, {C_text("f_12948:chicken_2dinstall_2escm"),(void*)f_12948}, {C_text("f_12954:chicken_2dinstall_2escm"),(void*)f_12954}, {C_text("f_12958:chicken_2dinstall_2escm"),(void*)f_12958}, {C_text("f_12966:chicken_2dinstall_2escm"),(void*)f_12966}, {C_text("f_12976:chicken_2dinstall_2escm"),(void*)f_12976}, {C_text("f_12979:chicken_2dinstall_2escm"),(void*)f_12979}, {C_text("f_12982:chicken_2dinstall_2escm"),(void*)f_12982}, {C_text("f_12985:chicken_2dinstall_2escm"),(void*)f_12985}, {C_text("f_12992:chicken_2dinstall_2escm"),(void*)f_12992}, {C_text("f_12996:chicken_2dinstall_2escm"),(void*)f_12996}, {C_text("f_13004:chicken_2dinstall_2escm"),(void*)f_13004}, {C_text("f_13008:chicken_2dinstall_2escm"),(void*)f_13008}, {C_text("f_13020:chicken_2dinstall_2escm"),(void*)f_13020}, {C_text("f_13024:chicken_2dinstall_2escm"),(void*)f_13024}, {C_text("f_13028:chicken_2dinstall_2escm"),(void*)f_13028}, {C_text("f_13038:chicken_2dinstall_2escm"),(void*)f_13038}, {C_text("f_13043:chicken_2dinstall_2escm"),(void*)f_13043}, {C_text("f_13068:chicken_2dinstall_2escm"),(void*)f_13068}, {C_text("f_13079:chicken_2dinstall_2escm"),(void*)f_13079}, {C_text("f_13083:chicken_2dinstall_2escm"),(void*)f_13083}, {C_text("f_13094:chicken_2dinstall_2escm"),(void*)f_13094}, {C_text("f_13099:chicken_2dinstall_2escm"),(void*)f_13099}, {C_text("f_13102:chicken_2dinstall_2escm"),(void*)f_13102}, {C_text("f_13105:chicken_2dinstall_2escm"),(void*)f_13105}, {C_text("f_13112:chicken_2dinstall_2escm"),(void*)f_13112}, {C_text("f_13115:chicken_2dinstall_2escm"),(void*)f_13115}, {C_text("f_13131:chicken_2dinstall_2escm"),(void*)f_13131}, {C_text("f_13135:chicken_2dinstall_2escm"),(void*)f_13135}, {C_text("f_13138:chicken_2dinstall_2escm"),(void*)f_13138}, {C_text("f_13144:chicken_2dinstall_2escm"),(void*)f_13144}, {C_text("f_13148:chicken_2dinstall_2escm"),(void*)f_13148}, {C_text("f_13156:chicken_2dinstall_2escm"),(void*)f_13156}, {C_text("f_13166:chicken_2dinstall_2escm"),(void*)f_13166}, {C_text("f_13169:chicken_2dinstall_2escm"),(void*)f_13169}, {C_text("f_13172:chicken_2dinstall_2escm"),(void*)f_13172}, {C_text("f_13175:chicken_2dinstall_2escm"),(void*)f_13175}, {C_text("f_13182:chicken_2dinstall_2escm"),(void*)f_13182}, {C_text("f_13186:chicken_2dinstall_2escm"),(void*)f_13186}, {C_text("f_13194:chicken_2dinstall_2escm"),(void*)f_13194}, {C_text("f_13198:chicken_2dinstall_2escm"),(void*)f_13198}, {C_text("f_13210:chicken_2dinstall_2escm"),(void*)f_13210}, {C_text("f_13214:chicken_2dinstall_2escm"),(void*)f_13214}, {C_text("f_13218:chicken_2dinstall_2escm"),(void*)f_13218}, {C_text("f_13228:chicken_2dinstall_2escm"),(void*)f_13228}, {C_text("f_13233:chicken_2dinstall_2escm"),(void*)f_13233}, {C_text("f_13258:chicken_2dinstall_2escm"),(void*)f_13258}, {C_text("f_13269:chicken_2dinstall_2escm"),(void*)f_13269}, {C_text("f_13273:chicken_2dinstall_2escm"),(void*)f_13273}, {C_text("f_13284:chicken_2dinstall_2escm"),(void*)f_13284}, {C_text("f_13289:chicken_2dinstall_2escm"),(void*)f_13289}, {C_text("f_13292:chicken_2dinstall_2escm"),(void*)f_13292}, {C_text("f_13295:chicken_2dinstall_2escm"),(void*)f_13295}, {C_text("f_13309:chicken_2dinstall_2escm"),(void*)f_13309}, {C_text("f_13313:chicken_2dinstall_2escm"),(void*)f_13313}, {C_text("f_13316:chicken_2dinstall_2escm"),(void*)f_13316}, {C_text("f_13319:chicken_2dinstall_2escm"),(void*)f_13319}, {C_text("f_13322:chicken_2dinstall_2escm"),(void*)f_13322}, {C_text("f_13329:chicken_2dinstall_2escm"),(void*)f_13329}, {C_text("f_13333:chicken_2dinstall_2escm"),(void*)f_13333}, {C_text("f_13337:chicken_2dinstall_2escm"),(void*)f_13337}, {C_text("f_13345:chicken_2dinstall_2escm"),(void*)f_13345}, {C_text("f_13347:chicken_2dinstall_2escm"),(void*)f_13347}, {C_text("f_13358:chicken_2dinstall_2escm"),(void*)f_13358}, {C_text("f_13362:chicken_2dinstall_2escm"),(void*)f_13362}, {C_text("f_13371:chicken_2dinstall_2escm"),(void*)f_13371}, {C_text("f_13374:chicken_2dinstall_2escm"),(void*)f_13374}, {C_text("f_13377:chicken_2dinstall_2escm"),(void*)f_13377}, {C_text("f_13380:chicken_2dinstall_2escm"),(void*)f_13380}, {C_text("f_13383:chicken_2dinstall_2escm"),(void*)f_13383}, {C_text("f_13386:chicken_2dinstall_2escm"),(void*)f_13386}, {C_text("f_13389:chicken_2dinstall_2escm"),(void*)f_13389}, {C_text("f_13392:chicken_2dinstall_2escm"),(void*)f_13392}, {C_text("f_13395:chicken_2dinstall_2escm"),(void*)f_13395}, {C_text("f_13402:chicken_2dinstall_2escm"),(void*)f_13402}, {C_text("f_13406:chicken_2dinstall_2escm"),(void*)f_13406}, {C_text("f_13410:chicken_2dinstall_2escm"),(void*)f_13410}, {C_text("f_13414:chicken_2dinstall_2escm"),(void*)f_13414}, {C_text("f_13418:chicken_2dinstall_2escm"),(void*)f_13418}, {C_text("f_13422:chicken_2dinstall_2escm"),(void*)f_13422}, {C_text("f_13426:chicken_2dinstall_2escm"),(void*)f_13426}, {C_text("f_13437:chicken_2dinstall_2escm"),(void*)f_13437}, {C_text("f_13444:chicken_2dinstall_2escm"),(void*)f_13444}, {C_text("f_13448:chicken_2dinstall_2escm"),(void*)f_13448}, {C_text("f_13452:chicken_2dinstall_2escm"),(void*)f_13452}, {C_text("f_13461:chicken_2dinstall_2escm"),(void*)f_13461}, {C_text("f_13464:chicken_2dinstall_2escm"),(void*)f_13464}, {C_text("f_13467:chicken_2dinstall_2escm"),(void*)f_13467}, {C_text("f_13470:chicken_2dinstall_2escm"),(void*)f_13470}, {C_text("f_13473:chicken_2dinstall_2escm"),(void*)f_13473}, {C_text("f_13476:chicken_2dinstall_2escm"),(void*)f_13476}, {C_text("f_13479:chicken_2dinstall_2escm"),(void*)f_13479}, {C_text("f_13482:chicken_2dinstall_2escm"),(void*)f_13482}, {C_text("f_13485:chicken_2dinstall_2escm"),(void*)f_13485}, {C_text("f_13498:chicken_2dinstall_2escm"),(void*)f_13498}, {C_text("f_13502:chicken_2dinstall_2escm"),(void*)f_13502}, {C_text("f_13506:chicken_2dinstall_2escm"),(void*)f_13506}, {C_text("f_13508:chicken_2dinstall_2escm"),(void*)f_13508}, {C_text("f_13511:chicken_2dinstall_2escm"),(void*)f_13511}, {C_text("f_13516:chicken_2dinstall_2escm"),(void*)f_13516}, {C_text("f_13520:chicken_2dinstall_2escm"),(void*)f_13520}, {C_text("f_13525:chicken_2dinstall_2escm"),(void*)f_13525}, {C_text("f_13530:chicken_2dinstall_2escm"),(void*)f_13530}, {C_text("f_13534:chicken_2dinstall_2escm"),(void*)f_13534}, {C_text("f_13540:chicken_2dinstall_2escm"),(void*)f_13540}, {C_text("f_13543:chicken_2dinstall_2escm"),(void*)f_13543}, {C_text("f_13546:chicken_2dinstall_2escm"),(void*)f_13546}, {C_text("f_13549:chicken_2dinstall_2escm"),(void*)f_13549}, {C_text("f_13552:chicken_2dinstall_2escm"),(void*)f_13552}, {C_text("f_13555:chicken_2dinstall_2escm"),(void*)f_13555}, {C_text("f_13558:chicken_2dinstall_2escm"),(void*)f_13558}, {C_text("f_13565:chicken_2dinstall_2escm"),(void*)f_13565}, {C_text("f_13569:chicken_2dinstall_2escm"),(void*)f_13569}, {C_text("f_13573:chicken_2dinstall_2escm"),(void*)f_13573}, {C_text("f_13577:chicken_2dinstall_2escm"),(void*)f_13577}, {C_text("f_13579:chicken_2dinstall_2escm"),(void*)f_13579}, {C_text("f_13587:chicken_2dinstall_2escm"),(void*)f_13587}, {C_text("f_13591:chicken_2dinstall_2escm"),(void*)f_13591}, {C_text("f_13597:chicken_2dinstall_2escm"),(void*)f_13597}, {C_text("f_13600:chicken_2dinstall_2escm"),(void*)f_13600}, {C_text("f_13603:chicken_2dinstall_2escm"),(void*)f_13603}, {C_text("f_13606:chicken_2dinstall_2escm"),(void*)f_13606}, {C_text("f_13609:chicken_2dinstall_2escm"),(void*)f_13609}, {C_text("f_13612:chicken_2dinstall_2escm"),(void*)f_13612}, {C_text("f_13619:chicken_2dinstall_2escm"),(void*)f_13619}, {C_text("f_13623:chicken_2dinstall_2escm"),(void*)f_13623}, {C_text("f_13627:chicken_2dinstall_2escm"),(void*)f_13627}, {C_text("f_13631:chicken_2dinstall_2escm"),(void*)f_13631}, {C_text("f_13633:chicken_2dinstall_2escm"),(void*)f_13633}, {C_text("f_13641:chicken_2dinstall_2escm"),(void*)f_13641}, {C_text("f_13645:chicken_2dinstall_2escm"),(void*)f_13645}, {C_text("f_13651:chicken_2dinstall_2escm"),(void*)f_13651}, {C_text("f_13654:chicken_2dinstall_2escm"),(void*)f_13654}, {C_text("f_13657:chicken_2dinstall_2escm"),(void*)f_13657}, {C_text("f_13660:chicken_2dinstall_2escm"),(void*)f_13660}, {C_text("f_13663:chicken_2dinstall_2escm"),(void*)f_13663}, {C_text("f_13666:chicken_2dinstall_2escm"),(void*)f_13666}, {C_text("f_13673:chicken_2dinstall_2escm"),(void*)f_13673}, {C_text("f_13677:chicken_2dinstall_2escm"),(void*)f_13677}, {C_text("f_13681:chicken_2dinstall_2escm"),(void*)f_13681}, {C_text("f_13685:chicken_2dinstall_2escm"),(void*)f_13685}, {C_text("f_13687:chicken_2dinstall_2escm"),(void*)f_13687}, {C_text("f_13695:chicken_2dinstall_2escm"),(void*)f_13695}, {C_text("f_13699:chicken_2dinstall_2escm"),(void*)f_13699}, {C_text("f_13711:chicken_2dinstall_2escm"),(void*)f_13711}, {C_text("f_13714:chicken_2dinstall_2escm"),(void*)f_13714}, {C_text("f_13717:chicken_2dinstall_2escm"),(void*)f_13717}, {C_text("f_13720:chicken_2dinstall_2escm"),(void*)f_13720}, {C_text("f_13723:chicken_2dinstall_2escm"),(void*)f_13723}, {C_text("f_13726:chicken_2dinstall_2escm"),(void*)f_13726}, {C_text("f_13729:chicken_2dinstall_2escm"),(void*)f_13729}, {C_text("f_13732:chicken_2dinstall_2escm"),(void*)f_13732}, {C_text("f_13735:chicken_2dinstall_2escm"),(void*)f_13735}, {C_text("f_13748:chicken_2dinstall_2escm"),(void*)f_13748}, {C_text("f_13758:chicken_2dinstall_2escm"),(void*)f_13758}, {C_text("f_13762:chicken_2dinstall_2escm"),(void*)f_13762}, {C_text("f_13764:chicken_2dinstall_2escm"),(void*)f_13764}, {C_text("f_13768:chicken_2dinstall_2escm"),(void*)f_13768}, {C_text("f_13774:chicken_2dinstall_2escm"),(void*)f_13774}, {C_text("f_13781:chicken_2dinstall_2escm"),(void*)f_13781}, {C_text("f_13791:chicken_2dinstall_2escm"),(void*)f_13791}, {C_text("f_13794:chicken_2dinstall_2escm"),(void*)f_13794}, {C_text("f_13797:chicken_2dinstall_2escm"),(void*)f_13797}, {C_text("f_13800:chicken_2dinstall_2escm"),(void*)f_13800}, {C_text("f_13805:chicken_2dinstall_2escm"),(void*)f_13805}, {C_text("f_13811:chicken_2dinstall_2escm"),(void*)f_13811}, {C_text("f_13813:chicken_2dinstall_2escm"),(void*)f_13813}, {C_text("f_13817:chicken_2dinstall_2escm"),(void*)f_13817}, {C_text("f_13820:chicken_2dinstall_2escm"),(void*)f_13820}, {C_text("f_13823:chicken_2dinstall_2escm"),(void*)f_13823}, {C_text("f_13826:chicken_2dinstall_2escm"),(void*)f_13826}, {C_text("f_13833:chicken_2dinstall_2escm"),(void*)f_13833}, {C_text("f_13837:chicken_2dinstall_2escm"),(void*)f_13837}, {C_text("f_13844:chicken_2dinstall_2escm"),(void*)f_13844}, {C_text("f_13851:chicken_2dinstall_2escm"),(void*)f_13851}, {C_text("f_13855:chicken_2dinstall_2escm"),(void*)f_13855}, {C_text("f_13861:chicken_2dinstall_2escm"),(void*)f_13861}, {C_text("f_13868:chicken_2dinstall_2escm"),(void*)f_13868}, {C_text("f_13872:chicken_2dinstall_2escm"),(void*)f_13872}, {C_text("f_13875:chicken_2dinstall_2escm"),(void*)f_13875}, {C_text("f_13878:chicken_2dinstall_2escm"),(void*)f_13878}, {C_text("f_13881:chicken_2dinstall_2escm"),(void*)f_13881}, {C_text("f_13888:chicken_2dinstall_2escm"),(void*)f_13888}, {C_text("f_13892:chicken_2dinstall_2escm"),(void*)f_13892}, {C_text("f_13899:chicken_2dinstall_2escm"),(void*)f_13899}, {C_text("f_13906:chicken_2dinstall_2escm"),(void*)f_13906}, {C_text("f_13910:chicken_2dinstall_2escm"),(void*)f_13910}, {C_text("f_13915:chicken_2dinstall_2escm"),(void*)f_13915}, {C_text("f_13925:chicken_2dinstall_2escm"),(void*)f_13925}, {C_text("f_13938:chicken_2dinstall_2escm"),(void*)f_13938}, {C_text("f_13948:chicken_2dinstall_2escm"),(void*)f_13948}, {C_text("f_13961:chicken_2dinstall_2escm"),(void*)f_13961}, {C_text("f_13986:chicken_2dinstall_2escm"),(void*)f_13986}, {C_text("f_13995:chicken_2dinstall_2escm"),(void*)f_13995}, {C_text("f_14006:chicken_2dinstall_2escm"),(void*)f_14006}, {C_text("f_14014:chicken_2dinstall_2escm"),(void*)f_14014}, {C_text("f_14025:chicken_2dinstall_2escm"),(void*)f_14025}, {C_text("f_14039:chicken_2dinstall_2escm"),(void*)f_14039}, {C_text("f_14047:chicken_2dinstall_2escm"),(void*)f_14047}, {C_text("f_14058:chicken_2dinstall_2escm"),(void*)f_14058}, {C_text("f_14064:chicken_2dinstall_2escm"),(void*)f_14064}, {C_text("f_14069:chicken_2dinstall_2escm"),(void*)f_14069}, {C_text("f_14075:chicken_2dinstall_2escm"),(void*)f_14075}, {C_text("f_14079:chicken_2dinstall_2escm"),(void*)f_14079}, {C_text("f_14082:chicken_2dinstall_2escm"),(void*)f_14082}, {C_text("f_14083:chicken_2dinstall_2escm"),(void*)f_14083}, {C_text("f_14093:chicken_2dinstall_2escm"),(void*)f_14093}, {C_text("f_14098:chicken_2dinstall_2escm"),(void*)f_14098}, {C_text("f_14108:chicken_2dinstall_2escm"),(void*)f_14108}, {C_text("f_14127:chicken_2dinstall_2escm"),(void*)f_14127}, {C_text("f_14129:chicken_2dinstall_2escm"),(void*)f_14129}, {C_text("f_14134:chicken_2dinstall_2escm"),(void*)f_14134}, {C_text("f_14136:chicken_2dinstall_2escm"),(void*)f_14136}, {C_text("f_14149:chicken_2dinstall_2escm"),(void*)f_14149}, {C_text("f_14152:chicken_2dinstall_2escm"),(void*)f_14152}, {C_text("f_14155:chicken_2dinstall_2escm"),(void*)f_14155}, {C_text("f_14158:chicken_2dinstall_2escm"),(void*)f_14158}, {C_text("f_14161:chicken_2dinstall_2escm"),(void*)f_14161}, {C_text("f_14164:chicken_2dinstall_2escm"),(void*)f_14164}, {C_text("f_14167:chicken_2dinstall_2escm"),(void*)f_14167}, {C_text("f_14170:chicken_2dinstall_2escm"),(void*)f_14170}, {C_text("f_14173:chicken_2dinstall_2escm"),(void*)f_14173}, {C_text("f_14176:chicken_2dinstall_2escm"),(void*)f_14176}, {C_text("f_14179:chicken_2dinstall_2escm"),(void*)f_14179}, {C_text("f_14182:chicken_2dinstall_2escm"),(void*)f_14182}, {C_text("f_14189:chicken_2dinstall_2escm"),(void*)f_14189}, {C_text("f_14193:chicken_2dinstall_2escm"),(void*)f_14193}, {C_text("f_14197:chicken_2dinstall_2escm"),(void*)f_14197}, {C_text("f_14201:chicken_2dinstall_2escm"),(void*)f_14201}, {C_text("f_14205:chicken_2dinstall_2escm"),(void*)f_14205}, {C_text("f_14217:chicken_2dinstall_2escm"),(void*)f_14217}, {C_text("f_14220:chicken_2dinstall_2escm"),(void*)f_14220}, {C_text("f_14223:chicken_2dinstall_2escm"),(void*)f_14223}, {C_text("f_14226:chicken_2dinstall_2escm"),(void*)f_14226}, {C_text("f_14229:chicken_2dinstall_2escm"),(void*)f_14229}, {C_text("f_14232:chicken_2dinstall_2escm"),(void*)f_14232}, {C_text("f_14235:chicken_2dinstall_2escm"),(void*)f_14235}, {C_text("f_14238:chicken_2dinstall_2escm"),(void*)f_14238}, {C_text("f_14241:chicken_2dinstall_2escm"),(void*)f_14241}, {C_text("f_14244:chicken_2dinstall_2escm"),(void*)f_14244}, {C_text("f_14247:chicken_2dinstall_2escm"),(void*)f_14247}, {C_text("f_14250:chicken_2dinstall_2escm"),(void*)f_14250}, {C_text("f_14257:chicken_2dinstall_2escm"),(void*)f_14257}, {C_text("f_14261:chicken_2dinstall_2escm"),(void*)f_14261}, {C_text("f_14265:chicken_2dinstall_2escm"),(void*)f_14265}, {C_text("f_14269:chicken_2dinstall_2escm"),(void*)f_14269}, {C_text("f_14273:chicken_2dinstall_2escm"),(void*)f_14273}, {C_text("f_14279:chicken_2dinstall_2escm"),(void*)f_14279}, {C_text("f_14281:chicken_2dinstall_2escm"),(void*)f_14281}, {C_text("f_14306:chicken_2dinstall_2escm"),(void*)f_14306}, {C_text("f_14308:chicken_2dinstall_2escm"),(void*)f_14308}, {C_text("f_14321:chicken_2dinstall_2escm"),(void*)f_14321}, {C_text("f_14324:chicken_2dinstall_2escm"),(void*)f_14324}, {C_text("f_14339:chicken_2dinstall_2escm"),(void*)f_14339}, {C_text("f_14348:chicken_2dinstall_2escm"),(void*)f_14348}, {C_text("f_14350:chicken_2dinstall_2escm"),(void*)f_14350}, {C_text("f_14354:chicken_2dinstall_2escm"),(void*)f_14354}, {C_text("f_14363:chicken_2dinstall_2escm"),(void*)f_14363}, {C_text("f_14366:chicken_2dinstall_2escm"),(void*)f_14366}, {C_text("f_14369:chicken_2dinstall_2escm"),(void*)f_14369}, {C_text("f_14372:chicken_2dinstall_2escm"),(void*)f_14372}, {C_text("f_14384:chicken_2dinstall_2escm"),(void*)f_14384}, {C_text("f_14387:chicken_2dinstall_2escm"),(void*)f_14387}, {C_text("f_14390:chicken_2dinstall_2escm"),(void*)f_14390}, {C_text("f_14393:chicken_2dinstall_2escm"),(void*)f_14393}, {C_text("f_14396:chicken_2dinstall_2escm"),(void*)f_14396}, {C_text("f_14399:chicken_2dinstall_2escm"),(void*)f_14399}, {C_text("f_14402:chicken_2dinstall_2escm"),(void*)f_14402}, {C_text("f_14405:chicken_2dinstall_2escm"),(void*)f_14405}, {C_text("f_14408:chicken_2dinstall_2escm"),(void*)f_14408}, {C_text("f_14411:chicken_2dinstall_2escm"),(void*)f_14411}, {C_text("f_14414:chicken_2dinstall_2escm"),(void*)f_14414}, {C_text("f_14417:chicken_2dinstall_2escm"),(void*)f_14417}, {C_text("f_14420:chicken_2dinstall_2escm"),(void*)f_14420}, {C_text("f_14423:chicken_2dinstall_2escm"),(void*)f_14423}, {C_text("f_14426:chicken_2dinstall_2escm"),(void*)f_14426}, {C_text("f_14429:chicken_2dinstall_2escm"),(void*)f_14429}, {C_text("f_14444:chicken_2dinstall_2escm"),(void*)f_14444}, {C_text("f_14447:chicken_2dinstall_2escm"),(void*)f_14447}, {C_text("f_14450:chicken_2dinstall_2escm"),(void*)f_14450}, {C_text("f_14453:chicken_2dinstall_2escm"),(void*)f_14453}, {C_text("f_14456:chicken_2dinstall_2escm"),(void*)f_14456}, {C_text("f_14459:chicken_2dinstall_2escm"),(void*)f_14459}, {C_text("f_14462:chicken_2dinstall_2escm"),(void*)f_14462}, {C_text("f_14465:chicken_2dinstall_2escm"),(void*)f_14465}, {C_text("f_14468:chicken_2dinstall_2escm"),(void*)f_14468}, {C_text("f_14471:chicken_2dinstall_2escm"),(void*)f_14471}, {C_text("f_14478:chicken_2dinstall_2escm"),(void*)f_14478}, {C_text("f_14482:chicken_2dinstall_2escm"),(void*)f_14482}, {C_text("f_14490:chicken_2dinstall_2escm"),(void*)f_14490}, {C_text("f_14492:chicken_2dinstall_2escm"),(void*)f_14492}, {C_text("f_14498:chicken_2dinstall_2escm"),(void*)f_14498}, {C_text("f_14505:chicken_2dinstall_2escm"),(void*)f_14505}, {C_text("f_14508:chicken_2dinstall_2escm"),(void*)f_14508}, {C_text("f_14529:chicken_2dinstall_2escm"),(void*)f_14529}, {C_text("f_14554:chicken_2dinstall_2escm"),(void*)f_14554}, {C_text("f_14557:chicken_2dinstall_2escm"),(void*)f_14557}, {C_text("f_14559:chicken_2dinstall_2escm"),(void*)f_14559}, {C_text("f_14593:chicken_2dinstall_2escm"),(void*)f_14593}, {C_text("f_14601:chicken_2dinstall_2escm"),(void*)f_14601}, {C_text("f_14603:chicken_2dinstall_2escm"),(void*)f_14603}, {C_text("f_14611:chicken_2dinstall_2escm"),(void*)f_14611}, {C_text("f_14614:chicken_2dinstall_2escm"),(void*)f_14614}, {C_text("f_14645:chicken_2dinstall_2escm"),(void*)f_14645}, {C_text("f_14654:chicken_2dinstall_2escm"),(void*)f_14654}, {C_text("f_14662:chicken_2dinstall_2escm"),(void*)f_14662}, {C_text("f_14668:chicken_2dinstall_2escm"),(void*)f_14668}, {C_text("f_14670:chicken_2dinstall_2escm"),(void*)f_14670}, {C_text("f_14695:chicken_2dinstall_2escm"),(void*)f_14695}, {C_text("f_14704:chicken_2dinstall_2escm"),(void*)f_14704}, {C_text("f_14713:chicken_2dinstall_2escm"),(void*)f_14713}, {C_text("f_14723:chicken_2dinstall_2escm"),(void*)f_14723}, {C_text("f_14725:chicken_2dinstall_2escm"),(void*)f_14725}, {C_text("f_14750:chicken_2dinstall_2escm"),(void*)f_14750}, {C_text("f_14759:chicken_2dinstall_2escm"),(void*)f_14759}, {C_text("f_14796:chicken_2dinstall_2escm"),(void*)f_14796}, {C_text("f_14807:chicken_2dinstall_2escm"),(void*)f_14807}, {C_text("f_14831:chicken_2dinstall_2escm"),(void*)f_14831}, {C_text("f_14838:chicken_2dinstall_2escm"),(void*)f_14838}, {C_text("f_14843:chicken_2dinstall_2escm"),(void*)f_14843}, {C_text("f_14872:chicken_2dinstall_2escm"),(void*)f_14872}, {C_text("f_14875:chicken_2dinstall_2escm"),(void*)f_14875}, {C_text("f_14878:chicken_2dinstall_2escm"),(void*)f_14878}, {C_text("f_14882:chicken_2dinstall_2escm"),(void*)f_14882}, {C_text("f_14884:chicken_2dinstall_2escm"),(void*)f_14884}, {C_text("f_14888:chicken_2dinstall_2escm"),(void*)f_14888}, {C_text("f_14895:chicken_2dinstall_2escm"),(void*)f_14895}, {C_text("f_14899:chicken_2dinstall_2escm"),(void*)f_14899}, {C_text("f_14903:chicken_2dinstall_2escm"),(void*)f_14903}, {C_text("f_14912:chicken_2dinstall_2escm"),(void*)f_14912}, {C_text("f_14915:chicken_2dinstall_2escm"),(void*)f_14915}, {C_text("f_14918:chicken_2dinstall_2escm"),(void*)f_14918}, {C_text("f_14938:chicken_2dinstall_2escm"),(void*)f_14938}, {C_text("f_14944:chicken_2dinstall_2escm"),(void*)f_14944}, {C_text("f_14956:chicken_2dinstall_2escm"),(void*)f_14956}, {C_text("f_14962:chicken_2dinstall_2escm"),(void*)f_14962}, {C_text("f_14966:chicken_2dinstall_2escm"),(void*)f_14966}, {C_text("f_14971:chicken_2dinstall_2escm"),(void*)f_14971}, {C_text("f_14975:chicken_2dinstall_2escm"),(void*)f_14975}, {C_text("f_14980:chicken_2dinstall_2escm"),(void*)f_14980}, {C_text("f_14994:chicken_2dinstall_2escm"),(void*)f_14994}, {C_text("f_14998:chicken_2dinstall_2escm"),(void*)f_14998}, {C_text("f_15001:chicken_2dinstall_2escm"),(void*)f_15001}, {C_text("f_15004:chicken_2dinstall_2escm"),(void*)f_15004}, {C_text("f_15007:chicken_2dinstall_2escm"),(void*)f_15007}, {C_text("f_15010:chicken_2dinstall_2escm"),(void*)f_15010}, {C_text("f_15013:chicken_2dinstall_2escm"),(void*)f_15013}, {C_text("f_15016:chicken_2dinstall_2escm"),(void*)f_15016}, {C_text("f_15019:chicken_2dinstall_2escm"),(void*)f_15019}, {C_text("f_15022:chicken_2dinstall_2escm"),(void*)f_15022}, {C_text("f_15031:chicken_2dinstall_2escm"),(void*)f_15031}, {C_text("f_15034:chicken_2dinstall_2escm"),(void*)f_15034}, {C_text("f_15037:chicken_2dinstall_2escm"),(void*)f_15037}, {C_text("f_15041:chicken_2dinstall_2escm"),(void*)f_15041}, {C_text("f_15044:chicken_2dinstall_2escm"),(void*)f_15044}, {C_text("f_15049:chicken_2dinstall_2escm"),(void*)f_15049}, {C_text("f_15055:chicken_2dinstall_2escm"),(void*)f_15055}, {C_text("f_15061:chicken_2dinstall_2escm"),(void*)f_15061}, {C_text("f_15067:chicken_2dinstall_2escm"),(void*)f_15067}, {C_text("f_15074:chicken_2dinstall_2escm"),(void*)f_15074}, {C_text("f_15079:chicken_2dinstall_2escm"),(void*)f_15079}, {C_text("f_15083:chicken_2dinstall_2escm"),(void*)f_15083}, {C_text("f_15095:chicken_2dinstall_2escm"),(void*)f_15095}, {C_text("f_15101:chicken_2dinstall_2escm"),(void*)f_15101}, {C_text("f_15105:chicken_2dinstall_2escm"),(void*)f_15105}, {C_text("f_15109:chicken_2dinstall_2escm"),(void*)f_15109}, {C_text("f_15118:chicken_2dinstall_2escm"),(void*)f_15118}, {C_text("f_15121:chicken_2dinstall_2escm"),(void*)f_15121}, {C_text("f_15127:chicken_2dinstall_2escm"),(void*)f_15127}, {C_text("f_15130:chicken_2dinstall_2escm"),(void*)f_15130}, {C_text("f_15133:chicken_2dinstall_2escm"),(void*)f_15133}, {C_text("f_15136:chicken_2dinstall_2escm"),(void*)f_15136}, {C_text("f_15139:chicken_2dinstall_2escm"),(void*)f_15139}, {C_text("f_15148:chicken_2dinstall_2escm"),(void*)f_15148}, {C_text("f_15150:chicken_2dinstall_2escm"),(void*)f_15150}, {C_text("f_15154:chicken_2dinstall_2escm"),(void*)f_15154}, {C_text("f_15163:chicken_2dinstall_2escm"),(void*)f_15163}, {C_text("f_15169:chicken_2dinstall_2escm"),(void*)f_15169}, {C_text("f_15173:chicken_2dinstall_2escm"),(void*)f_15173}, {C_text("f_15177:chicken_2dinstall_2escm"),(void*)f_15177}, {C_text("f_15195:chicken_2dinstall_2escm"),(void*)f_15195}, {C_text("f_15198:chicken_2dinstall_2escm"),(void*)f_15198}, {C_text("f_15218:chicken_2dinstall_2escm"),(void*)f_15218}, {C_text("f_15227:chicken_2dinstall_2escm"),(void*)f_15227}, {C_text("f_15241:chicken_2dinstall_2escm"),(void*)f_15241}, {C_text("f_15245:chicken_2dinstall_2escm"),(void*)f_15245}, {C_text("f_15248:chicken_2dinstall_2escm"),(void*)f_15248}, {C_text("f_15254:chicken_2dinstall_2escm"),(void*)f_15254}, {C_text("f_15276:chicken_2dinstall_2escm"),(void*)f_15276}, {C_text("f_15279:chicken_2dinstall_2escm"),(void*)f_15279}, {C_text("f_15294:chicken_2dinstall_2escm"),(void*)f_15294}, {C_text("f_15297:chicken_2dinstall_2escm"),(void*)f_15297}, {C_text("f_15300:chicken_2dinstall_2escm"),(void*)f_15300}, {C_text("f_15307:chicken_2dinstall_2escm"),(void*)f_15307}, {C_text("f_15310:chicken_2dinstall_2escm"),(void*)f_15310}, {C_text("f_15313:chicken_2dinstall_2escm"),(void*)f_15313}, {C_text("f_15316:chicken_2dinstall_2escm"),(void*)f_15316}, {C_text("f_15319:chicken_2dinstall_2escm"),(void*)f_15319}, {C_text("f_15330:chicken_2dinstall_2escm"),(void*)f_15330}, {C_text("f_15332:chicken_2dinstall_2escm"),(void*)f_15332}, {C_text("f_15357:chicken_2dinstall_2escm"),(void*)f_15357}, {C_text("f_15360:chicken_2dinstall_2escm"),(void*)f_15360}, {C_text("f_15363:chicken_2dinstall_2escm"),(void*)f_15363}, {C_text("f_15373:chicken_2dinstall_2escm"),(void*)f_15373}, {C_text("f_15377:chicken_2dinstall_2escm"),(void*)f_15377}, {C_text("f_15381:chicken_2dinstall_2escm"),(void*)f_15381}, {C_text("f_15385:chicken_2dinstall_2escm"),(void*)f_15385}, {C_text("f_15393:chicken_2dinstall_2escm"),(void*)f_15393}, {C_text("f_15397:chicken_2dinstall_2escm"),(void*)f_15397}, {C_text("f_15413:chicken_2dinstall_2escm"),(void*)f_15413}, {C_text("f_15420:chicken_2dinstall_2escm"),(void*)f_15420}, {C_text("f_15423:chicken_2dinstall_2escm"),(void*)f_15423}, {C_text("f_15426:chicken_2dinstall_2escm"),(void*)f_15426}, {C_text("f_15429:chicken_2dinstall_2escm"),(void*)f_15429}, {C_text("f_15440:chicken_2dinstall_2escm"),(void*)f_15440}, {C_text("f_15454:chicken_2dinstall_2escm"),(void*)f_15454}, {C_text("f_15465:chicken_2dinstall_2escm"),(void*)f_15465}, {C_text("f_15469:chicken_2dinstall_2escm"),(void*)f_15469}, {C_text("f_15482:chicken_2dinstall_2escm"),(void*)f_15482}, {C_text("f_15492:chicken_2dinstall_2escm"),(void*)f_15492}, {C_text("f_15494:chicken_2dinstall_2escm"),(void*)f_15494}, {C_text("f_15498:chicken_2dinstall_2escm"),(void*)f_15498}, {C_text("f_15501:chicken_2dinstall_2escm"),(void*)f_15501}, {C_text("f_15504:chicken_2dinstall_2escm"),(void*)f_15504}, {C_text("f_15507:chicken_2dinstall_2escm"),(void*)f_15507}, {C_text("f_15523:chicken_2dinstall_2escm"),(void*)f_15523}, {C_text("f_15527:chicken_2dinstall_2escm"),(void*)f_15527}, {C_text("f_15535:chicken_2dinstall_2escm"),(void*)f_15535}, {C_text("f_15538:chicken_2dinstall_2escm"),(void*)f_15538}, {C_text("f_15541:chicken_2dinstall_2escm"),(void*)f_15541}, {C_text("f_15544:chicken_2dinstall_2escm"),(void*)f_15544}, {C_text("f_15555:chicken_2dinstall_2escm"),(void*)f_15555}, {C_text("f_15559:chicken_2dinstall_2escm"),(void*)f_15559}, {C_text("f_15563:chicken_2dinstall_2escm"),(void*)f_15563}, {C_text("f_15571:chicken_2dinstall_2escm"),(void*)f_15571}, {C_text("f_15577:chicken_2dinstall_2escm"),(void*)f_15577}, {C_text("f_15581:chicken_2dinstall_2escm"),(void*)f_15581}, {C_text("f_15584:chicken_2dinstall_2escm"),(void*)f_15584}, {C_text("f_15589:chicken_2dinstall_2escm"),(void*)f_15589}, {C_text("f_15602:chicken_2dinstall_2escm"),(void*)f_15602}, {C_text("f_15605:chicken_2dinstall_2escm"),(void*)f_15605}, {C_text("f_15610:chicken_2dinstall_2escm"),(void*)f_15610}, {C_text("f_15616:chicken_2dinstall_2escm"),(void*)f_15616}, {C_text("f_15622:chicken_2dinstall_2escm"),(void*)f_15622}, {C_text("f_15632:chicken_2dinstall_2escm"),(void*)f_15632}, {C_text("f_15635:chicken_2dinstall_2escm"),(void*)f_15635}, {C_text("f_15641:chicken_2dinstall_2escm"),(void*)f_15641}, {C_text("f_15644:chicken_2dinstall_2escm"),(void*)f_15644}, {C_text("f_15650:chicken_2dinstall_2escm"),(void*)f_15650}, {C_text("f_15653:chicken_2dinstall_2escm"),(void*)f_15653}, {C_text("f_15656:chicken_2dinstall_2escm"),(void*)f_15656}, {C_text("f_15694:chicken_2dinstall_2escm"),(void*)f_15694}, {C_text("f_15700:chicken_2dinstall_2escm"),(void*)f_15700}, {C_text("f_15706:chicken_2dinstall_2escm"),(void*)f_15706}, {C_text("f_15712:chicken_2dinstall_2escm"),(void*)f_15712}, {C_text("f_15742:chicken_2dinstall_2escm"),(void*)f_15742}, {C_text("f_15748:chicken_2dinstall_2escm"),(void*)f_15748}, {C_text("f_15752:chicken_2dinstall_2escm"),(void*)f_15752}, {C_text("f_15755:chicken_2dinstall_2escm"),(void*)f_15755}, {C_text("f_15769:chicken_2dinstall_2escm"),(void*)f_15769}, {C_text("f_15800:chicken_2dinstall_2escm"),(void*)f_15800}, {C_text("f_15803:chicken_2dinstall_2escm"),(void*)f_15803}, {C_text("f_15808:chicken_2dinstall_2escm"),(void*)f_15808}, {C_text("f_15814:chicken_2dinstall_2escm"),(void*)f_15814}, {C_text("f_15820:chicken_2dinstall_2escm"),(void*)f_15820}, {C_text("f_15830:chicken_2dinstall_2escm"),(void*)f_15830}, {C_text("f_15833:chicken_2dinstall_2escm"),(void*)f_15833}, {C_text("f_15842:chicken_2dinstall_2escm"),(void*)f_15842}, {C_text("f_15845:chicken_2dinstall_2escm"),(void*)f_15845}, {C_text("f_15854:chicken_2dinstall_2escm"),(void*)f_15854}, {C_text("f_15857:chicken_2dinstall_2escm"),(void*)f_15857}, {C_text("f_15860:chicken_2dinstall_2escm"),(void*)f_15860}, {C_text("f_15901:chicken_2dinstall_2escm"),(void*)f_15901}, {C_text("f_15907:chicken_2dinstall_2escm"),(void*)f_15907}, {C_text("f_15913:chicken_2dinstall_2escm"),(void*)f_15913}, {C_text("f_15919:chicken_2dinstall_2escm"),(void*)f_15919}, {C_text("f_15953:chicken_2dinstall_2escm"),(void*)f_15953}, {C_text("f_15985:chicken_2dinstall_2escm"),(void*)f_15985}, {C_text("f_15993:chicken_2dinstall_2escm"),(void*)f_15993}, {C_text("f_16011:chicken_2dinstall_2escm"),(void*)f_16011}, {C_text("f_16031:chicken_2dinstall_2escm"),(void*)f_16031}, {C_text("f_16051:chicken_2dinstall_2escm"),(void*)f_16051}, {C_text("f_16073:chicken_2dinstall_2escm"),(void*)f_16073}, {C_text("f_16082:chicken_2dinstall_2escm"),(void*)f_16082}, {C_text("f_16112:chicken_2dinstall_2escm"),(void*)f_16112}, {C_text("f_16136:chicken_2dinstall_2escm"),(void*)f_16136}, {C_text("f_16140:chicken_2dinstall_2escm"),(void*)f_16140}, {C_text("f_16179:chicken_2dinstall_2escm"),(void*)f_16179}, {C_text("f_16182:chicken_2dinstall_2escm"),(void*)f_16182}, {C_text("f_16184:chicken_2dinstall_2escm"),(void*)f_16184}, {C_text("f_16194:chicken_2dinstall_2escm"),(void*)f_16194}, {C_text("f_16204:chicken_2dinstall_2escm"),(void*)f_16204}, {C_text("f_16210:chicken_2dinstall_2escm"),(void*)f_16210}, {C_text("f_16217:chicken_2dinstall_2escm"),(void*)f_16217}, {C_text("f_16237:chicken_2dinstall_2escm"),(void*)f_16237}, {C_text("f_16241:chicken_2dinstall_2escm"),(void*)f_16241}, {C_text("f_16251:chicken_2dinstall_2escm"),(void*)f_16251}, {C_text("f_16274:chicken_2dinstall_2escm"),(void*)f_16274}, {C_text("f_16284:chicken_2dinstall_2escm"),(void*)f_16284}, {C_text("f_16305:chicken_2dinstall_2escm"),(void*)f_16305}, {C_text("f_16323:chicken_2dinstall_2escm"),(void*)f_16323}, {C_text("f_16342:chicken_2dinstall_2escm"),(void*)f_16342}, {C_text("f_16442:chicken_2dinstall_2escm"),(void*)f_16442}, {C_text("f_16452:chicken_2dinstall_2escm"),(void*)f_16452}, {C_text("f_16466:chicken_2dinstall_2escm"),(void*)f_16466}, {C_text("f_16486:chicken_2dinstall_2escm"),(void*)f_16486}, {C_text("f_16497:chicken_2dinstall_2escm"),(void*)f_16497}, {C_text("f_16516:chicken_2dinstall_2escm"),(void*)f_16516}, {C_text("f_16519:chicken_2dinstall_2escm"),(void*)f_16519}, {C_text("f_16546:chicken_2dinstall_2escm"),(void*)f_16546}, {C_text("f_16549:chicken_2dinstall_2escm"),(void*)f_16549}, {C_text("f_16558:chicken_2dinstall_2escm"),(void*)f_16558}, {C_text("f_16564:chicken_2dinstall_2escm"),(void*)f_16564}, {C_text("f_16569:chicken_2dinstall_2escm"),(void*)f_16569}, {C_text("f_16594:chicken_2dinstall_2escm"),(void*)f_16594}, {C_text("f_16605:chicken_2dinstall_2escm"),(void*)f_16605}, {C_text("f_16612:chicken_2dinstall_2escm"),(void*)f_16612}, {C_text("f_16616:chicken_2dinstall_2escm"),(void*)f_16616}, {C_text("f_16618:chicken_2dinstall_2escm"),(void*)f_16618}, {C_text("f_16686:chicken_2dinstall_2escm"),(void*)f_16686}, {C_text("f_16724:chicken_2dinstall_2escm"),(void*)f_16724}, {C_text("f_16727:chicken_2dinstall_2escm"),(void*)f_16727}, {C_text("f_16730:chicken_2dinstall_2escm"),(void*)f_16730}, {C_text("f_16732:chicken_2dinstall_2escm"),(void*)f_16732}, {C_text("f_16743:chicken_2dinstall_2escm"),(void*)f_16743}, {C_text("f_16747:chicken_2dinstall_2escm"),(void*)f_16747}, {C_text("f_16778:chicken_2dinstall_2escm"),(void*)f_16778}, {C_text("f_16784:chicken_2dinstall_2escm"),(void*)f_16784}, {C_text("f_16787:chicken_2dinstall_2escm"),(void*)f_16787}, {C_text("f_16790:chicken_2dinstall_2escm"),(void*)f_16790}, {C_text("f_16793:chicken_2dinstall_2escm"),(void*)f_16793}, {C_text("f_16796:chicken_2dinstall_2escm"),(void*)f_16796}, {C_text("f_16799:chicken_2dinstall_2escm"),(void*)f_16799}, {C_text("f_16827:chicken_2dinstall_2escm"),(void*)f_16827}, {C_text("f_16839:chicken_2dinstall_2escm"),(void*)f_16839}, {C_text("f_16844:chicken_2dinstall_2escm"),(void*)f_16844}, {C_text("f_16848:chicken_2dinstall_2escm"),(void*)f_16848}, {C_text("f_16851:chicken_2dinstall_2escm"),(void*)f_16851}, {C_text("f_16856:chicken_2dinstall_2escm"),(void*)f_16856}, {C_text("f_16862:chicken_2dinstall_2escm"),(void*)f_16862}, {C_text("f_16875:chicken_2dinstall_2escm"),(void*)f_16875}, {C_text("f_16886:chicken_2dinstall_2escm"),(void*)f_16886}, {C_text("f_16888:chicken_2dinstall_2escm"),(void*)f_16888}, {C_text("f_16913:chicken_2dinstall_2escm"),(void*)f_16913}, {C_text("f_16930:chicken_2dinstall_2escm"),(void*)f_16930}, {C_text("f_16935:chicken_2dinstall_2escm"),(void*)f_16935}, {C_text("f_16942:chicken_2dinstall_2escm"),(void*)f_16942}, {C_text("f_16978:chicken_2dinstall_2escm"),(void*)f_16978}, {C_text("f_16980:chicken_2dinstall_2escm"),(void*)f_16980}, {C_text("f_17005:chicken_2dinstall_2escm"),(void*)f_17005}, {C_text("f_17022:chicken_2dinstall_2escm"),(void*)f_17022}, {C_text("f_17025:chicken_2dinstall_2escm"),(void*)f_17025}, {C_text("f_17055:chicken_2dinstall_2escm"),(void*)f_17055}, {C_text("f_17067:chicken_2dinstall_2escm"),(void*)f_17067}, {C_text("f_17075:chicken_2dinstall_2escm"),(void*)f_17075}, {C_text("f_17110:chicken_2dinstall_2escm"),(void*)f_17110}, {C_text("f_17118:chicken_2dinstall_2escm"),(void*)f_17118}, {C_text("f_17128:chicken_2dinstall_2escm"),(void*)f_17128}, {C_text("f_17143:chicken_2dinstall_2escm"),(void*)f_17143}, {C_text("f_17146:chicken_2dinstall_2escm"),(void*)f_17146}, {C_text("f_17174:chicken_2dinstall_2escm"),(void*)f_17174}, {C_text("f_17180:chicken_2dinstall_2escm"),(void*)f_17180}, {C_text("f_17187:chicken_2dinstall_2escm"),(void*)f_17187}, {C_text("f_17191:chicken_2dinstall_2escm"),(void*)f_17191}, {C_text("f_17195:chicken_2dinstall_2escm"),(void*)f_17195}, {C_text("f_17200:chicken_2dinstall_2escm"),(void*)f_17200}, {C_text("f_17214:chicken_2dinstall_2escm"),(void*)f_17214}, {C_text("f_17234:chicken_2dinstall_2escm"),(void*)f_17234}, {C_text("f_17237:chicken_2dinstall_2escm"),(void*)f_17237}, {C_text("f_17246:chicken_2dinstall_2escm"),(void*)f_17246}, {C_text("f_17251:chicken_2dinstall_2escm"),(void*)f_17251}, {C_text("f_17254:chicken_2dinstall_2escm"),(void*)f_17254}, {C_text("f_17257:chicken_2dinstall_2escm"),(void*)f_17257}, {C_text("f_17260:chicken_2dinstall_2escm"),(void*)f_17260}, {C_text("f_17271:chicken_2dinstall_2escm"),(void*)f_17271}, {C_text("f_17277:chicken_2dinstall_2escm"),(void*)f_17277}, {C_text("f_17293:chicken_2dinstall_2escm"),(void*)f_17293}, {C_text("f_17295:chicken_2dinstall_2escm"),(void*)f_17295}, {C_text("f_17299:chicken_2dinstall_2escm"),(void*)f_17299}, {C_text("f_17318:chicken_2dinstall_2escm"),(void*)f_17318}, {C_text("f_17343:chicken_2dinstall_2escm"),(void*)f_17343}, {C_text("f_17358:chicken_2dinstall_2escm"),(void*)f_17358}, {C_text("f_17364:chicken_2dinstall_2escm"),(void*)f_17364}, {C_text("f_17378:chicken_2dinstall_2escm"),(void*)f_17378}, {C_text("f_17385:chicken_2dinstall_2escm"),(void*)f_17385}, {C_text("f_17389:chicken_2dinstall_2escm"),(void*)f_17389}, {C_text("f_17412:chicken_2dinstall_2escm"),(void*)f_17412}, {C_text("f_17419:chicken_2dinstall_2escm"),(void*)f_17419}, {C_text("f_17425:chicken_2dinstall_2escm"),(void*)f_17425}, {C_text("f_17428:chicken_2dinstall_2escm"),(void*)f_17428}, {C_text("f_17431:chicken_2dinstall_2escm"),(void*)f_17431}, {C_text("f_17434:chicken_2dinstall_2escm"),(void*)f_17434}, {C_text("f_17437:chicken_2dinstall_2escm"),(void*)f_17437}, {C_text("f_17440:chicken_2dinstall_2escm"),(void*)f_17440}, {C_text("f_17443:chicken_2dinstall_2escm"),(void*)f_17443}, {C_text("f_17446:chicken_2dinstall_2escm"),(void*)f_17446}, {C_text("f_17507:chicken_2dinstall_2escm"),(void*)f_17507}, {C_text("f_17510:chicken_2dinstall_2escm"),(void*)f_17510}, {C_text("f_17513:chicken_2dinstall_2escm"),(void*)f_17513}, {C_text("f_17516:chicken_2dinstall_2escm"),(void*)f_17516}, {C_text("f_17518:chicken_2dinstall_2escm"),(void*)f_17518}, {C_text("f_17522:chicken_2dinstall_2escm"),(void*)f_17522}, {C_text("f_17525:chicken_2dinstall_2escm"),(void*)f_17525}, {C_text("f_17528:chicken_2dinstall_2escm"),(void*)f_17528}, {C_text("f_17533:chicken_2dinstall_2escm"),(void*)f_17533}, {C_text("f_17540:chicken_2dinstall_2escm"),(void*)f_17540}, {C_text("f_17546:chicken_2dinstall_2escm"),(void*)f_17546}, {C_text("f_17549:chicken_2dinstall_2escm"),(void*)f_17549}, {C_text("f_17552:chicken_2dinstall_2escm"),(void*)f_17552}, {C_text("f_17555:chicken_2dinstall_2escm"),(void*)f_17555}, {C_text("f_17561:chicken_2dinstall_2escm"),(void*)f_17561}, {C_text("f_17567:chicken_2dinstall_2escm"),(void*)f_17567}, {C_text("f_17570:chicken_2dinstall_2escm"),(void*)f_17570}, {C_text("f_17573:chicken_2dinstall_2escm"),(void*)f_17573}, {C_text("f_17576:chicken_2dinstall_2escm"),(void*)f_17576}, {C_text("f_17582:chicken_2dinstall_2escm"),(void*)f_17582}, {C_text("f_17591:chicken_2dinstall_2escm"),(void*)f_17591}, {C_text("f_17598:chicken_2dinstall_2escm"),(void*)f_17598}, {C_text("f_17607:chicken_2dinstall_2escm"),(void*)f_17607}, {C_text("f_17619:chicken_2dinstall_2escm"),(void*)f_17619}, {C_text("f_17626:chicken_2dinstall_2escm"),(void*)f_17626}, {C_text("f_17637:chicken_2dinstall_2escm"),(void*)f_17637}, {C_text("f_17641:chicken_2dinstall_2escm"),(void*)f_17641}, {C_text("f_17657:chicken_2dinstall_2escm"),(void*)f_17657}, {C_text("f_17664:chicken_2dinstall_2escm"),(void*)f_17664}, {C_text("f_17670:chicken_2dinstall_2escm"),(void*)f_17670}, {C_text("f_17673:chicken_2dinstall_2escm"),(void*)f_17673}, {C_text("f_17676:chicken_2dinstall_2escm"),(void*)f_17676}, {C_text("f_17688:chicken_2dinstall_2escm"),(void*)f_17688}, {C_text("f_17691:chicken_2dinstall_2escm"),(void*)f_17691}, {C_text("f_17709:chicken_2dinstall_2escm"),(void*)f_17709}, {C_text("f_17720:chicken_2dinstall_2escm"),(void*)f_17720}, {C_text("f_17727:chicken_2dinstall_2escm"),(void*)f_17727}, {C_text("f_17731:chicken_2dinstall_2escm"),(void*)f_17731}, {C_text("f_17733:chicken_2dinstall_2escm"),(void*)f_17733}, {C_text("f_17741:chicken_2dinstall_2escm"),(void*)f_17741}, {C_text("f_17748:chicken_2dinstall_2escm"),(void*)f_17748}, {C_text("f_17762:chicken_2dinstall_2escm"),(void*)f_17762}, {C_text("f_17772:chicken_2dinstall_2escm"),(void*)f_17772}, {C_text("f_17785:chicken_2dinstall_2escm"),(void*)f_17785}, {C_text("f_17787:chicken_2dinstall_2escm"),(void*)f_17787}, {C_text("f_17803:chicken_2dinstall_2escm"),(void*)f_17803}, {C_text("f_17806:chicken_2dinstall_2escm"),(void*)f_17806}, {C_text("f_17812:chicken_2dinstall_2escm"),(void*)f_17812}, {C_text("f_17817:chicken_2dinstall_2escm"),(void*)f_17817}, {C_text("f_17827:chicken_2dinstall_2escm"),(void*)f_17827}, {C_text("f_17834:chicken_2dinstall_2escm"),(void*)f_17834}, {C_text("f_17837:chicken_2dinstall_2escm"),(void*)f_17837}, {C_text("f_17840:chicken_2dinstall_2escm"),(void*)f_17840}, {C_text("f_17847:chicken_2dinstall_2escm"),(void*)f_17847}, {C_text("f_17849:chicken_2dinstall_2escm"),(void*)f_17849}, {C_text("f_17857:chicken_2dinstall_2escm"),(void*)f_17857}, {C_text("f_17864:chicken_2dinstall_2escm"),(void*)f_17864}, {C_text("f_17866:chicken_2dinstall_2escm"),(void*)f_17866}, {C_text("f_17883:chicken_2dinstall_2escm"),(void*)f_17883}, {C_text("f_17908:chicken_2dinstall_2escm"),(void*)f_17908}, {C_text("f_17918:chicken_2dinstall_2escm"),(void*)f_17918}, {C_text("f_17922:chicken_2dinstall_2escm"),(void*)f_17922}, {C_text("f_17926:chicken_2dinstall_2escm"),(void*)f_17926}, {C_text("f_17929:chicken_2dinstall_2escm"),(void*)f_17929}, {C_text("f_17932:chicken_2dinstall_2escm"),(void*)f_17932}, {C_text("f_17944:chicken_2dinstall_2escm"),(void*)f_17944}, {C_text("f_17967:chicken_2dinstall_2escm"),(void*)f_17967}, {C_text("f_17979:chicken_2dinstall_2escm"),(void*)f_17979}, {C_text("f_17985:chicken_2dinstall_2escm"),(void*)f_17985}, {C_text("f_17989:chicken_2dinstall_2escm"),(void*)f_17989}, {C_text("f_17992:chicken_2dinstall_2escm"),(void*)f_17992}, {C_text("f_18003:chicken_2dinstall_2escm"),(void*)f_18003}, {C_text("f_18007:chicken_2dinstall_2escm"),(void*)f_18007}, {C_text("f_18011:chicken_2dinstall_2escm"),(void*)f_18011}, {C_text("f_18019:chicken_2dinstall_2escm"),(void*)f_18019}, {C_text("f_18039:chicken_2dinstall_2escm"),(void*)f_18039}, {C_text("f_18041:chicken_2dinstall_2escm"),(void*)f_18041}, {C_text("f_18051:chicken_2dinstall_2escm"),(void*)f_18051}, {C_text("f_18054:chicken_2dinstall_2escm"),(void*)f_18054}, {C_text("f_18067:chicken_2dinstall_2escm"),(void*)f_18067}, {C_text("f_18075:chicken_2dinstall_2escm"),(void*)f_18075}, {C_text("f_18100:chicken_2dinstall_2escm"),(void*)f_18100}, {C_text("f_18110:chicken_2dinstall_2escm"),(void*)f_18110}, {C_text("f_18114:chicken_2dinstall_2escm"),(void*)f_18114}, {C_text("f_18130:chicken_2dinstall_2escm"),(void*)f_18130}, {C_text("f_18142:chicken_2dinstall_2escm"),(void*)f_18142}, {C_text("f_18146:chicken_2dinstall_2escm"),(void*)f_18146}, {C_text("f_18149:chicken_2dinstall_2escm"),(void*)f_18149}, {C_text("f_18154:chicken_2dinstall_2escm"),(void*)f_18154}, {C_text("f_18164:chicken_2dinstall_2escm"),(void*)f_18164}, {C_text("f_18167:chicken_2dinstall_2escm"),(void*)f_18167}, {C_text("f_18174:chicken_2dinstall_2escm"),(void*)f_18174}, {C_text("f_18178:chicken_2dinstall_2escm"),(void*)f_18178}, {C_text("f_18184:chicken_2dinstall_2escm"),(void*)f_18184}, {C_text("f_18190:chicken_2dinstall_2escm"),(void*)f_18190}, {C_text("f_18200:chicken_2dinstall_2escm"),(void*)f_18200}, {C_text("f_18206:chicken_2dinstall_2escm"),(void*)f_18206}, {C_text("f_18211:chicken_2dinstall_2escm"),(void*)f_18211}, {C_text("f_18232:chicken_2dinstall_2escm"),(void*)f_18232}, {C_text("f_18238:chicken_2dinstall_2escm"),(void*)f_18238}, {C_text("f_18247:chicken_2dinstall_2escm"),(void*)f_18247}, {C_text("f_18256:chicken_2dinstall_2escm"),(void*)f_18256}, {C_text("f_18276:chicken_2dinstall_2escm"),(void*)f_18276}, {C_text("f_18284:chicken_2dinstall_2escm"),(void*)f_18284}, {C_text("f_18288:chicken_2dinstall_2escm"),(void*)f_18288}, {C_text("f_18294:chicken_2dinstall_2escm"),(void*)f_18294}, {C_text("f_18303:chicken_2dinstall_2escm"),(void*)f_18303}, {C_text("f_18309:chicken_2dinstall_2escm"),(void*)f_18309}, {C_text("f_18312:chicken_2dinstall_2escm"),(void*)f_18312}, {C_text("f_18315:chicken_2dinstall_2escm"),(void*)f_18315}, {C_text("f_18323:chicken_2dinstall_2escm"),(void*)f_18323}, {C_text("f_18326:chicken_2dinstall_2escm"),(void*)f_18326}, {C_text("f_18335:chicken_2dinstall_2escm"),(void*)f_18335}, {C_text("f_18340:chicken_2dinstall_2escm"),(void*)f_18340}, {C_text("f_18350:chicken_2dinstall_2escm"),(void*)f_18350}, {C_text("f_18371:chicken_2dinstall_2escm"),(void*)f_18371}, {C_text("f_18390:chicken_2dinstall_2escm"),(void*)f_18390}, {C_text("f_18399:chicken_2dinstall_2escm"),(void*)f_18399}, {C_text("f_18404:chicken_2dinstall_2escm"),(void*)f_18404}, {C_text("f_18410:chicken_2dinstall_2escm"),(void*)f_18410}, {C_text("f_18414:chicken_2dinstall_2escm"),(void*)f_18414}, {C_text("f_18417:chicken_2dinstall_2escm"),(void*)f_18417}, {C_text("f_18431:chicken_2dinstall_2escm"),(void*)f_18431}, {C_text("f_18434:chicken_2dinstall_2escm"),(void*)f_18434}, {C_text("f_18447:chicken_2dinstall_2escm"),(void*)f_18447}, {C_text("f_18457:chicken_2dinstall_2escm"),(void*)f_18457}, {C_text("f_18477:chicken_2dinstall_2escm"),(void*)f_18477}, {C_text("f_18484:chicken_2dinstall_2escm"),(void*)f_18484}, {C_text("f_18487:chicken_2dinstall_2escm"),(void*)f_18487}, {C_text("f_18490:chicken_2dinstall_2escm"),(void*)f_18490}, {C_text("f_18493:chicken_2dinstall_2escm"),(void*)f_18493}, {C_text("f_18496:chicken_2dinstall_2escm"),(void*)f_18496}, {C_text("f_18501:chicken_2dinstall_2escm"),(void*)f_18501}, {C_text("f_18511:chicken_2dinstall_2escm"),(void*)f_18511}, {C_text("f_18516:chicken_2dinstall_2escm"),(void*)f_18516}, {C_text("f_18523:chicken_2dinstall_2escm"),(void*)f_18523}, {C_text("f_18529:chicken_2dinstall_2escm"),(void*)f_18529}, {C_text("f_18532:chicken_2dinstall_2escm"),(void*)f_18532}, {C_text("f_18535:chicken_2dinstall_2escm"),(void*)f_18535}, {C_text("f_18542:chicken_2dinstall_2escm"),(void*)f_18542}, {C_text("f_18557:chicken_2dinstall_2escm"),(void*)f_18557}, {C_text("f_18564:chicken_2dinstall_2escm"),(void*)f_18564}, {C_text("f_18588:chicken_2dinstall_2escm"),(void*)f_18588}, {C_text("f_18594:chicken_2dinstall_2escm"),(void*)f_18594}, {C_text("f_18596:chicken_2dinstall_2escm"),(void*)f_18596}, {C_text("f_18621:chicken_2dinstall_2escm"),(void*)f_18621}, {C_text("f_18638:chicken_2dinstall_2escm"),(void*)f_18638}, {C_text("f_18660:chicken_2dinstall_2escm"),(void*)f_18660}, {C_text("f_18670:chicken_2dinstall_2escm"),(void*)f_18670}, {C_text("f_18683:chicken_2dinstall_2escm"),(void*)f_18683}, {C_text("f_18693:chicken_2dinstall_2escm"),(void*)f_18693}, {C_text("f_18710:chicken_2dinstall_2escm"),(void*)f_18710}, {C_text("f_18711:chicken_2dinstall_2escm"),(void*)f_18711}, {C_text("f_18716:chicken_2dinstall_2escm"),(void*)f_18716}, {C_text("f_18722:chicken_2dinstall_2escm"),(void*)f_18722}, {C_text("f_18727:chicken_2dinstall_2escm"),(void*)f_18727}, {C_text("f_18741:chicken_2dinstall_2escm"),(void*)f_18741}, {C_text("f_18745:chicken_2dinstall_2escm"),(void*)f_18745}, {C_text("f_18750:chicken_2dinstall_2escm"),(void*)f_18750}, {C_text("f_18760:chicken_2dinstall_2escm"),(void*)f_18760}, {C_text("f_18784:chicken_2dinstall_2escm"),(void*)f_18784}, {C_text("f_18794:chicken_2dinstall_2escm"),(void*)f_18794}, {C_text("f_18828:chicken_2dinstall_2escm"),(void*)f_18828}, {C_text("f_18845:chicken_2dinstall_2escm"),(void*)f_18845}, {C_text("f_18855:chicken_2dinstall_2escm"),(void*)f_18855}, {C_text("f_18861:chicken_2dinstall_2escm"),(void*)f_18861}, {C_text("f_18870:chicken_2dinstall_2escm"),(void*)f_18870}, {C_text("f_18892:chicken_2dinstall_2escm"),(void*)f_18892}, {C_text("f_18902:chicken_2dinstall_2escm"),(void*)f_18902}, {C_text("f_18923:chicken_2dinstall_2escm"),(void*)f_18923}, {C_text("f_18951:chicken_2dinstall_2escm"),(void*)f_18951}, {C_text("f_18954:chicken_2dinstall_2escm"),(void*)f_18954}, {C_text("f_18967:chicken_2dinstall_2escm"),(void*)f_18967}, {C_text("f_18983:chicken_2dinstall_2escm"),(void*)f_18983}, {C_text("f_18996:chicken_2dinstall_2escm"),(void*)f_18996}, {C_text("f_19011:chicken_2dinstall_2escm"),(void*)f_19011}, {C_text("f_19015:chicken_2dinstall_2escm"),(void*)f_19015}, {C_text("f_19030:chicken_2dinstall_2escm"),(void*)f_19030}, {C_text("f_19034:chicken_2dinstall_2escm"),(void*)f_19034}, {C_text("f_19045:chicken_2dinstall_2escm"),(void*)f_19045}, {C_text("f_19090:chicken_2dinstall_2escm"),(void*)f_19090}, {C_text("f_19106:chicken_2dinstall_2escm"),(void*)f_19106}, {C_text("f_19109:chicken_2dinstall_2escm"),(void*)f_19109}, {C_text("f_19136:chicken_2dinstall_2escm"),(void*)f_19136}, {C_text("f_19143:chicken_2dinstall_2escm"),(void*)f_19143}, {C_text("f_19147:chicken_2dinstall_2escm"),(void*)f_19147}, {C_text("f_19151:chicken_2dinstall_2escm"),(void*)f_19151}, {C_text("f_19169:chicken_2dinstall_2escm"),(void*)f_19169}, {C_text("f_19177:chicken_2dinstall_2escm"),(void*)f_19177}, {C_text("f_19202:chicken_2dinstall_2escm"),(void*)f_19202}, {C_text("f_19209:chicken_2dinstall_2escm"),(void*)f_19209}, {C_text("f_19264:chicken_2dinstall_2escm"),(void*)f_19264}, {C_text("f_19269:chicken_2dinstall_2escm"),(void*)f_19269}, {C_text("f_19273:chicken_2dinstall_2escm"),(void*)f_19273}, {C_text("f_19276:chicken_2dinstall_2escm"),(void*)f_19276}, {C_text("f_19279:chicken_2dinstall_2escm"),(void*)f_19279}, {C_text("f_19305:chicken_2dinstall_2escm"),(void*)f_19305}, {C_text("f_19309:chicken_2dinstall_2escm"),(void*)f_19309}, {C_text("f_19313:chicken_2dinstall_2escm"),(void*)f_19313}, {C_text("f_19321:chicken_2dinstall_2escm"),(void*)f_19321}, {C_text("f_19323:chicken_2dinstall_2escm"),(void*)f_19323}, {C_text("f_19331:chicken_2dinstall_2escm"),(void*)f_19331}, {C_text("f_19335:chicken_2dinstall_2escm"),(void*)f_19335}, {C_text("f_19338:chicken_2dinstall_2escm"),(void*)f_19338}, {C_text("f_19345:chicken_2dinstall_2escm"),(void*)f_19345}, {C_text("f_19351:chicken_2dinstall_2escm"),(void*)f_19351}, {C_text("f_19354:chicken_2dinstall_2escm"),(void*)f_19354}, {C_text("f_19357:chicken_2dinstall_2escm"),(void*)f_19357}, {C_text("f_19360:chicken_2dinstall_2escm"),(void*)f_19360}, {C_text("f_19363:chicken_2dinstall_2escm"),(void*)f_19363}, {C_text("f_19366:chicken_2dinstall_2escm"),(void*)f_19366}, {C_text("f_19369:chicken_2dinstall_2escm"),(void*)f_19369}, {C_text("f_19372:chicken_2dinstall_2escm"),(void*)f_19372}, {C_text("f_19416:chicken_2dinstall_2escm"),(void*)f_19416}, {C_text("f_19427:chicken_2dinstall_2escm"),(void*)f_19427}, {C_text("f_19440:chicken_2dinstall_2escm"),(void*)f_19440}, {C_text("f_19467:chicken_2dinstall_2escm"),(void*)f_19467}, {C_text("f_19480:chicken_2dinstall_2escm"),(void*)f_19480}, {C_text("f_19484:chicken_2dinstall_2escm"),(void*)f_19484}, {C_text("f_19488:chicken_2dinstall_2escm"),(void*)f_19488}, {C_text("f_19492:chicken_2dinstall_2escm"),(void*)f_19492}, {C_text("f_19496:chicken_2dinstall_2escm"),(void*)f_19496}, {C_text("f_19508:chicken_2dinstall_2escm"),(void*)f_19508}, {C_text("f_19513:chicken_2dinstall_2escm"),(void*)f_19513}, {C_text("f_19529:chicken_2dinstall_2escm"),(void*)f_19529}, {C_text("f_19536:chicken_2dinstall_2escm"),(void*)f_19536}, {C_text("f_19546:chicken_2dinstall_2escm"),(void*)f_19546}, {C_text("f_19549:chicken_2dinstall_2escm"),(void*)f_19549}, {C_text("f_19563:chicken_2dinstall_2escm"),(void*)f_19563}, {C_text("f_19566:chicken_2dinstall_2escm"),(void*)f_19566}, {C_text("f_19577:chicken_2dinstall_2escm"),(void*)f_19577}, {C_text("f_19582:chicken_2dinstall_2escm"),(void*)f_19582}, {C_text("f_19592:chicken_2dinstall_2escm"),(void*)f_19592}, {C_text("f_19611:chicken_2dinstall_2escm"),(void*)f_19611}, {C_text("f_19636:chicken_2dinstall_2escm"),(void*)f_19636}, {C_text("f_19645:chicken_2dinstall_2escm"),(void*)f_19645}, {C_text("f_19657:chicken_2dinstall_2escm"),(void*)f_19657}, {C_text("f_19660:chicken_2dinstall_2escm"),(void*)f_19660}, {C_text("f_19663:chicken_2dinstall_2escm"),(void*)f_19663}, {C_text("f_19666:chicken_2dinstall_2escm"),(void*)f_19666}, {C_text("f_19669:chicken_2dinstall_2escm"),(void*)f_19669}, {C_text("f_19677:chicken_2dinstall_2escm"),(void*)f_19677}, {C_text("f_19683:chicken_2dinstall_2escm"),(void*)f_19683}, {C_text("f_19687:chicken_2dinstall_2escm"),(void*)f_19687}, {C_text("f_19690:chicken_2dinstall_2escm"),(void*)f_19690}, {C_text("f_19693:chicken_2dinstall_2escm"),(void*)f_19693}, {C_text("f_19696:chicken_2dinstall_2escm"),(void*)f_19696}, {C_text("f_19705:chicken_2dinstall_2escm"),(void*)f_19705}, {C_text("f_19708:chicken_2dinstall_2escm"),(void*)f_19708}, {C_text("f_19717:chicken_2dinstall_2escm"),(void*)f_19717}, {C_text("f_19727:chicken_2dinstall_2escm"),(void*)f_19727}, {C_text("f_19731:chicken_2dinstall_2escm"),(void*)f_19731}, {C_text("f_19735:chicken_2dinstall_2escm"),(void*)f_19735}, {C_text("f_19739:chicken_2dinstall_2escm"),(void*)f_19739}, {C_text("f_19743:chicken_2dinstall_2escm"),(void*)f_19743}, {C_text("f_19747:chicken_2dinstall_2escm"),(void*)f_19747}, {C_text("f_19750:chicken_2dinstall_2escm"),(void*)f_19750}, {C_text("f_19755:chicken_2dinstall_2escm"),(void*)f_19755}, {C_text("f_19761:chicken_2dinstall_2escm"),(void*)f_19761}, {C_text("f_19765:chicken_2dinstall_2escm"),(void*)f_19765}, {C_text("f_19768:chicken_2dinstall_2escm"),(void*)f_19768}, {C_text("f_19771:chicken_2dinstall_2escm"),(void*)f_19771}, {C_text("f_19774:chicken_2dinstall_2escm"),(void*)f_19774}, {C_text("f_19783:chicken_2dinstall_2escm"),(void*)f_19783}, {C_text("f_19786:chicken_2dinstall_2escm"),(void*)f_19786}, {C_text("f_19789:chicken_2dinstall_2escm"),(void*)f_19789}, {C_text("f_19811:chicken_2dinstall_2escm"),(void*)f_19811}, {C_text("f_19817:chicken_2dinstall_2escm"),(void*)f_19817}, {C_text("f_19820:chicken_2dinstall_2escm"),(void*)f_19820}, {C_text("f_19830:chicken_2dinstall_2escm"),(void*)f_19830}, {C_text("f_19834:chicken_2dinstall_2escm"),(void*)f_19834}, {C_text("f_19838:chicken_2dinstall_2escm"),(void*)f_19838}, {C_text("f_19842:chicken_2dinstall_2escm"),(void*)f_19842}, {C_text("f_19846:chicken_2dinstall_2escm"),(void*)f_19846}, {C_text("f_19850:chicken_2dinstall_2escm"),(void*)f_19850}, {C_text("f_19862:chicken_2dinstall_2escm"),(void*)f_19862}, {C_text("f_19868:chicken_2dinstall_2escm"),(void*)f_19868}, {C_text("f_19876:chicken_2dinstall_2escm"),(void*)f_19876}, {C_text("f_19886:chicken_2dinstall_2escm"),(void*)f_19886}, {C_text("f_19903:chicken_2dinstall_2escm"),(void*)f_19903}, {C_text("f_19906:chicken_2dinstall_2escm"),(void*)f_19906}, {C_text("f_19909:chicken_2dinstall_2escm"),(void*)f_19909}, {C_text("f_19912:chicken_2dinstall_2escm"),(void*)f_19912}, {C_text("f_19917:chicken_2dinstall_2escm"),(void*)f_19917}, {C_text("f_19925:chicken_2dinstall_2escm"),(void*)f_19925}, {C_text("f_19940:chicken_2dinstall_2escm"),(void*)f_19940}, {C_text("f_19943:chicken_2dinstall_2escm"),(void*)f_19943}, {C_text("f_19949:chicken_2dinstall_2escm"),(void*)f_19949}, {C_text("f_19952:chicken_2dinstall_2escm"),(void*)f_19952}, {C_text("f_19955:chicken_2dinstall_2escm"),(void*)f_19955}, {C_text("f_19958:chicken_2dinstall_2escm"),(void*)f_19958}, {C_text("f_19961:chicken_2dinstall_2escm"),(void*)f_19961}, {C_text("f_19964:chicken_2dinstall_2escm"),(void*)f_19964}, {C_text("f_19967:chicken_2dinstall_2escm"),(void*)f_19967}, {C_text("f_19976:chicken_2dinstall_2escm"),(void*)f_19976}, {C_text("f_19979:chicken_2dinstall_2escm"),(void*)f_19979}, {C_text("f_19984:chicken_2dinstall_2escm"),(void*)f_19984}, {C_text("f_19988:chicken_2dinstall_2escm"),(void*)f_19988}, {C_text("f_19992:chicken_2dinstall_2escm"),(void*)f_19992}, {C_text("f_19999:chicken_2dinstall_2escm"),(void*)f_19999}, {C_text("f_20004:chicken_2dinstall_2escm"),(void*)f_20004}, {C_text("f_20011:chicken_2dinstall_2escm"),(void*)f_20011}, {C_text("f_20014:chicken_2dinstall_2escm"),(void*)f_20014}, {C_text("f_20021:chicken_2dinstall_2escm"),(void*)f_20021}, {C_text("f_20031:chicken_2dinstall_2escm"),(void*)f_20031}, {C_text("f_20035:chicken_2dinstall_2escm"),(void*)f_20035}, {C_text("f_20038:chicken_2dinstall_2escm"),(void*)f_20038}, {C_text("f_20045:chicken_2dinstall_2escm"),(void*)f_20045}, {C_text("f_20055:chicken_2dinstall_2escm"),(void*)f_20055}, {C_text("f_20060:chicken_2dinstall_2escm"),(void*)f_20060}, {C_text("f_20070:chicken_2dinstall_2escm"),(void*)f_20070}, {C_text("f_20073:chicken_2dinstall_2escm"),(void*)f_20073}, {C_text("f_20076:chicken_2dinstall_2escm"),(void*)f_20076}, {C_text("f_20101:chicken_2dinstall_2escm"),(void*)f_20101}, {C_text("f_20104:chicken_2dinstall_2escm"),(void*)f_20104}, {C_text("f_20107:chicken_2dinstall_2escm"),(void*)f_20107}, {C_text("f_20110:chicken_2dinstall_2escm"),(void*)f_20110}, {C_text("f_20113:chicken_2dinstall_2escm"),(void*)f_20113}, {C_text("f_20116:chicken_2dinstall_2escm"),(void*)f_20116}, {C_text("f_20119:chicken_2dinstall_2escm"),(void*)f_20119}, {C_text("f_20122:chicken_2dinstall_2escm"),(void*)f_20122}, {C_text("f_20125:chicken_2dinstall_2escm"),(void*)f_20125}, {C_text("f_20132:chicken_2dinstall_2escm"),(void*)f_20132}, {C_text("f_20136:chicken_2dinstall_2escm"),(void*)f_20136}, {C_text("f_20141:chicken_2dinstall_2escm"),(void*)f_20141}, {C_text("f_20147:chicken_2dinstall_2escm"),(void*)f_20147}, {C_text("f_20158:chicken_2dinstall_2escm"),(void*)f_20158}, {C_text("f_20168:chicken_2dinstall_2escm"),(void*)f_20168}, {C_text("f_20183:chicken_2dinstall_2escm"),(void*)f_20183}, {C_text("f_20185:chicken_2dinstall_2escm"),(void*)f_20185}, {C_text("f_20193:chicken_2dinstall_2escm"),(void*)f_20193}, {C_text("f_20197:chicken_2dinstall_2escm"),(void*)f_20197}, {C_text("f_20209:chicken_2dinstall_2escm"),(void*)f_20209}, {C_text("f_20211:chicken_2dinstall_2escm"),(void*)f_20211}, {C_text("f_20221:chicken_2dinstall_2escm"),(void*)f_20221}, {C_text("f_20239:chicken_2dinstall_2escm"),(void*)f_20239}, {C_text("f_20244:chicken_2dinstall_2escm"),(void*)f_20244}, {C_text("f_20250:chicken_2dinstall_2escm"),(void*)f_20250}, {C_text("f_20259:chicken_2dinstall_2escm"),(void*)f_20259}, {C_text("f_20273:chicken_2dinstall_2escm"),(void*)f_20273}, {C_text("f_20278:chicken_2dinstall_2escm"),(void*)f_20278}, {C_text("f_20292:chicken_2dinstall_2escm"),(void*)f_20292}, {C_text("f_20294:chicken_2dinstall_2escm"),(void*)f_20294}, {C_text("f_20328:chicken_2dinstall_2escm"),(void*)f_20328}, {C_text("f_20373:chicken_2dinstall_2escm"),(void*)f_20373}, {C_text("f_20378:chicken_2dinstall_2escm"),(void*)f_20378}, {C_text("f_20384:chicken_2dinstall_2escm"),(void*)f_20384}, {C_text("f_20387:chicken_2dinstall_2escm"),(void*)f_20387}, {C_text("f_20390:chicken_2dinstall_2escm"),(void*)f_20390}, {C_text("f_20393:chicken_2dinstall_2escm"),(void*)f_20393}, {C_text("f_20398:chicken_2dinstall_2escm"),(void*)f_20398}, {C_text("f_20404:chicken_2dinstall_2escm"),(void*)f_20404}, {C_text("f_20410:chicken_2dinstall_2escm"),(void*)f_20410}, {C_text("f_20418:chicken_2dinstall_2escm"),(void*)f_20418}, {C_text("f_20424:chicken_2dinstall_2escm"),(void*)f_20424}, {C_text("f_20427:chicken_2dinstall_2escm"),(void*)f_20427}, {C_text("f_20430:chicken_2dinstall_2escm"),(void*)f_20430}, {C_text("f_20433:chicken_2dinstall_2escm"),(void*)f_20433}, {C_text("f_20435:chicken_2dinstall_2escm"),(void*)f_20435}, {C_text("f_20441:chicken_2dinstall_2escm"),(void*)f_20441}, {C_text("f_20445:chicken_2dinstall_2escm"),(void*)f_20445}, {C_text("f_20456:chicken_2dinstall_2escm"),(void*)f_20456}, {C_text("f_20461:chicken_2dinstall_2escm"),(void*)f_20461}, {C_text("f_20467:chicken_2dinstall_2escm"),(void*)f_20467}, {C_text("f_20476:chicken_2dinstall_2escm"),(void*)f_20476}, {C_text("f_20486:chicken_2dinstall_2escm"),(void*)f_20486}, {C_text("f_20499:chicken_2dinstall_2escm"),(void*)f_20499}, {C_text("f_20506:chicken_2dinstall_2escm"),(void*)f_20506}, {C_text("f_20510:chicken_2dinstall_2escm"),(void*)f_20510}, {C_text("f_20514:chicken_2dinstall_2escm"),(void*)f_20514}, {C_text("f_20518:chicken_2dinstall_2escm"),(void*)f_20518}, {C_text("f_20533:chicken_2dinstall_2escm"),(void*)f_20533}, {C_text("f_20536:chicken_2dinstall_2escm"),(void*)f_20536}, {C_text("f_20547:chicken_2dinstall_2escm"),(void*)f_20547}, {C_text("f_20553:chicken_2dinstall_2escm"),(void*)f_20553}, {C_text("f_20556:chicken_2dinstall_2escm"),(void*)f_20556}, {C_text("f_20571:chicken_2dinstall_2escm"),(void*)f_20571}, {C_text("f_20581:chicken_2dinstall_2escm"),(void*)f_20581}, {C_text("f_20598:chicken_2dinstall_2escm"),(void*)f_20598}, {C_text("f_20620:chicken_2dinstall_2escm"),(void*)f_20620}, {C_text("f_20641:chicken_2dinstall_2escm"),(void*)f_20641}, {C_text("f_20644:chicken_2dinstall_2escm"),(void*)f_20644}, {C_text("f_20657:chicken_2dinstall_2escm"),(void*)f_20657}, {C_text("f_20661:chicken_2dinstall_2escm"),(void*)f_20661}, {C_text("f_20667:chicken_2dinstall_2escm"),(void*)f_20667}, {C_text("f_20677:chicken_2dinstall_2escm"),(void*)f_20677}, {C_text("f_20680:chicken_2dinstall_2escm"),(void*)f_20680}, {C_text("f_20688:chicken_2dinstall_2escm"),(void*)f_20688}, {C_text("f_20722:chicken_2dinstall_2escm"),(void*)f_20722}, {C_text("f_20747:chicken_2dinstall_2escm"),(void*)f_20747}, {C_text("f_20763:chicken_2dinstall_2escm"),(void*)f_20763}, {C_text("f_20779:chicken_2dinstall_2escm"),(void*)f_20779}, {C_text("f_20782:chicken_2dinstall_2escm"),(void*)f_20782}, {C_text("f_20785:chicken_2dinstall_2escm"),(void*)f_20785}, {C_text("f_20793:chicken_2dinstall_2escm"),(void*)f_20793}, {C_text("f_20818:chicken_2dinstall_2escm"),(void*)f_20818}, {C_text("f_20840:chicken_2dinstall_2escm"),(void*)f_20840}, {C_text("f_20843:chicken_2dinstall_2escm"),(void*)f_20843}, {C_text("f_20848:chicken_2dinstall_2escm"),(void*)f_20848}, {C_text("f_20858:chicken_2dinstall_2escm"),(void*)f_20858}, {C_text("f_20865:chicken_2dinstall_2escm"),(void*)f_20865}, {C_text("f_20938:chicken_2dinstall_2escm"),(void*)f_20938}, {C_text("f_20945:chicken_2dinstall_2escm"),(void*)f_20945}, {C_text("f_20954:chicken_2dinstall_2escm"),(void*)f_20954}, {C_text("f_21157:chicken_2dinstall_2escm"),(void*)f_21157}, {C_text("f_21161:chicken_2dinstall_2escm"),(void*)f_21161}, {C_text("f_21192:chicken_2dinstall_2escm"),(void*)f_21192}, {C_text("f_21205:chicken_2dinstall_2escm"),(void*)f_21205}, {C_text("f_21211:chicken_2dinstall_2escm"),(void*)f_21211}, {C_text("f_21213:chicken_2dinstall_2escm"),(void*)f_21213}, {C_text("f_21238:chicken_2dinstall_2escm"),(void*)f_21238}, {C_text("f_21266:chicken_2dinstall_2escm"),(void*)f_21266}, {C_text("f_21270:chicken_2dinstall_2escm"),(void*)f_21270}, {C_text("f_21295:chicken_2dinstall_2escm"),(void*)f_21295}, {C_text("f_21304:chicken_2dinstall_2escm"),(void*)f_21304}, {C_text("f_21310:chicken_2dinstall_2escm"),(void*)f_21310}, {C_text("f_21317:chicken_2dinstall_2escm"),(void*)f_21317}, {C_text("f_21329:chicken_2dinstall_2escm"),(void*)f_21329}, {C_text("f_21333:chicken_2dinstall_2escm"),(void*)f_21333}, {C_text("f_21370:chicken_2dinstall_2escm"),(void*)f_21370}, {C_text("f_21378:chicken_2dinstall_2escm"),(void*)f_21378}, {C_text("f_21390:chicken_2dinstall_2escm"),(void*)f_21390}, {C_text("f_21394:chicken_2dinstall_2escm"),(void*)f_21394}, {C_text("f_21410:chicken_2dinstall_2escm"),(void*)f_21410}, {C_text("f_21414:chicken_2dinstall_2escm"),(void*)f_21414}, {C_text("f_21438:chicken_2dinstall_2escm"),(void*)f_21438}, {C_text("f_21441:chicken_2dinstall_2escm"),(void*)f_21441}, {C_text("f_21447:chicken_2dinstall_2escm"),(void*)f_21447}, {C_text("f_21451:chicken_2dinstall_2escm"),(void*)f_21451}, {C_text("f_21643:chicken_2dinstall_2escm"),(void*)f_21643}, {C_text("f_21647:chicken_2dinstall_2escm"),(void*)f_21647}, {C_text("f_21651:chicken_2dinstall_2escm"),(void*)f_21651}, {C_text("f_21655:chicken_2dinstall_2escm"),(void*)f_21655}, {C_text("f_21659:chicken_2dinstall_2escm"),(void*)f_21659}, {C_text("f_21666:chicken_2dinstall_2escm"),(void*)f_21666}, {C_text("f_21670:chicken_2dinstall_2escm"),(void*)f_21670}, {C_text("f_21677:chicken_2dinstall_2escm"),(void*)f_21677}, {C_text("f_21680:chicken_2dinstall_2escm"),(void*)f_21680}, {C_text("f_21687:chicken_2dinstall_2escm"),(void*)f_21687}, {C_text("f_21692:chicken_2dinstall_2escm"),(void*)f_21692}, {C_text("f_21697:chicken_2dinstall_2escm"),(void*)f_21697}, {C_text("f_21701:chicken_2dinstall_2escm"),(void*)f_21701}, {C_text("f_21705:chicken_2dinstall_2escm"),(void*)f_21705}, {C_text("f_21712:chicken_2dinstall_2escm"),(void*)f_21712}, {C_text("f_6745:chicken_2dinstall_2escm"),(void*)f_6745}, {C_text("f_6748:chicken_2dinstall_2escm"),(void*)f_6748}, {C_text("f_6751:chicken_2dinstall_2escm"),(void*)f_6751}, {C_text("f_6754:chicken_2dinstall_2escm"),(void*)f_6754}, {C_text("f_6757:chicken_2dinstall_2escm"),(void*)f_6757}, {C_text("f_6760:chicken_2dinstall_2escm"),(void*)f_6760}, {C_text("f_6763:chicken_2dinstall_2escm"),(void*)f_6763}, {C_text("f_6766:chicken_2dinstall_2escm"),(void*)f_6766}, {C_text("f_6769:chicken_2dinstall_2escm"),(void*)f_6769}, {C_text("f_6772:chicken_2dinstall_2escm"),(void*)f_6772}, {C_text("f_6775:chicken_2dinstall_2escm"),(void*)f_6775}, {C_text("f_6778:chicken_2dinstall_2escm"),(void*)f_6778}, {C_text("f_6781:chicken_2dinstall_2escm"),(void*)f_6781}, {C_text("f_6784:chicken_2dinstall_2escm"),(void*)f_6784}, {C_text("f_6798:chicken_2dinstall_2escm"),(void*)f_6798}, {C_text("f_6812:chicken_2dinstall_2escm"),(void*)f_6812}, {C_text("f_6816:chicken_2dinstall_2escm"),(void*)f_6816}, {C_text("f_6822:chicken_2dinstall_2escm"),(void*)f_6822}, {C_text("f_6958:chicken_2dinstall_2escm"),(void*)f_6958}, {C_text("f_6972:chicken_2dinstall_2escm"),(void*)f_6972}, {C_text("f_6991:chicken_2dinstall_2escm"),(void*)f_6991}, {C_text("f_7006:chicken_2dinstall_2escm"),(void*)f_7006}, {C_text("f_7014:chicken_2dinstall_2escm"),(void*)f_7014}, {C_text("f_7022:chicken_2dinstall_2escm"),(void*)f_7022}, {C_text("f_7033:chicken_2dinstall_2escm"),(void*)f_7033}, {C_text("f_7046:chicken_2dinstall_2escm"),(void*)f_7046}, {C_text("f_7053:chicken_2dinstall_2escm"),(void*)f_7053}, {C_text("f_7060:chicken_2dinstall_2escm"),(void*)f_7060}, {C_text("f_7064:chicken_2dinstall_2escm"),(void*)f_7064}, {C_text("f_7076:chicken_2dinstall_2escm"),(void*)f_7076}, {C_text("f_7078:chicken_2dinstall_2escm"),(void*)f_7078}, {C_text("f_7125:chicken_2dinstall_2escm"),(void*)f_7125}, {C_text("f_7127:chicken_2dinstall_2escm"),(void*)f_7127}, {C_text("f_7161:chicken_2dinstall_2escm"),(void*)f_7161}, {C_text("f_7167:chicken_2dinstall_2escm"),(void*)f_7167}, {C_text("f_7189:chicken_2dinstall_2escm"),(void*)f_7189}, {C_text("f_7195:chicken_2dinstall_2escm"),(void*)f_7195}, {C_text("f_7201:chicken_2dinstall_2escm"),(void*)f_7201}, {C_text("f_7211:chicken_2dinstall_2escm"),(void*)f_7211}, {C_text("f_7253:chicken_2dinstall_2escm"),(void*)f_7253}, {C_text("f_7259:chicken_2dinstall_2escm"),(void*)f_7259}, {C_text("f_7277:chicken_2dinstall_2escm"),(void*)f_7277}, {C_text("f_7281:chicken_2dinstall_2escm"),(void*)f_7281}, {C_text("f_7287:chicken_2dinstall_2escm"),(void*)f_7287}, {C_text("f_7300:chicken_2dinstall_2escm"),(void*)f_7300}, {C_text("f_7314:chicken_2dinstall_2escm"),(void*)f_7314}, {C_text("f_7362:chicken_2dinstall_2escm"),(void*)f_7362}, {C_text("f_7376:chicken_2dinstall_2escm"),(void*)f_7376}, {C_text("f_7389:chicken_2dinstall_2escm"),(void*)f_7389}, {C_text("f_7410:chicken_2dinstall_2escm"),(void*)f_7410}, {C_text("f_7418:chicken_2dinstall_2escm"),(void*)f_7418}, {C_text("f_7425:chicken_2dinstall_2escm"),(void*)f_7425}, {C_text("f_7439:chicken_2dinstall_2escm"),(void*)f_7439}, {C_text("f_7445:chicken_2dinstall_2escm"),(void*)f_7445}, {C_text("f_7454:chicken_2dinstall_2escm"),(void*)f_7454}, {C_text("f_7462:chicken_2dinstall_2escm"),(void*)f_7462}, {C_text("f_7466:chicken_2dinstall_2escm"),(void*)f_7466}, {C_text("f_7470:chicken_2dinstall_2escm"),(void*)f_7470}, {C_text("f_7488:chicken_2dinstall_2escm"),(void*)f_7488}, {C_text("f_7527:chicken_2dinstall_2escm"),(void*)f_7527}, {C_text("f_7592:chicken_2dinstall_2escm"),(void*)f_7592}, {C_text("f_7605:chicken_2dinstall_2escm"),(void*)f_7605}, {C_text("f_7916:chicken_2dinstall_2escm"),(void*)f_7916}, {C_text("f_7922:chicken_2dinstall_2escm"),(void*)f_7922}, {C_text("f_7935:chicken_2dinstall_2escm"),(void*)f_7935}, {C_text("f_8074:chicken_2dinstall_2escm"),(void*)f_8074}, {C_text("f_8080:chicken_2dinstall_2escm"),(void*)f_8080}, {C_text("f_8084:chicken_2dinstall_2escm"),(void*)f_8084}, {C_text("f_8088:chicken_2dinstall_2escm"),(void*)f_8088}, {C_text("f_8092:chicken_2dinstall_2escm"),(void*)f_8092}, {C_text("f_8096:chicken_2dinstall_2escm"),(void*)f_8096}, {C_text("f_8100:chicken_2dinstall_2escm"),(void*)f_8100}, {C_text("f_8104:chicken_2dinstall_2escm"),(void*)f_8104}, {C_text("f_8108:chicken_2dinstall_2escm"),(void*)f_8108}, {C_text("f_8112:chicken_2dinstall_2escm"),(void*)f_8112}, {C_text("f_8116:chicken_2dinstall_2escm"),(void*)f_8116}, {C_text("f_8120:chicken_2dinstall_2escm"),(void*)f_8120}, {C_text("f_8124:chicken_2dinstall_2escm"),(void*)f_8124}, {C_text("f_8128:chicken_2dinstall_2escm"),(void*)f_8128}, {C_text("f_8132:chicken_2dinstall_2escm"),(void*)f_8132}, {C_text("f_8140:chicken_2dinstall_2escm"),(void*)f_8140}, {C_text("f_8144:chicken_2dinstall_2escm"),(void*)f_8144}, {C_text("f_8148:chicken_2dinstall_2escm"),(void*)f_8148}, {C_text("f_8152:chicken_2dinstall_2escm"),(void*)f_8152}, {C_text("f_8156:chicken_2dinstall_2escm"),(void*)f_8156}, {C_text("f_8160:chicken_2dinstall_2escm"),(void*)f_8160}, {C_text("f_8164:chicken_2dinstall_2escm"),(void*)f_8164}, {C_text("f_8168:chicken_2dinstall_2escm"),(void*)f_8168}, {C_text("f_8172:chicken_2dinstall_2escm"),(void*)f_8172}, {C_text("f_8176:chicken_2dinstall_2escm"),(void*)f_8176}, {C_text("f_8180:chicken_2dinstall_2escm"),(void*)f_8180}, {C_text("f_8184:chicken_2dinstall_2escm"),(void*)f_8184}, {C_text("f_8188:chicken_2dinstall_2escm"),(void*)f_8188}, {C_text("f_8192:chicken_2dinstall_2escm"),(void*)f_8192}, {C_text("f_8196:chicken_2dinstall_2escm"),(void*)f_8196}, {C_text("f_8200:chicken_2dinstall_2escm"),(void*)f_8200}, {C_text("f_8204:chicken_2dinstall_2escm"),(void*)f_8204}, {C_text("f_8208:chicken_2dinstall_2escm"),(void*)f_8208}, {C_text("f_8212:chicken_2dinstall_2escm"),(void*)f_8212}, {C_text("f_8223:chicken_2dinstall_2escm"),(void*)f_8223}, {C_text("f_8232:chicken_2dinstall_2escm"),(void*)f_8232}, {C_text("f_8240:chicken_2dinstall_2escm"),(void*)f_8240}, {C_text("f_8256:chicken_2dinstall_2escm"),(void*)f_8256}, {C_text("f_8267:chicken_2dinstall_2escm"),(void*)f_8267}, {C_text("f_8277:chicken_2dinstall_2escm"),(void*)f_8277}, {C_text("f_8281:chicken_2dinstall_2escm"),(void*)f_8281}, {C_text("f_8284:chicken_2dinstall_2escm"),(void*)f_8284}, {C_text("f_8286:chicken_2dinstall_2escm"),(void*)f_8286}, {C_text("f_8290:chicken_2dinstall_2escm"),(void*)f_8290}, {C_text("f_8296:chicken_2dinstall_2escm"),(void*)f_8296}, {C_text("f_8300:chicken_2dinstall_2escm"),(void*)f_8300}, {C_text("f_8304:chicken_2dinstall_2escm"),(void*)f_8304}, {C_text("f_8308:chicken_2dinstall_2escm"),(void*)f_8308}, {C_text("f_8312:chicken_2dinstall_2escm"),(void*)f_8312}, {C_text("f_8323:chicken_2dinstall_2escm"),(void*)f_8323}, {C_text("f_8347:chicken_2dinstall_2escm"),(void*)f_8347}, {C_text("f_8691:chicken_2dinstall_2escm"),(void*)f_8691}, {C_text("f_8692:chicken_2dinstall_2escm"),(void*)f_8692}, {C_text("f_8701:chicken_2dinstall_2escm"),(void*)f_8701}, {C_text("f_8720:chicken_2dinstall_2escm"),(void*)f_8720}, {C_text("f_8739:chicken_2dinstall_2escm"),(void*)f_8739}, {C_text("f_8758:chicken_2dinstall_2escm"),(void*)f_8758}, {C_text("f_8777:chicken_2dinstall_2escm"),(void*)f_8777}, {C_text("f_8808:chicken_2dinstall_2escm"),(void*)f_8808}, {C_text("f_8830:chicken_2dinstall_2escm"),(void*)f_8830}, {C_text("f_8843:chicken_2dinstall_2escm"),(void*)f_8843}, {C_text("f_8847:chicken_2dinstall_2escm"),(void*)f_8847}, {C_text("f_8852:chicken_2dinstall_2escm"),(void*)f_8852}, {C_text("f_8858:chicken_2dinstall_2escm"),(void*)f_8858}, {C_text("f_8864:chicken_2dinstall_2escm"),(void*)f_8864}, {C_text("f_8903:chicken_2dinstall_2escm"),(void*)f_8903}, {C_text("f_8905:chicken_2dinstall_2escm"),(void*)f_8905}, {C_text("f_8910:chicken_2dinstall_2escm"),(void*)f_8910}, {C_text("f_8916:chicken_2dinstall_2escm"),(void*)f_8916}, {C_text("f_8927:chicken_2dinstall_2escm"),(void*)f_8927}, {C_text("f_8932:chicken_2dinstall_2escm"),(void*)f_8932}, {C_text("f_8957:chicken_2dinstall_2escm"),(void*)f_8957}, {C_text("f_8982:chicken_2dinstall_2escm"),(void*)f_8982}, {C_text("f_8996:chicken_2dinstall_2escm"),(void*)f_8996}, {C_text("f_9010:chicken_2dinstall_2escm"),(void*)f_9010}, {C_text("f_9023:chicken_2dinstall_2escm"),(void*)f_9023}, {C_text("f_9030:chicken_2dinstall_2escm"),(void*)f_9030}, {C_text("f_9114:chicken_2dinstall_2escm"),(void*)f_9114}, {C_text("f_9118:chicken_2dinstall_2escm"),(void*)f_9118}, {C_text("f_9129:chicken_2dinstall_2escm"),(void*)f_9129}, {C_text("f_9133:chicken_2dinstall_2escm"),(void*)f_9133}, {C_text("f_9141:chicken_2dinstall_2escm"),(void*)f_9141}, {C_text("f_9146:chicken_2dinstall_2escm"),(void*)f_9146}, {C_text("f_9152:chicken_2dinstall_2escm"),(void*)f_9152}, {C_text("f_9165:chicken_2dinstall_2escm"),(void*)f_9165}, {C_text("f_9173:chicken_2dinstall_2escm"),(void*)f_9173}, {C_text("f_9204:chicken_2dinstall_2escm"),(void*)f_9204}, {C_text("f_9214:chicken_2dinstall_2escm"),(void*)f_9214}, {C_text("f_9217:chicken_2dinstall_2escm"),(void*)f_9217}, {C_text("f_9223:chicken_2dinstall_2escm"),(void*)f_9223}, {C_text("f_9226:chicken_2dinstall_2escm"),(void*)f_9226}, {C_text("f_9229:chicken_2dinstall_2escm"),(void*)f_9229}, {C_text("f_9248:chicken_2dinstall_2escm"),(void*)f_9248}, {C_text("f_9252:chicken_2dinstall_2escm"),(void*)f_9252}, {C_text("f_9256:chicken_2dinstall_2escm"),(void*)f_9256}, {C_text("f_9260:chicken_2dinstall_2escm"),(void*)f_9260}, {C_text("f_9264:chicken_2dinstall_2escm"),(void*)f_9264}, {C_text("f_9271:chicken_2dinstall_2escm"),(void*)f_9271}, {C_text("f_9278:chicken_2dinstall_2escm"),(void*)f_9278}, {C_text("f_9288:chicken_2dinstall_2escm"),(void*)f_9288}, {C_text("f_9298:chicken_2dinstall_2escm"),(void*)f_9298}, {C_text("f_9302:chicken_2dinstall_2escm"),(void*)f_9302}, {C_text("f_9319:chicken_2dinstall_2escm"),(void*)f_9319}, {C_text("f_9329:chicken_2dinstall_2escm"),(void*)f_9329}, {C_text("f_9342:chicken_2dinstall_2escm"),(void*)f_9342}, {C_text("f_9387:chicken_2dinstall_2escm"),(void*)f_9387}, {C_text("f_9395:chicken_2dinstall_2escm"),(void*)f_9395}, {C_text("f_9416:chicken_2dinstall_2escm"),(void*)f_9416}, {C_text("f_9426:chicken_2dinstall_2escm"),(void*)f_9426}, {C_text("f_9429:chicken_2dinstall_2escm"),(void*)f_9429}, {C_text("f_9442:chicken_2dinstall_2escm"),(void*)f_9442}, {C_text("f_9452:chicken_2dinstall_2escm"),(void*)f_9452}, {C_text("f_9465:chicken_2dinstall_2escm"),(void*)f_9465}, {C_text("f_9500:chicken_2dinstall_2escm"),(void*)f_9500}, {C_text("f_9505:chicken_2dinstall_2escm"),(void*)f_9505}, {C_text("f_9514:chicken_2dinstall_2escm"),(void*)f_9514}, {C_text("f_9524:chicken_2dinstall_2escm"),(void*)f_9524}, {C_text("f_9527:chicken_2dinstall_2escm"),(void*)f_9527}, {C_text("f_9530:chicken_2dinstall_2escm"),(void*)f_9530}, {C_text("f_9533:chicken_2dinstall_2escm"),(void*)f_9533}, {C_text("f_9546:chicken_2dinstall_2escm"),(void*)f_9546}, {C_text("f_9556:chicken_2dinstall_2escm"),(void*)f_9556}, {C_text("f_9558:chicken_2dinstall_2escm"),(void*)f_9558}, {C_text("f_9583:chicken_2dinstall_2escm"),(void*)f_9583}, {C_text("f_9594:chicken_2dinstall_2escm"),(void*)f_9594}, {C_text("f_9605:chicken_2dinstall_2escm"),(void*)f_9605}, {C_text("f_9615:chicken_2dinstall_2escm"),(void*)f_9615}, {C_text("f_9628:chicken_2dinstall_2escm"),(void*)f_9628}, {C_text("f_9648:chicken_2dinstall_2escm"),(void*)f_9648}, {C_text("f_9653:chicken_2dinstall_2escm"),(void*)f_9653}, {C_text("f_9666:chicken_2dinstall_2escm"),(void*)f_9666}, {C_text("f_9676:chicken_2dinstall_2escm"),(void*)f_9676}, {C_text("f_9679:chicken_2dinstall_2escm"),(void*)f_9679}, {C_text("f_9692:chicken_2dinstall_2escm"),(void*)f_9692}, {C_text("f_9702:chicken_2dinstall_2escm"),(void*)f_9702}, {C_text("f_9715:chicken_2dinstall_2escm"),(void*)f_9715}, {C_text("f_9739:chicken_2dinstall_2escm"),(void*)f_9739}, {C_text("f_9744:chicken_2dinstall_2escm"),(void*)f_9744}, {C_text("f_9753:chicken_2dinstall_2escm"),(void*)f_9753}, {C_text("f_9763:chicken_2dinstall_2escm"),(void*)f_9763}, {C_text("f_9766:chicken_2dinstall_2escm"),(void*)f_9766}, {C_text("f_9769:chicken_2dinstall_2escm"),(void*)f_9769}, {C_text("f_9772:chicken_2dinstall_2escm"),(void*)f_9772}, {C_text("f_9785:chicken_2dinstall_2escm"),(void*)f_9785}, {C_text("f_9795:chicken_2dinstall_2escm"),(void*)f_9795}, {C_text("f_9797:chicken_2dinstall_2escm"),(void*)f_9797}, {C_text("f_9822:chicken_2dinstall_2escm"),(void*)f_9822}, {C_text("f_9833:chicken_2dinstall_2escm"),(void*)f_9833}, {C_text("f_9844:chicken_2dinstall_2escm"),(void*)f_9844}, {C_text("f_9854:chicken_2dinstall_2escm"),(void*)f_9854}, {C_text("f_9867:chicken_2dinstall_2escm"),(void*)f_9867}, {C_text("f_9887:chicken_2dinstall_2escm"),(void*)f_9887}, {C_text("f_9892:chicken_2dinstall_2escm"),(void*)f_9892}, {C_text("f_9901:chicken_2dinstall_2escm"),(void*)f_9901}, {C_text("f_9911:chicken_2dinstall_2escm"),(void*)f_9911}, {C_text("f_9914:chicken_2dinstall_2escm"),(void*)f_9914}, {C_text("f_9917:chicken_2dinstall_2escm"),(void*)f_9917}, {C_text("f_9920:chicken_2dinstall_2escm"),(void*)f_9920}, {C_text("f_9933:chicken_2dinstall_2escm"),(void*)f_9933}, {C_text("f_9943:chicken_2dinstall_2escm"),(void*)f_9943}, {C_text("f_9945:chicken_2dinstall_2escm"),(void*)f_9945}, {C_text("f_9970:chicken_2dinstall_2escm"),(void*)f_9970}, {C_text("f_9981:chicken_2dinstall_2escm"),(void*)f_9981}, {C_text("f_9992:chicken_2dinstall_2escm"),(void*)f_9992}, {C_text("toplevel:chicken_2dinstall_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: main#+defaults-version+ o|hiding unexported module binding: main#+module-db+ o|hiding unexported module binding: main#+defaults-file+ o|hiding unexported module binding: main#+short-options+ o|hiding unexported module binding: main#+one-hour+ o|hiding unexported module binding: main#+internal-modules+ o|hiding unexported module binding: main#partition o|hiding unexported module binding: main#span o|hiding unexported module binding: main#take o|hiding unexported module binding: main#drop o|hiding unexported module binding: main#split-at o|hiding unexported module binding: main#append-map o|hiding unexported module binding: main#every o|hiding unexported module binding: main#any o|hiding unexported module binding: main#cons* o|hiding unexported module binding: main#concatenate o|hiding unexported module binding: main#delete o|hiding unexported module binding: main#first o|hiding unexported module binding: main#second o|hiding unexported module binding: main#third o|hiding unexported module binding: main#fourth o|hiding unexported module binding: main#fifth o|hiding unexported module binding: main#delete-duplicates o|hiding unexported module binding: main#alist-cons o|hiding unexported module binding: main#filter o|hiding unexported module binding: main#filter-map o|hiding unexported module binding: main#remove o|hiding unexported module binding: main#unzip1 o|hiding unexported module binding: main#last o|hiding unexported module binding: main#list-index o|hiding unexported module binding: main#lset-adjoin/eq? o|hiding unexported module binding: main#lset-difference/eq? o|hiding unexported module binding: main#lset-union/eq? o|hiding unexported module binding: main#lset-intersection/eq? o|hiding unexported module binding: main#list-tabulate o|hiding unexported module binding: main#lset<=/eq? o|hiding unexported module binding: main#lset=/eq? o|hiding unexported module binding: main#length+ o|hiding unexported module binding: main#find o|hiding unexported module binding: main#find-tail o|hiding unexported module binding: main#iota o|hiding unexported module binding: main#make-list o|hiding unexported module binding: main#posq o|hiding unexported module binding: main#posv o|hiding unexported module binding: main#staticbuild o|hiding unexported module binding: main#debugbuild o|hiding unexported module binding: main#cross-chicken o|hiding unexported module binding: main#binary-version o|hiding unexported module binding: main#major-version o|hiding unexported module binding: main#default-cc o|hiding unexported module binding: main#default-cxx o|hiding unexported module binding: main#default-install-program o|hiding unexported module binding: main#default-cflags o|hiding unexported module binding: main#default-ldflags o|hiding unexported module binding: main#default-install-program-executable-flags o|hiding unexported module binding: main#default-install-program-data-flags o|hiding unexported module binding: main#default-libs o|hiding unexported module binding: main#default-libdir o|hiding unexported module binding: main#default-runlibdir o|hiding unexported module binding: main#default-slibdir o|hiding unexported module binding: main#default-incdir o|hiding unexported module binding: main#default-bindir o|hiding unexported module binding: main#default-sharedir o|hiding unexported module binding: main#default-platform o|hiding unexported module binding: main#default-prefix o|hiding unexported module binding: main#default-bindir o|hiding unexported module binding: main#default-csc o|hiding unexported module binding: main#default-csi o|hiding unexported module binding: main#default-builder o|hiding unexported module binding: main#target-librarian o|hiding unexported module binding: main#target-librarian-options o|hiding unexported module binding: main#host-repo o|hiding unexported module binding: main#host-libdir o|hiding unexported module binding: main#host-bindir o|hiding unexported module binding: main#host-incdir o|hiding unexported module binding: main#host-sharedir o|hiding unexported module binding: main#host-libs o|hiding unexported module binding: main#host-cflags o|hiding unexported module binding: main#host-ldflags o|hiding unexported module binding: main#host-cc o|hiding unexported module binding: main#host-cxx o|hiding unexported module binding: main#target-repo o|hiding unexported module binding: main#target-run-repo o|hiding unexported module binding: main#+egg-info-extension+ o|hiding unexported module binding: main#+version-file+ o|hiding unexported module binding: main#+timestamp-file+ o|hiding unexported module binding: main#+status-file+ o|hiding unexported module binding: main#+egg-extension+ o|hiding unexported module binding: main#validate-environment o|hiding unexported module binding: main#destination-repository o|hiding unexported module binding: main#probe-dir o|hiding unexported module binding: main#cache-directory o|hiding unexported module binding: main#locate-egg-file o|hiding unexported module binding: main#load-egg-info o|hiding unexported module binding: main#get-egg-property o|hiding unexported module binding: main#get-egg-property* o|hiding unexported module binding: main#get-extension-property/internal o|hiding unexported module binding: main#get-extension-property o|hiding unexported module binding: main#get-extension-property* o|hiding unexported module binding: main#default-extension-options o|hiding unexported module binding: main#default-program-options o|hiding unexported module binding: main#default-static-program-link-options o|hiding unexported module binding: main#default-dynamic-program-link-options o|hiding unexported module binding: main#default-static-extension-link-options o|hiding unexported module binding: main#default-dynamic-extension-link-options o|hiding unexported module binding: main#default-static-compilation-options o|hiding unexported module binding: main#default-dynamic-compilation-options o|hiding unexported module binding: main#default-import-library-compilation-options o|hiding unexported module binding: main#default-program-linkage o|hiding unexported module binding: main#default-extension-linkage o|hiding unexported module binding: main#+unix-executable-extension+ o|hiding unexported module binding: main#+windows-executable-extension+ o|hiding unexported module binding: main#+unix-object-extension+ o|hiding unexported module binding: main#+unix-archive-extension+ o|hiding unexported module binding: main#+windows-object-extension+ o|hiding unexported module binding: main#+windows-archive-extension+ o|hiding unexported module binding: main#+link-file-extension+ o|hiding unexported module binding: main#keep-generated-files o|hiding unexported module binding: main#override-prefix o|hiding unexported module binding: main#object-extension o|hiding unexported module binding: main#archive-extension o|hiding unexported module binding: main#executable-extension o|hiding unexported module binding: main#copy-directory-command o|hiding unexported module binding: main#mkdir-command o|hiding unexported module binding: main#install-executable-command o|hiding unexported module binding: main#install-file-command o|hiding unexported module binding: main#remove-file-command o|hiding unexported module binding: main#cd-command o|hiding unexported module binding: main#uses-compiled-import-library? o|hiding unexported module binding: main#sort-dependencies o|hiding unexported module binding: main#import-libraries o|hiding unexported module binding: main#check-condition o|hiding unexported module binding: main#compile-egg-info o|hiding unexported module binding: main#compile-static-extension o|hiding unexported module binding: main#compile-dynamic-extension o|hiding unexported module binding: main#compile-import-library o|hiding unexported module binding: main#compile-static-object o|hiding unexported module binding: main#compile-dynamic-object o|hiding unexported module binding: main#compile-dynamic-program o|hiding unexported module binding: main#compile-static-program o|hiding unexported module binding: main#compile-generated-file o|hiding unexported module binding: main#install-static-extension o|hiding unexported module binding: main#install-dynamic-extension o|hiding unexported module binding: main#install-import-library o|hiding unexported module binding: main#install-import-library-source o|hiding unexported module binding: main#install-types-file o|hiding unexported module binding: main#install-inline-file o|hiding unexported module binding: main#install-program o|hiding unexported module binding: main#install-random-files o|hiding unexported module binding: main#install-data o|hiding unexported module binding: main#install-c-include o|hiding unexported module binding: main#generate-shell-commands o|hiding unexported module binding: main#build-prefix o|hiding unexported module binding: main#build-suffix o|hiding unexported module binding: main#install-prefix o|hiding unexported module binding: main#install-suffix o|hiding unexported module binding: main#qs* o|hiding unexported module binding: main#slashify o|hiding unexported module binding: main#prefix o|hiding unexported module binding: main#system+ o|hiding unexported module binding: main#target-file o|hiding unexported module binding: main#arglist o|hiding unexported module binding: main#filelist o|hiding unexported module binding: main#shell-variable o|hiding unexported module binding: main#prepare-custom-command o|hiding unexported module binding: main#custom-cmd o|hiding unexported module binding: main#print-end-command o|hiding unexported module binding: main#strip-dir-prefix o|hiding unexported module binding: main#joins o|hiding unexported module binding: main#maybe o|hiding unexported module binding: main#+default-tcp-connect-timeout+ o|hiding unexported module binding: main#+default-tcp-read/write-timeout+ o|hiding unexported module binding: main#+url-regex+ o|hiding unexported module binding: main#user-agent o|hiding unexported module binding: main#deconstruct-url o|hiding unexported module binding: main#http-fetch o|hiding unexported module binding: main#http-query o|hiding unexported module binding: main#http-connect o|hiding unexported module binding: main#http-retrieve-files o|hiding unexported module binding: main#http-retrieve-response o|hiding unexported module binding: main#server-error o|hiding unexported module binding: main#read-chunks o|hiding unexported module binding: main#match-http-response o|hiding unexported module binding: main#response-match-code? o|hiding unexported module binding: main#match-chunked-transfer-encoding o|hiding unexported module binding: main#match-content-length o|hiding unexported module binding: main#make-HTTP-GET/1.1 o|hiding unexported module binding: main#network-failure o|hiding unexported module binding: main#list-versions o|hiding unexported module binding: main#try-list-versions o|hiding unexported module binding: main#download-egg o|hiding unexported module binding: main#try-download o|hiding unexported module binding: main#user-defaults o|hiding unexported module binding: main#quiet o|hiding unexported module binding: main#default-servers o|hiding unexported module binding: main#default-locations o|hiding unexported module binding: main#mappings o|hiding unexported module binding: main#aliases o|hiding unexported module binding: main#override o|hiding unexported module binding: main#hacks o|hiding unexported module binding: main#proxy-host o|hiding unexported module binding: main#proxy-port o|hiding unexported module binding: main#proxy-user-pass o|hiding unexported module binding: main#retrieve-only o|hiding unexported module binding: main#retrieve-recursive o|hiding unexported module binding: main#do-not-build o|hiding unexported module binding: main#no-install o|hiding unexported module binding: main#no-install-dependencies o|hiding unexported module binding: main#list-versions-only o|hiding unexported module binding: main#canonical-eggs o|hiding unexported module binding: main#requested-eggs o|hiding unexported module binding: main#dependencies o|hiding unexported module binding: main#checked-eggs o|hiding unexported module binding: main#run-tests o|hiding unexported module binding: main#force-install o|hiding unexported module binding: main#host-extension o|hiding unexported module binding: main#target-extension o|hiding unexported module binding: main#sudo-install o|hiding unexported module binding: main#sudo-program o|hiding unexported module binding: main#update-module-db o|hiding unexported module binding: main#purge-mode o|hiding unexported module binding: main#keepfiles o|hiding unexported module binding: main#print-repository o|hiding unexported module binding: main#cached-only o|hiding unexported module binding: main#platform o|hiding unexported module binding: main#current-status o|hiding unexported module binding: main#repo-path o|hiding unexported module binding: main#install-path o|hiding unexported module binding: main#build-script-extension o|hiding unexported module binding: main#install-script-extension o|hiding unexported module binding: main#egg-version? o|hiding unexported module binding: main#optname? o|hiding unexported module binding: main#nameprop? o|hiding unexported module binding: main#name-or-predefd? o|hiding unexported module binding: main#egg-info-items o|hiding unexported module binding: main#validate-egg-info o|hiding unexported module binding: main#string-suffix? o|hiding unexported module binding: main#d o|hiding unexported module binding: main#version>=? o|hiding unexported module binding: main#load-defaults o|hiding unexported module binding: main#setup-proxy o|hiding unexported module binding: main#canonical o|hiding unexported module binding: main#apply-mappings o|hiding unexported module binding: main#override-version o|hiding unexported module binding: main#locate-egg o|hiding unexported module binding: main#resolve-location o|hiding unexported module binding: main#fetch-egg-sources o|hiding unexported module binding: main#copy-egg-sources o|hiding unexported module binding: main#check-remote-version o|hiding unexported module binding: main#compare-trees o|hiding unexported module binding: main#matching-installed-files o|hiding unexported module binding: main#check-installed-files o|hiding unexported module binding: main#retrieve-eggs o|hiding unexported module binding: main#outdated-dependencies o|hiding unexported module binding: main#get-egg-dependencies o|hiding unexported module binding: main#check-dependency o|hiding unexported module binding: main#ext-version o|hiding unexported module binding: main#check-platform o|hiding unexported module binding: main#replace-extension-question o|hiding unexported module binding: main#trim o|hiding unexported module binding: main#list-egg-versions o|hiding unexported module binding: main#install-eggs o|hiding unexported module binding: main#order-installed-eggs o|hiding unexported module binding: main#test-egg o|hiding unexported module binding: main#run-script o|hiding unexported module binding: main#exec o|hiding unexported module binding: main#update-db o|hiding unexported module binding: main#purge-cache o|hiding unexported module binding: main#perform-actions o|hiding unexported module binding: main#usage o|hiding unexported module binding: main#main S|applied compiler syntax: S| chicken.base#o 1 S| chicken.format#fprintf 2 S| chicken.format#sprintf 5 S| chicken.format#printf 9 S| scheme#for-each 28 S| chicken.base#foldl 3 S| scheme#map 45 S| chicken.base#foldr 3 o|eliminated procedure checks: 441 o|folded constant expression: (scheme#* (quote 60) (quote 60)) o|specializations: o| 1 (scheme#> fixnum fixnum) o| 1 (scheme#string-length string) o| 2 (scheme#zero? integer) o| 1 (scheme#<= integer integer) o| 5 (chicken.base#current-error-port) o| 1 (scheme#- fixnum fixnum) o| 1 (scheme#< fixnum fixnum) o| 1 (scheme#>= fixnum fixnum) o| 4 (scheme#length list) o| 1 (scheme#number->string *) o| 1 (scheme#zero? *) o| 3 (scheme#cddr (pair * pair)) o| 1 (chicken.base#add1 fixnum) o| 6 (scheme#string=? string string) o| 2 (scheme#char=? char char) o| 2 (scheme#string-ref string fixnum) o| 3 (scheme#positive? fixnum) o| 16 (##sys#check-output-port * * *) o| 1 (scheme#caar (pair pair *)) o| 1 (scheme#cadr (pair * pair)) o| 2 (scheme#memq * list) o| 4 (scheme#= fixnum fixnum) o| 1 (##sys#call-with-values (procedure () *) *) o| 3 (scheme#cdar (pair pair *)) o| 66 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 2 (scheme#number->string fixnum) o| 1 (scheme#eqv? * *) o| 10 (##sys#check-list (or pair list) *) o| 107 (scheme#cdr pair) o| 55 (scheme#car pair) (o e)|safe calls: 2233 (o e)|assignments to immediate values: 25 o|removed side-effect free assignment to unused variable: main#span o|removed side-effect free assignment to unused variable: main#drop o|merged explicitly consed rest parameter: lsts331 o|inlining procedure: k6993 o|inlining procedure: k7008 o|inlining procedure: k7008 o|inlining procedure: k6993 o|inlining procedure: k7048 o|inlining procedure: k7048 o|inlining procedure: k7080 o|contracted procedure: "(mini-srfi-1.scm:77) g384393" o|inlining procedure: k7080 o|inlining procedure: k7129 o|contracted procedure: "(mini-srfi-1.scm:76) g357366" o|inlining procedure: k7129 o|inlining procedure: k7172 o|inlining procedure: k7172 o|inlining procedure: k7203 o|inlining procedure: k7203 o|removed side-effect free assignment to unused variable: main#cons* o|inlining procedure: k7261 o|inlining procedure: k7261 o|inlining procedure: k7289 o|inlining procedure: k7289 o|removed side-effect free assignment to unused variable: main#first o|removed side-effect free assignment to unused variable: main#second o|removed side-effect free assignment to unused variable: main#third o|removed side-effect free assignment to unused variable: main#fourth o|removed side-effect free assignment to unused variable: main#fifth o|inlining procedure: k7420 o|inlining procedure: k7420 o|inlining procedure: k7412 o|inlining procedure: k7412 o|inlining procedure: k7467 o|inlining procedure: k7467 o|inlining procedure: k7456 o|inlining procedure: k7456 o|removed side-effect free assignment to unused variable: main#remove o|removed side-effect free assignment to unused variable: main#last o|removed side-effect free assignment to unused variable: main#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: main#lset-difference/eq? o|removed side-effect free assignment to unused variable: main#lset-union/eq? o|removed side-effect free assignment to unused variable: main#lset-intersection/eq? o|inlining procedure: k7811 o|inlining procedure: k7811 o|removed side-effect free assignment to unused variable: main#lset<=/eq? o|removed side-effect free assignment to unused variable: main#lset=/eq? o|removed side-effect free assignment to unused variable: main#length+ o|inlining procedure: k7924 o|inlining procedure: k7924 o|removed side-effect free assignment to unused variable: main#find-tail o|removed side-effect free assignment to unused variable: main#iota o|removed side-effect free assignment to unused variable: main#make-list o|removed side-effect free assignment to unused variable: main#posq o|removed side-effect free assignment to unused variable: main#posv o|removed side-effect free assignment to unused variable: main#default-cflags o|removed side-effect free assignment to unused variable: main#default-ldflags o|removed side-effect free assignment to unused variable: main#default-libs o|removed side-effect free assignment to unused variable: main#default-slibdir o|removed side-effect free assignment to unused variable: main#default-platform o|removed side-effect free assignment to unused variable: main#host-libdir o|removed side-effect free assignment to unused variable: main#host-libs o|removed side-effect free assignment to unused variable: main#host-cflags o|removed side-effect free assignment to unused variable: main#host-ldflags o|removed side-effect free assignment to unused variable: main#host-cc o|removed side-effect free assignment to unused variable: main#host-cxx o|merged explicitly consed rest parameter: rest860862 o|inlining procedure: k8245 o|inlining procedure: k8245 o|inlining procedure: k8269 o|inlining procedure: k8269 o|inlining procedure: k8291 o|inlining procedure: k8291 o|merged explicitly consed rest parameter: rest939942 o|inlining procedure: k8334 o|inlining procedure: k8334 o|merged explicitly consed rest parameter: rest957960 o|inlining procedure: k8358 o|inlining procedure: k8358 o|inlining procedure: k8376 o|inlining procedure: k8394 o|inlining procedure: k8394 o|inlining procedure: k8411 o|inlining procedure: k8411 o|substituted constant variable: a8452 o|substituted constant variable: a8454 o|inlining procedure: k8376 o|inlining procedure: k8462 o|inlining procedure: k8462 o|inlining procedure: k8472 o|inlining procedure: k8490 o|inlining procedure: k8490 o|inlining procedure: k8507 o|inlining procedure: k8507 o|inlining procedure: k8537 o|inlining procedure: k8537 o|substituted constant variable: a8566 o|substituted constant variable: a8568 o|substituted constant variable: a8570 o|inlining procedure: k8472 o|removed side-effect free assignment to unused variable: main#get-extension-property o|removed side-effect free assignment to unused variable: main#get-extension-property* o|removed side-effect free assignment to unused variable: main#default-extension-options o|removed side-effect free assignment to unused variable: main#default-program-options o|removed side-effect free assignment to unused variable: main#default-static-program-link-options o|removed side-effect free assignment to unused variable: main#default-dynamic-program-link-options o|removed side-effect free assignment to unused variable: main#default-static-extension-link-options o|removed side-effect free assignment to unused variable: main#default-dynamic-extension-link-options o|inlining procedure: k8694 o|inlining procedure: k8694 o|inlining procedure: k8703 o|substituted constant variable: main#+unix-object-extension+ o|propagated global variable: r870421783 main#+unix-object-extension+ o|inlining procedure: k8703 o|substituted constant variable: main#+windows-object-extension+ o|substituted constant variable: a8716 o|substituted constant variable: a8718 o|inlining procedure: k8722 o|substituted constant variable: main#+unix-archive-extension+ o|propagated global variable: r872321785 main#+unix-archive-extension+ o|inlining procedure: k8722 o|substituted constant variable: main#+windows-archive-extension+ o|substituted constant variable: a8735 o|substituted constant variable: a8737 o|inlining procedure: k8741 o|substituted constant variable: main#+unix-executable-extension+ o|propagated global variable: r874221787 main#+unix-executable-extension+ o|inlining procedure: k8741 o|substituted constant variable: main#+windows-executable-extension+ o|substituted constant variable: a8754 o|substituted constant variable: a8756 o|inlining procedure: k8760 o|inlining procedure: k8760 o|substituted constant variable: a8773 o|substituted constant variable: a8775 o|inlining procedure: k8779 o|inlining procedure: k8779 o|substituted constant variable: a8792 o|substituted constant variable: a8794 o|removed unused formal parameters: (platform1128) o|removed unused formal parameters: (platform1130) o|inlining procedure: k8810 o|inlining procedure: k8810 o|substituted constant variable: a8823 o|substituted constant variable: a8825 o|inlining procedure: k8836 o|propagated global variable: r883721795 main#staticbuild o|inlining procedure: k8836 o|inlining procedure: k8869 o|inlining procedure: k8869 o|inlining procedure: k8881 o|inlining procedure: k8881 o|merged explicitly consed rest parameter: args11551170 o|consed rest parameter at call site: tmp26200 1 o|inlining procedure: k9131 o|inlining procedure: k9131 o|merged explicitly consed rest parameter: filess1287 o|inlining procedure: k9157 o|consed rest parameter at call site: "(egg-compile.scm:208) addfiles1270" 1 o|contracted procedure: "(egg-compile.scm:223) main#import-libraries" o|inlining procedure: k8938 o|inlining procedure: k8938 o|inlining procedure: k8944 o|inlining procedure: k8959 o|inlining procedure: k8959 o|inlining procedure: k8944 o|inlining procedure: k9304 o|inlining procedure: k9304 o|consed rest parameter at call site: "(egg-compile.scm:203) main#destination-repository" 2 o|inlining procedure: k9321 o|inlining procedure: k9321 o|inlining procedure: k9157 o|consed rest parameter at call site: "(egg-compile.scm:247) main#destination-repository" 2 o|inlining procedure: k9444 o|inlining procedure: k9444 o|inlining procedure: k9492 o|propagated global variable: g16491650 chicken.string#conc o|consed rest parameter at call site: "(egg-compile.scm:269) addfiles1270" 1 o|inlining procedure: k9560 o|inlining procedure: k9560 o|inlining procedure: k9595 o|propagated global variable: r959621828 main#default-sharedir o|inlining procedure: k9595 o|inlining procedure: k9607 o|inlining procedure: k9607 o|inlining procedure: k9492 o|inlining procedure: k9694 o|inlining procedure: k9694 o|inlining procedure: k9731 o|propagated global variable: g18061807 chicken.string#conc o|consed rest parameter at call site: "(egg-compile.scm:298) addfiles1270" 1 o|inlining procedure: k9799 o|inlining procedure: k9799 o|inlining procedure: k9834 o|propagated global variable: r983521838 main#default-incdir o|inlining procedure: k9834 o|inlining procedure: k9846 o|inlining procedure: k9846 o|inlining procedure: k9731 o|propagated global variable: g18941895 chicken.string#conc o|consed rest parameter at call site: "(egg-compile.scm:313) addfiles1270" 1 o|inlining procedure: k9947 o|inlining procedure: k9947 o|inlining procedure: k9982 o|propagated global variable: r998321845 main#default-sharedir o|inlining procedure: k9982 o|inlining procedure: k9994 o|inlining procedure: k9994 o|inlining procedure: k10027 o|consed rest parameter at call site: "(egg-compile.scm:335) addfiles1270" 1 o|inlining procedure: k10111 o|inlining procedure: k10111 o|inlining procedure: k10027 o|substituted constant variable: a10165 o|substituted constant variable: a10167 o|substituted constant variable: a10169 o|substituted constant variable: a10171 o|substituted constant variable: a10173 o|substituted constant variable: a10175 o|substituted constant variable: a10177 o|inlining procedure: k10184 o|inlining procedure: k10184 o|inlining procedure: k10199 o|inlining procedure: k10199 o|consed rest parameter at call site: "(egg-compile.scm:355) arg1279" 3 o|inlining procedure: k10219 o|inlining procedure: k10219 o|consed rest parameter at call site: "(egg-compile.scm:360) arg1279" 3 o|inlining procedure: k10242 o|inlining procedure: k10279 o|inlining procedure: k10279 o|inlining procedure: k10313 o|inlining procedure: k10313 o|inlining procedure: k10242 o|inlining procedure: k10354 o|inlining procedure: k10354 o|consed rest parameter at call site: "(egg-compile.scm:366) arg1279" 3 o|inlining procedure: k10362 o|consed rest parameter at call site: "(egg-compile.scm:368) arg1279" 3 o|inlining procedure: k10362 o|inlining procedure: k10388 o|inlining procedure: k10388 o|consed rest parameter at call site: "(egg-compile.scm:374) arg1279" 3 o|inlining procedure: k10414 o|consed rest parameter at call site: "(egg-compile.scm:376) arg1279" 3 o|inlining procedure: k10414 o|inlining procedure: k10448 o|inlining procedure: k10448 o|inlining procedure: k10479 o|inlining procedure: k10503 o|inlining procedure: k10503 o|inlining procedure: k10479 o|inlining procedure: k10558 o|inlining procedure: k10558 o|substituted constant variable: a10593 o|substituted constant variable: a10595 o|substituted constant variable: a10597 o|substituted constant variable: a10599 o|substituted constant variable: a10601 o|substituted constant variable: a10603 o|substituted constant variable: a10605 o|substituted constant variable: a10607 o|substituted constant variable: a10609 o|substituted constant variable: a10611 o|substituted constant variable: a10613 o|substituted constant variable: a10615 o|inlining procedure: k10622 o|inlining procedure: k10644 o|inlining procedure: k10644 o|inlining procedure: k10622 o|inlining procedure: k10670 o|inlining procedure: k10686 o|inlining procedure: k10686 o|inlining procedure: k10670 o|inlining procedure: k10706 o|inlining procedure: k10706 o|substituted constant variable: a10727 o|substituted constant variable: a10729 o|substituted constant variable: a10731 o|substituted constant variable: a10733 o|inlining procedure: k10740 o|consed rest parameter at call site: "(egg-compile.scm:399) arg1279" 3 o|inlining procedure: k10740 o|inlining procedure: k10778 o|inlining procedure: k10778 o|substituted constant variable: a10813 o|substituted constant variable: a10815 o|inlining procedure: k10822 o|inlining procedure: k10822 o|inlining procedure: k10846 o|inlining procedure: k10846 o|substituted constant variable: a10862 o|substituted constant variable: a10864 o|substituted constant variable: a10866 o|inlining procedure: k10880 o|inlining procedure: k10880 o|inlining procedure: k10910 o|inlining procedure: k10910 o|contracted procedure: "(egg-compile.scm:415) main#check-condition" o|inlining procedure: k9012 o|inlining procedure: k9035 o|inlining procedure: k9035 o|inlining procedure: "(egg-compile.scm:140) fail1209" o|substituted constant variable: a9070 o|inlining procedure: k9012 o|substituted constant variable: a9083 o|substituted constant variable: a9091 o|inlining procedure: k9087 o|inlining procedure: k9087 o|inlining procedure: "(egg-compile.scm:144) fail1209" o|inlining procedure: k10948 o|inlining procedure: k10948 o|inlining procedure: k10972 o|inlining procedure: k10988 o|inlining procedure: k10988 o|inlining procedure: k10972 o|inlining procedure: k11024 o|inlining procedure: k11024 o|substituted constant variable: a11048 o|substituted constant variable: a11050 o|merged explicitly consed rest parameter: rest23412344 o|inlining procedure: k11063 o|inlining procedure: k11063 o|inlining procedure: k11097 o|inlining procedure: k11097 o|inlining procedure: k11107 o|inlining procedure: k11107 o|removed unused formal parameters: (name2363) o|inlining procedure: k11148 o|inlining procedure: k11163 o|inlining procedure: k11163 o|inlining procedure: k11175 o|inlining procedure: k11175 o|inlining procedure: k11187 o|inlining procedure: k11187 o|inlining procedure: k11148 o|inlining procedure: k11231 o|inlining procedure: k11231 o|inlining procedure: k11312 o|contracted procedure: "(egg-compile.scm:549) g26212630" o|inlining procedure: k11312 o|inlining procedure: k11346 o|contracted procedure: "(egg-compile.scm:548) g25942603" o|inlining procedure: k11346 o|inlining procedure: k11380 o|contracted procedure: "(egg-compile.scm:547) g25672576" o|inlining procedure: k11380 o|inlining procedure: k11414 o|contracted procedure: "(egg-compile.scm:546) g25402549" o|inlining procedure: k11414 o|inlining procedure: k11474 o|inlining procedure: k11474 o|inlining procedure: k11525 o|inlining procedure: k11525 o|inlining procedure: k11577 o|inlining procedure: k11577 o|consed rest parameter at call site: "(egg-compile.scm:518) main#append-map" 3 o|inlining procedure: k11673 o|inlining procedure: k11700 o|inlining procedure: k11700 o|inlining procedure: k11673 o|inlining procedure: k11742 o|inlining procedure: k11742 o|inlining procedure: k11650 o|inlining procedure: k11650 o|contracted procedure: "(egg-compile.scm:469) g24642465" o|inlining procedure: k11797 o|inlining procedure: k11797 o|inlining procedure: k11830 o|contracted procedure: "(egg-compile.scm:469) g24692470" o|inlining procedure: k11846 o|inlining procedure: k11846 o|inlining procedure: k11830 o|consed rest parameter at call site: "(egg-compile.scm:467) main#append-map" 3 o|removed unused parameter to known procedure: name2363 "(egg-compile.scm:460) filter-deps1283" o|inlining procedure: k11924 o|inlining procedure: k11924 o|inlining procedure: k11958 o|inlining procedure: k11958 o|inlining procedure: k12052 o|consed rest parameter at call site: "(egg-compile.scm:623) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:621) main#qs*" 3 o|inlining procedure: k12094 o|inlining procedure: k12094 o|inlining procedure: k12052 o|consed rest parameter at call site: "(egg-compile.scm:603) main#qs*" 3 o|inlining procedure: "(egg-compile.scm:602) main#joins" o|consed rest parameter at call site: "(egg-compile.scm:601) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:598) main#qs*" 3 o|inlining procedure: k12164 o|consed rest parameter at call site: "(egg-compile.scm:598) main#qs*" 3 o|inlining procedure: k12164 o|consed rest parameter at call site: "(egg-compile.scm:598) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:591) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:585) main#qs*" 3 o|inlining procedure: k12221 o|inlining procedure: k12221 o|consed rest parameter at call site: "(egg-compile.scm:573) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:571) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:569) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:565) main#qs*" 3 o|inlining procedure: k12263 o|consed rest parameter at call site: "(egg-compile.scm:565) main#qs*" 3 o|inlining procedure: k12263 o|propagated global variable: r1226422024 main#default-csc o|consed rest parameter at call site: "(egg-compile.scm:565) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:674) main#qs*" 3 o|inlining procedure: "(egg-compile.scm:671) main#joins" o|consed rest parameter at call site: "(egg-compile.scm:670) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:665) main#qs*" 3 o|inlining procedure: k12456 o|inlining procedure: k12456 o|inlining procedure: k12490 o|inlining procedure: k12490 o|consed rest parameter at call site: "(egg-compile.scm:655) main#qs*" 3 o|inlining procedure: k12522 o|consed rest parameter at call site: "(egg-compile.scm:655) main#qs*" 3 o|inlining procedure: k12522 o|consed rest parameter at call site: "(egg-compile.scm:655) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:654) main#qs*" 3 o|inlining procedure: k12545 o|inlining procedure: k12545 o|consed rest parameter at call site: "(egg-compile.scm:642) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:640) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:636) main#qs*" 3 o|inlining procedure: k12583 o|consed rest parameter at call site: "(egg-compile.scm:636) main#qs*" 3 o|inlining procedure: k12583 o|propagated global variable: r1258422045 main#default-csc o|consed rest parameter at call site: "(egg-compile.scm:636) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:705) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:704) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:702) main#qs*" 3 o|substituted constant variable: main#default-import-library-compilation-options o|consed rest parameter at call site: "(egg-compile.scm:697) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:749) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:741) main#qs*" 3 o|inlining procedure: k12762 o|consed rest parameter at call site: "(egg-compile.scm:741) main#qs*" 3 o|inlining procedure: k12762 o|consed rest parameter at call site: "(egg-compile.scm:741) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:736) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:727) main#qs*" 3 o|inlining procedure: k12790 o|consed rest parameter at call site: "(egg-compile.scm:727) main#qs*" 3 o|inlining procedure: k12790 o|propagated global variable: r1279122053 main#default-csc o|consed rest parameter at call site: "(egg-compile.scm:727) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:786) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:779) main#qs*" 3 o|inlining procedure: k12880 o|consed rest parameter at call site: "(egg-compile.scm:779) main#qs*" 3 o|inlining procedure: k12880 o|consed rest parameter at call site: "(egg-compile.scm:779) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:775) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:767) main#qs*" 3 o|inlining procedure: k12908 o|consed rest parameter at call site: "(egg-compile.scm:767) main#qs*" 3 o|inlining procedure: k12908 o|propagated global variable: r1290922061 main#default-csc o|consed rest parameter at call site: "(egg-compile.scm:767) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:827) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:823) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:820) main#qs*" 3 o|inlining procedure: k13036 o|consed rest parameter at call site: "(egg-compile.scm:820) main#qs*" 3 o|inlining procedure: k13036 o|consed rest parameter at call site: "(egg-compile.scm:820) main#qs*" 3 o|inlining procedure: k13045 o|inlining procedure: k13045 o|consed rest parameter at call site: "(egg-compile.scm:811) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:804) main#qs*" 3 o|inlining procedure: k13095 o|consed rest parameter at call site: "(egg-compile.scm:804) main#qs*" 3 o|inlining procedure: k13095 o|propagated global variable: r1309622071 main#default-csc o|consed rest parameter at call site: "(egg-compile.scm:804) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:873) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:869) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:866) main#qs*" 3 o|inlining procedure: k13226 o|consed rest parameter at call site: "(egg-compile.scm:866) main#qs*" 3 o|inlining procedure: k13226 o|consed rest parameter at call site: "(egg-compile.scm:866) main#qs*" 3 o|inlining procedure: k13235 o|inlining procedure: k13235 o|consed rest parameter at call site: "(egg-compile.scm:857) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:850) main#qs*" 3 o|inlining procedure: k13285 o|consed rest parameter at call site: "(egg-compile.scm:850) main#qs*" 3 o|inlining procedure: k13285 o|propagated global variable: r1328622081 main#default-csc o|consed rest parameter at call site: "(egg-compile.scm:850) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:899) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:897) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:895) main#qs*" 3 o|inlining procedure: k13339 o|consed rest parameter at call site: "(egg-compile.scm:895) main#qs*" 3 o|inlining procedure: k13339 o|consed rest parameter at call site: "(egg-compile.scm:895) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:894) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:926) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:924) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:920) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:919) main#destination-repository" 2 o|consed rest parameter at call site: "(egg-compile.scm:918) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:916) main#qs*" 3 o|inlining procedure: "(egg-compile.scm:910) main#install-file-command" o|consed rest parameter at call site: "(egg-compile.scm:941) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:939) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:938) main#destination-repository" 2 o|consed rest parameter at call site: "(egg-compile.scm:937) main#qs*" 3 o|inlining procedure: "(egg-compile.scm:933) main#install-executable-command" o|consed rest parameter at call site: "(egg-compile.scm:966) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:962) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:961) main#destination-repository" 2 o|consed rest parameter at call site: "(egg-compile.scm:959) main#qs*" 3 o|inlining procedure: "(egg-compile.scm:956) main#install-file-command" o|consed rest parameter at call site: "(egg-compile.scm:980) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:976) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:975) main#destination-repository" 2 o|consed rest parameter at call site: "(egg-compile.scm:973) main#qs*" 3 o|inlining procedure: "(egg-compile.scm:971) main#install-file-command" o|consed rest parameter at call site: "(egg-compile.scm:994) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:990) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:989) main#destination-repository" 2 o|consed rest parameter at call site: "(egg-compile.scm:987) main#qs*" 3 o|inlining procedure: "(egg-compile.scm:985) main#install-file-command" o|consed rest parameter at call site: "(egg-compile.scm:1009) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1007) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1003) main#qs*" 3 o|inlining procedure: "(egg-compile.scm:998) main#install-executable-command" o|removed unused formal parameters: (mode3192) o|contracted procedure: "(egg-compile.scm:1025) main#partition" o|inlining procedure: k6800 o|inlining procedure: k6800 o|inlining procedure: k13835 o|consed rest parameter at call site: "(egg-compile.scm:1036) main#qs*" 3 o|inlining procedure: k13835 o|consed rest parameter at call site: "(egg-compile.scm:1033) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1032) main#qs*" 3 o|inlining procedure: k13890 o|consed rest parameter at call site: "(egg-compile.scm:1051) main#qs*" 3 o|inlining procedure: k13890 o|consed rest parameter at call site: "(egg-compile.scm:1048) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1047) main#qs*" 3 o|inlining procedure: k13862 o|inlining procedure: k13917 o|inlining procedure: k13917 o|inlining procedure: k13862 o|inlining procedure: k13940 o|inlining procedure: k13940 o|consed rest parameter at call site: "(egg-compile.scm:1022) main#qs*" 3 o|inlining procedure: k13963 o|inlining procedure: k13963 o|inlining procedure: "(egg-compile.scm:1017) main#install-file-command" o|removed unused parameter to known procedure: mode3192 "(egg-compile.scm:1058) main#install-random-files" o|inlining procedure: k14012 o|removed unused parameter to known procedure: mode3192 "(egg-compile.scm:1058) main#install-random-files" o|inlining procedure: k14012 o|removed unused parameter to known procedure: mode3192 "(egg-compile.scm:1058) main#install-random-files" o|removed unused parameter to known procedure: mode3192 "(egg-compile.scm:1067) main#install-random-files" o|inlining procedure: k14045 o|removed unused parameter to known procedure: mode3192 "(egg-compile.scm:1067) main#install-random-files" o|inlining procedure: k14045 o|removed unused parameter to known procedure: mode3192 "(egg-compile.scm:1067) main#install-random-files" o|inlining procedure: k14100 o|inlining procedure: k14100 o|consed rest parameter at call site: "(egg-compile.scm:1082) main#qs*" 3 o|contracted procedure: "(egg-compile.scm:1082) main#cd-command" o|removed unused formal parameters: (mode3361 name3362 info3363) o|propagated global variable: out33713374 ##sys#standard-output o|substituted constant variable: a14145 o|substituted constant variable: a14146 o|inlining procedure: k14138 o|consed rest parameter at call site: "(egg-compile.scm:1106) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1105) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1105) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1104) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1104) main#qs*" 3 o|propagated global variable: out33713374 ##sys#standard-output o|inlining procedure: k14138 o|propagated global variable: out33883391 ##sys#standard-output o|substituted constant variable: a14213 o|substituted constant variable: a14214 o|consed rest parameter at call site: "(egg-compile.scm:1119) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1118) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1118) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1117) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1117) main#qs*" 3 o|propagated global variable: out33883391 ##sys#standard-output o|substituted constant variable: a14275 o|substituted constant variable: a14277 o|removed unused formal parameters: (mode3406 name3407 info3408) o|propagated global variable: out34163419 ##sys#standard-output o|inlining procedure: k14283 o|substituted constant variable: a14290 o|substituted constant variable: a14291 o|inlining procedure: k14283 o|propagated global variable: out34203423 ##sys#standard-output o|substituted constant variable: a14299 o|substituted constant variable: a14300 o|substituted constant variable: a14302 o|substituted constant variable: a14304 o|removed unused formal parameters: (mode3425 name3426 info3427) o|propagated global variable: out34353438 ##sys#standard-output o|substituted constant variable: a14317 o|substituted constant variable: a14318 o|inlining procedure: k14310 o|propagated global variable: out34353438 ##sys#standard-output o|inlining procedure: k14310 o|propagated global variable: out34423445 ##sys#standard-output o|substituted constant variable: a14335 o|substituted constant variable: a14336 o|propagated global variable: out34423445 ##sys#standard-output o|substituted constant variable: a14344 o|substituted constant variable: a14346 o|propagated global variable: out34713474 ##sys#standard-output o|substituted constant variable: a14380 o|substituted constant variable: a14381 o|inlining procedure: k14373 o|propagated global variable: out34713474 ##sys#standard-output o|inlining procedure: k14373 o|propagated global variable: out34923495 ##sys#standard-output o|substituted constant variable: a14440 o|substituted constant variable: a14441 o|propagated global variable: out34923495 ##sys#standard-output o|substituted constant variable: a14484 o|substituted constant variable: a14486 o|consed rest parameter at call site: "(egg-compile.scm:1153) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1152) main#qs*" 3 o|consed rest parameter at call site: "(egg-compile.scm:1151) main#destination-repository" 2 o|propagated global variable: g34573458 chicken.pretty-print#pp o|merged explicitly consed rest parameter: rest35113514 o|inlining procedure: k14513 o|inlining procedure: k14513 o|inlining procedure: k14531 o|inlining procedure: k14561 o|contracted procedure: "(egg-compile.scm:1193) g35333542" o|inlining procedure: k14546 o|inlining procedure: k14546 o|inlining procedure: k14561 o|inlining procedure: k14531 o|inlining procedure: k14609 o|inlining procedure: k14609 o|substituted constant variable: a14631 o|inlining procedure: k14621 o|substituted constant variable: a14628 o|inlining procedure: k14621 o|inlining procedure: k14635 o|inlining procedure: k14635 o|consed rest parameter at call site: "(egg-compile.scm:1214) main#qs*" 3 o|inlining procedure: k14672 o|inlining procedure: k14672 o|inlining procedure: k14727 o|inlining procedure: k14727 o|inlining procedure: k14761 o|inlining procedure: k14761 o|substituted constant variable: a14780 o|substituted constant variable: a14782 o|inlining procedure: k14786 o|inlining procedure: k14786 o|inlining procedure: k14798 o|inlining procedure: k14805 o|inlining procedure: k14805 o|substituted constant variable: a14815 o|inlining procedure: k14798 o|inlining procedure: k14819 o|inlining procedure: k14819 o|substituted constant variable: a14829 o|inlining procedure: k14861 o|inlining procedure: k14861 o|inlining procedure: k14904 o|inlining procedure: k14904 o|inlining procedure: k14919 o|inlining procedure: k14919 o|substituted constant variable: main#+url-regex+ o|inlining procedure: k14990 o|inlining procedure: k14990 o|contracted procedure: "(egg-download.scm:105) main#read-chunks" o|inlining procedure: k15398 o|inlining procedure: k15398 o|consed rest parameter at call site: "(egg-download.scm:181) main#d" 2 o|consed rest parameter at call site: "(egg-download.scm:185) main#d" 2 o|consed rest parameter at call site: "(egg-download.scm:104) main#d" 2 o|inlining procedure: k15062 o|inlining procedure: k15062 o|contracted procedure: "(egg-download.scm:93) main#network-failure" o|consed rest parameter at call site: "(egg-download.scm:86) main#make-HTTP-GET/1.1" 4 o|inlining procedure: k15084 o|inlining procedure: k15084 o|consed rest parameter at call site: "(egg-download.scm:101) main#d" 2 o|inlining procedure: k15106 o|inlining procedure: k15106 o|contracted procedure: "(egg-download.scm:99) main#match-content-length" o|inlining procedure: k15483 o|inlining procedure: k15483 o|contracted procedure: "(egg-download.scm:97) main#match-chunked-transfer-encoding" o|consed rest parameter at call site: "(egg-download.scm:80) main#d" 2 o|contracted procedure: "(egg-download.scm:79) main#match-http-response" o|inlining procedure: k15444 o|inlining procedure: k15444 o|consed rest parameter at call site: "(egg-download.scm:75) main#d" 2 o|consed rest parameter at call site: "(egg-download.scm:70) main#make-HTTP-GET/1.1" 4 o|consed rest parameter at call site: "(egg-download.scm:69) main#d" 2 o|consed rest parameter at call site: "(egg-download.scm:63) main#d" 2 o|substituted constant variable: a15123 o|substituted constant variable: a15124 o|inlining procedure: k15116 o|consed rest parameter at call site: "(egg-download.scm:63) main#d" 2 o|inlining procedure: k15116 o|consed rest parameter at call site: "(egg-download.scm:63) main#d" 2 o|inlining procedure: k15456 o|inlining procedure: k15456 o|merged explicitly consed rest parameter: rest39783982 o|merged explicitly consed rest parameter: rest40054008 o|inlining procedure: k15627 o|inlining procedure: k15627 o|inlining procedure: k15645 o|inlining procedure: k15645 o|inlining procedure: k15660 o|inlining procedure: k15660 o|inlining procedure: k15669 o|inlining procedure: k15669 o|inlining procedure: k15678 o|inlining procedure: k15678 o|contracted procedure: "(egg-download.scm:253) main#list-versions" o|contracted procedure: "(egg-download.scm:246) main#http-query" o|contracted procedure: "(egg-download.scm:60) main#http-retrieve-response" o|consed rest parameter at call site: "(egg-download.scm:161) main#d" 2 o|consed rest parameter at call site: "(egg-download.scm:252) main#d" 2 o|inlining procedure: k15995 o|consed rest parameter at call site: "(chicken-install.scm:119) main#destination-repository" 2 o|inlining procedure: k15995 o|consed rest parameter at call site: "(chicken-install.scm:120) main#destination-repository" 2 o|inlining procedure: k16021 o|inlining procedure: k16021 o|inlining procedure: k16041 o|inlining procedure: k16041 o|inlining procedure: k16053 o|inlining procedure: k16065 o|inlining procedure: k16065 o|inlining procedure: k16053 o|inlining procedure: k16084 o|inlining procedure: k16099 o|inlining procedure: k16099 o|inlining procedure: k16084 o|inlining procedure: k16114 o|inlining procedure: k16114 o|inlining procedure: k16141 o|inlining procedure: k16141 o|inlining procedure: k16150 o|inlining procedure: k16150 o|inlining procedure: k16186 o|inlining procedure: k16186 o|inlining procedure: k16218 o|substituted constant variable: a16263 o|inlining procedure: k16231 o|inlining procedure: k16276 o|inlining procedure: k16276 o|inlining procedure: k16231 o|inlining procedure: k16218 o|inlining procedure: k16309 o|inlining procedure: k16309 o|inlining procedure: k16327 o|inlining procedure: k16327 o|inlining procedure: k16350 o|inlining procedure: k16350 o|inlining procedure: k16371 o|inlining procedure: k16371 o|inlining procedure: k16381 o|inlining procedure: k16381 o|inlining procedure: k16413 o|inlining procedure: k16413 o|inlining procedure: k16444 o|inlining procedure: k16444 o|merged explicitly consed rest parameter: args4324 o|inlining procedure: k16508 o|propagated global variable: port4332 ##sys#standard-error o|inlining procedure: k16508 o|inlining procedure: k16571 o|contracted procedure: "(chicken-install.scm:270) g43484357" o|inlining procedure: k16559 o|inlining procedure: k16559 o|inlining procedure: k16571 o|inlining procedure: k16620 o|inlining procedure: k16620 o|inlining procedure: k16635 o|inlining procedure: k16650 o|inlining procedure: k16650 o|inlining procedure: k16635 o|inlining procedure: k16687 o|inlining procedure: k16687 o|inlining procedure: k17202 o|inlining procedure: k17202 o|inlining procedure: k17224 o|inlining procedure: k17224 o|inlining procedure: k17255 o|inlining procedure: k17255 o|consed rest parameter at call site: "(chicken-install.scm:389) main#d" 2 o|contracted procedure: "(chicken-install.scm:376) main#delete-duplicates" o|inlining procedure: k7364 o|inlining procedure: k7364 o|inlining procedure: k17300 o|contracted procedure: "(chicken-install.scm:379) g45734574" o|inlining procedure: k17320 o|inlining procedure: k17320 o|inlining procedure: k17300 o|consed rest parameter at call site: "(chicken-install.scm:377) main#append-map" 3 o|consed rest parameter at call site: "(chicken-install.scm:468) main#d" 2 o|inlining procedure: k17738 o|inlining procedure: k17738 o|consed rest parameter at call site: "(chicken-install.scm:525) main#d" 2 o|consed rest parameter at call site: "(chicken-install.scm:524) main#qs*" 3 o|consed rest parameter at call site: "(chicken-install.scm:523) main#qs*" 3 o|inlining procedure: k18458 o|inlining procedure: k18662 o|contracted procedure: "(chicken-install.scm:615) g49894996" o|inlining procedure: k18469 o|inlining procedure: k18469 o|contracted procedure: "(chicken-install.scm:626) main#outdated-dependencies" o|inlining procedure: k18729 o|inlining procedure: k18729 o|inlining procedure: k18774 o|inlining procedure: k18774 o|inlining procedure: k18786 o|inlining procedure: k18786 o|propagated global variable: g50705072 main#hacks o|contracted procedure: "(chicken-install.scm:654) main#get-egg-dependencies" o|inlining procedure: k18821 o|consed rest parameter at call site: "(chicken-install.scm:668) main#get-egg-property*" 3 o|inlining procedure: k18821 o|consed rest parameter at call site: "(chicken-install.scm:666) main#get-egg-property*" 3 o|consed rest parameter at call site: "(chicken-install.scm:665) main#get-egg-property*" 3 o|inlining procedure: k18524 o|consed rest parameter at call site: "(chicken-install.scm:643) main#d" 2 o|contracted procedure: "(chicken-install.scm:642) main#unzip1" o|inlining procedure: k7529 o|contracted procedure: "(mini-srfi-1.scm:143) g535544" o|inlining procedure: k7529 o|inlining procedure: k18524 o|propagated global variable: tmp50385040 main#force-install o|inlining procedure: k18546 o|propagated global variable: tmp50385040 main#force-install o|inlining procedure: k18546 o|contracted procedure: "(chicken-install.scm:641) main#replace-extension-question" o|inlining procedure: k19283 o|inlining procedure: k19283 o|substituted constant variable: a19290 o|substituted constant variable: a19295 o|inlining procedure: k19291 o|inlining procedure: k19291 o|contracted procedure: "(chicken-install.scm:773) main#trim" o|inlining procedure: k19442 o|inlining procedure: k19442 o|inlining procedure: k19333 o|substituted constant variable: a19347 o|substituted constant variable: a19348 o|inlining procedure: k19333 o|inlining procedure: k19328 o|inlining procedure: k19328 o|consed rest parameter at call site: "(chicken-install.scm:637) main#d" 2 o|inlining procedure: k18598 o|contracted procedure: "(chicken-install.scm:630) g50175026" o|inlining procedure: k18579 o|inlining procedure: k18579 o|inlining procedure: k18598 o|consed rest parameter at call site: "(chicken-install.scm:624) main#d" 2 o|contracted procedure: "(chicken-install.scm:623) main#check-platform" o|inlining procedure: k19158 o|inlining procedure: k19158 o|inlining procedure: k19170 o|inlining procedure: k19170 o|inlining procedure: k19179 o|inlining procedure: k19179 o|inlining procedure: k19197 o|inlining procedure: k19197 o|inlining procedure: k19225 o|inlining procedure: k19225 o|consed rest parameter at call site: "(chicken-install.scm:733) main#get-egg-property" 3 o|consed rest parameter at call site: "(chicken-install.scm:622) main#d" 2 o|consed rest parameter at call site: "(chicken-install.scm:618) main#d" 2 o|inlining procedure: k18662 o|propagated global variable: g49954997 main#canonical-eggs o|inlining procedure: k18458 o|inlining procedure: k18685 o|contracted procedure: "(chicken-install.scm:596) g49434950" o|inlining procedure: k18378 o|contracted procedure: "(chicken-install.scm:598) g49594960" o|inlining procedure: k18378 o|contracted procedure: "(chicken-install.scm:605) main#locate-egg" o|contracted procedure: "(chicken-install.scm:426) main#fetch-egg-sources" o|inlining procedure: k17764 o|inlining procedure: k17789 o|inlining procedure: k17789 o|contracted procedure: "(chicken-install.scm:487) main#try-download" o|inlining procedure: k15825 o|inlining procedure: k15825 o|inlining procedure: k15849 o|inlining procedure: k15849 o|inlining procedure: k15867 o|inlining procedure: k15867 o|inlining procedure: k15876 o|inlining procedure: k15876 o|inlining procedure: k15885 o|inlining procedure: k15885 o|contracted procedure: "(egg-download.scm:285) main#download-egg" o|inlining procedure: k15760 o|inlining procedure: k15760 o|contracted procedure: "(egg-download.scm:276) main#http-fetch" o|contracted procedure: "(egg-download.scm:53) main#http-retrieve-files" o|inlining procedure: k15155 o|inlining procedure: k15155 o|inlining procedure: k15184 o|inlining procedure: k15184 o|substituted constant variable: a15208 o|inlining procedure: k15213 o|inlining procedure: k15213 o|inlining procedure: k15249 o|contracted procedure: "(egg-download.scm:140) main#server-error" o|inlining procedure: k15249 o|inlining procedure: k15280 o|inlining procedure: k15280 o|consed rest parameter at call site: "(egg-download.scm:149) main#d" 2 o|consed rest parameter at call site: "(egg-download.scm:153) main#d" 2 o|contracted procedure: "(egg-download.scm:148) main#string-suffix?" o|inlining procedure: k16476 o|inlining procedure: k16476 o|consed rest parameter at call site: "(egg-download.scm:111) main#d" 2 o|consed rest parameter at call site: "(egg-download.scm:283) main#d" 2 o|inlining procedure: k17829 o|inlining procedure: k17829 o|consed rest parameter at call site: "(chicken-install.scm:485) main#d" 2 o|inlining procedure: k17885 o|inlining procedure: k17885 o|propagated global variable: g47724776 main#default-servers o|inlining procedure: k17764 o|inlining procedure: k17936 o|inlining procedure: k17936 o|inlining procedure: k17958 o|inlining procedure: k17958 o|consed rest parameter at call site: "(chicken-install.scm:510) main#get-egg-property" 3 o|consed rest parameter at call site: "(chicken-install.scm:507) main#d" 2 o|inlining procedure: k17562 o|inlining procedure: k17586 o|inlining procedure: k17586 o|consed rest parameter at call site: "(chicken-install.scm:458) main#get-egg-property" 3 o|consed rest parameter at call site: "(chicken-install.scm:455) main#d" 2 o|inlining procedure: k17562 o|inlining procedure: k17608 o|inlining procedure: k17608 o|contracted procedure: "(chicken-install.scm:454) main#check-remote-version" o|inlining procedure: k18021 o|inlining procedure: k18043 o|consed rest parameter at call site: "(chicken-install.scm:533) main#try-list-versions" 3 o|inlining procedure: k18043 o|inlining procedure: k18077 o|inlining procedure: k18077 o|propagated global variable: g48464850 main#default-servers o|inlining procedure: k18021 o|contracted procedure: "(chicken-install.scm:541) main#compare-trees" o|inlining procedure: k18156 o|inlining procedure: k18179 o|inlining procedure: k18179 o|inlining procedure: k18156 o|substituted constant variable: main#+one-hour+ o|inlining procedure: k17652 o|inlining procedure: k17652 o|consed rest parameter at call site: "(chicken-install.scm:445) main#get-egg-property" 3 o|inlining procedure: k17674 o|inlining procedure: k17674 o|consed rest parameter at call site: "(chicken-install.scm:430) main#d" 2 o|inlining procedure: k17683 o|inlining procedure: k17695 o|inlining procedure: k17695 o|consed rest parameter at call site: "(chicken-install.scm:436) main#d" 2 o|inlining procedure: k17683 o|substituted constant variable: main#+status-file+ o|consed rest parameter at call site: "(chicken-install.scm:610) main#d" 2 o|inlining procedure: k18432 o|inlining procedure: k18432 o|contracted procedure: "(chicken-install.scm:604) main#override-version" o|inlining procedure: k17390 o|inlining procedure: k17390 o|substituted constant variable: a17421 o|substituted constant variable: a17422 o|consed rest parameter at call site: "(chicken-install.scm:406) main#d" 2 o|inlining procedure: k17461 o|inlining procedure: k17461 o|inlining procedure: k17382 o|inlining procedure: k17382 o|inlining procedure: k17495 o|inlining procedure: k17495 o|inlining procedure: k18685 o|inlining procedure: k18830 o|inlining procedure: k18843 o|inlining procedure: k18843 o|inlining procedure: k18830 o|inlining procedure: k18872 o|inlining procedure: k18882 o|inlining procedure: k18882 o|inlining procedure: k18872 o|inlining procedure: k18904 o|inlining procedure: k18904 o|inlining procedure: k18925 o|inlining procedure: k18925 o|inlining procedure: k18934 o|inlining procedure: k18934 o|inlining procedure: k18946 o|inlining procedure: k18970 o|substituted constant variable: a18979 o|inlining procedure: k18984 o|inlining procedure: k18984 o|inlining procedure: k18970 o|inlining procedure: k18946 o|inlining procedure: k19052 o|inlining procedure: k19052 o|substituted constant variable: a19073 o|inlining procedure: k19092 o|inlining procedure: k19092 o|contracted procedure: "(chicken-install.scm:716) g51545155" o|inlining procedure: k19118 o|inlining procedure: k19118 o|inlining procedure: k19131 o|inlining procedure: k19131 o|contracted procedure: "(chicken-install.scm:720) main#repo-path" o|inlining procedure: k15973 o|consed rest parameter at call site: "(chicken-install.scm:114) main#destination-repository" 2 o|inlining procedure: k15973 o|inlining procedure: k19878 o|contracted procedure: "(chicken-install.scm:810) g53115318" o|inlining procedure: k19670 o|inlining procedure: k19697 o|inlining procedure: k19697 o|consed rest parameter at call site: "(chicken-install.scm:877) main#run-script" 4 o|consed rest parameter at call site: "(chicken-install.scm:874) main#run-script" 4 o|removed unused parameter to known procedure: mode3425 "(chicken-install.scm:868) main#install-prefix" o|removed unused parameter to known procedure: name3426 "(chicken-install.scm:868) main#install-prefix" o|removed unused parameter to known procedure: info3427 "(chicken-install.scm:868) main#install-prefix" o|removed unused parameter to known procedure: mode3406 "(chicken-install.scm:865) main#build-suffix" o|removed unused parameter to known procedure: name3407 "(chicken-install.scm:865) main#build-suffix" o|removed unused parameter to known procedure: info3408 "(chicken-install.scm:865) main#build-suffix" o|removed unused parameter to known procedure: mode3361 "(chicken-install.scm:864) main#build-prefix" o|removed unused parameter to known procedure: name3362 "(chicken-install.scm:864) main#build-prefix" o|removed unused parameter to known procedure: info3363 "(chicken-install.scm:864) main#build-prefix" o|inlining procedure: k19670 o|inlining procedure: k19775 o|inlining procedure: k19775 o|inlining procedure: k19802 o|contracted procedure: "(chicken-install.scm:850) main#test-egg" o|inlining procedure: k19944 o|consed rest parameter at call site: "(chicken-install.scm:902) main#d" 2 o|inlining procedure: k19994 o|inlining procedure: k19994 o|consed rest parameter at call site: "(chicken-install.scm:899) main#qs*" 3 o|consed rest parameter at call site: "(chicken-install.scm:898) main#qs*" 3 o|consed rest parameter at call site: "(chicken-install.scm:897) main#qs*" 3 o|inlining procedure: k19944 o|inlining procedure: k19802 o|consed rest parameter at call site: "(chicken-install.scm:847) main#run-script" 4 o|contracted procedure: "(chicken-install.scm:845) main#check-installed-files" o|inlining procedure: k18295 o|propagated global variable: out49034906 ##sys#standard-error o|substituted constant variable: a18305 o|substituted constant variable: a18306 o|inlining procedure: k18295 o|inlining procedure: k18342 o|contracted procedure: "(chicken-install.scm:586) g49134920" o|propagated global variable: out49234926 ##sys#standard-error o|substituted constant variable: a18319 o|substituted constant variable: a18320 o|propagated global variable: out49234926 ##sys#standard-error o|inlining procedure: k18342 o|propagated global variable: out49034906 ##sys#standard-error o|contracted procedure: "(chicken-install.scm:581) main#matching-installed-files" o|inlining procedure: k18213 o|inlining procedure: k18213 o|inlining procedure: k18249 o|inlining procedure: k18249 o|inlining procedure: k18258 o|inlining procedure: k18258 o|consed rest parameter at call site: "(chicken-install.scm:843) main#run-script" 4 o|removed unused parameter to known procedure: mode3425 "(chicken-install.scm:837) main#install-prefix" o|removed unused parameter to known procedure: name3426 "(chicken-install.scm:837) main#install-prefix" o|removed unused parameter to known procedure: info3427 "(chicken-install.scm:837) main#install-prefix" o|removed unused parameter to known procedure: mode3406 "(chicken-install.scm:834) main#build-suffix" o|removed unused parameter to known procedure: name3407 "(chicken-install.scm:834) main#build-suffix" o|removed unused parameter to known procedure: info3408 "(chicken-install.scm:834) main#build-suffix" o|removed unused parameter to known procedure: mode3361 "(chicken-install.scm:833) main#build-prefix" o|removed unused parameter to known procedure: name3362 "(chicken-install.scm:833) main#build-prefix" o|removed unused parameter to known procedure: info3363 "(chicken-install.scm:833) main#build-prefix" o|propagated global variable: tmp53285330 main#host-extension o|propagated global variable: tmp53285330 main#host-extension o|inlining procedure: k19851 o|inlining procedure: k19851 o|inlining procedure: k19878 o|contracted procedure: "(chicken-install.scm:878) main#order-installed-eggs" o|inlining procedure: k19907 o|inlining procedure: k19907 o|consed rest parameter at call site: "(chicken-install.scm:884) main#d" 2 o|merged explicitly consed rest parameter: rest54275431 o|contracted procedure: "(chicken-install.scm:915) main#exec" o|inlining procedure: k20074 o|inlining procedure: k20074 o|consed rest parameter at call site: "(chicken-install.scm:932) main#d" 2 o|inlining procedure: k20036 o|consed rest parameter at call site: "(chicken-install.scm:925) main#qs*" 3 o|inlining procedure: k20036 o|consed rest parameter at call site: "(chicken-install.scm:914) main#d" 2 o|contracted procedure: "(chicken-install.scm:1189) main#main" o|inlining procedure: k20850 o|contracted procedure: "(chicken-install.scm:1079) main#perform-actions" o|inlining procedure: k20599 o|contracted procedure: "(chicken-install.scm:1008) main#update-db" o|inlining procedure: k20160 o|contracted procedure: "(chicken-install.scm:980) g55935600" o|inlining procedure: k20160 o|inlining procedure: k20216 o|inlining procedure: k20228 o|inlining procedure: k20296 o|inlining procedure: k20296 o|inlining procedure: k20330 o|inlining procedure: k20330 o|inlining procedure: k20228 o|substituted constant variable: main#+internal-modules+ o|inlining procedure: k20216 o|inlining procedure: k20478 o|contracted procedure: "(chicken-install.scm:949) g54665473" o|substituted constant variable: a20420 o|substituted constant variable: a20421 o|inlining procedure: k20478 o|inlining procedure: k20599 o|contracted procedure: "(chicken-install.scm:1009) main#purge-cache" o|inlining procedure: k20522 o|consed rest parameter at call site: "(chicken-install.scm:991) main#d" 2 o|inlining procedure: k20522 o|inlining procedure: k20573 o|contracted procedure: "(chicken-install.scm:994) g56255632" o|inlining procedure: k20548 o|consed rest parameter at call site: "(chicken-install.scm:999) main#d" 2 o|inlining procedure: k20548 o|inlining procedure: k20573 o|inlining procedure: k20611 o|inlining procedure: k20611 o|inlining procedure: k20627 o|inlining procedure: k20627 o|inlining procedure: k20681 o|inlining procedure: k20681 o|inlining procedure: k20690 o|inlining procedure: k20690 o|propagated global variable: g56945698 main#canonical-eggs o|inlining procedure: k20724 o|contracted procedure: "(chicken-install.scm:1020) g56615670" o|inlining procedure: k20724 o|inlining procedure: k20764 o|contracted procedure: "(chicken-install.scm:1028) main#list-egg-versions" o|inlining procedure: k19515 o|inlining procedure: k19515 o|inlining procedure: k19538 o|propagated global variable: out52715274 ##sys#standard-output o|substituted constant variable: a19559 o|substituted constant variable: a19560 o|inlining procedure: k19584 o|contracted procedure: "(chicken-install.scm:801) g52805287" o|inlining procedure: k19584 o|propagated global variable: out52715274 ##sys#standard-output o|consed rest parameter at call site: "(chicken-install.scm:797) main#try-list-versions" 3 o|inlining procedure: k19538 o|inlining procedure: k19613 o|inlining procedure: k19613 o|propagated global variable: g52475251 main#default-servers o|inlining procedure: k20764 o|inlining procedure: k20795 o|contracted procedure: "(chicken-install.scm:1030) g57225731" o|inlining procedure: k20795 o|contracted procedure: "(chicken-install.scm:1007) main#load-defaults" o|inlining procedure: k16737 o|inlining procedure: k16751 o|inlining procedure: k16766 o|substituted constant variable: a16780 o|substituted constant variable: a16781 o|substituted constant variable: main#+defaults-version+ o|inlining procedure: k16766 o|substituted constant variable: main#+defaults-version+ o|inlining procedure: k16751 o|inlining procedure: k16830 o|contracted procedure: "(chicken-install.scm:327) main#split-at" o|inlining procedure: k6960 o|inlining procedure: k6960 o|contracted procedure: "(chicken-install.scm:325) main#list-index" o|inlining procedure: k7594 o|inlining procedure: k7594 o|inlining procedure: k16890 o|inlining procedure: k16890 o|inlining procedure: k16830 o|inlining procedure: k16937 o|inlining procedure: k16937 o|inlining procedure: k16960 o|inlining procedure: k16960 o|substituted constant variable: a16969 o|inlining procedure: k16982 o|inlining procedure: k16982 o|inlining procedure: k17013 o|inlining procedure: k17013 o|inlining procedure: k17058 o|inlining procedure: k17058 o|substituted constant variable: a17084 o|substituted constant variable: a17086 o|substituted constant variable: a17088 o|substituted constant variable: a17090 o|substituted constant variable: a17092 o|substituted constant variable: a17094 o|substituted constant variable: a17096 o|inlining procedure: k16737 o|inlining procedure: k17120 o|inlining procedure: k17120 o|propagated global variable: tmp43994401 main#user-defaults o|propagated global variable: tmp43994401 main#user-defaults o|inlining procedure: k17147 o|inlining procedure: k17147 o|contracted procedure: "(chicken-install.scm:1078) main#validate-environment" o|inlining procedure: k8224 o|inlining procedure: k8224 o|inlining procedure: k20850 o|inlining procedure: k20878 o|inlining procedure: k20878 o|inlining procedure: k20902 o|inlining procedure: k20902 o|inlining procedure: k20930 o|inlining procedure: k20930 o|inlining procedure: k20965 o|inlining procedure: k20965 o|inlining procedure: k20989 o|inlining procedure: k20989 o|inlining procedure: k21017 o|inlining procedure: k21017 o|inlining procedure: k21041 o|inlining procedure: k21041 o|inlining procedure: k21065 o|inlining procedure: k21065 o|inlining procedure: k21089 o|inlining procedure: k21089 o|inlining procedure: k21113 o|inlining procedure: k21113 o|inlining procedure: k21137 o|inlining procedure: k21137 o|inlining procedure: k21215 o|contracted procedure: "(chicken-install.scm:1152) g57915800" o|inlining procedure: k21175 o|inlining procedure: k21175 o|inlining procedure: k21215 o|inlining procedure: k21258 o|inlining procedure: k21258 o|inlining procedure: k21296 o|inlining procedure: k21335 o|contracted procedure: "(chicken-install.scm:1173) g58325841" o|inlining procedure: k21335 o|substituted constant variable: main#+short-options+ o|inlining procedure: k21296 o|substituted constant variable: a21386 o|contracted procedure: "(chicken-install.scm:1180) main#alist-cons" o|inlining procedure: k21391 o|inlining procedure: k21391 o|substituted constant variable: a21434 o|substituted constant variable: a21431 o|contracted procedure: "(chicken-install.scm:1072) main#setup-proxy" o|inlining procedure: k17169 o|inlining procedure: k17181 o|inlining procedure: k17181 o|inlining procedure: k17169 o|substituted constant variable: main#+default-tcp-read/write-timeout+ o|substituted constant variable: main#+default-tcp-read/write-timeout+ o|substituted constant variable: main#+default-tcp-connect-timeout+ o|inlining procedure: k21678 o|inlining procedure: k21678 o|simplifications: ((if . 2)) o|replaced variables: 2311 o|removed binding forms: 1175 o|removed side-effect free assignment to unused variable: main#+defaults-version+ o|removed side-effect free assignment to unused variable: main#+short-options+ o|removed side-effect free assignment to unused variable: main#+one-hour+ o|removed side-effect free assignment to unused variable: main#+internal-modules+ o|substituted constant variable: r700921727 o|substituted constant variable: r704921729 o|substituted constant variable: r720421737 o|substituted constant variable: r726221739 o|substituted constant variable: r745721750 o|removed side-effect free assignment to unused variable: main#list-tabulate o|substituted constant variable: r792521753 o|removed side-effect free assignment to unused variable: main#+status-file+ o|substituted constant variable: r827021758 o|removed side-effect free assignment to unused variable: main#get-extension-property/internal o|removed side-effect free assignment to unused variable: main#default-import-library-compilation-options o|removed side-effect free assignment to unused variable: main#+windows-executable-extension+ o|removed side-effect free assignment to unused variable: main#+windows-object-extension+ o|removed side-effect free assignment to unused variable: main#+windows-archive-extension+ o|substituted constant variable: main#+unix-object-extension+ o|substituted constant variable: main#+unix-archive-extension+ o|substituted constant variable: main#+unix-executable-extension+ o|substituted constant variable: r876121789 o|substituted constant variable: r878021791 o|removed side-effect free assignment to unused variable: main#install-executable-command o|removed side-effect free assignment to unused variable: main#install-file-command o|substituted constant variable: r881121793 o|substituted constant variable: r883721797 o|substituted constant variable: r883721797 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r888221802 o|substituted constant variable: r893921808 o|substituted constant variable: r893921808 o|substituted constant variable: r893921810 o|substituted constant variable: r893921810 o|converted assignments to bindings: (implib1176) o|substituted constant variable: r1020021855 o|inlining procedure: k10199 o|inlining procedure: k10199 o|removed side-effect free assignment to unused variable: fail1209 o|substituted constant variable: r1110821941 o|substituted constant variable: r1114921950 o|substituted constant variable: r1123221953 o|substituted constant variable: r1123221953 o|substituted constant variable: r1147521965 o|substituted constant variable: r1147521965 o|substituted constant variable: r1167421975 o|substituted constant variable: r1167421975 o|substituted constant variable: r1179821985 o|substituted constant variable: r1179821985 o|substituted constant variable: r1184721990 o|substituted constant variable: r1184721990 o|substituted constant variable: r1222222020 o|substituted constant variable: r1222222020 o|substituted constant variable: r1254622041 o|substituted constant variable: r1254622041 o|removed call to pure procedure with unused result: "(egg-compile.scm:628) ##sys#get-keyword" o|removed call to pure procedure with unused result: "(egg-compile.scm:761) ##sys#get-keyword" o|inlining procedure: k14012 o|propagated global variable: r1401322807 main#default-sharedir o|propagated global variable: r1401322807 main#default-sharedir o|inlining procedure: k14045 o|propagated global variable: r1404622809 main#default-incdir o|propagated global variable: r1404622809 main#default-incdir o|removed call to pure procedure with unused result: "(egg-compile.scm:1065) ##sys#get-keyword" o|propagated global variable: out33713374 ##sys#standard-output o|propagated global variable: out33883391 ##sys#standard-output o|propagated global variable: out34163419 ##sys#standard-output o|propagated global variable: out34203423 ##sys#standard-output o|propagated global variable: out34353438 ##sys#standard-output o|propagated global variable: out34423445 ##sys#standard-output o|propagated global variable: out34713474 ##sys#standard-output o|propagated global variable: out34923495 ##sys#standard-output o|substituted constant variable: r1451422158 o|substituted constant variable: r1451422158 o|substituted constant variable: r1454722164 o|substituted constant variable: r1462222173 o|substituted constant variable: r1479922189 o|removed side-effect free assignment to unused variable: main#joins o|substituted constant variable: r1486222193 o|removed side-effect free assignment to unused variable: main#+default-tcp-connect-timeout+ o|removed side-effect free assignment to unused variable: main#+default-tcp-read/write-timeout+ o|removed side-effect free assignment to unused variable: main#+url-regex+ o|substituted constant variable: r1490522196 o|substituted constant variable: r1490522196 o|substituted constant variable: r1548422213 o|substituted constant variable: r1544522215 o|substituted constant variable: r1511722218 o|substituted constant variable: r1511722218 o|substituted constant variable: r1545722221 o|removed call to pure procedure with unused result: "(egg-download.scm:204) ##sys#get-keyword" o|substituted constant variable: r1562822222 o|substituted constant variable: r1564622224 o|substituted constant variable: r1566122227 o|substituted constant variable: r1567022229 o|substituted constant variable: r1567922231 o|removed call to pure procedure with unused result: "(egg-download.scm:250) ##sys#get-keyword" o|removed call to pure procedure with unused result: "(egg-download.scm:250) ##sys#get-keyword" o|removed call to pure procedure with unused result: "(egg-download.scm:250) ##sys#get-keyword" o|substituted constant variable: r1602222234 o|substituted constant variable: r1602222234 o|substituted constant variable: r1602222236 o|substituted constant variable: r1602222236 o|substituted constant variable: r1604222238 o|substituted constant variable: r1604222238 o|substituted constant variable: r1604222240 o|substituted constant variable: r1604222240 o|substituted constant variable: r1606622244 o|substituted constant variable: r1605422245 o|substituted constant variable: r1608522249 o|substituted constant variable: r1611522251 o|substituted constant variable: r1615122255 o|substituted constant variable: r1637222271 o|substituted constant variable: r1638222273 o|converted assignments to bindings: (version->list4338) o|converted assignments to bindings: (same?4553) o|substituted constant variable: r1882222322 o|substituted constant variable: r1882222322 o|propagated global variable: r1854722328 main#force-install o|substituted constant variable: r1944322334 o|substituted constant variable: r1586822369 o|substituted constant variable: r1587722371 o|substituted constant variable: r1588622373 o|inlining procedure: k15760 o|inlining procedure: k15760 o|inlining procedure: k15184 o|inlining procedure: k15184 o|substituted constant variable: r1647722397 o|substituted constant variable: r1758722409 o|substituted constant variable: r1804422415 o|substituted constant variable: r1815722422 o|substituted constant variable: r1765322424 o|converted assignments to bindings: (fetch4657) o|substituted constant variable: r1746222452 o|substituted constant variable: r1884422463 o|substituted constant variable: r1884422463 o|substituted constant variable: r1888322467 o|substituted constant variable: r1888322467 o|inlining procedure: k18882 o|inlining procedure: k18882 o|substituted constant variable: r1893522479 o|substituted constant variable: r1905322487 o|substituted constant variable: r1911922491 o|substituted constant variable: r1913222493 o|removed unused parameter to known procedure: dir5428 "(chicken-install.scm:877) main#run-script" o|removed unused parameter to known procedure: dir5428 "(chicken-install.scm:874) main#run-script" o|substituted constant variable: r1999522507 o|substituted constant variable: r1999522507 o|substituted constant variable: r1994522509 o|substituted constant variable: r1980322510 o|removed unused parameter to known procedure: dir5428 "(chicken-install.scm:847) main#run-script" o|propagated global variable: out49034906 ##sys#standard-error o|propagated global variable: out49234926 ##sys#standard-error o|substituted constant variable: r1825022519 o|substituted constant variable: r1825022519 o|substituted constant variable: r1825922522 o|contracted procedure: "(chicken-install.scm:574) main#filter" o|substituted constant variable: r741321746 o|removed unused parameter to known procedure: dir5428 "(chicken-install.scm:843) main#run-script" o|substituted constant variable: r1985222524 o|removed unused formal parameters: (dir5428) o|substituted constant variable: r2003722536 o|substituted constant variable: r2003722536 o|substituted constant variable: r2022922548 o|substituted constant variable: r2021722549 o|propagated global variable: out52715274 ##sys#standard-output o|substituted constant variable: r1953922575 o|substituted constant variable: r1673822581 o|substituted constant variable: r759522589 o|substituted constant variable: r1696122597 o|inlining procedure: k17020 o|converted assignments to bindings: (broken4410) o|inlining procedure: k17196 o|inlining procedure: k17196 o|substituted constant variable: r1718222648 o|substituted constant variable: r1717022649 o|simplifications: ((let . 5)) o|replaced variables: 130 o|removed binding forms: 2341 o|removed conditional forms: 1 o|inlining procedure: k8331 o|inlining procedure: k8355 o|removed side-effect free assignment to unused variable: main#+unix-executable-extension+ o|removed side-effect free assignment to unused variable: main#+unix-object-extension+ o|removed side-effect free assignment to unused variable: main#+unix-archive-extension+ o|inlining procedure: k8872 o|inlining procedure: k8872 o|inlining procedure: k8872 o|inlining procedure: "(egg-compile.scm:597) main#maybe" o|inlining procedure: "(egg-compile.scm:596) main#maybe" o|inlining procedure: k12227 o|inlining procedure: "(egg-compile.scm:571) main#prefix" o|inlining procedure: "(egg-compile.scm:569) main#prefix" o|inlining procedure: "(egg-compile.scm:568) main#prefix" o|contracted procedure: k12272 o|inlining procedure: "(egg-compile.scm:665) main#prefix" o|inlining procedure: "(egg-compile.scm:663) main#maybe" o|inlining procedure: "(egg-compile.scm:662) main#maybe" o|inlining procedure: k12551 o|inlining procedure: "(egg-compile.scm:642) main#prefix" o|inlining procedure: "(egg-compile.scm:640) main#prefix" o|inlining procedure: "(egg-compile.scm:639) main#prefix" o|inlining procedure: "(egg-compile.scm:698) main#prefix" o|inlining procedure: "(egg-compile.scm:731) main#prefix" o|inlining procedure: "(egg-compile.scm:730) main#prefix" o|contracted procedure: k12799 o|inlining procedure: "(egg-compile.scm:774) main#prefix" o|inlining procedure: "(egg-compile.scm:773) main#prefix" o|inlining procedure: "(egg-compile.scm:807) main#prefix" o|inlining procedure: "(egg-compile.scm:853) main#prefix" o|inlining procedure: "(egg-compile.scm:915) main#prefix" o|inlining procedure: "(egg-compile.scm:936) main#prefix" o|inlining procedure: "(egg-compile.scm:958) main#prefix" o|inlining procedure: "(egg-compile.scm:973) main#prefix" o|inlining procedure: "(egg-compile.scm:987) main#prefix" o|inlining procedure: "(egg-compile.scm:1002) main#prefix" o|inlining procedure: "(egg-compile.scm:1021) main#prefix" o|contracted procedure: k14027 o|inlining procedure: "(egg-compile.scm:1217) main#prefix" o|inlining procedure: "(egg-compile.scm:1230) main#prefix" o|inlining procedure: "(egg-compile.scm:1230) main#prefix" o|inlining procedure: k14841 o|inlining procedure: k15023 o|inlining procedure: k15023 o|inlining procedure: k15090 o|inlining procedure: k15090 o|contracted procedure: k15511 o|removed unused formal parameters: (rest40054008) o|contracted procedure: k15591 o|contracted procedure: k15594 o|contracted procedure: k15597 o|inlining procedure: k15998 o|inlining procedure: k16239 o|inlining procedure: k16330 o|inlining procedure: "(chicken-install.scm:621) main#load-egg-info" o|inlining procedure: k15771 o|inlining procedure: k15771 o|inlining procedure: "(chicken-install.scm:509) main#load-egg-info" o|inlining procedure: k17580 o|inlining procedure: k17580 o|inlining procedure: "(chicken-install.scm:457) main#load-egg-info" o|removed unused parameter to known procedure: rest40054008 "(chicken-install.scm:533) main#try-list-versions" o|inlining procedure: "(chicken-install.scm:442) main#load-egg-info" o|substituted constant variable: r1888322928 o|inlining procedure: "(chicken-install.scm:723) main#load-egg-info" o|inlining procedure: k19793 o|inlining procedure: k19793 o|inlining procedure: "(chicken-install.scm:571) main#load-egg-info" o|inlining procedure: "(chicken-install.scm:815) main#load-egg-info" o|removed unused parameter to known procedure: rest40054008 "(chicken-install.scm:797) main#try-list-versions" o|inlining procedure: k17097 o|inlining procedure: k17097 o|inlining procedure: k17144 o|inlining procedure: k8230 o|inlining procedure: "(chicken-install.scm:1082) main#usage" o|inlining procedure: k20908 o|inlining procedure: k20908 o|inlining procedure: "(chicken-install.scm:1149) main#usage" o|inlining procedure: "(chicken-install.scm:1160) main#usage" o|inlining procedure: "(chicken-install.scm:1175) main#usage" o|inlining procedure: "(chicken-install.scm:1176) main#usage" o|substituted constant variable: r1719723015 o|replaced variables: 50 o|removed binding forms: 275 o|removed side-effect free assignment to unused variable: main#load-egg-info o|substituted constant variable: r833223038 o|substituted constant variable: r833223038 o|substituted constant variable: r833223038 o|substituted constant variable: r835623041 o|substituted constant variable: r835623041 o|substituted constant variable: r835623041 o|substituted constant variable: r887323044 o|substituted constant variable: r887323045 o|substituted constant variable: r887323046 o|substituted constant variable: r1222823127 o|substituted constant variable: r1255223164 o|contracted procedure: k14121 o|removed side-effect free assignment to unused variable: main#maybe o|substituted constant variable: r1599923323 o|substituted constant variable: r1633123330 o|substituted constant variable: r1576122883 o|substituted constant variable: r1577223369 o|substituted constant variable: r1577223370 o|substituted constant variable: r1758123383 o|substituted constant variable: r1979423415 o|substituted constant variable: r1979423416 o|removed side-effect free assignment to unused variable: main#usage o|substituted constant variable: r1709823470 o|substituted constant variable: r1714523473 o|substituted constant variable: r1714523473 o|substituted constant variable: r1714523473 o|substituted constant variable: code574723478 o|substituted constant variable: code574723491 o|substituted constant variable: code574723496 o|substituted constant variable: code574723503 o|substituted constant variable: code574723508 o|simplifications: ((let . 1)) o|replaced variables: 45 o|removed binding forms: 79 o|removed conditional forms: 13 o|inlining procedure: k12179 o|substituted constant variable: r14122 o|replaced variables: 2 o|removed binding forms: 67 o|substituted constant variable: r1218023822 o|substituted constant variable: a14120 o|removed binding forms: 2 o|removed binding forms: 2 o|simplifications: ((if . 99) (##core#call . 1368)) o| call simplifications: o| ##sys#size o| chicken.fixnum#fx> o| scheme#string o| chicken.fixnum#fx+ o| chicken.fixnum#fx<= o| chicken.fixnum#fx- o| scheme#caddr o| scheme#- o| chicken.fixnum#fx< o| scheme#eof-object? 2 o| scheme#char-whitespace? o| scheme#assoc 3 o| scheme#number? 3 o| scheme#> 2 o| scheme#= 2 o| chicken.fixnum#fx>= o| scheme#string=? 6 o| scheme#equal? 25 o| scheme#string-length 5 o| scheme#string->list 3 o| scheme#char=? o| scheme#list->string 2 o| ##sys#call-with-values 19 o| ##sys#get-keyword 81 o| chicken.keyword#get-keyword 10 o| ##sys#cons 9 o| ##sys#list 44 o| scheme#values 29 o| scheme#string? 14 o| scheme#< o| scheme#list-ref o| scheme#caar 2 o| scheme#list? 11 o| scheme#symbol? 12 o| scheme#length 4 o| scheme#cdar o| scheme#cddr 10 o| scheme#memq 16 o| scheme#list 47 o| scheme#member 15 o| ##sys#apply 4 o| ##sys#structure? 3 o| scheme#memv 15 o| scheme#assq 19 o| scheme#cadr 36 o| scheme#eq? 118 o| scheme#not 57 o| scheme#null? 56 o| scheme#car 64 o| scheme#apply 24 o| scheme#cdr 35 o| scheme#cons 128 o| ##sys#setslot 45 o| ##sys#check-list 68 o| scheme#pair? 105 o| ##sys#slot 200 o|contracted procedure: k6996 o|contracted procedure: k6999 o|contracted procedure: k7011 o|contracted procedure: k7027 o|contracted procedure: k7035 o|contracted procedure: k7042 o|contracted procedure: k7066 o|contracted procedure: k7083 o|contracted procedure: k7105 o|contracted procedure: k7101 o|contracted procedure: k7086 o|contracted procedure: k7089 o|contracted procedure: k7097 o|contracted procedure: k7112 o|contracted procedure: k7120 o|contracted procedure: k7132 o|contracted procedure: k7154 o|contracted procedure: k7150 o|contracted procedure: k7135 o|contracted procedure: k7138 o|contracted procedure: k7146 o|contracted procedure: k7169 o|contracted procedure: k7178 o|contracted procedure: k7191 o|contracted procedure: k7206 o|contracted procedure: k7221 o|contracted procedure: k7264 o|contracted procedure: k7271 o|contracted procedure: k7292 o|contracted procedure: k7318 o|contracted procedure: k7447 o|contracted procedure: k7459 o|contracted procedure: k7482 o|contracted procedure: k7490 o|contracted procedure: k7927 o|contracted procedure: k7943 o|contracted procedure: k21706 o|contracted procedure: k8134 o|contracted procedure: k8260 o|contracted procedure: k8242 o|contracted procedure: k8248 o|contracted procedure: k8340 o|contracted procedure: k8325 o|contracted procedure: k8328 o|contracted procedure: k8331 o|contracted procedure: k8364 o|contracted procedure: k8349 o|contracted procedure: k8352 o|contracted procedure: k8355 o|contracted procedure: k8673 o|contracted procedure: k8677 o|contracted procedure: k8706 o|contracted procedure: k8712 o|contracted procedure: k8725 o|contracted procedure: k8731 o|contracted procedure: k8744 o|contracted procedure: k8750 o|contracted procedure: k8763 o|contracted procedure: k8769 o|contracted procedure: k8782 o|contracted procedure: k8788 o|contracted procedure: k8813 o|contracted procedure: k8819 o|contracted procedure: k8839 o|contracted procedure: k8896 o|contracted procedure: k8866 o|contracted procedure: k8884 o|contracted procedure: k8890 o|contracted procedure: k8872 o|contracted procedure: k9134 o|contracted procedure: k9148 o|contracted procedure: k9154 o|contracted procedure: k9160 o|contracted procedure: k9372 o|contracted procedure: k9166 o|contracted procedure: k9206 o|contracted procedure: k9209 o|contracted procedure: k9218 o|contracted procedure: k9239 o|contracted procedure: k9235 o|contracted procedure: k9231 o|contracted procedure: k8947 o|contracted procedure: k8950 o|contracted procedure: k8962 o|contracted procedure: k8965 o|contracted procedure: k8968 o|contracted procedure: k8976 o|contracted procedure: k8984 o|contracted procedure: k9279 o|contracted procedure: k9289 o|contracted procedure: k9307 o|contracted procedure: k9310 o|contracted procedure: k9314 o|contracted procedure: k9324 o|contracted procedure: k9334 o|contracted procedure: k9338 o|contracted procedure: k9376 o|contracted procedure: k9382 o|contracted procedure: k9485 o|contracted procedure: k9388 o|contracted procedure: k9418 o|contracted procedure: k9421 o|contracted procedure: k9430 o|contracted procedure: k9438 o|contracted procedure: k9434 o|contracted procedure: k9447 o|contracted procedure: k9457 o|contracted procedure: k9461 o|contracted procedure: k9489 o|contracted procedure: k9495 o|contracted procedure: k9516 o|contracted procedure: k9519 o|contracted procedure: k9539 o|contracted procedure: k9535 o|contracted procedure: k9543 o|contracted procedure: k9551 o|contracted procedure: k9563 o|contracted procedure: k9566 o|contracted procedure: k9569 o|contracted procedure: k9577 o|contracted procedure: k9585 o|contracted procedure: k9598 o|contracted procedure: k9610 o|contracted procedure: k9620 o|contracted procedure: k9624 o|contracted procedure: k9637 o|contracted procedure: k9643 o|contracted procedure: k9668 o|contracted procedure: k9671 o|contracted procedure: k9685 o|contracted procedure: k9681 o|contracted procedure: k9697 o|contracted procedure: k9707 o|contracted procedure: k9711 o|contracted procedure: k9728 o|contracted procedure: k9734 o|contracted procedure: k9755 o|contracted procedure: k9758 o|contracted procedure: k9778 o|contracted procedure: k9774 o|contracted procedure: k9782 o|contracted procedure: k9790 o|contracted procedure: k9802 o|contracted procedure: k9805 o|contracted procedure: k9808 o|contracted procedure: k9816 o|contracted procedure: k9824 o|contracted procedure: k9837 o|contracted procedure: k9849 o|contracted procedure: k9859 o|contracted procedure: k9863 o|contracted procedure: k9876 o|contracted procedure: k9882 o|contracted procedure: k9903 o|contracted procedure: k9906 o|contracted procedure: k9926 o|contracted procedure: k9922 o|contracted procedure: k9930 o|contracted procedure: k9938 o|contracted procedure: k9950 o|contracted procedure: k9953 o|contracted procedure: k9956 o|contracted procedure: k9964 o|contracted procedure: k9972 o|contracted procedure: k9985 o|contracted procedure: k9997 o|contracted procedure: k10007 o|contracted procedure: k10011 o|contracted procedure: k10024 o|contracted procedure: k10030 o|contracted procedure: k10154 o|contracted procedure: k10036 o|contracted procedure: k10068 o|contracted procedure: k10071 o|contracted procedure: k10080 o|contracted procedure: k10091 o|contracted procedure: k10087 o|contracted procedure: k10095 o|contracted procedure: k10102 o|contracted procedure: k10114 o|contracted procedure: k10124 o|contracted procedure: k10128 o|contracted procedure: k10158 o|contracted procedure: k10181 o|contracted procedure: k10187 o|contracted procedure: k10195 o|contracted procedure: k10202 o|contracted procedure: k10237 o|contracted procedure: k10233 o|contracted procedure: k10208 o|contracted procedure: k10216 o|contracted procedure: k10245 o|contracted procedure: k10248 o|contracted procedure: k10252 o|contracted procedure: k10267 o|contracted procedure: k10270 o|contracted procedure: k10282 o|contracted procedure: k10285 o|contracted procedure: k10288 o|contracted procedure: k10296 o|contracted procedure: k10304 o|contracted procedure: k10316 o|contracted procedure: k10319 o|contracted procedure: k10322 o|contracted procedure: k10330 o|contracted procedure: k10338 o|contracted procedure: k10347 o|contracted procedure: k10351 o|contracted procedure: k10365 o|contracted procedure: k10379 o|contracted procedure: k10391 o|contracted procedure: k10403 o|contracted procedure: k10417 o|contracted procedure: k10431 o|contracted procedure: k10435 o|contracted procedure: k10439 o|contracted procedure: k10451 o|contracted procedure: k10454 o|contracted procedure: k10457 o|contracted procedure: k10465 o|contracted procedure: k10473 o|contracted procedure: k10482 o|contracted procedure: k10490 o|contracted procedure: k10494 o|contracted procedure: k10506 o|contracted procedure: k10509 o|contracted procedure: k10512 o|contracted procedure: k10520 o|contracted procedure: k10528 o|contracted procedure: k10537 o|contracted procedure: k10545 o|contracted procedure: k10549 o|contracted procedure: k10561 o|contracted procedure: k10564 o|contracted procedure: k10567 o|contracted procedure: k10575 o|contracted procedure: k10583 o|contracted procedure: k10619 o|contracted procedure: k10625 o|contracted procedure: k10631 o|contracted procedure: k10635 o|contracted procedure: k10647 o|contracted procedure: k10657 o|contracted procedure: k10661 o|contracted procedure: k10667 o|contracted procedure: k10673 o|contracted procedure: k10677 o|contracted procedure: k10689 o|contracted procedure: k10699 o|contracted procedure: k10703 o|contracted procedure: k10709 o|contracted procedure: k10720 o|contracted procedure: k10737 o|contracted procedure: k10743 o|contracted procedure: k10757 o|contracted procedure: k10765 o|contracted procedure: k10769 o|contracted procedure: k10781 o|contracted procedure: k10784 o|contracted procedure: k10787 o|contracted procedure: k10795 o|contracted procedure: k10803 o|contracted procedure: k10819 o|contracted procedure: k10825 o|contracted procedure: k10837 o|contracted procedure: k10849 o|contracted procedure: k10874 o|contracted procedure: k10883 o|contracted procedure: k10942 o|contracted procedure: k10892 o|contracted procedure: k10898 o|contracted procedure: k10901 o|contracted procedure: k10913 o|contracted procedure: k10923 o|contracted procedure: k10927 o|contracted procedure: k9107 o|contracted procedure: k9015 o|contracted procedure: k9032 o|contracted procedure: k9038 o|contracted procedure: k9049 o|contracted procedure: k9076 o|contracted procedure: k9064 o|contracted procedure: k9072 o|contracted procedure: k9098 o|contracted procedure: k10957 o|contracted procedure: k10969 o|contracted procedure: k10975 o|contracted procedure: k10979 o|contracted procedure: k10991 o|contracted procedure: k11001 o|contracted procedure: k11005 o|contracted procedure: k11011 o|contracted procedure: k11015 o|contracted procedure: k11027 o|contracted procedure: k11037 o|contracted procedure: k11041 o|contracted procedure: k11060 o|contracted procedure: k11079 o|contracted procedure: k11072 o|contracted procedure: k11082 o|contracted procedure: k11094 o|contracted procedure: k11110 o|contracted procedure: k11136 o|contracted procedure: k11151 o|contracted procedure: k11154 o|contracted procedure: k11160 o|contracted procedure: k11166 o|contracted procedure: k11172 o|contracted procedure: k11178 o|contracted procedure: k11184 o|contracted procedure: k11190 o|contracted procedure: k11199 o|contracted procedure: k11242 o|contracted procedure: k11227 o|contracted procedure: k11238 o|contracted procedure: k11231 o|contracted procedure: k11250 o|contracted procedure: k11258 o|contracted procedure: k11265 o|contracted procedure: k11273 o|contracted procedure: k11280 o|contracted procedure: k11288 o|contracted procedure: k11295 o|contracted procedure: k11303 o|contracted procedure: k11315 o|contracted procedure: k11318 o|contracted procedure: k11321 o|contracted procedure: k11329 o|contracted procedure: k11337 o|contracted procedure: k11349 o|contracted procedure: k11352 o|contracted procedure: k11355 o|contracted procedure: k11363 o|contracted procedure: k11371 o|contracted procedure: k11383 o|contracted procedure: k11386 o|contracted procedure: k11389 o|contracted procedure: k11397 o|contracted procedure: k11405 o|contracted procedure: k11417 o|contracted procedure: k11420 o|contracted procedure: k11423 o|contracted procedure: k11431 o|contracted procedure: k11439 o|contracted procedure: k11641 o|contracted procedure: k11448 o|contracted procedure: k11451 o|contracted procedure: k11477 o|contracted procedure: k11474 o|contracted procedure: k11489 o|contracted procedure: k11504 o|contracted procedure: k11513 o|contracted procedure: k11516 o|contracted procedure: k11528 o|contracted procedure: k11531 o|contracted procedure: k11534 o|contracted procedure: k11542 o|contracted procedure: k11550 o|contracted procedure: k11556 o|contracted procedure: k11565 o|contracted procedure: k11568 o|contracted procedure: k11580 o|contracted procedure: k11583 o|contracted procedure: k11586 o|contracted procedure: k11594 o|contracted procedure: k11602 o|contracted procedure: k11608 o|contracted procedure: k11615 o|contracted procedure: k11618 o|contracted procedure: k11628 o|contracted procedure: k11647 o|contracted procedure: k11772 o|contracted procedure: k11655 o|contracted procedure: k11658 o|contracted procedure: k11679 o|contracted procedure: k11688 o|contracted procedure: k11691 o|contracted procedure: k11703 o|contracted procedure: k11706 o|contracted procedure: k11709 o|contracted procedure: k11717 o|contracted procedure: k11725 o|contracted procedure: k11731 o|contracted procedure: k11745 o|contracted procedure: k11742 o|contracted procedure: k11759 o|contracted procedure: k11778 o|contracted procedure: k11821 o|contracted procedure: k11786 o|contracted procedure: k11800 o|contracted procedure: k11797 o|contracted procedure: k11810 o|contracted procedure: k11827 o|contracted procedure: k11870 o|contracted procedure: k11835 o|contracted procedure: k11849 o|contracted procedure: k11846 o|contracted procedure: k11859 o|contracted procedure: k11876 o|contracted procedure: k11891 o|contracted procedure: k11900 o|contracted procedure: k11910 o|contracted procedure: k11915 o|contracted procedure: k11927 o|contracted procedure: k11930 o|contracted procedure: k11933 o|contracted procedure: k11941 o|contracted procedure: k11949 o|contracted procedure: k11961 o|contracted procedure: k11971 o|contracted procedure: k11975 o|contracted procedure: k11981 o|contracted procedure: k11984 o|contracted procedure: k11987 o|contracted procedure: k11993 o|contracted procedure: k11996 o|contracted procedure: k11999 o|contracted procedure: k12002 o|contracted procedure: k12005 o|contracted procedure: k12008 o|contracted procedure: k12058 o|contracted procedure: k12076 o|contracted procedure: k12097 o|contracted procedure: k12100 o|contracted procedure: k12103 o|contracted procedure: k12111 o|contracted procedure: k12119 o|contracted procedure: k12138 o|contracted procedure: k12146 o|contracted procedure: k12157 o|contracted procedure: k12150 o|contracted procedure: k12171 o|contracted procedure: k12175 o|contracted procedure: k12179 o|contracted procedure: k12182 o|contracted procedure: k12236 o|contracted procedure: k12213 o|contracted procedure: k12221 o|contracted procedure: k12227 o|contracted procedure: k12275 o|contracted procedure: k12278 o|contracted procedure: k12287 o|contracted procedure: k12290 o|contracted procedure: k12293 o|contracted procedure: k12296 o|contracted procedure: k12299 o|contracted procedure: k12302 o|contracted procedure: k12305 o|contracted procedure: k12308 o|contracted procedure: k12334 o|contracted procedure: k12350 o|contracted procedure: k12381 o|contracted procedure: k12393 o|contracted procedure: k12412 o|contracted procedure: k12397 o|contracted procedure: k12419 o|contracted procedure: k12423 o|contracted procedure: k12427 o|contracted procedure: k12431 o|contracted procedure: k12447 o|contracted procedure: k12459 o|contracted procedure: k12462 o|contracted procedure: k12465 o|contracted procedure: k12473 o|contracted procedure: k12481 o|contracted procedure: k12493 o|contracted procedure: k12496 o|contracted procedure: k12499 o|contracted procedure: k12507 o|contracted procedure: k12515 o|contracted procedure: k12560 o|contracted procedure: k12537 o|contracted procedure: k12545 o|contracted procedure: k12551 o|contracted procedure: k12595 o|contracted procedure: k12598 o|contracted procedure: k12669 o|contracted procedure: k12615 o|contracted procedure: k12639 o|contracted procedure: k12654 o|contracted procedure: k12643 o|contracted procedure: k12681 o|contracted procedure: k12684 o|contracted procedure: k12687 o|contracted procedure: k12693 o|contracted procedure: k12696 o|contracted procedure: k12780 o|contracted procedure: k12710 o|contracted procedure: k12744 o|contracted procedure: k12755 o|contracted procedure: k12748 o|contracted procedure: k12802 o|contracted procedure: k12805 o|contracted procedure: k12811 o|contracted procedure: k12814 o|contracted procedure: k12817 o|contracted procedure: k12901 o|contracted procedure: k12825 o|contracted procedure: k12858 o|contracted procedure: k12873 o|contracted procedure: k12866 o|contracted procedure: k12917 o|contracted procedure: k12920 o|contracted procedure: k12929 o|contracted procedure: k12932 o|contracted procedure: k12935 o|contracted procedure: k12938 o|contracted procedure: k13088 o|contracted procedure: k12949 o|contracted procedure: k12955 o|contracted procedure: k12971 o|contracted procedure: k12998 o|contracted procedure: k13010 o|contracted procedure: k13029 o|contracted procedure: k13014 o|contracted procedure: k13048 o|contracted procedure: k13051 o|contracted procedure: k13054 o|contracted procedure: k13062 o|contracted procedure: k13070 o|contracted procedure: k13107 o|contracted procedure: k13116 o|contracted procedure: k13119 o|contracted procedure: k13122 o|contracted procedure: k13125 o|contracted procedure: k13128 o|contracted procedure: k13278 o|contracted procedure: k13139 o|contracted procedure: k13145 o|contracted procedure: k13161 o|contracted procedure: k13188 o|contracted procedure: k13200 o|contracted procedure: k13219 o|contracted procedure: k13204 o|contracted procedure: k13238 o|contracted procedure: k13241 o|contracted procedure: k13244 o|contracted procedure: k13252 o|contracted procedure: k13260 o|contracted procedure: k13297 o|contracted procedure: k13300 o|contracted procedure: k13303 o|contracted procedure: k13306 o|contracted procedure: k13349 o|contracted procedure: k13352 o|contracted procedure: k13355 o|contracted procedure: k13427 o|contracted procedure: k13439 o|contracted procedure: k13445 o|contracted procedure: k13489 o|contracted procedure: k13513 o|contracted procedure: k13527 o|contracted procedure: k13581 o|contracted procedure: k13584 o|contracted procedure: k13635 o|contracted procedure: k13638 o|contracted procedure: k13689 o|contracted procedure: k13692 o|contracted procedure: k13739 o|contracted procedure: k13749 o|contracted procedure: k13778 o|contracted procedure: k13786 o|contracted procedure: k6803 o|contracted procedure: k6827 o|contracted procedure: k6838 o|contracted procedure: k6846 o|contracted procedure: k13856 o|contracted procedure: k13865 o|contracted procedure: k13920 o|contracted procedure: k13930 o|contracted procedure: k13934 o|contracted procedure: k13943 o|contracted procedure: k13953 o|contracted procedure: k13957 o|contracted procedure: k13966 o|contracted procedure: k13969 o|contracted procedure: k13972 o|contracted procedure: k13980 o|contracted procedure: k13988 o|contracted procedure: k13997 o|contracted procedure: k14000 o|contracted procedure: k14003 o|contracted procedure: k14018 o|contracted procedure: k14030 o|contracted procedure: k14033 o|contracted procedure: k14036 o|contracted procedure: k14051 o|contracted procedure: k14088 o|contracted procedure: k14103 o|contracted procedure: k14113 o|contracted procedure: k14117 o|contracted procedure: k14141 o|contracted procedure: k14209 o|contracted procedure: k14286 o|contracted procedure: k14295 o|contracted procedure: k14313 o|contracted procedure: k14331 o|contracted procedure: k14376 o|contracted procedure: k14436 o|contracted procedure: k14522 o|contracted procedure: k14500 o|contracted procedure: k14516 o|contracted procedure: k14534 o|contracted procedure: k14541 o|contracted procedure: k14564 o|contracted procedure: k14567 o|contracted procedure: k14570 o|contracted procedure: k14578 o|contracted procedure: k14586 o|contracted procedure: k14549 o|contracted procedure: k14618 o|contracted procedure: k14625 o|contracted procedure: k14638 o|contracted procedure: k14651 o|contracted procedure: k14663 o|contracted procedure: k14675 o|contracted procedure: k14678 o|contracted procedure: k14681 o|contracted procedure: k14689 o|contracted procedure: k14697 o|contracted procedure: k14710 o|contracted procedure: k14718 o|contracted procedure: k14730 o|contracted procedure: k14733 o|contracted procedure: k14736 o|contracted procedure: k14744 o|contracted procedure: k14752 o|contracted procedure: k14764 o|contracted procedure: k14773 o|contracted procedure: k14789 o|contracted procedure: k14808 o|contracted procedure: k14822 o|contracted procedure: k14833 o|contracted procedure: k14986 o|contracted procedure: k15401 o|contracted procedure: k15434 o|contracted procedure: k15087 o|contracted procedure: k15447 o|contracted procedure: k15508 o|contracted procedure: k15514 o|contracted procedure: k15687 o|contracted procedure: k15624 o|contracted procedure: k15663 o|contracted procedure: k15672 o|contracted procedure: k15681 o|contracted procedure: k15954 o|contracted procedure: k21660 o|contracted procedure: k15963 o|contracted procedure: k15967 o|contracted procedure: k15998 o|contracted procedure: k16027 o|contracted procedure: k16017 o|contracted procedure: k16024 o|contracted procedure: k16047 o|contracted procedure: k16037 o|contracted procedure: k16044 o|contracted procedure: k16056 o|contracted procedure: k16062 o|contracted procedure: k16068 o|contracted procedure: k16087 o|contracted procedure: k16090 o|contracted procedure: k16108 o|contracted procedure: k16096 o|contracted procedure: k16117 o|contracted procedure: k16132 o|contracted procedure: k16120 o|contracted procedure: k16147 o|contracted procedure: k16153 o|contracted procedure: k16169 o|contracted procedure: k16159 o|contracted procedure: k21453 o|contracted procedure: k21461 o|contracted procedure: k21469 o|contracted procedure: k21477 o|contracted procedure: k21485 o|contracted procedure: k21493 o|contracted procedure: k21501 o|contracted procedure: k21509 o|contracted procedure: k21517 o|contracted procedure: k21521 o|contracted procedure: k21525 o|contracted procedure: k21529 o|contracted procedure: k21533 o|contracted procedure: k21537 o|contracted procedure: k21541 o|contracted procedure: k21545 o|contracted procedure: k21549 o|contracted procedure: k21553 o|contracted procedure: k21557 o|contracted procedure: k21561 o|contracted procedure: k21565 o|contracted procedure: k21569 o|contracted procedure: k21573 o|contracted procedure: k21577 o|contracted procedure: k21581 o|contracted procedure: k21585 o|contracted procedure: k21589 o|contracted procedure: k21593 o|contracted procedure: k21597 o|contracted procedure: k21601 o|contracted procedure: k21605 o|contracted procedure: k21609 o|contracted procedure: k21613 o|contracted procedure: k21617 o|contracted procedure: k21621 o|contracted procedure: k21625 o|contracted procedure: k21629 o|contracted procedure: k21633 o|contracted procedure: k21637 o|contracted procedure: k21513 o|contracted procedure: k21505 o|contracted procedure: k21497 o|contracted procedure: k21489 o|contracted procedure: k21481 o|contracted procedure: k21473 o|contracted procedure: k21465 o|contracted procedure: k21457 o|contracted procedure: k16175 o|contracted procedure: k16432 o|contracted procedure: k16189 o|contracted procedure: k16407 o|contracted procedure: k16198 o|contracted procedure: k16394 o|contracted procedure: k16212 o|contracted procedure: k16228 o|contracted procedure: k16234 o|contracted procedure: k16246 o|contracted procedure: k1624623327 o|contracted procedure: k16255 o|contracted procedure: k16264 o|contracted procedure: k16267 o|contracted procedure: k16279 o|contracted procedure: k16289 o|contracted procedure: k16293 o|contracted procedure: k16300 o|contracted procedure: k16378 o|contracted procedure: k16368 o|contracted procedure: k16312 o|contracted procedure: k16330 o|contracted procedure: k16344 o|contracted procedure: k16365 o|contracted procedure: k16347 o|contracted procedure: k16361 o|contracted procedure: k16357 o|contracted procedure: k16391 o|contracted procedure: k16384 o|contracted procedure: k16428 o|contracted procedure: k16410 o|contracted procedure: k16424 o|contracted procedure: k16420 o|contracted procedure: k16435 o|contracted procedure: k16447 o|contracted procedure: k16457 o|contracted procedure: k16461 o|contracted procedure: k16542 o|contracted procedure: k16538 o|contracted procedure: k16499 o|contracted procedure: k16532 o|contracted procedure: k16502 o|contracted procedure: k16526 o|contracted procedure: k16505 o|contracted procedure: k16511 o|contracted procedure: k16551 o|contracted procedure: k16574 o|contracted procedure: k16577 o|contracted procedure: k16580 o|contracted procedure: k16588 o|contracted procedure: k16596 o|contracted procedure: k16623 o|contracted procedure: k16629 o|contracted procedure: k16716 o|contracted procedure: k16638 o|contracted procedure: k16675 o|contracted procedure: k16644 o|contracted procedure: k16647 o|contracted procedure: k16656 o|contracted procedure: k16712 o|contracted procedure: k16678 o|contracted procedure: k16693 o|contracted procedure: k17205 o|contracted procedure: k17218 o|contracted procedure: k17227 o|contracted procedure: k17283 o|contracted procedure: k17287 o|contracted procedure: k17264 o|contracted procedure: k7367 o|contracted procedure: k7370 o|contracted procedure: k7380 o|contracted procedure: k17305 o|contracted procedure: k17308 o|contracted procedure: k17311 o|contracted procedure: k17323 o|contracted procedure: k17326 o|contracted procedure: k17329 o|contracted procedure: k17337 o|contracted procedure: k17345 o|contracted procedure: k17370 o|contracted procedure: k17735 o|contracted procedure: k17743 o|contracted procedure: k18452 o|contracted procedure: k18461 o|contracted procedure: k18464 o|contracted procedure: k18653 o|contracted procedure: k18665 o|contracted procedure: k18675 o|contracted procedure: k18679 o|contracted procedure: k18650 o|contracted procedure: k18472 o|contracted procedure: k18479 o|contracted procedure: k18507 o|contracted procedure: k18717 o|contracted procedure: k18732 o|contracted procedure: k18756 o|contracted procedure: k18766 o|contracted procedure: k18770 o|contracted procedure: k18774 o|contracted procedure: k18789 o|contracted procedure: k18799 o|contracted procedure: k18803 o|propagated global variable: g50705072 main#hacks o|contracted procedure: k18570 o|contracted procedure: k18574 o|contracted procedure: k18589 o|contracted procedure: k18566 o|contracted procedure: k18518 o|contracted procedure: k7512 o|contracted procedure: k7520 o|contracted procedure: k7532 o|contracted procedure: k7554 o|contracted procedure: k7550 o|contracted procedure: k7535 o|contracted procedure: k7538 o|contracted procedure: k7546 o|contracted procedure: k18543 o|contracted procedure: k19280 o|contracted procedure: k19445 o|contracted procedure: k19471 o|contracted procedure: k19451 o|contracted procedure: k19433 o|contracted procedure: k19315 o|contracted procedure: k19325 o|contracted procedure: k19374 o|contracted procedure: k19380 o|contracted procedure: k19402 o|contracted procedure: k19383 o|contracted procedure: k19394 o|contracted procedure: k19398 o|contracted procedure: k19390 o|contracted procedure: k19417 o|contracted procedure: k19429 o|contracted procedure: k18552 o|contracted procedure: k18601 o|contracted procedure: k18604 o|contracted procedure: k18607 o|contracted procedure: k18615 o|contracted procedure: k18623 o|contracted procedure: k18582 o|contracted procedure: k19182 o|contracted procedure: k19256 o|contracted procedure: k19191 o|contracted procedure: k19211 o|contracted procedure: k19217 o|contracted procedure: k19228 o|contracted procedure: k19252 o|contracted procedure: k19243 o|contracted procedure: k18640 o|propagated global variable: g49954997 main#canonical-eggs o|contracted procedure: k18688 o|contracted procedure: k18698 o|contracted procedure: k18702 o|contracted procedure: k18375 o|contracted procedure: k18384 o|contracted procedure: k18448 o|contracted procedure: k18394 o|contracted procedure: k17767 o|contracted procedure: k17777 o|contracted procedure: k17780 o|contracted procedure: k17792 o|contracted procedure: k17823 o|contracted procedure: k15780 o|contracted procedure: k15783 o|contracted procedure: k15786 o|contracted procedure: k15789 o|contracted procedure: k15792 o|contracted procedure: k15795 o|contracted procedure: k15894 o|contracted procedure: k15822 o|contracted procedure: k15870 o|contracted procedure: k15879 o|contracted procedure: k15888 o|contracted procedure: k15720 o|contracted procedure: k15723 o|contracted procedure: k15726 o|contracted procedure: k15729 o|contracted procedure: k15732 o|contracted procedure: k15735 o|contracted procedure: k15158 o|contracted procedure: k15178 o|contracted procedure: k15181 o|contracted procedure: k15205 o|contracted procedure: k15259 o|contracted procedure: k15268 o|contracted procedure: k15271 o|contracted procedure: k15338 o|contracted procedure: k15283 o|contracted procedure: k15324 o|contracted procedure: k16470 o|contracted procedure: k16473 o|contracted procedure: k16491 o|contracted procedure: k16479 o|contracted procedure: k15344 o|contracted procedure: k17875 o|contracted procedure: k17879 o|contracted procedure: k17888 o|contracted procedure: k17891 o|contracted procedure: k17894 o|contracted procedure: k17902 o|contracted procedure: k17910 o|propagated global variable: g47724776 main#default-servers o|contracted procedure: k17939 o|contracted procedure: k17952 o|contracted procedure: k17955 o|contracted procedure: k17981 o|contracted procedure: k17602 o|contracted procedure: k17614 o|contracted procedure: k18024 o|contracted procedure: k18031 o|contracted procedure: k18034 o|contracted procedure: k18046 o|contracted procedure: k18080 o|contracted procedure: k18083 o|contracted procedure: k18086 o|contracted procedure: k18094 o|contracted procedure: k18102 o|propagated global variable: g48464850 main#default-servers o|contracted procedure: k18159 o|contracted procedure: k18132 o|contracted procedure: k17631 o|contracted procedure: k17642 o|contracted procedure: k17649 o|contracted procedure: k17665 o|contracted procedure: k17714 o|contracted procedure: k18423 o|contracted procedure: k18419 o|contracted procedure: k18426 o|contracted procedure: k17379 o|contracted procedure: k17407 o|contracted procedure: k17393 o|contracted procedure: k17399 o|contracted procedure: k17448 o|contracted procedure: k17452 o|contracted procedure: k17458 o|contracted procedure: k17481 o|contracted procedure: k17464 o|contracted procedure: k17475 o|contracted procedure: k17471 o|contracted procedure: k17490 o|contracted procedure: k17498 o|contracted procedure: k18833 o|contracted procedure: k18836 o|contracted procedure: k18846 o|contracted procedure: k18866 o|contracted procedure: k18875 o|contracted procedure: k18898 o|contracted procedure: k18940 o|contracted procedure: k18907 o|contracted procedure: k18917 o|contracted procedure: k18928 o|contracted procedure: k18934 o|contracted procedure: k18958 o|contracted procedure: k18973 o|contracted procedure: k18998 o|contracted procedure: k19005 o|contracted procedure: k19017 o|contracted procedure: k19036 o|contracted procedure: k19040 o|contracted procedure: k19049 o|contracted procedure: k19055 o|contracted procedure: k19070 o|contracted procedure: k19058 o|contracted procedure: k19076 o|contracted procedure: k19083 o|contracted procedure: k19095 o|contracted procedure: k19098 o|contracted procedure: k19115 o|contracted procedure: k19125 o|contracted procedure: k15976 o|contracted procedure: k19869 o|contracted procedure: k19881 o|contracted procedure: k19891 o|contracted procedure: k19895 o|contracted procedure: k19649 o|contracted procedure: k19652 o|contracted procedure: k19721 o|contracted procedure: k19712 o|contracted procedure: k19799 o|contracted procedure: k19793 o|contracted procedure: k19929 o|contracted procedure: k19932 o|contracted procedure: k19935 o|contracted procedure: k19971 o|contracted procedure: k19824 o|contracted procedure: k19812 o|contracted procedure: k18298 o|contracted procedure: k18330 o|contracted procedure: k18345 o|contracted procedure: k18355 o|contracted procedure: k18359 o|contracted procedure: k18367 o|contracted procedure: k18363 o|contracted procedure: k18216 o|contracted procedure: k18222 o|contracted procedure: k18233 o|contracted procedure: k18268 o|contracted procedure: k18261 o|contracted procedure: k7403 o|contracted procedure: k7415 o|contracted procedure: k7433 o|contracted procedure: k7441 o|contracted procedure: k18278 o|contracted procedure: k19854 o|contracted procedure: k20006 o|contracted procedure: k20090 o|contracted procedure: k20065 o|contracted procedure: k20077 o|contracted procedure: k20022 o|contracted procedure: k20046 o|contracted procedure: k20853 o|contracted procedure: k20151 o|contracted procedure: k20163 o|contracted procedure: k20173 o|contracted procedure: k20177 o|contracted procedure: k20199 o|contracted procedure: k20203 o|contracted procedure: k20213 o|contracted procedure: k20369 o|contracted procedure: k20225 o|contracted procedure: k20365 o|contracted procedure: k20231 o|contracted procedure: k20256 o|contracted procedure: k20265 o|contracted procedure: k20268 o|contracted procedure: k20275 o|contracted procedure: k20284 o|contracted procedure: k20287 o|contracted procedure: k20299 o|contracted procedure: k20302 o|contracted procedure: k20305 o|contracted procedure: k20313 o|contracted procedure: k20321 o|contracted procedure: k20333 o|contracted procedure: k20336 o|contracted procedure: k20339 o|contracted procedure: k20347 o|contracted procedure: k20355 o|contracted procedure: k20481 o|contracted procedure: k20491 o|contracted procedure: k20495 o|contracted procedure: k20450 o|contracted procedure: k20525 o|contracted procedure: k20564 o|contracted procedure: k20576 o|contracted procedure: k20586 o|contracted procedure: k20590 o|contracted procedure: k20560 o|contracted procedure: k20542 o|contracted procedure: k20624 o|contracted procedure: k20646 o|contracted procedure: k20662 o|contracted procedure: k20669 o|contracted procedure: k20672 o|contracted procedure: k20693 o|contracted procedure: k20715 o|contracted procedure: k20711 o|contracted procedure: k20696 o|contracted procedure: k20699 o|contracted procedure: k20707 o|propagated global variable: g56945698 main#canonical-eggs o|contracted procedure: k20727 o|contracted procedure: k20730 o|contracted procedure: k20733 o|contracted procedure: k20741 o|contracted procedure: k20749 o|contracted procedure: k20755 o|contracted procedure: k19500 o|contracted procedure: k19503 o|contracted procedure: k19518 o|contracted procedure: k19521 o|contracted procedure: k19606 o|contracted procedure: k19524 o|contracted procedure: k19541 o|contracted procedure: k19572 o|contracted procedure: k19587 o|contracted procedure: k19597 o|contracted procedure: k19601 o|contracted procedure: k19616 o|contracted procedure: k19619 o|contracted procedure: k19622 o|contracted procedure: k19630 o|contracted procedure: k19638 o|propagated global variable: g52475251 main#default-servers o|contracted procedure: k20771 o|contracted procedure: k20798 o|contracted procedure: k20801 o|contracted procedure: k20804 o|contracted procedure: k20812 o|contracted procedure: k20820 o|contracted procedure: k16740 o|contracted procedure: k16748 o|contracted procedure: k16754 o|contracted procedure: k16813 o|contracted procedure: k16760 o|contracted procedure: k16809 o|contracted procedure: k16805 o|contracted procedure: k16769 o|contracted procedure: k16801 o|contracted procedure: k16821 o|contracted procedure: k16833 o|contracted procedure: k16841 o|contracted procedure: k6963 o|contracted procedure: k6977 o|contracted procedure: k6987 o|contracted procedure: k6981 o|contracted procedure: k16868 o|contracted procedure: k7597 o|contracted procedure: k7610 o|contracted procedure: k7616 o|contracted procedure: k16881 o|contracted procedure: k16893 o|contracted procedure: k16896 o|contracted procedure: k16899 o|contracted procedure: k16907 o|contracted procedure: k16915 o|contracted procedure: k16924 o|contracted procedure: k16932 o|contracted procedure: k16947 o|contracted procedure: k16951 o|contracted procedure: k16957 o|contracted procedure: k16963 o|contracted procedure: k16973 o|contracted procedure: k16985 o|contracted procedure: k16988 o|contracted procedure: k16991 o|contracted procedure: k16999 o|contracted procedure: k17007 o|contracted procedure: k17016 o|contracted procedure: k17030 o|contracted procedure: k17034 o|contracted procedure: k17041 o|contracted procedure: k17049 o|contracted procedure: k17061 o|contracted procedure: k17069 o|contracted procedure: k17077 o|contracted procedure: k17103 o|contracted procedure: k17111 o|contracted procedure: k17123 o|contracted procedure: k17133 o|contracted procedure: k17137 o|contracted procedure: k17160 o|contracted procedure: k8227 o|contracted procedure: k20866 o|contracted procedure: k20872 o|contracted procedure: k20881 o|contracted procedure: k20893 o|contracted procedure: k20905 o|contracted procedure: k20921 o|contracted procedure: k20933 o|contracted procedure: k20949 o|contracted procedure: k20962 o|contracted procedure: k20968 o|contracted procedure: k20980 o|contracted procedure: k20992 o|contracted procedure: k20996 o|contracted procedure: k21008 o|contracted procedure: k21020 o|contracted procedure: k21032 o|contracted procedure: k21044 o|contracted procedure: k21056 o|contracted procedure: k21068 o|contracted procedure: k21080 o|contracted procedure: k21092 o|contracted procedure: k21104 o|contracted procedure: k21116 o|contracted procedure: k21128 o|contracted procedure: k21140 o|contracted procedure: k21152 o|contracted procedure: k21166 o|contracted procedure: k21170 o|contracted procedure: k21206 o|contracted procedure: k21218 o|contracted procedure: k21221 o|contracted procedure: k21224 o|contracted procedure: k21232 o|contracted procedure: k21240 o|contracted procedure: k21200 o|contracted procedure: k21178 o|contracted procedure: k21194 o|contracted procedure: k21247 o|contracted procedure: k21250 o|contracted procedure: k21261 o|contracted procedure: k21275 o|contracted procedure: k21279 o|contracted procedure: k21282 o|contracted procedure: k21383 o|contracted procedure: k21299 o|contracted procedure: k21319 o|contracted procedure: k21338 o|contracted procedure: k21360 o|contracted procedure: k21356 o|contracted procedure: k21341 o|contracted procedure: k21344 o|contracted procedure: k21352 o|contracted procedure: k21404 o|contracted procedure: k7397 o|contracted procedure: k21419 o|contracted procedure: k21428 o|contracted procedure: k17166 o|contracted procedure: k21714 o|contracted procedure: k21718 o|contracted procedure: k21722 o|simplifications: ((if . 7) (let . 217)) o|removed binding forms: 1214 o|inlining procedure: "(egg-compile.scm:419) name?1280" o|inlining procedure: "(egg-compile.scm:626) main#print-end-command" o|inlining procedure: "(egg-compile.scm:626) main#print-end-command" o|inlining procedure: "(egg-compile.scm:600) main#prepare-custom-command" o|inlining procedure: "(egg-compile.scm:591) main#target-file" o|inlining procedure: "(egg-compile.scm:585) main#target-file" o|inlining procedure: "(egg-compile.scm:657) main#target-file" o|inlining procedure: "(egg-compile.scm:691) main#print-end-command" o|inlining procedure: "(egg-compile.scm:669) main#prepare-custom-command" o|inlining procedure: "(egg-compile.scm:654) main#target-file" o|inlining procedure: "(egg-compile.scm:720) main#print-end-command" o|inlining procedure: "(egg-compile.scm:702) main#target-file" o|inlining procedure: "(egg-compile.scm:759) main#print-end-command" o|inlining procedure: "(egg-compile.scm:743) main#prepare-custom-command" o|inlining procedure: "(egg-compile.scm:736) main#target-file" o|inlining procedure: "(egg-compile.scm:797) main#print-end-command" o|inlining procedure: "(egg-compile.scm:781) main#prepare-custom-command" o|inlining procedure: "(egg-compile.scm:775) main#target-file" o|inlining procedure: "(egg-compile.scm:816) main#target-file" o|inlining procedure: "(egg-compile.scm:843) main#print-end-command" o|inlining procedure: "(egg-compile.scm:822) main#prepare-custom-command" o|inlining procedure: "(egg-compile.scm:811) main#target-file" o|inlining procedure: "(egg-compile.scm:862) main#target-file" o|inlining procedure: "(egg-compile.scm:889) main#print-end-command" o|inlining procedure: "(egg-compile.scm:868) main#prepare-custom-command" o|inlining procedure: "(egg-compile.scm:857) main#target-file" o|inlining procedure: "(egg-compile.scm:902) main#print-end-command" o|inlining procedure: "(egg-compile.scm:896) main#prepare-custom-command" o|inlining procedure: "(egg-compile.scm:928) main#print-end-command" o|inlining procedure: "(egg-compile.scm:916) main#target-file" o|inlining procedure: "(egg-compile.scm:946) main#print-end-command" o|inlining procedure: "(egg-compile.scm:937) main#target-file" o|inlining procedure: "(egg-compile.scm:967) main#print-end-command" o|inlining procedure: "(egg-compile.scm:959) main#target-file" o|inlining procedure: "(egg-compile.scm:981) main#print-end-command" o|inlining procedure: "(egg-compile.scm:995) main#print-end-command" o|inlining procedure: "(egg-compile.scm:1014) main#print-end-command" o|inlining procedure: "(egg-compile.scm:1003) main#target-file" o|inlining procedure: "(egg-compile.scm:1038) main#print-end-command" o|inlining procedure: "(egg-compile.scm:1053) main#print-end-command" o|substituted constant variable: r21715 o|substituted constant variable: r21719 o|substituted constant variable: r21715 o|substituted constant variable: r21719 o|substituted constant variable: r21723 o|replaced variables: 406 o|removed side-effect free assignment to unused variable: main#target-file o|removed side-effect free assignment to unused variable: main#prepare-custom-command o|removed side-effect free assignment to unused variable: main#print-end-command o|inlining procedure: k21397 o|simplifications: ((if . 3)) o|replaced variables: 108 o|removed binding forms: 229 o|inlining procedure: k12189 o|inlining procedure: k12201 o|inlining procedure: k12529 o|inlining procedure: k12662 o|inlining procedure: k12769 o|inlining procedure: k12887 o|inlining procedure: k13077 o|inlining procedure: k13267 o|inlining procedure: k13420 o|inlining procedure: k13500 o|inlining procedure: k13571 o|inlining procedure: k13756 o|contracted procedure: k14582 o|simplifications: ((if . 1)) o|removed binding forms: 78 o|contracted procedure: k10951 o|removed binding forms: 1 o|direct leaf routine/allocation: g516517 3 o|direct leaf routine/allocation: main#get-egg-property 0 o|direct leaf routine/allocation: main#get-egg-property* 0 o|direct leaf routine/allocation: main#object-extension 0 o|direct leaf routine/allocation: main#archive-extension 0 o|direct leaf routine/allocation: main#executable-extension 0 o|direct leaf routine/allocation: main#copy-directory-command 0 o|direct leaf routine/allocation: main#mkdir-command 0 o|direct leaf routine/allocation: main#remove-file-command 0 o|direct leaf routine/allocation: main#uses-compiled-import-library? 0 o|direct leaf routine/allocation: g38603861 0 o|direct leaf routine/allocation: g55405549 9 o|direct leaf routine/allocation: g55675576 9 o|contracted procedure: "(egg-compile.scm:175) k9119" o|contracted procedure: "(egg-compile.scm:176) k9122" o|contracted procedure: "(egg-compile.scm:177) k9125" o|contracted procedure: "(egg-compile.scm:120) k8941" o|contracted procedure: "(egg-compile.scm:488) k11676" o|contracted procedure: "(egg-compile.scm:618) k12085" o|propagated global variable: g27252726 chicken.string#conc o|contracted procedure: "(egg-compile.scm:592) k12197" o|contracted procedure: "(egg-compile.scm:586) k12209" o|contracted procedure: "(egg-compile.scm:658) k12347" o|contracted procedure: "(egg-compile.scm:738) k12777" o|contracted procedure: "(egg-compile.scm:776) k12895" o|contracted procedure: "(egg-compile.scm:817) k12968" o|contracted procedure: "(egg-compile.scm:812) k13085" o|contracted procedure: "(egg-compile.scm:863) k13158" o|contracted procedure: "(egg-compile.scm:858) k13275" o|contracted procedure: "(egg-compile.scm:911) k13363" o|contracted procedure: "(egg-compile.scm:934) k13453" o|contracted procedure: "(egg-compile.scm:935) k13456" o|contracted procedure: "(egg-compile.scm:957) k13535" o|contracted procedure: "(egg-compile.scm:972) k13592" o|contracted procedure: "(egg-compile.scm:986) k13646" o|contracted procedure: "(egg-compile.scm:999) k13700" o|contracted procedure: "(egg-compile.scm:1000) k13703" o|contracted procedure: "(egg-compile.scm:1001) k13706" o|contracted procedure: "(egg-compile.scm:1018) k13769" o|contracted procedure: "(egg-compile.scm:1020) k13775" o|contracted procedure: "(egg-compile.scm:1149) k14355" o|contracted procedure: "(egg-compile.scm:1150) k14358" o|contracted procedure: "(egg-download.scm:97) k15090" o|contracted procedure: "(chicken-install.scm:521) k17997" o|contracted procedure: "(chicken-install.scm:665) k18813" o|contracted procedure: "(chicken-install.scm:666) k18817" o|contracted procedure: "(chicken-install.scm:668) k18821" o|contracted procedure: "(chicken-install.scm:733) k19161" o|contracted procedure: "(chicken-install.scm:510) k17933" o|contracted procedure: "(chicken-install.scm:445) k17556" o|contracted procedure: "(chicken-install.scm:458) k17577" o|contracted procedure: "(chicken-install.scm:974) k20317" o|contracted procedure: "(chicken-install.scm:973) k20351" o|simplifications: ((if . 1)) o|removed binding forms: 39 o|contracted procedure: "(egg-compile.scm:913) k13366" o|replaced variables: 12 o|removed binding forms: 1 o|removed binding forms: 7 o|customizable procedures: (k21293 g58595860 map-loop58265851 map-loop57855803 loop5753 g44154422 for-each-loop44144526 k17023 g45034512 map-loop44974517 g44584467 map-loop44524488 loop562 loop323 broken4410 map-loop57165736 map-loop52355252 for-each-loop52795297 loop25263 loop15259 map-loop56555673 map-loop56825699 main#install-eggs for-each-loop56245638 for-each-loop54655503 map-loop55345552 map-loop55615579 for-each-loop55925604 k19748 main#install-path foldr483486 g488489 loop4882 for-each-loop49124930 main#build-script-extension main#install-script-extension main#build-prefix main#build-suffix main#install-prefix main#install-suffix main#generate-shell-commands main#run-script main#compile-egg-info for-each-loop53105381 k18859 k18949 k18921 scan5106 g46234624 k17410 k18429 k17668 k17686 k17605 k17617 loop4808 g48594860 walk4866 map-loop48344851 main#try-list-versions loop4815 k17565 fetch4657 main#probe-dir g47854786 loop4726 map-loop47604777 loop4734 main#copy-egg-sources k15252 get-files3910 skip3882 g38933894 k15193 k15828 k15840 k15852 for-each-loop49424978 main#validate-egg-info k19200 main#apply-mappings k18619 map-loop50115029 main#filter-map main#ext-version g51845185 k19336 left5223 loop5208 map-loop529547 main#retrieve-eggs g50645071 for-each-loop50635074 loop5079 main#check-dependency for-each-loop49885051 main#system+ g47164717 map-loop45784595 main#delete loop466 main#find main#canonical version->list4338 loop4370 map-loop43424363 g42324239 for-each-loop42314309 k16192 g42544255 k16303 k16321 g42914298 for-each-loop42904303 k16249 validate4226 main#http-connect main#deconstruct-url k15630 k15639 k15648 loop3852 main#make-HTTP-GET/1.1 main#response-match-code? get-chunks3949 main#d g36053614 map-loop35993624 g35743583 map-loop35683586 k14612 map-loop35273545 g33403347 for-each-loop33393350 main#install-random-files g32083217 map-loop32023227 g32473254 for-each-loop32463261 g32693276 for-each-loop32683283 main#strip-dir-prefix loop290 main#shell-variable g30033012 map-loop29973015 g29452954 map-loop29392957 main#slashify k12541 g27822791 map-loop27762794 g28102819 map-loop28042822 main#custom-cmd k12217 main#arglist g27082717 map-loop27022727 main#filelist main#qs* main#locate-egg-file for-each-loop12612390 g24052414 map-loop23992417 main#sort-dependencies filter-deps1283 k11842 k11793 g24312432 k11665 k11669 g24442453 map-loop24382456 main#append-map k11458 k11462 k11501 g25132522 map-loop25072525 g24862495 map-loop24802498 k11470 map-loop25342552 map-loop25612579 map-loop25882606 map-loop26152633 filter1282 for-each-loop23232333 for-each-loop23062316 k9021 main#every loop2269 for-each-loop22802290 map-loop22362253 compile-cond-expand1276 for-each-loop22122222 for-each-loop21952205 map-loop21612178 map-loop21352152 map-loop21092126 map-loop20532070 map-loop20792096 arg1279 compile-common1273 for-each-loop19932003 for-each-loop18491859 g18771886 map-loop18711896 for-each-loop17611771 g17891798 map-loop17831808 for-each-loop17081718 for-each-loop16041614 main#override-prefix g16321641 map-loop16261651 for-each-loop15391549 check-target1269 for-each-loop14101420 main#destination-repository k9221 k9224 k9246 k9250 k9254 k9258 map-loop11801197 addfiles1270 main#concatenate tmp16199 tmp26200 loop679 foldr501504 g506507 loop446 loop439 loop420 loop407 main#any map-loop351369 map-loop378396 loop347 foldr336339 g341342) o|calls to known targets: 852 o|identified direct recursive calls: f_7006 1 o|identified direct recursive calls: f_7078 1 o|identified direct recursive calls: f_7127 1 o|identified direct recursive calls: f_7259 1 o|identified direct recursive calls: f_7454 1 o|identified direct recursive calls: f_14559 1 o|identified direct recursive calls: f_16618 1 o|identified direct recursive calls: f_7527 1 o|identified direct recursive calls: f_19440 2 o|identified direct recursive calls: f_7410 1 o|identified direct recursive calls: f_20294 1 o|identified direct recursive calls: f_20328 1 o|identified direct recursive calls: f_20688 1 o|identified direct recursive calls: f_6958 1 o|identified direct recursive calls: f_21333 1 o|identified direct recursive calls: f_20848 20 o|fast box initializations: 123 o|fast global references: 669 o|fast global assignments: 196 o|dropping unused closure argument: f_11052 o|dropping unused closure argument: f_13764 o|dropping unused closure argument: f_14058 o|dropping unused closure argument: f_14134 o|dropping unused closure argument: f_14279 o|dropping unused closure argument: f_14306 o|dropping unused closure argument: f_14348 o|dropping unused closure argument: f_14498 o|dropping unused closure argument: f_14529 o|dropping unused closure argument: f_14603 o|dropping unused closure argument: f_14645 o|dropping unused closure argument: f_14704 o|dropping unused closure argument: f_14759 o|dropping unused closure argument: f_14796 o|dropping unused closure argument: f_14831 o|dropping unused closure argument: f_14884 o|dropping unused closure argument: f_14971 o|dropping unused closure argument: f_15454 o|dropping unused closure argument: f_15494 o|dropping unused closure argument: f_15589 o|dropping unused closure argument: f_15993 o|dropping unused closure argument: f_16011 o|dropping unused closure argument: f_16031 o|dropping unused closure argument: f_16179 o|dropping unused closure argument: f_16497 o|dropping unused closure argument: f_16549 o|dropping unused closure argument: f_17200 o|dropping unused closure argument: f_17234 o|dropping unused closure argument: f_17985 o|dropping unused closure argument: f_18371 o|dropping unused closure argument: f_18828 o|dropping unused closure argument: f_19090 o|dropping unused closure argument: f_19645 o|dropping unused closure argument: f_20004 o|dropping unused closure argument: f_6991 o|dropping unused closure argument: f_7161 o|dropping unused closure argument: f_7195 o|dropping unused closure argument: f_7253 o|dropping unused closure argument: f_7281 o|dropping unused closure argument: f_7445 o|dropping unused closure argument: f_7916 o|dropping unused closure argument: f_8240 o|dropping unused closure argument: f_8267 o|dropping unused closure argument: f_8286 o|dropping unused closure argument: f_8323 o|dropping unused closure argument: f_8347 o|dropping unused closure argument: f_8701 o|dropping unused closure argument: f_8720 o|dropping unused closure argument: f_8739 o|dropping unused closure argument: f_8758 o|dropping unused closure argument: f_8777 o|dropping unused closure argument: f_8808 o|dropping unused closure argument: f_8830 o|dropping unused closure argument: f_8843 o|dropping unused closure argument: f_9114 o|dropping unused closure argument: f_9129 */ /* end of file */ chicken-5.1.0/optimizer.c0000644000175000017500000371732613502227756015151 0ustar sjamaansjamaan/* Generated from optimizer.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: optimizer.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.optimizer -output-file optimizer.c unit: optimizer uses: library eval expand data-structures internal support */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_support_toplevel) C_externimport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[221]; static double C_possibly_force_alignment; C_noret_decl(f_10017) static void C_ccall f_10017(C_word c,C_word *av) C_noret; C_noret_decl(f_10090) static void C_ccall f_10090(C_word c,C_word *av) C_noret; C_noret_decl(f_10093) static void C_fcall f_10093(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_10097) static void C_ccall f_10097(C_word c,C_word *av) C_noret; C_noret_decl(f_10100) static void C_ccall f_10100(C_word c,C_word *av) C_noret; C_noret_decl(f_10103) static void C_ccall f_10103(C_word c,C_word *av) C_noret; C_noret_decl(f_10118) static void C_ccall f_10118(C_word c,C_word *av) C_noret; C_noret_decl(f_10149) static void C_ccall f_10149(C_word c,C_word *av) C_noret; C_noret_decl(f_10155) static void C_ccall f_10155(C_word c,C_word *av) C_noret; C_noret_decl(f_10161) static void C_ccall f_10161(C_word c,C_word *av) C_noret; C_noret_decl(f_10209) static void C_ccall f_10209(C_word c,C_word *av) C_noret; C_noret_decl(f_10217) static void C_ccall f_10217(C_word c,C_word *av) C_noret; C_noret_decl(f_10221) static void C_ccall f_10221(C_word c,C_word *av) C_noret; C_noret_decl(f_10247) static void C_ccall f_10247(C_word c,C_word *av) C_noret; C_noret_decl(f_10263) static void C_fcall f_10263(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10275) static void C_fcall f_10275(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10285) static void C_ccall f_10285(C_word c,C_word *av) C_noret; C_noret_decl(f_10304) static void C_fcall f_10304(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_10307) static void C_fcall f_10307(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_10311) static void C_ccall f_10311(C_word c,C_word *av) C_noret; C_noret_decl(f_10314) static void C_ccall f_10314(C_word c,C_word *av) C_noret; C_noret_decl(f_10317) static void C_ccall f_10317(C_word c,C_word *av) C_noret; C_noret_decl(f_10356) static void C_ccall f_10356(C_word c,C_word *av) C_noret; C_noret_decl(f_10374) static void C_ccall f_10374(C_word c,C_word *av) C_noret; C_noret_decl(f_10390) static void C_ccall f_10390(C_word c,C_word *av) C_noret; C_noret_decl(f_10411) static void C_ccall f_10411(C_word c,C_word *av) C_noret; C_noret_decl(f_10445) static void C_ccall f_10445(C_word c,C_word *av) C_noret; C_noret_decl(f_10461) static void C_ccall f_10461(C_word c,C_word *av) C_noret; C_noret_decl(f_10465) static void C_fcall f_10465(C_word t0,C_word t1) C_noret; C_noret_decl(f_10470) static void C_ccall f_10470(C_word c,C_word *av) C_noret; C_noret_decl(f_10500) static void C_ccall f_10500(C_word c,C_word *av) C_noret; C_noret_decl(f_10504) static void C_fcall f_10504(C_word t0,C_word t1) C_noret; C_noret_decl(f_10509) static void C_ccall f_10509(C_word c,C_word *av) C_noret; C_noret_decl(f_10551) static void C_fcall f_10551(C_word t0,C_word t1) C_noret; C_noret_decl(f_10556) static void C_ccall f_10556(C_word c,C_word *av) C_noret; C_noret_decl(f_10593) static void C_ccall f_10593(C_word c,C_word *av) C_noret; C_noret_decl(f_10597) static void C_ccall f_10597(C_word c,C_word *av) C_noret; C_noret_decl(f_10604) static void C_ccall f_10604(C_word c,C_word *av) C_noret; C_noret_decl(f_10608) static void C_ccall f_10608(C_word c,C_word *av) C_noret; C_noret_decl(f_10636) static void C_ccall f_10636(C_word c,C_word *av) C_noret; C_noret_decl(f_10669) static void C_ccall f_10669(C_word c,C_word *av) C_noret; C_noret_decl(f_10680) static void C_ccall f_10680(C_word c,C_word *av) C_noret; C_noret_decl(f_10693) static void C_ccall f_10693(C_word c,C_word *av) C_noret; C_noret_decl(f_10726) static void C_ccall f_10726(C_word c,C_word *av) C_noret; C_noret_decl(f_10733) static void C_ccall f_10733(C_word c,C_word *av) C_noret; C_noret_decl(f_10735) static void C_fcall f_10735(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_10739) static void C_ccall f_10739(C_word c,C_word *av) C_noret; C_noret_decl(f_10743) static void C_ccall f_10743(C_word c,C_word *av) C_noret; C_noret_decl(f_10749) static void C_ccall f_10749(C_word c,C_word *av) C_noret; C_noret_decl(f_10758) static void C_fcall f_10758(C_word t0,C_word t1) C_noret; C_noret_decl(f_10764) static void C_ccall f_10764(C_word c,C_word *av) C_noret; C_noret_decl(f_10767) static void C_ccall f_10767(C_word c,C_word *av) C_noret; C_noret_decl(f_10773) static void C_ccall f_10773(C_word c,C_word *av) C_noret; C_noret_decl(f_10776) static void C_ccall f_10776(C_word c,C_word *av) C_noret; C_noret_decl(f_10777) static void C_fcall f_10777(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10784) static void C_ccall f_10784(C_word c,C_word *av) C_noret; C_noret_decl(f_10787) static void C_ccall f_10787(C_word c,C_word *av) C_noret; C_noret_decl(f_10793) static void C_ccall f_10793(C_word c,C_word *av) C_noret; C_noret_decl(f_10808) static void C_ccall f_10808(C_word c,C_word *av) C_noret; C_noret_decl(f_10850) static void C_ccall f_10850(C_word c,C_word *av) C_noret; C_noret_decl(f_10856) static void C_ccall f_10856(C_word c,C_word *av) C_noret; C_noret_decl(f_10865) static void C_ccall f_10865(C_word c,C_word *av) C_noret; C_noret_decl(f_10868) static void C_ccall f_10868(C_word c,C_word *av) C_noret; C_noret_decl(f_10874) static void C_ccall f_10874(C_word c,C_word *av) C_noret; C_noret_decl(f_10877) static void C_ccall f_10877(C_word c,C_word *av) C_noret; C_noret_decl(f_10885) static void C_ccall f_10885(C_word c,C_word *av) C_noret; C_noret_decl(f_10892) static void C_ccall f_10892(C_word c,C_word *av) C_noret; C_noret_decl(f_10896) static void C_ccall f_10896(C_word c,C_word *av) C_noret; C_noret_decl(f_10904) static void C_ccall f_10904(C_word c,C_word *av) C_noret; C_noret_decl(f_10909) static void C_fcall f_10909(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10919) static void C_ccall f_10919(C_word c,C_word *av) C_noret; C_noret_decl(f_10932) static void C_fcall f_10932(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10959) static void C_ccall f_10959(C_word c,C_word *av) C_noret; C_noret_decl(f_10963) static void C_ccall f_10963(C_word c,C_word *av) C_noret; C_noret_decl(f_10967) static void C_ccall f_10967(C_word c,C_word *av) C_noret; C_noret_decl(f_10971) static void C_ccall f_10971(C_word c,C_word *av) C_noret; C_noret_decl(f_10975) static void C_ccall f_10975(C_word c,C_word *av) C_noret; C_noret_decl(f_10992) static void C_ccall f_10992(C_word c,C_word *av) C_noret; C_noret_decl(f_11001) static void C_fcall f_11001(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11011) static void C_ccall f_11011(C_word c,C_word *av) C_noret; C_noret_decl(f_11024) static void C_ccall f_11024(C_word c,C_word *av) C_noret; C_noret_decl(f_11035) static void C_ccall f_11035(C_word c,C_word *av) C_noret; C_noret_decl(f_11037) static void C_ccall f_11037(C_word c,C_word *av) C_noret; C_noret_decl(f_11051) static void C_ccall f_11051(C_word c,C_word *av) C_noret; C_noret_decl(f_11055) static void C_ccall f_11055(C_word c,C_word *av) C_noret; C_noret_decl(f_11058) static void C_ccall f_11058(C_word c,C_word *av) C_noret; C_noret_decl(f_11061) static void C_ccall f_11061(C_word c,C_word *av) C_noret; C_noret_decl(f_11076) static void C_ccall f_11076(C_word c,C_word *av) C_noret; C_noret_decl(f_11079) static void C_ccall f_11079(C_word c,C_word *av) C_noret; C_noret_decl(f_11104) static void C_ccall f_11104(C_word c,C_word *av) C_noret; C_noret_decl(f_11107) static void C_ccall f_11107(C_word c,C_word *av) C_noret; C_noret_decl(f_11110) static void C_ccall f_11110(C_word c,C_word *av) C_noret; C_noret_decl(f_11143) static void C_fcall f_11143(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11153) static void C_ccall f_11153(C_word c,C_word *av) C_noret; C_noret_decl(f_11156) static void C_ccall f_11156(C_word c,C_word *av) C_noret; C_noret_decl(f_11159) static void C_ccall f_11159(C_word c,C_word *av) C_noret; C_noret_decl(f_11162) static void C_ccall f_11162(C_word c,C_word *av) C_noret; C_noret_decl(f_11173) static void C_ccall f_11173(C_word c,C_word *av) C_noret; C_noret_decl(f_11185) static void C_ccall f_11185(C_word c,C_word *av) C_noret; C_noret_decl(f_11193) static void C_ccall f_11193(C_word c,C_word *av) C_noret; C_noret_decl(f_11212) static void C_ccall f_11212(C_word c,C_word *av) C_noret; C_noret_decl(f_11235) static void C_ccall f_11235(C_word c,C_word *av) C_noret; C_noret_decl(f_11238) static void C_ccall f_11238(C_word c,C_word *av) C_noret; C_noret_decl(f_11260) static void C_ccall f_11260(C_word c,C_word *av) C_noret; C_noret_decl(f_11285) static void C_ccall f_11285(C_word c,C_word *av) C_noret; C_noret_decl(f_11300) static void C_fcall f_11300(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11310) static void C_ccall f_11310(C_word c,C_word *av) C_noret; C_noret_decl(f_11329) static void C_fcall f_11329(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11339) static void C_ccall f_11339(C_word c,C_word *av) C_noret; C_noret_decl(f_11358) static void C_ccall f_11358(C_word c,C_word *av) C_noret; C_noret_decl(f_11398) static void C_ccall f_11398(C_word c,C_word *av) C_noret; C_noret_decl(f_11400) static void C_ccall f_11400(C_word c,C_word *av) C_noret; C_noret_decl(f_11408) static void C_ccall f_11408(C_word c,C_word *av) C_noret; C_noret_decl(f_11410) static void C_ccall f_11410(C_word c,C_word *av) C_noret; C_noret_decl(f_11420) static void C_ccall f_11420(C_word c,C_word *av) C_noret; C_noret_decl(f_11423) static void C_ccall f_11423(C_word c,C_word *av) C_noret; C_noret_decl(f_11425) static void C_ccall f_11425(C_word c,C_word *av) C_noret; C_noret_decl(f_11428) static C_word C_fcall f_11428(C_word *a,C_word t0); C_noret_decl(f_11472) static void C_ccall f_11472(C_word c,C_word *av) C_noret; C_noret_decl(f_11476) static void C_ccall f_11476(C_word c,C_word *av) C_noret; C_noret_decl(f_11478) static void C_fcall f_11478(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11482) static void C_ccall f_11482(C_word c,C_word *av) C_noret; C_noret_decl(f_11485) static void C_ccall f_11485(C_word c,C_word *av) C_noret; C_noret_decl(f_11488) static void C_ccall f_11488(C_word c,C_word *av) C_noret; C_noret_decl(f_11509) static void C_fcall f_11509(C_word t0,C_word t1) C_noret; C_noret_decl(f_11523) static void C_ccall f_11523(C_word c,C_word *av) C_noret; C_noret_decl(f_11540) static void C_ccall f_11540(C_word c,C_word *av) C_noret; C_noret_decl(f_11571) static void C_fcall f_11571(C_word t0,C_word t1) C_noret; C_noret_decl(f_11584) static void C_fcall f_11584(C_word t0,C_word t1) C_noret; C_noret_decl(f_11592) static void C_ccall f_11592(C_word c,C_word *av) C_noret; C_noret_decl(f_11599) static void C_ccall f_11599(C_word c,C_word *av) C_noret; C_noret_decl(f_11606) static void C_ccall f_11606(C_word c,C_word *av) C_noret; C_noret_decl(f_11610) static void C_ccall f_11610(C_word c,C_word *av) C_noret; C_noret_decl(f_11614) static void C_ccall f_11614(C_word c,C_word *av) C_noret; C_noret_decl(f_11618) static void C_ccall f_11618(C_word c,C_word *av) C_noret; C_noret_decl(f_11628) static void C_ccall f_11628(C_word c,C_word *av) C_noret; C_noret_decl(f_11646) static void C_ccall f_11646(C_word c,C_word *av) C_noret; C_noret_decl(f_11652) static void C_ccall f_11652(C_word c,C_word *av) C_noret; C_noret_decl(f_11659) static void C_ccall f_11659(C_word c,C_word *av) C_noret; C_noret_decl(f_11669) static void C_ccall f_11669(C_word c,C_word *av) C_noret; C_noret_decl(f_11678) static void C_fcall f_11678(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11690) static void C_fcall f_11690(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11700) static void C_ccall f_11700(C_word c,C_word *av) C_noret; C_noret_decl(f_11723) static void C_ccall f_11723(C_word c,C_word *av) C_noret; C_noret_decl(f_11726) static void C_ccall f_11726(C_word c,C_word *av) C_noret; C_noret_decl(f_11727) static void C_fcall f_11727(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11735) static void C_ccall f_11735(C_word c,C_word *av) C_noret; C_noret_decl(f_11738) static void C_ccall f_11738(C_word c,C_word *av) C_noret; C_noret_decl(f_11742) static void C_fcall f_11742(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11752) static void C_ccall f_11752(C_word c,C_word *av) C_noret; C_noret_decl(f_11764) static void C_ccall f_11764(C_word c,C_word *av) C_noret; C_noret_decl(f_11769) static void C_ccall f_11769(C_word c,C_word *av) C_noret; C_noret_decl(f_11778) static void C_ccall f_11778(C_word c,C_word *av) C_noret; C_noret_decl(f_11785) static void C_ccall f_11785(C_word c,C_word *av) C_noret; C_noret_decl(f_11789) static void C_ccall f_11789(C_word c,C_word *av) C_noret; C_noret_decl(f_11791) static void C_fcall f_11791(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11816) static void C_ccall f_11816(C_word c,C_word *av) C_noret; C_noret_decl(f_11827) static void C_ccall f_11827(C_word c,C_word *av) C_noret; C_noret_decl(f_11831) static void C_ccall f_11831(C_word c,C_word *av) C_noret; C_noret_decl(f_11837) static void C_ccall f_11837(C_word c,C_word *av) C_noret; C_noret_decl(f_11840) static void C_ccall f_11840(C_word c,C_word *av) C_noret; C_noret_decl(f_11843) static void C_ccall f_11843(C_word c,C_word *av) C_noret; C_noret_decl(f_11846) static void C_ccall f_11846(C_word c,C_word *av) C_noret; C_noret_decl(f_11849) static void C_ccall f_11849(C_word c,C_word *av) C_noret; C_noret_decl(f_11852) static void C_ccall f_11852(C_word c,C_word *av) C_noret; C_noret_decl(f_11853) static void C_fcall f_11853(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11857) static void C_ccall f_11857(C_word c,C_word *av) C_noret; C_noret_decl(f_11858) static void C_fcall f_11858(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11872) static void C_ccall f_11872(C_word c,C_word *av) C_noret; C_noret_decl(f_11876) static void C_ccall f_11876(C_word c,C_word *av) C_noret; C_noret_decl(f_11880) static void C_ccall f_11880(C_word c,C_word *av) C_noret; C_noret_decl(f_11884) static void C_ccall f_11884(C_word c,C_word *av) C_noret; C_noret_decl(f_11888) static void C_ccall f_11888(C_word c,C_word *av) C_noret; C_noret_decl(f_11892) static void C_ccall f_11892(C_word c,C_word *av) C_noret; C_noret_decl(f_11900) static void C_ccall f_11900(C_word c,C_word *av) C_noret; C_noret_decl(f_11910) static void C_ccall f_11910(C_word c,C_word *av) C_noret; C_noret_decl(f_11922) static void C_ccall f_11922(C_word c,C_word *av) C_noret; C_noret_decl(f_11930) static void C_fcall f_11930(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11940) static void C_ccall f_11940(C_word c,C_word *av) C_noret; C_noret_decl(f_11960) static void C_fcall f_11960(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11970) static void C_ccall f_11970(C_word c,C_word *av) C_noret; C_noret_decl(f_11983) static void C_fcall f_11983(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11993) static void C_fcall f_11993(C_word t0,C_word t1) C_noret; C_noret_decl(f_12003) static void C_ccall f_12003(C_word c,C_word *av) C_noret; C_noret_decl(f_12015) static void C_ccall f_12015(C_word c,C_word *av) C_noret; C_noret_decl(f_12019) static void C_ccall f_12019(C_word c,C_word *av) C_noret; C_noret_decl(f_12031) static void C_ccall f_12031(C_word c,C_word *av) C_noret; C_noret_decl(f_12035) static void C_ccall f_12035(C_word c,C_word *av) C_noret; C_noret_decl(f_12039) static void C_ccall f_12039(C_word c,C_word *av) C_noret; C_noret_decl(f_12043) static void C_ccall f_12043(C_word c,C_word *av) C_noret; C_noret_decl(f_12047) static void C_ccall f_12047(C_word c,C_word *av) C_noret; C_noret_decl(f_12051) static void C_ccall f_12051(C_word c,C_word *av) C_noret; C_noret_decl(f_12059) static void C_ccall f_12059(C_word c,C_word *av) C_noret; C_noret_decl(f_12061) static void C_ccall f_12061(C_word c,C_word *av) C_noret; C_noret_decl(f_12077) static void C_ccall f_12077(C_word c,C_word *av) C_noret; C_noret_decl(f_12089) static void C_ccall f_12089(C_word c,C_word *av) C_noret; C_noret_decl(f_12097) static void C_ccall f_12097(C_word c,C_word *av) C_noret; C_noret_decl(f_12105) static void C_ccall f_12105(C_word c,C_word *av) C_noret; C_noret_decl(f_12113) static void C_ccall f_12113(C_word c,C_word *av) C_noret; C_noret_decl(f_12115) static void C_ccall f_12115(C_word c,C_word *av) C_noret; C_noret_decl(f_12123) static void C_ccall f_12123(C_word c,C_word *av) C_noret; C_noret_decl(f_12127) static void C_ccall f_12127(C_word c,C_word *av) C_noret; C_noret_decl(f_12133) static void C_fcall f_12133(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12158) static void C_ccall f_12158(C_word c,C_word *av) C_noret; C_noret_decl(f_12162) static void C_ccall f_12162(C_word c,C_word *av) C_noret; C_noret_decl(f_12182) static void C_ccall f_12182(C_word c,C_word *av) C_noret; C_noret_decl(f_12188) static void C_ccall f_12188(C_word c,C_word *av) C_noret; C_noret_decl(f_12192) static void C_ccall f_12192(C_word c,C_word *av) C_noret; C_noret_decl(f_12205) static void C_ccall f_12205(C_word c,C_word *av) C_noret; C_noret_decl(f_12209) static void C_ccall f_12209(C_word c,C_word *av) C_noret; C_noret_decl(f_12213) static void C_ccall f_12213(C_word c,C_word *av) C_noret; C_noret_decl(f_12217) static void C_ccall f_12217(C_word c,C_word *av) C_noret; C_noret_decl(f_12224) static void C_ccall f_12224(C_word c,C_word *av) C_noret; C_noret_decl(f_12226) static void C_fcall f_12226(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12251) static void C_ccall f_12251(C_word c,C_word *av) C_noret; C_noret_decl(f_12262) static void C_ccall f_12262(C_word c,C_word *av) C_noret; C_noret_decl(f_12268) static void C_ccall f_12268(C_word c,C_word *av) C_noret; C_noret_decl(f_12291) static void C_ccall f_12291(C_word c,C_word *av) C_noret; C_noret_decl(f_12293) static void C_fcall f_12293(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12327) static void C_fcall f_12327(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12352) static void C_ccall f_12352(C_word c,C_word *av) C_noret; C_noret_decl(f_12365) static void C_ccall f_12365(C_word c,C_word *av) C_noret; C_noret_decl(f_12374) static void C_fcall f_12374(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12384) static void C_ccall f_12384(C_word c,C_word *av) C_noret; C_noret_decl(f_12413) static void C_ccall f_12413(C_word c,C_word *av) C_noret; C_noret_decl(f_12435) static void C_ccall f_12435(C_word c,C_word *av) C_noret; C_noret_decl(f_12453) static void C_ccall f_12453(C_word c,C_word *av) C_noret; C_noret_decl(f_12461) static void C_ccall f_12461(C_word c,C_word *av) C_noret; C_noret_decl(f_12463) static void C_fcall f_12463(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12471) static void C_fcall f_12471(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12483) static void C_ccall f_12483(C_word c,C_word *av) C_noret; C_noret_decl(f_12487) static void C_ccall f_12487(C_word c,C_word *av) C_noret; C_noret_decl(f_12495) static void C_ccall f_12495(C_word c,C_word *av) C_noret; C_noret_decl(f_12499) static void C_ccall f_12499(C_word c,C_word *av) C_noret; C_noret_decl(f_12510) static void C_ccall f_12510(C_word c,C_word *av) C_noret; C_noret_decl(f_12529) static void C_ccall f_12529(C_word c,C_word *av) C_noret; C_noret_decl(f_12533) static void C_ccall f_12533(C_word c,C_word *av) C_noret; C_noret_decl(f_12559) static void C_ccall f_12559(C_word c,C_word *av) C_noret; C_noret_decl(f_12574) static void C_ccall f_12574(C_word c,C_word *av) C_noret; C_noret_decl(f_12578) static void C_ccall f_12578(C_word c,C_word *av) C_noret; C_noret_decl(f_12632) static void C_ccall f_12632(C_word c,C_word *av) C_noret; C_noret_decl(f_12656) static void C_ccall f_12656(C_word c,C_word *av) C_noret; C_noret_decl(f_12669) static void C_ccall f_12669(C_word c,C_word *av) C_noret; C_noret_decl(f_12677) static void C_ccall f_12677(C_word c,C_word *av) C_noret; C_noret_decl(f_12715) static void C_ccall f_12715(C_word c,C_word *av) C_noret; C_noret_decl(f_12725) static void C_fcall f_12725(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12729) static void C_ccall f_12729(C_word c,C_word *av) C_noret; C_noret_decl(f_12732) static void C_ccall f_12732(C_word c,C_word *av) C_noret; C_noret_decl(f_12735) static void C_ccall f_12735(C_word c,C_word *av) C_noret; C_noret_decl(f_12765) static void C_ccall f_12765(C_word c,C_word *av) C_noret; C_noret_decl(f_12768) static void C_ccall f_12768(C_word c,C_word *av) C_noret; C_noret_decl(f_12771) static void C_ccall f_12771(C_word c,C_word *av) C_noret; C_noret_decl(f_12801) static void C_ccall f_12801(C_word c,C_word *av) C_noret; C_noret_decl(f_12828) static void C_fcall f_12828(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_12832) static void C_ccall f_12832(C_word c,C_word *av) C_noret; C_noret_decl(f_12835) static void C_ccall f_12835(C_word c,C_word *av) C_noret; C_noret_decl(f_12838) static void C_ccall f_12838(C_word c,C_word *av) C_noret; C_noret_decl(f_12844) static void C_fcall f_12844(C_word t0,C_word t1) C_noret; C_noret_decl(f_12867) static void C_ccall f_12867(C_word c,C_word *av) C_noret; C_noret_decl(f_12882) static void C_ccall f_12882(C_word c,C_word *av) C_noret; C_noret_decl(f_12890) static void C_ccall f_12890(C_word c,C_word *av) C_noret; C_noret_decl(f_12892) static void C_ccall f_12892(C_word c,C_word *av) C_noret; C_noret_decl(f_12942) static void C_ccall f_12942(C_word c,C_word *av) C_noret; C_noret_decl(f_12950) static void C_ccall f_12950(C_word c,C_word *av) C_noret; C_noret_decl(f_12958) static void C_ccall f_12958(C_word c,C_word *av) C_noret; C_noret_decl(f_12966) static void C_ccall f_12966(C_word c,C_word *av) C_noret; C_noret_decl(f_12994) static void C_ccall f_12994(C_word c,C_word *av) C_noret; C_noret_decl(f_13002) static void C_ccall f_13002(C_word c,C_word *av) C_noret; C_noret_decl(f_13028) static void C_ccall f_13028(C_word c,C_word *av) C_noret; C_noret_decl(f_13041) static void C_ccall f_13041(C_word c,C_word *av) C_noret; C_noret_decl(f_13058) static void C_ccall f_13058(C_word c,C_word *av) C_noret; C_noret_decl(f_13062) static void C_ccall f_13062(C_word c,C_word *av) C_noret; C_noret_decl(f_13066) static void C_ccall f_13066(C_word c,C_word *av) C_noret; C_noret_decl(f_13077) static void C_ccall f_13077(C_word c,C_word *av) C_noret; C_noret_decl(f_13081) static void C_ccall f_13081(C_word c,C_word *av) C_noret; C_noret_decl(f_13155) static void C_ccall f_13155(C_word c,C_word *av) C_noret; C_noret_decl(f_13168) static void C_ccall f_13168(C_word c,C_word *av) C_noret; C_noret_decl(f_13174) static void C_ccall f_13174(C_word c,C_word *av) C_noret; C_noret_decl(f_13197) static void C_ccall f_13197(C_word c,C_word *av) C_noret; C_noret_decl(f_13201) static void C_ccall f_13201(C_word c,C_word *av) C_noret; C_noret_decl(f_13205) static void C_ccall f_13205(C_word c,C_word *av) C_noret; C_noret_decl(f_13214) static void C_ccall f_13214(C_word c,C_word *av) C_noret; C_noret_decl(f_13223) static void C_ccall f_13223(C_word c,C_word *av) C_noret; C_noret_decl(f_13227) static void C_ccall f_13227(C_word c,C_word *av) C_noret; C_noret_decl(f_13325) static void C_ccall f_13325(C_word c,C_word *av) C_noret; C_noret_decl(f_13333) static void C_ccall f_13333(C_word c,C_word *av) C_noret; C_noret_decl(f_13338) static void C_fcall f_13338(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13348) static void C_ccall f_13348(C_word c,C_word *av) C_noret; C_noret_decl(f_13352) static C_word C_fcall f_13352(C_word *a,C_word t0,C_word t1); C_noret_decl(f_3213) static void C_ccall f_3213(C_word c,C_word *av) C_noret; C_noret_decl(f_3216) static void C_ccall f_3216(C_word c,C_word *av) C_noret; C_noret_decl(f_3219) static void C_ccall f_3219(C_word c,C_word *av) C_noret; C_noret_decl(f_3222) static void C_ccall f_3222(C_word c,C_word *av) C_noret; C_noret_decl(f_3225) static void C_ccall f_3225(C_word c,C_word *av) C_noret; C_noret_decl(f_3228) static void C_ccall f_3228(C_word c,C_word *av) C_noret; C_noret_decl(f_3236) static void C_fcall f_3236(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3250) static void C_ccall f_3250(C_word c,C_word *av) C_noret; C_noret_decl(f_3254) static void C_ccall f_3254(C_word c,C_word *av) C_noret; C_noret_decl(f_3260) static void C_ccall f_3260(C_word c,C_word *av) C_noret; C_noret_decl(f_3338) static void C_fcall f_3338(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3356) static void C_ccall f_3356(C_word c,C_word *av) C_noret; C_noret_decl(f_3390) static void C_fcall f_3390(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3396) static void C_fcall f_3396(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3410) static void C_ccall f_3410(C_word c,C_word *av) C_noret; C_noret_decl(f_3429) static void C_fcall f_3429(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3444) static void C_fcall f_3444(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3452) static void C_fcall f_3452(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3460) static void C_ccall f_3460(C_word c,C_word *av) C_noret; C_noret_decl(f_3471) static void C_ccall f_3471(C_word c,C_word *av) C_noret; C_noret_decl(f_3484) static void C_fcall f_3484(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3491) static void C_ccall f_3491(C_word c,C_word *av) C_noret; C_noret_decl(f_3498) static void C_ccall f_3498(C_word c,C_word *av) C_noret; C_noret_decl(f_3502) static void C_ccall f_3502(C_word c,C_word *av) C_noret; C_noret_decl(f_3514) static void C_ccall f_3514(C_word c,C_word *av) C_noret; C_noret_decl(f_3516) static void C_fcall f_3516(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3563) static void C_ccall f_3563(C_word c,C_word *av) C_noret; C_noret_decl(f_3565) static void C_fcall f_3565(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3599) static void C_fcall f_3599(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3605) static void C_fcall f_3605(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3627) static void C_ccall f_3627(C_word c,C_word *av) C_noret; C_noret_decl(f_3633) static void C_fcall f_3633(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3639) static void C_fcall f_3639(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3649) static void C_ccall f_3649(C_word c,C_word *av) C_noret; C_noret_decl(f_3663) static void C_fcall f_3663(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3669) static void C_fcall f_3669(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3683) static void C_ccall f_3683(C_word c,C_word *av) C_noret; C_noret_decl(f_3719) static void C_fcall f_3719(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3725) static void C_fcall f_3725(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3738) static void C_ccall f_3738(C_word c,C_word *av) C_noret; C_noret_decl(f_3752) static void C_ccall f_3752(C_word c,C_word *av) C_noret; C_noret_decl(f_3760) static void C_ccall f_3760(C_word c,C_word *av) C_noret; C_noret_decl(f_3800) static void C_fcall f_3800(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3814) static void C_ccall f_3814(C_word c,C_word *av) C_noret; C_noret_decl(f_3827) static void C_ccall f_3827(C_word c,C_word *av) C_noret; C_noret_decl(f_3839) static void C_fcall f_3839(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3848) static void C_fcall f_3848(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3856) static void C_fcall f_3856(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3863) static void C_ccall f_3863(C_word c,C_word *av) C_noret; C_noret_decl(f_3877) static void C_ccall f_3877(C_word c,C_word *av) C_noret; C_noret_decl(f_3892) static void C_fcall f_3892(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3900) static void C_fcall f_3900(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3904) static void C_ccall f_3904(C_word c,C_word *av) C_noret; C_noret_decl(f_3908) static C_word C_fcall f_3908(C_word *a,C_word t0,C_word t1); C_noret_decl(f_3926) static void C_ccall f_3926(C_word c,C_word *av) C_noret; C_noret_decl(f_3965) static void C_fcall f_3965(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4005) static C_word C_fcall f_4005(C_word t0); C_noret_decl(f_4064) static void C_fcall f_4064(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4241) static void C_fcall f_4241(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4247) static void C_fcall f_4247(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4261) static void C_ccall f_4261(C_word c,C_word *av) C_noret; C_noret_decl(f_4265) static void C_ccall f_4265(C_word c,C_word *av) C_noret; C_noret_decl(f_4277) static void C_ccall f_4277(C_word c,C_word *av) C_noret; C_noret_decl(f_4295) static void C_ccall f_4295(C_word c,C_word *av) C_noret; C_noret_decl(f_4510) static void C_ccall f_4510(C_word c,C_word *av) C_noret; C_noret_decl(f_4514) static void C_ccall f_4514(C_word c,C_word *av) C_noret; C_noret_decl(f_4518) static void C_ccall f_4518(C_word c,C_word *av) C_noret; C_noret_decl(f_4522) static void C_ccall f_4522(C_word c,C_word *av) C_noret; C_noret_decl(f_4524) static void C_ccall f_4524(C_word c,C_word *av) C_noret; C_noret_decl(f_4527) static void C_fcall f_4527(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4534) static void C_fcall f_4534(C_word t0,C_word t1) C_noret; C_noret_decl(f_4550) static void C_fcall f_4550(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4555) static void C_ccall f_4555(C_word c,C_word *av) C_noret; C_noret_decl(f_4557) static C_word C_fcall f_4557(C_word t0); C_noret_decl(f_4562) static void C_fcall f_4562(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4564) static void C_fcall f_4564(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4580) static void C_fcall f_4580(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4590) static void C_ccall f_4590(C_word c,C_word *av) C_noret; C_noret_decl(f_4603) static void C_fcall f_4603(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4607) static void C_ccall f_4607(C_word c,C_word *av) C_noret; C_noret_decl(f_4610) static void C_ccall f_4610(C_word c,C_word *av) C_noret; C_noret_decl(f_4613) static void C_ccall f_4613(C_word c,C_word *av) C_noret; C_noret_decl(f_4625) static void C_fcall f_4625(C_word t0,C_word t1) C_noret; C_noret_decl(f_4629) static void C_ccall f_4629(C_word c,C_word *av) C_noret; C_noret_decl(f_4631) static void C_ccall f_4631(C_word c,C_word *av) C_noret; C_noret_decl(f_4646) static void C_fcall f_4646(C_word t0,C_word t1) C_noret; C_noret_decl(f_4673) static void C_fcall f_4673(C_word t0,C_word t1) C_noret; C_noret_decl(f_4676) static void C_ccall f_4676(C_word c,C_word *av) C_noret; C_noret_decl(f_4699) static void C_ccall f_4699(C_word c,C_word *av) C_noret; C_noret_decl(f_4710) static void C_ccall f_4710(C_word c,C_word *av) C_noret; C_noret_decl(f_4714) static void C_ccall f_4714(C_word c,C_word *av) C_noret; C_noret_decl(f_4747) static void C_ccall f_4747(C_word c,C_word *av) C_noret; C_noret_decl(f_4750) static void C_ccall f_4750(C_word c,C_word *av) C_noret; C_noret_decl(f_4753) static void C_ccall f_4753(C_word c,C_word *av) C_noret; C_noret_decl(f_4756) static void C_ccall f_4756(C_word c,C_word *av) C_noret; C_noret_decl(f_4768) static void C_fcall f_4768(C_word t0,C_word t1) C_noret; C_noret_decl(f_4771) static void C_ccall f_4771(C_word c,C_word *av) C_noret; C_noret_decl(f_4778) static void C_ccall f_4778(C_word c,C_word *av) C_noret; C_noret_decl(f_4821) static void C_ccall f_4821(C_word c,C_word *av) C_noret; C_noret_decl(f_4824) static void C_ccall f_4824(C_word c,C_word *av) C_noret; C_noret_decl(f_4827) static void C_ccall f_4827(C_word c,C_word *av) C_noret; C_noret_decl(f_4840) static void C_fcall f_4840(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4850) static void C_ccall f_4850(C_word c,C_word *av) C_noret; C_noret_decl(f_4871) static void C_ccall f_4871(C_word c,C_word *av) C_noret; C_noret_decl(f_4875) static void C_ccall f_4875(C_word c,C_word *av) C_noret; C_noret_decl(f_4879) static void C_ccall f_4879(C_word c,C_word *av) C_noret; C_noret_decl(f_4882) static void C_fcall f_4882(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4896) static void C_ccall f_4896(C_word c,C_word *av) C_noret; C_noret_decl(f_4906) static void C_ccall f_4906(C_word c,C_word *av) C_noret; C_noret_decl(f_4908) static C_word C_fcall f_4908(C_word t0); C_noret_decl(f_4912) static void C_fcall f_4912(C_word t0,C_word t1) C_noret; C_noret_decl(f_4926) static C_word C_fcall f_4926(C_word t0); C_noret_decl(f_4949) static void C_fcall f_4949(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4953) static void C_ccall f_4953(C_word c,C_word *av) C_noret; C_noret_decl(f_4956) static void C_ccall f_4956(C_word c,C_word *av) C_noret; C_noret_decl(f_4964) static void C_ccall f_4964(C_word c,C_word *av) C_noret; C_noret_decl(f_4974) static void C_ccall f_4974(C_word c,C_word *av) C_noret; C_noret_decl(f_4980) static void C_ccall f_4980(C_word c,C_word *av) C_noret; C_noret_decl(f_5019) static C_word C_fcall f_5019(C_word t0,C_word t1); C_noret_decl(f_5033) static void C_ccall f_5033(C_word c,C_word *av) C_noret; C_noret_decl(f_5035) static void C_fcall f_5035(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5075) static void C_ccall f_5075(C_word c,C_word *av) C_noret; C_noret_decl(f_5077) static void C_fcall f_5077(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5091) static void C_ccall f_5091(C_word c,C_word *av) C_noret; C_noret_decl(f_5094) static void C_ccall f_5094(C_word c,C_word *av) C_noret; C_noret_decl(f_5097) static void C_ccall f_5097(C_word c,C_word *av) C_noret; C_noret_decl(f_5100) static void C_ccall f_5100(C_word c,C_word *av) C_noret; C_noret_decl(f_5109) static void C_ccall f_5109(C_word c,C_word *av) C_noret; C_noret_decl(f_5124) static void C_ccall f_5124(C_word c,C_word *av) C_noret; C_noret_decl(f_5151) static void C_ccall f_5151(C_word c,C_word *av) C_noret; C_noret_decl(f_5164) static void C_fcall f_5164(C_word t0,C_word t1) C_noret; C_noret_decl(f_5168) static void C_ccall f_5168(C_word c,C_word *av) C_noret; C_noret_decl(f_5175) static void C_ccall f_5175(C_word c,C_word *av) C_noret; C_noret_decl(f_5204) static void C_fcall f_5204(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5208) static void C_ccall f_5208(C_word c,C_word *av) C_noret; C_noret_decl(f_5212) static void C_fcall f_5212(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5216) static void C_ccall f_5216(C_word c,C_word *av) C_noret; C_noret_decl(f_5219) static void C_ccall f_5219(C_word c,C_word *av) C_noret; C_noret_decl(f_5224) static void C_fcall f_5224(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5228) static void C_ccall f_5228(C_word c,C_word *av) C_noret; C_noret_decl(f_5231) static void C_ccall f_5231(C_word c,C_word *av) C_noret; C_noret_decl(f_5234) static void C_ccall f_5234(C_word c,C_word *av) C_noret; C_noret_decl(f_5243) static void C_ccall f_5243(C_word c,C_word *av) C_noret; C_noret_decl(f_5249) static void C_ccall f_5249(C_word c,C_word *av) C_noret; C_noret_decl(f_5255) static void C_ccall f_5255(C_word c,C_word *av) C_noret; C_noret_decl(f_5266) static void C_ccall f_5266(C_word c,C_word *av) C_noret; C_noret_decl(f_5270) static void C_ccall f_5270(C_word c,C_word *av) C_noret; C_noret_decl(f_5293) static void C_fcall f_5293(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5303) static void C_fcall f_5303(C_word t0,C_word t1) C_noret; C_noret_decl(f_5306) static void C_ccall f_5306(C_word c,C_word *av) C_noret; C_noret_decl(f_5323) static void C_ccall f_5323(C_word c,C_word *av) C_noret; C_noret_decl(f_5356) static void C_ccall f_5356(C_word c,C_word *av) C_noret; C_noret_decl(f_5359) static void C_fcall f_5359(C_word t0,C_word t1) C_noret; C_noret_decl(f_5374) static void C_fcall f_5374(C_word t0,C_word t1) C_noret; C_noret_decl(f_5382) static void C_fcall f_5382(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5392) static void C_ccall f_5392(C_word c,C_word *av) C_noret; C_noret_decl(f_5394) static void C_fcall f_5394(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5419) static void C_ccall f_5419(C_word c,C_word *av) C_noret; C_noret_decl(f_5429) static void C_ccall f_5429(C_word c,C_word *av) C_noret; C_noret_decl(f_5440) static void C_ccall f_5440(C_word c,C_word *av) C_noret; C_noret_decl(f_5458) static void C_ccall f_5458(C_word c,C_word *av) C_noret; C_noret_decl(f_5466) static void C_ccall f_5466(C_word c,C_word *av) C_noret; C_noret_decl(f_5476) static void C_ccall f_5476(C_word c,C_word *av) C_noret; C_noret_decl(f_5483) static void C_ccall f_5483(C_word c,C_word *av) C_noret; C_noret_decl(f_5501) static void C_ccall f_5501(C_word c,C_word *av) C_noret; C_noret_decl(f_5506) static void C_ccall f_5506(C_word c,C_word *av) C_noret; C_noret_decl(f_5512) static void C_ccall f_5512(C_word c,C_word *av) C_noret; C_noret_decl(f_5518) static void C_ccall f_5518(C_word c,C_word *av) C_noret; C_noret_decl(f_5524) static void C_ccall f_5524(C_word c,C_word *av) C_noret; C_noret_decl(f_5531) static void C_ccall f_5531(C_word c,C_word *av) C_noret; C_noret_decl(f_5546) static void C_ccall f_5546(C_word c,C_word *av) C_noret; C_noret_decl(f_5566) static void C_ccall f_5566(C_word c,C_word *av) C_noret; C_noret_decl(f_5573) static void C_ccall f_5573(C_word c,C_word *av) C_noret; C_noret_decl(f_5576) static void C_ccall f_5576(C_word c,C_word *av) C_noret; C_noret_decl(f_5593) static void C_ccall f_5593(C_word c,C_word *av) C_noret; C_noret_decl(f_5598) static void C_ccall f_5598(C_word c,C_word *av) C_noret; C_noret_decl(f_5605) static void C_ccall f_5605(C_word c,C_word *av) C_noret; C_noret_decl(f_5620) static void C_ccall f_5620(C_word c,C_word *av) C_noret; C_noret_decl(f_5640) static void C_ccall f_5640(C_word c,C_word *av) C_noret; C_noret_decl(f_5674) static void C_ccall f_5674(C_word c,C_word *av) C_noret; C_noret_decl(f_5686) static void C_ccall f_5686(C_word c,C_word *av) C_noret; C_noret_decl(f_5689) static void C_ccall f_5689(C_word c,C_word *av) C_noret; C_noret_decl(f_5696) static void C_fcall f_5696(C_word t0,C_word t1) C_noret; C_noret_decl(f_5699) static void C_ccall f_5699(C_word c,C_word *av) C_noret; C_noret_decl(f_5705) static void C_ccall f_5705(C_word c,C_word *av) C_noret; C_noret_decl(f_5708) static void C_ccall f_5708(C_word c,C_word *av) C_noret; C_noret_decl(f_5712) static void C_fcall f_5712(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5722) static void C_ccall f_5722(C_word c,C_word *av) C_noret; C_noret_decl(f_5729) static void C_ccall f_5729(C_word c,C_word *av) C_noret; C_noret_decl(f_5737) static void C_ccall f_5737(C_word c,C_word *av) C_noret; C_noret_decl(f_5739) static void C_fcall f_5739(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5749) static void C_ccall f_5749(C_word c,C_word *av) C_noret; C_noret_decl(f_5766) static void C_ccall f_5766(C_word c,C_word *av) C_noret; C_noret_decl(f_5769) static void C_fcall f_5769(C_word t0,C_word t1) C_noret; C_noret_decl(f_5772) static void C_ccall f_5772(C_word c,C_word *av) C_noret; C_noret_decl(f_5791) static void C_ccall f_5791(C_word c,C_word *av) C_noret; C_noret_decl(f_5797) static void C_fcall f_5797(C_word t0,C_word t1) C_noret; C_noret_decl(f_5800) static void C_ccall f_5800(C_word c,C_word *av) C_noret; C_noret_decl(f_5808) static void C_ccall f_5808(C_word c,C_word *av) C_noret; C_noret_decl(f_5815) static void C_ccall f_5815(C_word c,C_word *av) C_noret; C_noret_decl(f_5821) static void C_fcall f_5821(C_word t0,C_word t1) C_noret; C_noret_decl(f_5824) static void C_ccall f_5824(C_word c,C_word *av) C_noret; C_noret_decl(f_5825) static void C_fcall f_5825(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5835) static void C_ccall f_5835(C_word c,C_word *av) C_noret; C_noret_decl(f_5838) static void C_ccall f_5838(C_word c,C_word *av) C_noret; C_noret_decl(f_5841) static void C_ccall f_5841(C_word c,C_word *av) C_noret; C_noret_decl(f_5846) static void C_ccall f_5846(C_word c,C_word *av) C_noret; C_noret_decl(f_5849) static void C_ccall f_5849(C_word c,C_word *av) C_noret; C_noret_decl(f_5853) static void C_ccall f_5853(C_word c,C_word *av) C_noret; C_noret_decl(f_5860) static void C_ccall f_5860(C_word c,C_word *av) C_noret; C_noret_decl(f_5863) static void C_ccall f_5863(C_word c,C_word *av) C_noret; C_noret_decl(f_5877) static void C_ccall f_5877(C_word c,C_word *av) C_noret; C_noret_decl(f_5879) static void C_fcall f_5879(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5889) static void C_ccall f_5889(C_word c,C_word *av) C_noret; C_noret_decl(f_5914) static void C_ccall f_5914(C_word c,C_word *av) C_noret; C_noret_decl(f_5928) static void C_fcall f_5928(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_5938) static void C_fcall f_5938(C_word t0,C_word t1) C_noret; C_noret_decl(f_5945) static void C_fcall f_5945(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5955) static void C_ccall f_5955(C_word c,C_word *av) C_noret; C_noret_decl(f_5958) static void C_ccall f_5958(C_word c,C_word *av) C_noret; C_noret_decl(f_5963) static void C_fcall f_5963(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5988) static void C_ccall f_5988(C_word c,C_word *av) C_noret; C_noret_decl(f_5999) static void C_ccall f_5999(C_word c,C_word *av) C_noret; C_noret_decl(f_6003) static void C_ccall f_6003(C_word c,C_word *av) C_noret; C_noret_decl(f_6009) static void C_ccall f_6009(C_word c,C_word *av) C_noret; C_noret_decl(f_6015) static void C_ccall f_6015(C_word c,C_word *av) C_noret; C_noret_decl(f_6021) static void C_ccall f_6021(C_word c,C_word *av) C_noret; C_noret_decl(f_6036) static void C_ccall f_6036(C_word c,C_word *av) C_noret; C_noret_decl(f_6040) static void C_ccall f_6040(C_word c,C_word *av) C_noret; C_noret_decl(f_6052) static void C_ccall f_6052(C_word c,C_word *av) C_noret; C_noret_decl(f_6099) static void C_fcall f_6099(C_word t0,C_word t1) C_noret; C_noret_decl(f_6102) static void C_ccall f_6102(C_word c,C_word *av) C_noret; C_noret_decl(f_6114) static void C_ccall f_6114(C_word c,C_word *av) C_noret; C_noret_decl(f_6119) static void C_ccall f_6119(C_word c,C_word *av) C_noret; C_noret_decl(f_6125) static void C_ccall f_6125(C_word c,C_word *av) C_noret; C_noret_decl(f_6129) static void C_ccall f_6129(C_word c,C_word *av) C_noret; C_noret_decl(f_6136) static void C_ccall f_6136(C_word c,C_word *av) C_noret; C_noret_decl(f_6141) static void C_fcall f_6141(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6151) static void C_ccall f_6151(C_word c,C_word *av) C_noret; C_noret_decl(f_6153) static void C_fcall f_6153(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6178) static void C_ccall f_6178(C_word c,C_word *av) C_noret; C_noret_decl(f_6189) static void C_ccall f_6189(C_word c,C_word *av) C_noret; C_noret_decl(f_6197) static void C_ccall f_6197(C_word c,C_word *av) C_noret; C_noret_decl(f_6226) static void C_ccall f_6226(C_word c,C_word *av) C_noret; C_noret_decl(f_6239) static void C_ccall f_6239(C_word c,C_word *av) C_noret; C_noret_decl(f_6254) static void C_ccall f_6254(C_word c,C_word *av) C_noret; C_noret_decl(f_6276) static void C_ccall f_6276(C_word c,C_word *av) C_noret; C_noret_decl(f_6280) static void C_ccall f_6280(C_word c,C_word *av) C_noret; C_noret_decl(f_6284) static void C_ccall f_6284(C_word c,C_word *av) C_noret; C_noret_decl(f_6290) static void C_ccall f_6290(C_word c,C_word *av) C_noret; C_noret_decl(f_6293) static void C_ccall f_6293(C_word c,C_word *av) C_noret; C_noret_decl(f_6300) static void C_ccall f_6300(C_word c,C_word *av) C_noret; C_noret_decl(f_6314) static void C_ccall f_6314(C_word c,C_word *av) C_noret; C_noret_decl(f_6334) static void C_ccall f_6334(C_word c,C_word *av) C_noret; C_noret_decl(f_6338) static void C_ccall f_6338(C_word c,C_word *av) C_noret; C_noret_decl(f_6345) static void C_ccall f_6345(C_word c,C_word *av) C_noret; C_noret_decl(f_6360) static void C_ccall f_6360(C_word c,C_word *av) C_noret; C_noret_decl(f_6378) static void C_ccall f_6378(C_word c,C_word *av) C_noret; C_noret_decl(f_6381) static void C_fcall f_6381(C_word t0,C_word t1) C_noret; C_noret_decl(f_6391) static void C_ccall f_6391(C_word c,C_word *av) C_noret; C_noret_decl(f_6393) static void C_ccall f_6393(C_word c,C_word *av) C_noret; C_noret_decl(f_6412) static void C_ccall f_6412(C_word c,C_word *av) C_noret; C_noret_decl(f_6418) static void C_ccall f_6418(C_word c,C_word *av) C_noret; C_noret_decl(f_6428) static void C_ccall f_6428(C_word c,C_word *av) C_noret; C_noret_decl(f_6432) static void C_ccall f_6432(C_word c,C_word *av) C_noret; C_noret_decl(f_6442) static void C_ccall f_6442(C_word c,C_word *av) C_noret; C_noret_decl(f_6446) static void C_ccall f_6446(C_word c,C_word *av) C_noret; C_noret_decl(f_6452) static void C_ccall f_6452(C_word c,C_word *av) C_noret; C_noret_decl(f_6459) static void C_ccall f_6459(C_word c,C_word *av) C_noret; C_noret_decl(f_6472) static void C_ccall f_6472(C_word c,C_word *av) C_noret; C_noret_decl(f_6480) static void C_ccall f_6480(C_word c,C_word *av) C_noret; C_noret_decl(f_6484) static void C_ccall f_6484(C_word c,C_word *av) C_noret; C_noret_decl(f_6490) static void C_ccall f_6490(C_word c,C_word *av) C_noret; C_noret_decl(f_6500) static void C_ccall f_6500(C_word c,C_word *av) C_noret; C_noret_decl(f_6504) static void C_ccall f_6504(C_word c,C_word *av) C_noret; C_noret_decl(f_6522) static void C_ccall f_6522(C_word c,C_word *av) C_noret; C_noret_decl(f_6525) static void C_ccall f_6525(C_word c,C_word *av) C_noret; C_noret_decl(f_6534) static void C_fcall f_6534(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6541) static void C_ccall f_6541(C_word c,C_word *av) C_noret; C_noret_decl(f_6543) static void C_fcall f_6543(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6568) static void C_ccall f_6568(C_word c,C_word *av) C_noret; C_noret_decl(f_6601) static void C_ccall f_6601(C_word c,C_word *av) C_noret; C_noret_decl(f_6607) static void C_ccall f_6607(C_word c,C_word *av) C_noret; C_noret_decl(f_6613) static void C_ccall f_6613(C_word c,C_word *av) C_noret; C_noret_decl(f_6622) static void C_ccall f_6622(C_word c,C_word *av) C_noret; C_noret_decl(f_6634) static void C_fcall f_6634(C_word t0,C_word t1) C_noret; C_noret_decl(f_6640) static void C_ccall f_6640(C_word c,C_word *av) C_noret; C_noret_decl(f_6646) static void C_ccall f_6646(C_word c,C_word *av) C_noret; C_noret_decl(f_6655) static void C_ccall f_6655(C_word c,C_word *av) C_noret; C_noret_decl(f_6657) static void C_fcall f_6657(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6667) static void C_ccall f_6667(C_word c,C_word *av) C_noret; C_noret_decl(f_6681) static void C_ccall f_6681(C_word c,C_word *av) C_noret; C_noret_decl(f_6682) static void C_ccall f_6682(C_word c,C_word *av) C_noret; C_noret_decl(f_6699) static void C_ccall f_6699(C_word c,C_word *av) C_noret; C_noret_decl(f_6723) static void C_ccall f_6723(C_word c,C_word *av) C_noret; C_noret_decl(f_6733) static void C_fcall f_6733(C_word t0,C_word t1) C_noret; C_noret_decl(f_6752) static void C_ccall f_6752(C_word c,C_word *av) C_noret; C_noret_decl(f_6760) static void C_ccall f_6760(C_word c,C_word *av) C_noret; C_noret_decl(f_6764) static void C_ccall f_6764(C_word c,C_word *av) C_noret; C_noret_decl(f_6771) static void C_ccall f_6771(C_word c,C_word *av) C_noret; C_noret_decl(f_6775) static void C_ccall f_6775(C_word c,C_word *av) C_noret; C_noret_decl(f_6792) static void C_fcall f_6792(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8) C_noret; C_noret_decl(f_6798) static void C_fcall f_6798(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6808) static void C_ccall f_6808(C_word c,C_word *av) C_noret; C_noret_decl(f_6818) static void C_ccall f_6818(C_word c,C_word *av) C_noret; C_noret_decl(f_6824) static void C_ccall f_6824(C_word c,C_word *av) C_noret; C_noret_decl(f_6831) static void C_fcall f_6831(C_word t0,C_word t1) C_noret; C_noret_decl(f_6852) static void C_ccall f_6852(C_word c,C_word *av) C_noret; C_noret_decl(f_6858) static void C_ccall f_6858(C_word c,C_word *av) C_noret; C_noret_decl(f_6862) static void C_ccall f_6862(C_word c,C_word *av) C_noret; C_noret_decl(f_6865) static void C_ccall f_6865(C_word c,C_word *av) C_noret; C_noret_decl(f_6868) static void C_ccall f_6868(C_word c,C_word *av) C_noret; C_noret_decl(f_6871) static void C_ccall f_6871(C_word c,C_word *av) C_noret; C_noret_decl(f_6874) static void C_ccall f_6874(C_word c,C_word *av) C_noret; C_noret_decl(f_6877) static void C_ccall f_6877(C_word c,C_word *av) C_noret; C_noret_decl(f_6906) static void C_ccall f_6906(C_word c,C_word *av) C_noret; C_noret_decl(f_6910) static void C_ccall f_6910(C_word c,C_word *av) C_noret; C_noret_decl(f_6915) static void C_ccall f_6915(C_word c,C_word *av) C_noret; C_noret_decl(f_6943) static void C_fcall f_6943(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6953) static void C_ccall f_6953(C_word c,C_word *av) C_noret; C_noret_decl(f_6975) static C_word C_fcall f_6975(C_word t0); C_noret_decl(f_6979) static void C_fcall f_6979(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6986) static void C_ccall f_6986(C_word c,C_word *av) C_noret; C_noret_decl(f_6989) static void C_ccall f_6989(C_word c,C_word *av) C_noret; C_noret_decl(f_6992) static void C_ccall f_6992(C_word c,C_word *av) C_noret; C_noret_decl(f_7001) static void C_ccall f_7001(C_word c,C_word *av) C_noret; C_noret_decl(f_7002) static void C_fcall f_7002(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7009) static void C_ccall f_7009(C_word c,C_word *av) C_noret; C_noret_decl(f_7015) static void C_ccall f_7015(C_word c,C_word *av) C_noret; C_noret_decl(f_7018) static void C_ccall f_7018(C_word c,C_word *av) C_noret; C_noret_decl(f_7024) static void C_fcall f_7024(C_word t0,C_word t1) C_noret; C_noret_decl(f_7033) static void C_ccall f_7033(C_word c,C_word *av) C_noret; C_noret_decl(f_7039) static void C_fcall f_7039(C_word t0,C_word t1) C_noret; C_noret_decl(f_7045) static void C_ccall f_7045(C_word c,C_word *av) C_noret; C_noret_decl(f_7051) static void C_fcall f_7051(C_word t0,C_word t1) C_noret; C_noret_decl(f_7060) static void C_fcall f_7060(C_word t0,C_word t1) C_noret; C_noret_decl(f_7067) static void C_ccall f_7067(C_word c,C_word *av) C_noret; C_noret_decl(f_7070) static void C_ccall f_7070(C_word c,C_word *av) C_noret; C_noret_decl(f_7073) static void C_ccall f_7073(C_word c,C_word *av) C_noret; C_noret_decl(f_7088) static void C_ccall f_7088(C_word c,C_word *av) C_noret; C_noret_decl(f_7108) static void C_ccall f_7108(C_word c,C_word *av) C_noret; C_noret_decl(f_7112) static void C_ccall f_7112(C_word c,C_word *av) C_noret; C_noret_decl(f_7116) static void C_ccall f_7116(C_word c,C_word *av) C_noret; C_noret_decl(f_7129) static void C_ccall f_7129(C_word c,C_word *av) C_noret; C_noret_decl(f_7148) static void C_ccall f_7148(C_word c,C_word *av) C_noret; C_noret_decl(f_7152) static void C_ccall f_7152(C_word c,C_word *av) C_noret; C_noret_decl(f_7174) static void C_ccall f_7174(C_word c,C_word *av) C_noret; C_noret_decl(f_7194) static void C_ccall f_7194(C_word c,C_word *av) C_noret; C_noret_decl(f_7198) static void C_ccall f_7198(C_word c,C_word *av) C_noret; C_noret_decl(f_7205) static void C_ccall f_7205(C_word c,C_word *av) C_noret; C_noret_decl(f_7216) static void C_fcall f_7216(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7226) static void C_ccall f_7226(C_word c,C_word *av) C_noret; C_noret_decl(f_7246) static void C_ccall f_7246(C_word c,C_word *av) C_noret; C_noret_decl(f_7249) static void C_ccall f_7249(C_word c,C_word *av) C_noret; C_noret_decl(f_7252) static void C_ccall f_7252(C_word c,C_word *av) C_noret; C_noret_decl(f_7267) static void C_ccall f_7267(C_word c,C_word *av) C_noret; C_noret_decl(f_7269) static void C_fcall f_7269(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7275) static void C_fcall f_7275(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7299) static void C_ccall f_7299(C_word c,C_word *av) C_noret; C_noret_decl(f_7312) static void C_fcall f_7312(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7321) static void C_ccall f_7321(C_word c,C_word *av) C_noret; C_noret_decl(f_7324) static void C_ccall f_7324(C_word c,C_word *av) C_noret; C_noret_decl(f_7325) static void C_fcall f_7325(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7335) static void C_ccall f_7335(C_word c,C_word *av) C_noret; C_noret_decl(f_7343) static void C_ccall f_7343(C_word c,C_word *av) C_noret; C_noret_decl(f_7351) static void C_ccall f_7351(C_word c,C_word *av) C_noret; C_noret_decl(f_7357) static void C_ccall f_7357(C_word c,C_word *av) C_noret; C_noret_decl(f_7370) static void C_ccall f_7370(C_word c,C_word *av) C_noret; C_noret_decl(f_7384) static void C_ccall f_7384(C_word c,C_word *av) C_noret; C_noret_decl(f_7385) static void C_fcall f_7385(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7392) static void C_ccall f_7392(C_word c,C_word *av) C_noret; C_noret_decl(f_7400) static void C_ccall f_7400(C_word c,C_word *av) C_noret; C_noret_decl(f_7402) static void C_ccall f_7402(C_word c,C_word *av) C_noret; C_noret_decl(f_7415) static void C_ccall f_7415(C_word c,C_word *av) C_noret; C_noret_decl(f_7426) static void C_ccall f_7426(C_word c,C_word *av) C_noret; C_noret_decl(f_7432) static void C_ccall f_7432(C_word c,C_word *av) C_noret; C_noret_decl(f_7444) static void C_ccall f_7444(C_word c,C_word *av) C_noret; C_noret_decl(f_7447) static void C_ccall f_7447(C_word c,C_word *av) C_noret; C_noret_decl(f_7450) static void C_ccall f_7450(C_word c,C_word *av) C_noret; C_noret_decl(f_7459) static void C_ccall f_7459(C_word c,C_word *av) C_noret; C_noret_decl(f_7467) static void C_fcall f_7467(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7483) static void C_fcall f_7483(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7496) static void C_fcall f_7496(C_word t0,C_word t1) C_noret; C_noret_decl(f_7520) static void C_fcall f_7520(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7544) static void C_ccall f_7544(C_word c,C_word *av) C_noret; C_noret_decl(f_7555) static void C_ccall f_7555(C_word c,C_word *av) C_noret; C_noret_decl(f_7567) static void C_fcall f_7567(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7575) static void C_fcall f_7575(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7591) static void C_ccall f_7591(C_word c,C_word *av) C_noret; C_noret_decl(f_7611) static void C_ccall f_7611(C_word c,C_word *av) C_noret; C_noret_decl(f_7622) static void C_ccall f_7622(C_word c,C_word *av) C_noret; C_noret_decl(f_7653) static void C_ccall f_7653(C_word c,C_word *av) C_noret; C_noret_decl(f_7659) static void C_fcall f_7659(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7669) static void C_ccall f_7669(C_word c,C_word *av) C_noret; C_noret_decl(f_7682) static void C_fcall f_7682(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7692) static void C_ccall f_7692(C_word c,C_word *av) C_noret; C_noret_decl(f_7705) static void C_fcall f_7705(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7715) static void C_ccall f_7715(C_word c,C_word *av) C_noret; C_noret_decl(f_7742) static void C_fcall f_7742(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7792) static void C_ccall f_7792(C_word c,C_word *av) C_noret; C_noret_decl(f_7794) static void C_ccall f_7794(C_word c,C_word *av) C_noret; C_noret_decl(f_7798) static void C_ccall f_7798(C_word c,C_word *av) C_noret; C_noret_decl(f_7808) static void C_ccall f_7808(C_word c,C_word *av) C_noret; C_noret_decl(f_7817) static void C_fcall f_7817(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7827) static void C_fcall f_7827(C_word t0,C_word t1) C_noret; C_noret_decl(f_7842) static void C_ccall f_7842(C_word c,C_word *av) C_noret; C_noret_decl(f_7877) static void C_fcall f_7877(C_word t0,C_word t1) C_noret; C_noret_decl(f_7907) static void C_ccall f_7907(C_word c,C_word *av) C_noret; C_noret_decl(f_7910) static void C_ccall f_7910(C_word c,C_word *av) C_noret; C_noret_decl(f_7931) static void C_ccall f_7931(C_word c,C_word *av) C_noret; C_noret_decl(f_7981) static void C_ccall f_7981(C_word c,C_word *av) C_noret; C_noret_decl(f_7985) static void C_ccall f_7985(C_word c,C_word *av) C_noret; C_noret_decl(f_7989) static void C_ccall f_7989(C_word c,C_word *av) C_noret; C_noret_decl(f_7993) static void C_ccall f_7993(C_word c,C_word *av) C_noret; C_noret_decl(f_7997) static void C_ccall f_7997(C_word c,C_word *av) C_noret; C_noret_decl(f_8026) static void C_ccall f_8026(C_word c,C_word *av) C_noret; C_noret_decl(f_8053) static void C_ccall f_8053(C_word c,C_word *av) C_noret; C_noret_decl(f_8084) static void C_ccall f_8084(C_word c,C_word *av) C_noret; C_noret_decl(f_8093) static void C_fcall f_8093(C_word t0,C_word t1) C_noret; C_noret_decl(f_8101) static void C_fcall f_8101(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8125) static void C_ccall f_8125(C_word c,C_word *av) C_noret; C_noret_decl(f_8136) static void C_ccall f_8136(C_word c,C_word *av) C_noret; C_noret_decl(f_8155) static void C_ccall f_8155(C_word c,C_word *av) C_noret; C_noret_decl(f_8198) static void C_ccall f_8198(C_word c,C_word *av) C_noret; C_noret_decl(f_8213) static void C_ccall f_8213(C_word c,C_word *av) C_noret; C_noret_decl(f_8221) static void C_ccall f_8221(C_word c,C_word *av) C_noret; C_noret_decl(f_8257) static void C_ccall f_8257(C_word c,C_word *av) C_noret; C_noret_decl(f_8290) static void C_ccall f_8290(C_word c,C_word *av) C_noret; C_noret_decl(f_8306) static void C_ccall f_8306(C_word c,C_word *av) C_noret; C_noret_decl(f_8352) static void C_ccall f_8352(C_word c,C_word *av) C_noret; C_noret_decl(f_8367) static void C_ccall f_8367(C_word c,C_word *av) C_noret; C_noret_decl(f_8379) static void C_ccall f_8379(C_word c,C_word *av) C_noret; C_noret_decl(f_8426) static void C_ccall f_8426(C_word c,C_word *av) C_noret; C_noret_decl(f_8441) static void C_ccall f_8441(C_word c,C_word *av) C_noret; C_noret_decl(f_8449) static void C_ccall f_8449(C_word c,C_word *av) C_noret; C_noret_decl(f_8457) static void C_ccall f_8457(C_word c,C_word *av) C_noret; C_noret_decl(f_8488) static void C_ccall f_8488(C_word c,C_word *av) C_noret; C_noret_decl(f_8509) static void C_ccall f_8509(C_word c,C_word *av) C_noret; C_noret_decl(f_8530) static void C_ccall f_8530(C_word c,C_word *av) C_noret; C_noret_decl(f_8536) static void C_fcall f_8536(C_word t0,C_word t1) C_noret; C_noret_decl(f_8539) static void C_fcall f_8539(C_word t0,C_word t1) C_noret; C_noret_decl(f_8550) static void C_ccall f_8550(C_word c,C_word *av) C_noret; C_noret_decl(f_8559) static void C_ccall f_8559(C_word c,C_word *av) C_noret; C_noret_decl(f_8564) static void C_fcall f_8564(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8589) static void C_ccall f_8589(C_word c,C_word *av) C_noret; C_noret_decl(f_8591) static void C_ccall f_8591(C_word c,C_word *av) C_noret; C_noret_decl(f_8631) static void C_ccall f_8631(C_word c,C_word *av) C_noret; C_noret_decl(f_8641) static void C_fcall f_8641(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8666) static void C_ccall f_8666(C_word c,C_word *av) C_noret; C_noret_decl(f_8675) static void C_fcall f_8675(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8700) static void C_ccall f_8700(C_word c,C_word *av) C_noret; C_noret_decl(f_8764) static void C_ccall f_8764(C_word c,C_word *av) C_noret; C_noret_decl(f_8773) static void C_ccall f_8773(C_word c,C_word *av) C_noret; C_noret_decl(f_8788) static void C_ccall f_8788(C_word c,C_word *av) C_noret; C_noret_decl(f_8796) static void C_ccall f_8796(C_word c,C_word *av) C_noret; C_noret_decl(f_8800) static void C_ccall f_8800(C_word c,C_word *av) C_noret; C_noret_decl(f_8853) static void C_ccall f_8853(C_word c,C_word *av) C_noret; C_noret_decl(f_8865) static void C_fcall f_8865(C_word t0,C_word t1) C_noret; C_noret_decl(f_8876) static void C_ccall f_8876(C_word c,C_word *av) C_noret; C_noret_decl(f_8880) static void C_ccall f_8880(C_word c,C_word *av) C_noret; C_noret_decl(f_8914) static void C_ccall f_8914(C_word c,C_word *av) C_noret; C_noret_decl(f_8960) static void C_ccall f_8960(C_word c,C_word *av) C_noret; C_noret_decl(f_8964) static void C_ccall f_8964(C_word c,C_word *av) C_noret; C_noret_decl(f_8993) static void C_ccall f_8993(C_word c,C_word *av) C_noret; C_noret_decl(f_9008) static void C_ccall f_9008(C_word c,C_word *av) C_noret; C_noret_decl(f_9018) static void C_fcall f_9018(C_word t0,C_word t1) C_noret; C_noret_decl(f_9022) static void C_ccall f_9022(C_word c,C_word *av) C_noret; C_noret_decl(f_9026) static void C_ccall f_9026(C_word c,C_word *av) C_noret; C_noret_decl(f_9063) static void C_ccall f_9063(C_word c,C_word *av) C_noret; C_noret_decl(f_9093) static void C_ccall f_9093(C_word c,C_word *av) C_noret; C_noret_decl(f_9146) static void C_ccall f_9146(C_word c,C_word *av) C_noret; C_noret_decl(f_9163) static void C_ccall f_9163(C_word c,C_word *av) C_noret; C_noret_decl(f_9167) static void C_ccall f_9167(C_word c,C_word *av) C_noret; C_noret_decl(f_9229) static void C_fcall f_9229(C_word t0,C_word t1) C_noret; C_noret_decl(f_9247) static void C_ccall f_9247(C_word c,C_word *av) C_noret; C_noret_decl(f_9268) static void C_ccall f_9268(C_word c,C_word *av) C_noret; C_noret_decl(f_9276) static void C_ccall f_9276(C_word c,C_word *av) C_noret; C_noret_decl(f_9359) static void C_ccall f_9359(C_word c,C_word *av) C_noret; C_noret_decl(f_9374) static void C_ccall f_9374(C_word c,C_word *av) C_noret; C_noret_decl(f_9427) static void C_ccall f_9427(C_word c,C_word *av) C_noret; C_noret_decl(f_9442) static void C_ccall f_9442(C_word c,C_word *av) C_noret; C_noret_decl(f_9461) static void C_ccall f_9461(C_word c,C_word *av) C_noret; C_noret_decl(f_9470) static void C_ccall f_9470(C_word c,C_word *av) C_noret; C_noret_decl(f_9486) static void C_fcall f_9486(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_9508) static void C_ccall f_9508(C_word c,C_word *av) C_noret; C_noret_decl(f_9511) static void C_ccall f_9511(C_word c,C_word *av) C_noret; C_noret_decl(f_9514) static void C_ccall f_9514(C_word c,C_word *av) C_noret; C_noret_decl(f_9529) static void C_ccall f_9529(C_word c,C_word *av) C_noret; C_noret_decl(f_9533) static void C_ccall f_9533(C_word c,C_word *av) C_noret; C_noret_decl(f_9543) static void C_ccall f_9543(C_word c,C_word *av) C_noret; C_noret_decl(f_9555) static void C_ccall f_9555(C_word c,C_word *av) C_noret; C_noret_decl(f_9567) static void C_ccall f_9567(C_word c,C_word *av) C_noret; C_noret_decl(f_9571) static void C_ccall f_9571(C_word c,C_word *av) C_noret; C_noret_decl(f_9613) static void C_ccall f_9613(C_word c,C_word *av) C_noret; C_noret_decl(f_9628) static void C_ccall f_9628(C_word c,C_word *av) C_noret; C_noret_decl(f_9636) static void C_ccall f_9636(C_word c,C_word *av) C_noret; C_noret_decl(f_9638) static void C_ccall f_9638(C_word c,C_word *av) C_noret; C_noret_decl(f_9646) static void C_ccall f_9646(C_word c,C_word *av) C_noret; C_noret_decl(f_9658) static void C_ccall f_9658(C_word c,C_word *av) C_noret; C_noret_decl(f_9685) static void C_ccall f_9685(C_word c,C_word *av) C_noret; C_noret_decl(f_9700) static void C_ccall f_9700(C_word c,C_word *av) C_noret; C_noret_decl(f_9721) static void C_ccall f_9721(C_word c,C_word *av) C_noret; C_noret_decl(f_9757) static void C_ccall f_9757(C_word c,C_word *av) C_noret; C_noret_decl(f_9759) static void C_ccall f_9759(C_word c,C_word *av) C_noret; C_noret_decl(f_9794) static void C_ccall f_9794(C_word c,C_word *av) C_noret; C_noret_decl(f_9816) static void C_ccall f_9816(C_word c,C_word *av) C_noret; C_noret_decl(f_9820) static void C_ccall f_9820(C_word c,C_word *av) C_noret; C_noret_decl(f_9856) static void C_ccall f_9856(C_word c,C_word *av) C_noret; C_noret_decl(f_9880) static void C_ccall f_9880(C_word c,C_word *av) C_noret; C_noret_decl(f_9920) static void C_ccall f_9920(C_word c,C_word *av) C_noret; C_noret_decl(f_9940) static void C_ccall f_9940(C_word c,C_word *av) C_noret; C_noret_decl(f_9944) static void C_ccall f_9944(C_word c,C_word *av) C_noret; C_noret_decl(f_9948) static void C_ccall f_9948(C_word c,C_word *av) C_noret; C_noret_decl(f_9950) static void C_ccall f_9950(C_word c,C_word *av) C_noret; C_noret_decl(f_9956) static void C_ccall f_9956(C_word c,C_word *av) C_noret; C_noret_decl(f_9964) static void C_ccall f_9964(C_word c,C_word *av) C_noret; C_noret_decl(f_9970) static void C_fcall f_9970(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9990) static void C_ccall f_9990(C_word c,C_word *av) C_noret; C_noret_decl(f_9994) static void C_ccall f_9994(C_word c,C_word *av) C_noret; C_noret_decl(C_optimizer_toplevel) C_externexport void C_ccall C_optimizer_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_10093) static void C_ccall trf_10093(C_word c,C_word *av) C_noret; static void C_ccall trf_10093(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_10093(t0,t1,t2,t3,t4);} C_noret_decl(trf_10263) static void C_ccall trf_10263(C_word c,C_word *av) C_noret; static void C_ccall trf_10263(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10263(t0,t1,t2);} C_noret_decl(trf_10275) static void C_ccall trf_10275(C_word c,C_word *av) C_noret; static void C_ccall trf_10275(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10275(t0,t1,t2);} C_noret_decl(trf_10304) static void C_ccall trf_10304(C_word c,C_word *av) C_noret; static void C_ccall trf_10304(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_10304(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_10307) static void C_ccall trf_10307(C_word c,C_word *av) C_noret; static void C_ccall trf_10307(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_10307(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_10465) static void C_ccall trf_10465(C_word c,C_word *av) C_noret; static void C_ccall trf_10465(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10465(t0,t1);} C_noret_decl(trf_10504) static void C_ccall trf_10504(C_word c,C_word *av) C_noret; static void C_ccall trf_10504(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10504(t0,t1);} C_noret_decl(trf_10551) static void C_ccall trf_10551(C_word c,C_word *av) C_noret; static void C_ccall trf_10551(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10551(t0,t1);} C_noret_decl(trf_10735) static void C_ccall trf_10735(C_word c,C_word *av) C_noret; static void C_ccall trf_10735(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_10735(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_10758) static void C_ccall trf_10758(C_word c,C_word *av) C_noret; static void C_ccall trf_10758(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10758(t0,t1);} C_noret_decl(trf_10777) static void C_ccall trf_10777(C_word c,C_word *av) C_noret; static void C_ccall trf_10777(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10777(t0,t1,t2);} C_noret_decl(trf_10909) static void C_ccall trf_10909(C_word c,C_word *av) C_noret; static void C_ccall trf_10909(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10909(t0,t1,t2);} C_noret_decl(trf_10932) static void C_ccall trf_10932(C_word c,C_word *av) C_noret; static void C_ccall trf_10932(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10932(t0,t1,t2);} C_noret_decl(trf_11001) static void C_ccall trf_11001(C_word c,C_word *av) C_noret; static void C_ccall trf_11001(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11001(t0,t1,t2);} C_noret_decl(trf_11143) static void C_ccall trf_11143(C_word c,C_word *av) C_noret; static void C_ccall trf_11143(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11143(t0,t1,t2);} C_noret_decl(trf_11300) static void C_ccall trf_11300(C_word c,C_word *av) C_noret; static void C_ccall trf_11300(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11300(t0,t1,t2);} C_noret_decl(trf_11329) static void C_ccall trf_11329(C_word c,C_word *av) C_noret; static void C_ccall trf_11329(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11329(t0,t1,t2);} C_noret_decl(trf_11478) static void C_ccall trf_11478(C_word c,C_word *av) C_noret; static void C_ccall trf_11478(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11478(t0,t1,t2,t3);} C_noret_decl(trf_11509) static void C_ccall trf_11509(C_word c,C_word *av) C_noret; static void C_ccall trf_11509(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11509(t0,t1);} C_noret_decl(trf_11571) static void C_ccall trf_11571(C_word c,C_word *av) C_noret; static void C_ccall trf_11571(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11571(t0,t1);} C_noret_decl(trf_11584) static void C_ccall trf_11584(C_word c,C_word *av) C_noret; static void C_ccall trf_11584(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11584(t0,t1);} C_noret_decl(trf_11678) static void C_ccall trf_11678(C_word c,C_word *av) C_noret; static void C_ccall trf_11678(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11678(t0,t1,t2);} C_noret_decl(trf_11690) static void C_ccall trf_11690(C_word c,C_word *av) C_noret; static void C_ccall trf_11690(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11690(t0,t1,t2);} C_noret_decl(trf_11727) static void C_ccall trf_11727(C_word c,C_word *av) C_noret; static void C_ccall trf_11727(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11727(t0,t1,t2);} C_noret_decl(trf_11742) static void C_ccall trf_11742(C_word c,C_word *av) C_noret; static void C_ccall trf_11742(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11742(t0,t1,t2);} C_noret_decl(trf_11791) static void C_ccall trf_11791(C_word c,C_word *av) C_noret; static void C_ccall trf_11791(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11791(t0,t1,t2);} C_noret_decl(trf_11853) static void C_ccall trf_11853(C_word c,C_word *av) C_noret; static void C_ccall trf_11853(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11853(t0,t1,t2);} C_noret_decl(trf_11858) static void C_ccall trf_11858(C_word c,C_word *av) C_noret; static void C_ccall trf_11858(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11858(t0,t1,t2);} C_noret_decl(trf_11930) static void C_ccall trf_11930(C_word c,C_word *av) C_noret; static void C_ccall trf_11930(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11930(t0,t1,t2);} C_noret_decl(trf_11960) static void C_ccall trf_11960(C_word c,C_word *av) C_noret; static void C_ccall trf_11960(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11960(t0,t1,t2);} C_noret_decl(trf_11983) static void C_ccall trf_11983(C_word c,C_word *av) C_noret; static void C_ccall trf_11983(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11983(t0,t1,t2);} C_noret_decl(trf_11993) static void C_ccall trf_11993(C_word c,C_word *av) C_noret; static void C_ccall trf_11993(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11993(t0,t1);} C_noret_decl(trf_12133) static void C_ccall trf_12133(C_word c,C_word *av) C_noret; static void C_ccall trf_12133(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12133(t0,t1,t2,t3);} C_noret_decl(trf_12226) static void C_ccall trf_12226(C_word c,C_word *av) C_noret; static void C_ccall trf_12226(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12226(t0,t1,t2);} C_noret_decl(trf_12293) static void C_ccall trf_12293(C_word c,C_word *av) C_noret; static void C_ccall trf_12293(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12293(t0,t1,t2);} C_noret_decl(trf_12327) static void C_ccall trf_12327(C_word c,C_word *av) C_noret; static void C_ccall trf_12327(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12327(t0,t1,t2);} C_noret_decl(trf_12374) static void C_ccall trf_12374(C_word c,C_word *av) C_noret; static void C_ccall trf_12374(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12374(t0,t1,t2);} C_noret_decl(trf_12463) static void C_ccall trf_12463(C_word c,C_word *av) C_noret; static void C_ccall trf_12463(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12463(t0,t1,t2);} C_noret_decl(trf_12471) static void C_ccall trf_12471(C_word c,C_word *av) C_noret; static void C_ccall trf_12471(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12471(t0,t1,t2,t3);} C_noret_decl(trf_12725) static void C_ccall trf_12725(C_word c,C_word *av) C_noret; static void C_ccall trf_12725(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12725(t0,t1,t2,t3);} C_noret_decl(trf_12828) static void C_ccall trf_12828(C_word c,C_word *av) C_noret; static void C_ccall trf_12828(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_12828(t0,t1,t2,t3,t4);} C_noret_decl(trf_12844) static void C_ccall trf_12844(C_word c,C_word *av) C_noret; static void C_ccall trf_12844(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12844(t0,t1);} C_noret_decl(trf_13338) static void C_ccall trf_13338(C_word c,C_word *av) C_noret; static void C_ccall trf_13338(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13338(t0,t1,t2);} C_noret_decl(trf_3236) static void C_ccall trf_3236(C_word c,C_word *av) C_noret; static void C_ccall trf_3236(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3236(t0,t1,t2,t3,t4);} C_noret_decl(trf_3338) static void C_ccall trf_3338(C_word c,C_word *av) C_noret; static void C_ccall trf_3338(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3338(t0,t1,t2);} C_noret_decl(trf_3390) static void C_ccall trf_3390(C_word c,C_word *av) C_noret; static void C_ccall trf_3390(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3390(t0,t1,t2);} C_noret_decl(trf_3396) static void C_ccall trf_3396(C_word c,C_word *av) C_noret; static void C_ccall trf_3396(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3396(t0,t1,t2,t3,t4);} C_noret_decl(trf_3429) static void C_ccall trf_3429(C_word c,C_word *av) C_noret; static void C_ccall trf_3429(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3429(t0,t1,t2,t3);} C_noret_decl(trf_3444) static void C_ccall trf_3444(C_word c,C_word *av) C_noret; static void C_ccall trf_3444(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3444(t0,t1,t2);} C_noret_decl(trf_3452) static void C_ccall trf_3452(C_word c,C_word *av) C_noret; static void C_ccall trf_3452(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3452(t0,t1,t2,t3);} C_noret_decl(trf_3484) static void C_ccall trf_3484(C_word c,C_word *av) C_noret; static void C_ccall trf_3484(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3484(t0,t1,t2);} C_noret_decl(trf_3516) static void C_ccall trf_3516(C_word c,C_word *av) C_noret; static void C_ccall trf_3516(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3516(t0,t1,t2);} C_noret_decl(trf_3565) static void C_ccall trf_3565(C_word c,C_word *av) C_noret; static void C_ccall trf_3565(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3565(t0,t1,t2);} C_noret_decl(trf_3599) static void C_ccall trf_3599(C_word c,C_word *av) C_noret; static void C_ccall trf_3599(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3599(t0,t1,t2);} C_noret_decl(trf_3605) static void C_ccall trf_3605(C_word c,C_word *av) C_noret; static void C_ccall trf_3605(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3605(t0,t1,t2);} C_noret_decl(trf_3633) static void C_ccall trf_3633(C_word c,C_word *av) C_noret; static void C_ccall trf_3633(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3633(t0,t1,t2);} C_noret_decl(trf_3639) static void C_ccall trf_3639(C_word c,C_word *av) C_noret; static void C_ccall trf_3639(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3639(t0,t1,t2);} C_noret_decl(trf_3663) static void C_ccall trf_3663(C_word c,C_word *av) C_noret; static void C_ccall trf_3663(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3663(t0,t1,t2);} C_noret_decl(trf_3669) static void C_ccall trf_3669(C_word c,C_word *av) C_noret; static void C_ccall trf_3669(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3669(t0,t1,t2,t3);} C_noret_decl(trf_3719) static void C_ccall trf_3719(C_word c,C_word *av) C_noret; static void C_ccall trf_3719(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3719(t0,t1,t2,t3);} C_noret_decl(trf_3725) static void C_ccall trf_3725(C_word c,C_word *av) C_noret; static void C_ccall trf_3725(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3725(t0,t1,t2);} C_noret_decl(trf_3800) static void C_ccall trf_3800(C_word c,C_word *av) C_noret; static void C_ccall trf_3800(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3800(t0,t1,t2);} C_noret_decl(trf_3839) static void C_ccall trf_3839(C_word c,C_word *av) C_noret; static void C_ccall trf_3839(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3839(t0,t1,t2);} C_noret_decl(trf_3848) static void C_ccall trf_3848(C_word c,C_word *av) C_noret; static void C_ccall trf_3848(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3848(t0,t1,t2);} C_noret_decl(trf_3856) static void C_ccall trf_3856(C_word c,C_word *av) C_noret; static void C_ccall trf_3856(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3856(t0,t1,t2,t3);} C_noret_decl(trf_3892) static void C_ccall trf_3892(C_word c,C_word *av) C_noret; static void C_ccall trf_3892(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3892(t0,t1,t2);} C_noret_decl(trf_3900) static void C_ccall trf_3900(C_word c,C_word *av) C_noret; static void C_ccall trf_3900(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3900(t0,t1,t2,t3);} C_noret_decl(trf_3965) static void C_ccall trf_3965(C_word c,C_word *av) C_noret; static void C_ccall trf_3965(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3965(t0,t1,t2);} C_noret_decl(trf_4064) static void C_ccall trf_4064(C_word c,C_word *av) C_noret; static void C_ccall trf_4064(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4064(t0,t1,t2,t3);} C_noret_decl(trf_4241) static void C_ccall trf_4241(C_word c,C_word *av) C_noret; static void C_ccall trf_4241(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4241(t0,t1,t2);} C_noret_decl(trf_4247) static void C_ccall trf_4247(C_word c,C_word *av) C_noret; static void C_ccall trf_4247(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4247(t0,t1,t2);} C_noret_decl(trf_4527) static void C_ccall trf_4527(C_word c,C_word *av) C_noret; static void C_ccall trf_4527(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4527(t0,t1,t2);} C_noret_decl(trf_4534) static void C_ccall trf_4534(C_word c,C_word *av) C_noret; static void C_ccall trf_4534(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4534(t0,t1);} C_noret_decl(trf_4550) static void C_ccall trf_4550(C_word c,C_word *av) C_noret; static void C_ccall trf_4550(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4550(t0,t1,t2,t3);} C_noret_decl(trf_4562) static void C_ccall trf_4562(C_word c,C_word *av) C_noret; static void C_ccall trf_4562(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_4562(t0,t1,t2,t3,t4);} C_noret_decl(trf_4564) static void C_ccall trf_4564(C_word c,C_word *av) C_noret; static void C_ccall trf_4564(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4564(t0,t1,t2);} C_noret_decl(trf_4580) static void C_ccall trf_4580(C_word c,C_word *av) C_noret; static void C_ccall trf_4580(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4580(t0,t1,t2);} C_noret_decl(trf_4603) static void C_ccall trf_4603(C_word c,C_word *av) C_noret; static void C_ccall trf_4603(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4603(t0,t1,t2,t3);} C_noret_decl(trf_4625) static void C_ccall trf_4625(C_word c,C_word *av) C_noret; static void C_ccall trf_4625(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4625(t0,t1);} C_noret_decl(trf_4646) static void C_ccall trf_4646(C_word c,C_word *av) C_noret; static void C_ccall trf_4646(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4646(t0,t1);} C_noret_decl(trf_4673) static void C_ccall trf_4673(C_word c,C_word *av) C_noret; static void C_ccall trf_4673(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4673(t0,t1);} C_noret_decl(trf_4768) static void C_ccall trf_4768(C_word c,C_word *av) C_noret; static void C_ccall trf_4768(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4768(t0,t1);} C_noret_decl(trf_4840) static void C_ccall trf_4840(C_word c,C_word *av) C_noret; static void C_ccall trf_4840(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4840(t0,t1,t2);} C_noret_decl(trf_4882) static void C_ccall trf_4882(C_word c,C_word *av) C_noret; static void C_ccall trf_4882(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4882(t0,t1,t2,t3);} C_noret_decl(trf_4912) static void C_ccall trf_4912(C_word c,C_word *av) C_noret; static void C_ccall trf_4912(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4912(t0,t1);} C_noret_decl(trf_4949) static void C_ccall trf_4949(C_word c,C_word *av) C_noret; static void C_ccall trf_4949(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4949(t0,t1,t2);} C_noret_decl(trf_5035) static void C_ccall trf_5035(C_word c,C_word *av) C_noret; static void C_ccall trf_5035(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5035(t0,t1,t2);} C_noret_decl(trf_5077) static void C_ccall trf_5077(C_word c,C_word *av) C_noret; static void C_ccall trf_5077(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_5077(t0,t1,t2,t3,t4);} C_noret_decl(trf_5164) static void C_ccall trf_5164(C_word c,C_word *av) C_noret; static void C_ccall trf_5164(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5164(t0,t1);} C_noret_decl(trf_5204) static void C_ccall trf_5204(C_word c,C_word *av) C_noret; static void C_ccall trf_5204(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5204(t0,t1,t2);} C_noret_decl(trf_5212) static void C_ccall trf_5212(C_word c,C_word *av) C_noret; static void C_ccall trf_5212(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5212(t0,t1,t2);} C_noret_decl(trf_5224) static void C_ccall trf_5224(C_word c,C_word *av) C_noret; static void C_ccall trf_5224(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_5224(t0,t1,t2,t3,t4);} C_noret_decl(trf_5293) static void C_ccall trf_5293(C_word c,C_word *av) C_noret; static void C_ccall trf_5293(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5293(t0,t1,t2);} C_noret_decl(trf_5303) static void C_ccall trf_5303(C_word c,C_word *av) C_noret; static void C_ccall trf_5303(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5303(t0,t1);} C_noret_decl(trf_5359) static void C_ccall trf_5359(C_word c,C_word *av) C_noret; static void C_ccall trf_5359(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5359(t0,t1);} C_noret_decl(trf_5374) static void C_ccall trf_5374(C_word c,C_word *av) C_noret; static void C_ccall trf_5374(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5374(t0,t1);} C_noret_decl(trf_5382) static void C_ccall trf_5382(C_word c,C_word *av) C_noret; static void C_ccall trf_5382(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5382(t0,t1,t2);} C_noret_decl(trf_5394) static void C_ccall trf_5394(C_word c,C_word *av) C_noret; static void C_ccall trf_5394(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5394(t0,t1,t2);} C_noret_decl(trf_5696) static void C_ccall trf_5696(C_word c,C_word *av) C_noret; static void C_ccall trf_5696(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5696(t0,t1);} C_noret_decl(trf_5712) static void C_ccall trf_5712(C_word c,C_word *av) C_noret; static void C_ccall trf_5712(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5712(t0,t1,t2);} C_noret_decl(trf_5739) static void C_ccall trf_5739(C_word c,C_word *av) C_noret; static void C_ccall trf_5739(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5739(t0,t1,t2);} C_noret_decl(trf_5769) static void C_ccall trf_5769(C_word c,C_word *av) C_noret; static void C_ccall trf_5769(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5769(t0,t1);} C_noret_decl(trf_5797) static void C_ccall trf_5797(C_word c,C_word *av) C_noret; static void C_ccall trf_5797(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5797(t0,t1);} C_noret_decl(trf_5821) static void C_ccall trf_5821(C_word c,C_word *av) C_noret; static void C_ccall trf_5821(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5821(t0,t1);} C_noret_decl(trf_5825) static void C_ccall trf_5825(C_word c,C_word *av) C_noret; static void C_ccall trf_5825(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5825(t0,t1,t2);} C_noret_decl(trf_5879) static void C_ccall trf_5879(C_word c,C_word *av) C_noret; static void C_ccall trf_5879(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5879(t0,t1,t2);} C_noret_decl(trf_5928) static void C_ccall trf_5928(C_word c,C_word *av) C_noret; static void C_ccall trf_5928(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_5928(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_5938) static void C_ccall trf_5938(C_word c,C_word *av) C_noret; static void C_ccall trf_5938(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5938(t0,t1);} C_noret_decl(trf_5945) static void C_ccall trf_5945(C_word c,C_word *av) C_noret; static void C_ccall trf_5945(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5945(t0,t1,t2);} C_noret_decl(trf_5963) static void C_ccall trf_5963(C_word c,C_word *av) C_noret; static void C_ccall trf_5963(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5963(t0,t1,t2);} C_noret_decl(trf_6099) static void C_ccall trf_6099(C_word c,C_word *av) C_noret; static void C_ccall trf_6099(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6099(t0,t1);} C_noret_decl(trf_6141) static void C_ccall trf_6141(C_word c,C_word *av) C_noret; static void C_ccall trf_6141(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6141(t0,t1,t2);} C_noret_decl(trf_6153) static void C_ccall trf_6153(C_word c,C_word *av) C_noret; static void C_ccall trf_6153(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6153(t0,t1,t2);} C_noret_decl(trf_6381) static void C_ccall trf_6381(C_word c,C_word *av) C_noret; static void C_ccall trf_6381(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6381(t0,t1);} C_noret_decl(trf_6534) static void C_ccall trf_6534(C_word c,C_word *av) C_noret; static void C_ccall trf_6534(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6534(t0,t1,t2);} C_noret_decl(trf_6543) static void C_ccall trf_6543(C_word c,C_word *av) C_noret; static void C_ccall trf_6543(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6543(t0,t1,t2);} C_noret_decl(trf_6634) static void C_ccall trf_6634(C_word c,C_word *av) C_noret; static void C_ccall trf_6634(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6634(t0,t1);} C_noret_decl(trf_6657) static void C_ccall trf_6657(C_word c,C_word *av) C_noret; static void C_ccall trf_6657(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6657(t0,t1,t2);} C_noret_decl(trf_6733) static void C_ccall trf_6733(C_word c,C_word *av) C_noret; static void C_ccall trf_6733(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6733(t0,t1);} C_noret_decl(trf_6792) static void C_ccall trf_6792(C_word c,C_word *av) C_noret; static void C_ccall trf_6792(C_word c,C_word *av){ C_word t0=av[8]; C_word t1=av[7]; C_word t2=av[6]; C_word t3=av[5]; C_word t4=av[4]; C_word t5=av[3]; C_word t6=av[2]; C_word t7=av[1]; C_word t8=av[0]; f_6792(t0,t1,t2,t3,t4,t5,t6,t7,t8);} C_noret_decl(trf_6798) static void C_ccall trf_6798(C_word c,C_word *av) C_noret; static void C_ccall trf_6798(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_6798(t0,t1,t2,t3,t4);} C_noret_decl(trf_6831) static void C_ccall trf_6831(C_word c,C_word *av) C_noret; static void C_ccall trf_6831(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6831(t0,t1);} C_noret_decl(trf_6943) static void C_ccall trf_6943(C_word c,C_word *av) C_noret; static void C_ccall trf_6943(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6943(t0,t1,t2);} C_noret_decl(trf_6979) static void C_ccall trf_6979(C_word c,C_word *av) C_noret; static void C_ccall trf_6979(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6979(t0,t1,t2,t3);} C_noret_decl(trf_7002) static void C_ccall trf_7002(C_word c,C_word *av) C_noret; static void C_ccall trf_7002(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7002(t0,t1,t2);} C_noret_decl(trf_7024) static void C_ccall trf_7024(C_word c,C_word *av) C_noret; static void C_ccall trf_7024(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7024(t0,t1);} C_noret_decl(trf_7039) static void C_ccall trf_7039(C_word c,C_word *av) C_noret; static void C_ccall trf_7039(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7039(t0,t1);} C_noret_decl(trf_7051) static void C_ccall trf_7051(C_word c,C_word *av) C_noret; static void C_ccall trf_7051(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7051(t0,t1);} C_noret_decl(trf_7060) static void C_ccall trf_7060(C_word c,C_word *av) C_noret; static void C_ccall trf_7060(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7060(t0,t1);} C_noret_decl(trf_7216) static void C_ccall trf_7216(C_word c,C_word *av) C_noret; static void C_ccall trf_7216(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7216(t0,t1,t2);} C_noret_decl(trf_7269) static void C_ccall trf_7269(C_word c,C_word *av) C_noret; static void C_ccall trf_7269(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7269(t0,t1,t2,t3);} C_noret_decl(trf_7275) static void C_ccall trf_7275(C_word c,C_word *av) C_noret; static void C_ccall trf_7275(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7275(t0,t1,t2,t3);} C_noret_decl(trf_7312) static void C_ccall trf_7312(C_word c,C_word *av) C_noret; static void C_ccall trf_7312(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7312(t0,t1,t2,t3);} C_noret_decl(trf_7325) static void C_ccall trf_7325(C_word c,C_word *av) C_noret; static void C_ccall trf_7325(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7325(t0,t1,t2);} C_noret_decl(trf_7385) static void C_ccall trf_7385(C_word c,C_word *av) C_noret; static void C_ccall trf_7385(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7385(t0,t1,t2);} C_noret_decl(trf_7467) static void C_ccall trf_7467(C_word c,C_word *av) C_noret; static void C_ccall trf_7467(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7467(t0,t1,t2,t3);} C_noret_decl(trf_7483) static void C_ccall trf_7483(C_word c,C_word *av) C_noret; static void C_ccall trf_7483(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7483(t0,t1,t2,t3);} C_noret_decl(trf_7496) static void C_ccall trf_7496(C_word c,C_word *av) C_noret; static void C_ccall trf_7496(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7496(t0,t1);} C_noret_decl(trf_7520) static void C_ccall trf_7520(C_word c,C_word *av) C_noret; static void C_ccall trf_7520(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7520(t0,t1,t2);} C_noret_decl(trf_7567) static void C_ccall trf_7567(C_word c,C_word *av) C_noret; static void C_ccall trf_7567(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7567(t0,t1,t2);} C_noret_decl(trf_7575) static void C_ccall trf_7575(C_word c,C_word *av) C_noret; static void C_ccall trf_7575(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7575(t0,t1,t2,t3);} C_noret_decl(trf_7659) static void C_ccall trf_7659(C_word c,C_word *av) C_noret; static void C_ccall trf_7659(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7659(t0,t1,t2);} C_noret_decl(trf_7682) static void C_ccall trf_7682(C_word c,C_word *av) C_noret; static void C_ccall trf_7682(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7682(t0,t1,t2);} C_noret_decl(trf_7705) static void C_ccall trf_7705(C_word c,C_word *av) C_noret; static void C_ccall trf_7705(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7705(t0,t1,t2,t3);} C_noret_decl(trf_7742) static void C_ccall trf_7742(C_word c,C_word *av) C_noret; static void C_ccall trf_7742(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7742(t0,t1,t2,t3);} C_noret_decl(trf_7817) static void C_ccall trf_7817(C_word c,C_word *av) C_noret; static void C_ccall trf_7817(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7817(t0,t1,t2);} C_noret_decl(trf_7827) static void C_ccall trf_7827(C_word c,C_word *av) C_noret; static void C_ccall trf_7827(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7827(t0,t1);} C_noret_decl(trf_7877) static void C_ccall trf_7877(C_word c,C_word *av) C_noret; static void C_ccall trf_7877(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7877(t0,t1);} C_noret_decl(trf_8093) static void C_ccall trf_8093(C_word c,C_word *av) C_noret; static void C_ccall trf_8093(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8093(t0,t1);} C_noret_decl(trf_8101) static void C_ccall trf_8101(C_word c,C_word *av) C_noret; static void C_ccall trf_8101(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8101(t0,t1,t2);} C_noret_decl(trf_8536) static void C_ccall trf_8536(C_word c,C_word *av) C_noret; static void C_ccall trf_8536(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8536(t0,t1);} C_noret_decl(trf_8539) static void C_ccall trf_8539(C_word c,C_word *av) C_noret; static void C_ccall trf_8539(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8539(t0,t1);} C_noret_decl(trf_8564) static void C_ccall trf_8564(C_word c,C_word *av) C_noret; static void C_ccall trf_8564(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8564(t0,t1,t2,t3);} C_noret_decl(trf_8641) static void C_ccall trf_8641(C_word c,C_word *av) C_noret; static void C_ccall trf_8641(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8641(t0,t1,t2);} C_noret_decl(trf_8675) static void C_ccall trf_8675(C_word c,C_word *av) C_noret; static void C_ccall trf_8675(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8675(t0,t1,t2);} C_noret_decl(trf_8865) static void C_ccall trf_8865(C_word c,C_word *av) C_noret; static void C_ccall trf_8865(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8865(t0,t1);} C_noret_decl(trf_9018) static void C_ccall trf_9018(C_word c,C_word *av) C_noret; static void C_ccall trf_9018(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9018(t0,t1);} C_noret_decl(trf_9229) static void C_ccall trf_9229(C_word c,C_word *av) C_noret; static void C_ccall trf_9229(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9229(t0,t1);} C_noret_decl(trf_9486) static void C_ccall trf_9486(C_word c,C_word *av) C_noret; static void C_ccall trf_9486(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_9486(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_9970) static void C_ccall trf_9970(C_word c,C_word *av) C_noret; static void C_ccall trf_9970(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9970(t0,t1,t2,t3);} /* k10015 in loop in a9955 in k9942 in k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10017,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,8)))){ C_save_and_reclaim((void *)f_10090,4,av);} a=C_alloc(39); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_END_OF_LIST; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_fix(0); t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10093,a[2]=t17,a[3]=t7,a[4]=t9,a[5]=t11,a[6]=t13,a[7]=t15,a[8]=t3,tmp=(C_word)a,a+=9,tmp)); t19=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10304,a[2]=t11,a[3]=t3,a[4]=t9,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t20=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10735,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11420,a[2]=t1,a[3]=t5,a[4]=t13,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1592: chicken.compiler.support#debugging */ t22=*((C_word*)lf[35]+1);{ C_word *av2=av; av2[0]=t22; av2[1]=t21; av2[2]=lf[48]; av2[3]=lf[165]; ((C_proc)(void*)(*((C_word*)t22+1)))(4,av2);}} /* walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_10093(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_10093,5,t0,t1,t2,t3,t4);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10097,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=t4,a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],tmp=(C_word)a,a+=13,tmp); /* optimizer.scm:1367: chicken.compiler.support#node-parameters */ t6=*((C_word*)lf[43]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_10097,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10100,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* optimizer.scm:1368: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_10100,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10103,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* optimizer.scm:1369: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_10103,2,av);} a=C_alloc(22); t2=C_eqp(t1,lf[29]); if(C_truep(t2)){ t3=C_i_caddr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10118,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[6])){ if(C_truep(C_i_cadr(((C_word*)t0)[2]))){ t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10221,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[13],a[7]=t5,a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[14],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:1374: chicken.compiler.support#db-get */ t7=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[14]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[110]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_10118(2,av2);}}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_10118(2,av2);}}} else{ t3=C_eqp(t1,lf[31]); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[2]); t5=C_i_car(((C_word*)t0)[11]); /* optimizer.scm:1388: walk */ t6=((C_word*)((C_word*)t0)[12])[1]; f_10093(t6,((C_word*)t0)[4],t4,t5,C_SCHEME_FALSE);} else{ t4=C_eqp(t1,lf[26]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10247,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t6=C_i_car(((C_word*)t0)[2]); t7=C_i_car(((C_word*)t0)[11]); /* optimizer.scm:1390: walk */ t8=((C_word*)((C_word*)t0)[12])[1]; f_10093(t8,t5,t6,t7,((C_word*)t0)[5]);} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10263,a[2]=((C_word*)t0)[12],tmp=(C_word)a,a+=3,tmp); t6=C_i_check_list_2(((C_word*)t0)[11],lf[23]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10275,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_10275(t10,((C_word*)t0)[4],((C_word*)t0)[11]);}}}} /* k10116 in k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_10118,2,av);} if(C_truep(t1)){ /* optimizer.scm:1386: transform */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10735(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1],((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],((C_word*)((C_word*)t0)[9])[1]);} else{ t2=C_i_car(((C_word*)t0)[10]); /* optimizer.scm:1387: walk */ t3=((C_word*)((C_word*)t0)[11])[1]; f_10093(t3,((C_word*)t0)[3],C_SCHEME_FALSE,t2,C_SCHEME_FALSE);}} /* k10147 in k10219 in k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_10149,2,av);} a=C_alloc(11); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10155,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:1377: chicken.compiler.support#db-get-list */ t4=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[109]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_10118(2,av2);}}} /* k10153 in k10147 in k10219 in k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_10155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_10155,2,av);} a=C_alloc(11); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10161,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:1378: chicken.compiler.support#db-get-list */ t4=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[135]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_10118(2,av2);}}} /* k10159 in k10153 in k10147 in k10219 in k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_10161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_10161,2,av);} a=C_alloc(13); t2=t1; if(C_truep(t2)){ t3=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10209,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10217,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1382: chicken.compiler.support#node-parameters */ t6=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_10118(2,av2);}}} else{ t3=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_10118(2,av2);}}} /* k10207 in k10159 in k10153 in k10147 in k10219 in k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_10209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_10209,2,av);} a=C_alloc(3); if(C_truep(C_i_not(t1))){ t2=C_i_length(((C_word*)t0)[2]); t3=C_i_length(((C_word*)t0)[3]); t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=C_i_car(((C_word*)t0)[4]); t6=C_i_car(((C_word*)t0)[5]); t7=C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)t0)[5]); /* optimizer.scm:1385: scan */ t8=((C_word*)((C_word*)t0)[7])[1]; f_10304(t8,((C_word*)t0)[8],t5,t6,((C_word*)t0)[6],((C_word*)t0)[9],t7);} else{ t5=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_10118(2,av2);}}} else{ t2=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_10118(2,av2);}}} /* k10215 in k10159 in k10153 in k10147 in k10219 in k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_10217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10217,2,av);} t2=C_i_car(t1); /* optimizer.scm:1381: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[141]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10219 in k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_10221,2,av);} a=C_alloc(10); if(C_truep(C_i_not(t1))){ if(C_truep(C_i_listp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10149,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:1376: chicken.compiler.support#db-get */ t3=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[62]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_10118(2,av2);}}} else{ t2=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_10118(2,av2);}}} /* k10245 in k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10247,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* optimizer.scm:1391: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10093(t3,((C_word*)t0)[4],C_SCHEME_FALSE,t2,C_SCHEME_FALSE);} /* g2091 in k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_10263(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_10263,3,t0,t1,t2);} /* optimizer.scm:1392: walk */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10093(t3,t1,C_SCHEME_FALSE,t2,C_SCHEME_FALSE);} /* for-each-loop2090 in k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_10275(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10275,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10285,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1392: g2091 */ t5=((C_word*)t0)[3]; f_10263(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10283 in for-each-loop2090 in k10101 in k10098 in k10095 in walk in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10285,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10275(t3,((C_word*)t0)[4],t2);} /* scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_10304(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,0,6)))){ C_save_and_reclaim_args((void *)trf_10304,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(25); t7=C_SCHEME_END_OF_LIST; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_FALSE; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10307,a[2]=t6,a[3]=t10,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t8,a[7]=t12,a[8]=t5,a[9]=((C_word*)t0)[4],a[10]=t4,a[11]=((C_word*)t0)[5],a[12]=t3,tmp=(C_word)a,a+=13,tmp)); t14=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_END_OF_LIST); t15=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_END_OF_LIST); t16=C_set_block_item(((C_word*)t0)[2],0,C_fix(0)); t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10726,a[2]=t1,a[3]=t8,a[4]=t3,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1471: rec */ t18=((C_word*)t12)[1]; f_10307(t18,t17,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,t6);} /* rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_10307(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_10307,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(18); t6=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10311,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=t5,a[11]=t4,a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[11],a[16]=((C_word*)t0)[12],a[17]=t2,tmp=(C_word)a,a+=18,tmp); /* optimizer.scm:1398: chicken.compiler.support#node-parameters */ t7=*((C_word*)lf[43]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_10311,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10314,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp); /* optimizer.scm:1399: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[17]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_10314,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_10317,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); /* optimizer.scm:1400: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[18]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,5)))){ C_save_and_reclaim((void *)f_10317,2,av);} a=C_alloc(33); t2=C_eqp(t1,lf[24]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10356,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1403: chicken.compiler.support#db-get */ t6=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=t4; av2[4]=lf[142]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t3=C_eqp(t1,lf[29]); if(C_truep(t3)){ if(C_truep(((C_word*)t0)[8])){ t4=C_i_caddr(((C_word*)t0)[2]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10374,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1411: ##sys#decompose-lambda-list */ t6=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=C_eqp(t1,lf[100]); if(C_truep(t4)){ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[5])[1]))){ t5=C_i_cadr(((C_word*)t0)[2]); t6=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[6])[1],t5); t7=C_mutate(((C_word *)((C_word*)t0)[6])+1,t6); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10411,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1420: every */ f_3599(((C_word*)t0)[3],t8,((C_word*)t0)[10]);} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=C_eqp(t1,lf[82]); if(C_truep(t5)){ if(C_truep(((C_word*)t0)[13])){ if(C_truep(((C_word*)t0)[14])){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10445,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[15],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t7=C_i_car(((C_word*)t0)[10]); /* optimizer.scm:1423: chicken.compiler.support#scan-used-variables */ t8=*((C_word*)lf[143]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=C_eqp(t1,lf[144]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10461,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t8=C_i_cadr(((C_word*)t0)[2]); /* optimizer.scm:1428: chicken.compiler.support#estimate-foreign-result-size */ t9=*((C_word*)lf[145]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t7=C_eqp(t1,lf[146]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10500,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t9=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:1436: chicken.compiler.support#estimate-foreign-result-size */ t10=*((C_word*)lf[145]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t8=C_eqp(t1,lf[30]); if(C_truep(t8)){ t9=C_i_car(((C_word*)t0)[10]); t10=t9; t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10608,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[16],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[17],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[18],a[11]=t10,tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:1445: chicken.compiler.support#node-class */ t12=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t9=C_eqp(t1,lf[147]); if(C_truep(t9)){ t10=C_i_cadddr(((C_word*)t0)[2]); t11=C_i_zerop(t10); if(C_truep(t11)){ t12=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[5])[1]))){ t12=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[6])[1],t10); t13=C_mutate(((C_word *)((C_word*)t0)[6])+1,t12); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10636,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1462: every */ f_3599(((C_word*)t0)[3],t14,((C_word*)t0)[10]);} else{ t12=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}} else{ t10=C_eqp(t1,lf[31]); if(C_truep(t10)){ t11=C_i_car(((C_word*)t0)[10]); t12=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:1463: rec */ t13=((C_word*)((C_word*)t0)[11])[1]; f_10307(t13,((C_word*)t0)[3],t11,t12,C_SCHEME_FALSE,((C_word*)t0)[12]);} else{ t11=C_eqp(t1,lf[26]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10669,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[12],tmp=(C_word)a,a+=7,tmp); t13=C_i_car(((C_word*)t0)[10]); t14=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:1465: rec */ t15=((C_word*)((C_word*)t0)[11])[1]; f_10307(t15,t12,t13,t14,((C_word*)t0)[19],((C_word*)t0)[12]);} else{ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10693,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1467: every */ f_3599(((C_word*)t0)[3],t12,((C_word*)t0)[10]);}}}}}}}}}}} /* k10354 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_10356,2,av);} a=C_alloc(29); t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_memq(((C_word*)t0)[3],((C_word*)t0)[4]); t4=C_i_not(t3); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[5])[1]))){ t5=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[6])[1],C_fix(2)); t6=C_mutate(((C_word *)((C_word*)t0)[6])+1,t5); t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}} /* a10373 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10374,5,av);} a=C_alloc(8); t5=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t7=C_i_car(((C_word*)t0)[4]); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10390,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1415: scheme#append */ t10=*((C_word*)lf[7]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; av2[2]=t2; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k10388 in a10373 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_10390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10390,2,av);} /* optimizer.scm:1415: rec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10307(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,t1);} /* a10410 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10411,3,av);} /* optimizer.scm:1420: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10307(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* k10443 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_10445,2,av);} a=C_alloc(6); if(C_truep(C_i_nullp(t1))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)((C_word*)t0)[4])[1]; t5=C_a_i_cons(&a,2,t2,t3); t6=C_a_i_cons(&a,2,t5,t4); t7=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6); t8=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k10459 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,2)))){ C_save_and_reclaim((void *)f_10461,2,av);} a=C_alloc(35); t2=C_i_zerop(t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10465,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t4=t3; f_10465(t4,t2);} else{ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[6])[1]))){ t4=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[7])[1],t1); t5=C_mutate(((C_word *)((C_word*)t0)[7])+1,t4); t6=t3; f_10465(t6,C_SCHEME_TRUE);} else{ t4=t3; f_10465(t4,C_SCHEME_FALSE);}}} /* k10463 in k10459 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_fcall f_10465(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_10465,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10470,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1434: every */ f_3599(((C_word*)t0)[4],t2,((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a10469 in k10463 in k10459 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_10470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10470,3,av);} /* optimizer.scm:1434: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10307(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* k10498 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,2)))){ C_save_and_reclaim((void *)f_10500,2,av);} a=C_alloc(35); t2=C_i_zerop(t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10504,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t4=t3; f_10504(t4,t2);} else{ if(C_truep(C_i_not(((C_word*)((C_word*)t0)[6])[1]))){ t4=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[7])[1],t1); t5=C_mutate(((C_word *)((C_word*)t0)[7])+1,t4); t6=t3; f_10504(t6,C_SCHEME_TRUE);} else{ t4=t3; f_10504(t4,C_SCHEME_FALSE);}}} /* k10502 in k10498 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_fcall f_10504(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_10504,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10509,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1442: every */ f_3599(((C_word*)t0)[4],t2,((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a10508 in k10502 in k10498 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_10509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10509,3,av);} /* optimizer.scm:1442: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10307(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* k10549 in k10602 in k10606 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_fcall f_10551(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_10551,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10556,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cdr(((C_word*)t0)[4]); /* optimizer.scm:1455: every */ f_3599(((C_word*)t0)[5],t2,t3);} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a10555 in k10549 in k10602 in k10606 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_10556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10556,3,av);} /* optimizer.scm:1455: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10307(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* k10591 in k10595 in k10602 in k10606 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_10593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10593,2,av);} a=C_alloc(3); t2=C_i_car(t1); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); t5=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); t6=((C_word*)t0)[4]; f_10551(t6,C_SCHEME_TRUE);} /* k10595 in k10602 in k10606 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_10597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10597,2,av);} a=C_alloc(5); t2=C_eqp(lf[24],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10593,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1451: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); t4=((C_word*)t0)[4]; f_10551(t4,C_SCHEME_TRUE);}} /* k10602 in k10606 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_10604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_10604,2,av);} a=C_alloc(12); t2=C_i_car(t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10551,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=C_eqp(t2,((C_word*)t0)[6]); if(C_truep(t4)){ t5=((C_word*)((C_word*)t0)[7])[1]; if(C_truep(C_i_zerop(t5))){ t6=C_i_cadr(((C_word*)t0)[4]); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10597,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=t3,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1450: chicken.compiler.support#node-class */ t9=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t6=t3; f_10551(t6,C_SCHEME_FALSE);}} else{ t5=t3; f_10551(t5,C_eqp(t2,((C_word*)t0)[10]));}} /* k10606 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_10608,2,av);} a=C_alloc(11); t2=C_eqp(lf[24],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10604,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:1446: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a10635 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10636,3,av);} /* optimizer.scm:1462: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10307(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* k10667 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10669,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10680,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1466: scheme#append */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k10678 in k10667 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_10680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10680,2,av);} /* optimizer.scm:1466: rec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10307(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,t1);} /* a10692 in k10315 in k10312 in k10309 in rec in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10693,3,av);} /* optimizer.scm:1467: rec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10307(t3,t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[3]);} /* k10724 in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10726,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10733,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1472: delete */ f_3719(t2,((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],*((C_word*)lf[47]+1));} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k10731 in k10724 in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10733,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=t1; t5=C_i_length(t3); t6=C_i_length(t4); t7=C_eqp(t5,t6); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4295,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:197: every */ f_3599(t2,t8,t3);} else{ t8=t2;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_10735(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,5)))){ C_save_and_reclaim_args((void *)trf_10735,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(19); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10739,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=t3,a[5]=t6,a[6]=t5,a[7]=t1,a[8]=t4,a[9]=t2,a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_pairp(t5))){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11398,a[2]=t8,a[3]=t3,a[4]=t7,tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11400,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1476: ##sys#make-promise */ t11=*((C_word*)lf[162]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ /* optimizer.scm:1477: chicken.compiler.support#debugging */ t9=*((C_word*)lf[35]+1);{ C_word av2[6]; av2[0]=t9; av2[1]=t8; av2[2]=lf[36]; av2[3]=lf[164]; av2[4]=t3; av2[5]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}}} /* k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10739,2,av);} a=C_alloc(10); t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10743,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:1479: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_10743,2,av);} a=C_alloc(14); t2=t1; t3=C_i_caddr(t2); t4=C_i_length(t3); t5=t4; t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10749,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=t7,a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:1482: chicken.compiler.support#db-get */ t9=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[135]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_10749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_10749,2,av);} a=C_alloc(16); t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); t3=t2; t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10758,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t5,a[10]=t3,a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp); if(C_truep(C_i_listp(((C_word*)t0)[2]))){ t7=C_u_i_length(((C_word*)t0)[2]); t8=C_eqp(t7,C_fix(4)); if(C_truep(t8)){ t9=C_i_caddr(((C_word*)t0)[2]); t10=t6; f_10758(t10,C_i_listp(t9));} else{ t9=t6; f_10758(t9,C_SCHEME_FALSE);}} else{ t7=t6; f_10758(t7,C_SCHEME_FALSE);}} /* k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_10758(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_10758,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10764,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* optimizer.scm:1486: scheme#caaddr */ t5=*((C_word*)lf[159]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* optimizer.scm:1590: chicken.compiler.support#bomb */ t2=*((C_word*)lf[154]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[8]; av2[2]=lf[160]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_10764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_10764,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* optimizer.scm:1487: scheme#cdaddr */ t4=*((C_word*)lf[158]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_10767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_10767,2,av);} a=C_alloc(15); t2=C_u_i_cdr(((C_word*)t0)[2]); t3=C_u_i_cdr(t2); t4=C_i_setslot(t3,C_fix(0),t1); t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10773,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp); /* optimizer.scm:1491: chicken.compiler.support#node-class-set! */ t6=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[15]; av2[3]=lf[82]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_10773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_10773,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10776,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11358,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:1494: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[14]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_10776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_10776,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10777,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10850,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11024,a[2]=((C_word*)t0)[9],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1564: filter */ f_3839(t3,t4,((C_word*)t0)[10]);} /* g2213 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_fcall f_10777(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_10777,3,t0,t1,t2);} a=C_alloc(8); t3=C_i_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10784,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:1549: chicken.compiler.support#node-subexpressions */ t6=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k10782 in g2213 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_10784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_10784,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10787,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:1550: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10785 in k10782 in g2213 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_ccall f_10787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10787,2,av);} a=C_alloc(8); t2=C_i_cdr(t1); t3=C_i_pairp(t2); t4=(C_truep(t3)?C_i_cadr(t1):C_SCHEME_FALSE); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10793,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t7=C_i_cdr(((C_word*)t0)[2]); t8=C_i_length(t7); t9=C_eqp(((C_word*)t0)[7],t8); if(C_truep(t9)){ t10=t6;{ C_word *av2=av; av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_10793(2,av2);}} else{ /* optimizer.scm:1554: chicken.compiler.support#quit-compiling */ t10=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t6; av2[2]=lf[149]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* k10791 in k10785 in k10782 in g2213 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_10793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_10793,2,av);} a=C_alloc(20); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10808,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_a_i_list4(&a,4,C_SCHEME_TRUE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]); t6=C_u_i_car(((C_word*)t0)[2]); t7=C_i_cddr(((C_word*)t0)[2]); t8=C_a_i_cons(&a,2,t6,t7); /* optimizer.scm:1560: chicken.compiler.support#make-node */ t9=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t4; av2[2]=lf[147]; av2[3]=t5; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* k10806 in k10791 in k10785 in k10782 in g2213 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_ccall f_10808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10808,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1557: chicken.compiler.support#node-subexpressions-set! */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_10850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_10850,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[23]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11001,a[2]=t5,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_11001(t7,t3,t1);} /* k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_10856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10856,2,av);} a=C_alloc(5); t2=(C_truep(((C_word*)t0)[2])?C_i_pairp(((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10865,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1571: chicken.compiler.support#make-node */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_ccall f_10865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10865,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10868,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1572: chicken.compiler.support#copy-node! */ t4=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_10868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_10868,2,av);} a=C_alloc(11); t2=((C_word*)t0)[2]; t3=C_i_check_list_2(t2,lf[6]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10874,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10932,a[2]=t6,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_10932(t8,t4,t2);} /* k10872 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_ccall f_10874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_10874,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10877,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1583: chicken.compiler.support#copy-node! */ t3=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10875 in k10872 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_10877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10877,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10909,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_10909(t6,((C_word*)t0)[3],t2);} /* k10883 in for-each-loop2340 in k10875 in k10872 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_10885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10885,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10892,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1588: chicken.compiler.support#node-subexpressions */ t3=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k10890 in k10883 in for-each-loop2340 in k10875 in k10872 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in ... */ static void C_ccall f_10892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10892,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10896,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1588: chicken.compiler.support#make-node */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[34]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10894 in k10890 in k10883 in for-each-loop2340 in k10875 in k10872 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in ... */ static void C_ccall f_10896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10896,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_set_car(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10902 in for-each-loop2340 in k10875 in k10872 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_10904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10904,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1587: chicken.compiler.support#node-parameters-set! */ t3=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* for-each-loop2340 in k10875 in k10872 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in ... */ static void C_fcall f_10909(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_10909,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10919,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=C_i_cdr(t4); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10885,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10904,a[2]=t8,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1587: chicken.base#gensym */ t10=*((C_word*)lf[95]+1);{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10917 in for-each-loop2340 in k10875 in k10872 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_10919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10919,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10909(t3,((C_word*)t0)[4],t2);} /* foldr2326 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_fcall f_10932(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_10932,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10992,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t2,C_fix(1)); t8=t5; t9=t6; t1=t8; t2=t9; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10957 in k10973 in k10990 in foldr2326 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_10959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10959,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]); /* optimizer.scm:1576: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10961 in k10973 in k10990 in foldr2326 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_10963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10963,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10967,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1579: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10965 in k10961 in k10973 in k10990 in foldr2326 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in ... */ static void C_ccall f_10967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10967,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10971,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1579: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10969 in k10965 in k10961 in k10973 in k10990 in foldr2326 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in ... */ static void C_ccall f_10971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10971,2,av);} /* optimizer.scm:1579: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10973 in k10990 in foldr2326 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in ... */ static void C_ccall f_10975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_10975,2,av);} a=C_alloc(9); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10963,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1579: chicken.compiler.support#node-class */ t6=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k10990 in foldr2326 in k10866 in k10863 in k10854 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_10992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10992,2,av);} a=C_alloc(8); t2=((C_word*)t0)[2]; t3=t1; t4=C_i_car(((C_word*)t0)[3]); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10975,a[2]=t3,a[3]=t2,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=C_u_i_cdr(((C_word*)t0)[3]); /* optimizer.scm:1578: chicken.compiler.support#node-subexpressions */ t9=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* for-each-loop2212 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_fcall f_11001(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11001,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11011,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1546: g2213 */ t5=((C_word*)t0)[3]; f_10777(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11009 in for-each-loop2212 in k10848 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_ccall f_11011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11011,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11001(t3,((C_word*)t0)[4],t2);} /* a11023 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_11024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_11024,3,av);} a=C_alloc(6); t3=C_i_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11035,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11037,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1566: any */ f_3633(t5,t6,((C_word*)((C_word*)t0)[2])[1]);} /* k11033 in a11023 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_11035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11035,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a11036 in a11023 in k10774 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_11037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11037,3,av);} t3=C_i_cdr(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(t3,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_11051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_11051,3,av);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11055,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:1495: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_11055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_11055,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11058,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* optimizer.scm:1496: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_ccall f_11058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_11058,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11061,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* optimizer.scm:1497: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_11061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_11061,2,av);} a=C_alloc(14); t2=C_eqp(t1,lf[30]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=C_i_cadr(((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11076,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t4,a[13]=t6,tmp=(C_word)a,a+=14,tmp); /* optimizer.scm:1501: chicken.compiler.support#node-parameters */ t8=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=C_eqp(t1,lf[26]); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[12]); t5=C_i_car(((C_word*)t0)[2]); if(C_truep(C_i_memq(t4,((C_word*)t0)[13]))){ t6=((C_word*)((C_word*)t0)[10])[1]; t7=C_a_i_cons(&a,2,t4,t5); t8=C_a_i_cons(&a,2,t7,t6); t9=C_mutate(((C_word *)((C_word*)t0)[10])+1,t8); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11285,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t11=C_i_cadr(((C_word*)t0)[2]); /* optimizer.scm:1539: chicken.compiler.support#copy-node! */ t12=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t12; av2[1]=t10; av2[2]=t11; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} else{ t6=((C_word*)((C_word*)t0)[11])[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[23]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11300,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_11300(t11,((C_word*)t0)[7],((C_word*)t0)[2]);}} else{ t4=((C_word*)((C_word*)t0)[11])[1]; t5=C_i_check_list_2(((C_word*)t0)[2],lf[23]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11329,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_11329(t9,((C_word*)t0)[7],((C_word*)t0)[2]);}}} /* k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_ccall f_11076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_11076,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11079,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* optimizer.scm:1502: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_11079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_11079,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11260,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* optimizer.scm:1503: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11102 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_11104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_11104,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1511: chicken.compiler.support#node-class-set! */ t3=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[151]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11105 in k11102 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in ... */ static void C_ccall f_11107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_11107,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11110,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_list2(&a,2,C_SCHEME_TRUE,((C_word*)t0)[5]); /* optimizer.scm:1512: chicken.compiler.support#node-parameters-set! */ t4=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11108 in k11105 in k11102 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in ... */ static void C_ccall f_11110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11110,2,av);} t2=C_i_cddr(((C_word*)t0)[2]); /* optimizer.scm:1513: chicken.compiler.support#node-subexpressions-set! */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* g2247 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in ... */ static void C_fcall f_11143(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_11143,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11212,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t4,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:1517: chicken.compiler.support#node-subexpressions */ t6=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k11151 in k11210 in g2247 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in ... */ static void C_ccall f_11153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11153,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11156,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:1522: chicken.compiler.support#node-class-set! */ t3=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[26]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11154 in k11151 in k11210 in g2247 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in ... */ static void C_ccall f_11156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_11156,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11159,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11185,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11193,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1523: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11157 in k11154 in k11151 in k11210 in g2247 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in ... */ static void C_ccall f_11159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_11159,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11162,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11173,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t4=C_a_i_list2(&a,2,C_SCHEME_FALSE,((C_word*)t0)[6]); t5=C_i_cddr(((C_word*)t0)[7]); /* optimizer.scm:1526: chicken.compiler.support#make-node */ t6=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=lf[151]; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11160 in k11157 in k11154 in k11151 in k11210 in g2247 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in ... */ static void C_ccall f_11162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11162,2,av);} /* optimizer.scm:1527: rec */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; f_11051(3,av2);}} /* k11171 in k11157 in k11154 in k11151 in k11210 in g2247 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in ... */ static void C_ccall f_11173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_11173,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]); /* optimizer.scm:1524: chicken.compiler.support#node-subexpressions-set! */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11183 in k11154 in k11151 in k11210 in g2247 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in ... */ static void C_ccall f_11185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11185,2,av);} /* optimizer.scm:1523: chicken.compiler.support#node-parameters-set! */ t2=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k11191 in k11154 in k11151 in k11210 in g2247 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in ... */ static void C_ccall f_11193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11193,2,av);} t2=C_i_caddr(t1); /* optimizer.scm:1523: take */ f_3338(((C_word*)t0)[2],t2,C_fix(1));} /* k11210 in g2247 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in ... */ static void C_ccall f_11212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11212,2,av);} a=C_alloc(9); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11153,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t5=C_i_cdr(((C_word*)t0)[6]); t6=C_i_length(t5); t7=C_eqp(((C_word*)t0)[8],t6); if(C_truep(t7)){ t8=t4;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_11153(2,av2);}} else{ /* optimizer.scm:1519: chicken.compiler.support#quit-compiling */ t8=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t4; av2[2]=lf[153]; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* k11233 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_11235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11235,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11238,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1531: chicken.compiler.support#node-parameters-set! */ t3=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11236 in k11233 in k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in ... */ static void C_ccall f_11238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11238,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* optimizer.scm:1532: chicken.compiler.support#node-subexpressions-set! */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k11258 in k11077 in k11074 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in ... */ static void C_ccall f_11260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_11260,2,av);} a=C_alloc(14); t2=C_eqp(lf[24],t1); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[2]); t4=C_eqp(((C_word*)t0)[3],t3); if(C_truep(t4)){ t5=((C_word*)t0)[4]; t6=((C_word*)((C_word*)t0)[5])[1]; t7=C_a_i_cons(&a,2,C_SCHEME_FALSE,t5); t8=C_a_i_cons(&a,2,t7,t6); t9=C_mutate(((C_word *)((C_word*)t0)[5])+1,t8); t10=C_i_car(((C_word*)t0)[6]); t11=C_eqp(((C_word*)t0)[7],t10); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11104,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); t13=C_i_cdr(((C_word*)t0)[8]); t14=C_i_length(t13); t15=C_eqp(((C_word*)t0)[11],t14); if(C_truep(t15)){ t16=t12;{ C_word *av2=av; av2[0]=t16; av2[1]=C_SCHEME_UNDEFINED; f_11104(2,av2);}} else{ /* optimizer.scm:1508: chicken.compiler.support#quit-compiling */ t16=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t16; av2[1]=t12; av2[2]=lf[152]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}}} else{ t12=C_i_car(((C_word*)t0)[6]); t13=C_i_assq(t12,((C_word*)((C_word*)t0)[12])[1]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11143,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:1506: g2247 */ t15=t14; f_11143(t15,((C_word*)t0)[9],t13);} else{ /* optimizer.scm:1528: chicken.compiler.support#bomb */ t14=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t14; av2[1]=((C_word*)t0)[9]; av2[2]=lf[155]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}}} else{ t5=C_i_car(((C_word*)t0)[2]); t6=C_eqp(((C_word*)t0)[7],t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11235,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1530: chicken.compiler.support#node-class-set! */ t8=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[4]; av2[3]=lf[156]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ /* optimizer.scm:1533: chicken.compiler.support#bomb */ t7=*((C_word*)lf[154]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=((C_word*)t0)[9]; av2[2]=lf[157]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}} else{ t3=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11283 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_ccall f_11285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11285,2,av);} /* optimizer.scm:1540: rec */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; f_11051(3,av2);}} /* for-each-loop2269 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_fcall f_11300(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11300,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11310,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1541: g2270 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11308 in for-each-loop2269 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_11310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11310,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11300(t3,((C_word*)t0)[4],t2);} /* for-each-loop2286 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_fcall f_11329(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11329,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11339,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1543: g2287 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11337 in for-each-loop2286 in k11059 in k11056 in k11053 in rec in k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_11339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11339,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11329(t3,((C_word*)t0)[4],t2);} /* k11356 in k10771 in k10765 in k10762 in k10756 in k10747 in k10741 in k10737 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_11358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_11358,2,av);} a=C_alloc(12); t2=C_i_car(t1); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11051,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t4,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp)); t6=((C_word*)t4)[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[9]; av2[2]=t2; f_11051(3,av2);}} /* k11396 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11398,2,av);} /* optimizer.scm:1476: chicken.compiler.support#debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[36]; av2[3]=lf[161]; av2[4]=((C_word*)t0)[3]; av2[5]=t1; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* a11399 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_11400,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11408,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11410,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1476: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=t3; av2[3]=*((C_word*)lf[163]+1); C_call_with_values(4,av2);}} /* k11406 in a11399 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11408,2,av);} /* optimizer.scm:1476: ##sys#make-promise */ t2=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a11409 in a11399 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_11410,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(t2,lf[8]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3965,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_3965(t11,t1,t2);} /* k11418 in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11420,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11423,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1593: walk */ t3=((C_word*)((C_word*)t0)[4])[1]; f_10093(t3,t2,C_SCHEME_FALSE,((C_word*)t0)[5],C_SCHEME_FALSE);} /* k11421 in k11418 in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11423,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_11425,4,av);} a=C_alloc(29); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_FALSE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_END_OF_LIST; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11428,a[2]=t9,a[3]=t7,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t15=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11478,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t11,a[6]=t3,tmp=(C_word)a,a+=7,tmp)); t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11723,a[2]=t3,a[3]=t5,a[4]=t1,a[5]=t2,a[6]=t13,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1677: chicken.compiler.support#debugging */ t17=*((C_word*)lf[35]+1);{ C_word *av2=av; av2[0]=t17; av2[1]=t16; av2[2]=lf[48]; av2[3]=lf[176]; ((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}} /* close in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static C_word C_fcall f_11428(C_word *a,C_word t0){ C_word tmp; C_word t1; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check;{} if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[2])[1]))){ t1=C_i_length(((C_word*)((C_word*)t0)[2])[1]); if(C_truep(C_fixnum_greaterp(t1,C_fix(1)))){ t2=((C_word*)((C_word*)t0)[3])[1]; t3=((C_word*)((C_word*)t0)[2])[1]; t4=((C_word*)((C_word*)t0)[4])[1]; t5=C_a_i_cons(&a,2,t2,t3); t6=C_a_i_cons(&a,2,t5,t4); t7=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6); t8=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_END_OF_LIST); t9=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_FALSE); return(t9);} else{ t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_END_OF_LIST); t3=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_FALSE); return(t3);}} else{ t1=C_SCHEME_UNDEFINED; return(t1);}} /* k11470 in k11474 in k11569 in k11604 in k11608 in k11612 in k11616 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_ccall f_11472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11472,2,av);} t2=C_i_caddr(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_listp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11474 in k11569 in k11604 in k11608 in k11612 in k11616 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_11476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11476,2,av);} a=C_alloc(3); t2=C_eqp(lf[29],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11472,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1630: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_11478(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_11478,4,t0,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11482,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:1633: chicken.compiler.support#node-subexpressions */ t5=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_11482,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11485,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:1634: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_11485,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11488,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:1635: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,5)))){ C_save_and_reclaim((void *)f_11488,2,av);} a=C_alloc(16); t2=C_eqp(t1,lf[26]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=C_i_car(((C_word*)t0)[3]); t6=t5; t7=C_i_cadr(((C_word*)t0)[3]); t8=t7; t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11509,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t8,a[9]=t6,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); if(C_truep(C_i_not(((C_word*)((C_word*)t0)[4])[1]))){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11628,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1642: chicken.compiler.support#node-class */ t11=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t10=t9; f_11509(t10,C_SCHEME_FALSE);}} else{ t3=C_eqp(t1,lf[29]); t4=(C_truep(t3)?t3:C_eqp(t1,lf[82])); if(C_truep(t4)){ t5=C_i_caddr(((C_word*)t0)[2]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11646,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1665: ##sys#decompose-lambda-list */ t7=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=((C_word*)t0)[8]; av2[2]=t5; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=( /* optimizer.scm:1674: close */ f_11428(C_a_i(&a,6),((C_word*)((C_word*)t0)[10])[1]) ); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11678,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t7=C_i_check_list_2(((C_word*)t0)[3],lf[23]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11690,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_11690(t11,((C_word*)t0)[8],((C_word*)t0)[3]);}}} /* k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_11509(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_11509,2,t0,t1);} a=C_alloc(16); if(C_truep(t1)){ t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); /* optimizer.scm:1645: walk */ t4=((C_word*)((C_word*)t0)[6])[1]; f_11478(t4,((C_word*)t0)[7],((C_word*)t0)[8],t3);} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11523,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11618,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1647: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_11523(2,av2);}}}} /* k11521 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_11523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_11523,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); /* optimizer.scm:1658: walk */ t5=((C_word*)((C_word*)t0)[6])[1]; f_11478(t5,((C_word*)t0)[7],((C_word*)t0)[8],t4);} else{ t2=( /* optimizer.scm:1661: close */ f_11428(C_a_i(&a,6),((C_word*)((C_word*)t0)[9])[1]) ); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11540,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1662: walk */ t4=((C_word*)((C_word*)t0)[6])[1]; f_11478(t4,t3,((C_word*)t0)[2],((C_word*)t0)[5]);}} /* k11538 in k11521 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_11540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11540,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* optimizer.scm:1663: walk */ t3=((C_word*)((C_word*)t0)[4])[1]; f_11478(t3,((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* k11569 in k11604 in k11608 in k11612 in k11616 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_fcall f_11571(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_11571,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)t0)[3]))){ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[5]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11476,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1629: chicken.compiler.support#node-class */ t5=*((C_word*)lf[41]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_11523(2,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_11523(2,av2);}}} /* k11582 in k11604 in k11608 in k11612 in k11616 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_fcall f_11584(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_11584,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11592,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1653: chicken.compiler.support#db-get */ t4=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[135]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k11590 in k11582 in k11604 in k11608 in k11612 in k11616 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_11592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11592,2,av);} if(C_truep(t1)){ t2=t1; t3=C_i_length(t2); t4=((C_word*)t0)[2]; f_11571(t4,C_eqp(((C_word*)t0)[3],t3));} else{ t2=((C_word*)t0)[2]; f_11571(t2,C_eqp(((C_word*)t0)[3],C_fix(0)));}} /* k11597 in k11604 in k11608 in k11612 in k11616 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_11599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11599,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_11584(t3,C_i_length(t2));} else{ t2=((C_word*)t0)[2]; f_11584(t2,C_fix(0));}} /* k11604 in k11608 in k11612 in k11616 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_11606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_11606,2,av);} a=C_alloc(14); t2=C_eqp(lf[29],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11571,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11584,a[2]=t3,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11599,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1652: chicken.compiler.support#db-get */ t6=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[109]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_11523(2,av2);}}} /* k11608 in k11612 in k11616 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_11610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11610,2,av);} a=C_alloc(7); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11606,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1651: chicken.compiler.support#node-class */ t5=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11612 in k11616 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_11614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11614,2,av);} a=C_alloc(6); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11610,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1649: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11616 in k11507 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_11618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11618,2,av);} a=C_alloc(6); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11614,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1648: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_11523(2,av2);}}} /* k11626 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11628,2,av);} t2=((C_word*)t0)[2]; f_11509(t2,C_eqp(lf[34],t1));} /* a11645 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_11646,5,av);} a=C_alloc(29); t5=C_SCHEME_END_OF_LIST; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_FALSE; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_FALSE; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_FALSE; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11652,a[2]=t10,a[3]=((C_word*)t0)[2],a[4]=t12,a[5]=((C_word*)t0)[3],a[6]=t6,a[7]=t8,tmp=(C_word)a,a+=8,tmp); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11659,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11669,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t8,a[5]=((C_word*)t0)[3],a[6]=t10,a[7]=t12,tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:1669: ##sys#dynamic-wind */ t16=*((C_word*)lf[167]+1);{ C_word *av2=av; av2[0]=t16; av2[1]=t1; av2[2]=t13; av2[3]=t14; av2[4]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} /* a11651 in a11645 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_11652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11652,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[6])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[7])[1]); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a11658 in a11645 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_11659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11659,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:1671: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_11478(t3,t1,t2,((C_word*)t0)[4]);} /* a11668 in a11645 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_11669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11669,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[6])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[5])+1,((C_word*)((C_word*)t0)[7])[1]); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* g2459 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_11678(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_11678,3,t0,t1,t2);} /* optimizer.scm:1675: g2474 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_11478(t3,t1,t2,((C_word*)t0)[3]);} /* for-each-loop2458 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_11690(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11690,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11700,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1675: g2459 */ t5=((C_word*)t0)[3]; f_11678(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11698 in for-each-loop2458 in k11486 in k11483 in k11480 in walk in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_11700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11700,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11690(t3,((C_word*)t0)[4],t2);} /* k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_11723,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11726,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1680: walk */ t3=((C_word*)((C_word*)t0)[6])[1]; f_11478(t3,t2,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_11726,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11727,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_i_check_list_2(t3,lf[23]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12365,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12374,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_12374(t9,t5,t3);} /* g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_11727(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11727,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11735,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1687: chicken.base#gensym */ t8=*((C_word*)lf[95]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[175]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11735,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11738,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1688: chicken.base#gensym */ t4=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[89]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_11738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_11738,2,av);} a=C_alloc(26); t2=t1; t3=C_fix(1); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11742,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t10=C_i_check_list_2(((C_word*)t0)[2],lf[8]); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11837,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t4,a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12327,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_12327(t15,t11,((C_word*)t0)[2]);} /* g2499 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_fcall f_11742(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11742,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11831,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1694: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11750 in k11825 in k11829 in g2499 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_11752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_11752,2,av);} a=C_alloc(20); t2=C_i_caddr(t1); t3=t2; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_check_list_2(t3,lf[8]); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11764,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11791,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_11791(t13,t9,t3);} /* k11762 in k11750 in k11825 in k11829 in g2499 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_11764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_11764,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11769,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1699: ##sys#decompose-lambda-list */ t3=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[7]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a11768 in k11762 in k11750 in k11825 in k11829 in g2499 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_11769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11769,5,av);} a=C_alloc(7); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11789,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1702: chicken.compiler.support#node-subexpressions */ t6=*((C_word*)lf[42]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k11776 in k11787 in a11768 in k11762 in k11750 in k11825 in k11829 in g2499 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_11778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_11778,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list4(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11783 in k11787 in a11768 in k11762 in k11750 in k11825 in k11829 in g2499 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_11785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11785,2,av);} /* optimizer.scm:1705: chicken.compiler.support#copy-node! */ t2=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k11787 in a11768 in k11762 in k11750 in k11825 in k11829 in g2499 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_ccall f_11789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,c,4)))){ C_save_and_reclaim((void *)f_11789,2,av);} a=C_alloc(40); t2=C_i_car(t1); t3=t2; t4=((C_word*)((C_word*)t0)[2])[1]; t5=((C_word*)((C_word*)t0)[2])[1]; t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t5,C_fix(1))); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11778,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[5],a[6]=t3,tmp=(C_word)a,a+=7,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11785,a[2]=t7,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1706: chicken.compiler.support#make-node */ t9=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=lf[34]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* map-loop2518 in k11750 in k11825 in k11829 in g2499 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_fcall f_11791(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11791,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11816,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1698: g2524 */ t5=*((C_word*)lf[95]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11814 in map-loop2518 in k11750 in k11825 in k11829 in g2499 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_11816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11816,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11791(t6,((C_word*)t0)[5],t5);} /* k11825 in k11829 in g2499 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_11827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11827,2,av);} a=C_alloc(7); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11752,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1696: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11829 in g2499 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_11831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11831,2,av);} a=C_alloc(6); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11827,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1695: chicken.compiler.support#node-subexpressions */ t5=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_11837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_11837,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11840,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:1710: chicken.base#gensym */ t4=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[174]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_11840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_11840,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[5],lf[8]); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12291,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12293,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_12293(t12,t8,((C_word*)t0)[5]);} /* k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_11843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_11843,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11846,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12262,a[2]=((C_word*)t0)[7],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12268,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:1713: list-tabulate */ f_4241(t4,t2,t5);} /* k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_11846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_11846,2,av);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11849,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=lf[14]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12224,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12226,a[2]=t6,a[3]=t11,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_12226(t13,t9,((C_word*)t0)[6]);} /* k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_11849(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_11849,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11852,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11983,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp)); t6=((C_word*)t4)[1]; f_11983(t6,t2,((C_word*)t0)[10]);} /* k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_11852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_11852,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11853,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11960,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_11960(t6,((C_word*)t0)[5],((C_word*)t0)[6]);} /* g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_fcall f_11853(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_11853,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11857,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_i_car(t2); /* optimizer.scm:1778: chicken.compiler.support#db-get */ t5=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; av2[4]=lf[135]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_11857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_11857,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11858,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_check_list_2(t1,lf[23]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11930,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_11930(t7,((C_word*)t0)[5],t1);} /* g2644 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_fcall f_11858(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_11858,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11922,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1782: chicken.compiler.support#node-subexpressions */ t6=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k11870 in k11920 in g2644 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in ... */ static void C_ccall f_11872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11872,2,av);} /* optimizer.scm:1783: chicken.compiler.support#copy-node! */ t2=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k11874 in k11920 in g2644 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in ... */ static void C_ccall f_11876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_11876,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11880,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11884,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1786: chicken.compiler.support#varnode */ t5=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11878 in k11874 in k11920 in g2644 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_11880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11880,2,av);} /* optimizer.scm:1784: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11882 in k11874 in k11920 in g2644 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_11884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,c,3)))){ C_save_and_reclaim((void *)f_11884,2,av);} a=C_alloc(40); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11888,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11892,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_i_length(((C_word*)t0)[3]); t6=C_s_a_i_minus(&a,2,((C_word*)t0)[5],t5); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11910,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:1789: list-tabulate */ f_4241(t4,t6,t7);} /* k11886 in k11882 in k11874 in k11920 in g2644 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in ... */ static void C_ccall f_11888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11888,2,av);} a=C_alloc(3); /* optimizer.scm:1786: cons* */ f_3663(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* k11890 in k11882 in k11874 in k11920 in g2644 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in ... */ static void C_ccall f_11892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11892,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11900,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_i_cadr(t4); /* optimizer.scm:1792: chicken.compiler.support#qnode */ t6=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k11898 in k11890 in k11882 in k11874 in k11920 in g2644 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in ... */ static void C_ccall f_11900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_11900,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1787: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a11909 in k11882 in k11874 in k11920 in g2644 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in ... */ static void C_ccall f_11910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11910,2,av);} /* optimizer.scm:1791: chicken.compiler.support#qnode */ t2=*((C_word*)lf[58]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11920 in g2644 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_11922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_11922,2,av);} a=C_alloc(11); t2=C_i_cdr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11872,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11876,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1785: chicken.compiler.support#node-parameters */ t6=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* for-each-loop2643 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_fcall f_11930(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11930,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11940,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1779: g2644 */ t5=((C_word*)t0)[3]; f_11858(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11938 in for-each-loop2643 in k11855 in g2592 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_11940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11940,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11930(t3,((C_word*)t0)[4],t2);} /* for-each-loop2591 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_fcall f_11960(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11960,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11970,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1776: g2592 */ t5=((C_word*)t0)[3]; f_11853(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11968 in for-each-loop2591 in k11850 in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_11970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11970,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_11960(t3,((C_word*)t0)[4],t2);} /* descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_fcall f_11983(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_11983,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12217,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:1723: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_fcall f_11993(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,4)))){ C_save_and_reclaim_args((void *)trf_11993,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ /* optimizer.scm:1727: descend */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11983(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12003,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_list1(&a,1,((C_word*)t0)[6]); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12015,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:1734: chicken.compiler.support#make-node */ t6=*((C_word*)lf[33]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=lf[34]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k12001 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_ccall f_12003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12003,2,av);} /* optimizer.scm:1729: chicken.compiler.support#copy-node! */ t2=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_ccall f_12015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_12015,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12019,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12192,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:1736: chicken.base#gensym */ t5=*((C_word*)lf[95]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k12017 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_12019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12019,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1730: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12029 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in ... */ static void C_ccall f_12031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_12031,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12035,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12039,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12043,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1769: chicken.compiler.support#varnode */ t6=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k12033 in k12029 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_12035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12035,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1735: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12037 in k12029 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_12039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12039,2,av);} /* optimizer.scm:1767: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[30]; av2[3]=lf[168]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k12041 in k12029 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_12043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_12043,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12047,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12051,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12061,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:1771: list-tabulate */ f_4241(t4,((C_word*)t0)[3],t5);} /* k12045 in k12041 in k12029 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in ... */ static void C_ccall f_12047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_12047,2,av);} a=C_alloc(3); /* optimizer.scm:1769: cons* */ f_3663(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* k12049 in k12041 in k12029 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in ... */ static void C_ccall f_12051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12051,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12059,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1772: chicken.compiler.support#qnode */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12057 in k12049 in k12041 in k12029 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in ... */ static void C_ccall f_12059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_12059,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1770: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a12060 in k12041 in k12029 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in ... */ static void C_ccall f_12061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12061,2,av);} /* optimizer.scm:1771: chicken.compiler.support#qnode */ t2=*((C_word*)lf[58]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12075 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in ... */ static void C_ccall f_12077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_12077,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1738: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[31]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12087 in k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_12089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_12089,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1741: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[29]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12095 in k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_12097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12097,2,av);} /* optimizer.scm:1746: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[40]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k12103 in k12180 in k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in ... */ static void C_ccall f_12105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12105,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12113,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1763: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12111 in k12103 in k12180 in k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in ... */ static void C_ccall f_12113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12113,2,av);} t2=C_i_cdr(t1); /* optimizer.scm:1749: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a12114 in k12180 in k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in ... */ static void C_ccall f_12115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12115,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12123,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=t2; t5=C_i_cadr(t4); /* optimizer.scm:1753: chicken.compiler.support#qnode */ t6=*((C_word*)lf[58]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k12121 in a12114 in k12180 in k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in ... */ static void C_ccall f_12123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_12123,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12127,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_i_caddr(t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12133,a[2]=((C_word*)t0)[3],a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_12133(t9,t3,((C_word*)t0)[4],t5);} /* k12125 in k12121 in a12114 in k12180 in k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in ... */ static void C_ccall f_12127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_12127,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k12121 in a12114 in k12180 in k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in ... */ static void C_fcall f_12133(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_12133,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(C_i_nullp(t3))){ t4=t1; t5=((C_word*)t0)[2]; t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_cadddr(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=C_i_car(t3); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12158,a[2]=t1,a[3]=t6,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t8=C_i_car(t2); /* optimizer.scm:1760: chicken.compiler.support#varnode */ t9=*((C_word*)lf[64]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k12156 in loop in k12121 in a12114 in k12180 in k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in ... */ static void C_ccall f_12158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12158,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12162,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); t6=((C_word*)t0)[5]; t7=C_u_i_cdr(t6); /* optimizer.scm:1761: loop */ t8=((C_word*)((C_word*)t0)[6])[1]; f_12133(t8,t3,t5,t7);} /* k12160 in k12156 in loop in k12121 in a12114 in k12180 in k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in ... */ static void C_ccall f_12162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12162,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1758: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12180 in k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in ... */ static void C_ccall f_12182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_12182,2,av);} a=C_alloc(11); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12105,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12115,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1751: append-map */ f_3429(t4,t5,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k12186 in k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in ... */ static void C_ccall f_12188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(58,c,2)))){ C_save_and_reclaim((void *)f_12188,2,av);} a=C_alloc(58); t2=C_a_i_list4(&a,4,t1,C_SCHEME_TRUE,((C_word*)t0)[2],C_fix(0)); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12089,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)((C_word*)t0)[4])[1]; t6=C_s_a_i_minus(&a,2,t5,C_fix(1)); t7=C_a_i_list1(&a,1,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12097,a[2]=t4,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12182,a[2]=t9,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1750: chicken.compiler.support#varnode */ t11=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k12190 in k12013 in k11991 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_12192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_12192,2,av);} a=C_alloc(24); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12031,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t5=C_a_i_list1(&a,1,((C_word*)t0)[4]); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12077,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12188,a[2]=((C_word*)t0)[5],a[3]=t7,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:1743: chicken.base#gensym */ t9=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=lf[169]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k12203 in k12207 in k12211 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_12205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12205,2,av);} t2=((C_word*)t0)[2]; f_11993(t2,C_eqp(lf[34],t1));} /* k12207 in k12211 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_ccall f_12209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12209,2,av);} a=C_alloc(3); t2=C_i_car(t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1726: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12211 in k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_12213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12213,2,av);} a=C_alloc(3); t2=C_eqp(lf[26],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12209,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1725: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_11993(t3,C_SCHEME_FALSE);}} /* k12215 in descend in k11847 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_ccall f_12217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_12217,2,av);} a=C_alloc(16); t2=C_i_cadr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11993,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12213,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1724: chicken.compiler.support#node-class */ t6=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k12222 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_12224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12224,2,av);} /* optimizer.scm:1716: chicken.compiler.support#debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[170]; av2[3]=lf[171]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop2601 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_fcall f_12226(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_12226,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12251,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1716: g2607 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12249 in map-loop2601 in k11844 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_12251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12251,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12226(t6,((C_word*)t0)[5],t5);} /* k12260 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_12262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_12262,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* optimizer.scm:1712: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a12267 in k11841 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_12268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12268,2,av);} /* optimizer.scm:1713: chicken.base#gensym */ t2=*((C_word*)lf[95]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=t1; av2[2]=lf[172]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k12289 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_12291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12291,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[173]+1); av2[3]=t1; C_apply(4,av2);}} /* map-loop2560 in k11838 in k11835 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_fcall f_12293(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_12293,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_caddr(t3); t5=C_i_length(t4); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); t9=C_slot(t2,C_fix(1)); t11=t1; t12=t9; t1=t11; t2=t12; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop2493 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_fcall f_12327(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_12327,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12352,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1691: g2499 */ t5=((C_word*)t0)[4]; f_11742(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12350 in map-loop2493 in k11736 in k11733 in g2383 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_12352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12352,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12327(t6,((C_word*)t0)[5],t5);} /* k12363 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12365,2,av);} t2=C_i_pairp(((C_word*)((C_word*)t0)[2])[1]); /* optimizer.scm:1798: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; C_values(4,av2);}} /* for-each-loop2382 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_12374(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_12374,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12384,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1683: g2383 */ t5=((C_word*)t0)[3]; f_11727(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k12382 in for-each-loop2382 in k11724 in k11721 in chicken.compiler.optimizer#determine-loop-and-dispatch in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12384,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12374(t3,((C_word*)t0)[4],t2);} /* a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12413,10,av);} a=C_alloc(9); t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12533,a[2]=t5,a[3]=t7,a[4]=t6,a[5]=t1,a[6]=t8,a[7]=t9,a[8]=t4,tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:813: membership-test-operators */ t11=*((C_word*)lf[18]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* k12433 in k12527 in k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_12435,2,av);} a=C_alloc(24); t2=t1; t3=C_i_cdr(((C_word*)t0)[2]); t4=C_a_i_list1(&a,1,t3); t5=t4; t6=C_a_i_list1(&a,1,t2); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12453,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t7,tmp=(C_word)a,a+=5,tmp); t9=((C_word*)t0)[5]; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12461,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t8,a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12463,a[2]=t5,a[3]=t2,a[4]=t12,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_12463(t14,t10,t9);} /* k12451 in k12433 in k12527 in k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12453,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:818: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12459 in k12433 in k12527 in k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_12461,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,t1,((C_word*)t0)[2],((C_word*)t0)[3]); /* optimizer.scm:822: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[25]; av2[3]=((C_word*)t0)[5]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* foldr1499 in k12433 in k12527 in k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_12463(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_12463,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12471,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12510,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ /* optimizer.scm:833: chicken.compiler.support#qnode */ t3=*((C_word*)lf[58]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* g1504 in foldr1499 in k12433 in k12527 in k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_12471(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_12471,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12483,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12495,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:830: chicken.compiler.support#varnode */ t6=*((C_word*)lf[64]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k12481 in g1504 in foldr1499 in k12433 in k12527 in k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12483,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12487,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:831: chicken.compiler.support#qnode */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12485 in k12481 in g1504 in foldr1499 in k12433 in k12527 in k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_12487,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],t1,((C_word*)t0)[3]); /* optimizer.scm:827: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[39]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12493 in g1504 in foldr1499 in k12433 in k12527 in k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12495,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12499,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:830: chicken.compiler.support#qnode */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12497 in k12493 in g1504 in foldr1499 in k12433 in k12527 in k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12499,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:830: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[186]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12508 in foldr1499 in k12433 in k12527 in k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12510,2,av);} /* optimizer.scm:825: g1504 */ t2=((C_word*)t0)[2]; f_12471(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k12527 in k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12529,2,av);} a=C_alloc(9); if(C_truep(C_i_lessp(((C_word*)t0)[2],t1))){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12435,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:816: chicken.base#gensym */ t3=*((C_word*)lf[95]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12531 in a12412 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_12533,2,av);} a=C_alloc(10); t2=C_i_assoc(((C_word*)t0)[2],t1); t3=t2; if(C_truep(t3)){ if(C_truep(C_i_listp(((C_word*)t0)[3]))){ t4=C_i_length(((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12529,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:815: membership-unfold-limit */ t7=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a12558 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10=av[10]; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_12559,11,av);} a=C_alloc(7); if(C_truep(t3)){ t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12574,a[2]=t1,a[3]=t5,a[4]=t7,a[5]=t8,a[6]=t9,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:801: chicken.compiler.support#varnode */ t12=*((C_word*)lf[64]+1);{ C_word *av2=av; av2[0]=t12; av2[1]=t11; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t11=t1;{ C_word *av2=av; av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} /* k12572 in a12558 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_12574,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12578,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_a_i_list3(&a,3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]); /* optimizer.scm:802: chicken.compiler.support#make-node */ t5=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[39]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k12576 in k12572 in a12558 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12578,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:799: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a12631 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_12632,10,av);} a=C_alloc(10); t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12677,a[2]=t5,a[3]=t8,a[4]=t9,a[5]=t1,a[6]=t7,a[7]=t6,a[8]=t2,a[9]=t4,tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:777: eq-inline-operator */ t11=*((C_word*)lf[17]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* k12654 in k12667 in k12675 in a12631 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_12656,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,t1,((C_word*)t0)[2],((C_word*)t0)[3]); /* optimizer.scm:779: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[25]; av2[3]=((C_word*)t0)[5]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k12667 in k12675 in a12631 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_12669,2,av);} a=C_alloc(9); t2=C_i_length(t1); t3=C_eqp(C_fix(1),t2); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12656,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t5=C_a_i_list1(&a,1,((C_word*)t0)[6]); /* optimizer.scm:781: chicken.compiler.support#make-node */ t6=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=lf[186]; av2[3]=t5; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k12675 in a12631 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12677,2,av);} a=C_alloc(8); t2=C_i_equalp(((C_word*)t0)[2],t1); if(C_truep(C_i_not(t2))){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12669,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:778: chicken.compiler.support#db-get-list */ t4=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[9]; av2[4]=lf[109]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_12715,6,av);} a=C_alloc(9); t6=C_a_i_list1(&a,1,t4); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12725,a[2]=t8,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_12725(t10,t1,t6,t5);} /* loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_12725(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_12725,4,t0,t1,t2,t3);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12729,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:712: chicken.compiler.support#node-class */ t5=*((C_word*)lf[41]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_12729,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12732,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:713: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_12732,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12735,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:714: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12735,2,av);} a=C_alloc(8); t2=t1; t3=C_eqp(((C_word*)t0)[2],lf[26]); if(C_truep(t3)){ t4=C_i_cdr(((C_word*)t0)[3]); if(C_truep(C_i_nullp(t4))){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13002,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t6=C_i_car(((C_word*)t0)[3]); /* optimizer.scm:717: chicken.compiler.support#db-get */ t7=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=t6; av2[4]=lf[116]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t5=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_12765,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12768,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:721: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_12768,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12771,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:722: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_12771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_12771,2,av);} a=C_alloc(7); t2=C_eqp(t1,lf[34]); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[2]); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); t5=C_i_cadr(((C_word*)t0)[4]); /* optimizer.scm:723: loop1 */ t6=((C_word*)((C_word*)t0)[5])[1]; f_12725(t6,((C_word*)t0)[6],t4,t5);} else{ t3=C_eqp(t1,lf[31]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12801,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:725: scheme#reverse */ t5=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_12801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_12801,2,av);} a=C_alloc(10); t2=t1; if(C_truep(C_i_pairp(t2))){ t3=C_i_car(((C_word*)t0)[2]); t4=C_i_car(t2); t5=C_eqp(t3,t4); if(C_truep(t5)){ t6=C_i_car(((C_word*)t0)[3]); t7=C_a_i_list1(&a,1,t6); t8=C_u_i_cdr(t2); t9=C_i_cadr(((C_word*)t0)[4]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12828,a[2]=t11,a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_12828(t13,((C_word*)t0)[6],t7,t8,t9);} else{ t6=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t3=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_fcall f_12828(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_12828,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12832,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=t4,a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:731: chicken.compiler.support#node-class */ t6=*((C_word*)lf[41]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_12832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_12832,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:732: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_12835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_12835,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12838,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:733: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_12838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_12838,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12844,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=C_eqp(((C_word*)t0)[8],lf[26]); if(C_truep(t4)){ t5=C_i_cdr(((C_word*)t0)[9]); if(C_truep(C_i_nullp(t5))){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12966,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],tmp=(C_word)a,a+=7,tmp); t7=C_i_car(((C_word*)t0)[9]); /* optimizer.scm:736: chicken.compiler.support#db-get */ t8=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[10]; av2[3]=t7; av2[4]=lf[116]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t6=t3; f_12844(t6,C_SCHEME_FALSE);}} else{ t5=t3; f_12844(t5,C_SCHEME_FALSE);}} /* k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_fcall f_12844(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_12844,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_car(((C_word*)t0)[4]); /* optimizer.scm:741: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_i_nullp(((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12882,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12892,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:745: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[6]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* k12865 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_12867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_12867,2,av);} a=C_alloc(3); t2=C_i_car(t1); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]); t4=C_i_cdr(((C_word*)t0)[3]); t5=C_i_cadr(((C_word*)t0)[4]); /* optimizer.scm:741: loop2 */ t6=((C_word*)((C_word*)t0)[5])[1]; f_12828(t6,((C_word*)t0)[6],t3,t4,t5);} /* a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_12882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12882,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12890,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:746: scheme#reverse */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_ccall f_12890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_12890,2,av);} a=C_alloc(21); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=t1; t5=((C_word*)t0)[4]; t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=C_i_check_list_2(t3,lf[8]); t13=C_i_check_list_2(t4,lf[8]); t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7267,a[2]=t7,a[3]=t3,a[4]=t2,a[5]=t5,a[6]=t4,tmp=(C_word)a,a+=7,tmp); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7742,a[2]=t10,a[3]=t16,a[4]=t11,tmp=(C_word)a,a+=5,tmp)); t18=((C_word*)t16)[1]; f_7742(t18,t14,t3,t4);} /* a12891 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_12892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12892,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?t2:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12940 in k12948 in k12956 in k12964 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_12942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12942,2,av);} t2=C_i_car(t1); t3=((C_word*)t0)[2]; f_12844(t3,C_eqp(((C_word*)t0)[3],t2));} /* k12948 in k12956 in k12964 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in ... */ static void C_ccall f_12950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12950,2,av);} a=C_alloc(4); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12942,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_car(((C_word*)t0)[4]); /* optimizer.scm:740: chicken.compiler.support#node-parameters */ t7=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t3=((C_word*)t0)[3]; f_12844(t3,C_SCHEME_FALSE);}} /* k12956 in k12964 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_12958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12958,2,av);} a=C_alloc(5); if(C_truep(C_i_not(t1))){ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12950,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)t0)[4]); /* optimizer.scm:739: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[3]; f_12844(t2,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[3]; f_12844(t2,C_SCHEME_FALSE);}} /* k12964 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_ccall f_12966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12966,2,av);} a=C_alloc(5); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12958,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)t0)[5]); /* optimizer.scm:737: chicken.compiler.support#db-get */ t4=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=t3; av2[4]=lf[109]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=((C_word*)t0)[3]; f_12844(t2,C_SCHEME_FALSE);}} /* k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_12994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12994,2,av);} a=C_alloc(9); if(C_truep(C_i_not(t1))){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12765,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:720: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_13002,2,av);} a=C_alloc(8); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12994,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_i_car(((C_word*)t0)[3]); /* optimizer.scm:718: chicken.compiler.support#db-get */ t4=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=t3; av2[4]=lf[109]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a13027 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10=av[10]; C_word t11=av[11]; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_13028,12,av);} a=C_alloc(11); t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13081,a[2]=t5,a[3]=t10,a[4]=t1,a[5]=t9,a[6]=t11,a[7]=t7,a[8]=t6,a[9]=t2,a[10]=t4,tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:686: eq-inline-operator */ t13=*((C_word*)lf[17]+1);{ C_word *av2=av; av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} /* k13039 in k13079 in a13027 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_13041,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13077,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:688: chicken.compiler.support#db-get-list */ t3=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[9]; av2[4]=lf[109]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k13056 in k13075 in k13039 in k13079 in a13027 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13058,2,av);} /* optimizer.scm:689: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[40]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k13060 in k13075 in k13039 in k13079 in a13027 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_13062,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13066,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:693: chicken.compiler.support#qnode */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13064 in k13060 in k13075 in k13039 in k13079 in a13027 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_13066,2,av);} a=C_alloc(9); /* optimizer.scm:692: cons* */ f_3663(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,3,t1,((C_word*)t0)[4],((C_word*)t0)[5]));} /* k13075 in k13039 in k13079 in a13027 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,2)))){ C_save_and_reclaim((void *)f_13077,2,av);} a=C_alloc(42); t2=C_i_length(t1); t3=C_eqp(C_fix(1),t2); if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=C_s_a_i_plus(&a,2,t4,C_fix(1)); t6=C_a_i_list1(&a,1,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13058,a[2]=((C_word*)t0)[3],a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13062,a[2]=t8,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:692: chicken.compiler.support#varnode */ t10=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13079 in a13027 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_13081,2,av);} a=C_alloc(10); if(C_truep(C_i_equalp(((C_word*)t0)[2],t1))){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13041,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:687: chicken.compiler.support#immediate? */ t3=*((C_word*)lf[196]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a13154 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10=av[10]; C_word t11=av[11]; C_word t12=av[12]; C_word t13=av[13]; C_word t14=av[14]; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_13155,15,av);} a=C_alloc(13); t15=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_13227,a[2]=t7,a[3]=t10,a[4]=t11,a[5]=t14,a[6]=t1,a[7]=t9,a[8]=t8,a[9]=t4,a[10]=t2,a[11]=t6,a[12]=t5,tmp=(C_word)a,a+=13,tmp); /* optimizer.scm:659: eq-inline-operator */ t16=*((C_word*)lf[17]+1);{ C_word *av2=av; av2[0]=t16; av2[1]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} /* k13166 in k13225 in a13154 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_13168,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:661: chicken.compiler.support#immediate? */ t3=*((C_word*)lf[196]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k13172 in k13166 in k13225 in a13154 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_13174,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13223,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:662: chicken.compiler.support#db-get-list */ t3=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[11]; av2[4]=lf[109]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k13195 in k13212 in k13221 in k13172 in k13166 in k13225 in a13154 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_13197,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13201,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:668: chicken.compiler.support#qnode */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13199 in k13195 in k13212 in k13221 in k13172 in k13166 in k13225 in a13154 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_13201,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13205,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:670: chicken.compiler.support#qnode */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13203 in k13199 in k13195 in k13212 in k13221 in k13172 in k13166 in k13225 in a13154 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_13205,2,av);} a=C_alloc(18); t2=C_a_i_list6(&a,6,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]); /* optimizer.scm:664: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[7]; av2[2]=lf[40]; av2[3]=lf[195]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k13212 in k13221 in k13172 in k13166 in k13225 in a13154 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_13214,2,av);} a=C_alloc(8); t2=C_i_length(t1); t3=C_eqp(C_fix(1),t2); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13197,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:667: chicken.compiler.support#varnode */ t5=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13221 in k13172 in k13166 in k13225 in a13154 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_13223,2,av);} a=C_alloc(9); t2=C_i_length(t1); t3=C_eqp(C_fix(1),t2); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13214,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:663: chicken.compiler.support#db-get-list */ t5=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[10]; av2[4]=lf[109]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k13225 in a13154 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_13227,2,av);} a=C_alloc(12); if(C_truep(C_i_equalp(((C_word*)t0)[2],t1))){ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13168,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:660: chicken.compiler.support#immediate? */ t3=*((C_word*)lf[196]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_13325,8,av);} a=C_alloc(9); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13333,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=t7,a[6]=t5,a[7]=t6,a[8]=t1,tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:627: chicken.internal#hash-table-ref */ t9=*((C_word*)lf[56]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=lf[137]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_13333,2,av);} a=C_alloc(11); t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13338,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp)); t6=((C_word*)t4)[1]; f_13338(t6,((C_word*)t0)[8],t2);} /* loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_13338(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,0,3)))){ C_save_and_reclaim_args((void *)trf_13338,3,t0,t1,t2);} a=C_alloc(24); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13348,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=C_i_caar(t2); t5=t2; t6=C_u_i_car(t5); t7=C_u_i_cdr(t6); t8=t3; t9=((C_word*)t0)[4]; t10=((C_word*)t0)[5]; t11=((C_word*)t0)[6]; t12=((C_word*)t0)[2]; t13=((C_word*)t0)[7]; t14=t7; t15=((C_word*)t0)[8]; t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7817,a[2]=t17,a[3]=t15,tmp=(C_word)a,a+=4,tmp)); switch(t4){ case C_fix(1): t19=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7907,a[2]=t8,a[3]=t10,a[4]=t13,a[5]=t14,a[6]=t15,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:954: chicken.compiler.support#intrinsic? */ t20=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);} case C_fix(2): if(C_truep(t10)){ t19=C_i_length(t15); t20=C_i_car(t14); if(C_truep(C_i_nequalp(t19,t20))){ t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8026,a[2]=t14,a[3]=t15,a[4]=t13,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:972: chicken.compiler.support#intrinsic? */ t22=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t22; av2[1]=t21; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} else{ t21=t8;{ C_word av2[2]; av2[0]=t21; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(3): if(C_truep(t10)){ t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8084,a[2]=t14,a[3]=t15,a[4]=t13,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:985: chicken.compiler.support#intrinsic? */ t20=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(4): if(C_truep(t10)){ if(C_truep(*((C_word*)lf[208]+1))){ t19=C_i_length(t15); t20=C_eqp(C_fix(2),t19); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8198,a[2]=t14,a[3]=t15,a[4]=t13,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:998: chicken.compiler.support#intrinsic? */ t22=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t22; av2[1]=t21; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} else{ t21=t8;{ C_word av2[2]; av2[0]=t21; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(5): if(C_truep(t10)){ t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8257,a[2]=t15,a[3]=t14,a[4]=t13,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1010: chicken.compiler.support#intrinsic? */ t20=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(6): t19=C_i_caddr(t14); t20=(C_truep(t19)?t19:*((C_word*)lf[208]+1)); if(C_truep(t20)){ if(C_truep(t10)){ t21=C_i_length(t15); t22=C_eqp(C_fix(1),t21); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8352,a[2]=t13,a[3]=t8,a[4]=t14,a[5]=t15,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1025: chicken.compiler.support#intrinsic? */ t24=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t24; av2[1]=t23; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} else{ t23=t8;{ C_word av2[2]; av2[0]=t23; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}} else{ t21=t8;{ C_word av2[2]; av2[0]=t21; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}} else{ t21=t8;{ C_word av2[2]; av2[0]=t21; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}} case C_fix(7): t19=C_i_cadddr(t14); t20=(C_truep(t19)?t19:*((C_word*)lf[208]+1)); if(C_truep(t20)){ if(C_truep(t10)){ t21=C_i_length(t15); t22=C_i_car(t14); if(C_truep(C_i_nequalp(t21,t22))){ t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8426,a[2]=t13,a[3]=t8,a[4]=t14,a[5]=t15,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1037: chicken.compiler.support#intrinsic? */ t24=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t24; av2[1]=t23; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} else{ t23=t8;{ C_word av2[2]; av2[0]=t23; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}} else{ t21=t8;{ C_word av2[2]; av2[0]=t21; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}} else{ t21=t8;{ C_word av2[2]; av2[0]=t21; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}} case C_fix(8): if(C_truep(t10)){ t19=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8488,a[2]=t14,a[3]=t8,a[4]=t9,a[5]=t13,a[6]=t15,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1047: chicken.compiler.support#intrinsic? */ t20=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(9): if(C_truep(t10)){ t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8509,a[2]=t15,a[3]=t13,a[4]=t8,a[5]=t14,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1054: chicken.compiler.support#intrinsic? */ t20=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(10): if(C_truep(t10)){ t19=C_i_cadddr(t14); t20=(C_truep(t19)?t19:*((C_word*)lf[208]+1)); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8764,a[2]=t15,a[3]=t14,a[4]=t13,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1085: chicken.compiler.support#intrinsic? */ t22=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t22; av2[1]=t21; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} else{ t21=t8;{ C_word av2[2]; av2[0]=t21; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(11): if(C_truep(t10)){ t19=C_i_caddr(t14); t20=(C_truep(t19)?t19:*((C_word*)lf[208]+1)); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8853,a[2]=t14,a[3]=t8,a[4]=t13,a[5]=t15,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1102: chicken.compiler.support#intrinsic? */ t22=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t22; av2[1]=t21; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} else{ t21=t8;{ C_word av2[2]; av2[0]=t21; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(12): if(C_truep(t10)){ t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8914,a[2]=t14,a[3]=t15,a[4]=t13,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1115: chicken.compiler.support#intrinsic? */ t20=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(13): if(C_truep(t10)){ t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8993,a[2]=t14,a[3]=t8,a[4]=t13,a[5]=t15,a[6]=t11,a[7]=t17,tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:1129: chicken.compiler.support#intrinsic? */ t20=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(14): if(C_truep(t10)){ t19=C_i_cadr(t14); t20=C_i_length(t15); if(C_truep(C_i_nequalp(t19,t20))){ t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9063,a[2]=t14,a[3]=t13,a[4]=t8,a[5]=t15,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1141: chicken.compiler.support#intrinsic? */ t22=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t22; av2[1]=t21; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} else{ t21=t8;{ C_word av2[2]; av2[0]=t21; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(15): if(C_truep(t10)){ t19=C_i_length(t15); t20=C_eqp(C_fix(1),t19); if(C_truep(t20)){ t21=*((C_word*)lf[208]+1); t22=(C_truep(*((C_word*)lf[208]+1))?*((C_word*)lf[208]+1):C_i_cadddr(t14)); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9146,a[2]=t14,a[3]=t8,a[4]=t13,a[5]=t15,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1158: chicken.compiler.support#intrinsic? */ t24=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t24; av2[1]=t23; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} else{ t23=t8;{ C_word av2[2]; av2[0]=t23; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}} else{ t21=t8;{ C_word av2[2]; av2[0]=t21; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(16): t19=C_i_car(t14); t20=t19; t21=C_i_length(t15); t22=t21; t23=C_i_caddr(t14); t24=t23; t25=C_i_cadddr(t14); t26=t25; t27=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9229,a[2]=t10,a[3]=t20,a[4]=t22,a[5]=t24,a[6]=t13,a[7]=t8,a[8]=t26,a[9]=t15,a[10]=t14,a[11]=t12,tmp=(C_word)a,a+=12,tmp); t28=C_i_cddddr(t14); if(C_truep(C_i_pairp(t28))){ t29=C_i_cddddr(t14); t30=t27; f_9229(t30,C_i_car(t29));} else{ t29=t27; f_9229(t29,C_SCHEME_FALSE);} case C_fix(17): if(C_truep(t10)){ t19=C_i_length(t15); t20=C_i_car(t14); if(C_truep(C_i_nequalp(t19,t20))){ t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9359,a[2]=t13,a[3]=t8,a[4]=t14,a[5]=t15,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1203: chicken.compiler.support#intrinsic? */ t22=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t22; av2[1]=t21; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} else{ t21=t8;{ C_word av2[2]; av2[0]=t21; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(18): if(C_truep(t10)){ if(C_truep(C_i_nullp(t15))){ t19=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9427,a[2]=t13,a[3]=t8,a[4]=t14,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1217: chicken.compiler.support#intrinsic? */ t20=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(19): if(C_truep(t10)){ t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9461,a[2]=t15,a[3]=t12,a[4]=t8,a[5]=t13,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1223: chicken.compiler.support#intrinsic? */ t20=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(20): t19=C_i_length(t15); t20=t19; t21=C_i_cadddr(t14); t22=(C_truep(t21)?t21:*((C_word*)lf[208]+1)); if(C_truep(t22)){ if(C_truep(t10)){ t23=C_i_car(t14); if(C_truep(C_i_nequalp(t20,t23))){ t24=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9613,a[2]=t13,a[3]=t8,a[4]=t14,a[5]=t20,a[6]=t15,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1255: chicken.compiler.support#intrinsic? */ t25=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t25; av2[1]=t24; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t25+1)))(3,av2);}} else{ t24=t8;{ C_word av2[2]; av2[0]=t24; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}}} else{ t23=t8;{ C_word av2[2]; av2[0]=t23; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}} else{ t23=t8;{ C_word av2[2]; av2[0]=t23; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} case C_fix(21): if(C_truep(t10)){ t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9685,a[2]=t14,a[3]=t13,a[4]=t8,a[5]=t15,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1273: chicken.compiler.support#intrinsic? */ t20=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} case C_fix(22): t19=C_i_car(t14); t20=C_i_length(t15); t21=C_i_cadddr(t14); t22=t21; if(C_truep(t10)){ if(C_truep(C_i_nequalp(t20,t19))){ t23=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9856,a[2]=t14,a[3]=t13,a[4]=t8,a[5]=t15,a[6]=t22,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1307: chicken.compiler.support#intrinsic? */ t24=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t24; av2[1]=t23; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} else{ t23=t8;{ C_word av2[2]; av2[0]=t23; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}} else{ t23=t8;{ C_word av2[2]; av2[0]=t23; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} case C_fix(23): if(C_truep(t10)){ t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9920,a[2]=t14,a[3]=t15,a[4]=t8,a[5]=t13,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1328: chicken.compiler.support#intrinsic? */ t20=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} else{ t19=t8;{ C_word av2[2]; av2[0]=t19; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} default: /* optimizer.scm:1348: chicken.compiler.support#bomb */ t19=*((C_word*)lf[154]+1);{ C_word av2[3]; av2[0]=t19; av2[1]=t8; av2[2]=lf[219]; ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}}} /* k13346 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_13348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,2)))){ C_save_and_reclaim((void *)f_13348,2,av);} a=C_alloc(38); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13352,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:628: g1352 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* optimizer.scm:628: g1352 */ f_13352(C_a_i(&a,35),t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=C_u_i_cdr(t2); /* optimizer.scm:637: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_13338(t4,((C_word*)t0)[3],t3);}} /* g1352 in k13346 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static C_word C_fcall f_13352(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check;{} t2=C_i_assq(((C_word*)t0)[2],lf[51]); if(C_truep(t2)){ t3=C_i_cdr(t2); t4=C_s_a_i_plus(&a,2,t3,C_fix(1)); t5=C_i_set_cdr(t2,t4); return(t1);} else{ t3=((C_word*)t0)[2]; t4=lf[51]; t5=C_a_i_cons(&a,2,t3,C_fix(1)); t6=C_a_i_cons(&a,2,t5,lf[51]); t7=C_mutate(&lf[51] /* (set! chicken.compiler.optimizer#simplified-ops ...) */,t6); return(t1);}} /* k3211 */ static void C_ccall f_3213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3213,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3216,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k3214 in k3211 */ static void C_ccall f_3216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3216,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3219,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k3217 in k3214 in k3211 */ static void C_ccall f_3219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3219,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3222,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3222,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3225,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3225,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3228,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_support_toplevel(2,av2);}} /* k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,5)))){ C_save_and_reclaim((void *)f_3228,2,av);} a=C_alloc(39); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate(&lf[2] /* (set! chicken.compiler.optimizer#take ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3338,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[3] /* (set! chicken.compiler.optimizer#split-at ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3390,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[5] /* (set! chicken.compiler.optimizer#append-map ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3429,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[11] /* (set! chicken.compiler.optimizer#every ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3599,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate(&lf[9] /* (set! chicken.compiler.optimizer#any ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3633,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate(&lf[12] /* (set! chicken.compiler.optimizer#cons* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3663,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate(&lf[13] /* (set! chicken.compiler.optimizer#delete ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3719,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate(&lf[14] /* (set! chicken.compiler.optimizer#first ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3760,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate(&lf[15] /* (set! chicken.compiler.optimizer#filter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3839,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate(&lf[16] /* (set! chicken.compiler.optimizer#list-tabulate ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4241,tmp=(C_word)a,a+=2,tmp)); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4510,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:52: chicken.base#make-parameter */ t15=*((C_word*)lf[220]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t15; av2[1]=t14; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} /* loop in a5511 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3236(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3236,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_nullp(t4))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3250,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:43: scheme#reverse */ t6=*((C_word*)lf[4]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3260,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp); t6=C_i_car(t4); /* mini-srfi-1.scm:44: pred */ t7=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k3248 in loop in a5511 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3250,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3254,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:43: scheme#reverse */ t4=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3252 in k3248 in loop in a5511 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_3254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3254,2,av);} /* mini-srfi-1.scm:43: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_values(4,av2);}} /* k3258 in loop in a5511 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3260,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:44: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_3236(t7,((C_word*)t0)[5],t4,((C_word*)t0)[6],t6);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[6]); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:45: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_3236(t7,((C_word*)t0)[5],((C_word*)t0)[3],t4,t6);}} /* chicken.compiler.optimizer#take in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3338(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_3338,3,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3356,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); t9=C_fixnum_difference(t3,C_fix(1)); /* mini-srfi-1.scm:56: take */ t11=t6; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}} /* k3354 in chicken.compiler.optimizer#take in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3356,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.optimizer#split-at in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3390(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){ C_save_and_reclaim_args((void *)trf_3390,3,t1,t2,t3);} a=C_alloc(5); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3396,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_3396(t7,t1,t3,C_SCHEME_END_OF_LIST,t2);} /* loop in chicken.compiler.optimizer#split-at in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3396(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_3396,5,t0,t1,t2,t3,t4);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3410,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:67: scheme#reverse */ t6=*((C_word*)lf[4]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_fixnum_difference(t2,C_fix(1)); t6=C_i_car(t4); t7=C_a_i_cons(&a,2,t6,t3); t8=t4; t9=C_u_i_cdr(t8); /* mini-srfi-1.scm:68: loop */ t11=t1; t12=t5; t13=t7; t14=t9; t1=t11; t2=t12; t3=t13; t4=t14; goto loop;}} /* k3408 in loop in chicken.compiler.optimizer#split-at in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3410,2,av);} /* mini-srfi-1.scm:67: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}} /* chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3429(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_3429,4,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_i_nullp(t4))){ t5=t3; t6=C_i_check_list_2(t5,lf[6]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3444,a[2]=t2,a[3]=t8,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_3444(t10,t1,t5);} else{ t5=C_a_i_cons(&a,2,t3,t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3484,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_3484(t9,t1,t5);}} /* foldr107 in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3444(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_3444,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3452,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3471,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g112 in foldr107 in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3452(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3452,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3460,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:72: proc */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3458 in g112 in foldr107 in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3460,2,av);} /* mini-srfi-1.scm:72: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3469 in foldr107 in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3471,2,av);} /* mini-srfi-1.scm:72: g112 */ t2=((C_word*)t0)[2]; f_3452(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3484(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3484,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3491,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* mini-srfi-1.scm:74: any */ f_3633(t3,*((C_word*)lf[10]+1),t2);} /* k3489 in loop in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_3491,2,av);} a=C_alloc(21); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[3]; t8=C_i_check_list_2(t7,lf[8]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3563,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3565,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_3565(t13,t9,t7);}} /* k3496 in k3489 in loop in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_3498,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3502,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[3]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3514,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3516,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_3516(t13,t9,t8);} /* k3500 in k3496 in k3489 in loop in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3502,2,av);} /* mini-srfi-1.scm:76: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3512 in k3496 in k3489 in loop in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3514,2,av);} /* mini-srfi-1.scm:77: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3484(t2,((C_word*)t0)[3],t1);} /* map-loop149 in k3496 in k3489 in loop in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3516(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_3516,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3561 in k3489 in loop in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3563,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* map-loop122 in k3489 in loop in chicken.compiler.optimizer#append-map in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3565(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_3565,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.compiler.optimizer#every in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3599(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3599,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3605,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_3605(t7,t1,t3);} /* loop in chicken.compiler.optimizer#every in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3605(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3605,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3627,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); /* mini-srfi-1.scm:82: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k3625 in loop in chicken.compiler.optimizer#every in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3627,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:83: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3605(t4,((C_word*)t0)[2],t3);}} /* chicken.compiler.optimizer#any in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3633(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3633,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3639,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_3639(t7,t1,t3);} /* loop in chicken.compiler.optimizer#any in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3639(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3639,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3649,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:88: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k3647 in loop in chicken.compiler.optimizer#any in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3649,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:89: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3639(t4,((C_word*)t0)[2],t3);}} /* chicken.compiler.optimizer#cons* in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3663(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_3663,3,t1,t2,t3);} a=C_alloc(5); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3669,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_3669(t7,t1,t2,t3);} /* loop in chicken.compiler.optimizer#cons* in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3669(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_3669,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3683,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t3); t6=t3; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:95: loop */ t9=t4; t10=t5; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* k3681 in loop in chicken.compiler.optimizer#cons* in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3683,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.optimizer#delete in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3719(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3719,4,t1,t2,t3,t4);} a=C_alloc(7); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3725,a[2]=t6,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_3725(t8,t1,t3);} /* loop in chicken.compiler.optimizer#delete in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3725(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3725,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3738,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:106: test */ t5=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3736 in loop in chicken.compiler.optimizer#delete in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3738,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:107: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3725(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3752,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:109: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_3725(t7,t4,t6);}} /* k3750 in k3736 in loop in chicken.compiler.optimizer#delete in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3752,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.optimizer#first in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3760,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k4822 in k4819 in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3800(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_3800,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3814,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3827,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:123: delete */ f_3719(t8,t4,t6,((C_word*)t0)[3]);}} /* k3812 in loop in k4822 in k4819 in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3814,2,av);} a=C_alloc(3); t2=C_i_equalp(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?((C_word*)t0)[4]:C_a_i_cons(&a,2,((C_word*)t0)[5],t1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3825 in loop in k4822 in k4819 in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3827,2,av);} /* mini-srfi-1.scm:123: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3800(t2,((C_word*)t0)[3],t1);} /* chicken.compiler.optimizer#filter in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3839(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3839,3,t1,t2,t3);} a=C_alloc(6); t4=C_i_check_list_2(t3,lf[6]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3848,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_3848(t8,t1,t3);} /* foldr254 in chicken.compiler.optimizer#filter in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3848(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_3848,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3856,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3877,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g259 in foldr254 in chicken.compiler.optimizer#filter in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3856(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3856,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3863,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:131: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3861 in g259 in foldr254 in chicken.compiler.optimizer#filter in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3863,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3875 in foldr254 in chicken.compiler.optimizer#filter in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_3877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3877,2,av);} /* mini-srfi-1.scm:131: g259 */ t2=((C_word*)t0)[2]; f_3856(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* foldr272 in k7390 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in ... */ static void C_fcall f_3892(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_3892,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3900,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3926,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g277 in foldr272 in k7390 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in ... */ static void C_fcall f_3900(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3900,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3904,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:135: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3902 in g277 in foldr272 in k7390 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in ... */ static void C_ccall f_3904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3904,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3908,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:135: g287 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* mini-srfi-1.scm:135: g287 */ f_3908(C_a_i(&a,3),t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g287 in k3902 in g277 in foldr272 in k7390 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in ... */ static C_word C_fcall f_3908(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));} /* k3924 in foldr272 in k7390 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in ... */ static void C_ccall f_3926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3926,2,av);} /* mini-srfi-1.scm:134: g277 */ t2=((C_word*)t0)[2]; f_3900(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* map-loop300 in a11409 in a11399 in transform in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_3965(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_3965,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in k4697 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static C_word C_fcall f_4005(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} t2=C_i_cdr(t1); if(C_truep(C_i_nullp(t2))){ t3=t1; t4=C_u_i_car(t3); return(t4);} else{ t3=t1; t4=C_u_i_cdr(t3); t6=t4; t1=t6; goto loop;}} /* loop in k5162 in a5150 in k5095 in k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4064(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_4064,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); if(C_truep(C_i_memq(t4,t3))){ t5=t2; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:160: loop */ t11=t1; t12=t6; t13=t3; t1=t11; t2=t12; t3=t13; goto loop;} else{ t5=t2; t6=C_u_i_cdr(t5); t7=t2; t8=C_u_i_car(t7); t9=C_a_i_cons(&a,2,t8,t3); /* mini-srfi-1.scm:161: loop */ t11=t1; t12=t6; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}}} /* chicken.compiler.optimizer#list-tabulate in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4241(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_4241,3,t1,t2,t3);} a=C_alloc(7); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4247,a[2]=t2,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_4247(t7,t1,C_fix(0));} /* loop in chicken.compiler.optimizer#list-tabulate in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4247(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4247,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4261,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:190: proc */ t4=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k4259 in loop in chicken.compiler.optimizer#list-tabulate in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4261,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4265,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* mini-srfi-1.scm:190: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_4247(t5,t3,t4);} /* k4263 in k4259 in loop in chicken.compiler.optimizer#list-tabulate in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4265,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4276 in a7401 in k7390 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in ... */ static void C_ccall f_4277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4277,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_memq(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4294 in k10731 in k10724 in scan in chicken.compiler.optimizer#transform-direct-lambdas! in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4295,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_memq(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4510,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[17]+1 /* (set! chicken.compiler.optimizer#eq-inline-operator ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4514,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:53: chicken.base#make-parameter */ t4=*((C_word*)lf[220]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4514,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.optimizer#membership-test-operators ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4518,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:54: chicken.base#make-parameter */ t4=*((C_word*)lf[220]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4518,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.optimizer#membership-unfold-limit ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4522,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:55: chicken.base#make-parameter */ t4=*((C_word*)lf[220]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4522,2,av);} a=C_alloc(5); t2=C_mutate((C_word*)lf[20]+1 /* (set! chicken.compiler.optimizer#default-optimization-passes ...) */,t1); t3=C_mutate((C_word*)lf[21]+1 /* (set! chicken.compiler.optimizer#scan-toplevel-assignments ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4524,tmp=(C_word)a,a+=2,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4875,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:150: scheme#make-vector */ t5=*((C_word*)lf[177]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_fix(301); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(49,c,5)))){ C_save_and_reclaim((void *)f_4524,3,av);} a=C_alloc(49); t3=C_SCHEME_END_OF_LIST; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_END_OF_LIST; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_FALSE; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_END_OF_LIST; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_SCHEME_UNDEFINED; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4527,a[2]=t4,a[3]=t8,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t22=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4550,a[2]=t10,tmp=(C_word)a,a+=3,tmp)); t23=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4557,a[2]=t8,a[3]=t10,tmp=(C_word)a,a+=4,tmp)); t24=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4562,a[2]=t10,a[3]=t20,tmp=(C_word)a,a+=4,tmp)); t25=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4603,a[2]=t10,a[3]=t6,a[4]=t16,a[5]=t18,a[6]=t20,a[7]=t14,a[8]=t12,tmp=(C_word)a,a+=9,tmp)); t26=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4821,a[2]=t4,a[3]=t1,a[4]=t20,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:127: chicken.compiler.support#debugging */ t27=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t27; av2[1]=t26; av2[2]=lf[48]; av2[3]=lf[49]; ((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}} /* mark in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4527(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4527,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4534,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_not(((C_word*)((C_word*)t0)[3])[1]))){ t4=C_i_memq(t2,((C_word*)((C_word*)t0)[4])[1]); t5=t3; f_4534(t5,C_i_not(t4));} else{ t4=t3; f_4534(t4,C_SCHEME_FALSE);}} /* k4532 in mark in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4534(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,1)))){ C_save_and_reclaim_args((void *)trf_4534,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* remember in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4550(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_4550,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4555,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:71: chicken.base#alist-update! */ t5=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; av2[4]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k4553 in remember in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4555,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* touch in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static C_word C_fcall f_4557(C_word t0){ C_word tmp; C_word t1; C_word t2; C_word t3; C_stack_overflow_check;{} t1=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t2=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_END_OF_LIST); return(t2);} /* scan-each in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4562(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_4562,5,t0,t1,t2,t3,t4);} a=C_alloc(12); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4564,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t6=C_i_check_list_2(t2,lf[23]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4580,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_4580(t10,t1,t2);} /* g578 in scan-each in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4564(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_4564,3,t0,t1,t2);} if(C_truep(((C_word*)t0)[2])){ t3=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_END_OF_LIST); /* optimizer.scm:80: scan */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4603(t4,t1,t2,((C_word*)t0)[5]);} else{ /* optimizer.scm:80: scan */ t3=((C_word*)((C_word*)t0)[4])[1]; f_4603(t3,t1,t2,((C_word*)t0)[5]);}} /* for-each-loop577 in scan-each in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4580(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4580,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4590,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:78: g578 */ t5=((C_word*)t0)[3]; f_4564(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4588 in for-each-loop577 in scan-each in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4590,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4580(t3,((C_word*)t0)[4],t2);} /* scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4603(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_4603,4,t0,t1,t2,t3);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4607,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=t2,a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:84: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[43]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_4607,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4610,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* optimizer.scm:85: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_4610,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4613,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* optimizer.scm:86: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_4613,2,av);} a=C_alloc(15); t2=t1; t3=C_eqp(t2,lf[24]); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4625,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4646,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=C_i_memq(t5,((C_word*)t0)[6]); if(C_truep(C_i_not(t8))){ t9=C_i_memq(t5,((C_word*)((C_word*)t0)[5])[1]); t10=t7; f_4646(t10,C_i_not(t9));} else{ t9=t7; f_4646(t9,C_SCHEME_FALSE);}} else{ t4=C_eqp(t2,lf[25]); t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4673,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[10],a[8]=t2,a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[5],a[14]=((C_word*)t0)[3],tmp=(C_word)a,a+=15,tmp); if(C_truep(t4)){ t6=t5; f_4673(t6,t4);} else{ t6=C_eqp(t2,lf[39]); t7=t5; f_4673(t7,(C_truep(t6)?t6:C_eqp(t2,lf[40])));}}} /* k4623 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4625(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_4625,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4629,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4631,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:93: filter */ f_3839(t2,t3,((C_word*)((C_word*)t0)[2])[1]);} /* k4627 in k4623 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4629,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4630 in k4623 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4631,3,av);} t3=C_i_car(t2); t4=C_eqp(t3,((C_word*)t0)[2]); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_not(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4644 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4646(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,1)))){ C_save_and_reclaim_args((void *)trf_4646,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4]; f_4625(t4,t3);} else{ t2=((C_word*)t0)[4]; f_4625(t2,C_SCHEME_UNDEFINED);}} /* k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4673(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_4673,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4676,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_car(((C_word*)t0)[3]); /* optimizer.scm:96: scan */ t4=((C_word*)((C_word*)t0)[7])[1]; f_4603(t4,t2,t3,((C_word*)t0)[6]);} else{ t2=C_eqp(((C_word*)t0)[8],lf[26]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4699,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4714,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:101: chicken.base#butlast */ t5=*((C_word*)lf[27]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_eqp(((C_word*)t0)[8],lf[28]); t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[8],lf[29])); if(C_truep(t4)){ t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[8],lf[30]); if(C_truep(t5)){ /* optimizer.scm:106: touch */ t6=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t6; av2[1]=( /* optimizer.scm:106: touch */ f_4557(((C_word*)((C_word*)t0)[2])[1]) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(((C_word*)t0)[8],lf[31]); if(C_truep(t6)){ t7=C_i_car(((C_word*)t0)[9]); t8=t7; t9=C_i_car(((C_word*)t0)[3]); t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4747,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[5],a[4]=t8,a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:111: scan */ t11=((C_word*)((C_word*)t0)[7])[1]; f_4603(t11,t10,t9,((C_word*)t0)[6]);} else{ /* optimizer.scm:125: scan-each */ t7=((C_word*)((C_word*)t0)[4])[1]; f_4562(t7,((C_word*)t0)[5],((C_word*)t0)[3],((C_word*)t0)[6],C_SCHEME_FALSE);}}}}}} /* k4674 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4676,2,av);} t2=( /* optimizer.scm:97: touch */ f_4557(((C_word*)((C_word*)t0)[2])[1]) ); t3=C_i_cdr(((C_word*)t0)[3]); /* optimizer.scm:98: scan-each */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4562(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_SCHEME_TRUE);} /* k4697 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4699,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4005,tmp=(C_word)a,a+=2,tmp); t3=( f_4005(((C_word*)t0)[2]) ); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4710,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:102: scheme#append */ t6=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k4708 in k4697 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4710,2,av);} /* optimizer.scm:102: scan */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4603(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k4712 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4714,2,av);} /* optimizer.scm:101: scan-each */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4562(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_SCHEME_FALSE);} /* k4745 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4747,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4750,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:112: chicken.base#alist-ref */ t3=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)((C_word*)t0)[9])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4748 in k4745 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_4750,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4753,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4768,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t5=C_i_memq(((C_word*)t0)[4],((C_word*)((C_word*)t0)[8])[1]); t6=t4; f_4768(t6,C_i_not(t5));} else{ t5=t4; f_4768(t5,C_SCHEME_FALSE);}} /* k4751 in k4748 in k4745 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4753,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4756,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_memq(((C_word*)t0)[4],((C_word*)t0)[6]))){ /* optimizer.scm:123: remember */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4550(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ /* optimizer.scm:122: mark */ t3=((C_word*)((C_word*)t0)[7])[1]; f_4527(t3,t2,((C_word*)t0)[4]);}} /* k4754 in k4751 in k4748 in k4745 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4756,2,av);} /* optimizer.scm:123: remember */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4550(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k4766 in k4748 in k4745 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4768(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_4768,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4771,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:118: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[37]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_4753(2,av2);}}} /* k4769 in k4766 in k4748 in k4745 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4771,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4778,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:120: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[34]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4776 in k4769 in k4766 in k4748 in k4745 in k4671 in k4611 in k4608 in k4605 in scan in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4778,2,av);} /* optimizer.scm:119: chicken.compiler.support#copy-node! */ t2=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4819 in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4821,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4824,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:128: scan */ t3=((C_word*)((C_word*)t0)[4])[1]; f_4603(t3,t2,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k4822 in k4819 in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_4824,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4827,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[2])[1]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4871,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=((C_word*)((C_word*)t0)[2])[1]; t5=*((C_word*)lf[47]+1); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3800,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_3800(t9,t3,t4);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4827(2,av2);}}} /* k4825 in k4822 in k4819 in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4827,2,av);} a=C_alloc(5); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_check_list_2(t2,lf[23]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4840,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_4840(t7,((C_word*)t0)[3],t2);} /* for-each-loop559 in k4825 in k4822 in k4819 in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4840(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4840,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4850,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[44]+1); /* optimizer.scm:131: g636 */ t6=*((C_word*)lf[44]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[45]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4848 in for-each-loop559 in k4825 in k4822 in k4819 in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4850,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4840(t3,((C_word*)t0)[4],t2);} /* k4869 in k4822 in k4819 in chicken.compiler.optimizer#scan-toplevel-assignments in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4871,2,av);} /* optimizer.scm:130: chicken.compiler.support#debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[36]; av2[3]=lf[46]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(52,c,8)))){ C_save_and_reclaim((void *)f_4875,2,av);} a=C_alloc(52); t2=C_mutate(&lf[50] /* (set! chicken.compiler.optimizer#simplifications ...) */,t1); t3=lf[51] /* chicken.compiler.optimizer#simplified-ops */ =C_SCHEME_END_OF_LIST;; t4=lf[52] /* chicken.compiler.optimizer#broken-constant-nodes */ =C_SCHEME_END_OF_LIST;; t5=C_mutate((C_word*)lf[53]+1 /* (set! chicken.compiler.optimizer#perform-high-level-optimizations ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4879,tmp=(C_word)a,a+=2,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7246,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=C_a_i_list(&a,1,lf[172]); t8=C_a_i_list(&a,2,lf[24],t7); t9=C_a_i_cons(&a,2,lf[206],lf[207]); t10=C_a_i_cons(&a,2,t8,t9); t11=C_a_i_cons(&a,2,lf[200],t10); t12=C_a_i_cons(&a,2,lf[30],t11); t13=C_a_i_list(&a,4,lf[172],lf[206],lf[207],lf[200]); t14=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13325,tmp=(C_word)a,a+=2,tmp); t15=C_a_i_list(&a,3,t12,t13,t14); t16=C_a_i_list(&a,1,t15); /* optimizer.scm:618: chicken.internal#hash-table-set! */ t17=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t17; av2[1]=t6; av2[2]=lf[50]; av2[3]=lf[30]; av2[4]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} /* chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(107,c,9)))){ C_save_and_reclaim((void *)f_4879,8,av);} a=C_alloc(107); t8=C_fix(0); t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_fix(0); t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_fix(0); t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_END_OF_LIST; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_END_OF_LIST; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_FALSE; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_SCHEME_UNDEFINED; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_SCHEME_UNDEFINED; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_SCHEME_UNDEFINED; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=C_SCHEME_UNDEFINED; t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp); t32=C_SCHEME_UNDEFINED; t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp); t34=C_SCHEME_UNDEFINED; t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp); t36=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4882,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t37=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4908,a[2]=t19,tmp=(C_word)a,a+=3,tmp)); t38=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4912,tmp=(C_word)a,a+=2,tmp)); t39=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4949,a[2]=t17,a[3]=t23,a[4]=t27,a[5]=t3,a[6]=t7,tmp=(C_word)a,a+=7,tmp)); t40=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5077,a[2]=t19,a[3]=t27,a[4]=t11,a[5]=t23,a[6]=t29,a[7]=t33,tmp=(C_word)a,a+=8,tmp)); t41=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5204,a[2]=t3,a[3]=t31,a[4]=t21,tmp=(C_word)a,a+=5,tmp)); t42=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_5224,a[2]=t23,a[3]=t21,a[4]=t13,a[5]=t31,a[6]=t9,a[7]=t29,a[8]=t35,a[9]=t3,a[10]=t25,a[11]=t15,a[12]=t5,a[13]=t6,a[14]=t4,tmp=(C_word)a,a+=15,tmp)); t43=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6792,a[2]=t25,a[3]=t29,tmp=(C_word)a,a+=4,tmp)); t44=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6852,a[2]=t1,a[3]=t2,a[4]=t19,a[5]=t11,a[6]=t9,a[7]=t13,a[8]=t17,a[9]=t29,tmp=(C_word)a,a+=10,tmp); t45=t44; t46=t3; t47=C_SCHEME_FALSE; t48=(*a=C_VECTOR_TYPE|1,a[1]=t47,tmp=(C_word)a,a+=2,tmp); t49=C_fix(0); t50=(*a=C_VECTOR_TYPE|1,a[1]=t49,tmp=(C_word)a,a+=2,tmp); t51=C_SCHEME_UNDEFINED; t52=(*a=C_VECTOR_TYPE|1,a[1]=t51,tmp=(C_word)a,a+=2,tmp); t53=C_SCHEME_UNDEFINED; t54=(*a=C_VECTOR_TYPE|1,a[1]=t53,tmp=(C_word)a,a+=2,tmp); t55=C_set_block_item(t52,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6975,a[2]=t48,tmp=(C_word)a,a+=3,tmp)); t56=C_set_block_item(t54,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6979,a[2]=t46,tmp=(C_word)a,a+=3,tmp)); t57=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6986,a[2]=t45,a[3]=t48,a[4]=t50,a[5]=t52,a[6]=t46,a[7]=t54,tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:570: chicken.compiler.support#debugging */ t58=*((C_word*)lf[35]+1);{ C_word *av2=av; av2[0]=t58; av2[1]=t57; av2[2]=lf[48]; av2[3]=lf[136]; ((C_proc)(void*)(*((C_word*)t58+1)))(4,av2);}} /* test in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4882(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_4882,4,t0,t1,t2,t3);} /* optimizer.scm:163: chicken.compiler.support#db-get */ t4=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4894 in k5095 in k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4896,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[57],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4904 in k5107 in k5095 in k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4906,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* touch in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static C_word C_fcall f_4908(C_word t0){ C_word tmp; C_word t1; C_word t2; C_stack_overflow_check;{} t1=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); return(t1);} /* invalidate-gae! in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4912(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,0,2)))){ C_save_and_reclaim_args((void *)trf_4912,2,t1,t2);} a=C_alloc(2); t3=C_i_check_list_2(t2,lf[23]); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4926,tmp=(C_word)a,a+=2,tmp); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=( f_4926(t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* for-each-loop684 in invalidate-gae! in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static C_word C_fcall f_4926(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=C_i_set_cdr(t2,C_SCHEME_FALSE); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_4949(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_4949,3,t0,t1,t2);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4953,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5075,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:173: chicken.compiler.support#node-class */ t5=*((C_word*)lf[41]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4951 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_4953,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4956,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t1)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4964,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:174: any */ f_3633(t2,t3,t1);} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4954 in k4951 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4956,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a4963 in k4951 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_4964,3,av);} a=C_alloc(10); t3=t2; t4=C_i_cadr(t3); t5=t4; if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4974,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=t5,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); t7=t2; t8=C_i_car(t7); /* optimizer.scm:176: chicken.compiler.support#match-node */ t9=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t6; av2[2]=((C_word*)t0)[7]; av2[3]=t8; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k4972 in a4963 in k4951 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_4974,2,av);} a=C_alloc(29); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4980,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[2]; t5=C_i_caddr(t4); t6=t5; t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5019,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t12=C_i_check_list_2(((C_word*)t0)[7],lf[8]); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5033,a[2]=t3,a[3]=t6,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5035,a[2]=t11,a[3]=t9,a[4]=t15,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_5035(t17,t13,((C_word*)t0)[7]);} else{ t3=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4978 in k4972 in a4963 in k4951 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_4980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_4980,2,av);} a=C_alloc(29); if(C_truep(t1)){ t2=C_i_caar(((C_word*)t0)[2]); t3=C_i_assq(t2,((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t3)){ t4=C_i_cdr(t3); t5=C_s_a_i_plus(&a,2,t4,C_fix(1)); t6=C_i_set_cdr(t3,t5); t7=( /* optimizer.scm:184: touch */ f_4908(((C_word*)((C_word*)t0)[4])[1]) ); /* optimizer.scm:185: simplify */ t8=((C_word*)((C_word*)t0)[5])[1]; f_4949(t8,((C_word*)t0)[6],t1);} else{ t4=((C_word*)((C_word*)t0)[3])[1]; t5=C_a_i_cons(&a,2,t2,C_fix(1)); t6=C_a_i_cons(&a,2,t5,t4); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t6); t8=( /* optimizer.scm:184: touch */ f_4908(((C_word*)((C_word*)t0)[4])[1]) ); /* optimizer.scm:185: simplify */ t9=((C_word*)((C_word*)t0)[5])[1]; f_4949(t9,((C_word*)t0)[6],t1);}} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g724 in k4972 in a4963 in k4951 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static C_word C_fcall f_5019(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_i_assq(t1,((C_word*)t0)[2]); return(C_i_cdr(t2));} /* k5031 in k4972 in a4963 in k4951 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5033,2,av);}{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t1; C_apply(6,av2);}} /* map-loop718 in k4972 in a4963 in k4951 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5035(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_5035,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* optimizer.scm:178: g724 */ f_5019(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5073 in simplify in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5075,2,av);} /* optimizer.scm:172: chicken.internal#hash-table-ref */ t2=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[50]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5077(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_5077,5,t0,t1,t2,t3,t4);} a=C_alloc(11); if(C_truep(C_i_memq(t2,lf[52]))){ t5=t2; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=((C_word*)((C_word*)t0)[2])[1]; t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5091,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,a[8]=t4,a[9]=t5,a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:194: walk1 */ t7=((C_word*)((C_word*)t0)[7])[1]; f_5224(t7,t6,t2,t3,t4);}} /* k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_5091,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5094,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:195: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_5094,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5097,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* optimizer.scm:196: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5095 in k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,5)))){ C_save_and_reclaim((void *)f_5097,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5100,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_eqp(t1,lf[25]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5109,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t2,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t5=C_i_car(((C_word*)t0)[6]); t6=t4; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4896,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:164: chicken.compiler.support#node-class */ t8=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t4=C_eqp(t1,lf[30]); if(C_truep(t4)){ t5=C_i_car(((C_word*)t0)[6]); t6=C_i_cddr(((C_word*)t0)[6]); t7=C_a_i_cons(&a,2,t5,t6); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5151,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:209: chicken.compiler.support#maybe-constant-fold-call */ t9=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t2; av2[2]=((C_word*)t0)[10]; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ /* optimizer.scm:192: simplify */ t5=((C_word*)((C_word*)t0)[2])[1]; f_4949(t5,((C_word*)t0)[3],((C_word*)t0)[10]);}}} /* k5098 in k5095 in k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5100,2,av);} /* optimizer.scm:192: simplify */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4949(t2,((C_word*)t0)[3],t1);} /* k5107 in k5095 in k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,2)))){ C_save_and_reclaim((void *)f_5109,2,av);} a=C_alloc(39); if(C_truep(t1)){ t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1))); t4=( /* optimizer.scm:201: touch */ f_4908(((C_word*)((C_word*)t0)[3])[1]) ); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5124,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); t6=C_u_i_car(((C_word*)t0)[4]); t7=t5; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4906,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:165: chicken.compiler.support#node-parameters */ t9=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ /* optimizer.scm:192: simplify */ t2=((C_word*)((C_word*)t0)[9])[1]; f_4949(t2,((C_word*)t0)[10],((C_word*)t0)[11]);}} /* k5122 in k5107 in k5095 in k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5124,2,av);} t2=(C_truep(t1)?C_i_cadr(((C_word*)t0)[2]):C_i_caddr(((C_word*)t0)[2])); /* optimizer.scm:202: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_5077(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6]);} /* a5150 in k5095 in k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5151,5,av);} a=C_alloc(4); if(C_truep(C_i_not(t2))){ if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5164,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ t6=t5; f_5164(t6,C_SCHEME_UNDEFINED);} else{ t6=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_FALSE); t7=t5; f_5164(t7,t6);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=( /* optimizer.scm:220: touch */ f_4908(((C_word*)((C_word*)t0)[5])[1]) ); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5175,a[2]=((C_word*)t0)[6],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:222: chicken.compiler.support#qnode */ t7=*((C_word*)lf[58]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k5162 in a5150 in k5095 in k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5164(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_5164,2,t0,t1);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5168,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=lf[52]; t4=C_a_i_list(&a,1,((C_word*)t0)[3]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4064,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_4064(t8,t2,t4,lf[52]);} /* k5166 in k5162 in a5150 in k5095 in k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5168,2,av);} t2=C_mutate(&lf[52] /* (set! chicken.compiler.optimizer#broken-constant-nodes ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5173 in a5150 in k5095 in k5092 in k5089 in walk in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5175,2,av);} a=C_alloc(9); t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=C_i_cadr(((C_word*)t0)[2]); t4=C_a_i_list2(&a,2,t3,t1); /* optimizer.scm:223: chicken.compiler.support#make-node */ t5=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=t2; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* replace-var in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5204(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_5204,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5208,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:230: test */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4882(t4,t3,t2,lf[61]);} /* k5206 in replace-var in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5208,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5212,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:230: g785 */ t3=t2; f_5212(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g785 in k5206 in replace-var in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5212(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_5212,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5216,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:232: replace-var */ t4=((C_word*)((C_word*)t0)[4])[1]; f_5204(t4,t3,t2);} /* k5214 in g785 in k5206 in replace-var in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_5216,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5219,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:234: chicken.compiler.support#db-put! */ t4=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[61]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k5217 in k5214 in g785 in k5206 in replace-var in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5219,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5224(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,2)))){ C_save_and_reclaim_args((void *)trf_5224,5,t0,t1,t2,t3,t4);} a=C_alloc(19); t5=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5228,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=t3,a[11]=((C_word*)t0)[8],a[12]=t2,a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[11],a[16]=((C_word*)t0)[12],a[17]=((C_word*)t0)[13],a[18]=((C_word*)t0)[14],tmp=(C_word)a,a+=19,tmp); /* optimizer.scm:239: chicken.compiler.support#node-subexpressions */ t6=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_5228,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_5231,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); /* optimizer.scm:240: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_5231,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_5234,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp); /* optimizer.scm:241: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,8)))){ C_save_and_reclaim((void *)f_5234,2,av);} a=C_alloc(19); t2=t1; t3=C_eqp(t2,lf[24]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5243,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t5=C_i_car(((C_word*)t0)[5]); /* optimizer.scm:245: replace-var */ t6=((C_word*)((C_word*)t0)[8])[1]; f_5204(t6,t4,t5);} else{ t4=C_eqp(t2,lf[26]); if(C_truep(t4)){ t5=C_i_car(((C_word*)t0)[5]); t6=t5; t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5356,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[5],a[10]=t6,a[11]=((C_word*)t0)[4],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:266: test */ t8=((C_word*)((C_word*)t0)[4])[1]; f_4882(t8,t7,t6,lf[73]);} else{ t5=C_eqp(t2,lf[29]); if(C_truep(t5)){ t6=C_i_caddr(((C_word*)t0)[5]); t7=t6; t8=C_i_car(((C_word*)t0)[5]); t9=t8; t10=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5501,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[10],a[6]=t9,a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[3],a[10]=t7,a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=t2,tmp=(C_word)a,a+=14,tmp); /* optimizer.scm:284: test */ t11=((C_word*)((C_word*)t0)[4])[1]; f_4882(t11,t10,t9,lf[81]);} else{ t6=C_eqp(t2,lf[82]); if(C_truep(t6)){ /* optimizer.scm:317: walk-generic */ t7=((C_word*)((C_word*)t0)[13])[1]; f_6792(t7,((C_word*)t0)[3],((C_word*)t0)[14],t2,((C_word*)t0)[5],((C_word*)t0)[10],((C_word*)t0)[12],C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} else{ t7=C_eqp(t2,lf[30]); if(C_truep(t7)){ t8=C_i_car(((C_word*)t0)[10]); t9=t8; t10=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5674,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[15],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[14],a[11]=t2,a[12]=((C_word*)t0)[5],a[13]=t9,a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[4],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],tmp=(C_word)a,a+=19,tmp); /* optimizer.scm:321: chicken.compiler.support#node-class */ t11=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t8=C_eqp(t2,lf[31]); if(C_truep(t8)){ t9=C_i_car(((C_word*)t0)[5]); t10=t9; t11=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6601,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t10,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[15],a[12]=((C_word*)t0)[20],tmp=(C_word)a,a+=13,tmp); /* optimizer.scm:488: test */ t12=((C_word*)((C_word*)t0)[4])[1]; f_4882(t12,t11,t10,lf[72]);} else{ /* optimizer.scm:517: walk-generic */ t9=((C_word*)((C_word*)t0)[13])[1]; f_6792(t9,((C_word*)t0)[3],((C_word*)t0)[14],t2,((C_word*)t0)[5],((C_word*)t0)[10],((C_word*)t0)[12],((C_word*)t0)[7],C_SCHEME_FALSE);}}}}}}} /* k5241 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5243,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5249,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:246: test */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4882(t4,t3,t2,lf[69]);} /* k5247 in k5241 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_5249,2,av);} a=C_alloc(29); if(C_truep(t1)){ t2=( /* optimizer.scm:247: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5255,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:248: chicken.compiler.support#debugging */ t4=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[36]; av2[3]=lf[63]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=C_i_car(((C_word*)t0)[6]); t3=C_eqp(((C_word*)t0)[5],t2); if(C_truep(C_i_not(t3))){ t4=( /* optimizer.scm:251: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); t5=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[7])[1],C_fix(1)); t6=C_mutate(((C_word *)((C_word*)t0)[7])+1,t5); /* optimizer.scm:253: chicken.compiler.support#varnode */ t7=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=C_i_assq(((C_word*)t0)[5],((C_word*)t0)[8]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5293,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:246: g813 */ t6=t5; f_5293(t6,((C_word*)t0)[3],t4);} else{ /* optimizer.scm:262: chicken.compiler.support#varnode */ t5=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}} /* k5253 in k5247 in k5241 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5255,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5266,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5270,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:249: test */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4882(t4,t3,((C_word*)t0)[4],lf[62]);} /* k5264 in k5253 in k5247 in k5241 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5266,2,av);} t2=C_i_car(t1); /* optimizer.scm:249: chicken.compiler.support#qnode */ t3=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5268 in k5253 in k5247 in k5241 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5270,2,av);} /* optimizer.scm:249: chicken.compiler.support#node-parameters */ t2=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* g813 in k5247 in k5241 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5293(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_5293,3,t0,t1,t2);} a=C_alloc(8); t3=C_i_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5303,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5323,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:258: chicken.compiler.support#variable-mark */ t7=*((C_word*)lf[67]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t4; av2[3]=lf[68]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t6=t5; f_5303(t6,C_SCHEME_FALSE);}} /* k5301 in g813 in k5247 in k5241 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5303(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_5303,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5306,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:259: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word av2[6]; av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[65]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ /* optimizer.scm:261: chicken.compiler.support#varnode */ t2=*((C_word*)lf[64]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k5304 in k5301 in g813 in k5247 in k5241 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5306,2,av);} /* optimizer.scm:260: chicken.compiler.support#varnode */ t2=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5321 in g813 in k5247 in k5241 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5323,2,av);} t2=C_eqp(lf[66],t1); t3=((C_word*)t0)[2]; f_5303(t3,C_i_not(t2));} /* k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_5356,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5359,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(t1)){ t3=t2; f_5359(t3,t1);} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5476,a[2]=t2,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:267: test */ t4=((C_word*)((C_word*)t0)[11])[1]; f_4882(t4,t3,((C_word*)t0)[10],lf[72]);}} /* k5357 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5359(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,0,4)))){ C_save_and_reclaim_args((void *)trf_5359,2,t0,t1);} a=C_alloc(29); if(C_truep(t1)){ t2=( /* optimizer.scm:269: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_s_a_i_plus(&a,2,t3,C_fix(1))); t5=C_i_cadr(((C_word*)t0)[4]); /* optimizer.scm:271: walk */ t6=((C_word*)((C_word*)t0)[5])[1]; f_5077(t6,((C_word*)t0)[6],t5,((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5374,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5429,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[10],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5466,a[2]=((C_word*)t0)[11],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(((C_word*)t0)[4]); /* optimizer.scm:273: chicken.compiler.support#node-class */ t6=*((C_word*)lf[41]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k5372 in k5357 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5374(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){ C_save_and_reclaim_args((void *)trf_5374,2,t0,t1);} a=C_alloc(22); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5382,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=C_i_check_list_2(((C_word*)t0)[4],lf[8]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5392,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5394,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_5394(t13,t9,((C_word*)t0)[4]);} /* g844 in k5372 in k5357 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5382(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_5382,3,t0,t1,t2);} /* optimizer.scm:279: g861 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_5077(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k5390 in k5372 in k5357 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5392,2,av);} /* optimizer.scm:279: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop838 in k5372 in k5357 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5394(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_5394,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5419,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:279: g844 */ t5=((C_word*)t0)[4]; f_5382(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5417 in map-loop838 in k5372 in k5357 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5419,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5394(t6,((C_word*)t0)[5],t5);} /* k5427 in k5357 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5429,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5440,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)t0)[5]); /* optimizer.scm:276: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[4]; f_5374(t2,((C_word*)t0)[2]);}} /* k5438 in k5427 in k5357 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_5440,2,av);} a=C_alloc(6); t2=C_i_car(t1); t3=((C_word*)t0)[2]; t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t5=((C_word*)t0)[4]; f_5374(t5,C_a_i_cons(&a,2,t4,t3));} /* k5456 in k5464 in k5357 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5458,2,av);} t2=C_i_car(t1); /* optimizer.scm:274: test */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4882(t3,((C_word*)t0)[3],t2,lf[70]);} /* k5464 in k5357 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5466,2,av);} a=C_alloc(4); t2=C_eqp(lf[24],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5458,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_i_car(((C_word*)t0)[4]); /* optimizer.scm:274: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5429(2,av2);}}} /* k5474 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5476,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5483,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:268: test */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4882(t3,t2,((C_word*)t0)[4],lf[71]);} else{ t2=((C_word*)t0)[2]; f_5359(t2,C_SCHEME_FALSE);}} /* k5481 in k5474 in k5354 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5483,2,av);} t2=((C_word*)t0)[2]; f_5359(t2,C_i_not(t1));} /* k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_5501,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5506,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:285: ##sys#decompose-lambda-list */ t3=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[9]; av2[2]=((C_word*)t0)[10]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5593,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp); /* optimizer.scm:301: test */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4882(t3,t2,((C_word*)t0)[6],lf[77]);}} /* a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_5506,5,av);} a=C_alloc(15); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5512,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5524,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t3,a[9]=t4,a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:288: ##sys#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a5511 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_5512,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5518,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=t2; t4=((C_word*)t0)[3]; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3236,a[2]=t6,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_3236(t8,t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,t4);} /* a5517 in a5511 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5518,3,av);} /* optimizer.scm:288: test */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4882(t3,t1,t2,lf[74]);} /* a5523 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_5524,4,av);} a=C_alloc(12); t4=( /* optimizer.scm:289: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5531,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t3,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:290: chicken.compiler.support#debugging */ t6=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[36]; av2[3]=lf[78]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5529 in a5523 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_5531,2,av);} a=C_alloc(16); t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=C_i_cadr(((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5566,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5573,a[2]=((C_word*)t0)[8],a[3]=t6,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[10])){ /* optimizer.scm:294: test */ t8=((C_word*)((C_word*)t0)[11])[1]; f_4882(t8,t7,((C_word*)t0)[5],lf[77]);} else{ t8=t7;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_5573(2,av2);}}} /* k5544 in k5564 in k5529 in a5523 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_5546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_5546,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:291: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[29]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5564 in k5529 in a5523 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_5566,2,av);} a=C_alloc(19); t2=C_i_cadddr(((C_word*)t0)[2]); t3=C_a_i_list4(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],t1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5546,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_car(((C_word*)t0)[6]); t7=C_a_i_cons(&a,2,((C_word*)t0)[7],((C_word*)t0)[8]); /* optimizer.scm:300: walk */ t8=((C_word*)((C_word*)t0)[9])[1]; f_5077(t8,t5,t6,t7,C_SCHEME_END_OF_LIST);} /* k5571 in k5529 in a5523 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5573,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5576,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:295: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[76]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* optimizer.scm:298: chicken.compiler.support#build-lambda-list */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k5574 in k5571 in k5529 in a5523 in a5505 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_5576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_5576,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); /* optimizer.scm:297: chicken.compiler.support#build-lambda-list */ t4=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t3; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5591 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,8)))){ C_save_and_reclaim((void *)f_5593,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5598,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:302: ##sys#decompose-lambda-list */ t3=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[8]; av2[2]=((C_word*)t0)[9]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]); /* optimizer.scm:314: walk-generic */ t3=((C_word*)((C_word*)t0)[10])[1]; f_6792(t3,((C_word*)t0)[8],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[3],((C_word*)t0)[4],t2,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);}} /* a5597 in k5591 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_5598,5,av);} a=C_alloc(10); t5=( /* optimizer.scm:305: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5605,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:306: chicken.compiler.support#debugging */ t7=*((C_word*)lf[35]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=lf[36]; av2[3]=lf[80]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k5603 in a5597 in k5591 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,4)))){ C_save_and_reclaim((void *)f_5605,2,av);} a=C_alloc(39); t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=C_i_cadr(((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5640,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); t7=((C_word*)t0)[8]; t8=C_s_a_i_plus(&a,2,t7,C_fix(1)); /* optimizer.scm:311: chicken.compiler.support#build-lambda-list */ t9=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t6; av2[2]=((C_word*)t0)[9]; av2[3]=t8; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* k5618 in k5638 in k5603 in a5597 in k5591 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_5620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_5620,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:307: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[29]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5638 in k5603 in a5597 in k5591 in k5499 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_5640,2,av);} a=C_alloc(19); t2=C_i_cadddr(((C_word*)t0)[2]); t3=C_a_i_list4(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],t1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5620,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_car(((C_word*)t0)[6]); t7=C_a_i_cons(&a,2,((C_word*)t0)[7],((C_word*)t0)[8]); /* optimizer.scm:313: walk */ t8=((C_word*)((C_word*)t0)[9])[1]; f_5077(t8,t5,t6,t7,C_SCHEME_END_OF_LIST);} /* k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,8)))){ C_save_and_reclaim((void *)f_5674,2,av);} a=C_alloc(30); t2=C_eqp(t1,lf[24]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_6504,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],tmp=(C_word)a,a+=19,tmp); /* optimizer.scm:325: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_eqp(t1,lf[29]); if(C_truep(t3)){ if(C_truep(C_i_car(((C_word*)t0)[12]))){ /* optimizer.scm:479: walk-generic */ t4=((C_word*)((C_word*)t0)[9])[1]; f_6792(t4,((C_word*)t0)[7],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[8],C_SCHEME_FALSE);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6522,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); t5=C_i_cdr(((C_word*)t0)[12]); t6=C_a_i_cons(&a,2,C_SCHEME_TRUE,t5); t7=t6; t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6534,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6541,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6543,a[2]=t10,a[3]=t15,a[4]=t12,a[5]=t11,tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_6543(t17,t13,((C_word*)t0)[2]);}} else{ /* optimizer.scm:484: walk-generic */ t4=((C_word*)((C_word*)t0)[9])[1]; f_6792(t4,((C_word*)t0)[7],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[8],C_SCHEME_TRUE);}}} /* k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_5686,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_5689,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6500,a[2]=t3,a[3]=((C_word*)t0)[16],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:327: test */ t5=((C_word*)((C_word*)t0)[16])[1]; f_4882(t5,t4,((C_word*)t0)[9],lf[110]);} /* k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_5689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_5689,2,av);} a=C_alloc(29); t2=t1; t3=C_u_i_cdr(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5696,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t3,a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[2],a[17]=((C_word*)t0)[15],a[18]=((C_word*)t0)[16],a[19]=((C_word*)t0)[17],a[20]=((C_word*)t0)[18],a[21]=((C_word*)t0)[19],a[22]=((C_word*)t0)[20],tmp=(C_word)a,a+=23,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6459,a[2]=t4,a[3]=((C_word*)t0)[17],a[4]=t2,a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:331: test */ t6=((C_word*)((C_word*)t0)[17])[1]; f_4882(t6,t5,((C_word*)t0)[10],lf[72]);} /* k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_5696(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){ C_save_and_reclaim_args((void *)trf_5696,2,t0,t1);} a=C_alloc(23); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5699,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:336: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[43]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5766,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[15],a[11]=((C_word*)t0)[16],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[2],a[14]=((C_word*)t0)[5],a[15]=((C_word*)t0)[9],a[16]=((C_word*)t0)[11],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); /* optimizer.scm:347: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[67]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[11]; av2[3]=lf[111]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k5697 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_5699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_5699,2,av);} a=C_alloc(12); t2=C_i_caddr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5705,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:338: chicken.compiler.support#check-signature */ t5=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[11]; av2[3]=((C_word*)t0)[8]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k5703 in k5697 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_5705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_5705,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:339: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[86]; av2[4]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5706 in k5703 in k5697 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_5708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_5708,2,av);} a=C_alloc(19); t2=( /* optimizer.scm:340: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5712,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[4]; t5=C_i_check_list_2(t4,lf[23]); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5722,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5739,a[2]=t8,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_5739(t10,t6,t4);} /* g922 in k5706 in k5703 in k5697 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_fcall f_5712(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_5712,3,t0,t1,t2);} t3=*((C_word*)lf[60]+1); /* optimizer.scm:341: g937 */ t4=*((C_word*)lf[60]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[83]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k5720 in k5706 in k5703 in k5697 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_5722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_5722,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5729,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5737,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:344: chicken.compiler.support#node-subexpressions */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5727 in k5720 in k5706 in k5703 in k5697 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_5729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5729,2,av);} /* optimizer.scm:342: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5077(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k5735 in k5720 in k5706 in k5703 in k5697 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_5737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5737,2,av);} t2=C_i_car(t1); /* optimizer.scm:343: chicken.compiler.support#inline-lambda-bindings */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; av2[5]=C_SCHEME_FALSE; av2[6]=((C_word*)t0)[5]; av2[7]=*((C_word*)lf[85]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* for-each-loop921 in k5706 in k5703 in k5697 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_fcall f_5739(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_5739,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5749,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:341: g922 */ t5=((C_word*)t0)[3]; f_5712(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5747 in for-each-loop921 in k5706 in k5703 in k5697 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_5749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5749,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5739(t3,((C_word*)t0)[4],t2);} /* k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_5766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_5766,2,av);} a=C_alloc(29); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5769,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); if(C_truep(t1)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6452,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[19],tmp=(C_word)a,a+=6,tmp); t4=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:348: chicken.compiler.support#node-class */ t5=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t2; f_5769(t3,C_SCHEME_FALSE);}} /* k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_fcall f_5769(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,0,4)))){ C_save_and_reclaim_args((void *)trf_5769,2,t0,t1);} a=C_alloc(26); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5772,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:360: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[88]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5797,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[2],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[3],tmp=(C_word)a,a+=23,tmp); if(C_truep(((C_word*)t0)[15])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6345,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:369: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[15]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=t2; f_5797(t3,C_SCHEME_FALSE);}}} /* k5770 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_5772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_5772,2,av);} a=C_alloc(8); t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=C_i_car(((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5791,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:367: chicken.compiler.support#make-node */ t7=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[34]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k5789 in k5770 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_5791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5791,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:364: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_fcall f_5797(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,0,2)))){ C_save_and_reclaim_args((void *)trf_5797,2,t0,t1);} a=C_alloc(23); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5800,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); /* optimizer.scm:371: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[43]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[14]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6290,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[22],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[14],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[6],tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)t0)[14])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6338,a[2]=t2,a[3]=((C_word*)t0)[14],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:465: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[14]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_6290(2,av2);}}}} /* k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_5800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,5)))){ C_save_and_reclaim((void *)f_5800,2,av);} a=C_alloc(24); t2=t1; t3=C_i_caddr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5808,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=t4,a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],a[17]=((C_word*)t0)[15],a[18]=((C_word*)t0)[16],a[19]=((C_word*)t0)[17],a[20]=((C_word*)t0)[18],a[21]=((C_word*)t0)[19],a[22]=((C_word*)t0)[20],a[23]=((C_word*)t0)[21],tmp=(C_word)a,a+=24,tmp); /* optimizer.scm:373: ##sys#decompose-lambda-list */ t6=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[22]; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_5808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,3)))){ C_save_and_reclaim((void *)f_5808,5,av);} a=C_alloc(31); t5=C_i_car(((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_5815,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=t1,a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[2],a[19]=t6,a[20]=t3,a[21]=((C_word*)t0)[18],a[22]=((C_word*)t0)[19],a[23]=((C_word*)t0)[20],a[24]=t2,a[25]=((C_word*)t0)[21],a[26]=((C_word*)t0)[22],a[27]=((C_word*)t0)[23],tmp=(C_word)a,a+=28,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6284,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:377: chicken.compiler.support#variable-mark */ t9=*((C_word*)lf[67]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[17]; av2[3]=lf[105]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_5815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,3)))){ C_save_and_reclaim((void *)f_5815,2,av);} a=C_alloc(36); t2=t1; t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5821,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t2,a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],tmp=(C_word)a,a+=27,tmp); if(C_truep(((C_word*)t0)[26])){ t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6239,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[18],a[5]=((C_word*)t0)[27],a[6]=((C_word*)t0)[17],a[7]=((C_word*)t0)[23],a[8]=((C_word*)t0)[19],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:379: test */ t5=((C_word*)((C_word*)t0)[23])[1]; f_4882(t5,t4,((C_word*)t0)[17],lf[103]);} else{ t4=t3; f_5821(t4,C_SCHEME_FALSE);}} /* k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_fcall f_5821(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,0,6)))){ C_save_and_reclaim_args((void *)trf_5821,2,t0,t1);} a=C_alloc(23); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_5824,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],tmp=(C_word)a,a+=18,tmp); t3=(C_truep(((C_word*)t0)[18])?lf[93]:lf[94]); t4=C_i_cadddr(((C_word*)t0)[19]); /* optimizer.scm:386: chicken.compiler.support#debugging */ t5=*((C_word*)lf[35]+1);{ C_word av2[7]; av2[0]=t5; av2[1]=t2; av2[2]=lf[89]; av2[3]=t3; av2[4]=((C_word*)t0)[10]; av2[5]=((C_word*)t0)[20]; av2[6]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5914,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[21],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[16],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[22],a[15]=((C_word*)t0)[23],a[16]=((C_word*)t0)[2],a[17]=((C_word*)t0)[10],a[18]=((C_word*)t0)[24],a[19]=((C_word*)t0)[25],a[20]=((C_word*)t0)[26],a[21]=((C_word*)t0)[13],a[22]=((C_word*)t0)[20],tmp=(C_word)a,a+=23,tmp); /* optimizer.scm:409: test */ t3=((C_word*)((C_word*)t0)[24])[1]; f_4882(t3,t2,((C_word*)t0)[20],lf[81]);}} /* k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_5824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_5824,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5825,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; t4=C_i_check_list_2(t3,lf[23]); t5=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_5835,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[2],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],tmp=(C_word)a,a+=18,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5879,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_5879(t9,t5,t3);} /* g1006 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in ... */ static void C_fcall f_5825(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_5825,3,t0,t1,t2);} t3=*((C_word*)lf[60]+1); /* optimizer.scm:392: g1021 */ t4=*((C_word*)lf[60]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=lf[83]; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k5833 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in ... */ static void C_ccall f_5835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_5835,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_5838,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); /* optimizer.scm:393: chicken.compiler.support#check-signature */ t3=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[17]; av2[3]=((C_word*)t0)[13]; av2[4]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5836 in k5833 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in ... */ static void C_ccall f_5838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_5838,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_5841,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); /* optimizer.scm:394: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[92]; av2[4]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5839 in k5836 in k5833 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in ... */ static void C_ccall f_5841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_5841,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_5846,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp); /* optimizer.scm:395: chicken.base#call/cc */ t3=*((C_word*)lf[91]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[16]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a5845 in k5839 in k5836 in k5833 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */ static void C_ccall f_5846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_5846,3,av);} a=C_alloc(25); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5849,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5863,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=t1,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5877,a[2]=t4,a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[14],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:405: chicken.compiler.support#node-subexpressions */ t6=*((C_word*)lf[42]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[15]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* cfk in a5845 in k5839 in k5836 in k5833 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in ... */ static void C_ccall f_5849(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_5849,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5853,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:398: chicken.compiler.support#debugging */ t4=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[89]; av2[3]=lf[90]; av2[4]=((C_word*)t0)[10]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k5851 in cfk in a5845 in k5839 in k5836 in k5833 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in ... */ static void C_ccall f_5853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){ C_save_and_reclaim((void *)f_5853,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:403: walk-generic */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6792(t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_TRUE);} /* k5858 in k5851 in cfk in a5845 in k5839 in k5836 in k5833 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in ... */ static void C_ccall f_5860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5860,2,av);} /* optimizer.scm:402: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5861 in a5845 in k5839 in k5836 in k5833 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in ... */ static void C_ccall f_5863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5863,2,av);} t2=( /* optimizer.scm:407: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); /* optimizer.scm:408: walk */ t3=((C_word*)((C_word*)t0)[3])[1]; f_5077(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k5875 in a5845 in k5839 in k5836 in k5833 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in ... */ static void C_ccall f_5877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5877,2,av);} t2=C_i_car(t1); /* optimizer.scm:404: chicken.compiler.support#inline-lambda-bindings */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; av2[5]=C_SCHEME_TRUE; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* for-each-loop1005 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in ... */ static void C_fcall f_5879(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_5879,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5889,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:392: g1006 */ t5=((C_word*)t0)[3]; f_5825(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5887 in for-each-loop1005 in k5822 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in ... */ static void C_ccall f_5889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5889,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5879(t3,((C_word*)t0)[4],t2);} /* k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_5914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,8)))){ C_save_and_reclaim((void *)f_5914,2,av);} a=C_alloc(22); if(C_truep(t1)){ t2=C_i_length(((C_word*)t0)[2]); if(C_truep(C_i_lessp(t2,((C_word*)t0)[3]))){ /* optimizer.scm:411: walk-generic */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6792(t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],C_SCHEME_TRUE);} else{ t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5928,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[14],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[15],a[9]=t4,a[10]=((C_word*)t0)[16],a[11]=((C_word*)t0)[17],a[12]=((C_word*)t0)[18],tmp=(C_word)a,a+=13,tmp)); t6=((C_word*)t4)[1]; f_5928(t6,((C_word*)t0)[5],((C_word*)t0)[19],((C_word*)t0)[3],((C_word*)t0)[2],C_SCHEME_END_OF_LIST);}} else{ t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_6099,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[20],a[11]=((C_word*)t0)[15],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[17],a[15]=((C_word*)t0)[21],a[16]=((C_word*)t0)[6],tmp=(C_word)a,a+=17,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6226,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[20],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:438: test */ t4=((C_word*)((C_word*)t0)[18])[1]; f_4882(t4,t3,((C_word*)t0)[22],lf[77]);}} /* loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in ... */ static void C_fcall f_5928(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_5928,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(18); t6=C_i_nullp(t2); t7=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_5938,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=t4,a[11]=t5,a[12]=t2,a[13]=t3,a[14]=((C_word*)t0)[9],a[15]=((C_word*)t0)[10],a[16]=((C_word*)t0)[11],a[17]=((C_word*)t0)[12],tmp=(C_word)a,a+=18,tmp); if(C_truep(t6)){ t8=t7; f_5938(t8,t6);} else{ t8=t3; t9=t7; f_5938(t9,C_i_zerop(t8));}} /* k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in ... */ static void C_fcall f_5938(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,0,3)))){ C_save_and_reclaim_args((void *)trf_5938,2,t0,t1);} a=C_alloc(24); if(C_truep(t1)){ t2=( /* optimizer.scm:414: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5945,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5999,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[5],a[7]=t5,a[8]=t7,a[9]=t6,tmp=(C_word)a,a+=10,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6003,a[2]=t8,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:419: scheme#reverse */ t10=*((C_word*)lf[4]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6009,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[14],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[16],tmp=(C_word)a,a+=14,tmp); t3=C_i_car(((C_word*)t0)[12]); /* optimizer.scm:422: test */ t4=((C_word*)((C_word*)t0)[17])[1]; f_4882(t4,t2,t3,lf[74]);}} /* g1060 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in ... */ static void C_fcall f_5945(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_5945,3,t0,t1,t2);} /* optimizer.scm:416: g1077 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_5077(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k5953 in k5997 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */ static void C_ccall f_5955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5955,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5958,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:420: invalidate-gae! */ f_4912(t3,((C_word*)t0)[5]);} /* k5956 in k5953 in k5997 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in ... */ static void C_ccall f_5958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5958,2,av);} /* optimizer.scm:421: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1054 in k5997 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */ static void C_fcall f_5963(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_5963,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5988,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:416: g1060 */ t5=((C_word*)t0)[4]; f_5945(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5986 in map-loop1054 in k5997 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in ... */ static void C_ccall f_5988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5988,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5963(t6,((C_word*)t0)[5],t5);} /* k5997 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in ... */ static void C_ccall f_5999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_5999,2,av);} a=C_alloc(17); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5955,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5963,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_5963(t7,t3,t2);} /* k6001 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in ... */ static void C_ccall f_6003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6003,2,av);} /* optimizer.scm:419: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6007 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in ... */ static void C_ccall f_6009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,5)))){ C_save_and_reclaim((void *)f_6009,2,av);} a=C_alloc(32); if(C_truep(t1)){ t2=( /* optimizer.scm:423: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6015,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_car(t4); /* optimizer.scm:424: chicken.compiler.support#debugging */ t6=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t3; av2[2]=lf[36]; av2[3]=lf[98]; av2[4]=t5; av2[5]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t2=((C_word*)t0)[4]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[5]; t5=C_s_a_i_minus(&a,2,t4,C_fix(1)); t6=C_i_cdr(((C_word*)t0)[6]); t7=((C_word*)t0)[6]; t8=C_u_i_car(t7); t9=C_a_i_cons(&a,2,t8,((C_word*)t0)[8]); /* optimizer.scm:434: loop */ t10=((C_word*)((C_word*)t0)[7])[1]; f_5928(t10,((C_word*)t0)[3],t3,t5,t6,t9);}} /* k6013 in k6007 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */ static void C_ccall f_6015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_6015,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=C_i_car(((C_word*)t0)[5]); /* optimizer.scm:427: chicken.compiler.support#expression-has-side-effects? */ t4=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6019 in k6013 in k6007 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in ... */ static void C_ccall f_6021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){ C_save_and_reclaim((void *)f_6021,2,av);} a=C_alloc(29); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6052,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* optimizer.scm:430: chicken.base#gensym */ t3=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[96]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[4]; t5=C_s_a_i_minus(&a,2,t4,C_fix(1)); t6=((C_word*)t0)[5]; t7=C_u_i_cdr(t6); /* optimizer.scm:433: loop */ t8=((C_word*)((C_word*)t0)[6])[1]; f_5928(t8,((C_word*)t0)[2],t3,t5,t7,((C_word*)t0)[7]);}} /* k6034 in k6050 in k6019 in k6013 in k6007 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in ... */ static void C_ccall f_6036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,c,5)))){ C_save_and_reclaim((void *)f_6036,2,av);} a=C_alloc(34); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6040,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); t6=((C_word*)t0)[5]; t7=C_s_a_i_minus(&a,2,t6,C_fix(1)); t8=((C_word*)t0)[6]; t9=C_u_i_cdr(t8); /* optimizer.scm:432: loop */ t10=((C_word*)((C_word*)t0)[7])[1]; f_5928(t10,t3,t5,t7,t9,((C_word*)t0)[8]);} /* k6038 in k6034 in k6050 in k6019 in k6013 in k6007 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in ... */ static void C_ccall f_6040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6040,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:428: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6050 in k6019 in k6013 in k6007 in k5936 in loop in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in ... */ static void C_ccall f_6052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_6052,2,av);} a=C_alloc(12); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6036,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t5=((C_word*)t0)[5]; t6=C_u_i_car(t5); /* optimizer.scm:431: walk */ t7=((C_word*)((C_word*)t0)[8])[1]; f_5077(t7,t4,t6,((C_word*)t0)[9],((C_word*)t0)[10]);} /* k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in ... */ static void C_fcall f_6099(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,8)))){ C_save_and_reclaim_args((void *)trf_6099,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6102,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); /* optimizer.scm:440: chicken.compiler.support#llist-length */ t3=*((C_word*)lf[102]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[15]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* optimizer.scm:463: walk-generic */ t2=((C_word*)((C_word*)t0)[3])[1]; f_6792(t2,((C_word*)t0)[4],((C_word*)t0)[16],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_TRUE);}} /* k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in ... */ static void C_ccall f_6102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,8)))){ C_save_and_reclaim((void *)f_6102,2,av);} a=C_alloc(12); t2=t1; t3=C_i_length(((C_word*)t0)[2]); if(C_truep(C_i_lessp(t3,t2))){ /* optimizer.scm:442: walk-generic */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6792(t4,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_TRUE);} else{ t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6114,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[4],tmp=(C_word)a,a+=12,tmp); /* optimizer.scm:444: chicken.compiler.support#debugging */ t5=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=lf[36]; av2[3]=lf[101]; av2[4]=((C_word*)t0)[14]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} /* k6112 in k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in ... */ static void C_ccall f_6114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_6114,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6119,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6125,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:445: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[11]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a6118 in k6112 in k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */ static void C_ccall f_6119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6119,2,av);} /* optimizer.scm:445: split-at */ f_3390(t1,((C_word*)t0)[2],((C_word*)t0)[3]);} /* a6124 in k6112 in k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in ... */ static void C_ccall f_6125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,4)))){ C_save_and_reclaim((void *)f_6125,4,av);} a=C_alloc(39); t4=t2; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6129,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6141,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6189,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=t8,a[6]=t10,a[7]=t9,tmp=(C_word)a,a+=8,tmp); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6197,a[2]=t11,a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* optimizer.scm:455: chicken.compiler.support#qnode */ t13=*((C_word*)lf[58]+1);{ C_word *av2=av; av2[0]=t13; av2[1]=t12; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t13=C_i_length(t3); t14=C_a_i_fixnum_times(&a,2,C_fix(3),t13); t15=C_a_i_list2(&a,2,lf[99],t14); /* optimizer.scm:456: chicken.compiler.support#make-node */ t16=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t16; av2[1]=t12; av2[2]=lf[100]; av2[3]=t15; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}}} /* k6127 in a6124 in k6112 in k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in ... */ static void C_ccall f_6129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6129,2,av);} a=C_alloc(7); t2=t1; t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6136,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:461: invalidate-gae! */ f_4912(t5,((C_word*)t0)[5]);} /* k6134 in k6127 in a6124 in k6112 in k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in ... */ static void C_ccall f_6136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6136,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g1110 in a6124 in k6112 in k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in ... */ static void C_fcall f_6141(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_6141,3,t0,t1,t2);} /* optimizer.scm:449: g1127 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_5077(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k6149 in k6187 in a6124 in k6112 in k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in ... */ static void C_ccall f_6151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6151,2,av);} /* optimizer.scm:446: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1104 in k6187 in a6124 in k6112 in k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in ... */ static void C_fcall f_6153(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6153,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6178,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:449: g1110 */ t5=((C_word*)t0)[4]; f_6141(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6176 in map-loop1104 in k6187 in a6124 in k6112 in k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in ... */ static void C_ccall f_6178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6178,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6153(t6,((C_word*)t0)[5],t5);} /* k6187 in a6124 in k6112 in k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in ... */ static void C_ccall f_6189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_6189,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6151,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6153,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_6153(t7,t3,t2);} /* k6195 in a6124 in k6112 in k6100 in k6097 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in ... */ static void C_ccall f_6197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6197,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:451: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6224 in k5912 in k5819 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in ... */ static void C_ccall f_6226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6226,2,av);} if(C_truep(t1)){ t2=C_i_memq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=((C_word*)t0)[4]; f_6099(t3,C_i_not(t2));} else{ t2=((C_word*)t0)[4]; f_6099(t2,C_SCHEME_FALSE);}} /* k6237 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_ccall f_6239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6239,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6280,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:380: test */ t3=((C_word*)((C_word*)t0)[7])[1]; f_4882(t3,t2,((C_word*)t0)[8],lf[83]);} else{ t2=((C_word*)t0)[2]; f_5821(t2,C_SCHEME_FALSE);}} /* k6252 in k6274 in k6278 in k6237 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in ... */ static void C_ccall f_6254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6254,2,av);} t2=C_eqp(t1,lf[66]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_5821(t3,C_SCHEME_FALSE);} else{ if(C_truep(((C_word*)t0)[3])){ t3=((C_word*)t0)[2]; f_5821(t3,((C_word*)t0)[3]);} else{ t3=C_i_cadddr(((C_word*)t0)[4]); t4=((C_word*)t0)[2]; f_5821(t4,C_i_lessp(t3,((C_word*)t0)[5]));}}} /* k6274 in k6278 in k6237 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in ... */ static void C_ccall f_6276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6276,2,av);} a=C_alloc(6); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6254,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:382: chicken.compiler.support#variable-mark */ t3=*((C_word*)lf[67]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[68]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_5821(t2,C_SCHEME_FALSE);}} /* k6278 in k6237 in k5813 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_6280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6280,2,av);} a=C_alloc(7); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:381: test */ t3=((C_word*)((C_word*)t0)[7])[1]; f_4882(t3,t2,((C_word*)t0)[8],lf[77]);} else{ t2=((C_word*)t0)[2]; f_5821(t2,C_SCHEME_FALSE);}} /* k6282 in a5807 in k5798 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_6284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6284,2,av);} /* optimizer.scm:377: chicken.compiler.support#node? */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6288 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_6290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,8)))){ C_save_and_reclaim((void *)f_6290,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6293,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6314,a[2]=t2,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:469: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* optimizer.scm:476: walk-generic */ t2=((C_word*)((C_word*)t0)[10])[1]; f_6792(t2,((C_word*)t0)[3],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[8],((C_word*)t0)[6],((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_TRUE);}} /* k6291 in k6288 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_6293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_6293,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6300,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_u_i_cdr(((C_word*)t0)[6]); t4=C_a_i_cons(&a,2,((C_word*)t0)[7],t3); /* optimizer.scm:471: chicken.compiler.support#make-node */ t5=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=lf[30]; av2[3]=((C_word*)t0)[8]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k6298 in k6291 in k6288 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_6300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6300,2,av);} /* optimizer.scm:470: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5077(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k6312 in k6288 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_6314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6314,2,av);} t2=C_i_car(t1); /* optimizer.scm:468: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[89]; av2[3]=lf[106]; av2[4]=((C_word*)t0)[3]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k6332 in k6336 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_6334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6334,2,av);} t2=C_i_car(t1); /* optimizer.scm:466: chicken.compiler.support#intrinsic? */ t3=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6336 in k5795 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_6338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6338,2,av);} a=C_alloc(3); t2=C_eqp(lf[24],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6334,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:466: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_6290(2,av2);}}} /* k6343 in k5767 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_6345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6345,2,av);} t2=((C_word*)t0)[2]; f_5797(t2,C_eqp(lf[29],t1));} /* k6358 in k6444 in k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_6360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6360,2,av);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6432,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:352: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_5769(t3,C_SCHEME_FALSE);}} /* k6376 in k6426 in k6430 in k6358 in k6444 in k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_ccall f_6378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6378,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6381,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=t2; f_6381(t3,t1);} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6418,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t4=C_u_i_car(((C_word*)t0)[5]); /* optimizer.scm:355: test */ t5=((C_word*)((C_word*)t0)[6])[1]; f_4882(t5,t3,t4,lf[109]);}} /* k6379 in k6376 in k6426 in k6430 in k6358 in k6444 in k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in ... */ static void C_fcall f_6381(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_6381,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6391,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6393,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=C_u_i_cdr(((C_word*)t0)[4]); /* optimizer.scm:358: any */ f_3633(t2,t3,t4);} else{ t2=((C_word*)t0)[2]; f_5769(t2,C_SCHEME_FALSE);}} /* k6389 in k6379 in k6376 in k6426 in k6430 in k6358 in k6444 in k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in ... */ static void C_ccall f_6391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6391,2,av);} t2=((C_word*)t0)[2]; f_5769(t2,C_i_not(t1));} /* a6392 in k6379 in k6376 in k6426 in k6430 in k6358 in k6444 in k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in ... */ static void C_ccall f_6393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6393,3,av);} t3=*((C_word*)lf[97]+1); /* optimizer.scm:358: g974 */ t4=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6410 in k6416 in k6376 in k6426 in k6430 in k6358 in k6444 in k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in ... */ static void C_ccall f_6412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6412,2,av);} t2=((C_word*)t0)[2]; f_6381(t2,C_i_not(t1));} /* k6416 in k6376 in k6426 in k6430 in k6358 in k6444 in k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_6418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6418,2,av);} a=C_alloc(3); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6412,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_u_i_car(((C_word*)t0)[3]); /* optimizer.scm:356: test */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4882(t4,t2,t3,lf[108]);} else{ t2=((C_word*)t0)[2]; f_6381(t2,C_SCHEME_FALSE);}} /* k6426 in k6430 in k6358 in k6444 in k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_6428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6428,2,av);} a=C_alloc(7); t2=C_i_caddr(t1); t3=t2; if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6378,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t5=C_i_car(t3); /* optimizer.scm:354: test */ t6=((C_word*)((C_word*)t0)[5])[1]; f_4882(t6,t4,t5,lf[74]);} else{ t4=((C_word*)t0)[2]; f_5769(t4,C_SCHEME_FALSE);}} /* k6430 in k6358 in k6444 in k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_6432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6432,2,av);} a=C_alloc(6); t2=C_eqp(lf[29],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6428,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:353: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_5769(t3,C_SCHEME_FALSE);}} /* k6440 in k6444 in k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_6442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6442,2,av);} if(C_truep(C_i_not(t1))){ /* optimizer.scm:351: test */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4882(t2,((C_word*)t0)[3],((C_word*)t0)[4],lf[62]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_6360(2,av2);}}} /* k6444 in k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_ccall f_6446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_6446,2,av);} a=C_alloc(11); t2=C_i_car(t1); t3=t2; if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6442,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:350: test */ t6=((C_word*)((C_word*)t0)[5])[1]; f_4882(t6,t5,t3,lf[110]);} else{ t4=((C_word*)t0)[2]; f_5769(t4,C_SCHEME_FALSE);}} /* k6450 in k5764 in k5694 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_6452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6452,2,av);} a=C_alloc(6); t2=C_eqp(lf[24],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6446,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=C_u_i_car(((C_word*)t0)[4]); /* optimizer.scm:349: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_5769(t3,C_SCHEME_FALSE);}} /* k6457 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6459,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6484,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:332: test */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4882(t3,t2,((C_word*)t0)[5],lf[71]);} else{ t2=((C_word*)t0)[2]; f_5696(t2,C_SCHEME_FALSE);}} /* k6470 in k6482 in k6457 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_6472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6472,2,av);} t2=((C_word*)t0)[2]; f_5696(t2,C_i_not(t1));} /* k6478 in k6482 in k6457 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_6480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6480,2,av);} t2=C_i_car(t1); /* optimizer.scm:334: test */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4882(t3,((C_word*)t0)[3],t2,lf[83]);} /* k6482 in k6457 in k5687 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_6484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6484,2,av);} a=C_alloc(7); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6472,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6480,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:334: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; f_5696(t2,C_SCHEME_FALSE);}} /* k6488 in k6498 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6490,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_5689(2,av2);}} else{ /* optimizer.scm:329: test */ t2=((C_word*)((C_word*)t0)[3])[1]; f_4882(t2,((C_word*)t0)[2],((C_word*)t0)[4],lf[112]);}} /* k6498 in k5684 in k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6500,2,av);} a=C_alloc(5); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6490,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:328: test */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4882(t3,t2,((C_word*)t0)[4],lf[62]);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_5689(2,av2);}}} /* k6502 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_6504,2,av);} a=C_alloc(20); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_5686,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t3,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp); /* optimizer.scm:326: chicken.compiler.support#call-info */ t5=*((C_word*)lf[113]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[12]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k6520 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6522,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6525,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:482: invalidate-gae! */ f_4912(t3,((C_word*)t0)[4]);} /* k6523 in k6520 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6525,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g1151 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_6534(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_6534,3,t0,t1,t2);} /* optimizer.scm:481: g1168 */ t3=((C_word*)((C_word*)t0)[2])[1]; f_5077(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k6539 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6541,2,av);} /* optimizer.scm:480: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1145 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_6543(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6543,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6568,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:481: g1151 */ t5=((C_word*)t0)[4]; f_6534(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6566 in map-loop1145 in k5672 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6568,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6543(t6,((C_word*)t0)[5],t5);} /* k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_6601,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=( /* optimizer.scm:489: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6607,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6613,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:490: test */ t5=((C_word*)((C_word*)t0)[5])[1]; f_4882(t5,t4,((C_word*)t0)[4],lf[70]);} else{ t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6622,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* optimizer.scm:493: test */ t3=((C_word*)((C_word*)t0)[5])[1]; f_4882(t3,t2,((C_word*)t0)[4],lf[61]);}} /* k6605 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6607,2,av);} /* optimizer.scm:492: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[34]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6611 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6613,2,av);} if(C_truep(t1)){ /* optimizer.scm:491: chicken.compiler.support#debugging */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[89]; av2[3]=lf[114]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ /* optimizer.scm:492: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[34]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_6622,2,av);} a=C_alloc(19); if(C_truep(t1)){ t2=( /* optimizer.scm:494: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); /* optimizer.scm:495: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[34]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6634,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6775,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[12],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:496: test */ t4=((C_word*)((C_word*)t0)[6])[1]; f_4882(t4,t3,((C_word*)t0)[4],lf[70]);}} /* k6632 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_6634(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_6634,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=( /* optimizer.scm:501: touch */ f_4908(((C_word*)((C_word*)t0)[2])[1]) ); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6640,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:502: chicken.compiler.support#debugging */ t4=*((C_word*)lf[35]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[36]; av2[3]=lf[115]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6646,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6723,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); t4=C_i_car(((C_word*)t0)[8]); /* optimizer.scm:505: walk */ t5=((C_word*)((C_word*)t0)[9])[1]; f_5077(t5,t3,t4,((C_word*)t0)[10],((C_word*)t0)[5]);}} /* k6638 in k6632 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6640,2,av);} /* optimizer.scm:503: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[34]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6644 in k6632 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6646,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6681,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:507: test */ t4=((C_word*)((C_word*)t0)[5])[1]; f_4882(t4,t3,((C_word*)t0)[2],lf[70]);} /* k6653 in k6679 in k6644 in k6632 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_6655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6655,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop1197 in k6679 in k6644 in k6632 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_fcall f_6657(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6657,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6667,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:506: g1198 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6665 in for-each-loop1197 in k6679 in k6644 in k6632 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_6667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6667,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6657(t3,((C_word*)t0)[4],t2);} /* k6679 in k6644 in k6632 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_6681,2,av);} a=C_alloc(13); t2=(C_truep(t1)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6682,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp):(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6699,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp)); t3=t2; t4=((C_word*)t0)[3]; t5=C_i_check_list_2(t4,lf[23]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6655,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6657,a[2]=t8,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_6657(t10,t6,t4);} /* f_6682 in k6679 in k6644 in k6632 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_6682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6682,3,av);} t3=C_i_cdr(t2); t4=C_eqp(((C_word*)t0)[2],t3); if(C_truep(t4)){ t5=t2; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_set_i_slot(t5,C_fix(1),C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* f_6699 in k6679 in k6644 in k6632 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_6699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6699,3,av);} t3=C_i_car(t2); t4=C_eqp(((C_word*)t0)[2],t3); if(C_truep(t4)){ t5=t2; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_set_i_slot(t5,C_fix(1),C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k6721 in k6632 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_6723,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:505: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[31]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6731 in k6773 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_6733(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_6733,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6764,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:498: test */ t3=((C_word*)((C_word*)t0)[5])[1]; f_4882(t3,t2,((C_word*)t0)[6],lf[116]);} else{ t2=((C_word*)t0)[2]; f_6634(t2,C_SCHEME_FALSE);}} /* k6750 in k6758 in k6762 in k6731 in k6773 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_6752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6752,2,av);} t2=((C_word*)t0)[2]; f_6634(t2,C_i_not(t1));} /* k6758 in k6762 in k6731 in k6773 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_6760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6760,2,av);} a=C_alloc(3); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6752,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_car(((C_word*)t0)[3]); /* optimizer.scm:500: chicken.compiler.support#expression-has-side-effects? */ t4=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_6634(t2,C_SCHEME_FALSE);}} /* k6762 in k6731 in k6773 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6764,2,av);} a=C_alloc(5); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6760,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:499: test */ t3=((C_word*)((C_word*)t0)[5])[1]; f_4882(t3,t2,((C_word*)t0)[6],lf[109]);} else{ t2=((C_word*)t0)[2]; f_6634(t2,C_SCHEME_FALSE);}} /* k6769 in k6773 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6771,2,av);} t2=((C_word*)t0)[2]; f_6733(t2,C_i_not(t1));} /* k6773 in k6620 in k6599 in k5232 in k5229 in k5226 in walk1 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6775,2,av);} a=C_alloc(10); t2=C_i_not(t1); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6733,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=t3; f_6733(t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6771,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:497: chicken.compiler.support#variable-visible? */ t5=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* walk-generic in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_6792(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){ C_word tmp; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,5)))){ C_save_and_reclaim_args((void *)trf_6792,9,t0,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(13); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6798,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t8,a[6]=((C_word*)t0)[2],a[7]=t7,a[8]=t10,a[9]=((C_word*)t0)[3],a[10]=t6,tmp=(C_word)a,a+=11,tmp)); t12=((C_word*)t10)[1]; f_6798(t12,t1,C_SCHEME_TRUE,t5,C_SCHEME_END_OF_LIST);} /* lp in walk-generic in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_6798(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_6798,5,t0,t1,t2,t3,t4);} a=C_alloc(8); if(C_truep(C_i_nullp(t3))){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6808,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t4,tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[5])){ /* optimizer.scm:524: invalidate-gae! */ f_4912(t5,((C_word*)t0)[7]);} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_6808(2,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6824,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[8],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); t6=C_i_car(t3); /* optimizer.scm:528: walk */ t7=((C_word*)((C_word*)t0)[9])[1]; f_5077(t7,t5,t6,((C_word*)t0)[10],((C_word*)t0)[7]);}} /* k6806 in lp in walk-generic in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6808,2,av);} a=C_alloc(5); if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6818,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:526: scheme#reverse */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k6816 in k6806 in lp in walk-generic in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6818,2,av);} /* optimizer.scm:526: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6822 in lp in walk-generic in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6824,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6831,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[6])){ t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=t3; f_6831(t6,C_eqp(t2,t5));} else{ t4=t3; f_6831(t4,C_SCHEME_FALSE);}} /* k6829 in k6822 in lp in walk-generic in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_6831(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_6831,2,t0,t1);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); /* optimizer.scm:529: lp */ t5=((C_word*)((C_word*)t0)[5])[1]; f_6798(t5,((C_word*)t0)[6],t1,t3,t4);} /* k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6852,2,av);} a=C_alloc(10); if(C_truep(t1)){ /* optimizer.scm:533: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; C_values(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6858,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:535: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[48]; av2[3]=lf[128]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_6858,2,av);} a=C_alloc(8); t2=lf[51] /* chicken.compiler.optimizer#simplified-ops */ =C_SCHEME_END_OF_LIST;; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6862,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:537: walk */ t4=((C_word*)((C_word*)t0)[8])[1]; f_5077(t4,t3,((C_word*)t0)[9],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* k6860 in k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_6862,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6865,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[7])[1]))){ /* optimizer.scm:538: chicken.compiler.support#debugging */ t4=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[36]; av2[3]=lf[127]; av2[4]=((C_word*)((C_word*)t0)[7])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6865(2,av2);}}} /* k6863 in k6860 in k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6865,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6868,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_pairp(lf[51]))){ t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6906,tmp=(C_word)a,a+=2,tmp); /* optimizer.scm:540: chicken.compiler.support#with-debugging-output */ t4=*((C_word*)lf[126]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[36]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6868(2,av2);}}} /* k6866 in k6863 in k6860 in k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_6868,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6871,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[7])[1],C_fix(0)))){ /* optimizer.scm:551: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[120]; av2[4]=((C_word*)((C_word*)t0)[7])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6871(2,av2);}}} /* k6869 in k6866 in k6863 in k6860 in k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6871,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6874,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[6])[1],C_fix(0)))){ /* optimizer.scm:552: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[119]; av2[4]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6874(2,av2);}}} /* k6872 in k6869 in k6866 in k6863 in k6860 in k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_6874,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6877,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[5])[1],C_fix(0)))){ /* optimizer.scm:553: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[118]; av2[4]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* optimizer.scm:554: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; C_values(4,av2);}}} /* k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6877,2,av);} /* optimizer.scm:554: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; C_values(4,av2);}} /* a6905 in k6863 in k6860 in k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6906,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6910,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:543: chicken.base#print */ t3=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[125]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6908 in a6905 in k6863 in k6860 in k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6910,2,av);} a=C_alloc(5); t2=lf[51]; t3=C_i_check_list_2(lf[51],lf[23]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6943,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6943(t7,((C_word*)t0)[2],lf[51]);} /* k6913 in for-each-loop1237 in k6908 in a6905 in k6863 in k6860 in k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6915,2,av);} t2=C_u_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_greaterp(t2,C_fix(1)))){ t3=C_u_i_cdr(((C_word*)t0)[2]); /* optimizer.scm:548: chicken.base#print */ t4=*((C_word*)lf[121]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(9); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* optimizer.scm:549: scheme#newline */ t3=*((C_word*)lf[122]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* for-each-loop1237 in k6908 in a6905 in k6863 in k6860 in k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_6943(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_6943,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6953,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6915,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t8=C_i_car(t6); /* optimizer.scm:546: chicken.base#print* */ t9=*((C_word*)lf[123]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=lf[124]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6951 in for-each-loop1237 in k6908 in a6905 in k6863 in k6860 in k6856 in k6850 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6953,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6943(t3,((C_word*)t0)[4],t2);} /* touch in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static C_word C_fcall f_6975(C_word t0){ C_word tmp; C_word t1; C_word t2; C_stack_overflow_check;{} t1=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); return(C_SCHEME_TRUE);} /* test in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_6979(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_6979,4,t0,t1,t2,t3);} /* optimizer.scm:568: chicken.compiler.support#db-get */ t4=*((C_word*)lf[54]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6986,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6989,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7001,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:573: chicken.compiler.support#intrinsic? */ t4=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[134]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6987 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6989,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6992,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[4])[1],C_fix(0)))){ /* optimizer.scm:611: chicken.compiler.support#debugging */ t3=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[36]; av2[3]=lf[129]; av2[4]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6990 in k6987 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_6992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6992,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7001,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7002,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7205,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:609: test */ t4=((C_word*)((C_word*)t0)[5])[1]; f_6979(t4,t3,lf[134],lf[135]);} else{ t2=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_6989(2,av2);}}} /* g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_7002(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_7002,3,t0,t1,t2);} a=C_alloc(8); t3=C_i_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7009,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:577: chicken.compiler.support#node-subexpressions */ t6=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7009,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7198,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=C_i_cadr(t2); /* optimizer.scm:578: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_7015,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7018,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:580: chicken.compiler.support#db-get-list */ t4=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[109]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_7018,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[8])){ if(C_truep(t1)){ t3=C_i_length(t1); t4=C_eqp(C_fix(1),t3); if(C_truep(t4)){ t5=C_i_length(((C_word*)t0)[5]); t6=C_eqp(C_fix(3),t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7174,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:584: chicken.compiler.support#node-class */ t8=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=t2; f_7024(t7,C_SCHEME_FALSE);}} else{ t5=t2; f_7024(t5,C_SCHEME_FALSE);}} else{ t3=t2; f_7024(t3,C_SCHEME_FALSE);}} else{ t3=t2; f_7024(t3,C_SCHEME_FALSE);}} /* k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_7024(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_7024,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7152,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:585: chicken.compiler.support#node-parameters */ t3=*((C_word*)lf[43]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */ static void C_ccall f_7033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_7033,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7039,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_listp(((C_word*)t0)[2]))){ t4=C_i_cdr(((C_word*)t0)[2]); t5=t3; f_7039(t5,C_i_nullp(t4));} else{ t4=t3; f_7039(t4,C_SCHEME_FALSE);}} /* k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in ... */ static void C_fcall f_7039(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_7039,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7045,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t3,tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:591: chicken.compiler.support#db-get-list */ t5=*((C_word*)lf[133]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[10]; av2[3]=t3; av2[4]=lf[109]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7043 in k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in ... */ static void C_ccall f_7045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7045,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7051,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(t1)){ t3=C_i_length(t1); t4=C_eqp(C_fix(1),t3); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7129,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:593: chicken.compiler.support#node-class */ t6=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t2; f_7051(t5,C_SCHEME_FALSE);}} else{ t3=t2; f_7051(t3,C_SCHEME_FALSE);}} /* k7049 in k7043 in k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_fcall f_7051(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_7051,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7116,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:595: chicken.compiler.support#node-subexpressions */ t3=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7058 in k7114 in k7049 in k7043 in k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_fcall f_7060(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,0,3)))){ C_save_and_reclaim_args((void *)trf_7060,2,t0,t1);} a=C_alloc(37); if(C_truep(t1)){ t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7067,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* optimizer.scm:603: chicken.compiler.support#node-parameters-set! */ t5=*((C_word*)lf[131]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[8]; av2[3]=lf[132]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7065 in k7058 in k7114 in k7049 in k7043 in k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_7067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7067,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7070,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_cdr(((C_word*)t0)[6]); /* optimizer.scm:604: chicken.compiler.support#node-subexpressions-set! */ t4=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7068 in k7065 in k7058 in k7114 in k7049 in k7043 in k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in ... */ static void C_ccall f_7070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7070,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7073,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_car(((C_word*)t0)[4]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7088,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t6=C_u_i_cdr(((C_word*)t0)[4]); /* optimizer.scm:607: scheme#reverse */ t7=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7071 in k7068 in k7065 in k7058 in k7114 in k7049 in k7043 in k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in ... */ static void C_ccall f_7073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7073,2,av);} /* optimizer.scm:608: touch */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* optimizer.scm:608: touch */ f_6975(((C_word*)((C_word*)t0)[3])[1]) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7086 in k7068 in k7065 in k7058 in k7114 in k7049 in k7043 in k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in ... */ static void C_ccall f_7088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7088,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:605: chicken.compiler.support#node-subexpressions-set! */ t3=*((C_word*)lf[130]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k7106 in k7110 in k7114 in k7049 in k7043 in k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in ... */ static void C_ccall f_7108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7108,2,av);} t2=C_i_car(t1); t3=((C_word*)t0)[2]; f_7060(t3,C_eqp(((C_word*)t0)[3],t2));} /* k7110 in k7114 in k7049 in k7043 in k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in ... */ static void C_ccall f_7112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7112,2,av);} a=C_alloc(4); t2=C_eqp(lf[24],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7108,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:598: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_7060(t3,C_SCHEME_FALSE);}} /* k7114 in k7049 in k7043 in k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in ... */ static void C_ccall f_7116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_7116,2,av);} a=C_alloc(14); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7060,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7112,a[2]=t4,a[3]=((C_word*)t0)[9],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:597: chicken.compiler.support#node-class */ t6=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k7127 in k7043 in k7037 in k7031 in k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in ... */ static void C_ccall f_7129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7129,2,av);} t2=((C_word*)t0)[2]; f_7051(t2,C_eqp(lf[25],t1));} /* k7146 in k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */ static void C_ccall f_7148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7148,2,av);} a=C_alloc(10); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7033,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:587: chicken.compiler.support#node-subexpressions */ t5=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7150 in k7022 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7152,2,av);} a=C_alloc(9); t2=C_i_caddr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7148,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:586: chicken.compiler.support#node-subexpressions */ t5=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7172 in k7016 in k7013 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7174,2,av);} t2=((C_word*)t0)[2]; f_7024(t2,C_eqp(lf[29],t1));} /* k7192 in k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7194,2,av);} if(C_truep(C_i_not(t1))){ /* optimizer.scm:579: test */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6979(t2,((C_word*)t0)[3],((C_word*)t0)[4],lf[62]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_7015(2,av2);}}} /* k7196 in k7007 in g1285 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_7198,2,av);} a=C_alloc(14); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7015,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,tmp=(C_word)a,a+=9,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7194,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:579: test */ t6=((C_word*)((C_word*)t0)[8])[1]; f_6979(t6,t5,t3,lf[110]);} /* k7203 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7205,2,av);} a=C_alloc(6); t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); t3=C_SCHEME_UNDEFINED; t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7216,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7216(t7,((C_word*)t0)[3],t2);} /* for-each-loop1284 in k7203 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_7216(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7216,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7226,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:574: g1285 */ t5=((C_word*)t0)[3]; f_7002(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7224 in for-each-loop1284 in k7203 in k6999 in k6984 in chicken.compiler.optimizer#perform-high-level-optimizations in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7226,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7216(t3,((C_word*)t0)[4],t2);} /* k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(446,c,15)))){ C_save_and_reclaim((void *)f_7246,2,av);} a=C_alloc(446); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7249,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_list(&a,1,lf[187]); t4=C_a_i_list(&a,1,lf[184]); t5=C_a_i_list(&a,1,lf[188]); t6=C_a_i_list(&a,2,lf[24],t5); t7=C_a_i_list(&a,1,lf[189]); t8=C_a_i_list(&a,2,lf[57],t7); t9=C_a_i_list(&a,4,lf[186],t4,t6,t8); t10=C_a_i_list(&a,1,lf[187]); t11=C_a_i_list(&a,2,lf[24],t10); t12=C_a_i_list(&a,1,lf[190]); t13=C_a_i_list(&a,1,lf[184]); t14=C_a_i_list(&a,1,lf[188]); t15=C_a_i_list(&a,2,lf[24],t14); t16=C_a_i_list(&a,1,lf[191]); t17=C_a_i_list(&a,2,lf[57],t16); t18=C_a_i_list(&a,4,lf[186],t13,t15,t17); t19=C_a_i_list(&a,1,lf[190]); t20=C_a_i_list(&a,2,lf[24],t19); t21=C_a_i_list(&a,5,lf[25],lf[179],t20,lf[192],lf[193]); t22=C_a_i_list(&a,4,lf[26],t12,t18,t21); t23=C_a_i_list(&a,5,lf[25],lf[183],t11,lf[194],t22); t24=C_a_i_list(&a,4,lf[26],t3,t9,t23); t25=C_a_i_list(&a,11,lf[188],lf[187],lf[190],lf[184],lf[189],lf[191],lf[194],lf[192],lf[183],lf[179],lf[193]); t26=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13155,tmp=(C_word)a,a+=2,tmp); t27=C_a_i_list(&a,3,t24,t25,t26); t28=C_a_i_list(&a,1,lf[178]); t29=C_a_i_list(&a,1,lf[184]); t30=C_a_i_list(&a,1,lf[188]); t31=C_a_i_list(&a,2,lf[24],t30); t32=C_a_i_list(&a,1,lf[197]); t33=C_a_i_list(&a,2,lf[57],t32); t34=C_a_i_list(&a,4,lf[186],t29,t31,t33); t35=C_a_i_list(&a,1,lf[178]); t36=C_a_i_list(&a,2,lf[24],t35); t37=C_a_i_list(&a,1,lf[198]); t38=C_a_i_list(&a,1,lf[188]); t39=C_a_i_list(&a,2,lf[24],t38); t40=C_a_i_cons(&a,2,t39,lf[199]); t41=C_a_i_cons(&a,2,t37,t40); t42=C_a_i_cons(&a,2,lf[40],t41); t43=C_a_i_list(&a,5,lf[25],lf[200],t36,lf[201],t42); t44=C_a_i_list(&a,4,lf[26],t28,t34,t43); t45=C_a_i_list(&a,8,lf[178],lf[184],lf[188],lf[197],lf[200],lf[201],lf[198],lf[199]); t46=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13028,tmp=(C_word)a,a+=2,tmp); t47=C_a_i_list(&a,3,t44,t45,t46); t48=C_a_i_list(&a,1,lf[187]); t49=C_a_i_list(&a,2,lf[34],C_SCHEME_END_OF_LIST); t50=C_a_i_list(&a,4,lf[26],t48,t49,lf[202]); t51=C_a_i_list(&a,2,lf[187],lf[202]); t52=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12715,tmp=(C_word)a,a+=2,tmp); t53=C_a_i_list(&a,3,t50,t51,t52); t54=C_a_i_list(&a,1,lf[178]); t55=C_a_i_list(&a,1,lf[184]); t56=C_a_i_cons(&a,2,t55,lf[205]); t57=C_a_i_cons(&a,2,lf[186],t56); t58=C_a_i_list(&a,1,lf[178]); t59=C_a_i_list(&a,2,lf[24],t58); t60=C_a_i_list(&a,5,lf[25],lf[200],t59,lf[170],lf[180]); t61=C_a_i_list(&a,4,lf[26],t54,t57,t60); t62=C_a_i_list(&a,6,lf[178],lf[184],lf[205],lf[200],lf[170],lf[180]); t63=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12632,tmp=(C_word)a,a+=2,tmp); t64=C_a_i_list(&a,3,t61,t62,t63); t65=C_a_i_list(&a,4,t27,t47,t53,t64); /* optimizer.scm:618: chicken.internal#hash-table-set! */ t66=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t66; av2[1]=t2; av2[2]=lf[50]; av2[3]=lf[26]; av2[4]=t65; ((C_proc)(void*)(*((C_word*)t66+1)))(5,av2);}} /* k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(166,c,11)))){ C_save_and_reclaim((void *)f_7249,2,av);} a=C_alloc(166); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7252,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_list(&a,1,lf[178]); t4=C_a_i_list(&a,2,lf[24],t3); t5=C_a_i_list(&a,4,lf[30],lf[179],t4,lf[180]); t6=C_a_i_list(&a,1,lf[178]); t7=C_a_i_list(&a,2,lf[24],t6); t8=C_a_i_list(&a,4,lf[30],lf[181],t7,lf[182]); t9=C_a_i_list(&a,5,lf[25],lf[183],lf[170],t5,t8); t10=C_a_i_list(&a,7,lf[183],lf[179],lf[181],lf[170],lf[180],lf[182],lf[178]); t11=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12559,tmp=(C_word)a,a+=2,tmp); t12=C_a_i_list(&a,3,t9,t10,t11); t13=C_a_i_list(&a,1,lf[184]); t14=C_a_i_list(&a,1,lf[185]); t15=C_a_i_list(&a,2,lf[57],t14); t16=C_a_i_list(&a,4,lf[186],t13,lf[170],t15); t17=C_a_i_list(&a,5,lf[25],lf[183],t16,lf[180],lf[182]); t18=C_a_i_list(&a,6,lf[183],lf[184],lf[170],lf[185],lf[180],lf[182]); t19=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12413,tmp=(C_word)a,a+=2,tmp); t20=C_a_i_list(&a,3,t17,t18,t19); t21=C_a_i_list(&a,2,t12,t20); /* optimizer.scm:618: chicken.internal#hash-table-set! */ t22=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t22; av2[1]=t2; av2[2]=lf[50]; av2[3]=lf[25]; av2[4]=t21; ((C_proc)(void*)(*((C_word*)t22+1)))(5,av2);}} /* k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7252,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7792,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:928: scheme#make-vector */ t3=*((C_word*)lf[177]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(301); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in ... */ static void C_ccall f_7267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_7267,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7269,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7312,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7324,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7705,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_7705(t9,t5,((C_word*)t0)[3],((C_word*)t0)[6]);} /* find-path in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in ... */ static void C_fcall f_7269(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_7269,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7275,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_7275(t7,t1,t2,C_SCHEME_END_OF_LIST);} /* find in find-path in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in ... */ static void C_fcall f_7275(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_7275,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_i_memq(t2,t3); if(C_truep(C_i_not(t4))){ t5=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]); t6=C_i_cdr(t5); t7=C_i_memq(((C_word*)t0)[3],t6); if(C_truep(t7)){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_a_i_cons(&a,2,t2,t3); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7299,a[2]=((C_word*)t0)[4],a[3]=t9,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:851: any */ f_3633(t1,t10,t6);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a7298 in find in find-path in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in ... */ static void C_ccall f_7299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7299,3,av);} /* optimizer.scm:851: find */ t3=((C_word*)((C_word*)t0)[2])[1]; f_7275(t3,t1,t2,((C_word*)t0)[3]);} /* g1551 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in ... */ static void C_fcall f_7312(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7312,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7321,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:855: chicken.compiler.support#scan-used-variables */ t5=*((C_word*)lf[143]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7319 in g1551 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in ... */ static void C_ccall f_7321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7321,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_a_i_cons(&a,2,t2,t1); t5=C_a_i_cons(&a,2,t4,t3); t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in ... */ static void C_ccall f_7324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_7324,2,av);} a=C_alloc(25); t2=C_SCHEME_END_OF_LIST; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7325,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7384,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7682,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_7682(t11,t7,((C_word*)t0)[3]);} /* g1591 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in ... */ static void C_fcall f_7325(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_7325,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_memq(t2,((C_word*)((C_word*)t0)[2])[1]); if(C_truep(C_i_not(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7335,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7357,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:864: filter */ f_3839(t4,t5,((C_word*)t0)[5]);} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k7333 in g1591 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in ... */ static void C_ccall f_7335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7335,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7351,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:867: chicken.base#gensym */ t4=*((C_word*)lf[95]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7341 in k7349 in k7333 in g1591 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in ... */ static void C_ccall f_7343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7343,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7349 in k7333 in g1591 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in ... */ static void C_ccall f_7351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_7351,2,av);} a=C_alloc(16); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)((C_word*)t0)[4])[1]; t4=C_a_i_cons(&a,2,t1,t2); t5=C_a_i_cons(&a,2,t4,t3); t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7343,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t8=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* optimizer.scm:868: scheme#append */ t9=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a7356 in g1591 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in ... */ static void C_ccall f_7357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7357,3,av);} a=C_alloc(6); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(C_i_not(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7370,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:865: find-path */ t5=((C_word*)t0)[3]; f_7269(t5,t4,((C_word*)t0)[2],t2);} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7368 in a7356 in g1591 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in ... */ static void C_ccall f_7370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7370,2,av);} if(C_truep(t1)){ /* optimizer.scm:865: find-path */ t2=((C_word*)t0)[2]; f_7269(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in ... */ static void C_ccall f_7384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_7384,2,av);} a=C_alloc(22); t2=C_SCHEME_END_OF_LIST; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7385,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t5=((C_word*)((C_word*)t0)[2])[1]; t6=C_i_check_list_2(t5,lf[23]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7444,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t3,tmp=(C_word)a,a+=8,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7659,a[2]=t9,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_7659(t11,t7,t5);} /* g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in ... */ static void C_fcall f_7385(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_7385,3,t0,t1,t2);} a=C_alloc(11); t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7392,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7426,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); /* optimizer.scm:877: append-map */ f_3429(t5,t6,t8,C_SCHEME_END_OF_LIST);} /* k7390 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in ... */ static void C_ccall f_7392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_7392,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7400,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7402,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=t4; t6=((C_word*)((C_word*)t0)[6])[1]; t7=C_i_check_list_2(t6,lf[6]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3892,a[2]=t5,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_3892(t11,t3,t6);} /* k7398 in k7390 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in ... */ static void C_ccall f_7400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7400,2,av);} a=C_alloc(6); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); t4=C_a_i_cons(&a,2,t3,t2); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a7401 in k7390 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in ... */ static void C_ccall f_7402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7402,3,av);} a=C_alloc(7); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(C_i_not(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7415,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=C_i_cdr(t2); t6=((C_word*)t0)[3]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4277,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:193: every */ f_3599(t4,t7,t5);} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7413 in a7401 in k7390 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in ... */ static void C_ccall f_7415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7415,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a7425 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in ... */ static void C_ccall f_7426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7426,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7432,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:878: filter */ f_3839(t1,t3,((C_word*)t0)[3]);} /* a7431 in a7425 in g1615 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in ... */ static void C_ccall f_7432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7432,3,av);} /* optimizer.scm:878: find-path */ t3=((C_word*)t0)[2]; f_7269(t3,t1,((C_word*)t0)[3],t2);} /* k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in ... */ static void C_ccall f_7444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7444,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:890: chicken.sort#topological-sort */ t3=*((C_word*)lf[204]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[7])[1]; av2[3]=*((C_word*)lf[47]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in ... */ static void C_ccall f_7447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_7447,2,av);} a=C_alloc(15); t2=C_SCHEME_END_OF_LIST; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7450,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7467,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t6,tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_7467(t8,t4,t1,((C_word*)t0)[6]);} /* k7448 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in ... */ static void C_ccall f_7450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_7450,2,av);} a=C_alloc(4); t2=t1; if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[2])[1]))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7459,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:921: chicken.compiler.support#debugging */ t4=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[36]; av2[3]=lf[203]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* optimizer.scm:923: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} /* k7457 in k7448 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in ... */ static void C_ccall f_7459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7459,2,av);} /* optimizer.scm:922: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; C_values(4,av2);}} /* foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in ... */ static void C_fcall f_7467(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_7467,4,t0,t1,t2,t3);} a=C_alloc(11); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7483,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7653,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t8=C_slot(t2,C_fix(0)); /* optimizer.scm:895: g1652 */ t9=t6; f_7483(t9,t7,t3,t8);} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* g1652 in foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in ... */ static void C_fcall f_7483(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_7483,4,t0,t1,t2,t3);} a=C_alloc(8); t4=C_i_assq(t3,((C_word*)((C_word*)t0)[2])[1]); t5=C_i_cdr(t4); t6=t5; t7=C_i_car(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7496,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t1,a[7]=t6,tmp=(C_word)a,a+=8,tmp); t10=C_u_i_cdr(t6); if(C_truep(C_i_nullp(t10))){ t11=C_i_assq(t8,((C_word*)((C_word*)t0)[5])[1]); t12=C_i_cdr(t11); t13=C_i_memq(t8,t12); t14=t9; f_7496(t14,C_i_not(t13));} else{ t11=t9; f_7496(t11,C_SCHEME_FALSE);}} /* k7494 in g1652 in foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in ... */ static void C_fcall f_7496(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_7496,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[4]); t5=C_i_cdr(t4); t6=C_a_i_list2(&a,2,t5,((C_word*)t0)[5]); /* optimizer.scm:902: chicken.compiler.support#make-node */ t7=*((C_word*)lf[33]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=((C_word*)t0)[6]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[7]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7520,a[2]=t3,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_7520(t5,((C_word*)t0)[6],((C_word*)t0)[7]);}} /* foldr1668 in k7494 in g1652 in foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in ... */ static void C_fcall f_7520(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_7520,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7555,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t2,C_fix(1)); t8=t5; t9=t6; t1=t8; t2=t9; goto loop;} else{ t3=C_i_check_list_2(((C_word*)t0)[3],lf[6]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7567,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_7567(t7,t1,((C_word*)t0)[3]);}} /* k7542 in k7553 in foldr1668 in k7494 in g1652 in foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in ... */ static void C_ccall f_7544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_7544,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]); /* optimizer.scm:906: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7553 in foldr1668 in k7494 in g1652 in foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in ... */ static void C_ccall f_7555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_7555,2,av);} a=C_alloc(8); t2=((C_word*)t0)[2]; t3=t1; t4=C_a_i_list1(&a,1,((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7544,a[2]=t3,a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:908: chicken.compiler.support#make-node */ t7=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[34]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* foldr1681 in foldr1668 in k7494 in g1652 in foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in ... */ static void C_fcall f_7567(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_7567,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7575,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7622,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=((C_word*)t0)[4]; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* g1686 in foldr1681 in foldr1668 in k7494 in g1652 in foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in ... */ static void C_fcall f_7575(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7575,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7611,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:912: chicken.base#gensym */ t5=*((C_word*)lf[95]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7589 in k7609 in g1686 in foldr1681 in foldr1668 in k7494 in g1652 in foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in ... */ static void C_ccall f_7591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_7591,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]); /* optimizer.scm:911: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7609 in g1686 in foldr1681 in foldr1668 in k7494 in g1652 in foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in ... */ static void C_ccall f_7611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_7611,2,av);} a=C_alloc(14); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7591,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_a_i_list1(&a,1,((C_word*)t0)[4]); t6=C_i_assq(((C_word*)t0)[4],((C_word*)t0)[5]); t7=C_i_cdr(t6); t8=C_a_i_list1(&a,1,t7); /* optimizer.scm:913: chicken.compiler.support#make-node */ t9=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t4; av2[2]=lf[31]; av2[3]=t5; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* k7620 in foldr1681 in foldr1668 in k7494 in g1652 in foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in ... */ static void C_ccall f_7622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7622,2,av);} /* optimizer.scm:909: g1686 */ t2=((C_word*)t0)[2]; f_7575(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k7651 in foldl1645 in k7445 in k7442 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in ... */ static void C_ccall f_7653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7653,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_7467(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* for-each-loop1614 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in ... */ static void C_fcall f_7659(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7659,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7669,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:873: g1615 */ t5=((C_word*)t0)[3]; f_7385(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7667 in for-each-loop1614 in k7382 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in ... */ static void C_ccall f_7669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7669,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7659(t3,((C_word*)t0)[4],t2);} /* for-each-loop1590 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in ... */ static void C_fcall f_7682(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7682,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7692,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:861: g1591 */ t5=((C_word*)t0)[3]; f_7325(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7690 in for-each-loop1590 in k7322 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in ... */ static void C_ccall f_7692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7692,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7682(t3,((C_word*)t0)[4],t2);} /* for-each-loop1550 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in ... */ static void C_fcall f_7705(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7705,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7715,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* optimizer.scm:854: g1551 */ t9=((C_word*)t0)[3]; f_7312(t9,t6,t7,t8);} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k7713 in for-each-loop1550 in k7265 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in ... */ static void C_ccall f_7715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7715,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_7705(t4,((C_word*)t0)[5],t2,t3);} /* map-loop1519 in k12888 in a12881 in k12842 in k12836 in k12833 in k12830 in loop2 in k12799 in k12769 in k12766 in k12763 in k12992 in k13000 in k12733 in k12730 in k12727 in loop1 in a12714 in k7244 in k4873 in k4520 in ... */ static void C_fcall f_7742(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7742,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_cons(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_7792,2,av);} a=C_alloc(6); t2=C_mutate(&lf[137] /* (set! chicken.compiler.optimizer#substitution-table ...) */,t1); t3=C_mutate((C_word*)lf[138]+1 /* (set! chicken.compiler.optimizer#rewrite ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7794,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate((C_word*)lf[140]+1 /* (set! chicken.compiler.optimizer#transform-direct-lambdas! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10090,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate((C_word*)lf[166]+1 /* (set! chicken.compiler.optimizer#determine-loop-and-dispatch ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11425,tmp=(C_word)a,a+=2,tmp)); t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* chicken.compiler.optimizer#rewrite in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_7794,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7798,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:931: chicken.internal#hash-table-ref */ t5=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[137]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7796 in chicken.compiler.optimizer#rewrite in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7798,2,av);} a=C_alloc(7); t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_list1(&a,1,((C_word*)t0)[4]); /* optimizer.scm:932: scheme#append */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7806 in k7796 in chicken.compiler.optimizer#rewrite in k7790 in k7250 in k7247 in k7244 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7808,2,av);} /* optimizer.scm:932: chicken.internal#hash-table-set! */ t2=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[137]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* argc-ok? in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_7817(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7817,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_not(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7827,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnump(t2))){ t5=C_i_length(((C_word*)t0)[3]); t6=t4; f_7827(t6,C_eqp(t2,t5));} else{ t5=t4; f_7827(t5,C_SCHEME_FALSE);}}} /* k7825 in argc-ok? in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_7827(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7827,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7842,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); /* optimizer.scm:941: argc-ok? */ t5=((C_word*)((C_word*)t0)[4])[1]; f_7817(t5,t2,t4);} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* k7840 in k7825 in argc-ok? in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7842,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* optimizer.scm:942: argc-ok? */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7817(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7875 in loop in a9955 in k9942 in k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_7877(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_7877,2,t0,t1);} if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); /* optimizer.scm:946: chicken.compiler.support#qnode */ t3=*((C_word*)lf[58]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* optimizer.scm:947: chicken.compiler.support#qnode */ t2=*((C_word*)lf[58]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k7905 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7907,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7910,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_i_length(((C_word*)t0)[6]); t4=C_i_car(((C_word*)t0)[5]); if(C_truep(C_i_nequalp(t3,t4))){ t5=C_i_car(((C_word*)t0)[6]); t6=t5; t7=C_i_cadr(((C_word*)t0)[6]); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7997,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t8,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:958: chicken.compiler.support#node-class */ t10=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_7910(2,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7908 in k7905 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_7910,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[3])){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7931,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_i_cadr(((C_word*)t0)[5]); t6=C_a_i_list1(&a,1,t5); /* optimizer.scm:965: chicken.compiler.support#make-node */ t7=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=lf[186]; av2[3]=t6; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* k7929 in k7908 in k7905 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_7931,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:963: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7979 in k7987 in k7983 in k7991 in k7995 in k7905 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_7981,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:961: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7983 in k7991 in k7995 in k7905 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7985,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7989,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:960: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7987 in k7983 in k7991 in k7995 in k7905 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7989,2,av);} a=C_alloc(8); if(C_truep(C_i_equalp(((C_word*)t0)[2],t1))){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7981,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:961: chicken.compiler.support#qnode */ t5=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_7910(2,av2);}}} /* k7991 in k7995 in k7905 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7993,2,av);} a=C_alloc(5); t2=C_eqp(lf[24],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7985,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:960: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_7910(2,av2);}}} /* k7995 in k7905 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_7997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7997,2,av);} a=C_alloc(6); t2=C_eqp(lf[24],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7993,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:959: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_7910(2,av2);}}} /* k8024 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_8026,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=(C_truep(t2)?t2:*((C_word*)lf[208]+1)); if(C_truep(t3)){ t4=C_i_car(((C_word*)t0)[3]); t5=C_a_i_list1(&a,1,C_SCHEME_TRUE); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8053,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=C_i_cadr(((C_word*)t0)[2]); t9=C_a_i_list1(&a,1,t8); /* optimizer.scm:979: chicken.compiler.support#make-node */ t10=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t7; av2[2]=lf[186]; av2[3]=t9; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8051 in k8024 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8053,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:975: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8082 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_8084,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=C_i_not(t2); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8093,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ t5=t4; f_8093(t5,t3);} else{ t5=C_i_length(((C_word*)t0)[3]); t6=C_i_cadr(((C_word*)t0)[2]); t7=t4; f_8093(t7,C_i_nequalp(t5,t6));}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8091 in k8082 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_8093(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_8093,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=C_i_check_list_2(((C_word*)t0)[2],lf[6]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8101,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_8101(t6,((C_word*)t0)[5],((C_word*)t0)[2]);} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* foldr1775 in k8091 in k8082 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_8101(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_8101,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8136,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t2,C_fix(1)); t8=t5; t9=t6; t1=t8; t2=t9; goto loop;} else{ t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8155,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=C_i_car(((C_word*)t0)[4]); /* optimizer.scm:990: chicken.compiler.support#varnode */ t7=*((C_word*)lf[64]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k8123 in k8134 in foldr1775 in k8091 in k8082 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_8125,2,av);} a=C_alloc(9); t2=C_a_i_list1(&a,1,t1); t3=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* optimizer.scm:989: chicken.compiler.support#make-node */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=lf[26]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k8134 in foldr1775 in k8091 in k8082 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8136,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=t1; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8125,a[2]=t3,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:989: chicken.base#gensym */ t6=*((C_word*)lf[95]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k8153 in foldr1775 in k8091 in k8082 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8155,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:990: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8196 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_8198,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_a_i_list2(&a,2,C_SCHEME_FALSE,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8213,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t4,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t6=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:1000: chicken.compiler.support#varnode */ t7=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8211 in k8196 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_8213,2,av);} a=C_alloc(8); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8221,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t6=C_i_cadr(((C_word*)t0)[6]); /* optimizer.scm:1003: chicken.compiler.support#qnode */ t7=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k8219 in k8211 in k8196 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_8221,2,av);} a=C_alloc(15); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list5(&a,5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,t2); /* optimizer.scm:999: chicken.compiler.support#make-node */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[6]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[7]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k8255 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_8257,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=C_i_length(((C_word*)t0)[2]); t3=C_eqp(C_fix(1),t2); if(C_truep(t3)){ t4=C_i_caddr(((C_word*)t0)[3]); t5=C_i_not(t4); t6=(C_truep(t5)?t5:C_eqp(t4,*((C_word*)lf[209]+1))); if(C_truep(t6)){ t7=C_a_i_list1(&a,1,C_SCHEME_TRUE); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8290,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t8,tmp=(C_word)a,a+=5,tmp); t10=C_i_car(((C_word*)t0)[3]); t11=C_a_i_list1(&a,1,t10); t12=t11; t13=C_i_car(((C_word*)t0)[2]); t14=t13; t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8306,a[2]=t14,a[3]=t9,a[4]=t12,tmp=(C_word)a,a+=5,tmp); t16=C_i_cadr(((C_word*)t0)[3]); /* optimizer.scm:1018: chicken.compiler.support#qnode */ t17=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t17; av2[1]=t15; av2[2]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}} else{ t7=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8288 in k8255 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8290,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1014: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8304 in k8255 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8306,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1016: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[186]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8350 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_8352,2,av);} a=C_alloc(18); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8367,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_i_car(((C_word*)t0)[4]); t6=C_a_i_list1(&a,1,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8379,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=C_i_cadr(((C_word*)t0)[4]); t10=C_a_i_list1(&a,1,t9); /* optimizer.scm:1029: chicken.compiler.support#make-node */ t11=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t8; av2[2]=lf[186]; av2[3]=t10; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8365 in k8350 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8367,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1026: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8377 in k8350 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_8379,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1028: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[186]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8424 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_8426,2,av);} a=C_alloc(19); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8441,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_i_cadr(((C_word*)t0)[4]); t6=C_a_i_list1(&a,1,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8449,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8457,a[2]=t8,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t10=C_i_caddr(((C_word*)t0)[4]); /* optimizer.scm:1042: chicken.compiler.support#qnode */ t11=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8439 in k8424 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8441,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1038: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8447 in k8424 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8449,2,av);} /* optimizer.scm:1040: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[186]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8455 in k8424 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8457,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1041: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8486 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8488,2,av);} if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:1046: g1814 */ t3=t2;{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_8509,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=C_i_length(((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(2)))){ t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8530,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1056: chicken.compiler.support#qnode */ t6=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8536,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(*((C_word*)lf[208]+1))){ t4=C_eqp(*((C_word*)lf[209]+1),lf[213]); t5=t3; f_8536(t5,C_i_not(t4));} else{ t4=t3; f_8536(t4,C_SCHEME_FALSE);}}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8528 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8530,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1056: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_8536(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8536,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8539,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t1)){ t3=t2; f_8539(t3,t1);} else{ t3=C_eqp(*((C_word*)lf[209]+1),lf[210]); t4=(C_truep(t3)?C_i_caddr(((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t4)){ t5=t2; f_8539(t5,t4);} else{ t5=C_eqp(*((C_word*)lf[209]+1),lf[212]); t6=t2; f_8539(t6,(C_truep(t5)?C_i_cadddr(((C_word*)t0)[2]):C_SCHEME_FALSE));}}} /* k8537 in k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_8539(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ C_save_and_reclaim_args((void *)trf_8539,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8550,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8675,a[2]=t4,a[3]=t8,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_8675(t10,t6,((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8548 in k8537 in k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_8550,2,av);} a=C_alloc(20); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=*((C_word*)lf[64]+1); t8=C_i_check_list_2(t2,lf[8]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8559,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8641,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_8641(t13,t9,t2);} /* k8557 in k8548 in k8537 in k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_8559,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8564,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_8564(t6,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* loop in k8557 in k8548 in k8537 in k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_8564(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_8564,4,t0,t1,t2,t3);} a=C_alloc(14); if(C_truep(C_i_nullp(t2))){ t4=C_a_i_list1(&a,1,C_SCHEME_TRUE); t5=t4; t6=C_eqp(*((C_word*)lf[209]+1),lf[210]); t7=(C_truep(t6)?C_i_car(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2])); t8=C_a_i_list1(&a,1,t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8589,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8591,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1073: chicken.compiler.support#fold-boolean */ t12=*((C_word*)lf[211]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t10; av2[2]=t11; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} else{ t4=C_i_car(t3); t5=C_a_i_list1(&a,1,t4); t6=t5; t7=C_i_car(t2); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8631,a[2]=t8,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t10=t2; t11=C_u_i_cdr(t10); t12=t3; t13=C_u_i_cdr(t12); /* optimizer.scm:1079: loop */ t15=t9; t16=t11; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;}} /* k8587 in loop in k8557 in k8548 in k8537 in k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8589,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1065: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a8590 in loop in k8557 in k8548 in k8537 in k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8591,4,av);} a=C_alloc(6); t4=C_a_i_list2(&a,2,t2,t3); /* optimizer.scm:1074: chicken.compiler.support#make-node */ t5=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=lf[186]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k8629 in loop in k8557 in k8548 in k8537 in k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8631,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1076: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* map-loop1859 in k8548 in k8537 in k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_8641(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8641,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8666,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* optimizer.scm:1061: g1865 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8664 in map-loop1859 in k8548 in k8537 in k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8666,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8641(t6,((C_word*)t0)[5],t5);} /* map-loop1831 in k8537 in k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_8675(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8675,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8700,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1060: chicken.base#gensym */ t4=*((C_word*)lf[95]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8698 in map-loop1831 in k8537 in k8534 in k8507 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8700,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8675(t6,((C_word*)t0)[5],t5);} /* k8762 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8764,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_length(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8773,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* optimizer.scm:1087: scheme#< */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t3; av2[2]=C_fix(0); av2[3]=t2; av2[4]=C_fix(3); C_lessp(5,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8771 in k8762 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_8773,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_a_i_list2(&a,2,C_SCHEME_FALSE,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8788,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t4,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t6=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:1089: chicken.compiler.support#varnode */ t7=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8786 in k8771 in k8762 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8788,2,av);} a=C_alloc(9); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8796,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t6=C_i_cadr(((C_word*)t0)[6]); /* optimizer.scm:1092: chicken.compiler.support#qnode */ t7=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k8794 in k8786 in k8771 in k8762 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_8796,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8800,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_i_cdr(((C_word*)t0)[7]); if(C_truep(C_i_nullp(t4))){ t5=C_i_caddr(((C_word*)t0)[8]); /* optimizer.scm:1094: chicken.compiler.support#varnode */ t6=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_cadr(((C_word*)t0)[7]); f_8800(2,av2);}}} /* k8798 in k8794 in k8786 in k8771 in k8762 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_8800,2,av);} a=C_alloc(15); t2=C_a_i_list5(&a,5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1); /* optimizer.scm:1088: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[6]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[7]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8851 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_8853,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_i_not(t2); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ t5=t4; f_8865(t5,t3);} else{ t5=C_i_length(((C_word*)t0)[5]); t6=C_i_car(((C_word*)t0)[2]); t7=t4; f_8865(t7,C_i_nequalp(t5,t6));}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8863 in k8851 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_8865(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_8865,2,t0,t1);} a=C_alloc(15); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list2(&a,2,C_SCHEME_TRUE,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8876,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8880,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t7=C_i_cadr(((C_word*)t0)[2]); /* optimizer.scm:1107: chicken.compiler.support#varnode */ t8=*((C_word*)lf[64]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8874 in k8863 in k8851 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8876,2,av);} /* optimizer.scm:1106: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8878 in k8863 in k8851 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8880,2,av);} a=C_alloc(6); /* optimizer.scm:1107: cons* */ f_3663(((C_word*)t0)[2],t1,C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));} /* k8912 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_8914,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=(C_truep(t2)?t2:*((C_word*)lf[208]+1)); if(C_truep(t3)){ t4=C_i_length(((C_word*)t0)[3]); t5=C_i_caddr(((C_word*)t0)[2]); if(C_truep(C_i_less_or_equalp(t4,t5))){ t6=C_eqp(t4,C_fix(1)); if(C_truep(t6)){ t7=C_a_i_list1(&a,1,C_SCHEME_TRUE); t8=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[3]); /* optimizer.scm:1120: chicken.compiler.support#make-node */ t9=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[5]; av2[2]=lf[30]; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t7=C_i_car(((C_word*)t0)[2]); t8=C_a_i_list2(&a,2,C_SCHEME_TRUE,t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8960,a[2]=((C_word*)t0)[5],a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8964,a[2]=t10,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t12=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:1122: chicken.compiler.support#varnode */ t13=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t11; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}} else{ t6=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8958 in k8912 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8960,2,av);} /* optimizer.scm:1121: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8962 in k8912 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8964,2,av);} a=C_alloc(6); /* optimizer.scm:1122: cons* */ f_3663(((C_word*)t0)[2],t1,C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));} /* k8991 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_8993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_8993,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=(C_truep(t2)?t2:*((C_word*)lf[208]+1)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9008,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t5=C_i_car(((C_word*)t0)[2]); /* optimizer.scm:1131: argc-ok? */ t6=((C_word*)((C_word*)t0)[7])[1]; f_7817(t6,t4,t5);} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9006 in k8991 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_9008,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9018,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[6]))){ t5=C_u_i_cdr(((C_word*)t0)[6]); t6=t4; f_9018(t6,C_a_i_cons(&a,2,C_SCHEME_TRUE,t5));} else{ t5=t4; f_9018(t5,((C_word*)t0)[6]);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9016 in k9006 in k8991 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_9018(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_9018,2,t0,t1);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9022,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9026,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_a_i_list2(&a,2,((C_word*)t0)[5],C_SCHEME_TRUE); /* optimizer.scm:1134: chicken.compiler.support#make-node */ t6=*((C_word*)lf[33]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t4; av2[2]=lf[214]; av2[3]=t5; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9020 in k9016 in k9006 in k8991 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9022,2,av);} /* optimizer.scm:1133: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9024 in k9016 in k9006 in k8991 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_9026,2,av);} a=C_alloc(6); /* optimizer.scm:1134: cons* */ f_3663(((C_word*)t0)[2],t1,C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));} /* k9061 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_9063,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(*((C_word*)lf[209]+1),t2); if(C_truep(t3)){ t4=C_i_cadddr(((C_word*)t0)[2]); t5=(C_truep(t4)?t4:*((C_word*)lf[208]+1)); if(C_truep(t5)){ t6=C_a_i_list1(&a,1,C_SCHEME_TRUE); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9093,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t7,tmp=(C_word)a,a+=5,tmp); t9=(C_truep(*((C_word*)lf[208]+1))?C_i_cadddr(((C_word*)t0)[2]):C_i_caddr(((C_word*)t0)[2])); t10=C_a_i_list1(&a,1,t9); /* optimizer.scm:1147: chicken.compiler.support#make-node */ t11=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t8; av2[2]=lf[186]; av2[3]=t10; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9091 in k9061 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9093,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1144: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9144 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_9146,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(*((C_word*)lf[209]+1),t2); if(C_truep(t3)){ t4=C_i_caddr(((C_word*)t0)[2]); t5=C_a_i_list2(&a,2,C_SCHEME_TRUE,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9163,a[2]=((C_word*)t0)[3],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9167,a[2]=t7,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t9=C_i_caddr(((C_word*)t0)[2]); /* optimizer.scm:1161: chicken.compiler.support#varnode */ t10=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t4=C_i_cadr(((C_word*)t0)[2]); t5=C_eqp(*((C_word*)lf[209]+1),t4); if(C_truep(t5)){ t6=C_a_i_list1(&a,1,C_SCHEME_TRUE); t7=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); /* optimizer.scm:1163: chicken.compiler.support#make-node */ t8=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=t6; av2[4]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9161 in k9144 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9163,2,av);} /* optimizer.scm:1160: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9165 in k9144 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_9167,2,av);} a=C_alloc(6); /* optimizer.scm:1161: cons* */ f_3663(((C_word*)t0)[2],t1,C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));} /* k9227 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_9229(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_9229,2,t0,t1);} a=C_alloc(10); t2=t1; if(C_truep(((C_word*)t0)[2])){ t3=C_i_not(((C_word*)t0)[3]); t4=(C_truep(t3)?t3:C_i_nequalp(((C_word*)t0)[4],((C_word*)t0)[3])); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9247,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[9],a[8]=t2,a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:1183: chicken.compiler.support#intrinsic? */ t6=*((C_word*)lf[107]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9245 in k9227 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_9247,2,av);} a=C_alloc(14); if(C_truep(t1)){ t2=*((C_word*)lf[208]+1); t3=(C_truep(*((C_word*)lf[208]+1))?*((C_word*)lf[208]+1):((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_a_i_list1(&a,1,C_SCHEME_TRUE); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9268,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9276,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t6,a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t8=(C_truep(((C_word*)t0)[8])?(C_truep(C_i_fixnum_positivep(((C_word*)t0)[6]))?C_fixnum_less_or_equal_p(((C_word*)t0)[6],C_fix(8)):C_SCHEME_FALSE):C_SCHEME_FALSE); if(C_truep(t8)){ t9=C_i_cadr(((C_word*)t0)[9]); /* optimizer.scm:1191: chicken.string#conc */ t10=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=t9; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t9=t7;{ C_word *av2=av; av2[0]=t9; av2[1]=C_i_cadr(((C_word*)t0)[9]); f_9276(2,av2);}}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9266 in k9245 in k9227 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9268,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1185: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9274 in k9245 in k9227 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(68,c,4)))){ C_save_and_reclaim((void *)f_9276,2,av);} a=C_alloc(68); t2=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); t4=C_a_i_list2(&a,2,t1,t3); /* optimizer.scm:1188: chicken.compiler.support#make-node */ t5=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=lf[100]; av2[3]=t4; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=C_u_i_car(((C_word*)t0)[2]); t4=C_i_cadr(((C_word*)t0)[2]); t5=C_s_a_i_times(&a,2,((C_word*)t0)[3],t4); t6=C_s_a_i_plus(&a,2,t3,t5); t7=C_a_i_list2(&a,2,t1,t6); /* optimizer.scm:1188: chicken.compiler.support#make-node */ t8=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=((C_word*)t0)[4]; av2[2]=lf[100]; av2[3]=t7; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t3=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]); /* optimizer.scm:1188: chicken.compiler.support#make-node */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=lf[100]; av2[3]=t3; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}} /* k9357 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_9359,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9374,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[208]+1))){ t5=C_i_cddr(((C_word*)t0)[4]); t6=C_i_pairp(t5); t7=(C_truep(t6)?C_i_caddr(((C_word*)t0)[4]):C_i_cadr(((C_word*)t0)[4])); t8=C_a_i_list1(&a,1,t7); /* optimizer.scm:1207: chicken.compiler.support#make-node */ t9=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t4; av2[2]=lf[186]; av2[3]=t8; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t5=C_i_cadr(((C_word*)t0)[4]); t6=C_a_i_list1(&a,1,t5); /* optimizer.scm:1207: chicken.compiler.support#make-node */ t7=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=lf[186]; av2[3]=t6; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9372 in k9357 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9374,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1204: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9425 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_9427,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9442,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_i_car(((C_word*)t0)[4]); /* optimizer.scm:1218: chicken.compiler.support#qnode */ t6=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9440 in k9425 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9442,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1218: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9461,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=C_i_length(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t2,C_fix(2)))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9470,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1225: scheme#reverse */ t4=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9468 in k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_9470,2,av);} a=C_alloc(6); t2=C_i_car(t1); t3=C_i_cadr(t1); t4=C_u_i_cdr(t1); t5=C_u_i_cdr(t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9486,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_9486(t9,((C_word*)t0)[3],t2,t3,t5,((C_word*)t0)[4]);} /* lp in k9468 in k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_9486(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_9486,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(10); if(C_truep(C_i_nullp(t4))){ t6=C_a_i_list1(&a,1,C_SCHEME_TRUE); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9508,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=t1,a[6]=t7,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1233: chicken.compiler.support#varnode */ t9=*((C_word*)lf[64]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9511,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t5,a[7]=t2,a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); /* optimizer.scm:1234: chicken.base#gensym */ t7=*((C_word*)lf[95]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[217]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k9506 in lp in k9468 in k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_9508,2,av);} a=C_alloc(12); t2=C_a_i_list4(&a,4,t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); /* optimizer.scm:1231: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[6]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9509 in lp in k9468 in k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_9511,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* optimizer.scm:1235: chicken.base#gensym */ t4=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[216]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9512 in k9509 in lp in k9468 in k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,c,2)))){ C_save_and_reclaim((void *)f_9514,2,av);} a=C_alloc(40); t2=t1; t3=C_a_i_list1(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9529,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t6=C_a_i_list1(&a,1,((C_word*)t0)[6]); t7=C_a_i_list4(&a,4,t2,C_SCHEME_TRUE,t6,C_fix(0)); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9555,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=C_a_i_list1(&a,1,C_SCHEME_TRUE); t11=t10; t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9567,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t9,a[5]=t11,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1243: chicken.compiler.support#varnode */ t13=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t12; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* k9527 in k9512 in k9509 in lp in k9468 in k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_9529,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9533,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(((C_word*)t0)[4]); t5=t4; t6=((C_word*)t0)[4]; t7=C_u_i_cdr(t6); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9543,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=t5,a[6]=t7,tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1247: chicken.compiler.support#varnode */ t9=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k9531 in k9527 in k9512 in k9509 in lp in k9468 in k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9533,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1236: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[26]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9541 in k9527 in k9512 in k9509 in lp in k9468 in k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9543,2,av);} /* optimizer.scm:1244: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9486(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* k9553 in k9512 in k9509 in lp in k9468 in k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_9555,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1239: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[29]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9565 in k9512 in k9509 in lp in k9468 in k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_9567,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9571,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* optimizer.scm:1243: chicken.compiler.support#varnode */ t4=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9569 in k9565 in k9512 in k9509 in lp in k9468 in k9459 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_9571,2,av);} a=C_alloc(12); t2=C_a_i_list4(&a,4,((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4]); /* optimizer.scm:1241: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[6]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9611 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_9613,2,av);} a=C_alloc(22); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9628,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_i_cadr(((C_word*)t0)[4]); t6=C_a_i_list1(&a,1,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9636,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9638,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9646,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1261: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t8; av2[2]=t9; av2[3]=t10; C_call_with_values(4,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9626 in k9611 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9628,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1256: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9634 in k9611 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9636,2,av);} /* optimizer.scm:1259: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[186]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9637 in k9611 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_9638,2,av);} a=C_alloc(5); t2=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1)); /* optimizer.scm:1261: split-at */ f_3390(t1,((C_word*)t0)[3],t2);} /* a9645 in k9611 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9646,4,av);} a=C_alloc(5); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9658,a[2]=t1,a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_i_caddr(((C_word*)t0)[2]); /* optimizer.scm:1263: chicken.compiler.support#qnode */ t8=*((C_word*)lf[58]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k9656 in a9645 in k9611 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_9658,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* optimizer.scm:1262: scheme#append */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9683 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_9685,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=C_i_cddddr(((C_word*)t0)[2]); t5=C_i_car(t4); t6=t5; t7=C_i_cadddr(((C_word*)t0)[2]); t8=t7; t9=(C_truep(*((C_word*)lf[208]+1))?C_i_caddr(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2])); t10=t9; t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9700,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t10,a[6]=t8,a[7]=t6,tmp=(C_word)a,a+=8,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9794,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1279: filter */ f_3839(t11,t12,((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9698 in k9683 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_9700,2,av);} a=C_alloc(13); if(C_truep(C_i_nullp(t1))){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9721,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1284: chicken.compiler.support#qnode */ t5=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=C_i_cdr(t1); if(C_truep(C_i_nullp(t2))){ t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=C_i_car(t1); t5=C_a_i_list2(&a,2,((C_word*)t0)[2],t4); /* optimizer.scm:1286: chicken.compiler.support#make-node */ t6=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=t3; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9757,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9759,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1292: chicken.compiler.support#fold-inner */ t7=*((C_word*)lf[218]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} /* k9719 in k9698 in k9683 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9721,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1284: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9755 in k9698 in k9683 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9757,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1288: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a9758 in k9698 in k9683 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_9759,4,av);} a=C_alloc(12); t4=C_eqp(*((C_word*)lf[209]+1),lf[210]); if(C_truep(t4)){ t5=C_a_i_list1(&a,1,((C_word*)t0)[2]); t6=C_a_i_list2(&a,2,t2,t3); /* optimizer.scm:1295: chicken.compiler.support#make-node */ t7=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t1; av2[2]=lf[186]; av2[3]=t5; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t5=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t6=C_a_i_list2(&a,2,t2,t3); /* optimizer.scm:1296: chicken.compiler.support#make-node */ t7=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t1; av2[2]=lf[100]; av2[3]=t5; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* a9793 in k9683 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9794,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9820,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* optimizer.scm:1281: chicken.compiler.support#node-class */ t4=*((C_word*)lf[41]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9814 in k9818 in a9793 in k9683 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9816,2,av);} t2=C_i_car(t1); t3=C_eqp(((C_word*)t0)[2],t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9818 in a9793 in k9683 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9820,2,av);} a=C_alloc(4); t2=C_eqp(lf[57],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9816,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* optimizer.scm:1282: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9854 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_9856,2,av);} a=C_alloc(14); if(C_truep(t1)){ t2=C_i_caddr(((C_word*)t0)[2]); t3=(C_truep(t2)?t2:*((C_word*)lf[208]+1)); if(C_truep(t3)){ t4=C_a_i_list1(&a,1,C_SCHEME_TRUE); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9880,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_eqp(*((C_word*)lf[209]+1),lf[210]); if(C_truep(t7)){ t8=C_i_cddddr(((C_word*)t0)[2]); t9=C_i_car(t8); t10=C_a_i_list1(&a,1,t9); /* optimizer.scm:1313: chicken.compiler.support#make-node */ t11=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t6; av2[2]=lf[186]; av2[3]=t10; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t8=C_i_cadr(((C_word*)t0)[2]); t9=C_a_i_list2(&a,2,t8,((C_word*)t0)[6]); /* optimizer.scm:1317: chicken.compiler.support#make-node */ t10=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t6; av2[2]=lf[100]; av2[3]=t9; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9878 in k9854 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_9880,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* optimizer.scm:1309: chicken.compiler.support#make-node */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_9920,2,av);} a=C_alloc(17); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=C_i_length(((C_word*)t0)[3]); t5=C_i_car(((C_word*)t0)[2]); if(C_truep(C_i_greater_or_equalp(t4,t5))){ t6=C_i_cadr(((C_word*)t0)[2]); t7=C_a_i_list2(&a,2,C_SCHEME_TRUE,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9940,a[2]=((C_word*)t0)[4],a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9944,a[2]=t9,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t11=C_i_cadr(((C_word*)t0)[2]); /* optimizer.scm:1334: chicken.compiler.support#varnode */ t12=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t10; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k9938 in k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9940,2,av);} /* optimizer.scm:1331: chicken.compiler.support#make-node */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[30]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9942 in k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_9944,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9948,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9950,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9956,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); /* optimizer.scm:1336: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k9946 in k9942 in k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_9948,2,av);} a=C_alloc(6); /* optimizer.scm:1333: cons* */ f_3663(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],t1));} /* a9949 in k9942 in k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9950,2,av);} /* optimizer.scm:1336: split-at */ f_3390(t1,((C_word*)t0)[2],((C_word*)t0)[3]);} /* a9955 in k9942 in k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_9956,4,av);} a=C_alloc(9); t4=t2; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9964,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_cddr(((C_word*)t0)[2]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9970,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t10=((C_word*)t8)[1]; f_9970(t10,t5,t3,t6);} /* k9962 in a9955 in k9942 in k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9964,2,av);} /* optimizer.scm:1337: scheme#append */ t2=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in a9955 in k9942 in k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_fcall f_9970(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_9970,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9990,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t3); t6=t4; t7=t5; if(C_truep(C_i_symbolp(t7))){ /* optimizer.scm:945: chicken.compiler.support#varnode */ t8=*((C_word*)lf[64]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7877,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t7))){ t9=C_u_i_car(t7); t10=t8; f_7877(t10,C_eqp(lf[57],t9));} else{ t9=t8; f_7877(t9,C_SCHEME_FALSE);}}}} else{ if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10017,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); t9=C_i_cdr(t3); /* optimizer.scm:1346: loop */ t11=t6; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}}} /* k9988 in loop in a9955 in k9942 in k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9990,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9994,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* optimizer.scm:1344: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_9970(t6,t3,C_SCHEME_END_OF_LIST,t5);} /* k9992 in k9988 in loop in a9955 in k9942 in k9918 in loop in k13331 in a13324 in k4873 in k4520 in k4516 in k4512 in k4508 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */ static void C_ccall f_9994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9994,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_optimizer_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("optimizer")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_optimizer_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1143))){ C_save(t1); C_rereclaim2(1143*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,221); lf[0]=C_h_intern(&lf[0],9, C_text("optimizer")); lf[1]=C_h_intern(&lf[1],27, C_text("chicken.compiler.optimizer#")); lf[4]=C_h_intern(&lf[4],14, C_text("scheme#reverse")); lf[6]=C_h_intern(&lf[6],5, C_text("foldr")); lf[7]=C_h_intern(&lf[7],13, C_text("scheme#append")); lf[8]=C_h_intern(&lf[8],3, C_text("map")); lf[10]=C_h_intern(&lf[10],12, C_text("scheme#null\077")); lf[17]=C_h_intern(&lf[17],45, C_text("chicken.compiler.optimizer#eq-inline-operator")); lf[18]=C_h_intern(&lf[18],52, C_text("chicken.compiler.optimizer#membership-test-operators")); lf[19]=C_h_intern(&lf[19],50, C_text("chicken.compiler.optimizer#membership-unfold-limit")); lf[20]=C_h_intern(&lf[20],54, C_text("chicken.compiler.optimizer#default-optimization-passes")); lf[21]=C_h_intern(&lf[21],52, C_text("chicken.compiler.optimizer#scan-toplevel-assignments")); lf[22]=C_h_intern(&lf[22],26, C_text("chicken.base#alist-update!")); lf[23]=C_h_intern(&lf[23],8, C_text("for-each")); lf[24]=C_h_intern(&lf[24],15, C_text("##core#variable")); lf[25]=C_h_intern(&lf[25],2, C_text("if")); lf[26]=C_h_intern(&lf[26],3, C_text("let")); lf[27]=C_h_intern(&lf[27],20, C_text("chicken.base#butlast")); lf[28]=C_h_intern(&lf[28],6, C_text("lambda")); lf[29]=C_h_intern(&lf[29],13, C_text("##core#lambda")); lf[30]=C_h_intern(&lf[30],11, C_text("##core#call")); lf[31]=C_h_intern(&lf[31],4, C_text("set!")); lf[32]=C_h_intern(&lf[32],35, C_text("chicken.compiler.support#copy-node!")); lf[33]=C_h_intern(&lf[33],34, C_text("chicken.compiler.support#make-node")); lf[34]=C_h_intern(&lf[34],16, C_text("##core#undefined")); lf[35]=C_h_intern(&lf[35],34, C_text("chicken.compiler.support#debugging")); lf[36]=C_h_intern(&lf[36],1, C_text("o")); lf[37]=C_decode_literal(C_heaptop,C_text("\376B\000\000&dropping redundant toplevel assignment")); lf[38]=C_h_intern(&lf[38],22, C_text("chicken.base#alist-ref")); lf[39]=C_h_intern(&lf[39],11, C_text("##core#cond")); lf[40]=C_h_intern(&lf[40],13, C_text("##core#switch")); lf[41]=C_h_intern(&lf[41],35, C_text("chicken.compiler.support#node-class")); lf[42]=C_h_intern(&lf[42],44, C_text("chicken.compiler.support#node-subexpressions")); lf[43]=C_h_intern(&lf[43],40, C_text("chicken.compiler.support#node-parameters")); lf[44]=C_h_intern(&lf[44],38, C_text("chicken.compiler.support#mark-variable")); lf[45]=C_h_intern(&lf[45],23, C_text("##compiler#always-bound")); lf[46]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014safe globals")); lf[47]=C_h_intern(&lf[47],10, C_text("scheme#eq\077")); lf[48]=C_h_intern(&lf[48],1, C_text("p")); lf[49]=C_decode_literal(C_heaptop,C_text("\376B\000\000 scanning toplevel assignments...")); lf[53]=C_h_intern(&lf[53],59, C_text("chicken.compiler.optimizer#perform-high-level-optimizations")); lf[54]=C_h_intern(&lf[54],31, C_text("chicken.compiler.support#db-get")); lf[55]=C_h_intern(&lf[55],35, C_text("chicken.compiler.support#match-node")); lf[56]=C_h_intern(&lf[56],31, C_text("chicken.internal#hash-table-ref")); lf[57]=C_h_intern(&lf[57],5, C_text("quote")); lf[58]=C_h_intern(&lf[58],30, C_text("chicken.compiler.support#qnode")); lf[59]=C_h_intern(&lf[59],49, C_text("chicken.compiler.support#maybe-constant-fold-call")); lf[60]=C_h_intern(&lf[60],32, C_text("chicken.compiler.support#db-put!")); lf[61]=C_h_intern(&lf[61],10, C_text("replacable")); lf[62]=C_h_intern(&lf[62],5, C_text("value")); lf[63]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035substituted constant variable")); lf[64]=C_h_intern(&lf[64],32, C_text("chicken.compiler.support#varnode")); lf[65]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032propagated global variable")); lf[66]=C_h_intern(&lf[66],2, C_text("no")); lf[67]=C_h_intern(&lf[67],38, C_text("chicken.compiler.support#variable-mark")); lf[68]=C_h_intern(&lf[68],17, C_text("##compiler#inline")); lf[69]=C_h_intern(&lf[69],11, C_text("collapsable")); lf[70]=C_h_intern(&lf[70],6, C_text("global")); lf[71]=C_h_intern(&lf[71],9, C_text("replacing")); lf[72]=C_h_intern(&lf[72],12, C_text("contractable")); lf[73]=C_h_intern(&lf[73],9, C_text("removable")); lf[74]=C_h_intern(&lf[74],6, C_text("unused")); lf[75]=C_h_intern(&lf[75],42, C_text("chicken.compiler.support#build-lambda-list")); lf[76]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047merged explicitly consed rest parameter")); lf[77]=C_h_intern(&lf[77],13, C_text("explicit-rest")); lf[78]=C_decode_literal(C_heaptop,C_text("\376B\000\000 removed unused formal parameters")); lf[79]=C_h_intern(&lf[79],27, C_text("##sys#decompose-lambda-list")); lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047merged explicitly consed rest parameter")); lf[81]=C_h_intern(&lf[81],21, C_text("has-unused-parameters")); lf[82]=C_h_intern(&lf[82],20, C_text("##core#direct_lambda")); lf[83]=C_h_intern(&lf[83],13, C_text("inline-target")); lf[84]=C_h_intern(&lf[84],47, C_text("chicken.compiler.support#inline-lambda-bindings")); lf[85]=C_h_intern(&lf[85],17, C_text("chicken.base#void")); lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024contracted procedure")); lf[87]=C_h_intern(&lf[87],40, C_text("chicken.compiler.support#check-signature")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\0001removed call to pure procedure with unused result")); lf[89]=C_h_intern(&lf[89],1, C_text("i")); lf[90]=C_decode_literal(C_heaptop,C_text("\376B\000\0008not inlining procedure because it refers to contractable")); lf[91]=C_h_intern(&lf[91],20, C_text("chicken.base#call/cc")); lf[92]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022inlining procedure")); lf[93]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017global inlining")); lf[94]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010inlining")); lf[95]=C_h_intern(&lf[95],19, C_text("chicken.base#gensym")); lf[96]=C_h_intern(&lf[96],1, C_text("t")); lf[97]=C_h_intern(&lf[97],53, C_text("chicken.compiler.support#expression-has-side-effects\077")); lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000+removed unused parameter to known procedure")); lf[99]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_a_i_list")); lf[100]=C_h_intern(&lf[100],22, C_text("##core#inline_allocate")); lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042consed rest parameter at call site")); lf[102]=C_h_intern(&lf[102],37, C_text("chicken.compiler.support#llist-length")); lf[103]=C_h_intern(&lf[103],9, C_text("inlinable")); lf[104]=C_h_intern(&lf[104],30, C_text("chicken.compiler.support#node\077")); lf[105]=C_h_intern(&lf[105],24, C_text("##compiler#inline-global")); lf[106]=C_decode_literal(C_heaptop,C_text("\376B\000\000 inlining call to intrinsic alias")); lf[107]=C_h_intern(&lf[107],35, C_text("chicken.compiler.support#intrinsic\077")); lf[108]=C_h_intern(&lf[108],8, C_text("assigned")); lf[109]=C_h_intern(&lf[109],10, C_text("references")); lf[110]=C_h_intern(&lf[110],7, C_text("unknown")); lf[111]=C_h_intern(&lf[111],15, C_text("##compiler#pure")); lf[112]=C_h_intern(&lf[112],11, C_text("local-value")); lf[113]=C_h_intern(&lf[113],34, C_text("chicken.compiler.support#call-info")); lf[114]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034removing global contractable")); lf[115]=C_decode_literal(C_heaptop,C_text("\376B\000\0006removed side-effect free assignment to unused variable")); lf[116]=C_h_intern(&lf[116],16, C_text("inline-transient")); lf[117]=C_h_intern(&lf[117],42, C_text("chicken.compiler.support#variable-visible\077")); lf[118]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031removed conditional forms")); lf[119]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025removed binding forms")); lf[120]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022replaced variables")); lf[121]=C_h_intern(&lf[121],18, C_text("chicken.base#print")); lf[122]=C_h_intern(&lf[122],14, C_text("scheme#newline")); lf[123]=C_h_intern(&lf[123],19, C_text("chicken.base#print\052")); lf[124]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 ")); lf[125]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027 call simplifications:")); lf[126]=C_h_intern(&lf[126],46, C_text("chicken.compiler.support#with-debugging-output")); lf[127]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017simplifications")); lf[128]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022traversal phase...")); lf[129]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023Removed `not\047 forms")); lf[130]=C_h_intern(&lf[130],49, C_text("chicken.compiler.support#node-subexpressions-set!")); lf[131]=C_h_intern(&lf[131],45, C_text("chicken.compiler.support#node-parameters-set!")); lf[132]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\006\001\376\377\016")); lf[133]=C_h_intern(&lf[133],36, C_text("chicken.compiler.support#db-get-list")); lf[134]=C_h_intern(&lf[134],3, C_text("not")); lf[135]=C_h_intern(&lf[135],10, C_text("call-sites")); lf[136]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031pre-optimization phase...")); lf[138]=C_h_intern(&lf[138],34, C_text("chicken.compiler.optimizer#rewrite")); lf[139]=C_h_intern(&lf[139],32, C_text("chicken.internal#hash-table-set!")); lf[140]=C_h_intern(&lf[140],52, C_text("chicken.compiler.optimizer#transform-direct-lambdas!")); lf[141]=C_h_intern(&lf[141],26, C_text("##compiler#callback-lambda")); lf[142]=C_h_intern(&lf[142],5, C_text("boxed")); lf[143]=C_h_intern(&lf[143],44, C_text("chicken.compiler.support#scan-used-variables")); lf[144]=C_h_intern(&lf[144],17, C_text("##core#inline_ref")); lf[145]=C_h_intern(&lf[145],53, C_text("chicken.compiler.support#estimate-foreign-result-size")); lf[146]=C_h_intern(&lf[146],21, C_text("##core#inline_loc_ref")); lf[147]=C_h_intern(&lf[147],18, C_text("##core#direct_call")); lf[148]=C_h_intern(&lf[148],39, C_text("chicken.compiler.support#quit-compiling")); lf[149]=C_decode_literal(C_heaptop,C_text("\376B\000\000;known procedure called with wrong number of arguments: `~A\047")); lf[150]=C_h_intern(&lf[150],40, C_text("chicken.compiler.support#node-class-set!")); lf[151]=C_h_intern(&lf[151],14, C_text("##core#recurse")); lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000Gknown procedure called recursively with wrong number of arguments: `~A\047")); lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000Gknown procedure called recursively with wrong number of arguments: `~A\047")); lf[154]=C_h_intern(&lf[154],29, C_text("chicken.compiler.support#bomb")); lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014missing kvar")); lf[156]=C_h_intern(&lf[156],13, C_text("##core#return")); lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017bad call (leaf)")); lf[158]=C_h_intern(&lf[158],13, C_text("scheme#cdaddr")); lf[159]=C_h_intern(&lf[159],13, C_text("scheme#caaddr")); lf[160]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026invalid parameter list")); lf[161]=C_decode_literal(C_heaptop,C_text("\376B\000\0006direct leaf routine with hoistable closures/allocation")); lf[162]=C_h_intern(&lf[162],18, C_text("##sys#make-promise")); lf[163]=C_h_intern(&lf[163],10, C_text("##sys#list")); lf[164]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036direct leaf routine/allocation")); lf[165]=C_decode_literal(C_heaptop,C_text("\376B\000\000(direct leaf routine optimization pass...")); lf[166]=C_h_intern(&lf[166],54, C_text("chicken.compiler.optimizer#determine-loop-and-dispatch")); lf[167]=C_h_intern(&lf[167],18, C_text("##sys#dynamic-wind")); lf[168]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\006\001\376\377\016")); lf[169]=C_h_intern(&lf[169],2, C_text("f_")); lf[170]=C_h_intern(&lf[170],1, C_text("x")); lf[171]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012clustering")); lf[172]=C_h_intern(&lf[172],1, C_text("a")); lf[173]=C_h_intern(&lf[173],10, C_text("scheme#max")); lf[174]=C_h_intern(&lf[174],1, C_text("k")); lf[175]=C_h_intern(&lf[175],8, C_text("dispatch")); lf[176]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027collecting clusters ...")); lf[177]=C_h_intern(&lf[177],18, C_text("scheme#make-vector")); lf[178]=C_h_intern(&lf[178],3, C_text("var")); lf[179]=C_h_intern(&lf[179],2, C_text("d2")); lf[180]=C_h_intern(&lf[180],1, C_text("y")); lf[181]=C_h_intern(&lf[181],2, C_text("d3")); lf[182]=C_h_intern(&lf[182],1, C_text("z")); lf[183]=C_h_intern(&lf[183],2, C_text("d1")); lf[184]=C_h_intern(&lf[184],2, C_text("op")); lf[185]=C_h_intern(&lf[185],5, C_text("clist")); lf[186]=C_h_intern(&lf[186],13, C_text("##core#inline")); lf[187]=C_h_intern(&lf[187],4, C_text("var1")); lf[188]=C_h_intern(&lf[188],4, C_text("var0")); lf[189]=C_h_intern(&lf[189],6, C_text("const1")); lf[190]=C_h_intern(&lf[190],4, C_text("var2")); lf[191]=C_h_intern(&lf[191],6, C_text("const2")); lf[192]=C_h_intern(&lf[192],5, C_text("body2")); lf[193]=C_h_intern(&lf[193],4, C_text("rest")); lf[194]=C_h_intern(&lf[194],5, C_text("body1")); lf[195]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\001\000\000\000\002\376\377\016")); lf[196]=C_h_intern(&lf[196],35, C_text("chicken.compiler.support#immediate\077")); lf[197]=C_h_intern(&lf[197],5, C_text("const")); lf[198]=C_h_intern(&lf[198],1, C_text("n")); lf[199]=C_h_intern(&lf[199],7, C_text("clauses")); lf[200]=C_h_intern(&lf[200],1, C_text("d")); lf[201]=C_h_intern(&lf[201],4, C_text("body")); lf[202]=C_h_intern(&lf[202],4, C_text("more")); lf[203]=C_decode_literal(C_heaptop,C_text("\376B\000\000!converted assignments to bindings")); lf[204]=C_h_intern(&lf[204],29, C_text("chicken.sort#topological-sort")); lf[205]=C_h_intern(&lf[205],4, C_text("args")); lf[206]=C_h_intern(&lf[206],1, C_text("b")); lf[207]=C_h_intern(&lf[207],1, C_text("c")); lf[208]=C_h_intern(&lf[208],31, C_text("chicken.compiler.support#unsafe")); lf[209]=C_h_intern(&lf[209],36, C_text("chicken.compiler.support#number-type")); lf[210]=C_h_intern(&lf[210],6, C_text("fixnum")); lf[211]=C_h_intern(&lf[211],37, C_text("chicken.compiler.support#fold-boolean")); lf[212]=C_h_intern(&lf[212],6, C_text("flonum")); lf[213]=C_h_intern(&lf[213],7, C_text("generic")); lf[214]=C_h_intern(&lf[214],11, C_text("##core#proc")); lf[215]=C_h_intern(&lf[215],19, C_text("chicken.string#conc")); lf[216]=C_h_intern(&lf[216],2, C_text("va")); lf[217]=C_h_intern(&lf[217],1, C_text("r")); lf[218]=C_h_intern(&lf[218],35, C_text("chicken.compiler.support#fold-inner")); lf[219]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023bad type (optimize)")); lf[220]=C_h_intern(&lf[220],27, C_text("chicken.base#make-parameter")); C_register_lf2(lf,221,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3213,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[810] = { {C_text("f_10017:optimizer_2escm"),(void*)f_10017}, {C_text("f_10090:optimizer_2escm"),(void*)f_10090}, {C_text("f_10093:optimizer_2escm"),(void*)f_10093}, {C_text("f_10097:optimizer_2escm"),(void*)f_10097}, {C_text("f_10100:optimizer_2escm"),(void*)f_10100}, {C_text("f_10103:optimizer_2escm"),(void*)f_10103}, {C_text("f_10118:optimizer_2escm"),(void*)f_10118}, {C_text("f_10149:optimizer_2escm"),(void*)f_10149}, {C_text("f_10155:optimizer_2escm"),(void*)f_10155}, {C_text("f_10161:optimizer_2escm"),(void*)f_10161}, {C_text("f_10209:optimizer_2escm"),(void*)f_10209}, {C_text("f_10217:optimizer_2escm"),(void*)f_10217}, {C_text("f_10221:optimizer_2escm"),(void*)f_10221}, {C_text("f_10247:optimizer_2escm"),(void*)f_10247}, {C_text("f_10263:optimizer_2escm"),(void*)f_10263}, {C_text("f_10275:optimizer_2escm"),(void*)f_10275}, {C_text("f_10285:optimizer_2escm"),(void*)f_10285}, {C_text("f_10304:optimizer_2escm"),(void*)f_10304}, {C_text("f_10307:optimizer_2escm"),(void*)f_10307}, {C_text("f_10311:optimizer_2escm"),(void*)f_10311}, {C_text("f_10314:optimizer_2escm"),(void*)f_10314}, {C_text("f_10317:optimizer_2escm"),(void*)f_10317}, {C_text("f_10356:optimizer_2escm"),(void*)f_10356}, {C_text("f_10374:optimizer_2escm"),(void*)f_10374}, {C_text("f_10390:optimizer_2escm"),(void*)f_10390}, {C_text("f_10411:optimizer_2escm"),(void*)f_10411}, {C_text("f_10445:optimizer_2escm"),(void*)f_10445}, {C_text("f_10461:optimizer_2escm"),(void*)f_10461}, {C_text("f_10465:optimizer_2escm"),(void*)f_10465}, {C_text("f_10470:optimizer_2escm"),(void*)f_10470}, {C_text("f_10500:optimizer_2escm"),(void*)f_10500}, {C_text("f_10504:optimizer_2escm"),(void*)f_10504}, {C_text("f_10509:optimizer_2escm"),(void*)f_10509}, {C_text("f_10551:optimizer_2escm"),(void*)f_10551}, {C_text("f_10556:optimizer_2escm"),(void*)f_10556}, {C_text("f_10593:optimizer_2escm"),(void*)f_10593}, {C_text("f_10597:optimizer_2escm"),(void*)f_10597}, {C_text("f_10604:optimizer_2escm"),(void*)f_10604}, {C_text("f_10608:optimizer_2escm"),(void*)f_10608}, {C_text("f_10636:optimizer_2escm"),(void*)f_10636}, {C_text("f_10669:optimizer_2escm"),(void*)f_10669}, {C_text("f_10680:optimizer_2escm"),(void*)f_10680}, {C_text("f_10693:optimizer_2escm"),(void*)f_10693}, {C_text("f_10726:optimizer_2escm"),(void*)f_10726}, {C_text("f_10733:optimizer_2escm"),(void*)f_10733}, {C_text("f_10735:optimizer_2escm"),(void*)f_10735}, {C_text("f_10739:optimizer_2escm"),(void*)f_10739}, {C_text("f_10743:optimizer_2escm"),(void*)f_10743}, {C_text("f_10749:optimizer_2escm"),(void*)f_10749}, {C_text("f_10758:optimizer_2escm"),(void*)f_10758}, {C_text("f_10764:optimizer_2escm"),(void*)f_10764}, {C_text("f_10767:optimizer_2escm"),(void*)f_10767}, {C_text("f_10773:optimizer_2escm"),(void*)f_10773}, {C_text("f_10776:optimizer_2escm"),(void*)f_10776}, {C_text("f_10777:optimizer_2escm"),(void*)f_10777}, {C_text("f_10784:optimizer_2escm"),(void*)f_10784}, {C_text("f_10787:optimizer_2escm"),(void*)f_10787}, {C_text("f_10793:optimizer_2escm"),(void*)f_10793}, {C_text("f_10808:optimizer_2escm"),(void*)f_10808}, {C_text("f_10850:optimizer_2escm"),(void*)f_10850}, {C_text("f_10856:optimizer_2escm"),(void*)f_10856}, {C_text("f_10865:optimizer_2escm"),(void*)f_10865}, {C_text("f_10868:optimizer_2escm"),(void*)f_10868}, {C_text("f_10874:optimizer_2escm"),(void*)f_10874}, {C_text("f_10877:optimizer_2escm"),(void*)f_10877}, {C_text("f_10885:optimizer_2escm"),(void*)f_10885}, {C_text("f_10892:optimizer_2escm"),(void*)f_10892}, {C_text("f_10896:optimizer_2escm"),(void*)f_10896}, {C_text("f_10904:optimizer_2escm"),(void*)f_10904}, {C_text("f_10909:optimizer_2escm"),(void*)f_10909}, {C_text("f_10919:optimizer_2escm"),(void*)f_10919}, {C_text("f_10932:optimizer_2escm"),(void*)f_10932}, {C_text("f_10959:optimizer_2escm"),(void*)f_10959}, {C_text("f_10963:optimizer_2escm"),(void*)f_10963}, {C_text("f_10967:optimizer_2escm"),(void*)f_10967}, {C_text("f_10971:optimizer_2escm"),(void*)f_10971}, {C_text("f_10975:optimizer_2escm"),(void*)f_10975}, {C_text("f_10992:optimizer_2escm"),(void*)f_10992}, {C_text("f_11001:optimizer_2escm"),(void*)f_11001}, {C_text("f_11011:optimizer_2escm"),(void*)f_11011}, {C_text("f_11024:optimizer_2escm"),(void*)f_11024}, {C_text("f_11035:optimizer_2escm"),(void*)f_11035}, {C_text("f_11037:optimizer_2escm"),(void*)f_11037}, {C_text("f_11051:optimizer_2escm"),(void*)f_11051}, {C_text("f_11055:optimizer_2escm"),(void*)f_11055}, {C_text("f_11058:optimizer_2escm"),(void*)f_11058}, {C_text("f_11061:optimizer_2escm"),(void*)f_11061}, {C_text("f_11076:optimizer_2escm"),(void*)f_11076}, {C_text("f_11079:optimizer_2escm"),(void*)f_11079}, {C_text("f_11104:optimizer_2escm"),(void*)f_11104}, {C_text("f_11107:optimizer_2escm"),(void*)f_11107}, {C_text("f_11110:optimizer_2escm"),(void*)f_11110}, {C_text("f_11143:optimizer_2escm"),(void*)f_11143}, {C_text("f_11153:optimizer_2escm"),(void*)f_11153}, {C_text("f_11156:optimizer_2escm"),(void*)f_11156}, {C_text("f_11159:optimizer_2escm"),(void*)f_11159}, {C_text("f_11162:optimizer_2escm"),(void*)f_11162}, {C_text("f_11173:optimizer_2escm"),(void*)f_11173}, {C_text("f_11185:optimizer_2escm"),(void*)f_11185}, {C_text("f_11193:optimizer_2escm"),(void*)f_11193}, {C_text("f_11212:optimizer_2escm"),(void*)f_11212}, {C_text("f_11235:optimizer_2escm"),(void*)f_11235}, {C_text("f_11238:optimizer_2escm"),(void*)f_11238}, {C_text("f_11260:optimizer_2escm"),(void*)f_11260}, {C_text("f_11285:optimizer_2escm"),(void*)f_11285}, {C_text("f_11300:optimizer_2escm"),(void*)f_11300}, {C_text("f_11310:optimizer_2escm"),(void*)f_11310}, {C_text("f_11329:optimizer_2escm"),(void*)f_11329}, {C_text("f_11339:optimizer_2escm"),(void*)f_11339}, {C_text("f_11358:optimizer_2escm"),(void*)f_11358}, {C_text("f_11398:optimizer_2escm"),(void*)f_11398}, {C_text("f_11400:optimizer_2escm"),(void*)f_11400}, {C_text("f_11408:optimizer_2escm"),(void*)f_11408}, {C_text("f_11410:optimizer_2escm"),(void*)f_11410}, {C_text("f_11420:optimizer_2escm"),(void*)f_11420}, {C_text("f_11423:optimizer_2escm"),(void*)f_11423}, {C_text("f_11425:optimizer_2escm"),(void*)f_11425}, {C_text("f_11428:optimizer_2escm"),(void*)f_11428}, {C_text("f_11472:optimizer_2escm"),(void*)f_11472}, {C_text("f_11476:optimizer_2escm"),(void*)f_11476}, {C_text("f_11478:optimizer_2escm"),(void*)f_11478}, {C_text("f_11482:optimizer_2escm"),(void*)f_11482}, {C_text("f_11485:optimizer_2escm"),(void*)f_11485}, {C_text("f_11488:optimizer_2escm"),(void*)f_11488}, {C_text("f_11509:optimizer_2escm"),(void*)f_11509}, {C_text("f_11523:optimizer_2escm"),(void*)f_11523}, {C_text("f_11540:optimizer_2escm"),(void*)f_11540}, {C_text("f_11571:optimizer_2escm"),(void*)f_11571}, {C_text("f_11584:optimizer_2escm"),(void*)f_11584}, {C_text("f_11592:optimizer_2escm"),(void*)f_11592}, {C_text("f_11599:optimizer_2escm"),(void*)f_11599}, {C_text("f_11606:optimizer_2escm"),(void*)f_11606}, {C_text("f_11610:optimizer_2escm"),(void*)f_11610}, {C_text("f_11614:optimizer_2escm"),(void*)f_11614}, {C_text("f_11618:optimizer_2escm"),(void*)f_11618}, {C_text("f_11628:optimizer_2escm"),(void*)f_11628}, {C_text("f_11646:optimizer_2escm"),(void*)f_11646}, {C_text("f_11652:optimizer_2escm"),(void*)f_11652}, {C_text("f_11659:optimizer_2escm"),(void*)f_11659}, {C_text("f_11669:optimizer_2escm"),(void*)f_11669}, {C_text("f_11678:optimizer_2escm"),(void*)f_11678}, {C_text("f_11690:optimizer_2escm"),(void*)f_11690}, {C_text("f_11700:optimizer_2escm"),(void*)f_11700}, {C_text("f_11723:optimizer_2escm"),(void*)f_11723}, {C_text("f_11726:optimizer_2escm"),(void*)f_11726}, {C_text("f_11727:optimizer_2escm"),(void*)f_11727}, {C_text("f_11735:optimizer_2escm"),(void*)f_11735}, {C_text("f_11738:optimizer_2escm"),(void*)f_11738}, {C_text("f_11742:optimizer_2escm"),(void*)f_11742}, {C_text("f_11752:optimizer_2escm"),(void*)f_11752}, {C_text("f_11764:optimizer_2escm"),(void*)f_11764}, {C_text("f_11769:optimizer_2escm"),(void*)f_11769}, {C_text("f_11778:optimizer_2escm"),(void*)f_11778}, {C_text("f_11785:optimizer_2escm"),(void*)f_11785}, {C_text("f_11789:optimizer_2escm"),(void*)f_11789}, {C_text("f_11791:optimizer_2escm"),(void*)f_11791}, {C_text("f_11816:optimizer_2escm"),(void*)f_11816}, {C_text("f_11827:optimizer_2escm"),(void*)f_11827}, {C_text("f_11831:optimizer_2escm"),(void*)f_11831}, {C_text("f_11837:optimizer_2escm"),(void*)f_11837}, {C_text("f_11840:optimizer_2escm"),(void*)f_11840}, {C_text("f_11843:optimizer_2escm"),(void*)f_11843}, {C_text("f_11846:optimizer_2escm"),(void*)f_11846}, {C_text("f_11849:optimizer_2escm"),(void*)f_11849}, {C_text("f_11852:optimizer_2escm"),(void*)f_11852}, {C_text("f_11853:optimizer_2escm"),(void*)f_11853}, {C_text("f_11857:optimizer_2escm"),(void*)f_11857}, {C_text("f_11858:optimizer_2escm"),(void*)f_11858}, {C_text("f_11872:optimizer_2escm"),(void*)f_11872}, {C_text("f_11876:optimizer_2escm"),(void*)f_11876}, {C_text("f_11880:optimizer_2escm"),(void*)f_11880}, {C_text("f_11884:optimizer_2escm"),(void*)f_11884}, {C_text("f_11888:optimizer_2escm"),(void*)f_11888}, {C_text("f_11892:optimizer_2escm"),(void*)f_11892}, {C_text("f_11900:optimizer_2escm"),(void*)f_11900}, {C_text("f_11910:optimizer_2escm"),(void*)f_11910}, {C_text("f_11922:optimizer_2escm"),(void*)f_11922}, {C_text("f_11930:optimizer_2escm"),(void*)f_11930}, {C_text("f_11940:optimizer_2escm"),(void*)f_11940}, {C_text("f_11960:optimizer_2escm"),(void*)f_11960}, {C_text("f_11970:optimizer_2escm"),(void*)f_11970}, {C_text("f_11983:optimizer_2escm"),(void*)f_11983}, {C_text("f_11993:optimizer_2escm"),(void*)f_11993}, {C_text("f_12003:optimizer_2escm"),(void*)f_12003}, {C_text("f_12015:optimizer_2escm"),(void*)f_12015}, {C_text("f_12019:optimizer_2escm"),(void*)f_12019}, {C_text("f_12031:optimizer_2escm"),(void*)f_12031}, {C_text("f_12035:optimizer_2escm"),(void*)f_12035}, {C_text("f_12039:optimizer_2escm"),(void*)f_12039}, {C_text("f_12043:optimizer_2escm"),(void*)f_12043}, {C_text("f_12047:optimizer_2escm"),(void*)f_12047}, {C_text("f_12051:optimizer_2escm"),(void*)f_12051}, {C_text("f_12059:optimizer_2escm"),(void*)f_12059}, {C_text("f_12061:optimizer_2escm"),(void*)f_12061}, {C_text("f_12077:optimizer_2escm"),(void*)f_12077}, {C_text("f_12089:optimizer_2escm"),(void*)f_12089}, {C_text("f_12097:optimizer_2escm"),(void*)f_12097}, {C_text("f_12105:optimizer_2escm"),(void*)f_12105}, {C_text("f_12113:optimizer_2escm"),(void*)f_12113}, {C_text("f_12115:optimizer_2escm"),(void*)f_12115}, {C_text("f_12123:optimizer_2escm"),(void*)f_12123}, {C_text("f_12127:optimizer_2escm"),(void*)f_12127}, {C_text("f_12133:optimizer_2escm"),(void*)f_12133}, {C_text("f_12158:optimizer_2escm"),(void*)f_12158}, {C_text("f_12162:optimizer_2escm"),(void*)f_12162}, {C_text("f_12182:optimizer_2escm"),(void*)f_12182}, {C_text("f_12188:optimizer_2escm"),(void*)f_12188}, {C_text("f_12192:optimizer_2escm"),(void*)f_12192}, {C_text("f_12205:optimizer_2escm"),(void*)f_12205}, {C_text("f_12209:optimizer_2escm"),(void*)f_12209}, {C_text("f_12213:optimizer_2escm"),(void*)f_12213}, {C_text("f_12217:optimizer_2escm"),(void*)f_12217}, {C_text("f_12224:optimizer_2escm"),(void*)f_12224}, {C_text("f_12226:optimizer_2escm"),(void*)f_12226}, {C_text("f_12251:optimizer_2escm"),(void*)f_12251}, {C_text("f_12262:optimizer_2escm"),(void*)f_12262}, {C_text("f_12268:optimizer_2escm"),(void*)f_12268}, {C_text("f_12291:optimizer_2escm"),(void*)f_12291}, {C_text("f_12293:optimizer_2escm"),(void*)f_12293}, {C_text("f_12327:optimizer_2escm"),(void*)f_12327}, {C_text("f_12352:optimizer_2escm"),(void*)f_12352}, {C_text("f_12365:optimizer_2escm"),(void*)f_12365}, {C_text("f_12374:optimizer_2escm"),(void*)f_12374}, {C_text("f_12384:optimizer_2escm"),(void*)f_12384}, {C_text("f_12413:optimizer_2escm"),(void*)f_12413}, {C_text("f_12435:optimizer_2escm"),(void*)f_12435}, {C_text("f_12453:optimizer_2escm"),(void*)f_12453}, {C_text("f_12461:optimizer_2escm"),(void*)f_12461}, {C_text("f_12463:optimizer_2escm"),(void*)f_12463}, {C_text("f_12471:optimizer_2escm"),(void*)f_12471}, {C_text("f_12483:optimizer_2escm"),(void*)f_12483}, {C_text("f_12487:optimizer_2escm"),(void*)f_12487}, {C_text("f_12495:optimizer_2escm"),(void*)f_12495}, {C_text("f_12499:optimizer_2escm"),(void*)f_12499}, {C_text("f_12510:optimizer_2escm"),(void*)f_12510}, {C_text("f_12529:optimizer_2escm"),(void*)f_12529}, {C_text("f_12533:optimizer_2escm"),(void*)f_12533}, {C_text("f_12559:optimizer_2escm"),(void*)f_12559}, {C_text("f_12574:optimizer_2escm"),(void*)f_12574}, {C_text("f_12578:optimizer_2escm"),(void*)f_12578}, {C_text("f_12632:optimizer_2escm"),(void*)f_12632}, {C_text("f_12656:optimizer_2escm"),(void*)f_12656}, {C_text("f_12669:optimizer_2escm"),(void*)f_12669}, {C_text("f_12677:optimizer_2escm"),(void*)f_12677}, {C_text("f_12715:optimizer_2escm"),(void*)f_12715}, {C_text("f_12725:optimizer_2escm"),(void*)f_12725}, {C_text("f_12729:optimizer_2escm"),(void*)f_12729}, {C_text("f_12732:optimizer_2escm"),(void*)f_12732}, {C_text("f_12735:optimizer_2escm"),(void*)f_12735}, {C_text("f_12765:optimizer_2escm"),(void*)f_12765}, {C_text("f_12768:optimizer_2escm"),(void*)f_12768}, {C_text("f_12771:optimizer_2escm"),(void*)f_12771}, {C_text("f_12801:optimizer_2escm"),(void*)f_12801}, {C_text("f_12828:optimizer_2escm"),(void*)f_12828}, {C_text("f_12832:optimizer_2escm"),(void*)f_12832}, {C_text("f_12835:optimizer_2escm"),(void*)f_12835}, {C_text("f_12838:optimizer_2escm"),(void*)f_12838}, {C_text("f_12844:optimizer_2escm"),(void*)f_12844}, {C_text("f_12867:optimizer_2escm"),(void*)f_12867}, {C_text("f_12882:optimizer_2escm"),(void*)f_12882}, {C_text("f_12890:optimizer_2escm"),(void*)f_12890}, {C_text("f_12892:optimizer_2escm"),(void*)f_12892}, {C_text("f_12942:optimizer_2escm"),(void*)f_12942}, {C_text("f_12950:optimizer_2escm"),(void*)f_12950}, {C_text("f_12958:optimizer_2escm"),(void*)f_12958}, {C_text("f_12966:optimizer_2escm"),(void*)f_12966}, {C_text("f_12994:optimizer_2escm"),(void*)f_12994}, {C_text("f_13002:optimizer_2escm"),(void*)f_13002}, {C_text("f_13028:optimizer_2escm"),(void*)f_13028}, {C_text("f_13041:optimizer_2escm"),(void*)f_13041}, {C_text("f_13058:optimizer_2escm"),(void*)f_13058}, {C_text("f_13062:optimizer_2escm"),(void*)f_13062}, {C_text("f_13066:optimizer_2escm"),(void*)f_13066}, {C_text("f_13077:optimizer_2escm"),(void*)f_13077}, {C_text("f_13081:optimizer_2escm"),(void*)f_13081}, {C_text("f_13155:optimizer_2escm"),(void*)f_13155}, {C_text("f_13168:optimizer_2escm"),(void*)f_13168}, {C_text("f_13174:optimizer_2escm"),(void*)f_13174}, {C_text("f_13197:optimizer_2escm"),(void*)f_13197}, {C_text("f_13201:optimizer_2escm"),(void*)f_13201}, {C_text("f_13205:optimizer_2escm"),(void*)f_13205}, {C_text("f_13214:optimizer_2escm"),(void*)f_13214}, {C_text("f_13223:optimizer_2escm"),(void*)f_13223}, {C_text("f_13227:optimizer_2escm"),(void*)f_13227}, {C_text("f_13325:optimizer_2escm"),(void*)f_13325}, {C_text("f_13333:optimizer_2escm"),(void*)f_13333}, {C_text("f_13338:optimizer_2escm"),(void*)f_13338}, {C_text("f_13348:optimizer_2escm"),(void*)f_13348}, {C_text("f_13352:optimizer_2escm"),(void*)f_13352}, {C_text("f_3213:optimizer_2escm"),(void*)f_3213}, {C_text("f_3216:optimizer_2escm"),(void*)f_3216}, {C_text("f_3219:optimizer_2escm"),(void*)f_3219}, {C_text("f_3222:optimizer_2escm"),(void*)f_3222}, {C_text("f_3225:optimizer_2escm"),(void*)f_3225}, {C_text("f_3228:optimizer_2escm"),(void*)f_3228}, {C_text("f_3236:optimizer_2escm"),(void*)f_3236}, {C_text("f_3250:optimizer_2escm"),(void*)f_3250}, {C_text("f_3254:optimizer_2escm"),(void*)f_3254}, {C_text("f_3260:optimizer_2escm"),(void*)f_3260}, {C_text("f_3338:optimizer_2escm"),(void*)f_3338}, {C_text("f_3356:optimizer_2escm"),(void*)f_3356}, {C_text("f_3390:optimizer_2escm"),(void*)f_3390}, {C_text("f_3396:optimizer_2escm"),(void*)f_3396}, {C_text("f_3410:optimizer_2escm"),(void*)f_3410}, {C_text("f_3429:optimizer_2escm"),(void*)f_3429}, {C_text("f_3444:optimizer_2escm"),(void*)f_3444}, {C_text("f_3452:optimizer_2escm"),(void*)f_3452}, {C_text("f_3460:optimizer_2escm"),(void*)f_3460}, {C_text("f_3471:optimizer_2escm"),(void*)f_3471}, {C_text("f_3484:optimizer_2escm"),(void*)f_3484}, {C_text("f_3491:optimizer_2escm"),(void*)f_3491}, {C_text("f_3498:optimizer_2escm"),(void*)f_3498}, {C_text("f_3502:optimizer_2escm"),(void*)f_3502}, {C_text("f_3514:optimizer_2escm"),(void*)f_3514}, {C_text("f_3516:optimizer_2escm"),(void*)f_3516}, {C_text("f_3563:optimizer_2escm"),(void*)f_3563}, {C_text("f_3565:optimizer_2escm"),(void*)f_3565}, {C_text("f_3599:optimizer_2escm"),(void*)f_3599}, {C_text("f_3605:optimizer_2escm"),(void*)f_3605}, {C_text("f_3627:optimizer_2escm"),(void*)f_3627}, {C_text("f_3633:optimizer_2escm"),(void*)f_3633}, {C_text("f_3639:optimizer_2escm"),(void*)f_3639}, {C_text("f_3649:optimizer_2escm"),(void*)f_3649}, {C_text("f_3663:optimizer_2escm"),(void*)f_3663}, {C_text("f_3669:optimizer_2escm"),(void*)f_3669}, {C_text("f_3683:optimizer_2escm"),(void*)f_3683}, {C_text("f_3719:optimizer_2escm"),(void*)f_3719}, {C_text("f_3725:optimizer_2escm"),(void*)f_3725}, {C_text("f_3738:optimizer_2escm"),(void*)f_3738}, {C_text("f_3752:optimizer_2escm"),(void*)f_3752}, {C_text("f_3760:optimizer_2escm"),(void*)f_3760}, {C_text("f_3800:optimizer_2escm"),(void*)f_3800}, {C_text("f_3814:optimizer_2escm"),(void*)f_3814}, {C_text("f_3827:optimizer_2escm"),(void*)f_3827}, {C_text("f_3839:optimizer_2escm"),(void*)f_3839}, {C_text("f_3848:optimizer_2escm"),(void*)f_3848}, {C_text("f_3856:optimizer_2escm"),(void*)f_3856}, {C_text("f_3863:optimizer_2escm"),(void*)f_3863}, {C_text("f_3877:optimizer_2escm"),(void*)f_3877}, {C_text("f_3892:optimizer_2escm"),(void*)f_3892}, {C_text("f_3900:optimizer_2escm"),(void*)f_3900}, {C_text("f_3904:optimizer_2escm"),(void*)f_3904}, {C_text("f_3908:optimizer_2escm"),(void*)f_3908}, {C_text("f_3926:optimizer_2escm"),(void*)f_3926}, {C_text("f_3965:optimizer_2escm"),(void*)f_3965}, {C_text("f_4005:optimizer_2escm"),(void*)f_4005}, {C_text("f_4064:optimizer_2escm"),(void*)f_4064}, {C_text("f_4241:optimizer_2escm"),(void*)f_4241}, {C_text("f_4247:optimizer_2escm"),(void*)f_4247}, {C_text("f_4261:optimizer_2escm"),(void*)f_4261}, {C_text("f_4265:optimizer_2escm"),(void*)f_4265}, {C_text("f_4277:optimizer_2escm"),(void*)f_4277}, {C_text("f_4295:optimizer_2escm"),(void*)f_4295}, {C_text("f_4510:optimizer_2escm"),(void*)f_4510}, {C_text("f_4514:optimizer_2escm"),(void*)f_4514}, {C_text("f_4518:optimizer_2escm"),(void*)f_4518}, {C_text("f_4522:optimizer_2escm"),(void*)f_4522}, {C_text("f_4524:optimizer_2escm"),(void*)f_4524}, {C_text("f_4527:optimizer_2escm"),(void*)f_4527}, {C_text("f_4534:optimizer_2escm"),(void*)f_4534}, {C_text("f_4550:optimizer_2escm"),(void*)f_4550}, {C_text("f_4555:optimizer_2escm"),(void*)f_4555}, {C_text("f_4557:optimizer_2escm"),(void*)f_4557}, {C_text("f_4562:optimizer_2escm"),(void*)f_4562}, {C_text("f_4564:optimizer_2escm"),(void*)f_4564}, {C_text("f_4580:optimizer_2escm"),(void*)f_4580}, {C_text("f_4590:optimizer_2escm"),(void*)f_4590}, {C_text("f_4603:optimizer_2escm"),(void*)f_4603}, {C_text("f_4607:optimizer_2escm"),(void*)f_4607}, {C_text("f_4610:optimizer_2escm"),(void*)f_4610}, {C_text("f_4613:optimizer_2escm"),(void*)f_4613}, {C_text("f_4625:optimizer_2escm"),(void*)f_4625}, {C_text("f_4629:optimizer_2escm"),(void*)f_4629}, {C_text("f_4631:optimizer_2escm"),(void*)f_4631}, {C_text("f_4646:optimizer_2escm"),(void*)f_4646}, {C_text("f_4673:optimizer_2escm"),(void*)f_4673}, {C_text("f_4676:optimizer_2escm"),(void*)f_4676}, {C_text("f_4699:optimizer_2escm"),(void*)f_4699}, {C_text("f_4710:optimizer_2escm"),(void*)f_4710}, {C_text("f_4714:optimizer_2escm"),(void*)f_4714}, {C_text("f_4747:optimizer_2escm"),(void*)f_4747}, {C_text("f_4750:optimizer_2escm"),(void*)f_4750}, {C_text("f_4753:optimizer_2escm"),(void*)f_4753}, {C_text("f_4756:optimizer_2escm"),(void*)f_4756}, {C_text("f_4768:optimizer_2escm"),(void*)f_4768}, {C_text("f_4771:optimizer_2escm"),(void*)f_4771}, {C_text("f_4778:optimizer_2escm"),(void*)f_4778}, {C_text("f_4821:optimizer_2escm"),(void*)f_4821}, {C_text("f_4824:optimizer_2escm"),(void*)f_4824}, {C_text("f_4827:optimizer_2escm"),(void*)f_4827}, {C_text("f_4840:optimizer_2escm"),(void*)f_4840}, {C_text("f_4850:optimizer_2escm"),(void*)f_4850}, {C_text("f_4871:optimizer_2escm"),(void*)f_4871}, {C_text("f_4875:optimizer_2escm"),(void*)f_4875}, {C_text("f_4879:optimizer_2escm"),(void*)f_4879}, {C_text("f_4882:optimizer_2escm"),(void*)f_4882}, {C_text("f_4896:optimizer_2escm"),(void*)f_4896}, {C_text("f_4906:optimizer_2escm"),(void*)f_4906}, {C_text("f_4908:optimizer_2escm"),(void*)f_4908}, {C_text("f_4912:optimizer_2escm"),(void*)f_4912}, {C_text("f_4926:optimizer_2escm"),(void*)f_4926}, {C_text("f_4949:optimizer_2escm"),(void*)f_4949}, {C_text("f_4953:optimizer_2escm"),(void*)f_4953}, {C_text("f_4956:optimizer_2escm"),(void*)f_4956}, {C_text("f_4964:optimizer_2escm"),(void*)f_4964}, {C_text("f_4974:optimizer_2escm"),(void*)f_4974}, {C_text("f_4980:optimizer_2escm"),(void*)f_4980}, {C_text("f_5019:optimizer_2escm"),(void*)f_5019}, {C_text("f_5033:optimizer_2escm"),(void*)f_5033}, {C_text("f_5035:optimizer_2escm"),(void*)f_5035}, {C_text("f_5075:optimizer_2escm"),(void*)f_5075}, {C_text("f_5077:optimizer_2escm"),(void*)f_5077}, {C_text("f_5091:optimizer_2escm"),(void*)f_5091}, {C_text("f_5094:optimizer_2escm"),(void*)f_5094}, {C_text("f_5097:optimizer_2escm"),(void*)f_5097}, {C_text("f_5100:optimizer_2escm"),(void*)f_5100}, {C_text("f_5109:optimizer_2escm"),(void*)f_5109}, {C_text("f_5124:optimizer_2escm"),(void*)f_5124}, {C_text("f_5151:optimizer_2escm"),(void*)f_5151}, {C_text("f_5164:optimizer_2escm"),(void*)f_5164}, {C_text("f_5168:optimizer_2escm"),(void*)f_5168}, {C_text("f_5175:optimizer_2escm"),(void*)f_5175}, {C_text("f_5204:optimizer_2escm"),(void*)f_5204}, {C_text("f_5208:optimizer_2escm"),(void*)f_5208}, {C_text("f_5212:optimizer_2escm"),(void*)f_5212}, {C_text("f_5216:optimizer_2escm"),(void*)f_5216}, {C_text("f_5219:optimizer_2escm"),(void*)f_5219}, {C_text("f_5224:optimizer_2escm"),(void*)f_5224}, {C_text("f_5228:optimizer_2escm"),(void*)f_5228}, {C_text("f_5231:optimizer_2escm"),(void*)f_5231}, {C_text("f_5234:optimizer_2escm"),(void*)f_5234}, {C_text("f_5243:optimizer_2escm"),(void*)f_5243}, {C_text("f_5249:optimizer_2escm"),(void*)f_5249}, {C_text("f_5255:optimizer_2escm"),(void*)f_5255}, {C_text("f_5266:optimizer_2escm"),(void*)f_5266}, {C_text("f_5270:optimizer_2escm"),(void*)f_5270}, {C_text("f_5293:optimizer_2escm"),(void*)f_5293}, {C_text("f_5303:optimizer_2escm"),(void*)f_5303}, {C_text("f_5306:optimizer_2escm"),(void*)f_5306}, {C_text("f_5323:optimizer_2escm"),(void*)f_5323}, {C_text("f_5356:optimizer_2escm"),(void*)f_5356}, {C_text("f_5359:optimizer_2escm"),(void*)f_5359}, {C_text("f_5374:optimizer_2escm"),(void*)f_5374}, {C_text("f_5382:optimizer_2escm"),(void*)f_5382}, {C_text("f_5392:optimizer_2escm"),(void*)f_5392}, {C_text("f_5394:optimizer_2escm"),(void*)f_5394}, {C_text("f_5419:optimizer_2escm"),(void*)f_5419}, {C_text("f_5429:optimizer_2escm"),(void*)f_5429}, {C_text("f_5440:optimizer_2escm"),(void*)f_5440}, {C_text("f_5458:optimizer_2escm"),(void*)f_5458}, {C_text("f_5466:optimizer_2escm"),(void*)f_5466}, {C_text("f_5476:optimizer_2escm"),(void*)f_5476}, {C_text("f_5483:optimizer_2escm"),(void*)f_5483}, {C_text("f_5501:optimizer_2escm"),(void*)f_5501}, {C_text("f_5506:optimizer_2escm"),(void*)f_5506}, {C_text("f_5512:optimizer_2escm"),(void*)f_5512}, {C_text("f_5518:optimizer_2escm"),(void*)f_5518}, {C_text("f_5524:optimizer_2escm"),(void*)f_5524}, {C_text("f_5531:optimizer_2escm"),(void*)f_5531}, {C_text("f_5546:optimizer_2escm"),(void*)f_5546}, {C_text("f_5566:optimizer_2escm"),(void*)f_5566}, {C_text("f_5573:optimizer_2escm"),(void*)f_5573}, {C_text("f_5576:optimizer_2escm"),(void*)f_5576}, {C_text("f_5593:optimizer_2escm"),(void*)f_5593}, {C_text("f_5598:optimizer_2escm"),(void*)f_5598}, {C_text("f_5605:optimizer_2escm"),(void*)f_5605}, {C_text("f_5620:optimizer_2escm"),(void*)f_5620}, {C_text("f_5640:optimizer_2escm"),(void*)f_5640}, {C_text("f_5674:optimizer_2escm"),(void*)f_5674}, {C_text("f_5686:optimizer_2escm"),(void*)f_5686}, {C_text("f_5689:optimizer_2escm"),(void*)f_5689}, {C_text("f_5696:optimizer_2escm"),(void*)f_5696}, {C_text("f_5699:optimizer_2escm"),(void*)f_5699}, {C_text("f_5705:optimizer_2escm"),(void*)f_5705}, {C_text("f_5708:optimizer_2escm"),(void*)f_5708}, {C_text("f_5712:optimizer_2escm"),(void*)f_5712}, {C_text("f_5722:optimizer_2escm"),(void*)f_5722}, {C_text("f_5729:optimizer_2escm"),(void*)f_5729}, {C_text("f_5737:optimizer_2escm"),(void*)f_5737}, {C_text("f_5739:optimizer_2escm"),(void*)f_5739}, {C_text("f_5749:optimizer_2escm"),(void*)f_5749}, {C_text("f_5766:optimizer_2escm"),(void*)f_5766}, {C_text("f_5769:optimizer_2escm"),(void*)f_5769}, {C_text("f_5772:optimizer_2escm"),(void*)f_5772}, {C_text("f_5791:optimizer_2escm"),(void*)f_5791}, {C_text("f_5797:optimizer_2escm"),(void*)f_5797}, {C_text("f_5800:optimizer_2escm"),(void*)f_5800}, {C_text("f_5808:optimizer_2escm"),(void*)f_5808}, {C_text("f_5815:optimizer_2escm"),(void*)f_5815}, {C_text("f_5821:optimizer_2escm"),(void*)f_5821}, {C_text("f_5824:optimizer_2escm"),(void*)f_5824}, {C_text("f_5825:optimizer_2escm"),(void*)f_5825}, {C_text("f_5835:optimizer_2escm"),(void*)f_5835}, {C_text("f_5838:optimizer_2escm"),(void*)f_5838}, {C_text("f_5841:optimizer_2escm"),(void*)f_5841}, {C_text("f_5846:optimizer_2escm"),(void*)f_5846}, {C_text("f_5849:optimizer_2escm"),(void*)f_5849}, {C_text("f_5853:optimizer_2escm"),(void*)f_5853}, {C_text("f_5860:optimizer_2escm"),(void*)f_5860}, {C_text("f_5863:optimizer_2escm"),(void*)f_5863}, {C_text("f_5877:optimizer_2escm"),(void*)f_5877}, {C_text("f_5879:optimizer_2escm"),(void*)f_5879}, {C_text("f_5889:optimizer_2escm"),(void*)f_5889}, {C_text("f_5914:optimizer_2escm"),(void*)f_5914}, {C_text("f_5928:optimizer_2escm"),(void*)f_5928}, {C_text("f_5938:optimizer_2escm"),(void*)f_5938}, {C_text("f_5945:optimizer_2escm"),(void*)f_5945}, {C_text("f_5955:optimizer_2escm"),(void*)f_5955}, {C_text("f_5958:optimizer_2escm"),(void*)f_5958}, {C_text("f_5963:optimizer_2escm"),(void*)f_5963}, {C_text("f_5988:optimizer_2escm"),(void*)f_5988}, {C_text("f_5999:optimizer_2escm"),(void*)f_5999}, {C_text("f_6003:optimizer_2escm"),(void*)f_6003}, {C_text("f_6009:optimizer_2escm"),(void*)f_6009}, {C_text("f_6015:optimizer_2escm"),(void*)f_6015}, {C_text("f_6021:optimizer_2escm"),(void*)f_6021}, {C_text("f_6036:optimizer_2escm"),(void*)f_6036}, {C_text("f_6040:optimizer_2escm"),(void*)f_6040}, {C_text("f_6052:optimizer_2escm"),(void*)f_6052}, {C_text("f_6099:optimizer_2escm"),(void*)f_6099}, {C_text("f_6102:optimizer_2escm"),(void*)f_6102}, {C_text("f_6114:optimizer_2escm"),(void*)f_6114}, {C_text("f_6119:optimizer_2escm"),(void*)f_6119}, {C_text("f_6125:optimizer_2escm"),(void*)f_6125}, {C_text("f_6129:optimizer_2escm"),(void*)f_6129}, {C_text("f_6136:optimizer_2escm"),(void*)f_6136}, {C_text("f_6141:optimizer_2escm"),(void*)f_6141}, {C_text("f_6151:optimizer_2escm"),(void*)f_6151}, {C_text("f_6153:optimizer_2escm"),(void*)f_6153}, {C_text("f_6178:optimizer_2escm"),(void*)f_6178}, {C_text("f_6189:optimizer_2escm"),(void*)f_6189}, {C_text("f_6197:optimizer_2escm"),(void*)f_6197}, {C_text("f_6226:optimizer_2escm"),(void*)f_6226}, {C_text("f_6239:optimizer_2escm"),(void*)f_6239}, {C_text("f_6254:optimizer_2escm"),(void*)f_6254}, {C_text("f_6276:optimizer_2escm"),(void*)f_6276}, {C_text("f_6280:optimizer_2escm"),(void*)f_6280}, {C_text("f_6284:optimizer_2escm"),(void*)f_6284}, {C_text("f_6290:optimizer_2escm"),(void*)f_6290}, {C_text("f_6293:optimizer_2escm"),(void*)f_6293}, {C_text("f_6300:optimizer_2escm"),(void*)f_6300}, {C_text("f_6314:optimizer_2escm"),(void*)f_6314}, {C_text("f_6334:optimizer_2escm"),(void*)f_6334}, {C_text("f_6338:optimizer_2escm"),(void*)f_6338}, {C_text("f_6345:optimizer_2escm"),(void*)f_6345}, {C_text("f_6360:optimizer_2escm"),(void*)f_6360}, {C_text("f_6378:optimizer_2escm"),(void*)f_6378}, {C_text("f_6381:optimizer_2escm"),(void*)f_6381}, {C_text("f_6391:optimizer_2escm"),(void*)f_6391}, {C_text("f_6393:optimizer_2escm"),(void*)f_6393}, {C_text("f_6412:optimizer_2escm"),(void*)f_6412}, {C_text("f_6418:optimizer_2escm"),(void*)f_6418}, {C_text("f_6428:optimizer_2escm"),(void*)f_6428}, {C_text("f_6432:optimizer_2escm"),(void*)f_6432}, {C_text("f_6442:optimizer_2escm"),(void*)f_6442}, {C_text("f_6446:optimizer_2escm"),(void*)f_6446}, {C_text("f_6452:optimizer_2escm"),(void*)f_6452}, {C_text("f_6459:optimizer_2escm"),(void*)f_6459}, {C_text("f_6472:optimizer_2escm"),(void*)f_6472}, {C_text("f_6480:optimizer_2escm"),(void*)f_6480}, {C_text("f_6484:optimizer_2escm"),(void*)f_6484}, {C_text("f_6490:optimizer_2escm"),(void*)f_6490}, {C_text("f_6500:optimizer_2escm"),(void*)f_6500}, {C_text("f_6504:optimizer_2escm"),(void*)f_6504}, {C_text("f_6522:optimizer_2escm"),(void*)f_6522}, {C_text("f_6525:optimizer_2escm"),(void*)f_6525}, {C_text("f_6534:optimizer_2escm"),(void*)f_6534}, {C_text("f_6541:optimizer_2escm"),(void*)f_6541}, {C_text("f_6543:optimizer_2escm"),(void*)f_6543}, {C_text("f_6568:optimizer_2escm"),(void*)f_6568}, {C_text("f_6601:optimizer_2escm"),(void*)f_6601}, {C_text("f_6607:optimizer_2escm"),(void*)f_6607}, {C_text("f_6613:optimizer_2escm"),(void*)f_6613}, {C_text("f_6622:optimizer_2escm"),(void*)f_6622}, {C_text("f_6634:optimizer_2escm"),(void*)f_6634}, {C_text("f_6640:optimizer_2escm"),(void*)f_6640}, {C_text("f_6646:optimizer_2escm"),(void*)f_6646}, {C_text("f_6655:optimizer_2escm"),(void*)f_6655}, {C_text("f_6657:optimizer_2escm"),(void*)f_6657}, {C_text("f_6667:optimizer_2escm"),(void*)f_6667}, {C_text("f_6681:optimizer_2escm"),(void*)f_6681}, {C_text("f_6682:optimizer_2escm"),(void*)f_6682}, {C_text("f_6699:optimizer_2escm"),(void*)f_6699}, {C_text("f_6723:optimizer_2escm"),(void*)f_6723}, {C_text("f_6733:optimizer_2escm"),(void*)f_6733}, {C_text("f_6752:optimizer_2escm"),(void*)f_6752}, {C_text("f_6760:optimizer_2escm"),(void*)f_6760}, {C_text("f_6764:optimizer_2escm"),(void*)f_6764}, {C_text("f_6771:optimizer_2escm"),(void*)f_6771}, {C_text("f_6775:optimizer_2escm"),(void*)f_6775}, {C_text("f_6792:optimizer_2escm"),(void*)f_6792}, {C_text("f_6798:optimizer_2escm"),(void*)f_6798}, {C_text("f_6808:optimizer_2escm"),(void*)f_6808}, {C_text("f_6818:optimizer_2escm"),(void*)f_6818}, {C_text("f_6824:optimizer_2escm"),(void*)f_6824}, {C_text("f_6831:optimizer_2escm"),(void*)f_6831}, {C_text("f_6852:optimizer_2escm"),(void*)f_6852}, {C_text("f_6858:optimizer_2escm"),(void*)f_6858}, {C_text("f_6862:optimizer_2escm"),(void*)f_6862}, {C_text("f_6865:optimizer_2escm"),(void*)f_6865}, {C_text("f_6868:optimizer_2escm"),(void*)f_6868}, {C_text("f_6871:optimizer_2escm"),(void*)f_6871}, {C_text("f_6874:optimizer_2escm"),(void*)f_6874}, {C_text("f_6877:optimizer_2escm"),(void*)f_6877}, {C_text("f_6906:optimizer_2escm"),(void*)f_6906}, {C_text("f_6910:optimizer_2escm"),(void*)f_6910}, {C_text("f_6915:optimizer_2escm"),(void*)f_6915}, {C_text("f_6943:optimizer_2escm"),(void*)f_6943}, {C_text("f_6953:optimizer_2escm"),(void*)f_6953}, {C_text("f_6975:optimizer_2escm"),(void*)f_6975}, {C_text("f_6979:optimizer_2escm"),(void*)f_6979}, {C_text("f_6986:optimizer_2escm"),(void*)f_6986}, {C_text("f_6989:optimizer_2escm"),(void*)f_6989}, {C_text("f_6992:optimizer_2escm"),(void*)f_6992}, {C_text("f_7001:optimizer_2escm"),(void*)f_7001}, {C_text("f_7002:optimizer_2escm"),(void*)f_7002}, {C_text("f_7009:optimizer_2escm"),(void*)f_7009}, {C_text("f_7015:optimizer_2escm"),(void*)f_7015}, {C_text("f_7018:optimizer_2escm"),(void*)f_7018}, {C_text("f_7024:optimizer_2escm"),(void*)f_7024}, {C_text("f_7033:optimizer_2escm"),(void*)f_7033}, {C_text("f_7039:optimizer_2escm"),(void*)f_7039}, {C_text("f_7045:optimizer_2escm"),(void*)f_7045}, {C_text("f_7051:optimizer_2escm"),(void*)f_7051}, {C_text("f_7060:optimizer_2escm"),(void*)f_7060}, {C_text("f_7067:optimizer_2escm"),(void*)f_7067}, {C_text("f_7070:optimizer_2escm"),(void*)f_7070}, {C_text("f_7073:optimizer_2escm"),(void*)f_7073}, {C_text("f_7088:optimizer_2escm"),(void*)f_7088}, {C_text("f_7108:optimizer_2escm"),(void*)f_7108}, {C_text("f_7112:optimizer_2escm"),(void*)f_7112}, {C_text("f_7116:optimizer_2escm"),(void*)f_7116}, {C_text("f_7129:optimizer_2escm"),(void*)f_7129}, {C_text("f_7148:optimizer_2escm"),(void*)f_7148}, {C_text("f_7152:optimizer_2escm"),(void*)f_7152}, {C_text("f_7174:optimizer_2escm"),(void*)f_7174}, {C_text("f_7194:optimizer_2escm"),(void*)f_7194}, {C_text("f_7198:optimizer_2escm"),(void*)f_7198}, {C_text("f_7205:optimizer_2escm"),(void*)f_7205}, {C_text("f_7216:optimizer_2escm"),(void*)f_7216}, {C_text("f_7226:optimizer_2escm"),(void*)f_7226}, {C_text("f_7246:optimizer_2escm"),(void*)f_7246}, {C_text("f_7249:optimizer_2escm"),(void*)f_7249}, {C_text("f_7252:optimizer_2escm"),(void*)f_7252}, {C_text("f_7267:optimizer_2escm"),(void*)f_7267}, {C_text("f_7269:optimizer_2escm"),(void*)f_7269}, {C_text("f_7275:optimizer_2escm"),(void*)f_7275}, {C_text("f_7299:optimizer_2escm"),(void*)f_7299}, {C_text("f_7312:optimizer_2escm"),(void*)f_7312}, {C_text("f_7321:optimizer_2escm"),(void*)f_7321}, {C_text("f_7324:optimizer_2escm"),(void*)f_7324}, {C_text("f_7325:optimizer_2escm"),(void*)f_7325}, {C_text("f_7335:optimizer_2escm"),(void*)f_7335}, {C_text("f_7343:optimizer_2escm"),(void*)f_7343}, {C_text("f_7351:optimizer_2escm"),(void*)f_7351}, {C_text("f_7357:optimizer_2escm"),(void*)f_7357}, {C_text("f_7370:optimizer_2escm"),(void*)f_7370}, {C_text("f_7384:optimizer_2escm"),(void*)f_7384}, {C_text("f_7385:optimizer_2escm"),(void*)f_7385}, {C_text("f_7392:optimizer_2escm"),(void*)f_7392}, {C_text("f_7400:optimizer_2escm"),(void*)f_7400}, {C_text("f_7402:optimizer_2escm"),(void*)f_7402}, {C_text("f_7415:optimizer_2escm"),(void*)f_7415}, {C_text("f_7426:optimizer_2escm"),(void*)f_7426}, {C_text("f_7432:optimizer_2escm"),(void*)f_7432}, {C_text("f_7444:optimizer_2escm"),(void*)f_7444}, {C_text("f_7447:optimizer_2escm"),(void*)f_7447}, {C_text("f_7450:optimizer_2escm"),(void*)f_7450}, {C_text("f_7459:optimizer_2escm"),(void*)f_7459}, {C_text("f_7467:optimizer_2escm"),(void*)f_7467}, {C_text("f_7483:optimizer_2escm"),(void*)f_7483}, {C_text("f_7496:optimizer_2escm"),(void*)f_7496}, {C_text("f_7520:optimizer_2escm"),(void*)f_7520}, {C_text("f_7544:optimizer_2escm"),(void*)f_7544}, {C_text("f_7555:optimizer_2escm"),(void*)f_7555}, {C_text("f_7567:optimizer_2escm"),(void*)f_7567}, {C_text("f_7575:optimizer_2escm"),(void*)f_7575}, {C_text("f_7591:optimizer_2escm"),(void*)f_7591}, {C_text("f_7611:optimizer_2escm"),(void*)f_7611}, {C_text("f_7622:optimizer_2escm"),(void*)f_7622}, {C_text("f_7653:optimizer_2escm"),(void*)f_7653}, {C_text("f_7659:optimizer_2escm"),(void*)f_7659}, {C_text("f_7669:optimizer_2escm"),(void*)f_7669}, {C_text("f_7682:optimizer_2escm"),(void*)f_7682}, {C_text("f_7692:optimizer_2escm"),(void*)f_7692}, {C_text("f_7705:optimizer_2escm"),(void*)f_7705}, {C_text("f_7715:optimizer_2escm"),(void*)f_7715}, {C_text("f_7742:optimizer_2escm"),(void*)f_7742}, {C_text("f_7792:optimizer_2escm"),(void*)f_7792}, {C_text("f_7794:optimizer_2escm"),(void*)f_7794}, {C_text("f_7798:optimizer_2escm"),(void*)f_7798}, {C_text("f_7808:optimizer_2escm"),(void*)f_7808}, {C_text("f_7817:optimizer_2escm"),(void*)f_7817}, {C_text("f_7827:optimizer_2escm"),(void*)f_7827}, {C_text("f_7842:optimizer_2escm"),(void*)f_7842}, {C_text("f_7877:optimizer_2escm"),(void*)f_7877}, {C_text("f_7907:optimizer_2escm"),(void*)f_7907}, {C_text("f_7910:optimizer_2escm"),(void*)f_7910}, {C_text("f_7931:optimizer_2escm"),(void*)f_7931}, {C_text("f_7981:optimizer_2escm"),(void*)f_7981}, {C_text("f_7985:optimizer_2escm"),(void*)f_7985}, {C_text("f_7989:optimizer_2escm"),(void*)f_7989}, {C_text("f_7993:optimizer_2escm"),(void*)f_7993}, {C_text("f_7997:optimizer_2escm"),(void*)f_7997}, {C_text("f_8026:optimizer_2escm"),(void*)f_8026}, {C_text("f_8053:optimizer_2escm"),(void*)f_8053}, {C_text("f_8084:optimizer_2escm"),(void*)f_8084}, {C_text("f_8093:optimizer_2escm"),(void*)f_8093}, {C_text("f_8101:optimizer_2escm"),(void*)f_8101}, {C_text("f_8125:optimizer_2escm"),(void*)f_8125}, {C_text("f_8136:optimizer_2escm"),(void*)f_8136}, {C_text("f_8155:optimizer_2escm"),(void*)f_8155}, {C_text("f_8198:optimizer_2escm"),(void*)f_8198}, {C_text("f_8213:optimizer_2escm"),(void*)f_8213}, {C_text("f_8221:optimizer_2escm"),(void*)f_8221}, {C_text("f_8257:optimizer_2escm"),(void*)f_8257}, {C_text("f_8290:optimizer_2escm"),(void*)f_8290}, {C_text("f_8306:optimizer_2escm"),(void*)f_8306}, {C_text("f_8352:optimizer_2escm"),(void*)f_8352}, {C_text("f_8367:optimizer_2escm"),(void*)f_8367}, {C_text("f_8379:optimizer_2escm"),(void*)f_8379}, {C_text("f_8426:optimizer_2escm"),(void*)f_8426}, {C_text("f_8441:optimizer_2escm"),(void*)f_8441}, {C_text("f_8449:optimizer_2escm"),(void*)f_8449}, {C_text("f_8457:optimizer_2escm"),(void*)f_8457}, {C_text("f_8488:optimizer_2escm"),(void*)f_8488}, {C_text("f_8509:optimizer_2escm"),(void*)f_8509}, {C_text("f_8530:optimizer_2escm"),(void*)f_8530}, {C_text("f_8536:optimizer_2escm"),(void*)f_8536}, {C_text("f_8539:optimizer_2escm"),(void*)f_8539}, {C_text("f_8550:optimizer_2escm"),(void*)f_8550}, {C_text("f_8559:optimizer_2escm"),(void*)f_8559}, {C_text("f_8564:optimizer_2escm"),(void*)f_8564}, {C_text("f_8589:optimizer_2escm"),(void*)f_8589}, {C_text("f_8591:optimizer_2escm"),(void*)f_8591}, {C_text("f_8631:optimizer_2escm"),(void*)f_8631}, {C_text("f_8641:optimizer_2escm"),(void*)f_8641}, {C_text("f_8666:optimizer_2escm"),(void*)f_8666}, {C_text("f_8675:optimizer_2escm"),(void*)f_8675}, {C_text("f_8700:optimizer_2escm"),(void*)f_8700}, {C_text("f_8764:optimizer_2escm"),(void*)f_8764}, {C_text("f_8773:optimizer_2escm"),(void*)f_8773}, {C_text("f_8788:optimizer_2escm"),(void*)f_8788}, {C_text("f_8796:optimizer_2escm"),(void*)f_8796}, {C_text("f_8800:optimizer_2escm"),(void*)f_8800}, {C_text("f_8853:optimizer_2escm"),(void*)f_8853}, {C_text("f_8865:optimizer_2escm"),(void*)f_8865}, {C_text("f_8876:optimizer_2escm"),(void*)f_8876}, {C_text("f_8880:optimizer_2escm"),(void*)f_8880}, {C_text("f_8914:optimizer_2escm"),(void*)f_8914}, {C_text("f_8960:optimizer_2escm"),(void*)f_8960}, {C_text("f_8964:optimizer_2escm"),(void*)f_8964}, {C_text("f_8993:optimizer_2escm"),(void*)f_8993}, {C_text("f_9008:optimizer_2escm"),(void*)f_9008}, {C_text("f_9018:optimizer_2escm"),(void*)f_9018}, {C_text("f_9022:optimizer_2escm"),(void*)f_9022}, {C_text("f_9026:optimizer_2escm"),(void*)f_9026}, {C_text("f_9063:optimizer_2escm"),(void*)f_9063}, {C_text("f_9093:optimizer_2escm"),(void*)f_9093}, {C_text("f_9146:optimizer_2escm"),(void*)f_9146}, {C_text("f_9163:optimizer_2escm"),(void*)f_9163}, {C_text("f_9167:optimizer_2escm"),(void*)f_9167}, {C_text("f_9229:optimizer_2escm"),(void*)f_9229}, {C_text("f_9247:optimizer_2escm"),(void*)f_9247}, {C_text("f_9268:optimizer_2escm"),(void*)f_9268}, {C_text("f_9276:optimizer_2escm"),(void*)f_9276}, {C_text("f_9359:optimizer_2escm"),(void*)f_9359}, {C_text("f_9374:optimizer_2escm"),(void*)f_9374}, {C_text("f_9427:optimizer_2escm"),(void*)f_9427}, {C_text("f_9442:optimizer_2escm"),(void*)f_9442}, {C_text("f_9461:optimizer_2escm"),(void*)f_9461}, {C_text("f_9470:optimizer_2escm"),(void*)f_9470}, {C_text("f_9486:optimizer_2escm"),(void*)f_9486}, {C_text("f_9508:optimizer_2escm"),(void*)f_9508}, {C_text("f_9511:optimizer_2escm"),(void*)f_9511}, {C_text("f_9514:optimizer_2escm"),(void*)f_9514}, {C_text("f_9529:optimizer_2escm"),(void*)f_9529}, {C_text("f_9533:optimizer_2escm"),(void*)f_9533}, {C_text("f_9543:optimizer_2escm"),(void*)f_9543}, {C_text("f_9555:optimizer_2escm"),(void*)f_9555}, {C_text("f_9567:optimizer_2escm"),(void*)f_9567}, {C_text("f_9571:optimizer_2escm"),(void*)f_9571}, {C_text("f_9613:optimizer_2escm"),(void*)f_9613}, {C_text("f_9628:optimizer_2escm"),(void*)f_9628}, {C_text("f_9636:optimizer_2escm"),(void*)f_9636}, {C_text("f_9638:optimizer_2escm"),(void*)f_9638}, {C_text("f_9646:optimizer_2escm"),(void*)f_9646}, {C_text("f_9658:optimizer_2escm"),(void*)f_9658}, {C_text("f_9685:optimizer_2escm"),(void*)f_9685}, {C_text("f_9700:optimizer_2escm"),(void*)f_9700}, {C_text("f_9721:optimizer_2escm"),(void*)f_9721}, {C_text("f_9757:optimizer_2escm"),(void*)f_9757}, {C_text("f_9759:optimizer_2escm"),(void*)f_9759}, {C_text("f_9794:optimizer_2escm"),(void*)f_9794}, {C_text("f_9816:optimizer_2escm"),(void*)f_9816}, {C_text("f_9820:optimizer_2escm"),(void*)f_9820}, {C_text("f_9856:optimizer_2escm"),(void*)f_9856}, {C_text("f_9880:optimizer_2escm"),(void*)f_9880}, {C_text("f_9920:optimizer_2escm"),(void*)f_9920}, {C_text("f_9940:optimizer_2escm"),(void*)f_9940}, {C_text("f_9944:optimizer_2escm"),(void*)f_9944}, {C_text("f_9948:optimizer_2escm"),(void*)f_9948}, {C_text("f_9950:optimizer_2escm"),(void*)f_9950}, {C_text("f_9956:optimizer_2escm"),(void*)f_9956}, {C_text("f_9964:optimizer_2escm"),(void*)f_9964}, {C_text("f_9970:optimizer_2escm"),(void*)f_9970}, {C_text("f_9990:optimizer_2escm"),(void*)f_9990}, {C_text("f_9994:optimizer_2escm"),(void*)f_9994}, {C_text("toplevel:optimizer_2escm"),(void*)C_optimizer_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.compiler.optimizer#partition o|hiding unexported module binding: chicken.compiler.optimizer#span o|hiding unexported module binding: chicken.compiler.optimizer#take o|hiding unexported module binding: chicken.compiler.optimizer#drop o|hiding unexported module binding: chicken.compiler.optimizer#split-at o|hiding unexported module binding: chicken.compiler.optimizer#append-map o|hiding unexported module binding: chicken.compiler.optimizer#every o|hiding unexported module binding: chicken.compiler.optimizer#any o|hiding unexported module binding: chicken.compiler.optimizer#cons* o|hiding unexported module binding: chicken.compiler.optimizer#concatenate o|hiding unexported module binding: chicken.compiler.optimizer#delete o|hiding unexported module binding: chicken.compiler.optimizer#first o|hiding unexported module binding: chicken.compiler.optimizer#second o|hiding unexported module binding: chicken.compiler.optimizer#third o|hiding unexported module binding: chicken.compiler.optimizer#fourth o|hiding unexported module binding: chicken.compiler.optimizer#fifth o|hiding unexported module binding: chicken.compiler.optimizer#delete-duplicates o|hiding unexported module binding: chicken.compiler.optimizer#alist-cons o|hiding unexported module binding: chicken.compiler.optimizer#filter o|hiding unexported module binding: chicken.compiler.optimizer#filter-map o|hiding unexported module binding: chicken.compiler.optimizer#remove o|hiding unexported module binding: chicken.compiler.optimizer#unzip1 o|hiding unexported module binding: chicken.compiler.optimizer#last o|hiding unexported module binding: chicken.compiler.optimizer#list-index o|hiding unexported module binding: chicken.compiler.optimizer#lset-adjoin/eq? o|hiding unexported module binding: chicken.compiler.optimizer#lset-difference/eq? o|hiding unexported module binding: chicken.compiler.optimizer#lset-union/eq? o|hiding unexported module binding: chicken.compiler.optimizer#lset-intersection/eq? o|hiding unexported module binding: chicken.compiler.optimizer#list-tabulate o|hiding unexported module binding: chicken.compiler.optimizer#lset<=/eq? o|hiding unexported module binding: chicken.compiler.optimizer#lset=/eq? o|hiding unexported module binding: chicken.compiler.optimizer#length+ o|hiding unexported module binding: chicken.compiler.optimizer#find o|hiding unexported module binding: chicken.compiler.optimizer#find-tail o|hiding unexported module binding: chicken.compiler.optimizer#iota o|hiding unexported module binding: chicken.compiler.optimizer#make-list o|hiding unexported module binding: chicken.compiler.optimizer#posq o|hiding unexported module binding: chicken.compiler.optimizer#posv o|hiding unexported module binding: chicken.compiler.optimizer#simplifications o|hiding unexported module binding: chicken.compiler.optimizer#simplified-ops o|hiding unexported module binding: chicken.compiler.optimizer#broken-constant-nodes o|hiding unexported module binding: chicken.compiler.optimizer#perform-pre-optimization! o|hiding unexported module binding: chicken.compiler.optimizer#register-simplifications o|hiding unexported module binding: chicken.compiler.optimizer#reorganize-recursive-bindings o|hiding unexported module binding: chicken.compiler.optimizer#substitution-table o|hiding unexported module binding: chicken.compiler.optimizer#simplify-named-call S|applied compiler syntax: S| chicken.base#o 1 S| scheme#for-each 20 S| chicken.base#foldl 4 S| scheme#map 15 S| chicken.base#foldr 8 o|eliminated procedure checks: 217 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 1 (scheme#set-car! pair *) o| 1 (scheme#length list) o| 1 (chicken.base#sub1 fixnum) o| 2 (scheme#cddr (pair * pair)) o| 2 (scheme#> fixnum fixnum) o| 1 (chicken.base#add1 fixnum) o| 1 (scheme#<= fixnum fixnum) o| 1 (scheme#positive? fixnum) o| 1 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 1 (scheme#< fixnum fixnum) o| 1 (scheme#cdar (pair pair *)) o| 17 (scheme#= fixnum fixnum) o| 2 (scheme#set-cdr! pair *) o| 1 (scheme#* fixnum fixnum) o| 4 (chicken.base#sub1 *) o| 5 (scheme#zero? *) o| 8 (chicken.base#add1 *) o| 63 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 1 (scheme#eqv? * *) o| 16 (##sys#check-list (or pair list) *) o| 49 (scheme#cdr pair) o| 21 (scheme#car pair) (o e)|safe calls: 1436 (o e)|assignments to immediate values: 9 o|safe globals: (chicken.compiler.optimizer#posv chicken.compiler.optimizer#posq chicken.compiler.optimizer#make-list chicken.compiler.optimizer#iota chicken.compiler.optimizer#find-tail chicken.compiler.optimizer#find chicken.compiler.optimizer#length+ chicken.compiler.optimizer#lset=/eq? chicken.compiler.optimizer#lset<=/eq? chicken.compiler.optimizer#list-tabulate chicken.compiler.optimizer#lset-intersection/eq? chicken.compiler.optimizer#lset-union/eq? chicken.compiler.optimizer#lset-difference/eq? chicken.compiler.optimizer#lset-adjoin/eq? chicken.compiler.optimizer#list-index chicken.compiler.optimizer#last chicken.compiler.optimizer#unzip1 chicken.compiler.optimizer#remove chicken.compiler.optimizer#filter-map chicken.compiler.optimizer#filter chicken.compiler.optimizer#alist-cons chicken.compiler.optimizer#delete-duplicates chicken.compiler.optimizer#fifth chicken.compiler.optimizer#fourth chicken.compiler.optimizer#third chicken.compiler.optimizer#second chicken.compiler.optimizer#first chicken.compiler.optimizer#delete chicken.compiler.optimizer#concatenate chicken.compiler.optimizer#cons* chicken.compiler.optimizer#any chicken.compiler.optimizer#every chicken.compiler.optimizer#append-map chicken.compiler.optimizer#split-at chicken.compiler.optimizer#drop chicken.compiler.optimizer#take chicken.compiler.optimizer#span chicken.compiler.optimizer#partition) o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#span o|inlining procedure: k3340 o|inlining procedure: k3340 o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#drop o|inlining procedure: k3398 o|inlining procedure: k3398 o|merged explicitly consed rest parameter: lsts102 o|inlining procedure: k3431 o|inlining procedure: k3446 o|inlining procedure: k3446 o|inlining procedure: k3431 o|inlining procedure: k3486 o|inlining procedure: k3486 o|inlining procedure: k3518 o|contracted procedure: "(mini-srfi-1.scm:77) g155164" o|inlining procedure: k3518 o|inlining procedure: k3567 o|contracted procedure: "(mini-srfi-1.scm:76) g128137" o|inlining procedure: k3567 o|inlining procedure: k3610 o|inlining procedure: k3610 o|inlining procedure: k3641 o|inlining procedure: k3641 o|merged explicitly consed rest parameter: xs203 o|inlining procedure: k3671 o|inlining procedure: k3671 o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#concatenate o|inlining procedure: k3727 o|inlining procedure: k3727 o|inlining procedure: k3858 o|inlining procedure: k3858 o|inlining procedure: k3850 o|inlining procedure: k3850 o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#remove o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#list-index o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#lset-union/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#lset-intersection/eq? o|inlining procedure: k4249 o|inlining procedure: k4249 o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#length+ o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#find o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#find-tail o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#iota o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#make-list o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#posq o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#posv o|inlining procedure: k4529 o|inlining procedure: k4529 o|inlining procedure: k4566 o|inlining procedure: k4566 o|inlining procedure: k4582 o|inlining procedure: k4582 o|inlining procedure: k4614 o|inlining procedure: "(optimizer.scm:89) chicken.compiler.optimizer#first" o|inlining procedure: k4614 o|inlining procedure: "(optimizer.scm:96) chicken.compiler.optimizer#first" o|inlining procedure: k4691 o|contracted procedure: "(optimizer.scm:102) chicken.compiler.optimizer#last" o|inlining procedure: k4007 o|inlining procedure: k4007 o|inlining procedure: k4691 o|inlining procedure: k4724 o|inlining procedure: k4724 o|inlining procedure: k4754 o|inlining procedure: k4754 o|inlining procedure: "(optimizer.scm:110) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:109) chicken.compiler.optimizer#first" o|substituted constant variable: a4790 o|substituted constant variable: a4792 o|substituted constant variable: a4797 o|substituted constant variable: a4799 o|substituted constant variable: a4801 o|inlining procedure: k4805 o|inlining procedure: k4805 o|substituted constant variable: a4812 o|substituted constant variable: a4814 o|substituted constant variable: a4816 o|substituted constant variable: a4818 o|inlining procedure: k4842 o|contracted procedure: "(optimizer.scm:131) g560628" o|propagated global variable: g636637 chicken.compiler.support#mark-variable o|inlining procedure: k4842 o|contracted procedure: "(optimizer.scm:130) chicken.compiler.optimizer#delete-duplicates" o|inlining procedure: k3802 o|inlining procedure: k3802 o|inlining procedure: k4928 o|contracted procedure: "(optimizer.scm:169) g685692" o|inlining procedure: k4928 o|inlining procedure: k4957 o|inlining procedure: k4957 o|inlining procedure: k4969 o|inlining procedure: k4981 o|inlining procedure: k4981 o|inlining procedure: k5037 o|inlining procedure: k5037 o|inlining procedure: "(optimizer.scm:177) chicken.compiler.optimizer#third" o|inlining procedure: "(optimizer.scm:176) chicken.compiler.optimizer#first" o|inlining procedure: k4969 o|inlining procedure: "(optimizer.scm:175) chicken.compiler.optimizer#second" o|inlining procedure: k5079 o|inlining procedure: k5079 o|inlining procedure: k5098 o|inlining procedure: k5119 o|inlining procedure: k5119 o|contracted procedure: "(optimizer.scm:202) node-value669" o|inlining procedure: "(optimizer.scm:165) chicken.compiler.optimizer#first" o|contracted procedure: "(optimizer.scm:199) constant-node?668" o|inlining procedure: k5098 o|inlining procedure: k5153 o|contracted procedure: "(optimizer.scm:217) chicken.compiler.optimizer#lset-adjoin/eq?" o|inlining procedure: k4066 o|inlining procedure: k4066 o|propagated global variable: lst342 chicken.compiler.optimizer#broken-constant-nodes o|inlining procedure: k5153 o|substituted constant variable: a5200 o|substituted constant variable: a5202 o|inlining procedure: k5209 o|inlining procedure: k5209 o|inlining procedure: k5235 o|inlining procedure: k5271 o|inlining procedure: k5271 o|inlining procedure: k5298 o|inlining procedure: k5298 o|inlining procedure: "(optimizer.scm:250) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:245) chicken.compiler.optimizer#first" o|inlining procedure: k5235 o|inlining procedure: k5351 o|inlining procedure: "(optimizer.scm:271) chicken.compiler.optimizer#second" o|inlining procedure: k5351 o|inlining procedure: k5396 o|inlining procedure: k5396 o|inlining procedure: "(optimizer.scm:276) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:276) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:274) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:274) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:273) chicken.compiler.optimizer#first" o|inlining procedure: k5471 o|inlining procedure: k5471 o|inlining procedure: "(optimizer.scm:265) chicken.compiler.optimizer#first" o|inlining procedure: k5484 o|contracted procedure: "(optimizer.scm:288) chicken.compiler.optimizer#partition" o|inlining procedure: k3238 o|inlining procedure: k3238 o|inlining procedure: "(optimizer.scm:300) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:299) chicken.compiler.optimizer#fourth" o|inlining procedure: "(optimizer.scm:293) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:293) chicken.compiler.optimizer#first" o|inlining procedure: k5588 o|inlining procedure: "(optimizer.scm:313) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:312) chicken.compiler.optimizer#fourth" o|inlining procedure: "(optimizer.scm:310) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:309) chicken.compiler.optimizer#first" o|inlining procedure: k5588 o|inlining procedure: "(optimizer.scm:283) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:282) chicken.compiler.optimizer#third" o|inlining procedure: k5484 o|inlining procedure: k5663 o|propagated global variable: g937938 chicken.compiler.support#db-put! o|inlining procedure: k5691 o|inlining procedure: "(optimizer.scm:344) chicken.compiler.optimizer#first" o|inlining procedure: k5741 o|inlining procedure: k5741 o|inlining procedure: "(optimizer.scm:337) chicken.compiler.optimizer#third" o|inlining procedure: k5691 o|inlining procedure: k5792 o|propagated global variable: g10211022 chicken.compiler.support#db-put! o|inlining procedure: k5816 o|inlining procedure: "(optimizer.scm:405) chicken.compiler.optimizer#first" o|inlining procedure: k5881 o|inlining procedure: k5881 o|inlining procedure: "(optimizer.scm:391) chicken.compiler.optimizer#fourth" o|inlining procedure: k5816 o|inlining procedure: k5915 o|inlining procedure: k5915 o|inlining procedure: k5930 o|inlining procedure: k5965 o|inlining procedure: k5965 o|inlining procedure: k5930 o|inlining procedure: k6016 o|inlining procedure: k6016 o|inlining procedure: k6094 o|inlining procedure: k6155 o|inlining procedure: k6155 o|inlining procedure: k6195 o|inlining procedure: k6195 o|substituted constant variable: a6212 o|inlining procedure: k6094 o|inlining procedure: k6234 o|inlining procedure: k6246 o|inlining procedure: k6261 o|inlining procedure: k6261 o|inlining procedure: "(optimizer.scm:385) chicken.compiler.optimizer#fourth" o|substituted constant variable: a6272 o|inlining procedure: k6246 o|inlining procedure: k6234 o|inlining procedure: "(optimizer.scm:376) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:372) chicken.compiler.optimizer#third" o|inlining procedure: k5792 o|inlining procedure: "(optimizer.scm:469) chicken.compiler.optimizer#first" o|inlining procedure: k6318 o|inlining procedure: "(optimizer.scm:466) chicken.compiler.optimizer#first" o|inlining procedure: k6318 o|inlining procedure: k6349 o|inlining procedure: k6361 o|inlining procedure: k6373 o|propagated global variable: g974975 chicken.compiler.support#expression-has-side-effects? o|inlining procedure: k6400 o|inlining procedure: k6400 o|inlining procedure: k6373 o|inlining procedure: "(optimizer.scm:353) chicken.compiler.optimizer#third" o|inlining procedure: k6361 o|inlining procedure: "(optimizer.scm:349) chicken.compiler.optimizer#first" o|inlining procedure: k6349 o|inlining procedure: k6460 o|inlining procedure: "(optimizer.scm:334) chicken.compiler.optimizer#first" o|inlining procedure: k6460 o|inlining procedure: k6491 o|inlining procedure: k6491 o|inlining procedure: "(optimizer.scm:325) chicken.compiler.optimizer#first" o|inlining procedure: k6505 o|inlining procedure: k6545 o|inlining procedure: k6545 o|inlining procedure: "(optimizer.scm:478) chicken.compiler.optimizer#first" o|inlining procedure: k6505 o|substituted constant variable: a6584 o|substituted constant variable: a6586 o|inlining procedure: k5663 o|inlining procedure: k6596 o|inlining procedure: k6596 o|inlining procedure: k6629 o|inlining procedure: k6629 o|inlining procedure: k6659 o|inlining procedure: k6659 o|inlining procedure: k6684 o|substituted constant variable: a6694 o|inlining procedure: k6684 o|inlining procedure: k6701 o|substituted constant variable: a6711 o|inlining procedure: k6701 o|inlining procedure: k6734 o|inlining procedure: "(optimizer.scm:500) chicken.compiler.optimizer#first" o|inlining procedure: k6734 o|inlining procedure: "(optimizer.scm:487) chicken.compiler.optimizer#first" o|substituted constant variable: a6780 o|substituted constant variable: a6782 o|substituted constant variable: a6784 o|substituted constant variable: a6786 o|substituted constant variable: a6788 o|substituted constant variable: a6790 o|inlining procedure: k6800 o|inlining procedure: k6800 o|inlining procedure: k6847 o|inlining procedure: k6847 o|inlining procedure: k6945 o|contracted procedure: "(optimizer.scm:544) g12381245" o|inlining procedure: k6916 o|inlining procedure: k6916 o|inlining procedure: k6945 o|propagated global variable: g12441246 chicken.compiler.optimizer#simplified-ops o|contracted procedure: "(optimizer.scm:532) chicken.compiler.optimizer#perform-pre-optimization!" o|inlining procedure: k6990 o|inlining procedure: k6990 o|inlining procedure: k7019 o|inlining procedure: k7046 o|inlining procedure: "(optimizer.scm:598) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:595) chicken.compiler.optimizer#first" o|inlining procedure: k7046 o|inlining procedure: k7117 o|inlining procedure: k7117 o|substituted constant variable: a7130 o|inlining procedure: "(optimizer.scm:586) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:585) chicken.compiler.optimizer#third" o|inlining procedure: k7019 o|inlining procedure: k7153 o|inlining procedure: k7162 o|inlining procedure: k7162 o|substituted constant variable: a7175 o|substituted constant variable: a7180 o|inlining procedure: k7153 o|inlining procedure: "(optimizer.scm:578) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:578) chicken.compiler.optimizer#second" o|inlining procedure: k7218 o|inlining procedure: k7218 o|merged explicitly consed rest parameter: ss1334 o|inlining procedure: k10104 o|inlining procedure: "(optimizer.scm:1387) chicken.compiler.optimizer#first" o|inlining procedure: k10129 o|inlining procedure: k10141 o|inlining procedure: k10156 o|inlining procedure: k10165 o|inlining procedure: k10177 o|inlining procedure: "(optimizer.scm:1385) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1385) chicken.compiler.optimizer#first" o|inlining procedure: k10177 o|inlining procedure: "(optimizer.scm:1382) chicken.compiler.optimizer#first" o|inlining procedure: k10165 o|inlining procedure: k10156 o|inlining procedure: k10141 o|inlining procedure: k10129 o|inlining procedure: "(optimizer.scm:1373) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1371) chicken.compiler.optimizer#third" o|inlining procedure: k10104 o|inlining procedure: "(optimizer.scm:1388) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1388) chicken.compiler.optimizer#first" o|inlining procedure: k10239 o|inlining procedure: "(optimizer.scm:1391) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1390) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1390) chicken.compiler.optimizer#first" o|inlining procedure: k10239 o|inlining procedure: k10277 o|inlining procedure: k10277 o|substituted constant variable: a10298 o|substituted constant variable: a10300 o|substituted constant variable: a10302 o|inlining procedure: k10318 o|inlining procedure: k10336 o|inlining procedure: k10336 o|inlining procedure: "(optimizer.scm:1402) chicken.compiler.optimizer#first" o|inlining procedure: k10318 o|inlining procedure: k10363 o|inlining procedure: "(optimizer.scm:1415) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1412) chicken.compiler.optimizer#third" o|inlining procedure: k10363 o|inlining procedure: k10391 o|inlining procedure: "(optimizer.scm:1419) chicken.compiler.optimizer#second" o|inlining procedure: k10391 o|inlining procedure: k10426 o|inlining procedure: k10432 o|inlining procedure: k10432 o|inlining procedure: "(optimizer.scm:1423) chicken.compiler.optimizer#first" o|inlining procedure: k10426 o|inlining procedure: k10450 o|inlining procedure: k10475 o|inlining procedure: k10475 o|inlining procedure: "(optimizer.scm:1428) chicken.compiler.optimizer#second" o|inlining procedure: k10450 o|inlining procedure: k10495 o|inlining procedure: k10495 o|inlining procedure: k10514 o|inlining procedure: k10514 o|inlining procedure: "(optimizer.scm:1436) chicken.compiler.optimizer#first" o|inlining procedure: k10528 o|inlining procedure: k10543 o|inlining procedure: k10543 o|inlining procedure: k10568 o|inlining procedure: "(optimizer.scm:1451) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1449) chicken.compiler.optimizer#second" o|inlining procedure: k10568 o|inlining procedure: "(optimizer.scm:1446) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1444) chicken.compiler.optimizer#first" o|inlining procedure: k10528 o|inlining procedure: k10619 o|inlining procedure: k10619 o|inlining procedure: "(optimizer.scm:1457) chicken.compiler.optimizer#fourth" o|inlining procedure: k10641 o|inlining procedure: "(optimizer.scm:1463) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1463) chicken.compiler.optimizer#first" o|inlining procedure: k10641 o|inlining procedure: k10664 o|inlining procedure: "(optimizer.scm:1466) chicken.compiler.optimizer#second" o|inlining procedure: k10664 o|inlining procedure: "(optimizer.scm:1465) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1465) chicken.compiler.optimizer#first" o|substituted constant variable: a10699 o|substituted constant variable: a10701 o|substituted constant variable: a10703 o|substituted constant variable: a10705 o|substituted constant variable: a10707 o|substituted constant variable: a10709 o|substituted constant variable: a10711 o|substituted constant variable: a10713 o|substituted constant variable: a10715 o|substituted constant variable: a10717 o|inlining procedure: k10721 o|contracted procedure: "(optimizer.scm:1472) chicken.compiler.optimizer#lset=/eq?" o|inlining procedure: k4285 o|inlining procedure: k4285 o|inlining procedure: k10721 o|inlining procedure: "(optimizer.scm:1559) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1552) chicken.compiler.optimizer#second" o|inlining procedure: k10753 o|inlining procedure: k10911 o|contracted procedure: "(optimizer.scm:1584) g23412348" o|inlining procedure: k10911 o|inlining procedure: k10934 o|contracted procedure: "(optimizer.scm:1574) g23312332" o|inlining procedure: "(optimizer.scm:1578) chicken.compiler.optimizer#first" o|inlining procedure: k10934 o|inlining procedure: k11003 o|inlining procedure: k11003 o|inlining procedure: k11062 o|inlining procedure: k11086 o|inlining procedure: "(optimizer.scm:1523) chicken.compiler.optimizer#third" o|inlining procedure: "(optimizer.scm:1517) chicken.compiler.optimizer#first" o|inlining procedure: k11140 o|inlining procedure: k11140 o|inlining procedure: "(optimizer.scm:1514) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1506) chicken.compiler.optimizer#first" o|inlining procedure: k11086 o|inlining procedure: "(optimizer.scm:1529) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1504) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1500) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1499) chicken.compiler.optimizer#first" o|inlining procedure: k11062 o|inlining procedure: k11273 o|inlining procedure: "(optimizer.scm:1539) chicken.compiler.optimizer#second" o|inlining procedure: k11273 o|inlining procedure: k11302 o|inlining procedure: k11302 o|inlining procedure: "(optimizer.scm:1536) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1535) chicken.compiler.optimizer#first" o|inlining procedure: k11331 o|inlining procedure: k11331 o|substituted constant variable: a11352 o|substituted constant variable: a11354 o|inlining procedure: "(optimizer.scm:1494) chicken.compiler.optimizer#first" o|inlining procedure: k10753 o|inlining procedure: k11369 o|inlining procedure: k11369 o|substituted constant variable: a11384 o|inlining procedure: "(optimizer.scm:1480) chicken.compiler.optimizer#third" o|contracted procedure: "(optimizer.scm:1476) chicken.compiler.optimizer#unzip1" o|inlining procedure: k3967 o|contracted procedure: "(mini-srfi-1.scm:143) g306315" o|inlining procedure: k3967 o|inlining procedure: k11430 o|substituted constant variable: a11452 o|inlining procedure: k11430 o|inlining procedure: k11489 o|inlining procedure: k11518 o|inlining procedure: k11518 o|inlining procedure: k11548 o|inlining procedure: k11566 o|contracted procedure: "(optimizer.scm:1655) user-lambda?2378" o|inlining procedure: k11456 o|inlining procedure: "(optimizer.scm:1630) chicken.compiler.optimizer#third" o|inlining procedure: k11456 o|inlining procedure: k11566 o|inlining procedure: k11593 o|inlining procedure: k11593 o|inlining procedure: k11600 o|inlining procedure: k11600 o|inlining procedure: "(optimizer.scm:1649) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1648) chicken.compiler.optimizer#first" o|inlining procedure: k11548 o|inlining procedure: "(optimizer.scm:1640) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1639) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1638) chicken.compiler.optimizer#first" o|inlining procedure: k11489 o|inlining procedure: "(optimizer.scm:1671) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1666) chicken.compiler.optimizer#third" o|inlining procedure: k11692 o|inlining procedure: k11692 o|substituted constant variable: a11716 o|substituted constant variable: a11718 o|substituted constant variable: a11720 o|inlining procedure: "(optimizer.scm:1702) chicken.compiler.optimizer#first" o|inlining procedure: k11793 o|inlining procedure: k11793 o|inlining procedure: "(optimizer.scm:1697) chicken.compiler.optimizer#third" o|inlining procedure: "(optimizer.scm:1695) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1694) chicken.compiler.optimizer#first" o|consed rest parameter at call site: "(optimizer.scm:1786) chicken.compiler.optimizer#cons*" 2 o|inlining procedure: "(optimizer.scm:1792) chicken.compiler.optimizer#second" o|inlining procedure: k11932 o|inlining procedure: k11932 o|inlining procedure: k11962 o|inlining procedure: k11962 o|inlining procedure: k11988 o|inlining procedure: k11988 o|consed rest parameter at call site: "(optimizer.scm:1769) chicken.compiler.optimizer#cons*" 2 o|inlining procedure: k12135 o|inlining procedure: "(optimizer.scm:1757) chicken.compiler.optimizer#fourth" o|inlining procedure: k12135 o|inlining procedure: "(optimizer.scm:1755) chicken.compiler.optimizer#third" o|inlining procedure: "(optimizer.scm:1753) chicken.compiler.optimizer#second" o|consed rest parameter at call site: "(optimizer.scm:1751) chicken.compiler.optimizer#append-map" 3 o|inlining procedure: "(optimizer.scm:1725) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1723) chicken.compiler.optimizer#second" o|inlining procedure: k12228 o|inlining procedure: k12228 o|inlining procedure: k12295 o|contracted procedure: "(optimizer.scm:1711) g25662575" o|inlining procedure: "(optimizer.scm:1711) chicken.compiler.optimizer#third" o|inlining procedure: k12295 o|inlining procedure: k12329 o|inlining procedure: k12329 o|inlining procedure: k12376 o|inlining procedure: k12376 o|consed rest parameter at call site: "(optimizer.scm:785) chicken.compiler.optimizer#register-simplifications" 2 o|inlining procedure: k12418 o|inlining procedure: k12430 o|inlining procedure: k12465 o|inlining procedure: k12465 o|inlining procedure: k12430 o|inlining procedure: k12418 o|inlining procedure: k12561 o|inlining procedure: k12561 o|consed rest parameter at call site: "(optimizer.scm:640) chicken.compiler.optimizer#register-simplifications" 2 o|inlining procedure: k12634 o|substituted constant variable: a12661 o|inlining procedure: k12634 o|inlining procedure: k12736 o|inlining procedure: k12748 o|inlining procedure: k12772 o|inlining procedure: "(optimizer.scm:723) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:723) chicken.compiler.optimizer#first" o|inlining procedure: k12772 o|inlining procedure: k12802 o|inlining procedure: k12839 o|inlining procedure: "(optimizer.scm:743) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:741) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:741) chicken.compiler.optimizer#first" o|inlining procedure: k12839 o|contracted procedure: "(optimizer.scm:746) chicken.compiler.optimizer#reorganize-recursive-bindings" o|inlining procedure: k7277 o|inlining procedure: k7277 o|inlining procedure: k7327 o|inlining procedure: k7359 o|inlining procedure: k7359 o|inlining procedure: k7327 o|inlining procedure: k7404 o|contracted procedure: "(optimizer.scm:884) chicken.compiler.optimizer#lset<=/eq?" o|inlining procedure: k7404 o|contracted procedure: "(optimizer.scm:883) chicken.compiler.optimizer#filter-map" o|inlining procedure: k3905 o|inlining procedure: k3905 o|inlining procedure: k3894 o|inlining procedure: k3894 o|consed rest parameter at call site: "(optimizer.scm:877) chicken.compiler.optimizer#append-map" 3 o|inlining procedure: k7451 o|inlining procedure: k7451 o|inlining procedure: k7469 o|inlining procedure: k7491 o|inlining procedure: k7491 o|inlining procedure: k7522 o|contracted procedure: "(optimizer.scm:904) g16731674" o|inlining procedure: k7522 o|inlining procedure: k7569 o|inlining procedure: k7569 o|inlining procedure: k7469 o|inlining procedure: k7661 o|inlining procedure: k7661 o|inlining procedure: k7684 o|inlining procedure: k7684 o|inlining procedure: k7707 o|inlining procedure: k7707 o|inlining procedure: k7744 o|inlining procedure: k7744 o|inlining procedure: k12894 o|inlining procedure: k12894 o|inlining procedure: k12900 o|inlining procedure: k12912 o|inlining procedure: k12924 o|inlining procedure: "(optimizer.scm:740) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:740) chicken.compiler.optimizer#first" o|inlining procedure: k12924 o|inlining procedure: "(optimizer.scm:739) chicken.compiler.optimizer#first" o|inlining procedure: k12912 o|inlining procedure: "(optimizer.scm:737) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:736) chicken.compiler.optimizer#first" o|inlining procedure: k12900 o|inlining procedure: "(optimizer.scm:730) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:728) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:727) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:727) chicken.compiler.optimizer#first" o|inlining procedure: k12802 o|substituted constant variable: a12988 o|substituted constant variable: a12990 o|inlining procedure: "(optimizer.scm:719) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:718) chicken.compiler.optimizer#first" o|inlining procedure: k12748 o|inlining procedure: "(optimizer.scm:717) chicken.compiler.optimizer#first" o|inlining procedure: k12736 o|inlining procedure: k13030 o|inlining procedure: k13042 o|consed rest parameter at call site: "(optimizer.scm:692) chicken.compiler.optimizer#cons*" 2 o|inlining procedure: k13042 o|substituted constant variable: a13069 o|inlining procedure: k13030 o|inlining procedure: k13157 o|inlining procedure: k13169 o|inlining procedure: k13181 o|inlining procedure: k13181 o|substituted constant variable: a13206 o|substituted constant variable: a13215 o|inlining procedure: k13169 o|inlining procedure: k13157 o|consed rest parameter at call site: "(optimizer.scm:621) chicken.compiler.optimizer#register-simplifications" 2 o|inlining procedure: k13340 o|inlining procedure: k13340 o|inlining procedure: k13357 o|inlining procedure: k13357 o|contracted procedure: "(optimizer.scm:629) chicken.compiler.optimizer#simplify-named-call" o|inlining procedure: k7822 o|inlining procedure: k7822 o|inlining procedure: k7831 o|inlining procedure: k7831 o|inlining procedure: k7896 o|inlining procedure: k7911 o|inlining procedure: k7911 o|inlining procedure: "(optimizer.scm:965) chicken.compiler.optimizer#second" o|inlining procedure: k7949 o|inlining procedure: k7961 o|inlining procedure: k7961 o|inlining procedure: k7949 o|inlining procedure: "(optimizer.scm:957) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:956) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:955) chicken.compiler.optimizer#first" o|inlining procedure: k7896 o|inlining procedure: k8012 o|inlining procedure: k8021 o|inlining procedure: "(optimizer.scm:979) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:974) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:973) chicken.compiler.optimizer#third" o|inlining procedure: k8021 o|inlining procedure: "(optimizer.scm:971) chicken.compiler.optimizer#first" o|inlining procedure: k8012 o|inlining procedure: k8070 o|inlining procedure: k8079 o|inlining procedure: k8103 o|contracted procedure: "(optimizer.scm:987) g17801781" o|inlining procedure: k8103 o|inlining procedure: "(optimizer.scm:990) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:986) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:986) chicken.compiler.optimizer#second" o|inlining procedure: k8079 o|inlining procedure: k8070 o|inlining procedure: k8181 o|inlining procedure: k8187 o|inlining procedure: "(optimizer.scm:1004) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1003) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1002) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1000) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:999) chicken.compiler.optimizer#first" o|inlining procedure: k8187 o|substituted constant variable: a8238 o|inlining procedure: k8181 o|inlining procedure: k8243 o|inlining procedure: k8252 o|inlining procedure: k8264 o|inlining procedure: "(optimizer.scm:1018) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1017) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1016) chicken.compiler.optimizer#first" o|inlining procedure: k8264 o|inlining procedure: "(optimizer.scm:1012) chicken.compiler.optimizer#third" o|substituted constant variable: a8318 o|inlining procedure: k8252 o|inlining procedure: k8243 o|inlining procedure: k8329 o|inlining procedure: k8341 o|inlining procedure: "(optimizer.scm:1029) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1028) chicken.compiler.optimizer#first" o|inlining procedure: k8341 o|substituted constant variable: a8392 o|inlining procedure: k8329 o|inlining procedure: "(optimizer.scm:1022) chicken.compiler.optimizer#third" o|inlining procedure: k8397 o|inlining procedure: k8412 o|inlining procedure: k8421 o|inlining procedure: "(optimizer.scm:1042) chicken.compiler.optimizer#third" o|inlining procedure: "(optimizer.scm:1040) chicken.compiler.optimizer#second" o|inlining procedure: k8421 o|inlining procedure: "(optimizer.scm:1036) chicken.compiler.optimizer#first" o|inlining procedure: k8412 o|inlining procedure: "(optimizer.scm:1034) chicken.compiler.optimizer#fourth" o|inlining procedure: k8397 o|inlining procedure: k8480 o|inlining procedure: "(optimizer.scm:1048) chicken.compiler.optimizer#first" o|inlining procedure: k8480 o|inlining procedure: k8495 o|inlining procedure: k8504 o|inlining procedure: k8531 o|inlining procedure: k8566 o|inlining procedure: k8601 o|inlining procedure: "(optimizer.scm:1071) chicken.compiler.optimizer#first" o|inlining procedure: k8601 o|inlining procedure: "(optimizer.scm:1072) chicken.compiler.optimizer#second" o|inlining procedure: k8566 o|inlining procedure: k8643 o|inlining procedure: k8643 o|inlining procedure: k8677 o|contracted procedure: "(optimizer.scm:1060) g18371846" o|inlining procedure: k8677 o|inlining procedure: k8531 o|inlining procedure: k8711 o|inlining procedure: k8711 o|inlining procedure: "(optimizer.scm:1059) chicken.compiler.optimizer#fourth" o|inlining procedure: "(optimizer.scm:1058) chicken.compiler.optimizer#third" o|substituted constant variable: a8740 o|inlining procedure: k8504 o|inlining procedure: k8495 o|inlining procedure: k8747 o|inlining procedure: k8759 o|inlining procedure: k8798 o|inlining procedure: "(optimizer.scm:1094) chicken.compiler.optimizer#third" o|inlining procedure: k8798 o|inlining procedure: "(optimizer.scm:1095) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1092) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1091) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1089) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1088) chicken.compiler.optimizer#first" o|inlining procedure: k8759 o|inlining procedure: "(optimizer.scm:1084) chicken.compiler.optimizer#fourth" o|inlining procedure: k8747 o|inlining procedure: k8830 o|inlining procedure: k8839 o|inlining procedure: k8857 o|consed rest parameter at call site: "(optimizer.scm:1107) chicken.compiler.optimizer#cons*" 2 o|inlining procedure: "(optimizer.scm:1107) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1106) chicken.compiler.optimizer#second" o|inlining procedure: k8857 o|inlining procedure: "(optimizer.scm:1105) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1103) chicken.compiler.optimizer#first" o|inlining procedure: k8839 o|inlining procedure: "(optimizer.scm:1101) chicken.compiler.optimizer#third" o|inlining procedure: k8830 o|inlining procedure: k8906 o|inlining procedure: k8915 o|inlining procedure: k8933 o|inlining procedure: k8933 o|consed rest parameter at call site: "(optimizer.scm:1122) chicken.compiler.optimizer#cons*" 2 o|inlining procedure: "(optimizer.scm:1122) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1121) chicken.compiler.optimizer#first" o|substituted constant variable: a8974 o|inlining procedure: "(optimizer.scm:1118) chicken.compiler.optimizer#third" o|inlining procedure: k8915 o|inlining procedure: "(optimizer.scm:1116) chicken.compiler.optimizer#second" o|inlining procedure: k8906 o|inlining procedure: k8979 o|inlining procedure: k8988 o|inlining procedure: k9003 o|consed rest parameter at call site: "(optimizer.scm:1134) chicken.compiler.optimizer#cons*" 2 o|inlining procedure: "(optimizer.scm:1132) chicken.compiler.optimizer#second" o|inlining procedure: k9003 o|inlining procedure: "(optimizer.scm:1131) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1130) chicken.compiler.optimizer#third" o|inlining procedure: k8988 o|inlining procedure: k8979 o|inlining procedure: k9049 o|inlining procedure: k9058 o|inlining procedure: k9070 o|inlining procedure: k9099 o|inlining procedure: "(optimizer.scm:1149) chicken.compiler.optimizer#fourth" o|inlining procedure: k9099 o|inlining procedure: "(optimizer.scm:1149) chicken.compiler.optimizer#third" o|inlining procedure: k9070 o|inlining procedure: "(optimizer.scm:1143) chicken.compiler.optimizer#fourth" o|inlining procedure: "(optimizer.scm:1142) chicken.compiler.optimizer#first" o|inlining procedure: k9058 o|inlining procedure: "(optimizer.scm:1140) chicken.compiler.optimizer#second" o|inlining procedure: k9049 o|inlining procedure: k9120 o|inlining procedure: k9129 o|inlining procedure: k9141 o|consed rest parameter at call site: "(optimizer.scm:1161) chicken.compiler.optimizer#cons*" 2 o|inlining procedure: "(optimizer.scm:1161) chicken.compiler.optimizer#third" o|inlining procedure: "(optimizer.scm:1160) chicken.compiler.optimizer#third" o|inlining procedure: k9176 o|inlining procedure: k9176 o|inlining procedure: "(optimizer.scm:1162) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1159) chicken.compiler.optimizer#first" o|inlining procedure: k9141 o|propagated global variable: tmp19421944 chicken.compiler.support#unsafe o|propagated global variable: tmp19421944 chicken.compiler.support#unsafe o|inlining procedure: "(optimizer.scm:1157) chicken.compiler.optimizer#fourth" o|inlining procedure: k9129 o|substituted constant variable: a9204 o|inlining procedure: k9120 o|inlining procedure: k9230 o|inlining procedure: k9242 o|inlining procedure: k9278 o|inlining procedure: k9278 o|inlining procedure: "(optimizer.scm:1191) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1192) chicken.compiler.optimizer#second" o|inlining procedure: k9317 o|substituted constant variable: a9325 o|inlining procedure: k9317 o|propagated global variable: tmp19631965 chicken.compiler.support#unsafe o|propagated global variable: tmp19631965 chicken.compiler.support#unsafe o|inlining procedure: k9242 o|inlining procedure: k9230 o|inlining procedure: "(optimizer.scm:1179) chicken.compiler.optimizer#fourth" o|inlining procedure: "(optimizer.scm:1178) chicken.compiler.optimizer#third" o|inlining procedure: "(optimizer.scm:1176) chicken.compiler.optimizer#first" o|inlining procedure: k9339 o|inlining procedure: k9348 o|inlining procedure: k9380 o|inlining procedure: "(optimizer.scm:1209) chicken.compiler.optimizer#third" o|inlining procedure: k9380 o|inlining procedure: "(optimizer.scm:1210) chicken.compiler.optimizer#second" o|inlining procedure: k9348 o|inlining procedure: "(optimizer.scm:1202) chicken.compiler.optimizer#first" o|inlining procedure: k9339 o|inlining procedure: k9413 o|inlining procedure: k9422 o|inlining procedure: "(optimizer.scm:1218) chicken.compiler.optimizer#first" o|inlining procedure: k9422 o|inlining procedure: k9413 o|inlining procedure: k9447 o|inlining procedure: k9456 o|inlining procedure: k9488 o|inlining procedure: k9488 o|substituted constant variable: a9580 o|inlining procedure: k9456 o|inlining procedure: k9447 o|inlining procedure: k9590 o|inlining procedure: k9602 o|inlining procedure: "(optimizer.scm:1263) chicken.compiler.optimizer#third" o|inlining procedure: "(optimizer.scm:1260) chicken.compiler.optimizer#second" o|inlining procedure: k9602 o|inlining procedure: "(optimizer.scm:1254) chicken.compiler.optimizer#first" o|inlining procedure: k9590 o|inlining procedure: "(optimizer.scm:1252) chicken.compiler.optimizer#fourth" o|inlining procedure: k9671 o|inlining procedure: k9680 o|inlining procedure: k9722 o|inlining procedure: "(optimizer.scm:1286) chicken.compiler.optimizer#first" o|inlining procedure: k9722 o|inlining procedure: k9761 o|inlining procedure: k9761 o|inlining procedure: k9800 o|inlining procedure: "(optimizer.scm:1282) chicken.compiler.optimizer#first" o|inlining procedure: k9800 o|inlining procedure: "(optimizer.scm:1277) chicken.compiler.optimizer#third" o|inlining procedure: "(optimizer.scm:1277) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1276) chicken.compiler.optimizer#fourth" o|inlining procedure: "(optimizer.scm:1274) chicken.compiler.optimizer#first" o|inlining procedure: k9680 o|inlining procedure: k9671 o|inlining procedure: k9842 o|inlining procedure: k9851 o|inlining procedure: k9878 o|inlining procedure: k9878 o|inlining procedure: "(optimizer.scm:1319) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1308) chicken.compiler.optimizer#third" o|inlining procedure: k9851 o|inlining procedure: k9842 o|inlining procedure: "(optimizer.scm:1304) chicken.compiler.optimizer#fourth" o|inlining procedure: "(optimizer.scm:1302) chicken.compiler.optimizer#first" o|inlining procedure: k9906 o|inlining procedure: k9915 o|consed rest parameter at call site: "(optimizer.scm:1333) chicken.compiler.optimizer#cons*" 2 o|inlining procedure: k9972 o|contracted procedure: "(optimizer.scm:1344) defarg1728" o|inlining procedure: k7863 o|inlining procedure: k7863 o|inlining procedure: k9972 o|inlining procedure: "(optimizer.scm:1334) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1332) chicken.compiler.optimizer#second" o|inlining procedure: "(optimizer.scm:1330) chicken.compiler.optimizer#first" o|inlining procedure: "(optimizer.scm:1329) chicken.compiler.optimizer#first" o|inlining procedure: k9915 o|inlining procedure: k9906 o|substituted constant variable: a10044 o|substituted constant variable: a10046 o|substituted constant variable: a10048 o|substituted constant variable: a10050 o|substituted constant variable: a10052 o|substituted constant variable: a10054 o|substituted constant variable: a10056 o|substituted constant variable: a10058 o|substituted constant variable: a10060 o|substituted constant variable: a10062 o|substituted constant variable: a10064 o|substituted constant variable: a10066 o|substituted constant variable: a10068 o|substituted constant variable: a10070 o|substituted constant variable: a10072 o|substituted constant variable: a10074 o|substituted constant variable: a10076 o|substituted constant variable: a10078 o|substituted constant variable: a10080 o|substituted constant variable: a10082 o|substituted constant variable: a10084 o|substituted constant variable: a10086 o|substituted constant variable: a10088 o|replaced variables: 1883 o|removed binding forms: 436 o|substituted constant variable: r334113407 o|substituted constant variable: r344713413 o|substituted constant variable: r348713415 o|substituted constant variable: r364213423 o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#second o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#third o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#fourth o|substituted constant variable: r385113432 o|substituted constant variable: r425013433 o|substituted constant variable: r498213499 o|substituted constant variable: r497013512 o|inlining procedure: k5098 o|inlining procedure: k5159 o|inlining procedure: k5159 o|inlining procedure: k5098 o|substituted constant variable: r547213590 o|converted assignments to bindings: (cfk1029) o|substituted constant variable: r624713707 o|substituted constant variable: r623513708 o|substituted constant variable: r631913731 o|substituted constant variable: r640113736 o|substituted constant variable: r637413737 o|substituted constant variable: r636213743 o|substituted constant variable: r635013749 o|substituted constant variable: r646113756 o|inlining procedure: k6605 o|substituted constant variable: r673513790 o|substituted constant variable: r711813822 o|substituted constant variable: r716313836 o|substituted constant variable: r715413837 o|substituted constant variable: r1017813871 o|substituted constant variable: r1016613877 o|substituted constant variable: r1015713878 o|substituted constant variable: r1014213879 o|substituted constant variable: r1013013880 o|substituted constant variable: r1036413941 o|substituted constant variable: r1043313950 o|substituted constant variable: r1043313951 o|substituted constant variable: r1042713957 o|substituted constant variable: r1047613959 o|substituted constant variable: r1047613960 o|substituted constant variable: r1049613968 o|substituted constant variable: r1051513969 o|substituted constant variable: r1051513970 o|substituted constant variable: r1054413978 o|substituted constant variable: r1056913979 o|inlining procedure: k10575 o|inlining procedure: k10575 o|substituted constant variable: r1056913990 o|substituted constant variable: r1066514027 o|substituted constant variable: r428614040 o|substituted constant variable: r1072214041 o|substituted constant variable: r1137014138 o|inlining procedure: k11436 o|inlining procedure: k11436 o|substituted constant variable: r1145714159 o|substituted constant variable: r1156714160 o|substituted constant variable: r1159414163 o|substituted constant variable: r1159414163 o|folded constant expression: (scheme#length (quote ())) o|substituted constant variable: r1160114167 o|substituted constant variable: r1160114167 o|folded constant expression: (scheme#length (quote ())) o|substituted constant variable: r1154914179 o|inlining procedure: "(optimizer.scm:785) chicken.compiler.optimizer#register-simplifications" o|substituted constant variable: r1243114285 o|substituted constant variable: r1241914286 o|substituted constant variable: r1256214288 o|inlining procedure: "(optimizer.scm:640) chicken.compiler.optimizer#register-simplifications" o|substituted constant variable: r1263514290 o|substituted constant variable: r727814324 o|substituted constant variable: r736014327 o|substituted constant variable: r740514330 o|substituted constant variable: r389514334 o|converted assignments to bindings: (find-path1559) o|substituted constant variable: r1289514354 o|substituted constant variable: r1292514368 o|substituted constant variable: r1291314374 o|substituted constant variable: r1290114385 o|substituted constant variable: r1280314406 o|substituted constant variable: r1274914417 o|substituted constant variable: r1273714423 o|substituted constant variable: r1304314426 o|substituted constant variable: r1303114427 o|substituted constant variable: r1318214431 o|substituted constant variable: r1317014432 o|substituted constant variable: r1315814433 o|inlining procedure: "(optimizer.scm:621) chicken.compiler.optimizer#register-simplifications" o|substituted constant variable: r1334114434 o|substituted constant variable: r783214443 o|substituted constant variable: r796214454 o|substituted constant variable: r795014455 o|substituted constant variable: r802214489 o|substituted constant variable: r801314495 o|substituted constant variable: r808014515 o|substituted constant variable: r818814544 o|substituted constant variable: r818214545 o|substituted constant variable: r826514564 o|substituted constant variable: r825314570 o|substituted constant variable: r834214584 o|substituted constant variable: r833014585 o|substituted constant variable: r842214604 o|substituted constant variable: r841314610 o|substituted constant variable: r848114623 o|substituted constant variable: r853214647 o|substituted constant variable: r850514660 o|substituted constant variable: r876014698 o|substituted constant variable: r874814704 o|substituted constant variable: r885814718 o|substituted constant variable: r884014729 o|substituted constant variable: r891614755 o|substituted constant variable: r890714761 o|substituted constant variable: r900414770 o|substituted constant variable: r898914781 o|substituted constant variable: r907114800 o|substituted constant variable: r905914811 o|substituted constant variable: r905014817 o|substituted constant variable: r917714832 o|substituted constant variable: r914214843 o|substituted constant variable: r913014849 o|inlining procedure: k9278 o|substituted constant variable: r931814868 o|substituted constant variable: r924314869 o|substituted constant variable: r923114870 o|substituted constant variable: r934914902 o|substituted constant variable: r942314916 o|substituted constant variable: r941414917 o|substituted constant variable: r945714922 o|substituted constant variable: r960314936 o|substituted constant variable: r959114942 o|substituted constant variable: r980114966 o|substituted constant variable: r980114966 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r968114988 o|substituted constant variable: r985215006 o|substituted constant variable: r984315007 o|substituted constant variable: r991615044 o|simplifications: ((let . 2)) o|replaced variables: 420 o|removed binding forms: 1824 o|inlining procedure: k4990 o|inlining procedure: "(optimizer.scm:183) chicken.compiler.optimizer#alist-cons" o|inlining procedure: k4954 o|inlining procedure: "(optimizer.scm:276) chicken.compiler.optimizer#alist-cons" o|inlining procedure: k6875 o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#register-simplifications o|inlining procedure: "(optimizer.scm:1425) chicken.compiler.optimizer#alist-cons" o|substituted constant variable: r105691397915166 o|substituted constant variable: r105691397915169 o|inlining procedure: "(optimizer.scm:1505) chicken.compiler.optimizer#alist-cons" o|inlining procedure: "(optimizer.scm:1538) chicken.compiler.optimizer#alist-cons" o|inlining procedure: "(optimizer.scm:1624) chicken.compiler.optimizer#alist-cons" o|inlining procedure: k11586 o|substituted constant variable: class133315235 o|substituted constant variable: class133315243 o|inlining procedure: "(optimizer.scm:855) chicken.compiler.optimizer#alist-cons" o|inlining procedure: "(optimizer.scm:867) chicken.compiler.optimizer#alist-cons" o|inlining procedure: "(optimizer.scm:881) chicken.compiler.optimizer#alist-cons" o|substituted constant variable: class133315286 o|inlining procedure: "(optimizer.scm:635) chicken.compiler.optimizer#alist-cons" o|removed call to pure procedure with unused result: "(optimizer.scm:1060) ##sys#slot" o|inlining procedure: "(optimizer.scm:1180) chicken.compiler.optimizer#fifth" o|inlining procedure: "(optimizer.scm:1275) chicken.compiler.optimizer#fifth" o|inlining procedure: "(optimizer.scm:1315) chicken.compiler.optimizer#fifth" o|replaced variables: 64 o|removed binding forms: 558 o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#fifth o|removed side-effect free assignment to unused variable: chicken.compiler.optimizer#alist-cons o|substituted constant variable: y24515357 o|substituted constant variable: r495515364 o|substituted constant variable: r495515364 o|substituted constant variable: r495515364 o|substituted constant variable: x24415419 o|substituted constant variable: r1158715447 o|substituted constant variable: y24515515 o|contracted procedure: k8702 o|replaced variables: 232 o|removed binding forms: 73 o|removed conditional forms: 1 o|removed binding forms: 240 o|inlining procedure: k9383 o|substituted constant variable: r938415959 o|removed conditional forms: 1 o|removed binding forms: 1 o|simplifications: ((if . 37) (##core#call . 1234)) o| call simplifications: o| scheme#>= o| scheme#symbol? o| scheme#cddddr 4 o| scheme#* o| scheme#<= o| chicken.fixnum#fx< o| scheme#= 10 o| chicken.base#fixnum? o| chicken.fixnum#fx= o| ##sys#cons 9 o| ##sys#list 73 o| scheme#assoc o| scheme#- o| chicken.fixnum#fx> 2 o| scheme#set-car! o| scheme#list? 6 o| scheme#> 5 o| scheme#length 44 o| scheme#< 5 o| ##sys#call-with-values 6 o| scheme#cadddr 16 o| scheme#+ 8 o| scheme#cddr 6 o| scheme#list 145 o| scheme#cadr 55 o| scheme#caddr 34 o| scheme#caar 2 o| scheme#assq 10 o| scheme#set-cdr! 3 o| scheme#equal? 5 o| scheme#eq? 138 o| scheme#memq 17 o| chicken.fixnum#fx>= o| chicken.fixnum#fx+ o| scheme#not 55 o| scheme#null? 29 o| scheme#apply 3 o| scheme#cdr 40 o| ##sys#setslot 18 o| ##sys#check-list 32 o| scheme#pair? 63 o| ##sys#slot 106 o| scheme#values 8 o| chicken.fixnum#fx<= 3 o| scheme#car 165 o| chicken.fixnum#fx- 2 o| scheme#cons 95 o|contracted procedure: k3343 o|contracted procedure: k3350 o|contracted procedure: k3360 o|contracted procedure: k3401 o|contracted procedure: k3415 o|contracted procedure: k3425 o|contracted procedure: k3419 o|contracted procedure: k3434 o|contracted procedure: k3437 o|contracted procedure: k3449 o|contracted procedure: k3465 o|contracted procedure: k3473 o|contracted procedure: k3480 o|contracted procedure: k3504 o|contracted procedure: k3521 o|contracted procedure: k3543 o|contracted procedure: k3539 o|contracted procedure: k3524 o|contracted procedure: k3527 o|contracted procedure: k3535 o|contracted procedure: k3550 o|contracted procedure: k3558 o|contracted procedure: k3570 o|contracted procedure: k3592 o|contracted procedure: k3588 o|contracted procedure: k3573 o|contracted procedure: k3576 o|contracted procedure: k3584 o|contracted procedure: k3607 o|contracted procedure: k3616 o|contracted procedure: k3629 o|contracted procedure: k3644 o|contracted procedure: k3659 o|contracted procedure: k3674 o|contracted procedure: k3685 o|contracted procedure: k3730 o|contracted procedure: k3756 o|contracted procedure: k3841 o|contracted procedure: k3853 o|contracted procedure: k3871 o|contracted procedure: k3879 o|contracted procedure: k4252 o|contracted procedure: k4267 o|contracted procedure: k4536 o|contracted procedure: k4539 o|contracted procedure: k4546 o|contracted procedure: k4573 o|contracted procedure: k4585 o|contracted procedure: k4595 o|contracted procedure: k4599 o|contracted procedure: k4617 o|contracted procedure: k4620 o|contracted procedure: k4641 o|contracted procedure: k4637 o|contracted procedure: k4648 o|contracted procedure: k4662 o|contracted procedure: k4651 o|contracted procedure: k4658 o|contracted procedure: k4668 o|contracted procedure: k4684 o|contracted procedure: k4688 o|contracted procedure: k4694 o|contracted procedure: k4020 o|contracted procedure: k4010 o|contracted procedure: k4718 o|contracted procedure: k4721 o|contracted procedure: k4727 o|contracted procedure: k4736 o|contracted procedure: k4739 o|contracted procedure: k4742 o|contracted procedure: k4760 o|contracted procedure: k4783 o|contracted procedure: k4802 o|contracted procedure: k4833 o|contracted procedure: k4845 o|contracted procedure: k4855 o|contracted procedure: k4859 o|contracted procedure: k4862 o|contracted procedure: k3805 o|contracted procedure: k3808 o|contracted procedure: k3818 o|contracted procedure: k4919 o|contracted procedure: k4931 o|contracted procedure: k4945 o|contracted procedure: k4934 o|contracted procedure: k4941 o|contracted procedure: k4966 o|contracted procedure: k4984 o|contracted procedure: k4987 o|contracted procedure: k5004 o|contracted procedure: k4990 o|contracted procedure: k383515361 o|contracted procedure: k5012 o|contracted procedure: k5016 o|contracted procedure: k5025 o|contracted procedure: k5028 o|contracted procedure: k5040 o|contracted procedure: k5043 o|contracted procedure: k5046 o|contracted procedure: k5054 o|contracted procedure: k5062 o|contracted procedure: k5069 o|contracted procedure: k5082 o|contracted procedure: k5101 o|contracted procedure: k5119 o|contracted procedure: k5134 o|contracted procedure: k5140 o|contracted procedure: k5192 o|contracted procedure: k5196 o|contracted procedure: k5147 o|contracted procedure: k5156 o|contracted procedure: k4069 o|contracted procedure: k4095 o|contracted procedure: k4075 o|contracted procedure: k4089 o|contracted procedure: k5180 o|contracted procedure: k5188 o|contracted procedure: k5184 o|contracted procedure: k5238 o|contracted procedure: k5260 o|contracted procedure: k5335 o|contracted procedure: k5331 o|contracted procedure: k5274 o|contracted procedure: k5281 o|contracted procedure: k5287 o|contracted procedure: k5295 o|contracted procedure: k5317 o|contracted procedure: k5339 o|contracted procedure: k5345 o|contracted procedure: k5348 o|contracted procedure: k5369 o|contracted procedure: k5379 o|contracted procedure: k5387 o|contracted procedure: k5399 o|contracted procedure: k5402 o|contracted procedure: k5405 o|contracted procedure: k5413 o|contracted procedure: k5421 o|contracted procedure: k5434 o|contracted procedure: k383515377 o|contracted procedure: k5442 o|contracted procedure: k5445 o|contracted procedure: k5452 o|contracted procedure: k5460 o|contracted procedure: k5468 o|contracted procedure: k5487 o|contracted procedure: k5490 o|contracted procedure: k5493 o|contracted procedure: k3241 o|contracted procedure: k3265 o|contracted procedure: k3276 o|contracted procedure: k3284 o|contracted procedure: k5556 o|contracted procedure: k5560 o|contracted procedure: k5568 o|contracted procedure: k5536 o|contracted procedure: k5540 o|contracted procedure: k5548 o|contracted procedure: k5552 o|contracted procedure: k5630 o|contracted procedure: k5634 o|contracted procedure: k5642 o|contracted procedure: k5610 o|contracted procedure: k5614 o|contracted procedure: k5622 o|contracted procedure: k5626 o|contracted procedure: k5651 o|contracted procedure: k5657 o|contracted procedure: k5666 o|contracted procedure: k5669 o|contracted procedure: k5678 o|contracted procedure: k5681 o|contracted procedure: k5700 o|contracted procedure: k5717 o|contracted procedure: k5731 o|contracted procedure: k5744 o|contracted procedure: k5754 o|contracted procedure: k5758 o|contracted procedure: k5777 o|contracted procedure: k5785 o|contracted procedure: k5781 o|contracted procedure: k5801 o|contracted procedure: k5810 o|contracted procedure: k5830 o|contracted procedure: k5871 o|contracted procedure: k5884 o|contracted procedure: k5894 o|contracted procedure: k5898 o|contracted procedure: k5902 o|contracted procedure: k5906 o|contracted procedure: k6091 o|contracted procedure: k5918 o|contracted procedure: k5933 o|contracted procedure: k5942 o|contracted procedure: k5950 o|contracted procedure: k5968 o|contracted procedure: k5971 o|contracted procedure: k5974 o|contracted procedure: k5982 o|contracted procedure: k5990 o|contracted procedure: k6026 o|contracted procedure: k6030 o|contracted procedure: k6063 o|contracted procedure: k6076 o|contracted procedure: k6080 o|contracted procedure: k6086 o|contracted procedure: k6218 o|contracted procedure: k6106 o|contracted procedure: k6131 o|contracted procedure: k6138 o|contracted procedure: k6146 o|contracted procedure: k6158 o|contracted procedure: k6161 o|contracted procedure: k6164 o|contracted procedure: k6172 o|contracted procedure: k6180 o|contracted procedure: k6191 o|contracted procedure: k6198 o|contracted procedure: k6214 o|contracted procedure: k6208 o|contracted procedure: k6231 o|contracted procedure: k6243 o|contracted procedure: k6249 o|contracted procedure: k6258 o|contracted procedure: k6268 o|contracted procedure: k6302 o|contracted procedure: k6308 o|contracted procedure: k6321 o|contracted procedure: k6328 o|contracted procedure: k6346 o|contracted procedure: k6352 o|contracted procedure: k6364 o|contracted procedure: k6370 o|contracted procedure: k6403 o|contracted procedure: k6422 o|contracted procedure: k6433 o|contracted procedure: k6454 o|contracted procedure: k6463 o|contracted procedure: k6474 o|contracted procedure: k6485 o|contracted procedure: k6508 o|contracted procedure: k6514 o|contracted procedure: k6577 o|contracted procedure: k6527 o|contracted procedure: k6531 o|contracted procedure: k6548 o|contracted procedure: k6551 o|contracted procedure: k6554 o|contracted procedure: k6562 o|contracted procedure: k6570 o|contracted procedure: k6590 o|contracted procedure: k6593 o|contracted procedure: k6647 o|contracted procedure: k6696 o|contracted procedure: k6687 o|contracted procedure: k6713 o|contracted procedure: k6704 o|contracted procedure: k6650 o|contracted procedure: k6662 o|contracted procedure: k6672 o|contracted procedure: k6676 o|contracted procedure: k6717 o|contracted procedure: k6725 o|contracted procedure: k6728 o|contracted procedure: k6737 o|contracted procedure: k6743 o|contracted procedure: k6754 o|contracted procedure: k6803 o|contracted procedure: k6835 o|contracted procedure: k6844 o|contracted procedure: k6881 o|contracted procedure: k6887 o|contracted procedure: k6893 o|contracted procedure: k6899 o|contracted procedure: k6936 o|contracted procedure: k6948 o|contracted procedure: k6958 o|contracted procedure: k6962 o|contracted procedure: k6919 o|contracted procedure: k6933 o|propagated global variable: g12441246 chicken.compiler.optimizer#simplified-ops o|contracted procedure: k6965 o|contracted procedure: k6993 o|contracted procedure: k7004 o|contracted procedure: k7010 o|contracted procedure: k7025 o|contracted procedure: k7028 o|contracted procedure: k7040 o|contracted procedure: k7052 o|contracted procedure: k7062 o|contracted procedure: k7082 o|contracted procedure: k7078 o|contracted procedure: k7092 o|contracted procedure: k7095 o|contracted procedure: k7102 o|contracted procedure: k7132 o|contracted procedure: k7120 o|contracted procedure: k7135 o|contracted procedure: k7142 o|contracted procedure: k7182 o|contracted procedure: k7159 o|contracted procedure: k7177 o|contracted procedure: k7165 o|contracted procedure: k7185 o|contracted procedure: k7200 o|contracted procedure: k7206 o|contracted procedure: k7209 o|contracted procedure: k7221 o|contracted procedure: k7231 o|contracted procedure: k7235 o|contracted procedure: k7799 o|contracted procedure: k7810 o|contracted procedure: k10107 o|contracted procedure: k10110 o|contracted procedure: k10126 o|contracted procedure: k10132 o|contracted procedure: k10138 o|contracted procedure: k10144 o|contracted procedure: k10168 o|contracted procedure: k10174 o|contracted procedure: k10199 o|contracted procedure: k10203 o|contracted procedure: k10180 o|contracted procedure: k10187 o|contracted procedure: k10191 o|contracted procedure: k10195 o|contracted procedure: k10211 o|contracted procedure: k10225 o|contracted procedure: k10232 o|contracted procedure: k10236 o|contracted procedure: k10242 o|contracted procedure: k10252 o|contracted procedure: k10256 o|contracted procedure: k10260 o|contracted procedure: k10268 o|contracted procedure: k10280 o|contracted procedure: k10290 o|contracted procedure: k10294 o|contracted procedure: k10321 o|contracted procedure: k10324 o|contracted procedure: k10327 o|contracted procedure: k10350 o|contracted procedure: k10333 o|contracted procedure: k10342 o|contracted procedure: k10346 o|contracted procedure: k10360 o|contracted procedure: k10370 o|contracted procedure: k10377 o|contracted procedure: k10384 o|contracted procedure: k10394 o|contracted procedure: k10400 o|contracted procedure: k10417 o|contracted procedure: k10404 o|contracted procedure: k10423 o|contracted procedure: k10435 o|contracted procedure: k383515409 o|contracted procedure: k10447 o|contracted procedure: k10453 o|contracted procedure: k10478 o|contracted procedure: k10482 o|contracted procedure: k10486 o|contracted procedure: k10492 o|contracted procedure: k10517 o|contracted procedure: k10521 o|contracted procedure: k10525 o|contracted procedure: k10531 o|contracted procedure: k10534 o|contracted procedure: k10540 o|contracted procedure: k10546 o|contracted procedure: k10562 o|contracted procedure: k10565 o|contracted procedure: k10572 o|contracted procedure: k10579 o|contracted procedure: k10587 o|contracted procedure: k10583 o|contracted procedure: k10612 o|contracted procedure: k10615 o|contracted procedure: k10625 o|contracted procedure: k10629 o|contracted procedure: k10644 o|contracted procedure: k10651 o|contracted procedure: k10655 o|contracted procedure: k10661 o|contracted procedure: k10674 o|contracted procedure: k10682 o|contracted procedure: k10686 o|contracted procedure: k4301 o|contracted procedure: k4305 o|contracted procedure: k4288 o|contracted procedure: k11386 o|contracted procedure: k10744 o|contracted procedure: k10750 o|contracted procedure: k10759 o|contracted procedure: k10768 o|contracted procedure: k10779 o|contracted procedure: k10845 o|contracted procedure: k10838 o|contracted procedure: k10788 o|contracted procedure: k10802 o|contracted procedure: k10798 o|contracted procedure: k10810 o|contracted procedure: k10820 o|contracted procedure: k10814 o|contracted procedure: k10835 o|contracted procedure: k10831 o|contracted procedure: k10823 o|contracted procedure: k10851 o|contracted procedure: k10860 o|contracted procedure: k10869 o|contracted procedure: k10914 o|contracted procedure: k10924 o|contracted procedure: k10928 o|contracted procedure: k10880 o|contracted procedure: k10898 o|contracted procedure: k10937 o|contracted procedure: k10986 o|contracted procedure: k10979 o|contracted procedure: k10946 o|contracted procedure: k10950 o|contracted procedure: k10953 o|contracted procedure: k10994 o|contracted procedure: k11006 o|contracted procedure: k11016 o|contracted procedure: k11020 o|contracted procedure: k11026 o|contracted procedure: k11043 o|contracted procedure: k11047 o|contracted procedure: k11065 o|contracted procedure: k11068 o|contracted procedure: k11071 o|contracted procedure: k11083 o|contracted procedure: k11254 o|contracted procedure: k11089 o|contracted procedure: k11224 o|contracted procedure: k11099 o|contracted procedure: k11115 o|contracted procedure: k11119 o|contracted procedure: k11134 o|contracted procedure: k11130 o|contracted procedure: k11122 o|contracted procedure: k11220 o|contracted procedure: k11137 o|contracted procedure: k11145 o|contracted procedure: k11148 o|contracted procedure: k11167 o|contracted procedure: k11175 o|contracted procedure: k11179 o|contracted procedure: k11187 o|contracted procedure: k11206 o|contracted procedure: k11202 o|contracted procedure: k11194 o|contracted procedure: k383515424 o|contracted procedure: k11250 o|contracted procedure: k11230 o|contracted procedure: k11243 o|contracted procedure: k11264 o|contracted procedure: k11267 o|contracted procedure: k11270 o|contracted procedure: k11276 o|contracted procedure: k11290 o|contracted procedure: k383515431 o|contracted procedure: k11293 o|contracted procedure: k11305 o|contracted procedure: k11315 o|contracted procedure: k11319 o|contracted procedure: k11322 o|contracted procedure: k11334 o|contracted procedure: k11344 o|contracted procedure: k11348 o|contracted procedure: k11366 o|contracted procedure: k11372 o|contracted procedure: k11379 o|contracted procedure: k11389 o|contracted procedure: k3950 o|contracted procedure: k3958 o|contracted procedure: k3970 o|contracted procedure: k3992 o|contracted procedure: k3988 o|contracted procedure: k3973 o|contracted procedure: k3976 o|contracted procedure: k3984 o|contracted procedure: k11433 o|contracted procedure: k11449 o|contracted procedure: k11441 o|contracted procedure: k383515446 o|contracted procedure: k11492 o|contracted procedure: k11495 o|contracted procedure: k11498 o|contracted procedure: k11501 o|contracted procedure: k11515 o|contracted procedure: k11525 o|contracted procedure: k11532 o|contracted procedure: k11545 o|contracted procedure: k11551 o|contracted procedure: k11554 o|contracted procedure: k11557 o|contracted procedure: k11563 o|contracted procedure: k11575 o|contracted procedure: k11459 o|contracted procedure: k11466 o|contracted procedure: k11586 o|contracted procedure: k11619 o|contracted procedure: k11632 o|contracted procedure: k11635 o|contracted procedure: k11642 o|contracted procedure: k11665 o|contracted procedure: k11683 o|contracted procedure: k11695 o|contracted procedure: k11705 o|contracted procedure: k11709 o|contracted procedure: k11729 o|contracted procedure: k11739 o|contracted procedure: k11744 o|contracted procedure: k11747 o|contracted procedure: k11753 o|contracted procedure: k11756 o|contracted procedure: k11759 o|contracted procedure: k11771 o|contracted procedure: k11796 o|contracted procedure: k11799 o|contracted procedure: k11802 o|contracted procedure: k11810 o|contracted procedure: k11818 o|contracted procedure: k11832 o|contracted procedure: k11860 o|contracted procedure: k11863 o|contracted procedure: k11894 o|contracted procedure: k11902 o|contracted procedure: k11916 o|contracted procedure: k11906 o|contracted procedure: k11923 o|contracted procedure: k11935 o|contracted procedure: k11945 o|contracted procedure: k11949 o|contracted procedure: k11953 o|contracted procedure: k11965 o|contracted procedure: k11975 o|contracted procedure: k11979 o|contracted procedure: k11985 o|contracted procedure: k12005 o|contracted procedure: k12009 o|contracted procedure: k12021 o|contracted procedure: k12025 o|contracted procedure: k12053 o|contracted procedure: k12067 o|contracted procedure: k12071 o|contracted procedure: k12079 o|contracted procedure: k12083 o|contracted procedure: k12091 o|contracted procedure: k12099 o|contracted procedure: k12107 o|contracted procedure: k12129 o|contracted procedure: k12138 o|contracted procedure: k12172 o|contracted procedure: k12148 o|contracted procedure: k12152 o|contracted procedure: k12168 o|contracted procedure: k12176 o|contracted procedure: k12193 o|contracted procedure: k12196 o|contracted procedure: k12219 o|contracted procedure: k12231 o|contracted procedure: k12234 o|contracted procedure: k12237 o|contracted procedure: k12245 o|contracted procedure: k12253 o|contracted procedure: k12264 o|contracted procedure: k12274 o|contracted procedure: k12286 o|contracted procedure: k12298 o|contracted procedure: k12301 o|contracted procedure: k12304 o|contracted procedure: k12312 o|contracted procedure: k12320 o|contracted procedure: k12283 o|contracted procedure: k12332 o|contracted procedure: k12335 o|contracted procedure: k12338 o|contracted procedure: k12346 o|contracted procedure: k12354 o|contracted procedure: k12360 o|contracted procedure: k12370 o|contracted procedure: k12379 o|contracted procedure: k12389 o|contracted procedure: k12393 o|contracted procedure: k12604 o|contracted procedure: k12600 o|contracted procedure: k12584 o|contracted procedure: k12596 o|contracted procedure: k12592 o|contracted procedure: k12588 o|contracted procedure: k12551 o|contracted procedure: k12555 o|contracted procedure: k12568 o|contracted procedure: k12580 o|contracted procedure: k12397 o|contracted procedure: k12539 o|contracted procedure: k12547 o|contracted procedure: k12543 o|contracted procedure: k12535 o|contracted procedure: k12405 o|contracted procedure: k12409 o|contracted procedure: k12415 o|contracted procedure: k12421 o|contracted procedure: k12523 o|contracted procedure: k12427 o|contracted procedure: k12519 o|contracted procedure: k12436 o|contracted procedure: k12443 o|contracted procedure: k12447 o|contracted procedure: k12455 o|contracted procedure: k12468 o|contracted procedure: k12477 o|contracted procedure: k12489 o|contracted procedure: k12504 o|contracted procedure: k12512 o|contracted procedure: k12401 o|contracted procedure: k13229 o|contracted procedure: k13293 o|contracted procedure: k13309 o|contracted procedure: k13297 o|contracted procedure: k13305 o|contracted procedure: k13301 o|contracted procedure: k13233 o|contracted procedure: k13289 o|contracted procedure: k13241 o|contracted procedure: k13249 o|contracted procedure: k13269 o|contracted procedure: k13285 o|contracted procedure: k13273 o|contracted procedure: k13281 o|contracted procedure: k13277 o|contracted procedure: k13253 o|contracted procedure: k13265 o|contracted procedure: k13261 o|contracted procedure: k13257 o|contracted procedure: k13245 o|contracted procedure: k13237 o|contracted procedure: k13147 o|contracted procedure: k13151 o|contracted procedure: k13160 o|contracted procedure: k13217 o|contracted procedure: k13178 o|contracted procedure: k13208 o|contracted procedure: k13184 o|contracted procedure: k13191 o|contracted procedure: k12608 o|contracted procedure: k13083 o|contracted procedure: k13127 o|contracted procedure: k13143 o|contracted procedure: k13131 o|contracted procedure: k13139 o|contracted procedure: k13135 o|contracted procedure: k13087 o|contracted procedure: k13123 o|contracted procedure: k13095 o|contracted procedure: k13107 o|contracted procedure: k13119 o|contracted procedure: k13115 o|contracted procedure: k13111 o|contracted procedure: k13103 o|contracted procedure: k13099 o|contracted procedure: k13091 o|contracted procedure: k13020 o|contracted procedure: k13024 o|contracted procedure: k13033 o|contracted procedure: k13071 o|contracted procedure: k13045 o|contracted procedure: k13052 o|contracted procedure: k12612 o|contracted procedure: k13012 o|contracted procedure: k13016 o|contracted procedure: k12707 o|contracted procedure: k12711 o|contracted procedure: k12721 o|contracted procedure: k12739 o|contracted procedure: k13008 o|contracted procedure: k12745 o|contracted procedure: k12751 o|contracted procedure: k12757 o|contracted procedure: k12760 o|contracted procedure: k12775 o|contracted procedure: k12790 o|contracted procedure: k12782 o|contracted procedure: k12786 o|contracted procedure: k12796 o|contracted procedure: k12805 o|contracted procedure: k12980 o|contracted procedure: k12984 o|contracted procedure: k12811 o|contracted procedure: k12976 o|contracted procedure: k12818 o|contracted procedure: k12824 o|contracted procedure: k12861 o|contracted procedure: k12849 o|contracted procedure: k12853 o|contracted procedure: k12857 o|contracted procedure: k12869 o|contracted procedure: k12875 o|contracted procedure: k7256 o|contracted procedure: k7259 o|contracted procedure: k7262 o|contracted procedure: k7309 o|contracted procedure: k7280 o|contracted procedure: k7305 o|contracted procedure: k7283 o|contracted procedure: k7286 o|contracted procedure: k7292 o|contracted procedure: k383515478 o|contracted procedure: k7379 o|contracted procedure: k7330 o|contracted procedure: k7345 o|contracted procedure: k7353 o|contracted procedure: k383515485 o|contracted procedure: k7375 o|contracted procedure: k7362 o|contracted procedure: k7387 o|contracted procedure: k383515492 o|contracted procedure: k7422 o|contracted procedure: k7407 o|contracted procedure: k7418 o|contracted procedure: k3885 o|contracted procedure: k3897 o|contracted procedure: k3920 o|contracted procedure: k3928 o|contracted procedure: k7439 o|contracted procedure: k7454 o|contracted procedure: k7472 o|contracted procedure: k7479 o|contracted procedure: k7648 o|contracted procedure: k7485 o|contracted procedure: k7488 o|contracted procedure: k7498 o|contracted procedure: k7513 o|contracted procedure: k7509 o|contracted procedure: k7505 o|contracted procedure: k7525 o|contracted procedure: k7549 o|contracted procedure: k7534 o|contracted procedure: k7538 o|contracted procedure: k7557 o|contracted procedure: k7560 o|contracted procedure: k7572 o|contracted procedure: k7581 o|contracted procedure: k7585 o|contracted procedure: k7593 o|contracted procedure: k7605 o|contracted procedure: k7601 o|contracted procedure: k7597 o|contracted procedure: k7616 o|contracted procedure: k7624 o|contracted procedure: k7627 o|contracted procedure: k7642 o|contracted procedure: k7638 o|contracted procedure: k7634 o|contracted procedure: k7655 o|contracted procedure: k7664 o|contracted procedure: k7674 o|contracted procedure: k7678 o|contracted procedure: k7687 o|contracted procedure: k7697 o|contracted procedure: k7701 o|contracted procedure: k7735 o|contracted procedure: k7710 o|contracted procedure: k7720 o|contracted procedure: k7724 o|contracted procedure: k7728 o|contracted procedure: k7732 o|contracted procedure: k7783 o|contracted procedure: k7747 o|contracted procedure: k7773 o|contracted procedure: k7777 o|contracted procedure: k7769 o|contracted procedure: k7750 o|contracted procedure: k7753 o|contracted procedure: k7761 o|contracted procedure: k7765 o|contracted procedure: k12897 o|contracted procedure: k12972 o|contracted procedure: k12903 o|contracted procedure: k12909 o|contracted procedure: k12915 o|contracted procedure: k12921 o|contracted procedure: k12927 o|contracted procedure: k12936 o|contracted procedure: k12944 o|contracted procedure: k12952 o|contracted procedure: k12960 o|contracted procedure: k12968 o|contracted procedure: k12996 o|contracted procedure: k13004 o|contracted procedure: k12616 o|contracted procedure: k12679 o|contracted procedure: k12703 o|contracted procedure: k12699 o|contracted procedure: k12683 o|contracted procedure: k12695 o|contracted procedure: k12691 o|contracted procedure: k12687 o|contracted procedure: k12624 o|contracted procedure: k12628 o|contracted procedure: k12671 o|contracted procedure: k12637 o|contracted procedure: k12663 o|contracted procedure: k12643 o|contracted procedure: k12650 o|contracted procedure: k12658 o|contracted procedure: k12620 o|contracted procedure: k13404 o|contracted procedure: k13396 o|contracted procedure: k13400 o|contracted procedure: k13392 o|contracted procedure: k13388 o|contracted procedure: k13317 o|contracted procedure: k13321 o|contracted procedure: k13334 o|contracted procedure: k13343 o|contracted procedure: k13354 o|contracted procedure: k13365 o|contracted procedure: k13357 o|contracted procedure: k383515519 o|propagated global variable: z24615516 chicken.compiler.optimizer#simplified-ops o|contracted procedure: k13381 o|contracted procedure: k7819 o|contracted procedure: k7834 o|contracted procedure: k7850 o|contracted procedure: k7857 o|contracted procedure: k7899 o|contracted procedure: k7921 o|contracted procedure: k7925 o|contracted procedure: k7937 o|contracted procedure: k7933 o|contracted procedure: k7999 o|contracted procedure: k8003 o|contracted procedure: k7940 o|contracted procedure: k7943 o|contracted procedure: k7946 o|contracted procedure: k7952 o|contracted procedure: k7958 o|contracted procedure: k7964 o|contracted procedure: k7971 o|contracted procedure: k7975 o|contracted procedure: k8009 o|contracted procedure: k8063 o|contracted procedure: k8067 o|contracted procedure: k8018 o|contracted procedure: k8030 o|contracted procedure: k8033 o|contracted procedure: k8036 o|contracted procedure: k8043 o|contracted procedure: k8047 o|contracted procedure: k8059 o|contracted procedure: k8055 o|contracted procedure: k8073 o|contracted procedure: k8172 o|contracted procedure: k8088 o|contracted procedure: k8094 o|contracted procedure: k8106 o|contracted procedure: k8130 o|contracted procedure: k8115 o|contracted procedure: k8119 o|contracted procedure: k8138 o|contracted procedure: k8145 o|contracted procedure: k8149 o|contracted procedure: k8157 o|contracted procedure: k8164 o|contracted procedure: k8168 o|contracted procedure: k8178 o|contracted procedure: k8240 o|contracted procedure: k8190 o|contracted procedure: k8235 o|contracted procedure: k8203 o|contracted procedure: k8215 o|contracted procedure: k8223 o|contracted procedure: k8207 o|contracted procedure: k8227 o|contracted procedure: k8231 o|contracted procedure: k8246 o|contracted procedure: k8320 o|contracted procedure: k8261 o|contracted procedure: k8267 o|contracted procedure: k8270 o|contracted procedure: k8273 o|contracted procedure: k8280 o|contracted procedure: k8284 o|contracted procedure: k8312 o|contracted procedure: k8292 o|contracted procedure: k8300 o|contracted procedure: k8296 o|contracted procedure: k8308 o|contracted procedure: k8326 o|contracted procedure: k8332 o|contracted procedure: k8335 o|contracted procedure: k8394 o|contracted procedure: k8344 o|contracted procedure: k8357 o|contracted procedure: k8361 o|contracted procedure: k8389 o|contracted procedure: k8369 o|contracted procedure: k8373 o|contracted procedure: k8385 o|contracted procedure: k8381 o|contracted procedure: k8400 o|contracted procedure: k8406 o|contracted procedure: k8409 o|contracted procedure: k8467 o|contracted procedure: k8471 o|contracted procedure: k8418 o|contracted procedure: k8431 o|contracted procedure: k8435 o|contracted procedure: k8463 o|contracted procedure: k8443 o|contracted procedure: k8451 o|contracted procedure: k8459 o|contracted procedure: k8477 o|contracted procedure: k8489 o|contracted procedure: k8498 o|contracted procedure: k8737 o|contracted procedure: k8513 o|contracted procedure: k8520 o|contracted procedure: k8524 o|contracted procedure: k8540 o|contracted procedure: k8551 o|contracted procedure: k8554 o|contracted procedure: k8569 o|contracted procedure: k8576 o|contracted procedure: k8604 o|contracted procedure: k8601 o|contracted procedure: k8584 o|contracted procedure: k8580 o|contracted procedure: k8597 o|contracted procedure: k8637 o|contracted procedure: k8617 o|contracted procedure: k8625 o|contracted procedure: k8621 o|contracted procedure: k8646 o|contracted procedure: k8649 o|contracted procedure: k8652 o|contracted procedure: k8660 o|contracted procedure: k8668 o|contracted procedure: k8680 o|contracted procedure: k8683 o|contracted procedure: k8686 o|contracted procedure: k8694 o|contracted procedure: k8723 o|contracted procedure: k8708 o|contracted procedure: k8717 o|contracted procedure: k8733 o|contracted procedure: k8744 o|contracted procedure: k8753 o|contracted procedure: k8756 o|contracted procedure: k8765 o|contracted procedure: k8827 o|contracted procedure: k8778 o|contracted procedure: k8790 o|contracted procedure: k8782 o|contracted procedure: k8815 o|contracted procedure: k8801 o|contracted procedure: k8808 o|contracted procedure: k8819 o|contracted procedure: k8823 o|contracted procedure: k8833 o|contracted procedure: k8842 o|contracted procedure: k8845 o|contracted procedure: k8854 o|contracted procedure: k8860 o|contracted procedure: k8886 o|contracted procedure: k8870 o|contracted procedure: k8882 o|contracted procedure: k8893 o|contracted procedure: k8897 o|contracted procedure: k8903 o|contracted procedure: k8918 o|contracted procedure: k8921 o|contracted procedure: k8924 o|contracted procedure: k8976 o|contracted procedure: k8930 o|contracted procedure: k8936 o|contracted procedure: k8943 o|contracted procedure: k8947 o|contracted procedure: k8970 o|contracted procedure: k8954 o|contracted procedure: k8966 o|contracted procedure: k8982 o|contracted procedure: k8997 o|contracted procedure: k9000 o|contracted procedure: k9009 o|contracted procedure: k9028 o|contracted procedure: k9031 o|contracted procedure: k9040 o|contracted procedure: k9046 o|contracted procedure: k9113 o|contracted procedure: k9117 o|contracted procedure: k9055 o|contracted procedure: k9109 o|contracted procedure: k9067 o|contracted procedure: k9073 o|contracted procedure: k9076 o|contracted procedure: k9083 o|contracted procedure: k9087 o|contracted procedure: k9099 o|contracted procedure: k9095 o|contracted procedure: k9123 o|contracted procedure: k9206 o|contracted procedure: k9132 o|contracted procedure: k9138 o|contracted procedure: k9198 o|contracted procedure: k9150 o|contracted procedure: k9173 o|contracted procedure: k9157 o|contracted procedure: k9169 o|contracted procedure: k9194 o|contracted procedure: k9179 o|contracted procedure: k9186 o|contracted procedure: k9190 o|contracted procedure: k9212 o|contracted procedure: k9215 o|contracted procedure: k9218 o|contracted procedure: k9221 o|contracted procedure: k9224 o|contracted procedure: k9236 o|contracted procedure: k9239 o|contracted procedure: k9251 o|contracted procedure: k9258 o|contracted procedure: k9262 o|contracted procedure: k9281 o|inlining procedure: k9270 o|contracted procedure: k9288 o|contracted procedure: k9301 o|contracted procedure: k9297 o|contracted procedure: k9278 o|inlining procedure: k9270 o|inlining procedure: k9270 o|contracted procedure: k9304 o|contracted procedure: k9311 o|contracted procedure: k9336 o|contracted procedure: k9329 o|contracted procedure: k379015532 o|contracted procedure: k9342 o|contracted procedure: k9400 o|contracted procedure: k9404 o|contracted procedure: k9351 o|contracted procedure: k9364 o|contracted procedure: k9368 o|contracted procedure: k9376 o|contracted procedure: k9396 o|contracted procedure: k9383 o|contracted procedure: k9410 o|contracted procedure: k9419 o|contracted procedure: k9432 o|contracted procedure: k9436 o|contracted procedure: k9444 o|contracted procedure: k9450 o|contracted procedure: k9577 o|contracted procedure: k9465 o|contracted procedure: k9475 o|contracted procedure: k9479 o|contracted procedure: k9491 o|contracted procedure: k9498 o|contracted procedure: k9502 o|contracted procedure: k9519 o|contracted procedure: k9523 o|contracted procedure: k9535 o|contracted procedure: k9573 o|contracted procedure: k9545 o|contracted procedure: k9549 o|contracted procedure: k9557 o|contracted procedure: k9561 o|contracted procedure: k9584 o|contracted procedure: k9587 o|contracted procedure: k9593 o|contracted procedure: k9596 o|contracted procedure: k9668 o|contracted procedure: k9605 o|contracted procedure: k9618 o|contracted procedure: k9622 o|contracted procedure: k9664 o|contracted procedure: k9630 o|contracted procedure: k9652 o|contracted procedure: k9660 o|contracted procedure: k9674 o|contracted procedure: k9686 o|contracted procedure: k9692 o|contracted procedure: k9695 o|contracted procedure: k9704 o|contracted procedure: k9711 o|contracted procedure: k9715 o|contracted procedure: k9790 o|contracted procedure: k9725 o|contracted procedure: k9732 o|contracted procedure: k9740 o|contracted procedure: k9736 o|contracted procedure: k9747 o|contracted procedure: k9751 o|contracted procedure: k9764 o|contracted procedure: k9771 o|contracted procedure: k9775 o|contracted procedure: k9782 o|contracted procedure: k9786 o|contracted procedure: k9803 o|contracted procedure: k9810 o|contracted procedure: k9800 o|contracted procedure: k379015539 o|contracted procedure: k9830 o|contracted procedure: k9833 o|contracted procedure: k9836 o|contracted procedure: k9839 o|contracted procedure: k9848 o|contracted procedure: k9860 o|contracted procedure: k9863 o|contracted procedure: k9870 o|contracted procedure: k9874 o|contracted procedure: k9881 o|contracted procedure: k9888 o|contracted procedure: k379015544 o|contracted procedure: k9903 o|contracted procedure: k9899 o|contracted procedure: k9909 o|contracted procedure: k9921 o|contracted procedure: k10033 o|contracted procedure: k10037 o|contracted procedure: k9927 o|contracted procedure: k10029 o|contracted procedure: k9934 o|contracted procedure: k9966 o|contracted procedure: k9975 o|contracted procedure: k9981 o|contracted procedure: k9998 o|contracted procedure: k7866 o|contracted procedure: k7882 o|contracted procedure: k7888 o|contracted procedure: k10004 o|contracted procedure: k10011 o|contracted procedure: k10021 o|contracted procedure: k10025 o|contracted procedure: k13313 o|simplifications: ((let . 173)) o|removed binding forms: 1131 o|inlining procedure: k9380 o|inlining procedure: k9380 o|replaced variables: 258 o|removed binding forms: 1 o|inlining procedure: k10439 o|inlining procedure: k11445 o|inlining procedure: k7315 o|inlining procedure: k7394 o|inlining procedure: k13369 o|inlining procedure: k9892 o|simplifications: ((if . 1)) o|removed binding forms: 175 o|contracted procedure: k5008 o|contracted procedure: k11093 o|contracted procedure: k11280 o|contracted procedure: k12316 o|contracted procedure: k7337 o|contracted procedure: k9689 o|removed binding forms: 12 o|direct leaf routine/allocation: touch554 0 o|direct leaf routine/allocation: loop327 0 o|direct leaf routine/allocation: touch670 0 o|direct leaf routine/allocation: for-each-loop684702 0 o|direct leaf routine/allocation: g724733 0 o|direct leaf routine/allocation: touch1277 0 o|direct leaf routine/allocation: close2377 6 o|direct leaf routine/allocation: g287288 3 o|direct leaf routine/allocation: g13521353 35 o|contracted procedure: "(optimizer.scm:97) k4677" o|contracted procedure: k4704 o|converted assignments to bindings: (loop327) o|converted assignments to bindings: (for-each-loop684702) o|contracted procedure: "(optimizer.scm:184) k4993" o|contracted procedure: "(optimizer.scm:184) k499315354" o|contracted procedure: "(optimizer.scm:178) k5058" o|contracted procedure: "(optimizer.scm:201) k5112" o|contracted procedure: "(optimizer.scm:220) k5170" o|contracted procedure: "(optimizer.scm:247) k5250" o|contracted procedure: "(optimizer.scm:251) k5277" o|contracted procedure: "(optimizer.scm:269) k5360" o|contracted procedure: "(optimizer.scm:289) k5526" o|contracted procedure: "(optimizer.scm:305) k5600" o|contracted procedure: "(optimizer.scm:340) k5709" o|contracted procedure: "(optimizer.scm:407) k5864" o|contracted procedure: "(optimizer.scm:414) k5939" o|contracted procedure: "(optimizer.scm:423) k6010" o|contracted procedure: "(optimizer.scm:489) k6602" o|contracted procedure: "(optimizer.scm:494) k6623" o|contracted procedure: "(optimizer.scm:501) k6635" o|contracted procedure: "(optimizer.scm:1661) k11535" o|contracted procedure: "(optimizer.scm:1674) k11675" o|simplifications: ((let . 2)) o|removed binding forms: 21 o|replaced variables: 4 o|removed binding forms: 2 x|eliminated type checks: x| C_i_check_list_2: 1 o|customizable procedures: (k7875 loop2044 lp1983 k9227 k9016 k8863 k8534 k8537 map-loop18311849 map-loop18591876 loop1883 k8091 foldr17751778 k7825 argc-ok?1727 loop1344 k12842 map-loop15191538 g15511573 for-each-loop15501578 g15911598 for-each-loop15901606 g16151622 for-each-loop16141632 g16521653 foldl16451649 k7494 foldr16811684 g16861687 foldr16681671 foldr272275 g277278 find-path1559 find1562 loop21427 loop11405 foldr14991502 g15041505 g23832482 for-each-loop23822669 g24992508 map-loop24932549 map-loop25602580 map-loop26012618 k11991 chicken.compiler.optimizer#append-map loop2631 descend2625 g25922637 for-each-loop25912662 g26442651 for-each-loop26432657 chicken.compiler.optimizer#list-tabulate chicken.compiler.optimizer#cons* map-loop25182535 g24592466 for-each-loop24582476 k11507 k11582 k11569 walk2379 map-loop300318 k10756 for-each-loop22862296 for-each-loop22692279 g22472248 g22132302 for-each-loop22122314 foldr23262329 for-each-loop23402353 k10549 k10502 k10463 chicken.compiler.optimizer#every rec2113 g20912098 for-each-loop20902101 scan2062 walk2061 transform2063 g12851292 for-each-loop12841322 test1278 k7022 k7037 k7049 k7058 for-each-loop12371249 k6829 lp1222 k6731 k6632 for-each-loop11971209 g11511160 map-loop11451170 k5694 k6379 k5767 k5795 k5819 k6097 g11101119 map-loop11041129 chicken.compiler.optimizer#split-at k5936 loop1039 g10601069 map-loop10541079 invalidate-gae!671 g10061013 for-each-loop10051023 g922929 for-each-loop921939 walk-generic676 loop61 k5357 k5372 g844853 map-loop838863 g813814 k5301 test667 g785786 replace-var674 walk1675 k5162 loop344 walk673 map-loop718736 simplify672 chicken.compiler.optimizer#delete loop237 for-each-loop559638 k4671 k4766 mark552 remember553 scan-each555 k4644 k4623 chicken.compiler.optimizer#filter g578585 for-each-loop577589 scan556 k4532 loop422 foldr254257 g259260 loop217 loop204 loop191 loop178 chicken.compiler.optimizer#any map-loop122140 map-loop149167 loop118 foldr107110 g112113 loop94 chicken.compiler.optimizer#take) o|calls to known targets: 474 o|identified direct recursive calls: f_3338 1 o|identified direct recursive calls: f_3396 1 o|identified direct recursive calls: f_3444 1 o|identified direct recursive calls: f_3516 1 o|identified direct recursive calls: f_3565 1 o|identified direct recursive calls: f_3669 1 o|identified direct recursive calls: f_3848 1 o|identified direct recursive calls: f_4005 1 o|identified direct recursive calls: f_4926 1 o|identified direct recursive calls: f_5035 1 o|identified direct recursive calls: f_4064 2 o|identified direct recursive calls: f_10932 1 o|identified direct recursive calls: f_3965 1 o|unused rest argument: _2656 f_11910 o|unused rest argument: _2635 f_12061 o|unused rest argument: _2588 f_12268 o|identified direct recursive calls: f_12293 1 o|identified direct recursive calls: f_12463 1 o|identified direct recursive calls: f_3892 1 o|identified direct recursive calls: f_7567 1 o|identified direct recursive calls: f_7520 1 o|identified direct recursive calls: f_7742 1 o|identified direct recursive calls: f_8101 1 o|identified direct recursive calls: f_8564 1 o|identified direct recursive calls: f_9970 1 o|fast box initializations: 87 o|fast global references: 56 o|fast global assignments: 17 o|dropping unused closure argument: f_3338 o|dropping unused closure argument: f_3390 o|dropping unused closure argument: f_3429 o|dropping unused closure argument: f_3599 o|dropping unused closure argument: f_3633 o|dropping unused closure argument: f_3663 o|dropping unused closure argument: f_3719 o|dropping unused closure argument: f_3839 o|dropping unused closure argument: f_4005 o|dropping unused closure argument: f_4241 o|dropping unused closure argument: f_4912 o|dropping unused closure argument: f_4926 */ /* end of file */ chicken-5.1.0/chicken.memory.import.scm0000644000175000017500000000464413502227762017675 0ustar sjamaansjamaan;;;; chicken.memory.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.memory 'lolevel (scheme#list) '((address->pointer . chicken.memory#address->pointer) (align-to-word . chicken.memory#align-to-word) (allocate . chicken.memory#allocate) (free . chicken.memory#free) (make-pointer-vector . chicken.memory#make-pointer-vector) (move-memory! . chicken.memory#move-memory!) (object->pointer . chicken.memory#object->pointer) (pointer+ . chicken.memory#pointer+) (pointer->address . chicken.memory#pointer->address) (pointer->object . chicken.memory#pointer->object) (pointer-f32-ref . chicken.memory#pointer-f32-ref) (pointer-f32-set! . chicken.memory#pointer-f32-set!) (pointer-f64-ref . chicken.memory#pointer-f64-ref) (pointer-f64-set! . chicken.memory#pointer-f64-set!) (pointer-like? . chicken.memory#pointer-like?) (pointer-s16-ref . chicken.memory#pointer-s16-ref) (pointer-s16-set! . chicken.memory#pointer-s16-set!) (pointer-s32-ref . chicken.memory#pointer-s32-ref) (pointer-s32-set! . chicken.memory#pointer-s32-set!) (pointer-s64-ref . chicken.memory#pointer-s64-ref) (pointer-s64-set! . chicken.memory#pointer-s64-set!) (pointer-s8-ref . chicken.memory#pointer-s8-ref) (pointer-s8-set! . chicken.memory#pointer-s8-set!) (pointer-tag . chicken.memory#pointer-tag) (pointer-u16-ref . chicken.memory#pointer-u16-ref) (pointer-u16-set! . chicken.memory#pointer-u16-set!) (pointer-u32-ref . chicken.memory#pointer-u32-ref) (pointer-u32-set! . chicken.memory#pointer-u32-set!) (pointer-u64-ref . chicken.memory#pointer-u64-ref) (pointer-u64-set! . chicken.memory#pointer-u64-set!) (pointer-u8-ref . chicken.memory#pointer-u8-ref) (pointer-u8-set! . chicken.memory#pointer-u8-set!) (pointer-vector . chicken.memory#pointer-vector) (pointer-vector-fill! . chicken.memory#pointer-vector-fill!) (pointer-vector-length . chicken.memory#pointer-vector-length) (pointer-vector-ref . chicken.memory#pointer-vector-ref) (pointer-vector-set! . chicken.memory#pointer-vector-set!) (pointer-vector? . chicken.memory#pointer-vector?) (pointer=? . chicken.memory#pointer=?) (pointer? . chicken.memory#pointer?) (tag-pointer . chicken.memory#tag-pointer) (tagged-pointer? . chicken.memory#tagged-pointer?)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/chicken.condition.import.scm0000644000175000017500000000473213502227553020347 0ustar sjamaansjamaan;;;; chicken.condition.import.scm - import library for "chicken.condition" module ; ; Copyright (c) 2017-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (##sys#register-core-module 'chicken.condition 'library '((abort . chicken.condition#abort) (signal . chicken.condition#signal) (current-exception-handler . chicken.condition#current-exception-handler) (print-error-message . chicken.condition#print-error-message) (with-exception-handler . chicken.condition#with-exception-handler) (make-property-condition . chicken.condition#make-property-condition) (make-composite-condition . chicken.condition#make-composite-condition) (condition . chicken.condition#condition) (condition? . chicken.condition#condition?) (condition->list . chicken.condition#condition->list) (condition-predicate . chicken.condition#condition-predicate) (condition-property-accessor . chicken.condition#condition-property-accessor) (get-condition-property . chicken.condition#get-condition-property)) ##sys#chicken.condition-macro-environment) chicken-5.1.0/batch-driver.c0000644000175000017500000271002613502227762015463 0ustar sjamaansjamaan/* Generated from batch-driver.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: batch-driver.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.batch-driver -output-file batch-driver.c unit: batch-driver uses: library eval expand extras data-structures pathname support compiler-syntax compiler optimizer internal scrutinizer lfa2 c-platform c-backend user-pass */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_support_toplevel) C_externimport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_compiler_2dsyntax_toplevel) C_externimport void C_ccall C_compiler_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_compiler_toplevel) C_externimport void C_ccall C_compiler_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_optimizer_toplevel) C_externimport void C_ccall C_optimizer_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_scrutinizer_toplevel) C_externimport void C_ccall C_scrutinizer_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_lfa2_toplevel) C_externimport void C_ccall C_lfa2_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_c_2dplatform_toplevel) C_externimport void C_ccall C_c_2dplatform_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_c_2dbackend_toplevel) C_externimport void C_ccall C_c_2dbackend_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_user_2dpass_toplevel) C_externimport void C_ccall C_user_2dpass_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[487]; static double C_possibly_force_alignment; C_noret_decl(f8625) static void C_ccall f8625(C_word c,C_word *av) C_noret; C_noret_decl(f9103) static void C_ccall f9103(C_word c,C_word *av) C_noret; C_noret_decl(f9109) static void C_ccall f9109(C_word c,C_word *av) C_noret; C_noret_decl(f9115) static void C_ccall f9115(C_word c,C_word *av) C_noret; C_noret_decl(f9121) static void C_ccall f9121(C_word c,C_word *av) C_noret; C_noret_decl(f9127) static void C_ccall f9127(C_word c,C_word *av) C_noret; C_noret_decl(f9133) static void C_ccall f9133(C_word c,C_word *av) C_noret; C_noret_decl(f9145) static void C_ccall f9145(C_word c,C_word *av) C_noret; C_noret_decl(f9153) static void C_ccall f9153(C_word c,C_word *av) C_noret; C_noret_decl(f9165) static void C_ccall f9165(C_word c,C_word *av) C_noret; C_noret_decl(f9189) static void C_ccall f9189(C_word c,C_word *av) C_noret; C_noret_decl(f9195) static void C_ccall f9195(C_word c,C_word *av) C_noret; C_noret_decl(f9209) static void C_ccall f9209(C_word c,C_word *av) C_noret; C_noret_decl(f9215) static void C_ccall f9215(C_word c,C_word *av) C_noret; C_noret_decl(f9221) static void C_ccall f9221(C_word c,C_word *av) C_noret; C_noret_decl(f9227) static void C_ccall f9227(C_word c,C_word *av) C_noret; C_noret_decl(f9233) static void C_ccall f9233(C_word c,C_word *av) C_noret; C_noret_decl(f9247) static void C_ccall f9247(C_word c,C_word *av) C_noret; C_noret_decl(f9263) static void C_ccall f9263(C_word c,C_word *av) C_noret; C_noret_decl(f9269) static void C_ccall f9269(C_word c,C_word *av) C_noret; C_noret_decl(f9275) static void C_ccall f9275(C_word c,C_word *av) C_noret; C_noret_decl(f9281) static void C_ccall f9281(C_word c,C_word *av) C_noret; C_noret_decl(f9287) static void C_ccall f9287(C_word c,C_word *av) C_noret; C_noret_decl(f_2669) static void C_ccall f_2669(C_word c,C_word *av) C_noret; C_noret_decl(f_2672) static void C_ccall f_2672(C_word c,C_word *av) C_noret; C_noret_decl(f_2675) static void C_ccall f_2675(C_word c,C_word *av) C_noret; C_noret_decl(f_2678) static void C_ccall f_2678(C_word c,C_word *av) C_noret; C_noret_decl(f_2681) static void C_ccall f_2681(C_word c,C_word *av) C_noret; C_noret_decl(f_2684) static void C_ccall f_2684(C_word c,C_word *av) C_noret; C_noret_decl(f_2687) static void C_ccall f_2687(C_word c,C_word *av) C_noret; C_noret_decl(f_2690) static void C_ccall f_2690(C_word c,C_word *av) C_noret; C_noret_decl(f_2693) static void C_ccall f_2693(C_word c,C_word *av) C_noret; C_noret_decl(f_2696) static void C_ccall f_2696(C_word c,C_word *av) C_noret; C_noret_decl(f_2699) static void C_ccall f_2699(C_word c,C_word *av) C_noret; C_noret_decl(f_2702) static void C_ccall f_2702(C_word c,C_word *av) C_noret; C_noret_decl(f_2705) static void C_ccall f_2705(C_word c,C_word *av) C_noret; C_noret_decl(f_2708) static void C_ccall f_2708(C_word c,C_word *av) C_noret; C_noret_decl(f_2711) static void C_ccall f_2711(C_word c,C_word *av) C_noret; C_noret_decl(f_2714) static void C_ccall f_2714(C_word c,C_word *av) C_noret; C_noret_decl(f_2915) static void C_fcall f_2915(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2930) static void C_fcall f_2930(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2938) static void C_fcall f_2938(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2946) static void C_ccall f_2946(C_word c,C_word *av) C_noret; C_noret_decl(f_2957) static void C_ccall f_2957(C_word c,C_word *av) C_noret; C_noret_decl(f_2970) static void C_fcall f_2970(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2984) static void C_ccall f_2984(C_word c,C_word *av) C_noret; C_noret_decl(f_2988) static void C_ccall f_2988(C_word c,C_word *av) C_noret; C_noret_decl(f_3000) static void C_ccall f_3000(C_word c,C_word *av) C_noret; C_noret_decl(f_3002) static void C_fcall f_3002(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3049) static void C_ccall f_3049(C_word c,C_word *av) C_noret; C_noret_decl(f_3051) static void C_fcall f_3051(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3091) static void C_fcall f_3091(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3113) static void C_ccall f_3113(C_word c,C_word *av) C_noret; C_noret_decl(f_3125) static C_word C_fcall f_3125(C_word t0); C_noret_decl(f_3177) static void C_fcall f_3177(C_word t0,C_word t1) C_noret; C_noret_decl(f_3183) static void C_fcall f_3183(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3201) static void C_ccall f_3201(C_word c,C_word *av) C_noret; C_noret_decl(f_3211) static void C_fcall f_3211(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3238) static void C_ccall f_3238(C_word c,C_word *av) C_noret; C_noret_decl(f_3325) static void C_fcall f_3325(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3334) static void C_fcall f_3334(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3342) static void C_fcall f_3342(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3349) static void C_ccall f_3349(C_word c,C_word *av) C_noret; C_noret_decl(f_3363) static void C_ccall f_3363(C_word c,C_word *av) C_noret; C_noret_decl(f_3424) static void C_ccall f_3424(C_word c,C_word *av) C_noret; C_noret_decl(f_3432) static void C_ccall f_3432(C_word c,C_word *av) C_noret; C_noret_decl(f_3715) static void C_ccall f_3715(C_word c,C_word *av) C_noret; C_noret_decl(f_3721) static void C_ccall f_3721(C_word c,C_word *av) C_noret; C_noret_decl(f_4000) static void C_ccall f_4000(C_word c,C_word *av) C_noret; C_noret_decl(f_4006) static void C_ccall f_4006(C_word c,C_word *av) C_noret; C_noret_decl(f_4013) static void C_ccall f_4013(C_word c,C_word *av) C_noret; C_noret_decl(f_4019) static void C_ccall f_4019(C_word c,C_word *av) C_noret; C_noret_decl(f_4022) static void C_ccall f_4022(C_word c,C_word *av) C_noret; C_noret_decl(f_4025) static void C_ccall f_4025(C_word c,C_word *av) C_noret; C_noret_decl(f_4028) static void C_ccall f_4028(C_word c,C_word *av) C_noret; C_noret_decl(f_4031) static void C_ccall f_4031(C_word c,C_word *av) C_noret; C_noret_decl(f_4037) static void C_ccall f_4037(C_word c,C_word *av) C_noret; C_noret_decl(f_4040) static void C_ccall f_4040(C_word c,C_word *av) C_noret; C_noret_decl(f_4043) static void C_ccall f_4043(C_word c,C_word *av) C_noret; C_noret_decl(f_4049) static void C_ccall f_4049(C_word c,C_word *av) C_noret; C_noret_decl(f_4052) static void C_ccall f_4052(C_word c,C_word *av) C_noret; C_noret_decl(f_4055) static void C_ccall f_4055(C_word c,C_word *av) C_noret; C_noret_decl(f_4061) static void C_ccall f_4061(C_word c,C_word *av) C_noret; C_noret_decl(f_4064) static void C_ccall f_4064(C_word c,C_word *av) C_noret; C_noret_decl(f_4067) static void C_ccall f_4067(C_word c,C_word *av) C_noret; C_noret_decl(f_4073) static void C_ccall f_4073(C_word c,C_word *av) C_noret; C_noret_decl(f_4076) static void C_ccall f_4076(C_word c,C_word *av) C_noret; C_noret_decl(f_4079) static void C_ccall f_4079(C_word c,C_word *av) C_noret; C_noret_decl(f_4085) static void C_ccall f_4085(C_word c,C_word *av) C_noret; C_noret_decl(f_4088) static void C_ccall f_4088(C_word c,C_word *av) C_noret; C_noret_decl(f_4093) static void C_fcall f_4093(C_word t0,C_word t1) C_noret; C_noret_decl(f_4097) static void C_ccall f_4097(C_word c,C_word *av) C_noret; C_noret_decl(f_4109) static void C_ccall f_4109(C_word c,C_word *av) C_noret; C_noret_decl(f_4120) static void C_ccall f_4120(C_word c,C_word *av) C_noret; C_noret_decl(f_4133) static void C_fcall f_4133(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4143) static void C_ccall f_4143(C_word c,C_word *av) C_noret; C_noret_decl(f_4156) static void C_fcall f_4156(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4166) static void C_ccall f_4166(C_word c,C_word *av) C_noret; C_noret_decl(f_4179) static void C_fcall f_4179(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4189) static void C_ccall f_4189(C_word c,C_word *av) C_noret; C_noret_decl(f_4202) static void C_fcall f_4202(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4206) static void C_fcall f_4206(C_word t0,C_word t1) C_noret; C_noret_decl(f_4211) static void C_ccall f_4211(C_word c,C_word *av) C_noret; C_noret_decl(f_4221) static void C_ccall f_4221(C_word c,C_word *av) C_noret; C_noret_decl(f_4224) static void C_ccall f_4224(C_word c,C_word *av) C_noret; C_noret_decl(f_4227) static void C_ccall f_4227(C_word c,C_word *av) C_noret; C_noret_decl(f_4230) static void C_ccall f_4230(C_word c,C_word *av) C_noret; C_noret_decl(f_4233) static void C_ccall f_4233(C_word c,C_word *av) C_noret; C_noret_decl(f_4236) static void C_ccall f_4236(C_word c,C_word *av) C_noret; C_noret_decl(f_4250) static void C_ccall f_4250(C_word c,C_word *av) C_noret; C_noret_decl(f_4261) static void C_ccall f_4261(C_word c,C_word *av) C_noret; C_noret_decl(f_4265) static void C_ccall f_4265(C_word c,C_word *av) C_noret; C_noret_decl(f_4273) static void C_fcall f_4273(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4283) static void C_ccall f_4283(C_word c,C_word *av) C_noret; C_noret_decl(f_4297) static void C_fcall f_4297(C_word t0,C_word t1) C_noret; C_noret_decl(f_4303) static void C_ccall f_4303(C_word c,C_word *av) C_noret; C_noret_decl(f_4314) static void C_ccall f_4314(C_word c,C_word *av) C_noret; C_noret_decl(f_4318) static void C_ccall f_4318(C_word c,C_word *av) C_noret; C_noret_decl(f_4324) static void C_fcall f_4324(C_word t0,C_word t1) C_noret; C_noret_decl(f_4330) static void C_ccall f_4330(C_word c,C_word *av) C_noret; C_noret_decl(f_4341) static void C_ccall f_4341(C_word c,C_word *av) C_noret; C_noret_decl(f_4345) static void C_ccall f_4345(C_word c,C_word *av) C_noret; C_noret_decl(f_4368) static void C_ccall f_4368(C_word c,C_word *av) C_noret; C_noret_decl(f_4384) static void C_ccall f_4384(C_word c,C_word *av) C_noret; C_noret_decl(f_4393) static void C_fcall f_4393(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4406) static void C_ccall f_4406(C_word c,C_word *av) C_noret; C_noret_decl(f_4417) static void C_fcall f_4417(C_word t0,C_word t1) C_noret; C_noret_decl(f_4423) static void C_ccall f_4423(C_word c,C_word *av) C_noret; C_noret_decl(f_4496) static void C_fcall f_4496(C_word t0,C_word t1) C_noret; C_noret_decl(f_4502) static void C_ccall f_4502(C_word c,C_word *av) C_noret; C_noret_decl(f_4505) static void C_ccall f_4505(C_word c,C_word *av) C_noret; C_noret_decl(f_4508) static void C_ccall f_4508(C_word c,C_word *av) C_noret; C_noret_decl(f_4782) static void C_ccall f_4782(C_word c,C_word *av) C_noret; C_noret_decl(f_4784) static void C_ccall f_4784(C_word c,C_word *av) C_noret; C_noret_decl(f_4787) static void C_fcall f_4787(C_word t0,C_word t1) C_noret; C_noret_decl(f_4818) static void C_ccall f_4818(C_word c,C_word *av) C_noret; C_noret_decl(f_4831) static void C_ccall f_4831(C_word c,C_word *av) C_noret; C_noret_decl(f_4845) static void C_ccall f_4845(C_word c,C_word *av) C_noret; C_noret_decl(f_4851) static void C_ccall f_4851(C_word c,C_word *av) C_noret; C_noret_decl(f_4857) static void C_ccall f_4857(C_word c,C_word *av) C_noret; C_noret_decl(f_4860) static void C_ccall f_4860(C_word c,C_word *av) C_noret; C_noret_decl(f_4865) static void C_fcall f_4865(C_word t0,C_word t1) C_noret; C_noret_decl(f_4885) static void C_fcall f_4885(C_word t0,C_word t1) C_noret; C_noret_decl(f_4890) static void C_ccall f_4890(C_word c,C_word *av) C_noret; C_noret_decl(f_4908) static void C_fcall f_4908(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4912) static void C_ccall f_4912(C_word c,C_word *av) C_noret; C_noret_decl(f_4924) static void C_ccall f_4924(C_word c,C_word *av) C_noret; C_noret_decl(f_4927) static void C_ccall f_4927(C_word c,C_word *av) C_noret; C_noret_decl(f_4930) static void C_ccall f_4930(C_word c,C_word *av) C_noret; C_noret_decl(f_4933) static void C_ccall f_4933(C_word c,C_word *av) C_noret; C_noret_decl(f_4935) static void C_fcall f_4935(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4942) static void C_ccall f_4942(C_word c,C_word *av) C_noret; C_noret_decl(f_4955) static void C_ccall f_4955(C_word c,C_word *av) C_noret; C_noret_decl(f_4957) static void C_fcall f_4957(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_4964) static void C_ccall f_4964(C_word c,C_word *av) C_noret; C_noret_decl(f_4970) static void C_ccall f_4970(C_word c,C_word *av) C_noret; C_noret_decl(f_4973) static void C_ccall f_4973(C_word c,C_word *av) C_noret; C_noret_decl(f_4976) static void C_ccall f_4976(C_word c,C_word *av) C_noret; C_noret_decl(f_4979) static void C_ccall f_4979(C_word c,C_word *av) C_noret; C_noret_decl(f_4984) static void C_fcall f_4984(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4991) static void C_ccall f_4991(C_word c,C_word *av) C_noret; C_noret_decl(f_4996) static void C_ccall f_4996(C_word c,C_word *av) C_noret; C_noret_decl(f_5007) static void C_fcall f_5007(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5017) static void C_ccall f_5017(C_word c,C_word *av) C_noret; C_noret_decl(f_5030) static void C_fcall f_5030(C_word t0,C_word t1) C_noret; C_noret_decl(f_5039) static void C_ccall f_5039(C_word c,C_word *av) C_noret; C_noret_decl(f_5070) static void C_ccall f_5070(C_word c,C_word *av) C_noret; C_noret_decl(f_5074) static void C_ccall f_5074(C_word c,C_word *av) C_noret; C_noret_decl(f_5090) static void C_ccall f_5090(C_word c,C_word *av) C_noret; C_noret_decl(f_5094) static void C_ccall f_5094(C_word c,C_word *av) C_noret; C_noret_decl(f_5115) static void C_fcall f_5115(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5121) static void C_fcall f_5121(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5129) static void C_fcall f_5129(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5137) static void C_ccall f_5137(C_word c,C_word *av) C_noret; C_noret_decl(f_5141) static void C_ccall f_5141(C_word c,C_word *av) C_noret; C_noret_decl(f_5150) static void C_fcall f_5150(C_word t0,C_word t1) C_noret; C_noret_decl(f_5158) static void C_ccall f_5158(C_word c,C_word *av) C_noret; C_noret_decl(f_5160) static void C_fcall f_5160(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5170) static void C_ccall f_5170(C_word c,C_word *av) C_noret; C_noret_decl(f_5173) static void C_ccall f_5173(C_word c,C_word *av) C_noret; C_noret_decl(f_5176) static void C_ccall f_5176(C_word c,C_word *av) C_noret; C_noret_decl(f_5179) static void C_ccall f_5179(C_word c,C_word *av) C_noret; C_noret_decl(f_5186) static void C_ccall f_5186(C_word c,C_word *av) C_noret; C_noret_decl(f_5190) static void C_ccall f_5190(C_word c,C_word *av) C_noret; C_noret_decl(f_5198) static void C_ccall f_5198(C_word c,C_word *av) C_noret; C_noret_decl(f_5200) static void C_fcall f_5200(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5202) static void C_fcall f_5202(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5206) static void C_ccall f_5206(C_word c,C_word *av) C_noret; C_noret_decl(f_5209) static void C_ccall f_5209(C_word c,C_word *av) C_noret; C_noret_decl(f_5214) static void C_ccall f_5214(C_word c,C_word *av) C_noret; C_noret_decl(f_5220) static void C_ccall f_5220(C_word c,C_word *av) C_noret; C_noret_decl(f_5225) static void C_fcall f_5225(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5230) static void C_fcall f_5230(C_word t0,C_word t1) C_noret; C_noret_decl(f_5266) static void C_fcall f_5266(C_word t0,C_word t1) C_noret; C_noret_decl(f_5269) static void C_fcall f_5269(C_word t0,C_word t1) C_noret; C_noret_decl(f_5272) static void C_ccall f_5272(C_word c,C_word *av) C_noret; C_noret_decl(f_5279) static void C_ccall f_5279(C_word c,C_word *av) C_noret; C_noret_decl(f_5282) static void C_ccall f_5282(C_word c,C_word *av) C_noret; C_noret_decl(f_5299) static void C_ccall f_5299(C_word c,C_word *av) C_noret; C_noret_decl(f_5303) static void C_ccall f_5303(C_word c,C_word *av) C_noret; C_noret_decl(f_5308) static void C_ccall f_5308(C_word c,C_word *av) C_noret; C_noret_decl(f_5314) static void C_ccall f_5314(C_word c,C_word *av) C_noret; C_noret_decl(f_5317) static void C_fcall f_5317(C_word t0,C_word t1) C_noret; C_noret_decl(f_5320) static void C_fcall f_5320(C_word t0,C_word t1) C_noret; C_noret_decl(f_5323) static void C_ccall f_5323(C_word c,C_word *av) C_noret; C_noret_decl(f_5326) static void C_fcall f_5326(C_word t0,C_word t1) C_noret; C_noret_decl(f_5329) static void C_fcall f_5329(C_word t0,C_word t1) C_noret; C_noret_decl(f_5332) static void C_fcall f_5332(C_word t0,C_word t1) C_noret; C_noret_decl(f_5335) static void C_fcall f_5335(C_word t0,C_word t1) C_noret; C_noret_decl(f_5338) static void C_fcall f_5338(C_word t0,C_word t1) C_noret; C_noret_decl(f_5341) static void C_fcall f_5341(C_word t0,C_word t1) C_noret; C_noret_decl(f_5344) static void C_fcall f_5344(C_word t0,C_word t1) C_noret; C_noret_decl(f_5347) static void C_fcall f_5347(C_word t0,C_word t1) C_noret; C_noret_decl(f_5350) static void C_fcall f_5350(C_word t0,C_word t1) C_noret; C_noret_decl(f_5353) static void C_fcall f_5353(C_word t0,C_word t1) C_noret; C_noret_decl(f_5356) static void C_fcall f_5356(C_word t0,C_word t1) C_noret; C_noret_decl(f_5359) static void C_fcall f_5359(C_word t0,C_word t1) C_noret; C_noret_decl(f_5362) static void C_fcall f_5362(C_word t0,C_word t1) C_noret; C_noret_decl(f_5365) static void C_fcall f_5365(C_word t0,C_word t1) C_noret; C_noret_decl(f_5368) static void C_fcall f_5368(C_word t0,C_word t1) C_noret; C_noret_decl(f_5371) static void C_fcall f_5371(C_word t0,C_word t1) C_noret; C_noret_decl(f_5374) static void C_fcall f_5374(C_word t0,C_word t1) C_noret; C_noret_decl(f_5377) static void C_fcall f_5377(C_word t0,C_word t1) C_noret; C_noret_decl(f_5382) static void C_fcall f_5382(C_word t0,C_word t1) C_noret; C_noret_decl(f_5387) static void C_fcall f_5387(C_word t0,C_word t1) C_noret; C_noret_decl(f_5392) static void C_fcall f_5392(C_word t0,C_word t1) C_noret; C_noret_decl(f_5397) static void C_fcall f_5397(C_word t0,C_word t1) C_noret; C_noret_decl(f_5400) static void C_ccall f_5400(C_word c,C_word *av) C_noret; C_noret_decl(f_5403) static void C_ccall f_5403(C_word c,C_word *av) C_noret; C_noret_decl(f_5406) static void C_ccall f_5406(C_word c,C_word *av) C_noret; C_noret_decl(f_5409) static void C_ccall f_5409(C_word c,C_word *av) C_noret; C_noret_decl(f_5412) static void C_ccall f_5412(C_word c,C_word *av) C_noret; C_noret_decl(f_5418) static void C_ccall f_5418(C_word c,C_word *av) C_noret; C_noret_decl(f_5421) static void C_ccall f_5421(C_word c,C_word *av) C_noret; C_noret_decl(f_5424) static void C_fcall f_5424(C_word t0,C_word t1) C_noret; C_noret_decl(f_5427) static void C_fcall f_5427(C_word t0,C_word t1) C_noret; C_noret_decl(f_5430) static void C_fcall f_5430(C_word t0,C_word t1) C_noret; C_noret_decl(f_5433) static void C_fcall f_5433(C_word t0,C_word t1) C_noret; C_noret_decl(f_5436) static void C_fcall f_5436(C_word t0,C_word t1) C_noret; C_noret_decl(f_5439) static void C_ccall f_5439(C_word c,C_word *av) C_noret; C_noret_decl(f_5442) static void C_ccall f_5442(C_word c,C_word *av) C_noret; C_noret_decl(f_5445) static void C_ccall f_5445(C_word c,C_word *av) C_noret; C_noret_decl(f_5451) static void C_ccall f_5451(C_word c,C_word *av) C_noret; C_noret_decl(f_5454) static void C_ccall f_5454(C_word c,C_word *av) C_noret; C_noret_decl(f_5460) static void C_ccall f_5460(C_word c,C_word *av) C_noret; C_noret_decl(f_5467) static void C_ccall f_5467(C_word c,C_word *av) C_noret; C_noret_decl(f_5470) static void C_ccall f_5470(C_word c,C_word *av) C_noret; C_noret_decl(f_5475) static void C_ccall f_5475(C_word c,C_word *av) C_noret; C_noret_decl(f_5478) static void C_ccall f_5478(C_word c,C_word *av) C_noret; C_noret_decl(f_5493) static void C_ccall f_5493(C_word c,C_word *av) C_noret; C_noret_decl(f_5497) static void C_ccall f_5497(C_word c,C_word *av) C_noret; C_noret_decl(f_5505) static void C_ccall f_5505(C_word c,C_word *av) C_noret; C_noret_decl(f_5508) static void C_ccall f_5508(C_word c,C_word *av) C_noret; C_noret_decl(f_5511) static void C_fcall f_5511(C_word t0,C_word t1) C_noret; C_noret_decl(f_5515) static void C_ccall f_5515(C_word c,C_word *av) C_noret; C_noret_decl(f_5518) static void C_fcall f_5518(C_word t0,C_word t1) C_noret; C_noret_decl(f_5522) static void C_ccall f_5522(C_word c,C_word *av) C_noret; C_noret_decl(f_5526) static void C_ccall f_5526(C_word c,C_word *av) C_noret; C_noret_decl(f_5537) static void C_ccall f_5537(C_word c,C_word *av) C_noret; C_noret_decl(f_5540) static void C_ccall f_5540(C_word c,C_word *av) C_noret; C_noret_decl(f_5543) static void C_fcall f_5543(C_word t0,C_word t1) C_noret; C_noret_decl(f_5546) static void C_ccall f_5546(C_word c,C_word *av) C_noret; C_noret_decl(f_5549) static void C_ccall f_5549(C_word c,C_word *av) C_noret; C_noret_decl(f_5552) static void C_ccall f_5552(C_word c,C_word *av) C_noret; C_noret_decl(f_5560) static void C_ccall f_5560(C_word c,C_word *av) C_noret; C_noret_decl(f_5571) static void C_fcall f_5571(C_word t0,C_word t1) C_noret; C_noret_decl(f_5582) static void C_ccall f_5582(C_word c,C_word *av) C_noret; C_noret_decl(f_5589) static void C_ccall f_5589(C_word c,C_word *av) C_noret; C_noret_decl(f_5598) static void C_ccall f_5598(C_word c,C_word *av) C_noret; C_noret_decl(f_5601) static void C_ccall f_5601(C_word c,C_word *av) C_noret; C_noret_decl(f_5604) static void C_ccall f_5604(C_word c,C_word *av) C_noret; C_noret_decl(f_5610) static void C_ccall f_5610(C_word c,C_word *av) C_noret; C_noret_decl(f_5613) static void C_ccall f_5613(C_word c,C_word *av) C_noret; C_noret_decl(f_5616) static void C_ccall f_5616(C_word c,C_word *av) C_noret; C_noret_decl(f_5619) static void C_ccall f_5619(C_word c,C_word *av) C_noret; C_noret_decl(f_5622) static void C_ccall f_5622(C_word c,C_word *av) C_noret; C_noret_decl(f_5626) static void C_ccall f_5626(C_word c,C_word *av) C_noret; C_noret_decl(f_5630) static void C_ccall f_5630(C_word c,C_word *av) C_noret; C_noret_decl(f_5633) static void C_ccall f_5633(C_word c,C_word *av) C_noret; C_noret_decl(f_5636) static void C_ccall f_5636(C_word c,C_word *av) C_noret; C_noret_decl(f_5639) static void C_ccall f_5639(C_word c,C_word *av) C_noret; C_noret_decl(f_5642) static void C_ccall f_5642(C_word c,C_word *av) C_noret; C_noret_decl(f_5645) static void C_ccall f_5645(C_word c,C_word *av) C_noret; C_noret_decl(f_5648) static void C_ccall f_5648(C_word c,C_word *av) C_noret; C_noret_decl(f_5651) static void C_fcall f_5651(C_word t0,C_word t1) C_noret; C_noret_decl(f_5654) static void C_ccall f_5654(C_word c,C_word *av) C_noret; C_noret_decl(f_5657) static void C_ccall f_5657(C_word c,C_word *av) C_noret; C_noret_decl(f_5661) static void C_fcall f_5661(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5667) static void C_ccall f_5667(C_word c,C_word *av) C_noret; C_noret_decl(f_5672) static void C_ccall f_5672(C_word c,C_word *av) C_noret; C_noret_decl(f_5678) static void C_ccall f_5678(C_word c,C_word *av) C_noret; C_noret_decl(f_5684) static void C_ccall f_5684(C_word c,C_word *av) C_noret; C_noret_decl(f_5687) static void C_fcall f_5687(C_word t0,C_word t1) C_noret; C_noret_decl(f_5693) static void C_ccall f_5693(C_word c,C_word *av) C_noret; C_noret_decl(f_5696) static void C_ccall f_5696(C_word c,C_word *av) C_noret; C_noret_decl(f_5699) static void C_ccall f_5699(C_word c,C_word *av) C_noret; C_noret_decl(f_5702) static void C_ccall f_5702(C_word c,C_word *av) C_noret; C_noret_decl(f_5705) static void C_ccall f_5705(C_word c,C_word *av) C_noret; C_noret_decl(f_5708) static void C_ccall f_5708(C_word c,C_word *av) C_noret; C_noret_decl(f_5711) static void C_ccall f_5711(C_word c,C_word *av) C_noret; C_noret_decl(f_5714) static void C_ccall f_5714(C_word c,C_word *av) C_noret; C_noret_decl(f_5719) static void C_ccall f_5719(C_word c,C_word *av) C_noret; C_noret_decl(f_5722) static void C_ccall f_5722(C_word c,C_word *av) C_noret; C_noret_decl(f_5725) static void C_ccall f_5725(C_word c,C_word *av) C_noret; C_noret_decl(f_5728) static void C_ccall f_5728(C_word c,C_word *av) C_noret; C_noret_decl(f_5731) static void C_ccall f_5731(C_word c,C_word *av) C_noret; C_noret_decl(f_5734) static void C_ccall f_5734(C_word c,C_word *av) C_noret; C_noret_decl(f_5737) static void C_ccall f_5737(C_word c,C_word *av) C_noret; C_noret_decl(f_5740) static void C_ccall f_5740(C_word c,C_word *av) C_noret; C_noret_decl(f_5743) static void C_ccall f_5743(C_word c,C_word *av) C_noret; C_noret_decl(f_5746) static void C_ccall f_5746(C_word c,C_word *av) C_noret; C_noret_decl(f_5749) static void C_ccall f_5749(C_word c,C_word *av) C_noret; C_noret_decl(f_5752) static void C_ccall f_5752(C_word c,C_word *av) C_noret; C_noret_decl(f_5755) static void C_ccall f_5755(C_word c,C_word *av) C_noret; C_noret_decl(f_5758) static void C_ccall f_5758(C_word c,C_word *av) C_noret; C_noret_decl(f_5761) static void C_fcall f_5761(C_word t0,C_word t1) C_noret; C_noret_decl(f_5767) static void C_ccall f_5767(C_word c,C_word *av) C_noret; C_noret_decl(f_5770) static void C_ccall f_5770(C_word c,C_word *av) C_noret; C_noret_decl(f_5773) static void C_ccall f_5773(C_word c,C_word *av) C_noret; C_noret_decl(f_5776) static void C_ccall f_5776(C_word c,C_word *av) C_noret; C_noret_decl(f_5779) static void C_ccall f_5779(C_word c,C_word *av) C_noret; C_noret_decl(f_5784) static void C_fcall f_5784(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_5788) static void C_ccall f_5788(C_word c,C_word *av) C_noret; C_noret_decl(f_5791) static void C_ccall f_5791(C_word c,C_word *av) C_noret; C_noret_decl(f_5794) static void C_ccall f_5794(C_word c,C_word *av) C_noret; C_noret_decl(f_5798) static void C_ccall f_5798(C_word c,C_word *av) C_noret; C_noret_decl(f_5801) static void C_ccall f_5801(C_word c,C_word *av) C_noret; C_noret_decl(f_5804) static void C_ccall f_5804(C_word c,C_word *av) C_noret; C_noret_decl(f_5810) static void C_ccall f_5810(C_word c,C_word *av) C_noret; C_noret_decl(f_5813) static void C_ccall f_5813(C_word c,C_word *av) C_noret; C_noret_decl(f_5818) static void C_ccall f_5818(C_word c,C_word *av) C_noret; C_noret_decl(f_5830) static void C_ccall f_5830(C_word c,C_word *av) C_noret; C_noret_decl(f_5834) static void C_ccall f_5834(C_word c,C_word *av) C_noret; C_noret_decl(f_5837) static void C_ccall f_5837(C_word c,C_word *av) C_noret; C_noret_decl(f_5854) static void C_ccall f_5854(C_word c,C_word *av) C_noret; C_noret_decl(f_5868) static void C_ccall f_5868(C_word c,C_word *av) C_noret; C_noret_decl(f_5880) static void C_ccall f_5880(C_word c,C_word *av) C_noret; C_noret_decl(f_5883) static void C_ccall f_5883(C_word c,C_word *av) C_noret; C_noret_decl(f_5886) static void C_ccall f_5886(C_word c,C_word *av) C_noret; C_noret_decl(f_5889) static void C_ccall f_5889(C_word c,C_word *av) C_noret; C_noret_decl(f_5892) static void C_ccall f_5892(C_word c,C_word *av) C_noret; C_noret_decl(f_5895) static void C_ccall f_5895(C_word c,C_word *av) C_noret; C_noret_decl(f_5911) static void C_ccall f_5911(C_word c,C_word *av) C_noret; C_noret_decl(f_5914) static void C_ccall f_5914(C_word c,C_word *av) C_noret; C_noret_decl(f_5917) static void C_ccall f_5917(C_word c,C_word *av) C_noret; C_noret_decl(f_5920) static void C_ccall f_5920(C_word c,C_word *av) C_noret; C_noret_decl(f_5924) static void C_ccall f_5924(C_word c,C_word *av) C_noret; C_noret_decl(f_5927) static void C_ccall f_5927(C_word c,C_word *av) C_noret; C_noret_decl(f_5930) static void C_ccall f_5930(C_word c,C_word *av) C_noret; C_noret_decl(f_5933) static void C_ccall f_5933(C_word c,C_word *av) C_noret; C_noret_decl(f_5936) static void C_ccall f_5936(C_word c,C_word *av) C_noret; C_noret_decl(f_5939) static void C_ccall f_5939(C_word c,C_word *av) C_noret; C_noret_decl(f_5942) static void C_ccall f_5942(C_word c,C_word *av) C_noret; C_noret_decl(f_5947) static void C_ccall f_5947(C_word c,C_word *av) C_noret; C_noret_decl(f_5953) static void C_ccall f_5953(C_word c,C_word *av) C_noret; C_noret_decl(f_5957) static void C_ccall f_5957(C_word c,C_word *av) C_noret; C_noret_decl(f_5960) static void C_ccall f_5960(C_word c,C_word *av) C_noret; C_noret_decl(f_5963) static void C_ccall f_5963(C_word c,C_word *av) C_noret; C_noret_decl(f_5966) static void C_ccall f_5966(C_word c,C_word *av) C_noret; C_noret_decl(f_5969) static void C_ccall f_5969(C_word c,C_word *av) C_noret; C_noret_decl(f_5972) static void C_ccall f_5972(C_word c,C_word *av) C_noret; C_noret_decl(f_5975) static void C_ccall f_5975(C_word c,C_word *av) C_noret; C_noret_decl(f_5978) static void C_ccall f_5978(C_word c,C_word *av) C_noret; C_noret_decl(f_5981) static void C_ccall f_5981(C_word c,C_word *av) C_noret; C_noret_decl(f_5984) static void C_ccall f_5984(C_word c,C_word *av) C_noret; C_noret_decl(f_5997) static void C_ccall f_5997(C_word c,C_word *av) C_noret; C_noret_decl(f_6006) static void C_ccall f_6006(C_word c,C_word *av) C_noret; C_noret_decl(f_6011) static void C_ccall f_6011(C_word c,C_word *av) C_noret; C_noret_decl(f_6035) static void C_ccall f_6035(C_word c,C_word *av) C_noret; C_noret_decl(f_6041) static void C_ccall f_6041(C_word c,C_word *av) C_noret; C_noret_decl(f_6047) static void C_ccall f_6047(C_word c,C_word *av) C_noret; C_noret_decl(f_6050) static void C_ccall f_6050(C_word c,C_word *av) C_noret; C_noret_decl(f_6053) static void C_ccall f_6053(C_word c,C_word *av) C_noret; C_noret_decl(f_6056) static void C_ccall f_6056(C_word c,C_word *av) C_noret; C_noret_decl(f_6068) static void C_ccall f_6068(C_word c,C_word *av) C_noret; C_noret_decl(f_6071) static void C_ccall f_6071(C_word c,C_word *av) C_noret; C_noret_decl(f_6075) static void C_ccall f_6075(C_word c,C_word *av) C_noret; C_noret_decl(f_6084) static void C_ccall f_6084(C_word c,C_word *av) C_noret; C_noret_decl(f_6087) static void C_ccall f_6087(C_word c,C_word *av) C_noret; C_noret_decl(f_6090) static void C_ccall f_6090(C_word c,C_word *av) C_noret; C_noret_decl(f_6096) static void C_ccall f_6096(C_word c,C_word *av) C_noret; C_noret_decl(f_6128) static void C_ccall f_6128(C_word c,C_word *av) C_noret; C_noret_decl(f_6134) static void C_ccall f_6134(C_word c,C_word *av) C_noret; C_noret_decl(f_6139) static void C_ccall f_6139(C_word c,C_word *av) C_noret; C_noret_decl(f_6148) static void C_ccall f_6148(C_word c,C_word *av) C_noret; C_noret_decl(f_6154) static void C_ccall f_6154(C_word c,C_word *av) C_noret; C_noret_decl(f_6163) static void C_ccall f_6163(C_word c,C_word *av) C_noret; C_noret_decl(f_6167) static void C_ccall f_6167(C_word c,C_word *av) C_noret; C_noret_decl(f_6173) static void C_ccall f_6173(C_word c,C_word *av) C_noret; C_noret_decl(f_6176) static void C_ccall f_6176(C_word c,C_word *av) C_noret; C_noret_decl(f_6181) static void C_ccall f_6181(C_word c,C_word *av) C_noret; C_noret_decl(f_6184) static void C_ccall f_6184(C_word c,C_word *av) C_noret; C_noret_decl(f_6187) static void C_ccall f_6187(C_word c,C_word *av) C_noret; C_noret_decl(f_6190) static void C_ccall f_6190(C_word c,C_word *av) C_noret; C_noret_decl(f_6193) static void C_ccall f_6193(C_word c,C_word *av) C_noret; C_noret_decl(f_6196) static void C_ccall f_6196(C_word c,C_word *av) C_noret; C_noret_decl(f_6199) static void C_ccall f_6199(C_word c,C_word *av) C_noret; C_noret_decl(f_6202) static void C_ccall f_6202(C_word c,C_word *av) C_noret; C_noret_decl(f_6208) static void C_fcall f_6208(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6218) static void C_ccall f_6218(C_word c,C_word *av) C_noret; C_noret_decl(f_6231) static void C_fcall f_6231(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6241) static void C_ccall f_6241(C_word c,C_word *av) C_noret; C_noret_decl(f_6260) static void C_ccall f_6260(C_word c,C_word *av) C_noret; C_noret_decl(f_6272) static void C_ccall f_6272(C_word c,C_word *av) C_noret; C_noret_decl(f_6283) static void C_fcall f_6283(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6293) static void C_ccall f_6293(C_word c,C_word *av) C_noret; C_noret_decl(f_6309) static void C_ccall f_6309(C_word c,C_word *av) C_noret; C_noret_decl(f_6315) static void C_ccall f_6315(C_word c,C_word *av) C_noret; C_noret_decl(f_6322) static void C_ccall f_6322(C_word c,C_word *av) C_noret; C_noret_decl(f_6330) static void C_fcall f_6330(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6340) static void C_ccall f_6340(C_word c,C_word *av) C_noret; C_noret_decl(f_6354) static void C_ccall f_6354(C_word c,C_word *av) C_noret; C_noret_decl(f_6367) static void C_ccall f_6367(C_word c,C_word *av) C_noret; C_noret_decl(f_6369) static void C_fcall f_6369(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6405) static void C_ccall f_6405(C_word c,C_word *av) C_noret; C_noret_decl(f_6409) static void C_ccall f_6409(C_word c,C_word *av) C_noret; C_noret_decl(f_6413) static void C_ccall f_6413(C_word c,C_word *av) C_noret; C_noret_decl(f_6416) static void C_ccall f_6416(C_word c,C_word *av) C_noret; C_noret_decl(f_6419) static void C_ccall f_6419(C_word c,C_word *av) C_noret; C_noret_decl(f_6429) static void C_ccall f_6429(C_word c,C_word *av) C_noret; C_noret_decl(f_6434) static void C_fcall f_6434(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6459) static void C_ccall f_6459(C_word c,C_word *av) C_noret; C_noret_decl(f_6474) static void C_ccall f_6474(C_word c,C_word *av) C_noret; C_noret_decl(f_6480) static void C_ccall f_6480(C_word c,C_word *av) C_noret; C_noret_decl(f_6491) static void C_ccall f_6491(C_word c,C_word *av) C_noret; C_noret_decl(f_6495) static void C_ccall f_6495(C_word c,C_word *av) C_noret; C_noret_decl(f_6503) static void C_ccall f_6503(C_word c,C_word *av) C_noret; C_noret_decl(f_6506) static void C_ccall f_6506(C_word c,C_word *av) C_noret; C_noret_decl(f_6509) static void C_ccall f_6509(C_word c,C_word *av) C_noret; C_noret_decl(f_6512) static void C_ccall f_6512(C_word c,C_word *av) C_noret; C_noret_decl(f_6529) static void C_fcall f_6529(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6539) static void C_ccall f_6539(C_word c,C_word *av) C_noret; C_noret_decl(f_6553) static void C_ccall f_6553(C_word c,C_word *av) C_noret; C_noret_decl(f_6559) static void C_ccall f_6559(C_word c,C_word *av) C_noret; C_noret_decl(f_6572) static void C_ccall f_6572(C_word c,C_word *av) C_noret; C_noret_decl(f_6578) static void C_ccall f_6578(C_word c,C_word *av) C_noret; C_noret_decl(f_6581) static void C_ccall f_6581(C_word c,C_word *av) C_noret; C_noret_decl(f_6584) static void C_ccall f_6584(C_word c,C_word *av) C_noret; C_noret_decl(f_6588) static void C_ccall f_6588(C_word c,C_word *av) C_noret; C_noret_decl(f_6595) static void C_ccall f_6595(C_word c,C_word *av) C_noret; C_noret_decl(f_6597) static void C_fcall f_6597(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6622) static void C_ccall f_6622(C_word c,C_word *av) C_noret; C_noret_decl(f_6639) static void C_ccall f_6639(C_word c,C_word *av) C_noret; C_noret_decl(f_6645) static void C_ccall f_6645(C_word c,C_word *av) C_noret; C_noret_decl(f_6648) static void C_ccall f_6648(C_word c,C_word *av) C_noret; C_noret_decl(f_6651) static void C_ccall f_6651(C_word c,C_word *av) C_noret; C_noret_decl(f_6654) static void C_ccall f_6654(C_word c,C_word *av) C_noret; C_noret_decl(f_6658) static void C_ccall f_6658(C_word c,C_word *av) C_noret; C_noret_decl(f_6668) static void C_ccall f_6668(C_word c,C_word *av) C_noret; C_noret_decl(f_6670) static void C_fcall f_6670(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6695) static void C_ccall f_6695(C_word c,C_word *av) C_noret; C_noret_decl(f_6713) static void C_ccall f_6713(C_word c,C_word *av) C_noret; C_noret_decl(f_6715) static void C_ccall f_6715(C_word c,C_word *av) C_noret; C_noret_decl(f_6729) static void C_ccall f_6729(C_word c,C_word *av) C_noret; C_noret_decl(f_6748) static void C_ccall f_6748(C_word c,C_word *av) C_noret; C_noret_decl(f_6750) static void C_fcall f_6750(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6775) static void C_ccall f_6775(C_word c,C_word *av) C_noret; C_noret_decl(f_6807) static void C_ccall f_6807(C_word c,C_word *av) C_noret; C_noret_decl(f_6822) static void C_ccall f_6822(C_word c,C_word *av) C_noret; C_noret_decl(f_6826) static void C_fcall f_6826(C_word t0,C_word t1) C_noret; C_noret_decl(f_6830) static void C_ccall f_6830(C_word c,C_word *av) C_noret; C_noret_decl(f_6856) static void C_fcall f_6856(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6890) static void C_fcall f_6890(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6924) static void C_fcall f_6924(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6949) static void C_ccall f_6949(C_word c,C_word *av) C_noret; C_noret_decl(f_6974) static void C_ccall f_6974(C_word c,C_word *av) C_noret; C_noret_decl(f_6981) static void C_ccall f_6981(C_word c,C_word *av) C_noret; C_noret_decl(f_6991) static void C_ccall f_6991(C_word c,C_word *av) C_noret; C_noret_decl(f_6993) static void C_fcall f_6993(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7018) static void C_ccall f_7018(C_word c,C_word *av) C_noret; C_noret_decl(f_7028) static void C_ccall f_7028(C_word c,C_word *av) C_noret; C_noret_decl(f_7032) static void C_ccall f_7032(C_word c,C_word *av) C_noret; C_noret_decl(f_7037) static void C_fcall f_7037(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7048) static void C_ccall f_7048(C_word c,C_word *av) C_noret; C_noret_decl(f_7058) static void C_ccall f_7058(C_word c,C_word *av) C_noret; C_noret_decl(f_7062) static void C_ccall f_7062(C_word c,C_word *av) C_noret; C_noret_decl(f_7072) static void C_ccall f_7072(C_word c,C_word *av) C_noret; C_noret_decl(f_7074) static void C_fcall f_7074(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7099) static void C_ccall f_7099(C_word c,C_word *av) C_noret; C_noret_decl(f_7108) static void C_fcall f_7108(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7133) static void C_ccall f_7133(C_word c,C_word *av) C_noret; C_noret_decl(f_7146) static void C_ccall f_7146(C_word c,C_word *av) C_noret; C_noret_decl(f_7149) static void C_ccall f_7149(C_word c,C_word *av) C_noret; C_noret_decl(f_7156) static void C_ccall f_7156(C_word c,C_word *av) C_noret; C_noret_decl(f_7161) static void C_ccall f_7161(C_word c,C_word *av) C_noret; C_noret_decl(f_7167) static void C_fcall f_7167(C_word t0,C_word t1) C_noret; C_noret_decl(f_7171) static void C_ccall f_7171(C_word c,C_word *av) C_noret; C_noret_decl(f_7189) static void C_ccall f_7189(C_word c,C_word *av) C_noret; C_noret_decl(f_7196) static void C_ccall f_7196(C_word c,C_word *av) C_noret; C_noret_decl(f_7204) static void C_ccall f_7204(C_word c,C_word *av) C_noret; C_noret_decl(f_7222) static void C_ccall f_7222(C_word c,C_word *av) C_noret; C_noret_decl(f_7228) static void C_ccall f_7228(C_word c,C_word *av) C_noret; C_noret_decl(f_7277) static void C_ccall f_7277(C_word c,C_word *av) C_noret; C_noret_decl(f_7284) static void C_ccall f_7284(C_word c,C_word *av) C_noret; C_noret_decl(f_7300) static void C_ccall f_7300(C_word c,C_word *av) C_noret; C_noret_decl(f_7303) static void C_ccall f_7303(C_word c,C_word *av) C_noret; C_noret_decl(f_7309) static void C_ccall f_7309(C_word c,C_word *av) C_noret; C_noret_decl(f_7311) static void C_fcall f_7311(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7336) static void C_ccall f_7336(C_word c,C_word *av) C_noret; C_noret_decl(f_7360) static void C_ccall f_7360(C_word c,C_word *av) C_noret; C_noret_decl(f_7367) static void C_ccall f_7367(C_word c,C_word *av) C_noret; C_noret_decl(f_7372) static void C_fcall f_7372(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7397) static void C_ccall f_7397(C_word c,C_word *av) C_noret; C_noret_decl(f_7408) static void C_ccall f_7408(C_word c,C_word *av) C_noret; C_noret_decl(f_7410) static void C_fcall f_7410(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7420) static void C_ccall f_7420(C_word c,C_word *av) C_noret; C_noret_decl(f_7433) static void C_fcall f_7433(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7443) static void C_ccall f_7443(C_word c,C_word *av) C_noret; C_noret_decl(f_7456) static void C_ccall f_7456(C_word c,C_word *av) C_noret; C_noret_decl(f_7464) static void C_ccall f_7464(C_word c,C_word *av) C_noret; C_noret_decl(f_7466) static void C_fcall f_7466(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7476) static void C_ccall f_7476(C_word c,C_word *av) C_noret; C_noret_decl(f_7489) static void C_ccall f_7489(C_word c,C_word *av) C_noret; C_noret_decl(f_7497) static void C_ccall f_7497(C_word c,C_word *av) C_noret; C_noret_decl(f_7510) static void C_ccall f_7510(C_word c,C_word *av) C_noret; C_noret_decl(f_7519) static void C_ccall f_7519(C_word c,C_word *av) C_noret; C_noret_decl(f_7524) static void C_ccall f_7524(C_word c,C_word *av) C_noret; C_noret_decl(f_7535) static void C_fcall f_7535(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7545) static void C_ccall f_7545(C_word c,C_word *av) C_noret; C_noret_decl(f_7558) static void C_fcall f_7558(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7568) static void C_ccall f_7568(C_word c,C_word *av) C_noret; C_noret_decl(f_7613) static void C_ccall f_7613(C_word c,C_word *av) C_noret; C_noret_decl(f_7619) static void C_ccall f_7619(C_word c,C_word *av) C_noret; C_noret_decl(f_7621) static void C_fcall f_7621(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7646) static void C_ccall f_7646(C_word c,C_word *av) C_noret; C_noret_decl(f_7658) static void C_ccall f_7658(C_word c,C_word *av) C_noret; C_noret_decl(f_7661) static void C_ccall f_7661(C_word c,C_word *av) C_noret; C_noret_decl(f_7664) static void C_ccall f_7664(C_word c,C_word *av) C_noret; C_noret_decl(f_7667) static void C_ccall f_7667(C_word c,C_word *av) C_noret; C_noret_decl(f_7675) static void C_ccall f_7675(C_word c,C_word *av) C_noret; C_noret_decl(f_7683) static void C_ccall f_7683(C_word c,C_word *av) C_noret; C_noret_decl(f_7689) static void C_ccall f_7689(C_word c,C_word *av) C_noret; C_noret_decl(f_7722) static void C_ccall f_7722(C_word c,C_word *av) C_noret; C_noret_decl(f_7725) static void C_ccall f_7725(C_word c,C_word *av) C_noret; C_noret_decl(f_7732) static void C_ccall f_7732(C_word c,C_word *av) C_noret; C_noret_decl(f_7735) static void C_ccall f_7735(C_word c,C_word *av) C_noret; C_noret_decl(f_7738) static void C_ccall f_7738(C_word c,C_word *av) C_noret; C_noret_decl(f_7745) static void C_ccall f_7745(C_word c,C_word *av) C_noret; C_noret_decl(f_7751) static void C_ccall f_7751(C_word c,C_word *av) C_noret; C_noret_decl(f_7755) static void C_ccall f_7755(C_word c,C_word *av) C_noret; C_noret_decl(f_7787) static void C_ccall f_7787(C_word c,C_word *av) C_noret; C_noret_decl(f_7834) static void C_fcall f_7834(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7859) static void C_ccall f_7859(C_word c,C_word *av) C_noret; C_noret_decl(f_7872) static void C_ccall f_7872(C_word c,C_word *av) C_noret; C_noret_decl(f_7877) static void C_ccall f_7877(C_word c,C_word *av) C_noret; C_noret_decl(f_7893) static void C_ccall f_7893(C_word c,C_word *av) C_noret; C_noret_decl(f_7898) static void C_fcall f_7898(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7923) static void C_ccall f_7923(C_word c,C_word *av) C_noret; C_noret_decl(f_7934) static void C_ccall f_7934(C_word c,C_word *av) C_noret; C_noret_decl(f_7948) static void C_ccall f_7948(C_word c,C_word *av) C_noret; C_noret_decl(f_7952) static void C_ccall f_7952(C_word c,C_word *av) C_noret; C_noret_decl(f_7969) static void C_fcall f_7969(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7994) static void C_ccall f_7994(C_word c,C_word *av) C_noret; C_noret_decl(f_8005) static void C_ccall f_8005(C_word c,C_word *av) C_noret; C_noret_decl(f_8009) static void C_fcall f_8009(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8013) static void C_ccall f_8013(C_word c,C_word *av) C_noret; C_noret_decl(f_8037) static void C_ccall f_8037(C_word c,C_word *av) C_noret; C_noret_decl(f_8048) static void C_fcall f_8048(C_word t0,C_word t1) C_noret; C_noret_decl(f_8067) static void C_ccall f_8067(C_word c,C_word *av) C_noret; C_noret_decl(f_8075) static void C_fcall f_8075(C_word t0,C_word t1) C_noret; C_noret_decl(f_8082) static void C_fcall f_8082(C_word t0,C_word t1) C_noret; C_noret_decl(C_batch_2ddriver_toplevel) C_externexport void C_ccall C_batch_2ddriver_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_2915) static void C_ccall trf_2915(C_word c,C_word *av) C_noret; static void C_ccall trf_2915(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2915(t0,t1,t2,t3);} C_noret_decl(trf_2930) static void C_ccall trf_2930(C_word c,C_word *av) C_noret; static void C_ccall trf_2930(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2930(t0,t1,t2);} C_noret_decl(trf_2938) static void C_ccall trf_2938(C_word c,C_word *av) C_noret; static void C_ccall trf_2938(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2938(t0,t1,t2,t3);} C_noret_decl(trf_2970) static void C_ccall trf_2970(C_word c,C_word *av) C_noret; static void C_ccall trf_2970(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2970(t0,t1,t2);} C_noret_decl(trf_3002) static void C_ccall trf_3002(C_word c,C_word *av) C_noret; static void C_ccall trf_3002(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3002(t0,t1,t2);} C_noret_decl(trf_3051) static void C_ccall trf_3051(C_word c,C_word *av) C_noret; static void C_ccall trf_3051(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3051(t0,t1,t2);} C_noret_decl(trf_3091) static void C_ccall trf_3091(C_word c,C_word *av) C_noret; static void C_ccall trf_3091(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3091(t0,t1,t2);} C_noret_decl(trf_3177) static void C_ccall trf_3177(C_word c,C_word *av) C_noret; static void C_ccall trf_3177(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3177(t0,t1);} C_noret_decl(trf_3183) static void C_ccall trf_3183(C_word c,C_word *av) C_noret; static void C_ccall trf_3183(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3183(t0,t1,t2);} C_noret_decl(trf_3211) static void C_ccall trf_3211(C_word c,C_word *av) C_noret; static void C_ccall trf_3211(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3211(t0,t1,t2);} C_noret_decl(trf_3325) static void C_ccall trf_3325(C_word c,C_word *av) C_noret; static void C_ccall trf_3325(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3325(t0,t1,t2);} C_noret_decl(trf_3334) static void C_ccall trf_3334(C_word c,C_word *av) C_noret; static void C_ccall trf_3334(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3334(t0,t1,t2);} C_noret_decl(trf_3342) static void C_ccall trf_3342(C_word c,C_word *av) C_noret; static void C_ccall trf_3342(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3342(t0,t1,t2,t3);} C_noret_decl(trf_4093) static void C_ccall trf_4093(C_word c,C_word *av) C_noret; static void C_ccall trf_4093(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4093(t0,t1);} C_noret_decl(trf_4133) static void C_ccall trf_4133(C_word c,C_word *av) C_noret; static void C_ccall trf_4133(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4133(t0,t1,t2);} C_noret_decl(trf_4156) static void C_ccall trf_4156(C_word c,C_word *av) C_noret; static void C_ccall trf_4156(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4156(t0,t1,t2);} C_noret_decl(trf_4179) static void C_ccall trf_4179(C_word c,C_word *av) C_noret; static void C_ccall trf_4179(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4179(t0,t1,t2);} C_noret_decl(trf_4202) static void C_ccall trf_4202(C_word c,C_word *av) C_noret; static void C_ccall trf_4202(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4202(t0,t1,t2);} C_noret_decl(trf_4206) static void C_ccall trf_4206(C_word c,C_word *av) C_noret; static void C_ccall trf_4206(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4206(t0,t1);} C_noret_decl(trf_4273) static void C_ccall trf_4273(C_word c,C_word *av) C_noret; static void C_ccall trf_4273(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4273(t0,t1,t2);} C_noret_decl(trf_4297) static void C_ccall trf_4297(C_word c,C_word *av) C_noret; static void C_ccall trf_4297(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4297(t0,t1);} C_noret_decl(trf_4324) static void C_ccall trf_4324(C_word c,C_word *av) C_noret; static void C_ccall trf_4324(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4324(t0,t1);} C_noret_decl(trf_4393) static void C_ccall trf_4393(C_word c,C_word *av) C_noret; static void C_ccall trf_4393(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4393(t0,t1,t2);} C_noret_decl(trf_4417) static void C_ccall trf_4417(C_word c,C_word *av) C_noret; static void C_ccall trf_4417(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4417(t0,t1);} C_noret_decl(trf_4496) static void C_ccall trf_4496(C_word c,C_word *av) C_noret; static void C_ccall trf_4496(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4496(t0,t1);} C_noret_decl(trf_4787) static void C_ccall trf_4787(C_word c,C_word *av) C_noret; static void C_ccall trf_4787(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4787(t0,t1);} C_noret_decl(trf_4865) static void C_ccall trf_4865(C_word c,C_word *av) C_noret; static void C_ccall trf_4865(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4865(t0,t1);} C_noret_decl(trf_4885) static void C_ccall trf_4885(C_word c,C_word *av) C_noret; static void C_ccall trf_4885(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4885(t0,t1);} C_noret_decl(trf_4908) static void C_ccall trf_4908(C_word c,C_word *av) C_noret; static void C_ccall trf_4908(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4908(t0,t1,t2);} C_noret_decl(trf_4935) static void C_ccall trf_4935(C_word c,C_word *av) C_noret; static void C_ccall trf_4935(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_4935(t0,t1,t2,t3,t4);} C_noret_decl(trf_4957) static void C_ccall trf_4957(C_word c,C_word *av) C_noret; static void C_ccall trf_4957(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_4957(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_4984) static void C_ccall trf_4984(C_word c,C_word *av) C_noret; static void C_ccall trf_4984(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_4984(t0,t1,t2,t3,t4);} C_noret_decl(trf_5007) static void C_ccall trf_5007(C_word c,C_word *av) C_noret; static void C_ccall trf_5007(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5007(t0,t1,t2);} C_noret_decl(trf_5030) static void C_ccall trf_5030(C_word c,C_word *av) C_noret; static void C_ccall trf_5030(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5030(t0,t1);} C_noret_decl(trf_5115) static void C_ccall trf_5115(C_word c,C_word *av) C_noret; static void C_ccall trf_5115(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5115(t0,t1,t2);} C_noret_decl(trf_5121) static void C_ccall trf_5121(C_word c,C_word *av) C_noret; static void C_ccall trf_5121(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5121(t0,t1,t2);} C_noret_decl(trf_5129) static void C_ccall trf_5129(C_word c,C_word *av) C_noret; static void C_ccall trf_5129(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5129(t0,t1,t2);} C_noret_decl(trf_5150) static void C_ccall trf_5150(C_word c,C_word *av) C_noret; static void C_ccall trf_5150(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5150(t0,t1);} C_noret_decl(trf_5160) static void C_ccall trf_5160(C_word c,C_word *av) C_noret; static void C_ccall trf_5160(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5160(t0,t1,t2);} C_noret_decl(trf_5200) static void C_ccall trf_5200(C_word c,C_word *av) C_noret; static void C_ccall trf_5200(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_5200(t0,t1,t2,t3,t4);} C_noret_decl(trf_5202) static void C_ccall trf_5202(C_word c,C_word *av) C_noret; static void C_ccall trf_5202(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5202(t0,t1,t2,t3);} C_noret_decl(trf_5225) static void C_ccall trf_5225(C_word c,C_word *av) C_noret; static void C_ccall trf_5225(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5225(t0,t1,t2);} C_noret_decl(trf_5230) static void C_ccall trf_5230(C_word c,C_word *av) C_noret; static void C_ccall trf_5230(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5230(t0,t1);} C_noret_decl(trf_5266) static void C_ccall trf_5266(C_word c,C_word *av) C_noret; static void C_ccall trf_5266(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5266(t0,t1);} C_noret_decl(trf_5269) static void C_ccall trf_5269(C_word c,C_word *av) C_noret; static void C_ccall trf_5269(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5269(t0,t1);} C_noret_decl(trf_5317) static void C_ccall trf_5317(C_word c,C_word *av) C_noret; static void C_ccall trf_5317(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5317(t0,t1);} C_noret_decl(trf_5320) static void C_ccall trf_5320(C_word c,C_word *av) C_noret; static void C_ccall trf_5320(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5320(t0,t1);} C_noret_decl(trf_5326) static void C_ccall trf_5326(C_word c,C_word *av) C_noret; static void C_ccall trf_5326(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5326(t0,t1);} C_noret_decl(trf_5329) static void C_ccall trf_5329(C_word c,C_word *av) C_noret; static void C_ccall trf_5329(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5329(t0,t1);} C_noret_decl(trf_5332) static void C_ccall trf_5332(C_word c,C_word *av) C_noret; static void C_ccall trf_5332(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5332(t0,t1);} C_noret_decl(trf_5335) static void C_ccall trf_5335(C_word c,C_word *av) C_noret; static void C_ccall trf_5335(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5335(t0,t1);} C_noret_decl(trf_5338) static void C_ccall trf_5338(C_word c,C_word *av) C_noret; static void C_ccall trf_5338(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5338(t0,t1);} C_noret_decl(trf_5341) static void C_ccall trf_5341(C_word c,C_word *av) C_noret; static void C_ccall trf_5341(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5341(t0,t1);} C_noret_decl(trf_5344) static void C_ccall trf_5344(C_word c,C_word *av) C_noret; static void C_ccall trf_5344(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5344(t0,t1);} C_noret_decl(trf_5347) static void C_ccall trf_5347(C_word c,C_word *av) C_noret; static void C_ccall trf_5347(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5347(t0,t1);} C_noret_decl(trf_5350) static void C_ccall trf_5350(C_word c,C_word *av) C_noret; static void C_ccall trf_5350(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5350(t0,t1);} C_noret_decl(trf_5353) static void C_ccall trf_5353(C_word c,C_word *av) C_noret; static void C_ccall trf_5353(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5353(t0,t1);} C_noret_decl(trf_5356) static void C_ccall trf_5356(C_word c,C_word *av) C_noret; static void C_ccall trf_5356(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5356(t0,t1);} C_noret_decl(trf_5359) static void C_ccall trf_5359(C_word c,C_word *av) C_noret; static void C_ccall trf_5359(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5359(t0,t1);} C_noret_decl(trf_5362) static void C_ccall trf_5362(C_word c,C_word *av) C_noret; static void C_ccall trf_5362(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5362(t0,t1);} C_noret_decl(trf_5365) static void C_ccall trf_5365(C_word c,C_word *av) C_noret; static void C_ccall trf_5365(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5365(t0,t1);} C_noret_decl(trf_5368) static void C_ccall trf_5368(C_word c,C_word *av) C_noret; static void C_ccall trf_5368(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5368(t0,t1);} C_noret_decl(trf_5371) static void C_ccall trf_5371(C_word c,C_word *av) C_noret; static void C_ccall trf_5371(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5371(t0,t1);} C_noret_decl(trf_5374) static void C_ccall trf_5374(C_word c,C_word *av) C_noret; static void C_ccall trf_5374(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5374(t0,t1);} C_noret_decl(trf_5377) static void C_ccall trf_5377(C_word c,C_word *av) C_noret; static void C_ccall trf_5377(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5377(t0,t1);} C_noret_decl(trf_5382) static void C_ccall trf_5382(C_word c,C_word *av) C_noret; static void C_ccall trf_5382(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5382(t0,t1);} C_noret_decl(trf_5387) static void C_ccall trf_5387(C_word c,C_word *av) C_noret; static void C_ccall trf_5387(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5387(t0,t1);} C_noret_decl(trf_5392) static void C_ccall trf_5392(C_word c,C_word *av) C_noret; static void C_ccall trf_5392(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5392(t0,t1);} C_noret_decl(trf_5397) static void C_ccall trf_5397(C_word c,C_word *av) C_noret; static void C_ccall trf_5397(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5397(t0,t1);} C_noret_decl(trf_5424) static void C_ccall trf_5424(C_word c,C_word *av) C_noret; static void C_ccall trf_5424(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5424(t0,t1);} C_noret_decl(trf_5427) static void C_ccall trf_5427(C_word c,C_word *av) C_noret; static void C_ccall trf_5427(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5427(t0,t1);} C_noret_decl(trf_5430) static void C_ccall trf_5430(C_word c,C_word *av) C_noret; static void C_ccall trf_5430(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5430(t0,t1);} C_noret_decl(trf_5433) static void C_ccall trf_5433(C_word c,C_word *av) C_noret; static void C_ccall trf_5433(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5433(t0,t1);} C_noret_decl(trf_5436) static void C_ccall trf_5436(C_word c,C_word *av) C_noret; static void C_ccall trf_5436(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5436(t0,t1);} C_noret_decl(trf_5511) static void C_ccall trf_5511(C_word c,C_word *av) C_noret; static void C_ccall trf_5511(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5511(t0,t1);} C_noret_decl(trf_5518) static void C_ccall trf_5518(C_word c,C_word *av) C_noret; static void C_ccall trf_5518(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5518(t0,t1);} C_noret_decl(trf_5543) static void C_ccall trf_5543(C_word c,C_word *av) C_noret; static void C_ccall trf_5543(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5543(t0,t1);} C_noret_decl(trf_5571) static void C_ccall trf_5571(C_word c,C_word *av) C_noret; static void C_ccall trf_5571(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5571(t0,t1);} C_noret_decl(trf_5651) static void C_ccall trf_5651(C_word c,C_word *av) C_noret; static void C_ccall trf_5651(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5651(t0,t1);} C_noret_decl(trf_5661) static void C_ccall trf_5661(C_word c,C_word *av) C_noret; static void C_ccall trf_5661(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5661(t0,t1,t2);} C_noret_decl(trf_5687) static void C_ccall trf_5687(C_word c,C_word *av) C_noret; static void C_ccall trf_5687(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5687(t0,t1);} C_noret_decl(trf_5761) static void C_ccall trf_5761(C_word c,C_word *av) C_noret; static void C_ccall trf_5761(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5761(t0,t1);} C_noret_decl(trf_5784) static void C_ccall trf_5784(C_word c,C_word *av) C_noret; static void C_ccall trf_5784(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_5784(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_6208) static void C_ccall trf_6208(C_word c,C_word *av) C_noret; static void C_ccall trf_6208(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6208(t0,t1,t2);} C_noret_decl(trf_6231) static void C_ccall trf_6231(C_word c,C_word *av) C_noret; static void C_ccall trf_6231(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6231(t0,t1,t2);} C_noret_decl(trf_6283) static void C_ccall trf_6283(C_word c,C_word *av) C_noret; static void C_ccall trf_6283(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6283(t0,t1,t2);} C_noret_decl(trf_6330) static void C_ccall trf_6330(C_word c,C_word *av) C_noret; static void C_ccall trf_6330(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6330(t0,t1,t2);} C_noret_decl(trf_6369) static void C_ccall trf_6369(C_word c,C_word *av) C_noret; static void C_ccall trf_6369(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6369(t0,t1,t2);} C_noret_decl(trf_6434) static void C_ccall trf_6434(C_word c,C_word *av) C_noret; static void C_ccall trf_6434(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6434(t0,t1,t2);} C_noret_decl(trf_6529) static void C_ccall trf_6529(C_word c,C_word *av) C_noret; static void C_ccall trf_6529(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6529(t0,t1,t2);} C_noret_decl(trf_6597) static void C_ccall trf_6597(C_word c,C_word *av) C_noret; static void C_ccall trf_6597(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6597(t0,t1,t2);} C_noret_decl(trf_6670) static void C_ccall trf_6670(C_word c,C_word *av) C_noret; static void C_ccall trf_6670(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6670(t0,t1,t2);} C_noret_decl(trf_6750) static void C_ccall trf_6750(C_word c,C_word *av) C_noret; static void C_ccall trf_6750(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6750(t0,t1,t2);} C_noret_decl(trf_6826) static void C_ccall trf_6826(C_word c,C_word *av) C_noret; static void C_ccall trf_6826(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6826(t0,t1);} C_noret_decl(trf_6856) static void C_ccall trf_6856(C_word c,C_word *av) C_noret; static void C_ccall trf_6856(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6856(t0,t1,t2);} C_noret_decl(trf_6890) static void C_ccall trf_6890(C_word c,C_word *av) C_noret; static void C_ccall trf_6890(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6890(t0,t1,t2);} C_noret_decl(trf_6924) static void C_ccall trf_6924(C_word c,C_word *av) C_noret; static void C_ccall trf_6924(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6924(t0,t1,t2);} C_noret_decl(trf_6993) static void C_ccall trf_6993(C_word c,C_word *av) C_noret; static void C_ccall trf_6993(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6993(t0,t1,t2);} C_noret_decl(trf_7037) static void C_ccall trf_7037(C_word c,C_word *av) C_noret; static void C_ccall trf_7037(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7037(t0,t1,t2);} C_noret_decl(trf_7074) static void C_ccall trf_7074(C_word c,C_word *av) C_noret; static void C_ccall trf_7074(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7074(t0,t1,t2);} C_noret_decl(trf_7108) static void C_ccall trf_7108(C_word c,C_word *av) C_noret; static void C_ccall trf_7108(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7108(t0,t1,t2);} C_noret_decl(trf_7167) static void C_ccall trf_7167(C_word c,C_word *av) C_noret; static void C_ccall trf_7167(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7167(t0,t1);} C_noret_decl(trf_7311) static void C_ccall trf_7311(C_word c,C_word *av) C_noret; static void C_ccall trf_7311(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7311(t0,t1,t2);} C_noret_decl(trf_7372) static void C_ccall trf_7372(C_word c,C_word *av) C_noret; static void C_ccall trf_7372(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7372(t0,t1,t2);} C_noret_decl(trf_7410) static void C_ccall trf_7410(C_word c,C_word *av) C_noret; static void C_ccall trf_7410(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7410(t0,t1,t2);} C_noret_decl(trf_7433) static void C_ccall trf_7433(C_word c,C_word *av) C_noret; static void C_ccall trf_7433(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7433(t0,t1,t2);} C_noret_decl(trf_7466) static void C_ccall trf_7466(C_word c,C_word *av) C_noret; static void C_ccall trf_7466(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7466(t0,t1,t2);} C_noret_decl(trf_7535) static void C_ccall trf_7535(C_word c,C_word *av) C_noret; static void C_ccall trf_7535(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7535(t0,t1,t2);} C_noret_decl(trf_7558) static void C_ccall trf_7558(C_word c,C_word *av) C_noret; static void C_ccall trf_7558(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7558(t0,t1,t2);} C_noret_decl(trf_7621) static void C_ccall trf_7621(C_word c,C_word *av) C_noret; static void C_ccall trf_7621(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7621(t0,t1,t2);} C_noret_decl(trf_7834) static void C_ccall trf_7834(C_word c,C_word *av) C_noret; static void C_ccall trf_7834(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7834(t0,t1,t2);} C_noret_decl(trf_7898) static void C_ccall trf_7898(C_word c,C_word *av) C_noret; static void C_ccall trf_7898(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7898(t0,t1,t2);} C_noret_decl(trf_7969) static void C_ccall trf_7969(C_word c,C_word *av) C_noret; static void C_ccall trf_7969(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7969(t0,t1,t2);} C_noret_decl(trf_8009) static void C_ccall trf_8009(C_word c,C_word *av) C_noret; static void C_ccall trf_8009(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8009(t0,t1,t2);} C_noret_decl(trf_8048) static void C_ccall trf_8048(C_word c,C_word *av) C_noret; static void C_ccall trf_8048(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8048(t0,t1);} C_noret_decl(trf_8075) static void C_ccall trf_8075(C_word c,C_word *av) C_noret; static void C_ccall trf_8075(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8075(t0,t1);} C_noret_decl(trf_8082) static void C_ccall trf_8082(C_word c,C_word *av) C_noret; static void C_ccall trf_8082(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8082(t0,t1);} /* f8625 in k5976 in k5973 in k5970 in k5967 in k5964 in k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in ... */ static void C_ccall f8625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f8625,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9109,a[2]=t2,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[180]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} /* f9103 in k5982 in k5979 in k5976 in k5973 in k5970 in k5967 in k5964 in k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in ... */ static void C_ccall f9103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9103,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9109 */ static void C_ccall f9109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9109,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9115 in k5964 in k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in ... */ static void C_ccall f9115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9115,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9121 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in ... */ static void C_ccall f9121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9121,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9127 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in ... */ static void C_ccall f9127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9127,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9133 in k6088 in k6085 in k6082 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in ... */ static void C_ccall f9133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9133,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9145 in for-each-loop2006 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in ... */ static void C_ccall f9145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9145,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9153 in k6307 in for-each-loop1984 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in ... */ static void C_ccall f9153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9153,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9165 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in ... */ static void C_ccall f9165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9165,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9189 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in ... */ static void C_ccall f9189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9189,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9195 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in ... */ static void C_ccall f9195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9195,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9209 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in ... */ static void C_ccall f9209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9209,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9215 in k7226 in k7220 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in ... */ static void C_ccall f9215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9215,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9221 in k7226 in k7220 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in ... */ static void C_ccall f9221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9221,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9227 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in ... */ static void C_ccall f9227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9227,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9233 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in ... */ static void C_ccall f9233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9233,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9247 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in ... */ static void C_ccall f9247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9247,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9263 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in ... */ static void C_ccall f9263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9263,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9269 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in ... */ static void C_ccall f9269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9269,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9275 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in ... */ static void C_ccall f9275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9275,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9281 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in ... */ static void C_ccall f9281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9281,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* f9287 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in ... */ static void C_ccall f9287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9287,2,av);} /* batch-driver.scm:253: chicken.compiler.support#debugging */ t2=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[103]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2667 */ static void C_ccall f_2669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2669,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2672,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k2670 in k2667 */ static void C_ccall f_2672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2672,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2675,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k2673 in k2670 in k2667 */ static void C_ccall f_2675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2675,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2678,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2678,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2681,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2681,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2684,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2684,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2687,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_support_toplevel(2,av2);}} /* k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2687,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2690,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_compiler_2dsyntax_toplevel(2,av2);}} /* k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2690,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2693,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_compiler_toplevel(2,av2);}} /* k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2693,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2696,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_optimizer_toplevel(2,av2);}} /* k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2696,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2699,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2699,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2702,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_scrutinizer_toplevel(2,av2);}} /* k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2702,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2705,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_lfa2_toplevel(2,av2);}} /* k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2705,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2708,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_c_2dplatform_toplevel(2,av2);}} /* k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2708,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2711,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_c_2dbackend_toplevel(2,av2);}} /* k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2711,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2714,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_user_2dpass_toplevel(2,av2);}} /* k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,c,5)))){ C_save_and_reclaim((void *)f_2714,2,av);} a=C_alloc(34); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate(&lf[2] /* (set! chicken.compiler.batch-driver#append-map ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2915,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[6] /* (set! chicken.compiler.batch-driver#concatenate ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3177,tmp=(C_word)a,a+=2,tmp)); t6=C_mutate(&lf[7] /* (set! chicken.compiler.batch-driver#filter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3325,tmp=(C_word)a,a+=2,tmp)); t7=C_SCHEME_TRUE; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_mutate(&lf[8] /* (set! chicken.compiler.batch-driver#initialize-analysis-database ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4093,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_mutate(&lf[18] /* (set! chicken.compiler.batch-driver#display-analysis-database ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4202,a[2]=t11,tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[74]+1 /* (set! chicken.compiler.batch-driver#compile-source-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4784,tmp=(C_word)a,a+=2,tmp)); t14=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t14; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} /* chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_2915(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_2915,4,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_i_nullp(t4))){ t5=t3; t6=C_i_check_list_2(t5,lf[3]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2930,a[2]=t2,a[3]=t8,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_2930(t10,t1,t5);} else{ t5=C_a_i_cons(&a,2,t3,t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2970,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_2970(t9,t1,t5);}} /* foldr242 in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_2930(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_2930,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2938,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2957,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g247 in foldr242 in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_2938(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_2938,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2946,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:72: proc */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2944 in g247 in foldr242 in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2946,2,av);} /* mini-srfi-1.scm:72: scheme#append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2955 in foldr242 in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2957,2,av);} /* mini-srfi-1.scm:72: g247 */ t2=((C_word*)t0)[2]; f_2938(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_2970(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){ C_save_and_reclaim_args((void *)trf_2970,3,t0,t1,t2);} a=C_alloc(23); t3=t2; t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3125,tmp=(C_word)a,a+=2,tmp); t5=( f_3125(t3) ); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2984,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=t2; t12=C_i_check_list_2(t11,lf[5]); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3049,a[2]=t6,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3051,a[2]=t9,a[3]=t15,a[4]=t10,tmp=(C_word)a,a+=5,tmp)); t17=((C_word*)t15)[1]; f_3051(t17,t13,t11);}} /* k2982 in loop in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_2984,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2988,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[3]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3000,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3002,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_3002(t13,t9,t8);} /* k2986 in k2982 in loop in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_2988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2988,2,av);} /* mini-srfi-1.scm:76: scheme#append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2998 in k2982 in loop in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_3000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3000,2,av);} /* mini-srfi-1.scm:77: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2970(t2,((C_word*)t0)[3],t1);} /* map-loop284 in k2982 in loop in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_3002(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_3002,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3047 in loop in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_3049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3049,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* map-loop257 in loop in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_3051(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_3051,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in a3714 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in ... */ static void C_fcall f_3091(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3091,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3113,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); /* mini-srfi-1.scm:82: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k3111 in loop in a3714 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in ... */ static void C_ccall f_3113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3113,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:83: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3091(t4,((C_word*)t0)[2],t3);}} /* loop in loop in chicken.compiler.batch-driver#append-map in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static C_word C_fcall f_3125(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t1))){ return(C_SCHEME_FALSE);} else{ t2=C_i_car(t1); t3=C_i_nullp(t2); if(C_truep(t3)){ return(t3);} else{ t4=t1; t5=C_u_i_cdr(t4); t7=t5; t1=t7; goto loop;}}} /* chicken.compiler.batch-driver#concatenate in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_3177(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3177,2,t1,t2);} a=C_alloc(5); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3183,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_3183(t6,t1,t2);} /* loop in chicken.compiler.batch-driver#concatenate in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_3183(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3183,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3201,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:101: loop */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}} /* k3199 in loop in chicken.compiler.batch-driver#concatenate in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_3201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3201,2,av);} /* mini-srfi-1.scm:101: scheme#append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in ... */ static void C_fcall f_3211(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3211,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=C_eqp(lf[133],t3); if(C_truep(t4)){ t5=t2; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:107: loop */ t11=t1; t12=t6; t1=t11; t2=t12; goto loop;} else{ t5=t2; t6=C_u_i_car(t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3238,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* mini-srfi-1.scm:109: loop */ t11=t7; t12=t9; t1=t11; t2=t12; goto loop;}}} /* k3236 in loop in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in ... */ static void C_ccall f_3238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3238,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.batch-driver#filter in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_3325(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3325,3,t1,t2,t3);} a=C_alloc(6); t4=C_i_check_list_2(t3,lf[3]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3334,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_3334(t8,t1,t3);} /* foldr389 in chicken.compiler.batch-driver#filter in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_3334(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_3334,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3342,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3363,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g394 in foldr389 in chicken.compiler.batch-driver#filter in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_3342(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3342,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3349,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:131: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3347 in g394 in foldr389 in chicken.compiler.batch-driver#filter in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_3349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3349,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3361 in foldr389 in chicken.compiler.batch-driver#filter in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_3363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3363,2,av);} /* mini-srfi-1.scm:131: g394 */ t2=((C_word*)t0)[2]; f_3342(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a3423 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in ... */ static void C_ccall f_3424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3424,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3432,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:141: pred */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3430 in a3423 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in ... */ static void C_ccall f_3432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3432,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3714 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in ... */ static void C_ccall f_3715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3715,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3721,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3091,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_3091(t8,t1,((C_word*)t0)[2]);} /* a3720 in a3714 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in ... */ static void C_ccall f_3721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3721,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_memq(((C_word*)t0)[2],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a3999 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in ... */ static void C_ccall f_4000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4000,2,av);} /* batch-driver.scm:70: chicken.compiler.core#compute-database-statistics */ t2=*((C_word*)lf[217]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in ... */ static void C_ccall f_4006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_4006,9,av);} a=C_alloc(10); t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4013,a[2]=t1,a[3]=t8,a[4]=t7,a[5]=t6,a[6]=t5,a[7]=t4,a[8]=t3,a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* batch-driver.scm:71: chicken.compiler.support#debugging */ t10=*((C_word*)lf[102]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; av2[2]=lf[216]; av2[3]=lf[225]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in ... */ static void C_ccall f_4013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_4013,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4019,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* batch-driver.scm:72: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[224]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in ... */ static void C_ccall f_4019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_4019,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4022,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* batch-driver.scm:72: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[10]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in ... */ static void C_ccall f_4022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_4022,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4025,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* batch-driver.scm:72: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[223]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ static void C_ccall f_4025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_4025,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4028,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* batch-driver.scm:72: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ static void C_ccall f_4028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4028,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4031,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* batch-driver.scm:72: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in ... */ static void C_ccall f_4031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_4031,2,av);} a=C_alloc(9); t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4037,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* batch-driver.scm:73: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[222]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in ... */ static void C_ccall f_4037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_4037,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4040,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* batch-driver.scm:73: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in ... */ static void C_ccall f_4040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4040,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4043,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* batch-driver.scm:73: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in ... */ static void C_ccall f_4043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_4043,2,av);} a=C_alloc(8); t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4049,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* batch-driver.scm:74: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[221]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4047 in k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ static void C_ccall f_4049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_4049,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4052,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* batch-driver.scm:74: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4050 in k4047 in k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in ... */ static void C_ccall f_4052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4052,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4055,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:74: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4053 in k4050 in k4047 in k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in ... */ static void C_ccall f_4055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_4055,2,av);} a=C_alloc(7); t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4061,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* batch-driver.scm:75: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[220]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4059 in k4053 in k4050 in k4047 in k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in ... */ static void C_ccall f_4061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4061,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4064,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:75: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4062 in k4059 in k4053 in k4050 in k4047 in k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in ... */ static void C_ccall f_4064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4064,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4067,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:75: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4065 in k4062 in k4059 in k4053 in k4050 in k4047 in k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in ... */ static void C_ccall f_4067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4067,2,av);} a=C_alloc(6); t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4073,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:76: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[219]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4071 in k4065 in k4062 in k4059 in k4053 in k4050 in k4047 in k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in k5786 in ... */ static void C_ccall f_4073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4073,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4076,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:76: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4074 in k4071 in k4065 in k4062 in k4059 in k4053 in k4050 in k4047 in k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in k5789 in ... */ static void C_ccall f_4076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4076,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4079,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:76: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4077 in k4074 in k4071 in k4065 in k4062 in k4059 in k4053 in k4050 in k4047 in k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in k5792 in ... */ static void C_ccall f_4079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4079,2,av);} a=C_alloc(5); t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4085,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:77: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[218]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4083 in k4077 in k4074 in k4071 in k4065 in k4062 in k4059 in k4053 in k4050 in k4047 in k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in k5796 in ... */ static void C_ccall f_4085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4085,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4088,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:77: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4086 in k4083 in k4077 in k4074 in k4071 in k4065 in k4062 in k4059 in k4053 in k4050 in k4047 in k4041 in k4038 in k4035 in k4029 in k4026 in k4023 in k4020 in k4017 in k4011 in a4005 in k5799 in ... */ static void C_ccall f_4088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4088,2,av);} /* batch-driver.scm:77: ##sys#write-char-0 */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.compiler.batch-driver#initialize-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_4093(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_4093,2,t0,t1);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4097,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t3=*((C_word*)lf[9]+1); t4=C_i_check_list_2(*((C_word*)lf[9]+1),lf[10]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4109,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4179,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1]; f_4179(t9,t5,*((C_word*)lf[9]+1));} else{ t3=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4095 in chicken.compiler.batch-driver#initialize-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4097,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4107 in chicken.compiler.batch-driver#initialize-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4109,2,av);} a=C_alloc(8); t2=*((C_word*)lf[11]+1); t3=C_i_check_list_2(*((C_word*)lf[11]+1),lf[10]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4156,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_4156(t8,t4,*((C_word*)lf[11]+1));} /* k4118 in k4107 in chicken.compiler.batch-driver#initialize-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4120,2,av);} a=C_alloc(5); t2=*((C_word*)lf[12]+1); t3=C_i_check_list_2(*((C_word*)lf[12]+1),lf[10]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4133,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_4133(t7,((C_word*)t0)[2],*((C_word*)lf[12]+1));} /* for-each-loop775 in k4118 in k4107 in chicken.compiler.batch-driver#initialize-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_4133(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_4133,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4143,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:99: chicken.compiler.support#mark-variable */ t5=*((C_word*)lf[13]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[14]; av2[4]=lf[15]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4141 in for-each-loop775 in k4118 in k4107 in chicken.compiler.batch-driver#initialize-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4143,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4133(t3,((C_word*)t0)[4],t2);} /* for-each-loop757 in k4107 in chicken.compiler.batch-driver#initialize-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_4156(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_4156,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4166,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:95: chicken.compiler.support#mark-variable */ t5=*((C_word*)lf[13]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[14]; av2[4]=lf[16]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4164 in for-each-loop757 in k4107 in chicken.compiler.batch-driver#initialize-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4166,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4156(t3,((C_word*)t0)[4],t2);} /* for-each-loop739 in chicken.compiler.batch-driver#initialize-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_4179(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_4179,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4189,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:91: chicken.compiler.support#mark-variable */ t5=*((C_word*)lf[13]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[14]; av2[4]=lf[17]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4187 in for-each-loop739 in chicken.compiler.batch-driver#initialize-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4189,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4179(t3,((C_word*)t0)[4],t2);} /* chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_4202(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_4202,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4206,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t4=t3; f_4206(t4,C_SCHEME_UNDEFINED);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4782,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:120: scheme#append */ t5=*((C_word*)lf[4]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=*((C_word*)lf[72]+1); av2[3]=*((C_word*)lf[73]+1); av2[4]=*((C_word*)lf[12]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_4206(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_4206,2,t0,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4211,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:123: chicken.internal#hash-table-for-each */ t3=*((C_word*)lf[71]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_4211,4,av);} a=C_alloc(19); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_FALSE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_END_OF_LIST; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_END_OF_LIST; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); if(C_truep(C_i_memq(t2,((C_word*)((C_word*)t0)[2])[1]))){ t14=C_SCHEME_UNDEFINED; t15=t1;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4221,a[2]=t1,a[3]=t9,a[4]=t5,a[5]=t7,a[6]=t11,a[7]=t13,a[8]=t3,tmp=(C_word)a,a+=9,tmp); /* batch-driver.scm:131: scheme#write */ t15=*((C_word*)lf[70]+1);{ C_word *av2=av; av2[0]=t15; av2[1]=t14; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}} /* k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_4221,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4224,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4393,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_4393(t6,t2,((C_word*)t0)[8]);} /* k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_4224,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4227,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[7])[1]))){ t3=*((C_word*)lf[20]+1); t4=*((C_word*)lf[20]+1); t5=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4384,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:157: ##sys#print */ t7=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[30]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4227(2,av2);}}} /* k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 in ... */ static void C_ccall f_4227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_4227,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4230,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[6])[1]))){ t3=*((C_word*)lf[20]+1); t4=*((C_word*)lf[20]+1); t5=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4368,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:158: ##sys#print */ t7=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=lf[29]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4230(2,av2);}}} /* k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in ... */ static void C_ccall f_4230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4230,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4233,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4297,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t4=C_eqp(((C_word*)((C_word*)t0)[4])[1],lf[28]); t5=t3; f_4297(t5,C_i_not(t4));} else{ t4=t3; f_4297(t4,C_SCHEME_FALSE);}} /* k4231 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in ... */ static void C_ccall f_4233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4233,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4236,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[3])[1]))){ t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_SCHEME_UNDEFINED; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4273,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_4273(t8,t2,t3);} else{ /* batch-driver.scm:168: scheme#newline */ t3=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4234 in k4231 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in ... */ static void C_ccall f_4236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4236,2,av);} /* batch-driver.scm:168: scheme#newline */ t2=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4248 in for-each-loop945 in k4231 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in ... */ static void C_ccall f_4250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4250,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4261,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:166: chicken.compiler.support#node-class */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4259 in k4248 in for-each-loop945 in k4231 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in ... */ static void C_ccall f_4261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4261,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4265,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:166: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4263 in k4259 in k4248 in for-each-loop945 in k4231 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_ccall f_4265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4265,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* batch-driver.scm:166: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* for-each-loop945 in k4231 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in ... */ static void C_fcall f_4273(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_4273,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4283,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=*((C_word*)lf[20]+1); t8=*((C_word*)lf[20]+1); t9=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4250,a[2]=t5,a[3]=t7,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:166: ##sys#print */ t11=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[25]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4281 in for-each-loop945 in k4231 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in ... */ static void C_ccall f_4283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4283,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4273(t3,((C_word*)t0)[4],t2);} /* k4295 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in ... */ static void C_fcall f_4297(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_4297,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4303,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:160: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=lf[26]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4324,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t3=C_eqp(((C_word*)((C_word*)t0)[3])[1],lf[28]); t4=t2; f_4324(t4,C_i_not(t3));} else{ t3=t2; f_4324(t3,C_SCHEME_FALSE);}}} /* k4301 in k4295 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in ... */ static void C_ccall f_4303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4303,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4314,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:160: chicken.compiler.support#node-class */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4312 in k4301 in k4295 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in ... */ static void C_ccall f_4314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4314,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4318,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:160: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4316 in k4312 in k4301 in k4295 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in ... */ static void C_ccall f_4318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4318,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* batch-driver.scm:160: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4322 in k4295 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in ... */ static void C_fcall f_4324(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_4324,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4330,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:162: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=lf[27]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; f_4233(2,av2);}}} /* k4328 in k4322 in k4295 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in ... */ static void C_ccall f_4330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4330,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4341,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:162: chicken.compiler.support#node-class */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4339 in k4328 in k4322 in k4295 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in ... */ static void C_ccall f_4341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4341,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4345,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:162: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[23]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4343 in k4339 in k4328 in k4322 in k4295 in k4228 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_ccall f_4345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4345,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* batch-driver.scm:162: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4366 in k4225 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in ... */ static void C_ccall f_4368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4368,2,av);} t2=C_i_length(((C_word*)((C_word*)t0)[2])[1]); /* batch-driver.scm:158: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4382 in k4222 in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 in ... */ static void C_ccall f_4384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4384,2,av);} t2=C_i_length(((C_word*)((C_word*)t0)[2])[1]); /* batch-driver.scm:157: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* loop in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_4393(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,0,2)))){ C_save_and_reclaim_args((void *)trf_4393,3,t0,t1,t2);} a=C_alloc(17); if(C_truep(C_i_pairp(t2))){ t3=C_i_caar(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4406,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_eqp(t4,lf[31]); t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4417,a[2]=t2,a[3]=t5,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[2],a[7]=t1,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); if(C_truep(t6)){ t8=t7; f_4417(t8,t6);} else{ t8=C_eqp(t4,lf[50]); if(C_truep(t8)){ t9=t7; f_4417(t9,t8);} else{ t9=C_eqp(t4,lf[51]); if(C_truep(t9)){ t10=t7; f_4417(t10,t9);} else{ t10=C_eqp(t4,lf[52]); if(C_truep(t10)){ t11=t7; f_4417(t11,t10);} else{ t11=C_eqp(t4,lf[53]); if(C_truep(t11)){ t12=t7; f_4417(t12,t11);} else{ t12=C_eqp(t4,lf[54]); if(C_truep(t12)){ t13=t7; f_4417(t13,t12);} else{ t13=C_eqp(t4,lf[55]); if(C_truep(t13)){ t14=t7; f_4417(t14,t13);} else{ t14=C_eqp(t4,lf[56]); if(C_truep(t14)){ t15=t7; f_4417(t15,t14);} else{ t15=C_eqp(t4,lf[57]); if(C_truep(t15)){ t16=t7; f_4417(t16,t15);} else{ t16=C_eqp(t4,lf[58]); if(C_truep(t16)){ t17=t7; f_4417(t17,t16);} else{ t17=C_eqp(t4,lf[59]); if(C_truep(t17)){ t18=t7; f_4417(t18,t17);} else{ t18=C_eqp(t4,lf[60]); if(C_truep(t18)){ t19=t7; f_4417(t19,t18);} else{ t19=C_eqp(t4,lf[61]); if(C_truep(t19)){ t20=t7; f_4417(t20,t19);} else{ t20=C_eqp(t4,lf[62]); if(C_truep(t20)){ t21=t7; f_4417(t21,t20);} else{ t21=C_eqp(t4,lf[63]); if(C_truep(t21)){ t22=t7; f_4417(t22,t21);} else{ t22=C_eqp(t4,lf[64]); if(C_truep(t22)){ t23=t7; f_4417(t23,t22);} else{ t23=C_eqp(t4,lf[65]); if(C_truep(t23)){ t24=t7; f_4417(t24,t23);} else{ t24=C_eqp(t4,lf[66]); if(C_truep(t24)){ t25=t7; f_4417(t25,t24);} else{ t25=C_eqp(t4,lf[67]); if(C_truep(t25)){ t26=t7; f_4417(t26,t25);} else{ t26=C_eqp(t4,lf[68]); t27=t7; f_4417(t27,(C_truep(t26)?t26:C_eqp(t4,lf[69])));}}}}}}}}}}}}}}}}}}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4404 in loop in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 in ... */ static void C_ccall f_4406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4406,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* batch-driver.scm:156: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4393(t4,((C_word*)t0)[4],t3);} /* k4415 in loop in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 in ... */ static void C_fcall f_4417(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_4417,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4423,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:139: ##sys#write-char-0 */ t6=*((C_word*)lf[33]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(9); av2[3]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[28]); if(C_truep(t2)){ t3=C_mutate(((C_word *)((C_word*)t0)[5])+1,lf[28]); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); /* batch-driver.scm:156: loop */ t6=((C_word*)((C_word*)t0)[6])[1]; f_4393(t6,((C_word*)t0)[7],t5);} else{ t3=C_eqp(((C_word*)t0)[4],lf[34]); if(C_truep(t3)){ t4=C_eqp(((C_word*)((C_word*)t0)[5])[1],lf[28]); if(C_truep(t4)){ t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* batch-driver.scm:156: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_4393(t7,((C_word*)t0)[7],t6);} else{ t5=C_i_cdar(((C_word*)t0)[2]); t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,t5); t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); /* batch-driver.scm:156: loop */ t9=((C_word*)((C_word*)t0)[6])[1]; f_4393(t9,((C_word*)t0)[7],t8);}} else{ t4=C_eqp(((C_word*)t0)[4],lf[35]); if(C_truep(t4)){ t5=C_eqp(((C_word*)((C_word*)t0)[5])[1],lf[28]); if(C_truep(t5)){ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); /* batch-driver.scm:156: loop */ t8=((C_word*)((C_word*)t0)[6])[1]; f_4393(t8,((C_word*)t0)[7],t7);} else{ t6=C_i_cdar(((C_word*)t0)[2]); t7=C_mutate(((C_word *)((C_word*)t0)[8])+1,t6); t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); /* batch-driver.scm:156: loop */ t10=((C_word*)((C_word*)t0)[6])[1]; f_4393(t10,((C_word*)t0)[7],t9);}} else{ t5=C_eqp(((C_word*)t0)[4],lf[36]); if(C_truep(t5)){ t6=C_i_cdar(((C_word*)t0)[2]); t7=C_mutate(((C_word *)((C_word*)t0)[9])+1,t6); t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); /* batch-driver.scm:156: loop */ t10=((C_word*)((C_word*)t0)[6])[1]; f_4393(t10,((C_word*)t0)[7],t9);} else{ t6=C_eqp(((C_word*)t0)[4],lf[37]); t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4496,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[11],tmp=(C_word)a,a+=9,tmp); if(C_truep(t6)){ t8=t7; f_4496(t8,t6);} else{ t8=C_eqp(((C_word*)t0)[4],lf[42]); if(C_truep(t8)){ t9=t7; f_4496(t9,t8);} else{ t9=C_eqp(((C_word*)t0)[4],lf[43]); if(C_truep(t9)){ t10=t7; f_4496(t10,t9);} else{ t10=C_eqp(((C_word*)t0)[4],lf[44]); if(C_truep(t10)){ t11=t7; f_4496(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[4],lf[45]); if(C_truep(t11)){ t12=t7; f_4496(t12,t11);} else{ t12=C_eqp(((C_word*)t0)[4],lf[46]); if(C_truep(t12)){ t13=t7; f_4496(t13,t12);} else{ t13=C_eqp(((C_word*)t0)[4],lf[47]); if(C_truep(t13)){ t14=t7; f_4496(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[4],lf[48]); t15=t7; f_4496(t15,(C_truep(t14)?t14:C_eqp(((C_word*)t0)[4],lf[49])));}}}}}}}}}}}}} /* k4421 in k4415 in loop in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in ... */ static void C_ccall f_4423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4423,2,av);} t2=C_i_caar(((C_word*)t0)[2]); t3=C_i_assq(t2,lf[32]); t4=C_i_cdr(t3); /* batch-driver.scm:139: ##sys#print */ t5=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k4494 in k4415 in loop in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in ... */ static void C_fcall f_4496(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4496,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4502,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:150: ##sys#write-char-0 */ t6=*((C_word*)lf[33]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(9); av2[3]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[38]); if(C_truep(t2)){ t3=C_i_cdar(((C_word*)t0)[2]); t4=C_mutate(((C_word *)((C_word*)t0)[5])+1,t3); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* batch-driver.scm:156: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_4393(t7,((C_word*)t0)[7],t6);} else{ t3=C_eqp(((C_word*)t0)[4],lf[39]); if(C_truep(t3)){ t4=C_i_cdar(((C_word*)t0)[2]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,t4); t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); /* batch-driver.scm:156: loop */ t8=((C_word*)((C_word*)t0)[6])[1]; f_4393(t8,((C_word*)t0)[7],t7);} else{ t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); /* batch-driver.scm:155: chicken.compiler.support#bomb */ t6=*((C_word*)lf[40]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=lf[41]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}} /* k4500 in k4494 in k4415 in loop in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in ... */ static void C_ccall f_4502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4502,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4505,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_caar(((C_word*)t0)[2]); /* batch-driver.scm:150: ##sys#print */ t4=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4503 in k4500 in k4494 in k4415 in loop in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in ... */ static void C_ccall f_4505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4505,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4508,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:150: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(61); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4506 in k4503 in k4500 in k4494 in k4415 in loop in k4219 in a4210 in k4204 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in ... */ static void C_ccall f_4508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4508,2,av);} t2=C_i_cdar(((C_word*)t0)[2]); /* batch-driver.scm:150: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4780 in chicken.compiler.batch-driver#display-analysis-database in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4782,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_4206(t3,t2);} /* chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,3)))){ C_save_and_reclaim((void*)f_4784,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+9); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4787,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4818,a[2]=t4,a[3]=t5,a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* batch-driver.scm:181: chicken.compiler.core#initialize-compiler */ t7=*((C_word*)lf[486]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* option-arg in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_4787(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_4787,2,t1,t2);} t3=C_i_cdr(t2); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=C_u_i_car(t4); /* batch-driver.scm:176: chicken.compiler.support#quit-compiling */ t6=*((C_word*)lf[75]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=lf[76]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=C_i_cadr(t2); if(C_truep(C_i_symbolp(t4))){ /* batch-driver.scm:179: chicken.compiler.support#quit-compiling */ t5=*((C_word*)lf[75]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=lf[77]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4818,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=C_mutate((C_word*)lf[78]+1 /* (set! chicken.compiler.core#explicit-use-flag ...) */,C_u_i_memq(lf[79],t2)); t4=((C_word*)t0)[2]; t5=C_mutate((C_word*)lf[80]+1 /* (set! chicken.compiler.core#emit-debug-info ...) */,C_u_i_memq(lf[81],t4)); t6=((C_word*)t0)[2]; t7=C_u_i_memq(lf[82],t6); t8=C_i_not(t7); t9=C_set_block_item(lf[83] /* chicken.compiler.core#enable-module-registration */,0,t8); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4831,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t11=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[484],t11))){ t12=C_set_block_item(lf[482] /* chicken.compiler.core#static-extensions */,0,C_SCHEME_TRUE); /* batch-driver.scm:188: chicken.platform#register-feature! */ t13=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t10; av2[2]=lf[485]; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t12=t10;{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; f_4831(2,av2);}}} /* k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_4831,2,av);} a=C_alloc(28); t2=((C_word*)t0)[2]; t3=C_u_i_memq(lf[84],t2); t4=((C_word*)t0)[2]; t5=C_u_i_memq(lf[85],t4); t6=C_a_i_cons(&a,2,lf[86],*((C_word*)lf[87]+1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8048,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t3,a[9]=t5,tmp=(C_word)a,a+=10,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8067,a[2]=t8,tmp=(C_word)a,a+=3,tmp); t10=(C_truep(*((C_word*)lf[80]+1))?lf[479]:C_SCHEME_END_OF_LIST); t11=t10; t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8075,a[2]=t9,a[3]=t11,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); if(C_truep(*((C_word*)lf[78]+1))){ t13=t12; f_8075(t13,C_SCHEME_END_OF_LIST);} else{ t13=C_a_i_cons(&a,2,lf[381],*((C_word*)lf[483]+1)); t14=t12; f_8075(t14,C_a_i_list(&a,1,t13));}} /* k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_4845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_4845,2,av);} a=C_alloc(23); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=*((C_word*)lf[90]+1); t8=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=t5,a[13]=t7,a[14]=t6,tmp=(C_word)a,a+=15,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8005,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:222: chicken.process-context#get-environment-variable */ t10=*((C_word*)lf[472]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=lf[473]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 in ... */ static void C_ccall f_4851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_4851,2,av);} a=C_alloc(20); t2=C_i_check_list_2(t1,lf[5]); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7969,a[2]=((C_word*)t0)[12],a[3]=t5,a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[14],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_7969(t7,t3,t1);} /* k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in ... */ static void C_ccall f_4857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_4857,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* batch-driver.scm:224: chicken.compiler.optimizer#default-optimization-passes */ t4=*((C_word*)lf[469]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in ... */ static void C_ccall f_4860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){ C_save_and_reclaim((void *)f_4860,2,av);} a=C_alloc(31); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_END_OF_LIST; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=lf[91]; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=((C_word*)t0)[2]; t15=C_u_i_memq(lf[92],t14); t16=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_4865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=t9,a[14]=t11,a[15]=t13,a[16]=t7,a[17]=((C_word*)t0)[11],a[18]=((C_word*)t0)[12],tmp=(C_word)a,a+=19,tmp); if(C_truep(t15)){ t17=t16; f_4865(t17,t15);} else{ t17=((C_word*)t0)[2]; t18=C_u_i_memq(lf[360],t17); if(C_truep(t18)){ t19=t16; f_4865(t19,t18);} else{ t19=((C_word*)t0)[2]; t20=C_u_i_memq(lf[93],t19); t21=t16; f_4865(t21,t20);}}} /* k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in ... */ static void C_fcall f_4865(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,0,2)))){ C_save_and_reclaim_args((void *)trf_4865,2,t0,t1);} a=C_alloc(38); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_memq(lf[93],t3); t5=(C_truep(t4)?C_i_cadr(t4):C_SCHEME_FALSE); t6=t5; t7=((C_word*)t0)[2]; t8=C_u_i_memq(lf[94],t7); t9=((C_word*)t0)[2]; t10=C_u_i_memq(lf[95],t9); t11=((C_word*)t0)[2]; t12=C_u_i_memq(lf[96],t11); t13=((C_word*)t0)[2]; t14=C_u_i_memq(lf[97],t13); t15=C_SCHEME_TRUE; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=((C_word*)t0)[2]; t18=C_u_i_memq(lf[98],t17); t19=C_SCHEME_FALSE; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_SCHEME_FALSE; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_SCHEME_FALSE; t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp); t25=((C_word*)t0)[2]; t26=C_u_i_memq(lf[99],t25); t27=(*a=C_CLOSURE_TYPE|29,a[1]=(C_word)f_4885,a[2]=((C_word*)t0)[2],a[3]=t20,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t24,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=t22,a[13]=t12,a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[11],a[16]=((C_word*)t0)[12],a[17]=t14,a[18]=((C_word*)t0)[13],a[19]=t18,a[20]=((C_word*)t0)[14],a[21]=t16,a[22]=((C_word*)t0)[15],a[23]=t6,a[24]=((C_word*)t0)[16],a[25]=t2,a[26]=t8,a[27]=((C_word*)t0)[17],a[28]=t10,a[29]=((C_word*)t0)[18],tmp=(C_word)a,a+=30,tmp); if(C_truep(t26)){ t28=t27; f_4885(t28,t26);} else{ t28=((C_word*)t0)[2]; t29=t27; f_4885(t29,C_u_i_memq(lf[468],t28));}} /* k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in ... */ static void C_fcall f_4885(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,0,2)))){ C_save_and_reclaim_args((void *)trf_4885,2,t0,t1);} a=C_alloc(31); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_memq(lf[100],t3); t5=(*a=C_CLOSURE_TYPE|30,a[1]=(C_word)f_4890,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=t2,a[27]=((C_word*)t0)[26],a[28]=((C_word*)t0)[27],a[29]=((C_word*)t0)[28],a[30]=((C_word*)t0)[29],tmp=(C_word)a,a+=31,tmp); if(C_truep(t4)){ /* batch-driver.scm:248: option-arg */ f_4787(t5,t4);} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_4890(2,av2);}}} /* k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in ... */ static void C_ccall f_4890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(91,c,6)))){ C_save_and_reclaim((void *)f_4890,2,av);} a=C_alloc(91); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_SCHEME_UNDEFINED; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4908,tmp=(C_word)a,a+=2,tmp)); t22=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4935,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t23=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4957,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t24=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4984,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t25=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5030,tmp=(C_word)a,a+=2,tmp)); t26=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5115,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp)); t27=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5150,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp)); t28=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5160,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp)); t29=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5200,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp)); t30=(*a=C_CLOSURE_TYPE|37,a[1]=(C_word)f_5266,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=t18,a[12]=t16,a[13]=t20,a[14]=t6,a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=t8,a[20]=((C_word*)t0)[18],a[21]=((C_word*)t0)[19],a[22]=((C_word*)t0)[20],a[23]=((C_word*)t0)[21],a[24]=t14,a[25]=t10,a[26]=((C_word*)t0)[22],a[27]=((C_word*)t0)[23],a[28]=t2,a[29]=((C_word*)t0)[24],a[30]=((C_word*)t0)[25],a[31]=((C_word*)t0)[26],a[32]=t12,a[33]=((C_word*)t0)[3],a[34]=((C_word*)t0)[27],a[35]=((C_word*)t0)[28],a[36]=((C_word*)t0)[29],a[37]=((C_word*)t0)[5],tmp=(C_word)a,a+=38,tmp); if(C_truep(((C_word*)t0)[30])){ t31=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7948,a[2]=t30,tmp=(C_word)a,a+=3,tmp); t32=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7952,a[2]=t31,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:317: option-arg */ f_4787(t32,((C_word*)t0)[30]);} else{ t31=t30; f_5266(t31,C_SCHEME_UNDEFINED);}} /* print-header in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_fcall f_4908(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_4908,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4912,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:256: chicken.compiler.support#debugging */ t5=*((C_word*)lf[102]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[103]; av2[3]=lf[104]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k4910 in print-header in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_ccall f_4912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4912,2,av);} a=C_alloc(5); if(C_truep(C_i_memq(((C_word*)t0)[2],*((C_word*)lf[101]+1)))){ t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4924,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:259: ##sys#write-char-0 */ t6=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(91); av2[3]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k4922 in k4910 in print-header in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in ... */ static void C_ccall f_4924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4924,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4927,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:259: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4925 in k4922 in k4910 in print-header in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_4927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4927,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4930,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:259: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(93); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4928 in k4925 in k4922 in k4910 in print-header in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in ... */ static void C_ccall f_4930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4930,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4933,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:259: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4931 in k4928 in k4925 in k4922 in k4910 in print-header in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in ... */ static void C_ccall f_4933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4933,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* print-node in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_fcall f_4935(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4935,5,t0,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4942,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:263: print-header */ f_4908(t5,t2,t3);} /* k4940 in print-node in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_ccall f_4942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4942,2,av);} a=C_alloc(3); if(C_truep(t1)){ if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ /* batch-driver.scm:265: chicken.compiler.support#dump-nodes */ t2=*((C_word*)lf[105]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4955,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:266: chicken.compiler.support#build-expression-tree */ t3=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4953 in k4940 in print-node in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in ... */ static void C_ccall f_4955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4955,2,av);} /* batch-driver.scm:266: chicken.pretty-print#pretty-print */ t2=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* print-db in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_fcall f_4957(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4957,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(5); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4964,a[2]=t1,a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:269: print-header */ f_4908(t6,t2,t3);} /* k4962 in print-db in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_ccall f_4964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4964,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=*((C_word*)lf[20]+1); t3=*((C_word*)lf[20]+1); t4=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4970,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:270: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[108]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4968 in k4962 in print-db in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in ... */ static void C_ccall f_4970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4970,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4973,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:270: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4971 in k4968 in k4962 in print-db in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_4973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4973,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4976,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:270: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(41); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4974 in k4971 in k4968 in k4962 in print-db in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in ... */ static void C_ccall f_4976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4976,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:270: ##sys#write-char-0 */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4977 in k4974 in k4971 in k4968 in k4962 in print-db in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in ... */ static void C_ccall f_4979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4979,2,av);} /* batch-driver.scm:271: display-analysis-database */ t2=lf[18]; f_4202(t2,((C_word*)t0)[2],((C_word*)t0)[3]);} /* print-expr in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_fcall f_4984(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_4984,5,t0,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4991,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:274: print-header */ f_4908(t5,t2,t3);} /* k4989 in print-expr in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_ccall f_4991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4991,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_check_list_2(t2,lf[10]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5007,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_5007(t7,((C_word*)t0)[3],t2);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4994 in for-each-loop1148 in k4989 in print-expr in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_4996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4996,2,av);} /* batch-driver.scm:278: scheme#newline */ t2=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop1148 in k4989 in print-expr in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in ... */ static void C_fcall f_5007(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_5007,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5017,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4996,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:277: chicken.pretty-print#pretty-print */ t7=*((C_word*)lf[106]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5015 in for-each-loop1148 in k4989 in print-expr in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_5017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5017,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5007(t3,((C_word*)t0)[4],t2);} /* arg-val in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_fcall f_5030(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){ C_save_and_reclaim_args((void *)trf_5030,2,t1,t2);} a=C_alloc(16); t3=C_i_string_length(t2); t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5039,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_lessp(t3,C_fix(2)))){ /* batch-driver.scm:285: scheme#string->number */ t6=*((C_word*)lf[110]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=C_i_string_ref(t2,t4); t7=C_eqp(t6,C_make_character(109)); t8=(C_truep(t7)?t7:C_eqp(t6,C_make_character(77))); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5070,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5074,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:287: scheme#substring */ t11=*((C_word*)lf[111]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=t2; av2[3]=C_fix(0); av2[4]=t4; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t9=C_eqp(t6,C_make_character(107)); t10=(C_truep(t9)?t9:C_eqp(t6,C_make_character(75))); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5090,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5094,a[2]=t11,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:288: scheme#substring */ t13=*((C_word*)lf[111]+1);{ C_word av2[5]; av2[0]=t13; av2[1]=t12; av2[2]=t2; av2[3]=C_fix(0); av2[4]=t4; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} else{ /* batch-driver.scm:289: scheme#string->number */ t11=*((C_word*)lf[110]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}}}} /* k5037 in arg-val in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_ccall f_5039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5039,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* batch-driver.scm:290: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[109]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k5068 in arg-val in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_ccall f_5070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ C_save_and_reclaim((void *)f_5070,2,av);} a=C_alloc(33); t2=C_s_a_i_times(&a,2,t1,C_fix(1048576)); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* batch-driver.scm:290: chicken.compiler.support#quit-compiling */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[109]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k5072 in arg-val in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_ccall f_5074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5074,2,av);} /* batch-driver.scm:287: scheme#string->number */ t2=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5088 in arg-val in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_ccall f_5090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ C_save_and_reclaim((void *)f_5090,2,av);} a=C_alloc(33); t2=C_s_a_i_times(&a,2,t1,C_fix(1024)); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* batch-driver.scm:290: chicken.compiler.support#quit-compiling */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[109]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k5092 in arg-val in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_ccall f_5094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5094,2,av);} /* batch-driver.scm:288: scheme#string->number */ t2=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* collect-options in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_fcall f_5115(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_5115,3,t0,t1,t2);} a=C_alloc(7); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5121,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_5121(t6,t1,((C_word*)t0)[3]);} /* loop in collect-options in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_fcall f_5121(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_5121,3,t0,t1,t2);} a=C_alloc(4); t3=C_i_memq(((C_word*)t0)[2],t2); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5129,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:294: g1192 */ t5=t4; f_5129(t5,t1,t3);} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* g1192 in loop in collect-options in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in ... */ static void C_fcall f_5129(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_5129,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5137,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:294: option-arg */ f_4787(t3,t2);} /* k5135 in g1192 in loop in collect-options in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_5137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5137,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5141,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cddr(((C_word*)t0)[3]); /* batch-driver.scm:294: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_5121(t5,t3,t4);} /* k5139 in k5135 in g1192 in loop in collect-options in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in ... */ static void C_ccall f_5141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5141,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* begin-time in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_fcall f_5150(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_5150,2,t0,t1);} a=C_alloc(4); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5158,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:250: chicken.time#current-milliseconds */ t3=*((C_word*)lf[112]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5156 in begin-time in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_ccall f_5158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5158,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* end-time in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_fcall f_5160(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_5160,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t3=*((C_word*)lf[20]+1); t4=*((C_word*)lf[20]+1); t5=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5170,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:302: ##sys#print */ t7=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=lf[116]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5168 in end-time in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_ccall f_5170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5170,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:302: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5171 in k5168 in end-time in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in ... */ static void C_ccall f_5173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5173,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5176,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:302: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[115]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5174 in k5171 in k5168 in end-time in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_5176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_5176,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5179,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5186,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5190,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5198,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:250: chicken.time#current-milliseconds */ t6=*((C_word*)lf[112]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k5177 in k5174 in k5171 in k5168 in end-time in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in ... */ static void C_ccall f_5179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5179,2,av);} /* batch-driver.scm:302: ##sys#write-char-0 */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5184 in k5174 in k5171 in k5168 in end-time in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in ... */ static void C_ccall f_5186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5186,2,av);} /* batch-driver.scm:302: ##sys#print */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5188 in k5174 in k5171 in k5168 in end-time in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in ... */ static void C_ccall f_5190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5190,2,av);} /* batch-driver.scm:304: scheme#inexact->exact */ t2=*((C_word*)lf[113]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5196 in k5174 in k5171 in k5168 in end-time in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in ... */ static void C_ccall f_5198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_5198,2,av);} a=C_alloc(29); t2=C_s_a_i_minus(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]); /* batch-driver.scm:304: scheme#round */ t3=*((C_word*)lf[114]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* analyze in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_fcall f_5200(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_5200,5,t0,t1,t2,t3,t4);} a=C_alloc(11); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5202,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5225,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5230,a[2]=t6,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t4))){ /* batch-driver.scm:307: def-no1213 */ t8=t7; f_5230(t8,t1);} else{ t8=C_i_car(t4); t9=C_u_i_cdr(t4); if(C_truep(C_i_nullp(t9))){ /* batch-driver.scm:307: def-contf1214 */ t10=t6; f_5225(t10,t1,t8);} else{ t10=C_i_car(t9); t11=C_u_i_cdr(t9); /* batch-driver.scm:307: body1211 */ t12=t5; f_5202(t12,t1,t8,t10);}}} /* body1211 in analyze in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_fcall f_5202(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_5202,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5206,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* batch-driver.scm:308: chicken.compiler.core#analyze-expression */ t5=*((C_word*)lf[119]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5204 in body1211 in analyze in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in ... */ static void C_ccall f_5206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,8)))){ C_save_and_reclaim((void *)f_5206,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5209,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5214,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5220,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:310: upap */ t6=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t6; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t2; av2[4]=((C_word*)t0)[5]; av2[5]=t4; av2[6]=t5; av2[7]=((C_word*)t0)[6]; av2[8]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t6+1)))(9,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5207 in k5204 in body1211 in analyze in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_5209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5209,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5213 in k5204 in body1211 in analyze in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_5214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5214,4,av);} t4=*((C_word*)lf[117]+1); /* batch-driver.scm:311: g1233 */ t5=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* a5219 in k5204 in body1211 in analyze in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_5220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5220,5,av);} t5=*((C_word*)lf[118]+1); /* batch-driver.scm:312: g1247 */ t6=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t3; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* def-contf1214 in analyze in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_fcall f_5225(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_5225,3,t0,t1,t2);} /* batch-driver.scm:307: body1211 */ t3=((C_word*)t0)[2]; f_5202(t3,t1,t2,C_SCHEME_TRUE);} /* def-no1213 in analyze in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_fcall f_5230(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_5230,2,t0,t1);} /* batch-driver.scm:307: def-contf1214 */ t2=((C_word*)t0)[2]; f_5225(t2,t1,C_fix(0));} /* k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_fcall f_5266(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,0,2)))){ C_save_and_reclaim_args((void *)trf_5266,2,t0,t1);} a=C_alloc(38); t2=(*a=C_CLOSURE_TYPE|37,a[1]=(C_word)f_5269,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],tmp=(C_word)a,a+=38,tmp); t3=*((C_word*)lf[311]+1); if(C_truep(*((C_word*)lf[311]+1))){ t4=*((C_word*)lf[311]+1); if(C_truep(*((C_word*)lf[311]+1))){ t5=C_set_block_item(lf[322] /* chicken.compiler.core#standalone-executable */,0,C_SCHEME_FALSE); t6=t2; f_5269(t6,t5);} else{ t5=t2; f_5269(t5,C_SCHEME_UNDEFINED);}} else{ if(C_truep(((C_word*)t0)[17])){ t4=C_set_block_item(lf[322] /* chicken.compiler.core#standalone-executable */,0,C_SCHEME_FALSE); t5=t2; f_5269(t5,t4);} else{ t4=t2; f_5269(t4,C_SCHEME_UNDEFINED);}}} /* k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in ... */ static void C_fcall f_5269(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,0,2)))){ C_save_and_reclaim_args((void *)trf_5269,2,t0,t1);} a=C_alloc(38); t2=(*a=C_CLOSURE_TYPE|37,a[1]=(C_word)f_5272,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],tmp=(C_word)a,a+=38,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[261],t3))){ t4=C_set_block_item(lf[466] /* ##sys#dload-disabled */,0,C_SCHEME_TRUE); /* batch-driver.scm:322: chicken.platform#repository-path */ t5=*((C_word*)lf[467]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t2; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5272(2,av2);}}} /* k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in ... */ static void C_ccall f_5272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(44,c,3)))){ C_save_and_reclaim((void *)f_5272,2,av);} a=C_alloc(44); t2=((C_word*)t0)[2]; t3=C_mutate((C_word*)lf[120]+1 /* (set! chicken.compiler.core#enable-specialization ...) */,C_u_i_memq(lf[121],t2)); t4=(*a=C_CLOSURE_TYPE|37,a[1]=(C_word)f_5279,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],tmp=(C_word)a,a+=38,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7877,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7934,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:329: collect-options */ t7=((C_word*)((C_word*)t0)[24])[1]; f_5115(t7,t6,lf[465]);} /* k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_5279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,c,2)))){ C_save_and_reclaim((void *)f_5279,2,av);} a=C_alloc(41); t2=C_mutate((C_word*)lf[101]+1 /* (set! chicken.compiler.support#debugging-chicken ...) */,t1); t3=(*a=C_CLOSURE_TYPE|37,a[1]=(C_word)f_5282,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],tmp=(C_word)a,a+=38,tmp); if(C_truep(C_i_memq(lf[356],*((C_word*)lf[101]+1)))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7872,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:331: chicken.compiler.support#print-debug-options */ t5=*((C_word*)lf[463]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5282(2,av2);}}} /* k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in ... */ static void C_ccall f_5282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(44,c,2)))){ C_save_and_reclaim((void *)f_5282,2,av);} a=C_alloc(44); t2=C_i_memq(lf[122],*((C_word*)lf[101]+1)); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|38,a[1]=(C_word)f_5308,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=t6,a[38]=t7,tmp=(C_word)a,a+=39,tmp); /* batch-driver.scm:338: collect-options */ t9=((C_word*)((C_word*)t0)[24])[1]; f_5115(t9,t8,lf[462]);} /* k5297 in map-loop1292 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in ... */ static void C_ccall f_5299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5299,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5303,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* ##sys#string-append */ t4=*((C_word*)lf[460]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[461]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5301 in k5297 in map-loop1292 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in ... */ static void C_ccall f_5303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5303,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in ... */ static void C_ccall f_5308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(44,c,3)))){ C_save_and_reclaim((void *)f_5308,2,av);} a=C_alloc(44); t2=C_i_check_list_2(t1,lf[5]); t3=(*a=C_CLOSURE_TYPE|36,a[1]=(C_word)f_5314,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],tmp=(C_word)a,a+=37,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7834,a[2]=((C_word*)t0)[37],a[3]=t5,a[4]=((C_word*)t0)[38],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_7834(t7,t3,t1);} /* k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in ... */ static void C_ccall f_5314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,c,2)))){ C_save_and_reclaim((void *)f_5314,2,av);} a=C_alloc(37); t2=C_mutate((C_word*)lf[123]+1 /* (set! chicken.compiler.core#import-libraries ...) */,t1); t3=(*a=C_CLOSURE_TYPE|36,a[1]=(C_word)f_5317,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],tmp=(C_word)a,a+=37,tmp); t4=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[458],t4))){ if(C_truep(C_i_not(((C_word*)t0)[17]))){ t5=C_set_block_item(lf[459] /* chicken.compiler.core#all-import-libraries */,0,C_SCHEME_TRUE); t6=t3; f_5317(t6,t5);} else{ t5=t3; f_5317(t5,C_SCHEME_UNDEFINED);}} else{ t5=t3; f_5317(t5,C_SCHEME_UNDEFINED);}} /* k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in ... */ static void C_fcall f_5317(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,0,2)))){ C_save_and_reclaim_args((void *)trf_5317,2,t0,t1);} a=C_alloc(37); t2=(*a=C_CLOSURE_TYPE|36,a[1]=(C_word)f_5320,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],tmp=(C_word)a,a+=37,tmp); if(C_truep(*((C_word*)lf[120]+1))){ t3=C_set_block_item(((C_word*)t0)[22],0,C_SCHEME_TRUE); t4=t2; f_5320(t4,t3);} else{ t3=t2; f_5320(t3,C_SCHEME_UNDEFINED);}} /* k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in ... */ static void C_fcall f_5320(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,0,2)))){ C_save_and_reclaim_args((void *)trf_5320,2,t0,t1);} a=C_alloc(37); t2=(*a=C_CLOSURE_TYPE|36,a[1]=(C_word)f_5323,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],tmp=(C_word)a,a+=37,tmp); if(C_truep(C_i_memq(lf[182],*((C_word*)lf[101]+1)))){ /* batch-driver.scm:344: ##sys#start-timer */ t3=*((C_word*)lf[457]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5323(2,av2);}}} /* k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in ... */ static void C_ccall f_5323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,2)))){ C_save_and_reclaim((void *)f_5323,2,av);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); if(C_truep(C_i_memq(lf[456],*((C_word*)lf[101]+1)))){ t3=C_set_block_item(((C_word*)t0)[36],0,C_SCHEME_TRUE); t4=t2; f_5326(t4,t3);} else{ t3=t2; f_5326(t3,C_SCHEME_UNDEFINED);}} /* k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in ... */ static void C_fcall f_5326(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5326,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5329,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[455],t3))){ t4=C_set_block_item(lf[78] /* chicken.compiler.core#explicit-use-flag */,0,C_SCHEME_TRUE); t5=C_set_block_item(((C_word*)t0)[25],0,C_SCHEME_END_OF_LIST); t6=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_END_OF_LIST); t7=t2; f_5329(t7,t6);} else{ t4=t2; f_5329(t4,C_SCHEME_UNDEFINED);}} /* k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in ... */ static void C_fcall f_5329(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5329,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5332,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[453],t3))){ t4=C_set_block_item(lf[454] /* chicken.compiler.core#emit-closure-info */,0,C_SCHEME_FALSE); t5=t2; f_5332(t5,t4);} else{ t4=t2; f_5332(t4,C_SCHEME_UNDEFINED);}} /* k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in ... */ static void C_fcall f_5332(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5332,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5335,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[451],t3))){ t4=C_set_block_item(lf[452] /* chicken.compiler.core#compiler-syntax-enabled */,0,C_SCHEME_FALSE); t5=t2; f_5335(t5,t4);} else{ t4=t2; f_5335(t4,C_SCHEME_UNDEFINED);}} /* k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in ... */ static void C_fcall f_5335(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5335,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5338,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[450],t3))){ t4=C_set_block_item(lf[430] /* chicken.compiler.core#local-definitions */,0,C_SCHEME_TRUE); t5=t2; f_5338(t5,t4);} else{ t4=t2; f_5338(t4,C_SCHEME_UNDEFINED);}} /* k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in ... */ static void C_fcall f_5338(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5338,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5341,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[449],t3))){ t4=C_set_block_item(lf[267] /* chicken.compiler.core#enable-inline-files */,0,C_SCHEME_TRUE); t5=C_set_block_item(lf[164] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_TRUE); t6=t2; f_5341(t6,t5);} else{ t4=t2; f_5341(t4,C_SCHEME_UNDEFINED);}} /* k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in ... */ static void C_fcall f_5341(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5341,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5344,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); if(C_truep(((C_word*)t0)[3])){ t3=C_set_block_item(lf[448] /* ##sys#notices-enabled */,0,C_SCHEME_TRUE); t4=t2; f_5344(t4,t3);} else{ t3=t2; f_5344(t3,C_SCHEME_UNDEFINED);}} /* k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in ... */ static void C_fcall f_5344(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5344,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5347,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[447],t3))){ t4=C_set_block_item(lf[249] /* chicken.compiler.core#strict-variable-types */,0,C_SCHEME_TRUE); t5=C_set_block_item(lf[120] /* chicken.compiler.core#enable-specialization */,0,C_SCHEME_TRUE); t6=t2; f_5347(t6,t5);} else{ t4=t2; f_5347(t4,C_SCHEME_UNDEFINED);}} /* k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in ... */ static void C_fcall f_5347(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(43,0,4)))){ C_save_and_reclaim_args((void *)trf_5347,2,t0,t1);} a=C_alloc(43); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5350,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[445],t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7787,a[2]=((C_word*)t0)[22],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9287,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word av2[5]; av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[446]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t2; f_5350(t4,C_SCHEME_UNDEFINED);}} /* k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in ... */ static void C_fcall f_5350(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5350,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5353,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[444],t3))){ t4=C_set_block_item(lf[169] /* chicken.compiler.core#optimize-leaf-routines */,0,C_SCHEME_TRUE); t5=t2; f_5353(t5,t4);} else{ t4=t2; f_5353(t4,C_SCHEME_UNDEFINED);}} /* k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in ... */ static void C_fcall f_5353(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5353,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5356,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[443],t3))){ t4=C_set_block_item(lf[242] /* chicken.compiler.support#unsafe */,0,C_SCHEME_TRUE); t5=t2; f_5356(t5,t4);} else{ t4=t2; f_5356(t4,C_SCHEME_UNDEFINED);}} /* k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in ... */ static void C_fcall f_5356(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5356,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5359,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[441],t3))){ t4=C_set_block_item(lf[442] /* ##sys#setup-mode */,0,C_SCHEME_TRUE); t5=t2; f_5359(t5,t4);} else{ t4=t2; f_5359(t4,C_SCHEME_UNDEFINED);}} /* k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in ... */ static void C_fcall f_5359(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5359,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5362,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[439],t3))){ t4=C_set_block_item(lf[440] /* chicken.compiler.core#preserve-unchanged-import-libraries */,0,C_SCHEME_FALSE); t5=t2; f_5362(t5,t4);} else{ t4=t2; f_5362(t4,C_SCHEME_UNDEFINED);}} /* k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in ... */ static void C_fcall f_5362(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5362,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5365,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[438],t3))){ t4=C_set_block_item(lf[205] /* chicken.compiler.core#insert-timer-checks */,0,C_SCHEME_FALSE); t5=t2; f_5365(t5,t4);} else{ t4=t2; f_5365(t4,C_SCHEME_UNDEFINED);}} /* k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in ... */ static void C_fcall f_5365(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5365,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5368,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[435],t3))){ t4=C_mutate((C_word*)lf[436]+1 /* (set! chicken.compiler.support#number-type ...) */,lf[437]); t5=t2; f_5368(t5,t4);} else{ t4=t2; f_5368(t4,C_SCHEME_UNDEFINED);}} /* k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in ... */ static void C_fcall f_5368(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5368,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5371,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[434],t3))){ t4=C_set_block_item(lf[163] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_TRUE); t5=t2; f_5371(t5,t4);} else{ t4=t2; f_5371(t4,C_SCHEME_UNDEFINED);}} /* k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in ... */ static void C_fcall f_5371(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5371,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5374,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[432],t3))){ t4=C_set_block_item(lf[433] /* chicken.compiler.core#external-protos-first */,0,C_SCHEME_TRUE); t5=t2; f_5374(t5,t4);} else{ t4=t2; f_5374(t4,C_SCHEME_UNDEFINED);}} /* k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in ... */ static void C_fcall f_5374(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){ C_save_and_reclaim_args((void *)trf_5374,2,t0,t1);} a=C_alloc(36); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5377,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[431],t3))){ t4=C_set_block_item(lf[164] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_TRUE); t5=t2; f_5377(t5,t4);} else{ t4=t2; f_5377(t4,C_SCHEME_UNDEFINED);}} /* k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in ... */ static void C_fcall f_5377(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,0,2)))){ C_save_and_reclaim_args((void *)trf_5377,2,t0,t1);} a=C_alloc(39); t2=((C_word*)t0)[2]; t3=C_u_i_memq(lf[124],t2); t4=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5382,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); if(C_truep(t3)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7755,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:382: option-arg */ f_4787(t5,t3);} else{ t5=t4; f_5382(t5,C_SCHEME_FALSE);}} /* k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in ... */ static void C_fcall f_5382(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,0,2)))){ C_save_and_reclaim_args((void *)trf_5382,2,t0,t1);} a=C_alloc(40); t2=((C_word*)t0)[2]; t3=C_u_i_memq(lf[125],t2); t4=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5387,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); if(C_truep(t3)){ t5=C_set_block_item(lf[164] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_TRUE); t6=C_set_block_item(lf[430] /* chicken.compiler.core#local-definitions */,0,C_SCHEME_TRUE); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7751,a[2]=((C_word*)t0)[19],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:386: option-arg */ f_4787(t7,t3);} else{ t5=t4; f_5387(t5,C_SCHEME_FALSE);}} /* k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in ... */ static void C_fcall f_5387(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,0,2)))){ C_save_and_reclaim_args((void *)trf_5387,2,t0,t1);} a=C_alloc(40); t2=((C_word*)t0)[2]; t3=C_u_i_memq(lf[126],t2); t4=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5392,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); if(C_truep(t3)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7745,a[2]=((C_word*)t0)[21],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:388: option-arg */ f_4787(t5,t3);} else{ t5=t4; f_5392(t5,C_SCHEME_FALSE);}} /* k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in ... */ static void C_fcall f_5392(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,0,2)))){ C_save_and_reclaim_args((void *)trf_5392,2,t0,t1);} a=C_alloc(39); t2=((C_word*)t0)[2]; t3=C_u_i_memq(lf[127],t2); t4=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5397,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); if(C_truep(t3)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7732,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:391: option-arg */ f_4787(t5,t3);} else{ t5=t4; f_5397(t5,C_SCHEME_FALSE);}} /* k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in ... */ static void C_fcall f_5397(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,0,4)))){ C_save_and_reclaim_args((void *)trf_5397,2,t0,t1);} a=C_alloc(42); t2=(*a=C_CLOSURE_TYPE|35,a[1]=(C_word)f_5400,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],tmp=(C_word)a,a+=36,tmp); t3=((C_word*)t0)[5]; if(C_truep(C_u_i_memq(lf[427],t3))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7722,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9281,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word av2[5]; av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[428]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5400(2,av2);}}} /* k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in ... */ static void C_ccall f_5400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,2)))){ C_save_and_reclaim((void *)f_5400,2,av);} a=C_alloc(38); t2=(*a=C_CLOSURE_TYPE|34,a[1]=(C_word)f_5403,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],tmp=(C_word)a,a+=35,tmp); if(C_truep(((C_word*)t0)[35])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7689,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:400: option-arg */ f_4787(t3,((C_word*)t0)[35]);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5403(2,av2);}}} /* k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in ... */ static void C_ccall f_5403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,c,4)))){ C_save_and_reclaim((void *)f_5403,2,av);} a=C_alloc(41); t2=(*a=C_CLOSURE_TYPE|34,a[1]=(C_word)f_5406,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],tmp=(C_word)a,a+=35,tmp); t3=((C_word*)t0)[5]; if(C_truep(C_u_i_memq(lf[419],t3))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7683,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9275,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[420]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5406(2,av2);}}} /* k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in ... */ static void C_ccall f_5406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,c,4)))){ C_save_and_reclaim((void *)f_5406,2,av);} a=C_alloc(41); t2=(*a=C_CLOSURE_TYPE|34,a[1]=(C_word)f_5409,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],tmp=(C_word)a,a+=35,tmp); t3=((C_word*)t0)[5]; if(C_truep(C_u_i_memq(lf[417],t3))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7675,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9269,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[418]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5409(2,av2);}}} /* k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in ... */ static void C_ccall f_5409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,c,4)))){ C_save_and_reclaim((void *)f_5409,2,av);} a=C_alloc(41); t2=(*a=C_CLOSURE_TYPE|34,a[1]=(C_word)f_5412,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],tmp=(C_word)a,a+=35,tmp); t3=((C_word*)t0)[5]; if(C_truep(C_u_i_memq(lf[410],t3))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7658,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9263,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[416]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5412(2,av2);}}} /* k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in ... */ static void C_ccall f_5412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(45,c,2)))){ C_save_and_reclaim((void *)f_5412,2,av);} a=C_alloc(45); t2=C_mutate((C_word*)lf[128]+1 /* (set! chicken.compiler.core#verbose-mode ...) */,((C_word*)t0)[2]); t3=C_set_block_item(lf[129] /* ##sys#read-error-with-line-number */,0,C_SCHEME_TRUE); t4=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5418,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],tmp=(C_word)a,a+=33,tmp); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=*((C_word*)lf[90]+1); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7613,a[2]=t4,a[3]=((C_word*)t0)[34],a[4]=t7,a[5]=t9,a[6]=t8,tmp=(C_word)a,a+=7,tmp); /* batch-driver.scm:421: collect-options */ t11=((C_word*)((C_word*)t0)[23])[1]; f_5115(t11,t10,lf[409]);} /* k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in ... */ static void C_ccall f_5418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_5418,2,av);} a=C_alloc(33); t2=C_mutate((C_word*)lf[130]+1 /* (set! ##sys#include-pathnames ...) */,t1); t3=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5421,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); if(C_truep(((C_word*)t0)[13])){ if(C_truep(((C_word*)t0)[6])){ if(C_truep(C_i_string_equal_p(((C_word*)t0)[13],((C_word*)t0)[6]))){ /* batch-driver.scm:425: chicken.compiler.support#quit-compiling */ t4=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[408]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5421(2,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5421(2,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5421(2,av2);}}} /* k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in ... */ static void C_ccall f_5421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_5421,2,av);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); t3=((C_word*)t0)[4]; if(C_truep(C_u_i_memq(lf[406],t3))){ t4=C_set_block_item(lf[407] /* chicken.compiler.core#undefine-shadowed-macros */,0,C_SCHEME_FALSE); t5=t2; f_5424(t5,t4);} else{ t4=t2; f_5424(t4,C_SCHEME_UNDEFINED);}} /* k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in ... */ static void C_fcall f_5424(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,2)))){ C_save_and_reclaim_args((void *)trf_5424,2,t0,t1);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5427,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); t3=((C_word*)t0)[4]; if(C_truep(C_u_i_memq(lf[404],t3))){ t4=C_set_block_item(lf[405] /* chicken.compiler.core#no-argc-checks */,0,C_SCHEME_TRUE); t5=t2; f_5427(t5,t4);} else{ t4=t2; f_5427(t4,C_SCHEME_UNDEFINED);}} /* k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in ... */ static void C_fcall f_5427(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,2)))){ C_save_and_reclaim_args((void *)trf_5427,2,t0,t1);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5430,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); t3=((C_word*)t0)[4]; if(C_truep(C_u_i_memq(lf[402],t3))){ t4=C_set_block_item(lf[403] /* chicken.compiler.core#no-bound-checks */,0,C_SCHEME_TRUE); t5=t2; f_5430(t5,t4);} else{ t4=t2; f_5430(t4,C_SCHEME_UNDEFINED);}} /* k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in ... */ static void C_fcall f_5430(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,2)))){ C_save_and_reclaim_args((void *)trf_5430,2,t0,t1);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5433,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); t3=((C_word*)t0)[4]; if(C_truep(C_u_i_memq(lf[400],t3))){ t4=C_set_block_item(lf[401] /* chicken.compiler.core#no-procedure-checks */,0,C_SCHEME_TRUE); t5=t2; f_5433(t5,t4);} else{ t4=t2; f_5433(t4,C_SCHEME_UNDEFINED);}} /* k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in ... */ static void C_fcall f_5433(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,2)))){ C_save_and_reclaim_args((void *)trf_5433,2,t0,t1);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5436,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); t3=((C_word*)t0)[4]; if(C_truep(C_u_i_memq(lf[398],t3))){ t4=C_set_block_item(lf[399] /* chicken.compiler.core#no-global-procedure-checks */,0,C_SCHEME_TRUE); t5=t2; f_5436(t5,t4);} else{ t4=t2; f_5436(t4,C_SCHEME_UNDEFINED);}} /* k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in ... */ static void C_fcall f_5436(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,0,3)))){ C_save_and_reclaim_args((void *)trf_5436,2,t0,t1);} a=C_alloc(41); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5439,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); t3=((C_word*)t0)[4]; if(C_truep(C_u_i_memq(lf[395],t3))){ t4=*((C_word*)lf[72]+1); t5=C_i_check_list_2(*((C_word*)lf[72]+1),lf[10]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7519,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7558,a[2]=t8,tmp=(C_word)a,a+=3,tmp)); t10=((C_word*)t8)[1]; f_7558(t10,t6,*((C_word*)lf[72]+1));} else{ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5439(2,av2);}}} /* k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in ... */ static void C_ccall f_5439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_5439,2,av);} a=C_alloc(33); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5442,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); if(C_truep(C_i_memq(lf[103],*((C_word*)lf[101]+1)))){ /* batch-driver.scm:447: chicken.load#load-verbose */ t3=*((C_word*)lf[394]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5442(2,av2);}}} /* k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in ... */ static void C_ccall f_5442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,c,3)))){ C_save_and_reclaim((void *)f_5442,2,av);} a=C_alloc(40); t2=*((C_word*)lf[131]+1); t3=(*a=C_CLOSURE_TYPE|33,a[1]=(C_word)f_5445,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=t2,tmp=(C_word)a,a+=34,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7489,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7497,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:452: collect-options */ t6=((C_word*)((C_word*)t0)[22])[1]; f_5115(t6,t5,lf[393]);} /* k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in ... */ static void C_ccall f_5445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){ C_save_and_reclaim((void *)f_5445,2,av);} a=C_alloc(39); t2=C_i_check_list_2(t1,lf[10]); t3=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5451,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7466,a[2]=t5,a[3]=((C_word*)t0)[33],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7466(t7,t3,t1);} /* k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in ... */ static void C_ccall f_5451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,c,3)))){ C_save_and_reclaim((void *)f_5451,2,av);} a=C_alloc(40); t2=*((C_word*)lf[132]+1); t3=(*a=C_CLOSURE_TYPE|33,a[1]=(C_word)f_5454,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=t2,tmp=(C_word)a,a+=34,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7456,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7464,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:455: collect-options */ t6=((C_word*)((C_word*)t0)[22])[1]; f_5115(t6,t5,lf[391]);} /* k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in ... */ static void C_ccall f_5454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){ C_save_and_reclaim((void *)f_5454,2,av);} a=C_alloc(39); t2=C_i_check_list_2(t1,lf[10]); t3=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5460,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7433,a[2]=t5,a[3]=((C_word*)t0)[33],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7433(t7,t3,t1);} /* k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in ... */ static void C_ccall f_5460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,2)))){ C_save_and_reclaim((void *)f_5460,2,av);} a=C_alloc(36); t2=C_a_i_cons(&a,2,lf[133],*((C_word*)lf[134]+1)); t3=C_mutate((C_word*)lf[134]+1 /* (set! ##sys#features ...) */,t2); t4=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5467,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); /* batch-driver.scm:459: collect-options */ t5=((C_word*)((C_word*)t0)[22])[1]; f_5115(t5,t4,lf[389]);} /* k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in ... */ static void C_ccall f_5467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,c,4)))){ C_save_and_reclaim((void *)f_5467,2,av);} a=C_alloc(37); t2=t1; t3=(*a=C_CLOSURE_TYPE|33,a[1]=(C_word)f_5470,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],a[27]=((C_word*)t0)[26],a[28]=((C_word*)t0)[27],a[29]=((C_word*)t0)[28],a[30]=((C_word*)t0)[29],a[31]=((C_word*)t0)[30],a[32]=((C_word*)t0)[31],a[33]=((C_word*)t0)[32],tmp=(C_word)a,a+=34,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9247,a[2]=t4,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[388]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} /* k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in ... */ static void C_ccall f_5470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,3)))){ C_save_and_reclaim((void *)f_5470,2,av);} a=C_alloc(38); t2=C_i_check_list_2(((C_word*)t0)[2],lf[10]); t3=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5493,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],tmp=(C_word)a,a+=33,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7410,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_7410(t7,t3,((C_word*)t0)[2]);} /* k5473 in for-each-loop1451 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in ... */ static void C_ccall f_5475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5475,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5478,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_not(t2))){ /* batch-driver.scm:464: chicken.compiler.support#quit-compiling */ t4=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[387]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* batch-driver.scm:465: scheme#load */ t4=*((C_word*)lf[386]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k5476 in k5473 in for-each-loop1451 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in ... */ static void C_ccall f_5478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5478,2,av);} /* batch-driver.scm:465: scheme#load */ t2=*((C_word*)lf[386]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in ... */ static void C_ccall f_5493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,3)))){ C_save_and_reclaim((void *)f_5493,2,av);} a=C_alloc(38); t2=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5497,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); t3=*((C_word*)lf[134]+1); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3211,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_3211(t7,t2,*((C_word*)lf[134]+1));} /* k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in ... */ static void C_ccall f_5497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,2)))){ C_save_and_reclaim((void *)f_5497,2,av);} a=C_alloc(36); t2=C_mutate((C_word*)lf[134]+1 /* (set! ##sys#features ...) */,t1); t3=C_a_i_cons(&a,2,lf[135],*((C_word*)lf[134]+1)); t4=C_mutate((C_word*)lf[134]+1 /* (set! ##sys#features ...) */,t3); t5=(*a=C_CLOSURE_TYPE|32,a[1]=(C_word)f_5505,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],tmp=(C_word)a,a+=33,tmp); /* batch-driver.scm:469: chicken.compiler.user-pass#user-post-analysis-pass */ t6=*((C_word*)lf[385]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in ... */ static void C_ccall f_5505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,3)))){ C_save_and_reclaim((void *)f_5505,2,av);} a=C_alloc(38); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|31,a[1]=(C_word)f_5508,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],tmp=(C_word)a,a+=32,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7360,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7408,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:474: collect-options */ t6=((C_word*)((C_word*)t0)[22])[1]; f_5115(t6,t5,lf[381]);} /* k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in ... */ static void C_ccall f_5508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(44,c,2)))){ C_save_and_reclaim((void *)f_5508,2,av);} a=C_alloc(44); t2=(*a=C_CLOSURE_TYPE|31,a[1]=(C_word)f_5511,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],tmp=(C_word)a,a+=32,tmp); if(C_truep(C_i_nullp(t1))){ t3=t2; f_5511(t3,C_SCHEME_UNDEFINED);} else{ t3=C_a_i_cons(&a,2,lf[381],t1); t4=C_a_i_list(&a,2,lf[382],t3); t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[26])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[26])+1,t5); t7=t2; f_5511(t7,t6);}} /* k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in ... */ static void C_fcall f_5511(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(43,0,2)))){ C_save_and_reclaim_args((void *)trf_5511,2,t0,t1);} a=C_alloc(43); t2=(*a=C_CLOSURE_TYPE|31,a[1]=(C_word)f_5515,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],tmp=(C_word)a,a+=32,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7303,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:484: collect-options */ t8=((C_word*)((C_word*)t0)[21])[1]; f_5115(t8,t7,lf[380]);} /* k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in ... */ static void C_ccall f_5515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){ C_save_and_reclaim((void *)f_5515,2,av);} a=C_alloc(32); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|31,a[1]=(C_word)f_5518,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[2],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],tmp=(C_word)a,a+=32,tmp); t4=((C_word*)t0)[3]; if(C_truep(C_u_i_memq(lf[377],t4))){ t5=C_set_block_item(lf[378] /* ##sys#enable-runtime-macros */,0,C_SCHEME_TRUE); t6=t3; f_5518(t6,t5);} else{ t5=t3; f_5518(t5,C_SCHEME_UNDEFINED);}} /* k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in ... */ static void C_fcall f_5518(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,0,2)))){ C_save_and_reclaim_args((void *)trf_5518,2,t0,t1);} a=C_alloc(35); t2=(*a=C_CLOSURE_TYPE|30,a[1]=(C_word)f_5522,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],tmp=(C_word)a,a+=31,tmp); if(C_truep(((C_word*)t0)[31])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7284,a[2]=((C_word*)t0)[29],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:490: option-arg */ f_4787(t3,((C_word*)t0)[31]);} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5522(2,av2);}}} /* k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in ... */ static void C_ccall f_5522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){ C_save_and_reclaim((void *)f_5522,2,av);} a=C_alloc(32); t2=C_mutate((C_word*)lf[136]+1 /* (set! chicken.compiler.core#target-heap-size ...) */,t1); t3=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_5526,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],tmp=(C_word)a,a+=28,tmp); if(C_truep(((C_word*)t0)[28])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7277,a[2]=((C_word*)t0)[29],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:493: option-arg */ f_4787(t4,((C_word*)t0)[28]);} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_5526(2,av2);}}} /* k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in ... */ static void C_ccall f_5526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_5526,2,av);} a=C_alloc(28); t2=C_mutate((C_word*)lf[137]+1 /* (set! chicken.compiler.core#target-stack-size ...) */,t1); t3=((C_word*)t0)[2]; t4=C_u_i_memq(lf[138],t3); t5=C_i_not(t4); t6=C_set_block_item(lf[139] /* chicken.compiler.core#emit-trace-info */,0,t5); t7=((C_word*)t0)[2]; t8=C_mutate((C_word*)lf[140]+1 /* (set! chicken.compiler.core#disable-stack-overflow-checking ...) */,C_u_i_memq(lf[141],t7)); t9=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_5537,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],tmp=(C_word)a,a+=28,tmp); /* batch-driver.scm:496: chicken.platform#feature? */ t10=*((C_word*)lf[375]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=lf[376]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in ... */ static void C_ccall f_5537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_5537,2,av);} a=C_alloc(28); t2=C_set_block_item(lf[142] /* chicken.compiler.core#bootstrap-mode */,0,t1); t3=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_5540,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],tmp=(C_word)a,a+=28,tmp); if(C_truep(C_i_memq(lf[373],*((C_word*)lf[101]+1)))){ /* batch-driver.scm:497: chicken.gc#set-gc-report! */ t4=*((C_word*)lf[374]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5540(2,av2);}}} /* k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in ... */ static void C_ccall f_5540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_5540,2,av);} a=C_alloc(28); t2=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_5543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],tmp=(C_word)a,a+=28,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[372],t3))){ t4=C_set_block_item(((C_word*)t0)[19],0,C_SCHEME_FALSE); t5=t2; f_5543(t5,t4);} else{ t4=C_mutate((C_word*)lf[9]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,*((C_word*)lf[72]+1)); t5=C_mutate((C_word*)lf[11]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,*((C_word*)lf[73]+1)); t6=t2; f_5543(t6,t5);}} /* k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in ... */ static void C_fcall f_5543(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,0,4)))){ C_save_and_reclaim_args((void *)trf_5543,2,t0,t1);} a=C_alloc(34); t2=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_5546,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],tmp=(C_word)a,a+=28,tmp); if(C_truep(*((C_word*)lf[139]+1))){ t3=t2; t4=C_a_i_list(&a,1,lf[369]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9227,a[2]=t3,tmp=(C_word)a,a+=3,tmp);{ C_word av2[5]; av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[370]; av2[4]=t4; C_apply(5,av2);}} else{ t3=t2; t4=C_a_i_list(&a,1,lf[371]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9233,a[2]=t3,tmp=(C_word)a,a+=3,tmp);{ C_word av2[5]; av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[370]; av2[4]=t4; C_apply(5,av2);}}} /* k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in ... */ static void C_ccall f_5546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){ C_save_and_reclaim((void *)f_5546,2,av);} a=C_alloc(32); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5549,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); if(C_truep(((C_word*)t0)[27])){ t3=C_i_car(((C_word*)t0)[27]); t4=C_eqp(lf[360],t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7222,a[2]=((C_word*)t0)[25],a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ if(C_truep(C_i_not(((C_word*)t0)[23]))){ /* batch-driver.scm:510: chicken.compiler.support#quit-compiling */ t7=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[368]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_7222(2,av2);}}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_7222(2,av2);}}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5549(2,av2);}}} /* k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in ... */ static void C_ccall f_5549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_5549,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5552,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:524: chicken.compiler.support#load-identifier-database */ t3=*((C_word*)lf[358]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[359]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in ... */ static void C_ccall f_5552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_5552,2,av);} a=C_alloc(27); t2=((C_word*)t0)[2]; if(C_truep(C_u_i_memq(lf[143],t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5560,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:527: chicken.compiler.support#print-version */ t4=*((C_word*)lf[144]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; t4=C_u_i_memq(lf[145],t3); t5=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5571,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); if(C_truep(t4)){ t6=t5; f_5571(t6,t4);} else{ t6=((C_word*)t0)[2]; t7=C_u_i_memq(lf[355],t6); if(C_truep(t7)){ t8=t5; f_5571(t8,t7);} else{ t8=((C_word*)t0)[2]; t9=C_u_i_memq(lf[356],t8); if(C_truep(t9)){ t10=t5; f_5571(t10,t9);} else{ t10=((C_word*)t0)[2]; t11=t5; f_5571(t11,C_u_i_memq(lf[357],t10));}}}}} /* k5558 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in ... */ static void C_ccall f_5560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5560,2,av);} /* batch-driver.scm:528: scheme#newline */ t2=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in ... */ static void C_fcall f_5571(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,4)))){ C_save_and_reclaim_args((void *)trf_5571,2,t0,t1);} a=C_alloc(33); if(C_truep(t1)){ /* batch-driver.scm:530: chicken.compiler.support#print-usage */ t2=*((C_word*)lf[146]+1);{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; if(C_truep(C_u_i_memq(lf[147],t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5582,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5589,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:532: chicken.platform#chicken-version */ t5=*((C_word*)lf[149]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_not(((C_word*)t0)[4]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5598,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:535: chicken.compiler.support#print-version */ t4=*((C_word*)lf[144]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5610,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[18],a[17]=((C_word*)t0)[2],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[3],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); t4=t3; t5=C_a_i_list(&a,1,((C_word*)t0)[4]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9209,a[2]=t4,tmp=(C_word)a,a+=3,tmp);{ C_word av2[5]; av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[354]; av2[4]=t5; C_apply(5,av2);}}}}} /* k5580 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in ... */ static void C_ccall f_5582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5582,2,av);} /* batch-driver.scm:533: scheme#newline */ t2=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5587 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in ... */ static void C_ccall f_5589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5589,2,av);} /* batch-driver.scm:532: scheme#display */ t2=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5596 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in ... */ static void C_ccall f_5598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5598,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5601,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:536: scheme#display */ t3=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[152]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5599 in k5596 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in ... */ static void C_ccall f_5601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5601,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5604,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:537: scheme#display */ t3=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[151]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5602 in k5599 in k5596 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in ... */ static void C_ccall f_5604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5604,2,av);} /* batch-driver.scm:538: scheme#display */ t2=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[150]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in ... */ static void C_ccall f_5610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_5610,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5613,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:543: chicken.compiler.support#debugging */ t3=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[349]; av2[3]=lf[353]; av2[4]=((C_word*)t0)[20]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in ... */ static void C_ccall f_5613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_5613,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5616,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:544: chicken.compiler.support#debugging */ t3=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[349]; av2[3]=lf[352]; av2[4]=*((C_word*)lf[101]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in ... */ static void C_ccall f_5616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_5616,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5619,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:545: chicken.compiler.support#debugging */ t3=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[349]; av2[3]=lf[351]; av2[4]=*((C_word*)lf[136]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in ... */ static void C_ccall f_5619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_5619,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5622,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:546: chicken.compiler.support#debugging */ t3=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[349]; av2[3]=lf[350]; av2[4]=*((C_word*)lf[137]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in ... */ static void C_ccall f_5622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_5622,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5626,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:250: chicken.time#current-milliseconds */ t3=*((C_word*)lf[112]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in ... */ static void C_ccall f_5626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_5626,2,av);} a=C_alloc(27); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5630,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[2],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:550: scheme#make-vector */ t4=*((C_word*)lf[347]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[348]+1); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in ... */ static void C_ccall f_5630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_5630,2,av);} a=C_alloc(27); t2=C_mutate((C_word*)lf[153]+1 /* (set! ##sys#line-number-database ...) */,t1); t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5633,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:551: collect-options */ t4=((C_word*)((C_word*)t0)[19])[1]; f_5115(t4,t3,lf[346]);} /* k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in ... */ static void C_ccall f_5633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_5633,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_5636,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=t2,tmp=(C_word)a,a+=28,tmp); /* batch-driver.scm:552: collect-options */ t4=((C_word*)((C_word*)t0)[19])[1]; f_5115(t4,t3,lf[345]);} /* k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in ... */ static void C_ccall f_5636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,c,2)))){ C_save_and_reclaim((void *)f_5636,2,av);} a=C_alloc(34); t2=t1; t3=(*a=C_CLOSURE_TYPE|28,a[1]=(C_word)f_5639,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=t2,tmp=(C_word)a,a+=29,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7196,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[19],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:554: collect-options */ t5=((C_word*)((C_word*)t0)[19])[1]; f_5115(t5,t4,lf[344]);} /* k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in ... */ static void C_ccall f_5639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,2)))){ C_save_and_reclaim((void *)f_5639,2,av);} a=C_alloc(30); t2=t1; t3=(*a=C_CLOSURE_TYPE|29,a[1]=(C_word)f_5642,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=t2,a[29]=((C_word*)t0)[28],tmp=(C_word)a,a+=30,tmp); /* batch-driver.scm:558: chicken.compiler.user-pass#user-read-pass */ t4=*((C_word*)lf[342]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in ... */ static void C_ccall f_5642(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,4)))){ C_save_and_reclaim((void *)f_5642,2,av);} a=C_alloc(38); t2=t1; t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5645,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7028,a[2]=((C_word*)t0)[26],a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[27],a[6]=((C_word*)t0)[28],a[7]=((C_word*)t0)[29],tmp=(C_word)a,a+=8,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9195,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[336]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7037,a[2]=((C_word*)t0)[26],a[3]=((C_word*)t0)[27],a[4]=((C_word*)t0)[29],a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_7037(t7,t3,((C_word*)t0)[28]);}} /* k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in ... */ static void C_ccall f_5645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_5645,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5648,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:581: chicken.compiler.user-pass#user-preprocessor-pass */ t3=*((C_word*)lf[335]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in ... */ static void C_ccall f_5648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){ C_save_and_reclaim((void *)f_5648,2,av);} a=C_alloc(35); t2=t1; t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6981,a[2]=t2,a[3]=((C_word*)t0)[26],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9189,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[334]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t3; f_5651(t4,C_SCHEME_UNDEFINED);}} /* k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in ... */ static void C_fcall f_5651(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,0,4)))){ C_save_and_reclaim_args((void *)trf_5651,2,t0,t1);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5654,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:586: print-expr */ t3=((C_word*)((C_word*)t0)[21])[1]; f_4984(t3,t2,lf[332],lf[333],((C_word*)((C_word*)t0)[26])[1]);} /* k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in ... */ static void C_ccall f_5654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_5654,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* batch-driver.scm:587: begin-time */ t3=((C_word*)((C_word*)t0)[5])[1]; f_5150(t3,t2);} /* k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in ... */ static void C_ccall f_5657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,3)))){ C_save_and_reclaim((void *)f_5657,2,av);} a=C_alloc(36); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5661,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_5684,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=t4,a[25]=t6,a[26]=t5,a[27]=((C_word*)t0)[24],tmp=(C_word)a,a+=28,tmp); /* batch-driver.scm:592: scheme#append */ t8=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)((C_word*)t0)[25])[1]; av2[3]=((C_word*)((C_word*)t0)[26])[1]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* g1676 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in ... */ static void C_fcall f_5661(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_5661,3,t0,t1,t2);} a=C_alloc(15); t3=((C_word*)t0)[2]; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5667,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5672,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5678,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:590: ##sys#dynamic-wind */ t10=*((C_word*)lf[156]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t1; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* a5666 in g1676 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in ... */ static void C_ccall f_5667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5667,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[154]+1)); t3=C_mutate((C_word*)lf[154]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a5671 in g1676 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in ... */ static void C_ccall f_5672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5672,2,av);} /* batch-driver.scm:591: chicken.compiler.core#canonicalize-expression */ t2=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a5677 in g1676 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in ... */ static void C_ccall f_5678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5678,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[154]+1)); t3=C_mutate((C_word*)lf[154]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in ... */ static void C_ccall f_5684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){ C_save_and_reclaim((void *)f_5684,2,av);} a=C_alloc(31); t2=t1; t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_5687,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); if(C_truep(C_i_not(((C_word*)t0)[27]))){ t4=t3; f_5687(t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6974,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:596: scheme#string->symbol */ t5=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[27]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in ... */ static void C_fcall f_5687(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,0,3)))){ C_save_and_reclaim_args((void *)trf_5687,2,t0,t1);} a=C_alloc(32); t2=C_i_check_list_2(t1,lf[5]); t3=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6924,a[2]=((C_word*)t0)[24],a[3]=t5,a[4]=((C_word*)t0)[25],a[5]=((C_word*)t0)[26],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_6924(t7,t3,t1);} /* k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in ... */ static void C_ccall f_5693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(40,c,3)))){ C_save_and_reclaim((void *)f_5693,2,av);} a=C_alloc(40); t2=t1; t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_5696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],tmp=(C_word)a,a+=22,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=*((C_word*)lf[321]+1); t9=C_i_check_list_2(*((C_word*)lf[321]+1),lf[5]); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6807,a[2]=((C_word*)t0)[22],a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[23],tmp=(C_word)a,a+=6,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6890,a[2]=t6,a[3]=t12,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_6890(t14,t10,*((C_word*)lf[321]+1));} /* k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in ... */ static void C_ccall f_5696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(43,c,3)))){ C_save_and_reclaim((void *)f_5696,2,av);} a=C_alloc(43); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5699,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=t3,a[22]=((C_word*)t0)[21],tmp=(C_word)a,a+=23,tmp); if(C_truep(C_i_nullp(*((C_word*)lf[123]+1)))){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_5699(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6729,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=*((C_word*)lf[123]+1); t11=C_i_check_list_2(*((C_word*)lf[123]+1),lf[5]); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6748,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6750,a[2]=t8,a[3]=t14,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t16=((C_word*)t14)[1]; f_6750(t16,t12,*((C_word*)lf[123]+1));}} /* k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in ... */ static void C_ccall f_5699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_5699,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5702,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); /* batch-driver.scm:619: chicken.internal#hash-table-ref */ t3=*((C_word*)lf[318]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[274]+1); av2[3]=lf[84]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in ... */ static void C_ccall f_5702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ C_save_and_reclaim((void *)f_5702,2,av);} a=C_alloc(33); t2=t1; t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5705,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6553,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6715,tmp=(C_word)a,a+=2,tmp); t6=t5; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3424,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:141: filter */ f_3325(t4,t7,t2);} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_5705(2,av2);}}} /* k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in ... */ static void C_ccall f_5705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_5705,2,av);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); if(C_truep(C_i_pairp(*((C_word*)lf[293]+1)))){ t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6491,tmp=(C_word)a,a+=2,tmp); /* batch-driver.scm:632: chicken.compiler.support#with-debugging-output */ t4=*((C_word*)lf[298]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[299]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5708(2,av2);}}} /* k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in ... */ static void C_ccall f_5708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_5708,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5711,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6480,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:639: chicken.compiler.support#debugging */ t4=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[291]; av2[3]=lf[292]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in ... */ static void C_ccall f_5711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_5711,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5714,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6474,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:641: chicken.compiler.support#debugging */ t4=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[288]; av2[3]=lf[289]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in ... */ static void C_ccall f_5714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_5714,2,av);} a=C_alloc(23); t2=C_mutate((C_word*)lf[153]+1 /* (set! ##sys#line-number-database ...) */,*((C_word*)lf[157]+1)); t3=C_set_block_item(lf[157] /* chicken.compiler.core#line-number-database-2 */,0,C_SCHEME_FALSE); t4=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5719,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); /* batch-driver.scm:647: end-time */ t5=((C_word*)((C_word*)t0)[3])[1]; f_5160(t5,t4,lf[286]);} /* k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in ... */ static void C_ccall f_5719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_5719,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_5722,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],tmp=(C_word)a,a+=22,tmp); /* batch-driver.scm:648: print-expr */ t3=((C_word*)((C_word*)t0)[22])[1]; f_4984(t3,t2,lf[284],lf[285],((C_word*)((C_word*)t0)[21])[1]);} /* k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in ... */ static void C_ccall f_5722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_5722,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_5725,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],tmp=(C_word)a,a+=22,tmp); t3=((C_word*)t0)[20]; if(C_truep(C_u_i_memq(lf[283],t3))){ /* batch-driver.scm:650: chicken.base#exit */ t4=*((C_word*)lf[196]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5725(2,av2);}}} /* k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in ... */ static void C_ccall f_5725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_5725,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_5728,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],tmp=(C_word)a,a+=22,tmp); /* batch-driver.scm:653: chicken.compiler.user-pass#user-pass */ t3=*((C_word*)lf[282]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in ... */ static void C_ccall f_5728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_5728,2,av);} a=C_alloc(32); t2=t1; t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_5731,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],tmp=(C_word)a,a+=22,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6416,a[2]=t2,a[3]=((C_word*)t0)[21],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9165,a[2]=t5,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[281]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5731(2,av2);}}} /* k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in ... */ static void C_ccall f_5731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_5731,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_5734,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],tmp=(C_word)a,a+=21,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6409,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6413,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:663: chicken.compiler.support#canonicalize-begin-body */ t5=*((C_word*)lf[279]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[21])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in ... */ static void C_ccall f_5734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){ C_save_and_reclaim((void *)f_5734,2,av);} a=C_alloc(25); t2=t1; t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5737,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t2,a[19]=((C_word*)t0)[18],a[20]=t4,a[21]=((C_word*)t0)[19],a[22]=((C_word*)t0)[20],tmp=(C_word)a,a+=23,tmp); /* batch-driver.scm:665: print-node */ t6=((C_word*)((C_word*)t0)[6])[1]; f_4935(t6,t5,lf[275],lf[276],t2);} /* k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in ... */ static void C_ccall f_5737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_5737,2,av);} a=C_alloc(23); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5740,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); /* batch-driver.scm:666: initialize-analysis-database */ t3=lf[8]; f_4093(t3,t2);} /* k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in ... */ static void C_ccall f_5740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_5740,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_5743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],tmp=(C_word)a,a+=23,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6405,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:669: scheme#vector->list */ t4=*((C_word*)lf[273]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[274]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in ... */ static void C_ccall f_5743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){ C_save_and_reclaim((void *)f_5743,2,av);} a=C_alloc(39); t2=t1; t3=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5746,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=t2,tmp=(C_word)a,a+=24,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_check_list_2(t2,lf[5]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6367,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6369,a[2]=t6,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_6369(t13,t9,t2);} /* k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in ... */ static void C_ccall f_5746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_5746,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5749,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=t2,a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],tmp=(C_word)a,a+=24,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6354,a[2]=t3,a[3]=((C_word*)t0)[23],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:671: chicken.compiler.support#debugging */ t5=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[271]; av2[3]=lf[272]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in ... */ static void C_ccall f_5749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_5749,2,av);} a=C_alloc(29); t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5752,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp); if(C_truep(*((C_word*)lf[267]+1))){ t3=C_i_check_list_2(((C_word*)t0)[20],lf[10]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6330,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6330(t7,t2,((C_word*)t0)[20]);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5752(2,av2);}}} /* k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in ... */ static void C_ccall f_5752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_5752,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5755,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp); /* batch-driver.scm:681: collect-options */ t3=((C_word*)((C_word*)t0)[22])[1]; f_5115(t3,t2,lf[266]);} /* k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in ... */ static void C_ccall f_5755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_5755,2,av);} a=C_alloc(29); t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5758,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp); if(C_truep(C_i_nullp(t1))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5758(2,av2);}} else{ t3=C_set_block_item(lf[164] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_TRUE); t4=C_i_check_list_2(t1,lf[10]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6283,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_6283(t8,t2,t1);}} /* k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in ... */ static void C_ccall f_5758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,3)))){ C_save_and_reclaim((void *)f_5758,2,av);} a=C_alloc(35); t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],tmp=(C_word)a,a+=19,tmp); t3=((C_word*)((C_word*)t0)[19])[1]; t4=(C_truep(t3)?t3:*((C_word*)lf[120]+1)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6134,a[2]=((C_word*)t0)[20],a[3]=((C_word*)t0)[21],a[4]=t2,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[18],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[19],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[22],tmp=(C_word)a,a+=13,tmp); t6=((C_word*)t0)[23]; if(C_truep(C_u_i_memq(lf[261],t6))){ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_6134(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6260,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:693: chicken.compiler.scrutinizer#load-type-database */ t8=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[263]; av2[3]=*((C_word*)lf[120]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t5=t2; f_5761(t5,C_SCHEME_UNDEFINED);}} /* k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in ... */ static void C_fcall f_5761(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,0,2)))){ C_save_and_reclaim_args((void *)trf_5761,2,t0,t1);} a=C_alloc(22); t2=C_set_block_item(lf[153] /* ##sys#line-number-database */,0,C_SCHEME_FALSE); t3=C_set_block_item(lf[158] /* chicken.compiler.core#constant-table */,0,C_SCHEME_FALSE); t4=C_set_block_item(lf[159] /* chicken.compiler.core#inline-table */,0,C_SCHEME_FALSE); t5=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],tmp=(C_word)a,a+=19,tmp); if(C_truep(*((C_word*)lf[242]+1))){ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_5767(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6128,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:729: chicken.compiler.support#node-subexpressions */ t7=*((C_word*)lf[244]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[18]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in ... */ static void C_ccall f_5767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_5767,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5770,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],tmp=(C_word)a,a+=19,tmp); /* batch-driver.scm:731: begin-time */ t3=((C_word*)((C_word*)t0)[4])[1]; f_5150(t3,t2);} /* k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in ... */ static void C_ccall f_5770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_5770,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_5773,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],tmp=(C_word)a,a+=18,tmp); /* batch-driver.scm:733: chicken.compiler.core#perform-cps-conversion */ t3=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[18]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in ... */ static void C_ccall f_5773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_5773,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5776,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t2,tmp=(C_word)a,a+=19,tmp); /* batch-driver.scm:734: end-time */ t4=((C_word*)((C_word*)t0)[3])[1]; f_5160(t4,t3,lf[240]);} /* k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in ... */ static void C_ccall f_5776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_5776,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],tmp=(C_word)a,a+=19,tmp); /* batch-driver.scm:735: print-node */ t3=((C_word*)((C_word*)t0)[6])[1]; f_4935(t3,t2,lf[238],lf[239],((C_word*)t0)[18]);} /* k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in ... */ static void C_ccall f_5779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,7)))){ C_save_and_reclaim((void *)f_5779,2,av);} a=C_alloc(20); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_5784,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp)); t5=((C_word*)t3)[1]; f_5784(t5,((C_word*)t0)[17],C_fix(1),((C_word*)t0)[18],C_SCHEME_TRUE,C_SCHEME_FALSE,C_SCHEME_FALSE);} /* loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in ... */ static void C_fcall f_5784(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,0,2)))){ C_save_and_reclaim_args((void *)trf_5784,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(26); t7=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5788,a[2]=t4,a[3]=t5,a[4]=t7,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=t6,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=t1,a[14]=((C_word*)t0)[8],a[15]=((C_word*)t0)[9],a[16]=((C_word*)t0)[10],a[17]=((C_word*)t0)[11],a[18]=((C_word*)t0)[12],a[19]=((C_word*)t0)[13],a[20]=((C_word*)t0)[14],a[21]=((C_word*)t0)[15],a[22]=((C_word*)t0)[16],a[23]=((C_word*)t0)[17],tmp=(C_word)a,a+=24,tmp); /* batch-driver.scm:743: begin-time */ t9=((C_word*)((C_word*)t0)[5])[1]; f_5150(t9,t8);} /* k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in ... */ static void C_ccall f_5788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,4)))){ C_save_and_reclaim((void *)f_5788,2,av);} a=C_alloc(30); t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5791,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp); /* batch-driver.scm:745: analyze */ t3=((C_word*)((C_word*)t0)[11])[1]; f_5200(t3,t2,lf[237],((C_word*)((C_word*)t0)[4])[1],C_a_i_list(&a,2,((C_word*)t0)[5],((C_word*)t0)[2]));} /* k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in ... */ static void C_ccall f_5791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,2)))){ C_save_and_reclaim((void *)f_5791,2,av);} a=C_alloc(30); t2=t1; t3=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5794,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],tmp=(C_word)a,a+=24,tmp); if(C_truep(*((C_word*)lf[160]+1))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6084,a[2]=((C_word*)t0)[23],a[3]=t3,a[4]=((C_word*)t0)[15],a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_memq(lf[235],*((C_word*)lf[101]+1)))){ /* batch-driver.scm:748: chicken.compiler.support#dump-undefined-globals */ t5=*((C_word*)lf[236]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_6084(2,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5794(2,av2);}}} /* k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in ... */ static void C_ccall f_5794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_5794,2,av);} a=C_alloc(24); t2=C_set_block_item(lf[160] /* chicken.compiler.core#first-analysis */,0,C_SCHEME_FALSE); t3=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5798,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp); /* batch-driver.scm:758: end-time */ t4=((C_word*)((C_word*)t0)[10])[1]; f_5160(t4,t3,lf[228]);} /* k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in ... */ static void C_ccall f_5798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,5)))){ C_save_and_reclaim((void *)f_5798,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5801,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp); /* batch-driver.scm:759: print-db */ t3=((C_word*)((C_word*)t0)[21])[1]; f_4957(t3,t2,lf[226],lf[227],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in ... */ static void C_ccall f_5801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,9)))){ C_save_and_reclaim((void *)f_5801,2,av);} a=C_alloc(29); t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_5804,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp); if(C_truep(C_i_memq(lf[216],*((C_word*)lf[101]+1)))){ t3=((C_word*)t0)[5]; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4000,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4006,tmp=(C_word)a,a+=2,tmp); /* batch-driver.scm:69: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5804(2,av2);}}} /* k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in ... */ static void C_ccall f_5804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_5804,2,av);} a=C_alloc(24); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5810,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp); /* batch-driver.scm:766: chicken.compiler.support#debugging */ t3=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[103]; av2[3]=lf[177]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_5911,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[15],a[6]=((C_word*)t0)[16],a[7]=((C_word*)t0)[17],a[8]=((C_word*)t0)[18],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[14],a[11]=((C_word*)t0)[19],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[20],a[14]=((C_word*)t0)[21],a[15]=((C_word*)t0)[6],a[16]=((C_word*)t0)[22],tmp=(C_word)a,a+=17,tmp); if(C_truep(((C_word*)t0)[23])){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6047,a[2]=((C_word*)t0)[10],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* batch-driver.scm:805: begin-time */ t4=((C_word*)((C_word*)t0)[11])[1]; f_5150(t4,t3);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5911(2,av2);}}}} /* k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in ... */ static void C_ccall f_5810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_5810,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); /* batch-driver.scm:767: begin-time */ t3=((C_word*)((C_word*)t0)[10])[1]; f_5150(t3,t2);} /* k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in ... */ static void C_ccall f_5813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_5813,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5818,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5830,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp); /* batch-driver.scm:768: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[13]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a5817 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in ... */ static void C_ccall f_5818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5818,2,av);} if(C_truep(((C_word*)t0)[2])){ /* batch-driver.scm:770: chicken.compiler.optimizer#determine-loop-and-dispatch */ t2=*((C_word*)lf[161]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ /* batch-driver.scm:771: chicken.compiler.optimizer#perform-high-level-optimizations */ t2=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)t0)[4]; av2[4]=*((C_word*)lf[163]+1); av2[5]=*((C_word*)lf[164]+1); av2[6]=*((C_word*)lf[165]+1); av2[7]=*((C_word*)lf[166]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}} /* a5829 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in ... */ static void C_ccall f_5830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_5830,4,av);} a=C_alloc(14); t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5834,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],tmp=(C_word)a,a+=14,tmp); /* batch-driver.scm:775: end-time */ t5=((C_word*)((C_word*)t0)[7])[1]; f_5160(t5,t4,lf[176]);} /* k5832 in a5829 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ static void C_ccall f_5834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_5834,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5837,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* batch-driver.scm:776: print-node */ t3=((C_word*)((C_word*)t0)[13])[1]; f_4935(t3,t2,lf[174],lf[175],((C_word*)t0)[6]);} /* k5835 in k5832 in a5829 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ static void C_ccall f_5837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,6)))){ C_save_and_reclaim((void *)f_5837,2,av);} a=C_alloc(29); if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); /* batch-driver.scm:778: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_5784(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_SCHEME_TRUE,C_SCHEME_FALSE,((C_word*)t0)[7]);} else{ t2=C_i_not(((C_word*)t0)[8]); t3=(C_truep(t2)?((C_word*)t0)[9]:C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5854,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:780: chicken.compiler.support#debugging */ t5=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[103]; av2[3]=lf[167]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ if(C_truep(C_i_not(*((C_word*)lf[166]+1)))){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5868,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); /* batch-driver.scm:783: chicken.compiler.support#debugging */ t5=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[103]; av2[3]=lf[168]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ if(C_truep(*((C_word*)lf[169]+1))){ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5880,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],tmp=(C_word)a,a+=10,tmp); /* batch-driver.scm:787: begin-time */ t5=((C_word*)((C_word*)t0)[11])[1]; f_5150(t5,t4);} else{ t4=((C_word*)t0)[3]; t5=C_s_a_i_plus(&a,2,t4,C_fix(1)); /* batch-driver.scm:800: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_5784(t6,((C_word*)t0)[5],t5,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8]);}}}}} /* k5852 in k5835 in k5832 in a5829 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in ... */ static void C_ccall f_5854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,6)))){ C_save_and_reclaim((void *)f_5854,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); /* batch-driver.scm:781: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_5784(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_TRUE,C_SCHEME_TRUE,C_SCHEME_TRUE);} /* k5866 in k5835 in k5832 in a5829 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in ... */ static void C_ccall f_5868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,6)))){ C_save_and_reclaim((void *)f_5868,2,av);} a=C_alloc(29); t2=C_set_block_item(lf[166] /* chicken.compiler.core#inline-substitutions-enabled */,0,C_SCHEME_TRUE); t3=((C_word*)t0)[2]; t4=C_s_a_i_plus(&a,2,t3,C_fix(1)); /* batch-driver.scm:785: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_5784(t5,((C_word*)t0)[4],t4,((C_word*)t0)[5],C_SCHEME_TRUE,C_SCHEME_FALSE,((C_word*)t0)[6]);} /* k5878 in k5835 in k5832 in a5829 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in ... */ static void C_ccall f_5880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5880,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5883,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* batch-driver.scm:788: analyze */ t3=((C_word*)((C_word*)t0)[9])[1]; f_5200(t3,t2,lf[173],((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k5881 in k5878 in k5835 in k5832 in a5829 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in ... */ static void C_ccall f_5883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_5883,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5886,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* batch-driver.scm:789: end-time */ t4=((C_word*)((C_word*)t0)[7])[1]; f_5160(t4,t3,lf[172]);} /* k5884 in k5881 in k5878 in k5835 in k5832 in a5829 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in ... */ static void C_ccall f_5886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5886,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5889,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* batch-driver.scm:790: begin-time */ t3=((C_word*)((C_word*)t0)[9])[1]; f_5150(t3,t2);} /* k5887 in k5884 in k5881 in k5878 in k5835 in k5832 in a5829 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in ... */ static void C_ccall f_5889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_5889,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5892,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* batch-driver.scm:792: chicken.compiler.optimizer#transform-direct-lambdas! */ t3=*((C_word*)lf[171]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5890 in k5887 in k5884 in k5881 in k5878 in k5835 in k5832 in a5829 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ static void C_ccall f_5892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5892,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5895,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* batch-driver.scm:793: end-time */ t4=((C_word*)((C_word*)t0)[7])[1]; f_5160(t4,t3,lf[170]);} /* k5893 in k5890 in k5887 in k5884 in k5881 in k5878 in k5835 in k5832 in a5829 in k5811 in k5808 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in ... */ static void C_ccall f_5895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,6)))){ C_save_and_reclaim((void *)f_5895,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=C_s_a_i_plus(&a,2,t2,C_fix(1)); /* batch-driver.scm:794: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_5784(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7]);} /* k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in ... */ static void C_ccall f_5911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_5911,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_5914,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); /* batch-driver.scm:814: print-node */ t3=((C_word*)((C_word*)t0)[12])[1]; f_4935(t3,t2,lf[208],lf[209],((C_word*)((C_word*)t0)[2])[1]);} /* k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in ... */ static void C_ccall f_5914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){ C_save_and_reclaim((void *)f_5914,2,av);} a=C_alloc(28); t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_5917,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp); t3=(C_truep(((C_word*)((C_word*)t0)[16])[1])?*((C_word*)lf[205]+1):C_SCHEME_FALSE); if(C_truep(t3)){ t4=((C_word*)((C_word*)t0)[16])[1]; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6041,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=t4,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=t5; t7=C_a_i_list(&a,1,t4); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9127,a[2]=t6,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t8; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[207]; av2[4]=t7; C_apply(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_5917(2,av2);}}} /* k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in ... */ static void C_ccall f_5917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_5917,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_5920,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp); /* batch-driver.scm:823: begin-time */ t3=((C_word*)((C_word*)t0)[9])[1]; f_5150(t3,t2);} /* k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ static void C_ccall f_5920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_5920,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_5924,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp); /* batch-driver.scm:825: chicken.compiler.core#perform-closure-conversion */ t3=*((C_word*)lf[204]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ static void C_ccall f_5924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_5924,2,av);} a=C_alloc(16); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_5927,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp); /* batch-driver.scm:826: end-time */ t4=((C_word*)((C_word*)t0)[4])[1]; f_5160(t4,t3,lf[203]);} /* k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in ... */ static void C_ccall f_5927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_5927,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5930,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); /* batch-driver.scm:827: print-db */ t3=((C_word*)((C_word*)t0)[14])[1]; f_4957(t3,t2,lf[201],lf[202],((C_word*)t0)[3],((C_word*)t0)[15]);} /* k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in ... */ static void C_ccall f_5930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_5930,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); if(C_truep(*((C_word*)lf[199]+1))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6035,a[2]=((C_word*)t0)[13],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:250: chicken.time#current-milliseconds */ t4=*((C_word*)lf[112]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5933(2,av2);}}} /* k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in ... */ static void C_ccall f_5933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_5933,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5936,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* batch-driver.scm:831: print-node */ t3=((C_word*)((C_word*)t0)[12])[1]; f_4935(t3,t2,lf[197],lf[198],((C_word*)((C_word*)t0)[2])[1]);} /* k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in ... */ static void C_ccall f_5936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5936,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5939,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)t0)[11])){ /* batch-driver.scm:832: chicken.base#exit */ t3=*((C_word*)lf[196]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5939(2,av2);}}} /* k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ static void C_ccall f_5939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5939,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5942,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* batch-driver.scm:833: begin-time */ t3=((C_word*)((C_word*)t0)[9])[1]; f_5150(t3,t2);} /* k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in ... */ static void C_ccall f_5942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,7)))){ C_save_and_reclaim((void *)f_5942,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5947,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5953,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* batch-driver.scm:835: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[10]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a5946 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in ... */ static void C_ccall f_5947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5947,2,av);} /* batch-driver.scm:836: chicken.compiler.core#prepare-for-code-generation */ t2=*((C_word*)lf[178]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in ... */ static void C_ccall f_5953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_5953,7,av);} a=C_alloc(14); t7=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5957,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t4,a[7]=t5,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=t6,a[13]=((C_word*)t0)[8],tmp=(C_word)a,a+=14,tmp); /* batch-driver.scm:837: end-time */ t8=((C_word*)((C_word*)t0)[2])[1]; f_5160(t8,t7,lf[195]);} /* k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in ... */ static void C_ccall f_5957(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_5957,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5960,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* batch-driver.scm:838: begin-time */ t3=((C_word*)((C_word*)t0)[13])[1]; f_5150(t3,t2);} /* k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in ... */ static void C_ccall f_5960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_5960,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5963,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); if(C_truep(*((C_word*)lf[190]+1))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6006,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=C_a_i_list(&a,1,*((C_word*)lf[190]+1)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9121,a[2]=t4,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[194]; av2[4]=t5; C_apply(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5963(2,av2);}}} /* k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in ... */ static void C_ccall f_5963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_5963,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5966,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)t0)[4])){ /* batch-driver.scm:848: scheme#open-output-file */ t3=*((C_word*)lf[189]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=*((C_word*)lf[20]+1); f_5966(2,av2);}}} /* k5964 in k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in ... */ static void C_ccall f_5966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_5966,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5969,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); t4=t3; t5=C_a_i_list(&a,1,((C_word*)t0)[4]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9115,a[2]=t4,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[188]; av2[4]=t5; C_apply(5,av2);}} /* k5967 in k5964 in k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in ... */ static void C_ccall f_5969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,10)))){ C_save_and_reclaim((void *)f_5969,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5972,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:850: chicken.compiler.c-backend#generate-code */ t3=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[8]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[9]; av2[7]=((C_word*)t0)[10]; av2[8]=((C_word*)t0)[11]; av2[9]=((C_word*)t0)[12]; av2[10]=((C_word*)t0)[13]; ((C_proc)(void*)(*((C_word*)t3+1)))(11,av2);}} /* k5970 in k5967 in k5964 in k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in ... */ static void C_ccall f_5972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5972,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5975,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ /* batch-driver.scm:853: scheme#close-output-port */ t3=*((C_word*)lf[186]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5975(2,av2);}}} /* k5973 in k5970 in k5967 in k5964 in k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in ... */ static void C_ccall f_5975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5975,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5978,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:854: end-time */ t3=((C_word*)((C_word*)t0)[3])[1]; f_5160(t3,t2,lf[185]);} /* k5976 in k5973 in k5970 in k5967 in k5964 in k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in ... */ static void C_ccall f_5978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5978,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5981,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_memq(lf[182],*((C_word*)lf[101]+1)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5997,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:856: ##sys#stop-timer */ t4=*((C_word*)lf[184]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8625,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:857: chicken.compiler.support#compiler-cleanup-hook */ t4=*((C_word*)lf[181]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5979 in k5976 in k5973 in k5970 in k5967 in k5964 in k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in ... */ static void C_ccall f_5981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5981,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5984,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:857: chicken.compiler.support#compiler-cleanup-hook */ t3=*((C_word*)lf[181]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5982 in k5979 in k5976 in k5973 in k5970 in k5967 in k5964 in k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in ... */ static void C_ccall f_5984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_5984,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9103,a[2]=t2,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[180]; av2[4]=C_SCHEME_END_OF_LIST; C_apply(5,av2);}} /* k5995 in k5976 in k5973 in k5970 in k5967 in k5964 in k5961 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in ... */ static void C_ccall f_5997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5997,2,av);} /* batch-driver.scm:856: ##sys#display-times */ t2=*((C_word*)lf[183]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6004 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in ... */ static void C_ccall f_6006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){ C_save_and_reclaim((void *)f_6006,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6011,tmp=(C_word)a,a+=2,tmp); /* batch-driver.scm:843: scheme#with-output-to-file */ t3=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[190]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a6010 in k6004 in k5958 in k5955 in a5952 in k5940 in k5937 in k5934 in k5931 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in ... */ static void C_ccall f_6011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6011,2,av);} t2=*((C_word*)lf[191]+1); /* batch-driver.scm:845: g2136 */ t3=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[192]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6033 in k5928 in k5925 in k5922 in k5918 in k5915 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in ... */ static void C_ccall f_6035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_6035,2,av);} a=C_alloc(29); t2=C_s_a_i_minus(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]); if(C_truep(C_i_greaterp(t2,C_fix(60000)))){ /* batch-driver.scm:830: scheme#display */ t3=*((C_word*)lf[148]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[200]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5933(2,av2);}}} /* k6039 in k5912 in k5909 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in ... */ static void C_ccall f_6041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_6041,2,av);} /* batch-driver.scm:820: chicken.compiler.support#emit-global-inline-file */ t2=*((C_word*)lf[206]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=*((C_word*)lf[163]+1); av2[6]=*((C_word*)lf[165]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k6045 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in ... */ static void C_ccall f_6047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6047,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6050,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* batch-driver.scm:806: chicken.compiler.support#debugging */ t3=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[103]; av2[3]=lf[215]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6048 in k6045 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in ... */ static void C_ccall f_6050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6050,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6053,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:807: chicken.compiler.lfa2#perform-secondary-flow-analysis */ t3=*((C_word*)lf[214]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6051 in k6048 in k6045 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in ... */ static void C_ccall f_6053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6053,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6056,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* batch-driver.scm:808: end-time */ t4=((C_word*)((C_word*)t0)[2])[1]; f_5160(t4,t3,lf[213]);} /* k6054 in k6051 in k6048 in k6045 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ static void C_ccall f_6056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6056,2,av);} a=C_alloc(6); if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ /* batch-driver.scm:813: end-time */ t2=((C_word*)((C_word*)t0)[3])[1]; f_5160(t2,((C_word*)t0)[4],lf[210]);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6068,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:810: begin-time */ t3=((C_word*)((C_word*)t0)[6])[1]; f_5150(t3,t2);}} /* k6066 in k6054 in k6051 in k6048 in k6045 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ static void C_ccall f_6068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6068,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6071,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:811: chicken.compiler.support#debugging */ t3=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[103]; av2[3]=lf[212]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6069 in k6066 in k6054 in k6051 in k6048 in k6045 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in ... */ static void C_ccall f_6071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6071,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6075,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:812: chicken.compiler.lfa2#perform-unboxing */ t3=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6073 in k6069 in k6066 in k6054 in k6051 in k6048 in k6045 in k5802 in k5799 in k5796 in k5792 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in ... */ static void C_ccall f_6075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6075,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* batch-driver.scm:813: end-time */ t3=((C_word*)((C_word*)t0)[3])[1]; f_5160(t3,((C_word*)t0)[4],lf[210]);} /* k6082 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in ... */ static void C_ccall f_6084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6084,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6087,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_memq(lf[233],*((C_word*)lf[101]+1)))){ /* batch-driver.scm:750: chicken.compiler.support#dump-defined-globals */ t3=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6087(2,av2);}}} /* k6085 in k6082 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in ... */ static void C_ccall f_6087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6087,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6090,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_memq(lf[231],*((C_word*)lf[101]+1)))){ /* batch-driver.scm:752: chicken.compiler.support#dump-global-refs */ t3=*((C_word*)lf[232]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6090(2,av2);}}} /* k6088 in k6085 in k6082 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in ... */ static void C_ccall f_6090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_6090,2,av);} a=C_alloc(12); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6096,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=t2; t4=C_a_i_list(&a,1,((C_word*)((C_word*)t0)[2])[1]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9133,a[2]=t3,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[230]; av2[4]=t4; C_apply(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_5794(2,av2);}}} /* k6094 in k6088 in k6085 in k6082 in k5789 in k5786 in loop in k5777 in k5774 in k5771 in k5768 in k5765 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in ... */ static void C_ccall f_6096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6096,2,av);} /* batch-driver.scm:756: chicken.compiler.scrutinizer#emit-types-file */ t2=*((C_word*)lf[229]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=((C_word*)t0)[5]; av2[5]=*((C_word*)lf[163]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k6126 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in ... */ static void C_ccall f_6128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6128,2,av);} t2=C_i_car(t1); /* batch-driver.scm:729: chicken.compiler.optimizer#scan-toplevel-assignments */ t3=*((C_word*)lf[243]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in ... */ static void C_ccall f_6134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6134,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6148,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* batch-driver.scm:701: collect-options */ t3=((C_word*)((C_word*)t0)[12])[1]; f_5115(t3,t2,lf[260]);} /* k6137 in for-each-loop2029 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in ... */ static void C_ccall f_6139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6139,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* batch-driver.scm:700: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[259]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in ... */ static void C_ccall f_6148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_6148,2,av);} a=C_alloc(17); t2=C_i_check_list_2(t1,lf[10]); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6154,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6231,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6231(t7,t3,t1);} /* k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in ... */ static void C_ccall f_6154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_6154,2,av);} a=C_alloc(16); t2=C_i_check_list_2(((C_word*)t0)[2],lf[10]); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6173,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6208,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6208(t7,t3,((C_word*)t0)[2]);} /* k6161 in for-each-loop2050 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in ... */ static void C_ccall f_6163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6163,2,av);} /* batch-driver.scm:704: chicken.compiler.scrutinizer#load-type-database */ t2=*((C_word*)lf[255]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[120]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6165 in for-each-loop2050 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in ... */ static void C_ccall f_6167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6167,2,av);} /* batch-driver.scm:705: chicken.pathname#make-pathname */ t2=*((C_word*)lf[256]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=t1; av2[4]=lf[257]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6171 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in ... */ static void C_ccall f_6173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6173,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6176,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* batch-driver.scm:708: begin-time */ t3=((C_word*)((C_word*)t0)[8])[1]; f_5150(t3,t2);} /* k6174 in k6171 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in ... */ static void C_ccall f_6176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_6176,2,av);} a=C_alloc(10); t2=C_set_block_item(lf[160] /* chicken.compiler.core#first-analysis */,0,C_SCHEME_FALSE); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6181,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* batch-driver.scm:710: analyze */ t4=((C_word*)((C_word*)t0)[10])[1]; f_5200(t4,t3,lf[254],((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k6179 in k6174 in k6171 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in ... */ static void C_ccall f_6181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_6181,2,av);} a=C_alloc(9); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6184,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* batch-driver.scm:711: print-db */ t4=((C_word*)((C_word*)t0)[9])[1]; f_4957(t4,t3,lf[252],lf[253],((C_word*)((C_word*)t0)[2])[1],C_fix(0));} /* k6182 in k6179 in k6174 in k6171 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in ... */ static void C_ccall f_6184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_6184,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6187,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* batch-driver.scm:712: end-time */ t3=((C_word*)((C_word*)t0)[5])[1]; f_5160(t3,t2,lf[251]);} /* k6185 in k6182 in k6179 in k6174 in k6171 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in ... */ static void C_ccall f_6187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6187,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6190,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* batch-driver.scm:713: begin-time */ t3=((C_word*)((C_word*)t0)[8])[1]; f_5150(t3,t2);} /* k6188 in k6185 in k6182 in k6179 in k6174 in k6171 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in ... */ static void C_ccall f_6190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_6190,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6193,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* batch-driver.scm:714: chicken.compiler.support#debugging */ t3=*((C_word*)lf[102]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[103]; av2[3]=lf[250]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6191 in k6188 in k6185 in k6182 in k6179 in k6174 in k6171 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in ... */ static void C_ccall f_6193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){ C_save_and_reclaim((void *)f_6193,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6196,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:715: chicken.compiler.scrutinizer#scrutinize */ t3=*((C_word*)lf[248]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)((C_word*)t0)[6])[1]; av2[4]=((C_word*)((C_word*)t0)[7])[1]; av2[5]=*((C_word*)lf[120]+1); av2[6]=*((C_word*)lf[249]+1); av2[7]=*((C_word*)lf[163]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k6194 in k6191 in k6188 in k6185 in k6182 in k6179 in k6174 in k6171 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in ... */ static void C_ccall f_6196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6196,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6199,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:718: end-time */ t3=((C_word*)((C_word*)t0)[5])[1]; f_5160(t3,t2,lf[247]);} /* k6197 in k6194 in k6191 in k6188 in k6185 in k6182 in k6179 in k6174 in k6171 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in ... */ static void C_ccall f_6199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_6199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[120]+1))){ /* batch-driver.scm:720: print-node */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4935(t3,t2,lf[245],lf[246],((C_word*)t0)[4]);} else{ t3=C_set_block_item(lf[160] /* chicken.compiler.core#first-analysis */,0,C_SCHEME_TRUE); t4=((C_word*)t0)[2]; f_5761(t4,t3);}} /* k6200 in k6197 in k6194 in k6191 in k6188 in k6185 in k6182 in k6179 in k6174 in k6171 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in ... */ static void C_ccall f_6202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6202,2,av);} t2=C_set_block_item(lf[160] /* chicken.compiler.core#first-analysis */,0,C_SCHEME_TRUE); t3=((C_word*)t0)[2]; f_5761(t3,t2);} /* for-each-loop2050 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in ... */ static void C_fcall f_6208(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_6208,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6218,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6163,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6167,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:705: scheme#symbol->string */ t8=*((C_word*)lf[258]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6216 in for-each-loop2050 in k6152 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in ... */ static void C_ccall f_6218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6218,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6208(t3,((C_word*)t0)[4],t2);} /* for-each-loop2029 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in ... */ static void C_fcall f_6231(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_6231,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6241,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6139,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:699: chicken.compiler.scrutinizer#load-type-database */ t8=*((C_word*)lf[255]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=t6; av2[3]=*((C_word*)lf[120]+1); av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6239 in for-each-loop2029 in k6146 in k6132 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in ... */ static void C_ccall f_6241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6241,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6231(t3,((C_word*)t0)[4],t2);} /* k6258 in k5756 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in ... */ static void C_ccall f_6260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6260,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_6134(2,av2);}} else{ /* batch-driver.scm:695: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[262]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k6270 in for-each-loop2006 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in ... */ static void C_ccall f_6272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6272,2,av);} /* batch-driver.scm:687: chicken.compiler.support#load-inline-file */ t2=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* for-each-loop2006 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in ... */ static void C_fcall f_6283(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_6283,3,t0,t1,t2);} a=C_alloc(15); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6293,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6272,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t7; t9=C_a_i_list(&a,1,t6); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9145,a[2]=t8,tmp=(C_word)a,a+=3,tmp);{ C_word av2[5]; av2[0]=0; av2[1]=t10; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[265]; av2[4]=t9; C_apply(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6291 in for-each-loop2006 in k5753 in k5750 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in ... */ static void C_ccall f_6293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6293,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6283(t3,((C_word*)t0)[4],t2);} /* k6307 in for-each-loop1984 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in ... */ static void C_ccall f_6309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_6309,2,av);} a=C_alloc(10); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6315,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t3; t5=C_a_i_list(&a,1,t2); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9153,a[2]=t4,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[268]; av2[4]=t5; C_apply(5,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6313 in k6307 in for-each-loop1984 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in ... */ static void C_ccall f_6315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6315,2,av);} /* batch-driver.scm:679: chicken.compiler.support#load-inline-file */ t2=*((C_word*)lf[264]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6320 in for-each-loop1984 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in ... */ static void C_ccall f_6322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6322,2,av);} /* batch-driver.scm:676: ##sys#resolve-include-filename */ t2=*((C_word*)lf[269]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[270]; av2[4]=C_SCHEME_TRUE; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* for-each-loop1984 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in ... */ static void C_fcall f_6330(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_6330,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6340,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6309,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6322,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:677: scheme#symbol->string */ t8=*((C_word*)lf[258]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6338 in for-each-loop1984 in k5747 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in ... */ static void C_ccall f_6340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6340,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6330(t3,((C_word*)t0)[4],t2);} /* k6352 in k5744 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in ... */ static void C_ccall f_6354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6354,2,av);} if(C_truep(t1)){ /* batch-driver.scm:672: chicken.pretty-print#pp */ t2=*((C_word*)lf[191]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5749(2,av2);}}} /* k6365 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in ... */ static void C_ccall f_6367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6367,2,av);} /* batch-driver.scm:670: concatenate */ f_3177(((C_word*)t0)[2],t1);} /* map-loop1958 in k5741 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in ... */ static void C_fcall f_6369(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_6369,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cdr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6403 in k5738 in k5735 in k5732 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in ... */ static void C_ccall f_6405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6405,2,av);} /* batch-driver.scm:669: concatenate */ f_3177(((C_word*)t0)[2],t1);} /* k6407 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in ... */ static void C_ccall f_6409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6409,2,av);} /* batch-driver.scm:661: chicken.compiler.core#build-toplevel-procedure */ t2=*((C_word*)lf[277]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6411 in k5729 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in ... */ static void C_ccall f_6413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6413,2,av);} /* batch-driver.scm:662: chicken.compiler.support#build-node-graph */ t2=*((C_word*)lf[278]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6414 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in ... */ static void C_ccall f_6416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6416,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6419,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:656: begin-time */ t3=((C_word*)((C_word*)t0)[6])[1]; f_5150(t3,t2);} /* k6417 in k6414 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in ... */ static void C_ccall f_6419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_6419,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=((C_word*)t0)[2]; t7=((C_word*)((C_word*)t0)[3])[1]; t8=C_i_check_list_2(t7,lf[5]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6429,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6434,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_6434(t13,t9,t7);} /* k6427 in k6417 in k6414 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in ... */ static void C_ccall f_6429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6429,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* batch-driver.scm:658: end-time */ t3=((C_word*)((C_word*)t0)[3])[1]; f_5160(t3,((C_word*)t0)[4],lf[280]);} /* map-loop1925 in k6417 in k6414 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in ... */ static void C_fcall f_6434(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6434,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6459,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:657: g1931 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6457 in map-loop1925 in k6417 in k6414 in k5726 in k5723 in k5720 in k5717 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in ... */ static void C_ccall f_6459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6459,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6434(t6,((C_word*)t0)[5],t5);} /* k6472 in k5709 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in ... */ static void C_ccall f_6474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6474,2,av);} if(C_truep(t1)){ /* batch-driver.scm:642: chicken.compiler.support#display-line-number-database */ t2=*((C_word*)lf[287]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5714(2,av2);}}} /* k6478 in k5706 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in ... */ static void C_ccall f_6480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6480,2,av);} if(C_truep(t1)){ /* batch-driver.scm:640: chicken.compiler.support#display-real-name-table */ t2=*((C_word*)lf[290]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5711(2,av2);}}} /* a6490 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in ... */ static void C_ccall f_6491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6491,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6495,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:635: chicken.base#print */ t3=*((C_word*)lf[296]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[297]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6493 in a6490 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in ... */ static void C_ccall f_6495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6495,2,av);} a=C_alloc(5); t2=*((C_word*)lf[293]+1); t3=C_i_check_list_2(*((C_word*)lf[293]+1),lf[10]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6529,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6529(t7,((C_word*)t0)[2],*((C_word*)lf[293]+1));} /* k6501 in for-each-loop1896 in k6493 in a6490 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in ... */ static void C_ccall f_6503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_6503,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6506,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)t0)[4]); /* batch-driver.scm:637: ##sys#print */ t4=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6504 in k6501 in for-each-loop1896 in k6493 in a6490 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in ... */ static void C_ccall f_6506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_6506,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6509,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:637: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[294]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6507 in k6504 in k6501 in for-each-loop1896 in k6493 in a6490 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in ... */ static void C_ccall f_6509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6509,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_u_i_cdr(((C_word*)t0)[4]); /* batch-driver.scm:637: ##sys#print */ t4=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6510 in k6507 in k6504 in k6501 in for-each-loop1896 in k6493 in a6490 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in ... */ static void C_ccall f_6512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6512,2,av);} /* batch-driver.scm:637: ##sys#write-char-0 */ t2=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop1896 in k6493 in a6490 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in ... */ static void C_fcall f_6529(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_6529,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6539,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=*((C_word*)lf[20]+1); t8=*((C_word*)lf[20]+1); t9=C_i_check_port_2(*((C_word*)lf[20]+1),C_fix(2),C_SCHEME_TRUE,lf[21]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6503,a[2]=t5,a[3]=t7,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:637: ##sys#print */ t11=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[295]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[20]+1); ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6537 in for-each-loop1896 in k6493 in a6490 in k5703 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in ... */ static void C_ccall f_6539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6539,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6529(t3,((C_word*)t0)[4],t2);} /* k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in ... */ static void C_ccall f_6553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_6553,2,av);} a=C_alloc(15); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6559,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6713,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_a_i_list(&a,1,*((C_word*)lf[315]+1)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3715,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:182: filter */ f_3325(t4,t6,lf[316]);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5705(2,av2);}}} /* k6557 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in ... */ static void C_ccall f_6559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6559,2,av);} a=C_alloc(4); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6572,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:628: chicken.base#open-output-string */ t3=*((C_word*)lf[307]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5705(2,av2);}}} /* k6570 in k6557 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in ... */ static void C_ccall f_6572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6572,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[300]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6578,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:628: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[306]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6576 in k6570 in k6557 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in ... */ static void C_ccall f_6578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_6578,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6581,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6588,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=*((C_word*)lf[303]+1); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6595,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6597,a[2]=t6,a[3]=t11,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_6597(t13,t9,((C_word*)t0)[5]);} /* k6579 in k6576 in k6570 in k6557 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in ... */ static void C_ccall f_6581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6581,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6584,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:628: chicken.base#get-output-string */ t3=*((C_word*)lf[302]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6582 in k6579 in k6576 in k6570 in k6557 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in ... */ static void C_ccall f_6584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6584,2,av);} /* batch-driver.scm:627: chicken.base#warning */ t2=*((C_word*)lf[301]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6586 in k6576 in k6570 in k6557 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in ... */ static void C_ccall f_6588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6588,2,av);} /* batch-driver.scm:628: ##sys#print */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6593 in k6576 in k6570 in k6557 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in ... */ static void C_ccall f_6595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6595,2,av);} /* batch-driver.scm:629: chicken.string#string-intersperse */ t2=*((C_word*)lf[304]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[305]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1865 in k6576 in k6570 in k6557 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in ... */ static void C_fcall f_6597(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6597,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6622,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:629: g1871 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6620 in map-loop1865 in k6576 in k6570 in k6557 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in ... */ static void C_ccall f_6622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6622,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6597(t6,((C_word*)t0)[5],t5);} /* k6637 in k6711 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in ... */ static void C_ccall f_6639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6639,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[300]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6645,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(*((C_word*)lf[311]+1))){ /* batch-driver.scm:623: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[312]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ /* batch-driver.scm:623: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[313]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* batch-driver.scm:623: ##sys#print */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[314]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}} /* k6643 in k6637 in k6711 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in ... */ static void C_ccall f_6645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6645,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6648,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* batch-driver.scm:623: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[310]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6646 in k6643 in k6637 in k6711 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in ... */ static void C_ccall f_6648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_6648,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6658,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=*((C_word*)lf[303]+1); t9=C_i_check_list_2(((C_word*)t0)[5],lf[5]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6668,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6670,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_6670(t14,t10,((C_word*)t0)[5]);} /* k6649 in k6646 in k6643 in k6637 in k6711 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in ... */ static void C_ccall f_6651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6651,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6654,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:623: chicken.base#get-output-string */ t3=*((C_word*)lf[302]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6652 in k6649 in k6646 in k6643 in k6637 in k6711 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in ... */ static void C_ccall f_6654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6654,2,av);} /* batch-driver.scm:622: chicken.base#notice */ t2=*((C_word*)lf[308]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6656 in k6646 in k6643 in k6637 in k6711 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in ... */ static void C_ccall f_6658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6658,2,av);} /* batch-driver.scm:623: ##sys#print */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6666 in k6646 in k6643 in k6637 in k6711 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in ... */ static void C_ccall f_6668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6668,2,av);} /* batch-driver.scm:625: chicken.string#string-intersperse */ t2=*((C_word*)lf[304]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[309]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1827 in k6646 in k6643 in k6637 in k6711 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in ... */ static void C_fcall f_6670(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6670,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6695,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:625: g1833 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6693 in map-loop1827 in k6646 in k6643 in k6637 in k6711 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in ... */ static void C_ccall f_6695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6695,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6670(t6,((C_word*)t0)[5],t5);} /* k6711 in k6551 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in ... */ static void C_ccall f_6713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6713,2,av);} a=C_alloc(5); if(C_truep(C_i_nullp(t1))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6639,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:623: chicken.base#open-output-string */ t3=*((C_word*)lf[307]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_6559(2,av2);}}} /* a6714 in k5700 in k5697 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in ... */ static void C_ccall f_6715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6715,3,av);} t3=*((C_word*)lf[317]+1); /* batch-driver.scm:620: g1812 */ t4=*((C_word*)lf[317]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6727 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in ... */ static void C_ccall f_6729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6729,2,av);} /* batch-driver.scm:612: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[319]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6746 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in ... */ static void C_ccall f_6748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6748,2,av);} /* batch-driver.scm:615: chicken.string#string-intersperse */ t2=*((C_word*)lf[304]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[320]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1779 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in ... */ static void C_fcall f_6750(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6750,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6775,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_car(t4); /* batch-driver.scm:616: chicken.string#->string */ t6=*((C_word*)lf[303]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6773 in map-loop1779 in k5694 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in ... */ static void C_ccall f_6775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6775,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6750(t6,((C_word*)t0)[5],t5);} /* k6805 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in ... */ static void C_ccall f_6807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_6807,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=*((C_word*)lf[315]+1); t8=C_i_check_list_2(*((C_word*)lf[315]+1),lf[5]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6822,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6856,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_6856(t13,t9,*((C_word*)lf[315]+1));} /* k6820 in k6805 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in ... */ static void C_ccall f_6822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_6822,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(*((C_word*)lf[311]+1))){ t4=C_a_i_list(&a,2,lf[326],*((C_word*)lf[311]+1)); t5=t3; f_6826(t5,C_a_i_list(&a,1,t4));} else{ t4=t3; f_6826(t4,C_SCHEME_END_OF_LIST);}} /* k6824 in k6820 in k6805 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in ... */ static void C_fcall f_6826(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_6826,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6830,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(*((C_word*)lf[324]+1))){ if(C_truep(C_i_not(*((C_word*)lf[311]+1)))){ if(C_truep(((C_word*)t0)[7])){ /* batch-driver.scm:603: chicken.compiler.support#profiling-prelude-exps */ t4=*((C_word*)lf[325]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* batch-driver.scm:603: chicken.compiler.support#profiling-prelude-exps */ t4=*((C_word*)lf[325]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ /* batch-driver.scm:603: chicken.compiler.support#profiling-prelude-exps */ t4=*((C_word*)lf[325]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; f_6830(2,av2);}}} /* k6828 in k6824 in k6820 in k6805 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in ... */ static void C_ccall f_6830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6830,2,av);} if(C_truep(*((C_word*)lf[322]+1))){ t2=((C_word*)((C_word*)t0)[2])[1]; /* batch-driver.scm:598: scheme#append */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=t1; av2[6]=((C_word*)t0)[7]; av2[7]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} else{ /* batch-driver.scm:598: scheme#append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=t1; av2[6]=((C_word*)t0)[7]; av2[7]=lf[323]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}} /* map-loop1742 in k6805 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in ... */ static void C_fcall f_6856(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_6856,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_list(&a,2,lf[327],t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop1712 in k5691 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in ... */ static void C_fcall f_6890(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_6890,3,t0,t1,t2);} a=C_alloc(18); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cdr(t3); t5=C_u_i_car(t3); t6=C_a_i_list(&a,2,lf[328],t5); t7=C_a_i_list(&a,3,lf[329],t4,t6); t8=C_a_i_cons(&a,2,t7,C_SCHEME_END_OF_LIST); t9=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t8); t10=C_mutate(((C_word *)((C_word*)t0)[2])+1,t8); t11=C_slot(t2,C_fix(1)); t13=t1; t14=t11; t1=t13; t2=t14; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop1670 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in ... */ static void C_fcall f_6924(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6924,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6949,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:589: g1676 */ t5=((C_word*)t0)[4]; f_5661(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6947 in map-loop1670 in k5685 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in ... */ static void C_ccall f_6949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6949,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6924(t6,((C_word*)t0)[5],t5);} /* k6972 in k5682 in k5655 in k5652 in k5649 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in ... */ static void C_ccall f_6974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_6974,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); t4=C_a_i_cons(&a,2,lf[330],t3); t5=((C_word*)t0)[3]; f_5687(t5,C_a_i_list(&a,1,t4));} /* k6979 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in ... */ static void C_ccall f_6981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_6981,2,av);} a=C_alloc(17); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=((C_word*)t0)[2]; t7=((C_word*)((C_word*)t0)[3])[1]; t8=C_i_check_list_2(t7,lf[5]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6991,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6993,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_6993(t13,t9,t7);} /* k6989 in k6979 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in ... */ static void C_ccall f_6991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6991,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_5651(t3,t2);} /* map-loop1642 in k6979 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in ... */ static void C_fcall f_6993(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6993,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7018,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:584: g1648 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7016 in map-loop1642 in k6979 in k5646 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in ... */ static void C_ccall f_7018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7018,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6993(t6,((C_word*)t0)[5],t5);} /* k7026 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in ... */ static void C_ccall f_7028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_7028,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7032,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:561: proc */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7030 in k7026 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in ... */ static void C_ccall f_7032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7032,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_5645(2,av2);}} /* doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in ... */ static void C_fcall f_7037(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){ C_save_and_reclaim_args((void *)trf_7037,3,t0,t1,t2);} a=C_alloc(22); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7048,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=*((C_word*)lf[337]+1); t9=C_i_check_list_2(((C_word*)t0)[3],lf[5]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7058,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7108,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_7108(t14,t10,((C_word*)t0)[3]);} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7146,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* batch-driver.scm:570: chicken.compiler.support#check-and-open-input-file */ t6=*((C_word*)lf[341]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k7046 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in ... */ static void C_ccall f_7048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7048,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7056 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in ... */ static void C_ccall f_7058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7058,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7062,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:567: scheme#reverse */ t4=*((C_word*)lf[338]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7060 in k7056 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in ... */ static void C_ccall f_7062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_7062,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=*((C_word*)lf[337]+1); t8=C_i_check_list_2(((C_word*)t0)[2],lf[5]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7072,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7074,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_7074(t13,t9,((C_word*)t0)[2]);} /* k7070 in k7060 in k7056 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in ... */ static void C_ccall f_7072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7072,2,av);} /* batch-driver.scm:566: scheme#append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1593 in k7060 in k7056 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in ... */ static void C_fcall f_7074(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7074,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7099,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:568: g1599 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7097 in map-loop1593 in k7060 in k7056 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in ... */ static void C_ccall f_7099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7099,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7074(t6,((C_word*)t0)[5],t5);} /* map-loop1567 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in ... */ static void C_fcall f_7108(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7108,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7133,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:566: g1573 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7131 in map-loop1567 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in ... */ static void C_ccall f_7133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7133,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7108(t6,((C_word*)t0)[5],t5);} /* k7144 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in ... */ static void C_ccall f_7146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_7146,2,av);} a=C_alloc(22); t2=t1; t3=((C_word*)t0)[2]; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7149,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7156,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7161,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7189,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:571: ##sys#dynamic-wind */ t11=*((C_word*)lf[156]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t7; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* k7147 in k7144 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in ... */ static void C_ccall f_7149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7149,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)((C_word*)t0)[3])[1]; f_7037(t4,((C_word*)t0)[4],t3);} /* a7155 in k7144 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in ... */ static void C_ccall f_7156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7156,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[154]+1)); t3=C_mutate((C_word*)lf[154]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a7160 in k7144 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in ... */ static void C_ccall f_7161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7161,2,av);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7167,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_7167(t5,t1);} /* loop in a7160 in k7144 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in ... */ static void C_fcall f_7167(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_7167,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7171,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* batch-driver.scm:573: chicken.compiler.support#read/source-info */ t3=*((C_word*)lf[340]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7169 in loop in a7160 in k7144 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in ... */ static void C_ccall f_7171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7171,2,av);} a=C_alloc(3); if(C_truep(C_eofp(t1))){ /* batch-driver.scm:575: chicken.compiler.support#close-checked-input-file */ t2=*((C_word*)lf[339]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[5])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[5])+1,t2); /* batch-driver.scm:578: loop */ t4=((C_word*)((C_word*)t0)[6])[1]; f_7167(t4,((C_word*)t0)[2]);}} /* a7188 in k7144 in doloop1562 in k5640 in k5637 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in ... */ static void C_ccall f_7189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7189,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[154]+1)); t3=C_mutate((C_word*)lf[154]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7194 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in ... */ static void C_ccall f_7196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7196,2,av);} a=C_alloc(8); t2=t1; t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7204,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:556: collect-options */ t6=((C_word*)((C_word*)t0)[4])[1]; f_5115(t6,t5,lf[343]);} /* k7202 in k7194 in k5634 in k5631 in k5628 in k5624 in k5620 in k5617 in k5614 in k5611 in k5608 in k5569 in k5550 in k5547 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in ... */ static void C_ccall f_7204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7204,2,av);} /* batch-driver.scm:553: scheme#append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7220 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in ... */ static void C_ccall f_7222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7222,2,av);} a=C_alloc(5); t2=C_set_block_item(lf[324] /* chicken.compiler.core#emit-profile */,0,C_SCHEME_TRUE); t3=C_mutate((C_word*)lf[361]+1 /* (set! chicken.compiler.core#profiled-procedures ...) */,lf[362]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7228,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[3])){ /* batch-driver.scm:515: scheme#append */ t5=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=*((C_word*)lf[366]+1); av2[4]=lf[367]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ /* batch-driver.scm:515: scheme#append */ t5=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=*((C_word*)lf[366]+1); av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k7226 in k7220 in k5544 in k5541 in k5538 in k5535 in k5524 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in ... */ static void C_ccall f_7228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_7228,2,av);} a=C_alloc(6); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); if(C_truep(((C_word*)t0)[3])){ t3=((C_word*)t0)[4]; t4=C_a_i_list(&a,1,lf[363]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9215,a[2]=t3,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[364]; av2[4]=t4; C_apply(5,av2);}} else{ t3=((C_word*)t0)[4]; t4=C_a_i_list(&a,1,lf[365]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9221,a[2]=t3,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[179]+1); av2[3]=lf[364]; av2[4]=t4; C_apply(5,av2);}}} /* k7275 in k5520 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in ... */ static void C_ccall f_7277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7277,2,av);} /* batch-driver.scm:493: arg-val */ f_5030(((C_word*)t0)[3],t1);} /* k7282 in k5516 in k5513 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in ... */ static void C_ccall f_7284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7284,2,av);} /* batch-driver.scm:490: arg-val */ f_5030(((C_word*)t0)[3],t1);} /* k7298 in map-loop1503 in k7301 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in ... */ static void C_ccall f_7300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7300,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[379],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7301 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in ... */ static void C_ccall f_7303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7303,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[5]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7309,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7311,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_7311(t7,t3,t1);} /* k7307 in k7301 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in ... */ static void C_ccall f_7309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7309,2,av);} /* batch-driver.scm:481: scheme#append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1503 in k7301 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in ... */ static void C_fcall f_7311(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_7311,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7336,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7300,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:483: scheme#string->symbol */ t7=*((C_word*)lf[331]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7334 in map-loop1503 in k7301 in k5509 in k5506 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in ... */ static void C_ccall f_7336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7336,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7311(t6,((C_word*)t0)[5],t5);} /* a7359 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in ... */ static void C_ccall f_7360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7360,3,av);} a=C_alloc(10); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7367,a[2]=t5,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* batch-driver.scm:473: chicken.string#string-split */ t8=*((C_word*)lf[383]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=t2; av2[3]=lf[384]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k7365 in a7359 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in ... */ static void C_ccall f_7367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7367,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7372,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_7372(t5,((C_word*)t0)[4],t1);} /* map-loop1474 in k7365 in a7359 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in ... */ static void C_fcall f_7372(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7372,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7397,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:473: g1480 */ t5=*((C_word*)lf[331]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7395 in map-loop1474 in k7365 in a7359 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in ... */ static void C_ccall f_7397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7397,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7372(t6,((C_word*)t0)[5],t5);} /* k7406 in k5503 in k5495 in k5491 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in ... */ static void C_ccall f_7408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7408,2,av);} /* batch-driver.scm:472: append-map */ f_2915(((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* for-each-loop1451 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in ... */ static void C_fcall f_7410(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_7410,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7420,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5475,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:463: ##sys#resolve-include-filename */ t8=*((C_word*)lf[269]+1);{ C_word av2[6]; av2[0]=t8; av2[1]=t7; av2[2]=t6; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7418 in for-each-loop1451 in k5468 in k5465 in k5458 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in ... */ static void C_ccall f_7420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7420,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7410(t3,((C_word*)t0)[4],t2);} /* for-each-loop1096 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in ... */ static void C_fcall f_7433(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7433,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7443,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:453: g1097 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7441 in for-each-loop1096 in k5452 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in ... */ static void C_ccall f_7443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7443,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7433(t3,((C_word*)t0)[4],t2);} /* a7455 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in ... */ static void C_ccall f_7456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7456,3,av);} t3=*((C_word*)lf[383]+1); /* batch-driver.scm:455: g1441 */ t4=*((C_word*)lf[383]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=lf[390]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7462 in k5449 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in ... */ static void C_ccall f_7464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7464,2,av);} /* batch-driver.scm:455: append-map */ f_2915(((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* for-each-loop1086 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in ... */ static void C_fcall f_7466(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7466,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7476,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:450: g1087 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7474 in for-each-loop1086 in k5443 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in ... */ static void C_ccall f_7476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7476,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7466(t3,((C_word*)t0)[4],t2);} /* a7488 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in ... */ static void C_ccall f_7489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7489,3,av);} t3=*((C_word*)lf[383]+1); /* batch-driver.scm:452: g1426 */ t4=*((C_word*)lf[383]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=lf[392]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7495 in k5440 in k5437 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in ... */ static void C_ccall f_7497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7497,2,av);} /* batch-driver.scm:452: append-map */ f_2915(((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k7508 in for-each-loop1381 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in ... */ static void C_ccall f_7510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7510,2,av);} /* batch-driver.scm:440: chicken.compiler.support#mark-variable */ t2=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[396]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7517 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in ... */ static void C_ccall f_7519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7519,2,av);} a=C_alloc(5); t2=*((C_word*)lf[73]+1); t3=C_i_check_list_2(*((C_word*)lf[73]+1),lf[10]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7535,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_7535(t7,((C_word*)t0)[2],*((C_word*)lf[73]+1));} /* k7522 in for-each-loop1400 in k7517 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in ... */ static void C_ccall f_7524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7524,2,av);} /* batch-driver.scm:445: chicken.compiler.support#mark-variable */ t2=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[396]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop1400 in k7517 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in ... */ static void C_fcall f_7535(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_7535,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7545,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7524,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:444: chicken.compiler.support#mark-variable */ t8=*((C_word*)lf[13]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t6; av2[3]=lf[397]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7543 in for-each-loop1400 in k7517 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in ... */ static void C_ccall f_7545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7545,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7535(t3,((C_word*)t0)[4],t2);} /* for-each-loop1381 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in ... */ static void C_fcall f_7558(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_7558,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7568,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7510,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:439: chicken.compiler.support#mark-variable */ t8=*((C_word*)lf[13]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t6; av2[3]=lf[397]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7566 in for-each-loop1381 in k5434 in k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in ... */ static void C_ccall f_7568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7568,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7558(t3,((C_word*)t0)[4],t2);} /* k7611 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in ... */ static void C_ccall f_7613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_7613,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[5]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7619,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7621,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_7621(t7,t3,t1);} /* k7617 in k7611 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in ... */ static void C_ccall f_7619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7619,2,av);} /* batch-driver.scm:421: scheme#append */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[130]+1); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1353 in k7611 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in ... */ static void C_fcall f_7621(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7621,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7646,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:421: g1359 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7644 in map-loop1353 in k7611 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in ... */ static void C_ccall f_7646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7646,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7621(t6,((C_word*)t0)[5],t5);} /* k7656 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in ... */ static void C_ccall f_7658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7658,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7661,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:414: chicken.base#case-sensitive */ t3=*((C_word*)lf[415]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7659 in k7656 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in ... */ static void C_ccall f_7661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7661,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7664,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:415: chicken.base#keyword-style */ t3=*((C_word*)lf[413]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[414]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7662 in k7659 in k7656 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in ... */ static void C_ccall f_7664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7664,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7667,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:416: chicken.base#parentheses-synonyms */ t3=*((C_word*)lf[412]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7665 in k7662 in k7659 in k7656 in k5407 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in ... */ static void C_ccall f_7667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7667,2,av);} /* batch-driver.scm:417: chicken.base#symbol-escape */ t2=*((C_word*)lf[411]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7673 in k5404 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in ... */ static void C_ccall f_7675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7675,2,av);} /* batch-driver.scm:411: chicken.base#symbol-escape */ t2=*((C_word*)lf[411]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7681 in k5401 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in ... */ static void C_ccall f_7683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7683,2,av);} /* batch-driver.scm:408: chicken.base#parentheses-synonyms */ t2=*((C_word*)lf[412]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7687 in k5398 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in ... */ static void C_ccall f_7689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7689,2,av);} if(C_truep(C_i_string_equal_p(lf[421],t1))){ /* batch-driver.scm:401: chicken.base#keyword-style */ t2=*((C_word*)lf[413]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[422]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ if(C_truep(C_u_i_string_equal_p(lf[423],t1))){ /* batch-driver.scm:402: chicken.base#keyword-style */ t2=*((C_word*)lf[413]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[414]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ if(C_truep(C_u_i_string_equal_p(lf[424],t1))){ /* batch-driver.scm:403: chicken.base#keyword-style */ t2=*((C_word*)lf[413]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[425]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ /* batch-driver.scm:404: chicken.compiler.support#quit-compiling */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[426]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}}} /* k7720 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in ... */ static void C_ccall f_7722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7722,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7725,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:397: chicken.platform#register-feature! */ t3=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[427]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7723 in k7720 in k5395 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in ... */ static void C_ccall f_7725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7725,2,av);} /* batch-driver.scm:398: chicken.base#case-sensitive */ t2=*((C_word*)lf[415]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7730 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in ... */ static void C_ccall f_7732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7732,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7735,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:392: scheme#string->number */ t4=*((C_word*)lf[110]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7733 in k7730 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in ... */ static void C_ccall f_7735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7735,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7738,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t1; t4=C_mutate((C_word*)lf[165]+1 /* (set! chicken.compiler.core#inline-max-size ...) */,t3); t5=((C_word*)t0)[2]; f_5397(t5,t4);} else{ /* batch-driver.scm:393: chicken.compiler.support#quit-compiling */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[429]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k7736 in k7733 in k7730 in k5390 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in ... */ static void C_ccall f_7738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7738,2,av);} t2=C_mutate((C_word*)lf[165]+1 /* (set! chicken.compiler.core#inline-max-size ...) */,t1); t3=((C_word*)t0)[2]; f_5397(t3,t2);} /* k7743 in k5385 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in ... */ static void C_ccall f_7745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7745,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_5392(t3,t2);} /* k7749 in k5380 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in ... */ static void C_ccall f_7751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7751,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_5387(t3,t2);} /* k7753 in k5375 in k5372 in k5369 in k5366 in k5363 in k5360 in k5357 in k5354 in k5351 in k5348 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in ... */ static void C_ccall f_7755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7755,2,av);} t2=C_mutate((C_word*)lf[190]+1 /* (set! chicken.compiler.core#emit-link-file ...) */,t1); t3=((C_word*)t0)[2]; f_5382(t3,t2);} /* k7785 in k5345 in k5342 in k5339 in k5336 in k5333 in k5330 in k5327 in k5324 in k5321 in k5318 in k5315 in k5312 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in ... */ static void C_ccall f_7787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7787,2,av);} t2=C_set_block_item(lf[199] /* ##sys#warnings-enabled */,0,C_SCHEME_FALSE); t3=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t4=((C_word*)t0)[3]; f_5350(t4,t3);} /* map-loop1292 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in ... */ static void C_fcall f_7834(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_7834,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7859,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5299,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* batch-driver.scm:336: scheme#string->symbol */ t8=*((C_word*)lf[331]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7857 in map-loop1292 in k5306 in k5280 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in ... */ static void C_ccall f_7859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7859,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7834(t6,((C_word*)t0)[5],t5);} /* k7870 in k5277 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in ... */ static void C_ccall f_7872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7872,2,av);} /* batch-driver.scm:332: chicken.base#exit */ t2=*((C_word*)lf[196]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7876 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_7877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7877,3,av);} a=C_alloc(10); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7893,a[2]=t5,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* ##sys#string->list */ t8=*((C_word*)lf[464]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k7891 in a7876 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in ... */ static void C_ccall f_7893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7893,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7898,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_7898(t5,((C_word*)t0)[4],t1);} /* map-loop1264 in k7891 in a7876 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in ... */ static void C_fcall f_7898(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_7898,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7923,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_a_i_string(&a,1,t4); /* batch-driver.scm:327: scheme#string->symbol */ t6=*((C_word*)lf[331]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7921 in map-loop1264 in k7891 in a7876 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in ... */ static void C_ccall f_7923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7923,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7898(t6,((C_word*)t0)[5],t5);} /* k7932 in k5270 in k5267 in k5264 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in ... */ static void C_ccall f_7934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7934,2,av);} /* batch-driver.scm:325: append-map */ f_2915(((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k7946 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_ccall f_7948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7948,2,av);} t2=C_mutate((C_word*)lf[311]+1 /* (set! chicken.compiler.core#unit-name ...) */,t1); t3=((C_word*)t0)[2]; f_5266(t3,t2);} /* k7950 in k4888 in k4883 in k4863 in k4858 in k4855 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in ... */ static void C_ccall f_7952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7952,2,av);} /* batch-driver.scm:317: scheme#string->symbol */ t2=*((C_word*)lf[331]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* map-loop1013 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in ... */ static void C_fcall f_7969(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7969,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7994,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* batch-driver.scm:220: g1019 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7992 in map-loop1013 in k4849 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in ... */ static void C_ccall f_7994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7994,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7969(t6,((C_word*)t0)[5],t5);} /* k8003 in k4843 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 in ... */ static void C_ccall f_8005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8005,2,av);} if(C_truep(t1)){ t2=t1; /* batch-driver.scm:221: ##sys#split-path */ t3=*((C_word*)lf[470]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* batch-driver.scm:221: ##sys#split-path */ t2=*((C_word*)lf[470]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[471]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* g1006 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_8009(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_8009,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8013,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:214: option-arg */ f_4787(t3,t2);} /* k8011 in g1006 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 in ... */ static void C_ccall f_8013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8013,2,av);} if(C_truep(C_i_symbolp(t1))){ /* batch-driver.scm:216: scheme#symbol->string */ t2=*((C_word*)lf[258]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8035 in k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_8037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8037,2,av);} /* batch-driver.scm:219: chicken.pathname#make-pathname */ t2=*((C_word*)lf[256]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; av2[3]=t1; av2[4]=lf[475]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8046 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_8048(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){ C_save_and_reclaim_args((void *)trf_8048,2,t0,t1);} a=C_alloc(19); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t0)[3]; t6=C_u_i_memq(lf[88],t5); t7=((C_word*)t0)[3]; t8=C_u_i_memq(lf[89],t7); t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4845,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t6,a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(t8)){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8009,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* batch-driver.scm:212: g1006 */ t11=t10; f_8009(t11,t9,t8);} else{ t10=((C_word*)t0)[3]; if(C_truep(C_u_i_memq(lf[474],t10))){ t11=t9;{ C_word av2[2]; av2[0]=t11; av2[1]=C_SCHEME_FALSE; f_4845(2,av2);}} else{ t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8037,a[2]=t9,tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[6])){ /* batch-driver.scm:219: chicken.pathname#pathname-file */ t12=*((C_word*)lf[476]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=t11; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ /* batch-driver.scm:219: chicken.pathname#make-pathname */ t12=*((C_word*)lf[256]+1);{ C_word av2[5]; av2[0]=t12; av2[1]=t9; av2[2]=C_SCHEME_FALSE; av2[3]=lf[477]; av2[4]=lf[475]; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}}}} /* k8065 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_ccall f_8067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_8067,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,lf[382],t1); if(C_truep(*((C_word*)lf[78]+1))){ t3=((C_word*)t0)[2]; f_8048(t3,C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST));} else{ t3=C_a_i_cons(&a,2,lf[379],*((C_word*)lf[478]+1)); t4=C_a_i_list(&a,1,t3); t5=((C_word*)t0)[2]; f_8048(t5,C_a_i_cons(&a,2,t2,t4));}} /* k8073 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_8075(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8075,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8082,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[482]+1))){ if(C_truep(*((C_word*)lf[83]+1))){ if(C_truep(C_i_not(((C_word*)t0)[4]))){ t4=C_i_not(((C_word*)t0)[5]); t5=t3; f_8082(t5,(C_truep(t4)?C_i_not(*((C_word*)lf[78]+1)):C_SCHEME_FALSE));} else{ t4=t3; f_8082(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_8082(t4,C_SCHEME_FALSE);}} else{ t4=t3; f_8082(t4,C_SCHEME_FALSE);}} /* k8080 in k8073 in k4829 in k4816 in chicken.compiler.batch-driver#compile-source-file in k2712 in k2709 in k2706 in k2703 in k2700 in k2697 in k2694 in k2691 in k2688 in k2685 in k2682 in k2679 in k2676 in k2673 in k2670 in k2667 */ static void C_fcall f_8082(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_8082,2,t0,t1);} if(C_truep(t1)){ /* batch-driver.scm:193: scheme#append */ t2=*((C_word*)lf[4]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[480]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[481]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ /* batch-driver.scm:193: scheme#append */ t2=*((C_word*)lf[4]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[480]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_batch_2ddriver_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("batch-driver")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_batch_2ddriver_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(3089))){ C_save(t1); C_rereclaim2(3089*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,487); lf[0]=C_h_intern(&lf[0],12, C_text("batch-driver")); lf[1]=C_h_intern(&lf[1],30, C_text("chicken.compiler.batch-driver#")); lf[3]=C_h_intern(&lf[3],5, C_text("foldr")); lf[4]=C_h_intern(&lf[4],13, C_text("scheme#append")); lf[5]=C_h_intern(&lf[5],3, C_text("map")); lf[9]=C_h_intern(&lf[9],39, C_text("chicken.compiler.core#standard-bindings")); lf[10]=C_h_intern(&lf[10],8, C_text("for-each")); lf[11]=C_h_intern(&lf[11],39, C_text("chicken.compiler.core#extended-bindings")); lf[12]=C_h_intern(&lf[12],39, C_text("chicken.compiler.core#internal-bindings")); lf[13]=C_h_intern(&lf[13],38, C_text("chicken.compiler.support#mark-variable")); lf[14]=C_h_intern(&lf[14],20, C_text("##compiler#intrinsic")); lf[15]=C_h_intern(&lf[15],8, C_text("internal")); lf[16]=C_h_intern(&lf[16],8, C_text("extended")); lf[17]=C_h_intern(&lf[17],8, C_text("standard")); lf[19]=C_h_intern(&lf[19],14, C_text("scheme#newline")); lf[20]=C_h_intern(&lf[20],21, C_text("##sys#standard-output")); lf[21]=C_h_intern(&lf[21],6, C_text("printf")); lf[22]=C_h_intern(&lf[22],11, C_text("##sys#print")); lf[23]=C_h_intern(&lf[23],40, C_text("chicken.compiler.support#node-parameters")); lf[24]=C_h_intern(&lf[24],35, C_text("chicken.compiler.support#node-class")); lf[25]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\011pval=")); lf[26]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005\011val=")); lf[27]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\011lval=")); lf[28]=C_h_intern(&lf[28],7, C_text("unknown")); lf[29]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005\011css=")); lf[30]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\011refs=")); lf[31]=C_h_intern(&lf[31],8, C_text("captured")); lf[32]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001captured\376\001\000\000\003\001cpt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001assigned\376\001\000\000\003\001set\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\005\001boxed\376\001\000\000\003\001box\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001global\376\001\000\000\003\001glo\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001assigned-locally\376" "\001\000\000\003\001stl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001contractable\376\001\000\000\003\001con\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001standard-binding\376\001\000" "\000\003\001stb\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001simple\376\001\000\000\003\001sim\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001inlinable\376\001\000\000\003\001inl\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\013\001collapsable\376\001\000\000\003\001col\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001removable\376\001\000\000\003\001rem\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001con" "stant\376\001\000\000\003\001con\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001inline-target\376\001\000\000\003\001ilt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001inline-trans" "ient\376\001\000\000\003\001itr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001undefined\376\001\000\000\003\001und\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001replacing\376\001\000\000\003\001rp" "g\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001unused\376\001\000\000\003\001uud\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001extended-binding\376\001\000\000\003\001xtb\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\015\001inline-export\376\001\000\000\003\001ilx\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001hidden-refs\376\001\000\000\003\001hrf\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\011\001value-ref\376\001\000\000\003\001vvf\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001customizable\376\001\000\000\003\001cst\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001has-un" "used-parameters\376\001\000\000\003\001hup\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001boxed-rest\376\001\000\000\003\001bxr\376\377\016")); lf[33]=C_h_intern(&lf[33],18, C_text("##sys#write-char-0")); lf[34]=C_h_intern(&lf[34],5, C_text("value")); lf[35]=C_h_intern(&lf[35],11, C_text("local-value")); lf[36]=C_h_intern(&lf[36],16, C_text("potential-values")); lf[37]=C_h_intern(&lf[37],10, C_text("replacable")); lf[38]=C_h_intern(&lf[38],10, C_text("references")); lf[39]=C_h_intern(&lf[39],10, C_text("call-sites")); lf[40]=C_h_intern(&lf[40],29, C_text("chicken.compiler.support#bomb")); lf[41]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020Illegal property")); lf[42]=C_h_intern(&lf[42],4, C_text("home")); lf[43]=C_h_intern(&lf[43],8, C_text("contains")); lf[44]=C_h_intern(&lf[44],12, C_text("contained-in")); lf[45]=C_h_intern(&lf[45],8, C_text("use-expr")); lf[46]=C_h_intern(&lf[46],12, C_text("closure-size")); lf[47]=C_h_intern(&lf[47],14, C_text("rest-parameter")); lf[48]=C_h_intern(&lf[48],18, C_text("captured-variables")); lf[49]=C_h_intern(&lf[49],13, C_text("explicit-rest")); lf[50]=C_h_intern(&lf[50],8, C_text("assigned")); lf[51]=C_h_intern(&lf[51],5, C_text("boxed")); lf[52]=C_h_intern(&lf[52],6, C_text("global")); lf[53]=C_h_intern(&lf[53],12, C_text("contractable")); lf[54]=C_h_intern(&lf[54],16, C_text("standard-binding")); lf[55]=C_h_intern(&lf[55],16, C_text("assigned-locally")); lf[56]=C_h_intern(&lf[56],11, C_text("collapsable")); lf[57]=C_h_intern(&lf[57],9, C_text("removable")); lf[58]=C_h_intern(&lf[58],9, C_text("undefined")); lf[59]=C_h_intern(&lf[59],9, C_text("replacing")); lf[60]=C_h_intern(&lf[60],6, C_text("unused")); lf[61]=C_h_intern(&lf[61],6, C_text("simple")); lf[62]=C_h_intern(&lf[62],9, C_text("inlinable")); lf[63]=C_h_intern(&lf[63],13, C_text("inline-export")); lf[64]=C_h_intern(&lf[64],21, C_text("has-unused-parameters")); lf[65]=C_h_intern(&lf[65],16, C_text("extended-binding")); lf[66]=C_h_intern(&lf[66],12, C_text("customizable")); lf[67]=C_h_intern(&lf[67],8, C_text("constant")); lf[68]=C_h_intern(&lf[68],10, C_text("boxed-rest")); lf[69]=C_h_intern(&lf[69],11, C_text("hidden-refs")); lf[70]=C_h_intern(&lf[70],12, C_text("scheme#write")); lf[71]=C_h_intern(&lf[71],36, C_text("chicken.internal#hash-table-for-each")); lf[72]=C_h_intern(&lf[72],47, C_text("chicken.compiler.core#default-standard-bindings")); lf[73]=C_h_intern(&lf[73],47, C_text("chicken.compiler.core#default-extended-bindings")); lf[74]=C_h_intern(&lf[74],49, C_text("chicken.compiler.batch-driver#compile-source-file")); lf[75]=C_h_intern(&lf[75],39, C_text("chicken.compiler.support#quit-compiling")); lf[76]=C_decode_literal(C_heaptop,C_text("\376B\000\000 missing argument to `-~A\047 option")); lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037invalid argument to `~A\047 option")); lf[78]=C_h_intern(&lf[78],39, C_text("chicken.compiler.core#explicit-use-flag")); lf[79]=C_h_intern(&lf[79],12, C_text("explicit-use")); lf[80]=C_h_intern(&lf[80],37, C_text("chicken.compiler.core#emit-debug-info")); lf[81]=C_h_intern(&lf[81],10, C_text("debug-info")); lf[82]=C_h_intern(&lf[82],22, C_text("no-module-registration")); lf[83]=C_h_intern(&lf[83],48, C_text("chicken.compiler.core#enable-module-registration")); lf[84]=C_h_intern(&lf[84],7, C_text("dynamic")); lf[85]=C_h_intern(&lf[85],4, C_text("unit")); lf[86]=C_h_intern(&lf[86],17, C_text("import-for-syntax")); lf[87]=C_h_intern(&lf[87],39, C_text("chicken.internal#default-syntax-imports")); lf[88]=C_h_intern(&lf[88],7, C_text("verbose")); lf[89]=C_h_intern(&lf[89],11, C_text("output-file")); lf[90]=C_h_intern(&lf[90],39, C_text("chicken.compiler.support#chop-separator")); lf[91]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\003\000\000\002\376\001\000\000\042\001chicken.base#implicit-exit-handler\376\377\016\376\377\016\376\377\016")); lf[92]=C_h_intern(&lf[92],7, C_text("profile")); lf[93]=C_h_intern(&lf[93],12, C_text("profile-name")); lf[94]=C_h_intern(&lf[94],9, C_text("heap-size")); lf[95]=C_h_intern(&lf[95],13, C_text("keyword-style")); lf[96]=C_h_intern(&lf[96],10, C_text("clustering")); lf[97]=C_h_intern(&lf[97],12, C_text("analyze-only")); lf[98]=C_h_intern(&lf[98],4, C_text("lfa2")); lf[99]=C_h_intern(&lf[99],7, C_text("nursery")); lf[100]=C_h_intern(&lf[100],6, C_text("module")); lf[101]=C_h_intern(&lf[101],42, C_text("chicken.compiler.support#debugging-chicken")); lf[102]=C_h_intern(&lf[102],34, C_text("chicken.compiler.support#debugging")); lf[103]=C_h_intern(&lf[103],1, C_text("p")); lf[104]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004pass")); lf[105]=C_h_intern(&lf[105],35, C_text("chicken.compiler.support#dump-nodes")); lf[106]=C_h_intern(&lf[106],33, C_text("chicken.pretty-print#pretty-print")); lf[107]=C_h_intern(&lf[107],46, C_text("chicken.compiler.support#build-expression-tree")); lf[108]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013(iteration ")); lf[109]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033invalid numeric argument ~S")); lf[110]=C_h_intern(&lf[110],21, C_text("scheme#string->number")); lf[111]=C_h_intern(&lf[111],16, C_text("scheme#substring")); lf[112]=C_h_intern(&lf[112],33, C_text("chicken.time#current-milliseconds")); lf[113]=C_h_intern(&lf[113],21, C_text("scheme#inexact->exact")); lf[114]=C_h_intern(&lf[114],12, C_text("scheme#round")); lf[115]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003: \011")); lf[116]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030milliseconds needed for ")); lf[117]=C_h_intern(&lf[117],31, C_text("chicken.compiler.support#db-get")); lf[118]=C_h_intern(&lf[118],32, C_text("chicken.compiler.support#db-put!")); lf[119]=C_h_intern(&lf[119],40, C_text("chicken.compiler.core#analyze-expression")); lf[120]=C_h_intern(&lf[120],43, C_text("chicken.compiler.core#enable-specialization")); lf[121]=C_h_intern(&lf[121],10, C_text("specialize")); lf[122]=C_h_intern(&lf[122],1, C_text("D")); lf[123]=C_h_intern(&lf[123],38, C_text("chicken.compiler.core#import-libraries")); lf[124]=C_h_intern(&lf[124],14, C_text("emit-link-file")); lf[125]=C_h_intern(&lf[125],16, C_text("emit-inline-file")); lf[126]=C_h_intern(&lf[126],15, C_text("emit-types-file")); lf[127]=C_h_intern(&lf[127],12, C_text("inline-limit")); lf[128]=C_h_intern(&lf[128],34, C_text("chicken.compiler.core#verbose-mode")); lf[129]=C_h_intern(&lf[129],33, C_text("##sys#read-error-with-line-number")); lf[130]=C_h_intern(&lf[130],23, C_text("##sys#include-pathnames")); lf[131]=C_h_intern(&lf[131],34, C_text("chicken.platform#register-feature!")); lf[132]=C_h_intern(&lf[132],36, C_text("chicken.platform#unregister-feature!")); lf[133]=C_h_intern_kw(&lf[133],18, C_text("compiler-extension")); lf[134]=C_h_intern(&lf[134],14, C_text("##sys#features")); lf[135]=C_h_intern_kw(&lf[135],9, C_text("compiling")); lf[136]=C_h_intern(&lf[136],38, C_text("chicken.compiler.core#target-heap-size")); lf[137]=C_h_intern(&lf[137],39, C_text("chicken.compiler.core#target-stack-size")); lf[138]=C_h_intern(&lf[138],8, C_text("no-trace")); lf[139]=C_h_intern(&lf[139],37, C_text("chicken.compiler.core#emit-trace-info")); lf[140]=C_h_intern(&lf[140],53, C_text("chicken.compiler.core#disable-stack-overflow-checking")); lf[141]=C_h_intern(&lf[141],29, C_text("disable-stack-overflow-checks")); lf[142]=C_h_intern(&lf[142],36, C_text("chicken.compiler.core#bootstrap-mode")); lf[143]=C_h_intern(&lf[143],7, C_text("version")); lf[144]=C_h_intern(&lf[144],38, C_text("chicken.compiler.support#print-version")); lf[145]=C_h_intern(&lf[145],4, C_text("help")); lf[146]=C_h_intern(&lf[146],36, C_text("chicken.compiler.support#print-usage")); lf[147]=C_h_intern(&lf[147],7, C_text("release")); lf[148]=C_h_intern(&lf[148],14, C_text("scheme#display")); lf[149]=C_h_intern(&lf[149],32, C_text("chicken.platform#chicken-version")); lf[150]=C_decode_literal(C_heaptop,C_text("\376B\000\0001\012Run `csi\047 to start the interactive interpreter.\012")); lf[151]=C_decode_literal(C_heaptop,C_text("\376B\000\000.or try `csc\047 for a more convenient interface.\012")); lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000C\012Enter `chicken -help\047 for information on how to use the compiler,\012")); lf[153]=C_h_intern(&lf[153],26, C_text("##sys#line-number-database")); lf[154]=C_h_intern(&lf[154],29, C_text("##sys#current-source-filename")); lf[155]=C_h_intern(&lf[155],45, C_text("chicken.compiler.core#canonicalize-expression")); lf[156]=C_h_intern(&lf[156],18, C_text("##sys#dynamic-wind")); lf[157]=C_h_intern(&lf[157],44, C_text("chicken.compiler.core#line-number-database-2")); lf[158]=C_h_intern(&lf[158],36, C_text("chicken.compiler.core#constant-table")); lf[159]=C_h_intern(&lf[159],34, C_text("chicken.compiler.core#inline-table")); lf[160]=C_h_intern(&lf[160],36, C_text("chicken.compiler.core#first-analysis")); lf[161]=C_h_intern(&lf[161],54, C_text("chicken.compiler.optimizer#determine-loop-and-dispatch")); lf[162]=C_h_intern(&lf[162],59, C_text("chicken.compiler.optimizer#perform-high-level-optimizations")); lf[163]=C_h_intern(&lf[163],39, C_text("chicken.compiler.core#block-compilation")); lf[164]=C_h_intern(&lf[164],36, C_text("chicken.compiler.core#inline-locally")); lf[165]=C_h_intern(&lf[165],37, C_text("chicken.compiler.core#inline-max-size")); lf[166]=C_h_intern(&lf[166],50, C_text("chicken.compiler.core#inline-substitutions-enabled")); lf[167]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022clustering enabled")); lf[168]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022rewritings enabled")); lf[169]=C_h_intern(&lf[169],44, C_text("chicken.compiler.core#optimize-leaf-routines")); lf[170]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031leaf routine optimization")); lf[171]=C_h_intern(&lf[171],52, C_text("chicken.compiler.optimizer#transform-direct-lambdas!")); lf[172]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010analysis")); lf[173]=C_h_intern(&lf[173],4, C_text("leaf")); lf[174]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023optimized-iteration")); lf[175]=C_h_intern(&lf[175],1, C_text("5")); lf[176]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014optimization")); lf[177]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021optimization pass")); lf[178]=C_h_intern(&lf[178],49, C_text("chicken.compiler.core#prepare-for-code-generation")); lf[179]=C_h_intern(&lf[179],22, C_text("chicken.format#sprintf")); lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025compilation finished.")); lf[181]=C_h_intern(&lf[181],46, C_text("chicken.compiler.support#compiler-cleanup-hook")); lf[182]=C_h_intern(&lf[182],1, C_text("t")); lf[183]=C_h_intern(&lf[183],19, C_text("##sys#display-times")); lf[184]=C_h_intern(&lf[184],16, C_text("##sys#stop-timer")); lf[185]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017code generation")); lf[186]=C_h_intern(&lf[186],24, C_text("scheme#close-output-port")); lf[187]=C_h_intern(&lf[187],40, C_text("chicken.compiler.c-backend#generate-code")); lf[188]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023generating `~A\047 ...")); lf[189]=C_h_intern(&lf[189],23, C_text("scheme#open-output-file")); lf[190]=C_h_intern(&lf[190],36, C_text("chicken.compiler.core#emit-link-file")); lf[191]=C_h_intern(&lf[191],23, C_text("chicken.pretty-print#pp")); lf[192]=C_h_intern(&lf[192],46, C_text("chicken.compiler.core#linked-static-extensions")); lf[193]=C_h_intern(&lf[193],26, C_text("scheme#with-output-to-file")); lf[194]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035generating link file `~a\047 ...")); lf[195]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013preparation")); lf[196]=C_h_intern(&lf[196],17, C_text("chicken.base#exit")); lf[197]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021closure-converted")); lf[198]=C_h_intern(&lf[198],1, C_text("9")); lf[199]=C_h_intern(&lf[199],22, C_text("##sys#warnings-enabled")); lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000#(don\047t worry - still compiling...)\012")); lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016final-analysis")); lf[202]=C_h_intern(&lf[202],1, C_text("8")); lf[203]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022closure conversion")); lf[204]=C_h_intern(&lf[204],48, C_text("chicken.compiler.core#perform-closure-conversion")); lf[205]=C_h_intern(&lf[205],41, C_text("chicken.compiler.core#insert-timer-checks")); lf[206]=C_h_intern(&lf[206],48, C_text("chicken.compiler.support#emit-global-inline-file")); lf[207]=C_decode_literal(C_heaptop,C_text("\376B\000\000&generating global inline file `~a\047 ...")); lf[208]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011optimized")); lf[209]=C_h_intern(&lf[209],1, C_text("7")); lf[210]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010unboxing")); lf[211]=C_h_intern(&lf[211],38, C_text("chicken.compiler.lfa2#perform-unboxing")); lf[212]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016doing unboxing")); lf[213]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027secondary flow analysis")); lf[214]=C_h_intern(&lf[214],53, C_text("chicken.compiler.lfa2#perform-secondary-flow-analysis")); lf[215]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012doing lfa2")); lf[216]=C_h_intern(&lf[216],1, C_text("s")); lf[217]=C_h_intern(&lf[217],49, C_text("chicken.compiler.core#compute-database-statistics")); lf[218]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027; database entries: \011")); lf[219]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027; known call sites: \011")); lf[220]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027; global variables: \011")); lf[221]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027; known procedures: \011")); lf[222]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042; variables with known values: \011")); lf[223]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032 \011original program size: \011")); lf[224]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023; program size: \011")); lf[225]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023program statistics:")); lf[226]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010analysis")); lf[227]=C_h_intern(&lf[227],1, C_text("4")); lf[228]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010analysis")); lf[229]=C_h_intern(&lf[229],44, C_text("chicken.compiler.scrutinizer#emit-types-file")); lf[230]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035generating type file `~a\047 ...")); lf[231]=C_h_intern(&lf[231],1, C_text("v")); lf[232]=C_h_intern(&lf[232],41, C_text("chicken.compiler.support#dump-global-refs")); lf[233]=C_h_intern(&lf[233],1, C_text("d")); lf[234]=C_h_intern(&lf[234],45, C_text("chicken.compiler.support#dump-defined-globals")); lf[235]=C_h_intern(&lf[235],1, C_text("u")); lf[236]=C_h_intern(&lf[236],47, C_text("chicken.compiler.support#dump-undefined-globals")); lf[237]=C_h_intern(&lf[237],3, C_text("opt")); lf[238]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003cps")); lf[239]=C_h_intern(&lf[239],1, C_text("3")); lf[240]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016cps conversion")); lf[241]=C_h_intern(&lf[241],44, C_text("chicken.compiler.core#perform-cps-conversion")); lf[242]=C_h_intern(&lf[242],31, C_text("chicken.compiler.support#unsafe")); lf[243]=C_h_intern(&lf[243],52, C_text("chicken.compiler.optimizer#scan-toplevel-assignments")); lf[244]=C_h_intern(&lf[244],44, C_text("chicken.compiler.support#node-subexpressions")); lf[245]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016specialization")); lf[246]=C_h_intern(&lf[246],1, C_text("P")); lf[247]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010scrutiny")); lf[248]=C_h_intern(&lf[248],39, C_text("chicken.compiler.scrutinizer#scrutinize")); lf[249]=C_h_intern(&lf[249],43, C_text("chicken.compiler.core#strict-variable-types")); lf[250]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023performing scrutiny")); lf[251]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027pre-analysis (scrutiny)")); lf[252]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010analysis")); lf[253]=C_h_intern(&lf[253],1, C_text("0")); lf[254]=C_h_intern(&lf[254],8, C_text("scrutiny")); lf[255]=C_h_intern(&lf[255],47, C_text("chicken.compiler.scrutinizer#load-type-database")); lf[256]=C_h_intern(&lf[256],30, C_text("chicken.pathname#make-pathname")); lf[257]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005types")); lf[258]=C_h_intern(&lf[258],21, C_text("scheme#symbol->string")); lf[259]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034type-database `~a\047 not found")); lf[260]=C_h_intern(&lf[260],18, C_text("consult-types-file")); lf[261]=C_h_intern(&lf[261],17, C_text("ignore-repository")); lf[262]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052default type-database `types.db\047 not found")); lf[263]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010types.db")); lf[264]=C_h_intern(&lf[264],41, C_text("chicken.compiler.support#load-inline-file")); lf[265]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032Loading inline file ~a ...")); lf[266]=C_h_intern(&lf[266],19, C_text("consult-inline-file")); lf[267]=C_h_intern(&lf[267],41, C_text("chicken.compiler.core#enable-inline-files")); lf[268]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032Loading inline file ~a ...")); lf[269]=C_h_intern(&lf[269],30, C_text("##sys#resolve-include-filename")); lf[270]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\007.inline\376\377\016")); lf[271]=C_h_intern(&lf[271],1, C_text("M")); lf[272]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017; requirements:")); lf[273]=C_h_intern(&lf[273],19, C_text("scheme#vector->list")); lf[274]=C_h_intern(&lf[274],39, C_text("chicken.compiler.core#file-requirements")); lf[275]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021initial node tree")); lf[276]=C_h_intern(&lf[276],1, C_text("T")); lf[277]=C_h_intern(&lf[277],46, C_text("chicken.compiler.core#build-toplevel-procedure")); lf[278]=C_h_intern(&lf[278],41, C_text("chicken.compiler.support#build-node-graph")); lf[279]=C_h_intern(&lf[279],48, C_text("chicken.compiler.support#canonicalize-begin-body")); lf[280]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011user pass")); lf[281]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014User pass...")); lf[282]=C_h_intern(&lf[282],36, C_text("chicken.compiler.user-pass#user-pass")); lf[283]=C_h_intern(&lf[283],12, C_text("check-syntax")); lf[284]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015canonicalized")); lf[285]=C_h_intern(&lf[285],1, C_text("2")); lf[286]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020canonicalization")); lf[287]=C_h_intern(&lf[287],53, C_text("chicken.compiler.support#display-line-number-database")); lf[288]=C_h_intern(&lf[288],1, C_text("n")); lf[289]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025line number database:")); lf[290]=C_h_intern(&lf[290],48, C_text("chicken.compiler.support#display-real-name-table")); lf[291]=C_h_intern(&lf[291],1, C_text("N")); lf[292]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020real name table:")); lf[293]=C_h_intern(&lf[293],59, C_text("chicken.compiler.compiler-syntax#compiler-syntax-statistics")); lf[294]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\011\011")); lf[295]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[296]=C_h_intern(&lf[296],18, C_text("chicken.base#print")); lf[297]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030applied compiler syntax:")); lf[298]=C_h_intern(&lf[298],46, C_text("chicken.compiler.support#with-debugging-output")); lf[299]=C_h_intern(&lf[299],1, C_text("S")); lf[300]=C_h_intern(&lf[300],6, C_text("format")); lf[301]=C_h_intern(&lf[301],20, C_text("chicken.base#warning")); lf[302]=C_h_intern(&lf[302],30, C_text("chicken.base#get-output-string")); lf[303]=C_h_intern(&lf[303],23, C_text("chicken.string#->string")); lf[304]=C_h_intern(&lf[304],33, C_text("chicken.string#string-intersperse")); lf[305]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[306]=C_decode_literal(C_heaptop,C_text("\376B\000\0006the following extensions are not currently installed: ")); lf[307]=C_h_intern(&lf[307],31, C_text("chicken.base#open-output-string")); lf[308]=C_h_intern(&lf[308],19, C_text("chicken.base#notice")); lf[309]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[310]=C_decode_literal(C_heaptop,C_text("\376B\000\000; has dynamic requirements but doesn\047t load (chicken eval): ")); lf[311]=C_h_intern(&lf[311],31, C_text("chicken.compiler.core#unit-name")); lf[312]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004unit")); lf[313]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007library")); lf[314]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007program")); lf[315]=C_h_intern(&lf[315],32, C_text("chicken.compiler.core#used-units")); lf[316]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001eval\376\003\000\000\002\376\001\000\000\004\001repl\376\377\016")); lf[317]=C_h_intern(&lf[317],35, C_text("chicken.load#find-dynamic-extension")); lf[318]=C_h_intern(&lf[318],31, C_text("chicken.internal#hash-table-ref")); lf[319]=C_decode_literal(C_heaptop,C_text("\376B\000\000;No module definition found for import libraries to emit: ~A")); lf[320]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[321]=C_h_intern(&lf[321],41, C_text("chicken.compiler.core#immutable-constants")); lf[322]=C_h_intern(&lf[322],43, C_text("chicken.compiler.core#standalone-executable")); lf[323]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016\376\377\016")); lf[324]=C_h_intern(&lf[324],34, C_text("chicken.compiler.core#emit-profile")); lf[325]=C_h_intern(&lf[325],47, C_text("chicken.compiler.support#profiling-prelude-exps")); lf[326]=C_h_intern(&lf[326],14, C_text("##core#provide")); lf[327]=C_h_intern(&lf[327],15, C_text("##core#callunit")); lf[328]=C_h_intern(&lf[328],5, C_text("quote")); lf[329]=C_h_intern(&lf[329],4, C_text("set!")); lf[330]=C_h_intern(&lf[330],13, C_text("##core#module")); lf[331]=C_h_intern(&lf[331],21, C_text("scheme#string->symbol")); lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006source")); lf[333]=C_h_intern(&lf[333],1, C_text("1")); lf[334]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032User preprocessing pass...")); lf[335]=C_h_intern(&lf[335],49, C_text("chicken.compiler.user-pass#user-preprocessor-pass")); lf[336]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021User read pass...")); lf[337]=C_h_intern(&lf[337],37, C_text("chicken.compiler.support#string->expr")); lf[338]=C_h_intern(&lf[338],14, C_text("scheme#reverse")); lf[339]=C_h_intern(&lf[339],49, C_text("chicken.compiler.support#close-checked-input-file")); lf[340]=C_h_intern(&lf[340],41, C_text("chicken.compiler.support#read/source-info")); lf[341]=C_h_intern(&lf[341],50, C_text("chicken.compiler.support#check-and-open-input-file")); lf[342]=C_h_intern(&lf[342],41, C_text("chicken.compiler.user-pass#user-read-pass")); lf[343]=C_h_intern(&lf[343],8, C_text("epilogue")); lf[344]=C_h_intern(&lf[344],8, C_text("prologue")); lf[345]=C_h_intern(&lf[345],8, C_text("postlude")); lf[346]=C_h_intern(&lf[346],7, C_text("prelude")); lf[347]=C_h_intern(&lf[347],18, C_text("scheme#make-vector")); lf[348]=C_h_intern(&lf[348],47, C_text("chicken.compiler.core#line-number-database-size")); lf[349]=C_h_intern(&lf[349],1, C_text("r")); lf[350]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021target stack size")); lf[351]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020target heap size")); lf[352]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021debugging options")); lf[353]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007options")); lf[354]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022compiling `~a\047 ...")); lf[355]=C_h_intern(&lf[355],5, C_text("-help")); lf[356]=C_h_intern(&lf[356],1, C_text("h")); lf[357]=C_h_intern(&lf[357],2, C_text("-h")); lf[358]=C_h_intern(&lf[358],49, C_text("chicken.compiler.support#load-identifier-database")); lf[359]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012modules.db")); lf[360]=C_h_intern(&lf[360],18, C_text("accumulate-profile")); lf[361]=C_h_intern(&lf[361],41, C_text("chicken.compiler.core#profiled-procedures")); lf[362]=C_h_intern(&lf[362],3, C_text("all")); lf[363]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015accumulative ")); lf[364]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032generating ~aprofiled code")); lf[365]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[366]=C_h_intern(&lf[366],58, C_text("chicken.compiler.c-platform#default-profiling-declarations")); lf[367]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001set!\376\003\000\000\002\376\001\000\000\031\001##sys#profile-append-mode\376\003\000\000\002\376\377\006\001\376\377\016\376\377\016")); lf[368]=C_decode_literal(C_heaptop,C_text("\376B\000\000Eyou need to specify -profile-name if using accumulated profiling runs")); lf[369]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011calltrace")); lf[370]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022debugging info: ~A")); lf[371]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004none")); lf[372]=C_h_intern(&lf[372],21, C_text("no-usual-integrations")); lf[373]=C_h_intern(&lf[373],1, C_text("m")); lf[374]=C_h_intern(&lf[374],25, C_text("chicken.gc#set-gc-report!")); lf[375]=C_h_intern(&lf[375],25, C_text("chicken.platform#feature\077")); lf[376]=C_h_intern_kw(&lf[376],17, C_text("chicken-bootstrap")); lf[377]=C_h_intern(&lf[377],14, C_text("compile-syntax")); lf[378]=C_h_intern(&lf[378],27, C_text("##sys#enable-runtime-macros")); lf[379]=C_h_intern(&lf[379],6, C_text("import")); lf[380]=C_h_intern(&lf[380],17, C_text("require-extension")); lf[381]=C_h_intern(&lf[381],4, C_text("uses")); lf[382]=C_h_intern(&lf[382],14, C_text("##core#declare")); lf[383]=C_h_intern(&lf[383],27, C_text("chicken.string#string-split")); lf[384]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[385]=C_h_intern(&lf[385],50, C_text("chicken.compiler.user-pass#user-post-analysis-pass")); lf[386]=C_h_intern(&lf[386],11, C_text("scheme#load")); lf[387]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031cannot load extension: ~a")); lf[388]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036Loading compiler extensions...")); lf[389]=C_h_intern(&lf[389],6, C_text("extend")); lf[390]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001,")); lf[391]=C_h_intern(&lf[391],10, C_text("no-feature")); lf[392]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[393]=C_h_intern(&lf[393],7, C_text("feature")); lf[394]=C_h_intern(&lf[394],25, C_text("chicken.load#load-verbose")); lf[395]=C_h_intern(&lf[395],38, C_text("no-procedure-checks-for-usual-bindings")); lf[396]=C_h_intern(&lf[396],23, C_text("##compiler#always-bound")); lf[397]=C_h_intern(&lf[397],36, C_text("##compiler#always-bound-to-procedure")); lf[398]=C_h_intern(&lf[398],41, C_text("no-procedure-checks-for-toplevel-bindings")); lf[399]=C_h_intern(&lf[399],48, C_text("chicken.compiler.core#no-global-procedure-checks")); lf[400]=C_h_intern(&lf[400],19, C_text("no-procedure-checks")); lf[401]=C_h_intern(&lf[401],41, C_text("chicken.compiler.core#no-procedure-checks")); lf[402]=C_h_intern(&lf[402],15, C_text("no-bound-checks")); lf[403]=C_h_intern(&lf[403],37, C_text("chicken.compiler.core#no-bound-checks")); lf[404]=C_h_intern(&lf[404],14, C_text("no-argc-checks")); lf[405]=C_h_intern(&lf[405],36, C_text("chicken.compiler.core#no-argc-checks")); lf[406]=C_h_intern(&lf[406],20, C_text("keep-shadowed-macros")); lf[407]=C_h_intern(&lf[407],46, C_text("chicken.compiler.core#undefine-shadowed-macros")); lf[408]=C_decode_literal(C_heaptop,C_text("\376B\000\000(source- and output-filename are the same")); lf[409]=C_h_intern(&lf[409],12, C_text("include-path")); lf[410]=C_h_intern(&lf[410],11, C_text("r5rs-syntax")); lf[411]=C_h_intern(&lf[411],26, C_text("chicken.base#symbol-escape")); lf[412]=C_h_intern(&lf[412],33, C_text("chicken.base#parentheses-synonyms")); lf[413]=C_h_intern(&lf[413],26, C_text("chicken.base#keyword-style")); lf[414]=C_h_intern_kw(&lf[414],4, C_text("none")); lf[415]=C_h_intern(&lf[415],27, C_text("chicken.base#case-sensitive")); lf[416]=C_decode_literal(C_heaptop,C_text("\376B\000\000.Disabled the CHICKEN extensions to R5RS syntax")); lf[417]=C_h_intern(&lf[417],16, C_text("no-symbol-escape")); lf[418]=C_decode_literal(C_heaptop,C_text("\376B\000\000$Disabled support for escaped symbols")); lf[419]=C_h_intern(&lf[419],23, C_text("no-parentheses-synonyms")); lf[420]=C_decode_literal(C_heaptop,C_text("\376B\000\000)Disabled support for parentheses synonyms")); lf[421]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006prefix")); lf[422]=C_h_intern_kw(&lf[422],6, C_text("prefix")); lf[423]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004none")); lf[424]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006suffix")); lf[425]=C_h_intern_kw(&lf[425],6, C_text("suffix")); lf[426]=C_decode_literal(C_heaptop,C_text("\376B\000\000+invalid argument to `-keyword-style\047 option")); lf[427]=C_h_intern(&lf[427],16, C_text("case-insensitive")); lf[428]=C_decode_literal(C_heaptop,C_text("\376B\000\000,Identifiers and symbols are case insensitive")); lf[429]=C_decode_literal(C_heaptop,C_text("\376B\000\0000invalid argument to `-inline-limit\047 option: `~A\047")); lf[430]=C_h_intern(&lf[430],39, C_text("chicken.compiler.core#local-definitions")); lf[431]=C_h_intern(&lf[431],6, C_text("inline")); lf[432]=C_h_intern(&lf[432],30, C_text("emit-external-prototypes-first")); lf[433]=C_h_intern(&lf[433],43, C_text("chicken.compiler.core#external-protos-first")); lf[434]=C_h_intern(&lf[434],5, C_text("block")); lf[435]=C_h_intern(&lf[435],17, C_text("fixnum-arithmetic")); lf[436]=C_h_intern(&lf[436],36, C_text("chicken.compiler.support#number-type")); lf[437]=C_h_intern(&lf[437],6, C_text("fixnum")); lf[438]=C_h_intern(&lf[438],18, C_text("disable-interrupts")); lf[439]=C_h_intern(&lf[439],27, C_text("regenerate-import-libraries")); lf[440]=C_h_intern(&lf[440],57, C_text("chicken.compiler.core#preserve-unchanged-import-libraries")); lf[441]=C_h_intern(&lf[441],10, C_text("setup-mode")); lf[442]=C_h_intern(&lf[442],16, C_text("##sys#setup-mode")); lf[443]=C_h_intern(&lf[443],6, C_text("unsafe")); lf[444]=C_h_intern(&lf[444],22, C_text("optimize-leaf-routines")); lf[445]=C_h_intern(&lf[445],11, C_text("no-warnings")); lf[446]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025Warnings are disabled")); lf[447]=C_h_intern(&lf[447],12, C_text("strict-types")); lf[448]=C_h_intern(&lf[448],21, C_text("##sys#notices-enabled")); lf[449]=C_h_intern(&lf[449],13, C_text("inline-global")); lf[450]=C_h_intern(&lf[450],5, C_text("local")); lf[451]=C_h_intern(&lf[451],18, C_text("no-compiler-syntax")); lf[452]=C_h_intern(&lf[452],45, C_text("chicken.compiler.core#compiler-syntax-enabled")); lf[453]=C_h_intern(&lf[453],14, C_text("no-lambda-info")); lf[454]=C_h_intern(&lf[454],39, C_text("chicken.compiler.core#emit-closure-info")); lf[455]=C_h_intern(&lf[455],3, C_text("raw")); lf[456]=C_h_intern(&lf[456],1, C_text("b")); lf[457]=C_h_intern(&lf[457],17, C_text("##sys#start-timer")); lf[458]=C_h_intern(&lf[458],25, C_text("emit-all-import-libraries")); lf[459]=C_h_intern(&lf[459],42, C_text("chicken.compiler.core#all-import-libraries")); lf[460]=C_h_intern(&lf[460],19, C_text("##sys#string-append")); lf[461]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013.import.scm")); lf[462]=C_h_intern(&lf[462],19, C_text("emit-import-library")); lf[463]=C_h_intern(&lf[463],44, C_text("chicken.compiler.support#print-debug-options")); lf[464]=C_h_intern(&lf[464],18, C_text("##sys#string->list")); lf[465]=C_h_intern(&lf[465],5, C_text("debug")); lf[466]=C_h_intern(&lf[466],20, C_text("##sys#dload-disabled")); lf[467]=C_h_intern(&lf[467],32, C_text("chicken.platform#repository-path")); lf[468]=C_h_intern(&lf[468],10, C_text("stack-size")); lf[469]=C_h_intern(&lf[469],54, C_text("chicken.compiler.optimizer#default-optimization-passes")); lf[470]=C_h_intern(&lf[470],16, C_text("##sys#split-path")); lf[471]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[472]=C_h_intern(&lf[472],48, C_text("chicken.process-context#get-environment-variable")); lf[473]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024CHICKEN_INCLUDE_PATH")); lf[474]=C_h_intern(&lf[474],9, C_text("to-stdout")); lf[475]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001c")); lf[476]=C_h_intern(&lf[476],30, C_text("chicken.pathname#pathname-file")); lf[477]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003out")); lf[478]=C_h_intern(&lf[478],32, C_text("chicken.internal#default-imports")); lf[479]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001uses\376\003\000\000\002\376\001\000\000\017\001debugger-client\376\377\016\376\377\016")); lf[480]=C_h_intern(&lf[480],48, C_text("chicken.compiler.c-platform#default-declarations")); lf[481]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001uses\376\003\000\000\002\376\001\000\000\014\001eval-modules\376\377\016\376\377\016")); lf[482]=C_h_intern(&lf[482],39, C_text("chicken.compiler.core#static-extensions")); lf[483]=C_h_intern(&lf[483],41, C_text("chicken.compiler.c-platform#default-units")); lf[484]=C_h_intern(&lf[484],6, C_text("static")); lf[485]=C_h_intern(&lf[485],22, C_text("chicken-compile-static")); lf[486]=C_h_intern(&lf[486],41, C_text("chicken.compiler.core#initialize-compiler")); C_register_lf2(lf,487,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2669,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[563] = { {C_text("f8625:batch_2ddriver_2escm"),(void*)f8625}, {C_text("f9103:batch_2ddriver_2escm"),(void*)f9103}, {C_text("f9109:batch_2ddriver_2escm"),(void*)f9109}, {C_text("f9115:batch_2ddriver_2escm"),(void*)f9115}, {C_text("f9121:batch_2ddriver_2escm"),(void*)f9121}, {C_text("f9127:batch_2ddriver_2escm"),(void*)f9127}, {C_text("f9133:batch_2ddriver_2escm"),(void*)f9133}, {C_text("f9145:batch_2ddriver_2escm"),(void*)f9145}, {C_text("f9153:batch_2ddriver_2escm"),(void*)f9153}, {C_text("f9165:batch_2ddriver_2escm"),(void*)f9165}, {C_text("f9189:batch_2ddriver_2escm"),(void*)f9189}, {C_text("f9195:batch_2ddriver_2escm"),(void*)f9195}, {C_text("f9209:batch_2ddriver_2escm"),(void*)f9209}, {C_text("f9215:batch_2ddriver_2escm"),(void*)f9215}, {C_text("f9221:batch_2ddriver_2escm"),(void*)f9221}, {C_text("f9227:batch_2ddriver_2escm"),(void*)f9227}, {C_text("f9233:batch_2ddriver_2escm"),(void*)f9233}, {C_text("f9247:batch_2ddriver_2escm"),(void*)f9247}, {C_text("f9263:batch_2ddriver_2escm"),(void*)f9263}, {C_text("f9269:batch_2ddriver_2escm"),(void*)f9269}, {C_text("f9275:batch_2ddriver_2escm"),(void*)f9275}, {C_text("f9281:batch_2ddriver_2escm"),(void*)f9281}, {C_text("f9287:batch_2ddriver_2escm"),(void*)f9287}, {C_text("f_2669:batch_2ddriver_2escm"),(void*)f_2669}, {C_text("f_2672:batch_2ddriver_2escm"),(void*)f_2672}, {C_text("f_2675:batch_2ddriver_2escm"),(void*)f_2675}, {C_text("f_2678:batch_2ddriver_2escm"),(void*)f_2678}, {C_text("f_2681:batch_2ddriver_2escm"),(void*)f_2681}, {C_text("f_2684:batch_2ddriver_2escm"),(void*)f_2684}, {C_text("f_2687:batch_2ddriver_2escm"),(void*)f_2687}, {C_text("f_2690:batch_2ddriver_2escm"),(void*)f_2690}, {C_text("f_2693:batch_2ddriver_2escm"),(void*)f_2693}, {C_text("f_2696:batch_2ddriver_2escm"),(void*)f_2696}, {C_text("f_2699:batch_2ddriver_2escm"),(void*)f_2699}, {C_text("f_2702:batch_2ddriver_2escm"),(void*)f_2702}, {C_text("f_2705:batch_2ddriver_2escm"),(void*)f_2705}, {C_text("f_2708:batch_2ddriver_2escm"),(void*)f_2708}, {C_text("f_2711:batch_2ddriver_2escm"),(void*)f_2711}, {C_text("f_2714:batch_2ddriver_2escm"),(void*)f_2714}, {C_text("f_2915:batch_2ddriver_2escm"),(void*)f_2915}, {C_text("f_2930:batch_2ddriver_2escm"),(void*)f_2930}, {C_text("f_2938:batch_2ddriver_2escm"),(void*)f_2938}, {C_text("f_2946:batch_2ddriver_2escm"),(void*)f_2946}, {C_text("f_2957:batch_2ddriver_2escm"),(void*)f_2957}, {C_text("f_2970:batch_2ddriver_2escm"),(void*)f_2970}, {C_text("f_2984:batch_2ddriver_2escm"),(void*)f_2984}, {C_text("f_2988:batch_2ddriver_2escm"),(void*)f_2988}, {C_text("f_3000:batch_2ddriver_2escm"),(void*)f_3000}, {C_text("f_3002:batch_2ddriver_2escm"),(void*)f_3002}, {C_text("f_3049:batch_2ddriver_2escm"),(void*)f_3049}, {C_text("f_3051:batch_2ddriver_2escm"),(void*)f_3051}, {C_text("f_3091:batch_2ddriver_2escm"),(void*)f_3091}, {C_text("f_3113:batch_2ddriver_2escm"),(void*)f_3113}, {C_text("f_3125:batch_2ddriver_2escm"),(void*)f_3125}, {C_text("f_3177:batch_2ddriver_2escm"),(void*)f_3177}, {C_text("f_3183:batch_2ddriver_2escm"),(void*)f_3183}, {C_text("f_3201:batch_2ddriver_2escm"),(void*)f_3201}, {C_text("f_3211:batch_2ddriver_2escm"),(void*)f_3211}, {C_text("f_3238:batch_2ddriver_2escm"),(void*)f_3238}, {C_text("f_3325:batch_2ddriver_2escm"),(void*)f_3325}, {C_text("f_3334:batch_2ddriver_2escm"),(void*)f_3334}, {C_text("f_3342:batch_2ddriver_2escm"),(void*)f_3342}, {C_text("f_3349:batch_2ddriver_2escm"),(void*)f_3349}, {C_text("f_3363:batch_2ddriver_2escm"),(void*)f_3363}, {C_text("f_3424:batch_2ddriver_2escm"),(void*)f_3424}, {C_text("f_3432:batch_2ddriver_2escm"),(void*)f_3432}, {C_text("f_3715:batch_2ddriver_2escm"),(void*)f_3715}, {C_text("f_3721:batch_2ddriver_2escm"),(void*)f_3721}, {C_text("f_4000:batch_2ddriver_2escm"),(void*)f_4000}, {C_text("f_4006:batch_2ddriver_2escm"),(void*)f_4006}, {C_text("f_4013:batch_2ddriver_2escm"),(void*)f_4013}, {C_text("f_4019:batch_2ddriver_2escm"),(void*)f_4019}, {C_text("f_4022:batch_2ddriver_2escm"),(void*)f_4022}, {C_text("f_4025:batch_2ddriver_2escm"),(void*)f_4025}, {C_text("f_4028:batch_2ddriver_2escm"),(void*)f_4028}, {C_text("f_4031:batch_2ddriver_2escm"),(void*)f_4031}, {C_text("f_4037:batch_2ddriver_2escm"),(void*)f_4037}, {C_text("f_4040:batch_2ddriver_2escm"),(void*)f_4040}, {C_text("f_4043:batch_2ddriver_2escm"),(void*)f_4043}, {C_text("f_4049:batch_2ddriver_2escm"),(void*)f_4049}, {C_text("f_4052:batch_2ddriver_2escm"),(void*)f_4052}, {C_text("f_4055:batch_2ddriver_2escm"),(void*)f_4055}, {C_text("f_4061:batch_2ddriver_2escm"),(void*)f_4061}, {C_text("f_4064:batch_2ddriver_2escm"),(void*)f_4064}, {C_text("f_4067:batch_2ddriver_2escm"),(void*)f_4067}, {C_text("f_4073:batch_2ddriver_2escm"),(void*)f_4073}, {C_text("f_4076:batch_2ddriver_2escm"),(void*)f_4076}, {C_text("f_4079:batch_2ddriver_2escm"),(void*)f_4079}, {C_text("f_4085:batch_2ddriver_2escm"),(void*)f_4085}, {C_text("f_4088:batch_2ddriver_2escm"),(void*)f_4088}, {C_text("f_4093:batch_2ddriver_2escm"),(void*)f_4093}, {C_text("f_4097:batch_2ddriver_2escm"),(void*)f_4097}, {C_text("f_4109:batch_2ddriver_2escm"),(void*)f_4109}, {C_text("f_4120:batch_2ddriver_2escm"),(void*)f_4120}, {C_text("f_4133:batch_2ddriver_2escm"),(void*)f_4133}, {C_text("f_4143:batch_2ddriver_2escm"),(void*)f_4143}, {C_text("f_4156:batch_2ddriver_2escm"),(void*)f_4156}, {C_text("f_4166:batch_2ddriver_2escm"),(void*)f_4166}, {C_text("f_4179:batch_2ddriver_2escm"),(void*)f_4179}, {C_text("f_4189:batch_2ddriver_2escm"),(void*)f_4189}, {C_text("f_4202:batch_2ddriver_2escm"),(void*)f_4202}, {C_text("f_4206:batch_2ddriver_2escm"),(void*)f_4206}, {C_text("f_4211:batch_2ddriver_2escm"),(void*)f_4211}, {C_text("f_4221:batch_2ddriver_2escm"),(void*)f_4221}, {C_text("f_4224:batch_2ddriver_2escm"),(void*)f_4224}, {C_text("f_4227:batch_2ddriver_2escm"),(void*)f_4227}, {C_text("f_4230:batch_2ddriver_2escm"),(void*)f_4230}, {C_text("f_4233:batch_2ddriver_2escm"),(void*)f_4233}, {C_text("f_4236:batch_2ddriver_2escm"),(void*)f_4236}, {C_text("f_4250:batch_2ddriver_2escm"),(void*)f_4250}, {C_text("f_4261:batch_2ddriver_2escm"),(void*)f_4261}, {C_text("f_4265:batch_2ddriver_2escm"),(void*)f_4265}, {C_text("f_4273:batch_2ddriver_2escm"),(void*)f_4273}, {C_text("f_4283:batch_2ddriver_2escm"),(void*)f_4283}, {C_text("f_4297:batch_2ddriver_2escm"),(void*)f_4297}, {C_text("f_4303:batch_2ddriver_2escm"),(void*)f_4303}, {C_text("f_4314:batch_2ddriver_2escm"),(void*)f_4314}, {C_text("f_4318:batch_2ddriver_2escm"),(void*)f_4318}, {C_text("f_4324:batch_2ddriver_2escm"),(void*)f_4324}, {C_text("f_4330:batch_2ddriver_2escm"),(void*)f_4330}, {C_text("f_4341:batch_2ddriver_2escm"),(void*)f_4341}, {C_text("f_4345:batch_2ddriver_2escm"),(void*)f_4345}, {C_text("f_4368:batch_2ddriver_2escm"),(void*)f_4368}, {C_text("f_4384:batch_2ddriver_2escm"),(void*)f_4384}, {C_text("f_4393:batch_2ddriver_2escm"),(void*)f_4393}, {C_text("f_4406:batch_2ddriver_2escm"),(void*)f_4406}, {C_text("f_4417:batch_2ddriver_2escm"),(void*)f_4417}, {C_text("f_4423:batch_2ddriver_2escm"),(void*)f_4423}, {C_text("f_4496:batch_2ddriver_2escm"),(void*)f_4496}, {C_text("f_4502:batch_2ddriver_2escm"),(void*)f_4502}, {C_text("f_4505:batch_2ddriver_2escm"),(void*)f_4505}, {C_text("f_4508:batch_2ddriver_2escm"),(void*)f_4508}, {C_text("f_4782:batch_2ddriver_2escm"),(void*)f_4782}, {C_text("f_4784:batch_2ddriver_2escm"),(void*)f_4784}, {C_text("f_4787:batch_2ddriver_2escm"),(void*)f_4787}, {C_text("f_4818:batch_2ddriver_2escm"),(void*)f_4818}, {C_text("f_4831:batch_2ddriver_2escm"),(void*)f_4831}, {C_text("f_4845:batch_2ddriver_2escm"),(void*)f_4845}, {C_text("f_4851:batch_2ddriver_2escm"),(void*)f_4851}, {C_text("f_4857:batch_2ddriver_2escm"),(void*)f_4857}, {C_text("f_4860:batch_2ddriver_2escm"),(void*)f_4860}, {C_text("f_4865:batch_2ddriver_2escm"),(void*)f_4865}, {C_text("f_4885:batch_2ddriver_2escm"),(void*)f_4885}, {C_text("f_4890:batch_2ddriver_2escm"),(void*)f_4890}, {C_text("f_4908:batch_2ddriver_2escm"),(void*)f_4908}, {C_text("f_4912:batch_2ddriver_2escm"),(void*)f_4912}, {C_text("f_4924:batch_2ddriver_2escm"),(void*)f_4924}, {C_text("f_4927:batch_2ddriver_2escm"),(void*)f_4927}, {C_text("f_4930:batch_2ddriver_2escm"),(void*)f_4930}, {C_text("f_4933:batch_2ddriver_2escm"),(void*)f_4933}, {C_text("f_4935:batch_2ddriver_2escm"),(void*)f_4935}, {C_text("f_4942:batch_2ddriver_2escm"),(void*)f_4942}, {C_text("f_4955:batch_2ddriver_2escm"),(void*)f_4955}, {C_text("f_4957:batch_2ddriver_2escm"),(void*)f_4957}, {C_text("f_4964:batch_2ddriver_2escm"),(void*)f_4964}, {C_text("f_4970:batch_2ddriver_2escm"),(void*)f_4970}, {C_text("f_4973:batch_2ddriver_2escm"),(void*)f_4973}, {C_text("f_4976:batch_2ddriver_2escm"),(void*)f_4976}, {C_text("f_4979:batch_2ddriver_2escm"),(void*)f_4979}, {C_text("f_4984:batch_2ddriver_2escm"),(void*)f_4984}, {C_text("f_4991:batch_2ddriver_2escm"),(void*)f_4991}, {C_text("f_4996:batch_2ddriver_2escm"),(void*)f_4996}, {C_text("f_5007:batch_2ddriver_2escm"),(void*)f_5007}, {C_text("f_5017:batch_2ddriver_2escm"),(void*)f_5017}, {C_text("f_5030:batch_2ddriver_2escm"),(void*)f_5030}, {C_text("f_5039:batch_2ddriver_2escm"),(void*)f_5039}, {C_text("f_5070:batch_2ddriver_2escm"),(void*)f_5070}, {C_text("f_5074:batch_2ddriver_2escm"),(void*)f_5074}, {C_text("f_5090:batch_2ddriver_2escm"),(void*)f_5090}, {C_text("f_5094:batch_2ddriver_2escm"),(void*)f_5094}, {C_text("f_5115:batch_2ddriver_2escm"),(void*)f_5115}, {C_text("f_5121:batch_2ddriver_2escm"),(void*)f_5121}, {C_text("f_5129:batch_2ddriver_2escm"),(void*)f_5129}, {C_text("f_5137:batch_2ddriver_2escm"),(void*)f_5137}, {C_text("f_5141:batch_2ddriver_2escm"),(void*)f_5141}, {C_text("f_5150:batch_2ddriver_2escm"),(void*)f_5150}, {C_text("f_5158:batch_2ddriver_2escm"),(void*)f_5158}, {C_text("f_5160:batch_2ddriver_2escm"),(void*)f_5160}, {C_text("f_5170:batch_2ddriver_2escm"),(void*)f_5170}, {C_text("f_5173:batch_2ddriver_2escm"),(void*)f_5173}, {C_text("f_5176:batch_2ddriver_2escm"),(void*)f_5176}, {C_text("f_5179:batch_2ddriver_2escm"),(void*)f_5179}, {C_text("f_5186:batch_2ddriver_2escm"),(void*)f_5186}, {C_text("f_5190:batch_2ddriver_2escm"),(void*)f_5190}, {C_text("f_5198:batch_2ddriver_2escm"),(void*)f_5198}, {C_text("f_5200:batch_2ddriver_2escm"),(void*)f_5200}, {C_text("f_5202:batch_2ddriver_2escm"),(void*)f_5202}, {C_text("f_5206:batch_2ddriver_2escm"),(void*)f_5206}, {C_text("f_5209:batch_2ddriver_2escm"),(void*)f_5209}, {C_text("f_5214:batch_2ddriver_2escm"),(void*)f_5214}, {C_text("f_5220:batch_2ddriver_2escm"),(void*)f_5220}, {C_text("f_5225:batch_2ddriver_2escm"),(void*)f_5225}, {C_text("f_5230:batch_2ddriver_2escm"),(void*)f_5230}, {C_text("f_5266:batch_2ddriver_2escm"),(void*)f_5266}, {C_text("f_5269:batch_2ddriver_2escm"),(void*)f_5269}, {C_text("f_5272:batch_2ddriver_2escm"),(void*)f_5272}, {C_text("f_5279:batch_2ddriver_2escm"),(void*)f_5279}, {C_text("f_5282:batch_2ddriver_2escm"),(void*)f_5282}, {C_text("f_5299:batch_2ddriver_2escm"),(void*)f_5299}, {C_text("f_5303:batch_2ddriver_2escm"),(void*)f_5303}, {C_text("f_5308:batch_2ddriver_2escm"),(void*)f_5308}, {C_text("f_5314:batch_2ddriver_2escm"),(void*)f_5314}, {C_text("f_5317:batch_2ddriver_2escm"),(void*)f_5317}, {C_text("f_5320:batch_2ddriver_2escm"),(void*)f_5320}, {C_text("f_5323:batch_2ddriver_2escm"),(void*)f_5323}, {C_text("f_5326:batch_2ddriver_2escm"),(void*)f_5326}, {C_text("f_5329:batch_2ddriver_2escm"),(void*)f_5329}, {C_text("f_5332:batch_2ddriver_2escm"),(void*)f_5332}, {C_text("f_5335:batch_2ddriver_2escm"),(void*)f_5335}, {C_text("f_5338:batch_2ddriver_2escm"),(void*)f_5338}, {C_text("f_5341:batch_2ddriver_2escm"),(void*)f_5341}, {C_text("f_5344:batch_2ddriver_2escm"),(void*)f_5344}, {C_text("f_5347:batch_2ddriver_2escm"),(void*)f_5347}, {C_text("f_5350:batch_2ddriver_2escm"),(void*)f_5350}, {C_text("f_5353:batch_2ddriver_2escm"),(void*)f_5353}, {C_text("f_5356:batch_2ddriver_2escm"),(void*)f_5356}, {C_text("f_5359:batch_2ddriver_2escm"),(void*)f_5359}, {C_text("f_5362:batch_2ddriver_2escm"),(void*)f_5362}, {C_text("f_5365:batch_2ddriver_2escm"),(void*)f_5365}, {C_text("f_5368:batch_2ddriver_2escm"),(void*)f_5368}, {C_text("f_5371:batch_2ddriver_2escm"),(void*)f_5371}, {C_text("f_5374:batch_2ddriver_2escm"),(void*)f_5374}, {C_text("f_5377:batch_2ddriver_2escm"),(void*)f_5377}, {C_text("f_5382:batch_2ddriver_2escm"),(void*)f_5382}, {C_text("f_5387:batch_2ddriver_2escm"),(void*)f_5387}, {C_text("f_5392:batch_2ddriver_2escm"),(void*)f_5392}, {C_text("f_5397:batch_2ddriver_2escm"),(void*)f_5397}, {C_text("f_5400:batch_2ddriver_2escm"),(void*)f_5400}, {C_text("f_5403:batch_2ddriver_2escm"),(void*)f_5403}, {C_text("f_5406:batch_2ddriver_2escm"),(void*)f_5406}, {C_text("f_5409:batch_2ddriver_2escm"),(void*)f_5409}, {C_text("f_5412:batch_2ddriver_2escm"),(void*)f_5412}, {C_text("f_5418:batch_2ddriver_2escm"),(void*)f_5418}, {C_text("f_5421:batch_2ddriver_2escm"),(void*)f_5421}, {C_text("f_5424:batch_2ddriver_2escm"),(void*)f_5424}, {C_text("f_5427:batch_2ddriver_2escm"),(void*)f_5427}, {C_text("f_5430:batch_2ddriver_2escm"),(void*)f_5430}, {C_text("f_5433:batch_2ddriver_2escm"),(void*)f_5433}, {C_text("f_5436:batch_2ddriver_2escm"),(void*)f_5436}, {C_text("f_5439:batch_2ddriver_2escm"),(void*)f_5439}, {C_text("f_5442:batch_2ddriver_2escm"),(void*)f_5442}, {C_text("f_5445:batch_2ddriver_2escm"),(void*)f_5445}, {C_text("f_5451:batch_2ddriver_2escm"),(void*)f_5451}, {C_text("f_5454:batch_2ddriver_2escm"),(void*)f_5454}, {C_text("f_5460:batch_2ddriver_2escm"),(void*)f_5460}, {C_text("f_5467:batch_2ddriver_2escm"),(void*)f_5467}, {C_text("f_5470:batch_2ddriver_2escm"),(void*)f_5470}, {C_text("f_5475:batch_2ddriver_2escm"),(void*)f_5475}, {C_text("f_5478:batch_2ddriver_2escm"),(void*)f_5478}, {C_text("f_5493:batch_2ddriver_2escm"),(void*)f_5493}, {C_text("f_5497:batch_2ddriver_2escm"),(void*)f_5497}, {C_text("f_5505:batch_2ddriver_2escm"),(void*)f_5505}, {C_text("f_5508:batch_2ddriver_2escm"),(void*)f_5508}, {C_text("f_5511:batch_2ddriver_2escm"),(void*)f_5511}, {C_text("f_5515:batch_2ddriver_2escm"),(void*)f_5515}, {C_text("f_5518:batch_2ddriver_2escm"),(void*)f_5518}, {C_text("f_5522:batch_2ddriver_2escm"),(void*)f_5522}, {C_text("f_5526:batch_2ddriver_2escm"),(void*)f_5526}, {C_text("f_5537:batch_2ddriver_2escm"),(void*)f_5537}, {C_text("f_5540:batch_2ddriver_2escm"),(void*)f_5540}, {C_text("f_5543:batch_2ddriver_2escm"),(void*)f_5543}, {C_text("f_5546:batch_2ddriver_2escm"),(void*)f_5546}, {C_text("f_5549:batch_2ddriver_2escm"),(void*)f_5549}, {C_text("f_5552:batch_2ddriver_2escm"),(void*)f_5552}, {C_text("f_5560:batch_2ddriver_2escm"),(void*)f_5560}, {C_text("f_5571:batch_2ddriver_2escm"),(void*)f_5571}, {C_text("f_5582:batch_2ddriver_2escm"),(void*)f_5582}, {C_text("f_5589:batch_2ddriver_2escm"),(void*)f_5589}, {C_text("f_5598:batch_2ddriver_2escm"),(void*)f_5598}, {C_text("f_5601:batch_2ddriver_2escm"),(void*)f_5601}, {C_text("f_5604:batch_2ddriver_2escm"),(void*)f_5604}, {C_text("f_5610:batch_2ddriver_2escm"),(void*)f_5610}, {C_text("f_5613:batch_2ddriver_2escm"),(void*)f_5613}, {C_text("f_5616:batch_2ddriver_2escm"),(void*)f_5616}, {C_text("f_5619:batch_2ddriver_2escm"),(void*)f_5619}, {C_text("f_5622:batch_2ddriver_2escm"),(void*)f_5622}, {C_text("f_5626:batch_2ddriver_2escm"),(void*)f_5626}, {C_text("f_5630:batch_2ddriver_2escm"),(void*)f_5630}, {C_text("f_5633:batch_2ddriver_2escm"),(void*)f_5633}, {C_text("f_5636:batch_2ddriver_2escm"),(void*)f_5636}, {C_text("f_5639:batch_2ddriver_2escm"),(void*)f_5639}, {C_text("f_5642:batch_2ddriver_2escm"),(void*)f_5642}, {C_text("f_5645:batch_2ddriver_2escm"),(void*)f_5645}, {C_text("f_5648:batch_2ddriver_2escm"),(void*)f_5648}, {C_text("f_5651:batch_2ddriver_2escm"),(void*)f_5651}, {C_text("f_5654:batch_2ddriver_2escm"),(void*)f_5654}, {C_text("f_5657:batch_2ddriver_2escm"),(void*)f_5657}, {C_text("f_5661:batch_2ddriver_2escm"),(void*)f_5661}, {C_text("f_5667:batch_2ddriver_2escm"),(void*)f_5667}, {C_text("f_5672:batch_2ddriver_2escm"),(void*)f_5672}, {C_text("f_5678:batch_2ddriver_2escm"),(void*)f_5678}, {C_text("f_5684:batch_2ddriver_2escm"),(void*)f_5684}, {C_text("f_5687:batch_2ddriver_2escm"),(void*)f_5687}, {C_text("f_5693:batch_2ddriver_2escm"),(void*)f_5693}, {C_text("f_5696:batch_2ddriver_2escm"),(void*)f_5696}, {C_text("f_5699:batch_2ddriver_2escm"),(void*)f_5699}, {C_text("f_5702:batch_2ddriver_2escm"),(void*)f_5702}, {C_text("f_5705:batch_2ddriver_2escm"),(void*)f_5705}, {C_text("f_5708:batch_2ddriver_2escm"),(void*)f_5708}, {C_text("f_5711:batch_2ddriver_2escm"),(void*)f_5711}, {C_text("f_5714:batch_2ddriver_2escm"),(void*)f_5714}, {C_text("f_5719:batch_2ddriver_2escm"),(void*)f_5719}, {C_text("f_5722:batch_2ddriver_2escm"),(void*)f_5722}, {C_text("f_5725:batch_2ddriver_2escm"),(void*)f_5725}, {C_text("f_5728:batch_2ddriver_2escm"),(void*)f_5728}, {C_text("f_5731:batch_2ddriver_2escm"),(void*)f_5731}, {C_text("f_5734:batch_2ddriver_2escm"),(void*)f_5734}, {C_text("f_5737:batch_2ddriver_2escm"),(void*)f_5737}, {C_text("f_5740:batch_2ddriver_2escm"),(void*)f_5740}, {C_text("f_5743:batch_2ddriver_2escm"),(void*)f_5743}, {C_text("f_5746:batch_2ddriver_2escm"),(void*)f_5746}, {C_text("f_5749:batch_2ddriver_2escm"),(void*)f_5749}, {C_text("f_5752:batch_2ddriver_2escm"),(void*)f_5752}, {C_text("f_5755:batch_2ddriver_2escm"),(void*)f_5755}, {C_text("f_5758:batch_2ddriver_2escm"),(void*)f_5758}, {C_text("f_5761:batch_2ddriver_2escm"),(void*)f_5761}, {C_text("f_5767:batch_2ddriver_2escm"),(void*)f_5767}, {C_text("f_5770:batch_2ddriver_2escm"),(void*)f_5770}, {C_text("f_5773:batch_2ddriver_2escm"),(void*)f_5773}, {C_text("f_5776:batch_2ddriver_2escm"),(void*)f_5776}, {C_text("f_5779:batch_2ddriver_2escm"),(void*)f_5779}, {C_text("f_5784:batch_2ddriver_2escm"),(void*)f_5784}, {C_text("f_5788:batch_2ddriver_2escm"),(void*)f_5788}, {C_text("f_5791:batch_2ddriver_2escm"),(void*)f_5791}, {C_text("f_5794:batch_2ddriver_2escm"),(void*)f_5794}, {C_text("f_5798:batch_2ddriver_2escm"),(void*)f_5798}, {C_text("f_5801:batch_2ddriver_2escm"),(void*)f_5801}, {C_text("f_5804:batch_2ddriver_2escm"),(void*)f_5804}, {C_text("f_5810:batch_2ddriver_2escm"),(void*)f_5810}, {C_text("f_5813:batch_2ddriver_2escm"),(void*)f_5813}, {C_text("f_5818:batch_2ddriver_2escm"),(void*)f_5818}, {C_text("f_5830:batch_2ddriver_2escm"),(void*)f_5830}, {C_text("f_5834:batch_2ddriver_2escm"),(void*)f_5834}, {C_text("f_5837:batch_2ddriver_2escm"),(void*)f_5837}, {C_text("f_5854:batch_2ddriver_2escm"),(void*)f_5854}, {C_text("f_5868:batch_2ddriver_2escm"),(void*)f_5868}, {C_text("f_5880:batch_2ddriver_2escm"),(void*)f_5880}, {C_text("f_5883:batch_2ddriver_2escm"),(void*)f_5883}, {C_text("f_5886:batch_2ddriver_2escm"),(void*)f_5886}, {C_text("f_5889:batch_2ddriver_2escm"),(void*)f_5889}, {C_text("f_5892:batch_2ddriver_2escm"),(void*)f_5892}, {C_text("f_5895:batch_2ddriver_2escm"),(void*)f_5895}, {C_text("f_5911:batch_2ddriver_2escm"),(void*)f_5911}, {C_text("f_5914:batch_2ddriver_2escm"),(void*)f_5914}, {C_text("f_5917:batch_2ddriver_2escm"),(void*)f_5917}, {C_text("f_5920:batch_2ddriver_2escm"),(void*)f_5920}, {C_text("f_5924:batch_2ddriver_2escm"),(void*)f_5924}, {C_text("f_5927:batch_2ddriver_2escm"),(void*)f_5927}, {C_text("f_5930:batch_2ddriver_2escm"),(void*)f_5930}, {C_text("f_5933:batch_2ddriver_2escm"),(void*)f_5933}, {C_text("f_5936:batch_2ddriver_2escm"),(void*)f_5936}, {C_text("f_5939:batch_2ddriver_2escm"),(void*)f_5939}, {C_text("f_5942:batch_2ddriver_2escm"),(void*)f_5942}, {C_text("f_5947:batch_2ddriver_2escm"),(void*)f_5947}, {C_text("f_5953:batch_2ddriver_2escm"),(void*)f_5953}, {C_text("f_5957:batch_2ddriver_2escm"),(void*)f_5957}, {C_text("f_5960:batch_2ddriver_2escm"),(void*)f_5960}, {C_text("f_5963:batch_2ddriver_2escm"),(void*)f_5963}, {C_text("f_5966:batch_2ddriver_2escm"),(void*)f_5966}, {C_text("f_5969:batch_2ddriver_2escm"),(void*)f_5969}, {C_text("f_5972:batch_2ddriver_2escm"),(void*)f_5972}, {C_text("f_5975:batch_2ddriver_2escm"),(void*)f_5975}, {C_text("f_5978:batch_2ddriver_2escm"),(void*)f_5978}, {C_text("f_5981:batch_2ddriver_2escm"),(void*)f_5981}, {C_text("f_5984:batch_2ddriver_2escm"),(void*)f_5984}, {C_text("f_5997:batch_2ddriver_2escm"),(void*)f_5997}, {C_text("f_6006:batch_2ddriver_2escm"),(void*)f_6006}, {C_text("f_6011:batch_2ddriver_2escm"),(void*)f_6011}, {C_text("f_6035:batch_2ddriver_2escm"),(void*)f_6035}, {C_text("f_6041:batch_2ddriver_2escm"),(void*)f_6041}, {C_text("f_6047:batch_2ddriver_2escm"),(void*)f_6047}, {C_text("f_6050:batch_2ddriver_2escm"),(void*)f_6050}, {C_text("f_6053:batch_2ddriver_2escm"),(void*)f_6053}, {C_text("f_6056:batch_2ddriver_2escm"),(void*)f_6056}, {C_text("f_6068:batch_2ddriver_2escm"),(void*)f_6068}, {C_text("f_6071:batch_2ddriver_2escm"),(void*)f_6071}, {C_text("f_6075:batch_2ddriver_2escm"),(void*)f_6075}, {C_text("f_6084:batch_2ddriver_2escm"),(void*)f_6084}, {C_text("f_6087:batch_2ddriver_2escm"),(void*)f_6087}, {C_text("f_6090:batch_2ddriver_2escm"),(void*)f_6090}, {C_text("f_6096:batch_2ddriver_2escm"),(void*)f_6096}, {C_text("f_6128:batch_2ddriver_2escm"),(void*)f_6128}, {C_text("f_6134:batch_2ddriver_2escm"),(void*)f_6134}, {C_text("f_6139:batch_2ddriver_2escm"),(void*)f_6139}, {C_text("f_6148:batch_2ddriver_2escm"),(void*)f_6148}, {C_text("f_6154:batch_2ddriver_2escm"),(void*)f_6154}, {C_text("f_6163:batch_2ddriver_2escm"),(void*)f_6163}, {C_text("f_6167:batch_2ddriver_2escm"),(void*)f_6167}, {C_text("f_6173:batch_2ddriver_2escm"),(void*)f_6173}, {C_text("f_6176:batch_2ddriver_2escm"),(void*)f_6176}, {C_text("f_6181:batch_2ddriver_2escm"),(void*)f_6181}, {C_text("f_6184:batch_2ddriver_2escm"),(void*)f_6184}, {C_text("f_6187:batch_2ddriver_2escm"),(void*)f_6187}, {C_text("f_6190:batch_2ddriver_2escm"),(void*)f_6190}, {C_text("f_6193:batch_2ddriver_2escm"),(void*)f_6193}, {C_text("f_6196:batch_2ddriver_2escm"),(void*)f_6196}, {C_text("f_6199:batch_2ddriver_2escm"),(void*)f_6199}, {C_text("f_6202:batch_2ddriver_2escm"),(void*)f_6202}, {C_text("f_6208:batch_2ddriver_2escm"),(void*)f_6208}, {C_text("f_6218:batch_2ddriver_2escm"),(void*)f_6218}, {C_text("f_6231:batch_2ddriver_2escm"),(void*)f_6231}, {C_text("f_6241:batch_2ddriver_2escm"),(void*)f_6241}, {C_text("f_6260:batch_2ddriver_2escm"),(void*)f_6260}, {C_text("f_6272:batch_2ddriver_2escm"),(void*)f_6272}, {C_text("f_6283:batch_2ddriver_2escm"),(void*)f_6283}, {C_text("f_6293:batch_2ddriver_2escm"),(void*)f_6293}, {C_text("f_6309:batch_2ddriver_2escm"),(void*)f_6309}, {C_text("f_6315:batch_2ddriver_2escm"),(void*)f_6315}, {C_text("f_6322:batch_2ddriver_2escm"),(void*)f_6322}, {C_text("f_6330:batch_2ddriver_2escm"),(void*)f_6330}, {C_text("f_6340:batch_2ddriver_2escm"),(void*)f_6340}, {C_text("f_6354:batch_2ddriver_2escm"),(void*)f_6354}, {C_text("f_6367:batch_2ddriver_2escm"),(void*)f_6367}, {C_text("f_6369:batch_2ddriver_2escm"),(void*)f_6369}, {C_text("f_6405:batch_2ddriver_2escm"),(void*)f_6405}, {C_text("f_6409:batch_2ddriver_2escm"),(void*)f_6409}, {C_text("f_6413:batch_2ddriver_2escm"),(void*)f_6413}, {C_text("f_6416:batch_2ddriver_2escm"),(void*)f_6416}, {C_text("f_6419:batch_2ddriver_2escm"),(void*)f_6419}, {C_text("f_6429:batch_2ddriver_2escm"),(void*)f_6429}, {C_text("f_6434:batch_2ddriver_2escm"),(void*)f_6434}, {C_text("f_6459:batch_2ddriver_2escm"),(void*)f_6459}, {C_text("f_6474:batch_2ddriver_2escm"),(void*)f_6474}, {C_text("f_6480:batch_2ddriver_2escm"),(void*)f_6480}, {C_text("f_6491:batch_2ddriver_2escm"),(void*)f_6491}, {C_text("f_6495:batch_2ddriver_2escm"),(void*)f_6495}, {C_text("f_6503:batch_2ddriver_2escm"),(void*)f_6503}, {C_text("f_6506:batch_2ddriver_2escm"),(void*)f_6506}, {C_text("f_6509:batch_2ddriver_2escm"),(void*)f_6509}, {C_text("f_6512:batch_2ddriver_2escm"),(void*)f_6512}, {C_text("f_6529:batch_2ddriver_2escm"),(void*)f_6529}, {C_text("f_6539:batch_2ddriver_2escm"),(void*)f_6539}, {C_text("f_6553:batch_2ddriver_2escm"),(void*)f_6553}, {C_text("f_6559:batch_2ddriver_2escm"),(void*)f_6559}, {C_text("f_6572:batch_2ddriver_2escm"),(void*)f_6572}, {C_text("f_6578:batch_2ddriver_2escm"),(void*)f_6578}, {C_text("f_6581:batch_2ddriver_2escm"),(void*)f_6581}, {C_text("f_6584:batch_2ddriver_2escm"),(void*)f_6584}, {C_text("f_6588:batch_2ddriver_2escm"),(void*)f_6588}, {C_text("f_6595:batch_2ddriver_2escm"),(void*)f_6595}, {C_text("f_6597:batch_2ddriver_2escm"),(void*)f_6597}, {C_text("f_6622:batch_2ddriver_2escm"),(void*)f_6622}, {C_text("f_6639:batch_2ddriver_2escm"),(void*)f_6639}, {C_text("f_6645:batch_2ddriver_2escm"),(void*)f_6645}, {C_text("f_6648:batch_2ddriver_2escm"),(void*)f_6648}, {C_text("f_6651:batch_2ddriver_2escm"),(void*)f_6651}, {C_text("f_6654:batch_2ddriver_2escm"),(void*)f_6654}, {C_text("f_6658:batch_2ddriver_2escm"),(void*)f_6658}, {C_text("f_6668:batch_2ddriver_2escm"),(void*)f_6668}, {C_text("f_6670:batch_2ddriver_2escm"),(void*)f_6670}, {C_text("f_6695:batch_2ddriver_2escm"),(void*)f_6695}, {C_text("f_6713:batch_2ddriver_2escm"),(void*)f_6713}, {C_text("f_6715:batch_2ddriver_2escm"),(void*)f_6715}, {C_text("f_6729:batch_2ddriver_2escm"),(void*)f_6729}, {C_text("f_6748:batch_2ddriver_2escm"),(void*)f_6748}, {C_text("f_6750:batch_2ddriver_2escm"),(void*)f_6750}, {C_text("f_6775:batch_2ddriver_2escm"),(void*)f_6775}, {C_text("f_6807:batch_2ddriver_2escm"),(void*)f_6807}, {C_text("f_6822:batch_2ddriver_2escm"),(void*)f_6822}, {C_text("f_6826:batch_2ddriver_2escm"),(void*)f_6826}, {C_text("f_6830:batch_2ddriver_2escm"),(void*)f_6830}, {C_text("f_6856:batch_2ddriver_2escm"),(void*)f_6856}, {C_text("f_6890:batch_2ddriver_2escm"),(void*)f_6890}, {C_text("f_6924:batch_2ddriver_2escm"),(void*)f_6924}, {C_text("f_6949:batch_2ddriver_2escm"),(void*)f_6949}, {C_text("f_6974:batch_2ddriver_2escm"),(void*)f_6974}, {C_text("f_6981:batch_2ddriver_2escm"),(void*)f_6981}, {C_text("f_6991:batch_2ddriver_2escm"),(void*)f_6991}, {C_text("f_6993:batch_2ddriver_2escm"),(void*)f_6993}, {C_text("f_7018:batch_2ddriver_2escm"),(void*)f_7018}, {C_text("f_7028:batch_2ddriver_2escm"),(void*)f_7028}, {C_text("f_7032:batch_2ddriver_2escm"),(void*)f_7032}, {C_text("f_7037:batch_2ddriver_2escm"),(void*)f_7037}, {C_text("f_7048:batch_2ddriver_2escm"),(void*)f_7048}, {C_text("f_7058:batch_2ddriver_2escm"),(void*)f_7058}, {C_text("f_7062:batch_2ddriver_2escm"),(void*)f_7062}, {C_text("f_7072:batch_2ddriver_2escm"),(void*)f_7072}, {C_text("f_7074:batch_2ddriver_2escm"),(void*)f_7074}, {C_text("f_7099:batch_2ddriver_2escm"),(void*)f_7099}, {C_text("f_7108:batch_2ddriver_2escm"),(void*)f_7108}, {C_text("f_7133:batch_2ddriver_2escm"),(void*)f_7133}, {C_text("f_7146:batch_2ddriver_2escm"),(void*)f_7146}, {C_text("f_7149:batch_2ddriver_2escm"),(void*)f_7149}, {C_text("f_7156:batch_2ddriver_2escm"),(void*)f_7156}, {C_text("f_7161:batch_2ddriver_2escm"),(void*)f_7161}, {C_text("f_7167:batch_2ddriver_2escm"),(void*)f_7167}, {C_text("f_7171:batch_2ddriver_2escm"),(void*)f_7171}, {C_text("f_7189:batch_2ddriver_2escm"),(void*)f_7189}, {C_text("f_7196:batch_2ddriver_2escm"),(void*)f_7196}, {C_text("f_7204:batch_2ddriver_2escm"),(void*)f_7204}, {C_text("f_7222:batch_2ddriver_2escm"),(void*)f_7222}, {C_text("f_7228:batch_2ddriver_2escm"),(void*)f_7228}, {C_text("f_7277:batch_2ddriver_2escm"),(void*)f_7277}, {C_text("f_7284:batch_2ddriver_2escm"),(void*)f_7284}, {C_text("f_7300:batch_2ddriver_2escm"),(void*)f_7300}, {C_text("f_7303:batch_2ddriver_2escm"),(void*)f_7303}, {C_text("f_7309:batch_2ddriver_2escm"),(void*)f_7309}, {C_text("f_7311:batch_2ddriver_2escm"),(void*)f_7311}, {C_text("f_7336:batch_2ddriver_2escm"),(void*)f_7336}, {C_text("f_7360:batch_2ddriver_2escm"),(void*)f_7360}, {C_text("f_7367:batch_2ddriver_2escm"),(void*)f_7367}, {C_text("f_7372:batch_2ddriver_2escm"),(void*)f_7372}, {C_text("f_7397:batch_2ddriver_2escm"),(void*)f_7397}, {C_text("f_7408:batch_2ddriver_2escm"),(void*)f_7408}, {C_text("f_7410:batch_2ddriver_2escm"),(void*)f_7410}, {C_text("f_7420:batch_2ddriver_2escm"),(void*)f_7420}, {C_text("f_7433:batch_2ddriver_2escm"),(void*)f_7433}, {C_text("f_7443:batch_2ddriver_2escm"),(void*)f_7443}, {C_text("f_7456:batch_2ddriver_2escm"),(void*)f_7456}, {C_text("f_7464:batch_2ddriver_2escm"),(void*)f_7464}, {C_text("f_7466:batch_2ddriver_2escm"),(void*)f_7466}, {C_text("f_7476:batch_2ddriver_2escm"),(void*)f_7476}, {C_text("f_7489:batch_2ddriver_2escm"),(void*)f_7489}, {C_text("f_7497:batch_2ddriver_2escm"),(void*)f_7497}, {C_text("f_7510:batch_2ddriver_2escm"),(void*)f_7510}, {C_text("f_7519:batch_2ddriver_2escm"),(void*)f_7519}, {C_text("f_7524:batch_2ddriver_2escm"),(void*)f_7524}, {C_text("f_7535:batch_2ddriver_2escm"),(void*)f_7535}, {C_text("f_7545:batch_2ddriver_2escm"),(void*)f_7545}, {C_text("f_7558:batch_2ddriver_2escm"),(void*)f_7558}, {C_text("f_7568:batch_2ddriver_2escm"),(void*)f_7568}, {C_text("f_7613:batch_2ddriver_2escm"),(void*)f_7613}, {C_text("f_7619:batch_2ddriver_2escm"),(void*)f_7619}, {C_text("f_7621:batch_2ddriver_2escm"),(void*)f_7621}, {C_text("f_7646:batch_2ddriver_2escm"),(void*)f_7646}, {C_text("f_7658:batch_2ddriver_2escm"),(void*)f_7658}, {C_text("f_7661:batch_2ddriver_2escm"),(void*)f_7661}, {C_text("f_7664:batch_2ddriver_2escm"),(void*)f_7664}, {C_text("f_7667:batch_2ddriver_2escm"),(void*)f_7667}, {C_text("f_7675:batch_2ddriver_2escm"),(void*)f_7675}, {C_text("f_7683:batch_2ddriver_2escm"),(void*)f_7683}, {C_text("f_7689:batch_2ddriver_2escm"),(void*)f_7689}, {C_text("f_7722:batch_2ddriver_2escm"),(void*)f_7722}, {C_text("f_7725:batch_2ddriver_2escm"),(void*)f_7725}, {C_text("f_7732:batch_2ddriver_2escm"),(void*)f_7732}, {C_text("f_7735:batch_2ddriver_2escm"),(void*)f_7735}, {C_text("f_7738:batch_2ddriver_2escm"),(void*)f_7738}, {C_text("f_7745:batch_2ddriver_2escm"),(void*)f_7745}, {C_text("f_7751:batch_2ddriver_2escm"),(void*)f_7751}, {C_text("f_7755:batch_2ddriver_2escm"),(void*)f_7755}, {C_text("f_7787:batch_2ddriver_2escm"),(void*)f_7787}, {C_text("f_7834:batch_2ddriver_2escm"),(void*)f_7834}, {C_text("f_7859:batch_2ddriver_2escm"),(void*)f_7859}, {C_text("f_7872:batch_2ddriver_2escm"),(void*)f_7872}, {C_text("f_7877:batch_2ddriver_2escm"),(void*)f_7877}, {C_text("f_7893:batch_2ddriver_2escm"),(void*)f_7893}, {C_text("f_7898:batch_2ddriver_2escm"),(void*)f_7898}, {C_text("f_7923:batch_2ddriver_2escm"),(void*)f_7923}, {C_text("f_7934:batch_2ddriver_2escm"),(void*)f_7934}, {C_text("f_7948:batch_2ddriver_2escm"),(void*)f_7948}, {C_text("f_7952:batch_2ddriver_2escm"),(void*)f_7952}, {C_text("f_7969:batch_2ddriver_2escm"),(void*)f_7969}, {C_text("f_7994:batch_2ddriver_2escm"),(void*)f_7994}, {C_text("f_8005:batch_2ddriver_2escm"),(void*)f_8005}, {C_text("f_8009:batch_2ddriver_2escm"),(void*)f_8009}, {C_text("f_8013:batch_2ddriver_2escm"),(void*)f_8013}, {C_text("f_8037:batch_2ddriver_2escm"),(void*)f_8037}, {C_text("f_8048:batch_2ddriver_2escm"),(void*)f_8048}, {C_text("f_8067:batch_2ddriver_2escm"),(void*)f_8067}, {C_text("f_8075:batch_2ddriver_2escm"),(void*)f_8075}, {C_text("f_8082:batch_2ddriver_2escm"),(void*)f_8082}, {C_text("toplevel:batch_2ddriver_2escm"),(void*)C_batch_2ddriver_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.compiler.batch-driver#partition o|hiding unexported module binding: chicken.compiler.batch-driver#span o|hiding unexported module binding: chicken.compiler.batch-driver#take o|hiding unexported module binding: chicken.compiler.batch-driver#drop o|hiding unexported module binding: chicken.compiler.batch-driver#split-at o|hiding unexported module binding: chicken.compiler.batch-driver#append-map o|hiding unexported module binding: chicken.compiler.batch-driver#every o|hiding unexported module binding: chicken.compiler.batch-driver#any o|hiding unexported module binding: chicken.compiler.batch-driver#cons* o|hiding unexported module binding: chicken.compiler.batch-driver#concatenate o|hiding unexported module binding: chicken.compiler.batch-driver#delete o|hiding unexported module binding: chicken.compiler.batch-driver#first o|hiding unexported module binding: chicken.compiler.batch-driver#second o|hiding unexported module binding: chicken.compiler.batch-driver#third o|hiding unexported module binding: chicken.compiler.batch-driver#fourth o|hiding unexported module binding: chicken.compiler.batch-driver#fifth o|hiding unexported module binding: chicken.compiler.batch-driver#delete-duplicates o|hiding unexported module binding: chicken.compiler.batch-driver#alist-cons o|hiding unexported module binding: chicken.compiler.batch-driver#filter o|hiding unexported module binding: chicken.compiler.batch-driver#filter-map o|hiding unexported module binding: chicken.compiler.batch-driver#remove o|hiding unexported module binding: chicken.compiler.batch-driver#unzip1 o|hiding unexported module binding: chicken.compiler.batch-driver#last o|hiding unexported module binding: chicken.compiler.batch-driver#list-index o|hiding unexported module binding: chicken.compiler.batch-driver#lset-adjoin/eq? o|hiding unexported module binding: chicken.compiler.batch-driver#lset-difference/eq? o|hiding unexported module binding: chicken.compiler.batch-driver#lset-union/eq? o|hiding unexported module binding: chicken.compiler.batch-driver#lset-intersection/eq? o|hiding unexported module binding: chicken.compiler.batch-driver#list-tabulate o|hiding unexported module binding: chicken.compiler.batch-driver#lset<=/eq? o|hiding unexported module binding: chicken.compiler.batch-driver#lset=/eq? o|hiding unexported module binding: chicken.compiler.batch-driver#length+ o|hiding unexported module binding: chicken.compiler.batch-driver#find o|hiding unexported module binding: chicken.compiler.batch-driver#find-tail o|hiding unexported module binding: chicken.compiler.batch-driver#iota o|hiding unexported module binding: chicken.compiler.batch-driver#make-list o|hiding unexported module binding: chicken.compiler.batch-driver#posq o|hiding unexported module binding: chicken.compiler.batch-driver#posv o|hiding unexported module binding: chicken.compiler.batch-driver#print-program-statistics o|hiding unexported module binding: chicken.compiler.batch-driver#initialize-analysis-database o|hiding unexported module binding: chicken.compiler.batch-driver#display-analysis-database S|applied compiler syntax: S| chicken.format#sprintf 2 S| scheme#for-each 15 S| chicken.format#printf 17 S| chicken.base#foldl 3 S| scheme#map 20 S| chicken.base#foldr 3 o|eliminated procedure checks: 192 o|folded constant expression: (scheme#* (quote 1024) (quote 1024)) o|specializations: o| 1 (scheme#current-output-port) o| 5 (chicken.base#add1 *) o| 2 (scheme#string=? string string) o| 1 (scheme#string-append string string) o| 4 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 1 (scheme#< fixnum fixnum) o| 1 (scheme#- fixnum fixnum) o| 66 (scheme#memq * list) o| 36 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 19 (##sys#check-output-port * * *) o| 1 (scheme#eqv? * *) o| 6 (##sys#check-list (or pair list) *) o| 27 (scheme#cdr pair) o| 10 (scheme#car pair) (o e)|safe calls: 676 (o e)|assignments to immediate values: 5 o|safe globals: (chicken.compiler.batch-driver#compile-source-file chicken.compiler.batch-driver#display-analysis-database chicken.compiler.batch-driver#initialize-analysis-database chicken.compiler.batch-driver#print-program-statistics chicken.compiler.batch-driver#posv chicken.compiler.batch-driver#posq chicken.compiler.batch-driver#make-list chicken.compiler.batch-driver#iota chicken.compiler.batch-driver#find-tail chicken.compiler.batch-driver#find chicken.compiler.batch-driver#length+ chicken.compiler.batch-driver#lset=/eq? chicken.compiler.batch-driver#lset<=/eq? chicken.compiler.batch-driver#list-tabulate chicken.compiler.batch-driver#lset-intersection/eq? chicken.compiler.batch-driver#lset-union/eq? chicken.compiler.batch-driver#lset-difference/eq? chicken.compiler.batch-driver#lset-adjoin/eq? chicken.compiler.batch-driver#list-index chicken.compiler.batch-driver#last chicken.compiler.batch-driver#unzip1 chicken.compiler.batch-driver#remove chicken.compiler.batch-driver#filter-map chicken.compiler.batch-driver#filter chicken.compiler.batch-driver#alist-cons chicken.compiler.batch-driver#delete-duplicates chicken.compiler.batch-driver#fifth chicken.compiler.batch-driver#fourth chicken.compiler.batch-driver#third chicken.compiler.batch-driver#second chicken.compiler.batch-driver#first chicken.compiler.batch-driver#delete chicken.compiler.batch-driver#concatenate chicken.compiler.batch-driver#cons* chicken.compiler.batch-driver#any chicken.compiler.batch-driver#every chicken.compiler.batch-driver#append-map chicken.compiler.batch-driver#split-at chicken.compiler.batch-driver#drop chicken.compiler.batch-driver#take chicken.compiler.batch-driver#span chicken.compiler.batch-driver#partition) o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#partition o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#span o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#drop o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#split-at o|merged explicitly consed rest parameter: lsts237 o|inlining procedure: k2917 o|inlining procedure: k2932 o|inlining procedure: k2932 o|inlining procedure: k2917 o|inlining procedure: k2972 o|inlining procedure: k2972 o|inlining procedure: k3004 o|contracted procedure: "(mini-srfi-1.scm:77) g290299" o|inlining procedure: k3004 o|inlining procedure: k3053 o|contracted procedure: "(mini-srfi-1.scm:76) g263272" o|inlining procedure: k3053 o|inlining procedure: k3096 o|inlining procedure: k3096 o|inlining procedure: k3127 o|inlining procedure: k3127 o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#cons* o|inlining procedure: k3185 o|inlining procedure: k3185 o|inlining procedure: k3213 o|inlining procedure: k3213 o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#second o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#third o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#fourth o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#fifth o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#delete-duplicates o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#alist-cons o|inlining procedure: k3344 o|inlining procedure: k3344 o|inlining procedure: k3336 o|inlining procedure: k3336 o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#filter-map o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#unzip1 o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#last o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#list-index o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#lset-union/eq? o|inlining procedure: k3735 o|inlining procedure: k3735 o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#lset<=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#lset=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#length+ o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#find o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#find-tail o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#iota o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#make-list o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#posq o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#posv o|inlining procedure: k4095 o|inlining procedure: k4135 o|contracted procedure: "(batch-driver.scm:97) g776783" o|inlining procedure: k4135 o|propagated global variable: g782784 chicken.compiler.core#internal-bindings o|inlining procedure: k4158 o|contracted procedure: "(batch-driver.scm:93) g758765" o|inlining procedure: k4158 o|propagated global variable: g764766 chicken.compiler.core#extended-bindings o|inlining procedure: k4181 o|contracted procedure: "(batch-driver.scm:89) g740747" o|inlining procedure: k4181 o|propagated global variable: g746748 chicken.compiler.core#standard-bindings o|inlining procedure: k4095 o|inlining procedure: k4213 o|inlining procedure: k4213 o|inlining procedure: k4275 o|contracted procedure: "(batch-driver.scm:164) g946953" o|propagated global variable: out956959 ##sys#standard-output o|substituted constant variable: a4246 o|substituted constant variable: a4247 o|propagated global variable: out956959 ##sys#standard-output o|inlining procedure: k4275 o|propagated global variable: out930933 ##sys#standard-output o|substituted constant variable: a4299 o|substituted constant variable: a4300 o|propagated global variable: out930933 ##sys#standard-output o|propagated global variable: out937940 ##sys#standard-output o|substituted constant variable: a4326 o|substituted constant variable: a4327 o|inlining procedure: k4319 o|propagated global variable: out937940 ##sys#standard-output o|inlining procedure: k4319 o|propagated global variable: out919922 ##sys#standard-output o|substituted constant variable: a4364 o|substituted constant variable: a4365 o|propagated global variable: out919922 ##sys#standard-output o|propagated global variable: out913916 ##sys#standard-output o|substituted constant variable: a4380 o|substituted constant variable: a4381 o|propagated global variable: out913916 ##sys#standard-output o|inlining procedure: k4395 o|propagated global variable: out873876 ##sys#standard-output o|substituted constant variable: a4419 o|substituted constant variable: a4420 o|substituted constant variable: names795 o|propagated global variable: out873876 ##sys#standard-output o|inlining procedure: k4439 o|inlining procedure: k4439 o|inlining procedure: k4452 o|inlining procedure: k4452 o|inlining procedure: k4462 o|inlining procedure: k4462 o|propagated global variable: out903906 ##sys#standard-output o|substituted constant variable: a4498 o|substituted constant variable: a4499 o|inlining procedure: k4488 o|propagated global variable: out903906 ##sys#standard-output o|inlining procedure: k4488 o|inlining procedure: k4530 o|inlining procedure: k4530 o|substituted constant variable: a4546 o|substituted constant variable: a4548 o|inlining procedure: k4552 o|inlining procedure: k4552 o|inlining procedure: k4564 o|inlining procedure: k4564 o|inlining procedure: k4576 o|inlining procedure: k4576 o|inlining procedure: k4588 o|inlining procedure: k4588 o|substituted constant variable: a4595 o|substituted constant variable: a4597 o|substituted constant variable: a4599 o|substituted constant variable: a4601 o|substituted constant variable: a4603 o|substituted constant variable: a4605 o|substituted constant variable: a4607 o|substituted constant variable: a4609 o|substituted constant variable: a4611 o|substituted constant variable: a4613 o|substituted constant variable: a4615 o|substituted constant variable: a4617 o|substituted constant variable: a4619 o|inlining procedure: k4623 o|inlining procedure: k4623 o|inlining procedure: k4635 o|inlining procedure: k4635 o|inlining procedure: k4647 o|inlining procedure: k4647 o|inlining procedure: k4659 o|inlining procedure: k4659 o|inlining procedure: k4671 o|inlining procedure: k4671 o|inlining procedure: k4683 o|inlining procedure: k4683 o|inlining procedure: k4695 o|inlining procedure: k4695 o|inlining procedure: k4707 o|inlining procedure: k4707 o|inlining procedure: k4719 o|inlining procedure: k4719 o|inlining procedure: k4731 o|inlining procedure: k4731 o|substituted constant variable: a4738 o|substituted constant variable: a4740 o|substituted constant variable: a4742 o|substituted constant variable: a4744 o|substituted constant variable: a4746 o|substituted constant variable: a4748 o|substituted constant variable: a4750 o|substituted constant variable: a4752 o|substituted constant variable: a4754 o|substituted constant variable: a4756 o|substituted constant variable: a4758 o|substituted constant variable: a4760 o|substituted constant variable: a4762 o|substituted constant variable: a4764 o|substituted constant variable: a4766 o|substituted constant variable: a4768 o|substituted constant variable: a4770 o|substituted constant variable: a4772 o|substituted constant variable: a4774 o|substituted constant variable: a4776 o|substituted constant variable: a4778 o|inlining procedure: k4395 o|inlining procedure: k4789 o|inlining procedure: k4789 o|substituted constant variable: a4820 o|substituted constant variable: a4823 o|substituted constant variable: a4832 o|substituted constant variable: a4834 o|substituted constant variable: a4839 o|substituted constant variable: a4841 o|substituted constant variable: a4861 o|substituted constant variable: a4866 o|substituted constant variable: a4871 o|substituted constant variable: a4873 o|substituted constant variable: a4875 o|substituted constant variable: a4877 o|substituted constant variable: a4879 o|substituted constant variable: a4881 o|substituted constant variable: a4886 o|merged explicitly consed rest parameter: args1113 o|propagated global variable: out11171120 ##sys#standard-output o|substituted constant variable: a4920 o|substituted constant variable: a4921 o|inlining procedure: k4913 o|propagated global variable: out11171120 ##sys#standard-output o|inlining procedure: k4913 o|inlining procedure: k4937 o|inlining procedure: k4937 o|propagated global variable: out11341137 ##sys#standard-output o|substituted constant variable: a4966 o|substituted constant variable: a4967 o|inlining procedure: k4959 o|propagated global variable: out11341137 ##sys#standard-output o|inlining procedure: k4959 o|inlining procedure: k4986 o|inlining procedure: k5009 o|contracted procedure: "(batch-driver.scm:275) g11491156" o|inlining procedure: k5009 o|inlining procedure: k4986 o|substituted constant variable: a5036 o|inlining procedure: k5040 o|inlining procedure: k5040 o|inlining procedure: k5055 o|inlining procedure: k5055 o|substituted constant variable: a5102 o|substituted constant variable: a5104 o|substituted constant variable: a5109 o|substituted constant variable: a5111 o|substituted constant variable: a5113 o|inlining procedure: k5126 o|inlining procedure: k5126 o|inlining procedure: k5152 o|inlining procedure: "(batch-driver.scm:298) cputime1073" o|inlining procedure: k5152 o|propagated global variable: out11971200 ##sys#standard-output o|substituted constant variable: a5166 o|substituted constant variable: a5167 o|inlining procedure: k5162 o|inlining procedure: "(batch-driver.scm:304) cputime1073" o|propagated global variable: out11971200 ##sys#standard-output o|inlining procedure: k5162 o|merged explicitly consed rest parameter: args1208 o|inlining procedure: k5207 o|propagated global variable: g12331234 chicken.compiler.support#db-get o|propagated global variable: g12471248 chicken.compiler.support#db-put! o|inlining procedure: k5207 o|inlining procedure: k5235 o|inlining procedure: k5235 o|substituted constant variable: a5274 o|substituted constant variable: a5378 o|substituted constant variable: a5383 o|substituted constant variable: a5388 o|substituted constant variable: a5393 o|substituted constant variable: a5532 o|substituted constant variable: a5556 o|inlining procedure: k5553 o|inlining procedure: k5553 o|substituted constant variable: a5567 o|substituted constant variable: a5578 o|inlining procedure: k5575 o|inlining procedure: k5575 o|inlining procedure: k5805 o|inlining procedure: k5820 o|inlining procedure: k5820 o|inlining procedure: k5838 o|inlining procedure: k5838 o|inlining procedure: k5860 o|inlining procedure: k5860 o|consed rest parameter at call site: "(batch-driver.scm:788) analyze1083" 3 o|inlining procedure: k5805 o|consed rest parameter at call site: "(batch-driver.scm:858) dribble1074" 2 o|consed rest parameter at call site: "(batch-driver.scm:849) dribble1074" 2 o|propagated global variable: g21362137 chicken.pretty-print#pp o|consed rest parameter at call site: "(batch-driver.scm:842) dribble1074" 2 o|inlining procedure: "(batch-driver.scm:829) cputime1073" o|consed rest parameter at call site: "(batch-driver.scm:819) dribble1074" 2 o|inlining procedure: k6057 o|inlining procedure: k6057 o|contracted procedure: "(batch-driver.scm:762) chicken.compiler.batch-driver#print-program-statistics" o|propagated global variable: out686689 ##sys#standard-output o|substituted constant variable: a4015 o|substituted constant variable: a4016 o|propagated global variable: out695698 ##sys#standard-output o|substituted constant variable: a4033 o|substituted constant variable: a4034 o|propagated global variable: out702705 ##sys#standard-output o|substituted constant variable: a4045 o|substituted constant variable: a4046 o|propagated global variable: out709712 ##sys#standard-output o|substituted constant variable: a4057 o|substituted constant variable: a4058 o|propagated global variable: out716719 ##sys#standard-output o|substituted constant variable: a4069 o|substituted constant variable: a4070 o|propagated global variable: out723726 ##sys#standard-output o|substituted constant variable: a4081 o|substituted constant variable: a4082 o|inlining procedure: k4008 o|propagated global variable: out723726 ##sys#standard-output o|propagated global variable: out716719 ##sys#standard-output o|propagated global variable: out709712 ##sys#standard-output o|propagated global variable: out702705 ##sys#standard-output o|propagated global variable: out695698 ##sys#standard-output o|propagated global variable: out686689 ##sys#standard-output o|inlining procedure: k4008 o|inlining procedure: k6091 o|consed rest parameter at call site: "(batch-driver.scm:755) dribble1074" 2 o|inlining procedure: k6091 o|consed rest parameter at call site: "(batch-driver.scm:745) analyze1083" 3 o|contracted procedure: "(batch-driver.scm:729) chicken.compiler.batch-driver#first" o|inlining procedure: k6200 o|inlining procedure: k6200 o|consed rest parameter at call site: "(batch-driver.scm:710) analyze1083" 3 o|inlining procedure: k6210 o|contracted procedure: "(batch-driver.scm:702) g20512058" o|inlining procedure: k6210 o|inlining procedure: k6233 o|contracted procedure: "(batch-driver.scm:697) g20302037" o|inlining procedure: k6140 o|inlining procedure: k6140 o|inlining procedure: k6233 o|substituted constant variable: a6253 o|inlining procedure: k6255 o|inlining procedure: k6255 o|consed rest parameter at call site: "(batch-driver.scm:686) dribble1074" 2 o|inlining procedure: k6285 o|inlining procedure: k6285 o|inlining procedure: k6310 o|consed rest parameter at call site: "(batch-driver.scm:678) dribble1074" 2 o|inlining procedure: k6310 o|inlining procedure: k6332 o|inlining procedure: k6332 o|inlining procedure: k6371 o|inlining procedure: k6371 o|inlining procedure: k6436 o|inlining procedure: k6436 o|consed rest parameter at call site: "(batch-driver.scm:655) dribble1074" 2 o|substituted constant variable: a6467 o|inlining procedure: k6531 o|contracted procedure: "(batch-driver.scm:636) g18971904" o|propagated global variable: out19071910 ##sys#standard-output o|substituted constant variable: a6499 o|substituted constant variable: a6500 o|propagated global variable: out19071910 ##sys#standard-output o|inlining procedure: k6531 o|propagated global variable: g19031905 chicken.compiler.compiler-syntax#compiler-syntax-statistics o|inlining procedure: k6554 o|substituted constant variable: a6574 o|substituted constant variable: a6575 o|inlining procedure: k6599 o|inlining procedure: k6599 o|substituted constant variable: a6641 o|substituted constant variable: a6642 o|inlining procedure: k6672 o|inlining procedure: k6672 o|inlining procedure: k6704 o|inlining procedure: k6704 o|contracted procedure: "(batch-driver.scm:621) chicken.compiler.batch-driver#lset-intersection/eq?" o|inlining procedure: k6554 o|propagated global variable: g18121813 chicken.load#find-dynamic-extension o|contracted procedure: "(batch-driver.scm:620) chicken.compiler.batch-driver#remove" o|inlining procedure: k6752 o|contracted procedure: "(batch-driver.scm:616) g17851794" o|inlining procedure: k6752 o|propagated global variable: g17911795 chicken.compiler.core#import-libraries o|inlining procedure: k6832 o|inlining procedure: k6832 o|inlining procedure: k6839 o|inlining procedure: k6839 o|inlining procedure: k6858 o|contracted procedure: "(batch-driver.scm:600) g17481757" o|inlining procedure: k6858 o|propagated global variable: g17541758 chicken.compiler.core#used-units o|inlining procedure: k6892 o|contracted procedure: "(batch-driver.scm:599) g17181727" o|inlining procedure: k6892 o|propagated global variable: g17241728 chicken.compiler.core#immutable-constants o|inlining procedure: k6926 o|inlining procedure: k6926 o|inlining procedure: k6995 o|inlining procedure: k6995 o|consed rest parameter at call site: "(batch-driver.scm:583) dribble1074" 2 o|consed rest parameter at call site: "(batch-driver.scm:560) dribble1074" 2 o|inlining procedure: k7039 o|inlining procedure: k7076 o|inlining procedure: k7076 o|inlining procedure: k7110 o|inlining procedure: k7110 o|inlining procedure: k7039 o|inlining procedure: k7172 o|inlining procedure: k7172 o|inlining procedure: "(batch-driver.scm:547) cputime1073" o|consed rest parameter at call site: "(batch-driver.scm:542) dribble1074" 2 o|substituted constant variable: a7205 o|inlining procedure: k7207 o|substituted constant variable: a7210 o|inlining procedure: k7207 o|substituted constant variable: a7215 o|consed rest parameter at call site: "(batch-driver.scm:521) dribble1074" 2 o|inlining procedure: k7233 o|consed rest parameter at call site: "(batch-driver.scm:521) dribble1074" 2 o|inlining procedure: k7233 o|consed rest parameter at call site: "(batch-driver.scm:521) dribble1074" 2 o|inlining procedure: k7237 o|inlining procedure: k7237 o|consed rest parameter at call site: "(batch-driver.scm:503) dribble1074" 2 o|inlining procedure: k7254 o|consed rest parameter at call site: "(batch-driver.scm:503) dribble1074" 2 o|inlining procedure: k7254 o|consed rest parameter at call site: "(batch-driver.scm:503) dribble1074" 2 o|substituted constant variable: a7257 o|substituted constant variable: a7269 o|substituted constant variable: a7285 o|inlining procedure: k7313 o|contracted procedure: "(batch-driver.scm:483) g15091518" o|inlining procedure: k7313 o|inlining procedure: k7374 o|inlining procedure: k7374 o|consed rest parameter at call site: "(batch-driver.scm:472) chicken.compiler.batch-driver#append-map" 3 o|inlining procedure: k7412 o|contracted procedure: "(batch-driver.scm:461) g14521459" o|inlining procedure: k5476 o|inlining procedure: k5476 o|inlining procedure: k7412 o|consed rest parameter at call site: "(batch-driver.scm:460) dribble1074" 2 o|inlining procedure: k7435 o|inlining procedure: k7435 o|propagated global variable: g14411442 chicken.string#string-split o|consed rest parameter at call site: "(batch-driver.scm:455) chicken.compiler.batch-driver#append-map" 3 o|inlining procedure: k7468 o|inlining procedure: k7468 o|propagated global variable: g14261427 chicken.string#string-split o|consed rest parameter at call site: "(batch-driver.scm:452) chicken.compiler.batch-driver#append-map" 3 o|substituted constant variable: a7504 o|inlining procedure: k7537 o|contracted procedure: "(batch-driver.scm:442) g14011408" o|inlining procedure: k7537 o|propagated global variable: g14071409 chicken.compiler.core#default-extended-bindings o|inlining procedure: k7560 o|contracted procedure: "(batch-driver.scm:437) g13821389" o|inlining procedure: k7560 o|propagated global variable: g13881390 chicken.compiler.core#default-standard-bindings o|substituted constant variable: a7580 o|substituted constant variable: a7583 o|substituted constant variable: a7586 o|substituted constant variable: a7589 o|substituted constant variable: a7592 o|inlining procedure: k7601 o|inlining procedure: k7601 o|inlining procedure: k7623 o|inlining procedure: k7623 o|substituted constant variable: a7654 o|consed rest parameter at call site: "(batch-driver.scm:413) dribble1074" 2 o|substituted constant variable: a7671 o|consed rest parameter at call site: "(batch-driver.scm:410) dribble1074" 2 o|substituted constant variable: a7679 o|consed rest parameter at call site: "(batch-driver.scm:407) dribble1074" 2 o|inlining procedure: k7690 o|inlining procedure: k7690 o|substituted constant variable: a7702 o|substituted constant variable: a7710 o|inlining procedure: k7707 o|inlining procedure: k7707 o|substituted constant variable: a7718 o|consed rest parameter at call site: "(batch-driver.scm:396) dribble1074" 2 o|inlining procedure: k7736 o|inlining procedure: k7736 o|substituted constant variable: a7756 o|substituted constant variable: a7759 o|substituted constant variable: a7762 o|substituted constant variable: a7765 o|substituted constant variable: a7768 o|substituted constant variable: a7771 o|substituted constant variable: a7774 o|substituted constant variable: a7777 o|substituted constant variable: a7780 o|substituted constant variable: a7783 o|consed rest parameter at call site: "(batch-driver.scm:365) dribble1074" 2 o|substituted constant variable: a7790 o|substituted constant variable: a7795 o|substituted constant variable: a7799 o|substituted constant variable: a7802 o|substituted constant variable: a7805 o|substituted constant variable: a7808 o|substituted constant variable: a7828 o|inlining procedure: k7824 o|inlining procedure: k7824 o|inlining procedure: k7836 o|contracted procedure: "(batch-driver.scm:335) g12981307" o|substituted constant variable: a5305 o|inlining procedure: k7836 o|inlining procedure: k7900 o|contracted procedure: "(batch-driver.scm:327) g12701279" o|inlining procedure: k7900 o|consed rest parameter at call site: "(batch-driver.scm:325) chicken.compiler.batch-driver#append-map" 3 o|substituted constant variable: a7935 o|propagated global variable: tmp12571259 chicken.compiler.core#unit-name o|inlining procedure: k7941 o|propagated global variable: tmp12571259 chicken.compiler.core#unit-name o|inlining procedure: k7941 o|substituted constant variable: a7956 o|substituted constant variable: a7961 o|inlining procedure: k7963 o|inlining procedure: k7963 o|substituted constant variable: a7966 o|inlining procedure: k7971 o|inlining procedure: k7971 o|inlining procedure: k8006 o|inlining procedure: k8006 o|inlining procedure: k8014 o|inlining procedure: k8014 o|substituted constant variable: a8029 o|inlining procedure: k8026 o|inlining procedure: k8026 o|inlining procedure: k8035 o|inlining procedure: k8035 o|inlining procedure: k8054 o|inlining procedure: k8054 o|inlining procedure: k8077 o|inlining procedure: k8077 o|inlining procedure: k8083 o|inlining procedure: k8092 o|inlining procedure: k8092 o|inlining procedure: k8083 o|substituted constant variable: a8108 o|substituted constant variable: a8115 o|replaced variables: 692 o|removed binding forms: 526 o|substituted constant variable: r29338119 o|substituted constant variable: r29738121 o|contracted procedure: "(mini-srfi-1.scm:74) chicken.compiler.batch-driver#any" o|substituted constant variable: r31288129 o|substituted constant variable: r31868131 o|substituted constant variable: r33378138 o|removed side-effect free assignment to unused variable: chicken.compiler.batch-driver#list-tabulate o|propagated global variable: out956959 ##sys#standard-output o|inlining procedure: k4234 o|propagated global variable: out930933 ##sys#standard-output o|propagated global variable: out937940 ##sys#standard-output o|propagated global variable: out919922 ##sys#standard-output o|propagated global variable: out913916 ##sys#standard-output o|propagated global variable: out873876 ##sys#standard-output o|propagated global variable: out903906 ##sys#standard-output o|removed side-effect free assignment to unused variable: cputime1073 o|propagated global variable: out11171120 ##sys#standard-output o|substituted constant variable: r49148201 o|substituted constant variable: r49148202 o|propagated global variable: out11341137 ##sys#standard-output o|substituted constant variable: r51278216 o|propagated global variable: out11971200 ##sys#standard-output o|propagated global variable: out686689 ##sys#standard-output o|propagated global variable: out695698 ##sys#standard-output o|propagated global variable: out702705 ##sys#standard-output o|propagated global variable: out709712 ##sys#standard-output o|propagated global variable: out716719 ##sys#standard-output o|propagated global variable: out723726 ##sys#standard-output o|substituted constant variable: r63118282 o|propagated global variable: out19071910 ##sys#standard-output o|substituted constant variable: r67058296 o|substituted constant variable: r67058296 o|inlining procedure: k6704 o|inlining procedure: k6704 o|contracted procedure: "(mini-srfi-1.scm:183) chicken.compiler.batch-driver#every" o|substituted constant variable: ls1550 o|substituted constant variable: r65558300 o|substituted constant variable: r68338305 o|substituted constant variable: r68338305 o|inlining procedure: k6839 o|inlining procedure: k6839 o|substituted constant variable: r68408309 o|substituted constant variable: r68408309 o|substituted constant variable: r72348333 o|substituted constant variable: r72348333 o|substituted constant variable: r72348335 o|substituted constant variable: r72348335 o|substituted constant variable: r72388337 o|substituted constant variable: r72388337 o|substituted constant variable: r72388339 o|substituted constant variable: r72388339 o|substituted constant variable: r72558341 o|substituted constant variable: r72558341 o|substituted constant variable: r72558343 o|substituted constant variable: r72558343 o|contracted procedure: "(batch-driver.scm:467) chicken.compiler.batch-driver#delete" o|propagated global variable: lst350 ##sys#features o|substituted constant variable: r76028370 o|substituted constant variable: r78258383 o|propagated global variable: r79428389 chicken.compiler.core#unit-name o|substituted constant variable: r80078399 o|substituted constant variable: r80078399 o|substituted constant variable: r80278403 o|substituted constant variable: r80368407 o|substituted constant variable: r80368407 o|substituted constant variable: r80558409 o|substituted constant variable: r80558409 o|substituted constant variable: r80788413 o|substituted constant variable: r80788413 o|substituted constant variable: r80788415 o|substituted constant variable: r80788415 o|substituted constant variable: r80938419 o|substituted constant variable: r80848420 o|converted assignments to bindings: (option-arg978) o|simplifications: ((let . 1)) o|replaced variables: 22 o|removed binding forms: 842 o|removed conditional forms: 1 o|inlining procedure: k4404 o|inlining procedure: k4404 o|inlining procedure: k4404 o|inlining procedure: k4404 o|inlining procedure: k4404 o|inlining procedure: k4404 o|inlining procedure: k4404 o|inlining procedure: k4404 o|inlining procedure: k5979 o|inlining procedure: k6019 o|substituted constant variable: r68408512 o|inlining procedure: k7240 o|substituted constant variable: x349 o|inlining procedure: k7595 o|inlining procedure: k7595 o|replaced variables: 29 o|removed binding forms: 86 o|substituted constant variable: r60208627 o|substituted constant variable: r67058500 o|substituted constant variable: r67058502 o|substituted constant variable: r72418668 o|substituted constant variable: r75968685 o|substituted constant variable: r75968686 o|replaced variables: 4 o|removed binding forms: 41 o|removed conditional forms: 4 o|removed binding forms: 11 o|simplifications: ((if . 8) (##core#call . 401)) o| call simplifications: o| scheme#string->list o| scheme#string o| scheme#string=? 2 o| scheme#list o| scheme#eof-object? o| ##sys#cons 11 o| ##sys#list 10 o| scheme#> o| ##sys#call-with-values 3 o| scheme#- 2 o| scheme#cddr o| scheme#string-length o| chicken.fixnum#fx< o| scheme#string-ref o| scheme#* 2 o| scheme#cadr 2 o| scheme#symbol? 2 o| scheme#memq 15 o| scheme#cdar 6 o| scheme#caar 3 o| scheme#assq o| scheme#length 2 o| scheme#eq? 46 o| scheme#not 17 o| scheme#null? 15 o| scheme#car 12 o| scheme#apply 2 o| scheme#cdr 5 o| scheme#cons 50 o| ##sys#setslot 19 o| ##sys#check-list 32 o| scheme#pair? 42 o| ##sys#slot 91 o|contracted procedure: k2920 o|contracted procedure: k2923 o|contracted procedure: k2935 o|contracted procedure: k2951 o|contracted procedure: k2959 o|contracted procedure: k2966 o|contracted procedure: k2990 o|contracted procedure: k3007 o|contracted procedure: k3029 o|contracted procedure: k3025 o|contracted procedure: k3010 o|contracted procedure: k3013 o|contracted procedure: k3021 o|contracted procedure: k3036 o|contracted procedure: k3044 o|contracted procedure: k3056 o|contracted procedure: k3078 o|contracted procedure: k3074 o|contracted procedure: k3059 o|contracted procedure: k3062 o|contracted procedure: k3070 o|contracted procedure: k3130 o|contracted procedure: k3145 o|contracted procedure: k3133 o|contracted procedure: k3188 o|contracted procedure: k3195 o|contracted procedure: k3327 o|contracted procedure: k3339 o|contracted procedure: k3357 o|contracted procedure: k3365 o|contracted procedure: k4104 o|contracted procedure: k4115 o|contracted procedure: k4126 o|contracted procedure: k4138 o|contracted procedure: k4148 o|contracted procedure: k4152 o|propagated global variable: g782784 chicken.compiler.core#internal-bindings o|contracted procedure: k4161 o|contracted procedure: k4171 o|contracted procedure: k4175 o|propagated global variable: g764766 chicken.compiler.core#extended-bindings o|contracted procedure: k4184 o|contracted procedure: k4194 o|contracted procedure: k4198 o|propagated global variable: g746748 chicken.compiler.core#standard-bindings o|contracted procedure: k4216 o|contracted procedure: k4240 o|contracted procedure: k4266 o|contracted procedure: k4278 o|contracted procedure: k4288 o|contracted procedure: k4292 o|contracted procedure: k4255 o|contracted procedure: k4308 o|contracted procedure: k4335 o|contracted procedure: k4350 o|contracted procedure: k4357 o|contracted procedure: k4360 o|contracted procedure: k4373 o|contracted procedure: k4376 o|contracted procedure: k4389 o|contracted procedure: k4398 o|contracted procedure: k4401 o|contracted procedure: k4412 o|contracted procedure: k4436 o|contracted procedure: k4432 o|contracted procedure: k4428 o|contracted procedure: k4442 o|contracted procedure: k4449 o|contracted procedure: k4455 o|contracted procedure: k4459 o|contracted procedure: k4465 o|contracted procedure: k4471 o|contracted procedure: k4475 o|contracted procedure: k4481 o|contracted procedure: k4485 o|contracted procedure: k4491 o|contracted procedure: k4513 o|contracted procedure: k4517 o|contracted procedure: k4523 o|contracted procedure: k4527 o|contracted procedure: k4533 o|contracted procedure: k4537 o|contracted procedure: k4549 o|contracted procedure: k4555 o|contracted procedure: k4561 o|contracted procedure: k4567 o|contracted procedure: k4573 o|contracted procedure: k4579 o|contracted procedure: k4585 o|contracted procedure: k4620 o|contracted procedure: k4626 o|contracted procedure: k4632 o|contracted procedure: k4638 o|contracted procedure: k4644 o|contracted procedure: k4650 o|contracted procedure: k4656 o|contracted procedure: k4662 o|contracted procedure: k4668 o|contracted procedure: k4674 o|contracted procedure: k4680 o|contracted procedure: k4686 o|contracted procedure: k4692 o|contracted procedure: k4698 o|contracted procedure: k4704 o|contracted procedure: k4710 o|contracted procedure: k4716 o|contracted procedure: k4722 o|contracted procedure: k4728 o|contracted procedure: k4813 o|contracted procedure: k4792 o|contracted procedure: k4800 o|contracted procedure: k4806 o|contracted procedure: k4826 o|contracted procedure: k8042 o|contracted procedure: k4836 o|contracted procedure: k4846 o|contracted procedure: k4852 o|contracted procedure: k4868 o|contracted procedure: k4916 o|contracted procedure: k5000 o|contracted procedure: k5012 o|contracted procedure: k5022 o|contracted procedure: k5026 o|contracted procedure: k5032 o|contracted procedure: k5046 o|contracted procedure: k5052 o|contracted procedure: k5058 o|contracted procedure: k5061 o|inlining procedure: k5037 o|contracted procedure: k5078 o|contracted procedure: k5081 o|inlining procedure: k5037 o|contracted procedure: k5123 o|contracted procedure: k5143 o|contracted procedure: k5192 o|contracted procedure: k5238 o|contracted procedure: k5244 o|contracted procedure: k5251 o|contracted procedure: k5257 o|contracted procedure: k5284 o|contracted procedure: k5288 o|contracted procedure: k5309 o|contracted procedure: k5446 o|contracted procedure: k5455 o|contracted procedure: k5462 o|contracted procedure: k5488 o|contracted procedure: k5499 o|contracted procedure: k5528 o|contracted procedure: k5593 o|contracted procedure: k5658 o|contracted procedure: k5688 o|contracted procedure: k5906 o|contracted procedure: k5849 o|contracted procedure: k5863 o|inlining procedure: "(batch-driver.scm:858) dribble1074" o|contracted procedure: k5988 o|inlining procedure: "(batch-driver.scm:858) dribble1074" o|inlining procedure: "(batch-driver.scm:849) dribble1074" o|inlining procedure: "(batch-driver.scm:842) dribble1074" o|contracted procedure: k6029 o|contracted procedure: k6019 o|contracted procedure: k6036 o|inlining procedure: "(batch-driver.scm:819) dribble1074" o|contracted procedure: k6063 o|contracted procedure: k6076 o|inlining procedure: "(batch-driver.scm:755) dribble1074" o|contracted procedure: k6100 o|contracted procedure: k6106 o|contracted procedure: k6112 o|contracted procedure: k6122 o|contracted procedure: k6129 o|contracted procedure: k6149 o|contracted procedure: k6168 o|contracted procedure: k6213 o|contracted procedure: k6223 o|contracted procedure: k6227 o|contracted procedure: k6236 o|contracted procedure: k6246 o|contracted procedure: k6250 o|contracted procedure: k6264 o|inlining procedure: "(batch-driver.scm:686) dribble1074" o|contracted procedure: k6276 o|contracted procedure: k6288 o|contracted procedure: k6298 o|contracted procedure: k6302 o|inlining procedure: "(batch-driver.scm:678) dribble1074" o|contracted procedure: k6323 o|contracted procedure: k6335 o|contracted procedure: k6345 o|contracted procedure: k6349 o|contracted procedure: k6359 o|contracted procedure: k6362 o|contracted procedure: k6374 o|contracted procedure: k6396 o|contracted procedure: k6392 o|contracted procedure: k6377 o|contracted procedure: k6380 o|contracted procedure: k6388 o|contracted procedure: k6421 o|contracted procedure: k6424 o|contracted procedure: k6439 o|contracted procedure: k6442 o|contracted procedure: k6445 o|contracted procedure: k6453 o|contracted procedure: k6461 o|inlining procedure: "(batch-driver.scm:655) dribble1074" o|contracted procedure: k6484 o|contracted procedure: k6522 o|contracted procedure: k6534 o|contracted procedure: k6544 o|contracted procedure: k6548 o|contracted procedure: k6519 o|propagated global variable: g19031905 chicken.compiler.compiler-syntax#compiler-syntax-statistics o|contracted procedure: k6563 o|contracted procedure: k6590 o|contracted procedure: k6602 o|contracted procedure: k6605 o|contracted procedure: k6608 o|contracted procedure: k6616 o|contracted procedure: k6624 o|contracted procedure: k6630 o|contracted procedure: k6660 o|contracted procedure: k6663 o|contracted procedure: k6675 o|contracted procedure: k6678 o|contracted procedure: k6681 o|contracted procedure: k6689 o|contracted procedure: k6697 o|contracted procedure: k3093 o|contracted procedure: k3102 o|contracted procedure: k3115 o|contracted procedure: k6720 o|contracted procedure: k6731 o|contracted procedure: k6743 o|contracted procedure: k6755 o|contracted procedure: k6758 o|contracted procedure: k6761 o|contracted procedure: k6769 o|contracted procedure: k6777 o|contracted procedure: k6740 o|propagated global variable: g17911795 chicken.compiler.core#import-libraries o|contracted procedure: k6784 o|contracted procedure: k6802 o|contracted procedure: k6809 o|contracted procedure: k6817 o|contracted procedure: k6842 o|contracted procedure: k6852 o|contracted procedure: k6861 o|contracted procedure: k6883 o|contracted procedure: k6879 o|contracted procedure: k6864 o|contracted procedure: k6867 o|contracted procedure: k6875 o|propagated global variable: g17541758 chicken.compiler.core#used-units o|contracted procedure: k6895 o|contracted procedure: k6898 o|contracted procedure: k6901 o|contracted procedure: k6909 o|contracted procedure: k6917 o|contracted procedure: k6793 o|contracted procedure: k6797 o|propagated global variable: g17241728 chicken.compiler.core#immutable-constants o|contracted procedure: k6929 o|contracted procedure: k6932 o|contracted procedure: k6935 o|contracted procedure: k6943 o|contracted procedure: k6951 o|contracted procedure: k6957 o|contracted procedure: k6976 o|contracted procedure: k6968 o|contracted procedure: k6964 o|contracted procedure: k6983 o|contracted procedure: k6986 o|contracted procedure: k6998 o|contracted procedure: k7001 o|contracted procedure: k7004 o|contracted procedure: k7012 o|contracted procedure: k7020 o|inlining procedure: "(batch-driver.scm:583) dribble1074" o|inlining procedure: "(batch-driver.scm:560) dribble1074" o|contracted procedure: k7042 o|contracted procedure: k7050 o|contracted procedure: k7053 o|contracted procedure: k7064 o|contracted procedure: k7067 o|contracted procedure: k7079 o|contracted procedure: k7082 o|contracted procedure: k7085 o|contracted procedure: k7093 o|contracted procedure: k7101 o|contracted procedure: k7113 o|contracted procedure: k7116 o|contracted procedure: k7119 o|contracted procedure: k7127 o|contracted procedure: k7135 o|contracted procedure: k7141 o|contracted procedure: k7175 o|contracted procedure: k7182 o|contracted procedure: k7198 o|inlining procedure: "(batch-driver.scm:542) dribble1074" o|contracted procedure: k7250 o|contracted procedure: k7217 o|inlining procedure: "(batch-driver.scm:521) dribble1074" o|inlining procedure: "(batch-driver.scm:521) dribble1074" o|contracted procedure: k7240 o|inlining procedure: "(batch-driver.scm:503) dribble1074" o|inlining procedure: "(batch-driver.scm:503) dribble1074" o|contracted procedure: k7262 o|contracted procedure: k7289 o|contracted procedure: k7304 o|contracted procedure: k7316 o|contracted procedure: k7319 o|contracted procedure: k7322 o|contracted procedure: k7330 o|contracted procedure: k7338 o|contracted procedure: k7344 o|contracted procedure: k7356 o|contracted procedure: k7352 o|contracted procedure: k7348 o|contracted procedure: k7362 o|contracted procedure: k7377 o|contracted procedure: k7380 o|contracted procedure: k7383 o|contracted procedure: k7391 o|contracted procedure: k7399 o|contracted procedure: k3216 o|contracted procedure: k3242 o|contracted procedure: k3222 o|contracted procedure: k7415 o|contracted procedure: k7425 o|contracted procedure: k7429 o|contracted procedure: k5482 o|inlining procedure: "(batch-driver.scm:460) dribble1074" o|contracted procedure: k7438 o|contracted procedure: k7448 o|contracted procedure: k7452 o|contracted procedure: k7471 o|contracted procedure: k7481 o|contracted procedure: k7485 o|contracted procedure: k7498 o|contracted procedure: k7514 o|contracted procedure: k7528 o|contracted procedure: k7540 o|contracted procedure: k7550 o|contracted procedure: k7554 o|propagated global variable: g14071409 chicken.compiler.core#default-extended-bindings o|contracted procedure: k7563 o|contracted procedure: k7573 o|contracted procedure: k7577 o|propagated global variable: g13881390 chicken.compiler.core#default-standard-bindings o|contracted procedure: k7595 o|contracted procedure: k7608 o|contracted procedure: k7614 o|contracted procedure: k7626 o|contracted procedure: k7629 o|contracted procedure: k7632 o|contracted procedure: k7640 o|contracted procedure: k7648 o|inlining procedure: "(batch-driver.scm:413) dribble1074" o|inlining procedure: "(batch-driver.scm:410) dribble1074" o|inlining procedure: "(batch-driver.scm:407) dribble1074" o|contracted procedure: k7693 o|inlining procedure: "(batch-driver.scm:396) dribble1074" o|inlining procedure: "(batch-driver.scm:365) dribble1074" o|contracted procedure: k7813 o|contracted procedure: k7817 o|contracted procedure: k7824 o|contracted procedure: k7839 o|contracted procedure: k7842 o|contracted procedure: k7845 o|contracted procedure: k7853 o|contracted procedure: k7861 o|contracted procedure: k7867 o|contracted procedure: k7879 o|contracted procedure: k7903 o|contracted procedure: k7906 o|contracted procedure: k7909 o|contracted procedure: k7917 o|contracted procedure: k7925 o|contracted procedure: k7888 o|contracted procedure: k7974 o|contracted procedure: k7977 o|contracted procedure: k7980 o|contracted procedure: k7988 o|contracted procedure: k7996 o|contracted procedure: k8017 o|contracted procedure: k8050 o|contracted procedure: k8061 o|contracted procedure: k8054 o|contracted procedure: k8069 o|contracted procedure: k8089 o|contracted procedure: k8095 o|contracted procedure: k8105 o|simplifications: ((let . 83)) o|removed binding forms: 360 o|removed side-effect free assignment to unused variable: dribble1074 o|substituted constant variable: fstr11129100 o|substituted constant variable: args11139101 o|substituted constant variable: fstr11129106 o|substituted constant variable: args11139107 o|substituted constant variable: fstr11129112 o|substituted constant variable: fstr11129118 o|substituted constant variable: fstr11129124 o|substituted constant variable: fstr11129130 o|contracted procedure: "(batch-driver.scm:684) g20072014" o|substituted constant variable: fstr11129142 o|contracted procedure: "(batch-driver.scm:674) g19851992" o|substituted constant variable: fstr11129150 o|substituted constant variable: fstr11129162 o|substituted constant variable: args11139163 o|substituted constant variable: fstr11129186 o|substituted constant variable: args11139187 o|substituted constant variable: fstr11129192 o|substituted constant variable: args11139193 o|substituted constant variable: fstr11129206 o|substituted constant variable: fstr11129212 o|substituted constant variable: fstr11129218 o|substituted constant variable: fstr11129224 o|substituted constant variable: fstr11129230 o|substituted constant variable: fstr11129244 o|substituted constant variable: args11139245 o|substituted constant variable: fstr11129260 o|substituted constant variable: args11139261 o|substituted constant variable: fstr11129266 o|substituted constant variable: args11139267 o|substituted constant variable: fstr11129272 o|substituted constant variable: args11139273 o|substituted constant variable: fstr11129278 o|substituted constant variable: args11139279 o|substituted constant variable: fstr11129284 o|substituted constant variable: args11139285 o|replaced variables: 122 o|removed binding forms: 2 o|simplifications: ((if . 2)) o|replaced variables: 1 o|removed binding forms: 104 o|contracted procedure: k6913 o|removed binding forms: 2 o|direct leaf routine/allocation: loop326 0 o|contracted procedure: k2975 o|converted assignments to bindings: (loop326) o|simplifications: ((let . 1)) o|removed binding forms: 1 x|eliminated type checks: x| C_i_check_list_2: 1 o|customizable procedures: (k8073 k8080 k8046 g10061007 map-loop10131033 k4863 k4883 k5264 k5267 map-loop12641282 map-loop12921310 k5315 k5318 k5324 k5327 k5330 k5333 k5336 k5339 k5342 k5345 k5348 k5351 k5354 k5357 k5360 k5363 k5366 k5369 k5372 k5375 k5380 k5385 k5390 k5395 map-loop13531370 k5422 k5425 k5428 k5431 k5434 for-each-loop13811393 for-each-loop14001412 for-each-loop10861428 for-each-loop10961443 for-each-loop14511464 loop352 chicken.compiler.batch-driver#append-map map-loop14741491 k5509 map-loop15031524 k5516 arg-val1079 k5541 k5569 loop1627 doloop15621563 map-loop15671584 map-loop15931610 map-loop16421659 k5649 k5685 g16761685 map-loop16701702 map-loop17121733 map-loop17421763 k6824 map-loop17791797 chicken.compiler.batch-driver#filter loop313 map-loop18271844 map-loop18651882 for-each-loop18961916 print-expr1078 map-loop19251942 chicken.compiler.batch-driver#initialize-analysis-database map-loop19581975 chicken.compiler.batch-driver#concatenate for-each-loop19841998 for-each-loop20062018 collect-options1080 for-each-loop20292043 for-each-loop20502061 k5759 print-db1077 print-node1076 analyze1083 begin-time1081 end-time1082 loop2083 def-no12131252 def-contf12141250 body12111220 g11921193 option-arg978 loop1184 for-each-loop11481160 chicken.compiler.batch-driver#display-analysis-database print-header1075 k4204 k4415 k4494 loop805 k4295 k4322 for-each-loop945962 for-each-loop739750 for-each-loop757768 for-each-loop775786 foldr389392 g394395 loop345 map-loop257275 map-loop284302 loop253 foldr242245 g247248) o|calls to known targets: 385 o|identified direct recursive calls: f_2930 1 o|identified direct recursive calls: f_3125 1 o|identified direct recursive calls: f_3002 1 o|identified direct recursive calls: f_3051 1 o|identified direct recursive calls: f_3183 1 o|identified direct recursive calls: f_3334 1 o|identified direct recursive calls: f_6369 1 o|identified direct recursive calls: f_6856 1 o|identified direct recursive calls: f_6890 1 o|identified direct recursive calls: f_3211 2 o|fast box initializations: 54 o|fast global references: 10 o|fast global assignments: 5 o|dropping unused closure argument: f_2915 o|dropping unused closure argument: f_3125 o|dropping unused closure argument: f_3177 o|dropping unused closure argument: f_3325 o|dropping unused closure argument: f_4787 o|dropping unused closure argument: f_4908 o|dropping unused closure argument: f_5030 */ /* end of file */ chicken-5.1.0/csi.scm0000644000175000017500000011152113502227553014216 0ustar sjamaansjamaan;;;; csi.scm - Interpreter stub for CHICKEN ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (usual-integrations) (disable-interrupts) (fixnum-arithmetic) (always-bound ##sys#windows-platform) (foreign-declare #< #if defined(HAVE_DIRECT_H) # include #else # define _getcwd(buf, len) NULL #endif EOF ) ) (module chicken.csi (editor-command toplevel-command set-describer!) (import scheme chicken.base chicken.condition chicken.fixnum chicken.foreign chicken.format chicken.file chicken.gc chicken.internal chicken.io chicken.keyword chicken.load chicken.pathname chicken.platform chicken.port chicken.pretty-print chicken.process chicken.process-context chicken.repl chicken.sort chicken.string chicken.syntax chicken.time) (include "banner.scm") (include "mini-srfi-1.scm") ;;; Parameters: (define-constant init-file "csirc") (set! ##sys#repl-print-length-limit 2048) (set! ##sys#features (cons #:csi ##sys#features)) (set! ##sys#notices-enabled #t) (define editor-command (make-parameter #f)) (define selected-frame #f) (define default-editor (or (get-environment-variable "EDITOR") (get-environment-variable "VISUAL") (if (get-environment-variable "EMACS") "emacsclient" "vi"))) ; shudder ;;; Print all sorts of information: (define (print-usage) (display #< len 0) (dirseparator? c)) (substring str 0 len) str) ) ) ) ) ;;; Find script in PATH (only used for Windows/DOS): (define lookup-script-file (let* ([buf (make-string 256)] [_getcwd (foreign-lambda nonnull-c-string "_getcwd" scheme-pointer int)] ) (define (addext name) (if (file-exists? name) name (let ([n2 (string-append name ".bat")]) (and (file-exists? n2) n2) ) ) ) (define (string-index proc str1) (let ((len (##sys#size str1))) (let loop ((i 0)) (cond ((fx>= i len) #f) ((proc (##core#inline "C_subchar" str1 i)) i) (else (loop (fx+ i 1))) ) ) ) ) (lambda (name) (let ([path (get-environment-variable "PATH")]) (and (> (##sys#size name) 0) (cond [(dirseparator? (string-ref name 0)) (addext name)] [(string-index dirseparator? name) (let ((p (_getcwd buf 256))) (addext (string-append (chop-separator p) "/" name)) ) ] [(addext name)] [else (let ([name2 (string-append "/" name)]) (let loop ((ps (##sys#split-path path))) (and (pair? ps) (let ([name2 (string-append (chop-separator (##sys#slot ps 0)) name2)]) (or (addext name2) (loop (##sys#slot ps 1)) ) ) ) ) ) ] ) ) ) ) ) ) ;;; REPL history references: (define history-list (make-vector 32)) (define history-count 1) (define history-add (let ([vector-resize vector-resize]) (lambda (vals) (let ([x (if (null? vals) (##sys#void) (##sys#slot vals 0))] [size (##sys#size history-list)] ) (when (fx>= history-count size) (set! history-list (vector-resize history-list (fx* 2 size))) ) (vector-set! history-list history-count x) (set! history-count (fx+ history-count 1)) x) ) ) ) (define (history-clear) (vector-fill! history-list (##sys#void))) (define history-show (let ((newline newline)) (lambda () (do ((i 1 (fx+ i 1))) ((>= i history-count)) (printf "#~a: " i) (##sys#with-print-length-limit 80 (lambda () (##sys#print (vector-ref history-list i) #t ##sys#standard-output))) (newline))))) (define (history-ref index) (let ([i (inexact->exact index)]) (if (and (fx> i 0) (fx<= i history-count)) (vector-ref history-list i) (##sys#error "history entry index out of range" index) ) ) ) ;;; Reader hooks for REPL history: (define (register-repl-history!) (set! ##sys#user-read-hook (let ((old-hook ##sys#user-read-hook)) (lambda (char port) (cond ((or (char=? #\) char) (char-whitespace? char)) `',(history-ref (fx- history-count 1))) (else (old-hook char port)))))) (set! ##sys#sharp-number-hook (lambda (port n) `',(history-ref n)))) (repl-prompt (let ((sprintf sprintf)) (lambda () (sprintf "#;~A~A> " (let ((m (##sys#current-module))) (if m (sprintf "~a:" (##sys#module-name m)) "")) history-count)))) ;;; Other REPL customizations: (define (tty-input?) (or (##core#inline "C_i_tty_forcedp") (##sys#tty-port? ##sys#standard-input))) (set! ##sys#break-on-error #f) (set! ##sys#read-prompt-hook (let ([old ##sys#read-prompt-hook]) (lambda () (when (tty-input?) (old)) ) ) ) (define command-table '()) (define (toplevel-command name proc #!optional help) (##sys#check-symbol name 'toplevel-command) (when help (##sys#check-string help 'toplevel-command)) (cond ((assq name command-table) => (lambda (a) (set-cdr! a (list proc help)) )) (else (set! command-table (cons (list name proc help) command-table)))) (##sys#void)) (define csi-eval (let ((eval eval) (load-noisily load-noisily) (read read) (read-line read-line) (display display) (string-split string-split) (printf printf) (expand expand) (pretty-print pretty-print) (values values) ) (lambda (form) (cond ((eof-object? form) (exit)) ((and (pair? form) (eq? 'unquote (##sys#slot form 0)) ) (let ((cmd (cadr form))) (cond ((assq cmd command-table) => (lambda (p) ((cadr p)) (##sys#void) ) ) (else ;;XXX use `toplevel-command' to define as many as possible of these (case cmd ((x) (let ([x (read)]) (pretty-print (strip-syntax (expand x))) (##sys#void) ) ) ((p) (let* ([x (read)] [xe (eval x)] ) (pretty-print xe) (##sys#void) ) ) ((d) (let* ([x (read)] [xe (eval x)] ) (describe xe) ) ) ((du) (let* ([x (read)] [xe (eval x)] ) (dump xe) ) ) ((dur) (let* ([x (read)] [n (read)] [xe (eval x)] [xn (eval n)] ) (dump xe xn) ) ) ((r) (report)) ((q) (quit)) ((l) (let ((fns (string-split (read-line)))) (for-each load fns) (##sys#void) ) ) ((ln) (let ((fns (string-split (read-line)))) (for-each (cut load-noisily <> printer: (lambda (x) (pretty-print x) (print* "==> "))) fns) (##sys#void) ) ) ((t) (let ((x (read))) (receive rs (time (eval x)) (history-add rs) (apply values rs) ) ) ) ((exn) (when ##sys#last-exception (history-add (list ##sys#last-exception)) (describe ##sys#last-exception) ) ) ((e) (let ((r (system (string-append (or (editor-command) default-editor) " " (read-line))))) (if (not (zero? r)) (printf "editor returned with non-zero exit status ~a" r)))) ((ch) (history-clear) (##sys#void)) ((h) (history-show) (##sys#void)) ((c) (show-frameinfo selected-frame) (##sys#void)) ((f) (select-frame (read)) (##sys#void)) ((g) (copy-from-frame (read))) ((s) (let* ((str (read-line)) (r (system str)) ) (history-add (list r)) r) ) ((?) (display "Toplevel commands: ,? Show this text ,p EXP Pretty print evaluated expression EXP ,d EXP Describe result of evaluated expression EXP ,du EXP Dump data of expression EXP ,dur EXP N Dump range ,q Quit interpreter ,l FILENAME ... Load one or more files ,ln FILENAME ... Load one or more files and print result of each top-level expression ,r Show system information ,h Show history of expression results ,ch Clear history of expression results ,e FILENAME Run external editor ,s TEXT ... Execute shell-command ,exn Describe last exception ,c Show call-chain of most recent error ,f N Select frame N ,g NAME Get variable NAME from current frame ,t EXP Evaluate form and print elapsed time ,x EXP Pretty print expanded expression EXP\n") (for-each (lambda (a) (let ((help (caddr a))) (if help (print #\space help) (print " ," (car a)) ) ) ) command-table) (##sys#void) ) (else (printf "undefined toplevel command ~s - enter `,?' for help~%" form) (##sys#void) ) ) ) ) ) ) (else (receive rs (eval form) (history-add rs) (apply values rs) ) ) ) ) ) ) ;;; Builtin toplevel commands: (toplevel-command 'm (let ((printf printf)) (lambda () (let ((name (read))) (cond ((not name) (##sys#switch-module #f) (printf "; resetting current module to toplevel~%")) ((##sys#find-module (##sys#resolve-module-name name #f) #f) => (lambda (m) (##sys#switch-module m) (printf "; switching current module to `~a'~%" name))) (else (printf "undefined module `~a'~%" name)))))) ",m MODULE switch to module with name `MODULE'") ;;; Parse options from string: (define (parse-option-string str) (let ([ins (open-input-string str)]) (map (lambda (o) (if (string? o) o (let ([os (open-output-string)]) (write o os) (get-output-string os) ) ) ) (handle-exceptions ex (##sys#error "invalid option syntax" str) (do ([x (read ins) (read ins)] [xs '() (cons x xs)] ) ((eof-object? x) (reverse xs)) ) ) ) ) ) ;;; Print status information: (define report (let ((printf printf) (sort sort) (with-output-to-port with-output-to-port) (current-output-port current-output-port) (argv argv) (prefix (foreign-value "C_INSTALL_PREFIX" c-string))) (lambda port (with-output-to-port (if (pair? port) (car port) (current-output-port)) (lambda () (gc) (let ((sinfo (##sys#symbol-table-info)) (minfo (memory-statistics)) (interrupts (foreign-value "C_interrupts_enabled" bool)) (fixed-heap (foreign-value "C_heap_size_is_fixed" bool)) (downward-stack (foreign-value "C_STACK_GROWS_DOWNWARD" bool))) (define (shorten n) (/ (truncate (* n 100)) 100)) (printf "Features:~%~%") (let ((fs (sort (map keyword->string ##sys#features) string= c 3) (display "\n") (set! c 0)) (else (display (make-string pad #\space)))))) fs)) (printf "~%~%~ Machine type: \t~A ~A~%~ Software type: \t~A~%~ Software version:\t~A~%~ Build platform: \t~A~%~ Installation prefix:\t~A~%~ Extension installation location:\t~A~%~ Extension path: \t~A~%~ Include path: \t~A~%~ Keyword style: \t~A~%~ Symbol-table load:\t~S~% ~ Avg bucket length:\t~S~% ~ Total symbol count:\t~S~%~ Memory:\theap size is ~S bytes~A with ~S bytes currently in use~%~ nursery size is ~S bytes, stack grows ~A~%~ Command line: \t~S~%" (machine-type) (if (feature? #:64bit) "(64-bit)" "") (software-type) (software-version) (build-platform) prefix (installation-repository) (repository-path) ##sys#include-pathnames (symbol->string (keyword-style)) (shorten (vector-ref sinfo 0)) (shorten (vector-ref sinfo 1)) (vector-ref sinfo 2) (vector-ref minfo 0) (if fixed-heap " (fixed)" "") (vector-ref minfo 1) (vector-ref minfo 2) (if downward-stack "downward" "upward") (argv)) (##sys#write-char-0 #\newline ##sys#standard-output) (when interrupts (display "interrupts are enabled\n")) (##core#undefined) ) ) ) ) ) ) ;;; Describe & dump: (define bytevector-data '((u8vector "vector of unsigned bytes" u8vector-length u8vector-ref) (s8vector "vector of signed bytes" s8vector-length s8vector-ref) (u16vector "vector of unsigned 16-bit words" u16vector-length u16vector-ref) (s16vector "vector of signed 16-bit words" s16vector-length s16vector-ref) (u32vector "vector of unsigned 32-bit words" u32vector-length u32vector-ref) (s32vector "vector of signed 32-bit words" s32vector-length s32vector-ref) (u64vector "vector of unsigned 64-bit words" u64vector-length u64vector-ref) (s64vector "vector of signed 64-bit words" s64vector-length s64vector-ref) (f32vector "vector of 32-bit floats" f32vector-length f32vector-ref) (f64vector "vector of 64-bit floats" f64vector-length f64vector-ref) ) ) (define (circular-list? x) (let lp ((x x) (lag x)) (and (pair? x) (let ((x (cdr x))) (and (pair? x) (let ((x (cdr x)) (lag (cdr lag))) (or (eq? x lag) (lp x lag)))))))) (define (improper-pairs? x) (let lp ((x x)) (if (not (pair? x)) #f (or (eq? x (car x)) (lp (cdr x)))))) (define-constant max-describe-lines 40) (define describer-table (make-vector 37 '())) (define describe (let ([sprintf sprintf] [printf printf] [fprintf fprintf] [length length] [list-ref list-ref] [string-ref string-ref]) (lambda (x #!optional (out ##sys#standard-output)) (define (descseq name plen pref start) (let ((len (fx- (plen x) start))) (when name (fprintf out "~A of length ~S~%" name len)) (let loop1 ((i 0)) (cond ((fx>= i len)) ((fx>= i max-describe-lines) (fprintf out "~% (~A elements not displayed)~%" (fx- len i)) ) (else (let ((v (pref x (fx+ start i)))) (let loop2 ((n 1) (j (fx+ i (fx+ start 1)))) (cond ((fx>= j len) (##sys#with-print-length-limit 1000 (lambda () (fprintf out " ~S: ~S" i v))) (if (fx> n 1) (fprintf out "\t(followed by ~A identical instance~a)~% ...~%" (fx- n 1) (if (eq? n 2) "" "s")) (newline out) ) (loop1 (fx+ i n)) ) ((eq? v (pref x j)) (loop2 (fx+ n 1) (fx+ j 1))) (else (loop2 n len)) ) ) ) ) ) ) ) ) (when (##sys#permanent? x) (fprintf out "statically allocated (0x~X) " (##sys#block-address x)) ) (cond ((char? x) (let ([code (char->integer x)]) (fprintf out "character ~S, code: ~S, #x~X, #o~O~%" x code code code) ) ) ((eq? x #t) (fprintf out "boolean true~%")) ((eq? x #f) (fprintf out "boolean false~%")) ((null? x) (fprintf out "empty list~%")) ((eof-object? x) (fprintf out "end-of-file object~%")) ((eq? (##sys#void) x) (fprintf out "unspecified object~%")) ((fixnum? x) (fprintf out "exact immediate integer ~S~% #x~X~% #o~O~% #b~B" x x x x) (let ([code (integer->char x)]) (when (fx< x #x10000) (fprintf out ", character ~S" code)) ) (##sys#write-char-0 #\newline ##sys#standard-output) ) ((bignum? x) (fprintf out "exact large integer ~S~% #x~X~% #o~O~% #b~B~%" x x x x) ) ((##core#inline "C_unboundvaluep" x) (fprintf out "unbound value~%")) ((flonum? x) (fprintf out "inexact rational number ~S~%" x)) ((ratnum? x) (fprintf out "exact ratio ~S~%" x)) ((cplxnum? x) (fprintf out "~A complex number ~S~%" (if (exact? x) "exact" "inexact") x)) ((number? x) (fprintf out "number ~S~%" x)) ((string? x) (descseq "string" ##sys#size string-ref 0)) ((vector? x) (descseq "vector" ##sys#size ##sys#slot 0)) ((keyword? x) (fprintf out "keyword symbol with name ~s~%" (##sys#symbol->string x))) ((symbol? x) (unless (##sys#symbol-has-toplevel-binding? x) (display "unbound " out)) (fprintf out "~asymbol with name ~S~%" (if (##sys#interned-symbol? x) "" "uninterned ") (##sys#symbol->string x)) (let ((plist (##sys#slot x 2))) (unless (null? plist) (display " \nproperties:\n\n" out) (do ((plist plist (cddr plist))) ((null? plist)) (fprintf out " ~s\t" (car plist)) (##sys#with-print-length-limit 1000 (lambda () (write (cadr plist) out) ) ) (newline out) ) ) ) ) ((or (circular-list? x) (improper-pairs? x)) (fprintf out "circular structure: ") (let loop-print ((x x) (cdr-refs (list x))) (cond ((or (atom? x) (null? x)) (printf "eol~%")) ((memq (car x) cdr-refs) (fprintf out "(circle)~%" )) ((not (memq (car x) cdr-refs)) (fprintf out "~S -> " (car x)) (loop-print (cdr x) (cons (car x) cdr-refs) ))))) ((list? x) (descseq "list" length list-ref 0)) ((pair? x) (fprintf out "pair with car ~S~%and cdr ~S~%" (car x) (cdr x))) ((procedure? x) (let ([len (##sys#size x)]) (descseq (sprintf "procedure with code pointer 0x~X" (##sys#peek-unsigned-integer x 0)) ##sys#size ##sys#slot 1) ) ) ((port? x) (fprintf out "~A port of type ~A with name ~S and file pointer ~X~%" (if (##sys#slot x 1) "input" "output") (##sys#slot x 7) (##sys#slot x 3) (##sys#peek-unsigned-integer x 0) ) ) ((##sys#locative? x) (fprintf out "locative~% pointer ~X~% index ~A~% type ~A~%" (##sys#peek-unsigned-integer x 0) (##sys#slot x 1) (case (##sys#slot x 2) ((0) "slot") ((1) "char") ((2) "u8vector") ((3) "s8vector") ((4) "u16vector") ((5) "s16vector") ((6) "u32vector") ((7) "s32vector") ((8) "u64vector") ((9) "s64vector") ((10) "f32vector") ((11) "f64vector") ) ) ) ((##sys#pointer? x) (fprintf out "machine pointer ~X~%" (##sys#peek-unsigned-integer x 0))) ((##sys#bytevector? x) (let ([len (##sys#size x)]) (fprintf out "blob of size ~S:~%" len) (hexdump x len ##sys#byte out) ) ) ((##core#inline "C_lambdainfop" x) (fprintf out "lambda information: ~s~%" (##sys#lambda-info->string x)) ) ((##sys#structure? x 'hash-table) (let ((n (##sys#slot x 2))) (fprintf out "hash-table with ~S element~a~% comparison procedure: ~A~%" n (if (fx= n 1) "" "s") (##sys#slot x 3)) ) (fprintf out " hash function: ~a~%" (##sys#slot x 4)) ;; this copies code out of srfi-69.scm, but we don't want to depend on it (let* ((vec (##sys#slot x 1)) (len (##sys#size vec)) ) (do ((i 0 (fx+ i 1)) ) ((fx>= i len)) (for-each (lambda (bucket) (fprintf out " ~S\t-> ~S~%" (##sys#slot bucket 0) (##sys#slot bucket 1)) ) (##sys#slot vec i)) ) ) ) ((##sys#structure? x 'condition) (fprintf out "condition: ~s~%" (##sys#slot x 1)) (for-each (lambda (k) (fprintf out " ~s~%" k) (let loop ((props (##sys#slot x 2))) (unless (null? props) (when (eq? k (caar props)) (##sys#with-print-length-limit 100 (lambda () (fprintf out "\t~s: ~s" (cdar props) (cadr props)) )) (newline out)) (loop (cddr props)) ) ) ) (##sys#slot x 1) ) ) ((##sys#generic-structure? x) (let ([st (##sys#slot x 0)]) (cond ((hash-table-ref describer-table st) => (cut <> x out)) ((assq st bytevector-data) => (lambda (data) (apply descseq (append (map eval (cdr data)) (list 0)))) ) (else (fprintf out "structure of type `~S':~%" (##sys#slot x 0)) (descseq #f ##sys#size ##sys#slot 1) ) ) ) ) (else (fprintf out "unknown object~%")) ) (##sys#void) ) ) ) (define (set-describer! tag proc) (##sys#check-symbol tag 'set-describer!) (hash-table-set! describer-table tag proc)) ;;; Display hexdump: (define dump (lambda (x . len-out) (let-optionals len-out ([len #f] [out ##sys#standard-output] ) (define (bestlen n) (if len (min len n) n)) (cond [(##sys#immediate? x) (##sys#error 'dump "cannot dump immediate object" x)] [(##sys#bytevector? x) (hexdump x (bestlen (##sys#size x)) ##sys#byte out)] [(string? x) (hexdump x (bestlen (##sys#size x)) ##sys#byte out)] [(and (not (##sys#immediate? x)) (##sys#pointer? x)) (hexdump x 32 ##sys#peek-byte out) ] [(and (##sys#generic-structure? x) (assq (##sys#slot x 0) bytevector-data)) (let ([bv (##sys#slot x 1)]) (hexdump bv (bestlen (##sys#size bv)) ##sys#byte out) ) ] [else (##sys#error 'dump "cannot dump object" x)] ) ) ) ) (define hexdump (let ([display display] [string-append string-append] [make-string make-string] [write-char write-char] ) (lambda (bv len ref out) (define (justify n m base lead) (let* ([s (number->string n base)] [len (##sys#size s)] ) (if (fx< len m) (string-append (make-string (fx- m len) lead) s) s) ) ) (do ([a 0 (fx+ a 16)]) ((fx>= a len)) (display (justify a 4 10 #\space) out) (write-char #\: out) (do ([j 0 (fx+ j 1)] [a a (fx+ a 1)] ) ((or (fx>= j 16) (fx>= a len)) (when (fx>= a len) (let ((o (fxmod len 16))) (unless (fx= o 0) (do ((k (fx- 16 o) (fx- k 1))) ((fx= k 0)) (display " " out) ) ) ) ) ) (write-char #\space out) (display (justify (ref bv a) 2 16 #\0) out) ) (write-char #\space out) (do ([j 0 (fx+ j 1)] [a a (fx+ a 1)] ) ((or (fx>= j 16) (fx>= a len))) (let ([c (ref bv a)]) (if (and (fx>= c 32) (fx< c 128)) (write-char (integer->char c) out) (write-char #\. out) ) ) ) (write-char #\newline out) ) ) ) ) ;;; Frame-info operations: (define show-frameinfo (let ((newline newline) (display display)) (lambda (fn) (define (prin1 x) (##sys#with-print-length-limit 100 (lambda () (##sys#print x #t ##sys#standard-output)))) (let* ((ct (or ##sys#repl-recent-call-chain '())) (len (length ct))) (set! selected-frame (or (and (memq fn ct) fn) (and (fx> len 0) (list-ref ct (fx- len 1))))) (do ((ct ct (cdr ct)) (i (fx- len 1) (fx- i 1))) ((null? ct)) (let* ((info (car ct)) (here (eq? selected-frame info)) (form (##sys#slot info 1)) ; cooked1 (expr/form) (data (##sys#slot info 2)) ; cooked2 (cntr/frameinfo) (finfo (##sys#structure? data 'frameinfo)) (cntr (if finfo (##sys#slot data 1) data))) ; cntr (printf "~a~a:~a\t~a\t " (if here #\* #\space) i (if (and finfo (pair? (##sys#slot data 2))) "[]" " ") ; e (##sys#slot info 0)) ; raw (when cntr (printf "[~a] " cntr)) (when form (prin1 form)) (newline) (when (and here finfo) (for-each (lambda (e v) (unless (null? e) (display " ---\n") (do ((i 0 (fx+ i 1)) (be e (cdr be))) ((null? be)) (printf " ~s:\t " (car be)) (prin1 (##sys#slot v i)) (newline)))) (##sys#slot data 2) ; e (##sys#slot data 3))))))))) ; v (define select-frame (let ((display display)) (lambda (n) (cond ((or (not (number? n)) (not ##sys#repl-recent-call-chain) (fx< n 0) (fx>= n (length ##sys#repl-recent-call-chain))) (display "no such frame\n")) (else (set! selected-frame (list-ref ##sys#repl-recent-call-chain (fx- (length ##sys#repl-recent-call-chain) (fx+ n 1)))) (show-frameinfo selected-frame)))))) (define copy-from-frame (let ((display display) (newline newline) (call/cc call/cc)) (lambda (name) (let* ((ct (or ##sys#repl-recent-call-chain '())) (len (length ct)) (name (cond ((symbol? name) (##sys#slot name 1)) ; name ((string? name) name) (else (display "string or symbol required for `,g'\n") #f)))) (define (compare sym) (let ((str (##sys#slot sym 1))) ; name (string=? name (substring str 0 (min (string-length name) (string-length str)))))) (if name (call/cc (lambda (return) (define (fail msg) (display msg) (newline) (return (##sys#void))) (do ((ct ct (cdr ct))) ((null? ct) (fail "no environment in frame")) ;;XXX this should be refactored as it duplicates the code above (let* ((info (car ct)) (here (eq? selected-frame info)) (data (##sys#slot info 2)) ; cooked2 (cntr/frameinfo) (finfo (##sys#structure? data 'frameinfo))) (when (and here finfo) (for-each (lambda (e v) (do ((i 0 (fx+ i 1)) (be e (cdr be))) ((null? be)) (when (compare (car be)) (display "; getting ") (display (car be)) (newline) (history-add (list (##sys#slot v i))) (return (##sys#slot v i))))) (##sys#slot data 2) ; e (##sys#slot data 3)) ; v (fail (##sys#string-append "no such variable: " name))))))) (##sys#void)))))) ;;; Handle some signals: (define-foreign-variable _sigint int "SIGINT") (define-syntax defhandler (syntax-rules () ((_ sig handler) (begin (##core#inline "C_establish_signal_handler" sig sig) (##sys#setslot ##sys#signal-vector sig handler))))) (defhandler _sigint (lambda (n) (##sys#user-interrupt-hook))) ;;; Start interpreting: (define (member* keys set) (let loop ((set set)) (and (pair? set) (let find ((ks keys)) (cond ((null? ks) (loop (cdr set))) ((equal? (car ks) (car set)) set) (else (find (cdr ks))) ) ) ) ) ) (define-constant short-options '(#\k #\s #\v #\h #\D #\e #\i #\R #\b #\n #\q #\w #\- #\I #\p #\P) ) (define-constant long-options '("-ss" "-sx" "-script" "-version" "-help" "--help" "-feature" "-no-feature" "-eval" "-case-insensitive" "-keyword-style" "-no-parentheses-synonyms" "-no-symbol-escape" "-r5rs-syntax" "-setup-mode" "-require-extension" "-batch" "-quiet" "-no-warnings" "-no-init" "-include-path" "-release" "-print" "-pretty-print" "--") ) (define (canonicalize-args args) (let loop ((args args)) (if (null? args) '() (let ((x (car args))) (cond ((member x '("-s" "-ss" "-script" "-sx" "--")) args) ((and (fx> (##sys#size x) 2) (char=? #\- (##core#inline "C_subchar" x 0)) (not (member x long-options)) ) (if (char=? #\: (##core#inline "C_subchar" x 1)) (loop (cdr args)) (let ((cs (string->list (substring x 1)))) (if (findall cs short-options) (append (map (cut string #\- <>) cs) (loop (cdr args))) (##sys#error "invalid option" x) ) ) ) ) (else (cons x (loop (cdr args))))))))) (define (findall chars clist) (let loop ((chars chars)) (or (null? chars) (and (memq (car chars) clist) (loop (cdr chars)))))) (define-constant simple-options '("--" "-b" "-batch" "-q" "-quiet" "-n" "-no-init" "-w" "-no-warnings" "-i" "-case-insensitive" "-no-parentheses-synonyms" "-no-symbol-escape" "-r5rs-syntax" "-setup-mode" ; Not "simple" but processed early "-ss" "-sx" "-s" "-script") ) (define-constant complex-options '("-D" "-feature" "-I" "-include-path" "-K" "-keyword-style" "-no-feature") ) (define (run) (let* ([extraopts (parse-option-string (or (get-environment-variable "CSI_OPTIONS") ""))] [args (canonicalize-args (command-line-arguments))] ; Check for these before 'args' is updated by any 'extraopts' [kwstyle (member* '("-K" "-keyword-style") args)] [script (member* '("-ss" "-sx" "-s" "-script") args)]) (cond [script (when (or (not (pair? (cdr script))) (zero? (string-length (cadr script))) (char=? #\- (string-ref (cadr script) 0)) ) (##sys#error "missing or invalid script argument")) (program-name (cadr script)) (command-line-arguments (cddr script)) ;; 2012-10-04 (felix) left 'script activated to avoid breaking too much code (register-feature! 'chicken-script) (set-cdr! (cdr script) '()) (when ##sys#windows-platform (and-let* ((sname (lookup-script-file (cadr script)))) (set-car! (cdr script) sname) ) ) ] [else (set! args (append (canonicalize-args extraopts) args)) (and-let* ([p (member "--" args)]) (set-cdr! p '()) ) ] ) (let* ([eval? (member* '("-e" "-p" "-P" "-eval" "-print" "-pretty-print") args)] [batch (or script (member* '("-b" "-batch") args) eval?)] [quietflag (member* '("-q" "-quiet") args)] [quiet (or script quietflag eval?)] [ipath (map chop-separator (##sys#split-path (or (get-environment-variable "CHICKEN_INCLUDE_PATH") "")))]) (define (collect-options opt) (let loop ([opts args]) (cond [(member opt opts) => (lambda (p) (if (null? (cdr p)) (##sys#error "missing argument to command-line option" opt) (cons (cadr p) (loop (cddr p)))) ) ] [else '()] ) ) ) (define (loadinit) (let* ((sys-dir (system-config-directory)) (cfg-fn (and sys-dir (make-pathname (list sys-dir "chicken") init-file))) (home (get-environment-variable "HOME")) (home-fn (and home (not (string=? home "")) (make-pathname home (string-append "." init-file))))) (cond ((and cfg-fn (file-exists? cfg-fn)) (load cfg-fn)) ((and home-fn (file-exists? home-fn)) (load home-fn) ) ) ) ) (define (evalstring str #!optional (rec (lambda _ (void)))) (let ((in (open-input-string str))) (do ([x (read in) (read in)]) ((eof-object? x)) (rec (receive (eval x))) ) ) ) (when (member* '("-h" "-help" "--help") args) (print-usage) (exit 0) ) (when (member "-version" args) (print-banner) (exit 0) ) (when (member "-setup-mode" args) (set! ##sys#setup-mode #t)) (when (member "-release" args) (print (chicken-version)) (exit 0) ) (when (member* '("-w" "-no-warnings") args) (unless quiet (display "Warnings are disabled\n")) (set! ##sys#warnings-enabled #f) ) (when (member* '("-i" "-case-insensitive") args) (unless quiet (display "Identifiers and symbols are case insensitive\n")) (register-feature! 'case-insensitive) (case-sensitive #f) ) (for-each register-feature! (collect-options "-feature")) (for-each register-feature! (collect-options "-D")) (for-each unregister-feature! (collect-options "-no-feature")) (set! ##sys#include-pathnames (delete-duplicates (append (map chop-separator (collect-options "-include-path")) (map chop-separator (collect-options "-I")) ##sys#include-pathnames ipath) string=?) ) (when kwstyle (cond [(not (pair? (cdr kwstyle))) (##sys#error "missing argument to `-keyword-style' option") ] [(string=? "prefix" (cadr kwstyle)) (keyword-style #:prefix) ] [(string=? "none" (cadr kwstyle)) (keyword-style #:none) ] [(string=? "suffix" (cadr kwstyle)) (keyword-style #:suffix) ] ) ) (when (member* '("-no-parentheses-synonyms") args) (unless quiet (display "Disabled support for parentheses synonyms\n")) (parentheses-synonyms #f) ) (when (member* '("-no-symbol-escape") args) (unless quiet (display "Disabled support for escaped symbols\n")) (symbol-escape #f) ) (when (member* '("-r5rs-syntax") args) (unless quiet (display "Disabled the CHICKEN extensions to R5RS syntax\n")) (case-sensitive #f) (keyword-style #:none) (parentheses-synonyms #f) (symbol-escape #f) ) ;; Load the the default modules into the evaluation environment. ;; This is done before setting load-verbose => #t to avoid ;; spurious import messages. (eval `(import-for-syntax ,@default-syntax-imports)) (eval `(import ,@default-imports)) (unless quiet (load-verbose #t) (print-banner)) (unless (or (member* '("-n" "-no-init") args) script eval?) (loadinit)) (when batch (set! ##sys#notices-enabled #f)) (do ([args args (cdr args)]) ((null? args) (unless batch (register-repl-history!) (repl csi-eval) (##sys#write-char-0 #\newline ##sys#standard-output) ) ) (let* ((arg (car args))) (cond ((member arg simple-options)) ((member arg complex-options) (set! args (cdr args)) ) ((or (string=? "-R" arg) (string=? "-require-extension" arg)) (eval `(import ,(string->symbol (cadr args)))) (set! args (cdr args)) ) ((or (string=? "-e" arg) (string=? "-eval" arg)) (evalstring (cadr args)) (set! args (cdr args)) ) ((or (string=? "-p" arg) (string=? "-print" arg)) (evalstring (cadr args) (cut for-each print <...>)) (set! args (cdr args)) ) ((or (string=? "-P" arg) (string=? "-pretty-print" arg)) (evalstring (cadr args) (cut for-each pretty-print <...>) ) (set! args (cdr args)) ) (else (let ((scr (and script (car script)))) (load arg (and (equal? "-sx" scr) (lambda (x) (let* ((str (with-output-to-string (cut pretty-print x))) (len (string-length str))) (flush-output ##sys#standard-output) (display "\n; " ##sys#standard-error) (do ((i 0 (fx+ i 1))) ((fx>= i len)) (let ((c (string-ref str i))) (write-char c ##sys#standard-error) (when (char=? #\newline c) (display "; " ##sys#standard-error)))) (newline ##sys#standard-error) (eval x))))) (when (equal? "-ss" scr) (receive rs ((eval 'main) (command-line-arguments)) (let ((r (optional rs))) (exit (if (fixnum? r) r 0))))))))))))) (run)) chicken-5.1.0/eval.c0000644000175000017500000322336213502227751014041 0ustar sjamaansjamaan/* Generated from eval.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: eval.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file eval.c -emit-import-library chicken.eval -emit-import-library chicken.load unit: eval uses: modules library internal expand */ #include "chicken.h" #ifndef C_INSTALL_EGG_HOME # define C_INSTALL_EGG_HOME "." #endif #ifndef C_INSTALL_SHARE_HOME # define C_INSTALL_SHARE_HOME NULL #endif #ifndef C_BINARY_VERSION # define C_BINARY_VERSION 0 #endif #define C_store_result(x, ptr) (*((C_word *)C_block_item(ptr, 0)) = (x), C_SCHEME_TRUE) #define C_copy_result_string(str, buf, n) (C_memcpy((char *)C_block_item(buf, 0), C_c_string(str), C_unfix(n)), ((char *)C_block_item(buf, 0))[ C_unfix(n) ] = '\0', C_SCHEME_TRUE) C_externexport void CHICKEN_get_error_message(char *t0,int t1); C_externexport int CHICKEN_load(char * t0); C_externexport int CHICKEN_read(char * t0,C_word *t1); C_externexport int CHICKEN_apply_to_string(C_word t0,C_word t1,char *t2,int t3); C_externexport int CHICKEN_apply(C_word t0,C_word t1,C_word *t2); C_externexport int CHICKEN_eval_string_to_string(char * t0,char *t1,int t2); C_externexport int CHICKEN_eval_to_string(C_word t0,char *t1,int t2); C_externexport int CHICKEN_eval_string(char * t0,C_word *t1); C_externexport int CHICKEN_eval(C_word t0,C_word *t1); C_externexport int CHICKEN_yield(); static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_modules_toplevel) C_externimport void C_ccall C_modules_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[370]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,15),40,102,105,110,100,45,105,100,32,105,100,32,115,101,41,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,7),40,97,51,54,52,53,41,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,13),40,97,51,54,53,49,32,46,32,116,109,112,41,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,12),40,114,101,110,97,109,101,32,118,97,114,41,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,8),40,103,50,51,55,32,112,41}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,101,110,118,115,32,101,105,41,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,15),40,108,111,111,107,117,112,32,118,97,114,48,32,101,41,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,31),40,101,109,105,116,45,116,114,97,99,101,45,105,110,102,111,32,105,110,102,111,32,99,110,116,114,32,101,32,118,41,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,34),40,101,109,105,116,45,115,121,110,116,97,120,45,116,114,97,99,101,45,105,110,102,111,32,105,110,102,111,32,99,110,116,114,41,0,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,9),40,97,51,53,51,51,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,11),40,97,51,53,52,54,32,112,32,105,41,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,15),40,100,101,99,111,114,97,116,101,32,112,32,108,108,41,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,12),40,102,95,51,55,57,53,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,7),40,97,51,56,48,54,41,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,10),40,102,95,51,56,51,51,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,12),40,102,95,51,56,52,52,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,12),40,102,95,51,56,52,57,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,10),40,102,95,51,57,48,55,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,10),40,102,95,51,57,50,50,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,10),40,102,95,51,57,52,49,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,10),40,102,95,51,57,54,52,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,10),40,102,95,51,57,56,53,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,11),40,97,51,56,49,50,32,105,32,106,41,0,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,12),40,102,95,52,48,49,49,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,12),40,102,95,52,48,49,57,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,12),40,102,95,52,48,50,55,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,12),40,102,95,52,48,51,53,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,12),40,102,95,52,48,51,55,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,12),40,102,95,52,48,53,54,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,12),40,102,95,52,48,53,56,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,12),40,102,95,52,48,54,57,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,50,50,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,51,48,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,51,56,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,52,54,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,53,52,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,54,50,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,55,48,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,55,50,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,12),40,102,95,52,50,48,49,32,46,32,118,41,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,10),40,102,95,52,50,51,53,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,10),40,102,95,52,50,53,50,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,10),40,102,95,52,51,51,55,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,10),40,102,95,52,51,54,50,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,7),40,97,52,52,51,48,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,10),40,102,95,52,52,53,52,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,10),40,102,95,52,52,54,50,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,10),40,102,95,52,52,57,55,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,10),40,102,95,52,53,49,48,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,11),40,97,52,52,51,54,32,105,32,106,41,0,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,10),40,102,95,52,53,55,52,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,10),40,102,95,52,54,49,49,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,10),40,102,95,52,54,54,54,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,10),40,102,95,52,55,51,54,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,8),40,103,53,49,56,32,120,41}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,19),40,100,111,108,111,111,112,53,51,57,32,105,32,118,108,105,115,116,41,0,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,10),40,102,95,52,56,49,52,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,53,49,50,32,103,53,50,52,41,0,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,7),40,97,52,57,48,49,41,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,7),40,97,52,57,49,56,41,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,7),40,97,52,57,51,54,41,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,52,52,53,32,103,52,53,55,41,0,0,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,52,49,55,32,103,52,50,57,41,0,0,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,53,56,48,32,103,53,57,50,41,0,0,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,53,53,51,32,103,53,54,53,41,0,0,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,23),40,109,97,112,45,108,111,111,112,55,50,57,32,103,55,52,49,32,103,55,52,50,41,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,23),40,109,97,112,45,108,111,111,112,54,57,54,32,103,55,48,56,32,103,55,48,57,41,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,54,57,32,103,54,56,49,41,0,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,51,57,32,103,54,53,49,41,0,0,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,49,50,32,103,54,50,52,41,0,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,11),40,97,53,53,50,55,32,46,32,114,41,0,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,10),40,102,95,53,53,50,50,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,7),40,97,53,53,52,54,41,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,10),40,102,95,53,53,52,49,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,14),40,97,53,53,55,48,32,97,49,32,46,32,114,41,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,10),40,102,95,53,53,54,53,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,10),40,97,53,53,56,57,32,97,49,41,0,0,0,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,10),40,102,95,53,53,56,52,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,17),40,97,53,54,49,55,32,97,49,32,97,50,32,46,32,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,10),40,102,95,53,54,49,50,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,13),40,97,53,54,51,54,32,97,49,32,97,50,41,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,10),40,102,95,53,54,51,49,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,20),40,97,53,54,54,52,32,97,49,32,97,50,32,97,51,32,46,32,114,41,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,10),40,102,95,53,54,53,57,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,16),40,97,53,54,56,51,32,97,49,32,97,50,32,97,51,41}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,10),40,102,95,53,54,55,56,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,23),40,97,53,55,49,49,32,97,49,32,97,50,32,97,51,32,97,52,32,46,32,114,41,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,10),40,102,95,53,55,48,54,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,19),40,97,53,55,51,48,32,97,49,32,97,50,32,97,51,32,97,52,41,0,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,10),40,102,95,53,55,50,53,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,26),40,100,111,108,111,111,112,49,50,50,57,32,110,32,99,32,97,114,103,115,32,108,97,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,12),40,97,53,55,53,50,32,46,32,97,115,41,0,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,10),40,102,95,53,55,52,55,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,12),40,97,53,55,55,53,32,46,32,97,115,41,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,10),40,102,95,53,55,55,48,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,7),40,97,53,56,49,51,41,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,7),40,97,53,56,51,48,41,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,7),40,97,53,56,52,52,41,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,55,56,48,32,103,55,57,50,41,0,0,0,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,22),40,97,53,52,57,50,32,118,97,114,115,32,97,114,103,99,32,114,101,115,116,41,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,7),40,97,53,56,57,56,41,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,24),40,97,53,57,48,56,32,108,108,105,115,116,55,54,57,32,98,111,100,121,55,55,48,41}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,7),40,97,53,57,51,51,41,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,7),40,97,53,57,53,48,41,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,7),40,97,53,57,54,56,41,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,56,56,51,32,103,56,57,53,41,0,0,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,6),40,103,57,52,55,41,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,18),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,52,54,41,0,0,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,7),40,97,54,49,50,54,41,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,7),40,97,54,49,52,51,41,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,7),40,97,54,49,54,49,41,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,57,49,56,32,103,57,51,48,41,0,0,0,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,13),40,97,54,51,51,53,32,102,111,114,109,115,41,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,7),40,97,54,52,48,48,41,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,19),40,109,97,112,45,108,111,111,112,57,57,49,32,103,49,48,48,51,41,0,0,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,7),40,97,54,52,55,56,41,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,50,32,120,115,41,0,0,0,0,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,10),40,102,95,54,53,54,56,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,98,111,100,121,32,120,115,41,0,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,7),40,97,54,53,52,48,41,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,7),40,97,54,53,51,52,41,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,7),40,97,54,54,51,48,41,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,11),40,103,49,48,51,52,32,101,120,112,41,0,0,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,48,50,56,32,103,49,48,52,48,41,0,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,7),40,97,54,56,51,54,41,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,21),40,97,54,56,52,50,32,101,120,112,49,49,53,51,32,95,49,49,53,53,41,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,10),40,103,49,50,49,49,32,99,108,41,0,0,0,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,7),40,97,55,48,49,49,41,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,7),40,97,55,48,49,54,41,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,7),40,97,55,48,50,54,41,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,27),40,99,111,109,112,105,108,101,32,120,32,101,32,104,32,116,102,32,99,110,116,114,32,116,108,63,41,0,0,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,110,41}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,10),40,102,95,55,51,54,53,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,10),40,102,95,55,51,56,53,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,10),40,102,95,55,52,49,54,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,10),40,102,95,55,52,53,53,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,10),40,102,95,55,53,48,50,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,9),40,103,49,51,48,50,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,9),40,103,49,51,51,48,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,50,52,32,103,49,51,51,54,41,0,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,10),40,102,95,55,53,53,48,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,50,57,54,32,103,49,51,48,56,41,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,12),40,102,95,55,54,54,48,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,26),40,99,111,109,112,105,108,101,45,99,97,108,108,32,120,32,101,32,116,102,32,99,110,116,114,41,0,0,0,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,101,118,97,108,35,99,111,109,112,105,108,101,45,116,111,45,99,108,111,115,117,114,101,32,101,120,112,32,101,110,118,32,114,101,115,116,41,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,7),40,97,55,55,52,48,41,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,7),40,97,55,55,56,57,41,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,7),40,97,55,55,57,56,41,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,7),40,97,55,55,56,51,41,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,7),40,97,55,56,49,53,41,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,101,118,97,108,47,109,101,116,97,32,102,111,114,109,41,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,101,118,97,108,32,120,32,46,32,101,110,118,41,0,0,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,101,118,97,108,35,109,111,100,117,108,101,45,101,110,118,105,114,111,110,109,101,110,116,32,110,97,109,101,41,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,5),40,101,114,114,41,0,0,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,108,108,105,115,116,32,118,97,114,115,32,97,114,103,99,41,0,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,100,101,99,111,109,112,111,115,101,45,108,97,109,98,100,97,45,108,105,115,116,32,108,108,105,115,116,48,32,107,41,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,105,110,116,101,114,97,99,116,105,111,110,45,101,110,118,105,114,111,110,109,101,110,116,41}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,114,49,53,50,51,32,103,49,53,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,10),40,115,116,114,105,112,32,115,101,41,0,0,0,0,0,0}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,36),40,115,99,104,101,109,101,35,115,99,104,101,109,101,45,114,101,112,111,114,116,45,101,110,118,105,114,111,110,109,101,110,116,32,110,41,0,0,0,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,110,117,108,108,45,101,110,118,105,114,111,110,109,101,110,116,32,110,41,0,0,0,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,108,111,97,100,35,97,110,121,32,112,114,101,100,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,18),40,35,35,115,121,115,35,112,114,111,118,105,100,101,32,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,112,114,111,118,105,100,101,100,63,32,105,100,41,0,0,0,0}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,108,111,97,100,35,112,97,116,104,45,115,101,112,97,114,97,116,111,114,45,105,110,100,101,120,47,114,105,103,104,116,32,115,41,0,0,0,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,108,111,97,100,35,109,97,107,101,45,114,101,108,97,116,105,118,101,45,112,97,116,104,110,97,109,101,32,102,114,111,109,32,102,105,108,101,41,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,109,111,100,101,41,0,0,0,0,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,108,111,97,100,35,115,101,116,45,100,121,110,97,109,105,99,45,108,111,97,100,45,109,111,100,101,33,32,109,111,100,101,41,0,0,0,0,0,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,108,111,97,100,35,99,45,116,111,112,108,101,118,101,108,32,110,97,109,101,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,13),40,102,95,57,54,50,50,32,112,97,116,104,41,0,0,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,7),40,97,57,54,56,48,41,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,7),40,97,57,54,57,56,41,0}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,7),40,97,57,55,53,48,41,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,11),40,97,57,55,53,54,32,46,32,116,41,0,0,0,0,0}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,7),40,97,57,55,51,56,41,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,51,48,55,32,103,50,51,49,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,17),40,97,57,55,55,50,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,50,50,57,55,32,120,41,0,0}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,7),40,97,57,55,48,49,41,0}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,7),40,97,57,56,51,50,41,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,7),40,97,57,54,56,57,41,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,7),40,97,57,56,52,49,41,0}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,7),40,97,57,54,55,52,41,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,47,105,110,116,101,114,110,97,108,32,105,110,112,117,116,32,101,118,97,108,117,97,116,111,114,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,108,111,97,100,32,102,105,108,101,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,45,114,101,108,97,116,105,118,101,32,102,105,108,101,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,8),40,97,49,48,48,50,56,41}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,8),40,97,49,48,48,51,49,41}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,8),40,97,49,48,48,51,52,41}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,45,110,111,105,115,105,108,121,32,102,105,108,101,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,16),40,99,111,109,112,108,101,116,101,32,103,50,51,56,49,41}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,105,98,115,41,0,0,0,0,0}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,50),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,45,108,105,98,114,97,114,121,47,105,110,116,101,114,110,97,108,32,117,110,97,109,101,32,108,105,98,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,108,111,97,100,45,108,105,98,114,97,114,121,32,117,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,45,108,105,98,114,97,114,121,32,117,110,97,109,101,32,46,32,114,101,115,116,41}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,8),40,97,49,48,50,50,56,41}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,17),40,100,111,108,111,111,112,50,52,56,51,32,120,32,120,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,8),40,97,49,48,50,51,51,41}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,8),40,97,49,48,50,55,48,41}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,8),40,97,49,48,50,50,50,41}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,49),40,35,35,115,121,115,35,105,110,99,108,117,100,101,45,102,111,114,109,115,45,102,114,111,109,45,102,105,108,101,32,102,105,108,101,110,97,109,101,32,115,111,117,114,99,101,32,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,108,111,97,100,35,102,105,108,101,45,101,120,105,115,116,115,63,32,110,97,109,101,41}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,108,111,97,100,35,102,105,110,100,45,102,105,108,101,32,110,97,109,101,32,115,101,97,114,99,104,45,112,97,116,104,41,0,0,0,0,0,0,0}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,12),40,99,104,101,99,107,32,112,97,116,104,41,0,0,0,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,97,116,104,115,41,0,0,0,0}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,108,111,97,100,35,102,105,110,100,45,100,121,110,97,109,105,99,45,101,120,116,101,110,115,105,111,110,32,105,100,32,105,110,99,63,41,0,0,0}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,11),40,103,50,53,52,57,32,101,120,116,41,0,0,0,0,0}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,45,101,120,116,101,110,115,105,111,110,32,105,100,32,97,108,116,101,114,110,97,116,101,115,32,108,111,99,41,0}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,53,54,50,41,0,0,0,0,0}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,53,55,50,32,103,50,53,55,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,108,111,97,100,35,114,101,113,117,105,114,101,32,46,32,105,100,115,41,0,0,0,0}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,49,53,41,0,0,0,0,0}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,50,53,32,103,50,54,51,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,108,111,97,100,35,112,114,111,118,105,100,101,32,46,32,105,100,115,41,0,0,0,0}; static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,54,56,41,0,0,0,0,0}; static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,108,111,97,100,35,112,114,111,118,105,100,101,100,63,32,46,32,105,100,115,41,0,0}; static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,14),40,97,49,48,56,49,53,32,103,50,55,51,48,41,0,0}; static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,112,114,111,99,101,115,115,45,114,101,113,117,105,114,101,32,108,105,98,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li223[] C_aligned={C_lihdr(0,0,27),40,116,101,115,116,45,101,120,116,101,110,115,105,111,110,115,32,102,110,97,109,101,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li224[] C_aligned={C_lihdr(0,0,12),40,116,101,115,116,32,102,110,97,109,101,41,0,0,0,0}; static C_char C_TLS li225[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,97,116,104,115,41,0,0,0,0}; static C_char C_TLS li226[] C_aligned={C_lihdr(0,0,55),40,35,35,115,121,115,35,114,101,115,111,108,118,101,45,105,110,99,108,117,100,101,45,102,105,108,101,110,97,109,101,32,102,110,97,109,101,32,101,120,116,115,32,114,101,112,111,32,115,111,117,114,99,101,41,0}; static C_char C_TLS li227[] C_aligned={C_lihdr(0,0,8),40,97,49,49,48,51,57,41}; static C_char C_TLS li228[] C_aligned={C_lihdr(0,0,11),40,97,49,49,48,51,51,32,101,120,41,0,0,0,0,0}; static C_char C_TLS li229[] C_aligned={C_lihdr(0,0,8),40,97,49,49,48,53,56,41}; static C_char C_TLS li230[] C_aligned={C_lihdr(0,0,8),40,97,49,49,48,55,48,41}; static C_char C_TLS li231[] C_aligned={C_lihdr(0,0,15),40,97,49,49,48,54,52,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li232[] C_aligned={C_lihdr(0,0,8),40,97,49,49,48,53,50,41}; static C_char C_TLS li233[] C_aligned={C_lihdr(0,0,10),40,97,49,49,48,50,55,32,107,41,0,0,0,0,0,0}; static C_char C_TLS li234[] C_aligned={C_lihdr(0,0,16),40,114,117,110,45,115,97,102,101,32,116,104,117,110,107,41}; static C_char C_TLS li235[] C_aligned={C_lihdr(0,0,23),40,115,116,111,114,101,45,114,101,115,117,108,116,32,120,32,114,101,115,117,108,116,41,0}; static C_char C_TLS li236[] C_aligned={C_lihdr(0,0,8),40,97,49,49,48,57,49,41}; static C_char C_TLS li237[] C_aligned={C_lihdr(0,0,15),40,67,72,73,67,75,69,78,95,121,105,101,108,100,41,0}; static C_char C_TLS li238[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,48,51,41}; static C_char C_TLS li239[] C_aligned={C_lihdr(0,0,25),40,67,72,73,67,75,69,78,95,101,118,97,108,32,101,120,112,32,114,101,115,117,108,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li240[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,50,50,41}; static C_char C_TLS li241[] C_aligned={C_lihdr(0,0,32),40,67,72,73,67,75,69,78,95,101,118,97,108,95,115,116,114,105,110,103,32,115,116,114,32,114,101,115,117,108,116,41}; static C_char C_TLS li242[] C_aligned={C_lihdr(0,0,26),40,115,116,111,114,101,45,115,116,114,105,110,103,32,98,117,102,115,105,122,101,32,98,117,102,41,0,0,0,0,0,0}; static C_char C_TLS li243[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,53,56,41}; static C_char C_TLS li244[] C_aligned={C_lihdr(0,0,40),40,67,72,73,67,75,69,78,95,101,118,97,108,95,116,111,95,115,116,114,105,110,103,32,101,120,112,32,98,117,102,32,98,117,102,115,105,122,101,41}; static C_char C_TLS li245[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,56,55,41}; static C_char C_TLS li246[] C_aligned={C_lihdr(0,0,47),40,67,72,73,67,75,69,78,95,101,118,97,108,95,115,116,114,105,110,103,95,116,111,95,115,116,114,105,110,103,32,115,116,114,32,98,117,102,32,98,117,102,115,105,122,101,41,0}; static C_char C_TLS li247[] C_aligned={C_lihdr(0,0,8),40,97,49,49,50,50,49,41}; static C_char C_TLS li248[] C_aligned={C_lihdr(0,0,32),40,67,72,73,67,75,69,78,95,97,112,112,108,121,32,102,117,110,99,32,97,114,103,115,32,114,101,115,117,108,116,41}; static C_char C_TLS li249[] C_aligned={C_lihdr(0,0,8),40,97,49,49,50,51,55,41}; static C_char C_TLS li250[] C_aligned={C_lihdr(0,0,47),40,67,72,73,67,75,69,78,95,97,112,112,108,121,95,116,111,95,115,116,114,105,110,103,32,102,117,110,99,32,97,114,103,115,32,98,117,102,32,98,117,102,115,105,122,101,41,0}; static C_char C_TLS li251[] C_aligned={C_lihdr(0,0,8),40,97,49,49,50,54,54,41}; static C_char C_TLS li252[] C_aligned={C_lihdr(0,0,25),40,67,72,73,67,75,69,78,95,114,101,97,100,32,115,116,114,32,114,101,115,117,108,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li253[] C_aligned={C_lihdr(0,0,8),40,97,49,49,50,56,56,41}; static C_char C_TLS li254[] C_aligned={C_lihdr(0,0,18),40,67,72,73,67,75,69,78,95,108,111,97,100,32,115,116,114,41,0,0,0,0,0,0}; static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,39),40,67,72,73,67,75,69,78,95,103,101,116,95,101,114,114,111,114,95,109,101,115,115,97,103,101,32,98,117,102,32,98,117,102,115,105,122,101,41,0}; static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,10),40,97,49,49,51,49,53,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,56,56,32,103,50,52,48,48,41,0,0,0,0}; static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,12),40,97,49,49,52,52,57,32,101,32,112,41,0,0,0,0}; static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,21),40,97,49,49,52,55,49,32,115,121,109,32,112,114,111,112,32,118,97,108,41,0,0,0}; static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,8),40,97,49,49,52,57,56,41}; static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,49,52,56,51,41,0,0,0,0}; static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,48,51,41}; static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,14),40,97,49,49,52,57,50,32,116,104,117,110,107,41,0,0}; static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,8),40,97,49,49,52,54,53,41}; static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,63),40,97,49,49,53,51,51,32,35,35,115,121,115,35,112,117,116,47,114,101,115,116,111,114,101,33,49,52,55,48,32,35,35,115,121,115,35,119,105,116,104,45,112,114,111,112,101,114,116,121,45,114,101,115,116,111,114,101,49,52,55,49,41,0}; static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,54,56,41}; static C_char C_TLS li267[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,57,56,41}; static C_char C_TLS li268[] C_aligned={C_lihdr(0,0,8),40,97,49,49,54,48,56,41}; static C_char C_TLS li269[] C_aligned={C_lihdr(0,0,17),40,97,49,49,53,51,56,32,120,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li270[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_10003) static void C_ccall f_10003(C_word c,C_word *av) C_noret; C_noret_decl(f_10014) static void C_ccall f_10014(C_word c,C_word *av) C_noret; C_noret_decl(f_10018) static void C_ccall f_10018(C_word c,C_word *av) C_noret; C_noret_decl(f_10021) static void C_ccall f_10021(C_word c,C_word *av) C_noret; C_noret_decl(f_10024) static void C_ccall f_10024(C_word c,C_word *av) C_noret; C_noret_decl(f_10029) static void C_ccall f_10029(C_word c,C_word *av) C_noret; C_noret_decl(f_10032) static void C_ccall f_10032(C_word c,C_word *av) C_noret; C_noret_decl(f_10035) static void C_ccall f_10035(C_word c,C_word *av) C_noret; C_noret_decl(f_10040) static void C_ccall f_10040(C_word c,C_word *av) C_noret; C_noret_decl(f_10042) static void C_ccall f_10042(C_word c,C_word *av) C_noret; C_noret_decl(f_10049) static void C_ccall f_10049(C_word c,C_word *av) C_noret; C_noret_decl(f_10051) static void C_fcall f_10051(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10055) static void C_fcall f_10055(C_word t0,C_word t1) C_noret; C_noret_decl(f_10058) static void C_ccall f_10058(C_word c,C_word *av) C_noret; C_noret_decl(f_10061) static void C_ccall f_10061(C_word c,C_word *av) C_noret; C_noret_decl(f_10066) static void C_fcall f_10066(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10080) static void C_ccall f_10080(C_word c,C_word *av) C_noret; C_noret_decl(f_10083) static void C_ccall f_10083(C_word c,C_word *av) C_noret; C_noret_decl(f_10097) static void C_ccall f_10097(C_word c,C_word *av) C_noret; C_noret_decl(f_10104) static void C_ccall f_10104(C_word c,C_word *av) C_noret; C_noret_decl(f_10107) static void C_ccall f_10107(C_word c,C_word *av) C_noret; C_noret_decl(f_10110) static void C_ccall f_10110(C_word c,C_word *av) C_noret; C_noret_decl(f_10123) static void C_ccall f_10123(C_word c,C_word *av) C_noret; C_noret_decl(f_10127) static void C_ccall f_10127(C_word c,C_word *av) C_noret; C_noret_decl(f_10133) static void C_ccall f_10133(C_word c,C_word *av) C_noret; C_noret_decl(f_10152) static void C_ccall f_10152(C_word c,C_word *av) C_noret; C_noret_decl(f_10155) static void C_ccall f_10155(C_word c,C_word *av) C_noret; C_noret_decl(f_10181) static void C_ccall f_10181(C_word c,C_word *av) C_noret; C_noret_decl(f_10208) static void C_ccall f_10208(C_word c,C_word *av) C_noret; C_noret_decl(f_10212) static void C_ccall f_10212(C_word c,C_word *av) C_noret; C_noret_decl(f_10215) static void C_ccall f_10215(C_word c,C_word *av) C_noret; C_noret_decl(f_10218) static void C_ccall f_10218(C_word c,C_word *av) C_noret; C_noret_decl(f_10223) static void C_ccall f_10223(C_word c,C_word *av) C_noret; C_noret_decl(f_10229) static void C_ccall f_10229(C_word c,C_word *av) C_noret; C_noret_decl(f_10234) static void C_ccall f_10234(C_word c,C_word *av) C_noret; C_noret_decl(f_10242) static void C_ccall f_10242(C_word c,C_word *av) C_noret; C_noret_decl(f_10244) static void C_fcall f_10244(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10258) static void C_ccall f_10258(C_word c,C_word *av) C_noret; C_noret_decl(f_10265) static void C_ccall f_10265(C_word c,C_word *av) C_noret; C_noret_decl(f_10271) static void C_ccall f_10271(C_word c,C_word *av) C_noret; C_noret_decl(f_10277) static void C_ccall f_10277(C_word c,C_word *av) C_noret; C_noret_decl(f_10289) static void C_fcall f_10289(C_word t0,C_word t1) C_noret; C_noret_decl(f_10296) static void C_ccall f_10296(C_word c,C_word *av) C_noret; C_noret_decl(f_10298) static void C_ccall f_10298(C_word c,C_word *av) C_noret; C_noret_decl(f_10327) static void C_ccall f_10327(C_word c,C_word *av) C_noret; C_noret_decl(f_10339) static void C_ccall f_10339(C_word c,C_word *av) C_noret; C_noret_decl(f_10345) static void C_ccall f_10345(C_word c,C_word *av) C_noret; C_noret_decl(f_10349) static void C_ccall f_10349(C_word c,C_word *av) C_noret; C_noret_decl(f_10352) static void C_ccall f_10352(C_word c,C_word *av) C_noret; C_noret_decl(f_10354) static void C_fcall f_10354(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10358) static void C_ccall f_10358(C_word c,C_word *av) C_noret; C_noret_decl(f_10361) static void C_ccall f_10361(C_word c,C_word *av) C_noret; C_noret_decl(f_10371) static void C_ccall f_10371(C_word c,C_word *av) C_noret; C_noret_decl(f_10383) static void C_ccall f_10383(C_word c,C_word *av) C_noret; C_noret_decl(f_10390) static void C_ccall f_10390(C_word c,C_word *av) C_noret; C_noret_decl(f_10397) static void C_ccall f_10397(C_word c,C_word *av) C_noret; C_noret_decl(f_10399) static void C_fcall f_10399(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10412) static void C_ccall f_10412(C_word c,C_word *av) C_noret; C_noret_decl(f_10450) static void C_ccall f_10450(C_word c,C_word *av) C_noret; C_noret_decl(f_10456) static void C_ccall f_10456(C_word c,C_word *av) C_noret; C_noret_decl(f_10471) static void C_ccall f_10471(C_word c,C_word *av) C_noret; C_noret_decl(f_10475) static void C_fcall f_10475(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10479) static void C_ccall f_10479(C_word c,C_word *av) C_noret; C_noret_decl(f_10490) static void C_ccall f_10490(C_word c,C_word *av) C_noret; C_noret_decl(f_10494) static void C_ccall f_10494(C_word c,C_word *av) C_noret; C_noret_decl(f_10496) static void C_ccall f_10496(C_word c,C_word *av) C_noret; C_noret_decl(f_10515) static void C_fcall f_10515(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10525) static void C_ccall f_10525(C_word c,C_word *av) C_noret; C_noret_decl(f_10538) static C_word C_fcall f_10538(C_word t0); C_noret_decl(f_10561) static void C_ccall f_10561(C_word c,C_word *av) C_noret; C_noret_decl(f_10580) static void C_fcall f_10580(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10590) static void C_ccall f_10590(C_word c,C_word *av) C_noret; C_noret_decl(f_10603) static C_word C_fcall f_10603(C_word t0); C_noret_decl(f_10626) static void C_ccall f_10626(C_word c,C_word *av) C_noret; C_noret_decl(f_10640) static C_word C_fcall f_10640(C_word t0); C_noret_decl(f_10665) static void C_ccall f_10665(C_word c,C_word *av) C_noret; C_noret_decl(f_10699) static void C_ccall f_10699(C_word c,C_word *av) C_noret; C_noret_decl(f_10741) static void C_ccall f_10741(C_word c,C_word *av) C_noret; C_noret_decl(f_10784) static void C_ccall f_10784(C_word c,C_word *av) C_noret; C_noret_decl(f_10816) static void C_ccall f_10816(C_word c,C_word *av) C_noret; C_noret_decl(f_10886) static void C_ccall f_10886(C_word c,C_word *av) C_noret; C_noret_decl(f_10889) static void C_fcall f_10889(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10902) static void C_ccall f_10902(C_word c,C_word *av) C_noret; C_noret_decl(f_10905) static void C_ccall f_10905(C_word c,C_word *av) C_noret; C_noret_decl(f_10908) static void C_ccall f_10908(C_word c,C_word *av) C_noret; C_noret_decl(f_10922) static void C_fcall f_10922(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10958) static void C_ccall f_10958(C_word c,C_word *av) C_noret; C_noret_decl(f_10961) static void C_ccall f_10961(C_word c,C_word *av) C_noret; C_noret_decl(f_10971) static void C_ccall f_10971(C_word c,C_word *av) C_noret; C_noret_decl(f_10973) static void C_fcall f_10973(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10983) static void C_ccall f_10983(C_word c,C_word *av) C_noret; C_noret_decl(f_10997) static void C_ccall f_10997(C_word c,C_word *av) C_noret; C_noret_decl(f_11008) static void C_ccall f_11008(C_word c,C_word *av) C_noret; C_noret_decl(f_11015) static void C_ccall f_11015(C_word c,C_word *av) C_noret; C_noret_decl(f_11018) static void C_fcall f_11018(C_word t0,C_word t1) C_noret; C_noret_decl(f_11023) static void C_ccall f_11023(C_word c,C_word *av) C_noret; C_noret_decl(f_11028) static void C_ccall f_11028(C_word c,C_word *av) C_noret; C_noret_decl(f_11034) static void C_ccall f_11034(C_word c,C_word *av) C_noret; C_noret_decl(f_11040) static void C_ccall f_11040(C_word c,C_word *av) C_noret; C_noret_decl(f_11044) static void C_ccall f_11044(C_word c,C_word *av) C_noret; C_noret_decl(f_11047) static void C_ccall f_11047(C_word c,C_word *av) C_noret; C_noret_decl(f_11051) static void C_ccall f_11051(C_word c,C_word *av) C_noret; C_noret_decl(f_11053) static void C_ccall f_11053(C_word c,C_word *av) C_noret; C_noret_decl(f_11059) static void C_ccall f_11059(C_word c,C_word *av) C_noret; C_noret_decl(f_11065) static void C_ccall f_11065(C_word c,C_word *av) C_noret; C_noret_decl(f_11071) static void C_ccall f_11071(C_word c,C_word *av) C_noret; C_noret_decl(f_11077) static void C_fcall f_11077(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11081) static void C_ccall f_11081(C_word c,C_word *av) C_noret; C_noret_decl(f_11086) static void C_ccall f_11086(C_word c,C_word *av) C_noret; C_noret_decl(f_11092) static void C_ccall f_11092(C_word c,C_word *av) C_noret; C_noret_decl(f_11096) static void C_ccall f_11096(C_word c,C_word *av) C_noret; C_noret_decl(f_11098) static void C_ccall f_11098(C_word c,C_word *av) C_noret; C_noret_decl(f_11104) static void C_ccall f_11104(C_word c,C_word *av) C_noret; C_noret_decl(f_11112) static void C_ccall f_11112(C_word c,C_word *av) C_noret; C_noret_decl(f_11114) static void C_ccall f_11114(C_word c,C_word *av) C_noret; C_noret_decl(f_11118) static void C_ccall f_11118(C_word c,C_word *av) C_noret; C_noret_decl(f_11123) static void C_ccall f_11123(C_word c,C_word *av) C_noret; C_noret_decl(f_11127) static void C_ccall f_11127(C_word c,C_word *av) C_noret; C_noret_decl(f_11134) static void C_ccall f_11134(C_word c,C_word *av) C_noret; C_noret_decl(f_11138) static void C_ccall f_11138(C_word c,C_word *av) C_noret; C_noret_decl(f_11140) static C_word C_fcall f_11140(C_word t0,C_word t1,C_word t2); C_noret_decl(f_11153) static void C_ccall f_11153(C_word c,C_word *av) C_noret; C_noret_decl(f_11159) static void C_ccall f_11159(C_word c,C_word *av) C_noret; C_noret_decl(f_11163) static void C_ccall f_11163(C_word c,C_word *av) C_noret; C_noret_decl(f_11166) static void C_ccall f_11166(C_word c,C_word *av) C_noret; C_noret_decl(f_11173) static void C_ccall f_11173(C_word c,C_word *av) C_noret; C_noret_decl(f_11177) static void C_ccall f_11177(C_word c,C_word *av) C_noret; C_noret_decl(f_11179) static void C_ccall f_11179(C_word c,C_word *av) C_noret; C_noret_decl(f_11183) static void C_ccall f_11183(C_word c,C_word *av) C_noret; C_noret_decl(f_11188) static void C_ccall f_11188(C_word c,C_word *av) C_noret; C_noret_decl(f_11192) static void C_ccall f_11192(C_word c,C_word *av) C_noret; C_noret_decl(f_11195) static void C_ccall f_11195(C_word c,C_word *av) C_noret; C_noret_decl(f_11202) static void C_ccall f_11202(C_word c,C_word *av) C_noret; C_noret_decl(f_11206) static void C_ccall f_11206(C_word c,C_word *av) C_noret; C_noret_decl(f_11210) static void C_ccall f_11210(C_word c,C_word *av) C_noret; C_noret_decl(f_11214) static void C_ccall f_11214(C_word c,C_word *av) C_noret; C_noret_decl(f_11216) static void C_ccall f_11216(C_word c,C_word *av) C_noret; C_noret_decl(f_11222) static void C_ccall f_11222(C_word c,C_word *av) C_noret; C_noret_decl(f_11230) static void C_ccall f_11230(C_word c,C_word *av) C_noret; C_noret_decl(f_11232) static void C_ccall f_11232(C_word c,C_word *av) C_noret; C_noret_decl(f_11238) static void C_ccall f_11238(C_word c,C_word *av) C_noret; C_noret_decl(f_11242) static void C_ccall f_11242(C_word c,C_word *av) C_noret; C_noret_decl(f_11245) static void C_ccall f_11245(C_word c,C_word *av) C_noret; C_noret_decl(f_11252) static void C_ccall f_11252(C_word c,C_word *av) C_noret; C_noret_decl(f_11256) static void C_ccall f_11256(C_word c,C_word *av) C_noret; C_noret_decl(f_11258) static void C_ccall f_11258(C_word c,C_word *av) C_noret; C_noret_decl(f_11262) static void C_ccall f_11262(C_word c,C_word *av) C_noret; C_noret_decl(f_11267) static void C_ccall f_11267(C_word c,C_word *av) C_noret; C_noret_decl(f_11271) static void C_ccall f_11271(C_word c,C_word *av) C_noret; C_noret_decl(f_11278) static void C_ccall f_11278(C_word c,C_word *av) C_noret; C_noret_decl(f_11280) static void C_ccall f_11280(C_word c,C_word *av) C_noret; C_noret_decl(f_11284) static void C_ccall f_11284(C_word c,C_word *av) C_noret; C_noret_decl(f_11289) static void C_ccall f_11289(C_word c,C_word *av) C_noret; C_noret_decl(f_11293) static void C_ccall f_11293(C_word c,C_word *av) C_noret; C_noret_decl(f_11295) static void C_ccall f_11295(C_word c,C_word *av) C_noret; C_noret_decl(f_11307) static void C_ccall f_11307(C_word c,C_word *av) C_noret; C_noret_decl(f_11314) static void C_ccall f_11314(C_word c,C_word *av) C_noret; C_noret_decl(f_11316) static void C_ccall f_11316(C_word c,C_word *av) C_noret; C_noret_decl(f_11322) static void C_fcall f_11322(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11347) static void C_ccall f_11347(C_word c,C_word *av) C_noret; C_noret_decl(f_11361) static void C_ccall f_11361(C_word c,C_word *av) C_noret; C_noret_decl(f_11373) static void C_ccall f_11373(C_word c,C_word *av) C_noret; C_noret_decl(f_11377) static void C_ccall f_11377(C_word c,C_word *av) C_noret; C_noret_decl(f_11404) static void C_ccall f_11404(C_word c,C_word *av) C_noret; C_noret_decl(f_11408) static void C_ccall f_11408(C_word c,C_word *av) C_noret; C_noret_decl(f_11412) static void C_ccall f_11412(C_word c,C_word *av) C_noret; C_noret_decl(f_11416) static void C_ccall f_11416(C_word c,C_word *av) C_noret; C_noret_decl(f_11420) static void C_ccall f_11420(C_word c,C_word *av) C_noret; C_noret_decl(f_11428) static void C_ccall f_11428(C_word c,C_word *av) C_noret; C_noret_decl(f_11436) static void C_ccall f_11436(C_word c,C_word *av) C_noret; C_noret_decl(f_11444) static void C_ccall f_11444(C_word c,C_word *av) C_noret; C_noret_decl(f_11450) static void C_ccall f_11450(C_word c,C_word *av) C_noret; C_noret_decl(f_11454) static void C_ccall f_11454(C_word c,C_word *av) C_noret; C_noret_decl(f_11457) static void C_ccall f_11457(C_word c,C_word *av) C_noret; C_noret_decl(f_11466) static void C_ccall f_11466(C_word c,C_word *av) C_noret; C_noret_decl(f_11472) static void C_ccall f_11472(C_word c,C_word *av) C_noret; C_noret_decl(f_11476) static void C_fcall f_11476(C_word t0,C_word t1) C_noret; C_noret_decl(f_11479) static void C_ccall f_11479(C_word c,C_word *av) C_noret; C_noret_decl(f_11491) static void C_ccall f_11491(C_word c,C_word *av) C_noret; C_noret_decl(f_11493) static void C_ccall f_11493(C_word c,C_word *av) C_noret; C_noret_decl(f_11499) static void C_ccall f_11499(C_word c,C_word *av) C_noret; C_noret_decl(f_11504) static void C_ccall f_11504(C_word c,C_word *av) C_noret; C_noret_decl(f_11508) static void C_ccall f_11508(C_word c,C_word *av) C_noret; C_noret_decl(f_11511) static void C_fcall f_11511(C_word t0,C_word t1) C_noret; C_noret_decl(f_11521) static void C_ccall f_11521(C_word c,C_word *av) C_noret; C_noret_decl(f_11534) static void C_ccall f_11534(C_word c,C_word *av) C_noret; C_noret_decl(f_11539) static void C_ccall f_11539(C_word c,C_word *av) C_noret; C_noret_decl(f_11546) static void C_ccall f_11546(C_word c,C_word *av) C_noret; C_noret_decl(f_11549) static void C_ccall f_11549(C_word c,C_word *av) C_noret; C_noret_decl(f_11561) static void C_ccall f_11561(C_word c,C_word *av) C_noret; C_noret_decl(f_11569) static void C_ccall f_11569(C_word c,C_word *av) C_noret; C_noret_decl(f_11573) static void C_ccall f_11573(C_word c,C_word *av) C_noret; C_noret_decl(f_11576) static void C_ccall f_11576(C_word c,C_word *av) C_noret; C_noret_decl(f_11580) static void C_ccall f_11580(C_word c,C_word *av) C_noret; C_noret_decl(f_11584) static void C_ccall f_11584(C_word c,C_word *av) C_noret; C_noret_decl(f_11587) static void C_ccall f_11587(C_word c,C_word *av) C_noret; C_noret_decl(f_11590) static void C_ccall f_11590(C_word c,C_word *av) C_noret; C_noret_decl(f_11599) static void C_ccall f_11599(C_word c,C_word *av) C_noret; C_noret_decl(f_11609) static void C_ccall f_11609(C_word c,C_word *av) C_noret; C_noret_decl(f_11613) static void C_ccall f_11613(C_word c,C_word *av) C_noret; C_noret_decl(f_11616) static void C_ccall f_11616(C_word c,C_word *av) C_noret; C_noret_decl(f_11619) static void C_ccall f_11619(C_word c,C_word *av) C_noret; C_noret_decl(f_11622) static void C_ccall f_11622(C_word c,C_word *av) C_noret; C_noret_decl(f_11630) static void C_ccall f_11630(C_word c,C_word *av) C_noret; C_noret_decl(f_11639) static void C_ccall f_11639(C_word c,C_word *av) C_noret; C_noret_decl(f_3517) static void C_ccall f_3517(C_word c,C_word *av) C_noret; C_noret_decl(f_3520) static void C_ccall f_3520(C_word c,C_word *av) C_noret; C_noret_decl(f_3523) static void C_ccall f_3523(C_word c,C_word *av) C_noret; C_noret_decl(f_3526) static void C_ccall f_3526(C_word c,C_word *av) C_noret; C_noret_decl(f_3534) static void C_ccall f_3534(C_word c,C_word *av) C_noret; C_noret_decl(f_3547) static void C_ccall f_3547(C_word c,C_word *av) C_noret; C_noret_decl(f_3555) static void C_ccall f_3555(C_word c,C_word *av) C_noret; C_noret_decl(f_3559) static void C_ccall f_3559(C_word c,C_word *av) C_noret; C_noret_decl(f_3562) static void C_ccall f_3562(C_word c,C_word *av) C_noret; C_noret_decl(f_3565) static void C_ccall f_3565(C_word c,C_word *av) C_noret; C_noret_decl(f_3570) static void C_ccall f_3570(C_word c,C_word *av) C_noret; C_noret_decl(f_3572) static void C_fcall f_3572(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3599) static void C_fcall f_3599(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3612) static void C_fcall f_3612(C_word t0,C_word t1) C_noret; C_noret_decl(f_3634) static void C_fcall f_3634(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3638) static void C_ccall f_3638(C_word c,C_word *av) C_noret; C_noret_decl(f_3646) static void C_ccall f_3646(C_word c,C_word *av) C_noret; C_noret_decl(f_3652) static void C_ccall f_3652(C_word c,C_word *av) C_noret; C_noret_decl(f_3659) static void C_ccall f_3659(C_word c,C_word *av) C_noret; C_noret_decl(f_3666) static void C_ccall f_3666(C_word c,C_word *av) C_noret; C_noret_decl(f_3668) static void C_fcall f_3668(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3672) static void C_ccall f_3672(C_word c,C_word *av) C_noret; C_noret_decl(f_3680) static void C_fcall f_3680(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3697) static void C_fcall f_3697(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3727) static C_word C_fcall f_3727(C_word t0,C_word t1,C_word t2); C_noret_decl(f_3757) static C_word C_fcall f_3757(C_word *a,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4); C_noret_decl(f_3771) static C_word C_fcall f_3771(C_word t0,C_word t1,C_word t2); C_noret_decl(f_3781) static void C_fcall f_3781(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3787) static void C_fcall f_3787(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_3794) static void C_ccall f_3794(C_word c,C_word *av) C_noret; C_noret_decl(f_3795) static void C_ccall f_3795(C_word c,C_word *av) C_noret; C_noret_decl(f_3807) static void C_ccall f_3807(C_word c,C_word *av) C_noret; C_noret_decl(f_3813) static void C_ccall f_3813(C_word c,C_word *av) C_noret; C_noret_decl(f_3823) static void C_ccall f_3823(C_word c,C_word *av) C_noret; C_noret_decl(f_3826) static void C_fcall f_3826(C_word t0,C_word t1) C_noret; C_noret_decl(f_3833) static void C_ccall f_3833(C_word c,C_word *av) C_noret; C_noret_decl(f_3843) static void C_ccall f_3843(C_word c,C_word *av) C_noret; C_noret_decl(f_3844) static void C_ccall f_3844(C_word c,C_word *av) C_noret; C_noret_decl(f_3849) static void C_ccall f_3849(C_word c,C_word *av) C_noret; C_noret_decl(f_3853) static void C_fcall f_3853(C_word t0,C_word t1) C_noret; C_noret_decl(f_3874) static void C_ccall f_3874(C_word c,C_word *av) C_noret; C_noret_decl(f_3896) static void C_ccall f_3896(C_word c,C_word *av) C_noret; C_noret_decl(f_3907) static void C_ccall f_3907(C_word c,C_word *av) C_noret; C_noret_decl(f_3922) static void C_ccall f_3922(C_word c,C_word *av) C_noret; C_noret_decl(f_3941) static void C_ccall f_3941(C_word c,C_word *av) C_noret; C_noret_decl(f_3964) static void C_ccall f_3964(C_word c,C_word *av) C_noret; C_noret_decl(f_3985) static void C_ccall f_3985(C_word c,C_word *av) C_noret; C_noret_decl(f_4004) static void C_ccall f_4004(C_word c,C_word *av) C_noret; C_noret_decl(f_4011) static void C_ccall f_4011(C_word c,C_word *av) C_noret; C_noret_decl(f_4019) static void C_ccall f_4019(C_word c,C_word *av) C_noret; C_noret_decl(f_4027) static void C_ccall f_4027(C_word c,C_word *av) C_noret; C_noret_decl(f_4035) static void C_ccall f_4035(C_word c,C_word *av) C_noret; C_noret_decl(f_4037) static void C_ccall f_4037(C_word c,C_word *av) C_noret; C_noret_decl(f_4056) static void C_ccall f_4056(C_word c,C_word *av) C_noret; C_noret_decl(f_4058) static void C_ccall f_4058(C_word c,C_word *av) C_noret; C_noret_decl(f_4068) static void C_ccall f_4068(C_word c,C_word *av) C_noret; C_noret_decl(f_4069) static void C_ccall f_4069(C_word c,C_word *av) C_noret; C_noret_decl(f_4091) static void C_ccall f_4091(C_word c,C_word *av) C_noret; C_noret_decl(f_4106) static void C_ccall f_4106(C_word c,C_word *av) C_noret; C_noret_decl(f_4115) static void C_ccall f_4115(C_word c,C_word *av) C_noret; C_noret_decl(f_4122) static void C_ccall f_4122(C_word c,C_word *av) C_noret; C_noret_decl(f_4130) static void C_ccall f_4130(C_word c,C_word *av) C_noret; C_noret_decl(f_4138) static void C_ccall f_4138(C_word c,C_word *av) C_noret; C_noret_decl(f_4146) static void C_ccall f_4146(C_word c,C_word *av) C_noret; C_noret_decl(f_4154) static void C_ccall f_4154(C_word c,C_word *av) C_noret; C_noret_decl(f_4162) static void C_ccall f_4162(C_word c,C_word *av) C_noret; C_noret_decl(f_4170) static void C_ccall f_4170(C_word c,C_word *av) C_noret; C_noret_decl(f_4172) static void C_ccall f_4172(C_word c,C_word *av) C_noret; C_noret_decl(f_4201) static void C_ccall f_4201(C_word c,C_word *av) C_noret; C_noret_decl(f_4235) static void C_ccall f_4235(C_word c,C_word *av) C_noret; C_noret_decl(f_4245) static void C_ccall f_4245(C_word c,C_word *av) C_noret; C_noret_decl(f_4248) static void C_ccall f_4248(C_word c,C_word *av) C_noret; C_noret_decl(f_4251) static void C_ccall f_4251(C_word c,C_word *av) C_noret; C_noret_decl(f_4252) static void C_ccall f_4252(C_word c,C_word *av) C_noret; C_noret_decl(f_4259) static void C_ccall f_4259(C_word c,C_word *av) C_noret; C_noret_decl(f_4333) static void C_ccall f_4333(C_word c,C_word *av) C_noret; C_noret_decl(f_4336) static void C_ccall f_4336(C_word c,C_word *av) C_noret; C_noret_decl(f_4337) static void C_ccall f_4337(C_word c,C_word *av) C_noret; C_noret_decl(f_4341) static void C_ccall f_4341(C_word c,C_word *av) C_noret; C_noret_decl(f_4355) static void C_ccall f_4355(C_word c,C_word *av) C_noret; C_noret_decl(f_4358) static void C_ccall f_4358(C_word c,C_word *av) C_noret; C_noret_decl(f_4361) static void C_ccall f_4361(C_word c,C_word *av) C_noret; C_noret_decl(f_4362) static void C_ccall f_4362(C_word c,C_word *av) C_noret; C_noret_decl(f_4366) static void C_ccall f_4366(C_word c,C_word *av) C_noret; C_noret_decl(f_4369) static void C_ccall f_4369(C_word c,C_word *av) C_noret; C_noret_decl(f_4407) static void C_ccall f_4407(C_word c,C_word *av) C_noret; C_noret_decl(f_4431) static void C_ccall f_4431(C_word c,C_word *av) C_noret; C_noret_decl(f_4437) static void C_ccall f_4437(C_word c,C_word *av) C_noret; C_noret_decl(f_4441) static void C_ccall f_4441(C_word c,C_word *av) C_noret; C_noret_decl(f_4450) static void C_ccall f_4450(C_word c,C_word *av) C_noret; C_noret_decl(f_4454) static void C_ccall f_4454(C_word c,C_word *av) C_noret; C_noret_decl(f_4461) static void C_ccall f_4461(C_word c,C_word *av) C_noret; C_noret_decl(f_4462) static void C_ccall f_4462(C_word c,C_word *av) C_noret; C_noret_decl(f_4466) static void C_ccall f_4466(C_word c,C_word *av) C_noret; C_noret_decl(f_4492) static void C_ccall f_4492(C_word c,C_word *av) C_noret; C_noret_decl(f_4497) static void C_ccall f_4497(C_word c,C_word *av) C_noret; C_noret_decl(f_4509) static void C_ccall f_4509(C_word c,C_word *av) C_noret; C_noret_decl(f_4510) static void C_ccall f_4510(C_word c,C_word *av) C_noret; C_noret_decl(f_4519) static void C_ccall f_4519(C_word c,C_word *av) C_noret; C_noret_decl(f_4546) static void C_ccall f_4546(C_word c,C_word *av) C_noret; C_noret_decl(f_4555) static void C_ccall f_4555(C_word c,C_word *av) C_noret; C_noret_decl(f_4561) static void C_ccall f_4561(C_word c,C_word *av) C_noret; C_noret_decl(f_4564) static void C_ccall f_4564(C_word c,C_word *av) C_noret; C_noret_decl(f_4573) static void C_ccall f_4573(C_word c,C_word *av) C_noret; C_noret_decl(f_4574) static void C_ccall f_4574(C_word c,C_word *av) C_noret; C_noret_decl(f_4590) static void C_ccall f_4590(C_word c,C_word *av) C_noret; C_noret_decl(f_4594) static void C_ccall f_4594(C_word c,C_word *av) C_noret; C_noret_decl(f_4607) static void C_ccall f_4607(C_word c,C_word *av) C_noret; C_noret_decl(f_4610) static void C_ccall f_4610(C_word c,C_word *av) C_noret; C_noret_decl(f_4611) static void C_ccall f_4611(C_word c,C_word *av) C_noret; C_noret_decl(f_4627) static void C_ccall f_4627(C_word c,C_word *av) C_noret; C_noret_decl(f_4631) static void C_ccall f_4631(C_word c,C_word *av) C_noret; C_noret_decl(f_4635) static void C_ccall f_4635(C_word c,C_word *av) C_noret; C_noret_decl(f_4643) static void C_ccall f_4643(C_word c,C_word *av) C_noret; C_noret_decl(f_4656) static void C_ccall f_4656(C_word c,C_word *av) C_noret; C_noret_decl(f_4659) static void C_ccall f_4659(C_word c,C_word *av) C_noret; C_noret_decl(f_4665) static void C_ccall f_4665(C_word c,C_word *av) C_noret; C_noret_decl(f_4666) static void C_ccall f_4666(C_word c,C_word *av) C_noret; C_noret_decl(f_4682) static void C_ccall f_4682(C_word c,C_word *av) C_noret; C_noret_decl(f_4686) static void C_ccall f_4686(C_word c,C_word *av) C_noret; C_noret_decl(f_4690) static void C_ccall f_4690(C_word c,C_word *av) C_noret; C_noret_decl(f_4694) static void C_ccall f_4694(C_word c,C_word *av) C_noret; C_noret_decl(f_4702) static void C_ccall f_4702(C_word c,C_word *av) C_noret; C_noret_decl(f_4710) static void C_ccall f_4710(C_word c,C_word *av) C_noret; C_noret_decl(f_4723) static void C_ccall f_4723(C_word c,C_word *av) C_noret; C_noret_decl(f_4726) static void C_ccall f_4726(C_word c,C_word *av) C_noret; C_noret_decl(f_4732) static void C_ccall f_4732(C_word c,C_word *av) C_noret; C_noret_decl(f_4735) static void C_ccall f_4735(C_word c,C_word *av) C_noret; C_noret_decl(f_4736) static void C_ccall f_4736(C_word c,C_word *av) C_noret; C_noret_decl(f_4752) static void C_ccall f_4752(C_word c,C_word *av) C_noret; C_noret_decl(f_4756) static void C_ccall f_4756(C_word c,C_word *av) C_noret; C_noret_decl(f_4760) static void C_ccall f_4760(C_word c,C_word *av) C_noret; C_noret_decl(f_4764) static void C_ccall f_4764(C_word c,C_word *av) C_noret; C_noret_decl(f_4768) static void C_ccall f_4768(C_word c,C_word *av) C_noret; C_noret_decl(f_4776) static void C_ccall f_4776(C_word c,C_word *av) C_noret; C_noret_decl(f_4784) static void C_ccall f_4784(C_word c,C_word *av) C_noret; C_noret_decl(f_4792) static void C_ccall f_4792(C_word c,C_word *av) C_noret; C_noret_decl(f_4800) static void C_fcall f_4800(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4813) static void C_ccall f_4813(C_word c,C_word *av) C_noret; C_noret_decl(f_4814) static void C_ccall f_4814(C_word c,C_word *av) C_noret; C_noret_decl(f_4818) static void C_ccall f_4818(C_word c,C_word *av) C_noret; C_noret_decl(f_4821) static void C_ccall f_4821(C_word c,C_word *av) C_noret; C_noret_decl(f_4830) static void C_fcall f_4830(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4855) static void C_ccall f_4855(C_word c,C_word *av) C_noret; C_noret_decl(f_4860) static void C_fcall f_4860(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4885) static void C_ccall f_4885(C_word c,C_word *av) C_noret; C_noret_decl(f_4902) static void C_ccall f_4902(C_word c,C_word *av) C_noret; C_noret_decl(f_4906) static void C_ccall f_4906(C_word c,C_word *av) C_noret; C_noret_decl(f_4910) static void C_ccall f_4910(C_word c,C_word *av) C_noret; C_noret_decl(f_4913) static void C_ccall f_4913(C_word c,C_word *av) C_noret; C_noret_decl(f_4919) static void C_ccall f_4919(C_word c,C_word *av) C_noret; C_noret_decl(f_4927) static void C_ccall f_4927(C_word c,C_word *av) C_noret; C_noret_decl(f_4935) static void C_ccall f_4935(C_word c,C_word *av) C_noret; C_noret_decl(f_4937) static void C_ccall f_4937(C_word c,C_word *av) C_noret; C_noret_decl(f_4941) static void C_ccall f_4941(C_word c,C_word *av) C_noret; C_noret_decl(f_4944) static void C_ccall f_4944(C_word c,C_word *av) C_noret; C_noret_decl(f_4949) static void C_ccall f_4949(C_word c,C_word *av) C_noret; C_noret_decl(f_4951) static void C_fcall f_4951(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4976) static void C_ccall f_4976(C_word c,C_word *av) C_noret; C_noret_decl(f_4985) static void C_fcall f_4985(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5058) static void C_ccall f_5058(C_word c,C_word *av) C_noret; C_noret_decl(f_5062) static void C_ccall f_5062(C_word c,C_word *av) C_noret; C_noret_decl(f_5082) static void C_ccall f_5082(C_word c,C_word *av) C_noret; C_noret_decl(f_5096) static void C_fcall f_5096(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5130) static void C_fcall f_5130(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5180) static void C_ccall f_5180(C_word c,C_word *av) C_noret; C_noret_decl(f_5189) static void C_ccall f_5189(C_word c,C_word *av) C_noret; C_noret_decl(f_5215) static void C_ccall f_5215(C_word c,C_word *av) C_noret; C_noret_decl(f_5242) static void C_ccall f_5242(C_word c,C_word *av) C_noret; C_noret_decl(f_5246) static void C_ccall f_5246(C_word c,C_word *av) C_noret; C_noret_decl(f_5258) static void C_ccall f_5258(C_word c,C_word *av) C_noret; C_noret_decl(f_5272) static void C_fcall f_5272(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5320) static void C_fcall f_5320(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5368) static void C_fcall f_5368(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5402) static void C_fcall f_5402(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5427) static void C_ccall f_5427(C_word c,C_word *av) C_noret; C_noret_decl(f_5436) static void C_fcall f_5436(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5477) static void C_ccall f_5477(C_word c,C_word *av) C_noret; C_noret_decl(f_5488) static void C_ccall f_5488(C_word c,C_word *av) C_noret; C_noret_decl(f_5493) static void C_ccall f_5493(C_word c,C_word *av) C_noret; C_noret_decl(f_5503) static void C_ccall f_5503(C_word c,C_word *av) C_noret; C_noret_decl(f_5506) static void C_ccall f_5506(C_word c,C_word *av) C_noret; C_noret_decl(f_5512) static void C_ccall f_5512(C_word c,C_word *av) C_noret; C_noret_decl(f_5522) static void C_ccall f_5522(C_word c,C_word *av) C_noret; C_noret_decl(f_5528) static void C_ccall f_5528(C_word c,C_word *av) C_noret; C_noret_decl(f_5541) static void C_ccall f_5541(C_word c,C_word *av) C_noret; C_noret_decl(f_5547) static void C_ccall f_5547(C_word c,C_word *av) C_noret; C_noret_decl(f_5565) static void C_ccall f_5565(C_word c,C_word *av) C_noret; C_noret_decl(f_5571) static void C_ccall f_5571(C_word c,C_word *av) C_noret; C_noret_decl(f_5584) static void C_ccall f_5584(C_word c,C_word *av) C_noret; C_noret_decl(f_5590) static void C_ccall f_5590(C_word c,C_word *av) C_noret; C_noret_decl(f_5612) static void C_ccall f_5612(C_word c,C_word *av) C_noret; C_noret_decl(f_5618) static void C_ccall f_5618(C_word c,C_word *av) C_noret; C_noret_decl(f_5631) static void C_ccall f_5631(C_word c,C_word *av) C_noret; C_noret_decl(f_5637) static void C_ccall f_5637(C_word c,C_word *av) C_noret; C_noret_decl(f_5659) static void C_ccall f_5659(C_word c,C_word *av) C_noret; C_noret_decl(f_5665) static void C_ccall f_5665(C_word c,C_word *av) C_noret; C_noret_decl(f_5678) static void C_ccall f_5678(C_word c,C_word *av) C_noret; C_noret_decl(f_5684) static void C_ccall f_5684(C_word c,C_word *av) C_noret; C_noret_decl(f_5706) static void C_ccall f_5706(C_word c,C_word *av) C_noret; C_noret_decl(f_5712) static void C_ccall f_5712(C_word c,C_word *av) C_noret; C_noret_decl(f_5725) static void C_ccall f_5725(C_word c,C_word *av) C_noret; C_noret_decl(f_5731) static void C_ccall f_5731(C_word c,C_word *av) C_noret; C_noret_decl(f_5743) static void C_ccall f_5743(C_word c,C_word *av) C_noret; C_noret_decl(f_5747) static void C_ccall f_5747(C_word c,C_word *av) C_noret; C_noret_decl(f_5753) static void C_ccall f_5753(C_word c,C_word *av) C_noret; C_noret_decl(f_5765) static void C_ccall f_5765(C_word c,C_word *av) C_noret; C_noret_decl(f_5769) static void C_ccall f_5769(C_word c,C_word *av) C_noret; C_noret_decl(f_5770) static void C_ccall f_5770(C_word c,C_word *av) C_noret; C_noret_decl(f_5776) static void C_ccall f_5776(C_word c,C_word *av) C_noret; C_noret_decl(f_5798) static void C_ccall f_5798(C_word c,C_word *av) C_noret; C_noret_decl(f_5814) static void C_ccall f_5814(C_word c,C_word *av) C_noret; C_noret_decl(f_5818) static void C_ccall f_5818(C_word c,C_word *av) C_noret; C_noret_decl(f_5822) static void C_ccall f_5822(C_word c,C_word *av) C_noret; C_noret_decl(f_5825) static void C_ccall f_5825(C_word c,C_word *av) C_noret; C_noret_decl(f_5831) static void C_ccall f_5831(C_word c,C_word *av) C_noret; C_noret_decl(f_5839) static void C_ccall f_5839(C_word c,C_word *av) C_noret; C_noret_decl(f_5845) static void C_ccall f_5845(C_word c,C_word *av) C_noret; C_noret_decl(f_5849) static void C_ccall f_5849(C_word c,C_word *av) C_noret; C_noret_decl(f_5852) static void C_ccall f_5852(C_word c,C_word *av) C_noret; C_noret_decl(f_5857) static void C_ccall f_5857(C_word c,C_word *av) C_noret; C_noret_decl(f_5859) static void C_fcall f_5859(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5884) static void C_ccall f_5884(C_word c,C_word *av) C_noret; C_noret_decl(f_5894) static void C_ccall f_5894(C_word c,C_word *av) C_noret; C_noret_decl(f_5899) static void C_ccall f_5899(C_word c,C_word *av) C_noret; C_noret_decl(f_5907) static void C_ccall f_5907(C_word c,C_word *av) C_noret; C_noret_decl(f_5909) static void C_ccall f_5909(C_word c,C_word *av) C_noret; C_noret_decl(f_5920) static void C_ccall f_5920(C_word c,C_word *av) C_noret; C_noret_decl(f_5929) static void C_ccall f_5929(C_word c,C_word *av) C_noret; C_noret_decl(f_5934) static void C_ccall f_5934(C_word c,C_word *av) C_noret; C_noret_decl(f_5938) static void C_ccall f_5938(C_word c,C_word *av) C_noret; C_noret_decl(f_5942) static void C_ccall f_5942(C_word c,C_word *av) C_noret; C_noret_decl(f_5945) static void C_ccall f_5945(C_word c,C_word *av) C_noret; C_noret_decl(f_5951) static void C_ccall f_5951(C_word c,C_word *av) C_noret; C_noret_decl(f_5959) static void C_ccall f_5959(C_word c,C_word *av) C_noret; C_noret_decl(f_5967) static void C_ccall f_5967(C_word c,C_word *av) C_noret; C_noret_decl(f_5969) static void C_ccall f_5969(C_word c,C_word *av) C_noret; C_noret_decl(f_5973) static void C_ccall f_5973(C_word c,C_word *av) C_noret; C_noret_decl(f_5976) static void C_ccall f_5976(C_word c,C_word *av) C_noret; C_noret_decl(f_5994) static void C_ccall f_5994(C_word c,C_word *av) C_noret; C_noret_decl(f_5998) static void C_ccall f_5998(C_word c,C_word *av) C_noret; C_noret_decl(f_6002) static void C_ccall f_6002(C_word c,C_word *av) C_noret; C_noret_decl(f_6006) static void C_ccall f_6006(C_word c,C_word *av) C_noret; C_noret_decl(f_6021) static void C_ccall f_6021(C_word c,C_word *av) C_noret; C_noret_decl(f_6025) static void C_ccall f_6025(C_word c,C_word *av) C_noret; C_noret_decl(f_6027) static void C_fcall f_6027(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6052) static void C_ccall f_6052(C_word c,C_word *av) C_noret; C_noret_decl(f_6081) static void C_ccall f_6081(C_word c,C_word *av) C_noret; C_noret_decl(f_6085) static void C_ccall f_6085(C_word c,C_word *av) C_noret; C_noret_decl(f_6089) static void C_ccall f_6089(C_word c,C_word *av) C_noret; C_noret_decl(f_6104) static void C_ccall f_6104(C_word c,C_word *av) C_noret; C_noret_decl(f_6107) static void C_ccall f_6107(C_word c,C_word *av) C_noret; C_noret_decl(f_6108) static C_word C_fcall f_6108(C_word t0,C_word t1); C_noret_decl(f_6127) static void C_ccall f_6127(C_word c,C_word *av) C_noret; C_noret_decl(f_6131) static void C_ccall f_6131(C_word c,C_word *av) C_noret; C_noret_decl(f_6135) static void C_ccall f_6135(C_word c,C_word *av) C_noret; C_noret_decl(f_6138) static void C_ccall f_6138(C_word c,C_word *av) C_noret; C_noret_decl(f_6144) static void C_ccall f_6144(C_word c,C_word *av) C_noret; C_noret_decl(f_6152) static void C_ccall f_6152(C_word c,C_word *av) C_noret; C_noret_decl(f_6160) static void C_ccall f_6160(C_word c,C_word *av) C_noret; C_noret_decl(f_6162) static void C_ccall f_6162(C_word c,C_word *av) C_noret; C_noret_decl(f_6166) static void C_ccall f_6166(C_word c,C_word *av) C_noret; C_noret_decl(f_6169) static void C_ccall f_6169(C_word c,C_word *av) C_noret; C_noret_decl(f_6172) static C_word C_fcall f_6172(C_word t0,C_word t1); C_noret_decl(f_6197) static void C_ccall f_6197(C_word c,C_word *av) C_noret; C_noret_decl(f_6199) static void C_fcall f_6199(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6224) static void C_ccall f_6224(C_word c,C_word *av) C_noret; C_noret_decl(f_6246) static void C_ccall f_6246(C_word c,C_word *av) C_noret; C_noret_decl(f_6249) static void C_ccall f_6249(C_word c,C_word *av) C_noret; C_noret_decl(f_6252) static void C_ccall f_6252(C_word c,C_word *av) C_noret; C_noret_decl(f_6255) static void C_ccall f_6255(C_word c,C_word *av) C_noret; C_noret_decl(f_6262) static void C_ccall f_6262(C_word c,C_word *av) C_noret; C_noret_decl(f_6266) static void C_ccall f_6266(C_word c,C_word *av) C_noret; C_noret_decl(f_6270) static void C_ccall f_6270(C_word c,C_word *av) C_noret; C_noret_decl(f_6287) static void C_ccall f_6287(C_word c,C_word *av) C_noret; C_noret_decl(f_6309) static void C_ccall f_6309(C_word c,C_word *av) C_noret; C_noret_decl(f_6317) static void C_ccall f_6317(C_word c,C_word *av) C_noret; C_noret_decl(f_6336) static void C_ccall f_6336(C_word c,C_word *av) C_noret; C_noret_decl(f_6344) static void C_ccall f_6344(C_word c,C_word *av) C_noret; C_noret_decl(f_6354) static void C_ccall f_6354(C_word c,C_word *av) C_noret; C_noret_decl(f_6358) static void C_ccall f_6358(C_word c,C_word *av) C_noret; C_noret_decl(f_6387) static void C_ccall f_6387(C_word c,C_word *av) C_noret; C_noret_decl(f_6399) static void C_ccall f_6399(C_word c,C_word *av) C_noret; C_noret_decl(f_6401) static void C_ccall f_6401(C_word c,C_word *av) C_noret; C_noret_decl(f_6415) static void C_fcall f_6415(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6440) static void C_ccall f_6440(C_word c,C_word *av) C_noret; C_noret_decl(f_6456) static void C_ccall f_6456(C_word c,C_word *av) C_noret; C_noret_decl(f_6465) static void C_ccall f_6465(C_word c,C_word *av) C_noret; C_noret_decl(f_6468) static void C_ccall f_6468(C_word c,C_word *av) C_noret; C_noret_decl(f_6471) static void C_ccall f_6471(C_word c,C_word *av) C_noret; C_noret_decl(f_6474) static void C_ccall f_6474(C_word c,C_word *av) C_noret; C_noret_decl(f_6479) static void C_ccall f_6479(C_word c,C_word *av) C_noret; C_noret_decl(f_6483) static void C_ccall f_6483(C_word c,C_word *av) C_noret; C_noret_decl(f_6486) static void C_ccall f_6486(C_word c,C_word *av) C_noret; C_noret_decl(f_6489) static void C_ccall f_6489(C_word c,C_word *av) C_noret; C_noret_decl(f_6492) static void C_ccall f_6492(C_word c,C_word *av) C_noret; C_noret_decl(f_6496) static void C_ccall f_6496(C_word c,C_word *av) C_noret; C_noret_decl(f_6500) static void C_ccall f_6500(C_word c,C_word *av) C_noret; C_noret_decl(f_6504) static void C_ccall f_6504(C_word c,C_word *av) C_noret; C_noret_decl(f_6508) static void C_ccall f_6508(C_word c,C_word *av) C_noret; C_noret_decl(f_6511) static void C_ccall f_6511(C_word c,C_word *av) C_noret; C_noret_decl(f_6514) static void C_ccall f_6514(C_word c,C_word *av) C_noret; C_noret_decl(f_6517) static void C_ccall f_6517(C_word c,C_word *av) C_noret; C_noret_decl(f_6520) static void C_ccall f_6520(C_word c,C_word *av) C_noret; C_noret_decl(f_6535) static void C_ccall f_6535(C_word c,C_word *av) C_noret; C_noret_decl(f_6541) static void C_ccall f_6541(C_word c,C_word *av) C_noret; C_noret_decl(f_6551) static void C_fcall f_6551(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6561) static void C_ccall f_6561(C_word c,C_word *av) C_noret; C_noret_decl(f_6564) static void C_ccall f_6564(C_word c,C_word *av) C_noret; C_noret_decl(f_6567) static void C_ccall f_6567(C_word c,C_word *av) C_noret; C_noret_decl(f_6568) static void C_ccall f_6568(C_word c,C_word *av) C_noret; C_noret_decl(f_6574) static void C_fcall f_6574(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6597) static void C_ccall f_6597(C_word c,C_word *av) C_noret; C_noret_decl(f_6608) static void C_ccall f_6608(C_word c,C_word *av) C_noret; C_noret_decl(f_6612) static void C_ccall f_6612(C_word c,C_word *av) C_noret; C_noret_decl(f_6627) static void C_ccall f_6627(C_word c,C_word *av) C_noret; C_noret_decl(f_6631) static void C_ccall f_6631(C_word c,C_word *av) C_noret; C_noret_decl(f_6635) static void C_ccall f_6635(C_word c,C_word *av) C_noret; C_noret_decl(f_6638) static void C_ccall f_6638(C_word c,C_word *av) C_noret; C_noret_decl(f_6641) static void C_ccall f_6641(C_word c,C_word *av) C_noret; C_noret_decl(f_6644) static void C_ccall f_6644(C_word c,C_word *av) C_noret; C_noret_decl(f_6647) static void C_ccall f_6647(C_word c,C_word *av) C_noret; C_noret_decl(f_6650) static void C_ccall f_6650(C_word c,C_word *av) C_noret; C_noret_decl(f_6653) static void C_ccall f_6653(C_word c,C_word *av) C_noret; C_noret_decl(f_6656) static void C_ccall f_6656(C_word c,C_word *av) C_noret; C_noret_decl(f_6663) static void C_ccall f_6663(C_word c,C_word *av) C_noret; C_noret_decl(f_6670) static void C_fcall f_6670(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6683) static void C_fcall f_6683(C_word t0,C_word t1) C_noret; C_noret_decl(f_6694) static C_word C_fcall f_6694(C_word t0); C_noret_decl(f_6727) static void C_fcall f_6727(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6752) static void C_ccall f_6752(C_word c,C_word *av) C_noret; C_noret_decl(f_6780) static void C_ccall f_6780(C_word c,C_word *av) C_noret; C_noret_decl(f_6814) static void C_ccall f_6814(C_word c,C_word *av) C_noret; C_noret_decl(f_6837) static void C_ccall f_6837(C_word c,C_word *av) C_noret; C_noret_decl(f_6843) static void C_ccall f_6843(C_word c,C_word *av) C_noret; C_noret_decl(f_6859) static void C_ccall f_6859(C_word c,C_word *av) C_noret; C_noret_decl(f_6900) static void C_ccall f_6900(C_word c,C_word *av) C_noret; C_noret_decl(f_6923) static void C_ccall f_6923(C_word c,C_word *av) C_noret; C_noret_decl(f_6936) static void C_fcall f_6936(C_word t0,C_word t1) C_noret; C_noret_decl(f_6956) static void C_ccall f_6956(C_word c,C_word *av) C_noret; C_noret_decl(f_6982) static void C_fcall f_6982(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7000) static void C_ccall f_7000(C_word c,C_word *av) C_noret; C_noret_decl(f_7012) static void C_ccall f_7012(C_word c,C_word *av) C_noret; C_noret_decl(f_7017) static void C_ccall f_7017(C_word c,C_word *av) C_noret; C_noret_decl(f_7025) static void C_ccall f_7025(C_word c,C_word *av) C_noret; C_noret_decl(f_7027) static void C_ccall f_7027(C_word c,C_word *av) C_noret; C_noret_decl(f_7202) static void C_ccall f_7202(C_word c,C_word *av) C_noret; C_noret_decl(f_7212) static void C_ccall f_7212(C_word c,C_word *av) C_noret; C_noret_decl(f_7235) static void C_ccall f_7235(C_word c,C_word *av) C_noret; C_noret_decl(f_7264) static void C_fcall f_7264(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_7293) static void C_ccall f_7293(C_word c,C_word *av) C_noret; C_noret_decl(f_7310) static C_word C_fcall f_7310(C_word t0,C_word t1); C_noret_decl(f_7336) static void C_fcall f_7336(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_7343) static void C_ccall f_7343(C_word c,C_word *av) C_noret; C_noret_decl(f_7365) static void C_ccall f_7365(C_word c,C_word *av) C_noret; C_noret_decl(f_7372) static void C_ccall f_7372(C_word c,C_word *av) C_noret; C_noret_decl(f_7384) static void C_ccall f_7384(C_word c,C_word *av) C_noret; C_noret_decl(f_7385) static void C_ccall f_7385(C_word c,C_word *av) C_noret; C_noret_decl(f_7392) static void C_ccall f_7392(C_word c,C_word *av) C_noret; C_noret_decl(f_7399) static void C_ccall f_7399(C_word c,C_word *av) C_noret; C_noret_decl(f_7412) static void C_ccall f_7412(C_word c,C_word *av) C_noret; C_noret_decl(f_7415) static void C_ccall f_7415(C_word c,C_word *av) C_noret; C_noret_decl(f_7416) static void C_ccall f_7416(C_word c,C_word *av) C_noret; C_noret_decl(f_7423) static void C_ccall f_7423(C_word c,C_word *av) C_noret; C_noret_decl(f_7430) static void C_ccall f_7430(C_word c,C_word *av) C_noret; C_noret_decl(f_7434) static void C_ccall f_7434(C_word c,C_word *av) C_noret; C_noret_decl(f_7448) static void C_ccall f_7448(C_word c,C_word *av) C_noret; C_noret_decl(f_7451) static void C_ccall f_7451(C_word c,C_word *av) C_noret; C_noret_decl(f_7454) static void C_ccall f_7454(C_word c,C_word *av) C_noret; C_noret_decl(f_7455) static void C_ccall f_7455(C_word c,C_word *av) C_noret; C_noret_decl(f_7462) static void C_ccall f_7462(C_word c,C_word *av) C_noret; C_noret_decl(f_7469) static void C_ccall f_7469(C_word c,C_word *av) C_noret; C_noret_decl(f_7473) static void C_ccall f_7473(C_word c,C_word *av) C_noret; C_noret_decl(f_7477) static void C_ccall f_7477(C_word c,C_word *av) C_noret; C_noret_decl(f_7492) static void C_ccall f_7492(C_word c,C_word *av) C_noret; C_noret_decl(f_7495) static void C_ccall f_7495(C_word c,C_word *av) C_noret; C_noret_decl(f_7498) static void C_ccall f_7498(C_word c,C_word *av) C_noret; C_noret_decl(f_7501) static void C_ccall f_7501(C_word c,C_word *av) C_noret; C_noret_decl(f_7502) static void C_ccall f_7502(C_word c,C_word *av) C_noret; C_noret_decl(f_7509) static void C_ccall f_7509(C_word c,C_word *av) C_noret; C_noret_decl(f_7516) static void C_ccall f_7516(C_word c,C_word *av) C_noret; C_noret_decl(f_7520) static void C_ccall f_7520(C_word c,C_word *av) C_noret; C_noret_decl(f_7524) static void C_ccall f_7524(C_word c,C_word *av) C_noret; C_noret_decl(f_7528) static void C_ccall f_7528(C_word c,C_word *av) C_noret; C_noret_decl(f_7539) static void C_fcall f_7539(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7549) static void C_ccall f_7549(C_word c,C_word *av) C_noret; C_noret_decl(f_7550) static void C_ccall f_7550(C_word c,C_word *av) C_noret; C_noret_decl(f_7561) static void C_ccall f_7561(C_word c,C_word *av) C_noret; C_noret_decl(f_7566) static void C_fcall f_7566(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7576) static void C_ccall f_7576(C_word c,C_word *av) C_noret; C_noret_decl(f_7578) static void C_fcall f_7578(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7603) static void C_ccall f_7603(C_word c,C_word *av) C_noret; C_noret_decl(f_7612) static void C_fcall f_7612(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7637) static void C_ccall f_7637(C_word c,C_word *av) C_noret; C_noret_decl(f_7660) static void C_ccall f_7660(C_word c,C_word *av) C_noret; C_noret_decl(f_7679) static void C_ccall f_7679(C_word c,C_word *av) C_noret; C_noret_decl(f_7729) static void C_ccall f_7729(C_word c,C_word *av) C_noret; C_noret_decl(f_7733) static void C_ccall f_7733(C_word c,C_word *av) C_noret; C_noret_decl(f_7736) static void C_ccall f_7736(C_word c,C_word *av) C_noret; C_noret_decl(f_7741) static void C_ccall f_7741(C_word c,C_word *av) C_noret; C_noret_decl(f_7745) static void C_ccall f_7745(C_word c,C_word *av) C_noret; C_noret_decl(f_7748) static void C_ccall f_7748(C_word c,C_word *av) C_noret; C_noret_decl(f_7751) static void C_ccall f_7751(C_word c,C_word *av) C_noret; C_noret_decl(f_7755) static void C_ccall f_7755(C_word c,C_word *av) C_noret; C_noret_decl(f_7759) static void C_ccall f_7759(C_word c,C_word *av) C_noret; C_noret_decl(f_7763) static void C_ccall f_7763(C_word c,C_word *av) C_noret; C_noret_decl(f_7766) static void C_ccall f_7766(C_word c,C_word *av) C_noret; C_noret_decl(f_7769) static void C_ccall f_7769(C_word c,C_word *av) C_noret; C_noret_decl(f_7772) static void C_ccall f_7772(C_word c,C_word *av) C_noret; C_noret_decl(f_7784) static void C_ccall f_7784(C_word c,C_word *av) C_noret; C_noret_decl(f_7790) static void C_ccall f_7790(C_word c,C_word *av) C_noret; C_noret_decl(f_7794) static void C_ccall f_7794(C_word c,C_word *av) C_noret; C_noret_decl(f_7799) static void C_ccall f_7799(C_word c,C_word *av) C_noret; C_noret_decl(f_7803) static void C_ccall f_7803(C_word c,C_word *av) C_noret; C_noret_decl(f_7810) static void C_ccall f_7810(C_word c,C_word *av) C_noret; C_noret_decl(f_7814) static void C_ccall f_7814(C_word c,C_word *av) C_noret; C_noret_decl(f_7816) static void C_ccall f_7816(C_word c,C_word *av) C_noret; C_noret_decl(f_7820) static void C_ccall f_7820(C_word c,C_word *av) C_noret; C_noret_decl(f_7823) static void C_ccall f_7823(C_word c,C_word *av) C_noret; C_noret_decl(f_7826) static void C_ccall f_7826(C_word c,C_word *av) C_noret; C_noret_decl(f_7829) static void C_ccall f_7829(C_word c,C_word *av) C_noret; C_noret_decl(f_7832) static void C_ccall f_7832(C_word c,C_word *av) C_noret; C_noret_decl(f_7835) static void C_ccall f_7835(C_word c,C_word *av) C_noret; C_noret_decl(f_7842) static void C_ccall f_7842(C_word c,C_word *av) C_noret; C_noret_decl(f_7844) static void C_ccall f_7844(C_word c,C_word *av) C_noret; C_noret_decl(f_7852) static void C_ccall f_7852(C_word c,C_word *av) C_noret; C_noret_decl(f_7854) static void C_ccall f_7854(C_word c,C_word *av) C_noret; C_noret_decl(f_7861) static void C_ccall f_7861(C_word c,C_word *av) C_noret; C_noret_decl(f_7863) static void C_ccall f_7863(C_word c,C_word *av) C_noret; C_noret_decl(f_7866) static void C_fcall f_7866(C_word t0,C_word t1) C_noret; C_noret_decl(f_7876) static void C_fcall f_7876(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7890) static void C_ccall f_7890(C_word c,C_word *av) C_noret; C_noret_decl(f_7909) static void C_ccall f_7909(C_word c,C_word *av) C_noret; C_noret_decl(f_7948) static void C_ccall f_7948(C_word c,C_word *av) C_noret; C_noret_decl(f_7952) static void C_ccall f_7952(C_word c,C_word *av) C_noret; C_noret_decl(f_7955) static void C_ccall f_7955(C_word c,C_word *av) C_noret; C_noret_decl(f_7958) static void C_ccall f_7958(C_word c,C_word *av) C_noret; C_noret_decl(f_7961) static void C_ccall f_7961(C_word c,C_word *av) C_noret; C_noret_decl(f_7964) static void C_ccall f_7964(C_word c,C_word *av) C_noret; C_noret_decl(f_7966) static void C_fcall f_7966(C_word t0,C_word t1) C_noret; C_noret_decl(f_7975) static void C_fcall f_7975(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8006) static void C_ccall f_8006(C_word c,C_word *av) C_noret; C_noret_decl(f_8024) static void C_ccall f_8024(C_word c,C_word *av) C_noret; C_noret_decl(f_8028) static void C_ccall f_8028(C_word c,C_word *av) C_noret; C_noret_decl(f_8049) static void C_ccall f_8049(C_word c,C_word *av) C_noret; C_noret_decl(f_8053) static void C_ccall f_8053(C_word c,C_word *av) C_noret; C_noret_decl(f_8449) static void C_fcall f_8449(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8471) static void C_ccall f_8471(C_word c,C_word *av) C_noret; C_noret_decl(f_8477) static void C_fcall f_8477(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8483) static void C_fcall f_8483(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8493) static void C_ccall f_8493(C_word c,C_word *av) C_noret; C_noret_decl(f_9362) static void C_fcall f_9362(C_word t0,C_word t1) C_noret; C_noret_decl(f_9368) static void C_ccall f_9368(C_word c,C_word *av) C_noret; C_noret_decl(f_9371) static void C_fcall f_9371(C_word t0,C_word t1) C_noret; C_noret_decl(f_9373) static void C_ccall f_9373(C_word c,C_word *av) C_noret; C_noret_decl(f_9376) static void C_ccall f_9376(C_word c,C_word *av) C_noret; C_noret_decl(f_9383) static void C_fcall f_9383(C_word t0,C_word t1) C_noret; C_noret_decl(f_9393) static C_word C_fcall f_9393(C_word t0,C_word t1); C_noret_decl(f_9418) static void C_fcall f_9418(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9422) static void C_ccall f_9422(C_word c,C_word *av) C_noret; C_noret_decl(f_9435) static void C_ccall f_9435(C_word c,C_word *av) C_noret; C_noret_decl(f_9461) static void C_ccall f_9461(C_word c,C_word *av) C_noret; C_noret_decl(f_9465) static void C_ccall f_9465(C_word c,C_word *av) C_noret; C_noret_decl(f_9472) static void C_ccall f_9472(C_word c,C_word *av) C_noret; C_noret_decl(f_9477) static void C_fcall f_9477(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9490) static void C_ccall f_9490(C_word c,C_word *av) C_noret; C_noret_decl(f_9559) static void C_ccall f_9559(C_word c,C_word *av) C_noret; C_noret_decl(f_9565) static void C_fcall f_9565(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9573) static void C_ccall f_9573(C_word c,C_word *av) C_noret; C_noret_decl(f_9577) static void C_ccall f_9577(C_word c,C_word *av) C_noret; C_noret_decl(f_9579) static void C_fcall f_9579(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_9617) static void C_ccall f_9617(C_word c,C_word *av) C_noret; C_noret_decl(f_9622) static void C_fcall f_9622(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9626) static void C_ccall f_9626(C_word c,C_word *av) C_noret; C_noret_decl(f_9629) static void C_ccall f_9629(C_word c,C_word *av) C_noret; C_noret_decl(f_9645) static void C_ccall f_9645(C_word c,C_word *av) C_noret; C_noret_decl(f_9649) static void C_ccall f_9649(C_word c,C_word *av) C_noret; C_noret_decl(f_9653) static void C_ccall f_9653(C_word c,C_word *av) C_noret; C_noret_decl(f_9657) static void C_ccall f_9657(C_word c,C_word *av) C_noret; C_noret_decl(f_9661) static void C_ccall f_9661(C_word c,C_word *av) C_noret; C_noret_decl(f_9664) static void C_ccall f_9664(C_word c,C_word *av) C_noret; C_noret_decl(f_9667) static void C_ccall f_9667(C_word c,C_word *av) C_noret; C_noret_decl(f_9670) static void C_ccall f_9670(C_word c,C_word *av) C_noret; C_noret_decl(f_9675) static void C_fcall f_9675(C_word t0,C_word t1) C_noret; C_noret_decl(f_9681) static void C_ccall f_9681(C_word c,C_word *av) C_noret; C_noret_decl(f_9690) static void C_ccall f_9690(C_word c,C_word *av) C_noret; C_noret_decl(f_9694) static void C_ccall f_9694(C_word c,C_word *av) C_noret; C_noret_decl(f_9699) static void C_ccall f_9699(C_word c,C_word *av) C_noret; C_noret_decl(f_9702) static void C_ccall f_9702(C_word c,C_word *av) C_noret; C_noret_decl(f_9706) static void C_ccall f_9706(C_word c,C_word *av) C_noret; C_noret_decl(f_9709) static void C_ccall f_9709(C_word c,C_word *av) C_noret; C_noret_decl(f_9712) static void C_ccall f_9712(C_word c,C_word *av) C_noret; C_noret_decl(f_9717) static void C_fcall f_9717(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9727) static void C_ccall f_9727(C_word c,C_word *av) C_noret; C_noret_decl(f_9730) static void C_ccall f_9730(C_word c,C_word *av) C_noret; C_noret_decl(f_9737) static void C_ccall f_9737(C_word c,C_word *av) C_noret; C_noret_decl(f_9739) static void C_ccall f_9739(C_word c,C_word *av) C_noret; C_noret_decl(f_9746) static void C_ccall f_9746(C_word c,C_word *av) C_noret; C_noret_decl(f_9751) static void C_ccall f_9751(C_word c,C_word *av) C_noret; C_noret_decl(f_9757) static void C_ccall f_9757(C_word c,C_word *av) C_noret; C_noret_decl(f_9761) static void C_ccall f_9761(C_word c,C_word *av) C_noret; C_noret_decl(f_9768) static void C_ccall f_9768(C_word c,C_word *av) C_noret; C_noret_decl(f_9773) static void C_ccall f_9773(C_word c,C_word *av) C_noret; C_noret_decl(f_9782) static void C_ccall f_9782(C_word c,C_word *av) C_noret; C_noret_decl(f_9790) static void C_fcall f_9790(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9800) static void C_ccall f_9800(C_word c,C_word *av) C_noret; C_noret_decl(f_9824) static void C_ccall f_9824(C_word c,C_word *av) C_noret; C_noret_decl(f_9828) static void C_ccall f_9828(C_word c,C_word *av) C_noret; C_noret_decl(f_9833) static void C_ccall f_9833(C_word c,C_word *av) C_noret; C_noret_decl(f_9842) static void C_ccall f_9842(C_word c,C_word *av) C_noret; C_noret_decl(f_9861) static void C_ccall f_9861(C_word c,C_word *av) C_noret; C_noret_decl(f_9864) static void C_ccall f_9864(C_word c,C_word *av) C_noret; C_noret_decl(f_9867) static void C_ccall f_9867(C_word c,C_word *av) C_noret; C_noret_decl(f_9873) static void C_ccall f_9873(C_word c,C_word *av) C_noret; C_noret_decl(f_9876) static void C_ccall f_9876(C_word c,C_word *av) C_noret; C_noret_decl(f_9891) static void C_ccall f_9891(C_word c,C_word *av) C_noret; C_noret_decl(f_9894) static void C_ccall f_9894(C_word c,C_word *av) C_noret; C_noret_decl(f_9897) static void C_fcall f_9897(C_word t0,C_word t1) C_noret; C_noret_decl(f_9903) static void C_ccall f_9903(C_word c,C_word *av) C_noret; C_noret_decl(f_9915) static void C_ccall f_9915(C_word c,C_word *av) C_noret; C_noret_decl(f_9921) static void C_ccall f_9921(C_word c,C_word *av) C_noret; C_noret_decl(f_9981) static void C_ccall f_9981(C_word c,C_word *av) C_noret; C_noret_decl(f_9996) static void C_ccall f_9996(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externexport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; /* from CHICKEN_get_error_message */ void CHICKEN_get_error_message(char *t0,int t1){ C_word x,s=0+3,*a=C_alloc(s); C_callback_adjust_stack(a,s); x=C_fix((C_word)t1); C_save(x); x=C_mpointer_or_false(&a,(void*)t0); C_save(x);C_callback_wrapper((void *)f_11295,2);} /* from CHICKEN_load */ int CHICKEN_load(char * t0){ C_word x,s=0+2+(t0==NULL?1:C_bytestowords(C_strlen(t0))),*a=C_alloc(s); C_callback_adjust_stack(a,s); x=C_mpointer(&a,(void*)t0); C_save(x); return C_truep(C_callback_wrapper((void *)f_11280,1));} /* from CHICKEN_read */ int CHICKEN_read(char * t0,C_word *t1){ C_word x,s=0+2+(t0==NULL?1:C_bytestowords(C_strlen(t0)))+3,*a=C_alloc(s); C_callback_adjust_stack(a,s); x=C_mpointer_or_false(&a,(void*)t1); C_save(x); x=C_mpointer(&a,(void*)t0); C_save(x); return C_truep(C_callback_wrapper((void *)f_11258,2));} /* from CHICKEN_apply_to_string */ int CHICKEN_apply_to_string(C_word t0,C_word t1,char *t2,int t3){ C_word x,s=0+3,*a=C_alloc(s); C_callback_adjust_stack(a,s); x=C_fix((C_word)t3); C_save(x); x=C_mpointer_or_false(&a,(void*)t2); C_save(x); x=((C_word)t1); C_save(x); x=((C_word)t0); C_save(x); return C_truep(C_callback_wrapper((void *)f_11232,4));} /* from CHICKEN_apply */ int CHICKEN_apply(C_word t0,C_word t1,C_word *t2){ C_word x,s=0+3,*a=C_alloc(s); C_callback_adjust_stack(a,s); x=C_mpointer_or_false(&a,(void*)t2); C_save(x); x=((C_word)t1); C_save(x); x=((C_word)t0); C_save(x); return C_truep(C_callback_wrapper((void *)f_11216,3));} /* from CHICKEN_eval_string_to_string */ int CHICKEN_eval_string_to_string(char * t0,char *t1,int t2){ C_word x,s=0+2+(t0==NULL?1:C_bytestowords(C_strlen(t0)))+3,*a=C_alloc(s); C_callback_adjust_stack(a,s); x=C_fix((C_word)t2); C_save(x); x=C_mpointer_or_false(&a,(void*)t1); C_save(x); x=C_mpointer(&a,(void*)t0); C_save(x); return C_truep(C_callback_wrapper((void *)f_11179,3));} /* from CHICKEN_eval_to_string */ int CHICKEN_eval_to_string(C_word t0,char *t1,int t2){ C_word x,s=0+3,*a=C_alloc(s); C_callback_adjust_stack(a,s); x=C_fix((C_word)t2); C_save(x); x=C_mpointer_or_false(&a,(void*)t1); C_save(x); x=((C_word)t0); C_save(x); return C_truep(C_callback_wrapper((void *)f_11153,3));} /* from CHICKEN_eval_string */ int CHICKEN_eval_string(char * t0,C_word *t1){ C_word x,s=0+2+(t0==NULL?1:C_bytestowords(C_strlen(t0)))+3,*a=C_alloc(s); C_callback_adjust_stack(a,s); x=C_mpointer_or_false(&a,(void*)t1); C_save(x); x=C_mpointer(&a,(void*)t0); C_save(x); return C_truep(C_callback_wrapper((void *)f_11114,2));} /* from CHICKEN_eval */ int CHICKEN_eval(C_word t0,C_word *t1){ C_word x,s=0+3,*a=C_alloc(s); C_callback_adjust_stack(a,s); x=C_mpointer_or_false(&a,(void*)t1); C_save(x); x=((C_word)t0); C_save(x); return C_truep(C_callback_wrapper((void *)f_11098,2));} /* from CHICKEN_yield */ int CHICKEN_yield(){ C_word x,s=0,*a=C_stack_pointer; C_callback_adjust_stack(a,s); return C_truep(C_callback_wrapper((void *)f_11086,0));} C_noret_decl(trf_10051) static void C_ccall trf_10051(C_word c,C_word *av) C_noret; static void C_ccall trf_10051(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10051(t0,t1,t2,t3);} C_noret_decl(trf_10055) static void C_ccall trf_10055(C_word c,C_word *av) C_noret; static void C_ccall trf_10055(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10055(t0,t1);} C_noret_decl(trf_10066) static void C_ccall trf_10066(C_word c,C_word *av) C_noret; static void C_ccall trf_10066(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10066(t0,t1,t2);} C_noret_decl(trf_10244) static void C_ccall trf_10244(C_word c,C_word *av) C_noret; static void C_ccall trf_10244(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10244(t0,t1,t2,t3);} C_noret_decl(trf_10289) static void C_ccall trf_10289(C_word c,C_word *av) C_noret; static void C_ccall trf_10289(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10289(t0,t1);} C_noret_decl(trf_10354) static void C_ccall trf_10354(C_word c,C_word *av) C_noret; static void C_ccall trf_10354(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10354(t0,t1,t2);} C_noret_decl(trf_10399) static void C_ccall trf_10399(C_word c,C_word *av) C_noret; static void C_ccall trf_10399(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10399(t0,t1,t2);} C_noret_decl(trf_10475) static void C_ccall trf_10475(C_word c,C_word *av) C_noret; static void C_ccall trf_10475(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10475(t0,t1,t2);} C_noret_decl(trf_10515) static void C_ccall trf_10515(C_word c,C_word *av) C_noret; static void C_ccall trf_10515(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10515(t0,t1,t2);} C_noret_decl(trf_10580) static void C_ccall trf_10580(C_word c,C_word *av) C_noret; static void C_ccall trf_10580(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10580(t0,t1,t2);} C_noret_decl(trf_10889) static void C_ccall trf_10889(C_word c,C_word *av) C_noret; static void C_ccall trf_10889(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10889(t0,t1,t2,t3);} C_noret_decl(trf_10922) static void C_ccall trf_10922(C_word c,C_word *av) C_noret; static void C_ccall trf_10922(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10922(t0,t1,t2);} C_noret_decl(trf_10973) static void C_ccall trf_10973(C_word c,C_word *av) C_noret; static void C_ccall trf_10973(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10973(t0,t1,t2);} C_noret_decl(trf_11018) static void C_ccall trf_11018(C_word c,C_word *av) C_noret; static void C_ccall trf_11018(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11018(t0,t1);} C_noret_decl(trf_11077) static void C_ccall trf_11077(C_word c,C_word *av) C_noret; static void C_ccall trf_11077(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11077(t0,t1,t2);} C_noret_decl(trf_11322) static void C_ccall trf_11322(C_word c,C_word *av) C_noret; static void C_ccall trf_11322(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11322(t0,t1,t2);} C_noret_decl(trf_11476) static void C_ccall trf_11476(C_word c,C_word *av) C_noret; static void C_ccall trf_11476(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11476(t0,t1);} C_noret_decl(trf_11511) static void C_ccall trf_11511(C_word c,C_word *av) C_noret; static void C_ccall trf_11511(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11511(t0,t1);} C_noret_decl(trf_3572) static void C_ccall trf_3572(C_word c,C_word *av) C_noret; static void C_ccall trf_3572(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3572(t0,t1,t2,t3);} C_noret_decl(trf_3599) static void C_ccall trf_3599(C_word c,C_word *av) C_noret; static void C_ccall trf_3599(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3599(t0,t1,t2,t3);} C_noret_decl(trf_3612) static void C_ccall trf_3612(C_word c,C_word *av) C_noret; static void C_ccall trf_3612(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3612(t0,t1);} C_noret_decl(trf_3634) static void C_ccall trf_3634(C_word c,C_word *av) C_noret; static void C_ccall trf_3634(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3634(t0,t1,t2);} C_noret_decl(trf_3668) static void C_ccall trf_3668(C_word c,C_word *av) C_noret; static void C_ccall trf_3668(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3668(t0,t1,t2,t3);} C_noret_decl(trf_3680) static void C_ccall trf_3680(C_word c,C_word *av) C_noret; static void C_ccall trf_3680(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3680(t0,t1,t2,t3);} C_noret_decl(trf_3697) static void C_ccall trf_3697(C_word c,C_word *av) C_noret; static void C_ccall trf_3697(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3697(t0,t1,t2);} C_noret_decl(trf_3781) static void C_ccall trf_3781(C_word c,C_word *av) C_noret; static void C_ccall trf_3781(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3781(t0,t1,t2);} C_noret_decl(trf_3787) static void C_ccall trf_3787(C_word c,C_word *av) C_noret; static void C_ccall trf_3787(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_3787(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_3826) static void C_ccall trf_3826(C_word c,C_word *av) C_noret; static void C_ccall trf_3826(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3826(t0,t1);} C_noret_decl(trf_3853) static void C_ccall trf_3853(C_word c,C_word *av) C_noret; static void C_ccall trf_3853(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3853(t0,t1);} C_noret_decl(trf_4800) static void C_ccall trf_4800(C_word c,C_word *av) C_noret; static void C_ccall trf_4800(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4800(t0,t1,t2);} C_noret_decl(trf_4830) static void C_ccall trf_4830(C_word c,C_word *av) C_noret; static void C_ccall trf_4830(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4830(t0,t1,t2,t3);} C_noret_decl(trf_4860) static void C_ccall trf_4860(C_word c,C_word *av) C_noret; static void C_ccall trf_4860(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4860(t0,t1,t2);} C_noret_decl(trf_4951) static void C_ccall trf_4951(C_word c,C_word *av) C_noret; static void C_ccall trf_4951(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4951(t0,t1,t2);} C_noret_decl(trf_4985) static void C_ccall trf_4985(C_word c,C_word *av) C_noret; static void C_ccall trf_4985(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4985(t0,t1,t2);} C_noret_decl(trf_5096) static void C_ccall trf_5096(C_word c,C_word *av) C_noret; static void C_ccall trf_5096(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5096(t0,t1,t2);} C_noret_decl(trf_5130) static void C_ccall trf_5130(C_word c,C_word *av) C_noret; static void C_ccall trf_5130(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5130(t0,t1,t2);} C_noret_decl(trf_5272) static void C_ccall trf_5272(C_word c,C_word *av) C_noret; static void C_ccall trf_5272(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5272(t0,t1,t2,t3);} C_noret_decl(trf_5320) static void C_ccall trf_5320(C_word c,C_word *av) C_noret; static void C_ccall trf_5320(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5320(t0,t1,t2,t3);} C_noret_decl(trf_5368) static void C_ccall trf_5368(C_word c,C_word *av) C_noret; static void C_ccall trf_5368(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5368(t0,t1,t2);} C_noret_decl(trf_5402) static void C_ccall trf_5402(C_word c,C_word *av) C_noret; static void C_ccall trf_5402(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5402(t0,t1,t2);} C_noret_decl(trf_5436) static void C_ccall trf_5436(C_word c,C_word *av) C_noret; static void C_ccall trf_5436(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5436(t0,t1,t2);} C_noret_decl(trf_5859) static void C_ccall trf_5859(C_word c,C_word *av) C_noret; static void C_ccall trf_5859(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5859(t0,t1,t2);} C_noret_decl(trf_6027) static void C_ccall trf_6027(C_word c,C_word *av) C_noret; static void C_ccall trf_6027(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6027(t0,t1,t2);} C_noret_decl(trf_6199) static void C_ccall trf_6199(C_word c,C_word *av) C_noret; static void C_ccall trf_6199(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6199(t0,t1,t2);} C_noret_decl(trf_6415) static void C_ccall trf_6415(C_word c,C_word *av) C_noret; static void C_ccall trf_6415(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6415(t0,t1,t2);} C_noret_decl(trf_6551) static void C_ccall trf_6551(C_word c,C_word *av) C_noret; static void C_ccall trf_6551(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6551(t0,t1,t2,t3);} C_noret_decl(trf_6574) static void C_ccall trf_6574(C_word c,C_word *av) C_noret; static void C_ccall trf_6574(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6574(t0,t1,t2);} C_noret_decl(trf_6670) static void C_ccall trf_6670(C_word c,C_word *av) C_noret; static void C_ccall trf_6670(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6670(t0,t1,t2);} C_noret_decl(trf_6683) static void C_ccall trf_6683(C_word c,C_word *av) C_noret; static void C_ccall trf_6683(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6683(t0,t1);} C_noret_decl(trf_6727) static void C_ccall trf_6727(C_word c,C_word *av) C_noret; static void C_ccall trf_6727(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6727(t0,t1,t2);} C_noret_decl(trf_6936) static void C_ccall trf_6936(C_word c,C_word *av) C_noret; static void C_ccall trf_6936(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6936(t0,t1);} C_noret_decl(trf_6982) static void C_ccall trf_6982(C_word c,C_word *av) C_noret; static void C_ccall trf_6982(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6982(t0,t1,t2);} C_noret_decl(trf_7264) static void C_ccall trf_7264(C_word c,C_word *av) C_noret; static void C_ccall trf_7264(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_7264(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_7336) static void C_ccall trf_7336(C_word c,C_word *av) C_noret; static void C_ccall trf_7336(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_7336(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_7539) static void C_ccall trf_7539(C_word c,C_word *av) C_noret; static void C_ccall trf_7539(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7539(t0,t1,t2);} C_noret_decl(trf_7566) static void C_ccall trf_7566(C_word c,C_word *av) C_noret; static void C_ccall trf_7566(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7566(t0,t1,t2);} C_noret_decl(trf_7578) static void C_ccall trf_7578(C_word c,C_word *av) C_noret; static void C_ccall trf_7578(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7578(t0,t1,t2);} C_noret_decl(trf_7612) static void C_ccall trf_7612(C_word c,C_word *av) C_noret; static void C_ccall trf_7612(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7612(t0,t1,t2);} C_noret_decl(trf_7866) static void C_ccall trf_7866(C_word c,C_word *av) C_noret; static void C_ccall trf_7866(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7866(t0,t1);} C_noret_decl(trf_7876) static void C_ccall trf_7876(C_word c,C_word *av) C_noret; static void C_ccall trf_7876(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_7876(t0,t1,t2,t3,t4);} C_noret_decl(trf_7966) static void C_ccall trf_7966(C_word c,C_word *av) C_noret; static void C_ccall trf_7966(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7966(t0,t1);} C_noret_decl(trf_7975) static void C_ccall trf_7975(C_word c,C_word *av) C_noret; static void C_ccall trf_7975(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7975(t0,t1,t2);} C_noret_decl(trf_8449) static void C_ccall trf_8449(C_word c,C_word *av) C_noret; static void C_ccall trf_8449(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8449(t0,t1,t2);} C_noret_decl(trf_8477) static void C_ccall trf_8477(C_word c,C_word *av) C_noret; static void C_ccall trf_8477(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8477(t0,t1,t2);} C_noret_decl(trf_8483) static void C_ccall trf_8483(C_word c,C_word *av) C_noret; static void C_ccall trf_8483(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8483(t0,t1,t2);} C_noret_decl(trf_9362) static void C_ccall trf_9362(C_word c,C_word *av) C_noret; static void C_ccall trf_9362(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9362(t0,t1);} C_noret_decl(trf_9371) static void C_ccall trf_9371(C_word c,C_word *av) C_noret; static void C_ccall trf_9371(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9371(t0,t1);} C_noret_decl(trf_9383) static void C_ccall trf_9383(C_word c,C_word *av) C_noret; static void C_ccall trf_9383(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9383(t0,t1);} C_noret_decl(trf_9418) static void C_ccall trf_9418(C_word c,C_word *av) C_noret; static void C_ccall trf_9418(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9418(t0,t1,t2);} C_noret_decl(trf_9477) static void C_ccall trf_9477(C_word c,C_word *av) C_noret; static void C_ccall trf_9477(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9477(t0,t1,t2);} C_noret_decl(trf_9565) static void C_ccall trf_9565(C_word c,C_word *av) C_noret; static void C_ccall trf_9565(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9565(t0,t1,t2);} C_noret_decl(trf_9579) static void C_ccall trf_9579(C_word c,C_word *av) C_noret; static void C_ccall trf_9579(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_9579(t0,t1,t2,t3,t4);} C_noret_decl(trf_9622) static void C_ccall trf_9622(C_word c,C_word *av) C_noret; static void C_ccall trf_9622(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9622(t0,t1,t2);} C_noret_decl(trf_9675) static void C_ccall trf_9675(C_word c,C_word *av) C_noret; static void C_ccall trf_9675(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9675(t0,t1);} C_noret_decl(trf_9717) static void C_ccall trf_9717(C_word c,C_word *av) C_noret; static void C_ccall trf_9717(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9717(t0,t1,t2);} C_noret_decl(trf_9790) static void C_ccall trf_9790(C_word c,C_word *av) C_noret; static void C_ccall trf_9790(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9790(t0,t1,t2);} C_noret_decl(trf_9897) static void C_ccall trf_9897(C_word c,C_word *av) C_noret; static void C_ccall trf_9897(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9897(t0,t1);} /* k10001 in chicken.load#load-relative in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_10003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10003,2,av);} /* eval.scm:1103: load/internal */ t2=lf[221]; f_9579(t2,((C_word*)t0)[2],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* chicken.load#load-noisily in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_10014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,4)))){ C_save_and_reclaim((void*)f_10014,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10018,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10035,a[2]=((C_word)li192),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1105: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[253]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[253]+1); av2[1]=t4; av2[2]=lf[256]; av2[3]=t3; av2[4]=t5; tp(5,av2);}} /* k10016 in chicken.load#load-noisily in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_10018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_10018,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10032,a[2]=((C_word)li191),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1105: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[253]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[253]+1); av2[1]=t3; av2[2]=lf[255]; av2[3]=((C_word*)t0)[4]; av2[4]=t4; tp(5,av2);}} /* k10019 in k10016 in chicken.load#load-noisily in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_10021,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10029,a[2]=((C_word)li190),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1105: ##sys#get-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[253]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[253]+1); av2[1]=t3; av2[2]=lf[254]; av2[3]=((C_word*)t0)[5]; av2[4]=t4; tp(5,av2);}} /* k10022 in k10019 in k10016 in chicken.load#load-noisily in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_10024,2,av);} a=C_alloc(9); /* eval.scm:1106: load/internal */ t2=lf[221]; f_9579(t2,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_a_i_list(&a,3,C_SCHEME_TRUE,((C_word*)t0)[5],t1));} /* a10028 in k10019 in k10016 in chicken.load#load-noisily in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10029,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a10031 in k10016 in chicken.load#load-noisily in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10032,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a10034 in chicken.load#load-noisily in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_10035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10035,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_10040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10040,2,av);} a=C_alloc(24); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10042,a[2]=t2,a[3]=((C_word)li194),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10049,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=t3; t10=lf[191]; t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11314,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11322,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,a[6]=((C_word)li257),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_11322(t15,t11,lf[191]);} /* complete in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_10042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10042,3,av);} t3=*((C_word*)lf[216]+1); /* eval.scm:1117: g2384 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[216]+1); av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_10049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(40,c,5)))){ C_save_and_reclaim((void *)f_10049,2,av);} a=C_alloc(40); t2=C_mutate((C_word*)lf[257]+1 /* (set! chicken.load#dynamic-load-libraries ...) */,t1); t3=C_mutate(&lf[258] /* (set! chicken.load#load-library/internal ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10051,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[263]+1 /* (set! ##sys#load-library ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10133,a[2]=((C_word)li197),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[264]+1 /* (set! chicken.load#load-library ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10181,a[2]=((C_word)li198),tmp=(C_word)a,a+=3,tmp)); t6=*((C_word*)lf[265]+1); t7=C_mutate((C_word*)lf[83]+1 /* (set! ##sys#include-forms-from-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10208,a[2]=t6,a[3]=((C_word)li204),tmp=(C_word)a,a+=4,tmp)); t8=C_set_block_item(lf[272] /* ##sys#setup-mode */,0,C_SCHEME_FALSE); t9=C_mutate(&lf[273] /* (set! chicken.load#file-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10289,a[2]=((C_word)li205),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[274]+1 /* (set! chicken.load#find-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10298,a[2]=((C_word)li206),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[276]+1 /* (set! chicken.load#find-dynamic-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10345,a[2]=((C_word)li209),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[106]+1 /* (set! chicken.load#load-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10490,a[2]=((C_word)li211),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[284]+1 /* (set! chicken.load#require ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10496,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[285]+1 /* (set! chicken.load#provide ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10561,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[287]+1 /* (set! chicken.load#provided? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10626,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[274]+1 /* (set! chicken.load#find-file ...) */,*((C_word*)lf[274]+1)); t17=C_mutate((C_word*)lf[276]+1 /* (set! chicken.load#find-dynamic-extension ...) */,*((C_word*)lf[276]+1)); t18=C_mutate((C_word*)lf[109]+1 /* (set! ##sys#process-require ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10665,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp)); t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11307,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1275: chicken.platform#chicken-home */ t20=*((C_word*)lf[336]+1);{ C_word *av2=av; av2[0]=t20; av2[1]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} /* chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_fcall f_10051(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_10051,4,t1,t2,t3,t4);} a=C_alloc(8); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10055,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ t6=t5; f_10055(t6,C_a_i_list(&a,1,t3));} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10123,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_slot(t2,C_fix(1)); /* eval.scm:1130: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[216]+1); av2[1]=t6; av2[2]=t7; av2[3]=lf[189]; tp(4,av2);}}} /* k10053 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_fcall f_10055(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_10055,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10058,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* eval.scm:1133: c-toplevel */ f_9565(t3,((C_word*)t0)[3],((C_word*)t0)[2]);} /* k10056 in k10053 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_10058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_10058,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10061,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10104,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1134: load-verbose */ t5=*((C_word*)lf[202]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10059 in k10056 in k10053 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_10061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_10061,2,av);} a=C_alloc(9); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10066,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word)li195),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_10066(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} /* loop in k10059 in k10056 in k10053 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_fcall f_10066(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_10066,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10080,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[234]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_dlerror); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10083,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10097,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t5=C_slot(t2,C_fix(0)); /* eval.scm:1141: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[215]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[215]+1); av2[1]=t4; av2[2]=t5; av2[3]=lf[260]; tp(4,av2);}}} /* k10078 in loop in k10059 in k10056 in k10053 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10080,2,av);} /* eval.scm:1140: ##sys#error */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[259]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k10081 in loop in k10059 in k10056 in k10053 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10083,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[3],C_fix(1)); /* eval.scm:1143: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_10066(t3,((C_word*)t0)[2],t2);}} /* k10095 in loop in k10059 in k10056 in k10053 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10097,2,av);} /* eval.scm:1141: ##sys#dload */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[222]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[222]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k10102 in k10056 in k10053 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_10104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10104,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1135: display */ t3=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[262]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_10061(2,av2);}}} /* k10105 in k10102 in k10056 in k10053 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_10107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10107,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10110,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1136: display */ t3=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k10108 in k10105 in k10102 in k10056 in k10053 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10110,2,av);} /* eval.scm:1137: display */ t2=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[261]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10121 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10123,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10127,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1131: dynamic-load-libraries */ t4=*((C_word*)lf[257]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10125 in k10121 in chicken.load#load-library/internal in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_10127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10127,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_10055(t2,C_a_i_cons(&a,2,((C_word*)t0)[3],t1));} /* ##sys#load-library in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_10133,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10152,a[2]=t1,a[3]=t2,a[4]=t6,a[5]=t11,tmp=(C_word)a,a+=6,tmp); /* eval.scm:1146: ##sys#provided? */ t15=*((C_word*)lf[192]+1);{ C_word *av2=av; av2[0]=t15; av2[1]=t14; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} /* k10150 in ##sys#load-library in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_10152,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10155,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1147: load-library/internal */ f_10051(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}} /* k10153 in k10150 in ##sys#load-library in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_10155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10155,2,av);} t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.load#load-library in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_10181,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_i_check_symbol_2(t2,lf[260]); if(C_truep(C_i_not(t5))){ /* eval.scm:1153: ##sys#load-library */ t7=*((C_word*)lf[263]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t1; av2[2]=t2; av2[3]=t5; av2[4]=lf[260]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=C_i_check_string_2(t5,lf[260]); /* eval.scm:1153: ##sys#load-library */ t8=*((C_word*)lf[263]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t1; av2[2]=t2; av2[3]=t5; av2[4]=lf[260]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_10208,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10212,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* eval.scm:1160: ##sys#resolve-include-filename */ t6=*((C_word*)lf[271]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_10212,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10215,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_not(t2))){ /* eval.scm:1162: ##sys#signal-hook */ t4=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[244]; av2[3]=lf[269]; av2[4]=lf[270]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_10215(2,av2);}}} /* k10213 in k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_10215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10215,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10218,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10277,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1163: load-verbose */ t4=*((C_word*)lf[202]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10216 in k10213 in k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_10218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10218,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10223,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li203),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1165: with-input-from-file */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a10222 in k10216 in k10213 in k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_10223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_10223,2,av);} a=C_alloc(18); t2=((C_word*)t0)[2]; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10229,a[2]=t5,a[3]=t3,a[4]=((C_word)li199),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10234,a[2]=((C_word*)t0)[3],a[3]=((C_word)li201),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10271,a[2]=t3,a[3]=t5,a[4]=((C_word)li202),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1167: ##sys#dynamic-wind */ t9=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t1; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a10228 in a10222 in k10216 in k10213 in k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10229,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[226]+1)); t3=C_mutate((C_word*)lf[226]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a10233 in a10222 in k10216 in k10213 in k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10234,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10242,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1168: read */ t3=*((C_word*)lf[227]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10240 in a10233 in a10222 in k10216 in k10213 in k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in ... */ static void C_ccall f_10242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_10242,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10244,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li200),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_10244(t5,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* doloop2483 in k10240 in a10233 in a10222 in k10216 in k10213 in k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in ... */ static void C_fcall f_10244(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10244,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eofp(t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10258,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1171: reverse */ t5=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10265,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* eval.scm:1168: read */ t5=*((C_word*)lf[227]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k10256 in doloop2483 in k10240 in a10233 in a10222 in k10216 in k10213 in k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in ... */ static void C_ccall f_10258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10258,2,av);} /* eval.scm:1171: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k10263 in doloop2483 in k10240 in a10233 in a10222 in k10216 in k10213 in k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in ... */ static void C_ccall f_10265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10265,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)((C_word*)t0)[4])[1]; f_10244(t3,((C_word*)t0)[5],t1,t2);} /* a10270 in a10222 in k10216 in k10213 in k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10271,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[226]+1)); t3=C_mutate((C_word*)lf[226]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10275 in k10213 in k10210 in ##sys#include-forms-from-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_10277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10277,2,av);} if(C_truep(t1)){ /* eval.scm:1164: chicken.base#print */ t2=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[267]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[268]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_10218(2,av2);}}} /* chicken.load#file-exists? in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_fcall f_10289(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_10289,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10296,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1179: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[246]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[246]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_FALSE; tp(6,av2);}} /* k10294 in chicken.load#file-exists? in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10296,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.load#find-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_10298,4,av);} a=C_alloc(8); if(C_truep(C_i_not(t3))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_stringp(t3))){ t4=C_a_i_list1(&a,1,t3); /* eval.scm:1184: find-file */ t5=*((C_word*)lf[274]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10327,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10339,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=C_i_car(t3); /* eval.scm:1185: scheme#string-append */ t7=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=lf[275]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}}}} /* k10325 in chicken.load#find-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10327,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* eval.scm:1186: find-file */ t4=*((C_word*)lf[274]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k10337 in chicken.load#find-file in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10339,2,av);} /* eval.scm:1185: file-exists? */ f_10289(((C_word*)t0)[2],t1);} /* chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10345,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10349,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* eval.scm:1191: chicken.platform#repository-path */ t5=*((C_word*)lf[282]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10347 in chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10349,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10352,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){ /* eval.scm:1192: scheme#symbol->string */ t4=*((C_word*)lf[281]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[4]; f_10352(2,av2);}}} /* k10350 in k10347 in chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_10352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_10352,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10354,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li207),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10397,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(C_truep(*((C_word*)lf[272]+1))?lf[278]:C_SCHEME_END_OF_LIST); t6=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:C_SCHEME_END_OF_LIST); t7=(C_truep(((C_word*)t0)[4])?*((C_word*)lf[279]+1):C_SCHEME_END_OF_LIST); if(C_truep(*((C_word*)lf[272]+1))){ /* eval.scm:1200: ##sys#append */ t8=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t4; av2[2]=t5; av2[3]=t6; av2[4]=t7; av2[5]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} else{ /* eval.scm:1200: ##sys#append */ t8=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t4; av2[2]=t5; av2[3]=t6; av2[4]=t7; av2[5]=lf[280]; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}} /* check in k10350 in k10347 in chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_fcall f_10354(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_10354,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10358,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1194: string-append */ t4=*((C_word*)lf[199]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[277]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k10356 in check in k10350 in k10347 in chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_10358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10358,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10361,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ if(C_truep(C_i_not(*((C_word*)lf[204]+1)))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10383,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1197: chicken.platform#feature? */ t5=*((C_word*)lf[248]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[249]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_10361(2,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_10361(2,av2);}}} /* k10359 in k10356 in check in k10350 in k10347 in chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10361,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10371,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1199: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[216]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[187]; tp(4,av2);}}} /* k10369 in k10359 in k10356 in check in k10350 in k10347 in chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in ... */ static void C_ccall f_10371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10371,2,av);} /* eval.scm:1199: file-exists? */ f_10289(((C_word*)t0)[2],t1);} /* k10381 in k10356 in check in k10350 in k10347 in chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10383,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10390,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1198: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[216]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[190]+1); tp(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_10361(2,av2);}}} /* k10388 in k10381 in k10356 in check in k10350 in k10347 in chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in ... */ static void C_ccall f_10390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10390,2,av);} /* eval.scm:1198: file-exists? */ f_10289(((C_word*)t0)[2],t1);} /* k10395 in k10350 in k10347 in chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_10397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_10397,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10399,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li208),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_10399(t5,((C_word*)t0)[3],t1);} /* loop in k10395 in k10350 in k10347 in chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_fcall f_10399(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10399,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10412,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1207: check */ t5=((C_word*)t0)[3]; f_10354(t5,t4,t3);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10410 in loop in k10395 in k10350 in k10347 in chicken.load#find-dynamic-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10412,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[3],C_fix(1)); /* eval.scm:1208: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_10399(t3,((C_word*)t0)[2],t2);}} /* k10448 in chicken.load#load-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10450,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10456,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1212: any */ f_8477(t2,*((C_word*)lf[192]+1),((C_word*)t0)[5]);}} /* k10454 in k10448 in chicken.load#load-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_10456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10456,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(C_i_memq(((C_word*)t0)[3],lf[183]))){ /* eval.scm:1214: load-library/internal */ f_10051(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4]);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10471,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1215: find-dynamic-extension */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[276]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[276]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; tp(4,av2);}}}} /* k10469 in k10454 in k10448 in chicken.load#load-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_10471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10471,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10475,a[2]=((C_word*)t0)[2],a[3]=((C_word)li210),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1211: g2549 */ t3=t2; f_10475(t3,((C_word*)t0)[3],t1);} else{ /* eval.scm:1220: ##sys#error */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[283]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* g2549 in k10469 in k10454 in k10448 in chicken.load#load-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_fcall f_10475(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){ C_save_and_reclaim_args((void *)trf_10475,3,t0,t1,t2);} a=C_alloc(16); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10479,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1217: load/internal */ t4=lf[221]; f_9579(t4,t3,t2,C_SCHEME_FALSE,C_a_i_list(&a,4,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[2]));} /* k10477 in g2549 in k10469 in k10454 in k10448 in chicken.load#load-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10479,2,av);} /* eval.scm:1218: ##sys#provide */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.load#load-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_10490,5,av);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10494,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=t5; t7=t2; t8=t3; t9=t4; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10450,a[2]=t6,a[3]=t7,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* eval.scm:1211: ##sys#provided? */ t11=*((C_word*)lf[192]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k10492 in chicken.load#load-extension in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10494,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.load#require in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){ C_save_and_reclaim((void*)f_10496,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+9); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10538,a[2]=((C_word)li212),tmp=(C_word)a,a+=3,tmp); t5=( f_10538(t3) ); t6=t2; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10515,a[2]=t8,a[3]=((C_word)li213),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_10515(t10,t1,t6);} /* for-each-loop2572 in chicken.load#require in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_fcall f_10515(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_10515,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10525,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[106]+1); /* eval.scm:1228: g2603 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[106]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[106]+1); av2[1]=t3; av2[2]=t4; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=lf[107]; tp(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10523 in for-each-loop2572 in chicken.load#require in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_10525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10525,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10515(t3,((C_word*)t0)[4],t2);} /* for-each-loop2562 in chicken.load#require in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static C_word C_fcall f_10538(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=C_i_check_symbol_2(t2,lf[107]); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* chicken.load#provide in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){ C_save_and_reclaim((void*)f_10561,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+9); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10603,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp); t5=( f_10603(t3) ); t6=t2; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10580,a[2]=t8,a[3]=((C_word)li216),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_10580(t10,t1,t6);} /* for-each-loop2625 in chicken.load#provide in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_fcall f_10580(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10580,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10590,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[93]+1); /* eval.scm:1232: g2656 */ t6=*((C_word*)lf[93]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10588 in for-each-loop2625 in chicken.load#provide in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_10590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10590,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10580(t3,((C_word*)t0)[4],t2);} /* for-each-loop2615 in chicken.load#provide in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static C_word C_fcall f_10603(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=C_i_check_symbol_2(t2,lf[286]); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* chicken.load#provided? in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +10,c,3)))){ C_save_and_reclaim((void*)f_10626,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+10); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10640,a[2]=((C_word)li218),tmp=(C_word)a,a+=3,tmp); t5=( f_10640(t3) ); t6=*((C_word*)lf[192]+1); t7=t2; t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8449,a[2]=t9,a[3]=t6,a[4]=((C_word)li219),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_8449(t11,t1,t7);} /* for-each-loop2668 in chicken.load#provided? in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static C_word C_fcall f_10640(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=C_i_check_symbol_2(t2,lf[288]); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* ##sys#process-require in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_10665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,2)))){ C_save_and_reclaim((void*)f_10665,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_END_OF_LIST:C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=C_i_nullp(t13); t15=(C_truep(t14)?C_SCHEME_END_OF_LIST:C_i_car(t13)); t16=t15; t17=C_i_nullp(t13); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t19=C_i_nullp(t18); t20=(C_truep(t19)?C_SCHEME_FALSE:C_i_car(t18)); t21=t20; t22=C_i_nullp(t18); t23=(C_truep(t22)?C_SCHEME_END_OF_LIST:C_i_cdr(t18)); t24=C_i_nullp(t23); t25=(C_truep(t24)?C_SCHEME_FALSE:C_i_car(t23)); t26=t25; t27=C_i_nullp(t23); t28=(C_truep(t27)?C_SCHEME_END_OF_LIST:C_i_cdr(t23)); t29=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10699,a[2]=t1,a[3]=t16,a[4]=t6,a[5]=t21,a[6]=t26,a[7]=t11,tmp=(C_word)a,a+=8,tmp); /* eval.scm:1249: chicken.internal#library-id */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[312]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[312]+1); av2[1]=t29; av2[2]=t2; tp(3,av2);}} /* k10697 in ##sys#process-require in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_10699,2,av);} a=C_alloc(12); t2=t1; t3=C_i_assq(t2,lf[289]); if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=C_i_cdr(t3); /* eval.scm:1252: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t4; av2[2]=t5; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} else{ if(C_truep((C_truep(C_eqp(t2,lf[290]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[291]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[292]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[293]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[294]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[295]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[296]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[297]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[298]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[299]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[300]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[301]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[302]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[303]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[304]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[305]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))))))))))))){ /* eval.scm:1254: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[306]; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} else{ if(C_truep(C_i_memq(t2,((C_word*)t0)[3]))){ /* eval.scm:1256: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[307]; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10741,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10816,a[2]=((C_word*)t0)[3],a[3]=((C_word)li221),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1257: any */ f_8477(t4,t5,((C_word*)t0)[7]);}}}} /* k10739 in k10697 in ##sys#process-require in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_10741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,c,3)))){ C_save_and_reclaim((void *)f_10741,2,av);} a=C_alloc(30); if(C_truep(t1)){ /* eval.scm:1258: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[308]; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} else{ if(C_truep(C_i_memq(((C_word*)t0)[3],lf[183]))){ if(C_truep(((C_word*)t0)[4])){ t2=C_a_i_list(&a,2,lf[309],((C_word*)t0)[3]); t3=C_a_i_list(&a,2,lf[117],t2); /* eval.scm:1261: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}} else{ t2=C_a_i_list(&a,2,lf[23],((C_word*)t0)[3]); t3=C_a_i_list(&a,2,lf[263],t2); /* eval.scm:1262: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} else{ t2=(C_truep(((C_word*)t0)[4])?((C_word*)t0)[5]:C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10784,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1264: mark-static */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t3=C_a_i_list(&a,2,lf[23],((C_word*)t0)[3]); t4=C_a_i_list(&a,2,lf[23],((C_word*)t0)[7]); t5=C_a_i_list(&a,2,lf[23],lf[107]); t6=C_a_i_list(&a,4,lf[106],t3,t4,t5); /* eval.scm:1267: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t6; av2[3]=lf[311]; C_values(4,av2);}}}}} /* k10782 in k10739 in k10697 in ##sys#process-require in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_10784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_10784,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,2,lf[309],((C_word*)t0)[2]); t3=C_a_i_list(&a,2,lf[117],t2); /* eval.scm:1265: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=lf[310]; C_values(4,av2);}} /* a10815 in k10697 in ##sys#process-require in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_10816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10816,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_memq(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_10886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_10886,6,av);} a=C_alloc(23); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10889,a[2]=t7,a[3]=((C_word)li223),tmp=(C_word)a,a+=4,tmp)); t11=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10922,a[2]=t3,a[3]=t7,a[4]=((C_word)li224),tmp=(C_word)a,a+=5,tmp)); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10961,a[2]=t1,a[3]=t9,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11015,a[2]=t9,a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1296: make-relative-pathname */ f_9418(t13,t5,t2);} /* test-extensions in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_fcall f_10889(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_10889,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10902,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1282: file-exists? */ f_10289(t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10905,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t3); /* eval.scm:1283: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[216]+1); av2[1]=t4; av2[2]=t2; av2[3]=t5; tp(4,av2);}}} /* k10900 in test-extensions in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_10902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10902,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10903 in test-extensions in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_10905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10905,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10908,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* eval.scm:1284: file-exists? */ f_10289(t2,t1);} /* k10906 in k10903 in test-extensions in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_10908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10908,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* eval.scm:1285: test-extensions */ t4=((C_word*)((C_word*)t0)[4])[1]; f_10889(t4,((C_word*)t0)[2],((C_word*)t0)[5],t3);}} /* test in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_fcall f_10922(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_10922,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[2]; /* eval.scm:1287: test-extensions */ t4=((C_word*)((C_word*)t0)[3])[1]; f_10889(t4,t1,t2,t3);} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10958,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* eval.scm:1290: chicken.platform#feature? */ t4=*((C_word*)lf[248]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[249]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k10956 in test in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_10958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10958,2,av);} a=C_alloc(6); if(C_truep(C_i_not(t1))){ t2=C_a_i_list1(&a,1,lf[187]); /* eval.scm:1287: test-extensions */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10889(t3,((C_word*)t0)[3],((C_word*)t0)[4],t2);} else{ t2=C_i_not(((C_word*)t0)[5]); t3=(C_truep(t2)?C_a_i_list2(&a,2,*((C_word*)lf[190]+1),lf[187]):C_a_i_list2(&a,2,lf[187],*((C_word*)lf[190]+1))); /* eval.scm:1287: test-extensions */ t4=((C_word*)((C_word*)t0)[2])[1]; f_10889(t4,((C_word*)t0)[3],((C_word*)t0)[4],t3);}} /* k10959 in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_10961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10961,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10971,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[5])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11008,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1300: chicken.platform#repository-path */ t4=*((C_word*)lf[282]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=*((C_word*)lf[279]+1); f_10971(2,av2);}}}} /* k10969 in k10959 in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_10971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10971,2,av);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10973,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li225),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_10973(t5,((C_word*)t0)[4],t1);} /* loop in k10969 in k10959 in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_fcall f_10973(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_10973,3,t0,t1,t2);} a=C_alloc(9); t3=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10983,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10997,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t2,C_fix(0)); /* eval.scm:1303: string-append */ t7=*((C_word*)lf[199]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=lf[313]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k10981 in loop in k10969 in k10959 in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10983,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[3],C_fix(1)); /* eval.scm:1306: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_10973(t3,((C_word*)t0)[2],t2);}} /* k10995 in loop in k10969 in k10959 in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_10997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10997,2,av);} /* eval.scm:1303: test */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10922(t2,((C_word*)t0)[3],t1);} /* k11006 in k10959 in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11008,2,av);} if(C_truep(t1)){ t2=t1; /* eval.scm:1298: ##sys#append */ t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[279]+1); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* eval.scm:1298: ##sys#append */ t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[279]+1); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k11013 in ##sys#resolve-include-filename in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11015,2,av);} /* eval.scm:1296: test */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10922(t2,((C_word*)t0)[3],t1);} /* run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_fcall f_11018(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_11018,2,t1,t2);} a=C_alloc(7); t3=lf[314] /* last-error */ =C_SCHEME_FALSE;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11023,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11028,a[2]=t2,a[3]=((C_word)li233),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1326: scheme#call-with-current-continuation */ t6=*((C_word*)lf[318]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k11021 in run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11023,2,av);} /* eval.scm:1324: g2854 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a11027 in run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11028,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11034,a[2]=t2,a[3]=((C_word)li228),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11053,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li232),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1326: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[317]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a11033 in a11027 in run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11034,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11040,a[2]=t2,a[3]=((C_word)li227),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1326: k2851 */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a11039 in a11033 in a11027 in run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_11040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11040,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11044,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1327: chicken.base#open-output-string */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11042 in a11039 in a11033 in a11027 in run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_11044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11044,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11047,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1328: chicken.condition#print-error-message */ t4=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11045 in k11042 in a11039 in a11033 in a11027 in run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in ... */ static void C_ccall f_11047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11047,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11051,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1329: chicken.base#get-output-string */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11049 in k11045 in k11042 in a11039 in a11033 in a11027 in run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in ... */ static void C_ccall f_11051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11051,2,av);} t2=C_mutate(&lf[314] /* (set! last-error ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a11052 in a11027 in run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_11053,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11059,a[2]=((C_word*)t0)[2],a[3]=((C_word)li229),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11065,a[2]=((C_word*)t0)[3],a[3]=((C_word)li231),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1326: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a11058 in a11052 in a11027 in run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_11059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11059,2,av);} /* eval.scm:1331: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a11064 in a11052 in a11027 in run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_11065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_11065,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11071,a[2]=t2,a[3]=((C_word)li230),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1326: k2851 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a11070 in a11064 in a11052 in a11027 in run-safe in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_11071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11071,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* store-result in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_fcall f_11077(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11077,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11081,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* eval.scm:1338: ##sys#gc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[320]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[320]+1); av2[1]=t4; av2[2]=C_SCHEME_FALSE; tp(3,av2);}} /* k11079 in store-result in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11081,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_store_result(((C_word*)t0)[3],((C_word*)t0)[2]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* CHICKEN_yield in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_11086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11086,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11092,a[2]=((C_word)li236),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1344: run-safe */ f_11018(t1,t2);} /* a11091 in CHICKEN_yield in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11092,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11096,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1344: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[322]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[322]+1); av2[1]=t2; tp(2,av2);}} /* k11094 in a11091 in CHICKEN_yield in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11096,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* CHICKEN_eval in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_11098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11098,4,av);} a=C_alloc(5); t4=t2; t5=t3; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11104,a[2]=t5,a[3]=t4,a[4]=((C_word)li238),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1347: run-safe */ f_11018(t1,t6);} /* a11103 in CHICKEN_eval in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11104,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11112,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1349: scheme#eval */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11110 in a11103 in CHICKEN_eval in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11112,2,av);} /* eval.scm:1349: store-result */ f_11077(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* CHICKEN_eval_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_11114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11114,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11118,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1351: ##sys#peek-c-string */ t5=*((C_word*)lf[234]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k11116 in CHICKEN_eval_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11118,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2]; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11123,a[2]=t3,a[3]=t2,a[4]=((C_word)li240),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1352: run-safe */ f_11018(((C_word*)t0)[3],t4);} /* a11122 in k11116 in CHICKEN_eval_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11123,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11127,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1354: chicken.base#open-input-string */ t3=*((C_word*)lf[325]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11125 in a11122 in k11116 in CHICKEN_eval_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_11127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11127,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11134,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11138,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1355: scheme#read */ t4=*((C_word*)lf[227]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11132 in k11125 in a11122 in k11116 in CHICKEN_eval_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_11134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11134,2,av);} /* eval.scm:1355: store-result */ f_11077(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* k11136 in k11125 in a11122 in k11116 in CHICKEN_eval_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_11138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11138,2,av);} /* eval.scm:1355: scheme#eval */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* store-string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static C_word C_fcall f_11140(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_stack_overflow_check;{} t4=C_block_size(t1); if(C_truep(C_fixnum_greater_or_equal_p(t4,t2))){ t5=C_mutate(&lf[314] /* (set! last-error ...) */,lf[327]); return(C_SCHEME_FALSE);} else{ t5=C_copy_result_string(t1,t3,t4); return(t5);}} /* CHICKEN_eval_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_11153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11153,5,av);} a=C_alloc(6); t5=t2; t6=t3; t7=t4; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11159,a[2]=t7,a[3]=t6,a[4]=t5,a[5]=((C_word)li243),tmp=(C_word)a,a+=6,tmp); /* eval.scm:1371: run-safe */ f_11018(t1,t8);} /* a11158 in CHICKEN_eval_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11159,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11163,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* eval.scm:1373: chicken.base#open-output-string */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11161 in a11158 in CHICKEN_eval_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_11163,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11166,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11177,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1374: scheme#eval */ t5=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11164 in k11161 in a11158 in CHICKEN_eval_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_11166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11166,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1375: chicken.base#get-output-string */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11171 in k11164 in k11161 in a11158 in CHICKEN_eval_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_11173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11173,2,av);} /* eval.scm:1375: store-string */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* eval.scm:1375: store-string */ f_11140(t1,((C_word*)t0)[3],((C_word*)t0)[4]) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11175 in k11161 in a11158 in CHICKEN_eval_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_11177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11177,2,av);} /* eval.scm:1374: scheme#write */ t2=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* CHICKEN_eval_string_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_11179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11179,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11183,a[2]=t3,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* eval.scm:1377: ##sys#peek-c-string */ t6=*((C_word*)lf[234]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k11181 in CHICKEN_eval_string_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11183,2,av);} a=C_alloc(6); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11188,a[2]=t4,a[3]=t3,a[4]=t2,a[5]=((C_word)li245),tmp=(C_word)a,a+=6,tmp); /* eval.scm:1380: run-safe */ f_11018(((C_word*)t0)[4],t5);} /* a11187 in k11181 in CHICKEN_eval_string_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11188,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11192,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* eval.scm:1382: chicken.base#open-output-string */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11190 in a11187 in k11181 in CHICKEN_eval_string_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_11192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_11192,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11195,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11206,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11210,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11214,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1383: chicken.base#open-input-string */ t7=*((C_word*)lf[325]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k11193 in k11190 in a11187 in k11181 in CHICKEN_eval_string_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_11195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11195,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11202,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1384: chicken.base#get-output-string */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11200 in k11193 in k11190 in a11187 in k11181 in CHICKEN_eval_string_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in ... */ static void C_ccall f_11202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11202,2,av);} /* eval.scm:1384: store-string */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* eval.scm:1384: store-string */ f_11140(t1,((C_word*)t0)[3],((C_word*)t0)[4]) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11204 in k11190 in a11187 in k11181 in CHICKEN_eval_string_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_11206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11206,2,av);} /* eval.scm:1383: scheme#write */ t2=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k11208 in k11190 in a11187 in k11181 in CHICKEN_eval_string_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_11210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11210,2,av);} /* eval.scm:1383: scheme#eval */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11212 in k11190 in a11187 in k11181 in CHICKEN_eval_string_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_11214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11214,2,av);} /* eval.scm:1383: scheme#read */ t2=*((C_word*)lf[227]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* CHICKEN_apply in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_11216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11216,5,av);} a=C_alloc(6); t5=t2; t6=t3; t7=t4; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11222,a[2]=t7,a[3]=t5,a[4]=t6,a[5]=((C_word)li247),tmp=(C_word)a,a+=6,tmp); /* eval.scm:1389: run-safe */ f_11018(t1,t8);} /* a11221 in CHICKEN_apply in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11222,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11230,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}} /* k11228 in a11221 in CHICKEN_apply in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11230,2,av);} /* eval.scm:1389: store-result */ f_11077(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* CHICKEN_apply_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_11232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11232,6,av);} a=C_alloc(7); t6=t2; t7=t3; t8=t4; t9=t5; t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11238,a[2]=t9,a[3]=t8,a[4]=t6,a[5]=t7,a[6]=((C_word)li249),tmp=(C_word)a,a+=7,tmp); /* eval.scm:1394: run-safe */ f_11018(t1,t10);} /* a11237 in CHICKEN_apply_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11238,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11242,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* eval.scm:1396: chicken.base#open-output-string */ t3=*((C_word*)lf[15]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11240 in a11237 in CHICKEN_apply_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_11242,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11245,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11256,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; C_apply(4,av2);}} /* k11243 in k11240 in a11237 in CHICKEN_apply_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_11245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11245,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11252,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1398: chicken.base#get-output-string */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11250 in k11243 in k11240 in a11237 in CHICKEN_apply_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_11252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11252,2,av);} /* eval.scm:1398: store-string */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* eval.scm:1398: store-string */ f_11140(t1,((C_word*)t0)[3],((C_word*)t0)[4]) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11254 in k11240 in a11237 in CHICKEN_apply_to_string in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_11256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11256,2,av);} /* eval.scm:1397: scheme#write */ t2=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* CHICKEN_read in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_11258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11258,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11262,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1400: ##sys#peek-c-string */ t5=*((C_word*)lf[234]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k11260 in CHICKEN_read in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11262,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2]; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11267,a[2]=t3,a[3]=t2,a[4]=((C_word)li251),tmp=(C_word)a,a+=5,tmp); /* eval.scm:1401: run-safe */ f_11018(((C_word*)t0)[3],t4);} /* a11266 in k11260 in CHICKEN_read in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11267,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11271,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1403: chicken.base#open-input-string */ t3=*((C_word*)lf[325]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11269 in a11266 in k11260 in CHICKEN_read in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_11271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11271,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11278,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1404: scheme#read */ t3=*((C_word*)lf[227]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11276 in k11269 in a11266 in k11260 in CHICKEN_read in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_11278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11278,2,av);} /* eval.scm:1404: store-result */ f_11077(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* CHICKEN_load in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_11280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11280,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11284,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1406: ##sys#peek-c-string */ t4=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11282 in CHICKEN_load in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_11284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11284,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11289,a[2]=t2,a[3]=((C_word)li253),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1407: run-safe */ f_11018(((C_word*)t0)[2],t3);} /* a11288 in k11282 in CHICKEN_load in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_11289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11289,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11293,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1407: scheme#load */ t3=*((C_word*)lf[250]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11291 in a11288 in k11282 in CHICKEN_load in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_11293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11293,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* CHICKEN_get_error_message in k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_11295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11295,4,av);} t4=lf[314]; if(C_truep(lf[314])){ t5=lf[314]; t6=lf[314]; /* eval.scm:1410: store-string */ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=( /* eval.scm:1410: store-string */ f_11140(lf[314],t3,t2) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* eval.scm:1410: store-string */ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=( /* eval.scm:1410: store-string */ f_11140(lf[335],t3,t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k11305 in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_11307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(45,c,6)))){ C_save_and_reclaim((void *)f_11307,2,av);} a=C_alloc(45); t2=C_a_i_list1(&a,1,t1); t3=C_mutate((C_word*)lf[279]+1 /* (set! ##sys#include-pathnames ...) */,t2); t4=C_mutate((C_word*)lf[271]+1 /* (set! ##sys#resolve-include-filename ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10886,a[2]=((C_word)li226),tmp=(C_word)a,a+=3,tmp)); t5=lf[314] /* last-error */ =C_SCHEME_FALSE;; t6=C_mutate(&lf[315] /* (set! run-safe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11018,a[2]=((C_word)li234),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate(&lf[319] /* (set! store-result ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11077,a[2]=((C_word)li235),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate(&lf[321] /* (set! CHICKEN_yield ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11086,a[2]=((C_word)li237),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate(&lf[323] /* (set! CHICKEN_eval ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11098,a[2]=((C_word)li239),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate(&lf[324] /* (set! CHICKEN_eval_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11114,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate(&lf[326] /* (set! store-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11140,a[2]=((C_word)li242),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate(&lf[328] /* (set! CHICKEN_eval_to_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11153,a[2]=((C_word)li244),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate(&lf[329] /* (set! CHICKEN_eval_string_to_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11179,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate(&lf[330] /* (set! CHICKEN_apply ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11216,a[2]=((C_word)li248),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate(&lf[331] /* (set! CHICKEN_apply_to_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11232,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate(&lf[332] /* (set! CHICKEN_read ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11258,a[2]=((C_word)li252),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate(&lf[333] /* (set! CHICKEN_load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11280,a[2]=((C_word)li254),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate(&lf[334] /* (set! CHICKEN_get_error_message ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11295,a[2]=((C_word)li255),tmp=(C_word)a,a+=3,tmp)); t19=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t19; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} /* k11312 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_11314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_11314,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11316,a[2]=((C_word)li256),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1118: chicken.base#make-parameter */ t3=*((C_word*)lf[337]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a11315 in k11312 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_11316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11316,3,av);} t3=C_i_check_list(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop2388 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_fcall f_11322(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11322,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11347,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* eval.scm:1119: g2394 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11345 in map-loop2388 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_11347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11347,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11322(t6,((C_word*)t0)[5],t5);} /* k11359 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11361,2,av);} /* eval.scm:1111: scheme#string-append */ t2=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[189]; av2[3]=lf[338]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11371 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11373,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_9371(t2,C_a_i_list(&a,1,t1));} /* k11375 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11377,2,av);} /* eval.scm:946: scheme#string-append */ t2=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[342]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k11402 in k11406 in k11410 in k11414 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11404,2,av);} t2=C_eqp(t1,lf[349]); t3=((C_word*)t0)[2]; f_9362(t3,(C_truep(t2)?lf[350]:lf[185]));} /* k11406 in k11410 in k11414 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11408,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[348]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11404,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:931: chicken.platform#machine-type */ t4=*((C_word*)lf[351]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[2]; f_9362(t3,lf[185]);}} /* k11410 in k11414 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11412,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[346]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_9362(t3,lf[347]);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11408,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:930: chicken.platform#software-version */ t4=*((C_word*)lf[343]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11414 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11416,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[344]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_9362(t3,lf[345]);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11412,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:929: chicken.platform#software-version */ t4=*((C_word*)lf[343]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_11420,2,av);} a=C_alloc(27); t2=C_i_setslot(((C_word*)t0)[2],C_fix(2),t1); t3=C_mutate((C_word*)lf[174]+1 /* (set! scheme#scheme-report-environment ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8024,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li161),tmp=(C_word)a,a+=5,tmp)); t4=C_mutate((C_word*)lf[178]+1 /* (set! scheme#null-environment ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8049,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word)li162),tmp=(C_word)a,a+=5,tmp)); t5=C_a_i_provide(&a,1,lf[181]); t6=C_mutate(&lf[182] /* (set! chicken.load#any ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8477,a[2]=((C_word)li164),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate(&lf[183] /* (set! chicken.load#constant2087 ...) */,lf[184]); t8=C_mutate(&lf[185] /* (set! chicken.load#constant2117 ...) */,lf[186]); t9=C_mutate(&lf[187] /* (set! chicken.load#constant2126 ...) */,lf[188]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9362,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11416,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* eval.scm:928: chicken.platform#software-type */ t12=*((C_word*)lf[352]+1);{ C_word *av2=av; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} /* k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11428,2,av);} a=C_alloc(7); t2=C_i_setslot(((C_word*)t0)[2],C_fix(2),t1); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11420,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=C_slot(((C_word*)t0)[3],C_fix(2)); /* eval.scm:857: strip */ f_7966(t3,t4);} /* k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_11436,2,av);} a=C_alloc(8); t2=C_i_setslot(((C_word*)t0)[2],C_fix(2),t1); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11428,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t4=C_slot(((C_word*)t0)[3],C_fix(2)); /* eval.scm:856: strip */ f_7966(t3,t4);} /* k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_11444,2,av);} a=C_alloc(8); t2=C_i_setslot(((C_word*)t0)[2],C_fix(2),t1); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11436,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t4=C_slot(((C_word*)t0)[3],C_fix(2)); /* eval.scm:855: strip */ f_7966(t3,t4);} /* a11449 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11450,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11454,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* eval.scm:823: ##sys#print */ t5=*((C_word*)lf[362]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[363]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k11452 in a11449 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11454,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11457,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_slot(((C_word*)t0)[4],C_fix(1)); /* eval.scm:824: ##sys#print */ t4=*((C_word*)lf[362]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k11455 in k11452 in a11449 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11457,2,av);} /* eval.scm:825: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[361]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[361]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(62); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* a11465 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_11466,2,av);} a=C_alloc(14); t2=C_SCHEME_END_OF_LIST; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11472,a[2]=t5,a[3]=t3,a[4]=((C_word)li259),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11493,a[2]=t5,a[3]=t3,a[4]=((C_word)li263),tmp=(C_word)a,a+=5,tmp); /* eval.scm:778: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_values(4,av2);}} /* a11471 in a11465 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_11472,5,av);} a=C_alloc(12); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11476,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11491,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* eval.scm:781: ##sys#get */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[5]+1); av2[1]=t6; av2[2]=t2; av2[3]=t3; tp(4,av2);}} else{ t6=t5; f_11476(t6,C_SCHEME_UNDEFINED);}} /* k11474 in a11471 in a11465 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_11476(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_11476,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11479,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:782: ##sys#put! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[366]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[366]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[3]; tp(5,av2);}} /* k11477 in k11474 in a11471 in a11465 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11479,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11489 in a11471 in a11465 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_11491,2,av);} a=C_alloc(12); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[4])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3); t5=((C_word*)t0)[5]; f_11476(t5,t4);} /* a11492 in a11465 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_11493,3,av);} a=C_alloc(15); t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)((C_word*)t0)[2])[1]; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11499,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li260),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11504,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li262),tmp=(C_word)a,a+=7,tmp); /* eval.scm:787: scheme#dynamic-wind */ t8=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t1; av2[2]=t6; av2[3]=t2; av2[4]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* a11498 in a11492 in a11465 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11499,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_TRUE); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a11503 in a11492 in a11465 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_11504,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11508,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11511,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=((C_word)li261),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_11511(t6,t2);} /* k11506 in a11503 in a11492 in a11465 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11508,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop1483 in a11503 in a11492 in a11465 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_11511(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_11511,2,t0,t1);} a=C_alloc(5); t2=C_eqp(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t2)){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11521,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(((C_word*)((C_word*)t0)[3])[1]);{ C_word av2[4]; av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[366]+1); av2[3]=t4; C_apply(4,av2);}}} /* k11519 in doloop1483 in a11503 in a11492 in a11465 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11521,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)((C_word*)t0)[3])[1]; f_11511(t4,((C_word*)t0)[4]);} /* a11533 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11534,4,av);} t4=C_mutate((C_word*)lf[367]+1 /* (set! ##sys#put/restore! ...) */,t2); t5=C_mutate((C_word*)lf[97]+1 /* (set! ##sys#with-property-restore ...) */,t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_11539,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11546,a[2]=t6,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* eval.scm:741: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t7; tp(2,av2);}} /* k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){ C_save_and_reclaim((void *)f_11546,2,av);} a=C_alloc(35); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11549,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t1))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11639,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,lf[167],*((C_word*)lf[368]+1)); t5=C_a_i_cons(&a,2,lf[166],*((C_word*)lf[369]+1)); t6=C_a_i_list(&a,3,lf[31],t4,t5); /* eval.scm:747: compile-to-closure */ f_3572(t3,t6,C_SCHEME_END_OF_LIST,C_a_i_list(&a,4,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_TRUE));} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_11549(2,av2);}}} /* k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_11549,2,av);} a=C_alloc(29); if(C_truep(((C_word*)t0)[2])){ t2=C_i_check_structure_2(((C_word*)t0)[2],lf[158],lf[0]); t3=C_slot(((C_word*)t0)[2],C_fix(2)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11561,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); if(C_truep(t3)){ t5=*((C_word*)lf[89]+1); t6=*((C_word*)lf[9]+1); t7=C_SCHEME_END_OF_LIST; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=t3; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_TRUE; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11569,a[2]=t8,a[3]=t10,a[4]=t12,a[5]=t6,a[6]=t5,a[7]=((C_word)li266),tmp=(C_word)a,a+=8,tmp); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11599,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word)li267),tmp=(C_word)a,a+=5,tmp); t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11609,a[2]=t8,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li268),tmp=(C_word)a,a+=7,tmp); /* eval.scm:755: ##sys#dynamic-wind */ t16=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t16; av2[1]=t4; av2[2]=t13; av2[3]=t14; av2[4]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} else{ /* eval.scm:758: compile-to-closure */ f_3572(t4,((C_word*)t0)[4],C_SCHEME_END_OF_LIST,C_a_i_list(&a,4,C_SCHEME_FALSE,((C_word*)t0)[2],C_SCHEME_FALSE,C_SCHEME_TRUE));}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11630,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* eval.scm:761: compile-to-closure */ f_3572(t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST,C_a_i_list(&a,4,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_TRUE));}} /* k11559 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11561,2,av);} /* eval.scm:753: g1431 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a11568 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_11569,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11573,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ /* eval.scm:755: ##sys#macro-environment1434 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_11573(2,av2);}}} /* k11571 in a11568 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_11573,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11576,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ /* eval.scm:755: ##sys#current-environment1435 */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_11576(2,av2);}}} /* k11574 in k11571 in a11568 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_11576,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11580,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* eval.scm:755: ##sys#macro-environment1434 */ t4=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k11578 in k11574 in k11571 in a11568 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_11580,2,av);} a=C_alloc(9); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11584,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* eval.scm:755: ##sys#current-environment1435 */ t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k11582 in k11578 in k11574 in k11571 in a11568 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11584,2,av);} a=C_alloc(6); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11587,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* eval.scm:755: ##sys#macro-environment1434 */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k11585 in k11582 in k11578 in k11574 in k11571 in a11568 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11587,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11590,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:755: ##sys#current-environment1435 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k11588 in k11585 in k11582 in k11578 in k11574 in k11571 in a11568 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11590,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a11598 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_11599,2,av);} a=C_alloc(12); t2=C_slot(((C_word*)t0)[2],C_fix(3)); /* eval.scm:757: compile-to-closure */ f_3572(t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST,C_a_i_list(&a,4,C_SCHEME_FALSE,((C_word*)t0)[2],t2,C_SCHEME_TRUE));} /* a11608 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11609,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11613,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* eval.scm:755: ##sys#macro-environment1434 */ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k11611 in a11608 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_11613,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11616,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* eval.scm:755: ##sys#current-environment1435 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k11614 in k11611 in a11608 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_11616,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11619,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* eval.scm:755: ##sys#macro-environment1434 */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k11617 in k11614 in k11611 in a11608 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_11619,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11622,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* eval.scm:755: ##sys#current-environment1435 */ t3=((C_word*)t0)[7];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k11620 in k11617 in k11614 in k11611 in a11608 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11622,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11628 in k11547 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11630,2,av);} /* eval.scm:751: g1463 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k11637 in k11544 in a11538 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_11639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11639,2,av);} /* eval.scm:746: g1425 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k3515 */ static void C_ccall f_3517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3517,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3520,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k3518 in k3515 */ static void C_ccall f_3520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3520,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3523,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k3521 in k3518 in k3515 */ static void C_ccall f_3523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3523,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3526,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_3526,2,av);} a=C_alloc(19); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_set_block_item(lf[2] /* ##sys#unbound-in-eval */,0,C_SCHEME_FALSE); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3570,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:79: chicken.base#make-parameter */ t6=*((C_word*)lf[337]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* a3533 in decorate in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3534,3,av);} t3=C_immp(t2); if(C_truep(C_i_not(t3))){ t4=C_lambdainfop(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a3546 in decorate in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3547,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3555,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3559,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:73: chicken.base#open-output-string */ t6=*((C_word*)lf[15]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k3553 in a3546 in decorate in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3555,2,av);} t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3557 in a3546 in decorate in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3559,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3562,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:74: scheme#write */ t4=*((C_word*)lf[14]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3560 in k3557 in a3546 in decorate in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3562,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3565,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:75: chicken.base#get-output-string */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3563 in k3560 in k3557 in a3546 in decorate in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3565,2,av);} /* eval.scm:72: ##sys#make-lambda-info */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[12]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_3570,2,av);} a=C_alloc(12); t2=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#eval-debug-level ...) */,t1); t3=C_mutate(&lf[4] /* (set! chicken.eval#compile-to-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3572,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[70]+1 /* (set! ##sys#eval/meta ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7729,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7842,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11539,a[2]=((C_word)li269),tmp=(C_word)a,a+=3,tmp); /* eval.scm:739: chicken.base#make-parameter */ t7=*((C_word*)lf[337]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_3572(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(61,0,8)))){ C_save_and_reclaim_args((void *)trf_3572,4,t1,t2,t3,t4);} a=C_alloc(61); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_SCHEME_FALSE:C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=C_i_nullp(t14); t16=(C_truep(t15)?C_SCHEME_FALSE:C_i_car(t14)); t17=t16; t18=C_i_nullp(t14); t19=(C_truep(t18)?C_SCHEME_END_OF_LIST:C_i_cdr(t14)); t20=C_i_nullp(t19); t21=(C_truep(t20)?C_SCHEME_FALSE:C_i_car(t19)); t22=t21; t23=C_i_nullp(t19); t24=(C_truep(t23)?C_SCHEME_END_OF_LIST:C_i_cdr(t19)); t25=C_SCHEME_UNDEFINED; t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); t27=C_SCHEME_UNDEFINED; t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp); t29=C_SCHEME_UNDEFINED; t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp); t31=C_SCHEME_UNDEFINED; t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp); t33=C_SCHEME_UNDEFINED; t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp); t35=C_SCHEME_UNDEFINED; t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp); t37=C_SCHEME_UNDEFINED; t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp); t39=C_SCHEME_UNDEFINED; t40=(*a=C_VECTOR_TYPE|1,a[1]=t39,tmp=(C_word)a,a+=2,tmp); t41=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3599,a[2]=t26,a[3]=((C_word)li0),tmp=(C_word)a,a+=4,tmp)); t42=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3634,a[2]=t26,a[3]=((C_word)li3),tmp=(C_word)a,a+=4,tmp)); t43=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3668,a[2]=t28,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp)); t44=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3757,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t45=C_set_block_item(t34,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3771,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t46=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3781,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t47=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3787,a[2]=t30,a[3]=t17,a[4]=t34,a[5]=t38,a[6]=t12,a[7]=t36,a[8]=t28,a[9]=t40,a[10]=((C_word)li132),tmp=(C_word)a,a+=11,tmp)); t48=C_set_block_item(t40,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7336,a[2]=t32,a[3]=t38,a[4]=((C_word)li145),tmp=(C_word)a,a+=5,tmp)); t49=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7679,a[2]=t38,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t7,a[7]=t22,tmp=(C_word)a,a+=8,tmp); /* eval.scm:712: ##sys#eval-debug-level */ t50=*((C_word*)lf[3]+1);{ C_word av2[2]; av2[0]=t50; av2[1]=t49; ((C_proc)(void*)(*((C_word*)t50+1)))(2,av2);}} /* find-id in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_3599(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3599,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3612,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t5=C_i_caar(t3); t6=C_eqp(t2,t5); if(C_truep(t6)){ t7=t3; t8=C_u_i_car(t7); t9=C_u_i_cdr(t8); t10=t4; f_3612(t10,C_i_symbolp(t9));} else{ t7=t4; f_3612(t7,C_SCHEME_FALSE);}}} /* k3610 in find-id in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_3612(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3612,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_u_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* eval.scm:91: find-id */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3599(t4,((C_word*)t0)[3],((C_word*)t0)[5],t3);}} /* rename in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_3634(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_3634,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3638,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3666,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* eval.scm:94: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t4; tp(2,av2);}} /* k3636 in rename in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3638,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3646,a[2]=((C_word*)t0)[3],a[3]=((C_word)li1),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3652,a[2]=((C_word*)t0)[3],a[3]=((C_word)li2),tmp=(C_word)a,a+=4,tmp); /* eval.scm:94: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}}} /* a3645 in k3636 in rename in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3646,2,av);} /* eval.scm:95: ##sys#get */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[5]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[6]; tp(4,av2);}} /* a3651 in k3636 in rename in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_3652,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3659,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[8]+1); av2[3]=t2; C_apply(4,av2);}} /* k3657 in a3651 in k3636 in rename in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3659,2,av);} if(C_truep(t1)){{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[7]+1); av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3664 in rename in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3666,2,av);} /* eval.scm:94: find-id */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3599(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* lookup in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_3668(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3668,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3672,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* eval.scm:99: rename */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3634(t5,t4,t2);} /* k3670 in lookup in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_3672,2,av);} a=C_alloc(7); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3680,a[2]=t2,a[3]=t4,a[4]=((C_word)li6),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_3680(t6,((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0));} /* loop in k3670 in lookup in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_3680(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_3680,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ /* eval.scm:102: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)t0)[2]; C_values(4,av2);}} else{ t4=C_slot(t2,C_fix(0)); t5=((C_word*)t0)[2]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3727,a[2]=t5,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp); t7=( f_3727(t6,t4,C_fix(0)) ); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3697,a[2]=t3,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp); /* eval.scm:102: g237 */ t9=t8; f_3697(t9,t1,t7);} else{ t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); /* eval.scm:104: loop */ t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}}} /* g237 in loop in k3670 in lookup in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_3697(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3697,3,t0,t1,t2);} /* eval.scm:103: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; C_values(4,av2);}} /* loop in loop in k3670 in lookup in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static C_word C_fcall f_3727(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t1))){ return(C_SCHEME_FALSE);} else{ t3=C_slot(t1,C_fix(0)); t4=C_eqp(((C_word*)t0)[2],t3); if(C_truep(t4)){ return(t2);} else{ t5=C_slot(t1,C_fix(1)); t6=C_fixnum_plus(t2,C_fix(1)); t8=t5; t9=t6; t1=t8; t2=t9; goto loop;}}} /* emit-trace-info in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static C_word C_fcall f_3757(C_word *a,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_stack_overflow_check;{} if(C_truep(t1)){ t6=C_a_i_record4(&a,4,lf[10],t3,t4,t5); t7=C_slot(*((C_word*)lf[11]+1),C_fix(14)); t8=C_emit_eval_trace_info(t2,t6,t7); return(t8);} else{ t6=C_SCHEME_UNDEFINED; return(t6);}} /* emit-syntax-trace-info in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static C_word C_fcall f_3771(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_stack_overflow_check;{} if(C_truep(t1)){ t4=C_slot(*((C_word*)lf[11]+1),C_fix(14)); t5=C_emit_syntax_trace_info(t2,t3,t4); return(t5);} else{ t4=C_SCHEME_UNDEFINED; return(t4);}} /* decorate in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_3781(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_3781,3,t1,t2,t3);} a=C_alloc(7); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3534,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3547,a[2]=t4,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp); /* eval.scm:66: ##sys#decorate-lambda */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[16]+1); av2[1]=t1; av2[2]=t2; av2[3]=t5; av2[4]=t6; tp(5,av2);}} /* compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_3787(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,0,2)))){ C_save_and_reclaim_args((void *)trf_3787,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(17); t8=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_3794,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t6,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=t5,a[10]=((C_word*)t0)[5],a[11]=t4,a[12]=t7,a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[7],a[15]=((C_word*)t0)[8],a[16]=((C_word*)t0)[9],tmp=(C_word)a,a+=17,tmp); /* eval.scm:132: chicken.keyword#keyword? */ t9=*((C_word*)lf[146]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_3794,2,av);} a=C_alloc(17); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3795,a[2]=((C_word*)t0)[2],a[3]=((C_word)li13),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3807,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word)li14),tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word)li23),tmp=(C_word)a,a+=6,tmp); /* eval.scm:134: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_4004,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[4],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); /* eval.scm:172: ##sys#number? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[145]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[145]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}}} /* f_3795 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3795,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3806 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3807,2,av);} /* eval.scm:134: lookup */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3668(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4]);} /* a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_3813,4,av);} a=C_alloc(12); if(C_truep(C_i_not(t2))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3823,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=C_i_symbolp(t3); if(C_truep(C_i_not(t5))){ t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=((C_word*)t0)[2]; f_3823(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3896,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* eval.scm:137: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t6; tp(2,av2);}}} else{ t4=t2; switch(t4){ case C_fix(0): t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3907,a[2]=t3,a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} case C_fix(1): t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3922,a[2]=t3,a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);} case C_fix(2): t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3941,a[2]=t3,a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} case C_fix(3): t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3964,a[2]=t3,a[3]=((C_word)li21),tmp=(C_word)a,a+=4,tmp); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);} default: t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3985,a[2]=t2,a[3]=t3,a[4]=((C_word)li22),tmp=(C_word)a,a+=5,tmp); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} /* k3821 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_3823,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3826,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3853,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[2]+1))){ t5=C_i_not(t2); if(C_truep(t5)){ t6=t4; f_3853(t6,t5);} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3874,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* eval.scm:143: ##sys#symbol-has-toplevel-binding? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[19]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[19]+1); av2[1]=t6; av2[2]=t2; tp(3,av2);}}} else{ t5=t4; f_3853(t5,C_SCHEME_FALSE);}} /* k3824 in k3821 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_3826(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_3826,2,t0,t1);} a=C_alloc(4); if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3833,a[2]=((C_word*)t0)[4],a[3]=((C_word)li15),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:149: ##sys#symbol-has-toplevel-binding? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[19]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[19]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}} /* f_3833 in k3824 in k3821 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3833,3,av);} /* eval.scm:148: ##sys#error */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[18]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3841 in k3824 in k3821 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3843,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3844,a[2]=((C_word*)t0)[2],a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3849,a[2]=((C_word*)t0)[2],a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* f_3844 in k3841 in k3824 in k3821 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3844,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[2],C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_3849 in k3841 in k3824 in k3821 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3849(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3849,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fast_retrieve(((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3851 in k3821 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_3853(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,1)))){ C_save_and_reclaim_args((void *)trf_3853,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[2]+1)); t4=C_mutate((C_word*)lf[2]+1 /* (set! ##sys#unbound-in-eval ...) */,t3); t5=((C_word*)t0)[4]; f_3826(t5,t4);} else{ t2=((C_word*)t0)[4]; f_3826(t2,C_SCHEME_UNDEFINED);}} /* k3872 in k3821 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3874,2,av);} t2=((C_word*)t0)[2]; f_3853(t2,C_i_not(t1));} /* k3894 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3896,2,av);} if(C_truep(C_i_assq(((C_word*)t0)[2],t1))){ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_3823(2,av2);}} else{ if(C_truep(C_i_not(((C_word*)t0)[5]))){ /* eval.scm:139: ##sys#alias-global-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[20]+1); av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[6]; tp(5,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_3823(2,av2);}}}} /* f_3907 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3907,3,av);} t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t3,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_3922 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3922,3,av);} t3=C_slot(t2,C_fix(1)); t4=C_slot(t3,C_fix(0)); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_slot(t4,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* f_3941 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3941,3,av);} t3=C_slot(t2,C_fix(1)); t4=C_slot(t3,C_fix(1)); t5=C_slot(t4,C_fix(0)); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_slot(t5,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* f_3964 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3964,3,av);} t3=C_slot(t2,C_fix(1)); t4=C_slot(t3,C_fix(1)); t5=C_slot(t4,C_fix(1)); t6=C_slot(t5,C_fix(0)); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_slot(t6,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* f_3985 in a3812 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_3985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3985,3,av);} t3=C_u_i_list_ref(t2,((C_word*)t0)[2]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t3,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_4004,2,av);} a=C_alloc(21); if(C_truep(t1)){ t2=((C_word*)t0)[2]; switch(t2){ case C_fix(-1): t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4011,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} case C_fix(0): t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4019,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} case C_fix(1): t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4027,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} case C_fix(2): t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4035,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} default: t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4037,a[2]=((C_word*)t0)[2],a[3]=((C_word)li28),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ if(C_truep(C_booleanp(((C_word*)t0)[2]))){ if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4056,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4058,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=C_charp(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_4068,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); if(C_truep(t2)){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; f_4068(2,av2);}} else{ t4=C_eofp(((C_word*)t0)[2]); if(C_truep(t4)){ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; f_4068(2,av2);}} else{ t5=C_i_stringp(((C_word*)t0)[2]); if(C_truep(t5)){ t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; f_4068(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7235,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:186: chicken.blob#blob? */ t7=*((C_word*)lf[144]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}}}} /* f_4011 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4011,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4019 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4019,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4027 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4027,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4035 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4035,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(2); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4037 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4037,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4056 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4056,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4058 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4058,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_4068,2,av);} a=C_alloc(20); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4069,a[2]=((C_word*)t0)[2],a[3]=((C_word)li31),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_i_pairp(((C_word*)t0)[2]); if(C_truep(C_i_not(t2))){ /* eval.scm:191: ##sys#syntax-error/context */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[21]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[22]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} else{ t3=C_slot(((C_word*)t0)[2],C_fix(0)); if(C_truep(C_i_symbolp(t3))){ t4=( /* eval.scm:193: emit-syntax-trace-info */ f_3771(((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[6]) ); t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_4091,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],tmp=(C_word)a,a+=16,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7202,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:194: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t6; tp(2,av2);}} else{ t4=( /* eval.scm:649: emit-syntax-trace-info */ f_3771(((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[6]) ); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7212,a[2]=((C_word*)t0)[16],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* eval.scm:650: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t5; tp(2,av2);}}}}} /* f_4069 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4069,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,7)))){ C_save_and_reclaim((void *)f_4091,2,av);} a=C_alloc(16); t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(C_i_not(t2))){ /* eval.scm:197: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3787(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_4106,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp); t4=C_slot(((C_word*)t0)[2],C_fix(0)); /* eval.scm:198: rename */ t5=((C_word*)((C_word*)t0)[14])[1]; f_3634(t5,t3,t4);}} /* k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,7)))){ C_save_and_reclaim((void *)f_4106,2,av);} a=C_alloc(25); t2=t1; t3=t2; t4=C_eqp(t3,lf[23]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4115,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:204: chicken.syntax#strip-syntax */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=C_eqp(t3,lf[25]); if(C_truep(t5)){ t6=C_i_cadr(((C_word*)t0)[3]); t7=t6; t8=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t8; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4201,a[2]=t7,a[3]=((C_word)li40),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=C_eqp(t3,lf[26]); if(C_truep(t6)){ t7=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:220: compile */ t8=((C_word*)((C_word*)t0)[4])[1]; f_3787(t8,((C_word*)t0)[2],t7,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} else{ t7=C_eqp(t3,lf[27]); if(C_truep(t7)){ t8=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:223: compile */ t9=((C_word*)((C_word*)t0)[4])[1]; f_3787(t9,((C_word*)t0)[2],t8,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} else{ t8=C_eqp(t3,lf[28]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4235,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp); t10=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_eqp(t3,lf[29]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4245,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t11=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:228: compile */ t12=((C_word*)((C_word*)t0)[4])[1]; f_3787(t12,t10,t11,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} else{ t10=C_eqp(t3,lf[31]); if(C_truep(t10)){ t11=C_slot(((C_word*)t0)[3],C_fix(1)); t12=t11; t13=C_i_length(t12); switch(t13){ case C_fix(0): /* eval.scm:239: compile */ t14=((C_word*)((C_word*)t0)[4])[1]; f_3787(t14,((C_word*)t0)[2],lf[32],((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]); case C_fix(1): t14=C_slot(t12,C_fix(0)); /* eval.scm:240: compile */ t15=((C_word*)((C_word*)t0)[4])[1]; f_3787(t15,((C_word*)t0)[2],t14,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]); case C_fix(2): t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4333,a[2]=((C_word*)t0)[2],a[3]=t12,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t15=C_slot(t12,C_fix(0)); /* eval.scm:241: compile */ t16=((C_word*)((C_word*)t0)[4])[1]; f_3787(t16,t14,t15,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]); default: t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4355,a[2]=((C_word*)t0)[2],a[3]=t12,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t15=C_slot(t12,C_fix(0)); /* eval.scm:245: compile */ t16=((C_word*)((C_word*)t0)[4])[1]; f_3787(t16,t14,t15,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}} else{ t11=C_eqp(t3,lf[33]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4407,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[9])){ /* eval.scm:253: compile */ t13=((C_word*)((C_word*)t0)[4])[1]; f_3787(t13,((C_word*)t0)[2],lf[34],((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} else{ t13=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:252: ##sys#error */ t14=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t14; av2[1]=t12; av2[2]=lf[35]; av2[3]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}} else{ t12=C_eqp(t3,lf[36]); if(C_truep(t12)){ t13=C_i_cadr(((C_word*)t0)[3]); t14=t13; t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4431,a[2]=((C_word*)t0)[10],a[3]=t14,a[4]=((C_word*)t0)[5],a[5]=((C_word)li45),tmp=(C_word)a,a+=6,tmp); t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4437,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=t14,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[7],a[10]=((C_word)li50),tmp=(C_word)a,a+=11,tmp); /* eval.scm:258: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t15; av2[3]=t16; C_call_with_values(4,av2);}} else{ t13=C_eqp(t3,lf[41]); if(C_truep(t13)){ t14=C_i_cadr(((C_word*)t0)[3]); t15=t14; t16=C_i_length(t15); t17=t16; t18=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t19=t18; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=((C_word*)t20)[1]; t22=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4546,a[2]=((C_word*)t0)[5],a[3]=t17,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t15,a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[3],tmp=(C_word)a,a+=12,tmp); t23=C_SCHEME_UNDEFINED; t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp); t25=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4985,a[2]=t20,a[3]=t24,a[4]=t21,a[5]=((C_word)li63),tmp=(C_word)a,a+=6,tmp)); t26=((C_word*)t24)[1]; f_4985(t26,t22,t15);} else{ t14=C_eqp(t3,lf[50]); if(C_truep(t14)){ t15=C_i_cadr(((C_word*)t0)[3]); t16=t15; t17=((C_word*)t0)[3]; t18=C_u_i_cdr(t17); t19=C_u_i_cdr(t18); t20=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t21=t20; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=((C_word*)t22)[1]; t24=C_i_check_list_2(t16,lf[42]); t25=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5058,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t19,a[9]=t16,tmp=(C_word)a,a+=10,tmp); t26=C_SCHEME_UNDEFINED; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5130,a[2]=t22,a[3]=t27,a[4]=t23,a[5]=((C_word)li65),tmp=(C_word)a,a+=6,tmp)); t29=((C_word*)t27)[1]; f_5130(t29,t25,t16);} else{ t15=C_eqp(t3,lf[53]); if(C_truep(t15)){ t16=C_i_cadr(((C_word*)t0)[3]); t17=t16; t18=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t19=t18; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=((C_word*)t20)[1]; t22=C_i_check_list_2(t17,lf[42]); t23=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5180,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t17,tmp=(C_word)a,a+=10,tmp); t24=C_SCHEME_UNDEFINED; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5436,a[2]=t20,a[3]=t25,a[4]=t21,a[5]=((C_word)li70),tmp=(C_word)a,a+=6,tmp)); t27=((C_word*)t25)[1]; f_5436(t27,t23,t17);} else{ t16=C_eqp(t3,lf[55]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5477,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5920,a[2]=t17,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:361: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t18; tp(2,av2);}} else{ t17=C_eqp(t3,lf[67]); if(C_truep(t17)){ t18=*((C_word*)lf[9]+1); t19=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5929,a[2]=t18,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); t20=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t21=t20; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=((C_word*)t22)[1]; t24=C_i_cadr(((C_word*)t0)[3]); t25=C_i_check_list_2(t24,lf[42]); t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6021,a[2]=t19,tmp=(C_word)a,a+=3,tmp); t27=C_SCHEME_UNDEFINED; t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp); t29=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6027,a[2]=t22,a[3]=t28,a[4]=t23,a[5]=((C_word)li106),tmp=(C_word)a,a+=6,tmp)); t30=((C_word*)t28)[1]; f_6027(t30,t26,t24);} else{ t18=C_eqp(t3,lf[71]); if(C_truep(t18)){ t19=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t20=t19; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=((C_word*)t21)[1]; t23=C_i_cadr(((C_word*)t0)[3]); t24=C_i_check_list_2(t23,lf[42]); t25=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6104,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); t26=C_SCHEME_UNDEFINED; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6199,a[2]=t21,a[3]=t27,a[4]=t22,a[5]=((C_word)li112),tmp=(C_word)a,a+=6,tmp)); t29=((C_word*)t27)[1]; f_6199(t29,t25,t23);} else{ t19=C_eqp(t3,lf[73]); if(C_truep(t19)){ t20=C_i_cadr(((C_word*)t0)[3]); t21=t20; t22=C_i_caddr(((C_word*)t0)[3]); t23=t22; t24=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6246,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t23,a[8]=((C_word*)t0)[11],a[9]=t21,a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp); /* eval.scm:493: rename */ t25=((C_word*)((C_word*)t0)[14])[1]; f_3634(t25,t24,t21);} else{ t20=C_eqp(t3,lf[79]); if(C_truep(t20)){ /* eval.scm:506: compile */ t21=((C_word*)((C_word*)t0)[4])[1]; f_3787(t21,((C_word*)t0)[2],lf[80],((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} else{ t21=C_eqp(t3,lf[81]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6309,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); t23=C_i_cddr(((C_word*)t0)[3]); t24=t23; t25=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6317,a[2]=t22,a[3]=t24,tmp=(C_word)a,a+=4,tmp); /* eval.scm:510: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t25; tp(2,av2);}} else{ t22=C_eqp(t3,lf[82]); if(C_truep(t22)){ t23=C_i_cadr(((C_word*)t0)[3]); t24=C_i_caddr(((C_word*)t0)[3]); t25=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6336,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[3],a[8]=((C_word)li113),tmp=(C_word)a,a+=9,tmp); /* eval.scm:514: ##sys#include-forms-from-file */ t26=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t26; av2[1]=((C_word*)t0)[2]; av2[2]=t23; av2[3]=t24; av2[4]=t25; ((C_proc)(void*)(*((C_word*)t26+1)))(5,av2);}} else{ t23=C_eqp(t3,lf[84]); if(C_truep(t23)){ t24=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t25=t24; t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); t27=((C_word*)t26)[1]; t28=C_i_cadr(((C_word*)t0)[3]); t29=C_i_check_list_2(t28,lf[42]); t30=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6399,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); t31=C_SCHEME_UNDEFINED; t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp); t33=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6415,a[2]=t26,a[3]=t32,a[4]=t27,a[5]=((C_word)li115),tmp=(C_word)a,a+=6,tmp)); t34=((C_word*)t32)[1]; f_6415(t34,t30,t28);} else{ t24=C_eqp(t3,lf[88]); if(C_truep(t24)){ t25=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6456,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* eval.scm:536: chicken.syntax#strip-syntax */ t26=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t26; av2[1]=t25; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t26+1)))(3,av2);}} else{ t25=C_eqp(t3,lf[102]); if(C_truep(t25)){ t26=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6780,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* eval.scm:588: rename */ t27=((C_word*)((C_word*)t0)[14])[1]; f_3634(t27,t26,lf[65]);} else{ t26=C_eqp(t3,lf[103]); if(C_truep(t26)){ t27=C_i_cadr(((C_word*)t0)[3]); t28=C_a_i_list(&a,2,lf[23],t27); t29=C_a_i_list(&a,2,lf[93],t28); /* eval.scm:591: compile */ t30=((C_word*)((C_word*)t0)[4])[1]; f_3787(t30,((C_word*)t0)[2],t29,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} else{ t27=C_eqp(t3,lf[104]); if(C_truep(t27)){ t28=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6814,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); t29=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:594: chicken.load#load-extension */ t30=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t30; av2[1]=t28; av2[2]=t29; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=lf[107]; ((C_proc)(void*)(*((C_word*)t30+1)))(5,av2);}} else{ t28=C_eqp(t3,lf[108]); if(C_truep(t28)){ t29=C_i_cadr(((C_word*)t0)[3]); t30=t29; t31=((C_word*)t0)[3]; t32=C_u_i_cdr(t31); t33=C_u_i_cdr(t32); t34=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6837,a[2]=t30,a[3]=t33,a[4]=((C_word)li126),tmp=(C_word)a,a+=5,tmp); t35=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6843,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word)li127),tmp=(C_word)a,a+=7,tmp); /* eval.scm:600: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t34; av2[3]=t35; C_call_with_values(4,av2);}} else{ t29=C_eqp(t3,lf[110]); t30=(C_truep(t29)?t29:C_eqp(t3,lf[111])); if(C_truep(t30)){ t31=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6859,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp); t32=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:604: ##sys#eval/meta */ t33=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t33; av2[1]=t31; av2[2]=t32; ((C_proc)(void*)(*((C_word*)t33+1)))(3,av2);}} else{ t31=C_eqp(t3,lf[113]); if(C_truep(t31)){ t32=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:608: compile */ t33=((C_word*)((C_word*)t0)[4])[1]; f_3787(t33,((C_word*)t0)[2],t32,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t32=C_eqp(t3,lf[114]); t33=(C_truep(t32)?t32:C_eqp(t3,lf[115])); if(C_truep(t33)){ /* eval.scm:611: compile */ t34=((C_word*)((C_word*)t0)[4])[1]; f_3787(t34,((C_word*)t0)[2],lf[116],((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} else{ t34=C_eqp(t3,lf[117]); if(C_truep(t34)){ t35=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6900,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); /* eval.scm:614: ##sys#notice */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[39]+1); av2[1]=t35; av2[2]=lf[119]; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} else{ t35=C_eqp(t3,lf[120]); t36=(C_truep(t35)?t35:C_eqp(t3,lf[121])); if(C_truep(t36)){ t37=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6923,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* eval.scm:618: rename */ t38=((C_word*)((C_word*)t0)[14])[1]; f_3634(t38,t37,lf[122]);} else{ t37=C_eqp(t3,lf[123]); t38=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6936,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[15],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[9],a[12]=t2,tmp=(C_word)a,a+=13,tmp); if(C_truep(t37)){ t39=t38; f_6936(t39,t37);} else{ t39=C_eqp(t3,lf[132]); if(C_truep(t39)){ t40=t38; f_6936(t40,t39);} else{ t40=C_eqp(t3,lf[133]); if(C_truep(t40)){ t41=t38; f_6936(t41,t40);} else{ t41=C_eqp(t3,lf[134]); if(C_truep(t41)){ t42=t38; f_6936(t42,t41);} else{ t42=C_eqp(t3,lf[135]); if(C_truep(t42)){ t43=t38; f_6936(t43,t42);} else{ t43=C_eqp(t3,lf[136]); if(C_truep(t43)){ t44=t38; f_6936(t44,t43);} else{ t44=C_eqp(t3,lf[137]); if(C_truep(t44)){ t45=t38; f_6936(t45,t44);} else{ t45=C_eqp(t3,lf[138]); if(C_truep(t45)){ t46=t38; f_6936(t46,t45);} else{ t46=C_eqp(t3,lf[139]); if(C_truep(t46)){ t47=t38; f_6936(t47,t46);} else{ t47=C_eqp(t3,lf[140]); t48=t38; f_6936(t48,(C_truep(t47)?t47:C_eqp(t3,lf[141])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k4113 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4115,2,av);} a=C_alloc(4); t2=t1; switch(t2){ case C_fix(-1): t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4122,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} case C_fix(0): t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4130,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} case C_fix(1): t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4138,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} case C_fix(2): t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4146,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} case C_SCHEME_TRUE: t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4154,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} case C_SCHEME_FALSE: t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4162,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} default: t3=C_eqp(t2,C_SCHEME_END_OF_LIST); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4170,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4172,a[2]=t2,a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* f_4122 in k4113 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4122,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4130 in k4113 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4130,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4138 in k4113 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4138,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4146 in k4113 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4146,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(2); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4154 in k4113 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4154,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4162 in k4113 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4162,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4170 in k4113 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4170,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4172 in k4113 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4172,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4201 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4201,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4235 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4235,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4243 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,7)))){ C_save_and_reclaim((void *)f_4245,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4248,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=C_i_caddr(((C_word*)t0)[3]); /* eval.scm:229: compile */ t5=((C_word*)((C_word*)t0)[4])[1]; f_3787(t5,t3,t4,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k4246 in k4243 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,7)))){ C_save_and_reclaim((void *)f_4248,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4251,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_cdddr(((C_word*)t0)[4]); if(C_truep(C_i_pairp(t4))){ t5=C_i_cadddr(((C_word*)t0)[4]); /* eval.scm:231: compile */ t6=((C_word*)((C_word*)t0)[5])[1]; f_3787(t6,t3,t5,((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} else{ /* eval.scm:232: compile */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3787(t5,t3,lf[30],((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}} /* k4249 in k4246 in k4243 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4251,2,av);} a=C_alloc(6); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4252,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word)li42),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_4252 in k4249 in k4246 in k4243 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4252,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4259,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4257 */ static void C_ccall f_4259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4259,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k4331 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_4333,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4336,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:242: compile */ t5=((C_word*)((C_word*)t0)[4])[1]; f_3787(t5,t3,t4,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k4334 in k4331 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4336,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4337,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_4337 in k4334 in k4331 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4337,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4341,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4339 */ static void C_ccall f_4341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4341,2,av);} t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4353 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,7)))){ C_save_and_reclaim((void *)f_4355,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4358,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_i_cadr(((C_word*)t0)[3]); /* eval.scm:246: compile */ t5=((C_word*)((C_word*)t0)[4])[1]; f_3787(t5,t3,t4,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k4356 in k4353 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,7)))){ C_save_and_reclaim((void *)f_4358,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4361,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_slot(((C_word*)t0)[4],C_fix(1)); t5=C_slot(t4,C_fix(1)); t6=C_a_i_cons(&a,2,lf[31],t5); /* eval.scm:247: compile */ t7=((C_word*)((C_word*)t0)[5])[1]; f_3787(t7,t3,t6,((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} /* k4359 in k4356 in k4353 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4361,2,av);} a=C_alloc(6); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4362,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li44),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_4362 in k4359 in k4356 in k4353 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4362,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4366,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4364 */ static void C_ccall f_4366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4366,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4369,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4367 in k4364 */ static void C_ccall f_4369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4369,2,av);} t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4405 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4407,2,av);} /* eval.scm:253: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3787(t2,((C_word*)t0)[3],lf[34],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} /* a4430 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4431,2,av);} /* eval.scm:258: lookup */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3668(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4]);} /* a4436 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,7)))){ C_save_and_reclaim((void *)f_4437,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4441,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t3,a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); t5=C_i_caddr(((C_word*)t0)[6]); /* eval.scm:259: compile */ t6=((C_word*)((C_word*)t0)[7])[1]; f_3787(t6,t4,t5,((C_word*)t0)[8],((C_word*)t0)[4],((C_word*)t0)[9],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k4439 in a4436 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_4441,2,av);} a=C_alloc(13); t2=t1; if(C_truep(C_i_not(((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4450,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(*((C_word*)lf[38]+1))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4492,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* eval.scm:262: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t4; tp(2,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_4450(2,av2);}}} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(C_i_zerop(t3))?(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4497,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word)li48),tmp=(C_word)a,a+=5,tmp):(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4510,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=t2,a[5]=((C_word)li49),tmp=(C_word)a,a+=6,tmp)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4448 in k4439 in a4436 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4450,2,av);} a=C_alloc(5); if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4454,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word)li46),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4461,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* eval.scm:268: ##sys#alias-global-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[8]; tp(5,av2);}}} /* f_4454 in k4448 in k4439 in a4436 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4454,3,av);} /* eval.scm:267: ##sys#error */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t1; av2[2]=lf[0]; av2[3]=lf[37]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4459 in k4448 in k4439 in a4436 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4461,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4462,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li47),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_4462 in k4459 in k4448 in k4439 in a4436 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4462,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4466,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4464 */ static void C_ccall f_4466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4466,2,av);} t2=C_i_persist_symbol(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_setslot(((C_word*)t0)[2],C_fix(0),t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4490 in k4439 in a4436 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4492,2,av);} t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=C_i_cdr(t2); if(C_truep(C_i_symbolp(t3))){ /* eval.scm:264: ##sys#notice */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[39]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[40]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_4450(2,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_4450(2,av2);}}} /* f_4497 in k4439 in a4436 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4497,3,av);} a=C_alloc(5); t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4509,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4507 */ static void C_ccall f_4509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4509,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_setslot(((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_4510 in k4439 in a4436 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4510,3,av);} a=C_alloc(5); t3=C_u_i_list_ref(t2,((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4519,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4517 */ static void C_ccall f_4519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4519,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_setslot(((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_4546,2,av);} a=C_alloc(26); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(t2,lf[42]); t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4951,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li62),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_4951(t12,t8,t2);} /* k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_4555,2,av);} a=C_alloc(22); t2=t1; t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4561,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t4,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4949,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* eval.scm:285: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t6; tp(2,av2);}} /* k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,c,4)))){ C_save_and_reclaim((void *)f_4561,2,av);} a=C_alloc(33); t2=*((C_word*)lf[9]+1); t3=t1; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_TRUE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4564,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4902,a[2]=t4,a[3]=t6,a[4]=t2,a[5]=((C_word)li59),tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4919,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[13],a[7]=((C_word)li60),tmp=(C_word)a,a+=8,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4937,a[2]=t4,a[3]=t2,a[4]=((C_word)li61),tmp=(C_word)a,a+=5,tmp); /* eval.scm:286: ##sys#dynamic-wind */ t11=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t7; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_4564,2,av);} a=C_alloc(26); t2=t1; switch(((C_word*)t0)[2]){ case C_fix(1): t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4573,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4594,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* eval.scm:291: scheme#cadar */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);} case C_fix(2): t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4607,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4643,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* eval.scm:294: scheme#cadar */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);} case C_fix(3): t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4656,a[2]=((C_word*)t0)[9],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4710,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* eval.scm:298: scheme#cadar */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);} case C_fix(4): t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4723,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4792,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* eval.scm:306: scheme#cadar */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);} default: t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4800,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word)li55),tmp=(C_word)a,a+=7,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4813,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4860,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li58),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_4860(t12,t8,((C_word*)t0)[9]);}} /* k4571 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4573,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4574,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li51),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_4574 in k4571 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4574,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4590,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4588 */ static void C_ccall f_4590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4590,2,av);} a=C_alloc(5); t2=C_a_i_vector1(&a,1,t1); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4592 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4594,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* eval.scm:291: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3787(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k4605 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_4607,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4610,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4635,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* eval.scm:295: scheme#cadadr */ t5=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4608 in k4605 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4610,2,av);} a=C_alloc(6); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4611,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word)li52),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_4611 in k4608 in k4605 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4611,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4627,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4625 */ static void C_ccall f_4627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4627,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4631,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4629 in k4625 */ static void C_ccall f_4631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4631,2,av);} a=C_alloc(6); t2=C_a_i_vector2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4633 in k4605 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4635,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* eval.scm:295: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3787(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k4641 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4643,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* eval.scm:294: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3787(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k4654 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_4656,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4659,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4702,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp); /* eval.scm:299: scheme#cadadr */ t5=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4657 in k4654 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_4659,2,av);} a=C_alloc(14); t2=t1; t3=C_i_cddr(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4665,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4694,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t4,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); /* eval.scm:301: scheme#cadar */ t6=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4663 in k4657 in k4654 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4665,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4666,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li53),tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_4666 in k4663 in k4657 in k4654 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4666,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4682,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4680 */ static void C_ccall f_4682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4682,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4686,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4684 in k4680 */ static void C_ccall f_4686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4686,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4690,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4688 in k4684 in k4680 */ static void C_ccall f_4690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4690,2,av);} a=C_alloc(7); t2=C_a_i_vector3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[6]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4692 in k4657 in k4654 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4694,2,av);} t2=C_i_caddr(((C_word*)t0)[2]); /* eval.scm:301: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3787(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k4700 in k4654 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4702,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* eval.scm:299: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3787(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k4708 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4710,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* eval.scm:298: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3787(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k4721 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_4723,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4726,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4784,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp); /* eval.scm:307: scheme#cadadr */ t5=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4724 in k4721 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_4726,2,av);} a=C_alloc(20); t2=t1; t3=C_i_cddr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4732,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t4,tmp=(C_word)a,a+=12,tmp); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4776,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t5,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); /* eval.scm:309: scheme#cadar */ t7=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k4730 in k4724 in k4721 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_4732,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4735,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4768,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t3,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); /* eval.scm:310: scheme#cadadr */ t5=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4733 in k4730 in k4724 in k4721 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4735,2,av);} a=C_alloc(8); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4736,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li54),tmp=(C_word)a,a+=8,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_4736 in k4733 in k4730 in k4724 in k4721 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4736,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4752,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4750 */ static void C_ccall f_4752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4752,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4756,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4754 in k4750 */ static void C_ccall f_4756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4756,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4760,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4758 in k4754 in k4750 */ static void C_ccall f_4760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4760,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4764,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4762 in k4758 in k4754 in k4750 */ static void C_ccall f_4764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4764,2,av);} a=C_alloc(8); t2=C_a_i_vector4(&a,4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[5]); t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[7]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4766 in k4730 in k4724 in k4721 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4768,2,av);} t2=C_i_cadddr(((C_word*)t0)[2]); /* eval.scm:310: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3787(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k4774 in k4724 in k4721 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4776,2,av);} t2=C_i_caddr(((C_word*)t0)[2]); /* eval.scm:309: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3787(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k4782 in k4721 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4784,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* eval.scm:307: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3787(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k4790 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4792,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* eval.scm:306: compile */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3787(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* g518 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_4800(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,7)))){ C_save_and_reclaim_args((void *)trf_4800,3,t0,t1,t2);} t3=C_i_cadr(t2); t4=t2; t5=C_u_i_car(t4); /* eval.scm:320: compile */ t6=((C_word*)((C_word*)t0)[2])[1]; f_3787(t6,t1,t3,((C_word*)t0)[3],t5,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k4811 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4813,2,av);} a=C_alloc(6); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4814,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word)li57),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_4814 in k4811 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4814,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4818,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* eval.scm:322: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[45]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k4816 */ static void C_ccall f_4818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_4818,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4821,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4830,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=((C_word)li56),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_4830(t7,t3,C_fix(0),((C_word*)t0)[6]);} /* k4819 in k4816 */ static void C_ccall f_4821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4821,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* doloop539 in k4816 */ static void C_fcall f_4830(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_4830,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4855,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t5=C_slot(t3,C_fix(0)); t6=t5;{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k4853 in doloop539 in k4816 */ static void C_ccall f_4855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4855,2,av);} t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=C_slot(((C_word*)t0)[4],C_fix(1)); t5=((C_word*)((C_word*)t0)[5])[1]; f_4830(t5,((C_word*)t0)[6],t3,t4);} /* map-loop512 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_4860(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4860,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4885,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* eval.scm:320: g518 */ t5=((C_word*)t0)[4]; f_4800(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4883 in map-loop512 in k4562 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4885,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4860(t6,((C_word*)t0)[5],t5);} /* a4901 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4902,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4906,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* eval.scm:286: ##sys#current-environment473 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_4906(2,av2);}}} /* k4904 in a4901 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4906,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4910,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* eval.scm:286: ##sys#current-environment473 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k4908 in k4904 in a4901 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4910,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4913,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* eval.scm:286: ##sys#current-environment473 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k4911 in k4908 in k4904 in a4901 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4913,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4918 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_4919,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4927,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t3=C_i_cddr(((C_word*)t0)[6]); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4935,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* eval.scm:288: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t5; tp(2,av2);}} /* k4925 in a4918 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_4927,2,av);} a=C_alloc(12); /* eval.scm:287: compile-to-closure */ f_3572(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE));} /* k4933 in a4918 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4935,2,av);} /* eval.scm:288: ##sys#canonicalize-body */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[46]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* a4936 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4937,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4941,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:286: ##sys#current-environment473 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k4939 in a4936 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4941,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4944,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:286: ##sys#current-environment473 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k4942 in k4939 in a4936 in k4559 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4944,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4947 in k4553 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4949,2,av);} /* eval.scm:285: ##sys#extend-se */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[48]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[48]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} /* map-loop445 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_4951(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4951,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4976,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* eval.scm:283: g451 */ t5=*((C_word*)lf[49]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4974 in map-loop445 in k4544 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_4976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4976,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4951(t6,((C_word*)t0)[5],t5);} /* map-loop417 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_4985(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_4985,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5056 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_5058,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5062,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5082,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5096,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li64),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_5096(t12,t8,((C_word*)t0)[9]);} /* k5060 in k5056 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){ C_save_and_reclaim((void *)f_5062,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[41],t2); /* eval.scm:332: compile */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3787(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} /* k5080 in k5056 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5082,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[41],t2); t4=C_a_i_list(&a,1,t3); /* eval.scm:333: ##sys#append */ t5=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop580 in k5056 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_5096(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_5096,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_i_cadr(t3); t6=C_a_i_list(&a,3,lf[36],t4,t5); t7=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST); t8=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t7); t9=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7); t10=C_slot(t2,C_fix(1)); t12=t1; t13=t10; t1=t12; t2=t13; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop553 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_5130(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_5130,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_list2(&a,2,t4,lf[52]); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); t9=C_slot(t2,C_fix(1)); t11=t1; t12=t9; t1=t11; t2=t12; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5178 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_5180,2,av);} a=C_alloc(24); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(t2,lf[42]); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5189,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5402,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li69),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_5402(t12,t8,t2);} /* k5187 in k5178 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_5189,2,av);} a=C_alloc(25); t2=t1; t3=C_i_cddr(((C_word*)t0)[2]); t4=t3; t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5215,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t4,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5368,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li68),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_5368(t13,t9,((C_word*)t0)[10]);} /* k5213 in k5187 in k5178 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){ C_save_and_reclaim((void *)f_5215,2,av);} a=C_alloc(25); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[42]); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5242,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[2],tmp=(C_word)a,a+=12,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5320,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li67),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_5320(t12,t8,((C_word*)t0)[2],((C_word*)t0)[11]);} /* k5240 in k5213 in k5187 in k5178 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_5242,2,av);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5246,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5258,a[2]=((C_word*)t0)[9],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5272,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li66),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_5272(t12,t8,((C_word*)t0)[10],((C_word*)t0)[11]);} /* k5244 in k5240 in k5213 in k5187 in k5178 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,7)))){ C_save_and_reclaim((void *)f_5246,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[41],t2); t4=C_a_i_list(&a,3,lf[41],((C_word*)t0)[3],t3); /* eval.scm:348: compile */ t5=((C_word*)((C_word*)t0)[4])[1]; f_3787(t5,((C_word*)t0)[5],t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);} /* k5256 in k5240 in k5213 in k5187 in k5178 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5258,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[41],t2); t4=C_a_i_list(&a,1,t3); /* eval.scm:349: ##sys#append */ t5=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop729 in k5240 in k5213 in k5187 in k5178 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_5272(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_5272,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,3,lf[36],t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop696 in k5213 in k5187 in k5178 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_5320(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_5320,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_i_cadr(t7); t9=C_a_i_list2(&a,2,t6,t8); t10=C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST); t11=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t10); t12=C_mutate(((C_word *)((C_word*)t0)[2])+1,t10); t13=C_slot(t2,C_fix(1)); t14=C_slot(t3,C_fix(1)); t16=t1; t17=t13; t18=t14; t1=t16; t2=t17; t3=t18; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop669 in k5187 in k5178 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_5368(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_5368,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_list2(&a,2,t4,lf[54]); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); t9=C_slot(t2,C_fix(1)); t11=t1; t12=t9; t1=t11; t2=t12; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop639 in k5178 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_5402(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_5402,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5427,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* eval.scm:346: g645 */ t5=*((C_word*)lf[49]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5425 in map-loop639 in k5178 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5427,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5402(t6,((C_word*)t0)[5],t5);} /* map-loop612 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_5436(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_5436,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_5477,2,av);} a=C_alloc(24); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t0)[3]; t10=(C_truep(t9)?C_a_i_cons(&a,2,t9,((C_word*)t4)[1]):C_a_i_cons(&a,2,lf[56],((C_word*)t4)[1])); t11=t10; t12=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5488,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t11,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t8,a[10]=((C_word*)t0)[9],a[11]=t4,tmp=(C_word)a,a+=12,tmp); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5894,a[2]=t4,a[3]=t8,a[4]=t12,tmp=(C_word)a,a+=5,tmp); /* eval.scm:365: ##sys#extended-lambda-list? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[63]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[63]+1); av2[1]=t13; av2[2]=((C_word*)t4)[1]; tp(3,av2);}} /* k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_5488,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5493,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word)li100),tmp=(C_word)a,a+=11,tmp); /* eval.scm:370: ##sys#decompose-lambda-list */ t3=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[10]; av2[2]=((C_word*)((C_word*)t0)[11])[1]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_5493,5,av);} a=C_alloc(27); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=t2; t10=C_i_check_list_2(t9,lf[42]); t11=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5503,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=t2,tmp=(C_word)a,a+=14,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5859,a[2]=t7,a[3]=t13,a[4]=t8,a[5]=((C_word)li99),tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_5859(t15,t11,t9);} /* k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_5503,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5506,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5857,a[2]=t3,a[3]=((C_word*)t0)[13],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* eval.scm:374: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t4; tp(2,av2);}} /* k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){ C_save_and_reclaim((void *)f_5506,2,av);} a=C_alloc(35); t2=t1; t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=t3; t5=*((C_word*)lf[9]+1); t6=t2; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_TRUE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5512,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5814,a[2]=t7,a[3]=t9,a[4]=t5,a[5]=((C_word)li96),tmp=(C_word)a,a+=6,tmp); t12=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5831,a[2]=((C_word*)t0)[9],a[3]=t4,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[13],a[8]=t2,a[9]=((C_word)li97),tmp=(C_word)a,a+=10,tmp); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5845,a[2]=t7,a[3]=t5,a[4]=((C_word)li98),tmp=(C_word)a,a+=5,tmp); /* eval.scm:377: ##sys#dynamic-wind */ t14=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t14; av2[1]=t10; av2[2]=t11; av2[3]=t12; av2[4]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}} /* k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5512,2,av);} a=C_alloc(7); t2=t1; t3=((C_word*)t0)[2]; switch(t3){ case C_fix(0): t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5522,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li72),tmp=(C_word)a,a+=6,tmp):(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5541,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li74),tmp=(C_word)a,a+=6,tmp)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} case C_fix(1): if(C_truep(((C_word*)t0)[4])){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5565,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li76),tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5584,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li78),tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} case C_fix(2): t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5612,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li80),tmp=(C_word)a,a+=6,tmp):(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5631,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li82),tmp=(C_word)a,a+=6,tmp)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} case C_fix(3): if(C_truep(((C_word*)t0)[4])){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5659,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li84),tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5678,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li86),tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} default: t4=C_eqp(t3,C_fix(4)); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=(C_truep(t4)?(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5706,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li88),tmp=(C_word)a,a+=6,tmp):(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5725,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li90),tmp=(C_word)a,a+=6,tmp)):(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5747,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word)li93),tmp=(C_word)a,a+=7,tmp):(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5770,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word)li95),tmp=(C_word)a,a+=7,tmp))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* f_5522 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5522,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5528,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li71),tmp=(C_word)a,a+=5,tmp); /* eval.scm:384: decorate */ f_3781(t1,t3,((C_word*)t0)[4]);} /* a5527 */ static void C_ccall f_5528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_5528,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; t3=C_a_i_vector1(&a,1,t2); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[2]); t5=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* f_5541 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5541,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5547,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li73),tmp=(C_word)a,a+=5,tmp); /* eval.scm:389: decorate */ f_3781(t1,t3,((C_word*)t0)[4]);} /* a5546 */ static void C_ccall f_5547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5547,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* f_5565 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5565,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5571,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li75),tmp=(C_word)a,a+=5,tmp); /* eval.scm:394: decorate */ f_3781(t1,t3,((C_word*)t0)[4]);} /* a5570 */ static void C_ccall f_5571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_5571,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=C_a_i_vector2(&a,2,t2,t3); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[2]); t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* f_5584 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5584,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5590,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li77),tmp=(C_word)a,a+=5,tmp); /* eval.scm:399: decorate */ f_3781(t1,t3,((C_word*)t0)[4]);} /* a5589 */ static void C_ccall f_5590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5590,3,av);} a=C_alloc(5); t3=C_a_i_vector1(&a,1,t2); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[2]); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* f_5612 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5612,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5618,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li79),tmp=(C_word)a,a+=5,tmp); /* eval.scm:405: decorate */ f_3781(t1,t3,((C_word*)t0)[4]);} /* a5617 */ static void C_ccall f_5618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +7,c,2)))){ C_save_and_reclaim((void*)f_5618,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+7); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=C_a_i_vector3(&a,3,t2,t3,t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[2]); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* f_5631 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5631,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5637,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li81),tmp=(C_word)a,a+=5,tmp); /* eval.scm:410: decorate */ f_3781(t1,t3,((C_word*)t0)[4]);} /* a5636 */ static void C_ccall f_5637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5637,4,av);} a=C_alloc(6); t4=C_a_i_vector2(&a,2,t2,t3); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[2]); t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* f_5659 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5659,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5665,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li83),tmp=(C_word)a,a+=5,tmp); /* eval.scm:416: decorate */ f_3781(t1,t3,((C_word*)t0)[4]);} /* a5664 */ static void C_ccall f_5665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +8,c,2)))){ C_save_and_reclaim((void*)f_5665,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+8); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; t6=C_a_i_vector4(&a,4,t2,t3,t4,t5); t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[2]); t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=t1; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* f_5678 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5678,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5684,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li85),tmp=(C_word)a,a+=5,tmp); /* eval.scm:421: decorate */ f_3781(t1,t3,((C_word*)t0)[4]);} /* a5683 */ static void C_ccall f_5684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5684,5,av);} a=C_alloc(7); t5=C_a_i_vector3(&a,3,t2,t3,t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[2]); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* f_5706 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_5706,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5712,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li87),tmp=(C_word)a,a+=5,tmp); /* eval.scm:427: decorate */ f_3781(t1,t3,((C_word*)t0)[4]);} /* a5711 */ static void C_ccall f_5712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(c<6) C_bad_min_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +9,c,2)))){ C_save_and_reclaim((void*)f_5712,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+9); t6=C_build_rest(&a,c,6,av); C_word t7; C_word t8; C_word t9; t7=C_a_i_vector5(&a,5,t2,t3,t4,t5,t6); t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[2]); t9=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t9; av2[1]=t1; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* f_5725 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_5725,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5731,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li89),tmp=(C_word)a,a+=5,tmp); /* eval.scm:432: decorate */ f_3781(t1,t3,((C_word*)t0)[4]);} /* a5730 */ static void C_ccall f_5731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5731,6,av);} a=C_alloc(5); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* eval.scm:434: ##sys#vector */ t7=*((C_word*)lf[57]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} /* k5741 in a5730 */ static void C_ccall f_5743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5743,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* f_5747 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5747,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5753,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li92),tmp=(C_word)a,a+=6,tmp); /* eval.scm:439: decorate */ f_3781(t1,t3,((C_word*)t0)[5]);} /* a5752 */ static void C_ccall f_5753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +15,c,6)))){ C_save_and_reclaim((void*)f_5753,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+15); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5765,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5769,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=((C_word*)t0)[4]; t6=t2; if(C_truep(C_i_nullp(t6))){ t7=C_a_i_list1(&a,1,t6);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[57]+1); av2[3]=t7; C_apply(4,av2);}} else{ t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7264,a[2]=t6,a[3]=t8,a[4]=((C_word)li91),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_7264(t10,t4,t5,C_fix(0),t6,C_SCHEME_FALSE);}} /* k5763 in a5752 */ static void C_ccall f_5765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5765,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5767 in a5752 */ static void C_ccall f_5769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5769,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[57]+1); av2[3]=t1; C_apply(4,av2);}} /* f_5770 in k5510 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5770,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5776,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li94),tmp=(C_word)a,a+=6,tmp); /* eval.scm:446: decorate */ f_3781(t1,t3,((C_word*)t0)[5]);} /* a5775 */ static void C_ccall f_5776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,4)))){ C_save_and_reclaim((void*)f_5776,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=t2; t4=C_u_i_length(t3); t5=C_eqp(t4,((C_word*)t0)[2]); if(C_truep(C_i_not(t5))){ /* eval.scm:450: ##sys#error */ t6=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=lf[59]; av2[3]=((C_word*)t0)[2]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5798,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t6; av2[2]=*((C_word*)lf[57]+1); av2[3]=t2; C_apply(4,av2);}}} /* k5796 in a5775 */ static void C_ccall f_5798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5798,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a5813 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5814,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5818,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* eval.scm:377: ##sys#current-environment808 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_5818(2,av2);}}} /* k5816 in a5813 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5818,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5822,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* eval.scm:377: ##sys#current-environment808 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k5820 in k5816 in a5813 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_5822,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5825,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* eval.scm:377: ##sys#current-environment808 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k5823 in k5820 in k5816 in a5813 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5825,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5830 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_5831,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5839,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* eval.scm:379: ##sys#canonicalize-body */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[46]+1); av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[7])[1]; av2[3]=((C_word*)t0)[8]; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* k5837 in a5830 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_5839,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; if(C_truep(t2)){ /* eval.scm:378: compile-to-closure */ f_3572(((C_word*)t0)[3],t1,((C_word*)t0)[4],C_a_i_list(&a,4,t2,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE));} else{ t3=((C_word*)t0)[7]; /* eval.scm:378: compile-to-closure */ f_3572(((C_word*)t0)[3],t1,((C_word*)t0)[4],C_a_i_list(&a,4,t3,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE));}} /* a5844 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5845,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5849,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:377: ##sys#current-environment808 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k5847 in a5844 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5849(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5849,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5852,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:377: ##sys#current-environment808 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k5850 in k5847 in a5844 in k5504 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5852,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5855 in k5501 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5857,2,av);} /* eval.scm:374: ##sys#extend-se */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[48]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[48]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} /* map-loop780 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_5859(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_5859,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5884,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* eval.scm:373: g786 */ t5=*((C_word*)lf[49]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5882 in map-loop780 in a5492 in k5486 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5884,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5859(t6,((C_word*)t0)[5],t5);} /* k5892 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_5894,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5899,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li101),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5909,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li102),tmp=(C_word)a,a+=5,tmp); /* eval.scm:366: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5488(2,av2);}}} /* a5898 in k5892 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5899,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5907,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:369: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t2; tp(2,av2);}} /* k5905 in a5898 in k5892 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5907,2,av);} /* eval.scm:368: ##sys#expand-extended-lambda-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[61]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; av2[4]=*((C_word*)lf[62]+1); av2[5]=t1; tp(6,av2);}} /* a5908 in k5892 in k5475 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5909,4,av);} t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k5918 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5920,2,av);} /* eval.scm:361: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[64]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[64]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[65]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[66]; av2[5]=C_SCHEME_FALSE; av2[6]=t1; tp(7,av2);}} /* k5927 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_5929,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_TRUE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5934,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word)li103),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5951,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word)li104),tmp=(C_word)a,a+=8,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5969,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li105),tmp=(C_word)a,a+=5,tmp); /* eval.scm:455: ##sys#dynamic-wind */ t9=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[8]; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a5933 in k5927 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5934,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5938,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* eval.scm:455: ##sys#current-environment874 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_5938(2,av2);}}} /* k5936 in a5933 in k5927 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5938,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5942,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* eval.scm:455: ##sys#current-environment874 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k5940 in k5936 in a5933 in k5927 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_5942,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5945,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* eval.scm:455: ##sys#current-environment874 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k5943 in k5940 in k5936 in a5933 in k5927 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5945,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5950 in k5927 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5951,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5959,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t3=C_i_cddr(((C_word*)t0)[6]); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5967,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* eval.scm:468: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t5; tp(2,av2);}} /* k5957 in a5950 in k5927 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5959,2,av);} /* eval.scm:467: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3787(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} /* k5965 in a5950 in k5927 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5967,2,av);} /* eval.scm:468: ##sys#canonicalize-body */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[46]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* a5968 in k5927 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5969,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5973,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:455: ##sys#current-environment874 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k5971 in a5968 in k5927 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5973,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5976,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:455: ##sys#current-environment874 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k5974 in k5971 in a5968 in k5927 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5976,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5992 in map-loop883 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5994,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5998,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6002,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=C_i_cadr(((C_word*)t0)[4]); /* eval.scm:463: ##sys#eval/meta */ t6=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5996 in k5992 in map-loop883 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_5998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_5998,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6000 in k5992 in map-loop883 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6002,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6006,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_u_i_car(((C_word*)t0)[3]); /* eval.scm:464: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6004 in k6000 in k5992 in map-loop883 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6006,2,av);} /* eval.scm:462: ##sys#ensure-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[69]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[69]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k6019 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6021,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6025,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:466: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t3; tp(2,av2);}} /* k6023 in k6019 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6025,2,av);} /* eval.scm:457: scheme#append */ t2=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop883 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_6027(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_6027,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6052,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_car(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5994,a[2]=t5,a[3]=t8,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* eval.scm:461: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t9; tp(2,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6050 in map-loop883 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6052,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6027(t6,((C_word*)t0)[5],t5);} /* k6079 in map-loop918 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_6081,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],C_SCHEME_FALSE,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6083 in map-loop918 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6085,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6089,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_u_i_car(((C_word*)t0)[3]); /* eval.scm:478: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6087 in k6083 in map-loop918 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6089,2,av);} /* eval.scm:476: ##sys#ensure-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[69]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[69]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6104,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6107,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6197,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:480: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t4; tp(2,av2);}} /* k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){ C_save_and_reclaim((void *)f_6107,2,av);} a=C_alloc(31); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6108,a[2]=t2,a[3]=((C_word)li107),tmp=(C_word)a,a+=4,tmp); t4=C_i_check_list_2(((C_word*)t0)[2],lf[72]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6172,a[2]=t3,a[3]=((C_word)li108),tmp=(C_word)a,a+=4,tmp); t6=( f_6172(t5,((C_word*)t0)[2]) ); t7=*((C_word*)lf[9]+1); t8=t2; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_TRUE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6127,a[2]=t9,a[3]=t11,a[4]=t7,a[5]=((C_word)li109),tmp=(C_word)a,a+=6,tmp); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6144,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word)li110),tmp=(C_word)a,a+=8,tmp); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6162,a[2]=t9,a[3]=t7,a[4]=((C_word)li111),tmp=(C_word)a,a+=5,tmp); /* eval.scm:485: ##sys#dynamic-wind */ t15=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=((C_word*)t0)[8]; av2[2]=t12; av2[3]=t13; av2[4]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} /* g947 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static C_word C_fcall f_6108(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_i_cdr(t1); return(C_i_set_car(t2,((C_word*)t0)[2]));} /* a6126 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6127,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6131,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* eval.scm:485: ##sys#current-environment955 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_6131(2,av2);}}} /* k6129 in a6126 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6131,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6135,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* eval.scm:485: ##sys#current-environment955 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6133 in k6129 in a6126 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6135,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6138,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* eval.scm:485: ##sys#current-environment955 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k6136 in k6133 in k6129 in a6126 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6138,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a6143 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6144,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6152,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t3=C_i_cddr(((C_word*)t0)[6]); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6160,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* eval.scm:487: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t5; tp(2,av2);}} /* k6150 in a6143 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6152,2,av);} /* eval.scm:486: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3787(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} /* k6158 in a6143 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6160,2,av);} /* eval.scm:487: ##sys#canonicalize-body */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[46]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* a6161 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6162,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6166,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:485: ##sys#current-environment955 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k6164 in a6161 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_6166,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6169,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:485: ##sys#current-environment955 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k6167 in k6164 in a6161 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6169,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* for-each-loop946 in k6105 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static C_word C_fcall f_6172(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=( /* eval.scm:481: g947 */ f_6108(((C_word*)t0)[2],t2) ); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k6195 in k6102 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6197,2,av);} /* eval.scm:480: scheme#append */ t2=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop918 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_6199(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_6199,3,t0,t1,t2);} a=C_alloc(14); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6224,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_car(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6081,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6085,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t11=C_i_cadr(t6); /* eval.scm:477: ##sys#eval/meta */ t12=*((C_word*)lf[70]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=t10; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6222 in map-loop918 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6224,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6199(t6,((C_word*)t0)[5],t5);} /* k6244 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_6246,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6249,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[8])){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6287,a[2]=((C_word*)t0)[9],a[3]=t3,a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); /* eval.scm:494: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t4; tp(2,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6249(2,av2);}}} /* k6247 in k6244 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_6249,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6252,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6270,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); /* eval.scm:497: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[77]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[77]+1); av2[1]=t3; tp(2,av2);}} /* k6250 in k6247 in k6244 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6252,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6255,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6262,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); /* eval.scm:501: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t3; tp(2,av2);}} /* k6253 in k6250 in k6247 in k6244 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6255,2,av);} /* eval.scm:503: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3787(t2,((C_word*)t0)[3],lf[74],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} /* k6260 in k6250 in k6247 in k6244 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6262,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6266,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* eval.scm:502: ##sys#eval/meta */ t4=*((C_word*)lf[70]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6264 in k6260 in k6250 in k6247 in k6244 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6266,2,av);} /* eval.scm:499: ##sys#extend-macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[75]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; tp(5,av2);}} /* k6268 in k6247 in k6244 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6270,2,av);} /* eval.scm:496: ##sys#register-syntax-export */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[76]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[76]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} /* k6285 in k6244 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6287,2,av);} t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(C_i_not(t2))){ /* eval.scm:495: ##sys#error */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[0]; av2[3]=lf[78]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6249(2,av2);}}} /* k6307 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6309,2,av);} /* eval.scm:509: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3787(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} /* k6315 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6317,2,av);} /* eval.scm:510: ##sys#canonicalize-body */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[46]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* a6335 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,7)))){ C_save_and_reclaim((void *)f_6336,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6344,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_i_cdddr(((C_word*)t0)[7]); if(C_truep(C_i_pairp(t4))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6354,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t6=C_i_cadddr(((C_word*)t0)[7]); /* eval.scm:521: scheme#append */ t7=*((C_word*)lf[68]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=t2; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=C_a_i_cons(&a,2,lf[31],t2); /* eval.scm:518: compile */ t6=((C_word*)((C_word*)t0)[2])[1]; f_3787(t6,t1,t5,((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}} /* k6342 in a6335 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6344,2,av);} /* eval.scm:518: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3787(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k6352 in a6335 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6354,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6358,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:522: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t3; tp(2,av2);}} /* k6356 in k6352 in a6335 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6358,2,av);} /* eval.scm:520: ##sys#canonicalize-body */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[46]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k6385 in map-loop991 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6387,2,av);} /* eval.scm:530: chicken.syntax#strip-syntax */ t2=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6397 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6399,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6401,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li114),tmp=(C_word)a,a+=9,tmp); /* eval.scm:527: ##sys#with-module-aliases */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[85]+1); av2[1]=((C_word*)t0)[8]; av2[2]=t1; av2[3]=t2; tp(4,av2);}} /* a6400 in k6397 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_6401,2,av);} a=C_alloc(3); t2=C_i_cddr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,lf[31],t2); /* eval.scm:533: compile */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3787(t4,t1,t3,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* map-loop991 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_6415(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_6415,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6440,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6387,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* eval.scm:529: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[64]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[64]+1); av2[1]=t7; av2[2]=lf[86]; av2[3]=t6; av2[4]=lf[87]; tp(5,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6438 in map-loop991 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6440,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6415(t6,((C_word*)t0)[5],t5);} /* k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_6456,2,av);} a=C_alloc(26); t2=t1; t3=C_i_cadr(t2); t4=t3; t5=C_i_caddr(t2); t6=C_eqp(C_SCHEME_TRUE,t5); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6465,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); if(C_truep(t6)){ t8=t7;{ C_word *av2=av; av2[0]=t8; av2[1]=t6; f_6465(2,av2);}} else{ t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6670,a[2]=t4,a[3]=((C_word)li124),tmp=(C_word)a,a+=4,tmp); t13=C_u_i_cdr(t2); t14=C_u_i_cdr(t13); t15=C_u_i_car(t14); t16=C_i_check_list_2(t15,lf[42]); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6727,a[2]=t10,a[3]=t18,a[4]=t12,a[5]=t11,a[6]=((C_word)li125),tmp=(C_word)a,a+=7,tmp)); t20=((C_word*)t18)[1]; f_6727(t20,t7,t15);}} /* k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6465,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6468,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6663,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:553: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[77]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[77]+1); av2[1]=t4; tp(2,av2);}} /* k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_6468,2,av);} a=C_alloc(12); t2=*((C_word*)lf[77]+1); t3=*((C_word*)lf[9]+1); t4=*((C_word*)lf[89]+1); t5=*((C_word*)lf[90]+1); t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6471,a[2]=t5,a[3]=t4,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); /* eval.scm:556: ##sys#register-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[98]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[98]+1); av2[1]=t6; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[8]; tp(5,av2);}} /* k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_6471,2,av);} a=C_alloc(14); t2=t1; t3=*((C_word*)lf[91]+1); t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6474,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp); /* eval.scm:561: ##sys#module-alias-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[90]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[90]+1); av2[1]=t4; tp(2,av2);}} /* k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(41,c,4)))){ C_save_and_reclaim((void *)f_6474,2,av);} a=C_alloc(41); t2=((C_word*)t0)[2]; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t0)[3]; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=t1; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_TRUE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6479,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=t11,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word)li116),tmp=(C_word)a,a+=12,tmp); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6535,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word)li121),tmp=(C_word)a,a+=8,tmp); t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6631,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li122),tmp=(C_word)a,a+=11,tmp); /* eval.scm:555: ##sys#dynamic-wind */ t15=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=((C_word*)t0)[13]; av2[2]=t12; av2[3]=t13; av2[4]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} /* a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_6479,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6483,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* eval.scm:555: ##sys#current-module1066 */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_6483(2,av2);}}} /* k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_6483,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6486,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* eval.scm:555: ##sys#current-environment1067 */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_6486(2,av2);}}} /* k6484 in k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_6486,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6489,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* eval.scm:555: ##sys#macro-environment1068 */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[4])[1]; f_6489(2,av2);}}} /* k6487 in k6484 in k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_6489,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6492,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* eval.scm:555: ##sys#module-alias-environment1069 */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[5])[1]; f_6492(2,av2);}}} /* k6490 in k6487 in k6484 in k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_6492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_6492,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_6496,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* eval.scm:555: ##sys#current-module1066 */ t4=((C_word*)t0)[13];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6494 in k6490 in k6487 in k6484 in k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_6496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_6496,2,av);} a=C_alloc(15); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6500,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp); /* eval.scm:555: ##sys#current-environment1067 */ t4=((C_word*)t0)[12];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6498 in k6494 in k6490 in k6487 in k6484 in k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in ... */ static void C_ccall f_6500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_6500,2,av);} a=C_alloc(14); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6504,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp); /* eval.scm:555: ##sys#macro-environment1068 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6502 in k6498 in k6494 in k6490 in k6487 in k6484 in k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in ... */ static void C_ccall f_6504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6504,2,av);} a=C_alloc(13); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6508,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp); /* eval.scm:555: ##sys#module-alias-environment1069 */ t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6506 in k6502 in k6498 in k6494 in k6490 in k6487 in k6484 in k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in ... */ static void C_ccall f_6508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_6508,2,av);} a=C_alloc(10); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6511,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* eval.scm:555: ##sys#current-module1066 */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[12]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k6509 in k6506 in k6502 in k6498 in k6494 in k6490 in k6487 in k6484 in k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in ... */ static void C_ccall f_6511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_6511,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* eval.scm:555: ##sys#current-environment1067 */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k6512 in k6509 in k6506 in k6502 in k6498 in k6494 in k6490 in k6487 in k6484 in k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in ... */ static void C_ccall f_6514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6514,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6517,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* eval.scm:555: ##sys#macro-environment1068 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k6515 in k6512 in k6509 in k6506 in k6502 in k6498 in k6494 in k6490 in k6487 in k6484 in k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in ... */ static void C_ccall f_6517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6517,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6520,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:555: ##sys#module-alias-environment1069 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k6518 in k6515 in k6512 in k6509 in k6506 in k6502 in k6498 in k6494 in k6490 in k6487 in k6484 in k6481 in a6478 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in ... */ static void C_ccall f_6520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6520,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a6534 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6535,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6541,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li120),tmp=(C_word)a,a+=8,tmp); /* eval.scm:562: ##sys#with-property-restore */ t3=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a6540 in a6534 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_6541,2,av);} a=C_alloc(10); t2=C_i_cdddr(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6551,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li119),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_6551(t6,t1,t2,C_SCHEME_END_OF_LIST);} /* loop in a6540 in a6534 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_6551(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,7)))){ C_save_and_reclaim_args((void *)trf_6551,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6561,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:566: reverse */ t5=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=C_i_cdr(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6627,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=t2; t8=C_u_i_car(t7); /* eval.scm:581: compile */ t9=((C_word*)((C_word*)t0)[4])[1]; f_3787(t9,t6,t8,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_TRUE);}} /* k6559 in loop in a6540 in a6534 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6561,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6564,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6612,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* eval.scm:567: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[77]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[77]+1); av2[1]=t4; tp(2,av2);}} /* k6562 in k6559 in loop in a6540 in a6534 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_6564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6564,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6567,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6608,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* eval.scm:568: chicken.internal#module-requirement */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[94]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[94]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k6565 in k6562 in k6559 in loop in a6540 in a6534 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_6567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6567,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6568,a[2]=((C_word*)t0)[2],a[3]=((C_word)li118),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_6568 in k6565 in k6562 in k6559 in loop in a6540 in a6534 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in ... */ static void C_ccall f_6568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6568,3,av);} a=C_alloc(7); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6574,a[2]=t4,a[3]=t2,a[4]=((C_word)li117),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_6574(t6,t1,((C_word*)t0)[2]);} /* loop2 */ static void C_fcall f_6574(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6574,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=*((C_word*)lf[92]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_cdr(t2); t4=t3; if(C_truep(C_i_pairp(t4))){ t5=t2; t6=C_u_i_car(t5); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6597,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* eval.scm:574: g1123 */ t8=t6;{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} else{ t5=t2; t6=C_u_i_car(t5); /* eval.scm:574: g1126 */ t7=t6;{ C_word av2[3]; av2[0]=t7; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}}} /* k6595 in loop2 */ static void C_ccall f_6597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6597,2,av);} /* eval.scm:576: loop2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6574(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k6606 in k6562 in k6559 in loop in a6540 in a6534 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_6608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6608,2,av);} /* eval.scm:568: ##sys#provide */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6610 in k6559 in loop in a6540 in a6534 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_6612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6612,2,av);} /* eval.scm:567: ##sys#finalize-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[95]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k6625 in loop in a6540 in a6534 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6627,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* eval.scm:579: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6551(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* a6630 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6631,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6635,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* eval.scm:555: ##sys#current-module1066 */ t3=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k6633 in a6630 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6635,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6638,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* eval.scm:555: ##sys#current-environment1067 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6636 in k6633 in a6630 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6638,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* eval.scm:555: ##sys#macro-environment1068 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6639 in k6636 in k6633 in a6630 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_6641,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6644,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* eval.scm:555: ##sys#module-alias-environment1069 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k6642 in k6639 in k6636 in k6633 in a6630 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_6644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_6644,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6647,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* eval.scm:555: ##sys#current-module1066 */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k6645 in k6642 in k6639 in k6636 in k6633 in a6630 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_6647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_6647,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6650,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* eval.scm:555: ##sys#current-environment1067 */ t3=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k6648 in k6645 in k6642 in k6639 in k6636 in k6633 in a6630 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in ... */ static void C_ccall f_6650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_6650,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6653,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* eval.scm:555: ##sys#macro-environment1068 */ t3=((C_word*)t0)[12];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k6651 in k6648 in k6645 in k6642 in k6639 in k6636 in k6633 in a6630 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in ... */ static void C_ccall f_6653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_6653,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6656,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* eval.scm:555: ##sys#module-alias-environment1069 */ t3=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[8])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k6654 in k6651 in k6648 in k6645 in k6642 in k6639 in k6636 in k6633 in a6630 in k6472 in k6469 in k6466 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in ... */ static void C_ccall f_6656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6656,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]); t6=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k6661 in k6463 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6663,2,av);} if(C_truep(t1)){ /* eval.scm:554: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[62]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[62]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[99]; av2[3]=lf[100]; av2[4]=((C_word*)t0)[3]; tp(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_6468(2,av2);}}} /* g1034 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_6670(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_6670,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_symbolp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6683,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6694,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp); t5=t3; f_6683(t5,( f_6694(t2) ));} else{ t4=t3; f_6683(t4,C_SCHEME_FALSE);}}} /* k6681 in g1034 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_6683(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_6683,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* eval.scm:549: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[62]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[62]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[99]; av2[3]=lf[101]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; tp(6,av2);}}} /* loop in g1034 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static C_word C_fcall f_6694(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} t2=C_i_nullp(t1); if(C_truep(t2)){ return(t2);} else{ t3=C_i_car(t1); if(C_truep(C_i_symbolp(t3))){ t4=t1; t5=C_u_i_cdr(t4); t7=t5; t1=t7; goto loop;} else{ return(C_SCHEME_FALSE);}}} /* map-loop1028 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_6727(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6727,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6752,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* eval.scm:540: g1034 */ t5=((C_word*)t0)[4]; f_6670(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6750 in map-loop1028 in k6454 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6752,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6727(t6,((C_word*)t0)[5],t5);} /* k6778 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_6780,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); /* eval.scm:588: compile */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3787(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} /* k6812 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6814,2,av);} /* eval.scm:595: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3787(t2,((C_word*)t0)[3],lf[105],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} /* a6836 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6837,2,av);} /* eval.scm:600: ##sys#process-require */ t2=*((C_word*)lf[109]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6842 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6843,4,av);} /* eval.scm:601: compile */ t4=((C_word*)((C_word*)t0)[2])[1]; f_3787(t4,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k6857 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6859,2,av);} /* eval.scm:605: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3787(t2,((C_word*)t0)[3],lf[112],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k6898 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_6900,2,av);} /* eval.scm:615: compile */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3787(t2,((C_word*)t0)[3],lf[118],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} /* k6921 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_6923,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); /* eval.scm:618: compile */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3787(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k6934 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_6936(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,0,7)))){ C_save_and_reclaim_args((void *)trf_6936,2,t0,t1);} a=C_alloc(25); if(C_truep(t1)){ /* eval.scm:625: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[62]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[62]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[124]; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[125]); if(C_truep(t2)){ t3=C_i_cdr(((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6956,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* eval.scm:628: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t5; tp(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[4],lf[126]); if(C_truep(t3)){ t4=C_i_cadddr(((C_word*)t0)[3]); /* eval.scm:631: compile */ t5=((C_word*)((C_word*)t0)[9])[1]; f_3787(t5,((C_word*)t0)[2],t4,((C_word*)t0)[6],((C_word*)t0)[10],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[11]);} else{ t4=C_eqp(((C_word*)t0)[4],lf[127]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7000,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); t6=C_i_cdddr(((C_word*)t0)[3]); /* eval.scm:635: chicken.syntax#strip-syntax */ t7=*((C_word*)lf[24]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=C_a_i_cons(&a,2,((C_word*)t0)[12],*((C_word*)lf[131]+1)); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7012,a[2]=t9,a[3]=t7,a[4]=((C_word)li129),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7017,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word)li130),tmp=(C_word)a,a+=8,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7027,a[2]=t7,a[3]=t9,a[4]=((C_word)li131),tmp=(C_word)a,a+=5,tmp); /* eval.scm:645: ##sys#dynamic-wind */ t13=*((C_word*)lf[47]+1);{ C_word av2[5]; av2[0]=t13; av2[1]=((C_word*)t0)[2]; av2[2]=t10; av2[3]=t11; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}}}}} /* k6954 in k6934 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_6956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6956,2,av);} /* eval.scm:628: compile-call */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7336(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* g1211 in k6998 in k6934 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_6982(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,7)))){ C_save_and_reclaim_args((void *)trf_6982,3,t0,t1,t2);} t3=C_i_cadr(t2); /* eval.scm:637: compile */ t4=((C_word*)((C_word*)t0)[2])[1]; f_3787(t4,t1,t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k6998 in k6934 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_7000,2,av);} a=C_alloc(9); t2=C_i_assq(lf[128],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li128),tmp=(C_word)a,a+=9,tmp); /* eval.scm:635: g1211 */ t4=t3; f_6982(t4,((C_word*)t0)[8],t2);} else{ /* eval.scm:639: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[62]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[62]+1); av2[1]=((C_word*)t0)[8]; av2[2]=lf[129]; av2[3]=lf[130]; av2[4]=((C_word*)t0)[9]; tp(5,av2);}}} /* a7011 in k6934 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7012,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[131]+1)); t3=C_mutate((C_word*)lf[131]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a7016 in k6934 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7017,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7025,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* eval.scm:646: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t2; tp(2,av2);}} /* k7023 in a7016 in k6934 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7025,2,av);} /* eval.scm:646: compile-call */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7336(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* a7026 in k6934 in k4104 in k4089 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7027,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[131]+1)); t3=C_mutate((C_word*)lf[131]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7200 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7202,2,av);} /* eval.scm:194: chicken.syntax#expand */ t2=*((C_word*)lf[142]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7210 in k4066 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7212,2,av);} /* eval.scm:650: compile-call */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7336(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k7233 in k4002 in k3792 in compile in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7235,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_4068(2,av2);}} else{ t2=C_i_vectorp(((C_word*)t0)[3]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_4068(2,av2);}} else{ /* eval.scm:188: ##sys#srfi-4-vector? */ t3=*((C_word*)lf[143]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* doloop1229 in a5752 */ static void C_fcall f_7264(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ C_save_and_reclaim_args((void *)trf_7264,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=C_eqp(t2,C_fix(0)); if(C_truep(t6)){ t7=C_a_i_list1(&a,1,t4); t8=C_i_setslot(t5,C_fix(1),t7); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t7=C_fixnum_difference(t2,C_fix(1)); t8=t7; t9=C_fixnum_plus(t3,C_fix(1)); t10=t9; t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7293,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t8,a[5]=t10,a[6]=t4,tmp=(C_word)a,a+=7,tmp); t12=C_eqp(C_SCHEME_END_OF_LIST,t4); if(C_truep(t12)){ /* eval.scm:659: ##sys#error */ t13=*((C_word*)lf[17]+1);{ C_word av2[5]; av2[0]=t13; av2[1]=t11; av2[2]=lf[58]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} else{ t13=C_slot(t4,C_fix(1)); t15=t1; t16=t8; t17=t10; t18=t13; t19=t4; t1=t15; t2=t16; t3=t17; t4=t18; t5=t19; goto loop;}}} /* k7291 in doloop1229 in a5752 */ static void C_ccall f_7293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7293,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_7264(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);} /* loop in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static C_word C_fcall f_7310(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t1))){ t3=t2; return(t3);} else{ if(C_truep(C_i_pairp(t1))){ t3=C_slot(t1,C_fix(1)); t4=C_fixnum_plus(t2,C_fix(1)); t6=t3; t7=t4; t1=t6; t2=t7; goto loop;} else{ return(C_SCHEME_FALSE);}}} /* compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_7336(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,7)))){ C_save_and_reclaim_args((void *)trf_7336,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(13); t6=C_slot(t2,C_fix(0)); t7=t6; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7343,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t4,a[6]=t5,a[7]=t3,a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_closurep(t7))){ t9=t8;{ C_word av2[2]; av2[0]=t9; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7660,a[2]=t7,a[3]=((C_word)li144),tmp=(C_word)a,a+=4,tmp); f_7343(2,av2);}} else{ t9=C_slot(t2,C_fix(0)); /* eval.scm:676: compile */ t10=((C_word*)((C_word*)t0)[3])[1]; f_3787(t10,t8,t9,t3,C_SCHEME_FALSE,t4,t5,C_SCHEME_FALSE);}} /* k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,c,7)))){ C_save_and_reclaim((void *)f_7343,2,av);} a=C_alloc(33); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7310,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp); t6=( f_7310(t4,C_fix(0)) ); t7=((C_word*)t0)[2]; switch(t6){ case C_SCHEME_FALSE: /* eval.scm:681: ##sys#syntax-error/context */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[21]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[147]; av2[3]=((C_word*)t0)[2]; tp(4,av2);} case C_fix(0): t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7365,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t7,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t2,a[8]=((C_word)li134),tmp=(C_word)a,a+=9,tmp); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);} case C_fix(1): t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7384,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t7,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t2,a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); t9=C_slot(t4,C_fix(0)); /* eval.scm:685: compile */ t10=((C_word*)((C_word*)t0)[8])[1]; f_3787(t10,t8,t9,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE); case C_fix(2): t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7412,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t7,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=t4,a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); t9=C_slot(t4,C_fix(0)); /* eval.scm:689: compile */ t10=((C_word*)((C_word*)t0)[8])[1]; f_3787(t10,t8,t9,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE); case C_fix(3): t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7448,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t7,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t2,a[8]=((C_word*)t0)[3],a[9]=t4,a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); t9=C_slot(t4,C_fix(0)); /* eval.scm:694: compile */ t10=((C_word*)((C_word*)t0)[8])[1]; f_3787(t10,t8,t9,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE); case C_fix(4): t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7492,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t7,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=t4,a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); t9=C_slot(t4,C_fix(0)); /* eval.scm:700: compile */ t10=((C_word*)((C_word*)t0)[8])[1]; f_3787(t10,t8,t9,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE); default: t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7539,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word)li139),tmp=(C_word)a,a+=7,tmp); t13=C_i_check_list_2(t4,lf[42]); t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7549,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t7,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7612,a[2]=t10,a[3]=t16,a[4]=t12,a[5]=t11,a[6]=((C_word)li143),tmp=(C_word)a,a+=7,tmp)); t18=((C_word*)t16)[1]; f_7612(t18,t14,t4);}} /* f_7365 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7365,3,av);} a=C_alloc(8); t3=( /* eval.scm:683: emit-trace-info */ f_3757(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2) ); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7372,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7370 */ static void C_ccall f_7372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7372,2,av);} /* eval.scm:682: g1264 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k7382 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7384,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7385,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word)li135),tmp=(C_word)a,a+=10,tmp); t4=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_7385 in k7382 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7385,3,av);} a=C_alloc(10); t3=( /* eval.scm:687: emit-trace-info */ f_3757(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2) ); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7392,a[2]=t1,a[3]=((C_word*)t0)[7],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7390 */ static void C_ccall f_7392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7392,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7399,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7397 in k7390 */ static void C_ccall f_7399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7399,2,av);} /* eval.scm:686: g1269 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k7410 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,7)))){ C_save_and_reclaim((void *)f_7412,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7415,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_u_i_list_ref(((C_word*)t0)[9],C_fix(1)); /* eval.scm:690: compile */ t5=((C_word*)((C_word*)t0)[10])[1]; f_3787(t5,t3,t4,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[6],C_SCHEME_FALSE);} /* k7413 in k7410 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7415,2,av);} a=C_alloc(11); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7416,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t2,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word)li136),tmp=(C_word)a,a+=11,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_7416 in k7413 in k7410 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_7416,3,av);} a=C_alloc(11); t3=( /* eval.scm:692: emit-trace-info */ f_3757(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2) ); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7423,a[2]=t1,a[3]=((C_word*)t0)[7],a[4]=t2,a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7421 */ static void C_ccall f_7423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7423,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7430,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7428 in k7421 */ static void C_ccall f_7430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7430,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7434,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7432 in k7428 in k7421 */ static void C_ccall f_7434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7434,2,av);} /* eval.scm:691: g1275 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} /* k7446 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,7)))){ C_save_and_reclaim((void *)f_7448,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7451,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=C_u_i_list_ref(((C_word*)t0)[9],C_fix(1)); /* eval.scm:695: compile */ t5=((C_word*)((C_word*)t0)[10])[1]; f_3787(t5,t3,t4,((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[3],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k7449 in k7446 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,7)))){ C_save_and_reclaim((void *)f_7451,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7454,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=C_u_i_list_ref(((C_word*)t0)[10],C_fix(2)); /* eval.scm:696: compile */ t5=((C_word*)((C_word*)t0)[11])[1]; f_3787(t5,t3,t4,((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[3],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k7452 in k7449 in k7446 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_7454,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7455,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word)li137),tmp=(C_word)a,a+=12,tmp); t4=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_7455 in k7452 in k7449 in k7446 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_7455,3,av);} a=C_alloc(12); t3=( /* eval.scm:698: emit-trace-info */ f_3757(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2) ); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7462,a[2]=t1,a[3]=((C_word*)t0)[7],a[4]=t2,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],tmp=(C_word)a,a+=7,tmp); t5=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7460 */ static void C_ccall f_7462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7462,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7469,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7467 in k7460 */ static void C_ccall f_7469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7469,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7473,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7471 in k7467 in k7460 */ static void C_ccall f_7473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7473,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7477,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7475 in k7471 in k7467 in k7460 */ static void C_ccall f_7477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7477,2,av);} /* eval.scm:697: g1282 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=t1; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* k7490 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,7)))){ C_save_and_reclaim((void *)f_7492,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=C_u_i_list_ref(((C_word*)t0)[9],C_fix(1)); /* eval.scm:701: compile */ t5=((C_word*)((C_word*)t0)[10])[1]; f_3787(t5,t3,t4,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[6],C_SCHEME_FALSE);} /* k7493 in k7490 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,7)))){ C_save_and_reclaim((void *)f_7495,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); t4=C_u_i_list_ref(((C_word*)t0)[10],C_fix(2)); /* eval.scm:702: compile */ t5=((C_word*)((C_word*)t0)[11])[1]; f_3787(t5,t3,t4,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[6],C_SCHEME_FALSE);} /* k7496 in k7493 in k7490 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,7)))){ C_save_and_reclaim((void *)f_7498,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=C_u_i_list_ref(((C_word*)t0)[11],C_fix(3)); /* eval.scm:703: compile */ t5=((C_word*)((C_word*)t0)[12])[1]; f_3787(t5,t3,t4,((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[6],C_SCHEME_FALSE);} /* k7499 in k7496 in k7493 in k7490 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_7501,2,av);} a=C_alloc(13); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7502,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t2,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word)li138),tmp=(C_word)a,a+=13,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_7502 in k7499 in k7496 in k7493 in k7490 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7502,3,av);} a=C_alloc(13); t3=( /* eval.scm:705: emit-trace-info */ f_3757(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2) ); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7509,a[2]=t1,a[3]=((C_word*)t0)[7],a[4]=t2,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); t5=((C_word*)t0)[11];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7507 */ static void C_ccall f_7509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7509,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7516,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7514 in k7507 */ static void C_ccall f_7516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7516,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7520,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7518 in k7514 in k7507 */ static void C_ccall f_7520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7520,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7524,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7522 in k7518 in k7514 in k7507 */ static void C_ccall f_7524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7524,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7528,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7526 in k7522 in k7518 in k7514 in k7507 */ static void C_ccall f_7528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7528,2,av);} /* eval.scm:704: g1290 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=t1; ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} /* g1302 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_7539(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,7)))){ C_save_and_reclaim_args((void *)trf_7539,3,t0,t1,t2);} /* eval.scm:707: compile */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3787(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k7547 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7549,2,av);} a=C_alloc(10); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7550,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t2,a[8]=((C_word*)t0)[8],a[9]=((C_word)li142),tmp=(C_word)a,a+=10,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_7550 in k7547 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7550,3,av);} a=C_alloc(10); t3=( /* eval.scm:709: emit-trace-info */ f_3757(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2) ); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7561,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7559 */ static void C_ccall f_7561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_7561,2,av);} a=C_alloc(22); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7566,a[2]=((C_word*)t0)[2],a[3]=((C_word)li140),tmp=(C_word)a,a+=4,tmp); t8=C_i_check_list_2(((C_word*)t0)[3],lf[42]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7576,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7578,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li141),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_7578(t13,t9,((C_word*)t0)[3]);} /* g1330 in k7559 */ static void C_fcall f_7566(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_7566,3,t0,t1,t2);} t3=t2;{ C_word av2[3]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7574 in k7559 */ static void C_ccall f_7576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7576,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* map-loop1324 in k7559 */ static void C_fcall f_7578(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7578,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7603,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* eval.scm:710: g1330 */ t5=((C_word*)t0)[4]; f_7566(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7601 in map-loop1324 in k7559 */ static void C_ccall f_7603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7603,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7578(t6,((C_word*)t0)[5],t5);} /* map-loop1296 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_7612(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7612,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7637,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* eval.scm:707: g1302 */ t5=((C_word*)t0)[4]; f_7539(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7635 in map-loop1296 in k7341 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7637,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7612(t6,((C_word*)t0)[5],t5);} /* f_7660 in compile-call in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7660,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7677 in chicken.eval#compile-to-closure in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_7679,2,av);} t2=C_fixnum_greaterp(t1,C_fix(0)); /* eval.scm:712: compile */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3787(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE,t2,((C_word*)t0)[6],((C_word*)t0)[7]);} /* ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7729,3,av);} a=C_alloc(7); t3=*((C_word*)lf[77]+1); t4=*((C_word*)lf[89]+1); t5=*((C_word*)lf[9]+1); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7733,a[2]=t5,a[3]=t4,a[4]=t3,a[5]=t2,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* eval.scm:718: ##sys#meta-macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[148]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[148]+1); av2[1]=t6; tp(2,av2);}} /* k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7733,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7736,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* eval.scm:719: ##sys#current-meta-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[149]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[149]+1); av2[1]=t3; tp(2,av2);}} /* k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){ C_save_and_reclaim((void *)f_7736,2,av);} a=C_alloc(31); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=((C_word*)t0)[2]; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=t1; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_TRUE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7741,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word)li147),tmp=(C_word)a,a+=10,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7784,a[2]=((C_word*)t0)[6],a[3]=((C_word)li150),tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7816,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word)li151),tmp=(C_word)a,a+=9,tmp); /* eval.scm:717: ##sys#dynamic-wind */ t13=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=((C_word*)t0)[7]; av2[2]=t10; av2[3]=t11; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} /* a7740 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_7741,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7745,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* eval.scm:717: ##sys#current-module1364 */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_7745(2,av2);}}} /* k7743 in a7740 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_7745,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7748,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* eval.scm:717: ##sys#macro-environment1365 */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_7748(2,av2);}}} /* k7746 in k7743 in a7740 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_7748,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7751,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* eval.scm:717: ##sys#current-environment1366 */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[4])[1]; f_7751(2,av2);}}} /* k7749 in k7746 in k7743 in a7740 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7751,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7755,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* eval.scm:717: ##sys#current-module1364 */ t4=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k7753 in k7749 in k7746 in k7743 in a7740 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_7755,2,av);} a=C_alloc(12); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7759,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); /* eval.scm:717: ##sys#macro-environment1365 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k7757 in k7753 in k7749 in k7746 in k7743 in a7740 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_7759,2,av);} a=C_alloc(11); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7763,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); /* eval.scm:717: ##sys#current-environment1366 */ t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k7761 in k7757 in k7753 in k7749 in k7746 in k7743 in a7740 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_7763,2,av);} a=C_alloc(8); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7766,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* eval.scm:717: ##sys#current-module1364 */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k7764 in k7761 in k7757 in k7753 in k7749 in k7746 in k7743 in a7740 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_7766,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7769,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* eval.scm:717: ##sys#macro-environment1365 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k7767 in k7764 in k7761 in k7757 in k7753 in k7749 in k7746 in k7743 in a7740 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_7769,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7772,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:717: ##sys#current-environment1366 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k7770 in k7767 in k7764 in k7761 in k7757 in k7753 in k7749 in k7746 in k7743 in a7740 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7772,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a7783 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_7784,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7790,a[2]=((C_word*)t0)[2],a[3]=((C_word)li148),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7799,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp); /* eval.scm:720: scheme#dynamic-wind */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=*((C_word*)lf[151]+1); av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* a7789 in a7783 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_7790,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7794,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* eval.scm:723: compile-to-closure */ f_3572(t2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST,C_a_i_list(&a,4,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_TRUE));} /* k7792 in a7789 in a7783 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7794,2,av);} /* eval.scm:722: g1398 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a7798 in a7783 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7799,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7803,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7814,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* eval.scm:735: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[9]+1); av2[1]=t3; tp(2,av2);}} /* k7801 in a7798 in a7783 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7803,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7810,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:736: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[89]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[89]+1); av2[1]=t2; tp(2,av2);}} /* k7808 in k7801 in a7798 in a7783 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7810,2,av);} /* eval.scm:736: ##sys#meta-macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[148]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[148]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k7812 in a7798 in a7783 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7814,2,av);} /* eval.scm:735: ##sys#current-meta-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[149]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[149]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* a7815 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7816,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7820,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* eval.scm:717: ##sys#current-module1364 */ t3=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k7818 in a7815 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7820,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7823,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* eval.scm:717: ##sys#macro-environment1365 */ t4=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k7821 in k7818 in a7815 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_7823,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* eval.scm:717: ##sys#current-environment1366 */ t4=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k7824 in k7821 in k7818 in a7815 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_7826,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7829,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* eval.scm:717: ##sys#current-module1364 */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k7827 in k7824 in k7821 in k7818 in a7815 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_7829,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7832,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* eval.scm:717: ##sys#macro-environment1365 */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k7830 in k7827 in k7824 in k7821 in k7818 in a7815 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_7832,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* eval.scm:717: ##sys#current-environment1366 */ t3=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k7833 in k7830 in k7827 in k7824 in k7821 in k7818 in a7815 in k7734 in k7731 in ##sys#eval/meta in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7835,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_7842,2,av);} a=C_alloc(15); t2=C_mutate((C_word*)lf[152]+1 /* (set! chicken.eval#eval-handler ...) */,t1); t3=C_mutate((C_word*)lf[153]+1 /* (set! scheme#eval ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7844,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[154]+1 /* (set! chicken.eval#module-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7854,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7861,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11466,a[2]=((C_word)li264),tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11534,a[2]=((C_word)li265),tmp=(C_word)a,a+=3,tmp); /* eval.scm:775: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t5; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* scheme#eval in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_7844,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7852,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* eval.scm:765: eval-handler */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[152]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[152]+1); av2[1]=t4; tp(2,av2);}} /* k7850 in scheme#eval in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7852,2,av);}{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; C_apply(5,av2);}} /* chicken.eval#module-environment in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7854,3,av);} /* eval.scm:770: chicken.module#module-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[155]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[155]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} /* k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_7861,2,av);} a=C_alloc(18); t2=C_mutate((C_word*)lf[60]+1 /* (set! ##sys#decompose-lambda-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7863,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp)); t3=C_a_i_record4(&a,4,lf[158],lf[159],C_SCHEME_FALSE,C_SCHEME_FALSE); t4=t3; t5=C_mutate((C_word*)lf[160]+1 /* (set! scheme#interaction-environment ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7948,a[2]=t4,a[3]=((C_word)li158),tmp=(C_word)a,a+=4,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7952,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11450,a[2]=((C_word)li258),tmp=(C_word)a,a+=3,tmp); /* eval.scm:822: ##sys#register-record-printer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[364]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[364]+1); av2[1]=t6; av2[2]=lf[365]; av2[3]=t7; tp(4,av2);}} /* ##sys#decompose-lambda-list in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_7863,4,av);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7866,a[2]=t2,a[3]=((C_word)li155),tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7876,a[2]=t3,a[3]=t4,a[4]=t6,a[5]=((C_word)li156),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_7876(t8,t1,t2,C_SCHEME_END_OF_LIST,C_fix(0));} /* err in ##sys#decompose-lambda-list in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_7866(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_7866,2,t0,t1);} t2=C_set_block_item(lf[156] /* ##sys#syntax-error-culprit */,0,C_SCHEME_FALSE); /* eval.scm:807: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[62]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[62]+1); av2[1]=t1; av2[2]=lf[157]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* loop in ##sys#decompose-lambda-list in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_7876(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_7876,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7890,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* eval.scm:810: reverse */ t7=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=C_blockp(t2); if(C_truep(C_i_not(t6))){ /* eval.scm:811: err */ t7=((C_word*)t0)[3]; f_7866(t7,t1);} else{ if(C_truep(C_symbolp(t2))){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7909,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t8=C_a_i_cons(&a,2,t2,t3); /* eval.scm:812: reverse */ t9=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t7=C_pairp(t2); if(C_truep(C_i_not(t7))){ /* eval.scm:813: err */ t8=((C_word*)t0)[3]; f_7866(t8,t1);} else{ t8=C_slot(t2,C_fix(1)); t9=C_slot(t2,C_fix(0)); t10=C_a_i_cons(&a,2,t9,t3); t11=C_fixnum_plus(t4,C_fix(1)); /* eval.scm:814: loop */ t13=t1; t14=t8; t15=t10; t16=t11; t1=t13; t2=t14; t3=t15; t4=t16; goto loop;}}}}} /* k7888 in loop in ##sys#decompose-lambda-list in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7890,2,av);} /* eval.scm:810: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* k7907 in loop in ##sys#decompose-lambda-list in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7909,2,av);} /* eval.scm:812: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* scheme#interaction-environment in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7948,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7952,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7955,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:827: chicken.module#module-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[155]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[155]+1); av2[1]=t2; av2[2]=lf[359]; av2[3]=lf[360]; tp(4,av2);}} /* k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7955,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7958,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:828: chicken.module#module-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[155]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[155]+1); av2[1]=t3; av2[2]=lf[357]; av2[3]=lf[358]; tp(4,av2);}} /* k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7958,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7961,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:829: chicken.module#module-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[155]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[155]+1); av2[1]=t3; av2[2]=lf[355]; av2[3]=lf[356]; tp(4,av2);}} /* k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7961,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7964,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* eval.scm:830: chicken.module#module-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[155]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[155]+1); av2[1]=t3; av2[2]=lf[353]; av2[3]=lf[354]; tp(4,av2);}} /* k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_7964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7964,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7966,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11444,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=t3,tmp=(C_word)a,a+=8,tmp); t5=C_slot(((C_word*)t0)[2],C_fix(2)); /* eval.scm:854: strip */ f_7966(t4,t5);} /* strip in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_7966(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7966,2,t1,t2);} a=C_alloc(6); t3=C_i_check_list_2(t2,lf[161]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7975,a[2]=t5,a[3]=((C_word)li159),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7975(t7,t1,t2);} /* foldr1523 in strip in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_7975(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7975,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8006,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t2,C_fix(1)); t8=t5; t9=t6; t1=t8; t2=t9; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8004 in foldr1523 in strip in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_8006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8006,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_i_car(((C_word*)t0)[3]); t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep((C_truep(C_eqp(t3,lf[162]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[163]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[164]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[165]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[86]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[166]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[167]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[168]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[169]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[170]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[99]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[171]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[172]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[173]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))))))))))?t1:C_a_i_cons(&a,2,((C_word*)t0)[3],t1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#scheme-report-environment in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_8024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8024,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8028,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* eval.scm:860: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[177]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[177]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[175]; tp(4,av2);}} /* k8026 in scheme#scheme-report-environment in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_8028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8028,2,av);} t2=((C_word*)t0)[2]; switch(t2){ case C_fix(4): t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} case C_fix(5): t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} default: /* eval.scm:865: ##sys#error */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[175]; av2[3]=lf[176]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* scheme#null-environment in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_8049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8049,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8053,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* eval.scm:870: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[177]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[177]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[179]; tp(4,av2);}} /* k8051 in scheme#null-environment in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_8053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8053,2,av);} t2=((C_word*)t0)[2]; switch(t2){ case C_fix(4): t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} case C_fix(5): t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} default: /* eval.scm:875: ##sys#error */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[179]; av2[3]=lf[180]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* loop in chicken.load#provided? in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_fcall f_8449(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8449,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8471,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); /* mini-srfi-1.scm:82: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k8469 in loop in chicken.load#provided? in k10047 in k10038 in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_8471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8471,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:83: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_8449(t4,((C_word*)t0)[2],t3);}} /* chicken.load#any in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_8477(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_8477,3,t1,t2,t3);} a=C_alloc(7); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8483,a[2]=t5,a[3]=t2,a[4]=((C_word)li163),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_8483(t7,t1,t3);} /* loop in chicken.load#any in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_8483(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8483,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8493,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:88: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* k8491 in loop in chicken.load#any in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_8493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8493,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:89: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_8483(t4,((C_word*)t0)[2],t3);}} /* k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_9362(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_9362,2,t0,t1);} a=C_alloc(3); t2=C_mutate(&lf[189] /* (set! chicken.load#load-library-extension ...) */,t1); t3=C_mutate((C_word*)lf[190]+1 /* (set! ##sys#load-dynamic-extension ...) */,lf[185]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9368,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:944: chicken.platform#software-version */ t5=*((C_word*)lf[343]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_9368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_9368,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9371,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_eqp(t1,lf[340]); if(C_truep(t3)){ t4=t2; f_9371(t4,lf[341]);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11373,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11377,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_NAME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_9371(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_9371,2,t0,t1);} a=C_alloc(15); t2=C_mutate(&lf[191] /* (set! chicken.load#default-dynamic-load-libraries ...) */,t1); t3=C_mutate((C_word*)lf[93]+1 /* (set! ##sys#provide ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9373,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[192]+1 /* (set! ##sys#provided? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9376,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp)); t5=(C_truep(*((C_word*)lf[193]+1))?lf[194]:lf[195]); t6=C_mutate(&lf[196] /* (set! chicken.load#path-separators ...) */,t5); t7=C_mutate(&lf[197] /* (set! chicken.load#path-separator-index/right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9383,a[2]=((C_word)li168),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate(&lf[198] /* (set! chicken.load#make-relative-pathname ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9418,a[2]=((C_word)li169),tmp=(C_word)a,a+=3,tmp)); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9461,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t10=C_i_debug_modep(); /* eval.scm:979: chicken.base#make-parameter */ t11=*((C_word*)lf[337]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* ##sys#provide in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_9373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_9373,3,av);} a=C_alloc(8); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_provide(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#provided? in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_9376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9376,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_providedp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.load#path-separator-index/right in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_9383(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_9383,2,t1,t2);} a=C_alloc(4); t3=C_block_size(t2); t4=C_fixnum_difference(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9393,a[2]=t2,a[3]=((C_word)li167),tmp=(C_word)a,a+=4,tmp); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=( f_9393(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* loop in chicken.load#path-separator-index/right in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static C_word C_fcall f_9393(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} t2=C_subchar(((C_word*)t0)[2],t1); t3=lf[196]; if(C_truep(C_u_i_memq(t2,lf[196]))){ t4=t1; return(t4);} else{ if(C_truep(C_fixnum_lessp(C_fix(0),t1))){ t4=C_fixnum_difference(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ return(C_SCHEME_FALSE);}}} /* chicken.load#make-relative-pathname in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_9418(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9418,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9422,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_stringp(t2))){ t5=C_block_size(t3); if(C_truep(C_i_fixnum_positivep(t5))){ t6=C_subchar(t3,C_fix(0)); t7=lf[196]; t8=C_u_i_memq(t6,lf[196]); if(C_truep(C_i_not(t8))){ /* eval.scm:973: path-separator-index/right */ f_9383(t4,t2);} else{ t9=t4;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_9422(2,av2);}}} else{ t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_9422(2,av2);}}} else{ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_9422(2,av2);}}} /* k9420 in chicken.load#make-relative-pathname in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_9422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9422,2,av);} a=C_alloc(4); if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9435,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:974: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t1; tp(5,av2);}}} /* k9433 in k9420 in chicken.load#make-relative-pathname in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_9435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9435,2,av);} /* eval.scm:974: scheme#string-append */ t2=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[200]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_9461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,5)))){ C_save_and_reclaim((void *)f_9461,2,av);} a=C_alloc(25); t2=C_mutate((C_word*)lf[202]+1 /* (set! chicken.load#load-verbose ...) */,t1); t3=C_set_block_item(lf[203] /* ##sys#current-load-filename */,0,C_SCHEME_FALSE); t4=C_set_block_item(lf[204] /* ##sys#dload-disabled */,0,C_SCHEME_FALSE); t5=C_mutate((C_word*)lf[205]+1 /* (set! chicken.load#set-dynamic-load-mode! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9465,a[2]=((C_word)li171),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate(&lf[214] /* (set! chicken.load#c-toplevel ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9565,a[2]=((C_word)li172),tmp=(C_word)a,a+=3,tmp)); t7=*((C_word*)lf[153]+1); t8=C_mutate(&lf[221] /* (set! chicken.load#load/internal ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9579,a[2]=t7,a[3]=((C_word)li187),tmp=(C_word)a,a+=4,tmp)); t9=C_mutate((C_word*)lf[250]+1 /* (set! scheme#load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9981,a[2]=((C_word)li188),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[251]+1 /* (set! chicken.load#load-relative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9996,a[2]=((C_word)li189),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[252]+1 /* (set! chicken.load#load-noisily ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10014,a[2]=((C_word)li193),tmp=(C_word)a,a+=3,tmp)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10040,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_mk_bool(C_USES_SONAME))){ t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11361,a[2]=t12,tmp=(C_word)a,a+=3,tmp); t14=C_fix((C_word)C_BINARY_VERSION); /* ##sys#fixnum->string */ t15=*((C_word*)lf[339]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=t13; av2[2]=t14; av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t13=t12;{ C_word *av2=av; av2[0]=t13; av2[1]=lf[189]; f_10040(2,av2);}}} /* chicken.load#set-dynamic-load-mode! in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_9465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_9465,3,av);} a=C_alloc(20); t3=C_i_pairp(t2); t4=(C_truep(t3)?t2:C_a_i_list1(&a,1,t2)); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_TRUE; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9472,a[2]=t1,a[3]=t6,a[4]=t8,tmp=(C_word)a,a+=5,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9477,a[2]=t11,a[3]=t8,a[4]=t6,a[5]=((C_word)li170),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_9477(t13,t9,t4);} /* k9470 in chicken.load#set-dynamic-load-mode! in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_9472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9472,2,av);} /* eval.scm:999: ##sys#set-dlopen-flags! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[206]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[206]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)((C_word*)t0)[4])[1]; tp(4,av2);}} /* loop in chicken.load#set-dynamic-load-mode! in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_fcall f_9477(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_9477,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9490,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_eqp(t3,lf[207]); if(C_truep(t5)){ t6=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); t7=C_slot(t2,C_fix(1)); /* eval.scm:998: loop */ t12=t1; t13=t7; t1=t12; t2=t13; goto loop;} else{ t6=C_eqp(t3,lf[208]); if(C_truep(t6)){ t7=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_FALSE); t8=C_slot(t2,C_fix(1)); /* eval.scm:998: loop */ t12=t1; t13=t8; t1=t12; t2=t13; goto loop;} else{ t7=C_eqp(t3,lf[209]); if(C_truep(t7)){ t8=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_FALSE); t9=C_slot(t2,C_fix(1)); /* eval.scm:998: loop */ t12=t1; t13=t9; t1=t12; t2=t13; goto loop;} else{ t8=C_eqp(t3,lf[210]); if(C_truep(t8)){ t9=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_TRUE); t10=C_slot(t2,C_fix(1)); /* eval.scm:998: loop */ t12=t1; t13=t10; t1=t12; t2=t13; goto loop;} else{ t9=C_slot(t2,C_fix(0)); /* eval.scm:997: ##sys#signal-hook */ t10=*((C_word*)lf[211]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t4; av2[2]=lf[212]; av2[3]=lf[213]; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9488 in loop in chicken.load#set-dynamic-load-mode! in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_9490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9490,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* eval.scm:998: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9477(t3,((C_word*)t0)[4],t2);} /* k9557 in chicken.load#c-toplevel in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_9559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9559,2,av);} /* eval.scm:1004: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[216]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[219]; tp(4,av2);}} /* chicken.load#c-toplevel in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_9565(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_9565,3,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9573,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9577,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=t5; if(C_truep(C_i_not(t2))){ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=lf[218]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9559,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_slot(t2,C_fix(1)); /* eval.scm:1005: chicken.internal#string->c-identifier */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[220]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[220]+1); av2[1]=t7; av2[2]=t8; tp(3,av2);}}} /* k9571 in chicken.load#c-toplevel in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_9573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9573,2,av);} /* eval.scm:1009: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[215]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[215]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k9575 in chicken.load#c-toplevel in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_9577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9577,2,av);} /* eval.scm:1009: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[216]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[217]; av2[3]=t1; tp(4,av2);}} /* chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_fcall f_9579(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){ C_save_and_reclaim_args((void *)trf_9579,5,t0,t1,t2,t3,t4);} a=C_alloc(23); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_SCHEME_FALSE:C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=C_i_nullp(t14); t16=(C_truep(t15)?C_SCHEME_FALSE:C_i_car(t14)); t17=t16; t18=C_i_nullp(t14); t19=(C_truep(t18)?C_SCHEME_END_OF_LIST:C_i_cdr(t14)); t20=C_i_nullp(t19); t21=(C_truep(t20)?C_SCHEME_FALSE:C_i_car(t19)); t22=t21; t23=C_i_nullp(t19); t24=(C_truep(t23)?C_SCHEME_END_OF_LIST:C_i_cdr(t19)); t25=C_SCHEME_UNDEFINED; t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); t27=C_SCHEME_UNDEFINED; t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp); t29=C_SCHEME_UNDEFINED; t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp); t31=C_SCHEME_UNDEFINED; t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp); t33=(C_truep(t3)?t3:((C_word*)t0)[2]); t34=C_set_block_item(t26,0,t33); t35=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9622,a[2]=t22,a[3]=((C_word)li173),tmp=(C_word)a,a+=4,tmp)); t36=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9657,a[2]=t30,a[3]=t32,a[4]=t1,a[5]=t12,a[6]=t26,a[7]=t7,a[8]=t17,a[9]=t2,a[10]=t28,tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_not(*((C_word*)lf[204]+1)))){ /* eval.scm:1039: chicken.platform#feature? */ t37=*((C_word*)lf[248]+1);{ C_word av2[3]; av2[0]=t37; av2[1]=t36; av2[2]=lf[249]; ((C_proc)(void*)(*((C_word*)t37+1)))(3,av2);}} else{ t37=t36;{ C_word av2[2]; av2[0]=t37; av2[1]=C_SCHEME_FALSE; f_9657(2,av2);}}} /* k9615 */ static void C_ccall f_9617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9617,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* eval.scm:1029: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[216]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[224]; av2[3]=((C_word*)t0)[3]; tp(4,av2);}}} /* f_9622 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_fcall f_9622(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_9622,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9626,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9653,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=t2; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9617,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1027: path-separator-index/right */ f_9383(t7,t6);} /* k9624 */ static void C_ccall f_9626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_9626,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9629,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9649,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1033: c-toplevel */ f_9565(t4,((C_word*)t0)[3],lf[223]);} /* k9627 in k9624 */ static void C_ccall f_9629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9629,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9645,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1035: c-toplevel */ f_9565(t2,C_SCHEME_FALSE,lf[223]);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* k9643 in k9627 in k9624 */ static void C_ccall f_9645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9645,2,av);} /* eval.scm:1035: ##sys#dload */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[222]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[222]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k9647 in k9624 */ static void C_ccall f_9649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9649,2,av);} /* eval.scm:1033: ##sys#dload */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[222]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[222]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k9651 */ static void C_ccall f_9653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9653,2,av);} /* eval.scm:1032: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[215]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[215]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[223]; tp(4,av2);}} /* k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 in ... */ static void C_ccall f_9657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_9657,2,av);} a=C_alloc(16); t2=C_set_block_item(((C_word*)t0)[2],0,t1); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9661,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9876,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1042: chicken.base#port? */ t5=*((C_word*)lf[247]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_9661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_9661,2,av);} a=C_alloc(15); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9664,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9873,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1053: load-verbose */ t5=*((C_word*)lf[202]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_9664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_9664,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9667,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ if(C_truep(((C_word*)((C_word*)t0)[9])[1])){ /* eval.scm:1059: dload */ t3=((C_word*)((C_word*)t0)[10])[1]; f_9622(t3,t2,((C_word*)((C_word*)t0)[3])[1]);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_9667(2,av2);}}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_9667(2,av2);}}} /* k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_9667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_9667,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9670,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9675,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word)li186),tmp=(C_word)a,a+=9,tmp); t4=t3; f_9675(t4,t2);}} /* k9668 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_9670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9670,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_fcall f_9675(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(39,0,4)))){ C_save_and_reclaim_args((void *)trf_9675,2,t0,t1);} a=C_alloc(39); t2=C_SCHEME_TRUE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=((C_word*)((C_word*)t0)[2])[1]; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)((C_word*)t0)[2])[1]; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_FALSE; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_FALSE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_FALSE; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9681,a[2]=t9,a[3]=t11,a[4]=t13,a[5]=t3,a[6]=t5,a[7]=t7,a[8]=((C_word)li174),tmp=(C_word)a,a+=9,tmp); t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9690,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],a[8]=((C_word)li184),tmp=(C_word)a,a+=9,tmp); t16=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9842,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=t11,a[7]=t13,a[8]=((C_word)li185),tmp=(C_word)a,a+=9,tmp); /* eval.scm:1062: ##sys#dynamic-wind */ t17=*((C_word*)lf[47]+1);{ C_word av2[5]; av2[0]=t17; av2[1]=t1; av2[2]=t14; av2[3]=t15; av2[4]=t16; ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} /* a9680 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_9681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9681,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[225]+1)); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[203]+1)); t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,*((C_word*)lf[226]+1)); t5=C_mutate((C_word*)lf[225]+1 /* (set! ##sys#read-error-with-line-number ...) */,((C_word*)((C_word*)t0)[5])[1]); t6=C_mutate((C_word*)lf[203]+1 /* (set! ##sys#current-load-filename ...) */,((C_word*)((C_word*)t0)[6])[1]); t7=C_mutate((C_word*)lf[226]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[7])[1]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_9690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_9690,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9694,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* eval.scm:1065: open-input-file */ t3=*((C_word*)lf[237]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[7]; f_9694(2,av2);}}} /* k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_9694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_9694,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9699,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9702,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word)li182),tmp=(C_word)a,a+=9,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9833,a[2]=t2,a[3]=((C_word)li183),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1066: ##sys#dynamic-wind */ t6=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[7]; av2[2]=t3; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* a9698 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in ... */ static void C_ccall f_9699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9699,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in ... */ static void C_ccall f_9702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_9702,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9706,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* eval.scm:1069: scheme#peek-char */ t3=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in ... */ static void C_ccall f_9706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_9706,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9709,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_eqp(t1,C_make_character(127)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9824,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9828,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[234]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_dlerror); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_9709(2,av2);}}} /* k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in ... */ static void C_ccall f_9709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_9709,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9712,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* eval.scm:1077: read */ t3=*((C_word*)lf[227]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in ... */ static void C_ccall f_9712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_9712,2,av);} a=C_alloc(11); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9717,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word)li181),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_9717(t5,((C_word*)t0)[7],t1);} /* doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in ... */ static void C_fcall f_9717(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_9717,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_eofp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9727,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t2,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[7])){ /* eval.scm:1080: printer */ t4=((C_word*)t0)[7];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_9727(2,av2);}}}} /* k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in ... */ static void C_ccall f_9727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_9727,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9730,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9739,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word)li178),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9773,a[2]=((C_word*)t0)[8],a[3]=((C_word)li180),tmp=(C_word)a,a+=4,tmp); /* eval.scm:1081: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* k9728 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in ... */ static void C_ccall f_9730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9730,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9737,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1078: read */ t3=*((C_word*)lf[227]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9735 in k9728 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in ... */ static void C_ccall f_9737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9737,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_9717(t2,((C_word*)t0)[3],t1);} /* a9738 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in ... */ static void C_ccall f_9739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9739,2,av);} a=C_alloc(5); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9746,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* eval.scm:1084: ##sys#start-timer */ t3=*((C_word*)lf[230]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* eval.scm:1085: evalproc */ t2=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}} /* k9744 in a9738 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in ... */ static void C_ccall f_9746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_9746,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9751,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li176),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9757,a[2]=((C_word)li177),tmp=(C_word)a,a+=3,tmp); /* eval.scm:1084: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a9750 in k9744 in a9738 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in ... */ static void C_ccall f_9751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9751,2,av);} /* eval.scm:1084: evalproc */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a9756 in k9744 in a9738 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in ... */ static void C_ccall f_9757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +7,c,2)))){ C_save_and_reclaim((void*)f_9757,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+7); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9761,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9768,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1084: ##sys#stop-timer */ t5=*((C_word*)lf[229]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k9759 in a9756 in k9744 in a9738 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in ... */ static void C_ccall f_9761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9761,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; C_apply_values(3,av2);}} /* k9766 in a9756 in k9744 in a9738 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in ... */ static void C_ccall f_9768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9768,2,av);} /* eval.scm:1084: ##sys#display-times */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[228]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* a9772 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in ... */ static void C_ccall f_9773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_9773,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; if(C_truep(((C_word*)t0)[2])){ t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9790,a[2]=t4,a[3]=((C_word)li179),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_9790(t6,t1,t2);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9780 in for-each-loop2307 in a9772 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in ... */ static void C_ccall f_9782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9782,2,av);} /* eval.scm:1091: newline */ t2=*((C_word*)lf[231]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop2307 in a9772 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in ... */ static void C_fcall f_9790(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_9790,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9800,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9782,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* eval.scm:1090: write */ t7=*((C_word*)lf[14]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9798 in for-each-loop2307 in a9772 in k9725 in doloop2297 in k9710 in k9707 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in ... */ static void C_ccall f_9800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9800,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9790(t3,((C_word*)t0)[4],t2);} /* k9822 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in ... */ static void C_ccall f_9824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9824,2,av);} /* eval.scm:1071: ##sys#error */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[223]; av2[3]=t1; av2[4]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k9826 in k9704 in a9701 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in ... */ static void C_ccall f_9828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9828,2,av);} if(C_truep(t1)){ t2=t1; /* eval.scm:1073: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[216]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[232]; av2[3]=t2; tp(4,av2);}} else{ /* eval.scm:1073: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[216]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[232]; av2[3]=lf[233]; tp(4,av2);}}} /* a9832 in k9692 in a9689 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in ... */ static void C_ccall f_9833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9833,2,av);} /* eval.scm:1094: close-input-port */ t2=*((C_word*)lf[236]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a9841 in a9674 in k9665 in k9662 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_9842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9842,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[225]+1)); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[203]+1)); t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,*((C_word*)lf[226]+1)); t5=C_mutate((C_word*)lf[225]+1 /* (set! ##sys#read-error-with-line-number ...) */,((C_word*)((C_word*)t0)[5])[1]); t6=C_mutate((C_word*)lf[203]+1 /* (set! ##sys#current-load-filename ...) */,((C_word*)((C_word*)t0)[6])[1]); t7=C_mutate((C_word*)lf[226]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[7])[1]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k9859 in k9871 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_9861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9861,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9864,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1055: display */ t3=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9862 in k9859 in k9871 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_9864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9864,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9867,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* eval.scm:1056: display */ t3=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[240]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9865 in k9862 in k9859 in k9871 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_9867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9867,2,av);} /* eval.scm:1057: chicken.base#flush-output */ t2=*((C_word*)lf[238]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9871 in k9659 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_9873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9873,2,av);} a=C_alloc(4); t2=(C_truep(t1)?((C_word*)((C_word*)t0)[2])[1]:C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9861,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1054: display */ t4=*((C_word*)lf[239]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[241]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_9664(2,av2);}}} /* k9874 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in ... */ static void C_ccall f_9876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_9876,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_9661(2,av2);}} else{ t2=C_i_stringp(((C_word*)t0)[3]); if(C_truep(C_i_not(t2))){ /* eval.scm:1044: ##sys#signal-hook */ t3=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[242]; av2[3]=lf[223]; av2[4]=lf[243]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9891,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1045: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[246]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[246]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=lf[223]; tp(6,av2);}}}} /* k9889 in k9874 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in ... */ static void C_ccall f_9891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_9891,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_9661(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9894,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1046: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[216]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[190]+1); tp(4,av2);}}} /* k9892 in k9889 in k9874 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in ... */ static void C_ccall f_9894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_9894,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9897,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9921,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1047: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[246]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[246]+1); av2[1]=t4; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=lf[223]; tp(6,av2);}} else{ t4=t3; f_9897(t4,C_SCHEME_FALSE);}} /* k9895 in k9892 in k9889 in k9874 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_fcall f_9897(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_9897,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; f_9661(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9903,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* eval.scm:1048: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[216]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[216]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[187]; tp(4,av2);}}} /* k9901 in k9895 in k9892 in k9889 in k9874 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in ... */ static void C_ccall f_9903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_9903,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9915,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* eval.scm:1049: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[246]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[246]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=lf[223]; tp(6,av2);}} /* k9913 in k9901 in k9895 in k9892 in k9889 in k9874 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in ... */ static void C_ccall f_9915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9915,2,av);} if(C_truep(t1)){ if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; f_9661(2,av2);}} else{ /* eval.scm:1051: ##sys#signal-hook */ t2=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[244]; av2[3]=lf[223]; av2[4]=lf[245]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} else{ /* eval.scm:1051: ##sys#signal-hook */ t2=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[244]; av2[3]=lf[223]; av2[4]=lf[245]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k9919 in k9892 in k9889 in k9874 in k9655 in chicken.load#load/internal in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in ... */ static void C_ccall f_9921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9921,2,av);} t2=((C_word*)t0)[2]; f_9897(t2,(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE));} /* scheme#load in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_9981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_9981,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; if(C_truep(C_i_nullp(t3))){ /* eval.scm:1099: load/internal */ t4=lf[221]; f_9579(t4,t1,t2,C_SCHEME_FALSE,C_SCHEME_END_OF_LIST);} else{ t4=C_i_car(t3); /* eval.scm:1099: load/internal */ t5=lf[221]; f_9579(t5,t1,t2,t4,C_SCHEME_END_OF_LIST);}} /* chicken.load#load-relative in k9459 in k9369 in k9366 in k9360 in k11418 in k11426 in k11434 in k11442 in k7962 in k7959 in k7956 in k7953 in k7950 in k7859 in k7840 in k3568 in k3524 in k3521 in k3518 in k3515 */ static void C_ccall f_9996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_9996,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10003,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* eval.scm:1102: make-relative-pathname */ f_9418(t7,*((C_word*)lf[203]+1),t2);} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_eval_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("eval")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_eval_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2430))){ C_save(t1); C_rereclaim2(2430*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,370); lf[0]=C_h_intern(&lf[0],4, C_text("eval")); lf[1]=C_h_intern(&lf[1],13, C_text("chicken.eval#")); lf[2]=C_h_intern(&lf[2],21, C_text("##sys#unbound-in-eval")); lf[3]=C_h_intern(&lf[3],22, C_text("##sys#eval-debug-level")); lf[5]=C_h_intern(&lf[5],9, C_text("##sys#get")); lf[6]=C_h_intern(&lf[6],18, C_text("##core#macro-alias")); lf[7]=C_h_intern(&lf[7],13, C_text("scheme#values")); lf[8]=C_h_intern(&lf[8],14, C_text("scheme#symbol\077")); lf[9]=C_h_intern(&lf[9],25, C_text("##sys#current-environment")); lf[10]=C_h_intern(&lf[10],9, C_text("frameinfo")); lf[11]=C_h_intern(&lf[11],20, C_text("##sys#current-thread")); lf[12]=C_h_intern(&lf[12],22, C_text("##sys#make-lambda-info")); lf[13]=C_h_intern(&lf[13],30, C_text("chicken.base#get-output-string")); lf[14]=C_h_intern(&lf[14],12, C_text("scheme#write")); lf[15]=C_h_intern(&lf[15],31, C_text("chicken.base#open-output-string")); lf[16]=C_h_intern(&lf[16],21, C_text("##sys#decorate-lambda")); lf[17]=C_h_intern(&lf[17],11, C_text("##sys#error")); lf[18]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020unbound variable")); lf[19]=C_h_intern(&lf[19],34, C_text("##sys#symbol-has-toplevel-binding\077")); lf[20]=C_h_intern(&lf[20],23, C_text("##sys#alias-global-hook")); lf[21]=C_h_intern(&lf[21],26, C_text("##sys#syntax-error/context")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031illegal non-atomic object")); lf[23]=C_h_intern(&lf[23],12, C_text("##core#quote")); lf[24]=C_h_intern(&lf[24],27, C_text("chicken.syntax#strip-syntax")); lf[25]=C_h_intern(&lf[25],13, C_text("##core#syntax")); lf[26]=C_h_intern(&lf[26],12, C_text("##core#check")); lf[27]=C_h_intern(&lf[27],16, C_text("##core#immutable")); lf[28]=C_h_intern(&lf[28],16, C_text("##core#undefined")); lf[29]=C_h_intern(&lf[29],9, C_text("##core#if")); lf[30]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[31]=C_h_intern(&lf[31],12, C_text("##core#begin")); lf[32]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[33]=C_h_intern(&lf[33],33, C_text("##core#ensure-toplevel-definition")); lf[34]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[35]=C_decode_literal(C_heaptop,C_text("\376B\000\0008toplevel definition in non-toplevel context for variable")); lf[36]=C_h_intern(&lf[36],11, C_text("##core#set!")); lf[37]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032environment is not mutable")); lf[38]=C_h_intern(&lf[38],21, C_text("##sys#notices-enabled")); lf[39]=C_h_intern(&lf[39],12, C_text("##sys#notice")); lf[40]=C_decode_literal(C_heaptop,C_text("\376B\000\000$assignment to imported value binding")); lf[41]=C_h_intern(&lf[41],10, C_text("##core#let")); lf[42]=C_h_intern(&lf[42],3, C_text("map")); lf[43]=C_h_intern(&lf[43],12, C_text("scheme#cadar")); lf[44]=C_h_intern(&lf[44],13, C_text("scheme#cadadr")); lf[45]=C_h_intern(&lf[45],17, C_text("##sys#make-vector")); lf[46]=C_h_intern(&lf[46],23, C_text("##sys#canonicalize-body")); lf[47]=C_h_intern(&lf[47],18, C_text("##sys#dynamic-wind")); lf[48]=C_h_intern(&lf[48],15, C_text("##sys#extend-se")); lf[49]=C_h_intern(&lf[49],19, C_text("chicken.base#gensym")); lf[50]=C_h_intern(&lf[50],14, C_text("##core#letrec\052")); lf[51]=C_h_intern(&lf[51],12, C_text("##sys#append")); lf[52]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[53]=C_h_intern(&lf[53],13, C_text("##core#letrec")); lf[54]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[55]=C_h_intern(&lf[55],13, C_text("##core#lambda")); lf[56]=C_h_intern(&lf[56],1, C_text("\077")); lf[57]=C_h_intern(&lf[57],12, C_text("##sys#vector")); lf[58]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022bad argument count")); lf[59]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022bad argument count")); lf[60]=C_h_intern(&lf[60],27, C_text("##sys#decompose-lambda-list")); lf[61]=C_h_intern(&lf[61],33, C_text("##sys#expand-extended-lambda-list")); lf[62]=C_h_intern(&lf[62],23, C_text("##sys#syntax-error-hook")); lf[63]=C_h_intern(&lf[63],27, C_text("##sys#extended-lambda-list\077")); lf[64]=C_h_intern(&lf[64],18, C_text("##sys#check-syntax")); lf[65]=C_h_intern(&lf[65],6, C_text("lambda")); lf[66]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[67]=C_h_intern(&lf[67],17, C_text("##core#let-syntax")); lf[68]=C_h_intern(&lf[68],13, C_text("scheme#append")); lf[69]=C_h_intern(&lf[69],24, C_text("##sys#ensure-transformer")); lf[70]=C_h_intern(&lf[70],15, C_text("##sys#eval/meta")); lf[71]=C_h_intern(&lf[71],20, C_text("##core#letrec-syntax")); lf[72]=C_h_intern(&lf[72],8, C_text("for-each")); lf[73]=C_h_intern(&lf[73],20, C_text("##core#define-syntax")); lf[74]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[75]=C_h_intern(&lf[75],30, C_text("##sys#extend-macro-environment")); lf[76]=C_h_intern(&lf[76],28, C_text("##sys#register-syntax-export")); lf[77]=C_h_intern(&lf[77],20, C_text("##sys#current-module")); lf[78]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032environment is not mutable")); lf[79]=C_h_intern(&lf[79],29, C_text("##core#define-compiler-syntax")); lf[80]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[81]=C_h_intern(&lf[81],26, C_text("##core#let-compiler-syntax")); lf[82]=C_h_intern(&lf[82],14, C_text("##core#include")); lf[83]=C_h_intern(&lf[83],29, C_text("##sys#include-forms-from-file")); lf[84]=C_h_intern(&lf[84],23, C_text("##core#let-module-alias")); lf[85]=C_h_intern(&lf[85],25, C_text("##sys#with-module-aliases")); lf[86]=C_h_intern(&lf[86],7, C_text("functor")); lf[87]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001symbol\376\003\000\000\002\376\001\000\000\006\001symbol\376\377\016")); lf[88]=C_h_intern(&lf[88],13, C_text("##core#module")); lf[89]=C_h_intern(&lf[89],23, C_text("##sys#macro-environment")); lf[90]=C_h_intern(&lf[90],30, C_text("##sys#module-alias-environment")); lf[91]=C_h_intern(&lf[91],31, C_text("##sys#initial-macro-environment")); lf[92]=C_h_intern(&lf[92],21, C_text("##sys#undefined-value")); lf[93]=C_h_intern(&lf[93],13, C_text("##sys#provide")); lf[94]=C_h_intern(&lf[94],35, C_text("chicken.internal#module-requirement")); lf[95]=C_h_intern(&lf[95],21, C_text("##sys#finalize-module")); lf[96]=C_h_intern(&lf[96],14, C_text("scheme#reverse")); lf[97]=C_h_intern(&lf[97],27, C_text("##sys#with-property-restore")); lf[98]=C_h_intern(&lf[98],21, C_text("##sys#register-module")); lf[99]=C_h_intern(&lf[99],6, C_text("module")); lf[100]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031modules may not be nested")); lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025invalid export syntax")); lf[102]=C_h_intern(&lf[102],18, C_text("##core#loop-lambda")); lf[103]=C_h_intern(&lf[103],14, C_text("##core#provide")); lf[104]=C_h_intern(&lf[104],25, C_text("##core#require-for-syntax")); lf[105]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[106]=C_h_intern(&lf[106],27, C_text("chicken.load#load-extension")); lf[107]=C_h_intern(&lf[107],7, C_text("require")); lf[108]=C_h_intern(&lf[108],14, C_text("##core#require")); lf[109]=C_h_intern(&lf[109],21, C_text("##sys#process-require")); lf[110]=C_h_intern(&lf[110],26, C_text("##core#elaborationtimeonly")); lf[111]=C_h_intern(&lf[111],25, C_text("##core#elaborationtimetoo")); lf[112]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[113]=C_h_intern(&lf[113],21, C_text("##core#compiletimetoo")); lf[114]=C_h_intern(&lf[114],22, C_text("##core#compiletimeonly")); lf[115]=C_h_intern(&lf[115],15, C_text("##core#callunit")); lf[116]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[117]=C_h_intern(&lf[117],14, C_text("##core#declare")); lf[118]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[119]=C_decode_literal(C_heaptop,C_text("\376B\000\000,declarations are ignored in interpreted code")); lf[120]=C_h_intern(&lf[120],20, C_text("##core#define-inline")); lf[121]=C_h_intern(&lf[121],22, C_text("##core#define-constant")); lf[122]=C_h_intern(&lf[122],6, C_text("define")); lf[123]=C_h_intern(&lf[123],16, C_text("##core#primitive")); lf[124]=C_decode_literal(C_heaptop,C_text("\376B\000\000%cannot evaluate compiler-special-form")); lf[125]=C_h_intern(&lf[125],10, C_text("##core#app")); lf[126]=C_h_intern(&lf[126],10, C_text("##core#the")); lf[127]=C_h_intern(&lf[127],15, C_text("##core#typecase")); lf[128]=C_h_intern(&lf[128],4, C_text("else")); lf[129]=C_h_intern(&lf[129],17, C_text("compiler-typecase")); lf[130]=C_decode_literal(C_heaptop,C_text("\376B\000\0007no `else-clause\047 in unresolved `compiler-typecase\047 form")); lf[131]=C_h_intern(&lf[131],20, C_text("##sys#syntax-context")); lf[132]=C_h_intern(&lf[132],13, C_text("##core#inline")); lf[133]=C_h_intern(&lf[133],22, C_text("##core#inline_allocate")); lf[134]=C_h_intern(&lf[134],21, C_text("##core#foreign-lambda")); lf[135]=C_h_intern(&lf[135],30, C_text("##core#define-foreign-variable")); lf[136]=C_h_intern(&lf[136],31, C_text("##core#define-external-variable")); lf[137]=C_h_intern(&lf[137],19, C_text("##core#let-location")); lf[138]=C_h_intern(&lf[138],24, C_text("##core#foreign-primitive")); lf[139]=C_h_intern(&lf[139],15, C_text("##core#location")); lf[140]=C_h_intern(&lf[140],22, C_text("##core#foreign-lambda\052")); lf[141]=C_h_intern(&lf[141],26, C_text("##core#define-foreign-type")); lf[142]=C_h_intern(&lf[142],21, C_text("chicken.syntax#expand")); lf[143]=C_h_intern(&lf[143],20, C_text("##sys#srfi-4-vector\077")); lf[144]=C_h_intern(&lf[144],18, C_text("chicken.blob#blob\077")); lf[145]=C_h_intern(&lf[145],13, C_text("##sys#number\077")); lf[146]=C_h_intern(&lf[146],24, C_text("chicken.keyword#keyword\077")); lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024malformed expression")); lf[148]=C_h_intern(&lf[148],28, C_text("##sys#meta-macro-environment")); lf[149]=C_h_intern(&lf[149],30, C_text("##sys#current-meta-environment")); lf[150]=C_h_intern(&lf[150],19, C_text("scheme#dynamic-wind")); lf[151]=C_h_intern(&lf[151],17, C_text("chicken.base#void")); lf[152]=C_h_intern(&lf[152],25, C_text("chicken.eval#eval-handler")); lf[153]=C_h_intern(&lf[153],11, C_text("scheme#eval")); lf[154]=C_h_intern(&lf[154],31, C_text("chicken.eval#module-environment")); lf[155]=C_h_intern(&lf[155],33, C_text("chicken.module#module-environment")); lf[156]=C_h_intern(&lf[156],26, C_text("##sys#syntax-error-culprit")); lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032illegal lambda-list syntax")); lf[158]=C_h_intern(&lf[158],11, C_text("environment")); lf[159]=C_h_intern(&lf[159],23, C_text("interaction-environment")); lf[160]=C_h_intern(&lf[160],30, C_text("scheme#interaction-environment")); lf[161]=C_h_intern(&lf[161],5, C_text("foldr")); lf[162]=C_h_intern(&lf[162],11, C_text("cond-expand")); lf[163]=C_h_intern(&lf[163],16, C_text("define-interface")); lf[164]=C_h_intern(&lf[164],11, C_text("delay-force")); lf[165]=C_h_intern(&lf[165],6, C_text("export")); lf[166]=C_h_intern(&lf[166],6, C_text("import")); lf[167]=C_h_intern(&lf[167],17, C_text("import-for-syntax")); lf[168]=C_h_intern(&lf[168],13, C_text("import-syntax")); lf[169]=C_h_intern(&lf[169],24, C_text("import-syntax-for-syntax")); lf[170]=C_h_intern(&lf[170],7, C_text("letrec\052")); lf[171]=C_h_intern(&lf[171],8, C_text("reexport")); lf[172]=C_h_intern(&lf[172],15, C_text("require-library")); lf[173]=C_h_intern(&lf[173],6, C_text("syntax")); lf[174]=C_h_intern(&lf[174],32, C_text("scheme#scheme-report-environment")); lf[175]=C_h_intern(&lf[175],25, C_text("scheme-report-environment")); lf[176]=C_decode_literal(C_heaptop,C_text("\376B\000\000-unsupported scheme report environment version")); lf[177]=C_h_intern(&lf[177],18, C_text("##sys#check-fixnum")); lf[178]=C_h_intern(&lf[178],23, C_text("scheme#null-environment")); lf[179]=C_h_intern(&lf[179],16, C_text("null-environment")); lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\000$unsupported null environment version")); lf[181]=C_h_intern(&lf[181],13, C_text("chicken.load#")); lf[184]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001chicken-syntax\376\003\000\000\002\376\001\000\000\022\001chicken-ffi-syntax\376\003\000\000\002\376\001\000\000\014\001continuation\376\003\000" "\000\002\376\001\000\000\017\001data-structures\376\003\000\000\002\376\001\000\000\017\001debugger-client\376\003\000\000\002\376\001\000\000\004\001eval\376\003\000\000\002\376\001\000\000\014\001eval-" "modules\376\003\000\000\002\376\001\000\000\006\001expand\376\003\000\000\002\376\001\000\000\006\001extras\376\003\000\000\002\376\001\000\000\004\001file\376\003\000\000\002\376\001\000\000\010\001internal\376\003\000\000\002" "\376\001\000\000\007\001irregex\376\003\000\000\002\376\001\000\000\007\001library\376\003\000\000\002\376\001\000\000\007\001lolevel\376\003\000\000\002\376\001\000\000\010\001pathname\376\003\000\000\002\376\001\000\000\004\001p" "ort\376\003\000\000\002\376\001\000\000\005\001posix\376\003\000\000\002\376\001\000\000\010\001profiler\376\003\000\000\002\376\001\000\000\013\001read-syntax\376\003\000\000\002\376\001\000\000\004\001repl\376\003\000\000\002" "\376\001\000\000\011\001scheduler\376\003\000\000\002\376\001\000\000\006\001srfi-4\376\003\000\000\002\376\001\000\000\003\001tcp\376\377\016")); lf[186]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003.so")); lf[188]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.scm")); lf[190]=C_h_intern(&lf[190],28, C_text("##sys#load-dynamic-extension")); lf[192]=C_h_intern(&lf[192],15, C_text("##sys#provided\077")); lf[193]=C_h_intern(&lf[193],22, C_text("##sys#windows-platform")); lf[194]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000/\376\377\016")); lf[195]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000/\376\377\016")); lf[199]=C_h_intern(&lf[199],20, C_text("scheme#string-append")); lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[201]=C_h_intern(&lf[201],15, C_text("##sys#substring")); lf[202]=C_h_intern(&lf[202],25, C_text("chicken.load#load-verbose")); lf[203]=C_h_intern(&lf[203],27, C_text("##sys#current-load-filename")); lf[204]=C_h_intern(&lf[204],20, C_text("##sys#dload-disabled")); lf[205]=C_h_intern(&lf[205],35, C_text("chicken.load#set-dynamic-load-mode!")); lf[206]=C_h_intern(&lf[206],23, C_text("##sys#set-dlopen-flags!")); lf[207]=C_h_intern(&lf[207],6, C_text("global")); lf[208]=C_h_intern(&lf[208],5, C_text("local")); lf[209]=C_h_intern(&lf[209],4, C_text("lazy")); lf[210]=C_h_intern(&lf[210],3, C_text("now")); lf[211]=C_h_intern(&lf[211],17, C_text("##sys#signal-hook")); lf[212]=C_h_intern(&lf[212],22, C_text("set-dynamic-load-mode!")); lf[213]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031invalid dynamic-load mode")); lf[215]=C_h_intern(&lf[215],19, C_text("##sys#make-c-string")); lf[216]=C_h_intern(&lf[216],19, C_text("##sys#string-append")); lf[217]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002C_")); lf[218]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010toplevel")); lf[219]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011_toplevel")); lf[220]=C_h_intern(&lf[220],37, C_text("chicken.internal#string->c-identifier")); lf[222]=C_h_intern(&lf[222],11, C_text("##sys#dload")); lf[223]=C_h_intern(&lf[223],4, C_text("load")); lf[224]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002./")); lf[225]=C_h_intern(&lf[225],33, C_text("##sys#read-error-with-line-number")); lf[226]=C_h_intern(&lf[226],29, C_text("##sys#current-source-filename")); lf[227]=C_h_intern(&lf[227],11, C_text("scheme#read")); lf[228]=C_h_intern(&lf[228],19, C_text("##sys#display-times")); lf[229]=C_h_intern(&lf[229],16, C_text("##sys#stop-timer")); lf[230]=C_h_intern(&lf[230],17, C_text("##sys#start-timer")); lf[231]=C_h_intern(&lf[231],14, C_text("scheme#newline")); lf[232]=C_decode_literal(C_heaptop,C_text("\376B\000\000!unable to load compiled module - ")); lf[233]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016unknown reason")); lf[234]=C_h_intern(&lf[234],19, C_text("##sys#peek-c-string")); lf[235]=C_h_intern(&lf[235],16, C_text("scheme#peek-char")); lf[236]=C_h_intern(&lf[236],23, C_text("scheme#close-input-port")); lf[237]=C_h_intern(&lf[237],22, C_text("scheme#open-input-file")); lf[238]=C_h_intern(&lf[238],25, C_text("chicken.base#flush-output")); lf[239]=C_h_intern(&lf[239],14, C_text("scheme#display")); lf[240]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005 ...\012")); lf[241]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012; loading ")); lf[242]=C_h_intern_kw(&lf[242],10, C_text("type-error")); lf[243]=C_decode_literal(C_heaptop,C_text("\376B\000\000(bad argument type - not a port or string")); lf[244]=C_h_intern_kw(&lf[244],10, C_text("file-error")); lf[245]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020cannot open file")); lf[246]=C_h_intern(&lf[246],18, C_text("##sys#file-exists\077")); lf[247]=C_h_intern(&lf[247],18, C_text("chicken.base#port\077")); lf[248]=C_h_intern(&lf[248],25, C_text("chicken.platform#feature\077")); lf[249]=C_h_intern_kw(&lf[249],5, C_text("dload")); lf[250]=C_h_intern(&lf[250],11, C_text("scheme#load")); lf[251]=C_h_intern(&lf[251],26, C_text("chicken.load#load-relative")); lf[252]=C_h_intern(&lf[252],25, C_text("chicken.load#load-noisily")); lf[253]=C_h_intern(&lf[253],17, C_text("##sys#get-keyword")); lf[254]=C_h_intern_kw(&lf[254],7, C_text("printer")); lf[255]=C_h_intern_kw(&lf[255],4, C_text("time")); lf[256]=C_h_intern_kw(&lf[256],9, C_text("evaluator")); lf[257]=C_h_intern(&lf[257],35, C_text("chicken.load#dynamic-load-libraries")); lf[259]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026unable to load library")); lf[260]=C_h_intern(&lf[260],12, C_text("load-library")); lf[261]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005 ...\012")); lf[262]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022; loading library ")); lf[263]=C_h_intern(&lf[263],18, C_text("##sys#load-library")); lf[264]=C_h_intern(&lf[264],25, C_text("chicken.load#load-library")); lf[265]=C_h_intern(&lf[265],27, C_text("scheme#with-input-from-file")); lf[266]=C_h_intern(&lf[266],18, C_text("chicken.base#print")); lf[267]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014; including ")); lf[268]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 ...")); lf[269]=C_h_intern(&lf[269],7, C_text("include")); lf[270]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020cannot open file")); lf[271]=C_h_intern(&lf[271],30, C_text("##sys#resolve-include-filename")); lf[272]=C_h_intern(&lf[272],16, C_text("##sys#setup-mode")); lf[274]=C_h_intern(&lf[274],22, C_text("chicken.load#find-file")); lf[275]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[276]=C_h_intern(&lf[276],35, C_text("chicken.load#find-dynamic-extension")); lf[277]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[278]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\001.\376\377\016")); lf[279]=C_h_intern(&lf[279],23, C_text("##sys#include-pathnames")); lf[280]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\001.\376\377\016")); lf[281]=C_h_intern(&lf[281],21, C_text("scheme#symbol->string")); lf[282]=C_h_intern(&lf[282],32, C_text("chicken.platform#repository-path")); lf[283]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025cannot load extension")); lf[284]=C_h_intern(&lf[284],20, C_text("chicken.load#require")); lf[285]=C_h_intern(&lf[285],20, C_text("chicken.load#provide")); lf[286]=C_h_intern(&lf[286],7, C_text("provide")); lf[287]=C_h_intern(&lf[287],22, C_text("chicken.load#provided\077")); lf[288]=C_h_intern(&lf[288],9, C_text("provided\077")); lf[289]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001chicken.foreign\376\003\000\000\002\376\001\000\000\031\001##core#require-for-syntax\376\003\000\000\002\376\001\000\000\022\001ch" "icken-ffi-syntax\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001chicken.condition\376\003\000\000\002\376\001\000\000\014\001##core#begin\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\031\001##core#require-for-syntax\376\003\000\000\002\376\001\000\000\016\001chicken-syntax\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001" "##core#require\376\003\000\000\002\376\001\000\000\007\001library\376\377\016\376\377\016\376\377\016")); lf[290]=C_h_intern(&lf[290],7, C_text("srfi-30")); lf[291]=C_h_intern(&lf[291],7, C_text("srfi-46")); lf[292]=C_h_intern(&lf[292],7, C_text("srfi-61")); lf[293]=C_h_intern(&lf[293],7, C_text("srfi-62")); lf[294]=C_h_intern(&lf[294],6, C_text("srfi-0")); lf[295]=C_h_intern(&lf[295],6, C_text("srfi-2")); lf[296]=C_h_intern(&lf[296],6, C_text("srfi-8")); lf[297]=C_h_intern(&lf[297],6, C_text("srfi-9")); lf[298]=C_h_intern(&lf[298],7, C_text("srfi-11")); lf[299]=C_h_intern(&lf[299],7, C_text("srfi-15")); lf[300]=C_h_intern(&lf[300],7, C_text("srfi-16")); lf[301]=C_h_intern(&lf[301],7, C_text("srfi-17")); lf[302]=C_h_intern(&lf[302],7, C_text("srfi-26")); lf[303]=C_h_intern(&lf[303],7, C_text("srfi-31")); lf[304]=C_h_intern(&lf[304],7, C_text("srfi-55")); lf[305]=C_h_intern(&lf[305],7, C_text("srfi-88")); lf[306]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[307]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[308]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[309]=C_h_intern(&lf[309],4, C_text("uses")); lf[310]=C_h_intern(&lf[310],6, C_text("static")); lf[311]=C_h_intern(&lf[311],7, C_text("dynamic")); lf[312]=C_h_intern(&lf[312],27, C_text("chicken.internal#library-id")); lf[313]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[316]=C_h_intern(&lf[316],37, C_text("chicken.condition#print-error-message")); lf[317]=C_h_intern(&lf[317],40, C_text("chicken.condition#with-exception-handler")); lf[318]=C_h_intern(&lf[318],37, C_text("scheme#call-with-current-continuation")); lf[320]=C_h_intern(&lf[320],8, C_text("##sys#gc")); lf[322]=C_h_intern(&lf[322],19, C_text("##sys#thread-yield!")); lf[325]=C_h_intern(&lf[325],30, C_text("chicken.base#open-input-string")); lf[327]=C_decode_literal(C_heaptop,C_text("\376B\000\000(Error: not enough room for result string")); lf[335]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010No error")); lf[336]=C_h_intern(&lf[336],29, C_text("chicken.platform#chicken-home")); lf[337]=C_h_intern(&lf[337],27, C_text("chicken.base#make-parameter")); lf[338]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[339]=C_h_intern(&lf[339],20, C_text("##sys#fixnum->string")); lf[340]=C_h_intern(&lf[340],6, C_text("cygwin")); lf[341]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\014cygchicken-0\376\377\016")); lf[342]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lib")); lf[343]=C_h_intern(&lf[343],33, C_text("chicken.platform#software-version")); lf[344]=C_h_intern(&lf[344],7, C_text("windows")); lf[345]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.dll")); lf[346]=C_h_intern(&lf[346],6, C_text("macosx")); lf[347]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006.dylib")); lf[348]=C_h_intern(&lf[348],4, C_text("hpux")); lf[349]=C_h_intern(&lf[349],4, C_text("hppa")); lf[350]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003.sl")); lf[351]=C_h_intern(&lf[351],29, C_text("chicken.platform#machine-type")); lf[352]=C_h_intern(&lf[352],30, C_text("chicken.platform#software-type")); lf[353]=C_h_intern(&lf[353],9, C_text("r5rs-null")); lf[354]=C_h_intern(&lf[354],18, C_text("null-environment/5")); lf[355]=C_h_intern(&lf[355],9, C_text("r4rs-null")); lf[356]=C_h_intern(&lf[356],18, C_text("null-environment/4")); lf[357]=C_h_intern(&lf[357],6, C_text("scheme")); lf[358]=C_h_intern(&lf[358],27, C_text("scheme-report-environment/5")); lf[359]=C_h_intern(&lf[359],4, C_text("r4rs")); lf[360]=C_h_intern(&lf[360],27, C_text("scheme-report-environment/4")); lf[361]=C_h_intern(&lf[361],18, C_text("##sys#write-char-0")); lf[362]=C_h_intern(&lf[362],11, C_text("##sys#print")); lf[363]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016#char (quote 127)) o|specializations: o| 1 (scheme#number->string fixnum) o| 1 (##sys#debug-mode?) o| 1 (scheme#positive? fixnum) o| 1 (scheme#eqv? * *) o| 3 (scheme#memq * list) o| 1 (scheme#caddr (pair * (pair * pair))) o| 1 (scheme#length list) o| 3 (scheme#cddr (pair * pair)) o| 13 (scheme#car pair) o| 17 (##sys#check-list (or pair list) *) o| 1 (scheme#zero? *) o| 8 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 81 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 26 (scheme#cdr pair) o| 2 (scheme#cdar (pair pair *)) (o e)|safe calls: 1105 (o e)|assignments to immediate values: 1 o|safe globals: (##sys#unbound-in-eval chicken.eval#eval-decorator) o|merged explicitly consed rest parameter: rest150153 o|inlining procedure: k3601 o|inlining procedure: k3601 o|inlining procedure: k3639 o|inlining procedure: k3639 o|inlining procedure: k3654 o|inlining procedure: k3654 o|inlining procedure: k3682 o|inlining procedure: k3682 o|contracted procedure: "(eval.scm:103) posq199" o|inlining procedure: k3729 o|inlining procedure: k3729 o|inlining procedure: k3759 o|inlining procedure: k3759 o|inlining procedure: k3773 o|inlining procedure: k3773 o|contracted procedure: "(eval.scm:129) chicken.eval#eval-decorator" o|inlining procedure: k3536 o|inlining procedure: k3536 o|inlining procedure: k3789 o|inlining procedure: k3789 o|inlining procedure: k3815 o|inlining procedure: k3838 o|inlining procedure: k3838 o|inlining procedure: k3865 o|inlining procedure: k3865 o|inlining procedure: k3878 o|inlining procedure: k3878 o|inlining procedure: k3815 o|inlining procedure: k3916 o|inlining procedure: k3916 o|inlining procedure: k3958 o|inlining procedure: k3958 o|substituted constant variable: a3992 o|substituted constant variable: a3994 o|substituted constant variable: a3996 o|substituted constant variable: a3998 o|inlining procedure: k3999 o|inlining procedure: k4013 o|inlining procedure: k4013 o|inlining procedure: k4029 o|inlining procedure: k4029 o|substituted constant variable: a4040 o|substituted constant variable: a4042 o|substituted constant variable: a4044 o|substituted constant variable: a4046 o|inlining procedure: k3999 o|inlining procedure: k4053 o|inlining procedure: k4053 o|inlining procedure: k4060 o|inlining procedure: k4060 o|inlining procedure: k4080 o|inlining procedure: k4107 o|inlining procedure: k4124 o|inlining procedure: k4124 o|inlining procedure: k4140 o|inlining procedure: k4140 o|inlining procedure: k4156 o|inlining procedure: k4156 o|substituted constant variable: a4175 o|substituted constant variable: a4177 o|substituted constant variable: a4179 o|substituted constant variable: a4181 o|substituted constant variable: a4183 o|substituted constant variable: a4185 o|substituted constant variable: a4187 o|inlining procedure: k4107 o|inlining procedure: k4203 o|inlining procedure: k4203 o|inlining procedure: k4229 o|inlining procedure: k4229 o|inlining procedure: k4254 o|inlining procedure: k4254 o|inlining procedure: k4291 o|inlining procedure: k4312 o|inlining procedure: k4312 o|substituted constant variable: a4394 o|substituted constant variable: a4396 o|substituted constant variable: a4398 o|inlining procedure: k4291 o|inlining procedure: k4418 o|inlining procedure: k4442 o|inlining procedure: k4473 o|inlining procedure: k4473 o|inlining procedure: k4442 o|inlining procedure: k4418 o|inlining procedure: k4565 o|inlining procedure: k4565 o|inlining procedure: k4648 o|inlining procedure: k4648 o|inlining procedure: k4832 o|inlining procedure: k4832 o|inlining procedure: k4862 o|inlining procedure: k4862 o|substituted constant variable: a4894 o|substituted constant variable: a4896 o|substituted constant variable: a4898 o|substituted constant variable: a4900 o|consed rest parameter at call site: "(eval.scm:287) chicken.eval#compile-to-closure" 3 o|inlining procedure: k4953 o|inlining procedure: k4953 o|inlining procedure: k4987 o|contracted procedure: "(eval.scm:282) g423432" o|inlining procedure: k4987 o|inlining procedure: k5018 o|inlining procedure: k5098 o|contracted procedure: "(eval.scm:337) g586595" o|inlining procedure: k5098 o|inlining procedure: k5132 o|contracted procedure: "(eval.scm:334) g559568" o|inlining procedure: k5132 o|inlining procedure: k5018 o|inlining procedure: k5274 o|contracted procedure: "(eval.scm:354) g735745" o|inlining procedure: k5274 o|inlining procedure: k5322 o|contracted procedure: "(eval.scm:353) g702712" o|inlining procedure: k5322 o|inlining procedure: k5370 o|contracted procedure: "(eval.scm:350) g675684" o|inlining procedure: k5370 o|inlining procedure: k5404 o|inlining procedure: k5404 o|inlining procedure: k5438 o|inlining procedure: k5438 o|inlining procedure: k5469 o|inlining procedure: k5513 o|inlining procedure: k5513 o|inlining procedure: k5562 o|inlining procedure: k5562 o|inlining procedure: k5603 o|inlining procedure: k5603 o|inlining procedure: k5656 o|inlining procedure: k5656 o|inlining procedure: k5697 o|inlining procedure: k5697 o|contracted procedure: "(eval.scm:443) fudge-argument-list204" o|inlining procedure: k7251 o|inlining procedure: k7251 o|inlining procedure: k7266 o|inlining procedure: k7266 o|inlining procedure: k7291 o|inlining procedure: k7291 o|inlining procedure: k5779 o|inlining procedure: k5779 o|substituted constant variable: a5804 o|substituted constant variable: a5806 o|substituted constant variable: a5808 o|substituted constant variable: a5810 o|substituted constant variable: a5812 o|consed rest parameter at call site: "(eval.scm:378) chicken.eval#compile-to-closure" 3 o|inlining procedure: k5841 o|consed rest parameter at call site: "(eval.scm:378) chicken.eval#compile-to-closure" 3 o|inlining procedure: k5841 o|consed rest parameter at call site: "(eval.scm:378) chicken.eval#compile-to-closure" 3 o|inlining procedure: k5861 o|inlining procedure: k5861 o|inlining procedure: k5914 o|inlining procedure: k5914 o|inlining procedure: k5469 o|inlining procedure: k6029 o|contracted procedure: "(eval.scm:458) g889898" o|inlining procedure: k6029 o|inlining procedure: k6060 o|inlining procedure: k6174 o|inlining procedure: k6174 o|inlining procedure: k6201 o|contracted procedure: "(eval.scm:472) g924933" o|inlining procedure: k6201 o|inlining procedure: k6060 o|inlining procedure: k6288 o|inlining procedure: k6288 o|inlining procedure: k6318 o|inlining procedure: k6342 o|inlining procedure: k6342 o|inlining procedure: k6318 o|inlining procedure: k6417 o|contracted procedure: "(eval.scm:528) g9971006" o|inlining procedure: k6417 o|substituted constant variable: saved107210731091 o|inlining procedure: k6448 o|inlining procedure: k6553 o|inlining procedure: k6576 o|inlining procedure: k6576 o|inlining procedure: k6553 o|inlining procedure: k6672 o|inlining procedure: k6672 o|inlining procedure: k6699 o|inlining procedure: k6699 o|inlining procedure: k6729 o|inlining procedure: k6729 o|inlining procedure: k6448 o|inlining procedure: k6785 o|inlining procedure: k6785 o|inlining procedure: k6822 o|inlining procedure: k6822 o|inlining procedure: k6867 o|inlining procedure: k6867 o|inlining procedure: k6892 o|inlining procedure: k6892 o|inlining procedure: k6928 o|inlining procedure: k6928 o|removed unused parameter to known procedure: se1250 "(eval.scm:628) compile-call206" o|inlining procedure: k6957 o|inlining procedure: k6957 o|inlining procedure: k6979 o|inlining procedure: k6979 o|removed unused parameter to known procedure: se1250 "(eval.scm:646) compile-call206" o|substituted constant variable: a7032 o|substituted constant variable: a7034 o|substituted constant variable: a7036 o|inlining procedure: k7040 o|inlining procedure: k7040 o|inlining procedure: k7052 o|inlining procedure: k7052 o|inlining procedure: k7064 o|inlining procedure: k7064 o|inlining procedure: k7076 o|inlining procedure: k7076 o|inlining procedure: k7088 o|inlining procedure: k7088 o|substituted constant variable: a7095 o|substituted constant variable: a7097 o|substituted constant variable: a7099 o|substituted constant variable: a7101 o|substituted constant variable: a7103 o|substituted constant variable: a7105 o|substituted constant variable: a7107 o|substituted constant variable: a7109 o|substituted constant variable: a7111 o|substituted constant variable: a7113 o|substituted constant variable: a7115 o|substituted constant variable: a7120 o|substituted constant variable: a7122 o|substituted constant variable: a7124 o|substituted constant variable: a7129 o|substituted constant variable: a7131 o|substituted constant variable: a7133 o|substituted constant variable: a7138 o|substituted constant variable: a7140 o|substituted constant variable: a7142 o|substituted constant variable: a7144 o|substituted constant variable: a7146 o|substituted constant variable: a7148 o|substituted constant variable: a7150 o|substituted constant variable: a7152 o|substituted constant variable: a7154 o|substituted constant variable: a7156 o|substituted constant variable: a7158 o|substituted constant variable: a7160 o|substituted constant variable: a7162 o|substituted constant variable: a7164 o|substituted constant variable: a7166 o|substituted constant variable: a7168 o|substituted constant variable: a7170 o|substituted constant variable: a7172 o|substituted constant variable: a7174 o|substituted constant variable: a7176 o|substituted constant variable: a7178 o|substituted constant variable: a7180 o|substituted constant variable: a7182 o|substituted constant variable: a7184 o|substituted constant variable: a7186 o|substituted constant variable: a7188 o|substituted constant variable: a7190 o|inlining procedure: k4080 o|removed unused parameter to known procedure: se1250 "(eval.scm:650) compile-call206" o|inlining procedure: k7224 o|inlining procedure: k7224 o|inlining procedure: k7236 o|inlining procedure: k7236 o|removed unused formal parameters: (se1250) o|inlining procedure: k7350 o|inlining procedure: k7350 o|inlining procedure: k7376 o|inlining procedure: k7376 o|inlining procedure: k7440 o|inlining procedure: k7440 o|inlining procedure: k7580 o|inlining procedure: k7580 o|inlining procedure: k7614 o|inlining procedure: k7614 o|substituted constant variable: a7646 o|substituted constant variable: a7648 o|substituted constant variable: a7650 o|substituted constant variable: a7652 o|substituted constant variable: a7654 o|substituted constant variable: a7656 o|contracted procedure: "(eval.scm:678) checked-length205" o|inlining procedure: k7312 o|inlining procedure: k7312 o|substituted constant variable: saved136713681382 o|consed rest parameter at call site: "(eval.scm:723) chicken.eval#compile-to-closure" 3 o|inlining procedure: k7878 o|inlining procedure: k7878 o|inlining procedure: k7900 o|inlining procedure: k7900 o|inlining procedure: k7977 o|contracted procedure: "(eval.scm:832) g15281529" o|substituted constant variable: a7992 o|inlining procedure: k7985 o|inlining procedure: k7985 o|inlining procedure: k7977 o|inlining procedure: k8029 o|inlining procedure: k8029 o|substituted constant variable: a8045 o|substituted constant variable: a8047 o|inlining procedure: k8054 o|inlining procedure: k8054 o|substituted constant variable: a8070 o|substituted constant variable: a8072 o|removed side-effect free assignment to unused variable: chicken.load#partition o|removed side-effect free assignment to unused variable: chicken.load#span o|removed side-effect free assignment to unused variable: chicken.load#drop o|removed side-effect free assignment to unused variable: chicken.load#split-at o|removed side-effect free assignment to unused variable: chicken.load#append-map o|inlining procedure: k8454 o|inlining procedure: k8454 o|inlining procedure: k8485 o|inlining procedure: k8485 o|removed side-effect free assignment to unused variable: chicken.load#cons* o|removed side-effect free assignment to unused variable: chicken.load#concatenate o|removed side-effect free assignment to unused variable: chicken.load#first o|removed side-effect free assignment to unused variable: chicken.load#second o|removed side-effect free assignment to unused variable: chicken.load#third o|removed side-effect free assignment to unused variable: chicken.load#fourth o|removed side-effect free assignment to unused variable: chicken.load#fifth o|removed side-effect free assignment to unused variable: chicken.load#delete-duplicates o|removed side-effect free assignment to unused variable: chicken.load#alist-cons o|inlining procedure: k8702 o|inlining procedure: k8702 o|inlining procedure: k8694 o|inlining procedure: k8694 o|removed side-effect free assignment to unused variable: chicken.load#filter-map o|removed side-effect free assignment to unused variable: chicken.load#remove o|removed side-effect free assignment to unused variable: chicken.load#unzip1 o|removed side-effect free assignment to unused variable: chicken.load#last o|removed side-effect free assignment to unused variable: chicken.load#list-index o|removed side-effect free assignment to unused variable: chicken.load#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: chicken.load#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.load#lset-union/eq? o|removed side-effect free assignment to unused variable: chicken.load#lset-intersection/eq? o|inlining procedure: k9093 o|inlining procedure: k9093 o|removed side-effect free assignment to unused variable: chicken.load#lset<=/eq? o|removed side-effect free assignment to unused variable: chicken.load#lset=/eq? o|removed side-effect free assignment to unused variable: chicken.load#length+ o|removed side-effect free assignment to unused variable: chicken.load#find o|removed side-effect free assignment to unused variable: chicken.load#find-tail o|removed side-effect free assignment to unused variable: chicken.load#iota o|removed side-effect free assignment to unused variable: chicken.load#make-list o|removed side-effect free assignment to unused variable: chicken.load#posq o|removed side-effect free assignment to unused variable: chicken.load#posv o|inlining procedure: k9395 o|inlining procedure: k9395 o|inlining procedure: k9423 o|inlining procedure: k9423 o|inlining procedure: k9439 o|inlining procedure: k9439 o|inlining procedure: k9479 o|inlining procedure: k9502 o|inlining procedure: k9502 o|inlining procedure: k9516 o|inlining procedure: k9516 o|substituted constant variable: a9531 o|substituted constant variable: a9533 o|substituted constant variable: a9535 o|substituted constant variable: a9537 o|inlining procedure: k9479 o|contracted procedure: "(eval.scm:1009) chicken.load#toplevel" o|inlining procedure: k9547 o|inlining procedure: k9547 o|merged explicitly consed rest parameter: rest22082211 o|inlining procedure: k9612 o|inlining procedure: k9612 o|inlining procedure: k9630 o|inlining procedure: k9630 o|inlining procedure: k9668 o|inlining procedure: k9668 o|inlining procedure: k9719 o|inlining procedure: k9719 o|inlining procedure: k9741 o|inlining procedure: k9741 o|inlining procedure: k9775 o|inlining procedure: k9792 o|inlining procedure: k9792 o|inlining procedure: k9775 o|inlining procedure: k9829 o|inlining procedure: k9829 o|inlining procedure: k9850 o|inlining procedure: k9850 o|inlining procedure: k9877 o|inlining procedure: k9877 o|inlining procedure: k9898 o|inlining procedure: k9898 o|inlining procedure: k9916 o|inlining procedure: k9916 o|consed rest parameter at call site: "(eval.scm:1099) chicken.load#load/internal" 3 o|inlining procedure: k9983 o|consed rest parameter at call site: "(eval.scm:1099) chicken.load#load/internal" 3 o|inlining procedure: k9983 o|consed rest parameter at call site: "(eval.scm:1099) chicken.load#load/internal" 3 o|consed rest parameter at call site: "(eval.scm:1103) chicken.load#load/internal" 3 o|consed rest parameter at call site: "(eval.scm:1106) chicken.load#load/internal" 3 o|propagated global variable: g23842385 ##sys#string-append o|inlining procedure: k10068 o|inlining procedure: k10068 o|inlining procedure: k10147 o|inlining procedure: k10147 o|inlining procedure: k10246 o|inlining procedure: k10246 o|inlining procedure: k10291 o|inlining procedure: k10291 o|inlining procedure: k10300 o|inlining procedure: k10300 o|inlining procedure: k10312 o|inlining procedure: k10312 o|inlining procedure: k10362 o|inlining procedure: k10362 o|inlining procedure: k10372 o|inlining procedure: k10372 o|inlining procedure: k10401 o|inlining procedure: k10401 o|inlining procedure: k10436 o|inlining procedure: k10436 o|contracted procedure: "(eval.scm:1223) chicken.load#load-extension/internal" o|inlining procedure: k10451 o|inlining procedure: k10451 o|inlining procedure: k10460 o|inlining procedure: k10460 o|consed rest parameter at call site: "(eval.scm:1217) chicken.load#load/internal" 3 o|inlining procedure: k10517 o|contracted procedure: "(eval.scm:1228) g25732595" o|propagated global variable: g26032604 chicken.load#load-extension o|inlining procedure: k10517 o|inlining procedure: k10540 o|contracted procedure: "(eval.scm:1227) g25632580" o|inlining procedure: k10540 o|inlining procedure: k10582 o|contracted procedure: "(eval.scm:1232) g26262648" o|propagated global variable: g26562657 ##sys#provide o|inlining procedure: k10582 o|inlining procedure: k10605 o|contracted procedure: "(eval.scm:1231) g26162633" o|inlining procedure: k10605 o|inlining procedure: k10642 o|contracted procedure: "(eval.scm:1235) g26692676" o|inlining procedure: k10642 o|inlining procedure: k10703 o|contracted procedure: "(eval.scm:1250) g27242725" o|inlining procedure: k10703 o|inlining procedure: k10727 o|inlining procedure: k10727 o|inlining procedure: k10745 o|inlining procedure: k10745 o|substituted constant variable: chicken.load#constant2143 o|substituted constant variable: chicken.load#constant2084 o|inlining procedure: k10891 o|inlining procedure: k10891 o|inlining procedure: k10928 o|inlining procedure: k10928 o|inlining procedure: k10943 o|inlining procedure: k10943 o|inlining procedure: k10962 o|inlining procedure: k10962 o|inlining procedure: k10975 o|inlining procedure: k10975 o|inlining procedure: k11009 o|inlining procedure: k11009 o|inlining procedure: k11082 o|inlining procedure: k11082 o|inlining procedure: k11145 o|inlining procedure: k11145 o|propagated global variable: tmp29622964 last-error o|inlining procedure: k11301 o|propagated global variable: tmp29622964 last-error o|inlining procedure: k11301 o|inlining procedure: k11324 o|inlining procedure: k11324 o|substituted constant variable: chicken.load#constant2091 o|substituted constant variable: a11379 o|substituted constant variable: chicken.load#constant2102 o|inlining procedure: k11383 o|substituted constant variable: chicken.load#constant2096 o|propagated global variable: r1138412002 chicken.load#constant2096 o|inlining procedure: k11383 o|substituted constant variable: chicken.load#constant2109 o|inlining procedure: k11392 o|substituted constant variable: chicken.load#constant2109 o|inlining procedure: k11392 o|substituted constant variable: chicken.load#constant2109 o|inlining procedure: k11513 o|inlining procedure: k11513 o|inlining procedure: k11550 o|substituted constant variable: saved143614371446 o|consed rest parameter at call site: "(eval.scm:757) chicken.eval#compile-to-closure" 3 o|consed rest parameter at call site: "(eval.scm:758) chicken.eval#compile-to-closure" 3 o|inlining procedure: k11550 o|consed rest parameter at call site: "(eval.scm:761) chicken.eval#compile-to-closure" 3 o|consed rest parameter at call site: "(eval.scm:747) chicken.eval#compile-to-closure" 3 o|simplifications: ((if . 1)) o|replaced variables: 1298 o|removed binding forms: 455 o|substituted constant variable: r360211661 o|substituted constant variable: r373011669 o|removed call to pure procedure with unused result: "(eval.scm:100) chicken.base#void" o|substituted constant variable: r353711676 o|substituted constant variable: r447411723 o|substituted constant variable: r591511783 o|substituted constant variable: r591511783 o|removed call to pure procedure with unused result: "(eval.scm:195) chicken.base#void" o|converted assignments to bindings: (err1496) o|substituted constant variable: r797811865 o|substituted constant variable: r848611872 o|removed side-effect free assignment to unused variable: chicken.load#filter o|removed side-effect free assignment to unused variable: chicken.load#list-tabulate o|removed side-effect free assignment to unused variable: chicken.load#constant2084 o|removed side-effect free assignment to unused variable: chicken.load#constant2091 o|removed side-effect free assignment to unused variable: chicken.load#constant2102 o|removed side-effect free assignment to unused variable: chicken.load#constant2109 o|removed side-effect free assignment to unused variable: chicken.load#constant2143 o|substituted constant variable: r944011885 o|substituted constant variable: r954811892 o|contracted procedure: "(eval.scm:1088) g23082315" o|substituted constant variable: r983011912 o|substituted constant variable: r983011912 o|substituted constant variable: r985111915 o|substituted constant variable: r991711921 o|substituted constant variable: r998411922 o|substituted constant variable: r998411922 o|inlining procedure: k10189 o|substituted constant variable: r1029211939 o|substituted constant variable: r1030111940 o|substituted constant variable: r1037311947 o|substituted constant variable: r1040211949 o|substituted constant variable: r1043711950 o|substituted constant variable: r1043711950 o|substituted constant variable: r1043711952 o|substituted constant variable: r1043711952 o|converted assignments to bindings: (check2512) o|contracted procedure: "(eval.scm:1236) chicken.load#every" o|substituted constant variable: r1097611984 o|substituted constant variable: r1101011988 o|substituted constant variable: r1101011988 o|substituted constant variable: r1114611994 o|propagated global variable: r1130211996 last-error o|substituted constant variable: r1130211998 o|substituted constant variable: r1130211998 o|converted assignments to bindings: (complete2377) o|substituted constant variable: chicken.load#constant2096 o|substituted constant variable: r1139312005 o|converted assignments to bindings: (strip1517) o|simplifications: ((let . 4)) o|replaced variables: 22 o|removed binding forms: 1340 o|removed conditional forms: 1 o|contracted procedure: k3673 o|removed unused formal parameters: (h262 cntr263) o|contracted procedure: k4092 o|inlining procedure: k4405 o|removed unused parameter to known procedure: h262 "(eval.scm:384) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:384) decorate202" o|removed unused parameter to known procedure: h262 "(eval.scm:389) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:389) decorate202" o|removed unused parameter to known procedure: h262 "(eval.scm:394) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:394) decorate202" o|removed unused parameter to known procedure: h262 "(eval.scm:399) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:399) decorate202" o|removed unused parameter to known procedure: h262 "(eval.scm:405) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:405) decorate202" o|removed unused parameter to known procedure: h262 "(eval.scm:410) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:410) decorate202" o|removed unused parameter to known procedure: h262 "(eval.scm:416) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:416) decorate202" o|removed unused parameter to known procedure: h262 "(eval.scm:421) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:421) decorate202" o|removed unused parameter to known procedure: h262 "(eval.scm:427) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:427) decorate202" o|removed unused parameter to known procedure: h262 "(eval.scm:432) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:432) decorate202" o|removed unused parameter to known procedure: h262 "(eval.scm:439) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:439) decorate202" o|removed unused parameter to known procedure: h262 "(eval.scm:446) decorate202" o|removed unused parameter to known procedure: cntr263 "(eval.scm:446) decorate202" o|inlining procedure: k6271 o|removed side-effect free assignment to unused variable: chicken.load#constant2096 o|inlining procedure: k9488 o|inlining procedure: k9488 o|inlining procedure: k9488 o|inlining procedure: k9488 o|inlining procedure: k9904 o|inlining procedure: k9904 o|propagated global variable: r1130211996 last-error o|replaced variables: 44 o|removed binding forms: 66 o|substituted constant variable: r627212193 o|substituted constant variable: r990512243 o|substituted constant variable: r990512243 o|replaced variables: 2 o|removed binding forms: 36 o|removed conditional forms: 2 o|removed binding forms: 3 o|simplifications: ((if . 59) (##core#call . 736)) o| call simplifications: o| ##sys#check-structure o| scheme#memq 5 o| ##sys#check-symbol 4 o| ##sys#check-string o| scheme#call-with-current-continuation o| ##sys#size 3 o| chicken.fixnum#fx< o| chicken.fixnum#fx> o| scheme#procedure? o| scheme#boolean? o| scheme#char? o| scheme#eof-object? 3 o| scheme#string? 4 o| scheme#vector? o| ##sys#void o| scheme#set-car! o| chicken.fixnum#fx= 2 o| chicken.fixnum#fx- 3 o| scheme#apply 7 o| scheme#list 14 o| ##sys#list 20 o| ##sys#check-list 15 o| chicken.fixnum#fx>= 2 o| scheme#cddr 8 o| scheme#car 37 o| scheme#vector 12 o| scheme#cdr 24 o| scheme#length 2 o| ##sys#cons 18 o| scheme#caddr 7 o| scheme#cdddr 4 o| scheme#pair? 38 o| scheme#cadddr 4 o| scheme#cadr 33 o| scheme#assq 5 o| scheme#cons 64 o| ##sys#setslot 28 o| ##sys#immediate? o| scheme#not 26 o| ##sys#make-structure 2 o| ##sys#slot 140 o| chicken.fixnum#fx+ 6 o| scheme#values 11 o| ##sys#call-with-values 9 o| ##sys#apply 4 o| scheme#null? 48 o| scheme#caar o| scheme#eq? 102 o| scheme#symbol? 9 o|contracted procedure: k7722 o|contracted procedure: k3574 o|contracted procedure: k7716 o|contracted procedure: k3577 o|contracted procedure: k7710 o|contracted procedure: k3580 o|contracted procedure: k7704 o|contracted procedure: k3583 o|contracted procedure: k7698 o|contracted procedure: k3586 o|contracted procedure: k7692 o|contracted procedure: k3589 o|contracted procedure: k7686 o|contracted procedure: k3592 o|contracted procedure: k7680 o|contracted procedure: k3595 o|contracted procedure: k3604 o|contracted procedure: k3630 o|contracted procedure: k3620 o|contracted procedure: k3685 o|contracted procedure: k3709 o|contracted procedure: k3713 o|contracted procedure: k3717 o|contracted procedure: k3732 o|contracted procedure: k3753 o|contracted procedure: k3738 o|contracted procedure: k3745 o|contracted procedure: k3749 o|contracted procedure: k3763 o|contracted procedure: k3767 o|contracted procedure: k3777 o|contracted procedure: k3543 o|contracted procedure: k3539 o|contracted procedure: k3549 o|contracted procedure: k3800 o|contracted procedure: k3818 o|contracted procedure: k3830 o|contracted procedure: k3859 o|contracted procedure: k3855 o|contracted procedure: k3862 o|contracted procedure: k3898 o|contracted procedure: k3875 o|contracted procedure: k3881 o|contracted procedure: k3887 o|contracted procedure: k3904 o|contracted procedure: k3913 o|contracted procedure: k3919 o|contracted procedure: k3932 o|contracted procedure: k3928 o|contracted procedure: k3938 o|contracted procedure: k3955 o|contracted procedure: k3951 o|contracted procedure: k3947 o|contracted procedure: k3961 o|contracted procedure: k3982 o|contracted procedure: k3978 o|contracted procedure: k3974 o|contracted procedure: k3970 o|contracted procedure: k4008 o|contracted procedure: k4016 o|contracted procedure: k4024 o|contracted procedure: k4032 o|contracted procedure: k4050 o|contracted procedure: k4063 o|contracted procedure: k7218 o|contracted procedure: k4074 o|contracted procedure: k7214 o|contracted procedure: k4083 o|contracted procedure: k7196 o|contracted procedure: k4098 o|contracted procedure: k4110 o|contracted procedure: k4119 o|contracted procedure: k4127 o|contracted procedure: k4135 o|contracted procedure: k4143 o|contracted procedure: k4151 o|contracted procedure: k4159 o|contracted procedure: k4167 o|contracted procedure: k4189 o|contracted procedure: k4195 o|contracted procedure: k4198 o|contracted procedure: k4206 o|contracted procedure: k4213 o|contracted procedure: k4219 o|contracted procedure: k4226 o|contracted procedure: k4232 o|contracted procedure: k4240 o|contracted procedure: k4280 o|contracted procedure: k4266 o|contracted procedure: k4273 o|contracted procedure: k4284 o|contracted procedure: k4288 o|contracted procedure: k4294 o|contracted procedure: k4297 o|contracted procedure: k4300 o|contracted procedure: k4306 o|contracted procedure: k4315 o|contracted procedure: k4322 o|contracted procedure: k4328 o|contracted procedure: k4346 o|contracted procedure: k4350 o|contracted procedure: k4382 o|contracted procedure: k4378 o|contracted procedure: k4374 o|contracted procedure: k4386 o|contracted procedure: k4390 o|contracted procedure: k4402 o|contracted procedure: k4415 o|contracted procedure: k4421 o|contracted procedure: k4424 o|contracted procedure: k4445 o|contracted procedure: k4470 o|contracted procedure: k4486 o|contracted procedure: k4476 o|contracted procedure: k4503 o|contracted procedure: k4521 o|contracted procedure: k4527 o|contracted procedure: k4530 o|contracted procedure: k4533 o|contracted procedure: k4536 o|contracted procedure: k4547 o|contracted procedure: k4550 o|contracted procedure: k4556 o|contracted procedure: k4568 o|contracted procedure: k4584 o|contracted procedure: k4580 o|contracted procedure: k4596 o|contracted procedure: k4602 o|contracted procedure: k4621 o|contracted procedure: k4617 o|contracted procedure: k4637 o|contracted procedure: k4645 o|contracted procedure: k4651 o|contracted procedure: k4660 o|contracted procedure: k4676 o|contracted procedure: k4672 o|contracted procedure: k4696 o|contracted procedure: k4704 o|contracted procedure: k4712 o|contracted procedure: k4718 o|contracted procedure: k4727 o|contracted procedure: k4746 o|contracted procedure: k4742 o|contracted procedure: k4770 o|contracted procedure: k4778 o|contracted procedure: k4786 o|contracted procedure: k4794 o|contracted procedure: k4797 o|contracted procedure: k4806 o|contracted procedure: k4826 o|contracted procedure: k4835 o|contracted procedure: k4838 o|contracted procedure: k4845 o|contracted procedure: k4849 o|contracted procedure: k4856 o|contracted procedure: k4865 o|contracted procedure: k4868 o|contracted procedure: k4871 o|contracted procedure: k4879 o|contracted procedure: k4887 o|contracted procedure: k4929 o|contracted procedure: k4956 o|contracted procedure: k4959 o|contracted procedure: k4962 o|contracted procedure: k4970 o|contracted procedure: k4978 o|contracted procedure: k4990 o|contracted procedure: k5012 o|contracted procedure: k5008 o|contracted procedure: k4993 o|contracted procedure: k4996 o|contracted procedure: k5004 o|contracted procedure: k5021 o|contracted procedure: k5024 o|contracted procedure: k5041 o|contracted procedure: k5053 o|contracted procedure: k5037 o|contracted procedure: k5033 o|contracted procedure: k5064 o|contracted procedure: k5092 o|contracted procedure: k5088 o|contracted procedure: k5084 o|contracted procedure: k5101 o|contracted procedure: k5104 o|contracted procedure: k5107 o|contracted procedure: k5115 o|contracted procedure: k5123 o|contracted procedure: k5073 o|contracted procedure: k5077 o|contracted procedure: k5135 o|contracted procedure: k5138 o|contracted procedure: k5141 o|contracted procedure: k5149 o|contracted procedure: k5157 o|contracted procedure: k5050 o|contracted procedure: k5166 o|contracted procedure: k5169 o|contracted procedure: k5172 o|contracted procedure: k5175 o|contracted procedure: k5181 o|contracted procedure: k5184 o|contracted procedure: k5190 o|contracted procedure: k5201 o|contracted procedure: k5225 o|contracted procedure: k5237 o|contracted procedure: k5221 o|contracted procedure: k5217 o|contracted procedure: k5197 o|contracted procedure: k5248 o|contracted procedure: k5268 o|contracted procedure: k5264 o|contracted procedure: k5260 o|contracted procedure: k5313 o|contracted procedure: k5277 o|contracted procedure: k5303 o|contracted procedure: k5307 o|contracted procedure: k5299 o|contracted procedure: k5280 o|contracted procedure: k5283 o|contracted procedure: k5291 o|contracted procedure: k5295 o|contracted procedure: k5361 o|contracted procedure: k5325 o|contracted procedure: k5328 o|contracted procedure: k5331 o|contracted procedure: k5339 o|contracted procedure: k5343 o|contracted procedure: k5351 o|contracted procedure: k5355 o|contracted procedure: k5234 o|contracted procedure: k5373 o|contracted procedure: k5376 o|contracted procedure: k5379 o|contracted procedure: k5387 o|contracted procedure: k5395 o|contracted procedure: k5210 o|contracted procedure: k5407 o|contracted procedure: k5410 o|contracted procedure: k5413 o|contracted procedure: k5421 o|contracted procedure: k5429 o|contracted procedure: k5441 o|contracted procedure: k5463 o|contracted procedure: k5459 o|contracted procedure: k5444 o|contracted procedure: k5447 o|contracted procedure: k5455 o|contracted procedure: k5472 o|contracted procedure: k5478 o|contracted procedure: k5483 o|contracted procedure: k5495 o|contracted procedure: k5498 o|contracted procedure: k5507 o|contracted procedure: k5516 o|contracted procedure: k5538 o|contracted procedure: k5534 o|contracted procedure: k5553 o|contracted procedure: k5559 o|contracted procedure: k5581 o|contracted procedure: k5577 o|contracted procedure: k5600 o|contracted procedure: k5596 o|contracted procedure: k5606 o|contracted procedure: k5628 o|contracted procedure: k5624 o|contracted procedure: k5647 o|contracted procedure: k5643 o|contracted procedure: k5653 o|contracted procedure: k5675 o|contracted procedure: k5671 o|contracted procedure: k5694 o|contracted procedure: k5690 o|contracted procedure: k5700 o|contracted procedure: k5722 o|contracted procedure: k5718 o|contracted procedure: k5737 o|contracted procedure: k5759 o|contracted procedure: k7254 o|contracted procedure: k7269 o|contracted procedure: k7276 o|contracted procedure: k7272 o|contracted procedure: k7283 o|contracted procedure: k7287 o|contracted procedure: k7294 o|inlining procedure: k7291 o|contracted procedure: k5800 o|contracted procedure: k5782 o|contracted procedure: k5792 o|contracted procedure: k5864 o|contracted procedure: k5867 o|contracted procedure: k5870 o|contracted procedure: k5878 o|contracted procedure: k5886 o|contracted procedure: k5924 o|contracted procedure: k5961 o|contracted procedure: k5979 o|contracted procedure: k6013 o|contracted procedure: k6016 o|contracted procedure: k6032 o|contracted procedure: k6035 o|contracted procedure: k6038 o|contracted procedure: k6046 o|contracted procedure: k6054 o|contracted procedure: k5988 o|contracted procedure: k6010 o|contracted procedure: k6063 o|contracted procedure: k6066 o|contracted procedure: k6096 o|contracted procedure: k6099 o|contracted procedure: k6114 o|contracted procedure: k6117 o|contracted procedure: k6154 o|contracted procedure: k6177 o|contracted procedure: k6187 o|contracted procedure: k6191 o|contracted procedure: k6204 o|contracted procedure: k6207 o|contracted procedure: k6210 o|contracted procedure: k6218 o|contracted procedure: k6226 o|contracted procedure: k6075 o|contracted procedure: k6093 o|contracted procedure: k6235 o|contracted procedure: k6238 o|contracted procedure: k6241 o|contracted procedure: k6281 o|contracted procedure: k6271 o|contracted procedure: k6291 o|contracted procedure: k6300 o|contracted procedure: k6311 o|contracted procedure: k6321 o|contracted procedure: k6328 o|contracted procedure: k6332 o|contracted procedure: k6367 o|contracted procedure: k6345 o|contracted procedure: k6360 o|inlining procedure: k6342 o|contracted procedure: k6373 o|contracted procedure: k6380 o|contracted procedure: k6391 o|contracted procedure: k6394 o|contracted procedure: k6411 o|contracted procedure: k6407 o|contracted procedure: k6420 o|contracted procedure: k6423 o|contracted procedure: k6426 o|contracted procedure: k6434 o|contracted procedure: k6442 o|contracted procedure: k6451 o|contracted procedure: k6457 o|contracted procedure: k6761 o|contracted procedure: k6460 o|contracted procedure: k6547 o|contracted procedure: k6556 o|contracted procedure: k6579 o|contracted procedure: k6585 o|contracted procedure: k6591 o|contracted procedure: k6617 o|contracted procedure: k6621 o|contracted procedure: k6667 o|contracted procedure: k6675 o|contracted procedure: k6687 o|contracted procedure: k6696 o|contracted procedure: k6714 o|contracted procedure: k6705 o|contracted procedure: k6720 o|contracted procedure: k6732 o|contracted procedure: k6735 o|contracted procedure: k6738 o|contracted procedure: k6746 o|contracted procedure: k6754 o|contracted procedure: k6767 o|contracted procedure: k6782 o|contracted procedure: k6774 o|contracted procedure: k6788 o|contracted procedure: k6803 o|contracted procedure: k6799 o|contracted procedure: k6795 o|contracted procedure: k6809 o|contracted procedure: k6819 o|contracted procedure: k6825 o|contracted procedure: k6828 o|contracted procedure: k6851 o|contracted procedure: k6854 o|contracted procedure: k6864 o|contracted procedure: k6870 o|contracted procedure: k6877 o|contracted procedure: k6883 o|contracted procedure: k6886 o|contracted procedure: k6895 o|contracted procedure: k6907 o|contracted procedure: k6910 o|contracted procedure: k6925 o|contracted procedure: k6917 o|contracted procedure: k6931 o|contracted procedure: k6943 o|contracted procedure: k6950 o|contracted procedure: k6960 o|contracted procedure: k6967 o|contracted procedure: k6973 o|contracted procedure: k6976 o|contracted procedure: k6988 o|contracted procedure: k7002 o|contracted procedure: k7005 o|contracted procedure: k7037 o|contracted procedure: k7043 o|contracted procedure: k7049 o|contracted procedure: k7055 o|contracted procedure: k7061 o|contracted procedure: k7067 o|contracted procedure: k7073 o|contracted procedure: k7079 o|contracted procedure: k7085 o|contracted procedure: k7192 o|contracted procedure: k7221 o|contracted procedure: k7227 o|contracted procedure: k7239 o|contracted procedure: k7338 o|contracted procedure: k7344 o|contracted procedure: k7353 o|contracted procedure: k7362 o|contracted procedure: k7379 o|contracted procedure: k7401 o|contracted procedure: k7407 o|contracted procedure: k7437 o|contracted procedure: k7443 o|contracted procedure: k7481 o|contracted procedure: k7487 o|contracted procedure: k7533 o|contracted procedure: k7536 o|contracted procedure: k7544 o|contracted procedure: k7563 o|contracted procedure: k7571 o|contracted procedure: k7583 o|contracted procedure: k7586 o|contracted procedure: k7589 o|contracted procedure: k7597 o|contracted procedure: k7605 o|contracted procedure: k7617 o|contracted procedure: k7620 o|contracted procedure: k7623 o|contracted procedure: k7631 o|contracted procedure: k7639 o|contracted procedure: k7315 o|contracted procedure: k7321 o|contracted procedure: k7328 o|contracted procedure: k7332 o|contracted procedure: k7657 o|contracted procedure: k7666 o|contracted procedure: k7673 o|contracted procedure: k7881 o|contracted procedure: k7894 o|contracted procedure: k7911 o|contracted procedure: k7917 o|contracted procedure: k7927 o|contracted procedure: k7939 o|contracted procedure: k7931 o|contracted procedure: k7935 o|contracted procedure: k7945 o|contracted procedure: k7968 o|contracted procedure: k7980 o|contracted procedure: k8000 o|contracted procedure: k7989 o|contracted procedure: k8008 o|contracted procedure: k8011 o|contracted procedure: k8014 o|contracted procedure: k8017 o|contracted procedure: k8020 o|contracted procedure: k8032 o|contracted procedure: k8038 o|contracted procedure: k8057 o|contracted procedure: k8063 o|contracted procedure: k8488 o|contracted procedure: k8503 o|contracted procedure: k9379 o|contracted procedure: k9414 o|contracted procedure: k9389 o|contracted procedure: k9403 o|contracted procedure: k9410 o|contracted procedure: k9426 o|contracted procedure: k9436 o|contracted procedure: k9443 o|contracted procedure: k9449 o|contracted procedure: k9538 o|contracted procedure: k9467 o|contracted procedure: k9482 o|contracted procedure: k9485 o|contracted procedure: k9495 o|contracted procedure: k9498 o|contracted procedure: k949512223 o|contracted procedure: k9505 o|contracted procedure: k949512227 o|contracted procedure: k9512 o|contracted procedure: k949512231 o|contracted procedure: k9519 o|contracted procedure: k949512235 o|contracted procedure: k9527 o|contracted procedure: k9550 o|contracted procedure: k9561 o|contracted procedure: k9974 o|contracted procedure: k9581 o|contracted procedure: k9968 o|contracted procedure: k9584 o|contracted procedure: k9962 o|contracted procedure: k9587 o|contracted procedure: k9956 o|contracted procedure: k9590 o|contracted procedure: k9950 o|contracted procedure: k9593 o|contracted procedure: k9944 o|contracted procedure: k9596 o|contracted procedure: k9938 o|contracted procedure: k9599 o|contracted procedure: k9932 o|contracted procedure: k9602 o|contracted procedure: k9606 o|contracted procedure: k9636 o|removed unused formal parameters: (abrt2266) o|contracted procedure: k9722 o|contracted procedure: k9795 o|contracted procedure: k9805 o|contracted procedure: k9809 o|contracted procedure: k9815 o|removed unused parameter to known procedure: abrt2266 a9674 o|contracted procedure: k9856 o|contracted procedure: k9923 o|contracted procedure: k9880 o|contracted procedure: k9926 o|contracted procedure: k9989 o|contracted procedure: k9983 o|contracted procedure: k10007 o|contracted procedure: k9998 o|contracted procedure: k10071 o|contracted procedure: k10091 o|contracted procedure: k10099 o|contracted procedure: k10129 o|contracted procedure: k10174 o|contracted procedure: k10135 o|contracted procedure: k10168 o|contracted procedure: k10138 o|contracted procedure: k10162 o|contracted procedure: k10141 o|contracted procedure: k10156 o|contracted procedure: k10144 o|contracted procedure: k10201 o|contracted procedure: k10183 o|contracted procedure: k10186 o|contracted procedure: k10195 o|contracted procedure: k10189 o|contracted procedure: k10249 o|contracted procedure: k10267 o|contracted procedure: k10281 o|contracted procedure: k10303 o|contracted procedure: k10309 o|contracted procedure: k10315 o|contracted procedure: k10322 o|contracted procedure: k10341 o|contracted procedure: k10375 o|contracted procedure: k10404 o|contracted procedure: k10407 o|contracted procedure: k10420 o|contracted procedure: k10424 o|contracted procedure: k10428 o|contracted procedure: k10432 o|contracted procedure: k10439 o|contracted procedure: k10463 o|contracted procedure: k10520 o|contracted procedure: k10530 o|contracted procedure: k10534 o|contracted procedure: k10543 o|contracted procedure: k10557 o|contracted procedure: k10546 o|contracted procedure: k10553 o|contracted procedure: k10585 o|contracted procedure: k10595 o|contracted procedure: k10599 o|contracted procedure: k10608 o|contracted procedure: k10622 o|contracted procedure: k10611 o|contracted procedure: k10618 o|contracted procedure: k8451 o|contracted procedure: k8460 o|contracted procedure: k8473 o|contracted procedure: k10645 o|contracted procedure: k10659 o|contracted procedure: k10648 o|contracted procedure: k10655 o|contracted procedure: k10875 o|contracted procedure: k10667 o|contracted procedure: k10869 o|contracted procedure: k10670 o|contracted procedure: k10863 o|contracted procedure: k10673 o|contracted procedure: k10857 o|contracted procedure: k10676 o|contracted procedure: k10851 o|contracted procedure: k10679 o|contracted procedure: k10845 o|contracted procedure: k10682 o|contracted procedure: k10839 o|contracted procedure: k10685 o|contracted procedure: k10833 o|contracted procedure: k10688 o|contracted procedure: k10827 o|contracted procedure: k10691 o|contracted procedure: k10821 o|contracted procedure: k10694 o|contracted procedure: k10700 o|contracted procedure: k10712 o|contracted procedure: k10721 o|contracted procedure: k10730 o|contracted procedure: k10748 o|contracted procedure: k10762 o|contracted procedure: k10758 o|contracted procedure: k10773 o|contracted procedure: k10769 o|contracted procedure: k10779 o|contracted procedure: k10793 o|contracted procedure: k10789 o|contracted procedure: k10804 o|contracted procedure: k10808 o|contracted procedure: k10812 o|contracted procedure: k10800 o|contracted procedure: k10882 o|contracted procedure: k10894 o|contracted procedure: k10918 o|contracted procedure: k10931 o|contracted procedure: k10937 o|inlining procedure: k10928 o|contracted procedure: k10946 o|inlining procedure: k10928 o|contracted procedure: k10978 o|contracted procedure: k10991 o|contracted procedure: k10999 o|contracted procedure: k11142 o|contracted procedure: k11148 o|contracted procedure: k11309 o|contracted procedure: k11318 o|contracted procedure: k11327 o|contracted procedure: k11330 o|contracted procedure: k11333 o|contracted procedure: k11341 o|contracted procedure: k11349 o|contracted procedure: k11364 o|contracted procedure: k11380 o|contracted procedure: k11386 o|contracted procedure: k11395 o|contracted procedure: k11392 o|contracted procedure: k11422 o|contracted procedure: k11430 o|contracted procedure: k11438 o|contracted procedure: k11446 o|contracted procedure: k11462 o|contracted procedure: k11485 o|contracted procedure: k11481 o|contracted procedure: k11516 o|contracted procedure: k11523 o|contracted procedure: k11530 o|contracted procedure: k11655 o|contracted procedure: k11541 o|contracted procedure: k11553 o|contracted procedure: k11556 o|contracted procedure: k11605 o|contracted procedure: k11634 o|contracted procedure: k11648 o|contracted procedure: k11652 o|contracted procedure: k11644 o|simplifications: ((if . 1) (let . 115)) o|removed binding forms: 661 o|contracted procedure: "(eval.scm:1032) dload-path2227" o|replaced variables: 226 o|removed binding forms: 2 o|inlining procedure: k5767 o|simplifications: ((if . 1)) o|replaced variables: 1 o|removed binding forms: 115 o|contracted procedure: k5119 o|contracted procedure: k5153 o|contracted procedure: k5347 o|contracted procedure: k5391 o|removed binding forms: 5 o|direct leaf routine/allocation: loop244 0 o|direct leaf routine/allocation: emit-trace-info200 5 o|direct leaf routine/allocation: emit-syntax-trace-info201 0 o|direct leaf routine/allocation: g947960 0 o|direct leaf routine/allocation: loop1051 0 o|direct leaf routine/allocation: loop1238 0 o|direct leaf routine/allocation: loop2162 0 o|direct leaf routine/allocation: for-each-loop25622590 0 o|direct leaf routine/allocation: for-each-loop26152643 0 o|direct leaf routine/allocation: for-each-loop26682686 0 o|direct leaf routine/allocation: store-string 0 o|contracted procedure: k3691 o|converted assignments to bindings: (loop244) o|contracted procedure: "(eval.scm:193) k4086" o|contracted procedure: "(eval.scm:481) k6180" o|converted assignments to bindings: (loop1051) o|contracted procedure: "(eval.scm:649) k7203" o|contracted procedure: k7347 o|contracted procedure: "(eval.scm:683) k7367" o|contracted procedure: "(eval.scm:687) k7387" o|contracted procedure: "(eval.scm:692) k7418" o|contracted procedure: "(eval.scm:698) k7457" o|contracted procedure: "(eval.scm:705) k7504" o|contracted procedure: "(eval.scm:709) k7552" o|converted assignments to bindings: (loop1238) o|converted assignments to bindings: (loop2162) o|contracted procedure: k10503 o|converted assignments to bindings: (for-each-loop25622590) o|contracted procedure: k10568 o|converted assignments to bindings: (for-each-loop26152643) o|contracted procedure: k10633 o|converted assignments to bindings: (for-each-loop26682686) o|simplifications: ((let . 7)) o|removed binding forms: 14 o|replaced variables: 1 o|removed binding forms: 1 o|direct leaf routine/allocation: for-each-loop946963 0 o|contracted procedure: k6120 o|converted assignments to bindings: (for-each-loop946963) o|simplifications: ((let . 1)) o|removed binding forms: 1 o|customizable procedures: (doloop14831484 k11474 strip1517 k9360 k9369 map-loop23882405 store-result run-safe test2759 loop2773 test-extensions2758 loop1720 for-each-loop26252658 for-each-loop25722605 chicken.load#any g25492550 check2512 loop2521 chicken.load#file-exists? doloop24832484 chicken.load#load-library/internal k10053 loop2424 chicken.load#make-relative-pathname chicken.load#load/internal k9895 dload2228 a9674 for-each-loop23072319 doloop22972298 chicken.load#c-toplevel loop2181 chicken.load#path-separator-index/right loop1733 foldr15231526 loop1498 err1496 g13021311 map-loop12961314 g13301339 map-loop13241342 k6934 g12111212 compile-call206 g10341043 map-loop10281058 k6681 loop1111 loop21116 map-loop9911010 map-loop918936 map-loop883901 map-loop780797 doloop12291230 decorate202 map-loop612629 map-loop639656 map-loop669687 map-loop696717 map-loop729753 map-loop553571 map-loop580601 map-loop417435 map-loop445462 chicken.eval#compile-to-closure g518527 map-loop512530 doloop539540 compile203 k3851 k3824 lookup198 rename197 loop228 g237238 k3610 find-id196) o|calls to known targets: 315 o|identified direct recursive calls: f_3727 1 o|identified direct recursive calls: f_3680 1 o|unused rest argument: v274 f_3795 o|unused rest argument: v295 f_3844 o|unused rest argument: v296 f_3849 o|unused rest argument: v315 f_4011 o|unused rest argument: v316 f_4019 o|unused rest argument: v317 f_4027 o|unused rest argument: v318 f_4035 o|unused rest argument: v319 f_4037 o|unused rest argument: v320 f_4056 o|unused rest argument: v321 f_4058 o|unused rest argument: v337 f_4069 o|unused rest argument: v354 f_4122 o|unused rest argument: v355 f_4130 o|unused rest argument: v356 f_4138 o|unused rest argument: v357 f_4146 o|unused rest argument: v358 f_4154 o|unused rest argument: v359 f_4162 o|unused rest argument: v360 f_4170 o|unused rest argument: v361 f_4172 o|unused rest argument: v363 f_4201 o|identified direct recursive calls: f_4985 1 o|identified direct recursive calls: f_5096 1 o|identified direct recursive calls: f_5130 1 o|identified direct recursive calls: f_5272 1 o|identified direct recursive calls: f_5320 1 o|identified direct recursive calls: f_5368 1 o|identified direct recursive calls: f_5436 1 o|identified direct recursive calls: f_7264 1 o|identified direct recursive calls: f_6172 1 o|identified direct recursive calls: f_6694 1 o|identified direct recursive calls: f_7310 1 o|unused rest argument: _1253 f_7660 o|identified direct recursive calls: f_7876 1 o|identified direct recursive calls: f_7975 1 o|identified direct recursive calls: f_9393 1 o|identified direct recursive calls: f_9477 4 o|identified direct recursive calls: f_10538 1 o|identified direct recursive calls: f_10603 1 o|identified direct recursive calls: f_10640 1 o|fast box initializations: 49 o|fast global references: 71 o|fast global assignments: 31 o|dropping unused closure argument: f_10051 o|dropping unused closure argument: f_10289 o|dropping unused closure argument: f_10538 o|dropping unused closure argument: f_10603 o|dropping unused closure argument: f_10640 o|dropping unused closure argument: f_11018 o|dropping unused closure argument: f_11077 o|dropping unused closure argument: f_11140 o|dropping unused closure argument: f_3572 o|dropping unused closure argument: f_3757 o|dropping unused closure argument: f_3771 o|dropping unused closure argument: f_3781 o|dropping unused closure argument: f_6694 o|dropping unused closure argument: f_7310 o|dropping unused closure argument: f_7966 o|dropping unused closure argument: f_8477 o|dropping unused closure argument: f_9383 o|dropping unused closure argument: f_9418 o|dropping unused closure argument: f_9565 */ /* end of file */ chicken-5.1.0/batch-driver.scm0000644000175000017500000007430413502227553016021 0ustar sjamaansjamaan;;;; batch-driver.scm - Driver procedure for the compiler ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit batch-driver) (uses extras data-structures pathname support compiler-syntax compiler optimizer internal ;; TODO: Backend should be configurable scrutinizer lfa2 c-platform c-backend user-pass)) (module chicken.compiler.batch-driver (compile-source-file) (import scheme chicken.base chicken.fixnum chicken.format chicken.gc chicken.internal chicken.load chicken.pathname chicken.platform chicken.pretty-print chicken.process-context chicken.string chicken.time chicken.compiler.support chicken.compiler.compiler-syntax chicken.compiler.core chicken.compiler.optimizer chicken.compiler.scrutinizer chicken.compiler.lfa2 chicken.compiler.c-platform chicken.compiler.c-backend chicken.compiler.user-pass) (include "tweaks") (include "mini-srfi-1.scm") (define-constant funny-message-timeout 60000) ;;; Emit collected information from various statistics about the program (define (print-program-statistics db) (receive (size osize kvars kprocs globs sites entries) (compute-database-statistics db) (when (debugging 's "program statistics:") (printf "; program size: \t~s \toriginal program size: \t~s\n" size osize) (printf "; variables with known values: \t~s\n" kvars) (printf "; known procedures: \t~s\n" kprocs) (printf "; global variables: \t~s\n" globs) (printf "; known call sites: \t~s\n" sites) (printf "; database entries: \t~s\n" entries) ) ) ) ;;; Initialize analysis database: ;; ;; - Simply marks the symbols directly in the plist. ;; - Does nothing after the first invocation, but we leave it this way to ;; have the option to add default entries for each new db. (define initialize-analysis-database (let ((initial #t)) (lambda () (when initial (for-each (lambda (s) (mark-variable s '##compiler#intrinsic 'standard)) standard-bindings) (for-each (lambda (s) (mark-variable s '##compiler#intrinsic 'extended)) extended-bindings) (for-each (lambda (s) (mark-variable s '##compiler#intrinsic 'internal)) internal-bindings)) (set! initial #f)))) ;;; Display analysis database: (define display-analysis-database (let ((names '((captured . cpt) (assigned . set) (boxed . box) (global . glo) (assigned-locally . stl) (contractable . con) (standard-binding . stb) (simple . sim) (inlinable . inl) (collapsable . col) (removable . rem) (constant . con) (inline-target . ilt) (inline-transient . itr) (undefined . und) (replacing . rpg) (unused . uud) (extended-binding . xtb) (inline-export . ilx) (hidden-refs . hrf) (value-ref . vvf) (customizable . cst) (has-unused-parameters . hup) (boxed-rest . bxr) ) ) (omit #f)) (lambda (db) (unless omit (set! omit (append default-standard-bindings default-extended-bindings internal-bindings) ) ) (hash-table-for-each (lambda (sym plist) (let ([val #f] (lval #f) [pvals #f] [csites '()] [refs '()] ) (unless (memq sym omit) (write sym) (let loop ((es plist)) (if (pair? es) (begin (case (caar es) ((captured assigned boxed global contractable standard-binding assigned-locally collapsable removable undefined replacing unused simple inlinable inline-export has-unused-parameters extended-binding customizable constant boxed-rest hidden-refs) (printf "\t~a" (cdr (assq (caar es) names))) ) ((unknown) (set! val 'unknown) ) ((value) (unless (eq? val 'unknown) (set! val (cdar es))) ) ((local-value) (unless (eq? val 'unknown) (set! lval (cdar es))) ) ((potential-values) (set! pvals (cdar es))) ((replacable home contains contained-in use-expr closure-size rest-parameter captured-variables explicit-rest) (printf "\t~a=~s" (caar es) (cdar es)) ) ((references) (set! refs (cdar es)) ) ((call-sites) (set! csites (cdar es)) ) (else (bomb "Illegal property" (car es))) ) (loop (cdr es)) ) ) ) (when (pair? refs) (printf "\trefs=~s" (length refs))) (when (pair? csites) (printf "\tcss=~s" (length csites))) (cond [(and val (not (eq? val 'unknown))) (printf "\tval=~s" (cons (node-class val) (node-parameters val))) ] [(and lval (not (eq? val 'unknown))) (printf "\tlval=~s" (cons (node-class lval) (node-parameters lval)))]) (when (pair? pvals) (for-each (lambda (pval) (printf "\tpval=~s" (cons (node-class pval) (node-parameters pval)))) pvals)) (newline) ) ) ) db) ) ) ) ;;; Compile a complete source file: (define (compile-source-file filename user-supplied-options . options) (define (option-arg p) (if (null? (cdr p)) (quit-compiling "missing argument to `-~A' option" (car p)) (let ([arg (cadr p)]) (if (symbol? arg) (quit-compiling "invalid argument to `~A' option" arg) arg) ) ) ) (initialize-compiler) (set! explicit-use-flag (memq 'explicit-use options)) (set! emit-debug-info (memq 'debug-info options)) (set! enable-module-registration (not (memq 'no-module-registration options))) (when (memq 'static options) (set! static-extensions #t) (register-feature! 'chicken-compile-static)) (let* ((dynamic (memq 'dynamic options)) (unit (memq 'unit options)) (initforms `((import-for-syntax ,@default-syntax-imports) (##core#declare ,@(append default-declarations (if emit-debug-info '((uses debugger-client)) '()) (if explicit-use-flag '() `((uses ,@default-units))) (if (and static-extensions enable-module-registration (not dynamic) (not unit) (not explicit-use-flag)) '((uses eval-modules)) '()))) ,@(if explicit-use-flag '() `((import ,@default-imports))))) (verbose (memq 'verbose options)) (outfile (cond ((memq 'output-file options) => (lambda (node) (let ((oname (option-arg node))) (if (symbol? oname) (symbol->string oname) oname) ) ) ) ((memq 'to-stdout options) #f) (else (make-pathname #f (if filename (pathname-file filename) "out") "c")) ) ) (ipath (map chop-separator (##sys#split-path (or (get-environment-variable "CHICKEN_INCLUDE_PATH") "")))) (opasses (default-optimization-passes)) (time0 #f) (time-breakdown #f) (forms '()) (inline-output-file #f) (type-output-file #f) (cleanup-forms '(((chicken.base#implicit-exit-handler)))) (profile (or (memq 'profile options) (memq 'accumulate-profile options) (memq 'profile-name options))) (profile-name (and-let* ((pn (memq 'profile-name options))) (cadr pn))) (hsize (memq 'heap-size options)) (kwstyle (memq 'keyword-style options)) (loop/dispatch (memq 'clustering options)) (a-only (memq 'analyze-only options)) (do-scrutinize #t) (do-lfa2 (memq 'lfa2 options)) (dumpnodes #f) (start-time #f) (upap #f) (ssize (or (memq 'nursery options) (memq 'stack-size options))) (module-name (and-let* ((m (memq 'module options))) (option-arg m)))) (define (cputime) (current-milliseconds)) (define (dribble fstr . args) (debugging 'p (apply sprintf fstr args))) (define (print-header mode dbgmode) (debugging 'p "pass" mode) (and (memq dbgmode debugging-chicken) (begin (printf "[~a]~%" mode) #t) ) ) (define (print-node mode dbgmode n) (when (print-header mode dbgmode) (if dumpnodes (dump-nodes n) (pretty-print (build-expression-tree n)) ) ) ) (define (print-db mode dbgmode db pass) (when (print-header mode dbgmode) (printf "(iteration ~s)~%" pass) (display-analysis-database db) ) ) (define (print-expr mode dbgmode xs) (when (print-header mode dbgmode) (for-each (lambda (x) (pretty-print x) (newline)) xs) ) ) (define (arg-val str) (let* ((len (string-length str)) (len1 (- len 1)) ) (or (if (< len 2) (string->number str) (case (string-ref str len1) ((#\m #\M) (* (string->number (substring str 0 len1)) (* 1024 1024))) ((#\k #\K) (* (string->number (substring str 0 len1)) 1024)) (else (string->number str)) ) ) (quit-compiling "invalid numeric argument ~S" str) ) ) ) (define (collect-options opt) (let loop ([opts options]) (cond [(memq opt opts) => (lambda (p) (cons (option-arg p) (loop (cddr p))))] [else '()] ) ) ) (define (begin-time) (when time-breakdown (set! time0 (cputime))) ) (define (end-time pass) (when time-breakdown (printf "milliseconds needed for ~a: \t~s~%" pass (inexact->exact (round (- (cputime) time0)) ) ))) (define (analyze pass node . args) (let-optionals args ((no 0) (contf #t)) (let ((db (analyze-expression node))) (when upap (upap pass db node (cut db-get db <> <>) (cut db-put! db <> <> <>) no contf) ) db) ) ) (when unit (set! unit-name (string->symbol (option-arg unit)))) (when (or unit-name dynamic) (set! standalone-executable #f)) (when (memq 'ignore-repository options) (set! ##sys#dload-disabled #t) (repository-path #f)) (set! enable-specialization (memq 'specialize options)) (set! debugging-chicken (append-map (lambda (do) (map (lambda (c) (string->symbol (string c))) (string->list do) ) ) (collect-options 'debug) ) ) (when (memq 'h debugging-chicken) (print-debug-options) (exit)) (set! dumpnodes (memq '|D| debugging-chicken)) (set! import-libraries (map (lambda (il) (cons (string->symbol il) (string-append il ".import.scm"))) (collect-options 'emit-import-library))) (when (and (memq 'emit-all-import-libraries options) (not a-only)) (set! all-import-libraries #t)) (when enable-specialization (set! do-scrutinize #t)) (when (memq 't debugging-chicken) (##sys#start-timer)) (when (memq 'b debugging-chicken) (set! time-breakdown #t)) (when (memq 'raw options) (set! explicit-use-flag #t) (set! cleanup-forms '()) (set! initforms '()) ) (when (memq 'no-lambda-info options) (set! emit-closure-info #f) ) (when (memq 'no-compiler-syntax options) (set! compiler-syntax-enabled #f)) (when (memq 'local options) (set! local-definitions #t)) (when (memq 'inline-global options) (set! enable-inline-files #t) (set! inline-locally #t)) (when verbose (set! ##sys#notices-enabled #t)) (when (memq 'strict-types options) (set! strict-variable-types #t) (set! enable-specialization #t)) (when (memq 'no-warnings options) (dribble "Warnings are disabled") (set! ##sys#warnings-enabled #f) (set! do-scrutinize #f)) ; saves some processing time (when (memq 'optimize-leaf-routines options) (set! optimize-leaf-routines #t)) (when (memq 'unsafe options) (set! unsafe #t) ) (when (memq 'setup-mode options) (set! ##sys#setup-mode #t)) (when (memq 'regenerate-import-libraries options) (set! preserve-unchanged-import-libraries #f)) (when (memq 'disable-interrupts options) (set! insert-timer-checks #f)) (when (memq 'fixnum-arithmetic options) (set! number-type 'fixnum)) (when (memq 'block options) (set! block-compilation #t)) (when (memq 'emit-external-prototypes-first options) (set! external-protos-first #t)) (when (memq 'inline options) (set! inline-locally #t)) (and-let* ((elf (memq 'emit-link-file options))) (set! emit-link-file (option-arg elf))) (and-let* ((ifile (memq 'emit-inline-file options))) (set! inline-locally #t) ; otherwise this option makes no sense (set! local-definitions #t) (set! inline-output-file (option-arg ifile))) (and-let* ((tfile (memq 'emit-types-file options))) (set! type-output-file (option-arg tfile))) (and-let* ([inlimit (memq 'inline-limit options)]) (set! inline-max-size (let ([arg (option-arg inlimit)]) (or (string->number arg) (quit-compiling "invalid argument to `-inline-limit' option: `~A'" arg) ) ) ) ) (when (memq 'case-insensitive options) (dribble "Identifiers and symbols are case insensitive") (register-feature! 'case-insensitive) (case-sensitive #f) ) (when kwstyle (let ([val (option-arg kwstyle)]) (cond [(string=? "prefix" val) (keyword-style #:prefix)] [(string=? "none" val) (keyword-style #:none)] [(string=? "suffix" val) (keyword-style #:suffix)] [else (quit-compiling "invalid argument to `-keyword-style' option")] ) ) ) (when (memq 'no-parentheses-synonyms options) (dribble "Disabled support for parentheses synonyms") (parentheses-synonyms #f) ) (when (memq 'no-symbol-escape options) (dribble "Disabled support for escaped symbols") (symbol-escape #f) ) (when (memq 'r5rs-syntax options) (dribble "Disabled the CHICKEN extensions to R5RS syntax") (case-sensitive #f) (keyword-style #:none) (parentheses-synonyms #f) (symbol-escape #f) ) (set! verbose-mode verbose) (set! ##sys#read-error-with-line-number #t) (set! ##sys#include-pathnames (append (map chop-separator (collect-options 'include-path)) ##sys#include-pathnames ipath) ) (when (and outfile filename (string=? outfile filename)) (quit-compiling "source- and output-filename are the same") ) (when (memq 'keep-shadowed-macros options) (set! undefine-shadowed-macros #f) ) (when (memq 'no-argc-checks options) (set! no-argc-checks #t) ) (when (memq 'no-bound-checks options) (set! no-bound-checks #t) ) (when (memq 'no-procedure-checks options) (set! no-procedure-checks #t) ) (when (memq 'no-procedure-checks-for-toplevel-bindings options) (set! no-global-procedure-checks #t) ) (when (memq 'no-procedure-checks-for-usual-bindings options) (for-each (lambda (v) (mark-variable v '##compiler#always-bound-to-procedure) (mark-variable v '##compiler#always-bound) ) default-standard-bindings) (for-each (lambda (v) (mark-variable v '##compiler#always-bound-to-procedure) (mark-variable v '##compiler#always-bound) ) default-extended-bindings) ) (when (memq 'p debugging-chicken) (load-verbose #t)) ;; Handle feature options: (for-each register-feature! (append-map (cut string-split <> ", ") (collect-options 'feature))) (for-each unregister-feature! (append-map (cut string-split <> ",") (collect-options 'no-feature))) ;; Load extensions: (set! ##sys#features (cons #:compiler-extension ##sys#features)) (let ([extends (collect-options 'extend)]) (dribble "Loading compiler extensions...") (for-each (lambda (e) (let ((f (##sys#resolve-include-filename e #f #t #f))) (when (not f) (quit-compiling "cannot load extension: ~a" e)) (load f))) extends) ) (set! ##sys#features (delete #:compiler-extension ##sys#features eq?)) (set! ##sys#features (cons '#:compiling ##sys#features)) (set! upap (user-post-analysis-pass)) ;; Handle units added with the "-uses" flag. (let ((uses (append-map (lambda (u) (map string->symbol (string-split u ", "))) (collect-options 'uses)))) (unless (null? uses) (set! forms (cons `(##core#declare (uses . ,uses)) forms)))) ;; Append required extensions to initforms: (set! initforms (append initforms (map (lambda (r) `(import ,(string->symbol r))) (collect-options 'require-extension)))) (when (memq 'compile-syntax options) (set! ##sys#enable-runtime-macros #t) ) (set! target-heap-size (and hsize (arg-val (option-arg hsize)))) (set! target-stack-size (and ssize (arg-val (option-arg ssize)))) (set! emit-trace-info (not (memq 'no-trace options))) (set! disable-stack-overflow-checking (memq 'disable-stack-overflow-checks options)) (set! bootstrap-mode (feature? #:chicken-bootstrap)) (when (memq 'm debugging-chicken) (set-gc-report! #t)) (cond ((memq 'no-usual-integrations options) (set! do-scrutinize #f)) (else (set! standard-bindings default-standard-bindings) (set! extended-bindings default-extended-bindings) )) (dribble "debugging info: ~A" (if emit-trace-info "calltrace" "none") ) (when profile (let ((acc (eq? 'accumulate-profile (car profile)))) (when (and acc (not profile-name)) (quit-compiling "you need to specify -profile-name if using accumulated profiling runs")) (set! emit-profile #t) (set! profiled-procedures 'all) (set! initforms (append initforms default-profiling-declarations (if acc '((set! ##sys#profile-append-mode #t)) '() ) ) ) (dribble "generating ~aprofiled code" (if acc "accumulative " "")) )) ;;XXX hardcoded "modules.db" is bad (also used in chicken-install.scm) (load-identifier-database "modules.db") (cond ((memq 'version options) (print-version #t) (newline) ) ((or (memq 'help options) (memq '-help options) (memq 'h options) (memq '-h options)) (print-usage)) ((memq 'release options) (display (chicken-version)) (newline) ) ((not filename) (print-version #t) (display "\nEnter `chicken -help' for information on how to use the compiler,\n") (display "or try `csc' for a more convenient interface.\n") (display "\nRun `csi' to start the interactive interpreter.\n")) (else ;; Display header: (dribble "compiling `~a' ..." filename) (debugging 'r "options" options) (debugging 'r "debugging options" debugging-chicken) (debugging 'r "target heap size" target-heap-size) (debugging 'r "target stack size" target-stack-size) (set! start-time (cputime)) ;; Read toplevel expressions: (set! ##sys#line-number-database (make-vector line-number-database-size '())) (let ([prelude (collect-options 'prelude)] [postlude (collect-options 'postlude)] [files (append (collect-options 'prologue) (list filename) (collect-options 'epilogue) ) ] ) (let ([proc (user-read-pass)]) (cond [proc (dribble "User read pass...") (set! forms (proc prelude files postlude)) ] [else (do ([files files (cdr files)]) ((null? files) (set! forms (append (map string->expr prelude) (reverse forms) (map string->expr postlude) ) ) ) (let* ((f (car files)) (in (check-and-open-input-file f)) ) (fluid-let ((##sys#current-source-filename f)) (let loop () (let ((x (read/source-info in))) (cond ((eof-object? x) (close-checked-input-file in f) ) (else (set! forms (cons x forms)) (loop)))))))) ] ) ) ) ;; Start compilation passes: (let ([proc (user-preprocessor-pass)]) (when proc (dribble "User preprocessing pass...") (set! forms (map proc forms)))) (print-expr "source" '|1| forms) (begin-time) ;; Canonicalize s-expressions (let* ((exps0 (map (lambda (x) (fluid-let ((##sys#current-source-filename filename)) (canonicalize-expression x))) (let ((forms (append initforms forms))) (if (not module-name) forms `((##core#module ,(string->symbol module-name) () ,@forms)))))) (exps (append (map (lambda (ic) `(set! ,(cdr ic) ',(car ic))) immutable-constants) (map (lambda (uu) `(##core#callunit ,uu)) used-units) (if unit-name `((##core#provide ,unit-name)) '()) (if emit-profile (profiling-prelude-exps (and (not unit-name) (or profile-name #t))) '() ) exps0 (if standalone-executable cleanup-forms '((##core#undefined)))))) (unless (null? import-libraries) (quit-compiling "No module definition found for import libraries to emit: ~A" ;; ~S would be confusing: separate with a comma (string-intersperse (map (lambda (il) (->string (car il))) import-libraries) ", "))) (and-let* ((reqs (hash-table-ref file-requirements 'dynamic)) (missing (remove (cut chicken.load#find-dynamic-extension <> #f) reqs))) (when (null? (lset-intersection/eq? '(eval repl) used-units)) (notice ; XXX only issued when "-verbose" is used (sprintf "~A has dynamic requirements but doesn't load (chicken eval): ~A" (cond (unit-name "unit") (dynamic "library") (else "program")) (string-intersperse (map ->string reqs) ", ")))) (when (pair? missing) (warning (sprintf "the following extensions are not currently installed: ~A" (string-intersperse (map ->string missing) ", "))))) (when (pair? compiler-syntax-statistics) (with-debugging-output 'S (lambda () (print "applied compiler syntax:") (for-each (lambda (cs) (printf " ~a\t\t~a~%" (car cs) (cdr cs))) compiler-syntax-statistics)))) (when (debugging '|N| "real name table:") (display-real-name-table) ) (when (debugging 'n "line number database:") (display-line-number-database) ) (set! ##sys#line-number-database line-number-database-2) (set! line-number-database-2 #f) (end-time "canonicalization") (print-expr "canonicalized" '|2| exps) (when (memq 'check-syntax options) (exit)) ;; User-defined pass (s-expressions) (let ([proc (user-pass)]) (when proc (dribble "User pass...") (begin-time) (set! exps (map proc exps)) (end-time "user pass") ) ) ;; Convert s-expressions to node tree (let ((node0 (build-toplevel-procedure (build-node-graph (canonicalize-begin-body exps)))) (db #f)) (print-node "initial node tree" '|T| node0) (initialize-analysis-database) ;; collect requirements and load inline files (let* ((req (concatenate (vector->list file-requirements))) (mreq (concatenate (map cdr req)))) (when (debugging 'M "; requirements:") (pp req)) (when enable-inline-files (for-each (lambda (id) (and-let* ((ifile (##sys#resolve-include-filename (symbol->string id) '(".inline") #t #f))) (dribble "Loading inline file ~a ..." ifile) (load-inline-file ifile))) mreq)) (let ((ifs (collect-options 'consult-inline-file))) (unless (null? ifs) (set! inline-locally #t) (for-each (lambda (ilf) (dribble "Loading inline file ~a ..." ilf) (load-inline-file ilf) ) ifs))) ;; Perform scrutiny and optionally specialization (when (or do-scrutinize enable-specialization) ;;XXX hardcoded database file name (unless (memq 'ignore-repository options) (unless (load-type-database "types.db" enable-specialization) (quit-compiling "default type-database `types.db' not found"))) (for-each (lambda (fn) (or (load-type-database fn enable-specialization #f) (quit-compiling "type-database `~a' not found" fn))) (collect-options 'consult-types-file)) (for-each (lambda (id) (load-type-database (make-pathname #f (symbol->string id) "types") enable-specialization)) mreq) (begin-time) (set! first-analysis #f) (set! db (analyze 'scrutiny node0)) (print-db "analysis" '|0| db 0) (end-time "pre-analysis (scrutiny)") (begin-time) (debugging 'p "performing scrutiny") (scrutinize node0 db do-scrutinize enable-specialization strict-variable-types block-compilation) (end-time "scrutiny") (when enable-specialization (print-node "specialization" '|P| node0)) (set! first-analysis #t) ) ) ;; TODO: Move this so that we don't need to export these (set! ##sys#line-number-database #f) (set! constant-table #f) (set! inline-table #f) ;; Analyze toplevel assignments (unless unsafe (scan-toplevel-assignments (first (node-subexpressions node0))) ) (begin-time) ;; Convert to CPS (let ([node1 (perform-cps-conversion node0)]) (end-time "cps conversion") (print-node "cps" '|3| node1) ;; Optimization loop: (let loop ((i 1) (node2 node1) (progress #t) (l/d #f) (l/d-done #f)) (begin-time) ;; Analyze node tree for optimization (let ([db (analyze 'opt node2 i progress)]) (when first-analysis (when (memq 'u debugging-chicken) (dump-undefined-globals db)) (when (memq 'd debugging-chicken) (dump-defined-globals db)) (when (memq 'v debugging-chicken) (dump-global-refs db)) ;; do this here, because we must make sure we have a db (when type-output-file (dribble "generating type file `~a' ..." type-output-file) (emit-types-file filename type-output-file db block-compilation))) (set! first-analysis #f) (end-time "analysis") (print-db "analysis" '|4| db i) (when (memq 's debugging-chicken) (print-program-statistics db)) ;; Optimize (once) (cond (progress (debugging 'p "optimization pass" i) (begin-time) (receive (node2 progress-flag) (if l/d (determine-loop-and-dispatch node2 db) (perform-high-level-optimizations node2 db block-compilation inline-locally inline-max-size inline-substitutions-enabled)) (end-time "optimization") (print-node "optimized-iteration" '|5| node2) (cond (progress-flag (loop (add1 i) node2 #t #f l/d)) ((and (not l/d-done) loop/dispatch) (debugging 'p "clustering enabled") (loop (add1 i) node2 #t #t #t)) ((not inline-substitutions-enabled) (debugging 'p "rewritings enabled") (set! inline-substitutions-enabled #t) (loop (add1 i) node2 #t #f l/d-done) ) (optimize-leaf-routines (begin-time) (let ([db (analyze 'leaf node2)]) (end-time "analysis") (begin-time) (let ((progress (transform-direct-lambdas! node2 db))) (end-time "leaf routine optimization") (loop (add1 i) node2 progress #f l/d-done) ) ) ) (else (loop (add1 i) node2 #f #f l/d-done)) ) ) ) (else ;; Secondary flow-analysis (when do-lfa2 (begin-time) (debugging 'p "doing lfa2") (let ((floatvars (perform-secondary-flow-analysis node2 db))) (end-time "secondary flow analysis") (unless (null? floatvars) (begin-time) (debugging 'p "doing unboxing") (set! node2 (perform-unboxing node2 floatvars))) (end-time "unboxing"))) (print-node "optimized" '|7| node2) ;; inlining into a file with interrupts enabled would ;; change semantics (when (and inline-output-file insert-timer-checks) (let ((f inline-output-file)) (dribble "generating global inline file `~a' ..." f) (emit-global-inline-file filename f db block-compilation inline-max-size) ) ) (begin-time) ;; Closure conversion (set! node2 (perform-closure-conversion node2 db)) (end-time "closure conversion") (print-db "final-analysis" '|8| db i) (when (and ##sys#warnings-enabled (> (- (cputime) start-time) funny-message-timeout)) (display "(don't worry - still compiling...)\n") ) (print-node "closure-converted" '|9| node2) (when a-only (exit 0)) (begin-time) ;; Preparation (receive (node literals lliterals lambda-table dbg-info) (prepare-for-code-generation node2 db) (end-time "preparation") (begin-time) ;; generate link file (when emit-link-file (dribble "generating link file `~a' ..." emit-link-file) (with-output-to-file emit-link-file (cut pp linked-static-extensions))) ;; Code generation (let ((out (if outfile (open-output-file outfile) (current-output-port))) ) (dribble "generating `~A' ..." outfile) (generate-code literals lliterals lambda-table out filename user-supplied-options dynamic db dbg-info) (when outfile (close-output-port out))) (end-time "code generation") (when (memq 't debugging-chicken) (##sys#display-times (##sys#stop-timer))) (compiler-cleanup-hook) (dribble "compilation finished.") ) ) ) ) ) ) ) ) ) ) ) ) ) chicken-5.1.0/chicken.errno.import.scm0000644000175000017500000000376013502227763017511 0ustar sjamaansjamaan;;;; chicken.errno.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.errno 'posix (scheme#list) '((errno/xdev . chicken.errno#errno/xdev) (errno/wouldblock . chicken.errno#errno/wouldblock) (errno/srch . chicken.errno#errno/srch) (errno/spipe . chicken.errno#errno/spipe) (errno/rofs . chicken.errno#errno/rofs) (errno/range . chicken.errno#errno/range) (errno/pipe . chicken.errno#errno/pipe) (errno/perm . chicken.errno#errno/perm) (errno/nxio . chicken.errno#errno/nxio) (errno/notty . chicken.errno#errno/notty) (errno/notempty . chicken.errno#errno/notempty) (errno/notdir . chicken.errno#errno/notdir) (errno/nosys . chicken.errno#errno/nosys) (errno/nospc . chicken.errno#errno/nospc) (errno/nomem . chicken.errno#errno/nomem) (errno/nolck . chicken.errno#errno/nolck) (errno/noexec . chicken.errno#errno/noexec) (errno/noent . chicken.errno#errno/noent) (errno/nodev . chicken.errno#errno/nodev) (errno/nfile . chicken.errno#errno/nfile) (errno/nametoolong . chicken.errno#errno/nametoolong) (errno/mlink . chicken.errno#errno/mlink) (errno/mfile . chicken.errno#errno/mfile) (errno/isdir . chicken.errno#errno/isdir) (errno/io . chicken.errno#errno/io) (errno/inval . chicken.errno#errno/inval) (errno/intr . chicken.errno#errno/intr) (errno/ilseq . chicken.errno#errno/ilseq) (errno/fbig . chicken.errno#errno/fbig) (errno/fault . chicken.errno#errno/fault) (errno/exist . chicken.errno#errno/exist) (errno/dom . chicken.errno#errno/dom) (errno/deadlk . chicken.errno#errno/deadlk) (errno/child . chicken.errno#errno/child) (errno/busy . chicken.errno#errno/busy) (errno/badf . chicken.errno#errno/badf) (errno/again . chicken.errno#errno/again) (errno/acces . chicken.errno#errno/acces) (errno/2big . chicken.errno#errno/2big) (errno . chicken.errno#errno)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/egg-environment.scm0000644000175000017500000001302313502227553016542 0ustar sjamaansjamaan;;; environment settings for egg compilation ; ; Copyright (c) 2017-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (foreign-declare #<string binary-version))) (define target-run-repo (string-append default-runlibdir "/chicken/" (number->string binary-version))) (define +egg-info-extension+ "egg-info") (define +version-file+ "VERSION") (define +timestamp-file+ "TIMESTAMP") (define +status-file+ "STATUS") (define +egg-extension+ "egg") (define (validate-environment) (let ((var (get-environment-variable "CHICKEN_INSTALL_REPOSITORY"))) (unless (or (not var) (absolute-pathname? var)) (error "CHICKEN_INSTALL_REPOSITORY must be an absolute pathname" var)))) (define (destination-repository mode #!optional run) (if (eq? 'target mode) (if run target-run-repo target-repo) (or (get-environment-variable "CHICKEN_INSTALL_REPOSITORY") host-repo))) (define (probe-dir dir) (and dir (directory-exists? dir) dir)) (define cache-directory (or (get-environment-variable "CHICKEN_EGG_CACHE") (make-pathname (or (system-cache-directory) (current-directory)) "chicken-install"))) chicken-5.1.0/compiler-syntax.c0000644000175000017500000065635113502227754016260 0ustar sjamaansjamaan/* Generated from compiler-syntax.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: compiler-syntax.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.compiler-syntax -output-file compiler-syntax.c unit: compiler-syntax uses: library eval expand extras support compiler */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_support_toplevel) C_externimport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_compiler_toplevel) C_externimport void C_ccall C_compiler_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[105]; static double C_possibly_force_alignment; C_noret_decl(f_1679) static void C_ccall f_1679(C_word c,C_word *av) C_noret; C_noret_decl(f_1682) static void C_ccall f_1682(C_word c,C_word *av) C_noret; C_noret_decl(f_1685) static void C_ccall f_1685(C_word c,C_word *av) C_noret; C_noret_decl(f_1688) static void C_ccall f_1688(C_word c,C_word *av) C_noret; C_noret_decl(f_1691) static void C_ccall f_1691(C_word c,C_word *av) C_noret; C_noret_decl(f_1694) static void C_ccall f_1694(C_word c,C_word *av) C_noret; C_noret_decl(f_2775) static void C_fcall f_2775(C_word t0,C_word t1) C_noret; C_noret_decl(f_2781) static C_word C_fcall f_2781(C_word t0,C_word t1,C_word t2); C_noret_decl(f_2975) static void C_ccall f_2975(C_word c,C_word *av) C_noret; C_noret_decl(f_2979) static void C_ccall f_2979(C_word c,C_word *av) C_noret; C_noret_decl(f_2983) static void C_ccall f_2983(C_word c,C_word *av) C_noret; C_noret_decl(f_2987) static void C_fcall f_2987(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2992) static void C_fcall f_2992(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3001) static void C_fcall f_3001(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3011) static void C_ccall f_3011(C_word c,C_word *av) C_noret; C_noret_decl(f_3026) static void C_ccall f_3026(C_word c,C_word *av) C_noret; C_noret_decl(f_3030) static void C_ccall f_3030(C_word c,C_word *av) C_noret; C_noret_decl(f_3034) static void C_ccall f_3034(C_word c,C_word *av) C_noret; C_noret_decl(f_3041) static void C_ccall f_3041(C_word c,C_word *av) C_noret; C_noret_decl(f_3044) static void C_ccall f_3044(C_word c,C_word *av) C_noret; C_noret_decl(f_3047) static void C_ccall f_3047(C_word c,C_word *av) C_noret; C_noret_decl(f_3050) static void C_ccall f_3050(C_word c,C_word *av) C_noret; C_noret_decl(f_3053) static void C_ccall f_3053(C_word c,C_word *av) C_noret; C_noret_decl(f_3056) static void C_ccall f_3056(C_word c,C_word *av) C_noret; C_noret_decl(f_3058) static void C_fcall f_3058(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_3064) static void C_ccall f_3064(C_word c,C_word *av) C_noret; C_noret_decl(f_3086) static void C_fcall f_3086(C_word t0,C_word t1) C_noret; C_noret_decl(f_3089) static void C_ccall f_3089(C_word c,C_word *av) C_noret; C_noret_decl(f_3092) static void C_fcall f_3092(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3096) static void C_ccall f_3096(C_word c,C_word *av) C_noret; C_noret_decl(f_3099) static void C_ccall f_3099(C_word c,C_word *av) C_noret; C_noret_decl(f_3109) static void C_ccall f_3109(C_word c,C_word *av) C_noret; C_noret_decl(f_3115) static void C_ccall f_3115(C_word c,C_word *av) C_noret; C_noret_decl(f_3118) static void C_ccall f_3118(C_word c,C_word *av) C_noret; C_noret_decl(f_3121) static void C_ccall f_3121(C_word c,C_word *av) C_noret; C_noret_decl(f_3124) static void C_ccall f_3124(C_word c,C_word *av) C_noret; C_noret_decl(f_3127) static void C_ccall f_3127(C_word c,C_word *av) C_noret; C_noret_decl(f_3130) static void C_ccall f_3130(C_word c,C_word *av) C_noret; C_noret_decl(f_3133) static void C_ccall f_3133(C_word c,C_word *av) C_noret; C_noret_decl(f_3136) static void C_ccall f_3136(C_word c,C_word *av) C_noret; C_noret_decl(f_3140) static void C_ccall f_3140(C_word c,C_word *av) C_noret; C_noret_decl(f_3143) static void C_ccall f_3143(C_word c,C_word *av) C_noret; C_noret_decl(f_3149) static void C_ccall f_3149(C_word c,C_word *av) C_noret; C_noret_decl(f_3152) static void C_ccall f_3152(C_word c,C_word *av) C_noret; C_noret_decl(f_3155) static void C_ccall f_3155(C_word c,C_word *av) C_noret; C_noret_decl(f_3164) static void C_ccall f_3164(C_word c,C_word *av) C_noret; C_noret_decl(f_3167) static void C_ccall f_3167(C_word c,C_word *av) C_noret; C_noret_decl(f_3170) static void C_ccall f_3170(C_word c,C_word *av) C_noret; C_noret_decl(f_3172) static C_word C_fcall f_3172(C_word t0); C_noret_decl(f_3182) static void C_fcall f_3182(C_word t0,C_word t1) C_noret; C_noret_decl(f_3201) static void C_fcall f_3201(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3232) static void C_ccall f_3232(C_word c,C_word *av) C_noret; C_noret_decl(f_3239) static C_word C_fcall f_3239(C_word *a,C_word t0,C_word t1); C_noret_decl(f_3249) static void C_fcall f_3249(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3259) static void C_ccall f_3259(C_word c,C_word *av) C_noret; C_noret_decl(f_3262) static void C_ccall f_3262(C_word c,C_word *av) C_noret; C_noret_decl(f_3285) static void C_ccall f_3285(C_word c,C_word *av) C_noret; C_noret_decl(f_3314) static void C_ccall f_3314(C_word c,C_word *av) C_noret; C_noret_decl(f_3320) static void C_ccall f_3320(C_word c,C_word *av) C_noret; C_noret_decl(f_3337) static void C_ccall f_3337(C_word c,C_word *av) C_noret; C_noret_decl(f_3354) static void C_ccall f_3354(C_word c,C_word *av) C_noret; C_noret_decl(f_3371) static void C_ccall f_3371(C_word c,C_word *av) C_noret; C_noret_decl(f_3392) static void C_ccall f_3392(C_word c,C_word *av) C_noret; C_noret_decl(f_3413) static void C_ccall f_3413(C_word c,C_word *av) C_noret; C_noret_decl(f_3434) static void C_ccall f_3434(C_word c,C_word *av) C_noret; C_noret_decl(f_3456) static void C_ccall f_3456(C_word c,C_word *av) C_noret; C_noret_decl(f_3459) static void C_ccall f_3459(C_word c,C_word *av) C_noret; C_noret_decl(f_3510) static void C_fcall f_3510(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3582) static void C_ccall f_3582(C_word c,C_word *av) C_noret; C_noret_decl(f_3589) static void C_ccall f_3589(C_word c,C_word *av) C_noret; C_noret_decl(f_3593) static void C_ccall f_3593(C_word c,C_word *av) C_noret; C_noret_decl(f_3607) static void C_ccall f_3607(C_word c,C_word *av) C_noret; C_noret_decl(f_3615) static void C_ccall f_3615(C_word c,C_word *av) C_noret; C_noret_decl(f_3618) static void C_ccall f_3618(C_word c,C_word *av) C_noret; C_noret_decl(f_3620) static void C_ccall f_3620(C_word c,C_word *av) C_noret; C_noret_decl(f_3639) static void C_ccall f_3639(C_word c,C_word *av) C_noret; C_noret_decl(f_3642) static void C_ccall f_3642(C_word c,C_word *av) C_noret; C_noret_decl(f_3645) static void C_ccall f_3645(C_word c,C_word *av) C_noret; C_noret_decl(f_3648) static void C_ccall f_3648(C_word c,C_word *av) C_noret; C_noret_decl(f_3651) static void C_ccall f_3651(C_word c,C_word *av) C_noret; C_noret_decl(f_3654) static void C_ccall f_3654(C_word c,C_word *av) C_noret; C_noret_decl(f_3657) static void C_ccall f_3657(C_word c,C_word *av) C_noret; C_noret_decl(f_3736) static void C_ccall f_3736(C_word c,C_word *av) C_noret; C_noret_decl(f_3755) static void C_ccall f_3755(C_word c,C_word *av) C_noret; C_noret_decl(f_3758) static void C_ccall f_3758(C_word c,C_word *av) C_noret; C_noret_decl(f_3761) static void C_ccall f_3761(C_word c,C_word *av) C_noret; C_noret_decl(f_3764) static void C_ccall f_3764(C_word c,C_word *av) C_noret; C_noret_decl(f_3767) static void C_ccall f_3767(C_word c,C_word *av) C_noret; C_noret_decl(f_3770) static void C_ccall f_3770(C_word c,C_word *av) C_noret; C_noret_decl(f_3841) static void C_ccall f_3841(C_word c,C_word *av) C_noret; C_noret_decl(f_3845) static void C_ccall f_3845(C_word c,C_word *av) C_noret; C_noret_decl(f_3854) static void C_ccall f_3854(C_word c,C_word *av) C_noret; C_noret_decl(f_3864) static void C_ccall f_3864(C_word c,C_word *av) C_noret; C_noret_decl(f_3881) static void C_ccall f_3881(C_word c,C_word *av) C_noret; C_noret_decl(f_3885) static void C_ccall f_3885(C_word c,C_word *av) C_noret; C_noret_decl(f_3888) static void C_ccall f_3888(C_word c,C_word *av) C_noret; C_noret_decl(f_3898) static void C_ccall f_3898(C_word c,C_word *av) C_noret; C_noret_decl(f_3910) static void C_ccall f_3910(C_word c,C_word *av) C_noret; C_noret_decl(f_3922) static void C_ccall f_3922(C_word c,C_word *av) C_noret; C_noret_decl(f_3965) static void C_ccall f_3965(C_word c,C_word *av) C_noret; C_noret_decl(f_3975) static void C_ccall f_3975(C_word c,C_word *av) C_noret; C_noret_decl(f_3982) static void C_ccall f_3982(C_word c,C_word *av) C_noret; C_noret_decl(f_3993) static void C_ccall f_3993(C_word c,C_word *av) C_noret; C_noret_decl(f_3995) static void C_fcall f_3995(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4013) static void C_ccall f_4013(C_word c,C_word *av) C_noret; C_noret_decl(f_4029) static void C_ccall f_4029(C_word c,C_word *av) C_noret; C_noret_decl(f_4033) static void C_ccall f_4033(C_word c,C_word *av) C_noret; C_noret_decl(f_4036) static void C_ccall f_4036(C_word c,C_word *av) C_noret; C_noret_decl(f_4039) static void C_ccall f_4039(C_word c,C_word *av) C_noret; C_noret_decl(f_4042) static void C_ccall f_4042(C_word c,C_word *av) C_noret; C_noret_decl(f_4045) static void C_ccall f_4045(C_word c,C_word *av) C_noret; C_noret_decl(f_4048) static void C_ccall f_4048(C_word c,C_word *av) C_noret; C_noret_decl(f_4051) static void C_ccall f_4051(C_word c,C_word *av) C_noret; C_noret_decl(f_4054) static void C_ccall f_4054(C_word c,C_word *av) C_noret; C_noret_decl(f_4057) static void C_ccall f_4057(C_word c,C_word *av) C_noret; C_noret_decl(f_4060) static void C_ccall f_4060(C_word c,C_word *av) C_noret; C_noret_decl(f_4063) static void C_ccall f_4063(C_word c,C_word *av) C_noret; C_noret_decl(f_4066) static void C_ccall f_4066(C_word c,C_word *av) C_noret; C_noret_decl(f_4069) static void C_ccall f_4069(C_word c,C_word *av) C_noret; C_noret_decl(f_4072) static void C_ccall f_4072(C_word c,C_word *av) C_noret; C_noret_decl(f_4081) static void C_fcall f_4081(C_word t0,C_word t1) C_noret; C_noret_decl(f_4095) static void C_ccall f_4095(C_word c,C_word *av) C_noret; C_noret_decl(f_4118) static void C_ccall f_4118(C_word c,C_word *av) C_noret; C_noret_decl(f_4123) static C_word C_fcall f_4123(C_word *a,C_word t0,C_word t1); C_noret_decl(f_4138) static void C_ccall f_4138(C_word c,C_word *av) C_noret; C_noret_decl(f_4153) static void C_ccall f_4153(C_word c,C_word *av) C_noret; C_noret_decl(f_4201) static void C_ccall f_4201(C_word c,C_word *av) C_noret; C_noret_decl(f_4203) static void C_fcall f_4203(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4263) static void C_ccall f_4263(C_word c,C_word *av) C_noret; C_noret_decl(f_4265) static void C_fcall f_4265(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4302) static C_word C_fcall f_4302(C_word *a,C_word t0,C_word t1); C_noret_decl(f_4309) static void C_ccall f_4309(C_word c,C_word *av) C_noret; C_noret_decl(f_4311) static void C_fcall f_4311(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4345) static void C_fcall f_4345(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4393) static void C_fcall f_4393(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4447) static void C_ccall f_4447(C_word c,C_word *av) C_noret; C_noret_decl(f_4449) static void C_fcall f_4449(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4517) static void C_fcall f_4517(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4542) static void C_ccall f_4542(C_word c,C_word *av) C_noret; C_noret_decl(f_4559) static void C_ccall f_4559(C_word c,C_word *av) C_noret; C_noret_decl(f_4561) static void C_ccall f_4561(C_word c,C_word *av) C_noret; C_noret_decl(f_4565) static void C_ccall f_4565(C_word c,C_word *av) C_noret; C_noret_decl(f_4568) static void C_ccall f_4568(C_word c,C_word *av) C_noret; C_noret_decl(f_4571) static void C_ccall f_4571(C_word c,C_word *av) C_noret; C_noret_decl(f_4574) static void C_ccall f_4574(C_word c,C_word *av) C_noret; C_noret_decl(f_4577) static void C_ccall f_4577(C_word c,C_word *av) C_noret; C_noret_decl(f_4580) static void C_ccall f_4580(C_word c,C_word *av) C_noret; C_noret_decl(f_4583) static void C_ccall f_4583(C_word c,C_word *av) C_noret; C_noret_decl(f_4586) static void C_ccall f_4586(C_word c,C_word *av) C_noret; C_noret_decl(f_4589) static void C_ccall f_4589(C_word c,C_word *av) C_noret; C_noret_decl(f_4598) static void C_fcall f_4598(C_word t0,C_word t1) C_noret; C_noret_decl(f_4612) static void C_ccall f_4612(C_word c,C_word *av) C_noret; C_noret_decl(f_4627) static void C_ccall f_4627(C_word c,C_word *av) C_noret; C_noret_decl(f_4632) static C_word C_fcall f_4632(C_word *a,C_word t0,C_word t1); C_noret_decl(f_4647) static void C_ccall f_4647(C_word c,C_word *av) C_noret; C_noret_decl(f_4662) static void C_ccall f_4662(C_word c,C_word *av) C_noret; C_noret_decl(f_4698) static void C_ccall f_4698(C_word c,C_word *av) C_noret; C_noret_decl(f_4700) static void C_fcall f_4700(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4744) static void C_ccall f_4744(C_word c,C_word *av) C_noret; C_noret_decl(f_4746) static void C_fcall f_4746(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4783) static C_word C_fcall f_4783(C_word *a,C_word t0,C_word t1); C_noret_decl(f_4790) static void C_ccall f_4790(C_word c,C_word *av) C_noret; C_noret_decl(f_4792) static void C_fcall f_4792(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4826) static void C_fcall f_4826(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4874) static void C_fcall f_4874(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4920) static void C_ccall f_4920(C_word c,C_word *av) C_noret; C_noret_decl(f_4922) static void C_fcall f_4922(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4974) static void C_fcall f_4974(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4999) static void C_ccall f_4999(C_word c,C_word *av) C_noret; C_noret_decl(f_5016) static void C_ccall f_5016(C_word c,C_word *av) C_noret; C_noret_decl(C_compiler_2dsyntax_toplevel) C_externexport void C_ccall C_compiler_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_2775) static void C_ccall trf_2775(C_word c,C_word *av) C_noret; static void C_ccall trf_2775(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2775(t0,t1);} C_noret_decl(trf_2987) static void C_ccall trf_2987(C_word c,C_word *av) C_noret; static void C_ccall trf_2987(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2987(t0,t1,t2,t3);} C_noret_decl(trf_2992) static void C_ccall trf_2992(C_word c,C_word *av) C_noret; static void C_ccall trf_2992(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2992(t0,t1,t2);} C_noret_decl(trf_3001) static void C_ccall trf_3001(C_word c,C_word *av) C_noret; static void C_ccall trf_3001(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3001(t0,t1,t2);} C_noret_decl(trf_3058) static void C_ccall trf_3058(C_word c,C_word *av) C_noret; static void C_ccall trf_3058(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_3058(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_3086) static void C_ccall trf_3086(C_word c,C_word *av) C_noret; static void C_ccall trf_3086(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3086(t0,t1);} C_noret_decl(trf_3092) static void C_ccall trf_3092(C_word c,C_word *av) C_noret; static void C_ccall trf_3092(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3092(t0,t1,t2,t3,t4);} C_noret_decl(trf_3182) static void C_ccall trf_3182(C_word c,C_word *av) C_noret; static void C_ccall trf_3182(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3182(t0,t1);} C_noret_decl(trf_3201) static void C_ccall trf_3201(C_word c,C_word *av) C_noret; static void C_ccall trf_3201(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3201(t0,t1,t2);} C_noret_decl(trf_3249) static void C_ccall trf_3249(C_word c,C_word *av) C_noret; static void C_ccall trf_3249(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3249(t0,t1,t2);} C_noret_decl(trf_3510) static void C_ccall trf_3510(C_word c,C_word *av) C_noret; static void C_ccall trf_3510(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3510(t0,t1,t2);} C_noret_decl(trf_3995) static void C_ccall trf_3995(C_word c,C_word *av) C_noret; static void C_ccall trf_3995(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3995(t0,t1,t2);} C_noret_decl(trf_4081) static void C_ccall trf_4081(C_word c,C_word *av) C_noret; static void C_ccall trf_4081(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4081(t0,t1);} C_noret_decl(trf_4203) static void C_ccall trf_4203(C_word c,C_word *av) C_noret; static void C_ccall trf_4203(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4203(t0,t1,t2);} C_noret_decl(trf_4265) static void C_ccall trf_4265(C_word c,C_word *av) C_noret; static void C_ccall trf_4265(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4265(t0,t1,t2);} C_noret_decl(trf_4311) static void C_ccall trf_4311(C_word c,C_word *av) C_noret; static void C_ccall trf_4311(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4311(t0,t1,t2);} C_noret_decl(trf_4345) static void C_ccall trf_4345(C_word c,C_word *av) C_noret; static void C_ccall trf_4345(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4345(t0,t1,t2,t3);} C_noret_decl(trf_4393) static void C_ccall trf_4393(C_word c,C_word *av) C_noret; static void C_ccall trf_4393(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4393(t0,t1,t2);} C_noret_decl(trf_4449) static void C_ccall trf_4449(C_word c,C_word *av) C_noret; static void C_ccall trf_4449(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4449(t0,t1,t2,t3);} C_noret_decl(trf_4517) static void C_ccall trf_4517(C_word c,C_word *av) C_noret; static void C_ccall trf_4517(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4517(t0,t1,t2);} C_noret_decl(trf_4598) static void C_ccall trf_4598(C_word c,C_word *av) C_noret; static void C_ccall trf_4598(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4598(t0,t1);} C_noret_decl(trf_4700) static void C_ccall trf_4700(C_word c,C_word *av) C_noret; static void C_ccall trf_4700(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4700(t0,t1,t2);} C_noret_decl(trf_4746) static void C_ccall trf_4746(C_word c,C_word *av) C_noret; static void C_ccall trf_4746(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4746(t0,t1,t2);} C_noret_decl(trf_4792) static void C_ccall trf_4792(C_word c,C_word *av) C_noret; static void C_ccall trf_4792(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4792(t0,t1,t2);} C_noret_decl(trf_4826) static void C_ccall trf_4826(C_word c,C_word *av) C_noret; static void C_ccall trf_4826(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4826(t0,t1,t2,t3);} C_noret_decl(trf_4874) static void C_ccall trf_4874(C_word c,C_word *av) C_noret; static void C_ccall trf_4874(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4874(t0,t1,t2);} C_noret_decl(trf_4922) static void C_ccall trf_4922(C_word c,C_word *av) C_noret; static void C_ccall trf_4922(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4922(t0,t1,t2,t3);} C_noret_decl(trf_4974) static void C_ccall trf_4974(C_word c,C_word *av) C_noret; static void C_ccall trf_4974(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4974(t0,t1,t2);} /* k1677 */ static void C_ccall f_1679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1679,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1682,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1680 in k1677 */ static void C_ccall f_1682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1682,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1685,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k1683 in k1680 in k1677 */ static void C_ccall f_1685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1685,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1688,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_1688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1688,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1691,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_support_toplevel(2,av2);}} /* k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_1691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1691,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1694,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_compiler_toplevel(2,av2);}} /* k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_1694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,5)))){ C_save_and_reclaim((void *)f_1694,2,av);} a=C_alloc(27); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate(&lf[2] /* (set! chicken.compiler.compiler-syntax#length+ ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2775,tmp=(C_word)a,a+=2,tmp)); t5=C_set_block_item(lf[3] /* chicken.compiler.compiler-syntax#compiler-syntax-statistics */,0,C_SCHEME_END_OF_LIST); t6=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#compiler-syntax-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2975,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[8] /* (set! chicken.compiler.compiler-syntax#r-c-s ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2987,tmp=(C_word)a,a+=2,tmp)); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3041,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4561,tmp=(C_word)a,a+=2,tmp); /* compiler-syntax.scm:70: r-c-s */ f_2987(t8,lf[103],t9,lf[104]);} /* chicken.compiler.compiler-syntax#length+ in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_2775(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,0,4)))){ C_save_and_reclaim_args((void *)trf_2775,2,t1,t2);} a=C_alloc(2); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2781,tmp=(C_word)a,a+=2,tmp); t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=( f_2781(t2,t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* lp in chicken.compiler.compiler-syntax#length+ in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static C_word C_fcall f_2781(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t4=t1; t5=C_u_i_cdr(t4); t6=C_fixnum_plus(t3,C_fix(1)); if(C_truep(C_i_pairp(t5))){ t7=C_u_i_cdr(t5); t8=C_i_cdr(t2); t9=C_fixnum_plus(t6,C_fix(1)); t10=C_eqp(t7,t8); if(C_truep(C_i_not(t10))){ t12=t7; t13=t8; t14=t9; t1=t12; t2=t13; t3=t14; goto loop;} else{ return(C_SCHEME_FALSE);}} else{ return(t6);}} else{ t4=t3; return(t4);}} /* ##sys#compiler-syntax-hook in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_2975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_2975,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2979,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:51: chicken.base#alist-ref */ t5=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=*((C_word*)lf[3]+1); av2[4]=*((C_word*)lf[7]+1); av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k2977 in ##sys#compiler-syntax-hook in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_2979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_2979,2,av);} a=C_alloc(32); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2983,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_s_a_i_plus(&a,2,t1,C_fix(1)); /* compiler-syntax.scm:53: chicken.base#alist-update! */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=t3; av2[4]=*((C_word*)lf[3]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2981 in k2977 in ##sys#compiler-syntax-hook in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_2983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2983,2,av);} t2=C_mutate((C_word*)lf[3]+1 /* (set! chicken.compiler.compiler-syntax#compiler-syntax-statistics ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.compiler.compiler-syntax#r-c-s in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_2987(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_2987,4,t1,t2,t3,t4);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3026,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3034,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:57: ##sys#er-transformer */ t7=*((C_word*)lf[14]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* g545 in k3028 in k3024 in chicken.compiler.compiler-syntax#r-c-s in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_2992(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_2992,3,t0,t1,t2);} /* compiler-syntax.scm:62: ##sys#put! */ t3=*((C_word*)lf[9]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=lf[10]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* for-each-loop544 in k3028 in k3024 in chicken.compiler.compiler-syntax#r-c-s in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_3001(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3001,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3011,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* compiler-syntax.scm:60: g545 */ t5=((C_word*)t0)[3]; f_2992(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3009 in for-each-loop544 in k3028 in k3024 in chicken.compiler.compiler-syntax#r-c-s in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3011,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3001(t3,((C_word*)t0)[4],t2);} /* k3024 in chicken.compiler.compiler-syntax#r-c-s in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3026,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3030,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:59: scheme#append */ t4=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=*((C_word*)lf[12]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3028 in k3024 in chicken.compiler.compiler-syntax#r-c-s in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_3030,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2992,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=((C_word*)t0)[3]; t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3001,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_3001(t9,((C_word*)t0)[4],t5);} /* k3032 in chicken.compiler.compiler-syntax#r-c-s in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3034,2,av);} t2=C_i_car(((C_word*)t0)[2]); /* compiler-syntax.scm:56: ##sys#ensure-transformer */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_3041,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3044,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4029,tmp=(C_word)a,a+=2,tmp); /* compiler-syntax.scm:100: r-c-s */ f_2987(t2,lf[98],t3,lf[99]);} /* k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_3044,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3047,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3965,tmp=(C_word)a,a+=2,tmp); /* compiler-syntax.scm:142: r-c-s */ f_2987(t2,lf[86],t3,C_SCHEME_END_OF_LIST);} /* k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,c,5)))){ C_save_and_reclaim((void *)f_3047,2,av);} a=C_alloc(41); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3050,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3881,tmp=(C_word)a,a+=2,tmp); t4=C_a_i_cons(&a,2,lf[75],lf[76]); t5=C_a_i_cons(&a,2,lf[77],lf[78]); t6=C_a_i_cons(&a,2,lf[38],lf[79]); t7=C_a_i_cons(&a,2,lf[80],lf[81]); t8=C_a_i_cons(&a,2,lf[72],lf[26]); t9=C_a_i_cons(&a,2,lf[71],lf[19]); t10=C_a_i_list(&a,6,t4,t5,t6,t7,t8,t9); /* compiler-syntax.scm:149: r-c-s */ f_2987(t2,lf[82],t3,t10);} /* k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_3050,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3053,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3854,tmp=(C_word)a,a+=2,tmp); /* compiler-syntax.scm:166: r-c-s */ f_2987(t2,lf[69],t3,lf[70]);} /* k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_3053,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3056,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3841,tmp=(C_word)a,a+=2,tmp); /* compiler-syntax.scm:178: r-c-s */ f_2987(t2,lf[66],t3,lf[67]);} /* k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,8)))){ C_save_and_reclaim((void *)f_3056,2,av);} a=C_alloc(7); t2=C_mutate(&lf[15] /* (set! chicken.compiler.compiler-syntax#compile-format-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3058,tmp=(C_word)a,a+=2,tmp)); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3615,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3736,tmp=(C_word)a,a+=2,tmp); /* compiler-syntax.scm:277: r-c-s */ f_2987(t3,lf[62],t4,lf[63]);} /* chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_3058(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_3058,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(8); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3064,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=t3,a[6]=t6,a[7]=t7,tmp=(C_word)a,a+=8,tmp); /* compiler-syntax.scm:189: chicken.base#call/cc */ t9=*((C_word*)lf[44]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t1; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_3064,3,av);} a=C_alloc(10); t3=C_i_length(((C_word*)t0)[2]); if(C_truep(C_fixnum_greater_or_equal_p(t3,C_fix(1)))){ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3607,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* compiler-syntax.scm:192: chicken.base#symbol-append */ t5=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[43]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_3086(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_3086,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3089,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); if(C_truep(C_i_stringp(t4))){ t5=((C_word*)t0)[2]; t6=t2;{ C_word av2[2]; av2[0]=t6; av2[1]=C_u_i_car(t5); f_3089(2,av2);}} else{ /* compiler-syntax.scm:197: scheme#cadar */ t5=*((C_word*)lf[41]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} else{ t2=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,5)))){ C_save_and_reclaim((void *)f_3089,2,av);} a=C_alloc(24); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3092,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t7=C_SCHEME_END_OF_LIST; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_fix(0); t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_i_string_length(t2); t12=t11; t13=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3164,a[2]=t2,a[3]=t10,a[4]=t5,a[5]=t6,a[6]=t8,a[7]=t12,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); /* compiler-syntax.scm:210: r */ t14=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t13; av2[2]=lf[40]; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} /* fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_3092(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_3092,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3096,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); /* compiler-syntax.scm:200: chicken.compiler.support#get-line */ t6=*((C_word*)lf[28]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_3096,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3099,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3109,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* compiler-syntax.scm:202: chicken.base#open-output-string */ t5=*((C_word*)lf[26]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k3097 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3099,2,av);} if(C_truep(((C_word*)t0)[2])){ /* compiler-syntax.scm:206: return */ t2=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_3109,2,av);} a=C_alloc(17); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3115,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3140,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[7])){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3143,a[2]=t6,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:203: chicken.base#open-output-string */ t8=*((C_word*)lf[26]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* compiler-syntax.scm:202: ##sys#print */ t7=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[27]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k3113 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3115,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3118,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* compiler-syntax.scm:202: ##sys#write-char-0 */ t3=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(96); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3116 in k3113 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 in ... */ static void C_ccall f_3118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3118,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3121,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* compiler-syntax.scm:202: ##sys#print */ t3=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[8]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3119 in k3116 in k3113 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_3121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3121,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3124,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* compiler-syntax.scm:202: ##sys#print */ t3=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[23]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3122 in k3119 in k3116 in k3113 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in ... */ static void C_ccall f_3124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_3124,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3127,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:202: ##sys#print */ t3=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3125 in k3122 in k3119 in k3116 in k3113 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in ... */ static void C_ccall f_3127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_3127,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3130,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:202: ##sys#print */ t3=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[22]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3128 in k3125 in k3122 in k3119 in k3116 in k3113 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in ... */ static void C_ccall f_3130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_3130,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3133,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[20]+1); av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; C_apply(6,av2);}} /* k3131 in k3128 in k3125 in k3122 in k3119 in k3116 in k3113 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in ... */ static void C_ccall f_3133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3133,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3136,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler-syntax.scm:202: chicken.base#get-output-string */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3134 in k3131 in k3128 in k3125 in k3122 in k3119 in k3116 in k3113 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in ... */ static void C_ccall f_3136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3136,2,av);} /* compiler-syntax.scm:201: chicken.base#warning */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3138 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3140,2,av);} /* compiler-syntax.scm:202: ##sys#print */ t2=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3141 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3143,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[17]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3149,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* compiler-syntax.scm:203: ##sys#write-char-0 */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_make_character(40); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k3147 in k3141 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 in ... */ static void C_ccall f_3149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_3149,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3152,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:203: ##sys#print */ t3=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3150 in k3147 in k3141 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_3152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3152,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3155,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* compiler-syntax.scm:203: ##sys#print */ t3=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[25]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3153 in k3150 in k3147 in k3141 in k3107 in k3094 in fail in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in ... */ static void C_ccall f_3155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3155,2,av);} /* compiler-syntax.scm:203: chicken.base#get-output-string */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_3164,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_3167,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* compiler-syntax.scm:211: r */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[39]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_3167,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_3170,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* compiler-syntax.scm:212: r */ t4=((C_word*)t0)[12];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[38]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,3)))){ C_save_and_reclaim((void *)f_3170,2,av);} a=C_alloc(42); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3172,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp)); t12=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3182,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp)); t13=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3201,a[2]=((C_word*)t0)[6],a[3]=t10,tmp=(C_word)a,a+=4,tmp)); t14=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3239,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp)); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_3249,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[7],a[9]=t8,a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],a[12]=t4,a[13]=t16,a[14]=t10,a[15]=t6,a[16]=t2,tmp=(C_word)a,a+=17,tmp)); t18=((C_word*)t16)[1]; f_3249(t18,((C_word*)t0)[12],C_SCHEME_END_OF_LIST);} /* fetch in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static C_word C_fcall f_3172(C_word t0){ C_word tmp; C_word t1; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t1=C_i_string_ref(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t2=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t3=C_set_block_item(((C_word*)t0)[3],0,t2); return(t1);} /* next in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_3182(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_3182,2,t0,t1);} if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[2])[1]))){ /* compiler-syntax.scm:219: fail */ t2=((C_word*)t0)[3]; f_3092(t2,t1,C_SCHEME_TRUE,lf[29],C_SCHEME_END_OF_LIST);} else{ t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* endchunk in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_3201(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_3201,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_i_length(t2); t4=C_eqp(C_fix(1),t3); if(C_truep(t4)){ t5=C_i_car(t2); t6=C_a_i_list(&a,3,lf[24],t5,((C_word*)t0)[2]); /* compiler-syntax.scm:225: push */ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=( /* compiler-syntax.scm:225: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[3])[1],t6) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3232,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:228: ##sys#reverse-list->string */ t6=*((C_word*)lf[30]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3230 in endchunk in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 in ... */ static void C_ccall f_3232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_3232,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,4,lf[21],t1,C_SCHEME_FALSE,((C_word*)t0)[2]); /* compiler-syntax.scm:225: push */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* compiler-syntax.scm:225: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[4])[1],t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* push in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static C_word C_fcall f_3239(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); return(t3);} /* loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_3249(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_3249,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_greater_or_equalp(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]))){ t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3259,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t2,tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[10])[1]))){ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_3259(2,av2);}} else{ /* compiler-syntax.scm:234: fail */ t4=((C_word*)t0)[11]; f_3092(t4,t3,C_SCHEME_FALSE,lf[34],C_SCHEME_END_OF_LIST);}} else{ t3=( /* compiler-syntax.scm:240: fetch */ f_3172(((C_word*)((C_word*)t0)[12])[1]) ); t4=C_eqp(t3,C_make_character(126)); if(C_truep(t4)){ t5=( /* compiler-syntax.scm:242: fetch */ f_3172(((C_word*)((C_word*)t0)[12])[1]) ); t6=t5; t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3314,a[2]=t6,a[3]=((C_word*)t0)[13],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[14],a[7]=((C_word*)t0)[15],a[8]=((C_word*)t0)[16],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[2],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* compiler-syntax.scm:243: endchunk */ t8=((C_word*)((C_word*)t0)[9])[1]; f_3201(t8,t7,t2);} else{ t5=C_a_i_cons(&a,2,t3,t2); /* compiler-syntax.scm:275: loop */ t9=t1; t10=t5; t1=t9; t2=t10; goto loop;}}} /* k3257 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 in ... */ static void C_ccall f_3259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3259,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3262,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* compiler-syntax.scm:235: endchunk */ t3=((C_word*)((C_word*)t0)[8])[1]; f_3201(t3,t2,((C_word*)t0)[9]);} /* k3260 in k3257 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_3262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_3262,2,av);} a=C_alloc(33); t2=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_list(&a,1,t2); t4=t3; t5=C_a_i_list(&a,2,lf[31],((C_word*)t0)[4]); t6=C_a_i_list(&a,4,lf[32],((C_word*)t0)[2],C_SCHEME_TRUE,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3285,a[2]=t7,a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* compiler-syntax.scm:238: scheme#reverse */ t9=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)((C_word*)t0)[7])[1]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k3283 in k3260 in k3257 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in ... */ static void C_ccall f_3285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_3285,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3312 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 in ... */ static void C_ccall f_3314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_3314,2,av);} a=C_alloc(16); t2=C_u_i_char_upcase(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3320,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); switch(t2){ case C_make_character(83): t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3337,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* compiler-syntax.scm:245: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_3182(t5,t4); case C_make_character(65): t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3354,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* compiler-syntax.scm:246: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_3182(t5,t4); case C_make_character(67): t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3371,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* compiler-syntax.scm:247: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_3182(t5,t4); case C_make_character(66): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3392,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:250: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_3182(t5,t4); case C_make_character(79): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3413,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:254: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_3182(t5,t4); case C_make_character(88): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3434,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:258: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_3182(t5,t4); case C_make_character(33): t4=C_a_i_list(&a,2,lf[35],((C_word*)t0)[5]); t5=( /* compiler-syntax.scm:260: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[6])[1],t4) ); /* compiler-syntax.scm:274: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_3249(t6,((C_word*)t0)[4],C_SCHEME_END_OF_LIST); case C_make_character(63): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3456,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:262: next */ t5=((C_word*)((C_word*)t0)[7])[1]; f_3182(t5,t4); case C_make_character(126): t4=C_a_i_list(&a,3,lf[24],C_make_character(126),((C_word*)t0)[5]); t5=( /* compiler-syntax.scm:265: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[6])[1],t4) ); /* compiler-syntax.scm:274: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_3249(t6,((C_word*)t0)[4],C_SCHEME_END_OF_LIST); default: t4=C_eqp(t2,C_make_character(37)); t5=(C_truep(t4)?t4:C_eqp(t2,C_make_character(78))); if(C_truep(t5)){ t6=C_a_i_list(&a,3,lf[24],C_make_character(10),((C_word*)t0)[5]); t7=( /* compiler-syntax.scm:266: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[6])[1],t6) ); /* compiler-syntax.scm:274: loop */ t8=((C_word*)((C_word*)t0)[3])[1]; f_3249(t8,((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} else{ if(C_truep(C_u_i_char_whitespacep(((C_word*)t0)[2]))){ t6=( /* compiler-syntax.scm:269: fetch */ f_3172(((C_word*)((C_word*)t0)[9])[1]) ); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3510,a[2]=((C_word*)t0)[9],a[3]=t8,a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_3510(t10,t3,t6);} else{ /* compiler-syntax.scm:273: fail */ t6=((C_word*)t0)[11]; f_3092(t6,t3,C_SCHEME_TRUE,lf[37],C_a_i_list(&a,1,((C_word*)t0)[2]));}}}} /* k3318 in k3312 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_3320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3320,2,av);} /* compiler-syntax.scm:274: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3249(t2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} /* k3335 in k3312 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_3337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3337,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,4,lf[21],t1,C_SCHEME_TRUE,((C_word*)t0)[2]); t3=( /* compiler-syntax.scm:245: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[3])[1],t2) ); /* compiler-syntax.scm:274: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3249(t4,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k3352 in k3312 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_3354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3354,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,4,lf[21],t1,C_SCHEME_FALSE,((C_word*)t0)[2]); t3=( /* compiler-syntax.scm:246: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[3])[1],t2) ); /* compiler-syntax.scm:274: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3249(t4,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k3369 in k3312 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_3371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_3371,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,lf[24],t1,((C_word*)t0)[2]); t3=( /* compiler-syntax.scm:247: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[3])[1],t2) ); /* compiler-syntax.scm:274: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_3249(t4,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* k3390 in k3312 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_3392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_3392,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,3,((C_word*)t0)[2],t1,C_fix(2)); t3=C_a_i_list(&a,4,lf[21],t2,C_SCHEME_FALSE,((C_word*)t0)[3]); t4=( /* compiler-syntax.scm:249: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[4])[1],t3) ); /* compiler-syntax.scm:274: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3249(t5,((C_word*)t0)[6],C_SCHEME_END_OF_LIST);} /* k3411 in k3312 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_3413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_3413,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,3,((C_word*)t0)[2],t1,C_fix(8)); t3=C_a_i_list(&a,4,lf[21],t2,C_SCHEME_FALSE,((C_word*)t0)[3]); t4=( /* compiler-syntax.scm:253: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[4])[1],t3) ); /* compiler-syntax.scm:274: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3249(t5,((C_word*)t0)[6],C_SCHEME_END_OF_LIST);} /* k3432 in k3312 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_3434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_3434,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,3,((C_word*)t0)[2],t1,C_fix(16)); t3=C_a_i_list(&a,4,lf[21],t2,C_SCHEME_FALSE,((C_word*)t0)[3]); t4=( /* compiler-syntax.scm:257: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[4])[1],t3) ); /* compiler-syntax.scm:274: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3249(t5,((C_word*)t0)[6],C_SCHEME_END_OF_LIST);} /* k3454 in k3312 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_3456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3456,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3459,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:263: next */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3182(t4,t3);} /* k3457 in k3454 in k3312 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in ... */ static void C_ccall f_3459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_3459,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,5,lf[36],lf[20],((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=( /* compiler-syntax.scm:264: push */ f_3239(C_a_i(&a,3),((C_word*)((C_word*)t0)[4])[1],t2) ); /* compiler-syntax.scm:274: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_3249(t4,((C_word*)t0)[6],C_SCHEME_END_OF_LIST);} /* skip in k3312 in loop in k3168 in k3165 in k3162 in k3087 in k3084 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_fcall f_3510(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(29,0,2)))){ C_save_and_reclaim_args((void *)trf_3510,3,t0,t1,t2);} a=C_alloc(29); if(C_truep(C_u_i_char_whitespacep(t2))){ t3=( /* compiler-syntax.scm:271: fetch */ f_3172(((C_word*)((C_word*)t0)[2])[1]) ); /* compiler-syntax.scm:271: skip */ t6=t1; t7=t3; t1=t6; t2=t7; goto loop;} else{ t3=((C_word*)((C_word*)t0)[4])[1]; t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,C_s_a_i_minus(&a,2,t3,C_fix(1))); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k3580 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3582,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3589,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* compiler-syntax.scm:196: scheme#cadar */ t3=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; f_3086(t2,C_SCHEME_FALSE);}} /* k3587 in k3580 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3589,2,av);} t2=((C_word*)t0)[2]; f_3086(t2,C_i_stringp(t1));} /* k3591 in k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3593,2,av);} t2=C_i_caar(((C_word*)t0)[2]); /* compiler-syntax.scm:195: c */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3605 in a3063 in chicken.compiler.compiler-syntax#compile-format-string in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_3607,2,av);} a=C_alloc(18); if(C_truep(C_i_memq(t1,*((C_word*)lf[16]+1)))){ t2=C_i_car(((C_word*)t0)[2]); t3=C_i_stringp(t2); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3086,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(t3)){ t5=t4; f_3086(t5,t3);} else{ t5=((C_word*)t0)[2]; t6=C_u_i_car(t5); if(C_truep(C_i_listp(t6))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3582,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3593,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[9],a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:195: r */ t9=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=lf[31]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t7=t4; f_3086(t7,C_SCHEME_FALSE);}}} else{ t2=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3613 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_3615,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3618,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3620,tmp=(C_word)a,a+=2,tmp); /* compiler-syntax.scm:299: r-c-s */ f_2987(t2,lf[57],t3,lf[58]);} /* k3616 in k3613 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3618,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3619 in k3613 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3620,5,av);} a=C_alloc(7); t5=C_i_length(t2); t6=C_eqp(t5,C_fix(4)); t7=(C_truep(t6)?C_i_memq(lf[45],*((C_word*)lf[16]+1)):C_SCHEME_FALSE); if(C_truep(t7)){ t8=C_i_cadr(t2); t9=t8; t10=C_i_caddr(t2); t11=t10; t12=C_i_cadddr(t2); t13=t12; t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3639,a[2]=t11,a[3]=t13,a[4]=t9,a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:306: r */ t15=t3;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; av2[2]=lf[56]; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} else{ t8=t2; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k3637 in a3619 in k3613 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3639,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3642,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* compiler-syntax.scm:307: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[39]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3640 in k3637 in a3619 in k3613 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3642(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3642,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3645,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* compiler-syntax.scm:308: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[55]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3643 in k3640 in k3637 in a3619 in k3613 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3645,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3648,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* compiler-syntax.scm:309: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[54]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3646 in k3643 in k3640 in k3637 in a3619 in k3613 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_3648,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* compiler-syntax.scm:310: chicken.base#gensym */ t4=*((C_word*)lf[52]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3649 in k3646 in k3643 in k3640 in k3637 in a3619 in k3613 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_3651,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3654,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* compiler-syntax.scm:311: chicken.base#gensym */ t4=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[53]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in a3619 in k3613 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_3654,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* compiler-syntax.scm:312: chicken.base#gensym */ t4=*((C_word*)lf[52]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3655 in k3652 in k3649 in k3646 in k3643 in k3640 in k3637 in a3619 in k3613 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(138,c,1)))){ C_save_and_reclaim((void *)f_3657,2,av);} a=C_alloc(138); t2=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_list(&a,2,t1,((C_word*)t0)[4]); t4=C_a_i_list(&a,2,t2,t3); t5=C_a_i_list(&a,2,lf[46],lf[47]); t6=C_a_i_list(&a,3,lf[48],t1,t5); t7=C_a_i_list(&a,2,lf[49],t6); t8=C_a_i_list(&a,2,t1,t1); t9=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[2]); t10=C_a_i_list(&a,2,t8,t9); t11=C_a_i_list(&a,2,((C_word*)t0)[5],t1); t12=C_a_i_list(&a,3,lf[50],t1,C_fix(1)); t13=C_a_i_list(&a,3,lf[50],t1,C_fix(0)); t14=C_a_i_list(&a,3,((C_word*)t0)[6],((C_word*)t0)[2],t13); t15=C_a_i_list(&a,4,lf[51],((C_word*)t0)[7],t12,t14); t16=C_a_i_list(&a,4,((C_word*)t0)[8],t11,t15,((C_word*)t0)[2]); t17=C_a_i_list(&a,4,((C_word*)t0)[9],((C_word*)t0)[7],t10,t16); t18=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t18; av2[1]=C_a_i_list(&a,4,((C_word*)t0)[11],t4,t7,t17); ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} /* a3735 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3736,5,av);} a=C_alloc(7); t5=C_i_length(t2); t6=C_eqp(t5,C_fix(4)); t7=(C_truep(t6)?C_i_memq(lf[59],*((C_word*)lf[16]+1)):C_SCHEME_FALSE); if(C_truep(t7)){ t8=C_i_cadr(t2); t9=t8; t10=C_i_caddr(t2); t11=t10; t12=C_i_cadddr(t2); t13=t12; t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3755,a[2]=t13,a[3]=t9,a[4]=t11,a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:284: r */ t15=t3;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; av2[2]=lf[56]; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} else{ t8=t2; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k3753 in a3735 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3755,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3758,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* compiler-syntax.scm:285: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[39]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3756 in k3753 in a3735 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3758,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* compiler-syntax.scm:286: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[54]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3759 in k3756 in k3753 in a3735 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3761,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3764,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* compiler-syntax.scm:287: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[55]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3762 in k3759 in k3756 in k3753 in a3735 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_3764,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* compiler-syntax.scm:288: chicken.base#gensym */ t4=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[61]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3765 in k3762 in k3759 in k3756 in k3753 in a3735 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_3767,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3770,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* compiler-syntax.scm:289: chicken.base#gensym */ t4=*((C_word*)lf[52]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in a3735 in k3054 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(117,c,1)))){ C_save_and_reclaim((void *)f_3770,2,av);} a=C_alloc(117); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=C_a_i_list(&a,2,lf[46],lf[60]); t5=C_a_i_list(&a,3,lf[48],t1,t4); t6=C_a_i_list(&a,2,lf[49],t5); t7=C_a_i_list(&a,2,t1,t1); t8=C_a_i_list(&a,1,t7); t9=C_a_i_list(&a,2,((C_word*)t0)[3],t1); t10=C_a_i_list(&a,3,lf[50],t1,C_fix(0)); t11=C_a_i_list(&a,3,lf[50],t1,C_fix(1)); t12=C_a_i_list(&a,3,lf[51],((C_word*)t0)[4],t11); t13=C_a_i_list(&a,3,((C_word*)t0)[5],t10,t12); t14=C_a_i_list(&a,4,((C_word*)t0)[6],t9,t13,((C_word*)t0)[7]); t15=C_a_i_list(&a,4,((C_word*)t0)[8],((C_word*)t0)[4],t8,t14); t16=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t16; av2[1]=C_a_i_list(&a,4,((C_word*)t0)[10],t3,t6,t15); ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} /* a3840 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_3841,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3845,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t6=C_i_cdr(t2); /* compiler-syntax.scm:185: compile-format-string */ f_3058(t5,lf[64],lf[65],t2,t6,t3,t4);} /* k3843 in a3840 in k3051 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3845,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a3853 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_3854,5,av);} a=C_alloc(4); t5=C_i_length(t2); if(C_truep(C_fixnum_greater_or_equal_p(t5,C_fix(3)))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3864,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t7=C_i_cadr(t2); t8=t2; t9=C_u_i_cdr(t8); t10=C_u_i_cdr(t9); /* compiler-syntax.scm:174: compile-format-string */ f_3058(t6,lf[68],t7,t2,t10,t3,t4);} else{ t6=t2; t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k3862 in a3853 in k3048 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3864,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3880 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3881,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3885,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* compiler-syntax.scm:156: chicken.base#gensym */ t6=*((C_word*)lf[52]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[40]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3883 in a3880 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){ C_save_and_reclaim((void *)f_3885,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3888,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=C_i_car(((C_word*)t0)[4]); t5=C_eqp(t4,lf[73]); t6=(C_truep(t5)?lf[74]:lf[17]); t7=((C_word*)t0)[4]; t8=C_u_i_cdr(t7); /* compiler-syntax.scm:157: compile-format-string */ f_3058(t3,t6,t2,((C_word*)t0)[4],t8,((C_word*)t0)[3],((C_word*)t0)[5]);} /* k3886 in k3883 in a3880 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3888,2,av);} a=C_alloc(6); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3898,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* compiler-syntax.scm:161: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[39]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[5]; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3896 in k3886 in k3883 in a3880 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3898,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3922,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:161: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[72]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3908 in k3920 in k3896 in k3886 in k3883 in a3880 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_3910,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3920 in k3896 in k3886 in k3883 in a3880 in k3045 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_3922,2,av);} a=C_alloc(19); t2=C_a_i_list(&a,1,t1); t3=C_a_i_list(&a,2,((C_word*)t0)[2],t2); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3910,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:163: r */ t7=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[71]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* a3964 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3965,5,av);} a=C_alloc(5); t5=C_i_length(t2); t6=C_fixnum_greaterp(t5,C_fix(1)); t7=(C_truep(t6)?C_i_memq(lf[83],*((C_word*)lf[16]+1)):C_SCHEME_FALSE); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3975,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:145: r */ t9=t3;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=lf[85]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=t2; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k3973 in a3964 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3975,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3982,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:146: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[84]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3980 in k3973 in a3964 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_3982,2,av);} a=C_alloc(14); t2=t1; t3=C_a_i_list(&a,1,((C_word*)t0)[2]); t4=t3; t5=C_i_cdr(((C_word*)t0)[3]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3993,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3995,a[2]=t8,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_3995(t10,t6,t5);} /* k3991 in k3980 in k3973 in a3964 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_3993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_3993,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* foldr1075 in k3980 in k3973 in a3964 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_3995(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3995,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4013,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t2,C_fix(1)); t8=t5; t9=t6; t1=t8; t2=t9; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4011 in foldr1075 in k3980 in k3973 in a3964 in k3042 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4013,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4029,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4033,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:102: r */ t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[39]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4033,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4036,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* compiler-syntax.scm:103: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[55]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4036,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4039,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:104: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[97]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4039,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4042,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* compiler-syntax.scm:105: chicken.base#gensym */ t4=*((C_word*)lf[52]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4042,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4045,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* compiler-syntax.scm:106: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[96]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_4045,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4048,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* compiler-syntax.scm:107: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[95]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_4048,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4051,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* compiler-syntax.scm:108: chicken.base#gensym */ t4=*((C_word*)lf[52]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_4051,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4054,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* compiler-syntax.scm:109: chicken.base#gensym */ t4=*((C_word*)lf[52]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_4054,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4057,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* compiler-syntax.scm:110: chicken.base#gensym */ t4=*((C_word*)lf[52]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_4057,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4060,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* compiler-syntax.scm:111: r */ t4=((C_word*)t0)[12];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[31]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_4060,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4063,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* compiler-syntax.scm:112: r */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[94]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_4063,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4066,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); /* compiler-syntax.scm:113: r */ t3=((C_word*)t0)[14];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[84]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_4066,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4069,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],tmp=(C_word)a,a+=15,tmp); /* compiler-syntax.scm:114: r */ t3=((C_word*)t0)[14];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[93]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_4069,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_4072,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* compiler-syntax.scm:115: r */ t4=((C_word*)t0)[14];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[54]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 in ... */ static void C_ccall f_4072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_4072,2,av);} a=C_alloc(20); t2=t1; t3=C_i_cddr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_4081,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t2,a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],tmp=(C_word)a,a+=17,tmp); if(C_truep(C_i_memq(lf[91],*((C_word*)lf[92]+1)))){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4559,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* compiler-syntax.scm:118: length+ */ f_2775(t6,((C_word*)t0)[2]);} else{ t6=t5; f_4081(t6,C_SCHEME_FALSE);}} /* k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_fcall f_4081(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){ C_save_and_reclaim_args((void *)trf_4081,2,t0,t1);} a=C_alloc(29); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=C_i_check_list_2(((C_word*)t0)[2],lf[87]); t7=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_4095,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[2],tmp=(C_word)a,a+=17,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4517,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_4517(t11,t7,((C_word*)t0)[2]);} else{ t2=((C_word*)t0)[7]; t3=((C_word*)t0)[10];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in ... */ static void C_ccall f_4095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(70,c,4)))){ C_save_and_reclaim((void *)f_4095,2,av);} a=C_alloc(70); t2=t1; t3=C_a_i_list(&a,1,lf[88]); t4=C_a_i_list(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST); t5=C_a_i_list(&a,3,((C_word*)t0)[3],t3,t4); t6=C_a_i_list(&a,2,((C_word*)t0)[4],t5); t7=C_a_i_list(&a,1,t6); t8=t7; t9=C_a_i_list(&a,2,((C_word*)t0)[5],((C_word*)t0)[4]); t10=t9; t11=C_i_cadr(((C_word*)t0)[6]); t12=C_a_i_list(&a,2,((C_word*)t0)[7],t11); t13=t12; t14=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t15=t14; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=((C_word*)t16)[1]; t18=C_i_check_list_2(t2,lf[87]); t19=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_4447,a[2]=t13,a[3]=t10,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=t8,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[4],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[5],a[17]=((C_word*)t0)[15],a[18]=t2,tmp=(C_word)a,a+=19,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4449,a[2]=t16,a[3]=t21,a[4]=t17,tmp=(C_word)a,a+=5,tmp)); t23=((C_word*)t21)[1]; f_4449(t23,t19,t2,((C_word*)t0)[16]);} /* k4116 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in ... */ static void C_ccall f_4118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_4118,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* g917 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in ... */ static C_word C_fcall f_4123(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_a_i_list(&a,2,((C_word*)t0)[2],lf[87]); t3=C_a_i_list(&a,3,lf[48],t1,t2); return(C_a_i_list(&a,2,lf[49],t3));} /* k4136 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in ... */ static void C_ccall f_4138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_4138,2,av);} a=C_alloc(29); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_4153,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=t2,a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4345,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_4345(t11,t7,((C_word*)t0)[15],((C_word*)t0)[15]);} /* k4151 in k4136 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in ... */ static void C_ccall f_4153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ C_save_and_reclaim((void *)f_4153,2,av);} a=C_alloc(33); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4302,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_4309,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=t2,a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4311,a[2]=t7,a[3]=t5,a[4]=t10,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_4311(t12,t8,((C_word*)t0)[16]);} /* k4199 in k4261 in k4307 in k4151 in k4136 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in ... */ static void C_ccall f_4201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(57,c,3)))){ C_save_and_reclaim((void *)f_4201,2,av);} a=C_alloc(57); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[51],t2); t4=C_a_i_list(&a,5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t3); t5=C_a_i_list(&a,3,lf[50],((C_word*)t0)[7],C_fix(1)); t6=C_a_i_list(&a,4,((C_word*)t0)[8],((C_word*)t0)[9],t4,t5); t7=C_a_i_list(&a,4,((C_word*)t0)[3],((C_word*)t0)[2],((C_word*)t0)[10],t6); t8=C_a_i_list(&a,1,t7); /* compiler-syntax.scm:120: ##sys#append */ t9=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=((C_word*)t0)[11]; av2[2]=((C_word*)t0)[12]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* map-loop1032 in k4261 in k4307 in k4151 in k4136 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in ... */ static void C_fcall f_4203(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_4203,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_list(&a,3,lf[50],t3,C_fix(1)); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4261 in k4307 in k4151 in k4136 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in ... */ static void C_ccall f_4263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(73,c,3)))){ C_save_and_reclaim((void *)f_4263,2,av);} a=C_alloc(73); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list(&a,2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST); t4=C_a_i_list(&a,3,((C_word*)t0)[4],t2,t3); t5=C_a_i_list(&a,2,((C_word*)t0)[5],t4); t6=C_a_i_list(&a,1,t5); t7=t6; t8=C_a_i_list(&a,4,lf[89],((C_word*)t0)[6],C_fix(1),((C_word*)t0)[5]); t9=t8; t10=C_a_i_list(&a,3,((C_word*)t0)[7],((C_word*)t0)[6],((C_word*)t0)[5]); t11=t10; t12=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t13=t12; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=((C_word*)t14)[1]; t16=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4201,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=t7,a[5]=t9,a[6]=t11,a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[15],tmp=(C_word)a,a+=13,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4203,a[2]=t14,a[3]=t18,a[4]=t15,tmp=(C_word)a,a+=5,tmp)); t20=((C_word*)t18)[1]; f_4203(t20,t16,((C_word*)t0)[16]);} /* map-loop1002 in k4307 in k4151 in k4136 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in ... */ static void C_fcall f_4265(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_4265,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_list(&a,3,lf[50],t3,C_fix(0)); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g978 in k4151 in k4136 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in ... */ static C_word C_fcall f_4302(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_a_i_list(&a,2,((C_word*)t0)[2],t1));} /* k4307 in k4151 in k4136 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in ... */ static void C_ccall f_4309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,3)))){ C_save_and_reclaim((void *)f_4309,2,av);} a=C_alloc(32); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_4263,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=t3,a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4265,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_4265(t12,t8,((C_word*)t0)[16]);} /* map-loop972 in k4151 in k4136 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in ... */ static void C_fcall f_4311(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_4311,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* compiler-syntax.scm:128: g978 */ f_4302(C_a_i(&a,6),((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop941 in k4136 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in ... */ static void C_fcall f_4345(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_4345,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list2(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop911 in k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in ... */ static void C_fcall f_4393(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(24,0,2)))){ C_save_and_reclaim_args((void *)trf_4393,3,t0,t1,t2);} a=C_alloc(24); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* compiler-syntax.scm:124: g917 */ f_4123(C_a_i(&a,21),((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4445 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in ... */ static void C_ccall f_4447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(44,c,3)))){ C_save_and_reclaim((void *)f_4447,2,av);} a=C_alloc(44); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4118,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4123,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_4138,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[15],a[11]=((C_word*)t0)[4],a[12]=((C_word*)t0)[16],a[13]=((C_word*)t0)[17],a[14]=t5,a[15]=((C_word*)t0)[18],tmp=(C_word)a,a+=16,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4393,a[2]=t10,a[3]=t8,a[4]=t13,a[5]=t9,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_4393(t15,t11,((C_word*)t0)[18]);} /* map-loop880 in k4093 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in ... */ static void C_fcall f_4449(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_4449,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list2(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop850 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in ... */ static void C_fcall f_4517(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_4517,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4542,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_a_i_list(&a,1,t4); /* compiler-syntax.scm:119: chicken.base#gensym */ t6=*((C_word*)lf[52]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4540 in map-loop850 in k4079 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in ... */ static void C_ccall f_4542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4542,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4517(t6,((C_word*)t0)[5],t5);} /* k4557 in k4070 in k4067 in k4064 in k4061 in k4058 in k4055 in k4052 in k4049 in k4046 in k4043 in k4040 in k4037 in k4034 in k4031 in a4028 in k3039 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_4559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4559,2,av);} t2=((C_word*)t0)[2]; f_4081(t2,C_i_greaterp(t1,C_fix(2)));} /* a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4561,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4565,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* compiler-syntax.scm:72: r */ t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[39]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4565,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4568,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* compiler-syntax.scm:73: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[55]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4568,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4571,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* compiler-syntax.scm:74: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[102]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4571,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4574,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* compiler-syntax.scm:75: chicken.base#gensym */ t4=*((C_word*)lf[52]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4574,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4577,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* compiler-syntax.scm:76: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[94]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_4577,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4580,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* compiler-syntax.scm:77: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[31]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_4580,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4583,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* compiler-syntax.scm:78: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[93]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_4583,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4586,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* compiler-syntax.scm:79: r */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[54]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_4586,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4589,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* compiler-syntax.scm:80: r */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[84]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_4589,2,av);} a=C_alloc(16); t2=C_i_cddr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4598,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); if(C_truep(C_i_memq(lf[101],*((C_word*)lf[92]+1)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5016,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* compiler-syntax.scm:83: length+ */ f_2775(t5,((C_word*)t0)[2]);} else{ t5=t4; f_4598(t5,C_SCHEME_FALSE);}} /* k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_4598(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,0,3)))){ C_save_and_reclaim_args((void *)trf_4598,2,t0,t1);} a=C_alloc(25); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=C_i_check_list_2(((C_word*)t0)[2],lf[87]); t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4612,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[2],tmp=(C_word)a,a+=13,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4974,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_4974(t11,t7,((C_word*)t0)[2]);} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){ C_save_and_reclaim((void *)f_4612,2,av);} a=C_alloc(31); t2=t1; t3=C_i_cadr(((C_word*)t0)[2]); t4=C_a_i_list(&a,2,((C_word*)t0)[3],t3); t5=t4; t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=C_i_check_list_2(t2,lf[87]); t11=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4920,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4922,a[2]=t8,a[3]=t13,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t15=((C_word*)t13)[1]; f_4922(t15,t11,t2,((C_word*)t0)[12]);} /* k4625 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4627,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* g682 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static C_word C_fcall f_4632(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_a_i_list(&a,2,((C_word*)t0)[2],lf[100]); t3=C_a_i_list(&a,3,lf[48],t1,t2); return(C_a_i_list(&a,2,lf[49],t3));} /* k4645 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_4647,2,av);} a=C_alloc(24); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4662,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4826,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_4826(t11,t7,((C_word*)t0)[10],((C_word*)t0)[10]);} /* k4660 in k4645 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_4662,2,av);} a=C_alloc(28); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4783,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4790,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t2,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4792,a[2]=t7,a[3]=t5,a[4]=t10,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_4792(t12,t8,((C_word*)t0)[11]);} /* k4696 in k4742 in k4788 in k4660 in k4645 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in ... */ static void C_ccall f_4698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){ C_save_and_reclaim((void *)f_4698,2,av);} a=C_alloc(39); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[51],t2); t4=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t3); t5=C_a_i_list(&a,3,((C_word*)t0)[5],((C_word*)t0)[6],t4); t6=C_a_i_list(&a,4,((C_word*)t0)[7],((C_word*)t0)[2],((C_word*)t0)[8],t5); t7=C_a_i_list(&a,1,t6); /* compiler-syntax.scm:85: ##sys#append */ t8=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=((C_word*)t0)[9]; av2[2]=((C_word*)t0)[10]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* map-loop797 in k4742 in k4788 in k4660 in k4645 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in ... */ static void C_fcall f_4700(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_4700,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_list(&a,3,lf[50],t3,C_fix(1)); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4742 in k4788 in k4660 in k4645 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_ccall f_4744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_4744,2,av);} a=C_alloc(26); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4698,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4700,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_4700(t12,t8,((C_word*)t0)[11]);} /* map-loop767 in k4788 in k4660 in k4645 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in ... */ static void C_fcall f_4746(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_4746,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_list(&a,3,lf[50],t3,C_fix(0)); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g743 in k4660 in k4645 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 in ... */ static C_word C_fcall f_4783(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_a_i_list(&a,2,((C_word*)t0)[2],t1));} /* k4788 in k4660 in k4645 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 in ... */ static void C_ccall f_4790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_4790,2,av);} a=C_alloc(27); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4744,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4746,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_4746(t12,t8,((C_word*)t0)[11]);} /* map-loop737 in k4660 in k4645 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 in ... */ static void C_fcall f_4792(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_4792,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* compiler-syntax.scm:91: g743 */ f_4783(C_a_i(&a,6),((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop706 in k4645 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_4826(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_4826,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list2(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop676 in k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_4874(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(24,0,2)))){ C_save_and_reclaim_args((void *)trf_4874,3,t0,t1,t2);} a=C_alloc(24); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* compiler-syntax.scm:87: g682 */ f_4632(C_a_i(&a,21),((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4918 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,3)))){ C_save_and_reclaim((void *)f_4920,2,av);} a=C_alloc(35); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4627,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4632,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4647,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[4],a[9]=t4,a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4874,a[2]=t9,a[3]=t7,a[4]=t12,a[5]=t8,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_4874(t14,t10,((C_word*)t0)[12]);} /* map-loop645 in k4610 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_4922(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_4922,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list2(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop615 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_fcall f_4974(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_4974,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4999,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_a_i_list(&a,1,t4); /* compiler-syntax.scm:84: chicken.base#gensym */ t6=*((C_word*)lf[52]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4997 in map-loop615 in k4596 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_4999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4999,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4974(t6,((C_word*)t0)[5],t5);} /* k5014 in k4587 in k4584 in k4581 in k4578 in k4575 in k4572 in k4569 in k4566 in k4563 in a4560 in k1692 in k1689 in k1686 in k1683 in k1680 in k1677 */ static void C_ccall f_5016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5016,2,av);} t2=((C_word*)t0)[2]; f_4598(t2,C_i_greaterp(t1,C_fix(2)));} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_compiler_2dsyntax_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("compiler-syntax")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_compiler_2dsyntax_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1003))){ C_save(t1); C_rereclaim2(1003*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,105); lf[0]=C_h_intern(&lf[0],15, C_text("compiler-syntax")); lf[1]=C_h_intern(&lf[1],33, C_text("chicken.compiler.compiler-syntax#")); lf[3]=C_h_intern(&lf[3],59, C_text("chicken.compiler.compiler-syntax#compiler-syntax-statistics")); lf[4]=C_h_intern(&lf[4],26, C_text("##sys#compiler-syntax-hook")); lf[5]=C_h_intern(&lf[5],26, C_text("chicken.base#alist-update!")); lf[6]=C_h_intern(&lf[6],22, C_text("chicken.base#alist-ref")); lf[7]=C_h_intern(&lf[7],10, C_text("scheme#eq\077")); lf[9]=C_h_intern(&lf[9],10, C_text("##sys#put!")); lf[10]=C_h_intern(&lf[10],26, C_text("##compiler#compiler-syntax")); lf[11]=C_h_intern(&lf[11],13, C_text("scheme#append")); lf[12]=C_h_intern(&lf[12],31, C_text("##sys#default-macro-environment")); lf[13]=C_h_intern(&lf[13],24, C_text("##sys#ensure-transformer")); lf[14]=C_h_intern(&lf[14],20, C_text("##sys#er-transformer")); lf[16]=C_h_intern(&lf[16],39, C_text("chicken.compiler.core#extended-bindings")); lf[17]=C_h_intern(&lf[17],6, C_text("format")); lf[18]=C_h_intern(&lf[18],20, C_text("chicken.base#warning")); lf[19]=C_h_intern(&lf[19],30, C_text("chicken.base#get-output-string")); lf[20]=C_h_intern(&lf[20],22, C_text("chicken.format#fprintf")); lf[21]=C_h_intern(&lf[21],11, C_text("##sys#print")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[23]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024\047, in format string ")); lf[24]=C_h_intern(&lf[24],18, C_text("##sys#write-char-0")); lf[25]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002) ")); lf[26]=C_h_intern(&lf[26],31, C_text("chicken.base#open-output-string")); lf[27]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[28]=C_h_intern(&lf[28],33, C_text("chicken.compiler.support#get-line")); lf[29]=C_decode_literal(C_heaptop,C_text("\376B\000\000/too few arguments to formatted output procedure")); lf[30]=C_h_intern(&lf[30],26, C_text("##sys#reverse-list->string")); lf[31]=C_h_intern(&lf[31],5, C_text("quote")); lf[32]=C_h_intern(&lf[32],23, C_text("##sys#check-output-port")); lf[33]=C_h_intern(&lf[33],14, C_text("scheme#reverse")); lf[34]=C_decode_literal(C_heaptop,C_text("\376B\000\0000too many arguments to formatted output procedure")); lf[35]=C_h_intern(&lf[35],18, C_text("##sys#flush-output")); lf[36]=C_h_intern(&lf[36],11, C_text("##sys#apply")); lf[37]=C_decode_literal(C_heaptop,C_text("\376B\000\000$illegal format-string character `~c\047")); lf[38]=C_h_intern(&lf[38],14, C_text("number->string")); lf[39]=C_h_intern(&lf[39],3, C_text("let")); lf[40]=C_h_intern(&lf[40],3, C_text("out")); lf[41]=C_h_intern(&lf[41],12, C_text("scheme#cadar")); lf[42]=C_h_intern(&lf[42],26, C_text("chicken.base#symbol-append")); lf[43]=C_h_intern(&lf[43],15, C_text("chicken.format#")); lf[44]=C_h_intern(&lf[44],20, C_text("chicken.base#call/cc")); lf[45]=C_h_intern(&lf[45],18, C_text("chicken.base#foldl")); lf[46]=C_h_intern(&lf[46],12, C_text("##core#quote")); lf[47]=C_h_intern(&lf[47],5, C_text("foldl")); lf[48]=C_h_intern(&lf[48],16, C_text("##sys#check-list")); lf[49]=C_h_intern(&lf[49],12, C_text("##core#check")); lf[50]=C_h_intern(&lf[50],10, C_text("##sys#slot")); lf[51]=C_h_intern(&lf[51],10, C_text("##core#app")); lf[52]=C_h_intern(&lf[52],19, C_text("chicken.base#gensym")); lf[53]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005foldl")); lf[54]=C_h_intern(&lf[54],5, C_text("pair\077")); lf[55]=C_h_intern(&lf[55],2, C_text("if")); lf[56]=C_h_intern(&lf[56],4, C_text("let\052")); lf[57]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001chicken.base#foldl\376\377\016")); lf[58]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001pair\077\376\001\000\000\014\001scheme#pair\077\376\377\016")); lf[59]=C_h_intern(&lf[59],18, C_text("chicken.base#foldr")); lf[60]=C_h_intern(&lf[60],5, C_text("foldr")); lf[61]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005foldr")); lf[62]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001chicken.base#foldr\376\377\016")); lf[63]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001pair\077\376\001\000\000\014\001scheme#pair\077\376\377\016")); lf[64]=C_h_intern(&lf[64],6, C_text("printf")); lf[65]=C_h_intern(&lf[65],21, C_text("##sys#standard-output")); lf[66]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\025\001chicken.format#printf\376\377\016")); lf[67]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001display\376\001\000\000\016\001scheme#display\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001write\376\001\000\000\014\001scheme#wri" "te\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001number->string\376\001\000\000\025\001scheme#number->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001write" "-char\376\001\000\000\021\001scheme#write-char\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001open-output-string\376\001\000\000\037\001chicken.base" "#open-output-string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001get-output-string\376\001\000\000\036\001chicken.base#get-outpu" "t-string\376\377\016")); lf[68]=C_h_intern(&lf[68],7, C_text("fprintf")); lf[69]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\026\001chicken.format#fprintf\376\377\016")); lf[70]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001display\376\001\000\000\016\001scheme#display\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001write\376\001\000\000\014\001scheme#wri" "te\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001number->string\376\001\000\000\025\001scheme#number->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001write" "-char\376\001\000\000\021\001scheme#write-char\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001open-output-string\376\001\000\000\037\001chicken.base" "#open-output-string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001get-output-string\376\001\000\000\036\001chicken.base#get-outpu" "t-string\376\377\016")); lf[71]=C_h_intern(&lf[71],17, C_text("get-output-string")); lf[72]=C_h_intern(&lf[72],18, C_text("open-output-string")); lf[73]=C_h_intern(&lf[73],22, C_text("chicken.format#sprintf")); lf[74]=C_h_intern(&lf[74],7, C_text("sprintf")); lf[75]=C_h_intern(&lf[75],7, C_text("display")); lf[76]=C_h_intern(&lf[76],14, C_text("scheme#display")); lf[77]=C_h_intern(&lf[77],5, C_text("write")); lf[78]=C_h_intern(&lf[78],12, C_text("scheme#write")); lf[79]=C_h_intern(&lf[79],21, C_text("scheme#number->string")); lf[80]=C_h_intern(&lf[80],10, C_text("write-char")); lf[81]=C_h_intern(&lf[81],17, C_text("scheme#write-char")); lf[82]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\026\001chicken.format#sprintf\376\003\000\000\002\376\001\000\000\025\001chicken.format#format\376\377\016")); lf[83]=C_h_intern(&lf[83],14, C_text("chicken.base#o")); lf[84]=C_h_intern(&lf[84],6, C_text("lambda")); lf[85]=C_h_intern(&lf[85],3, C_text("tmp")); lf[86]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001chicken.base#o\376\377\016")); lf[87]=C_h_intern(&lf[87],3, C_text("map")); lf[88]=C_h_intern(&lf[88],16, C_text("##core#undefined")); lf[89]=C_h_intern(&lf[89],13, C_text("##sys#setslot")); lf[90]=C_h_intern(&lf[90],12, C_text("##sys#append")); lf[91]=C_h_intern(&lf[91],10, C_text("scheme#map")); lf[92]=C_h_intern(&lf[92],39, C_text("chicken.compiler.core#standard-bindings")); lf[93]=C_h_intern(&lf[93],3, C_text("and")); lf[94]=C_h_intern(&lf[94],5, C_text("begin")); lf[95]=C_h_intern(&lf[95],4, C_text("set!")); lf[96]=C_h_intern(&lf[96],4, C_text("cons")); lf[97]=C_h_intern(&lf[97],8, C_text("map-loop")); lf[98]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001scheme#map\376\003\000\000\002\376\001\000\000\011\001##sys#map\376\377\016")); lf[99]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001pair\077\376\001\000\000\014\001scheme#pair\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001cons\376\001\000\000\013\001scheme#cons\376\377\016")); lf[100]=C_h_intern(&lf[100],8, C_text("for-each")); lf[101]=C_h_intern(&lf[101],15, C_text("scheme#for-each")); lf[102]=C_h_intern(&lf[102],13, C_text("for-each-loop")); lf[103]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\017\001scheme#for-each\376\003\000\000\002\376\001\000\000\016\001##sys#for-each\376\377\016")); lf[104]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001pair\077\376\001\000\000\014\001scheme#pair\077\376\377\016")); C_register_lf2(lf,105,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1679,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[172] = { {C_text("f_1679:compiler_2dsyntax_2escm"),(void*)f_1679}, {C_text("f_1682:compiler_2dsyntax_2escm"),(void*)f_1682}, {C_text("f_1685:compiler_2dsyntax_2escm"),(void*)f_1685}, {C_text("f_1688:compiler_2dsyntax_2escm"),(void*)f_1688}, {C_text("f_1691:compiler_2dsyntax_2escm"),(void*)f_1691}, {C_text("f_1694:compiler_2dsyntax_2escm"),(void*)f_1694}, {C_text("f_2775:compiler_2dsyntax_2escm"),(void*)f_2775}, {C_text("f_2781:compiler_2dsyntax_2escm"),(void*)f_2781}, {C_text("f_2975:compiler_2dsyntax_2escm"),(void*)f_2975}, {C_text("f_2979:compiler_2dsyntax_2escm"),(void*)f_2979}, {C_text("f_2983:compiler_2dsyntax_2escm"),(void*)f_2983}, {C_text("f_2987:compiler_2dsyntax_2escm"),(void*)f_2987}, {C_text("f_2992:compiler_2dsyntax_2escm"),(void*)f_2992}, {C_text("f_3001:compiler_2dsyntax_2escm"),(void*)f_3001}, {C_text("f_3011:compiler_2dsyntax_2escm"),(void*)f_3011}, {C_text("f_3026:compiler_2dsyntax_2escm"),(void*)f_3026}, {C_text("f_3030:compiler_2dsyntax_2escm"),(void*)f_3030}, {C_text("f_3034:compiler_2dsyntax_2escm"),(void*)f_3034}, {C_text("f_3041:compiler_2dsyntax_2escm"),(void*)f_3041}, {C_text("f_3044:compiler_2dsyntax_2escm"),(void*)f_3044}, {C_text("f_3047:compiler_2dsyntax_2escm"),(void*)f_3047}, {C_text("f_3050:compiler_2dsyntax_2escm"),(void*)f_3050}, {C_text("f_3053:compiler_2dsyntax_2escm"),(void*)f_3053}, {C_text("f_3056:compiler_2dsyntax_2escm"),(void*)f_3056}, {C_text("f_3058:compiler_2dsyntax_2escm"),(void*)f_3058}, {C_text("f_3064:compiler_2dsyntax_2escm"),(void*)f_3064}, {C_text("f_3086:compiler_2dsyntax_2escm"),(void*)f_3086}, {C_text("f_3089:compiler_2dsyntax_2escm"),(void*)f_3089}, {C_text("f_3092:compiler_2dsyntax_2escm"),(void*)f_3092}, {C_text("f_3096:compiler_2dsyntax_2escm"),(void*)f_3096}, {C_text("f_3099:compiler_2dsyntax_2escm"),(void*)f_3099}, {C_text("f_3109:compiler_2dsyntax_2escm"),(void*)f_3109}, {C_text("f_3115:compiler_2dsyntax_2escm"),(void*)f_3115}, {C_text("f_3118:compiler_2dsyntax_2escm"),(void*)f_3118}, {C_text("f_3121:compiler_2dsyntax_2escm"),(void*)f_3121}, {C_text("f_3124:compiler_2dsyntax_2escm"),(void*)f_3124}, {C_text("f_3127:compiler_2dsyntax_2escm"),(void*)f_3127}, {C_text("f_3130:compiler_2dsyntax_2escm"),(void*)f_3130}, {C_text("f_3133:compiler_2dsyntax_2escm"),(void*)f_3133}, {C_text("f_3136:compiler_2dsyntax_2escm"),(void*)f_3136}, {C_text("f_3140:compiler_2dsyntax_2escm"),(void*)f_3140}, {C_text("f_3143:compiler_2dsyntax_2escm"),(void*)f_3143}, {C_text("f_3149:compiler_2dsyntax_2escm"),(void*)f_3149}, {C_text("f_3152:compiler_2dsyntax_2escm"),(void*)f_3152}, {C_text("f_3155:compiler_2dsyntax_2escm"),(void*)f_3155}, {C_text("f_3164:compiler_2dsyntax_2escm"),(void*)f_3164}, {C_text("f_3167:compiler_2dsyntax_2escm"),(void*)f_3167}, {C_text("f_3170:compiler_2dsyntax_2escm"),(void*)f_3170}, {C_text("f_3172:compiler_2dsyntax_2escm"),(void*)f_3172}, {C_text("f_3182:compiler_2dsyntax_2escm"),(void*)f_3182}, {C_text("f_3201:compiler_2dsyntax_2escm"),(void*)f_3201}, {C_text("f_3232:compiler_2dsyntax_2escm"),(void*)f_3232}, {C_text("f_3239:compiler_2dsyntax_2escm"),(void*)f_3239}, {C_text("f_3249:compiler_2dsyntax_2escm"),(void*)f_3249}, {C_text("f_3259:compiler_2dsyntax_2escm"),(void*)f_3259}, {C_text("f_3262:compiler_2dsyntax_2escm"),(void*)f_3262}, {C_text("f_3285:compiler_2dsyntax_2escm"),(void*)f_3285}, {C_text("f_3314:compiler_2dsyntax_2escm"),(void*)f_3314}, {C_text("f_3320:compiler_2dsyntax_2escm"),(void*)f_3320}, {C_text("f_3337:compiler_2dsyntax_2escm"),(void*)f_3337}, {C_text("f_3354:compiler_2dsyntax_2escm"),(void*)f_3354}, {C_text("f_3371:compiler_2dsyntax_2escm"),(void*)f_3371}, {C_text("f_3392:compiler_2dsyntax_2escm"),(void*)f_3392}, {C_text("f_3413:compiler_2dsyntax_2escm"),(void*)f_3413}, {C_text("f_3434:compiler_2dsyntax_2escm"),(void*)f_3434}, {C_text("f_3456:compiler_2dsyntax_2escm"),(void*)f_3456}, {C_text("f_3459:compiler_2dsyntax_2escm"),(void*)f_3459}, {C_text("f_3510:compiler_2dsyntax_2escm"),(void*)f_3510}, {C_text("f_3582:compiler_2dsyntax_2escm"),(void*)f_3582}, {C_text("f_3589:compiler_2dsyntax_2escm"),(void*)f_3589}, {C_text("f_3593:compiler_2dsyntax_2escm"),(void*)f_3593}, {C_text("f_3607:compiler_2dsyntax_2escm"),(void*)f_3607}, {C_text("f_3615:compiler_2dsyntax_2escm"),(void*)f_3615}, {C_text("f_3618:compiler_2dsyntax_2escm"),(void*)f_3618}, {C_text("f_3620:compiler_2dsyntax_2escm"),(void*)f_3620}, {C_text("f_3639:compiler_2dsyntax_2escm"),(void*)f_3639}, {C_text("f_3642:compiler_2dsyntax_2escm"),(void*)f_3642}, {C_text("f_3645:compiler_2dsyntax_2escm"),(void*)f_3645}, {C_text("f_3648:compiler_2dsyntax_2escm"),(void*)f_3648}, {C_text("f_3651:compiler_2dsyntax_2escm"),(void*)f_3651}, {C_text("f_3654:compiler_2dsyntax_2escm"),(void*)f_3654}, {C_text("f_3657:compiler_2dsyntax_2escm"),(void*)f_3657}, {C_text("f_3736:compiler_2dsyntax_2escm"),(void*)f_3736}, {C_text("f_3755:compiler_2dsyntax_2escm"),(void*)f_3755}, {C_text("f_3758:compiler_2dsyntax_2escm"),(void*)f_3758}, {C_text("f_3761:compiler_2dsyntax_2escm"),(void*)f_3761}, {C_text("f_3764:compiler_2dsyntax_2escm"),(void*)f_3764}, {C_text("f_3767:compiler_2dsyntax_2escm"),(void*)f_3767}, {C_text("f_3770:compiler_2dsyntax_2escm"),(void*)f_3770}, {C_text("f_3841:compiler_2dsyntax_2escm"),(void*)f_3841}, {C_text("f_3845:compiler_2dsyntax_2escm"),(void*)f_3845}, {C_text("f_3854:compiler_2dsyntax_2escm"),(void*)f_3854}, {C_text("f_3864:compiler_2dsyntax_2escm"),(void*)f_3864}, {C_text("f_3881:compiler_2dsyntax_2escm"),(void*)f_3881}, {C_text("f_3885:compiler_2dsyntax_2escm"),(void*)f_3885}, {C_text("f_3888:compiler_2dsyntax_2escm"),(void*)f_3888}, {C_text("f_3898:compiler_2dsyntax_2escm"),(void*)f_3898}, {C_text("f_3910:compiler_2dsyntax_2escm"),(void*)f_3910}, {C_text("f_3922:compiler_2dsyntax_2escm"),(void*)f_3922}, {C_text("f_3965:compiler_2dsyntax_2escm"),(void*)f_3965}, {C_text("f_3975:compiler_2dsyntax_2escm"),(void*)f_3975}, {C_text("f_3982:compiler_2dsyntax_2escm"),(void*)f_3982}, {C_text("f_3993:compiler_2dsyntax_2escm"),(void*)f_3993}, {C_text("f_3995:compiler_2dsyntax_2escm"),(void*)f_3995}, {C_text("f_4013:compiler_2dsyntax_2escm"),(void*)f_4013}, {C_text("f_4029:compiler_2dsyntax_2escm"),(void*)f_4029}, {C_text("f_4033:compiler_2dsyntax_2escm"),(void*)f_4033}, {C_text("f_4036:compiler_2dsyntax_2escm"),(void*)f_4036}, {C_text("f_4039:compiler_2dsyntax_2escm"),(void*)f_4039}, {C_text("f_4042:compiler_2dsyntax_2escm"),(void*)f_4042}, {C_text("f_4045:compiler_2dsyntax_2escm"),(void*)f_4045}, {C_text("f_4048:compiler_2dsyntax_2escm"),(void*)f_4048}, {C_text("f_4051:compiler_2dsyntax_2escm"),(void*)f_4051}, {C_text("f_4054:compiler_2dsyntax_2escm"),(void*)f_4054}, {C_text("f_4057:compiler_2dsyntax_2escm"),(void*)f_4057}, {C_text("f_4060:compiler_2dsyntax_2escm"),(void*)f_4060}, {C_text("f_4063:compiler_2dsyntax_2escm"),(void*)f_4063}, {C_text("f_4066:compiler_2dsyntax_2escm"),(void*)f_4066}, {C_text("f_4069:compiler_2dsyntax_2escm"),(void*)f_4069}, {C_text("f_4072:compiler_2dsyntax_2escm"),(void*)f_4072}, {C_text("f_4081:compiler_2dsyntax_2escm"),(void*)f_4081}, {C_text("f_4095:compiler_2dsyntax_2escm"),(void*)f_4095}, {C_text("f_4118:compiler_2dsyntax_2escm"),(void*)f_4118}, {C_text("f_4123:compiler_2dsyntax_2escm"),(void*)f_4123}, {C_text("f_4138:compiler_2dsyntax_2escm"),(void*)f_4138}, {C_text("f_4153:compiler_2dsyntax_2escm"),(void*)f_4153}, {C_text("f_4201:compiler_2dsyntax_2escm"),(void*)f_4201}, {C_text("f_4203:compiler_2dsyntax_2escm"),(void*)f_4203}, {C_text("f_4263:compiler_2dsyntax_2escm"),(void*)f_4263}, {C_text("f_4265:compiler_2dsyntax_2escm"),(void*)f_4265}, {C_text("f_4302:compiler_2dsyntax_2escm"),(void*)f_4302}, {C_text("f_4309:compiler_2dsyntax_2escm"),(void*)f_4309}, {C_text("f_4311:compiler_2dsyntax_2escm"),(void*)f_4311}, {C_text("f_4345:compiler_2dsyntax_2escm"),(void*)f_4345}, {C_text("f_4393:compiler_2dsyntax_2escm"),(void*)f_4393}, {C_text("f_4447:compiler_2dsyntax_2escm"),(void*)f_4447}, {C_text("f_4449:compiler_2dsyntax_2escm"),(void*)f_4449}, {C_text("f_4517:compiler_2dsyntax_2escm"),(void*)f_4517}, {C_text("f_4542:compiler_2dsyntax_2escm"),(void*)f_4542}, {C_text("f_4559:compiler_2dsyntax_2escm"),(void*)f_4559}, {C_text("f_4561:compiler_2dsyntax_2escm"),(void*)f_4561}, {C_text("f_4565:compiler_2dsyntax_2escm"),(void*)f_4565}, {C_text("f_4568:compiler_2dsyntax_2escm"),(void*)f_4568}, {C_text("f_4571:compiler_2dsyntax_2escm"),(void*)f_4571}, {C_text("f_4574:compiler_2dsyntax_2escm"),(void*)f_4574}, {C_text("f_4577:compiler_2dsyntax_2escm"),(void*)f_4577}, {C_text("f_4580:compiler_2dsyntax_2escm"),(void*)f_4580}, {C_text("f_4583:compiler_2dsyntax_2escm"),(void*)f_4583}, {C_text("f_4586:compiler_2dsyntax_2escm"),(void*)f_4586}, {C_text("f_4589:compiler_2dsyntax_2escm"),(void*)f_4589}, {C_text("f_4598:compiler_2dsyntax_2escm"),(void*)f_4598}, {C_text("f_4612:compiler_2dsyntax_2escm"),(void*)f_4612}, {C_text("f_4627:compiler_2dsyntax_2escm"),(void*)f_4627}, {C_text("f_4632:compiler_2dsyntax_2escm"),(void*)f_4632}, {C_text("f_4647:compiler_2dsyntax_2escm"),(void*)f_4647}, {C_text("f_4662:compiler_2dsyntax_2escm"),(void*)f_4662}, {C_text("f_4698:compiler_2dsyntax_2escm"),(void*)f_4698}, {C_text("f_4700:compiler_2dsyntax_2escm"),(void*)f_4700}, {C_text("f_4744:compiler_2dsyntax_2escm"),(void*)f_4744}, {C_text("f_4746:compiler_2dsyntax_2escm"),(void*)f_4746}, {C_text("f_4783:compiler_2dsyntax_2escm"),(void*)f_4783}, {C_text("f_4790:compiler_2dsyntax_2escm"),(void*)f_4790}, {C_text("f_4792:compiler_2dsyntax_2escm"),(void*)f_4792}, {C_text("f_4826:compiler_2dsyntax_2escm"),(void*)f_4826}, {C_text("f_4874:compiler_2dsyntax_2escm"),(void*)f_4874}, {C_text("f_4920:compiler_2dsyntax_2escm"),(void*)f_4920}, {C_text("f_4922:compiler_2dsyntax_2escm"),(void*)f_4922}, {C_text("f_4974:compiler_2dsyntax_2escm"),(void*)f_4974}, {C_text("f_4999:compiler_2dsyntax_2escm"),(void*)f_4999}, {C_text("f_5016:compiler_2dsyntax_2escm"),(void*)f_5016}, {C_text("toplevel:compiler_2dsyntax_2escm"),(void*)C_compiler_2dsyntax_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.compiler.compiler-syntax#partition o|hiding unexported module binding: chicken.compiler.compiler-syntax#span o|hiding unexported module binding: chicken.compiler.compiler-syntax#take o|hiding unexported module binding: chicken.compiler.compiler-syntax#drop o|hiding unexported module binding: chicken.compiler.compiler-syntax#split-at o|hiding unexported module binding: chicken.compiler.compiler-syntax#append-map o|hiding unexported module binding: chicken.compiler.compiler-syntax#every o|hiding unexported module binding: chicken.compiler.compiler-syntax#any o|hiding unexported module binding: chicken.compiler.compiler-syntax#cons* o|hiding unexported module binding: chicken.compiler.compiler-syntax#concatenate o|hiding unexported module binding: chicken.compiler.compiler-syntax#delete o|hiding unexported module binding: chicken.compiler.compiler-syntax#first o|hiding unexported module binding: chicken.compiler.compiler-syntax#second o|hiding unexported module binding: chicken.compiler.compiler-syntax#third o|hiding unexported module binding: chicken.compiler.compiler-syntax#fourth o|hiding unexported module binding: chicken.compiler.compiler-syntax#fifth o|hiding unexported module binding: chicken.compiler.compiler-syntax#delete-duplicates o|hiding unexported module binding: chicken.compiler.compiler-syntax#alist-cons o|hiding unexported module binding: chicken.compiler.compiler-syntax#filter o|hiding unexported module binding: chicken.compiler.compiler-syntax#filter-map o|hiding unexported module binding: chicken.compiler.compiler-syntax#remove o|hiding unexported module binding: chicken.compiler.compiler-syntax#unzip1 o|hiding unexported module binding: chicken.compiler.compiler-syntax#last o|hiding unexported module binding: chicken.compiler.compiler-syntax#list-index o|hiding unexported module binding: chicken.compiler.compiler-syntax#lset-adjoin/eq? o|hiding unexported module binding: chicken.compiler.compiler-syntax#lset-difference/eq? o|hiding unexported module binding: chicken.compiler.compiler-syntax#lset-union/eq? o|hiding unexported module binding: chicken.compiler.compiler-syntax#lset-intersection/eq? o|hiding unexported module binding: chicken.compiler.compiler-syntax#list-tabulate o|hiding unexported module binding: chicken.compiler.compiler-syntax#lset<=/eq? o|hiding unexported module binding: chicken.compiler.compiler-syntax#lset=/eq? o|hiding unexported module binding: chicken.compiler.compiler-syntax#length+ o|hiding unexported module binding: chicken.compiler.compiler-syntax#find o|hiding unexported module binding: chicken.compiler.compiler-syntax#find-tail o|hiding unexported module binding: chicken.compiler.compiler-syntax#iota o|hiding unexported module binding: chicken.compiler.compiler-syntax#make-list o|hiding unexported module binding: chicken.compiler.compiler-syntax#posq o|hiding unexported module binding: chicken.compiler.compiler-syntax#posv o|hiding unexported module binding: chicken.compiler.compiler-syntax#r-c-s o|hiding unexported module binding: chicken.compiler.compiler-syntax#define-internal-compiler-syntax o|hiding unexported module binding: chicken.compiler.compiler-syntax#compile-format-string S|applied compiler syntax: S| chicken.format#sprintf 2 S| scheme#for-each 1 S| chicken.base#foldl 3 S| scheme#map 17 S| chicken.base#foldr 4 o|eliminated procedure checks: 220 o|specializations: o| 1 (chicken.base#sub1 *) o| 11 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 1 (scheme#= fixnum fixnum) o| 2 (##sys#check-output-port * * *) o| 1 (scheme#cddr (pair * pair)) o| 2 (scheme#>= fixnum fixnum) o| 1 (chicken.base#add1 *) o| 1 (scheme#eqv? * *) o| 19 (##sys#check-list (or pair list) *) o| 24 (scheme#cdr pair) o| 10 (scheme#car pair) (o e)|safe calls: 535 (o e)|assignments to immediate values: 2 o|safe globals: (chicken.compiler.compiler-syntax#r-c-s ##sys#compiler-syntax-hook chicken.compiler.compiler-syntax#compiler-syntax-statistics chicken.compiler.compiler-syntax#posv chicken.compiler.compiler-syntax#posq chicken.compiler.compiler-syntax#make-list chicken.compiler.compiler-syntax#iota chicken.compiler.compiler-syntax#find-tail chicken.compiler.compiler-syntax#find chicken.compiler.compiler-syntax#length+ chicken.compiler.compiler-syntax#lset=/eq? chicken.compiler.compiler-syntax#lset<=/eq? chicken.compiler.compiler-syntax#list-tabulate chicken.compiler.compiler-syntax#lset-intersection/eq? chicken.compiler.compiler-syntax#lset-union/eq? chicken.compiler.compiler-syntax#lset-difference/eq? chicken.compiler.compiler-syntax#lset-adjoin/eq? chicken.compiler.compiler-syntax#list-index chicken.compiler.compiler-syntax#last chicken.compiler.compiler-syntax#unzip1 chicken.compiler.compiler-syntax#remove chicken.compiler.compiler-syntax#filter-map chicken.compiler.compiler-syntax#filter chicken.compiler.compiler-syntax#alist-cons chicken.compiler.compiler-syntax#delete-duplicates chicken.compiler.compiler-syntax#fifth chicken.compiler.compiler-syntax#fourth chicken.compiler.compiler-syntax#third chicken.compiler.compiler-syntax#second chicken.compiler.compiler-syntax#first chicken.compiler.compiler-syntax#delete chicken.compiler.compiler-syntax#concatenate chicken.compiler.compiler-syntax#cons* chicken.compiler.compiler-syntax#any chicken.compiler.compiler-syntax#every chicken.compiler.compiler-syntax#append-map chicken.compiler.compiler-syntax#split-at chicken.compiler.compiler-syntax#drop chicken.compiler.compiler-syntax#take chicken.compiler.compiler-syntax#span chicken.compiler.compiler-syntax#partition) o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#partition o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#span o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#drop o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#split-at o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#append-map o|inlining procedure: k2076 o|inlining procedure: k2076 o|inlining procedure: k2107 o|inlining procedure: k2107 o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#cons* o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#concatenate o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#first o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#second o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#third o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#fourth o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#fifth o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#delete-duplicates o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#alist-cons o|inlining procedure: k2324 o|inlining procedure: k2324 o|inlining procedure: k2316 o|inlining procedure: k2316 o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#filter-map o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#remove o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#unzip1 o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#last o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#list-index o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#lset-union/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#lset-intersection/eq? o|inlining procedure: k2715 o|inlining procedure: k2715 o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#lset<=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#lset=/eq? o|inlining procedure: k2783 o|inlining procedure: k2806 o|inlining procedure: k2806 o|inlining procedure: k2783 o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#find o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#find-tail o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#iota o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#make-list o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#posq o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#posv o|inlining procedure: k3003 o|inlining procedure: k3003 o|inlining procedure: k3066 o|merged explicitly consed rest parameter: args1137 o|inlining procedure: k3100 o|inlining procedure: k3100 o|substituted constant variable: a3111 o|substituted constant variable: a3112 o|substituted constant variable: a3145 o|substituted constant variable: a3146 o|inlining procedure: k3138 o|inlining procedure: k3138 o|inlining procedure: k3184 o|consed rest parameter at call site: "(compiler-syntax.scm:219) fail1134" 3 o|inlining procedure: k3184 o|inlining procedure: k3203 o|inlining procedure: k3213 o|inlining procedure: k3213 o|substituted constant variable: a3233 o|inlining procedure: k3203 o|inlining procedure: k3078 o|inlining procedure: k3251 o|consed rest parameter at call site: "(compiler-syntax.scm:234) fail1134" 3 o|inlining procedure: k3251 o|inlining procedure: k3318 o|inlining procedure: k3318 o|inlining procedure: k3355 o|inlining procedure: k3355 o|inlining procedure: k3393 o|inlining procedure: k3393 o|inlining procedure: k3435 o|inlining procedure: k3435 o|inlining procedure: k3467 o|inlining procedure: k3467 o|inlining procedure: k3496 o|inlining procedure: k3512 o|inlining procedure: k3512 o|inlining procedure: k3496 o|consed rest parameter at call site: "(compiler-syntax.scm:273) fail1134" 3 o|substituted constant variable: a3534 o|substituted constant variable: a3536 o|substituted constant variable: a3538 o|substituted constant variable: a3540 o|substituted constant variable: a3542 o|substituted constant variable: a3544 o|substituted constant variable: a3546 o|substituted constant variable: a3548 o|substituted constant variable: a3550 o|substituted constant variable: a3552 o|substituted constant variable: a3554 o|inlining procedure: k3078 o|inlining procedure: k3571 o|inlining procedure: k3571 o|inlining procedure: k3066 o|substituted constant variable: a3612 o|inlining procedure: k3622 o|inlining procedure: k3622 o|inlining procedure: k3738 o|inlining procedure: k3738 o|inlining procedure: k3846 o|inlining procedure: k3846 o|inlining procedure: k3856 o|inlining procedure: k3856 o|substituted constant variable: a3879 o|inlining procedure: k3889 o|inlining procedure: k3889 o|inlining procedure: k3967 o|inlining procedure: k3997 o|inlining procedure: k3997 o|inlining procedure: k3967 o|inlining procedure: k4076 o|inlining procedure: k4205 o|contracted procedure: "(compiler-syntax.scm:138) g10381047" o|inlining procedure: k4205 o|inlining procedure: k4267 o|contracted procedure: "(compiler-syntax.scm:132) g10081017" o|inlining procedure: k4267 o|inlining procedure: k4313 o|inlining procedure: k4313 o|inlining procedure: k4347 o|inlining procedure: k4347 o|inlining procedure: k4395 o|inlining procedure: k4395 o|inlining procedure: k4451 o|inlining procedure: k4451 o|inlining procedure: k4519 o|contracted procedure: "(compiler-syntax.scm:119) g856865" o|inlining procedure: k4519 o|inlining procedure: k4076 o|inlining procedure: k4593 o|inlining procedure: k4702 o|contracted procedure: "(compiler-syntax.scm:97) g803812" o|inlining procedure: k4702 o|inlining procedure: k4748 o|contracted procedure: "(compiler-syntax.scm:94) g773782" o|inlining procedure: k4748 o|inlining procedure: k4794 o|inlining procedure: k4794 o|inlining procedure: k4828 o|inlining procedure: k4828 o|inlining procedure: k4876 o|inlining procedure: k4876 o|inlining procedure: k4924 o|inlining procedure: k4924 o|inlining procedure: k4976 o|contracted procedure: "(compiler-syntax.scm:84) g621630" o|inlining procedure: k4976 o|inlining procedure: k4593 o|replaced variables: 350 o|removed binding forms: 176 o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#every o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#any o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#filter o|removed side-effect free assignment to unused variable: chicken.compiler.compiler-syntax#list-tabulate o|substituted constant variable: r28075029 o|substituted constant variable: r31395038 o|substituted constant variable: r31395038 o|converted assignments to bindings: (fail1134) o|substituted constant variable: r30795073 o|substituted constant variable: r35725075 o|substituted constant variable: r30675076 o|simplifications: ((let . 1)) o|replaced variables: 3 o|removed binding forms: 388 o|replaced variables: 10 o|removed binding forms: 13 o|removed binding forms: 10 o|simplifications: ((if . 10) (##core#call . 322)) o| call simplifications: o| scheme#cddr 2 o| scheme#> 2 o| ##sys#check-list 4 o| ##sys#setslot 14 o| chicken.fixnum#fx> o| scheme#list 5 o| chicken.fixnum#fx= 2 o| scheme#cadr 5 o| scheme#caddr 2 o| scheme#cadddr 2 o| chicken.fixnum#fx>= 2 o| scheme#memq 6 o| scheme#list? o| scheme#caar o| scheme#string? 3 o| scheme#string-length o| scheme#>= o| scheme#char-upcase o| scheme#char-whitespace? 2 o| ##sys#cons 24 o| scheme#length 6 o| ##sys#list 95 o| scheme#null? 2 o| scheme#string-ref o| ##sys#apply o| scheme#car 5 o| scheme#cons 31 o| ##sys#slot 54 o| scheme#pair? 23 o| scheme#cdr 4 o| chicken.fixnum#fx+ 3 o| scheme#eq? 15 o| scheme#not o|contracted procedure: k2786 o|contracted procedure: k2790 o|contracted procedure: k2796 o|contracted procedure: k2800 o|contracted procedure: k2803 o|contracted procedure: k2816 o|contracted procedure: k2809 o|contracted procedure: k2989 o|contracted procedure: k3006 o|contracted procedure: k3016 o|contracted procedure: k3020 o|contracted procedure: k3036 o|contracted procedure: k3609 o|contracted procedure: k3069 o|contracted procedure: k3075 o|contracted procedure: k3601 o|contracted procedure: k3081 o|contracted procedure: k3159 o|contracted procedure: k3174 o|contracted procedure: k3178 o|contracted procedure: k3187 o|contracted procedure: k3193 o|contracted procedure: k3197 o|contracted procedure: k3206 o|contracted procedure: k3235 o|contracted procedure: k3216 o|contracted procedure: k3223 o|inlining procedure: k3213 o|inlining procedure: k3213 o|contracted procedure: k3242 o|contracted procedure: k3254 o|contracted procedure: k3291 o|contracted procedure: k3271 o|contracted procedure: k3287 o|contracted procedure: k3279 o|contracted procedure: k3275 o|contracted procedure: k3267 o|contracted procedure: k3294 o|contracted procedure: k3306 o|contracted procedure: k3315 o|contracted procedure: k3324 o|contracted procedure: k3331 o|contracted procedure: k3341 o|contracted procedure: k3348 o|contracted procedure: k3358 o|contracted procedure: k3365 o|contracted procedure: k3375 o|contracted procedure: k3386 o|contracted procedure: k3382 o|contracted procedure: k3396 o|contracted procedure: k3407 o|contracted procedure: k3403 o|contracted procedure: k3417 o|contracted procedure: k3428 o|contracted procedure: k3424 o|contracted procedure: k3438 o|contracted procedure: k3445 o|contracted procedure: k3451 o|contracted procedure: k3464 o|contracted procedure: k3470 o|contracted procedure: k3477 o|contracted procedure: k3483 o|contracted procedure: k3486 o|contracted procedure: k3493 o|contracted procedure: k3499 o|contracted procedure: k3515 o|contracted procedure: k3559 o|contracted procedure: k3562 o|contracted procedure: k3574 o|contracted procedure: k3595 o|contracted procedure: k3732 o|contracted procedure: k3725 o|contracted procedure: k3625 o|contracted procedure: k3628 o|contracted procedure: k3631 o|contracted procedure: k3634 o|contracted procedure: k3718 o|contracted procedure: k3722 o|contracted procedure: k3662 o|contracted procedure: k3714 o|contracted procedure: k3710 o|contracted procedure: k3666 o|contracted procedure: k3702 o|contracted procedure: k3706 o|contracted procedure: k3674 o|contracted procedure: k3682 o|contracted procedure: k3690 o|contracted procedure: k3698 o|contracted procedure: k3694 o|contracted procedure: k3686 o|contracted procedure: k3678 o|contracted procedure: k3670 o|contracted procedure: k3837 o|contracted procedure: k3830 o|contracted procedure: k3741 o|contracted procedure: k3744 o|contracted procedure: k3747 o|contracted procedure: k3750 o|contracted procedure: k3827 o|contracted procedure: k3775 o|contracted procedure: k3823 o|contracted procedure: k3819 o|contracted procedure: k3779 o|contracted procedure: k3815 o|contracted procedure: k3787 o|contracted procedure: k3795 o|contracted procedure: k3803 o|contracted procedure: k3811 o|contracted procedure: k3807 o|contracted procedure: k3799 o|contracted procedure: k3791 o|contracted procedure: k3783 o|contracted procedure: k3850 o|contracted procedure: k3876 o|contracted procedure: k3859 o|contracted procedure: k3869 o|contracted procedure: k3916 o|contracted procedure: k3912 o|contracted procedure: k3900 o|contracted procedure: k3904 o|contracted procedure: k3933 o|contracted procedure: k3929 o|contracted procedure: k3924 o|contracted procedure: k3941 o|contracted procedure: k3945 o|contracted procedure: k3949 o|contracted procedure: k3953 o|contracted procedure: k3957 o|contracted procedure: k3961 o|contracted procedure: k3937 o|contracted procedure: k4025 o|contracted procedure: k4018 o|contracted procedure: k3970 o|contracted procedure: k3984 o|contracted procedure: k3988 o|contracted procedure: k4000 o|contracted procedure: k4007 o|contracted procedure: k4015 o|contracted procedure: k4073 o|contracted procedure: k4082 o|contracted procedure: k4090 o|contracted procedure: k4509 o|contracted procedure: k4513 o|contracted procedure: k4505 o|contracted procedure: k4501 o|contracted procedure: k4100 o|contracted procedure: k4427 o|contracted procedure: k4497 o|contracted procedure: k4435 o|contracted procedure: k4439 o|contracted procedure: k4442 o|contracted procedure: k4431 o|contracted procedure: k4112 o|contracted procedure: k4108 o|contracted procedure: k4104 o|contracted procedure: k4120 o|contracted procedure: k4133 o|contracted procedure: k4129 o|contracted procedure: k4148 o|contracted procedure: k4299 o|contracted procedure: k4159 o|contracted procedure: k4253 o|contracted procedure: k4245 o|contracted procedure: k4249 o|contracted procedure: k4241 o|contracted procedure: k4237 o|contracted procedure: k4171 o|contracted procedure: k4175 o|contracted procedure: k4179 o|contracted procedure: k4191 o|contracted procedure: k4187 o|contracted procedure: k4183 o|contracted procedure: k4163 o|contracted procedure: k4167 o|contracted procedure: k4155 o|contracted procedure: k4144 o|contracted procedure: k4140 o|contracted procedure: k4208 o|contracted procedure: k4230 o|contracted procedure: k4226 o|contracted procedure: k4211 o|contracted procedure: k4214 o|contracted procedure: k4222 o|contracted procedure: k4270 o|contracted procedure: k4292 o|contracted procedure: k4288 o|contracted procedure: k4273 o|contracted procedure: k4276 o|contracted procedure: k4284 o|contracted procedure: k4316 o|contracted procedure: k4319 o|contracted procedure: k4322 o|contracted procedure: k4330 o|contracted procedure: k4338 o|contracted procedure: k4386 o|contracted procedure: k4350 o|contracted procedure: k4376 o|contracted procedure: k4380 o|contracted procedure: k4372 o|contracted procedure: k4353 o|contracted procedure: k4356 o|contracted procedure: k4364 o|contracted procedure: k4368 o|contracted procedure: k4398 o|contracted procedure: k4401 o|contracted procedure: k4404 o|contracted procedure: k4412 o|contracted procedure: k4420 o|contracted procedure: k4490 o|contracted procedure: k4454 o|contracted procedure: k4480 o|contracted procedure: k4484 o|contracted procedure: k4476 o|contracted procedure: k4457 o|contracted procedure: k4460 o|contracted procedure: k4468 o|contracted procedure: k4472 o|contracted procedure: k4522 o|contracted procedure: k4525 o|contracted procedure: k4528 o|contracted procedure: k4536 o|contracted procedure: k4544 o|contracted procedure: k4550 o|contracted procedure: k4590 o|contracted procedure: k4599 o|contracted procedure: k4607 o|contracted procedure: k4970 o|contracted procedure: k4908 o|contracted procedure: k4912 o|contracted procedure: k4915 o|contracted procedure: k4621 o|contracted procedure: k4617 o|contracted procedure: k4629 o|contracted procedure: k4642 o|contracted procedure: k4638 o|contracted procedure: k4657 o|contracted procedure: k4780 o|contracted procedure: k4668 o|contracted procedure: k4734 o|contracted procedure: k4676 o|contracted procedure: k4688 o|contracted procedure: k4684 o|contracted procedure: k4680 o|contracted procedure: k4672 o|contracted procedure: k4664 o|contracted procedure: k4653 o|contracted procedure: k4649 o|contracted procedure: k4705 o|contracted procedure: k4727 o|contracted procedure: k4723 o|contracted procedure: k4708 o|contracted procedure: k4711 o|contracted procedure: k4719 o|contracted procedure: k4751 o|contracted procedure: k4773 o|contracted procedure: k4769 o|contracted procedure: k4754 o|contracted procedure: k4757 o|contracted procedure: k4765 o|contracted procedure: k4797 o|contracted procedure: k4800 o|contracted procedure: k4803 o|contracted procedure: k4811 o|contracted procedure: k4819 o|contracted procedure: k4867 o|contracted procedure: k4831 o|contracted procedure: k4857 o|contracted procedure: k4861 o|contracted procedure: k4853 o|contracted procedure: k4834 o|contracted procedure: k4837 o|contracted procedure: k4845 o|contracted procedure: k4849 o|contracted procedure: k4879 o|contracted procedure: k4882 o|contracted procedure: k4885 o|contracted procedure: k4893 o|contracted procedure: k4901 o|contracted procedure: k4963 o|contracted procedure: k4927 o|contracted procedure: k4953 o|contracted procedure: k4957 o|contracted procedure: k4949 o|contracted procedure: k4930 o|contracted procedure: k4933 o|contracted procedure: k4941 o|contracted procedure: k4945 o|contracted procedure: k4979 o|contracted procedure: k4982 o|contracted procedure: k4985 o|contracted procedure: k4993 o|contracted procedure: k5001 o|contracted procedure: k5007 o|simplifications: ((let . 36)) o|removed binding forms: 291 o|replaced variables: 94 o|removed binding forms: 1 o|removed binding forms: 59 o|direct leaf routine/allocation: lp427 0 o|direct leaf routine/allocation: fetch1174 0 o|direct leaf routine/allocation: push1177 3 o|direct leaf routine/allocation: g917926 21 o|direct leaf routine/allocation: g978987 6 o|direct leaf routine/allocation: g682691 21 o|direct leaf routine/allocation: g743752 6 o|converted assignments to bindings: (lp427) o|contracted procedure: "(compiler-syntax.scm:240) k3300" o|contracted procedure: "(compiler-syntax.scm:242) k3309" o|inlining procedure: "(compiler-syntax.scm:245) k3318" o|inlining procedure: "(compiler-syntax.scm:246) k3318" o|inlining procedure: "(compiler-syntax.scm:247) k3318" o|inlining procedure: "(compiler-syntax.scm:249) k3318" o|inlining procedure: "(compiler-syntax.scm:253) k3318" o|inlining procedure: "(compiler-syntax.scm:257) k3318" o|inlining procedure: "(compiler-syntax.scm:260) k3318" o|inlining procedure: "(compiler-syntax.scm:264) k3318" o|inlining procedure: "(compiler-syntax.scm:265) k3318" o|inlining procedure: "(compiler-syntax.scm:266) k3318" o|contracted procedure: "(compiler-syntax.scm:269) k3506" o|contracted procedure: "(compiler-syntax.scm:271) k3522" o|contracted procedure: "(compiler-syntax.scm:128) k4334" o|contracted procedure: "(compiler-syntax.scm:124) k4416" o|contracted procedure: "(compiler-syntax.scm:91) k4815" o|contracted procedure: "(compiler-syntax.scm:87) k4897" o|simplifications: ((let . 1)) o|removed binding forms: 8 o|customizable procedures: (k4596 map-loop615633 map-loop645664 map-loop676697 map-loop706725 map-loop737758 map-loop767788 map-loop797818 chicken.compiler.compiler-syntax#length+ k4079 map-loop850868 map-loop880899 map-loop911932 map-loop941960 map-loop972993 map-loop10021023 map-loop10321053 foldr10751078 chicken.compiler.compiler-syntax#compile-format-string chicken.compiler.compiler-syntax#r-c-s k3084 skip1244 next1175 loop1190 endchunk1176 fail1134 g545552 for-each-loop544555) o|calls to known targets: 84 o|identified direct recursive calls: f_2781 1 o|identified direct recursive calls: f_3510 1 o|identified direct recursive calls: f_3249 1 o|identified direct recursive calls: f_3995 1 o|identified direct recursive calls: f_4203 1 o|identified direct recursive calls: f_4265 1 o|identified direct recursive calls: f_4311 1 o|identified direct recursive calls: f_4345 1 o|identified direct recursive calls: f_4393 1 o|identified direct recursive calls: f_4449 1 o|identified direct recursive calls: f_4700 1 o|identified direct recursive calls: f_4746 1 o|identified direct recursive calls: f_4792 1 o|identified direct recursive calls: f_4826 1 o|identified direct recursive calls: f_4874 1 o|identified direct recursive calls: f_4922 1 o|fast box initializations: 22 o|fast global references: 13 o|fast global assignments: 3 o|dropping unused closure argument: f_2775 o|dropping unused closure argument: f_2781 o|dropping unused closure argument: f_2987 o|dropping unused closure argument: f_3058 */ /* end of file */ chicken-5.1.0/chicken.h0000644000175000017500000042364213502227637014526 0ustar sjamaansjamaan/* chicken.h - General headerfile for compiler generated executables ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. */ /* Configuration: */ #ifndef ___CHICKEN #define ___CHICKEN #define C_MAJOR_VERSION 5 #define C_MINOR_VERSION 1 #ifndef _ISOC99_SOURCE # define _ISOC99_SOURCE #endif #ifndef __C99FEATURES__ # define __C99FEATURES__ #endif /* * N.B. This file MUST not rely upon "chicken-config.h" */ #if defined(HAVE_CONFIG_H) || defined(HAVE_CHICKEN_CONFIG_H) # include "chicken-config.h" #endif /* Some OSes really dislike feature macros for standard levels */ #ifdef C_USE_STD_FEATURE_MACROS # ifndef _XOPEN_SOURCE # define _XOPEN_SOURCE 700 # endif # ifndef _BSD_SOURCE # define _BSD_SOURCE # endif # ifndef _NETBSD_SOURCE # define _NETBSD_SOURCE # endif # ifndef _SVID_SOURCE # define _SVID_SOURCE # endif /* * glibc >= 2.20 synonym for _BSD_SOURCE & _SVID_SOURCE. */ # ifndef _DEFAULT_SOURCE # define _DEFAULT_SOURCE # endif #endif /* C_USE_STD_FEATURE_MACROS */ /* Kind of platform */ #if defined(__LP64__) || defined(_LP64) || defined(__MINGW64__) || defined(_WIN64) # define C_SIXTY_FOUR #endif #if defined(__APPLE__) && defined(__MACH__) # define C_MACOSX #endif #if defined(C_MACOSX) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__DragonFly__) || defined(__OpenBSD__) # define C_XXXBSD #endif #if /*defined(__GNUC__) &&*/ (defined(__linux__) || defined(C_XXXBSD) || defined(__HAIKU__)) # define C_GNU_ENV #endif #if defined(__MINGW32__) /* * XXX This should probably be renamed or changed because it's misleading. * For example, Haiku is not a Unix either, but this doesn't get defined there. */ # define C_NONUNIX #endif #if defined(__sun) && defined(__SVR4) # define C_SOLARIS #endif #if defined(__MINGW64__) || defined(_WIN64) # define C_LLP #endif /* Declare base Win32 version: we require Vista or later */ #ifdef __MINGW32__ # define _WIN32_WINNT 0x0600 #endif /* Headers */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include /* Byteorder in machine word */ #if defined(__MINGW32__) # include #elif defined(__CYGWIN__) # include #elif defined(__linux__) # include #elif defined(C_XXXBSD) # include #elif defined(__hpux__) # include #elif defined(_AIX) # include #elif defined(__sun) # include #elif defined(__SVR4) # include #endif #if defined(__MINGW32__) # include #endif /* Much better with stack allocation API */ #ifdef HAVE_ALLOCA_H # include #elif !defined(alloca) /* predefined by HP cc +Olibcalls */ void *alloca (); #endif /* CHICKEN Core C API */ #if defined(__BYTE_ORDER) && __BYTE_ORDER == __BIG_ENDIAN # define C_BIG_ENDIAN #elif defined(BYTE_ORDER) && defined(BIG_ENDIAN) && BYTE_ORDER == BIG_ENDIAN # define C_BIG_ENDIAN #elif defined(__BIG_ENDIAN__) # define C_BIG_ENDIAN #elif defined(__MIPSEL__) || defined(__MIPSEL) # define C_LITTLE_ENDIAN #elif defined(__sparc__) || defined(__POWERPC__) || defined(__MC68K__) || defined(__mips__) # define C_BIG_ENDIAN #endif #if defined(__BYTE_ORDER) && defined(__LITTLE_ENDIAN) && __BYTE_ORDER == __LITTLE_ENDIAN # define C_LITTLE_ENDIAN #elif defined(BYTE_ORDER) && defined(LITTLE_ENDIAN) && BYTE_ORDER == LITTLE_ENDIAN # define C_LITTLE_ENDIAN #elif defined(__LITTLE_ENDIAN__) # define C_LITTLE_ENDIAN #elif defined (__alpha__) || defined(_M_IX86) || defined(__i386__) || defined(__x86_64__) || defined(__ia64__) # define C_LITTLE_ENDIAN #endif /* Make sure some common C identifiers are availble w/ Windows */ /* Could be used by C++ source */ #ifdef __cplusplus # define C_extern extern "C" # define C_BEGIN_C_DECLS extern "C" { # define C_END_C_DECLS } #else # define C_extern extern # define C_BEGIN_C_DECLS # define C_END_C_DECLS #endif /* Function declaration modes */ /* Visibility */ #define C_varextern C_extern #define C_fctimport #define C_fctexport #define C_externimport C_extern #define C_externexport C_extern #if defined(PIC) # if defined(__CYGWIN__) || defined(__MINGW32__) # ifndef C_BUILDING_LIBCHICKEN # undef C_varextern # define C_varextern C_extern __declspec(dllimport) # endif # endif #endif /* Language specifics: */ #if defined(__GNUC__) || defined(__INTEL_COMPILER) #define HAVE_STATEMENT_EXPRESSIONS 1 #endif #if !defined(__clang__) && !defined(__has_attribute) /* Define so it won't error on other compilers with keywords like "noreturn" */ #define __has_attribute(x) 0 #endif #if defined(__GNUC__) || defined(__INTEL_COMPILER) # define C_unlikely(x) __builtin_expect((x), 0) # define C_likely(x) __builtin_expect((x), 1) # ifndef __cplusplus # define C_cblock ({ # define C_cblockend }) # if defined(__clang__) && !__has_attribute(noreturn) # define C_noret # else # define C_noret __attribute__ ((noreturn)) # endif # define C_noret_decl(name) # define C_aligned __attribute__ ((aligned)) # endif # if defined(__i386__) && !defined(__clang__) # define C_regparm __attribute__ ((regparm(3))) # endif #else # define C_unlikely(x) (x) # define C_likely(x) (x) #endif #ifndef C_cblock # define C_cblock do{ # define C_cblockend }while(0) # define C_noret # define C_noret_decl(name) #endif #ifndef C_regparm # define C_regparm #endif #ifndef C_fcall # define C_fcall #endif #ifndef C_ccall # define C_ccall #endif #ifndef C_aligned # define C_aligned #endif /* Thread Local Storage */ #ifdef C_ENABLE_TLS # if defined(__GNUC__) # define C_TLS __thread # endif #endif #ifndef C_TLS # define C_TLS #endif /* Stack growth direction; used to compute stack addresses */ #ifndef C_STACK_GROWS_DOWNWARD # ifdef __hppa__ # define C_STACK_GROWS_DOWNWARD 0 # else # define C_STACK_GROWS_DOWNWARD 1 # endif #endif /* Have a GUI? */ #if defined(C_GUI) || defined(C_PRIVATE_REPOSITORY) # ifdef _WIN32 # include # ifndef WINAPI # define WINAPI # endif # endif #endif /* Needed for pre-emptive threading */ #define C_TIMER_INTERRUPTS /* Constants: */ #define C_STACK_RESERVE 0x10000 #define C_DEFAULT_MAX_PENDING_FINALIZERS 2048 #define C_IMMEDIATE_MARK_BITS 0x00000003 #define C_IMMEDIATE_TYPE_BITS 0x0000000f #define C_BOOLEAN_BITS 0x00000006 #define C_CHARACTER_BITS 0x0000000a #define C_SPECIAL_BITS 0x0000000e #define C_SCHEME_FALSE ((C_word)(C_BOOLEAN_BITS | 0x00000000)) #define C_SCHEME_TRUE ((C_word)(C_BOOLEAN_BITS | 0x00000010)) #define C_SCHEME_END_OF_LIST ((C_word)(C_SPECIAL_BITS | 0x00000000)) #define C_SCHEME_UNDEFINED ((C_word)(C_SPECIAL_BITS | 0x00000010)) #define C_SCHEME_UNBOUND ((C_word)(C_SPECIAL_BITS | 0x00000020)) #define C_SCHEME_END_OF_FILE ((C_word)(C_SPECIAL_BITS | 0x00000030)) #define C_FIXNUM_BIT 0x00000001 #define C_FIXNUM_SHIFT 1 /* Character range is that of a UTF-8 codepoint, not representable range */ #define C_CHAR_BIT_MASK 0x1fffff #define C_CHAR_SHIFT 8 #ifdef C_SIXTY_FOUR # define C_MOST_POSITIVE_FIXNUM 0x3fffffffffffffffL # define C_WORD_SIZE 64 # define C_HALF_WORD_SIZE 32 #else # define C_MOST_POSITIVE_FIXNUM 0x3fffffff # define C_WORD_SIZE 32 # define C_HALF_WORD_SIZE 16 #endif /* Tunable performance-related constants */ #ifndef C_KARATSUBA_THRESHOLD /* This defines when we'll switch from schoolbook to Karatsuba * multiplication. The smallest of the two numbers determines the * switch. It is pretty high right now because it generates a bit * more garbage and GC overhead dominates the algorithmic performance * gains. If the GC is improved, this can be readjusted. */ # define C_KARATSUBA_THRESHOLD 70 #endif #ifndef C_BURNIKEL_ZIEGLER_THRESHOLD /* This defines when to switch from schoolbook to Burnikel-Ziegler * division. It creates even more garbage than Karatsuba :( */ # define C_BURNIKEL_ZIEGLER_THRESHOLD 300 #endif #ifndef C_RECURSIVE_TO_STRING_THRESHOLD /* This threshold is in terms of the expected string length. */ # define C_RECURSIVE_TO_STRING_THRESHOLD 750 #endif /* These might fit better in runtime.c? */ #define C_fitsinbignumhalfdigitp(n) (C_BIGNUM_DIGIT_HI_HALF(n) == 0) #define C_BIGNUM_DIGIT_LENGTH C_WORD_SIZE #define C_BIGNUM_HALF_DIGIT_LENGTH C_HALF_WORD_SIZE #define C_BIGNUM_BITS_TO_DIGITS(n) \ (((n) + (C_BIGNUM_DIGIT_LENGTH - 1)) / C_BIGNUM_DIGIT_LENGTH) #define C_BIGNUM_DIGIT_LO_HALF(d) (C_uhword)(d) #define C_BIGNUM_DIGIT_HI_HALF(d) (C_uhword)((d) >> C_BIGNUM_HALF_DIGIT_LENGTH) #define C_BIGNUM_DIGIT_COMBINE(h,l) ((C_uword)(h) << C_BIGNUM_HALF_DIGIT_LENGTH|(C_uhword)(l)) #define C_MOST_POSITIVE_32_BIT_FIXNUM 0x3fffffff #define C_MOST_NEGATIVE_FIXNUM (-C_MOST_POSITIVE_FIXNUM - 1) #ifdef C_SIXTY_FOUR # define C_INT_SIGN_BIT 0x8000000000000000L # define C_INT_TOP_BIT 0x4000000000000000L # define C_HEADER_BITS_MASK 0xff00000000000000L # define C_HEADER_TYPE_BITS 0x0f00000000000000L # define C_HEADER_SIZE_MASK 0x00ffffffffffffffL # define C_GC_FORWARDING_BIT 0x8000000000000000L /* header contains forwarding pointer */ # define C_BYTEBLOCK_BIT 0x4000000000000000L /* block contains bytes instead of slots */ # define C_SPECIALBLOCK_BIT 0x2000000000000000L /* 1st item is a non-value */ # define C_8ALIGN_BIT 0x1000000000000000L /* data is aligned to 8-byte boundary */ # define C_SYMBOL_TYPE (0x0100000000000000L) # define C_STRING_TYPE (0x0200000000000000L | C_BYTEBLOCK_BIT) # define C_PAIR_TYPE (0x0300000000000000L) # define C_CLOSURE_TYPE (0x0400000000000000L | C_SPECIALBLOCK_BIT) # define C_FLONUM_TYPE (0x0500000000000000L | C_BYTEBLOCK_BIT | C_8ALIGN_BIT) # define C_BIGNUM_TYPE (0x0600000000000000L) /* Just the wrapper */ # define C_PORT_TYPE (0x0700000000000000L | C_SPECIALBLOCK_BIT) # define C_STRUCTURE_TYPE (0x0800000000000000L) # define C_POINTER_TYPE (0x0900000000000000L | C_SPECIALBLOCK_BIT) # define C_LOCATIVE_TYPE (0x0a00000000000000L | C_SPECIALBLOCK_BIT) # define C_TAGGED_POINTER_TYPE (0x0b00000000000000L | C_SPECIALBLOCK_BIT) # define C_RATNUM_TYPE (0x0c00000000000000L) # define C_LAMBDA_INFO_TYPE (0x0d00000000000000L | C_BYTEBLOCK_BIT) # define C_CPLXNUM_TYPE (0x0e00000000000000L) /* unused (0x0f00000000000000L ...) */ #else # define C_INT_SIGN_BIT 0x80000000 # define C_INT_TOP_BIT 0x40000000 # define C_HEADER_BITS_MASK 0xff000000 # define C_HEADER_TYPE_BITS 0x0f000000 # define C_HEADER_SIZE_MASK 0x00ffffff # define C_GC_FORWARDING_BIT 0x80000000 # define C_BYTEBLOCK_BIT 0x40000000 # define C_SPECIALBLOCK_BIT 0x20000000 # define C_8ALIGN_BIT 0x10000000 # define C_SYMBOL_TYPE (0x01000000) # define C_STRING_TYPE (0x02000000 | C_BYTEBLOCK_BIT) # define C_PAIR_TYPE (0x03000000) # define C_CLOSURE_TYPE (0x04000000 | C_SPECIALBLOCK_BIT) # ifdef C_DOUBLE_IS_32_BITS # define C_FLONUM_TYPE (0x05000000 | C_BYTEBLOCK_BIT) # else # define C_FLONUM_TYPE (0x05000000 | C_BYTEBLOCK_BIT | C_8ALIGN_BIT) # endif # define C_BIGNUM_TYPE (0x06000000) /* Just the wrapper */ # define C_PORT_TYPE (0x07000000 | C_SPECIALBLOCK_BIT) # define C_STRUCTURE_TYPE (0x08000000) # define C_POINTER_TYPE (0x09000000 | C_SPECIALBLOCK_BIT) # define C_LOCATIVE_TYPE (0x0a000000 | C_SPECIALBLOCK_BIT) # define C_TAGGED_POINTER_TYPE (0x0b000000 | C_SPECIALBLOCK_BIT) # define C_RATNUM_TYPE (0x0c000000) # define C_LAMBDA_INFO_TYPE (0x0d000000 | C_BYTEBLOCK_BIT) # define C_CPLXNUM_TYPE (0x0e000000) /* unused (0x0f000000 ...) */ #endif #define C_VECTOR_TYPE 0x00000000 #define C_BYTEVECTOR_TYPE (C_VECTOR_TYPE | C_BYTEBLOCK_BIT | C_8ALIGN_BIT) #define C_SIZEOF_LIST(n) ((n) * 3 + 1) #define C_SIZEOF_PAIR 3 #define C_SIZEOF_STRING(n) (C_bytestowords(n) + 2) #define C_SIZEOF_SYMBOL 4 #define C_SIZEOF_INTERNED_SYMBOL(n) (C_SIZEOF_SYMBOL + C_SIZEOF_PAIR + C_SIZEOF_STRING(n)) #ifdef C_DOUBLE_IS_32_BITS # define C_SIZEOF_FLONUM 2 #else # define C_SIZEOF_FLONUM 4 #endif #define C_SIZEOF_POINTER 2 #define C_SIZEOF_TAGGED_POINTER 3 #define C_SIZEOF_VECTOR(n) ((n) + 1) #define C_SIZEOF_LOCATIVE 5 #define C_SIZEOF_PORT 16 #define C_SIZEOF_RATNUM 3 #define C_SIZEOF_CPLXNUM 3 #define C_SIZEOF_STRUCTURE(n) ((n)+1) #define C_SIZEOF_CLOSURE(n) ((n)+1) #define C_SIZEOF_INTERNAL_BIGNUM_VECTOR(n) (C_SIZEOF_VECTOR((n)+1)) #define C_internal_bignum_vector(b) (C_block_item(b,0)) /* This is for convenience and allows flexibility in representation */ #define C_SIZEOF_FIX_BIGNUM C_SIZEOF_BIGNUM(1) #define C_SIZEOF_BIGNUM_WRAPPER 2 #define C_SIZEOF_BIGNUM(n) (C_SIZEOF_INTERNAL_BIGNUM_VECTOR(n)+C_SIZEOF_BIGNUM_WRAPPER) /* Fixed size types have pre-computed header tags */ #define C_PAIR_TAG (C_PAIR_TYPE | (C_SIZEOF_PAIR - 1)) #define C_WEAK_PAIR_TAG (C_PAIR_TAG | C_SPECIALBLOCK_BIT) #define C_POINTER_TAG (C_POINTER_TYPE | (C_SIZEOF_POINTER - 1)) #define C_LOCATIVE_TAG (C_LOCATIVE_TYPE | (C_SIZEOF_LOCATIVE - 1)) #define C_TAGGED_POINTER_TAG (C_TAGGED_POINTER_TYPE | (C_SIZEOF_TAGGED_POINTER - 1)) #define C_SYMBOL_TAG (C_SYMBOL_TYPE | (C_SIZEOF_SYMBOL - 1)) #define C_FLONUM_TAG (C_FLONUM_TYPE | sizeof(double)) #define C_BIGNUM_TAG (C_BIGNUM_TYPE | 1) #define C_RATNUM_TAG (C_RATNUM_TYPE | 2) #define C_CPLXNUM_TAG (C_CPLXNUM_TYPE | 2) /* Locative subtypes */ #define C_SLOT_LOCATIVE 0 #define C_CHAR_LOCATIVE 1 #define C_U8_LOCATIVE 2 #define C_S8_LOCATIVE 3 #define C_U16_LOCATIVE 4 #define C_S16_LOCATIVE 5 #define C_U32_LOCATIVE 6 #define C_S32_LOCATIVE 7 #define C_U64_LOCATIVE 8 #define C_S64_LOCATIVE 9 #define C_F32_LOCATIVE 10 #define C_F64_LOCATIVE 11 #if defined (__MINGW32__) # define C_s64 __int64 # define C_u64 unsigned __int64 #else # define C_s64 int64_t # define C_u64 uint64_t #endif #ifdef C_SIXTY_FOUR # ifdef C_LLP # define C_word C_s64 # define C_hword long # else # define C_word long # define C_hword int # endif # define C_u32 uint32_t # define C_s32 int32_t #else # define C_word int # define C_hword short # define C_u32 unsigned int # define C_s32 int #endif #define C_char char #define C_uchar unsigned C_char #define C_byte char #define C_uword unsigned C_word #define C_uhword unsigned C_hword #define C_header C_uword /* if all else fails, use these: #define UINT64_MAX (18446744073709551615ULL) #define INT64_MAX (9223372036854775807LL) #define INT64_MIN (-INT64_MAX - 1) #define UINT32_MAX (4294967295U) #define INT32_MAX (2147483647) #define INT32_MIN (-INT32_MAX - 1) #define UINT16_MAX (65535U) #define INT16_MAX (32767) #define INT16_MIN (-INT16_MAX - 1) #define UINT8_MAX (255) #define INT8_MAX (127) #define INT8_MIN (-INT8_MAX - 1) */ #define C_U64_MAX UINT64_MAX #define C_S64_MIN INT64_MIN #define C_S64_MAX INT64_MAX #if defined(C_LLP) # define C_wabs llabs # define C_long C_s64 # ifndef LONG_LONG_MAX # define C_LONG_MAX LLONG_MAX # define C_LONG_MIN LLONG_MIN # else # define C_LONG_MAX LONG_LONG_MAX # define C_LONG_MIN LONG_LONG_MIN # endif #else # define C_wabs labs # define C_long long # define C_LONG_MAX LONG_MAX # define C_LONG_MIN LONG_MIN #endif #define C_ulong unsigned C_long #ifdef __cplusplus # define C_text(x) ((C_char *)(x)) #else # define C_text(x) (x) #endif #define C_TIMER_INTERRUPT_NUMBER 255 #define C_BAD_ARGUMENT_COUNT_ERROR 1 #define C_BAD_MINIMUM_ARGUMENT_COUNT_ERROR 2 #define C_BAD_ARGUMENT_TYPE_ERROR 3 #define C_UNBOUND_VARIABLE_ERROR 4 #define C_BAD_ARGUMENT_TYPE_NO_KEYWORD_ERROR 5 #define C_OUT_OF_MEMORY_ERROR 6 #define C_DIVISION_BY_ZERO_ERROR 7 #define C_OUT_OF_RANGE_ERROR 8 #define C_NOT_A_CLOSURE_ERROR 9 #define C_CONTINUATION_CANT_RECEIVE_VALUES_ERROR 10 #define C_BAD_ARGUMENT_TYPE_CYCLIC_LIST_ERROR 11 #define C_TOO_DEEP_RECURSION_ERROR 12 #define C_CANT_REPRESENT_INEXACT_ERROR 13 #define C_NOT_A_PROPER_LIST_ERROR 14 #define C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR 15 #define C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR 16 #define C_BAD_ARGUMENT_TYPE_NO_STRING_ERROR 17 #define C_BAD_ARGUMENT_TYPE_NO_PAIR_ERROR 18 #define C_BAD_ARGUMENT_TYPE_NO_LIST_ERROR 19 #define C_BAD_ARGUMENT_TYPE_NO_CHAR_ERROR 20 #define C_BAD_ARGUMENT_TYPE_NO_VECTOR_ERROR 21 #define C_BAD_ARGUMENT_TYPE_NO_SYMBOL_ERROR 22 #define C_STACK_OVERFLOW_ERROR 23 #define C_BAD_ARGUMENT_TYPE_BAD_STRUCT_ERROR 24 #define C_BAD_ARGUMENT_TYPE_NO_BYTEVECTOR_ERROR 25 #define C_LOST_LOCATIVE_ERROR 26 #define C_BAD_ARGUMENT_TYPE_NO_BLOCK_ERROR 27 #define C_BAD_ARGUMENT_TYPE_NO_NUMBER_VECTOR_ERROR 28 #define C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR 29 #define C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR 30 #define C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR 31 #define C_BAD_ARGUMENT_TYPE_NO_TAGGED_POINTER_ERROR 32 #define C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR 33 #define C_BAD_ARGUMENT_TYPE_NO_CLOSURE_ERROR 34 #define C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR 35 #define C_CIRCULAR_DATA_ERROR 36 #define C_BAD_ARGUMENT_TYPE_NO_BOOLEAN_ERROR 37 #define C_BAD_ARGUMENT_TYPE_NO_LOCATIVE_ERROR 38 #define C_BAD_ARGUMENT_TYPE_NO_PORT_ERROR 39 #define C_BAD_ARGUMENT_TYPE_PORT_DIRECTION_ERROR 40 #define C_BAD_ARGUMENT_TYPE_PORT_NO_INPUT_ERROR 41 #define C_BAD_ARGUMENT_TYPE_PORT_NO_OUTPUT_ERROR 42 #define C_PORT_CLOSED_ERROR 43 #define C_ASCIIZ_REPRESENTATION_ERROR 44 #define C_MEMORY_VIOLATION_ERROR 45 #define C_FLOATING_POINT_EXCEPTION_ERROR 46 #define C_ILLEGAL_INSTRUCTION_ERROR 47 #define C_BUS_ERROR 48 #define C_BAD_ARGUMENT_TYPE_NO_EXACT_ERROR 49 #define C_BAD_ARGUMENT_TYPE_NO_INEXACT_ERROR 50 #define C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR 51 #define C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR 52 #define C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR 53 #define C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION 54 #define C_BAD_ARGUMENT_TYPE_COMPLEX_ABS 55 /* Platform information */ #if defined(C_BIG_ENDIAN) # define C_MACHINE_BYTE_ORDER "big-endian" #elif defined(C_LITTLE_ENDIAN) # define C_MACHINE_BYTE_ORDER "little-endian" #endif #if defined(__alpha__) # define C_MACHINE_TYPE "alpha" #elif defined(__mips__) # define C_MACHINE_TYPE "mips" #elif defined(__hppa__) # define C_MACHINE_TYPE "hppa" #elif defined(__sparc_v9__) || defined(__sparcv9) # define C_MACHINE_TYPE "ultrasparc" #elif defined(__sparc__) # define C_MACHINE_TYPE "sparc" #elif defined(__powerpc64__) || defined(_ARCH_PPC64) # define C_MACHINE_TYPE "ppc64" #elif defined(__ppc__) || defined(__powerpc__) || defined(_ARCH_PPC) # define C_MACHINE_TYPE "ppc" #elif defined(_M_IX86) || defined(__i386__) # define C_MACHINE_TYPE "x86" #elif defined(__ia64__) # define C_MACHINE_TYPE "ia64" #elif defined(__x86_64__) # define C_MACHINE_TYPE "x86-64" #elif defined(__arm64__) || defined(__aarch64__) # define C_MACHINE_TYPE "arm64" #elif defined(__arm__) # define C_MACHINE_TYPE "arm" #else # define C_MACHINE_TYPE "unknown" #endif #if defined(__CYGWIN__) || defined(__MINGW32__) || defined(_WIN32) || defined(__WINNT__) # define C_SOFTWARE_TYPE "windows" #elif defined(__ANDROID__) # define C_SOFTWARE_TYPE "android" #elif defined(__unix__) || defined(C_XXXBSD) || defined(_AIX) # define C_SOFTWARE_TYPE "unix" #elif defined(ECOS) # define C_SOFTWARE_TYPE "ecos" #else # define C_SOFTWARE_TYPE "unknown" #endif #if defined(__SUNPRO_C) # define C_BUILD_PLATFORM "sun" #elif defined(__clang__) # define C_BUILD_PLATFORM "clang" #elif defined(_AIX) # define C_BUILD_PLATFORM "aix" #elif defined(__GNUC__) # define C_BUILD_PLATFORM "gnu" #elif defined(__INTEL_COMPILER) # define C_BUILD_PLATFORM "intel" #else # define C_BUILD_PLATFORM "unknown" #endif #if defined(__linux__) # define C_SOFTWARE_VERSION "linux" #elif defined(__FreeBSD__) # define C_SOFTWARE_VERSION "freebsd" #elif defined(__NetBSD__) # define C_SOFTWARE_VERSION "netbsd" #elif defined(__OpenBSD__) # define C_SOFTWARE_VERSION "openbsd" #elif defined(C_MACOSX) # define C_SOFTWARE_VERSION "macosx" #elif defined(__hpux__) # define C_SOFTWARE_VERSION "hpux" #elif defined(__DragonFly__) # define C_SOFTWARE_VERSION "dragonfly" #elif defined(__HAIKU__) # define C_SOFTWARE_VERSION "haiku" #elif defined(__sun) # if defined(__SVR4) # define C_SOFTWARE_VERSION "solaris" # else # define C_SOFTWARE_VERSION "sunos" # endif #elif defined(_AIX) # define C_SOFTWARE_VERSION "aix" #elif defined(__GNU__) # define C_SOFTWARE_VERSION "hurd" #elif defined(__CYGWIN__) # define C_SOFTWARE_VERSION "cygwin" #elif defined(__MINGW32__) # define C_SOFTWARE_VERSION "mingw32" #else # define C_SOFTWARE_VERSION "unknown" #endif /* There is no PATH_MAX in The Hurd. */ #ifdef PATH_MAX # define C_MAX_PATH PATH_MAX #else # define C_MAX_PATH 1024 #endif #define C_RANDOM_STATE_SIZE (16 * sizeof(C_uword)) /* Types: */ typedef struct C_block_struct { C_header header; C_word data[]; } C_SCHEME_BLOCK; typedef struct C_symbol_table_struct { char *name; unsigned int size; unsigned int rand; C_word *table; struct C_symbol_table_struct *next; } C_SYMBOL_TABLE; typedef struct C_gc_root_struct { C_word value; struct C_gc_root_struct *next, *prev; int finalizable; } C_GC_ROOT; typedef struct C_ptable_entry_struct { C_char *id; void *ptr; } C_PTABLE_ENTRY; typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret; /* Macros: */ #define C_cpsproc(name) C_ccall void name(C_word c, C_word *av) C_noret #define CHICKEN_gc_root_ref(root) (((C_GC_ROOT *)(root))->value) #define CHICKEN_gc_root_set(root, x) C_mutate(&((C_GC_ROOT *)(root))->value, (x)) #define CHICKEN_global_ref(root) C_u_i_car(((C_GC_ROOT *)(root))->value) #define CHICKEN_global_set(root, x) C_mutate(&C_u_i_car(((C_GC_ROOT *)(root))->value), (x)) #define CHICKEN_default_toplevel ((void *)C_default_5fstub_toplevel) #define C__STR1(x) #x #define C__STR2(x) C__STR1(x) #define C_align4(n) (((n) + 3) & ~3) #define C_align8(n) (((n) + 7) & ~7) #define C_align16(n) (((n) + 15) & ~15) #define C_aligned8(n) ((((C_word)(n)) & 7) == 0) #define C_buf_end(b) ((C_word *)((C_byte *)(b) + sizeof(b))) /* This is word-size dependent: */ #ifdef C_SIXTY_FOUR # define C_align(n) C_align8(n) # define C_wordstobytes(n) ((C_uword)(n) << 3) # define C_bytestowords(n) (((n) + 7) >> 3) # define C_wordsperdouble(n) (n) # define C_WORD_MIN LONG_MIN # define C_WORD_MAX LONG_MAX # define C_UWORD_MAX ULONG_MAX #else # define C_align(n) C_align4(n) # define C_wordstobytes(n) ((C_uword)(n) << 2) # define C_bytestowords(n) (((n) + 3) >> 2) # define C_wordsperdouble(n) ((C_uword)(n) << 1) # define C_WORD_MIN INT_MIN # define C_WORD_MAX INT_MAX # define C_UWORD_MAX UINT_MAX #endif /* Clang and G++ support statement expressions, but only in a limited way */ #if DEBUGBUILD && HAVE_STATEMENT_EXPRESSIONS && !defined(__clang__) && !defined(__cplusplus) /* These are wrappers around the following idiom: * assert(SOME_PRED(obj)); * do_something_with(obj); * This works around the fact obj may be an expression with side-effects. * * To make this work with nested expansions, we need semantics like * (let ((x 1)) (let ((x x)) x)) => 1, but in C, int x = x; results in * undefined behaviour because x refers to itself. As a workaround, * we keep around a reference to the previous level (one scope up). * After initialisation, "previous" is redefined to mean "current". */ # define C_VAL1(x) C__PREV_TMPST.n1 # define C_VAL2(x) C__PREV_TMPST.n2 # define C__CHECK_panic(a,s,f,l) \ ((a) ? (void)0 : \ C_panic_hook(C_text("Low-level type assertion " s " failed at " f ":" C__STR1(l)))) # define C__CHECK_core(v,a,s,x) \ ({ struct { \ typeof(v) n1; \ } C__TMPST = { .n1 = (v) }; \ typeof(C__TMPST) C__PREV_TMPST=C__TMPST; \ C__CHECK_panic(a,s,__FILE__,__LINE__); \ x; }) # define C__CHECK2_core(v1,v2,a,s,x) \ ({ struct { \ typeof(v1) n1; \ typeof(v2) n2; \ } C__TMPST = { .n1 = (v1), .n2 = (v2) }; \ typeof(C__TMPST) C__PREV_TMPST=C__TMPST; \ C__CHECK_panic(a,s,__FILE__,__LINE__); \ x; }) # define C_CHECK(v,a,x) C__CHECK_core(v,a,#a,x) # define C_CHECK2(v1,v2,a,x) C__CHECK2_core(v1,v2,a,#a,x) /* * Convenience for using Scheme-predicates. */ # define C_CHECKp(v,a,x) C__CHECK_core(v,C_truep(a),#a"=#t",x) # define C_CHECK2p(v1,v2,a,x) C__CHECK2_core(v1,v2,C_truep(a),#a"=#t",x) #else # define C_VAL1(x) (x) # define C_VAL2(x) (x) # define C_CHECK(v,a,x) (x) # define C_CHECK2(v1,v2,a,x) (x) # define C_CHECKp(v,a,x) (x) # define C_CHECK2p(v1,v2,a,x) (x) #endif #ifndef C_PROVIDE_LIBC_STUBS # define C_FILEPTR FILE * # define C_stdin stdin # define C_stdout stdout # define C_stderr stderr # define C_memcpy memcpy # define C_memcmp memcmp # define C_strncpy strncpy # define C_strcmp strcmp # define C_strncmp strncmp # define C_strlen strlen # define C_memchr memchr # define C_memset memset # define C_memmove memmove # define C_strncasecmp strncasecmp # define C_malloc malloc # define C_calloc calloc # define C_free free # define C_strchr strchr # define C_realloc realloc # define C_strdup strdup # define C_strtol strtol # define C_strtoll strtoll # define C_strtod strtod # define C_strtoul strtoul # define C_fopen fopen # define C_fclose fclose # define C_strpbrk strpbrk # define C_strcspn strcspn # define C_snprintf snprintf # define C_printf printf # define C_fprintf fprintf # define C_vfprintf vfprintf # define C_fflush fflush # define C_getchar getchar # define C_exit exit # define C__exit _exit # define C_dlopen dlopen # define C_dlclose dlclose # define C_dlsym dlsym # define C_fwrite fwrite # define C_fread fread # define C_fputs fputs # define C_fputc fputc # define C_putchar putchar # if (defined getc_unlocked || _POSIX_C_SOURCE >= 199506L) && !defined(__MINGW32__) # define C_getc getc_unlocked # else # define C_getc getc # endif # define C_fgetc fgetc # define C_fgets fgets # define C_ungetc ungetc # define C_system system # define C_isatty isatty # define C_fileno fileno # define C_select select # if defined(HAVE_SIGACTION) # define C_sigaction sigaction # endif # define C_signal signal # define C_getrusage getrusage # define C_tolower tolower # define C_toupper toupper # define C_gettimeofday gettimeofday # define C_gmtime gmtime # define C_localtime localtime /* * It is undefined whether regular setjmp/longjmp save/restore signal mask * so try to use versions that we know won't try to save & restore. */ # if defined(HAVE_SIGSETJMP) # define C_sigsetjmp sigsetjmp # define C_siglongjmp siglongjmp # endif # ifdef HAVE_SIGPROCMASK # define C_sigprocmask sigprocmask # endif # define C_setjmp setjmp # define C_longjmp longjmp # define C_alloca alloca # define C_strerror strerror # define C_isalpha isalpha # define C_isdigit isdigit # define C_isspace isspace # define C_islower islower # define C_isupper isupper # define C_sin sin # define C_cos cos # define C_tan tan # define C_asin asin # define C_acos acos # define C_atan atan # define C_atan2 atan2 # define C_log log # define C_exp exp # define C_pow pow # define C_sqrt sqrt # define C_ceil ceil # define C_floor floor # define C_round round # define C_trunc trunc # define C_fabs fabs # define C_modf modf # define C_readlink readlink # define C_getcwd getcwd # define C_access access # define C_getpid getpid # define C_getenv getenv #else /* provide this file and define C_PROVIDE_LIBC_STUBS if you want to use your own libc-replacements or -wrappers */ # include "chicken-libc-stubs.h" #endif #ifdef C_LLP # define C_strtow C_strtoll #else # define C_strtow C_strtol #endif #define C_return(x) return(x) #define C_resize_stack(n) C_do_resize_stack(n) #define C_memcpy_slots(t, f, n) C_memcpy((t), (f), (n) * sizeof(C_word)) /* Without check: initialisation of a newly allocated header */ #define C_block_header_init(x,h) (((C_SCHEME_BLOCK *)(x))->header = (h)) /* These two must result in an lvalue, hence the (*foo(&bar)) faffery */ #define C_block_header(x) (*C_CHECKp(x,C_blockp((C_word)C_VAL1(x)),&(((C_SCHEME_BLOCK *)(C_VAL1(x)))->header))) #define C_block_item(x,i) (*C_CHECK2(x,i,(C_header_size(C_VAL1(x))>(C_VAL2(i))),&(((C_SCHEME_BLOCK *)(C_VAL1(x)))->data [ C_VAL2(i) ]))) #define C_set_block_item(x,i,y) (C_block_item(x, i) = (y)) #define C_header_bits(bh) (C_block_header(bh) & C_HEADER_BITS_MASK) #define C_header_size(bh) (C_block_header(bh) & C_HEADER_SIZE_MASK) #define C_bignum_size(b) (C_bytestowords(C_header_size(C_internal_bignum_vector(b)))-1) #define C_make_header(type, size) ((C_header)(((type) & C_HEADER_BITS_MASK) | ((size) & C_HEADER_SIZE_MASK))) #define C_symbol_value(x) (C_block_item(x, 0)) #define C_symbol_name(x) (C_block_item(x, 1)) #define C_symbol_plist(x) (C_block_item(x, 2)) #define C_save(x) (*(--C_temporary_stack) = (C_word)(x)) #define C_rescue(x, i) (C_temporary_stack[ i ] = (x)) #define C_restore (*(C_temporary_stack++)) #define C_heaptop ((C_word **)(&C_fromspace_top)) #define C_drop(n) (C_temporary_stack += (n)) #define C_alloc(n) ((C_word *)C_alloca((n) * sizeof(C_word))) #if defined (__llvm__) && defined (__GNUC__) # if defined (__i386__) # define C_stack_pointer ({C_word *sp; __asm__ __volatile__("movl %%esp,%0":"=r"(sp):);sp;}) # elif defined (__x86_64__) # define C_stack_pointer ({C_word *sp; __asm__ __volatile__("movq %%rsp,%0":"=r"(sp):);sp;}) # else # define C_stack_pointer ((C_word *)C_alloca(1)) # endif #else # define C_stack_pointer ((C_word *)C_alloca(0)) #endif #define C_stack_pointer_test ((C_word *)C_alloca(1)) #define C_demand_2(n) (((C_word *)C_fromspace_top + (n)) < (C_word *)C_fromspace_limit) #define C_calculate_demand(n,c,m) ((n) + (((c) > (m)) ? 0 : (m))) #define C_fix(n) ((C_word)((C_uword)(n) << C_FIXNUM_SHIFT) | C_FIXNUM_BIT) #define C_unfix(x) C_CHECKp(x,C_fixnump(C_VAL1(x)),((C_VAL1(x)) >> C_FIXNUM_SHIFT)) #define C_make_character(c) (((((C_uword)(c)) & C_CHAR_BIT_MASK) << C_CHAR_SHIFT) | C_CHARACTER_BITS) #define C_character_code(x) C_CHECKp(x,C_charp(C_VAL1(x)),((C_word)(C_VAL1(x)) >> C_CHAR_SHIFT) & C_CHAR_BIT_MASK) #define C_flonum_magnitude(x) (*C_CHECKp(x,C_flonump(C_VAL1(x)),(double *)C_data_pointer(C_VAL1(x)))) /* XXX Sometimes this is (ab)used on bytevectors (ie, blob=? uses string_compare) */ #define C_c_string(x) C_CHECK(x,(C_truep(C_stringp(C_VAL1(x))) || C_truep(C_bytevectorp(C_VAL1(x)))),(C_char *)C_data_pointer(C_VAL1(x))) #define C_c_pointer(x) ((void *)(x)) #define C_c_pointer_nn(x) ((void *)C_block_item(x, 0)) #define C_truep(x) ((x) != C_SCHEME_FALSE) #define C_immediatep(x) ((x) & C_IMMEDIATE_MARK_BITS) #define C_mk_bool(x) ((x) ? C_SCHEME_TRUE : C_SCHEME_FALSE) #define C_mk_nbool(x) ((x) ? C_SCHEME_FALSE : C_SCHEME_TRUE) #define C_port_file(p) C_CHECKp(p,C_portp(C_VAL1(p)),(C_FILEPTR)C_block_item(C_VAL1(p), 0)) #define C_port_fileno(p) C_fix(C_fileno(C_port_file(p))) #define C_data_pointer(b) C_CHECKp(b,C_blockp((C_word)C_VAL1(b)),(void *)(((C_SCHEME_BLOCK *)(C_VAL1(b)))->data)) #define C_bignum_negativep(b) C_CHECKp(b,C_bignump(C_VAL1(b)),(C_block_item(C_internal_bignum_vector(C_VAL1(b)),0)!=0)) #define C_bignum_digits(b) C_CHECKp(b,C_bignump(C_VAL1(b)),(((C_uword *)C_data_pointer(C_internal_bignum_vector(C_VAL1(b))))+1)) #define C_fitsinbignumhalfdigitp(n)(C_BIGNUM_DIGIT_HI_HALF(n) == 0) #define C_bignum_negated_fitsinfixnump(b) (C_bignum_size(b) == 1 && (C_bignum_negativep(b) ? C_ufitsinfixnump(*C_bignum_digits(b)) : !(*C_bignum_digits(b) & C_INT_SIGN_BIT) && C_fitsinfixnump(-(C_word)*C_bignum_digits(b)))) #define C_bignum_mutate_size(b, s) (C_block_header(C_internal_bignum_vector(b)) = (C_STRING_TYPE | C_wordstobytes((s)+1))) #define C_fitsinfixnump(n) (((n) & C_INT_SIGN_BIT) == (((C_uword)(n) & C_INT_TOP_BIT) << 1)) #define C_ufitsinfixnump(n) (((n) & (C_INT_SIGN_BIT | (C_INT_SIGN_BIT >> 1))) == 0) #define C_and(x, y) (C_truep(x) ? (y) : C_SCHEME_FALSE) #define C_c_bytevector(x) ((unsigned char *)C_data_pointer(x)) #define C_c_bytevector_or_null(x) ((unsigned char *)C_data_pointer_or_null(x)) #define C_srfi_4_vector(x) C_data_pointer(C_block_item(x,1)) #define C_c_u8vector(x) ((unsigned char *)C_srfi_4_vector(x)) #define C_c_u8vector_or_null(x) ((unsigned char *)C_srfi_4_vector_or_null(x)) #define C_c_s8vector(x) ((signed char *)C_srfi_4_vector(x)) #define C_c_s8vector_or_null(x) ((signed char *)C_srfi_4_vector_or_null(x)) #define C_c_u16vector(x) ((unsigned short *)C_srfi_4_vector(x)) #define C_c_u16vector_or_null(x) ((unsigned short *)C_srfi_4_vector_or_null(x)) #define C_c_s16vector(x) ((short *)C_srfi_4_vector(x)) #define C_c_s16vector_or_null(x) ((short *)C_srfi_4_vector_or_null(x)) #define C_c_u32vector(x) ((C_u32 *)C_srfi_4_vector(x)) #define C_c_u32vector_or_null(x) ((C_u32 *)C_srfi_4_vector_or_null(x)) #define C_c_s32vector(x) ((C_s32 *)C_srfi_4_vector(x)) #define C_c_s32vector_or_null(x) ((C_s32 *)C_srfi_4_vector_or_null(x)) #define C_c_u64vector(x) ((C_u64 *)C_srfi_4_vector(x)) #define C_c_u64vector_or_null(x) ((C_u64 *)C_srfi_4_vector_or_null(x)) #define C_c_s64vector(x) ((C_s64 *)C_srfi_4_vector(x)) #define C_c_s64vector_or_null(x) ((C_s64 *)C_srfi_4_vector_or_null(x)) #define C_c_f32vector(x) ((float *)C_srfi_4_vector(x)) #define C_c_f32vector_or_null(x) ((float *)C_srfi_4_vector_or_null(x)) #define C_c_f64vector(x) ((double *)C_srfi_4_vector(x)) #define C_c_f64vector_or_null(x) ((double *)C_srfi_4_vector_or_null(x)) #define C_c_pointer_vector(x) ((void **)C_data_pointer(C_block_item((x), 2))) #define C_isnan(f) isnan(f) #define C_isinf(f) isinf(f) #define C_isfinite(f) isfinite(f) #define C_stack_overflow_check C_stack_check1(C_stack_overflow(NULL)) /* TODO: The C_scratch_usage checks should probably be moved. Maybe * we should add a core#allocate_scratch_inline which will insert * C_demand/C_stack_probe-like checks to copy the result onto the * stack or reclaim, but in a clever way so it's only done at the * "end" of a C function. */ #if C_STACK_GROWS_DOWNWARD # define C_demand(n) ((C_word)(C_stack_pointer - C_stack_limit) > ((n)+C_scratch_usage)) # define C_stack_check1(err) if(!C_disable_overflow_check) { \ do { C_byte *_sp = (C_byte*)(C_stack_pointer); \ if(_sp < (C_byte *)C_stack_hard_limit && \ ((C_byte *)C_stack_hard_limit - _sp) > C_STACK_RESERVE) \ err; } \ while(0);} #else # define C_demand(n) ((C_word)(C_stack_limit - C_stack_pointer) > ((n)+C_scratch_usage)) # define C_stack_check1(err) if(!C_disable_overflow_check) { \ do { C_byte *_sp = (C_byte*)(C_stack_pointer); \ if(_sp > (C_byte *)C_stack_hard_limit && \ (_sp - (C_byte *)C_stack_hard_limit) > C_STACK_RESERVE) \ err; } \ while(0);} #endif #define C_zero_length_p(x) C_mk_bool(C_header_size(x) == 0) #define C_boundp(x) C_mk_bool(C_block_item(x, 0) != C_SCHEME_UNBOUND) #define C_unboundvaluep(x) C_mk_bool((x) == C_SCHEME_UNBOUND) #define C_blockp(x) C_mk_bool(!C_immediatep(x)) #define C_forwardedp(x) C_mk_bool((C_block_header(x) & C_GC_FORWARDING_BIT) != 0) #define C_immp(x) C_mk_bool(C_immediatep(x)) #define C_flonump(x) C_mk_bool(C_block_header(x) == C_FLONUM_TAG) #define C_bignump(x) C_mk_bool(C_block_header(x) == C_BIGNUM_TAG) #define C_stringp(x) C_mk_bool(C_header_bits(x) == C_STRING_TYPE) #define C_symbolp(x) C_mk_bool(C_block_header(x) == C_SYMBOL_TAG) #define C_pairp(x) C_mk_bool(C_block_header(x) == C_PAIR_TAG) #define C_closurep(x) C_mk_bool(C_header_bits(x) == C_CLOSURE_TYPE) #define C_vectorp(x) C_mk_bool(C_header_bits(x) == C_VECTOR_TYPE) #define C_bytevectorp(x) C_mk_bool(C_header_bits(x) == C_BYTEVECTOR_TYPE) #define C_portp(x) C_mk_bool(C_header_bits(x) == C_PORT_TYPE) #define C_structurep(x) C_mk_bool(C_header_bits(x) == C_STRUCTURE_TYPE) #define C_locativep(x) C_mk_bool(C_block_header(x) == C_LOCATIVE_TAG) #define C_charp(x) C_mk_bool(((x) & C_IMMEDIATE_TYPE_BITS) == C_CHARACTER_BITS) #define C_booleanp(x) C_mk_bool(((x) & C_IMMEDIATE_TYPE_BITS) == C_BOOLEAN_BITS) #define C_eofp(x) C_mk_bool((x) == C_SCHEME_END_OF_FILE) #define C_undefinedp(x) C_mk_bool((x) == C_SCHEME_UNDEFINED) #define C_fixnump(x) C_mk_bool((x) & C_FIXNUM_BIT) #define C_nfixnump(x) C_mk_nbool((x) & C_FIXNUM_BIT) #define C_pointerp(x) C_mk_bool(C_block_header(x) == C_POINTER_TAG) #define C_taggedpointerp(x) C_mk_bool(C_block_header(x) == C_TAGGED_POINTER_TAG) #define C_lambdainfop(x) C_mk_bool(C_header_bits(x) == C_LAMBDA_INFO_TYPE) #define C_anypointerp(x) C_mk_bool(C_block_header(x) == C_POINTER_TAG || C_block_header(x) == C_TAGGED_POINTER_TAG) #define C_specialp(x) C_mk_bool(C_header_bits(x) & C_SPECIALBLOCK_BIT) #define C_byteblockp(x) C_mk_bool(C_header_bits(x) & C_BYTEBLOCK_BIT) #define C_sametypep(x, y) C_mk_bool(C_header_bits(x) == C_header_bits(y)) #define C_eqp(x, y) C_mk_bool((x) == (y)) #define C_vemptyp(x) C_mk_bool(C_header_size(x) == 0) #define C_notvemptyp(x) C_mk_bool(C_header_size(x) > 0) #define C_port_typep(x, n) C_mk_bool((C_block_item(x, 1) & n) == n) #define C_input_portp(x) C_and(C_portp(x), C_port_typep(x, 0x2)) #define C_output_portp(x) C_and(C_portp(x), C_port_typep(x, 0x4)) #define C_port_openp(port, n) C_mk_bool((C_block_item(port, 8) & n) == n) #define C_input_port_openp(port) C_port_openp(port, 0x2) #define C_output_port_openp(port) C_port_openp(port, 0x4) #define C_slot(x, i) C_block_item(x, C_unfix(i)) #define C_subbyte(x, i) C_fix(((C_byte *)C_data_pointer(x))[ C_unfix(i) ] & 0xff) #define C_subchar(x, i) C_make_character(((C_uchar *)C_data_pointer(x))[ C_unfix(i) ]) #define C_setbyte(x, i, n) (((C_byte *)C_data_pointer(x))[ C_unfix(i) ] = C_unfix(n), C_SCHEME_UNDEFINED) #define C_setsubchar(x, i, n) (((C_char *)C_data_pointer(x))[ C_unfix(i) ] = C_character_code(n), C_SCHEME_UNDEFINED) #define C_setsubbyte(x, i, n) (((C_char *)C_data_pointer(x))[ C_unfix(i) ] = C_unfix(n), C_SCHEME_UNDEFINED) #define C_fixnum_times(n1, n2) (C_fix(C_unfix(n1) * C_unfix(n2))) #define C_u_fixnum_plus(n1, n2) (((n1) - C_FIXNUM_BIT) + (n2)) #define C_fixnum_plus(n1, n2) (C_u_fixnum_plus(n1, n2) | C_FIXNUM_BIT) #define C_u_fixnum_difference(n1, n2) ((n1) - (n2) + C_FIXNUM_BIT) #define C_fixnum_difference(n1, n2) (C_u_fixnum_difference(n1, n2) | C_FIXNUM_BIT) #define C_u_fixnum_divide(n1, n2) (C_fix(C_unfix(n1) / C_unfix(n2))) #define C_u_fixnum_and(n1, n2) ((n1) & (n2)) #define C_fixnum_and(n1, n2) (C_u_fixnum_and(n1, n2) | C_FIXNUM_BIT) #define C_u_fixnum_or(n1, n2) ((n1) | (n2)) #define C_fixnum_or(n1, n2) (C_u_fixnum_or(n1, n2) | C_FIXNUM_BIT) #define C_fixnum_xor(n1, n2) (((n1) ^ (n2)) | C_FIXNUM_BIT) #define C_fixnum_not(n) ((~(n)) | C_FIXNUM_BIT) #define C_fixnum_shift_left(n1, n2) (C_fix(((C_uword)C_unfix(n1) << (C_uword)C_unfix(n2)))) #define C_fixnum_shift_right(n1, n2) (((n1) >> (C_uword)C_unfix(n2)) | C_FIXNUM_BIT) #define C_u_fixnum_negate(n) (-(n) + 2 * C_FIXNUM_BIT) #define C_fixnum_negate(n) (C_u_fixnum_negate(n) | C_FIXNUM_BIT) #define C_fixnum_greaterp(n1, n2) (C_mk_bool((C_word)(n1) > (C_word)(n2))) #define C_fixnum_lessp(n1, n2) (C_mk_bool((C_word)(n1) < (C_word)(n2))) #define C_fixnum_greater_or_equal_p(n1, n2) (C_mk_bool((C_word)(n1) >= (C_word)(n2))) #define C_fixnum_less_or_equal_p(n1, n2)(C_mk_bool((C_word)(n1) <= (C_word)(n2))) #define C_u_fixnum_increase(n) ((n) + (1 << C_FIXNUM_SHIFT)) #define C_fixnum_increase(n) (C_u_fixnum_increase(n) | C_FIXNUM_BIT) #define C_u_fixnum_decrease(n) ((n) - (1 << C_FIXNUM_SHIFT)) #define C_fixnum_decrease(n) (C_u_fixnum_decrease(n) | C_FIXNUM_BIT) /* XXX TODO: This should probably be renamed C_u_fixnum_abs or something */ #define C_fixnum_abs(n) C_fix(abs(C_unfix(n))) #define C_a_i_fixnum_abs(ptr, n, x) (((x) & C_INT_SIGN_BIT) ? C_a_i_fixnum_negate((ptr), (n), (x)) : (x)) #define C_i_fixnum_signum(x) ((x) == C_fix(0) ? (x) : (((x) & C_INT_SIGN_BIT) ? C_fix(-1) : C_fix(1))) #define C_i_fixnum_length(x) C_fix(C_ilen(((x) & C_INT_SIGN_BIT) ? ~C_unfix(x) : C_unfix(x))) #define C_flonum_equalp(n1, n2) C_mk_bool(C_flonum_magnitude(n1) == C_flonum_magnitude(n2)) #define C_flonum_greaterp(n1, n2) C_mk_bool(C_flonum_magnitude(n1) > C_flonum_magnitude(n2)) #define C_flonum_lessp(n1, n2) C_mk_bool(C_flonum_magnitude(n1) < C_flonum_magnitude(n2)) #define C_flonum_greater_or_equal_p(n1, n2) C_mk_bool(C_flonum_magnitude(n1) >= C_flonum_magnitude(n2)) #define C_flonum_less_or_equal_p(n1, n2) C_mk_bool(C_flonum_magnitude(n1) <= C_flonum_magnitude(n2)) #define C_a_i_flonum_plus(ptr, c, n1, n2) C_flonum(ptr, C_flonum_magnitude(n1) + C_flonum_magnitude(n2)) #define C_a_i_flonum_difference(ptr, c, n1, n2) C_flonum(ptr, C_flonum_magnitude(n1) - C_flonum_magnitude(n2)) #define C_a_i_flonum_times(ptr, c, n1, n2) C_flonum(ptr, C_flonum_magnitude(n1) * C_flonum_magnitude(n2)) #define C_a_i_flonum_quotient(ptr, c, n1, n2) C_flonum(ptr, C_flonum_magnitude(n1) / C_flonum_magnitude(n2)) #define C_a_i_flonum_negate(ptr, c, n) C_flonum(ptr, -C_flonum_magnitude(n)) #define C_a_u_i_flonum_signum(ptr, n, x) (C_flonum_magnitude(x) == 0.0 ? (x) : ((C_flonum_magnitude(x) < 0.0) ? C_flonum(ptr, -1.0) : C_flonum(ptr, 1.0))) #define C_a_i_address_to_pointer(ptr, c, addr) C_mpointer(ptr, (void *)C_num_to_unsigned_int(addr)) #define C_a_i_pointer_to_address(ptr, c, pptr) C_unsigned_int_to_num(ptr, (unsigned int)C_c_pointer_nn(pptr)) #define C_display_fixnum(p, n) (C_fprintf(C_port_file(p), C_text("%d"), C_unfix(n)), C_SCHEME_UNDEFINED) #define C_display_char(p, c) (C_fputc(C_character_code(c), C_port_file(p)), C_SCHEME_UNDEFINED) #define C_display_string(p, s) (C_fwrite(C_data_pointer(s), sizeof(C_char), C_header_size(s), \ C_port_file(p)), C_SCHEME_UNDEFINED) #define C_flush_output(port) (C_fflush(C_port_file(port)), C_SCHEME_UNDEFINED) #define C_fix_to_char(x) (C_make_character(C_unfix(x))) #define C_char_to_fix(x) (C_fix(C_character_code(x))) #define C_u_i_char_equalp(x, y) C_mk_bool(C_character_code(x) == C_character_code(y)) #define C_u_i_char_greaterp(x, y) C_mk_bool(C_character_code(x) > C_character_code(y)) #define C_u_i_char_lessp(x, y) C_mk_bool(C_character_code(x) < C_character_code(y)) #define C_u_i_char_greater_or_equal_p(x, y) C_mk_bool(C_character_code(x) >= C_character_code(y)) #define C_u_i_char_less_or_equal_p(x, y) C_mk_bool(C_character_code(x) <= C_character_code(y)) #define C_substring_copy(s1, s2, start1, end1, start2) \ (C_memmove((C_char *)C_data_pointer(s2) + C_unfix(start2), \ (C_char *)C_data_pointer(s1) + C_unfix(start1), \ C_unfix(end1) - C_unfix(start1) ), C_SCHEME_UNDEFINED) #define C_substring_compare(s1, s2, start1, start2, len) \ C_mk_bool(C_memcmp((C_char *)C_data_pointer(s1) + C_unfix(start1), \ (C_char *)C_data_pointer(s2) + C_unfix(start2), \ C_unfix(len) ) == 0) #define C_substring_compare_case_insensitive(s1, s2, start1, start2, len) \ C_mk_bool(C_memcasecmp((C_char *)C_data_pointer(s1) + C_unfix(start1), \ (C_char *)C_data_pointer(s2) + C_unfix(start2), \ C_unfix(len) ) == 0) /* this does not use C_mutate: */ #define C_subvector_copy(v1, v2, start1, end1, start2) \ (C_memcpy_slots((C_char *)C_data_pointer(v2) + C_unfix(start2), \ (C_char *)C_data_pointer(v1) + C_unfix(start1), \ C_unfix(end1) - C_unfix(start1) ), C_SCHEME_UNDEFINED) #define C_words(n) C_fix(C_bytestowords(C_unfix(n))) #define C_bytes(n) C_fix(C_wordstobytes(C_unfix(n))) #define C_rand(n) C_fix((C_word)(((double)rand())/(RAND_MAX + 1.0) * C_unfix(n))) #define C_block_size(x) C_fix(C_header_size(x)) #define C_u_i_bignum_size(b) C_fix(C_bignum_size(b)) #define C_a_u_i_big_to_flo(p, n, b) C_flonum(p, C_bignum_to_double(b)) #define C_u_i_ratnum_num(r) C_block_item((r), 0) #define C_u_i_ratnum_denom(r) C_block_item((r), 1) #define C_u_i_cplxnum_real(c) C_block_item((c), 0) #define C_u_i_cplxnum_imag(c) C_block_item((c), 1) #define C_pointer_address(x) ((C_byte *)C_block_item((x), 0)) #define C_block_address(ptr, n, x) C_a_unsigned_int_to_num(ptr, n, x) #define C_offset_pointer(x, y) (C_pointer_address(x) + (y)) #define C_do_apply(c, av) ((C_proc)(void *)C_block_item((av)[0], 0))((c), (av)) #define C_kontinue(k, r) do { C_word avk[ 2 ]; avk[ 0 ] = (k); avk[ 1 ] = (r); ((C_proc)(void *)C_block_item((k),0))(2, avk); } while(0) #define C_fetch_byte(x, p) (((unsigned C_byte *)C_data_pointer(x))[ p ]) #define C_poke_integer(x, i, n) (C_set_block_item(x, C_unfix(i), C_num_to_int(n)), C_SCHEME_UNDEFINED) #define C_pointer_to_block(p, x) (C_set_block_item(p, 0, (C_word)C_data_pointer(x)), C_SCHEME_UNDEFINED) #define C_null_pointerp(x) C_mk_bool((void *)C_block_item(x, 0) == NULL) #define C_update_pointer(p, ptr) (C_set_block_item(ptr, 0, C_num_to_unsigned_int(p)), C_SCHEME_UNDEFINED) #define C_copy_pointer(from, to) (C_set_block_item(to, 0, C_block_item(from, 0)), C_SCHEME_UNDEFINED) #define C_pointer_to_object(ptr) C_block_item(ptr, 0) #ifdef C_SIXTY_FOUR # define C_poke_integer_32(x, i, n) (((C_s32 *)C_data_pointer(x))[ C_unfix(i) ] = C_unfix(n), C_SCHEME_UNDEFINED) #else # define C_poke_integer_32 C_poke_integer #endif #define C_copy_memory(to, from, n) (C_memcpy(C_data_pointer(to), C_data_pointer(from), C_unfix(n)), C_SCHEME_UNDEFINED) #define C_copy_ptr_memory(to, from, n, toff, foff) \ (C_memmove(C_pointer_address(to) + C_unfix(toff), C_pointer_address(from) + C_unfix(foff), \ C_unfix(n)), C_SCHEME_UNDEFINED) #define C_set_memory(to, c, n) (C_memset(C_data_pointer(to), C_character_code(c), C_unfix(n)), C_SCHEME_UNDEFINED) #define C_string_compare(to, from, n) C_fix(C_memcmp(C_c_string(to), C_c_string(from), C_unfix(n))) #define C_string_compare_case_insensitive(from, to, n) \ C_fix(C_memcasecmp(C_c_string(from), C_c_string(to), C_unfix(n))) #define C_poke_double(b, i, n) (((double *)C_data_pointer(b))[ C_unfix(i) ] = C_c_double(n), C_SCHEME_UNDEFINED) #define C_poke_c_string(b, i, from, s) (C_strlcpy((char *)C_block_item(b, C_unfix(i)), C_data_pointer(from), s), C_SCHEME_UNDEFINED) #define C_peek_fixnum(b, i) C_fix(C_block_item(b, C_unfix(i))) #define C_peek_byte(ptr, i) C_fix(((unsigned char *)C_u_i_car(ptr))[ C_unfix(i) ]) #define C_dupstr(s) C_strdup(C_data_pointer(s)) #define C_poke_pointer(b, i, x) (C_set_block_item(b, C_unfix(i), (C_word)C_data_pointer(x)), C_SCHEME_UNDEFINED) #define C_poke_pointer_or_null(b, i, x) (C_set_block_item(b, C_unfix(i), (C_word)C_data_pointer_or_null(x)), C_SCHEME_UNDEFINED) #define C_qfree(ptr) (C_free(C_c_pointer_nn(ptr)), C_SCHEME_UNDEFINED) #define C_tty_portp(p) C_mk_bool(isatty(fileno(C_port_file(p)))) #define C_emit_eval_trace_info(x, y, z) C_emit_trace_info2(C_text(""), x, y, z) #define C_emit_syntax_trace_info(x, y, z) C_emit_trace_info2(C_text(""), x, y, z) /* These expect C_VECTOR_TYPE to be 0: */ #define C_vector_to_structure(v) (C_block_header(v) |= C_STRUCTURE_TYPE, C_SCHEME_UNDEFINED) #define C_vector_to_closure(v) (C_block_header(v) |= C_CLOSURE_TYPE, C_SCHEME_UNDEFINED) #define C_string_to_bytevector(s) (C_block_header(s) = C_header_size(s) | C_BYTEVECTOR_TYPE, C_SCHEME_UNDEFINED) #define C_string_to_lambdainfo(s) (C_block_header(s) = C_header_size(s) | C_LAMBDA_INFO_TYPE, C_SCHEME_UNDEFINED) #ifdef C_TIMER_INTERRUPTS # define C_check_for_interrupt if(--C_timer_interrupt_counter <= 0) C_raise_interrupt(C_TIMER_INTERRUPT_NUMBER) #else # define C_check_for_interrupt #endif #define C_set_initial_timer_interrupt_period(n) \ (C_initial_timer_interrupt_period = C_unfix(n), C_SCHEME_UNDEFINED) #ifdef HAVE_STATEMENT_EXPRESSIONS # define C_a_i(a, n) ({C_word *tmp = *a; *a += (n); tmp;}) # define C_a_i_cons(a, n, car, cdr) ({C_word tmp = (C_word)(*a); (*a)[0] = C_PAIR_TYPE | 2; *a += C_SIZEOF_PAIR; \ C_set_block_item(tmp, 0, car); C_set_block_item(tmp, 1, cdr); tmp;}) #else # define C_a_i_cons(a, n, car, cdr) C_a_pair(a, car, cdr) #endif /* HAVE_STATEMENT_EXPRESSIONS */ #define C_a_i_flonum(ptr, c, n) C_flonum(ptr, n) #define C_a_i_ratnum(ptr, c, n, d) C_ratnum(ptr, n, d) #define C_a_i_cplxnum(ptr, c, r, i) C_cplxnum(ptr, r, i) #define C_a_i_data_mpointer(ptr, n, x) C_mpointer(ptr, C_data_pointer(x)) #define C_a_i_fix_to_flo(p, n, f) C_flonum(p, C_unfix(f)) #define C_cast_to_flonum(n) ((double)(n)) #define C_a_i_mpointer(ptr, n, x) C_mpointer(ptr, (x)) #define C_a_u_i_pointer_inc(ptr, n, p, i) C_mpointer(ptr, (C_char *)(p) + C_unfix(i)) #define C_pointer_eqp(x, y) C_mk_bool(C_c_pointer_nn(x) == C_c_pointer_nn(y)) #define C_a_int_to_num(ptr, n, i) C_int_to_num(ptr, i) #define C_a_unsigned_int_to_num(ptr, n, i) C_unsigned_int_to_num(ptr, i) #define C_a_i_vector C_vector #define C_list C_a_i_list #define C_i_setslot(x, i, y) (C_mutate(&C_block_item(x, C_unfix(i)), y), C_SCHEME_UNDEFINED) #define C_i_set_i_slot(x, i, y) (C_set_block_item(x, C_unfix(i), y), C_SCHEME_UNDEFINED) #define C_u_i_set_car(p, x) (C_mutate(&C_u_i_car(p), x), C_SCHEME_UNDEFINED) #define C_u_i_set_cdr(p, x) (C_mutate(&C_u_i_cdr(p), x), C_SCHEME_UNDEFINED) #define C_a_i_putprop(p, c, x, y, z) C_putprop(p, x, y, z) #define C_i_not(x) (C_truep(x) ? C_SCHEME_FALSE : C_SCHEME_TRUE) #define C_i_equalp(x, y) C_mk_bool(C_equalp((x), (y))) #define C_i_fixnumevenp(x) C_mk_nbool((x) & 0x00000002) #define C_i_fixnumoddp(x) C_mk_bool((x) & 0x00000002) #define C_i_fixnum_negativep(x) C_mk_bool((x) & C_INT_SIGN_BIT) #define C_i_fixnum_positivep(x) C_mk_bool(!((x) & C_INT_SIGN_BIT) && (x) != C_fix(0)) #define C_i_nullp(x) C_mk_bool((x) == C_SCHEME_END_OF_LIST) #define C_i_structurep(x, s) C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_STRUCTURE_TYPE && C_block_item(x, 0) == (s)) #define C_u_i_char_alphabeticp(x) C_mk_bool(C_character_code(x) < 0x100 && C_isalpha(C_character_code(x))) #define C_u_i_char_numericp(x) C_mk_bool(C_character_code(x) < 0x100 && C_isdigit(C_character_code(x))) #define C_u_i_char_whitespacep(x) C_mk_bool(C_character_code(x) < 0x100 && C_isspace(C_character_code(x))) #define C_u_i_char_upper_casep(x) C_mk_bool(C_character_code(x) < 0x100 && C_isupper(C_character_code(x))) #define C_u_i_char_lower_casep(x) C_mk_bool(C_character_code(x) < 0x100 && C_islower(C_character_code(x))) #define C_u_i_char_upcase(x) (C_character_code(x) < 0x100 ? C_make_character(C_toupper(C_character_code(x))) : (x)) #define C_u_i_char_downcase(x) (C_character_code(x) < 0x100 ? C_make_character(C_tolower(C_character_code(x))) : (x)) #define C_i_list_ref(lst, i) C_i_car(C_i_list_tail(lst, i)) #define C_u_i_list_ref(lst, i) C_u_i_car(C_i_list_tail(lst, i)) #define C_u_i_car(x) (*C_CHECKp(x,C_pairp(C_VAL1(x)),&C_block_item(C_VAL1(x), 0))) #define C_u_i_cdr(x) (*C_CHECKp(x,C_pairp(C_VAL1(x)),&C_block_item(C_VAL1(x), 1))) #define C_u_i_caar(x) C_u_i_car( C_u_i_car( x ) ) #define C_u_i_cadr(x) C_u_i_car( C_u_i_cdr( x ) ) #define C_u_i_cdar(x) C_u_i_cdr( C_u_i_car( x ) ) #define C_u_i_cddr(x) C_u_i_cdr( C_u_i_cdr( x ) ) #define C_u_i_caaar(x) C_u_i_car( C_u_i_caar( x ) ) #define C_u_i_caadr(x) C_u_i_car( C_u_i_cadr( x ) ) #define C_u_i_cadar(x) C_u_i_car( C_u_i_cdar( x ) ) #define C_u_i_caddr(x) C_u_i_car( C_u_i_cddr( x ) ) #define C_u_i_cdaar(x) C_u_i_cdr( C_u_i_caar( x ) ) #define C_u_i_cdadr(x) C_u_i_cdr( C_u_i_cadr( x ) ) #define C_u_i_cddar(x) C_u_i_cdr( C_u_i_cdar( x ) ) #define C_u_i_cdddr(x) C_u_i_cdr( C_u_i_cddr( x ) ) #define C_u_i_caaaar(x) C_u_i_car( C_u_i_caaar( x ) ) #define C_u_i_caaadr(x) C_u_i_car( C_u_i_caadr( x ) ) #define C_u_i_caadar(x) C_u_i_car( C_u_i_cadar( x ) ) #define C_u_i_caaddr(x) C_u_i_car( C_u_i_caddr( x ) ) #define C_u_i_cadaar(x) C_u_i_car( C_u_i_cdaar( x ) ) #define C_u_i_cadadr(x) C_u_i_car( C_u_i_cdadr( x ) ) #define C_u_i_caddar(x) C_u_i_car( C_u_i_cddar( x ) ) #define C_u_i_cadddr(x) C_u_i_car( C_u_i_cdddr( x ) ) #define C_u_i_cdaaar(x) C_u_i_cdr( C_u_i_caaar( x ) ) #define C_u_i_cdaadr(x) C_u_i_cdr( C_u_i_caadr( x ) ) #define C_u_i_cdadar(x) C_u_i_cdr( C_u_i_cadar( x ) ) #define C_u_i_cdaddr(x) C_u_i_cdr( C_u_i_caddr( x ) ) #define C_u_i_cddaar(x) C_u_i_cdr( C_u_i_cdaar( x ) ) #define C_u_i_cddadr(x) C_u_i_cdr( C_u_i_cdadr( x ) ) #define C_u_i_cdddar(x) C_u_i_cdr( C_u_i_cddar( x ) ) #define C_u_i_cddddr(x) C_u_i_cdr( C_u_i_cdddr( x ) ) #ifdef HAVE_STATEMENT_EXPRESSIONS # define C_i_not_pair_p(x) ({C_word tmp = (x); C_mk_bool(C_immediatep(tmp) || C_block_header(tmp) != C_PAIR_TAG);}) #else # define C_i_not_pair_p C_i_not_pair_p_2 #endif #define C_i_check_closure(x) C_i_check_closure_2(x, C_SCHEME_FALSE) #define C_i_check_exact(x) C_i_check_exact_2(x, C_SCHEME_FALSE) #define C_i_check_fixnum(x) C_i_check_fixnum_2(x, C_SCHEME_FALSE) #define C_i_check_inexact(x) C_i_check_inexact_2(x, C_SCHEME_FALSE) #define C_i_check_number(x) C_i_check_number_2(x, C_SCHEME_FALSE) #define C_i_check_string(x) C_i_check_string_2(x, C_SCHEME_FALSE) #define C_i_check_bytevector(x) C_i_check_bytevector_2(x, C_SCHEME_FALSE) #define C_i_check_keyword(x) C_i_check_keyword_2(x, C_SCHEME_FALSE) #define C_i_check_symbol(x) C_i_check_symbol_2(x, C_SCHEME_FALSE) #define C_i_check_list(x) C_i_check_list_2(x, C_SCHEME_FALSE) #define C_i_check_pair(x) C_i_check_pair_2(x, C_SCHEME_FALSE) #define C_i_check_locative(x) C_i_check_locative_2(x, C_SCHEME_FALSE) #define C_i_check_boolean(x) C_i_check_boolean_2(x, C_SCHEME_FALSE) #define C_i_check_vector(x) C_i_check_vector_2(x, C_SCHEME_FALSE) #define C_i_check_structure(x, st) C_i_check_structure_2(x, (st), C_SCHEME_FALSE) #define C_i_check_char(x) C_i_check_char_2(x, C_SCHEME_FALSE) #define C_i_check_port(x, in, op) C_i_check_port_2(x, in, op, C_SCHEME_FALSE) #define C_u_i_8vector_length(x) C_fix(C_header_size(C_block_item(x, 1))) #define C_u_i_16vector_length(x) C_fix(C_header_size(C_block_item(x, 1)) >> 1) #define C_u_i_32vector_length(x) C_fix(C_header_size(C_block_item(x, 1)) >> 2) #define C_u_i_64vector_length(x) C_fix(C_header_size(C_block_item(x, 1)) >> 3) #define C_u_i_u8vector_length C_u_i_8vector_length #define C_u_i_s8vector_length C_u_i_8vector_length #define C_u_i_u16vector_length C_u_i_16vector_length #define C_u_i_s16vector_length C_u_i_16vector_length #define C_u_i_u32vector_length C_u_i_32vector_length #define C_u_i_s32vector_length C_u_i_32vector_length #define C_u_i_u64vector_length C_u_i_64vector_length #define C_u_i_s64vector_length C_u_i_64vector_length #define C_u_i_f32vector_length C_u_i_32vector_length #define C_u_i_f64vector_length C_u_i_64vector_length #define C_u_i_u8vector_ref(x, i) C_fix(((unsigned char *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) #define C_u_i_s8vector_ref(x, i) C_fix(((signed char *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) #define C_u_i_u16vector_ref(x, i) C_fix(((unsigned short *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) #define C_u_i_s16vector_ref(x, i) C_fix(((short *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) /* these assume fixnum mode */ #define C_u_i_u32vector_ref(x, i) C_fix(((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) #define C_u_i_s32vector_ref(x, i) C_fix(((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) #define C_a_u_i_u32vector_ref(ptr, c, x, i) C_unsigned_int_to_num(ptr, ((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) #define C_a_u_i_s32vector_ref(ptr, c, x, i) C_int_to_num(ptr, ((C_s32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) #define C_a_u_i_u64vector_ref(ptr, c, x, i) C_uint64_to_num(ptr, ((C_u64 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) #define C_a_u_i_s64vector_ref(ptr, c, x, i) C_int64_to_num(ptr, ((C_s64 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) #define C_u_i_u8vector_set(x, i, v) ((((unsigned char *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) #define C_u_i_s8vector_set(x, i, v) ((((signed char *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) #define C_u_i_u16vector_set(x, i, v) ((((unsigned short *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) #define C_u_i_s16vector_set(x, i, v) ((((short *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) #define C_u_i_u32vector_set(x, i, v) ((((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_num_to_unsigned_int(v)), C_SCHEME_UNDEFINED) #define C_u_i_s32vector_set(x, i, v) ((((C_s32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_num_to_int(v)), C_SCHEME_UNDEFINED) #define C_u_i_u64vector_set(x, i, v) ((((C_u64 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_num_to_uint64(v)), C_SCHEME_UNDEFINED) #define C_u_i_s64vector_set(x, i, v) ((((C_s64 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_num_to_int64(v)), C_SCHEME_UNDEFINED) /* DEPRECATED */ #define C_u_i_bit_to_bool(x, i) C_mk_bool((C_unfix(x) & (1 << C_unfix(i))) != 0) #define C_u_i_pointer_u8_ref(ptr) C_fix(*((unsigned char *)C_block_item(ptr, 0))) #define C_u_i_pointer_s8_ref(ptr) C_fix(*((signed char *)C_block_item(ptr, 0))) #define C_u_i_pointer_u16_ref(ptr) C_fix(*((unsigned short *)C_block_item(ptr, 0))) #define C_u_i_pointer_s16_ref(ptr) C_fix(*((short *)C_block_item(ptr, 0))) #define C_a_u_i_pointer_u32_ref(ap, n, ptr) \ C_unsigned_int_to_num(ap, *((C_u32 *)C_block_item(ptr, 0))) #define C_a_u_i_pointer_s32_ref(ap, n, ptr) \ C_int_to_num(ap, *((C_s32 *)C_block_item(ptr, 0))) #define C_a_u_i_pointer_u64_ref(ap, n, ptr) \ C_uint64_to_num(ap, *((C_u64 *)C_block_item(ptr, 0))) #define C_a_u_i_pointer_s64_ref(ap, n, ptr) \ C_int64_to_num(ap, *((C_s64 *)C_block_item(ptr, 0))) #define C_a_u_i_pointer_f32_ref(ap, n, ptr) C_flonum(ap, *((float *)C_block_item(ptr, 0))) #define C_a_u_i_pointer_f64_ref(ap, n, ptr) C_flonum(ap, *((double *)C_block_item(ptr, 0))) #define C_u_i_pointer_u8_set(ptr, x) \ (*((unsigned char *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) #define C_u_i_pointer_s8_set(ptr, x) \ (*((signed char *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) #define C_u_i_pointer_u16_set(ptr, x) \ (*((unsigned short *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) #define C_u_i_pointer_s16_set(ptr, x) \ (*((short *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) #define C_u_i_pointer_u32_set(ptr, x) \ (*((C_u32 *)C_block_item(ptr, 0)) = C_num_to_unsigned_int(x), C_SCHEME_UNDEFINED) #define C_u_i_pointer_s32_set(ptr, x) \ (*((C_s32 *)C_block_item(ptr, 0)) = C_num_to_int(x), C_SCHEME_UNDEFINED) #define C_u_i_pointer_u64_set(ptr, x) \ (*((C_u64 *)C_block_item(ptr, 0)) = C_num_to_uint64(x), C_SCHEME_UNDEFINED) #define C_u_i_pointer_s64_set(ptr, x) \ (*((C_s64 *)C_block_item(ptr, 0)) = C_num_to_int64(x), C_SCHEME_UNDEFINED) #define C_u_i_pointer_f32_set(ptr, x) \ (*((float *)C_block_item(ptr, 0)) = C_flonum_magnitude(x), C_SCHEME_UNDEFINED) #define C_u_i_pointer_f64_set(ptr, x) \ (*((double *)C_block_item(ptr, 0)) = C_flonum_magnitude(x), C_SCHEME_UNDEFINED) #ifdef C_BIG_ENDIAN # ifdef C_SIXTY_FOUR # define C_lihdr(x, y, z) ((C_LAMBDA_INFO_TYPE >> 56) & 0xff), \ 0, 0, 0, 0, (x), (y), (z) # else # define C_lihdr(x, y, z) ((C_LAMBDA_INFO_TYPE >> 24) & 0xff), \ (x), (y), (z) # endif #else # ifdef C_SIXTY_FOUR # define C_lihdr(x, y, z) (z), (y), (x), 0, 0, 0, 0, \ ((C_LAMBDA_INFO_TYPE >> 56) & 0xff) # else # define C_lihdr(x, y, z) (z), (y), (x), \ ((C_LAMBDA_INFO_TYPE >> 24) & 0xff) # endif #endif #define C_ub_i_flonum_plus(x, y) ((x) + (y)) #define C_ub_i_flonum_difference(x, y) ((x) - (y)) #define C_ub_i_flonum_times(x, y) ((x) * (y)) #define C_ub_i_flonum_quotient(x, y) ((x) / (y)) #define C_ub_i_flonum_equalp(n1, n2) C_mk_bool((n1) == (n2)) #define C_ub_i_flonum_greaterp(n1, n2) C_mk_bool((n1) > (n2)) #define C_ub_i_flonum_lessp(n1, n2) C_mk_bool((n1) < (n2)) #define C_ub_i_flonum_greater_or_equal_p(n1, n2) C_mk_bool((n1) >= (n2)) #define C_ub_i_flonum_less_or_equal_p(n1, n2) C_mk_bool((n1) <= (n2)) #define C_ub_i_flonum_nanp(x) C_mk_bool(C_isnan(x)) #define C_ub_i_flonum_infinitep(x) C_mk_bool(C_isinf(x)) #define C_ub_i_flonum_finitep(x) C_mk_bool(C_isfinite(x)) #define C_ub_i_pointer_inc(p, n) ((void *)((unsigned char *)(p) + (n))) #define C_ub_i_pointer_eqp(p1, p2) C_mk_bool((p1) == (p2)) #define C_ub_i_null_pointerp(p) C_mk_bool((p) == NULL) #define C_ub_i_pointer_u8_ref(p) (*((unsigned char *)(p))) #define C_ub_i_pointer_s8_ref(p) (*((signed char *)(p))) #define C_ub_i_pointer_u16_ref(p) (*((unsigned short *)(p))) #define C_ub_i_pointer_s16_ref(p) (*((short *)(p))) #define C_ub_i_pointer_u32_ref(p) (*((C_u32 *)(p))) #define C_ub_i_pointer_s32_ref(p) (*((C_s32 *)(p))) #define C_ub_i_pointer_u64_ref(p) (*((C_u64 *)(p))) #define C_ub_i_pointer_s64_ref(p) (*((C_s64 *)(p))) #define C_ub_i_pointer_f32_ref(p) (*((float *)(p))) #define C_ub_i_pointer_f64_ref(p) (*((double *)(p))) #define C_ub_i_pointer_u8_set(p, n) (*((unsigned char *)(p)) = (n)) #define C_ub_i_pointer_s8_set(p, n) (*((signed char *)(p)) = (n)) #define C_ub_i_pointer_u16_set(p, n) (*((unsigned short *)(p)) = (n)) #define C_ub_i_pointer_s16_set(p, n) (*((short *)(p)) = (n)) #define C_ub_i_pointer_u32_set(p, n) (*((C_u32 *)(p)) = (n)) #define C_ub_i_pointer_s32_set(p, n) (*((C_s32 *)(p)) = (n)) #define C_ub_i_pointer_u64_set(p, n) (*((C_u64 *)(p)) = (n)) #define C_ub_i_pointer_s64_set(p, n) (*((C_s64 *)(p)) = (n)) #define C_ub_i_pointer_f32_set(p, n) (*((float *)(p)) = (n)) #define C_ub_i_pointer_f64_set(p, n) (*((double *)(p)) = (n)) #ifdef C_PRIVATE_REPOSITORY # define C_private_repository() C_use_private_repository(C_executable_dirname()) #else # define C_private_repository() #endif #ifdef C_GUI # define C_set_gui_mode C_gui_mode = 1 #else # define C_set_gui_mode #endif /** * SEARCH_EXE_PATH is defined on platforms on which we must search for * the current executable. Because this search is sensitive to things * like CWD, PATH, and so on, it's done once at startup and saved in * `C_main_exe`. * * On platforms where it's not defined, there's a simple way to * retrieve a path to the current executable (such as reading * "/proc//exe" or some similar trick). */ #ifdef SEARCH_EXE_PATH # define C_set_main_exe(fname) C_main_exe = C_resolve_executable_pathname(fname) #else # define C_set_main_exe(fname) #endif #if !defined(C_EMBEDDED) && !defined(C_SHARED) # if defined(C_GUI) && defined(_WIN32) # define C_main_entry_point \ int WINAPI WinMain(HINSTANCE me, HINSTANCE you, LPSTR cmdline, int show) \ { \ C_gui_mode = 1; \ C_set_main_exe(argv[0]); \ C_private_repository(); \ return CHICKEN_main(0, NULL, (void *)C_toplevel); \ } # else # define C_main_entry_point \ int main(int argc, char *argv[]) \ { \ C_set_gui_mode; \ C_set_main_exe(argv[0]); \ C_private_repository(); \ return CHICKEN_main(argc, argv, (void*)C_toplevel); \ } # endif #else # define C_main_entry_point #endif #define C_alloc_flonum C_word *___tmpflonum = C_alloc(WORDS_PER_FLONUM) #define C_kontinue_flonum(k, n) C_kontinue((k), C_flonum(&___tmpflonum, (n))) #define C_a_i_flonum_truncate(ptr, n, x) C_flonum(ptr, C_trunc(C_flonum_magnitude(x))) #define C_a_i_flonum_ceiling(ptr, n, x) C_flonum(ptr, C_ceil(C_flonum_magnitude(x))) #define C_a_i_flonum_floor(ptr, n, x) C_flonum(ptr, C_floor(C_flonum_magnitude(x))) #define C_a_i_flonum_round(ptr, n, x) C_flonum(ptr, C_round(C_flonum_magnitude(x))) #define C_a_u_i_f32vector_ref(ptr, n, b, i) C_flonum(ptr, ((float *)C_data_pointer(C_block_item((b), 1)))[ C_unfix(i) ]) #define C_a_u_i_f64vector_ref(ptr, n, b, i) C_flonum(ptr, ((double *)C_data_pointer(C_block_item((b), 1)))[ C_unfix(i) ]) #define C_u_i_f32vector_set(v, i, x) ((((float *)C_data_pointer(C_block_item((v), 1)))[ C_unfix(i) ] = C_flonum_magnitude(x)), C_SCHEME_UNDEFINED) #define C_u_i_f64vector_set(v, i, x) ((((double *)C_data_pointer(C_block_item((v), 1)))[ C_unfix(i) ] = C_flonum_magnitude(x)), C_SCHEME_UNDEFINED) #define C_ub_i_f32vector_ref(b, i) (((float *)C_data_pointer(C_block_item((b), 1)))[ C_unfix(i) ]) #define C_ub_i_f64vector_ref(b, i) (((double *)C_data_pointer(C_block_item((b), 1)))[ C_unfix(i) ]) #define C_ub_i_f32vector_set(v, i, x) ((((float *)C_data_pointer(C_block_item((v), 1)))[ C_unfix(i) ] = (x)), 0) #define C_ub_i_f64vector_set(v, i, x) ((((double *)C_data_pointer(C_block_item((v), 1)))[ C_unfix(i) ] = (x)), 0) #define C_a_i_flonum_sin(ptr, c, x) C_flonum(ptr, C_sin(C_flonum_magnitude(x))) #define C_a_i_flonum_cos(ptr, c, x) C_flonum(ptr, C_cos(C_flonum_magnitude(x))) #define C_a_i_flonum_tan(ptr, c, x) C_flonum(ptr, C_tan(C_flonum_magnitude(x))) #define C_a_i_flonum_asin(ptr, c, x) C_flonum(ptr, C_asin(C_flonum_magnitude(x))) #define C_a_i_flonum_acos(ptr, c, x) C_flonum(ptr, C_acos(C_flonum_magnitude(x))) #define C_a_i_flonum_atan(ptr, c, x) C_flonum(ptr, C_atan(C_flonum_magnitude(x))) #define C_a_i_flonum_atan2(ptr, c, x, y) C_flonum(ptr, C_atan2(C_flonum_magnitude(x), C_flonum_magnitude(y))) #define C_a_i_flonum_exp(ptr, c, x) C_flonum(ptr, C_exp(C_flonum_magnitude(x))) #define C_a_i_flonum_expt(ptr, c, x, y) C_flonum(ptr, C_pow(C_flonum_magnitude(x), C_flonum_magnitude(y))) #define C_a_i_flonum_log(ptr, c, x) C_flonum(ptr, C_log(C_flonum_magnitude(x))) #define C_a_i_flonum_sqrt(ptr, c, x) C_flonum(ptr, C_sqrt(C_flonum_magnitude(x))) #define C_a_i_flonum_abs(ptr, c, x) C_flonum(ptr, C_fabs(C_flonum_magnitude(x))) #define C_u_i_flonum_nanp(x) C_mk_bool(C_isnan(C_flonum_magnitude(x))) #define C_u_i_flonum_infinitep(x) C_mk_bool(C_isinf(C_flonum_magnitude(x))) #define C_u_i_flonum_finitep(x) C_mk_bool(C_isfinite(C_flonum_magnitude(x))) #define C_a_i_current_milliseconds(ptr, c, dummy) C_uint64_to_num(ptr, C_milliseconds()) #define C_i_noop1(dummy) ((dummy), C_SCHEME_UNDEFINED) #define C_i_noop2(dummy1, dummy2) ((dummy1), (dummy2), C_SCHEME_UNDEFINED) #define C_i_noop3(dummy1, dummy2, dummy3) ((dummy1), (dummy2), (dummy3), C_SCHEME_UNDEFINED) #define C_i_true1(dummy) ((dummy), C_SCHEME_TRUE) #define C_i_true2(dummy1, dummy2) ((dummy1), (dummy2), C_SCHEME_TRUE) #define C_i_true3(dummy1, dummy2, dummy3) ((dummy1), (dummy2), (dummy3), C_SCHEME_TRUE) /* debug client interface */ typedef struct C_DEBUG_INFO { int event; int enabled; C_char *loc; C_char *val; } C_DEBUG_INFO; #define C_DEBUG_CALL 1 #define C_DEBUG_GLOBAL_ASSIGN 2 #define C_DEBUG_GC 3 #define C_DEBUG_ENTRY 4 #define C_DEBUG_SIGNAL 5 #define C_DEBUG_CONNECT 6 #define C_DEBUG_LISTEN 7 #define C_DEBUG_INTERRUPTED 8 #define C_debugger(cell, c, av) (C_debugger_hook != NULL ? C_debugger_hook(cell, c, av, C_text(__FILE__ ":" C__STR2(__LINE__))) : C_SCHEME_UNDEFINED) /* Variables: */ C_varextern C_TLS time_t C_startup_time_seconds; C_varextern C_TLS C_word *C_temporary_stack, *C_temporary_stack_bottom, *C_temporary_stack_limit, *C_stack_limit, *C_stack_hard_limit, *C_scratchspace_start, *C_scratchspace_top, *C_scratchspace_limit, C_scratch_usage; C_varextern C_TLS C_long C_timer_interrupt_counter, C_initial_timer_interrupt_period; C_varextern C_TLS C_byte *C_fromspace_top, *C_fromspace_limit; #ifdef HAVE_SIGSETJMP C_varextern C_TLS sigjmp_buf C_restart; #else C_varextern C_TLS jmp_buf C_restart; #endif C_varextern C_TLS void *C_restart_address; C_varextern C_TLS int C_entry_point_status; C_varextern C_TLS int C_gui_mode; C_varextern C_TLS int C_enable_repl; C_varextern C_TLS void *C_restart_trampoline; C_varextern C_TLS void (*C_pre_gc_hook)(int mode); C_varextern C_TLS void (*C_post_gc_hook)(int mode, C_long ms); C_varextern C_TLS void (*C_panic_hook)(C_char *msg); C_varextern C_TLS C_word (*C_debugger_hook)(C_DEBUG_INFO *cell, C_word c, C_word *av, char *cloc); C_varextern C_TLS int C_abort_on_thread_exceptions, C_interrupts_enabled, C_disable_overflow_check, C_heap_size_is_fixed, C_max_pending_finalizers, C_trace_buffer_size, C_debugging, C_main_argc; C_varextern C_TLS C_uword C_heap_growth, C_heap_shrinkage; C_varextern C_TLS char **C_main_argv, #ifdef SEARCH_EXE_PATH *C_main_exe, #endif *C_dlerror; C_varextern C_TLS C_uword C_maximal_heap_size; C_varextern C_TLS int (*C_gc_mutation_hook)(C_word *slot, C_word val); C_varextern C_TLS void (*C_gc_trace_hook)(C_word *var, int mode); C_varextern C_TLS C_word (*C_get_unbound_variable_value_hook)(C_word sym); /* Prototypes: */ C_BEGIN_C_DECLS C_fctexport void C_register_debug_info(C_DEBUG_INFO *); C_fctexport int CHICKEN_main(int argc, char *argv[], void *toplevel); C_fctexport int CHICKEN_initialize(int heap, int stack, int symbols, void *toplevel); C_fctexport C_word CHICKEN_run(void *toplevel); C_fctexport C_word CHICKEN_continue(C_word k); C_fctexport void *CHICKEN_new_gc_root(); C_fctexport void *CHICKEN_new_finalizable_gc_root(); C_fctexport void *CHICKEN_new_gc_root_2(int finalizable); C_fctexport void CHICKEN_delete_gc_root(void *root); C_fctexport void *CHICKEN_global_lookup(char *name); C_fctexport int CHICKEN_is_running(); C_fctexport void CHICKEN_interrupt(); C_fctexport void C_check_nursery_minimum(C_word size); C_fctexport int C_fcall C_save_callback_continuation(C_word **ptr, C_word k); C_fctexport C_word C_fcall C_restore_callback_continuation(void); C_fctexport C_word C_fcall C_restore_callback_continuation2(int level); C_fctexport C_word C_fcall C_callback(C_word closure, int argc); C_fctexport C_word C_fcall C_callback_wrapper(void *proc, int argc); C_fctexport void C_fcall C_callback_adjust_stack(C_word *base, int size); C_fctexport void CHICKEN_parse_command_line(int argc, char *argv[], C_word *heap, C_word *stack, C_word *symbols); C_fctexport void C_fcall C_toplevel_entry(C_char *name) C_regparm; C_fctexport C_word C_fcall C_a_i_provide(C_word **a, int c, C_word id) C_regparm; C_fctexport C_word C_fcall C_i_providedp(C_word id) C_regparm; C_fctexport C_word C_fcall C_enable_interrupts(void) C_regparm; C_fctexport C_word C_fcall C_disable_interrupts(void) C_regparm; C_fctexport void C_set_or_change_heap_size(C_word heap, int reintern); C_fctexport void C_do_resize_stack(C_word stack); C_fctexport C_word C_resize_pending_finalizers(C_word size); C_fctexport void C_initialize_lf(C_word *lf, int count); C_fctexport void *C_register_lf(C_word *lf, int count); C_fctexport void *C_register_lf2(C_word *lf, int count, C_PTABLE_ENTRY *ptable); C_fctexport void C_unregister_lf(void *handle); C_fctexport C_char *C_dump_trace(int start); C_fctexport void C_fcall C_clear_trace_buffer(void) C_regparm; C_fctexport C_word C_resize_trace_buffer(C_word size); C_fctexport C_word C_fetch_trace(C_word start, C_word buffer); C_fctexport C_word C_fcall C_string(C_word **ptr, int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_static_string(C_word **ptr, int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_static_bignum(C_word **ptr, int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_static_bytevector(C_word **ptr, int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_static_lambda_info(C_word **ptr, int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_bytevector(C_word **ptr, int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_pbytevector(int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_string_aligned8(C_word **ptr, int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_string2(C_word **ptr, C_char *str) C_regparm; C_fctexport C_word C_fcall C_string2_safe(C_word **ptr, int max, C_char *str) C_regparm; C_fctexport C_word C_fcall C_intern(C_word **ptr, int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_intern_kw(C_word **ptr, int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_intern_in(C_word **ptr, int len, C_char *str, C_SYMBOL_TABLE *stable) C_regparm; C_fctexport C_word C_fcall C_h_intern(C_word *slot, int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_h_intern_kw(C_word *slot, int len, C_char *str) C_regparm; C_fctexport C_word C_fcall C_h_intern_in(C_word *slot, int len, C_char *str, C_SYMBOL_TABLE *stable) C_regparm; C_fctexport C_word C_fcall C_intern2(C_word **ptr, C_char *str) C_regparm; C_fctexport C_word C_fcall C_intern3(C_word **ptr, C_char *str, C_word value) C_regparm; C_fctexport C_word C_fcall C_build_rest(C_word **ptr, C_word c, C_word n, C_word *av) C_regparm; C_fctexport void C_bad_memory(void) C_noret; C_fctexport void C_bad_memory_2(void) C_noret; C_fctexport void C_bad_argc(int c, int n) C_noret; C_fctexport void C_bad_min_argc(int c, int n) C_noret; C_fctexport void C_bad_argc_2(int c, int n, C_word closure) C_noret; C_fctexport void C_bad_min_argc_2(int c, int n, C_word closure) C_noret; C_fctexport void C_stack_overflow(C_char *loc) C_noret; C_fctexport void C_unbound_error(C_word sym) C_noret; C_fctexport void C_no_closure_error(C_word x) C_noret; C_fctexport void C_div_by_zero_error(char *loc) C_noret; C_fctexport void C_not_an_integer_error(char *loc, C_word x) C_noret; C_fctexport void C_not_an_uinteger_error(char *loc, C_word x) C_noret; C_fctexport C_word C_closure(C_word **ptr, int cells, C_word proc, ...); C_fctexport C_word C_fcall C_pair(C_word **ptr, C_word car, C_word cdr) C_regparm; C_fctexport C_word C_fcall C_number(C_word **ptr, double n) C_regparm; C_fctexport C_word C_fcall C_mpointer(C_word **ptr, void *mp) C_regparm; C_fctexport C_word C_fcall C_mpointer_or_false(C_word **ptr, void *mp) C_regparm; C_fctexport C_word C_fcall C_taggedmpointer(C_word **ptr, C_word tag, void *mp) C_regparm; C_fctexport C_word C_fcall C_taggedmpointer_or_false(C_word **ptr, C_word tag, void *mp) C_regparm; C_fctexport C_word C_vector(C_word **ptr, int n, ...); C_fctexport C_word C_structure(C_word **ptr, int n, ...); C_fctexport C_word C_fcall C_mutate_slot(C_word *slot, C_word val) C_regparm; C_fctexport C_word C_fcall C_scratch_alloc(C_uword size) C_regparm; C_fctexport C_word C_fcall C_migrate_buffer_object(C_word **ptr, C_word *start, C_word *end, C_word obj) C_regparm; C_fctexport void C_fcall C_reclaim(void *trampoline, C_word c) C_regparm C_noret; C_fctexport void C_save_and_reclaim(void *trampoline, int n, C_word *av) C_noret; C_fctexport void C_save_and_reclaim_args(void *trampoline, int n, ...) C_noret; C_fctexport void C_fcall C_rereclaim2(C_uword size, int relative_resize) C_regparm; C_fctexport void C_unbound_variable(C_word sym); C_fctexport C_word C_fcall C_retrieve2(C_word val, char *name) C_regparm; C_fctexport void *C_fcall C_retrieve2_symbol_proc(C_word val, char *name) C_regparm; C_fctexport int C_in_stackp(C_word x) C_regparm; C_fctexport int C_fcall C_in_heapp(C_word x) C_regparm; C_fctexport int C_fcall C_in_fromspacep(C_word x) C_regparm; C_fctexport int C_fcall C_in_scratchspacep(C_word x) C_regparm; C_fctexport void C_fcall C_trace(C_char *name) C_regparm; C_fctexport C_word C_fcall C_emit_trace_info2(char *raw, C_word x, C_word y, C_word t) C_regparm; C_fctexport C_word C_fcall C_u_i_string_hash(C_word str, C_word rnd) C_regparm; C_fctexport C_word C_fcall C_u_i_string_ci_hash(C_word str, C_word rnd) C_regparm; C_fctexport C_word C_halt(C_word msg); C_fctexport C_word C_message(C_word msg); C_fctexport C_word C_fcall C_equalp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_set_gc_report(C_word flag) C_regparm; C_fctexport C_word C_fcall C_start_timer(void) C_regparm; C_fctexport C_word C_exit_runtime(C_word code) C_noret; C_fctexport C_word C_fcall C_set_print_precision(C_word n) C_regparm; C_fctexport C_word C_fcall C_get_print_precision(void) C_regparm; C_fctexport C_word C_fcall C_read_char(C_word port) C_regparm; C_fctexport C_word C_fcall C_peek_char(C_word port) C_regparm; C_fctexport C_word C_fcall C_execute_shell_command(C_word string) C_regparm; C_fctexport int C_fcall C_check_fd_ready(int fd) C_regparm; C_fctexport C_word C_fcall C_char_ready_p(C_word port) C_regparm; C_fctexport void C_fcall C_raise_interrupt(int reason) C_regparm; C_fctexport C_word C_fcall C_establish_signal_handler(C_word signum, C_word reason) C_regparm; C_fctexport C_word C_fcall C_copy_block(C_word from, C_word to) C_regparm; C_fctexport C_word C_fcall C_evict_block(C_word from, C_word ptr) C_regparm; C_fctexport void C_fcall C_gc_protect(C_word **addr, int n) C_regparm; C_fctexport void C_fcall C_gc_unprotect(int n) C_regparm; C_fctexport C_SYMBOL_TABLE *C_new_symbol_table(char *name, unsigned int size) C_regparm; C_fctexport C_SYMBOL_TABLE *C_find_symbol_table(char *name) C_regparm; C_fctexport C_word C_find_symbol(C_word str, C_SYMBOL_TABLE *stable) C_regparm; C_fctexport C_word C_find_keyword(C_word str, C_SYMBOL_TABLE *stable) C_regparm; C_fctexport C_word C_fcall C_lookup_symbol(C_word sym) C_regparm; C_fctexport void C_do_register_finalizer(C_word x, C_word proc); C_fctexport int C_do_unregister_finalizer(C_word x); C_fctexport C_word C_dbg_hook(C_word x); C_fctexport void C_use_private_repository(C_char *path); C_fctexport C_char *C_private_repository_path(); C_fctexport C_char *C_executable_dirname(); C_fctexport C_char *C_executable_pathname(); C_fctexport C_char *C_resolve_executable_pathname(C_char *fname); C_fctimport C_cpsproc(C_toplevel) C_noret; C_fctimport C_cpsproc(C_invalid_procedure) C_noret; C_fctexport C_cpsproc(C_stop_timer) C_noret; C_fctexport C_cpsproc(C_signum) C_noret; C_fctexport C_cpsproc(C_apply) C_noret; C_fctexport C_cpsproc(C_call_cc) C_noret; C_fctexport C_cpsproc(C_continuation_graft) C_noret; C_fctexport C_cpsproc(C_values) C_noret; C_fctexport C_cpsproc(C_apply_values) C_noret; C_fctexport C_cpsproc(C_call_with_values) C_noret; C_fctexport C_cpsproc(C_u_call_with_values) C_noret; C_fctexport C_cpsproc(C_times) C_noret; C_fctexport C_cpsproc(C_plus) C_noret; C_fctexport C_cpsproc(C_minus) C_noret; C_fctexport C_cpsproc(C_quotient_and_remainder) C_noret; C_fctexport C_cpsproc(C_u_integer_quotient_and_remainder) C_noret; C_fctexport C_cpsproc(C_bitwise_and) C_noret; C_fctexport C_cpsproc(C_bitwise_ior) C_noret; C_fctexport C_cpsproc(C_bitwise_xor) C_noret; C_fctexport C_cpsproc(C_nequalp) C_noret; C_fctexport C_cpsproc(C_greaterp) C_noret; C_fctexport C_cpsproc(C_lessp) C_noret; C_fctexport C_cpsproc(C_greater_or_equal_p) C_noret; C_fctexport C_cpsproc(C_less_or_equal_p) C_noret; C_fctexport C_cpsproc(C_gc) C_noret; C_fctexport C_cpsproc(C_open_file_port) C_noret; C_fctexport C_cpsproc(C_allocate_vector) C_noret; C_fctexport C_cpsproc(C_string_to_symbol) C_noret; C_fctexport C_cpsproc(C_string_to_keyword) C_noret; C_fctexport C_cpsproc(C_build_symbol) C_noret; C_fctexport C_cpsproc(C_number_to_string) C_noret; C_fctexport C_cpsproc(C_fixnum_to_string) C_noret; C_fctexport C_cpsproc(C_flonum_to_string) C_noret; C_fctexport C_cpsproc(C_integer_to_string) C_noret; C_fctexport C_cpsproc(C_make_structure) C_noret; C_fctexport C_cpsproc(C_make_symbol) C_noret; C_fctexport C_cpsproc(C_make_pointer) C_noret; C_fctexport C_cpsproc(C_make_tagged_pointer) C_noret; C_fctexport C_cpsproc(C_ensure_heap_reserve) C_noret; C_fctexport C_cpsproc(C_return_to_host) C_noret; C_fctexport C_cpsproc(C_get_symbol_table_info) C_noret; C_fctexport C_cpsproc(C_get_memory_info) C_noret; C_fctexport C_cpsproc(C_context_switch) C_noret; C_fctexport C_cpsproc(C_peek_signed_integer) C_noret; C_fctexport C_cpsproc(C_peek_unsigned_integer) C_noret; C_fctexport C_cpsproc(C_peek_int64) C_noret; C_fctexport C_cpsproc(C_peek_uint64) C_noret; C_fctexport C_cpsproc(C_decode_seconds) C_noret; C_fctexport C_cpsproc(C_software_type) C_noret; C_fctexport C_cpsproc(C_machine_type) C_noret; C_fctexport C_cpsproc(C_machine_byte_order) C_noret; C_fctexport C_cpsproc(C_software_version) C_noret; C_fctexport C_cpsproc(C_build_platform) C_noret; C_fctexport C_cpsproc(C_register_finalizer) C_noret; C_fctexport C_cpsproc(C_set_dlopen_flags) C_noret; C_fctexport C_cpsproc(C_dload) C_noret; C_fctexport C_cpsproc(C_become) C_noret; C_fctexport C_cpsproc(C_call_with_cthulhu) C_noret; C_fctexport C_cpsproc(C_copy_closure) C_noret; C_fctexport C_cpsproc(C_dump_heap_state) C_noret; C_fctexport C_cpsproc(C_filter_heap_objects) C_noret; C_fctexport time_t C_fcall C_seconds(C_long *ms) C_regparm; C_fctexport C_word C_fcall C_bignum_simplify(C_word big) C_regparm; C_fctexport C_word C_fcall C_allocate_scratch_bignum(C_word **ptr, C_word size, C_word negp, C_word initp) C_regparm; C_fctexport C_word C_fcall C_bignum_rewrap(C_word **p, C_word big) C_regparm; C_fctexport C_word C_i_dump_statistical_profile(); C_fctexport C_word C_a_i_list(C_word **a, int c, ...); C_fctexport C_word C_a_i_string(C_word **a, int c, ...); C_fctexport C_word C_a_i_record(C_word **a, int c, ...); C_fctexport C_word C_a_i_port(C_word **a, int c); C_fctexport C_word C_fcall C_a_i_bytevector(C_word **a, int c, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_listp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_u8vectorp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_s8vectorp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_u16vectorp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_s16vectorp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_u32vectorp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_s32vectorp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_u64vectorp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_s64vectorp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_f32vectorp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_f64vectorp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_string_equal_p(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_string_ci_equal_p(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_set_car(C_word p, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_set_cdr(C_word p, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_vector_set(C_word v, C_word i, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_u8vector_set(C_word v, C_word i, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_s8vector_set(C_word v, C_word i, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_u16vector_set(C_word v, C_word i, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_s16vector_set(C_word v, C_word i, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_u32vector_set(C_word v, C_word i, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_s32vector_set(C_word v, C_word i, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_u64vector_set(C_word v, C_word i, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_s64vector_set(C_word v, C_word i, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_f32vector_set(C_word v, C_word i, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_f64vector_set(C_word v, C_word i, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_exactp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_inexactp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_nanp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_finitep(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_infinitep(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_zerop(C_word x) C_regparm; C_fctexport C_word C_fcall C_u_i_zerop(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_positivep(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_integer_positivep(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_negativep(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_integer_negativep(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_car(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_cdr(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_caar(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_cadr(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_cdar(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_cddr(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_caddr(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_cdddr(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_cadddr(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_cddddr(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_list_tail(C_word lst, C_word i) C_regparm; C_fctexport C_word C_fcall C_i_evenp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_integer_evenp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_oddp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_integer_oddp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_vector_ref(C_word v, C_word i) C_regparm; C_fctexport C_word C_fcall C_i_u8vector_ref(C_word v, C_word i) C_regparm; C_fctexport C_word C_fcall C_i_s8vector_ref(C_word v, C_word i) C_regparm; C_fctexport C_word C_fcall C_i_u16vector_ref(C_word v, C_word i) C_regparm; C_fctexport C_word C_fcall C_i_s16vector_ref(C_word v, C_word i) C_regparm; C_fctexport C_word C_fcall C_a_i_u32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; C_fctexport C_word C_fcall C_a_i_s32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; C_fctexport C_word C_fcall C_a_i_u64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; C_fctexport C_word C_fcall C_a_i_s64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; C_fctexport C_word C_fcall C_a_i_f32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; C_fctexport C_word C_fcall C_a_i_f64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; C_fctexport C_word C_fcall C_i_block_ref(C_word x, C_word i) C_regparm; C_fctexport C_word C_fcall C_i_string_set(C_word s, C_word i, C_word c) C_regparm; C_fctexport C_word C_fcall C_i_string_ref(C_word s, C_word i) C_regparm; C_fctexport C_word C_fcall C_i_vector_length(C_word v) C_regparm; C_fctexport C_word C_fcall C_i_u8vector_length(C_word v) C_regparm; C_fctexport C_word C_fcall C_i_s8vector_length(C_word v) C_regparm; C_fctexport C_word C_fcall C_i_u16vector_length(C_word v) C_regparm; C_fctexport C_word C_fcall C_i_s16vector_length(C_word v) C_regparm; C_fctexport C_word C_fcall C_i_u32vector_length(C_word v) C_regparm; C_fctexport C_word C_fcall C_i_s32vector_length(C_word v) C_regparm; C_fctexport C_word C_fcall C_i_u64vector_length(C_word v) C_regparm; C_fctexport C_word C_fcall C_i_s64vector_length(C_word v) C_regparm; C_fctexport C_word C_fcall C_i_f32vector_length(C_word v) C_regparm; C_fctexport C_word C_fcall C_i_f64vector_length(C_word v) C_regparm; C_fctexport C_word C_fcall C_i_string_length(C_word s) C_regparm; C_fctexport C_word C_fcall C_i_assq(C_word x, C_word lst) C_regparm; C_fctexport C_word C_fcall C_i_assv(C_word x, C_word lst) C_regparm; C_fctexport C_word C_fcall C_i_assoc(C_word x, C_word lst) C_regparm; C_fctexport C_word C_fcall C_i_memq(C_word x, C_word lst) C_regparm; C_fctexport C_word C_fcall C_u_i_memq(C_word x, C_word lst) C_regparm; C_fctexport C_word C_fcall C_i_memv(C_word x, C_word lst) C_regparm; C_fctexport C_word C_fcall C_i_member(C_word x, C_word lst) C_regparm; C_fctexport C_word C_fcall C_i_length(C_word lst) C_regparm; C_fctexport C_word C_fcall C_u_i_length(C_word lst) C_regparm; C_fctexport C_word C_fcall C_i_check_closure_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_fixnum_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_exact_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_inexact_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_number_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_string_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_bytevector_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_symbol_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_keyword_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_list_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_pair_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_boolean_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_locative_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_vector_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_structure_2(C_word x, C_word st, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_char_2(C_word x, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_check_port_2(C_word x, C_word in, C_word op, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_bignum_cmp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_nequalp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_integer_equalp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_greaterp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_integer_greaterp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_lessp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_integer_lessp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_greater_or_equalp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_integer_greater_or_equalp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_less_or_equalp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_integer_less_or_equalp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_not_pair_p_2(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_null_list_p(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_string_null_p(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_null_pointerp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_char_equalp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_char_greaterp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_char_lessp(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_char_greater_or_equal_p(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_char_less_or_equal_p(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_a_i_locative_ref(C_word **a, int c, C_word loc) C_regparm; C_fctexport C_word C_fcall C_i_locative_set(C_word loc, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_locative_to_object(C_word loc) C_regparm; C_fctexport C_word C_fcall C_a_i_make_locative(C_word **a, int c, C_word type, C_word object, C_word index, C_word weak) C_regparm; C_fctexport C_word C_fcall C_i_bit_to_bool(C_word n, C_word i) C_regparm; /* DEPRECATED */ C_fctexport C_word C_fcall C_i_integer_length(C_word x) C_regparm; C_fctexport C_word C_fcall C_a_i_exp(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_a_i_log(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_a_i_sin(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_a_i_cos(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_a_i_tan(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_a_i_asin(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_a_i_acos(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_a_i_atan(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_a_i_atan2(C_word **a, int c, C_word n1, C_word n2) C_regparm; C_fctexport C_word C_fcall C_a_i_sqrt(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_i_o_fixnum_plus(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_o_fixnum_difference(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_o_fixnum_times(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_o_fixnum_quotient(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_o_fixnum_and(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_o_fixnum_ior(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_o_fixnum_xor(C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_a_i_flonum_round_proper(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_a_i_flonum_gcd(C_word **p, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_i_getprop(C_word sym, C_word prop, C_word def) C_regparm; C_fctexport C_word C_fcall C_putprop(C_word **a, C_word sym, C_word prop, C_word val) C_regparm; C_fctexport C_word C_fcall C_i_persist_symbol(C_word sym) C_regparm; C_fctexport C_word C_fcall C_i_unpersist_symbol(C_word sym) C_regparm; C_fctexport C_word C_fcall C_i_get_keyword(C_word key, C_word args, C_word def) C_regparm; C_fctexport C_word C_fcall C_i_process_sleep(C_word n) C_regparm; C_fctexport C_u64 C_fcall C_milliseconds(void) C_regparm; C_fctexport C_u64 C_fcall C_cpu_milliseconds(void) C_regparm; C_fctexport double C_fcall C_bignum_to_double(C_word bignum) C_regparm; C_fctexport C_word C_fcall C_i_debug_modep(void) C_regparm; C_fctexport C_word C_fcall C_i_dump_heap_on_exitp(void) C_regparm; C_fctexport C_word C_fcall C_i_accumulated_gc_time(void) C_regparm; C_fctexport C_word C_fcall C_i_allocated_finalizer_count(void) C_regparm; C_fctexport C_word C_fcall C_i_live_finalizer_count(void) C_regparm; C_fctexport C_word C_fcall C_i_profilingp(void) C_regparm; C_fctexport C_word C_fcall C_i_tty_forcedp(void) C_regparm; C_fctexport C_word C_fcall C_a_i_cpu_time(C_word **a, int c, C_word buf) C_regparm; C_fctexport C_word C_fcall C_a_i_exact_to_inexact(C_word **a, int c, C_word n) C_regparm; C_fctexport C_word C_fcall C_i_file_exists_p(C_word name, C_word file, C_word dir) C_regparm; C_fctexport C_word C_fcall C_s_a_i_abs(C_word **ptr, C_word n, C_word x) C_regparm; C_fctexport C_word C_fcall C_s_a_i_negate(C_word **ptr, C_word n, C_word x) C_regparm; C_fctexport C_word C_fcall C_s_a_i_minus(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_u_i_integer_negate(C_word **ptr, C_word n, C_word x) C_regparm; C_fctexport C_word C_fcall C_s_a_u_i_integer_minus(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_i_plus(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_u_i_integer_plus(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_i_times(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_u_i_integer_times(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_i_arithmetic_shift(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_u_i_integer_gcd(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_i_quotient(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_u_i_integer_quotient(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_i_remainder(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_u_i_integer_remainder(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_i_modulo(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_u_i_integer_modulo(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_i_bitwise_and(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_i_bitwise_ior(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_i_bitwise_xor(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; C_fctexport C_word C_fcall C_s_a_i_bitwise_not(C_word **ptr, C_word n, C_word x) C_regparm; C_fctexport C_word C_fcall C_s_a_i_digits_to_integer(C_word **ptr, C_word n, C_word str, C_word start, C_word end, C_word radix, C_word negp) C_regparm; C_fctexport C_word C_fcall C_s_a_u_i_flo_to_int(C_word **ptr, C_word n, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_char_argumentp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_fixnum_argumentp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_flonum_argumentp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_block_argumentp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_struct_wrapper_argumentp(C_word t, C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_string_argumentp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_symbol_argumentp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_tagged_pointer_argumentp(C_word x, C_word t) C_regparm; C_fctexport C_word C_fcall C_i_foreign_pointer_argumentp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_scheme_or_c_pointer_argumentp(C_word x) C_regparm; C_fctexport C_word C_fcall C_i_foreign_ranged_integer_argumentp(C_word x, C_word bits) C_regparm; C_fctexport C_word C_fcall C_i_foreign_unsigned_ranged_integer_argumentp(C_word x, C_word bits) C_regparm; C_fctexport C_char *C_lookup_procedure_id(void *ptr); C_fctexport void *C_lookup_procedure_ptr(C_char *id); C_fctexport C_word C_random_fixnum(C_word n) C_regparm; C_fctexport C_word C_fcall C_s_a_u_i_random_int(C_word **ptr, C_word n, C_word rn) C_regparm; C_fctexport C_word C_fcall C_a_i_random_real(C_word **ptr, C_word n) C_regparm; C_fctexport C_word C_random_bytes(C_word buf, C_word size); C_fctexport C_word C_set_random_seed(C_word buf, C_word n); #ifdef C_SIXTY_FOUR C_fctexport C_cpsproc(C_peek_signed_integer_32); C_fctexport C_cpsproc(C_peek_unsigned_integer_32); #else # define C_peek_signed_integer_32 C_peek_signed_integer # define C_peek_unsigned_integer_32 C_peek_unsigned_integer #endif C_fctexport C_word C_fcall C_decode_literal(C_word **ptr, C_char *str) C_regparm; C_fctexport C_word C_fcall C_i_pending_interrupt(C_word dummy) C_regparm; C_fctexport void *C_get_statistics(void); /* defined in eval.scm: */ C_fctexport void CHICKEN_get_error_message(char *buf,int bufsize); C_fctexport int CHICKEN_load(char * filename); C_fctexport int CHICKEN_read(char * str,C_word *result); C_fctexport int CHICKEN_apply_to_string(C_word func,C_word args,char *buf,int bufsize); C_fctexport int CHICKEN_apply(C_word func,C_word args,C_word *result); C_fctexport int CHICKEN_eval_string_to_string(char *str,char *buf,int bufsize); C_fctexport int CHICKEN_eval_to_string(C_word exp,char *buf,int bufsize); C_fctexport int CHICKEN_eval_string(char * str,C_word *result); C_fctexport int CHICKEN_eval(C_word exp,C_word *result); C_fctexport int CHICKEN_yield(); C_fctexport C_cpsproc(C_default_5fstub_toplevel); /* Inline functions: */ #ifndef HAVE_STATEMENT_EXPRESSIONS inline static C_word *C_a_i(C_word **a, int n) { C_word *p = *a; *a += n; return p; } #endif inline static C_word C_mutate(C_word *slot, C_word val) { if(!C_immediatep(val)) return C_mutate_slot(slot, val); else return *slot = val; } inline static C_word C_permanentp(C_word x) { return C_mk_bool(!C_immediatep(x) && !C_in_stackp(x) && !C_in_heapp(x) && !C_in_scratchspacep(x)); } inline static C_word C_u_i_namespaced_symbolp(C_word x) { C_word s = C_symbol_name(x); return C_mk_bool(C_memchr(C_data_pointer(s), '#', C_header_size(s))); } inline static C_word C_flonum(C_word **ptr, double n) { C_word *p = *ptr, *p0; #ifndef C_SIXTY_FOUR #ifndef C_DOUBLE_IS_32_BITS /* Align double on 8-byte boundary: */ if(C_aligned8(p)) ++p; #endif #endif p0 = p; *(p++) = C_FLONUM_TAG; *((double *)p) = n; *ptr = p + sizeof(double) / sizeof(C_word); return (C_word)p0; } inline static C_word C_string_to_pbytevector(C_word s) { return C_pbytevector(C_header_size(s), (C_char *)C_data_pointer(s)); } inline static C_word C_a_i_record1(C_word **ptr, int n, C_word x1) { C_word *p = *ptr, *p0 = p; *(p++) = C_STRUCTURE_TYPE | 1; *(p++) = x1; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_record2(C_word **ptr, int n, C_word x1, C_word x2) { C_word *p = *ptr, *p0 = p; *(p++) = C_STRUCTURE_TYPE | 2; *(p++) = x1; *(p++) = x2; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_record3(C_word **ptr, int n, C_word x1, C_word x2, C_word x3) { C_word *p = *ptr, *p0 = p; *(p++) = C_STRUCTURE_TYPE | 3; *(p++) = x1; *(p++) = x2; *(p++) = x3; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_record4(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4) { C_word *p = *ptr, *p0 = p; *(p++) = C_STRUCTURE_TYPE | 4; *(p++) = x1; *(p++) = x2; *(p++) = x3; *(p++) = x4; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_record5(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5) { C_word *p = *ptr, *p0 = p; *(p++) = C_STRUCTURE_TYPE | 5; *(p++) = x1; *(p++) = x2; *(p++) = x3; *(p++) = x4; *(p++) = x5; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_record6(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5, C_word x6) { C_word *p = *ptr, *p0 = p; *(p++) = C_STRUCTURE_TYPE | 6; *(p++) = x1; *(p++) = x2; *(p++) = x3; *(p++) = x4; *(p++) = x5; *(p++) = x6; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_record7(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5, C_word x6, C_word x7) { C_word *p = *ptr, *p0 = p; *(p++) = C_STRUCTURE_TYPE | 7; *(p++) = x1; *(p++) = x2; *(p++) = x3; *(p++) = x4; *(p++) = x5; *(p++) = x6; *(p++) = x7; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_record8(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5, C_word x6, C_word x7, C_word x8) { C_word *p = *ptr, *p0 = p; *(p++) = C_STRUCTURE_TYPE | 8; *(p++) = x1; *(p++) = x2; *(p++) = x3; *(p++) = x4; *(p++) = x5; *(p++) = x6; *(p++) = x7; *(p++) = x8; *ptr = p; return (C_word)p0; } inline static C_word C_cplxnum(C_word **ptr, C_word r, C_word i) { C_word *p = *ptr, *p0 = p; *(p++) = C_CPLXNUM_TAG; *(p++) = r; *(p++) = i; *ptr = p; return (C_word)p0; } inline static C_word C_ratnum(C_word **ptr, C_word n, C_word d) { C_word *p = *ptr, *p0 = p; *(p++) = C_RATNUM_TAG; *(p++) = n; *(p++) = d; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_bignum_wrapper(C_word **ptr, C_word vec) { C_word *p = *ptr, *p0 = p; *(p++) = C_BIGNUM_TAG; *(p++) = vec; *ptr = p; return (C_word)p0; } /* Silly (this is not normalized) but in some cases needed internally */ inline static C_word C_bignum0(C_word **ptr) { C_word *p = *ptr, p0 = (C_word)p; *(p++) = C_STRING_TYPE | C_wordstobytes(1); *(p++) = 0; /* zero is always positive */ *ptr = p; return C_a_i_bignum_wrapper(ptr, p0); } inline static C_word C_bignum1(C_word **ptr, int negp, C_uword d1) { C_word *p = *ptr, p0 = (C_word)p; *(p++) = C_STRING_TYPE | C_wordstobytes(2); *(p++) = negp; *(p++) = d1; *ptr = p; return C_a_i_bignum_wrapper(ptr, p0); } /* Here d1, d2, ... are low to high (ie, little endian)! */ inline static C_word C_bignum2(C_word **ptr, int negp, C_uword d1, C_uword d2) { C_word *p = *ptr, p0 = (C_word)p; *(p++) = C_STRING_TYPE | C_wordstobytes(3); *(p++) = negp; *(p++) = d1; *(p++) = d2; *ptr = p; return C_a_i_bignum_wrapper(ptr, p0); } inline static C_word C_i_bignump(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_BIGNUM_TAG); } inline static double C_c_double(C_word x) { if(x & C_FIXNUM_BIT) return (double)C_unfix(x); else return C_flonum_magnitude(x); } inline static C_word C_a_u_i_int_to_flo(C_word **ptr, int n, C_word x) { if(x & C_FIXNUM_BIT) return C_a_i_fix_to_flo(ptr, n, x); else return C_a_u_i_big_to_flo(ptr, n, x); } inline static C_word C_num_to_int(C_word x) { if(x & C_FIXNUM_BIT) { return C_unfix(x); } else { #if DEBUGBUILD /* removes a warning with clang */ C_CHECKp(x,C_bignump(C_VAL1(x)),0); #endif if (C_bignum_negativep(x)) return -(C_word)C_bignum_digits(x)[0]; else return (C_word)C_bignum_digits(x)[0]; /* should never be larger */ } } inline static C_s64 C_num_to_int64(C_word x) { if(x & C_FIXNUM_BIT) { return (C_s64)C_unfix(x); } else { C_s64 num = C_bignum_digits(x)[0]; #ifndef C_SIXTY_FOUR if (C_bignum_size(x) > 1) num |= (C_s64)(((C_u64)C_bignum_digits(x)[1]) << 32); #endif if (C_bignum_negativep(x)) return -num; else return num; } } inline static C_u64 C_num_to_uint64(C_word x) { if(x & C_FIXNUM_BIT) { return (C_u64)C_unfix(x); } else { C_s64 num = C_bignum_digits(x)[0]; #ifndef C_SIXTY_FOUR if (C_bignum_size(x) > 1) num |= ((C_u64)C_bignum_digits(x)[1]) << 32; #endif return num; } } inline static C_uword C_num_to_unsigned_int(C_word x) { if(x & C_FIXNUM_BIT) { return (C_uword)C_unfix(x); } else { return C_bignum_digits(x)[0]; /* should never be larger */ } } inline static C_word C_int_to_num(C_word **ptr, C_word n) { if(C_fitsinfixnump(n)) return C_fix(n); else return C_bignum1(ptr, n < 0, C_wabs(n)); } inline static C_word C_unsigned_int_to_num(C_word **ptr, C_uword n) { if(C_ufitsinfixnump(n)) return C_fix(n); else return C_bignum1(ptr, 0, n); } inline static C_word C_int64_to_num(C_word **ptr, C_s64 n) { #ifdef C_SIXTY_FOUR if(C_fitsinfixnump(n)) { return C_fix(n); } else { C_u64 un = n < 0 ? -n : n; return C_bignum1(ptr, n < 0, un); } #else C_u64 un = n < 0 ? -n : n; C_word res = C_bignum2(ptr, n < 0, (C_uword)un, (C_uword)(un >> 32)); return C_bignum_simplify(res); #endif } inline static C_word C_uint64_to_num(C_word **ptr, C_u64 n) { if(C_ufitsinfixnump(n)) { return C_fix(n); } else { #ifdef C_SIXTY_FOUR return C_bignum1(ptr, 0, n); #else C_word res = C_bignum2(ptr, 0, (C_uword)n, (C_uword)(n >> 32)); return C_bignum_simplify(res); #endif } } inline static C_word C_long_to_num(C_word **ptr, C_long n) { if(C_fitsinfixnump(n)) { return C_fix(n); } else { return C_bignum1(ptr, n < 0, C_wabs(n)); } } inline static C_word C_unsigned_long_to_num(C_word **ptr, C_ulong n) { if(C_ufitsinfixnump(n)) { return C_fix(n); } else { return C_bignum1(ptr, 0, n); } } inline static char *C_string_or_null(C_word x) { return C_truep(x) ? C_c_string(x) : NULL; } inline static void *C_data_pointer_or_null(C_word x) { return C_truep(x) ? C_data_pointer(x) : NULL; } inline static void *C_srfi_4_vector_or_null(C_word x) { return C_truep(x) ? C_srfi_4_vector(x) : NULL; } inline static void *C_c_pointer_vector_or_null(C_word x) { return C_truep(x) ? C_data_pointer(C_block_item(x, 2)) : NULL; } inline static void *C_c_pointer_or_null(C_word x) { return C_truep(x) ? (void *)C_block_item(x, 0) : NULL; } inline static void *C_scheme_or_c_pointer(C_word x) { return C_anypointerp(x) ? (void *)C_block_item(x, 0) : C_data_pointer(x); } inline static C_long C_num_to_long(C_word x) { if(x & C_FIXNUM_BIT) { return (C_long)C_unfix(x); } else { if (C_bignum_negativep(x)) return -(C_long)C_bignum_digits(x)[0]; else return (C_long)C_bignum_digits(x)[0]; } } inline static C_ulong C_num_to_unsigned_long(C_word x) { if(x & C_FIXNUM_BIT) { return (C_ulong)C_unfix(x); } else { return (C_ulong)C_bignum_digits(x)[0]; } } inline static C_word C_u_i_string_equal_p(C_word x, C_word y) { C_uword n = C_header_size(x); return C_mk_bool(n == C_header_size(y) && !C_memcmp((char *)C_data_pointer(x), (char *)C_data_pointer(y), n)); } /* Like memcmp but case insensitive (to strncasecmp as memcmp is to strncmp) */ inline static int C_memcasecmp(const char *x, const char *y, unsigned int len) { const unsigned char *ux = (const unsigned char *)x; const unsigned char *uy = (const unsigned char *)y; while (len--) { if (tolower(*ux++) != tolower(*uy++)) return (tolower(*--ux) - tolower(*--uy)); } return 0; } inline static C_word basic_eqvp(C_word x, C_word y) { return (x == y || (!C_immediatep(x) && !C_immediatep(y) && C_block_header(x) == C_block_header(y) && ((C_block_header(x) == C_FLONUM_TAG && C_flonum_magnitude(x) == C_flonum_magnitude(y)) || (C_block_header(x) == C_BIGNUM_TAG && C_block_header(y) == C_BIGNUM_TAG && C_i_bignum_cmp(x, y) == C_fix(0))))); } inline static C_word C_i_eqvp(C_word x, C_word y) { return C_mk_bool(basic_eqvp(x, y) || (!C_immediatep(x) && !C_immediatep(y) && C_block_header(x) == C_block_header(y) && (C_block_header(x) == C_RATNUM_TAG || C_block_header(x) == C_CPLXNUM_TAG) && basic_eqvp(C_block_item(x, 0), C_block_item(y, 0)) && basic_eqvp(C_block_item(x, 1), C_block_item(y, 1)))); } inline static C_word C_i_symbolp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_SYMBOL_TAG && C_symbol_plist(x) != C_SCHEME_FALSE); } inline static C_word C_i_keywordp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_SYMBOL_TAG && C_symbol_plist(x) == C_SCHEME_FALSE); } inline static int C_persistable_symbol(C_word x) { /* Symbol is bound, or has a non-empty plist (but is not a keyword) */ return ((C_truep(C_boundp(x)) || C_symbol_plist(x) != C_SCHEME_END_OF_LIST) && C_symbol_plist(x) != C_SCHEME_FALSE); } inline static C_word C_i_pairp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_PAIR_TAG); } inline static C_word C_i_stringp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_STRING_TYPE); } inline static C_word C_i_locativep(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_LOCATIVE_TAG); } inline static C_word C_i_vectorp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_VECTOR_TYPE); } inline static C_word C_i_srfi_4_vectorp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_STRUCTURE_TYPE && (C_truep(C_i_u8vectorp(x)) || C_truep(C_i_s8vectorp(x)) || C_truep(C_i_u16vectorp(x)) || C_truep(C_i_s16vectorp(x)) || C_truep(C_i_u32vectorp(x)) || C_truep(C_i_s32vectorp(x)) || C_truep(C_i_u64vectorp(x)) || C_truep(C_i_s64vectorp(x)) || C_truep(C_i_f32vectorp(x)) || C_truep(C_i_f64vectorp(x)))); } inline static C_word C_i_portp(C_word x) { return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_PORT_TYPE); } inline static C_word C_i_closurep(C_word x) { return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_CLOSURE_TYPE); } inline static C_word C_i_numberp(C_word x) { return C_mk_bool((x & C_FIXNUM_BIT) || (!C_immediatep(x) && (C_block_header(x) == C_FLONUM_TAG || C_block_header(x) == C_BIGNUM_TAG || C_block_header(x) == C_RATNUM_TAG || C_block_header(x) == C_CPLXNUM_TAG))); } /* All numbers are real, except for cplxnums */ inline static C_word C_i_realp(C_word x) { return C_mk_bool((x & C_FIXNUM_BIT) || (!C_immediatep(x) && (C_block_header(x) == C_FLONUM_TAG || C_block_header(x) == C_BIGNUM_TAG || C_block_header(x) == C_RATNUM_TAG))); } /* All finite real numbers are rational */ inline static C_word C_i_rationalp(C_word x) { if(x & C_FIXNUM_BIT) { return C_SCHEME_TRUE; } else if (C_immediatep(x)) { return C_SCHEME_FALSE; } else if(C_block_header(x) == C_FLONUM_TAG) { double n = C_flonum_magnitude(x); return C_mk_bool(!C_isinf(n) && !C_isnan(n)); } else { return C_mk_bool(C_block_header(x) == C_BIGNUM_TAG || C_block_header(x) == C_RATNUM_TAG); } } inline static C_word C_u_i_fpintegerp(C_word x) { double dummy, val; val = C_flonum_magnitude(x); if(C_isnan(val) || C_isinf(val)) return C_SCHEME_FALSE; return C_mk_bool(C_modf(val, &dummy) == 0.0); } inline static int C_ub_i_fpintegerp(double x) { double dummy; return C_modf(x, &dummy) == 0.0; } inline static C_word C_i_exact_integerp(C_word x) { return C_mk_bool((x) & C_FIXNUM_BIT || C_truep(C_i_bignump(x))); } inline static C_word C_u_i_exactp(C_word x) { if (C_truep(C_i_exact_integerp(x))) { return C_SCHEME_TRUE; } else if (C_block_header(x) == C_FLONUM_TAG) { return C_SCHEME_FALSE; } else if (C_block_header(x) == C_RATNUM_TAG) { return C_SCHEME_TRUE; } else if (C_block_header(x) == C_CPLXNUM_TAG) { x = C_u_i_cplxnum_real(x); /* r and i are always the same exactness, and we assume they * always store a number. */ return C_mk_bool(C_immediatep(x) || (C_block_header(x) != C_FLONUM_TAG)); } else { return C_SCHEME_FALSE; } } inline static C_word C_u_i_inexactp(C_word x) { if (C_immediatep(x)) { return C_SCHEME_FALSE; } else if (C_block_header(x) == C_FLONUM_TAG) { return C_SCHEME_TRUE; } else if (C_block_header(x) == C_CPLXNUM_TAG) { x = C_u_i_cplxnum_real(x); /* r and i are always the same exactness */ return C_mk_bool(!C_immediatep(x) && (C_block_header(x) == C_FLONUM_TAG)); } else { return C_SCHEME_FALSE; } } inline static C_word C_i_integerp(C_word x) { double dummy, val; if (x & C_FIXNUM_BIT || C_truep(C_i_bignump(x))) return C_SCHEME_TRUE; if (C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) return C_SCHEME_FALSE; val = C_flonum_magnitude(x); if(C_isnan(val) || C_isinf(val)) return C_SCHEME_FALSE; return C_mk_bool(C_modf(val, &dummy) == 0.0); } inline static C_word C_i_flonump(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG); } inline static C_word C_i_cplxnump(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_CPLXNUM_TAG); } inline static C_word C_i_ratnump(C_word x) { return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_RATNUM_TAG); } /* TODO: Is this correctly named? Shouldn't it accept an argcount? */ inline static C_word C_a_u_i_fix_to_big(C_word **ptr, C_word x) { x = C_unfix(x); if (x < 0) return C_bignum1(ptr, 1, -x); else if (x == 0) return C_bignum0(ptr); else return C_bignum1(ptr, 0, x); } inline static C_word C_i_fixnum_min(C_word x, C_word y) { return ((C_word)x < (C_word)y) ? x : y; } inline static C_word C_i_fixnum_max(C_word x, C_word y) { return ((C_word)x > (C_word)y) ? x : y; } inline static C_word C_i_fixnum_gcd(C_word x, C_word y) { x = (x & C_INT_SIGN_BIT) ? -C_unfix(x) : C_unfix(x); y = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y); while(y != 0) { C_word r = x % y; x = y; y = r; } return C_fix(x); } inline static C_word C_fixnum_divide(C_word x, C_word y) { if(y == C_fix(0)) C_div_by_zero_error(C_text("fx/")); return C_u_fixnum_divide(x, y); } inline static C_word C_u_fixnum_modulo(C_word x, C_word y) { y = C_unfix(y); x = C_unfix(x) % y; if ((y < 0 && x > 0) || (y > 0 && x < 0)) x += y; return C_fix(x); } inline static C_word C_fixnum_modulo(C_word x, C_word y) { if(y == C_fix(0)) { C_div_by_zero_error(C_text("fxmod")); } else { return C_u_fixnum_modulo(x,y); } } /* XXX: Naming convention is inconsistent! There's C_fixnum_divide() * but also C_a_i_flonum_quotient_checked() */ inline static C_word C_a_i_fixnum_quotient_checked(C_word **ptr, int c, C_word x, C_word y) { if (y == C_fix(0)) { C_div_by_zero_error(C_text("fx/")); } else if (x == C_fix(C_MOST_NEGATIVE_FIXNUM) && y == C_fix(-1)) { return C_bignum1(ptr, 0, -C_MOST_NEGATIVE_FIXNUM); /* Special case */ } else { return C_u_fixnum_divide(x, y); /* Inconsistent, too: missing _i_ */ } } inline static C_word C_i_fixnum_remainder_checked(C_word x, C_word y) { if (y == C_fix(0)) { C_div_by_zero_error(C_text("fxrem")); } else { x = C_unfix(x); y = C_unfix(y); return C_fix(x - ((x / y) * y)); } } inline static C_word C_i_fixnum_arithmetic_shift(C_word n, C_word c) { if(C_unfix(c) < 0) return C_fixnum_shift_right(n, C_u_fixnum_negate(c)); else return C_fixnum_shift_left(n, c); } inline static C_word C_a_i_fixnum_negate(C_word **ptr, C_word n, C_word x) { /* Exceptional situation: this will cause an overflow to itself */ if (x == C_fix(C_MOST_NEGATIVE_FIXNUM)) /* C_fitsinfixnump(x) */ return C_bignum1(ptr, 0, -C_MOST_NEGATIVE_FIXNUM); else return C_fix(-C_unfix(x)); } inline static C_word C_s_a_u_i_integer_abs(C_word **ptr, C_word n, C_word x) { if (x & C_FIXNUM_BIT) { return C_a_i_fixnum_abs(ptr, 1, x); } else if (C_bignum_negativep(x)) { return C_s_a_u_i_integer_negate(ptr, n, x); } else { return x; } } /* DEPRECATED */ inline static C_word C_i_fixnum_bit_to_bool(C_word n, C_word i) { if (i & C_INT_SIGN_BIT) { C_not_an_uinteger_error(C_text("bit->boolean"), i); } else { i = C_unfix(i); if (i >= C_WORD_SIZE) return C_mk_bool(n & C_INT_SIGN_BIT); else return C_mk_bool((C_unfix(n) & (C_word)((C_uword)1 << i)) != 0); } } inline static C_word C_a_i_fixnum_difference(C_word **ptr, C_word n, C_word x, C_word y) { C_word z = C_unfix(x) - C_unfix(y); if(!C_fitsinfixnump(z)) { return C_bignum1(ptr, z < 0, C_wabs(z)); } else { return C_fix(z); } } inline static C_word C_a_i_fixnum_plus(C_word **ptr, C_word n, C_word x, C_word y) { C_word z = C_unfix(x) + C_unfix(y); if(!C_fitsinfixnump(z)) { return C_bignum1(ptr, z < 0, C_wabs(z)); } else { return C_fix(z); } } inline static C_word C_a_i_fixnum_times(C_word **ptr, C_word n, C_word x, C_word y) { C_uword negp, xhi, xlo, yhi, ylo, p, rhi, rlo; negp = ((x & C_INT_SIGN_BIT) ? !(y & C_INT_SIGN_BIT) : (y & C_INT_SIGN_BIT)); x = (x & C_INT_SIGN_BIT) ? -C_unfix(x) : C_unfix(x); y = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y); xhi = C_BIGNUM_DIGIT_HI_HALF(x); xlo = C_BIGNUM_DIGIT_LO_HALF(x); yhi = C_BIGNUM_DIGIT_HI_HALF(y); ylo = C_BIGNUM_DIGIT_LO_HALF(y); /* This is simply bignum_digits_multiply unrolled for 2x2 halfdigits */ p = xlo * ylo; rlo = C_BIGNUM_DIGIT_LO_HALF(p); p = xhi * ylo + C_BIGNUM_DIGIT_HI_HALF(p); rhi = C_BIGNUM_DIGIT_HI_HALF(p); p = xlo * yhi + C_BIGNUM_DIGIT_LO_HALF(p); rlo = C_BIGNUM_DIGIT_COMBINE(C_BIGNUM_DIGIT_LO_HALF(p), rlo); rhi = xhi * yhi + C_BIGNUM_DIGIT_HI_HALF(p) + rhi; if (rhi) { return C_bignum2(ptr, negp != 0, rlo, rhi); } else if (negp ? ((rlo & C_INT_SIGN_BIT) || !C_fitsinfixnump(-(C_word)rlo)) : !C_ufitsinfixnump(rlo)) { return C_bignum1(ptr, negp != 0, rlo); } else { return C_fix(negp ? -rlo : rlo); } } inline static C_word C_i_flonum_min(C_word x, C_word y) { double xf = C_flonum_magnitude(x), yf = C_flonum_magnitude(y); return xf < yf ? x : y; } inline static C_word C_i_flonum_max(C_word x, C_word y) { double xf = C_flonum_magnitude(x), yf = C_flonum_magnitude(y); return xf > yf ? x : y; } inline static C_word C_u_i_integer_signum(C_word x) { if (x & C_FIXNUM_BIT) return C_i_fixnum_signum(x); else return (C_bignum_negativep(x) ? C_fix(-1) : C_fix(1)); } inline static C_word C_a_i_flonum_quotient_checked(C_word **ptr, int c, C_word n1, C_word n2) { double n3 = C_flonum_magnitude(n2); if(n3 == 0.0) C_div_by_zero_error(C_text("fp/?")); return C_flonum(ptr, C_flonum_magnitude(n1) / n3); } inline static double C_ub_i_flonum_quotient_checked(double n1, double n2) { if(n2 == 0.0) C_div_by_zero_error(C_text("fp/?")); return n1 / n2; } /* More weirdness: the other flonum_quotient macros and inline functions * do not compute the quotient but the "plain" division! */ inline static C_word C_a_i_flonum_actual_quotient_checked(C_word **ptr, int c, C_word x, C_word y) { double dy = C_flonum_magnitude(y), r; if(dy == 0.0) { C_div_by_zero_error(C_text("quotient")); } else if (!C_truep(C_u_i_fpintegerp(x))) { C_not_an_integer_error(C_text("quotient"), x); } else if (!C_truep(C_u_i_fpintegerp(y))) { C_not_an_integer_error(C_text("quotient"), y); } else { modf(C_flonum_magnitude(x) / dy, &r); return C_flonum(ptr, r); } } inline static C_word C_a_i_flonum_remainder_checked(C_word **ptr, int c, C_word x, C_word y) { double dx = C_flonum_magnitude(x), dy = C_flonum_magnitude(y), r; if(dy == 0.0) { C_div_by_zero_error(C_text("remainder")); } else if (!C_truep(C_u_i_fpintegerp(x))) { C_not_an_integer_error(C_text("remainder"), x); } else if (!C_truep(C_u_i_fpintegerp(y))) { C_not_an_integer_error(C_text("remainder"), y); } else { modf(dx / dy, &r); return C_flonum(ptr, dx - r * dy); } } inline static C_word C_a_i_flonum_modulo_checked(C_word **ptr, int c, C_word x, C_word y) { double dx = C_flonum_magnitude(x), dy = C_flonum_magnitude(y), r; if(dy == 0.0) { C_div_by_zero_error(C_text("modulo")); } else if (!C_truep(C_u_i_fpintegerp(x))) { C_not_an_integer_error(C_text("modulo"), x); } else if (!C_truep(C_u_i_fpintegerp(y))) { C_not_an_integer_error(C_text("modulo"), y); } else { modf(dx / dy, &r); r = dx - r * dy; if ((dy < 0 && r > 0) || (dy > 0 && r < 0)) r += y; return C_flonum(ptr, r); } } inline static C_word C_i_safe_pointerp(C_word x) { if(C_immediatep(x)) return C_SCHEME_FALSE; switch(C_block_header(x)) { case C_POINTER_TAG: case C_TAGGED_POINTER_TAG: return C_SCHEME_TRUE; } return C_SCHEME_FALSE; } inline static C_word C_u_i_assq(C_word x, C_word lst) { C_word a; while(!C_immediatep(lst)) { a = C_u_i_car(lst); if(C_u_i_car(a) == x) return a; else lst = C_u_i_cdr(lst); } return C_SCHEME_FALSE; } inline static C_word C_fast_retrieve(C_word sym) { C_word val = C_block_item(sym, 0); if(val == C_SCHEME_UNBOUND) C_unbound_variable(sym); return val; } inline static void * C_fast_retrieve_proc(C_word closure) { if(C_immediatep(closure) || C_header_bits(closure) != C_CLOSURE_TYPE) return (void *)C_invalid_procedure; else return (void *)C_block_item(closure, 0); } inline static void * C_fast_retrieve_symbol_proc(C_word sym) { return C_fast_retrieve_proc(C_fast_retrieve(sym)); } inline static C_word C_a_i_vector1(C_word **ptr, int n, C_word x1) { C_word *p = *ptr, *p0 = p; *(p++) = C_VECTOR_TYPE | 1; *(p++) = x1; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_vector2(C_word **ptr, int n, C_word x1, C_word x2) { C_word *p = *ptr, *p0 = p; *(p++) = C_VECTOR_TYPE | 2; *(p++) = x1; *(p++) = x2; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_vector3(C_word **ptr, int n, C_word x1, C_word x2, C_word x3) { C_word *p = *ptr, *p0 = p; *(p++) = C_VECTOR_TYPE | 3; *(p++) = x1; *(p++) = x2; *(p++) = x3; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_vector4(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4) { C_word *p = *ptr, *p0 = p; *(p++) = C_VECTOR_TYPE | 4; *(p++) = x1; *(p++) = x2; *(p++) = x3; *(p++) = x4; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_vector5(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5) { C_word *p = *ptr, *p0 = p; *(p++) = C_VECTOR_TYPE | 5; *(p++) = x1; *(p++) = x2; *(p++) = x3; *(p++) = x4; *(p++) = x5; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_vector6(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5, C_word x6) { C_word *p = *ptr, *p0 = p; *(p++) = C_VECTOR_TYPE | 6; *(p++) = x1; *(p++) = x2; *(p++) = x3; *(p++) = x4; *(p++) = x5; *(p++) = x6; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_vector7(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5, C_word x6, C_word x7) { C_word *p = *ptr, *p0 = p; *(p++) = C_VECTOR_TYPE | 7; *(p++) = x1; *(p++) = x2; *(p++) = x3; *(p++) = x4; *(p++) = x5; *(p++) = x6; *(p++) = x7; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_vector8(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5, C_word x6, C_word x7, C_word x8) { C_word *p = *ptr, *p0 = p; *(p++) = C_VECTOR_TYPE | 8; *(p++) = x1; *(p++) = x2; *(p++) = x3; *(p++) = x4; *(p++) = x5; *(p++) = x6; *(p++) = x7; *(p++) = x8; *ptr = p; return (C_word)p0; } inline static C_word C_fcall C_a_pair(C_word **ptr, C_word car, C_word cdr) { C_word *p = *ptr, *p0 = p; *(p++) = C_PAIR_TYPE | (C_SIZEOF_PAIR - 1); *(p++) = car; *(p++) = cdr; *ptr = p; return (C_word)p0; } inline static C_word C_fcall C_a_weak_pair(C_word **ptr, C_word head, C_word tail) { C_word *p = *ptr, *p0 = p; *(p++) = C_WEAK_PAIR_TAG; /* Changes to strong if sym is persisted */ *(p++) = head; *(p++) = tail; *ptr = p; return (C_word)p0; } inline static C_word C_a_i_list1(C_word **a, int n, C_word x1) { return C_a_pair(a, x1, C_SCHEME_END_OF_LIST); } inline static C_word C_a_i_list2(C_word **a, int n, C_word x1, C_word x2) { C_word x = C_a_pair(a, x2, C_SCHEME_END_OF_LIST); return C_a_pair(a, x1, x); } inline static C_word C_a_i_list3(C_word **a, int n, C_word x1, C_word x2, C_word x3) { C_word x = C_pair(a, x3, C_SCHEME_END_OF_LIST); x = C_a_pair(a, x2, x); return C_a_pair(a, x1, x); } inline static C_word C_a_i_list4(C_word **a, int n, C_word x1, C_word x2, C_word x3, C_word x4) { C_word x = C_pair(a, x4, C_SCHEME_END_OF_LIST); x = C_a_pair(a, x3, x); x = C_a_pair(a, x2, x); return C_a_pair(a, x1, x); } inline static C_word C_a_i_list5(C_word **a, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5) { C_word x = C_pair(a, x5, C_SCHEME_END_OF_LIST); x = C_a_pair(a, x4, x); x = C_a_pair(a, x3, x); x = C_a_pair(a, x2, x); return C_a_pair(a, x1, x); } inline static C_word C_a_i_list6(C_word **a, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5, C_word x6) { C_word x = C_pair(a, x6, C_SCHEME_END_OF_LIST); x = C_a_pair(a, x5, x); x = C_a_pair(a, x4, x); x = C_a_pair(a, x3, x); x = C_a_pair(a, x2, x); return C_a_pair(a, x1, x); } inline static C_word C_a_i_list7(C_word **a, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5, C_word x6, C_word x7) { C_word x = C_pair(a, x7, C_SCHEME_END_OF_LIST); x = C_a_pair(a, x6, x); x = C_a_pair(a, x5, x); x = C_a_pair(a, x4, x); x = C_a_pair(a, x3, x); x = C_a_pair(a, x2, x); return C_a_pair(a, x1, x); } inline static C_word C_a_i_list8(C_word **a, int n, C_word x1, C_word x2, C_word x3, C_word x4, C_word x5, C_word x6, C_word x7, C_word x8) { C_word x = C_pair(a, x8, C_SCHEME_END_OF_LIST); x = C_a_pair(a, x7, x); x = C_a_pair(a, x6, x); x = C_a_pair(a, x5, x); x = C_a_pair(a, x4, x); x = C_a_pair(a, x3, x); x = C_a_pair(a, x2, x); return C_a_pair(a, x1, x); } /* * From Hacker's Delight by Henry S. Warren * based on a modified nlz() from section 5-3 (fig. 5-7) */ inline static int C_ilen(C_uword x) { C_uword y; C_word n = 0; #ifdef C_SIXTY_FOUR y = x >> 32; if (y != 0) { n += 32; x = y; } #endif y = x >> 16; if (y != 0) { n += 16; x = y; } y = x >> 8; if (y != 0) { n += 8; x = y; } y = x >> 4; if (y != 0) { n += 4; x = y; } y = x >> 2; if (y != 0) { n += 2; x = y; } y = x >> 1; if (y != 0) return n + 2; return n + x; } /* These strl* functions are based on public domain code by C.B. Falconer */ #ifdef HAVE_STRLCPY # define C_strlcpy strlcpy #else inline static size_t C_strlcpy(char *dst, const char *src, size_t sz) { const char *start = src; if (sz--) { while ((*dst++ = *src)) if (sz--) src++; else { *(--dst) = '\0'; break; } } while (*src++) continue; return src - start - 1; } #endif #ifdef HAVE_STRLCAT # define C_strlcat strlcat #else inline static size_t C_strlcat(char *dst, const char *src, size_t sz) { char *start = dst; while (*dst++) /* assumes sz >= strlen(dst) */ if (sz) sz--; /* i.e. well formed string */ dst--; return dst - start + C_strlcpy(dst, src, sz); } #endif /* * MinGW's stat() is less than ideal in a couple of ways, so we provide a * wrapper that: * * 1. Strips all trailing slashes and retries on failure, since stat() will * yield ENOENT when given two (on MSYS) or more (on MinGW and MSYS2). * 2. Fails with ENOTDIR when given a path to a non-directory file that ends * in a slash, since in this case MinGW's stat() will succeed but return a * non-directory mode in buf.st_mode. */ #if defined(__MINGW32__) inline static int C_stat(const char *path, struct stat *buf) { size_t len = C_strlen(path); char slash = len && C_strchr("\\/", path[len - 1]), *str; if(stat(path, buf) == 0) goto dircheck; if(slash && errno == ENOENT) { C_strlcpy((str = C_alloca(len + 1)), path, len + 1); while(len > 1 && C_strchr("\\/", path[--len])) str[len] = '\0'; if(stat(str, buf) == 0) goto dircheck; } return -1; dircheck: if(slash && !S_ISDIR(buf->st_mode)) { errno = ENOTDIR; return -1; } return 0; } /* * Haiku's stat() has a similar issue, where it will gladly succeed * when given a path to a filename with a trailing slash. */ #elif defined(__HAIKU__) inline static int C_stat(const char *path, struct stat *buf) { size_t len = C_strlen(path); char slash = len && path[len - 1] == '/'; if(stat(path, buf) != 0) { return -1; } if (slash && !S_ISDIR(buf->st_mode)) { errno = ENOTDIR; return -1; } return 0; } #else # define C_stat stat #endif /* Safe realpath usage depends on a reliable PATH_MAX. */ #ifdef PATH_MAX # define C_realpath realpath #else inline static char *C_realpath(const char *path, char *resolved) { # if _POSIX_C_SOURCE >= 200809L char *p; size_t n; if((p = realpath(path, NULL)) == NULL) return NULL; n = C_strlcpy(resolved, p, C_MAX_PATH); C_free(p); if(n < C_MAX_PATH) return resolved; # endif return NULL; } #endif C_END_C_DECLS #endif /* ___CHICKEN */ chicken-5.1.0/eval-modules.c0000644000175000017500000047211113502230000015457 0ustar sjamaansjamaan/* Generated from eval-modules.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: eval-modules.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file eval-modules.c unit: eval-modules uses: eval */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[103]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,6),40,97,52,53,55,41,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,6),40,97,52,55,53,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,6),40,97,52,57,51,41,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,6),40,97,52,57,57,41,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,6),40,97,53,49,55,41,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,6),40,97,53,51,53,41,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,6),40,97,53,53,51,41,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,6),40,97,53,55,49,41,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,6),40,97,53,56,57,41,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,6),40,97,53,57,53,41,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,6),40,97,54,49,51,41,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,6),40,97,54,51,49,41,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,6),40,97,54,52,57,41,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,6),40,97,54,54,55,41,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,6),40,97,54,56,53,41,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,6),40,97,54,57,56,41,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,6),40,97,55,49,54,41,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,6),40,97,55,51,52,41,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,6),40,97,55,53,50,41,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,6),40,97,55,55,48,41,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,6),40,97,55,56,56,41,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,6),40,97,56,48,54,41,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,6),40,97,56,50,52,41,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,6),40,97,56,52,50,41,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,6),40,97,56,54,48,41,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,6),40,97,56,55,56,41,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,6),40,97,56,57,54,41,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,6),40,97,57,49,52,41,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,6),40,97,57,51,50,41,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,6),40,97,57,53,48,41,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,6),40,97,57,54,56,41,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,6),40,97,57,56,54,41,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,7),40,97,49,48,48,52,41,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,7),40,97,49,48,50,50,41,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,7),40,97,49,48,52,48,41,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,7),40,97,49,48,53,56,41,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,7),40,97,49,48,55,54,41,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,7),40,97,49,48,57,52,41,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,7),40,97,49,49,49,50,41,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,105,109,112,111,114,116,45,108,105,98,114,97,114,121,45,104,111,111,107,32,109,110,97,109,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_1005) static void C_ccall f_1005(C_word c,C_word *av) C_noret; C_noret_decl(f_1023) static void C_ccall f_1023(C_word c,C_word *av) C_noret; C_noret_decl(f_1041) static void C_ccall f_1041(C_word c,C_word *av) C_noret; C_noret_decl(f_1059) static void C_ccall f_1059(C_word c,C_word *av) C_noret; C_noret_decl(f_1077) static void C_ccall f_1077(C_word c,C_word *av) C_noret; C_noret_decl(f_1095) static void C_ccall f_1095(C_word c,C_word *av) C_noret; C_noret_decl(f_1113) static void C_ccall f_1113(C_word c,C_word *av) C_noret; C_noret_decl(f_1131) static void C_ccall f_1131(C_word c,C_word *av) C_noret; C_noret_decl(f_456) static void C_ccall f_456(C_word c,C_word *av) C_noret; C_noret_decl(f_458) static void C_ccall f_458(C_word c,C_word *av) C_noret; C_noret_decl(f_476) static void C_ccall f_476(C_word c,C_word *av) C_noret; C_noret_decl(f_494) static void C_ccall f_494(C_word c,C_word *av) C_noret; C_noret_decl(f_500) static void C_ccall f_500(C_word c,C_word *av) C_noret; C_noret_decl(f_518) static void C_ccall f_518(C_word c,C_word *av) C_noret; C_noret_decl(f_536) static void C_ccall f_536(C_word c,C_word *av) C_noret; C_noret_decl(f_554) static void C_ccall f_554(C_word c,C_word *av) C_noret; C_noret_decl(f_572) static void C_ccall f_572(C_word c,C_word *av) C_noret; C_noret_decl(f_590) static void C_ccall f_590(C_word c,C_word *av) C_noret; C_noret_decl(f_596) static void C_ccall f_596(C_word c,C_word *av) C_noret; C_noret_decl(f_614) static void C_ccall f_614(C_word c,C_word *av) C_noret; C_noret_decl(f_632) static void C_ccall f_632(C_word c,C_word *av) C_noret; C_noret_decl(f_650) static void C_ccall f_650(C_word c,C_word *av) C_noret; C_noret_decl(f_668) static void C_ccall f_668(C_word c,C_word *av) C_noret; C_noret_decl(f_686) static void C_ccall f_686(C_word c,C_word *av) C_noret; C_noret_decl(f_697) static void C_ccall f_697(C_word c,C_word *av) C_noret; C_noret_decl(f_699) static void C_ccall f_699(C_word c,C_word *av) C_noret; C_noret_decl(f_717) static void C_ccall f_717(C_word c,C_word *av) C_noret; C_noret_decl(f_735) static void C_ccall f_735(C_word c,C_word *av) C_noret; C_noret_decl(f_753) static void C_ccall f_753(C_word c,C_word *av) C_noret; C_noret_decl(f_771) static void C_ccall f_771(C_word c,C_word *av) C_noret; C_noret_decl(f_789) static void C_ccall f_789(C_word c,C_word *av) C_noret; C_noret_decl(f_807) static void C_ccall f_807(C_word c,C_word *av) C_noret; C_noret_decl(f_825) static void C_ccall f_825(C_word c,C_word *av) C_noret; C_noret_decl(f_843) static void C_ccall f_843(C_word c,C_word *av) C_noret; C_noret_decl(f_861) static void C_ccall f_861(C_word c,C_word *av) C_noret; C_noret_decl(f_879) static void C_ccall f_879(C_word c,C_word *av) C_noret; C_noret_decl(f_897) static void C_ccall f_897(C_word c,C_word *av) C_noret; C_noret_decl(f_915) static void C_ccall f_915(C_word c,C_word *av) C_noret; C_noret_decl(f_933) static void C_ccall f_933(C_word c,C_word *av) C_noret; C_noret_decl(f_951) static void C_ccall f_951(C_word c,C_word *av) C_noret; C_noret_decl(f_969) static void C_ccall f_969(C_word c,C_word *av) C_noret; C_noret_decl(f_987) static void C_ccall f_987(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_2dmodules_toplevel) C_externexport void C_ccall C_eval_2dmodules_toplevel(C_word c,C_word *av) C_noret; /* a1004 in k454 */ static void C_ccall f_1005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_1005,2,av);} /* chicken.time.posix.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[83]; av2[3]=lf[21]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[84]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a1022 in k454 */ static void C_ccall f_1023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_1023,2,av);} /* chicken.continuation.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[85]; av2[3]=lf[86]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[87]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a1040 in k454 */ static void C_ccall f_1041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_1041,2,av);} /* chicken.file.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[88]; av2[3]=lf[89]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[90]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a1058 in k454 */ static void C_ccall f_1059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_1059,2,av);} /* chicken.read-syntax.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[91]; av2[3]=lf[92]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[93]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a1076 in k454 */ static void C_ccall f_1077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_1077,2,av);} /* chicken.repl.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[94]; av2[3]=lf[95]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[96]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a1094 in k454 */ static void C_ccall f_1095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_1095,2,av);} /* chicken.tcp.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[97]; av2[3]=lf[98]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[99]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a1112 in k454 */ static void C_ccall f_1113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_1113,2,av);} /* srfi-4.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[100]; av2[3]=lf[100]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[101]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* ##sys#import-library-hook in k454 */ static void C_ccall f_1131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1131,3,av);} t3=C_i_getprop(t2,lf[5],C_SCHEME_FALSE); if(C_truep(t3)){ t4=t1; /* eval-modules.scm:100: il */ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} else{ /* eval-modules.scm:101: hook */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}} /* k454 */ static void C_ccall f_456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(441,c,3)))){ C_save_and_reclaim((void *)f_456,2,av);} a=C_alloc(441); t2=C_a_i_provide(&a,1,lf[0]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_458,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp); t4=C_a_i_putprop(&a,3,lf[2],lf[5],t3); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_476,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp); t6=C_a_i_putprop(&a,3,lf[6],lf[5],t5); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_494,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp); t8=C_a_i_putprop(&a,3,lf[9],lf[5],t7); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_500,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp); t10=C_a_i_putprop(&a,3,lf[11],lf[5],t9); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_518,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp); t12=C_a_i_putprop(&a,3,lf[13],lf[5],t11); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_536,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp); t14=C_a_i_putprop(&a,3,lf[15],lf[5],t13); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_554,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp); t16=C_a_i_putprop(&a,3,lf[18],lf[5],t15); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_572,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp); t18=C_a_i_putprop(&a,3,lf[20],lf[5],t17); t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_590,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp); t20=C_a_i_putprop(&a,3,lf[24],lf[5],t19); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_596,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp); t22=C_a_i_putprop(&a,3,lf[27],lf[5],t21); t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_614,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp); t24=C_a_i_putprop(&a,3,lf[30],lf[5],t23); t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_632,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp); t26=C_a_i_putprop(&a,3,lf[33],lf[5],t25); t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_650,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp); t28=C_a_i_putprop(&a,3,lf[36],lf[5],t27); t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_668,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp); t30=C_a_i_putprop(&a,3,lf[39],lf[5],t29); t31=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_686,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp); t32=C_a_i_putprop(&a,3,lf[43],lf[5],t31); t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_699,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp); t34=C_a_i_putprop(&a,3,lf[47],lf[5],t33); t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_717,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp); t36=C_a_i_putprop(&a,3,lf[50],lf[5],t35); t37=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_735,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp); t38=C_a_i_putprop(&a,3,lf[52],lf[5],t37); t39=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_753,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp); t40=C_a_i_putprop(&a,3,lf[54],lf[5],t39); t41=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_771,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp); t42=C_a_i_putprop(&a,3,lf[56],lf[5],t41); t43=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_789,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp); t44=C_a_i_putprop(&a,3,lf[58],lf[5],t43); t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_807,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp); t46=C_a_i_putprop(&a,3,lf[61],lf[5],t45); t47=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_825,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp); t48=C_a_i_putprop(&a,3,lf[63],lf[5],t47); t49=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_843,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp); t50=C_a_i_putprop(&a,3,lf[65],lf[5],t49); t51=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_861,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp); t52=C_a_i_putprop(&a,3,lf[67],lf[5],t51); t53=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_879,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp); t54=C_a_i_putprop(&a,3,lf[69],lf[5],t53); t55=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_897,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp); t56=C_a_i_putprop(&a,3,lf[71],lf[5],t55); t57=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_915,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp); t58=C_a_i_putprop(&a,3,lf[73],lf[5],t57); t59=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_933,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp); t60=C_a_i_putprop(&a,3,lf[75],lf[5],t59); t61=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_951,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp); t62=C_a_i_putprop(&a,3,lf[77],lf[5],t61); t63=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_969,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); t64=C_a_i_putprop(&a,3,lf[79],lf[5],t63); t65=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_987,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp); t66=C_a_i_putprop(&a,3,lf[81],lf[5],t65); t67=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1005,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp); t68=C_a_i_putprop(&a,3,lf[83],lf[5],t67); t69=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1023,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp); t70=C_a_i_putprop(&a,3,lf[85],lf[5],t69); t71=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1041,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp); t72=C_a_i_putprop(&a,3,lf[88],lf[5],t71); t73=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1059,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp); t74=C_a_i_putprop(&a,3,lf[91],lf[5],t73); t75=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1077,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp); t76=C_a_i_putprop(&a,3,lf[94],lf[5],t75); t77=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1095,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp); t78=C_a_i_putprop(&a,3,lf[97],lf[5],t77); t79=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1113,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp); t80=C_a_i_putprop(&a,3,lf[100],lf[5],t79); t81=*((C_word*)lf[102]+1); t82=C_mutate((C_word*)lf[102]+1 /* (set! ##sys#import-library-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1131,a[2]=t81,a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp)); t83=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t83; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t83+1)))(2,av2);}} /* a457 in k454 */ static void C_ccall f_458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_458,2,av);} /* chicken.bitwise.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[2]; av2[3]=lf[3]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[4]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a475 in k454 */ static void C_ccall f_476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_476,2,av);} /* chicken.blob.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[6]; av2[3]=lf[3]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[7]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a493 in k454 */ static void C_ccall f_494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_494,2,av);} /* chicken.foreign.import.scm:27: ##sys#register-primitive-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[8]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t1; av2[2]=lf[9]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=*((C_word*)lf[10]+1); tp(5,av2);}} /* a499 in k454 */ static void C_ccall f_500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_500,2,av);} /* chicken.fixnum.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[11]; av2[3]=lf[3]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[12]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a517 in k454 */ static void C_ccall f_518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_518,2,av);} /* chicken.keyword.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[13]; av2[3]=lf[3]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[14]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a535 in k454 */ static void C_ccall f_536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_536,2,av);} /* chicken.internal.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[15]; av2[3]=lf[16]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[17]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a553 in k454 */ static void C_ccall f_554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_554,2,av);} /* chicken.platform.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[18]; av2[3]=lf[3]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[19]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a571 in k454 */ static void C_ccall f_572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_572,2,av);} /* chicken.errno.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[20]; av2[3]=lf[21]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[22]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a589 in k454 */ static void C_ccall f_590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_590,2,av);} /* chicken.condition.import.scm:26: ##sys#register-core-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[23]+1); av2[1]=t1; av2[2]=lf[24]; av2[3]=lf[3]; av2[4]=lf[25]; av2[5]=*((C_word*)lf[26]+1); tp(6,av2);}} /* a595 in k454 */ static void C_ccall f_596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_596,2,av);} /* chicken.string.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[27]; av2[3]=lf[28]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[29]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a613 in k454 */ static void C_ccall f_614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_614,2,av);} /* chicken.irregex.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[30]; av2[3]=lf[31]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[32]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a631 in k454 */ static void C_ccall f_632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_632,2,av);} /* chicken.pathname.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[33]; av2[3]=lf[34]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[35]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a649 in k454 */ static void C_ccall f_650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_650,2,av);} /* chicken.io.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[36]; av2[3]=lf[37]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[38]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a667 in k454 */ static void C_ccall f_668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_668,2,av);} /* chicken.port.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[39]; av2[3]=lf[40]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[41]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a685 in k454 */ static void C_ccall f_686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_686,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_697,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken.time.import.scm:33: ##sys#symbol-has-toplevel-binding? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[46]+1); av2[1]=t2; av2[2]=lf[42]; tp(3,av2);}} /* k695 in a685 in k454 */ static void C_ccall f_697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_697,2,av);} if(C_truep(t1)){ t2=*((C_word*)lf[42]+1); t3=*((C_word*)lf[42]+1); /* chicken.time.import.scm:26: ##sys#register-core-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[23]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[43]; av2[3]=lf[3]; av2[4]=lf[44]; av2[5]=*((C_word*)lf[42]+1); tp(6,av2);}} else{ t2=*((C_word*)lf[45]+1); t3=*((C_word*)lf[45]+1); /* chicken.time.import.scm:26: ##sys#register-core-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[23]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[43]; av2[3]=lf[3]; av2[4]=lf[44]; av2[5]=*((C_word*)lf[45]+1); tp(6,av2);}}} /* a698 in k454 */ static void C_ccall f_699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_699,2,av);} /* chicken.memory.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[47]; av2[3]=lf[48]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[49]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a716 in k454 */ static void C_ccall f_717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_717,2,av);} /* chicken.file.posix.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[50]; av2[3]=lf[21]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[51]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a734 in k454 */ static void C_ccall f_735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_735,2,av);} /* chicken.flonum.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[52]; av2[3]=lf[3]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[53]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a752 in k454 */ static void C_ccall f_753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_753,2,av);} /* chicken.format.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[54]; av2[3]=lf[37]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[55]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a770 in k454 */ static void C_ccall f_771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_771,2,av);} /* chicken.gc.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[56]; av2[3]=lf[3]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[57]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a788 in k454 */ static void C_ccall f_789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_789,2,av);} /* chicken.eval.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[58]; av2[3]=lf[59]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[60]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a806 in k454 */ static void C_ccall f_807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_807,2,av);} /* chicken.load.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[61]; av2[3]=lf[59]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[62]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a824 in k454 */ static void C_ccall f_825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_825,2,av);} /* chicken.locative.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[63]; av2[3]=lf[48]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[64]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a842 in k454 */ static void C_ccall f_843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_843,2,av);} /* chicken.memory.representation.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[65]; av2[3]=lf[48]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[66]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a860 in k454 */ static void C_ccall f_861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_861,2,av);} /* chicken.plist.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[67]; av2[3]=lf[3]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[68]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a878 in k454 */ static void C_ccall f_879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_879,2,av);} /* chicken.pretty-print.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[69]; av2[3]=lf[37]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[70]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a896 in k454 */ static void C_ccall f_897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_897,2,av);} /* chicken.process.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[71]; av2[3]=lf[21]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[72]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a914 in k454 */ static void C_ccall f_915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_915,2,av);} /* chicken.process.signal.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[73]; av2[3]=lf[21]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[74]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a932 in k454 */ static void C_ccall f_933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_933,2,av);} /* chicken.process-context.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[75]; av2[3]=lf[3]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[76]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a950 in k454 */ static void C_ccall f_951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_951,2,av);} /* chicken.process-context.posix.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[77]; av2[3]=lf[21]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[78]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a968 in k454 */ static void C_ccall f_969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_969,2,av);} /* chicken.random.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[79]; av2[3]=lf[37]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[80]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* a986 in k454 */ static void C_ccall f_987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_987,2,av);} /* chicken.sort.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1]+1)); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[1]+1); av2[1]=t1; av2[2]=lf[81]; av2[3]=lf[28]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[82]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_eval_2dmodules_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("eval-modules")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_eval_2dmodules_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(15395))){ C_save(t1); C_rereclaim2(15395*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,103); lf[0]=C_h_intern(&lf[0],12, C_text("eval-modules")); lf[1]=C_h_intern(&lf[1],30, C_text("##sys#register-compiled-module")); lf[2]=C_h_intern(&lf[2],15, C_text("chicken.bitwise")); lf[3]=C_h_intern(&lf[3],7, C_text("library")); lf[4]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001arithmetic-shift\376\001\000\000 \001chicken.bitwise#arithmetic-shift\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\016\001integer-length\376\001\000\000\036\001chicken.bitwise#integer-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001bit->boo" "lean\376\001\000\000\034\001chicken.bitwise#bit->boolean\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001bitwise-not\376\001\000\000\033\001chicken.b" "itwise#bitwise-not\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001bitwise-xor\376\001\000\000\033\001chicken.bitwise#bitwise-xor\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\013\001bitwise-ior\376\001\000\000\033\001chicken.bitwise#bitwise-ior\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001bitwis" "e-and\376\001\000\000\033\001chicken.bitwise#bitwise-and\376\377\016")); lf[5]=C_h_intern(&lf[5],12, C_text("##sys#import")); lf[6]=C_h_intern(&lf[6],12, C_text("chicken.blob")); lf[7]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001blob->string\376\001\000\000\031\001chicken.blob#blob->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001strin" "g->blob\376\001\000\000\031\001chicken.blob#string->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001blob\077\376\001\000\000\022\001chicken.blob#bl" "ob\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001blob=\077\376\001\000\000\023\001chicken.blob#blob=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001blob-size\376\001\000\000\026" "\001chicken.blob#blob-size\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001make-blob\376\001\000\000\026\001chicken.blob#make-blob\376\377\016")); lf[8]=C_h_intern(&lf[8],31, C_text("##sys#register-primitive-module")); lf[9]=C_h_intern(&lf[9],15, C_text("chicken.foreign")); lf[10]=C_h_intern(&lf[10],35, C_text("##sys#chicken-ffi-macro-environment")); lf[11]=C_h_intern(&lf[11],14, C_text("chicken.fixnum")); lf[12]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx/\077\376\001\000\000\023\001chicken.fixnum#fx/\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx\052\077\376\001\000\000\023\001chicken.f" "ixnum#fx\052\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx-\077\376\001\000\000\023\001chicken.fixnum#fx-\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx+\077\376\001\000\000\023" "\001chicken.fixnum#fx+\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxrem\376\001\000\000\024\001chicken.fixnum#fxrem\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\005\001fxmod\376\001\000\000\024\001chicken.fixnum#fxmod\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxgcd\376\001\000\000\024\001chicken.fixnum#fxgc" "d\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fx/\376\001\000\000\022\001chicken.fixnum#fx/\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxlen\376\001\000\000\024\001chicken.f" "ixnum#fxlen\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fxeven\077\376\001\000\000\026\001chicken.fixnum#fxeven\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001fx" "odd\077\376\001\000\000\025\001chicken.fixnum#fxodd\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxshr\376\001\000\000\024\001chicken.fixnum#fxshr\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxshl\376\001\000\000\024\001chicken.fixnum#fxshl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxnot\376\001\000\000\024\001chicken." "fixnum#fxnot\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxxor\376\001\000\000\024\001chicken.fixnum#fxxor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxior" "\376\001\000\000\024\001chicken.fixnum#fxior\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxand\376\001\000\000\024\001chicken.fixnum#fxand\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\005\001fxneg\376\001\000\000\024\001chicken.fixnum#fxneg\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxmax\376\001\000\000\024\001chicken.fixnu" "m#fxmax\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fxmin\376\001\000\000\024\001chicken.fixnum#fxmin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx<=\376\001\000\000\023\001" "chicken.fixnum#fx<=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fx>=\376\001\000\000\023\001chicken.fixnum#fx>=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001" "fx<\376\001\000\000\022\001chicken.fixnum#fx<\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fx>\376\001\000\000\022\001chicken.fixnum#fx>\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\003\001fx=\376\001\000\000\022\001chicken.fixnum#fx=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fx\052\376\001\000\000\022\001chicken.fixnum#fx\052\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\003\001fx-\376\001\000\000\022\001chicken.fixnum#fx-\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fx+\376\001\000\000\022\001chicken.fixnum#f" "x+\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001fixnum-precision\376\001\000\000\037\001chicken.fixnum#fixnum-precision\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\013\001fixnum-bits\376\001\000\000\032\001chicken.fixnum#fixnum-bits\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001most-negative-" "fixnum\376\001\000\000#\001chicken.fixnum#most-negative-fixnum\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001most-positive-fix" "num\376\001\000\000#\001chicken.fixnum#most-positive-fixnum\376\377\016")); lf[13]=C_h_intern(&lf[13],15, C_text("chicken.keyword")); lf[14]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001keyword\077\376\001\000\000\030\001chicken.keyword#keyword\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001get-keywor" "d\376\001\000\000\033\001chicken.keyword#get-keyword\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001keyword->string\376\001\000\000\037\001chicken.k" "eyword#keyword->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001string->keyword\376\001\000\000\037\001chicken.keyword#strin" "g->keyword\376\377\016")); lf[15]=C_h_intern(&lf[15],16, C_text("chicken.internal")); lf[16]=C_h_intern(&lf[16],8, C_text("internal")); lf[17]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001string->c-identifier\376\001\000\000%\001chicken.internal#string->c-identifier\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001library-id\376\001\000\000\033\001chicken.internal#library-id\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001valid-" "library-specifier\077\376\001\000\000)\001chicken.internal#valid-library-specifier\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022" "\001module-requirement\376\001\000\000#\001chicken.internal#module-requirement\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001chec" "k-for-multiple-bindings\376\001\000\000,\001chicken.internal#check-for-multiple-bindings\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\014\001macro-subset\376\001\000\000\035\001chicken.internal#macro-subset\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001fixup-ma" "cro-environment\376\001\000\000(\001chicken.internal#fixup-macro-environment\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001mak" "e-hash-table\376\001\000\000 \001chicken.internal#make-hash-table\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001hash-table-ref" "\376\001\000\000\037\001chicken.internal#hash-table-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001hash-table-set!\376\001\000\000 \001chicke" "n.internal#hash-table-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001hash-table-update!\376\001\000\000#\001chicken.intern" "al#hash-table-update!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001hash-table-for-each\376\001\000\000$\001chicken.internal#h" "ash-table-for-each\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001hash-table-size\376\001\000\000 \001chicken.internal#hash-tab" "le-size\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001default-imports\376\001\000\000 \001chicken.internal#default-imports\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\026\001default-syntax-imports\376\001\000\000\047\001chicken.internal#default-syntax-imports\376" "\377\016")); lf[18]=C_h_intern(&lf[18],16, C_text("chicken.platform")); lf[19]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001build-platform\376\001\000\000\037\001chicken.platform#build-platform\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\017\001chicken-version\376\001\000\000 \001chicken.platform#chicken-version\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001chicken-" "home\376\001\000\000\035\001chicken.platform#chicken-home\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001feature\077\376\001\000\000\031\001chicken.pla" "tform#feature\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001features\376\001\000\000\031\001chicken.platform#features\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\022\001machine-byte-order\376\001\000\000#\001chicken.platform#machine-byte-order\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001" "machine-type\376\001\000\000\035\001chicken.platform#machine-type\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001repository-path\376\001" "\000\000 \001chicken.platform#repository-path\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001installation-repository\376\001\000\000(" "\001chicken.platform#installation-repository\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001register-feature!\376\001\000\000\042\001" "chicken.platform#register-feature!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001unregister-feature!\376\001\000\000$\001chick" "en.platform#unregister-feature!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001software-type\376\001\000\000\036\001chicken.platfo" "rm#software-type\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001software-version\376\001\000\000!\001chicken.platform#software-" "version\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001return-to-host\376\001\000\000\037\001chicken.platform#return-to-host\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\027\001system-config-directory\376\001\000\000(\001chicken.platform#system-config-directory\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001system-cache-directory\376\001\000\000\047\001chicken.platform#system-cache-directo" "ry\376\377\016")); lf[20]=C_h_intern(&lf[20],13, C_text("chicken.errno")); lf[21]=C_h_intern(&lf[21],5, C_text("posix")); lf[22]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/xdev\376\001\000\000\030\001chicken.errno#errno/xdev\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001errno/wo" "uldblock\376\001\000\000\036\001chicken.errno#errno/wouldblock\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/srch\376\001\000\000\030\001chic" "ken.errno#errno/srch\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/spipe\376\001\000\000\031\001chicken.errno#errno/spipe\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/rofs\376\001\000\000\030\001chicken.errno#errno/rofs\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/rang" "e\376\001\000\000\031\001chicken.errno#errno/range\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/pipe\376\001\000\000\030\001chicken.errno#er" "rno/pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/perm\376\001\000\000\030\001chicken.errno#errno/perm\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001" "errno/nxio\376\001\000\000\030\001chicken.errno#errno/nxio\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/notty\376\001\000\000\031\001chicken" ".errno#errno/notty\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001errno/notempty\376\001\000\000\034\001chicken.errno#errno/notemp" "ty\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001errno/notdir\376\001\000\000\032\001chicken.errno#errno/notdir\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001er" "rno/nosys\376\001\000\000\031\001chicken.errno#errno/nosys\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/nospc\376\001\000\000\031\001chicken" ".errno#errno/nospc\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/nomem\376\001\000\000\031\001chicken.errno#errno/nomem\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\013\001errno/nolck\376\001\000\000\031\001chicken.errno#errno/nolck\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001errno/noex" "ec\376\001\000\000\032\001chicken.errno#errno/noexec\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/noent\376\001\000\000\031\001chicken.errno" "#errno/noent\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/nodev\376\001\000\000\031\001chicken.errno#errno/nodev\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\013\001errno/nfile\376\001\000\000\031\001chicken.errno#errno/nfile\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001errno/nametoolon" "g\376\001\000\000\037\001chicken.errno#errno/nametoolong\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/mlink\376\001\000\000\031\001chicken.e" "rrno#errno/mlink\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/mfile\376\001\000\000\031\001chicken.errno#errno/mfile\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\013\001errno/isdir\376\001\000\000\031\001chicken.errno#errno/isdir\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001errno/io\376\001\000\000" "\026\001chicken.errno#errno/io\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/inval\376\001\000\000\031\001chicken.errno#errno/inv" "al\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/intr\376\001\000\000\030\001chicken.errno#errno/intr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/" "ilseq\376\001\000\000\031\001chicken.errno#errno/ilseq\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/fbig\376\001\000\000\030\001chicken.errn" "o#errno/fbig\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/fault\376\001\000\000\031\001chicken.errno#errno/fault\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\013\001errno/exist\376\001\000\000\031\001chicken.errno#errno/exist\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001errno/dom\376\001\000\000\027\001c" "hicken.errno#errno/dom\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001errno/deadlk\376\001\000\000\032\001chicken.errno#errno/dead" "lk\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/child\376\001\000\000\031\001chicken.errno#errno/child\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errn" "o/busy\376\001\000\000\030\001chicken.errno#errno/busy\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/badf\376\001\000\000\030\001chicken.errn" "o#errno/badf\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001errno/again\376\001\000\000\031\001chicken.errno#errno/again\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\013\001errno/acces\376\001\000\000\031\001chicken.errno#errno/acces\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001errno/2big\376\001\000\000\030\001" "chicken.errno#errno/2big\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001errno\376\001\000\000\023\001chicken.errno#errno\376\377\016")); lf[23]=C_h_intern(&lf[23],26, C_text("##sys#register-core-module")); lf[24]=C_h_intern(&lf[24],17, C_text("chicken.condition")); lf[25]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001abort\376\001\000\000\027\001chicken.condition#abort\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001signal\376\001\000\000\030\001ch" "icken.condition#signal\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001current-exception-handler\376\001\000\000+\001chicken.con" "dition#current-exception-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001print-error-message\376\001\000\000%\001chicken" ".condition#print-error-message\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001with-exception-handler\376\001\000\000(\001chicke" "n.condition#with-exception-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001make-property-condition\376\001\000\000)\001c" "hicken.condition#make-property-condition\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001make-composite-condition" "\376\001\000\000\052\001chicken.condition#make-composite-condition\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001condition\376\001\000\000\033\001c" "hicken.condition#condition\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001condition\077\376\001\000\000\034\001chicken.condition#cond" "ition\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001condition->list\376\001\000\000!\001chicken.condition#condition->list\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\023\001condition-predicate\376\001\000\000%\001chicken.condition#condition-predicate\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\033\001condition-property-accessor\376\001\000\000-\001chicken.condition#condition-property-" "accessor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001get-condition-property\376\001\000\000(\001chicken.condition#get-condit" "ion-property\376\377\016")); lf[26]=C_h_intern(&lf[26],41, C_text("##sys#chicken.condition-macro-environment")); lf[27]=C_h_intern(&lf[27],14, C_text("chicken.string")); lf[28]=C_h_intern(&lf[28],15, C_text("data-structures")); lf[29]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001conc\376\001\000\000\023\001chicken.string#conc\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001->string\376\001\000\000\027\001chick" "en.string#->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001string-chop\376\001\000\000\032\001chicken.string#string-chop\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\014\001string-chomp\376\001\000\000\033\001chicken.string#string-chomp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001string" "-compare3\376\001\000\000\036\001chicken.string#string-compare3\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001string-compare3-ci\376" "\001\000\000!\001chicken.string#string-compare3-ci\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001reverse-list->string\376\001\000\000#\001" "chicken.string#reverse-list->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001reverse-string-append\376\001\000\000$\001ch" "icken.string#reverse-string-append\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001string-intersperse\376\001\000\000!\001chicke" "n.string#string-intersperse\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001string-split\376\001\000\000\033\001chicken.string#stri" "ng-split\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001string-translate\376\001\000\000\037\001chicken.string#string-translate\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\021\001string-translate\052\376\001\000\000 \001chicken.string#string-translate\052\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\013\001substring=\077\376\001\000\000\032\001chicken.string#substring=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001substring-ci=\077\376\001\000" "\000\035\001chicken.string#substring-ci=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001substring-index\376\001\000\000\036\001chicken.str" "ing#substring-index\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001substring-index-ci\376\001\000\000!\001chicken.string#substr" "ing-index-ci\376\377\016")); lf[30]=C_h_intern(&lf[30],15, C_text("chicken.irregex")); lf[31]=C_h_intern(&lf[31],7, C_text("irregex")); lf[32]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001irregex\376\001\000\000\027\001chicken.irregex#irregex\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001irregex\077\376\001\000\000" "\030\001chicken.irregex#irregex\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001string->sre\376\001\000\000\033\001chicken.irregex#strin" "g->sre\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001maybe-string->sre\376\001\000\000!\001chicken.irregex#maybe-string->sre\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\014\001sre->irregex\376\001\000\000\034\001chicken.irregex#sre->irregex\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001irre" "gex-names\376\001\000\000\035\001chicken.irregex#irregex-names\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001irregex-num-submatch" "es\376\001\000\000&\001chicken.irregex#irregex-num-submatches\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001string->irregex\376\001\000" "\000\037\001chicken.irregex#string->irregex\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001make-irregex-chunker\376\001\000\000$\001chic" "ken.irregex#make-irregex-chunker\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001irregex-extract\376\001\000\000\037\001chicken.irr" "egex#irregex-extract\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001irregex-fold\376\001\000\000\034\001chicken.irregex#irregex-fo" "ld\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001irregex-match\376\001\000\000\035\001chicken.irregex#irregex-match\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\016\001irregex-match\077\376\001\000\000\036\001chicken.irregex#irregex-match\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001irregex-sear" "ch\376\001\000\000\036\001chicken.irregex#irregex-search\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001irregex-split\376\001\000\000\035\001chicken" ".irregex#irregex-split\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001irregex-replace\376\001\000\000\037\001chicken.irregex#irreg" "ex-replace\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001irregex-replace/all\376\001\000\000#\001chicken.irregex#irregex-repla" "ce/all\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001irregex-fold/chunked\376\001\000\000$\001chicken.irregex#irregex-fold/chu" "nked\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001irregex-match/chunked\376\001\000\000%\001chicken.irregex#irregex-match/chu" "nked\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001irregex-search/chunked\376\001\000\000&\001chicken.irregex#irregex-search/c" "hunked\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001irregex-match-data\077\376\001\000\000#\001chicken.irregex#irregex-match-dat" "a\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001irregex-match-names\376\001\000\000#\001chicken.irregex#irregex-match-names\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\031\001irregex-match-start-index\376\001\000\000)\001chicken.irregex#irregex-match-start" "-index\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001irregex-match-end-index\376\001\000\000\047\001chicken.irregex#irregex-match" "-end-index\376\003\000\000\002\376\003\000\000\002\376\001\000\000\034\001irregex-match-num-submatches\376\001\000\000,\001chicken.irregex#irre" "gex-match-num-submatches\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001irregex-match-substring\376\001\000\000\047\001chicken.irr" "egex#irregex-match-substring\376\003\000\000\002\376\003\000\000\002\376\001\000\000\032\001irregex-match-valid-index\077\376\001\000\000\052\001chic" "ken.irregex#irregex-match-valid-index\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001irregex-match-start-chunk\376" "\001\000\000)\001chicken.irregex#irregex-match-start-chunk\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001irregex-match-end-" "chunk\376\001\000\000\047\001chicken.irregex#irregex-match-end-chunk\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001irregex-match-" "subchunk\376\001\000\000&\001chicken.irregex#irregex-match-subchunk\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001glob->sre\376\001\000" "\000\031\001chicken.irregex#glob->sre\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001sre->string\376\001\000\000\033\001chicken.irregex#sre" "->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001irregex-opt\376\001\000\000\033\001chicken.irregex#irregex-opt\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\015\001irregex-quote\376\001\000\000\035\001chicken.irregex#irregex-quote\376\377\016")); lf[33]=C_h_intern(&lf[33],16, C_text("chicken.pathname")); lf[34]=C_h_intern(&lf[34],8, C_text("pathname")); lf[35]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001absolute-pathname\077\376\001\000\000#\001chicken.pathname#absolute-pathname\077\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\023\001decompose-directory\376\001\000\000$\001chicken.pathname#decompose-directory\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\022\001decompose-pathname\376\001\000\000#\001chicken.pathname#decompose-pathname\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\017\001directory-null\077\376\001\000\000 \001chicken.pathname#directory-null\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001make-abs" "olute-pathname\376\001\000\000\047\001chicken.pathname#make-absolute-pathname\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001make-" "pathname\376\001\000\000\036\001chicken.pathname#make-pathname\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001normalize-pathname\376\001" "\000\000#\001chicken.pathname#normalize-pathname\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001pathname-directory\376\001\000\000#\001c" "hicken.pathname#pathname-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001pathname-extension\376\001\000\000#\001chicke" "n.pathname#pathname-extension\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001pathname-file\376\001\000\000\036\001chicken.pathname" "#pathname-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\032\001pathname-replace-directory\376\001\000\000+\001chicken.pathname#p" "athname-replace-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\032\001pathname-replace-extension\376\001\000\000+\001chicken" ".pathname#pathname-replace-extension\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001pathname-replace-file\376\001\000\000&\001c" "hicken.pathname#pathname-replace-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001pathname-strip-directory\376\001\000" "\000)\001chicken.pathname#pathname-strip-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001pathname-strip-exten" "sion\376\001\000\000)\001chicken.pathname#pathname-strip-extension\376\377\016")); lf[36]=C_h_intern(&lf[36],10, C_text("chicken.io")); lf[37]=C_h_intern(&lf[37],6, C_text("extras")); lf[38]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001read-list\376\001\000\000\024\001chicken.io#read-list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001read-buffered" "\376\001\000\000\030\001chicken.io#read-buffered\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001read-byte\376\001\000\000\024\001chicken.io#read-byt" "e\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001read-line\376\001\000\000\024\001chicken.io#read-line\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001read-lines\376\001" "\000\000\025\001chicken.io#read-lines\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001read-string\376\001\000\000\026\001chicken.io#read-string" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001read-string!\376\001\000\000\027\001chicken.io#read-string!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001read-to" "ken\376\001\000\000\025\001chicken.io#read-token\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001write-byte\376\001\000\000\025\001chicken.io#write-b" "yte\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001write-line\376\001\000\000\025\001chicken.io#write-line\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001write-st" "ring\376\001\000\000\027\001chicken.io#write-string\376\377\016")); lf[39]=C_h_intern(&lf[39],12, C_text("chicken.port")); lf[40]=C_h_intern(&lf[40],4, C_text("port")); lf[41]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001call-with-input-string\376\001\000\000#\001chicken.port#call-with-input-string\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001call-with-output-string\376\001\000\000$\001chicken.port#call-with-output-string" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001copy-port\376\001\000\000\026\001chicken.port#copy-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001make-input-" "port\376\001\000\000\034\001chicken.port#make-input-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001make-output-port\376\001\000\000\035\001chic" "ken.port#make-output-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001port-fold\376\001\000\000\026\001chicken.port#port-fold\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\015\001port-for-each\376\001\000\000\032\001chicken.port#port-for-each\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001port-" "map\376\001\000\000\025\001chicken.port#port-map\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001port-name\376\001\000\000\026\001chicken.port#port-n" "ame\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001port-position\376\001\000\000\032\001chicken.port#port-position\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001" "make-bidirectional-port\376\001\000\000$\001chicken.port#make-bidirectional-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023" "\001make-broadcast-port\376\001\000\000 \001chicken.port#make-broadcast-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001make-c" "oncatenated-port\376\001\000\000#\001chicken.port#make-concatenated-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001set-buf" "fering-mode!\376\001\000\000 \001chicken.port#set-buffering-mode!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001set-port-name!" "\376\001\000\000\033\001chicken.port#set-port-name!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001terminal-name\376\001\000\000\032\001chicken.port" "#terminal-name\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001terminal-port\077\376\001\000\000\033\001chicken.port#terminal-port\077\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\015\001terminal-size\376\001\000\000\032\001chicken.port#terminal-size\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001with-e" "rror-output-to-port\376\001\000\000&\001chicken.port#with-error-output-to-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001w" "ith-input-from-port\376\001\000\000!\001chicken.port#with-input-from-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001with-i" "nput-from-string\376\001\000\000#\001chicken.port#with-input-from-string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001with-ou" "tput-to-port\376\001\000\000 \001chicken.port#with-output-to-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001with-output-to" "-string\376\001\000\000\042\001chicken.port#with-output-to-string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001with-error-output" "-to-string\376\001\000\000(\001chicken.port#with-error-output-to-string\376\377\016")); lf[42]=C_h_intern(&lf[42],36, C_text("##sys#chicken.time-macro-environment")); lf[43]=C_h_intern(&lf[43],12, C_text("chicken.time")); lf[44]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001cpu-time\376\001\000\000\025\001chicken.time#cpu-time\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001current-milli" "seconds\376\001\000\000!\001chicken.time#current-milliseconds\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001current-seconds\376\001\000" "\000\034\001chicken.time#current-seconds\376\377\016")); lf[45]=C_h_intern(&lf[45],36, C_text("##sys#chicken.base-macro-environment")); lf[46]=C_h_intern(&lf[46],34, C_text("##sys#symbol-has-toplevel-binding\077")); lf[47]=C_h_intern(&lf[47],14, C_text("chicken.memory")); lf[48]=C_h_intern(&lf[48],7, C_text("lolevel")); lf[49]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001address->pointer\376\001\000\000\037\001chicken.memory#address->pointer\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\015\001align-to-word\376\001\000\000\034\001chicken.memory#align-to-word\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001allocate\376\001\000\000" "\027\001chicken.memory#allocate\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001free\376\001\000\000\023\001chicken.memory#free\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\023\001make-pointer-vector\376\001\000\000\042\001chicken.memory#make-pointer-vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014" "\001move-memory!\376\001\000\000\033\001chicken.memory#move-memory!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001object->pointer\376\001\000" "\000\036\001chicken.memory#object->pointer\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001pointer+\376\001\000\000\027\001chicken.memory#po" "inter+\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer->address\376\001\000\000\037\001chicken.memory#pointer->address\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\017\001pointer->object\376\001\000\000\036\001chicken.memory#pointer->object\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001po" "inter-f32-ref\376\001\000\000\036\001chicken.memory#pointer-f32-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-f32-set" "!\376\001\000\000\037\001chicken.memory#pointer-f32-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-f64-ref\376\001\000\000\036\001chick" "en.memory#pointer-f64-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-f64-set!\376\001\000\000\037\001chicken.memory#po" "inter-f64-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001pointer-like\077\376\001\000\000\034\001chicken.memory#pointer-like\077\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-s16-ref\376\001\000\000\036\001chicken.memory#pointer-s16-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001" "pointer-s16-set!\376\001\000\000\037\001chicken.memory#pointer-s16-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-s32" "-ref\376\001\000\000\036\001chicken.memory#pointer-s32-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-s32-set!\376\001\000\000\037\001ch" "icken.memory#pointer-s32-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-s64-ref\376\001\000\000\036\001chicken.memory" "#pointer-s64-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-s64-set!\376\001\000\000\037\001chicken.memory#pointer-s64" "-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001pointer-s8-ref\376\001\000\000\035\001chicken.memory#pointer-s8-ref\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\017\001pointer-s8-set!\376\001\000\000\036\001chicken.memory#pointer-s8-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001pointer" "-tag\376\001\000\000\032\001chicken.memory#pointer-tag\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-u16-ref\376\001\000\000\036\001chicken" ".memory#pointer-u16-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-u16-set!\376\001\000\000\037\001chicken.memory#poin" "ter-u16-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-u32-ref\376\001\000\000\036\001chicken.memory#pointer-u32-ref\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-u32-set!\376\001\000\000\037\001chicken.memory#pointer-u32-set!\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\017\001pointer-u64-ref\376\001\000\000\036\001chicken.memory#pointer-u64-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-u" "64-set!\376\001\000\000\037\001chicken.memory#pointer-u64-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001pointer-u8-ref\376\001\000\000\035\001" "chicken.memory#pointer-u8-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-u8-set!\376\001\000\000\036\001chicken.memory" "#pointer-u8-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001pointer-vector\376\001\000\000\035\001chicken.memory#pointer-vecto" "r\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001pointer-vector-fill!\376\001\000\000#\001chicken.memory#pointer-vector-fill!\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\025\001pointer-vector-length\376\001\000\000$\001chicken.memory#pointer-vector-length\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\022\001pointer-vector-ref\376\001\000\000!\001chicken.memory#pointer-vector-ref\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\023\001pointer-vector-set!\376\001\000\000\042\001chicken.memory#pointer-vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017" "\001pointer-vector\077\376\001\000\000\036\001chicken.memory#pointer-vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001pointer=\077\376\001\000" "\000\030\001chicken.memory#pointer=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001pointer\077\376\001\000\000\027\001chicken.memory#pointer\077" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001tag-pointer\376\001\000\000\032\001chicken.memory#tag-pointer\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001tagge" "d-pointer\077\376\001\000\000\036\001chicken.memory#tagged-pointer\077\376\377\016")); lf[50]=C_h_intern(&lf[50],18, C_text("chicken.file.posix")); lf[51]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001create-fifo\376\001\000\000\036\001chicken.file.posix#create-fifo\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001c" "reate-symbolic-link\376\001\000\000\047\001chicken.file.posix#create-symbolic-link\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001" "read-symbolic-link\376\001\000\000%\001chicken.file.posix#read-symbolic-link\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001dup" "licate-fileno\376\001\000\000#\001chicken.file.posix#duplicate-fileno\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001fcntl/dupf" "d\376\001\000\000\036\001chicken.file.posix#fcntl/dupfd\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001fcntl/getfd\376\001\000\000\036\001chicken.fi" "le.posix#fcntl/getfd\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001fcntl/getfl\376\001\000\000\036\001chicken.file.posix#fcntl/ge" "tfl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001fcntl/setfd\376\001\000\000\036\001chicken.file.posix#fcntl/setfd\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\013\001fcntl/setfl\376\001\000\000\036\001chicken.file.posix#fcntl/setfl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001file-access-tim" "e\376\001\000\000#\001chicken.file.posix#file-access-time\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001file-change-time\376\001\000\000#\001" "chicken.file.posix#file-change-time\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001file-modification-time\376\001\000\000)\001c" "hicken.file.posix#file-modification-time\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001file-close\376\001\000\000\035\001chicken." "file.posix#file-close\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001file-control\376\001\000\000\037\001chicken.file.posix#file-c" "ontrol\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001file-creation-mode\376\001\000\000%\001chicken.file.posix#file-creation-m" "ode\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001file-group\376\001\000\000\035\001chicken.file.posix#file-group\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001" "file-link\376\001\000\000\034\001chicken.file.posix#file-link\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001file-lock\376\001\000\000\034\001chicke" "n.file.posix#file-lock\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001file-lock/blocking\376\001\000\000%\001chicken.file.posix" "#file-lock/blocking\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001file-mkstemp\376\001\000\000\037\001chicken.file.posix#file-mks" "temp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001file-open\376\001\000\000\034\001chicken.file.posix#file-open\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001f" "ile-owner\376\001\000\000\035\001chicken.file.posix#file-owner\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001file-permissions\376\001\000\000" "#\001chicken.file.posix#file-permissions\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001file-position\376\001\000\000 \001chicken." "file.posix#file-position\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001file-read\376\001\000\000\034\001chicken.file.posix#file-r" "ead\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001file-select\376\001\000\000\036\001chicken.file.posix#file-select\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\011\001file-size\376\001\000\000\034\001chicken.file.posix#file-size\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001file-stat\376\001\000\000\034\001chic" "ken.file.posix#file-stat\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001file-test-lock\376\001\000\000!\001chicken.file.posix#f" "ile-test-lock\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001file-truncate\376\001\000\000 \001chicken.file.posix#file-truncate" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001file-unlock\376\001\000\000\036\001chicken.file.posix#file-unlock\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001f" "ile-write\376\001\000\000\035\001chicken.file.posix#file-write\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001file-type\376\001\000\000\034\001chick" "en.file.posix#file-type\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001block-device\077\376\001\000\000 \001chicken.file.posix#blo" "ck-device\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001character-device\077\376\001\000\000$\001chicken.file.posix#character-de" "vice\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001directory\077\376\001\000\000\035\001chicken.file.posix#directory\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\005\001fifo\077\376\001\000\000\030\001chicken.file.posix#fifo\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001regular-file\077\376\001\000\000 \001chicken." "file.posix#regular-file\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001socket\077\376\001\000\000\032\001chicken.file.posix#socket\077\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001symbolic-link\077\376\001\000\000!\001chicken.file.posix#symbolic-link\077\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\015\001fileno/stderr\376\001\000\000 \001chicken.file.posix#fileno/stderr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001fileno/st" "din\376\001\000\000\037\001chicken.file.posix#fileno/stdin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001fileno/stdout\376\001\000\000 \001chick" "en.file.posix#fileno/stdout\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001open-input-file\052\376\001\000\000#\001chicken.file.po" "six#open-input-file\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001open-output-file\052\376\001\000\000$\001chicken.file.posix#op" "en-output-file\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001open/append\376\001\000\000\036\001chicken.file.posix#open/append\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\013\001open/binary\376\001\000\000\036\001chicken.file.posix#open/binary\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001ope" "n/creat\376\001\000\000\035\001chicken.file.posix#open/creat\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001open/excl\376\001\000\000\034\001chicken" ".file.posix#open/excl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001open/fsync\376\001\000\000\035\001chicken.file.posix#open/fsy" "nc\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001open/noctty\376\001\000\000\036\001chicken.file.posix#open/noctty\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016" "\001open/noinherit\376\001\000\000!\001chicken.file.posix#open/noinherit\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001open/nonbl" "ock\376\001\000\000 \001chicken.file.posix#open/nonblock\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001open/rdonly\376\001\000\000\036\001chicke" "n.file.posix#open/rdonly\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001open/rdwr\376\001\000\000\034\001chicken.file.posix#open/r" "dwr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001open/read\376\001\000\000\034\001chicken.file.posix#open/read\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001op" "en/sync\376\001\000\000\034\001chicken.file.posix#open/sync\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001open/text\376\001\000\000\034\001chicken." "file.posix#open/text\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001open/trunc\376\001\000\000\035\001chicken.file.posix#open/trun" "c\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001open/write\376\001\000\000\035\001chicken.file.posix#open/write\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001op" "en/wronly\376\001\000\000\036\001chicken.file.posix#open/wronly\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/irgrp\376\001\000\000\035\001chi" "cken.file.posix#perm/irgrp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/iroth\376\001\000\000\035\001chicken.file.posix#per" "m/iroth\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/irusr\376\001\000\000\035\001chicken.file.posix#perm/irusr\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\012\001perm/irwxg\376\001\000\000\035\001chicken.file.posix#perm/irwxg\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/irwxo\376\001\000\000\035" "\001chicken.file.posix#perm/irwxo\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/irwxu\376\001\000\000\035\001chicken.file.posix" "#perm/irwxu\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/isgid\376\001\000\000\035\001chicken.file.posix#perm/isgid\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\012\001perm/isuid\376\001\000\000\035\001chicken.file.posix#perm/isuid\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/isvtx\376" "\001\000\000\035\001chicken.file.posix#perm/isvtx\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/iwgrp\376\001\000\000\035\001chicken.file.p" "osix#perm/iwgrp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/iwoth\376\001\000\000\035\001chicken.file.posix#perm/iwoth\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\012\001perm/iwusr\376\001\000\000\035\001chicken.file.posix#perm/iwusr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/ix" "grp\376\001\000\000\035\001chicken.file.posix#perm/ixgrp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/ixoth\376\001\000\000\035\001chicken.fi" "le.posix#perm/ixoth\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001perm/ixusr\376\001\000\000\035\001chicken.file.posix#perm/ixusr" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001port->fileno\376\001\000\000\037\001chicken.file.posix#port->fileno\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017" "\001set-file-group!\376\001\000\000\042\001chicken.file.posix#set-file-group!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001set-file" "-owner!\376\001\000\000\042\001chicken.file.posix#set-file-owner!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001set-file-permissi" "ons!\376\001\000\000(\001chicken.file.posix#set-file-permissions!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001set-file-posit" "ion!\376\001\000\000%\001chicken.file.posix#set-file-position!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001set-file-times!\376\001" "\000\000\042\001chicken.file.posix#set-file-times!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001seek/cur\376\001\000\000\033\001chicken.file" ".posix#seek/cur\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001seek/set\376\001\000\000\033\001chicken.file.posix#seek/set\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\010\001seek/end\376\001\000\000\033\001chicken.file.posix#seek/end\376\377\016")); lf[52]=C_h_intern(&lf[52],14, C_text("chicken.flonum")); lf[53]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001flonum-print-precision\376\001\000\000%\001chicken.flonum#flonum-print-precisio" "n\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001fpinteger\077\376\001\000\000\031\001chicken.flonum#fpinteger\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpabs\376" "\001\000\000\024\001chicken.flonum#fpabs\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001fpsqrt\376\001\000\000\025\001chicken.flonum#fpsqrt\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\005\001fplog\376\001\000\000\024\001chicken.flonum#fplog\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001fpexpt\376\001\000\000\025\001chicken.flo" "num#fpexpt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpexp\376\001\000\000\024\001chicken.flonum#fpexp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fpatan2" "\376\001\000\000\026\001chicken.flonum#fpatan2\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001fpatan\376\001\000\000\025\001chicken.flonum#fpatan\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\006\001fpacos\376\001\000\000\025\001chicken.flonum#fpacos\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001fpasin\376\001\000\000\025\001chicke" "n.flonum#fpasin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fptan\376\001\000\000\024\001chicken.flonum#fptan\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fp" "cos\376\001\000\000\024\001chicken.flonum#fpcos\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpsin\376\001\000\000\024\001chicken.flonum#fpsin\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\011\001fpceiling\376\001\000\000\030\001chicken.flonum#fpceiling\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fpround\376\001\000\000\026\001" "chicken.flonum#fpround\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001fptruncate\376\001\000\000\031\001chicken.flonum#fptruncate\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fpfloor\376\001\000\000\026\001chicken.flonum#fpfloor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpmin\376\001\000\000\024\001chi" "cken.flonum#fpmin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpmax\376\001\000\000\024\001chicken.flonum#fpmax\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001" "fpneg\376\001\000\000\024\001chicken.flonum#fpneg\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fp<=\376\001\000\000\023\001chicken.flonum#fp<=\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\004\001fp>=\376\001\000\000\023\001chicken.flonum#fp>=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fp<\376\001\000\000\022\001chicken.flonum" "#fp<\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fp>\376\001\000\000\022\001chicken.flonum#fp>\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fp=\376\001\000\000\022\001chicken." "flonum#fp=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001fp/\077\376\001\000\000\023\001chicken.flonum#fp/\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001fpgcd\376\001\000\000" "\024\001chicken.flonum#fpgcd\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fp/\376\001\000\000\022\001chicken.flonum#fp/\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003" "\001fp\052\376\001\000\000\022\001chicken.flonum#fp\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001fp-\376\001\000\000\022\001chicken.flonum#fp-\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\003\001fp+\376\001\000\000\022\001chicken.flonum#fp+\376\003\000\000\002\376\003\000\000\002\376\001\000\000\037\001flonum-minimum-decimal-exponen" "t\376\001\000\000.\001chicken.flonum#flonum-minimum-decimal-exponent\376\003\000\000\002\376\003\000\000\002\376\001\000\000\037\001flonum-maxi" "mum-decimal-exponent\376\001\000\000.\001chicken.flonum#flonum-maximum-decimal-exponent\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\027\001flonum-minimum-exponent\376\001\000\000&\001chicken.flonum#flonum-minimum-exponent\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\027\001flonum-maximum-exponent\376\001\000\000&\001chicken.flonum#flonum-maximum-exponent\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\030\001flonum-decimal-precision\376\001\000\000\047\001chicken.flonum#flonum-decimal-precis" "ion\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001flonum-precision\376\001\000\000\037\001chicken.flonum#flonum-precision\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\016\001flonum-epsilon\376\001\000\000\035\001chicken.flonum#flonum-epsilon\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001flonum-" "radix\376\001\000\000\033\001chicken.flonum#flonum-radix\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001minimum-flonum\376\001\000\000\035\001chicke" "n.flonum#minimum-flonum\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001maximum-flonum\376\001\000\000\035\001chicken.flonum#maximu" "m-flonum\376\377\016")); lf[54]=C_h_intern(&lf[54],14, C_text("chicken.format")); lf[55]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001format\376\001\000\000\025\001chicken.format#format\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fprintf\376\001\000\000\026\001ch" "icken.format#fprintf\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001printf\376\001\000\000\025\001chicken.format#printf\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\007\001sprintf\376\001\000\000\026\001chicken.format#sprintf\376\377\016")); lf[56]=C_h_intern(&lf[56],10, C_text("chicken.gc")); lf[57]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001current-gc-milliseconds\376\001\000\000\042\001chicken.gc#current-gc-milliseconds\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001gc\376\001\000\000\015\001chicken.gc#gc\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001memory-statistics\376\001\000\000\034\001chick" "en.gc#memory-statistics\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001set-finalizer!\376\001\000\000\031\001chicken.gc#set-finali" "zer!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001set-gc-report!\376\001\000\000\031\001chicken.gc#set-gc-report!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020" "\001force-finalizers\376\001\000\000\033\001chicken.gc#force-finalizers\376\377\016")); lf[58]=C_h_intern(&lf[58],12, C_text("chicken.eval")); lf[59]=C_h_intern(&lf[59],4, C_text("eval")); lf[60]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001eval-handler\376\001\000\000\031\001chicken.eval#eval-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001modul" "e-environment\376\001\000\000\037\001chicken.eval#module-environment\376\377\016")); lf[61]=C_h_intern(&lf[61],12, C_text("chicken.load")); lf[62]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001dynamic-load-libraries\376\001\000\000#\001chicken.load#dynamic-load-libraries\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001set-dynamic-load-mode!\376\001\000\000#\001chicken.load#set-dynamic-load-mode!\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\014\001load-library\376\001\000\000\031\001chicken.load#load-library\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001load-no" "isily\376\001\000\000\031\001chicken.load#load-noisily\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001load-relative\376\001\000\000\032\001chicken.l" "oad#load-relative\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001load-verbose\376\001\000\000\031\001chicken.load#load-verbose\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\007\001provide\376\001\000\000\024\001chicken.load#provide\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001provided\077\376\001\000\000\026\001chic" "ken.load#provided\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001require\376\001\000\000\024\001chicken.load#require\376\377\016")); lf[63]=C_h_intern(&lf[63],16, C_text("chicken.locative")); lf[64]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001locative\077\376\001\000\000\032\001chicken.locative#locative\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001make-lo" "cative\376\001\000\000\036\001chicken.locative#make-locative\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001make-weak-locative\376\001\000\000" "#\001chicken.locative#make-weak-locative\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001locative-ref\376\001\000\000\035\001chicken.l" "ocative#locative-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001locative-set!\376\001\000\000\036\001chicken.locative#locative" "-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001locative->object\376\001\000\000!\001chicken.locative#locative->object\376\377\016")); lf[65]=C_h_intern(&lf[65],29, C_text("chicken.memory.representation")); lf[66]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001block-ref\376\001\000\000\047\001chicken.memory.representation#block-ref\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\012\001block-set!\376\001\000\000(\001chicken.memory.representation#block-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001ex" "tend-procedure\376\001\000\000.\001chicken.memory.representation#extend-procedure\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\023\001extended-procedure\077\376\001\000\0001\001chicken.memory.representation#extended-procedure\077\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\024\001make-record-instance\376\001\000\0002\001chicken.memory.representation#make-record-" "instance\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001mutate-procedure!\376\001\000\000/\001chicken.memory.representation#mut" "ate-procedure!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001number-of-bytes\376\001\000\000-\001chicken.memory.representation" "#number-of-bytes\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001number-of-slots\376\001\000\000-\001chicken.memory.representati" "on#number-of-slots\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001object-become!\376\001\000\000,\001chicken.memory.representat" "ion#object-become!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001object-copy\376\001\000\000)\001chicken.memory.representation" "#object-copy\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001procedure-data\376\001\000\000,\001chicken.memory.representation#pr" "ocedure-data\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001record->vector\376\001\000\000,\001chicken.memory.representation#re" "cord->vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001record-instance-length\376\001\000\0004\001chicken.memory.represent" "ation#record-instance-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001record-instance-slot\376\001\000\0002\001chicken.me" "mory.representation#record-instance-slot\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001record-instance-slot-set" "!\376\001\000\0007\001chicken.memory.representation#record-instance-slot-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001re" "cord-instance-type\376\001\000\0002\001chicken.memory.representation#record-instance-type\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\020\001record-instance\077\376\001\000\000.\001chicken.memory.representation#record-instance\077\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\023\001set-procedure-data!\376\001\000\0001\001chicken.memory.representation#set-procedu" "re-data!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001vector-like\077\376\001\000\000\052\001chicken.memory.representation#vector-l" "ike\077\376\377\016")); lf[67]=C_h_intern(&lf[67],13, C_text("chicken.plist")); lf[68]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001get\376\001\000\000\021\001chicken.plist#get\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001get-properties\376\001\000\000\034\001ch" "icken.plist#get-properties\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001put!\376\001\000\000\022\001chicken.plist#put!\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\010\001remprop!\376\001\000\000\026\001chicken.plist#remprop!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001symbol-plist\376\001\000\000\032\001chic" "ken.plist#symbol-plist\376\377\016")); lf[69]=C_h_intern(&lf[69],20, C_text("chicken.pretty-print")); lf[70]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001pp\376\001\000\000\027\001chicken.pretty-print#pp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001pretty-print\376\001\000\000!" "\001chicken.pretty-print#pretty-print\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001pretty-print-width\376\001\000\000\047\001chicke" "n.pretty-print#pretty-print-width\376\377\016")); lf[71]=C_h_intern(&lf[71],15, C_text("chicken.process")); lf[72]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001qs\376\001\000\000\022\001chicken.process#qs\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001system\376\001\000\000\026\001chicken.pr" "ocess#system\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001system\052\376\001\000\000\027\001chicken.process#system\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001" "process-execute\376\001\000\000\037\001chicken.process#process-execute\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001process-fork" "\376\001\000\000\034\001chicken.process#process-fork\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001process-run\376\001\000\000\033\001chicken.proce" "ss#process-run\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001process-signal\376\001\000\000\036\001chicken.process#process-signal" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001process-spawn\376\001\000\000\035\001chicken.process#process-spawn\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001" "process-wait\376\001\000\000\034\001chicken.process#process-wait\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001call-with-input-pi" "pe\376\001\000\000$\001chicken.process#call-with-input-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001call-with-output-pip" "e\376\001\000\000%\001chicken.process#call-with-output-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001close-input-pipe\376\001\000\000" " \001chicken.process#close-input-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001close-output-pipe\376\001\000\000!\001chicken" ".process#close-output-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001create-pipe\376\001\000\000\033\001chicken.process#creat" "e-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001open-input-pipe\376\001\000\000\037\001chicken.process#open-input-pipe\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\020\001open-output-pipe\376\001\000\000 \001chicken.process#open-output-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001" "with-input-from-pipe\376\001\000\000$\001chicken.process#with-input-from-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001wi" "th-output-to-pipe\376\001\000\000#\001chicken.process#with-output-to-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001proces" "s\376\001\000\000\027\001chicken.process#process\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001process\052\376\001\000\000\030\001chicken.process#proc" "ess\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001process-sleep\376\001\000\000\035\001chicken.process#process-sleep\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\010\001pipe/buf\376\001\000\000\030\001chicken.process#pipe/buf\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001spawn/overlay\376\001\000\000\035\001chi" "cken.process#spawn/overlay\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001spawn/wait\376\001\000\000\032\001chicken.process#spawn/" "wait\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001spawn/nowait\376\001\000\000\034\001chicken.process#spawn/nowait\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\015\001spawn/nowaito\376\001\000\000\035\001chicken.process#spawn/nowaito\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001spawn/detach\376\001" "\000\000\034\001chicken.process#spawn/detach\376\377\016")); lf[73]=C_h_intern(&lf[73],22, C_text("chicken.process.signal")); lf[74]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001set-alarm!\376\001\000\000!\001chicken.process.signal#set-alarm!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023" "\001set-signal-handler!\376\001\000\000\052\001chicken.process.signal#set-signal-handler!\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\020\001set-signal-mask!\376\001\000\000\047\001chicken.process.signal#set-signal-mask!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016" "\001signal-handler\376\001\000\000%\001chicken.process.signal#signal-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal" "-mask\376\001\000\000\042\001chicken.process.signal#signal-mask\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001signal-mask!\376\001\000\000#\001c" "hicken.process.signal#signal-mask!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001signal-masked\077\376\001\000\000%\001chicken.pr" "ocess.signal#signal-masked\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001signal-unmask!\376\001\000\000%\001chicken.process.s" "ignal#signal-unmask!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/abrt\376\001\000\000\042\001chicken.process.signal#sign" "al/abrt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/alrm\376\001\000\000\042\001chicken.process.signal#signal/alrm\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\014\001signal/break\376\001\000\000#\001chicken.process.signal#signal/break\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001s" "ignal/bus\376\001\000\000!\001chicken.process.signal#signal/bus\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/chld\376\001\000\000\042" "\001chicken.process.signal#signal/chld\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/cont\376\001\000\000\042\001chicken.proc" "ess.signal#signal/cont\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001signal/fpe\376\001\000\000!\001chicken.process.signal#sig" "nal/fpe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001signal/hup\376\001\000\000!\001chicken.process.signal#signal/hup\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\012\001signal/ill\376\001\000\000!\001chicken.process.signal#signal/ill\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001signal/" "int\376\001\000\000!\001chicken.process.signal#signal/int\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001signal/io\376\001\000\000 \001chicken" ".process.signal#signal/io\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/kill\376\001\000\000\042\001chicken.process.signal" "#signal/kill\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/pipe\376\001\000\000\042\001chicken.process.signal#signal/pipe\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/prof\376\001\000\000\042\001chicken.process.signal#signal/prof\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\013\001signal/quit\376\001\000\000\042\001chicken.process.signal#signal/quit\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/segv" "\376\001\000\000\042\001chicken.process.signal#signal/segv\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/stop\376\001\000\000\042\001chicken" ".process.signal#signal/stop\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/term\376\001\000\000\042\001chicken.process.sign" "al#signal/term\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/trap\376\001\000\000\042\001chicken.process.signal#signal/tra" "p\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/tstp\376\001\000\000\042\001chicken.process.signal#signal/tstp\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\012\001signal/urg\376\001\000\000!\001chicken.process.signal#signal/urg\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/usr1" "\376\001\000\000\042\001chicken.process.signal#signal/usr1\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/usr2\376\001\000\000\042\001chicken" ".process.signal#signal/usr2\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001signal/vtalrm\376\001\000\000$\001chicken.process.si" "gnal#signal/vtalrm\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001signal/winch\376\001\000\000#\001chicken.process.signal#signa" "l/winch\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/xcpu\376\001\000\000\042\001chicken.process.signal#signal/xcpu\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\013\001signal/xfsz\376\001\000\000\042\001chicken.process.signal#signal/xfsz\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001sig" "nals-list\376\001\000\000#\001chicken.process.signal#signals-list\376\377\016")); lf[75]=C_h_intern(&lf[75],23, C_text("chicken.process-context")); lf[76]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001argv\376\001\000\000\034\001chicken.process-context#argv\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001argc+argv\376" "\001\000\000!\001chicken.process-context#argc+argv\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001command-line-arguments\376\001\000\000" ".\001chicken.process-context#command-line-arguments\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001program-name\376\001\000\000" "$\001chicken.process-context#program-name\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001executable-pathname\376\001\000\000+\001c" "hicken.process-context#executable-pathname\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001change-directory\376\001\000\000(\001" "chicken.process-context#change-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001current-directory\376\001\000\000)\001c" "hicken.process-context#current-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001get-environment-variable" "\376\001\000\0000\001chicken.process-context#get-environment-variable\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001get-enviro" "nment-variables\376\001\000\0001\001chicken.process-context#get-environment-variables\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\031\001set-environment-variable!\376\001\000\0001\001chicken.process-context#set-environment-var" "iable!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001unset-environment-variable!\376\001\000\0003\001chicken.process-context#u" "nset-environment-variable!\376\377\016")); lf[77]=C_h_intern(&lf[77],29, C_text("chicken.process-context.posix")); lf[78]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001change-directory\052\376\001\000\000/\001chicken.process-context.posix#change-dire" "ctory\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001set-root-directory!\376\001\000\0001\001chicken.process-context.posix#set" "-root-directory!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\032\001current-effective-group-id\376\001\000\0008\001chicken.process-" "context.posix#current-effective-group-id\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001current-effective-user-i" "d\376\001\000\0007\001chicken.process-context.posix#current-effective-user-id\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001cu" "rrent-process-id\376\001\000\0000\001chicken.process-context.posix#current-process-id\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\020\001current-group-id\376\001\000\000.\001chicken.process-context.posix#current-group-id\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\017\001current-user-id\376\001\000\000-\001chicken.process-context.posix#current-user-id\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\021\001parent-process-id\376\001\000\000/\001chicken.process-context.posix#parent-process-" "id\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001current-user-name\376\001\000\000/\001chicken.process-context.posix#current-u" "ser-name\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001current-effective-user-name\376\001\000\0009\001chicken.process-context" ".posix#current-effective-user-name\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001create-session\376\001\000\000,\001chicken.pr" "ocess-context.posix#create-session\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001process-group-id\376\001\000\000.\001chicken." "process-context.posix#process-group-id\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001user-information\376\001\000\000.\001chic" "ken.process-context.posix#user-information\376\377\016")); lf[79]=C_h_intern(&lf[79],14, C_text("chicken.random")); lf[80]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001set-pseudo-random-seed!\376\001\000\000&\001chicken.random#set-pseudo-random-se" "ed!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001pseudo-random-integer\376\001\000\000$\001chicken.random#pseudo-random-integ" "er\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001pseudo-random-real\376\001\000\000!\001chicken.random#pseudo-random-real\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\014\001random-bytes\376\001\000\000\033\001chicken.random#random-bytes\376\377\016")); lf[81]=C_h_intern(&lf[81],12, C_text("chicken.sort")); lf[82]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001merge\376\001\000\000\022\001chicken.sort#merge\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001merge!\376\001\000\000\023\001chicken" ".sort#merge!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001sort\376\001\000\000\021\001chicken.sort#sort\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001sort!\376\001\000\000" "\022\001chicken.sort#sort!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001sorted\077\376\001\000\000\024\001chicken.sort#sorted\077\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\020\001topological-sort\376\001\000\000\035\001chicken.sort#topological-sort\376\377\016")); lf[83]=C_h_intern(&lf[83],18, C_text("chicken.time.posix")); lf[84]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001seconds->utc-time\376\001\000\000$\001chicken.time.posix#seconds->utc-time\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\021\001utc-time->seconds\376\001\000\000$\001chicken.time.posix#utc-time->seconds\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\023\001seconds->local-time\376\001\000\000&\001chicken.time.posix#seconds->local-time\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\017\001seconds->string\376\001\000\000\042\001chicken.time.posix#seconds->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001loca" "l-time->seconds\376\001\000\000&\001chicken.time.posix#local-time->seconds\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001strin" "g->time\376\001\000\000\037\001chicken.time.posix#string->time\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001time->string\376\001\000\000\037\001ch" "icken.time.posix#time->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001local-timezone-abbreviation\376\001\000\000.\001ch" "icken.time.posix#local-timezone-abbreviation\376\377\016")); lf[85]=C_h_intern(&lf[85],20, C_text("chicken.continuation")); lf[86]=C_h_intern(&lf[86],12, C_text("continuation")); lf[87]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001continuation\077\376\001\000\000\042\001chicken.continuation#continuation\077\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\024\001continuation-capture\376\001\000\000)\001chicken.continuation#continuation-capture\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\022\001continuation-graft\376\001\000\000\047\001chicken.continuation#continuation-graft\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\023\001continuation-return\376\001\000\000(\001chicken.continuation#continuation-return\376\377\016")); lf[88]=C_h_intern(&lf[88],12, C_text("chicken.file")); lf[89]=C_h_intern(&lf[89],4, C_text("file")); lf[90]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001create-directory\376\001\000\000\035\001chicken.file#create-directory\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\020\001delete-directory\376\001\000\000\035\001chicken.file#delete-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001create-tem" "porary-file\376\001\000\000\042\001chicken.file#create-temporary-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\032\001create-tempor" "ary-directory\376\001\000\000\047\001chicken.file#create-temporary-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001delete" "-file\376\001\000\000\030\001chicken.file#delete-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001delete-file\052\376\001\000\000\031\001chicken.fil" "e#delete-file\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001copy-file\376\001\000\000\026\001chicken.file#copy-file\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\011\001move-file\376\001\000\000\026\001chicken.file#move-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001rename-file\376\001\000\000\030\001chicken" ".file#rename-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001file-exists\077\376\001\000\000\031\001chicken.file#file-exists\077\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\021\001directory-exists\077\376\001\000\000\036\001chicken.file#directory-exists\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016" "\001file-readable\077\376\001\000\000\033\001chicken.file#file-readable\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001file-writable\077\376\001" "\000\000\033\001chicken.file#file-writable\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001file-executable\077\376\001\000\000\035\001chicken.fil" "e#file-executable\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001directory\376\001\000\000\026\001chicken.file#directory\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\012\001find-files\376\001\000\000\027\001chicken.file#find-files\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001glob\376\001\000\000\021\001chicken." "file#glob\376\377\016")); lf[91]=C_h_intern(&lf[91],19, C_text("chicken.read-syntax")); lf[92]=C_h_intern(&lf[92],11, C_text("read-syntax")); lf[93]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001copy-read-table\376\001\000\000#\001chicken.read-syntax#copy-read-table\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\022\001current-read-table\376\001\000\000&\001chicken.read-syntax#current-read-table\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\022\001define-reader-ctor\376\001\000\000&\001chicken.read-syntax#define-reader-ctor\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\020\001set-read-syntax!\376\001\000\000$\001chicken.read-syntax#set-read-syntax!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001se" "t-sharp-read-syntax!\376\001\000\000\052\001chicken.read-syntax#set-sharp-read-syntax!\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\036\001set-parameterized-read-syntax!\376\001\000\0002\001chicken.read-syntax#set-parameterized-re" "ad-syntax!\376\377\016")); lf[94]=C_h_intern(&lf[94],12, C_text("chicken.repl")); lf[95]=C_h_intern(&lf[95],4, C_text("repl")); lf[96]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001quit\376\001\000\000\021\001chicken.repl#quit\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001repl\376\001\000\000\021\001chicken.rep" "l#repl\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001repl-prompt\376\001\000\000\030\001chicken.repl#repl-prompt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001r" "eset\376\001\000\000\022\001chicken.repl#reset\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001reset-handler\376\001\000\000\032\001chicken.repl#rese" "t-handler\376\377\016")); lf[97]=C_h_intern(&lf[97],11, C_text("chicken.tcp")); lf[98]=C_h_intern(&lf[98],3, C_text("tcp")); lf[99]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001tcp-close\376\001\000\000\025\001chicken.tcp#tcp-close\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001tcp-listen\376\001" "\000\000\026\001chicken.tcp#tcp-listen\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001tcp-connect\376\001\000\000\027\001chicken.tcp#tcp-conne" "ct\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001tcp-accept\376\001\000\000\026\001chicken.tcp#tcp-accept\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001tcp-acce" "pt-ready\077\376\001\000\000\035\001chicken.tcp#tcp-accept-ready\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001tcp-listener\077\376\001\000\000\031\001c" "hicken.tcp#tcp-listener\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001tcp-addresses\376\001\000\000\031\001chicken.tcp#tcp-addre" "sses\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001tcp-abandon-port\376\001\000\000\034\001chicken.tcp#tcp-abandon-port\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\021\001tcp-listener-port\376\001\000\000\035\001chicken.tcp#tcp-listener-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001tcp-li" "stener-fileno\376\001\000\000\037\001chicken.tcp#tcp-listener-fileno\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001tcp-port-numbe" "rs\376\001\000\000\034\001chicken.tcp#tcp-port-numbers\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001tcp-buffer-size\376\001\000\000\033\001chicken" ".tcp#tcp-buffer-size\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001tcp-read-timeout\376\001\000\000\034\001chicken.tcp#tcp-read-t" "imeout\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001tcp-write-timeout\376\001\000\000\035\001chicken.tcp#tcp-write-timeout\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\022\001tcp-accept-timeout\376\001\000\000\036\001chicken.tcp#tcp-accept-timeout\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001" "tcp-connect-timeout\376\001\000\000\037\001chicken.tcp#tcp-connect-timeout\376\377\016")); lf[100]=C_h_intern(&lf[100],6, C_text("srfi-4")); lf[101]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->f32vector\376\001\000\000\026\001srfi-4#blob->f32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob-" ">f32vector/shared\376\001\000\000\035\001srfi-4#blob->f32vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->f64vec" "tor\376\001\000\000\026\001srfi-4#blob->f64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->f64vector/shared\376\001\000\000\035\001srfi-" "4#blob->f64vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->s16vector\376\001\000\000\026\001srfi-4#blob->s16vec" "tor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->s16vector/shared\376\001\000\000\035\001srfi-4#blob->s16vector/shared\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\017\001blob->s32vector\376\001\000\000\026\001srfi-4#blob->s32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->s32" "vector/shared\376\001\000\000\035\001srfi-4#blob->s32vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->s64vector\376" "\001\000\000\026\001srfi-4#blob->s64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->s64vector/shared\376\001\000\000\035\001srfi-4#bl" "ob->s64vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001blob->s8vector\376\001\000\000\025\001srfi-4#blob->s8vector\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\025\001blob->s8vector/shared\376\001\000\000\034\001srfi-4#blob->s8vector/shared\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\017\001blob->u16vector\376\001\000\000\026\001srfi-4#blob->u16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->u16vector/s" "hared\376\001\000\000\035\001srfi-4#blob->u16vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->u32vector\376\001\000\000\026\001srf" "i-4#blob->u32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->u32vector/shared\376\001\000\000\035\001srfi-4#blob->u32v" "ector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->u64vector\376\001\000\000\026\001srfi-4#blob->u64vector\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\026\001blob->u64vector/shared\376\001\000\000\035\001srfi-4#blob->u64vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001" "blob->u8vector\376\001\000\000\025\001srfi-4#blob->u8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001blob->u8vector/shared\376\001" "\000\000\034\001srfi-4#blob->u8vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001f32vector\376\001\000\000\020\001srfi-4#f32vector\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001f32vector->blob\376\001\000\000\026\001srfi-4#f32vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001f32vec" "tor->blob/shared\376\001\000\000\035\001srfi-4#f32vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001f32vector->li" "st\376\001\000\000\026\001srfi-4#f32vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001f32vector-length\376\001\000\000\027\001srfi-4#f32ve" "ctor-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001f32vector-ref\376\001\000\000\024\001srfi-4#f32vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\016\001f32vector-set!\376\001\000\000\025\001srfi-4#f32vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001f32vector\077\376\001\000\000\021\001srfi-" "4#f32vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001f64vector\376\001\000\000\020\001srfi-4#f64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001f64ve" "ctor->blob\376\001\000\000\026\001srfi-4#f64vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001f64vector->blob/shared\376\001\000\000" "\035\001srfi-4#f64vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001f64vector->list\376\001\000\000\026\001srfi-4#f64ve" "ctor->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001f64vector-length\376\001\000\000\027\001srfi-4#f64vector-length\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\015\001f64vector-ref\376\001\000\000\024\001srfi-4#f64vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001f64vector-set!\376\001\000\000" "\025\001srfi-4#f64vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001f64vector\077\376\001\000\000\021\001srfi-4#f64vector\077\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\010\001s8vector\376\001\000\000\017\001srfi-4#s8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001s8vector->blob\376\001\000\000\025\001srfi-4#" "s8vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001s8vector->blob/shared\376\001\000\000\034\001srfi-4#s8vector->blob/s" "hared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001s8vector->list\376\001\000\000\025\001srfi-4#s8vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s8" "vector-length\376\001\000\000\026\001srfi-4#s8vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001s8vector-ref\376\001\000\000\023\001srfi-" "4#s8vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001s8vector-set!\376\001\000\000\024\001srfi-4#s8vector-set!\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\011\001s8vector\077\376\001\000\000\020\001srfi-4#s8vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001s16vector\376\001\000\000\020\001srfi-4#s16vec" "tor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s16vector->blob\376\001\000\000\026\001srfi-4#s16vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001s1" "6vector->blob/shared\376\001\000\000\035\001srfi-4#s16vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s16vector" "->list\376\001\000\000\026\001srfi-4#s16vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001s16vector-length\376\001\000\000\027\001srfi-4#s" "16vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001s16vector-ref\376\001\000\000\024\001srfi-4#s16vector-ref\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\016\001s16vector-set!\376\001\000\000\025\001srfi-4#s16vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001s16vector\077\376\001\000\000\021\001s" "rfi-4#s16vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001s32vector\376\001\000\000\020\001srfi-4#s32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s" "32vector->blob\376\001\000\000\026\001srfi-4#s32vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001s32vector->blob/shared" "\376\001\000\000\035\001srfi-4#s32vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s32vector->list\376\001\000\000\026\001srfi-4#s" "32vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001s32vector-length\376\001\000\000\027\001srfi-4#s32vector-length\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\015\001s32vector-ref\376\001\000\000\024\001srfi-4#s32vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001s32vector-set!" "\376\001\000\000\025\001srfi-4#s32vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001s32vector\077\376\001\000\000\021\001srfi-4#s32vector\077\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\011\001s64vector\376\001\000\000\020\001srfi-4#s64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s64vector->blob\376\001\000\000\026\001" "srfi-4#s64vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001s64vector->blob/shared\376\001\000\000\035\001srfi-4#s64vect" "or->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s64vector->list\376\001\000\000\026\001srfi-4#s64vector->list\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\020\001s64vector-length\376\001\000\000\027\001srfi-4#s64vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001s64vector" "-ref\376\001\000\000\024\001srfi-4#s64vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001s64vector-set!\376\001\000\000\025\001srfi-4#s64vect" "or-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001s64vector\077\376\001\000\000\021\001srfi-4#s64vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001u8vector" "\376\001\000\000\017\001srfi-4#u8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001u8vector->blob\376\001\000\000\025\001srfi-4#u8vector->blob\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\025\001u8vector->blob/shared\376\001\000\000\034\001srfi-4#u8vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\016\001u8vector->list\376\001\000\000\025\001srfi-4#u8vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u8vector-length\376\001\000" "\000\026\001srfi-4#u8vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001u8vector-ref\376\001\000\000\023\001srfi-4#u8vector-ref\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\015\001u8vector-set!\376\001\000\000\024\001srfi-4#u8vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001u8vector\077\376\001" "\000\000\020\001srfi-4#u8vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001u16vector\376\001\000\000\020\001srfi-4#u16vector\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\017\001u16vector->blob\376\001\000\000\026\001srfi-4#u16vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001u16vector->blob/sh" "ared\376\001\000\000\035\001srfi-4#u16vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u16vector->list\376\001\000\000\026\001srfi" "-4#u16vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001u16vector-length\376\001\000\000\027\001srfi-4#u16vector-length\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001u16vector-ref\376\001\000\000\024\001srfi-4#u16vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001u16vector-" "set!\376\001\000\000\025\001srfi-4#u16vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001u16vector\077\376\001\000\000\021\001srfi-4#u16vector\077" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001u32vector\376\001\000\000\020\001srfi-4#u32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u32vector->blob\376\001" "\000\000\026\001srfi-4#u32vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001u32vector->blob/shared\376\001\000\000\035\001srfi-4#u32" "vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u32vector->list\376\001\000\000\026\001srfi-4#u32vector->list\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\020\001u32vector-length\376\001\000\000\027\001srfi-4#u32vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001u32ve" "ctor-ref\376\001\000\000\024\001srfi-4#u32vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001u32vector-set!\376\001\000\000\025\001srfi-4#u32" "vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001u32vector\077\376\001\000\000\021\001srfi-4#u32vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001u64v" "ector\376\001\000\000\020\001srfi-4#u64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u64vector->blob\376\001\000\000\026\001srfi-4#u64vector" "->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001u64vector->blob/shared\376\001\000\000\035\001srfi-4#u64vector->blob/shared\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u64vector->list\376\001\000\000\026\001srfi-4#u64vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001u64vec" "tor-length\376\001\000\000\027\001srfi-4#u64vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001u64vector-ref\376\001\000\000\024\001srfi-4" "#u64vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001u64vector-set!\376\001\000\000\025\001srfi-4#u64vector-set!\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\012\001u64vector\077\376\001\000\000\021\001srfi-4#u64vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->f32vector\376\001\000\000\026\001srf" "i-4#list->f32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->f64vector\376\001\000\000\026\001srfi-4#list->f64vector\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->s16vector\376\001\000\000\026\001srfi-4#list->s16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->s" "32vector\376\001\000\000\026\001srfi-4#list->s32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->s64vector\376\001\000\000\026\001srfi-4#" "list->s64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001list->s8vector\376\001\000\000\025\001srfi-4#list->s8vector\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\017\001list->u16vector\376\001\000\000\026\001srfi-4#list->u16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->u32vect" "or\376\001\000\000\026\001srfi-4#list->u32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001list->u8vector\376\001\000\000\025\001srfi-4#list->u" "8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->u64vector\376\001\000\000\026\001srfi-4#list->u64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\016\001make-f32vector\376\001\000\000\025\001srfi-4#make-f32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-f64vector\376\001\000\000\025\001s" "rfi-4#make-f64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-s16vector\376\001\000\000\025\001srfi-4#make-s16vector\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\016\001make-s32vector\376\001\000\000\025\001srfi-4#make-s32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-s64ve" "ctor\376\001\000\000\025\001srfi-4#make-s64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001make-s8vector\376\001\000\000\024\001srfi-4#make-s8" "vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-u16vector\376\001\000\000\025\001srfi-4#make-u16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001m" "ake-u32vector\376\001\000\000\025\001srfi-4#make-u32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-u64vector\376\001\000\000\025\001srfi" "-4#make-u64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001make-u8vector\376\001\000\000\024\001srfi-4#make-u8vector\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\016\001number-vector\077\376\001\000\000\025\001srfi-4#number-vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001read-u8vector\376\001" "\000\000\024\001srfi-4#read-u8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001read-u8vector!\376\001\000\000\025\001srfi-4#read-u8vector" "!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001release-number-vector\376\001\000\000\034\001srfi-4#release-number-vector\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\014\001subf32vector\376\001\000\000\023\001srfi-4#subf32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001subf64vector\376\001\000\000\023\001s" "rfi-4#subf64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001subs16vector\376\001\000\000\023\001srfi-4#subs16vector\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\014\001subs32vector\376\001\000\000\023\001srfi-4#subs32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001subs64vector\376\001\000\000\023\001sr" "fi-4#subs64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001subs8vector\376\001\000\000\022\001srfi-4#subs8vector\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\014\001subu16vector\376\001\000\000\023\001srfi-4#subu16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001subu8vector\376\001\000\000\022\001srfi-4" "#subu8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001subu32vector\376\001\000\000\023\001srfi-4#subu32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014" "\001subu64vector\376\001\000\000\023\001srfi-4#subu64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001write-u8vector\376\001\000\000\025\001srfi-4" "#write-u8vector\376\377\016")); lf[102]=C_h_intern(&lf[102],25, C_text("##sys#import-library-hook")); C_register_lf2(lf,103,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_456,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[44] = { {C_text("f_1005:eval_2dmodules_2escm"),(void*)f_1005}, {C_text("f_1023:eval_2dmodules_2escm"),(void*)f_1023}, {C_text("f_1041:eval_2dmodules_2escm"),(void*)f_1041}, {C_text("f_1059:eval_2dmodules_2escm"),(void*)f_1059}, {C_text("f_1077:eval_2dmodules_2escm"),(void*)f_1077}, {C_text("f_1095:eval_2dmodules_2escm"),(void*)f_1095}, {C_text("f_1113:eval_2dmodules_2escm"),(void*)f_1113}, {C_text("f_1131:eval_2dmodules_2escm"),(void*)f_1131}, {C_text("f_456:eval_2dmodules_2escm"),(void*)f_456}, {C_text("f_458:eval_2dmodules_2escm"),(void*)f_458}, {C_text("f_476:eval_2dmodules_2escm"),(void*)f_476}, {C_text("f_494:eval_2dmodules_2escm"),(void*)f_494}, {C_text("f_500:eval_2dmodules_2escm"),(void*)f_500}, {C_text("f_518:eval_2dmodules_2escm"),(void*)f_518}, {C_text("f_536:eval_2dmodules_2escm"),(void*)f_536}, {C_text("f_554:eval_2dmodules_2escm"),(void*)f_554}, {C_text("f_572:eval_2dmodules_2escm"),(void*)f_572}, {C_text("f_590:eval_2dmodules_2escm"),(void*)f_590}, {C_text("f_596:eval_2dmodules_2escm"),(void*)f_596}, {C_text("f_614:eval_2dmodules_2escm"),(void*)f_614}, {C_text("f_632:eval_2dmodules_2escm"),(void*)f_632}, {C_text("f_650:eval_2dmodules_2escm"),(void*)f_650}, {C_text("f_668:eval_2dmodules_2escm"),(void*)f_668}, {C_text("f_686:eval_2dmodules_2escm"),(void*)f_686}, {C_text("f_697:eval_2dmodules_2escm"),(void*)f_697}, {C_text("f_699:eval_2dmodules_2escm"),(void*)f_699}, {C_text("f_717:eval_2dmodules_2escm"),(void*)f_717}, {C_text("f_735:eval_2dmodules_2escm"),(void*)f_735}, {C_text("f_753:eval_2dmodules_2escm"),(void*)f_753}, {C_text("f_771:eval_2dmodules_2escm"),(void*)f_771}, {C_text("f_789:eval_2dmodules_2escm"),(void*)f_789}, {C_text("f_807:eval_2dmodules_2escm"),(void*)f_807}, {C_text("f_825:eval_2dmodules_2escm"),(void*)f_825}, {C_text("f_843:eval_2dmodules_2escm"),(void*)f_843}, {C_text("f_861:eval_2dmodules_2escm"),(void*)f_861}, {C_text("f_879:eval_2dmodules_2escm"),(void*)f_879}, {C_text("f_897:eval_2dmodules_2escm"),(void*)f_897}, {C_text("f_915:eval_2dmodules_2escm"),(void*)f_915}, {C_text("f_933:eval_2dmodules_2escm"),(void*)f_933}, {C_text("f_951:eval_2dmodules_2escm"),(void*)f_951}, {C_text("f_969:eval_2dmodules_2escm"),(void*)f_969}, {C_text("f_987:eval_2dmodules_2escm"),(void*)f_987}, {C_text("toplevel:eval_2dmodules_2escm"),(void*)C_eval_2dmodules_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 109 o|inlining procedure: k692 o|propagated global variable: r6931147 ##sys#chicken.time-macro-environment o|inlining procedure: k692 o|propagated global variable: r6931149 ##sys#chicken.base-macro-environment o|inlining procedure: k1133 o|contracted procedure: "(eval-modules.scm:100) g307308" o|inlining procedure: k1133 o|replaced variables: 81 o|removed binding forms: 3 o|propagated global variable: a6911148 ##sys#chicken.time-macro-environment o|propagated global variable: a6911150 ##sys#chicken.base-macro-environment o|replaced variables: 1 o|removed binding forms: 80 o|removed binding forms: 1 o|simplifications: ((##core#call . 108)) o| call simplifications: o| scheme#list 108 o|contracted procedure: k464 o|contracted procedure: k468 o|contracted procedure: k472 o|contracted procedure: k482 o|contracted procedure: k486 o|contracted procedure: k490 o|contracted procedure: k506 o|contracted procedure: k510 o|contracted procedure: k514 o|contracted procedure: k524 o|contracted procedure: k528 o|contracted procedure: k532 o|contracted procedure: k542 o|contracted procedure: k546 o|contracted procedure: k550 o|contracted procedure: k560 o|contracted procedure: k564 o|contracted procedure: k568 o|contracted procedure: k578 o|contracted procedure: k582 o|contracted procedure: k586 o|contracted procedure: k602 o|contracted procedure: k606 o|contracted procedure: k610 o|contracted procedure: k620 o|contracted procedure: k624 o|contracted procedure: k628 o|contracted procedure: k638 o|contracted procedure: k642 o|contracted procedure: k646 o|contracted procedure: k656 o|contracted procedure: k660 o|contracted procedure: k664 o|contracted procedure: k674 o|contracted procedure: k678 o|contracted procedure: k682 o|contracted procedure: k705 o|contracted procedure: k709 o|contracted procedure: k713 o|contracted procedure: k723 o|contracted procedure: k727 o|contracted procedure: k731 o|contracted procedure: k741 o|contracted procedure: k745 o|contracted procedure: k749 o|contracted procedure: k759 o|contracted procedure: k763 o|contracted procedure: k767 o|contracted procedure: k777 o|contracted procedure: k781 o|contracted procedure: k785 o|contracted procedure: k795 o|contracted procedure: k799 o|contracted procedure: k803 o|contracted procedure: k813 o|contracted procedure: k817 o|contracted procedure: k821 o|contracted procedure: k831 o|contracted procedure: k835 o|contracted procedure: k839 o|contracted procedure: k849 o|contracted procedure: k853 o|contracted procedure: k857 o|contracted procedure: k867 o|contracted procedure: k871 o|contracted procedure: k875 o|contracted procedure: k885 o|contracted procedure: k889 o|contracted procedure: k893 o|contracted procedure: k903 o|contracted procedure: k907 o|contracted procedure: k911 o|contracted procedure: k921 o|contracted procedure: k925 o|contracted procedure: k929 o|contracted procedure: k939 o|contracted procedure: k943 o|contracted procedure: k947 o|contracted procedure: k957 o|contracted procedure: k961 o|contracted procedure: k965 o|contracted procedure: k975 o|contracted procedure: k979 o|contracted procedure: k983 o|contracted procedure: k993 o|contracted procedure: k997 o|contracted procedure: k1001 o|contracted procedure: k1011 o|contracted procedure: k1015 o|contracted procedure: k1019 o|contracted procedure: k1029 o|contracted procedure: k1033 o|contracted procedure: k1037 o|contracted procedure: k1047 o|contracted procedure: k1051 o|contracted procedure: k1055 o|contracted procedure: k1065 o|contracted procedure: k1069 o|contracted procedure: k1073 o|contracted procedure: k1083 o|contracted procedure: k1087 o|contracted procedure: k1091 o|contracted procedure: k1101 o|contracted procedure: k1105 o|contracted procedure: k1109 o|contracted procedure: k1119 o|contracted procedure: k1123 o|contracted procedure: k1127 o|removed binding forms: 108 o|substituted constant variable: r465 o|substituted constant variable: r469 o|substituted constant variable: r465 o|substituted constant variable: r469 o|substituted constant variable: r473 o|substituted constant variable: r483 o|substituted constant variable: r487 o|substituted constant variable: r483 o|substituted constant variable: r487 o|substituted constant variable: r491 o|substituted constant variable: r507 o|substituted constant variable: r511 o|substituted constant variable: r507 o|substituted constant variable: r511 o|substituted constant variable: r515 o|substituted constant variable: r525 o|substituted constant variable: r529 o|substituted constant variable: r525 o|substituted constant variable: r529 o|substituted constant variable: r533 o|substituted constant variable: r543 o|substituted constant variable: r547 o|substituted constant variable: r543 o|substituted constant variable: r547 o|substituted constant variable: r551 o|substituted constant variable: r561 o|substituted constant variable: r565 o|substituted constant variable: r561 o|substituted constant variable: r565 o|substituted constant variable: r569 o|substituted constant variable: r579 o|substituted constant variable: r583 o|substituted constant variable: r579 o|substituted constant variable: r583 o|substituted constant variable: r587 o|substituted constant variable: r603 o|substituted constant variable: r607 o|substituted constant variable: r603 o|substituted constant variable: r607 o|substituted constant variable: r611 o|substituted constant variable: r621 o|substituted constant variable: r625 o|substituted constant variable: r621 o|substituted constant variable: r625 o|substituted constant variable: r629 o|substituted constant variable: r639 o|substituted constant variable: r643 o|substituted constant variable: r639 o|substituted constant variable: r643 o|substituted constant variable: r647 o|substituted constant variable: r657 o|substituted constant variable: r661 o|substituted constant variable: r657 o|substituted constant variable: r661 o|substituted constant variable: r665 o|substituted constant variable: r675 o|substituted constant variable: r679 o|substituted constant variable: r675 o|substituted constant variable: r679 o|substituted constant variable: r683 o|substituted constant variable: r706 o|substituted constant variable: r710 o|substituted constant variable: r706 o|substituted constant variable: r710 o|substituted constant variable: r714 o|substituted constant variable: r724 o|substituted constant variable: r728 o|substituted constant variable: r724 o|substituted constant variable: r728 o|substituted constant variable: r732 o|substituted constant variable: r742 o|substituted constant variable: r746 o|substituted constant variable: r742 o|substituted constant variable: r746 o|substituted constant variable: r750 o|substituted constant variable: r760 o|substituted constant variable: r764 o|substituted constant variable: r760 o|substituted constant variable: r764 o|substituted constant variable: r768 o|substituted constant variable: r778 o|substituted constant variable: r782 o|substituted constant variable: r778 o|substituted constant variable: r782 o|substituted constant variable: r786 o|substituted constant variable: r796 o|substituted constant variable: r800 o|substituted constant variable: r796 o|substituted constant variable: r800 o|substituted constant variable: r804 o|substituted constant variable: r814 o|substituted constant variable: r818 o|substituted constant variable: r814 o|substituted constant variable: r818 o|substituted constant variable: r822 o|substituted constant variable: r832 o|substituted constant variable: r836 o|substituted constant variable: r832 o|substituted constant variable: r836 o|substituted constant variable: r840 o|substituted constant variable: r850 o|substituted constant variable: r854 o|substituted constant variable: r850 o|substituted constant variable: r854 o|substituted constant variable: r858 o|substituted constant variable: r868 o|substituted constant variable: r872 o|substituted constant variable: r868 o|substituted constant variable: r872 o|substituted constant variable: r876 o|substituted constant variable: r886 o|substituted constant variable: r890 o|substituted constant variable: r886 o|substituted constant variable: r890 o|substituted constant variable: r894 o|substituted constant variable: r904 o|substituted constant variable: r908 o|substituted constant variable: r904 o|substituted constant variable: r908 o|substituted constant variable: r912 o|substituted constant variable: r922 o|substituted constant variable: r926 o|substituted constant variable: r922 o|substituted constant variable: r926 o|substituted constant variable: r930 o|substituted constant variable: r940 o|substituted constant variable: r944 o|substituted constant variable: r940 o|substituted constant variable: r944 o|substituted constant variable: r948 o|substituted constant variable: r958 o|substituted constant variable: r962 o|substituted constant variable: r958 o|substituted constant variable: r962 o|substituted constant variable: r966 o|substituted constant variable: r976 o|substituted constant variable: r980 o|substituted constant variable: r976 o|substituted constant variable: r980 o|substituted constant variable: r984 o|substituted constant variable: r994 o|substituted constant variable: r998 o|substituted constant variable: r994 o|substituted constant variable: r998 o|substituted constant variable: r1002 o|substituted constant variable: r1012 o|substituted constant variable: r1016 o|substituted constant variable: r1012 o|substituted constant variable: r1016 o|substituted constant variable: r1020 o|substituted constant variable: r1030 o|substituted constant variable: r1034 o|substituted constant variable: r1030 o|substituted constant variable: r1034 o|substituted constant variable: r1038 o|substituted constant variable: r1048 o|substituted constant variable: r1052 o|substituted constant variable: r1048 o|substituted constant variable: r1052 o|substituted constant variable: r1056 o|substituted constant variable: r1066 o|substituted constant variable: r1070 o|substituted constant variable: r1066 o|substituted constant variable: r1070 o|substituted constant variable: r1074 o|substituted constant variable: r1084 o|substituted constant variable: r1088 o|substituted constant variable: r1084 o|substituted constant variable: r1088 o|substituted constant variable: r1092 o|substituted constant variable: r1102 o|substituted constant variable: r1106 o|substituted constant variable: r1102 o|substituted constant variable: r1106 o|substituted constant variable: r1110 o|substituted constant variable: r1120 o|substituted constant variable: r1124 o|substituted constant variable: r1120 o|substituted constant variable: r1124 o|substituted constant variable: r1128 o|removed binding forms: 180 */ /* end of file */ chicken-5.1.0/chicken.rc0000644000175000017500000000013013213463160014652 0ustar sjamaansjamaan/* chicken.rc - Resource script for Windoze - felix */ CHICKEN_ICON ICON "chicken.ico" chicken-5.1.0/types.db0000644000175000017500000044756213502227553014430 0ustar sjamaansjamaan;;;; types.db - Type-information for core library functions -*- Scheme -*- ; ; Copyright (c) 2009-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. ;;; Notes: ; ; - numeric types are disjoint, "fixnum" or "float" will not match "number" in the ; rewrite rules ; - for a description of the type-specifier syntax, see "scrutinizer.scm" (top of file) ; - in templates, "#(INTEGER)" refers to the INTEGERth argument (starting from 1) ; - in templates, "#(INTEGER ...)" refers to the INTEGERth argument (starting from 1) and ; all remaining arguments ; - in templates "#(SYMBOL)" binds X to a temporary gensym'd variable, further references ; to "#(SYMBOL)" allow backreferences to this generated identifier ; - "#(procedure PROPERTY ...)" may be used in place of "procedure", properties are: ; #:clean - procedure does not modify state that might be used locally ; #:enforce - when procedure returns, arguments are of correct type ; #:foldable - procedure may be constant-folded ; #:predicate TYPE - procedure is a predicate on TYPE (implies #:foldable) ; #:pure - procedure has no side effects ; - "#:clean" means: will not invoke procedures that modify local variables and ; will not modify list or vector data held locally (note that I/O may invoke ; port handlers) ; - "#:pure" means: will not have side-effects; this is a bit of a lie, ; since arity-mismatch will for example always have a side effect. ; - "#:enforce" means: after return from this procedure, the argument is of ; the correct type (it would have signalled an error otherwise) ; - "#:foldable" means: when applied to constant arguments, direct calls ; to this procedure may be evaluated at compile time. ;; scheme (scheme#not (#(procedure #:pure #:foldable) scheme#not (*) boolean) ((true) (false) (let ((#(tmp) #(1))) '#f)) ((false) (true) (let ((#(tmp) #(1))) '#t)) (((not boolean)) (false) (let ((#(tmp) #(1))) '#f))) (scheme#boolean? (#(procedure #:pure #:predicate boolean) scheme#boolean? (*) boolean)) (scheme#eq? (#(procedure #:pure #:foldable) scheme#eq? (* *) boolean)) (scheme#eqv? (#(procedure #:pure #:foldable) scheme#eqv? (* *) boolean) (((or immediate symbol keyword) *) (scheme#eq? #(1) #(2))) ((* (or immediate symbol keyword)) (scheme#eq? #(1) #(2))) ((* *) (##core#inline "C_i_eqvp" #(1) #(2)))) (scheme#equal? (#(procedure #:pure #:foldable) scheme#equal? (* *) boolean) (((or immediate symbol keyword) *) (scheme#eq? #(1) #(2))) ((* (or immediate symbol keyword)) (scheme#eq? #(1) #(2))) ((number number) (##core#inline "C_i_eqvp" #(1) #(2)))) (scheme#pair? (#(procedure #:pure #:predicate pair) scheme#pair? (*) boolean)) (scheme#cons (forall (a b) (#(procedure #:pure) scheme#cons (a b) (pair a b)))) (##sys#cons (forall (a b) (#(procedure #:pure) ##sys#cons (a b) (pair a b)))) (scheme#car (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#car ((pair a *)) a)) ((pair) (##core#inline "C_u_i_car" #(1)))) (scheme#cdr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cdr ((pair * a)) a)) ((pair) (##core#inline "C_u_i_cdr" #(1)))) (scheme#caar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#caar ((pair (pair a *) *)) a)) (((pair (pair * *) *)) (##core#inline "C_u_i_car" (##core#inline "C_u_i_car" #(1))))) (scheme#cadr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cadr ((pair * (pair a *))) a)) (((pair * (pair * *))) (##core#inline "C_u_i_car" (##core#inline "C_u_i_cdr" #(1))))) (scheme#cdar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cdar ((pair (pair * a) *)) a)) (((pair (pair * *) *)) (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_car" #(1))))) (scheme#cddr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cddr ((pair * (pair * a))) a)) (((pair * (pair * *))) (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_cdr" #(1))))) (scheme#caaar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#caaar ((pair (pair (pair a *) *) *)) a)) (((pair (pair (pair * *) *) *)) (##core#inline "C_u_i_car" (##core#inline "C_u_i_car" (##core#inline "C_u_i_car" #(1)))))) (scheme#caadr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#caadr ((pair * (pair (pair a *) *))) a)) (((pair * (pair (pair * *) *))) (##core#inline "C_u_i_car" (##core#inline "C_u_i_car" (##core#inline "C_u_i_cdr" #(1)))))) (scheme#cadar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cadar ((pair (pair * (pair a *)) *)) a)) (((pair (pair * (pair * *)) *)) (##core#inline "C_u_i_car" (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_car" #(1)))))) (scheme#caddr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#caddr ((pair * (pair * (pair a *)))) a)) (((pair * (pair * (pair * *)))) (##core#inline "C_u_i_car" (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_cdr" #(1)))))) (scheme#cdaar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cdaar ((pair (pair (pair * a) *) *)) a)) (((pair (pair (pair * *) *) *)) (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_car" (##core#inline "C_u_i_car" #(1)))))) (scheme#cdadr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cdadr ((pair * (pair (pair * a) *))) a)) (((pair * (pair (pair * *) *))) (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_car" (##core#inline "C_u_i_cdr" #(1)))))) (scheme#cddar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cddar ((pair (pair * (pair * a)) *)) a)) (((pair (pair * (pair * *)) *)) (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_car" #(1)))))) (scheme#cdddr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cdddr ((pair * (pair * (pair * a)))) a)) (((pair * (pair * (pair * *)))) (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_cdr" (##core#inline "C_u_i_cdr" #(1)))))) (scheme#caaaar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#caaaar ((pair (pair (pair (pair a *) *) *) *)) a))) (scheme#caaadr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#caaadr ((pair * (pair (pair (pair a *) *) *))) a))) (scheme#caadar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#caadar ((pair (pair * (pair (pair a *) *)) *)) a))) (scheme#caaddr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#caaddr ((pair * (pair * (pair (pair a *) *)))) a))) (scheme#cadaar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cadaar ((pair (pair (pair * (pair a *)) *) *)) a))) (scheme#cadadr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cadadr ((pair * (pair (pair * (pair a *)) *))) a))) (scheme#caddar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#caddar ((pair (pair * (pair * (pair a *))) *)) a))) (scheme#cadddr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cadddr ((pair * (pair * (pair * (pair a *))))) a))) (scheme#cdaaar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cdaaar ((pair (pair (pair (pair * a) *) *) *)) a))) (scheme#cdaadr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cdaadr ((pair * (pair (pair (pair * a) *) *))) a))) (scheme#cdadar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cdadar ((pair (pair * (pair (pair * a) *)) *)) a))) (scheme#cdaddr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cdaddr ((pair * (pair * (pair (pair * a) *)))) a))) (scheme#cddaar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cddaar ((pair (pair (pair * (pair * a)) *) *)) a))) (scheme#cddadr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cddadr ((pair * (pair (pair * (pair * a)) *))) a))) (scheme#cdddar (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cdddar ((pair (pair * (pair * (pair * a))) *)) a))) (scheme#cddddr (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#cddddr ((pair * (pair * (pair * (pair * a))))) a))) (scheme#set-car! (#(procedure #:enforce) scheme#set-car! (pair *) undefined) ((pair (or fixnum char boolean eof null undefined)) (##sys#setislot #(1) '0 #(2))) ((pair *) (##sys#setslot #(1) '0 #(2)))) (scheme#set-cdr! (#(procedure #:enforce) scheme#set-cdr! (pair *) undefined) ((pair (or fixnum char boolean eof null undefined)) (##sys#setislot #(1) '1 #(2))) ((pair *) (##sys#setslot #(1) '1 #(2)))) (scheme#null? (#(procedure #:pure #:predicate null) scheme#null? (*) boolean)) (scheme#list? (#(procedure #:pure #:predicate list) scheme#list? (*) boolean)) ;; special cased (see scrutinizer.scm) (scheme#list (#(procedure #:pure) scheme#list (#!rest) list)) (##sys#list (#(procedure #:pure) ##sys#list (#!rest) list)) (scheme#length (#(procedure #:clean #:enforce #:foldable) scheme#length (list) fixnum) ; may loop ((null) (let ((#(tmp) #(1))) '0)) ((list) (##core#inline "C_u_i_length" #(1)))) (##sys#length (#(procedure #:clean #:enforce #:foldable) ##sys#length (list) fixnum) ((null) (let ((#(tmp) #(1))) '0)) ((list) (##core#inline "C_u_i_length" #(1)))) ;; these are special cased (see scrutinizer.scm) (scheme#list-tail (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#list-tail ((list-of a) fixnum) (list-of a)))) (scheme#list-ref (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#list-ref ((list-of a) fixnum) a))) ;; special cased (see scrutinizer.scm) (scheme#append (#(procedure #:clean) scheme#append (#!rest *) *)) ; sic (##sys#append (#(procedure #:clean) ##sys#append (#!rest *) *)) ;; special cased (see scrutinizer.scm) (scheme#reverse (forall (a) (#(procedure #:clean #:enforce) scheme#reverse ((list-of a)) (list-of a))) ((null) (null) (let ((#(tmp) #(1))) '()))) (scheme#memq (forall (a b) (#(procedure #:clean #:foldable) scheme#memq (a (list-of b)) (or false (pair a (list-of b))))) ((* null) (let ((#(tmp) #(1))) '#f)) ((* list) (##core#inline "C_u_i_memq" #(1) #(2)))) (scheme#memv (forall (a b) (#(procedure #:clean #:foldable) scheme#memv (a (list-of b)) (or false (pair a (list-of b))))) ((* null) (let ((#(tmp) #(1))) '#f)) (((or symbol keyword procedure immediate) list) (##core#inline "C_u_i_memq" #(1) #(2)))) (scheme#member (forall (a b) (#(procedure #:clean #:foldable) scheme#member (a (list-of b)) (or false (pair a (list-of b))))) ((* null) (let ((#(tmp) #(1))) '#f)) (((or symbol keyword procedure immediate) list) (##core#inline "C_u_i_memq" #(1) #(2))) ((* (list-of (or symbol keyword procedure immediate))) (##core#inline "C_u_i_memq" #(1) #(2)))) (scheme#assq (forall (a b c) (#(procedure #:clean #:foldable) scheme#assq (a (list-of (pair b c))) (or false (pair a c)))) ((* null) (let ((#(tmp) #(1))) '#f)) ((* (list-of pair)) (##core#inline "C_u_i_assq" #(1) #(2)))) (scheme#assv (forall (a b c) (#(procedure #:clean #:foldable) scheme#assv (a (list-of (pair b c))) (or false (pair a c)))) ((* null) (let ((#(tmp) #(1))) '#f)) (((or symbol keyword immediate procedure) (list-of pair)) (##core#inline "C_u_i_assq" #(1) #(2))) ((* (list-of (pair (or symbol keyword procedure immediate) *))) (##core#inline "C_u_i_assq" #(1) #(2)))) (scheme#assoc (forall (a b c) (#(procedure #:clean #:foldable) scheme#assoc (a (list-of (pair b c))) (or false (pair a c)))) ((* null) (let ((#(tmp) #(1))) '#f)) (((or symbol keyword procedure immediate) (list-of pair)) (##core#inline "C_u_i_assq" #(1) #(2))) ((* (list-of (pair (or symbol keyword procedure immediate) *))) (##core#inline "C_u_i_assq" #(1) #(2)))) (scheme#symbol? (#(procedure #:pure #:predicate symbol) scheme#symbol? (*) boolean)) (scheme#symbol->string (#(procedure #:clean #:enforce) scheme#symbol->string (symbol) string)) (scheme#string->symbol (#(procedure #:clean #:enforce #:foldable) scheme#string->symbol (string) symbol)) (scheme#number? (#(procedure #:pure #:predicate number) scheme#number? (*) boolean)) ;;XXX predicate? (scheme#integer? (#(procedure #:pure #:foldable) scheme#integer? (*) boolean) ((integer) (let ((#(tmp) #(1))) '#t)) ((float) (##core#inline "C_u_i_fpintegerp" #(1))) ((*) (##core#inline "C_i_integerp" #(1)))) (scheme#real? (#(procedure #:pure #:foldable) scheme#real? (*) boolean) (((or fixnum float bignum ratnum)) (let ((#(tmp) #(1))) '#t)) ((cplxnum) (let ((#(tmp) #(1))) '#f)) ((*) (##core#inline "C_i_realp" #(1)))) (scheme#complex? (#(procedure #:pure #:predicate number) scheme#complex? (*) boolean)) (scheme#exact? (#(procedure #:clean #:enforce #:foldable) scheme#exact? (number) boolean) (((or integer ratnum)) (let ((#(tmp) #(1))) '#t)) ((float) (let ((#(tmp) #(1))) '#f))) (scheme#inexact? (#(procedure #:clean #:enforce #:foldable) scheme#inexact? (number) boolean) (((or integer ratnum)) (let ((#(tmp) #(1))) '#f)) ((float) (let ((#(tmp) #(1))) '#t))) ;;XXX predicate? (scheme#rational? (#(procedure #:pure #:foldable) scheme#rational? (*) boolean) (((or fixnum bignum ratnum)) (let ((#(tmp) #(1))) '#t)) ((cplxnum) (let ((#(tmp) #(1))) '#f)) ((float) (##core#inline "C_u_i_flonum_finitep" #(1))) ((*) (##core#inline "C_i_rationalp" #(1)))) (scheme#zero? (#(procedure #:clean #:enforce #:foldable) scheme#zero? (number) boolean) ((integer) (scheme#eq? #(1) '0)) (((or cplxnum ratnum)) (let ((#(tmp) #(1))) '#f)) ((number) (##core#inline "C_u_i_zerop" #(1))) ((*) (##core#inline "C_i_zerop" #(1)))) (scheme#odd? (#(procedure #:clean #:enforce #:foldable) scheme#odd? (number) boolean) ((fixnum) (##core#inline "C_i_fixnumoddp" #(1))) ((integer) (##core#inline "C_i_integer_oddp" #(1))) ((*) (##core#inline "C_i_oddp" #(1)))) (scheme#even? (#(procedure #:clean #:enforce #:foldable) scheme#even? (number) boolean) ((fixnum) (##core#inline "C_i_fixnumevenp" #(1))) ((integer) (##core#inline "C_i_integer_evenp" #(1))) ((*) (##core#inline "C_i_evenp" #(1)))) (scheme#positive? (#(procedure #:clean #:enforce #:foldable) scheme#positive? (number) boolean) ((fixnum) (##core#inline "C_i_fixnum_positivep" #(1))) ((integer) (##core#inline "C_i_integer_positivep" #(1))) ((*) (##core#inline "C_i_positivep" #(1)))) (scheme#negative? (#(procedure #:clean #:enforce #:foldable) scheme#negative? (number) boolean) ((fixnum) (##core#inline "C_i_fixnum_negativep" #(1))) ((integer) (##core#inline "C_i_integer_negativep" #(1))) ((*) (##core#inline "C_i_negativep" #(1)))) (scheme#max (#(procedure #:clean #:enforce #:foldable) scheme#max (#!rest number) number) ((fixnum fixnum) (chicken.fixnum#fxmax #(1) #(2))) ((float float) (##core#inline "C_i_flonum_max" #(1) #(2)))) (scheme#min (#(procedure #:clean #:enforce #:foldable) scheme#min (#!rest number) number) ((fixnum fixnum) (chicken.fixnum#fxmin #(1) #(2))) ((float float) (##core#inline "C_i_flonum_min" #(1) #(2)))) (scheme#+ (#(procedure #:clean #:enforce #:foldable) scheme#+ (#!rest number) number) (() (fixnum) '0) ((fixnum) (fixnum) #(1)) ((float) (float) #(1)) ((integer) (integer) #(1)) ((ratnum) (ratnum) #(1)) ((cplxnum) (cplxnum) #(1)) ((number) (number) #(1)) ((float fixnum) (float) (##core#inline_allocate ("C_a_i_flonum_plus" 4) #(1) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(2)))) ((fixnum float) (float) (##core#inline_allocate ("C_a_i_flonum_plus" 4) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2))) ((float float) (float) (##core#inline_allocate ("C_a_i_flonum_plus" 4) #(1) #(2))) ((fixnum fixnum) (integer) (##core#inline_allocate ("C_a_i_fixnum_plus" 5) #(1) #(2))) ((integer integer) (integer) (##core#inline_allocate ("C_s_a_u_i_integer_plus" 5) #(1) #(2)))) (scheme#- (#(procedure #:clean #:enforce #:foldable) scheme#- (number #!rest number) number) ((fixnum) (integer) (##core#inline_allocate ("C_a_i_fixnum_negate" 5) #(1))) ((integer) (integer) (##core#inline_allocate ("C_s_a_u_i_integer_negate" 5) #(1))) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_negate" 4) #(1))) ((*) (*) (##core#inline_allocate ("C_s_a_i_negate" 29) #(1))) ((float fixnum) (float) (##core#inline_allocate ("C_a_i_flonum_difference" 4) #(1) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(2)))) ((fixnum float) (float) (##core#inline_allocate ("C_a_i_flonum_difference" 4) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2))) ((float float) (float) (##core#inline_allocate ("C_a_i_flonum_difference" 4) #(1) #(2))) ((fixnum fixnum) (integer) (##core#inline_allocate ("C_a_i_fixnum_difference" 5) #(1) #(2))) ((integer integer) (integer) (##core#inline_allocate ("C_s_a_u_i_integer_minus" 5) #(1) #(2)))) (scheme#* (#(procedure #:clean #:enforce #:foldable) scheme#* (#!rest number) number) (() (fixnum) '1) ((fixnum) (fixnum) #(1)) ((float) (float) #(1)) ((bignum) (bignum) #(1)) ((integer) (integer) #(1)) ((ratnum) (ratnum) #(1)) ((cplxnum) (cplxnum) #(1)) ((number) (number) #(1)) ((float fixnum) (float) (##core#inline_allocate ("C_a_i_flonum_times" 4) #(1) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(2)))) ((fixnum float) (float) (##core#inline_allocate ("C_a_i_flonum_times" 4) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2))) ((float float) (float) (##core#inline_allocate ("C_a_i_flonum_times" 4) #(1) #(2))) ((fixnum fixnum) (integer) (##core#inline_allocate ("C_a_i_fixnum_times" 5) #(1) #(2))) ((integer integer) (integer) (##core#inline_allocate ("C_s_a_u_i_integer_times" 5) #(1) #(2)))) (scheme#/ (#(procedure #:clean #:enforce #:foldable) scheme#/ (number #!rest number) number) ((float fixnum) (float) ;; This is the only checked one because the divisor is an exact value (##core#inline_allocate ("C_a_i_flonum_quotient_checked" 4) #(1) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(2)))) ((fixnum float) (float) (##core#inline_allocate ("C_a_i_flonum_quotient" 4) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2))) ((float float) (float) (##core#inline_allocate ("C_a_i_flonum_quotient" 4) #(1) #(2))) ((integer integer) ((or integer ratnum)) (##sys#/-2 #(1) #(2))) ((* *) (number) (##sys#/-2 #(1) #(2)))) (scheme#= (#(procedure #:clean #:enforce #:foldable) scheme#= (#!rest number) boolean) (() '#t) ((number) (let ((#(tmp) #(1))) '#t)) ((fixnum fixnum) (scheme#eq? #(1) #(2))) ((float float) (##core#inline "C_flonum_equalp" #(1) #(2))) ((integer integer) (##core#inline "C_i_integer_equalp" #(1) #(2)))) (scheme#> (#(procedure #:clean #:enforce #:foldable) scheme#> (#!rest number) boolean) (() '#t) ((number) (let ((#(tmp) #(1))) '#t)) ((fixnum fixnum) (chicken.fixnum#fx> #(1) #(2))) ((float float) (##core#inline "C_flonum_greaterp" #(1) #(2))) ((integer integer) (##core#inline "C_i_integer_greaterp" #(1) #(2)))) (scheme#< (#(procedure #:clean #:enforce #:foldable) scheme#< (#!rest number) boolean) (() '#t) ((number) (let ((#(tmp) #(1))) '#t)) ((fixnum fixnum) (chicken.fixnum#fx< #(1) #(2))) ((integer integer) (##core#inline "C_i_integer_lessp" #(1) #(2))) ((float float) (##core#inline "C_flonum_lessp" #(1) #(2)))) (scheme#>= (#(procedure #:clean #:enforce #:foldable) scheme#>= (#!rest number) boolean) (() '#t) ((number) (let ((#(tmp) #(1))) '#t)) ((fixnum fixnum) (chicken.fixnum#fx>= #(1) #(2))) ((integer integer) (##core#inline "C_i_integer_greater_or_equalp" #(1) #(2))) ((float float) (##core#inline "C_flonum_greater_or_equal_p" #(1) #(2)))) (scheme#<= (#(procedure #:clean #:enforce #:foldable) scheme#<= (#!rest number) boolean) (() '#t) ((number) (let ((#(tmp) #(1))) '#t)) ((fixnum fixnum) (chicken.fixnum#fx<= #(1) #(2))) ((integer integer) (##core#inline "C_i_integer_less_or_equalp" #(1) #(2))) ((float float) (##core#inline "C_flonum_less_or_equal_p" #(1) #(2)))) (scheme#quotient (#(procedure #:clean #:enforce #:foldable) scheme#quotient ((or integer float) (or integer float)) (or integer float)) ;;XXX flonum/mixed case ((float float) (float) (##core#inline_allocate ("C_a_i_flonum_actual_quotient_checked" 4) #(1) #(2))) ((fixnum fixnum) (integer) (##core#inline_allocate ("C_a_i_fixnum_quotient_checked" 5) #(1) #(2))) ((integer integer) (integer) (##core#inline_allocate ("C_s_a_u_i_integer_quotient" 5) #(1) #(2)))) (scheme#remainder (#(procedure #:clean #:enforce #:foldable) scheme#remainder ((or integer float) (or integer float)) (or integer float)) ((float float) (float) (##core#inline_allocate ("C_a_i_flonum_remainder_checked" 4) #(1) #(2))) ;;XXX flonum/mixed case ((fixnum fixnum) (fixnum) (##core#inline "C_i_fixnum_remainder_checked" #(1) #(2))) ((integer integer) (integer) (##core#inline_allocate ("C_s_a_u_i_integer_remainder" 5) #(1) #(2)))) (scheme#modulo (#(procedure #:clean #:enforce #:foldable) scheme#modulo ((or integer float) (or integer float)) (or integer float)) ((float float) (float) (##core#inline_allocate ("C_a_i_flonum_modulo_checked" 4) #(1) #(2))) ;;XXX flonum/mixed case ((fixnum fixnum) (fixnum) (##core#inline "C_fixnum_modulo" #(1) #(2))) ((integer integer) (integer) (##core#inline_allocate ("C_s_a_u_i_integer_modulo" 5) #(1) #(2)))) (scheme#gcd (#(procedure #:clean #:enforce #:foldable) scheme#gcd (#!rest (or integer float)) (or integer float)) (() '0) ((fixnum fixnum) (fixnum) (chicken.fixnum#fxgcd #(1) #(2))) ((float float) (float) (chicken.flonum#fpgcd #(1) #(2))) ((integer integer) (integer) (##core#inline_allocate ("C_s_a_u_i_integer_gcd" 5) #(1) #(2))) ((* *) (##sys#gcd #(1) #(2)))) (##sys#gcd (#(procedure #:clean #:enforce #:foldable) ##sys#gcd (number number) number)) (scheme#lcm (#(procedure #:clean #:enforce #:foldable) scheme#lcm (#!rest number) number) (() '1) ((* *) (##sys#lcm #(1) #(2)))) (##sys#lcm (#(procedure #:clean #:enforce #:foldable) ##sys#lcm (number number) number)) (scheme#abs (#(procedure #:clean #:enforce #:foldable) scheme#abs (number) number) ((fixnum) (integer) (##core#inline_allocate ("C_a_i_fixnum_abs" 5) #(1))) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_abs" 4) #(1))) ((integer) (integer) (##core#inline_allocate ("C_s_a_u_i_integer_abs" 5) #(1))) ((*) (*) (##core#inline_allocate ("C_s_a_i_abs" 7) #(1)))) (scheme#floor (#(procedure #:clean #:enforce #:foldable) scheme#floor ((or integer ratnum float)) (or integer ratnum float)) ((fixnum) (fixnum) #(1)) ((integer) (integer) #(1)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_floor" 4) #(1)))) (scheme#ceiling (#(procedure #:clean #:enforce #:foldable) scheme#ceiling ((or integer ratnum float)) (or integer ratnum float)) ((fixnum) (fixnum) #(1)) ((integer) (integer) #(1)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_ceiling" 4) #(1)))) (scheme#truncate (#(procedure #:clean #:enforce #:foldable) scheme#truncate ((or integer ratnum float)) (or integer ratnum float)) ((fixnum) (fixnum) #(1)) ((integer) (integer) #(1)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_truncate" 4) #(1)))) (scheme#round (#(procedure #:clean #:enforce #:foldable) scheme#round ((or integer ratnum float)) (or integer ratnum float)) ((fixnum) (fixnum) #(1)) ((integer) (integer) #(1)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_round_proper" 4) #(1)))) (scheme#exact->inexact (#(procedure #:clean #:enforce #:foldable) scheme#exact->inexact (number) (or float cplxnum)) ((float) (float) #(1)) ((fixnum) (float) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1))) ((number) (##core#inline_allocate ("C_a_i_exact_to_inexact" 11) #(1)))) (scheme#inexact->exact (#(procedure #:clean #:enforce #:foldable) scheme#inexact->exact (number) (or integer ratnum)) ((fixnum) (fixnum) #(1)) ((integer) (integer) #(1)) ((ratnum) (ratnum) #(1)) (((or integer ratnum)) #(1))) (scheme#exp (#(procedure #:clean #:enforce #:foldable) scheme#exp (number) (or float cplxnum)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_exp" 4) #(1)))) (scheme#log (#(procedure #:clean #:enforce #:foldable) scheme#log (number) (or float cplxnum)) ;; Unfortunately this doesn't work when the argument is negative ;;((float) (float) (##core#inline_allocate ("C_a_i_flonum_log" 4) #(1))) ((*) (##sys#log-1 #(1)))) (scheme#expt (#(procedure #:clean #:enforce #:foldable) scheme#expt (number number) number) ;; This breaks in some extreme edge cases... Worth disabling? #;((float float) (float) (##core#inline_allocate ("C_a_i_flonum_expt" 4) #(1) #(2))) #;((float fixnum) (float) (##core#inline_allocate ("C_a_i_flonum_expt" 4) #(1) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(2)))) #;((fixnum float) (float) (##core#inline_allocate ("C_a_i_flonum_expt" 4) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)) #(2)))) (scheme#sqrt (#(procedure #:clean #:enforce #:foldable) scheme#sqrt (number) number) ;; Unfortunately this doesn't work when the argument is negative #;((float) (float) (##core#inline_allocate ("C_a_i_flonum_sqrt" 4) #(1)))) (scheme#sin (#(procedure #:clean #:enforce #:foldable) scheme#sin (number) (or float cplxnum)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_sin" 4) #(1)))) (scheme#cos (#(procedure #:clean #:enforce #:foldable) scheme#cos (number) (or float cplxnum)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_cos" 4) #(1)))) (scheme#tan (#(procedure #:clean #:enforce #:foldable) scheme#tan (number) (or float cplxnum)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_tan" 4) #(1)))) (scheme#asin (#(procedure #:clean #:enforce #:foldable) scheme#asin (number) (or float cplxnum)) ;; Unfortunately this doesn't work when the number is > 1.0 (returns compnum) #;((float) (float) (##core#inline_allocate ("C_a_i_flonum_acos" 4) #(1)))) (scheme#acos (#(procedure #:clean #:enforce #:foldable) scheme#acos (number) (or float cplxnum)) ;; Unfortunately this doesn't work when the number is > 1.0 (returns compnum) #;((float) (float) (##core#inline_allocate ("C_a_i_flonum_acos" 4) #(1)))) (scheme#atan (#(procedure #:clean #:enforce #:foldable) scheme#atan (number #!optional number) (or float cplxnum)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_atan" 4) #(1))) ((float float) (float) (##core#inline_allocate ("C_a_i_flonum_atan2" 4) #(1) #(2)))) (scheme#number->string (#(procedure #:clean #:enforce) scheme#number->string (number #!optional fixnum) string) ((fixnum fixnum) (##sys#fixnum->string #(1) #(2))) ((fixnum) (##sys#fixnum->string #(1) '10)) ((integer fixnum) (##sys#integer->string #(1) #(2))) ((integer) (##sys#integer->string #(1) '10)) ((float fixnum) (##sys#flonum->string #(1) #(2))) ((float) (##sys#flonum->string #(1) '10)) ((* *) (##sys#number->string #(1) #(2))) ((*) (##sys#number->string #(1) '10))) (##sys#fixnum->string (#(procedure #:clean #:enforce) ##sys#fixnum->string (fixnum fixnum) string)) (##sys#integer->string (#(procedure #:clean #:enforce) ##sys#integer->string (integer fixnum) string)) (##sys#flonum->string (#(procedure #:clean #:enforce) ##sys#flonum->string (float fixnum) string)) (scheme#string->number (#(procedure #:clean #:enforce #:foldable) scheme#string->number (string #!optional fixnum) (or number false))) (scheme#char? (#(procedure #:pure #:predicate char) scheme#char? (*) boolean)) ;; safe rewrites are already done by the optimizer (scheme#char=? (#(procedure #:clean #:enforce #:foldable) scheme#char=? (char char) boolean) ((char char) (##core#inline "C_u_i_char_equalp" #(1) #(2)))) (scheme#char>? (#(procedure #:clean #:enforce #:foldable) scheme#char>? (char char) boolean) ((char char) (##core#inline "C_u_i_char_greaterp" #(1) #(2)))) (scheme#char=? (#(procedure #:clean #:enforce #:foldable) scheme#char>=? (char char) boolean) ((char char) (##core#inline "C_u_i_char_greater_or_equal_p" #(1) #(2)))) (scheme#char<=? (#(procedure #:clean #:enforce #:foldable) scheme#char<=? (char char) boolean) ((char char) (##core#inline "C_u_i_char_less_or_equal_p" #(1) #(2)))) (scheme#char-ci=? (#(procedure #:clean #:enforce #:foldable) scheme#char-ci=? (char char) boolean)) (scheme#char-ci? (#(procedure #:clean #:enforce #:foldable) scheme#char-ci>? (char char) boolean)) (scheme#char-ci>=? (#(procedure #:clean #:enforce #:foldable) scheme#char-ci>=? (char char) boolean)) (scheme#char-ci<=? (#(procedure #:clean #:enforce #:foldable) scheme#char-ci<=? (char char) boolean)) (scheme#char-alphabetic? (#(procedure #:clean #:enforce #:foldable) scheme#char-alphabetic? (char) boolean)) (scheme#char-whitespace? (#(procedure #:clean #:enforce #:foldable) scheme#char-whitespace? (char) boolean)) (scheme#char-numeric? (#(procedure #:clean #:enforce #:foldable) scheme#char-numeric? (char) boolean)) (scheme#char-upper-case? (#(procedure #:clean #:enforce #:foldable) scheme#char-upper-case? (char) boolean)) (scheme#char-lower-case? (#(procedure #:clean #:enforce #:foldable) scheme#char-lower-case? (char) boolean)) (scheme#char-upcase (#(procedure #:clean #:enforce #:foldable) scheme#char-upcase (char) char)) (scheme#char-downcase (#(procedure #:clean #:enforce #:foldable) scheme#char-downcase (char) char)) (scheme#char->integer (#(procedure #:clean #:enforce #:foldable) scheme#char->integer (char) fixnum)) (scheme#integer->char (#(procedure #:clean #:enforce #:foldable) scheme#integer->char (fixnum) char)) (scheme#string? (#(procedure #:pure #:predicate string) scheme#string? (*) boolean)) (scheme#string=? (#(procedure #:clean #:enforce #:foldable) scheme#string=? (string string) boolean) ((string string) (##core#inline "C_u_i_string_equal_p" #(1) #(2)))) (scheme#string>? (#(procedure #:clean #:enforce #:foldable) scheme#string>? (string string) boolean)) (scheme#string=? (#(procedure #:clean #:enforce #:foldable) scheme#string>=? (string string) boolean)) (scheme#string<=? (#(procedure #:clean #:enforce #:foldable) scheme#string<=? (string string) boolean)) (scheme#string-ci=? (#(procedure #:clean #:enforce #:foldable) scheme#string-ci=? (string string) boolean)) (scheme#string-ci? (#(procedure #:clean #:enforce #:foldable) scheme#string-ci>? (string string) boolean)) (scheme#string-ci>=? (#(procedure #:clean #:enforce #:foldable) scheme#string-ci>=? (string string) boolean)) (scheme#string-ci<=? (#(procedure #:clean #:enforce #:foldable) scheme#string-ci<=? (string string) boolean)) (scheme#make-string (#(procedure #:clean #:enforce) scheme#make-string (fixnum #!optional char) string) ((fixnum char) (##sys#make-string #(1) #(2))) ((fixnum) (##sys#make-string #(1) '#\space))) (scheme#string-length (#(procedure #:clean #:enforce #:foldable) scheme#string-length (string) fixnum) ((string) (##sys#size #(1)))) (scheme#string-ref (#(procedure #:clean #:enforce #:foldable) scheme#string-ref (string fixnum) char) ((string fixnum) (##core#inline "C_i_string_ref" #(1) #(2)))) (scheme#string-set! (#(procedure #:enforce) scheme#string-set! (string fixnum char) undefined) ((string fixnum char) (##core#inline "C_i_string_set" #(1) #(2) #(3)))) (scheme#string-append (#(procedure #:clean #:enforce) scheme#string-append (#!rest string) string) ((string string) (##sys#string-append #(1) #(2)))) (scheme#string-copy (#(procedure #:clean #:enforce) scheme#string-copy (string) string)) (scheme#string->list (#(procedure #:clean #:enforce) scheme#string->list (string) (list-of char))) (scheme#list->string (#(procedure #:clean #:enforce) scheme#list->string ((list-of char)) string)) (scheme#substring (#(procedure #:clean #:enforce) scheme#substring (string fixnum #!optional fixnum) string)) (scheme#string-fill! (#(procedure #:enforce) scheme#string-fill! (string char) string)) (scheme#string (#(procedure #:clean #:enforce) scheme#string (#!rest char) string)) (scheme#vector? (#(procedure #:pure #:predicate vector) scheme#vector? (*) boolean)) ;; special-cased (see scrutinizer.scm) (scheme#make-vector (forall (a) (#(procedure #:clean #:enforce) scheme#make-vector (fixnum #!optional a) (vector-of a)))) ;; these are special cased (see scrutinizer.scm) (scheme#vector-ref (forall (a) (#(procedure #:clean #:enforce #:foldable) scheme#vector-ref ((vector-of a) fixnum) a))) (##sys#vector-ref (forall (a) (#(procedure #:clean #:enforce #:foldable) ##sys#vector-ref ((vector-of a) fixnum) a))) ;; special-cased (see scrutinizer.scm) (scheme#vector-set! (#(procedure #:enforce) scheme#vector-set! (vector fixnum *) undefined)) ;; special cased (see scrutinizer.scm) (scheme#vector (#(procedure #:pure) scheme#vector (#!rest) vector)) (##sys#vector (#(procedure #:pure) ##sys#vector (#!rest) vector)) (scheme#vector-length (#(procedure #:clean #:enforce #:foldable) scheme#vector-length (vector) fixnum) ((vector) (##sys#size #(1)))) (##sys#vector-length (#(procedure #:clean #:enforce #:foldable) ##sys#vector-length (vector) fixnum) ((vector) (##sys#size #(1)))) (scheme#vector->list (forall (a) (#(procedure #:clean #:enforce) scheme#vector->list ((vector-of a)) (list-of a)))) (##sys#vector->list (forall (a) (#(procedure #:clean #:enforce) ##sys#vector->list ((vector-of a)) (list-of a)))) (scheme#list->vector (forall (a) (#(procedure #:clean #:enforce) scheme#list->vector ((list-of a)) (vector-of a)))) (##sys#list->vector (forall (a) (#(procedure #:clean #:enforce) ##sys#list->vector ((list-of a)) (vector-of a)))) (scheme#vector-fill! (#(procedure #:enforce) scheme#vector-fill! (vector *) undefined)) (scheme#procedure? (#(procedure #:pure #:predicate procedure) scheme#procedure? (*) boolean)) (scheme#map (forall (a b) (#(procedure #:enforce) scheme#map ((procedure (a #!rest) b) (list-of a) #!rest list) (list-of b)))) (scheme#for-each (forall (a) (#(procedure #:enforce) scheme#for-each ((procedure (a #!rest) . *) (list-of a) #!rest list) undefined))) (scheme#apply (#(procedure #:enforce) scheme#apply (procedure #!rest) . *)) (##sys#apply (#(procedure #:enforce) ##sys#apply (procedure #!rest) . *)) (scheme#force (procedure scheme#force (*) . *) (((not (struct promise))) #(1))) (scheme#call-with-current-continuation (#(procedure #:enforce) scheme#call-with-current-continuation ((procedure (procedure) . *)) . *)) (scheme#input-port? (#(procedure #:pure #:predicate (refine (input) port)) scheme#input-port? (*) boolean)) (scheme#output-port? (#(procedure #:pure #:predicate (refine (output) port)) scheme#output-port? (*) boolean)) (scheme#current-input-port (#(procedure #:clean #:enforce) scheme#current-input-port (#!optional input-port boolean boolean) input-port) (() ##sys#standard-input) (((refine (input) port)) (let ((#(tmp1) #(1))) (let ((#(tmp2) (set! ##sys#standard-input #(tmp1)))) #(tmp1))))) (scheme#current-output-port (#(procedure #:clean #:enforce) scheme#current-output-port (#!optional output-port boolean boolean) output-port) (() ##sys#standard-output) (((refine (output) port)) (let ((#(tmp1) #(1))) (let ((#(tmp2) (set! ##sys#standard-output #(tmp1)))) #(tmp1))))) (scheme#call-with-input-file (procedure scheme#call-with-input-file (string (procedure (input-port) . *) #!rest) . *)) (scheme#call-with-output-file (procedure scheme#call-with-output-file (string (procedure (output-port) . *) #!rest) . *)) (scheme#open-input-file (#(procedure #:clean #:enforce) scheme#open-input-file (string #!rest keyword) input-port)) (scheme#open-output-file (#(procedure #:clean #:enforce) scheme#open-output-file (string #!rest keyword) output-port)) (scheme#close-input-port (#(procedure #:enforce) scheme#close-input-port (input-port) undefined)) (scheme#close-output-port (#(procedure #:enforce) scheme#close-output-port (output-port) undefined)) (scheme#read (#(procedure #:enforce) scheme#read (#!optional input-port) *)) (scheme#eof-object? (#(procedure #:pure #:predicate eof) scheme#eof-object? (*) boolean)) (scheme#read-char (#(procedure #:enforce) scheme#read-char (#!optional input-port) (or eof char))) (scheme#peek-char (#(procedure #:enforce) scheme#peek-char (#!optional input-port) (or eof char))) (scheme#write (#(procedure #:enforce) scheme#write (* #!optional output-port) undefined)) (scheme#display (#(procedure #:enforce) scheme#display (* #!optional output-port) undefined)) (scheme#write-char (#(procedure #:enforce) scheme#write-char (char #!optional output-port) undefined)) ;;XXX Yes, that would be nice, but the output-port may be closed #;(##sys#write-char-0 (#(procedure #:enforce) ##sys#write-char-0 (char output-port) undefined) ((char output-port) (let ((#(tmp) #(1))) ((##sys#slot (##sys#slot #(tmp) '2) '2) #(tmp) #(2))))) (scheme#newline (#(procedure #:enforce) scheme#newline (#!optional output-port) undefined)) (scheme#with-input-from-file (#(procedure #:enforce) scheme#with-input-from-file (string (procedure () . *) #!rest keyword) . *)) (scheme#with-output-to-file (#(procedure #:enforce) scheme#with-output-to-file (string (procedure () . *) #!rest keyword) . *)) (scheme#dynamic-wind (#(procedure #:enforce) scheme#dynamic-wind ((procedure () . *) (procedure () . *) (procedure () . *)) . *)) (scheme#values (#(procedure #:clean) scheme#values (#!rest values) . *)) (##sys#values (#(procedure #:clean) ##sys#values (#!rest values) . *)) (scheme#call-with-values (#(procedure #:enforce) scheme#call-with-values ((procedure () . *) procedure) . *) (((procedure () *) *) (let ((#(tmp1) #(1))) (let ((#(tmp2) #(2))) (#(tmp2) (#(tmp1))))))) (##sys#call-with-values (#(procedure #:enforce) ##sys#call-with-values ((procedure () . *) procedure) . *) (((procedure () *) *) (let ((#(tmp1) #(1))) (let ((#(tmp2) #(2))) (#(tmp2) (#(tmp1))))))) (scheme#char-ready? (#(procedure #:enforce) scheme#char-ready? (#!optional input-port) boolean)) (scheme#real-part (#(procedure #:clean #:enforce #:foldable) scheme#real-part (number) (or integer float ratnum)) (((or fixnum float bignum ratnum)) #(1)) ((cplxnum) (##core#inline "C_u_i_cplxnum_real" #(1)))) (scheme#imag-part (#(procedure #:clean #:enforce #:foldable) scheme#imag-part (number) (or integer float ratnum)) (((or fixnum bignum ratnum)) (let ((#(tmp) #(1))) '0)) ((float) (let ((#(tmp) #(1))) '0.0)) ((cplxnum) (##core#inline "C_u_i_cplxnum_imag" #(1)))) (scheme#magnitude (#(procedure #:clean #:enforce #:foldable) scheme#magnitude (number) number) ((fixnum) (integer) (##core#inline_allocate ("C_a_i_fixnum_abs" 5) #(1))) ((integer) (##core#inline_allocate ("C_s_a_u_i_integer_abs" 5) #(1))) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_abs" 4) #(1))) (((or fixnum float bignum ratnum)) (##core#inline_allocate ("C_s_a_i_abs" 7) #(1)))) (scheme#angle (#(procedure #:clean #:enforce #:foldable) scheme#angle (number) float) ((float) (##core#inline_allocate ("C_a_i_flonum_atan2" 4) '0.0 #(1))) ((fixnum) (##core#inline_allocate ("C_a_i_flonum_atan2" 4) '0.0 (##core#inline_allocate ("C_a_i_fix_to_flo" 4) #(1)))) ((cplxnum) (let ((#(tmp) #(1))) (##core#inline_allocate ("C_a_i_flonum_atan2" 4) (##core#inline_allocate ("C_a_i_exact_to_inexact" 11) (##core#inline "C_u_i_cplxnum_imag" #(tmp))) (##core#inline_allocate ("C_a_i_exact_to_inexact" 11) (##core#inline "C_u_i_cplxnum_real" #(tmp))))))) (scheme#numerator (#(procedure #:clean #:enforce #:foldable) scheme#numerator ((or float integer ratnum)) (or float integer)) ((fixnum) (fixnum) #(1)) ((bignum) (bignum) #(1)) ((integer) (integer) #(1)) ((ratnum) (integer) (##core#inline "C_u_i_ratnum_num" #(1)))) (scheme#denominator (#(procedure #:clean #:enforce #:foldable) scheme#denominator ((or float integer ratnum)) (or float integer)) ((integer) (fixnum) (let ((#(tmp) #(1))) '1)) ((ratnum) (integer) (##core#inline "C_u_i_ratnum_denom" #(1)))) (scheme#load (procedure scheme#load (string #!optional (procedure (*) . *)) undefined)) (scheme#eval (procedure scheme#eval (* #!optional (struct environment)) . *)) (scheme#scheme-report-environment (#(procedure #:clean #:enforce) scheme#scheme-report-environment (#!optional fixnum) (struct environment))) (scheme#null-environment (#(procedure #:clean #:enforce) scheme#null-environment (#!optional fixnum) (struct environment))) (scheme#interaction-environment (#(procedure #:clean) scheme#interaction-environment () (struct environment))) ;; eval (chicken.eval#module-environment (#(procedure #:clean #:enforce) chicken.eval#module-environment ((or symbol (list-of (or symbol fixnum)))) (struct environment))) ;; base (chicken.base#add1 (#(procedure #:clean #:enforce #:foldable) chicken.base#add1 (number) number) ((fixnum) (integer) (##core#inline_allocate ("C_a_i_fixnum_plus" 5) #(1) '1)) ((integer) (integer) (##core#inline_allocate ("C_s_a_u_i_integer_plus" 5) #(1) '1)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_plus" 4) #(1) '1.0)) ((*) (number) (##core#inline_allocate ("C_s_a_i_plus" 29) #(1) '1))) (chicken.base#sub1 (#(procedure #:clean #:enforce #:foldable) chicken.base#sub1 (number) number) ((fixnum) (integer) (##core#inline_allocate ("C_a_i_fixnum_difference" 5) #(1) '1)) ((integer) (integer) (##core#inline_allocate ("C_s_a_u_i_integer_minus" 5) #(1) '1)) ((float) (float) (##core#inline_allocate ("C_a_i_flonum_difference" 4) #(1) '1.0)) ((*) (number) (##core#inline_allocate ("C_s_a_i_minus" 29) #(1) '1))) (chicken.base#subvector (forall (a) (#(procedure #:clean #:enforce) chicken.base#subvector ((vector-of a) fixnum #!optional fixnum) (vector-of a)))) (chicken.base#vector-copy! (#(procedure #:enforce) chicken.base#vector-copy! (vector vector #!optional fixnum) undefined)) (chicken.base#vector-resize (forall (a b) (#(procedure #:clean #:enforce) chicken.base#vector-resize ((vector-of a) fixnum #!optional b) (vector-of (or a b))))) (chicken.base#void (#(procedure #:pure) chicken.base#void (#!rest) undefined)) (chicken.base#warning (procedure chicken.base#warning (* #!rest) undefined)) (chicken.base#notice (procedure chicken.base#notice (* #!rest) undefined)) (chicken.base#exact-integer? (#(procedure #:pure #:foldable) chicken.base#exact-integer? (*) boolean) ((integer) (let ((#(tmp) #(1))) '#t)) (((not integer)) (let ((#(tmp) #(1))) '#f)) ((*) (##core#inline "C_i_exact_integerp" #(1)))) (chicken.base#exact-integer-nth-root (#(procedure #:clean #:enforce #:foldable) chicken.base#exact-integer-nth-root (integer integer) integer integer) ((integer integer) (##sys#exact-integer-nth-root/loc 'exact-integer-nth-root #(1) #(2)))) (chicken.base#exact-integer-sqrt (#(procedure #:clean #:enforce #:foldable) chicken.base#exact-integer-sqrt (integer) integer integer) ((integer) (##sys#exact-integer-sqrt #(1)))) (chicken.base#fixnum? (#(procedure #:pure #:predicate fixnum) chicken.base#fixnum? (*) boolean)) (chicken.base#flonum? (#(procedure #:pure #:predicate float) chicken.base#flonum? (*) boolean)) (chicken.base#bignum? (#(procedure #:pure #:predicate bignum) chicken.base#bignum? (*) boolean)) (chicken.base#ratnum? (#(procedure #:pure #:predicate ratnum) chicken.base#ratnum? (*) boolean)) (chicken.base#cplxnum? (#(procedure #:pure #:predicate cplxnum) chicken.base#cplxnum? (*) boolean)) (chicken.base#foldl (forall (a b) (#(procedure #:enforce) chicken.base#foldl ((procedure (a b) a) a (list-of b)) a))) (chicken.base#foldr (forall (a b) (#(procedure #:enforce) chicken.base#foldr ((procedure (a b) b) b (list-of a)) b))) (chicken.base#nan? (#(procedure #:clean #:enforce #:foldable) chicken.base#nan? (number) boolean) (((or integer ratnum)) (let ((#(tmp) #(1))) '#f)) ((float) (##core#inline "C_u_i_flonum_nanp" #(1))) ((*) (##core#inline "C_i_nanp" #(1)))) (chicken.base#infinite? (#(procedure #:clean #:enforce #:foldable) chicken.base#infinite? (number) boolean) (((or integer ratnum)) (let ((#(tmp) #(1))) '#f)) ((float) (##core#inline "C_u_i_flonum_infinitep" #(1))) ((*) (##core#inline "C_i_infinitep" #(1)))) (chicken.base#finite? (#(procedure #:clean #:enforce #:foldable) chicken.base#finite? (number) boolean) (((or integer ratnum)) (let ((#(tmp) #(1))) '#t)) ((float) (##core#inline "C_u_i_flonum_finitep" #(1))) ((*) (##core#inline "C_i_finitep" #(1)))) (chicken.base#get-call-chain (#(procedure #:clean #:enforce) chicken.base#get-call-chain (#!optional fixnum (struct thread)) (list-of vector))) (chicken.base#print-call-chain (#(procedure #:clean #:enforce) chicken.base#print-call-chain (#!optional output-port fixnum * string) undefined)) (chicken.base#print (procedure chicken.base#print (#!rest *) undefined)) (chicken.base#print* (procedure chicken.base#print* (#!rest) undefined)) (chicken.base#procedure-information (#(procedure #:clean #:enforce) chicken.base#procedure-information (procedure) *)) (chicken.base#promise? (#(procedure #:pure #:predicate (struct promise)) chicken.base#promise? (*) boolean)) (chicken.base#make-promise (#(procedure #:enforce) chicken.base#make-promise (*) (struct promise)) (((struct promise)) #(1))) (chicken.base#call/cc (#(procedure #:enforce) chicken.base#call/cc ((procedure (*) . *)) . *)) (chicken.base#port? (#(procedure #:pure #:predicate port) chicken.base#port? (*) boolean)) (chicken.base#port-closed? (#(procedure #:clean #:enforce) chicken.base#port-closed? (port) boolean) ((port) (scheme#eq? (##sys#slot #(1) '8) '0))) (chicken.base#input-port-open? (#(procedure #:enforce) chicken.base#input-port-open? (input-port) boolean)) (chicken.base#output-port-open? (#(procedure #:enforce) chicken.base#output-port-open? (output-port) boolean)) (chicken.base#get-output-string (#(procedure #:clean #:enforce) chicken.base#get-output-string (output-port) string)) (chicken.base#open-input-string (#(procedure #:clean #:enforce) chicken.base#open-input-string (string #!rest) input-port)) (chicken.base#open-output-string (#(procedure #:clean) chicken.base#open-output-string (#!rest) output-port)) (chicken.base#current-error-port (#(procedure #:clean #:enforce) chicken.base#current-error-port (#!optional output-port boolean boolean) output-port) ((output-port) (let ((#(tmp1) #(1))) (let ((#(tmp2) (set! ##sys#standard-error #(tmp1)))) #(tmp1)))) (() ##sys#standard-error)) (chicken.base#flush-output (#(procedure #:enforce) chicken.base#flush-output (#!optional output-port) undefined)) (chicken.base#enable-warnings (#(procedure #:clean) chicken.base#enable-warnings (#!optional *) *)) (chicken.base#error (procedure chicken.base#error (* #!rest) noreturn)) (chicken.base#equal=? (#(procedure #:clean #:foldable) chicken.base#equal=? (* *) boolean) ((fixnum fixnum) (scheme#eq? #(1) #(2))) (((or symbol keyword char eof null undefined) *) (scheme#eq? #(1) #(2))) ((* (or symbol keyword char eof null undefined)) (scheme#eq? #(1) #(2))) ((number number) (scheme#= #(1) #(2)))) (chicken.base#emergency-exit (procedure chicken.base#emergency-exit (#!optional fixnum) noreturn)) (chicken.base#on-exit (#(procedure #:clean #:enforce) chicken.base#on-exit ((procedure () . *)) undefined)) (chicken.base#implicit-exit-handler (#(procedure #:clean #:enforce) chicken.base#implicit-exit-handler (#!optional (procedure () . *)) procedure)) (chicken.base#sleep (#(procedure #:clean #:enforce) chicken.base#sleep (fixnum) undefined)) (chicken.base#exit (procedure chicken.base#exit (#!optional fixnum) noreturn)) (chicken.base#exit-handler (#(procedure #:clean #:enforce) chicken.base#exit-handler (#!optional (procedure (fixnum) . *)) procedure)) (chicken.base#gensym (#(procedure #:clean) chicken.base#gensym (#!optional (or string symbol)) symbol)) (chicken.base#char-name (#(procedure #:clean #:enforce) chicken.base#char-name ((or char symbol) #!optional char) *)) ;XXX -> (or char symbol) ? (chicken.base#getter-with-setter (#(procedure #:clean #:enforce) chicken.base#getter-with-setter ((procedure (#!rest) *) (procedure (* #!rest) . *) #!optional string) procedure)) (chicken.base#setter (#(procedure #:clean #:enforce) chicken.base#setter (procedure) procedure)) (chicken.base#signum (#(procedure #:clean #:enforce) chicken.base#signum (number) (or fixnum float cplxnum)) ((fixnum) (fixnum) (##core#inline "C_i_fixnum_signum" #(1))) ((integer) (fixnum) (##core#inline "C_u_i_integer_signum" #(1))) ((float) (float) (##core#inline_allocate ("C_a_u_i_flonum_signum" 4) #(1))) ((ratnum) (fixnum) (##core#inline "C_u_i_integer_signum" (##core#inline "C_u_i_ratnum_num" #(1)))) ((cplxnum) ((or float cplxnum)) (##sys#extended-signum #(1)))) (chicken.base#make-parameter (#(procedure #:clean #:enforce) chicken.base#make-parameter (* #!optional procedure) procedure)) (chicken.base#string->uninterned-symbol (#(procedure #:clean #:enforce) chicken.base#string->uninterned-symbol (string) symbol)) (chicken.base#symbol-append (#(procedure #:clean #:enforce #:foldable) chicken.base#symbol-append (#!rest symbol) symbol)) (chicken.base#case-sensitive (#(procedure #:clean) chicken.base#case-sensitive (#!optional *) *)) (chicken.base#keyword-style (#(procedure #:clean) chicken.base#keyword-style (#!optional keyword) *)) (chicken.base#parentheses-synonyms (#(procedure #:clean) chicken.base#parentheses-synonyms (#!optional *) *)) (chicken.base#symbol-escape (#(procedure #:clean) chicken.base#symbol-escape (#!optional *) *)) (chicken.base#quotient&remainder (#(procedure #:clean #:enforce #:foldable) chicken.base#quotient&remainder ((or integer float) (or integer float)) (or integer float) (or integer float)) ((float float) (float float) (let ((#(tmp1) #(1))) (let ((#(tmp2) #(2))) (##sys#values (##core#inline_allocate ("C_a_i_flonum_actual_quotient_checked" 4) #(tmp1) #(tmp2)) (##core#inline_allocate ("C_a_i_flonum_remainder_checked" 4) #(tmp1) #(tmp2)))))) ;;XXX flonum/mixed case ((fixnum fixnum) (integer fixnum) (let ((#(tmp1) #(1))) (let ((#(tmp2) #(2))) (##sys#values (##core#inline_allocate ("C_a_i_fixnum_quotient_checked" 5) #(tmp1) #(tmp2)) (##core#inline "C_i_fixnum_remainder_checked" #(tmp1) #(tmp2)))))) ((integer integer) (integer integer) ((##core#primitive "C_u_integer_quotient_and_remainder") #(1) #(2)))) ;; TODO: Add nonspecializing type specific entries, to help flow analysis? (chicken.base#quotient&modulo (#(procedure #:clean #:enforce #:foldable) chicken.base#quotient&modulo ((or integer float) (or integer float)) (or integer float) (or integer float))) (chicken.base#alist-ref (forall (a b c d) (#(procedure #:clean #:foldable) chicken.base#alist-ref (a (list-of (pair b c)) #!optional (procedure (a b) *) d) (or false c d)))) (chicken.base#alist-update! (forall (a b c d) (#(procedure) chicken.base#alist-update! (a b (list-of (pair c d)) #!optional (procedure (a c) *)) (list-of (pair c (or b d)))))) (chicken.base#alist-update (forall (a b c d) (#(procedure #:clean) chicken.base#alist-update (a b (list-of (pair c d)) #!optional (procedure (a c) *)) (list-of (pair c (or b d)))))) (chicken.base#atom? (#(procedure #:pure #:foldable) chicken.base#atom? (*) boolean) ((pair) (let ((#(tmp) #(1))) '#f)) (((not (or pair list))) (let ((#(tmp) #(1))) '#t))) (chicken.base#butlast (forall (a) (#(procedure #:clean #:enforce) chicken.base#butlast ((pair a *)) (list-of a)))) (chicken.base#chop (forall (a) (#(procedure #:clean #:enforce) chicken.base#chop ((list-of a) fixnum) (list-of a)))) (chicken.base#complement (#(procedure #:clean #:enforce) chicken.base#complement ((procedure (#!rest) *)) (procedure (#!rest) boolean))) (chicken.base#compose (#(procedure #:clean #:enforce) chicken.base#compose (#!rest procedure) procedure)) (chicken.base#compress (forall (a) (#(procedure #:clean #:enforce) chicken.base#compress (list (list-of a)) (list-of a)))) (chicken.base#conjoin (#(procedure #:clean #:enforce) chicken.base#conjoin (#!rest (procedure (*) *)) (procedure (*) *))) (chicken.base#constantly (forall (a) (#(procedure #:pure) chicken.base#constantly (a) (procedure (#!rest) a)))) (chicken.base#disjoin (#(procedure #:clean #:enforce) chicken.base#disjoin (#!rest (procedure (*) *)) (procedure (*) *))) (chicken.base#each (#(procedure #:clean #:enforce) chicken.base#each (#!rest procedure) procedure)) (chicken.base#flatten (#(procedure #:clean #:enforce) chicken.base#flatten (#!rest *) list)) (chicken.base#flip (#(procedure #:clean #:enforce) chicken.base#flip ((procedure (* *) . *)) (procedure (* *) . *))) (chicken.base#identity (forall (a) (#(procedure #:pure #:foldable) chicken.base#identity (a) a))) (chicken.base#intersperse (#(procedure #:clean #:enforce) chicken.base#intersperse (list *) list)) (chicken.base#join (#(procedure #:clean #:enforce) chicken.base#join ((list-of list) #!optional list) list)) (chicken.base#list-of? (#(procedure #:clean #:enforce) chicken.base#list-of? ((procedure (*) *)) (procedure (list) boolean))) (chicken.base#o (#(procedure #:clean #:enforce) chicken.base#o (#!rest (procedure (*) *)) (procedure (*) *))) (chicken.base#rassoc (forall (a b c) (#(procedure #:clean #:foldable) chicken.base#rassoc (a (list-of (pair b c)) #!optional (procedure (a b) *)) (or false (pair b c))))) (chicken.base#tail? (#(procedure #:clean) chicken.base#tail? (* *) boolean)) ;; bitwise (chicken.bitwise#integer-length (#(procedure #:clean #:enforce #:foldable) chicken.bitwise#integer-length (integer) fixnum) ((fixnum) (##core#inline "C_i_fixnum_length" #(1))) ((*) (##core#inline "C_i_integer_length" #(1)))) (chicken.bitwise#arithmetic-shift (#(procedure #:clean #:enforce #:foldable) chicken.bitwise#arithmetic-shift (integer fixnum) integer)) (chicken.bitwise#bit->boolean (#(procedure #:clean #:enforce #:foldable) chicken.bitwise#bit->boolean (integer integer) boolean) ((fixnum fixnum) (##core#inline "C_i_fixnum_bit_to_bool" #(1) #(2)))) (chicken.bitwise#bitwise-and (#(procedure #:clean #:enforce #:foldable) chicken.bitwise#bitwise-and (#!rest integer) integer) (() '-1) ((fixnum) (fixnum) #(1)) ((integer) #(1)) ((fixnum fixnum) (fixnum) (##core#inline "C_u_fixnum_and" #(1) #(2)))) (chicken.bitwise#bitwise-ior (#(procedure #:clean #:enforce #:foldable) chicken.bitwise#bitwise-ior (#!rest integer) integer) (() '0) ((fixnum) (fixnum) #(1)) ((integer) #(1)) ((fixnum fixnum) (fixnum) (##core#inline "C_u_fixnum_or" #(1) #(2)))) (chicken.bitwise#bitwise-xor (#(procedure #:clean #:enforce #:foldable) chicken.bitwise#bitwise-xor (#!rest integer) integer) (() '0) ((fixnum) (fixnum) #(1)) ((integer) #(1)) ((fixnum fixnum) (fixnum) (##core#inline "C_fixnum_xor" #(1) #(2)))) (chicken.bitwise#bitwise-not (#(procedure #:clean #:enforce #:foldable) chicken.bitwise#bitwise-not (integer) integer)) ;; blob (chicken.blob#blob? (#(procedure #:pure #:predicate blob) chicken.blob#blob? (*) boolean)) (chicken.blob#blob=? (#(procedure #:clean #:enforce #:foldable) chicken.blob#blob=? (blob blob) boolean)) (chicken.blob#blob-size (#(procedure #:clean #:enforce #:foldable) chicken.blob#blob-size (blob) fixnum) ((blob) (##sys#size #(1)))) (chicken.blob#blob->string (#(procedure #:clean #:enforce) chicken.blob#blob->string (blob) string)) (chicken.blob#make-blob (#(procedure #:clean #:enforce) chicken.blob#make-blob (fixnum) blob) ((fixnum) (##sys#make-blob #(1)))) (chicken.blob#string->blob (#(procedure #:clean #:enforce) chicken.blob#string->blob (string) blob)) ;; condition (chicken.condition#abort (procedure chicken.condition#abort (*) noreturn)) (chicken.condition#condition (#(procedure #:clean #:enforce) chicken.condition#condition (list #!rest list) (struct condition))) (chicken.condition#condition? (#(procedure #:pure #:predicate (struct condition)) chicken.condition#condition? (*) boolean)) (chicken.condition#condition->list (#(procedure #:clean #:enforce) chicken.condition#condition->list ((struct condition)) (list-of pair))) (chicken.condition#condition-predicate (#(procedure #:clean #:enforce) chicken.condition#condition-predicate (*) (procedure ((struct condition)) boolean))) (chicken.condition#condition-property-accessor (#(procedure #:clean #:enforce) chicken.condition#condition-property-accessor (* * #!optional *) (procedure ((struct condition)) *))) (chicken.condition#current-exception-handler (#(procedure #:clean #:enforce) chicken.condition#current-exception-handler (#!optional (procedure (*) noreturn) boolean boolean) procedure) ((procedure) (let ((#(tmp1) #(1))) (let ((#(tmp2) (set! ##sys#current-exception-handler #(tmp1)))) #(tmp1)))) (() ##sys#current-exception-handler)) (chicken.condition#get-condition-property (#(procedure #:clean #:enforce) chicken.condition#get-condition-property ((struct condition) * * #!optional *) *)) (chicken.condition#make-composite-condition (#(procedure #:clean #:enforce) chicken.condition#make-composite-condition (#!rest (struct condition)) (struct condition))) (chicken.condition#make-property-condition (#(procedure #:clean #:enforce) chicken.condition#make-property-condition (* #!rest *) (struct condition))) (chicken.condition#print-error-message (#(procedure #:clean #:enforce) chicken.condition#print-error-message (* #!optional output-port string) undefined)) (chicken.condition#with-exception-handler (#(procedure #:enforce) chicken.condition#with-exception-handler ((procedure (*) . *) (procedure () . *)) . *)) (chicken.condition#signal (procedure chicken.condition#signal (*) . *)) ;; continuation (chicken.continuation#continuation-capture (#(procedure #:enforce) chicken.continuation#continuation-capture ((procedure ((struct continuation)) . *)) *)) (chicken.continuation#continuation-graft (#(procedure #:clean #:enforce) chicken.continuation#continuation-graft ((struct continuation) (procedure () . *)) *)) (chicken.continuation#continuation-return (#(procedure #:enforce) chicken.continuation#continuation-return ((struct continuation) #!rest) . *)) ;XXX make return type more specific? (chicken.continuation#continuation? (#(procedure #:pure #:predicate (struct continuation)) chicken.continuation#continuation? (*) boolean)) ;; read-syntax (chicken.read-syntax#copy-read-table (#(procedure #:clean #:enforce) chicken.read-syntax#copy-read-table ((struct read-table)) (struct read-table))) (chicken.read-syntax#current-read-table (#(procedure #:clean) chicken.read-syntax#current-read-table (#!optional (struct read-table)) (struct read-table))) (chicken.read-syntax#define-reader-ctor (#(procedure #:clean #:enforce) chicken.read-syntax#define-reader-ctor (symbol procedure) undefined)) (chicken.read-syntax#set-parameterized-read-syntax! (#(procedure #:clean #:enforce) chicken.read-syntax#set-parameterized-read-syntax! (char (or false (procedure (input-port fixnum) . *))) undefined)) (chicken.read-syntax#set-read-syntax! (#(procedure #:clean #:enforce) chicken.read-syntax#set-read-syntax! ((or char symbol) (or false (procedure (input-port) . *))) undefined)) (chicken.read-syntax#set-sharp-read-syntax! (#(procedure #:clean #:enforce) chicken.read-syntax#set-sharp-read-syntax! (char (or false (procedure (input-port) . *))) undefined)) ;; time (chicken.time#cpu-time (#(procedure #:clean) chicken.time#cpu-time () fixnum fixnum)) (chicken.time#current-seconds (#(procedure #:clean) chicken.time#current-seconds () integer)) (chicken.time#current-milliseconds (#(procedure #:clean) chicken.time#current-milliseconds () integer)) (##sys#error (procedure ##sys#error (* #!rest) noreturn)) (##sys#signal-hook (procedure ##sys#signal-hook (* #!rest) noreturn)) (##sys#debug-mode? (procedure ##sys#debug-mode? () boolean) (() (##core#inline "C_i_debug_modep"))) ;; flonum (chicken.flonum#flonum-decimal-precision fixnum) (chicken.flonum#flonum-epsilon float) (chicken.flonum#flonum-maximum-decimal-exponent fixnum) (chicken.flonum#flonum-maximum-exponent fixnum) (chicken.flonum#flonum-minimum-decimal-exponent fixnum) (chicken.flonum#flonum-minimum-exponent fixnum) (chicken.flonum#flonum-precision fixnum) (chicken.flonum#flonum-print-precision (#(procedure #:clean #:enforce) chicken.flonum#flonum-print-precision (#!optional fixnum) fixnum)) (chicken.flonum#flonum-radix fixnum) (chicken.flonum#fp- (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fp- (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_difference" 4) #(1) #(2)) )) (chicken.flonum#fp* (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fp* (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_times" 4) #(1) #(2)) )) (chicken.flonum#fp/ (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fp/ (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_quotient" 4) #(1) #(2)) )) (chicken.flonum#fpgcd (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpgcd (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_gcd" 4) #(1) #(2)) )) (chicken.flonum#fp+ (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fp+ (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_plus" 4) #(1) #(2)) )) (chicken.flonum#fp< (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fp< (float float) boolean) ((float float) (##core#inline "C_flonum_lessp" #(1) #(2)) )) (chicken.flonum#fp<= (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fp<= (float float) boolean) ((float float) (##core#inline "C_flonum_less_or_equal_p" #(1) #(2)) )) (chicken.flonum#fp= (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fp= (float float) boolean) ((float float) (##core#inline "C_flonum_equalp" #(1) #(2)) )) (chicken.flonum#fp> (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fp> (float float) boolean) ((float float) (##core#inline "C_flonum_greaterp" #(1) #(2)) )) (chicken.flonum#fp>= (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fp>= (float float) boolean) ((float float) (##core#inline "C_flonum_greater_or_equal_p" #(1) #(2)) )) (chicken.flonum#fpabs (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpabs (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_abs" 4) #(1) ))) (chicken.flonum#fpacos (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpacos (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_acos" 4) #(1) ))) (chicken.flonum#fpasin (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpasin (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_asin" 4) #(1) ))) (chicken.flonum#fpatan (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpatan (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_atan" 4) #(1) ))) (chicken.flonum#fpatan2 (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpatan2 (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_atan2" 4) #(1) #(2)))) (chicken.flonum#fpceiling (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpceiling (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_ceiling" 4) #(1) ))) (chicken.flonum#fpcos (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpcos (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_cos" 4) #(1) ))) (chicken.flonum#fpexp (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpexp (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_exp" 4) #(1) ))) (chicken.flonum#fpexpt (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpexpt (float float) float) ((float float) (##core#inline_allocate ("C_a_i_flonum_expt" 4) #(1) #(2)))) (chicken.flonum#fpfloor (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpfloor (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_floor" 4) #(1) ))) (chicken.flonum#fpinteger? (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpinteger? (float) boolean) ((float) (##core#inline "C_u_i_fpintegerp" #(1) ))) (chicken.flonum#fplog (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fplog (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_log" 4) #(1) ))) (chicken.flonum#fpmax (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpmax (float float) float) ((float float) (##core#inline "C_i_flonum_max" #(1) #(2)))) (chicken.flonum#fpmin (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpmin (float float) float) ((float float) (##core#inline "C_i_flonum_min" #(1) #(2)))) (chicken.flonum#fpneg (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpneg (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_negate" 4) #(1) ))) (chicken.flonum#fpround (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpround (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_round" 4) #(1) ))) (chicken.flonum#fpsin (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpsin (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_sin" 4) #(1) ))) (chicken.flonum#fpsqrt (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fpsqrt (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_sqrt" 4) #(1) ))) (chicken.flonum#fptan (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fptan (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_tan" 4) #(1) ))) (chicken.flonum#fptruncate (#(procedure #:clean #:enforce #:foldable) chicken.flonum#fptruncate (float) float) ((float) (##core#inline_allocate ("C_a_i_flonum_truncate" 4) #(1) ))) ;; fixnum (chicken.fixnum#fixnum-bits fixnum) (chicken.fixnum#fixnum-precision fixnum) ;;XXX These aren't enforcing, and aren't foldable due to 32/64-bit issues (chicken.fixnum#fx- (#(procedure #:clean) chicken.fixnum#fx- (fixnum fixnum) fixnum)) (chicken.fixnum#fx* (#(procedure #:clean) chicken.fixnum#fx* (fixnum fixnum) fixnum)) (chicken.fixnum#fx/ (#(procedure #:clean) chicken.fixnum#fx/ (fixnum fixnum) fixnum)) (chicken.fixnum#fxgcd (#(procedure #:clean) chicken.fixnum#fxgcd (fixnum fixnum) fixnum)) (chicken.fixnum#fx+ (#(procedure #:clean) chicken.fixnum#fx+ (fixnum fixnum) fixnum)) (chicken.fixnum#fx< (#(procedure #:clean) chicken.fixnum#fx< (fixnum fixnum) boolean)) (chicken.fixnum#fx<= (#(procedure #:clean) chicken.fixnum#fx<= (fixnum fixnum) boolean)) (chicken.fixnum#fx= (#(procedure #:clean) chicken.fixnum#fx= (fixnum fixnum) boolean)) (chicken.fixnum#fx> (#(procedure #:clean) chicken.fixnum#fx> (fixnum fixnum) boolean)) (chicken.fixnum#fx>= (#(procedure #:clean) chicken.fixnum#fx>= (fixnum fixnum) boolean)) (chicken.fixnum#fxand (#(procedure #:clean) chicken.fixnum#fxand (fixnum fixnum) fixnum)) (chicken.fixnum#fxeven? (#(procedure #:clean) chicken.fixnum#fxeven? (fixnum) boolean)) (chicken.fixnum#fxior (#(procedure #:clean) chicken.fixnum#fxior (fixnum fixnum) fixnum)) (chicken.fixnum#fxmax (#(procedure #:clean) chicken.fixnum#fxmax (fixnum fixnum) fixnum)) (chicken.fixnum#fxmin (#(procedure #:clean) chicken.fixnum#fxmin (fixnum fixnum) fixnum)) (chicken.fixnum#fxmod (#(procedure #:clean) chicken.fixnum#fxmod (fixnum fixnum) fixnum)) (chicken.fixnum#fxrem (#(procedure #:clean) chicken.fixnum#fxrem (fixnum fixnum) fixnum)) (chicken.fixnum#fxneg (#(procedure #:clean) chicken.fixnum#fxneg (fixnum) fixnum)) (chicken.fixnum#fxnot (#(procedure #:clean) chicken.fixnum#fxnot (fixnum) fixnum)) (chicken.fixnum#fxodd? (#(procedure #:clean) chicken.fixnum#fxodd? (fixnum) boolean)) (chicken.fixnum#fxshl (#(procedure #:clean) chicken.fixnum#fxshl (fixnum fixnum) fixnum)) (chicken.fixnum#fxshr (#(procedure #:clean) chicken.fixnum#fxshr (fixnum fixnum) fixnum)) (chicken.fixnum#fxxor (#(procedure #:clean) chicken.fixnum#fxxor (fixnum fixnum) fixnum)) (chicken.fixnum#fxlen (#(procedure #:clean) chicken.fixnum#fxlen (fixnum) fixnum)) (chicken.fixnum#fx+? (#(procedure #:pure) chicken.fixnum#fx+? ((or fixnum false) (or fixnum false)) (or fixnum false))) (chicken.fixnum#fx-? (#(procedure #:pure) chicken.fixnum#fx-? ((or fixnum false) (or fixnum false)) (or fixnum false))) (chicken.fixnum#fx*? (#(procedure #:pure) chicken.fixnum#fx*? ((or fixnum false) (or fixnum false)) (or fixnum false))) (chicken.fixnum#fx/? (#(procedure #:clean) chicken.fixnum#fx/? ((or fixnum false) (or fixnum false)) (or fixnum false))) ;; keyword (chicken.keyword#get-keyword (#(procedure #:clean #:enforce) chicken.keyword#get-keyword (keyword list #!optional *) *)) (chicken.keyword#keyword->string (#(procedure #:clean #:enforce) chicken.keyword#keyword->string (keyword) string)) (chicken.keyword#keyword? (#(procedure #:pure #:predicate keyword) chicken.keyword#keyword? (*) boolean)) (chicken.keyword#string->keyword (#(procedure #:clean #:enforce) chicken.keyword#string->keyword (string) keyword)) ;; load (chicken.load#dynamic-load-libraries (#(procedure #:clean) chicken.load#dynamic-load-libraries (#!optional (list-of string)) (list-of string))) (chicken.load#load-library (#(procedure #:enforce) chicken.load#load-library (symbol #!optional string) undefined)) (chicken.load#load-noisily (procedure chicken.load#load-noisily (string #!rest) undefined)) (chicken.load#load-relative (#(procedure #:enforce) chicken.load#load-relative (string #!optional (procedure (*) . *)) undefined)) (chicken.load#load-verbose (#(procedure #:clean) chicken.load#load-verbose (#!optional *) *)) (chicken.load#provide (#(procedure #:clean #:enforce) chicken.load#provide (#!rest symbol) undefined)) (chicken.load#provided? (#(procedure #:clean #:enforce) chicken.load#provided? (#!rest symbol) boolean)) (chicken.load#require (#(procedure #:clean) chicken.load#require (#!rest symbol) undefined)) (chicken.load#set-dynamic-load-mode! (#(procedure #:clean #:enforce) chicken.load#set-dynamic-load-mode! ((or symbol (list-of symbol))) undefined)) (chicken.load#find-file (#(procedure #:clean) chicken.load#find-file (string (or (list-of string) string)) (or string false))) ;; platform (chicken.platform#build-platform (#(procedure #:pure) chicken.platform#build-platform () symbol)) (chicken.platform#chicken-version (#(procedure #:pure) chicken.platform#chicken-version (#!optional *) string)) (chicken.platform#chicken-home (#(procedure #:clean) chicken.platform#chicken-home () string)) (chicken.platform#feature? (#(procedure #:clean) chicken.platform#feature? (#!rest (or keyword symbol string)) boolean)) (chicken.platform#features (#(procedure #:clean) chicken.platform#features () (list-of keyword))) (chicken.platform#software-type (#(procedure #:pure) chicken.platform#software-type () symbol)) (chicken.platform#software-version (#(procedure #:pure) chicken.platform#software-version () symbol)) (chicken.platform#register-feature! (#(procedure #:clean #:enforce) chicken.platform#register-feature! (#!rest (or keyword symbol string)) undefined)) (chicken.platform#unregister-feature! (#(procedure #:clean #:enforce) chicken.platform#unregister-feature! (#!rest (or keyword symbol string)) undefined)) (chicken.platform#machine-byte-order (#(procedure #:pure) chicken.platform#machine-byte-order () symbol)) (chicken.platform#machine-type (#(procedure #:pure) chicken.platform#machine-type () symbol)) (chicken.platform#repository-path (#(procedure #:clean) chicken.platform#repository-path (#!optional *) *)) (chicken.platform#installation-repository (#(procedure #:clean) chicken.platform#installation-repository (#!optional *) *)) (chicken.platform#return-to-host (procedure chicken.platform#return-to-host () . *)) (chicken.platform#system-config-directory (#(procedure #:clean) chicken.platform#system-config-directory () (or string false))) (chicken.platform#system-cache-directory (#(procedure #:clean) chicken.platform#system-cache-directory () (or string false))) ;; plist (chicken.plist#get (#(procedure #:clean #:enforce) chicken.plist#get (symbol symbol #!optional *) *) ((symbol symbol *) (##core#inline "C_i_getprop" #(1) #(2) #(3)))) (chicken.plist#get-properties (#(procedure #:clean #:enforce) chicken.plist#get-properties (symbol list) symbol * list)) (chicken.plist#put! (#(procedure #:clean #:enforce) chicken.plist#put! (symbol symbol *) undefined) ((symbol symbol *) (##core#inline_allocate ("C_a_i_putprop" 8) #(1) #(2) #(3)))) (chicken.plist#remprop! (#(procedure #:clean #:enforce) chicken.plist#remprop! (symbol symbol) undefined)) (chicken.plist#symbol-plist (#(procedure #:clean #:enforce) chicken.plist#symbol-plist (symbol) list) ((symbol) (##sys#slot #(1) '2))) (chicken.flonum#maximum-flonum float) (chicken.flonum#minimum-flonum float) (chicken.fixnum#most-negative-fixnum fixnum) (chicken.fixnum#most-positive-fixnum fixnum) ;; gc (chicken.gc#current-gc-milliseconds (#(procedure #:clean) chicken.gc#current-gc-milliseconds () integer)) (chicken.gc#force-finalizers (procedure chicken.gc#force-finalizers () undefined)) (chicken.gc#gc (#(procedure #:clean) chicken.gc#gc (#!optional *) fixnum)) (chicken.gc#memory-statistics (#(procedure #:clean) chicken.gc#memory-statistics () (vector-of fixnum))) (chicken.gc#set-finalizer! (#(procedure #:clean #:enforce) chicken.gc#set-finalizer! (* (procedure (*) . *)) *)) (chicken.gc#set-gc-report! (#(procedure #:clean) chicken.gc#set-gc-report! (*) undefined)) (chicken.repl#repl (#(procedure #:enforce) chicken.repl#repl (#!optional (procedure (*) . *)) undefined)) (chicken.repl#repl-prompt (#(procedure #:clean #:enforce) chicken.repl#repl-prompt (#!optional (procedure () string)) procedure)) (chicken.repl#reset (procedure chicken.repl#reset () noreturn)) (chicken.repl#reset-handler (#(procedure #:clean #:enforce) chicken.repl#reset-handler (#!optional (procedure () . *)) procedure)) (chicken.repl#quit (procedure chicken.repl#quit (#!optional *) noreturn)) (##sys#void (#(procedure #:pure) void (#!rest) undefined)) ;; chicken (internal) (##sys#foreign-char-argument (#(procedure #:clean #:enforce) ##sys#foreign-char-argument (char) char) ((char) #(1))) (##sys#foreign-fixnum-argument (#(procedure #:clean #:enforce) ##sys#foreign-fixnum-argument (fixnum) fixnum) ((fixnum) #(1))) (##sys#foreign-flonum-argument (#(procedure #:clean #:enforce) ##sys#foreign-flonum-argument (number) number) ((float) #(1))) (##sys#foreign-string-argument (#(procedure #:clean #:enforce) ##sys#foreign-string-argument (string) string) ((string) #(1))) (##sys#foreign-symbol-argument (#(procedure #:clean #:enforce) ##sys#foreign-symbol-argument (symbol) symbol) ((symbol) #(1))) (##sys#foreign-pointer-argument (#(procedure #:clean #:enforce) ##sys#foreign-pointer-argument ((or pointer false)) pointer) ((pointer) #(1))) (##sys#check-blob (#(procedure #:clean #:enforce) ##sys#check-blob (blob #!optional *) *) ((blob) (let ((#(tmp) #(1))) '#t)) ((blob *) (let ((#(tmp) #(1))) '#t))) (##sys#check-pair (#(procedure #:clean #:enforce) ##sys#check-pair (pair #!optional *) *) ((pair) (let ((#(tmp) #(1))) '#t)) ((pair *) (let ((#(tmp) #(1))) '#t))) (##sys#check-list (#(procedure #:clean #:enforce) ##sys#check-list (list #!optional *) *) (((or null pair list)) (let ((#(tmp) #(1))) '#t)) (((or null pair list) *) (let ((#(tmp) #(1))) '#t))) (##sys#check-string (#(procedure #:clean #:enforce) ##sys#check-string (string #!optional *) *) ((string) (let ((#(tmp) #(1))) '#t)) ((string) * (let ((#(tmp) #(1))) '#t))) (##sys#check-number (#(procedure #:clean #:enforce) ##sys#check-number (number #!optional *) *) ((number) (let ((#(tmp) #(1))) '#t)) ((number *) (let ((#(tmp) #(1))) '#t))) (##sys#check-exact (#(procedure #:clean #:enforce) ##sys#check-exact (fixnum #!optional *) *) ((fixnum) (let ((#(tmp) #(1))) '#t)) ((fixnum *) (let ((#(tmp) #(1))) '#t))) (##sys#check-inexact (#(procedure #:clean #:enforce) ##sys#check-inexact (float #!optional *) *) ((float) (let ((#(tmp) #(1))) '#t)) ((float *) (let ((#(tmp) #(1))) '#t))) (##sys#check-symbol (#(procedure #:clean #:enforce) ##sys#check-symbol (symbol #!optional *) *) ((symbol) (let ((#(tmp) #(1))) '#t)) ((symbol *) (let ((#(tmp) #(1))) '#t))) (##sys#check-vector (#(procedure #:clean #:enforce) ##sys#check-vector (vector #!optional *) *) ((vector) (let ((#(tmp) #(1))) '#t)) ((vector *) (let ((#(tmp) #(1))) '#t))) (##sys#check-char (#(procedure #:clean #:enforce) ##sys#check-char (char #!optional *) *) ((char) (let ((#(tmp) #(1))) '#t)) ((char *) (let ((#(tmp) #(1))) '#t))) (##sys#check-boolean (#(procedure #:clean #:enforce) ##sys#check-boolean (boolean #!optional *) *) ((boolean) (let ((#(tmp) #(1))) '#t)) ((boolean *) (let ((#(tmp) #(1))) '#t))) (##sys#check-locative (#(procedure #:clean #:enforce) ##sys#check-locative (locative #!optional *) *) ((locative) (let ((#(tmp) #(1))) '#t)) ((locative *) (let ((#(tmp) #(1))) '#t))) (##sys#check-closure (#(procedure #:clean #:enforce) ##sys#check-closure (procedure #!optional *) *) ((procedure) (let ((#(tmp) #(1))) '#t)) ((procedure *) (let ((#(tmp) #(1))) '#t))) (##sys#check-keyword (#(procedure #:clean #:enforce) ##sys#check-keyword (keyword #!optional *) *) ((keyword) (let ((#(tmp) #(1))) '#t)) ((keyword *) (let ((#(tmp) #(1))) '#t))) (##sys#check-port (#(procedure #:clean #:enforce) ##sys#check-port ((or input-port output-port) #!optional *) *) (((or (refine (input) port) (refine (output) port))) (let ((#(tmp) #(1))) '#t)) (((or (refine (input) port) (refine (output) port)) *) (let ((#(tmp) #(1))) '#t))) (##sys#check-input-port (#(procedure #:clean #:enforce) ##sys#check-input-port (input-port * #!optional *) *) ((* *) (##core#inline "C_i_check_port" #(1) '1 #(2))) ((* * *) (##core#inline "C_i_check_port_2" #(1) '1 #(2) #(3)))) (##sys#check-output-port (#(procedure #:clean #:enforce) ##sys#check-output-port (output-port * #!optional *) *) ((* *) (##core#inline "C_i_check_port" #(1) '2 #(2))) ((* * *) (##core#inline "C_i_check_port_2" #(1) '2 #(2) #(3)))) (##sys#check-open-port (#(procedure #:clean #:enforce) ##sys#check-open-port ((or input-port output-port) #!optional *) *) ((*) (##core#inline "C_i_check_port" #(1) '0 '#t)) ((* *) (##core#inline "C_i_check_port_2" #(1) '0 '#t #(2)))) (##sys#slot (#(procedure #:enforce) ##sys#slot (* fixnum) *)) (##sys#setslot (#(procedure #:enforce) ##sys#setslot (* fixnum *) *) #;((* fixnum immediate) (##sys#setislot #(1) #(2) #(3)))) ; too dangerous (##sys#size (#(procedure #:pure #:foldable) ##sys#size (*) fixnum)) (##sys#standard-input input-port) (##sys#standard-output output-port) (##sys#standard-error output-port) (##sys#provide (procedure ##sys#provide (symbol) boolean) ((symbol) (##core#inline_allocate ("C_a_i_provide" 8) #(1)))) (##sys#provided? (procedure ##sys#provided? (symbol) boolean) ((symbol) (##core#inline "C_i_providedp" #(1)))) ;; string (chicken.string#->string (procedure chicken.string#->string (*) string) ((string) #(1))) (chicken.string#conc (procedure chicken.string#conc (#!rest) string)) (chicken.string#string-chomp (#(procedure #:clean #:enforce) chicken.string#string-chomp (string #!optional string) string)) (chicken.string#string-chop (#(procedure #:clean #:enforce) chicken.string#string-chop (string fixnum) (list-of string))) (chicken.string#string-compare3 (#(procedure #:clean #:enforce) chicken.string#string-compare3 (string string) fixnum)) (chicken.string#string-compare3-ci (#(procedure #:clean #:enforce) chicken.string#string-compare3-ci (string string) fixnum)) (chicken.string#string-intersperse (#(procedure #:clean #:enforce) chicken.string#string-intersperse ((list-of string) #!optional string) string)) (chicken.string#string-split (#(procedure #:clean #:enforce) chicken.string#string-split (string #!optional string *) (list-of string))) (chicken.string#string-translate (#(procedure #:clean #:enforce) chicken.string#string-translate (string * #!optional *) string)) (chicken.string#string-translate* (#(procedure #:clean #:enforce) chicken.string#string-translate* (string (list-of (pair string string))) string)) (chicken.string#substring=? (#(procedure #:clean #:enforce #:foldable) chicken.string#substring=? (string string #!optional fixnum fixnum fixnum) boolean)) (chicken.string#substring-ci=? (#(procedure #:clean #:enforce #:foldable) chicken.string#substring-ci=? (string string #!optional fixnum fixnum fixnum) boolean)) (chicken.string#substring-index (#(procedure #:clean #:enforce #:foldable) chicken.string#substring-index (string string #!optional fixnum) (or false fixnum)) ((* *) (##sys#substring-index #(1) #(2) '0)) ((* * *) (##sys#substring-index #(1) #(2) #(3)))) (chicken.string#substring-index-ci (#(procedure #:clean #:enforce #:foldable) chicken.string#substring-index-ci (string string #!optional fixnum) (or false fixnum)) ((* *) (##sys#substring-index-ci #(1) #(2) '0)) ((* * *) (##sys#substring-index-ci #(1) #(2) #(3)))) (chicken.string#reverse-list->string (#(procedure #:clean #:enforce) chicken.string#reverse-list->string ((list-of char)) string)) (chicken.string#reverse-string-append (#(procedure #:clean #:enforce) chicken.string#reverse-string-append ((list-of string)) string)) (##sys#substring-index (#(procedure #:clean #:enforce #:foldable) ##sys#substring-index (string string fixnum) (or false fixnum))) (##sys#substring-index-ci (#(procedure #:clean #:enforce #:foldable) ##sys#substring-index-ci (string string fixnum) (or false fixnum))) ;; io (chicken.io#read-list (#(procedure #:enforce) chicken.io#read-list (#!optional input-port (procedure (input-port) *) fixnum) list)) (chicken.io#read-buffered (#(procedure #:enforce) chicken.io#read-buffered (#!optional input-port) string)) (chicken.io#read-byte (#(procedure #:enforce) chicken.io#read-byte (#!optional input-port) *)) (chicken.io#read-line (#(procedure #:enforce) chicken.io#read-line (#!optional input-port (or false fixnum)) (or eof string))) (chicken.io#read-lines (#(procedure #:enforce) chicken.io#read-lines (#!optional input-port fixnum) (list-of string))) (chicken.io#read-string (#(procedure #:enforce) chicken.io#read-string (#!optional (or fixnum false) input-port) (or string eof))) (chicken.io#read-string! (#(procedure #:enforce) chicken.io#read-string! ((or fixnum false) string #!optional input-port fixnum) fixnum)) (chicken.io#read-token (#(procedure #:enforce) chicken.io#read-token ((procedure (char) *) #!optional input-port) string)) (chicken.io#write-byte (#(procedure #:enforce) chicken.io#write-byte (fixnum #!optional output-port) undefined)) (chicken.io#write-line (#(procedure #:enforce) chicken.io#write-line (string #!optional output-port) undefined)) (chicken.io#write-string (#(procedure #:enforce) chicken.io#write-string (string #!optional * output-port) undefined)) ;; pretty-print (chicken.pretty-print#pp (#(procedure #:enforce) chicken.pretty-print#pp (* #!optional output-port) undefined)) (chicken.pretty-print#pretty-print (#(procedure #:enforce) chicken.pretty-print#pretty-print (* #!optional output-port) undefined)) (chicken.pretty-print#pretty-print-width (#(procedure #:clean) chicken.pretty-print#pretty-print-width (#!optional fixnum) *)) ;; format (chicken.format#format (procedure chicken.format#format (#!rest) *)) (chicken.format#fprintf (#(procedure #:enforce) chicken.format#fprintf (output-port string #!rest) undefined)) (chicken.format#printf (#(procedure #:enforce) chicken.format#printf (string #!rest) undefined)) (chicken.format#sprintf (#(procedure #:enforce #:foldable) chicken.format#sprintf (string #!rest) string)) ;; random (chicken.random#pseudo-random-integer (#(procedure #:clean #:enforce) chicken.random#pseudo-random-integer (integer) integer) ((fixnum) (##core#inline "C_random_fixnum" #(1)))) (chicken.random#pseudo-random-real (#(procedure #:clean #:enforce) chicken.random#pseudo-random-real () float)) (chicken.random#set-pseudo-random-seed! (#(procedure #:clean #:enforce) chicken.random#set-pseudo-random-seed! ((or blob string) #!optional fixnum) undefined)) (chicken.random#random-bytes (#(procedure #:clean #:enforce) chicken.random#random-bytes (#!optional * fixnum) *)) ;; file (chicken.file#directory (#(procedure #:clean #:enforce) chicken.file#directory (#!optional string *) (list-of string))) (chicken.file#create-directory (#(procedure #:clean #:enforce) chicken.file#create-directory (string #!optional *) string)) (chicken.file#create-temporary-directory (#(procedure #:clean #:enforce) chicken.file#create-temporary-directory () string)) (chicken.file#create-temporary-file (#(procedure #:clean #:enforce) chicken.file#create-temporary-file (#!optional string) string)) (chicken.file#delete-directory (#(procedure #:clean #:enforce) chicken.file#delete-directory (string #!optional *) string)) (chicken.file#delete-file (#(procedure #:clean #:enforce) chicken.file#delete-file (string) string)) (chicken.file#delete-file* (#(procedure #:clean #:enforce) chicken.file#delete-file* (string) *)) (chicken.file#directory-exists? (#(procedure #:clean #:enforce) chicken.file#directory-exists? (string) (or false string))) (chicken.file#file-exists? (#(procedure #:clean #:enforce) chicken.file#file-exists? (string) (or false string))) (chicken.file#find-files (#(procedure #:enforce) chicken.file#find-files (string #!rest) list)) (chicken.file#glob (#(procedure #:clean #:enforce) chicken.file#glob (#!rest string) list)) (chicken.file#copy-file (#(procedure #:clean #:enforce) chicken.file#copy-file (string string #!optional * fixnum) fixnum)) (chicken.file#move-file (#(procedure #:clean #:enforce) chicken.file#move-file (string string #!optional * fixnum) fixnum)) (chicken.file#rename-file (#(procedure #:clean #:enforce) chicken.file#rename-file (string string #!optional *) string)) (chicken.file#file-readable? (#(procedure #:clean #:enforce) chicken.file#file-readable? (string) boolean)) (chicken.file#file-writable? (#(procedure #:clean #:enforce) chicken.file#file-writable? (string) boolean)) (chicken.file#file-executable? (#(procedure #:clean #:enforce) chicken.file#file-executable? (string) boolean)) ;; pathname (chicken.pathname#absolute-pathname? (#(procedure #:clean #:enforce) chicken.pathname#absolute-pathname? (string) boolean)) (chicken.pathname#decompose-directory (#(procedure #:clean #:enforce) chicken.pathname#decompose-directory (string) * * *)) (chicken.pathname#decompose-pathname (#(procedure #:clean #:enforce) chicken.pathname#decompose-pathname (string) * * *)) (chicken.pathname#directory-null? (#(procedure #:clean #:enforce) chicken.pathname#directory-null? (string) boolean)) (chicken.pathname#make-absolute-pathname (#(procedure #:clean #:enforce) chicken.pathname#make-absolute-pathname (* #!optional string string) string)) (chicken.pathname#make-pathname (#(procedure #:clean #:enforce) chicken.pathname#make-pathname ((or string (list-of string) false) #!optional (or string false) (or string false)) string)) (chicken.pathname#normalize-pathname (#(procedure #:clean #:enforce) chicken.pathname#normalize-pathname (string #!optional symbol) string)) (chicken.pathname#pathname-directory (#(procedure #:clean #:enforce) chicken.pathname#pathname-directory (string) *)) (chicken.pathname#pathname-extension (#(procedure #:clean #:enforce) chicken.pathname#pathname-extension (string) *)) (chicken.pathname#pathname-file (#(procedure #:clean #:enforce) chicken.pathname#pathname-file (string) *)) (chicken.pathname#pathname-replace-directory (#(procedure #:clean #:enforce) chicken.pathname#pathname-replace-directory (string string) string)) (chicken.pathname#pathname-replace-extension (#(procedure #:clean #:enforce) chicken.pathname#pathname-replace-extension (string string) string)) (chicken.pathname#pathname-replace-file (#(procedure #:clean #:enforce) chicken.pathname#pathname-replace-file (string string) string)) (chicken.pathname#pathname-strip-directory (#(procedure #:clean #:enforce) chicken.pathname#pathname-strip-directory (string) string)) (chicken.pathname#pathname-strip-extension (#(procedure #:clean #:enforce) chicken.pathname#pathname-strip-extension (string) string)) ;; irregex (chicken.irregex#irregex (#(procedure #:clean) chicken.irregex#irregex (#!rest) (struct regexp))) ;; Both of these DFA accessors return either #f or a DFA vector. ;; TODO: Should we spec out the entire DFA type layout? It's plenty complex, so we don't ;; want to be specifying this for all procedures accepting a DFA! ;; A DFA looks like a vector of lists; ;; the car of each list is a number (for init-state), false or an alist; ;; the cdr is a list of alists, which contains a char (or vector) and two alists ;; These alists have types themselves, of course... (chicken.irregex#irregex-dfa (#(procedure #:clean #:enforce) chicken.irregex#irregex-dfa ((struct regexp)) (or false vector)) (((struct regexp)) (##sys#slot #(1) '1))) (chicken.irregex#irregex-dfa/search (#(procedure #:clean #:enforce) chicken.irregex#irregex-dfa/search ((struct regexp)) (or false vector)) (((struct regexp)) (##sys#slot #(1) '2))) ;; Procedure type returned by irregex-nfa is a matcher type (it is misnamed) ;; which is another complex procedure type. (chicken.irregex#irregex-nfa (#(procedure #:clean #:enforce) chicken.irregex#irregex-nfa ((struct regexp)) (or false procedure)) (((struct regexp)) (##sys#slot #(1) '3))) (chicken.irregex#irregex-flags (#(procedure #:clean #:enforce) chicken.irregex#irregex-flags ((struct regexp)) fixnum) (((struct regexp)) (##sys#slot #(1) '4))) (chicken.irregex#irregex-num-submatches (#(procedure #:clean #:enforce) chicken.irregex#irregex-num-submatches ((struct regexp)) fixnum) (((struct regexp)) (##sys#slot #(1) '5))) (chicken.irregex#irregex-lengths (#(procedure #:clean #:enforce) chicken.irregex#irregex-lengths ((struct regexp)) (vector-of (or false pair))) (((struct regexp)) (##sys#slot #(1) '6))) ;; XXX: Submatch names ought to be symbols according to the docs, but this is ;; not enforced anywhere, so we can't assume it in the return type here. (chicken.irregex#irregex-names (#(procedure #:clean #:enforce) chicken.irregex#irregex-names ((struct regexp)) (list-of (pair * fixnum))) (((struct regexp)) (##sys#slot #(1) '7))) ;; XXX: specialize these? (how?) (chicken.irregex#irregex-extract (#(procedure #:clean #:enforce) chicken.irregex#irregex-extract (* string #!optional fixnum fixnum) (list-of string))) (chicken.irregex#irregex-split (#(procedure #:clean #:enforce) chicken.irregex#irregex-split (* string #!optional fixnum fixnum) (list-of string))) (chicken.irregex#irregex-fold (forall (a) (#(procedure #:enforce) chicken.irregex#irregex-fold (* (procedure (fixnum (struct regexp-match) a) a) a string #!optional (procedure (fixnum *) *) fixnum fixnum) a))) ;; XXX TODO: chunker is a plain vector (chicken.irregex#irregex-fold/chunked (forall (a c) (#(procedure #:enforce) chicken.irregex#irregex-fold/chunked (* (procedure (c fixnum (struct regexp-match) a) a) a vector c #!optional (procedure (c fixnum a) a) fixnum fixnum) a))) (chicken.irregex#irregex-reset-matches! (procedure chicken.irregex#irregex-reset-matches! ((struct regexp-match)) (struct regexp-match))) ;; A silly procedure, but at least we can "inline" it like this (chicken.irregex#irregex-match? (#(procedure #:clean #:enforce) chicken.irregex#irregex-match? (* string #!optional fixnum fixnum) boolean) ((* string) (and (chicken.irregex#irregex-match #(1) #(2)) '#t)) ((* string fixnum) (and (chicken.irregex#irregex-match #(1) #(2) #(3)) '#t)) ((* string fixnum fixnum) (and (chicken.irregex#irregex-match #(1) #(2) #(3) #(4)) '#t))) ;; These two return #f or a match object (chicken.irregex#irregex-match (#(procedure #:clean #:enforce) chicken.irregex#irregex-match (* string #!optional fixnum fixnum) (or false (struct regexp-match)))) ;; XXX chunker is a plain vector ;; Not marked clean because we don't know what chunker procedures will do (chicken.irregex#irregex-match/chunked (#(procedure #:enforce) chicken.irregex#irregex-match/chunked (* vector * #!optional fixnum) (or false (struct regexp-match)))) (chicken.irregex#irregex-match-data? (#(procedure #:pure #:predicate (struct regexp-match)) chicken.irregex#irregex-match-data? (*) boolean)) (chicken.irregex#irregex-match-end-index (#(procedure #:clean #:enforce) chicken.irregex#irregex-match-end-index ((struct regexp-match) #!optional *) fixnum)) (chicken.irregex#irregex-match-end-chunk (#(procedure #:clean #:enforce) chicken.irregex#irregex-match-end-chunk ((struct regexp-match) #!optional *) *)) (chicken.irregex#irregex-match-start-index (#(procedure #:clean #:enforce) chicken.irregex#irregex-match-start-index ((struct regexp-match) #!optional *) fixnum)) (chicken.irregex#irregex-match-start-chunk (#(procedure #:clean #:enforce) chicken.irregex#irregex-match-start-chunk ((struct regexp-match) #!optional *) *)) (chicken.irregex#irregex-match-substring (#(procedure #:clean #:enforce) chicken.irregex#irregex-match-substring ((struct regexp-match) #!optional *) *)) (chicken.irregex#irregex-match-subchunk (#(procedure #:clean #:enforce) chicken.irregex#irregex-match-subchunk ((struct regexp-match) #!optional *) *)) (chicken.irregex#irregex-match-names (#(procedure #:clean #:enforce) chicken.irregex#irregex-match-names ((struct regexp-match)) list) (((struct regexp-match)) (##sys#slot #(1) '2))) (chicken.irregex#irregex-match-num-submatches (#(procedure #:enforce) chicken.irregex#irregex-match-num-submatches ((struct regexp-match)) fixnum) (((struct regexp-match)) (chicken.fixnum#fx- (chicken.fixnum#fx/ (##sys#size (##sys#slot #(1) '1)) '4) '2))) (chicken.irregex#irregex-new-matches (procedure chicken.irregex#irregex-new-matches (*) *)) ; really only for internal use.. (chicken.irregex#irregex-opt (#(procedure #:clean #:enforce) chicken.irregex#irregex-opt (list) *)) (chicken.irregex#irregex-quote (#(procedure #:clean #:enforce) chicken.irregex#irregex-quote (string) string)) (chicken.irregex#irregex-replace (#(procedure #:enforce) chicken.irregex#irregex-replace (* string #!rest) string)) (chicken.irregex#irregex-replace/all (#(procedure #:enforce) chicken.irregex#irregex-replace/all (* string #!rest) string)) ;; Returns a list of strings, but *only* when all user-procedures do (chicken.irregex#irregex-apply-match (procedure ((struct regexp-match) list) list)) ; internal use ;; These return #f or a match object (chicken.irregex#irregex-search (#(procedure #:clean #:enforce) chicken.irregex#irregex-search (* string #!optional fixnum fixnum) (or false (struct regexp-match)))) ;; XXX chunker is a plain vector (chicken.irregex#irregex-search/chunked (#(procedure #:enforce) chicken.irregex#irregex-search/chunked (* vector * #!optional fixnum *) (or false (struct regexp-match)))) (chicken.irregex#irregex-search/matches (#(procedure #:enforce) chicken.irregex#irregex-search/matches (* vector * * fixnum (struct regexp-match)) (or false (struct regexp-match)))) (chicken.irregex#irregex-match-valid-index? (#(procedure #:clean #:enforce) chicken.irregex#irregex-match-valid-index? ((struct regexp-match) *) boolean)) (chicken.irregex#irregex? (#(procedure #:pure #:predicate (struct regexp)) chicken.irregex#irregex? (*) boolean)) (chicken.irregex#make-irregex-chunker (#(procedure #:enforce) chicken.irregex#make-irregex-chunker ((procedure (*) *) (procedure (*) *) #!optional (procedure (*) *) (procedure (*) *) (procedure (* fixnum * fixnum) string) (procedure (* fixnum * fixnum) *)) *)) (chicken.irregex#maybe-string->sre (#(procedure #:clean) chicken.irregex#maybe-string->sre (*) *)) (chicken.irregex#sre->irregex (#(procedure #:clean) chicken.irregex#sre->irregex (#!rest) *)) (chicken.irregex#string->irregex (#(procedure #:clean #:enforce) chicken.irregex#string->irregex (string #!rest) *)) (chicken.irregex#string->sre (#(procedure #:clean #:enforce) chicken.irregex#string->sre (string #!rest) *)) (chicken.irregex#glob->sre (#(procedure #:clean #:enforce) chicken.irregex#glob->sre (string) (pair symbol *))) ;; memory (chicken.memory#allocate (#(procedure #:clean #:enforce) chicken.memory#allocate (fixnum) (or false pointer))) (chicken.memory#free (#(procedure #:clean #:enforce) chicken.memory#free (pointer) undefined)) (chicken.memory#address->pointer (#(procedure #:clean #:enforce) chicken.memory#address->pointer (fixnum) pointer) ((fixnum) (##sys#address->pointer #(1)))) (chicken.memory#pointer->address (#(procedure #:clean #:enforce) chicken.memory#pointer->address ((or pointer procedure port locative)) integer) ((pointer) (##sys#pointer->address #(1)))) (chicken.memory#align-to-word (#(procedure #:clean) chicken.memory#align-to-word ((or number pointer locative procedure port)) (or pointer number))) (chicken.memory#move-memory! (#(procedure #:enforce) chicken.memory#move-memory! (* * #!optional fixnum fixnum fixnum) *)) (chicken.memory#object->pointer (#(procedure #:clean) chicken.memory#object->pointer (*) *)) (chicken.memory#pointer->object (#(procedure #:clean #:enforce) chicken.memory#pointer->object (pointer) *) ((pointer) (##core#inline "C_pointer_to_object" #(1)))) (chicken.memory#pointer+ (#(procedure #:clean #:enforce) chicken.memory#pointer+ ((or pointer procedure port locative) fixnum) pointer)) (chicken.memory#pointer? (#(procedure #:clean #:predicate pointer) chicken.memory#pointer? (*) boolean)) (chicken.memory#pointer=? (#(procedure #:clean #:enforce) chicken.memory#pointer=? ((or pointer locative procedure port) (or pointer locative procedure port)) boolean) ((pointer pointer) (##core#inline "C_pointer_eqp" #(1) #(2)))) (chicken.memory#pointer-like? (#(procedure #:pure #:predicate (or pointer locative procedure port)) chicken.memory#pointer-like? (*) boolean) (((or pointer locative procedure port)) (let ((#(tmp) #(1))) '#t))) (chicken.memory#make-pointer-vector (#(procedure #:clean #:enforce) chicken.memory#make-pointer-vector (fixnum #!optional (or pointer false)) pointer-vector)) (chicken.memory#pointer-vector (#(procedure #:clean #:enforce) chicken.memory#pointer-vector (#!rest pointer-vector) boolean)) (chicken.memory#pointer-vector? (#(procedure #:pure #:predicate pointer-vector) chicken.memory#pointer-vector? (*) boolean)) (chicken.memory#pointer-vector-ref (#(procedure #:clean #:enforce) chicken.memory#pointer-vector-ref (pointer-vector fixnum) (or pointer false))) (chicken.memory#pointer-vector-set! (#(procedure #:clean #:enforce) chicken.memory#pointer-vector-set! (pointer-vector fixnum (or pointer false)) undefined)) (chicken.memory#pointer-vector-fill! (#(procedure #:clean #:enforce) chicken.memory#pointer-vector-fill! (pointer-vector (or pointer false)) undefined)) (chicken.memory#pointer-vector-length (#(procedure #:clean #:enforce) chicken.memory#pointer-vector-length (pointer-vector) fixnum) ((pointer-vector) (##sys#slot #(1) '1))) (chicken.memory#pointer-f32-ref (#(procedure #:clean #:enforce) chicken.memory#pointer-f32-ref (pointer) number)) (chicken.memory#pointer-f32-set! (#(procedure #:clean #:enforce) chicken.memory#pointer-f32-set! (pointer number) undefined)) (chicken.memory#pointer-f64-ref (#(procedure #:clean #:enforce) chicken.memory#pointer-f64-ref (pointer) number)) (chicken.memory#pointer-f64-set! (#(procedure #:clean #:enforce) chicken.memory#pointer-f64-set! (pointer number) undefined)) (chicken.memory#pointer-s16-ref (#(procedure #:clean #:enforce) chicken.memory#pointer-s16-ref (pointer) fixnum)) (chicken.memory#pointer-s16-set! (#(procedure #:clean #:enforce) chicken.memory#pointer-s16-set! (pointer fixnum) undefined)) (chicken.memory#pointer-s32-ref (#(procedure #:clean #:enforce) chicken.memory#pointer-s32-ref (pointer) integer)) (chicken.memory#pointer-s32-set! (#(procedure #:clean #:enforce) chicken.memory#pointer-s32-set! (pointer integer) undefined)) (chicken.memory#pointer-s64-ref (#(procedure #:clean #:enforce) chicken.memory#pointer-s64-ref (pointer) integer)) (chicken.memory#pointer-s64-set! (#(procedure #:clean #:enforce) chicken.memory#pointer-s64-set! (pointer integer) undefined)) (chicken.memory#pointer-s8-ref (#(procedure #:clean #:enforce) chicken.memory#pointer-s8-ref (pointer) fixnum)) (chicken.memory#pointer-s8-set! (#(procedure #:clean #:enforce) chicken.memory#pointer-s8-set! (pointer fixnum) undefined)) (chicken.memory#pointer-u16-ref (#(procedure #:clean #:enforce) chicken.memory#pointer-u16-ref (pointer) fixnum)) (chicken.memory#pointer-u16-set! (#(procedure #:clean #:enforce) chicken.memory#pointer-u16-set! (pointer fixnum) undefined)) (chicken.memory#pointer-u32-ref (#(procedure #:clean #:enforce) chicken.memory#pointer-u32-ref (pointer) integer)) (chicken.memory#pointer-u32-set! (#(procedure #:clean #:enforce) chicken.memory#pointer-u32-set! (pointer integer) undefined)) (chicken.memory#pointer-u64-ref (#(procedure #:clean #:enforce) chicken.memory#pointer-u64-ref (pointer) integer)) (chicken.memory#pointer-u64-set! (#(procedure #:clean #:enforce) chicken.memory#pointer-u64-set! (pointer integer) undefined)) (chicken.memory#pointer-u8-ref (#(procedure #:clean #:enforce) chicken.memory#pointer-u8-ref (pointer) fixnum)) (chicken.memory#pointer-u8-set! (#(procedure #:clean #:enforce) chicken.memory#pointer-u8-set! (pointer fixnum) undefined)) (chicken.memory#tag-pointer (#(procedure #:clean #:enforce) chicken.memory#tag-pointer (pointer *) pointer)) (chicken.memory#tagged-pointer? (#(procedure #:clean #:enforce) chicken.memory#tagged-pointer? (* #!optional *) boolean)) (chicken.memory#pointer-tag (#(procedure #:clean #:enforce) chicken.memory#pointer-tag ((or pointer locative procedure port)) *) (((or locative procedure port)) (let ((#(tmp) #(1))) '#f))) ;; memory.representation (chicken.memory.representation#block-ref (#(procedure #:clean #:enforce) chicken.memory.representation#block-ref (* fixnum) *)) (chicken.memory.representation#block-set! (#(procedure #:enforce) chicken.memory.representation#block-set! (* fixnum *) *)) (chicken.memory.representation#extend-procedure (#(procedure #:clean #:enforce) chicken.memory.representation#extend-procedure (procedure *) procedure)) (chicken.memory.representation#extended-procedure? (#(procedure #:clean) chicken.memory.representation#extended-procedure (*) boolean)) (chicken.memory.representation#mutate-procedure! (#(procedure #:enforce) chicken.memory.representation#mutate-procedure! (procedure (procedure (procedure) . *)) procedure)) (chicken.memory.representation#number-of-bytes (#(procedure #:clean) chicken.memory.representation#number-of-bytes (*) fixnum) (((or blob string)) (##sys#size #(1))) (((or port procedure symbol keyword pair vector locative float pointer-vector)) ;; would be applicable to all structure types, but we can't specify ;; "(struct *)" (yet) (##core#inline "C_bytes" (##sys#size #(1))))) (chicken.memory.representation#number-of-slots (#(procedure #:clean #:foldable) chicken.memory.representation#number-of-slots (*) fixnum) (((or vector symbol keyword pair)) (##sys#size #(1)))) (chicken.memory.representation#object-become! (procedure chicken.memory.representation#object-become! (list) *)) (chicken.memory.representation#object-copy (#(procedure #:clean) chicken.memory.representation#object-copy (*) *)) (chicken.memory.representation#procedure-data (#(procedure #:clean #:enforce) chicken.memory.representation#procedure-data (procedure) *)) (chicken.memory.representation#record->vector (#(procedure #:clean) chicken.memory.representation#record->vector (*) vector)) (chicken.memory.representation#make-record-instance (#(procedure #:clean) chicken.memory.representation#make-record-instance (symbol #!rest) *)) (chicken.memory.representation#record-instance? (#(procedure #:clean) chicken.memory.representation#record-instance? (* #!optional symbol) boolean) ((* symbol) (##sys#structure? #(1) #(2))) ((*) (let ((#(tmp) #(1))) (if (##sys#immediate? #(tmp)) '#f (##sys#generic-structure? #(tmp)))))) (chicken.memory.representation#record-instance-length (#(procedure #:clean) chicken.memory.representation#record-instance-length (*) fixnum)) (chicken.memory.representation#record-instance-slot (#(procedure #:clean #:enforce) chicken.memory.representation#record-instance-slot (* fixnum) *)) (chicken.memory.representation#record-instance-slot-set! (#(procedure #:clean #:enforce) chicken.memory.representation#record-instance-slot-set! (* fixnum *) undefined)) (chicken.memory.representation#record-instance-type (#(procedure #:clean) chicken.memory.representation#record-instance-type (*) *)) (chicken.memory.representation#set-procedure-data! (#(procedure #:clean #:enforce) chicken.memory.representation#set-procedure-data! (procedure *) undefined)) ;; locative (chicken.locative#locative->object (#(procedure #:clean #:enforce) chicken.locative#locative->object (locative) *)) (chicken.locative#locative-ref (#(procedure #:clean #:enforce) chicken.locative#locative-ref (locative) *) ((locative) (##core#inline_allocate ("C_a_i_locative_ref" 6) #(1)))) (chicken.locative#locative-set! (#(procedure #:enforce) chicken.locative#locative-set! (locative *) *)) (chicken.locative#locative? (#(procedure #:pure #:predicate locative) chicken.locative#locative? (*) boolean)) (chicken.locative#make-locative (#(procedure #:clean #:enforce) chicken.locative#make-locative (* #!optional fixnum) locative)) (chicken.locative#make-weak-locative (#(procedure #:clean #:enforce) chicken.locative#make-weak-locative (* #!optional fixnum) locative)) ;; port (chicken.port#call-with-input-string (#(procedure #:enforce) chicken.port#call-with-input-string (string (procedure (input-port) . *)) . *)) (chicken.port#call-with-output-string (#(procedure #:enforce) chicken.port#call-with-output-string ((procedure (output-port) . *)) string)) (chicken.port#copy-port (#(procedure #:enforce) chicken.port#copy-port (* * #!optional (procedure (*) *) (procedure (* output-port) *)) undefined)) (chicken.port#make-input-port (#(procedure #:clean #:enforce) chicken.port#make-input-port ((procedure () (or char eof)) (procedure () *) (procedure () . *) #!optional * * * *) input-port)) (chicken.port#make-output-port (#(procedure #:clean #:enforce) chicken.port#make-output-port ((procedure (string) . *) (procedure () . *) #!optional (procedure () . *)) output-port)) (chicken.port#port-for-each (#(procedure #:enforce) chicken.port#port-for-each ((procedure (*) *) (procedure () . *)) undefined)) (chicken.port#port-map (forall (a b) (#(procedure #:enforce) chicken.port#port-map ((procedure (a) b) (procedure () a)) (list-of b)))) (chicken.port#port-fold (#(procedure #:enforce) chicken.port#port-fold ((procedure (* *) *) * (procedure () *)) *)) (chicken.port#port-position (#(procedure #:clean #:enforce) chicken.port#port-position (#!optional port) fixnum fixnum)) (chicken.port#make-bidirectional-port (#(procedure #:clean #:enforce) chicken.port#make-bidirectional-port (input-port output-port) (refine (input output) port))) (chicken.port#make-broadcast-port (#(procedure #:clean #:enforce) chicken.port#make-broadcast-port (#!rest output-port) output-port)) (chicken.port#make-concatenated-port (#(procedure #:clean #:enforce) chicken.port#make-concatenated-port (port #!rest input-port) input-port)) (chicken.port#set-buffering-mode! (#(procedure #:clean #:enforce) chicken.port#set-buffering-mode! (port keyword #!optional fixnum) undefined)) (chicken.port#with-error-output-to-port (#(procedure #:enforce) chicken.port#with-error-output-to-port (output-port (procedure () . *)) . *)) (chicken.port#with-input-from-port (#(procedure #:enforce) chicken.port#with-input-from-port (input-port (procedure () . *)) . *)) (chicken.port#with-input-from-string (#(procedure #:enforce) chicken.port#with-input-from-string (string (procedure () . *)) . *)) (chicken.port#with-output-to-port (#(procedure #:enforce) chicken.port#with-output-to-port (output-port (procedure () . *)) . *)) (chicken.port#with-output-to-string (#(procedure #:enforce) chicken.port#with-output-to-string ((procedure () . *)) string)) (chicken.port#with-error-output-to-string (#(procedure #:enforce) chicken.port#with-error-output-to-string ((procedure () . *)) string)) (chicken.port#port-name (#(procedure #:clean #:enforce) chicken.port#port-name (#!optional port) *) ((port) (##sys#slot #(1) '3))) (chicken.port#set-port-name! (#(procedure #:clean #:enforce) chicken.port#set-port-name! (port string) undefined) ((port string) (##sys#setslot #(1) '3 #(2)))) (chicken.port#terminal-name (#(procedure #:clean #:enforce) chicken.port#terminal-name (port) string)) (chicken.port#terminal-port? (#(procedure #:clean #:enforce) chicken.port#terminal-port? (port) boolean)) (chicken.port#terminal-size (#(procedure #:clean #:enforce) chicken.port#terminal-size (port) fixnum fixnum)) ;; errno (chicken.errno#errno (#(procedure #:clean) chicken.errno#errno () fixnum)) (chicken.errno#errno/2big fixnum) (chicken.errno#errno/acces fixnum) (chicken.errno#errno/again fixnum) (chicken.errno#errno/badf fixnum) (chicken.errno#errno/busy fixnum) (chicken.errno#errno/child fixnum) (chicken.errno#errno/deadlk fixnum) (chicken.errno#errno/dom fixnum) (chicken.errno#errno/exist fixnum) (chicken.errno#errno/fault fixnum) (chicken.errno#errno/fbig fixnum) (chicken.errno#errno/ilseq fixnum) (chicken.errno#errno/intr fixnum) (chicken.errno#errno/inval fixnum) (chicken.errno#errno/io fixnum) (chicken.errno#errno/isdir fixnum) (chicken.errno#errno/mfile fixnum) (chicken.errno#errno/mlink fixnum) (chicken.errno#errno/nametoolong fixnum) (chicken.errno#errno/nfile fixnum) (chicken.errno#errno/nodev fixnum) (chicken.errno#errno/noent fixnum) (chicken.errno#errno/noexec fixnum) (chicken.errno#errno/nolck fixnum) (chicken.errno#errno/nomem fixnum) (chicken.errno#errno/nospc fixnum) (chicken.errno#errno/nosys fixnum) (chicken.errno#errno/notdir fixnum) (chicken.errno#errno/notempty fixnum) (chicken.errno#errno/notty fixnum) (chicken.errno#errno/nxio fixnum) (chicken.errno#errno/perm fixnum) (chicken.errno#errno/pipe fixnum) (chicken.errno#errno/range fixnum) (chicken.errno#errno/rofs fixnum) (chicken.errno#errno/spipe fixnum) (chicken.errno#errno/srch fixnum) (chicken.errno#errno/wouldblock fixnum) (chicken.errno#errno/xdev fixnum) ;; process-context (chicken.process-context#argc+argv (#(procedure #:clean) chicken.process-context#argc+argv () fixnum pointer)) (chicken.process-context#argv (#(procedure #:clean) chicken.process-context#argv () (list-of string))) (chicken.process-context#change-directory (#(procedure #:clean #:enforce) chicken.process-context#change-directory (string) string)) (chicken.process-context#command-line-arguments (#(procedure #:clean) chicken.process-context#command-line-arguments (#!optional (list-of string)) (list-of string))) (chicken.process-context#current-directory (#(procedure #:clean #:enforce) chicken.process-context#current-directory () string)) (chicken.process-context#executable-pathname (#(procedure #:pure) chicken.process-context#executable-pathname () (or string false))) (chicken.process-context#get-environment-variable (#(procedure #:clean #:enforce) chicken.process-context#get-environment-variable (string) *)) (chicken.process-context#get-environment-variables (#(procedure #:clean) chicken.process-context#get-environment-variables () (list-of (pair string string)))) (chicken.process-context#program-name (#(procedure #:clean #:enforce) chicken.process-context#program-name (#!optional string) string)) (chicken.process-context#set-environment-variable! (#(procedure #:clean #:enforce) chicken.process-context#set-environment-variable! (string string) undefined)) (chicken.process-context#unset-environment-variable! (#(procedure #:clean #:enforce) chicken.process-context#unset-environment-variable! (string) undefined)) ;; process-context.posix (chicken.process-context.posix#change-directory* (#(procedure #:clean #:enforce) chicken.process-context.posix#change-directory* (fixnum) fixnum)) (chicken.process-context.posix#create-session (#(procedure #:clean) chicken.process-context.posix#create-session () fixnum)) (chicken.process-context.posix#current-effective-group-id (#(procedure #:clean) chicken.process-context.posix#current-effective-group-id () fixnum)) (chicken.process-context.posix#current-effective-user-id (#(procedure #:clean) chicken.process-context.posix#current-effective-user-id () fixnum)) (chicken.process-context.posix#current-effective-user-name (#(procedure #:clean) chicken.process-context.posix#current-effective-user-name () string)) (chicken.process-context.posix#current-group-id (#(procedure #:clean) chicken.process-context.posix#current-group-id () fixnum)) (chicken.process-context.posix#current-user-id (#(procedure #:clean) chicken.process-context.posix#current-user-id () fixnum)) (chicken.process-context.posix#current-user-name (#(procedure #:clean) chicken.process-context.posix#current-user-name () string)) (chicken.process-context.posix#current-process-id (#(procedure #:clean) chicken.process-context.posix#current-process-id () fixnum)) (chicken.process-context.posix#parent-process-id (#(procedure #:clean) chicken.process-context.posix#parent-process-id () fixnum)) (chicken.process-context.posix#process-group-id (#(procedure #:clean #:enforce) chicken.process-context.posix#process-group-id () fixnum)) (chicken.process-context.posix#set-root-directory! (#(procedure #:clean #:enforce) chicken.process-context.posix#set-root-directory! (string) undefined)) (chicken.process-context.posix#user-information (#(procedure #:clean #:enforce) chicken.process-context.posix#user-information ((or string fixnum) #!optional *) *)) ;; file.posix (chicken.file.posix#create-fifo (#(procedure #:clean #:enforce) chicken.file.posix#create-fifo (string #!optional fixnum) undefined)) (chicken.file.posix#create-symbolic-link (#(procedure #:clean #:enforce) chicken.file.posix#create-symbolic-link (string string) undefined)) (chicken.file.posix#read-symbolic-link (#(procedure #:clean #:enforce) chicken.file.posix#read-symbolic-link (string #!optional boolean) string)) (chicken.file.posix#duplicate-fileno (#(procedure #:clean #:enforce) chicken.file.posix#duplicate-fileno (fixnum #!optional fixnum) fixnum)) (chicken.file.posix#fcntl/dupfd fixnum) (chicken.file.posix#fcntl/getfd fixnum) (chicken.file.posix#fcntl/getfl fixnum) (chicken.file.posix#fcntl/setfd fixnum) (chicken.file.posix#fcntl/setfl fixnum) (chicken.file.posix#file-access-time (#(procedure #:clean #:enforce) chicken.file.posix#file-access-time ((or string port fixnum)) integer)) (chicken.file.posix#file-change-time (#(procedure #:clean #:enforce) chicken.file.posix#file-change-time ((or string port fixnum)) integer)) (chicken.file.posix#file-modification-time (#(procedure #:clean #:enforce) chicken.file.posix#file-modification-time ((or string fixnum port)) integer)) (chicken.file.posix#file-close (#(procedure #:clean #:enforce) chicken.file.posix#file-close (fixnum) undefined)) (chicken.file.posix#file-control (#(procedure #:clean #:enforce) chicken.file.posix#file-control (fixnum fixnum #!optional fixnum) fixnum)) (chicken.file.posix#file-creation-mode (#(procedure #:clean #:enforce) chicken.file.posix#file-creation-mode (#!optional fixnum) fixnum)) (chicken.file.posix#file-group (#(procedure #:clean #:enforce) chicken.file.posix#file-owner ((or string fixnum port)) fixnum)) (chicken.file.posix#file-link (#(procedure #:clean #:enforce) chicken.file.posix#file-link (string string) undefined)) (chicken.file.posix#file-lock (#(procedure #:clean #:enforce) chicken.file.posix#file-lock (port #!optional fixnum integer) (struct lock))) (chicken.file.posix#file-lock/blocking (#(procedure #:clean #:enforce) chicken.file.posix#file-lock/blocking (port #!optional fixnum integer) (struct lock))) (chicken.file.posix#file-mkstemp (#(procedure #:clean #:enforce) chicken.file.posix#file-mkstemp (string) fixnum string)) (chicken.file.posix#file-open (#(procedure #:clean #:enforce) chicken.file.posix#file-open (string fixnum #!optional fixnum) fixnum)) (chicken.file.posix#file-owner (#(procedure #:clean #:enforce) chicken.file.posix#file-owner ((or string fixnum port)) fixnum)) (chicken.file.posix#file-permissions (#(procedure #:clean #:enforce) chicken.file.posix#file-permissions ((or string fixnum port)) fixnum)) (chicken.file.posix#file-position (#(procedure #:clean #:enforce) chicken.file.posix#file-position ((or port fixnum)) integer)) (chicken.file.posix#file-read (#(procedure #:clean #:enforce) chicken.file.posix#file-read (fixnum fixnum #!optional *) list)) (chicken.file.posix#file-select (#(procedure #:clean #:enforce) chicken.file.posix#file-select ((or (list-of fixnum) fixnum false) (or (list-of fixnum) fixnum false) #!optional fixnum) * *)) (chicken.file.posix#file-size (#(procedure #:clean #:enforce) chicken.file.posix#file-size ((or string fixnum port)) integer)) (chicken.file.posix#file-stat (#(procedure #:clean #:enforce) chicken.file.posix#file-stat ((or string fixnum port) #!optional *) (vector-of integer))) (chicken.file.posix#file-test-lock (#(procedure #:clean #:enforce) chicken.file.posix#file-test-lock (port #!optional fixnum *) boolean)) (chicken.file.posix#file-truncate (#(procedure #:clean #:enforce) chicken.file.posix#file-truncate ((or string fixnum output-port) integer) undefined)) (chicken.file.posix#file-unlock (#(procedure #:clean #:enforce) chicken.file.posix#file-unlock ((struct lock)) undefined)) (chicken.file.posix#file-write (#(procedure #:clean #:enforce) chicken.file.posix#file-write (fixnum * #!optional fixnum) fixnum)) (chicken.file.posix#file-type (#(procedure #:clean #:enforce) chicken.file.posix#file-type ((or string fixnum port) #!optional * *) symbol)) (chicken.file.posix#block-device? (#(procedure #:clean #:enforce) chicken.file.posix#block-device? ((or string fixnum port)) boolean)) (chicken.file.posix#character-device? (#(procedure #:clean #:enforce) chicken.file.posix#character-device? ((or string fixnum port)) boolean)) (chicken.file.posix#directory? (#(procedure #:clean #:enforce) chicken.file.posix#directory? ((or string fixnum port)) boolean)) (chicken.file.posix#fifo? (#(procedure #:clean #:enforce) chicken.file.posix#fifo? ((or string fixnum port)) boolean)) (chicken.file.posix#regular-file? (#(procedure #:clean #:enforce) chicken.file.posix#regular-file? ((or string fixnum port)) boolean)) (chicken.file.posix#socket? (#(procedure #:clean #:enforce) chicken.file.posix#socket? ((or string fixnum port)) boolean)) (chicken.file.posix#symbolic-link? (#(procedure #:clean #:enforce) chicken.file.posix#symbolic-link? ((or string fixnum port)) boolean)) (chicken.file.posix#fileno/stderr fixnum) (chicken.file.posix#fileno/stdin fixnum) (chicken.file.posix#fileno/stdout fixnum) (chicken.file.posix#open-input-file* (#(procedure #:clean #:enforce) chicken.file.posix#open-input-file* (fixnum #!optional keyword) input-port)) (chicken.file.posix#open-output-file* (#(procedure #:clean #:enforce) chicken.file.posix#open-output-file* (fixnum #!optional keyword) output-port)) (chicken.file.posix#open/append fixnum) (chicken.file.posix#open/binary fixnum) (chicken.file.posix#open/creat fixnum) (chicken.file.posix#open/excl fixnum) (chicken.file.posix#open/fsync fixnum) (chicken.file.posix#open/noctty fixnum) (chicken.file.posix#open/noinherit fixnum) (chicken.file.posix#open/nonblock fixnum) (chicken.file.posix#open/rdonly fixnum) (chicken.file.posix#open/rdwr fixnum) (chicken.file.posix#open/read fixnum) (chicken.file.posix#open/sync fixnum) (chicken.file.posix#open/text fixnum) (chicken.file.posix#open/trunc fixnum) (chicken.file.posix#open/write fixnum) (chicken.file.posix#open/wronly fixnum) (chicken.file.posix#perm/irgrp fixnum) (chicken.file.posix#perm/iroth fixnum) (chicken.file.posix#perm/irusr fixnum) (chicken.file.posix#perm/irwxg fixnum) (chicken.file.posix#perm/irwxo fixnum) (chicken.file.posix#perm/irwxu fixnum) (chicken.file.posix#perm/isgid fixnum) (chicken.file.posix#perm/isuid fixnum) (chicken.file.posix#perm/isvtx fixnum) (chicken.file.posix#perm/iwgrp fixnum) (chicken.file.posix#perm/iwoth fixnum) (chicken.file.posix#perm/iwusr fixnum) (chicken.file.posix#perm/ixgrp fixnum) (chicken.file.posix#perm/ixoth fixnum) (chicken.file.posix#perm/ixusr fixnum) (chicken.file.posix#port->fileno (#(procedure #:clean #:enforce) chicken.file.posix#port->fileno (port) fixnum)) (chicken.file.posix#seek/cur fixnum) (chicken.file.posix#seek/end fixnum) (chicken.file.posix#seek/set fixnum) (chicken.file.posix#set-file-group! (#(procedure #:clean #:enforce) chicken.file.posix#set-file-group! ((or string fixnum port) fixnum) undefined)) (chicken.file.posix#set-file-owner! (#(procedure #:clean #:enforce) chicken.file.posix#set-file-owner! ((or string fixnum port) fixnum) undefined)) (chicken.file.posix#set-file-permissions! (#(procedure #:clean #:enforce) chicken.file.posix#set-file-permissions! ((or string fixnum port) fixnum) undefined)) (chicken.file.posix#set-file-position! (#(procedure #:clean #:enforce) chicken.file.posix#set-file-position! ((or port fixnum) integer #!optional fixnum) undefined)) (chicken.file.posix#set-file-times! (#(procedure #:clean #:enforce) chicken.file.posix#set-file-times! (string #!optional (or false integer) (or false integer)) undefined)) ;; time.posix (chicken.time.posix#seconds->local-time (#(procedure #:clean #:enforce) chicken.time.posix#seconds->local-time (#!optional integer) (vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum))) (chicken.time.posix#seconds->string (#(procedure #:clean #:enforce) chicken.time.posix#seconds->string (#!optional integer) string)) (chicken.time.posix#seconds->utc-time (#(procedure #:clean #:enforce) chicken.time.posix#seconds->utc-time (#!optional integer) (vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum))) (chicken.time.posix#utc-time->seconds (#(procedure #:clean #:enforce) chicken.time.posix#utc-time->seconds ((vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum)) integer)) (chicken.time.posix#local-time->seconds (#(procedure #:clean #:enforce) chicken.time.posix#local-time->seconds ((vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum)) integer)) (chicken.time.posix#local-timezone-abbreviation (#(procedure #:clean) chicken.time.posix#local-timezone-abbreviation () string)) (chicken.time.posix#string->time (#(procedure #:clean #:enforce) chicken.time.posix#string->time (string #!optional string) (vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum))) (chicken.time.posix#time->string (#(procedure #:clean #:enforce) chicken.time.posix#time->string ((vector fixnum fixnum fixnum fixnum fixnum fixnum fixnum fixnum boolean fixnum) #!optional string) string)) ;; process (chicken.process#process-execute (#(procedure #:clean #:enforce) chicken.process#process-execute (string #!optional (list-of string) (list-of (pair string string)) fixnum) noreturn)) (chicken.process#process-fork (#(procedure #:enforce) chicken.process#process-fork (#!optional (or (procedure () . *) false) *) fixnum)) (chicken.process#qs (#(procedure #:clean #:enforce) chicken.process#qs (string #!optional symbol) string)) (chicken.process#process-run (#(procedure #:clean #:enforce) chicken.process#process-run (string #!optional (list-of string)) fixnum)) (chicken.process#process-signal (#(procedure #:clean #:enforce) chicken.process#process-signal (fixnum #!optional fixnum) undefined)) (chicken.process#process-spawn (#(procedure #:clean #:enforce) chicken.process#process-spawn (fixnum string #!optional (list-of string) (list-of (pair string string)) boolean) fixnum)) (chicken.process#system (#(procedure #:clean #:enforce) chicken.process#system (string) fixnum)) (chicken.process#system* (#(procedure #:clean #:enforce) chicken.process#system* (string) undefined)) (chicken.process#process (#(procedure #:clean #:enforce) chicken.process#process (string #!optional (list-of string) (list-of (pair string string)) boolean) input-port output-port fixnum)) (chicken.process#process* (#(procedure #:clean #:enforce) chicken.process#process* (string #!optional (list-of string) (list-of (pair string string)) boolean) input-port output-port fixnum *)) (chicken.process#process-wait (#(procedure #:clean #:enforce) chicken.process#process-wait (#!optional fixnum *) fixnum fixnum fixnum)) (chicken.process#process-sleep (#(procedure #:clean #:enforce) chicken.process#process-sleep (fixnum) fixnum)) (chicken.process#call-with-input-pipe (#(procedure #:enforce) chicken.process#call-with-input-pipe (string (procedure (input-port) . *) #!optional keyword) . *)) (chicken.process#call-with-output-pipe (#(procedure #:enforce) chicken.process#call-with-output-pipe (string (procedure (input-port) . *) #!optional keyword) . *)) (chicken.process#close-input-pipe (#(procedure #:clean #:enforce) chicken.process#close-input-pipe (input-port) fixnum)) (chicken.process#close-output-pipe (#(procedure #:clean #:enforce) chicken.process#close-output-pipe (output-port) fixnum)) (chicken.process#create-pipe (procedure chicken.process#create-pipe (#!optional fixnum) fixnum fixnum)) (chicken.process#open-input-pipe (#(procedure #:clean #:enforce) chicken.process#open-input-pipe (string #!optional keyword) input-port)) (chicken.process#open-output-pipe (#(procedure #:clean #:enforce) chicken.process#open-output-pipe (string #!optional keyword) output-port)) (chicken.process#with-input-from-pipe (#(procedure #:enforce) chicken.process#with-input-from-pipe (string (procedure () . *) #!optional keyword) . *)) (chicken.process#with-output-to-pipe (#(procedure #:enforce) chicken.process#with-output-to-pipe (string (procedure () . *) #!optional keyword) . *)) (chicken.process#pipe/buf fixnum) (chicken.process#spawn/overlay fixnum) (chicken.process#spawn/wait fixnum) (chicken.process#spawn/nowait fixnum) (chicken.process#spawn/nowaito fixnum) (chicken.process#spawn/detach fixnum) ;; process.signal (chicken.process.signal#set-alarm! (#(procedure #:clean #:enforce) chicken.process#set-alarm! (integer) integer)) (chicken.process.signal#set-signal-handler! (#(procedure #:clean #:enforce) chicken.process.signal#set-signal-handler! (fixnum (or false (procedure (fixnum) . *))) undefined)) (chicken.process.signal#set-signal-mask! (#(procedure #:clean #:enforce) chicken.process.signal#set-signal-mask! ((list-of fixnum)) undefined)) (chicken.process.signal#signal-handler (#(procedure #:clean #:enforce) chicken.process.signal#signal-handler (fixnum) (or false (procedure (fixnum) . *)))) (chicken.process.signal#signal-mask (#(procedure #:clean) chicken.process.signal#signal-mask () fixnum)) (chicken.process.signal#signal-mask! (#(procedure #:clean #:enforce) chicken.process.signal#signal-mask! (fixnum) undefined)) (chicken.process.signal#signal-masked? (#(procedure #:clean #:enforce) chicken.process.signal#signal-masked? (fixnum) boolean)) (chicken.process.signal#signal-unmask! (#(procedure #:clean #:enforce) chicken.process.signal#signal-unmask! (fixnum) undefined)) (chicken.process.signal#signal/abrt fixnum) (chicken.process.signal#signal/alrm fixnum) (chicken.process.signal#signal/chld fixnum) (chicken.process.signal#signal/cont fixnum) (chicken.process.signal#signal/fpe fixnum) (chicken.process.signal#signal/hup fixnum) (chicken.process.signal#signal/ill fixnum) (chicken.process.signal#signal/int fixnum) (chicken.process.signal#signal/io fixnum) (chicken.process.signal#signal/bus fixnum) (chicken.process.signal#signal/kill fixnum) (chicken.process.signal#signal/pipe fixnum) (chicken.process.signal#signal/prof fixnum) (chicken.process.signal#signal/quit fixnum) (chicken.process.signal#signal/segv fixnum) (chicken.process.signal#signal/stop fixnum) (chicken.process.signal#signal/term fixnum) (chicken.process.signal#signal/trap fixnum) (chicken.process.signal#signal/tstp fixnum) (chicken.process.signal#signal/urg fixnum) (chicken.process.signal#signal/usr1 fixnum) (chicken.process.signal#signal/usr2 fixnum) (chicken.process.signal#signal/vtalrm fixnum) (chicken.process.signal#signal/winch fixnum) (chicken.process.signal#signal/xcpu fixnum) (chicken.process.signal#signal/xfsz fixnum) (chicken.process.signal#signals-list (list-of fixnum)) ;; sort (chicken.sort#merge (forall (e) (#(procedure #:enforce) chicken.sort#merge ((list-of e) (list-of e) (procedure (e e) *)) (list-of e)))) (chicken.sort#merge! (forall (e) (#(procedure #:enforce) chicken.sort#merge! ((list-of e) (list-of e) (procedure (e e) *)) (list-of e)))) (chicken.sort#sort (forall (e (s (or (vector-of e) (list-of e)))) (#(procedure #:enforce) chicken.sort#sort (s (procedure (e e) *)) s))) (chicken.sort#sort! (forall (e (s (or (vector-of e) (list-of e)))) (#(procedure #:enforce) chicken.sort#sort! (s (procedure (e e) *)) s))) (chicken.sort#sorted? (#(procedure #:enforce) chicken.sort#sorted? ((or list vector) (procedure (* *) *)) boolean)) (chicken.sort#topological-sort (#(procedure #:enforce) chicken.sort#topological-sort ((list-of list) (procedure (* *) *)) list)) ;; srfi-4 (srfi-4#blob->f32vector (#(procedure #:clean #:enforce) srfi-4#blob->f32vector (blob) (struct f32vector))) (srfi-4#blob->f32vector/shared (#(procedure #:clean #:enforce) srfi-4#blob->f32vector/shared (blob) (struct f32vector))) (srfi-4#blob->f64vector (#(procedure #:clean #:enforce) srfi-4#blob->f64vector (blob) (struct f64vector))) (srfi-4#blob->f64vector/shared (#(procedure #:clean #:enforce) srfi-4#blob->f64vector/shared (blob) (struct f64vector))) (srfi-4#blob->s16vector (#(procedure #:clean #:enforce) srfi-4#blob->s16vector (blob) (struct s16vector))) (srfi-4#blob->s16vector/shared (#(procedure #:clean #:enforce) srfi-4#blob->s16vector/shared (blob) (struct s16vector))) (srfi-4#blob->s32vector (#(procedure #:clean #:enforce) srfi-4#blob->s32vector (blob) (struct s32vector))) (srfi-4#blob->s32vector/shared (#(procedure #:clean #:enforce) srfi-4#blob->s32vector/shared (blob) (struct s32vector))) (srfi-4#blob->s8vector (#(procedure #:clean #:enforce) srfi-4#blob->s8vector (blob) (struct s8vector))) (srfi-4#blob->s8vector/shared (#(procedure #:clean #:enforce) srfi-4#blob->s8vector/shared (blob) (struct s8vector))) (srfi-4#blob->u16vector (#(procedure #:clean #:enforce) srfi-4#blob->u16vector (blob) (struct u16vector))) (srfi-4#blob->u16vector/shared (#(procedure #:clean #:enforce) srfi-4#blob->u16vector/shared (blob) (struct u16vector))) (srfi-4#blob->u32vector (#(procedure #:clean #:enforce) srfi-4#blob->u32vector (blob) (struct u32vector))) (srfi-4#blob->u32vector/shared (#(procedure #:clean #:enforce) srfi-4#blob->u32vector/shared (blob) (struct u32vector))) (srfi-4#blob->u64vector (#(procedure #:clean #:enforce) srfi-4#blob->u64vector (blob) (struct u64vector))) (srfi-4#blob->u64vector/shared (#(procedure #:clean #:enforce) srfi-4#blob->u64vector/shared (blob) (struct u64vector))) (srfi-4#blob->u8vector (#(procedure #:clean #:enforce) blob->u8vector (blob) (struct u8vector))) (srfi-4#blob->u8vector/shared (#(procedure #:clean #:enforce) srfi-4#blob->u8vector/shared (blob) (struct u8vector))) (srfi-4#f32vector (#(procedure #:clean #:enforce) srfi-4#f32vector (#!rest (or integer float)) (struct f32vector))) (srfi-4#f32vector->blob (#(procedure #:clean #:enforce) srfi-4#f32vector->blob ((struct f32vector)) blob)) (srfi-4#f32vector->blob/shared (#(procedure #:clean #:enforce) srfi-4#f32vector->blob/shared ((struct f32vector)) blob)) (srfi-4#f32vector->list (#(procedure #:clean #:enforce) srfi-4#f32vector->list ((struct f32vector)) (list-of float))) (srfi-4#f32vector-length (#(procedure #:clean #:enforce) srfi-4#f32vector-length ((struct f32vector)) fixnum) (((struct f32vector)) (##core#inline "C_u_i_32vector_length" #(1)))) (srfi-4#f32vector-ref (#(procedure #:clean #:enforce) srfi-4#f32vector-ref ((struct f32vector) fixnum) float)) (srfi-4#f32vector-set! (#(procedure #:clean #:enforce) srfi-4#f32vector-set! ((struct f32vector) fixnum (or integer float)) undefined)) (srfi-4#f32vector? (#(procedure #:pure #:predicate (struct f32vector)) srfi-4#f32vector? (*) boolean)) (srfi-4#f64vector (#(procedure #:clean #:enforce) srfi-4#f64vector (#!rest (or integer float)) (struct f64vector))) (srfi-4#f64vector->blob (#(procedure #:clean #:enforce) srfi-4#f64vector->blob ((struct f64vector)) blob)) (srfi-4#f64vector->blob/shared (#(procedure #:clean #:enforce) srfi-4#f64vector->blob/shared ((struct f64vector)) blob)) (srfi-4#f64vector->list (#(procedure #:clean #:enforce) srfi-4#f64vector->list ((struct f64vector)) (list-of float))) (srfi-4#f64vector-length (#(procedure #:clean #:enforce) srfi-4#f64vector-length ((struct f64vector)) fixnum) (((struct f64vector)) (##core#inline "C_u_i_64vector_length" #(1)))) (srfi-4#f64vector-ref (#(procedure #:clean #:enforce) srfi-4#f64vector-ref ((struct f64vector) fixnum) float)) (srfi-4#f64vector-set! (#(procedure #:clean #:enforce) srfi-4#f64vector-set! ((struct f64vector) fixnum (or integer float)) undefined)) (srfi-4#f64vector? (#(procedure #:pure #:predicate (struct f64vector)) srfi-4#f64vector? (*) boolean)) (srfi-4#list->f32vector (#(procedure #:clean #:enforce) srfi-4#list->f32vector ((list-of (or float integer))) (struct f32vector))) (srfi-4#list->f64vector (#(procedure #:clean #:enforce) srfi-4#list->f64vector ((list-of (or float integer))) (struct f64vector))) (srfi-4#list->s16vector (#(procedure #:clean #:enforce) srfi-4#list->s16vector ((list-of fixnum)) (struct s16vector))) (srfi-4#list->s32vector (#(procedure #:clean #:enforce) srfi-4#list->s32vector ((list-of integer)) (struct s32vector))) (srfi-4#list->s8vector (#(procedure #:clean #:enforce) srfi-4#list->s8vector ((list-of fixnum)) (struct s8vector))) (srfi-4#list->u16vector (#(procedure #:clean #:enforce) srfi-4#list->u16vector ((list-of fixnum)) (struct u16vector))) (srfi-4#list->u32vector (#(procedure #:clean #:enforce) srfi-4#list->u32vector ((list-of integer)) (struct u32vector))) (srfi-4#list->u64vector (#(procedure #:clean #:enforce) srfi-4#list->u64vector ((list-of integer)) (struct u64vector))) (srfi-4#list->u8vector (#(procedure #:clean #:enforce) srfi-4#list->u8vector ((list-of fixnum)) (struct u8vector))) (srfi-4#make-f32vector (#(procedure #:clean #:enforce) srfi-4#make-f32vector (fixnum #!optional (or integer float false) boolean boolean) (struct f32vector))) (srfi-4#make-f64vector (#(procedure #:clean #:enforce) srfi-4#make-f64vector (fixnum #!optional (or integer float false) boolean) (struct f64vector))) (srfi-4#make-s16vector (#(procedure #:clean #:enforce) srfi-4#make-s16vector (fixnum #!optional (or fixnum false) boolean boolean) (struct s16vector))) (srfi-4#make-s32vector (#(procedure #:clean #:enforce) srfi-4#make-s32vector (fixnum #!optional (or integer false) boolean boolean) (struct s32vector))) (srfi-4#make-s8vector (#(procedure #:clean #:enforce) srfi-4#make-s8vector (fixnum #!optional (or fixnum false) boolean boolean) (struct s8vector))) (srfi-4#make-u16vector (#(procedure #:clean #:enforce) srfi-4#make-u16vector (fixnum #!optional (or fixnum false) boolean boolean) (struct u16vector))) (srfi-4#make-u32vector (#(procedure #:clean #:enforce) srfi-4#make-u32vector (fixnum #!optional (or integer false) boolean boolean) (struct u32vector))) (srfi-4#make-u64vector (#(procedure #:clean #:enforce) srfi-4#make-u64vector (fixnum #!optional (or integer false) boolean boolean) (struct u64vector))) (srfi-4#make-u8vector (#(procedure #:clean #:enforce) srfi-4#make-u8vector (fixnum #!optional (or fixnum false) boolean boolean) (struct u8vector))) (srfi-4#read-u8vector (#(procedure #:enforce) srfi-4#read-u8vector (#!optional (or fixnum false) input-port) (or (struct u8vector) eof))) (srfi-4#read-u8vector! (#(procedure #:enforce) srfi-4#read-u8vector! ((or fixnum false) (struct u8vector) #!optional input-port fixnum) integer)) (srfi-4#release-number-vector (procedure srfi-4#release-number-vector (*) undefined)) (srfi-4#s16vector (#(procedure #:clean #:enforce) srfi-4#s16vector (#!rest fixnum) (struct s16vector))) (srfi-4#s16vector->blob (#(procedure #:clean #:enforce) srfi-4#s16vector->blob ((struct s16vector)) blob)) (srfi-4#s16vector->blob/shared (#(procedure #:clean #:enforce) srfi-4#s16vector->blob/shared ((struct s16vector)) blob)) (srfi-4#s16vector->list (#(procedure #:clean #:enforce) srfi-4#s16vector->list ((struct s16vector)) (list-of fixnum))) (srfi-4#s16vector-length (#(procedure #:clean #:enforce) srfi-4#s16vector-length ((struct s16vector)) fixnum) (((struct s16vector)) (##core#inline "C_u_i_16vector_length" #(1)))) (srfi-4#s16vector-ref (#(procedure #:clean #:enforce) srfi-4#s16vector-ref ((struct s16vector) fixnum) fixnum)) (srfi-4#s16vector-set! (#(procedure #:clean #:enforce) srfi-4#s16vector-set! ((struct s16vector) fixnum fixnum) undefined)) (srfi-4#s16vector? (#(procedure #:pure #:predicate (struct s16vector)) srfi-4#s16vector? (*) boolean)) (srfi-4#s32vector (#(procedure #:clean #:enforce) srfi-4#s32vector (#!rest integer) (struct s32vector))) (srfi-4#s32vector->blob (#(procedure #:clean #:enforce) srfi-4#s32vector->blob ((struct s32vector)) blob)) (srfi-4#s32vector->blob/shared (#(procedure #:clean #:enforce) srfi-4#s32vector->blob/shared ((struct s32vector)) blob)) (srfi-4#s32vector->list (#(procedure #:clean #:enforce) srfi-4#s32vector->list ((struct s32vector)) (list-of integer))) (srfi-4#s32vector-length (#(procedure #:clean #:enforce) srfi-4#s32vector-length ((struct s32vector)) fixnum) (((struct s32vector)) (##core#inline "C_u_i_32vector_length" #(1)))) (srfi-4#s32vector-ref (#(procedure #:clean #:enforce) srfi-4#s32vector-ref ((struct s32vector) fixnum) integer)) (srfi-4#s32vector-set! (#(procedure #:clean #:enforce) srfi-4#s32vector-set! ((struct s32vector) fixnum integer) undefined)) (srfi-4#s32vector? (#(procedure #:pure #:predicate (struct s32vector)) srfi-4#s32vector? (*) boolean)) (srfi-4#s8vector (#(procedure #:clean #:enforce) srfi-4#s8vector (#!rest fixnum) (struct s8vector))) (srfi-4#s8vector->blob (#(procedure #:clean #:enforce) srfi-4#s8vector->blob ((struct s8vector)) blob)) (srfi-4#s8vector->blob/shared (#(procedure #:clean #:enforce) srfi-4#s8vector->blob/shared ((struct s8vector)) blob)) (srfi-4#s8vector->list (#(procedure #:clean #:enforce) srfi-4#s8vector->list ((struct s8vector)) (list-of fixnum))) (srfi-4#s8vector-length (#(procedure #:clean #:enforce) srfi-4#s8vector-length ((struct s8vector)) fixnum) (((struct s8vector)) (##core#inline "C_u_i_8vector_length" #(1)))) (srfi-4#s8vector-ref (#(procedure #:clean #:enforce) srfi-4#s8vector-ref ((struct s8vector) fixnum) fixnum)) (srfi-4#s8vector-set! (#(procedure #:clean #:enforce) srfi-4#s8vector-set! ((struct s8vector) fixnum fixnum) undefined)) (srfi-4#s8vector? (#(procedure #:pure #:predicate (struct s8vector)) srfi-4#s8vector? (*) boolean)) (srfi-4#subf32vector (#(procedure #:clean #:enforce) srfi-4#subf32vector ((struct f32vector) fixnum fixnum) (struct f32vector))) (srfi-4#subf64vector (#(procedure #:clean #:enforce) srfi-4#subf64vector ((struct f64vector) fixnum fixnum) (struct f64vector))) (srfi-4#subs16vector (#(procedure #:clean #:enforce) srfi-4#subs16vector ((struct s16vector) fixnum fixnum) (struct s16vector))) (srfi-4#subs32vector (#(procedure #:clean #:enforce) srfi-4#subs32vector ((struct s32vector) fixnum fixnum) (struct s32vector))) (srfi-4#subs8vector (#(procedure #:clean #:enforce) srfi-4#subs8vector ((struct s8vector) fixnum fixnum) (struct s8vector))) (srfi-4#subu16vector (#(procedure #:clean #:enforce) srfi-4#subu16vector ((struct u16vector) fixnum fixnum) (struct u16vector))) (srfi-4#subu32vector (#(procedure #:clean #:enforce) srfi-4#subu32vector ((struct u32vector) fixnum fixnum) (struct u32vector))) (srfi-4#subu64vector (#(procedure #:clean #:enforce) srfi-4#subu64vector ((struct u64vector) fixnum fixnum) (struct u64vector))) (srfi-4#subu8vector (#(procedure #:clean #:enforce) srfi-4#subu8vector ((struct u8vector) fixnum fixnum) (struct u8vector))) (srfi-4#u16vector (#(procedure #:clean #:enforce) srfi-4#u16vector (#!rest fixnum) (struct u16vector))) (srfi-4#u16vector->blob (#(procedure #:clean #:enforce) srfi-4#u16vector->blob ((struct u16vector)) blob)) (srfi-4#u16vector->blob/shared (#(procedure #:clean #:enforce) srfi-4#u16vector->blob/shared ((struct u16vector)) blob)) (srfi-4#u16vector->list (#(procedure #:clean #:enforce) srfi-4#u16vector->list ((struct u16vector)) (list-of fixnum))) (srfi-4#u16vector-length (#(procedure #:clean #:enforce) srfi-4#u16vector-length ((struct u16vector)) fixnum) (((struct u16vector)) (##core#inline "C_u_i_16vector_length" #(1)))) (srfi-4#u16vector-ref (#(procedure #:clean #:enforce) srfi-4#u16vector-ref ((struct u16vector) fixnum) fixnum)) (srfi-4#u16vector-set! (#(procedure #:clean #:enforce) srfi-4#u16vector-set! ((struct u16vector) fixnum fixnum) undefined)) (srfi-4#u16vector? (#(procedure #:pure #:predicate (struct u16vector)) srfi-4#u16vector? (*) boolean)) (srfi-4#u32vector (#(procedure #:clean #:enforce) srfi-4#u32vector (#!rest integer) (struct u32vector))) (srfi-4#u32vector->blob (#(procedure #:clean #:enforce) srfi-4#u32vector->blob ((struct u32vector)) blob)) (srfi-4#u32vector->blob/shared (#(procedure #:clean #:enforce) srfi-4#u32vector->blob/shared ((struct u32vector)) blob)) (srfi-4#u32vector->list (#(procedure #:clean #:enforce) srfi-4#u32vector->list ((struct u32vector)) (list-of integer))) (srfi-4#u32vector-length (#(procedure #:clean #:enforce) srfi-4#u32vector-length ((struct u32vector)) fixnum) (((struct u32vector)) (##core#inline "C_u_i_32vector_length" #(1)))) (srfi-4#u32vector-ref (#(procedure #:clean #:enforce) srfi-4#u32vector-ref ((struct u32vector) fixnum) integer)) (srfi-4#u32vector-set! (#(procedure #:clean #:enforce) srfi-4#u32vector-set! ((struct u32vector) fixnum integer) undefined)) (srfi-4#u32vector? (#(procedure #:pure #:predicate (struct u32vector)) srfi-4#u32vector? (*) boolean)) (srfi-4#u64vector (#(procedure #:clean #:enforce) srfi-4#u64vector (#!rest integer) (struct u64vector))) (srfi-4#u64vector->blob (#(procedure #:clean #:enforce) srfi-4#u64vector->blob ((struct u64vector)) blob)) (srfi-4#u64vector->blob/shared (#(procedure #:clean #:enforce) srfi-4#u64vector->blob/shared ((struct u64vector)) blob)) (srfi-4#u64vector->list (#(procedure #:clean #:enforce) srfi-4#u64vector->list ((struct u64vector)) (list-of integer))) (srfi-4#u64vector-length (#(procedure #:clean #:enforce) srfi-4#u64vector-length ((struct u64vector)) fixnum) (((struct u64vector)) (##core#inline "C_u_i_64vector_length" #(1)))) (srfi-4#u64vector-ref (#(procedure #:clean #:enforce) srfi-4#u64vector-ref ((struct u64vector) fixnum) integer)) (srfi-4#u64vector-set! (#(procedure #:clean #:enforce) srfi-4#u64vector-set! ((struct u64vector) fixnum integer) undefined)) (srfi-4#u64vector? (#(procedure #:pure #:predicate (struct u64vector)) srfi-4#u64vector? (*) boolean)) (srfi-4#u8vector (#(procedure #:clean #:enforce) srfi-4#u8vector (#!rest fixnum) (struct u8vector))) (srfi-4#u8vector->blob (#(procedure #:clean #:enforce) srfi-4#u8vector->blob ((struct u8vector)) blob)) (srfi-4#u8vector->blob/shared (#(procedure #:clean #:enforce) srfi-4#u8vector->blob/shared ((struct u8vector)) blob)) (srfi-4#u8vector->list (#(procedure #:clean #:enforce) srfi-4#u8vector->list ((struct u8vector)) (list-of fixnum))) (srfi-4#u8vector-length (#(procedure #:clean #:enforce) srfi-4#u8vector-length ((struct u8vector)) fixnum) (((struct u8vector)) (##core#inline "C_u_i_8vector_length" #(1)))) (srfi-4#u8vector-ref (#(procedure #:clean #:enforce) srfi-4#u8vector-ref ((struct u8vector) fixnum) fixnum)) (srfi-4#u8vector-set! (#(procedure #:clean #:enforce) srfi-4#u8vector-set! ((struct u8vector) fixnum fixnum) undefined)) (srfi-4#u8vector? (#(procedure #:pure #:predicate (struct u8vector)) srfi-4#u8vector? (*) boolean)) (srfi-4#write-u8vector (#(procedure #:enforce) srfi-4#write-u8vector ((struct u8vector) #!optional output-port fixnum fixnum) undefined)) (srfi-4#number-vector? (#(procedure #:pure #:predicate (or (struct u8vector) (struct u16vector) (struct s8vector) (struct s16vector) (struct u32vector) (struct s32vector) (struct u64vector) (struct s64vector) (struct f32vector) (struct f64vector))) srfi-4#number-vector? (*) boolean)) (##sys#srfi-4-vector? (#(procedure #:pure #:predicate (or (struct u8vector) (struct u16vector) (struct s8vector) (struct s16vector) (struct u32vector) (struct s32vector) (struct u64vector) (struct s64vector) (struct f32vector) (struct f64vector))) ##sys#srfi-4-vector? (*) boolean)) ;; syntax (chicken.syntax#er-macro-transformer (#(procedure #:clean #:enforce) chicken.syntax#er-macro-transformer ((procedure (* (procedure (*) *) (procedure (* *) *)) *)) (struct transformer))) (chicken.syntax#expand (procedure chicken.syntax#expand (* #!optional list) *)) (chicken.syntax#ir-macro-transformer (#(procedure #:clean #:enforce) chicken.syntax#ir-macro-transformer ((procedure (* (procedure (*) *) (procedure (* *) *)) *)) (struct transformer))) (chicken.syntax#strip-syntax (#(procedure #:clean) chicken.syntax#strip-syntax (*) *)) (chicken.syntax#syntax-error (procedure chicken.syntax#syntax-error (* #!rest) noreturn)) ;; tcp (chicken.tcp#tcp-abandon-port (#(procedure #:clean #:enforce) chicken.tcp#tcp-abandon-port (port) undefined)) (chicken.tcp#tcp-accept (#(procedure #:clean #:enforce) chicken.tcp#tcp-accept ((struct tcp-listener)) input-port output-port)) (chicken.tcp#tcp-accept-ready? (#(procedure #:clean #:enforce) chicken.tcp#tcp-accept-ready? ((struct tcp-listener)) boolean)) (chicken.tcp#tcp-accept-timeout (#(procedure #:clean #:enforce) chicken.tcp#tcp-accept-timeout (#!optional (or false integer)) (or false integer))) (chicken.tcp#tcp-addresses (#(procedure #:clean #:enforce) chicken.tcp#tcp-addresses (port) string string)) (chicken.tcp#tcp-buffer-size (#(procedure #:clean #:enforce) chicken.tcp#tcp-buffer-size (#!optional (or false fixnum)) (or false fixnum))) (chicken.tcp#tcp-close (#(procedure #:clean #:enforce) chicken.tcp#tcp-close ((struct tcp-listener)) undefined)) (chicken.tcp#tcp-connect (#(procedure #:clean #:enforce) chicken.tcp#tcp-connect (string #!optional fixnum) input-port output-port)) (chicken.tcp#tcp-connect-timeout (#(procedure #:clean #:enforce) chicken.tcp#tcp-connect-timeout (#!optional (or false integer)) (or false integer))) (chicken.tcp#tcp-listen (#(procedure #:clean #:enforce) chicken.tcp#tcp-listen (fixnum #!optional fixnum *) (struct tcp-listener))) (chicken.tcp#tcp-listener-fileno (#(procedure #:clean #:enforce) chicken.tcp#tcp-listener-fileno ((struct tcp-listener)) fixnum) (((struct tcp-listener)) (##sys#slot #(1) '1))) (chicken.tcp#tcp-listener-port (#(procedure #:clean #:enforce) chicken.tcp#tcp-listener-port ((struct tcp-listener)) fixnum)) (chicken.tcp#tcp-listener? (#(procedure #:clean #:predicate (struct tcp-listener)) chicken.tcp#tcp-listener? (*) boolean)) (chicken.tcp#tcp-port-numbers (#(procedure #:clean #:enforce) chicken.tcp#tcp-port-numbers (port) fixnum fixnum)) (chicken.tcp#tcp-read-timeout (#(procedure #:clean #:enforce) chicken.tcp#tcp-read-timeout (#!optional (or false integer)) (or false integer))) (chicken.tcp#tcp-write-timeout (#(procedure #:clean #:enforce) chicken.tcp#tcp-write-timeout (#!optional (or false integer)) (or false integer))) chicken-5.1.0/irregex.c0000644000175000017500000656127713502227742014574 0ustar sjamaansjamaan/* Generated from irregex.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: irregex.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file irregex.c -emit-import-library chicken.irregex unit: irregex uses: library expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[501]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,118,101,99,116,111,114,45,99,111,112,121,32,118,41,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,63,32,120,41,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,110,117,109,45,115,117,98,109,97,116,99,104,101,115,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,110,97,109,101,115,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,110,101,119,45,109,97,116,99,104,101,115,32,105,114,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,114,101,115,101,116,45,109,97,116,99,104,101,115,33,32,109,41,0,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,99,111,112,121,45,109,97,116,99,104,101,115,32,109,41}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,100,97,116,97,63,32,111,98,106,41,0,0,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,110,117,109,45,115,117,98,109,97,116,99,104,101,115,32,109,41}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,110,97,109,101,115,32,109,41,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,116,97,114,116,45,99,104,117,110,107,32,109,32,46,32,111,112,116,41,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,116,97,114,116,45,105,110,100,101,120,32,109,32,46,32,111,112,116,41,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,101,110,100,45,99,104,117,110,107,32,109,32,46,32,111,112,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,101,110,100,45,105,110,100,101,120,32,109,32,46,32,111,112,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,115,32,117,110,107,110,111,119,110,63,41}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,60),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,110,117,109,101,114,105,99,45,105,110,100,101,120,32,108,111,99,97,116,105,111,110,32,109,32,111,112,116,41,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,118,97,108,105,100,45,105,110,100,101,120,63,32,109,32,110,41}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,117,98,115,116,114,105,110,103,32,109,32,46,32,111,112,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,117,98,99,104,117,110,107,32,109,32,46,32,111,112,116,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,12),40,102,95,56,52,53,52,32,99,110,107,41,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,12),40,102,95,56,52,51,55,32,99,110,107,41,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,99,110,107,32,114,101,115,41,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,28),40,102,95,56,51,51,54,32,99,110,107,49,32,115,116,97,114,116,32,99,110,107,50,32,101,110,100,41,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,59),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,97,107,101,45,105,114,114,101,103,101,120,45,99,104,117,110,107,101,114,32,103,101,116,45,110,101,120,116,32,103,101,116,45,115,116,114,32,46,32,111,41,0,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,10),40,108,112,32,115,116,97,114,116,41,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,117,110,107,101,114,45,112,114,101,118,45,99,104,97,114,32,99,110,107,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,117,110,107,101,114,45,110,101,120,116,45,99,104,97,114,32,99,110,107,32,115,114,99,41,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,115,99,97,110,45,99,104,97,114,32,115,116,114,32,99,32,46,32,111,41,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,7),40,108,112,32,108,115,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,11),40,97,56,57,56,49,32,115,32,97,41,0,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,99,97,116,45,114,101,118,101,114,115,101,32,115,116,114,105,110,103,45,108,105,115,116,41}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,32,114,101,115,41,0,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,122,101,114,111,45,116,111,32,110,41,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,7),40,108,112,32,108,115,41,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,105,110,100,32,112,114,101,100,32,108,115,41,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,108,97,115,116,32,108,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,14),40,108,112,32,104,101,97,100,32,116,97,105,108,41,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,97,110,121,32,112,114,101,100,32,108,115,41,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,14),40,108,112,32,104,101,97,100,32,116,97,105,108,41,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,101,118,101,114,121,32,112,114,101,100,32,108,115,41,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,111,108,100,32,107,111,110,115,32,107,110,105,108,32,108,115,41,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,108,97,103,45,106,111,105,110,32,97,32,98,41,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,108,97,103,45,99,108,101,97,114,32,97,32,98,41}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,12),40,97,57,54,56,50,32,122,32,106,51,41,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,12),40,97,57,54,55,54,32,121,32,106,50,41,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,11),40,97,57,54,52,50,32,120,32,106,41,0,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,32,108,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,8),40,115,107,105,112,32,105,41}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,14),40,97,57,55,57,57,32,115,101,120,112,32,106,41,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,14),40,97,57,56,51,56,32,115,101,120,112,32,106,41,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,9),40,99,111,108,108,101,99,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,17),40,115,99,97,110,32,102,114,111,109,32,105,32,114,101,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,14),40,97,57,57,56,53,32,115,101,120,112,32,106,41,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,15),40,97,49,48,48,48,51,32,115,101,120,112,32,106,41,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,106,41}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,12),40,102,95,57,54,49,48,32,105,32,107,41,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,14),40,97,49,48,49,55,52,32,114,101,115,32,106,41,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,50),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,119,105,116,104,45,114,101,97,100,45,102,114,111,109,45,115,116,114,105,110,103,32,115,116,114,32,105,32,112,114,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,121,109,98,111,108,45,108,105,115,116,45,62,102,108,97,103,115,32,108,115,41,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,97,121,98,101,45,115,116,114,105,110,103,45,62,115,114,101,32,111,98,106,41,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,15),40,99,97,115,101,100,45,99,104,97,114,32,99,104,41,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,53,57,32,103,49,52,55,49,41,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,18),40,99,97,115,101,100,45,115,116,114,105,110,103,32,115,116,114,41,0,0,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,9),40,99,111,108,108,101,99,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,16),40,99,111,108,108,101,99,116,47,115,105,110,103,108,101,41}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,115,32,116,101,114,109,32,114,101,115,41}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,15),40,99,111,108,108,101,99,116,47,116,101,114,109,115,41,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,6),40,115,97,118,101,41,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,14),40,97,49,49,49,48,53,32,115,114,101,32,106,41,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,8),40,106,111,105,110,32,120,41}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,9),40,110,101,119,45,114,101,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,21),40,108,112,50,32,106,32,102,108,97,103,115,32,105,110,118,101,114,116,63,41,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,14),40,97,49,49,56,54,53,32,115,114,101,32,106,41,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,14),40,97,50,54,54,54,49,32,120,32,114,101,115,41,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,12),40,97,49,51,51,54,55,32,99,32,106,41,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,7),40,103,49,56,55,50,41,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,13),40,97,49,51,54,57,55,32,99,104,32,106,41,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,21),40,103,111,32,105,32,112,114,101,118,45,99,104,97,114,32,99,115,101,116,41,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,9),40,99,111,108,108,101,99,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,15),40,108,112,32,105,32,102,114,111,109,32,114,101,115,41,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,13),40,97,49,50,53,49,48,32,99,104,32,106,41,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,7),40,108,112,50,32,106,41,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,14),40,97,49,50,55,52,49,32,115,114,101,32,106,41,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,10),40,97,49,50,55,57,56,32,99,41,0,0,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,24),40,108,112,32,105,32,102,114,111,109,32,102,108,97,103,115,32,114,101,115,32,115,116,41}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,62,115,114,101,32,115,116,114,32,46,32,111,41,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,112,97,114,115,101,45,104,101,120,45,101,115,99,97,112,101,32,115,116,114,32,105,32,101,110,100,41,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,104,105,103,104,45,99,104,97,114,63,32,99,41,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,6),40,98,121,116,101,41,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,116,102,56,45,115,116,114,105,110,103,45,114,101,102,32,115,116,114,32,105,32,108,101,110,41,0,0,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,116,102,56,45,108,111,119,101,115,116,45,100,105,103,105,116,45,111,102,45,108,101,110,103,116,104,32,108,101,110,41,0,0,0,0,0,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,97,114,45,62,117,116,102,56,45,108,105,115,116,32,99,41,0,0,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,48,54,53,32,103,50,48,55,55,41,0,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,48,51,57,32,103,50,48,53,49,41,0,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,56),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,110,105,99,111,100,101,45,114,97,110,103,101,45,104,101,108,112,101,114,32,111,110,101,32,108,115,32,112,114,101,102,105,120,32,114,101,115,41}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,10),40,97,49,52,54,51,55,32,99,41,0,0,0,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,48,49,32,103,50,49,49,51,41,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,110,105,99,111,100,101,45,114,97,110,103,101,45,117,112,45,102,114,111,109,32,108,111,45,108,115,41,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,10),40,97,49,52,55,55,54,32,99,41,0,0,0,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,51,54,32,103,50,49,52,56,41,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,110,105,99,111,100,101,45,114,97,110,103,101,45,117,112,45,116,111,32,104,105,45,108,115,41,0,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,50,53,32,103,50,50,51,55,41,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,9),40,103,50,50,48,56,32,105,41,0,0,0,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,54,53,32,103,50,50,55,55,41,0,0,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,48,50,32,103,50,50,49,52,41,0,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,55,50,32,103,50,49,56,52,41,0,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,48,51,32,103,50,51,49,53,41,0,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,111,45,108,115,32,104,105,45,108,115,41}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,115,32,97,108,116,115,32,108,111,45,99,115,101,116,41,0,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,62,117,116,102,56,45,112,97,116,116,101,114,110,32,99,115,101,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,32,120,32,46,32,111,41,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,62,105,114,114,101,103,101,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,44),40,97,50,51,49,50,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,9),40,114,101,99,32,115,114,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,50,51,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,8),40,97,50,51,50,54,48,41}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,50,53,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,8),40,97,50,51,52,53,51,41}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,52,52,56,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,8),40,97,50,51,52,55,57,41}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,52,55,52,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,8),40,97,50,51,53,49,52,41}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,53,48,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,8),40,97,50,51,53,54,48,41}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,53,53,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,8),40,97,50,51,53,55,54,41}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,44),40,97,50,51,53,55,48,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,8),40,97,50,51,54,49,57,41}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,44),40,97,50,51,54,49,51,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,55,48,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,8),40,97,50,51,55,52,51,41}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,44),40,97,50,51,55,50,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,16),40,98,111,100,121,52,53,49,53,32,99,111,117,110,116,41}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,8),40,97,50,51,55,56,51,41}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,55,55,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,56,53,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,8),40,97,50,51,56,57,57,41}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,44),40,97,50,51,56,55,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,16),40,98,111,100,121,52,53,55,51,32,99,111,117,110,116,41}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,8),40,97,50,51,57,52,51,41}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,57,51,52,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,8),40,97,50,52,49,48,52,41}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,48,57,48,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,44),40,97,50,52,49,49,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,8),40,97,50,52,49,51,57,41}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,49,50,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,44),40,97,50,52,49,52,54,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,11),40,102,95,50,52,50,48,56,32,120,41,0,0,0,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,8),40,97,50,52,50,48,50,41}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,9),40,97,56,54,50,53,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,9),40,97,56,54,53,50,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,49,54,51,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,44),40,97,50,52,50,50,52,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,8),40,97,50,52,50,54,48,41}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,50,52,54,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,44),40,97,50,52,50,54,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,46),40,102,95,50,52,50,57,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,50,41,0,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,8),40,97,50,52,51,54,50,41}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,46),40,102,95,50,52,51,53,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,50,41,0,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,52,48,52,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,24),40,108,112,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,106,32,108,101,110,41}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,52,52,48,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,8),40,97,50,52,55,48,49,41}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,54,53,52,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,8),40,97,50,52,55,57,54,41}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,44),40,97,50,52,55,54,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,57,57,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,48,53,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,49,52,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,49,55,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,50,51,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,51,52,50,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,51,55,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,52,52,48,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,53,50,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,9),40,108,112,32,115,114,99,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,54,53,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,9),40,108,112,32,115,114,99,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,55,53,48,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,21),40,108,112,32,115,114,101,32,110,32,102,108,97,103,115,32,110,101,120,116,41,0,0,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,8),40,103,114,111,119,32,105,41}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,16),40,97,49,54,57,55,52,32,108,111,51,32,104,105,51,41}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,18),40,108,112,50,32,108,115,32,110,32,108,111,50,32,104,105,50,41,0,0,0,0,0,0}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,16),40,97,49,55,48,53,54,32,108,111,51,32,104,105,51,41}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,18),40,108,112,50,32,108,115,32,110,32,108,111,50,32,104,105,50,41,0,0,0,0,0,0}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,16),40,97,49,55,49,53,50,32,108,111,52,32,104,105,52,41}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,16),40,97,49,55,49,51,56,32,108,111,51,32,104,105,51,41}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,16),40,97,49,55,49,50,52,32,108,111,50,32,104,105,50,41}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,16),40,97,49,55,50,55,49,32,108,111,50,32,104,105,50,41}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,14),40,97,49,55,52,50,53,32,108,111,32,104,105,41,0,0}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,16),40,97,49,55,52,54,52,32,108,111,50,32,104,105,50,41}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,16),40,97,49,55,53,49,49,32,108,111,50,32,104,105,50,41}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,16),40,97,49,55,53,56,53,32,108,111,50,32,104,105,50,41}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,16),40,97,49,55,54,49,51,32,108,111,50,32,104,105,50,41}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,12),40,103,50,57,56,51,32,99,101,108,108,41,0,0,0,0}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,23),40,108,112,32,115,114,101,32,110,32,108,111,32,104,105,32,114,101,116,117,114,110,41,0}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,11),40,103,50,54,49,51,32,110,102,97,41,0,0,0,0,0}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,11),40,103,50,54,48,50,32,110,102,97,41,0,0,0,0,0}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,9),40,114,101,99,32,115,114,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,9),40,103,50,51,54,56,32,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,54,50,32,103,50,51,55,52,41,0,0,0,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,9),40,103,50,51,57,53,32,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,56,57,32,103,50,52,48,49,41,0,0,0,0}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,51,50,32,103,50,52,52,52,41,0,0,0,0}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,53,56,32,103,50,52,55,48,41,0,0,0,0}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,57,50,32,103,50,53,48,52,41,0,0,0,0}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,22),40,97,100,106,117,115,116,32,115,114,101,32,117,116,102,56,63,32,99,105,63,41,0,0}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,105,114,114,101,103,101,120,32,115,114,101,32,46,32,111,41,0,0}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,101,109,112,116,121,63,32,115,114,101,41}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,97,110,121,63,32,115,114,101,41,0,0}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,114,101,112,101,97,116,101,114,63,41,0}; static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,101,97,114,99,104,101,114,63,32,115,114,101,41,0,0,0,0,0}; static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,99,111,110,115,117,109,101,114,63,32,115,114,101,41,0,0,0,0,0}; static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,104,97,115,45,115,117,98,109,97,116,99,104,101,115,63,32,115,114,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,15),40,99,111,117,110,116,32,115,114,101,32,115,117,109,41,0}; static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,99,111,117,110,116,45,115,117,98,109,97,116,99,104,101,115,32,115,114,101,41,0,0,0,0,0,0}; static C_char C_TLS li223[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,101,113,117,101,110,99,101,41,0,0}; static C_char C_TLS li224[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,97,108,116,101,114,110,97,116,101,41,0}; static C_char C_TLS li225[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,48,50,48,32,103,51,48,51,50,41,0,0,0,0}; static C_char C_TLS li226[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,116,114,105,112,45,115,117,98,109,97,116,99,104,101,115,32,115,114,101,41,0,0,0,0,0,0}; static C_char C_TLS li227[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,110,97,109,101,115,32,115,114,101,32,110,32,110,97,109,101,115,41,0}; static C_char C_TLS li228[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,101,113,117,101,110,99,101,45,110,97,109,101,115,32,108,115,32,110,32,110,97,109,101,115,41,0}; static C_char C_TLS li229[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,49,54,49,32,103,51,49,55,51,41,0,0,0,0}; static C_char C_TLS li230[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,114,101,109,111,118,101,45,105,110,105,116,105,97,108,45,98,111,115,32,115,114,101,41,0,0,0,0}; static C_char C_TLS li231[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,101,97,114,99,104,32,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0}; static C_char C_TLS li232[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,101,97,114,99,104,47,99,104,117,110,107,101,100,32,120,32,99,110,107,32,115,114,99,32,46,32,111,41,0,0}; static C_char C_TLS li233[] C_aligned={C_lihdr(0,0,7),40,108,112,50,32,105,41,0}; static C_char C_TLS li234[] C_aligned={C_lihdr(0,0,11),40,108,112,49,32,115,114,99,32,105,41,0,0,0,0,0}; static C_char C_TLS li235[] C_aligned={C_lihdr(0,0,10),40,97,49,57,53,50,56,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li236[] C_aligned={C_lihdr(0,0,13),40,108,112,50,32,105,32,115,116,97,116,101,41,0,0,0}; static C_char C_TLS li237[] C_aligned={C_lihdr(0,0,21),40,108,112,49,32,115,114,99,32,115,116,97,114,116,32,115,116,97,116,101,41,0,0,0}; static C_char C_TLS li238[] C_aligned={C_lihdr(0,0,8),40,97,49,56,57,57,48,41}; static C_char C_TLS li239[] C_aligned={C_lihdr(0,0,8),40,97,49,57,48,54,50,41}; static C_char C_TLS li240[] C_aligned={C_lihdr(0,0,19),40,108,112,32,115,114,99,50,32,115,116,114,32,105,32,101,110,100,41,0,0,0,0,0}; static C_char C_TLS li241[] C_aligned={C_lihdr(0,0,67),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,101,97,114,99,104,47,109,97,116,99,104,101,115,32,105,114,120,32,99,110,107,32,105,110,105,116,32,115,114,99,32,105,32,109,97,116,99,104,101,115,41,0,0,0,0,0}; static C_char C_TLS li242[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0}; static C_char C_TLS li243[] C_aligned={C_lihdr(0,0,6),40,108,112,32,109,41,0,0}; static C_char C_TLS li244[] C_aligned={C_lihdr(0,0,8),40,97,49,57,51,56,51,41}; static C_char C_TLS li245[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,47,99,104,117,110,107,101,100,32,105,114,120,32,99,110,107,32,115,114,99,41,0,0,0,0,0}; static C_char C_TLS li246[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,63,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li247[] C_aligned={C_lihdr(0,0,16),40,103,51,52,55,48,32,116,97,103,38,115,108,111,116,41}; static C_char C_TLS li248[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,52,54,57,32,103,51,52,55,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li249[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,105,110,97,108,105,122,101,33,32,102,105,110,97,108,105,122,101,114,32,109,101,109,111,114,121,32,109,97,116,99,104,101,115,41,0,0,0,0}; static C_char C_TLS li250[] C_aligned={C_lihdr(0,0,7),40,103,51,54,50,53,41,0}; static C_char C_TLS li251[] C_aligned={C_lihdr(0,0,7),40,103,51,54,51,53,41,0}; static C_char C_TLS li252[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,54,51,52,41,0,0,0,0,0}; static C_char C_TLS li253[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,54,50,52,32,103,51,54,51,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li254[] C_aligned={C_lihdr(0,0,10),40,97,50,48,49,48,56,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,41),40,108,112,50,32,105,32,115,116,97,116,101,32,114,101,115,45,115,114,99,32,114,101,115,45,105,110,100,101,120,32,102,105,110,97,108,105,122,101,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,49),40,108,112,49,32,115,114,99,32,115,116,97,114,116,32,115,116,97,116,101,32,114,101,115,45,115,114,99,32,114,101,115,45,105,110,100,101,120,32,102,105,110,97,108,105,122,101,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,7),40,103,51,53,52,49,41,0}; static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,53,52,48,32,103,51,53,52,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,51,53,48,48,32,105,41,0,0}; static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,79),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,100,102,97,45,109,97,116,99,104,47,108,111,110,103,101,115,116,32,100,102,97,32,99,110,107,32,115,114,99,32,115,116,97,114,116,32,101,110,100,45,115,114,99,32,101,110,100,32,109,97,116,99,104,101,115,32,105,110,100,101,120,41,0}; static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,16),40,97,51,48,51,57,56,32,101,115,99,32,46,32,111,41}; static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,103,101,116,45,101,112,115,105,108,111,110,115,32,105,41,0,0,0,0}; static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,97,100,100,45,101,112,115,105,108,111,110,33,32,110,102,97,32,105,32,120,32,116,41,0,0,0,0}; static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,24),40,110,101,119,45,115,116,97,116,101,45,110,117,109,98,101,114,32,115,116,97,116,101,41}; static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,51,56,49,49,32,105,41,0,0}; static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,24),40,97,100,100,45,115,116,97,116,101,33,32,110,50,32,116,114,97,110,115,45,108,115,41}; static C_char C_TLS li267[] C_aligned={C_lihdr(0,0,29),40,101,120,116,101,110,100,45,115,116,97,116,101,33,32,110,101,120,116,32,116,114,97,110,115,45,99,115,41,0,0,0}; static C_char C_TLS li268[] C_aligned={C_lihdr(0,0,25),40,97,100,100,45,99,104,97,114,45,115,116,97,116,101,33,32,110,101,120,116,32,99,104,41,0,0,0,0,0,0,0}; static C_char C_TLS li269[] C_aligned={C_lihdr(0,0,12),40,108,112,50,32,105,32,110,101,120,116,41,0,0,0,0}; static C_char C_TLS li270[] C_aligned={C_lihdr(0,0,12),40,103,51,57,52,55,32,99,101,108,108,41,0,0,0,0}; static C_char C_TLS li271[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,115,32,110,32,102,108,97,103,115,32,110,101,120,116,41,0,0,0,0}; static C_char C_TLS li272[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,51,57,53,55,32,105,41,0,0}; static C_char C_TLS li273[] C_aligned={C_lihdr(0,0,16),40,108,112,32,115,114,101,32,109,97,120,32,114,101,115,41}; static C_char C_TLS li274[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,110,102,97,32,115,114,101,32,105,110,105,116,45,102,108,97,103,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li275[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,97,107,101,45,109,115,116,32,110,102,97,41,0,0}; static C_char C_TLS li276[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,115,116,45,99,111,112,121,32,109,115,116,41,0,0}; static C_char C_TLS li277[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,115,116,97,116,101,45,62,109,115,116,32,110,102,97,32,115,116,97,116,101,32,109,97,112,112,105,110,103,115,41,0,0,0,0,0}; static C_char C_TLS li278[] C_aligned={C_lihdr(0,0,7),40,103,52,48,49,53,41,0}; static C_char C_TLS li279[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,48,49,52,32,103,52,48,50,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li280[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,115,116,45,97,100,100,33,32,110,102,97,32,109,115,116,32,115,116,97,116,101,32,109,97,112,112,105,110,103,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li281[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,32,97,99,99,41,0,0,0,0,0,0}; static C_char C_TLS li282[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,115,116,45,102,111,108,100,32,109,115,116,32,107,111,110,115,32,107,110,105,108,41}; static C_char C_TLS li283[] C_aligned={C_lihdr(0,0,10),40,103,52,49,56,54,32,116,114,41,0,0,0,0,0,0}; static C_char C_TLS li284[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,52,49,56,48,32,103,52,49,57,50,41,0,0,0,0}; static C_char C_TLS li285[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,52,49,55,50,32,105,32,115,116,97,116,101,115,41,0,0,0}; static C_char C_TLS li286[] C_aligned={C_lihdr(0,0,21),40,108,112,32,105,32,115,116,97,116,101,115,32,105,110,100,101,120,101,115,41,0,0,0}; static C_char C_TLS li287[] C_aligned={C_lihdr(0,0,36),40,108,112,51,32,99,108,111,115,117,114,101,45,115,108,111,116,115,32,115,116,97,116,101,45,115,108,111,116,115,32,99,109,100,115,41,0,0,0,0}; static C_char C_TLS li288[] C_aligned={C_lihdr(0,0,26),40,108,112,50,32,115,116,97,116,101,45,115,117,109,109,97,114,121,32,116,32,99,109,100,115,41,0,0,0,0,0,0}; static C_char C_TLS li289[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0}; static C_char C_TLS li290[] C_aligned={C_lihdr(0,0,15),40,108,112,32,100,102,97,45,115,116,97,116,101,115,41,0}; static C_char C_TLS li291[] C_aligned={C_lihdr(0,0,37),40,108,112,50,32,116,114,97,110,115,32,117,110,109,97,114,107,101,100,45,115,116,97,116,101,115,32,100,102,97,45,116,114,97,110,115,41,0,0,0}; static C_char C_TLS li292[] C_aligned={C_lihdr(0,0,20),40,103,52,50,51,53,32,105,110,116,101,114,115,101,99,116,105,111,110,41,0,0,0,0}; static C_char C_TLS li293[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,115,32,99,115,32,115,116,97,116,101,32,114,101,115,41,0,0,0,0}; static C_char C_TLS li294[] C_aligned={C_lihdr(0,0,24),40,97,50,50,52,55,49,32,115,116,32,109,97,112,112,105,110,103,115,32,114,101,115,41}; static C_char C_TLS li295[] C_aligned={C_lihdr(0,0,43),40,108,112,32,117,110,109,97,114,107,101,100,45,115,116,97,116,101,115,32,109,97,114,107,101,100,45,115,116,97,116,101,115,32,100,102,97,45,115,105,122,101,41,0,0,0,0,0}; static C_char C_TLS li296[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,62,100,102,97,32,110,102,97,32,111,41}; static C_char C_TLS li297[] C_aligned={C_lihdr(0,0,10),40,108,112,32,109,32,114,101,115,41,0,0,0,0,0,0}; static C_char C_TLS li298[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,52,49,49,53,41,0,0,0,0}; static C_char C_TLS li299[] C_aligned={C_lihdr(0,0,11),40,103,52,50,55,48,32,116,97,103,41,0,0,0,0,0}; static C_char C_TLS li300[] C_aligned={C_lihdr(0,0,17),40,108,112,50,32,116,114,97,110,115,32,115,116,97,99,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li301[] C_aligned={C_lihdr(0,0,29),40,108,112,32,115,116,97,99,107,32,112,114,105,111,114,105,116,105,101,115,32,99,108,111,115,117,114,101,41,0,0,0}; static C_char C_TLS li302[] C_aligned={C_lihdr(0,0,17),40,97,50,50,55,53,57,32,115,116,32,109,32,114,101,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li303[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,101,112,115,105,108,111,110,45,99,108,111,115,117,114,101,32,110,102,97,32,115,116,97,116,101,115,41}; static C_char C_TLS li304[] C_aligned={C_lihdr(0,0,10),40,97,50,50,56,56,51,32,99,41,0,0,0,0,0,0}; static C_char C_TLS li305[] C_aligned={C_lihdr(0,0,10),40,97,50,50,57,48,55,32,99,41,0,0,0,0,0,0}; static C_char C_TLS li306[] C_aligned={C_lihdr(0,0,16),40,108,112,50,32,115,49,32,115,50,32,99,109,100,115,41}; static C_char C_TLS li307[] C_aligned={C_lihdr(0,0,11),40,108,112,32,116,32,99,109,100,115,41,0,0,0,0,0}; static C_char C_TLS li308[] C_aligned={C_lihdr(0,0,79),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,116,97,103,45,115,101,116,45,99,111,109,109,97,110,100,115,45,102,111,114,45,99,108,111,115,117,114,101,32,110,102,97,32,111,114,105,103,45,115,116,97,116,101,32,99,108,111,115,117,114,101,32,99,111,112,121,45,99,109,100,115,41,0}; static C_char C_TLS li309[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,56,57,51,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; static C_char C_TLS li310[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,99,115,101,116,45,62,112,114,111,99,101,100,117,114,101,32,99,115,101,116,32,110,101,120,116,41,0}; static C_char C_TLS li311[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,32,114,101,115,41,0,0,0,0,0,0}; static C_char C_TLS li312[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,62,112,108,105,115,116,32,99,115,41}; static C_char C_TLS li313[] C_aligned={C_lihdr(0,0,14),40,97,50,54,50,48,48,32,99,104,32,99,115,41,0,0}; static C_char C_TLS li314[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,62,99,115,101,116,32,115,41}; static C_char C_TLS li315[] C_aligned={C_lihdr(0,0,9),40,114,101,99,32,115,114,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li316[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,49,55,57,32,103,53,49,57,49,41,0,0,0,0}; static C_char C_TLS li317[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,50,48,53,32,103,53,50,49,55,41,0,0,0,0}; static C_char C_TLS li318[] C_aligned={C_lihdr(0,0,14),40,97,50,54,52,48,52,32,120,32,114,101,115,41,0,0}; static C_char C_TLS li319[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,50,51,51,32,103,53,50,52,53,41,0,0,0,0}; static C_char C_TLS li320[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; static C_char C_TLS li321[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; static C_char C_TLS li322[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,50,54,48,32,103,53,50,55,50,41,0,0,0,0}; static C_char C_TLS li323[] C_aligned={C_lihdr(0,0,12),40,108,112,32,115,114,101,32,99,105,63,41,0,0,0,0}; static C_char C_TLS li324[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,99,115,101,116,32,115,114,101,32,111,41,0,0,0,0,0,0,0}; static C_char C_TLS li325[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,111,119,101,114,32,117,112,112,101,114,41}; static C_char C_TLS li326[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,99,111,110,116,97,105,110,115,63,32,99,115,101,116,32,99,104,41}; static C_char C_TLS li327[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,97,114,45,114,97,110,103,101,115,45,117,110,105,111,110,32,97,32,98,41,0}; static C_char C_TLS li328[] C_aligned={C_lihdr(0,0,21),40,117,110,105,111,110,45,114,97,110,103,101,32,97,32,98,32,114,101,115,41,0,0,0}; static C_char C_TLS li329[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,117,110,105,111,110,32,97,32,98,41}; static C_char C_TLS li330[] C_aligned={C_lihdr(0,0,14),40,100,105,102,102,32,97,32,98,32,114,101,115,41,0,0}; static C_char C_TLS li331[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,100,105,102,102,101,114,101,110,99,101,32,97,32,98,41,0,0,0}; static C_char C_TLS li332[] C_aligned={C_lihdr(0,0,19),40,105,110,116,101,114,115,101,99,116,32,97,32,98,32,114,101,115,41,0,0,0,0,0}; static C_char C_TLS li333[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,105,110,116,101,114,115,101,99,116,105,111,110,32,97,32,98,41,0}; static C_char C_TLS li334[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,99,111,109,112,108,101,109,101,110,116,32,97,41,0,0,0,0,0}; static C_char C_TLS li335[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; static C_char C_TLS li336[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,99,97,115,101,45,105,110,115,101,110,115,105,116,105,118,101,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li337[] C_aligned={C_lihdr(0,0,15),40,102,95,50,55,54,52,54,32,105,32,97,99,99,41,0}; static C_char C_TLS li338[] C_aligned={C_lihdr(0,0,14),40,108,112,32,115,114,99,32,105,32,97,99,99,41,0,0}; static C_char C_TLS li339[] C_aligned={C_lihdr(0,0,57),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,47,102,97,115,116,32,105,114,120,32,107,111,110,115,32,107,110,105,108,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0,0}; static C_char C_TLS li340[] C_aligned={C_lihdr(0,0,15),40,107,111,110,115,50,32,105,32,109,32,97,99,99,41,0}; static C_char C_TLS li341[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,32,105,114,120,32,107,111,110,115,32,46,32,97,114,103,115,41,0,0}; static C_char C_TLS li342[] C_aligned={C_lihdr(0,0,19),40,102,95,50,55,56,54,54,32,115,114,99,32,105,32,97,99,99,41,0,0,0,0,0}; static C_char C_TLS li343[] C_aligned={C_lihdr(0,0,16),40,108,112,32,115,116,97,114,116,32,105,32,97,99,99,41}; static C_char C_TLS li344[] C_aligned={C_lihdr(0,0,71),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,47,99,104,117,110,107,101,100,47,102,97,115,116,32,105,114,120,32,107,111,110,115,32,107,110,105,108,32,99,110,107,32,115,116,97,114,116,32,46,32,111,41,0}; static C_char C_TLS li345[] C_aligned={C_lihdr(0,0,17),40,107,111,110,115,50,32,115,32,105,32,109,32,97,99,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li346[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,47,99,104,117,110,107,101,100,32,105,114,120,32,107,111,110,115,32,46,32,97,114,103,115,41,0,0}; static C_char C_TLS li347[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,114,101,112,108,97,99,101,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0}; static C_char C_TLS li348[] C_aligned={C_lihdr(0,0,16),40,97,50,55,57,56,56,32,105,32,109,32,97,99,99,41}; static C_char C_TLS li349[] C_aligned={C_lihdr(0,0,14),40,97,50,56,48,51,50,32,105,32,97,99,99,41,0,0}; static C_char C_TLS li350[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,114,101,112,108,97,99,101,47,97,108,108,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0,0}; static C_char C_TLS li351[] C_aligned={C_lihdr(0,0,9),40,103,53,53,55,55,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li352[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; static C_char C_TLS li353[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,97,112,112,108,121,45,109,97,116,99,104,32,109,32,108,115,41,0,0,0,0,0,0}; static C_char C_TLS li354[] C_aligned={C_lihdr(0,0,14),40,97,50,56,51,48,53,32,105,32,109,32,97,41,0,0}; static C_char C_TLS li355[] C_aligned={C_lihdr(0,0,12),40,97,50,56,51,49,53,32,105,32,97,41,0,0,0,0}; static C_char C_TLS li356[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,101,120,116,114,97,99,116,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0}; static C_char C_TLS li357[] C_aligned={C_lihdr(0,0,14),40,97,50,56,51,52,54,32,105,32,109,32,97,41,0,0}; static C_char C_TLS li358[] C_aligned={C_lihdr(0,0,12),40,97,50,56,52,48,52,32,105,32,97,41,0,0,0,0}; static C_char C_TLS li359[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,112,108,105,116,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0}; static C_char C_TLS li360[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41}; static C_char C_TLS li361[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,115,99,97,110,45,99,104,97,114,32,115,116,114,32,99,32,46,32,111,41,0,0,0,0}; static C_char C_TLS li362[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,32,114,101,115,41,0,0,0}; static C_char C_TLS li363[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,113,117,111,116,101,32,115,116,114,41,0,0,0,0,0}; static C_char C_TLS li364[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,56,53,57,32,103,53,56,55,49,41,0,0,0,0}; static C_char C_TLS li365[] C_aligned={C_lihdr(0,0,10),40,97,50,56,54,54,51,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li366[] C_aligned={C_lihdr(0,0,11),40,108,112,50,32,105,32,114,101,115,41,0,0,0,0,0}; static C_char C_TLS li367[] C_aligned={C_lihdr(0,0,15),40,108,112,49,32,108,115,32,101,109,112,116,121,63,41,0}; static C_char C_TLS li368[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,111,112,116,32,108,115,41}; static C_char C_TLS li369[] C_aligned={C_lihdr(0,0,7),40,108,112,32,108,115,41,0}; static C_char C_TLS li370[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,62,115,116,114,105,110,103,32,108,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li371[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,57,53,57,32,103,53,57,54,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li372[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,57,55,56,32,103,53,57,56,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li373[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,57,57,53,32,103,54,48,48,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li374[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,49,52,32,103,54,48,50,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li375[] C_aligned={C_lihdr(0,0,9),40,103,54,48,51,54,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li376[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,51,53,32,103,54,48,52,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li377[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,55,51,32,103,54,48,56,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li378[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,49,50,56,32,103,54,49,51,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li379[] C_aligned={C_lihdr(0,0,6),40,108,112,32,120,41,0,0}; static C_char C_TLS li380[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,115,116,114,105,110,103,32,111,98,106,41,0,0,0,0,0,0,0}; static C_char C_TLS li381[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,50,32,114,101,115,116,32,115,41,0,0}; static C_char C_TLS li382[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,115,32,100,105,114,41,0,0,0}; static C_char C_TLS li383[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,103,108,111,98,45,62,115,114,101,32,115,41,0,0,0}; static C_char C_TLS li384[] C_aligned={C_lihdr(0,0,10),40,97,51,48,53,54,48,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li385[] C_aligned={C_lihdr(0,0,22),40,97,51,48,53,54,51,32,115,114,99,49,32,105,32,115,114,99,50,32,106,41,0,0}; static C_char C_TLS li386[] C_aligned={C_lihdr(0,0,14),40,97,51,48,53,57,55,32,109,32,111,117,116,41,0,0}; static C_char C_TLS li387[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f33162) static void C_ccall f33162(C_word c,C_word *av) C_noret; C_noret_decl(f33167) static void C_ccall f33167(C_word c,C_word *av) C_noret; C_noret_decl(f_10004) static void C_ccall f_10004(C_word c,C_word *av) C_noret; C_noret_decl(f_10024) static void C_ccall f_10024(C_word c,C_word *av) C_noret; C_noret_decl(f_10104) static void C_fcall f_10104(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10114) static void C_fcall f_10114(C_word t0,C_word t1) C_noret; C_noret_decl(f_10117) static void C_ccall f_10117(C_word c,C_word *av) C_noret; C_noret_decl(f_10124) static void C_ccall f_10124(C_word c,C_word *av) C_noret; C_noret_decl(f_10127) static void C_ccall f_10127(C_word c,C_word *av) C_noret; C_noret_decl(f_10175) static void C_ccall f_10175(C_word c,C_word *av) C_noret; C_noret_decl(f_10196) static void C_fcall f_10196(C_word t0,C_word t1) C_noret; C_noret_decl(f_10202) static void C_fcall f_10202(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10231) static void C_fcall f_10231(C_word t0,C_word t1) C_noret; C_noret_decl(f_10319) static void C_ccall f_10319(C_word c,C_word *av) C_noret; C_noret_decl(f_10331) static void C_ccall f_10331(C_word c,C_word *av) C_noret; C_noret_decl(f_10335) static void C_ccall f_10335(C_word c,C_word *av) C_noret; C_noret_decl(f_10341) static void C_ccall f_10341(C_word c,C_word *av) C_noret; C_noret_decl(f_10346) static void C_fcall f_10346(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_10349) static void C_ccall f_10349(C_word c,C_word *av) C_noret; C_noret_decl(f_10371) static void C_fcall f_10371(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10388) static void C_ccall f_10388(C_word c,C_word *av) C_noret; C_noret_decl(f_10391) static void C_ccall f_10391(C_word c,C_word *av) C_noret; C_noret_decl(f_10393) static void C_fcall f_10393(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10418) static void C_ccall f_10418(C_word c,C_word *av) C_noret; C_noret_decl(f_10427) static void C_fcall f_10427(C_word t0,C_word t1) C_noret; C_noret_decl(f_10441) static void C_ccall f_10441(C_word c,C_word *av) C_noret; C_noret_decl(f_10445) static void C_ccall f_10445(C_word c,C_word *av) C_noret; C_noret_decl(f_10447) static void C_fcall f_10447(C_word t0,C_word t1) C_noret; C_noret_decl(f_10454) static void C_ccall f_10454(C_word c,C_word *av) C_noret; C_noret_decl(f_10463) static void C_ccall f_10463(C_word c,C_word *av) C_noret; C_noret_decl(f_10483) static void C_ccall f_10483(C_word c,C_word *av) C_noret; C_noret_decl(f_10487) static void C_ccall f_10487(C_word c,C_word *av) C_noret; C_noret_decl(f_10491) static void C_ccall f_10491(C_word c,C_word *av) C_noret; C_noret_decl(f_10504) static void C_fcall f_10504(C_word t0,C_word t1) C_noret; C_noret_decl(f_10519) static void C_fcall f_10519(C_word t0,C_word t1) C_noret; C_noret_decl(f_10523) static void C_ccall f_10523(C_word c,C_word *av) C_noret; C_noret_decl(f_10526) static void C_fcall f_10526(C_word t0,C_word t1) C_noret; C_noret_decl(f_10529) static void C_fcall f_10529(C_word t0,C_word t1) C_noret; C_noret_decl(f_10532) static void C_ccall f_10532(C_word c,C_word *av) C_noret; C_noret_decl(f_10537) static void C_fcall f_10537(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_10540) static C_word C_fcall f_10540(C_word *a,C_word t0); C_noret_decl(f_10610) static void C_ccall f_10610(C_word c,C_word *av) C_noret; C_noret_decl(f_10626) static void C_ccall f_10626(C_word c,C_word *av) C_noret; C_noret_decl(f_10702) static void C_ccall f_10702(C_word c,C_word *av) C_noret; C_noret_decl(f_10713) static void C_ccall f_10713(C_word c,C_word *av) C_noret; C_noret_decl(f_10716) static void C_fcall f_10716(C_word t0,C_word t1) C_noret; C_noret_decl(f_10727) static void C_ccall f_10727(C_word c,C_word *av) C_noret; C_noret_decl(f_10749) static void C_ccall f_10749(C_word c,C_word *av) C_noret; C_noret_decl(f_10752) static void C_fcall f_10752(C_word t0,C_word t1) C_noret; C_noret_decl(f_10764) static void C_ccall f_10764(C_word c,C_word *av) C_noret; C_noret_decl(f_10824) static void C_ccall f_10824(C_word c,C_word *av) C_noret; C_noret_decl(f_10853) static void C_fcall f_10853(C_word t0,C_word t1) C_noret; C_noret_decl(f_10984) static void C_ccall f_10984(C_word c,C_word *av) C_noret; C_noret_decl(f_10990) static void C_ccall f_10990(C_word c,C_word *av) C_noret; C_noret_decl(f_11005) static void C_ccall f_11005(C_word c,C_word *av) C_noret; C_noret_decl(f_11076) static void C_ccall f_11076(C_word c,C_word *av) C_noret; C_noret_decl(f_11106) static void C_ccall f_11106(C_word c,C_word *av) C_noret; C_noret_decl(f_11116) static void C_fcall f_11116(C_word t0,C_word t1) C_noret; C_noret_decl(f_11138) static void C_ccall f_11138(C_word c,C_word *av) C_noret; C_noret_decl(f_11173) static void C_ccall f_11173(C_word c,C_word *av) C_noret; C_noret_decl(f_11188) static void C_ccall f_11188(C_word c,C_word *av) C_noret; C_noret_decl(f_11214) static void C_ccall f_11214(C_word c,C_word *av) C_noret; C_noret_decl(f_11237) static void C_ccall f_11237(C_word c,C_word *av) C_noret; C_noret_decl(f_11260) static void C_ccall f_11260(C_word c,C_word *av) C_noret; C_noret_decl(f_11302) static void C_ccall f_11302(C_word c,C_word *av) C_noret; C_noret_decl(f_11325) static void C_ccall f_11325(C_word c,C_word *av) C_noret; C_noret_decl(f_11328) static void C_ccall f_11328(C_word c,C_word *av) C_noret; C_noret_decl(f_11354) static void C_ccall f_11354(C_word c,C_word *av) C_noret; C_noret_decl(f_11358) static void C_ccall f_11358(C_word c,C_word *av) C_noret; C_noret_decl(f_11362) static void C_ccall f_11362(C_word c,C_word *av) C_noret; C_noret_decl(f_11414) static void C_ccall f_11414(C_word c,C_word *av) C_noret; C_noret_decl(f_11439) static void C_ccall f_11439(C_word c,C_word *av) C_noret; C_noret_decl(f_11442) static void C_ccall f_11442(C_word c,C_word *av) C_noret; C_noret_decl(f_11472) static void C_ccall f_11472(C_word c,C_word *av) C_noret; C_noret_decl(f_11476) static void C_ccall f_11476(C_word c,C_word *av) C_noret; C_noret_decl(f_11491) static void C_ccall f_11491(C_word c,C_word *av) C_noret; C_noret_decl(f_11494) static void C_ccall f_11494(C_word c,C_word *av) C_noret; C_noret_decl(f_11515) static void C_ccall f_11515(C_word c,C_word *av) C_noret; C_noret_decl(f_11519) static void C_ccall f_11519(C_word c,C_word *av) C_noret; C_noret_decl(f_11542) static void C_ccall f_11542(C_word c,C_word *av) C_noret; C_noret_decl(f_11573) static void C_fcall f_11573(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_11576) static void C_fcall f_11576(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11585) static C_word C_fcall f_11585(C_word *a,C_word t0,C_word t1); C_noret_decl(f_11633) static void C_ccall f_11633(C_word c,C_word *av) C_noret; C_noret_decl(f_11649) static void C_ccall f_11649(C_word c,C_word *av) C_noret; C_noret_decl(f_11665) static void C_ccall f_11665(C_word c,C_word *av) C_noret; C_noret_decl(f_11684) static void C_ccall f_11684(C_word c,C_word *av) C_noret; C_noret_decl(f_11729) static void C_ccall f_11729(C_word c,C_word *av) C_noret; C_noret_decl(f_11760) static void C_ccall f_11760(C_word c,C_word *av) C_noret; C_noret_decl(f_11851) static void C_ccall f_11851(C_word c,C_word *av) C_noret; C_noret_decl(f_11866) static void C_ccall f_11866(C_word c,C_word *av) C_noret; C_noret_decl(f_11886) static void C_ccall f_11886(C_word c,C_word *av) C_noret; C_noret_decl(f_11890) static void C_ccall f_11890(C_word c,C_word *av) C_noret; C_noret_decl(f_11909) static void C_fcall f_11909(C_word t0,C_word t1) C_noret; C_noret_decl(f_11918) static void C_ccall f_11918(C_word c,C_word *av) C_noret; C_noret_decl(f_11934) static void C_ccall f_11934(C_word c,C_word *av) C_noret; C_noret_decl(f_11937) static void C_ccall f_11937(C_word c,C_word *av) C_noret; C_noret_decl(f_11940) static void C_ccall f_11940(C_word c,C_word *av) C_noret; C_noret_decl(f_11943) static void C_ccall f_11943(C_word c,C_word *av) C_noret; C_noret_decl(f_11952) static void C_fcall f_11952(C_word t0,C_word t1) C_noret; C_noret_decl(f_12062) static void C_ccall f_12062(C_word c,C_word *av) C_noret; C_noret_decl(f_12138) static void C_ccall f_12138(C_word c,C_word *av) C_noret; C_noret_decl(f_12165) static void C_ccall f_12165(C_word c,C_word *av) C_noret; C_noret_decl(f_12188) static void C_ccall f_12188(C_word c,C_word *av) C_noret; C_noret_decl(f_12215) static void C_ccall f_12215(C_word c,C_word *av) C_noret; C_noret_decl(f_12242) static void C_ccall f_12242(C_word c,C_word *av) C_noret; C_noret_decl(f_12273) static void C_ccall f_12273(C_word c,C_word *av) C_noret; C_noret_decl(f_12308) static void C_ccall f_12308(C_word c,C_word *av) C_noret; C_noret_decl(f_12331) static void C_ccall f_12331(C_word c,C_word *av) C_noret; C_noret_decl(f_12354) static void C_ccall f_12354(C_word c,C_word *av) C_noret; C_noret_decl(f_12385) static void C_ccall f_12385(C_word c,C_word *av) C_noret; C_noret_decl(f_12408) static void C_ccall f_12408(C_word c,C_word *av) C_noret; C_noret_decl(f_12431) static void C_ccall f_12431(C_word c,C_word *av) C_noret; C_noret_decl(f_12454) static void C_ccall f_12454(C_word c,C_word *av) C_noret; C_noret_decl(f_12477) static void C_ccall f_12477(C_word c,C_word *av) C_noret; C_noret_decl(f_12500) static void C_ccall f_12500(C_word c,C_word *av) C_noret; C_noret_decl(f_12511) static void C_ccall f_12511(C_word c,C_word *av) C_noret; C_noret_decl(f_12531) static void C_ccall f_12531(C_word c,C_word *av) C_noret; C_noret_decl(f_12535) static void C_ccall f_12535(C_word c,C_word *av) C_noret; C_noret_decl(f_12559) static void C_fcall f_12559(C_word t0,C_word t1) C_noret; C_noret_decl(f_12562) static void C_ccall f_12562(C_word c,C_word *av) C_noret; C_noret_decl(f_12565) static void C_ccall f_12565(C_word c,C_word *av) C_noret; C_noret_decl(f_12600) static void C_ccall f_12600(C_word c,C_word *av) C_noret; C_noret_decl(f_12604) static void C_ccall f_12604(C_word c,C_word *av) C_noret; C_noret_decl(f_12631) static void C_ccall f_12631(C_word c,C_word *av) C_noret; C_noret_decl(f_12639) static void C_fcall f_12639(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12699) static void C_ccall f_12699(C_word c,C_word *av) C_noret; C_noret_decl(f_12742) static void C_ccall f_12742(C_word c,C_word *av) C_noret; C_noret_decl(f_12754) static void C_ccall f_12754(C_word c,C_word *av) C_noret; C_noret_decl(f_12763) static void C_ccall f_12763(C_word c,C_word *av) C_noret; C_noret_decl(f_12783) static void C_ccall f_12783(C_word c,C_word *av) C_noret; C_noret_decl(f_12787) static void C_ccall f_12787(C_word c,C_word *av) C_noret; C_noret_decl(f_12791) static void C_ccall f_12791(C_word c,C_word *av) C_noret; C_noret_decl(f_12799) static void C_ccall f_12799(C_word c,C_word *av) C_noret; C_noret_decl(f_12843) static void C_ccall f_12843(C_word c,C_word *av) C_noret; C_noret_decl(f_12859) static void C_ccall f_12859(C_word c,C_word *av) C_noret; C_noret_decl(f_12923) static void C_ccall f_12923(C_word c,C_word *av) C_noret; C_noret_decl(f_12949) static void C_ccall f_12949(C_word c,C_word *av) C_noret; C_noret_decl(f_12978) static void C_ccall f_12978(C_word c,C_word *av) C_noret; C_noret_decl(f_13006) static void C_ccall f_13006(C_word c,C_word *av) C_noret; C_noret_decl(f_13027) static void C_ccall f_13027(C_word c,C_word *av) C_noret; C_noret_decl(f_13045) static void C_ccall f_13045(C_word c,C_word *av) C_noret; C_noret_decl(f_13159) static void C_fcall f_13159(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13178) static void C_ccall f_13178(C_word c,C_word *av) C_noret; C_noret_decl(f_13190) static void C_ccall f_13190(C_word c,C_word *av) C_noret; C_noret_decl(f_13193) static void C_ccall f_13193(C_word c,C_word *av) C_noret; C_noret_decl(f_13224) static void C_ccall f_13224(C_word c,C_word *av) C_noret; C_noret_decl(f_13227) static void C_ccall f_13227(C_word c,C_word *av) C_noret; C_noret_decl(f_13263) static void C_fcall f_13263(C_word t0,C_word t1) C_noret; C_noret_decl(f_13268) static void C_fcall f_13268(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_13303) static void C_ccall f_13303(C_word c,C_word *av) C_noret; C_noret_decl(f_13313) static void C_ccall f_13313(C_word c,C_word *av) C_noret; C_noret_decl(f_13316) static void C_ccall f_13316(C_word c,C_word *av) C_noret; C_noret_decl(f_13320) static void C_ccall f_13320(C_word c,C_word *av) C_noret; C_noret_decl(f_13341) static void C_fcall f_13341(C_word t0,C_word t1) C_noret; C_noret_decl(f_13351) static void C_ccall f_13351(C_word c,C_word *av) C_noret; C_noret_decl(f_13368) static void C_ccall f_13368(C_word c,C_word *av) C_noret; C_noret_decl(f_13385) static void C_ccall f_13385(C_word c,C_word *av) C_noret; C_noret_decl(f_13396) static void C_ccall f_13396(C_word c,C_word *av) C_noret; C_noret_decl(f_13397) static C_word C_fcall f_13397(C_word *a,C_word t0,C_word t1); C_noret_decl(f_13418) static void C_fcall f_13418(C_word t0,C_word t1) C_noret; C_noret_decl(f_13430) static void C_fcall f_13430(C_word t0,C_word t1) C_noret; C_noret_decl(f_13440) static void C_ccall f_13440(C_word c,C_word *av) C_noret; C_noret_decl(f_13490) static void C_fcall f_13490(C_word t0,C_word t1) C_noret; C_noret_decl(f_13531) static void C_fcall f_13531(C_word t0,C_word t1) C_noret; C_noret_decl(f_13543) static void C_ccall f_13543(C_word c,C_word *av) C_noret; C_noret_decl(f_13552) static void C_fcall f_13552(C_word t0,C_word t1) C_noret; C_noret_decl(f_13558) static void C_ccall f_13558(C_word c,C_word *av) C_noret; C_noret_decl(f_13561) static void C_ccall f_13561(C_word c,C_word *av) C_noret; C_noret_decl(f_13571) static void C_ccall f_13571(C_word c,C_word *av) C_noret; C_noret_decl(f_13578) static void C_ccall f_13578(C_word c,C_word *av) C_noret; C_noret_decl(f_13582) static void C_ccall f_13582(C_word c,C_word *av) C_noret; C_noret_decl(f_13626) static void C_ccall f_13626(C_word c,C_word *av) C_noret; C_noret_decl(f_13665) static void C_fcall f_13665(C_word t0,C_word t1) C_noret; C_noret_decl(f_13675) static void C_ccall f_13675(C_word c,C_word *av) C_noret; C_noret_decl(f_13679) static void C_ccall f_13679(C_word c,C_word *av) C_noret; C_noret_decl(f_13683) static void C_ccall f_13683(C_word c,C_word *av) C_noret; C_noret_decl(f_13698) static void C_ccall f_13698(C_word c,C_word *av) C_noret; C_noret_decl(f_13706) static void C_ccall f_13706(C_word c,C_word *av) C_noret; C_noret_decl(f_13710) static void C_ccall f_13710(C_word c,C_word *av) C_noret; C_noret_decl(f_13729) static void C_ccall f_13729(C_word c,C_word *av) C_noret; C_noret_decl(f_13782) static void C_fcall f_13782(C_word t0,C_word t1) C_noret; C_noret_decl(f_13796) static void C_ccall f_13796(C_word c,C_word *av) C_noret; C_noret_decl(f_13800) static void C_ccall f_13800(C_word c,C_word *av) C_noret; C_noret_decl(f_13804) static void C_ccall f_13804(C_word c,C_word *av) C_noret; C_noret_decl(f_13814) static void C_ccall f_13814(C_word c,C_word *av) C_noret; C_noret_decl(f_13872) static void C_ccall f_13872(C_word c,C_word *av) C_noret; C_noret_decl(f_13893) static void C_fcall f_13893(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13896) static C_word C_fcall f_13896(C_word t0,C_word t1); C_noret_decl(f_14088) static void C_fcall f_14088(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14126) static void C_fcall f_14126(C_word t0,C_word t1) C_noret; C_noret_decl(f_14202) static void C_fcall f_14202(C_word t0,C_word t1) C_noret; C_noret_decl(f_14343) static void C_ccall f_14343(C_word c,C_word *av) C_noret; C_noret_decl(f_14346) static void C_ccall f_14346(C_word c,C_word *av) C_noret; C_noret_decl(f_14363) static void C_ccall f_14363(C_word c,C_word *av) C_noret; C_noret_decl(f_14367) static void C_ccall f_14367(C_word c,C_word *av) C_noret; C_noret_decl(f_14372) static void C_fcall f_14372(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14404) static void C_ccall f_14404(C_word c,C_word *av) C_noret; C_noret_decl(f_14429) static void C_ccall f_14429(C_word c,C_word *av) C_noret; C_noret_decl(f_14433) static void C_ccall f_14433(C_word c,C_word *av) C_noret; C_noret_decl(f_14444) static void C_ccall f_14444(C_word c,C_word *av) C_noret; C_noret_decl(f_14448) static void C_ccall f_14448(C_word c,C_word *av) C_noret; C_noret_decl(f_14452) static void C_ccall f_14452(C_word c,C_word *av) C_noret; C_noret_decl(f_14478) static void C_fcall f_14478(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_14508) static void C_ccall f_14508(C_word c,C_word *av) C_noret; C_noret_decl(f_14518) static void C_ccall f_14518(C_word c,C_word *av) C_noret; C_noret_decl(f_14526) static void C_ccall f_14526(C_word c,C_word *av) C_noret; C_noret_decl(f_14542) static void C_ccall f_14542(C_word c,C_word *av) C_noret; C_noret_decl(f_14544) static void C_fcall f_14544(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14580) static void C_fcall f_14580(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14616) static void C_fcall f_14616(C_word t0,C_word t1) C_noret; C_noret_decl(f_14636) static void C_ccall f_14636(C_word c,C_word *av) C_noret; C_noret_decl(f_14638) static void C_ccall f_14638(C_word c,C_word *av) C_noret; C_noret_decl(f_14670) static void C_ccall f_14670(C_word c,C_word *av) C_noret; C_noret_decl(f_14677) static void C_ccall f_14677(C_word c,C_word *av) C_noret; C_noret_decl(f_14683) static void C_ccall f_14683(C_word c,C_word *av) C_noret; C_noret_decl(f_14699) static void C_ccall f_14699(C_word c,C_word *av) C_noret; C_noret_decl(f_14701) static void C_fcall f_14701(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14741) static void C_ccall f_14741(C_word c,C_word *av) C_noret; C_noret_decl(f_14747) static void C_ccall f_14747(C_word c,C_word *av) C_noret; C_noret_decl(f_14755) static void C_fcall f_14755(C_word t0,C_word t1) C_noret; C_noret_decl(f_14775) static void C_ccall f_14775(C_word c,C_word *av) C_noret; C_noret_decl(f_14777) static void C_ccall f_14777(C_word c,C_word *av) C_noret; C_noret_decl(f_14809) static void C_ccall f_14809(C_word c,C_word *av) C_noret; C_noret_decl(f_14816) static void C_ccall f_14816(C_word c,C_word *av) C_noret; C_noret_decl(f_14822) static void C_ccall f_14822(C_word c,C_word *av) C_noret; C_noret_decl(f_14838) static void C_ccall f_14838(C_word c,C_word *av) C_noret; C_noret_decl(f_14840) static void C_fcall f_14840(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14880) static void C_ccall f_14880(C_word c,C_word *av) C_noret; C_noret_decl(f_14886) static void C_ccall f_14886(C_word c,C_word *av) C_noret; C_noret_decl(f_14905) static void C_ccall f_14905(C_word c,C_word *av) C_noret; C_noret_decl(f_14914) static void C_fcall f_14914(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14938) static void C_ccall f_14938(C_word c,C_word *av) C_noret; C_noret_decl(f_14944) static void C_ccall f_14944(C_word c,C_word *av) C_noret; C_noret_decl(f_14946) static void C_fcall f_14946(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14994) static void C_ccall f_14994(C_word c,C_word *av) C_noret; C_noret_decl(f_15002) static void C_ccall f_15002(C_word c,C_word *av) C_noret; C_noret_decl(f_15009) static void C_ccall f_15009(C_word c,C_word *av) C_noret; C_noret_decl(f_15015) static void C_ccall f_15015(C_word c,C_word *av) C_noret; C_noret_decl(f_15047) static void C_ccall f_15047(C_word c,C_word *av) C_noret; C_noret_decl(f_15049) static void C_fcall f_15049(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15099) static void C_ccall f_15099(C_word c,C_word *av) C_noret; C_noret_decl(f_15117) static void C_fcall f_15117(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15142) static void C_ccall f_15142(C_word c,C_word *av) C_noret; C_noret_decl(f_15185) static void C_ccall f_15185(C_word c,C_word *av) C_noret; C_noret_decl(f_15187) static void C_fcall f_15187(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15276) static void C_ccall f_15276(C_word c,C_word *av) C_noret; C_noret_decl(f_15278) static void C_fcall f_15278(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15333) static void C_fcall f_15333(C_word t0,C_word t1) C_noret; C_noret_decl(f_15341) static void C_ccall f_15341(C_word c,C_word *av) C_noret; C_noret_decl(f_15343) static void C_fcall f_15343(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15357) static void C_ccall f_15357(C_word c,C_word *av) C_noret; C_noret_decl(f_15361) static void C_ccall f_15361(C_word c,C_word *av) C_noret; C_noret_decl(f_15379) static void C_ccall f_15379(C_word c,C_word *av) C_noret; C_noret_decl(f_15388) static void C_fcall f_15388(C_word t0,C_word t1) C_noret; C_noret_decl(f_15403) static void C_ccall f_15403(C_word c,C_word *av) C_noret; C_noret_decl(f_15455) static void C_fcall f_15455(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15458) static void C_ccall f_15458(C_word c,C_word *av) C_noret; C_noret_decl(f_15515) static void C_fcall f_15515(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15526) static void C_ccall f_15526(C_word c,C_word *av) C_noret; C_noret_decl(f_15528) static void C_fcall f_15528(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15553) static void C_ccall f_15553(C_word c,C_word *av) C_noret; C_noret_decl(f_15576) static void C_fcall f_15576(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15587) static void C_ccall f_15587(C_word c,C_word *av) C_noret; C_noret_decl(f_15589) static void C_fcall f_15589(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15614) static void C_ccall f_15614(C_word c,C_word *av) C_noret; C_noret_decl(f_15630) static void C_fcall f_15630(C_word t0,C_word t1) C_noret; C_noret_decl(f_15639) static void C_ccall f_15639(C_word c,C_word *av) C_noret; C_noret_decl(f_15645) static void C_ccall f_15645(C_word c,C_word *av) C_noret; C_noret_decl(f_15655) static void C_ccall f_15655(C_word c,C_word *av) C_noret; C_noret_decl(f_15662) static void C_ccall f_15662(C_word c,C_word *av) C_noret; C_noret_decl(f_15697) static void C_ccall f_15697(C_word c,C_word *av) C_noret; C_noret_decl(f_15699) static void C_fcall f_15699(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15724) static void C_ccall f_15724(C_word c,C_word *av) C_noret; C_noret_decl(f_15753) static void C_ccall f_15753(C_word c,C_word *av) C_noret; C_noret_decl(f_15755) static void C_fcall f_15755(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15780) static void C_ccall f_15780(C_word c,C_word *av) C_noret; C_noret_decl(f_15838) static void C_fcall f_15838(C_word t0,C_word t1) C_noret; C_noret_decl(f_15848) static void C_ccall f_15848(C_word c,C_word *av) C_noret; C_noret_decl(f_15851) static void C_ccall f_15851(C_word c,C_word *av) C_noret; C_noret_decl(f_15853) static void C_fcall f_15853(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15900) static void C_ccall f_15900(C_word c,C_word *av) C_noret; C_noret_decl(f_15907) static void C_ccall f_15907(C_word c,C_word *av) C_noret; C_noret_decl(f_15961) static void C_ccall f_15961(C_word c,C_word *av) C_noret; C_noret_decl(f_16028) static void C_ccall f_16028(C_word c,C_word *av) C_noret; C_noret_decl(f_16036) static void C_ccall f_16036(C_word c,C_word *av) C_noret; C_noret_decl(f_16038) static void C_ccall f_16038(C_word c,C_word *av) C_noret; C_noret_decl(f_16042) static void C_ccall f_16042(C_word c,C_word *av) C_noret; C_noret_decl(f_16045) static void C_ccall f_16045(C_word c,C_word *av) C_noret; C_noret_decl(f_16048) static void C_ccall f_16048(C_word c,C_word *av) C_noret; C_noret_decl(f_16051) static void C_ccall f_16051(C_word c,C_word *av) C_noret; C_noret_decl(f_16054) static void C_fcall f_16054(C_word t0,C_word t1) C_noret; C_noret_decl(f_16057) static void C_ccall f_16057(C_word c,C_word *av) C_noret; C_noret_decl(f_16060) static void C_ccall f_16060(C_word c,C_word *av) C_noret; C_noret_decl(f_16063) static void C_ccall f_16063(C_word c,C_word *av) C_noret; C_noret_decl(f_16066) static void C_ccall f_16066(C_word c,C_word *av) C_noret; C_noret_decl(f_16069) static void C_ccall f_16069(C_word c,C_word *av) C_noret; C_noret_decl(f_16072) static void C_ccall f_16072(C_word c,C_word *av) C_noret; C_noret_decl(f_16084) static void C_ccall f_16084(C_word c,C_word *av) C_noret; C_noret_decl(f_16098) static void C_ccall f_16098(C_word c,C_word *av) C_noret; C_noret_decl(f_16103) static void C_fcall f_16103(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16129) static void C_ccall f_16129(C_word c,C_word *av) C_noret; C_noret_decl(f_16133) static void C_fcall f_16133(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16171) static void C_ccall f_16171(C_word c,C_word *av) C_noret; C_noret_decl(f_16188) static void C_fcall f_16188(C_word t0,C_word t1) C_noret; C_noret_decl(f_16231) static void C_fcall f_16231(C_word t0,C_word t1) C_noret; C_noret_decl(f_16338) static void C_ccall f_16338(C_word c,C_word *av) C_noret; C_noret_decl(f_16361) static void C_fcall f_16361(C_word t0,C_word t1) C_noret; C_noret_decl(f_16439) static C_word C_fcall f_16439(C_word t0); C_noret_decl(f_16484) static void C_ccall f_16484(C_word c,C_word *av) C_noret; C_noret_decl(f_16519) static void C_fcall f_16519(C_word t0,C_word t1) C_noret; C_noret_decl(f_16598) static void C_ccall f_16598(C_word c,C_word *av) C_noret; C_noret_decl(f_16633) static void C_fcall f_16633(C_word t0,C_word t1) C_noret; C_noret_decl(f_16646) static void C_ccall f_16646(C_word c,C_word *av) C_noret; C_noret_decl(f_16712) static void C_ccall f_16712(C_word c,C_word *av) C_noret; C_noret_decl(f_16738) static void C_ccall f_16738(C_word c,C_word *av) C_noret; C_noret_decl(f_16751) static void C_fcall f_16751(C_word t0,C_word t1) C_noret; C_noret_decl(f_16757) static void C_ccall f_16757(C_word c,C_word *av) C_noret; C_noret_decl(f_16778) static void C_ccall f_16778(C_word c,C_word *av) C_noret; C_noret_decl(f_16784) static void C_fcall f_16784(C_word t0,C_word t1) C_noret; C_noret_decl(f_16814) static void C_ccall f_16814(C_word c,C_word *av) C_noret; C_noret_decl(f_16851) static void C_ccall f_16851(C_word c,C_word *av) C_noret; C_noret_decl(f_16854) static void C_ccall f_16854(C_word c,C_word *av) C_noret; C_noret_decl(f_16861) static void C_ccall f_16861(C_word c,C_word *av) C_noret; C_noret_decl(f_16863) static void C_fcall f_16863(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_16866) static void C_fcall f_16866(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16906) static void C_fcall f_16906(C_word t0,C_word t1) C_noret; C_noret_decl(f_16922) static void C_ccall f_16922(C_word c,C_word *av) C_noret; C_noret_decl(f_16935) static void C_fcall f_16935(C_word t0,C_word t1) C_noret; C_noret_decl(f_16942) static void C_fcall f_16942(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_16975) static void C_ccall f_16975(C_word c,C_word *av) C_noret; C_noret_decl(f_17005) static void C_ccall f_17005(C_word c,C_word *av) C_noret; C_noret_decl(f_17020) static void C_fcall f_17020(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_17057) static void C_ccall f_17057(C_word c,C_word *av) C_noret; C_noret_decl(f_17073) static void C_ccall f_17073(C_word c,C_word *av) C_noret; C_noret_decl(f_17077) static void C_ccall f_17077(C_word c,C_word *av) C_noret; C_noret_decl(f_17090) static void C_ccall f_17090(C_word c,C_word *av) C_noret; C_noret_decl(f_17107) static void C_fcall f_17107(C_word t0,C_word t1) C_noret; C_noret_decl(f_17113) static void C_ccall f_17113(C_word c,C_word *av) C_noret; C_noret_decl(f_17116) static void C_ccall f_17116(C_word c,C_word *av) C_noret; C_noret_decl(f_17123) static void C_fcall f_17123(C_word t0,C_word t1) C_noret; C_noret_decl(f_17125) static void C_ccall f_17125(C_word c,C_word *av) C_noret; C_noret_decl(f_17139) static void C_ccall f_17139(C_word c,C_word *av) C_noret; C_noret_decl(f_17153) static void C_ccall f_17153(C_word c,C_word *av) C_noret; C_noret_decl(f_17178) static void C_ccall f_17178(C_word c,C_word *av) C_noret; C_noret_decl(f_17182) static void C_ccall f_17182(C_word c,C_word *av) C_noret; C_noret_decl(f_17259) static void C_fcall f_17259(C_word t0,C_word t1) C_noret; C_noret_decl(f_17266) static void C_fcall f_17266(C_word t0,C_word t1) C_noret; C_noret_decl(f_17272) static void C_ccall f_17272(C_word c,C_word *av) C_noret; C_noret_decl(f_17308) static void C_ccall f_17308(C_word c,C_word *av) C_noret; C_noret_decl(f_17317) static void C_fcall f_17317(C_word t0,C_word t1) C_noret; C_noret_decl(f_17417) static void C_ccall f_17417(C_word c,C_word *av) C_noret; C_noret_decl(f_17426) static void C_ccall f_17426(C_word c,C_word *av) C_noret; C_noret_decl(f_17444) static void C_fcall f_17444(C_word t0,C_word t1) C_noret; C_noret_decl(f_17447) static void C_fcall f_17447(C_word t0,C_word t1) C_noret; C_noret_decl(f_17465) static void C_ccall f_17465(C_word c,C_word *av) C_noret; C_noret_decl(f_17512) static void C_ccall f_17512(C_word c,C_word *av) C_noret; C_noret_decl(f_17586) static void C_ccall f_17586(C_word c,C_word *av) C_noret; C_noret_decl(f_17614) static void C_ccall f_17614(C_word c,C_word *av) C_noret; C_noret_decl(f_17639) static void C_fcall f_17639(C_word t0,C_word t1) C_noret; C_noret_decl(f_17658) static void C_fcall f_17658(C_word t0,C_word t1) C_noret; C_noret_decl(f_17679) static void C_fcall f_17679(C_word t0,C_word t1) C_noret; C_noret_decl(f_17689) static void C_fcall f_17689(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17697) static void C_ccall f_17697(C_word c,C_word *av) C_noret; C_noret_decl(f_17928) static void C_ccall f_17928(C_word c,C_word *av) C_noret; C_noret_decl(f_17951) static void C_ccall f_17951(C_word c,C_word *av) C_noret; C_noret_decl(f_17960) static C_word C_fcall f_17960(C_word *a,C_word t0); C_noret_decl(f_17983) static C_word C_fcall f_17983(C_word *a,C_word t0); C_noret_decl(f_18006) static void C_ccall f_18006(C_word c,C_word *av) C_noret; C_noret_decl(f_18079) static void C_fcall f_18079(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18104) static void C_ccall f_18104(C_word c,C_word *av) C_noret; C_noret_decl(f_18139) static void C_fcall f_18139(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18162) static void C_ccall f_18162(C_word c,C_word *av) C_noret; C_noret_decl(f_18166) static void C_ccall f_18166(C_word c,C_word *av) C_noret; C_noret_decl(f_18187) static void C_fcall f_18187(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18289) static void C_fcall f_18289(C_word t0,C_word t1) C_noret; C_noret_decl(f_18473) static void C_fcall f_18473(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18495) static void C_ccall f_18495(C_word c,C_word *av) C_noret; C_noret_decl(f_18501) static void C_ccall f_18501(C_word c,C_word *av) C_noret; C_noret_decl(f_18505) static void C_ccall f_18505(C_word c,C_word *av) C_noret; C_noret_decl(f_18522) static void C_fcall f_18522(C_word t0,C_word t1) C_noret; C_noret_decl(f_18555) static void C_ccall f_18555(C_word c,C_word *av) C_noret; C_noret_decl(f_18592) static void C_ccall f_18592(C_word c,C_word *av) C_noret; C_noret_decl(f_18594) static void C_fcall f_18594(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18619) static void C_ccall f_18619(C_word c,C_word *av) C_noret; C_noret_decl(f_18687) static void C_ccall f_18687(C_word c,C_word *av) C_noret; C_noret_decl(f_18689) static void C_ccall f_18689(C_word c,C_word *av) C_noret; C_noret_decl(f_18693) static void C_ccall f_18693(C_word c,C_word *av) C_noret; C_noret_decl(f_18696) static void C_fcall f_18696(C_word t0,C_word t1) C_noret; C_noret_decl(f_18702) static void C_fcall f_18702(C_word t0,C_word t1) C_noret; C_noret_decl(f_18708) static void C_ccall f_18708(C_word c,C_word *av) C_noret; C_noret_decl(f_18711) static void C_ccall f_18711(C_word c,C_word *av) C_noret; C_noret_decl(f_18779) static void C_ccall f_18779(C_word c,C_word *av) C_noret; C_noret_decl(f_18783) static void C_ccall f_18783(C_word c,C_word *av) C_noret; C_noret_decl(f_18786) static void C_ccall f_18786(C_word c,C_word *av) C_noret; C_noret_decl(f_18789) static void C_ccall f_18789(C_word c,C_word *av) C_noret; C_noret_decl(f_18792) static void C_ccall f_18792(C_word c,C_word *av) C_noret; C_noret_decl(f_18822) static void C_fcall f_18822(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_18841) static void C_ccall f_18841(C_word c,C_word *av) C_noret; C_noret_decl(f_18866) static void C_ccall f_18866(C_word c,C_word *av) C_noret; C_noret_decl(f_18883) static void C_fcall f_18883(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18887) static void C_ccall f_18887(C_word c,C_word *av) C_noret; C_noret_decl(f_18892) static void C_fcall f_18892(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18899) static void C_ccall f_18899(C_word c,C_word *av) C_noret; C_noret_decl(f_18922) static void C_ccall f_18922(C_word c,C_word *av) C_noret; C_noret_decl(f_18932) static void C_ccall f_18932(C_word c,C_word *av) C_noret; C_noret_decl(f_18953) static void C_ccall f_18953(C_word c,C_word *av) C_noret; C_noret_decl(f_18971) static void C_ccall f_18971(C_word c,C_word *av) C_noret; C_noret_decl(f_18977) static void C_ccall f_18977(C_word c,C_word *av) C_noret; C_noret_decl(f_18991) static void C_ccall f_18991(C_word c,C_word *av) C_noret; C_noret_decl(f_18997) static void C_fcall f_18997(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_19004) static void C_ccall f_19004(C_word c,C_word *av) C_noret; C_noret_decl(f_19034) static void C_ccall f_19034(C_word c,C_word *av) C_noret; C_noret_decl(f_19047) static void C_ccall f_19047(C_word c,C_word *av) C_noret; C_noret_decl(f_19054) static void C_ccall f_19054(C_word c,C_word *av) C_noret; C_noret_decl(f_19061) static void C_ccall f_19061(C_word c,C_word *av) C_noret; C_noret_decl(f_19063) static void C_ccall f_19063(C_word c,C_word *av) C_noret; C_noret_decl(f_19071) static void C_ccall f_19071(C_word c,C_word *av) C_noret; C_noret_decl(f_19075) static void C_ccall f_19075(C_word c,C_word *av) C_noret; C_noret_decl(f_19078) static void C_fcall f_19078(C_word t0,C_word t1) C_noret; C_noret_decl(f_19084) static void C_fcall f_19084(C_word t0,C_word t1) C_noret; C_noret_decl(f_19090) static void C_ccall f_19090(C_word c,C_word *av) C_noret; C_noret_decl(f_19093) static void C_ccall f_19093(C_word c,C_word *av) C_noret; C_noret_decl(f_19161) static void C_ccall f_19161(C_word c,C_word *av) C_noret; C_noret_decl(f_19165) static void C_ccall f_19165(C_word c,C_word *av) C_noret; C_noret_decl(f_19168) static void C_ccall f_19168(C_word c,C_word *av) C_noret; C_noret_decl(f_19183) static void C_ccall f_19183(C_word c,C_word *av) C_noret; C_noret_decl(f_19206) static void C_ccall f_19206(C_word c,C_word *av) C_noret; C_noret_decl(f_19217) static void C_ccall f_19217(C_word c,C_word *av) C_noret; C_noret_decl(f_19253) static void C_ccall f_19253(C_word c,C_word *av) C_noret; C_noret_decl(f_19263) static void C_ccall f_19263(C_word c,C_word *av) C_noret; C_noret_decl(f_19269) static void C_ccall f_19269(C_word c,C_word *av) C_noret; C_noret_decl(f_19275) static void C_ccall f_19275(C_word c,C_word *av) C_noret; C_noret_decl(f_19285) static void C_ccall f_19285(C_word c,C_word *av) C_noret; C_noret_decl(f_19287) static void C_fcall f_19287(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19297) static void C_fcall f_19297(C_word t0,C_word t1) C_noret; C_noret_decl(f_19316) static void C_ccall f_19316(C_word c,C_word *av) C_noret; C_noret_decl(f_19329) static void C_ccall f_19329(C_word c,C_word *av) C_noret; C_noret_decl(f_19361) static void C_ccall f_19361(C_word c,C_word *av) C_noret; C_noret_decl(f_19384) static void C_ccall f_19384(C_word c,C_word *av) C_noret; C_noret_decl(f_19389) static void C_ccall f_19389(C_word c,C_word *av) C_noret; C_noret_decl(f_19396) static void C_ccall f_19396(C_word c,C_word *av) C_noret; C_noret_decl(f_19447) static void C_fcall f_19447(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_19454) static void C_ccall f_19454(C_word c,C_word *av) C_noret; C_noret_decl(f_19457) static void C_ccall f_19457(C_word c,C_word *av) C_noret; C_noret_decl(f_19462) static void C_fcall f_19462(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19514) static void C_ccall f_19514(C_word c,C_word *av) C_noret; C_noret_decl(f_19529) static void C_ccall f_19529(C_word c,C_word *av) C_noret; C_noret_decl(f_19565) static void C_ccall f_19565(C_word c,C_word *av) C_noret; C_noret_decl(f_19575) static void C_ccall f_19575(C_word c,C_word *av) C_noret; C_noret_decl(f_19585) static void C_fcall f_19585(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19587) static void C_fcall f_19587(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19600) static void C_fcall f_19600(C_word t0,C_word t1) C_noret; C_noret_decl(f_19645) static void C_fcall f_19645(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19655) static void C_ccall f_19655(C_word c,C_word *av) C_noret; C_noret_decl(f_19673) static void C_ccall f_19673(C_word c,C_word *av) C_noret; C_noret_decl(f_19677) static void C_ccall f_19677(C_word c,C_word *av) C_noret; C_noret_decl(f_19682) static void C_fcall f_19682(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19702) static void C_ccall f_19702(C_word c,C_word *av) C_noret; C_noret_decl(f_19704) static void C_fcall f_19704(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8) C_noret; C_noret_decl(f_19729) static void C_ccall f_19729(C_word c,C_word *av) C_noret; C_noret_decl(f_19741) static void C_fcall f_19741(C_word t0,C_word t1) C_noret; C_noret_decl(f_19744) static void C_ccall f_19744(C_word c,C_word *av) C_noret; C_noret_decl(f_19757) static void C_fcall f_19757(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_19761) static void C_ccall f_19761(C_word c,C_word *av) C_noret; C_noret_decl(f_19764) static void C_ccall f_19764(C_word c,C_word *av) C_noret; C_noret_decl(f_19769) static void C_fcall f_19769(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_19779) static void C_fcall f_19779(C_word t0,C_word t1) C_noret; C_noret_decl(f_19782) static void C_ccall f_19782(C_word c,C_word *av) C_noret; C_noret_decl(f_19792) static void C_ccall f_19792(C_word c,C_word *av) C_noret; C_noret_decl(f_19827) static void C_ccall f_19827(C_word c,C_word *av) C_noret; C_noret_decl(f_19879) static void C_ccall f_19879(C_word c,C_word *av) C_noret; C_noret_decl(f_19891) static void C_fcall f_19891(C_word t0,C_word t1) C_noret; C_noret_decl(f_19915) static void C_ccall f_19915(C_word c,C_word *av) C_noret; C_noret_decl(f_19916) static C_word C_fcall f_19916(C_word *a,C_word t0,C_word t1); C_noret_decl(f_19945) static void C_ccall f_19945(C_word c,C_word *av) C_noret; C_noret_decl(f_19946) static C_word C_fcall f_19946(C_word t0,C_word t1); C_noret_decl(f_19980) static C_word C_fcall f_19980(C_word t0,C_word t1); C_noret_decl(f_20003) static void C_fcall f_20003(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20039) static void C_fcall f_20039(C_word t0,C_word t1) C_noret; C_noret_decl(f_20042) static void C_ccall f_20042(C_word c,C_word *av) C_noret; C_noret_decl(f_20081) static void C_fcall f_20081(C_word t0,C_word t1) C_noret; C_noret_decl(f_20084) static void C_ccall f_20084(C_word c,C_word *av) C_noret; C_noret_decl(f_20109) static void C_ccall f_20109(C_word c,C_word *av) C_noret; C_noret_decl(f_20149) static C_word C_fcall f_20149(C_word *a,C_word t0,C_word t1); C_noret_decl(f_20177) static void C_fcall f_20177(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20302) static C_word C_fcall f_20302(C_word t0,C_word t1); C_noret_decl(f_20336) static void C_fcall f_20336(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_20477) static void C_fcall f_20477(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20481) static void C_ccall f_20481(C_word c,C_word *av) C_noret; C_noret_decl(f_20484) static void C_ccall f_20484(C_word c,C_word *av) C_noret; C_noret_decl(f_20486) static void C_fcall f_20486(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_20489) static void C_fcall f_20489(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20499) static void C_fcall f_20499(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20503) static void C_fcall f_20503(C_word t0,C_word t1) C_noret; C_noret_decl(f_20512) static void C_ccall f_20512(C_word c,C_word *av) C_noret; C_noret_decl(f_20515) static void C_ccall f_20515(C_word c,C_word *av) C_noret; C_noret_decl(f_20524) static void C_fcall f_20524(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20560) static void C_fcall f_20560(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20571) static void C_ccall f_20571(C_word c,C_word *av) C_noret; C_noret_decl(f_20577) static void C_fcall f_20577(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20594) static void C_ccall f_20594(C_word c,C_word *av) C_noret; C_noret_decl(f_20624) static void C_fcall f_20624(C_word t0,C_word t1) C_noret; C_noret_decl(f_20627) static void C_ccall f_20627(C_word c,C_word *av) C_noret; C_noret_decl(f_20633) static void C_ccall f_20633(C_word c,C_word *av) C_noret; C_noret_decl(f_20636) static void C_ccall f_20636(C_word c,C_word *av) C_noret; C_noret_decl(f_20640) static void C_ccall f_20640(C_word c,C_word *av) C_noret; C_noret_decl(f_20651) static void C_ccall f_20651(C_word c,C_word *av) C_noret; C_noret_decl(f_20665) static void C_fcall f_20665(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20683) static void C_ccall f_20683(C_word c,C_word *av) C_noret; C_noret_decl(f_20708) static void C_ccall f_20708(C_word c,C_word *av) C_noret; C_noret_decl(f_20735) static void C_ccall f_20735(C_word c,C_word *av) C_noret; C_noret_decl(f_20766) static void C_ccall f_20766(C_word c,C_word *av) C_noret; C_noret_decl(f_20773) static void C_ccall f_20773(C_word c,C_word *av) C_noret; C_noret_decl(f_20785) static void C_ccall f_20785(C_word c,C_word *av) C_noret; C_noret_decl(f_20815) static void C_ccall f_20815(C_word c,C_word *av) C_noret; C_noret_decl(f_20829) static void C_fcall f_20829(C_word t0,C_word t1) C_noret; C_noret_decl(f_20832) static void C_ccall f_20832(C_word c,C_word *av) C_noret; C_noret_decl(f_20838) static void C_ccall f_20838(C_word c,C_word *av) C_noret; C_noret_decl(f_20852) static void C_ccall f_20852(C_word c,C_word *av) C_noret; C_noret_decl(f_20876) static void C_fcall f_20876(C_word t0,C_word t1) C_noret; C_noret_decl(f_20879) static void C_ccall f_20879(C_word c,C_word *av) C_noret; C_noret_decl(f_20886) static void C_ccall f_20886(C_word c,C_word *av) C_noret; C_noret_decl(f_20903) static void C_ccall f_20903(C_word c,C_word *av) C_noret; C_noret_decl(f_20919) static void C_ccall f_20919(C_word c,C_word *av) C_noret; C_noret_decl(f_20922) static void C_ccall f_20922(C_word c,C_word *av) C_noret; C_noret_decl(f_20925) static void C_ccall f_20925(C_word c,C_word *av) C_noret; C_noret_decl(f_20931) static void C_ccall f_20931(C_word c,C_word *av) C_noret; C_noret_decl(f_20934) static void C_ccall f_20934(C_word c,C_word *av) C_noret; C_noret_decl(f_20937) static void C_ccall f_20937(C_word c,C_word *av) C_noret; C_noret_decl(f_20941) static void C_ccall f_20941(C_word c,C_word *av) C_noret; C_noret_decl(f_20952) static void C_ccall f_20952(C_word c,C_word *av) C_noret; C_noret_decl(f_20956) static void C_ccall f_20956(C_word c,C_word *av) C_noret; C_noret_decl(f_20960) static void C_ccall f_20960(C_word c,C_word *av) C_noret; C_noret_decl(f_20968) static void C_ccall f_20968(C_word c,C_word *av) C_noret; C_noret_decl(f_20976) static void C_ccall f_20976(C_word c,C_word *av) C_noret; C_noret_decl(f_20991) static void C_ccall f_20991(C_word c,C_word *av) C_noret; C_noret_decl(f_20997) static void C_ccall f_20997(C_word c,C_word *av) C_noret; C_noret_decl(f_21000) static void C_ccall f_21000(C_word c,C_word *av) C_noret; C_noret_decl(f_21011) static void C_ccall f_21011(C_word c,C_word *av) C_noret; C_noret_decl(f_21025) static void C_ccall f_21025(C_word c,C_word *av) C_noret; C_noret_decl(f_21031) static void C_ccall f_21031(C_word c,C_word *av) C_noret; C_noret_decl(f_21034) static void C_ccall f_21034(C_word c,C_word *av) C_noret; C_noret_decl(f_21037) static void C_ccall f_21037(C_word c,C_word *av) C_noret; C_noret_decl(f_21040) static void C_ccall f_21040(C_word c,C_word *av) C_noret; C_noret_decl(f_21061) static void C_ccall f_21061(C_word c,C_word *av) C_noret; C_noret_decl(f_21065) static void C_ccall f_21065(C_word c,C_word *av) C_noret; C_noret_decl(f_21085) static void C_ccall f_21085(C_word c,C_word *av) C_noret; C_noret_decl(f_21091) static void C_ccall f_21091(C_word c,C_word *av) C_noret; C_noret_decl(f_21094) static void C_ccall f_21094(C_word c,C_word *av) C_noret; C_noret_decl(f_21097) static void C_ccall f_21097(C_word c,C_word *av) C_noret; C_noret_decl(f_21100) static void C_ccall f_21100(C_word c,C_word *av) C_noret; C_noret_decl(f_21103) static void C_ccall f_21103(C_word c,C_word *av) C_noret; C_noret_decl(f_21113) static void C_ccall f_21113(C_word c,C_word *av) C_noret; C_noret_decl(f_21121) static void C_ccall f_21121(C_word c,C_word *av) C_noret; C_noret_decl(f_21133) static void C_ccall f_21133(C_word c,C_word *av) C_noret; C_noret_decl(f_21163) static void C_ccall f_21163(C_word c,C_word *av) C_noret; C_noret_decl(f_21169) static void C_ccall f_21169(C_word c,C_word *av) C_noret; C_noret_decl(f_21172) static void C_ccall f_21172(C_word c,C_word *av) C_noret; C_noret_decl(f_21175) static void C_ccall f_21175(C_word c,C_word *av) C_noret; C_noret_decl(f_21178) static void C_ccall f_21178(C_word c,C_word *av) C_noret; C_noret_decl(f_21181) static void C_ccall f_21181(C_word c,C_word *av) C_noret; C_noret_decl(f_21191) static void C_ccall f_21191(C_word c,C_word *av) C_noret; C_noret_decl(f_21199) static void C_ccall f_21199(C_word c,C_word *av) C_noret; C_noret_decl(f_21207) static void C_ccall f_21207(C_word c,C_word *av) C_noret; C_noret_decl(f_21211) static void C_ccall f_21211(C_word c,C_word *av) C_noret; C_noret_decl(f_21230) static void C_fcall f_21230(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21248) static void C_ccall f_21248(C_word c,C_word *av) C_noret; C_noret_decl(f_21376) static void C_ccall f_21376(C_word c,C_word *av) C_noret; C_noret_decl(f_21382) static void C_ccall f_21382(C_word c,C_word *av) C_noret; C_noret_decl(f_21385) static void C_ccall f_21385(C_word c,C_word *av) C_noret; C_noret_decl(f_21393) static void C_fcall f_21393(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21432) static void C_fcall f_21432(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_21467) static void C_fcall f_21467(C_word t0,C_word t1) C_noret; C_noret_decl(f_21474) static void C_ccall f_21474(C_word c,C_word *av) C_noret; C_noret_decl(f_21500) static void C_ccall f_21500(C_word c,C_word *av) C_noret; C_noret_decl(f_21596) static void C_fcall f_21596(C_word t0,C_word t1) C_noret; C_noret_decl(f_21600) static void C_ccall f_21600(C_word c,C_word *av) C_noret; C_noret_decl(f_21613) static void C_ccall f_21613(C_word c,C_word *av) C_noret; C_noret_decl(f_21625) static void C_fcall f_21625(C_word t0,C_word t1) C_noret; C_noret_decl(f_21629) static void C_ccall f_21629(C_word c,C_word *av) C_noret; C_noret_decl(f_21636) static void C_ccall f_21636(C_word c,C_word *av) C_noret; C_noret_decl(f_21642) static void C_fcall f_21642(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_21646) static void C_ccall f_21646(C_word c,C_word *av) C_noret; C_noret_decl(f_21649) static void C_ccall f_21649(C_word c,C_word *av) C_noret; C_noret_decl(f_21651) static void C_fcall f_21651(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_21658) static void C_fcall f_21658(C_word t0,C_word t1) C_noret; C_noret_decl(f_21665) static C_word C_fcall f_21665(C_word *a,C_word t0,C_word t1); C_noret_decl(f_21700) static void C_ccall f_21700(C_word c,C_word *av) C_noret; C_noret_decl(f_21713) static void C_fcall f_21713(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21814) static void C_ccall f_21814(C_word c,C_word *av) C_noret; C_noret_decl(f_21820) static void C_fcall f_21820(C_word t0,C_word t1) C_noret; C_noret_decl(f_21826) static void C_fcall f_21826(C_word t0,C_word t1) C_noret; C_noret_decl(f_21879) static void C_fcall f_21879(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_21950) static void C_fcall f_21950(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22003) static void C_fcall f_22003(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_22012) static void C_fcall f_22012(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_22032) static void C_ccall f_22032(C_word c,C_word *av) C_noret; C_noret_decl(f_22061) static C_word C_fcall f_22061(C_word t0,C_word t1); C_noret_decl(f_22085) static void C_fcall f_22085(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22089) static void C_fcall f_22089(C_word t0,C_word t1) C_noret; C_noret_decl(f_22092) static void C_ccall f_22092(C_word c,C_word *av) C_noret; C_noret_decl(f_22095) static void C_ccall f_22095(C_word c,C_word *av) C_noret; C_noret_decl(f_22098) static void C_ccall f_22098(C_word c,C_word *av) C_noret; C_noret_decl(f_22101) static void C_ccall f_22101(C_word c,C_word *av) C_noret; C_noret_decl(f_22117) static void C_fcall f_22117(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_22134) static void C_ccall f_22134(C_word c,C_word *av) C_noret; C_noret_decl(f_22150) static void C_fcall f_22150(C_word t0,C_word t1) C_noret; C_noret_decl(f_22169) static void C_ccall f_22169(C_word c,C_word *av) C_noret; C_noret_decl(f_22173) static void C_fcall f_22173(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_22201) static void C_ccall f_22201(C_word c,C_word *av) C_noret; C_noret_decl(f_22204) static void C_ccall f_22204(C_word c,C_word *av) C_noret; C_noret_decl(f_22210) static void C_ccall f_22210(C_word c,C_word *av) C_noret; C_noret_decl(f_22296) static void C_ccall f_22296(C_word c,C_word *av) C_noret; C_noret_decl(f_22299) static void C_ccall f_22299(C_word c,C_word *av) C_noret; C_noret_decl(f_22304) static void C_fcall f_22304(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_22314) static void C_ccall f_22314(C_word c,C_word *av) C_noret; C_noret_decl(f_22317) static void C_ccall f_22317(C_word c,C_word *av) C_noret; C_noret_decl(f_22337) static void C_fcall f_22337(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22345) static void C_fcall f_22345(C_word t0,C_word t1) C_noret; C_noret_decl(f_22378) static void C_ccall f_22378(C_word c,C_word *av) C_noret; C_noret_decl(f_22380) static void C_fcall f_22380(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22405) static void C_ccall f_22405(C_word c,C_word *av) C_noret; C_noret_decl(f_22418) static void C_fcall f_22418(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_22457) static void C_ccall f_22457(C_word c,C_word *av) C_noret; C_noret_decl(f_22472) static void C_ccall f_22472(C_word c,C_word *av) C_noret; C_noret_decl(f_22476) static void C_fcall f_22476(C_word t0,C_word t1) C_noret; C_noret_decl(f_22493) static void C_fcall f_22493(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_22511) static void C_ccall f_22511(C_word c,C_word *av) C_noret; C_noret_decl(f_22520) static void C_ccall f_22520(C_word c,C_word *av) C_noret; C_noret_decl(f_22530) static void C_ccall f_22530(C_word c,C_word *av) C_noret; C_noret_decl(f_22534) static void C_fcall f_22534(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22538) static void C_ccall f_22538(C_word c,C_word *av) C_noret; C_noret_decl(f_22541) static void C_ccall f_22541(C_word c,C_word *av) C_noret; C_noret_decl(f_22547) static void C_ccall f_22547(C_word c,C_word *av) C_noret; C_noret_decl(f_22550) static void C_fcall f_22550(C_word t0,C_word t1) C_noret; C_noret_decl(f_22553) static void C_ccall f_22553(C_word c,C_word *av) C_noret; C_noret_decl(f_22570) static void C_ccall f_22570(C_word c,C_word *av) C_noret; C_noret_decl(f_22642) static void C_ccall f_22642(C_word c,C_word *av) C_noret; C_noret_decl(f_22646) static void C_ccall f_22646(C_word c,C_word *av) C_noret; C_noret_decl(f_22650) static void C_ccall f_22650(C_word c,C_word *av) C_noret; C_noret_decl(f_22652) static void C_fcall f_22652(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_22675) static void C_fcall f_22675(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_22704) static void C_fcall f_22704(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22708) static void C_fcall f_22708(C_word t0,C_word t1) C_noret; C_noret_decl(f_22711) static void C_ccall f_22711(C_word c,C_word *av) C_noret; C_noret_decl(f_22732) static void C_fcall f_22732(C_word t0,C_word t1) C_noret; C_noret_decl(f_22760) static void C_ccall f_22760(C_word c,C_word *av) C_noret; C_noret_decl(f_22770) static void C_fcall f_22770(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22780) static void C_ccall f_22780(C_word c,C_word *av) C_noret; C_noret_decl(f_22785) static void C_fcall f_22785(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_22800) static void C_fcall f_22800(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_22820) static void C_fcall f_22820(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_22843) static void C_fcall f_22843(C_word t0,C_word t1) C_noret; C_noret_decl(f_22875) static void C_ccall f_22875(C_word c,C_word *av) C_noret; C_noret_decl(f_22882) static void C_ccall f_22882(C_word c,C_word *av) C_noret; C_noret_decl(f_22884) static void C_ccall f_22884(C_word c,C_word *av) C_noret; C_noret_decl(f_22908) static void C_ccall f_22908(C_word c,C_word *av) C_noret; C_noret_decl(f_22952) static void C_fcall f_22952(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22979) static void C_fcall f_22979(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_23006) static void C_fcall f_23006(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_23087) static void C_ccall f_23087(C_word c,C_word *av) C_noret; C_noret_decl(f_23103) static void C_ccall f_23103(C_word c,C_word *av) C_noret; C_noret_decl(f_23113) static void C_ccall f_23113(C_word c,C_word *av) C_noret; C_noret_decl(f_23122) static void C_ccall f_23122(C_word c,C_word *av) C_noret; C_noret_decl(f_23162) static void C_fcall f_23162(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_23165) static void C_fcall f_23165(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23188) static void C_ccall f_23188(C_word c,C_word *av) C_noret; C_noret_decl(f_23204) static void C_fcall f_23204(C_word t0,C_word t1) C_noret; C_noret_decl(f_23211) static void C_ccall f_23211(C_word c,C_word *av) C_noret; C_noret_decl(f_23231) static void C_ccall f_23231(C_word c,C_word *av) C_noret; C_noret_decl(f_23251) static void C_ccall f_23251(C_word c,C_word *av) C_noret; C_noret_decl(f_23254) static void C_ccall f_23254(C_word c,C_word *av) C_noret; C_noret_decl(f_23255) static void C_ccall f_23255(C_word c,C_word *av) C_noret; C_noret_decl(f_23261) static void C_ccall f_23261(C_word c,C_word *av) C_noret; C_noret_decl(f_23277) static void C_ccall f_23277(C_word c,C_word *av) C_noret; C_noret_decl(f_23405) static void C_ccall f_23405(C_word c,C_word *av) C_noret; C_noret_decl(f_23424) static void C_ccall f_23424(C_word c,C_word *av) C_noret; C_noret_decl(f_23447) static void C_ccall f_23447(C_word c,C_word *av) C_noret; C_noret_decl(f_23448) static void C_ccall f_23448(C_word c,C_word *av) C_noret; C_noret_decl(f_23454) static void C_ccall f_23454(C_word c,C_word *av) C_noret; C_noret_decl(f_23473) static void C_ccall f_23473(C_word c,C_word *av) C_noret; C_noret_decl(f_23474) static void C_ccall f_23474(C_word c,C_word *av) C_noret; C_noret_decl(f_23480) static void C_ccall f_23480(C_word c,C_word *av) C_noret; C_noret_decl(f_23502) static void C_ccall f_23502(C_word c,C_word *av) C_noret; C_noret_decl(f_23508) static void C_ccall f_23508(C_word c,C_word *av) C_noret; C_noret_decl(f_23509) static void C_ccall f_23509(C_word c,C_word *av) C_noret; C_noret_decl(f_23515) static void C_ccall f_23515(C_word c,C_word *av) C_noret; C_noret_decl(f_23547) static void C_ccall f_23547(C_word c,C_word *av) C_noret; C_noret_decl(f_23553) static void C_ccall f_23553(C_word c,C_word *av) C_noret; C_noret_decl(f_23555) static void C_ccall f_23555(C_word c,C_word *av) C_noret; C_noret_decl(f_23561) static void C_ccall f_23561(C_word c,C_word *av) C_noret; C_noret_decl(f_23571) static void C_ccall f_23571(C_word c,C_word *av) C_noret; C_noret_decl(f_23577) static void C_ccall f_23577(C_word c,C_word *av) C_noret; C_noret_decl(f_23601) static void C_ccall f_23601(C_word c,C_word *av) C_noret; C_noret_decl(f_23607) static void C_ccall f_23607(C_word c,C_word *av) C_noret; C_noret_decl(f_23614) static void C_ccall f_23614(C_word c,C_word *av) C_noret; C_noret_decl(f_23620) static void C_ccall f_23620(C_word c,C_word *av) C_noret; C_noret_decl(f_23703) static void C_fcall f_23703(C_word t0,C_word t1) C_noret; C_noret_decl(f_23706) static void C_fcall f_23706(C_word t0,C_word t1) C_noret; C_noret_decl(f_23707) static void C_ccall f_23707(C_word c,C_word *av) C_noret; C_noret_decl(f_23720) static void C_ccall f_23720(C_word c,C_word *av) C_noret; C_noret_decl(f_23726) static void C_ccall f_23726(C_word c,C_word *av) C_noret; C_noret_decl(f_23733) static void C_fcall f_23733(C_word t0,C_word t1) C_noret; C_noret_decl(f_23739) static void C_ccall f_23739(C_word c,C_word *av) C_noret; C_noret_decl(f_23744) static void C_ccall f_23744(C_word c,C_word *av) C_noret; C_noret_decl(f_23774) static void C_fcall f_23774(C_word t0,C_word t1) C_noret; C_noret_decl(f_23775) static void C_ccall f_23775(C_word c,C_word *av) C_noret; C_noret_decl(f_23779) static void C_ccall f_23779(C_word c,C_word *av) C_noret; C_noret_decl(f_23784) static void C_ccall f_23784(C_word c,C_word *av) C_noret; C_noret_decl(f_23855) static void C_fcall f_23855(C_word t0,C_word t1) C_noret; C_noret_decl(f_23858) static void C_fcall f_23858(C_word t0,C_word t1) C_noret; C_noret_decl(f_23859) static void C_ccall f_23859(C_word c,C_word *av) C_noret; C_noret_decl(f_23872) static void C_ccall f_23872(C_word c,C_word *av) C_noret; C_noret_decl(f_23878) static void C_ccall f_23878(C_word c,C_word *av) C_noret; C_noret_decl(f_23888) static void C_ccall f_23888(C_word c,C_word *av) C_noret; C_noret_decl(f_23900) static void C_ccall f_23900(C_word c,C_word *av) C_noret; C_noret_decl(f_23907) static void C_fcall f_23907(C_word t0,C_word t1) C_noret; C_noret_decl(f_23913) static void C_ccall f_23913(C_word c,C_word *av) C_noret; C_noret_decl(f_23933) static void C_fcall f_23933(C_word t0,C_word t1) C_noret; C_noret_decl(f_23934) static void C_ccall f_23934(C_word c,C_word *av) C_noret; C_noret_decl(f_23944) static void C_ccall f_23944(C_word c,C_word *av) C_noret; C_noret_decl(f_23948) static void C_ccall f_23948(C_word c,C_word *av) C_noret; C_noret_decl(f_23954) static void C_ccall f_23954(C_word c,C_word *av) C_noret; C_noret_decl(f_24026) static void C_ccall f_24026(C_word c,C_word *av) C_noret; C_noret_decl(f_24076) static void C_ccall f_24076(C_word c,C_word *av) C_noret; C_noret_decl(f_24089) static void C_ccall f_24089(C_word c,C_word *av) C_noret; C_noret_decl(f_24090) static void C_ccall f_24090(C_word c,C_word *av) C_noret; C_noret_decl(f_24097) static void C_ccall f_24097(C_word c,C_word *av) C_noret; C_noret_decl(f_24105) static void C_ccall f_24105(C_word c,C_word *av) C_noret; C_noret_decl(f_24112) static void C_ccall f_24112(C_word c,C_word *av) C_noret; C_noret_decl(f_24124) static void C_ccall f_24124(C_word c,C_word *av) C_noret; C_noret_decl(f_24125) static void C_ccall f_24125(C_word c,C_word *av) C_noret; C_noret_decl(f_24132) static void C_ccall f_24132(C_word c,C_word *av) C_noret; C_noret_decl(f_24140) static void C_ccall f_24140(C_word c,C_word *av) C_noret; C_noret_decl(f_24147) static void C_ccall f_24147(C_word c,C_word *av) C_noret; C_noret_decl(f_24162) static void C_ccall f_24162(C_word c,C_word *av) C_noret; C_noret_decl(f_24163) static void C_ccall f_24163(C_word c,C_word *av) C_noret; C_noret_decl(f_24167) static void C_ccall f_24167(C_word c,C_word *av) C_noret; C_noret_decl(f_24173) static void C_ccall f_24173(C_word c,C_word *av) C_noret; C_noret_decl(f_24180) static void C_ccall f_24180(C_word c,C_word *av) C_noret; C_noret_decl(f_24189) static void C_ccall f_24189(C_word c,C_word *av) C_noret; C_noret_decl(f_24199) static void C_ccall f_24199(C_word c,C_word *av) C_noret; C_noret_decl(f_24203) static void C_ccall f_24203(C_word c,C_word *av) C_noret; C_noret_decl(f_24208) static void C_ccall f_24208(C_word c,C_word *av) C_noret; C_noret_decl(f_24225) static void C_ccall f_24225(C_word c,C_word *av) C_noret; C_noret_decl(f_24234) static void C_ccall f_24234(C_word c,C_word *av) C_noret; C_noret_decl(f_24245) static void C_ccall f_24245(C_word c,C_word *av) C_noret; C_noret_decl(f_24246) static void C_ccall f_24246(C_word c,C_word *av) C_noret; C_noret_decl(f_24250) static void C_ccall f_24250(C_word c,C_word *av) C_noret; C_noret_decl(f_24261) static void C_ccall f_24261(C_word c,C_word *av) C_noret; C_noret_decl(f_24268) static void C_ccall f_24268(C_word c,C_word *av) C_noret; C_noret_decl(f_24280) static void C_ccall f_24280(C_word c,C_word *av) C_noret; C_noret_decl(f_24283) static void C_ccall f_24283(C_word c,C_word *av) C_noret; C_noret_decl(f_24286) static void C_ccall f_24286(C_word c,C_word *av) C_noret; C_noret_decl(f_24295) static void C_fcall f_24295(C_word t0,C_word t1) C_noret; C_noret_decl(f_24298) static void C_ccall f_24298(C_word c,C_word *av) C_noret; C_noret_decl(f_24299) static void C_ccall f_24299(C_word c,C_word *av) C_noret; C_noret_decl(f_24356) static void C_ccall f_24356(C_word c,C_word *av) C_noret; C_noret_decl(f_24357) static void C_ccall f_24357(C_word c,C_word *av) C_noret; C_noret_decl(f_24363) static void C_ccall f_24363(C_word c,C_word *av) C_noret; C_noret_decl(f_24399) static void C_ccall f_24399(C_word c,C_word *av) C_noret; C_noret_decl(f_24404) static void C_ccall f_24404(C_word c,C_word *av) C_noret; C_noret_decl(f_24436) static void C_ccall f_24436(C_word c,C_word *av) C_noret; C_noret_decl(f_24439) static void C_fcall f_24439(C_word t0,C_word t1) C_noret; C_noret_decl(f_24440) static void C_ccall f_24440(C_word c,C_word *av) C_noret; C_noret_decl(f_24444) static void C_ccall f_24444(C_word c,C_word *av) C_noret; C_noret_decl(f_24462) static void C_fcall f_24462(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_24475) static void C_ccall f_24475(C_word c,C_word *av) C_noret; C_noret_decl(f_24489) static void C_ccall f_24489(C_word c,C_word *av) C_noret; C_noret_decl(f_24493) static void C_ccall f_24493(C_word c,C_word *av) C_noret; C_noret_decl(f_24507) static void C_ccall f_24507(C_word c,C_word *av) C_noret; C_noret_decl(f_24513) static void C_ccall f_24513(C_word c,C_word *av) C_noret; C_noret_decl(f_24526) static void C_ccall f_24526(C_word c,C_word *av) C_noret; C_noret_decl(f_24533) static void C_ccall f_24533(C_word c,C_word *av) C_noret; C_noret_decl(f_24540) static void C_ccall f_24540(C_word c,C_word *av) C_noret; C_noret_decl(f_24562) static void C_ccall f_24562(C_word c,C_word *av) C_noret; C_noret_decl(f_24566) static void C_ccall f_24566(C_word c,C_word *av) C_noret; C_noret_decl(f_24653) static void C_ccall f_24653(C_word c,C_word *av) C_noret; C_noret_decl(f_24654) static void C_ccall f_24654(C_word c,C_word *av) C_noret; C_noret_decl(f_24702) static void C_ccall f_24702(C_word c,C_word *av) C_noret; C_noret_decl(f_24762) static void C_ccall f_24762(C_word c,C_word *av) C_noret; C_noret_decl(f_24797) static void C_ccall f_24797(C_word c,C_word *av) C_noret; C_noret_decl(f_24997) static void C_ccall f_24997(C_word c,C_word *av) C_noret; C_noret_decl(f_25017) static void C_ccall f_25017(C_word c,C_word *av) C_noret; C_noret_decl(f_25026) static void C_ccall f_25026(C_word c,C_word *av) C_noret; C_noret_decl(f_25032) static void C_ccall f_25032(C_word c,C_word *av) C_noret; C_noret_decl(f_25038) static void C_ccall f_25038(C_word c,C_word *av) C_noret; C_noret_decl(f_25055) static void C_ccall f_25055(C_word c,C_word *av) C_noret; C_noret_decl(f_25092) static void C_ccall f_25092(C_word c,C_word *av) C_noret; C_noret_decl(f_25101) static void C_ccall f_25101(C_word c,C_word *av) C_noret; C_noret_decl(f_25107) static void C_ccall f_25107(C_word c,C_word *av) C_noret; C_noret_decl(f_25113) static void C_ccall f_25113(C_word c,C_word *av) C_noret; C_noret_decl(f_25147) static void C_ccall f_25147(C_word c,C_word *av) C_noret; C_noret_decl(f_25154) static void C_fcall f_25154(C_word t0,C_word t1) C_noret; C_noret_decl(f_25177) static void C_ccall f_25177(C_word c,C_word *av) C_noret; C_noret_decl(f_25184) static void C_fcall f_25184(C_word t0,C_word t1) C_noret; C_noret_decl(f_25187) static void C_fcall f_25187(C_word t0,C_word t1) C_noret; C_noret_decl(f_25218) static void C_ccall f_25218(C_word c,C_word *av) C_noret; C_noret_decl(f_25235) static void C_ccall f_25235(C_word c,C_word *av) C_noret; C_noret_decl(f_25242) static void C_fcall f_25242(C_word t0,C_word t1) C_noret; C_noret_decl(f_25251) static void C_fcall f_25251(C_word t0,C_word t1) C_noret; C_noret_decl(f_25270) static void C_ccall f_25270(C_word c,C_word *av) C_noret; C_noret_decl(f_25287) static void C_ccall f_25287(C_word c,C_word *av) C_noret; C_noret_decl(f_25294) static void C_ccall f_25294(C_word c,C_word *av) C_noret; C_noret_decl(f_25315) static void C_ccall f_25315(C_word c,C_word *av) C_noret; C_noret_decl(f_25335) static void C_ccall f_25335(C_word c,C_word *av) C_noret; C_noret_decl(f_25342) static void C_ccall f_25342(C_word c,C_word *av) C_noret; C_noret_decl(f_25349) static void C_fcall f_25349(C_word t0,C_word t1) C_noret; C_noret_decl(f_25368) static void C_ccall f_25368(C_word c,C_word *av) C_noret; C_noret_decl(f_25375) static void C_ccall f_25375(C_word c,C_word *av) C_noret; C_noret_decl(f_25382) static void C_fcall f_25382(C_word t0,C_word t1) C_noret; C_noret_decl(f_25405) static void C_ccall f_25405(C_word c,C_word *av) C_noret; C_noret_decl(f_25426) static void C_ccall f_25426(C_word c,C_word *av) C_noret; C_noret_decl(f_25433) static void C_ccall f_25433(C_word c,C_word *av) C_noret; C_noret_decl(f_25440) static void C_ccall f_25440(C_word c,C_word *av) C_noret; C_noret_decl(f_25447) static void C_fcall f_25447(C_word t0,C_word t1) C_noret; C_noret_decl(f_25456) static void C_fcall f_25456(C_word t0,C_word t1) C_noret; C_noret_decl(f_25476) static void C_ccall f_25476(C_word c,C_word *av) C_noret; C_noret_decl(f_25492) static void C_ccall f_25492(C_word c,C_word *av) C_noret; C_noret_decl(f_25509) static void C_ccall f_25509(C_word c,C_word *av) C_noret; C_noret_decl(f_25529) static void C_ccall f_25529(C_word c,C_word *av) C_noret; C_noret_decl(f_25533) static void C_ccall f_25533(C_word c,C_word *av) C_noret; C_noret_decl(f_25536) static void C_ccall f_25536(C_word c,C_word *av) C_noret; C_noret_decl(f_25542) static void C_fcall f_25542(C_word t0,C_word t1) C_noret; C_noret_decl(f_25587) static void C_ccall f_25587(C_word c,C_word *av) C_noret; C_noret_decl(f_25651) static void C_ccall f_25651(C_word c,C_word *av) C_noret; C_noret_decl(f_25668) static void C_ccall f_25668(C_word c,C_word *av) C_noret; C_noret_decl(f_25670) static void C_fcall f_25670(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25680) static void C_ccall f_25680(C_word c,C_word *av) C_noret; C_noret_decl(f_25686) static void C_ccall f_25686(C_word c,C_word *av) C_noret; C_noret_decl(f_25692) static void C_ccall f_25692(C_word c,C_word *av) C_noret; C_noret_decl(f_25708) static void C_ccall f_25708(C_word c,C_word *av) C_noret; C_noret_decl(f_25714) static void C_ccall f_25714(C_word c,C_word *av) C_noret; C_noret_decl(f_25736) static void C_ccall f_25736(C_word c,C_word *av) C_noret; C_noret_decl(f_25750) static void C_ccall f_25750(C_word c,C_word *av) C_noret; C_noret_decl(f_25767) static void C_ccall f_25767(C_word c,C_word *av) C_noret; C_noret_decl(f_25769) static void C_fcall f_25769(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25779) static void C_ccall f_25779(C_word c,C_word *av) C_noret; C_noret_decl(f_25785) static void C_ccall f_25785(C_word c,C_word *av) C_noret; C_noret_decl(f_25791) static void C_ccall f_25791(C_word c,C_word *av) C_noret; C_noret_decl(f_25807) static void C_ccall f_25807(C_word c,C_word *av) C_noret; C_noret_decl(f_25865) static void C_ccall f_25865(C_word c,C_word *av) C_noret; C_noret_decl(f_25891) static void C_fcall f_25891(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25893) static void C_ccall f_25893(C_word c,C_word *av) C_noret; C_noret_decl(f_25906) static void C_ccall f_25906(C_word c,C_word *av) C_noret; C_noret_decl(f_25925) static void C_ccall f_25925(C_word c,C_word *av) C_noret; C_noret_decl(f_25934) static void C_ccall f_25934(C_word c,C_word *av) C_noret; C_noret_decl(f_25940) static void C_ccall f_25940(C_word c,C_word *av) C_noret; C_noret_decl(f_25946) static void C_ccall f_25946(C_word c,C_word *av) C_noret; C_noret_decl(f_25952) static void C_ccall f_25952(C_word c,C_word *av) C_noret; C_noret_decl(f_26104) static void C_fcall f_26104(C_word t0,C_word t1) C_noret; C_noret_decl(f_26116) static void C_fcall f_26116(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_26166) static void C_fcall f_26166(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_26184) static void C_ccall f_26184(C_word c,C_word *av) C_noret; C_noret_decl(f_26195) static void C_fcall f_26195(C_word t0,C_word t1) C_noret; C_noret_decl(f_26201) static void C_ccall f_26201(C_word c,C_word *av) C_noret; C_noret_decl(f_26213) static void C_ccall f_26213(C_word c,C_word *av) C_noret; C_noret_decl(f_26215) static void C_fcall f_26215(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26223) static void C_fcall f_26223(C_word t0,C_word t1) C_noret; C_noret_decl(f_26225) static void C_fcall f_26225(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_26228) static void C_ccall f_26228(C_word c,C_word *av) C_noret; C_noret_decl(f_26254) static void C_ccall f_26254(C_word c,C_word *av) C_noret; C_noret_decl(f_26275) static void C_ccall f_26275(C_word c,C_word *av) C_noret; C_noret_decl(f_26279) static void C_ccall f_26279(C_word c,C_word *av) C_noret; C_noret_decl(f_26292) static void C_ccall f_26292(C_word c,C_word *av) C_noret; C_noret_decl(f_26294) static void C_fcall f_26294(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26319) static void C_ccall f_26319(C_word c,C_word *av) C_noret; C_noret_decl(f_26343) static void C_ccall f_26343(C_word c,C_word *av) C_noret; C_noret_decl(f_26356) static void C_ccall f_26356(C_word c,C_word *av) C_noret; C_noret_decl(f_26358) static void C_fcall f_26358(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26383) static void C_ccall f_26383(C_word c,C_word *av) C_noret; C_noret_decl(f_26405) static void C_ccall f_26405(C_word c,C_word *av) C_noret; C_noret_decl(f_26413) static void C_ccall f_26413(C_word c,C_word *av) C_noret; C_noret_decl(f_26426) static void C_ccall f_26426(C_word c,C_word *av) C_noret; C_noret_decl(f_26428) static void C_fcall f_26428(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26453) static void C_ccall f_26453(C_word c,C_word *av) C_noret; C_noret_decl(f_26473) static void C_ccall f_26473(C_word c,C_word *av) C_noret; C_noret_decl(f_26483) static void C_ccall f_26483(C_word c,C_word *av) C_noret; C_noret_decl(f_26498) static void C_ccall f_26498(C_word c,C_word *av) C_noret; C_noret_decl(f_26511) static void C_ccall f_26511(C_word c,C_word *av) C_noret; C_noret_decl(f_26513) static void C_fcall f_26513(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26538) static void C_ccall f_26538(C_word c,C_word *av) C_noret; C_noret_decl(f_26660) static void C_ccall f_26660(C_word c,C_word *av) C_noret; C_noret_decl(f_26662) static void C_ccall f_26662(C_word c,C_word *av) C_noret; C_noret_decl(f_26680) static void C_ccall f_26680(C_word c,C_word *av) C_noret; C_noret_decl(f_26682) static void C_fcall f_26682(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26715) static void C_fcall f_26715(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_26767) static void C_fcall f_26767(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26775) static void C_fcall f_26775(C_word t0,C_word t1) C_noret; C_noret_decl(f_26803) static void C_ccall f_26803(C_word c,C_word *av) C_noret; C_noret_decl(f_26811) static void C_ccall f_26811(C_word c,C_word *av) C_noret; C_noret_decl(f_26815) static void C_ccall f_26815(C_word c,C_word *av) C_noret; C_noret_decl(f_26817) static void C_fcall f_26817(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_26831) static void C_ccall f_26831(C_word c,C_word *av) C_noret; C_noret_decl(f_26835) static void C_ccall f_26835(C_word c,C_word *av) C_noret; C_noret_decl(f_26839) static void C_ccall f_26839(C_word c,C_word *av) C_noret; C_noret_decl(f_26852) static void C_ccall f_26852(C_word c,C_word *av) C_noret; C_noret_decl(f_26856) static void C_ccall f_26856(C_word c,C_word *av) C_noret; C_noret_decl(f_26860) static void C_ccall f_26860(C_word c,C_word *av) C_noret; C_noret_decl(f_26929) static void C_ccall f_26929(C_word c,C_word *av) C_noret; C_noret_decl(f_26944) static void C_ccall f_26944(C_word c,C_word *av) C_noret; C_noret_decl(f_26998) static void C_fcall f_26998(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_27006) static void C_ccall f_27006(C_word c,C_word *av) C_noret; C_noret_decl(f_27010) static void C_ccall f_27010(C_word c,C_word *av) C_noret; C_noret_decl(f_27012) static void C_fcall f_27012(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_27026) static void C_ccall f_27026(C_word c,C_word *av) C_noret; C_noret_decl(f_27039) static void C_ccall f_27039(C_word c,C_word *av) C_noret; C_noret_decl(f_27043) static void C_ccall f_27043(C_word c,C_word *av) C_noret; C_noret_decl(f_27081) static void C_fcall f_27081(C_word t0,C_word t1) C_noret; C_noret_decl(f_27089) static void C_fcall f_27089(C_word t0,C_word t1) C_noret; C_noret_decl(f_27092) static void C_fcall f_27092(C_word t0,C_word t1) C_noret; C_noret_decl(f_27099) static void C_fcall f_27099(C_word t0,C_word t1) C_noret; C_noret_decl(f_27194) static void C_ccall f_27194(C_word c,C_word *av) C_noret; C_noret_decl(f_27202) static void C_ccall f_27202(C_word c,C_word *av) C_noret; C_noret_decl(f_27206) static void C_ccall f_27206(C_word c,C_word *av) C_noret; C_noret_decl(f_27208) static void C_fcall f_27208(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_27225) static void C_ccall f_27225(C_word c,C_word *av) C_noret; C_noret_decl(f_27263) static void C_fcall f_27263(C_word t0,C_word t1) C_noret; C_noret_decl(f_27320) static void C_fcall f_27320(C_word t0,C_word t1) C_noret; C_noret_decl(f_27328) static void C_ccall f_27328(C_word c,C_word *av) C_noret; C_noret_decl(f_27330) static void C_fcall f_27330(C_word t0,C_word t1) C_noret; C_noret_decl(f_27338) static void C_ccall f_27338(C_word c,C_word *av) C_noret; C_noret_decl(f_27340) static void C_fcall f_27340(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_27354) static void C_ccall f_27354(C_word c,C_word *av) C_noret; C_noret_decl(f_27360) static void C_fcall f_27360(C_word t0,C_word t1) C_noret; C_noret_decl(f_27369) static void C_ccall f_27369(C_word c,C_word *av) C_noret; C_noret_decl(f_27373) static void C_ccall f_27373(C_word c,C_word *av) C_noret; C_noret_decl(f_27377) static void C_ccall f_27377(C_word c,C_word *av) C_noret; C_noret_decl(f_27381) static void C_ccall f_27381(C_word c,C_word *av) C_noret; C_noret_decl(f_27405) static void C_ccall f_27405(C_word c,C_word *av) C_noret; C_noret_decl(f_27415) static void C_ccall f_27415(C_word c,C_word *av) C_noret; C_noret_decl(f_27424) static void C_ccall f_27424(C_word c,C_word *av) C_noret; C_noret_decl(f_27428) static void C_ccall f_27428(C_word c,C_word *av) C_noret; C_noret_decl(f_27432) static void C_ccall f_27432(C_word c,C_word *av) C_noret; C_noret_decl(f_27436) static void C_ccall f_27436(C_word c,C_word *av) C_noret; C_noret_decl(f_27446) static void C_ccall f_27446(C_word c,C_word *av) C_noret; C_noret_decl(f_27461) static void C_ccall f_27461(C_word c,C_word *av) C_noret; C_noret_decl(f_27465) static void C_ccall f_27465(C_word c,C_word *av) C_noret; C_noret_decl(f_27468) static void C_ccall f_27468(C_word c,C_word *av) C_noret; C_noret_decl(f_27471) static void C_ccall f_27471(C_word c,C_word *av) C_noret; C_noret_decl(f_27474) static void C_fcall f_27474(C_word t0,C_word t1) C_noret; C_noret_decl(f_27480) static void C_fcall f_27480(C_word t0,C_word t1) C_noret; C_noret_decl(f_27483) static void C_fcall f_27483(C_word t0,C_word t1) C_noret; C_noret_decl(f_27492) static void C_ccall f_27492(C_word c,C_word *av) C_noret; C_noret_decl(f_27495) static void C_ccall f_27495(C_word c,C_word *av) C_noret; C_noret_decl(f_27503) static void C_fcall f_27503(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_27516) static void C_ccall f_27516(C_word c,C_word *av) C_noret; C_noret_decl(f_27552) static void C_ccall f_27552(C_word c,C_word *av) C_noret; C_noret_decl(f_27555) static void C_ccall f_27555(C_word c,C_word *av) C_noret; C_noret_decl(f_27646) static void C_ccall f_27646(C_word c,C_word *av) C_noret; C_noret_decl(f_27663) static void C_ccall f_27663(C_word c,C_word *av) C_noret; C_noret_decl(f_27667) static void C_ccall f_27667(C_word c,C_word *av) C_noret; C_noret_decl(f_27668) static void C_ccall f_27668(C_word c,C_word *av) C_noret; C_noret_decl(f_27676) static void C_ccall f_27676(C_word c,C_word *av) C_noret; C_noret_decl(f_27691) static void C_ccall f_27691(C_word c,C_word *av) C_noret; C_noret_decl(f_27695) static void C_ccall f_27695(C_word c,C_word *av) C_noret; C_noret_decl(f_27698) static void C_ccall f_27698(C_word c,C_word *av) C_noret; C_noret_decl(f_27701) static void C_fcall f_27701(C_word t0,C_word t1) C_noret; C_noret_decl(f_27707) static void C_ccall f_27707(C_word c,C_word *av) C_noret; C_noret_decl(f_27713) static void C_ccall f_27713(C_word c,C_word *av) C_noret; C_noret_decl(f_27721) static void C_fcall f_27721(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_27734) static void C_ccall f_27734(C_word c,C_word *av) C_noret; C_noret_decl(f_27772) static void C_fcall f_27772(C_word t0,C_word t1) C_noret; C_noret_decl(f_27784) static void C_ccall f_27784(C_word c,C_word *av) C_noret; C_noret_decl(f_27794) static void C_ccall f_27794(C_word c,C_word *av) C_noret; C_noret_decl(f_27808) static void C_ccall f_27808(C_word c,C_word *av) C_noret; C_noret_decl(f_27811) static void C_ccall f_27811(C_word c,C_word *av) C_noret; C_noret_decl(f_27814) static void C_ccall f_27814(C_word c,C_word *av) C_noret; C_noret_decl(f_27848) static void C_fcall f_27848(C_word t0,C_word t1) C_noret; C_noret_decl(f_27866) static void C_ccall f_27866(C_word c,C_word *av) C_noret; C_noret_decl(f_27873) static void C_ccall f_27873(C_word c,C_word *av) C_noret; C_noret_decl(f_27877) static void C_ccall f_27877(C_word c,C_word *av) C_noret; C_noret_decl(f_27878) static void C_ccall f_27878(C_word c,C_word *av) C_noret; C_noret_decl(f_27886) static void C_ccall f_27886(C_word c,C_word *av) C_noret; C_noret_decl(f_27901) static void C_ccall f_27901(C_word c,C_word *av) C_noret; C_noret_decl(f_27905) static void C_ccall f_27905(C_word c,C_word *av) C_noret; C_noret_decl(f_27908) static void C_ccall f_27908(C_word c,C_word *av) C_noret; C_noret_decl(f_27922) static void C_ccall f_27922(C_word c,C_word *av) C_noret; C_noret_decl(f_27926) static void C_ccall f_27926(C_word c,C_word *av) C_noret; C_noret_decl(f_27930) static void C_ccall f_27930(C_word c,C_word *av) C_noret; C_noret_decl(f_27938) static void C_ccall f_27938(C_word c,C_word *av) C_noret; C_noret_decl(f_27980) static void C_ccall f_27980(C_word c,C_word *av) C_noret; C_noret_decl(f_27984) static void C_ccall f_27984(C_word c,C_word *av) C_noret; C_noret_decl(f_27989) static void C_ccall f_27989(C_word c,C_word *av) C_noret; C_noret_decl(f_28017) static void C_ccall f_28017(C_word c,C_word *av) C_noret; C_noret_decl(f_28031) static void C_ccall f_28031(C_word c,C_word *av) C_noret; C_noret_decl(f_28033) static void C_ccall f_28033(C_word c,C_word *av) C_noret; C_noret_decl(f_28054) static void C_ccall f_28054(C_word c,C_word *av) C_noret; C_noret_decl(f_28066) static void C_fcall f_28066(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28072) static void C_fcall f_28072(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_28099) static void C_ccall f_28099(C_word c,C_word *av) C_noret; C_noret_decl(f_28124) static void C_ccall f_28124(C_word c,C_word *av) C_noret; C_noret_decl(f_28150) static void C_ccall f_28150(C_word c,C_word *av) C_noret; C_noret_decl(f_28214) static void C_ccall f_28214(C_word c,C_word *av) C_noret; C_noret_decl(f_28246) static void C_fcall f_28246(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28276) static void C_ccall f_28276(C_word c,C_word *av) C_noret; C_noret_decl(f_28297) static void C_ccall f_28297(C_word c,C_word *av) C_noret; C_noret_decl(f_28301) static void C_ccall f_28301(C_word c,C_word *av) C_noret; C_noret_decl(f_28306) static void C_ccall f_28306(C_word c,C_word *av) C_noret; C_noret_decl(f_28314) static void C_ccall f_28314(C_word c,C_word *av) C_noret; C_noret_decl(f_28316) static void C_ccall f_28316(C_word c,C_word *av) C_noret; C_noret_decl(f_28332) static void C_ccall f_28332(C_word c,C_word *av) C_noret; C_noret_decl(f_28336) static void C_ccall f_28336(C_word c,C_word *av) C_noret; C_noret_decl(f_28339) static void C_fcall f_28339(C_word t0,C_word t1) C_noret; C_noret_decl(f_28342) static void C_fcall f_28342(C_word t0,C_word t1) C_noret; C_noret_decl(f_28347) static void C_ccall f_28347(C_word c,C_word *av) C_noret; C_noret_decl(f_28361) static void C_ccall f_28361(C_word c,C_word *av) C_noret; C_noret_decl(f_28405) static void C_ccall f_28405(C_word c,C_word *av) C_noret; C_noret_decl(f_28423) static void C_ccall f_28423(C_word c,C_word *av) C_noret; C_noret_decl(f_28457) static void C_ccall f_28457(C_word c,C_word *av) C_noret; C_noret_decl(f_28468) static void C_fcall f_28468(C_word t0,C_word t1) C_noret; C_noret_decl(f_28470) static void C_fcall f_28470(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28500) static void C_ccall f_28500(C_word c,C_word *av) C_noret; C_noret_decl(f_28508) static void C_ccall f_28508(C_word c,C_word *av) C_noret; C_noret_decl(f_28512) static void C_ccall f_28512(C_word c,C_word *av) C_noret; C_noret_decl(f_28514) static void C_fcall f_28514(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_28533) static void C_ccall f_28533(C_word c,C_word *av) C_noret; C_noret_decl(f_28557) static void C_ccall f_28557(C_word c,C_word *av) C_noret; C_noret_decl(f_28574) static void C_ccall f_28574(C_word c,C_word *av) C_noret; C_noret_decl(f_28581) static void C_ccall f_28581(C_word c,C_word *av) C_noret; C_noret_decl(f_28604) static void C_ccall f_28604(C_word c,C_word *av) C_noret; C_noret_decl(f_28625) static void C_ccall f_28625(C_word c,C_word *av) C_noret; C_noret_decl(f_28627) static void C_fcall f_28627(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28664) static void C_ccall f_28664(C_word c,C_word *av) C_noret; C_noret_decl(f_28694) static void C_ccall f_28694(C_word c,C_word *av) C_noret; C_noret_decl(f_28699) static void C_fcall f_28699(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_28711) static void C_fcall f_28711(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_28721) static void C_ccall f_28721(C_word c,C_word *av) C_noret; C_noret_decl(f_28731) static void C_ccall f_28731(C_word c,C_word *av) C_noret; C_noret_decl(f_28766) static void C_ccall f_28766(C_word c,C_word *av) C_noret; C_noret_decl(f_28774) static void C_ccall f_28774(C_word c,C_word *av) C_noret; C_noret_decl(f_28810) static void C_ccall f_28810(C_word c,C_word *av) C_noret; C_noret_decl(f_28824) static void C_fcall f_28824(C_word t0,C_word t1) C_noret; C_noret_decl(f_28828) static void C_ccall f_28828(C_word c,C_word *av) C_noret; C_noret_decl(f_28831) static void C_ccall f_28831(C_word c,C_word *av) C_noret; C_noret_decl(f_28836) static void C_fcall f_28836(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28846) static void C_ccall f_28846(C_word c,C_word *av) C_noret; C_noret_decl(f_28857) static void C_ccall f_28857(C_word c,C_word *av) C_noret; C_noret_decl(f_28860) static void C_ccall f_28860(C_word c,C_word *av) C_noret; C_noret_decl(f_28867) static void C_ccall f_28867(C_word c,C_word *av) C_noret; C_noret_decl(f_28879) static void C_ccall f_28879(C_word c,C_word *av) C_noret; C_noret_decl(f_28894) static void C_ccall f_28894(C_word c,C_word *av) C_noret; C_noret_decl(f_28904) static void C_ccall f_28904(C_word c,C_word *av) C_noret; C_noret_decl(f_28908) static void C_ccall f_28908(C_word c,C_word *av) C_noret; C_noret_decl(f_28911) static void C_ccall f_28911(C_word c,C_word *av) C_noret; C_noret_decl(f_28916) static void C_ccall f_28916(C_word c,C_word *av) C_noret; C_noret_decl(f_28939) static void C_fcall f_28939(C_word t0,C_word t1) C_noret; C_noret_decl(f_28942) static void C_ccall f_28942(C_word c,C_word *av) C_noret; C_noret_decl(f_28949) static void C_ccall f_28949(C_word c,C_word *av) C_noret; C_noret_decl(f_28954) static void C_fcall f_28954(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28964) static void C_ccall f_28964(C_word c,C_word *av) C_noret; C_noret_decl(f_28984) static void C_fcall f_28984(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28994) static void C_ccall f_28994(C_word c,C_word *av) C_noret; C_noret_decl(f_29036) static void C_ccall f_29036(C_word c,C_word *av) C_noret; C_noret_decl(f_29043) static void C_ccall f_29043(C_word c,C_word *av) C_noret; C_noret_decl(f_29048) static void C_fcall f_29048(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29058) static void C_ccall f_29058(C_word c,C_word *av) C_noret; C_noret_decl(f_29078) static void C_ccall f_29078(C_word c,C_word *av) C_noret; C_noret_decl(f_29081) static void C_ccall f_29081(C_word c,C_word *av) C_noret; C_noret_decl(f_29084) static void C_ccall f_29084(C_word c,C_word *av) C_noret; C_noret_decl(f_29093) static void C_ccall f_29093(C_word c,C_word *av) C_noret; C_noret_decl(f_29098) static void C_fcall f_29098(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29108) static void C_ccall f_29108(C_word c,C_word *av) C_noret; C_noret_decl(f_29132) static void C_ccall f_29132(C_word c,C_word *av) C_noret; C_noret_decl(f_29135) static void C_ccall f_29135(C_word c,C_word *av) C_noret; C_noret_decl(f_29136) static void C_fcall f_29136(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29140) static void C_ccall f_29140(C_word c,C_word *av) C_noret; C_noret_decl(f_29152) static void C_ccall f_29152(C_word c,C_word *av) C_noret; C_noret_decl(f_29157) static void C_fcall f_29157(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29167) static void C_ccall f_29167(C_word c,C_word *av) C_noret; C_noret_decl(f_29191) static void C_fcall f_29191(C_word t0,C_word t1) C_noret; C_noret_decl(f_29194) static void C_ccall f_29194(C_word c,C_word *av) C_noret; C_noret_decl(f_29205) static void C_ccall f_29205(C_word c,C_word *av) C_noret; C_noret_decl(f_29212) static void C_ccall f_29212(C_word c,C_word *av) C_noret; C_noret_decl(f_29217) static void C_fcall f_29217(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29227) static void C_ccall f_29227(C_word c,C_word *av) C_noret; C_noret_decl(f_29261) static void C_fcall f_29261(C_word t0,C_word t1) C_noret; C_noret_decl(f_29264) static void C_ccall f_29264(C_word c,C_word *av) C_noret; C_noret_decl(f_29267) static void C_ccall f_29267(C_word c,C_word *av) C_noret; C_noret_decl(f_29274) static void C_ccall f_29274(C_word c,C_word *av) C_noret; C_noret_decl(f_29278) static void C_ccall f_29278(C_word c,C_word *av) C_noret; C_noret_decl(f_29291) static void C_ccall f_29291(C_word c,C_word *av) C_noret; C_noret_decl(f_29304) static void C_ccall f_29304(C_word c,C_word *av) C_noret; C_noret_decl(f_29307) static void C_ccall f_29307(C_word c,C_word *av) C_noret; C_noret_decl(f_29314) static void C_ccall f_29314(C_word c,C_word *av) C_noret; C_noret_decl(f_29325) static void C_fcall f_29325(C_word t0,C_word t1) C_noret; C_noret_decl(f_29334) static void C_fcall f_29334(C_word t0,C_word t1) C_noret; C_noret_decl(f_29337) static void C_ccall f_29337(C_word c,C_word *av) C_noret; C_noret_decl(f_29340) static void C_ccall f_29340(C_word c,C_word *av) C_noret; C_noret_decl(f_29347) static void C_ccall f_29347(C_word c,C_word *av) C_noret; C_noret_decl(f_29371) static void C_ccall f_29371(C_word c,C_word *av) C_noret; C_noret_decl(f_29408) static void C_ccall f_29408(C_word c,C_word *av) C_noret; C_noret_decl(f_29411) static void C_ccall f_29411(C_word c,C_word *av) C_noret; C_noret_decl(f_29414) static void C_ccall f_29414(C_word c,C_word *av) C_noret; C_noret_decl(f_29421) static void C_ccall f_29421(C_word c,C_word *av) C_noret; C_noret_decl(f_29426) static void C_fcall f_29426(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29436) static void C_ccall f_29436(C_word c,C_word *av) C_noret; C_noret_decl(f_29472) static void C_ccall f_29472(C_word c,C_word *av) C_noret; C_noret_decl(f_29636) static void C_ccall f_29636(C_word c,C_word *av) C_noret; C_noret_decl(f_29649) static void C_ccall f_29649(C_word c,C_word *av) C_noret; C_noret_decl(f_29658) static void C_ccall f_29658(C_word c,C_word *av) C_noret; C_noret_decl(f_29669) static void C_ccall f_29669(C_word c,C_word *av) C_noret; C_noret_decl(f_29673) static void C_ccall f_29673(C_word c,C_word *av) C_noret; C_noret_decl(f_29675) static void C_fcall f_29675(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_29706) static void C_ccall f_29706(C_word c,C_word *av) C_noret; C_noret_decl(f_29753) static void C_ccall f_29753(C_word c,C_word *av) C_noret; C_noret_decl(f_29773) static void C_ccall f_29773(C_word c,C_word *av) C_noret; C_noret_decl(f_29783) static void C_fcall f_29783(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_29810) static void C_ccall f_29810(C_word c,C_word *av) C_noret; C_noret_decl(f_29832) static void C_fcall f_29832(C_word t0,C_word t1) C_noret; C_noret_decl(f_29859) static void C_fcall f_29859(C_word t0,C_word t1) C_noret; C_noret_decl(f_29934) static void C_ccall f_29934(C_word c,C_word *av) C_noret; C_noret_decl(f_30399) static void C_ccall f_30399(C_word c,C_word *av) C_noret; C_noret_decl(f_30561) static void C_ccall f_30561(C_word c,C_word *av) C_noret; C_noret_decl(f_30564) static void C_ccall f_30564(C_word c,C_word *av) C_noret; C_noret_decl(f_30598) static void C_ccall f_30598(C_word c,C_word *av) C_noret; C_noret_decl(f_30602) static void C_ccall f_30602(C_word c,C_word *av) C_noret; C_noret_decl(f_30605) static void C_ccall f_30605(C_word c,C_word *av) C_noret; C_noret_decl(f_30608) static void C_ccall f_30608(C_word c,C_word *av) C_noret; C_noret_decl(f_30611) static void C_ccall f_30611(C_word c,C_word *av) C_noret; C_noret_decl(f_30614) static void C_ccall f_30614(C_word c,C_word *av) C_noret; C_noret_decl(f_7425) static void C_ccall f_7425(C_word c,C_word *av) C_noret; C_noret_decl(f_7428) static void C_ccall f_7428(C_word c,C_word *av) C_noret; C_noret_decl(f_7430) static void C_fcall f_7430(C_word t0,C_word t1) C_noret; C_noret_decl(f_7434) static void C_ccall f_7434(C_word c,C_word *av) C_noret; C_noret_decl(f_7437) static void C_ccall f_7437(C_word c,C_word *av) C_noret; C_noret_decl(f_7443) static void C_ccall f_7443(C_word c,C_word *av) C_noret; C_noret_decl(f_7485) static void C_ccall f_7485(C_word c,C_word *av) C_noret; C_noret_decl(f_7503) static void C_ccall f_7503(C_word c,C_word *av) C_noret; C_noret_decl(f_7512) static void C_fcall f_7512(C_word t0,C_word t1) C_noret; C_noret_decl(f_7520) static void C_ccall f_7520(C_word c,C_word *av) C_noret; C_noret_decl(f_7533) static void C_ccall f_7533(C_word c,C_word *av) C_noret; C_noret_decl(f_7535) static void C_fcall f_7535(C_word t0,C_word t1) C_noret; C_noret_decl(f_7542) static void C_ccall f_7542(C_word c,C_word *av) C_noret; C_noret_decl(f_7544) static void C_fcall f_7544(C_word t0,C_word t1) C_noret; C_noret_decl(f_7558) static void C_ccall f_7558(C_word c,C_word *av) C_noret; C_noret_decl(f_7576) static void C_ccall f_7576(C_word c,C_word *av) C_noret; C_noret_decl(f_7582) static void C_ccall f_7582(C_word c,C_word *av) C_noret; C_noret_decl(f_7607) static void C_ccall f_7607(C_word c,C_word *av) C_noret; C_noret_decl(f_7653) static void C_ccall f_7653(C_word c,C_word *av) C_noret; C_noret_decl(f_7666) static void C_ccall f_7666(C_word c,C_word *av) C_noret; C_noret_decl(f_7668) static void C_ccall f_7668(C_word c,C_word *av) C_noret; C_noret_decl(f_7672) static void C_ccall f_7672(C_word c,C_word *av) C_noret; C_noret_decl(f_7693) static void C_ccall f_7693(C_word c,C_word *av) C_noret; C_noret_decl(f_7697) static void C_ccall f_7697(C_word c,C_word *av) C_noret; C_noret_decl(f_7722) static void C_ccall f_7722(C_word c,C_word *av) C_noret; C_noret_decl(f_7726) static void C_ccall f_7726(C_word c,C_word *av) C_noret; C_noret_decl(f_7751) static void C_ccall f_7751(C_word c,C_word *av) C_noret; C_noret_decl(f_7755) static void C_ccall f_7755(C_word c,C_word *av) C_noret; C_noret_decl(f_7844) static void C_fcall f_7844(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7912) static void C_fcall f_7912(C_word t0,C_word t1) C_noret; C_noret_decl(f_7954) static void C_ccall f_7954(C_word c,C_word *av) C_noret; C_noret_decl(f_7956) static void C_fcall f_7956(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8026) static void C_ccall f_8026(C_word c,C_word *av) C_noret; C_noret_decl(f_8028) static void C_ccall f_8028(C_word c,C_word *av) C_noret; C_noret_decl(f_8032) static void C_ccall f_8032(C_word c,C_word *av) C_noret; C_noret_decl(f_8089) static void C_ccall f_8089(C_word c,C_word *av) C_noret; C_noret_decl(f_8091) static void C_ccall f_8091(C_word c,C_word *av) C_noret; C_noret_decl(f_8095) static void C_ccall f_8095(C_word c,C_word *av) C_noret; C_noret_decl(f_8172) static void C_ccall f_8172(C_word c,C_word *av) C_noret; C_noret_decl(f_8176) static void C_ccall f_8176(C_word c,C_word *av) C_noret; C_noret_decl(f_8262) static void C_ccall f_8262(C_word c,C_word *av) C_noret; C_noret_decl(f_8266) static void C_fcall f_8266(C_word t0,C_word t1) C_noret; C_noret_decl(f_8272) static void C_fcall f_8272(C_word t0,C_word t1) C_noret; C_noret_decl(f_8296) static void C_ccall f_8296(C_word c,C_word *av) C_noret; C_noret_decl(f_8302) static void C_fcall f_8302(C_word t0,C_word t1) C_noret; C_noret_decl(f_8336) static void C_ccall f_8336(C_word c,C_word *av) C_noret; C_noret_decl(f_8350) static void C_ccall f_8350(C_word c,C_word *av) C_noret; C_noret_decl(f_8357) static void C_ccall f_8357(C_word c,C_word *av) C_noret; C_noret_decl(f_8363) static void C_fcall f_8363(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8381) static void C_ccall f_8381(C_word c,C_word *av) C_noret; C_noret_decl(f_8385) static void C_ccall f_8385(C_word c,C_word *av) C_noret; C_noret_decl(f_8389) static void C_ccall f_8389(C_word c,C_word *av) C_noret; C_noret_decl(f_8396) static void C_ccall f_8396(C_word c,C_word *av) C_noret; C_noret_decl(f_8404) static void C_ccall f_8404(C_word c,C_word *av) C_noret; C_noret_decl(f_8408) static void C_ccall f_8408(C_word c,C_word *av) C_noret; C_noret_decl(f_8412) static void C_ccall f_8412(C_word c,C_word *av) C_noret; C_noret_decl(f_8416) static void C_ccall f_8416(C_word c,C_word *av) C_noret; C_noret_decl(f_8420) static void C_ccall f_8420(C_word c,C_word *av) C_noret; C_noret_decl(f_8424) static void C_ccall f_8424(C_word c,C_word *av) C_noret; C_noret_decl(f_8428) static void C_ccall f_8428(C_word c,C_word *av) C_noret; C_noret_decl(f_8437) static void C_ccall f_8437(C_word c,C_word *av) C_noret; C_noret_decl(f_8445) static void C_ccall f_8445(C_word c,C_word *av) C_noret; C_noret_decl(f_8454) static void C_ccall f_8454(C_word c,C_word *av) C_noret; C_noret_decl(f_8512) static void C_fcall f_8512(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8516) static void C_ccall f_8516(C_word c,C_word *av) C_noret; C_noret_decl(f_8530) static void C_fcall f_8530(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8534) static void C_ccall f_8534(C_word c,C_word *av) C_noret; C_noret_decl(f_8547) static void C_ccall f_8547(C_word c,C_word *av) C_noret; C_noret_decl(f_8558) static void C_ccall f_8558(C_word c,C_word *av) C_noret; C_noret_decl(f_8560) static void C_fcall f_8560(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8567) static void C_ccall f_8567(C_word c,C_word *av) C_noret; C_noret_decl(f_8580) static void C_ccall f_8580(C_word c,C_word *av) C_noret; C_noret_decl(f_8587) static void C_ccall f_8587(C_word c,C_word *av) C_noret; C_noret_decl(f_8626) static void C_ccall f_8626(C_word c,C_word *av) C_noret; C_noret_decl(f_8653) static void C_ccall f_8653(C_word c,C_word *av) C_noret; C_noret_decl(f_8681) static void C_ccall f_8681(C_word c,C_word *av) C_noret; C_noret_decl(f_8692) static void C_fcall f_8692(C_word t0,C_word t1) C_noret; C_noret_decl(f_8694) static void C_fcall f_8694(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8737) static void C_fcall f_8737(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8794) static void C_fcall f_8794(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8807) static void C_ccall f_8807(C_word c,C_word *av) C_noret; C_noret_decl(f_8832) static void C_fcall f_8832(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8835) static void C_fcall f_8835(C_word t0,C_word t1) C_noret; C_noret_decl(f_8843) static void C_ccall f_8843(C_word c,C_word *av) C_noret; C_noret_decl(f_8856) static void C_ccall f_8856(C_word c,C_word *av) C_noret; C_noret_decl(f_8875) static void C_ccall f_8875(C_word c,C_word *av) C_noret; C_noret_decl(f_8972) static void C_fcall f_8972(C_word t0,C_word t1) C_noret; C_noret_decl(f_8980) static void C_ccall f_8980(C_word c,C_word *av) C_noret; C_noret_decl(f_8982) static void C_ccall f_8982(C_word c,C_word *av) C_noret; C_noret_decl(f_8996) static void C_ccall f_8996(C_word c,C_word *av) C_noret; C_noret_decl(f_9001) static C_word C_fcall f_9001(C_word t0,C_word t1,C_word t2); C_noret_decl(f_9022) static void C_fcall f_9022(C_word t0,C_word t1) C_noret; C_noret_decl(f_9038) static void C_fcall f_9038(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9059) static void C_fcall f_9059(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9065) static void C_fcall f_9065(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9078) static void C_ccall f_9078(C_word c,C_word *av) C_noret; C_noret_decl(f_9120) static void C_fcall f_9120(C_word t0,C_word t1) C_noret; C_noret_decl(f_9135) static C_word C_fcall f_9135(C_word t0); C_noret_decl(f_9158) static void C_fcall f_9158(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9174) static void C_fcall f_9174(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9187) static void C_ccall f_9187(C_word c,C_word *av) C_noret; C_noret_decl(f_9201) static void C_fcall f_9201(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9219) static void C_fcall f_9219(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9235) static void C_ccall f_9235(C_word c,C_word *av) C_noret; C_noret_decl(f_9246) static void C_fcall f_9246(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9252) static void C_fcall f_9252(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9270) static void C_ccall f_9270(C_word c,C_word *av) C_noret; C_noret_decl(f_9576) static void C_ccall f_9576(C_word c,C_word *av) C_noret; C_noret_decl(f_9585) static void C_ccall f_9585(C_word c,C_word *av) C_noret; C_noret_decl(f_9603) static void C_fcall f_9603(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9610) static void C_fcall f_9610(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9637) static void C_fcall f_9637(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9643) static void C_ccall f_9643(C_word c,C_word *av) C_noret; C_noret_decl(f_9657) static void C_ccall f_9657(C_word c,C_word *av) C_noret; C_noret_decl(f_9677) static void C_ccall f_9677(C_word c,C_word *av) C_noret; C_noret_decl(f_9683) static void C_ccall f_9683(C_word c,C_word *av) C_noret; C_noret_decl(f_9700) static void C_ccall f_9700(C_word c,C_word *av) C_noret; C_noret_decl(f_9704) static void C_ccall f_9704(C_word c,C_word *av) C_noret; C_noret_decl(f_9751) static void C_fcall f_9751(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9761) static void C_fcall f_9761(C_word t0,C_word t1) C_noret; C_noret_decl(f_9800) static void C_ccall f_9800(C_word c,C_word *av) C_noret; C_noret_decl(f_9828) static void C_fcall f_9828(C_word t0,C_word t1) C_noret; C_noret_decl(f_9834) static void C_fcall f_9834(C_word t0,C_word t1) C_noret; C_noret_decl(f_9839) static void C_ccall f_9839(C_word c,C_word *av) C_noret; C_noret_decl(f_9885) static void C_fcall f_9885(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_9888) static void C_fcall f_9888(C_word t0,C_word t1) C_noret; C_noret_decl(f_9902) static void C_ccall f_9902(C_word c,C_word *av) C_noret; C_noret_decl(f_9927) static void C_ccall f_9927(C_word c,C_word *av) C_noret; C_noret_decl(f_9934) static void C_ccall f_9934(C_word c,C_word *av) C_noret; C_noret_decl(f_9953) static void C_ccall f_9953(C_word c,C_word *av) C_noret; C_noret_decl(f_9986) static void C_ccall f_9986(C_word c,C_word *av) C_noret; C_noret_decl(C_irregex_toplevel) C_externexport void C_ccall C_irregex_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_10104) static void C_ccall trf_10104(C_word c,C_word *av) C_noret; static void C_ccall trf_10104(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10104(t0,t1,t2);} C_noret_decl(trf_10114) static void C_ccall trf_10114(C_word c,C_word *av) C_noret; static void C_ccall trf_10114(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10114(t0,t1);} C_noret_decl(trf_10196) static void C_ccall trf_10196(C_word c,C_word *av) C_noret; static void C_ccall trf_10196(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10196(t0,t1);} C_noret_decl(trf_10202) static void C_ccall trf_10202(C_word c,C_word *av) C_noret; static void C_ccall trf_10202(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10202(t0,t1,t2,t3);} C_noret_decl(trf_10231) static void C_ccall trf_10231(C_word c,C_word *av) C_noret; static void C_ccall trf_10231(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10231(t0,t1);} C_noret_decl(trf_10346) static void C_ccall trf_10346(C_word c,C_word *av) C_noret; static void C_ccall trf_10346(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_10346(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_10371) static void C_ccall trf_10371(C_word c,C_word *av) C_noret; static void C_ccall trf_10371(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10371(t0,t1,t2);} C_noret_decl(trf_10393) static void C_ccall trf_10393(C_word c,C_word *av) C_noret; static void C_ccall trf_10393(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10393(t0,t1,t2);} C_noret_decl(trf_10427) static void C_ccall trf_10427(C_word c,C_word *av) C_noret; static void C_ccall trf_10427(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10427(t0,t1);} C_noret_decl(trf_10447) static void C_ccall trf_10447(C_word c,C_word *av) C_noret; static void C_ccall trf_10447(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10447(t0,t1);} C_noret_decl(trf_10504) static void C_ccall trf_10504(C_word c,C_word *av) C_noret; static void C_ccall trf_10504(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10504(t0,t1);} C_noret_decl(trf_10519) static void C_ccall trf_10519(C_word c,C_word *av) C_noret; static void C_ccall trf_10519(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10519(t0,t1);} C_noret_decl(trf_10526) static void C_ccall trf_10526(C_word c,C_word *av) C_noret; static void C_ccall trf_10526(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10526(t0,t1);} C_noret_decl(trf_10529) static void C_ccall trf_10529(C_word c,C_word *av) C_noret; static void C_ccall trf_10529(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10529(t0,t1);} C_noret_decl(trf_10537) static void C_ccall trf_10537(C_word c,C_word *av) C_noret; static void C_ccall trf_10537(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_10537(t0,t1,t2,t3,t4);} C_noret_decl(trf_10716) static void C_ccall trf_10716(C_word c,C_word *av) C_noret; static void C_ccall trf_10716(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10716(t0,t1);} C_noret_decl(trf_10752) static void C_ccall trf_10752(C_word c,C_word *av) C_noret; static void C_ccall trf_10752(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10752(t0,t1);} C_noret_decl(trf_10853) static void C_ccall trf_10853(C_word c,C_word *av) C_noret; static void C_ccall trf_10853(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10853(t0,t1);} C_noret_decl(trf_11116) static void C_ccall trf_11116(C_word c,C_word *av) C_noret; static void C_ccall trf_11116(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11116(t0,t1);} C_noret_decl(trf_11573) static void C_ccall trf_11573(C_word c,C_word *av) C_noret; static void C_ccall trf_11573(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_11573(t0,t1,t2,t3,t4);} C_noret_decl(trf_11576) static void C_ccall trf_11576(C_word c,C_word *av) C_noret; static void C_ccall trf_11576(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11576(t0,t1,t2);} C_noret_decl(trf_11909) static void C_ccall trf_11909(C_word c,C_word *av) C_noret; static void C_ccall trf_11909(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11909(t0,t1);} C_noret_decl(trf_11952) static void C_ccall trf_11952(C_word c,C_word *av) C_noret; static void C_ccall trf_11952(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11952(t0,t1);} C_noret_decl(trf_12559) static void C_ccall trf_12559(C_word c,C_word *av) C_noret; static void C_ccall trf_12559(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12559(t0,t1);} C_noret_decl(trf_12639) static void C_ccall trf_12639(C_word c,C_word *av) C_noret; static void C_ccall trf_12639(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12639(t0,t1,t2);} C_noret_decl(trf_13159) static void C_ccall trf_13159(C_word c,C_word *av) C_noret; static void C_ccall trf_13159(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13159(t0,t1,t2,t3);} C_noret_decl(trf_13263) static void C_ccall trf_13263(C_word c,C_word *av) C_noret; static void C_ccall trf_13263(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13263(t0,t1);} C_noret_decl(trf_13268) static void C_ccall trf_13268(C_word c,C_word *av) C_noret; static void C_ccall trf_13268(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_13268(t0,t1,t2,t3,t4);} C_noret_decl(trf_13341) static void C_ccall trf_13341(C_word c,C_word *av) C_noret; static void C_ccall trf_13341(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13341(t0,t1);} C_noret_decl(trf_13418) static void C_ccall trf_13418(C_word c,C_word *av) C_noret; static void C_ccall trf_13418(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13418(t0,t1);} C_noret_decl(trf_13430) static void C_ccall trf_13430(C_word c,C_word *av) C_noret; static void C_ccall trf_13430(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13430(t0,t1);} C_noret_decl(trf_13490) static void C_ccall trf_13490(C_word c,C_word *av) C_noret; static void C_ccall trf_13490(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13490(t0,t1);} C_noret_decl(trf_13531) static void C_ccall trf_13531(C_word c,C_word *av) C_noret; static void C_ccall trf_13531(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13531(t0,t1);} C_noret_decl(trf_13552) static void C_ccall trf_13552(C_word c,C_word *av) C_noret; static void C_ccall trf_13552(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13552(t0,t1);} C_noret_decl(trf_13665) static void C_ccall trf_13665(C_word c,C_word *av) C_noret; static void C_ccall trf_13665(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13665(t0,t1);} C_noret_decl(trf_13782) static void C_ccall trf_13782(C_word c,C_word *av) C_noret; static void C_ccall trf_13782(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13782(t0,t1);} C_noret_decl(trf_13893) static void C_ccall trf_13893(C_word c,C_word *av) C_noret; static void C_ccall trf_13893(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13893(t0,t1,t2,t3);} C_noret_decl(trf_14088) static void C_ccall trf_14088(C_word c,C_word *av) C_noret; static void C_ccall trf_14088(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14088(t0,t1,t2);} C_noret_decl(trf_14126) static void C_ccall trf_14126(C_word c,C_word *av) C_noret; static void C_ccall trf_14126(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14126(t0,t1);} C_noret_decl(trf_14202) static void C_ccall trf_14202(C_word c,C_word *av) C_noret; static void C_ccall trf_14202(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14202(t0,t1);} C_noret_decl(trf_14372) static void C_ccall trf_14372(C_word c,C_word *av) C_noret; static void C_ccall trf_14372(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14372(t0,t1,t2,t3);} C_noret_decl(trf_14478) static void C_ccall trf_14478(C_word c,C_word *av) C_noret; static void C_ccall trf_14478(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_14478(t0,t1,t2,t3,t4);} C_noret_decl(trf_14544) static void C_ccall trf_14544(C_word c,C_word *av) C_noret; static void C_ccall trf_14544(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14544(t0,t1,t2);} C_noret_decl(trf_14580) static void C_ccall trf_14580(C_word c,C_word *av) C_noret; static void C_ccall trf_14580(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14580(t0,t1,t2);} C_noret_decl(trf_14616) static void C_ccall trf_14616(C_word c,C_word *av) C_noret; static void C_ccall trf_14616(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14616(t0,t1);} C_noret_decl(trf_14701) static void C_ccall trf_14701(C_word c,C_word *av) C_noret; static void C_ccall trf_14701(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14701(t0,t1,t2);} C_noret_decl(trf_14755) static void C_ccall trf_14755(C_word c,C_word *av) C_noret; static void C_ccall trf_14755(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14755(t0,t1);} C_noret_decl(trf_14840) static void C_ccall trf_14840(C_word c,C_word *av) C_noret; static void C_ccall trf_14840(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14840(t0,t1,t2);} C_noret_decl(trf_14914) static void C_ccall trf_14914(C_word c,C_word *av) C_noret; static void C_ccall trf_14914(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14914(t0,t1,t2);} C_noret_decl(trf_14946) static void C_ccall trf_14946(C_word c,C_word *av) C_noret; static void C_ccall trf_14946(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14946(t0,t1,t2);} C_noret_decl(trf_15049) static void C_ccall trf_15049(C_word c,C_word *av) C_noret; static void C_ccall trf_15049(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15049(t0,t1,t2);} C_noret_decl(trf_15117) static void C_ccall trf_15117(C_word c,C_word *av) C_noret; static void C_ccall trf_15117(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15117(t0,t1,t2);} C_noret_decl(trf_15187) static void C_ccall trf_15187(C_word c,C_word *av) C_noret; static void C_ccall trf_15187(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15187(t0,t1,t2);} C_noret_decl(trf_15278) static void C_ccall trf_15278(C_word c,C_word *av) C_noret; static void C_ccall trf_15278(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15278(t0,t1,t2);} C_noret_decl(trf_15333) static void C_ccall trf_15333(C_word c,C_word *av) C_noret; static void C_ccall trf_15333(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15333(t0,t1);} C_noret_decl(trf_15343) static void C_ccall trf_15343(C_word c,C_word *av) C_noret; static void C_ccall trf_15343(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_15343(t0,t1,t2,t3,t4);} C_noret_decl(trf_15388) static void C_ccall trf_15388(C_word c,C_word *av) C_noret; static void C_ccall trf_15388(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15388(t0,t1);} C_noret_decl(trf_15455) static void C_ccall trf_15455(C_word c,C_word *av) C_noret; static void C_ccall trf_15455(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_15455(t0,t1,t2,t3,t4);} C_noret_decl(trf_15515) static void C_ccall trf_15515(C_word c,C_word *av) C_noret; static void C_ccall trf_15515(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15515(t0,t1,t2);} C_noret_decl(trf_15528) static void C_ccall trf_15528(C_word c,C_word *av) C_noret; static void C_ccall trf_15528(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15528(t0,t1,t2);} C_noret_decl(trf_15576) static void C_ccall trf_15576(C_word c,C_word *av) C_noret; static void C_ccall trf_15576(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15576(t0,t1,t2);} C_noret_decl(trf_15589) static void C_ccall trf_15589(C_word c,C_word *av) C_noret; static void C_ccall trf_15589(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15589(t0,t1,t2);} C_noret_decl(trf_15630) static void C_ccall trf_15630(C_word c,C_word *av) C_noret; static void C_ccall trf_15630(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15630(t0,t1);} C_noret_decl(trf_15699) static void C_ccall trf_15699(C_word c,C_word *av) C_noret; static void C_ccall trf_15699(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15699(t0,t1,t2);} C_noret_decl(trf_15755) static void C_ccall trf_15755(C_word c,C_word *av) C_noret; static void C_ccall trf_15755(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15755(t0,t1,t2);} C_noret_decl(trf_15838) static void C_ccall trf_15838(C_word c,C_word *av) C_noret; static void C_ccall trf_15838(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15838(t0,t1);} C_noret_decl(trf_15853) static void C_ccall trf_15853(C_word c,C_word *av) C_noret; static void C_ccall trf_15853(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15853(t0,t1,t2);} C_noret_decl(trf_16054) static void C_ccall trf_16054(C_word c,C_word *av) C_noret; static void C_ccall trf_16054(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16054(t0,t1);} C_noret_decl(trf_16103) static void C_ccall trf_16103(C_word c,C_word *av) C_noret; static void C_ccall trf_16103(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16103(t0,t1,t2);} C_noret_decl(trf_16133) static void C_ccall trf_16133(C_word c,C_word *av) C_noret; static void C_ccall trf_16133(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16133(t0,t1,t2);} C_noret_decl(trf_16188) static void C_ccall trf_16188(C_word c,C_word *av) C_noret; static void C_ccall trf_16188(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16188(t0,t1);} C_noret_decl(trf_16231) static void C_ccall trf_16231(C_word c,C_word *av) C_noret; static void C_ccall trf_16231(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16231(t0,t1);} C_noret_decl(trf_16361) static void C_ccall trf_16361(C_word c,C_word *av) C_noret; static void C_ccall trf_16361(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16361(t0,t1);} C_noret_decl(trf_16519) static void C_ccall trf_16519(C_word c,C_word *av) C_noret; static void C_ccall trf_16519(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16519(t0,t1);} C_noret_decl(trf_16633) static void C_ccall trf_16633(C_word c,C_word *av) C_noret; static void C_ccall trf_16633(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16633(t0,t1);} C_noret_decl(trf_16751) static void C_ccall trf_16751(C_word c,C_word *av) C_noret; static void C_ccall trf_16751(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16751(t0,t1);} C_noret_decl(trf_16784) static void C_ccall trf_16784(C_word c,C_word *av) C_noret; static void C_ccall trf_16784(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16784(t0,t1);} C_noret_decl(trf_16863) static void C_ccall trf_16863(C_word c,C_word *av) C_noret; static void C_ccall trf_16863(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_16863(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_16866) static void C_ccall trf_16866(C_word c,C_word *av) C_noret; static void C_ccall trf_16866(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16866(t0,t1,t2);} C_noret_decl(trf_16906) static void C_ccall trf_16906(C_word c,C_word *av) C_noret; static void C_ccall trf_16906(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16906(t0,t1);} C_noret_decl(trf_16935) static void C_ccall trf_16935(C_word c,C_word *av) C_noret; static void C_ccall trf_16935(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16935(t0,t1);} C_noret_decl(trf_16942) static void C_ccall trf_16942(C_word c,C_word *av) C_noret; static void C_ccall trf_16942(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_16942(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_17020) static void C_ccall trf_17020(C_word c,C_word *av) C_noret; static void C_ccall trf_17020(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_17020(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_17107) static void C_ccall trf_17107(C_word c,C_word *av) C_noret; static void C_ccall trf_17107(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17107(t0,t1);} C_noret_decl(trf_17123) static void C_ccall trf_17123(C_word c,C_word *av) C_noret; static void C_ccall trf_17123(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17123(t0,t1);} C_noret_decl(trf_17259) static void C_ccall trf_17259(C_word c,C_word *av) C_noret; static void C_ccall trf_17259(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17259(t0,t1);} C_noret_decl(trf_17266) static void C_ccall trf_17266(C_word c,C_word *av) C_noret; static void C_ccall trf_17266(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17266(t0,t1);} C_noret_decl(trf_17317) static void C_ccall trf_17317(C_word c,C_word *av) C_noret; static void C_ccall trf_17317(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17317(t0,t1);} C_noret_decl(trf_17444) static void C_ccall trf_17444(C_word c,C_word *av) C_noret; static void C_ccall trf_17444(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17444(t0,t1);} C_noret_decl(trf_17447) static void C_ccall trf_17447(C_word c,C_word *av) C_noret; static void C_ccall trf_17447(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17447(t0,t1);} C_noret_decl(trf_17639) static void C_ccall trf_17639(C_word c,C_word *av) C_noret; static void C_ccall trf_17639(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17639(t0,t1);} C_noret_decl(trf_17658) static void C_ccall trf_17658(C_word c,C_word *av) C_noret; static void C_ccall trf_17658(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17658(t0,t1);} C_noret_decl(trf_17679) static void C_ccall trf_17679(C_word c,C_word *av) C_noret; static void C_ccall trf_17679(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17679(t0,t1);} C_noret_decl(trf_17689) static void C_ccall trf_17689(C_word c,C_word *av) C_noret; static void C_ccall trf_17689(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17689(t0,t1,t2);} C_noret_decl(trf_18079) static void C_ccall trf_18079(C_word c,C_word *av) C_noret; static void C_ccall trf_18079(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18079(t0,t1,t2);} C_noret_decl(trf_18139) static void C_ccall trf_18139(C_word c,C_word *av) C_noret; static void C_ccall trf_18139(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18139(t0,t1,t2,t3);} C_noret_decl(trf_18187) static void C_ccall trf_18187(C_word c,C_word *av) C_noret; static void C_ccall trf_18187(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18187(t0,t1,t2,t3);} C_noret_decl(trf_18289) static void C_ccall trf_18289(C_word c,C_word *av) C_noret; static void C_ccall trf_18289(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18289(t0,t1);} C_noret_decl(trf_18473) static void C_ccall trf_18473(C_word c,C_word *av) C_noret; static void C_ccall trf_18473(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18473(t0,t1,t2,t3);} C_noret_decl(trf_18522) static void C_ccall trf_18522(C_word c,C_word *av) C_noret; static void C_ccall trf_18522(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18522(t0,t1);} C_noret_decl(trf_18594) static void C_ccall trf_18594(C_word c,C_word *av) C_noret; static void C_ccall trf_18594(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18594(t0,t1,t2);} C_noret_decl(trf_18696) static void C_ccall trf_18696(C_word c,C_word *av) C_noret; static void C_ccall trf_18696(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18696(t0,t1);} C_noret_decl(trf_18702) static void C_ccall trf_18702(C_word c,C_word *av) C_noret; static void C_ccall trf_18702(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18702(t0,t1);} C_noret_decl(trf_18822) static void C_ccall trf_18822(C_word c,C_word *av) C_noret; static void C_ccall trf_18822(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_18822(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_18883) static void C_ccall trf_18883(C_word c,C_word *av) C_noret; static void C_ccall trf_18883(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18883(t0,t1,t2,t3);} C_noret_decl(trf_18892) static void C_ccall trf_18892(C_word c,C_word *av) C_noret; static void C_ccall trf_18892(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18892(t0,t1,t2);} C_noret_decl(trf_18997) static void C_ccall trf_18997(C_word c,C_word *av) C_noret; static void C_ccall trf_18997(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_18997(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_19078) static void C_ccall trf_19078(C_word c,C_word *av) C_noret; static void C_ccall trf_19078(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19078(t0,t1);} C_noret_decl(trf_19084) static void C_ccall trf_19084(C_word c,C_word *av) C_noret; static void C_ccall trf_19084(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19084(t0,t1);} C_noret_decl(trf_19287) static void C_ccall trf_19287(C_word c,C_word *av) C_noret; static void C_ccall trf_19287(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19287(t0,t1,t2);} C_noret_decl(trf_19297) static void C_ccall trf_19297(C_word c,C_word *av) C_noret; static void C_ccall trf_19297(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19297(t0,t1);} C_noret_decl(trf_19447) static void C_ccall trf_19447(C_word c,C_word *av) C_noret; static void C_ccall trf_19447(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_19447(t0,t1,t2,t3,t4);} C_noret_decl(trf_19462) static void C_ccall trf_19462(C_word c,C_word *av) C_noret; static void C_ccall trf_19462(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19462(t0,t1,t2,t3);} C_noret_decl(trf_19585) static void C_ccall trf_19585(C_word c,C_word *av) C_noret; static void C_ccall trf_19585(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19585(t0,t1,t2,t3);} C_noret_decl(trf_19587) static void C_ccall trf_19587(C_word c,C_word *av) C_noret; static void C_ccall trf_19587(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19587(t0,t1,t2);} C_noret_decl(trf_19600) static void C_ccall trf_19600(C_word c,C_word *av) C_noret; static void C_ccall trf_19600(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19600(t0,t1);} C_noret_decl(trf_19645) static void C_ccall trf_19645(C_word c,C_word *av) C_noret; static void C_ccall trf_19645(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19645(t0,t1,t2);} C_noret_decl(trf_19682) static void C_ccall trf_19682(C_word c,C_word *av) C_noret; static void C_ccall trf_19682(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19682(t0,t1,t2);} C_noret_decl(trf_19704) static void C_ccall trf_19704(C_word c,C_word *av) C_noret; static void C_ccall trf_19704(C_word c,C_word *av){ C_word t0=av[8]; C_word t1=av[7]; C_word t2=av[6]; C_word t3=av[5]; C_word t4=av[4]; C_word t5=av[3]; C_word t6=av[2]; C_word t7=av[1]; C_word t8=av[0]; f_19704(t0,t1,t2,t3,t4,t5,t6,t7,t8);} C_noret_decl(trf_19741) static void C_ccall trf_19741(C_word c,C_word *av) C_noret; static void C_ccall trf_19741(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19741(t0,t1);} C_noret_decl(trf_19757) static void C_ccall trf_19757(C_word c,C_word *av) C_noret; static void C_ccall trf_19757(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_19757(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_19769) static void C_ccall trf_19769(C_word c,C_word *av) C_noret; static void C_ccall trf_19769(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_19769(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_19779) static void C_ccall trf_19779(C_word c,C_word *av) C_noret; static void C_ccall trf_19779(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19779(t0,t1);} C_noret_decl(trf_19891) static void C_ccall trf_19891(C_word c,C_word *av) C_noret; static void C_ccall trf_19891(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19891(t0,t1);} C_noret_decl(trf_20003) static void C_ccall trf_20003(C_word c,C_word *av) C_noret; static void C_ccall trf_20003(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20003(t0,t1,t2);} C_noret_decl(trf_20039) static void C_ccall trf_20039(C_word c,C_word *av) C_noret; static void C_ccall trf_20039(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20039(t0,t1);} C_noret_decl(trf_20081) static void C_ccall trf_20081(C_word c,C_word *av) C_noret; static void C_ccall trf_20081(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20081(t0,t1);} C_noret_decl(trf_20177) static void C_ccall trf_20177(C_word c,C_word *av) C_noret; static void C_ccall trf_20177(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20177(t0,t1,t2);} C_noret_decl(trf_20336) static void C_ccall trf_20336(C_word c,C_word *av) C_noret; static void C_ccall trf_20336(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_20336(t0,t1,t2,t3,t4);} C_noret_decl(trf_20477) static void C_ccall trf_20477(C_word c,C_word *av) C_noret; static void C_ccall trf_20477(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20477(t0,t1,t2);} C_noret_decl(trf_20486) static void C_ccall trf_20486(C_word c,C_word *av) C_noret; static void C_ccall trf_20486(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_20486(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_20489) static void C_ccall trf_20489(C_word c,C_word *av) C_noret; static void C_ccall trf_20489(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20489(t0,t1,t2);} C_noret_decl(trf_20499) static void C_ccall trf_20499(C_word c,C_word *av) C_noret; static void C_ccall trf_20499(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20499(t0,t1,t2,t3);} C_noret_decl(trf_20503) static void C_ccall trf_20503(C_word c,C_word *av) C_noret; static void C_ccall trf_20503(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20503(t0,t1);} C_noret_decl(trf_20524) static void C_ccall trf_20524(C_word c,C_word *av) C_noret; static void C_ccall trf_20524(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20524(t0,t1,t2);} C_noret_decl(trf_20560) static void C_ccall trf_20560(C_word c,C_word *av) C_noret; static void C_ccall trf_20560(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20560(t0,t1,t2,t3);} C_noret_decl(trf_20577) static void C_ccall trf_20577(C_word c,C_word *av) C_noret; static void C_ccall trf_20577(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20577(t0,t1,t2,t3);} C_noret_decl(trf_20624) static void C_ccall trf_20624(C_word c,C_word *av) C_noret; static void C_ccall trf_20624(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20624(t0,t1);} C_noret_decl(trf_20665) static void C_ccall trf_20665(C_word c,C_word *av) C_noret; static void C_ccall trf_20665(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20665(t0,t1,t2,t3);} C_noret_decl(trf_20829) static void C_ccall trf_20829(C_word c,C_word *av) C_noret; static void C_ccall trf_20829(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20829(t0,t1);} C_noret_decl(trf_20876) static void C_ccall trf_20876(C_word c,C_word *av) C_noret; static void C_ccall trf_20876(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20876(t0,t1);} C_noret_decl(trf_21230) static void C_ccall trf_21230(C_word c,C_word *av) C_noret; static void C_ccall trf_21230(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21230(t0,t1,t2);} C_noret_decl(trf_21393) static void C_ccall trf_21393(C_word c,C_word *av) C_noret; static void C_ccall trf_21393(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21393(t0,t1,t2);} C_noret_decl(trf_21432) static void C_ccall trf_21432(C_word c,C_word *av) C_noret; static void C_ccall trf_21432(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_21432(t0,t1,t2,t3,t4);} C_noret_decl(trf_21467) static void C_ccall trf_21467(C_word c,C_word *av) C_noret; static void C_ccall trf_21467(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21467(t0,t1);} C_noret_decl(trf_21596) static void C_ccall trf_21596(C_word c,C_word *av) C_noret; static void C_ccall trf_21596(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21596(t0,t1);} C_noret_decl(trf_21625) static void C_ccall trf_21625(C_word c,C_word *av) C_noret; static void C_ccall trf_21625(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21625(t0,t1);} C_noret_decl(trf_21642) static void C_ccall trf_21642(C_word c,C_word *av) C_noret; static void C_ccall trf_21642(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_21642(t0,t1,t2,t3);} C_noret_decl(trf_21651) static void C_ccall trf_21651(C_word c,C_word *av) C_noret; static void C_ccall trf_21651(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_21651(t0,t1,t2,t3,t4);} C_noret_decl(trf_21658) static void C_ccall trf_21658(C_word c,C_word *av) C_noret; static void C_ccall trf_21658(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21658(t0,t1);} C_noret_decl(trf_21713) static void C_ccall trf_21713(C_word c,C_word *av) C_noret; static void C_ccall trf_21713(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21713(t0,t1,t2);} C_noret_decl(trf_21820) static void C_ccall trf_21820(C_word c,C_word *av) C_noret; static void C_ccall trf_21820(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21820(t0,t1);} C_noret_decl(trf_21826) static void C_ccall trf_21826(C_word c,C_word *av) C_noret; static void C_ccall trf_21826(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21826(t0,t1);} C_noret_decl(trf_21879) static void C_ccall trf_21879(C_word c,C_word *av) C_noret; static void C_ccall trf_21879(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_21879(t0,t1,t2,t3);} C_noret_decl(trf_21950) static void C_ccall trf_21950(C_word c,C_word *av) C_noret; static void C_ccall trf_21950(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21950(t0,t1,t2);} C_noret_decl(trf_22003) static void C_ccall trf_22003(C_word c,C_word *av) C_noret; static void C_ccall trf_22003(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22003(t0,t1,t2,t3);} C_noret_decl(trf_22012) static void C_ccall trf_22012(C_word c,C_word *av) C_noret; static void C_ccall trf_22012(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22012(t0,t1,t2,t3);} C_noret_decl(trf_22085) static void C_ccall trf_22085(C_word c,C_word *av) C_noret; static void C_ccall trf_22085(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22085(t0,t1,t2);} C_noret_decl(trf_22089) static void C_ccall trf_22089(C_word c,C_word *av) C_noret; static void C_ccall trf_22089(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22089(t0,t1);} C_noret_decl(trf_22117) static void C_ccall trf_22117(C_word c,C_word *av) C_noret; static void C_ccall trf_22117(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_22117(t0,t1,t2,t3,t4);} C_noret_decl(trf_22150) static void C_ccall trf_22150(C_word c,C_word *av) C_noret; static void C_ccall trf_22150(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22150(t0,t1);} C_noret_decl(trf_22173) static void C_ccall trf_22173(C_word c,C_word *av) C_noret; static void C_ccall trf_22173(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_22173(t0,t1,t2,t3,t4);} C_noret_decl(trf_22304) static void C_ccall trf_22304(C_word c,C_word *av) C_noret; static void C_ccall trf_22304(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22304(t0,t1,t2,t3);} C_noret_decl(trf_22337) static void C_ccall trf_22337(C_word c,C_word *av) C_noret; static void C_ccall trf_22337(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22337(t0,t1,t2);} C_noret_decl(trf_22345) static void C_ccall trf_22345(C_word c,C_word *av) C_noret; static void C_ccall trf_22345(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22345(t0,t1);} C_noret_decl(trf_22380) static void C_ccall trf_22380(C_word c,C_word *av) C_noret; static void C_ccall trf_22380(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22380(t0,t1,t2);} C_noret_decl(trf_22418) static void C_ccall trf_22418(C_word c,C_word *av) C_noret; static void C_ccall trf_22418(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_22418(t0,t1,t2,t3,t4);} C_noret_decl(trf_22476) static void C_ccall trf_22476(C_word c,C_word *av) C_noret; static void C_ccall trf_22476(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22476(t0,t1);} C_noret_decl(trf_22493) static void C_ccall trf_22493(C_word c,C_word *av) C_noret; static void C_ccall trf_22493(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_22493(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_22534) static void C_ccall trf_22534(C_word c,C_word *av) C_noret; static void C_ccall trf_22534(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22534(t0,t1,t2);} C_noret_decl(trf_22550) static void C_ccall trf_22550(C_word c,C_word *av) C_noret; static void C_ccall trf_22550(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22550(t0,t1);} C_noret_decl(trf_22652) static void C_ccall trf_22652(C_word c,C_word *av) C_noret; static void C_ccall trf_22652(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_22652(t0,t1,t2,t3,t4);} C_noret_decl(trf_22675) static void C_ccall trf_22675(C_word c,C_word *av) C_noret; static void C_ccall trf_22675(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22675(t0,t1,t2,t3);} C_noret_decl(trf_22704) static void C_ccall trf_22704(C_word c,C_word *av) C_noret; static void C_ccall trf_22704(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22704(t0,t1,t2);} C_noret_decl(trf_22708) static void C_ccall trf_22708(C_word c,C_word *av) C_noret; static void C_ccall trf_22708(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22708(t0,t1);} C_noret_decl(trf_22732) static void C_ccall trf_22732(C_word c,C_word *av) C_noret; static void C_ccall trf_22732(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22732(t0,t1);} C_noret_decl(trf_22770) static void C_ccall trf_22770(C_word c,C_word *av) C_noret; static void C_ccall trf_22770(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22770(t0,t1,t2);} C_noret_decl(trf_22785) static void C_ccall trf_22785(C_word c,C_word *av) C_noret; static void C_ccall trf_22785(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_22785(t0,t1,t2,t3,t4);} C_noret_decl(trf_22800) static void C_ccall trf_22800(C_word c,C_word *av) C_noret; static void C_ccall trf_22800(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_22800(t0,t1,t2,t3);} C_noret_decl(trf_22820) static void C_ccall trf_22820(C_word c,C_word *av) C_noret; static void C_ccall trf_22820(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_22820(t0,t1,t2,t3,t4);} C_noret_decl(trf_22843) static void C_ccall trf_22843(C_word c,C_word *av) C_noret; static void C_ccall trf_22843(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22843(t0,t1);} C_noret_decl(trf_22952) static void C_ccall trf_22952(C_word c,C_word *av) C_noret; static void C_ccall trf_22952(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22952(t0,t1,t2);} C_noret_decl(trf_22979) static void C_ccall trf_22979(C_word c,C_word *av) C_noret; static void C_ccall trf_22979(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_22979(t0,t1,t2,t3,t4);} C_noret_decl(trf_23006) static void C_ccall trf_23006(C_word c,C_word *av) C_noret; static void C_ccall trf_23006(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_23006(t0,t1,t2,t3,t4);} C_noret_decl(trf_23162) static void C_ccall trf_23162(C_word c,C_word *av) C_noret; static void C_ccall trf_23162(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_23162(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_23165) static void C_ccall trf_23165(C_word c,C_word *av) C_noret; static void C_ccall trf_23165(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23165(t0,t1,t2);} C_noret_decl(trf_23204) static void C_ccall trf_23204(C_word c,C_word *av) C_noret; static void C_ccall trf_23204(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23204(t0,t1);} C_noret_decl(trf_23703) static void C_ccall trf_23703(C_word c,C_word *av) C_noret; static void C_ccall trf_23703(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23703(t0,t1);} C_noret_decl(trf_23706) static void C_ccall trf_23706(C_word c,C_word *av) C_noret; static void C_ccall trf_23706(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23706(t0,t1);} C_noret_decl(trf_23733) static void C_ccall trf_23733(C_word c,C_word *av) C_noret; static void C_ccall trf_23733(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23733(t0,t1);} C_noret_decl(trf_23774) static void C_ccall trf_23774(C_word c,C_word *av) C_noret; static void C_ccall trf_23774(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23774(t0,t1);} C_noret_decl(trf_23855) static void C_ccall trf_23855(C_word c,C_word *av) C_noret; static void C_ccall trf_23855(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23855(t0,t1);} C_noret_decl(trf_23858) static void C_ccall trf_23858(C_word c,C_word *av) C_noret; static void C_ccall trf_23858(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23858(t0,t1);} C_noret_decl(trf_23907) static void C_ccall trf_23907(C_word c,C_word *av) C_noret; static void C_ccall trf_23907(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23907(t0,t1);} C_noret_decl(trf_23933) static void C_ccall trf_23933(C_word c,C_word *av) C_noret; static void C_ccall trf_23933(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_23933(t0,t1);} C_noret_decl(trf_24295) static void C_ccall trf_24295(C_word c,C_word *av) C_noret; static void C_ccall trf_24295(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24295(t0,t1);} C_noret_decl(trf_24439) static void C_ccall trf_24439(C_word c,C_word *av) C_noret; static void C_ccall trf_24439(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24439(t0,t1);} C_noret_decl(trf_24462) static void C_ccall trf_24462(C_word c,C_word *av) C_noret; static void C_ccall trf_24462(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_24462(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_25154) static void C_ccall trf_25154(C_word c,C_word *av) C_noret; static void C_ccall trf_25154(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25154(t0,t1);} C_noret_decl(trf_25184) static void C_ccall trf_25184(C_word c,C_word *av) C_noret; static void C_ccall trf_25184(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25184(t0,t1);} C_noret_decl(trf_25187) static void C_ccall trf_25187(C_word c,C_word *av) C_noret; static void C_ccall trf_25187(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25187(t0,t1);} C_noret_decl(trf_25242) static void C_ccall trf_25242(C_word c,C_word *av) C_noret; static void C_ccall trf_25242(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25242(t0,t1);} C_noret_decl(trf_25251) static void C_ccall trf_25251(C_word c,C_word *av) C_noret; static void C_ccall trf_25251(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25251(t0,t1);} C_noret_decl(trf_25349) static void C_ccall trf_25349(C_word c,C_word *av) C_noret; static void C_ccall trf_25349(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25349(t0,t1);} C_noret_decl(trf_25382) static void C_ccall trf_25382(C_word c,C_word *av) C_noret; static void C_ccall trf_25382(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25382(t0,t1);} C_noret_decl(trf_25447) static void C_ccall trf_25447(C_word c,C_word *av) C_noret; static void C_ccall trf_25447(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25447(t0,t1);} C_noret_decl(trf_25456) static void C_ccall trf_25456(C_word c,C_word *av) C_noret; static void C_ccall trf_25456(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25456(t0,t1);} C_noret_decl(trf_25542) static void C_ccall trf_25542(C_word c,C_word *av) C_noret; static void C_ccall trf_25542(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25542(t0,t1);} C_noret_decl(trf_25670) static void C_ccall trf_25670(C_word c,C_word *av) C_noret; static void C_ccall trf_25670(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_25670(t0,t1,t2);} C_noret_decl(trf_25769) static void C_ccall trf_25769(C_word c,C_word *av) C_noret; static void C_ccall trf_25769(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_25769(t0,t1,t2);} C_noret_decl(trf_25891) static void C_ccall trf_25891(C_word c,C_word *av) C_noret; static void C_ccall trf_25891(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_25891(t0,t1,t2);} C_noret_decl(trf_26104) static void C_ccall trf_26104(C_word c,C_word *av) C_noret; static void C_ccall trf_26104(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26104(t0,t1);} C_noret_decl(trf_26116) static void C_ccall trf_26116(C_word c,C_word *av) C_noret; static void C_ccall trf_26116(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_26116(t0,t1,t2,t3);} C_noret_decl(trf_26166) static void C_ccall trf_26166(C_word c,C_word *av) C_noret; static void C_ccall trf_26166(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_26166(t0,t1,t2,t3);} C_noret_decl(trf_26195) static void C_ccall trf_26195(C_word c,C_word *av) C_noret; static void C_ccall trf_26195(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26195(t0,t1);} C_noret_decl(trf_26215) static void C_ccall trf_26215(C_word c,C_word *av) C_noret; static void C_ccall trf_26215(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26215(t0,t1,t2);} C_noret_decl(trf_26223) static void C_ccall trf_26223(C_word c,C_word *av) C_noret; static void C_ccall trf_26223(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26223(t0,t1);} C_noret_decl(trf_26225) static void C_ccall trf_26225(C_word c,C_word *av) C_noret; static void C_ccall trf_26225(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_26225(t0,t1,t2,t3);} C_noret_decl(trf_26294) static void C_ccall trf_26294(C_word c,C_word *av) C_noret; static void C_ccall trf_26294(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26294(t0,t1,t2);} C_noret_decl(trf_26358) static void C_ccall trf_26358(C_word c,C_word *av) C_noret; static void C_ccall trf_26358(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26358(t0,t1,t2);} C_noret_decl(trf_26428) static void C_ccall trf_26428(C_word c,C_word *av) C_noret; static void C_ccall trf_26428(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26428(t0,t1,t2);} C_noret_decl(trf_26513) static void C_ccall trf_26513(C_word c,C_word *av) C_noret; static void C_ccall trf_26513(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26513(t0,t1,t2);} C_noret_decl(trf_26682) static void C_ccall trf_26682(C_word c,C_word *av) C_noret; static void C_ccall trf_26682(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26682(t0,t1,t2);} C_noret_decl(trf_26715) static void C_ccall trf_26715(C_word c,C_word *av) C_noret; static void C_ccall trf_26715(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_26715(t0,t1,t2,t3);} C_noret_decl(trf_26767) static void C_ccall trf_26767(C_word c,C_word *av) C_noret; static void C_ccall trf_26767(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26767(t0,t1,t2);} C_noret_decl(trf_26775) static void C_ccall trf_26775(C_word c,C_word *av) C_noret; static void C_ccall trf_26775(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26775(t0,t1);} C_noret_decl(trf_26817) static void C_ccall trf_26817(C_word c,C_word *av) C_noret; static void C_ccall trf_26817(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_26817(t0,t1,t2,t3,t4);} C_noret_decl(trf_26998) static void C_ccall trf_26998(C_word c,C_word *av) C_noret; static void C_ccall trf_26998(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26998(t0,t1,t2);} C_noret_decl(trf_27012) static void C_ccall trf_27012(C_word c,C_word *av) C_noret; static void C_ccall trf_27012(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_27012(t0,t1,t2,t3,t4);} C_noret_decl(trf_27081) static void C_ccall trf_27081(C_word c,C_word *av) C_noret; static void C_ccall trf_27081(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27081(t0,t1);} C_noret_decl(trf_27089) static void C_ccall trf_27089(C_word c,C_word *av) C_noret; static void C_ccall trf_27089(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27089(t0,t1);} C_noret_decl(trf_27092) static void C_ccall trf_27092(C_word c,C_word *av) C_noret; static void C_ccall trf_27092(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27092(t0,t1);} C_noret_decl(trf_27099) static void C_ccall trf_27099(C_word c,C_word *av) C_noret; static void C_ccall trf_27099(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27099(t0,t1);} C_noret_decl(trf_27208) static void C_ccall trf_27208(C_word c,C_word *av) C_noret; static void C_ccall trf_27208(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_27208(t0,t1,t2,t3,t4);} C_noret_decl(trf_27263) static void C_ccall trf_27263(C_word c,C_word *av) C_noret; static void C_ccall trf_27263(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27263(t0,t1);} C_noret_decl(trf_27320) static void C_ccall trf_27320(C_word c,C_word *av) C_noret; static void C_ccall trf_27320(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27320(t0,t1);} C_noret_decl(trf_27330) static void C_ccall trf_27330(C_word c,C_word *av) C_noret; static void C_ccall trf_27330(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27330(t0,t1);} C_noret_decl(trf_27340) static void C_ccall trf_27340(C_word c,C_word *av) C_noret; static void C_ccall trf_27340(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_27340(t0,t1,t2,t3);} C_noret_decl(trf_27360) static void C_ccall trf_27360(C_word c,C_word *av) C_noret; static void C_ccall trf_27360(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27360(t0,t1);} C_noret_decl(trf_27474) static void C_ccall trf_27474(C_word c,C_word *av) C_noret; static void C_ccall trf_27474(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27474(t0,t1);} C_noret_decl(trf_27480) static void C_ccall trf_27480(C_word c,C_word *av) C_noret; static void C_ccall trf_27480(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27480(t0,t1);} C_noret_decl(trf_27483) static void C_ccall trf_27483(C_word c,C_word *av) C_noret; static void C_ccall trf_27483(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27483(t0,t1);} C_noret_decl(trf_27503) static void C_ccall trf_27503(C_word c,C_word *av) C_noret; static void C_ccall trf_27503(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_27503(t0,t1,t2,t3,t4);} C_noret_decl(trf_27701) static void C_ccall trf_27701(C_word c,C_word *av) C_noret; static void C_ccall trf_27701(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27701(t0,t1);} C_noret_decl(trf_27721) static void C_ccall trf_27721(C_word c,C_word *av) C_noret; static void C_ccall trf_27721(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_27721(t0,t1,t2,t3,t4);} C_noret_decl(trf_27772) static void C_ccall trf_27772(C_word c,C_word *av) C_noret; static void C_ccall trf_27772(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27772(t0,t1);} C_noret_decl(trf_27848) static void C_ccall trf_27848(C_word c,C_word *av) C_noret; static void C_ccall trf_27848(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27848(t0,t1);} C_noret_decl(trf_28066) static void C_ccall trf_28066(C_word c,C_word *av) C_noret; static void C_ccall trf_28066(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28066(t0,t1,t2);} C_noret_decl(trf_28072) static void C_ccall trf_28072(C_word c,C_word *av) C_noret; static void C_ccall trf_28072(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_28072(t0,t1,t2,t3);} C_noret_decl(trf_28246) static void C_ccall trf_28246(C_word c,C_word *av) C_noret; static void C_ccall trf_28246(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28246(t0,t1,t2);} C_noret_decl(trf_28339) static void C_ccall trf_28339(C_word c,C_word *av) C_noret; static void C_ccall trf_28339(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28339(t0,t1);} C_noret_decl(trf_28342) static void C_ccall trf_28342(C_word c,C_word *av) C_noret; static void C_ccall trf_28342(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28342(t0,t1);} C_noret_decl(trf_28468) static void C_ccall trf_28468(C_word c,C_word *av) C_noret; static void C_ccall trf_28468(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28468(t0,t1);} C_noret_decl(trf_28470) static void C_ccall trf_28470(C_word c,C_word *av) C_noret; static void C_ccall trf_28470(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28470(t0,t1,t2);} C_noret_decl(trf_28514) static void C_ccall trf_28514(C_word c,C_word *av) C_noret; static void C_ccall trf_28514(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_28514(t0,t1,t2,t3);} C_noret_decl(trf_28627) static void C_ccall trf_28627(C_word c,C_word *av) C_noret; static void C_ccall trf_28627(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28627(t0,t1,t2);} C_noret_decl(trf_28699) static void C_ccall trf_28699(C_word c,C_word *av) C_noret; static void C_ccall trf_28699(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_28699(t0,t1,t2,t3);} C_noret_decl(trf_28711) static void C_ccall trf_28711(C_word c,C_word *av) C_noret; static void C_ccall trf_28711(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_28711(t0,t1,t2,t3);} C_noret_decl(trf_28824) static void C_ccall trf_28824(C_word c,C_word *av) C_noret; static void C_ccall trf_28824(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28824(t0,t1);} C_noret_decl(trf_28836) static void C_ccall trf_28836(C_word c,C_word *av) C_noret; static void C_ccall trf_28836(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28836(t0,t1,t2);} C_noret_decl(trf_28939) static void C_ccall trf_28939(C_word c,C_word *av) C_noret; static void C_ccall trf_28939(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28939(t0,t1);} C_noret_decl(trf_28954) static void C_ccall trf_28954(C_word c,C_word *av) C_noret; static void C_ccall trf_28954(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28954(t0,t1,t2);} C_noret_decl(trf_28984) static void C_ccall trf_28984(C_word c,C_word *av) C_noret; static void C_ccall trf_28984(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28984(t0,t1,t2);} C_noret_decl(trf_29048) static void C_ccall trf_29048(C_word c,C_word *av) C_noret; static void C_ccall trf_29048(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29048(t0,t1,t2);} C_noret_decl(trf_29098) static void C_ccall trf_29098(C_word c,C_word *av) C_noret; static void C_ccall trf_29098(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29098(t0,t1,t2);} C_noret_decl(trf_29136) static void C_ccall trf_29136(C_word c,C_word *av) C_noret; static void C_ccall trf_29136(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29136(t0,t1,t2);} C_noret_decl(trf_29157) static void C_ccall trf_29157(C_word c,C_word *av) C_noret; static void C_ccall trf_29157(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29157(t0,t1,t2);} C_noret_decl(trf_29191) static void C_ccall trf_29191(C_word c,C_word *av) C_noret; static void C_ccall trf_29191(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29191(t0,t1);} C_noret_decl(trf_29217) static void C_ccall trf_29217(C_word c,C_word *av) C_noret; static void C_ccall trf_29217(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29217(t0,t1,t2);} C_noret_decl(trf_29261) static void C_ccall trf_29261(C_word c,C_word *av) C_noret; static void C_ccall trf_29261(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29261(t0,t1);} C_noret_decl(trf_29325) static void C_ccall trf_29325(C_word c,C_word *av) C_noret; static void C_ccall trf_29325(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29325(t0,t1);} C_noret_decl(trf_29334) static void C_ccall trf_29334(C_word c,C_word *av) C_noret; static void C_ccall trf_29334(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29334(t0,t1);} C_noret_decl(trf_29426) static void C_ccall trf_29426(C_word c,C_word *av) C_noret; static void C_ccall trf_29426(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29426(t0,t1,t2);} C_noret_decl(trf_29675) static void C_ccall trf_29675(C_word c,C_word *av) C_noret; static void C_ccall trf_29675(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_29675(t0,t1,t2,t3);} C_noret_decl(trf_29783) static void C_ccall trf_29783(C_word c,C_word *av) C_noret; static void C_ccall trf_29783(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_29783(t0,t1,t2,t3);} C_noret_decl(trf_29832) static void C_ccall trf_29832(C_word c,C_word *av) C_noret; static void C_ccall trf_29832(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29832(t0,t1);} C_noret_decl(trf_29859) static void C_ccall trf_29859(C_word c,C_word *av) C_noret; static void C_ccall trf_29859(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29859(t0,t1);} C_noret_decl(trf_7430) static void C_ccall trf_7430(C_word c,C_word *av) C_noret; static void C_ccall trf_7430(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7430(t0,t1);} C_noret_decl(trf_7512) static void C_ccall trf_7512(C_word c,C_word *av) C_noret; static void C_ccall trf_7512(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7512(t0,t1);} C_noret_decl(trf_7535) static void C_ccall trf_7535(C_word c,C_word *av) C_noret; static void C_ccall trf_7535(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7535(t0,t1);} C_noret_decl(trf_7544) static void C_ccall trf_7544(C_word c,C_word *av) C_noret; static void C_ccall trf_7544(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7544(t0,t1);} C_noret_decl(trf_7844) static void C_ccall trf_7844(C_word c,C_word *av) C_noret; static void C_ccall trf_7844(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7844(t0,t1,t2,t3);} C_noret_decl(trf_7912) static void C_ccall trf_7912(C_word c,C_word *av) C_noret; static void C_ccall trf_7912(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7912(t0,t1);} C_noret_decl(trf_7956) static void C_ccall trf_7956(C_word c,C_word *av) C_noret; static void C_ccall trf_7956(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7956(t0,t1,t2,t3);} C_noret_decl(trf_8266) static void C_ccall trf_8266(C_word c,C_word *av) C_noret; static void C_ccall trf_8266(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8266(t0,t1);} C_noret_decl(trf_8272) static void C_ccall trf_8272(C_word c,C_word *av) C_noret; static void C_ccall trf_8272(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8272(t0,t1);} C_noret_decl(trf_8302) static void C_ccall trf_8302(C_word c,C_word *av) C_noret; static void C_ccall trf_8302(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8302(t0,t1);} C_noret_decl(trf_8363) static void C_ccall trf_8363(C_word c,C_word *av) C_noret; static void C_ccall trf_8363(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8363(t0,t1,t2,t3);} C_noret_decl(trf_8512) static void C_ccall trf_8512(C_word c,C_word *av) C_noret; static void C_ccall trf_8512(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8512(t0,t1,t2);} C_noret_decl(trf_8530) static void C_ccall trf_8530(C_word c,C_word *av) C_noret; static void C_ccall trf_8530(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8530(t0,t1,t2,t3);} C_noret_decl(trf_8560) static void C_ccall trf_8560(C_word c,C_word *av) C_noret; static void C_ccall trf_8560(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8560(t0,t1,t2);} C_noret_decl(trf_8692) static void C_ccall trf_8692(C_word c,C_word *av) C_noret; static void C_ccall trf_8692(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8692(t0,t1);} C_noret_decl(trf_8694) static void C_ccall trf_8694(C_word c,C_word *av) C_noret; static void C_ccall trf_8694(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8694(t0,t1,t2);} C_noret_decl(trf_8737) static void C_ccall trf_8737(C_word c,C_word *av) C_noret; static void C_ccall trf_8737(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8737(t0,t1,t2);} C_noret_decl(trf_8794) static void C_ccall trf_8794(C_word c,C_word *av) C_noret; static void C_ccall trf_8794(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8794(t0,t1,t2);} C_noret_decl(trf_8832) static void C_ccall trf_8832(C_word c,C_word *av) C_noret; static void C_ccall trf_8832(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_8832(t0,t1,t2,t3,t4);} C_noret_decl(trf_8835) static void C_ccall trf_8835(C_word c,C_word *av) C_noret; static void C_ccall trf_8835(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8835(t0,t1);} C_noret_decl(trf_8972) static void C_ccall trf_8972(C_word c,C_word *av) C_noret; static void C_ccall trf_8972(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8972(t0,t1);} C_noret_decl(trf_9022) static void C_ccall trf_9022(C_word c,C_word *av) C_noret; static void C_ccall trf_9022(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9022(t0,t1);} C_noret_decl(trf_9038) static void C_ccall trf_9038(C_word c,C_word *av) C_noret; static void C_ccall trf_9038(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9038(t0,t1,t2,t3);} C_noret_decl(trf_9059) static void C_ccall trf_9059(C_word c,C_word *av) C_noret; static void C_ccall trf_9059(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9059(t0,t1,t2);} C_noret_decl(trf_9065) static void C_ccall trf_9065(C_word c,C_word *av) C_noret; static void C_ccall trf_9065(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9065(t0,t1,t2);} C_noret_decl(trf_9120) static void C_ccall trf_9120(C_word c,C_word *av) C_noret; static void C_ccall trf_9120(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9120(t0,t1);} C_noret_decl(trf_9158) static void C_ccall trf_9158(C_word c,C_word *av) C_noret; static void C_ccall trf_9158(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9158(t0,t1,t2);} C_noret_decl(trf_9174) static void C_ccall trf_9174(C_word c,C_word *av) C_noret; static void C_ccall trf_9174(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9174(t0,t1,t2,t3);} C_noret_decl(trf_9201) static void C_ccall trf_9201(C_word c,C_word *av) C_noret; static void C_ccall trf_9201(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9201(t0,t1,t2);} C_noret_decl(trf_9219) static void C_ccall trf_9219(C_word c,C_word *av) C_noret; static void C_ccall trf_9219(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9219(t0,t1,t2,t3);} C_noret_decl(trf_9246) static void C_ccall trf_9246(C_word c,C_word *av) C_noret; static void C_ccall trf_9246(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9246(t0,t1,t2,t3);} C_noret_decl(trf_9252) static void C_ccall trf_9252(C_word c,C_word *av) C_noret; static void C_ccall trf_9252(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9252(t0,t1,t2,t3);} C_noret_decl(trf_9603) static void C_ccall trf_9603(C_word c,C_word *av) C_noret; static void C_ccall trf_9603(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9603(t0,t1,t2,t3);} C_noret_decl(trf_9610) static void C_ccall trf_9610(C_word c,C_word *av) C_noret; static void C_ccall trf_9610(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9610(t0,t1,t2,t3);} C_noret_decl(trf_9637) static void C_ccall trf_9637(C_word c,C_word *av) C_noret; static void C_ccall trf_9637(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9637(t0,t1,t2,t3);} C_noret_decl(trf_9751) static void C_ccall trf_9751(C_word c,C_word *av) C_noret; static void C_ccall trf_9751(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9751(t0,t1,t2);} C_noret_decl(trf_9761) static void C_ccall trf_9761(C_word c,C_word *av) C_noret; static void C_ccall trf_9761(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9761(t0,t1);} C_noret_decl(trf_9828) static void C_ccall trf_9828(C_word c,C_word *av) C_noret; static void C_ccall trf_9828(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9828(t0,t1);} C_noret_decl(trf_9834) static void C_ccall trf_9834(C_word c,C_word *av) C_noret; static void C_ccall trf_9834(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9834(t0,t1);} C_noret_decl(trf_9885) static void C_ccall trf_9885(C_word c,C_word *av) C_noret; static void C_ccall trf_9885(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_9885(t0,t1,t2,t3,t4);} C_noret_decl(trf_9888) static void C_ccall trf_9888(C_word c,C_word *av) C_noret; static void C_ccall trf_9888(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9888(t0,t1);} /* f33162 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f33162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f33162,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[124],t1); /* irregex-core.scm:830: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* f33167 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f33167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f33167,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[125],t1); /* irregex-core.scm:830: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* a10003 */ static void C_ccall f_10004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10004,4,av);} a=C_alloc(5); t4=t2; t5=C_eqp(t4,lf[79]); if(C_truep(t5)){ /* irregex-core.scm:670: k */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=C_make_character(32); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=C_eqp(t4,lf[80]); if(C_truep(t6)){ /* irregex-core.scm:670: k */ t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=C_make_character(10); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10024,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_numberp(t2))){ t8=t2; /* ##sys#number->string */ t9=*((C_word*)lf[81]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* irregex-core.scm:675: scheme#symbol->string */ t8=*((C_word*)lf[82]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}}} /* k10022 in a10003 */ static void C_ccall f_10024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10024,2,av);} t2=C_i_string_ref(t1,C_fix(0)); /* irregex-core.scm:670: k */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* scan */ static void C_fcall f_10104(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_10104,3,t0,t1,t2);} a=C_alloc(8); t3=t2; t4=C_fixnum_greater_or_equal_p(t3,((C_word*)((C_word*)t0)[2])[1]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10114,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5; f_10114(t6,t4);} else{ t6=C_i_string_ref(((C_word*)t0)[4],t2); t7=C_u_i_char_whitespacep(t6); if(C_truep(t7)){ t8=t5; f_10114(t8,t7);} else{ t8=C_u_i_memq(t6,lf[86]); t9=t5; f_10114(t9,t8);}}} /* k10112 in scan */ static void C_fcall f_10114(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_10114,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10117,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:693: scheme#substring */ t3=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* irregex-core.scm:695: scan */ t3=((C_word*)((C_word*)t0)[7])[1]; f_10104(t3,((C_word*)t0)[3],t2);}} /* k10115 in k10112 in scan */ static void C_ccall f_10117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10117,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10124,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:694: scheme#string->number */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10122 in k10115 in k10112 in scan */ static void C_ccall f_10124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_10124,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10127,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=t1; /* irregex-core.scm:694: k */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* irregex-core.scm:694: scheme#string->symbol */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k10125 in k10122 in k10115 in k10112 in scan */ static void C_ccall f_10127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10127,2,av);} /* irregex-core.scm:694: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a10174 in chicken.irregex#with-read-from-string in k7651 in k7426 in k7423 */ static void C_ccall f_10175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10175,4,av);} t4=C_eqp(t2,lf[87]); if(C_truep(t4)){ /* irregex-core.scm:698: chicken.base#error */ t5=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=lf[88]; av2[3]=((C_word*)t0)[2]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ /* irregex-core.scm:699: proc */ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* chicken.irregex#symbol-list->flags in k7651 in k7426 in k7423 */ static void C_fcall f_10196(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_10196,2,t1,t2);} a=C_alloc(6); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10202,a[2]=t4,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_10202(t6,t1,t2,C_fix(0));} /* lp in chicken.irregex#symbol-list->flags in k7651 in k7426 in k7423 */ static void C_fcall f_10202(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_10202,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_i_pairp(t2); if(C_truep(C_i_not(t4))){ t5=t3; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_i_cdr(t2); t6=t5; t7=t2; t8=C_u_i_car(t7); t9=C_eqp(t8,lf[90]); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10231,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t6,a[6]=t8,tmp=(C_word)a,a+=7,tmp); if(C_truep(t9)){ t11=t10; f_10231(t11,t9);} else{ t11=C_eqp(t8,lf[99]); t12=t10; f_10231(t12,(C_truep(t11)?t11:C_eqp(t8,lf[100])));}}} /* k10229 in lp in chicken.irregex#symbol-list->flags in k7651 in k7426 in k7423 */ static void C_fcall f_10231(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_10231,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_fixnum_or(t2,C_fix(2)); /* irregex-core.scm:715: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_10202(t4,((C_word*)t0)[4],((C_word*)t0)[5],t3);} else{ t2=C_eqp(((C_word*)t0)[6],lf[91]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[92])); if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=C_fixnum_or(t4,C_fix(4)); /* irregex-core.scm:715: lp */ t6=((C_word*)((C_word*)t0)[3])[1]; f_10202(t6,((C_word*)t0)[4],((C_word*)t0)[5],t5);} else{ t4=C_eqp(((C_word*)t0)[6],lf[93]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[6],lf[94])); if(C_truep(t5)){ t6=((C_word*)t0)[2]; t7=C_fixnum_or(t6,C_fix(8)); /* irregex-core.scm:715: lp */ t8=((C_word*)((C_word*)t0)[3])[1]; f_10202(t8,((C_word*)t0)[4],((C_word*)t0)[5],t7);} else{ t6=C_eqp(((C_word*)t0)[6],lf[95]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[6],lf[96])); if(C_truep(t7)){ t8=((C_word*)t0)[2]; t9=C_fixnum_or(t8,C_fix(16)); /* irregex-core.scm:715: lp */ t10=((C_word*)((C_word*)t0)[3])[1]; f_10202(t10,((C_word*)t0)[4],((C_word*)t0)[5],t9);} else{ t8=C_eqp(((C_word*)t0)[6],lf[97]); t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[6],lf[98])); if(C_truep(t9)){ t10=((C_word*)t0)[2]; t11=C_fixnum_or(t10,C_fix(32)); /* irregex-core.scm:715: lp */ t12=((C_word*)((C_word*)t0)[3])[1]; f_10202(t12,((C_word*)t0)[4],((C_word*)t0)[5],t11);} else{ t10=((C_word*)t0)[2]; /* irregex-core.scm:715: lp */ t11=((C_word*)((C_word*)t0)[3])[1]; f_10202(t11,((C_word*)t0)[4],((C_word*)t0)[5],t10);}}}}}} /* chicken.irregex#maybe-string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10319,3,av);} if(C_truep(C_i_stringp(t2))){ /* irregex-core.scm:727: string->sre */ t3=*((C_word*)lf[102]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,4)))){ C_save_and_reclaim((void*)f_10331,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10335,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_i_stringp(t2); if(C_truep(C_i_not(t5))){ /* irregex-core.scm:730: chicken.base#error */ t6=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t4; av2[2]=lf[197]; av2[3]=lf[198]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_10335(2,av2);}}} /* k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10335,2,av);} a=C_alloc(5); t2=C_i_string_length(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10341,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:732: symbol-list->flags */ f_10196(t4,((C_word*)t0)[4]);} /* k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,7)))){ C_save_and_reclaim((void *)f_10341,2,av);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10346,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li90),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_10346(t5,((C_word*)t0)[4],C_fix(0),C_fix(0),t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10346(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word t87; C_word t88; C_word t89; C_word t90; C_word t91; C_word t92; C_word t93; C_word t94; C_word t95; C_word t96; C_word t97; C_word t98; C_word t99; C_word t100; C_word t101; C_word t102; C_word t103; C_word t104; C_word t105; C_word t106; C_word t107; C_word t108; C_word t109; C_word t110; C_word t111; C_word t112; C_word t113; C_word t114; C_word t115; C_word t116; C_word t117; C_word t118; C_word t119; C_word t120; C_word t121; C_word t122; C_word t123; C_word t124; C_word t125; C_word t126; C_word t127; C_word t128; C_word t129; C_word t130; C_word t131; C_word t132; C_word t133; C_word t134; C_word t135; C_word t136; C_word t137; C_word t138; C_word t139; C_word t140; C_word t141; C_word t142; C_word t143; C_word t144; C_word t145; C_word t146; C_word t147; C_word t148; C_word t149; C_word t150; C_word t151; C_word t152; C_word t153; C_word t154; C_word t155; C_word t156; C_word t157; C_word t158; C_word t159; C_word t160; C_word t161; C_word t162; C_word t163; C_word t164; C_word t165; C_word t166; C_word t167; C_word t168; C_word t169; C_word t170; C_word t171; C_word t172; C_word t173; C_word t174; C_word t175; C_word t176; C_word t177; C_word t178; C_word t179; C_word t180; C_word t181; C_word t182; C_word t183; C_word t184; C_word t185; C_word t186; C_word t187; C_word t188; C_word t189; C_word t190; C_word t191; C_word t192; C_word t193; C_word t194; C_word t195; C_word t196; C_word t197; C_word t198; C_word t199; C_word t200; C_word t201; C_word t202; C_word t203; C_word t204; C_word t205; C_word t206; C_word t207; C_word t208; C_word t209; C_word t210; C_word t211; C_word t212; C_word t213; C_word t214; C_word t215; C_word t216; C_word t217; C_word t218; C_word t219; C_word t220; C_word t221; C_word t222; C_word t223; C_word t224; C_word t225; C_word t226; C_word t227; C_word t228; C_word t229; C_word t230; C_word t231; C_word t232; C_word t233; C_word t234; C_word t235; C_word t236; C_word t237; C_word t238; C_word t239; C_word t240; C_word t241; C_word t242; C_word t243; C_word t244; C_word t245; C_word t246; C_word t247; C_word t248; C_word t249; C_word t250; C_word t251; C_word t252; C_word t253; C_word t254; C_word t255; C_word t256; C_word t257; C_word t258; C_word t259; C_word t260; C_word t261; C_word t262; C_word t263; C_word t264; C_word t265; C_word t266; C_word t267; C_word t268; C_word t269; C_word t270; C_word t271; C_word t272; C_word t273; C_word t274; C_word t275; C_word t276; C_word t277; C_word t278; C_word t279; C_word t280; C_word t281; C_word t282; C_word t283; C_word t284; C_word t285; C_word t286; C_word t287; C_word t288; C_word t289; C_word t290; C_word t291; C_word t292; C_word t293; C_word t294; C_word t295; C_word t296; C_word t297; C_word t298; C_word t299; C_word t300; C_word t301; C_word t302; C_word t303; C_word t304; C_word t305; C_word t306; C_word t307; C_word t308; C_word t309; C_word t310; C_word t311; C_word t312; C_word t313; C_word t314; C_word t315; C_word t316; C_word t317; C_word t318; C_word t319; C_word t320; C_word t321; C_word t322; C_word t323; C_word t324; C_word t325; C_word t326; C_word t327; C_word t328; C_word t329; C_word t330; C_word t331; C_word t332; C_word t333; C_word t334; C_word t335; C_word t336; C_word t337; C_word t338; C_word t339; C_word t340; C_word t341; C_word t342; C_word t343; C_word t344; C_word t345; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(105,0,6)))){ C_save_and_reclaim_args((void *)trf_10346,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(105); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_SCHEME_UNDEFINED; t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10349,a[2]=t4,a[3]=((C_word)li64),tmp=(C_word)a,a+=4,tmp)); t19=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10371,a[2]=t4,a[3]=t8,a[4]=((C_word)li66),tmp=(C_word)a,a+=5,tmp)); t20=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10427,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=t10,a[6]=((C_word*)t0)[2],a[7]=((C_word)li67),tmp=(C_word)a,a+=8,tmp)); t21=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10447,a[2]=t4,a[3]=t3,a[4]=t5,a[5]=t10,a[6]=((C_word*)t0)[2],a[7]=t8,a[8]=t2,a[9]=((C_word)li69),tmp=(C_word)a,a+=10,tmp)); t22=t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10519,a[2]=t4,a[3]=t12,a[4]=((C_word)li71),tmp=(C_word)a,a+=5,tmp); t23=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10752,a[2]=t4,a[3]=t6,a[4]=t12,a[5]=((C_word)li72),tmp=(C_word)a,a+=6,tmp)); t24=t2; if(C_truep(C_fixnum_greater_or_equal_p(t24,((C_word*)t0)[3]))){ if(C_truep(C_i_pairp(t6))){ /* irregex-core.scm:825: chicken.base#error */ t25=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t25; av2[1]=t1; av2[2]=lf[123]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t25+1)))(4,av2);}} else{ /* irregex-core.scm:826: collect/terms */ t25=t15; f_10519(t25,t1);}} else{ t25=C_i_string_ref(((C_word*)t0)[2],t2); t26=t25; switch(t26){ case C_make_character(46): t27=t2; t28=C_a_i_fixnum_plus(&a,2,t27,C_fix(1)); t29=t2; t30=C_a_i_fixnum_plus(&a,2,t29,C_fix(1)); t31=t4; t32=C_fixnum_and(t31,C_fix(8)); t33=C_eqp(C_fix(8),t32); if(C_truep(t33)){ t34=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f33162,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t28,a[5]=t30,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:832: collect */ t35=((C_word*)t12)[1]; f_10427(t35,t34);} else{ t34=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f33167,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t28,a[5]=t30,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:832: collect */ t35=((C_word*)t12)[1]; f_10427(t35,t34);} case C_make_character(63): t27=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10824,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:835: collect/single */ t28=((C_word*)t14)[1]; f_10447(t28,t27); default: t27=C_eqp(t26,C_make_character(43)); t28=(C_truep(t27)?t27:C_eqp(t26,C_make_character(42))); if(C_truep(t28)){ t29=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10984,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=t6,a[8]=t26,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:856: collect/single */ t30=((C_word*)t14)[1]; f_10447(t30,t29);} else{ switch(t26){ case C_make_character(40): t29=t2; t30=C_a_i_fixnum_plus(&a,2,t29,C_fix(1)); if(C_truep(C_i_integer_greater_or_equalp(t30,((C_word*)t0)[3]))){ /* irregex-core.scm:871: chicken.base#error */ t31=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t31; av2[1]=t1; av2[2]=lf[140]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t31+1)))(4,av2);}} else{ t31=t2; t32=C_a_i_fixnum_plus(&a,2,t31,C_fix(1)); t33=C_i_string_ref(((C_word*)t0)[2],t32); t34=C_u_i_memq(t33,lf[141]); if(C_truep(C_i_not(t34))){ t35=t2; t36=C_a_i_fixnum_plus(&a,2,t35,C_fix(1)); t37=t2; t38=C_a_i_fixnum_plus(&a,2,t37,C_fix(1)); t39=t4; t40=C_fixnum_or(t39,C_fix(1)); t41=t40; t42=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11076,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t36,a[5]=t38,a[6]=t41,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:873: save */ t43=((C_word*)t17)[1]; f_10752(t43,t42);} else{ t35=t2; t36=C_a_i_fixnum_plus(&a,2,t35,C_fix(2)); if(C_truep(C_i_integer_greater_or_equalp(t36,((C_word*)t0)[3]))){ /* irregex-core.scm:875: chicken.base#error */ t37=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t37; av2[1]=t1; av2[2]=lf[142]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t37+1)))(4,av2);}} else{ t37=t2; t38=C_a_i_fixnum_plus(&a,2,t37,C_fix(1)); t39=C_i_string_ref(((C_word*)t0)[2],t38); t40=C_eqp(t39,C_make_character(42)); if(C_truep(t40)){ t41=t2; t42=C_a_i_fixnum_plus(&a,2,t41,C_fix(2)); t43=C_i_string_ref(((C_word*)t0)[2],t42); t44=C_eqp(C_make_character(39),t43); if(C_truep(t44)){ t45=t2; t46=C_a_i_fixnum_plus(&a,2,t45,C_fix(3)); t47=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11106,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t6,a[7]=t12,a[8]=((C_word)li73),tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:878: with-read-from-string */ f_9603(t1,((C_word*)t0)[2],t46,t47);} else{ /* irregex-core.scm:883: chicken.base#error */ t45=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t45; av2[1]=t1; av2[2]=lf[144]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t45+1)))(4,av2);}}} else{ t41=t2; t42=C_a_i_fixnum_plus(&a,2,t41,C_fix(2)); t43=C_i_string_ref(((C_word*)t0)[2],t42); switch(t43){ case C_make_character(35): t44=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11173,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,a[6]=t6,a[7]=t12,tmp=(C_word)a,a+=8,tmp); t45=t2; t46=C_a_i_fixnum_plus(&a,2,t45,C_fix(3)); /* irregex-core.scm:887: string-scan-char */ t47=lf[54];{ C_word av2[5]; av2[0]=t47; av2[1]=t44; av2[2]=((C_word*)t0)[2]; av2[3]=C_make_character(41); av2[4]=t46; ((C_proc)(void*)(*((C_word*)t47+1)))(5,av2);} case C_make_character(58): t44=t2; t45=C_a_i_fixnum_plus(&a,2,t44,C_fix(3)); t46=t2; t47=C_a_i_fixnum_plus(&a,2,t46,C_fix(3)); t48=t4; t49=C_fixnum_not(C_fix(1)); t50=C_fixnum_and(t48,t49); t51=t50; t52=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11214,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t45,a[5]=t47,a[6]=t51,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:890: save */ t53=((C_word*)t17)[1]; f_10752(t53,t52); case C_make_character(61): t44=t2; t45=C_a_i_fixnum_plus(&a,2,t44,C_fix(3)); t46=t2; t47=C_a_i_fixnum_plus(&a,2,t46,C_fix(3)); t48=t4; t49=C_fixnum_not(C_fix(1)); t50=C_fixnum_and(t48,t49); t51=t50; t52=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11237,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t45,a[5]=t47,a[6]=t51,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:893: save */ t53=((C_word*)t17)[1]; f_10752(t53,t52); case C_make_character(33): t44=t2; t45=C_a_i_fixnum_plus(&a,2,t44,C_fix(3)); t46=t2; t47=C_a_i_fixnum_plus(&a,2,t46,C_fix(3)); t48=t4; t49=C_fixnum_not(C_fix(1)); t50=C_fixnum_and(t48,t49); t51=t50; t52=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11260,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t45,a[5]=t47,a[6]=t51,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:896: save */ t53=((C_word*)t17)[1]; f_10752(t53,t52); case C_make_character(60): t44=t2; t45=C_a_i_fixnum_plus(&a,2,t44,C_fix(3)); if(C_truep(C_i_integer_greater_or_equalp(t45,((C_word*)t0)[3]))){ /* irregex-core.scm:900: chicken.base#error */ t46=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t46; av2[1]=t1; av2[2]=lf[147]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t46+1)))(4,av2);}} else{ t46=t2; t47=C_a_i_fixnum_plus(&a,2,t46,C_fix(3)); t48=C_i_string_ref(((C_word*)t0)[2],t47); switch(t48){ case C_make_character(61): t49=t2; t50=C_a_i_fixnum_plus(&a,2,t49,C_fix(4)); t51=t2; t52=C_a_i_fixnum_plus(&a,2,t51,C_fix(4)); t53=t4; t54=C_fixnum_not(C_fix(1)); t55=C_fixnum_and(t53,t54); t56=t55; t57=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11302,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t50,a[5]=t52,a[6]=t56,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:905: save */ t58=((C_word*)t17)[1]; f_10752(t58,t57); case C_make_character(33): t49=t2; t50=C_a_i_fixnum_plus(&a,2,t49,C_fix(4)); t51=t2; t52=C_a_i_fixnum_plus(&a,2,t51,C_fix(4)); t53=t4; t54=C_fixnum_not(C_fix(1)); t55=C_fixnum_and(t53,t54); t56=t55; t57=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11325,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t50,a[5]=t52,a[6]=t56,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:908: save */ t58=((C_word*)t17)[1]; f_10752(t58,t57); default: t49=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11328,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t17,a[6]=t2,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); t50=t2; t51=C_a_i_fixnum_plus(&a,2,t50,C_fix(3)); t52=C_i_string_ref(((C_word*)t0)[2],t51); if(C_truep(C_u_i_char_alphabeticp(t52))){ t53=t2; t54=C_a_i_fixnum_plus(&a,2,t53,C_fix(4)); /* irregex-core.scm:912: string-scan-char */ t55=lf[54];{ C_word av2[5]; av2[0]=t55; av2[1]=t49; av2[2]=((C_word*)t0)[2]; av2[3]=C_make_character(62); av2[4]=t54; ((C_proc)(void*)(*((C_word*)t55+1)))(5,av2);}} else{ t53=t49;{ C_word av2[2]; av2[0]=t53; av2[1]=C_SCHEME_FALSE; f_11328(2,av2);}}}} case C_make_character(62): t44=t2; t45=C_a_i_fixnum_plus(&a,2,t44,C_fix(3)); t46=t2; t47=C_a_i_fixnum_plus(&a,2,t46,C_fix(3)); t48=t4; t49=C_fixnum_not(C_fix(1)); t50=C_fixnum_and(t48,t49); t51=t50; t52=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11414,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t45,a[5]=t47,a[6]=t51,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:921: save */ t53=((C_word*)t17)[1]; f_10752(t53,t52); case C_make_character(40): t44=t2; t45=C_a_i_fixnum_plus(&a,2,t44,C_fix(3)); if(C_truep(C_i_integer_greater_or_equalp(t45,((C_word*)t0)[3]))){ /* irregex-core.scm:929: chicken.base#error */ t46=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t46; av2[1]=t1; av2[2]=lf[152]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t46+1)))(4,av2);}} else{ t46=t2; t47=C_a_i_fixnum_plus(&a,2,t46,C_fix(3)); t48=C_i_string_ref(((C_word*)t0)[2],t47); if(C_truep(C_u_i_char_numericp(t48))){ t49=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11439,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=t17,a[7]=t2,tmp=(C_word)a,a+=8,tmp); t50=t2; t51=C_a_i_fixnum_plus(&a,2,t50,C_fix(3)); /* irregex-core.scm:931: string-scan-char */ t52=lf[54];{ C_word av2[5]; av2[0]=t52; av2[1]=t49; av2[2]=((C_word*)t0)[2]; av2[3]=C_make_character(41); av2[4]=t51; ((C_proc)(void*)(*((C_word*)t52+1)))(5,av2);}} else{ t49=t2; t50=C_a_i_fixnum_plus(&a,2,t49,C_fix(3)); t51=C_i_string_ref(((C_word*)t0)[2],t50); if(C_truep(C_u_i_char_alphabeticp(t51))){ t52=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11491,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t17,a[6]=t2,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); t53=t2; t54=C_a_i_fixnum_plus(&a,2,t53,C_fix(3)); /* irregex-core.scm:938: string-scan-char */ t55=lf[54];{ C_word av2[5]; av2[0]=t55; av2[1]=t52; av2[2]=((C_word*)t0)[2]; av2[3]=C_make_character(41); av2[4]=t54; ((C_proc)(void*)(*((C_word*)t55+1)))(5,av2);}} else{ t52=t2; t53=C_a_i_fixnum_plus(&a,2,t52,C_fix(2)); t54=t2; t55=C_a_i_fixnum_plus(&a,2,t54,C_fix(2)); t56=t4; t57=C_fixnum_not(C_fix(1)); t58=C_fixnum_and(t56,t57); t59=t58; t60=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11542,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t53,a[5]=t55,a[6]=t59,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:944: save */ t61=((C_word*)t17)[1]; f_10752(t61,t60);}}} case C_make_character(123): /* irregex-core.scm:946: chicken.base#error */ t44=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t44; av2[1]=t1; av2[2]=lf[155]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t44+1)))(4,av2);} default: t44=t4; t45=t2; t46=C_a_i_fixnum_plus(&a,2,t45,C_fix(2)); t47=C_SCHEME_UNDEFINED; t48=(*a=C_VECTOR_TYPE|1,a[1]=t47,tmp=(C_word)a,a+=2,tmp); t49=C_set_block_item(t48,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11573,a[2]=t44,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t48,a[7]=((C_word*)t0)[4],a[8]=t6,a[9]=t12,a[10]=((C_word)li76),tmp=(C_word)a,a+=11,tmp)); t50=((C_word*)t48)[1]; f_11573(t50,t1,t46,t4,C_SCHEME_FALSE);}}}}} case C_make_character(41): if(C_truep(C_i_nullp(t6))){ /* irregex-core.scm:986: chicken.base#error */ t29=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t29; av2[1]=t1; av2[2]=lf[160]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t29+1)))(4,av2);}} else{ t29=t2; t30=C_a_i_fixnum_plus(&a,2,t29,C_fix(1)); t31=t2; t32=C_a_i_fixnum_plus(&a,2,t31,C_fix(1)); t33=C_i_caar(t6); t34=t33; t35=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11851,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t32,a[7]=t34,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:990: collect/terms */ t36=t15; f_10519(t36,t35);} case C_make_character(91): t29=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11866,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li77),tmp=(C_word)a,a+=7,tmp); t30=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11890,a[2]=t1,a[3]=t29,tmp=(C_word)a,a+=4,tmp); t31=t2; t32=C_a_i_fixnum_plus(&a,2,t31,C_fix(1)); t33=t30; t34=((C_word*)t0)[2]; t35=t32; t36=t4; t37=C_i_string_length(t34); t38=t37; t39=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13263,a[2]=t36,a[3]=t38,a[4]=t34,a[5]=t35,a[6]=t33,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_fixnum_lessp(t35,t38))){ t40=C_i_string_ref(t34,t35); t41=t39; f_13263(t41,C_eqp(C_make_character(94),t40));} else{ t40=t39; f_13263(t40,C_SCHEME_FALSE);} case C_make_character(123): t29=t2; t30=C_a_i_fixnum_plus(&a,2,t29,C_fix(1)); t31=C_i_integer_greater_or_equalp(t30,((C_word*)t0)[3]); t32=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11909,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=((C_word*)t0)[2],a[10]=t14,tmp=(C_word)a,a+=11,tmp); if(C_truep(t31)){ t33=t32; f_11909(t33,t31);} else{ t33=t2; t34=C_a_i_fixnum_plus(&a,2,t33,C_fix(1)); t35=C_i_string_ref(((C_word*)t0)[2],t34); t36=C_u_i_char_numericp(t35); if(C_truep(t36)){ t37=t32; f_11909(t37,C_i_not(t36));} else{ t37=t2; t38=C_a_i_fixnum_plus(&a,2,t37,C_fix(1)); t39=C_i_string_ref(((C_word*)t0)[2],t38); t40=C_eqp(C_make_character(44),t39); t41=t32; f_11909(t41,C_i_not(t40));}} case C_make_character(92): t29=t2; t30=C_a_i_fixnum_plus(&a,2,t29,C_fix(1)); if(C_truep(C_i_integer_greater_or_equalp(t30,((C_word*)t0)[3]))){ /* irregex-core.scm:1033: chicken.base#error */ t31=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t31; av2[1]=t1; av2[2]=lf[177]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t31+1)))(4,av2);}} else{ t31=t2; t32=C_a_i_fixnum_plus(&a,2,t31,C_fix(1)); t33=C_i_string_ref(((C_word*)t0)[2],t32); switch(t33){ case C_make_character(100): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12138,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t35,a[5]=t37,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1038: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38); case C_make_character(68): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=C_a_i_list(&a,2,lf[179],lf[178]); t39=t38; t40=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12165,a[2]=t39,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t35,a[6]=t37,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1040: collect */ t41=((C_word*)t12)[1]; f_10427(t41,t40); case C_make_character(115): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12188,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t35,a[5]=t37,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1042: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38); case C_make_character(83): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=C_a_i_list(&a,2,lf[179],lf[79]); t39=t38; t40=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12215,a[2]=t39,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t35,a[6]=t37,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1044: collect */ t41=((C_word*)t12)[1]; f_10427(t41,t40); case C_make_character(119): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=C_a_i_list(&a,1,lf[180]); t39=C_a_i_list(&a,3,lf[103],lf[181],t38); t40=t39; t41=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12242,a[2]=t40,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t35,a[6]=t37,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1047: collect */ t42=((C_word*)t12)[1]; f_10427(t42,t41); case C_make_character(87): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=C_a_i_list(&a,1,lf[182]); t39=C_a_i_list(&a,3,lf[103],lf[181],t38); t40=C_a_i_list(&a,2,lf[179],t39); t41=t40; t42=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12273,a[2]=t41,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t35,a[6]=t37,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1050: collect */ t43=((C_word*)t12)[1]; f_10427(t43,t42); case C_make_character(98): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=C_a_i_list(&a,3,lf[103],lf[183],lf[184]); t39=t38; t40=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12308,a[2]=t39,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t35,a[6]=t37,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1053: collect */ t41=((C_word*)t12)[1]; f_10427(t41,t40); case C_make_character(66): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12331,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t35,a[5]=t37,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1055: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38); case C_make_character(65): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12354,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t35,a[5]=t37,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1057: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38); case C_make_character(90): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=C_a_i_list(&a,2,lf[131],C_make_character(10)); t39=t38; t40=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12385,a[2]=t39,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t35,a[6]=t37,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1060: collect */ t41=((C_word*)t12)[1]; f_10427(t41,t40); case C_make_character(122): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12408,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t35,a[5]=t37,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1062: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38); case C_make_character(82): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12431,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t35,a[5]=t37,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1064: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38); case C_make_character(75): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12454,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t35,a[5]=t37,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1066: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38); case C_make_character(60): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12477,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t35,a[5]=t37,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1069: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38); case C_make_character(62): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12500,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t35,a[5]=t37,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1071: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38); case C_make_character(120): t34=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12511,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li85),tmp=(C_word)a,a+=7,tmp); t35=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12535,a[2]=t1,a[3]=t34,tmp=(C_word)a,a+=4,tmp); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); /* irregex-core.scm:1076: string-parse-hex-escape */ f_13159(t35,((C_word*)t0)[2],t37,((C_word*)t0)[3]); case C_make_character(107): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=C_i_string_ref(((C_word*)t0)[2],t35); t37=C_u_i_memq(t36,lf[189]); if(C_truep(C_i_not(t37))){ /* irregex-core.scm:1080: chicken.base#error */ t38=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t38; av2[1]=t1; av2[2]=lf[190]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t38+1)))(4,av2);}} else{ t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12559,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t6,a[7]=t12,a[8]=t2,tmp=(C_word)a,a+=9,tmp); switch(t36){ case C_make_character(60): t39=t38; f_12559(t39,C_make_character(62)); case C_make_character(123): t39=t38; f_12559(t39,C_make_character(125)); case C_make_character(40): t39=t38; f_12559(t39,C_make_character(41)); default: t39=C_eqp(t36,C_make_character(91)); t40=t38; f_12559(t40,(C_truep(t39)?C_make_character(93):t36));}} case C_make_character(81): t34=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12631,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t6,a[7]=((C_word*)t0)[2],a[8]=t1,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1095: collect */ t35=((C_word*)t12)[1]; f_10427(t35,t34); case C_make_character(39): t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12742,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li87),tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:1112: with-read-from-string */ f_9603(t1,((C_word*)t0)[2],t35,t36); default: if(C_truep(C_u_i_char_numericp(t33))){ t34=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12763,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t6,a[7]=t12,a[8]=t2,a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12799,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(2)); t38=((C_word*)t0)[2]; t39=t35; t40=C_a_i_list(&a,1,t37); t41=C_i_string_length(t38); t42=t41; t43=C_i_pairp(t40); t44=(C_truep(t43)?C_u_i_car(t40):C_fix(0)); t45=C_SCHEME_UNDEFINED; t46=(*a=C_VECTOR_TYPE|1,a[1]=t45,tmp=(C_word)a,a+=2,tmp); t47=C_set_block_item(t46,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8794,a[2]=t42,a[3]=t46,a[4]=t38,a[5]=t39,a[6]=((C_word)li89),tmp=(C_word)a,a+=7,tmp)); t48=((C_word*)t46)[1]; f_8794(t48,t34,t44);} else{ if(C_truep(C_u_i_char_alphabeticp(t33))){ t34=C_i_assq(t33,lf[168]); if(C_truep(t34)){ t35=t2; t36=C_a_i_fixnum_plus(&a,2,t35,C_fix(2)); t37=t2; t38=C_a_i_fixnum_plus(&a,2,t37,C_fix(2)); t39=C_i_cdr(t34); t40=t39; t41=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12843,a[2]=t40,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t36,a[6]=t38,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1139: collect */ t42=((C_word*)t12)[1]; f_10427(t42,t41);} else{ /* irregex-core.scm:1140: chicken.base#error */ t35=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t35; av2[1]=t1; av2[2]=lf[194]; av2[3]=((C_word*)t0)[2]; av2[4]=t33; ((C_proc)(void*)(*((C_word*)t35+1)))(5,av2);}}} else{ t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(2)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(1)); t38=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12859,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t35,a[5]=t37,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1142: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38);}}}} case C_make_character(124): t29=t2; t30=C_a_i_fixnum_plus(&a,2,t29,C_fix(1)); t31=t2; t32=C_a_i_fixnum_plus(&a,2,t31,C_fix(1)); t33=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12923,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t32,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1144: collect */ t34=((C_word*)t12)[1]; f_10427(t34,t33); case C_make_character(94): t29=t4; t30=C_fixnum_and(t29,C_fix(4)); t31=C_eqp(C_fix(4),t30); t32=(C_truep(t31)?lf[195]:lf[186]); t33=t32; t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(1)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(1)); t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12949,a[2]=t33,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t35,a[6]=t37,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1147: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38); case C_make_character(36): t29=t4; t30=C_fixnum_and(t29,C_fix(4)); t31=C_eqp(C_fix(4),t30); t32=(C_truep(t31)?lf[196]:lf[187]); t33=t32; t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(1)); t36=t2; t37=C_a_i_fixnum_plus(&a,2,t36,C_fix(1)); t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12978,a[2]=t33,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t35,a[6]=t37,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1150: collect */ t39=((C_word*)t12)[1]; f_10427(t39,t38); case C_make_character(32): t29=t4; t30=C_fixnum_and(t29,C_fix(16)); t31=C_eqp(C_fix(16),t30); if(C_truep(t31)){ t32=t2; t33=C_a_i_fixnum_plus(&a,2,t32,C_fix(1)); t34=t2; t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(1)); t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13006,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t33,a[5]=t35,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1153: collect */ t37=((C_word*)t12)[1]; f_10427(t37,t36);} else{ t32=t2; t33=C_a_i_fixnum_plus(&a,2,t32,C_fix(1)); /* irregex-core.scm:1154: lp */ t340=t1; t341=t33; t342=t3; t343=t4; t344=t5; t345=t6; t1=t340; t2=t341; t3=t342; t4=t343; t5=t344; t6=t345; goto loop;} case C_make_character(35): t29=t4; t30=C_fixnum_and(t29,C_fix(16)); t31=C_eqp(C_fix(16),t30); if(C_truep(t31)){ t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13027,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,a[6]=t6,a[7]=t12,tmp=(C_word)a,a+=8,tmp); t33=t2; t34=C_a_i_fixnum_plus(&a,2,t33,C_fix(1)); /* irregex-core.scm:1157: string-scan-char */ t35=lf[54];{ C_word av2[5]; av2[0]=t35; av2[1]=t32; av2[2]=((C_word*)t0)[2]; av2[3]=C_make_character(10); av2[4]=t34; ((C_proc)(void*)(*((C_word*)t35+1)))(5,av2);}} else{ t32=t2; t33=C_a_i_fixnum_plus(&a,2,t32,C_fix(1)); /* irregex-core.scm:1160: lp */ t340=t1; t341=t33; t342=t3; t343=t4; t344=t5; t345=t6; t1=t340; t2=t341; t3=t342; t4=t343; t5=t344; t6=t345; goto loop;} default: t29=t2; t30=C_a_i_fixnum_plus(&a,2,t29,C_fix(1)); /* irregex-core.scm:1162: lp */ t340=t1; t341=t30; t342=t3; t343=t4; t344=t5; t345=t6; t1=t340; t2=t341; t3=t342; t4=t343; t5=t344; t6=t345; goto loop;}}}}} /* cased-char in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_10349,3,av);} a=C_alloc(9); t3=((C_word*)t0)[2]; t4=C_fixnum_and(t3,C_fix(2)); t5=C_eqp(C_fix(2),t4); t6=(C_truep(t5)?C_u_i_char_alphabeticp(t2):C_SCHEME_FALSE); if(C_truep(t6)){ t7=t2; t8=C_u_i_char_upper_casep(t7); t9=(C_truep(t8)?C_u_i_char_downcase(t7):C_u_i_char_upcase(t7)); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=C_a_i_list(&a,3,lf[103],t2,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t7=t2; t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* cased-string in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10371(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_10371,3,t0,t1,t2);} a=C_alloc(11); t3=((C_word*)t0)[2]; t4=C_fixnum_and(t3,C_fix(2)); t5=C_eqp(C_fix(2),t4); if(C_truep(t5)){ t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=((C_word*)((C_word*)t0)[3])[1]; t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10388,a[2]=t1,a[3]=t8,a[4]=t10,a[5]=t9,tmp=(C_word)a,a+=6,tmp); /* ##sys#string->list */ t12=*((C_word*)lf[105]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=t11; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t6=t2; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k10386 in cased-string in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_10388,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10391,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10393,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li65),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_10393(t6,t2,t1);} /* k10389 in k10386 in cased-string in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10391,2,av);} a=C_alloc(3); /* irregex-core.scm:744: sre-sequence */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* irregex-core.scm:744: sre-sequence */ f_17960(C_a_i(&a,3),t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop1459 in k10386 in cased-string in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10393(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10393,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10418,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:744: g1465 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10416 in map-loop1459 in k10386 in cased-string in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10418,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10393(t6,((C_word*)t0)[5],t5);} /* collect in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10427(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_10427,2,t0,t1);} a=C_alloc(8); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=((C_word*)t0)[4]; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10441,a[2]=t1,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10445,a[2]=((C_word*)t0)[5],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:748: scheme#substring */ t7=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k10439 in collect in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10441,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10443 in collect in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10445,2,av);} /* irregex-core.scm:748: cased-string */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10371(t2,((C_word*)t0)[3],t1);} /* collect/single in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10447(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_10447,2,t0,t1);} a=C_alloc(15); t2=((C_word*)t0)[2]; t3=C_fixnum_and(t2,C_fix(32)); t4=C_eqp(C_fix(32),t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10454,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t5,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10504,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[6],a[4]=t6,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t8=((C_word*)t0)[8]; t9=t7; f_10504(t9,C_fixnum_greaterp(t8,C_fix(1)));} else{ t8=t7; f_10504(t8,C_SCHEME_FALSE);}} /* k10452 in collect/single in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_10454,2,av);} a=C_alloc(12); t2=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10463,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10491,a[2]=((C_word*)t0)[7],a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[8])){ t6=C_fixnum_difference(((C_word*)t0)[9],t2); /* irregex-core.scm:761: utf8-string-ref */ f_13893(t5,((C_word*)t0)[6],t2,t6);} else{ t6=C_i_string_ref(((C_word*)t0)[6],t2); /* irregex-core.scm:760: cased-char */ t7=((C_word*)((C_word*)t0)[7])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t4; av2[2]=t6; f_10349(3,av2);}}}} /* k10461 in k10452 in collect/single in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_10463,2,av);} a=C_alloc(9); t2=t1; t3=((C_word*)t0)[2]; t4=C_eqp(((C_word*)t0)[3],t3); if(C_truep(t4)){ t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10483,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10487,a[2]=((C_word*)t0)[6],a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:768: scheme#substring */ t7=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k10481 in k10461 in k10452 in collect/single in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_10483,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10485 in k10461 in k10452 in collect/single in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10487,2,av);} /* irregex-core.scm:768: cased-string */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10371(t2,((C_word*)t0)[3],t1);} /* k10489 in k10452 in collect/single in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10491,2,av);} /* irregex-core.scm:760: cased-char */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; f_10349(3,av2);}} /* k10502 in collect/single in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10504(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_10504,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3]; t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14088,a[2]=t3,a[3]=t5,a[4]=((C_word)li68),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_14088(t7,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); f_10454(2,av2);}}} /* collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10519(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_10519,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10523,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:774: collect */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10427(t3,t2);} /* k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_10523,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10526,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10749,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:777: last */ f_9120(t4,t2);} else{ t4=t3; f_10526(t4,C_SCHEME_FALSE);}} /* k10524 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10526(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_10526,2,t0,t1);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10529,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10716,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t2)){ t5=C_i_car(t2); t6=t4; f_10716(t6,C_u_i_memq(t5,lf[121]));} else{ t5=t4; f_10716(t5,C_SCHEME_FALSE);}} /* k10527 in k10524 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10529(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_10529,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10532,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[4])){ t4=C_i_car(((C_word*)t0)[4]); if(C_truep((C_truep(C_eqp(t4,lf[119]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[120]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10702,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:787: ##sys#fast-reverse */ t6=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10713,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:788: ##sys#fast-reverse */ t6=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[5]; f_10532(2,av2);}}} /* k10530 in k10527 in k10524 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_10532,2,av);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10537,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li70),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_10537(t5,((C_word*)t0)[4],t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* lp in k10530 in k10527 in k10524 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10537(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(31,0,4)))){ C_save_and_reclaim_args((void *)trf_10537,5,t0,t1,t2,t3,t4);} a=C_alloc(31); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10540,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t2))){ t6=( /* irregex-core.scm:795: shift */ f_10540(C_a_i(&a,6),t5) ); t7=( /* irregex-core.scm:795: sre-alternate */ f_17983(C_a_i(&a,3),t6) ); t8=((C_word*)t0)[2]; t9=C_fixnum_and(t8,C_fix(1)); t10=C_eqp(C_fix(1),t9); t11=(C_truep(t10)?C_a_i_list2(&a,2,lf[108],t7):t7); t12=t11; if(C_truep(((C_word*)t0)[3])){ t13=C_i_car(((C_word*)t0)[3]); t14=C_eqp(lf[109],t13); if(C_truep(t14)){ t15=C_i_pairp(t12); if(C_truep(C_i_not(t15))){ t16=t1;{ C_word av2[2]; av2[0]=t16; av2[1]=lf[110]; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t16=C_i_car(t12); if(C_truep((C_truep(C_eqp(t16,lf[111]))?C_SCHEME_TRUE:(C_truep(C_eqp(t16,lf[112]))?C_SCHEME_TRUE:(C_truep(C_eqp(t16,lf[113]))?C_SCHEME_TRUE:(C_truep(C_eqp(t16,lf[114]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){ t17=t1;{ C_word av2[2]; av2[0]=t17; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} else{ t17=C_u_i_car(t12); t18=C_eqp(lf[115],t17); if(C_truep(t18)){ t19=C_i_cadr(t12); t20=C_u_i_cdr(t12); t21=C_u_i_cdr(t20); t22=( /* irregex-core.scm:810: sre-sequence */ f_17960(C_a_i(&a,3),t21) ); t23=t1;{ C_word av2[2]; av2[0]=t23; av2[1]=C_a_i_list(&a,3,lf[109],t19,t22); ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} else{ t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10610,a[2]=t12,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:812: scheme#cadadr */ t20=*((C_word*)lf[117]+1);{ C_word av2[3]; av2[0]=t20; av2[1]=t19; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}}}}} else{ t15=C_a_i_list(&a,1,t12); /* irregex-core.scm:815: ##sys#append */ t16=*((C_word*)lf[118]+1);{ C_word av2[4]; av2[0]=t16; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}}} else{ t13=t1;{ C_word av2[2]; av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ t6=C_i_car(t2); t7=C_eqp(lf[103],t6); if(C_truep(t7)){ t8=t2; t9=C_u_i_cdr(t8); t10=( /* irregex-core.scm:817: shift */ f_10540(C_a_i(&a,6),t5) ); /* irregex-core.scm:817: lp */ t24=t1; t25=t9; t26=C_SCHEME_END_OF_LIST; t27=t10; t1=t24; t2=t25; t3=t26; t4=t27; goto loop;} else{ t8=t2; t9=C_u_i_cdr(t8); t10=t2; t11=C_u_i_car(t10); t12=C_a_i_cons(&a,2,t11,t3); /* irregex-core.scm:818: lp */ t24=t1; t25=t9; t26=t12; t27=t4; t1=t24; t2=t25; t3=t26; t4=t27; goto loop;}}} /* shift in lp in k10530 in k10527 in k10524 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static C_word C_fcall f_10540(C_word *a,C_word t0){ C_word tmp; C_word t1; C_word t2; C_stack_overflow_check;{} t1=( /* irregex-core.scm:792: sre-sequence */ f_17960(C_a_i(&a,3),((C_word*)t0)[2]) ); return(C_a_i_cons(&a,2,t1,((C_word*)t0)[3]));} /* k10608 in lp in k10530 in k10527 in k10524 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_10610,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10626,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:813: scheme#cddadr */ t4=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10624 in k10608 in lp in k10530 in k10527 in k10524 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_10626,2,av);} a=C_alloc(18); t2=( /* irregex-core.scm:813: sre-sequence */ f_17960(C_a_i(&a,3),t1) ); t3=C_i_cddr(((C_word*)t0)[2]); t4=( /* irregex-core.scm:814: sre-alternate */ f_17983(C_a_i(&a,3),t3) ); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,4,lf[109],((C_word*)t0)[4],t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10700 in k10527 in k10524 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10702,2,av);} t2=C_i_cddr(t1); /* irregex-core.scm:787: ##sys#fast-reverse */ t3=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k10711 in k10527 in k10524 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10713,2,av);} t2=C_i_cdr(t1); /* irregex-core.scm:788: ##sys#fast-reverse */ t3=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k10714 in k10524 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10716(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10716,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10727,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:783: ##sys#fast-reverse */ t3=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ t2=C_i_car(((C_word*)t0)[4]); t3=((C_word*)t0)[2]; f_10529(t3,C_a_i_list1(&a,1,t2));} else{ t2=((C_word*)t0)[2]; f_10529(t2,C_SCHEME_FALSE);}}} /* k10725 in k10714 in k10524 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_10727,2,av);} a=C_alloc(6); t2=C_i_cadr(t1); t3=((C_word*)t0)[2]; f_10529(t3,C_a_i_list2(&a,2,lf[120],t2));} /* k10747 in k10521 in collect/terms in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10749,2,av);} t2=((C_word*)t0)[2]; f_10526(t2,C_u_i_memq(t1,lf[122]));} /* save in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10752(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10752,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10764,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:820: collect */ t3=((C_word*)((C_word*)t0)[4])[1]; f_10427(t3,t2);} /* k10762 in save in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_10764,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10822 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){ C_save_and_reclaim((void *)f_10824,2,av);} a=C_alloc(28); t2=t1; if(C_truep(C_i_nullp(t2))){ /* irregex-core.scm:837: chicken.base#error */ t3=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[126]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_i_car(t2); t4=((C_word*)t0)[4]; t5=C_a_i_fixnum_plus(&a,2,t4,C_fix(1)); t6=((C_word*)t0)[4]; t7=C_a_i_fixnum_plus(&a,2,t6,C_fix(1)); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10853,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=t7,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_pairp(t3))){ t9=C_u_i_car(t3); t10=C_eqp(t9,lf[127]); if(C_truep(t10)){ t11=C_u_i_cdr(t3); t12=t8; f_10853(t12,C_a_i_cons(&a,2,lf[128],t11));} else{ t11=C_eqp(t9,lf[129]); if(C_truep(t11)){ t12=C_u_i_cdr(t3); t13=C_a_i_cons(&a,2,C_SCHEME_FALSE,t12); t14=C_a_i_cons(&a,2,C_fix(1),t13); t15=t8; f_10853(t15,C_a_i_cons(&a,2,lf[130],t14));} else{ t12=C_eqp(t9,lf[131]); if(C_truep(t12)){ t13=C_u_i_cdr(t3); t14=t8; f_10853(t14,C_a_i_cons(&a,2,lf[132],t13));} else{ t13=C_eqp(t9,lf[133]); if(C_truep(t13)){ t14=C_u_i_cdr(t3); t15=t8; f_10853(t15,C_a_i_cons(&a,2,lf[130],t14));} else{ t14=C_eqp(t9,lf[134]); if(C_truep(t14)){ t15=C_i_cadr(t3); t16=C_u_i_cdr(t3); t17=C_a_i_cons(&a,2,t15,t16); t18=t8; f_10853(t18,C_a_i_cons(&a,2,lf[130],t17));} else{ t15=C_eqp(t9,lf[135]); if(C_truep(t15)){ t16=C_i_cadr(t3); t17=C_u_i_cdr(t3); t18=C_u_i_cdr(t17); t19=C_a_i_cons(&a,2,C_SCHEME_FALSE,t18); t20=C_a_i_cons(&a,2,t16,t19); t21=t8; f_10853(t21,C_a_i_cons(&a,2,lf[130],t20));} else{ t16=t8; f_10853(t16,C_a_i_list(&a,2,lf[131],t3));}}}}}}} else{ t9=t8; f_10853(t9,C_a_i_list(&a,2,lf[131],t3));}}} /* k10851 in k10822 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_10853(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){ C_save_and_reclaim_args((void *)trf_10853,2,t0,t1);} a=C_alloc(3); t2=C_u_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); /* irregex-core.scm:839: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_10346(t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,((C_word*)t0)[8]);} /* k10982 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_10984,2,av);} a=C_alloc(12); t2=t1; t3=C_i_pairp(t2); t4=(C_truep(t3)?C_u_i_car(t2):lf[110]); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10990,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); t7=C_a_i_string(&a,1,((C_word*)t0)[8]); /* irregex-core.scm:858: scheme#string->symbol */ t8=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k10988 in k10982 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_10990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_10990,2,av);} a=C_alloc(11); t2=t1; t3=( /* irregex-core.scm:860: sre-repeater? */ f_16439(((C_word*)t0)[2]) ); if(C_truep(t3)){ /* irregex-core.scm:861: chicken.base#error */ t4=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[137]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11005,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:862: sre-empty? */ t5=lf[139];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; f_16171(3,av2);}}} /* k11003 in k10988 in k10982 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,6)))){ C_save_and_reclaim((void *)f_11005,2,av);} a=C_alloc(19); if(C_truep(t1)){ /* irregex-core.scm:863: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[138]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[5]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); t4=((C_word*)t0)[5]; t5=C_a_i_fixnum_plus(&a,2,t4,C_fix(1)); t6=C_a_i_list2(&a,2,((C_word*)t0)[6],((C_word*)t0)[7]); t7=C_i_cdr(((C_word*)t0)[4]); t8=C_a_i_cons(&a,2,t6,t7); /* irregex-core.scm:865: lp */ t9=((C_word*)((C_word*)t0)[8])[1]; f_10346(t9,((C_word*)t0)[2],t3,t5,((C_word*)t0)[9],t8,((C_word*)t0)[10]);}} /* k11074 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11076,2,av);} /* irregex-core.scm:873: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t1);} /* a11105 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_11106,4,av);} a=C_alloc(10); t4=t3; t5=C_fixnum_greater_or_equal_p(t4,((C_word*)t0)[2]); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11116,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); if(C_truep(t5)){ t7=t6; f_11116(t7,t5);} else{ t7=C_i_string_ref(((C_word*)t0)[3],t3); t8=C_eqp(C_make_character(41),t7); t9=t6; f_11116(t9,C_i_not(t8));}} /* k11114 in a11105 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_11116(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_11116,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ /* irregex-core.scm:881: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[143]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t3=t2; t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11138,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t5,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:882: collect */ t7=((C_word*)((C_word*)t0)[9])[1]; f_10427(t7,t6);}} /* k11136 in k11114 in a11105 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_11138,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:882: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k11171 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_11173,2,av);} a=C_alloc(8); t2=C_fixnum_plus(t1,((C_word*)t0)[2]); t3=t2; t4=C_fixnum_plus(t1,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11188,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:888: collect */ t7=((C_word*)((C_word*)t0)[7])[1]; f_10427(t7,t6);} /* k11186 in k11171 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11188,2,av);} /* irregex-core.scm:888: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* k11212 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11214,2,av);} /* irregex-core.scm:890: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t1);} /* k11235 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11237,2,av);} /* irregex-core.scm:892: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[145],t1);} /* k11258 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11260,2,av);} /* irregex-core.scm:895: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[146],t1);} /* k11300 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11302,2,av);} /* irregex-core.scm:904: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[148],t1);} /* k11323 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11325,2,av);} /* irregex-core.scm:907: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[149],t1);} /* k11326 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_11328,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=C_fixnum_plus(t1,C_fix(1)); t3=t2; t4=C_fixnum_plus(t1,C_fix(1)); t5=t4; t6=((C_word*)t0)[2]; t7=C_fixnum_not(C_fix(1)); t8=C_fixnum_and(t6,t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11358,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t5,a[6]=t9,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11362,a[2]=t10,tmp=(C_word)a,a+=3,tmp); t12=((C_word*)t0)[6]; t13=C_a_i_fixnum_plus(&a,2,t12,C_fix(3)); /* irregex-core.scm:915: scheme#substring */ t14=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t14; av2[1]=t11; av2[2]=((C_word*)t0)[7]; av2[3]=t13; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}} else{ /* irregex-core.scm:918: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[150]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k11352 in k11356 in k11326 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11354,2,av);} /* irregex-core.scm:914: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k11356 in k11326 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_11358,2,av);} a=C_alloc(14); t2=C_a_i_list(&a,2,t1,lf[120]); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11354,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:917: save */ t5=((C_word*)((C_word*)t0)[7])[1]; f_10752(t5,t4);} /* k11360 in k11326 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11362,2,av);} /* irregex-core.scm:915: scheme#string->symbol */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11412 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11414,2,av);} /* irregex-core.scm:920: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[151],t1);} /* k11437 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_11439,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11442,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11476,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=((C_word*)t0)[7]; t6=C_a_i_fixnum_plus(&a,2,t5,C_fix(3)); /* irregex-core.scm:932: scheme#substring */ t7=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t6; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k11440 in k11437 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_11442,2,av);} a=C_alloc(24); if(C_truep(C_i_not(t1))){ /* irregex-core.scm:934: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[153]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); t4=((C_word*)t0)[5]; t5=C_fixnum_not(C_fix(1)); t6=C_fixnum_and(t4,t5); t7=t6; t8=C_a_i_list(&a,2,t1,lf[109]); t9=t8; t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11472,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=t7,a[7]=t9,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:936: save */ t11=((C_word*)((C_word*)t0)[7])[1]; f_10752(t11,t10);}} /* k11470 in k11440 in k11437 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11472,2,av);} /* irregex-core.scm:935: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k11474 in k11437 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11476,2,av);} /* irregex-core.scm:932: scheme#string->number */ t2=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11489 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_11491,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11494,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11519,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=((C_word*)t0)[6]; t6=C_a_i_fixnum_plus(&a,2,t5,C_fix(3)); /* irregex-core.scm:939: scheme#substring */ t7=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=t6; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k11492 in k11489 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_11494,2,av);} a=C_alloc(24); t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); t4=((C_word*)t0)[3]; t5=C_fixnum_not(C_fix(1)); t6=C_fixnum_and(t4,t5); t7=t6; t8=C_a_i_list(&a,2,t1,lf[109]); t9=t8; t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11515,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t3,a[6]=t7,a[7]=t9,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:941: save */ t11=((C_word*)((C_word*)t0)[6])[1]; f_10752(t11,t10);} /* k11513 in k11492 in k11489 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11515,2,av);} /* irregex-core.scm:940: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k11517 in k11489 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11519,2,av);} /* irregex-core.scm:939: scheme#string->symbol */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11540 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_11542,2,av);} /* irregex-core.scm:943: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[154],t1);} /* lp2 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_11573(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(38,0,4)))){ C_save_and_reclaim_args((void *)trf_11573,5,t0,t1,t2,t3,t4);} a=C_alloc(38); t5=C_SCHEME_UNDEFINED; t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11576,a[2]=t4,a[3]=t3,a[4]=((C_word)li74),tmp=(C_word)a,a+=5,tmp); t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11585,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li75),tmp=(C_word)a,a+=5,tmp)); t10=t2; if(C_truep(C_fixnum_greater_or_equal_p(t10,((C_word*)t0)[3]))){ /* irregex-core.scm:960: chicken.base#error */ t11=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t1; av2[2]=lf[158]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} else{ t11=C_i_string_ref(((C_word*)t0)[4],t2); switch(t11){ case C_make_character(105): t12=t2; t13=C_a_i_fixnum_plus(&a,2,t12,C_fix(1)); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11633,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t13,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:964: join */ t15=t5; f_11576(t15,t14,C_fix(2)); case C_make_character(109): t12=t2; t13=C_a_i_fixnum_plus(&a,2,t12,C_fix(1)); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11649,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t13,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:966: join */ t15=t5; f_11576(t15,t14,C_fix(4)); case C_make_character(120): t12=t2; t13=C_a_i_fixnum_plus(&a,2,t12,C_fix(1)); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11665,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t13,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:968: join */ t15=t5; f_11576(t15,t14,C_fix(16)); case C_make_character(117): t12=t2; t13=C_a_i_fixnum_plus(&a,2,t12,C_fix(1)); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11684,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t13,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:971: join */ t15=t5; f_11576(t15,t14,C_fix(32)); case C_make_character(45): t12=t2; t13=C_a_i_fixnum_plus(&a,2,t12,C_fix(1)); t14=C_i_not(t4); /* irregex-core.scm:974: lp2 */ t40=t1; t41=t13; t42=t3; t43=t14; t1=t40; t2=t41; t3=t42; t4=t43; goto loop; case C_make_character(41): t12=t2; t13=C_a_i_fixnum_plus(&a,2,t12,C_fix(1)); t14=t2; t15=C_a_i_fixnum_plus(&a,2,t14,C_fix(1)); t16=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11729,a[2]=t7,a[3]=((C_word*)t0)[7],a[4]=t1,a[5]=t13,a[6]=t15,a[7]=t3,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:976: collect */ t17=((C_word*)((C_word*)t0)[9])[1]; f_10427(t17,t16); case C_make_character(58): t12=t2; t13=C_a_i_fixnum_plus(&a,2,t12,C_fix(1)); t14=t2; t15=C_a_i_fixnum_plus(&a,2,t14,C_fix(1)); t16=( /* irregex-core.scm:979: new-res */ f_11585(C_a_i(&a,6),((C_word*)t7)[1],C_SCHEME_END_OF_LIST) ); t17=t16; t18=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11760,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[7],a[5]=t1,a[6]=t13,a[7]=t15,a[8]=t3,a[9]=t17,tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:980: collect */ t19=((C_word*)((C_word*)t0)[9])[1]; f_10427(t19,t18); default: /* irregex-core.scm:982: chicken.base#error */ t12=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t1; av2[2]=lf[159]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}}}} /* join in lp2 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_11576(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_11576,3,t0,t1,t2);} if(C_truep(((C_word*)t0)[2])){ t3=lf[64]; t4=lf[64]; t5=t1; t6=((C_word*)t0)[3]; t7=t2; t8=C_fixnum_not(t7); t9=t5;{ C_word av2[2]; av2[0]=t9; av2[1]=C_fixnum_and(t6,t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t3=lf[63]; t4=lf[63]; t5=t1; t6=((C_word*)t0)[3]; t7=t2; t8=t5;{ C_word av2[2]; av2[0]=t8; av2[1]=(C_truep(t7)?C_fixnum_or(t6,t7):t6); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* new-res in lp2 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static C_word C_fcall f_11585(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_stack_overflow_check;{} t2=C_fixnum_and(((C_word*)t0)[2],C_fix(32)); t3=C_eqp(C_fix(32),t2); t4=((C_word*)t0)[3]; t5=C_fixnum_and(t4,C_fix(32)); t6=C_eqp(C_fix(32),t5); t7=C_eqp(t3,t6); if(C_truep(t7)){ t8=t1; return(t8);} else{ return((C_truep(t6)?C_a_i_cons(&a,2,lf[156],t1):C_a_i_cons(&a,2,lf[157],t1)));}} /* k11631 in lp2 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11633,2,av);} /* irregex-core.scm:964: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11573(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k11647 in lp2 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11649,2,av);} /* irregex-core.scm:966: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11573(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k11663 in lp2 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11665,2,av);} /* irregex-core.scm:968: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11573(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k11682 in lp2 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11684,2,av);} /* irregex-core.scm:971: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11573(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k11727 in lp2 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_11729,2,av);} a=C_alloc(6); t2=( /* irregex-core.scm:976: new-res */ f_11585(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1) ); /* irregex-core.scm:976: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k11758 in lp2 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_11760,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); /* irregex-core.scm:979: lp */ t4=((C_word*)((C_word*)t0)[4])[1]; f_10346(t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t3);} /* k11849 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_11851,2,av);} a=C_alloc(3); t2=C_i_cdar(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); /* irregex-core.scm:987: lp */ t6=((C_word*)((C_word*)t0)[3])[1]; f_10346(t6,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,t5);} /* a11865 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_11866,4,av);} a=C_alloc(9); t4=C_fixnum_plus(t3,C_fix(1)); t5=t4; t6=C_fixnum_plus(t3,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11886,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,a[6]=t7,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:995: collect */ t9=((C_word*)((C_word*)t0)[5])[1]; f_10427(t9,t8);} /* k11884 in a11865 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_11886,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:995: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k11888 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11890,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_11909(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,6)))){ C_save_and_reclaim_args((void *)trf_11909,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); /* irregex-core.scm:1002: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_10346(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11918,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1004: collect/single */ t3=((C_word*)((C_word*)t0)[10])[1]; f_10447(t3,t2);}} /* k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_11918,2,av);} a=C_alloc(15); if(C_truep(C_i_nullp(t1))){ /* irregex-core.scm:1007: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[174]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_i_car(t1); t3=t2; t4=C_u_i_cdr(t1); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11934,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); t6=((C_word*)t0)[6]; t7=C_a_i_fixnum_plus(&a,2,t6,C_fix(1)); /* irregex-core.scm:1011: string-scan-char */ t8=lf[54];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=C_make_character(125); av2[4]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* k11932 in k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_11934,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11937,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12062,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=((C_word*)t0)[8]; t6=C_a_i_fixnum_plus(&a,2,t5,C_fix(1)); /* irregex-core.scm:1012: scheme#substring */ t7=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=t6; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k11935 in k11932 in k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_11937,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11940,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_i_car(t2); /* irregex-core.scm:1014: scheme#string->number */ t5=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11938 in k11935 in k11932 in k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_11940,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11943,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=C_u_i_cdr(((C_word*)t0)[3]); if(C_truep(C_i_pairp(t4))){ t5=C_i_cadr(((C_word*)t0)[3]); /* irregex-core.scm:1016: scheme#string->number */ t6=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_11943(2,av2);}}} /* k11941 in k11938 in k11935 in k11932 in k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_11943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_11943,2,av);} a=C_alloc(12); t2=t1; t3=C_i_not(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11952,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,tmp=(C_word)a,a+=12,tmp); if(C_truep(t3)){ t5=t4; f_11952(t5,t3);} else{ t5=C_u_i_cdr(((C_word*)t0)[4]); if(C_truep(C_i_pairp(t5))){ t6=C_i_cadr(((C_word*)t0)[4]); t7=C_i_equalp(lf[176],t6); t8=C_i_not(t7); t9=t4; f_11952(t9,(C_truep(t8)?C_i_not(t2):C_SCHEME_FALSE));} else{ t6=t4; f_11952(t6,C_SCHEME_FALSE);}}} /* k11950 in k11941 in k11938 in k11935 in k11932 in k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_11952(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,0,6)))){ C_save_and_reclaim_args((void *)trf_11952,2,t0,t1);} a=C_alloc(25); if(C_truep(t1)){ /* irregex-core.scm:1022: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[175]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_u_i_cdr(((C_word*)t0)[3]); if(C_truep(C_i_nullp(t2))){ t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); t5=C_a_i_list(&a,3,lf[134],((C_word*)t0)[5],((C_word*)t0)[6]); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[7]); /* irregex-core.scm:1024: lp */ t7=((C_word*)((C_word*)t0)[8])[1]; f_10346(t7,((C_word*)t0)[2],t3,t4,((C_word*)t0)[9],t6,((C_word*)t0)[10]);} else{ if(C_truep(((C_word*)t0)[11])){ t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); t5=C_a_i_list(&a,4,lf[133],((C_word*)t0)[5],((C_word*)t0)[11],((C_word*)t0)[6]); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[7]); /* irregex-core.scm:1026: lp */ t7=((C_word*)((C_word*)t0)[8])[1]; f_10346(t7,((C_word*)t0)[2],t3,t4,((C_word*)t0)[9],t6,((C_word*)t0)[10]);} else{ t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); t5=C_a_i_list(&a,3,lf[135],((C_word*)t0)[5],((C_word*)t0)[6]); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[7]); /* irregex-core.scm:1028: lp */ t7=((C_word*)((C_word*)t0)[8])[1]; f_10346(t7,((C_word*)t0)[2],t3,t4,((C_word*)t0)[9],t6,((C_word*)t0)[10]);}}}} /* k12060 in k11932 in k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_12062,2,av);} a=C_alloc(8); t2=t1; t3=C_i_string_length(t2); t4=t3; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8832,a[2]=t2,a[3]=t4,a[4]=t6,a[5]=((C_word)li84),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_8832(t8,((C_word*)t0)[2],C_fix(0),C_fix(0),C_SCHEME_END_OF_LIST);} /* k12136 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12138,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[178],t1); /* irregex-core.scm:1038: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12163 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12165,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1040: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k12186 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12188,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[79],t1); /* irregex-core.scm:1042: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12213 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12215,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1044: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k12240 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12242,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1046: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k12271 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12273,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1049: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k12306 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12308,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1052: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k12329 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12331,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[185],t1); /* irregex-core.scm:1055: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12352 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12354,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[186],t1); /* irregex-core.scm:1057: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12383 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_12385,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[187],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); /* irregex-core.scm:1059: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_10346(t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,((C_word*)t0)[8]);} /* k12406 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12408,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[187],t1); /* irregex-core.scm:1062: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12429 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12431,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[80],t1); /* irregex-core.scm:1064: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12452 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12454,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[188],t1); /* irregex-core.scm:1066: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12475 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12477,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[183],t1); /* irregex-core.scm:1069: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12498 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12500,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[184],t1); /* irregex-core.scm:1071: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* a12510 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12511,4,av);} a=C_alloc(9); t4=C_fixnum_plus(t3,C_fix(1)); t5=t4; t6=C_fixnum_plus(t3,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12531,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,a[6]=t7,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1075: collect */ t9=((C_word*)((C_word*)t0)[5])[1]; f_10427(t9,t8);} /* k12529 in a12510 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12531,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1075: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k12533 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12535,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* k12557 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_12559(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_12559,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12562,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=((C_word*)t0)[8]; t4=C_a_i_fixnum_plus(&a,2,t3,C_fix(2)); /* irregex-core.scm:1082: string-scan-char */ t5=lf[54];{ C_word av2[5]; av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=t1; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k12560 in k12557 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_12562,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12565,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=((C_word*)t0)[8]; t5=C_a_i_fixnum_plus(&a,2,t4,C_fix(3)); /* irregex-core.scm:1083: scheme#substring */ t6=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t5; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_12565(2,av2);}}} /* k12563 in k12560 in k12557 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_12565,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=C_fixnum_and(t2,C_fix(2)); t4=C_eqp(C_fix(2),t3); t5=(C_truep(t4)?lf[191]:lf[192]); t6=t5; if(C_truep(C_i_not(((C_word*)t0)[3]))){ /* irregex-core.scm:1089: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=((C_word*)t0)[4]; av2[2]=lf[193]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t8=t7; t9=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t10=t9; t11=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12604,a[2]=t6,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],a[5]=t8,a[6]=t10,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:1091: scheme#string->symbol */ t12=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} /* k12598 in k12602 in k12563 in k12560 in k12557 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12600,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1090: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k12602 in k12563 in k12560 in k12557 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_12604,2,av);} a=C_alloc(15); t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12600,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1092: collect */ t5=((C_word*)((C_word*)t0)[9])[1]; f_10427(t5,t4);} /* k12629 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_12631,2,av);} a=C_alloc(18); t2=t1; t3=((C_word*)t0)[2]; t4=C_a_i_fixnum_plus(&a,2,t3,C_fix(2)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12639,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t6,a[10]=((C_word)li86),tmp=(C_word)a,a+=11,tmp)); t8=((C_word*)t6)[1]; f_12639(t8,((C_word*)t0)[8],t4);} /* lp2 in k12629 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_12639(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,6)))){ C_save_and_reclaim_args((void *)trf_12639,3,t0,t1,t2);} a=C_alloc(29); t3=t2; if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]))){ t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(2)); /* irregex-core.scm:1099: lp */ t5=((C_word*)((C_word*)t0)[4])[1]; f_10346(t5,t1,t2,t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} else{ t4=C_i_string_ref(((C_word*)t0)[8],t2); t5=C_eqp(C_make_character(92),t4); if(C_truep(t5)){ t6=t2; t7=C_a_i_fixnum_plus(&a,2,t6,C_fix(1)); if(C_truep(C_i_integer_greater_or_equalp(t7,((C_word*)t0)[2]))){ t8=t2; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); t10=C_fixnum_plus(((C_word*)t0)[3],C_fix(2)); /* irregex-core.scm:1103: lp */ t11=((C_word*)((C_word*)t0)[4])[1]; f_10346(t11,t1,t9,t10,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} else{ t8=t2; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); t10=C_i_string_ref(((C_word*)t0)[8],t9); t11=C_eqp(C_make_character(69),t10); if(C_truep(t11)){ t12=t2; t13=C_a_i_fixnum_plus(&a,2,t12,C_fix(2)); t14=t2; t15=C_a_i_fixnum_plus(&a,2,t14,C_fix(2)); t16=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12699,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t13,a[6]=t15,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t17=C_fixnum_plus(((C_word*)t0)[3],C_fix(2)); /* irregex-core.scm:1106: scheme#substring */ t18=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t18; av2[1]=t16; av2[2]=((C_word*)t0)[8]; av2[3]=t17; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t18+1)))(5,av2);}} else{ t12=t2; t13=C_a_i_fixnum_plus(&a,2,t12,C_fix(2)); /* irregex-core.scm:1108: lp2 */ t19=t1; t20=t13; t1=t19; t2=t20; goto loop;}}} else{ t6=t2; t7=C_a_i_fixnum_plus(&a,2,t6,C_fix(1)); /* irregex-core.scm:1110: lp2 */ t19=t1; t20=t7; t1=t19; t2=t20; goto loop;}}} /* k12697 in lp2 in k12629 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12699,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:1105: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* a12741 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_12742,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12754,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1114: collect */ t5=((C_word*)((C_word*)t0)[5])[1]; f_10427(t5,t4);} /* k12752 in a12741 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12754,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1114: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12761 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_12763,2,av);} a=C_alloc(17); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); t3=t2; t4=((C_word*)t0)[3]; t5=C_fixnum_and(t4,C_fix(2)); t6=C_eqp(C_fix(2),t5); t7=(C_truep(t6)?lf[191]:lf[192]); t8=t7; t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12787,a[2]=t8,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12791,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=((C_word*)t0)[8]; t12=C_a_i_fixnum_plus(&a,2,t11,C_fix(1)); /* irregex-core.scm:1132: scheme#substring */ t13=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t10; av2[2]=((C_word*)t0)[9]; av2[3]=t12; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} /* k12781 in k12785 in k12761 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12783,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1134: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12785 in k12761 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_12787,2,av);} a=C_alloc(14); t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12783,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1133: collect */ t5=((C_word*)((C_word*)t0)[8])[1]; f_10427(t5,t4);} /* k12789 in k12761 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12791,2,av);} /* irregex-core.scm:1131: scheme#string->number */ t2=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a12798 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12799,3,av);} t3=C_u_i_char_numericp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k12841 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12843,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1138: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k12857 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_12859,2,av);} /* irregex-core.scm:1142: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* k12921 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12923,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[103],t1); /* irregex-core.scm:1144: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_10346(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} /* k12947 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12949,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1147: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k12976 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_12978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_12978,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1150: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_10346(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} /* k13004 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_13006,2,av);} /* irregex-core.scm:1153: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* k13025 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_13027,2,av);} a=C_alloc(13); t2=(C_truep(t1)?t1:C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1))); t3=C_fixnum_plus(t2,C_fix(1)); t4=t3; t5=C_fixnum_plus(t2,C_fix(1)); t6=t5; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13045,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=t6,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1159: collect */ t8=((C_word*)((C_word*)t0)[7])[1]; f_10427(t8,t7);} /* k13043 in k13025 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_13045,2,av);} /* irregex-core.scm:1159: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_10346(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* chicken.irregex#string-parse-hex-escape in k7651 in k7426 in k7423 */ static void C_fcall f_13159(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,0,4)))){ C_save_and_reclaim_args((void *)trf_13159,4,t1,t2,t3,t4);} a=C_alloc(21); t5=t3; t6=t4; if(C_truep(C_fixnum_greater_or_equal_p(t5,t6))){ /* irregex-core.scm:1182: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t1; av2[2]=lf[199]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=C_i_string_ref(t2,t3); t8=C_eqp(C_make_character(123),t7); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13178,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t10=t3; t11=C_a_i_fixnum_plus(&a,2,t10,C_fix(1)); t12=t2; t13=C_a_i_list(&a,1,t11); t14=C_i_string_length(t12); t15=t14; t16=C_i_pairp(t13); t17=(C_truep(t16)?C_u_i_car(t13):C_fix(0)); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8737,a[2]=t15,a[3]=t12,a[4]=t19,a[5]=((C_word)li92),tmp=(C_word)a,a+=6,tmp)); t21=((C_word*)t19)[1]; f_8737(t21,t9,t17);} else{ t9=t3; t10=C_a_i_fixnum_plus(&a,2,t9,C_fix(1)); t11=t4; if(C_truep(C_fixnum_greater_or_equal_p(t10,t11))){ /* irregex-core.scm:1193: chicken.base#error */ t12=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t12; av2[1]=t1; av2[2]=lf[202]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} else{ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13224,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t13=t3; t14=C_a_i_fixnum_plus(&a,2,t13,C_fix(2)); /* irregex-core.scm:1195: scheme#substring */ t15=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t15; av2[1]=t12; av2[2]=t2; av2[3]=t3; av2[4]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}}}}} /* k13176 in chicken.irregex#string-parse-hex-escape in k7651 in k7426 in k7423 */ static void C_ccall f_13178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_13178,2,av);} a=C_alloc(9); t2=t1; if(C_truep(C_i_not(t2))){ /* irregex-core.scm:1186: chicken.base#error */ t3=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[200]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13190,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[4]; t5=C_a_i_fixnum_plus(&a,2,t4,C_fix(1)); /* irregex-core.scm:1187: scheme#substring */ t6=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t5; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k13188 in k13176 in chicken.irregex#string-parse-hex-escape in k7651 in k7426 in k7423 */ static void C_ccall f_13190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13190,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13193,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1188: scheme#string->number */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k13191 in k13188 in k13176 in chicken.irregex#string-parse-hex-escape in k7651 in k7426 in k7423 */ static void C_ccall f_13193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_13193,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_make_character(C_unfix(t1)); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list2(&a,2,t2,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* irregex-core.scm:1191: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[201]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k13222 in chicken.irregex#string-parse-hex-escape in k7651 in k7426 in k7423 */ static void C_ccall f_13224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13224,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13227,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1196: scheme#string->number */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k13225 in k13222 in chicken.irregex#string-parse-hex-escape in k7651 in k7426 in k7423 */ static void C_ccall f_13227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_13227,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=C_make_character(C_unfix(t1)); t3=((C_word*)t0)[2]; t4=C_a_i_fixnum_plus(&a,2,t3,C_fix(2)); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list2(&a,2,t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* irregex-core.scm:1199: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[203]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_13263(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,0,5)))){ C_save_and_reclaim_args((void *)trf_13263,2,t0,t1);} a=C_alloc(17); t2=t1; t3=C_fixnum_and(((C_word*)t0)[2],C_fix(32)); t4=C_eqp(C_fix(32),t3); t5=t4; t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13268,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t7,a[5]=((C_word*)t0)[2],a[6]=t2,a[7]=((C_word*)t0)[5],a[8]=t5,a[9]=((C_word)li82),tmp=(C_word)a,a+=10,tmp)); if(C_truep(t2)){ t9=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); t10=C_fixnum_and(((C_word*)t0)[2],C_fix(4)); t11=C_eqp(C_fix(4),t10); if(C_truep(t11)){ t12=C_a_i_cons(&a,2,C_make_character(10),C_make_character(10)); t13=C_a_i_vector1(&a,1,t12); /* irregex-core.scm:1285: go */ t14=((C_word*)t7)[1]; f_13268(t14,((C_word*)t0)[6],t9,C_SCHEME_FALSE,t13);} else{ t12=C_a_i_vector(&a,0); /* irregex-core.scm:1285: go */ t13=((C_word*)t7)[1]; f_13268(t13,((C_word*)t0)[6],t9,C_SCHEME_FALSE,t12);}} else{ t9=C_a_i_vector(&a,0); /* irregex-core.scm:1290: go */ t10=((C_word*)t7)[1]; f_13268(t10,((C_word*)t0)[6],((C_word*)t0)[5],C_SCHEME_FALSE,t9);}} /* go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_13268(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,5)))){ C_save_and_reclaim_args((void *)trf_13268,5,t0,t1,t2,t3,t4);} a=C_alloc(18); t5=t2; if(C_truep(C_fixnum_greater_or_equal_p(t5,((C_word*)t0)[2]))){ /* irregex-core.scm:1207: chicken.base#error */ t6=*((C_word*)lf[30]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=t1; av2[2]=lf[161]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t6=C_i_string_ref(((C_word*)t0)[3],t2); t7=t6; switch(t7){ case C_make_character(93): t8=t4; t9=C_i_vector_length(t8); t10=C_eqp(t9,C_fix(0)); if(C_truep(t10)){ t11=t2; t12=C_a_i_fixnum_plus(&a,2,t11,C_fix(1)); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13303,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t12,tmp=(C_word)a,a+=5,tmp); t14=t4; t15=C_a_i_cons(&a,2,C_make_character(93),C_make_character(93)); t16=C_a_i_vector1(&a,1,t15); /* irregex-core.scm:3766: cset-union */ t17=lf[162];{ C_word av2[4]; av2[0]=t17; av2[1]=t13; av2[2]=t14; av2[3]=t16; f_26803(4,av2);}} else{ t11=C_fixnum_and(((C_word*)t0)[5],C_fix(2)); t12=C_eqp(C_fix(2),t11); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13313,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); if(C_truep(t12)){ /* irregex-core.scm:1215: cset-case-insensitive */ f_27330(t13,t4);} else{ t14=t13;{ C_word av2[2]; av2[0]=t14; av2[1]=t4; f_13313(2,av2);}}} case C_make_character(45): t8=t2; t9=C_eqp(t8,((C_word*)t0)[7]); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13341,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t7,a[6]=t4,a[7]=t3,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); if(C_truep(t9)){ t11=t10; f_13341(t11,t9);} else{ t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13490,a[2]=t10,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t12=C_fixnum_plus(((C_word*)t0)[7],C_fix(1)); t13=t2; t14=C_eqp(t13,t12); if(C_truep(t14)){ t15=C_i_string_ref(((C_word*)t0)[3],((C_word*)t0)[7]); t16=t11; f_13490(t16,C_eqp(C_make_character(94),t15));} else{ t15=t11; f_13490(t15,C_SCHEME_FALSE);}} case C_make_character(91): t8=t2; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); t10=C_i_string_ref(((C_word*)t0)[3],t9); t11=C_eqp(C_make_character(94),t10); t12=t11; t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13531,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t12,a[7]=t2,tmp=(C_word)a,a+=8,tmp); if(C_truep(t12)){ t14=t2; t15=t13; f_13531(t15,C_a_i_fixnum_plus(&a,2,t14,C_fix(2)));} else{ t14=t2; t15=t13; f_13531(t15,C_a_i_fixnum_plus(&a,2,t14,C_fix(1)));} case C_make_character(92): t8=t2; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); t10=C_i_string_ref(((C_word*)t0)[3],t9); t11=t10; t12=t11; t13=C_eqp(t12,C_make_character(100)); t14=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13665,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,a[6]=t11,a[7]=t12,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); if(C_truep(t13)){ t15=t14; f_13665(t15,t13);} else{ t15=C_eqp(t12,C_make_character(68)); if(C_truep(t15)){ t16=t14; f_13665(t16,t15);} else{ t16=C_eqp(t12,C_make_character(115)); if(C_truep(t16)){ t17=t14; f_13665(t17,t16);} else{ t17=C_eqp(t12,C_make_character(83)); if(C_truep(t17)){ t18=t14; f_13665(t18,t17);} else{ t18=C_eqp(t12,C_make_character(119)); t19=t14; f_13665(t19,(C_truep(t18)?t18:C_eqp(t12,C_make_character(87))));}}}} default: t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13782,a[2]=t7,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t4,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[8])){ t9=C_fix(C_character_code(t7)); t10=t8; f_13782(t10,C_and(C_fixnum_less_or_equal_p(C_fix(128),t9),C_fixnum_less_or_equal_p(t9,C_fix(255))));} else{ t9=t8; f_13782(t9,C_SCHEME_FALSE);}}}} /* k13301 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13303,2,av);} /* irregex-core.scm:1212: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13268(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(93),t1);} /* k13311 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_13313,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13316,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13320,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[4])){ /* irregex-core.scm:1216: cset-complement */ f_27320(t3,t1);} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=t1; f_13320(2,av2);}}} /* k13314 in k13311 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_13316,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k13318 in k13311 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_13320,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26660,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26662,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26680,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3715: scheme#vector->list */ t6=*((C_word*)lf[163]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k13339 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_13341(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,0,4)))){ C_save_and_reclaim_args((void *)trf_13341,2,t0,t1);} a=C_alloc(30); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13351,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[6]; t6=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[5]); t7=C_a_i_vector1(&a,1,t6); /* irregex-core.scm:3766: cset-union */ t8=lf[162];{ C_word av2[4]; av2[0]=t8; av2[1]=t4; av2[2]=t5; av2[3]=t7; f_26803(4,av2);}} else{ if(C_truep(C_i_not(((C_word*)t0)[7]))){ /* irregex-core.scm:1225: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[166]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); t4=C_i_string_ref(((C_word*)t0)[8],t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13368,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word)li79),tmp=(C_word)a,a+=6,tmp); t7=C_eqp(C_make_character(92),t5); t8=(C_truep(t7)?C_i_assq(t5,lf[168]):C_SCHEME_FALSE); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13396,a[2]=((C_word*)t0)[4],a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(t8)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13397,a[2]=((C_word*)t0)[2],a[3]=((C_word)li80),tmp=(C_word)a,a+=4,tmp); t11=( /* irregex-core.scm:1233: g1872 */ f_13397(C_a_i(&a,6),t10,t8) );{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t6; av2[3]=t11; C_apply(4,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13418,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=t5,a[7]=((C_word*)t0)[4],a[8]=t6,a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); t11=C_eqp(C_make_character(92),t5); if(C_truep(t11)){ t12=((C_word*)t0)[2]; t13=C_a_i_fixnum_plus(&a,2,t12,C_fix(2)); t14=C_i_string_ref(((C_word*)t0)[8],t13); t15=t10; f_13418(t15,C_eqp(t14,C_make_character(120)));} else{ t12=t10; f_13418(t12,C_SCHEME_FALSE);}}}}} /* k13349 in k13339 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13351,2,av);} /* irregex-core.scm:1223: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13268(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* a13367 in k13339 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_13368,4,av);} a=C_alloc(10); if(C_truep(C_i_char_lessp(t2,((C_word*)t0)[2]))){ /* irregex-core.scm:1231: chicken.base#error */ t4=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=lf[167]; av2[3]=((C_word*)t0)[2]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13385,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[2]; t6=t2; t7=C_a_i_cons(&a,2,t5,t6); t8=C_a_i_vector1(&a,1,t7); /* irregex-core.scm:1232: cset-union */ t9=lf[162];{ C_word *av2=av; av2[0]=t9; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=t8; f_26803(4,av2);}}} /* k13383 in a13367 in k13339 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13385,2,av);} /* irregex-core.scm:1232: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13268(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} /* k13394 in k13339 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13396,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* g1872 in k13339 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static C_word C_fcall f_13397(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_i_cdr(t1); t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(3)); return(C_a_i_list2(&a,2,t2,t3));} /* k13416 in k13339 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_13418(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_13418,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); /* irregex-core.scm:1238: string-parse-hex-escape */ f_13159(((C_word*)t0)[3],((C_word*)t0)[4],t3,((C_word*)t0)[5]);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13430,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[9])){ t3=C_fix(C_character_code(((C_word*)t0)[6])); t4=t2; f_13430(t4,C_and(C_fixnum_less_or_equal_p(C_fix(128),t3),C_fixnum_less_or_equal_p(t3,C_fix(255))));} else{ t3=t2; f_13430(t3,C_SCHEME_FALSE);}}} /* k13428 in k13416 in k13339 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_13430(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_13430,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=C_fix(C_character_code(((C_word*)t0)[2])); t3=C_i_vector_ref(lf[170],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13440,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t6=((C_word*)t0)[3]; t7=C_a_i_fixnum_plus(&a,2,t6,C_fix(1)); /* irregex-core.scm:1241: utf8-string-ref */ f_13893(t5,((C_word*)t0)[6],t7,t4);} else{ t2=((C_word*)t0)[3]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); t4=C_a_i_list2(&a,2,((C_word*)t0)[2],t3);{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t4; C_apply(4,av2);}}} /* k13438 in k13428 in k13416 in k13339 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_13440,2,av);} a=C_alloc(6); t2=C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[2],C_fix(1)),((C_word*)t0)[3]); t3=C_a_i_list2(&a,2,t1,t2);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t3; C_apply(4,av2);}} /* k13488 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_13490(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,1)))){ C_save_and_reclaim_args((void *)trf_13490,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_13341(t3,t2);} else{ t2=((C_word*)t0)[3]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); t4=C_i_string_ref(((C_word*)t0)[4],t3); t5=((C_word*)t0)[2]; f_13341(t5,C_eqp(C_make_character(93),t4));}} /* k13529 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_13531(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_13531,2,t0,t1);} a=C_alloc(15); t2=t1; t3=C_i_string_ref(((C_word*)t0)[2],t2); t4=C_eqp(t3,C_make_character(58)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13543,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); /* irregex-core.scm:1249: string-scan-char */ t7=lf[54];{ C_word av2[5]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=C_make_character(58); av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t5=C_eqp(t3,C_make_character(61)); t6=(C_truep(t5)?t5:C_eqp(t3,C_make_character(46))); if(C_truep(t6)){ /* irregex-core.scm:1258: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=((C_word*)t0)[3]; av2[2]=lf[173]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=((C_word*)t0)[7]; t8=C_a_i_fixnum_plus(&a,2,t7,C_fix(1)); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13626,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t8,tmp=(C_word)a,a+=5,tmp); t10=((C_word*)t0)[5]; t11=C_a_i_cons(&a,2,C_make_character(91),C_make_character(91)); t12=C_a_i_vector1(&a,1,t11); /* irregex-core.scm:3766: cset-union */ t13=lf[162];{ C_word av2[4]; av2[0]=t13; av2[1]=t9; av2[2]=t10; av2[3]=t12; f_26803(4,av2);}}}} /* k13541 in k13529 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_13543,2,av);} a=C_alloc(9); t2=t1; t3=C_i_not(t2); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13552,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(t3)){ t5=t4; f_13552(t5,t3);} else{ t5=C_fixnum_plus(t2,C_fix(1)); t6=C_i_string_ref(((C_word*)t0)[3],t5); t7=C_eqp(C_make_character(93),t6); t8=t4; f_13552(t8,C_i_not(t7));}} /* k13550 in k13541 in k13529 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_13552(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,4)))){ C_save_and_reclaim_args((void *)trf_13552,2,t0,t1);} a=C_alloc(18); if(C_truep(t1)){ /* irregex-core.scm:1251: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[171]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13558,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13578,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13582,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[8],C_fix(1)); /* irregex-core.scm:1254: scheme#substring */ t6=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t5; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k13556 in k13550 in k13541 in k13529 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_13558,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ /* irregex-core.scm:1255: cset-complement */ f_27320(t2,t1);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_13561(2,av2);}}} /* k13559 in k13556 in k13550 in k13541 in k13529 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_13561,2,av);} a=C_alloc(10); t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2)); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13571,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1256: cset-union */ t4=lf[162];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=t1; f_26803(4,av2);}} /* k13569 in k13559 in k13556 in k13550 in k13541 in k13529 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13571,2,av);} /* irregex-core.scm:1256: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13268(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} /* k13576 in k13550 in k13541 in k13529 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13578,2,av);} /* irregex-core.scm:1252: sre->cset */ f_26215(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k13580 in k13550 in k13541 in k13529 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13582,2,av);} /* irregex-core.scm:1253: scheme#string->symbol */ t2=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k13624 in k13529 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13626,2,av);} /* irregex-core.scm:1260: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13268(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(91),t1);} /* k13663 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_13665(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ C_save_and_reclaim_args((void *)trf_13665,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13675,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13679,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13683,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_a_i_string(&a,2,C_make_character(92),((C_word*)t0)[6]); /* irregex-core.scm:1267: string->sre */ t8=*((C_word*)lf[102]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[7],C_make_character(120)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13698,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word)li81),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13710,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_a_i_fixnum_plus(&a,2,t5,C_fix(2)); /* irregex-core.scm:1272: string-parse-hex-escape */ f_13159(t4,((C_word*)t0)[8],t6,((C_word*)t0)[9]);} else{ t3=C_i_assq(((C_word*)t0)[6],lf[168]); t4=(C_truep(t3)?C_i_cdr(t3):((C_word*)t0)[6]); t5=t4; t6=((C_word*)t0)[2]; t7=C_a_i_fixnum_plus(&a,2,t6,C_fix(2)); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13729,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t7,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t9=((C_word*)t0)[5]; t10=C_a_i_cons(&a,2,t5,t5); t11=C_a_i_vector1(&a,1,t10); /* irregex-core.scm:3766: cset-union */ t12=lf[162];{ C_word av2[4]; av2[0]=t12; av2[1]=t8; av2[2]=t9; av2[3]=t11; f_26803(4,av2);}}}} /* k13673 in k13663 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13675,2,av);} /* irregex-core.scm:1265: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13268(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} /* k13677 in k13663 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13679,2,av);} /* irregex-core.scm:1266: cset-union */ t2=lf[162];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; f_26803(4,av2);}} /* k13681 in k13663 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13683,2,av);} /* irregex-core.scm:1267: sre->cset */ f_26215(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* a13697 in k13663 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_13698,4,av);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13706,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[3]; t6=t2; t7=C_a_i_cons(&a,2,t6,t6); t8=C_a_i_vector1(&a,1,t7); /* irregex-core.scm:3766: cset-union */ t9=lf[162];{ C_word *av2=av; av2[0]=t9; av2[1]=t4; av2[2]=t5; av2[3]=t8; f_26803(4,av2);}} /* k13704 in a13697 in k13663 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13706,2,av);} /* irregex-core.scm:1271: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13268(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k13708 in k13663 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13710,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* k13727 in k13663 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13729,2,av);} /* irregex-core.scm:1276: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13268(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k13780 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_13782(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){ C_save_and_reclaim_args((void *)trf_13782,2,t0,t1);} a=C_alloc(16); if(C_truep(t1)){ t2=C_fix(C_character_code(((C_word*)t0)[2])); t3=C_i_vector_ref(lf[170],t2); t4=t3; t5=C_fixnum_plus(((C_word*)t0)[3],t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13796,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t6,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=t4,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1281: utf8-string-ref */ f_13893(t7,((C_word*)t0)[7],((C_word*)t0)[3],t4);} else{ t2=((C_word*)t0)[3]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13814,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[6]; t6=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[2]); t7=C_a_i_vector1(&a,1,t6); /* irregex-core.scm:3766: cset-union */ t8=lf[162];{ C_word av2[4]; av2[0]=t8; av2[1]=t4; av2[2]=t5; av2[3]=t7; f_26803(4,av2);}}} /* k13794 in k13780 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_13796,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13800,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13804,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1282: utf8-string-ref */ f_13893(t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k13798 in k13794 in k13780 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13800,2,av);} /* irregex-core.scm:1280: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13268(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k13802 in k13794 in k13780 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13804,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_a_i_cons(&a,2,t1,t1); t4=C_a_i_vector1(&a,1,t3); /* irregex-core.scm:3766: cset-union */ t5=lf[162];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t4; f_26803(4,av2);}} /* k13812 in k13780 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_13814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13814,2,av);} /* irregex-core.scm:1283: go */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13268(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* chicken.irregex#high-char? in k7651 in k7426 in k7423 */ static void C_ccall f_13872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13872,3,av);} t3=C_fix(C_character_code(t2)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_less_or_equal_p(C_fix(128),t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.irregex#utf8-string-ref in k7651 in k7426 in k7423 */ static void C_fcall f_13893(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_13893,4,t1,t2,t3,t4);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13896,a[2]=t2,a[3]=((C_word)li95),tmp=(C_word)a,a+=4,tmp); t6=t4; switch(t6){ case C_fix(1): t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_i_string_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);} case C_fix(2): t7=( /* irregex-core.scm:1344: byte */ f_13896(t5,t3) ); t8=C_fixnum_and(t7,C_fix(31)); t9=C_fixnum_shift_left(t8,C_fix(6)); t10=C_fixnum_plus(t3,C_fix(1)); t11=( /* irregex-core.scm:1345: byte */ f_13896(t5,t10) ); t12=C_fixnum_and(t11,C_fix(63)); t13=C_a_i_fixnum_plus(&a,2,t9,t12); t14=t1;{ C_word av2[2]; av2[0]=t14; av2[1]=C_make_character(C_unfix(t13)); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);} case C_fix(3): t7=( /* irregex-core.scm:1348: byte */ f_13896(t5,t3) ); t8=C_fixnum_and(t7,C_fix(15)); t9=C_fixnum_shift_left(t8,C_fix(12)); t10=C_fixnum_plus(t3,C_fix(1)); t11=( /* irregex-core.scm:1349: byte */ f_13896(t5,t10) ); t12=C_fixnum_and(t11,C_fix(63)); t13=C_fixnum_shift_left(t12,C_fix(6)); t14=C_fixnum_plus(t3,C_fix(2)); t15=( /* irregex-core.scm:1350: byte */ f_13896(t5,t14) ); t16=C_fixnum_and(t15,C_fix(63)); t17=C_fixnum_plus(C_fixnum_plus(t9,t13),t16); t18=t1;{ C_word av2[2]; av2[0]=t18; av2[1]=C_make_character(C_unfix(t17)); ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);} case C_fix(4): t7=( /* irregex-core.scm:1353: byte */ f_13896(t5,t3) ); t8=C_fixnum_and(t7,C_fix(7)); t9=C_fixnum_shift_left(t8,C_fix(18)); t10=C_fixnum_plus(t3,C_fix(1)); t11=( /* irregex-core.scm:1354: byte */ f_13896(t5,t10) ); t12=C_fixnum_and(t11,C_fix(63)); t13=C_fixnum_shift_left(t12,C_fix(12)); t14=C_fixnum_plus(t3,C_fix(2)); t15=( /* irregex-core.scm:1355: byte */ f_13896(t5,t14) ); t16=C_fixnum_and(t15,C_fix(63)); t17=C_fixnum_shift_left(t16,C_fix(6)); t18=C_fixnum_plus(t3,C_fix(3)); t19=( /* irregex-core.scm:1356: byte */ f_13896(t5,t18) ); t20=C_fixnum_and(t19,C_fix(63)); t21=C_fixnum_plus(C_fixnum_plus(C_fixnum_plus(t9,t13),t17),t20); t22=t1;{ C_word av2[2]; av2[0]=t22; av2[1]=C_make_character(C_unfix(t21)); ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);} default: /* irregex-core.scm:1358: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word av2[6]; av2[0]=t7; av2[1]=t1; av2[2]=lf[205]; av2[3]=t2; av2[4]=t4; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}} /* byte in chicken.irregex#utf8-string-ref in k7651 in k7426 in k7423 */ static C_word C_fcall f_13896(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_i_string_ref(((C_word*)t0)[2],t1); return(C_fix(C_character_code(t2)));} /* lp in k10502 in collect/single in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_14088(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_14088,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_string_ref(((C_word*)t0)[2],t2); t6=C_fix(C_character_code(t5)); t7=C_fixnum_lessp(t6,C_fix(128)); t8=(C_truep(t7)?t7:C_fixnum_greater_or_equal_p(t6,C_fix(192))); if(C_truep(t8)){ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=t2; t10=C_a_i_fixnum_difference(&a,2,t9,C_fix(1)); /* irregex-core.scm:1367: lp */ t12=t1; t13=t10; t1=t12; t2=t13; goto loop;}}} /* chicken.irregex#utf8-lowest-digit-of-length in k7651 in k7426 in k7423 */ static void C_fcall f_14126(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_14126,2,t1,t2);} t3=t2; switch(t3){ case C_fix(1): t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} case C_fix(2): t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_fix(192); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} case C_fix(3): t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_fix(224); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} case C_fix(4): t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_fix(240); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} default: /* irregex-core.scm:1372: chicken.base#error */ t4=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=lf[207]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* chicken.irregex#char->utf8-list in k7651 in k7426 in k7423 */ static void C_fcall f_14202(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_14202,2,t1,t2);} a=C_alloc(12); t3=C_fix(C_character_code(t2)); if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(127)))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list1(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(2047)))){ t4=C_fixnum_shift_right(t3,C_fix(6)); t5=C_fixnum_or(C_fix(192),t4); t6=C_fixnum_and(t3,C_fix(63)); t7=C_fixnum_or(C_fix(128),t6); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_list2(&a,2,t5,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(65535)))){ t4=C_fixnum_shift_right(t3,C_fix(12)); t5=C_fixnum_or(C_fix(224),t4); t6=C_fixnum_shift_right(t3,C_fix(6)); t7=C_fixnum_and(t6,C_fix(63)); t8=C_fixnum_or(C_fix(128),t7); t9=C_fixnum_and(t3,C_fix(63)); t10=C_fixnum_or(C_fix(128),t9); t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=C_a_i_list3(&a,3,t5,t8,t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(2097151)))){ t4=C_fixnum_shift_right(t3,C_fix(18)); t5=C_fixnum_or(C_fix(240),t4); t6=C_fixnum_shift_right(t3,C_fix(12)); t7=C_fixnum_and(t6,C_fix(63)); t8=C_fixnum_or(C_fix(128),t7); t9=C_fixnum_shift_right(t3,C_fix(6)); t10=C_fixnum_and(t9,C_fix(63)); t11=C_fixnum_or(C_fix(128),t10); t12=C_fixnum_and(t3,C_fix(63)); t13=C_fixnum_or(C_fix(128),t12); t14=t1;{ C_word av2[2]; av2[0]=t14; av2[1]=C_a_i_list4(&a,4,t5,t8,t11,t13); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ /* irregex-core.scm:1395: chicken.base#error */ t4=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=lf[209]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}}} /* k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14343,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14346,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1399: char->utf8-list */ f_14202(t3,((C_word*)t0)[3]);} /* k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){ C_save_and_reclaim((void *)f_14346,2,av);} a=C_alloc(35); t2=t1; t3=C_u_i_length(((C_word*)t0)[2]); t4=C_u_i_length(t2); t5=C_eqp(t3,t4); if(C_truep(C_i_not(t5))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14363,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t7=t6; t8=t2; t9=C_i_length(((C_word*)t0)[2]); t10=t9; t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14905,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t12=C_i_car(((C_word*)t0)[2]); t13=C_make_character(C_unfix(t12)); t14=C_u_i_car(((C_word*)t0)[2]); t15=C_fixnum_less_or_equal_p(t14,C_fix(127)); t16=(C_truep(t15)?C_a_i_list(&a,3,lf[52],t13,C_make_character(127)):C_a_i_list(&a,3,lf[52],t13,C_make_character(255))); t17=t16; t18=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t19=t18; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=((C_word*)t20)[1]; t22=C_u_i_cdr(((C_word*)t0)[2]); t23=C_i_check_list_2(t22,lf[211]); t24=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15185,a[2]=t17,a[3]=t10,a[4]=t8,a[5]=t11,tmp=(C_word)a,a+=6,tmp); t25=C_SCHEME_UNDEFINED; t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); t27=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15187,a[2]=t20,a[3]=t26,a[4]=t21,a[5]=((C_word)li112),tmp=(C_word)a,a+=6,tmp)); t28=((C_word*)t26)[1]; f_15187(t28,t24,t22);} else{ t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14372,a[2]=t7,a[3]=((C_word)li114),tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_14372(t9,((C_word*)t0)[3],((C_word*)t0)[2],t2);}} /* k14361 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14363,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14367,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1402: unicode-range-up-to */ f_14755(t3,((C_word*)t0)[3]);} /* k14365 in k14361 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_14367,2,av);} a=C_alloc(9); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1401: sre-alternate */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* irregex-core.scm:1401: sre-alternate */ f_17983(C_a_i(&a,3),t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* lp in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_fcall f_14372(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_14372,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_car(t2); t5=C_i_car(t3); t6=C_eqp(t4,t5); if(C_truep(t6)){ t7=t2; t8=C_u_i_car(t7); t9=C_make_character(C_unfix(t8)); t10=t9; t11=t2; t12=C_u_i_cdr(t11); if(C_truep(C_i_nullp(t12))){ t13=C_a_i_cons(&a,2,t10,C_SCHEME_END_OF_LIST); /* irregex-core.scm:1406: sre-sequence */ t14=t1;{ C_word av2[2]; av2[0]=t14; av2[1]=( /* irregex-core.scm:1406: sre-sequence */ f_17960(C_a_i(&a,3),t13) ); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14404,a[2]=t10,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t14=t2; t15=C_u_i_cdr(t14); t16=t3; t17=C_u_i_cdr(t16); /* irregex-core.scm:1409: lp */ t19=t13; t20=t15; t21=t17; t1=t19; t2=t20; t3=t21; goto loop;}} else{ t7=t2; t8=C_u_i_car(t7); t9=C_fixnum_plus(t8,C_fix(1)); t10=t3; t11=C_u_i_car(t10); t12=C_eqp(t9,t11); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14429,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1411: unicode-range-up-from */ f_14616(t13,t2);} else{ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14444,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1414: unicode-range-up-from */ f_14616(t13,t2);}}} /* k14402 in lp in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_14404,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); /* irregex-core.scm:1406: sre-sequence */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=( /* irregex-core.scm:1406: sre-sequence */ f_17960(C_a_i(&a,3),t3) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k14427 in lp in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14429,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14433,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1412: unicode-range-up-to */ f_14755(t3,((C_word*)t0)[3]);} /* k14431 in k14427 in lp in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_14433,2,av);} a=C_alloc(9); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1411: sre-alternate */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* irregex-core.scm:1411: sre-alternate */ f_17983(C_a_i(&a,3),t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k14442 in lp in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(31,c,3)))){ C_save_and_reclaim((void *)f_14444,2,av);} a=C_alloc(31); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14448,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=t3; t5=((C_word*)t0)[4]; t6=((C_word*)t0)[3]; t7=C_i_car(t5); t8=C_fixnum_plus(t7,C_fix(1)); t9=C_make_character(C_unfix(t8)); t10=C_i_car(t6); t11=C_fixnum_difference(t10,C_fix(1)); t12=C_make_character(C_unfix(t11)); t13=(C_truep(C_u_i_char_equalp(t9,t12))?t9:C_a_i_list(&a,3,lf[52],t9,t12)); t14=t13; t15=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t16=t15; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=((C_word*)t17)[1]; t19=C_u_i_cdr(t5); t20=C_i_check_list_2(t19,lf[211]); t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15276,a[2]=t14,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15278,a[2]=t17,a[3]=t23,a[4]=t18,a[5]=((C_word)li113),tmp=(C_word)a,a+=6,tmp)); t25=((C_word*)t23)[1]; f_15278(t25,t21,t19);} /* k14446 in k14442 in lp in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_14448,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14452,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1416: unicode-range-up-to */ f_14755(t3,((C_word*)t0)[4]);} /* k14450 in k14446 in k14442 in lp in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_14452,2,av);} a=C_alloc(12); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); /* irregex-core.scm:1414: sre-alternate */ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* irregex-core.scm:1414: sre-alternate */ f_17983(C_a_i(&a,3),t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.irregex#unicode-range-helper in k7651 in k7426 in k7423 */ static void C_fcall f_14478(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,0,3)))){ C_save_and_reclaim_args((void *)trf_14478,5,t1,t2,t3,t4,t5);} a=C_alloc(28); if(C_truep(C_i_nullp(t3))){ t6=t5; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_i_cdr(t3); t7=t6; t8=t3; t9=C_u_i_car(t8); t10=C_a_i_cons(&a,2,t9,t4); t11=t10; t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14508,a[2]=t5,a[3]=t1,a[4]=t2,a[5]=t7,a[6]=t11,tmp=(C_word)a,a+=7,tmp); t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t14=t13; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=((C_word*)t15)[1]; t17=t4; t18=C_i_check_list_2(t17,lf[211]); t19=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14518,a[2]=t3,a[3]=t12,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14580,a[2]=t15,a[3]=t21,a[4]=t16,a[5]=((C_word)li100),tmp=(C_word)a,a+=6,tmp)); t23=((C_word*)t21)[1]; f_14580(t23,t19,t17);}} /* k14506 in chicken.irregex#unicode-range-helper in k7651 in k7426 in k7423 */ static void C_ccall f_14508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_14508,2,av);} a=C_alloc(6); t2=( /* irregex-core.scm:1425: sre-sequence */ f_17960(C_a_i(&a,3),t1) ); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]); /* irregex-core.scm:1421: unicode-range-helper */ f_14478(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t3);} /* k14516 in chicken.irregex#unicode-range-helper in k7651 in k7426 in k7423 */ static void C_ccall f_14518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_14518,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14526,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); /* irregex-core.scm:1427: one */ t6=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k14524 in k14516 in chicken.irregex#unicode-range-helper in k7651 in k7426 in k7423 */ static void C_ccall f_14526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_14526,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); t9=C_i_check_list_2(t8,lf[211]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14542,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14544,a[2]=t5,a[3]=t12,a[4]=t6,a[5]=((C_word)li99),tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_14544(t14,t10,t8);} /* k14540 in k14524 in k14516 in chicken.irregex#unicode-range-helper in k7651 in k7426 in k7423 */ static void C_ccall f_14542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_14542,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1426: ##sys#append */ t3=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* map-loop2065 in k14524 in k14516 in chicken.irregex#unicode-range-helper in k7651 in k7426 in k7423 */ static void C_fcall f_14544(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_14544,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255)); t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4); t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t7=C_slot(t2,C_fix(1)); t9=t1; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop2039 in chicken.irregex#unicode-range-helper in k7651 in k7426 in k7423 */ static void C_fcall f_14580(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_14580,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_make_character(C_unfix(t3)); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.irregex#unicode-range-up-from in k7651 in k7426 in k7423 */ static void C_fcall f_14616(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_14616,2,t1,t2);} a=C_alloc(13); t3=C_i_car(t2); t4=C_make_character(C_unfix(t3)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14636,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14638,a[2]=t2,a[3]=((C_word)li102),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14747,a[2]=t6,a[3]=t7,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t9=t2; t10=C_u_i_cdr(t9); /* irregex-core.scm:1441: ##sys#fast-reverse */ t11=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t8; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k14634 in chicken.irregex#unicode-range-up-from in k7651 in k7426 in k7423 */ static void C_ccall f_14636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_14636,2,av);} a=C_alloc(12); t2=( /* irregex-core.scm:1437: sre-alternate */ f_17983(C_a_i(&a,3),t1) ); t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); /* irregex-core.scm:1435: sre-sequence */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=( /* irregex-core.scm:1435: sre-sequence */ f_17960(C_a_i(&a,3),t3) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a14637 in chicken.irregex#unicode-range-up-from in k7651 in k7426 in k7423 */ static void C_ccall f_14638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_14638,3,av);} a=C_alloc(9); t3=C_i_car(((C_word*)t0)[2]); t4=C_fixnum_plus(t3,C_fix(1)); t5=C_make_character(C_unfix(t4)); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[52],t5,C_make_character(255)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k14668 in k14745 in chicken.irregex#unicode-range-up-from in k7651 in k7426 in k7423 */ static void C_ccall f_14670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_14670,2,av);} a=C_alloc(6); t2=( /* irregex-core.scm:1444: sre-sequence */ f_17960(C_a_i(&a,3),t1) ); t3=C_a_i_list1(&a,1,t2); /* irregex-core.scm:1438: unicode-range-helper */ f_14478(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t3);} /* k14675 in k14745 in chicken.irregex#unicode-range-up-from in k7651 in k7426 in k7423 */ static void C_ccall f_14677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_14677,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[211]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14701,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li103),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_14701(t7,t3,t1);} /* k14681 in k14675 in k14745 in chicken.irregex#unicode-range-up-from in k7651 in k7426 in k7423 */ static void C_ccall f_14683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14683,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14699,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1447: last */ f_9120(t3,((C_word*)t0)[3]);} /* k14697 in k14681 in k14675 in k14745 in chicken.irregex#unicode-range-up-from in k7651 in k7426 in k7423 */ static void C_ccall f_14699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_14699,2,av);} a=C_alloc(12); t2=C_make_character(C_unfix(t1)); t3=C_a_i_list(&a,3,lf[52],t2,C_make_character(255)); t4=C_a_i_list(&a,1,t3); /* irregex-core.scm:1445: scheme#append */ t5=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop2101 in k14675 in k14745 in chicken.irregex#unicode-range-up-from in k7651 in k7426 in k7423 */ static void C_fcall f_14701(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_14701,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_make_character(C_unfix(t3)); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k14739 in k14745 in chicken.irregex#unicode-range-up-from in k7651 in k7426 in k7423 */ static void C_ccall f_14741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14741,2,av);} t2=C_i_cdr(t1); /* irregex-core.scm:1446: ##sys#fast-reverse */ t3=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k14745 in chicken.irregex#unicode-range-up-from in k7651 in k7426 in k7423 */ static void C_ccall f_14747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_14747,2,av);} a=C_alloc(19); t2=C_i_cdr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14670,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14677,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14741,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=((C_word*)t0)[4]; t12=C_u_i_cdr(t11); /* irregex-core.scm:1446: ##sys#fast-reverse */ t13=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t10; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* chicken.irregex#unicode-range-up-to in k7651 in k7426 in k7423 */ static void C_fcall f_14755(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_14755,2,t1,t2);} a=C_alloc(13); t3=C_i_car(t2); t4=C_make_character(C_unfix(t3)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14775,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14777,a[2]=t2,a[3]=((C_word)li105),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14886,a[2]=t6,a[3]=t7,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t9=t2; t10=C_u_i_cdr(t9); /* irregex-core.scm:1457: ##sys#fast-reverse */ t11=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t8; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k14773 in chicken.irregex#unicode-range-up-to in k7651 in k7426 in k7423 */ static void C_ccall f_14775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_14775,2,av);} a=C_alloc(12); t2=( /* irregex-core.scm:1453: sre-alternate */ f_17983(C_a_i(&a,3),t1) ); t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); /* irregex-core.scm:1451: sre-sequence */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=( /* irregex-core.scm:1451: sre-sequence */ f_17960(C_a_i(&a,3),t3) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a14776 in chicken.irregex#unicode-range-up-to in k7651 in k7426 in k7423 */ static void C_ccall f_14777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_14777,3,av);} a=C_alloc(9); t3=C_i_car(((C_word*)t0)[2]); t4=C_fixnum_difference(t3,C_fix(1)); t5=C_make_character(C_unfix(t4)); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[52],C_make_character(128),t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k14807 in k14884 in chicken.irregex#unicode-range-up-to in k7651 in k7426 in k7423 */ static void C_ccall f_14809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_14809,2,av);} a=C_alloc(6); t2=( /* irregex-core.scm:1460: sre-sequence */ f_17960(C_a_i(&a,3),t1) ); t3=C_a_i_list1(&a,1,t2); /* irregex-core.scm:1454: unicode-range-helper */ f_14478(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t3);} /* k14814 in k14884 in chicken.irregex#unicode-range-up-to in k7651 in k7426 in k7423 */ static void C_ccall f_14816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_14816,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[211]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14822,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14840,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li106),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_14840(t7,t3,t1);} /* k14820 in k14814 in k14884 in chicken.irregex#unicode-range-up-to in k7651 in k7426 in k7423 */ static void C_ccall f_14822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14822,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14838,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1464: last */ f_9120(t3,((C_word*)t0)[3]);} /* k14836 in k14820 in k14814 in k14884 in chicken.irregex#unicode-range-up-to in k7651 in k7426 in k7423 */ static void C_ccall f_14838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_14838,2,av);} a=C_alloc(12); t2=C_make_character(C_unfix(t1)); t3=C_a_i_list(&a,3,lf[52],C_make_character(128),t2); t4=C_a_i_list(&a,1,t3); /* irregex-core.scm:1461: scheme#append */ t5=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop2136 in k14814 in k14884 in chicken.irregex#unicode-range-up-to in k7651 in k7426 in k7423 */ static void C_fcall f_14840(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_14840,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_make_character(C_unfix(t3)); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k14878 in k14884 in chicken.irregex#unicode-range-up-to in k7651 in k7426 in k7423 */ static void C_ccall f_14880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14880,2,av);} t2=C_i_cdr(t1); /* irregex-core.scm:1462: ##sys#fast-reverse */ t3=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k14884 in chicken.irregex#unicode-range-up-to in k7651 in k7426 in k7423 */ static void C_ccall f_14886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_14886,2,av);} a=C_alloc(19); t2=C_i_cdr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14809,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14816,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14880,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=((C_word*)t0)[4]; t12=C_u_i_cdr(t11); /* irregex-core.scm:1462: ##sys#fast-reverse */ t13=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t13; av2[1]=t10; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} /* k14903 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_14905,2,av);} a=C_alloc(3); /* irregex-core.scm:1468: sre-alternate */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* irregex-core.scm:1468: sre-alternate */ f_17983(C_a_i(&a,3),t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g2208 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_fcall f_14914(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_14914,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15002,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(C_fixnum_plus(t2,((C_word*)t0)[2]),C_fix(1)); /* irregex-core.scm:1481: utf8-lowest-digit-of-length */ f_14126(t3,t4);} /* k14936 in k14992 in k15000 in g2208 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_14938,2,av);} a=C_alloc(12); t2=C_i_check_list_2(t1,lf[211]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14944,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14946,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li108),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_14946(t7,t3,t1);} /* k14942 in k14936 in k14992 in k15000 in g2208 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_14944,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1479: sre-sequence */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* irregex-core.scm:1479: sre-sequence */ f_17960(C_a_i(&a,3),t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2225 in k14936 in k14992 in k15000 in g2208 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_fcall f_14946(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_14946,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255)); t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4); t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t7=C_slot(t2,C_fix(1)); t9=t1; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k14992 in k15000 in g2208 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_14994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_14994,2,av);} a=C_alloc(20); t2=C_make_character(C_unfix(t1)); t3=C_a_i_list(&a,3,lf[52],((C_word*)t0)[2],t2); t4=t3; t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14938,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t10=C_fixnum_plus(((C_word*)t0)[4],((C_word*)t0)[5]); /* irregex-core.scm:1485: zero-to */ f_9022(t9,t10);} /* k15000 in g2208 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_15002,2,av);} a=C_alloc(6); t2=C_make_character(C_unfix(t1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14994,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t5=C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]),C_fix(1)); switch(t5){ case C_fix(1): t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=C_fix(127); f_14994(2,av2);} case C_fix(2): t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=C_fix(223); f_14994(2,av2);} case C_fix(3): t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=C_fix(239); f_14994(2,av2);} case C_fix(4): t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=C_fix(247); f_14994(2,av2);} default: /* irregex-core.scm:1377: chicken.base#error */ t6=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=lf[215]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k15007 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_15009,2,av);} a=C_alloc(14); t2=C_i_check_list_2(t1,lf[211]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15015,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15117,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li111),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_15117(t7,t3,t1);} /* k15013 in k15007 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_15015,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15099,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=C_i_car(((C_word*)t0)[2]); t5=C_fixnum_difference(t4,C_fix(1)); t6=C_make_character(C_unfix(t5)); t7=C_fix(C_character_code(t6)); t8=C_i_vector_ref(lf[170],t7); /* irregex-core.scm:1490: utf8-lowest-digit-of-length */ f_14126(t3,t8);} /* k15045 in k15097 in k15013 in k15007 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_15047,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=( /* irregex-core.scm:1488: sre-sequence */ f_17960(C_a_i(&a,3),t2) ); t4=C_a_i_list1(&a,1,t3); /* irregex-core.scm:1469: scheme#append */ t5=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* map-loop2265 in k15097 in k15013 in k15007 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_fcall f_15049(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_15049,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255)); t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4); t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t7=C_slot(t2,C_fix(1)); t9=t1; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15097 in k15013 in k15007 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_15099,2,av);} a=C_alloc(28); t2=C_make_character(C_unfix(t1)); t3=C_u_i_car(((C_word*)t0)[2]); t4=C_fixnum_difference(t3,C_fix(1)); t5=C_make_character(C_unfix(t4)); t6=C_a_i_list(&a,3,lf[52],t2,t5); t7=t6; t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=C_u_i_cdr(((C_word*)t0)[2]); t13=C_i_check_list_2(t12,lf[211]); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15047,a[2]=t7,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15049,a[2]=t10,a[3]=t16,a[4]=t11,a[5]=((C_word)li110),tmp=(C_word)a,a+=6,tmp)); t18=((C_word*)t16)[1]; f_15049(t18,t14,t12);} /* map-loop2202 in k15007 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_fcall f_15117(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15117,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15142,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:1477: g2208 */ t5=((C_word*)t0)[4]; f_14914(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15140 in map-loop2202 in k15007 in k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15142,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15117(t6,((C_word*)t0)[5],t5);} /* k15183 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(36,c,3)))){ C_save_and_reclaim((void *)f_15185,2,av);} a=C_alloc(36); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=( /* irregex-core.scm:1471: sre-sequence */ f_17960(C_a_i(&a,3),t2) ); t4=C_a_i_list1(&a,1,t3); t5=t4; t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14914,a[2]=((C_word*)t0)[3],a[3]=((C_word)li109),tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15009,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t5,a[5]=t8,a[6]=t10,a[7]=t9,tmp=(C_word)a,a+=8,tmp); t12=C_i_length(((C_word*)t0)[4]); t13=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); t14=C_s_a_u_i_integer_minus(&a,2,t12,t13); /* irregex-core.scm:1486: zero-to */ f_9022(t11,t14);} /* map-loop2172 in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_fcall f_15187(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_15187,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255)); t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4); t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t7=C_slot(t2,C_fix(1)); t9=t1; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15274 in k14442 in lp in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_15276,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:1501: sre-sequence */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* irregex-core.scm:1501: sre-sequence */ f_17960(C_a_i(&a,3),t2) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2303 in k14442 in lp in k14344 in k14341 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_fcall f_15278(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_15278,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255)); t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4); t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); t7=C_slot(t2,C_fix(1)); t9=t1; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_fcall f_15333(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_15333,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15341,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1508: cset->plist */ f_26104(t3,t2);} /* k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_15341,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15343,a[2]=t3,a[3]=((C_word)li115),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_15343(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_fcall f_15343(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_15343,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15357,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15361,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1510: ##sys#fast-reverse */ t7=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=C_i_car(t2); t6=C_fix(C_character_code(t5)); t7=C_fixnum_less_or_equal_p(C_fix(128),t6); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15388,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,tmp); if(C_truep(t7)){ t9=t8; f_15388(t9,t7);} else{ t9=C_i_cadr(t2); t10=C_fix(C_character_code(t9)); t11=t8; f_15388(t11,C_fixnum_less_or_equal_p(C_fix(128),t10));}}} /* k15355 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_15357,2,av);} a=C_alloc(3); /* irregex-core.scm:1510: sre-alternate */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* irregex-core.scm:1510: sre-alternate */ f_17983(C_a_i(&a,3),t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15359 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_15361,2,av);} a=C_alloc(4); t2=t1; if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ /* irregex-core.scm:1510: scheme#append */ t3=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15379,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1513: ##sys#fast-reverse */ t4=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k15377 in k15359 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_15379,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[52],t1); t3=C_a_i_list1(&a,1,t2); /* irregex-core.scm:1510: scheme#append */ t4=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_fcall f_15388(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_15388,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=C_i_cddr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15403,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_car(t5); t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); t9=C_u_i_car(t8); t10=t4; t11=t9; t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14343,a[2]=t10,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1398: char->utf8-list */ f_14202(t12,t6);} else{ t2=C_i_cddr(((C_word*)t0)[2]); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_car(t4); t6=((C_word*)t0)[2]; t7=C_u_i_car(t6); t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[6]); t9=C_a_i_cons(&a,2,t5,t8); /* irregex-core.scm:1518: lp */ t10=((C_word*)((C_word*)t0)[4])[1]; f_15343(t10,((C_word*)t0)[5],t2,((C_word*)t0)[3],t9);}} /* k15401 in k15386 in lp in k15339 in chicken.irregex#cset->utf8-pattern in k7651 in k7426 in k7423 */ static void C_ccall f_15403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_15403,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:1515: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_15343(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,((C_word*)t0)[6]);} /* adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_15455(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,4)))){ C_save_and_reclaim_args((void *)trf_15455,5,t0,t1,t2,t3,t4);} a=C_alloc(29); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15458,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=((C_word)li205),tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t2))){ t6=t2; t7=C_u_i_car(t6); t8=C_eqp(t7,lf[156]); if(C_truep(t8)){ t9=t2; t10=C_u_i_cdr(t9); t11=( /* irregex-core.scm:1528: sre-sequence */ f_17960(C_a_i(&a,3),t10) ); /* irregex-core.scm:1528: adjust */ t27=t1; t28=t11; t29=C_SCHEME_TRUE; t30=t4; t1=t27; t2=t28; t3=t29; t4=t30; goto loop;} else{ t9=C_eqp(t7,lf[157]); if(C_truep(t9)){ t10=t2; t11=C_u_i_cdr(t10); t12=( /* irregex-core.scm:1529: sre-sequence */ f_17960(C_a_i(&a,3),t11) ); /* irregex-core.scm:1529: adjust */ t27=t1; t28=t12; t29=C_SCHEME_FALSE; t30=t4; t1=t27; t2=t28; t3=t29; t4=t30; goto loop;} else{ t10=C_eqp(t7,lf[223]); if(C_truep(t10)){ t11=t2; t12=C_u_i_car(t11); t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t14=t13; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=((C_word*)t15)[1]; t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15515,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li206),tmp=(C_word)a,a+=5,tmp); t18=t2; t19=C_u_i_cdr(t18); t20=C_i_check_list_2(t19,lf[211]); t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15526,a[2]=t1,a[3]=t12,tmp=(C_word)a,a+=4,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15528,a[2]=t15,a[3]=t23,a[4]=t17,a[5]=t16,a[6]=((C_word)li207),tmp=(C_word)a,a+=7,tmp)); t25=((C_word*)t23)[1]; f_15528(t25,t21,t19);} else{ t11=C_eqp(t7,lf[224]); if(C_truep(t11)){ t12=t2; t13=C_u_i_car(t12); t14=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t15=t14; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=((C_word*)t16)[1]; t18=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15576,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li208),tmp=(C_word)a,a+=5,tmp); t19=t2; t20=C_u_i_cdr(t19); t21=C_i_check_list_2(t20,lf[211]); t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15587,a[2]=t1,a[3]=t13,tmp=(C_word)a,a+=4,tmp); t23=C_SCHEME_UNDEFINED; t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp); t25=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15589,a[2]=t16,a[3]=t24,a[4]=t18,a[5]=t17,a[6]=((C_word)li209),tmp=(C_word)a,a+=7,tmp)); t26=((C_word*)t24)[1]; f_15589(t26,t22,t20);} else{ t12=C_eqp(t7,lf[52]); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15630,a[2]=t3,a[3]=t2,a[4]=t1,a[5]=t4,a[6]=t7,a[7]=t5,tmp=(C_word)a,a+=8,tmp); if(C_truep(t12)){ t14=t13; f_15630(t14,t12);} else{ t14=C_eqp(t7,lf[179]); if(C_truep(t14)){ t15=t13; f_15630(t15,t14);} else{ t15=C_eqp(t7,lf[232]); t16=t13; f_15630(t16,(C_truep(t15)?t15:C_eqp(t7,lf[245])));}}}}}}} else{ t6=t2; t7=C_eqp(t6,lf[124]); if(C_truep(t7)){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=lf[274]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t6,lf[125]); if(C_truep(t8)){ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=lf[275]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15838,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ if(C_truep(C_charp(t2))){ t10=t2; t11=C_fix(C_character_code(t10)); t12=t9; f_15838(t12,C_fixnum_less_or_equal_p(C_fix(128),t11));} else{ t10=t9; f_15838(t10,C_SCHEME_FALSE);}} else{ t10=t9; f_15838(t10,C_SCHEME_FALSE);}}}}} /* rec in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15458,3,av);} /* irregex-core.scm:1524: adjust */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15455(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* g2368 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_15515(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_15515,3,t0,t1,t2);} /* irregex-core.scm:1531: adjust */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15455(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE);} /* k15524 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_15526,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2362 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_15528(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15528,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15553,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:1531: g2368 */ t5=((C_word*)t0)[4]; f_15515(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15551 in map-loop2362 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15553,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15528(t6,((C_word*)t0)[5],t5);} /* g2395 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_15576(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_15576,3,t0,t1,t2);} /* irregex-core.scm:1533: adjust */ t3=((C_word*)((C_word*)t0)[2])[1]; f_15455(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_TRUE);} /* k15585 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_15587,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2389 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_15589(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15589,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15614,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:1533: g2395 */ t5=((C_word*)t0)[4]; f_15576(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15612 in map-loop2389 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15614,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15589(t6,((C_word*)t0)[5],t5);} /* k15628 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_15630(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){ C_save_and_reclaim_args((void *)trf_15630,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15639,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1537: sre->cset */ f_26215(t2,((C_word*)t0)[3],C_a_i_list(&a,1,((C_word*)t0)[5]));}} else{ t2=C_eqp(((C_word*)t0)[6],lf[127]); if(C_truep(t2)){ t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=( /* irregex-core.scm:1544: sre-sequence */ f_17960(C_a_i(&a,3),t4) ); t6=C_eqp(t5,lf[124]); if(C_truep(t6)){ t7=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t7; av2[1]=lf[272]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(t5,lf[125]); if(C_truep(t7)){ t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=lf[273]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=((C_word*)t0)[7]; t13=((C_word*)t0)[3]; t14=C_u_i_cdr(t13); t15=C_i_check_list_2(t14,lf[211]); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15697,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15699,a[2]=t10,a[3]=t18,a[4]=t12,a[5]=t11,a[6]=((C_word)li210),tmp=(C_word)a,a+=7,tmp)); t20=((C_word*)t18)[1]; f_15699(t20,t16,t14);}}} else{ t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=((C_word*)t0)[7]; t10=((C_word*)t0)[3]; t11=C_u_i_cdr(t10); t12=C_i_check_list_2(t11,lf[211]); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15753,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15755,a[2]=t7,a[3]=t15,a[4]=t9,a[5]=t8,a[6]=((C_word)li211),tmp=(C_word)a,a+=7,tmp)); t17=((C_word*)t15)[1]; f_15755(t17,t13,t11);}}} /* k15637 in k15628 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_15639,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15645,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15662,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1538: cset->plist */ f_26104(t4,t2);} /* k15643 in k15637 in k15628 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15645,2,av);} a=C_alloc(3); if(C_truep(t1)){ if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15655,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1540: cset->utf8-pattern */ f_15333(t2,((C_word*)t0)[4]);} else{ /* irregex-core.scm:1541: cset->utf8-pattern */ f_15333(((C_word*)t0)[3],((C_word*)t0)[4]);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k15653 in k15643 in k15637 in k15628 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_15655,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,lf[223],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k15660 in k15637 in k15628 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15662,2,av);} /* irregex-core.scm:1538: any */ f_9158(((C_word*)t0)[2],lf[204],t1);} /* k15695 in k15628 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_15697,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[127],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2432 in k15628 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_15699(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15699,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15724,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:1548: g2438 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15722 in map-loop2432 in k15628 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15724,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15699(t6,((C_word*)t0)[5],t5);} /* k15751 in k15628 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_15753,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2458 in k15628 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_15755(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15755,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15780,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:1550: g2464 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15778 in map-loop2458 in k15628 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_15780,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_15755(t6,((C_word*)t0)[5],t5);} /* k15836 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_15838(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_15838,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15848,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1557: char->utf8-list */ f_14202(t6,((C_word*)t0)[3]);} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k15846 in k15836 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_15848,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15851,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15853,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word)li212),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_15853(t6,t2,t1);} /* k15849 in k15846 in k15836 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_15851,2,av);} a=C_alloc(3); /* irregex-core.scm:1557: sre-sequence */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* irregex-core.scm:1557: sre-sequence */ f_17960(C_a_i(&a,3),t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2492 in k15846 in k15836 in adjust in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_15853(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_15853,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_make_character(C_unfix(t3)); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.irregex#irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_15900,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15907,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1574: irregex? */ t5=*((C_word*)lf[5]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k15905 in chicken.irregex#irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_15907,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ t2=lf[218]; t3=((C_word*)t0)[2]; t4=C_slot(t2,C_fix(0)); if(C_truep(C_i_equalp(t4,t3))){ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_slot(t2,C_fix(2)); if(C_truep(C_i_equalp(t5,t3))){ t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=C_slot(t2,C_fix(3)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_slot(t2,C_fix(4)); if(C_truep(C_i_equalp(t6,t3))){ t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=C_slot(t2,C_fix(5)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_slot(t2,C_fix(6)); if(C_truep(C_i_equalp(t7,t3))){ t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=C_slot(t2,C_fix(7)); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_slot(t2,C_fix(8)); if(C_truep(C_i_equalp(t8,t3))){ t9=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t9; av2[1]=C_slot(t2,C_fix(9)); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15961,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_stringp(((C_word*)t0)[2]))){ /* irregex-core.scm:1579: string->irregex */ t10=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ /* irregex-core.scm:1580: sre->irregex */ t10=*((C_word*)lf[220]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}}}}}}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[2]))){{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[219]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[4]; C_apply(5,av2);}} else{{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[220]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[4]; C_apply(5,av2);}}}}} /* k15959 in k15905 in chicken.irregex#irregex in k7651 in k7426 in k7423 */ static void C_ccall f_15961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15961,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(10)); t3=C_i_setslot(((C_word*)t0)[2],t2,((C_word*)t0)[3]); t4=C_fixnum_plus(t2,C_fix(1)); t5=C_i_setslot(((C_word*)t0)[2],t4,t1); t6=C_fixnum_plus(t2,C_fix(2)); t7=C_fixnum_modulo(t6,C_fix(10)); t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t7); t9=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t9; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* chicken.irregex#string->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_16028,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16036,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t4; av2[2]=*((C_word*)lf[102]+1); av2[3]=t2; av2[4]=t3; C_apply(5,av2);}} /* k16034 in chicken.irregex#string->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16036,2,av);}{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[220]+1); av2[3]=t1; av2[4]=((C_word*)t0)[3]; C_apply(5,av2);}} /* chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_16038,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16042,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1590: symbol-list->flags */ f_10196(t4,t3);} /* k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_16042,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16045,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_fixnum_and(t2,C_fix(32)); t6=C_eqp(C_fix(32),t5); t7=C_fixnum_and(t2,C_fix(2)); t8=C_eqp(C_fix(2),t7); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15455,a[2]=t10,a[3]=((C_word)li213),tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_15455(t12,t3,t4,t6,t8);} /* k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_16045,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16048,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:1594: sre-searcher? */ t4=lf[271];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; f_16484(3,av2);}} /* k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16048,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16051,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ /* irregex-core.scm:1595: sre-remove-initial-bos */ t4=lf[270];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; f_18505(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[3]; f_16051(2,av2);}}} /* k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_16051,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16054,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=((C_word*)t0)[6]; if(C_truep(C_u_i_memq(lf[268],t4))){ t5=t3; f_16054(t5,C_fix(1));} else{ t5=((C_word*)t0)[6]; t6=t3; f_16054(t6,(C_truep(C_u_i_memq(lf[269],t5))?C_fix(50):C_fix(10)));}} /* k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_16054(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(27,0,3)))){ C_save_and_reclaim_args((void *)trf_16054,2,t0,t1);} a=C_alloc(27); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16057,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t4=((C_word*)t0)[7]; if(C_truep(C_u_i_memq(lf[267],t4))){ t5=t3;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_16057(2,av2);}} else{ if(C_truep(((C_word*)t0)[2])){ t5=t3;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_TRUE; f_16057(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16129,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=C_a_i_list(&a,2,lf[127],lf[124]); t7=C_a_i_list(&a,3,lf[115],t6,((C_word*)t0)[6]); /* irregex-core.scm:1603: sre->nfa */ f_20477(t5,t7,((C_word*)t0)[5]);}}} /* k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_16057,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16060,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ /* irregex-core.scm:1607: sre->nfa */ f_20477(t3,((C_word*)t0)[6],((C_word*)t0)[5]);} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_16060(2,av2);}}} /* k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_16060,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16063,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t1)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16103,a[2]=((C_word*)t0)[8],a[3]=((C_word)li203),tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1607: g2613 */ t4=t3; f_16103(t4,t2,t1);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_16063(2,av2);}}} /* k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_16063,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16066,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1611: sre-count-submatches */ f_16751(t3,((C_word*)t0)[7]);} /* k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_16066,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16069,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:1612: sre-names */ f_18187(t3,((C_word*)t0)[8],C_fix(1),C_SCHEME_END_OF_LIST);} /* k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_16069,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16072,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=t3; t5=((C_word*)t0)[9]; t6=C_a_i_list(&a,1,t2); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16851,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t6))){ t8=t7;{ C_word *av2=av; av2[0]=t8; av2[1]=C_u_i_car(t6); f_16851(2,av2);}} else{ /* irregex-core.scm:1697: sre-names */ f_18187(t7,t5,C_fix(1),C_SCHEME_END_OF_LIST);}} /* k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_16072,2,av);} a=C_alloc(11); t2=t1; t3=(C_truep(((C_word*)t0)[2])?C_fixnum_or(C_fix(0),C_fix(1)):C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16098,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:1616: sre-consumer? */ t6=lf[251];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[8]; f_16598(3,av2);}} /* k16082 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_16084,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_record8(&a,8,lf[6],C_SCHEME_FALSE,C_SCHEME_FALSE,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_16098,2,av);} a=C_alloc(21); t2=(C_truep(t1)?C_fixnum_or(((C_word*)t0)[2],C_fix(2)):((C_word*)t0)[2]); t3=t2; if(C_truep(((C_word*)t0)[3])){ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record8(&a,8,lf[6],((C_word*)t0)[3],((C_word*)t0)[5],C_SCHEME_FALSE,t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16084,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); t5=t4; t6=((C_word*)t0)[9]; t7=C_a_i_list(&a,2,((C_word*)t0)[10],((C_word*)t0)[8]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23113,a[2]=t9,a[3]=t7,a[4]=t5,a[5]=t6,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t7))){ t11=C_u_i_cdr(t7); if(C_truep(C_i_pairp(t11))){ t12=t10;{ C_word *av2=av; av2[0]=t12; av2[1]=C_i_cadr(t7); f_23113(2,av2);}} else{ /* irregex-core.scm:3091: sre-names */ f_18187(t10,t6,C_fix(1),C_SCHEME_END_OF_LIST);}} else{ /* irregex-core.scm:3091: sre-names */ f_18187(t10,t6,C_fix(1),C_SCHEME_END_OF_LIST);}}} /* g2613 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_16103(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_16103,3,t0,t1,t2);} a=C_alloc(8); t3=t2; t4=C_i_vector_length(t3); t5=C_a_i_fixnum_quotient_checked(&a,2,t4,C_fix(4)); t6=C_fixnum_times(((C_word*)t0)[2],t5); /* irregex-core.scm:1609: nfa->dfa */ f_22085(t1,t2,C_a_i_list(&a,1,t6));} /* k16127 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_16129,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16133,a[2]=((C_word*)t0)[2],a[3]=((C_word)li204),tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:1601: g2602 */ t3=t2; f_16133(t3,((C_word*)t0)[3],t1);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_16057(2,av2);}}} /* g2602 in k16127 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_16133(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_16133,3,t0,t1,t2);} a=C_alloc(8); t3=t2; t4=C_i_vector_length(t3); t5=C_a_i_fixnum_quotient_checked(&a,2,t4,C_fix(4)); t6=C_fixnum_times(((C_word*)t0)[2],t5); /* irregex-core.scm:1605: nfa->dfa */ f_22085(t1,t2,C_a_i_list(&a,1,t6));} /* chicken.irregex#sre-empty? in k7651 in k7426 in k7423 */ static void C_ccall f_16171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_16171,3,av);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[127]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16188,a[2]=t1,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t7=t6; f_16188(t7,t5);} else{ t7=C_eqp(t4,lf[131]); if(C_truep(t7)){ t8=t6; f_16188(t8,t7);} else{ t8=C_eqp(t4,lf[111]); if(C_truep(t8)){ t9=t6; f_16188(t9,t8);} else{ t9=C_eqp(t4,lf[113]); if(C_truep(t9)){ t10=t6; f_16188(t10,t9);} else{ t10=C_eqp(t4,lf[112]); t11=t6; f_16188(t11,(C_truep(t10)?t10:C_eqp(t4,lf[114])));}}}}} else{ t3=t2; t4=C_u_i_memq(t3,lf[276]); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k16186 in chicken.irregex#sre-empty? in k7651 in k7426 in k7423 */ static void C_fcall f_16188(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_16188,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[133]); if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[4]); t4=C_i_numberp(t3); t5=C_i_not(t4); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=((C_word*)t0)[4]; t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); t9=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t9; av2[1]=C_i_zerop(t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t3=C_eqp(((C_word*)t0)[3],lf[103]); if(C_truep(t3)){ t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); /* irregex-core.scm:1633: any */ f_9158(((C_word*)t0)[2],lf[139],t5);} else{ t4=C_eqp(((C_word*)t0)[3],lf[225]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16231,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ t6=t5; f_16231(t6,t4);} else{ t6=C_eqp(((C_word*)t0)[3],lf[115]); if(C_truep(t6)){ t7=t5; f_16231(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[3],lf[243]); if(C_truep(t7)){ t8=t5; f_16231(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[3],lf[108]); if(C_truep(t8)){ t9=t5; f_16231(t9,t8);} else{ t9=C_eqp(((C_word*)t0)[3],lf[119]); if(C_truep(t9)){ t10=t5; f_16231(t10,t9);} else{ t10=C_eqp(((C_word*)t0)[3],lf[120]); if(C_truep(t10)){ t11=t5; f_16231(t11,t10);} else{ t11=C_eqp(((C_word*)t0)[3],lf[129]); t12=t5; f_16231(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t0)[3],lf[237])));}}}}}}}}}} /* k16229 in k16186 in chicken.irregex#sre-empty? in k7651 in k7426 in k7423 */ static void C_fcall f_16231(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16231,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:1635: every */ f_9201(((C_word*)t0)[3],lf[139],t3);} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.irregex#sre-any? in k7651 in k7426 in k7423 */ static void C_ccall f_16338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_16338,3,av);} a=C_alloc(5); t3=C_eqp(t2,lf[124]); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_car(t4); t6=C_eqp(t5,lf[115]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16361,a[2]=t2,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); if(C_truep(t6)){ t8=t7; f_16361(t8,t6);} else{ t8=C_eqp(t5,lf[225]); if(C_truep(t8)){ t9=t7; f_16361(t9,t8);} else{ t9=C_eqp(t5,lf[243]); if(C_truep(t9)){ t10=t7; f_16361(t10,t9);} else{ t10=C_eqp(t5,lf[108]); if(C_truep(t10)){ t11=t7; f_16361(t11,t10);} else{ t11=C_eqp(t5,lf[119]); t12=t7; f_16361(t12,(C_truep(t11)?t11:C_eqp(t5,lf[120])));}}}}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k16359 in chicken.irregex#sre-any? in k7651 in k7426 in k7423 */ static void C_fcall f_16361(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16361,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_pairp(t3))){ t4=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t4))){ t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_u_i_car(t6); /* irregex-core.scm:1644: sre-any? */ t8=lf[277];{ C_word av2[3]; av2[0]=t8; av2[1]=((C_word*)t0)[3]; av2[2]=t7; f_16338(3,av2);}} else{ t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[4],lf[103]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* irregex-core.scm:1645: every */ f_9201(((C_word*)t0)[3],lf[277],t4);} else{ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* chicken.irregex#sre-repeater? in k7651 in k7426 in k7423 */ static C_word C_fcall f_16439(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=t1; t3=C_u_i_car(t2); t4=C_u_i_memq(t3,lf[278]); if(C_truep(t4)){ return(t4);} else{ t5=t1; t6=C_u_i_car(t5); if(C_truep((C_truep(C_eqp(t6,lf[243]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[108]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[119]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[120]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[115]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[225]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))){ t7=t1; t8=C_u_i_cdr(t7); if(C_truep(C_i_pairp(t8))){ t9=C_i_cddr(t1); if(C_truep(C_i_nullp(t9))){ t10=t1; t11=C_u_i_cdr(t10); t12=C_u_i_car(t11); t14=t12; t1=t14; goto loop;} else{ return(C_SCHEME_FALSE);}} else{ return(C_SCHEME_FALSE);}} else{ return(C_SCHEME_FALSE);}}} else{ return(C_SCHEME_FALSE);}} /* chicken.irregex#sre-searcher? in k7651 in k7426 in k7423 */ static void C_ccall f_16484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_16484,3,av);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[127]); t6=(C_truep(t5)?t5:C_eqp(t4,lf[129])); if(C_truep(t6)){ t7=t2; t8=C_u_i_cdr(t7); t9=( /* irregex-core.scm:1659: sre-sequence */ f_17960(C_a_i(&a,3),t8) ); /* irregex-core.scm:1659: sre-any? */ t10=lf[277];{ C_word *av2=av; av2[0]=t10; av2[1]=t1; av2[2]=t9; f_16338(3,av2);}} else{ t7=C_eqp(t4,lf[115]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16519,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t7)){ t9=t8; f_16519(t9,t7);} else{ t9=C_eqp(t4,lf[225]); if(C_truep(t9)){ t10=t8; f_16519(t10,t9);} else{ t10=C_eqp(t4,lf[243]); if(C_truep(t10)){ t11=t8; f_16519(t11,t10);} else{ t11=C_eqp(t4,lf[108]); if(C_truep(t11)){ t12=t8; f_16519(t12,t11);} else{ t12=C_eqp(t4,lf[119]); t13=t8; f_16519(t13,(C_truep(t12)?t12:C_eqp(t4,lf[120])));}}}}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_eqp(lf[186],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16517 in chicken.irregex#sre-searcher? in k7651 in k7426 in k7423 */ static void C_fcall f_16519(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16519,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_pairp(t3))){ t4=C_i_cadr(((C_word*)t0)[2]); /* irregex-core.scm:1661: sre-searcher? */ t5=lf[271];{ C_word av2[3]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; f_16484(3,av2);}} else{ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[4],lf[103]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* irregex-core.scm:1662: every */ f_9201(((C_word*)t0)[3],lf[271],t4);} else{ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* chicken.irregex#sre-consumer? in k7651 in k7426 in k7423 */ static void C_ccall f_16598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_16598,3,av);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[127]); t6=(C_truep(t5)?t5:C_eqp(t4,lf[129])); if(C_truep(t6)){ t7=t2; t8=C_u_i_cdr(t7); t9=( /* irregex-core.scm:1669: sre-sequence */ f_17960(C_a_i(&a,3),t8) ); /* irregex-core.scm:1669: sre-any? */ t10=lf[277];{ C_word *av2=av; av2[0]=t10; av2[1]=t1; av2[2]=t9; f_16338(3,av2);}} else{ t7=C_eqp(t4,lf[115]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16633,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t7)){ t9=t8; f_16633(t9,t7);} else{ t9=C_eqp(t4,lf[225]); if(C_truep(t9)){ t10=t8; f_16633(t10,t9);} else{ t10=C_eqp(t4,lf[243]); if(C_truep(t10)){ t11=t8; f_16633(t11,t10);} else{ t11=C_eqp(t4,lf[108]); if(C_truep(t11)){ t12=t8; f_16633(t12,t11);} else{ t12=C_eqp(t4,lf[119]); t13=t8; f_16633(t13,(C_truep(t12)?t12:C_eqp(t4,lf[120])));}}}}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_eqp(lf[187],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16631 in chicken.irregex#sre-consumer? in k7651 in k7426 in k7423 */ static void C_fcall f_16633(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_16633,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16646,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1671: last */ f_9120(t4,((C_word*)t0)[2]);} else{ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[4],lf[103]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* irregex-core.scm:1672: every */ f_9201(((C_word*)t0)[3],lf[251],t4);} else{ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k16644 in k16631 in chicken.irregex#sre-consumer? in k7651 in k7426 in k7423 */ static void C_ccall f_16646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16646,2,av);} /* irregex-core.scm:1671: sre-consumer? */ t2=lf[251];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_16598(3,av2);}} /* chicken.irregex#sre-has-submatches? in k7651 in k7426 in k7423 */ static void C_ccall f_16712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_16712,3,av);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_u_i_memq(t4,lf[280]); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t2; t7=C_u_i_car(t6); t8=C_eqp(lf[233],t7); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16738,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t10=C_i_cadr(t2); /* irregex-core.scm:1680: string->sre */ t11=*((C_word*)lf[102]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t9=t2; t10=C_u_i_cdr(t9); /* irregex-core.scm:1681: any */ f_9158(t1,lf[279],t10);}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16736 in chicken.irregex#sre-has-submatches? in k7651 in k7426 in k7423 */ static void C_ccall f_16738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16738,2,av);} /* irregex-core.scm:1680: sre-has-submatches? */ t2=lf[279];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_16712(3,av2);}} /* chicken.irregex#sre-count-submatches in k7651 in k7426 in k7423 */ static void C_fcall f_16751(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_16751,2,t1,t2);} a=C_alloc(6); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16757,a[2]=t4,a[3]=((C_word)li221),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1];{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(0); f_16757(4,av2);}} /* count in chicken.irregex#sre-count-submatches in k7651 in k7426 in k7423 */ static void C_ccall f_16757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_16757,4,av);} a=C_alloc(14); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_car(t4); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16778,a[2]=t3,a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t7=C_eqp(t5,lf[243]); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16784,a[2]=t3,a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp); if(C_truep(t7)){ t9=t8; f_16784(t9,t7);} else{ t9=C_eqp(t5,lf[108]); if(C_truep(t9)){ t10=t8; f_16784(t10,t9);} else{ t10=C_eqp(t5,lf[119]); t11=t8; f_16784(t11,(C_truep(t10)?t10:C_eqp(t5,lf[120])));}}} else{ t4=t3; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k16776 in count in chicken.irregex#sre-count-submatches in k7651 in k7426 in k7423 */ static void C_ccall f_16778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_16778,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* irregex-core.scm:1686: fold */ f_9246(((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],t2,t4);} /* k16782 in count in chicken.irregex#sre-count-submatches in k7651 in k7426 in k7423 */ static void C_fcall f_16784(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,4)))){ C_save_and_reclaim_args((void *)trf_16784,2,t0,t1);} a=C_alloc(29); if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* irregex-core.scm:1686: fold */ f_9246(((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],t2,t4);} else{ t2=C_eqp(((C_word*)t0)[6],lf[242]); if(C_truep(t2)){ t3=C_i_cadr(((C_word*)t0)[3]); t4=C_i_caddr(((C_word*)t0)[3]); t5=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t5; av2[1]=C_fixnum_plus(t3,t4); f_16778(2,av2);}} else{ t3=C_eqp(((C_word*)t0)[6],lf[233]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16814,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp); t5=C_i_cadr(((C_word*)t0)[3]); /* irregex-core.scm:1691: string->sre */ t6=*((C_word*)lf[102]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(0)); t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); /* irregex-core.scm:1686: fold */ f_9246(((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],t4,t6);}}}} /* k16812 in k16782 in count in chicken.irregex#sre-count-submatches in k7651 in k7426 in k7423 */ static void C_ccall f_16814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16814,2,av);} /* irregex-core.scm:1691: sre-count-submatches */ f_16751(((C_word*)t0)[2],t1);} /* k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_16851,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16854,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17951,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1698: sre-count-submatches */ f_16751(t4,((C_word*)t0)[3]);} /* k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,7)))){ C_save_and_reclaim((void *)f_16854,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16861,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16863,a[2]=t5,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li202),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_16863(t7,t3,((C_word*)t0)[4],C_fix(1),C_fix(0),C_fix(0),*((C_word*)lf[264]+1));} /* k16859 in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16861,2,av);} t2=C_i_vector_set(((C_word*)t0)[2],C_fix(0),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_16863(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,0,6)))){ C_save_and_reclaim_args((void *)trf_16863,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(19); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16866,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=((C_word)li187),tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t2))){ t8=t2; t9=C_u_i_car(t8); if(C_truep(C_i_stringp(t9))){ /* irregex-core.scm:1707: grow */ t10=t7; f_16866(t10,t1,C_fix(1));} else{ t10=t2; t11=C_u_i_car(t10); t12=C_eqp(t11,lf[52]); t13=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_16906,a[2]=t7,a[3]=t1,a[4]=t11,a[5]=((C_word*)t0)[2],a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t6,a[10]=t2,a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[4],tmp=(C_word)a,a+=13,tmp); if(C_truep(t12)){ t14=t13; f_16906(t14,t12);} else{ t14=C_eqp(t11,lf[179]); if(C_truep(t14)){ t15=t13; f_16906(t15,t14);} else{ t15=C_eqp(t11,lf[232]); t16=t13; f_16906(t16,(C_truep(t15)?t15:C_eqp(t11,lf[245])));}}}} else{ if(C_truep(C_charp(t2))){ /* irregex-core.scm:1822: grow */ t8=t7; f_16866(t8,t1,C_fix(1));} else{ if(C_truep(C_i_stringp(t2))){ t8=t2; t9=C_block_size(t8); /* irregex-core.scm:1824: grow */ t10=t7; f_16866(t10,t1,t9);} else{ t8=t2; if(C_truep((C_truep(C_eqp(t8,lf[124]))?C_SCHEME_TRUE:(C_truep(C_eqp(t8,lf[125]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* irregex-core.scm:1826: grow */ t9=t7; f_16866(t9,t1,C_fix(1));} else{ t9=t2; if(C_truep((C_truep(C_eqp(t9,lf[110]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[186]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[187]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[195]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[196]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[183]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[184]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[185]))?C_SCHEME_TRUE:(C_truep(C_eqp(t9,lf[262]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))))))){ /* irregex-core.scm:1828: return */ t10=t6;{ C_word av2[4]; av2[0]=t10; av2[1]=t1; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t10=C_i_assq(t2,lf[246]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17928,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp); t12=C_i_cdr(t10); if(C_truep(C_i_closurep(t12))){ t13=C_u_i_cdr(t10); /* irregex-core.scm:1832: g2987 */ t14=t13;{ C_word av2[2]; av2[0]=t14; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t13=C_u_i_cdr(t10); /* irregex-core.scm:1832: lp */ t17=t1; t18=t13; t19=t3; t20=t4; t21=t5; t22=t6; t1=t17; t2=t18; t3=t19; t4=t20; t5=t21; t6=t22; goto loop;}} else{ /* irregex-core.scm:1834: chicken.base#error */ t11=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t1; av2[2]=lf[259]; av2[3]=lf[263]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}}}}}}} /* grow in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_16866(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16866,3,t0,t1,t2);} t3=C_fixnum_plus(((C_word*)t0)[2],t2); if(C_truep(((C_word*)t0)[3])){ t4=C_fixnum_plus(((C_word*)t0)[3],t2); /* irregex-core.scm:1703: return */ t5=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* irregex-core.scm:1703: return */ t4=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_16906(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_16906,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ /* irregex-core.scm:1710: grow */ t2=((C_word*)t0)[2]; f_16866(t2,((C_word*)t0)[3],C_fix(1));} else{ t2=C_eqp(((C_word*)t0)[4],lf[233]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16922,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp); t4=C_i_cadr(((C_word*)t0)[10]); /* irregex-core.scm:1712: string->sre */ t5=*((C_word*)lf[102]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_eqp(((C_word*)t0)[4],lf[115]); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_16935,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); if(C_truep(t3)){ t5=t4; f_16935(t5,t3);} else{ t5=C_eqp(((C_word*)t0)[4],lf[225]); if(C_truep(t5)){ t6=t4; f_16935(t6,t5);} else{ t6=C_eqp(((C_word*)t0)[4],lf[223]); if(C_truep(t6)){ t7=t4; f_16935(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[4],lf[224]); t8=t4; f_16935(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[237])));}}}}}} /* k16920 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_16922,2,av);} /* irregex-core.scm:1712: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_16863(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_16935(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,6)))){ C_save_and_reclaim_args((void *)trf_16935,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16942,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=((C_word*)t0)[6],a[7]=((C_word)li189),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_16942(t7,((C_word*)t0)[7],t3,((C_word*)t0)[8],C_fix(0),C_fix(0));} else{ t2=C_eqp(((C_word*)t0)[9],lf[103]); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17020,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t6,a[6]=((C_word*)t0)[6],a[7]=((C_word)li191),tmp=(C_word)a,a+=8,tmp)); t8=((C_word*)t6)[1]; f_17020(t8,((C_word*)t0)[7],t4,((C_word*)t0)[8],C_SCHEME_FALSE,C_fix(0));} else{ t3=C_eqp(((C_word*)t0)[9],lf[109]); if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_i_nullp(t5); t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17107,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); if(C_truep(t6)){ t8=t7; f_17107(t8,t6);} else{ t8=C_i_cddr(((C_word*)t0)[2]); t9=t7; f_17107(t9,C_i_nullp(t8));}} else{ t4=C_eqp(((C_word*)t0)[9],lf[242]); if(C_truep(t4)){ t5=C_i_cdddr(((C_word*)t0)[2]); t6=( /* irregex-core.scm:1757: sre-sequence */ f_17960(C_a_i(&a,3),t5) ); t7=C_i_cadr(((C_word*)t0)[2]); t8=C_fixnum_plus(((C_word*)t0)[8],t7); /* irregex-core.scm:1757: lp */ t9=((C_word*)((C_word*)t0)[6])[1]; f_16863(t9,((C_word*)t0)[7],t6,t8,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t5=C_eqp(((C_word*)t0)[9],lf[243]); t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17259,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(t5)){ t7=t6; f_17259(t7,t5);} else{ t7=C_eqp(((C_word*)t0)[9],lf[108]); if(C_truep(t7)){ t8=t6; f_17259(t8,t7);} else{ t8=C_eqp(((C_word*)t0)[9],lf[119]); t9=t6; f_17259(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t0)[9],lf[120])));}}}}}}} /* lp2 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_16942(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,6)))){ C_save_and_reclaim_args((void *)trf_16942,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t6=C_fixnum_plus(((C_word*)t0)[2],t4); if(C_truep(((C_word*)t0)[3])){ if(C_truep(t5)){ t7=C_fixnum_plus(((C_word*)t0)[3],t5); /* irregex-core.scm:1716: return */ t8=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t8; av2[1]=t1; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ /* irregex-core.scm:1716: return */ t7=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=t6; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} else{ /* irregex-core.scm:1716: return */ t7=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=t6; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} else{ t6=C_i_car(t2); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16975,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word)li188),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1717: lp */ t8=((C_word*)((C_word*)t0)[6])[1]; f_16863(t8,t1,t6,t3,C_fix(0),C_fix(0),t7);}} /* a16974 in lp2 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_16975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_16975,4,av);} a=C_alloc(10); t4=C_i_cdr(((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17005,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=t3,a[7]=((C_word*)t0)[6],a[8]=t1,a[9]=t5,tmp=(C_word)a,a+=10,tmp); t7=((C_word*)t0)[2]; t8=C_u_i_car(t7); /* irregex-core.scm:1720: sre-count-submatches */ f_16751(t6,t8);} /* k17003 in a16974 in lp2 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_17005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17005,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); t3=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[6])){ t4=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[6]); /* irregex-core.scm:1719: lp2 */ t5=((C_word*)((C_word*)t0)[7])[1]; f_16942(t5,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,t4);} else{ /* irregex-core.scm:1719: lp2 */ t4=((C_word*)((C_word*)t0)[7])[1]; f_16942(t4,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,C_SCHEME_FALSE);}} else{ /* irregex-core.scm:1719: lp2 */ t4=((C_word*)((C_word*)t0)[7])[1]; f_16942(t4,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,C_SCHEME_FALSE);}} /* lp2 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_17020(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,6)))){ C_save_and_reclaim_args((void *)trf_17020,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t6=t4; t7=(C_truep(t6)?C_fixnum_plus(((C_word*)t0)[2],t6):C_fixnum_plus(((C_word*)t0)[2],C_fix(1))); if(C_truep(((C_word*)t0)[3])){ if(C_truep(t5)){ t8=C_fixnum_plus(((C_word*)t0)[3],t5); /* irregex-core.scm:1726: return */ t9=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t9; av2[1]=t1; av2[2]=t7; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* irregex-core.scm:1726: return */ t8=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t8; av2[1]=t1; av2[2]=t7; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ /* irregex-core.scm:1726: return */ t8=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t8; av2[1]=t1; av2[2]=t7; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t6=C_i_car(t2); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17057,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=t4,a[7]=((C_word)li190),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1727: lp */ t8=((C_word*)((C_word*)t0)[6])[1]; f_16863(t8,t1,t6,t3,C_fix(0),C_fix(0),t7);}} /* a17056 in lp2 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_17057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_17057,4,av);} a=C_alloc(10); t4=C_i_cdr(((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17090,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[6],a[9]=t2,tmp=(C_word)a,a+=10,tmp); t7=((C_word*)t0)[2]; t8=C_u_i_car(t7); /* irregex-core.scm:1730: sre-count-submatches */ f_16751(t6,t8);} /* k17071 in k17088 in a17056 in lp2 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in ... */ static void C_ccall f_17073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_17073,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17077,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[6])){ if(C_truep(((C_word*)t0)[7])){ /* irregex-core.scm:1732: scheme#max */ t4=*((C_word*)lf[252]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* irregex-core.scm:1729: lp2 */ t4=((C_word*)((C_word*)t0)[2])[1]; f_17020(t4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,C_SCHEME_FALSE);}} else{ /* irregex-core.scm:1729: lp2 */ t4=((C_word*)((C_word*)t0)[2])[1]; f_17020(t4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,C_SCHEME_FALSE);}} /* k17075 in k17071 in k17088 in a17056 in lp2 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in ... */ static void C_ccall f_17077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17077,2,av);} /* irregex-core.scm:1729: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_17020(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* k17088 in a17056 in lp2 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_17090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_17090,2,av);} a=C_alloc(8); t2=C_fixnum_plus(((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17073,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[8])){ /* irregex-core.scm:1731: scheme#min */ t5=*((C_word*)lf[253]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[9]; f_17073(2,av2);}}} /* k17105 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_17107(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_17107,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ /* irregex-core.scm:1736: return */ t2=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17113,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); t3=((C_word*)t0)[6]; t4=C_u_i_car(t3); /* irregex-core.scm:1738: sre-count-submatches */ f_16751(t2,t4);}} /* k17111 in k17105 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_17113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_17113,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17116,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_i_cadr(((C_word*)t0)[2]); /* irregex-core.scm:1739: sre-count-submatches */ f_16751(t3,t4);} /* k17114 in k17111 in k17105 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_17116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_17116,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17123,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=C_i_cadr(((C_word*)t0)[2]); t5=C_i_numberp(t4); if(C_truep(t5)){ if(C_truep(t5)){ t6=t3; f_17123(t6,lf[110]);} else{ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=t3; f_17123(t8,C_u_i_car(t7));}} else{ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); if(C_truep(C_i_symbolp(t8))){ t9=t3; f_17123(t9,lf[110]);} else{ t9=((C_word*)t0)[2]; t10=C_u_i_cdr(t9); t11=t3; f_17123(t11,C_u_i_car(t10));}}} /* k17121 in k17114 in k17111 in k17105 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in ... */ static void C_fcall f_17123(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,6)))){ C_save_and_reclaim_args((void *)trf_17123,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17125,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li194),tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1740: lp */ t3=((C_word*)((C_word*)t0)[7])[1]; f_16863(t3,((C_word*)t0)[8],t1,((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[10],t2);} /* a17124 in k17121 in k17114 in k17111 in k17105 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in ... */ static void C_ccall f_17125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,6)))){ C_save_and_reclaim((void *)f_17125,4,av);} a=C_alloc(11); t4=C_i_caddr(((C_word*)t0)[2]); t5=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]); t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17139,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=t3,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li193),tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:1745: lp */ t7=((C_word*)((C_word*)t0)[7])[1]; f_16863(t7,t1,t4,t5,C_fix(0),C_fix(0),t6);} /* a17138 in a17124 in k17121 in k17114 in k17111 in k17105 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in ... */ static void C_ccall f_17139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){ C_save_and_reclaim((void *)f_17139,4,av);} a=C_alloc(8); t4=C_i_cdddr(((C_word*)t0)[2]); t5=C_i_pairp(t4); t6=(C_truep(t5)?C_i_cadddr(((C_word*)t0)[2]):lf[110]); t7=C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]),((C_word*)t0)[5]); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17153,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t3,a[5]=((C_word*)t0)[8],a[6]=t2,a[7]=((C_word)li192),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1747: lp */ t9=((C_word*)((C_word*)t0)[9])[1]; f_16863(t9,t1,t6,t7,C_fix(0),C_fix(0),t8);} /* a17152 in a17138 in a17124 in k17121 in k17114 in k17111 in k17105 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in ... */ static void C_ccall f_17153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_17153,4,av);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17182,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:1752: scheme#min */ t5=*((C_word*)lf[253]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k17176 in k17180 in a17152 in a17138 in a17124 in k17121 in k17114 in k17111 in k17105 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in ... */ static void C_ccall f_17178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17178,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); /* irregex-core.scm:1752: return */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k17180 in a17152 in a17138 in a17124 in k17121 in k17114 in k17111 in k17105 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in ... */ static void C_ccall f_17182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_17182,2,av);} a=C_alloc(6); t2=C_fixnum_plus(((C_word*)t0)[2],t1); t3=t2; if(C_truep(((C_word*)t0)[3])){ if(C_truep(((C_word*)t0)[4])){ if(C_truep(((C_word*)t0)[5])){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17178,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:1754: scheme#max */ t5=*((C_word*)lf[252]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* irregex-core.scm:1752: return */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[7]; av2[2]=t3; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} else{ /* irregex-core.scm:1752: return */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[7]; av2[2]=t3; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} else{ /* irregex-core.scm:1752: return */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[7]; av2[2]=t3; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_17259(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,6)))){ C_save_and_reclaim_args((void *)trf_17259,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17266,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=((C_word*)t0)[9]; t4=C_u_i_car(t3); t5=C_eqp(lf[108],t4); if(C_truep(t5)){ t6=((C_word*)t0)[9]; t7=C_u_i_cdr(t6); /* irregex-core.scm:1759: sre-sequence */ t8=t2; f_17266(t8,( /* irregex-core.scm:1759: sre-sequence */ f_17960(C_a_i(&a,3),t7) ));} else{ t6=C_i_cddr(((C_word*)t0)[9]); /* irregex-core.scm:1759: sre-sequence */ t7=t2; f_17266(t7,( /* irregex-core.scm:1759: sre-sequence */ f_17960(C_a_i(&a,3),t6) ));}} else{ t2=C_eqp(((C_word*)t0)[10],lf[192]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[10],lf[191])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17308,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t5=C_i_cadr(((C_word*)t0)[9]); if(C_truep(C_i_numberp(t5))){ t6=((C_word*)t0)[9]; t7=C_u_i_cdr(t6); t8=t4;{ C_word av2[2]; av2[0]=t8; av2[1]=C_u_i_car(t7); f_17308(2,av2);}} else{ t6=((C_word*)t0)[9]; t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); t9=C_i_assq(t8,((C_word*)t0)[11]); if(C_truep(t9)){ t10=t4;{ C_word av2[2]; av2[0]=t10; av2[1]=C_i_cdr(t9); f_17308(2,av2);}} else{ t10=((C_word*)t0)[9]; t11=C_u_i_cdr(t10); t12=C_u_i_car(t11); /* irregex-core.scm:1769: chicken.base#error */ t13=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t13; av2[1]=t4; av2[2]=lf[257]; av2[3]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}}} else{ t4=C_eqp(((C_word*)t0)[10],lf[127]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[10],lf[128])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17417,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); t7=((C_word*)t0)[9]; t8=C_u_i_cdr(t7); t9=( /* irregex-core.scm:1781: sre-sequence */ f_17960(C_a_i(&a,3),t8) ); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17426,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1781: lp */ t11=((C_word*)((C_word*)t0)[5])[1]; f_16863(t11,t6,t9,((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],t10);} else{ t6=C_eqp(((C_word*)t0)[10],lf[133]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[10],lf[130])); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17444,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); t9=C_i_cadr(((C_word*)t0)[9]); if(C_truep(C_i_numberp(t9))){ t10=C_i_caddr(((C_word*)t0)[9]); if(C_truep(C_i_numberp(t10))){ t11=((C_word*)t0)[9]; t12=C_u_i_cdr(t11); t13=C_u_i_car(t12); t14=((C_word*)t0)[9]; t15=C_u_i_cdr(t14); t16=C_u_i_cdr(t15); t17=C_u_i_car(t16); t18=t8; f_17444(t18,C_fixnum_greaterp(t13,t17));} else{ t11=t8; f_17444(t11,C_SCHEME_FALSE);}} else{ t10=t8; f_17444(t10,C_SCHEME_FALSE);}} else{ t8=C_eqp(((C_word*)t0)[10],lf[129]); if(C_truep(t8)){ t9=((C_word*)t0)[9]; t10=C_u_i_cdr(t9); t11=( /* irregex-core.scm:1800: sre-sequence */ f_17960(C_a_i(&a,3),t10) ); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17586,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[4],a[4]=((C_word)li199),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1800: lp */ t13=((C_word*)((C_word*)t0)[5])[1]; f_16863(t13,((C_word*)t0)[6],t11,((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],t12);} else{ t9=C_eqp(((C_word*)t0)[10],lf[131]); t10=(C_truep(t9)?t9:C_eqp(((C_word*)t0)[10],lf[132])); if(C_truep(t10)){ t11=((C_word*)t0)[9]; t12=C_u_i_cdr(t11); t13=( /* irregex-core.scm:1804: sre-sequence */ f_17960(C_a_i(&a,3),t12) ); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17614,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[7],a[5]=((C_word)li200),tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:1804: lp */ t15=((C_word*)((C_word*)t0)[5])[1]; f_16863(t15,((C_word*)t0)[6],t13,((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],t14);} else{ t11=C_eqp(((C_word*)t0)[10],lf[134]); t12=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17639,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); if(C_truep(t11)){ t13=t12; f_17639(t13,t11);} else{ t13=C_eqp(((C_word*)t0)[10],lf[261]); if(C_truep(t13)){ t14=t12; f_17639(t14,t13);} else{ t14=C_eqp(((C_word*)t0)[10],lf[135]); t15=t12; f_17639(t15,(C_truep(t14)?t14:C_eqp(((C_word*)t0)[10],lf[258])));}}}}}}}}} /* k17264 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_17266(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,6)))){ C_save_and_reclaim_args((void *)trf_17266,2,t0,t1);} a=C_alloc(6); t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17272,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word)li195),tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:1759: lp */ t4=((C_word*)((C_word*)t0)[5])[1]; f_16863(t4,((C_word*)t0)[6],t1,t2,((C_word*)t0)[7],((C_word*)t0)[8],t3);} /* a17271 in k17264 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_17272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_17272,4,av);} a=C_alloc(3); t4=C_a_i_cons(&a,2,t2,t3); t5=C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],t4); /* irregex-core.scm:1764: return */ t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k17306 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_17308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_17308,2,av);} a=C_alloc(9); t2=t1; t3=C_i_integerp(t2); t4=C_i_not(t3); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17317,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(t4)){ t6=t5; f_17317(t6,t4);} else{ t6=C_block_size(((C_word*)t0)[4]); t7=C_and(C_fixnum_lessp(C_fix(0),t2),C_fixnum_lessp(t2,t6)); t8=t5; f_17317(t8,C_i_not(t7));}} /* k17315 in k17306 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_fcall f_17317(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_17317,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:1773: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[254]; av2[3]=lf[255]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(C_i_not(t2))){ /* irregex-core.scm:1775: chicken.base#error */ t3=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[254]; av2[3]=lf[256]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]); t4=C_i_car(t3); t5=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]); t6=C_i_cdr(t5); t7=C_fixnum_plus(((C_word*)t0)[6],t4); if(C_truep(((C_word*)t0)[7])){ if(C_truep(t6)){ t8=C_fixnum_plus(((C_word*)t0)[7],t6); /* irregex-core.scm:1779: return */ t9=((C_word*)t0)[8];{ C_word av2[4]; av2[0]=t9; av2[1]=((C_word*)t0)[2]; av2[2]=t7; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* irregex-core.scm:1779: return */ t8=((C_word*)t0)[8];{ C_word av2[4]; av2[0]=t8; av2[1]=((C_word*)t0)[2]; av2[2]=t7; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ /* irregex-core.scm:1779: return */ t8=((C_word*)t0)[8];{ C_word av2[4]; av2[0]=t8; av2[1]=((C_word*)t0)[2]; av2[2]=t7; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}}} /* k17415 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_17417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17417,2,av);} /* irregex-core.scm:1782: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a17425 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_17426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17426,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k17442 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_17444(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_17444,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(t1)){ t3=t2; f_17447(t3,t1);} else{ t3=((C_word*)t0)[6]; t4=C_u_i_cdr(t3); t5=C_u_i_car(t4); t6=C_i_not(t5); t7=t2; f_17447(t7,(C_truep(t6)?C_i_caddr(((C_word*)t0)[6]):C_SCHEME_FALSE));}} /* k17445 in k17442 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_fcall f_17447(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,6)))){ C_save_and_reclaim_args((void *)trf_17447,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ /* irregex-core.scm:1789: return */ t2=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ if(C_truep(C_i_caddr(((C_word*)t0)[6]))){ t2=((C_word*)t0)[6]; t3=C_u_i_cdr(t2); t4=C_u_i_cdr(t3); t5=C_u_i_cdr(t4); t6=( /* irregex-core.scm:1792: sre-sequence */ f_17960(C_a_i(&a,3),t5) ); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17465,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word)li197),tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:1792: lp */ t8=((C_word*)((C_word*)t0)[7])[1]; f_16863(t8,((C_word*)t0)[3],t6,((C_word*)t0)[8],C_fix(0),C_fix(0),t7);} else{ t2=C_i_cdddr(((C_word*)t0)[6]); t3=( /* irregex-core.scm:1796: sre-sequence */ f_17960(C_a_i(&a,3),t2) ); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17512,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word)li198),tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:1796: lp */ t5=((C_word*)((C_word*)t0)[7])[1]; f_16863(t5,((C_word*)t0)[3],t3,((C_word*)t0)[8],C_fix(0),C_fix(0),t4);}}} /* a17464 in k17445 in k17442 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in ... */ static void C_ccall f_17465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17465,4,av);} t4=C_i_cadr(((C_word*)t0)[2]); t5=C_fixnum_times(t4,t2); t6=C_fixnum_plus(((C_word*)t0)[3],t5); if(C_truep(((C_word*)t0)[4])){ if(C_truep(t3)){ t7=C_i_caddr(((C_word*)t0)[2]); t8=C_fixnum_times(t7,t3); t9=C_fixnum_plus(((C_word*)t0)[4],t8); /* irregex-core.scm:1794: return */ t10=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t10; av2[1]=t1; av2[2]=t6; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ /* irregex-core.scm:1794: return */ t7=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=t6; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} else{ /* irregex-core.scm:1794: return */ t7=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=t6; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* a17511 in k17445 in k17442 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in ... */ static void C_ccall f_17512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17512,4,av);} t4=C_i_cadr(((C_word*)t0)[2]); t5=C_fixnum_times(t4,t2); t6=C_fixnum_plus(((C_word*)t0)[3],t5); /* irregex-core.scm:1798: return */ t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=t6; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* a17585 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_17586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17586,4,av);} t4=C_fixnum_plus(((C_word*)t0)[2],t2); /* irregex-core.scm:1802: return */ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a17613 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_17614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17614,4,av);} if(C_truep(((C_word*)t0)[2])){ if(C_truep(t3)){ t4=C_fixnum_plus(((C_word*)t0)[2],t3); /* irregex-core.scm:1806: return */ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* irregex-core.scm:1806: return */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} else{ /* irregex-core.scm:1806: return */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k17637 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_17639(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_17639,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17658,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_car(t5); if(C_truep((C_truep(C_eqp(t6,lf[135]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[258]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); t9=C_u_i_cdr(t8); t10=t4; f_17658(t10,C_a_i_cons(&a,2,C_SCHEME_FALSE,t9));} else{ t7=((C_word*)t0)[2]; t8=C_u_i_cdr(t7); t9=C_u_i_car(t8); t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); t12=C_u_i_cdr(t11); t13=t4; f_17658(t13,C_a_i_cons(&a,2,t9,t12));}} else{ t2=C_eqp(((C_word*)t0)[9],lf[111]); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17679,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=t3; f_17679(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[9],lf[112]); if(C_truep(t4)){ t5=t3; f_17679(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[9],lf[113]); t6=t3; f_17679(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[9],lf[114])));}}}} /* k17656 in k17637 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_fcall f_17658(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,6)))){ C_save_and_reclaim_args((void *)trf_17658,2,t0,t1);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[133],t2); /* irregex-core.scm:1808: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_16863(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k17677 in k17637 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_fcall f_17679(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_17679,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ /* irregex-core.scm:1813: return */ t2=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[6]; t3=C_u_i_car(t2); t4=C_i_assq(t3,lf[246]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17689,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word)li201),tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:1815: g2983 */ t6=t5; f_17689(t6,((C_word*)t0)[3],t4);} else{ /* irregex-core.scm:1820: chicken.base#error */ t5=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[259]; av2[3]=lf[260]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* g2983 in k17677 in k17637 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in ... */ static void C_fcall f_17689(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_17689,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17697,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_i_cdr(t2); t5=C_i_cdr(((C_word*)t0)[7]);{ C_word av2[4]; av2[0]=0; av2[1]=t3; av2[2]=t4; av2[3]=t5; C_apply(4,av2);}} /* k17695 in g2983 in k17677 in k17637 in k17257 in k16933 in k16904 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in ... */ static void C_ccall f_17697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_17697,2,av);} /* irregex-core.scm:1818: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_16863(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k17926 in lp in k16852 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_17928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_17928,2,av);} /* irregex-core.scm:1832: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_16863(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k17949 in k16849 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_17951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17951,2,av);} t2=C_fixnum_plus(C_fix(1),t1); /* irregex-core.scm:1698: scheme#make-vector */ t3=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.irregex#sre-sequence in k7651 in k7426 in k7423 */ static C_word C_fcall f_17960(C_word *a,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} if(C_truep(C_i_nullp(t1))){ return(lf[110]);} else{ t2=C_i_cdr(t1); if(C_truep(C_i_nullp(t2))){ t3=t1; return(C_u_i_car(t3));} else{ return(C_a_i_cons(&a,2,lf[115],t1));}}} /* chicken.irregex#sre-alternate in k7651 in k7426 in k7423 */ static C_word C_fcall f_17983(C_word *a,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} if(C_truep(C_i_nullp(t1))){ return(lf[281]);} else{ t2=C_i_cdr(t1); if(C_truep(C_i_nullp(t2))){ t3=t1; return(C_u_i_car(t3));} else{ return(C_a_i_cons(&a,2,lf[103],t1));}}} /* chicken.irregex#sre-strip-submatches in k7651 in k7426 in k7423 */ static void C_ccall f_18006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; loop: if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ av[0]=t0; av[1]=t1; av[2]=t2; C_save_and_reclaim((void *)f_18006,3,av);} a=C_alloc(14); t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_eqp(t4,lf[243]); t6=(C_truep(t5)?t5:C_eqp(t4,lf[108])); if(C_truep(t6)){ t7=t2; t8=C_u_i_cdr(t7); t9=( /* irregex-core.scm:1859: sre-sequence */ f_17960(C_a_i(&a,3),t8) ); /* irregex-core.scm:1859: sre-strip-submatches */ t20=t1; t21=t9; t1=t20; t2=t21; c=3; goto loop;} else{ t7=C_eqp(t4,lf[119]); t8=(C_truep(t7)?t7:C_eqp(t4,lf[120])); if(C_truep(t8)){ t9=C_i_cddr(t2); t10=( /* irregex-core.scm:1860: sre-sequence */ f_17960(C_a_i(&a,3),t9) ); /* irregex-core.scm:1860: sre-strip-submatches */ t20=t1; t21=t10; t1=t20; t2=t21; c=3; goto loop;} else{ t9=C_eqp(t4,lf[242]); if(C_truep(t9)){ t10=C_i_cdddr(t2); t11=( /* irregex-core.scm:1861: sre-sequence */ f_17960(C_a_i(&a,3),t10) ); /* irregex-core.scm:1861: sre-strip-submatches */ t20=t1; t21=t11; t1=t20; t2=t21; c=3; goto loop;} else{ t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t11=t10; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=((C_word*)t12)[1]; t14=lf[282]; t15=t2; t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18079,a[2]=t12,a[3]=t17,a[4]=t14,a[5]=t13,a[6]=((C_word)li225),tmp=(C_word)a,a+=7,tmp)); t19=((C_word*)t17)[1]; f_18079(t19,t1,t15);}}}}} /* map-loop3020 in chicken.irregex#sre-strip-submatches in k7651 in k7426 in k7423 */ static void C_fcall f_18079(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18079,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18104,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:1862: g3026 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18102 in map-loop3020 in chicken.irregex#sre-strip-submatches in k7651 in k7426 in k7423 */ static void C_ccall f_18104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18104,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18079(t6,((C_word*)t0)[5],t5);} /* lp in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_18139(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_18139,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ /* irregex-core.scm:1870: ##sys#fast-reverse */ t4=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=C_i_car(t2); if(C_truep(C_i_stringp(t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18162,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18166,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_car(t7); /* ##sys#string->list */ t9=*((C_word*)lf[105]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t6; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t5=t2; t6=C_u_i_cdr(t5); t7=t2; t8=C_u_i_car(t7); t9=C_a_i_cons(&a,2,t8,t3); /* irregex-core.scm:1874: lp */ t11=t1; t12=t6; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}}} /* k18160 in lp in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18162,2,av);} /* irregex-core.scm:1872: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_18139(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k18164 in lp in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18166,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:1872: scheme#append */ t4=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* chicken.irregex#sre-names in k7651 in k7426 in k7423 */ static void C_fcall f_18187(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_18187,4,t1,t2,t3,t4);} a=C_alloc(9); t5=C_i_pairp(t2); if(C_truep(C_i_not(t5))){ t6=t4; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_i_car(t2); t7=t6; t8=C_eqp(t7,lf[243]); t9=(C_truep(t8)?t8:C_eqp(t7,lf[108])); if(C_truep(t9)){ t10=t2; t11=C_u_i_cdr(t10); t12=( /* irregex-core.scm:1881: sre-sequence */ f_17960(C_a_i(&a,3),t11) ); t13=C_fixnum_plus(t3,C_fix(1)); /* irregex-core.scm:1881: sre-names */ t29=t1; t30=t12; t31=t13; t32=t4; t1=t29; t2=t30; t3=t31; t4=t32; goto loop;} else{ t10=C_eqp(t7,lf[119]); t11=(C_truep(t10)?t10:C_eqp(t7,lf[120])); if(C_truep(t11)){ t12=C_i_cddr(t2); t13=( /* irregex-core.scm:1883: sre-sequence */ f_17960(C_a_i(&a,3),t12) ); t14=C_fixnum_plus(t3,C_fix(1)); t15=C_i_cadr(t2); t16=C_a_i_cons(&a,2,t15,t3); t17=C_a_i_cons(&a,2,t16,t4); /* irregex-core.scm:1883: sre-names */ t29=t1; t30=t13; t31=t14; t32=t17; t1=t29; t2=t30; t3=t31; t4=t32; goto loop;} else{ t12=C_eqp(t7,lf[242]); if(C_truep(t12)){ t13=C_i_cdddr(t2); t14=( /* irregex-core.scm:1887: sre-sequence */ f_17960(C_a_i(&a,3),t13) ); t15=C_i_cadr(t2); t16=C_fixnum_plus(t3,t15); /* irregex-core.scm:1887: sre-names */ t29=t1; t30=t14; t31=t16; t32=t4; t1=t29; t2=t30; t3=t31; t4=t32; goto loop;} else{ t13=C_eqp(t7,lf[115]); t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18289,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t7,tmp=(C_word)a,a+=7,tmp); if(C_truep(t13)){ t15=t14; f_18289(t15,t13);} else{ t15=C_eqp(t7,lf[225]); if(C_truep(t15)){ t16=t14; f_18289(t16,t15);} else{ t16=C_eqp(t7,lf[103]); if(C_truep(t16)){ t17=t14; f_18289(t17,t16);} else{ t17=C_eqp(t7,lf[127]); if(C_truep(t17)){ t18=t14; f_18289(t18,t17);} else{ t18=C_eqp(t7,lf[129]); if(C_truep(t18)){ t19=t14; f_18289(t19,t18);} else{ t19=C_eqp(t7,lf[131]); if(C_truep(t19)){ t20=t14; f_18289(t20,t19);} else{ t20=C_eqp(t7,lf[128]); if(C_truep(t20)){ t21=t14; f_18289(t21,t20);} else{ t21=C_eqp(t7,lf[132]); if(C_truep(t21)){ t22=t14; f_18289(t22,t21);} else{ t22=C_eqp(t7,lf[223]); if(C_truep(t22)){ t23=t14; f_18289(t23,t22);} else{ t23=C_eqp(t7,lf[224]); if(C_truep(t23)){ t24=t14; f_18289(t24,t23);} else{ t24=C_eqp(t7,lf[237]); if(C_truep(t24)){ t25=t14; f_18289(t25,t24);} else{ t25=C_eqp(t7,lf[111]); if(C_truep(t25)){ t26=t14; f_18289(t26,t25);} else{ t26=C_eqp(t7,lf[113]); if(C_truep(t26)){ t27=t14; f_18289(t27,t26);} else{ t27=C_eqp(t7,lf[112]); t28=t14; f_18289(t28,(C_truep(t27)?t27:C_eqp(t7,lf[114])));}}}}}}}}}}}}}}}}}} /* k18287 in chicken.irregex#sre-names in k7651 in k7426 in k7423 */ static void C_fcall f_18289(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_18289,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:1890: sre-sequence-names */ f_18473(((C_word*)t0)[3],t3,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=C_eqp(((C_word*)t0)[6],lf[134]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[135])); if(C_truep(t3)){ t4=C_i_cddr(((C_word*)t0)[2]); /* irregex-core.scm:1892: sre-sequence-names */ f_18473(((C_word*)t0)[3],t4,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t4=C_eqp(((C_word*)t0)[6],lf[133]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[6],lf[130])); if(C_truep(t5)){ t6=C_i_cdddr(((C_word*)t0)[2]); /* irregex-core.scm:1894: sre-sequence-names */ f_18473(((C_word*)t0)[3],t6,((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t6=((C_word*)t0)[5]; t7=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}} /* chicken.irregex#sre-sequence-names in k7651 in k7426 in k7423 */ static void C_fcall f_18473(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_18473,4,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t5=t4; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18501,a[2]=t3,a[3]=t1,a[4]=t6,a[5]=t2,a[6]=t4,tmp=(C_word)a,a+=7,tmp); t8=t2; t9=C_u_i_car(t8); /* irregex-core.scm:1902: sre-count-submatches */ f_16751(t7,t9);}} /* k18493 in k18499 in chicken.irregex#sre-sequence-names in k7651 in k7426 in k7423 */ static void C_ccall f_18495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18495,2,av);} /* irregex-core.scm:1901: sre-sequence-names */ f_18473(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k18499 in chicken.irregex#sre-sequence-names in k7651 in k7426 in k7423 */ static void C_ccall f_18501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_18501,2,av);} a=C_alloc(5); t2=C_fixnum_plus(((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18495,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[5]; t6=C_u_i_car(t5); /* irregex-core.scm:1903: sre-names */ f_18187(t4,t6,((C_word*)t0)[2],((C_word*)t0)[6]);} /* chicken.irregex#sre-remove-initial-bos in k7651 in k7426 in k7423 */ static void C_ccall f_18505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_18505,3,av);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[115]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18522,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t7=t6; f_18522(t7,t5);} else{ t7=C_eqp(t4,lf[225]); if(C_truep(t7)){ t8=t6; f_18522(t8,t7);} else{ t8=C_eqp(t4,lf[243]); if(C_truep(t8)){ t9=t6; f_18522(t9,t8);} else{ t9=C_eqp(t4,lf[108]); if(C_truep(t9)){ t10=t6; f_18522(t10,t9);} else{ t10=C_eqp(t4,lf[119]); if(C_truep(t10)){ t11=t6; f_18522(t11,t10);} else{ t11=C_eqp(t4,lf[120]); if(C_truep(t11)){ t12=t6; f_18522(t12,t11);} else{ t12=C_eqp(t4,lf[127]); t13=t6; f_18522(t13,(C_truep(t12)?t12:C_eqp(t4,lf[129])));}}}}}}} else{ t3=t2; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18520 in chicken.irregex#sre-remove-initial-bos in k7651 in k7426 in k7423 */ static void C_fcall f_18522(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){ C_save_and_reclaim_args((void *)trf_18522,2,t0,t1);} a=C_alloc(17); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_i_pairp(t3); if(C_truep(C_i_not(t4))){ t5=((C_word*)t0)[2]; t6=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_i_cadr(((C_word*)t0)[2]); t6=C_eqp(lf[186],t5); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=C_u_i_car(t7); t9=((C_word*)t0)[2]; t10=C_u_i_cdr(t9); t11=C_u_i_cdr(t10); t12=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t12; av2[1]=C_a_i_cons(&a,2,t8,t11); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t7=((C_word*)t0)[2]; t8=C_u_i_car(t7); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t8,tmp=(C_word)a,a+=5,tmp); t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); t12=C_u_i_car(t11); /* irregex-core.scm:1917: sre-remove-initial-bos */ t13=lf[270];{ C_word av2[3]; av2[0]=t13; av2[1]=t9; av2[2]=t12; f_18505(3,av2);}}}} else{ t2=C_eqp(((C_word*)t0)[4],lf[103]); if(C_truep(t2)){ t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=lf[270]; t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); t10=C_i_check_list_2(t9,lf[211]); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18592,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18594,a[2]=t5,a[3]=t13,a[4]=t7,a[5]=t6,a[6]=((C_word)li229),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_18594(t15,t11,t9);} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k18553 in k18520 in chicken.irregex#sre-remove-initial-bos in k7651 in k7426 in k7423 */ static void C_ccall f_18555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_18555,2,av);} a=C_alloc(6); t2=C_i_cddr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k18590 in k18520 in chicken.irregex#sre-remove-initial-bos in k7651 in k7426 in k7423 */ static void C_ccall f_18592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18592,2,av);} a=C_alloc(3); /* irregex-core.scm:1919: sre-alternate */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* irregex-core.scm:1919: sre-alternate */ f_17983(C_a_i(&a,3),t1) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop3161 in k18520 in chicken.irregex#sre-remove-initial-bos in k7651 in k7426 in k7423 */ static void C_fcall f_18594(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18594,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18619,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:1919: g3167 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18617 in map-loop3161 in k18520 in chicken.irregex#sre-remove-initial-bos in k7651 in k7426 in k7423 */ static void C_ccall f_18619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18619,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18594(t6,((C_word*)t0)[5],t5);} /* k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word t87; C_word t88; C_word t89; C_word t90; C_word t91; C_word t92; C_word t93; C_word t94; C_word t95; C_word t96; C_word t97; C_word t98; C_word t99; C_word t100; C_word t101; C_word t102; C_word t103; C_word t104; C_word t105; C_word t106; C_word t107; C_word t108; C_word t109; C_word t110; C_word t111; C_word t112; C_word t113; C_word t114; C_word t115; C_word t116; C_word t117; C_word t118; C_word t119; C_word t120; C_word t121; C_word t122; C_word t123; C_word t124; C_word t125; C_word t126; C_word t127; C_word t128; C_word t129; C_word t130; C_word t131; C_word t132; C_word t133; C_word t134; C_word t135; C_word t136; C_word t137; C_word t138; C_word t139; C_word t140; C_word t141; C_word t142; C_word t143; C_word t144; C_word t145; C_word t146; C_word t147; C_word t148; C_word t149; C_word t150; C_word t151; C_word t152; C_word t153; C_word t154; C_word t155; C_word t156; C_word t157; C_word t158; C_word t159; C_word t160; C_word t161; C_word t162; C_word t163; C_word t164; C_word t165; C_word t166; C_word t167; C_word t168; C_word t169; C_word t170; C_word t171; C_word t172; C_word t173; C_word t174; C_word t175; C_word t176; C_word t177; C_word t178; C_word t179; C_word t180; C_word t181; C_word t182; C_word t183; C_word t184; C_word t185; C_word t186; C_word t187; C_word t188; C_word t189; C_word t190; C_word t191; C_word t192; C_word t193; C_word t194; C_word t195; C_word t196; C_word t197; C_word t198; C_word t199; C_word t200; C_word t201; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(1655,c,10)))){ C_save_and_reclaim((void *)f_18687,2,av);} a=C_alloc(1655); t2=C_mutate(&lf[284] /* (set! chicken.irregex#irregex-basic-string-chunker ...) */,t1); t3=C_mutate((C_word*)lf[285]+1 /* (set! chicken.irregex#irregex-search ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18689,a[2]=((C_word)li231),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[286]+1 /* (set! chicken.irregex#irregex-search/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18779,a[2]=((C_word)li232),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate(&lf[291] /* (set! chicken.irregex#irregex-search/matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18822,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[297]+1 /* (set! chicken.irregex#irregex-match ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19071,a[2]=((C_word)li242),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[298]+1 /* (set! chicken.irregex#irregex-match/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19161,a[2]=((C_word)li245),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[303]+1 /* (set! chicken.irregex#irregex-match? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19389,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate(&lf[304] /* (set! chicken.irregex#finalize! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19585,a[2]=((C_word)li249),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate(&lf[294] /* (set! chicken.irregex#dfa-match/longest ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19704,a[2]=((C_word)li260),tmp=(C_word)a,a+=3,tmp)); t11=C_a_i_cons(&a,2,lf[124],lf[53]); t12=C_a_i_string(&a,1,C_make_character(10)); t13=C_a_i_list(&a,1,t12); t14=C_a_i_list(&a,4,lf[125],lf[245],lf[53],t13); t15=C_a_i_list(&a,6,lf[306],lf[52],C_make_character(97),C_make_character(122),C_make_character(65),C_make_character(90)); t16=C_a_i_cons(&a,2,lf[307],lf[306]); t17=C_a_i_list(&a,8,lf[181],lf[52],C_make_character(97),C_make_character(122),C_make_character(65),C_make_character(90),C_make_character(48),C_make_character(57)); t18=C_a_i_cons(&a,2,lf[308],lf[181]); t19=C_a_i_cons(&a,2,lf[309],lf[181]); t20=C_a_i_list(&a,4,lf[310],lf[52],C_make_character(97),C_make_character(122)); t21=C_a_i_cons(&a,2,lf[311],lf[310]); t22=C_a_i_list(&a,4,lf[312],lf[52],C_make_character(65),C_make_character(90)); t23=C_a_i_cons(&a,2,lf[313],lf[312]); t24=C_a_i_list(&a,4,lf[178],lf[52],C_make_character(48),C_make_character(57)); t25=C_a_i_cons(&a,2,lf[314],lf[178]); t26=C_a_i_cons(&a,2,lf[315],lf[178]); t27=C_a_i_list(&a,25,lf[316],lf[103],C_make_character(33),C_make_character(34),C_make_character(35),C_make_character(37),C_make_character(38),C_make_character(39),C_make_character(40),C_make_character(41),C_make_character(42),C_make_character(44),C_make_character(45),C_make_character(46),C_make_character(47),C_make_character(58),C_make_character(59),C_make_character(63),C_make_character(64),C_make_character(91),C_make_character(92),C_make_character(93),C_make_character(95),C_make_character(123),C_make_character(125)); t28=C_a_i_cons(&a,2,lf[317],lf[316]); t29=C_a_i_list(&a,13,lf[318],lf[103],lf[181],lf[316],C_make_character(36),C_make_character(43),C_make_character(60),C_make_character(61),C_make_character(62),C_make_character(94),C_make_character(96),C_make_character(124),C_make_character(126)); t30=C_a_i_cons(&a,2,lf[319],lf[318]); t31=C_a_i_list(&a,4,lf[320],lf[103],C_make_character(32),C_make_character(9)); t32=C_a_i_list(&a,4,lf[321],lf[103],lf[320],C_make_character(10)); t33=C_a_i_cons(&a,2,lf[79],lf[321]); t34=C_a_i_cons(&a,2,lf[322],lf[321]); t35=C_a_i_list(&a,4,lf[323],lf[103],lf[318],lf[321]); t36=C_a_i_cons(&a,2,lf[324],lf[323]); t37=C_a_i_list(&a,4,lf[325],lf[52],C_make_character(0),C_make_character(31)); t38=C_a_i_cons(&a,2,lf[326],lf[325]); t39=C_a_i_list(&a,5,lf[52],C_make_character(97),C_make_character(102),C_make_character(65),C_make_character(70)); t40=C_a_i_list(&a,4,lf[327],lf[103],lf[178],t39); t41=C_a_i_cons(&a,2,lf[328],lf[327]); t42=C_a_i_list(&a,4,lf[329],lf[52],C_make_character(0),C_make_character(127)); t43=C_a_i_list(&a,6,lf[330],lf[52],C_make_character(0),C_make_character(9),C_make_character(11),C_make_character(127)); t44=C_a_i_list(&a,3,lf[115],C_make_character(13),C_make_character(10)); t45=C_a_i_list(&a,3,lf[52],C_make_character(10),C_make_character(13)); t46=C_a_i_list(&a,4,lf[80],lf[103],t44,t45); t47=C_a_i_list(&a,3,lf[103],lf[181],C_make_character(95)); t48=C_a_i_list(&a,2,lf[129],t47); t49=C_a_i_list(&a,5,lf[229],lf[115],lf[183],t48,lf[184]); t50=C_a_i_list(&a,4,lf[331],lf[52],C_make_character(128),C_make_character(193)); t51=C_a_i_list(&a,3,lf[52],C_make_character(194),C_make_character(223)); t52=C_a_i_list(&a,4,lf[332],lf[115],t51,lf[331]); t53=C_a_i_list(&a,3,lf[52],C_make_character(224),C_make_character(239)); t54=C_a_i_list(&a,5,lf[333],lf[115],t53,lf[331],lf[331]); t55=C_a_i_list(&a,3,lf[52],C_make_character(240),C_make_character(247)); t56=C_a_i_list(&a,6,lf[334],lf[115],t55,lf[331],lf[331],lf[331]); t57=C_a_i_list(&a,6,lf[274],lf[103],lf[329],lf[332],lf[333],lf[334]); t58=C_a_i_list(&a,6,lf[275],lf[103],lf[330],lf[332],lf[333],lf[334]); t59=C_a_i_list(&a,3,lf[103],C_make_character(43),C_make_character(45)); t60=C_a_i_list(&a,2,lf[131],t59); t61=C_a_i_list(&a,2,lf[129],lf[178]); t62=C_a_i_list(&a,4,lf[335],lf[115],t60,t61); t63=C_a_i_list(&a,3,lf[103],C_make_character(43),C_make_character(45)); t64=C_a_i_list(&a,2,lf[131],t63); t65=C_a_i_list(&a,2,lf[129],lf[178]); t66=C_a_i_list(&a,2,lf[129],lf[178]); t67=C_a_i_list(&a,3,lf[131],C_make_character(46),t66); t68=C_a_i_list(&a,3,lf[103],C_make_character(101),C_make_character(69)); t69=C_a_i_list(&a,3,lf[131],t68,lf[335]); t70=C_a_i_list(&a,6,lf[336],lf[115],t64,t65,t67,t69); t71=C_a_i_list(&a,1,lf[337]); t72=C_a_i_list(&a,4,lf[338],lf[103],lf[307],t71); t73=C_a_i_list(&a,1,lf[339]); t74=C_a_i_list(&a,5,lf[340],lf[103],lf[338],lf[315],t73); t75=C_a_i_list(&a,2,lf[127],lf[340]); t76=C_a_i_list(&a,3,lf[115],lf[338],t75); t77=C_a_i_list(&a,1,lf[341]); t78=C_a_i_list(&a,2,lf[127],lf[340]); t79=C_a_i_list(&a,3,lf[131],lf[338],t78); t80=C_a_i_list(&a,3,lf[115],t77,t79); t81=C_a_i_list(&a,2,lf[127],lf[342]); t82=C_a_i_list(&a,3,lf[115],lf[343],t81); t83=C_a_i_list(&a,5,lf[344],lf[103],t76,t80,t82); t84=C_a_i_list(&a,2,lf[127],lf[79]); t85=C_a_i_list(&a,2,lf[127],lf[125]); t86=C_a_i_list(&a,5,lf[127],t84,lf[345],t85,lf[80]); t87=C_a_i_list(&a,2,lf[129],lf[79]); t88=C_a_i_list(&a,4,lf[346],lf[115],t86,t87); t89=C_a_i_list(&a,3,lf[347],C_make_character(92),C_make_character(34)); t90=C_a_i_list(&a,5,lf[348],lf[115],C_make_character(34),t89,C_make_character(34)); t91=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30399,a[2]=((C_word)li261),tmp=(C_word)a,a+=3,tmp); t92=C_a_i_cons(&a,2,lf[347],t91); t93=C_a_i_list(&a,2,lf[52],lf[349]); t94=C_a_i_list(&a,2,lf[131],t93); t95=C_a_i_list(&a,2,lf[131],lf[178]); t96=C_a_i_list(&a,5,lf[350],lf[115],t94,t95,lf[178]); t97=C_a_i_list(&a,4,lf[134],C_fix(3),C_make_character(46),lf[350]); t98=C_a_i_list(&a,4,lf[351],lf[115],lf[350],t97); t99=C_a_i_list(&a,4,lf[133],C_fix(0),C_fix(4),lf[327]); t100=C_a_i_list(&a,2,lf[131],C_make_character(58)); t101=C_a_i_list(&a,4,lf[133],C_fix(0),C_fix(4),lf[327]); t102=C_a_i_list(&a,6,lf[133],C_fix(1),C_fix(7),C_make_character(58),t100,t101); t103=C_a_i_list(&a,4,lf[352],lf[115],t99,t102); t104=C_a_i_list(&a,4,lf[353],lf[103],lf[351],lf[352]); t105=C_a_i_list(&a,4,lf[103],lf[181],C_make_character(95),C_make_character(45)); t106=C_a_i_list(&a,3,lf[354],lf[129],t105); t107=C_a_i_list(&a,3,lf[129],C_make_character(46),lf[354]); t108=C_a_i_list(&a,4,lf[355],lf[115],lf[354],t107); t109=C_a_i_list(&a,3,lf[134],C_fix(2),lf[307]); t110=C_a_i_list(&a,15,lf[103],lf[356],lf[357],lf[358],lf[359],lf[360],lf[361],lf[362],lf[363],lf[364],lf[365],lf[366],lf[367],lf[368],t109); t111=C_a_i_list(&a,3,lf[369],lf[224],t110); t112=C_a_i_list(&a,3,lf[129],lf[354],C_make_character(46)); t113=C_a_i_list(&a,4,lf[370],lf[115],t112,lf[369]); t114=C_a_i_list(&a,6,lf[103],lf[181],C_make_character(95),C_make_character(45),C_make_character(46),C_make_character(43)); t115=C_a_i_list(&a,3,lf[371],lf[129],t114); t116=C_a_i_list(&a,5,lf[372],lf[115],lf[371],C_make_character(64),lf[355]); t117=C_a_i_list(&a,4,lf[115],lf[373],lf[327],lf[327]); t118=C_a_i_list(&a,14,lf[374],lf[103],lf[309],C_make_character(95),C_make_character(45),C_make_character(43),C_make_character(92),C_make_character(61),C_make_character(126),C_make_character(46),C_make_character(44),C_make_character(38),C_make_character(59),t117); t119=C_a_i_list(&a,4,lf[115],lf[375],lf[327],lf[327]); t120=C_a_i_list(&a,11,lf[376],lf[103],lf[309],C_make_character(95),C_make_character(45),C_make_character(43),C_make_character(92),C_make_character(61),C_make_character(126),C_make_character(38),t119); t121=C_a_i_list(&a,2,lf[131],lf[377]); t122=C_a_i_list(&a,3,lf[103],lf[370],lf[351]); t123=C_a_i_list(&a,2,lf[129],lf[178]); t124=C_a_i_list(&a,3,lf[131],lf[378],t123); t125=C_a_i_list(&a,3,lf[103],lf[374],lf[379]); t126=C_a_i_list(&a,2,lf[127],t125); t127=C_a_i_list(&a,2,lf[127],lf[374]); t128=C_a_i_list(&a,3,lf[131],lf[380],t127); t129=C_a_i_list(&a,2,lf[127],lf[374]); t130=C_a_i_list(&a,3,lf[131],t129,lf[376]); t131=C_a_i_list(&a,3,lf[131],lf[381],t130); t132=C_a_i_list(&a,5,lf[131],lf[382],t126,t128,t131); t133=C_a_i_list(&a,8,lf[383],lf[224],lf[384],t121,lf[385],t122,t124,t132); t134=C_a_i_list(&a,31,t42,t43,t46,t49,t50,t52,t54,t56,t57,t58,t62,t70,t72,t74,t83,t88,t90,t92,t96,t98,t103,t104,t106,t108,t111,t113,t115,t116,t118,t120,t133); t135=C_a_i_cons(&a,2,t41,t134); t136=C_a_i_cons(&a,2,t40,t135); t137=C_a_i_cons(&a,2,t38,t136); t138=C_a_i_cons(&a,2,t37,t137); t139=C_a_i_cons(&a,2,t36,t138); t140=C_a_i_cons(&a,2,t35,t139); t141=C_a_i_cons(&a,2,t34,t140); t142=C_a_i_cons(&a,2,t33,t141); t143=C_a_i_cons(&a,2,t32,t142); t144=C_a_i_cons(&a,2,t31,t143); t145=C_a_i_cons(&a,2,t30,t144); t146=C_a_i_cons(&a,2,t29,t145); t147=C_a_i_cons(&a,2,t28,t146); t148=C_a_i_cons(&a,2,t27,t147); t149=C_a_i_cons(&a,2,t26,t148); t150=C_a_i_cons(&a,2,t25,t149); t151=C_a_i_cons(&a,2,t24,t150); t152=C_a_i_cons(&a,2,t23,t151); t153=C_a_i_cons(&a,2,t22,t152); t154=C_a_i_cons(&a,2,t21,t153); t155=C_a_i_cons(&a,2,t20,t154); t156=C_a_i_cons(&a,2,t19,t155); t157=C_a_i_cons(&a,2,t18,t156); t158=C_a_i_cons(&a,2,t17,t157); t159=C_a_i_cons(&a,2,t16,t158); t160=C_a_i_cons(&a,2,t15,t159); t161=C_a_i_cons(&a,2,t14,t160); t162=C_a_i_cons(&a,2,t11,t161); t163=C_mutate(&lf[246] /* (set! chicken.irregex#sre-named-definitions ...) */,t162); t164=C_mutate(&lf[386] /* (set! chicken.irregex#nfa-get-epsilons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20302,a[2]=((C_word)li262),tmp=(C_word)a,a+=3,tmp)); t165=C_mutate(&lf[387] /* (set! chicken.irregex#nfa-add-epsilon! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20336,a[2]=((C_word)li263),tmp=(C_word)a,a+=3,tmp)); t166=C_mutate(&lf[266] /* (set! chicken.irregex#sre->nfa ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20477,a[2]=((C_word)li274),tmp=(C_word)a,a+=3,tmp)); t167=C_mutate(&lf[394] /* (set! chicken.irregex#make-mst ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21596,a[2]=((C_word)li275),tmp=(C_word)a,a+=3,tmp)); t168=C_mutate(&lf[395] /* (set! chicken.irregex#mst-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21625,a[2]=((C_word)li276),tmp=(C_word)a,a+=3,tmp)); t169=C_mutate(&lf[396] /* (set! chicken.irregex#nfa-state->mst ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21642,a[2]=((C_word)li277),tmp=(C_word)a,a+=3,tmp)); t170=C_mutate(&lf[397] /* (set! chicken.irregex#mst-add! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21651,a[2]=((C_word)li280),tmp=(C_word)a,a+=3,tmp)); t171=C_mutate(&lf[398] /* (set! chicken.irregex#mst-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22003,a[2]=((C_word)li282),tmp=(C_word)a,a+=3,tmp)); t172=C_mutate(&lf[265] /* (set! chicken.irregex#nfa->dfa ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22085,a[2]=((C_word)li296),tmp=(C_word)a,a+=3,tmp)); t173=C_mutate(&lf[401] /* (set! chicken.irregex#nfa-epsilon-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22770,a[2]=((C_word)li303),tmp=(C_word)a,a+=3,tmp)); t174=C_mutate(&lf[400] /* (set! chicken.irregex#tag-set-commands-for-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22785,a[2]=((C_word)li308),tmp=(C_word)a,a+=3,tmp)); t175=C_mutate(&lf[221] /* (set! chicken.irregex#sre-cset->procedure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25891,a[2]=((C_word)li310),tmp=(C_word)a,a+=3,tmp)); t176=C_mutate(&lf[216] /* (set! chicken.irregex#cset->plist ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26104,a[2]=((C_word)li312),tmp=(C_word)a,a+=3,tmp)); t177=C_mutate(&lf[388] /* (set! chicken.irregex#string->cset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26195,a[2]=((C_word)li314),tmp=(C_word)a,a+=3,tmp)); t178=C_mutate(&lf[172] /* (set! chicken.irregex#sre->cset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26215,a[2]=((C_word)li324),tmp=(C_word)a,a+=3,tmp)); t179=C_mutate(&lf[295] /* (set! chicken.irregex#cset-contains? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26682,a[2]=((C_word)li326),tmp=(C_word)a,a+=3,tmp)); t180=C_mutate(&lf[406] /* (set! chicken.irregex#char-ranges-union ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26767,a[2]=((C_word)li327),tmp=(C_word)a,a+=3,tmp)); t181=C_mutate(&lf[162] /* (set! chicken.irregex#cset-union ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26803,a[2]=((C_word)li329),tmp=(C_word)a,a+=3,tmp)); t182=C_mutate(&lf[402] /* (set! chicken.irregex#cset-difference ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26998,a[2]=((C_word)li331),tmp=(C_word)a,a+=3,tmp)); t183=C_mutate(&lf[403] /* (set! chicken.irregex#cset-intersection ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27194,a[2]=((C_word)li333),tmp=(C_word)a,a+=3,tmp)); t184=C_mutate(&lf[164] /* (set! chicken.irregex#cset-complement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27320,a[2]=((C_word)li334),tmp=(C_word)a,a+=3,tmp)); t185=C_mutate(&lf[165] /* (set! chicken.irregex#cset-case-insensitive ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27330,a[2]=((C_word)li336),tmp=(C_word)a,a+=3,tmp)); t186=C_mutate(&lf[408] /* (set! chicken.irregex#irregex-fold/fast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27461,a[2]=((C_word)li339),tmp=(C_word)a,a+=3,tmp)); t187=C_mutate((C_word*)lf[413]+1 /* (set! chicken.irregex#irregex-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27663,a[2]=((C_word)li341),tmp=(C_word)a,a+=3,tmp)); t188=C_mutate(&lf[415] /* (set! chicken.irregex#irregex-fold/chunked/fast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27691,a[2]=((C_word)li344),tmp=(C_word)a,a+=3,tmp)); t189=C_mutate((C_word*)lf[418]+1 /* (set! chicken.irregex#irregex-fold/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27873,a[2]=((C_word)li346),tmp=(C_word)a,a+=3,tmp)); t190=C_mutate((C_word*)lf[420]+1 /* (set! chicken.irregex#irregex-replace ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27901,a[2]=((C_word)li347),tmp=(C_word)a,a+=3,tmp)); t191=C_mutate((C_word*)lf[424]+1 /* (set! chicken.irregex#irregex-replace/all ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27980,a[2]=((C_word)li350),tmp=(C_word)a,a+=3,tmp)); t192=C_mutate(&lf[421] /* (set! chicken.irregex#irregex-apply-match ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28066,a[2]=((C_word)li353),tmp=(C_word)a,a+=3,tmp)); t193=C_mutate((C_word*)lf[431]+1 /* (set! chicken.irregex#irregex-extract ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28297,a[2]=((C_word)li356),tmp=(C_word)a,a+=3,tmp)); t194=C_mutate((C_word*)lf[434]+1 /* (set! chicken.irregex#irregex-split ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28332,a[2]=((C_word)li359),tmp=(C_word)a,a+=3,tmp)); t195=C_mutate(&lf[54] /* (set! chicken.irregex#string-scan-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28457,a[2]=((C_word)li361),tmp=(C_word)a,a+=3,tmp)); t196=C_mutate((C_word*)lf[437]+1 /* (set! chicken.irregex#irregex-quote ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28500,a[2]=((C_word)li363),tmp=(C_word)a,a+=3,tmp)); t197=C_mutate((C_word*)lf[440]+1 /* (set! chicken.irregex#irregex-opt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28557,a[2]=((C_word)li368),tmp=(C_word)a,a+=3,tmp)); t198=C_mutate(&lf[445] /* (set! chicken.irregex#cset->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28824,a[2]=((C_word)li370),tmp=(C_word)a,a+=3,tmp)); t199=C_mutate((C_word*)lf[450]+1 /* (set! chicken.irregex#sre->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28904,a[2]=((C_word)li380),tmp=(C_word)a,a+=3,tmp)); t200=C_mutate((C_word*)lf[484]+1 /* (set! chicken.irregex#glob->sre ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29658,a[2]=((C_word)li383),tmp=(C_word)a,a+=3,tmp)); t201=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t201; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t201+1)))(2,av2);}} /* chicken.irregex#irregex-search in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_18689,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18693,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t6=C_i_stringp(t3); if(C_truep(C_i_not(t6))){ /* irregex-core.scm:1937: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[287]; av2[3]=lf[290]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_18693(2,av2);}}} /* k18691 in chicken.irregex#irregex-search in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_18693,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=t2; f_18696(t4,C_u_i_car(t3));} else{ t3=t2; f_18696(t3,C_SCHEME_FALSE);}} /* k18694 in k18691 in chicken.irregex#irregex-search in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_18696(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18696,2,t0,t1);} a=C_alloc(6); t2=(C_truep(t1)?t1:C_fix(0)); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18702,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); t7=C_i_pairp(t6); t8=t4; f_18702(t8,(C_truep(t7)?C_i_cadr(((C_word*)t0)[5]):C_SCHEME_FALSE));} else{ t5=t4; f_18702(t5,C_SCHEME_FALSE);}} /* k18700 in k18694 in k18691 in chicken.irregex#irregex-search in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_18702(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_18702,2,t0,t1);} a=C_alloc(7); t2=(C_truep(t1)?t1:C_i_string_length(((C_word*)t0)[2])); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_integerp(((C_word*)t0)[3]))){ t5=C_i_exactp(((C_word*)t0)[3]); if(C_truep(C_i_not(t5))){ /* irregex-core.scm:1941: chicken.base#error */ t6=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t4; av2[2]=lf[287]; av2[3]=lf[289]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_18708(2,av2);}}} else{ /* irregex-core.scm:1941: chicken.base#error */ t5=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[287]; av2[3]=lf[289]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k18706 in k18700 in k18694 in k18691 in chicken.irregex#irregex-search in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_18708,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18711,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_integerp(((C_word*)t0)[4]))){ t3=C_i_exactp(((C_word*)t0)[4]); if(C_truep(C_i_not(t3))){ /* irregex-core.scm:1943: chicken.base#error */ t4=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[287]; av2[3]=lf[288]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_18711(2,av2);}}} else{ /* irregex-core.scm:1943: chicken.base#error */ t3=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[287]; av2[3]=lf[288]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k18709 in k18706 in k18700 in k18694 in k18691 in chicken.irregex#irregex-search in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_18711,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); /* irregex-core.scm:1944: irregex-search/chunked */ t3=*((C_word*)lf[286]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[284]; av2[4]=t2; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* chicken.irregex#irregex-search/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_18779,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+6); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18783,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:1950: irregex */ t7=*((C_word*)lf[217]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k18781 in chicken.irregex#irregex-search/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_18783,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18786,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:1951: irregex-new-matches */ f_7512(t3,t2);} /* k18784 in k18781 in chicken.irregex#irregex-search/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_18786,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18789,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[6]))){ t4=((C_word*)t0)[6]; t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_u_i_car(t4); f_18789(2,av2);}} else{ t4=((C_word*)t0)[2]; t5=C_i_vector_ref(t4,C_fix(2)); /* irregex-core.scm:1952: g3219 */ t6=t5;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k18787 in k18784 in k18781 in chicken.irregex#irregex-search/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_18789,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18792,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_i_integerp(t2); if(C_truep(C_i_not(t4))){ /* irregex-core.scm:1953: chicken.base#error */ t5=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[287]; av2[3]=lf[292]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_18792(2,av2);}}} /* k18790 in k18787 in k18784 in k18781 in chicken.irregex#irregex-search/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_18792,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_i_setslot(((C_word*)t0)[3],C_fix(3),t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); /* irregex-core.scm:1955: irregex-search/matches */ f_18822(((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[2],t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[3]);} /* chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_18822(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,9)))){ C_save_and_reclaim_args((void *)trf_18822,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(20); t8=t2; t9=C_i_check_structure_2(t8,lf[6],lf[293]); if(C_truep(C_slot(t8,C_fix(1)))){ t10=t2; t11=C_slot(t10,C_fix(4)); t12=C_fixnum_and(t11,C_fix(1)); t13=C_eqp(C_fix(1),t12); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18841,a[2]=t7,a[3]=t5,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t15=t2; t16=C_slot(t15,C_fix(1)); /* irregex-core.scm:1965: dfa-match/longest */ f_19704(t14,t16,t3,t5,t6,C_SCHEME_FALSE,C_SCHEME_FALSE,t7,C_fix(0));} else{ t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18866,a[2]=t2,a[3]=t3,a[4]=t7,a[5]=t1,a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp); t15=t2; t16=C_slot(t15,C_fix(2)); t17=t16; t18=t3; t19=t5; t20=t6; t21=t7; t22=C_i_vector_ref(t18,C_fix(1)); t23=t22; t24=C_i_vector_ref(t18,C_fix(2)); t25=t24; t26=C_i_vector_ref(t18,C_fix(3)); t27=t26; t28=C_i_vector_ref(t18,C_fix(0)); t29=t28; t30=C_i_vector_ref(t17,C_fix(0)); t31=C_i_cadr(t30); t32=C_i_cadr(t31); t33=C_i_vector_ref(t17,t32); t34=C_SCHEME_UNDEFINED; t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp); t36=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19447,a[2]=t21,a[3]=t17,a[4]=t35,a[5]=t25,a[6]=t29,a[7]=t27,a[8]=t23,a[9]=((C_word)li237),tmp=(C_word)a,a+=10,tmp)); t37=((C_word*)t35)[1]; f_19447(t37,t14,t19,t20,t33);}} else{ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18953,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t11=t10; t12=t2; t13=t3; t14=t4; t15=t5; t16=t6; t17=t7; t18=C_i_check_structure_2(t12,lf[6],lf[296]); t19=C_slot(t12,C_fix(3)); t20=t19; t21=C_i_vector_ref(t13,C_fix(1)); t22=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18971,a[2]=t13,a[3]=t12,a[4]=t20,a[5]=t11,a[6]=t14,a[7]=t15,a[8]=t16,a[9]=t17,tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:1998: g3287 */ t23=t21;{ C_word av2[3]; av2[0]=t23; av2[1]=t22; av2[2]=t15; ((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}}} /* k18839 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18841,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_i_vector_set(t2,C_fix(0),((C_word*)t0)[3]); t4=C_slot(((C_word*)t0)[2],C_fix(1)); t5=C_i_vector_set(t4,C_fix(1),((C_word*)t0)[4]); t6=((C_word*)t0)[2]; t7=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k18864 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_18866,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(1)); t4=t3; t5=((C_word*)t0)[3]; t6=C_i_vector_ref(t5,C_fix(2)); t7=t6; t8=((C_word*)t0)[3]; t9=C_i_vector_ref(t8,C_fix(3)); t10=t9; t11=((C_word*)t0)[3]; t12=C_i_vector_ref(t11,C_fix(0)); t13=t12; t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18883,a[2]=((C_word*)t0)[4],a[3]=t15,a[4]=t7,a[5]=t13,a[6]=t4,a[7]=((C_word*)t0)[3],a[8]=t10,a[9]=((C_word)li234),tmp=(C_word)a,a+=10,tmp)); t17=((C_word*)t15)[1]; f_18883(t17,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* lp1 in k18864 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_18883(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_18883,4,t0,t1,t2,t3);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18887,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t1,a[10]=t3,tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:1978: get-end */ t5=((C_word*)t0)[8];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k18885 in lp1 in k18864 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_18887,2,av);} a=C_alloc(14); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18892,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t4,a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word)li233),tmp=(C_word)a,a+=12,tmp)); t6=((C_word*)t4)[1]; f_18892(t6,((C_word*)t0)[9],((C_word*)t0)[10]);} /* lp2 in k18885 in lp1 in k18864 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_18892(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,9)))){ C_save_and_reclaim_args((void *)trf_18892,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18899,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:1981: dfa-match/longest */ f_19704(t3,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[3],t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[2],C_fix(0));} /* k18897 in lp2 in k18885 in lp1 in k18864 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_18899,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_i_vector_set(t2,C_fix(0),((C_word*)t0)[3]); t4=C_slot(((C_word*)t0)[2],C_fix(1)); t5=C_i_vector_set(t4,C_fix(1),((C_word*)t0)[4]); t6=((C_word*)t0)[2]; t7=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[6]))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18922,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1986: get-next */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* irregex-core.scm:1989: lp2 */ t4=((C_word*)((C_word*)t0)[10])[1]; f_18892(t4,((C_word*)t0)[5],t3);}}} /* k18920 in k18897 in lp2 in k18885 in lp1 in k18864 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_18922,2,av);} a=C_alloc(5); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18932,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:1987: get-start */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18930 in k18920 in k18897 in lp2 in k18885 in lp1 in k18864 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18932,2,av);} /* irregex-core.scm:1987: lp1 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_18883(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k18951 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18953,2,av);} if(C_truep(t1)){ t2=C_i_set_i_slot(t1,C_fix(4),C_SCHEME_FALSE); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k18969 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_18971,2,av);} a=C_alloc(11); t2=t1; t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18977,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:1998: g3289 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k18975 in k18969 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,9)))){ C_save_and_reclaim((void *)f_18977,2,av);} a=C_alloc(11); t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); t3=t2; t4=C_slot(((C_word*)t0)[3],C_fix(4)); t5=C_fixnum_and(t4,C_fix(1)); t6=C_eqp(C_fix(1),t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18991,a[2]=((C_word)li238),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2003: matcher */ t8=((C_word*)t0)[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t8; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=((C_word*)t0)[9]; av2[7]=t1; av2[8]=((C_word*)t0)[10]; av2[9]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(10,av2);}} else{ t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18997,a[2]=((C_word*)t0)[10],a[3]=t8,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[6],a[8]=((C_word)li240),tmp=(C_word)a,a+=9,tmp)); t10=((C_word*)t8)[1]; f_18997(t10,((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t1);}} /* a18990 in k18975 in k18969 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_18991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18991,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lp in k18975 in k18969 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_18997(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,9)))){ C_save_and_reclaim_args((void *)trf_18997,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(14); t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19004,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=t1,a[6]=t5,a[7]=((C_word*)t0)[3],a[8]=t3,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],tmp=(C_word)a,a+=11,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19063,a[2]=((C_word)li239),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2009: matcher */ t8=((C_word*)t0)[6];{ C_word av2[10]; av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[7]; av2[4]=t2; av2[5]=t3; av2[6]=t4; av2[7]=t5; av2[8]=((C_word*)t0)[2]; av2[9]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(10,av2);}} /* k19002 in lp in k18975 in k18969 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_19004,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_i_vector_set(t2,C_fix(0),((C_word*)t0)[3]); t4=C_slot(((C_word*)t0)[2],C_fix(1)); t5=C_i_vector_set(t4,C_fix(1),((C_word*)t0)[4]); t6=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t6; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[6]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* irregex-core.scm:2014: lp */ t5=((C_word*)((C_word*)t0)[7])[1]; f_18997(t5,((C_word*)t0)[5],((C_word*)t0)[3],((C_word*)t0)[8],t4,((C_word*)t0)[6]);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19034,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:2016: get-next */ t5=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}} /* k19032 in k19002 in lp in k18975 in k18969 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_19034,2,av);} a=C_alloc(6); t2=t1; if(C_truep(t2)){ t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19047,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2018: g3308 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19045 in k19032 in k19002 in lp in k18975 in k18969 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_19047,2,av);} a=C_alloc(7); t2=t1; t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19054,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2018: g3310 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k19052 in k19045 in k19032 in k19002 in lp in k18975 in k18969 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_19054,2,av);} a=C_alloc(7); t2=t1; t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19061,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2018: g3312 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k19059 in k19052 in k19045 in k19032 in k19002 in lp in k18975 in k18969 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_19061,2,av);} /* irregex-core.scm:2018: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_18997(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* a19062 in lp in k18975 in k18969 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19063,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.irregex#irregex-match in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_19071,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19075,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t6=C_i_stringp(t3); if(C_truep(C_i_not(t6))){ /* irregex-core.scm:2025: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[299]; av2[3]=lf[302]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_19075(2,av2);}}} /* k19073 in chicken.irregex#irregex-match in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_19075,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19078,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=t2; f_19078(t4,C_u_i_car(t3));} else{ t3=t2; f_19078(t3,C_SCHEME_FALSE);}} /* k19076 in k19073 in chicken.irregex#irregex-match in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19078(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_19078,2,t0,t1);} a=C_alloc(6); t2=(C_truep(t1)?t1:C_fix(0)); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19084,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); t7=C_i_pairp(t6); t8=t4; f_19084(t8,(C_truep(t7)?C_i_cadr(((C_word*)t0)[5]):C_SCHEME_FALSE));} else{ t5=t4; f_19084(t5,C_SCHEME_FALSE);}} /* k19082 in k19076 in k19073 in chicken.irregex#irregex-match in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19084(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_19084,2,t0,t1);} a=C_alloc(7); t2=(C_truep(t1)?t1:C_i_string_length(((C_word*)t0)[2])); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19090,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_integerp(((C_word*)t0)[3]))){ t5=C_i_exactp(((C_word*)t0)[3]); if(C_truep(C_i_not(t5))){ /* irregex-core.scm:2029: chicken.base#error */ t6=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t4; av2[2]=lf[299]; av2[3]=lf[301]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_19090(2,av2);}}} else{ /* irregex-core.scm:2029: chicken.base#error */ t5=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[299]; av2[3]=lf[301]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k19088 in k19082 in k19076 in k19073 in chicken.irregex#irregex-match in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_19090,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19093,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_integerp(((C_word*)t0)[4]))){ t3=C_i_exactp(((C_word*)t0)[4]); if(C_truep(C_i_not(t3))){ /* irregex-core.scm:2031: chicken.base#error */ t4=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[299]; av2[3]=lf[300]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); /* irregex-core.scm:2032: irregex-match/chunked */ t5=*((C_word*)lf[298]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[284]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ /* irregex-core.scm:2031: chicken.base#error */ t3=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[299]; av2[3]=lf[300]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k19091 in k19088 in k19082 in k19076 in k19073 in chicken.irregex#irregex-match in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_19093,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); /* irregex-core.scm:2032: irregex-match/chunked */ t3=*((C_word*)lf[298]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[284]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_19161,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19165,a[2]=t3,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:2037: irregex */ t6=*((C_word*)lf[217]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_19165,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19168,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2038: irregex-new-matches */ f_7512(t3,t2);} /* k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_19168,2,av);} a=C_alloc(13); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_setslot(t2,C_fix(3),t3); if(C_truep(C_slot(((C_word*)t0)[3],C_fix(1)))){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19183,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t6=C_slot(((C_word*)t0)[3],C_fix(1)); t7=t6; t8=((C_word*)t0)[2]; t9=C_i_vector_ref(t8,C_fix(2)); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19253,a[2]=t5,a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2043: g3346 */ t11=t9;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t5=C_slot(((C_word*)t0)[3],C_fix(3)); t6=t5; t7=((C_word*)t0)[2]; t8=C_i_vector_ref(t7,C_fix(1)); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19263,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t6,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2054: g3366 */ t10=t8;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} /* k19181 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_19183,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_vector_ref(t2,C_fix(3)); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19217,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=C_slot(t5,C_fix(2)); /* irregex-core.scm:2045: g3349 */ t7=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t4; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k19204 in k19215 in k19181 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19206,2,av);} t2=C_i_vector_set(((C_word*)t0)[2],C_fix(1),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k19215 in k19181 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_19217,2,av);} a=C_alloc(5); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_times(C_fix(0),C_fix(4)); t4=C_fixnum_plus(C_fix(3),t3); t5=C_slot(t2,t4); t6=C_eqp(t1,t5); if(C_truep(t6)){ t7=C_slot(((C_word*)t0)[2],C_fix(1)); t8=C_i_vector_set(t7,C_fix(0),((C_word*)t0)[3]); t9=C_slot(((C_word*)t0)[2],C_fix(1)); t10=t9; t11=((C_word*)t0)[4]; t12=C_i_vector_ref(t11,C_fix(2)); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19206,a[2]=t10,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:2049: g3360 */ t14=t12;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t13; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} else{ t7=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k19251 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_19253,2,av);} /* irregex-core.scm:2043: dfa-match/longest */ f_19704(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],C_fix(0));} /* k19261 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_19263,2,av);} a=C_alloc(8); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19269,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:2054: g3369 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k19267 in k19261 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_19269,2,av);} a=C_alloc(9); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(3)); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19275,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:2054: g3372 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k19273 in k19267 in k19261 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,9)))){ C_save_and_reclaim((void *)f_19275,2,av);} a=C_alloc(10); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19285,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19384,a[2]=((C_word)li244),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2059: matcher */ t5=((C_word*)t0)[6];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t2; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[3]; av2[7]=t1; av2[8]=((C_word*)t0)[8]; av2[9]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(10,av2);}} /* k19283 in k19273 in k19267 in k19261 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_19285,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19287,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li243),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_19287(t5,((C_word*)t0)[3],t1);} /* lp in k19283 in k19273 in k19267 in k19261 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19287(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_19287,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19297,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=C_i_vector_ref(t4,C_fix(0)); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19361,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=t2; t8=C_slot(t7,C_fix(1)); t9=C_slot(t8,C_fix(2)); /* irregex-core.scm:2062: g3383 */ t10=t5;{ C_word av2[3]; av2[0]=t10; av2[1]=t6; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19295 in lp in k19283 in k19273 in k19267 in k19261 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19297(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_19297,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_set_i_slot(t2,C_fix(4),C_SCHEME_FALSE); t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; if(C_truep(C_slot(t2,C_fix(4)))){ t3=((C_word*)t0)[2]; t4=C_slot(t3,C_fix(4)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19316,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2070: g3396 */ t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k19314 in k19295 in lp in k19283 in k19273 in k19267 in k19261 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19316,2,av);} /* irregex-core.scm:2070: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_19287(t2,((C_word*)t0)[3],t1);} /* k19327 in k19359 in lp in k19283 in k19273 in k19267 in k19261 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19329,2,av);} t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(1)); t4=C_fixnum_times(C_fix(0),C_fix(4)); t5=C_fixnum_plus(C_fix(3),t4); t6=C_slot(t3,t5); t7=((C_word*)t0)[3]; f_19297(t7,C_eqp(t1,t6));} /* k19359 in lp in k19283 in k19273 in k19267 in k19261 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_19361,2,av);} a=C_alloc(4); if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2]; t3=C_i_vector_ref(t2,C_fix(3)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19329,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[3]; t6=C_slot(t5,C_fix(1)); t7=C_slot(t6,C_fix(2)); /* irregex-core.scm:2064: g3389 */ t8=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t4; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t2=((C_word*)t0)[4]; f_19297(t2,C_SCHEME_FALSE);}} /* a19383 in k19273 in k19267 in k19261 in k19166 in k19163 in chicken.irregex#irregex-match/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19384,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.irregex#irregex-match? in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,3)))){ C_save_and_reclaim((void*)f_19389,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19396,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=*((C_word*)lf[297]+1); av2[3]=t2; C_apply(4,av2);}} /* k19394 in chicken.irregex#irregex-match? in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19396,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lp1 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19447(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_19447,5,t0,t1,t2,t3,t4);} a=C_alloc(12); if(C_truep(t2)){ t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19454,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t1,a[9]=t3,a[10]=t4,a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:2101: get-str */ t6=((C_word*)t0)[8];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k19452 in lp1 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_19454,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19457,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:2102: get-end */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19455 in k19452 in lp1 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_19457,2,av);} a=C_alloc(14); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19462,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t4,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word)li236),tmp=(C_word)a,a+=12,tmp)); t6=((C_word*)t4)[1]; f_19462(t6,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* lp2 in k19455 in k19452 in lp1 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19462(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_19462,4,t0,t1,t2,t3);} a=C_alloc(10); t4=t3; if(C_truep(C_i_car(t4))){ t5=C_slot(((C_word*)t0)[2],C_fix(1)); t6=C_i_vector_set(t5,C_fix(2),((C_word*)t0)[3]); t7=C_slot(((C_word*)t0)[2],C_fix(1)); t8=C_i_vector_set(t7,C_fix(3),t2); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t5=t2; if(C_truep(C_fixnum_lessp(t5,((C_word*)t0)[4]))){ t6=C_i_string_ref(((C_word*)t0)[5],t2); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19514,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19529,a[2]=t7,a[3]=((C_word)li235),tmp=(C_word)a,a+=4,tmp); t10=C_i_cdr(t3); /* irregex-core.scm:2113: find */ f_9059(t8,t9,t10);} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19565,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2120: get-next */ t7=((C_word*)t0)[10];{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}} /* k19512 in lp2 in k19455 in k19452 in lp1 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_19514,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); t4=t1; t5=C_i_cadr(t4); t6=C_i_vector_ref(((C_word*)t0)[3],t5); /* irregex-core.scm:2118: lp2 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_19462(t7,((C_word*)t0)[5],t3,t6);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a19528 in lp2 in k19455 in k19452 in lp1 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19529,3,av);} t3=C_i_car(t2); t4=C_eqp(((C_word*)t0)[2],t3); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t2; t6=C_u_i_car(t5); t7=C_charp(t6); if(C_truep(C_i_not(t7))){ t8=t2; t9=C_u_i_car(t8); /* irregex-core.scm:2116: cset-contains? */ f_26682(t1,t9,((C_word*)t0)[2]);} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* k19563 in lp2 in k19455 in k19452 in lp1 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_19565,2,av);} a=C_alloc(6); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19575,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2121: get-start */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19573 in k19563 in lp2 in k19455 in k19452 in lp1 in chicken.irregex#irregex-search/matches in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19575,2,av);} /* irregex-core.scm:2121: lp1 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_19447(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* chicken.irregex#finalize! in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19585(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_19585,4,t1,t2,t3,t4);} a=C_alloc(12); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19587,a[2]=t3,a[3]=t4,a[4]=((C_word)li247),tmp=(C_word)a,a+=5,tmp); t6=C_i_check_list_2(t2,lf[305]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19645,a[2]=t8,a[3]=t5,a[4]=((C_word)li248),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_19645(t10,t1,t2);} /* g3470 in chicken.irregex#finalize! in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19587(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){ C_save_and_reclaim_args((void *)trf_19587,3,t0,t1,t2);} a=C_alloc(16); t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=C_i_vector_ref(((C_word*)t0)[2],t6); t8=C_i_vector_ref(t7,t4); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19600,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t9,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t11=C_slot(((C_word*)t0)[3],C_fix(1)); t12=C_a_i_fixnum_times(&a,2,t4,C_fix(2)); t13=C_s_a_u_i_integer_plus(&a,2,C_fix(4),t12); if(C_truep(t9)){ t14=C_i_car(t9); t15=t10; f_19600(t15,C_i_vector_set(t11,t13,t14));} else{ t14=t10; f_19600(t14,C_i_vector_set(t11,t13,C_SCHEME_FALSE));}} /* k19598 in g3470 in chicken.irregex#finalize! in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19600(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,1)))){ C_save_and_reclaim_args((void *)trf_19600,2,t0,t1);} a=C_alloc(10); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_a_i_fixnum_times(&a,2,((C_word*)t0)[3],C_fix(2)); t4=C_s_a_u_i_integer_plus(&a,2,C_fix(5),t3); if(C_truep(((C_word*)t0)[4])){ t5=C_i_cdr(((C_word*)t0)[4]); t6=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_vector_set(t2,t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=C_i_vector_set(t2,t4,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* for-each-loop3469 in chicken.irregex#finalize! in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19645(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_19645,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19655,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:2124: g3470 */ t5=((C_word*)t0)[3]; f_19587(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k19653 in for-each-loop3469 in chicken.irregex#finalize! in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19655,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_19645(t3,((C_word*)t0)[4],t2);} /* k19671 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_19673,2,av);} a=C_alloc(10); t2=C_a_i_fixnum_times(&a,2,t1,C_fix(2)); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19677,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:2136: scheme#make-vector */ t4=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19675 in k19671 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_19677,2,av);} a=C_alloc(9); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19682,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li259),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_19682(t6,((C_word*)t0)[4],C_fix(0));} /* doloop3500 in k19675 in k19671 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19682(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_19682,3,t0,t1,t2);} a=C_alloc(6); t3=t2; t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19702,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2139: scheme#make-vector */ t6=*((C_word*)lf[4]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k19700 in doloop3500 in k19675 in k19671 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_19702,2,av);} a=C_alloc(5); t2=C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=((C_word*)t0)[3]; t4=C_a_i_fixnum_plus(&a,2,t3,C_fix(1)); t5=((C_word*)((C_word*)t0)[4])[1]; f_19682(t5,((C_word*)t0)[5],t4);} /* chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19704(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8,C_word t9){ C_word tmp; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){ C_save_and_reclaim_args((void *)trf_19704,9,t1,t2,t3,t4,t5,t6,t7,t8,t9);} a=C_alloc(20); t10=t3; t11=C_i_vector_ref(t10,C_fix(1)); t12=t11; t13=t3; t14=C_i_vector_ref(t13,C_fix(2)); t15=t14; t16=t3; t17=C_i_vector_ref(t16,C_fix(3)); t18=t17; t19=t3; t20=C_i_vector_ref(t19,C_fix(0)); t21=t20; t22=t2; t23=C_i_vector_ref(t22,C_fix(0)); t24=t23; t25=C_i_car(t24); t26=C_i_zerop(t25); t27=C_i_not(t26); t28=t27; t29=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_19729,a[2]=t24,a[3]=t2,a[4]=t4,a[5]=t5,a[6]=t15,a[7]=t9,a[8]=t8,a[9]=t6,a[10]=t21,a[11]=t28,a[12]=t7,a[13]=t18,a[14]=t12,a[15]=t1,tmp=(C_word)a,a+=16,tmp); t30=t29; t31=t25; t32=t8; t33=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19673,a[2]=t31,a[3]=t30,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2135: irregex-match-num-submatches */ t34=*((C_word*)lf[17]+1);{ C_word av2[3]; av2[0]=t34; av2[1]=t33; av2[2]=t32; ((C_proc)(void*)(*((C_word*)t34+1)))(3,av2);}} /* k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_19729,2,av);} a=C_alloc(19); t2=t1; t3=C_i_cadr(((C_word*)t0)[2]); t4=t3; t5=((C_word*)t0)[3]; t6=C_i_cadr(t4); t7=C_i_vector_ref(t5,t6); t8=t7; t9=C_i_car(t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_19741,a[2]=t10,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t2,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=t8,a[18]=t4,tmp=(C_word)a,a+=19,tmp); if(C_truep(((C_word*)t0)[7])){ t12=C_slot(((C_word*)t0)[8],C_fix(1)); t13=C_fixnum_times(((C_word*)t0)[7],C_fix(4)); t14=C_fixnum_plus(C_fix(2),t13); t15=C_i_vector_set(t12,t14,C_SCHEME_FALSE); t16=C_slot(((C_word*)t0)[8],C_fix(1)); t17=C_fixnum_times(((C_word*)t0)[7],C_fix(4)); t18=C_fixnum_plus(C_fix(3),t17); t19=t11; f_19741(t19,C_i_vector_set(t16,t18,C_SCHEME_FALSE));} else{ t12=t11; f_19741(t12,C_SCHEME_UNDEFINED);}} /* k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19741(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(31,0,3)))){ C_save_and_reclaim_args((void *)trf_19741,2,t0,t1);} a=C_alloc(31); t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_19744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],tmp=(C_word)a,a+=18,tmp); if(C_truep(((C_word*)t0)[12])){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20149,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li257),tmp=(C_word)a,a+=6,tmp); t4=C_i_cddr(((C_word*)t0)[18]); t5=C_i_cdr(t4); t6=C_i_check_list_2(t5,lf[305]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20177,a[2]=t3,a[3]=t8,a[4]=((C_word)li258),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_20177(t10,t2,t5);} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_19744(2,av2);}}} /* k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,8)))){ C_save_and_reclaim((void *)f_19744,2,av);} a=C_alloc(17); t2=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[3]:C_SCHEME_FALSE); t3=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[4]:C_SCHEME_FALSE); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_19757,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word)li256),tmp=(C_word)a,a+=15,tmp)); t7=((C_word*)t5)[1]; f_19757(t7,((C_word*)t0)[16],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[17],t2,t3,((C_word*)t0)[2]);} /* lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19757(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){ C_save_and_reclaim_args((void *)trf_19757,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(20); t8=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_19761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=t1,a[13]=t3,a[14]=t4,a[15]=t5,a[16]=t6,a[17]=t7,a[18]=((C_word*)t0)[11],a[19]=((C_word*)t0)[12],tmp=(C_word)a,a+=20,tmp); /* irregex-core.scm:2170: get-str */ t9=((C_word*)t0)[13];{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_19761,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_19764,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp); t4=C_eqp(((C_word*)t0)[7],((C_word*)t0)[8]); if(C_truep(t4)){ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[18]; f_19764(2,av2);}} else{ /* irregex-core.scm:2171: get-end */ t5=((C_word*)t0)[19];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,7)))){ C_save_and_reclaim((void *)f_19764,2,av);} a=C_alloc(18); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_19769,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=t4,a[14]=((C_word*)t0)[12],a[15]=((C_word)li255),tmp=(C_word)a,a+=16,tmp)); t6=((C_word*)t4)[1]; f_19769(t6,((C_word*)t0)[13],((C_word*)t0)[14],((C_word*)t0)[15],((C_word*)t0)[16],((C_word*)t0)[17],((C_word*)t0)[18]);} /* lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19769(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ C_save_and_reclaim_args((void *)trf_19769,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(18); t7=t2; if(C_truep(C_fixnum_greater_or_equal_p(t7,((C_word*)t0)[2]))){ t8=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_19779,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],tmp=(C_word)a,a+=15,tmp); t9=(C_truep(((C_word*)t0)[5])?t4:C_SCHEME_FALSE); if(C_truep(t9)){ t10=C_slot(((C_word*)t0)[6],C_fix(1)); t11=C_fixnum_times(((C_word*)t0)[5],C_fix(4)); t12=C_fixnum_plus(C_fix(2),t11); t13=C_i_vector_set(t10,t12,t4); t14=C_slot(((C_word*)t0)[6],C_fix(1)); t15=C_fixnum_times(((C_word*)t0)[5],C_fix(4)); t16=C_fixnum_plus(C_fix(3),t15); t17=t8; f_19779(t17,C_i_vector_set(t14,t16,t5));} else{ t10=t8; f_19779(t10,C_SCHEME_UNDEFINED);}} else{ t8=C_i_string_ref(((C_word*)t0)[11],t2); t9=t8; t10=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_19879,a[2]=((C_word*)t0)[12],a[3]=t2,a[4]=((C_word*)t0)[13],a[5]=t1,a[6]=((C_word*)t0)[8],a[7]=t4,a[8]=t5,a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[7],a[11]=t6,a[12]=((C_word*)t0)[6],a[13]=((C_word*)t0)[5],tmp=(C_word)a,a+=14,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20109,a[2]=t9,a[3]=((C_word)li254),tmp=(C_word)a,a+=4,tmp); t12=C_i_cdr(t3); /* irregex-core.scm:2192: find */ f_9059(t10,t11,t12);}} /* k19777 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19779(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_19779,2,t0,t1);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19782,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t3=C_eqp(((C_word*)t0)[12],((C_word*)t0)[13]); if(C_truep(C_i_not(t3))){ /* irregex-core.scm:2183: get-next */ t4=((C_word*)t0)[14];{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_19782(2,av2);}}} /* k19780 in k19777 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_19782,2,av);} a=C_alloc(9); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19792,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:2185: get-start */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(((C_word*)t0)[9])){ t3=((C_word*)t0)[10]; t4=((C_word*)t0)[9]; t5=C_slot(t3,C_fix(1)); t6=C_fixnum_times(t4,C_fix(4)); t7=C_fixnum_plus(C_fix(2),t6); if(C_truep(C_slot(t5,t7))){ t8=C_i_not(((C_word*)t0)[7]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19827,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); if(C_truep(t8)){ t10=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t10; av2[1]=(C_truep(t8)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ /* irregex-core.scm:2188: finalize! */ f_19585(t9,((C_word*)t0)[7],((C_word*)t0)[11],((C_word*)t0)[10]);}} else{ t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k19790 in k19780 in k19777 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_19792,2,av);} /* irregex-core.scm:2185: lp1 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_19757(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k19825 in k19780 in k19777 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19827,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_19879,2,av);} a=C_alloc(17); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_cadr(t1); t4=C_i_vector_ref(t2,t3); t5=t4; t6=C_i_car(t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19891,a[2]=t7,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t5,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[9])){ t9=C_i_cddr(t1); t10=t9; t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19915,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=t10,a[6]=t8,tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[11])){ if(C_truep(C_i_not(t7))){ /* irregex-core.scm:2207: finalize! */ f_19585(t11,((C_word*)t0)[11],((C_word*)t0)[10],((C_word*)t0)[12]);} else{ t12=t11;{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; f_19915(2,av2);}}} else{ t12=t11;{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; f_19915(2,av2);}}} else{ t9=t8; f_19891(t9,C_SCHEME_UNDEFINED);}} else{ if(C_truep(((C_word*)t0)[7])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20039,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[13])){ t3=C_slot(((C_word*)t0)[12],C_fix(1)); t4=C_fixnum_times(((C_word*)t0)[13],C_fix(4)); t5=C_fixnum_plus(C_fix(2),t4); t6=C_i_vector_set(t3,t5,((C_word*)t0)[7]); t7=C_slot(((C_word*)t0)[12],C_fix(1)); t8=C_fixnum_times(((C_word*)t0)[13],C_fix(4)); t9=C_fixnum_plus(C_fix(3),t8); t10=t2; f_20039(t10,C_i_vector_set(t7,t9,((C_word*)t0)[8]));} else{ t3=t2; f_20039(t3,C_SCHEME_UNDEFINED);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20081,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[13])){ t3=((C_word*)t0)[12]; t4=((C_word*)t0)[13]; t5=C_slot(t3,C_fix(1)); t6=C_fixnum_times(t4,C_fix(4)); t7=C_fixnum_plus(C_fix(2),t6); t8=t2; f_20081(t8,C_slot(t5,t7));} else{ t3=t2; f_20081(t3,C_SCHEME_FALSE);}}}} /* k19889 in k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_19891(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,6)))){ C_save_and_reclaim_args((void *)trf_19891,2,t0,t1);} a=C_alloc(10); if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); t4=((C_word*)t0)[3]; t5=C_a_i_fixnum_plus(&a,2,t4,C_fix(1)); /* irregex-core.scm:2220: lp2 */ t6=((C_word*)((C_word*)t0)[4])[1]; f_19769(t6,((C_word*)t0)[5],t3,((C_word*)t0)[6],((C_word*)t0)[7],t5,((C_word*)t0)[2]);} else{ t2=((C_word*)t0)[3]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); /* irregex-core.scm:2221: lp2 */ t4=((C_word*)((C_word*)t0)[4])[1]; f_19769(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}} /* k19913 in k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_19915,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li250),tmp=(C_word)a,a+=6,tmp); t3=C_i_cdr(((C_word*)t0)[5]); t4=C_i_check_list_2(t3,lf[305]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19945,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20003,a[2]=t2,a[3]=t7,a[4]=((C_word)li253),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_20003(t9,t5,t3);} /* g3625 in k19913 in k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static C_word C_fcall f_19916(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check;{} t2=C_i_cdr(t1); t3=C_i_vector_ref(((C_word*)t0)[2],t2); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t5=C_a_i_cons(&a,2,((C_word*)t0)[4],t4); t6=t1; t7=C_u_i_car(t6); return(C_i_vector_set(t3,t7,t5));} /* k19943 in k19913 in k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_19945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_19945,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19946,a[2]=((C_word*)t0)[2],a[3]=((C_word)li251),tmp=(C_word)a,a+=4,tmp); t3=C_u_i_car(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[305]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19980,a[2]=t2,a[3]=((C_word)li252),tmp=(C_word)a,a+=4,tmp); t6=((C_word*)t0)[4]; f_19891(t6,( f_19980(t5,t3) ));} /* g3635 in k19943 in k19913 in k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static C_word C_fcall f_19946(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check;{} t2=C_i_vector_ref(t1,C_fix(0)); t3=C_i_vector_ref(t1,C_fix(1)); t4=C_i_vector_ref(((C_word*)t0)[2],t3); t5=C_i_vector_ref(t1,C_fix(2)); t6=C_i_vector_ref(((C_word*)t0)[2],t5); t7=C_i_vector_ref(t4,t2); return(C_i_vector_set(t6,t2,t7));} /* for-each-loop3634 in k19943 in k19913 in k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static C_word C_fcall f_19980(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=( /* irregex-core.scm:2213: g3635 */ f_19946(((C_word*)t0)[2],t2) ); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* for-each-loop3624 in k19913 in k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20003(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_20003,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* irregex-core.scm:2208: g3625 */ f_19916(C_a_i(&a,3),((C_word*)t0)[2],t3) ); t5=C_slot(t2,C_fix(1)); t7=t1; t8=t5; t1=t7; t2=t8; goto loop;} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20037 in k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20039(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_20039,2,t0,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20042,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* irregex-core.scm:2227: finalize! */ f_19585(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20040 in k20037 in k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20042,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20079 in k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20081(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_20081,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20084,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* irregex-core.scm:2230: finalize! */ f_19585(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k20082 in k20079 in k19877 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20084,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a20108 in lp2 in k19762 in k19759 in lp1 in k19742 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20109,3,av);} t3=C_i_car(t2); t4=C_eqp(((C_word*)t0)[2],t3); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t2; t6=C_u_i_car(t5); t7=C_charp(t6); if(C_truep(C_i_not(t7))){ t8=t2; t9=C_u_i_car(t8); /* irregex-core.scm:2195: cset-contains? */ f_26682(t1,t9,((C_word*)t0)[2]);} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* g3541 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static C_word C_fcall f_20149(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check;{} t2=C_i_cdr(t1); t3=C_i_vector_ref(((C_word*)t0)[2],t2); t4=t1; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); return(C_i_vector_set(t3,t5,t6));} /* for-each-loop3540 in k19739 in k19727 in chicken.irregex#dfa-match/longest in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20177(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_20177,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* irregex-core.scm:2160: g3541 */ f_20149(C_a_i(&a,3),((C_word*)t0)[2],t3) ); t5=C_slot(t2,C_fix(1)); t7=t1; t8=t5; t1=t7; t2=t8; goto loop;} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* chicken.irregex#nfa-get-epsilons in k18685 in k7651 in k7426 in k7423 */ static C_word C_fcall f_20302(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check;{} t3=t2; t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ return(C_SCHEME_END_OF_LIST);} else{ t5=C_fixnum_times(t2,C_fix(4)); t6=C_fixnum_plus(t5,C_fix(1)); return(C_i_vector_ref(t1,t6));}} /* chicken.irregex#nfa-add-epsilon! in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20336(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,1)))){ C_save_and_reclaim_args((void *)trf_20336,5,t1,t2,t3,t4,t5);} a=C_alloc(6); t6=( /* irregex-core.scm:2386: nfa-get-epsilons */ f_20302(t2,t3) ); t7=C_i_assq(t4,t6); if(C_truep(C_i_not(t7))){ t8=C_a_i_cons(&a,2,t4,t5); t9=C_a_i_cons(&a,2,t8,t6); t10=t1; t11=t2; t12=t3; t13=C_fixnum_times(t12,C_fix(4)); t14=C_fixnum_plus(t13,C_fix(1)); t15=t10;{ C_word av2[2]; av2[0]=t15; av2[1]=C_i_vector_set(t11,t14,t9); ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20477(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_20477,3,t1,t2,t3);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20481,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_a_i_fixnum_times(&a,2,C_fix(128),C_fix(4)); /* irregex-core.scm:2412: scheme#make-vector */ t6=*((C_word*)lf[4]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){ C_save_and_reclaim((void *)f_20481,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20484,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t5=C_a_i_list1(&a,1,((C_word*)t0)[3]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21432,a[2]=t3,a[3]=t7,a[4]=((C_word)li273),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_21432(t9,t4,t5,C_fix(0),C_SCHEME_END_OF_LIST);} /* k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,6)))){ C_save_and_reclaim((void *)f_20484,2,av);} a=C_alloc(15); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20486,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t2,a[5]=((C_word)li271),tmp=(C_word)a,a+=6,tmp)); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21376,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t7=C_a_i_list1(&a,1,((C_word*)t0)[4]); /* irregex-core.scm:2629: lp */ t8=((C_word*)t4)[1]; f_20486(t8,t6,t7,C_fix(1),((C_word*)t0)[5],C_fix(0));} /* lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20486(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(40,0,4)))){ C_save_and_reclaim_args((void *)trf_20486,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(40); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20489,a[2]=t3,a[3]=((C_word)li264),tmp=(C_word)a,a+=4,tmp)); t15=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20499,a[2]=((C_word*)t0)[2],a[3]=((C_word)li266),tmp=(C_word)a,a+=4,tmp)); t16=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20560,a[2]=t9,a[3]=t7,a[4]=((C_word)li267),tmp=(C_word)a,a+=5,tmp)); t17=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20577,a[2]=t4,a[3]=t11,a[4]=((C_word)li268),tmp=(C_word)a,a+=5,tmp)); if(C_truep(C_i_nullp(t2))){ t18=t5; t19=t1;{ C_word av2[2]; av2[0]=t19; av2[1]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} else{ t18=C_i_car(t2); t19=C_eqp(lf[110],t18); t20=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20624,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t9,a[5]=t7,a[6]=t2,a[7]=((C_word*)t0)[3],a[8]=t3,a[9]=t4,a[10]=t5,a[11]=t13,a[12]=t11,a[13]=((C_word*)t0)[4],tmp=(C_word)a,a+=14,tmp); if(C_truep(t19)){ t21=t20; f_20624(t21,t19);} else{ t21=t2; t22=C_u_i_car(t21); t23=t20; f_20624(t23,C_i_equalp(lf[393],t22));}}} /* new-state-number in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20489(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_20489,3,t0,t1,t2);} t3=C_fixnum_plus(C_fix(1),t2); /* irregex-core.scm:2437: scheme#max */ t4=*((C_word*)lf[252]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* add-state! in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20499(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_20499,4,t0,t1,t2,t3);} a=C_alloc(15); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20503,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=C_fixnum_times(t2,C_fix(4)); t6=C_i_vector_length(((C_word*)((C_word*)t0)[2])[1]); if(C_truep(C_fixnum_greater_or_equal_p(t5,t6))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20512,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t8=C_i_vector_length(((C_word*)((C_word*)t0)[2])[1]); t9=C_a_i_fixnum_times(&a,2,C_fix(2),t8); /* irregex-core.scm:2440: scheme#make-vector */ t10=*((C_word*)lf[4]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t7; av2[2]=t9; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t7=t4; f_20503(t7,C_SCHEME_UNDEFINED);}} /* k20501 in add-state! in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20503(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_20503,2,t0,t1);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=C_fixnum_times(t3,C_fix(4)); t6=C_i_vector_set(t2,t5,t4); t7=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t7; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k20510 in add-state! in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_20512,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20515,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_vector_length(((C_word*)((C_word*)t0)[2])[1]); t5=C_a_i_fixnum_difference(&a,2,t4,C_fix(1)); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20524,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t7,a[5]=((C_word)li265),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_20524(t9,t3,t5);} /* k20513 in k20510 in add-state! in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20515,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4]; f_20503(t3,t2);} /* doloop3811 in k20510 in add-state! in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20524(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_20524,3,t0,t1,t2);} a=C_alloc(5); t3=t2; if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_vector_ref(((C_word*)((C_word*)t0)[2])[1],t2); t5=C_i_vector_set(((C_word*)t0)[3],t2,t4); t6=t2; t7=C_a_i_fixnum_difference(&a,2,t6,C_fix(1)); t9=t1; t10=t7; t1=t9; t2=t10; goto loop;}} /* extend-state! in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20560(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_20560,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20571,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2449: new-state-number */ t5=((C_word*)((C_word*)t0)[3])[1]; f_20489(t5,t4,t2);} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20569 in extend-state! in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20571,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* irregex-core.scm:2449: add-state! */ t3=((C_word*)((C_word*)t0)[4])[1]; f_20499(t3,((C_word*)t0)[5],t1,t2);} /* add-char-state! in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20577(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_20577,4,t0,t1,t2,t3);} a=C_alloc(15); t4=t3; t5=C_u_i_char_upper_casep(t4); t6=(C_truep(t5)?C_u_i_char_downcase(t4):C_u_i_char_upcase(t4)); t7=((C_word*)t0)[2]; t8=C_fixnum_and(t7,C_fix(2)); t9=C_eqp(C_fix(2),t8); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20594,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t11=t3; t12=C_a_i_cons(&a,2,t11,t11); t13=C_a_i_vector1(&a,1,t12); t14=C_a_i_cons(&a,2,t6,t6); t15=C_a_i_vector1(&a,1,t14); /* irregex-core.scm:2453: cset-union */ t16=lf[162];{ C_word av2[4]; av2[0]=t16; av2[1]=t10; av2[2]=t13; av2[3]=t15; f_26803(4,av2);}} else{ t10=t3; t11=C_a_i_cons(&a,2,t10,t10); t12=C_a_i_vector1(&a,1,t11); /* irregex-core.scm:2454: extend-state! */ t13=((C_word*)((C_word*)t0)[3])[1]; f_20560(t13,t1,t2,t12);}} /* k20592 in add-char-state! in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20594,2,av);} /* irregex-core.scm:2453: extend-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20560(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20624(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ C_save_and_reclaim_args((void *)trf_20624,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20627,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[6]; t4=C_u_i_cdr(t3); /* irregex-core.scm:2460: lp */ t5=((C_word*)((C_word*)t0)[7])[1]; f_20486(t5,t2,t4,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} else{ t2=((C_word*)t0)[6]; t3=C_u_i_car(t2); if(C_truep(C_i_stringp(t3))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20651,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[6]; t6=C_u_i_cdr(t5); /* irregex-core.scm:2467: lp */ t7=((C_word*)((C_word*)t0)[7])[1]; f_20486(t7,t4,t6,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} else{ t4=((C_word*)t0)[6]; t5=C_u_i_car(t4); if(C_truep(C_charp(t5))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20708,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t7=((C_word*)t0)[6]; t8=C_u_i_cdr(t7); /* irregex-core.scm:2477: lp */ t9=((C_word*)((C_word*)t0)[7])[1]; f_20486(t9,t6,t8,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} else{ t6=((C_word*)t0)[6]; t7=C_u_i_car(t6); if(C_truep(C_i_symbolp(t7))){ t8=((C_word*)t0)[6]; t9=C_u_i_car(t8); t10=C_i_assq(t9,lf[246]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20735,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); t12=C_i_cdr(t10); if(C_truep(C_i_closurep(t12))){ t13=C_u_i_cdr(t10); /* irregex-core.scm:2481: g3844 */ t14=t13;{ C_word av2[2]; av2[0]=t14; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t13=C_u_i_cdr(t10); t14=((C_word*)t0)[6]; t15=C_u_i_cdr(t14); t16=C_a_i_cons(&a,2,t13,t15); /* irregex-core.scm:2481: lp */ t17=((C_word*)((C_word*)t0)[7])[1]; f_20486(t17,((C_word*)t0)[2],t16,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}} else{ t11=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t8=((C_word*)t0)[6]; t9=C_u_i_car(t8); if(C_truep(C_i_pairp(t9))){ t10=C_i_caar(((C_word*)t0)[6]); if(C_truep(C_i_stringp(t10))){ t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20766,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); t12=((C_word*)t0)[9]; t13=C_fixnum_and(t12,C_fix(2)); t14=C_eqp(C_fix(2),t13); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20785,a[2]=t11,tmp=(C_word)a,a+=3,tmp); t16=C_i_caar(((C_word*)t0)[6]); /* irregex-core.scm:2492: string->cset */ f_26195(t15,t16);} else{ t15=C_i_caar(((C_word*)t0)[6]); /* irregex-core.scm:2493: string->cset */ f_26195(t11,t15);}} else{ t11=C_i_caar(((C_word*)t0)[6]); t12=t11; t13=C_eqp(t12,lf[115]); t14=(C_truep(t13)?t13:C_eqp(t12,lf[225])); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20815,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],tmp=(C_word)a,a+=7,tmp); t16=((C_word*)t0)[6]; t17=C_u_i_car(t16); t18=C_u_i_cdr(t17); t19=((C_word*)t0)[6]; t20=C_u_i_cdr(t19); /* irregex-core.scm:2499: scheme#append */ t21=*((C_word*)lf[73]+1);{ C_word av2[4]; av2[0]=t21; av2[1]=t15; av2[2]=t18; av2[3]=t20; ((C_proc)(void*)(*((C_word*)t21+1)))(4,av2);}} else{ t15=C_eqp(t12,lf[223]); t16=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20829,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[10],a[9]=t12,a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[4],a[12]=((C_word*)t0)[3],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); if(C_truep(t15)){ t17=t16; f_20829(t17,t15);} else{ t17=C_eqp(t12,lf[224]); if(C_truep(t17)){ t18=t16; f_20829(t18,t17);} else{ t18=C_eqp(t12,lf[156]); t19=t16; f_20829(t19,(C_truep(t18)?t18:C_eqp(t12,lf[157])));}}}}} else{ t10=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}}}} /* k20625 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_20627,2,av);} a=C_alloc(9); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20633,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20640,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2462: new-state-number */ t5=((C_word*)((C_word*)t0)[5])[1]; f_20489(t5,t4,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20631 in k20625 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_20633,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20636,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2463: nfa-add-epsilon! */ f_20336(t3,((C_word*)((C_word*)t0)[3])[1],t2,((C_word*)t0)[4],C_SCHEME_FALSE);} /* k20634 in k20631 in k20625 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20636,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20638 in k20625 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20640,2,av);} /* irregex-core.scm:2462: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20499(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k20649 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_20651,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_i_string_length(t3); t5=C_a_i_fixnum_difference(&a,2,t4,C_fix(1)); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20665,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li269),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_20665(t9,((C_word*)t0)[4],t5,t1);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* lp2 in k20649 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20665(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_20665,4,t0,t1,t2,t3);} a=C_alloc(5); t4=t2; if(C_truep(C_fixnum_lessp(t4,C_fix(0)))){ t5=t3; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_fixnum_difference(t2,C_fix(1)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20683,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=C_i_car(((C_word*)t0)[3]); t9=C_i_string_ref(t8,t2); /* irregex-core.scm:2474: add-char-state! */ t10=((C_word*)((C_word*)t0)[4])[1]; f_20577(t10,t7,t3,t9);}} /* k20681 in lp2 in k20649 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20683,2,av);} /* irregex-core.scm:2473: lp2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20665(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k20706 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20708,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); /* irregex-core.scm:2477: add-char-state! */ t4=((C_word*)((C_word*)t0)[3])[1]; f_20577(t4,((C_word*)t0)[4],t1,t3);} /* k20733 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_20735,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,t1,t3); /* irregex-core.scm:2481: lp */ t5=((C_word*)((C_word*)t0)[3])[1]; f_20486(t5,((C_word*)t0)[4],t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k20764 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_20766,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20773,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); /* irregex-core.scm:2494: lp */ t6=((C_word*)((C_word*)t0)[5])[1]; f_20486(t6,t3,t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k20771 in k20764 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20773,2,av);} /* irregex-core.scm:2494: extend-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20560(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k20783 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20785,2,av);} /* irregex-core.scm:2492: cset-case-insensitive */ f_27330(((C_word*)t0)[2],t1);} /* k20813 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_20815,2,av);} /* irregex-core.scm:2499: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20486(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20829(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ C_save_and_reclaim_args((void *)trf_20829,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20832,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* irregex-core.scm:2501: lp */ t5=((C_word*)((C_word*)t0)[3])[1]; f_20486(t5,t2,t4,((C_word*)t0)[7],((C_word*)t0)[6],((C_word*)t0)[8]);} else{ t2=C_eqp(((C_word*)t0)[9],lf[52]); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20876,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); if(C_truep(t2)){ t4=t3; f_20876(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[9],lf[245]); if(C_truep(t4)){ t5=t3; f_20876(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[9],lf[232]); t6=t3; f_20876(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[9],lf[179])));}}}} /* k20830 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_20832,2,av);} a=C_alloc(7); t2=t1; t3=C_i_caar(((C_word*)t0)[2]); t4=(C_truep((C_truep(C_eqp(t3,lf[223]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[156]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))?lf[64]:lf[63]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20838,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t6=((C_word*)t0)[2]; t7=C_u_i_car(t6); t8=C_u_i_car(t7); if(C_truep((C_truep(C_eqp(t8,lf[223]))?C_SCHEME_TRUE:(C_truep(C_eqp(t8,lf[224]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ /* irregex-core.scm:2501: g3871 */ t9=t4;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t5; av2[2]=((C_word*)t0)[6]; av2[3]=C_fix(2); ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* irregex-core.scm:2501: g3871 */ t9=t4;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t5; av2[2]=((C_word*)t0)[6]; av2[3]=C_fix(32); ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} /* k20836 in k20830 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_20838,2,av);} a=C_alloc(7); t2=t1; if(C_truep(((C_word*)t0)[2])){ t3=C_i_cdar(((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20852,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2510: new-state-number */ t6=((C_word*)((C_word*)t0)[6])[1]; f_20489(t6,t5,((C_word*)t0)[2]);} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20850 in k20836 in k20830 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_20852,2,av);} /* irregex-core.scm:2510: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20486(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_20876(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,5)))){ C_save_and_reclaim_args((void *)trf_20876,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20879,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=((C_word*)t0)[4]; t4=C_u_i_car(t3); t5=((C_word*)t0)[7]; t6=C_fixnum_and(t5,C_fix(2)); t7=C_eqp(C_fix(2),t6); /* irregex-core.scm:2512: sre->cset */ f_26215(t2,t4,C_a_i_list(&a,1,t7));} else{ t2=C_eqp(((C_word*)t0)[9],lf[103]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20903,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); /* irregex-core.scm:2517: lp */ t6=((C_word*)((C_word*)t0)[5])[1]; f_20486(t6,t3,t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t3=C_eqp(((C_word*)t0)[9],lf[131]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20991,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[11],tmp=(C_word)a,a+=8,tmp); t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); /* irregex-core.scm:2541: lp */ t7=((C_word*)((C_word*)t0)[5])[1]; f_20486(t7,t4,t6,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t4=C_eqp(((C_word*)t0)[9],lf[129]); t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[9],lf[127])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21025,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[11],tmp=(C_word)a,a+=8,tmp); t7=((C_word*)t0)[4]; t8=C_u_i_cdr(t7); /* irregex-core.scm:2550: lp */ t9=((C_word*)((C_word*)t0)[5])[1]; f_20486(t9,t6,t8,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t6=C_eqp(((C_word*)t0)[9],lf[243]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[9],lf[108])); if(C_truep(t7)){ t8=((C_word*)t0)[4]; t9=C_u_i_car(t8); t10=C_i_assq(t9,((C_word*)t0)[13]); t11=C_i_cdr(t10); t12=C_fixnum_shift_left(t11,C_fix(1)); t13=t12; t14=C_fixnum_plus(t13,C_fix(1)); t15=t14; t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21085,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[12],a[4]=t15,a[5]=t13,a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); t17=((C_word*)t0)[4]; t18=C_u_i_cdr(t17); /* irregex-core.scm:2595: lp */ t19=((C_word*)((C_word*)t0)[5])[1]; f_20486(t19,t16,t18,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t8=C_eqp(((C_word*)t0)[9],lf[119]); t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[9],lf[120])); if(C_truep(t9)){ t10=((C_word*)t0)[4]; t11=C_u_i_car(t10); t12=C_i_assq(t11,((C_word*)t0)[13]); t13=C_i_cdr(t12); t14=C_fixnum_shift_left(t13,C_fix(1)); t15=t14; t16=C_fixnum_plus(t15,C_fix(1)); t17=t16; t18=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21163,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[12],a[4]=t17,a[5]=t15,a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[4],tmp=(C_word)a,a+=11,tmp); t19=((C_word*)t0)[4]; t20=C_u_i_cdr(t19); /* irregex-core.scm:2608: lp */ t21=((C_word*)((C_word*)t0)[5])[1]; f_20486(t21,t18,t20,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t10=C_i_caar(((C_word*)t0)[4]); t11=C_i_assq(t10,lf[246]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21230,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word)li270),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:2619: g3947 */ t13=t12; f_21230(t13,((C_word*)t0)[3],t11);} else{ t12=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}}}}}}} /* k20877 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_20879,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20886,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); /* irregex-core.scm:2514: lp */ t6=((C_word*)((C_word*)t0)[5])[1]; f_20486(t6,t3,t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* k20884 in k20877 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20886,2,av);} /* irregex-core.scm:2514: extend-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20560(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_20903,2,av);} a=C_alloc(17); t2=t1; if(C_truep(t2)){ t3=C_i_cdar(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20919,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2522: new-state-number */ t5=((C_word*)((C_word*)t0)[5])[1]; f_20489(t5,t4,t2);} else{ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20922,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t2,a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20976,a[2]=((C_word*)t0)[7],a[3]=t4,a[4]=((C_word*)t0)[8],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2525: scheme#cddar */ t6=*((C_word*)lf[390]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20917 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20919,2,av);} /* irregex-core.scm:2522: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20499(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k20920 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_20922,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20925,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20960,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:2530: scheme#cadar */ t5=*((C_word*)lf[389]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_20925(2,av2);}}} /* k20923 in k20920 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_20925,2,av);} a=C_alloc(10); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20931,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20941,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2535: new-state-number */ t5=((C_word*)((C_word*)t0)[6])[1]; f_20489(t5,t4,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20929 in k20923 in k20920 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_20931,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20934,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2537: nfa-add-epsilon! */ f_20336(t3,((C_word*)((C_word*)t0)[3])[1],t2,((C_word*)t0)[5],C_SCHEME_FALSE);} /* k20932 in k20929 in k20923 in k20920 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_20934,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20937,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2538: nfa-add-epsilon! */ f_20336(t2,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[3],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k20935 in k20932 in k20929 in k20923 in k20920 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20937,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k20939 in k20923 in k20920 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20941,2,av);} /* irregex-core.scm:2535: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20499(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k20950 in k20958 in k20920 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_20952,2,av);} /* irregex-core.scm:2530: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20486(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k20954 in k20958 in k20920 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20956,2,av);} /* irregex-core.scm:2531: new-state-number */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20489(t2,((C_word*)t0)[3],t1);} /* k20958 in k20920 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_20960,2,av);} a=C_alloc(14); t2=C_a_i_list1(&a,1,t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20956,a[2]=((C_word*)t0)[6],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2531: scheme#max */ t6=*((C_word*)lf[252]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k20966 in k20974 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_20968,2,av);} /* irregex-core.scm:2525: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20486(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k20974 in k20901 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_20976,2,av);} a=C_alloc(13); t2=( /* irregex-core.scm:2525: sre-alternate */ f_17983(C_a_i(&a,3),t1) ); t3=C_a_i_list1(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20968,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2526: new-state-number */ t6=((C_word*)((C_word*)t0)[6])[1]; f_20489(t6,t5,((C_word*)t0)[5]);} /* k20989 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_20991,2,av);} a=C_alloc(12); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20997,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_i_cdar(((C_word*)t0)[4]); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21011,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[6],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2545: new-state-number */ t7=((C_word*)((C_word*)t0)[7])[1]; f_20489(t7,t6,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20995 in k20989 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_20997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_20997,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21000,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ /* irregex-core.scm:2547: nfa-add-epsilon! */ f_20336(t3,((C_word*)((C_word*)t0)[3])[1],t2,((C_word*)t0)[4],C_SCHEME_FALSE);} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k20998 in k20995 in k20989 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21000,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21009 in k20989 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21011,2,av);} /* irregex-core.scm:2545: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20486(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k21023 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_21025,2,av);} a=C_alloc(14); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21031,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21065,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2554: new-state-number */ t5=((C_word*)((C_word*)t0)[7])[1]; f_20489(t5,t4,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21029 in k21023 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21031,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21034,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=C_i_cdar(((C_word*)t0)[4]); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21061,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[6],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2557: new-state-number */ t7=((C_word*)((C_word*)t0)[7])[1]; f_20489(t7,t6,t2);} /* k21032 in k21029 in k21023 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_21034,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21037,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21040,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t5=C_i_caar(((C_word*)t0)[5]); t6=C_eqp(lf[127],t5); if(C_truep(t6)){ /* irregex-core.scm:2562: nfa-add-epsilon! */ f_20336(t4,((C_word*)((C_word*)t0)[3])[1],t2,((C_word*)t0)[4],C_SCHEME_FALSE);} else{ /* irregex-core.scm:2564: nfa-add-epsilon! */ f_20336(t3,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t2,C_SCHEME_FALSE);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k21035 in k21032 in k21029 in k21023 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21037,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21038 in k21032 in k21029 in k21023 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21040,2,av);} /* irregex-core.scm:2564: nfa-add-epsilon! */ f_20336(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);} /* k21059 in k21029 in k21023 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21061,2,av);} /* irregex-core.scm:2557: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20486(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k21063 in k21023 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21065,2,av);} /* irregex-core.scm:2553: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20486(t2,((C_word*)t0)[3],lf[391],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k21083 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_21085,2,av);} a=C_alloc(16); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21091,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21133,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2597: new-state-number */ t5=((C_word*)((C_word*)t0)[7])[1]; f_20489(t5,t4,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21089 in k21083 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_21091,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21094,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_i_cdar(((C_word*)t0)[9]); t5=( /* irregex-core.scm:2598: sre-sequence */ f_17960(C_a_i(&a,3),t4) ); t6=C_a_i_list1(&a,1,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21121,a[2]=((C_word*)t0)[10],a[3]=t3,a[4]=t7,a[5]=((C_word*)t0)[11],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2599: new-state-number */ t9=((C_word*)((C_word*)t0)[8])[1]; f_20489(t9,t8,t2);} /* k21092 in k21089 in k21083 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21094,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21097,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21113,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2600: new-state-number */ t5=((C_word*)((C_word*)t0)[9])[1]; f_20489(t5,t4,t2);} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_21097(2,av2);}}} /* k21095 in k21092 in k21089 in k21083 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_21097,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21100,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21103,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2602: nfa-add-epsilon! */ f_20336(t4,((C_word*)((C_word*)t0)[3])[1],t2,((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k21098 in k21095 in k21092 in k21089 in k21083 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21100,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21101 in k21095 in k21092 in k21089 in k21083 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21103,2,av);} /* irregex-core.scm:2603: nfa-add-epsilon! */ f_20336(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k21111 in k21092 in k21089 in k21083 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21113,2,av);} /* irregex-core.scm:2600: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20499(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k21119 in k21089 in k21083 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21121,2,av);} /* irregex-core.scm:2598: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20486(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k21131 in k21083 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21133,2,av);} /* irregex-core.scm:2597: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20499(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k21161 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_21163,2,av);} a=C_alloc(16); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21169,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21211,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2610: new-state-number */ t5=((C_word*)((C_word*)t0)[7])[1]; f_20489(t5,t4,t2);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21167 in k21161 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_21169,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21172,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21207,a[2]=((C_word*)t0)[9],a[3]=t3,a[4]=((C_word*)t0)[10],a[5]=t2,a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2611: scheme#cddar */ t5=*((C_word*)lf[390]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k21170 in k21167 in k21161 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21172,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21175,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21191,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2613: new-state-number */ t5=((C_word*)((C_word*)t0)[9])[1]; f_20489(t5,t4,t2);} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_21175(2,av2);}}} /* k21173 in k21170 in k21167 in k21161 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_21175,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21178,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21181,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2615: nfa-add-epsilon! */ f_20336(t4,((C_word*)((C_word*)t0)[3])[1],t2,((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k21176 in k21173 in k21170 in k21167 in k21161 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21178,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k21179 in k21173 in k21170 in k21167 in k21161 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21181,2,av);} /* irregex-core.scm:2616: nfa-add-epsilon! */ f_20336(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} /* k21189 in k21170 in k21167 in k21161 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21191,2,av);} /* irregex-core.scm:2613: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20499(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* k21197 in k21205 in k21167 in k21161 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21199,2,av);} /* irregex-core.scm:2611: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20486(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k21205 in k21167 in k21161 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21207,2,av);} a=C_alloc(13); t2=( /* irregex-core.scm:2611: sre-sequence */ f_17960(C_a_i(&a,3),t1) ); t3=C_a_i_list1(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21199,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2612: new-state-number */ t6=((C_word*)((C_word*)t0)[6])[1]; f_20489(t6,t5,((C_word*)t0)[5]);} /* k21209 in k21161 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21211,2,av);} /* irregex-core.scm:2610: add-state! */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20499(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* g3947 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21230(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_21230,3,t0,t1,t2);} a=C_alloc(8); t3=C_i_cdr(t2); if(C_truep(C_i_closurep(t3))){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21248,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t5=t2; t6=C_u_i_cdr(t5); t7=C_i_cdar(((C_word*)t0)[2]);{ C_word av2[4]; av2[0]=0; av2[1]=t4; av2[2]=t6; av2[3]=t7; C_apply(4,av2);}} else{ t4=C_i_caar(((C_word*)t0)[2]); /* irregex-core.scm:2625: chicken.base#error */ t5=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=lf[392]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k21246 in g3947 in k20874 in k20827 in k20622 in lp in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_21248,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,t1,t3); /* irregex-core.scm:2623: lp */ t5=((C_word*)((C_word*)t0)[3])[1]; f_20486(t5,((C_word*)t0)[4],t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* k21374 in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21376,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21382,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_fixnum_plus(t1,C_fix(1)); t4=C_fixnum_times(C_fix(4),t3); /* irregex-core.scm:2631: scheme#make-vector */ t5=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k21380 in k21374 in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_21382,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21385,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_block_size(t2); t5=C_a_i_fixnum_difference(&a,2,t4,C_fix(1)); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21393,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t7,a[5]=((C_word)li272),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_21393(t9,t3,t5);} /* k21383 in k21380 in k21374 in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21385,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* doloop3957 in k21380 in k21374 in k20482 in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21393(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_21393,3,t0,t1,t2);} a=C_alloc(5); t3=t2; if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_vector_ref(((C_word*)((C_word*)t0)[2])[1],t2); t5=C_i_vector_set(((C_word*)t0)[3],t2,t4); t6=t2; t7=C_a_i_fixnum_difference(&a,2,t6,C_fix(1)); t9=t1; t10=t7; t1=t9; t2=t10; goto loop;}} /* lp in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21432(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_21432,5,t0,t1,t2,t3,t4);} a=C_alloc(7); t5=C_i_pairp(t2); if(C_truep(C_i_not(t5))){ t6=C_fixnum_shift_left(t3,C_fix(1)); t7=C_i_vector_set(((C_word*)((C_word*)t0)[2])[1],C_fix(0),t6); t8=C_i_vector_set(((C_word*)((C_word*)t0)[2])[1],C_fix(1),C_fix(-1)); t9=t4; t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t6=C_i_car(t2); if(C_truep(C_i_pairp(t6))){ t7=C_i_caar(t2); t8=C_eqp(t7,lf[243]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21467,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); if(C_truep(t8)){ t10=t9; f_21467(t10,t8);} else{ t10=C_eqp(t7,lf[108]); if(C_truep(t10)){ t11=t9; f_21467(t11,t10);} else{ t11=C_eqp(t7,lf[119]); t12=t9; f_21467(t12,(C_truep(t11)?t11:C_eqp(t7,lf[120])));}}} else{ t7=t2; t8=C_u_i_cdr(t7); /* irregex-core.scm:2433: lp */ t13=t1; t14=t8; t15=t3; t16=t4; t1=t13; t2=t14; t3=t15; t4=t16; goto loop;}}} /* k21465 in lp in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21467(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_21467,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21474,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=C_u_i_cdr(t4); t6=((C_word*)t0)[3]; t7=C_u_i_cdr(t6); /* irregex-core.scm:2430: scheme#append */ t8=*((C_word*)lf[73]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t2; av2[2]=t5; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21500,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); /* irregex-core.scm:2432: scheme#append */ t7=*((C_word*)lf[73]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t2; av2[2]=t4; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k21472 in k21465 in lp in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_21474,2,av);} a=C_alloc(6); t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[2]); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[4]); /* irregex-core.scm:2430: lp */ t7=((C_word*)((C_word*)t0)[5])[1]; f_21432(t7,((C_word*)t0)[6],t1,t2,t6);} /* k21498 in k21465 in lp in k20479 in chicken.irregex#sre->nfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21500,2,av);} /* irregex-core.scm:2432: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21432(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} /* chicken.irregex#make-mst in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21596(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_21596,2,t1,t2);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21600,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; t5=C_i_vector_length(t4); t6=C_a_i_fixnum_quotient_checked(&a,2,t5,C_fix(4)); t7=C_s_a_u_i_integer_plus(&a,2,t6,C_fix(3)); /* irregex-core.scm:2702: scheme#make-vector */ t8=*((C_word*)lf[4]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k21598 in chicken.irregex#make-mst in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_21600,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21613,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_i_vector_ref(t4,C_fix(0)); /* irregex-core.scm:2703: scheme#make-vector */ t6=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k21611 in k21598 in chicken.irregex#make-mst in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21613,2,av);} t2=C_i_vector_set(((C_word*)t0)[2],C_fix(0),t1); t3=C_i_vector_set(((C_word*)t0)[2],C_fix(1),C_fix(0)); t4=C_i_vector_set(((C_word*)t0)[2],C_fix(2),C_fix(0)); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.irregex#mst-copy in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21625(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_21625,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21629,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2710: vector-copy */ f_7430(t3,t2);} /* k21627 in chicken.irregex#mst-copy in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_21629,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21636,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_vector_ref(((C_word*)t0)[3],C_fix(0)); /* irregex-core.scm:2711: vector-copy */ f_7430(t3,t4);} /* k21634 in k21627 in chicken.irregex#mst-copy in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21636,2,av);} t2=C_i_vector_set(((C_word*)t0)[2],C_fix(0),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.irregex#nfa-state->mst in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21642(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_21642,4,t1,t2,t3,t4);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21646,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2715: make-mst */ f_21596(t5,t2);} /* k21644 in chicken.irregex#nfa-state->mst in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_21646,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21649,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2716: mst-add! */ f_21651(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k21647 in k21644 in chicken.irregex#nfa-state->mst in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21649,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.irregex#mst-add! in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21651(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_21651,5,t1,t2,t3,t4,t5);} a=C_alloc(10); t6=t3; t7=C_i_vector_ref(t6,C_fix(2)); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21658,a[2]=t3,a[3]=t4,a[4]=t5,a[5]=t9,a[6]=t2,a[7]=t1,tmp=(C_word)a,a+=8,tmp); t11=t3; t12=t4; t13=C_fixnum_plus(t12,C_fix(3)); t14=C_i_vector_ref(t11,t13); if(C_truep(C_i_not(t14))){ t15=C_fixnum_plus(((C_word*)t9)[1],t4); t16=C_set_block_item(t9,0,t15); t17=t3; t18=C_i_vector_ref(t17,C_fix(1)); t19=C_fixnum_plus(t18,C_fix(1)); t20=t3; t21=t10; f_21658(t21,C_i_vector_set(t20,C_fix(1),t19));} else{ t15=t10; f_21658(t15,C_SCHEME_UNDEFINED);}} /* k21656 in chicken.irregex#mst-add! in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21658(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ C_save_and_reclaim_args((void *)trf_21658,2,t0,t1);} a=C_alloc(18); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=C_fixnum_plus(t3,C_fix(3)); t6=C_i_vector_set(t2,t5,t4); t7=((C_word*)t0)[2]; t8=C_i_vector_ref(t7,C_fix(0)); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21665,a[2]=t9,a[3]=((C_word*)t0)[5],a[4]=((C_word)li278),tmp=(C_word)a,a+=5,tmp); t11=((C_word*)t0)[4]; t12=C_i_check_list_2(t11,lf[305]); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21700,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21713,a[2]=t10,a[3]=t15,a[4]=((C_word)li279),tmp=(C_word)a,a+=5,tmp)); t17=((C_word*)t15)[1]; f_21713(t17,t13,t11);} /* g4015 in k21656 in chicken.irregex#mst-add! in k18685 in k7651 in k7426 in k7423 */ static C_word C_fcall f_21665(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check;{} t2=C_i_car(t1); t3=t1; t4=C_u_i_cdr(t3); t5=C_i_vector_ref(((C_word*)t0)[2],t2); t6=C_i_memq(t4,t5); if(C_truep(C_i_not(t6))){ t7=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],t2); t8=C_mutate(((C_word *)((C_word*)t0)[3])+1,t7); t9=C_a_i_cons(&a,2,t4,t5); return(C_i_vector_set(((C_word*)t0)[2],t2,t9));} else{ t7=C_SCHEME_UNDEFINED; return(t7);}} /* k21698 in k21656 in chicken.irregex#mst-add! in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,1)))){ C_save_and_reclaim((void *)f_21700,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=C_i_vector_length(t2); t4=C_a_i_fixnum_quotient_checked(&a,2,t3,C_fix(4)); t5=C_s_a_i_modulo(&a,2,((C_word*)((C_word*)t0)[3])[1],t4); t6=((C_word*)t0)[4]; t7=((C_word*)t0)[5]; t8=t6;{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_vector_set(t7,C_fix(2),t5); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* for-each-loop4014 in k21656 in chicken.irregex#mst-add! in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21713(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_21713,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* irregex-core.scm:2727: g4015 */ f_21665(C_a_i(&a,3),((C_word*)t0)[2],t3) ); t5=C_slot(t2,C_fix(1)); t7=t1; t8=t5; t1=t7; t2=t8; goto loop;} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k21812 in k22706 in g4270 in lp2 in lp in k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_21814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_21814,2,av);} a=C_alloc(14); t2=t1; t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21820,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); t7=C_fixnum_plus(((C_word*)t0)[3],C_fix(3)); t8=C_i_vector_ref(((C_word*)t0)[2],t7); if(C_truep(C_i_not(t8))){ t9=C_fixnum_plus(((C_word*)t5)[1],((C_word*)t0)[3]); t10=C_set_block_item(t5,0,t9); t11=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); t12=C_fixnum_plus(t11,C_fix(1)); t13=t6; f_21820(t13,C_i_vector_set(((C_word*)t0)[2],C_fix(1),t12));} else{ t9=t6; f_21820(t9,C_SCHEME_UNDEFINED);}} /* k21818 in k21812 in k22706 in g4270 in lp2 in lp in k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21820(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_21820,2,t0,t1);} a=C_alloc(10); t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(3)); t3=C_i_vector_set(((C_word*)t0)[3],t2,((C_word*)t0)[4]); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21826,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t5=C_i_memq(((C_word*)t0)[8],((C_word*)t0)[9]); if(C_truep(C_i_not(t5))){ t6=C_fixnum_plus(((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[10]); t7=C_mutate(((C_word *)((C_word*)t0)[6])+1,t6); t8=C_a_i_cons(&a,2,((C_word*)t0)[8],((C_word*)t0)[9]); t9=t4; f_21826(t9,C_i_vector_set(((C_word*)t0)[11],((C_word*)t0)[10],t8));} else{ t6=t4; f_21826(t6,C_SCHEME_UNDEFINED);}} /* k21824 in k21818 in k21812 in k22706 in g4270 in lp2 in lp in k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21826(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,1)))){ C_save_and_reclaim_args((void *)trf_21826,2,t0,t1);} a=C_alloc(10); t2=C_i_vector_length(((C_word*)t0)[2]); t3=C_a_i_fixnum_quotient_checked(&a,2,t2,C_fix(4)); t4=C_s_a_i_modulo(&a,2,((C_word*)((C_word*)t0)[3])[1],t3); t5=C_i_vector_set(((C_word*)t0)[4],C_fix(2),t4); t6=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t6; av2[1]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* lp in k22706 in g4270 in lp2 in lp in k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21879(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_21879,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_caar(t2); t5=C_eqp(t4,((C_word*)t0)[2]); if(C_truep(t5)){ t6=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t7=t2; t8=C_u_i_cdr(t7); t9=C_a_i_cons(&a,2,t6,t8); /* irregex-core.scm:2758: scheme#append */ t10=*((C_word*)lf[73]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t1; av2[2]=t3; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t6=t2; t7=C_u_i_cdr(t6); t8=t2; t9=C_u_i_car(t8); t10=C_a_i_cons(&a,2,t9,t3); /* irregex-core.scm:2759: lp */ t12=t1; t13=t7; t14=t10; t1=t12; t2=t13; t3=t14; goto loop;}}} /* lp in lp in k22199 in lp2 in k22167 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_21950(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_21950,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_vector_ref(((C_word*)t0)[3],t2); t6=C_i_not(t5); t7=C_i_vector_ref(((C_word*)t0)[4],t2); t8=C_i_not(t7); t9=C_eqp(t6,t8); if(C_truep(t9)){ t10=t2; t11=C_a_i_fixnum_plus(&a,2,t10,C_fix(1)); /* irregex-core.scm:2780: lp */ t13=t1; t14=t11; t1=t13; t2=t14; goto loop;} else{ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}} /* chicken.irregex#mst-fold in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22003(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_22003,4,t1,t2,t3,t4);} a=C_alloc(9); t5=C_i_vector_length(t2); t6=t5; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22012,a[2]=t6,a[3]=t2,a[4]=t8,a[5]=t3,a[6]=((C_word)li281),tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_22012(t10,t1,C_fix(3),t4);} /* lp in chicken.irregex#mst-fold in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22012(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_22012,4,t0,t1,t2,t3);} a=C_alloc(15); t4=t2; t5=C_eqp(t4,((C_word*)t0)[2]); if(C_truep(t5)){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_i_vector_ref(((C_word*)t0)[3],t2); t7=t2; t8=C_a_i_fixnum_plus(&a,2,t7,C_fix(1)); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22032,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp); if(C_truep(t6)){ t10=t2; t11=C_a_i_fixnum_difference(&a,2,t10,C_fix(3)); /* irregex-core.scm:2789: kons */ t12=((C_word*)t0)[5];{ C_word av2[5]; av2[0]=t12; av2[1]=t9; av2[2]=t11; av2[3]=t6; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} else{ t10=t3; /* irregex-core.scm:2789: lp */ t13=t1; t14=t8; t15=t10; t1=t13; t2=t14; t3=t15; goto loop;}}} /* k22030 in lp in chicken.irregex#mst-fold in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22032,2,av);} /* irregex-core.scm:2789: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_22012(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* doloop4115 in g4270 in lp2 in lp in k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static C_word C_fcall f_22061(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} t2=C_i_memq(t1,((C_word*)t0)[2]); if(C_truep(C_i_not(t2))){ t3=t1; return(t3);} else{ t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22085(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_22085,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22089,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t5=t3; t6=t4; f_22089(t6,C_u_i_car(t5));} else{ t5=t4; f_22089(t5,C_SCHEME_FALSE);}} /* k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22089(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_22089,2,t0,t1);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22092,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[2]; t5=C_i_vector_length(t4); t6=C_a_i_fixnum_quotient_checked(&a,2,t5,C_fix(4)); t7=C_s_a_u_i_integer_minus(&a,2,t6,C_fix(1)); /* irregex-core.scm:2838: nfa-state->mst */ f_21642(t3,((C_word*)t0)[2],t7,C_SCHEME_END_OF_LIST);} /* k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_22092,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22095,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2839: nfa-epsilon-closure */ f_22770(t3,((C_word*)t0)[2],t2);} /* k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_22095,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22098,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2842: tag-set-commands-for-closure */ f_22785(t3,((C_word*)t0)[2],((C_word*)t0)[5],t2,C_SCHEME_END_OF_LIST);} /* k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22098,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22101,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:2843: make-mst */ f_21596(t3,((C_word*)t0)[3]);} /* k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(36,c,5)))){ C_save_and_reclaim((void *)f_22101,2,av);} a=C_alloc(36); t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,C_SCHEME_FALSE,t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3); t5=C_a_i_list(&a,1,t4); t6=C_a_i_list3(&a,3,t1,C_SCHEME_FALSE,t5); t7=t6; t8=C_a_i_list1(&a,1,((C_word*)t0)[3]); t9=C_a_i_list1(&a,1,t7); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22117,a[2]=t7,a[3]=((C_word*)t0)[4],a[4]=t11,a[5]=((C_word*)t0)[5],a[6]=((C_word)li295),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_22117(t13,((C_word*)t0)[6],t8,t9,C_fix(0));} /* lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22117(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_22117,5,t0,t1,t2,t3,t4);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t5=C_u_i_cdr(((C_word*)t0)[2]); t6=((C_word*)t0)[3]; t7=C_i_vector_ref(t6,C_fix(1)); t8=C_fixnum_plus(t7,C_fix(1)); t9=C_i_setslot(t5,C_fix(0),t8); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22134,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2854: ##sys#fast-reverse */ t11=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22150,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[5])){ t6=t4; t7=t5; f_22150(t7,C_fixnum_greaterp(t6,((C_word*)t0)[5]));} else{ t6=t5; f_22150(t6,C_SCHEME_FALSE);}}} /* k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_22134,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=t1; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22296,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22418,a[2]=t6,a[3]=((C_word)li286),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_22418(t8,t4,C_fix(0),t3,C_SCHEME_END_OF_LIST);} /* k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22150(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,5)))){ C_save_and_reclaim_args((void *)trf_22150,2,t0,t1);} a=C_alloc(13); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_car(((C_word*)t0)[3]); if(C_truep(C_i_assoc(t2,((C_word*)t0)[4]))){ t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* irregex-core.scm:2858: lp */ t5=((C_word*)((C_word*)t0)[5])[1]; f_22117(t5,((C_word*)t0)[2],t4,((C_word*)t0)[4],((C_word*)t0)[6]);} else{ t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22169,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); t6=((C_word*)t0)[7]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22472,a[2]=t6,a[3]=((C_word)li294),tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:2919: mst-fold */ f_22003(t5,t4,t7,C_SCHEME_END_OF_LIST);}}} /* k22167 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_22169,2,av);} a=C_alloc(11); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22173,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t5,a[7]=((C_word*)t0)[7],a[8]=((C_word)li291),tmp=(C_word)a,a+=9,tmp)); t7=((C_word*)t5)[1]; f_22173(t7,((C_word*)t0)[8],t1,t3,C_SCHEME_END_OF_LIST);} /* lp2 in k22167 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22173(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_22173,5,t0,t1,t2,t3,t4);} a=C_alloc(12); if(C_truep(C_i_nullp(t2))){ t5=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); t6=C_a_i_list3(&a,3,((C_word*)t0)[2],t5,t4); t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[3]); t8=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* irregex-core.scm:2866: lp */ t9=((C_word*)((C_word*)t0)[5])[1]; f_22117(t9,t1,t3,t7,t8);} else{ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22201,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); t6=C_i_cdar(t2); /* irregex-core.scm:2869: nfa-epsilon-closure */ f_22770(t5,((C_word*)t0)[7],t6);}} /* k22199 in lp2 in k22167 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_22201,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22204,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=t3; t5=((C_word*)t0)[7]; t6=t2; t7=((C_word*)t0)[8]; t8=C_i_vector_ref(t6,C_fix(2)); t9=C_fixnum_times(t8,C_fix(4)); t10=C_fixnum_plus(t9,C_fix(2)); t11=C_i_vector_ref(t5,t10); t12=C_i_assoc(t6,t11); t13=(C_truep(t12)?C_i_cdr(t12):C_SCHEME_FALSE); if(C_truep(t13)){ t14=t4;{ C_word *av2=av; av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23103,a[2]=t6,a[3]=t5,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t15=t6; t16=C_i_vector_ref(t5,C_fix(0)); t17=t16; t18=C_i_vector_ref(t15,C_fix(0)); t19=t18; t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22952,a[2]=t21,a[3]=t17,a[4]=t19,a[5]=t15,a[6]=((C_word)li290),tmp=(C_word)a,a+=7,tmp)); t23=((C_word*)t21)[1]; f_22952(t23,t14,t7);}} /* k22202 in k22199 in lp2 in k22167 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_22204,2,av);} a=C_alloc(10); t2=t1; t3=(C_truep(t2)?C_i_cdr(t2):C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22210,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); t6=C_i_cdar(((C_word*)t0)[3]); /* irregex-core.scm:2875: tag-set-commands-for-closure */ f_22785(t5,((C_word*)t0)[8],t6,((C_word*)t0)[2],t4);} /* k22208 in k22202 in k22199 in lp2 in k22167 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_22210,2,av);} a=C_alloc(15); t2=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[2]):((C_word*)t0)[3]); t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); t5=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[5]:C_a_i_cons(&a,2,t2,((C_word*)t0)[5])); t6=C_i_caar(((C_word*)t0)[4]); t7=C_a_i_cons(&a,2,((C_word*)t0)[6],t1); t8=C_a_i_cons(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t2,t8); t10=C_a_i_cons(&a,2,t9,((C_word*)t0)[7]); /* irregex-core.scm:2878: lp2 */ t11=((C_word*)((C_word*)t0)[8])[1]; f_22173(t11,((C_word*)t0)[9],t4,t5,t10);} /* k22294 in k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22296,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22299,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_length(((C_word*)t0)[3]); /* irregex-core.scm:2896: scheme#make-vector */ t5=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k22297 in k22294 in k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_22299,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22304,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li285),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_22304(t6,((C_word*)t0)[3],C_fix(0),((C_word*)t0)[4]);} /* doloop4172 in k22297 in k22294 in k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22304(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_22304,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22314,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:2900: scheme#cadar */ t5=*((C_word*)lf[389]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k22312 in doloop4172 in k22297 in k22294 in k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_22314,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22317,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:2901: scheme#caddar */ t4=*((C_word*)lf[399]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k22315 in k22312 in doloop4172 in k22297 in k22294 in k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_22317,2,av);} a=C_alloc(26); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22337,a[2]=((C_word*)t0)[2],a[3]=((C_word)li283),tmp=(C_word)a,a+=4,tmp); t7=C_i_check_list_2(t1,lf[211]); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22378,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22380,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li284),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_22380(t12,t8,t1);} /* g4186 in k22315 in k22312 in doloop4172 in k22297 in k22294 in k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22337(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_22337,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22345,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_cadr(t2))){ t4=t2; t5=C_u_i_cdr(t4); t6=C_u_i_car(t5); t7=C_i_vector_length(t6); t8=C_eqp(t7,C_fix(1)); if(C_truep(t8)){ t9=C_i_vector_ref(t6,C_fix(0)); t10=C_i_car(t9); t11=C_i_vector_ref(t6,C_fix(0)); t12=C_i_cdr(t11); if(C_truep(C_i_char_equalp(t10,t12))){ t13=C_i_vector_ref(t6,C_fix(0)); t14=t3; f_22345(t14,C_i_car(t13));} else{ t13=t3; f_22345(t13,t6);}} else{ t9=t3; f_22345(t9,t6);}} else{ t4=t3; f_22345(t4,C_SCHEME_FALSE);}} /* k22343 in g4186 in k22315 in k22312 in doloop4172 in k22297 in k22294 in k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22345(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,1)))){ C_save_and_reclaim_args((void *)trf_22345,2,t0,t1);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_i_assoc(t3,((C_word*)t0)[3]); t5=C_i_cdr(t4); t6=C_i_cddr(((C_word*)t0)[2]); t7=C_a_i_cons(&a,2,t5,t6); t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_cons(&a,2,t1,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k22376 in k22315 in k22312 in doloop4172 in k22297 in k22294 in k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_22378,2,av);} a=C_alloc(8); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_i_vector_set(((C_word*)t0)[3],((C_word*)t0)[4],t2); t4=((C_word*)t0)[4]; t5=C_a_i_fixnum_plus(&a,2,t4,C_fix(1)); t6=((C_word*)t0)[5]; t7=C_u_i_cdr(t6); t8=((C_word*)((C_word*)t0)[6])[1]; f_22304(t8,((C_word*)t0)[7],t5,t7);} /* map-loop4180 in k22315 in k22312 in doloop4172 in k22297 in k22294 in k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22380(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_22380,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22405,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:2905: g4186 */ t5=((C_word*)t0)[4]; f_22337(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k22403 in map-loop4180 in k22315 in k22312 in doloop4172 in k22297 in k22294 in k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_22405,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_22380(t6,((C_word*)t0)[5],t5);} /* lp in k22132 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22418(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_22418,5,t0,t1,t2,t3,t4);} a=C_alloc(6); if(C_truep(C_i_nullp(t3))){ t5=t4; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_fixnum_plus(t2,C_fix(1)); t6=C_i_cdr(t3); t7=C_i_caar(t3); t8=C_a_i_cons(&a,2,t7,t2); t9=C_a_i_cons(&a,2,t8,t4); /* irregex-core.scm:2894: lp */ t11=t1; t12=t5; t13=t6; t14=t9; t1=t11; t2=t12; t3=t13; t4=t14; goto loop;}} /* k22455 in lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22457,2,av);} t2=C_i_vector_length(t1); t3=C_eqp(t2,C_fix(0)); t4=C_i_not(t3); t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=(C_truep(t4)?t1:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_22472,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22476,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t6=C_eqp(t2,C_fix(0)); if(C_truep(t6)){ t7=t5; f_22476(t7,C_SCHEME_END_OF_LIST);} else{ t7=C_fixnum_times(t2,C_fix(4)); t8=t5; f_22476(t8,C_i_vector_ref(((C_word*)t0)[2],t7));}} /* k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22476(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,6)))){ C_save_and_reclaim_args((void *)trf_22476,2,t0,t1);} a=C_alloc(8); if(C_truep(C_i_nullp(t1))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_i_car(t1); t3=C_u_i_cdr(t1); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22493,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t5,a[5]=((C_word)li293),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_22493(t7,((C_word*)t0)[3],((C_word*)t0)[2],t2,t3,C_SCHEME_END_OF_LIST);}} /* lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22493(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,5)))){ C_save_and_reclaim_args((void *)trf_22493,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(13); if(C_truep(C_i_nullp(t2))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22511,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:2933: nfa-state->mst */ f_21642(t6,((C_word*)t0)[2],t4,((C_word*)t0)[3]);} else{ t6=C_i_caar(t2); if(C_truep(C_i_equalp(t3,t6))){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22520,a[2]=t1,a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t8=C_i_cdar(t2); /* irregex-core.scm:2937: mst-add! */ f_21651(t7,((C_word*)t0)[2],t8,t4,((C_word*)t0)[3]);} else{ t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22530,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=t5,a[8]=t3,a[9]=t1,tmp=(C_word)a,a+=10,tmp); t8=C_i_caar(t2); t9=t7; t10=t3; t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22457,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2917: cset-intersection */ t12=lf[403];{ C_word av2[4]; av2[0]=t12; av2[1]=t11; av2[2]=t10; av2[3]=t8; f_27194(4,av2);}}}} /* k22509 in lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_22511,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k22518 in lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22520,2,av);} /* irregex-core.scm:2938: scheme#append */ t2=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k22528 in lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_22530,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22534,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word)li292),tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:2926: g4235 */ t3=t2; f_22534(t3,((C_word*)t0)[9],t1);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[7]); /* irregex-core.scm:2961: lp */ t7=((C_word*)((C_word*)t0)[3])[1]; f_22493(t7,((C_word*)t0)[9],t3,((C_word*)t0)[8],((C_word*)t0)[4],t6);}} /* g4235 in k22528 in lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22534(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_22534,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22538,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); t4=C_i_caar(((C_word*)t0)[2]); /* irregex-core.scm:2941: cset-difference */ f_26998(t3,((C_word*)t0)[8],t4);} /* k22536 in g4235 in k22528 in lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_22538,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22541,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=C_i_caar(((C_word*)t0)[2]); /* irregex-core.scm:2942: cset-difference */ f_26998(t3,t4,((C_word*)t0)[10]);} /* k22539 in k22536 in g4235 in k22528 in lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_22541,2,av);} a=C_alloc(13); t2=t1; t3=C_i_cdar(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22547,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t2,a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp); t6=C_i_vector_length(t2); t7=C_eqp(t6,C_fix(0)); if(C_truep(C_i_not(t7))){ /* irregex-core.scm:2946: mst-copy */ f_21625(t5,t4);} else{ t8=t5;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_22547(2,av2);}}} /* k22545 in k22539 in k22536 in g4235 in k22528 in lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_22547,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22550,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(t1)){ t3=C_a_i_cons(&a,2,((C_word*)t0)[11],t1); t4=t2; f_22550(t4,C_a_i_cons(&a,2,t3,((C_word*)t0)[12]));} else{ t3=t2; f_22550(t3,((C_word*)t0)[12]);}} /* k22548 in k22545 in k22539 in k22536 in g4235 in k22528 in lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22550(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){ C_save_and_reclaim_args((void *)trf_22550,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22553,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:2950: mst-add! */ f_21651(t3,((C_word*)t0)[9],((C_word*)t0)[4],((C_word*)t0)[8],((C_word*)t0)[10]);} /* k22551 in k22548 in k22545 in k22539 in k22536 in g4235 in k22528 in lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 in ... */ static void C_ccall f_22553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_22553,2,av);} a=C_alloc(7); t2=C_i_vector_length(((C_word*)t0)[2]); t3=C_eqp(t2,C_fix(0)); if(C_truep(t3)){ t4=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22570,a[2]=((C_word*)t0)[5],a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=((C_word*)t0)[6]; t8=C_u_i_cdr(t7); /* irregex-core.scm:2957: scheme#append */ t9=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t6; av2[2]=t8; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t4=((C_word*)t0)[6]; t5=C_u_i_cdr(t4); t6=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[7]); /* irregex-core.scm:2958: lp */ t8=((C_word*)((C_word*)t0)[8])[1]; f_22493(t8,((C_word*)t0)[5],t5,((C_word*)t0)[2],((C_word*)t0)[9],t7);}} /* k22568 in k22551 in k22548 in k22545 in k22539 in k22536 in g4235 in k22528 in lp in k22474 in a22471 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in ... */ static void C_ccall f_22570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_22570,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22642(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_22642,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22646,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=C_i_vector_length(((C_word*)t0)[2]); t5=C_a_i_fixnum_quotient_checked(&a,2,t4,C_fix(4)); /* irregex-core.scm:2972: scheme#make-vector */ t6=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_22646,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22650,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:2973: mst-copy */ f_21625(t3,((C_word*)t0)[5]);} /* k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_22650,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22652,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li301),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_22652(t5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* lp in k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22652(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_22652,5,t0,t1,t2,t3,t4);} a=C_alloc(12); if(C_truep(C_i_nullp(t2))){ t5=t4; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_i_caar(t2); t6=t5; t7=t2; t8=C_u_i_car(t7); t9=C_u_i_cdr(t8); t10=( /* irregex-core.scm:2978: nfa-get-epsilons */ f_20302(((C_word*)t0)[2],t6) ); t11=t2; t12=C_u_i_cdr(t11); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22675,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t4,a[5]=t6,a[6]=t14,a[7]=((C_word*)t0)[2],a[8]=t9,a[9]=((C_word)li300),tmp=(C_word)a,a+=10,tmp)); t16=((C_word*)t14)[1]; f_22675(t16,t1,t10,t12);}} /* lp2 in lp in k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22675(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,4)))){ C_save_and_reclaim_args((void *)trf_22675,4,t0,t1,t2,t3);} a=C_alloc(18); if(C_truep(C_i_nullp(t2))){ /* irregex-core.scm:2981: lp */ t4=((C_word*)((C_word*)t0)[2])[1]; f_22652(t4,t1,t3,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t4=C_i_caar(t2); t5=t4; t6=C_i_vector_ref(((C_word*)t0)[3],t5); if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],t6))){ t7=C_i_vector_set(((C_word*)t0)[3],t5,((C_word*)t0)[5]); t8=C_i_cdar(t2); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22704,a[2]=t2,a[3]=t5,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[8],a[9]=((C_word)li299),tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:2988: g4270 */ t10=t9; f_22704(t10,t1,t8);} else{ t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22732,a[2]=t2,a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp); t10=((C_word*)t0)[4]; t11=C_fixnum_plus(t5,C_fix(3)); t12=C_i_vector_ref(t10,t11); if(C_truep(C_i_not(t12))){ t13=C_i_vector_ref(t10,C_fix(2)); t14=C_fixnum_plus(t13,t5); t15=C_i_vector_length(((C_word*)t0)[7]); t16=C_a_i_fixnum_quotient_checked(&a,2,t15,C_fix(4)); t17=C_s_a_i_modulo(&a,2,t14,t16); t18=C_i_vector_set(t10,C_fix(2),t17); t19=C_i_vector_ref(t10,C_fix(1)); t20=C_fixnum_plus(t19,C_fix(1)); t21=C_i_vector_set(t10,C_fix(1),t20); t22=C_fixnum_plus(t5,C_fix(3)); t23=t9; f_22732(t23,C_i_vector_set(t10,t22,((C_word*)t0)[8]));} else{ t13=C_fixnum_plus(t5,C_fix(3)); t14=t9; f_22732(t14,C_i_vector_set(t10,t13,((C_word*)t0)[8]));}}} else{ t7=t2; t8=C_u_i_cdr(t7); /* irregex-core.scm:3000: lp2 */ t24=t1; t25=t8; t26=t3; t1=t24; t2=t25; t3=t26; goto loop;}}} /* g4270 in lp2 in lp in k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22704(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_22704,3,t0,t1,t2);} a=C_alloc(15); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t2,a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); t4=t2; t5=((C_word*)t0)[7]; t6=C_i_vector_ref(((C_word*)t0)[6],C_fix(1)); t7=C_i_vector_ref(t5,C_fix(0)); t8=C_i_vector_ref(t7,t4); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22061,a[2]=t9,a[3]=((C_word)li298),tmp=(C_word)a,a+=4,tmp); t11=( f_22061(t10,C_fix(0)) ); if(C_truep(C_fixnum_greaterp(t11,t6))){ t12=C_i_vector_set(((C_word*)t0)[6],C_fix(1),t11); t13=t3; f_22708(t13,t11);} else{ t12=t3; f_22708(t12,t11);}} /* k22706 in g4270 in lp2 in lp in k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22708(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,0,4)))){ C_save_and_reclaim_args((void *)trf_22708,2,t0,t1);} a=C_alloc(25); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22711,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=t2; t4=((C_word*)t0)[7]; t5=((C_word*)t0)[8]; t6=((C_word*)t0)[3]; t7=((C_word*)t0)[9]; t8=t1; t9=C_i_vector_ref(t5,C_fix(0)); t10=t9; t11=C_i_vector_ref(t10,t7); t12=t11; t13=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21814,a[2]=t5,a[3]=t6,a[4]=t4,a[5]=t3,a[6]=t8,a[7]=t12,a[8]=t7,a[9]=t10,tmp=(C_word)a,a+=10,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21879,a[2]=t7,a[3]=t8,a[4]=t15,a[5]=((C_word)li297),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_21879(t17,t13,((C_word*)t0)[10],C_SCHEME_END_OF_LIST);} /* k22709 in k22706 in g4270 in lp2 in lp in k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_22711,2,av);} a=C_alloc(6); t2=C_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[4]); /* irregex-core.scm:2995: lp2 */ t5=((C_word*)((C_word*)t0)[5])[1]; f_22675(t5,((C_word*)t0)[6],t2,t4);} /* k22730 in lp2 in lp in k22648 in k22644 in k22640 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22732(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_22732,2,t0,t1);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[5]); /* irregex-core.scm:2999: lp2 */ t6=((C_word*)((C_word*)t0)[6])[1]; f_22675(t6,((C_word*)t0)[7],t3,t5);} /* a22759 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_22760,5,av);} a=C_alloc(6); t5=C_a_i_cons(&a,2,t2,t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_cons(&a,2,t5,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22770(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,5)))){ C_save_and_reclaim_args((void *)trf_22770,3,t1,t2,t3);} a=C_alloc(13); t4=t2; t5=t3; t6=C_i_vector_ref(t5,C_fix(2)); t7=C_fixnum_times(t6,C_fix(4)); t8=C_fixnum_plus(t7,C_fix(3)); t9=C_i_vector_ref(t4,t8); t10=C_i_assoc(t5,t9); t11=(C_truep(t10)?C_i_cdr(t10):C_SCHEME_FALSE); if(C_truep(t11)){ t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22780,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t13=t12; t14=t2; t15=t3; t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22642,a[2]=t14,a[3]=t13,a[4]=t15,tmp=(C_word)a,a+=5,tmp); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22760,a[2]=((C_word)li302),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:2968: mst-fold */ f_22003(t16,t15,t17,C_SCHEME_END_OF_LIST);}} /* k22778 in chicken.irregex#nfa-epsilon-closure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_22780,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_i_vector_ref(t3,C_fix(2)); t5=C_fixnum_times(t4,C_fix(4)); t6=C_fixnum_plus(t5,C_fix(3)); t7=C_a_i_cons(&a,2,t3,t1); t8=C_i_vector_ref(t2,t6); t9=C_a_i_cons(&a,2,t7,t8); t10=C_i_vector_set(t2,t6,t9); t11=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t11; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* chicken.irregex#tag-set-commands-for-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22785(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_22785,5,t1,t2,t3,t4,t5);} a=C_alloc(10); t6=C_i_vector_ref(t2,C_fix(0)); t7=t6; t8=C_i_vector_ref(t4,C_fix(0)); t9=t8; t10=C_i_vector_ref(t3,C_fix(0)); t11=t10; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22800,a[2]=t7,a[3]=t9,a[4]=t11,a[5]=t13,a[6]=t5,a[7]=((C_word)li307),tmp=(C_word)a,a+=8,tmp)); t15=((C_word*)t13)[1]; f_22800(t15,t1,C_fix(0),C_SCHEME_END_OF_LIST);} /* lp in chicken.irregex#tag-set-commands-for-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22800(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_22800,4,t0,t1,t2,t3);} a=C_alloc(9); t4=t2; t5=C_eqp(t4,((C_word*)t0)[2]); if(C_truep(t5)){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_i_vector_ref(((C_word*)t0)[3],t2); t7=C_i_vector_ref(((C_word*)t0)[4],t2); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22820,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t9,a[5]=((C_word*)t0)[6],a[6]=((C_word)li306),tmp=(C_word)a,a+=7,tmp)); t11=((C_word*)t9)[1]; f_22820(t11,t1,t6,t7,t3);}} /* lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22820(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,0,3)))){ C_save_and_reclaim_args((void *)trf_22820,5,t0,t1,t2,t3,t4);} a=C_alloc(19); if(C_truep(C_i_nullp(t2))){ t5=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3020: lp */ t6=((C_word*)((C_word*)t0)[3])[1]; f_22800(t6,t1,t5,t4);} else{ t5=C_i_car(t2); t6=C_i_memq(t5,t3); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22843,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); if(C_truep(t6)){ t8=t7; f_22843(t8,t6);} else{ t8=C_i_nullp(((C_word*)t0)[5]); if(C_truep(C_i_not(t8))){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22875,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22908,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li305),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3027: any */ f_9158(t9,t10,((C_word*)t0)[5]);} else{ t9=t7; f_22843(t9,C_SCHEME_FALSE);}}}} /* k22841 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22843(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_22843,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:3037: lp2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_22820(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,((C_word*)t0)[7],t5); t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[6]); /* irregex-core.scm:3038: lp2 */ t8=((C_word*)((C_word*)t0)[3])[1]; f_22820(t8,((C_word*)t0)[4],t3,((C_word*)t0)[5],t7);}} /* k22873 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_22875,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22882,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22884,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li304),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3033: any */ f_9158(t2,t3,((C_word*)t0)[5]);} else{ t2=((C_word*)t0)[2]; f_22843(t2,C_SCHEME_FALSE);}} /* k22880 in k22873 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22882,2,av);} t2=((C_word*)t0)[2]; f_22843(t2,C_i_not(t1));} /* a22883 in k22873 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22884,3,av);} t3=C_i_vector_ref(t2,C_fix(0)); t4=((C_word*)t0)[2]; t5=C_eqp(t3,t4); if(C_truep(t5)){ t6=C_i_vector_ref(t2,C_fix(1)); t7=C_i_car(((C_word*)t0)[3]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_eqp(t6,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* a22907 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_22908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22908,3,av);} t3=C_i_vector_ref(t2,C_fix(0)); t4=((C_word*)t0)[2]; t5=C_eqp(t3,t4); if(C_truep(t5)){ t6=C_i_vector_ref(t2,C_fix(2)); t7=C_i_car(((C_word*)t0)[3]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_eqp(t6,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* lp in k22199 in lp2 in k22167 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22952(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_22952,3,t0,t1,t2);} a=C_alloc(16); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23087,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t4=C_i_caar(t2); t5=t4; t6=((C_word*)t0)[5]; t7=C_i_vector_ref(t5,C_fix(2)); t8=C_i_vector_ref(t6,C_fix(2)); t9=C_eqp(t7,t8); if(C_truep(t9)){ t10=C_i_vector_ref(t5,C_fix(1)); t11=C_i_vector_ref(t6,C_fix(1)); t12=C_eqp(t10,t11); if(C_truep(t12)){ t13=C_i_vector_length(t5); t14=t13; t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21950,a[2]=t14,a[3]=t5,a[4]=t6,a[5]=t16,a[6]=((C_word)li289),tmp=(C_word)a,a+=7,tmp)); t18=((C_word*)t16)[1]; f_21950(t18,t3,C_fix(3));} else{ t13=t3;{ C_word av2[2]; av2[0]=t13; av2[1]=C_SCHEME_FALSE; f_23087(2,av2);}}} else{ t10=t3;{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_FALSE; f_23087(2,av2);}}}} /* lp2 in k23085 in lp in k22199 in lp2 in k22167 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_22979(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){ C_save_and_reclaim_args((void *)trf_22979,5,t0,t1,t2,t3,t4);} a=C_alloc(11); t5=t3; t6=C_eqp(t5,((C_word*)t0)[2]); if(C_truep(t6)){ t7=C_i_caar(((C_word*)t0)[3]); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_cons(&a,2,t7,t4); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_i_vector_ref(((C_word*)t0)[4],t3); t8=C_i_vector_ref(t2,t3); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23006,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=t10,a[8]=((C_word)li287),tmp=(C_word)a,a+=9,tmp)); t12=((C_word*)t10)[1]; f_23006(t12,t1,t7,t8,t4);}} /* lp3 in lp2 in k23085 in lp in k22199 in lp2 in k22167 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_23006(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_23006,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ if(C_truep(C_i_nullp(t3))){ t5=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3065: lp2 */ t6=((C_word*)((C_word*)t0)[3])[1]; f_22979(t6,t1,((C_word*)t0)[4],t5,t4);} else{ t5=C_i_cdr(((C_word*)t0)[5]); /* irregex-core.scm:3066: lp */ t6=((C_word*)((C_word*)t0)[6])[1]; f_22952(t6,t1,t5);}} else{ if(C_truep(C_i_nullp(t3))){ t5=C_i_cdr(((C_word*)t0)[5]); /* irregex-core.scm:3067: lp */ t6=((C_word*)((C_word*)t0)[6])[1]; f_22952(t6,t1,t5);} else{ t5=C_i_cdr(t2); t6=C_i_cdr(t3); t7=t2; t8=C_u_i_car(t7); t9=t3; t10=C_u_i_car(t9); t11=C_eqp(t8,t10); if(C_truep(t11)){ t12=t4; /* irregex-core.scm:3068: lp3 */ t19=t1; t20=t5; t21=t6; t22=t12; t1=t19; t2=t20; t3=t21; t4=t22; goto loop;} else{ t12=t2; t13=C_u_i_car(t12); t14=t3; t15=C_u_i_car(t14); t16=C_a_i_vector3(&a,3,((C_word*)t0)[2],t13,t15); t17=C_a_i_cons(&a,2,t16,t4); /* irregex-core.scm:3068: lp3 */ t19=t1; t20=t5; t21=t6; t22=t17; t1=t19; t2=t20; t3=t21; t4=t22; goto loop;}}}} /* k23085 in lp in k22199 in lp2 in k22167 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_23087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_23087,2,av);} a=C_alloc(10); if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:3055: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_22952(t4,((C_word*)t0)[4],t3);} else{ t2=C_i_caar(((C_word*)t0)[2]); t3=C_i_vector_ref(t2,C_fix(0)); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22979,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=t5,a[6]=((C_word*)t0)[3],a[7]=((C_word)li288),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_22979(t7,((C_word*)t0)[4],t3,C_fix(0),C_SCHEME_END_OF_LIST);}} /* k23101 in k22199 in lp2 in k22167 in k22148 in lp in k22099 in k22096 in k22093 in k22090 in k22087 in chicken.irregex#nfa->dfa in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_23103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_23103,2,av);} a=C_alloc(6); t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); t3=C_fixnum_times(t2,C_fix(4)); t4=C_fixnum_plus(t3,C_fix(2)); t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t6=C_i_vector_ref(((C_word*)t0)[3],t4); t7=C_a_i_cons(&a,2,t5,t6); t8=C_i_vector_set(((C_word*)t0)[3],t4,t7); t9=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t9; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,10)))){ C_save_and_reclaim((void *)f_23113,2,av);} a=C_alloc(10); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_pairp(((C_word*)t0)[3]); t4=(C_truep(t3)?C_u_i_car(((C_word*)t0)[3]):C_fix(0)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23122,a[2]=((C_word)li119),tmp=(C_word)a,a+=3,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23162,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word)li186),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_23162(t9,((C_word*)t0)[4],((C_word*)t0)[5],C_fix(1),t4,t5);} /* a23121 in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23122,10,av);} t10=C_slot(t8,C_fix(1)); t11=C_i_car(t3); t12=C_i_vector_set(t10,C_fix(0),t11); t13=C_slot(t8,C_fix(1)); t14=t3; t15=C_u_i_cdr(t14); t16=C_i_vector_set(t13,C_fix(1),t15); t17=C_slot(t8,C_fix(1)); t18=C_i_vector_set(t17,C_fix(2),t4); t19=C_slot(t8,C_fix(1)); t20=C_i_vector_set(t19,C_fix(3),t6); t21=t8; t22=C_i_setslot(t21,C_fix(4),t9); t23=t1;{ C_word *av2=av; av2[0]=t23; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} /* lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_23162(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,10)))){ C_save_and_reclaim_args((void *)trf_23162,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(18); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23165,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word)li120),tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(t2))){ t7=t2; t8=C_u_i_car(t7); if(C_truep(C_i_stringp(t8))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23188,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t10=t2; t11=C_u_i_car(t10); t12=t4; t13=C_fixnum_and(t12,C_fix(2)); t14=C_eqp(C_fix(2),t13); /* irregex-core.scm:3108: sre->cset */ f_26215(t9,t11,C_a_i_list(&a,1,t14));} else{ t9=t2; t10=C_u_i_car(t9); t11=C_eqp(t10,lf[179]); t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23204,a[2]=t1,a[3]=t5,a[4]=t4,a[5]=t2,a[6]=t10,a[7]=t6,a[8]=t3,a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp); if(C_truep(t11)){ t13=t12; f_23204(t13,t11);} else{ t13=C_eqp(t10,lf[245]); if(C_truep(t13)){ t14=t12; f_23204(t14,t13);} else{ t14=C_eqp(t10,lf[232]); t15=t12; f_23204(t15,(C_truep(t14)?t14:C_eqp(t10,lf[52])));}}}} else{ if(C_truep(C_i_symbolp(t2))){ t7=t2; t8=C_eqp(t7,lf[124]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24997,a[2]=t5,a[3]=((C_word)li173),tmp=(C_word)a,a+=4,tmp); t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_eqp(t7,lf[125]); if(C_truep(t9)){ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25055,a[2]=t5,a[3]=((C_word)li174),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(t7,lf[186]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25147,a[2]=t5,a[3]=((C_word)li175),tmp=(C_word)a,a+=4,tmp); t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t11=C_eqp(t7,lf[195]); if(C_truep(t11)){ t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25177,a[2]=t5,a[3]=((C_word)li176),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=C_eqp(t7,lf[183]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25235,a[2]=t5,a[3]=((C_word)li177),tmp=(C_word)a,a+=4,tmp); t14=t1;{ C_word av2[2]; av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t13=C_eqp(t7,lf[187]); if(C_truep(t13)){ t14=t1;{ C_word av2[2]; av2[0]=t14; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25342,a[2]=t5,a[3]=((C_word)li178),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t14=C_eqp(t7,lf[196]); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25375,a[2]=t5,a[3]=((C_word)li179),tmp=(C_word)a,a+=4,tmp); t16=t1;{ C_word av2[2]; av2[0]=t16; av2[1]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t15=C_eqp(t7,lf[184]); if(C_truep(t15)){ t16=t1;{ C_word av2[2]; av2[0]=t16; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25440,a[2]=t5,a[3]=((C_word)li180),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ t16=C_eqp(t7,lf[185]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25529,a[2]=t5,a[3]=((C_word)li181),tmp=(C_word)a,a+=4,tmp); t18=t1;{ C_word av2[2]; av2[0]=t18; av2[1]=t17; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ t17=C_eqp(t7,lf[110]); if(C_truep(t17)){ t18=t1;{ C_word av2[2]; av2[0]=t18; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ t18=C_i_assq(t2,lf[246]); if(C_truep(t18)){ t19=C_i_cdr(t18); /* irregex-core.scm:3548: rec */ t20=t6; f_23165(t20,t1,t19);} else{ /* irregex-core.scm:3549: chicken.base#error */ t19=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t19; av2[1]=t1; av2[2]=lf[247]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t19+1)))(4,av2);}}}}}}}}}}}}} else{ if(C_truep(C_charp(t2))){ t7=t4; t8=C_fixnum_and(t7,C_fix(2)); t9=C_eqp(C_fix(2),t8); t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=(C_truep(t9)?(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25651,a[2]=t5,a[3]=t2,a[4]=((C_word)li183),tmp=(C_word)a,a+=5,tmp):(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25750,a[2]=t2,a[3]=t5,a[4]=((C_word)li185),tmp=(C_word)a,a+=5,tmp)); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ if(C_truep(C_i_stringp(t2))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25865,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* ##sys#string->list */ t8=*((C_word*)lf[105]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* irregex-core.scm:3602: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[249]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}}}} /* rec in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_23165(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_23165,3,t0,t1,t2);} /* irregex-core.scm:3103: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23162(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k23186 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23188,2,av);} /* irregex-core.scm:3107: sre-cset->procedure */ f_25891(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_23204(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(39,0,10)))){ C_save_and_reclaim_args((void *)trf_23204,2,t0,t1);} a=C_alloc(39); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23211,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=C_fixnum_and(t3,C_fix(2)); t5=C_eqp(C_fix(2),t4); /* irregex-core.scm:3113: sre->cset */ f_26215(t2,((C_word*)t0)[5],C_a_i_list(&a,1,t5));} else{ t2=C_eqp(((C_word*)t0)[6],lf[103]); if(C_truep(t2)){ t3=((C_word*)t0)[5]; t4=C_u_i_cdr(t3); t5=C_i_length(t4); switch(t5){ case C_fix(0): t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23231,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp); t7=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);} case C_fix(1): t6=C_i_cadr(((C_word*)t0)[5]); /* irregex-core.scm:3118: rec */ t7=((C_word*)t0)[7]; f_23165(t7,((C_word*)t0)[2],t6); default: t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23251,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); t7=C_i_cadr(((C_word*)t0)[5]); /* irregex-core.scm:3120: rec */ t8=((C_word*)t0)[7]; f_23165(t8,t6,t7);}} else{ t3=C_eqp(((C_word*)t0)[6],lf[223]); if(C_truep(t3)){ t4=((C_word*)t0)[5]; t5=C_u_i_cdr(t4); t6=( /* irregex-core.scm:3130: sre-sequence */ f_17960(C_a_i(&a,3),t5) ); t7=((C_word*)t0)[4]; t8=C_fixnum_not(C_fix(2)); t9=C_fixnum_and(t7,t8); /* irregex-core.scm:3130: lp */ t10=((C_word*)((C_word*)t0)[9])[1]; f_23162(t10,((C_word*)t0)[2],t6,((C_word*)t0)[8],t9,((C_word*)t0)[3]);} else{ t4=C_eqp(((C_word*)t0)[6],lf[224]); if(C_truep(t4)){ t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); t7=( /* irregex-core.scm:3135: sre-sequence */ f_17960(C_a_i(&a,3),t6) ); t8=((C_word*)t0)[4]; t9=C_fixnum_or(t8,C_fix(2)); /* irregex-core.scm:3135: lp */ t10=((C_word*)((C_word*)t0)[9])[1]; f_23162(t10,((C_word*)t0)[2],t7,((C_word*)t0)[8],t9,((C_word*)t0)[3]);} else{ t5=C_eqp(((C_word*)t0)[6],lf[156]); if(C_truep(t5)){ t6=((C_word*)t0)[5]; t7=C_u_i_cdr(t6); t8=( /* irregex-core.scm:3140: sre-sequence */ f_17960(C_a_i(&a,3),t7) ); t9=((C_word*)t0)[4]; t10=C_fixnum_or(t9,C_fix(32)); /* irregex-core.scm:3140: lp */ t11=((C_word*)((C_word*)t0)[9])[1]; f_23162(t11,((C_word*)t0)[2],t8,((C_word*)t0)[8],t10,((C_word*)t0)[3]);} else{ t6=C_eqp(((C_word*)t0)[6],lf[157]); if(C_truep(t6)){ t7=((C_word*)t0)[5]; t8=C_u_i_cdr(t7); t9=( /* irregex-core.scm:3142: sre-sequence */ f_17960(C_a_i(&a,3),t8) ); t10=((C_word*)t0)[4]; t11=C_fixnum_not(C_fix(32)); t12=C_fixnum_and(t10,t11); /* irregex-core.scm:3142: lp */ t13=((C_word*)((C_word*)t0)[9])[1]; f_23162(t13,((C_word*)t0)[2],t9,((C_word*)t0)[8],t12,((C_word*)t0)[3]);} else{ t7=C_eqp(((C_word*)t0)[6],lf[115]); t8=(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],lf[225])); if(C_truep(t8)){ t9=((C_word*)t0)[5]; t10=C_u_i_cdr(t9); t11=C_i_length(t10); switch(t11){ case C_fix(0): t12=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t12; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);} case C_fix(1): t12=C_i_cadr(((C_word*)t0)[5]); /* irregex-core.scm:3146: rec */ t13=((C_word*)t0)[7]; f_23165(t13,((C_word*)t0)[2],t12); default: t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23405,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t13=C_i_cddr(((C_word*)t0)[5]); t14=( /* irregex-core.scm:3148: sre-sequence */ f_17960(C_a_i(&a,3),t13) ); t15=t14; t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23424,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=t12,a[5]=t15,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); t17=C_i_cadr(((C_word*)t0)[5]); /* irregex-core.scm:3149: sre-count-submatches */ f_16751(t16,t17);}} else{ t9=C_eqp(((C_word*)t0)[6],lf[131]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t11=((C_word*)t0)[5]; t12=C_u_i_cdr(t11); t13=( /* irregex-core.scm:3154: sre-sequence */ f_17960(C_a_i(&a,3),t12) ); /* irregex-core.scm:3154: rec */ t14=((C_word*)t0)[7]; f_23165(t14,t10,t13);} else{ t10=C_eqp(((C_word*)t0)[6],lf[132]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23473,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t12=((C_word*)t0)[5]; t13=C_u_i_cdr(t12); t14=( /* irregex-core.scm:3159: sre-sequence */ f_17960(C_a_i(&a,3),t13) ); /* irregex-core.scm:3159: rec */ t15=((C_word*)t0)[7]; f_23165(t15,t11,t14);} else{ t11=C_eqp(((C_word*)t0)[6],lf[127]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23502,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t13=((C_word*)t0)[5]; t14=C_u_i_cdr(t13); t15=( /* irregex-core.scm:3165: sre-sequence */ f_17960(C_a_i(&a,3),t14) ); /* irregex-core.scm:3165: sre-empty? */ t16=lf[139];{ C_word av2[3]; av2[0]=t16; av2[1]=t12; av2[2]=t15; f_16171(3,av2);}} else{ t12=C_eqp(((C_word*)t0)[6],lf[128]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23547,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t14=((C_word*)t0)[5]; t15=C_u_i_cdr(t14); t16=( /* irregex-core.scm:3175: sre-sequence */ f_17960(C_a_i(&a,3),t15) ); /* irregex-core.scm:3175: sre-empty? */ t17=lf[139];{ C_word av2[3]; av2[0]=t17; av2[1]=t13; av2[2]=t16; f_16171(3,av2);}} else{ t13=C_eqp(((C_word*)t0)[6],lf[129]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23601,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t15=((C_word*)t0)[5]; t16=C_u_i_cdr(t15); t17=( /* irregex-core.scm:3194: sre-sequence */ f_17960(C_a_i(&a,3),t16) ); /* irregex-core.scm:3194: sre-empty? */ t18=lf[139];{ C_word av2[3]; av2[0]=t18; av2[1]=t14; av2[2]=t17; f_16171(3,av2);}} else{ t14=C_eqp(((C_word*)t0)[6],lf[134]); if(C_truep(t14)){ t15=C_i_cadr(((C_word*)t0)[5]); t16=((C_word*)t0)[5]; t17=C_u_i_cdr(t16); t18=C_u_i_car(t17); t19=((C_word*)t0)[5]; t20=C_u_i_cdr(t19); t21=C_u_i_cdr(t20); t22=C_a_i_cons(&a,2,t18,t21); t23=C_a_i_cons(&a,2,t15,t22); t24=C_a_i_cons(&a,2,lf[133],t23); /* irregex-core.scm:3209: rec */ t25=((C_word*)t0)[7]; f_23165(t25,((C_word*)t0)[2],t24);} else{ t15=C_eqp(((C_word*)t0)[6],lf[135]); if(C_truep(t15)){ t16=C_i_cadr(((C_word*)t0)[5]); t17=((C_word*)t0)[5]; t18=C_u_i_cdr(t17); t19=C_u_i_cdr(t18); t20=C_a_i_cons(&a,2,C_SCHEME_FALSE,t19); t21=C_a_i_cons(&a,2,t16,t20); t22=C_a_i_cons(&a,2,lf[133],t21); /* irregex-core.scm:3211: rec */ t23=((C_word*)t0)[7]; f_23165(t23,((C_word*)t0)[2],t22);} else{ t16=C_eqp(((C_word*)t0)[6],lf[133]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23703,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t18=C_i_cadr(((C_word*)t0)[5]); if(C_truep(C_i_numberp(t18))){ t19=C_i_caddr(((C_word*)t0)[5]); if(C_truep(C_i_numberp(t19))){ t20=((C_word*)t0)[5]; t21=C_u_i_cdr(t20); t22=C_u_i_car(t21); t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); t25=C_u_i_cdr(t24); t26=C_u_i_car(t25); t27=t17; f_23703(t27,C_fixnum_greaterp(t22,t26));} else{ t20=t17; f_23703(t20,C_SCHEME_FALSE);}} else{ t19=t17; f_23703(t19,C_SCHEME_FALSE);}} else{ t17=C_eqp(((C_word*)t0)[6],lf[130]); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23855,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t19=C_i_cadr(((C_word*)t0)[5]); if(C_truep(C_i_numberp(t19))){ t20=C_i_caddr(((C_word*)t0)[5]); if(C_truep(C_i_numberp(t20))){ t21=((C_word*)t0)[5]; t22=C_u_i_cdr(t21); t23=C_u_i_car(t22); t24=((C_word*)t0)[5]; t25=C_u_i_cdr(t24); t26=C_u_i_cdr(t25); t27=C_u_i_car(t26); t28=t18; f_23855(t28,C_fixnum_greaterp(t23,t27));} else{ t21=t18; f_23855(t21,C_SCHEME_FALSE);}} else{ t20=t18; f_23855(t20,C_SCHEME_FALSE);}} else{ t18=C_eqp(((C_word*)t0)[6],lf[229]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24026,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t20=((C_word*)t0)[5]; t21=C_u_i_cdr(t20); t22=C_a_i_list(&a,1,lf[184]); /* irregex-core.scm:3282: ##sys#append */ t23=*((C_word*)lf[118]+1);{ C_word av2[4]; av2[0]=t23; av2[1]=t19; av2[2]=t21; av2[3]=t22; ((C_proc)(void*)(*((C_word*)t23+1)))(4,av2);}} else{ t19=C_eqp(((C_word*)t0)[6],lf[230]); if(C_truep(t19)){ t20=C_a_i_list(&a,3,lf[103],lf[181],lf[231]); t21=((C_word*)t0)[5]; t22=C_u_i_cdr(t21); t23=C_a_i_cons(&a,2,lf[103],t22); t24=C_a_i_list(&a,3,lf[232],t20,t23); t25=C_a_i_list(&a,2,lf[129],t24); t26=C_a_i_list(&a,4,lf[115],lf[183],t25,lf[184]); /* irregex-core.scm:3284: rec */ t27=((C_word*)t0)[7]; f_23165(t27,((C_word*)t0)[2],t26);} else{ t20=C_eqp(((C_word*)t0)[6],lf[233]); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24076,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t22=C_i_cadr(((C_word*)t0)[5]); /* irregex-core.scm:3287: string->sre */ t23=*((C_word*)lf[102]+1);{ C_word av2[3]; av2[0]=t23; av2[1]=t21; av2[2]=t22; ((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}} else{ t21=C_eqp(((C_word*)t0)[6],lf[111]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24089,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t23=((C_word*)t0)[5]; t24=C_u_i_cdr(t23); t25=( /* irregex-core.scm:3290: sre-sequence */ f_17960(C_a_i(&a,3),t24) ); t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24112,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3290: lp */ t27=((C_word*)((C_word*)t0)[9])[1]; f_23162(t27,t22,t25,((C_word*)t0)[8],((C_word*)t0)[4],t26);} else{ t22=C_eqp(((C_word*)t0)[6],lf[112]); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24124,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t24=((C_word*)t0)[5]; t25=C_u_i_cdr(t24); t26=( /* irregex-core.scm:3300: sre-sequence */ f_17960(C_a_i(&a,3),t25) ); t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24147,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3300: lp */ t28=((C_word*)((C_word*)t0)[9])[1]; f_23162(t28,t23,t26,((C_word*)t0)[8],((C_word*)t0)[4],t27);} else{ t23=C_eqp(((C_word*)t0)[6],lf[113]); t24=(C_truep(t23)?t23:C_eqp(((C_word*)t0)[6],lf[114])); if(C_truep(t24)){ t25=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24162,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t26=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24234,a[2]=((C_word*)t0)[9],a[3]=t25,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t27=((C_word*)t0)[5]; t28=C_u_i_cdr(t27); /* irregex-core.scm:3311: scheme#append */ t29=*((C_word*)lf[73]+1);{ C_word av2[4]; av2[0]=t29; av2[1]=t26; av2[2]=t28; av2[3]=lf[236]; ((C_proc)(void*)(*((C_word*)t29+1)))(4,av2);}} else{ t25=C_eqp(((C_word*)t0)[6],lf[237]); if(C_truep(t25)){ t26=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24245,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t27=((C_word*)t0)[5]; t28=C_u_i_cdr(t27); t29=( /* irregex-core.scm:3327: sre-sequence */ f_17960(C_a_i(&a,3),t28) ); t30=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24268,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3327: lp */ t31=((C_word*)((C_word*)t0)[9])[1]; f_23162(t31,t26,t29,((C_word*)t0)[8],((C_word*)t0)[4],t30);} else{ t26=C_eqp(((C_word*)t0)[6],lf[109]); if(C_truep(t26)){ t27=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24280,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); t28=C_i_cadr(((C_word*)t0)[5]); /* irregex-core.scm:3337: sre-count-submatches */ f_16751(t27,t28);} else{ t27=C_eqp(((C_word*)t0)[6],lf[192]); t28=(C_truep(t27)?t27:C_eqp(((C_word*)t0)[6],lf[191])); if(C_truep(t28)){ t29=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24436,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t30=C_i_cadr(((C_word*)t0)[5]); if(C_truep(C_i_numberp(t30))){ t31=((C_word*)t0)[5]; t32=C_u_i_cdr(t31); t33=t29;{ C_word av2[2]; av2[0]=t33; av2[1]=C_u_i_car(t32); f_24436(2,av2);}} else{ t31=((C_word*)t0)[5]; t32=C_u_i_cdr(t31); t33=C_u_i_car(t32); t34=C_i_assq(t33,((C_word*)((C_word*)t0)[10])[1]); if(C_truep(t34)){ t35=t29;{ C_word av2[2]; av2[0]=t35; av2[1]=C_i_cdr(t34); f_24436(2,av2);}} else{ t35=((C_word*)t0)[5]; t36=C_u_i_cdr(t35); t37=C_u_i_car(t36); /* irregex-core.scm:3369: chicken.base#error */ t38=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t38; av2[1]=t29; av2[2]=lf[241]; av2[3]=t37; ((C_proc)(void*)(*((C_word*)t38+1)))(4,av2);}}}} else{ t29=C_eqp(((C_word*)t0)[6],lf[242]); if(C_truep(t29)){ t30=C_i_cdddr(((C_word*)t0)[5]); t31=( /* irregex-core.scm:3409: sre-sequence */ f_17960(C_a_i(&a,3),t30) ); t32=C_i_cadr(((C_word*)t0)[5]); t33=C_fixnum_plus(((C_word*)t0)[8],t32); /* irregex-core.scm:3409: lp */ t34=((C_word*)((C_word*)t0)[9])[1]; f_23162(t34,((C_word*)t0)[2],t31,t33,((C_word*)t0)[4],((C_word*)t0)[3]);} else{ t30=C_eqp(((C_word*)t0)[6],lf[243]); t31=(C_truep(t30)?t30:C_eqp(((C_word*)t0)[6],lf[108])); if(C_truep(t31)){ t32=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24653,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t33=((C_word*)t0)[5]; t34=C_u_i_cdr(t33); t35=( /* irregex-core.scm:3412: sre-sequence */ f_17960(C_a_i(&a,3),t34) ); t36=C_fixnum_plus(((C_word*)t0)[8],C_fix(1)); t37=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24762,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word)li172),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3412: lp */ t38=((C_word*)((C_word*)t0)[9])[1]; f_23162(t38,t32,t35,t36,((C_word*)t0)[4],t37);} else{ t32=C_eqp(((C_word*)t0)[6],lf[119]); t33=(C_truep(t32)?t32:C_eqp(((C_word*)t0)[6],lf[120])); if(C_truep(t33)){ t34=C_i_cddr(((C_word*)t0)[5]); t35=C_a_i_cons(&a,2,lf[108],t34); /* irregex-core.scm:3442: rec */ t36=((C_word*)t0)[7]; f_23165(t36,((C_word*)t0)[2],t35);} else{ /* irregex-core.scm:3444: chicken.base#error */ t34=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t34; av2[1]=((C_word*)t0)[2]; av2[2]=lf[244]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t34+1)))(4,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k23209 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23211,2,av);} /* irregex-core.scm:3112: sre-cset->procedure */ f_25891(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* f_23231 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23231,10,av);} /* irregex-core.scm:3117: fail */ t10=t9;{ C_word *av2=av; av2[0]=t10; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k23249 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_23251,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23254,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cddr(((C_word*)t0)[3]); t5=( /* irregex-core.scm:3121: sre-alternate */ f_17983(C_a_i(&a,3),t4) ); t6=t5; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23277,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=t6,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t8=C_i_cadr(((C_word*)t0)[3]); /* irregex-core.scm:3122: sre-count-submatches */ f_16751(t7,t8);} /* k23252 in k23249 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_23254,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23255,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li123),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_23255 in k23252 in k23249 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_23255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){ C_save_and_reclaim((void *)f_23255,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23261,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li122),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3126: first */ t11=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} /* a23260 */ static void C_ccall f_23261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23261,2,av);} /* irregex-core.scm:3128: rest */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k23275 in k23249 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_23277,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); /* irregex-core.scm:3121: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_23162(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k23403 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_23405,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* irregex-core.scm:3152: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_23162(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* k23422 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_23424,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); /* irregex-core.scm:3148: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_23162(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k23445 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_23447,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23448,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word)li125),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_23448 in k23445 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){ C_save_and_reclaim((void *)f_23448,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23454,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li124),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3156: body */ t11=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} /* a23453 */ static void C_ccall f_23454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23454,2,av);} /* irregex-core.scm:3157: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k23471 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_23473,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23474,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li127),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_23474 in k23471 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){ C_save_and_reclaim((void *)f_23474,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23480,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li126),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3161: next */ t11=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} /* a23479 */ static void C_ccall f_23480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23480,2,av);} /* irregex-core.scm:3162: body */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k23500 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_23502,2,av);} a=C_alloc(13); if(C_truep(t1)){ /* irregex-core.scm:3166: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[226]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23508,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=( /* irregex-core.scm:3168: sre-sequence */ f_17960(C_a_i(&a,3),t4) ); t6=C_a_i_list2(&a,2,lf[129],t5); /* irregex-core.scm:3168: rec */ t7=((C_word*)t0)[5]; f_23165(t7,t2,t6);}} /* k23506 in k23500 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_23508,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23509,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li129),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_23509 in k23506 in k23500 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_23509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){ C_save_and_reclaim((void *)f_23509,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23515,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li128),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3170: body */ t11=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} /* a23514 */ static void C_ccall f_23515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23515,2,av);} /* irregex-core.scm:3172: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k23545 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,10)))){ C_save_and_reclaim((void *)f_23547,2,av);} a=C_alloc(15); if(C_truep(t1)){ /* irregex-core.scm:3176: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[227]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23553,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); t7=( /* irregex-core.scm:3180: sre-sequence */ f_17960(C_a_i(&a,3),t6) ); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23571,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word)li133),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3180: lp */ t9=((C_word*)((C_word*)t0)[5])[1]; f_23162(t9,t4,t7,((C_word*)t0)[6],((C_word*)t0)[7],t8);}} /* k23551 in k23545 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_23553,2,av);} a=C_alloc(5); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word)li131),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_23555 in k23551 in k23545 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_23555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){ C_save_and_reclaim((void *)f_23555,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23561,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li130),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3189: next */ t11=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} /* a23560 */ static void C_ccall f_23561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23561,2,av);} /* irregex-core.scm:3191: body */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* a23570 in k23545 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){ C_save_and_reclaim((void *)f_23571,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23577,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li132),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3184: next */ t11=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} /* a23576 in a23570 in k23545 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_23577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23577,2,av);} /* irregex-core.scm:3186: body */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k23599 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,10)))){ C_save_and_reclaim((void *)f_23601,2,av);} a=C_alloc(14); if(C_truep(t1)){ /* irregex-core.scm:3195: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[228]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23607,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); t7=( /* irregex-core.scm:3199: sre-sequence */ f_17960(C_a_i(&a,3),t6) ); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23614,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word)li135),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3199: lp */ t9=((C_word*)((C_word*)t0)[5])[1]; f_23162(t9,t4,t7,((C_word*)t0)[6],((C_word*)t0)[7],t8);}} /* k23605 in k23599 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23607,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)((C_word*)t0)[2])[1]; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a23613 in k23599 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_23614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){ C_save_and_reclaim((void *)f_23614,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23620,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li134),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3203: body */ t11=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} /* a23619 in a23613 in k23599 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_23620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23620,2,av);} /* irregex-core.scm:3205: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k23701 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_23703(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_23703,2,t0,t1);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23706,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t1)){ t3=t2; f_23706(t3,t1);} else{ t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_u_i_car(t4); t6=C_i_not(t5); t7=t2; f_23706(t7,(C_truep(t6)?C_i_caddr(((C_word*)t0)[3]):C_SCHEME_FALSE));}} /* k23704 in k23701 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_23706(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,0,10)))){ C_save_and_reclaim_args((void *)trf_23706,2,t0,t1);} a=C_alloc(28); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23707,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t0)[3]; t11=C_u_i_cdr(t10); t12=C_u_i_car(t11); t13=C_i_caddr(((C_word*)t0)[3]); t14=((C_word*)t0)[3]; t15=C_u_i_cdr(t14); t16=C_u_i_cdr(t15); t17=C_u_i_cdr(t16); t18=( /* irregex-core.scm:3223: sre-sequence */ f_17960(C_a_i(&a,3),t17) ); t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23720,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t9,a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=t7,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li139),tmp=(C_word)a,a+=11,tmp); t20=C_set_block_item(t3,0,t12); t21=C_set_block_item(t5,0,t13); t22=C_set_block_item(t7,0,t18); t23=C_set_block_item(t9,0,t19); t24=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23774,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t9,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_zerop(((C_word*)t3)[1]))){ if(C_truep(((C_word*)t5)[1])){ t25=C_i_zerop(((C_word*)t5)[1]); t26=t24; f_23774(t26,t25);} else{ t25=t24; f_23774(t25,C_SCHEME_FALSE);}} else{ t25=t24; f_23774(t25,C_SCHEME_FALSE);}}} /* f_23707 in k23704 in k23701 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_23707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23707,10,av);} /* irregex-core.scm:3218: fail */ t10=t9;{ C_word *av2=av; av2[0]=t10; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* body4515 in k23704 in k23701 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_23720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,10)))){ C_save_and_reclaim((void *)f_23720,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23726,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li138),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3226: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_23162(t4,t1,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],((C_word*)t0)[9],t3);} /* a23725 in body4515 in k23704 in k23701 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in ... */ static void C_ccall f_23726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_23726,10,av);} a=C_alloc(15); t10=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_23733,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,a[12]=((C_word*)t0)[3],a[13]=((C_word*)t0)[4],a[14]=((C_word*)t0)[5],tmp=(C_word)a,a+=15,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ t11=((C_word*)t0)[3]; t12=t10; f_23733(t12,C_eqp(t11,((C_word*)((C_word*)t0)[6])[1]));} else{ t11=t10; f_23733(t11,C_SCHEME_FALSE);}} /* k23731 in a23725 in body4515 in k23704 in k23701 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in ... */ static void C_fcall f_23733(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,9)))){ C_save_and_reclaim_args((void *)trf_23733,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ /* irregex-core.scm:3231: next */ t2=((C_word*)t0)[2];{ C_word av2[10]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_23739,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[3],tmp=(C_word)a,a+=14,tmp); t3=C_fixnum_plus(C_fix(1),((C_word*)t0)[12]); /* irregex-core.scm:3232: body */ t4=((C_word*)((C_word*)t0)[14])[1];{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k23737 in k23731 in a23725 in body4515 in k23704 in k23701 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in ... */ static void C_ccall f_23739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,9)))){ C_save_and_reclaim((void *)f_23739,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_23744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word)li137),tmp=(C_word)a,a+=14,tmp); /* irregex-core.scm:3230: g4534 */ t3=t1;{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t3; av2[1]=((C_word*)t0)[13]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=((C_word*)t0)[9]; av2[7]=((C_word*)t0)[10]; av2[8]=((C_word*)t0)[11]; av2[9]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} /* a23743 in k23737 in k23731 in a23725 in body4515 in k23704 in k23701 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in ... */ static void C_ccall f_23744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23744,2,av);} t2=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)((C_word*)t0)[3])[1]))){ /* irregex-core.scm:3236: next */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=((C_word*)t0)[9]; av2[7]=((C_word*)t0)[10]; av2[8]=((C_word*)t0)[11]; av2[9]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} else{ /* irregex-core.scm:3237: fail */ t3=((C_word*)t0)[12];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k23772 in k23704 in k23701 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_fcall f_23774(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,10)))){ C_save_and_reclaim_args((void *)trf_23774,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23775,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word)li141),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* f_23775 in k23772 in k23704 in k23701 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in ... */ static void C_ccall f_23775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_23775,10,av);} a=C_alloc(13); t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_23779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,a[12]=t1,tmp=(C_word)a,a+=13,tmp); /* irregex-core.scm:3241: body */ t11=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2=av; av2[0]=t11; av2[1]=t10; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k23777 */ static void C_ccall f_23779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,9)))){ C_save_and_reclaim((void *)f_23779,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_23784,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word)li140),tmp=(C_word)a,a+=13,tmp); /* irregex-core.scm:3240: g4546 */ t3=t1;{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t3; av2[1]=((C_word*)t0)[12]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} /* a23783 in k23777 */ static void C_ccall f_23784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23784,2,av);} if(C_truep(C_i_zerop(((C_word*)((C_word*)t0)[2])[1]))){ /* irregex-core.scm:3244: next */ t2=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* irregex-core.scm:3245: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k23853 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_23855(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_23855,2,t0,t1);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23858,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(t1)){ t3=t2; f_23858(t3,t1);} else{ t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_u_i_car(t4); t6=C_i_not(t5); t7=t2; f_23858(t7,(C_truep(t6)?C_i_caddr(((C_word*)t0)[3]):C_SCHEME_FALSE));}} /* k23856 in k23853 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_23858(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,0,10)))){ C_save_and_reclaim_args((void *)trf_23858,2,t0,t1);} a=C_alloc(28); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23859,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t0)[3]; t11=C_u_i_cdr(t10); t12=C_u_i_car(t11); t13=C_i_caddr(((C_word*)t0)[3]); t14=((C_word*)t0)[3]; t15=C_u_i_cdr(t14); t16=C_u_i_cdr(t15); t17=C_u_i_cdr(t16); t18=( /* irregex-core.scm:3257: sre-sequence */ f_17960(C_a_i(&a,3),t17) ); t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23872,a[2]=t3,a[3]=t9,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t7,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li145),tmp=(C_word)a,a+=11,tmp); t20=C_set_block_item(t3,0,t12); t21=C_set_block_item(t5,0,t13); t22=C_set_block_item(t7,0,t18); t23=C_set_block_item(t9,0,t19); t24=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t9,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_zerop(((C_word*)t3)[1]))){ if(C_truep(((C_word*)t5)[1])){ t25=C_i_zerop(((C_word*)t5)[1]); t26=t24; f_23933(t26,t25);} else{ t25=t24; f_23933(t25,C_SCHEME_FALSE);}} else{ t25=t24; f_23933(t25,C_SCHEME_FALSE);}}} /* f_23859 in k23856 in k23853 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_23859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23859,10,av);} /* irregex-core.scm:3252: fail */ t10=t9;{ C_word *av2=av; av2[0]=t10; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* body4573 in k23856 in k23853 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_23872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,10)))){ C_save_and_reclaim((void *)f_23872,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23878,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li144),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3260: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_23162(t4,t1,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],((C_word*)t0)[9],t3);} /* a23877 in body4573 in k23856 in k23853 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in ... */ static void C_ccall f_23878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,9)))){ C_save_and_reclaim((void *)f_23878,10,av);} a=C_alloc(14); t10=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t10,((C_word*)((C_word*)t0)[3])[1]))){ t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23888,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,tmp=(C_word)a,a+=11,tmp); t12=C_fixnum_plus(C_fix(1),((C_word*)t0)[2]); /* irregex-core.scm:3265: body */ t13=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2=av; av2[0]=t13; av2[1]=t11; av2[2]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t11=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_23900,a[2]=t9,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=((C_word*)t0)[2],a[11]=((C_word*)t0)[4],a[12]=((C_word*)t0)[5],a[13]=((C_word)li143),tmp=(C_word)a,a+=14,tmp); /* irregex-core.scm:3267: next */ t12=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t12; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}}} /* k23886 in a23877 in body4573 in k23856 in k23853 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in ... */ static void C_ccall f_23888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23888,2,av);} /* irregex-core.scm:3264: g4591 */ t2=t1;{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* a23899 in a23877 in body4573 in k23856 in k23853 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in ... */ static void C_ccall f_23900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_23900,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_23907,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)((C_word*)t0)[12])[1])){ t3=((C_word*)t0)[10]; t4=t2; f_23907(t4,C_eqp(t3,((C_word*)((C_word*)t0)[12])[1]));} else{ t3=t2; f_23907(t3,C_SCHEME_FALSE);}} /* k23905 in a23899 in a23877 in body4573 in k23856 in k23853 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in ... */ static void C_fcall f_23907(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_23907,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ /* irregex-core.scm:3270: fail */ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23913,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,tmp); t3=C_fixnum_plus(C_fix(1),((C_word*)t0)[11]); /* irregex-core.scm:3271: body */ t4=((C_word*)((C_word*)t0)[12])[1];{ C_word av2[3]; av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k23911 in k23905 in a23899 in a23877 in body4573 in k23856 in k23853 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in ... */ static void C_ccall f_23913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23913,2,av);} /* irregex-core.scm:3269: g4594 */ t2=t1;{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k23931 in k23856 in k23853 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_fcall f_23933(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,10)))){ C_save_and_reclaim_args((void *)trf_23933,2,t0,t1);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23934,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word)li147),tmp=(C_word)a,a+=6,tmp)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_23934 in k23931 in k23856 in k23853 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in ... */ static void C_ccall f_23934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){ C_save_and_reclaim((void *)f_23934,10,av);} a=C_alloc(12); if(C_truep(C_i_zerop(((C_word*)((C_word*)t0)[2])[1]))){ t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23944,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=t8,a[9]=t9,a[10]=((C_word*)t0)[3],a[11]=((C_word)li146),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3277: next */ t11=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23954,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:3280: body */ t11=((C_word*)((C_word*)t0)[3])[1];{ C_word *av2=av; av2[0]=t11; av2[1]=t10; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}} /* a23943 */ static void C_ccall f_23944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_23944,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23948,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:3279: body */ t3=((C_word*)((C_word*)t0)[10])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k23946 in a23943 */ static void C_ccall f_23948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23948,2,av);} /* irregex-core.scm:3278: g4606 */ t2=t1;{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k23952 */ static void C_ccall f_23954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_23954,2,av);} /* irregex-core.scm:3276: g4608 */ t2=t1;{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k24024 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_24026,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[183],t1); t3=C_a_i_cons(&a,2,lf[115],t2); /* irregex-core.scm:3282: rec */ t4=((C_word*)t0)[2]; f_23165(t4,((C_word*)t0)[3],t3);} /* k24074 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24076,2,av);} /* irregex-core.scm:3287: rec */ t2=((C_word*)t0)[2]; f_23165(t2,((C_word*)t0)[3],t1);} /* k24087 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_24089,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24090,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word)li149),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_24090 in k24087 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,9)))){ C_save_and_reclaim((void *)f_24090,10,av);} a=C_alloc(15); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24097,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24105,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3295: check */ t12=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t12; av2[1]=t10; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}} /* k24095 */ static void C_ccall f_24097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_24097,2,av);} if(C_truep(t1)){ /* irregex-core.scm:3296: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* irregex-core.scm:3297: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a24104 */ static void C_ccall f_24105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24105,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a24111 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24112,10,av);} t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k24122 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_24124,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24125,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li152),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_24125 in k24122 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,9)))){ C_save_and_reclaim((void *)f_24125,10,av);} a=C_alloc(15); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24132,a[2]=t9,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t6,a[10]=t7,a[11]=t8,tmp=(C_word)a,a+=12,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24140,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3305: check */ t12=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t12; av2[1]=t10; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}} /* k24130 */ static void C_ccall f_24132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_24132,2,av);} if(C_truep(t1)){ /* irregex-core.scm:3306: fail */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* irregex-core.scm:3307: next */ t2=((C_word*)t0)[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=((C_word*)t0)[9]; av2[7]=((C_word*)t0)[10]; av2[8]=((C_word*)t0)[11]; av2[9]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}} /* a24139 */ static void C_ccall f_24140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24140,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a24146 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24147,10,av);} t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k24160 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,10)))){ C_save_and_reclaim((void *)f_24162,2,av);} a=C_alloc(6); t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24163,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word)li158),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_24163 in k24160 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,7)))){ C_save_and_reclaim((void *)f_24163,10,av);} a=C_alloc(25); t10=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24167,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=t4,a[8]=t5,a[9]=t6,a[10]=t7,a[11]=t8,a[12]=t9,a[13]=((C_word*)t0)[4],tmp=(C_word)a,a+=14,tmp); t11=t2; t12=t4; t13=t6; t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8626,a[2]=t12,a[3]=t11,a[4]=((C_word)li156),tmp=(C_word)a,a+=5,tmp); t15=C_i_vector_ref(t11,C_fix(1)); t16=C_i_vector_ref(t11,C_fix(2)); t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8653,a[2]=t12,a[3]=t13,a[4]=t11,a[5]=((C_word)li157),tmp=(C_word)a,a+=6,tmp); t18=C_i_vector_ref(t11,C_fix(4)); t19=C_i_vector_ref(t11,C_fix(5)); /* irregex-core.scm:390: make-irregex-chunker */ t20=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t20; av2[1]=t10; av2[2]=t14; av2[3]=t15; av2[4]=t16; av2[5]=t17; av2[6]=t18; av2[7]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(8,av2);}} /* k24165 */ static void C_ccall f_24167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_24167,2,av);} a=C_alloc(15); t2=t1; t3=C_i_vector_ref(t2,C_fix(1)); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_24173,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); t5=C_i_car(((C_word*)t0)[2]); /* irregex-core.scm:3316: g4676 */ t6=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k24171 in k24165 */ static void C_ccall f_24173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_24173,2,av);} a=C_alloc(17); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_i_vector_ref(((C_word*)t0)[3],C_fix(3)); t6=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_24180,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[3],a[15]=t2,a[16]=t4,tmp=(C_word)a,a+=17,tmp); t7=((C_word*)t0)[2]; t8=C_u_i_car(t7); /* irregex-core.scm:3316: g4680 */ t9=t5;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t6; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k24178 in k24171 in k24165 */ static void C_ccall f_24180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,9)))){ C_save_and_reclaim((void *)f_24180,2,av);} a=C_alloc(22); t2=C_i_car(((C_word*)t0)[2]); t3=C_eqp(t2,lf[113]); t4=(C_truep(t3)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24208,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp):*((C_word*)lf[234]+1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24189,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24199,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=((C_word*)t0)[6]; t9=C_u_i_car(t8); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24203,a[2]=((C_word)li155),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3321: check */ t11=((C_word*)t0)[13];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t11; av2[1]=t7; av2[2]=((C_word*)t0)[14]; av2[3]=((C_word*)t0)[6]; av2[4]=t9; av2[5]=((C_word*)t0)[15]; av2[6]=((C_word*)t0)[16]; av2[7]=t1; av2[8]=((C_word*)t0)[11]; av2[9]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} /* k24187 in k24178 in k24171 in k24165 */ static void C_ccall f_24189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_24189,2,av);} if(C_truep(t1)){ /* irregex-core.scm:3323: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* irregex-core.scm:3324: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k24197 in k24178 in k24171 in k24165 */ static void C_ccall f_24199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24199,2,av);} /* irregex-core.scm:3320: g4682 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a24202 in k24178 in k24171 in k24165 */ static void C_ccall f_24203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24203,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_24208 in k24178 in k24171 in k24165 */ static void C_ccall f_24208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24208,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a24224 in k24232 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24225,10,av);} t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k24232 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,10)))){ C_save_and_reclaim((void *)f_24234,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,lf[235],t1); t3=( /* irregex-core.scm:3310: sre-sequence */ f_17960(C_a_i(&a,3),t2) ); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24225,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3310: lp */ t5=((C_word*)((C_word*)t0)[2])[1]; f_23162(t5,((C_word*)t0)[3],t3,((C_word*)t0)[4],((C_word*)t0)[5],t4);} /* k24243 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_24245,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24246,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li161),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_24246 in k24243 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,9)))){ C_save_and_reclaim((void *)f_24246,10,av);} a=C_alloc(14); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24250,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t7,a[9]=t8,a[10]=t9,tmp=(C_word)a,a+=11,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24261,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3332: once */ t12=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t12; av2[1]=t10; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}} /* k24248 */ static void C_ccall f_24250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_24250,2,av);} if(C_truep(t1)){ /* irregex-core.scm:3334: next */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=t1; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* irregex-core.scm:3335: fail */ t2=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a24260 */ static void C_ccall f_24261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24261,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a24267 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24268,10,av);} t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k24278 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_24280,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24283,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_i_caddr(((C_word*)t0)[2]); t5=C_fixnum_plus(((C_word*)t0)[6],t2); /* irregex-core.scm:3338: lp */ t6=((C_word*)((C_word*)t0)[5])[1]; f_23162(t6,t3,t4,((C_word*)t0)[7],t5,((C_word*)t0)[8]);} /* k24281 in k24278 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,10)))){ C_save_and_reclaim((void *)f_24283,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24286,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=C_i_cdddr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t4))){ t5=C_i_cadddr(((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24399,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=t6,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); t10=C_u_i_cdr(t9); t11=C_u_i_car(t10); /* irregex-core.scm:3342: sre-count-submatches */ f_16751(t7,t11);} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24404,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp); f_24286(2,av2);}}} /* k24284 in k24281 in k24278 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_24286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_24286,2,av);} a=C_alloc(10); t2=t1; t3=C_i_cadr(((C_word*)t0)[2]); t4=C_i_numberp(t3); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24295,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(t4)){ t6=t5; f_24295(t6,t4);} else{ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); t9=t5; f_24295(t9,C_i_symbolp(t8));}} /* k24293 in k24284 in k24281 in k24278 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in ... */ static void C_fcall f_24295(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){ C_save_and_reclaim_args((void *)trf_24295,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24298,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[5]; t4=C_u_i_cdr(t3); t5=C_u_i_car(t4); if(C_truep(C_i_symbolp(t5))){ t6=((C_word*)t0)[5]; t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); t9=C_i_assq(t8,((C_word*)((C_word*)t0)[6])[1]); if(C_truep(t9)){ t10=t2;{ C_word av2[2]; av2[0]=t10; av2[1]=C_i_cdr(t9); f_24298(2,av2);}} else{ /* irregex-core.scm:3354: chicken.base#error */ t10=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t2; av2[2]=lf[238]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} else{ t6=t2;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_cadr(((C_word*)t0)[5]); f_24298(2,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24356,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[5]); /* irregex-core.scm:3361: lp */ t4=((C_word*)((C_word*)t0)[7])[1]; f_23162(t4,t2,t3,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[2]);}} /* k24296 in k24293 in k24284 in k24281 in k24278 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in ... */ static void C_ccall f_24298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,10)))){ C_save_and_reclaim((void *)f_24298,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24299,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li163),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_24299 in k24296 in k24293 in k24284 in k24281 in k24278 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in ... */ static void C_ccall f_24299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_24299,10,av);} t10=t8; t11=C_slot(t10,C_fix(1)); t12=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); t13=C_fixnum_plus(C_fix(2),t12); if(C_truep(C_slot(t11,t13))){ /* irregex-core.scm:3358: pass */ t14=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t14; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t9; ((C_proc)(void*)(*((C_word*)t14+1)))(10,av2);}} else{ /* irregex-core.scm:3359: fail */ t14=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t14; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t9; ((C_proc)(void*)(*((C_word*)t14+1)))(10,av2);}}} /* k24354 in k24293 in k24284 in k24281 in k24278 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in ... */ static void C_ccall f_24356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_24356,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24357,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li165),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_24357 in k24354 in k24293 in k24284 in k24281 in k24278 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in ... */ static void C_ccall f_24357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){ C_save_and_reclaim((void *)f_24357,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24363,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li164),tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3363: test */ t11=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} /* a24362 */ static void C_ccall f_24363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_24363,2,av);} /* irregex-core.scm:3364: fail */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} /* k24397 in k24281 in k24278 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_24399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_24399,2,av);} t2=C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[3]),t1); /* irregex-core.scm:3340: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_23162(t3,((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7],((C_word*)t0)[8]);} /* f_24404 in k24281 in k24278 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_24404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24404,10,av);} /* irregex-core.scm:3346: fail */ t10=t9;{ C_word *av2=av; av2[0]=t10; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k24434 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_24436,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24439,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_car(t4); t6=C_eqp(t5,lf[191]); if(C_truep(t6)){ t7=t3; f_24439(t7,(C_truep(t6)?*((C_word*)lf[239]+1):*((C_word*)lf[240]+1)));} else{ t7=((C_word*)t0)[5]; t8=C_fixnum_and(t7,C_fix(2)); t9=C_eqp(C_fix(2),t8); t10=t3; f_24439(t10,(C_truep(t9)?*((C_word*)lf[239]+1):*((C_word*)lf[240]+1)));}} /* k24437 in k24434 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_fcall f_24439(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,10)))){ C_save_and_reclaim_args((void *)trf_24439,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24440,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li168),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_24440 in k24437 in k24434 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 in ... */ static void C_ccall f_24440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_24440,10,av);} a=C_alloc(13); t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24444,a[2]=t9,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=t8,a[8]=((C_word*)t0)[3],a[9]=t4,a[10]=t5,a[11]=t6,a[12]=t7,tmp=(C_word)a,a+=13,tmp); /* irregex-core.scm:3375: irregex-match-substring */ t11=*((C_word*)lf[40]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; av2[2]=t8; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* k24442 */ static void C_ccall f_24444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,8)))){ C_save_and_reclaim((void *)f_24444,2,av);} a=C_alloc(13); t2=t1; if(C_truep(C_i_not(t2))){ /* irregex-core.scm:3377: fail */ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_string_length(t2); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24462,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[8],a[8]=t2,a[9]=t5,a[10]=((C_word)li167),tmp=(C_word)a,a+=11,tmp)); t7=((C_word*)t5)[1]; f_24462(t7,((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],C_fix(0),t3);}} /* lp in k24442 */ static void C_fcall f_24462(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ C_save_and_reclaim_args((void *)trf_24462,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(20); t8=C_fixnum_difference(t5,t4); t9=t7; if(C_truep(C_fixnum_less_or_equal_p(t9,t8))){ t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24475,a[2]=t4,a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=t2,a[9]=t3,a[10]=t5,a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[6],tmp=(C_word)a,a+=13,tmp); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24489,a[2]=((C_word*)t0)[7],a[3]=t10,a[4]=t4,a[5]=t7,a[6]=t3,tmp=(C_word)a,a+=7,tmp); t12=C_i_string_length(((C_word*)t0)[8]); /* irregex-core.scm:3388: scheme#substring */ t13=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t13; av2[1]=t11; av2[2]=((C_word*)t0)[8]; av2[3]=t6; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24507,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t5,a[5]=t4,a[6]=t7,a[7]=((C_word*)t0)[9],a[8]=t1,a[9]=((C_word*)t0)[6],a[10]=t2,tmp=(C_word)a,a+=11,tmp); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24562,a[2]=((C_word*)t0)[7],a[3]=t10,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); t12=C_fixnum_difference(t5,t4); t13=C_fixnum_plus(t6,t12); /* irregex-core.scm:3395: scheme#substring */ t14=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t14; av2[1]=t11; av2[2]=((C_word*)t0)[8]; av2[3]=t6; av2[4]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}} /* k24473 in lp in k24442 */ static void C_ccall f_24475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_24475,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[3]); /* irregex-core.scm:3390: next */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[8]; av2[5]=((C_word*)t0)[9]; av2[6]=t2; av2[7]=((C_word*)t0)[10]; av2[8]=((C_word*)t0)[11]; av2[9]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} else{ /* irregex-core.scm:3392: fail */ t2=((C_word*)t0)[12];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k24487 in lp in k24442 */ static void C_ccall f_24489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_24489,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24493,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(((C_word*)t0)[4],((C_word*)t0)[5]); /* irregex-core.scm:3389: scheme#substring */ t5=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[4]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k24491 in k24487 in lp in k24442 */ static void C_ccall f_24493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24493,2,av);} /* irregex-core.scm:3388: compare */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k24505 in lp in k24442 */ static void C_ccall f_24507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_24507,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_vector_ref(t2,C_fix(0)); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24513,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:3397: g4792 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* irregex-core.scm:3407: fail */ t2=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k24511 in k24505 in lp in k24442 */ static void C_ccall f_24513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_24513,2,av);} a=C_alloc(10); t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24526,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:3399: g4794 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* irregex-core.scm:3405: fail */ t3=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k24524 in k24511 in k24505 in lp in k24442 */ static void C_ccall f_24526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_24526,2,av);} a=C_alloc(11); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24533,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:3399: g4796 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k24531 in k24524 in k24511 in k24505 in lp in k24442 */ static void C_ccall f_24533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_24533,2,av);} a=C_alloc(11); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(3)); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24540,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=t2,tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:3399: g4798 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[9]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k24538 in k24531 in k24524 in k24511 in k24505 in lp in k24442 */ static void C_ccall f_24540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,7)))){ C_save_and_reclaim((void *)f_24540,2,av);} a=C_alloc(15); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=C_a_i_fixnum_difference(&a,2,t3,t4); t6=C_s_a_u_i_integer_plus(&a,2,t2,t5); t7=((C_word*)t0)[3]; t8=((C_word*)t0)[4]; t9=C_a_i_fixnum_difference(&a,2,t7,t8); t10=C_fixnum_difference(((C_word*)t0)[5],t9); /* irregex-core.scm:3399: lp */ t11=((C_word*)((C_word*)t0)[6])[1]; f_24462(t11,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],t1,t6,t10);} /* k24560 in lp in k24442 */ static void C_ccall f_24562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_24562,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24566,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3396: scheme#substring */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k24564 in k24560 in lp in k24442 */ static void C_ccall f_24566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24566,2,av);} /* irregex-core.scm:3395: compare */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k24651 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ C_save_and_reclaim((void *)f_24653,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24654,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li170),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_24654 in k24651 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,9)))){ C_save_and_reclaim((void *)f_24654,10,av);} a=C_alloc(8); t10=t8; t11=((C_word*)t0)[2]; t12=C_slot(t10,C_fix(1)); t13=C_fixnum_times(t11,C_fix(4)); t14=C_slot(t12,t13); t15=t14; t16=t8; t17=((C_word*)t0)[2]; t18=C_slot(t16,C_fix(1)); t19=C_fixnum_times(t17,C_fix(4)); t20=C_fixnum_plus(C_fix(1),t19); t21=C_slot(t18,t20); t22=t21; t23=C_slot(t8,C_fix(1)); t24=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); t25=C_i_vector_set(t23,t24,t4); t26=C_slot(t8,C_fix(1)); t27=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); t28=C_fixnum_plus(C_fix(1),t27); t29=C_i_vector_set(t26,t28,t6); t30=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24702,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t15,a[5]=t22,a[6]=t9,a[7]=((C_word)li169),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3434: body */ t31=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t31; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t30; ((C_proc)(void*)(*((C_word*)t31+1)))(10,av2);}} /* a24701 */ static void C_ccall f_24702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24702,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_times(((C_word*)t0)[3],C_fix(4)); t4=C_i_vector_set(t2,t3,((C_word*)t0)[4]); t5=C_slot(((C_word*)t0)[2],C_fix(1)); t6=C_fixnum_times(((C_word*)t0)[3],C_fix(4)); t7=C_fixnum_plus(C_fix(1),t6); t8=C_i_vector_set(t5,t7,((C_word*)t0)[5]); /* irregex-core.scm:3440: fail */ t9=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t9; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* a24761 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,9)))){ C_save_and_reclaim((void *)f_24762,10,av);} a=C_alloc(8); t10=t8; t11=((C_word*)t0)[2]; t12=C_slot(t10,C_fix(1)); t13=C_fixnum_times(t11,C_fix(4)); t14=C_fixnum_plus(C_fix(2),t13); t15=C_slot(t12,t14); t16=t15; t17=t8; t18=((C_word*)t0)[2]; t19=C_slot(t17,C_fix(1)); t20=C_fixnum_times(t18,C_fix(4)); t21=C_fixnum_plus(C_fix(3),t20); t22=C_slot(t19,t21); t23=t22; t24=C_slot(t8,C_fix(1)); t25=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); t26=C_fixnum_plus(C_fix(2),t25); t27=C_i_vector_set(t24,t26,t4); t28=C_slot(t8,C_fix(1)); t29=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); t30=C_fixnum_plus(C_fix(3),t29); t31=C_i_vector_set(t28,t30,t6); t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24797,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t16,a[5]=t23,a[6]=t9,a[7]=((C_word)li171),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3422: next */ t33=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t33; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t6; av2[7]=t7; av2[8]=t8; av2[9]=t32; ((C_proc)(void*)(*((C_word*)t33+1)))(10,av2);}} /* a24796 in a24761 in k23202 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24797,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_times(((C_word*)t0)[3],C_fix(4)); t4=C_fixnum_plus(C_fix(2),t3); t5=C_i_vector_set(t2,t4,((C_word*)t0)[4]); t6=C_slot(((C_word*)t0)[2],C_fix(1)); t7=C_fixnum_times(((C_word*)t0)[3],C_fix(4)); t8=C_fixnum_plus(C_fix(3),t7); t9=C_i_vector_set(t6,t8,((C_word*)t0)[5]); /* irregex-core.scm:3428: fail */ t10=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t10; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* f_24997 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_24997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,9)))){ C_save_and_reclaim((void *)f_24997,10,av);} a=C_alloc(8); t10=t6; t11=t7; if(C_truep(C_fixnum_lessp(t10,t11))){ t12=C_fixnum_plus(t6,C_fix(1)); /* irregex-core.scm:3450: next */ t13=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t13; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t12; av2[7]=t7; av2[8]=t8; av2[9]=t9; ((C_proc)(void*)(*((C_word*)t13+1)))(10,av2);}} else{ t12=t2; t13=C_i_vector_ref(t12,C_fix(0)); t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25017,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t8,a[7]=t9,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3451: g4888 */ t15=t13;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}} /* k25015 */ static void C_ccall f_25017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_25017,2,av);} a=C_alloc(9); t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25026,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:3453: g4893 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* irregex-core.scm:3457: fail */ t3=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k25024 in k25015 */ static void C_ccall f_25026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_25026,2,av);} a=C_alloc(10); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25032,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:3453: g4895 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25030 in k25024 in k25015 */ static void C_ccall f_25032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_25032,2,av);} a=C_alloc(11); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(3)); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25038,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:3453: g4897 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25036 in k25030 in k25024 in k25015 */ static void C_ccall f_25038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ C_save_and_reclaim((void *)f_25038,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3456: next */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=t2; av2[7]=t1; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} /* f_25055 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_25055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,9)))){ C_save_and_reclaim((void *)f_25055,10,av);} a=C_alloc(8); t10=t6; t11=t7; if(C_truep(C_fixnum_lessp(t10,t11))){ t12=C_i_string_ref(t5,t6); t13=C_eqp(C_make_character(10),t12); if(C_truep(C_i_not(t13))){ t14=t6; t15=C_a_i_fixnum_plus(&a,2,t14,C_fix(1)); /* irregex-core.scm:3462: next */ t16=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t16; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t15; av2[7]=t7; av2[8]=t8; av2[9]=t9; ((C_proc)(void*)(*((C_word*)t16+1)))(10,av2);}} else{ /* irregex-core.scm:3463: fail */ t14=t9;{ C_word *av2=av; av2[0]=t14; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} else{ t12=t2; t13=C_i_vector_ref(t12,C_fix(0)); t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25092,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t8,a[7]=t9,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3464: g4908 */ t15=t13;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}} /* k25090 */ static void C_ccall f_25092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_25092,2,av);} a=C_alloc(9); t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25101,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:3466: g4913 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* irregex-core.scm:3472: fail */ t3=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k25099 in k25090 */ static void C_ccall f_25101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_25101,2,av);} a=C_alloc(10); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25107,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:3466: g4915 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25105 in k25099 in k25090 */ static void C_ccall f_25107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_25107,2,av);} a=C_alloc(11); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(3)); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25113,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:3466: g4917 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25111 in k25105 in k25099 in k25090 */ static void C_ccall f_25113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ C_save_and_reclaim((void *)f_25113,2,av);} a=C_alloc(5); t2=C_i_string_ref(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_eqp(C_make_character(10),t2); if(C_truep(C_i_not(t3))){ t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); /* irregex-core.scm:3470: next */ t5=((C_word*)t0)[4];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[8]; av2[5]=((C_word*)t0)[2]; av2[6]=t4; av2[7]=t1; av2[8]=((C_word*)t0)[9]; av2[9]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t5+1)))(10,av2);}} else{ /* irregex-core.scm:3471: fail */ t4=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* f_25147 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_25147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_25147,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25154,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp); t11=C_i_car(t3); t12=C_eqp(t4,t11); if(C_truep(t12)){ t13=t6; t14=t3; t15=C_u_i_cdr(t14); t16=t10; f_25154(t16,C_i_eqvp(t13,t15));} else{ t13=t10; f_25154(t13,C_SCHEME_FALSE);}} /* k25152 */ static void C_fcall f_25154(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){ C_save_and_reclaim_args((void *)trf_25154,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3476: next */ t2=((C_word*)t0)[2];{ C_word av2[10]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* irregex-core.scm:3477: fail */ t2=((C_word*)t0)[11];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* f_25177 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_25177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_25177,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25184,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp); t11=C_i_car(t3); t12=C_eqp(t4,t11); if(C_truep(t12)){ t13=t6; t14=t3; t15=C_u_i_cdr(t14); t16=t10; f_25184(t16,C_i_eqvp(t13,t15));} else{ t13=t10; f_25184(t13,C_SCHEME_FALSE);}} /* k25182 */ static void C_fcall f_25184(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,0,2)))){ C_save_and_reclaim_args((void *)trf_25184,2,t0,t1);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25187,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(t1)){ t3=t2; f_25187(t3,t1);} else{ t3=((C_word*)t0)[4]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25218,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[7],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3481: g4941 */ t6=t4;{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k25185 in k25182 */ static void C_fcall f_25187(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){ C_save_and_reclaim_args((void *)trf_25187,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3483: next */ t2=((C_word*)t0)[2];{ C_word av2[10]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* irregex-core.scm:3484: fail */ t2=((C_word*)t0)[11];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k25216 in k25182 */ static void C_ccall f_25218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25218,2,av);} t2=((C_word*)t0)[2]; if(C_truep(C_fixnum_greaterp(t2,t1))){ t3=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t4=C_i_string_ref(((C_word*)t0)[3],t3); t5=((C_word*)t0)[4]; f_25187(t5,C_eqp(C_make_character(10),t4));} else{ t3=((C_word*)t0)[4]; f_25187(t3,C_SCHEME_FALSE);}} /* f_25235 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_25235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_25235,10,av);} a=C_alloc(28); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25242,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25251,a[2]=t6,a[3]=t7,a[4]=t5,a[5]=t10,a[6]=t2,a[7]=t4,tmp=(C_word)a,a+=8,tmp); t12=t2; t13=C_i_vector_ref(t12,C_fix(2)); t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25335,a[2]=t6,a[3]=t5,a[4]=t11,a[5]=t2,a[6]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3487: g4952 */ t15=t13;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} /* k25240 */ static void C_fcall f_25242(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){ C_save_and_reclaim_args((void *)trf_25242,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3498: next */ t2=((C_word*)t0)[2];{ C_word av2[10]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* irregex-core.scm:3499: fail */ t2=((C_word*)t0)[11];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k25249 */ static void C_fcall f_25251(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_25251,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=C_i_string_ref(((C_word*)t0)[4],((C_word*)t0)[2]); t5=C_u_i_char_alphabeticp(t4); t6=((C_word*)t0)[5]; f_25242(t6,(C_truep(t5)?t5:C_u_i_char_numericp(t4)));} else{ t4=((C_word*)t0)[6]; t5=C_i_vector_ref(t4,C_fix(0)); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25270,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3493: g4959 */ t7=t5;{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} else{ t2=((C_word*)t0)[5]; f_25242(t2,C_SCHEME_FALSE);}} /* k25268 in k25249 */ static void C_ccall f_25270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_25270,2,av);} a=C_alloc(5); t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25287,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3496: g4962 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=((C_word*)t0)[3]; f_25242(t3,C_SCHEME_FALSE);}} /* k25285 in k25268 in k25249 */ static void C_ccall f_25287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_25287,2,av);} a=C_alloc(4); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25294,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3496: g4964 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25292 in k25285 in k25268 in k25249 */ static void C_ccall f_25294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25294,2,av);} t2=C_i_string_ref(((C_word*)t0)[2],t1); t3=C_u_i_char_alphabeticp(t2); t4=((C_word*)t0)[3]; f_25242(t4,(C_truep(t3)?t3:C_u_i_char_numericp(t2)));} /* k25313 in k25333 */ static void C_ccall f_25315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25315,2,av);} t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_25251(t3,t2);} else{ t3=t1; t4=C_u_i_char_alphabeticp(t3); if(C_truep(t4)){ t5=((C_word*)t0)[2]; f_25251(t5,C_i_not(t4));} else{ t5=C_u_i_char_numericp(t3); t6=((C_word*)t0)[2]; f_25251(t6,C_i_not(t5));}}} /* k25333 */ static void C_ccall f_25335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_25335,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; if(C_truep(C_fixnum_greaterp(t2,t1))){ t3=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t4=C_i_string_ref(((C_word*)t0)[3],t3); t5=C_u_i_char_alphabeticp(t4); if(C_truep(t5)){ t6=((C_word*)t0)[4]; f_25251(t6,C_i_not(t5));} else{ t6=C_u_i_char_numericp(t4); t7=((C_word*)t0)[4]; f_25251(t7,C_i_not(t6));}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25315,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3489: chunker-prev-char */ f_8530(t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* f_25342 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_25342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_25342,10,av);} a=C_alloc(15); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25349,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp); t11=t6; t12=t7; if(C_truep(C_fixnum_greater_or_equal_p(t11,t12))){ t13=t2; t14=C_i_vector_ref(t13,C_fix(0)); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25368,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3502: g4975 */ t16=t14;{ C_word *av2=av; av2[0]=t16; av2[1]=t15; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t13=t10; f_25349(t13,C_SCHEME_FALSE);}} /* k25347 */ static void C_fcall f_25349(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){ C_save_and_reclaim_args((void *)trf_25349,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3503: next */ t2=((C_word*)t0)[2];{ C_word av2[10]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* irregex-core.scm:3504: fail */ t2=((C_word*)t0)[11];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k25366 */ static void C_ccall f_25368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25368,2,av);} t2=((C_word*)t0)[2]; f_25349(t2,C_i_not(t1));} /* f_25375 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_25375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_25375,10,av);} a=C_alloc(16); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25382,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp); t11=t6; t12=t7; if(C_truep(C_fixnum_lessp(t11,t12))){ t13=C_i_string_ref(t5,t6); t14=t10; f_25382(t14,C_eqp(C_make_character(10),t13));} else{ t13=t2; t14=C_i_vector_ref(t13,C_fix(0)); t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25405,a[2]=t10,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3509: g4986 */ t16=t14;{ C_word *av2=av; av2[0]=t16; av2[1]=t15; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}} /* k25380 */ static void C_fcall f_25382(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){ C_save_and_reclaim_args((void *)trf_25382,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3515: next */ t2=((C_word*)t0)[2];{ C_word av2[10]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* irregex-core.scm:3516: fail */ t2=((C_word*)t0)[11];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k25403 */ static void C_ccall f_25405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_25405,2,av);} a=C_alloc(5); t2=t1; if(C_truep(C_i_not(t2))){ t3=((C_word*)t0)[2]; f_25382(t3,C_SCHEME_TRUE);} else{ t3=((C_word*)t0)[3]; t4=C_i_vector_ref(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25426,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3513: g4988 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k25424 in k25403 */ static void C_ccall f_25426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_25426,2,av);} a=C_alloc(4); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25433,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3513: g4990 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25431 in k25424 in k25403 */ static void C_ccall f_25433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25433,2,av);} t2=C_i_string_ref(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; f_25382(t3,C_eqp(C_make_character(10),t2));} /* f_25440 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_25440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_25440,10,av);} a=C_alloc(23); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25447,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25456,a[2]=t2,a[3]=t6,a[4]=t5,a[5]=t10,a[6]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp); t12=t6; t13=t7; if(C_truep(C_fixnum_lessp(t12,t13))){ t14=C_i_string_ref(t5,t6); t15=C_u_i_char_alphabeticp(t14); if(C_truep(t15)){ t16=t11; f_25456(t16,C_i_not(t15));} else{ t16=C_u_i_char_numericp(t14); t17=t11; f_25456(t17,C_i_not(t16));}} else{ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25509,a[2]=t11,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3521: chunker-next-char */ f_8560(t14,t2,t4);}} /* k25445 */ static void C_fcall f_25447(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){ C_save_and_reclaim_args((void *)trf_25447,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3527: next */ t2=((C_word*)t0)[2];{ C_word av2[10]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* irregex-core.scm:3528: fail */ t2=((C_word*)t0)[11];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k25454 */ static void C_fcall f_25456(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_25456,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_vector_ref(t2,C_fix(2)); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25492,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3523: g5005 */ t5=t3;{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[5]; f_25447(t2,C_SCHEME_FALSE);}} /* k25474 in k25490 in k25454 */ static void C_ccall f_25476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25476,2,av);} t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_25447(t3,t2);} else{ t3=t1; t4=C_u_i_char_alphabeticp(t3); t5=((C_word*)t0)[2]; f_25447(t5,(C_truep(t4)?t4:C_u_i_char_numericp(t3)));}} /* k25490 in k25454 */ static void C_ccall f_25492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_25492,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; if(C_truep(C_fixnum_greaterp(t2,t1))){ t3=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t4=C_i_string_ref(((C_word*)t0)[3],t3); t5=C_u_i_char_alphabeticp(t4); t6=((C_word*)t0)[4]; f_25447(t6,(C_truep(t5)?t5:C_u_i_char_numericp(t4)));} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25476,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3525: chunker-prev-char */ f_8530(t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* k25507 */ static void C_ccall f_25509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25509,2,av);} t2=C_i_not(t1); if(C_truep(t2)){ t3=((C_word*)t0)[2]; f_25456(t3,t2);} else{ t3=t1; t4=C_u_i_char_alphabeticp(t3); if(C_truep(t4)){ t5=((C_word*)t0)[2]; f_25456(t5,C_i_not(t4));} else{ t5=C_u_i_char_numericp(t3); t6=((C_word*)t0)[2]; f_25456(t6,C_i_not(t5));}}} /* f_25529 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_25529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_25529,10,av);} a=C_alloc(12); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25533,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp); t11=t6; t12=t7; if(C_truep(C_fixnum_lessp(t11,t12))){ t13=t10;{ C_word *av2=av; av2[0]=t13; av2[1]=C_i_string_ref(t5,t6); f_25533(2,av2);}} else{ /* irregex-core.scm:3533: chunker-next-char */ f_8560(t10,t2,t4);}} /* k25531 */ static void C_ccall f_25533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_25533,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_25536,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); t4=((C_word*)t0)[4]; t5=C_i_vector_ref(t4,C_fix(2)); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25587,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3534: g5021 */ t7=t5;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k25534 in k25531 */ static void C_ccall f_25536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_25536,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25542,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)t0)[12])){ if(C_truep(t1)){ t3=C_u_i_char_alphabeticp(((C_word*)t0)[12]); t4=(C_truep(t3)?t3:C_u_i_char_numericp(((C_word*)t0)[12])); if(C_truep(t4)){ t5=C_u_i_char_alphabeticp(t1); t6=t2; f_25542(t6,(C_truep(t5)?t5:C_u_i_char_numericp(t1)));} else{ t5=C_u_i_char_alphabeticp(t1); if(C_truep(t5)){ t6=t2; f_25542(t6,C_i_not(t5));} else{ t6=C_u_i_char_numericp(t1); t7=t2; f_25542(t7,C_i_not(t6));}}} else{ t3=t2; f_25542(t3,C_SCHEME_FALSE);}} else{ t3=t2; f_25542(t3,C_SCHEME_FALSE);}} /* k25540 in k25534 in k25531 */ static void C_fcall f_25542(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){ C_save_and_reclaim_args((void *)trf_25542,2,t0,t1);} if(C_truep(t1)){ /* irregex-core.scm:3541: next */ t2=((C_word*)t0)[2];{ C_word av2[10]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} else{ /* irregex-core.scm:3542: fail */ t2=((C_word*)t0)[11];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k25585 in k25531 */ static void C_ccall f_25587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25587,2,av);} t2=((C_word*)t0)[2]; if(C_truep(C_fixnum_greaterp(t2,t1))){ t3=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_string_ref(((C_word*)t0)[4],t3); f_25536(2,av2);}} else{ /* irregex-core.scm:3536: chunker-prev-char */ f_8530(((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* f_25651 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_25651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_25651,10,av);} a=C_alloc(12); t10=t6; t11=t7; if(C_truep(C_fixnum_greater_or_equal_p(t10,t11))){ t12=t2; t13=C_i_vector_ref(t12,C_fix(0)); t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25668,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t8,a[6]=t9,a[7]=((C_word*)t0)[3],a[8]=t1,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:3555: g5048 */ t15=t13;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} else{ t12=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25736,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp); t13=C_i_string_ref(t5,t6); /* irregex-core.scm:3567: scheme#char-ci=? */ t14=*((C_word*)lf[248]+1);{ C_word *av2=av; av2[0]=t14; av2[1]=t12; av2[2]=((C_word*)t0)[3]; av2[3]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}} /* k25666 */ static void C_ccall f_25668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_25668,2,av);} a=C_alloc(12); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25670,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li182),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_25670(t5,((C_word*)t0)[8],t1);} /* lp in k25666 */ static void C_fcall f_25670(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_25670,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25680,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:3557: g5039 */ t6=t4;{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* irregex-core.scm:3566: fail */ t3=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k25678 in lp in k25666 */ static void C_ccall f_25680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_25680,2,av);} a=C_alloc(12); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25686,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3557: g5041 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25684 in k25678 in lp in k25666 */ static void C_ccall f_25686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_25686,2,av);} a=C_alloc(13); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(3)); t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_25692,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* irregex-core.scm:3557: g5043 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25690 in k25684 in k25678 in lp in k25666 */ static void C_ccall f_25692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_25692,2,av);} a=C_alloc(12); t2=t1; if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],t2))){ t3=((C_word*)t0)[3]; t4=C_i_vector_ref(t3,C_fix(0)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25708,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3561: g5045 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25714,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[9],a[9]=t2,a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t4=C_i_string_ref(((C_word*)t0)[9],((C_word*)t0)[2]); /* irregex-core.scm:3562: scheme#char-ci=? */ t5=*((C_word*)lf[248]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[12]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k25706 in k25690 in k25684 in k25678 in lp in k25666 */ static void C_ccall f_25708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_25708,2,av);} /* irregex-core.scm:3561: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_25670(t2,((C_word*)t0)[3],t1);} /* k25712 in k25690 in k25684 in k25678 in lp in k25666 */ static void C_ccall f_25714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ C_save_and_reclaim((void *)f_25714,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3563: next */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=t2; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} else{ /* irregex-core.scm:3565: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k25734 */ static void C_ccall f_25736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ C_save_and_reclaim((void *)f_25736,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); /* irregex-core.scm:3568: next */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=t3; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t4+1)))(10,av2);}} else{ /* irregex-core.scm:3569: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* f_25750 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_25750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,9)))){ C_save_and_reclaim((void *)f_25750,10,av);} a=C_alloc(9); t10=t6; t11=t7; if(C_truep(C_fixnum_greater_or_equal_p(t10,t11))){ t12=t2; t13=C_i_vector_ref(t12,C_fix(0)); t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25767,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t8,a[7]=t9,a[8]=t1,tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:3573: g5072 */ t15=t13;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} else{ t12=C_i_string_ref(t5,t6); if(C_truep(C_i_char_equalp(((C_word*)t0)[2],t12))){ t13=t6; t14=C_a_i_fixnum_plus(&a,2,t13,C_fix(1)); /* irregex-core.scm:3586: next */ t15=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t15; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; av2[5]=t5; av2[6]=t14; av2[7]=t7; av2[8]=t8; av2[9]=t9; ((C_proc)(void*)(*((C_word*)t15+1)))(10,av2);}} else{ /* irregex-core.scm:3587: fail */ t13=t9;{ C_word *av2=av; av2[0]=t13; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}} /* k25765 */ static void C_ccall f_25767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_25767,2,av);} a=C_alloc(12); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25769,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li184),tmp=(C_word)a,a+=10,tmp)); t5=((C_word*)t3)[1]; f_25769(t5,((C_word*)t0)[8],t1);} /* lp in k25765 */ static void C_fcall f_25769(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_25769,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:3575: g5063 */ t6=t4;{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* irregex-core.scm:3584: fail */ t3=((C_word*)t0)[8];{ C_word av2[2]; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k25777 in lp in k25765 */ static void C_ccall f_25779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_25779,2,av);} a=C_alloc(12); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25785,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3575: g5065 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25783 in k25777 in lp in k25765 */ static void C_ccall f_25785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_25785,2,av);} a=C_alloc(13); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(3)); t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_25791,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* irregex-core.scm:3575: g5067 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25789 in k25783 in k25777 in lp in k25765 */ static void C_ccall f_25791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ C_save_and_reclaim((void *)f_25791,2,av);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],t1))){ t2=((C_word*)t0)[3]; t3=C_i_vector_ref(t2,C_fix(0)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25807,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3579: g5069 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=C_i_string_ref(((C_word*)t0)[7],((C_word*)t0)[2]); if(C_truep(C_i_char_equalp(((C_word*)t0)[8],t2))){ t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3581: next */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[10]; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[7]; av2[6]=t3; av2[7]=t1; av2[8]=((C_word*)t0)[11]; av2[9]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t4+1)))(10,av2);}} else{ /* irregex-core.scm:3583: fail */ t3=((C_word*)t0)[12];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k25805 in k25789 in k25783 in k25777 in lp in k25765 */ static void C_ccall f_25807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_25807,2,av);} /* irregex-core.scm:3579: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_25769(t2,((C_word*)t0)[3],t1);} /* k25863 in lp in k23111 in k16096 in k16070 in k16067 in k16064 in k16061 in k16058 in k16055 in k16052 in k16049 in k16046 in k16043 in k16040 in chicken.irregex#sre->irregex in k7651 in k7426 in k7423 */ static void C_ccall f_25865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_25865,2,av);} a=C_alloc(3); t2=( /* irregex-core.scm:3590: sre-sequence */ f_17960(C_a_i(&a,3),t1) ); /* irregex-core.scm:3590: rec */ t3=((C_word*)t0)[2]; f_23165(t3,((C_word*)t0)[3],t2);} /* chicken.irregex#sre-cset->procedure in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_25891(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,10)))){ C_save_and_reclaim_args((void *)trf_25891,3,t1,t2,t3);} a=C_alloc(5); t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25893,a[2]=t3,a[3]=t2,a[4]=((C_word)li309),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_25893 in chicken.irregex#sre-cset->procedure in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_25893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_25893,10,av);} a=C_alloc(12); t10=t6; t11=t7; if(C_truep(C_fixnum_lessp(t10,t11))){ t12=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25906,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp); t13=C_i_string_ref(t5,t6); /* irregex-core.scm:3614: cset-contains? */ f_26682(t12,((C_word*)t0)[3],t13);} else{ t12=t2; t13=C_i_vector_ref(t12,C_fix(0)); t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25925,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t8,a[7]=t9,a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:3617: g5113 */ t15=t13;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}} /* k25904 */ static void C_ccall f_25906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ C_save_and_reclaim((void *)f_25906,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); /* irregex-core.scm:3615: next */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=t3; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t4+1)))(10,av2);}} else{ /* irregex-core.scm:3616: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k25923 */ static void C_ccall f_25925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_25925,2,av);} a=C_alloc(10); t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25934,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:3619: g5118 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* irregex-core.scm:3625: fail */ t3=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k25932 in k25923 */ static void C_ccall f_25934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_25934,2,av);} a=C_alloc(11); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25940,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:3619: g5120 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25938 in k25932 in k25923 */ static void C_ccall f_25940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_25940,2,av);} a=C_alloc(12); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(3)); t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25946,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3619: g5122 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k25944 in k25938 in k25932 in k25923 */ static void C_ccall f_25946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_25946,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=C_i_string_ref(((C_word*)t0)[8],((C_word*)t0)[2]); /* irregex-core.scm:3622: cset-contains? */ f_26682(t3,((C_word*)t0)[11],t4);} /* k25950 in k25944 in k25938 in k25932 in k25923 */ static void C_ccall f_25952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ C_save_and_reclaim((void *)f_25952,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3623: next */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 10) { av2=av; } else { av2=C_alloc(10); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; av2[6]=t2; av2[7]=((C_word*)t0)[9]; av2[8]=((C_word*)t0)[10]; av2[9]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} else{ /* irregex-core.scm:3624: fail */ t2=((C_word*)t0)[11];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.irregex#cset->plist in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26104(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_26104,2,t1,t2);} a=C_alloc(12); t3=C_i_vector_length(t2); t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26116,a[2]=t2,a[3]=t6,a[4]=((C_word)li311),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_26116(t8,t1,t4,C_SCHEME_END_OF_LIST);} /* lp in chicken.irregex#cset->plist in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26116(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_26116,4,t0,t1,t2,t3);} a=C_alloc(6); t4=t2; t5=C_eqp(t4,C_fix(-1)); if(C_truep(t5)){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_fixnum_difference(t2,C_fix(1)); t7=C_i_vector_ref(((C_word*)t0)[2],t2); t8=C_i_car(t7); t9=C_i_vector_ref(((C_word*)t0)[2],t2); t10=C_i_cdr(t9); t11=C_a_i_cons(&a,2,t10,t3); t12=C_a_i_cons(&a,2,t8,t11); /* irregex-core.scm:3654: lp */ t14=t1; t15=t6; t16=t12; t1=t14; t2=t15; t3=t16; goto loop;}} /* lp in k26481 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26166(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_26166,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_cddr(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26184,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=t2; t8=C_u_i_car(t7); t9=t2; t10=C_u_i_cdr(t9); t11=C_u_i_car(t10); t12=C_a_i_cons(&a,2,t8,t11); t13=C_a_i_vector1(&a,1,t12); /* irregex-core.scm:3661: cset-union */ t14=lf[162];{ C_word av2[4]; av2[0]=t14; av2[1]=t6; av2[2]=t13; av2[3]=t3; f_26803(4,av2);}}} /* k26182 in lp in k26481 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_26184,2,av);} /* irregex-core.scm:3661: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_26166(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* chicken.irregex#string->cset in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26195(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_26195,2,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26201,a[2]=((C_word)li313),tmp=(C_word)a,a+=3,tmp); t4=C_a_i_vector(&a,0); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26213,a[2]=t1,a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* ##sys#string->list */ t7=*((C_word*)lf[105]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* a26200 in chicken.irregex#string->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_26201,4,av);} a=C_alloc(5); t4=C_a_i_cons(&a,2,t2,t2); t5=C_a_i_vector1(&a,1,t4); /* irregex-core.scm:3766: cset-union */ t6=lf[162];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=t5; f_26803(4,av2);}} /* k26211 in chicken.irregex#string->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_26213,2,av);} /* irregex-core.scm:3664: fold */ f_9246(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26215(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_26215,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26223,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t5=t3; t6=t4; f_26223(t6,C_u_i_car(t5));} else{ t5=t4; f_26223(t5,C_SCHEME_FALSE);}} /* k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26223(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_26223,2,t0,t1);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26225,a[2]=t3,a[3]=((C_word)li323),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_26225(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26225(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,0,4)))){ C_save_and_reclaim_args((void *)trf_26225,4,t0,t1,t2,t3);} a=C_alloc(18); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26228,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li315),tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t2))){ t5=t2; t6=C_u_i_car(t5); if(C_truep(C_i_stringp(t6))){ if(C_truep(t3)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26254,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t8=t2; t9=C_u_i_car(t8); /* irregex-core.scm:3676: string->cset */ f_26195(t7,t9);} else{ t7=t2; t8=C_u_i_car(t7); /* irregex-core.scm:3677: string->cset */ f_26195(t1,t8);}} else{ t7=t2; t8=C_u_i_car(t7); t9=C_eqp(t8,lf[179]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26275,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26279,a[2]=t4,a[3]=t2,a[4]=t10,tmp=(C_word)a,a+=5,tmp); t12=C_i_cadr(t2); /* irregex-core.scm:3681: rec */ t13=t4;{ C_word av2[3]; av2[0]=t13; av2[1]=t11; av2[2]=t12; f_26228(3,av2);}} else{ t10=C_eqp(t8,lf[232]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26343,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t12=C_i_cadr(t2); /* irregex-core.scm:3683: rec */ t13=t4;{ C_word av2[3]; av2[0]=t13; av2[1]=t11; av2[2]=t12; f_26228(3,av2);}} else{ t11=C_eqp(t8,lf[245]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26405,a[2]=((C_word)li318),tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26413,a[2]=t4,a[3]=t2,a[4]=t1,a[5]=t12,tmp=(C_word)a,a+=6,tmp); t14=C_i_cadr(t2); /* irregex-core.scm:3686: rec */ t15=t4;{ C_word av2[3]; av2[0]=t15; av2[1]=t13; av2[2]=t14; f_26228(3,av2);}} else{ t12=C_eqp(t8,lf[52]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26473,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26483,a[2]=t13,tmp=(C_word)a,a+=3,tmp); t15=t2; t16=C_u_i_cdr(t15); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18139,a[2]=t18,a[3]=((C_word)li321),tmp=(C_word)a,a+=4,tmp)); t20=((C_word*)t18)[1]; f_18139(t20,t14,t16,C_SCHEME_END_OF_LIST);} else{ t13=C_eqp(t8,lf[103]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26498,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t15=C_i_cadr(t2); /* irregex-core.scm:3694: rec */ t16=t4;{ C_word av2[3]; av2[0]=t16; av2[1]=t14; av2[2]=t15; f_26228(3,av2);}} else{ t14=C_eqp(t8,lf[223]); if(C_truep(t14)){ t15=t2; t16=C_u_i_cdr(t15); t17=( /* irregex-core.scm:3696: sre-alternate */ f_17983(C_a_i(&a,3),t16) ); /* irregex-core.scm:3696: lp */ t21=t1; t22=t17; t23=C_SCHEME_FALSE; t1=t21; t2=t22; t3=t23; goto loop;} else{ t15=C_eqp(t8,lf[224]); if(C_truep(t15)){ t16=t2; t17=C_u_i_cdr(t16); t18=( /* irregex-core.scm:3698: sre-alternate */ f_17983(C_a_i(&a,3),t17) ); /* irregex-core.scm:3698: lp */ t21=t1; t22=t18; t23=C_SCHEME_TRUE; t1=t21; t2=t22; t3=t23; goto loop;} else{ /* irregex-core.scm:3700: chicken.base#error */ t16=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t16; av2[1]=t1; av2[2]=lf[404]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}}}}}}}}}} else{ if(C_truep(C_charp(t2))){ if(C_truep(t3)){ t5=t2; t6=t2; t7=C_a_i_cons(&a,2,t5,t6); t8=C_a_i_vector1(&a,1,t7); /* irregex-core.scm:3702: cset-case-insensitive */ f_27330(t1,t8);} else{ t5=t1; t6=t2; t7=t2; t8=C_a_i_cons(&a,2,t6,t7); t9=t5;{ C_word av2[2]; av2[0]=t9; av2[1]=C_a_i_vector1(&a,1,t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ if(C_truep(C_i_stringp(t2))){ t5=C_a_i_list1(&a,1,t2); /* irregex-core.scm:3704: rec */ t6=t4;{ C_word av2[3]; av2[0]=t6; av2[1]=t1; av2[2]=t5; f_26228(3,av2);}} else{ t5=C_i_assq(t2,lf[246]); if(C_truep(t5)){ t6=C_i_cdr(t5); /* irregex-core.scm:3708: rec */ t7=t4;{ C_word av2[3]; av2[0]=t7; av2[1]=t1; av2[2]=t6; f_26228(3,av2);}} else{ /* irregex-core.scm:3709: chicken.base#error */ t6=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=lf[405]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}}} /* rec in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_26228,3,av);} /* irregex-core.scm:3671: lp */ t3=((C_word*)((C_word*)t0)[2])[1]; f_26225(t3,t1,t2,((C_word*)t0)[3]);} /* k26252 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26254,2,av);} /* irregex-core.scm:3676: cset-case-insensitive */ f_27330(((C_word*)t0)[2],t1);} /* k26273 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26275,2,av);} /* irregex-core.scm:3680: cset-complement */ f_27320(((C_word*)t0)[2],t1);} /* k26277 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_26279,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[2]; t8=C_i_cddr(((C_word*)t0)[3]); t9=C_i_check_list_2(t8,lf[211]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26292,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26294,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,a[6]=((C_word)li316),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_26294(t14,t10,t8);} /* k26290 in k26277 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_26292,2,av);} /* irregex-core.scm:3681: fold */ f_9246(((C_word*)t0)[2],lf[162],((C_word*)t0)[3],t1);} /* map-loop5179 in k26277 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26294(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_26294,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26319,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:3681: g5185 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k26317 in map-loop5179 in k26277 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_26319,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_26294(t6,((C_word*)t0)[5],t5);} /* k26341 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_26343,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[2]; t8=C_i_cddr(((C_word*)t0)[3]); t9=C_i_check_list_2(t8,lf[211]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26356,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26358,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,a[6]=((C_word)li317),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_26358(t14,t10,t8);} /* k26354 in k26341 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_26356,2,av);} /* irregex-core.scm:3683: fold */ f_9246(((C_word*)t0)[2],lf[403],((C_word*)t0)[3],t1);} /* map-loop5205 in k26341 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26358(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_26358,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26383,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:3683: g5211 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k26381 in map-loop5205 in k26341 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_26383,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_26358(t6,((C_word*)t0)[5],t5);} /* a26404 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_26405,4,av);} /* irregex-core.scm:3685: cset-difference */ f_26998(t1,t3,t2);} /* k26411 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_26413,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[2]; t8=C_i_cddr(((C_word*)t0)[3]); t9=C_i_check_list_2(t8,lf[211]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26426,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26428,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,a[6]=((C_word)li319),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_26428(t14,t10,t8);} /* k26424 in k26411 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_26426,2,av);} /* irregex-core.scm:3685: fold */ f_9246(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* map-loop5233 in k26411 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26428(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_26428,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26453,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:3687: g5239 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k26451 in map-loop5233 in k26411 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_26453,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_26428(t6,((C_word*)t0)[5],t5);} /* k26471 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26473,2,av);} if(C_truep(((C_word*)t0)[2])){ /* irregex-core.scm:3691: cset-case-insensitive */ f_27330(((C_word*)t0)[3],t1);} else{ t2=t1; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k26481 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_26483,2,av);} a=C_alloc(7); t2=C_a_i_vector(&a,0); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26166,a[2]=t4,a[3]=((C_word)li320),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_26166(t6,((C_word*)t0)[2],t1,t2);} /* k26496 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_26498,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[2]; t8=C_i_cddr(((C_word*)t0)[3]); t9=C_i_check_list_2(t8,lf[211]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26511,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26513,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,a[6]=((C_word)li322),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_26513(t14,t10,t8);} /* k26509 in k26496 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_26511,2,av);} /* irregex-core.scm:3694: fold */ f_9246(((C_word*)t0)[2],lf[162],((C_word*)t0)[3],t1);} /* map-loop5260 in k26496 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26513(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_26513,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26538,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-core.scm:3694: g5266 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k26536 in map-loop5260 in k26496 in lp in k26221 in chicken.irregex#sre->cset in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_26538,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_26513(t6,((C_word*)t0)[5],t5);} /* k26658 in k13318 in k13311 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_26660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_26660,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[52],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a26661 in k13318 in k13311 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_26662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_26662,4,av);} a=C_alloc(6); t4=C_i_car(t2); t5=t2; t6=C_u_i_cdr(t5); t7=C_a_i_cons(&a,2,t6,t3); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_cons(&a,2,t4,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k26678 in k13318 in k13311 in go in k13261 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_26680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_26680,2,av);} /* irregex-core.scm:3713: fold */ f_9246(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t1);} /* chicken.irregex#cset-contains? in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26682(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_26682,3,t1,t2,t3);} a=C_alloc(8); t4=t2; t5=t3; t6=C_block_size(t4); switch(t6){ case C_fix(0): t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);} case C_fix(1): t7=C_i_vector_ref(t4,C_fix(0)); t8=C_u_i_cdr(t7); if(C_truep(C_u_i_char_less_or_equal_p(t5,t8))){ t9=C_u_i_car(t7); t10=C_u_i_char_less_or_equal_p(t9,t5); t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} default: t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26715,a[2]=t4,a[3]=t5,a[4]=t8,a[5]=((C_word)li325),tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_26715(t10,t1,C_fix(0),t6);}} /* lp in chicken.irregex#cset-contains? in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26715(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_26715,4,t0,t1,t2,t3);} a=C_alloc(5); t4=C_fixnum_plus(t3,t2); t5=C_fixnum_shift_right(t4,C_fix(1)); t6=C_i_vector_ref(((C_word*)t0)[2],t5); t7=C_u_i_cdr(t6); if(C_truep(C_u_i_char_lessp(t7,((C_word*)t0)[3]))){ t8=C_a_i_fixnum_plus(&a,2,t5,C_fix(1)); t9=t3; if(C_truep(C_fixnum_lessp(t8,t9))){ /* irregex-core.scm:3732: lp */ t11=t1; t12=t8; t13=t3; t1=t11; t2=t12; t3=t13; goto loop;} else{ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t8=C_u_i_car(t6); if(C_truep(C_i_char_lessp(((C_word*)t0)[3],t8))){ t9=t2; if(C_truep(C_fixnum_lessp(t9,t5))){ /* irregex-core.scm:3734: lp */ t11=t1; t12=t2; t13=t5; t1=t11; t2=t12; t3=t13; goto loop;} else{ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}} /* chicken.irregex#char-ranges-union in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26767(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_26767,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26775,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); t6=C_i_car(t3); if(C_truep(C_i_char_less_or_equal_p(t5,t6))){ t7=t2; t8=t4; f_26775(t8,C_u_i_car(t7));} else{ t7=t3; t8=t4; f_26775(t8,C_u_i_car(t7));}} /* k26773 in chicken.irregex#char-ranges-union in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26775(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,1)))){ C_save_and_reclaim_args((void *)trf_26775,2,t0,t1);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); if(C_truep(C_i_char_greater_or_equal_p(t3,t5))){ t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_cons(&a,2,t1,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t6=((C_word*)t0)[3]; t7=C_u_i_cdr(t6); t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_cons(&a,2,t1,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_26803,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26811,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3742: scheme#vector->list */ t5=*((C_word*)lf[163]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k26809 in chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_26811,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26815,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3743: scheme#vector->list */ t4=*((C_word*)lf[163]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k26813 in k26809 in chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_26815,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26817,a[2]=t3,a[3]=((C_word)li328),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_26817(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* union-range in k26813 in k26809 in chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26817(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){ C_save_and_reclaim_args((void *)trf_26817,5,t0,t1,t2,t3,t4);} a=C_alloc(17); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26831,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26835,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26839,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3746: ##sys#fast-reverse */ t8=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ if(C_truep(C_i_nullp(t3))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26852,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26856,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26860,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3747: ##sys#fast-reverse */ t8=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t5=C_i_car(t2); t6=C_i_car(t3); t7=C_i_cdr(t5); t8=C_fix(C_character_code(t7)); t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); t10=C_i_car(t6); t11=C_fix(C_character_code(t10)); if(C_truep(C_i_integer_lessp(t9,t11))){ t12=t2; t13=C_u_i_cdr(t12); t14=C_a_i_cons(&a,2,t5,t4); /* irregex-core.scm:3755: union-range */ t23=t1; t24=t13; t25=t3; t26=t14; t1=t23; t2=t24; t3=t25; t4=t26; goto loop;} else{ t12=C_u_i_car(t5); t13=C_fix(C_character_code(t12)); t14=C_u_i_cdr(t6); t15=C_fix(C_character_code(t14)); t16=C_a_i_fixnum_plus(&a,2,t15,C_fix(1)); if(C_truep(C_i_integer_greaterp(t13,t16))){ t17=t3; t18=C_u_i_cdr(t17); t19=C_a_i_cons(&a,2,t6,t4); /* irregex-core.scm:3757: union-range */ t23=t1; t24=t18; t25=t2; t26=t19; t1=t23; t2=t24; t3=t25; t4=t26; goto loop;} else{ t17=C_u_i_cdr(t5); t18=C_u_i_car(t6); if(C_truep(C_i_char_greater_or_equal_p(t17,t18))){ t19=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26929,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:3759: char-ranges-union */ f_26767(t19,t5,t6);} else{ t19=t2; t20=C_u_i_cdr(t19); t21=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26944,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t20,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:3763: char-ranges-union */ f_26767(t21,t5,t6);}}}}}} /* k26829 in union-range in k26813 in k26809 in chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26831,2,av);} /* irregex-core.scm:3746: scheme#list->vector */ t2=*((C_word*)lf[407]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k26833 in union-range in k26813 in k26809 in chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26835,2,av);} /* irregex-core.scm:3746: ##sys#fast-reverse */ t2=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k26837 in union-range in k26813 in k26809 in chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_26839,2,av);} /* irregex-core.scm:3746: scheme#append */ t2=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k26850 in union-range in k26813 in k26809 in chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26852,2,av);} /* irregex-core.scm:3747: scheme#list->vector */ t2=*((C_word*)lf[407]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k26854 in union-range in k26813 in k26809 in chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26856,2,av);} /* irregex-core.scm:3747: ##sys#fast-reverse */ t2=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k26858 in union-range in k26813 in k26809 in chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_26860,2,av);} /* irregex-core.scm:3747: scheme#append */ t2=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k26927 in union-range in k26813 in k26809 in chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_26929,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,t1,t3); t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); /* irregex-core.scm:3759: union-range */ t7=((C_word*)((C_word*)t0)[4])[1]; f_26817(t7,((C_word*)t0)[5],t4,t6,((C_word*)t0)[6]);} /* k26942 in union-range in k26813 in k26809 in chicken.irregex#cset-union in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_26944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_26944,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,t1,t3); /* irregex-core.scm:3762: union-range */ t5=((C_word*)((C_word*)t0)[3])[1]; f_26817(t5,((C_word*)t0)[4],((C_word*)t0)[5],t4,((C_word*)t0)[6]);} /* chicken.irregex#cset-difference in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_26998(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_26998,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27006,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3775: scheme#vector->list */ t5=*((C_word*)lf[163]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k27004 in chicken.irregex#cset-difference in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_27006,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27010,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3776: scheme#vector->list */ t4=*((C_word*)lf[163]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k27008 in k27004 in chicken.irregex#cset-difference in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_27010,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27012,a[2]=t3,a[3]=((C_word)li330),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_27012(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* diff in k27008 in k27004 in chicken.irregex#cset-difference in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27012(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_27012,5,t0,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27026,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3778: ##sys#fast-reverse */ t6=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ if(C_truep(C_i_nullp(t3))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27039,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27043,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3779: ##sys#fast-reverse */ t7=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=C_i_car(t2); t6=t5; t7=C_i_car(t3); t8=t7; t9=C_i_cdr(t6); t10=C_i_car(t8); if(C_truep(C_i_char_lessp(t9,t10))){ t11=t2; t12=C_u_i_cdr(t11); t13=C_a_i_cons(&a,2,t6,t4); /* irregex-core.scm:3785: diff */ t19=t1; t20=t12; t21=t3; t22=t13; t1=t19; t2=t20; t3=t21; t4=t22; goto loop;} else{ t11=C_u_i_car(t6); t12=C_u_i_cdr(t8); if(C_truep(C_i_char_greaterp(t11,t12))){ t13=t3; t14=C_u_i_cdr(t13); /* irregex-core.scm:3787: diff */ t19=t1; t20=t2; t21=t14; t22=t4; t1=t19; t2=t20; t3=t21; t4=t22; goto loop;} else{ t13=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27081,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=t6,a[8]=t8,tmp=(C_word)a,a+=9,tmp); t14=C_u_i_car(t8); t15=C_u_i_car(t6); if(C_truep(C_i_char_less_or_equal_p(t14,t15))){ t16=C_u_i_cdr(t8); t17=C_u_i_cdr(t6); t18=t13; f_27081(t18,C_i_char_greater_or_equal_p(t16,t17));} else{ t16=t13; f_27081(t16,C_SCHEME_FALSE);}}}}}} /* k27024 in diff in k27008 in k27004 in chicken.irregex#cset-difference in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27026,2,av);} /* irregex-core.scm:3778: scheme#list->vector */ t2=*((C_word*)lf[407]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k27037 in diff in k27008 in k27004 in chicken.irregex#cset-difference in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27039,2,av);} /* irregex-core.scm:3779: scheme#list->vector */ t2=*((C_word*)lf[407]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k27041 in diff in k27008 in k27004 in chicken.irregex#cset-difference in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27043,2,av);} /* irregex-core.scm:3779: scheme#append */ t2=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k27079 in diff in k27008 in k27004 in chicken.irregex#cset-difference in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27081(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){ C_save_and_reclaim_args((void *)trf_27081,2,t0,t1);} a=C_alloc(17); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:3790: diff */ t4=((C_word*)((C_word*)t0)[3])[1]; f_27012(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27089,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_u_i_car(((C_word*)t0)[7]); t4=C_u_i_car(((C_word*)t0)[8]); if(C_truep(C_i_char_lessp(t3,t4))){ t5=C_u_i_car(((C_word*)t0)[7]); t6=C_u_i_car(((C_word*)t0)[8]); t7=C_fix(C_character_code(t6)); t8=C_a_i_fixnum_difference(&a,2,t7,C_fix(1)); t9=C_make_character(C_unfix(t8)); t10=t2; f_27089(t10,C_a_i_cons(&a,2,t5,t9));} else{ t5=t2; f_27089(t5,C_SCHEME_FALSE);}}} /* k27087 in k27079 in diff in k27008 in k27004 in chicken.irregex#cset-difference in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27089(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){ C_save_and_reclaim_args((void *)trf_27089,2,t0,t1);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27092,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_u_i_cdr(((C_word*)t0)[7]); t5=C_u_i_cdr(((C_word*)t0)[8]); if(C_truep(C_i_char_greaterp(t4,t5))){ t6=C_u_i_cdr(((C_word*)t0)[8]); t7=C_fix(C_character_code(t6)); t8=C_a_i_fixnum_plus(&a,2,t7,C_fix(1)); t9=C_make_character(C_unfix(t8)); t10=C_u_i_cdr(((C_word*)t0)[7]); t11=t3; f_27092(t11,C_a_i_cons(&a,2,t9,t10));} else{ t6=t3; f_27092(t6,C_SCHEME_FALSE);}} /* k27090 in k27087 in k27079 in diff in k27008 in k27004 in chicken.irregex#cset-difference in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27092(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_27092,2,t0,t1);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27099,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t1)){ t3=((C_word*)t0)[7]; t4=C_u_i_cdr(t3); t5=t2; f_27099(t5,C_a_i_cons(&a,2,t1,t4));} else{ t3=((C_word*)t0)[7]; t4=t2; f_27099(t4,C_u_i_cdr(t3));}} /* k27097 in k27090 in k27087 in k27079 in diff in k27008 in k27004 in chicken.irregex#cset-difference in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27099(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_27099,2,t0,t1);} a=C_alloc(3); if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* irregex-core.scm:3797: diff */ t3=((C_word*)((C_word*)t0)[4])[1]; f_27012(t3,((C_word*)t0)[5],t1,((C_word*)t0)[6],t2);} else{ t2=((C_word*)t0)[3]; /* irregex-core.scm:3797: diff */ t3=((C_word*)((C_word*)t0)[4])[1]; f_27012(t3,((C_word*)t0)[5],t1,((C_word*)t0)[6],t2);}} /* chicken.irregex#cset-intersection in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_27194,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27202,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3808: scheme#vector->list */ t5=*((C_word*)lf[163]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k27200 in chicken.irregex#cset-intersection in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_27202,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27206,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3809: scheme#vector->list */ t4=*((C_word*)lf[163]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k27204 in k27200 in chicken.irregex#cset-intersection in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_27206,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27208,a[2]=t3,a[3]=((C_word)li332),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_27208(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* intersect in k27204 in k27200 in chicken.irregex#cset-intersection in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27208(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_27208,5,t0,t1,t2,t3,t4);} a=C_alloc(11); t5=C_i_nullp(t2); t6=(C_truep(t5)?t5:C_i_nullp(t3)); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27225,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3812: ##sys#fast-reverse */ t8=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=C_i_car(t2); t8=C_i_car(t3); t9=t8; t10=C_i_cdr(t7); t11=C_i_car(t9); if(C_truep(C_i_char_lessp(t10,t11))){ t12=t2; t13=C_u_i_cdr(t12); /* irregex-core.scm:3817: intersect */ t29=t1; t30=t13; t31=t3; t32=t4; t1=t29; t2=t30; t3=t31; t4=t32; goto loop;} else{ t12=C_u_i_car(t7); t13=C_u_i_cdr(t9); if(C_truep(C_i_char_greaterp(t12,t13))){ t14=t3; t15=C_u_i_cdr(t14); /* irregex-core.scm:3819: intersect */ t29=t1; t30=t2; t31=t15; t32=t4; t1=t29; t2=t30; t3=t31; t4=t32; goto loop;} else{ t14=C_u_i_car(t9); t15=C_u_i_car(t7); t16=C_i_char_lessp(t14,t15); t17=(C_truep(t16)?t15:t14); t18=C_u_i_cdr(t7); t19=C_u_i_cdr(t9); t20=C_i_char_lessp(t18,t19); t21=(C_truep(t20)?t18:t19); t22=C_a_i_cons(&a,2,t17,t21); t23=t22; t24=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27263,a[2]=t9,a[3]=t23,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=t1,tmp=(C_word)a,a+=8,tmp); t25=C_u_i_cdr(t7); t26=C_u_i_cdr(t23); if(C_truep(C_i_char_greaterp(t25,t26))){ t27=t24; f_27263(t27,t2);} else{ t27=t2; t28=t24; f_27263(t28,C_u_i_cdr(t27));}}}}} /* k27223 in intersect in k27204 in k27200 in chicken.irregex#cset-intersection in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27225,2,av);} /* irregex-core.scm:3812: scheme#list->vector */ t2=*((C_word*)lf[407]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k27261 in intersect in k27204 in k27200 in chicken.irregex#cset-intersection in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27263(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_27263,2,t0,t1);} a=C_alloc(3); t2=C_u_i_cdr(((C_word*)t0)[2]); t3=C_u_i_cdr(((C_word*)t0)[3]); if(C_truep(C_i_char_greaterp(t2,t3))){ t4=((C_word*)t0)[4]; t5=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[5]); /* irregex-core.scm:3823: intersect */ t6=((C_word*)((C_word*)t0)[6])[1]; f_27208(t6,((C_word*)t0)[7],t1,t4,t5);} else{ t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); t6=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[5]); /* irregex-core.scm:3823: intersect */ t7=((C_word*)((C_word*)t0)[6])[1]; f_27208(t7,((C_word*)t0)[7],t1,t5,t6);}} /* chicken.irregex#cset-complement in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27320(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_27320,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27328,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3830: sre->cset */ f_26215(t3,lf[53],C_SCHEME_END_OF_LIST);} /* k27326 in chicken.irregex#cset-complement in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27328,2,av);} /* irregex-core.scm:3830: cset-difference */ f_26998(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} /* chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27330(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_27330,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27338,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3834: scheme#vector->list */ t4=*((C_word*)lf[163]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_27338,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27340,a[2]=t3,a[3]=((C_word)li335),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_27340(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27340(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_27340,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27354,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3835: ##sys#fast-reverse */ t5=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27360,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t5=C_i_caar(t2); if(C_truep(C_u_i_char_alphabeticp(t5))){ t6=t2; t7=C_u_i_car(t6); t8=C_u_i_cdr(t7); t9=t4; f_27360(t9,C_u_i_char_alphabeticp(t8));} else{ t6=t4; f_27360(t6,C_SCHEME_FALSE);}}} /* k27352 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27354,2,av);} /* irregex-core.scm:3835: scheme#list->vector */ t2=*((C_word*)lf[407]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27360(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,0,2)))){ C_save_and_reclaim_args((void *)trf_27360,2,t0,t1);} a=C_alloc(22); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27369,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27373,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27377,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27381,a[2]=((C_word*)t0)[2],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27405,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27415,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3841: ##sys#fast-reverse */ t10=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27424,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27428,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27432,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27436,a[2]=((C_word*)t0)[2],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27446,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:3846: ##sys#fast-reverse */ t9=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k27367 in k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27369,2,av);} /* irregex-core.scm:3838: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_27340(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k27371 in k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27373,2,av);} /* irregex-core.scm:3839: ##sys#fast-reverse */ t2=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k27375 in k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27377,2,av);} /* irregex-core.scm:3840: scheme#vector->list */ t2=*((C_word*)lf[163]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k27379 in k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_27381,2,av);} a=C_alloc(5); t2=C_i_caar(((C_word*)t0)[2]); t3=C_u_i_char_upper_casep(t2); t4=(C_truep(t3)?C_u_i_char_downcase(t2):C_u_i_char_upcase(t2)); t5=C_i_cdar(((C_word*)t0)[2]); t6=C_u_i_char_upper_casep(t5); t7=(C_truep(t6)?C_u_i_char_downcase(t5):C_u_i_char_upcase(t5)); t8=C_a_i_cons(&a,2,t4,t7); t9=C_a_i_vector1(&a,1,t8); /* irregex-core.scm:3841: cset-union */ t10=lf[162];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t9; f_26803(4,av2);}} /* k27403 in k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){ C_save_and_reclaim((void *)f_27405,2,av);} a=C_alloc(2); t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_vector1(&a,1,t3); /* irregex-core.scm:3841: cset-union */ t5=lf[162];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t4; f_26803(4,av2);}} /* k27413 in k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27415,2,av);} /* irregex-core.scm:3841: scheme#list->vector */ t2=*((C_word*)lf[407]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k27422 in k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27424,2,av);} /* irregex-core.scm:3845: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_27340(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k27426 in k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27428,2,av);} /* irregex-core.scm:3845: ##sys#fast-reverse */ t2=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k27430 in k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27432,2,av);} /* irregex-core.scm:3845: scheme#vector->list */ t2=*((C_word*)lf[163]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k27434 in k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){ C_save_and_reclaim((void *)f_27436,2,av);} a=C_alloc(2); t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_vector1(&a,1,t3); /* irregex-core.scm:3846: cset-union */ t5=lf[162];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t4; f_26803(4,av2);}} /* k27444 in k27358 in lp in k27336 in chicken.irregex#cset-case-insensitive in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27446,2,av);} /* irregex-core.scm:3846: scheme#list->vector */ t2=*((C_word*)lf[407]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(c<6) C_bad_min_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +8,c,4)))){ C_save_and_reclaim((void*)f_27461,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+8); t6=C_build_rest(&a,c,6,av); C_word t7; C_word t8; C_word t9; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27465,a[2]=t5,a[3]=t3,a[4]=t1,a[5]=t4,a[6]=t6,a[7]=t2,tmp=(C_word)a,a+=8,tmp); t8=C_i_stringp(t5); if(C_truep(C_i_not(t8))){ /* irregex-core.scm:3853: chicken.base#error */ t9=*((C_word*)lf[30]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t7; av2[2]=lf[409]; av2[3]=lf[412]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t9=t7;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_27465(2,av2);}}} /* k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_27465,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27468,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:3854: irregex */ t3=*((C_word*)lf[217]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_27468,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27471,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3855: irregex-new-matches */ f_7512(t3,t2);} /* k27469 in k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_27471,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27474,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[7]))){ t4=((C_word*)t0)[7]; t5=t3; f_27474(t5,C_u_i_car(t4));} else{ t4=t3; f_27474(t4,C_SCHEME_FALSE);}} /* k27472 in k27469 in k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27474(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){ C_save_and_reclaim_args((void *)trf_27474,2,t0,t1);} a=C_alloc(13); t2=(C_truep(t1)?t1:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27646,a[2]=((C_word)li337),tmp=(C_word)a,a+=3,tmp)); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27480,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[8]))){ t5=((C_word*)t0)[8]; t6=C_u_i_cdr(t5); t7=C_i_pairp(t6); t8=t4; f_27480(t8,(C_truep(t7)?C_i_cadr(((C_word*)t0)[8]):C_fix(0)));} else{ t5=t4; f_27480(t5,C_fix(0));}} /* k27478 in k27472 in k27469 in k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27480(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_27480,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27483,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[9]))){ t4=((C_word*)t0)[9]; t5=C_u_i_cdr(t4); if(C_truep(C_i_pairp(t5))){ t6=C_i_cddr(((C_word*)t0)[9]); t7=C_i_pairp(t6); t8=t3; f_27483(t8,(C_truep(t7)?C_i_caddr(((C_word*)t0)[9]):C_i_string_length(((C_word*)t0)[2])));} else{ t6=t3; f_27483(t6,C_i_string_length(((C_word*)t0)[2]));}} else{ t4=t3; f_27483(t4,C_i_string_length(((C_word*)t0)[2]));}} /* k27481 in k27478 in k27472 in k27469 in k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27483(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,0,4)))){ C_save_and_reclaim_args((void *)trf_27483,2,t0,t1);} a=C_alloc(25); t2=t1; t3=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t2); t4=t3; t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[3]); t6=t5; t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27492,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t6,a[9]=((C_word*)t0)[8],a[10]=t4,a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[9],tmp=(C_word)a,a+=13,tmp); if(C_truep(C_i_integerp(((C_word*)t0)[3]))){ t8=C_i_exactp(((C_word*)t0)[3]); if(C_truep(C_i_not(t8))){ /* irregex-core.scm:3864: chicken.base#error */ t9=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t7; av2[2]=lf[409]; av2[3]=lf[411]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t9=t7;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_27492(2,av2);}}} else{ /* irregex-core.scm:3864: chicken.base#error */ t8=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=lf[409]; av2[3]=lf[411]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* k27490 in k27481 in k27478 in k27472 in k27469 in k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_27492,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); if(C_truep(C_i_integerp(((C_word*)t0)[3]))){ t3=C_i_exactp(((C_word*)t0)[3]); if(C_truep(C_i_not(t3))){ /* irregex-core.scm:3866: chicken.base#error */ t4=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[409]; av2[3]=lf[410]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_27495(2,av2);}}} else{ /* irregex-core.scm:3866: chicken.base#error */ t3=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[409]; av2[3]=lf[410]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k27493 in k27490 in k27481 in k27478 in k27472 in k27469 in k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_27495,2,av);} a=C_alloc(13); t2=lf[284]; t3=C_i_setslot(((C_word*)t0)[2],C_fix(3),lf[284]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_27503,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word)li338),tmp=(C_word)a,a+=11,tmp)); t7=((C_word*)t5)[1]; f_27503(t7,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);} /* lp in k27493 in k27490 in k27481 in k27478 in k27472 in k27469 in k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27503(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,7)))){ C_save_and_reclaim_args((void *)trf_27503,5,t0,t1,t2,t3,t4);} a=C_alloc(12); t5=t3; if(C_truep(C_fixnum_greater_or_equal_p(t5,((C_word*)t0)[2]))){ /* irregex-core.scm:3870: finish */ t6=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_27516,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3871: irregex-search/matches */ f_18822(t6,((C_word*)t0)[6],lf[284],((C_word*)t0)[9],t2,t3,((C_word*)t0)[7]);}} /* k27514 in lp in k27493 in k27490 in k27481 in k27478 in k27472 in k27469 in k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_27516,2,av);} a=C_alloc(10); if(C_truep(C_i_not(t1))){ /* irregex-core.scm:3879: finish */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_slot(t1,C_fix(1)); t3=C_fixnum_times(C_fix(0),C_fix(4)); t4=C_fixnum_plus(C_fix(3),t3); t5=C_slot(t2,t4); t6=t5; t7=((C_word*)t0)[4]; t8=C_eqp(t6,t7); if(C_truep(t8)){ t9=C_fixnum_plus(t6,C_fix(1)); t10=C_a_i_list3(&a,3,((C_word*)t0)[6],t9,((C_word*)t0)[7]); t11=C_fixnum_plus(t6,C_fix(1)); /* irregex-core.scm:3883: lp */ t12=((C_word*)((C_word*)t0)[8])[1]; f_27503(t12,((C_word*)t0)[3],t10,t11,((C_word*)t0)[5]);} else{ t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27552,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t6,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:3884: kons */ t10=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[4]; av2[3]=t1; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}} /* k27550 in k27514 in lp in k27493 in k27490 in k27481 in k27478 in k27472 in k27469 in k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_27552,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* irregex-core.scm:3885: irregex-reset-matches! */ f_7535(t3,((C_word*)t0)[9]);} /* k27553 in k27550 in k27514 in lp in k27493 in k27490 in k27481 in k27478 in k27472 in k27469 in k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_27555,2,av);} a=C_alloc(9); t2=C_slot(((C_word*)t0)[2],C_fix(4)); t3=C_fixnum_and(t2,C_fix(1)); t4=C_eqp(C_fix(1),t3); if(C_truep(t4)){ /* irregex-core.scm:3890: finish */ t5=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=C_a_i_list3(&a,3,((C_word*)t0)[7],((C_word*)t0)[5],((C_word*)t0)[8]); /* irregex-core.scm:3891: lp */ t6=((C_word*)((C_word*)t0)[9])[1]; f_27503(t6,((C_word*)t0)[4],t5,((C_word*)t0)[5],((C_word*)t0)[6]);}} /* f_27646 in k27472 in k27469 in k27466 in k27463 in chicken.irregex#irregex-fold/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_27646,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.irregex#irregex-fold in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_27663,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27667,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t6=C_i_closurep(t3); if(C_truep(C_i_not(t6))){ /* irregex-core.scm:3894: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[409]; av2[3]=lf[414]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_27667(2,av2);}}} /* k27665 in chicken.irregex#irregex-fold in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_27667,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27668,a[2]=((C_word*)t0)[2],a[3]=((C_word)li340),tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=lf[408]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; av2[5]=((C_word*)t0)[5]; C_apply(6,av2);}} /* kons2 in k27665 in chicken.irregex#irregex-fold in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_27668,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27676,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:3895: irregex-copy-matches */ f_7544(t5,t3);} /* k27674 in kons2 in k27665 in chicken.irregex#irregex-fold in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_27676,2,av);} /* irregex-core.scm:3895: kons */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word *a; if(c<7) C_bad_min_argc_2(c,7,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-7)*C_SIZEOF_PAIR +8,c,2)))){ C_save_and_reclaim((void*)f_27691,c,av);} a=C_alloc((c-7)*C_SIZEOF_PAIR+8); t7=C_build_rest(&a,c,7,av); C_word t8; C_word t9; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27695,a[2]=t6,a[3]=t5,a[4]=t3,a[5]=t1,a[6]=t4,a[7]=t7,tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3899: irregex */ t9=*((C_word*)lf[217]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_27695,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27698,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:3900: irregex-new-matches */ f_7512(t3,t2);} /* k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_27698,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27701,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[8]))){ t4=((C_word*)t0)[8]; t5=t3; f_27701(t5,C_u_i_car(t4));} else{ t4=t3; f_27701(t4,C_SCHEME_FALSE);}} /* k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27701(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,0,5)))){ C_save_and_reclaim_args((void *)trf_27701,2,t0,t1);} a=C_alloc(19); t2=(C_truep(t1)?t1:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27866,a[2]=((C_word)li342),tmp=(C_word)a,a+=3,tmp)); t3=t2; t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27707,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27848,a[2]=t4,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[9]))){ t6=((C_word*)t0)[9]; t7=C_u_i_cdr(t6); t8=t5; f_27848(t8,C_i_pairp(t7));} else{ t6=t5; f_27848(t6,C_SCHEME_FALSE);}} /* k27705 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_27707,2,av);} a=C_alloc(15); t2=t1; t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_27713,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t4,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[2],a[10]=t2,a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); t6=C_i_integerp(t2); if(C_truep(C_i_not(t6))){ /* irregex-core.scm:3906: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[416]; av2[3]=lf[417]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_27713(2,av2);}}} /* k27711 in k27705 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_27713,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=C_i_setslot(((C_word*)t0)[3],C_fix(3),t2); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27721,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li343),tmp=(C_word)a,a+=10,tmp)); t7=((C_word*)t5)[1]; f_27721(t7,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* lp in k27711 in k27705 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27721(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,7)))){ C_save_and_reclaim_args((void *)trf_27721,5,t0,t1,t2,t3,t4);} a=C_alloc(12); if(C_truep(C_i_not(t2))){ /* irregex-core.scm:3910: finish */ t5=((C_word*)t0)[2];{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_27734,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); /* irregex-core.scm:3911: irregex-search/matches */ f_18822(t5,((C_word*)t0)[5],((C_word*)t0)[3],((C_word*)t0)[8],t2,t3,((C_word*)t0)[6]);}} /* k27732 in lp in k27711 in k27705 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_27734,2,av);} a=C_alloc(15); t2=t1; if(C_truep(C_i_not(t2))){ /* irregex-core.scm:3913: finish */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=C_slot(t2,C_fix(1)); t4=C_slot(t3,C_fix(2)); t5=t4; t6=C_slot(t2,C_fix(1)); t7=C_fixnum_times(C_fix(0),C_fix(4)); t8=C_fixnum_plus(C_fix(3),t7); t9=C_slot(t6,t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_27772,a[2]=((C_word*)t0)[7],a[3]=t10,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=t5,a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[4],a[13]=((C_word*)t0)[5],a[14]=t2,tmp=(C_word)a,a+=15,tmp); t12=C_eqp(t5,((C_word*)t0)[4]); if(C_truep(t12)){ t13=((C_word*)t0)[5]; t14=t11; f_27772(t14,C_eqp(t10,t13));} else{ t13=t11; f_27772(t13,C_SCHEME_FALSE);}}} /* k27770 in k27732 in lp in k27711 in k27705 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27772(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_27772,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_vector_ref(t2,C_fix(3)); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27808,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:3917: g5489 */ t5=t3;{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27811,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:3921: kons */ t3=((C_word*)t0)[11];{ C_word av2[6]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[12]; av2[3]=((C_word*)t0)[13]; av2[4]=((C_word*)t0)[14]; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k27782 in k27806 in k27770 in k27732 in lp in k27711 in k27705 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_27784,2,av);} a=C_alloc(6); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27794,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:3919: g5494 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k27792 in k27782 in k27806 in k27770 in k27732 in lp in k27711 in k27705 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_27794,2,av);} /* irregex-core.scm:3919: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_27721(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* k27806 in k27770 in k27732 in lp in k27711 in k27705 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_27808,2,av);} a=C_alloc(6); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],t1))){ t2=((C_word*)t0)[3]; t3=C_i_vector_ref(t2,C_fix(0)); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27784,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:3918: g5492 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:3920: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_27721(t3,((C_word*)t0)[5],((C_word*)t0)[7],t2,((C_word*)t0)[6]);}} /* k27809 in k27770 in k27732 in lp in k27711 in k27705 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_27811,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27814,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:3922: irregex-reset-matches! */ f_7535(t3,((C_word*)t0)[8]);} /* k27812 in k27809 in k27770 in k27732 in lp in k27711 in k27705 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_27814,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(4)); t3=C_fixnum_and(t2,C_fix(1)); t4=C_eqp(C_fix(1),t3); if(C_truep(t4)){ /* irregex-core.scm:3927: finish */ t5=((C_word*)t0)[3];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ /* irregex-core.scm:3928: lp */ t5=((C_word*)((C_word*)t0)[8])[1]; f_27721(t5,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} /* k27846 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_27848(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_27848,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_i_cadr(((C_word*)t0)[3]); f_27707(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=C_i_vector_ref(t2,C_fix(2)); /* irregex-core.scm:3902: g5474 */ t4=t3;{ C_word av2[3]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* f_27866 in k27699 in k27696 in k27693 in chicken.irregex#irregex-fold/chunked/fast in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_27866,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.irregex#irregex-fold/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_27873,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27877,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t6=C_i_closurep(t3); if(C_truep(C_i_not(t6))){ /* irregex-core.scm:3931: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[416]; av2[3]=lf[419]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_27877(2,av2);}}} /* k27875 in chicken.irregex#irregex-fold/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_27877,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27878,a[2]=((C_word*)t0)[2],a[3]=((C_word)li345),tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=lf[415]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; av2[5]=((C_word*)t0)[5]; C_apply(6,av2);}} /* kons2 in k27875 in chicken.irregex#irregex-fold/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_27878,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27886,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:3932: irregex-copy-matches */ f_7544(t6,t4);} /* k27884 in kons2 in k27875 in chicken.irregex#irregex-fold/chunked in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_27886,2,av);} /* irregex-core.scm:3932: kons */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=t1; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* chicken.irregex#irregex-replace in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_27901,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27905,a[2]=t1,a[3]=t3,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t6=C_i_stringp(t3); if(C_truep(C_i_not(t6))){ /* irregex-core.scm:3936: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[422]; av2[3]=lf[423]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_27905(2,av2);}}} /* k27903 in chicken.irregex#irregex-replace in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_27905,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27908,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3937: irregex-search */ t3=*((C_word*)lf[285]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k27906 in k27903 in chicken.irregex#irregex-replace in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_27908,2,av);} a=C_alloc(6); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27922,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(1)); t5=C_fixnum_times(C_fix(0),C_fix(4)); t6=C_fixnum_plus(C_fix(3),t5); t7=C_slot(t4,t6); t8=((C_word*)t0)[3]; t9=C_block_size(t8); /* irregex-core.scm:3940: scheme#substring */ t10=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t7; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k27920 in k27906 in k27903 in chicken.irregex#irregex-replace in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_27922,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27926,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27930,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3941: irregex-apply-match */ f_28066(t4,((C_word*)t0)[3],((C_word*)t0)[5]);} /* k27924 in k27920 in k27906 in k27903 in chicken.irregex#irregex-replace in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_27926,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* irregex-core.scm:3939: string-cat-reverse */ f_8972(((C_word*)t0)[3],t2);} /* k27928 in k27920 in k27906 in k27903 in chicken.irregex#irregex-replace in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_27930,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27938,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_slot(((C_word*)t0)[3],C_fix(1)); t5=C_slot(t4,C_fix(1)); /* irregex-core.scm:3942: scheme#substring */ t6=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k27936 in k27928 in k27920 in k27906 in k27903 in chicken.irregex#irregex-replace in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_27938,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* irregex-core.scm:3941: scheme#append */ t3=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.irregex#irregex-replace/all in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_27980,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27984,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t6=C_i_stringp(t3); if(C_truep(C_i_not(t6))){ /* irregex-core.scm:3947: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[425]; av2[3]=lf[426]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_27984(2,av2);}}} /* k27982 in chicken.irregex#irregex-replace/all in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_27984,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27989,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li348),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28033,a[2]=((C_word*)t0)[2],a[3]=((C_word)li349),tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3948: irregex-fold/fast */ t4=lf[408];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t2; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=((C_word*)t0)[2]; av2[6]=t3; f_27461(7,av2);}} /* a27988 in k27982 in chicken.irregex#irregex-replace/all in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_27989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_27989,5,av);} a=C_alloc(7); t5=t3; t6=C_slot(t5,C_fix(1)); t7=C_slot(t6,C_fix(1)); t8=t7; t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28017,a[2]=t2,a[3]=t8,a[4]=t4,a[5]=t1,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:3952: irregex-apply-match */ f_28066(t9,t3,((C_word*)t0)[3]);} /* k28015 in a27988 in k27982 in chicken.irregex#irregex-replace/all in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_28017,2,av);} a=C_alloc(5); t2=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[3]))){ t4=((C_word*)t0)[4]; /* irregex-core.scm:3952: scheme#append */ t5=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28031,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:3955: scheme#substring */ t5=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k28029 in k28015 in a27988 in k27982 in chicken.irregex#irregex-replace/all in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_28031,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:3952: scheme#append */ t3=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a28032 in k27982 in chicken.irregex#irregex-replace/all in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_28033,4,av);} a=C_alloc(4); t4=C_i_string_length(((C_word*)t0)[2]); t5=t2; if(C_truep(C_fixnum_greater_or_equal_p(t5,t4))){ t6=t3; /* irregex-core.scm:3960: string-cat-reverse */ f_8972(t1,t6);} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28054,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:3962: scheme#substring */ t7=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k28052 in a28032 in k27982 in chicken.irregex#irregex-replace/all in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_28054,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:3960: string-cat-reverse */ f_8972(((C_word*)t0)[3],t2);} /* chicken.irregex#irregex-apply-match in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28066(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_28066,3,t1,t2,t3);} a=C_alloc(7); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28072,a[2]=t5,a[3]=t2,a[4]=((C_word)li352),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_28072(t7,t1,t3,C_SCHEME_END_OF_LIST);} /* lp in chicken.irregex#irregex-apply-match in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28072(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_28072,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); if(C_truep(C_i_integerp(t4))){ t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28099,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t6,tmp=(C_word)a,a+=6,tmp); t8=t2; t9=C_u_i_car(t8); /* irregex-core.scm:3971: irregex-match-substring */ t10=*((C_word*)lf[40]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t5=t2; t6=C_u_i_car(t5); if(C_truep(C_i_closurep(t6))){ t7=t2; t8=C_u_i_cdr(t7); t9=t2; t10=C_u_i_car(t9); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28124,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:3973: g5550 */ t12=t10;{ C_word av2[3]; av2[0]=t12; av2[1]=t11; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t7=t2; t8=C_u_i_car(t7); if(C_truep(C_i_symbolp(t8))){ t9=t2; t10=C_u_i_car(t9); t11=C_eqp(t10,lf[428]); if(C_truep(t11)){ t12=t2; t13=C_u_i_cdr(t12); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28150,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t13,tmp=(C_word)a,a+=6,tmp); t15=((C_word*)t0)[3]; t16=C_slot(t15,C_fix(1)); t17=C_slot(t16,C_fix(0)); t18=C_i_car(t17); t19=((C_word*)t0)[3]; t20=C_slot(t19,C_fix(1)); t21=C_slot(t20,C_fix(1)); /* irregex-core.scm:3978: scheme#substring */ t22=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t22; av2[1]=t14; av2[2]=t18; av2[3]=C_fix(0); av2[4]=t21; ((C_proc)(void*)(*((C_word*)t22+1)))(5,av2);}} else{ t12=C_eqp(t10,lf[429]); if(C_truep(t12)){ t13=((C_word*)t0)[3]; t14=C_slot(t13,C_fix(1)); t15=C_slot(t14,C_fix(0)); t16=C_i_car(t15); t17=t2; t18=C_u_i_cdr(t17); t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28214,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t18,tmp=(C_word)a,a+=6,tmp); t20=((C_word*)t0)[3]; t21=C_slot(t20,C_fix(1)); t22=C_fixnum_times(C_fix(0),C_fix(4)); t23=C_fixnum_plus(C_fix(3),t22); t24=C_slot(t21,t23); t25=C_i_string_length(t16); /* irregex-core.scm:3985: scheme#substring */ t26=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t26; av2[1]=t19; av2[2]=t16; av2[3]=t24; av2[4]=t25; ((C_proc)(void*)(*((C_word*)t26+1)))(5,av2);}} else{ t13=t2; t14=C_u_i_car(t13); t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28276,a[2]=t14,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:3991: irregex-match-names */ t16=*((C_word*)lf[19]+1);{ C_word av2[3]; av2[0]=t16; av2[1]=t15; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}}} else{ t9=t2; t10=C_u_i_cdr(t9); t11=t2; t12=C_u_i_car(t11); t13=C_a_i_cons(&a,2,t12,t3); /* irregex-core.scm:3996: lp */ t27=t1; t28=t10; t29=t13; t1=t27; t2=t28; t3=t29; goto loop;}}}}} /* k28097 in lp in chicken.irregex#irregex-apply-match in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_28099,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]); /* irregex-core.scm:3970: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_28072(t4,((C_word*)t0)[4],((C_word*)t0)[5],t3);} else{ t2=C_a_i_cons(&a,2,lf[427],((C_word*)t0)[2]); /* irregex-core.scm:3970: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_28072(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}} /* k28122 in lp in chicken.irregex#irregex-apply-match in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_28124,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:3973: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_28072(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k28148 in lp in chicken.irregex#irregex-apply-match in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_28150,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:3977: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_28072(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k28212 in lp in chicken.irregex#irregex-apply-match in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_28214,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:3984: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_28072(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* g5577 in k28274 in lp in chicken.irregex#irregex-apply-match in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28246(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_28246,3,t0,t1,t2);} a=C_alloc(3); t3=C_i_cdr(t2); t4=C_i_cdr(((C_word*)t0)[2]); t5=C_a_i_cons(&a,2,t3,t4); /* irregex-core.scm:3992: lp */ t6=((C_word*)((C_word*)t0)[3])[1]; f_28072(t6,t1,t5,((C_word*)t0)[4]);} /* k28274 in lp in chicken.irregex#irregex-apply-match in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_28276,2,av);} a=C_alloc(6); t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28246,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word)li351),tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:3990: g5577 */ t4=t3; f_28246(t4,((C_word*)t0)[6],t2);} else{ t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); /* irregex-core.scm:3994: chicken.base#error */ t5=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[6]; av2[2]=lf[430]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* chicken.irregex#irregex-extract in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_28297,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28301,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t6=C_i_stringp(t3); if(C_truep(C_i_not(t6))){ /* irregex-core.scm:3999: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[432]; av2[3]=lf[433]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_28301(2,av2);}}} /* k28299 in chicken.irregex#irregex-extract in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,8)))){ C_save_and_reclaim((void *)f_28301,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28306,a[2]=((C_word)li354),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28316,a[2]=((C_word)li355),tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[408]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; av2[5]=C_SCHEME_END_OF_LIST; av2[6]=((C_word*)t0)[4]; av2[7]=t3; av2[8]=((C_word*)t0)[5]; C_apply(9,av2);}} /* a28305 in k28299 in chicken.irregex#irregex-extract in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_28306,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28314,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:4002: irregex-match-substring */ t6=*((C_word*)lf[40]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k28312 in a28305 in k28299 in chicken.irregex#irregex-extract in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_28314,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a28315 in k28299 in chicken.irregex#irregex-extract in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28316,4,av);} /* irregex-core.scm:4005: ##sys#fast-reverse */ t4=*((C_word*)lf[69]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* chicken.irregex#irregex-split in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_28332,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28336,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t6=C_i_stringp(t3); if(C_truep(C_i_not(t6))){ /* irregex-core.scm:4009: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[435]; av2[3]=lf[436]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_28336(2,av2);}}} /* k28334 in chicken.irregex#irregex-split in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_28336,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28339,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=t2; f_28339(t4,C_u_i_car(t3));} else{ t3=t2; f_28339(t3,C_fix(0));}} /* k28337 in k28334 in chicken.irregex#irregex-split in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28339(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_28339,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t4=((C_word*)t0)[5]; t5=C_u_i_cdr(t4); t6=C_i_pairp(t5); t7=t3; f_28342(t7,(C_truep(t6)?C_i_cadr(((C_word*)t0)[5]):C_i_string_length(((C_word*)t0)[2])));} else{ t4=t3; f_28342(t4,C_i_string_length(((C_word*)t0)[2]));}} /* k28340 in k28337 in k28334 in chicken.irregex#irregex-split in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28342(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,8)))){ C_save_and_reclaim_args((void *)trf_28342,2,t0,t1);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28347,a[2]=((C_word*)t0)[2],a[3]=((C_word)li357),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28405,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li358),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:4012: irregex-fold/fast */ t5=lf[408];{ C_word av2[9]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t3; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=((C_word*)t0)[2]; av2[6]=t4; av2[7]=((C_word*)t0)[5]; av2[8]=t2; f_27461(9,av2);}} /* a28346 in k28340 in k28337 in k28334 in chicken.irregex#irregex-split in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_28347,5,av);} a=C_alloc(4); t5=t3; t6=C_slot(t5,C_fix(1)); t7=C_slot(t6,C_fix(1)); t8=t2; t9=C_eqp(t8,t7); if(C_truep(t9)){ t10=t4; t11=t1;{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28361,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t11=t3; t12=C_slot(t11,C_fix(1)); t13=C_slot(t12,C_fix(1)); /* irregex-core.scm:4017: scheme#substring */ t14=*((C_word*)lf[46]+1);{ C_word *av2=av; av2[0]=t14; av2[1]=t10; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}} /* k28359 in a28346 in k28340 in k28337 in k28334 in chicken.irregex#irregex-split in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_28361,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a28404 in k28340 in k28337 in k28334 in chicken.irregex#irregex-split in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_28405,4,av);} a=C_alloc(4); t4=t2; t5=C_eqp(t4,((C_word*)t0)[2]); if(C_truep(t5)){ t6=t3; /* irregex-core.scm:4021: ##sys#fast-reverse */ t7=*((C_word*)lf[69]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28423,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:4021: scheme#substring */ t7=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k28421 in a28404 in k28340 in k28337 in k28334 in chicken.irregex#irregex-split in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_28423,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:4021: ##sys#fast-reverse */ t3=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* chicken.irregex#string-scan-char in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_28457,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t5=C_i_string_length(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28468,a[2]=t6,a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t4))){ t8=t4; t9=t7; f_28468(t9,C_u_i_car(t8));} else{ t8=t7; f_28468(t8,C_fix(0));}} /* k28466 in chicken.irregex#string-scan-char in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28468(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_28468,2,t0,t1);} a=C_alloc(9); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28470,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word)li360),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_28470(t5,((C_word*)t0)[5],t1);} /* scan in k28466 in chicken.irregex#string-scan-char in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28470(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_28470,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=((C_word*)t0)[3]; t6=C_i_string_ref(((C_word*)t0)[4],t2); t7=C_eqp(t5,t6); if(C_truep(t7)){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=t2; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); /* irregex-utils.scm:14: scan */ t11=t1; t12=t9; t1=t11; t2=t12; goto loop;}}} /* chicken.irregex#irregex-quote in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_28500,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28508,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28512,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#string->list */ t5=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k28506 in chicken.irregex#irregex-quote in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28508,2,av);} /* ##sys#list->string */ t2=*((C_word*)lf[438]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k28510 in chicken.irregex#irregex-quote in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_28512,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28514,a[2]=t3,a[3]=((C_word)li362),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_28514(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* loop in k28510 in chicken.irregex#irregex-quote in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28514(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_28514,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ /* irregex-utils.scm:20: ##sys#fast-reverse */ t4=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28533,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* irregex-utils.scm:22: string-scan-char */ t7=lf[54];{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=lf[439]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k28531 in loop in k28510 in chicken.irregex#irregex-quote in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_28533,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,C_make_character(92),((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,((C_word*)t0)[4],t4); /* irregex-utils.scm:23: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_28514(t6,((C_word*)t0)[6],t3,t5);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[3]); /* irregex-utils.scm:24: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_28514(t5,((C_word*)t0)[6],t3,t4);}} /* chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_28557,3,av);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=lf[441]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_cdr(t2); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_u_i_car(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28694,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:42: scheme#make-vector */ t5=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_fix(256); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k28572 in k28729 in lp2 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_28574,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28581,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#list->string */ t3=*((C_word*)lf[438]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[103],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k28579 in k28572 in k28729 in lp2 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_28581,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k28602 in k28772 in lp2 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_28604,2,av);} a=C_alloc(16); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28625,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28627,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li364),tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_28627(t10,t6,((C_word*)t0)[3]);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[115],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k28623 in k28602 in k28772 in lp2 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_28625,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[444]+1); av2[3]=t1; C_apply(4,av2);}} /* map-loop5859 in k28602 in k28772 in lp2 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28627(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_28627,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_charp(t3); t5=(C_truep(t4)?C_a_i_string(&a,1,t3):t3); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); t9=C_slot(t2,C_fix(1)); t11=t1; t12=t9; t1=t11; t2=t12; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a28663 in k28772 in lp2 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28664,3,av);} t3=C_i_stringp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?t3:C_charp(t2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_28694,2,av);} a=C_alloc(7); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28699,a[2]=t2,a[3]=t4,a[4]=((C_word)li367),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_28699(t6,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE);} /* lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28699(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_28699,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28711,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word)li366),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_28711(t7,t1,C_fix(0),C_SCHEME_END_OF_LIST);} else{ t4=C_i_car(t2); t5=C_i_string_length(t4); t6=C_eqp(t5,C_fix(0)); if(C_truep(t6)){ t7=t2; t8=C_u_i_cdr(t7); /* irregex-utils.scm:60: lp1 */ t12=t1; t13=t8; t14=C_SCHEME_TRUE; t1=t12; t2=t13; t3=t14; goto loop;} else{ t7=C_i_string_ref(t4,C_fix(0)); t8=C_fix(C_character_code(t7)); t9=t8; t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28810,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* irregex-utils.scm:65: scheme#substring */ t11=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=t4; av2[3]=C_fix(1); av2[4]=t5; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}}} /* lp2 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28711(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_28711,4,t0,t1,t2,t3);} a=C_alloc(15); t4=t2; t5=C_eqp(t4,C_fix(256)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28721,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28731,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* irregex-utils.scm:47: ##sys#fast-reverse */ t8=*((C_word*)lf[69]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t6=C_make_character(C_unfix(t2)); t7=t6; t8=C_i_vector_ref(((C_word*)t0)[3],t2); t9=t2; t10=C_a_i_fixnum_plus(&a,2,t9,C_fix(1)); if(C_truep(C_i_nullp(t8))){ t11=t3; /* irregex-utils.scm:51: lp2 */ t14=t1; t15=t10; t16=t11; t1=t14; t2=t15; t3=t16; goto loop;} else{ if(C_truep(C_i_equalp(t8,lf[443]))){ t11=C_a_i_cons(&a,2,t7,t3); /* irregex-utils.scm:51: lp2 */ t14=t1; t15=t10; t16=t11; t1=t14; t2=t15; t3=t16; goto loop;} else{ t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28766,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t10,tmp=(C_word)a,a+=6,tmp); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28774,a[2]=t7,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:55: irregex-opt */ t13=*((C_word*)lf[440]+1);{ C_word av2[3]; av2[0]=t13; av2[1]=t12; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}}}} /* k28719 in lp2 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_28721,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(((C_word*)t0)[3])?C_a_i_list(&a,2,lf[131],t1):t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k28729 in lp2 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_28731,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=t1; t4=C_i_cdr(t3); if(C_truep(C_i_nullp(t4))){ t5=C_u_i_car(t3); t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28574,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:31: every */ f_9201(t5,*((C_word*)lf[442]+1),t3);}} /* k28764 in lp2 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_28766,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-utils.scm:51: lp2 */ t3=((C_word*)((C_word*)t0)[3])[1]; f_28711(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k28772 in lp2 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_28774,2,av);} a=C_alloc(13); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=t2; t5=C_i_cdr(t4); if(C_truep(C_i_nullp(t5))){ t6=C_u_i_car(t4); t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28604,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28664,a[2]=((C_word)li365),tmp=(C_word)a,a+=3,tmp); /* irregex-utils.scm:35: every */ f_9201(t6,t7,t4);}} /* k28808 in lp1 in k28692 in chicken.irregex#irregex-opt in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_28810,2,av);} a=C_alloc(3); t2=C_i_vector_ref(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,t1,t2); t4=C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],t3); t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); /* irregex-utils.scm:66: lp1 */ t7=((C_word*)((C_word*)t0)[5])[1]; f_28699(t7,((C_word*)t0)[6],t6,((C_word*)t0)[7]);} /* chicken.irregex#cset->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28824(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_28824,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28828,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:71: chicken.base#open-output-string */ t4=*((C_word*)lf[449]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k28826 in chicken.irregex#cset->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_28828,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28831,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28836,a[2]=t5,a[3]=t2,a[4]=((C_word)li369),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_28836(t7,t3,((C_word*)t0)[3]);} /* k28829 in k28826 in chicken.irregex#cset->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28831,2,av);} /* irregex-utils.scm:82: chicken.base#get-output-string */ t2=*((C_word*)lf[446]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* lp in k28826 in chicken.irregex#cset->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28836(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){ C_save_and_reclaim_args((void *)trf_28836,3,t0,t1,t2);} a=C_alloc(16); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28846,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=t2; t5=C_u_i_car(t4); if(C_truep(C_i_pairp(t5))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28857,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28879,a[2]=t6,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t8=C_i_caar(t2); t9=C_a_i_string(&a,1,t8); /* irregex-utils.scm:77: irregex-quote */ t10=*((C_word*)lf[437]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t7; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28894,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_car(t7); t9=C_a_i_string(&a,1,t8); /* irregex-utils.scm:80: irregex-quote */ t10=*((C_word*)lf[437]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t6; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k28844 in lp in k28826 in chicken.irregex#cset->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28846,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-utils.scm:81: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_28836(t4,((C_word*)t0)[4],t3);} /* k28855 in lp in k28826 in chicken.irregex#cset->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_28857,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* ##sys#write-char/port */ t3=*((C_word*)lf[448]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(45); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k28858 in k28855 in lp in k28826 in chicken.irregex#cset->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_28860,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cdar(((C_word*)t0)[4]); t4=C_a_i_string(&a,1,t3); /* irregex-utils.scm:79: irregex-quote */ t5=*((C_word*)lf[437]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k28865 in k28858 in k28855 in lp in k28826 in chicken.irregex#cset->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_28867,2,av);} /* irregex-utils.scm:79: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k28877 in lp in k28826 in chicken.irregex#cset->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_28879,2,av);} /* irregex-utils.scm:77: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k28892 in lp in k28826 in chicken.irregex#cset->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_28894,2,av);} /* irregex-utils.scm:80: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_28904,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28908,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:85: chicken.base#open-output-string */ t4=*((C_word*)lf[449]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_28908,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28911,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28916,a[2]=t5,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li379),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t3; av2[2]=((C_word*)t0)[3]; f_28916(3,av2);}} /* k28909 in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28911,2,av);} /* irregex-utils.scm:153: chicken.base#get-output-string */ t2=*((C_word*)lf[446]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_28916,3,av);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[225]); t6=(C_truep(t5)?t5:C_eqp(t4,lf[115])); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28939,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t8=t2; t9=C_u_i_cdr(t8); if(C_truep(C_i_pairp(t9))){ t10=C_i_cddr(t2); if(C_truep(C_i_pairp(t10))){ t11=C_eqp(t2,((C_word*)t0)[4]); t12=t7; f_28939(t12,C_i_not(t11));} else{ t11=t7; f_28939(t11,C_SCHEME_FALSE);}} else{ t10=t7; f_28939(t10,C_SCHEME_FALSE);}} else{ t7=C_eqp(t4,lf[108]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29036,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* irregex-utils.scm:96: scheme#display */ t9=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t8; av2[2]=lf[454]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t8=C_eqp(t4,lf[120]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29078,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* irregex-utils.scm:98: scheme#display */ t10=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=lf[457]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t9=C_eqp(t4,lf[103]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29132,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* irregex-utils.scm:101: scheme#display */ t11=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t10; av2[2]=lf[460]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t10=C_eqp(t4,lf[127]); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29191,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t4,tmp=(C_word)a,a+=7,tmp); if(C_truep(t10)){ t12=t11; f_29191(t12,t10);} else{ t12=C_eqp(t4,lf[129]); if(C_truep(t12)){ t13=t11; f_29191(t13,t12);} else{ t13=C_eqp(t4,lf[131]); if(C_truep(t13)){ t14=t11; f_29191(t14,t13);} else{ t14=C_eqp(t4,lf[128]); t15=t11; f_29191(t15,(C_truep(t14)?t14:C_eqp(t4,lf[132])));}}}}}}}} else{ if(C_truep(C_i_symbolp(t2))){ t3=t2; t4=C_eqp(t3,lf[186]); t5=(C_truep(t4)?t4:C_eqp(t3,lf[195])); if(C_truep(t5)){ /* irregex-utils.scm:143: scheme#display */ t6=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t1; av2[2]=lf[479]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=C_eqp(t3,lf[187]); t7=(C_truep(t6)?t6:C_eqp(t3,lf[196])); if(C_truep(t7)){ /* irregex-utils.scm:144: scheme#display */ t8=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t1; av2[2]=lf[480]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t8=C_eqp(t3,lf[124]); t9=(C_truep(t8)?t8:C_eqp(t3,lf[125])); if(C_truep(t9)){ /* irregex-utils.scm:145: scheme#display */ t10=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t1; av2[2]=lf[481]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ /* irregex-utils.scm:146: chicken.base#error */ t10=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t1; av2[2]=lf[482]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}}} else{ if(C_truep(C_i_stringp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29636,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:148: irregex-quote */ t4=*((C_word*)lf[437]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_charp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29649,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_string(&a,1,t2); /* irregex-utils.scm:150: irregex-quote */ t5=*((C_word*)lf[437]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* irregex-utils.scm:152: chicken.base#error */ t3=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[483]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}}} /* k28937 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28939(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_28939,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28942,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* irregex-utils.scm:93: scheme#display */ t3=*((C_word*)lf[447]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[452]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_i_check_list_2(t4,lf[305]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28984,a[2]=t7,a[3]=t2,a[4]=((C_word)li372),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_28984(t9,((C_word*)t0)[4],t4);}} /* k28940 in k28937 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_28942,2,av);} a=C_alloc(11); t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_i_check_list_2(t4,lf[305]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28949,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28954,a[2]=t8,a[3]=t2,a[4]=((C_word)li371),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_28954(t10,t6,t4);} /* k28947 in k28940 in k28937 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_28949,2,av);} /* irregex-utils.scm:93: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[451]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop5959 in k28940 in k28937 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28954(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_28954,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28964,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-utils.scm:93: g5960 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k28962 in for-each-loop5959 in k28940 in k28937 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28964,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_28954(t3,((C_word*)t0)[4],t2);} /* for-each-loop5978 in k28937 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_28984(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_28984,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28994,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-utils.scm:94: g5979 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k28992 in for-each-loop5978 in k28937 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_28994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28994,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_28984(t3,((C_word*)t0)[4],t2);} /* k29034 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_29036,2,av);} a=C_alloc(11); t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_i_check_list_2(t4,lf[305]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29043,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29048,a[2]=t8,a[3]=t2,a[4]=((C_word)li373),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_29048(t10,t6,t4);} /* k29041 in k29034 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29043,2,av);} /* irregex-utils.scm:96: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[453]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop5995 in k29034 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29048(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_29048,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29058,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-utils.scm:96: g5996 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k29056 in for-each-loop5995 in k29034 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29058,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29048(t3,((C_word*)t0)[4],t2);} /* k29076 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_29078,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29081,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_cadr(((C_word*)t0)[3]); /* irregex-utils.scm:98: scheme#display */ t4=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k29079 in k29076 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_29081,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29084,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* irregex-utils.scm:98: scheme#display */ t3=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[456]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k29082 in k29079 in k29076 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_29084,2,av);} a=C_alloc(11); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_i_cddr(((C_word*)t0)[3]); t4=C_i_check_list_2(t3,lf[305]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29093,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29098,a[2]=t7,a[3]=t2,a[4]=((C_word)li374),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_29098(t9,t5,t3);} /* k29091 in k29082 in k29079 in k29076 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29093,2,av);} /* irregex-utils.scm:99: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[455]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop6014 in k29082 in k29079 in k29076 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29098(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_29098,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29108,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-utils.scm:99: g6015 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k29106 in for-each-loop6014 in k29082 in k29079 in k29076 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29108,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29098(t3,((C_word*)t0)[4],t2);} /* k29130 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_29132,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29135,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_cadr(((C_word*)t0)[4]); /* irregex-utils.scm:102: lp */ t4=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; f_28916(3,av2);}} /* k29133 in k29130 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_29135,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29136,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li375),tmp=(C_word)a,a+=5,tmp); t3=C_i_cddr(((C_word*)t0)[4]); t4=C_i_check_list_2(t3,lf[305]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29152,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29157,a[2]=t7,a[3]=t2,a[4]=((C_word)li376),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_29157(t9,t5,t3);} /* g6036 in k29133 in k29130 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29136(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_29136,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29140,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-utils.scm:103: scheme#display */ t4=*((C_word*)lf[447]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[458]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k29138 in g6036 in k29133 in k29130 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29140,2,av);} /* irregex-utils.scm:103: lp */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; f_28916(3,av2);}} /* k29150 in k29133 in k29130 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29152,2,av);} /* irregex-utils.scm:104: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[459]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop6035 in k29133 in k29130 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29157(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_29157,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29167,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-utils.scm:103: g6036 */ t5=((C_word*)t0)[3]; f_29136(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k29165 in for-each-loop6035 in k29133 in k29130 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29167,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29157(t3,((C_word*)t0)[4],t2);} /* k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29191(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_29191,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29194,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29205,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* irregex-utils.scm:108: scheme#display */ t5=*((C_word*)lf[447]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[462]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=C_i_cadr(((C_word*)t0)[2]); /* irregex-utils.scm:109: lp */ t5=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[3]; av2[0]=t5; av2[1]=t2; av2[2]=t4; f_28916(3,av2);}}} else{ t2=C_eqp(((C_word*)t0)[6],lf[463]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29261,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_cadr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t4))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29291,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-utils.scm:113: scheme#caadr */ t6=*((C_word*)lf[469]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t3; f_29261(t5,C_SCHEME_FALSE);}} else{ t3=C_eqp(((C_word*)t0)[6],lf[468]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29304,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* irregex-utils.scm:119: scheme#display */ t5=*((C_word*)lf[447]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[471]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=C_eqp(((C_word*)t0)[6],lf[245]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29325,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t4)){ t6=t5; f_29325(t6,t4);} else{ t6=C_eqp(((C_word*)t0)[6],lf[232]); if(C_truep(t6)){ t7=t5; f_29325(t7,t6);} else{ t7=C_eqp(((C_word*)t0)[6],lf[52]); t8=t5; f_29325(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],lf[179])));}}}}}} /* k29192 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29194,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); /* irregex-utils.scm:110: scheme#display */ t4=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k29203 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_29205,2,av);} a=C_alloc(11); t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_i_check_list_2(t4,lf[305]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29212,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29217,a[2]=t8,a[3]=t2,a[4]=((C_word)li377),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_29217(t10,t6,t4);} /* k29210 in k29203 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29212,2,av);} /* irregex-utils.scm:108: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[461]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop6073 in k29203 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29217(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_29217,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29227,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-utils.scm:108: g6074 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k29225 in for-each-loop6073 in k29203 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29227,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29217(t3,((C_word*)t0)[4],t2);} /* k29259 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29261(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_29261,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29264,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* irregex-utils.scm:114: scheme#display */ t3=*((C_word*)lf[447]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[466]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* irregex-utils.scm:117: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[467]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k29262 in k29259 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_29264,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29267,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29274,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29278,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-utils.scm:115: scheme#cdadr */ t5=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k29265 in k29262 in k29259 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29267,2,av);} /* irregex-utils.scm:116: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[464]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k29272 in k29262 in k29259 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29274(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29274,2,av);} /* irregex-utils.scm:115: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k29276 in k29262 in k29259 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29278,2,av);} /* irregex-utils.scm:115: cset->string */ f_28824(((C_word*)t0)[2],t1);} /* k29289 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_29291,2,av);} t2=((C_word*)t0)[2]; f_29261(t2,C_eqp(lf[468],t1));} /* k29302 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_29304,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29307,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29314,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); /* irregex-utils.scm:120: cset->string */ f_28824(t3,t5);} /* k29305 in k29302 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29307,2,av);} /* irregex-utils.scm:121: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[470]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k29312 in k29302 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29314,2,av);} /* irregex-utils.scm:120: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29325(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_29325,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_eqp(C_make_character(126),t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29334,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t4)){ t6=t5; f_29334(t6,t4);} else{ t6=((C_word*)t0)[2]; t7=C_u_i_car(t6); t8=C_eqp(lf[245],t7); if(C_truep(t8)){ t9=((C_word*)t0)[2]; t10=C_u_i_cdr(t9); if(C_truep(C_i_pairp(t10))){ t11=C_i_cadr(((C_word*)t0)[2]); t12=t5; f_29334(t12,C_eqp(lf[124],t11));} else{ t11=t5; f_29334(t11,C_SCHEME_FALSE);}} else{ t9=t5; f_29334(t9,C_SCHEME_FALSE);}}} else{ t2=C_eqp(((C_word*)t0)[6],lf[223]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[224])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29408,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* irregex-utils.scm:132: scheme#display */ t5=*((C_word*)lf[447]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[477]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); if(C_truep(C_i_stringp(t5))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29472,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t7=((C_word*)t0)[2]; t8=C_u_i_car(t7); /* ##sys#string->list */ t9=*((C_word*)lf[105]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t6; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ /* irregex-utils.scm:140: chicken.base#error */ t6=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=lf[478]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}} /* k29332 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29334(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_29334,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29337,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* irregex-utils.scm:126: scheme#display */ t3=*((C_word*)lf[447]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[473]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29371,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* irregex-utils.scm:130: sre->cset */ f_26215(t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST);}} /* k29335 in k29332 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_29337,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29340,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29347,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[4]; t5=C_u_i_car(t4); t6=C_eqp(C_make_character(126),t5); if(C_truep(t6)){ t7=((C_word*)t0)[4]; t8=C_u_i_cdr(t7); /* irregex-utils.scm:127: cset->string */ f_28824(t3,t8);} else{ t7=C_i_cddr(((C_word*)t0)[4]); /* irregex-utils.scm:127: cset->string */ f_28824(t3,t7);}} /* k29338 in k29335 in k29332 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29340,2,av);} /* irregex-utils.scm:128: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[472]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k29345 in k29335 in k29332 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29347,2,av);} /* irregex-utils.scm:127: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k29369 in k29332 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_29371,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[468],t1); /* irregex-utils.scm:130: lp */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; f_28916(3,av2);}} /* k29406 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_29408,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29411,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=C_eqp(t4,lf[223]); if(C_truep(t5)){ /* irregex-utils.scm:133: scheme#display */ t6=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=lf[476]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_29411(2,av2);}}} /* k29409 in k29406 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_29411,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29414,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* irregex-utils.scm:134: scheme#display */ t3=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[475]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k29412 in k29409 in k29406 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_29414,2,av);} a=C_alloc(11); t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_i_check_list_2(t4,lf[305]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29421,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29426,a[2]=t8,a[3]=t2,a[4]=((C_word)li378),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_29426(t10,t6,t4);} /* k29419 in k29412 in k29409 in k29406 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29421,2,av);} /* irregex-utils.scm:136: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[474]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop6128 in k29412 in k29409 in k29406 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29426(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_29426,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29436,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* irregex-utils.scm:135: g6129 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k29434 in for-each-loop6128 in k29412 in k29409 in k29406 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29436,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29426(t3,((C_word*)t0)[4],t2);} /* k29470 in k29323 in k29189 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_29472,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,lf[468],t1); /* irregex-utils.scm:139: lp */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; f_28916(3,av2);}} /* k29634 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29636,2,av);} /* irregex-utils.scm:148: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k29647 in lp in k28906 in chicken.irregex#sre->string in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29649,2,av);} /* irregex-utils.scm:150: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_29658,3,av);} a=C_alloc(6); t3=C_i_check_string_2(t2,lf[485]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29669,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29673,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#string->list */ t6=*((C_word*)lf[105]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k29667 in chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_29669,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[225],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29671 in chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_29673,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29675,a[2]=t3,a[3]=((C_word)li382),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_29675(t5,((C_word*)t0)[2],t1,C_SCHEME_TRUE);} /* loop in k29671 in chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29675(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(61,0,4)))){ C_save_and_reclaim_args((void *)trf_29675,4,t0,t1,t2,t3);} a=C_alloc(61); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=t2; t7=C_u_i_cdr(t6); if(C_truep(C_i_char_equalp(t5,C_make_character(42)))){ if(C_truep(t3)){ t8=C_a_i_list(&a,1,lf[486]); t9=C_a_i_list(&a,2,lf[179],t8); t10=C_a_i_list(&a,1,lf[487]); t11=C_a_i_list(&a,2,lf[179],t10); t12=C_a_i_list(&a,2,lf[127],t11); t13=C_a_i_list(&a,3,lf[225],t9,t12); t14=C_a_i_list(&a,1,lf[488]); t15=C_a_i_list(&a,2,lf[179],t14); t16=C_a_i_list(&a,2,lf[127],t15); t17=C_a_i_list(&a,3,lf[103],t13,t16); t18=t17; t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29706,a[2]=t1,a[3]=t18,tmp=(C_word)a,a+=4,tmp); /* irregex.scm:241: loop */ t21=t19; t22=t7; t23=C_SCHEME_FALSE; t1=t21; t2=t22; t3=t23; goto loop;} else{ t8=C_a_i_list(&a,1,lf[489]); t9=C_a_i_list(&a,2,lf[179],t8); t10=C_a_i_list(&a,2,lf[127],t9); t11=t10; t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29753,a[2]=t1,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* irregex.scm:242: loop */ t21=t12; t22=t7; t23=C_SCHEME_FALSE; t1=t21; t2=t22; t3=t23; goto loop;}} else{ if(C_truep(C_u_i_char_equalp(t5,C_make_character(63)))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29773,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex.scm:243: loop */ t21=t8; t22=t7; t23=C_SCHEME_FALSE; t1=t21; t2=t22; t3=t23; goto loop;} else{ if(C_truep(C_u_i_char_equalp(t5,C_make_character(91)))){ t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29783,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=((C_word)li381),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_29783(t11,t1,t7,C_SCHEME_END_OF_LIST);} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29934,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t9=C_u_i_memq(t5,lf[491]); /* irregex.scm:265: loop */ t21=t8; t22=t7; t23=t9; t1=t21; t2=t22; t3=t23; goto loop;}}}}} /* k29704 in loop in k29671 in chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_29706,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29751 in loop in k29671 in chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_29753,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29771 in loop in k29671 in chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_29773,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[124],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop2 in loop in k29671 in chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29783(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_29783,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_i_pairp(t2); if(C_truep(C_i_not(t4))){ /* irregex.scm:247: chicken.base#error */ t5=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=lf[485]; av2[3]=lf[490]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=C_i_car(t2); if(C_truep(C_i_char_equalp(C_make_character(93),t5))){ t6=C_i_length(t3); t7=C_fixnum_greaterp(t6,C_fix(1)); t8=(C_truep(t7)?C_a_i_cons(&a,2,lf[103],t3):C_i_car(t3)); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29810,a[2]=t1,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=t2; t12=C_u_i_cdr(t11); /* irregex.scm:253: loop */ t13=((C_word*)((C_word*)t0)[2])[1]; f_29675(t13,t10,t12,C_SCHEME_FALSE);} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29832,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=t2; t8=C_u_i_cdr(t7); if(C_truep(C_i_pairp(t8))){ t9=C_i_cddr(t2); if(C_truep(C_i_pairp(t9))){ t10=t2; t11=C_u_i_cdr(t10); t12=C_u_i_car(t11); t13=t6; f_29832(t13,C_i_char_equalp(C_make_character(45),t12));} else{ t10=t6; f_29832(t10,C_SCHEME_FALSE);}} else{ t9=t6; f_29832(t9,C_SCHEME_FALSE);}}}} /* k29808 in loop2 in loop in k29671 in chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_29810,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29830 in loop2 in loop in k29671 in chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29832(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_29832,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=C_i_cdddr(((C_word*)t0)[2]); t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); t9=C_a_i_list(&a,3,lf[52],t4,t8); t10=C_a_i_cons(&a,2,t9,((C_word*)t0)[3]); /* irregex.scm:257: loop2 */ t11=((C_word*)((C_word*)t0)[4])[1]; f_29783(t11,((C_word*)t0)[5],t2,t10);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29859,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); if(C_truep(C_i_pairp(t4))){ t5=((C_word*)t0)[2]; t6=C_u_i_car(t5); t7=t2; f_29859(t7,C_i_char_equalp(C_make_character(45),t6));} else{ t5=t2; f_29859(t5,C_SCHEME_FALSE);}}} /* k29857 in k29830 in loop2 in loop in k29671 in chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_fcall f_29859(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_29859,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=C_i_cddr(((C_word*)t0)[2]); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_car(t4); t6=C_a_i_list(&a,2,lf[179],t5); t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[3]); /* irregex.scm:261: loop2 */ t8=((C_word*)((C_word*)t0)[4])[1]; f_29783(t8,((C_word*)t0)[5],t2,t7);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]); /* irregex.scm:264: loop2 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_29783(t7,((C_word*)t0)[5],t3,t6);}} /* k29932 in loop in k29671 in chicken.irregex#glob->sre in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_29934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_29934,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a30398 in k18685 in k7651 in k7426 in k7423 */ static void C_ccall f_30399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +30,c,1)))){ C_save_and_reclaim((void*)f_30399,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+30); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_a_i_cons(&a,2,t2,t3); t5=C_a_i_cons(&a,2,lf[179],t4); t6=C_a_i_list(&a,3,lf[115],t2,lf[124]); t7=C_a_i_list(&a,3,lf[103],t5,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_list(&a,2,lf[127],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* a30560 in k7651 in k7426 in k7423 */ static void C_ccall f_30561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_30561,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a30563 in k7651 in k7426 in k7423 */ static void C_ccall f_30564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_30564,6,av);} t6=C_i_car(t2); /* irregex-core.scm:1934: scheme#substring */ t7=*((C_word*)lf[46]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t1; av2[2]=t6; av2[3]=t3; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* a30597 in k7426 in k7423 */ static void C_ccall f_30598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_30598,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30602,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:150: irregex-match-num-submatches */ t5=*((C_word*)lf[17]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k30600 in a30597 in k7426 in k7423 */ static void C_ccall f_30602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_30602,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30605,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:151: scheme#display */ t4=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[498]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k30603 in k30600 in a30597 in k7426 in k7423 */ static void C_ccall f_30605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_30605,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30608,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:152: scheme#display */ t3=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k30606 in k30603 in k30600 in a30597 in k7426 in k7423 */ static void C_ccall f_30608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_30608,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30611,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:153: scheme#display */ t3=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[497]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k30609 in k30606 in k30603 in k30600 in a30597 in k7426 in k7423 */ static void C_ccall f_30611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_30611,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30614,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_eqp(((C_word*)t0)[4],C_fix(0)); t4=(C_truep(t3)?t3:C_fixnum_greaterp(((C_word*)t0)[4],C_fix(1))); if(C_truep(t4)){ /* irregex-core.scm:154: scheme#display */ t5=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=lf[496]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* irregex-core.scm:155: scheme#display */ t5=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=lf[495]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k30612 in k30609 in k30606 in k30603 in k30600 in a30597 in k7426 in k7423 */ static void C_ccall f_30614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_30614,2,av);} /* irregex-core.scm:155: scheme#display */ t2=*((C_word*)lf[447]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[495]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7423 */ static void C_ccall f_7425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7425,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7428,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k7426 in k7423 */ static void C_ccall f_7428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(52,c,4)))){ C_save_and_reclaim((void *)f_7428,2,av);} a=C_alloc(52); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate(&lf[2] /* (set! chicken.irregex#vector-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7430,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[5]+1 /* (set! chicken.irregex#irregex? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7443,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[7]+1 /* (set! chicken.irregex#irregex-num-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7485,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[9]+1 /* (set! chicken.irregex#irregex-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7503,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate(&lf[11] /* (set! chicken.irregex#irregex-new-matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7512,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate(&lf[13] /* (set! chicken.irregex#irregex-reset-matches! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7535,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate(&lf[15] /* (set! chicken.irregex#irregex-copy-matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7544,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[16]+1 /* (set! chicken.irregex#irregex-match-data? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7576,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[17]+1 /* (set! chicken.irregex#irregex-match-num-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7582,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[19]+1 /* (set! chicken.irregex#irregex-match-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7607,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7653,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30598,a[2]=((C_word)li386),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:149: ##sys#register-record-printer */ t16=*((C_word*)lf[499]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t16; av2[1]=t14; av2[2]=lf[500]; av2[3]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(4,av2);}} /* chicken.irregex#vector-copy in k7426 in k7423 */ static void C_fcall f_7430(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7430,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7434,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_vector_length(t2); /* irregex-core.scm:81: scheme#make-vector */ t5=*((C_word*)lf[4]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7432 in chicken.irregex#vector-copy in k7426 in k7423 */ static void C_ccall f_7434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7434,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7437,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:82: chicken.base#vector-copy! */ t4=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7435 in k7432 in chicken.irregex#vector-copy in k7426 in k7423 */ static void C_ccall f_7437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7437,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.irregex#irregex? in k7426 in k7423 */ static void C_ccall f_7443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7443,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_structurep(t2,lf[6]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.irregex#irregex-num-submatches in k7426 in k7423 */ static void C_ccall f_7485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7485,3,av);} t3=C_i_check_structure_2(t2,lf[6],lf[8]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(5)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.irregex#irregex-names in k7426 in k7423 */ static void C_ccall f_7503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7503,3,av);} t3=C_i_check_structure_2(t2,lf[6],lf[10]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(7)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.irregex#irregex-new-matches in k7426 in k7423 */ static void C_fcall f_7512(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_7512,2,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7520,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7533,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:114: irregex-num-submatches */ t5=*((C_word*)lf[7]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7518 in chicken.irregex#irregex-new-matches in k7426 in k7423 */ static void C_ccall f_7520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7520,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(7)); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record5(&a,5,lf[12],t1,t3,C_SCHEME_FALSE,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7531 in chicken.irregex#irregex-new-matches in k7426 in k7423 */ static void C_ccall f_7533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7533,2,av);} a=C_alloc(10); t2=C_a_i_fixnum_plus(&a,2,C_fix(2),t1); t3=C_s_a_u_i_integer_times(&a,2,C_fix(4),t2); /* irregex-core.scm:114: scheme#make-vector */ t4=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* chicken.irregex#irregex-reset-matches! in k7426 in k7423 */ static void C_fcall f_7535(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_7535,2,t1,t2);} a=C_alloc(4); t3=C_slot(t2,C_fix(1)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7542,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:117: scheme#vector-fill! */ t5=*((C_word*)lf[14]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7540 in chicken.irregex#irregex-reset-matches! in k7426 in k7423 */ static void C_ccall f_7542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7542,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.irregex#irregex-copy-matches in k7426 in k7423 */ static void C_fcall f_7544(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7544,2,t1,t2);} a=C_alloc(4); if(C_truep(C_i_structurep(t2,lf[12]))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7558,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_slot(t2,C_fix(1)); /* irregex-core.scm:123: vector-copy */ f_7430(t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7556 in chicken.irregex#irregex-copy-matches in k7426 in k7423 */ static void C_ccall f_7558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7558,2,av);} a=C_alloc(6); t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_slot(((C_word*)t0)[2],C_fix(3)); t4=C_slot(((C_word*)t0)[2],C_fix(4)); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_record5(&a,5,lf[12],t1,t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.irregex#irregex-match-data? in k7426 in k7423 */ static void C_ccall f_7576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7576,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_structurep(t2,lf[12]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.irregex#irregex-match-num-submatches in k7426 in k7423 */ static void C_ccall f_7582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_7582,3,av);} a=C_alloc(5); t3=C_i_check_structure_2(t2,lf[12],lf[18]); t4=C_slot(t2,C_fix(1)); t5=C_block_size(t4); t6=C_fixnum_divide(t5,C_fix(4)); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_fixnum_difference(&a,2,t6,C_fix(2)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* chicken.irregex#irregex-match-names in k7426 in k7423 */ static void C_ccall f_7607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7607,3,av);} t3=C_i_check_structure_2(t2,lf[12],lf[20]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7651 in k7426 in k7423 */ static void C_ccall f_7653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(213,c,6)))){ C_save_and_reclaim((void *)f_7653,2,av);} a=C_alloc(213); t2=C_mutate((C_word*)lf[21]+1 /* (set! chicken.irregex#irregex-match-start-chunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7668,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate((C_word*)lf[24]+1 /* (set! chicken.irregex#irregex-match-start-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7693,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[26]+1 /* (set! chicken.irregex#irregex-match-end-chunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7722,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[28]+1 /* (set! chicken.irregex#irregex-match-end-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7751,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate(&lf[22] /* (set! chicken.irregex#irregex-match-numeric-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7844,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[36]+1 /* (set! chicken.irregex#irregex-match-valid-index? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8028,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[40]+1 /* (set! chicken.irregex#irregex-match-substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8091,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[42]+1 /* (set! chicken.irregex#irregex-match-subchunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8172,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[45]+1 /* (set! chicken.irregex#make-irregex-chunker ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8262,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate(&lf[50] /* (set! chicken.irregex#chunker-prev-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8530,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate(&lf[51] /* (set! chicken.irregex#chunker-next-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8560,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t13=C_a_i_list(&a,5,lf[52],C_make_character(0),C_make_character(55295),C_make_character(57344),C_make_character(1114111)); t14=C_mutate(&lf[53] /* (set! chicken.irregex#*all-chars* ...) */,t13); t15=C_mutate(&lf[54] /* (set! chicken.irregex#string-scan-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8681,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate(&lf[47] /* (set! chicken.irregex#string-cat-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8972,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate(&lf[57] /* (set! chicken.irregex#zero-to ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9022,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate(&lf[58] /* (set! chicken.irregex#find ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9059,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate(&lf[59] /* (set! chicken.irregex#last ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9120,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate(&lf[61] /* (set! chicken.irregex#any ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9158,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate(&lf[62] /* (set! chicken.irregex#every ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9201,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate(&lf[56] /* (set! chicken.irregex#fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9246,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate(&lf[63] /* (set! chicken.irregex#flag-join ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9576,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate(&lf[64] /* (set! chicken.irregex#flag-clear ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9585,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); t25=C_a_i_list1(&a,1,lf[65]); t26=C_mutate(&lf[66] /* (set! chicken.irregex#close-token ...) */,t25); t27=C_mutate(&lf[67] /* (set! chicken.irregex#with-read-from-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9603,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate(&lf[89] /* (set! chicken.irregex#symbol-list->flags ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10196,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate((C_word*)lf[101]+1 /* (set! chicken.irregex#maybe-string->sre ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10319,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate((C_word*)lf[102]+1 /* (set! chicken.irregex#string->sre ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10331,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp)); t31=C_a_i_cons(&a,2,C_make_character(110),C_make_character(10)); t32=C_a_i_cons(&a,2,C_make_character(114),C_make_character(13)); t33=C_a_i_cons(&a,2,C_make_character(116),C_make_character(9)); t34=C_a_i_cons(&a,2,C_make_character(97),C_make_character(7)); t35=C_a_i_cons(&a,2,C_make_character(101),C_make_character(27)); t36=C_a_i_cons(&a,2,C_make_character(102),C_make_character(12)); t37=C_a_i_list(&a,6,t31,t32,t33,t34,t35,t36); t38=C_mutate(&lf[168] /* (set! chicken.irregex#posix-escape-sequences ...) */,t37); t39=C_mutate(&lf[169] /* (set! chicken.irregex#string-parse-hex-escape ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13159,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate(&lf[204] /* (set! chicken.irregex#high-char? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13872,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate(&lf[106] /* (set! chicken.irregex#utf8-string-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13893,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate(&lf[206] /* (set! chicken.irregex#utf8-lowest-digit-of-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14126,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate(&lf[208] /* (set! chicken.irregex#char->utf8-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14202,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate(&lf[210] /* (set! chicken.irregex#unicode-range-helper ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14478,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate(&lf[212] /* (set! chicken.irregex#unicode-range-up-from ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14616,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate(&lf[213] /* (set! chicken.irregex#unicode-range-up-to ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14755,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate(&lf[214] /* (set! chicken.irregex#cset->utf8-pattern ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15333,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate((C_word*)lf[217]+1 /* (set! chicken.irregex#irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15900,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate((C_word*)lf[219]+1 /* (set! chicken.irregex#string->irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16028,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate((C_word*)lf[220]+1 /* (set! chicken.irregex#sre->irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16038,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate(&lf[139] /* (set! chicken.irregex#sre-empty? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16171,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate(&lf[277] /* (set! chicken.irregex#sre-any? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16338,a[2]=((C_word)li216),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate(&lf[136] /* (set! chicken.irregex#sre-repeater? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16439,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate(&lf[271] /* (set! chicken.irregex#sre-searcher? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16484,a[2]=((C_word)li218),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate(&lf[251] /* (set! chicken.irregex#sre-consumer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16598,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate(&lf[279] /* (set! chicken.irregex#sre-has-submatches? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16712,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate(&lf[222] /* (set! chicken.irregex#sre-count-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16751,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp)); t58=C_mutate(&lf[104] /* (set! chicken.irregex#sre-sequence ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17960,a[2]=((C_word)li223),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate(&lf[107] /* (set! chicken.irregex#sre-alternate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17983,a[2]=((C_word)li224),tmp=(C_word)a,a+=3,tmp)); t60=C_mutate(&lf[282] /* (set! chicken.irregex#sre-strip-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18006,a[2]=((C_word)li226),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate(&lf[250] /* (set! chicken.irregex#sre-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18187,a[2]=((C_word)li227),tmp=(C_word)a,a+=3,tmp)); t62=C_mutate(&lf[283] /* (set! chicken.irregex#sre-sequence-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18473,a[2]=((C_word)li228),tmp=(C_word)a,a+=3,tmp)); t63=C_mutate(&lf[270] /* (set! chicken.irregex#sre-remove-initial-bos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18505,a[2]=((C_word)li230),tmp=(C_word)a,a+=3,tmp)); t64=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18687,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t65=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30561,a[2]=((C_word)li384),tmp=(C_word)a,a+=3,tmp); t66=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30564,a[2]=((C_word)li385),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:1929: make-irregex-chunker */ t67=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t67; av2[1]=t64; av2[2]=t65; av2[3]=*((C_word*)lf[492]+1); av2[4]=*((C_word*)lf[493]+1); av2[5]=*((C_word*)lf[494]+1); av2[6]=t66; ((C_proc)(void*)(*((C_word*)t67+1)))(7,av2);}} /* k7664 in k8030 in chicken.irregex#irregex-match-valid-index? in k7651 in k7426 in k7423 */ static void C_ccall f_7666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7666,2,av);} t2=C_i_assq(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.irregex#irregex-match-start-chunk in k7651 in k7426 in k7423 */ static void C_ccall f_7668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_7668,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7672,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:223: irregex-match-numeric-index */ f_7844(t4,lf[23],t2,t3);} /* k7670 in chicken.irregex#irregex-match-start-chunk in k7651 in k7426 in k7423 */ static void C_ccall f_7672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7672,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=t1; t5=C_slot(t3,C_fix(1)); t6=C_fixnum_times(t4,C_fix(4)); t7=t2;{ C_word *av2=av; av2[0]=t7; av2[1]=C_slot(t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.irregex#irregex-match-start-index in k7651 in k7426 in k7423 */ static void C_ccall f_7693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_7693,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7697,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:226: irregex-match-numeric-index */ f_7844(t4,lf[25],t2,t3);} /* k7695 in chicken.irregex#irregex-match-start-index in k7651 in k7426 in k7423 */ static void C_ccall f_7697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7697,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=t1; t5=C_slot(t3,C_fix(1)); t6=C_fixnum_times(t4,C_fix(4)); t7=C_fixnum_plus(C_fix(1),t6); t8=t2;{ C_word *av2=av; av2[0]=t8; av2[1]=C_slot(t5,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.irregex#irregex-match-end-chunk in k7651 in k7426 in k7423 */ static void C_ccall f_7722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_7722,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7726,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:229: irregex-match-numeric-index */ f_7844(t4,lf[27],t2,t3);} /* k7724 in chicken.irregex#irregex-match-end-chunk in k7651 in k7426 in k7423 */ static void C_ccall f_7726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7726,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=t1; t5=C_slot(t3,C_fix(1)); t6=C_fixnum_times(t4,C_fix(4)); t7=C_fixnum_plus(C_fix(2),t6); t8=t2;{ C_word *av2=av; av2[0]=t8; av2[1]=C_slot(t5,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.irregex#irregex-match-end-index in k7651 in k7426 in k7423 */ static void C_ccall f_7751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_7751,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7755,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:232: irregex-match-numeric-index */ f_7844(t4,lf[29],t2,t3);} /* k7753 in chicken.irregex#irregex-match-end-index in k7651 in k7426 in k7423 */ static void C_ccall f_7755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7755,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=t1; t5=C_slot(t3,C_fix(1)); t6=C_fixnum_times(t4,C_fix(4)); t7=C_fixnum_plus(C_fix(3),t6); t8=t2;{ C_word *av2=av; av2[0]=t8; av2[1]=C_slot(t5,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.irregex#irregex-match-numeric-index in k7651 in k7426 in k7423 */ static void C_fcall f_7844(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7844,4,t1,t2,t3,t4);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8026,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:259: irregex-match-data? */ t6=*((C_word*)lf[16]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k7910 in k8024 in chicken.irregex#irregex-match-numeric-index in k7651 in k7426 in k7423 */ static void C_fcall f_7912(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_7912,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(1)); t4=C_fixnum_times(((C_word*)t0)[3],C_fix(4)); t5=C_fixnum_plus(C_fix(1),t4); t6=C_slot(t3,t5); t7=(C_truep(t6)?C_SCHEME_TRUE:C_SCHEME_FALSE); t8=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t8; av2[1]=(C_truep(t7)?((C_word*)t0)[3]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* irregex-core.scm:270: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[33]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k7952 in k8024 in chicken.irregex#irregex-match-numeric-index in k7651 in k7426 in k7423 */ static void C_ccall f_7954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_7954,2,av);} a=C_alloc(9); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7956,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word)li14),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_7956(t5,((C_word*)t0)[5],t1,C_SCHEME_TRUE);} /* lp in k7952 in k8024 in chicken.irregex#irregex-match-numeric-index in k7651 in k7426 in k7423 */ static void C_fcall f_7956(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_7956,4,t0,t1,t2,t3);} if(C_truep(C_i_nullp(t2))){ if(C_truep(t3)){ /* irregex-core.scm:277: chicken.base#error */ t4=*((C_word*)lf[30]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[35]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=C_i_caar(t2); t5=C_eqp(((C_word*)t0)[3],t4); if(C_truep(t5)){ t6=t2; t7=C_u_i_car(t6); t8=C_u_i_cdr(t7); t9=((C_word*)t0)[4]; t10=C_slot(t9,C_fix(1)); t11=C_fixnum_times(t8,C_fix(4)); if(C_truep(C_slot(t10,t11))){ t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=C_i_cdar(t2); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=t2; t13=C_u_i_cdr(t12); /* irregex-core.scm:281: lp */ t15=t1; t16=t13; t17=C_SCHEME_FALSE; t1=t15; t2=t16; t3=t17; goto loop;}} else{ t6=t2; t7=C_u_i_cdr(t6); /* irregex-core.scm:282: lp */ t15=t1; t16=t7; t17=t3; t1=t15; t2=t16; t3=t17; goto loop;}}} /* k8024 in chicken.irregex#irregex-match-numeric-index in k7651 in k7426 in k7423 */ static void C_ccall f_8026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,6)))){ C_save_and_reclaim((void *)f_8026,2,av);} a=C_alloc(11); if(C_truep(C_i_not(t1))){ /* irregex-core.scm:260: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[31]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=C_i_pairp(((C_word*)t0)[5]); if(C_truep(C_i_not(t2))){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_cdr(((C_word*)t0)[5]); if(C_truep(C_i_pairp(t3))){{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[30]+1); av2[3]=((C_word*)t0)[3]; av2[4]=lf[32]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; C_apply(7,av2);}} else{ t4=((C_word*)t0)[5]; t5=C_u_i_car(t4); if(C_truep(C_i_numberp(t5))){ t6=(C_truep(C_i_integerp(t5))?C_i_exactp(t5):C_SCHEME_FALSE); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7912,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t8=((C_word*)t0)[4]; t9=C_slot(t8,C_fix(1)); if(C_truep(C_fixnum_greater_or_equal_p(t5,C_fix(0)))){ t10=C_fixnum_times(t5,C_fix(4)); t11=C_block_size(t9); t12=C_a_i_fixnum_difference(&a,2,t11,C_fix(4)); t13=t7; f_7912(t13,C_fixnum_lessp(t10,t12));} else{ t10=t7; f_7912(t10,C_SCHEME_FALSE);}} else{ /* irregex-core.scm:271: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[34]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7954,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:272: irregex-match-names */ t7=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}}} /* chicken.irregex#irregex-match-valid-index? in k7651 in k7426 in k7423 */ static void C_ccall f_8028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8028,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8032,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8089,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:285: irregex-match-data? */ t6=*((C_word*)lf[16]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8030 in chicken.irregex#irregex-match-valid-index? in k7651 in k7426 in k7423 */ static void C_ccall f_8032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_8032,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; if(C_truep(C_i_integerp(t2))){ t3=C_i_exactp(((C_word*)t0)[2]); if(C_truep(C_i_not(t3))){ /* irregex-core.scm:289: chicken.base#error */ t4=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[37]; av2[3]=lf[38]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=((C_word*)t0)[2]; t7=C_slot(t5,C_fix(1)); if(C_truep(C_fixnum_greater_or_equal_p(t6,C_fix(0)))){ t8=C_fixnum_times(t6,C_fix(4)); t9=C_block_size(t7); t10=C_a_i_fixnum_difference(&a,2,t9,C_fix(4)); t11=t4;{ C_word *av2=av; av2[0]=t11; av2[1]=C_fixnum_lessp(t8,t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t8=t4;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=((C_word*)t0)[2]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7666,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:218: irregex-match-names */ t7=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k8087 in chicken.irregex#irregex-match-valid-index? in k7651 in k7426 in k7423 */ static void C_ccall f_8089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8089,2,av);} if(C_truep(C_i_not(t1))){ /* irregex-core.scm:286: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[37]; av2[3]=lf[39]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_8032(2,av2);}}} /* chicken.irregex#irregex-match-substring in k7651 in k7426 in k7423 */ static void C_ccall f_8091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_8091,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8095,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:294: irregex-match-numeric-index */ f_7844(t4,lf[41],t2,t3);} /* k8093 in chicken.irregex#irregex-match-substring in k7651 in k7426 in k7423 */ static void C_ccall f_8095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8095,2,av);} t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(3)); if(C_truep(t1)){ t4=C_i_vector_ref(t3,C_fix(4)); t5=((C_word*)t0)[2]; t6=C_slot(t5,C_fix(1)); t7=C_fixnum_times(t1,C_fix(4)); t8=C_slot(t6,t7); t9=((C_word*)t0)[2]; t10=C_slot(t9,C_fix(1)); t11=C_fixnum_times(t1,C_fix(4)); t12=C_fixnum_plus(C_fix(1),t11); t13=C_slot(t10,t12); t14=((C_word*)t0)[2]; t15=C_slot(t14,C_fix(1)); t16=C_fixnum_times(t1,C_fix(4)); t17=C_fixnum_plus(C_fix(2),t16); t18=C_slot(t15,t17); t19=((C_word*)t0)[2]; t20=C_slot(t19,C_fix(1)); t21=C_fixnum_times(t1,C_fix(4)); t22=C_fixnum_plus(C_fix(3),t21); t23=C_slot(t20,t22); /* irregex-core.scm:296: g891 */ t24=t4;{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t24; av2[1]=((C_word*)t0)[3]; av2[2]=t8; av2[3]=t13; av2[4]=t18; av2[5]=t23; ((C_proc)(void*)(*((C_word*)t24+1)))(6,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* chicken.irregex#irregex-match-subchunk in k7651 in k7426 in k7423 */ static void C_ccall f_8172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_8172,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8176,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:304: irregex-match-numeric-index */ f_7844(t4,lf[44],t2,t3);} /* k8174 in chicken.irregex#irregex-match-subchunk in k7651 in k7426 in k7423 */ static void C_ccall f_8176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8176,2,av);} t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(3)); t4=C_i_vector_ref(t3,C_fix(5)); if(C_truep(C_i_not(t4))){ /* irregex-core.scm:308: chicken.base#error */ t5=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[43]; av2[3]=((C_word*)t0)[2]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ if(C_truep(t1)){ t5=((C_word*)t0)[2]; t6=C_slot(t5,C_fix(1)); t7=C_fixnum_times(t1,C_fix(4)); t8=C_slot(t6,t7); t9=((C_word*)t0)[2]; t10=C_slot(t9,C_fix(1)); t11=C_fixnum_times(t1,C_fix(4)); t12=C_fixnum_plus(C_fix(1),t11); t13=C_slot(t10,t12); t14=((C_word*)t0)[2]; t15=C_slot(t14,C_fix(1)); t16=C_fixnum_times(t1,C_fix(4)); t17=C_fixnum_plus(C_fix(2),t16); t18=C_slot(t15,t17); t19=((C_word*)t0)[2]; t20=C_slot(t19,C_fix(1)); t21=C_fixnum_times(t1,C_fix(4)); t22=C_fixnum_plus(C_fix(3),t21); t23=C_slot(t20,t22); /* irregex-core.scm:309: get-subchunk */ t24=t4;{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t24; av2[1]=((C_word*)t0)[3]; av2[2]=t8; av2[3]=t13; av2[4]=t18; av2[5]=t23; ((C_proc)(void*)(*((C_word*)t24+1)))(6,av2);}} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* chicken.irregex#make-irregex-chunker in k7651 in k7426 in k7423 */ static void C_ccall f_8262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_8262,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8266,a[2]=t3,a[3]=t2,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t4))){ t6=t4; t7=t5; f_8266(t7,C_u_i_car(t6));} else{ t6=t5; f_8266(t6,C_SCHEME_FALSE);}} /* k8264 in chicken.irregex#make-irregex-chunker in k7651 in k7426 in k7423 */ static void C_fcall f_8266(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_8266,2,t0,t1);} a=C_alloc(9); t2=(C_truep(t1)?t1:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8454,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8272,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t5=((C_word*)t0)[5]; t6=t4; f_8272(t6,C_u_i_cdr(t5));} else{ t5=t4; f_8272(t5,((C_word*)t0)[5]);}} /* k8270 in k8264 in chicken.irregex#make-irregex-chunker in k7651 in k7426 in k7423 */ static void C_fcall f_8272(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,0,6)))){ C_save_and_reclaim_args((void *)trf_8272,2,t0,t1);} a=C_alloc(30); t2=C_i_pairp(t1); t3=(C_truep(t2)?C_u_i_car(t1):C_SCHEME_FALSE); t4=(C_truep(t3)?t3:(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8437,a[2]=((C_word*)t0)[2],a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp)); t5=t4; t6=C_i_pairp(t1); t7=(C_truep(t6)?C_u_i_cdr(t1):t1); t8=C_i_pairp(t7); t9=(C_truep(t8)?C_u_i_car(t7):C_SCHEME_FALSE); t10=(C_truep(t9)?t9:(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8336,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word)li22),tmp=(C_word)a,a+=7,tmp)); t11=t10; t12=C_i_pairp(t7); t13=(C_truep(t12)?C_u_i_cdr(t7):t7); t14=C_i_pairp(t13); t15=(C_truep(t14)?C_u_i_car(t13):C_SCHEME_FALSE); t16=t15; t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8296,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t5,a[7]=t11,a[8]=t16,tmp=(C_word)a,a+=9,tmp); t18=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8302,a[2]=t17,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=t5,a[8]=t11,a[9]=t16,tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_closurep(((C_word*)t0)[4]))){ if(C_truep(C_i_closurep(((C_word*)t0)[2]))){ if(C_truep(C_i_closurep(((C_word*)t0)[3]))){ t19=C_i_closurep(t11); t20=t18; f_8302(t20,C_i_not(t19));} else{ t19=t18; f_8302(t19,C_SCHEME_TRUE);}} else{ t19=t18; f_8302(t19,C_SCHEME_TRUE);}} else{ t19=t18; f_8302(t19,C_SCHEME_TRUE);}} /* k8294 in k8270 in k8264 in chicken.irregex#make-irregex-chunker in k7651 in k7426 in k7423 */ static void C_ccall f_8296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_8296,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_vector6(&a,6,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8300 in k8270 in k8264 in chicken.irregex#make-irregex-chunker in k7651 in k7426 in k7423 */ static void C_fcall f_8302(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_8302,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ /* irregex-core.scm:347: chicken.base#error */ t2=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[48]; av2[3]=lf[49]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_a_i_vector6(&a,6,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* f_8336 in k8270 in k8264 in chicken.irregex#make-irregex-chunker in k7651 in k7426 in k7423 */ static void C_ccall f_8336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_8336,6,av);} a=C_alloc(11); t6=C_eqp(t2,t4); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8350,a[2]=t1,a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:327: get-str */ t8=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8357,a[2]=t4,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=t3,a[10]=t2,tmp=(C_word)a,a+=11,tmp); /* irregex-core.scm:328: get-next */ t8=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k8348 */ static void C_ccall f_8350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8350,2,av);} /* irregex-core.scm:327: scheme#substring */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8355 */ static void C_ccall f_8357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_8357,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8420,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8424,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:329: get-str */ t5=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* loop in k8418 in k8355 */ static void C_fcall f_8363(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_8363,4,t0,t1,t2,t3);} a=C_alloc(10); t4=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8381,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8385,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:334: get-str */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8396,a[2]=t3,a[3]=((C_word*)t0)[6],a[4]=t1,a[5]=((C_word*)t0)[7],a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); /* irregex-core.scm:338: get-next */ t6=((C_word*)t0)[8];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k8379 in loop in k8418 in k8355 */ static void C_ccall f_8381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8381,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:333: string-cat-reverse */ f_8972(((C_word*)t0)[3],t2);} /* k8383 in loop in k8418 in k8355 */ static void C_ccall f_8385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8385,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8389,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:335: get-start */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8387 in k8383 in loop in k8418 in k8355 */ static void C_ccall f_8389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8389,2,av);} /* irregex-core.scm:334: scheme#substring */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8394 in loop in k8418 in k8355 */ static void C_ccall f_8396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_8396,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8404,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8408,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:339: get-str */ t5=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8402 in k8394 in loop in k8418 in k8355 */ static void C_ccall f_8404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8404,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* irregex-core.scm:338: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_8363(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k8406 in k8394 in loop in k8418 in k8355 */ static void C_ccall f_8408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_8408,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8412,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:340: get-start */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8410 in k8406 in k8394 in loop in k8418 in k8355 */ static void C_ccall f_8412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8412,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8416,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:341: get-end */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8414 in k8410 in k8406 in k8394 in loop in k8418 in k8355 */ static void C_ccall f_8416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8416,2,av);} /* irregex-core.scm:339: scheme#substring */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8418 in k8355 */ static void C_ccall f_8420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_8420,2,av);} a=C_alloc(15); t2=C_a_i_list1(&a,1,t1); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8363,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t4,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li21),tmp=(C_word)a,a+=10,tmp)); t6=((C_word*)t4)[1]; f_8363(t6,((C_word*)t0)[8],((C_word*)t0)[9],t2);} /* k8422 in k8355 */ static void C_ccall f_8424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8424,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8428,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:331: get-end */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8426 in k8422 in k8355 */ static void C_ccall f_8428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8428,2,av);} /* irregex-core.scm:329: scheme#substring */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* f_8437 in k8270 in k8264 in chicken.irregex#make-irregex-chunker in k7651 in k7426 in k7423 */ static void C_ccall f_8437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8437,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8445,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:321: get-str */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8443 */ static void C_ccall f_8445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8445,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_string_length(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_8454 in k8264 in chicken.irregex#make-irregex-chunker in k7651 in k7426 in k7423 */ static void C_ccall f_8454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8454,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* lp in chicken.irregex#chunker-prev-char in k7651 in k7426 in k7423 */ static void C_fcall f_8512(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8512,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8516,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:362: get-next */ t4=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8514 in lp in chicken.irregex#chunker-prev-char in k7651 in k7426 in k7423 */ static void C_ccall f_8516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8516,2,av);} t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(t1)){ /* irregex-core.scm:365: lp */ t3=((C_word*)((C_word*)t0)[5])[1]; f_8512(t3,((C_word*)t0)[4],t1);} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* chicken.irregex#chunker-prev-char in k7651 in k7426 in k7423 */ static void C_fcall f_8530(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_8530,4,t1,t2,t3,t4);} a=C_alloc(12); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8534,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=t4; t8=C_eqp(t3,t7); if(C_truep(t8)){ t9=t5;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_8534(2,av2);}} else{ t9=C_i_vector_ref(t6,C_fix(0)); t10=t9; t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8512,a[2]=t7,a[3]=t12,a[4]=t10,a[5]=((C_word)li24),tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_8512(t14,t5,t3);}} /* k8532 in chicken.irregex#chunker-prev-char in k7651 in k7426 in k7423 */ static void C_ccall f_8534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8534,2,av);} a=C_alloc(5); t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8547,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:370: g990 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8545 in k8532 in chicken.irregex#chunker-prev-char in k7651 in k7426 in k7423 */ static void C_ccall f_8547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8547,2,av);} a=C_alloc(4); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(3)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8558,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:371: g992 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8556 in k8545 in k8532 in chicken.irregex#chunker-prev-char in k7651 in k7426 in k7423 */ static void C_ccall f_8558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8558,2,av);} t2=C_fixnum_difference(t1,C_fix(1)); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_string_ref(((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.irregex#chunker-next-char in k7651 in k7426 in k7423 */ static void C_fcall f_8560(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_8560,3,t1,t2,t3);} a=C_alloc(4); t4=t2; t5=C_i_vector_ref(t4,C_fix(0)); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8567,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:374: g998 */ t7=t5;{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k8565 in chicken.irregex#chunker-next-char in k7651 in k7426 in k7423 */ static void C_ccall f_8567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8567,2,av);} a=C_alloc(5); t2=t1; if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8580,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:376: g1001 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8578 in k8565 in chicken.irregex#chunker-next-char in k7651 in k7426 in k7423 */ static void C_ccall f_8580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8580,2,av);} a=C_alloc(4); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_vector_ref(t3,C_fix(2)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8587,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:376: g1003 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8585 in k8578 in k8565 in chicken.irregex#chunker-next-char in k7651 in k7426 in k7423 */ static void C_ccall f_8587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8587,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_string_ref(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a8625 */ static void C_ccall f_8626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8626,3,av);} t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(C_i_not(t3))){ t4=C_i_vector_ref(((C_word*)t0)[3],C_fix(0)); /* irregex-core.scm:391: g1020 */ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a8652 */ static void C_ccall f_8653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8653,3,av);} t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_vector_ref(((C_word*)t0)[4],C_fix(3)); /* irregex-core.scm:394: g1023 */ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* chicken.irregex#string-scan-char in k7651 in k7426 in k7423 */ static void C_ccall f_8681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_8681,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t5=C_i_string_length(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8692,a[2]=t6,a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t4))){ t8=t4; t9=t7; f_8692(t9,C_u_i_car(t8));} else{ t8=t7; f_8692(t8,C_fix(0));}} /* k8690 in chicken.irregex#string-scan-char in k7651 in k7426 in k7423 */ static void C_fcall f_8692(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_8692,2,t0,t1);} a=C_alloc(9); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8694,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word)li27),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_8694(t5,((C_word*)t0)[5],t1);} /* scan in k8690 in chicken.irregex#string-scan-char in k7651 in k7426 in k7423 */ static void C_fcall f_8694(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8694,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=((C_word*)t0)[3]; t6=C_i_string_ref(((C_word*)t0)[4],t2); t7=C_eqp(t5,t6); if(C_truep(t7)){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=t2; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); /* irregex-core.scm:419: scan */ t11=t1; t12=t9; t1=t11; t2=t12; goto loop;}}} /* scan in chicken.irregex#string-parse-hex-escape in k7651 in k7426 in k7423 */ static void C_fcall f_8737(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8737,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_string_ref(((C_word*)t0)[3],t2); t6=C_eqp(C_make_character(125),t5); if(C_truep(t6)){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=t2; t8=C_a_i_fixnum_plus(&a,2,t7,C_fix(1)); /* irregex-core.scm:427: scan */ t10=t1; t11=t8; t1=t10; t2=t11; goto loop;}}} /* scan in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_8794(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8794,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8807,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* irregex-core.scm:433: pred */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} /* k8805 in scan in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_8807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8807,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); /* irregex-core.scm:434: scan */ t4=((C_word*)((C_word*)t0)[4])[1]; f_8794(t4,((C_word*)t0)[2],t3);}} /* lp in k12060 in k11932 in k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_8832(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,0,4)))){ C_save_and_reclaim_args((void *)trf_8832,5,t0,t1,t2,t3,t4);} a=C_alloc(23); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8835,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,a[6]=((C_word)li83),tmp=(C_word)a,a+=7,tmp); t6=t2; if(C_truep(C_fixnum_greater_or_equal_p(t6,((C_word*)t0)[3]))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8856,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:440: collect */ t8=t5; f_8835(t8,t7);} else{ t7=C_i_string_ref(((C_word*)t0)[2],t2); t8=C_eqp(C_make_character(44),t7); if(C_truep(t8)){ t9=t2; t10=C_a_i_fixnum_plus(&a,2,t9,C_fix(1)); t11=t2; t12=C_a_i_fixnum_plus(&a,2,t11,C_fix(1)); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8875,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t10,a[5]=t12,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:441: collect */ t14=t5; f_8835(t14,t13);} else{ t9=t2; t10=C_a_i_fixnum_plus(&a,2,t9,C_fix(1)); /* irregex-core.scm:442: lp */ t15=t1; t16=t10; t17=t3; t18=t4; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;}}} /* collect in lp in k12060 in k11932 in k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_fcall f_8835(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_8835,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8843,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:439: scheme#substring */ t3=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k8841 in collect in lp in k12060 in k11932 in k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_8843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8843,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8854 in lp in k12060 in k11932 in k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_8856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8856,2,av);} /* irregex-core.scm:440: ##sys#fast-reverse */ t2=*((C_word*)lf[69]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8873 in lp in k12060 in k11932 in k11916 in k11907 in lp in k10339 in k10333 in chicken.irregex#string->sre in k7651 in k7426 in k7423 */ static void C_ccall f_8875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8875,2,av);} /* irregex-core.scm:441: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8832(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* chicken.irregex#string-cat-reverse in k7651 in k7426 in k7423 */ static void C_fcall f_8972(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_8972,2,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8980,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8982,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:466: fold */ f_9246(t3,t4,C_fix(0),t2);} /* k8978 in chicken.irregex#string-cat-reverse in k7651 in k7426 in k7423 */ static void C_ccall f_8980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8980,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t1; t4=((C_word*)t0)[3]; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8996,a[2]=t3,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:470: scheme#make-string */ t6=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* a8981 in chicken.irregex#string-cat-reverse in k7651 in k7426 in k7423 */ static void C_ccall f_8982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8982,4,av);} t4=C_i_string_length(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_fixnum_plus(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8994 in k8978 in chicken.irregex#string-cat-reverse in k7651 in k7426 in k7423 */ static void C_ccall f_8996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_8996,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9001,a[2]=t2,a[3]=((C_word)li29),tmp=(C_word)a,a+=4,tmp); t4=( f_9001(t3,((C_word*)t0)[2],((C_word*)t0)[3]) ); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* lp in k8994 in k8978 in chicken.irregex#string-cat-reverse in k7651 in k7426 in k7423 */ static C_word C_fcall f_9001(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_i_string_length(t4); t6=C_fixnum_difference(t1,t5); t7=C_substring_copy(t4,((C_word*)t0)[2],C_fix(0),t5,t6); t8=t2; t9=C_u_i_cdr(t8); t11=t6; t12=t9; t1=t11; t2=t12; goto loop;} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* chicken.irregex#zero-to in k7651 in k7426 in k7423 */ static void C_fcall f_9022(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_9022,2,t1,t2);} a=C_alloc(6); t3=t2; if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_fixnum_difference(t2,C_fix(1)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9038,a[2]=t6,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_9038(t8,t1,t4,C_SCHEME_END_OF_LIST);}} /* lp in chicken.irregex#zero-to in k7651 in k7426 in k7423 */ static void C_fcall f_9038(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_9038,4,t0,t1,t2,t3);} a=C_alloc(3); t4=t2; if(C_truep(C_i_zerop(t4))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,C_fix(0),t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fixnum_difference(t2,C_fix(1)); t6=C_a_i_cons(&a,2,t2,t3); /* irregex-core.scm:488: lp */ t8=t1; t9=t5; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}} /* chicken.irregex#find in k7651 in k7426 in k7423 */ static void C_fcall f_9059(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_9059,3,t1,t2,t3);} a=C_alloc(7); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9065,a[2]=t5,a[3]=t2,a[4]=((C_word)li34),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_9065(t7,t1,t3);} /* lp in chicken.irregex#find in k7651 in k7426 in k7423 */ static void C_fcall f_9065(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9065,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9078,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* irregex-core.scm:495: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k9076 in lp in chicken.irregex#find in k7651 in k7426 in k7423 */ static void C_ccall f_9078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9078,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* irregex-core.scm:496: lp */ t4=((C_word*)((C_word*)t0)[4])[1]; f_9065(t4,((C_word*)t0)[3],t3);}} /* chicken.irregex#last in k7651 in k7426 in k7423 */ static void C_fcall f_9120(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_9120,2,t1,t2);} a=C_alloc(3); t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ /* irregex-core.scm:506: chicken.base#error */ t4=*((C_word*)lf[30]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=lf[60]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9135,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=( f_9135(t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* lp in chicken.irregex#last in k7651 in k7426 in k7423 */ static C_word C_fcall f_9135(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} t2=C_i_cdr(t1); if(C_truep(C_i_pairp(t2))){ t3=t1; t4=C_u_i_cdr(t3); t6=t4; t1=t6; goto loop;} else{ t3=t1; t4=C_u_i_car(t3); return(t4);}} /* chicken.irregex#any in k7651 in k7426 in k7423 */ static void C_fcall f_9158(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_9158,3,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=t3; t7=C_u_i_cdr(t6); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9174,a[2]=t2,a[3]=t9,a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_9174(t11,t1,t5,t7);} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* lp in chicken.irregex#any in k7651 in k7426 in k7423 */ static void C_fcall f_9174(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9174,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_nullp(t3))){ /* irregex-core.scm:516: pred */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9187,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:517: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k9185 in lp in chicken.irregex#any in k7651 in k7426 in k7423 */ static void C_ccall f_9187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9187,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_car(((C_word*)t0)[3]); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* irregex-core.scm:517: lp */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9174(t5,((C_word*)t0)[2],t2,t4);}} /* chicken.irregex#every in k7651 in k7426 in k7423 */ static void C_fcall f_9201(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_9201,3,t1,t2,t3);} a=C_alloc(7); t4=C_i_nullp(t3); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t3); t6=t3; t7=C_u_i_cdr(t6); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9219,a[2]=t2,a[3]=t9,a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_9219(t11,t1,t5,t7);}} /* lp in chicken.irregex#every in k7651 in k7426 in k7423 */ static void C_fcall f_9219(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9219,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_nullp(t3))){ /* irregex-core.scm:523: pred */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9235,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:524: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k9233 in lp in chicken.irregex#every in k7651 in k7426 in k7423 */ static void C_ccall f_9235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9235,2,av);} if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); /* irregex-core.scm:524: lp */ t5=((C_word*)((C_word*)t0)[3])[1]; f_9219(t5,((C_word*)t0)[4],t2,t4);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.irregex#fold in k7651 in k7426 in k7423 */ static void C_fcall f_9246(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_9246,4,t1,t2,t3,t4);} a=C_alloc(7); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9252,a[2]=t6,a[3]=t2,a[4]=((C_word)li42),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_9252(t8,t1,t4,t3);} /* lp in chicken.irregex#fold in k7651 in k7426 in k7423 */ static void C_fcall f_9252(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_9252,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_cdr(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9270,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=t2; t8=C_u_i_car(t7); /* irregex-core.scm:530: kons */ t9=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=t8; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} /* k9268 in lp in chicken.irregex#fold in k7651 in k7426 in k7423 */ static void C_ccall f_9270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9270,2,av);} /* irregex-core.scm:530: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9252(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* chicken.irregex#flag-join in k7651 in k7426 in k7423 */ static void C_ccall f_9576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9576,4,av);} if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_or(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* chicken.irregex#flag-clear in k7651 in k7426 in k7423 */ static void C_ccall f_9585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9585,4,av);} t4=C_fixnum_not(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_fixnum_and(t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.irregex#with-read-from-string in k7651 in k7426 in k7423 */ static void C_fcall f_9603(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_9603,4,t1,t2,t3,t4);} a=C_alloc(15); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_i_string_length(t2); t10=C_set_block_item(t6,0,t9); t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9610,a[2]=t6,a[3]=t2,a[4]=t8,a[5]=((C_word)li58),tmp=(C_word)a,a+=6,tmp)); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10175,a[2]=t2,a[3]=t4,a[4]=((C_word)li59),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:696: read */ t13=((C_word*)t8)[1]; f_9610(t13,t1,t3,t12);} /* f_9610 in chicken.irregex#with-read-from-string in k7651 in k7426 in k7423 */ static void C_fcall f_9610(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,0,5)))){ C_save_and_reclaim_args((void *)trf_9610,4,t0,t1,t2,t3);} a=C_alloc(19); t4=t2; if(C_truep(C_fixnum_greater_or_equal_p(t4,((C_word*)((C_word*)t0)[2])[1]))){ /* irregex-core.scm:613: chicken.base#error */ t5=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=lf[68]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=C_i_string_ref(((C_word*)t0)[3],t2); switch(t5){ case C_make_character(40): t6=t2; t7=C_a_i_fixnum_plus(&a,2,t6,C_fix(1)); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9637,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t9,a[6]=((C_word)li49),tmp=(C_word)a,a+=7,tmp)); t11=((C_word*)t9)[1]; f_9637(t11,t1,t7,C_SCHEME_END_OF_LIST); case C_make_character(41): t6=t2; t7=C_a_i_fixnum_plus(&a,2,t6,C_fix(1)); /* irregex-core.scm:637: k */ t8=t3;{ C_word av2[4]; av2[0]=t8; av2[1]=t1; av2[2]=lf[66]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);} case C_make_character(59): t6=t2; t7=C_a_i_fixnum_plus(&a,2,t6,C_fix(1)); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9751,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t9,a[6]=((C_word*)t0)[3],a[7]=((C_word)li50),tmp=(C_word)a,a+=8,tmp)); t11=((C_word*)t9)[1]; f_9751(t11,t1,t7); default: t6=C_eqp(t5,C_make_character(39)); t7=(C_truep(t6)?t6:C_eqp(t5,C_make_character(96))); if(C_truep(t7)){ t8=t2; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9800,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,a[5]=((C_word)li51),tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:644: read */ t59=t1; t60=t9; t61=t10; t1=t59; t2=t60; t3=t61; goto loop;} else{ switch(t5){ case C_make_character(44): t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9828,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t9=t2; t10=C_a_i_fixnum_plus(&a,2,t9,C_fix(1)); if(C_truep(C_fixnum_lessp(t10,((C_word*)((C_word*)t0)[2])[1]))){ t11=t2; t12=C_a_i_fixnum_plus(&a,2,t11,C_fix(1)); t13=C_i_string_ref(((C_word*)t0)[3],t12); t14=t8; f_9828(t14,C_eqp(C_make_character(64),t13));} else{ t11=t8; f_9828(t11,C_SCHEME_FALSE);} case C_make_character(34): t8=t2; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); t10=t2; t11=C_a_i_fixnum_plus(&a,2,t10,C_fix(1)); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9885,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t13,a[6]=((C_word)li54),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_9885(t15,t1,t9,t11,C_SCHEME_END_OF_LIST); case C_make_character(35): t8=t2; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); t10=C_i_string_ref(((C_word*)t0)[3],t9); switch(t10){ case C_make_character(59): t11=t2; t12=C_a_i_fixnum_plus(&a,2,t11,C_fix(2)); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9986,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word)li55),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:666: read */ t59=t1; t60=t12; t61=t13; t1=t59; t2=t60; t3=t61; goto loop; case C_make_character(92): t11=t2; t12=C_a_i_fixnum_plus(&a,2,t11,C_fix(2)); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10004,a[2]=t3,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:668: read */ t59=t1; t60=t12; t61=t13; t1=t59; t2=t60; t3=t61; goto loop; default: t11=C_eqp(t10,C_make_character(116)); t12=(C_truep(t11)?t11:C_eqp(t10,C_make_character(102))); if(C_truep(t12)){ t13=t2; t14=C_a_i_fixnum_plus(&a,2,t13,C_fix(1)); t15=C_i_string_ref(((C_word*)t0)[3],t14); t16=C_eqp(C_make_character(116),t15); t17=t2; t18=C_a_i_fixnum_plus(&a,2,t17,C_fix(2)); /* irregex-core.scm:679: k */ t19=t3;{ C_word av2[4]; av2[0]=t19; av2[1]=t1; av2[2]=t16; av2[3]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(4,av2);}} else{ /* irregex-core.scm:681: chicken.base#error */ t13=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t13; av2[1]=t1; av2[2]=lf[83]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}} default: t8=((C_word*)t0)[3]; t9=t2; t10=C_i_string_ref(t8,t9); if(C_truep(C_u_i_char_whitespacep(t10))){ t11=t2; t12=C_a_i_fixnum_plus(&a,2,t11,C_fix(1)); /* irregex-core.scm:685: read */ t59=t1; t60=t12; t61=t3; t1=t59; t2=t60; t3=t61; goto loop;} else{ t11=t2; t12=C_a_i_fixnum_plus(&a,2,t11,C_fix(1)); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10104,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t14,a[7]=((C_word)li57),tmp=(C_word)a,a+=8,tmp)); t16=((C_word*)t14)[1]; f_10104(t16,t1,t12);}}}}}} /* lp */ static void C_fcall f_9637(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_9637,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9643,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li48),tmp=(C_word)a,a+=8,tmp); /* irregex-core.scm:618: read */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9610(t5,t1,t2,t4);} /* a9642 in lp */ static void C_ccall f_9643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_9643,4,av);} a=C_alloc(7); t4=C_eqp(t2,lf[66]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9657,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:623: ##sys#fast-reverse */ t6=*((C_word*)lf[69]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_eqp(t2,lf[70]); if(C_truep(t5)){ if(C_truep(C_i_nullp(((C_word*)t0)[3]))){ /* irregex-core.scm:626: chicken.base#error */ t6=*((C_word*)lf[30]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=lf[71]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9677,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word)li47),tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:627: read */ t7=((C_word*)((C_word*)t0)[5])[1]; f_9610(t7,t1,t3,t6);}} else{ t6=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); /* irregex-core.scm:635: lp */ t7=((C_word*)((C_word*)t0)[6])[1]; f_9637(t7,t1,t3,t6);}}} /* k9655 in a9642 in lp */ static void C_ccall f_9657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9657,2,av);} /* irregex-core.scm:623: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a9676 in a9642 in lp */ static void C_ccall f_9677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_9677,4,av);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word)li46),tmp=(C_word)a,a+=7,tmp); /* irregex-core.scm:628: read */ t5=((C_word*)((C_word*)t0)[5])[1]; f_9610(t5,t1,t3,t4);} /* a9682 in a9676 in a9642 in lp */ static void C_ccall f_9683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_9683,4,av);} a=C_alloc(10); t4=C_eqp(t2,lf[66]); if(C_truep(C_i_not(t4))){ /* irregex-core.scm:630: chicken.base#error */ t5=*((C_word*)lf[30]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=lf[72]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9700,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9704,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_i_cdr(((C_word*)t0)[4]); /* irregex-core.scm:631: ##sys#fast-reverse */ t8=*((C_word*)lf[69]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k9698 in a9682 in a9676 in a9642 in lp */ static void C_ccall f_9700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9700,2,av);} /* irregex-core.scm:631: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k9702 in a9682 in a9676 in a9642 in lp */ static void C_ccall f_9704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_9704,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); /* irregex-core.scm:631: scheme#append */ t5=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* skip */ static void C_fcall f_9751(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_9751,3,t0,t1,t2);} a=C_alloc(7); t3=t2; t4=C_fixnum_greater_or_equal_p(t3,((C_word*)((C_word*)t0)[2])[1]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9761,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(t4)){ t6=t5; f_9761(t6,t4);} else{ t6=C_i_string_ref(((C_word*)t0)[6],t2); t7=t5; f_9761(t7,C_eqp(C_make_character(10),t6));}} /* k9759 in skip */ static void C_fcall f_9761(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_9761,2,t0,t1);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:641: read */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9610(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5]);} else{ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* irregex-core.scm:642: skip */ t3=((C_word*)((C_word*)t0)[6])[1]; f_9751(t3,((C_word*)t0)[4],t2);}} /* a9799 */ static void C_ccall f_9800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_9800,4,av);} a=C_alloc(6); t4=C_i_string_ref(((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_eqp(C_make_character(39),t4); t6=(C_truep(t5)?lf[74]:lf[75]); t7=C_a_i_list2(&a,2,t6,t2); /* irregex-core.scm:647: k */ t8=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t8; av2[1]=t1; av2[2]=t7; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k9826 */ static void C_fcall f_9828(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_9828,2,t0,t1);} a=C_alloc(11); t2=(C_truep(t1)?lf[76]:lf[77]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9834,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(t1)){ t5=((C_word*)t0)[5]; t6=t4; f_9834(t6,C_a_i_fixnum_plus(&a,2,t5,C_fix(2)));} else{ t5=((C_word*)t0)[5]; t6=t4; f_9834(t6,C_a_i_fixnum_plus(&a,2,t5,C_fix(1)));}} /* k9832 in k9826 */ static void C_fcall f_9834(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_9834,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9839,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li52),tmp=(C_word)a,a+=5,tmp); /* irregex-core.scm:652: read */ t3=((C_word*)((C_word*)t0)[4])[1]; f_9610(t3,((C_word*)t0)[5],t1,t2);} /* a9838 in k9832 in k9826 */ static void C_ccall f_9839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_9839,4,av);} a=C_alloc(6); t4=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); /* irregex-core.scm:652: k */ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t4; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* scan */ static void C_fcall f_9885(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,0,4)))){ C_save_and_reclaim_args((void *)trf_9885,5,t0,t1,t2,t3,t4);} a=C_alloc(23); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9888,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word)li53),tmp=(C_word)a,a+=7,tmp); t6=t3; if(C_truep(C_fixnum_greater_or_equal_p(t6,((C_word*)((C_word*)t0)[3])[1]))){ /* irregex-core.scm:658: chicken.base#error */ t7=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=lf[78]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=C_i_string_ref(((C_word*)t0)[2],t3); switch(t7){ case C_make_character(34): t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9927,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9934,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* irregex-core.scm:660: collect */ t10=t5; f_9888(t10,t9); case C_make_character(92): t8=t3; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); t10=t3; t11=C_a_i_fixnum_plus(&a,2,t10,C_fix(2)); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9953,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t9,a[5]=t11,tmp=(C_word)a,a+=6,tmp); /* irregex-core.scm:661: collect */ t13=t5; f_9888(t13,t12); default: t8=t3; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); /* irregex-core.scm:662: scan */ t18=t1; t19=t2; t20=t9; t21=t4; t1=t18; t2=t19; t3=t20; t4=t21; goto loop;}}} /* collect in scan */ static void C_fcall f_9888(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_9888,2,t0,t1);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=((C_word*)t0)[4]; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9902,a[2]=t1,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* irregex-core.scm:656: scheme#substring */ t6=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k9900 in collect in scan */ static void C_ccall f_9902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9902,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9925 in scan */ static void C_ccall f_9927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_9927,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); /* irregex-core.scm:660: k */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k9932 in scan */ static void C_ccall f_9934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9934,2,av);} /* irregex-core.scm:660: string-cat-reverse */ f_8972(((C_word*)t0)[2],t1);} /* k9951 in scan */ static void C_ccall f_9953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9953,2,av);} /* irregex-core.scm:661: scan */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9885(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* a9985 */ static void C_ccall f_9986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9986,4,av);} /* irregex-core.scm:666: read */ t4=((C_word*)((C_word*)t0)[2])[1]; f_9610(t4,t1,t3,((C_word*)t0)[3]);} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_irregex_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("irregex")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_irregex_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2394))){ C_save(t1); C_rereclaim2(2394*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,501); lf[0]=C_h_intern(&lf[0],7, C_text("irregex")); lf[1]=C_h_intern(&lf[1],16, C_text("chicken.irregex#")); lf[3]=C_h_intern(&lf[3],25, C_text("chicken.base#vector-copy!")); lf[4]=C_h_intern(&lf[4],18, C_text("scheme#make-vector")); lf[5]=C_h_intern(&lf[5],24, C_text("chicken.irregex#irregex\077")); lf[6]=C_h_intern(&lf[6],6, C_text("regexp")); lf[7]=C_h_intern(&lf[7],38, C_text("chicken.irregex#irregex-num-submatches")); lf[8]=C_h_intern(&lf[8],22, C_text("irregex-num-submatches")); lf[9]=C_h_intern(&lf[9],29, C_text("chicken.irregex#irregex-names")); lf[10]=C_h_intern(&lf[10],13, C_text("irregex-names")); lf[12]=C_h_intern(&lf[12],12, C_text("regexp-match")); lf[14]=C_h_intern(&lf[14],19, C_text("scheme#vector-fill!")); lf[16]=C_h_intern(&lf[16],35, C_text("chicken.irregex#irregex-match-data\077")); lf[17]=C_h_intern(&lf[17],44, C_text("chicken.irregex#irregex-match-num-submatches")); lf[18]=C_h_intern(&lf[18],28, C_text("irregex-match-num-submatches")); lf[19]=C_h_intern(&lf[19],35, C_text("chicken.irregex#irregex-match-names")); lf[20]=C_h_intern(&lf[20],19, C_text("irregex-match-names")); lf[21]=C_h_intern(&lf[21],41, C_text("chicken.irregex#irregex-match-start-chunk")); lf[23]=C_h_intern(&lf[23],25, C_text("irregex-match-start-chunk")); lf[24]=C_h_intern(&lf[24],41, C_text("chicken.irregex#irregex-match-start-index")); lf[25]=C_h_intern(&lf[25],25, C_text("irregex-match-start-index")); lf[26]=C_h_intern(&lf[26],39, C_text("chicken.irregex#irregex-match-end-chunk")); lf[27]=C_h_intern(&lf[27],23, C_text("irregex-match-end-chunk")); lf[28]=C_h_intern(&lf[28],39, C_text("chicken.irregex#irregex-match-end-index")); lf[29]=C_h_intern(&lf[29],23, C_text("irregex-match-end-index")); lf[30]=C_h_intern(&lf[30],18, C_text("chicken.base#error")); lf[31]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016not match data")); lf[32]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022too many arguments")); lf[33]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021not a valid index")); lf[34]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer")); lf[35]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022unknown match name")); lf[36]=C_h_intern(&lf[36],42, C_text("chicken.irregex#irregex-match-valid-index\077")); lf[37]=C_h_intern(&lf[37],26, C_text("irregex-match-valid-index\077")); lf[38]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer")); lf[39]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016not match data")); lf[40]=C_h_intern(&lf[40],39, C_text("chicken.irregex#irregex-match-substring")); lf[41]=C_h_intern(&lf[41],23, C_text("irregex-match-substring")); lf[42]=C_h_intern(&lf[42],38, C_text("chicken.irregex#irregex-match-subchunk")); lf[43]=C_decode_literal(C_heaptop,C_text("\376B\000\0000this chunk type does not support match subchunks")); lf[44]=C_h_intern(&lf[44],22, C_text("irregex-match-subchunk")); lf[45]=C_h_intern(&lf[45],36, C_text("chicken.irregex#make-irregex-chunker")); lf[46]=C_h_intern(&lf[46],16, C_text("scheme#substring")); lf[48]=C_h_intern(&lf[48],20, C_text("make-irregex-chunker")); lf[49]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023expected a procdure")); lf[52]=C_h_intern(&lf[52],1, C_text("/")); lf[55]=C_h_intern(&lf[55],18, C_text("scheme#make-string")); lf[60]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035can\047t take last of empty list")); lf[65]=C_h_intern(&lf[65],5, C_text("close")); lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031unterminated embedded SRE")); lf[69]=C_h_intern(&lf[69],18, C_text("##sys#fast-reverse")); lf[70]=C_h_intern(&lf[70],1, C_text(".")); lf[71]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017bad dotted form")); lf[72]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017bad dotted form")); lf[73]=C_h_intern(&lf[73],13, C_text("scheme#append")); lf[74]=C_h_intern(&lf[74],5, C_text("quote")); lf[75]=C_h_intern(&lf[75],10, C_text("quasiquote")); lf[76]=C_h_intern(&lf[76],15, C_text("uquote-splicing")); lf[77]=C_h_intern(&lf[77],7, C_text("unquote")); lf[78]=C_decode_literal(C_heaptop,C_text("\376B\000\000#unterminated string in embedded SRE")); lf[79]=C_h_intern(&lf[79],5, C_text("space")); lf[80]=C_h_intern(&lf[80],7, C_text("newline")); lf[81]=C_h_intern(&lf[81],20, C_text("##sys#number->string")); lf[82]=C_h_intern(&lf[82],21, C_text("scheme#symbol->string")); lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036bad # syntax in simplified SRE")); lf[84]=C_h_intern(&lf[84],21, C_text("scheme#string->symbol")); lf[85]=C_h_intern(&lf[85],21, C_text("scheme#string->number")); lf[86]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000;\376\003\000\000\002\376\377\012\000\000(\376\003\000\000\002\376\377\012\000\000)\376\003\000\000\002\376\377\012\000\000\042\376\003\000\000\002\376\377\012\000\000#\376\003\000\000\002\376\377\012\000\000\134\376\377\016")); lf[87]=C_h_intern(&lf[87],11, C_text("close-token")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025unexpected \047)\047 in SRE")); lf[90]=C_h_intern(&lf[90],1, C_text("i")); lf[91]=C_h_intern(&lf[91],1, C_text("m")); lf[92]=C_h_intern(&lf[92],10, C_text("multi-line")); lf[93]=C_h_intern(&lf[93],1, C_text("s")); lf[94]=C_h_intern(&lf[94],11, C_text("single-line")); lf[95]=C_h_intern(&lf[95],1, C_text("x")); lf[96]=C_h_intern(&lf[96],12, C_text("ignore-space")); lf[97]=C_h_intern(&lf[97],1, C_text("u")); lf[98]=C_h_intern(&lf[98],4, C_text("utf8")); lf[99]=C_h_intern(&lf[99],2, C_text("ci")); lf[100]=C_h_intern(&lf[100],16, C_text("case-insensitive")); lf[101]=C_h_intern(&lf[101],33, C_text("chicken.irregex#maybe-string->sre")); lf[102]=C_h_intern(&lf[102],27, C_text("chicken.irregex#string->sre")); lf[103]=C_h_intern(&lf[103],2, C_text("or")); lf[105]=C_h_intern(&lf[105],18, C_text("##sys#string->list")); lf[108]=C_h_intern(&lf[108],8, C_text("submatch")); lf[109]=C_h_intern(&lf[109],2, C_text("if")); lf[110]=C_h_intern(&lf[110],7, C_text("epsilon")); lf[111]=C_h_intern(&lf[111],10, C_text("look-ahead")); lf[112]=C_h_intern(&lf[112],14, C_text("neg-look-ahead")); lf[113]=C_h_intern(&lf[113],11, C_text("look-behind")); lf[114]=C_h_intern(&lf[114],15, C_text("neg-look-behind")); lf[115]=C_h_intern(&lf[115],3, C_text("seq")); lf[116]=C_h_intern(&lf[116],13, C_text("scheme#cddadr")); lf[117]=C_h_intern(&lf[117],13, C_text("scheme#cadadr")); lf[118]=C_h_intern(&lf[118],12, C_text("##sys#append")); lf[119]=C_h_intern(&lf[119],2, C_text("=>")); lf[120]=C_h_intern(&lf[120],14, C_text("submatch-named")); lf[121]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001=>\376\003\000\000\002\376\001\000\000\016\001submatch-named\376\377\016")); lf[122]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001atomic\376\003\000\000\002\376\001\000\000\002\001if\376\003\000\000\002\376\001\000\000\012\001look-ahead\376\003\000\000\002\376\001\000\000\016\001neg-look-ahead\376\003\000\000" "\002\376\001\000\000\013\001look-behind\376\003\000\000\002\376\001\000\000\017\001neg-look-behind\376\003\000\000\002\376\001\000\000\002\001=>\376\003\000\000\002\376\001\000\000\016\001submatch-nam" "ed\376\003\000\000\002\376\001\000\000\006\001w/utf8\376\003\000\000\002\376\001\000\000\010\001w/noutf8\376\377\016")); lf[123]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042unterminated parenthesis in regexp")); lf[124]=C_h_intern(&lf[124],3, C_text("any")); lf[125]=C_h_intern(&lf[125],4, C_text("nonl")); lf[126]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034\077 can\047t follow empty pattern")); lf[127]=C_h_intern(&lf[127],1, C_text("\052")); lf[128]=C_h_intern(&lf[128],2, C_text("\052\077")); lf[129]=C_h_intern(&lf[129],1, C_text("+")); lf[130]=C_h_intern(&lf[130],3, C_text("\052\052\077")); lf[131]=C_h_intern(&lf[131],1, C_text("\077")); lf[132]=C_h_intern(&lf[132],2, C_text("\077\077")); lf[133]=C_h_intern(&lf[133],2, C_text("\052\052")); lf[134]=C_h_intern(&lf[134],1, C_text("=")); lf[135]=C_h_intern(&lf[135],2, C_text(">=")); lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000)duplicate repetition (e.g. \052\052) in pattern")); lf[138]=C_decode_literal(C_heaptop,C_text("\376B\000\000%can\047t repeat empty pattern (e.g. ()\052)")); lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042unterminated parenthesis in regexp")); lf[141]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\077\376\003\000\000\002\376\377\012\000\000\052\376\377\016")); lf[142]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042unterminated parenthesis in regexp")); lf[143]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037unterminated (\052\047...) SRE escape")); lf[144]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047bad regexp syntax: (\052FOO) not supported")); lf[145]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001look-ahead\376\377\016")); lf[146]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001neg-look-ahead\376\377\016")); lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042unterminated parenthesis in regexp")); lf[148]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\013\001look-behind\376\377\016")); lf[149]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\017\001neg-look-behind\376\377\016")); lf[150]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024invalid (\077< sequence")); lf[151]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001atomic\376\377\016")); lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042unterminated parenthesis in regexp")); lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035invalid conditional reference")); lf[154]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001if\376\377\016")); lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036unsupported Perl-style cluster")); lf[156]=C_h_intern(&lf[156],6, C_text("w/utf8")); lf[157]=C_h_intern(&lf[157],8, C_text("w/noutf8")); lf[158]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022incomplete cluster")); lf[159]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036unknown regex cluster modifier")); lf[160]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026too many )\047s in regexp")); lf[161]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023incomplete char set")); lf[163]=C_h_intern(&lf[163],19, C_text("scheme#vector->list")); lf[166]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014bad char-set")); lf[167]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032inverted range in char-set")); lf[170]=C_decode_literal(C_heaptop,C_text("\376\000\000\001\000\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000" "\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376" "\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000" "\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001" "\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001" "\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000" "\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377" "\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000" "\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376" "\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000" "\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001" "\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001" "\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000" "\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377" "\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000" "\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376" "\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\002\376\377\001\000" "\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002" "\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001" "\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000" "\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377" "\001\000\000\000\003\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\005\376\377\001\000\000\000\005\376\377\001\000\000" "\000\005\376\377\001\000\000\000\005\376\377\001\000\000\000\006\376\377\001\000\000\000\006\376\377\001\000\000\000\000\376\377\001\000\000\000\000")); lf[171]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032incomplete character class")); lf[173]=C_decode_literal(C_heaptop,C_text("\376B\000\000!collating sequences not supported")); lf[174]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034{ can\047t follow empty pattern")); lf[175]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035invalid {n} repetition syntax")); lf[176]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[177]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032incomplete escape sequence")); lf[178]=C_h_intern(&lf[178],7, C_text("numeric")); lf[179]=C_h_intern(&lf[179],1, C_text("~")); lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001_")); lf[181]=C_h_intern(&lf[181],12, C_text("alphanumeric")); lf[182]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001_")); lf[183]=C_h_intern(&lf[183],3, C_text("bow")); lf[184]=C_h_intern(&lf[184],3, C_text("eow")); lf[185]=C_h_intern(&lf[185],3, C_text("nwb")); lf[186]=C_h_intern(&lf[186],3, C_text("bos")); lf[187]=C_h_intern(&lf[187],3, C_text("eos")); lf[188]=C_h_intern(&lf[188],5, C_text("reset")); lf[189]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000<\376\003\000\000\002\376\377\012\000\000{\376\003\000\000\002\376\377\012\000\000\047\376\377\016")); lf[190]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036bad \134k usage, expected \134k<...>")); lf[191]=C_h_intern(&lf[191],10, C_text("backref-ci")); lf[192]=C_h_intern(&lf[192],7, C_text("backref")); lf[193]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032unterminated named backref")); lf[194]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027unknown escape sequence")); lf[195]=C_h_intern(&lf[195],3, C_text("bol")); lf[196]=C_h_intern(&lf[196],3, C_text("eol")); lf[197]=C_h_intern(&lf[197],11, C_text("string->sre")); lf[198]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021expected a string")); lf[199]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025incomplete hex escape")); lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033incomplete hex brace escape")); lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024bad hex brace escape")); lf[202]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025incomplete hex escape")); lf[203]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016bad hex escape")); lf[205]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid utf8 length")); lf[207]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid utf8 length")); lf[209]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037unicode codepoint out of range:")); lf[211]=C_h_intern(&lf[211],3, C_text("map")); lf[215]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid utf8 length")); lf[217]=C_h_intern(&lf[217],23, C_text("chicken.irregex#irregex")); lf[218]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\013\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\001\000\000\000\000")); lf[219]=C_h_intern(&lf[219],31, C_text("chicken.irregex#string->irregex")); lf[220]=C_h_intern(&lf[220],28, C_text("chicken.irregex#sre->irregex")); lf[223]=C_h_intern(&lf[223],6, C_text("w/case")); lf[224]=C_h_intern(&lf[224],8, C_text("w/nocase")); lf[225]=C_h_intern(&lf[225],1, C_text(":")); lf[226]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024invalid sre: empty \052")); lf[227]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025invalid sre: empty \052\077")); lf[228]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024invalid sre: empty +")); lf[229]=C_h_intern(&lf[229],4, C_text("word")); lf[230]=C_h_intern(&lf[230],5, C_text("word+")); lf[231]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001_")); lf[232]=C_h_intern(&lf[232],1, C_text("&")); lf[233]=C_h_intern(&lf[233],12, C_text("posix-string")); lf[234]=C_h_intern(&lf[234],10, C_text("scheme#not")); lf[235]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\003\001any\376\377\016")); lf[236]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001eos\376\377\016")); lf[237]=C_h_intern(&lf[237],6, C_text("atomic")); lf[238]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037unknown named backref in SRE IF")); lf[239]=C_h_intern(&lf[239],18, C_text("scheme#string-ci=\077")); lf[240]=C_h_intern(&lf[240],15, C_text("scheme#string=\077")); lf[241]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025unknown backreference")); lf[242]=C_h_intern(&lf[242],3, C_text("dsm")); lf[243]=C_h_intern(&lf[243],1, C_text("$")); lf[244]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027unknown regexp operator")); lf[245]=C_h_intern(&lf[245],1, C_text("-")); lf[247]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016unknown regexp")); lf[248]=C_h_intern(&lf[248],16, C_text("scheme#char-ci=\077")); lf[249]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016unknown regexp")); lf[252]=C_h_intern(&lf[252],10, C_text("scheme#max")); lf[253]=C_h_intern(&lf[253],10, C_text("scheme#min")); lf[254]=C_h_intern(&lf[254],10, C_text("sre-length")); lf[255]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025invalid backreference")); lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035invalid forward backreference")); lf[257]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025unknown backreference")); lf[258]=C_h_intern(&lf[258],3, C_text(">=\077")); lf[259]=C_h_intern(&lf[259],17, C_text("sre-length-ranges")); lf[260]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024unknown sre operator")); lf[261]=C_h_intern(&lf[261],2, C_text("=\077")); lf[262]=C_h_intern(&lf[262],6, C_text("commit")); lf[263]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013unknown sre")); lf[264]=C_h_intern(&lf[264],11, C_text("scheme#cons")); lf[267]=C_h_intern(&lf[267],9, C_text("backtrack")); lf[268]=C_h_intern(&lf[268],5, C_text("small")); lf[269]=C_h_intern(&lf[269],4, C_text("fast")); lf[272]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\003\001any\376\377\016")); lf[273]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\004\001nonl\376\377\016")); lf[274]=C_h_intern(&lf[274],8, C_text("utf8-any")); lf[275]=C_h_intern(&lf[275],9, C_text("utf8-nonl")); lf[276]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001epsilon\376\003\000\000\002\376\001\000\000\003\001bos\376\003\000\000\002\376\001\000\000\003\001eos\376\003\000\000\002\376\001\000\000\003\001bol\376\003\000\000\002\376\001\000\000\003\001eol\376\003\000\000\002\376" "\001\000\000\003\001bow\376\003\000\000\002\376\001\000\000\003\001eow\376\003\000\000\002\376\001\000\000\006\001commit\376\377\016")); lf[278]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\001\001+\376\377\016")); lf[280]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001$\376\003\000\000\002\376\001\000\000\010\001submatch\376\003\000\000\002\376\001\000\000\002\001=>\376\003\000\000\002\376\001\000\000\016\001submatch-named\376\377\016")); lf[281]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\377\016")); lf[285]=C_h_intern(&lf[285],30, C_text("chicken.irregex#irregex-search")); lf[286]=C_h_intern(&lf[286],38, C_text("chicken.irregex#irregex-search/chunked")); lf[287]=C_h_intern(&lf[287],14, C_text("irregex-search")); lf[288]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer")); lf[289]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer")); lf[290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string")); lf[292]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016not an integer")); lf[293]=C_h_intern(&lf[293],11, C_text("irregex-dfa")); lf[296]=C_h_intern(&lf[296],11, C_text("irregex-nfa")); lf[297]=C_h_intern(&lf[297],29, C_text("chicken.irregex#irregex-match")); lf[298]=C_h_intern(&lf[298],37, C_text("chicken.irregex#irregex-match/chunked")); lf[299]=C_h_intern(&lf[299],13, C_text("irregex-match")); lf[300]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer")); lf[301]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer")); lf[302]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string")); lf[303]=C_h_intern(&lf[303],30, C_text("chicken.irregex#irregex-match\077")); lf[305]=C_h_intern(&lf[305],8, C_text("for-each")); lf[306]=C_h_intern(&lf[306],10, C_text("alphabetic")); lf[307]=C_h_intern(&lf[307],5, C_text("alpha")); lf[308]=C_h_intern(&lf[308],8, C_text("alphanum")); lf[309]=C_h_intern(&lf[309],5, C_text("alnum")); lf[310]=C_h_intern(&lf[310],10, C_text("lower-case")); lf[311]=C_h_intern(&lf[311],5, C_text("lower")); lf[312]=C_h_intern(&lf[312],10, C_text("upper-case")); lf[313]=C_h_intern(&lf[313],5, C_text("upper")); lf[314]=C_h_intern(&lf[314],3, C_text("num")); lf[315]=C_h_intern(&lf[315],5, C_text("digit")); lf[316]=C_h_intern(&lf[316],11, C_text("punctuation")); lf[317]=C_h_intern(&lf[317],5, C_text("punct")); lf[318]=C_h_intern(&lf[318],7, C_text("graphic")); lf[319]=C_h_intern(&lf[319],5, C_text("graph")); lf[320]=C_h_intern(&lf[320],5, C_text("blank")); lf[321]=C_h_intern(&lf[321],10, C_text("whitespace")); lf[322]=C_h_intern(&lf[322],5, C_text("white")); lf[323]=C_h_intern(&lf[323],8, C_text("printing")); lf[324]=C_h_intern(&lf[324],5, C_text("print")); lf[325]=C_h_intern(&lf[325],7, C_text("control")); lf[326]=C_h_intern(&lf[326],5, C_text("cntrl")); lf[327]=C_h_intern(&lf[327],9, C_text("hex-digit")); lf[328]=C_h_intern(&lf[328],6, C_text("xdigit")); lf[329]=C_h_intern(&lf[329],5, C_text("ascii")); lf[330]=C_h_intern(&lf[330],10, C_text("ascii-nonl")); lf[331]=C_h_intern(&lf[331],14, C_text("utf8-tail-char")); lf[332]=C_h_intern(&lf[332],11, C_text("utf8-2-char")); lf[333]=C_h_intern(&lf[333],11, C_text("utf8-3-char")); lf[334]=C_h_intern(&lf[334],11, C_text("utf8-4-char")); lf[335]=C_h_intern(&lf[335],7, C_text("integer")); lf[336]=C_h_intern(&lf[336],4, C_text("real")); lf[337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016!$%&\052/:<=>\077^_~")); lf[338]=C_h_intern(&lf[338],14, C_text("symbol-initial")); lf[339]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004+-.@")); lf[340]=C_h_intern(&lf[340],17, C_text("symbol-subsequent")); lf[341]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002+-")); lf[342]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[343]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002..")); lf[344]=C_h_intern(&lf[344],6, C_text("symbol")); lf[345]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001;")); lf[346]=C_h_intern(&lf[346],10, C_text("sexp-space")); lf[347]=C_h_intern(&lf[347],6, C_text("escape")); lf[348]=C_h_intern(&lf[348],6, C_text("string")); lf[349]=C_decode_literal(C_heaptop,C_text("\376B\000\000\00212")); lf[350]=C_h_intern(&lf[350],10, C_text("ipv4-digit")); lf[351]=C_h_intern(&lf[351],12, C_text("ipv4-address")); lf[352]=C_h_intern(&lf[352],12, C_text("ipv6-address")); lf[353]=C_h_intern(&lf[353],10, C_text("ip-address")); lf[354]=C_h_intern(&lf[354],11, C_text("domain-atom")); lf[355]=C_h_intern(&lf[355],6, C_text("domain")); lf[356]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004arpa")); lf[357]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003com")); lf[358]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003gov")); lf[359]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003mil")); lf[360]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003net")); lf[361]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003org")); lf[362]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004aero")); lf[363]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003biz")); lf[364]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004coop")); lf[365]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004info")); lf[366]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006museum")); lf[367]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004name")); lf[368]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003pro")); lf[369]=C_h_intern(&lf[369],16, C_text("top-level-domain")); lf[370]=C_h_intern(&lf[370],13, C_text("domain/common")); lf[371]=C_h_intern(&lf[371],16, C_text("email-local-part")); lf[372]=C_h_intern(&lf[372],5, C_text("email")); lf[373]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001%")); lf[374]=C_h_intern(&lf[374],8, C_text("url-char")); lf[375]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001%")); lf[376]=C_h_intern(&lf[376],14, C_text("url-final-char")); lf[377]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001s")); lf[378]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001:")); lf[379]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[380]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\077")); lf[381]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001#")); lf[382]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[383]=C_h_intern(&lf[383],8, C_text("http-url")); lf[384]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004http")); lf[385]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003://")); lf[389]=C_h_intern(&lf[389],12, C_text("scheme#cadar")); lf[390]=C_h_intern(&lf[390],12, C_text("scheme#cddar")); lf[391]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001epsilon\376\377\016")); lf[392]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034non-procedure in op position")); lf[393]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[399]=C_h_intern(&lf[399],13, C_text("scheme#caddar")); lf[404]=C_decode_literal(C_heaptop,C_text("\376B\000\000!not a valid sre char-set operator")); lf[405]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030not a valid sre char-set")); lf[407]=C_h_intern(&lf[407],19, C_text("scheme#list->vector")); lf[409]=C_h_intern(&lf[409],12, C_text("irregex-fold")); lf[410]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer")); lf[411]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer")); lf[412]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string")); lf[413]=C_h_intern(&lf[413],28, C_text("chicken.irregex#irregex-fold")); lf[414]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017not a procedure")); lf[416]=C_h_intern(&lf[416],20, C_text("irregex-fold/chunked")); lf[417]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016not an integer")); lf[418]=C_h_intern(&lf[418],36, C_text("chicken.irregex#irregex-fold/chunked")); lf[419]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017not a procedure")); lf[420]=C_h_intern(&lf[420],31, C_text("chicken.irregex#irregex-replace")); lf[422]=C_h_intern(&lf[422],15, C_text("irregex-replace")); lf[423]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string")); lf[424]=C_h_intern(&lf[424],35, C_text("chicken.irregex#irregex-replace/all")); lf[425]=C_h_intern(&lf[425],19, C_text("irregex-replace/all")); lf[426]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string")); lf[427]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[428]=C_h_intern(&lf[428],3, C_text("pre")); lf[429]=C_h_intern(&lf[429],4, C_text("post")); lf[430]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031unknown match replacement")); lf[431]=C_h_intern(&lf[431],31, C_text("chicken.irregex#irregex-extract")); lf[432]=C_h_intern(&lf[432],15, C_text("irregex-extract")); lf[433]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string")); lf[434]=C_h_intern(&lf[434],29, C_text("chicken.irregex#irregex-split")); lf[435]=C_h_intern(&lf[435],13, C_text("irregex-split")); lf[436]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string")); lf[437]=C_h_intern(&lf[437],29, C_text("chicken.irregex#irregex-quote")); lf[438]=C_h_intern(&lf[438],18, C_text("##sys#list->string")); lf[439]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\134|[](){}.\052+\077^$#")); lf[440]=C_h_intern(&lf[440],27, C_text("chicken.irregex#irregex-opt")); lf[441]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[442]=C_h_intern(&lf[442],12, C_text("scheme#char\077")); lf[443]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\000\376\377\016")); lf[444]=C_h_intern(&lf[444],20, C_text("scheme#string-append")); lf[446]=C_h_intern(&lf[446],30, C_text("chicken.base#get-output-string")); lf[447]=C_h_intern(&lf[447],14, C_text("scheme#display")); lf[448]=C_h_intern(&lf[448],21, C_text("##sys#write-char/port")); lf[449]=C_h_intern(&lf[449],31, C_text("chicken.base#open-output-string")); lf[450]=C_h_intern(&lf[450],27, C_text("chicken.irregex#sre->string")); lf[451]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[452]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003(\077:")); lf[453]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[454]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[455]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[456]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001>")); lf[457]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003(\077<")); lf[458]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001|")); lf[459]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[460]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003(\077:")); lf[461]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[462]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003(\077:")); lf[463]=C_h_intern(&lf[463],3, C_text("not")); lf[464]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]")); lf[465]=C_h_intern(&lf[465],12, C_text("scheme#cdadr")); lf[466]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002[^")); lf[467]=C_decode_literal(C_heaptop,C_text("\376B\000\000(can\047t represent general \047not\047 in strings")); lf[468]=C_h_intern(&lf[468],4, C_text("cset")); lf[469]=C_h_intern(&lf[469],12, C_text("scheme#caadr")); lf[470]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]")); lf[471]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001[")); lf[472]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]")); lf[473]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002[^")); lf[474]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[475]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001:")); lf[476]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001-")); lf[477]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002(\077")); lf[478]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024unknown sre operator")); lf[479]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001^")); lf[480]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001$")); lf[481]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[482]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022unknown sre symbol")); lf[483]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023unknown sre pattern")); lf[484]=C_h_intern(&lf[484],25, C_text("chicken.irregex#glob->sre")); lf[485]=C_h_intern(&lf[485],9, C_text("glob->sre")); lf[486]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003./\134")); lf[487]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002/\134")); lf[488]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003./\134")); lf[489]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002/\134")); lf[490]=C_decode_literal(C_heaptop,C_text("\376B\000\000!unexpected end of character class")); lf[491]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000/\376\377\016")); lf[492]=C_h_intern(&lf[492],10, C_text("scheme#car")); lf[493]=C_h_intern(&lf[493],11, C_text("scheme#cadr")); lf[494]=C_h_intern(&lf[494],12, C_text("scheme#caddr")); lf[495]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)>")); lf[496]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002es")); lf[497]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 submatch")); lf[498]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020#flags o|hiding unexported module binding: chicken.irregex#posix-escape-sequences o|hiding unexported module binding: chicken.irregex#char-altcase o|hiding unexported module binding: chicken.irregex#char-mirror o|hiding unexported module binding: chicken.irregex#string-parse-hex-escape o|hiding unexported module binding: chicken.irregex#string-parse-cset o|hiding unexported module binding: chicken.irregex#high-char? o|hiding unexported module binding: chicken.irregex#utf8-start-char->length o|hiding unexported module binding: chicken.irregex#utf8-string-ref o|hiding unexported module binding: chicken.irregex#utf8-backup-to-initial-char o|hiding unexported module binding: chicken.irregex#utf8-lowest-digit-of-length o|hiding unexported module binding: chicken.irregex#utf8-highest-digit-of-length o|hiding unexported module binding: chicken.irregex#char->utf8-list o|hiding unexported module binding: chicken.irregex#unicode-range->utf8-pattern o|hiding unexported module binding: chicken.irregex#unicode-range-helper o|hiding unexported module binding: chicken.irregex#unicode-range-up-from o|hiding unexported module binding: chicken.irregex#unicode-range-up-to o|hiding unexported module binding: chicken.irregex#unicode-range-climb-digits o|hiding unexported module binding: chicken.irregex#unicode-range-middle o|hiding unexported module binding: chicken.irregex#cset->utf8-pattern o|hiding unexported module binding: chicken.irregex#sre-adjust-utf8 o|hiding unexported module binding: chicken.irregex#cached o|hiding unexported module binding: chicken.irregex#sre-empty? o|hiding unexported module binding: chicken.irregex#sre-any? o|hiding unexported module binding: chicken.irregex#sre-repeater? o|hiding unexported module binding: chicken.irregex#sre-searcher? o|hiding unexported module binding: chicken.irregex#sre-consumer? o|hiding unexported module binding: chicken.irregex#sre-has-submatches? o|hiding unexported module binding: chicken.irregex#sre-count-submatches o|hiding unexported module binding: chicken.irregex#sre-length-ranges o|hiding unexported module binding: chicken.irregex#sre-sequence o|hiding unexported module binding: chicken.irregex#sre-alternate o|hiding unexported module binding: chicken.irregex#sre-strip-submatches o|hiding unexported module binding: chicken.irregex#sre-flatten-ranges o|hiding unexported module binding: chicken.irregex#sre-names o|hiding unexported module binding: chicken.irregex#sre-sequence-names o|hiding unexported module binding: chicken.irregex#sre-remove-initial-bos o|hiding unexported module binding: chicken.irregex#irregex-basic-string-chunker o|hiding unexported module binding: chicken.irregex#irregex-search/matches o|hiding unexported module binding: chicken.irregex#irregex-search/backtrack o|hiding unexported module binding: chicken.irregex#dfa-init-state o|hiding unexported module binding: chicken.irregex#dfa-next-state o|hiding unexported module binding: chicken.irregex#dfa-cell-commands o|hiding unexported module binding: chicken.irregex#dfa-finalizer o|hiding unexported module binding: chicken.irregex#dfa-match/shortest o|hiding unexported module binding: chicken.irregex#finalize! o|hiding unexported module binding: chicken.irregex#make-initial-memory o|hiding unexported module binding: chicken.irregex#dfa-match/longest o|hiding unexported module binding: chicken.irregex#sre-named-definitions o|hiding unexported module binding: chicken.irregex#*nfa-presize* o|hiding unexported module binding: chicken.irregex#*nfa-num-fields* o|hiding unexported module binding: chicken.irregex#nfa-num-states o|hiding unexported module binding: chicken.irregex#nfa-start-state o|hiding unexported module binding: chicken.irregex#nfa-num-tags o|hiding unexported module binding: chicken.irregex#nfa-highest-map-index o|hiding unexported module binding: chicken.irregex#nfa-set-highest-map-index! o|hiding unexported module binding: chicken.irregex#nfa-get-state-trans o|hiding unexported module binding: chicken.irregex#nfa-set-state-trans! o|hiding unexported module binding: chicken.irregex#nfa-get-epsilons o|hiding unexported module binding: chicken.irregex#nfa-set-epsilons! o|hiding unexported module binding: chicken.irregex#nfa-add-epsilon! o|hiding unexported module binding: chicken.irregex#nfa-get-reorder-commands o|hiding unexported module binding: chicken.irregex#nfa-set-reorder-commands! o|hiding unexported module binding: chicken.irregex#nfa-get-closure o|hiding unexported module binding: chicken.irregex#nfa-add-closure! o|hiding unexported module binding: chicken.irregex#sre->nfa o|hiding unexported module binding: chicken.irregex#*mst-first-state-index* o|hiding unexported module binding: chicken.irregex#mst-mappings-summary o|hiding unexported module binding: chicken.irregex#mst-num-states o|hiding unexported module binding: chicken.irregex#mst-num-states-set! o|hiding unexported module binding: chicken.irregex#mst-hash o|hiding unexported module binding: chicken.irregex#mst-hash-set! o|hiding unexported module binding: chicken.irregex#mst-state-mappings o|hiding unexported module binding: chicken.irregex#mst-state-mappings-set! o|hiding unexported module binding: chicken.irregex#make-mst o|hiding unexported module binding: chicken.irregex#mst-copy o|hiding unexported module binding: chicken.irregex#nfa-state->mst o|hiding unexported module binding: chicken.irregex#mst-add! o|hiding unexported module binding: chicken.irregex#mst-add/fast! o|hiding unexported module binding: chicken.irregex#mst-add-tagged! o|hiding unexported module binding: chicken.irregex#mst-same-states? o|hiding unexported module binding: chicken.irregex#mst-fold o|hiding unexported module binding: chicken.irregex#next-index-for-tag! o|hiding unexported module binding: chicken.irregex#nfa->dfa o|hiding unexported module binding: chicken.irregex#dfa-renumber o|hiding unexported module binding: chicken.irregex#get-distinct-transitions o|hiding unexported module binding: chicken.irregex#nfa-epsilon-closure-internal o|hiding unexported module binding: chicken.irregex#nfa-epsilon-closure o|hiding unexported module binding: chicken.irregex#tag-set-commands-for-closure o|hiding unexported module binding: chicken.irregex#find-reorder-commands-internal o|hiding unexported module binding: chicken.irregex#find-reorder-commands o|hiding unexported module binding: chicken.irregex#sre->procedure o|hiding unexported module binding: chicken.irregex#sre-cset->procedure o|hiding unexported module binding: chicken.irregex#make-cset o|hiding unexported module binding: chicken.irregex#range->cset o|hiding unexported module binding: chicken.irregex#char->cset o|hiding unexported module binding: chicken.irregex#cset-empty? o|hiding unexported module binding: chicken.irregex#maybe-cset->char o|hiding unexported module binding: chicken.irregex#cset=? o|hiding unexported module binding: chicken.irregex#cset-size o|hiding unexported module binding: chicken.irregex#cset->plist o|hiding unexported module binding: chicken.irregex#plist->cset o|hiding unexported module binding: chicken.irregex#string->cset o|hiding unexported module binding: chicken.irregex#sre->cset o|hiding unexported module binding: chicken.irregex#cset->sre o|hiding unexported module binding: chicken.irregex#cset-contains? o|hiding unexported module binding: chicken.irregex#char-ranges-union o|hiding unexported module binding: chicken.irregex#cset-union o|hiding unexported module binding: chicken.irregex#cset-adjoin o|hiding unexported module binding: chicken.irregex#next-char o|hiding unexported module binding: chicken.irregex#prev-char o|hiding unexported module binding: chicken.irregex#cset-difference o|hiding unexported module binding: chicken.irregex#min-char o|hiding unexported module binding: chicken.irregex#max-char o|hiding unexported module binding: chicken.irregex#cset-intersection o|hiding unexported module binding: chicken.irregex#cset-complement o|hiding unexported module binding: chicken.irregex#cset-case-insensitive o|hiding unexported module binding: chicken.irregex#irregex-fold/fast o|hiding unexported module binding: chicken.irregex#irregex-fold/chunked/fast o|hiding unexported module binding: chicken.irregex#irregex-apply-match o|hiding unexported module binding: chicken.irregex#rx-special-chars o|hiding unexported module binding: chicken.irregex#string-scan-char o|hiding unexported module binding: chicken.irregex#cset->string S|applied compiler syntax: S| irregex-match-chunk&index-from-tag-set! 1 S| scheme#for-each 12 S| irregex-match-end-index-set! 7 S| irregex-match-end-chunk-set! 7 S| irregex-match-start-index-set! 7 S| irregex-match-start-chunk-set! 7 S| make-irregex 2 S| scheme#map 23 S| bit-not 1 S| bit-shr 10 S| bit-shl 11 S| bit-and 18 S| bit-ior 11 S| %%string-copy! 1 S| scheme#reverse 36 S| make-irregex-match 1 o|eliminated procedure checks: 531 o|eliminated procedure checks: 1 o|folded constant expression: (scheme#integer->char (quote 0)) o|folded constant expression: (scheme#integer->char (quote 55295)) o|folded constant expression: (scheme#integer->char (quote 57344)) o|folded constant expression: (scheme#integer->char (quote 1114111)) o|folded constant expression: (scheme#string->symbol (quote ".")) o|folded constant expression: (scheme#char->integer (quote #\newline)) o|folded constant expression: (scheme#+ (quote 10) (quote 3)) o|folded constant expression: (scheme#integer->char (quote 13)) o|folded constant expression: (scheme#char->integer (quote #\newline)) o|folded constant expression: (scheme#- (quote 10) (quote 1)) o|folded constant expression: (scheme#integer->char (quote 9)) o|folded constant expression: (scheme#char->integer (quote #\newline)) o|folded constant expression: (scheme#- (quote 10) (quote 3)) o|folded constant expression: (scheme#integer->char (quote 7)) o|folded constant expression: (scheme#char->integer (quote #\newline)) o|folded constant expression: (scheme#+ (quote 10) (quote 17)) o|folded constant expression: (scheme#integer->char (quote 27)) o|folded constant expression: (scheme#char->integer (quote #\newline)) o|folded constant expression: (scheme#+ (quote 10) (quote 2)) o|folded constant expression: (scheme#integer->char (quote 12)) o|folded constant expression: (scheme#integer->char (quote 128)) o|folded constant expression: (scheme#integer->char (quote 255)) o|folded constant expression: (scheme#integer->char (quote 255)) o|folded constant expression: (scheme#integer->char (quote 255)) o|folded constant expression: (scheme#integer->char (quote 128)) o|folded constant expression: (scheme#integer->char (quote 128)) o|folded constant expression: (scheme#integer->char (quote 128)) o|folded constant expression: (scheme#integer->char (quote 255)) o|folded constant expression: (scheme#integer->char (quote 128)) o|folded constant expression: (scheme#integer->char (quote 255)) o|folded constant expression: (scheme#integer->char (quote 128)) o|folded constant expression: (scheme#integer->char (quote 255)) o|folded constant expression: (scheme#integer->char (quote 128)) o|folded constant expression: (scheme#integer->char (quote 255)) o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#+ (quote 1) (quote 0)) o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#+ (quote 1) (quote 0)) o|eliminated procedure checks: 1 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#+ (quote 1) (quote 0)) o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#+ (quote 1) (quote 0)) o|eliminated procedure checks: 1 o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#- (quote 32) (quote 23)) o|folded constant expression: (scheme#integer->char (quote 9)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#- (quote 32) (quote 32)) o|folded constant expression: (scheme#integer->char (quote 0)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#- (quote 32) (quote 1)) o|folded constant expression: (scheme#integer->char (quote 31)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#- (quote 32) (quote 32)) o|folded constant expression: (scheme#integer->char (quote 0)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#+ (quote 32) (quote 95)) o|folded constant expression: (scheme#integer->char (quote 127)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#- (quote 32) (quote 32)) o|folded constant expression: (scheme#integer->char (quote 0)) o|folded constant expression: (scheme#char->integer (quote #\newline)) o|folded constant expression: (scheme#- (quote 10) (quote 1)) o|folded constant expression: (scheme#integer->char (quote 9)) o|folded constant expression: (scheme#char->integer (quote #\newline)) o|folded constant expression: (scheme#+ (quote 10) (quote 1)) o|folded constant expression: (scheme#integer->char (quote 11)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#+ (quote 32) (quote 95)) o|folded constant expression: (scheme#integer->char (quote 127)) o|folded constant expression: (scheme#char->integer (quote #\newline)) o|folded constant expression: (scheme#+ (quote 10) (quote 3)) o|folded constant expression: (scheme#integer->char (quote 13)) o|folded constant expression: (scheme#char->integer (quote #\newline)) o|folded constant expression: (scheme#+ (quote 10) (quote 3)) o|folded constant expression: (scheme#integer->char (quote 13)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#+ (quote 32) (quote 96)) o|folded constant expression: (scheme#integer->char (quote 128)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#+ (quote 32) (quote 161)) o|folded constant expression: (scheme#integer->char (quote 193)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#+ (quote 32) (quote 162)) o|folded constant expression: (scheme#integer->char (quote 194)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#+ (quote 32) (quote 191)) o|folded constant expression: (scheme#integer->char (quote 223)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#+ (quote 32) (quote 192)) o|folded constant expression: (scheme#integer->char (quote 224)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#+ (quote 32) (quote 207)) o|folded constant expression: (scheme#integer->char (quote 239)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#+ (quote 32) (quote 208)) o|folded constant expression: (scheme#integer->char (quote 240)) o|folded constant expression: (scheme#char->integer (quote #\space)) o|folded constant expression: (scheme#+ (quote 32) (quote 215)) o|folded constant expression: (scheme#integer->char (quote 247)) o|eliminated procedure checks: 1 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#+ (quote 1) (quote 0)) o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#+ (quote 2) (quote 0)) o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|folded constant expression: (scheme#+ (quote 3) (quote 0)) o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 1 (scheme#> fixnum fixnum) o| 1 (scheme#> integer integer) o| 1 (scheme#< integer integer) o| 1 (scheme#char= fixnum fixnum) o| 1 (scheme#< fixnum fixnum) o| 5 (scheme#<= fixnum fixnum) o| 7 (scheme#>= integer integer) o| 6 (scheme#cddr (pair * pair)) o| 17 (scheme#memq * list) o| 4 (##sys#check-list (or pair list) *) o| 3 (scheme#memv (or symbol keyword procedure eof null fixnum char boolean) list) o| 3 (scheme#string-ref string fixnum) o| 1 (scheme#number->string *) o| 126 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 6 (scheme#+ integer integer) o| 7 (scheme#* fixnum fixnum) o| 4 (scheme#odd? *) o| 13 (scheme#zero? *) o| 4 (scheme#char=? char char) o| 257 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 211 (scheme#cdr pair) o| 5 (scheme#cdar (pair pair *)) o| 12 (scheme#integer? *) o| 155 (scheme#car pair) o| 16 (scheme#- fixnum fixnum) o| 1 (chicken.irregex#irregex-names (struct regexp)) o| 1 (scheme#* integer integer) o| 215 (scheme#+ fixnum fixnum) (o e)|safe calls: 3584 (o e)|assignments to immediate values: 13 o|safe globals: (chicken.irregex#%irregex-match-fail-set! chicken.irregex#%irregex-match-fail chicken.irregex#%irregex-match-end-index chicken.irregex#irregex-match-chunker-set! chicken.irregex#irregex-match-names chicken.irregex#irregex-match-chunker chicken.irregex#irregex-match-num-submatches chicken.irregex#irregex-match-data? chicken.irregex#irregex-copy-matches chicken.irregex#irregex-reset-matches! chicken.irregex#irregex-new-matches chicken.irregex#irregex-names chicken.irregex#irregex-lengths chicken.irregex#irregex-num-submatches chicken.irregex#irregex-flags chicken.irregex#irregex-nfa chicken.irregex#irregex-dfa/search chicken.irregex#irregex-dfa chicken.irregex#irregex? chicken.irregex#vector-copy) o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-dfa/search o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-flags o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-lengths o|substituted constant variable: a7529 o|substituted constant variable: a7527 o|inlining procedure: k7546 o|inlining procedure: k7546 o|substituted constant variable: a7591 o|inlining procedure: k7673 o|contracted procedure: "(irregex-core.scm:224) g790791" o|inlining procedure: k7673 o|inlining procedure: k7698 o|contracted procedure: "(irregex-core.scm:227) g799800" o|inlining procedure: k7698 o|inlining procedure: k7727 o|contracted procedure: "(irregex-core.scm:230) g808809" o|inlining procedure: k7727 o|inlining procedure: k7756 o|inlining procedure: k7756 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-start-chunk-set! o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-start-index-set! o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-end-chunk-set! o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-end-index-set! o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-chunk&index-from-tag-set! o|inlining procedure: k7846 o|inlining procedure: k7846 o|inlining procedure: k7861 o|inlining procedure: k7861 o|inlining procedure: k7877 o|inlining procedure: k7913 o|inlining procedure: k7913 o|contracted procedure: "(irregex-core.scm:269) g856857" o|inlining procedure: k7921 o|inlining procedure: k7921 o|contracted procedure: "(irregex-core.scm:268) g849850" o|inlining procedure: k7891 o|substituted constant variable: a7909 o|inlining procedure: k7891 o|inlining procedure: k7877 o|inlining procedure: k7958 o|inlining procedure: k7958 o|inlining procedure: k7976 o|inlining procedure: k7976 o|contracted procedure: "(irregex-core.scm:279) g870871" o|inlining procedure: k8033 o|contracted procedure: "(irregex-core.scm:290) g878879" o|inlining procedure: k8051 o|substituted constant variable: a8069 o|inlining procedure: k8051 o|inlining procedure: k8033 o|contracted procedure: "(irregex-core.scm:291) chicken.irregex#irregex-match-valid-named-index?" o|inlining procedure: k7657 o|inlining procedure: k7657 o|inlining procedure: k8099 o|contracted procedure: "(irregex-core.scm:300) g901902" o|contracted procedure: "(irregex-core.scm:299) g897898" o|contracted procedure: "(irregex-core.scm:298) g893894" o|inlining procedure: "(irregex-core.scm:297) chicken.irregex#chunker-get-substring" o|inlining procedure: k8099 o|inlining procedure: "(irregex-core.scm:295) chicken.irregex#irregex-match-chunker" o|inlining procedure: k8183 o|inlining procedure: k8183 o|contracted procedure: "(irregex-core.scm:312) g920921" o|contracted procedure: "(irregex-core.scm:311) g916917" o|contracted procedure: "(irregex-core.scm:310) g912913" o|inlining procedure: "(irregex-core.scm:306) chicken.irregex#chunker-get-subchunk" o|inlining procedure: "(irregex-core.scm:305) chicken.irregex#irregex-match-chunker" o|inlining procedure: k8307 o|inlining procedure: k8319 o|inlining procedure: k8319 o|inlining procedure: k8307 o|inlining procedure: k8338 o|inlining procedure: k8338 o|inlining procedure: k8365 o|inlining procedure: k8365 o|inlining procedure: k8535 o|inlining procedure: "(irregex-core.scm:371) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:370) chicken.irregex#chunker-get-str" o|inlining procedure: k8535 o|contracted procedure: "(irregex-core.scm:368) chicken.irregex#chunker-prev-chunk" o|inlining procedure: k8499 o|inlining procedure: k8499 o|inlining procedure: k8517 o|inlining procedure: k8517 o|inlining procedure: "(irregex-core.scm:360) chicken.irregex#chunker-get-next" o|inlining procedure: k8568 o|inlining procedure: "(irregex-core.scm:377) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:376) chicken.irregex#chunker-get-str" o|inlining procedure: k8568 o|inlining procedure: "(irregex-core.scm:374) chicken.irregex#chunker-get-next" o|inlining procedure: k8696 o|inlining procedure: k8696 o|substituted constant variable: a8713 o|inlining procedure: k8893 o|inlining procedure: k8893 o|removed side-effect free assignment to unused variable: chicken.irregex#%substring=? o|removed side-effect free assignment to unused variable: chicken.irregex#%%string-copy! o|contracted procedure: "(irregex-core.scm:465) chicken.irregex#string-cat-reverse/aux" o|substituted constant variable: u11291134 o|inlining procedure: k9003 o|inlining procedure: k9003 o|inlining procedure: k9024 o|inlining procedure: k9024 o|inlining procedure: k9040 o|inlining procedure: k9040 o|inlining procedure: k9067 o|inlining procedure: k9067 o|removed side-effect free assignment to unused variable: chicken.irregex#find-tail o|inlining procedure: k9122 o|inlining procedure: k9122 o|inlining procedure: k9137 o|inlining procedure: k9137 o|inlining procedure: k9160 o|inlining procedure: k9176 o|inlining procedure: k9176 o|inlining procedure: k9160 o|inlining procedure: k9206 o|inlining procedure: k9206 o|inlining procedure: k9221 o|inlining procedure: k9221 o|inlining procedure: k9254 o|inlining procedure: k9254 o|removed side-effect free assignment to unused variable: chicken.irregex#filter o|removed side-effect free assignment to unused variable: chicken.irregex#remove o|removed side-effect free assignment to unused variable: chicken.irregex#bit-shr o|removed side-effect free assignment to unused variable: chicken.irregex#bit-shl o|removed side-effect free assignment to unused variable: chicken.irregex#bit-not o|removed side-effect free assignment to unused variable: chicken.irregex#bit-ior o|removed side-effect free assignment to unused variable: chicken.irregex#bit-and o|removed side-effect free assignment to unused variable: chicken.irregex#integer-log o|inlining procedure: k9578 o|inlining procedure: k9578 o|inlining procedure: k9612 o|inlining procedure: k9612 o|substituted constant variable: a9635 o|inlining procedure: k9645 o|inlining procedure: k9645 o|inlining procedure: k9664 o|inlining procedure: k9664 o|inlining procedure: k9685 o|inlining procedure: k9685 o|substituted constant variable: chicken.irregex#dot-token o|inlining procedure: k9726 o|substituted constant variable: a9737 o|inlining procedure: k9726 o|substituted constant variable: a9749 o|inlining procedure: k9753 o|inlining procedure: k9753 o|substituted constant variable: a9779 o|inlining procedure: k9784 o|substituted constant variable: a9798 o|substituted constant variable: a9815 o|inlining procedure: k9784 o|substituted constant variable: a9849 o|substituted constant variable: a9851 o|substituted constant variable: a9858 o|substituted constant variable: a9865 o|substituted constant variable: a9868 o|inlining procedure: k9869 o|substituted constant variable: a9880 o|substituted constant variable: a9883 o|inlining procedure: k9890 o|inlining procedure: k9890 o|inlining procedure: k9903 o|inlining procedure: k9903 o|substituted constant variable: a9930 o|inlining procedure: k9935 o|substituted constant variable: a9946 o|substituted constant variable: a9949 o|inlining procedure: k9935 o|substituted constant variable: a9959 o|substituted constant variable: a9961 o|substituted constant variable: a9963 o|inlining procedure: k9869 o|inlining procedure: k9973 o|substituted constant variable: a9984 o|inlining procedure: k9973 o|substituted constant variable: a10002 o|inlining procedure: k10010 o|inlining procedure: k10010 o|substituted constant variable: a10026 o|inlining procedure: k10022 o|inlining procedure: k10022 o|substituted constant variable: a10038 o|substituted constant variable: a10040 o|inlining procedure: k10041 o|substituted constant variable: a10059 o|substituted constant variable: a10060 o|substituted constant variable: a10067 o|inlining procedure: k10041 o|substituted constant variable: a10075 o|substituted constant variable: a10077 o|substituted constant variable: a10079 o|substituted constant variable: a10081 o|substituted constant variable: a10084 o|inlining procedure: k10085 o|substituted constant variable: a10096 o|inlining procedure: k10085 o|substituted constant variable: a10102 o|inlining procedure: k10106 o|inlining procedure: k10125 o|inlining procedure: k10125 o|inlining procedure: k10106 o|inlining procedure: k10144 o|inlining procedure: k10144 o|substituted constant variable: a10148 o|substituted constant variable: a10153 o|substituted constant variable: a10155 o|substituted constant variable: a10157 o|substituted constant variable: a10162 o|substituted constant variable: a10164 o|substituted constant variable: a10166 o|substituted constant variable: a10168 o|substituted constant variable: a10170 o|inlining procedure: k10177 o|inlining procedure: k10177 o|inlining procedure: k10204 o|inlining procedure: k10204 o|inlining procedure: k10223 o|substituted constant variable: chicken.irregex#~case-insensitive? o|propagated global variable: r1022430814 chicken.irregex#~case-insensitive? o|inlining procedure: k10223 o|substituted constant variable: chicken.irregex#~multi-line? o|inlining procedure: k10241 o|substituted constant variable: chicken.irregex#~single-line? o|propagated global variable: r1024230818 chicken.irregex#~single-line? o|inlining procedure: k10241 o|substituted constant variable: chicken.irregex#~ignore-space? o|inlining procedure: k10259 o|substituted constant variable: chicken.irregex#*allow-utf8-mode?* o|substituted constant variable: chicken.irregex#~utf8? o|substituted constant variable: chicken.irregex#~none o|inlining procedure: k10223 o|inlining procedure: k10259 o|substituted constant variable: a10275 o|substituted constant variable: a10277 o|substituted constant variable: a10282 o|substituted constant variable: a10284 o|substituted constant variable: a10289 o|substituted constant variable: a10291 o|substituted constant variable: a10296 o|substituted constant variable: a10298 o|inlining procedure: k10302 o|inlining procedure: k10302 o|substituted constant variable: a10309 o|substituted constant variable: a10311 o|substituted constant variable: a10313 o|substituted constant variable: chicken.irregex#~none o|inlining procedure: k10321 o|inlining procedure: k10321 o|inlining procedure: k10351 o|inlining procedure: k10351 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k10373 o|inlining procedure: k10395 o|inlining procedure: k10395 o|inlining procedure: k10373 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k10429 o|inlining procedure: k10429 o|inlining procedure: k10455 o|inlining procedure: k10455 o|inlining procedure: k10489 o|inlining procedure: k10489 o|contracted procedure: "(irregex-core.scm:754) chicken.irregex#utf8-backup-to-initial-char" o|inlining procedure: k14090 o|inlining procedure: k14090 o|substituted constant variable: a14113 o|substituted constant variable: a14118 o|substituted constant variable: a14120 o|substituted constant variable: chicken.irregex#~utf8? o|inlining procedure: k10549 o|inlining procedure: k10564 o|substituted constant variable: a10583 o|inlining procedure: k10576 o|inlining procedure: k10576 o|inlining procedure: k10564 o|substituted constant variable: chicken.irregex#~save? o|inlining procedure: k10549 o|substituted constant variable: a10691 o|inlining procedure: k10684 o|inlining procedure: k10684 o|inlining procedure: k10728 o|inlining procedure: k10728 o|substituted constant variable: a10742 o|substituted constant variable: a10750 o|inlining procedure: k10765 o|inlining procedure: k10765 o|substituted constant variable: a10797 o|substituted constant variable: a10800 o|substituted constant variable: chicken.irregex#~single-line? o|inlining procedure: k10816 o|substituted constant variable: a10842 o|substituted constant variable: a10845 o|inlining procedure: k10851 o|inlining procedure: k10871 o|inlining procedure: k10871 o|inlining procedure: k10901 o|inlining procedure: k10901 o|inlining procedure: k10931 o|inlining procedure: k10931 o|substituted constant variable: a10959 o|substituted constant variable: a10961 o|substituted constant variable: a10963 o|substituted constant variable: a10965 o|substituted constant variable: a10967 o|substituted constant variable: a10969 o|inlining procedure: k10851 o|inlining procedure: k10816 o|inlining procedure: k10991 o|inlining procedure: k10991 o|substituted constant variable: a11014 o|substituted constant variable: a11017 o|inlining procedure: k11038 o|substituted constant variable: a11049 o|inlining procedure: k11054 o|substituted constant variable: a11065 o|substituted constant variable: a11068 o|substituted constant variable: chicken.irregex#~save? o|inlining procedure: k11054 o|substituted constant variable: a11082 o|inlining procedure: k11087 o|substituted constant variable: a11104 o|inlining procedure: k11108 o|inlining procedure: k11108 o|substituted constant variable: a11146 o|substituted constant variable: a11154 o|substituted constant variable: a11161 o|inlining procedure: k11087 o|substituted constant variable: a11191 o|inlining procedure: k11192 o|substituted constant variable: a11203 o|substituted constant variable: a11206 o|substituted constant variable: chicken.irregex#~save? o|inlining procedure: k11192 o|substituted constant variable: a11226 o|substituted constant variable: a11229 o|substituted constant variable: chicken.irregex#~save? o|inlining procedure: k11238 o|substituted constant variable: a11249 o|substituted constant variable: a11252 o|substituted constant variable: chicken.irregex#~save? o|inlining procedure: k11238 o|substituted constant variable: a11272 o|inlining procedure: k11267 o|inlining procedure: k11267 o|substituted constant variable: a11291 o|substituted constant variable: a11294 o|substituted constant variable: chicken.irregex#~save? o|inlining procedure: k11303 o|substituted constant variable: a11314 o|substituted constant variable: a11317 o|substituted constant variable: chicken.irregex#~save? o|inlining procedure: k11303 o|substituted constant variable: a11365 o|substituted constant variable: chicken.irregex#~save? o|substituted constant variable: a11377 o|substituted constant variable: a11384 o|substituted constant variable: a11386 o|substituted constant variable: a11388 o|substituted constant variable: a11391 o|inlining procedure: k11392 o|substituted constant variable: a11403 o|substituted constant variable: a11406 o|substituted constant variable: chicken.irregex#~save? o|inlining procedure: k11392 o|substituted constant variable: a11426 o|inlining procedure: k11421 o|inlining procedure: k11421 o|inlining procedure: k11443 o|inlining procedure: k11443 o|substituted constant variable: a11457 o|substituted constant variable: a11460 o|substituted constant variable: chicken.irregex#~save? o|substituted constant variable: a11479 o|substituted constant variable: a11482 o|inlining procedure: k11483 o|substituted constant variable: a11500 o|substituted constant variable: a11503 o|substituted constant variable: chicken.irregex#~save? o|substituted constant variable: a11522 o|substituted constant variable: a11525 o|inlining procedure: k11483 o|substituted constant variable: a11531 o|substituted constant variable: a11534 o|substituted constant variable: chicken.irregex#~save? o|substituted constant variable: a11549 o|substituted constant variable: a11556 o|inlining procedure: k11557 o|inlining procedure: k11557 o|substituted constant variable: a11571 o|inlining procedure: k11578 o|propagated global variable: r1157930901 chicken.irregex#flag-clear o|inlining procedure: k11578 o|propagated global variable: r1157930906 chicken.irregex#flag-join o|inlining procedure: k11593 o|inlining procedure: k11593 o|inlining procedure: k11603 o|inlining procedure: k11603 o|substituted constant variable: chicken.irregex#~utf8? o|substituted constant variable: chicken.irregex#~utf8? o|inlining procedure: k11606 o|inlining procedure: k11606 o|substituted constant variable: a11629 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k11634 o|substituted constant variable: a11645 o|substituted constant variable: chicken.irregex#~multi-line? o|inlining procedure: k11634 o|substituted constant variable: a11661 o|substituted constant variable: chicken.irregex#~ignore-space? o|inlining procedure: k11666 o|substituted constant variable: chicken.irregex#*allow-utf8-mode?* o|substituted constant variable: a11680 o|substituted constant variable: chicken.irregex#~utf8? o|substituted constant variable: a11690 o|inlining procedure: k11666 o|substituted constant variable: a11702 o|inlining procedure: k11707 o|substituted constant variable: a11718 o|substituted constant variable: a11721 o|inlining procedure: k11707 o|substituted constant variable: a11741 o|substituted constant variable: a11744 o|substituted constant variable: a11765 o|substituted constant variable: a11767 o|substituted constant variable: a11769 o|substituted constant variable: a11771 o|substituted constant variable: a11773 o|substituted constant variable: a11775 o|substituted constant variable: a11777 o|substituted constant variable: a11779 o|substituted constant variable: a11781 o|substituted constant variable: a11783 o|substituted constant variable: a11785 o|substituted constant variable: a11787 o|substituted constant variable: a11789 o|substituted constant variable: a11791 o|substituted constant variable: a11793 o|substituted constant variable: a11796 o|substituted constant variable: a11801 o|substituted constant variable: a11804 o|substituted constant variable: a11810 o|substituted constant variable: a11813 o|inlining procedure: k11038 o|inlining procedure: k11820 o|inlining procedure: k11820 o|substituted constant variable: a11834 o|substituted constant variable: a11837 o|inlining procedure: k11856 o|substituted constant variable: a11893 o|contracted procedure: "(irregex-core.scm:996) chicken.irregex#string-parse-cset" o|inlining procedure: k13270 o|inlining procedure: k13270 o|inlining procedure: k13288 o|substituted constant variable: a13299 o|inlining procedure: k13288 o|contracted procedure: "(irregex-core.scm:1216) chicken.irregex#cset->sre" o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k13327 o|substituted constant variable: a13347 o|inlining procedure: k13352 o|inlining procedure: k13352 o|inlining procedure: k13370 o|inlining procedure: k13370 o|inlining procedure: k13394 o|inlining procedure: k13394 o|substituted constant variable: a13424 o|inlining procedure: k13425 o|substituted constant variable: a13447 o|inlining procedure: k13425 o|substituted constant variable: a13453 o|substituted constant variable: a13471 o|substituted constant variable: a13474 o|substituted constant variable: a13475 o|substituted constant variable: a13483 o|substituted constant variable: a13487 o|inlining procedure: k13491 o|inlining procedure: k13491 o|substituted constant variable: a13497 o|substituted constant variable: a13504 o|substituted constant variable: a13511 o|inlining procedure: k13327 o|inlining procedure: k13535 o|substituted constant variable: a13567 o|consed rest parameter at call site: "(irregex-core.scm:1252) chicken.irregex#sre->cset" 2 o|substituted constant variable: a13585 o|substituted constant variable: a13593 o|substituted constant variable: a13604 o|inlining procedure: k13535 o|substituted constant variable: a13622 o|substituted constant variable: a13631 o|substituted constant variable: a13633 o|substituted constant variable: a13635 o|substituted constant variable: a13637 o|substituted constant variable: a13639 o|substituted constant variable: a13640 o|substituted constant variable: a13647 o|inlining procedure: k13648 o|substituted constant variable: a13671 o|consed rest parameter at call site: "(irregex-core.scm:1267) chicken.irregex#sre->cset" 2 o|inlining procedure: k13688 o|substituted constant variable: a13713 o|inlining procedure: k13688 o|substituted constant variable: a13725 o|substituted constant variable: a13734 o|inlining procedure: k13738 o|inlining procedure: k13738 o|inlining procedure: k13750 o|inlining procedure: k13750 o|substituted constant variable: a13763 o|substituted constant variable: a13765 o|substituted constant variable: a13767 o|substituted constant variable: a13769 o|substituted constant variable: a13771 o|substituted constant variable: a13773 o|substituted constant variable: a13776 o|inlining procedure: k13648 o|substituted constant variable: a13810 o|substituted constant variable: a13823 o|substituted constant variable: a13825 o|substituted constant variable: a13827 o|substituted constant variable: a13829 o|inlining procedure: k13830 o|inlining procedure: k13841 o|inlining procedure: k13841 o|inlining procedure: "(irregex-core.scm:1289) chicken.irregex#make-cset" o|substituted constant variable: chicken.irregex#~multi-line? o|inlining procedure: k13830 o|inlining procedure: "(irregex-core.scm:1290) chicken.irregex#make-cset" o|substituted constant variable: chicken.irregex#~utf8? o|substituted constant variable: a13866 o|inlining procedure: k11856 o|substituted constant variable: a11905 o|inlining procedure: k11900 o|substituted constant variable: a11915 o|inlining procedure: k11900 o|inlining procedure: k11944 o|inlining procedure: k11944 o|substituted constant variable: a11967 o|substituted constant variable: a11970 o|inlining procedure: k11979 o|substituted constant variable: a11987 o|substituted constant variable: a11990 o|inlining procedure: k11979 o|substituted constant variable: a12004 o|substituted constant variable: a12007 o|inlining procedure: k12018 o|inlining procedure: k12018 o|contracted procedure: "(irregex-core.scm:1012) chicken.irregex#string-split-char" o|inlining procedure: k8844 o|inlining procedure: k8844 o|substituted constant variable: a8868 o|substituted constant variable: a8871 o|substituted constant variable: a8881 o|substituted constant variable: a12065 o|substituted constant variable: a12068 o|inlining procedure: k12076 o|inlining procedure: k12076 o|substituted constant variable: a12082 o|substituted constant variable: a12089 o|substituted constant variable: a12096 o|inlining procedure: k12097 o|substituted constant variable: a12108 o|inlining procedure: k12116 o|substituted constant variable: a12127 o|substituted constant variable: a12130 o|inlining procedure: k12116 o|substituted constant variable: a12150 o|substituted constant variable: a12153 o|inlining procedure: k12166 o|substituted constant variable: a12177 o|substituted constant variable: a12180 o|inlining procedure: k12166 o|substituted constant variable: a12200 o|substituted constant variable: a12203 o|inlining procedure: k12216 o|substituted constant variable: a12227 o|substituted constant variable: a12230 o|inlining procedure: k12216 o|substituted constant variable: a12258 o|substituted constant variable: a12261 o|inlining procedure: k12282 o|substituted constant variable: a12293 o|substituted constant variable: a12296 o|inlining procedure: k12282 o|substituted constant variable: a12320 o|substituted constant variable: a12323 o|inlining procedure: k12332 o|substituted constant variable: a12343 o|substituted constant variable: a12346 o|inlining procedure: k12332 o|substituted constant variable: a12366 o|substituted constant variable: a12369 o|inlining procedure: k12386 o|substituted constant variable: a12397 o|substituted constant variable: a12400 o|inlining procedure: k12386 o|substituted constant variable: a12420 o|substituted constant variable: a12423 o|inlining procedure: k12432 o|substituted constant variable: a12443 o|substituted constant variable: a12446 o|inlining procedure: k12432 o|substituted constant variable: a12466 o|substituted constant variable: a12469 o|inlining procedure: k12478 o|substituted constant variable: a12489 o|substituted constant variable: a12492 o|inlining procedure: k12478 o|substituted constant variable: a12538 o|inlining procedure: k12539 o|inlining procedure: k12569 o|inlining procedure: k12569 o|substituted constant variable: chicken.irregex#~case-insensitive? o|substituted constant variable: a12613 o|substituted constant variable: a12616 o|contracted procedure: "(irregex-core.scm:1081) chicken.irregex#char-mirror" o|inlining procedure: k13126 o|inlining procedure: k13126 o|inlining procedure: k13138 o|inlining procedure: k13138 o|substituted constant variable: a13151 o|substituted constant variable: a13153 o|substituted constant variable: a13155 o|substituted constant variable: a13157 o|substituted constant variable: a12619 o|substituted constant variable: a12622 o|inlining procedure: k12539 o|substituted constant variable: a12637 o|inlining procedure: k12641 o|inlining procedure: k12641 o|substituted constant variable: a12665 o|inlining procedure: k12660 o|substituted constant variable: a12672 o|inlining procedure: k12660 o|substituted constant variable: a12688 o|substituted constant variable: a12691 o|substituted constant variable: a12709 o|substituted constant variable: a12710 o|substituted constant variable: a12717 o|substituted constant variable: a12723 o|substituted constant variable: a12724 o|inlining procedure: k12729 o|substituted constant variable: a12740 o|inlining procedure: k12729 o|substituted constant variable: a12794 o|substituted constant variable: chicken.irregex#~case-insensitive? o|substituted constant variable: a12810 o|contracted procedure: "(irregex-core.scm:1122) chicken.irregex#string-scan-pred" o|inlining procedure: k8796 o|inlining procedure: k8796 o|substituted constant variable: a8813 o|inlining procedure: k12811 o|substituted constant variable: a12828 o|substituted constant variable: a12831 o|inlining procedure: k12811 o|substituted constant variable: a12852 o|substituted constant variable: a12855 o|substituted constant variable: a12861 o|substituted constant variable: a12863 o|substituted constant variable: a12865 o|substituted constant variable: a12867 o|substituted constant variable: a12869 o|substituted constant variable: a12871 o|substituted constant variable: a12873 o|substituted constant variable: a12875 o|substituted constant variable: a12877 o|substituted constant variable: a12879 o|substituted constant variable: a12881 o|substituted constant variable: a12883 o|substituted constant variable: a12885 o|substituted constant variable: a12887 o|substituted constant variable: a12889 o|substituted constant variable: a12891 o|substituted constant variable: a12893 o|substituted constant variable: a12895 o|substituted constant variable: a12897 o|substituted constant variable: a12900 o|inlining procedure: k12097 o|substituted constant variable: a12912 o|substituted constant variable: a12915 o|inlining procedure: k12924 o|substituted constant variable: a12938 o|substituted constant variable: a12941 o|substituted constant variable: chicken.irregex#~multi-line? o|inlining procedure: k12924 o|substituted constant variable: a12967 o|substituted constant variable: a12970 o|substituted constant variable: chicken.irregex#~multi-line? o|inlining procedure: k12982 o|substituted constant variable: a12999 o|substituted constant variable: a13002 o|substituted constant variable: a13012 o|substituted constant variable: chicken.irregex#~ignore-space? o|inlining procedure: k12982 o|inlining procedure: k13019 o|substituted constant variable: a13047 o|substituted constant variable: a13050 o|inlining procedure: k13019 o|substituted constant variable: a13056 o|substituted constant variable: chicken.irregex#~ignore-space? o|substituted constant variable: a13062 o|substituted constant variable: a13064 o|substituted constant variable: a13066 o|substituted constant variable: a13068 o|substituted constant variable: a13070 o|substituted constant variable: a13072 o|substituted constant variable: a13074 o|substituted constant variable: a13076 o|substituted constant variable: a13078 o|substituted constant variable: a13080 o|substituted constant variable: a13082 o|substituted constant variable: a13087 o|substituted constant variable: a13089 o|substituted constant variable: a13091 o|substituted constant variable: a13093 o|inlining procedure: k13111 o|inlining procedure: k13111 o|inlining procedure: k13161 o|inlining procedure: k13161 o|inlining procedure: k13179 o|inlining procedure: k13179 o|substituted constant variable: a13209 o|substituted constant variable: a13212 o|contracted procedure: "(irregex-core.scm:1184) chicken.irregex#string-scan-char-escape" o|inlining procedure: k8739 o|inlining procedure: k8739 o|inlining procedure: k8751 o|substituted constant variable: a8762 o|inlining procedure: k8751 o|substituted constant variable: a8768 o|substituted constant variable: a8770 o|inlining procedure: k13213 o|inlining procedure: k13213 o|substituted constant variable: a13240 o|substituted constant variable: a13246 o|substituted constant variable: a13249 o|substituted constant variable: a13250 o|substituted constant variable: a13877 o|substituted constant variable: table1932 o|inlining procedure: k13905 o|inlining procedure: k13905 o|inlining procedure: k13948 o|inlining procedure: k13948 o|substituted constant variable: a14074 o|substituted constant variable: a14076 o|substituted constant variable: a14078 o|substituted constant variable: a14080 o|inlining procedure: k14128 o|inlining procedure: k14128 o|inlining procedure: k14140 o|inlining procedure: k14140 o|substituted constant variable: a14156 o|substituted constant variable: a14158 o|substituted constant variable: a14160 o|substituted constant variable: a14162 o|inlining procedure: k14207 o|inlining procedure: k14207 o|inlining procedure: k14241 o|inlining procedure: k14241 o|substituted constant variable: a14331 o|substituted constant variable: a14333 o|substituted constant variable: a14335 o|substituted constant variable: a14337 o|inlining procedure: k14480 o|inlining procedure: k14480 o|inlining procedure: k14546 o|contracted procedure: "(irregex-core.scm:1428) g20712080" o|inlining procedure: k14546 o|inlining procedure: k14582 o|inlining procedure: k14582 o|inlining procedure: k14703 o|inlining procedure: k14703 o|inlining procedure: k14842 o|inlining procedure: k14842 o|inlining procedure: k15345 o|inlining procedure: k15363 o|inlining procedure: k15363 o|inlining procedure: k15345 o|contracted procedure: "(irregex-core.scm:1516) chicken.irregex#unicode-range->utf8-pattern" o|inlining procedure: k14347 o|contracted procedure: "(irregex-core.scm:1401) chicken.irregex#unicode-range-climb-digits" o|inlining procedure: k14948 o|contracted procedure: "(irregex-core.scm:1483) g22312240" o|inlining procedure: k14948 o|contracted procedure: "(irregex-core.scm:1482) chicken.irregex#utf8-highest-digit-of-length" o|inlining procedure: k14166 o|inlining procedure: k14166 o|inlining procedure: k14178 o|inlining procedure: k14178 o|substituted constant variable: a14194 o|substituted constant variable: a14196 o|substituted constant variable: a14198 o|substituted constant variable: a14200 o|inlining procedure: k15051 o|contracted procedure: "(irregex-core.scm:1494) g22712280" o|inlining procedure: k15051 o|inlining procedure: k15119 o|inlining procedure: k15119 o|substituted constant variable: a15157 o|inlining procedure: k15189 o|contracted procedure: "(irregex-core.scm:1474) g21782187" o|inlining procedure: k15189 o|inlining procedure: k15229 o|inlining procedure: k15229 o|inlining procedure: k14347 o|inlining procedure: k14374 o|inlining procedure: k14392 o|inlining procedure: k14392 o|inlining procedure: k14374 o|contracted procedure: "(irregex-core.scm:1415) chicken.irregex#unicode-range-middle" o|inlining procedure: k15280 o|contracted procedure: "(irregex-core.scm:1503) g23092318" o|inlining procedure: k15280 o|inlining procedure: k15902 o|inlining procedure: k15902 o|inlining procedure: k15914 o|inlining procedure: k15914 o|inlining procedure: k15932 o|inlining procedure: k15932 o|inlining procedure: k15950 o|inlining procedure: k15950 o|inlining procedure: k16015 o|inlining procedure: k16015 o|inlining procedure: k16076 o|inlining procedure: k16076 o|contracted procedure: "(irregex-core.scm:1621) chicken.irregex#sre->procedure" o|inlining procedure: "(irregex-core.scm:3100) chicken.irregex#%irregex-match-fail-set!" o|inlining procedure: k23170 o|consed rest parameter at call site: "(irregex-core.scm:3108) chicken.irregex#sre->cset" 2 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k23196 o|consed rest parameter at call site: "(irregex-core.scm:3113) chicken.irregex#sre->cset" 2 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k23196 o|inlining procedure: k23225 o|inlining procedure: k23225 o|substituted constant variable: a23291 o|substituted constant variable: a23293 o|inlining procedure: k23296 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k23296 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k23334 o|substituted constant variable: chicken.irregex#~utf8? o|inlining procedure: k23334 o|substituted constant variable: chicken.irregex#~utf8? o|inlining procedure: k23372 o|inlining procedure: k23390 o|inlining procedure: k23390 o|substituted constant variable: a23434 o|substituted constant variable: a23436 o|inlining procedure: k23372 o|inlining procedure: k23465 o|inlining procedure: k23465 o|inlining procedure: k23497 o|inlining procedure: k23497 o|inlining procedure: k23536 o|inlining procedure: k23536 o|inlining procedure: k23596 o|inlining procedure: k23596 o|inlining procedure: k23633 o|inlining procedure: k23633 o|inlining procedure: k23692 o|inlining procedure: k23728 o|inlining procedure: k23728 o|inlining procedure: k23746 o|inlining procedure: k23746 o|inlining procedure: k23769 o|inlining procedure: k23769 o|inlining procedure: k23786 o|inlining procedure: k23786 o|inlining procedure: k23797 o|inlining procedure: k23797 o|inlining procedure: k23805 o|inlining procedure: k23805 o|inlining procedure: k23820 o|inlining procedure: k23820 o|inlining procedure: k23692 o|inlining procedure: k23850 o|inlining procedure: k23880 o|inlining procedure: k23880 o|inlining procedure: k23902 o|inlining procedure: k23902 o|inlining procedure: k23850 o|inlining procedure: k23936 o|inlining procedure: k23936 o|inlining procedure: k23959 o|inlining procedure: k23959 o|inlining procedure: k23967 o|inlining procedure: k23967 o|inlining procedure: k23982 o|inlining procedure: k23982 o|inlining procedure: k24006 o|inlining procedure: k24006 o|inlining procedure: k24064 o|inlining procedure: k24064 o|inlining procedure: k24092 o|inlining procedure: k24092 o|inlining procedure: k24116 o|inlining procedure: k24127 o|inlining procedure: k24127 o|inlining procedure: k24116 o|inlining procedure: k24181 o|inlining procedure: k24181 o|inlining procedure: "(irregex-core.scm:3319) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:3317) chicken.irregex#chunker-get-str" o|contracted procedure: "(irregex-core.scm:3316) chicken.irregex#wrap-end-chunker" o|inlining procedure: k8628 o|inlining procedure: "(irregex-core.scm:391) chicken.irregex#chunker-get-next" o|inlining procedure: k8628 o|inlining procedure: k8655 o|inlining procedure: k8655 o|inlining procedure: "(irregex-core.scm:394) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:396) chicken.irregex#chunker-get-subchunk" o|inlining procedure: "(irregex-core.scm:395) chicken.irregex#chunker-get-substring" o|inlining procedure: "(irregex-core.scm:393) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:392) chicken.irregex#chunker-get-str" o|inlining procedure: k24237 o|inlining procedure: k24251 o|inlining procedure: k24251 o|inlining procedure: k24237 o|inlining procedure: k24287 o|inlining procedure: k24301 o|inlining procedure: k24301 o|contracted procedure: "(irregex-core.scm:3357) g47364737" o|inlining procedure: k24336 o|inlining procedure: k24336 o|inlining procedure: k24287 o|inlining procedure: k24425 o|inlining procedure: k24445 o|inlining procedure: k24445 o|inlining procedure: k24464 o|inlining procedure: k24464 o|inlining procedure: k24514 o|inlining procedure: "(irregex-core.scm:3402) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:3401) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:3400) chicken.irregex#chunker-get-str" o|inlining procedure: k24514 o|inlining procedure: "(irregex-core.scm:3397) chicken.irregex#chunker-get-next" o|inlining procedure: k24582 o|inlining procedure: k24582 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k24598 o|inlining procedure: k24598 o|inlining procedure: k24425 o|inlining procedure: k24642 o|contracted procedure: "(irregex-core.scm:3431) g48494850" o|contracted procedure: "(irregex-core.scm:3430) g48454846" o|contracted procedure: "(irregex-core.scm:3417) g48154816" o|inlining procedure: k24642 o|substituted constant variable: a24885 o|substituted constant variable: a24887 o|substituted constant variable: a24892 o|substituted constant variable: a24894 o|substituted constant variable: a24896 o|substituted constant variable: a24901 o|substituted constant variable: a24903 o|substituted constant variable: a24905 o|substituted constant variable: a24907 o|substituted constant variable: a24912 o|substituted constant variable: a24914 o|substituted constant variable: a24916 o|substituted constant variable: a24918 o|substituted constant variable: a24920 o|substituted constant variable: a24922 o|substituted constant variable: a24924 o|substituted constant variable: a24926 o|substituted constant variable: a24928 o|substituted constant variable: a24930 o|substituted constant variable: a24932 o|substituted constant variable: a24934 o|substituted constant variable: a24936 o|substituted constant variable: a24938 o|substituted constant variable: a24940 o|substituted constant variable: a24942 o|substituted constant variable: a24947 o|substituted constant variable: a24949 o|substituted constant variable: a24951 o|substituted constant variable: a24953 o|substituted constant variable: a24955 o|substituted constant variable: a24957 o|substituted constant variable: a24959 o|inlining procedure: k24963 o|inlining procedure: k24963 o|substituted constant variable: a24976 o|substituted constant variable: a24978 o|substituted constant variable: a24980 o|substituted constant variable: a24982 o|inlining procedure: k23170 o|inlining procedure: k24991 o|inlining procedure: k24999 o|inlining procedure: k24999 o|inlining procedure: "(irregex-core.scm:3455) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:3454) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:3453) chicken.irregex#chunker-get-str" o|inlining procedure: "(irregex-core.scm:3451) chicken.irregex#chunker-get-next" o|inlining procedure: k24991 o|inlining procedure: k25057 o|substituted constant variable: a25074 o|substituted constant variable: a25082 o|inlining procedure: k25057 o|inlining procedure: k25114 o|substituted constant variable: a25125 o|inlining procedure: k25114 o|substituted constant variable: a25133 o|inlining procedure: "(irregex-core.scm:3468) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:3467) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:3466) chicken.irregex#chunker-get-str" o|inlining procedure: "(irregex-core.scm:3464) chicken.irregex#chunker-get-next" o|inlining procedure: k25141 o|inlining procedure: k25149 o|inlining procedure: k25149 o|inlining procedure: k25141 o|inlining procedure: k25179 o|inlining procedure: k25179 o|inlining procedure: k25194 o|substituted constant variable: a25203 o|inlining procedure: k25194 o|inlining procedure: "(irregex-core.scm:3481) chicken.irregex#chunker-get-start" o|inlining procedure: k25229 o|inlining procedure: k25237 o|inlining procedure: k25237 o|inlining procedure: k25252 o|inlining procedure: k25252 o|inlining procedure: "(irregex-core.scm:3497) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:3496) chicken.irregex#chunker-get-str" o|inlining procedure: "(irregex-core.scm:3493) chicken.irregex#chunker-get-next" o|inlining procedure: k25319 o|inlining procedure: k25319 o|inlining procedure: "(irregex-core.scm:3487) chicken.irregex#chunker-get-start" o|inlining procedure: k25229 o|inlining procedure: k25344 o|inlining procedure: k25344 o|inlining procedure: "(irregex-core.scm:3502) chicken.irregex#chunker-get-next" o|inlining procedure: k25369 o|inlining procedure: k25377 o|inlining procedure: k25377 o|substituted constant variable: a25395 o|inlining procedure: k25406 o|inlining procedure: k25406 o|substituted constant variable: a25415 o|inlining procedure: "(irregex-core.scm:3514) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:3513) chicken.irregex#chunker-get-str" o|inlining procedure: "(irregex-core.scm:3509) chicken.irregex#chunker-get-next" o|inlining procedure: k25369 o|inlining procedure: k25442 o|inlining procedure: k25442 o|inlining procedure: k25457 o|inlining procedure: k25457 o|inlining procedure: "(irregex-core.scm:3523) chicken.irregex#chunker-get-start" o|inlining procedure: k25513 o|inlining procedure: k25513 o|inlining procedure: k25523 o|inlining procedure: k25537 o|inlining procedure: k25537 o|inlining procedure: k25549 o|inlining procedure: k25549 o|inlining procedure: "(irregex-core.scm:3534) chicken.irregex#chunker-get-start" o|inlining procedure: k25523 o|inlining procedure: k25606 o|inlining procedure: k25606 o|substituted constant variable: a25620 o|substituted constant variable: a25622 o|substituted constant variable: a25624 o|substituted constant variable: a25626 o|substituted constant variable: a25628 o|substituted constant variable: a25630 o|substituted constant variable: a25632 o|substituted constant variable: a25634 o|substituted constant variable: a25636 o|substituted constant variable: a25638 o|inlining procedure: k25639 o|inlining procedure: k25653 o|inlining procedure: k25672 o|inlining procedure: "(irregex-core.scm:3561) chicken.irregex#chunker-get-next" o|inlining procedure: k25709 o|substituted constant variable: a25720 o|inlining procedure: k25709 o|inlining procedure: "(irregex-core.scm:3559) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:3558) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:3557) chicken.irregex#chunker-get-str" o|inlining procedure: k25672 o|inlining procedure: "(irregex-core.scm:3555) chicken.irregex#chunker-get-next" o|inlining procedure: k25653 o|substituted constant variable: a25742 o|inlining procedure: k25752 o|inlining procedure: k25771 o|inlining procedure: "(irregex-core.scm:3579) chicken.irregex#chunker-get-next" o|inlining procedure: k25808 o|substituted constant variable: a25819 o|inlining procedure: k25808 o|inlining procedure: "(irregex-core.scm:3577) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:3576) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:3575) chicken.irregex#chunker-get-str" o|inlining procedure: k25771 o|inlining procedure: "(irregex-core.scm:3573) chicken.irregex#chunker-get-next" o|inlining procedure: k25752 o|substituted constant variable: a25841 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k25639 o|substituted constant variable: chicken.irregex#~none o|inlining procedure: k16093 o|substituted constant variable: chicken.irregex#~consumer? o|propagated global variable: r1609431473 chicken.irregex#~consumer? o|inlining procedure: k16093 o|substituted constant variable: chicken.irregex#~none o|inlining procedure: k16100 o|substituted constant variable: chicken.irregex#~searcher? o|propagated global variable: r1610131477 chicken.irregex#~searcher? o|substituted constant variable: chicken.irregex#~none o|inlining procedure: k16100 o|substituted constant variable: chicken.irregex#~none o|contracted procedure: "(irregex-core.scm:1613) chicken.irregex#sre-length-ranges" o|inlining procedure: k16876 o|inlining procedure: k16876 o|inlining procedure: k16882 o|inlining procedure: k16898 o|inlining procedure: k16898 o|inlining procedure: k16927 o|inlining procedure: k16944 o|inlining procedure: k16958 o|inlining procedure: k16958 o|inlining procedure: k16944 o|inlining procedure: k16993 o|inlining procedure: k16993 o|inlining procedure: k16927 o|inlining procedure: k17022 o|inlining procedure: k17036 o|inlining procedure: k17036 o|inlining procedure: k17046 o|inlining procedure: k17046 o|inlining procedure: k17022 o|inlining procedure: k17075 o|inlining procedure: k17075 o|inlining procedure: k17093 o|inlining procedure: k17163 o|inlining procedure: k17169 o|inlining procedure: k17169 o|inlining procedure: k17163 o|inlining procedure: k17196 o|inlining procedure: k17196 o|inlining procedure: k17093 o|inlining procedure: k17251 o|inlining procedure: k17285 o|inlining procedure: k17285 o|inlining procedure: k17251 o|inlining procedure: k17309 o|inlining procedure: k17309 o|inlining procedure: k17344 o|inlining procedure: k17344 o|inlining procedure: k17387 o|inlining procedure: k17387 o|inlining procedure: k17406 o|inlining procedure: k17406 o|inlining procedure: k17439 o|inlining procedure: k17439 o|inlining procedure: k17475 o|inlining procedure: k17475 o|inlining procedure: k17533 o|inlining procedure: k17533 o|inlining procedure: k17548 o|inlining procedure: k17548 o|inlining procedure: k17572 o|inlining procedure: k17572 o|inlining procedure: k17620 o|inlining procedure: k17620 o|inlining procedure: k17631 o|substituted constant variable: a17668 o|inlining procedure: k17660 o|inlining procedure: k17660 o|inlining procedure: k17631 o|inlining procedure: k17686 o|inlining procedure: k17686 o|inlining procedure: k17717 o|inlining procedure: k17717 o|substituted constant variable: a17730 o|substituted constant variable: a17732 o|substituted constant variable: a17734 o|substituted constant variable: a17736 o|inlining procedure: k17740 o|inlining procedure: k17740 o|substituted constant variable: a17753 o|substituted constant variable: a17755 o|substituted constant variable: a17757 o|substituted constant variable: a17759 o|substituted constant variable: a17764 o|substituted constant variable: a17766 o|substituted constant variable: a17768 o|substituted constant variable: a17773 o|substituted constant variable: a17775 o|substituted constant variable: a17780 o|substituted constant variable: a17782 o|substituted constant variable: a17787 o|substituted constant variable: a17789 o|inlining procedure: k17793 o|inlining procedure: k17793 o|substituted constant variable: a17806 o|substituted constant variable: a17808 o|substituted constant variable: a17810 o|substituted constant variable: a17812 o|substituted constant variable: a17814 o|substituted constant variable: a17816 o|substituted constant variable: a17818 o|inlining procedure: k17822 o|inlining procedure: k17822 o|inlining procedure: k17834 o|inlining procedure: k17834 o|substituted constant variable: a17841 o|substituted constant variable: a17843 o|substituted constant variable: a17845 o|substituted constant variable: a17847 o|substituted constant variable: a17849 o|substituted constant variable: a17851 o|inlining procedure: k17855 o|inlining procedure: k17855 o|substituted constant variable: a17868 o|substituted constant variable: a17870 o|substituted constant variable: a17872 o|substituted constant variable: a17874 o|inlining procedure: k16882 o|inlining procedure: k17886 o|inlining procedure: k17886 o|substituted constant variable: a17904 o|substituted constant variable: a17912 o|inlining procedure: k17908 o|inlining procedure: k17908 o|inlining procedure: k17926 o|inlining procedure: k17926 o|consed rest parameter at call site: "(irregex-core.scm:1609) chicken.irregex#nfa->dfa" 2 o|substituted constant variable: a16122 o|inlining procedure: k16124 o|inlining procedure: k16124 o|consed rest parameter at call site: "(irregex-core.scm:1605) chicken.irregex#nfa->dfa" 2 o|substituted constant variable: a16157 o|substituted constant variable: a16162 o|inlining procedure: k16159 o|inlining procedure: k16159 o|substituted constant variable: chicken.irregex#*allow-utf8-mode?* o|contracted procedure: "(irregex-core.scm:1592) chicken.irregex#sre-adjust-utf8" o|inlining procedure: k15463 o|inlining procedure: k15485 o|inlining procedure: k15485 o|inlining procedure: k15530 o|inlining procedure: k15530 o|inlining procedure: k15561 o|inlining procedure: k15591 o|inlining procedure: k15591 o|inlining procedure: k15561 o|inlining procedure: k15631 o|inlining procedure: k15631 o|inlining procedure: k15646 o|inlining procedure: k15646 o|consed rest parameter at call site: "(irregex-core.scm:1537) chicken.irregex#sre->cset" 2 o|inlining procedure: k15663 o|inlining procedure: k15678 o|inlining procedure: k15678 o|inlining procedure: k15701 o|inlining procedure: k15701 o|substituted constant variable: a15733 o|substituted constant variable: a15735 o|inlining procedure: k15663 o|inlining procedure: k15757 o|inlining procedure: k15757 o|substituted constant variable: a15789 o|inlining procedure: k15793 o|inlining procedure: k15793 o|substituted constant variable: a15806 o|substituted constant variable: a15808 o|substituted constant variable: a15810 o|substituted constant variable: a15812 o|substituted constant variable: a15814 o|substituted constant variable: a15816 o|substituted constant variable: a15818 o|substituted constant variable: a15820 o|inlining procedure: k15463 o|inlining procedure: k15827 o|inlining procedure: k15827 o|inlining procedure: k15855 o|inlining procedure: k15855 o|inlining procedure: k15886 o|inlining procedure: k15886 o|substituted constant variable: a15896 o|substituted constant variable: a15898 o|substituted constant variable: chicken.irregex#~case-insensitive? o|substituted constant variable: chicken.irregex#~utf8? o|inlining procedure: k16173 o|inlining procedure: k16189 o|inlining procedure: k16189 o|inlining procedure: k16223 o|inlining procedure: k16223 o|inlining procedure: k16240 o|inlining procedure: k16240 o|inlining procedure: k16252 o|inlining procedure: k16252 o|inlining procedure: k16264 o|inlining procedure: k16264 o|substituted constant variable: a16277 o|substituted constant variable: a16279 o|substituted constant variable: a16281 o|substituted constant variable: a16283 o|substituted constant variable: a16285 o|substituted constant variable: a16287 o|substituted constant variable: a16289 o|substituted constant variable: a16291 o|substituted constant variable: a16293 o|substituted constant variable: a16295 o|inlining procedure: k16299 o|inlining procedure: k16299 o|inlining procedure: k16311 o|inlining procedure: k16311 o|substituted constant variable: a16324 o|substituted constant variable: a16326 o|substituted constant variable: a16328 o|substituted constant variable: a16330 o|substituted constant variable: a16332 o|substituted constant variable: a16334 o|inlining procedure: k16173 o|substituted constant variable: a16336 o|inlining procedure: k16343 o|inlining procedure: k16343 o|inlining procedure: k16353 o|inlining procedure: k16368 o|inlining procedure: k16368 o|inlining procedure: k16353 o|substituted constant variable: a16398 o|inlining procedure: k16402 o|inlining procedure: k16402 o|inlining procedure: k16414 o|inlining procedure: k16414 o|substituted constant variable: a16427 o|substituted constant variable: a16429 o|substituted constant variable: a16431 o|substituted constant variable: a16433 o|substituted constant variable: a16435 o|substituted constant variable: a16437 o|substituted constant variable: a16449 o|inlining procedure: k16441 o|substituted constant variable: a16458 o|inlining procedure: k16453 o|inlining procedure: k16465 o|inlining procedure: k16465 o|inlining procedure: k16453 o|inlining procedure: k16441 o|inlining procedure: k16486 o|inlining procedure: k16511 o|inlining procedure: k16511 o|substituted constant variable: a16547 o|inlining procedure: k16551 o|inlining procedure: k16551 o|inlining procedure: k16563 o|inlining procedure: k16563 o|substituted constant variable: a16576 o|substituted constant variable: a16578 o|substituted constant variable: a16580 o|substituted constant variable: a16582 o|substituted constant variable: a16584 o|substituted constant variable: a16586 o|substituted constant variable: a16591 o|substituted constant variable: a16593 o|inlining procedure: k16486 o|inlining procedure: k16600 o|inlining procedure: k16625 o|inlining procedure: k16625 o|substituted constant variable: a16661 o|inlining procedure: k16665 o|inlining procedure: k16665 o|inlining procedure: k16677 o|inlining procedure: k16677 o|substituted constant variable: a16690 o|substituted constant variable: a16692 o|substituted constant variable: a16694 o|substituted constant variable: a16696 o|substituted constant variable: a16698 o|substituted constant variable: a16700 o|substituted constant variable: a16705 o|substituted constant variable: a16707 o|inlining procedure: k16600 o|substituted constant variable: a16722 o|inlining procedure: k16714 o|inlining procedure: k16726 o|inlining procedure: k16726 o|inlining procedure: k16714 o|inlining procedure: k16759 o|inlining procedure: k16776 o|inlining procedure: k16776 o|inlining procedure: k16802 o|inlining procedure: k16802 o|substituted constant variable: a16820 o|substituted constant variable: a16822 o|inlining procedure: k16826 o|inlining procedure: k16826 o|substituted constant variable: a16839 o|substituted constant variable: a16841 o|substituted constant variable: a16843 o|substituted constant variable: a16845 o|inlining procedure: k16759 o|inlining procedure: k17962 o|inlining procedure: k17962 o|inlining procedure: k17985 o|inlining procedure: k17985 o|inlining procedure: k18008 o|inlining procedure: k18008 o|inlining procedure: k18035 o|inlining procedure: k18035 o|inlining procedure: k18081 o|inlining procedure: k18081 o|substituted constant variable: a18113 o|substituted constant variable: a18118 o|substituted constant variable: a18120 o|substituted constant variable: a18125 o|substituted constant variable: a18127 o|inlining procedure: k18189 o|inlining procedure: k18189 o|inlining procedure: k18220 o|inlining procedure: k18220 o|inlining procedure: k18281 o|inlining procedure: k18281 o|inlining procedure: k18311 o|inlining procedure: k18311 o|substituted constant variable: a18331 o|substituted constant variable: a18333 o|substituted constant variable: a18338 o|substituted constant variable: a18340 o|inlining procedure: k18344 o|inlining procedure: k18344 o|inlining procedure: k18356 o|inlining procedure: k18356 o|inlining procedure: k18368 o|inlining procedure: k18368 o|inlining procedure: k18380 o|inlining procedure: k18380 o|inlining procedure: k18392 o|inlining procedure: k18392 o|inlining procedure: k18404 o|inlining procedure: k18404 o|inlining procedure: k18416 o|inlining procedure: k18416 o|substituted constant variable: a18423 o|substituted constant variable: a18425 o|substituted constant variable: a18427 o|substituted constant variable: a18429 o|substituted constant variable: a18431 o|substituted constant variable: a18433 o|substituted constant variable: a18435 o|substituted constant variable: a18437 o|substituted constant variable: a18439 o|substituted constant variable: a18441 o|substituted constant variable: a18443 o|substituted constant variable: a18445 o|substituted constant variable: a18447 o|substituted constant variable: a18449 o|substituted constant variable: a18451 o|substituted constant variable: a18453 o|substituted constant variable: a18458 o|substituted constant variable: a18460 o|substituted constant variable: a18465 o|substituted constant variable: a18467 o|inlining procedure: k18475 o|inlining procedure: k18475 o|inlining procedure: k18507 o|inlining procedure: k18523 o|inlining procedure: k18523 o|inlining procedure: k18573 o|inlining procedure: k18596 o|inlining procedure: k18596 o|inlining procedure: k18573 o|substituted constant variable: a18628 o|inlining procedure: k18632 o|inlining procedure: k18632 o|inlining procedure: k18644 o|inlining procedure: k18644 o|inlining procedure: k18656 o|inlining procedure: k18656 o|substituted constant variable: a18669 o|substituted constant variable: a18671 o|substituted constant variable: a18673 o|substituted constant variable: a18675 o|substituted constant variable: a18677 o|substituted constant variable: a18679 o|substituted constant variable: a18681 o|substituted constant variable: a18683 o|inlining procedure: k18507 o|inlining procedure: k18726 o|inlining procedure: k18726 o|inlining procedure: k18740 o|inlining procedure: k18740 o|inlining procedure: k18753 o|inlining procedure: k18753 o|inlining procedure: "(irregex-core.scm:1954) chicken.irregex#irregex-match-chunker-set!" o|inlining procedure: "(irregex-core.scm:1952) chicken.irregex#chunker-get-start" o|inlining procedure: k18824 o|inlining procedure: k18836 o|inlining procedure: k18836 o|inlining procedure: k18861 o|inlining procedure: k18894 o|inlining procedure: k18894 o|inlining procedure: k18923 o|inlining procedure: k18923 o|inlining procedure: "(irregex-core.scm:1976) chicken.irregex#chunker-get-next" o|inlining procedure: "(irregex-core.scm:1975) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:1974) chicken.irregex#chunker-get-start" o|inlining procedure: k18861 o|contracted procedure: "(irregex-core.scm:1971) chicken.irregex#dfa-match/shortest" o|inlining procedure: k19449 o|inlining procedure: k19464 o|inlining procedure: k19464 o|inlining procedure: k19515 o|substituted constant variable: a19523 o|inlining procedure: k19515 o|inlining procedure: k19534 o|inlining procedure: k19534 o|inlining procedure: k19566 o|inlining procedure: k19566 o|inlining procedure: "(irregex-core.scm:2105) chicken.irregex#dfa-finalizer" o|inlining procedure: k19449 o|inlining procedure: "(irregex-core.scm:2097) chicken.irregex#dfa-init-state" o|inlining procedure: "(irregex-core.scm:2095) chicken.irregex#chunker-get-next" o|inlining procedure: "(irregex-core.scm:2094) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:2093) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:2092) chicken.irregex#chunker-get-str" o|substituted constant variable: chicken.irregex#~searcher? o|inlining procedure: k18824 o|inlining procedure: "(irregex-core.scm:1994) chicken.irregex#%irregex-match-fail-set!" o|contracted procedure: "(irregex-core.scm:1993) chicken.irregex#irregex-search/backtrack" o|inlining procedure: k18981 o|inlining procedure: k18981 o|inlining procedure: k18999 o|inlining procedure: k18999 o|inlining procedure: k19035 o|inlining procedure: "(irregex-core.scm:2021) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:2020) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:2019) chicken.irregex#chunker-get-str" o|inlining procedure: k19035 o|substituted constant variable: chicken.irregex#~searcher? o|inlining procedure: "(irregex-core.scm:2001) chicken.irregex#chunker-get-next" o|inlining procedure: "(irregex-core.scm:2000) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:1999) chicken.irregex#chunker-get-str" o|contracted procedure: "(irregex-core.scm:1998) chicken.irregex#irregex-nfa" o|contracted procedure: "(irregex-core.scm:1961) chicken.irregex#irregex-dfa" o|inlining procedure: k19108 o|inlining procedure: k19108 o|inlining procedure: k19122 o|inlining procedure: k19122 o|inlining procedure: k19135 o|inlining procedure: k19135 o|inlining procedure: k19172 o|inlining procedure: k19184 o|inlining procedure: "(irregex-core.scm:2051) chicken.irregex#chunker-get-start" o|inlining procedure: k19184 o|contracted procedure: "(irregex-core.scm:2045) g33513352" o|inlining procedure: "(irregex-core.scm:2045) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:2044) chicken.irregex#chunker-get-start" o|inlining procedure: k19172 o|inlining procedure: k19289 o|inlining procedure: "(irregex-core.scm:2067) chicken.irregex#%irregex-match-fail-set!" o|inlining procedure: k19301 o|inlining procedure: "(irregex-core.scm:2070) chicken.irregex#%irregex-match-fail" o|inlining procedure: k19301 o|inlining procedure: "(irregex-core.scm:2069) chicken.irregex#%irregex-match-fail" o|contracted procedure: "(irregex-core.scm:2065) g33913392" o|inlining procedure: "(irregex-core.scm:2064) chicken.irregex#chunker-get-end" o|contracted procedure: "(irregex-core.scm:2063) g33853386" o|inlining procedure: "(irregex-core.scm:2062) chicken.irregex#chunker-get-next" o|inlining procedure: k19289 o|inlining procedure: "(irregex-core.scm:2057) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:2056) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:2055) chicken.irregex#chunker-get-str" o|inlining procedure: "(irregex-core.scm:2039) chicken.irregex#irregex-match-chunker-set!" o|inlining procedure: k19391 o|inlining procedure: k19391 o|removed unused formal parameters: (dfa3409) o|removed unused formal parameters: (dfa3412) o|substituted constant variable: a19612 o|substituted constant variable: a19609 o|inlining procedure: k19614 o|inlining procedure: k19614 o|substituted constant variable: a19628 o|substituted constant variable: a19625 o|inlining procedure: k19630 o|inlining procedure: k19630 o|inlining procedure: k19647 o|inlining procedure: k19647 o|inlining procedure: k19771 o|inlining procedure: k19793 o|inlining procedure: k19819 o|inlining procedure: k19819 o|contracted procedure: "(irregex-core.scm:2187) g35923593" o|inlining procedure: k19793 o|inlining procedure: k19771 o|inlining procedure: k19892 o|substituted constant variable: a19900 o|substituted constant variable: a19903 o|inlining procedure: k19892 o|substituted constant variable: a19909 o|inlining procedure: k19982 o|inlining procedure: k19982 o|inlining procedure: k20005 o|inlining procedure: k20005 o|inlining procedure: "(irregex-core.scm:2203) chicken.irregex#dfa-cell-commands" o|inlining procedure: "(irregex-core.scm:2200) chicken.irregex#dfa-finalizer" o|inlining procedure: k20034 o|inlining procedure: k20034 o|inlining procedure: k20082 o|inlining procedure: k20082 o|contracted procedure: "(irregex-core.scm:2229) g36833684" o|inlining procedure: k20114 o|inlining procedure: k20114 o|inlining procedure: k20179 o|inlining procedure: k20179 o|inlining procedure: "(irregex-core.scm:2163) chicken.irregex#dfa-cell-commands" o|inlining procedure: "(irregex-core.scm:2154) chicken.irregex#dfa-finalizer" o|contracted procedure: "(irregex-core.scm:2151) chicken.irregex#make-initial-memory" o|substituted constant variable: a19674 o|inlining procedure: k19684 o|inlining procedure: k19684 o|substituted constant variable: a19698 o|inlining procedure: "(irregex-core.scm:2147) chicken.irregex#dfa-init-state" o|inlining procedure: "(irregex-core.scm:2146) chicken.irregex#chunker-get-next" o|inlining procedure: "(irregex-core.scm:2145) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:2144) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:2143) chicken.irregex#chunker-get-str" o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|inlining procedure: k20304 o|inlining procedure: k20304 o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|inlining procedure: k20341 o|contracted procedure: "(irregex-core.scm:2388) chicken.irregex#nfa-set-epsilons!" o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|inlining procedure: k20341 o|contracted procedure: "(irregex-core.scm:2445) chicken.irregex#nfa-set-state-trans!" o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|substituted constant variable: a20522 o|inlining procedure: k20526 o|inlining procedure: k20526 o|substituted constant variable: a20540 o|substituted constant variable: a20546 o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|inlining procedure: k20562 o|inlining procedure: k20562 o|inlining procedure: k20582 o|inlining procedure: k20582 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k20610 o|inlining procedure: k20610 o|inlining procedure: k20628 o|inlining procedure: k20628 o|inlining procedure: k20643 o|substituted constant variable: a20663 o|inlining procedure: k20667 o|inlining procedure: k20667 o|inlining procedure: k20643 o|inlining procedure: k20713 o|inlining procedure: k20733 o|inlining procedure: k20733 o|inlining procedure: k20713 o|inlining procedure: k20758 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k20758 o|inlining procedure: k20821 o|substituted constant variable: a20860 o|inlining procedure: k20854 o|substituted constant variable: chicken.irregex#~case-insensitive? o|propagated global variable: r2085532068 chicken.irregex#~case-insensitive? o|inlining procedure: k20854 o|substituted constant variable: chicken.irregex#~utf8? o|propagated global variable: r2085532070 chicken.irregex#~utf8? o|substituted constant variable: a20865 o|inlining procedure: k20821 o|consed rest parameter at call site: "(irregex-core.scm:2512) chicken.irregex#sre->cset" 2 o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k20895 o|inlining procedure: k20907 o|inlining procedure: k20907 o|inlining procedure: k20895 o|inlining procedure: k20992 o|inlining procedure: k20992 o|inlining procedure: k21014 o|inlining procedure: k21035 o|inlining procedure: k21035 o|inlining procedure: k21014 o|inlining procedure: k21086 o|inlining procedure: k21086 o|inlining procedure: k21146 o|inlining procedure: k21176 o|inlining procedure: k21176 o|inlining procedure: k21146 o|inlining procedure: k21232 o|inlining procedure: k21232 o|substituted constant variable: a21279 o|substituted constant variable: a21281 o|substituted constant variable: a21286 o|substituted constant variable: a21288 o|substituted constant variable: a21293 o|substituted constant variable: a21295 o|substituted constant variable: a21297 o|substituted constant variable: a21299 o|inlining procedure: k21303 o|inlining procedure: k21303 o|substituted constant variable: a21316 o|substituted constant variable: a21318 o|substituted constant variable: a21320 o|substituted constant variable: a21322 o|inlining procedure: k21326 o|inlining procedure: k21326 o|substituted constant variable: a21339 o|substituted constant variable: a21341 o|substituted constant variable: a21343 o|substituted constant variable: a21345 o|substituted constant variable: a21350 o|substituted constant variable: a21352 o|inlining procedure: k21377 o|substituted constant variable: a21391 o|inlining procedure: k21395 o|inlining procedure: k21395 o|substituted constant variable: a21409 o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|inlining procedure: k21377 o|inlining procedure: k21434 o|inlining procedure: k21434 o|inlining procedure: k21459 o|inlining procedure: k21459 o|inlining procedure: k21508 o|inlining procedure: k21508 o|substituted constant variable: a21521 o|substituted constant variable: a21523 o|substituted constant variable: a21525 o|substituted constant variable: a21527 o|substituted constant variable: chicken.irregex#*nfa-presize* o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|substituted constant variable: chicken.irregex#*nfa-presize* o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|substituted constant variable: chicken.irregex#*mst-first-state-index* o|substituted constant variable: chicken.irregex#*mst-first-state-index* o|inlining procedure: "(irregex-core.scm:2703) chicken.irregex#nfa-num-tags" o|substituted constant variable: chicken.irregex#*mst-first-state-index* o|substituted constant variable: chicken.irregex#*mst-first-state-index* o|inlining procedure: k21674 o|inlining procedure: k21674 o|inlining procedure: "(irregex-core.scm:2736) chicken.irregex#mst-hash-set!" o|inlining procedure: k21715 o|inlining procedure: k21715 o|inlining procedure: "(irregex-core.scm:2726) chicken.irregex#mst-mappings-summary" o|inlining procedure: "(irregex-core.scm:2724) chicken.irregex#mst-num-states-set!" o|inlining procedure: "(irregex-core.scm:2724) chicken.irregex#mst-num-states" o|inlining procedure: "(irregex-core.scm:2721) chicken.irregex#mst-hash" o|inlining procedure: k22014 o|inlining procedure: k22014 o|substituted constant variable: a22028 o|inlining procedure: k22030 o|substituted constant variable: chicken.irregex#*mst-first-state-index* o|substituted constant variable: chicken.irregex#*mst-first-state-index* o|inlining procedure: k22030 o|substituted constant variable: chicken.irregex#*mst-first-state-index* o|merged explicitly consed rest parameter: o4126 o|inlining procedure: k22119 o|contracted procedure: "(irregex-core.scm:2854) chicken.irregex#dfa-renumber" o|inlining procedure: k22306 o|inlining procedure: k22306 o|substituted constant variable: a22326 o|contracted procedure: "(irregex-core.scm:2906) chicken.irregex#maybe-cset->char" o|inlining procedure: k26008 o|inlining procedure: k26008 o|substituted constant variable: a26047 o|inlining procedure: k22382 o|inlining procedure: k22382 o|inlining procedure: k22420 o|inlining procedure: k22420 o|inlining procedure: "(irregex-core.scm:2853) chicken.irregex#nfa-highest-map-index" o|inlining procedure: k22119 o|inlining procedure: k22151 o|inlining procedure: k22151 o|inlining procedure: k22175 o|inlining procedure: k22175 o|contracted procedure: "(irregex-core.scm:2871) chicken.irregex#find-reorder-commands" o|inlining procedure: k23098 o|inlining procedure: k23098 o|contracted procedure: "(irregex-core.scm:3078) chicken.irregex#nfa-set-reorder-commands!" o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|inlining procedure: "(irregex-core.scm:2395) chicken.irregex#mst-hash" o|contracted procedure: "(irregex-core.scm:3077) chicken.irregex#find-reorder-commands-internal" o|inlining procedure: k22954 o|inlining procedure: k22954 o|inlining procedure: k22981 o|inlining procedure: k22981 o|inlining procedure: k23008 o|inlining procedure: k23008 o|inlining procedure: k23059 o|inlining procedure: k23059 o|inlining procedure: "(irregex-core.scm:3056) chicken.irregex#mst-mappings-summary" o|contracted procedure: "(irregex-core.scm:3054) chicken.irregex#mst-same-states?" o|inlining procedure: k21931 o|inlining procedure: k21955 o|inlining procedure: k21955 o|substituted constant variable: a21969 o|substituted constant variable: chicken.irregex#*mst-first-state-index* o|inlining procedure: "(irregex-core.scm:2774) chicken.irregex#mst-num-states" o|inlining procedure: "(irregex-core.scm:2774) chicken.irregex#mst-num-states" o|inlining procedure: k21931 o|inlining procedure: "(irregex-core.scm:2773) chicken.irregex#mst-hash" o|inlining procedure: "(irregex-core.scm:2773) chicken.irregex#mst-hash" o|inlining procedure: "(irregex-core.scm:3050) chicken.irregex#mst-mappings-summary" o|inlining procedure: "(irregex-core.scm:3049) chicken.irregex#nfa-num-tags" o|contracted procedure: "(irregex-core.scm:3076) chicken.irregex#nfa-get-reorder-commands" o|inlining procedure: k20368 o|inlining procedure: k20368 o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|inlining procedure: "(irregex-core.scm:2391) chicken.irregex#mst-hash" o|contracted procedure: "(irregex-core.scm:2861) chicken.irregex#get-distinct-transitions" o|inlining procedure: k22477 o|inlining procedure: k22477 o|inlining procedure: k22495 o|inlining procedure: k22495 o|inlining procedure: k22554 o|inlining procedure: k22554 o|inlining procedure: k22531 o|inlining procedure: k22531 o|contracted procedure: "(irregex-core.scm:2939) csets-intersect?4214" o|inlining procedure: k22458 o|inlining procedure: k22458 o|contracted procedure: "(irregex-core.scm:2922) chicken.irregex#nfa-get-state-trans" o|inlining procedure: k20278 o|inlining procedure: k20278 o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|contracted procedure: "(irregex-core.scm:2838) chicken.irregex#nfa-start-state" o|substituted constant variable: a20256 o|inlining procedure: k22775 o|inlining procedure: k22775 o|contracted procedure: "(irregex-core.scm:3005) chicken.irregex#nfa-add-closure!" o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|inlining procedure: "(irregex-core.scm:2403) chicken.irregex#mst-hash" o|contracted procedure: "(irregex-core.scm:3004) chicken.irregex#nfa-epsilon-closure-internal" o|inlining procedure: k22654 o|inlining procedure: k22654 o|inlining procedure: k22677 o|inlining procedure: k22677 o|contracted procedure: "(irregex-core.scm:2993) chicken.irregex#mst-add-tagged!" o|inlining procedure: "(irregex-core.scm:2768) chicken.irregex#mst-hash-set!" o|inlining procedure: "(irregex-core.scm:2763) chicken.irregex#mst-num-states-set!" o|inlining procedure: "(irregex-core.scm:2763) chicken.irregex#mst-num-states" o|inlining procedure: "(irregex-core.scm:2760) chicken.irregex#mst-hash" o|inlining procedure: k21881 o|inlining procedure: k21881 o|inlining procedure: "(irregex-core.scm:2752) chicken.irregex#mst-mappings-summary" o|contracted procedure: "(irregex-core.scm:2991) chicken.irregex#next-index-for-tag!" o|inlining procedure: k22051 o|contracted procedure: "(irregex-core.scm:2800) chicken.irregex#nfa-set-highest-map-index!" o|inlining procedure: k22051 o|inlining procedure: k22063 o|inlining procedure: k22063 o|inlining procedure: "(irregex-core.scm:2796) chicken.irregex#mst-mappings-summary" o|inlining procedure: "(irregex-core.scm:2795) chicken.irregex#nfa-highest-map-index" o|inlining procedure: k22701 o|inlining procedure: k22701 o|contracted procedure: "(irregex-core.scm:2998) chicken.irregex#mst-add/fast!" o|inlining procedure: "(irregex-core.scm:2745) chicken.irregex#mst-num-states-set!" o|inlining procedure: "(irregex-core.scm:2745) chicken.irregex#mst-num-states" o|inlining procedure: "(irregex-core.scm:2742) chicken.irregex#mst-hash-set!" o|inlining procedure: "(irregex-core.scm:2743) chicken.irregex#mst-hash" o|contracted procedure: "(irregex-core.scm:3003) chicken.irregex#nfa-get-closure" o|inlining procedure: k20425 o|inlining procedure: k20425 o|substituted constant variable: chicken.irregex#*nfa-num-fields* o|inlining procedure: "(irregex-core.scm:2399) chicken.irregex#mst-hash" o|inlining procedure: k22802 o|inlining procedure: k22802 o|inlining procedure: k22822 o|inlining procedure: k22822 o|inlining procedure: k22864 o|inlining procedure: k22886 o|inlining procedure: k22886 o|inlining procedure: k22910 o|inlining procedure: k22910 o|inlining procedure: k22864 o|inlining procedure: "(irregex-core.scm:3013) chicken.irregex#mst-mappings-summary" o|inlining procedure: "(irregex-core.scm:3012) chicken.irregex#mst-mappings-summary" o|inlining procedure: "(irregex-core.scm:3011) chicken.irregex#nfa-num-tags" o|inlining procedure: k25895 o|substituted constant variable: a25912 o|inlining procedure: k25895 o|inlining procedure: k25947 o|substituted constant variable: a25958 o|inlining procedure: k25947 o|inlining procedure: "(irregex-core.scm:3621) chicken.irregex#chunker-get-end" o|inlining procedure: "(irregex-core.scm:3620) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:3619) chicken.irregex#chunker-get-str" o|inlining procedure: "(irregex-core.scm:3617) chicken.irregex#chunker-get-next" o|removed side-effect free assignment to unused variable: chicken.irregex#cset-size o|substituted constant variable: a26114 o|inlining procedure: k26118 o|inlining procedure: k26118 o|inlining procedure: "(irregex-core.scm:3666) chicken.irregex#make-cset" o|merged explicitly consed rest parameter: o5161 o|inlining procedure: k26233 o|inlining procedure: k26245 o|inlining procedure: k26245 o|inlining procedure: k26263 o|inlining procedure: k26296 o|inlining procedure: k26296 o|inlining procedure: k26263 o|inlining procedure: k26360 o|inlining procedure: k26360 o|inlining procedure: k26395 o|inlining procedure: k26430 o|inlining procedure: k26430 o|inlining procedure: k26395 o|inlining procedure: k26474 o|inlining procedure: k26474 o|contracted procedure: "(irregex-core.scm:3689) chicken.irregex#plist->cset" o|inlining procedure: k26168 o|inlining procedure: k26168 o|inlining procedure: "(irregex-core.scm:3658) chicken.irregex#make-cset" o|contracted procedure: "(irregex-core.scm:3689) chicken.irregex#sre-flatten-ranges" o|inlining procedure: k18141 o|inlining procedure: k18141 o|inlining procedure: k26486 o|inlining procedure: k26515 o|inlining procedure: k26515 o|inlining procedure: k26486 o|inlining procedure: k26565 o|inlining procedure: k26565 o|substituted constant variable: a26584 o|substituted constant variable: a26586 o|substituted constant variable: a26588 o|substituted constant variable: a26590 o|substituted constant variable: a26592 o|substituted constant variable: a26594 o|substituted constant variable: a26596 o|inlining procedure: k26233 o|inlining procedure: k26605 o|inlining procedure: k26605 o|inlining procedure: k26618 o|inlining procedure: k26618 o|inlining procedure: k26687 o|inlining procedure: k26687 o|inlining procedure: k26702 o|inlining procedure: k26702 o|substituted constant variable: a26730 o|inlining procedure: k26723 o|inlining procedure: k26723 o|inlining procedure: k26746 o|inlining procedure: k26746 o|substituted constant variable: a26762 o|substituted constant variable: a26764 o|inlining procedure: k26777 o|inlining procedure: k26777 o|inlining procedure: k26819 o|inlining procedure: k26819 o|substituted constant variable: a26875 o|inlining procedure: k26867 o|inlining procedure: k26867 o|substituted constant variable: a26901 o|inlining procedure: k26911 o|inlining procedure: k26911 o|inlining procedure: k27014 o|inlining procedure: k27014 o|inlining procedure: k27050 o|inlining procedure: k27050 o|inlining procedure: k27076 o|inlining procedure: k27076 o|inlining procedure: k27101 o|inlining procedure: k27101 o|contracted procedure: "(irregex-core.scm:3795) chicken.irregex#next-char" o|substituted constant variable: a26984 o|contracted procedure: "(irregex-core.scm:3793) chicken.irregex#prev-char" o|substituted constant variable: a26996 o|inlining procedure: k27210 o|inlining procedure: k27210 o|inlining procedure: k27243 o|inlining procedure: k27243 o|contracted procedure: "(irregex-core.scm:3822) chicken.irregex#min-char" o|inlining procedure: k27178 o|inlining procedure: k27178 o|contracted procedure: "(irregex-core.scm:3821) chicken.irregex#max-char" o|inlining procedure: k27187 o|inlining procedure: k27187 o|consed rest parameter at call site: "(irregex-core.scm:3830) chicken.irregex#sre->cset" 2 o|inlining procedure: k27342 o|inlining procedure: k27342 o|inlining procedure: k27505 o|inlining procedure: k27505 o|inlining procedure: k27529 o|inlining procedure: k27529 o|substituted constant variable: chicken.irregex#~searcher? o|inlining procedure: "(irregex-core.scm:3867) chicken.irregex#irregex-match-chunker-set!" o|propagated global variable: str74232467 chicken.irregex#irregex-basic-string-chunker o|inlining procedure: k27584 o|inlining procedure: k27584 o|inlining procedure: k27598 o|inlining procedure: k27598 o|inlining procedure: k27617 o|inlining procedure: k27617 o|inlining procedure: k27723 o|inlining procedure: k27723 o|inlining procedure: k27767 o|inlining procedure: "(irregex-core.scm:3919) chicken.irregex#chunker-get-start" o|inlining procedure: "(irregex-core.scm:3918) chicken.irregex#chunker-get-next" o|inlining procedure: "(irregex-core.scm:3917) chicken.irregex#chunker-get-end" o|inlining procedure: k27767 o|substituted constant variable: chicken.irregex#~searcher? o|contracted procedure: "(irregex-core.scm:3914) g54845485" o|inlining procedure: "(irregex-core.scm:3907) chicken.irregex#irregex-match-chunker-set!" o|inlining procedure: "(irregex-core.scm:3904) chicken.irregex#chunker-get-start" o|inlining procedure: k27909 o|contracted procedure: "(irregex-core.scm:3942) g55165517" o|inlining procedure: k27909 o|inlining procedure: k28019 o|inlining procedure: k28019 o|contracted procedure: "(irregex-core.scm:3951) g55295530" o|inlining procedure: k28042 o|inlining procedure: k28042 o|inlining procedure: k28074 o|inlining procedure: k28074 o|inlining procedure: k28100 o|inlining procedure: k28100 o|inlining procedure: k28105 o|inlining procedure: k28105 o|inlining procedure: k28132 o|contracted procedure: "(irregex-core.scm:3980) g55625563" o|contracted procedure: "(irregex-core.scm:3978) g55585559" o|inlining procedure: k28132 o|contracted procedure: "(irregex-core.scm:3983) g55675568" o|inlining procedure: k28243 o|inlining procedure: k28243 o|substituted constant variable: a28278 o|substituted constant variable: a28280 o|inlining procedure: k28349 o|inlining procedure: k28349 o|contracted procedure: "(irregex-core.scm:4017) g56055606" o|contracted procedure: "(irregex-core.scm:4015) g56015602" o|inlining procedure: k28411 o|inlining procedure: k28411 o|inlining procedure: k28472 o|inlining procedure: k28472 o|substituted constant variable: a28489 o|inlining procedure: k28516 o|inlining procedure: k28516 o|substituted constant variable: chicken.irregex#rx-special-chars o|inlining procedure: k28679 o|inlining procedure: k28679 o|inlining procedure: k28701 o|inlining procedure: k28713 o|contracted procedure: "(irregex-utils.scm:47) make-alt5841" o|inlining procedure: k28562 o|inlining procedure: k28562 o|inlining procedure: k28713 o|substituted constant variable: a28743 o|inlining procedure: k28745 o|inlining procedure: k28745 o|contracted procedure: "(irregex-utils.scm:55) make-seq5842" o|inlining procedure: k28592 o|inlining procedure: k28592 o|inlining procedure: k28629 o|contracted procedure: "(irregex-utils.scm:36) g58655874" o|inlining procedure: k28614 o|inlining procedure: k28614 o|inlining procedure: k28629 o|inlining procedure: k28669 o|inlining procedure: k28669 o|inlining procedure: k28701 o|substituted constant variable: a28817 o|inlining procedure: k28838 o|inlining procedure: k28838 o|inlining procedure: k28918 o|inlining procedure: k28934 o|inlining procedure: k28956 o|inlining procedure: k28956 o|inlining procedure: k28934 o|inlining procedure: k28986 o|inlining procedure: k28986 o|inlining procedure: k29009 o|inlining procedure: k29009 o|inlining procedure: k29028 o|inlining procedure: k29050 o|inlining procedure: k29050 o|inlining procedure: k29028 o|inlining procedure: k29100 o|inlining procedure: k29100 o|inlining procedure: k29124 o|inlining procedure: k29159 o|inlining procedure: k29159 o|inlining procedure: k29124 o|inlining procedure: k29219 o|inlining procedure: k29219 o|inlining procedure: k29250 o|inlining procedure: k29250 o|inlining procedure: k29317 o|inlining procedure: k29349 o|inlining procedure: k29349 o|consed rest parameter at call site: "(irregex-utils.scm:130) chicken.irregex#sre->cset" 2 o|inlining procedure: k29372 o|inlining procedure: k29372 o|inlining procedure: k29317 o|inlining procedure: k29428 o|inlining procedure: k29428 o|inlining procedure: k29456 o|inlining procedure: k29456 o|substituted constant variable: a29484 o|substituted constant variable: a29486 o|inlining procedure: k29490 o|inlining procedure: k29490 o|substituted constant variable: a29503 o|substituted constant variable: a29505 o|substituted constant variable: a29507 o|substituted constant variable: a29509 o|substituted constant variable: a29511 o|substituted constant variable: a29513 o|inlining procedure: k29517 o|inlining procedure: k29517 o|inlining procedure: k29529 o|inlining procedure: k29529 o|substituted constant variable: a29536 o|substituted constant variable: a29538 o|substituted constant variable: a29540 o|substituted constant variable: a29542 o|substituted constant variable: a29544 o|substituted constant variable: a29546 o|substituted constant variable: a29548 o|substituted constant variable: a29550 o|substituted constant variable: a29555 o|substituted constant variable: a29557 o|inlining procedure: k28918 o|inlining procedure: k29564 o|inlining procedure: k29564 o|inlining procedure: k29588 o|inlining procedure: k29588 o|substituted constant variable: a29607 o|substituted constant variable: a29609 o|substituted constant variable: a29614 o|substituted constant variable: a29616 o|substituted constant variable: a29621 o|substituted constant variable: a29623 o|inlining procedure: k29624 o|inlining procedure: k29624 o|inlining procedure: k29677 o|inlining procedure: k29677 o|inlining procedure: k29693 o|inlining procedure: k29693 o|substituted constant variable: a29766 o|inlining procedure: k29762 o|inlining procedure: k29762 o|substituted constant variable: a29778 o|inlining procedure: k29785 o|inlining procedure: k29785 o|substituted constant variable: a29826 o|inlining procedure: k29827 o|inlining procedure: k29827 o|inlining procedure: k29902 o|inlining procedure: k29902 o|substituted constant variable: a29937 o|inlining procedure: k30612 o|inlining procedure: k30612 o|simplifications: ((if . 8)) o|replaced variables: 4826 o|removed binding forms: 688 o|removed conditional forms: 3 o|substituted constant variable: r754730631 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-chunker o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-chunker-set! o|removed side-effect free assignment to unused variable: chicken.irregex#%irregex-match-fail o|removed side-effect free assignment to unused variable: chicken.irregex#%irregex-match-fail-set! o|substituted constant variable: r767430633 o|substituted constant variable: r769930635 o|substituted constant variable: r772830637 o|substituted constant variable: r775730639 o|substituted constant variable: r791430646 o|substituted constant variable: r792230647 o|substituted constant variable: r792230648 o|substituted constant variable: r789230650 o|substituted constant variable: r805230658 o|substituted constant variable: r765830660 o|substituted constant variable: r765830661 o|substituted constant variable: r810030668 o|inlining procedure: k8307 o|substituted constant variable: r832030689 o|inlining procedure: k8307 o|substituted constant variable: r830830690 o|substituted constant variable: r830830690 o|folded constant expression: (scheme#not (quote #f)) o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-next o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-str o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-start o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-end o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-substring o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-subchunk o|substituted constant variable: r853630707 o|substituted constant variable: r850030708 o|substituted constant variable: r856930728 o|removed side-effect free assignment to unused variable: chicken.irregex#*allow-utf8-mode?* o|substituted constant variable: r869730734 o|substituted constant variable: r902530740 o|substituted constant variable: r906830744 o|substituted constant variable: r916130753 o|removed side-effect free assignment to unused variable: chicken.irregex#~none o|removed side-effect free assignment to unused variable: chicken.irregex#dot-token o|converted assignments to bindings: (collect1341) o|substituted constant variable: r1001130786 o|substituted constant variable: r1001130786 o|inlining procedure: k10010 o|inlining procedure: k10010 o|removed side-effect free assignment to unused variable: chicken.irregex#~save? o|removed side-effect free assignment to unused variable: chicken.irregex#~multi-line? o|removed side-effect free assignment to unused variable: chicken.irregex#~ignore-space? o|substituted constant variable: chicken.irregex#~case-insensitive? o|substituted constant variable: chicken.irregex#~case-insensitive? o|inlining procedure: k10223 o|inlining procedure: k10223 o|substituted constant variable: chicken.irregex#~single-line? o|propagated global variable: r1022432692 chicken.irregex#~single-line? o|propagated global variable: r1022432692 chicken.irregex#~single-line? o|inlining procedure: k10223 o|substituted constant variable: r1022430821 o|substituted constant variable: r1022430821 o|inlining procedure: k10223 o|substituted constant variable: r1026030823 o|substituted constant variable: r1409130842 o|converted assignments to bindings: (shift1510) o|substituted constant variable: r1072930855 o|substituted constant variable: r1160430913 o|substituted constant variable: r1160430913 o|substituted constant variable: r1160430915 o|substituted constant variable: r1160430915 o|substituted constant variable: r1201930979 o|substituted constant variable: c1068 o|converted assignments to bindings: (collect1078) o|substituted constant variable: r1312731006 o|substituted constant variable: r1313931008 o|substituted constant variable: r879731017 o|substituted constant variable: r874031034 o|substituted constant variable: c1044 o|substituted constant variable: c1044 o|folded constant expression: (scheme#eq? (quote #\}) (quote #\\)) o|substituted constant variable: c1044 o|converted assignments to bindings: (byte1943) o|substituted constant variable: r1412931044 o|substituted constant variable: r1414131046 o|substituted constant variable: r1536431063 o|substituted constant variable: r1536431063 o|substituted constant variable: r1416731071 o|substituted constant variable: r1417931073 o|substituted constant variable: r1523031081 o|substituted constant variable: r1523031081 o|folded constant expression: (scheme#integer->char (quote 127)) o|substituted constant variable: r1523031083 o|substituted constant variable: r1523031083 o|folded constant expression: (scheme#integer->char (quote 255)) o|substituted constant variable: r1439331087 o|substituted constant variable: r1439331087 o|substituted constant variable: r2379831145 o|substituted constant variable: r2380631147 o|substituted constant variable: r2382131149 o|substituted constant variable: r2396031160 o|substituted constant variable: r2396831162 o|substituted constant variable: r2398331164 o|substituted constant variable: r862931193 o|substituted constant variable: r2519531323 o|substituted constant variable: r2540731367 o|substituted constant variable: r2555031400 o|converted assignments to bindings: (rec4366) o|substituted constant variable: chicken.irregex#~consumer? o|substituted constant variable: chicken.irregex#~consumer? o|substituted constant variable: r1609431475 o|substituted constant variable: r1609431475 o|substituted constant variable: chicken.irregex#~searcher? o|substituted constant variable: chicken.irregex#~searcher? o|substituted constant variable: r1610131479 o|substituted constant variable: r1610131479 o|substituted constant variable: r1687731483 o|substituted constant variable: r1687731483 o|inlining procedure: k16958 o|substituted constant variable: r1695931492 o|substituted constant variable: r1695931492 o|inlining procedure: k16993 o|substituted constant variable: r1699431497 o|substituted constant variable: r1699431497 o|inlining procedure: k17036 o|substituted constant variable: r1703731503 o|substituted constant variable: r1703731503 o|substituted constant variable: r1704731507 o|substituted constant variable: r1704731507 o|inlining procedure: k17075 o|substituted constant variable: r1707631512 o|substituted constant variable: r1707631512 o|inlining procedure: k17163 o|substituted constant variable: r1717031518 o|inlining procedure: k17163 o|substituted constant variable: r1716431519 o|substituted constant variable: r1716431519 o|inlining procedure: k17344 o|substituted constant variable: r1734531538 o|substituted constant variable: r1734531538 o|inlining procedure: k17475 o|substituted constant variable: r1747631548 o|substituted constant variable: r1747631548 o|substituted constant variable: r1753431551 o|substituted constant variable: r1754931553 o|inlining procedure: k17620 o|substituted constant variable: r1762131558 o|substituted constant variable: r1762131558 o|substituted constant variable: r1766131561 o|substituted constant variable: r1766131561 o|converted assignments to bindings: (grow2811) o|substituted constant variable: r1612531598 o|substituted constant variable: r1616031600 o|substituted constant variable: r1616031601 o|substituted constant variable: r1567931616 o|substituted constant variable: r1582831626 o|substituted constant variable: r1588731631 o|converted assignments to bindings: (rec2352) o|substituted constant variable: r1622431636 o|substituted constant variable: r1636931652 o|substituted constant variable: r1646631661 o|substituted constant variable: r1645431662 o|substituted constant variable: r1644231664 o|substituted constant variable: r1671531684 o|substituted constant variable: r1677731686 o|substituted constant variable: r1677731686 o|inlining procedure: k16776 o|substituted constant variable: r1680331691 o|substituted constant variable: r1796331695 o|substituted constant variable: r1798631697 o|substituted constant variable: r1872731745 o|substituted constant variable: r1872731745 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r1874131749 o|substituted constant variable: r1874131749 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r1875431752 o|substituted constant variable: r1883731766 o|substituted constant variable: r1892431771 o|substituted constant variable: r1886231787 o|substituted constant variable: r1946531789 o|substituted constant variable: index3420 o|substituted constant variable: index3420 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|substituted constant variable: index3420 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|inlining procedure: k19470 o|inlining procedure: k19488 o|inlining procedure: k19500 o|substituted constant variable: r1951631792 o|substituted constant variable: r1956731796 o|substituted constant variable: r1945031803 o|substituted constant variable: x75031832 o|inlining procedure: k18954 o|substituted constant variable: r1903631856 o|substituted constant variable: r1910931874 o|substituted constant variable: r1910931874 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r1912331878 o|substituted constant variable: r1912331878 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r1913631881 o|substituted constant variable: r1918531889 o|substituted constant variable: n3354 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|substituted constant variable: x75031904 o|substituted constant variable: r1930231914 o|substituted constant variable: n3394 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|substituted constant variable: n3388 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|substituted constant variable: r1929031930 o|substituted constant variable: r1939231952 o|substituted constant variable: r1939231953 o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-init-state o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-cell-commands o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-finalizer o|substituted constant variable: r1961531956 o|substituted constant variable: r1961531956 o|substituted constant variable: r1963131960 o|substituted constant variable: r1963131960 o|substituted constant variable: r1982031966 o|substituted constant variable: r1982031967 o|inlining procedure: k19825 o|substituted constant variable: r1979431968 o|substituted constant variable: r2003531988 o|inlining procedure: k20040 o|removed side-effect free assignment to unused variable: chicken.irregex#*nfa-presize* o|removed side-effect free assignment to unused variable: chicken.irregex#*nfa-num-fields* o|removed side-effect free assignment to unused variable: chicken.irregex#nfa-num-tags o|removed side-effect free assignment to unused variable: chicken.irregex#nfa-highest-map-index o|substituted constant variable: r2030532037 o|substituted constant variable: r2056332044 o|substituted constant variable: r2062932050 o|substituted constant variable: chicken.irregex#~case-insensitive? o|substituted constant variable: chicken.irregex#~case-insensitive? o|substituted constant variable: chicken.irregex#~utf8? o|substituted constant variable: chicken.irregex#~utf8? o|inlining procedure: k20998 o|substituted constant variable: r2099332080 o|inlining procedure: k21098 o|substituted constant variable: r2108732088 o|substituted constant variable: r2137832104 o|removed side-effect free assignment to unused variable: chicken.irregex#*mst-first-state-index* o|removed side-effect free assignment to unused variable: chicken.irregex#mst-mappings-summary o|removed side-effect free assignment to unused variable: chicken.irregex#mst-num-states o|removed side-effect free assignment to unused variable: chicken.irregex#mst-num-states-set! o|removed side-effect free assignment to unused variable: chicken.irregex#mst-hash o|removed side-effect free assignment to unused variable: chicken.irregex#mst-hash-set! o|substituted constant variable: r2295532179 o|substituted constant variable: r2193232207 o|substituted constant variable: r2036932229 o|substituted constant variable: r2245932244 o|substituted constant variable: r2027932245 o|substituted constant variable: r2042632328 o|substituted constant variable: r2288732340 o|substituted constant variable: r2291132342 o|substituted constant variable: r2286532343 o|removed side-effect free assignment to unused variable: chicken.irregex#make-cset o|removed side-effect free assignment to unused variable: chicken.irregex#cset=? o|converted assignments to bindings: (rec5169) o|substituted constant variable: r2668832423 o|substituted constant variable: r2670332426 o|substituted constant variable: r2674732430 o|substituted constant variable: r2758532473 o|substituted constant variable: r2758532473 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r2759932477 o|substituted constant variable: r2759932477 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r2761832480 o|substituted constant variable: n5487 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|substituted constant variable: n5519 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|substituted constant variable: n5532 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|substituted constant variable: r2810132525 o|substituted constant variable: r2810132525 o|substituted constant variable: n5565 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|substituted constant variable: n5561 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|substituted constant variable: n5570 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|substituted constant variable: n5608 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|substituted constant variable: n5604 o|folded constant expression: (scheme#* (quote 0) (quote 4)) o|removed side-effect free assignment to unused variable: chicken.irregex#rx-special-chars o|substituted constant variable: r2847332539 o|substituted constant variable: r2868032543 o|substituted constant variable: r2901032573 o|substituted constant variable: r2937332594 o|substituted constant variable: r2967832613 o|substituted constant variable: r2990332624 o|simplifications: ((let . 8)) o|replaced variables: 280 o|removed binding forms: 5018 o|removed conditional forms: 1 o|inlining procedure: k8294 o|substituted constant variable: r830832639 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r830832641 o|folded constant expression: (scheme#not (quote #f)) o|removed side-effect free assignment to unused variable: chicken.irregex#~searcher? o|removed side-effect free assignment to unused variable: chicken.irregex#~consumer? o|substituted constant variable: r1001132684 o|removed side-effect free assignment to unused variable: chicken.irregex#~case-insensitive? o|removed side-effect free assignment to unused variable: chicken.irregex#~utf8? o|inlining procedure: "(irregex-core.scm:716) chicken.irregex#flag-join" o|inlining procedure: "(irregex-core.scm:716) chicken.irregex#flag-join" o|substituted constant variable: r1022432690 o|substituted constant variable: chicken.irregex#~single-line? o|inlining procedure: "(irregex-core.scm:716) chicken.irregex#flag-join" o|substituted constant variable: chicken.irregex#~single-line? o|propagated global variable: b127533113 chicken.irregex#~single-line? o|propagated global variable: b127533113 chicken.irregex#~single-line? o|inlining procedure: "(irregex-core.scm:716) chicken.irregex#flag-join" o|substituted constant variable: r1022432694 o|inlining procedure: "(irregex-core.scm:716) chicken.irregex#flag-join" o|inlining procedure: "(irregex-core.scm:716) chicken.irregex#flag-join" o|substituted constant variable: r1022432696 o|inlining procedure: "(irregex-core.scm:738) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:743) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:752) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:796) chicken.irregex#flag-set?" o|inlining procedure: k10806 o|inlining procedure: k10806 o|inlining procedure: "(irregex-core.scm:831) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:873) chicken.irregex#flag-join" o|inlining procedure: "(irregex-core.scm:890) chicken.irregex#flag-clear" o|inlining procedure: "(irregex-core.scm:892) chicken.irregex#flag-clear" o|inlining procedure: "(irregex-core.scm:895) chicken.irregex#flag-clear" o|inlining procedure: "(irregex-core.scm:904) chicken.irregex#flag-clear" o|inlining procedure: "(irregex-core.scm:907) chicken.irregex#flag-clear" o|inlining procedure: "(irregex-core.scm:914) chicken.irregex#flag-clear" o|inlining procedure: "(irregex-core.scm:920) chicken.irregex#flag-clear" o|inlining procedure: "(irregex-core.scm:935) chicken.irregex#flag-clear" o|inlining procedure: "(irregex-core.scm:940) chicken.irregex#flag-clear" o|inlining procedure: "(irregex-core.scm:943) chicken.irregex#flag-clear" o|inlining procedure: chicken.irregex#flag-clear o|inlining procedure: chicken.irregex#flag-join o|inlining procedure: "(irregex-core.scm:954) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:953) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:1212) chicken.irregex#cset-adjoin" o|inlining procedure: "(irregex-core.scm:3766) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:1213) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:1211) chicken.irregex#cset-empty?" o|inlining procedure: "(irregex-core.scm:1223) chicken.irregex#cset-adjoin" o|inlining procedure: "(irregex-core.scm:3766) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:1232) chicken.irregex#range->cset" o|inlining procedure: "(irregex-core.scm:1240) chicken.irregex#utf8-start-char->length" o|inlining procedure: "(irregex-core.scm:1260) chicken.irregex#cset-adjoin" o|inlining procedure: "(irregex-core.scm:3766) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:1271) chicken.irregex#cset-adjoin" o|inlining procedure: "(irregex-core.scm:3766) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:1276) chicken.irregex#cset-adjoin" o|inlining procedure: "(irregex-core.scm:3766) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:1282) chicken.irregex#cset-adjoin" o|inlining procedure: "(irregex-core.scm:3766) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:1279) chicken.irregex#utf8-start-char->length" o|inlining procedure: "(irregex-core.scm:1283) chicken.irregex#cset-adjoin" o|inlining procedure: "(irregex-core.scm:3766) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:1288) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:1287) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:1204) chicken.irregex#flag-set?" o|substituted constant variable: a8882 o|inlining procedure: "(irregex-core.scm:1085) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:1128) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:1146) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:1149) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:1152) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:1156) chicken.irregex#flag-set?" o|contracted procedure: k8754 o|substituted constant variable: a8771 o|removed call to pure procedure with unused result: "(irregex-core.scm:1428) ##sys#slot" o|removed call to pure procedure with unused result: "(irregex-core.scm:1483) ##sys#slot" o|removed call to pure procedure with unused result: "(irregex-core.scm:1494) ##sys#slot" o|inlining procedure: "(irregex-core.scm:1491) chicken.irregex#utf8-start-char->length" o|removed call to pure procedure with unused result: "(irregex-core.scm:1474) ##sys#slot" o|inlining procedure: k15225 o|inlining procedure: k15225 o|removed call to pure procedure with unused result: "(irregex-core.scm:1503) ##sys#slot" o|inlining procedure: "(irregex-core.scm:1514) chicken.irregex#high-char?" o|inlining procedure: "(irregex-core.scm:1514) chicken.irregex#high-char?" o|inlining procedure: "(irregex-core.scm:3108) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:3113) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:3132) chicken.irregex#flag-clear" o|inlining procedure: "(irregex-core.scm:3137) chicken.irregex#flag-join" o|inlining procedure: "(irregex-core.scm:3140) chicken.irregex#flag-join" o|inlining procedure: "(irregex-core.scm:3142) chicken.irregex#flag-clear" o|inlining procedure: "(irregex-core.scm:3371) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:3551) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:1614) chicken.irregex#flag-join" o|inlining procedure: "(irregex-core.scm:1614) chicken.irregex#flag-join" o|inlining procedure: "(irregex-core.scm:1615) chicken.irregex#flag-join" o|inlining procedure: "(irregex-core.scm:1615) chicken.irregex#flag-join" o|substituted constant variable: r1695932782 o|substituted constant variable: r1699432784 o|substituted constant variable: r1703732788 o|substituted constant variable: r1707632790 o|substituted constant variable: r1716432794 o|substituted constant variable: r1716432796 o|substituted constant variable: r1734532798 o|substituted constant variable: r1747632800 o|substituted constant variable: r1762132802 o|inlining procedure: "(irregex-core.scm:1609) chicken.irregex#nfa-num-states" o|inlining procedure: "(irregex-core.scm:1605) chicken.irregex#nfa-num-states" o|inlining procedure: "(irregex-core.scm:1556) chicken.irregex#high-char?" o|inlining procedure: "(irregex-core.scm:1523) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:1522) chicken.irregex#flag-set?" o|substituted constant variable: r1677732822 o|inlining procedure: k18719 o|inlining procedure: k18733 o|substituted constant variable: r1948932844 o|folded constant expression: (scheme#+ (quote 3) (quote 0)) o|substituted constant variable: r1950132846 o|folded constant expression: (scheme#+ (quote 2) (quote 0)) o|inlining procedure: "(irregex-core.scm:2118) chicken.irregex#dfa-next-state" o|inlining procedure: "(irregex-core.scm:2097) chicken.irregex#dfa-next-state" o|inlining procedure: "(irregex-core.scm:1963) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:2002) chicken.irregex#flag-set?" o|inlining procedure: k19101 o|inlining procedure: k19115 o|contracted procedure: k19237 o|contracted procedure: k19349 o|contracted procedure: k19377 o|substituted constant variable: r198203196632873 o|substituted constant variable: r198203196732874 o|inlining procedure: k20025 o|inlining procedure: "(irregex-core.scm:2199) chicken.irregex#dfa-next-state" o|substituted constant variable: r200353198832882 o|inlining procedure: "(irregex-core.scm:2153) chicken.irregex#dfa-next-state" o|inlining procedure: "(irregex-core.scm:2453) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:2453) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:2454) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:2452) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:2491) chicken.irregex#flag-set?" o|inlining procedure: "(irregex-core.scm:2513) chicken.irregex#flag-set?" o|inlining procedure: k21038 o|inlining procedure: "(irregex-core.scm:2702) chicken.irregex#nfa-num-states" o|inlining procedure: "(irregex-core.scm:2736) chicken.irregex#nfa-num-states" o|inlining procedure: "(irregex-core.scm:2722) chicken.irregex#mst-state-mappings" o|inlining procedure: "(irregex-core.scm:2865) chicken.irregex#mst-state-mappings" o|inlining procedure: "(irregex-core.scm:2955) chicken.irregex#cset-empty?" o|inlining procedure: "(irregex-core.scm:2945) chicken.irregex#cset-empty?" o|inlining procedure: "(irregex-core.scm:2918) chicken.irregex#cset-empty?" o|inlining procedure: "(irregex-core.scm:2367) chicken.irregex#nfa-num-states" o|inlining procedure: "(irregex-core.scm:2768) chicken.irregex#nfa-num-states" o|inlining procedure: "(irregex-core.scm:2761) chicken.irregex#mst-state-mappings" o|inlining procedure: "(irregex-core.scm:2744) chicken.irregex#nfa-num-states" o|inlining procedure: k21760 o|inlining procedure: "(irregex-core.scm:2741) chicken.irregex#mst-state-mappings" o|inlining procedure: "(irregex-core.scm:2972) chicken.irregex#nfa-num-states" o|inlining procedure: "(irregex-core.scm:3665) chicken.irregex#cset-adjoin" o|inlining procedure: "(irregex-core.scm:3766) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:3661) chicken.irregex#range->cset" o|inlining procedure: "(irregex-core.scm:3702) chicken.irregex#range->cset" o|inlining procedure: "(irregex-core.scm:3703) chicken.irregex#range->cset" o|inlining procedure: "(irregex-core.scm:3766) chicken.irregex#char->cset" o|inlining procedure: "(irregex-core.scm:3843) chicken.irregex#range->cset" o|inlining procedure: "(irregex-core.scm:3889) chicken.irregex#flag-set?" o|inlining procedure: k27577 o|inlining procedure: k27591 o|inlining procedure: k27605 o|inlining procedure: k27605 o|inlining procedure: k27632 o|inlining procedure: "(irregex-core.scm:3926) chicken.irregex#flag-set?" o|contracted procedure: k27758 o|contracted procedure: k27954 o|contracted procedure: k28005 o|contracted procedure: k28170 o|contracted procedure: k28187 o|contracted procedure: k28234 o|contracted procedure: k28377 o|contracted procedure: k28398 o|inlining procedure: k28424 o|replaced variables: 34 o|removed binding forms: 530 o|removed side-effect free assignment to unused variable: chicken.irregex#flag-set? o|substituted constant variable: b127533105 o|substituted constant variable: b127533105 o|substituted constant variable: b127533109 o|substituted constant variable: b127533109 o|substituted constant variable: chicken.irregex#~single-line? o|substituted constant variable: chicken.irregex#~single-line? o|substituted constant variable: b127533117 o|substituted constant variable: b127533117 o|substituted constant variable: b127533121 o|substituted constant variable: b127533121 o|substituted constant variable: b127533125 o|substituted constant variable: b127533125 o|inlining procedure: k10218 o|substituted constant variable: i127133131 o|substituted constant variable: i127133131 o|substituted constant variable: i127133139 o|substituted constant variable: i127133139 o|substituted constant variable: i127133147 o|substituted constant variable: i127133147 o|substituted constant variable: i127133153 o|substituted constant variable: i127133153 o|substituted constant variable: r1080733159 o|substituted constant variable: r1080733164 o|substituted constant variable: i127133171 o|substituted constant variable: i127133171 o|substituted constant variable: b127533177 o|substituted constant variable: b127533177 o|substituted constant variable: b127933181 o|substituted constant variable: b127933187 o|substituted constant variable: b127933193 o|substituted constant variable: b127933199 o|substituted constant variable: b127933205 o|substituted constant variable: b127933211 o|substituted constant variable: b127933217 o|substituted constant variable: b127933223 o|substituted constant variable: b127933229 o|substituted constant variable: b127933235 o|substituted constant variable: i127133251 o|substituted constant variable: i127133251 o|substituted constant variable: i127133257 o|substituted constant variable: i127133257 o|substituted constant variable: ch534433265 o|substituted constant variable: ch534433265 o|substituted constant variable: ch534433265 o|substituted constant variable: i127133276 o|substituted constant variable: i127133276 o|substituted constant variable: ch534433309 o|substituted constant variable: ch534433309 o|substituted constant variable: ch534433309 o|substituted constant variable: ch512933368 o|substituted constant variable: ch512933368 o|substituted constant variable: i127133374 o|substituted constant variable: i127133374 o|substituted constant variable: i127133382 o|substituted constant variable: i127133382 o|substituted constant variable: i127133390 o|substituted constant variable: i127133390 o|substituted constant variable: i127133398 o|substituted constant variable: i127133398 o|substituted constant variable: i127133406 o|substituted constant variable: i127133406 o|substituted constant variable: i127133412 o|substituted constant variable: i127133412 o|substituted constant variable: i127133418 o|substituted constant variable: i127133418 o|substituted constant variable: i127133424 o|substituted constant variable: i127133424 o|substituted constant variable: r8755 o|removed side-effect free assignment to unused variable: chicken.irregex#utf8-start-char->length o|contracted procedure: k14571 o|contracted procedure: k14973 o|contracted procedure: k15076 o|contracted procedure: k15214 o|substituted constant variable: r1522633453 o|substituted constant variable: r1522633454 o|contracted procedure: k15305 o|substituted constant variable: i127133473 o|substituted constant variable: i127133473 o|substituted constant variable: i127133479 o|substituted constant variable: i127133479 o|substituted constant variable: b127933485 o|substituted constant variable: b127533491 o|substituted constant variable: b127533491 o|substituted constant variable: b127533495 o|substituted constant variable: b127533495 o|substituted constant variable: b127933499 o|substituted constant variable: i127133507 o|substituted constant variable: i127133507 o|substituted constant variable: i127133517 o|substituted constant variable: i127133517 o|substituted constant variable: b127533525 o|substituted constant variable: b127533525 o|substituted constant variable: b127533529 o|substituted constant variable: b127533529 o|substituted constant variable: b127533533 o|substituted constant variable: a127433532 o|substituted constant variable: b127533533 o|substituted constant variable: a127433532 o|substituted constant variable: a127433532 o|substituted constant variable: b127533537 o|substituted constant variable: a127433536 o|substituted constant variable: b127533537 o|substituted constant variable: a127433536 o|substituted constant variable: a127433536 o|substituted constant variable: i127133574 o|substituted constant variable: i127133574 o|substituted constant variable: i127133580 o|substituted constant variable: i127133580 o|substituted constant variable: r1872033590 o|substituted constant variable: r1873433591 o|contracted procedure: k19484 o|contracted procedure: k19496 o|substituted constant variable: i127133614 o|substituted constant variable: i127133614 o|substituted constant variable: i127133622 o|substituted constant variable: i127133622 o|substituted constant variable: r1910233626 o|substituted constant variable: r1911633627 o|substituted constant variable: r19238 o|folded constant expression: (scheme#+ (quote 2) (quote 0)) o|substituted constant variable: r19350 o|folded constant expression: (scheme#+ (quote 2) (quote 0)) o|substituted constant variable: r19378 o|folded constant expression: (scheme#+ (quote 2) (quote 0)) o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-next-state o|substituted constant variable: r2002633636 o|removed side-effect free assignment to unused variable: chicken.irregex#nfa-num-states o|substituted constant variable: i127133676 o|substituted constant variable: i127133676 o|substituted constant variable: i127133684 o|substituted constant variable: i127133684 o|substituted constant variable: i127133690 o|substituted constant variable: i127133690 o|removed side-effect free assignment to unused variable: chicken.irregex#mst-state-mappings o|substituted constant variable: state397933729 o|folded constant expression: (scheme#+ (quote 0) (quote 3)) o|removed side-effect free assignment to unused variable: chicken.irregex#range->cset o|removed side-effect free assignment to unused variable: chicken.irregex#char->cset o|removed side-effect free assignment to unused variable: chicken.irregex#cset-empty? o|removed side-effect free assignment to unused variable: chicken.irregex#cset-adjoin o|substituted constant variable: i127133877 o|substituted constant variable: i127133877 o|substituted constant variable: r2757833883 o|substituted constant variable: r2759233884 o|substituted constant variable: r2760633885 o|substituted constant variable: r2760633886 o|substituted constant variable: r2763333887 o|substituted constant variable: i127133890 o|substituted constant variable: i127133890 o|substituted constant variable: r27759 o|folded constant expression: (scheme#+ (quote 2) (quote 0)) o|substituted constant variable: r27955 o|folded constant expression: (scheme#+ (quote 1) (quote 0)) o|substituted constant variable: r28006 o|folded constant expression: (scheme#+ (quote 1) (quote 0)) o|substituted constant variable: r28171 o|folded constant expression: (scheme#+ (quote 1) (quote 0)) o|substituted constant variable: r28188 o|substituted constant variable: r28235 o|substituted constant variable: r28378 o|folded constant expression: (scheme#+ (quote 1) (quote 0)) o|substituted constant variable: r28399 o|folded constant expression: (scheme#+ (quote 1) (quote 0)) o|substituted constant variable: r2842533898 o|replaced variables: 230 o|removed binding forms: 69 o|removed conditional forms: 25 o|removed side-effect free assignment to unused variable: chicken.irregex#~single-line? o|substituted constant variable: a1080533160 o|substituted constant variable: a1080533165 o|substituted constant variable: r19485 o|substituted constant variable: r19497 o|contracted procedure: k19233 o|contracted procedure: k19345 o|contracted procedure: k19373 o|contracted procedure: k2158233732 o|contracted procedure: k27754 o|contracted procedure: k27950 o|contracted procedure: k28001 o|contracted procedure: k28166 o|contracted procedure: k28373 o|contracted procedure: k28394 o|replaced variables: 3 o|removed binding forms: 312 o|substituted constant variable: r19234 o|substituted constant variable: r19346 o|substituted constant variable: r19374 o|substituted constant variable: r2158333730 o|substituted constant variable: r27755 o|substituted constant variable: r27951 o|substituted constant variable: r28002 o|substituted constant variable: r28167 o|substituted constant variable: r28374 o|substituted constant variable: r28395 o|replaced variables: 11 o|removed binding forms: 8 o|removed binding forms: 21 o|simplifications: ((if . 132) (##core#call . 2940)) o| call simplifications: o| ##sys#check-string o| chicken.fixnum#fx> 2 o| scheme#write-char o| scheme#list->string 2 o| scheme#char>? 5 o| scheme#char<=? 2 o| scheme#char>=? 3 o| scheme#quotient o| scheme#assoc 4 o| scheme#modulo 3 o| scheme#memv 4 o| scheme#char? 10 o| scheme#char=? 7 o| scheme#cdddr 9 o| scheme#cadddr 2 o| scheme#symbol? 7 o| scheme#caddr 14 o| scheme#vector-set! 63 o| chicken.fixnum#fx+ 2 o| chicken.fixnum#fxmod o| ##sys#setislot o| scheme#length 6 o| ##sys#check-list 31 o| chicken.fixnum#fxshr 6 o| chicken.fixnum#fxshl 6 o| chicken.fixnum#fx<= 8 o| scheme#integer->char 27 o| scheme#char-upper-case? o| scheme#char-upcase o| scheme#char-downcase o| scheme#equal? 9 o| scheme#assv 4 o| scheme#char 11 o| scheme#char->integer 19 o| chicken.fixnum#fx< o| chicken.fixnum#fx>= o| scheme#string->list 7 o| ##sys#setslot 33 o| ##sys#list 174 o| scheme#string? 23 o| scheme#char-whitespace? 2 o| chicken.fixnum#fxnot 14 o| chicken.fixnum#fxand 58 o| chicken.fixnum#fxior 21 o| scheme#car 77 o| scheme#<= 5 o| scheme#char-alphabetic? 7 o| scheme#char-numeric? 5 o| scheme#= 66 o| scheme#- 20 o| scheme#string-ref 68 o| scheme#string-length 24 o| scheme#list 49 o| scheme#cons 216 o| scheme#procedure? 10 o| scheme#vector 26 o| scheme#vector-ref 168 o| scheme#assq 13 o| scheme#not 97 o| scheme#cdr 60 o| scheme#pair? 121 o| scheme#number? 13 o| scheme#null? 63 o| scheme#caar 26 o| scheme#eq? 428 o| scheme#cdar 15 o| scheme#exact? 8 o| scheme#>= 27 o| scheme#< 21 o| scheme#apply 16 o| scheme#* 52 o| scheme#+ 149 o| ##sys#size 8 o| chicken.fixnum#fx/ o| ##sys#make-structure 4 o| ##sys#check-structure 6 o| ##sys#slot 215 o| ##sys#structure? 3 o| scheme#vector-length 20 o|contracted procedure: k7439 o|contracted procedure: k7487 o|contracted procedure: k7505 o|contracted procedure: k7522 o|contracted procedure: k7537 o|contracted procedure: k7549 o|contracted procedure: k7560 o|contracted procedure: k7564 o|contracted procedure: k7568 o|contracted procedure: k7572 o|contracted procedure: k7584 o|contracted procedure: k7597 o|contracted procedure: k7593 o|contracted procedure: k7588 o|contracted procedure: k7609 o|contracted procedure: k7628 o|contracted procedure: k7636 o|contracted procedure: k7632 o|contracted procedure: k7682 o|contracted procedure: k7686 o|contracted procedure: k7707 o|contracted procedure: k7715 o|contracted procedure: k7711 o|contracted procedure: k7736 o|contracted procedure: k7744 o|contracted procedure: k7740 o|contracted procedure: k7849 o|contracted procedure: k8020 o|contracted procedure: k7858 o|contracted procedure: k8016 o|contracted procedure: k7864 o|contracted procedure: k7874 o|contracted procedure: k7880 o|contracted procedure: k7918 o|contracted procedure: k7932 o|contracted procedure: k7928 o|contracted procedure: k7924 o|contracted procedure: k7888 o|contracted procedure: k7894 o|substituted constant variable: g35149 o|contracted procedure: k7901 o|contracted procedure: k7906 o|contracted procedure: k7961 o|contracted procedure: k8012 o|contracted procedure: k7973 o|contracted procedure: k7985 o|contracted procedure: k7989 o|contracted procedure: k8074 o|contracted procedure: k8040 o|contracted procedure: k8048 o|contracted procedure: k8054 o|substituted constant variable: g35155 o|contracted procedure: k8061 o|contracted procedure: k8066 o|contracted procedure: k7660 o|contracted procedure: k8080 o|contracted procedure: k8096 o|contracted procedure: k8102 o|contracted procedure: k8153 o|contracted procedure: k8161 o|contracted procedure: k8157 o|contracted procedure: k8132 o|contracted procedure: k8140 o|contracted procedure: k8136 o|contracted procedure: k8115 o|contracted procedure: k8119 o|contracted procedure: k8177 o|contracted procedure: k8180 o|contracted procedure: k8186 o|contracted procedure: k8243 o|contracted procedure: k8251 o|contracted procedure: k8247 o|contracted procedure: k8222 o|contracted procedure: k8230 o|contracted procedure: k8226 o|contracted procedure: k8205 o|contracted procedure: k8209 o|contracted procedure: k8267 o|contracted procedure: k8446 o|contracted procedure: k8273 o|contracted procedure: k8276 o|contracted procedure: k8433 o|contracted procedure: k8279 o|contracted procedure: k8429 o|contracted procedure: k8282 o|contracted procedure: k8285 o|contracted procedure: k8341 o|contracted procedure: k8359 o|contracted procedure: k8368 o|contracted procedure: k8375 o|contracted procedure: k8398 o|contracted procedure: k8332 o|contracted procedure: k8288 o|contracted procedure: k8328 o|contracted procedure: k8291 o|contracted procedure: k8310 o|contracted procedure: k8316 o|contracted procedure: k8322 o|contracted procedure: k8307 o|contracted procedure: k8450 o|contracted procedure: k8456 o|contracted procedure: k8542 o|contracted procedure: k8553 o|contracted procedure: k8549 o|contracted procedure: k8502 o|contracted procedure: k8505 o|contracted procedure: k8520 o|contracted procedure: k8562 o|contracted procedure: k8575 o|contracted procedure: k8582 o|contracted procedure: k8676 o|contracted procedure: k8683 o|contracted procedure: k8699 o|contracted procedure: k8716 o|contracted procedure: k8705 o|contracted procedure: k8719 o|contracted procedure: k8890 o|contracted procedure: k9006 o|contracted procedure: k9010 o|contracted procedure: k9013 o|contracted procedure: k8988 o|contracted procedure: k9027 o|substituted constant variable: g35169 o|contracted procedure: k9034 o|contracted procedure: k9051 o|contracted procedure: k9055 o|contracted procedure: k9070 o|contracted procedure: k9086 o|contracted procedure: k9154 o|contracted procedure: k9125 o|contracted procedure: k9150 o|contracted procedure: k9140 o|contracted procedure: k9163 o|contracted procedure: k9179 o|contracted procedure: k9195 o|contracted procedure: k9203 o|contracted procedure: k9213 o|contracted procedure: k9224 o|contracted procedure: k9240 o|contracted procedure: k9257 o|contracted procedure: k9264 o|contracted procedure: k9591 o|contracted procedure: k9598 o|contracted procedure: k9606 o|contracted procedure: k9615 o|contracted procedure: k9621 o|contracted procedure: k9627 o|contracted procedure: k9648 o|contracted procedure: k9661 o|contracted procedure: k9667 o|contracted procedure: k9716 o|contracted procedure: k9688 o|contracted procedure: k9706 o|contracted procedure: k9712 o|contracted procedure: k9723 o|contracted procedure: k9729 o|contracted procedure: k9741 o|contracted procedure: k9756 o|contracted procedure: k9766 o|contracted procedure: k9773 o|contracted procedure: k9781 o|contracted procedure: k9787 o|contracted procedure: k9790 o|contracted procedure: k9817 o|contracted procedure: k9812 o|contracted procedure: k9802 o|contracted procedure: k9809 o|contracted procedure: k9823 o|contracted procedure: k9829 o|contracted procedure: k9845 o|contracted procedure: k9852 o|contracted procedure: k9860 o|contracted procedure: k9872 o|contracted procedure: k9893 o|contracted procedure: k9906 o|contracted procedure: k9912 o|contracted procedure: k9918 o|contracted procedure: k9938 o|contracted procedure: k9967 o|contracted procedure: k9970 o|contracted procedure: k9976 o|contracted procedure: k9994 o|contracted procedure: k10013 o|contracted procedure: k10019 o|contracted procedure: k10027 o|contracted procedure: k10044 o|contracted procedure: k10047 o|contracted procedure: k10062 o|contracted procedure: k10054 o|contracted procedure: k10088 o|contracted procedure: k10109 o|contracted procedure: k10135 o|contracted procedure: k10138 o|contracted procedure: k10141 o|contracted procedure: k10180 o|contracted procedure: k10315 o|contracted procedure: k10207 o|contracted procedure: k10214 o|contracted procedure: k10226 o|inlining procedure: k10218 o|contracted procedure: k10235 o|contracted procedure: k10238 o|inlining procedure: k10218 o|contracted procedure: k10244 o|contracted procedure: k10247 o|inlining procedure: k10218 o|contracted procedure: k10253 o|contracted procedure: k10256 o|inlining procedure: k10218 o|contracted procedure: k10262 o|contracted procedure: k10265 o|inlining procedure: k10218 o|contracted procedure: k10299 o|contracted procedure: k10324 o|contracted procedure: k10336 o|contracted procedure: k10354 o|contracted procedure: k957233134 o|substituted constant variable: g35202 o|contracted procedure: k10383 o|contracted procedure: k10398 o|contracted procedure: k10401 o|contracted procedure: k10404 o|contracted procedure: k10412 o|contracted procedure: k10420 o|contracted procedure: k957233142 o|substituted constant variable: g35206 o|contracted procedure: k10432 o|contracted procedure: k10458 o|contracted procedure: k10467 o|contracted procedure: k10477 o|contracted procedure: k10496 o|inlining procedure: k10489 o|contracted procedure: k10509 o|contracted procedure: k14093 o|substituted constant variable: g35215 o|contracted procedure: k14122 o|contracted procedure: k14096 o|contracted procedure: k14102 o|contracted procedure: k14105 o|substituted constant variable: g35219 o|contracted procedure: k957233150 o|substituted constant variable: g35220 o|contracted procedure: k10552 o|contracted procedure: k10558 o|contracted procedure: k10641 o|contracted procedure: k10567 o|contracted procedure: k10630 o|contracted procedure: k10573 o|contracted procedure: k10580 o|contracted procedure: k10587 o|contracted procedure: k10594 o|contracted procedure: k10620 o|contracted procedure: k10637 o|contracted procedure: k957233156 o|substituted constant variable: g35222 o|contracted procedure: k10681 o|contracted procedure: k10657 o|contracted procedure: k10675 o|contracted procedure: k10688 o|contracted procedure: k10696 o|contracted procedure: k10707 o|contracted procedure: k10721 o|contracted procedure: k10735 o|contracted procedure: k10739 o|contracted procedure: k10743 o|contracted procedure: k10758 o|contracted procedure: k10768 o|contracted procedure: k10774 o|contracted procedure: k10783 o|contracted procedure: k10789 o|inlining procedure: k10802 o|inlining procedure: k10802 o|contracted procedure: k957233174 o|substituted constant variable: g35226 o|contracted procedure: k10819 o|contracted procedure: k10828 o|contracted procedure: k10834 o|contracted procedure: k10847 o|contracted procedure: k10856 o|contracted procedure: k10863 o|contracted procedure: k10874 o|contracted procedure: k10885 o|contracted procedure: k10881 o|contracted procedure: k10893 o|contracted procedure: k10904 o|contracted procedure: k10915 o|contracted procedure: k10926 o|contracted procedure: k10922 o|contracted procedure: k10934 o|contracted procedure: k10945 o|contracted procedure: k10949 o|contracted procedure: k10941 o|contracted procedure: k10976 o|contracted procedure: k10979 o|contracted procedure: k11034 o|contracted procedure: k10985 o|contracted procedure: k11023 o|contracted procedure: k11027 o|contracted procedure: k11019 o|contracted procedure: k11031 o|contracted procedure: k11041 o|contracted procedure: k11807 o|contracted procedure: k11057 o|contracted procedure: k11070 o|contracted procedure: k11798 o|contracted procedure: k11090 o|contracted procedure: k11156 o|contracted procedure: k11096 o|contracted procedure: k11111 o|contracted procedure: k11124 o|contracted procedure: k11128 o|contracted procedure: k11132 o|contracted procedure: k11148 o|contracted procedure: k11143 o|contracted procedure: k11162 o|contracted procedure: k11168 o|contracted procedure: k11178 o|contracted procedure: k11182 o|contracted procedure: k11195 o|contracted procedure: k959133184 o|contracted procedure: k11218 o|contracted procedure: k959133190 o|contracted procedure: k11241 o|contracted procedure: k959133196 o|contracted procedure: k11264 o|contracted procedure: k11277 o|contracted procedure: k11283 o|contracted procedure: k959133202 o|contracted procedure: k11306 o|contracted procedure: k959133208 o|contracted procedure: k11336 o|contracted procedure: k11340 o|contracted procedure: k11348 o|contracted procedure: k959133214 o|contracted procedure: k11379 o|contracted procedure: k11369 o|contracted procedure: k11395 o|contracted procedure: k959133220 o|contracted procedure: k11418 o|contracted procedure: k11551 o|contracted procedure: k11434 o|contracted procedure: k11446 o|contracted procedure: k11466 o|contracted procedure: k959133226 o|contracted procedure: k11544 o|contracted procedure: k11486 o|contracted procedure: k11509 o|contracted procedure: k959133232 o|contracted procedure: k959133238 o|contracted procedure: k11560 o|contracted procedure: k959133244 o|contracted procedure: k11596 o|contracted procedure: k957233254 o|substituted constant variable: g35230 o|contracted procedure: k957233260 o|substituted constant variable: g35232 o|contracted procedure: k11609 o|contracted procedure: k11615 o|contracted procedure: k11621 o|contracted procedure: k11637 o|contracted procedure: k11653 o|contracted procedure: k11669 o|contracted procedure: k11694 o|contracted procedure: k11704 o|contracted procedure: k11710 o|contracted procedure: k11733 o|contracted procedure: k11754 o|contracted procedure: k11750 o|contracted procedure: k11817 o|contracted procedure: k11823 o|contracted procedure: k11839 o|contracted procedure: k11853 o|contracted procedure: k11843 o|contracted procedure: k11859 o|contracted procedure: k11872 o|contracted procedure: k11876 o|contracted procedure: k11880 o|contracted procedure: k13258 o|contracted procedure: k13273 o|contracted procedure: k13279 o|contracted procedure: k13285 o|contracted procedure: k2599233273 o|contracted procedure: k26668 o|contracted procedure: k26672 o|contracted procedure: k957233279 o|substituted constant variable: g35238 o|contracted procedure: k2600233284 o|contracted procedure: k13330 o|contracted procedure: k13336 o|contracted procedure: k2599233295 o|contracted procedure: k13355 o|contracted procedure: k13361 o|contracted procedure: k13373 o|contracted procedure: k2598233301 o|contracted procedure: k13477 o|contracted procedure: k13391 o|contracted procedure: k13403 o|contracted procedure: k13407 o|contracted procedure: k13442 o|inlining procedure: k13394 o|contracted procedure: k1388933306 o|inlining procedure: k13394 o|contracted procedure: k13458 o|substituted constant variable: g35240 o|substituted constant variable: g35242 o|contracted procedure: k13461 o|contracted procedure: k13468 o|contracted procedure: k13499 o|contracted procedure: k13517 o|contracted procedure: k13505 o|contracted procedure: k13513 o|contracted procedure: k13523 o|contracted procedure: k13642 o|contracted procedure: k13526 o|contracted procedure: k13532 o|contracted procedure: k13538 o|contracted procedure: k13547 o|contracted procedure: k13599 o|contracted procedure: k13595 o|contracted procedure: k13590 o|contracted procedure: k13608 o|contracted procedure: k13611 o|contracted procedure: k2599233317 o|contracted procedure: k13651 o|contracted procedure: k13654 o|contracted procedure: k13660 o|contracted procedure: k13685 o|contracted procedure: k13691 o|contracted procedure: k2599233328 o|contracted procedure: k13714 o|contracted procedure: k13717 o|contracted procedure: k2599233339 o|contracted procedure: k13735 o|contracted procedure: k13741 o|contracted procedure: k13747 o|contracted procedure: k13753 o|contracted procedure: k13790 o|contracted procedure: k2599233350 o|contracted procedure: k1388933355 o|contracted procedure: k2599233366 o|contracted procedure: k13819 o|substituted constant variable: g35247 o|substituted constant variable: g35249 o|contracted procedure: k13837 o|contracted procedure: k2599233371 o|inlining procedure: k13841 o|contracted procedure: k957233377 o|substituted constant variable: g35252 o|contracted procedure: k13857 o|contracted procedure: k957233385 o|substituted constant variable: g35256 o|contracted procedure: k13860 o|contracted procedure: k13868 o|contracted procedure: k11897 o|contracted procedure: k11922 o|contracted procedure: k11928 o|contracted procedure: k11947 o|contracted procedure: k11959 o|contracted procedure: k11976 o|contracted procedure: k11972 o|contracted procedure: k11996 o|contracted procedure: k11992 o|contracted procedure: k12013 o|contracted procedure: k12009 o|contracted procedure: k12021 o|contracted procedure: k12038 o|contracted procedure: k12034 o|contracted procedure: k12027 o|contracted procedure: k12043 o|contracted procedure: k12050 o|contracted procedure: k12056 o|contracted procedure: k8825 o|contracted procedure: k8847 o|contracted procedure: k8884 o|contracted procedure: k8860 o|contracted procedure: k12091 o|contracted procedure: k12073 o|contracted procedure: k12084 o|contracted procedure: k12076 o|contracted procedure: k12100 o|contracted procedure: k12113 o|contracted procedure: k12119 o|contracted procedure: k12132 o|contracted procedure: k12142 o|contracted procedure: k12159 o|contracted procedure: k12155 o|contracted procedure: k12169 o|contracted procedure: k12182 o|contracted procedure: k12192 o|contracted procedure: k12209 o|contracted procedure: k12205 o|contracted procedure: k12219 o|contracted procedure: k12244 o|contracted procedure: k12236 o|contracted procedure: k12232 o|contracted procedure: k12250 o|contracted procedure: k12279 o|contracted procedure: k12275 o|contracted procedure: k12267 o|contracted procedure: k12263 o|contracted procedure: k12285 o|contracted procedure: k12302 o|contracted procedure: k12298 o|contracted procedure: k12312 o|contracted procedure: k12325 o|contracted procedure: k12335 o|contracted procedure: k12348 o|contracted procedure: k12358 o|contracted procedure: k12375 o|contracted procedure: k12379 o|contracted procedure: k12371 o|contracted procedure: k12389 o|contracted procedure: k12402 o|contracted procedure: k12412 o|contracted procedure: k12425 o|contracted procedure: k12435 o|contracted procedure: k12448 o|contracted procedure: k12458 o|contracted procedure: k12471 o|contracted procedure: k12481 o|contracted procedure: k12494 o|contracted procedure: k12504 o|contracted procedure: k12517 o|contracted procedure: k12521 o|contracted procedure: k12525 o|contracted procedure: k12542 o|contracted procedure: k12545 o|contracted procedure: k12551 o|contracted procedure: k12566 o|contracted procedure: k12572 o|contracted procedure: k12582 o|contracted procedure: k12586 o|contracted procedure: k12594 o|contracted procedure: k12590 o|contracted procedure: k957233393 o|substituted constant variable: g35264 o|contracted procedure: k13129 o|contracted procedure: k13135 o|contracted procedure: k13141 o|contracted procedure: k13147 o|contracted procedure: k12626 o|contracted procedure: k12644 o|contracted procedure: k12651 o|contracted procedure: k12726 o|contracted procedure: k12657 o|contracted procedure: k12674 o|contracted procedure: k12712 o|contracted procedure: k12680 o|contracted procedure: k12693 o|contracted procedure: k12701 o|contracted procedure: k12732 o|contracted procedure: k12748 o|contracted procedure: k12758 o|contracted procedure: k12764 o|contracted procedure: k12767 o|contracted procedure: k12777 o|contracted procedure: k12770 o|contracted procedure: k957233401 o|substituted constant variable: g35270 o|contracted procedure: k12805 o|contracted procedure: k8783 o|contracted procedure: k8818 o|contracted procedure: k8790 o|contracted procedure: k8799 o|contracted procedure: k8815 o|contracted procedure: k12814 o|contracted procedure: k12817 o|contracted procedure: k12837 o|contracted procedure: k12833 o|contracted procedure: k12904 o|contracted procedure: k12917 o|contracted procedure: k12927 o|contracted procedure: k12930 o|contracted procedure: k12943 o|contracted procedure: k957233409 o|substituted constant variable: g35276 o|contracted procedure: k12956 o|contracted procedure: k12959 o|contracted procedure: k12972 o|contracted procedure: k957233415 o|substituted constant variable: g35278 o|contracted procedure: k12985 o|contracted procedure: k957233421 o|substituted constant variable: g35280 o|contracted procedure: k13016 o|contracted procedure: k13028 o|contracted procedure: k13035 o|contracted procedure: k13039 o|contracted procedure: k957233427 o|substituted constant variable: g35282 o|contracted procedure: k13101 o|contracted procedure: k13094 o|contracted procedure: k30574 o|contracted procedure: k30578 o|contracted procedure: k30582 o|contracted procedure: k30586 o|contracted procedure: k30590 o|contracted procedure: k30594 o|contracted procedure: k13105 o|contracted procedure: k13114 o|contracted procedure: k13164 o|contracted procedure: k13252 o|contracted procedure: k13173 o|contracted procedure: k13182 o|contracted procedure: k13201 o|contracted procedure: k8726 o|contracted procedure: k8776 o|contracted procedure: k8733 o|contracted procedure: k8742 o|contracted procedure: k8773 o|contracted procedure: k8748 o|contracted procedure: k13216 o|contracted procedure: k13235 o|contracted procedure: k13879 o|contracted procedure: k13902 o|contracted procedure: k13908 o|contracted procedure: k13917 o|contracted procedure: k13941 o|contracted procedure: k13925 o|contracted procedure: k13929 o|contracted procedure: k13937 o|contracted procedure: k13951 o|contracted procedure: k13994 o|contracted procedure: k13962 o|contracted procedure: k13982 o|contracted procedure: k13966 o|contracted procedure: k13970 o|contracted procedure: k13958 o|contracted procedure: k13978 o|contracted procedure: k13990 o|contracted procedure: k14004 o|contracted procedure: k14063 o|contracted procedure: k14015 o|contracted procedure: k14051 o|contracted procedure: k14019 o|contracted procedure: k14039 o|contracted procedure: k14023 o|contracted procedure: k14027 o|contracted procedure: k14011 o|contracted procedure: k14035 o|contracted procedure: k14047 o|contracted procedure: k14059 o|contracted procedure: k14131 o|contracted procedure: k14137 o|contracted procedure: k14143 o|contracted procedure: k14149 o|contracted procedure: k14204 o|contracted procedure: k14210 o|contracted procedure: k14219 o|contracted procedure: k14238 o|contracted procedure: k14226 o|contracted procedure: k14234 o|contracted procedure: k14230 o|contracted procedure: k14244 o|contracted procedure: k14275 o|contracted procedure: k14251 o|contracted procedure: k14271 o|contracted procedure: k14267 o|contracted procedure: k14255 o|contracted procedure: k14263 o|contracted procedure: k14259 o|contracted procedure: k14281 o|contracted procedure: k14324 o|contracted procedure: k14288 o|contracted procedure: k14320 o|contracted procedure: k14316 o|contracted procedure: k14292 o|contracted procedure: k14312 o|contracted procedure: k14308 o|contracted procedure: k14296 o|contracted procedure: k14304 o|contracted procedure: k14300 o|contracted procedure: k14483 o|contracted procedure: k14490 o|contracted procedure: k14494 o|contracted procedure: k14498 o|contracted procedure: k14510 o|contracted procedure: k14513 o|contracted procedure: k14528 o|contracted procedure: k14537 o|contracted procedure: k14520 o|contracted procedure: k14549 o|contracted procedure: k14567 o|contracted procedure: k14552 o|contracted procedure: k14555 o|contracted procedure: k14563 o|contracted procedure: k14585 o|contracted procedure: k14607 o|contracted procedure: k14603 o|contracted procedure: k14588 o|contracted procedure: k14591 o|contracted procedure: k14599 o|contracted procedure: k14751 o|contracted procedure: k14626 o|contracted procedure: k14622 o|contracted procedure: k14652 o|contracted procedure: k14648 o|contracted procedure: k14644 o|contracted procedure: k14656 o|contracted procedure: k14660 o|contracted procedure: k14672 o|contracted procedure: k14678 o|contracted procedure: k14693 o|contracted procedure: k14689 o|contracted procedure: k14685 o|contracted procedure: k14706 o|contracted procedure: k14728 o|contracted procedure: k14724 o|contracted procedure: k14709 o|contracted procedure: k14712 o|contracted procedure: k14720 o|contracted procedure: k14735 o|contracted procedure: k14890 o|contracted procedure: k14765 o|contracted procedure: k14761 o|contracted procedure: k14791 o|contracted procedure: k14787 o|contracted procedure: k14783 o|contracted procedure: k14795 o|contracted procedure: k14799 o|contracted procedure: k14811 o|contracted procedure: k14817 o|contracted procedure: k14832 o|contracted procedure: k14828 o|contracted procedure: k14824 o|contracted procedure: k14845 o|contracted procedure: k14867 o|contracted procedure: k14863 o|contracted procedure: k14848 o|contracted procedure: k14851 o|contracted procedure: k14859 o|contracted procedure: k14874 o|contracted procedure: k15348 o|contracted procedure: k15366 o|contracted procedure: k15373 o|contracted procedure: k15363 o|contracted procedure: k15393 o|contracted procedure: k15397 o|contracted procedure: k14470 o|contracted procedure: k14350 o|contracted procedure: k14357 o|contracted procedure: k14896 o|contracted procedure: k14907 o|contracted procedure: k14911 o|contracted procedure: k14984 o|contracted procedure: k14988 o|contracted procedure: k14924 o|contracted procedure: k14928 o|contracted procedure: k14939 o|contracted procedure: k14920 o|contracted procedure: k14951 o|contracted procedure: k14969 o|contracted procedure: k14954 o|contracted procedure: k14957 o|contracted procedure: k14965 o|contracted procedure: k14980 o|contracted procedure: k14996 o|contracted procedure: k14169 o|contracted procedure: k14175 o|contracted procedure: k14181 o|contracted procedure: k14187 o|contracted procedure: k15004 o|contracted procedure: k15010 o|contracted procedure: k15017 o|contracted procedure: k15083 o|contracted procedure: k15091 o|contracted procedure: k15087 o|contracted procedure: k15029 o|contracted procedure: k15033 o|contracted procedure: k15042 o|contracted procedure: k15025 o|contracted procedure: k15054 o|contracted procedure: k15072 o|contracted procedure: k15057 o|contracted procedure: k15060 o|contracted procedure: k15068 o|contracted procedure: k15113 o|contracted procedure: k15109 o|contracted procedure: k15105 o|contracted procedure: k1388933448 o|contracted procedure: k15122 o|contracted procedure: k15125 o|contracted procedure: k15128 o|contracted procedure: k15136 o|contracted procedure: k15144 o|contracted procedure: k15152 o|contracted procedure: k15238 o|contracted procedure: k15221 o|contracted procedure: k15232 o|substituted constant variable: g35313 o|contracted procedure: k15167 o|contracted procedure: k15171 o|contracted procedure: k15180 o|contracted procedure: k15163 o|contracted procedure: k15192 o|contracted procedure: k15210 o|contracted procedure: k15195 o|contracted procedure: k15198 o|contracted procedure: k15206 o|contracted procedure: k14462 o|contracted procedure: k14466 o|contracted procedure: k14377 o|contracted procedure: k14388 o|contracted procedure: k14395 o|inlining procedure: k14384 o|contracted procedure: k14392 o|inlining procedure: k14384 o|contracted procedure: k14454 o|contracted procedure: k14416 o|contracted procedure: k14423 o|contracted procedure: k14438 o|contracted procedure: k15329 o|contracted procedure: k15325 o|contracted procedure: k15244 o|contracted procedure: k15321 o|contracted procedure: k15317 o|contracted procedure: k15247 o|contracted procedure: k15258 o|contracted procedure: k15262 o|contracted procedure: k15271 o|contracted procedure: k15254 o|contracted procedure: k15283 o|contracted procedure: k15301 o|contracted procedure: k15286 o|contracted procedure: k15289 o|contracted procedure: k15297 o|contracted procedure: k15413 o|contracted procedure: k15424 o|contracted procedure: k15417 o|contracted procedure: k15433 o|contracted procedure: k1387933463 o|contracted procedure: k15437 o|contracted procedure: k1387933468 o|contracted procedure: k15911 o|contracted procedure: k16012 o|contracted procedure: k15917 o|contracted procedure: k16008 o|contracted procedure: k15926 o|contracted procedure: k16004 o|contracted procedure: k15935 o|contracted procedure: k16000 o|contracted procedure: k15944 o|contracted procedure: k15996 o|contracted procedure: k15953 o|contracted procedure: k15962 o|contracted procedure: k15965 o|contracted procedure: k15983 o|contracted procedure: k15968 o|contracted procedure: k15979 o|contracted procedure: k15975 o|contracted procedure: k15971 o|contracted procedure: k15986 o|contracted procedure: k16018 o|contracted procedure: k16089 o|contracted procedure: k16073 o|contracted procedure: k25869 o|contracted procedure: k23118 o|contracted procedure: k23154 o|contracted procedure: k23158 o|contracted procedure: k23124 o|contracted procedure: k23148 o|contracted procedure: k23127 o|contracted procedure: k23144 o|contracted procedure: k23130 o|contracted procedure: k23140 o|contracted procedure: k23133 o|contracted procedure: k23136 o|contracted procedure: k23173 o|contracted procedure: k23179 o|contracted procedure: k957233476 o|substituted constant variable: g35324 o|contracted procedure: k23199 o|contracted procedure: k957233482 o|substituted constant variable: g35326 o|contracted procedure: k23219 o|contracted procedure: k23222 o|contracted procedure: k23228 o|contracted procedure: k23239 o|contracted procedure: k23246 o|contracted procedure: k23271 o|contracted procedure: k23279 o|contracted procedure: k23283 o|contracted procedure: k23287 o|contracted procedure: k23299 o|contracted procedure: k959133488 o|contracted procedure: k23318 o|contracted procedure: k23329 o|contracted procedure: k23337 o|contracted procedure: k23348 o|contracted procedure: k23356 o|contracted procedure: k959133502 o|contracted procedure: k23375 o|contracted procedure: k23378 o|contracted procedure: k23381 o|contracted procedure: k23387 o|contracted procedure: k23393 o|contracted procedure: k23400 o|contracted procedure: k23410 o|contracted procedure: k23418 o|contracted procedure: k23426 o|contracted procedure: k23430 o|contracted procedure: k23442 o|contracted procedure: k23468 o|contracted procedure: k23494 o|contracted procedure: k23521 o|contracted procedure: k23539 o|contracted procedure: k23593 o|contracted procedure: k23636 o|contracted procedure: k23651 o|contracted procedure: k23655 o|contracted procedure: k23647 o|contracted procedure: k23643 o|contracted procedure: k23667 o|contracted procedure: k23682 o|contracted procedure: k23686 o|contracted procedure: k23678 o|contracted procedure: k23674 o|contracted procedure: k23695 o|contracted procedure: k23714 o|contracted procedure: k23749 o|contracted procedure: k23759 o|contracted procedure: k23808 o|contracted procedure: k23841 o|contracted procedure: k23817 o|contracted procedure: k23837 o|contracted procedure: k23823 o|contracted procedure: k23847 o|contracted procedure: k23866 o|contracted procedure: k23883 o|contracted procedure: k23893 o|contracted procedure: k23918 o|contracted procedure: k23970 o|contracted procedure: k24003 o|contracted procedure: k23979 o|contracted procedure: k23999 o|contracted procedure: k23985 o|contracted procedure: k24009 o|contracted procedure: k24020 o|contracted procedure: k24016 o|contracted procedure: k24030 o|contracted procedure: k24036 o|contracted procedure: k24055 o|contracted procedure: k24059 o|contracted procedure: k24051 o|contracted procedure: k24047 o|contracted procedure: k24043 o|contracted procedure: k24067 o|contracted procedure: k24078 o|contracted procedure: k24084 o|contracted procedure: k24119 o|contracted procedure: k24154 o|contracted procedure: k24157 o|contracted procedure: k24168 o|contracted procedure: k24175 o|contracted procedure: k24211 o|contracted procedure: k24205 o|contracted procedure: k24184 o|contracted procedure: k24217 o|contracted procedure: k8641 o|contracted procedure: k8631 o|contracted procedure: k8634 o|contracted procedure: k8645 o|contracted procedure: k8649 o|contracted procedure: k8658 o|contracted procedure: k8661 o|contracted procedure: k8668 o|contracted procedure: k8672 o|contracted procedure: k24228 o|contracted procedure: k24240 o|contracted procedure: k24275 o|contracted procedure: k24379 o|contracted procedure: k24290 o|contracted procedure: k24310 o|contracted procedure: k24318 o|contracted procedure: k24314 o|contracted procedure: k24330 o|contracted procedure: k24333 o|contracted procedure: k24369 o|contracted procedure: k24410 o|contracted procedure: k24382 o|contracted procedure: k24389 o|contracted procedure: k24393 o|contracted procedure: k24414 o|contracted procedure: k24418 o|contracted procedure: k24422 o|contracted procedure: k24428 o|contracted procedure: k24431 o|contracted procedure: k24448 o|contracted procedure: k24458 o|contracted procedure: k24576 o|contracted procedure: k24467 o|contracted procedure: k24480 o|contracted procedure: k24495 o|contracted procedure: k24499 o|contracted procedure: k24508 o|contracted procedure: k24521 o|contracted procedure: k24528 o|contracted procedure: k24535 o|contracted procedure: k24547 o|contracted procedure: k24572 o|contracted procedure: k24568 o|contracted procedure: k24579 o|contracted procedure: k957233510 o|substituted constant variable: g35344 o|contracted procedure: k24614 o|contracted procedure: k24590 o|contracted procedure: k24595 o|contracted procedure: k24620 o|contracted procedure: k24635 o|contracted procedure: k24631 o|contracted procedure: k24639 o|contracted procedure: k24645 o|contracted procedure: k24648 o|contracted procedure: k24746 o|contracted procedure: k24750 o|contracted procedure: k24692 o|contracted procedure: k24734 o|contracted procedure: k24742 o|contracted procedure: k24738 o|contracted procedure: k24695 o|contracted procedure: k24726 o|contracted procedure: k24730 o|contracted procedure: k24704 o|contracted procedure: k24714 o|contracted procedure: k24722 o|contracted procedure: k24718 o|contracted procedure: k24707 o|contracted procedure: k24678 o|contracted procedure: k24686 o|contracted procedure: k24682 o|contracted procedure: k24662 o|contracted procedure: k24666 o|contracted procedure: k24758 o|contracted procedure: k24845 o|contracted procedure: k24853 o|contracted procedure: k24849 o|contracted procedure: k24787 o|contracted procedure: k24833 o|contracted procedure: k24841 o|contracted procedure: k24837 o|contracted procedure: k24790 o|contracted procedure: k24821 o|contracted procedure: k24829 o|contracted procedure: k24825 o|contracted procedure: k24799 o|contracted procedure: k24809 o|contracted procedure: k24817 o|contracted procedure: k24813 o|contracted procedure: k24802 o|contracted procedure: k24770 o|contracted procedure: k24778 o|contracted procedure: k24774 o|contracted procedure: k24861 o|contracted procedure: k24864 o|contracted procedure: k24875 o|contracted procedure: k24871 o|contracted procedure: k24960 o|contracted procedure: k24966 o|contracted procedure: k24988 o|contracted procedure: k24994 o|contracted procedure: k25002 o|contracted procedure: k25009 o|contracted procedure: k25012 o|contracted procedure: k25021 o|contracted procedure: k25027 o|contracted procedure: k25033 o|contracted procedure: k25043 o|contracted procedure: k25052 o|contracted procedure: k25060 o|contracted procedure: k25084 o|contracted procedure: k25079 o|contracted procedure: k25066 o|contracted procedure: k25087 o|contracted procedure: k25096 o|contracted procedure: k25102 o|contracted procedure: k25108 o|contracted procedure: k25135 o|contracted procedure: k25130 o|contracted procedure: k25117 o|contracted procedure: k25144 o|contracted procedure: k25168 o|contracted procedure: k25161 o|contracted procedure: k25174 o|contracted procedure: k25213 o|contracted procedure: k25197 o|contracted procedure: k25209 o|contracted procedure: k25205 o|contracted procedure: k25226 o|contracted procedure: k25219 o|contracted procedure: k25232 o|contracted procedure: k25255 o|contracted procedure: k25262 o|contracted procedure: k25265 o|contracted procedure: k25282 o|contracted procedure: k25289 o|contracted procedure: k25278 o|contracted procedure: k25330 o|contracted procedure: k25295 o|contracted procedure: k25310 o|contracted procedure: k25306 o|contracted procedure: k25316 o|contracted procedure: k25339 o|contracted procedure: k25356 o|contracted procedure: k25363 o|contracted procedure: k25372 o|contracted procedure: k25389 o|contracted procedure: k25397 o|contracted procedure: k25400 o|contracted procedure: k25409 o|contracted procedure: k25421 o|contracted procedure: k25428 o|contracted procedure: k25417 o|contracted procedure: k25437 o|contracted procedure: k25487 o|contracted procedure: k25460 o|contracted procedure: k25471 o|contracted procedure: k25467 o|contracted procedure: k25477 o|contracted procedure: k25493 o|contracted procedure: k25504 o|contracted procedure: k25510 o|contracted procedure: k25526 o|contracted procedure: k25582 o|contracted procedure: k25568 o|contracted procedure: k25575 o|contracted procedure: k25588 o|contracted procedure: k25600 o|contracted procedure: k25603 o|contracted procedure: k25613 o|contracted procedure: k25642 o|contracted procedure: k25656 o|contracted procedure: k25663 o|contracted procedure: k25675 o|contracted procedure: k25681 o|contracted procedure: k25687 o|contracted procedure: k25696 o|contracted procedure: k25703 o|contracted procedure: k25725 o|contracted procedure: k25747 o|contracted procedure: k25755 o|contracted procedure: k25762 o|contracted procedure: k25774 o|contracted procedure: k25780 o|contracted procedure: k25786 o|contracted procedure: k25795 o|contracted procedure: k25802 o|contracted procedure: k25824 o|contracted procedure: k25811 o|contracted procedure: k25846 o|contracted procedure: k25833 o|contracted procedure: k957233520 o|substituted constant variable: g35380 o|contracted procedure: k25852 o|contracted procedure: k25882 o|inlining procedure: k25873 o|inlining procedure: k25873 o|contracted procedure: k16855 o|contracted procedure: k16872 o|contracted procedure: k16876 o|contracted procedure: k16885 o|contracted procedure: k16891 o|contracted procedure: k16901 o|contracted procedure: k16913 o|contracted procedure: k16924 o|contracted procedure: k16930 o|contracted procedure: k16947 o|contracted procedure: k16954 o|contracted procedure: k16958 o|contracted procedure: k16971 o|contracted procedure: k16981 o|contracted procedure: k16985 o|contracted procedure: k16989 o|contracted procedure: k16993 o|contracted procedure: k17011 o|contracted procedure: k17025 o|contracted procedure: k17032 o|contracted procedure: k17036 o|contracted procedure: k17053 o|contracted procedure: k17063 o|contracted procedure: k17067 o|contracted procedure: k17096 o|contracted procedure: k17102 o|contracted procedure: k17131 o|contracted procedure: k17135 o|contracted procedure: k17190 o|contracted procedure: k17183 o|contracted procedure: k17145 o|contracted procedure: k17149 o|contracted procedure: k17159 o|contracted procedure: k17163 o|contracted procedure: k17208 o|contracted procedure: k17193 o|contracted procedure: k17196 o|contracted procedure: k17212 o|contracted procedure: k17221 o|contracted procedure: k17229 o|contracted procedure: k17244 o|contracted procedure: k17240 o|contracted procedure: k17248 o|contracted procedure: k17254 o|contracted procedure: k17268 o|contracted procedure: k17281 o|contracted procedure: k17274 o|contracted procedure: k17288 o|contracted procedure: k17285 o|contracted procedure: k17300 o|contracted procedure: k17303 o|contracted procedure: k17312 o|contracted procedure: k17362 o|contracted procedure: k17324 o|contracted procedure: k17358 o|contracted procedure: k17330 o|contracted procedure: k17354 o|contracted procedure: k17333 o|contracted procedure: k17340 o|contracted procedure: k17344 o|contracted procedure: k17373 o|contracted procedure: k17369 o|substituted constant variable: g35388 o|contracted procedure: k17403 o|contracted procedure: k17379 o|contracted procedure: k17384 o|contracted procedure: k17409 o|contracted procedure: k17412 o|contracted procedure: k17433 o|contracted procedure: k17436 o|contracted procedure: k17454 o|contracted procedure: k17497 o|contracted procedure: k17493 o|contracted procedure: k17471 o|contracted procedure: k17489 o|contracted procedure: k17485 o|contracted procedure: k17475 o|contracted procedure: k17526 o|contracted procedure: k17522 o|contracted procedure: k17518 o|contracted procedure: k17530 o|contracted procedure: k17536 o|contracted procedure: k17569 o|contracted procedure: k17545 o|contracted procedure: k17565 o|contracted procedure: k17551 o|contracted procedure: k17575 o|contracted procedure: k17592 o|contracted procedure: k17600 o|contracted procedure: k17603 o|contracted procedure: k17620 o|contracted procedure: k17634 o|contracted procedure: k17652 o|contracted procedure: k17648 o|contracted procedure: k17644 o|contracted procedure: k17674 o|contracted procedure: k17683 o|contracted procedure: k17699 o|contracted procedure: k17703 o|contracted procedure: k17714 o|contracted procedure: k17720 o|contracted procedure: k17737 o|contracted procedure: k17743 o|contracted procedure: k17790 o|contracted procedure: k17796 o|contracted procedure: k17819 o|contracted procedure: k17825 o|contracted procedure: k17831 o|contracted procedure: k17852 o|contracted procedure: k17858 o|contracted procedure: k17880 o|contracted procedure: k17889 o|contracted procedure: k17896 o|contracted procedure: k17916 o|contracted procedure: k17938 o|contracted procedure: k17929 o|contracted procedure: k17945 o|contracted procedure: k17952 o|contracted procedure: k16109 o|contracted procedure: k2024533549 o|contracted procedure: k16139 o|contracted procedure: k2024533554 o|contracted procedure: k16154 o|contracted procedure: k16150 o|contracted procedure: k15466 o|contracted procedure: k15473 o|contracted procedure: k15488 o|contracted procedure: k15503 o|contracted procedure: k15512 o|contracted procedure: k15521 o|contracted procedure: k15533 o|contracted procedure: k15536 o|contracted procedure: k15539 o|contracted procedure: k15547 o|contracted procedure: k15555 o|contracted procedure: k15564 o|contracted procedure: k15573 o|contracted procedure: k15582 o|contracted procedure: k15594 o|contracted procedure: k15597 o|contracted procedure: k15600 o|contracted procedure: k15608 o|contracted procedure: k15616 o|contracted procedure: k15625 o|contracted procedure: k15634 o|contracted procedure: k15666 o|contracted procedure: k15675 o|contracted procedure: k15681 o|contracted procedure: k15688 o|contracted procedure: k15692 o|contracted procedure: k15704 o|contracted procedure: k15707 o|contracted procedure: k15710 o|contracted procedure: k15718 o|contracted procedure: k15726 o|contracted procedure: k15744 o|contracted procedure: k15748 o|contracted procedure: k15760 o|contracted procedure: k15763 o|contracted procedure: k15766 o|contracted procedure: k15774 o|contracted procedure: k15782 o|contracted procedure: k15790 o|contracted procedure: k15796 o|contracted procedure: k15824 o|contracted procedure: k15830 o|contracted procedure: k15843 o|contracted procedure: k15858 o|contracted procedure: k15880 o|contracted procedure: k15876 o|contracted procedure: k15861 o|contracted procedure: k15864 o|contracted procedure: k15872 o|contracted procedure: k15889 o|contracted procedure: k1387933569 o|contracted procedure: k957233577 o|substituted constant variable: g35407 o|contracted procedure: k957233583 o|substituted constant variable: g35409 o|contracted procedure: k16176 o|contracted procedure: k16183 o|contracted procedure: k16192 o|contracted procedure: k16209 o|contracted procedure: k16205 o|contracted procedure: k16195 o|contracted procedure: k16215 o|contracted procedure: k16226 o|contracted procedure: k16237 o|contracted procedure: k16243 o|contracted procedure: k16249 o|contracted procedure: k16255 o|contracted procedure: k16261 o|contracted procedure: k16267 o|contracted procedure: k16296 o|contracted procedure: k16302 o|contracted procedure: k16308 o|contracted procedure: k16314 o|contracted procedure: k16340 o|contracted procedure: k16349 o|contracted procedure: k16356 o|contracted procedure: k16365 o|contracted procedure: k16381 o|contracted procedure: k16371 o|contracted procedure: k16389 o|contracted procedure: k16399 o|contracted procedure: k16405 o|contracted procedure: k16411 o|contracted procedure: k16417 o|contracted procedure: k16444 o|contracted procedure: k16462 o|contracted procedure: k16478 o|contracted procedure: k16468 o|contracted procedure: k16489 o|contracted procedure: k16496 o|contracted procedure: k16499 o|contracted procedure: k16514 o|contracted procedure: k16523 o|contracted procedure: k16530 o|contracted procedure: k16538 o|contracted procedure: k16548 o|contracted procedure: k16554 o|contracted procedure: k16560 o|contracted procedure: k16566 o|contracted procedure: k16603 o|contracted procedure: k16610 o|contracted procedure: k16613 o|contracted procedure: k16628 o|contracted procedure: k16637 o|contracted procedure: k16652 o|contracted procedure: k16662 o|contracted procedure: k16668 o|contracted procedure: k16674 o|contracted procedure: k16680 o|contracted procedure: k16717 o|contracted procedure: k16729 o|contracted procedure: k16740 o|contracted procedure: k16762 o|inlining procedure: k16769 o|contracted procedure: k16779 o|inlining procedure: k16769 o|contracted procedure: k16788 o|contracted procedure: k16795 o|contracted procedure: k16799 o|contracted procedure: k16805 o|contracted procedure: k16816 o|inlining procedure: k16769 o|contracted procedure: k16823 o|contracted procedure: k16829 o|contracted procedure: k17965 o|contracted procedure: k17979 o|contracted procedure: k17971 o|contracted procedure: k17988 o|contracted procedure: k18002 o|contracted procedure: k17994 o|contracted procedure: k18129 o|contracted procedure: k18011 o|contracted procedure: k18014 o|contracted procedure: k18020 o|contracted procedure: k18023 o|contracted procedure: k18038 o|contracted procedure: k18041 o|contracted procedure: k18052 o|contracted procedure: k18058 o|contracted procedure: k18069 o|contracted procedure: k18072 o|contracted procedure: k18084 o|contracted procedure: k18087 o|contracted procedure: k18090 o|contracted procedure: k18098 o|contracted procedure: k18106 o|contracted procedure: k18469 o|contracted procedure: k18192 o|contracted procedure: k18195 o|contracted procedure: k18201 o|contracted procedure: k18204 o|contracted procedure: k18215 o|contracted procedure: k18223 o|contracted procedure: k18226 o|contracted procedure: k18237 o|contracted procedure: k18249 o|contracted procedure: k18245 o|contracted procedure: k18241 o|contracted procedure: k18253 o|contracted procedure: k18259 o|contracted procedure: k18274 o|contracted procedure: k18270 o|contracted procedure: k18278 o|contracted procedure: k18284 o|contracted procedure: k18298 o|contracted procedure: k18301 o|contracted procedure: k18308 o|contracted procedure: k18314 o|contracted procedure: k18317 o|contracted procedure: k18324 o|contracted procedure: k18341 o|contracted procedure: k18347 o|contracted procedure: k18353 o|contracted procedure: k18359 o|contracted procedure: k18365 o|contracted procedure: k18371 o|contracted procedure: k18377 o|contracted procedure: k18383 o|contracted procedure: k18389 o|contracted procedure: k18395 o|contracted procedure: k18401 o|contracted procedure: k18407 o|contracted procedure: k18413 o|contracted procedure: k18478 o|contracted procedure: k18485 o|contracted procedure: k18489 o|contracted procedure: k18510 o|contracted procedure: k18517 o|contracted procedure: k18568 o|contracted procedure: k18526 o|contracted procedure: k18564 o|contracted procedure: k18532 o|contracted procedure: k18557 o|contracted procedure: k18549 o|contracted procedure: k18576 o|contracted procedure: k18583 o|contracted procedure: k18587 o|contracted procedure: k18599 o|contracted procedure: k18602 o|contracted procedure: k18605 o|contracted procedure: k18613 o|contracted procedure: k18621 o|contracted procedure: k18629 o|contracted procedure: k18635 o|contracted procedure: k18641 o|contracted procedure: k18647 o|contracted procedure: k18653 o|contracted procedure: k18659 o|contracted procedure: k18697 o|contracted procedure: k18703 o|contracted procedure: k18716 o|contracted procedure: k18726 o|contracted procedure: k18719 o|contracted procedure: k18740 o|contracted procedure: k18733 o|contracted procedure: k18750 o|contracted procedure: k18756 o|contracted procedure: k18764 o|contracted procedure: k18775 o|contracted procedure: k18768 o|contracted procedure: k18793 o|contracted procedure: k18800 o|contracted procedure: k18803 o|contracted procedure: k18811 o|contracted procedure: k18815 o|contracted procedure: k18853 o|contracted procedure: k18842 o|contracted procedure: k18849 o|contracted procedure: k18845 o|contracted procedure: k18857 o|contracted procedure: k18867 o|contracted procedure: k18870 o|contracted procedure: k18873 o|contracted procedure: k18876 o|contracted procedure: k18911 o|contracted procedure: k18900 o|contracted procedure: k18907 o|contracted procedure: k18903 o|contracted procedure: k18917 o|contracted procedure: k18937 o|contracted procedure: k18942 o|contracted procedure: k19428 o|contracted procedure: k19431 o|contracted procedure: k19434 o|contracted procedure: k19437 o|contracted procedure: k19467 o|contracted procedure: k19492 o|contracted procedure: k19473 o|contracted procedure: k19480 o|contracted procedure: k19470 o|contracted procedure: k19506 o|contracted procedure: k19509 o|contracted procedure: k1941033601 o|contracted procedure: k19556 o|contracted procedure: k19531 o|contracted procedure: k19549 o|contracted procedure: k19540 o|contracted procedure: k19560 o|contracted procedure: k19581 o|contracted procedure: k19577 o|contracted procedure: k1941033611 o|contracted procedure: k18947 o|contracted procedure: k957233617 o|substituted constant variable: g35429 o|contracted procedure: k18954 o|contracted procedure: k18966 o|contracted procedure: k18972 o|contracted procedure: k18978 o|contracted procedure: k19016 o|contracted procedure: k19005 o|contracted procedure: k19012 o|contracted procedure: k19008 o|contracted procedure: k19022 o|contracted procedure: k19029 o|contracted procedure: k19042 o|contracted procedure: k19049 o|contracted procedure: k19056 o|contracted procedure: k19066 o|contracted procedure: k957233625 o|substituted constant variable: g35435 o|contracted procedure: k7469 o|contracted procedure: k7451 o|contracted procedure: k19079 o|contracted procedure: k19085 o|contracted procedure: k19098 o|contracted procedure: k19108 o|contracted procedure: k19101 o|contracted procedure: k19122 o|contracted procedure: k19115 o|contracted procedure: k19132 o|contracted procedure: k19138 o|contracted procedure: k19146 o|contracted procedure: k19157 o|contracted procedure: k19150 o|contracted procedure: k19169 o|contracted procedure: k19175 o|contracted procedure: k19212 o|contracted procedure: k19187 o|contracted procedure: k19208 o|contracted procedure: k19190 o|contracted procedure: k19197 o|contracted procedure: k19201 o|contracted procedure: k19193 o|contracted procedure: k19229 o|contracted procedure: k19244 o|contracted procedure: k19248 o|contracted procedure: k19255 o|contracted procedure: k19258 o|contracted procedure: k19264 o|contracted procedure: k19270 o|contracted procedure: k19276 o|contracted procedure: k19298 o|contracted procedure: k19304 o|contracted procedure: k19311 o|contracted procedure: k19356 o|contracted procedure: k19317 o|contracted procedure: k19324 o|contracted procedure: k19341 o|contracted procedure: k19369 o|contracted procedure: k19589 o|contracted procedure: k19592 o|contracted procedure: k19595 o|contracted procedure: k19605 o|contracted procedure: k19614 o|contracted procedure: k19621 o|contracted procedure: k19630 o|contracted procedure: k19638 o|contracted procedure: k19650 o|contracted procedure: k19660 o|contracted procedure: k19664 o|contracted procedure: k19706 o|contracted procedure: k19709 o|contracted procedure: k19712 o|contracted procedure: k19715 o|contracted procedure: k19718 o|contracted procedure: k19721 o|contracted procedure: k19724 o|contracted procedure: k19730 o|contracted procedure: k19736 o|contracted procedure: k19749 o|contracted procedure: k19753 o|contracted procedure: k19774 o|contracted procedure: k19822 o|contracted procedure: k19805 o|contracted procedure: k19813 o|contracted procedure: k19809 o|contracted procedure: k19838 o|contracted procedure: k19831 o|contracted procedure: k19841 o|contracted procedure: k19863 o|contracted procedure: k19871 o|contracted procedure: k19867 o|contracted procedure: k19844 o|contracted procedure: k19851 o|contracted procedure: k19859 o|contracted procedure: k19855 o|contracted procedure: k19874 o|contracted procedure: k19886 o|contracted procedure: k19910 o|contracted procedure: k19934 o|contracted procedure: k19918 o|contracted procedure: k19930 o|contracted procedure: k19921 o|contracted procedure: k19937 o|contracted procedure: k19940 o|contracted procedure: k19948 o|contracted procedure: k19969 o|contracted procedure: k19951 o|contracted procedure: k19965 o|contracted procedure: k19954 o|contracted procedure: k19961 o|contracted procedure: k19973 o|contracted procedure: k19985 o|contracted procedure: k19995 o|contracted procedure: k19999 o|contracted procedure: k20008 o|contracted procedure: k20018 o|contracted procedure: k20022 o|contracted procedure: k20025 o|contracted procedure: k1941033642 o|contracted procedure: k20065 o|contracted procedure: k20073 o|contracted procedure: k20069 o|contracted procedure: k20046 o|contracted procedure: k20053 o|contracted procedure: k20061 o|contracted procedure: k20057 o|contracted procedure: k20094 o|contracted procedure: k20102 o|contracted procedure: k20098 o|contracted procedure: k20136 o|contracted procedure: k20111 o|contracted procedure: k20129 o|contracted procedure: k20120 o|contracted procedure: k20140 o|contracted procedure: k20143 o|contracted procedure: k20164 o|contracted procedure: k20151 o|contracted procedure: k20160 o|contracted procedure: k20200 o|contracted procedure: k20167 o|contracted procedure: k20170 o|contracted procedure: k20182 o|contracted procedure: k20192 o|contracted procedure: k20196 o|contracted procedure: k20222 o|contracted procedure: k20230 o|contracted procedure: k20226 o|contracted procedure: k20203 o|contracted procedure: k20210 o|contracted procedure: k20218 o|contracted procedure: k20214 o|contracted procedure: k1941033654 o|contracted procedure: k19687 o|contracted procedure: k19690 o|contracted procedure: k29939 o|contracted procedure: k30557 o|contracted procedure: k30553 o|contracted procedure: k29947 o|contracted procedure: k29955 o|contracted procedure: k29963 o|contracted procedure: k29971 o|contracted procedure: k29979 o|contracted procedure: k29987 o|contracted procedure: k29995 o|contracted procedure: k30003 o|contracted procedure: k30011 o|contracted procedure: k30019 o|contracted procedure: k30027 o|contracted procedure: k30035 o|contracted procedure: k30043 o|contracted procedure: k30051 o|contracted procedure: k30059 o|contracted procedure: k30067 o|contracted procedure: k30075 o|contracted procedure: k30083 o|contracted procedure: k30091 o|contracted procedure: k30099 o|contracted procedure: k30107 o|contracted procedure: k30115 o|contracted procedure: k30123 o|contracted procedure: k30131 o|contracted procedure: k30139 o|contracted procedure: k30549 o|contracted procedure: k30147 o|contracted procedure: k30155 o|contracted procedure: k30163 o|contracted procedure: k30167 o|contracted procedure: k30541 o|contracted procedure: k30545 o|contracted procedure: k30171 o|contracted procedure: k30537 o|contracted procedure: k30533 o|contracted procedure: k30175 o|contracted procedure: k30179 o|contracted procedure: k30529 o|contracted procedure: k30183 o|contracted procedure: k30525 o|contracted procedure: k30187 o|contracted procedure: k30521 o|contracted procedure: k30191 o|contracted procedure: k30195 o|contracted procedure: k30199 o|contracted procedure: k30517 o|contracted procedure: k30509 o|contracted procedure: k30513 o|contracted procedure: k30203 o|contracted procedure: k30505 o|contracted procedure: k30481 o|contracted procedure: k30485 o|contracted procedure: k30501 o|contracted procedure: k30489 o|contracted procedure: k30497 o|contracted procedure: k30493 o|contracted procedure: k30207 o|contracted procedure: k30477 o|contracted procedure: k30211 o|contracted procedure: k30473 o|contracted procedure: k30215 o|contracted procedure: k30469 o|contracted procedure: k30441 o|contracted procedure: k30457 o|contracted procedure: k30465 o|contracted procedure: k30461 o|contracted procedure: k30445 o|contracted procedure: k30453 o|contracted procedure: k30449 o|contracted procedure: k30219 o|contracted procedure: k30433 o|contracted procedure: k30437 o|contracted procedure: k30425 o|contracted procedure: k30429 o|contracted procedure: k30223 o|contracted procedure: k30421 o|contracted procedure: k30227 o|contracted procedure: k30417 o|contracted procedure: k30409 o|contracted procedure: k30413 o|contracted procedure: k30405 o|contracted procedure: k30231 o|contracted procedure: k30395 o|contracted procedure: k30387 o|contracted procedure: k30391 o|contracted procedure: k30235 o|contracted procedure: k30383 o|contracted procedure: k30239 o|contracted procedure: k30367 o|contracted procedure: k30375 o|contracted procedure: k30379 o|contracted procedure: k30371 o|contracted procedure: k30243 o|contracted procedure: k30247 o|contracted procedure: k30363 o|contracted procedure: k30251 o|contracted procedure: k30359 o|contracted procedure: k30255 o|contracted procedure: k30355 o|contracted procedure: k30351 o|contracted procedure: k30259 o|contracted procedure: k30347 o|contracted procedure: k30263 o|contracted procedure: k30343 o|contracted procedure: k30267 o|contracted procedure: k30271 o|contracted procedure: k30339 o|contracted procedure: k30275 o|contracted procedure: k30335 o|contracted procedure: k30279 o|contracted procedure: k30287 o|contracted procedure: k30291 o|contracted procedure: k30331 o|contracted procedure: k30295 o|contracted procedure: k30327 o|contracted procedure: k30303 o|contracted procedure: k30323 o|contracted procedure: k30307 o|contracted procedure: k30319 o|contracted procedure: k30315 o|contracted procedure: k30311 o|contracted procedure: k30299 o|contracted procedure: k30283 o|contracted procedure: k30159 o|contracted procedure: k30151 o|contracted procedure: k30143 o|contracted procedure: k30135 o|contracted procedure: k30127 o|contracted procedure: k30119 o|contracted procedure: k30111 o|contracted procedure: k30103 o|contracted procedure: k30095 o|contracted procedure: k30087 o|contracted procedure: k30079 o|contracted procedure: k30071 o|contracted procedure: k30063 o|contracted procedure: k30055 o|contracted procedure: k30047 o|contracted procedure: k30039 o|contracted procedure: k30031 o|contracted procedure: k30023 o|contracted procedure: k30015 o|contracted procedure: k30007 o|contracted procedure: k29999 o|contracted procedure: k29991 o|contracted procedure: k29983 o|contracted procedure: k29975 o|contracted procedure: k29967 o|contracted procedure: k29959 o|contracted procedure: k29951 o|contracted procedure: k29943 o|contracted procedure: k20236 o|contracted procedure: k20307 o|substituted constant variable: g35462 o|contracted procedure: k20318 o|contracted procedure: k20314 o|contracted procedure: k20359 o|contracted procedure: k20344 o|contracted procedure: k20355 o|contracted procedure: k20351 o|contracted procedure: k20332 o|contracted procedure: k20328 o|contracted procedure: k20495 o|contracted procedure: k20298 o|contracted procedure: k20552 o|contracted procedure: k20556 o|contracted procedure: k20507 o|contracted procedure: k20519 o|contracted procedure: k20529 o|substituted constant variable: g35464 o|contracted procedure: k20542 o|contracted procedure: k20532 o|contracted procedure: k20548 o|contracted procedure: k20573 o|contracted procedure: k2599233663 o|contracted procedure: k2599233668 o|contracted procedure: k2599233673 o|contracted procedure: k957233679 o|substituted constant variable: g35469 o|contracted procedure: k20613 o|contracted procedure: k21371 o|contracted procedure: k20619 o|contracted procedure: k20646 o|contracted procedure: k20660 o|contracted procedure: k20670 o|substituted constant variable: g35472 o|contracted procedure: k20677 o|contracted procedure: k20689 o|contracted procedure: k20685 o|contracted procedure: k20699 o|contracted procedure: k20716 o|contracted procedure: k20719 o|inlining procedure: k20729 o|contracted procedure: k20747 o|contracted procedure: k20738 o|inlining procedure: k20729 o|contracted procedure: k20755 o|contracted procedure: k21354 o|contracted procedure: k20761 o|contracted procedure: k20787 o|contracted procedure: k20794 o|contracted procedure: k957233687 o|substituted constant variable: g35475 o|contracted procedure: k20797 o|contracted procedure: k20803 o|contracted procedure: k20806 o|contracted procedure: k20824 o|contracted procedure: k20862 o|contracted procedure: k20833 o|contracted procedure: k20846 o|contracted procedure: k20871 o|contracted procedure: k957233693 o|substituted constant variable: g35477 o|contracted procedure: k20898 o|contracted procedure: k20978 o|contracted procedure: k20910 o|contracted procedure: k20946 o|contracted procedure: k20962 o|contracted procedure: k20986 o|contracted procedure: k21005 o|contracted procedure: k21017 o|contracted procedure: k21020 o|contracted procedure: k21051 o|contracted procedure: k21044 o|contracted procedure: k21055 o|contracted procedure: k21071 o|contracted procedure: k21074 o|contracted procedure: k21141 o|contracted procedure: k21137 o|contracted procedure: k21077 o|contracted procedure: k21080 o|contracted procedure: k21115 o|contracted procedure: k21127 o|contracted procedure: k21149 o|contracted procedure: k21152 o|contracted procedure: k21219 o|contracted procedure: k21215 o|contracted procedure: k21155 o|contracted procedure: k21158 o|contracted procedure: k21193 o|contracted procedure: k21272 o|contracted procedure: k21224 o|contracted procedure: k21265 o|contracted procedure: k21235 o|contracted procedure: k21242 o|contracted procedure: k21254 o|contracted procedure: k21261 o|contracted procedure: k21300 o|contracted procedure: k21306 o|contracted procedure: k21323 o|contracted procedure: k21329 o|contracted procedure: k21388 o|contracted procedure: k21398 o|substituted constant variable: g35480 o|contracted procedure: k21411 o|contracted procedure: k21401 o|contracted procedure: k21420 o|contracted procedure: k21416 o|contracted procedure: k21424 o|contracted procedure: k21428 o|contracted procedure: k21538 o|contracted procedure: k21437 o|contracted procedure: k21447 o|contracted procedure: k21440 o|contracted procedure: k21443 o|contracted procedure: k21534 o|contracted procedure: k21453 o|contracted procedure: k21456 o|contracted procedure: k21462 o|contracted procedure: k21476 o|contracted procedure: k21484 o|contracted procedure: k21480 o|contracted procedure: k21505 o|contracted procedure: k21511 o|contracted procedure: k21592 o|contracted procedure: k21601 o|contracted procedure: k21604 o|contracted procedure: k21607 o|contracted procedure: k21615 o|contracted procedure: k2024533705 o|contracted procedure: k21630 o|contracted procedure: k21638 o|contracted procedure: k21653 o|contracted procedure: k21662 o|contracted procedure: k21667 o|contracted procedure: k21671 o|contracted procedure: k21692 o|contracted procedure: k21677 o|contracted procedure: k21681 o|contracted procedure: k21688 o|contracted procedure: k21695 o|contracted procedure: k21705 o|contracted procedure: k2024533710 o|contracted procedure: k21718 o|contracted procedure: k21728 o|contracted procedure: k21732 o|contracted procedure: k21735 o|contracted procedure: k21739 o|contracted procedure: k21750 o|contracted procedure: k21746 o|contracted procedure: k2158233718 o|contracted procedure: k22005 o|contracted procedure: k22017 o|contracted procedure: k22020 o|contracted procedure: k22280 o|contracted procedure: k22276 o|contracted procedure: k22272 o|contracted procedure: k22268 o|contracted procedure: k22102 o|contracted procedure: k22109 o|contracted procedure: k22113 o|contracted procedure: k22122 o|contracted procedure: k22142 o|contracted procedure: k22138 o|contracted procedure: k22125 o|contracted procedure: k22309 o|contracted procedure: k22334 o|contracted procedure: k22359 o|contracted procedure: k22351 o|contracted procedure: k22355 o|contracted procedure: k22347 o|contracted procedure: k22364 o|contracted procedure: k26018 o|contracted procedure: k26044 o|contracted procedure: k26021 o|contracted procedure: k26040 o|contracted procedure: k26028 o|contracted procedure: k26036 o|contracted procedure: k26032 o|contracted procedure: k22373 o|contracted procedure: k22330 o|contracted procedure: k22318 o|contracted procedure: k22385 o|contracted procedure: k22388 o|contracted procedure: k22391 o|contracted procedure: k22399 o|contracted procedure: k22407 o|contracted procedure: k22414 o|contracted procedure: k22423 o|contracted procedure: k22430 o|contracted procedure: k22434 o|contracted procedure: k22446 o|contracted procedure: k22442 o|contracted procedure: k22438 o|contracted procedure: k22261 o|contracted procedure: k22154 o|contracted procedure: k22178 o|contracted procedure: k22181 o|contracted procedure: k22196 o|contracted procedure: k22188 o|contracted procedure: k22192 o|contracted procedure: k22205 o|contracted procedure: k22211 o|contracted procedure: k22220 o|contracted procedure: k22236 o|contracted procedure: k22240 o|contracted procedure: k22232 o|contracted procedure: k22228 o|contracted procedure: k22224 o|contracted procedure: k22250 o|contracted procedure: k20416 o|contracted procedure: k20412 o|contracted procedure: k20393 o|contracted procedure: k20404 o|contracted procedure: k20408 o|contracted procedure: k20400 o|contracted procedure: k22942 o|contracted procedure: k22945 o|contracted procedure: k22957 o|contracted procedure: k22963 o|contracted procedure: k23081 o|contracted procedure: k22975 o|contracted procedure: k22984 o|contracted procedure: k22991 o|contracted procedure: k22998 o|contracted procedure: k23002 o|contracted procedure: k23011 o|contracted procedure: k23017 o|contracted procedure: k23024 o|contracted procedure: k23031 o|contracted procedure: k23037 o|contracted procedure: k23044 o|contracted procedure: k23051 o|contracted procedure: k23055 o|contracted procedure: k23062 o|contracted procedure: k23069 o|contracted procedure: k23059 o|contracted procedure: k23089 o|contracted procedure: k21995 o|contracted procedure: k21999 o|contracted procedure: k21934 o|contracted procedure: k21987 o|contracted procedure: k21991 o|contracted procedure: k21940 o|contracted procedure: k21943 o|contracted procedure: k21952 o|contracted procedure: k21983 o|contracted procedure: k21971 o|contracted procedure: k21979 o|contracted procedure: k21975 o|contracted procedure: k21961 o|contracted procedure: k20387 o|contracted procedure: k20383 o|contracted procedure: k20379 o|contracted procedure: k20375 o|contracted procedure: k20365 o|contracted procedure: k22257 o|contracted procedure: k22480 o|contracted procedure: k22487 o|contracted procedure: k22498 o|contracted procedure: k22505 o|contracted procedure: k22630 o|contracted procedure: k22515 o|contracted procedure: k22525 o|contracted procedure: k22542 o|contracted procedure: k22564 o|contracted procedure: k22583 o|contracted procedure: k22579 o|contracted procedure: k2600233747 o|contracted procedure: k22590 o|contracted procedure: k22593 o|contracted procedure: k2600233752 o|contracted procedure: k22604 o|contracted procedure: k22608 o|contracted procedure: k22620 o|contracted procedure: k22626 o|contracted procedure: k22461 o|contracted procedure: k2600233757 o|contracted procedure: k20281 o|substituted constant variable: g35522 o|contracted procedure: k20288 o|contracted procedure: k2024533766 o|contracted procedure: k22287 o|contracted procedure: k20473 o|contracted procedure: k20469 o|contracted procedure: k20450 o|contracted procedure: k20461 o|contracted procedure: k20465 o|contracted procedure: k20457 o|contracted procedure: k22657 o|contracted procedure: k22660 o|contracted procedure: k22680 o|contracted procedure: k22686 o|contracted procedure: k22752 o|contracted procedure: k22692 o|contracted procedure: k22695 o|contracted procedure: k22698 o|contracted procedure: k22716 o|contracted procedure: k22724 o|contracted procedure: k22720 o|contracted procedure: k21806 o|contracted procedure: k21809 o|contracted procedure: k21815 o|contracted procedure: k21831 o|contracted procedure: k21827 o|contracted procedure: k2024533771 o|contracted procedure: k21853 o|contracted procedure: k21838 o|contracted procedure: k21842 o|contracted procedure: k21849 o|contracted procedure: k21856 o|contracted procedure: k21860 o|contracted procedure: k21871 o|contracted procedure: k21867 o|contracted procedure: k2158233777 o|contracted procedure: k21884 o|contracted procedure: k21891 o|contracted procedure: k21925 o|contracted procedure: k21897 o|contracted procedure: k21908 o|contracted procedure: k21904 o|contracted procedure: k21919 o|contracted procedure: k22042 o|contracted procedure: k22081 o|contracted procedure: k22045 o|contracted procedure: k22054 o|contracted procedure: k22051 o|contracted procedure: k22077 o|contracted procedure: k22066 o|contracted procedure: k22073 o|contracted procedure: k22743 o|contracted procedure: k22739 o|contracted procedure: k21766 o|contracted procedure: k21796 o|contracted procedure: k21788 o|contracted procedure: k21784 o|contracted procedure: k21769 o|contracted procedure: k21780 o|contracted procedure: k21776 o|contracted procedure: k21760 o|contracted procedure: k2024533786 o|contracted procedure: k2158233793 o|contracted procedure: k2024533802 o|contracted procedure: k22766 o|contracted procedure: k20444 o|contracted procedure: k20440 o|contracted procedure: k20436 o|contracted procedure: k20432 o|contracted procedure: k20422 o|contracted procedure: k22787 o|contracted procedure: k22790 o|contracted procedure: k22793 o|contracted procedure: k22805 o|contracted procedure: k22812 o|contracted procedure: k22816 o|contracted procedure: k22825 o|contracted procedure: k22832 o|contracted procedure: k22936 o|contracted procedure: k22838 o|contracted procedure: k22859 o|contracted procedure: k22855 o|contracted procedure: k22932 o|contracted procedure: k22867 o|contracted procedure: k22904 o|contracted procedure: k22889 o|contracted procedure: k22896 o|contracted procedure: k22900 o|contracted procedure: k22928 o|contracted procedure: k22913 o|contracted procedure: k22920 o|contracted procedure: k22924 o|contracted procedure: k25898 o|contracted procedure: k25917 o|contracted procedure: k25920 o|contracted procedure: k25929 o|contracted procedure: k25935 o|contracted procedure: k25941 o|contracted procedure: k25963 o|contracted procedure: k26111 o|contracted procedure: k26121 o|substituted constant variable: g35558 o|contracted procedure: k26128 o|contracted procedure: k26152 o|contracted procedure: k26136 o|contracted procedure: k26148 o|contracted procedure: k26144 o|contracted procedure: k26140 o|contracted procedure: k26132 o|contracted procedure: k2599233819 o|contracted procedure: k26207 o|contracted procedure: k26236 o|contracted procedure: k26242 o|contracted procedure: k26266 o|contracted procedure: k26281 o|contracted procedure: k26284 o|contracted procedure: k26287 o|contracted procedure: k26299 o|contracted procedure: k26302 o|contracted procedure: k26305 o|contracted procedure: k26313 o|contracted procedure: k26321 o|contracted procedure: k26328 o|contracted procedure: k26334 o|contracted procedure: k26345 o|contracted procedure: k26348 o|contracted procedure: k26351 o|contracted procedure: k26363 o|contracted procedure: k26366 o|contracted procedure: k26369 o|contracted procedure: k26377 o|contracted procedure: k26385 o|contracted procedure: k26392 o|contracted procedure: k26398 o|contracted procedure: k26415 o|contracted procedure: k26418 o|contracted procedure: k26421 o|contracted procedure: k26433 o|contracted procedure: k26436 o|contracted procedure: k26439 o|contracted procedure: k26447 o|contracted procedure: k26455 o|contracted procedure: k26462 o|contracted procedure: k26468 o|contracted procedure: k26162 o|contracted procedure: k26171 o|contracted procedure: k26178 o|contracted procedure: k2598233831 o|contracted procedure: k18144 o|contracted procedure: k18183 o|contracted procedure: k18153 o|contracted procedure: k18177 o|contracted procedure: k26489 o|contracted procedure: k26500 o|contracted procedure: k26503 o|contracted procedure: k26506 o|contracted procedure: k26518 o|contracted procedure: k26521 o|contracted procedure: k26524 o|contracted procedure: k26532 o|contracted procedure: k26540 o|contracted procedure: k26547 o|contracted procedure: k26553 o|contracted procedure: k26568 o|contracted procedure: k26602 o|contracted procedure: k2598233845 o|contracted procedure: k2598233851 o|contracted procedure: k26621 o|contracted procedure: k26628 o|contracted procedure: k26631 o|contracted procedure: k26641 o|contracted procedure: k26647 o|contracted procedure: k26684 o|contracted procedure: k26690 o|contracted procedure: k26696 o|contracted procedure: k26699 o|contracted procedure: k26758 o|contracted procedure: k26717 o|contracted procedure: k26720 o|contracted procedure: k26734 o|contracted procedure: k26743 o|contracted procedure: k26749 o|contracted procedure: k26780 o|contracted procedure: k26795 o|contracted procedure: k26799 o|contracted procedure: k26789 o|contracted procedure: k26822 o|contracted procedure: k26843 o|contracted procedure: k26861 o|contracted procedure: k26864 o|contracted procedure: k26960 o|contracted procedure: k26872 o|contracted procedure: k26956 o|contracted procedure: k26877 o|contracted procedure: k26886 o|contracted procedure: k26893 o|contracted procedure: k26898 o|contracted procedure: k26908 o|contracted procedure: k26914 o|contracted procedure: k26921 o|contracted procedure: k26938 o|contracted procedure: k27017 o|contracted procedure: k27030 o|contracted procedure: k27044 o|contracted procedure: k27047 o|contracted procedure: k27168 o|contracted procedure: k27172 o|contracted procedure: k27053 o|contracted procedure: k27062 o|contracted procedure: k27068 o|contracted procedure: k27101 o|contracted procedure: k27113 o|contracted procedure: k26981 o|contracted procedure: k27131 o|contracted procedure: k26993 o|contracted procedure: k27149 o|contracted procedure: k27213 o|contracted procedure: k27216 o|contracted procedure: k27226 o|contracted procedure: k27229 o|contracted procedure: k27309 o|contracted procedure: k27313 o|contracted procedure: k27235 o|contracted procedure: k27246 o|contracted procedure: k27254 o|contracted procedure: k27269 o|contracted procedure: k27272 o|contracted procedure: k27280 o|contracted procedure: k27181 o|contracted procedure: k27190 o|contracted procedure: k27345 o|contracted procedure: k2598233872 o|contracted procedure: k27395 o|contracted procedure: k27399 o|contracted procedure: k27407 o|contracted procedure: k27438 o|contracted procedure: k27457 o|contracted procedure: k27447 o|contracted procedure: k27475 o|contracted procedure: k27484 o|contracted procedure: k27487 o|contracted procedure: k27496 o|contracted procedure: k27508 o|contracted procedure: k27520 o|contracted procedure: k27532 o|contracted procedure: k27547 o|contracted procedure: k27539 o|contracted procedure: k27543 o|contracted procedure: k27569 o|contracted procedure: k27573 o|contracted procedure: k957233880 o|substituted constant variable: g35589 o|contracted procedure: k27584 o|contracted procedure: k27577 o|contracted procedure: k27598 o|contracted procedure: k27591 o|contracted procedure: k27614 o|contracted procedure: k27620 o|contracted procedure: k27627 o|contracted procedure: k27605 o|contracted procedure: k27638 o|contracted procedure: k27632 o|contracted procedure: k27648 o|contracted procedure: k27659 o|contracted procedure: k27652 o|contracted procedure: k27687 o|contracted procedure: k27680 o|contracted procedure: k27702 o|contracted procedure: k27708 o|contracted procedure: k27714 o|contracted procedure: k27726 o|contracted procedure: k27738 o|contracted procedure: k27803 o|contracted procedure: k27776 o|contracted procedure: k27779 o|contracted procedure: k27789 o|contracted procedure: k27799 o|contracted procedure: k27828 o|contracted procedure: k957233893 o|substituted constant variable: g35599 o|contracted procedure: k27832 o|contracted procedure: k27750 o|contracted procedure: k27838 o|contracted procedure: k27852 o|contracted procedure: k27858 o|contracted procedure: k27868 o|contracted procedure: k27897 o|contracted procedure: k27890 o|contracted procedure: k27916 o|contracted procedure: k27932 o|contracted procedure: k27946 o|contracted procedure: k27965 o|contracted procedure: k27976 o|contracted procedure: k27969 o|contracted procedure: k28022 o|contracted procedure: k28019 o|contracted procedure: k27997 o|contracted procedure: k28035 o|contracted procedure: k28045 o|contracted procedure: k28042 o|contracted procedure: k28062 o|contracted procedure: k28055 o|contracted procedure: k28077 o|contracted procedure: k28084 o|inlining procedure: k28093 o|inlining procedure: k28093 o|contracted procedure: k28108 o|contracted procedure: k28117 o|contracted procedure: k28128 o|contracted procedure: k28135 o|contracted procedure: k28144 o|contracted procedure: k28152 o|contracted procedure: k28162 o|contracted procedure: k28183 o|contracted procedure: k28196 o|contracted procedure: k28199 o|contracted procedure: k28208 o|contracted procedure: k28220 o|contracted procedure: k28230 o|contracted procedure: k28240 o|contracted procedure: k28256 o|contracted procedure: k28260 o|contracted procedure: k28252 o|contracted procedure: k28287 o|contracted procedure: k28328 o|contracted procedure: k28321 o|contracted procedure: k28352 o|contracted procedure: k28369 o|contracted procedure: k28390 o|contracted procedure: k28414 o|contracted procedure: k28411 o|contracted procedure: k28433 o|contracted procedure: k28424 o|contracted procedure: k28441 o|contracted procedure: k28452 o|contracted procedure: k28445 o|contracted procedure: k28459 o|contracted procedure: k28475 o|contracted procedure: k28492 o|contracted procedure: k28481 o|contracted procedure: k28495 o|contracted procedure: k28519 o|contracted procedure: k28525 o|contracted procedure: k28544 o|contracted procedure: k28540 o|contracted procedure: k28553 o|contracted procedure: k28682 o|contracted procedure: k28820 o|contracted procedure: k28688 o|contracted procedure: k28704 o|contracted procedure: k28716 o|substituted constant variable: g35624 o|contracted procedure: k28586 o|contracted procedure: k28565 o|contracted procedure: k28732 o|contracted procedure: k28735 o|contracted procedure: k28748 o|contracted procedure: k28754 o|inlining procedure: k28745 o|inlining procedure: k28745 o|contracted procedure: k28768 o|contracted procedure: k28676 o|contracted procedure: k28595 o|contracted procedure: k28609 o|contracted procedure: k28632 o|contracted procedure: k28635 o|contracted procedure: k28638 o|contracted procedure: k28646 o|contracted procedure: k28654 o|contracted procedure: k28617 o|contracted procedure: k28666 o|contracted procedure: k28775 o|contracted procedure: k28778 o|contracted procedure: k28784 o|contracted procedure: k28792 o|contracted procedure: k28812 o|contracted procedure: k28804 o|contracted procedure: k28795 o|contracted procedure: k28841 o|contracted procedure: k28852 o|contracted procedure: k28873 o|contracted procedure: k28869 o|contracted procedure: k28885 o|contracted procedure: k28881 o|contracted procedure: k28896 o|contracted procedure: k28921 o|contracted procedure: k28928 o|contracted procedure: k28931 o|contracted procedure: k28944 o|contracted procedure: k28959 o|contracted procedure: k28969 o|contracted procedure: k28973 o|contracted procedure: k28977 o|contracted procedure: k28989 o|contracted procedure: k28999 o|contracted procedure: k29003 o|contracted procedure: k29006 o|contracted procedure: k29023 o|contracted procedure: k29012 o|contracted procedure: k29019 o|contracted procedure: k29031 o|contracted procedure: k29038 o|contracted procedure: k29053 o|contracted procedure: k29063 o|contracted procedure: k29067 o|contracted procedure: k29073 o|contracted procedure: k29085 o|contracted procedure: k29088 o|contracted procedure: k29103 o|contracted procedure: k29113 o|contracted procedure: k29117 o|contracted procedure: k29121 o|contracted procedure: k29127 o|contracted procedure: k29144 o|contracted procedure: k29147 o|contracted procedure: k29162 o|contracted procedure: k29172 o|contracted procedure: k29176 o|contracted procedure: k29180 o|contracted procedure: k29186 o|contracted procedure: k29247 o|contracted procedure: k29200 o|contracted procedure: k29207 o|contracted procedure: k29222 o|contracted procedure: k29232 o|contracted procedure: k29236 o|contracted procedure: k29243 o|contracted procedure: k29253 o|contracted procedure: k29293 o|contracted procedure: k29282 o|contracted procedure: k29299 o|contracted procedure: k29320 o|contracted procedure: k29329 o|contracted procedure: k29352 o|contracted procedure: k29349 o|contracted procedure: k29365 o|contracted procedure: k29375 o|contracted procedure: k29381 o|contracted procedure: k29388 o|contracted procedure: k29400 o|contracted procedure: k29403 o|contracted procedure: k29416 o|contracted procedure: k29431 o|contracted procedure: k29441 o|contracted procedure: k29445 o|contracted procedure: k29448 o|contracted procedure: k29459 o|contracted procedure: k29466 o|contracted procedure: k29487 o|contracted procedure: k29493 o|contracted procedure: k29514 o|contracted procedure: k29520 o|contracted procedure: k29526 o|contracted procedure: k29561 o|contracted procedure: k29567 o|contracted procedure: k29570 o|contracted procedure: k29579 o|contracted procedure: k29582 o|contracted procedure: k29591 o|contracted procedure: k29594 o|contracted procedure: k29627 o|contracted procedure: k29640 o|contracted procedure: k29651 o|contracted procedure: k29660 o|contracted procedure: k29680 o|contracted procedure: k29683 o|contracted procedure: k29690 o|contracted procedure: k29740 o|contracted procedure: k29724 o|contracted procedure: k29736 o|contracted procedure: k29732 o|contracted procedure: k29728 o|contracted procedure: k29708 o|contracted procedure: k29720 o|contracted procedure: k29716 o|contracted procedure: k29712 o|contracted procedure: k29700 o|contracted procedure: k29759 o|contracted procedure: k29755 o|contracted procedure: k29747 o|contracted procedure: k29925 o|contracted procedure: k29788 o|contracted procedure: k29921 o|contracted procedure: k29797 o|contracted procedure: k29823 o|contracted procedure: k29813 o|contracted procedure: k29804 o|contracted procedure: k29837 o|contracted procedure: k29845 o|contracted procedure: k29841 o|contracted procedure: k29864 o|contracted procedure: k29872 o|contracted procedure: k29868 o|contracted procedure: k29884 o|contracted procedure: k29889 o|contracted procedure: k29899 o|contracted procedure: k29915 o|contracted procedure: k29905 o|contracted procedure: k30570 o|contracted procedure: k30618 o|contracted procedure: k30621 o|simplifications: ((let . 417)) o|replaced variables: 125 o|removed binding forms: 2557 o|inlining procedure: "(irregex-core.scm:740) chicken.irregex#char-altcase" o|inlining procedure: "(irregex-core.scm:3492) chicken.irregex#char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3495) chicken.irregex#char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3488) chicken.irregex#char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3490) chicken.irregex#char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3524) chicken.irregex#char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3526) chicken.irregex#char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3520) chicken.irregex#char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3522) chicken.irregex#char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3539) chicken.irregex#char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3540) chicken.irregex#char-alphanumeric?" o|inlining procedure: "(irregex-core.scm:3538) chicken.irregex#char-alphanumeric?" o|substituted constant variable: r2587435748 o|inlining procedure: k19091 o|inlining procedure: "(irregex-core.scm:2451) chicken.irregex#char-altcase" o|inlining procedure: "(irregex-core.scm:2725) chicken.irregex#mst-state-mappings-set!" o|inlining procedure: k26011 o|inlining procedure: k26011 o|inlining procedure: "(irregex-core.scm:2764) chicken.irregex#mst-state-mappings-set!" o|inlining procedure: "(irregex-core.scm:2746) chicken.irregex#mst-state-mappings-set!" o|inlining procedure: "(irregex-core.scm:2746) chicken.irregex#mst-state-mappings-set!" o|inlining procedure: k27265 o|inlining procedure: k27265 o|inlining procedure: "(irregex-core.scm:3844) chicken.irregex#char-altcase" o|inlining procedure: "(irregex-core.scm:3843) chicken.irregex#char-altcase" o|simplifications: ((let . 1)) o|replaced variables: 775 o|removed binding forms: 177 o|removed conditional forms: 1 o|inlining procedure: k7935 o|removed side-effect free assignment to unused variable: chicken.irregex#char-alphanumeric? o|inlining procedure: k2697033268 o|inlining procedure: k2697033290 o|inlining procedure: k13387 o|inlining procedure: k2697033312 o|inlining procedure: k2697033323 o|inlining procedure: k2697033334 o|inlining procedure: k2697033345 o|inlining procedure: k2697033361 o|inlining procedure: k13841 o|removed side-effect free assignment to unused variable: chicken.irregex#char-altcase o|inlining procedure: k15101 o|inlining procedure: k23192 o|inlining procedure: k23213 o|inlining procedure: k23310 o|inlining procedure: k23367 o|inlining procedure: k24582 o|inlining procedure: k16113 o|inlining procedure: k16143 o|inlining procedure: k19525 o|inlining procedure: k19240 o|inlining procedure: k19352 o|inlining procedure: k19380 o|inlining procedure: k20504 o|inlining procedure: k20600 o|inlining procedure: k20607 o|inlining procedure: k20892 o|removed side-effect free assignment to unused variable: chicken.irregex#mst-state-mappings-set! o|inlining procedure: k21620 o|inlining procedure: k21709 o|substituted constant variable: r2601236130 o|inlining procedure: k23104 o|inlining procedure: k22600 o|inlining procedure: k22465 o|inlining procedure: k20253 o|inlining procedure: k22781 o|inlining procedure: k21835 o|inlining procedure: k22756 o|inlining procedure: k2697033814 o|inlining procedure: k26186 o|inlining procedure: k26612 o|inlining procedure: k27120 o|inlining procedure: k27140 o|inlining procedure: k27383 o|inlining procedure: k27957 o|inlining procedure: k28173 o|inlining procedure: k28380 o|simplifications: ((let . 1) (if . 5)) o|replaced variables: 74 o|removed binding forms: 567 o|removed conditional forms: 1 o|inlining procedure: "(irregex-core.scm:233) chicken.irregex#%irregex-match-end-index" o|contracted procedure: k7992 o|contracted procedure: k8122 o|contracted procedure: k8143 o|contracted procedure: k8164 o|inlining procedure: "(irregex-core.scm:301) chicken.irregex#%irregex-match-end-index" o|contracted procedure: k8212 o|contracted procedure: k8233 o|contracted procedure: k8254 o|inlining procedure: "(irregex-core.scm:313) chicken.irregex#%irregex-match-end-index" o|contracted procedure: k10364 o|inlining procedure: k10361 o|contracted procedure: k10376 o|contracted procedure: k10449 o|contracted procedure: k10644 o|contracted procedure: k10813 o|contracted procedure: k11208 o|contracted procedure: k11231 o|contracted procedure: k11254 o|contracted procedure: k11296 o|contracted procedure: k11319 o|contracted procedure: k11344 o|contracted procedure: k11408 o|contracted procedure: k11462 o|contracted procedure: k11505 o|contracted procedure: k11536 o|contracted procedure: k11587 o|contracted procedure: k11590 o|contracted procedure: k13264 o|contracted procedure: k13291 o|contracted procedure: k13304 o|contracted procedure: k13431 o|contracted procedure: k13783 o|contracted procedure: k13844 o|contracted procedure: k12605 o|contracted procedure: k12795 o|contracted procedure: k12950 o|contracted procedure: k12979 o|contracted procedure: k12991 o|contracted procedure: k13022 o|contracted procedure: k15383 o|contracted procedure: k24321 o|contracted procedure: k24669 o|contracted procedure: k24689 o|contracted procedure: k24781 o|inlining procedure: "(irregex-core.scm:3419) chicken.irregex#%irregex-match-end-index" o|inlining procedure: k25302 o|inlining procedure: k25302 o|inlining procedure: k25326 o|inlining procedure: k25326 o|inlining procedure: k25500 o|inlining procedure: k25500 o|inlining procedure: k25520 o|inlining procedure: k25520 o|inlining procedure: k25565 o|inlining procedure: k25565 o|contracted procedure: k25648 o|contracted procedure: k15447 o|contracted procedure: k15451 o|contracted procedure: k18827 o|contracted procedure: k18833 o|contracted procedure: k19440 o|contracted procedure: k18963 o|contracted procedure: k18984 o|inlining procedure: "(irregex-core.scm:2046) chicken.irregex#%irregex-match-end-index" o|inlining procedure: "(irregex-core.scm:2066) chicken.irregex#%irregex-match-end-index" o|contracted procedure: k19733 o|contracted procedure: k19816 o|contracted procedure: k19883 o|contracted procedure: k20585 o|contracted procedure: k20596 o|contracted procedure: k20776 o|contracted procedure: k21754 o|contracted procedure: k23095 o|contracted procedure: k22557 o|contracted procedure: k22772 o|contracted procedure: k21875 o|contracted procedure: k21800 o|contracted procedure: k21792 o|contracted procedure: k27289 o|contracted procedure: k27293 o|inlining procedure: k27391 o|contracted procedure: k27559 o|inlining procedure: "(irregex-core.scm:3880) chicken.irregex#%irregex-match-end-index" o|contracted procedure: k27761 o|contracted procedure: k27818 o|inlining procedure: "(irregex-core.scm:3915) chicken.irregex#%irregex-match-end-index" o|inlining procedure: "(irregex-core.scm:3940) chicken.irregex#%irregex-match-end-index" o|contracted procedure: k28008 o|contracted procedure: k28190 o|contracted procedure: k28237 o|inlining procedure: "(irregex-core.scm:3986) chicken.irregex#%irregex-match-end-index" o|contracted procedure: k28401 o|contracted procedure: k28650 o|simplifications: ((if . 6) (let . 4)) o|replaced variables: 11 o|removed binding forms: 171 o|removed side-effect free assignment to unused variable: chicken.irregex#%irregex-match-end-index o|contracted procedure: k25555 o|substituted constant variable: n74536706 o|substituted constant variable: n74536712 o|contracted procedure: k20579 o|contracted procedure: k21659 o|contracted procedure: k21821 o|contracted procedure: k27387 o|substituted constant variable: n74536809 o|substituted constant variable: n74536817 o|substituted constant variable: n74536825 o|substituted constant variable: n74536831 o|replaced variables: 97 o|removed binding forms: 15 o|inlining procedure: k8168 o|inlining procedure: k8258 o|inlining procedure: k19331 o|inlining procedure: k22284 o|inlining procedure: k27961 o|inlining procedure: k28216 o|replaced variables: 7 o|removed binding forms: 72 o|contracted procedure: k24784 o|contracted procedure: k19219 o|contracted procedure: k27526 o|contracted procedure: k27764 o|removed binding forms: 13 o|replaced variables: 16 o|removed binding forms: 12 o|direct leaf routine/allocation: lp1119 0 o|direct leaf routine/allocation: lp1167 0 o|direct leaf routine/allocation: new-res1632 6 o|direct leaf routine/allocation: g18721873 6 o|direct leaf routine/allocation: byte1943 0 o|direct leaf routine/allocation: chicken.irregex#sre-repeater? 0 o|direct leaf routine/allocation: chicken.irregex#sre-sequence 3 o|direct leaf routine/allocation: chicken.irregex#sre-alternate 3 o|direct leaf routine/allocation: g36253643 3 o|direct leaf routine/allocation: g36353653 0 o|direct leaf routine/allocation: g35413548 3 o|direct leaf routine/allocation: chicken.irregex#nfa-get-epsilons 0 o|direct leaf routine/allocation: g40154022 3 o|direct leaf routine/allocation: doloop41154116 0 o|contracted procedure: k8997 o|converted assignments to bindings: (lp1119) o|converted assignments to bindings: (lp1167) o|contracted procedure: "(irregex-core.scm:792) k10546" o|contracted procedure: "(irregex-core.scm:795) k10555" o|contracted procedure: "(irregex-core.scm:810) k10598" o|contracted procedure: "(irregex-core.scm:813) k10612" o|contracted procedure: "(irregex-core.scm:814) k10616" o|contracted procedure: "(irregex-core.scm:860) k10994" o|contracted procedure: "(irregex-core.scm:976) k11723" o|contracted procedure: "(irregex-core.scm:979) k11746" o|inlining procedure: "(irregex-core.scm:1233) k13394" o|contracted procedure: "(irregex-core.scm:1344) k13945" o|contracted procedure: "(irregex-core.scm:1345) k13933" o|contracted procedure: "(irregex-core.scm:1348) k13998" o|contracted procedure: "(irregex-core.scm:1349) k13986" o|contracted procedure: "(irregex-core.scm:1350) k13974" o|contracted procedure: "(irregex-core.scm:1353) k14067" o|contracted procedure: "(irregex-core.scm:1354) k14055" o|contracted procedure: "(irregex-core.scm:1355) k14043" o|contracted procedure: "(irregex-core.scm:1356) k14031" o|contracted procedure: "(irregex-core.scm:1425) k14502" o|contracted procedure: "(irregex-core.scm:1437) k14630" o|contracted procedure: "(irregex-core.scm:1444) k14664" o|contracted procedure: "(irregex-core.scm:1453) k14769" o|contracted procedure: "(irregex-core.scm:1460) k14803" o|contracted procedure: "(irregex-core.scm:1471) k15159" o|contracted procedure: "(irregex-core.scm:1488) k15021" o|contracted procedure: "(irregex-core.scm:3121) k23267" o|contracted procedure: "(irregex-core.scm:3130) k23306" o|contracted procedure: "(irregex-core.scm:3135) k23325" o|contracted procedure: "(irregex-core.scm:3140) k23344" o|contracted procedure: "(irregex-core.scm:3142) k23363" o|contracted procedure: "(irregex-core.scm:3148) k23414" o|contracted procedure: "(irregex-core.scm:3154) k23460" o|contracted procedure: "(irregex-core.scm:3159) k23486" o|contracted procedure: "(irregex-core.scm:3168) k23525" o|contracted procedure: "(irregex-core.scm:3165) k23531" o|contracted procedure: "(irregex-core.scm:3180) k23567" o|contracted procedure: "(irregex-core.scm:3175) k23585" o|contracted procedure: "(irregex-core.scm:3199) k23610" o|contracted procedure: "(irregex-core.scm:3194) k23628" o|contracted procedure: "(irregex-core.scm:3223) k23717" o|contracted procedure: "(irregex-core.scm:3257) k23869" o|contracted procedure: "(irregex-core.scm:3290) k24108" o|contracted procedure: "(irregex-core.scm:3300) k24143" o|contracted procedure: "(irregex-core.scm:3310) k24221" o|contracted procedure: "(irregex-core.scm:3327) k24264" o|contracted procedure: "(irregex-core.scm:3409) k24627" o|contracted procedure: "(irregex-core.scm:3412) k24754" o|contracted procedure: "(irregex-core.scm:3590) k25859" o|contracted procedure: "(irregex-core.scm:1757) k17236" o|contracted procedure: "(irregex-core.scm:1781) k17422" o|contracted procedure: "(irregex-core.scm:1792) k17461" o|contracted procedure: "(irregex-core.scm:1796) k17508" o|contracted procedure: "(irregex-core.scm:1800) k17582" o|contracted procedure: "(irregex-core.scm:1804) k17610" o|contracted procedure: "(irregex-core.scm:1528) k15480" o|contracted procedure: "(irregex-core.scm:1529) k15495" o|contracted procedure: "(irregex-core.scm:1544) k15669" o|contracted procedure: "(irregex-core.scm:1659) k16506" o|contracted procedure: "(irregex-core.scm:1669) k16620" o|contracted procedure: "(irregex-core.scm:1859) k18030" o|contracted procedure: "(irregex-core.scm:1860) k18048" o|contracted procedure: "(irregex-core.scm:1861) k18065" o|contracted procedure: "(irregex-core.scm:1881) k18211" o|contracted procedure: "(irregex-core.scm:1883) k18233" o|contracted procedure: "(irregex-core.scm:1887) k18266" o|contracted procedure: "(irregex-core.scm:2213) k19988" o|contracted procedure: "(irregex-core.scm:2208) k20011" o|contracted procedure: "(irregex-core.scm:2160) k20185" o|contracted procedure: "(irregex-core.scm:2386) k20338" o|contracted procedure: "(irregex-core.scm:2525) k20970" o|contracted procedure: "(irregex-core.scm:2598) k21123" o|contracted procedure: "(irregex-core.scm:2611) k21201" o|contracted procedure: "(irregex-core.scm:2727) k21721" o|contracted procedure: "(irregex-core.scm:2978) k22669" o|contracted procedure: k22048 o|converted assignments to bindings: (doloop41154116) o|contracted procedure: "(irregex-core.scm:3696) k26560" o|contracted procedure: "(irregex-core.scm:3698) k26575" o|simplifications: ((let . 3)) o|removed binding forms: 77 o|replaced variables: 25 o|removed binding forms: 23 o|direct leaf routine/allocation: shift1510 6 o|direct leaf routine/allocation: for-each-loop36343659 0 o|contracted procedure: "(irregex-core.scm:795) k10651" o|contracted procedure: "(irregex-core.scm:817) k10666" o|converted assignments to bindings: (for-each-loop36343659) o|simplifications: ((let . 1)) o|removed binding forms: 2 o|customizable procedures: (k29830 k29857 loop26191 loop6176 k29189 k29323 for-each-loop61286138 k29332 k29259 chicken.irregex#cset->string for-each-loop60736083 g60366043 for-each-loop60356047 for-each-loop60146024 for-each-loop59956005 k28937 for-each-loop59785988 for-each-loop59595969 lp5918 lp15885 map-loop58595877 lp25888 loop5830 k28466 scan5821 k28337 k28340 g55775578 lp5540 chicken.irregex#irregex-apply-match k27699 k27846 k27770 lp5477 chicken.irregex#irregex-copy-matches k27472 k27478 k27481 chicken.irregex#irregex-reset-matches! lp5433 k27358 lp5400 k27261 intersect5381 k27079 k27087 k27090 k27097 diff5352 chicken.irregex#char-ranges-union union-range5327 k26773 lp5308 k26221 map-loop52605277 lp3046 lp5151 map-loop52335250 map-loop52055222 map-loop51795196 lp5162 lp5145 k22841 lp24301 lp4298 k22730 g42704271 k22706 lp4062 k21818 k21824 lp24256 lp4250 k22087 k22148 chicken.irregex#mst-fold k22474 g42354236 chicken.irregex#cset-difference chicken.irregex#mst-copy k22548 lp4223 chicken.irregex#nfa-state->mst chicken.irregex#nfa-epsilon-closure lp4091 lp34332 lp24328 lp4326 chicken.irregex#tag-set-commands-for-closure lp24148 lp4137 lp4167 g41864195 map-loop41804202 doloop41724173 k22343 lp4103 k21656 for-each-loop40144033 chicken.irregex#make-mst chicken.irregex#mst-add! k21465 lp3772 doloop39573958 k20622 k20827 k20874 g39473948 chicken.irregex#string->cset add-char-state!3806 lp23838 lp3798 chicken.irregex#nfa-add-epsilon! extend-state!3805 new-state-number3803 add-state!3804 doloop38113812 k20501 doloop35003501 k19739 for-each-loop35403552 k20079 k20037 for-each-loop36243648 k19889 lp23566 k19777 chicken.irregex#finalize! lp13557 g34703477 for-each-loop34693490 k19598 k19295 lp3375 k19076 k19082 lp3291 lp13426 chicken.irregex#find chicken.irregex#cset-contains? lp23433 lp23257 lp13253 chicken.irregex#dfa-match/longest chicken.irregex#irregex-new-matches chicken.irregex#irregex-search/matches k18694 k18700 k18520 map-loop31613178 k18287 chicken.irregex#sre-sequence-names map-loop30203037 k16782 k16631 k16517 k16359 k16186 k16229 chicken.irregex#every k15836 map-loop24922509 k15628 map-loop24582475 map-loop24322449 chicken.irregex#any chicken.irregex#cset->utf8-pattern g23952404 map-loop23892407 g23682377 map-loop23622380 adjust2344 k16052 g26022603 chicken.irregex#sre->nfa g26132614 chicken.irregex#nfa->dfa k16904 k16933 k17257 k17637 k17677 g29832984 k17656 k17442 k17445 k17315 k17264 k17105 k17121 lp22853 lp22841 lp2801 grow2811 chicken.irregex#sre-names lp5058 lp5034 k25540 chicken.irregex#chunker-next-char k25454 k25445 k25380 k25347 chicken.irregex#chunker-prev-char k25249 k25240 k25182 k25185 k25152 k23202 k24437 lp4772 k24293 k23853 k23856 k23931 k23905 k23701 k23704 k23772 k23731 chicken.irregex#sre-count-submatches rec4366 chicken.irregex#sre-cset->procedure lp4357 chicken.irregex#cset->plist k15386 chicken.irregex#char->utf8-list map-loop23032324 chicken.irregex#unicode-range-up-from lp2021 map-loop21722193 g22082217 map-loop22022253 map-loop22652286 chicken.irregex#utf8-lowest-digit-of-length chicken.irregex#zero-to map-loop22252246 chicken.irregex#unicode-range-up-to lp2333 map-loop21362153 map-loop21012118 map-loop20392056 map-loop20652086 chicken.irregex#unicode-range-helper scan1047 chicken.irregex#symbol-list->flags scan1059 lp21761 k12557 k11907 lp1070 collect1078 k11950 k13261 k13780 k13663 k13529 k13550 chicken.irregex#sre->cset k13488 k13339 k13416 k13428 chicken.irregex#string-parse-hex-escape chicken.irregex#cset-case-insensitive chicken.irregex#cset-complement go1838 join1631 lp21623 chicken.irregex#with-read-from-string k11114 save1450 collect/single1448 k10851 lp1439 collect/terms1449 collect1447 chicken.irregex#last k10524 k10714 k10527 lp1502 k10502 lp1965 chicken.irregex#utf8-string-ref cased-string1446 map-loop14591476 k10229 lp1404 k10112 scan1374 scan1337 collect1341 k9826 k9832 k9759 skip1319 lp1305 read1292 lp1196 lp1187 lp1174 lp1148 lp1141 chicken.irregex#fold k8690 scan1035 lp979 k8264 k8270 k8300 loop951 chicken.irregex#string-cat-reverse lp862 k7910 chicken.irregex#irregex-match-numeric-index chicken.irregex#vector-copy) o|calls to known targets: 1208 o|identified direct recursive calls: f_7956 2 o|identified direct recursive calls: f_8694 1 o|identified direct recursive calls: f_9001 1 o|identified direct recursive calls: f_9038 1 o|identified direct recursive calls: f_9135 1 o|identified direct recursive calls: f_9885 1 o|identified direct recursive calls: f_9610 4 o|identified direct recursive calls: f_14088 1 o|identified direct recursive calls: f_10537 2 o|identified direct recursive calls: f_11573 1 o|identified direct recursive calls: f_8832 1 o|identified direct recursive calls: f_12639 2 o|identified direct recursive calls: f_10346 3 o|identified direct recursive calls: f_8737 1 o|identified direct recursive calls: f_14544 1 o|identified direct recursive calls: f_14580 1 o|identified direct recursive calls: f_14701 1 o|identified direct recursive calls: f_14840 1 o|identified direct recursive calls: f_14946 1 o|identified direct recursive calls: f_15049 1 o|identified direct recursive calls: f_15187 1 o|identified direct recursive calls: f_15278 1 o|identified direct recursive calls: f_14372 1 o|identified direct recursive calls: f_16863 1 o|identified direct recursive calls: f_15853 1 o|identified direct recursive calls: f_15455 2 o|identified direct recursive calls: f_16439 1 o|identified direct recursive calls: f_18006 3 o|identified direct recursive calls: f_18187 3 o|identified direct recursive calls: f_19980 1 o|identified direct recursive calls: f_20003 1 o|identified direct recursive calls: f_20177 1 o|identified direct recursive calls: f_20524 1 o|identified direct recursive calls: f_21393 1 o|identified direct recursive calls: f_21432 1 o|identified direct recursive calls: f_21713 1 o|identified direct recursive calls: f_22012 1 o|identified direct recursive calls: f_22418 1 o|identified direct recursive calls: f_23006 2 o|identified direct recursive calls: f_21950 1 o|identified direct recursive calls: f_21879 1 o|identified direct recursive calls: f_22061 1 o|identified direct recursive calls: f_22675 1 o|identified direct recursive calls: f_26116 1 o|identified direct recursive calls: f_18139 1 o|identified direct recursive calls: f_26225 2 o|identified direct recursive calls: f_26715 2 o|identified direct recursive calls: f_26817 2 o|identified direct recursive calls: f_27012 2 o|identified direct recursive calls: f_27208 2 o|identified direct recursive calls: f_28072 1 o|identified direct recursive calls: f_28470 1 o|identified direct recursive calls: f_28627 1 o|identified direct recursive calls: f_28711 2 o|identified direct recursive calls: f_28699 1 o|identified direct recursive calls: f_29675 4 o|fast box initializations: 138 o|fast global references: 349 o|fast global assignments: 76 o|dropping unused closure argument: f_10196 o|dropping unused closure argument: f_13159 o|dropping unused closure argument: f_13893 o|dropping unused closure argument: f_14126 o|dropping unused closure argument: f_14202 o|dropping unused closure argument: f_14478 o|dropping unused closure argument: f_14616 o|dropping unused closure argument: f_14755 o|dropping unused closure argument: f_15333 o|dropping unused closure argument: f_16439 o|dropping unused closure argument: f_16751 o|dropping unused closure argument: f_17960 o|dropping unused closure argument: f_17983 o|dropping unused closure argument: f_18187 o|dropping unused closure argument: f_18473 o|dropping unused closure argument: f_18822 o|dropping unused closure argument: f_19585 o|dropping unused closure argument: f_19704 o|dropping unused closure argument: f_20302 o|dropping unused closure argument: f_20336 o|dropping unused closure argument: f_20477 o|dropping unused closure argument: f_21596 o|dropping unused closure argument: f_21625 o|dropping unused closure argument: f_21642 o|dropping unused closure argument: f_21651 o|dropping unused closure argument: f_22003 o|dropping unused closure argument: f_22085 o|dropping unused closure argument: f_22770 o|dropping unused closure argument: f_22785 o|dropping unused closure argument: f_25891 o|dropping unused closure argument: f_26104 o|dropping unused closure argument: f_26195 o|dropping unused closure argument: f_26215 o|dropping unused closure argument: f_26682 o|dropping unused closure argument: f_26767 o|dropping unused closure argument: f_26998 o|dropping unused closure argument: f_27320 o|dropping unused closure argument: f_27330 o|dropping unused closure argument: f_28066 o|dropping unused closure argument: f_28824 o|dropping unused closure argument: f_7430 o|dropping unused closure argument: f_7512 o|dropping unused closure argument: f_7535 o|dropping unused closure argument: f_7544 o|dropping unused closure argument: f_7844 o|dropping unused closure argument: f_8530 o|dropping unused closure argument: f_8560 o|dropping unused closure argument: f_8972 o|dropping unused closure argument: f_9022 o|dropping unused closure argument: f_9059 o|dropping unused closure argument: f_9120 o|dropping unused closure argument: f_9135 o|dropping unused closure argument: f_9158 o|dropping unused closure argument: f_9201 o|dropping unused closure argument: f_9246 o|dropping unused closure argument: f_9603 */ /* end of file */ chicken-5.1.0/debugger-client.scm0000644000175000017500000000331313502227553016477 0ustar sjamaansjamaan;;;; debugger-client.scm - client-side support for debugging ; ; Copyright (c) 2014-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit debugger-client) (disable-interrupts) (foreign-declare "#include \"dbg-stub.c\"")) (##core#inline "connect_to_debugger") chicken-5.1.0/chicken.compiler.c-backend.import.scm0000644000175000017500000000061013502227760021770 0ustar sjamaansjamaan;;;; chicken.compiler.c-backend.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.compiler.c-backend 'c-backend (scheme#list) '((generate-code . chicken.compiler.c-backend#generate-code) (foreign-type-declaration . chicken.compiler.c-backend#foreign-type-declaration)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/continuation.scm0000644000175000017500000000523113502227553016152 0ustar sjamaansjamaan;;;; continuation.scm - A better API for continuations ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit continuation) (disable-interrupts)) (foreign-declare "#define C_direct_continuation(dummy) t1") (module chicken.continuation (continuation? continuation-capture continuation-graft continuation-return) (import scheme chicken.base chicken.fixnum) (include "common-declarations.scm") (define (continuation-capture proc) (let ((winds ##sys#dynamic-winds) (k (##core#inline "C_direct_continuation" #f))) (proc (##sys#make-structure 'continuation k winds)))) (define (continuation? x) (##sys#structure? x 'continuation)) (define (continuation-graft k thunk) (##sys#check-structure k 'continuation 'continuation-graft) (let ([winds (##sys#slot k 2)]) (unless (eq? ##sys#dynamic-winds winds) (##sys#dynamic-unwind winds (fx- (length ##sys#dynamic-winds) (length winds)))) ((##core#primitive "C_continuation_graft") k thunk))) (define continuation-return (lambda (k . vals) (##sys#check-structure k 'continuation 'continuation-return) ((##core#primitive "C_continuation_graft") k (lambda () (apply values vals)))))) chicken-5.1.0/chicken.process-context.posix.import.scm0000644000175000017500000000237413502227762022664 0ustar sjamaansjamaan;;;; chicken.process-context.posix.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.process-context.posix 'posix (scheme#list) '((change-directory* . chicken.process-context.posix#change-directory*) (set-root-directory! . chicken.process-context.posix#set-root-directory!) (current-effective-group-id . chicken.process-context.posix#current-effective-group-id) (current-effective-user-id . chicken.process-context.posix#current-effective-user-id) (current-process-id . chicken.process-context.posix#current-process-id) (current-group-id . chicken.process-context.posix#current-group-id) (current-user-id . chicken.process-context.posix#current-user-id) (parent-process-id . chicken.process-context.posix#parent-process-id) (current-user-name . chicken.process-context.posix#current-user-name) (current-effective-user-name . chicken.process-context.posix#current-effective-user-name) (create-session . chicken.process-context.posix#create-session) (process-group-id . chicken.process-context.posix#process-group-id) (user-information . chicken.process-context.posix#user-information)) (scheme#list) (scheme#list)) ;; END OF FILE chicken-5.1.0/tests/0000755000175000017500000000000013502230006014060 5ustar sjamaansjamaanchicken-5.1.0/tests/gobble.scm0000644000175000017500000000102013370655400016023 0ustar sjamaansjamaan;;;; gobble.scm ; ; usage: csi -s gobble.scm [COUNT] (define (run n) (print "allocating " n " bytes ...") (let loop ((k 0)) (when (< k n) (let ((x (make-string 1000))) (when (and (zero? (modulo k 100000)) (##sys#debug-mode?)) (print* ".")) (loop (+ k 1000)))))) (run (string->number (optional (command-line-arguments) "1000000000"))) (newline) ; time csi -s gobble.scm 1000000000 ; 5 secs ; ; csc goobble.scm -o a.out -O4 -b -d0 ; time a.out 1000000000 ; 3 secs ; ; (x86, Core2 Duo, 2.4Ghz, 2GB RAM) chicken-5.1.0/tests/file-access-tests.scm0000644000175000017500000000436613370655400020127 0ustar sjamaansjamaan;; ;; Tests for file and directory access. ;; ;; These may seem silly, but some of them actually fail on MinGW without help. ;; (import (chicken file) (chicken process-context)) (define / (car (command-line-arguments))) (define // (string-append / /)) (define /// (string-append / / /)) (assert (not (file-exists? ""))) (assert (not (directory-exists? ""))) (assert (file-exists? /)) (assert (file-exists? //)) (assert (file-exists? ///)) (assert (directory-exists? /)) (assert (directory-exists? //)) (assert (directory-exists? ///)) (assert (file-exists? ".")) (assert (file-exists? "..")) (assert (directory-exists? ".")) (assert (directory-exists? "..")) (assert (file-exists? (string-append "." /))) (assert (file-exists? (string-append "." //))) (assert (file-exists? (string-append "." ///))) (assert (file-exists? (string-append ".." /))) (assert (file-exists? (string-append ".." //))) (assert (file-exists? (string-append ".." ///))) (assert (file-exists? (string-append ".." / "tests"))) (assert (file-exists? (string-append ".." / "tests" /))) (assert (file-exists? (string-append ".." / "tests" //))) (assert (file-exists? (string-append ".." / "tests" ///))) (assert (directory-exists? (string-append "." /))) (assert (directory-exists? (string-append "." //))) (assert (directory-exists? (string-append "." ///))) (assert (directory-exists? (string-append ".." /))) (assert (directory-exists? (string-append ".." //))) (assert (directory-exists? (string-append ".." ///))) (assert (directory-exists? (string-append ".." / "tests"))) (assert (directory-exists? (string-append ".." / "tests" /))) (assert (directory-exists? (string-append ".." / "tests" //))) (assert (directory-exists? (string-append ".." / "tests" ///))) (assert (file-exists? (program-name))) (assert (not (directory-exists? (program-name)))) (assert (not (file-exists? (string-append (program-name) /)))) (assert (not (file-exists? (string-append (program-name) //)))) (assert (not (file-exists? (string-append (program-name) ///)))) (assert (not (directory-exists? (string-append (program-name) /)))) (assert (not (directory-exists? (string-append (program-name) //)))) (assert (not (directory-exists? (string-append (program-name) ///)))) (print "All tests passed for slash: " /) chicken-5.1.0/tests/runbench.sh0000755000175000017500000000345413370655400016245 0ustar sjamaansjamaan#!/bin/sh # runbench.sh - run benchmarks # # - Note: this needs a proper shell, so it will not work with plain mingw # (just the compiler and the Windows shell, without MSYS) set -e TEST_DIR=`pwd` export DYLD_LIBRARY_PATH=${TEST_DIR}/.. export LD_LIBRARY_PATH=${TEST_DIR}/.. echo CHICKEN=../chicken COMPILE_OPTIONS="-O5 -d0 -disable-interrupts -b" if test -n "$MSYSTEM"; then CHICKEN="..\\chicken.exe" # make compiled tests use proper library on Windows cp ../lib*chicken*.dll . fi case `uname -s` in *BSD*|*bsd*) timeopts="-c";; Darwin) timeopts="";; *) timeopts='-f "%E elapsed, %U user, %S system"' esac run() { /usr/bin/time "$timeopts" ./a.out "$1" "$2" "$3" } echo "****************************************" compiler_options="-C -Wa,-W" compile="../csc -w -compiler $CHICKEN -I.. -L.. -include-path .. -o a.out $COMPILE_OPTIONS" interpret="../csi -n -include-path .." echo "======================================== null ... " $compile null.scm -O5 run -:Hd echo "======================================== compilation ... " /usr/bin/time "$timeopts" $compile compiler.scm echo "======================================== compiler ... " run -:Hd echo "======================================== slatex ... " $compile slatex.scm mkdir -p slatexdir rm -f slatexdir/* run echo "======================================== grep ... " $compile sgrep.scm run compiler.scm echo "======================================== fft/boxed ... " $compile fft.scm run 2000 11 echo "======================================== fft/unboxed ... " $compile fft.scm -D unboxed run 2000 11 echo "======================================== allocation ... " $compile gobble.scm run 1000000000 echo "======================================== irregex ... " /usr/bin/time "$timeopts" $interpret -bnq test-irregex.scm >/dev/null chicken-5.1.0/tests/syntax-tests-2.scm0000644000175000017500000000023713213463160017423 0ustar sjamaansjamaan;;;; syntax-tests-2.scm - tests using extended syntax at runtime (eval '(define-record-type x (make x) x? (x get-x))) (assert (eq? 'yes (get-x (make 'yes)))) chicken-5.1.0/tests/QUEUE.scm0000644000175000017500000000014213213463160015455 0ustar sjamaansjamaan;;;; QUEUE.scm (define-interface QUEUE (empty-queue enqueue head empty? dequeue)) chicken-5.1.0/tests/re-tests.txt0000644000175000017500000001013213213463160016374 0ustar sjamaansjamaanabc abc y & abc abc xbc n - - abc axc n - - abc abx n - - abc xabcy y & abc abc ababc y & abc ab*c abc y & abc ab*bc abc y & abc ab*bc abbc y & abbc ab*bc abbbbc y & abbbbc ab+bc abbc y & abbc ab+bc abc n - - ab+bc abq n - - ab+bc abbbbc y & abbbbc ab?bc abbc y & abbc ab?bc abc y & abc ab?bc abbbbc n - - ab?c abc y & abc ^abc$ abc y & abc ^abc$ abcc n - - ^abc abcc y & abc ^abc$ aabc n - - abc$ aabc y & abc ^ abc y & $ abc y & a.c abc y & abc a.c axc y & axc a.*c axyzc y & axyzc a.*c axyzd n - - a[bc]d abc n - - a[bc]d abd y & abd a[b-d]e abd n - - a[b-d]e ace y & ace a[b-d] aac y & ac a[-b] a- y & a- a[b-] a- y & a- [k] ab n - - a[b-a] - c - - a[]b - c - - a[ - c - - a] a] y & a] a[]]b a]b y & a]b a[^bc]d aed y & aed a[^bc]d abd n - - a[^-b]c adc y & adc a[^-b]c a-c n - - a[^]b]c a]c n - - a[^]b]c adc y & adc ab|cd abc y & ab ab|cd abcd y & ab ()ef def y &-\1 ef- ()* - c - - *a - c - - ^* - c - - $* - c - - (*)b - c - - $b b n - - a\ - c - - a\(b a(b y &-\1 a(b- a\(*b ab y & ab a\(*b a((b y & a((b a\\b a\b y & a\b abc) - c - - (abc - c - - ((a)) abc y &-\1-\2 a-a-a (a)b(c) abc y &-\1-\2 abc-a-c a+b+c aabbabc y & abc a** - c - - (a*)* - c - - (a*)+ - c - - (a|)* - c - - (a*|b)* - c - - (a+|b)* ab y &-\1 ab-b (a+|b)+ ab y &-\1 ab-b (a+|b)? ab y &-\1 a-a (a+|b){0,0} ab y &-\1 - (a+|b){0,2} ab y &-\1 ab-b (a+|b){1,2} ab y &-\1 ab-b ^(a+|b){0,0}$ a n - - ^(a+|b){1,2}$ ab y &-\1 ab-b ^(a+|b){1,2}$ abc n - - ^(a+|b){0,1}$ ab n - - (a+|b){0,2}b ab y &-\1 ab-a (a+|b){0,2}b aab y &-\1 aab-aa (a+|b){0,2}b abb y &-\1 abb-b (a+|b){0,2}?b ab y &-\1 ab-a (a+|b){0,2}?b aab y &-\1 aab-aa (a+|b){0,2}?b abb y &-\1 ab-a ^(a+|b){0,2}?b$ abb y &-\1 abb-b ^(a+|b){0,2}?$ aab y &-\1 aab-b ^((a+)|(b)){0,2}?$ aaab y &-\1-\2-\3 aaab-b-aaa-b ^(a+|b){0,0}?$ a n - - (a+|b){0,0}? ab y &-\1 - (a+|b){1,2}?b b n - - (a+|b){0,2}?ab ab y &-\1 ab- (a+|b){2,3}?b ab n - - [^ab]* cde y & cde (^)* - c - - (ab|)* - c - - )( - c - - abc y & abc n - - a* y & abcd abcd y &-\&-\\& abcd-&-\abcd a(bc)d abcd y \1-\\1-\\\1 bc-\1-\bc ([abc])*d abbbcd y &-\1 abbbcd-c ([abc])*bcd abcd y &-\1 abcd-a a|b|c|d|e e y & e (a|b|c|d|e)f ef y &-\1 ef-e ((a*|b))* - c - - abcd*efg abcdefg y & abcdefg ab* xabyabbbz y & ab ab* xayabbbz y & a (ab|cd)e abcde y &-\1 cde-cd [abhgefdc]ij hij y & hij ^(ab|cd)e abcde n x\1y xy (abc|)ef abcdef y &-\1 ef- (a|b)c*d abcd y &-\1 bcd-b (ab|ab*)bc abc y &-\1 abc-a (?:(a)b|ac) ac y &-\1 ac- a(?=(b|c)) ab y &-\1 a-b a(?=(b|c)) a n - - a(?=(b|c)) ax n - - a(?=(b|c))bc abc y &-\1 abc-b a(?!(b|c)) ax y &-\1 a- a(?!(b|c)) a y &-\1 a- a(?!(b|c)) ab n - - a(?!(b|c))xc axc y &-\1 axc- (a|b)(?<=(a))c ac y &-\1-\2 ac-a-a (a|b)(?<=(a))c bc n - - (?<=(a))bc bc n - - .(?<=(a))bc abc y &-\1 abc-a (a|b)(? (pair 'a 'b)) Warning: Invalid argument In file `test-scrutinizer-message-format.scm:XXX', In procedure `r-proc-call-argument-type-mismatch', In procedure call: (scheme#length 'symbol) Argument #1 to procedure `length' has an invalid type: symbol The expected type is: list This is the expression: 'symbol Procedure `length' from module `scheme' has this type: (list -> fixnum) Warning: Too many argument values In file `test-scrutinizer-message-format.scm:XXX', In procedure `r-proc-call-argument-value-count', In procedure call: (scheme#list (chicken.time#cpu-time)) Argument #1 to procedure `list' returns 2 values but 1 is expected. It is a call to `cpu-time' from module `chicken.time' which has this type: (-> fixnum fixnum) This is the expression: (chicken.time#cpu-time) Warning: Not enough argument values In file `test-scrutinizer-message-format.scm:XXX', In procedure `r-proc-call-argument-value-count', In procedure call: (scheme#vector (scheme#values)) Argument #1 to procedure `vector' does not return any values. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values) Warning: Let binding to `gXXX' has zero values In file `test-scrutinizer-message-format.scm:XXX', In procedure `r-proc-call-argument-value-count', In let expression: (let ((gXXX (scheme#values))) (gXXX)) Variable `gXXX' is bound to an expression that returns 0 values. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values) Warning: Branch values mismatch In file `test-scrutinizer-message-format.scm:XXX', In procedure `r-cond-branch-value-count-mismatch', In conditional expression: (if (the * 1) 1 (scheme#values 1 2)) The branches have different numbers of values. The true branch returns 1 value: 1 The false branch returns 2 values: (scheme#values 1 2) Warning: Invalid procedure In procedure `r-invalid-called-procedure-type', In procedure call: (1 2) The procedure expression does not appear to be a callable. This is the expression: 1 The expected type is: (* -> *) The actual type is: fixnum Note: Predicate is always true In file `test-scrutinizer-message-format.scm:XXX', In procedure `r-pred-call-always-true', In procedure call: (scheme#list? '()) The predicate will always return true. Procedure `list?' from module `scheme' is a predicate for: list The given argument has this type: null Note: Predicate is always false In file `test-scrutinizer-message-format.scm:XXX', In procedure `r-pred-call-always-false', In procedure call: (scheme#symbol? 1) The predicate will always return false. Procedure `symbol?' from module `scheme' is a predicate for: symbol The given argument has this type: fixnum Note: Test is always true In procedure `r-cond-test-always-true', In conditional expression: (if 'symbol 1 (##core#undefined)) Test condition has always true value of type: symbol Note: Test is always false In procedure `r-cond-test-always-false', In conditional expression: (if #f 1 (##core#undefined)) Test condition is always false. Warning: Type mismatch In procedure `r-type-mismatch-in-the', In expression: 1 Expression's declared and actual types do not match. The declared type is: symbol The actual type is: fixnum Warning: Not enough values In file `test-scrutinizer-message-format.scm:XXX', In procedure `r-zero-values-for-the', In expression: (scheme#values) Expression returns 0 values but is declared to return: symbol Warning: Too many values In file `test-scrutinizer-message-format.scm:XXX', In procedure `r-too-many-values-for-the', In expression: (scheme#values 1 2) Expression returns too many values. The expression returns 2 values but is declared to return: symbol Warning: Type mismatch In file `test-scrutinizer-message-format.scm:XXX', In procedure `r-too-many-values-for-the', In expression: (scheme#values 1 2) Expression's declared and actual types do not match. The declared type is: symbol The actual type is: fixnum Warning: Invalid assignment In procedure `r-toplevel-var-assignment-type-mismatch', In assignment: (set! foo 1) Variable `foo' is assigned invalid value. The assigned value has this type: fixnum The declared type of `foo' is: boolean Warning: Deprecated identifier `deprecated-foo' In procedure `r-deprecated-identifier', In expression: deprecated-foo Use of deprecated identifier `deprecated-foo'. Warning: Deprecated identifier `deprecated-foo2' In procedure `r-deprecated-identifier', In expression: deprecated-foo2 Use of deprecated identifier `deprecated-foo2'. The suggested alternative is `foo'. Warning: Invalid assignment At the toplevel, In assignment: (set! foo 1) Variable `foo' is assigned invalid value. The assigned value has this type: fixnum The declared type of `foo' is: boolean Warning: Negative list index In file `test-scrutinizer-message-format.scm:XXX', In procedure `list-ref-negative-index', In procedure call: (scheme#list-ref '() -1) Procedure `list-ref' from module `scheme' is called with a negative index -1. Warning: List index out of range In file `test-scrutinizer-message-format.scm:XXX', In procedure `list-ref-out-of-range', In procedure call: (scheme#list-ref '() 1) Procedure `list-ref' from module `scheme' is called with index `1' for a list of length `0'. Warning: Invalid argument In file `test-scrutinizer-message-format.scm:XXX', In procedure `append-invalid-arg', In procedure call: (scheme#append 1 (scheme#list 1)) Argument #1 to procedure `append' has an invalid type: fixnum The expected type is: list This is the expression: 1 Procedure `append' from module `scheme' has this type: (#!rest * -> *) Warning: Negative vector index In file `test-scrutinizer-message-format.scm:XXX', In procedure `vector-ref-out-of-range', In procedure call: (scheme#vector-ref (scheme#vector) -1) Procedure `vector-ref' from module `scheme' is called with a negative index -1. Warning: Wrong number of arguments In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-proc-call-argument-count-mismatch', In procedure call: (scheme#cons '()) Procedure `cons' is called with 1 argument but 2 arguments are expected. Procedure `cons' from module `scheme' has this type: ('a 'b --> (pair 'a 'b)) Warning: Invalid argument In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-proc-call-argument-type-mismatch', In procedure call: (scheme#length 'symbol) Argument #1 to procedure `length' has an invalid type: symbol The expected type is: list This is the expression: 'symbol Procedure `length' from module `scheme' has this type: (list -> fixnum) Warning: Too many argument values In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-proc-call-argument-value-count', In procedure call: (scheme#list (chicken.time#cpu-time)) Argument #1 to procedure `list' returns 2 values but 1 is expected. It is a call to `cpu-time' from module `chicken.time' which has this type: (-> fixnum fixnum) This is the expression: (chicken.time#cpu-time) Warning: Not enough argument values In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-proc-call-argument-value-count', In procedure call: (scheme#vector (scheme#values)) Argument #1 to procedure `vector' does not return any values. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values) Warning: Branch values mismatch In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-cond-branch-value-count-mismatch', In conditional expression: (if (the * 1) 1 (chicken.time#cpu-time)) The branches have different numbers of values. The true branch returns 1 value: 1 The false branch returns 2 values: (chicken.time#cpu-time) Warning: Invalid procedure In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-invalid-called-procedure-type', In procedure `variable', In procedure call: (m#foo2 2) Variable `foo2' from module `m' is not a procedure. It has this type: boolean Warning: Invalid procedure In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-invalid-called-procedure-type', In procedure `non-variable', In procedure call: (1 2) The procedure expression does not appear to be a callable. This is the expression: 1 The expected type is: (* -> *) The actual type is: fixnum Note: Predicate is always true In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-pred-call-always-true', In procedure call: (scheme#list? '()) The predicate will always return true. Procedure `list?' from module `scheme' is a predicate for: list The given argument has this type: null Note: Predicate is always false In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-pred-call-always-false', In procedure call: (scheme#symbol? 1) The predicate will always return false. Procedure `symbol?' from module `scheme' is a predicate for: symbol The given argument has this type: fixnum Note: Test is always true In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-cond-test-always-true', In conditional expression: (if (scheme#length '()) 1 (##core#undefined)) Test condition has always true value of type: fixnum Note: Test is always false In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-cond-test-always-false', In conditional expression: (if #f 1 (##core#undefined)) Test condition is always false. Warning: Type mismatch In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-type-mismatch-in-the', In expression: 1 Expression's declared and actual types do not match. The declared type is: symbol The actual type is: fixnum Warning: Not enough values In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-zero-values-for-the', In expression: (scheme#values) Expression returns 0 values but is declared to return: symbol Warning: Too many values In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-too-many-values-for-the', In expression: (scheme#values 1 2) Expression returns too many values. The expression returns 2 values but is declared to return: symbol Warning: Type mismatch In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-too-many-values-for-the', In expression: (scheme#values 1 2) Expression's declared and actual types do not match. The declared type is: symbol The actual type is: fixnum Warning: Invalid assignment In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-toplevel-var-assignment-type-mismatch', In assignment: (set! m#foo2 1) Variable `foo2' is assigned invalid value. The assigned value has this type: fixnum The declared type of `foo2' from module `m' is: boolean Warning: Deprecated identifier `deprecated-foo' In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-deprecated-identifier', In expression: m#deprecated-foo Use of deprecated identifier `deprecated-foo' from module `m'. Warning: Deprecated identifier `deprecated-foo2' In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-deprecated-identifier', In expression: m#deprecated-foo2 Use of deprecated identifier `deprecated-foo2' from module `m'. The suggested alternative is `foo'. Warning: Let binding to `a' has zero values In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-let-value-count-invalid', In procedure `zero-values-for-let', In let expression: (let ((a (scheme#values))) a) Variable `a' is bound to an expression that returns 0 values. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values) Warning: Let binding to `a' has 2 values In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-let-value-count-invalid', In procedure `too-many-values-for-let', In let expression: (let ((a (scheme#values 1 2))) a) Variable `a' is bound to an expression that returns 2 values. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values 1 2) Warning: Zero values for conditional In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-conditional-value-count-invalid', In procedure `zero-values-for-conditional', In conditional: (if (scheme#values) 1 (##core#undefined)) The test expression returns 0 values. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values) Warning: Too many values for conditional In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-conditional-value-count-invalid', In procedure `too-many-values-for-conditional', In conditional: (if (scheme#values (the * 1) 2) 1 (##core#undefined)) The test expression returns 2 values. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values (the * 1) 2) Warning: Assignment to `foo' has zero values In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-assignment-value-count-invalid', In procedure `zero-values-for-assignment', In assignment: (set! m#foo (scheme#values)) Variable `foo' is assigned from expression that returns 0 values. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values) Warning: Assignment to `foo' has 2 values In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-assignment-value-count-invalid', In procedure `too-many-values-for-assignment', In assignment: (set! m#foo (scheme#values #t 2)) Variable `foo' is assigned from expression that returns 2 values. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values #t 2) Warning: Negative list index In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `list-ref-negative-index', In procedure call: (scheme#list-ref '() -1) Procedure `list-ref' from module `scheme' is called with a negative index -1. Warning: List index out of range In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `list-ref-out-of-range', In procedure call: (scheme#list-ref '() 1) Procedure `list-ref' from module `scheme' is called with index `1' for a list of length `0'. Warning: Invalid argument In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `append-invalid-arg', In procedure call: (scheme#append 1 (scheme#list 1)) Argument #1 to procedure `append' has an invalid type: fixnum The expected type is: list This is the expression: 1 Procedure `append' from module `scheme' has this type: (#!rest * -> *) Warning: Negative vector index In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `vector-ref-out-of-range', In procedure call: (scheme#vector-ref (scheme#vector) -1) Procedure `vector-ref' from module `scheme' is called with a negative index -1. Note: Predicate is always true In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-cond-test-always-true-with-pred', In procedure call: (scheme#symbol? 'symbol) The predicate will always return true. Procedure `symbol?' from module `scheme' is a predicate for: symbol The given argument has this type: symbol Note: Test is always true In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-cond-test-always-true-with-pred', In conditional expression: (if (scheme#symbol? 'symbol) 1 (##core#undefined)) Test condition has always true value of type: true Note: Predicate is always false In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-cond-test-always-false-with-pred', In procedure call: (scheme#symbol? 1) The predicate will always return false. Procedure `symbol?' from module `scheme' is a predicate for: symbol The given argument has this type: fixnum Note: Test is always false In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `r-cond-test-always-false-with-pred', In conditional expression: (if (scheme#symbol? 1) 1 (##core#undefined)) Test condition is always false. Error: No typecase match In file `test-scrutinizer-message-format.scm:XXX', In module `m', In procedure `toplevel-foo', In procedure `local-bar', In procedure `fail-compiler-typecase', In `compiler-typecase' expression: (compiler-typecase gXXX (symbol 1) (list 2) (else (##core#undefined))) Tested expression does not match any case. The expression has this type: fixnum The specified type cases are these: symbol list chicken-5.1.0/tests/arithmetic-test.scm0000644000175000017500000000630013370655400017705 0ustar sjamaansjamaan;;;; arithmetic-test.scm ; ; - switches: ; ; use-numbers ; check ; fx-ops (cond-expand (windows (begin (print "this test can not be run on Windows") (exit))) (else)) (import (chicken condition) (chicken platform) (chicken pretty-print) (chicken random) (chicken fixnum)) (define range 2) (define random-range 32000) (define result '()) (define points (list 0 1 -1 2 -2 most-positive-fixnum most-negative-fixnum (add1 most-positive-fixnum) (sub1 most-negative-fixnum) 1103515245 ; random 631629065 ; random ;;697012302412595925 came up in test-case by Jeronimo Pellegrini 9007199254740992 ; but these are sufficient, since they mark -9007199254740992 ; the precision-limit of IEEE doubles on 64-bit systems 12345 ; random (expt 2 32))) (cond-expand (fully-random) (else (set-pseudo-random-seed! "abcdefgh"))) (define (push c total opname args res) (let ((x (list (cons c total) (cons opname args) '-> res))) #+(not check) (pp x) (set! result (cons x result)))) (define (test-permutations opname op points) (let* ((np (length points)) (nr (add1 (* range 2))) (total (* np np nr nr)) (c 1)) (for-each (lambda (x) (for-each (lambda (y) (do ((i (- range) (add1 i))) ((> i range)) (do ((j (- range) (add1 j))) ((> j range)) (let* ((args (list (+ x i) (+ y j))) (res (handle-exceptions ex (get-condition-property ex 'exn 'message) (apply op args)))) (push c total opname args res) (set! c (add1 c)))))) points)) points))) (define (test-random-permutations opname op points) (for-each (lambda (x) (for-each (lambda (y) (do ((i 10 (sub1 i))) ((zero? i)) (let* ((args (list (+ x (pseudo-random-integer random-range)) (+ y (pseudo-random-integer random-range)))) (res (and (cond-expand (fx-ops (and (fixnum? (car args)) (fixnum? (cadr args)))) (else #t)) (apply op args)))) (push opname args res)))) points)) points)) (for-each (lambda (oo) (let ((args (append oo (list points)))) (apply test-permutations args))) (cond-expand (fx-ops `((fx+? ,fx+?) (fx-? ,fx-?) (fx*? ,fx*?) (fx/? ,fx/?))) (else `((+ ,+) (- ,-) (* ,*) (/ ,/))))) (define (same? x y) (cond ((and (number? x) (number? y)) (= x y)) ((pair? x) (and (pair? y) (same? (car x) (car y)) (same? (cdr x) (cdr y)))) ((vector? x) (and (vector? y) (same? (vector->list x) (vector->list y)))) (else (equal? x y)))) (set! result (reverse result)) (define errors? #f) #+check (load (cond-expand (check-numbers "arithmetic-test.numbers.expected") (else (if (feature? #:64bit) "arithmetic-test.64.expected" "arithmetic-test.32.expected"))) (lambda (x) (apply (lambda (c/total1 exp1 _ res1) (apply (lambda (c/total2 exp2 _ res2) (assert (equal? c/total1 c/total2) "output differs in the number of cases" c/total1 c/total2) (unless (same? res1 res2) (set! errors? #t) (print "FAIL: " c/total1 " " exp1 " -> expected: " res1 ", but got: " res2))) (car result)) (set! result (cdr result))) x))) (exit (if errors? 1 0)) chicken-5.1.0/tests/fft.scm0000644000175000017500000023571113370655400015370 0ustar sjamaansjamaan;;;; fft.scm - fft benchmark, by Bradley Lucier (cond-expand ((not chicken) ; disable in CHICKEN to test specialization in safe mode (declare (standard-bindings) (extended-bindings) (block) (not safe))) (else (import (chicken bitwise) (chicken fixnum) (chicken flonum) (chicken process-context)))) ;;; All the following redefinitions are *ignored* by the Gambit compiler ;;; because of the declarations above. (define-syntax defalias (syntax-rules () ((_ one two) (define-syntax one (syntax-rules () ((_ . args) (two . args))))))) (cond-expand (generic (begin (defalias fixnum->flonum exact->inexact) (defalias fxodd? odd?) (defalias fxeven? even?) (defalias fxarithmetic-shift-right fxshr) (defalias fxarithmetic-shift-left fxshl) (defalias fl* *) (defalias fl/ /) (defalias fl+ +) (defalias fl- -))) (chicken (begin (defalias fixnum->flonum exact->inexact) (defalias fxodd? odd?) (defalias fxeven? even?) (defalias fxarithmetic-shift-right fxshr) (defalias fxarithmetic-shift-left fxshl) (defalias fl* fp*) (defalias fl/ fp/) (defalias fl+ fp+) (defalias fl- fp-))) (else)) (cond-expand ((and chicken (not unboxed)) (begin (defalias make-f64vector make-vector) (defalias f64vector vector) (defalias f64vector-set! vector-set!) (defalias f64vector-ref vector-ref) (defalias list->f64vector list->vector) (defalias f64vector-length vector-length)) ) (chicken (import srfi-4)) (else) ) ;;; end of *ignored* definitions (define lut-table-size 512) (define lut-table-size^2 262144) (define lut-table-size^3 134217728) (define log-lut-table-size 9) (define low-lut (list->f64vector '(1. 0. .7071067811865476 .7071067811865476 .9238795325112867 .3826834323650898 .3826834323650898 .9238795325112867 .9807852804032304 .19509032201612828 .5555702330196022 .8314696123025452 .8314696123025452 .5555702330196022 .19509032201612828 .9807852804032304 .9951847266721969 .0980171403295606 .6343932841636455 .773010453362737 .881921264348355 .47139673682599764 .2902846772544624 .9569403357322088 .9569403357322088 .2902846772544624 .47139673682599764 .881921264348355 .773010453362737 .6343932841636455 .0980171403295606 .9951847266721969 .9987954562051724 .049067674327418015 .6715589548470184 .7409511253549591 .9039892931234433 .4275550934302821 .33688985339222005 .9415440651830208 .970031253194544 .2429801799032639 .5141027441932218 .8577286100002721 .8032075314806449 .5956993044924334 .14673047445536175 .989176509964781 .989176509964781 .14673047445536175 .5956993044924334 .8032075314806449 .8577286100002721 .5141027441932218 .2429801799032639 .970031253194544 .9415440651830208 .33688985339222005 .4275550934302821 .9039892931234433 .7409511253549591 .6715589548470184 .049067674327418015 .9987954562051724 .9996988186962042 .024541228522912288 .6895405447370669 .7242470829514669 .9142097557035307 .40524131400498986 .35989503653498817 .9329927988347388 .9757021300385286 .2191012401568698 .5349976198870973 .8448535652497071 .8175848131515837 .5758081914178453 .17096188876030122 .9852776423889412 .99247953459871 .1224106751992162 .6152315905806268 .7883464276266062 .8700869911087115 .49289819222978404 .26671275747489837 .9637760657954398 .9495281805930367 .31368174039889146 .4496113296546066 .8932243011955153 .7572088465064846 .6531728429537768 .07356456359966743 .9972904566786902 .9972904566786902 .07356456359966743 .6531728429537768 .7572088465064846 .8932243011955153 .4496113296546066 .31368174039889146 .9495281805930367 .9637760657954398 .26671275747489837 .49289819222978404 .8700869911087115 .7883464276266062 .6152315905806268 .1224106751992162 .99247953459871 .9852776423889412 .17096188876030122 .5758081914178453 .8175848131515837 .8448535652497071 .5349976198870973 .2191012401568698 .9757021300385286 .9329927988347388 .35989503653498817 .40524131400498986 .9142097557035307 .7242470829514669 .6895405447370669 .024541228522912288 .9996988186962042 .9999247018391445 .012271538285719925 .6983762494089728 .7157308252838187 .9191138516900578 .3939920400610481 .37131719395183754 .9285060804732156 .9783173707196277 .20711137619221856 .5453249884220465 .8382247055548381 .8245893027850253 .5657318107836132 .18303988795514095 .9831054874312163 .9939069700023561 .11022220729388306 .6248594881423863 .7807372285720945 .8760700941954066 .4821837720791228 .2785196893850531 .9604305194155658 .9533060403541939 .3020059493192281 .46053871095824 .8876396204028539 .765167265622459 .6438315428897915 .0857973123444399 .996312612182778 .9981181129001492 .06132073630220858 .6624157775901718 .7491363945234594 .8986744656939538 .43861623853852766 .3253102921622629 .9456073253805213 .9669764710448521 .25486565960451457 .5035383837257176 .8639728561215867 .7958369046088836 .6055110414043255 .1345807085071262 .99090263542778 .9873014181578584 .15885814333386145 .5857978574564389 .8104571982525948 .8513551931052652 .524589682678469 .2310581082806711 .9729399522055602 .937339011912575 .34841868024943456 .4164295600976372 .9091679830905224 .7326542716724128 .680600997795453 .03680722294135883 .9993223845883495 .9993223845883495 .03680722294135883 .680600997795453 .7326542716724128 .9091679830905224 .4164295600976372 .34841868024943456 .937339011912575 .9729399522055602 .2310581082806711 .524589682678469 .8513551931052652 .8104571982525948 .5857978574564389 .15885814333386145 .9873014181578584 .99090263542778 .1345807085071262 .6055110414043255 .7958369046088836 .8639728561215867 .5035383837257176 .25486565960451457 .9669764710448521 .9456073253805213 .3253102921622629 .43861623853852766 .8986744656939538 .7491363945234594 .6624157775901718 .06132073630220858 .9981181129001492 .996312612182778 .0857973123444399 .6438315428897915 .765167265622459 .8876396204028539 .46053871095824 .3020059493192281 .9533060403541939 .9604305194155658 .2785196893850531 .4821837720791228 .8760700941954066 .7807372285720945 .6248594881423863 .11022220729388306 .9939069700023561 .9831054874312163 .18303988795514095 .5657318107836132 .8245893027850253 .8382247055548381 .5453249884220465 .20711137619221856 .9783173707196277 .9285060804732156 .37131719395183754 .3939920400610481 .9191138516900578 .7157308252838187 .6983762494089728 .012271538285719925 .9999247018391445 .9999811752826011 .006135884649154475 .7027547444572253 .7114321957452164 .9215140393420419 .3883450466988263 .37700741021641826 .9262102421383114 .9795697656854405 .2011046348420919 .5504579729366048 .83486287498638 .8280450452577558 .560661576197336 .18906866414980622 .9819638691095552 .9945645707342554 .10412163387205457 .629638238914927 .7768884656732324 .8790122264286335 .47679923006332214 .2844075372112718 .9587034748958716 .9551411683057707 .29615088824362384 .4659764957679662 .8847970984309378 .7691033376455796 .6391244448637757 .09190895649713272 .9957674144676598 .9984755805732948 .05519524434968994 .6669999223036375 .745057785441466 .901348847046022 .43309381885315196 .33110630575987643 .9435934581619604 .9685220942744173 .24892760574572018 .508830142543107 .8608669386377673 .799537269107905 .600616479383869 .14065823933284924 .9900582102622971 .9882575677307495 .15279718525844344 .5907597018588743 .8068475535437992 .8545579883654005 .5193559901655896 .2370236059943672 .9715038909862518 .9394592236021899 .3426607173119944 .4220002707997997 .9065957045149153 .7368165688773699 .6760927035753159 .04293825693494082 .9990777277526454 .9995294175010931 .030674803176636626 .6850836677727004 .7284643904482252 .9117060320054299 .41084317105790397 .3541635254204904 .9351835099389476 .9743393827855759 .22508391135979283 .5298036246862947 .8481203448032972 .8140363297059484 .5808139580957645 .16491312048996992 .9863080972445987 .9917097536690995 .12849811079379317 .6103828062763095 .7921065773002124 .8670462455156926 .49822766697278187 .2607941179152755 .9653944416976894 .9475855910177411 .3195020308160157 .44412214457042926 .8959662497561851 .7531867990436125 .6578066932970786 .06744391956366406 .9977230666441916 .9968202992911657 .07968243797143013 .6485144010221124 .7612023854842618 .8904487232447579 .45508358712634384 .30784964004153487 .9514350209690083 .9621214042690416 .272621355449949 .48755016014843594 .8730949784182901 .7845565971555752 .6200572117632892 .11631863091190477 .9932119492347945 .984210092386929 .17700422041214875 .5707807458869673 .8211025149911046 .8415549774368984 .5401714727298929 .21311031991609136 .9770281426577544 .9307669610789837 .36561299780477385 .39962419984564684 .9166790599210427 .7200025079613817 .693971460889654 .01840672990580482 .9998305817958234 .9998305817958234 .01840672990580482 .693971460889654 .7200025079613817 .9166790599210427 .39962419984564684 .36561299780477385 .9307669610789837 .9770281426577544 .21311031991609136 .5401714727298929 .8415549774368984 .8211025149911046 .5707807458869673 .17700422041214875 .984210092386929 .9932119492347945 .11631863091190477 .6200572117632892 .7845565971555752 .8730949784182901 .48755016014843594 .272621355449949 .9621214042690416 .9514350209690083 .30784964004153487 .45508358712634384 .8904487232447579 .7612023854842618 .6485144010221124 .07968243797143013 .9968202992911657 .9977230666441916 .06744391956366406 .6578066932970786 .7531867990436125 .8959662497561851 .44412214457042926 .3195020308160157 .9475855910177411 .9653944416976894 .2607941179152755 .49822766697278187 .8670462455156926 .7921065773002124 .6103828062763095 .12849811079379317 .9917097536690995 .9863080972445987 .16491312048996992 .5808139580957645 .8140363297059484 .8481203448032972 .5298036246862947 .22508391135979283 .9743393827855759 .9351835099389476 .3541635254204904 .41084317105790397 .9117060320054299 .7284643904482252 .6850836677727004 .030674803176636626 .9995294175010931 .9990777277526454 .04293825693494082 .6760927035753159 .7368165688773699 .9065957045149153 .4220002707997997 .3426607173119944 .9394592236021899 .9715038909862518 .2370236059943672 .5193559901655896 .8545579883654005 .8068475535437992 .5907597018588743 .15279718525844344 .9882575677307495 .9900582102622971 .14065823933284924 .600616479383869 .799537269107905 .8608669386377673 .508830142543107 .24892760574572018 .9685220942744173 .9435934581619604 .33110630575987643 .43309381885315196 .901348847046022 .745057785441466 .6669999223036375 .05519524434968994 .9984755805732948 .9957674144676598 .09190895649713272 .6391244448637757 .7691033376455796 .8847970984309378 .4659764957679662 .29615088824362384 .9551411683057707 .9587034748958716 .2844075372112718 .47679923006332214 .8790122264286335 .7768884656732324 .629638238914927 .10412163387205457 .9945645707342554 .9819638691095552 .18906866414980622 .560661576197336 .8280450452577558 .83486287498638 .5504579729366048 .2011046348420919 .9795697656854405 .9262102421383114 .37700741021641826 .3883450466988263 .9215140393420419 .7114321957452164 .7027547444572253 .006135884649154475 .9999811752826011 .9999952938095762 .003067956762965976 .7049340803759049 .7092728264388657 .9227011283338785 .38551605384391885 .37984720892405116 .9250492407826776 .9801821359681174 .1980984107179536 .5530167055800276 .8331701647019132 .829761233794523 .5581185312205561 .19208039704989244 .9813791933137546 .9948793307948056 .10106986275482782 .6320187359398091 .7749531065948739 .8804708890521608 .47410021465055 .2873474595447295 .9578264130275329 .9560452513499964 .29321916269425863 .46868882203582796 .8833633386657316 .7710605242618138 .6367618612362842 .094963495329639 .9954807554919269 .9986402181802653 .052131704680283324 .6692825883466361 .7430079521351217 .9026733182372588 .4303264813400826 .3339996514420094 .9425731976014469 .9692812353565485 .24595505033579462 .5114688504379704 .8593018183570084 .8013761717231402 .5981607069963423 .14369503315029444 .9896220174632009 .9887216919603238 .1497645346773215 .5932322950397998 .8050313311429635 .8561473283751945 .5167317990176499 .2400030224487415 .9707721407289504 .9405060705932683 .33977688440682685 .4247796812091088 .9052967593181188 .7388873244606151 .673829000378756 .04600318213091463 .9989412931868569 .9996188224951786 .027608145778965743 .6873153408917592 .726359155084346 .9129621904283982 .4080441628649787 .35703096123343003 .9340925504042589 .9750253450669941 .22209362097320354 .532403127877198 .8464909387740521 .8158144108067338 .5783137964116556 .16793829497473117 .9857975091675675 .9920993131421918 .12545498341154623 .6128100824294097 .79023022143731 .8685707059713409 .49556526182577254 .2637546789748314 .9645897932898128 .9485613499157303 .31659337555616585 .4468688401623742 .8945994856313827 .7552013768965365 .6554928529996153 .07050457338961387 .9975114561403035 .997060070339483 .07662386139203149 .6508466849963809 .7592091889783881 .8918407093923427 .4523495872337709 .3107671527496115 .9504860739494817 .9629532668736839 .2696683255729151 .49022648328829116 .8715950866559511 .7864552135990858 .617647307937804 .11936521481099137 .9928504144598651 .9847485018019042 .17398387338746382 .5732971666980422 .819347520076797 .8432082396418454 .5375870762956455 .21610679707621952 .9763697313300211 .9318842655816681 .3627557243673972 .40243465085941843 .9154487160882678 .7221281939292153 .6917592583641577 .021474080275469508 .9997694053512153 .9998823474542126 .015339206284988102 .696177131491463 .7178700450557317 .9179007756213905 .3968099874167103 .3684668299533723 .9296408958431812 .9776773578245099 .2101118368804696 .5427507848645159 .8398937941959995 .8228497813758263 .5682589526701316 .18002290140569951 .9836624192117303 .9935641355205953 .11327095217756435 .62246127937415 .7826505961665757 .8745866522781761 .4848692480007911 .27557181931095814 .9612804858113206 .9523750127197659 .30492922973540243 .45781330359887723 .8890483558546646 .7631884172633813 .6461760129833164 .08274026454937569 .9965711457905548 .997925286198596 .06438263092985747 .6601143420674205 .7511651319096864 .8973245807054183 .44137126873171667 .32240767880106985 .9466009130832835 .9661900034454125 .257831102162159 .5008853826112408 .8655136240905691 .7939754775543372 .6079497849677736 .13154002870288312 .9913108598461154 .9868094018141855 .16188639378011183 .5833086529376983 .8122505865852039 .8497417680008524 .5271991347819014 .22807208317088573 .973644249650812 .9362656671702783 .35129275608556715 .41363831223843456 .9104412922580672 .7305627692278276 .6828455463852481 .03374117185137759 .9994306045554617 .9992047586183639 .03987292758773981 .6783500431298615 .7347388780959635 .9078861164876663 .41921688836322396 .34554132496398904 .9384035340631081 .9722264970789363 .23404195858354343 .5219752929371544 .8529606049303636 .808656181588175 .5882815482226453 .15582839765426523 .9877841416445722 .9904850842564571 .13762012158648604 .6030665985403482 .7976908409433912 .8624239561110405 .5061866453451553 .25189781815421697 .9677538370934755 .9446048372614803 .32820984357909255 .4358570799222555 .9000158920161603 .7471006059801801 .6647109782033449 .05825826450043576 .9983015449338929 .996044700901252 .0888535525825246 .6414810128085832 .7671389119358204 .8862225301488806 .4632597835518602 .2990798263080405 .9542280951091057 .9595715130819845 .281464937925758 .479493757660153 .8775452902072612 .778816512381476 .6272518154951441 .10717242495680884 .9942404494531879 .9825393022874412 .18605515166344666 .5631993440138341 .8263210628456635 .836547727223512 .5478940591731002 .20410896609281687 .9789481753190622 .9273625256504011 .374164062971458 .39117038430225387 .9203182767091106 .7135848687807936 .7005687939432483 .00920375478205982 .9999576445519639 .9999576445519639 .00920375478205982 .7005687939432483 .7135848687807936 .9203182767091106 .39117038430225387 .374164062971458 .9273625256504011 .9789481753190622 .20410896609281687 .5478940591731002 .836547727223512 .8263210628456635 .5631993440138341 .18605515166344666 .9825393022874412 .9942404494531879 .10717242495680884 .6272518154951441 .778816512381476 .8775452902072612 .479493757660153 .281464937925758 .9595715130819845 .9542280951091057 .2990798263080405 .4632597835518602 .8862225301488806 .7671389119358204 .6414810128085832 .0888535525825246 .996044700901252 .9983015449338929 .05825826450043576 .6647109782033449 .7471006059801801 .9000158920161603 .4358570799222555 .32820984357909255 .9446048372614803 .9677538370934755 .25189781815421697 .5061866453451553 .8624239561110405 .7976908409433912 .6030665985403482 .13762012158648604 .9904850842564571 .9877841416445722 .15582839765426523 .5882815482226453 .808656181588175 .8529606049303636 .5219752929371544 .23404195858354343 .9722264970789363 .9384035340631081 .34554132496398904 .41921688836322396 .9078861164876663 .7347388780959635 .6783500431298615 .03987292758773981 .9992047586183639 .9994306045554617 .03374117185137759 .6828455463852481 .7305627692278276 .9104412922580672 .41363831223843456 .35129275608556715 .9362656671702783 .973644249650812 .22807208317088573 .5271991347819014 .8497417680008524 .8122505865852039 .5833086529376983 .16188639378011183 .9868094018141855 .9913108598461154 .13154002870288312 .6079497849677736 .7939754775543372 .8655136240905691 .5008853826112408 .257831102162159 .9661900034454125 .9466009130832835 .32240767880106985 .44137126873171667 .8973245807054183 .7511651319096864 .6601143420674205 .06438263092985747 .997925286198596 .9965711457905548 .08274026454937569 .6461760129833164 .7631884172633813 .8890483558546646 .45781330359887723 .30492922973540243 .9523750127197659 .9612804858113206 .27557181931095814 .4848692480007911 .8745866522781761 .7826505961665757 .62246127937415 .11327095217756435 .9935641355205953 .9836624192117303 .18002290140569951 .5682589526701316 .8228497813758263 .8398937941959995 .5427507848645159 .2101118368804696 .9776773578245099 .9296408958431812 .3684668299533723 .3968099874167103 .9179007756213905 .7178700450557317 .696177131491463 .015339206284988102 .9998823474542126 .9997694053512153 .021474080275469508 .6917592583641577 .7221281939292153 .9154487160882678 .40243465085941843 .3627557243673972 .9318842655816681 .9763697313300211 .21610679707621952 .5375870762956455 .8432082396418454 .819347520076797 .5732971666980422 .17398387338746382 .9847485018019042 .9928504144598651 .11936521481099137 .617647307937804 .7864552135990858 .8715950866559511 .49022648328829116 .2696683255729151 .9629532668736839 .9504860739494817 .3107671527496115 .4523495872337709 .8918407093923427 .7592091889783881 .6508466849963809 .07662386139203149 .997060070339483 .9975114561403035 .07050457338961387 .6554928529996153 .7552013768965365 .8945994856313827 .4468688401623742 .31659337555616585 .9485613499157303 .9645897932898128 .2637546789748314 .49556526182577254 .8685707059713409 .79023022143731 .6128100824294097 .12545498341154623 .9920993131421918 .9857975091675675 .16793829497473117 .5783137964116556 .8158144108067338 .8464909387740521 .532403127877198 .22209362097320354 .9750253450669941 .9340925504042589 .35703096123343003 .4080441628649787 .9129621904283982 .726359155084346 .6873153408917592 .027608145778965743 .9996188224951786 .9989412931868569 .04600318213091463 .673829000378756 .7388873244606151 .9052967593181188 .4247796812091088 .33977688440682685 .9405060705932683 .9707721407289504 .2400030224487415 .5167317990176499 .8561473283751945 .8050313311429635 .5932322950397998 .1497645346773215 .9887216919603238 .9896220174632009 .14369503315029444 .5981607069963423 .8013761717231402 .8593018183570084 .5114688504379704 .24595505033579462 .9692812353565485 .9425731976014469 .3339996514420094 .4303264813400826 .9026733182372588 .7430079521351217 .6692825883466361 .052131704680283324 .9986402181802653 .9954807554919269 .094963495329639 .6367618612362842 .7710605242618138 .8833633386657316 .46868882203582796 .29321916269425863 .9560452513499964 .9578264130275329 .2873474595447295 .47410021465055 .8804708890521608 .7749531065948739 .6320187359398091 .10106986275482782 .9948793307948056 .9813791933137546 .19208039704989244 .5581185312205561 .829761233794523 .8331701647019132 .5530167055800276 .1980984107179536 .9801821359681174 .9250492407826776 .37984720892405116 .38551605384391885 .9227011283338785 .7092728264388657 .7049340803759049 .003067956762965976 .9999952938095762 ))) (define med-lut (list->f64vector '(1. 0. .9999999999820472 5.9921124526424275e-6 .9999999999281892 1.1984224905069707e-5 .9999999998384257 1.7976337357066685e-5 .9999999997127567 2.396844980841822e-5 .9999999995511824 2.9960562258909154e-5 .9999999993537025 3.5952674708324344e-5 .9999999991203175 4.1944787156448635e-5 .9999999988510269 4.793689960306688e-5 .9999999985458309 5.3929012047963936e-5 .9999999982047294 5.992112449092465e-5 .9999999978277226 6.591323693173387e-5 .9999999974148104 7.190534937017645e-5 .9999999969659927 7.789746180603723e-5 .9999999964812697 8.388957423910108e-5 .9999999959606412 8.988168666915283e-5 .9999999954041073 9.587379909597734e-5 .999999994811668 1.0186591151935948e-4 .9999999941833233 1.0785802393908407e-4 .9999999935190732 1.1385013635493597e-4 .9999999928189177 1.1984224876670004e-4 .9999999920828567 1.2583436117416112e-4 .9999999913108903 1.3182647357710405e-4 .9999999905030187 1.3781858597531374e-4 .9999999896592414 1.4381069836857496e-4 .9999999887795589 1.498028107566726e-4 .9999999878639709 1.5579492313939151e-4 .9999999869124775 1.6178703551651655e-4 .9999999859250787 1.6777914788783258e-4 .9999999849017744 1.737712602531244e-4 .9999999838425648 1.797633726121769e-4 .9999999827474497 1.8575548496477492e-4 .9999999816164293 1.9174759731070332e-4 .9999999804495034 1.9773970964974692e-4 .9999999792466722 2.037318219816906e-4 .9999999780079355 2.0972393430631923e-4 .9999999767332933 2.1571604662341763e-4 .9999999754227459 2.2170815893277063e-4 .9999999740762929 2.2770027123416315e-4 .9999999726939346 2.3369238352737996e-4 .9999999712756709 2.3968449581220595e-4 .9999999698215016 2.45676608088426e-4 .9999999683314271 2.5166872035582493e-4 .9999999668054471 2.5766083261418755e-4 .9999999652435617 2.636529448632988e-4 .9999999636457709 2.696450571029434e-4 .9999999620120748 2.756371693329064e-4 .9999999603424731 2.8162928155297243e-4 .9999999586369661 2.876213937629265e-4 .9999999568955537 2.936135059625534e-4 .9999999551182358 2.99605618151638e-4 .9999999533050126 3.055977303299651e-4 .9999999514558838 3.115898424973196e-4 .9999999495708498 3.1758195465348636e-4 .9999999476499103 3.235740667982502e-4 .9999999456930654 3.2956617893139595e-4 .9999999437003151 3.3555829105270853e-4 .9999999416716594 3.4155040316197275e-4 .9999999396070982 3.475425152589734e-4 .9999999375066316 3.535346273434955e-4 .9999999353702598 3.595267394153237e-4 .9999999331979824 3.6551885147424295e-4 .9999999309897996 3.7151096352003814e-4 .9999999287457114 3.7750307555249406e-4 .9999999264657179 3.8349518757139556e-4 .9999999241498189 3.8948729957652753e-4 .9999999217980144 3.954794115676748e-4 .9999999194103046 4.0147152354462224e-4 .9999999169866894 4.0746363550715466e-4 .9999999145271687 4.134557474550569e-4 .9999999120317428 4.194478593881139e-4 .9999999095004113 4.2543997130611036e-4 .9999999069331744 4.314320832088313e-4 .9999999043300322 4.3742419509606144e-4 .9999999016909845 4.4341630696758576e-4 .9999998990160315 4.4940841882318896e-4 .9999998963051729 4.55400530662656e-4 .999999893558409 4.613926424857717e-4 .9999998907757398 4.673847542923209e-4 .9999998879571651 4.7337686608208844e-4 .9999998851026849 4.793689778548592e-4 .9999998822122994 4.8536108961041806e-4 .9999998792860085 4.913532013485497e-4 .9999998763238122 4.973453130690393e-4 .9999998733257104 5.033374247716714e-4 .9999998702917032 5.09329536456231e-4 .9999998672217907 5.153216481225028e-4 .9999998641159727 5.213137597702719e-4 .9999998609742493 5.27305871399323e-4 .9999998577966206 5.332979830094408e-4 .9999998545830864 5.392900946004105e-4 .9999998513336468 5.452822061720168e-4 .9999998480483018 5.512743177240444e-4 .9999998447270514 5.572664292562783e-4 .9999998413698955 5.632585407685033e-4 .9999998379768343 5.692506522605043e-4 .9999998345478677 5.752427637320661e-4 .9999998310829956 5.812348751829735e-4 .9999998275822183 5.872269866130116e-4 .9999998240455354 5.93219098021965e-4 .9999998204729471 5.992112094096185e-4 .9999998168644535 6.052033207757572e-4 .9999998132200545 6.111954321201659e-4 .99999980953975 6.171875434426292e-4 .9999998058235401 6.231796547429323e-4 .9999998020714248 6.291717660208597e-4 .9999997982834041 6.351638772761965e-4 .9999997944594781 6.411559885087275e-4 .9999997905996466 6.471480997182375e-4 .9999997867039097 6.531402109045114e-4 .9999997827722674 6.591323220673341e-4 .9999997788047197 6.651244332064902e-4 .9999997748012666 6.711165443217649e-4 .9999997707619082 6.771086554129428e-4 .9999997666866443 6.83100766479809e-4 .9999997625754748 6.89092877522148e-4 .9999997584284002 6.950849885397449e-4 .9999997542454201 7.010770995323844e-4 .9999997500265345 7.070692104998515e-4 .9999997457717437 7.130613214419311e-4 .9999997414810473 7.190534323584079e-4 .9999997371544456 7.250455432490666e-4 .9999997327919384 7.310376541136925e-4 .9999997283935259 7.3702976495207e-4 .999999723959208 7.430218757639842e-4 .9999997194889846 7.490139865492199e-4 .9999997149828559 7.55006097307562e-4 .9999997104408218 7.609982080387952e-4 .9999997058628822 7.669903187427045e-4 .9999997012490373 7.729824294190747e-4 .9999996965992869 7.789745400676906e-4 .9999996919136313 7.849666506883372e-4 .99999968719207 7.909587612807992e-4 .9999996824346035 7.969508718448614e-4 .9999996776412315 8.029429823803089e-4 .9999996728119542 8.089350928869263e-4 .9999996679467715 8.149272033644986e-4 .9999996630456833 8.209193138128106e-4 .9999996581086897 8.269114242316472e-4 .9999996531357909 8.329035346207931e-4 .9999996481269865 8.388956449800333e-4 .9999996430822767 8.448877553091527e-4 .9999996380016616 8.508798656079359e-4 .999999632885141 8.56871975876168e-4 .9999996277327151 8.628640861136338e-4 .9999996225443838 8.68856196320118e-4 .9999996173201471 8.748483064954056e-4 .999999612060005 8.808404166392814e-4 .9999996067639574 8.868325267515304e-4 .9999996014320045 8.928246368319371e-4 .9999995960641462 8.988167468802867e-4 .9999995906603825 9.048088568963639e-4 .9999995852207133 9.108009668799535e-4 .9999995797451389 9.167930768308405e-4 .9999995742336589 9.227851867488095e-4 .9999995686862736 9.287772966336457e-4 .9999995631029829 9.347694064851338e-4 .9999995574837868 9.407615163030585e-4 .9999995518286853 9.467536260872047e-4 .9999995461376784 9.527457358373575e-4 .9999995404107661 9.587378455533015e-4 .9999995346479484 9.647299552348216e-4 .9999995288492254 9.707220648817027e-4 .9999995230145969 9.767141744937296e-4 .9999995171440631 9.827062840706872e-4 .9999995112376238 9.886983936123602e-4 .9999995052952791 9.946905031185337e-4 .9999994993170291 .0010006826125889925 .9999994933028736 .0010066747220235214 .9999994872528128 .001012666831421905 .9999994811668466 .0010186589407839286 .999999475044975 .0010246510501093766 .9999994688871979 .0010306431593980344 .9999994626935156 .0010366352686496862 .9999994564639277 .0010426273778641173 .9999994501984345 .0010486194870411127 .999999443897036 .0010546115961804568 .999999437559732 .0010606037052819344 .9999994311865227 .0010665958143453308 .9999994247774079 .0010725879233704307 .9999994183323877 .0010785800323570187 .9999994118514622 .0010845721413048801 .9999994053346313 .0010905642502137994 .9999993987818949 .0010965563590835613 .9999993921932533 .0011025484679139511 .9999993855687062 .0011085405767047535 .9999993789082536 .0011145326854557532 .9999993722118957 .001120524794166735 .9999993654796325 .0011265169028374842 .9999993587114638 .0011325090114677853 .9999993519073898 .001138501120057423 .9999993450674104 .0011444932286061825 .9999993381915255 .0011504853371138485 .9999993312797354 .0011564774455802057 .9999993243320398 .0011624695540050393 .9999993173484387 .001168461662388134 .9999993103289324 .0011744537707292742 .9999993032735206 .0011804458790282454 .9999992961822035 .0011864379872848323 .9999992890549809 .0011924300954988195 .999999281891853 .001198422203669992 .9999992746928197 .0012044143117981348 .999999267457881 .0012104064198830327 .999999260187037 .0012163985279244702 .9999992528802875 .0012223906359222325 .9999992455376326 .0012283827438761045 .9999992381590724 .0012343748517858707 .9999992307446068 .0012403669596513162 .9999992232942359 .001246359067472226 .9999992158079595 .0012523511752483847 .9999992082857777 .001258343282979577 .9999992007276906 .001264335390665588 .999999193133698 .0012703274983062026 .9999991855038001 .0012763196059012057 .9999991778379967 .001282311713450382 .9999991701362881 .0012883038209535163 .999999162398674 .0012942959284103935 .9999991546251547 .0013002880358207985 .9999991468157298 .001306280143184516 .9999991389703996 .001312272250501331 .999999131089164 .0013182643577710285 .999999123172023 .0013242564649933932 .9999991152189767 .0013302485721682098 .9999991072300249 .001336240679295263 .9999990992051678 .0013422327863743383 .9999990911444054 .0013482248934052201 .9999990830477375 .0013542170003876934 .9999990749151643 .001360209107321543 .9999990667466857 .0013662012142065536 .9999990585423016 .0013721933210425101 .9999990503020123 .0013781854278291975 .9999990420258176 .0013841775345664006 .9999990337137175 .0013901696412539043 .999999025365712 .0013961617478914935 .999999016981801 .0014021538544789526 .9999990085619848 .001408145961016067 .9999990001062631 .0014141380675026214 .9999989916146361 .0014201301739384005 .9999989830871038 .0014261222803231893 .9999989745236659 .0014321143866567725 .9999989659243228 .001438106492938935 .9999989572890743 .0014440985991694619 .9999989486179204 .0014500907053481378 .9999989399108612 .0014560828114747475 .9999989311678965 .0014620749175490758 .9999989223890265 .001468067023570908 .9999989135742512 .0014740591295400284 .9999989047235704 .0014800512354562223 .9999988958369843 .0014860433413192743 .9999988869144928 .0014920354471289693 .9999988779560959 .0014980275528850922 .9999988689617937 .0015040196585874275 .9999988599315861 .0015100117642357607 .999998850865473 .0015160038698298762 .9999988417634548 .001521995975369559 .999998832625531 .0015279880808545937 .9999988234517019 .0015339801862847657 .9999988142419675 .0015399722916598592 .9999988049963277 .0015459643969796596 .9999987957147825 .0015519565022439512 .9999987863973319 .0015579486074525195 .9999987770439759 .001563940712605149 .9999987676547146 .0015699328177016243 .999998758229548 .0015759249227417307 .9999987487684759 .0015819170277252528 .9999987392714985 .0015879091326519755 .9999987297386157 .0015939012375216837 .9999987201698276 .0015998933423341623 .9999987105651341 .001605885447089196 .9999987009245352 .0016118775517865696 .999998691248031 .0016178696564260683 .9999986815356214 .0016238617610074765 .9999986717873064 .0016298538655305794 .9999986620030861 .0016358459699951618 .9999986521829605 .0016418380744010084 .9999986423269294 .0016478301787479041 .999998632434993 .0016538222830356339 .9999986225071512 .0016598143872639823 .999998612543404 .0016658064914327345 .9999986025437515 .0016717985955416754 .9999985925081937 .0016777906995905894 .9999985824367305 .0016837828035792617 .9999985723293618 .0016897749075074774 .999998562186088 .0016957670113750207 .9999985520069086 .0017017591151816769 .9999985417918239 .0017077512189272307 .999998531540834 .001713743322611467 .9999985212539385 .0017197354262341706 .9999985109311378 .0017257275297951264 .9999985005724317 .0017317196332941192 .9999984901778203 .0017377117367309341 .9999984797473034 .0017437038401053556 .9999984692808812 .0017496959434171687 .9999984587785538 .0017556880466661582 .9999984482403208 .001761680149852109 .9999984376661826 .0017676722529748061 .999998427056139 .0017736643560340342 .99999841641019 .001779656459029578 .9999984057283358 .0017856485619612225 .9999983950105761 .0017916406648287528 .999998384256911 .0017976327676319532 .9999983734673407 .001803624870370609 .9999983626418649 .0018096169730445048 .9999983517804839 .0018156090756534257 .9999983408831975 .0018216011781971562 .9999983299500057 .0018275932806754815 .9999983189809085 .0018335853830881864 .999998307975906 .0018395774854350557 .9999982969349982 .001845569587715874 .9999982858581851 .0018515616899304264 .9999982747454665 .001857553792078498 .9999982635968426 .001863545894159873 .9999982524123134 .0018695379961743367 .9999982411918789 .001875530098121674 .9999982299355389 .0018815222000016696 .9999982186432936 .0018875143018141083 .999998207315143 .0018935064035587748 .999998195951087 .0018994985052354545 .9999981845511257 .0019054906068439318 .9999981731152591 .0019114827083839918 .999998161643487 .001917474809855419 .9999981501358096 .0019234669112579987 .999998138592227 .0019294590125915154 .9999981270127389 .0019354511138557542 .9999981153973455 .0019414432150504997 .9999981037460468 .0019474353161755369 .9999980920588427 .001953427417230651 .9999980803357332 .001959419518215626 .9999980685767185 .0019654116191302473 .9999980567817984 .0019714037199743 .9999980449509729 .0019773958207475683 .9999980330842422 .0019833879214498375 .999998021181606 .001989380022080892 .9999980092430646 .0019953721226405176 .9999979972686177 .002001364223128498 .9999979852582656 .002007356323544619 .9999979732120081 .002013348423888665 .9999979611298453 .002019340524160421 .9999979490117771 .0020253326243596715 .9999979368578036 .0020313247244862017 .9999979246679247 .002037316824539796 .9999979124421405 .00204330892452024 .999997900180451 .002049301024427318 .9999978878828562 .0020552931242608153 .9999978755493559 .002061285224020516 .9999978631799504 .0020672773237062057 .9999978507746395 .002073269423317669 .9999978383334234 .0020792615228546903 .9999978258563018 .002085253622317055 .999997813343275 .0020912457217045484 .9999978007943428 .002097237821016954 .9999977882095052 .0021032299202540577 .9999977755887623 .0021092220194156444 .9999977629321142 .0021152141185014984 .9999977502395607 .0021212062175114043 .9999977375111019 .002127198316445148 .9999977247467376 .0021331904153025134 .9999977119464681 .002139182514083286 .9999976991102932 .0021451746127872503 .9999976862382131 .002151166711414191 .9999976733302276 .0021571588099638934 .9999976603863368 .0021631509084361423 .9999976474065406 .002169143006830722 .9999976343908391 .002175135105147418 .9999976213392323 .0021811272033860148 .9999976082517201 .002187119301546297 .9999975951283027 .00219311139962805 .9999975819689799 .0021991034976310588 .9999975687737518 .0022050955955551076 .9999975555426184 .0022110876933999816 .9999975422755796 .0022170797911654654 .9999975289726355 .002223071888851344 .9999975156337861 .0022290639864574026 .9999975022590314 .0022350560839834253 .9999974888483714 .002241048181429198 .999997475401806 .0022470402787945045 .9999974619193353 .00225303237607913 .9999974484009593 .0022590244732828596 .9999974348466779 .0022650165704054784 .9999974212564913 .0022710086674467703 .9999974076303992 .002277000764406521 .9999973939684019 .002282992861284515 .9999973802704993 .0022889849580805368 .9999973665366915 .0022949770547943723 .9999973527669782 .0023009691514258054 .9999973389613596 .002306961247974621 .9999973251198357 .0023129533444406045 .9999973112424065 .0023189454408235406 .999997297329072 .0023249375371232135 .9999972833798322 .002330929633339409 .999997269394687 .0023369217294719113 .9999972553736366 .0023429138255205055 .9999972413166809 .0023489059214849765 .9999972272238198 .002354898017365109 .9999972130950534 .0023608901131606883 .9999971989303816 .0023668822088714985 .9999971847298047 .0023728743044973246 .9999971704933224 .0023788664000379523 .9999971562209347 .0023848584954931653 .9999971419126418 .0023908505908627493 .9999971275684435 .0023968426861464883 .99999711318834 .002402834781344168 .9999970987723311 .0024088268764555732 .9999970843204169 .002414818971480488 .9999970698325974 .002420811066418698 .9999970553088726 .0024268031612699878 .9999970407492426 .002432795256034142 .9999970261537071 .002438787350710946 .9999970115222664 .002444779445300184 .9999969968549204 .0024507715398016418 .9999969821516691 .002456763634215103 .9999969674125124 .002462755728540353 .9999969526374506 .0024687478227771774 .9999969378264834 .00247473991692536 .9999969229796108 .002480732010984686 .999996908096833 .0024867241049549406 .9999968931781499 .002492716198835908 .9999968782235614 .0024987082926273734 .9999968632330677 .002504700386329122 .9999968482066687 .002510692479940938 .9999968331443644 .0025166845734626068 .9999968180461547 .0025226766668939127 .9999968029120399 .002528668760234641 .9999967877420196 .002534660853484576 .9999967725360941 .0025406529466435036 .9999967572942633 .002546645039711208 .9999967420165272 .002552637132687474 .9999967267028858 .002558629225572086 .9999967113533391 .0025646213183648297 .9999966959678871 .0025706134110654896 .9999966805465298 .002576605503673851 .9999966650892672 .0025825975961896977 .9999966495960994 .0025885896886128153 .9999966340670262 .0025945817809429885 .9999966185020478 .0026005738731800024 .9999966029011641 .0026065659653236417 .999996587264375 .002612558057373691 .9999965715916808 .002618550149329935 .9999965558830811 .0026245422411921592 .9999965401385762 .002630534332960148 .9999965243581661 .002636526424633687 .9999965085418506 .0026425185162125596 .9999964926896299 .0026485106076965517 .9999964768015038 .0026545026990854484 .9999964608774725 .0026604947903790337 .9999964449175359 .0026664868815770926 .999996428921694 .0026724789726794104 .9999964128899468 .002678471063685772 .9999963968222944 .0026844631545959617 .9999963807187366 .002690455245409765 .9999963645792737 .002696447336126966 .9999963484039053 .00270243942674735 .9999963321926317 .002708431517270702 .9999963159454529 .0027144236076968066 .9999962996623687 .0027204156980254485 .9999962833433793 .002726407788256413 .9999962669884847 .002732399878389485 .9999962505976846 .0027383919684244484 .9999962341709794 .002744384058361089 .9999962177083689 .0027503761481991913 .999996201209853 .0027563682379385403 .9999961846754319 .0027623603275789207 .9999961681051056 .0027683524171201175 .999996151498874 .002774344506561915 .9999961348567371 .002780336595904099 .9999961181786949 .0027863286851464537 .9999961014647475 .0027923207742887642 .9999960847148948 .0027983128633308155 .9999960679291368 .002804304952272392 .9999960511074735 .002810297041113279 .9999960342499049 .0028162891298532606 .9999960173564312 .0028222812184921227 .9999960004270521 .002828273307029649 .9999959834617678 .002834265395465626 .9999959664605781 .0028402574837998367 .9999959494234832 .002846249572032067 .9999959323504831 .0028522416601621014 .9999959152415777 .002858233748189725 .999995898096767 .002864225836114723 .9999958809160512 .0028702179239368793 .9999958636994299 .0028762100116559793 .9999958464469034 .0028822020992718077 .9999958291584717 .0028881941867841495 .9999958118341348 .0028941862741927895 .9999957944738925 .0029001783614975127 .999995777077745 .002906170448698104 .9999957596456922 .0029121625357943475 .9999957421777342 .002918154622786029 .999995724673871 .0029241467096729327 .9999957071341024 .002930138796454844 .9999956895584287 .0029361308831315474 .9999956719468496 .0029421229697028273 .9999956542993652 .0029481150561684695 .9999956366159757 .0029541071425282584 .9999956188966809 .002960099228781979 .9999956011414808 .002966091314929416 .9999955833503754 .002972083400970354 .9999955655233649 .0029780754869045785 .9999955476604491 .0029840675727318736 .999995529761628 .002990059658452025 .9999955118269016 .0029960517440648163 .99999549385627 .0030020438295700336 .9999954758497331 .0030080359149674612 .999995457807291 .003014028000256884 .9999954397289438 .003020020085438087 .9999954216146911 .0030260121705108552 .9999954034645333 .003032004255474973 .9999953852784702 .003037996340330225 .9999953670565019 .003043988425076397 .9999953487986284 .003049980509713273 .9999953305048496 .0030559725942406386 .9999953121751655 .003061964678658278 ))) (define high-lut (list->f64vector '(1. 0. .9999999999999999 1.1703344634137277e-8 .9999999999999998 2.3406689268274554e-8 .9999999999999993 3.5110033902411824e-8 .9999999999999989 4.6813378536549095e-8 .9999999999999983 5.851672317068635e-8 .9999999999999976 7.022006780482361e-8 .9999999999999967 8.192341243896085e-8 .9999999999999957 9.362675707309808e-8 .9999999999999944 1.0533010170723531e-7 .9999999999999931 1.170334463413725e-7 .9999999999999917 1.287367909755097e-7 .9999999999999901 1.4044013560964687e-7 .9999999999999885 1.5214348024378403e-7 .9999999999999866 1.6384682487792116e-7 .9999999999999846 1.7555016951205827e-7 .9999999999999825 1.8725351414619535e-7 .9999999999999802 1.989568587803324e-7 .9999999999999778 2.1066020341446942e-7 .9999999999999752 2.2236354804860645e-7 .9999999999999726 2.3406689268274342e-7 .9999999999999698 2.4577023731688034e-7 .9999999999999668 2.5747358195101726e-7 .9999999999999638 2.6917692658515413e-7 .9999999999999606 2.8088027121929094e-7 .9999999999999571 2.9258361585342776e-7 .9999999999999537 3.042869604875645e-7 .99999999999995 3.159903051217012e-7 .9999999999999463 3.276936497558379e-7 .9999999999999424 3.3939699438997453e-7 .9999999999999384 3.5110033902411114e-7 .9999999999999342 3.6280368365824763e-7 .9999999999999298 3.7450702829238413e-7 .9999999999999254 3.8621037292652057e-7 .9999999999999208 3.979137175606569e-7 .9999999999999161 4.0961706219479325e-7 .9999999999999113 4.2132040682892953e-7 .9999999999999063 4.330237514630657e-7 .9999999999999011 4.447270960972019e-7 .9999999999998959 4.5643044073133796e-7 .9999999999998904 4.68133785365474e-7 .9999999999998849 4.7983712999961e-7 .9999999999998792 4.915404746337459e-7 .9999999999998733 5.032438192678817e-7 .9999999999998674 5.149471639020175e-7 .9999999999998613 5.266505085361531e-7 .9999999999998551 5.383538531702888e-7 .9999999999998487 5.500571978044243e-7 .9999999999998422 5.617605424385598e-7 .9999999999998356 5.734638870726952e-7 .9999999999998288 5.851672317068305e-7 .9999999999998219 5.968705763409657e-7 .9999999999998148 6.085739209751009e-7 .9999999999998076 6.202772656092359e-7 .9999999999998003 6.319806102433709e-7 .9999999999997928 6.436839548775058e-7 .9999999999997853 6.553872995116406e-7 .9999999999997775 6.670906441457753e-7 .9999999999997696 6.7879398877991e-7 .9999999999997616 6.904973334140445e-7 .9999999999997534 7.02200678048179e-7 .9999999999997452 7.139040226823132e-7 .9999999999997368 7.256073673164475e-7 .9999999999997282 7.373107119505817e-7 .9999999999997194 7.490140565847157e-7 .9999999999997107 7.607174012188497e-7 .9999999999997017 7.724207458529835e-7 .9999999999996926 7.841240904871172e-7 .9999999999996834 7.958274351212508e-7 .9999999999996739 8.075307797553844e-7 .9999999999996644 8.192341243895178e-7 .9999999999996547 8.309374690236511e-7 .999999999999645 8.426408136577842e-7 .9999999999996351 8.543441582919173e-7 .999999999999625 8.660475029260503e-7 .9999999999996148 8.777508475601831e-7 .9999999999996044 8.894541921943158e-7 .999999999999594 9.011575368284484e-7 .9999999999995833 9.128608814625808e-7 .9999999999995726 9.245642260967132e-7 .9999999999995617 9.362675707308454e-7 .9999999999995507 9.479709153649775e-7 .9999999999995395 9.596742599991095e-7 .9999999999995283 9.713776046332412e-7 .9999999999995168 9.83080949267373e-7 .9999999999995052 9.947842939015044e-7 .9999999999994935 1.006487638535636e-6 .9999999999994816 1.0181909831697673e-6 .9999999999994696 1.0298943278038984e-6 .9999999999994575 1.0415976724380293e-6 .9999999999994453 1.0533010170721601e-6 .9999999999994329 1.065004361706291e-6 .9999999999994204 1.0767077063404215e-6 .9999999999994077 1.088411050974552e-6 .9999999999993949 1.1001143956086822e-6 .9999999999993819 1.1118177402428122e-6 .9999999999993688 1.1235210848769423e-6 .9999999999993556 1.135224429511072e-6 .9999999999993423 1.1469277741452017e-6 .9999999999993288 1.1586311187793313e-6 .9999999999993151 1.1703344634134605e-6 .9999999999993014 1.1820378080475897e-6 .9999999999992875 1.1937411526817187e-6 .9999999999992735 1.2054444973158477e-6 .9999999999992593 1.2171478419499764e-6 .9999999999992449 1.2288511865841048e-6 .9999999999992305 1.2405545312182331e-6 .999999999999216 1.2522578758523615e-6 .9999999999992012 1.2639612204864894e-6 .9999999999991863 1.2756645651206173e-6 .9999999999991713 1.287367909754745e-6 .9999999999991562 1.2990712543888725e-6 .9999999999991409 1.3107745990229998e-6 .9999999999991255 1.3224779436571269e-6 .9999999999991099 1.3341812882912537e-6 .9999999999990943 1.3458846329253806e-6 .9999999999990785 1.3575879775595072e-6 .9999999999990625 1.3692913221936337e-6 .9999999999990464 1.3809946668277597e-6 .9999999999990302 1.3926980114618857e-6 .9999999999990138 1.4044013560960117e-6 .9999999999989974 1.4161047007301373e-6 .9999999999989807 1.4278080453642627e-6 .9999999999989639 1.439511389998388e-6 .999999999998947 1.451214734632513e-6 .99999999999893 1.462918079266638e-6 .9999999999989128 1.4746214239007625e-6 .9999999999988954 1.486324768534887e-6 .999999999998878 1.4980281131690111e-6 .9999999999988604 1.5097314578031353e-6 .9999999999988426 1.5214348024372591e-6 .9999999999988247 1.5331381470713828e-6 .9999999999988067 1.544841491705506e-6 .9999999999987886 1.5565448363396294e-6 .9999999999987703 1.5682481809737524e-6 .9999999999987519 1.579951525607875e-6 .9999999999987333 1.5916548702419977e-6 .9999999999987146 1.60335821487612e-6 .9999999999986958 1.615061559510242e-6 .9999999999986768 1.626764904144364e-6 .9999999999986577 1.6384682487784858e-6 .9999999999986384 1.6501715934126072e-6 .9999999999986191 1.6618749380467283e-6 .9999999999985996 1.6735782826808495e-6 .9999999999985799 1.6852816273149702e-6 .9999999999985602 1.6969849719490907e-6 .9999999999985402 1.708688316583211e-6 .9999999999985201 1.720391661217331e-6 .9999999999985 1.732095005851451e-6 .9999999999984795 1.7437983504855706e-6 .9999999999984591 1.7555016951196899e-6 .9999999999984385 1.767205039753809e-6 .9999999999984177 1.778908384387928e-6 .9999999999983968 1.7906117290220465e-6 .9999999999983759 1.802315073656165e-6 .9999999999983546 1.814018418290283e-6 .9999999999983333 1.825721762924401e-6 .9999999999983119 1.8374251075585186e-6 .9999999999982904 1.8491284521926361e-6 .9999999999982686 1.8608317968267533e-6 .9999999999982468 1.8725351414608702e-6 .9999999999982249 1.8842384860949866e-6 .9999999999982027 1.8959418307291031e-6 .9999999999981805 1.9076451753632194e-6 .999999999998158 1.919348519997335e-6 .9999999999981355 1.9310518646314507e-6 .9999999999981128 1.942755209265566e-6 .9999999999980901 1.954458553899681e-6 .9999999999980671 1.966161898533796e-6 .999999999998044 1.9778652431679103e-6 .9999999999980208 1.9895685878020246e-6 .9999999999979975 2.0012719324361386e-6 .999999999997974 2.012975277070252e-6 .9999999999979503 2.0246786217043656e-6 .9999999999979265 2.0363819663384787e-6 .9999999999979027 2.048085310972592e-6 .9999999999978786 2.0597886556067045e-6 .9999999999978545 2.0714920002408167e-6 .9999999999978302 2.0831953448749286e-6 .9999999999978058 2.0948986895090404e-6 .9999999999977811 2.106602034143152e-6 .9999999999977564 2.118305378777263e-6 .9999999999977315 2.1300087234113738e-6 .9999999999977065 2.1417120680454843e-6 .9999999999976814 2.153415412679595e-6 .9999999999976561 2.1651187573137046e-6 .9999999999976307 2.1768221019478143e-6 .9999999999976051 2.188525446581924e-6 .9999999999975795 2.200228791216033e-6 .9999999999975536 2.2119321358501417e-6 .9999999999975278 2.22363548048425e-6 .9999999999975017 2.2353388251183586e-6 .9999999999974754 2.247042169752466e-6 .999999999997449 2.2587455143865738e-6 .9999999999974225 2.2704488590206814e-6 .9999999999973959 2.282152203654788e-6 .9999999999973691 2.293855548288895e-6 .9999999999973422 2.305558892923001e-6 .9999999999973151 2.317262237557107e-6 .999999999997288 2.328965582191213e-6 .9999999999972606 2.340668926825318e-6 .9999999999972332 2.352372271459423e-6 .9999999999972056 2.364075616093528e-6 .9999999999971778 2.3757789607276323e-6 .99999999999715 2.3874823053617365e-6 .999999999997122 2.3991856499958403e-6 .9999999999970938 2.4108889946299437e-6 .9999999999970656 2.4225923392640466e-6 .9999999999970371 2.4342956838981495e-6 .9999999999970085 2.445999028532252e-6 .9999999999969799 2.457702373166354e-6 .999999999996951 2.4694057178004558e-6 .999999999996922 2.4811090624345574e-6 .9999999999968929 2.4928124070686583e-6 .9999999999968637 2.504515751702759e-6 .9999999999968343 2.5162190963368595e-6 .9999999999968048 2.5279224409709594e-6 .9999999999967751 2.5396257856050594e-6 .9999999999967454 2.5513291302391585e-6 .9999999999967154 2.5630324748732576e-6 .9999999999966853 2.5747358195073563e-6 .9999999999966551 2.5864391641414546e-6 .9999999999966248 2.5981425087755525e-6 .9999999999965944 2.6098458534096503e-6 .9999999999965637 2.6215491980437473e-6 .999999999996533 2.6332525426778443e-6 .9999999999965021 2.644955887311941e-6 .999999999996471 2.656659231946037e-6 .99999999999644 2.6683625765801328e-6 .9999999999964087 2.680065921214228e-6 .9999999999963772 2.6917692658483234e-6 .9999999999963456 2.703472610482418e-6 .999999999996314 2.7151759551165123e-6 .9999999999962821 2.7268792997506064e-6 .9999999999962501 2.7385826443846996e-6 .9999999999962179 2.750285989018793e-6 .9999999999961857 2.761989333652886e-6 .9999999999961533 2.7736926782869783e-6 .9999999999961208 2.78539602292107e-6 .9999999999960881 2.797099367555162e-6 .9999999999960553 2.808802712189253e-6 .9999999999960224 2.8205060568233443e-6 .9999999999959893 2.832209401457435e-6 .9999999999959561 2.8439127460915247e-6 .9999999999959227 2.8556160907256145e-6 .9999999999958893 2.867319435359704e-6 .9999999999958556 2.879022779993793e-6 .9999999999958219 2.8907261246278814e-6 .9999999999957879 2.90242946926197e-6 .999999999995754 2.9141328138960576e-6 .9999999999957198 2.925836158530145e-6 .9999999999956855 2.9375395031642317e-6 .999999999995651 2.9492428477983186e-6 .9999999999956164 2.9609461924324046e-6 .9999999999955816 2.9726495370664905e-6 .9999999999955468 2.9843528817005757e-6 .9999999999955118 2.996056226334661e-6 .9999999999954767 3.007759570968745e-6 .9999999999954414 3.0194629156028294e-6 .999999999995406 3.0311662602369133e-6 .9999999999953705 3.0428696048709963e-6 .9999999999953348 3.0545729495050794e-6 .999999999995299 3.066276294139162e-6 .999999999995263 3.0779796387732437e-6 .9999999999952269 3.0896829834073255e-6 .9999999999951907 3.101386328041407e-6 .9999999999951543 3.1130896726754873e-6 .9999999999951178 3.1247930173095678e-6 .9999999999950812 3.136496361943648e-6 .9999999999950444 3.148199706577727e-6 .9999999999950075 3.1599030512118063e-6 .9999999999949705 3.171606395845885e-6 .9999999999949333 3.183309740479963e-6 .999999999994896 3.195013085114041e-6 .9999999999948584 3.206716429748118e-6 .9999999999948209 3.218419774382195e-6 .9999999999947832 3.2301231190162714e-6 .9999999999947453 3.2418264636503477e-6 .9999999999947072 3.253529808284423e-6 .9999999999946692 3.265233152918498e-6 .9999999999946309 3.276936497552573e-6 .9999999999945924 3.288639842186647e-6 .9999999999945539 3.300343186820721e-6 .9999999999945152 3.312046531454794e-6 .9999999999944763 3.323749876088867e-6 .9999999999944373 3.3354532207229395e-6 .9999999999943983 3.3471565653570115e-6 .9999999999943591 3.358859909991083e-6 .9999999999943197 3.370563254625154e-6 .9999999999942801 3.3822665992592245e-6 .9999999999942405 3.3939699438932944e-6 .9999999999942008 3.4056732885273643e-6 .9999999999941608 3.4173766331614334e-6 .9999999999941207 3.429079977795502e-6 .9999999999940805 3.4407833224295702e-6 .9999999999940402 3.452486667063638e-6 .9999999999939997 3.4641900116977054e-6 .999999999993959 3.4758933563317723e-6 .9999999999939183 3.4875967009658384e-6 .9999999999938775 3.4993000455999045e-6 .9999999999938364 3.5110033902339697e-6 .9999999999937953 3.5227067348680345e-6 .999999999993754 3.534410079502099e-6 .9999999999937126 3.546113424136163e-6 .999999999993671 3.5578167687702264e-6 .9999999999936293 3.5695201134042896e-6 .9999999999935875 3.581223458038352e-6 .9999999999935454 3.592926802672414e-6 .9999999999935033 3.6046301473064755e-6 .9999999999934611 3.6163334919405365e-6 .9999999999934187 3.628036836574597e-6 .9999999999933762 3.639740181208657e-6 .9999999999933334 3.6514435258427166e-6 .9999999999932907 3.6631468704767755e-6 .9999999999932477 3.674850215110834e-6 .9999999999932047 3.686553559744892e-6 .9999999999931615 3.6982569043789496e-6 .9999999999931181 3.7099602490130064e-6 .9999999999930747 3.7216635936470627e-6 .999999999993031 3.733366938281119e-6 .9999999999929873 3.745070282915174e-6 .9999999999929433 3.756773627549229e-6 .9999999999928992 3.768476972183284e-6 .9999999999928552 3.7801803168173377e-6 .9999999999928109 3.791883661451391e-6 .9999999999927663 3.803587006085444e-6 .9999999999927218 3.8152903507194965e-6 .9999999999926771 3.826993695353548e-6 .9999999999926322 3.838697039987599e-6 .9999999999925873 3.85040038462165e-6 .9999999999925421 3.862103729255701e-6 .9999999999924968 3.87380707388975e-6 .9999999999924514 3.885510418523799e-6 .9999999999924059 3.897213763157848e-6 .9999999999923602 3.9089171077918965e-6 .9999999999923144 3.9206204524259435e-6 .9999999999922684 3.9323237970599905e-6 .9999999999922223 3.9440271416940376e-6 .9999999999921761 3.955730486328084e-6 .9999999999921297 3.967433830962129e-6 .9999999999920832 3.9791371755961736e-6 .9999999999920366 3.990840520230218e-6 .9999999999919899 4.002543864864262e-6 .9999999999919429 4.014247209498305e-6 .9999999999918958 4.025950554132348e-6 .9999999999918486 4.03765389876639e-6 .9999999999918013 4.049357243400431e-6 .9999999999917539 4.061060588034472e-6 .9999999999917063 4.072763932668513e-6 .9999999999916586 4.084467277302553e-6 .9999999999916107 4.096170621936592e-6 .9999999999915626 4.107873966570632e-6 .9999999999915146 4.119577311204669e-6 .9999999999914663 4.131280655838707e-6 .9999999999914179 4.142984000472745e-6 .9999999999913692 4.154687345106781e-6 .9999999999913206 4.166390689740817e-6 .9999999999912718 4.178094034374852e-6 .9999999999912228 4.189797379008887e-6 .9999999999911737 4.201500723642921e-6 .9999999999911244 4.213204068276955e-6 .999999999991075 4.224907412910988e-6 .9999999999910255 4.236610757545021e-6 .9999999999909759 4.248314102179053e-6 .9999999999909261 4.260017446813084e-6 .9999999999908762 4.271720791447115e-6 .9999999999908261 4.283424136081145e-6 .9999999999907759 4.295127480715175e-6 .9999999999907256 4.306830825349204e-6 .9999999999906751 4.3185341699832325e-6 .9999999999906245 4.33023751461726e-6 .9999999999905738 4.3419408592512875e-6 .9999999999905229 4.353644203885314e-6 .9999999999904718 4.36534754851934e-6 .9999999999904207 4.377050893153365e-6 .9999999999903694 4.38875423778739e-6 .999999999990318 4.400457582421414e-6 .9999999999902665 4.4121609270554384e-6 .9999999999902147 4.423864271689461e-6 .9999999999901629 4.435567616323483e-6 .9999999999901109 4.447270960957506e-6 .9999999999900587 4.458974305591527e-6 .9999999999900065 4.470677650225547e-6 .9999999999899541 4.482380994859567e-6 .9999999999899016 4.494084339493587e-6 .9999999999898489 4.5057876841276054e-6 .9999999999897962 4.517491028761624e-6 .9999999999897432 4.529194373395641e-6 .9999999999896901 4.5408977180296584e-6 .999999999989637 4.552601062663675e-6 .9999999999895836 4.564304407297691e-6 .99999999998953 4.5760077519317055e-6 .9999999999894764 4.5877110965657195e-6 .9999999999894227 4.5994144411997335e-6 .9999999999893688 4.611117785833747e-6 .9999999999893148 4.622821130467759e-6 .9999999999892606 4.634524475101771e-6 .9999999999892063 4.646227819735783e-6 .9999999999891518 4.657931164369793e-6 .9999999999890973 4.669634509003803e-6 .9999999999890425 4.681337853637813e-6 .9999999999889877 4.693041198271821e-6 .9999999999889327 4.704744542905829e-6 .9999999999888776 4.716447887539837e-6 .9999999999888223 4.728151232173843e-6 .9999999999887669 4.73985457680785e-6 .9999999999887114 4.751557921441855e-6 .9999999999886556 4.76326126607586e-6 .9999999999885999 4.774964610709864e-6 .9999999999885439 4.786667955343868e-6 .9999999999884878 4.798371299977871e-6 .9999999999884316 4.810074644611873e-6 .9999999999883752 4.821777989245874e-6 .9999999999883187 4.833481333879875e-6 .9999999999882621 4.845184678513876e-6 .9999999999882053 4.856888023147875e-6 .9999999999881484 4.868591367781874e-6 .9999999999880914 4.880294712415872e-6 .9999999999880341 4.89199805704987e-6 .9999999999879768 4.903701401683867e-6 .9999999999879194 4.915404746317863e-6 .9999999999878618 4.9271080909518585e-6 .9999999999878041 4.938811435585853e-6 .9999999999877462 4.9505147802198475e-6 .9999999999876882 4.962218124853841e-6 .99999999998763 4.973921469487834e-6 .9999999999875717 4.985624814121826e-6 .9999999999875133 4.997328158755817e-6 .9999999999874548 5.009031503389808e-6 .9999999999873961 5.0207348480237985e-6 .9999999999873372 5.032438192657788e-6 .9999999999872783 5.0441415372917765e-6 .9999999999872192 5.055844881925764e-6 .9999999999871599 5.067548226559752e-6 .9999999999871007 5.079251571193739e-6 .9999999999870411 5.090954915827725e-6 .9999999999869814 5.10265826046171e-6 .9999999999869217 5.1143616050956945e-6 .9999999999868617 5.126064949729678e-6 .9999999999868017 5.1377682943636615e-6 .9999999999867415 5.149471638997644e-6 .9999999999866811 5.161174983631626e-6 .9999999999866207 5.172878328265607e-6 .9999999999865601 5.184581672899587e-6 .9999999999864994 5.196285017533567e-6 .9999999999864384 5.2079883621675455e-6 .9999999999863775 5.219691706801524e-6 .9999999999863163 5.2313950514355015e-6 .999999999986255 5.243098396069478e-6 .9999999999861935 5.254801740703454e-6 .999999999986132 5.266505085337429e-6 .9999999999860703 5.278208429971404e-6 .9999999999860084 5.289911774605378e-6 .9999999999859465 5.301615119239351e-6 .9999999999858843 5.313318463873323e-6 .9999999999858221 5.325021808507295e-6 .9999999999857597 5.336725153141267e-6 .9999999999856971 5.3484284977752366e-6 .9999999999856345 5.360131842409206e-6 .9999999999855717 5.371835187043175e-6 .9999999999855087 5.383538531677143e-6 .9999999999854456 5.3952418763111104e-6 .9999999999853825 5.406945220945077e-6 .9999999999853191 5.418648565579043e-6 .9999999999852557 5.4303519102130076e-6 .9999999999851921 5.4420552548469724e-6 .9999999999851282 5.453758599480936e-6 .9999999999850644 5.465461944114899e-6 .9999999999850003 5.47716528874886e-6 .9999999999849362 5.488868633382822e-6 .9999999999848719 5.500571978016782e-6 .9999999999848074 5.512275322650742e-6 .9999999999847429 5.523978667284702e-6 .9999999999846781 5.53568201191866e-6 .9999999999846133 5.547385356552617e-6 .9999999999845482 5.5590887011865745e-6 .9999999999844832 5.57079204582053e-6 .9999999999844179 5.582495390454486e-6 .9999999999843525 5.59419873508844e-6 .9999999999842869 5.605902079722394e-6 .9999999999842213 5.617605424356347e-6 .9999999999841555 5.629308768990299e-6 .9999999999840895 5.641012113624251e-6 .9999999999840234 5.652715458258201e-6 .9999999999839572 5.664418802892152e-6 .9999999999838908 5.6761221475261e-6 .9999999999838243 5.687825492160048e-6 .9999999999837577 5.699528836793996e-6 .9999999999836909 5.711232181427943e-6 .999999999983624 5.722935526061889e-6 .9999999999835569 5.734638870695834e-6 .9999999999834898 5.746342215329779e-6 .9999999999834225 5.758045559963722e-6 .999999999983355 5.769748904597665e-6 .9999999999832874 5.781452249231607e-6 .9999999999832196 5.793155593865548e-6 .9999999999831518 5.804858938499489e-6 .9999999999830838 5.816562283133429e-6 .9999999999830157 5.8282656277673675e-6 .9999999999829474 5.839968972401306e-6 .9999999999828789 5.851672317035243e-6 .9999999999828104 5.86337566166918e-6 .9999999999827417 5.875079006303115e-6 .9999999999826729 5.88678235093705e-6 .9999999999826039 5.898485695570985e-6 .9999999999825349 5.910189040204917e-6 .9999999999824656 5.92189238483885e-6 .9999999999823962 5.933595729472782e-6 .9999999999823267 5.945299074106713e-6 .9999999999822571 5.957002418740643e-6 .9999999999821872 5.9687057633745715e-6 .9999999999821173 5.9804091080085e-6 ))) (define (make-w log-n) (let ((n (expt 2 log-n))) ;; number of complexes (if (fx<= n lut-table-size) low-lut (let ((result (make-f64vector (fx* 2 n)))) (define (copy-low-lut) (do ((i 0 (fx+ i 1))) ((fx= i lut-table-size)) (let ((index (fx* i 2))) (f64vector-set! result index (f64vector-ref low-lut index)) (f64vector-set! result (fx+ index 1) (f64vector-ref low-lut (fx+ index 1)))))) (define (extend-lut multiplier-lut bit-reverse-size bit-reverse-multiplier start end) (define (bit-reverse x n) (do ((i 0 (fx+ i 1)) (x x (fxarithmetic-shift-right x 1)) (result 0 (fx+ (fx* result 2) (bitwise-and x 1)))) ((fx= i n) result))) (let loop ((i start) (j 1)) (if (fx< i end) (let* ((multiplier-index (fx* 2 (fx* (bit-reverse j bit-reverse-size) bit-reverse-multiplier))) (multiplier-real (f64vector-ref multiplier-lut multiplier-index)) (multiplier-imag (f64vector-ref multiplier-lut (fx+ multiplier-index 1)))) (let inner ((i i) (k 0)) ;; we copy complex multiples of all entries below ;; start to entries starting at start (if (fx< k start) (let* ((index (fx* k 2)) (real (f64vector-ref result index)) (imag (f64vector-ref result (fx+ index 1))) (result-real (fl- (fl* multiplier-real real) (fl* multiplier-imag imag))) (result-imag (fl+ (fl* multiplier-real imag) (fl* multiplier-imag real))) (result-index (fx* i 2))) (f64vector-set! result result-index result-real) (f64vector-set! result (fx+ result-index 1) result-imag) (inner (fx+ i 1) (fx+ k 1))) (loop i (fx+ j 1))))) result))) (cond ((fx<= n lut-table-size^2) (copy-low-lut) (extend-lut med-lut (fx- log-n log-lut-table-size) (fxarithmetic-shift-left 1 (fx- (fx* 2 log-lut-table-size) log-n)) lut-table-size n)) ((fx<= n lut-table-size^3) (copy-low-lut) (extend-lut med-lut log-lut-table-size 1 lut-table-size lut-table-size^2) (extend-lut high-lut (fx- log-n (fx* 2 log-lut-table-size)) (fxarithmetic-shift-left 1 (fx- (fx* 3 log-lut-table-size) log-n)) lut-table-size^2 n)) (else (error "asking for too large a table"))))))) (define (direct-fft-recursive-4 a W-table) ;; This is a direcct complex fft, using a decimation-in-time ;; algorithm with inputs in natural order and outputs in ;; bit-reversed order. The table of "twiddle" factors is in ;; bit-reversed order. ;; this is from page 66 of Chu and George, except that we have ;; combined passes in pairs to cut the number of passes through ;; the vector a (let ((W (f64vector 0. 0. 0. 0.))) (define (main-loop M N K SizeOfGroup) (let inner-loop ((K K) (JFirst M)) (if (fx< JFirst N) (let* ((JLast (fx+ JFirst SizeOfGroup))) (if (fxeven? K) (begin (f64vector-set! W 0 (f64vector-ref W-table K)) (f64vector-set! W 1 (f64vector-ref W-table (fx+ K 1)))) (begin (f64vector-set! W 0 (fl- 0. (f64vector-ref W-table K))) (f64vector-set! W 1 (f64vector-ref W-table (fx- K 1))))) ;; we know the that the next two complex roots of ;; unity have index 2K and 2K+1 so that the 2K+1 ;; index root can be gotten from the 2K index root ;; in the same way that we get W_0 and W_1 from the ;; table depending on whether K is even or not (f64vector-set! W 2 (f64vector-ref W-table (fx* K 2))) (f64vector-set! W 3 (f64vector-ref W-table (fx+ (fx* K 2) 1))) (let J-loop ((J0 JFirst)) (if (fx< J0 JLast) (let* ((J0 J0) (J1 (fx+ J0 1)) (J2 (fx+ J0 SizeOfGroup)) (J3 (fx+ J2 1)) (J4 (fx+ J2 SizeOfGroup)) (J5 (fx+ J4 1)) (J6 (fx+ J4 SizeOfGroup)) (J7 (fx+ J6 1))) (let ((W_0 (f64vector-ref W 0)) (W_1 (f64vector-ref W 1)) (W_2 (f64vector-ref W 2)) (W_3 (f64vector-ref W 3)) (a_J0 (f64vector-ref a J0)) (a_J1 (f64vector-ref a J1)) (a_J2 (f64vector-ref a J2)) (a_J3 (f64vector-ref a J3)) (a_J4 (f64vector-ref a J4)) (a_J5 (f64vector-ref a J5)) (a_J6 (f64vector-ref a J6)) (a_J7 (f64vector-ref a J7))) ;; first we do the (overlapping) pairs of ;; butterflies with entries 2*SizeOfGroup ;; apart. (let ((Temp_0 (fl- (fl* W_0 a_J4) (fl* W_1 a_J5))) (Temp_1 (fl+ (fl* W_0 a_J5) (fl* W_1 a_J4))) (Temp_2 (fl- (fl* W_0 a_J6) (fl* W_1 a_J7))) (Temp_3 (fl+ (fl* W_0 a_J7) (fl* W_1 a_J6)))) (let ((a_J0 (fl+ a_J0 Temp_0)) (a_J1 (fl+ a_J1 Temp_1)) (a_J2 (fl+ a_J2 Temp_2)) (a_J3 (fl+ a_J3 Temp_3)) (a_J4 (fl- a_J0 Temp_0)) (a_J5 (fl- a_J1 Temp_1)) (a_J6 (fl- a_J2 Temp_2)) (a_J7 (fl- a_J3 Temp_3))) ;; now we do the two (disjoint) pairs ;; of butterflies distance SizeOfGroup ;; apart, the first pair with W2+W3i, ;; the second with -W3+W2i ;; we rewrite the multipliers so I ;; don't hurt my head too much when ;; thinking about them. (let ((W_0 W_2) (W_1 W_3) (W_2 (fl- 0. W_3)) (W_3 W_2)) (let ((Temp_0 (fl- (fl* W_0 a_J2) (fl* W_1 a_J3))) (Temp_1 (fl+ (fl* W_0 a_J3) (fl* W_1 a_J2))) (Temp_2 (fl- (fl* W_2 a_J6) (fl* W_3 a_J7))) (Temp_3 (fl+ (fl* W_2 a_J7) (fl* W_3 a_J6)))) (let ((a_J0 (fl+ a_J0 Temp_0)) (a_J1 (fl+ a_J1 Temp_1)) (a_J2 (fl- a_J0 Temp_0)) (a_J3 (fl- a_J1 Temp_1)) (a_J4 (fl+ a_J4 Temp_2)) (a_J5 (fl+ a_J5 Temp_3)) (a_J6 (fl- a_J4 Temp_2)) (a_J7 (fl- a_J5 Temp_3))) (f64vector-set! a J0 a_J0) (f64vector-set! a J1 a_J1) (f64vector-set! a J2 a_J2) (f64vector-set! a J3 a_J3) (f64vector-set! a J4 a_J4) (f64vector-set! a J5 a_J5) (f64vector-set! a J6 a_J6) (f64vector-set! a J7 a_J7) (J-loop (fx+ J0 2))))))))) (inner-loop (fx+ K 1) (fx+ JFirst (fx* SizeOfGroup 4))))))))) (define (recursive-bit M N K SizeOfGroup) (if (fx<= 2 SizeOfGroup) (begin (main-loop M N K SizeOfGroup) (if (fx< 2048 (fx- N M)) (let ((new-size (fxarithmetic-shift-right (fx- N M) 2))) (recursive-bit M (fx+ M new-size) (fx* K 4) (fxarithmetic-shift-right SizeOfGroup 2)) (recursive-bit (fx+ M new-size) (fx+ M (fx* new-size 2)) (fx+ (fx* K 4) 1) (fxarithmetic-shift-right SizeOfGroup 2)) (recursive-bit (fx+ M (fx* new-size 2)) (fx+ M (fx* new-size 3)) (fx+ (fx* K 4) 2) (fxarithmetic-shift-right SizeOfGroup 2)) (recursive-bit (fx+ M (fx* new-size 3)) N (fx+ (fx* K 4) 3) (fxarithmetic-shift-right SizeOfGroup 2))) (recursive-bit M N (fx* K 4) (fxarithmetic-shift-right SizeOfGroup 2)))))) (define (radix-2-pass a) ;; If we're here, the size of our (conceptually complex) ;; array is not a power of 4, so we need to do a basic radix ;; two pass with w=1 (so W[0]=1.0 and W[1] = 0.) and then ;; call recursive-bit appropriately on the two half arrays. (let ((SizeOfGroup (fxarithmetic-shift-right (f64vector-length a) 1))) (let loop ((J0 0)) (if (fx< J0 SizeOfGroup) (let ((J0 J0) (J2 (fx+ J0 SizeOfGroup))) (let ((J1 (fx+ J0 1)) (J3 (fx+ J2 1))) (let ((a_J0 (f64vector-ref a J0)) (a_J1 (f64vector-ref a J1)) (a_J2 (f64vector-ref a J2)) (a_J3 (f64vector-ref a J3))) (let ((a_J0 (fl+ a_J0 a_J2)) (a_J1 (fl+ a_J1 a_J3)) (a_J2 (fl- a_J0 a_J2)) (a_J3 (fl- a_J1 a_J3))) (f64vector-set! a J0 a_J0) (f64vector-set! a J1 a_J1) (f64vector-set! a J2 a_J2) (f64vector-set! a J3 a_J3) (loop (fx+ J0 2)))))))))) (let* ((n (f64vector-length a)) (log_n (two^p>=m n))) ;; there are n/2 complex entries in a; if n/2 is not a power ;; of 4, then do a single radix-2 pass and do the rest of ;; the passes as radix-4 passes (if (fxodd? log_n) (recursive-bit 0 n 0 (fxarithmetic-shift-right n 2)) (let ((n/2 (fxarithmetic-shift-right n 1)) (n/8 (fxarithmetic-shift-right n 3))) (radix-2-pass a) (recursive-bit 0 n/2 0 n/8) (recursive-bit n/2 n 1 n/8)))))) (define (inverse-fft-recursive-4 a W-table) ;; This is an complex fft, using a decimation-in-frequency algorithm ;; with inputs in bit-reversed order and outputs in natural order. ;; The organization of the algorithm has little to do with the the ;; associated algorithm on page 41 of Chu and George, ;; I just reversed the operations of the direct algorithm given ;; above (without dividing by 2 each time, so that this has to ;; be "normalized" by dividing by N/2 at the end. ;; The table of "twiddle" factors is in bit-reversed order. (let ((W (f64vector 0. 0. 0. 0.))) (define (main-loop M N K SizeOfGroup) (let inner-loop ((K K) (JFirst M)) (if (fx< JFirst N) (let* ((JLast (fx+ JFirst SizeOfGroup))) (if (fxeven? K) (begin (f64vector-set! W 0 (f64vector-ref W-table K)) (f64vector-set! W 1 (f64vector-ref W-table (fx+ K 1)))) (begin (f64vector-set! W 0 (fl- 0. (f64vector-ref W-table K))) (f64vector-set! W 1 (f64vector-ref W-table (fx- K 1))))) (f64vector-set! W 2 (f64vector-ref W-table (fx* K 2))) (f64vector-set! W 3 (f64vector-ref W-table (fx+ (fx* K 2) 1))) (let J-loop ((J0 JFirst)) (if (fx< J0 JLast) (let* ((J0 J0) (J1 (fx+ J0 1)) (J2 (fx+ J0 SizeOfGroup)) (J3 (fx+ J2 1)) (J4 (fx+ J2 SizeOfGroup)) (J5 (fx+ J4 1)) (J6 (fx+ J4 SizeOfGroup)) (J7 (fx+ J6 1))) (let ((W_0 (f64vector-ref W 0)) (W_1 (f64vector-ref W 1)) (W_2 (f64vector-ref W 2)) (W_3 (f64vector-ref W 3)) (a_J0 (f64vector-ref a J0)) (a_J1 (f64vector-ref a J1)) (a_J2 (f64vector-ref a J2)) (a_J3 (f64vector-ref a J3)) (a_J4 (f64vector-ref a J4)) (a_J5 (f64vector-ref a J5)) (a_J6 (f64vector-ref a J6)) (a_J7 (f64vector-ref a J7))) (let ((W_00 W_2) (W_01 W_3) (W_02 (fl- 0. W_3)) (W_03 W_2)) (let ((Temp_0 (fl- a_J0 a_J2)) (Temp_1 (fl- a_J1 a_J3)) (Temp_2 (fl- a_J4 a_J6)) (Temp_3 (fl- a_J5 a_J7))) (let ((a_J0 (fl+ a_J0 a_J2)) (a_J1 (fl+ a_J1 a_J3)) (a_J4 (fl+ a_J4 a_J6)) (a_J5 (fl+ a_J5 a_J7)) (a_J2 (fl+ (fl* W_00 Temp_0) (fl* W_01 Temp_1))) (a_J3 (fl- (fl* W_00 Temp_1) (fl* W_01 Temp_0))) (a_J6 (fl+ (fl* W_02 Temp_2) (fl* W_03 Temp_3))) (a_J7 (fl- (fl* W_02 Temp_3) (fl* W_03 Temp_2)))) (let ((Temp_0 (fl- a_J0 a_J4)) (Temp_1 (fl- a_J1 a_J5)) (Temp_2 (fl- a_J2 a_J6)) (Temp_3 (fl- a_J3 a_J7))) (let ((a_J0 (fl+ a_J0 a_J4)) (a_J1 (fl+ a_J1 a_J5)) (a_J2 (fl+ a_J2 a_J6)) (a_J3 (fl+ a_J3 a_J7)) (a_J4 (fl+ (fl* W_0 Temp_0) (fl* W_1 Temp_1))) (a_J5 (fl- (fl* W_0 Temp_1) (fl* W_1 Temp_0))) (a_J6 (fl+ (fl* W_0 Temp_2) (fl* W_1 Temp_3))) (a_J7 (fl- (fl* W_0 Temp_3) (fl* W_1 Temp_2)))) (f64vector-set! a J0 a_J0) (f64vector-set! a J1 a_J1) (f64vector-set! a J2 a_J2) (f64vector-set! a J3 a_J3) (f64vector-set! a J4 a_J4) (f64vector-set! a J5 a_J5) (f64vector-set! a J6 a_J6) (f64vector-set! a J7 a_J7) (J-loop (fx+ J0 2))))))))) (inner-loop (fx+ K 1) (fx+ JFirst (fx* SizeOfGroup 4))))))))) (define (recursive-bit M N K SizeOfGroup) (if (fx<= 2 SizeOfGroup) (begin (if (fx< 2048 (fx- N M)) (let ((new-size (fxarithmetic-shift-right (fx- N M) 2))) (recursive-bit M (fx+ M new-size) (fx* K 4) (fxarithmetic-shift-right SizeOfGroup 2)) (recursive-bit (fx+ M new-size) (fx+ M (fx* new-size 2)) (fx+ (fx* K 4) 1) (fxarithmetic-shift-right SizeOfGroup 2)) (recursive-bit (fx+ M (fx* new-size 2)) (fx+ M (fx* new-size 3)) (fx+ (fx* K 4) 2) (fxarithmetic-shift-right SizeOfGroup 2)) (recursive-bit (fx+ M (fx* new-size 3)) N (fx+ (fx* K 4) 3) (fxarithmetic-shift-right SizeOfGroup 2))) (recursive-bit M N (fx* K 4) (fxarithmetic-shift-right SizeOfGroup 2))) (main-loop M N K SizeOfGroup)))) (define (radix-2-pass a) (let ((SizeOfGroup (fxarithmetic-shift-right (f64vector-length a) 1))) (let loop ((J0 0)) (if (fx< J0 SizeOfGroup) (let ((J0 J0) (J2 (fx+ J0 SizeOfGroup))) (let ((J1 (fx+ J0 1)) (J3 (fx+ J2 1))) (let ((a_J0 (f64vector-ref a J0)) (a_J1 (f64vector-ref a J1)) (a_J2 (f64vector-ref a J2)) (a_J3 (f64vector-ref a J3))) (let ((a_J0 (fl+ a_J0 a_J2)) (a_J1 (fl+ a_J1 a_J3)) (a_J2 (fl- a_J0 a_J2)) (a_J3 (fl- a_J1 a_J3))) (f64vector-set! a J0 a_J0) (f64vector-set! a J1 a_J1) (f64vector-set! a J2 a_J2) (f64vector-set! a J3 a_J3) (loop (fx+ J0 2)))))))))) (let* ((n (f64vector-length a)) (log_n (two^p>=m n))) (if (fxodd? log_n) (recursive-bit 0 n 0 (fxarithmetic-shift-right n 2)) (let ((n/2 (fxarithmetic-shift-right n 1)) (n/8 (fxarithmetic-shift-right n 3))) (recursive-bit 0 n/2 0 n/8) (recursive-bit n/2 n 1 n/8) (radix-2-pass a)))))) (define (two^p>=m m) ;; returns smallest p, assumes fixnum m >= 0 (do ((p 0 (fx+ p 1)) (two^p 1 (fx* two^p 2))) ((fx<= m two^p) p))) (define (test iters n) (let ((two^n (expt 2 n)) (table (make-w (fx- n 1)))) ;(display (fx* two^n 2))(newline) (let ((a (make-f64vector (fx* two^n 2) 0.))) (do ((i 0 (fx+ i 1))) ((fx= i iters) ;(write table) (newline) ) (direct-fft-recursive-4 a table) (inverse-fft-recursive-4 a table))))) (cond-expand (chicken (let-optionals (command-line-arguments) ((iters "2000") (n "11")) (test (string->number iters) (string->number n)))) (else (test 2000 11))) chicken-5.1.0/tests/dwindtst.scm0000644000175000017500000000440513213463160016437 0ustar sjamaansjamaan;;;; "dwindtst.scm", routines for characterizing dynamic-wind. ;Copyright (C) 1992 Aubrey Jaffer ; ;Permission to copy this software, to modify it, to redistribute it, ;to distribute modified versions, and to use it for any purpose is ;granted, subject to the following restrictions and understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. ; ;2. I have made no warranty or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; ;3. In conjunction with products arising from the use of this ;material, there shall be no use of my name in any advertising, ;promotional, or sales literature without prior written consent in ;each case. (define (dwtest n) (define cont #f) (display "testing escape from thunk") (display n) (newline) (display "visiting:") (newline) (call-with-current-continuation (lambda (x) (set! cont x))) (if n (dynamic-wind (lambda () (display "thunk1") (newline) (if (eqv? n 1) (let ((ntmp n)) (set! n #f) (cont ntmp)))) (lambda () (display "thunk2") (newline) (if (eqv? n 2) (let ((ntmp n)) (set! n #f) (cont ntmp)))) (lambda () (display "thunk3") (newline) (if (eqv? n 3) (let ((ntmp n)) (set! n #f) (cont ntmp))))))) (define (dwctest n) (define cont #f) (define ccont #f) (display "creating continuation thunk") (newline) (display "visiting:") (newline) (call-with-current-continuation (lambda (x) (set! cont x))) (if n (set! n (- n))) (if n (dynamic-wind (lambda () (display "thunk1") (newline) (if (eqv? n 1) (let ((ntmp n)) (set! n #f) (cont ntmp)))) (lambda () (call-with-current-continuation (lambda (x) (set! ccont x))) (display "thunk2") (newline) (if (eqv? n 2) (let ((ntmp n)) (set! n #f) (cont ntmp)))) (lambda () (display "thunk3") (newline) (if (eqv? n 3) (let ((ntmp n)) (set! n #f) (cont ntmp)))))) (cond (n (set! n (- n)) (display "testing escape from continuation thunk") (display n) (newline) (display "visiting:") (newline) (ccont #f)))) (dwtest 1) (dwtest 2) (dwtest 3) (dwctest 1) (dwctest 2) (dwctest 3) chicken-5.1.0/tests/functor-tests.scm0000644000175000017500000001311413370655400017420 0ustar sjamaansjamaan;;;; functor-tests.scm (import chicken.fixnum chicken.port chicken.pretty-print) (include "test.scm") (test-begin "functor tests") ;; (include "test-queue") (include "breadth-first") (define (take lst n) (if (fx<= n 0) '() (cons (car lst) (take (cdr lst) (fx- n 1))))) (module queue1 QUEUE (import (rename scheme (null? empty?) (car head) (cdr dequeue))) (define empty-queue '()) (define (enqueue q x) (append q (list x))) ;(define empty? null?) ;(define head car) ;(define dequeue cdr) ) (module queue2 QUEUE (import (rename scheme (not empty?)) chicken.base) (define-record entry q x) (define empty-queue #f) (define enqueue make-entry) ;(define empty? not) (define (head q) (let ((q2 (entry-q q))) (if (empty? q2) (entry-x q) (head q2)))) (define (dequeue q) (let ((q2 (entry-q q))) (if (empty? q2) empty-queue (make-entry (dequeue q2) (entry-x q)))) )) (module queue3 QUEUE (import scheme chicken.base) (define-record queue heads tails) (define empty-queue (make-queue '() '())) (define (norm q) (if (null? (queue-heads q)) (make-queue (reverse (queue-tails q)) '()) q)) (define (enqueue q x) (norm (make-queue (queue-heads q) (cons x (queue-tails q))))) (define (empty? q) (and (null? (queue-heads q)) (null? (queue-tails q)))) (define (head q) (car (queue-heads q))) (define (dequeue q) (norm (make-queue (cdr (queue-heads q)) (queue-tails q)))) ) (module test-q1 = (test-queue queue1)) (module test-q2 = (test-queue queue2)) (module test-q3 = (test-queue queue3)) (import (rename test-q1 (list->queue l2q1) (queue->list q2l1))) (import (rename test-q2 (list->queue l2q2) (queue->list q2l2))) (import (rename test-q3 (list->queue l2q3) (queue->list q2l3))) (define (list-tabulate n proc) (let loop ((i 0)) (if (fx>= i n) '() (cons (proc i) (loop (fx+ i 1)))))) (define long-list (list-tabulate (cond-expand (csi 500) (else 1000)) identity)) (print "Queue representation #1:") (time (q2l1 (l2q1 long-list))) (print "Queue representation #2:") (time (q2l2 (l2q2 long-list))) (print "Queue representation #3:") (time (q2l3 (l2q3 long-list))) (module breadth = (breadth-first queue3)) (import breadth) (define (next-char lst) (list (cons #\A lst) (cons #\B lst) (cons #\C lst))) (define (show n csq) (map list->string (take csq 1))) ;;XXX shows (""), which looks wrong: (pp (show 8 (search next-char '()))) ;XXX assert ;; list-style library names (functor ((double printer) ((P (chicken base)) (print))) (print-twice) (import (scheme) P) (define (print-twice x) (print x) (print x))) (module (noop printer) * (import (only (scheme) define) (only (chicken base) void)) (define print void)) (module (2x print) = ((double printer))) (module (2x noop) = ((double printer) (noop printer))) (module (2x write) = (double printer) (import (chicken module)) (reexport (rename (scheme) (write print)))) (define output (with-output-to-string (lambda () (import (2x print)) (print-twice #\a) (import (2x noop)) (print-twice #\a) (import (2x write)) (print-twice #\a)))) (test-equal "double printer" output "a\na\n#\\a#\\a") ;; Test for errors #+csi (begin (module m1 ()) (test-error "argument mismatch" (eval '(module m2 = (breadth-first m1)))) (test-error "undefined module" (eval '(module m2 = (breadth-first hunoz)))) (test-error "undefined interface" (eval '(module m2 HUNOZ))) (test-error "undefined interface in functor" (eval '(functor (f1 (X HUNOZ)) ()))) (test-error "undefined interface in functor result" (eval '(functor (f1 (X ())) HUNOZ))) ) ;; Test alternative instantiation syntax: (functor (frob (X (yibble))) * (import chicken.base X) yibble) ;; XXX This is somewhat iffy: functor instantiation results in a ;; value! (test-equal "alternative functor instantiation syntax" (module yabble = frob (import scheme) (define yibble 99)) 99) ;; Test optional functor arguments (functor (greet ((X default-writer) (write-greeting))) * (import scheme X) (define (greetings) (write-greeting 'Hello!))) (module default-writer (write-greeting) (import scheme) (define write-greeting list)) (module writer (write-greeting) (import scheme) (define write-greeting vector)) (module greet1 = (greet writer)) (module greet2 = (greet)) (test-equal "optional functor argument #1" (module m2 () (import greet1) (greetings)) '#(Hello!)) (test-equal "optional functor argument #2" (module m3 () (import greet2) (greetings)) '(Hello!)) ;; Optional functor syntax with builtin ("primitive") modules: (functor (wrapper ((X scheme) (vector))) * (import (except scheme vector) X) (define (wrap x) (vector x))) (module default-wrapper (vector) (import scheme)) (module list-wrapper (vector) (import (rename (only scheme list) (list vector)))) (module lwrap = (wrapper list-wrapper)) (module vwrap = (wrapper)) (test-equal "primitive optional functor argument #1" (module m4 () (import lwrap) (wrap 99)) '(99)) (test-equal "primitive optional functor argument #2" (module m5 () (import vwrap) (wrap 99)) '#(99)) ;; Module implementing functor plus more exports did not expose the ;; additional exports (pointed out by Martin Schneeweis, patch ;; suggested by megane) (define-interface iface-a (some-a)) (module iface-a-plus-extra ((interface: iface-a) extra-a) (import scheme (chicken base)) (define extra-a 'extra-a) (define some-a 'some-a)) (test-equal "Functor with extra exports" (module m6 () (import iface-a-plus-extra scheme) (list extra-a some-a)) '(extra-a some-a)) ;; (test-end) (test-exit) chicken-5.1.0/tests/scrutiny-tests-2.scm0000644000175000017500000000110413213463160017747 0ustar sjamaansjamaan;;;; scrutiny-tests-2.scm (define-syntax predicate (syntax-rules () ((_ pred (proto ...) (nonproto ...)) (begin (assert (pred proto)) ... (assert (not (pred nonproto))) ...)))) ;;; (let* ((p '(1 . 2)) (l (list)) (n '()) (i 123) (f 12.3) (u (+ i f))) (predicate pair? (p) (l n i f)) (predicate list? (l n) (p i f)) (predicate null? (n l) (p i f)) (predicate fixnum? (i) (f u)) (predicate exact? (i) (f u)) (predicate flonum? (f u) (i)) (predicate inexact? (f u) (i)) (predicate number? (i f u) (n))) chicken-5.1.0/tests/finalizer-error-test.scm0000644000175000017500000000057213370655400020673 0ustar sjamaansjamaan;;;; finalizer-error-test.scm - by "megane" (import (chicken gc)) (define n 10000) (define (make-objects n) (let loop [(i 0)] (let [(o (make-vector 100))] ;(print "making " i) (set-finalizer! o (lambda (ob) (print* " " i))) (if (< i n) (loop (+ 1 i)))))) (set-finalizer! (make-vector 100) (lambda (ob) (+ i 'a))) (make-objects n) (print "done") chicken-5.1.0/tests/use-square-functor.scm0000644000175000017500000000054513213463160020350 0ustar sjamaansjamaan;;; use-square-functor.scm (import square-functor) (module num (*) (import scheme)) (module lst (*) (import (except scheme *)) (define (* x y) (list x y))) (module sf1 = (square-functor num)) (module sf2 = (square-functor lst)) (import (prefix sf1 sf1:)) (import (prefix sf2 sf2:)) (assert (= 9 (sf1:square 3))) (assert (equal? '(3 3) (sf2:square 3))) chicken-5.1.0/tests/loopy-test.scm0000644000175000017500000001176713370655400016733 0ustar sjamaansjamaan(import (only chicken.format printf) (only chicken.time current-milliseconds) chicken.load) (load-relative "loopy-loop.scm") (load-relative "matchable.scm") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; SRFI-64 subset + test-approx= (define *pass* 0) (define *fail* 0) (define *start* 0) (define (run-test name thunk expect eq pass-msg fail-msg) (let ((result (thunk))) (cond ((eq expect result) (set! *pass* (+ *pass* 1)) (format-result pass-msg name expect result)) (else (set! *fail* (+ *fail* 1)) (format-result fail-msg name expect result))))) (define (format-result ls name expect result) (let lp ((ls ls)) (cond ((null? ls) (newline)) ((eq? (car ls) 'expect) (display expect) (lp (cdr ls))) ((eq? (car ls) 'result) (display result) (lp (cdr ls))) ((eq? (car ls) 'name) (if name (begin (display #\space) (display name))) (lp (cdr ls))) (else (display (car ls)) (lp (cdr ls)))))) (define (test-begin . o) (set! *pass* 0) (set! *fail* 0) (set! *start* (current-milliseconds))) (define (format-float n prec) (let* ((str (number->string n)) (len (string-length str))) (let lp ((i (- len 1))) (cond ((negative? i) (string-append str "." (make-string prec #\0))) ((eqv? #\. (string-ref str i)) (let ((diff (+ 1 (- prec (- len i))))) (cond ((positive? diff) (string-append str (make-string diff #\0))) ((negative? diff) (substring str 0 (+ i prec 1))) (else str)))) (else (lp (- i 1))))))) (define (format-percent num denom) (let ((x (if (zero? denom) num (exact->inexact (/ num denom))))) (format-float (* 100 x) 2))) (define (test-end . o) (let ((end (current-milliseconds)) (total (+ *pass* *fail*))) (printf " ~A tests completed in ~A seconds\n" total (format-float (exact->inexact (/ (- end *start*) 1000)) 3)) (printf " ~A (~A%) tests passed\n" *pass* (format-percent *pass* total)) (printf " ~A (~A%) tests failed\n" *fail* (format-percent *fail* total)))) (define-syntax test-assert (syntax-rules () ((_ x opt) (run-assert x (lambda () opt))) ((_ x ) (run-assert 'x (lambda () x))))) (define (run-equal name thunk expect eq) (run-test name thunk expect eq '("(PASS)" name) '("(FAIL)" name ": expected " expect " but got " result))) (define-syntax test-equal (syntax-rules () ((_ x y opt) (run-equal x (lambda () y) opt equal?)) ((_ x y) (run-equal 'x (lambda () x) y equal?)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; run tests (test-begin "loop") (test-equal "stepping" (loop lp ((i 0 (+ i 1)) (res '() (cons i res))) (if (= i 3) (reverse res) (lp))) '(0 1 2)) (test-equal "basic in-list" (let ((res '())) (loop ((x <- in-list '(a b c))) (set! res (cons x res))) res) '(c b a)) (test-equal "in-list with result" (loop ((x <- in-list '(a b c)) (res '() (cons x res))) => res) '(c b a)) (test-equal "in-list with collecting" (loop ((x <- in-list '(a b c)) (res <- collecting x)) => res) '(a b c)) (test-equal "uneven length in-list's" (loop ((x <- in-list '(a b c)) (y <- in-list '(1 2 3 4)) (res <- collecting (cons x y))) => res) '((a . 1) (b . 2) (c . 3))) (test-equal "in-lists" (loop ((ls <- in-lists '((a b c) (1 2 3))) (res <- collecting ls)) => res) '((a 1) (b 2) (c 3))) (define (flatten ls) (reverse (loop lp ((x ls <- in-list ls) (res '())) => res (if (pair? x) (lp res <- (lp ls <- x)) (lp res <- (cons x res)))))) (test-equal "flatten (recursion test)" (flatten '(1 (2) (3 (4 (5)) 6) 7)) '(1 2 3 4 5 6 7)) (test-equal "in-string" (loop ((c <- in-string "hello") (res <- collecting c)) => res) '(#\h #\e #\l #\l #\o)) (test-equal "in-string with start" (loop ((c <- in-string "hello" 3) (res <- collecting c)) => res) '(#\l #\o)) (test-equal "in-string with start and end" (loop ((c <- in-string "hello" 0 4) (res <- collecting c)) => res) '(#\h #\e #\l #\l)) (test-equal "in-string with start, end and step" (loop ((c <- in-string "hello" 1 4 2) (res <- collecting c)) => res) '(#\e #\l)) (test-equal "in-string-reverse" (loop ((c <- in-string-reverse "hello") (res <- collecting c)) => res) '(#\o #\l #\l #\e #\h)) (test-equal "in-vector" (loop ((x <- in-vector '#(1 2 3)) (res <- collecting x)) => res) '(1 2 3)) (test-equal "in-permutations" (loop ((p <- in-permutations '(a b c)) (res <- collecting p)) => res) '((a b c) (a c b) (b a c) (b c a) (c a b) (c b a))) (test-equal "in-permutations with length" (loop ((p <- in-permutations '(a b c) 2) (res <- collecting p)) => res) '((a b) (a c) (b a) (b c) (c a) (c b))) (test-equal "in-combinations" (loop ((p <- in-combinations '(a b c) 2) (res <- collecting p)) => res) '((a b) (a c) (b c))) (test-end "loop") chicken-5.1.0/tests/clustering-tests.scm0000644000175000017500000000026013370655400020115 0ustar sjamaansjamaan;;; clustering-tests.scm ;; triggers `determine-loop-and-dispatch` (let () (define (a x) (if (= x 0) x (b (sub1 x)))) (define (b x) (if (= x 0) x (a (sub1 x)))) (a 10)) chicken-5.1.0/tests/syntax-rule-stress-test.scm0000644000175000017500000001513113242262755021377 0ustar sjamaansjamaan; A stress test of the syntax-rule macro-expander. ; The following code, when evaluated, prints if number 5 is prime. ; The code implements the sieve of Eratosthenes, (see the macro ?sieve) ; The code is generated automatically by the Scheme-to-syntax-rule ; compiler. ; See macros.html in this directory for more detail. (define-syntax ??!apply (syntax-rules (??!lambda) ((_ (??!lambda (bound-var . other-bound-vars) body) oval . other-ovals) (letrec-syntax ((subs (syntax-rules (??! bound-var ??!lambda) ((_ val k (??! bound-var)) (appl k val)) ((_ val k (??!lambda bvars int-body)) (subs-in-lambda val bvars (k bvars) int-body)) ((_ val k (x)) (subs val (recon-pair val k ()) x)) ((_ val k (x . y)) (subs val (subsed-cdr val k x) y)) ((_ val k x) (appl k x)))) (subsed-cdr (syntax-rules () ((_ val k x new-y) (subs val (recon-pair val k new-y) x)))) (recon-pair (syntax-rules () ((_ val k new-y new-x) (appl k (new-x . new-y))))) (subs-in-lambda (syntax-rules (bound-var) ((_ val () kp int-body) (subs val (recon-l kp ()) int-body)) ((_ val (bound-var . obvars) (k bvars) int-body) (appl k (??!lambda bvars int-body))) ((_ val (obvar . obvars) kp int-body) (subs-in-lambda val obvars kp int-body)))) (recon-l (syntax-rules () ((_ (k bvars) () result) (appl k (??!lambda bvars result))))) (appl (syntax-rules () ((_ (a b c d) result) (a b c d result)) ((_ (a b c) result) (a b c result)))) (finish (syntax-rules () ((_ () () exp) exp) ((_ rem-bvars rem-ovals exps) (??!apply (??!lambda rem-bvars exps) . rem-ovals))))) (subs oval (finish other-bound-vars other-ovals) body))))) (define-syntax ?car (syntax-rules () ((_ (x . y) k) (??!apply k x)))) (define-syntax ?cdr (syntax-rules () ((_ (x . y) k) (??!apply k y)))) (define-syntax ?cons (syntax-rules () ((_ x y k) (??!apply k (x . y))))) (define-syntax ?null? (syntax-rules () ((_ () k) (??!apply k #t)) ((_ x k) (??!apply k #f)))) (define-syntax ?ifnull? (syntax-rules () ((_ () kt kf) (??!apply kt #t)) ((_ x kt kf) (??!apply kf #f)))) (define-syntax ?pair? (syntax-rules () ((_ (a . b) k) (??!apply k #t)) ((_ not-pair k) (??!apply k #f)))) (define-syntax ?ifpair? (syntax-rules () ((_ (a . b) kt kf) (??!apply kt #t)) ((_ not-pair kt kf) (??!apply kf #f)))) (define-syntax ?true? (syntax-rules () ((_ x k) (??!apply k x)))) (define-syntax ?iftrue? (syntax-rules () ((_ #f kt kf) (??!apply kf #f)) ((_ x kt kf) (??!apply kt #t)))) (define-syntax ?append (syntax-rules () ((_ (x ...) (y ...) k) (??!apply k (x ... y ...))))) (define-syntax ?ifeq? (syntax-rules () ((_ (x . y) b kt kf) (??!apply kf #f)) ((_ () b kt kf) (??!apply kf #f)) ((_ a b _kt _kf) (let-syntax ((aux (syntax-rules (a) ((_ a kt kf) (??!apply kt #t)) ((_ other kt kf) (??!apply kf #f))))) (aux b _kt _kf))))) (define-syntax ?ifmemq? (syntax-rules () ((_ a lst kt kf) (?ifpair? lst (??!lambda (_) (?car lst (??!lambda (x) (?ifeq? a (??! x) (??!lambda (_) (??!apply kt #t)) (??!lambda (_) (?cdr lst (??!lambda (tail) (?ifmemq? a (??! tail) kt kf)))))))) (??!lambda (_) (??!apply kf #f)))))) (define-syntax ?number-zero (syntax-rules () ((_ k) (??!apply k ())))) (define-syntax ?number-two (syntax-rules () ((_ k) (??!apply k ((())))))) (define-syntax ?incr (syntax-rules () ((_ n k) (??!apply k (n))))) (define-syntax ?decr (syntax-rules () ((_ (n) k) (??!apply k n)))) (define-syntax ?less-than-two? (syntax-rules () ((_ ((n)) k) (??!apply k #f)) ((_ x k) (??!apply k #t)))) (define-syntax ?ifless-than-two? (syntax-rules () ((_ ((n)) kt kf) (??!apply kf #f)) ((_ x kt kf) (??!apply kt #t)))) (define-syntax ?number-zero? (syntax-rules () ((_ () k) (??!apply k #t)) ((_ x k) (??!apply k #f)))) (define-syntax ?ifnumber-zero? (syntax-rules () ((_ () kt kf) (??!apply kt #t)) ((_ x kt kf) (??!apply kf #f)))) (define-syntax ?iota (syntax-rules () ((_ _?n _?kg1029) (letrec-syntax ((?loop (syntax-rules () ((_ _?currg1031 _?counterg1032 _?kg1030) (?ifless-than-two? _?counterg1032 (??!lambda (g1033) (??!apply _?kg1030 ())) (??!lambda (g1034) (?incr _?currg1031 (??!lambda (g1036) (?decr _?counterg1032 (??!lambda (g1037) (?loop (??! g1036) (??! g1037) (??!lambda (g1035) (?cons _?currg1031 (??! g1035) _?kg1030))))))))))))) (?number-two (??!lambda (g1038) (?loop (??! g1038) _?n _?kg1029))))))) (define-syntax ?sieve (syntax-rules () ((_ _?lst _?kg1039) (letrec-syntax ((?choose-pivot (syntax-rules () ((_ _?lstg1041 _?kg1040) (?ifnull? _?lstg1041 (??!lambda (g1042) (??!apply _?kg1040 _?lstg1041)) (??!lambda (g1043) (?car _?lstg1041 (??!lambda (g1057) (?number-zero? (??! g1057) (??!lambda (g1044) (?iftrue? (??! g1044) (??!lambda (g1045) (?car _?lstg1041 (??!lambda (g1046) (?cdr _?lstg1041 (??!lambda (g1048) (?choose-pivot (??! g1048) (??!lambda (g1047) (?cons (??! g1046) (??! g1047) _?kg1040)))))))) (??!lambda (g1049) (?car _?lstg1041 (??!lambda (g1050) (?car _?lstg1041 (??!lambda (g1053) (?car _?lstg1041 (??!lambda (g1056) (?decr (??! g1056) (??!lambda (g1054) (?cdr _?lstg1041 (??!lambda (g1055) (?do-sieve (??! g1053) (??! g1054) (??! g1055) (??!lambda (g1052) (?choose-pivot (??! g1052) (??!lambda (g1051) (?cons (??! g1050) (??! g1051) _?kg1040)))))))))))))))))))))))))) (?do-sieve (syntax-rules () ((_ _?stepg1059 _?currentg1060 _?lstg1061 _?kg1058) (?ifnull? _?lstg1061 (??!lambda (g1062) (??!apply _?kg1058 _?lstg1061)) (??!lambda (g1063) (?ifnumber-zero? _?currentg1060 (??!lambda (g1064) (?number-zero (??!lambda (g1065) (?decr _?stepg1059 (??!lambda (g1067) (?cdr _?lstg1061 (??!lambda (g1068) (?do-sieve _?stepg1059 (??! g1067) (??! g1068) (??!lambda (g1066) (?cons (??! g1065) (??! g1066) _?kg1058)))))))))) (??!lambda (g1069) (?car _?lstg1061 (??!lambda (g1070) (?decr _?currentg1060 (??!lambda (g1072) (?cdr _?lstg1061 (??!lambda (g1073) (?do-sieve _?stepg1059 (??! g1072) (??! g1073) (??!lambda (g1071) (?cons (??! g1070) (??! g1071) _?kg1058))))))))))))))))) (?choose-pivot _?lst _?kg1039))))) (define-syntax ?is-prime (syntax-rules () ((_ _?n _?kg1074) (?iota _?n (??!lambda (g1081) (?sieve (??! g1081) (??!lambda (g1080) (?reverse (??! g1080) (??!lambda (g1079) (?car (??! g1079) (??!lambda (g1078) (?number-zero? (??! g1078) (??!lambda (g1075) (?iftrue? (??! g1075) (??!lambda (g1076) (??!apply _?kg1074 composite)) (??!lambda (g1077) (??!apply _?kg1074 prime)))))))))))))))) (define-syntax ?reverse (syntax-rules () ((_ _?lst _?kg1082) (letrec-syntax ((?loop (syntax-rules () ((_ _?lstg1084 _?accumg1085 _?kg1083) (?ifnull? _?lstg1084 (??!lambda (g1086) (??!apply _?kg1083 _?accumg1085)) (??!lambda (g1087) (?cdr _?lstg1084 (??!lambda (g1088) (?car _?lstg1084 (??!lambda (g1090) (?cons (??! g1090) _?accumg1085 (??!lambda (g1089) (?loop (??! g1088) (??! g1089) _?kg1083))))))))))))) (?loop _?lst () _?kg1082))))) (?is-prime (((((()))))) (??!lambda (x) (display (quote (??! x))))) (newline)chicken-5.1.0/tests/multiple-values.scm0000644000175000017500000000122013502227553017724 0ustar sjamaansjamaan(define-syntax assert-fail (syntax-rules () ((_ exp) (assert (handle-exceptions ex #t exp #f))))) (define (f x) #t) ;; Relaxed cases (assert (f (values 1 2 3))) (assert-fail (call/cc (lambda (k) (k 1 2 3)))) ; For now it should fail, see #1601 ;; Strict cases (assert-fail (call-with-values (lambda () (values 1 2 3)) f)) (assert-fail (call-with-values (lambda () (call/cc (lambda (k) (k 1 2 3)))) f)) ;; Sanity check for strict cases with correct argument count (assert (call-with-values (lambda () (values 1)) f)) (assert (call-with-values (lambda () 1) f)) (assert (call-with-values (lambda () (call/cc (lambda (k) (k 1)))) f)) chicken-5.1.0/tests/ec-tests.scm0000644000175000017500000004564713370655400016347 0ustar sjamaansjamaan; ; Examples for Eager Comprehensions in [outer..inner|expr]-Convention ; =================================================================== ; ; sebastian.egner@philips.com, Eindhoven, The Netherlands, 26-Dec-2007. ; Scheme R5RS (incl. macros), SRFI-23 (error). ; ; Running the examples in Scheme48 (version 1.1): ; ,open srfi-23 ; ,load ec.scm ; (define my-open-output-file open-output-file) ; (define my-call-with-input-file call-with-input-file) ; ,load examples.scm ; ; Running the examples in PLT/DrScheme (version 317): ; (load "ec.scm") ; (define (my-open-output-file filename) ; (open-output-file filename 'replace 'text) ) ; (define (my-call-with-input-file filename thunk) ; (call-with-input-file filename thunk 'text) ) ; (load "examples.scm") ; ; Running the examples in SCM (version 5d7): ; (require 'macro) (require 'record) ; (load "ec.scm") ; (define my-open-output-file open-output-file) ; (define my-call-with-input-file call-with-input-file) ; (load "examples.scm") (import ec) (define my-open-output-file open-output-file) (define my-call-with-input-file call-with-input-file) ; Tools for checking results ; ========================== (define (my-equal? x y) (cond ((or (boolean? x) (null? x) (symbol? x) (char? x) (input-port? x) (output-port? x) ) (eqv? x y) ) ((string? x) (and (string? y) (string=? x y)) ) ((vector? x) (and (vector? y) (my-equal? (vector->list x) (vector->list y)) )) ((pair? x) (and (pair? y) (my-equal? (car x) (car y)) (my-equal? (cdr x) (cdr y)) )) ((real? x) (and (real? y) (eqv? (exact? x) (exact? y)) (if (exact? x) (= x y) (< (abs (- x y)) (/ 1 (expt 10 6))) ))) ; will do here (else (error "unrecognized type" x) ))) (define my-check-correct 0) (define my-check-wrong 0) (define-syntax my-check (syntax-rules (=>) ((my-check ec => desired-result) (begin (newline) (write (quote ec)) (newline) (let ((actual-result ec)) (display " => ") (write actual-result) (if (my-equal? actual-result desired-result) (begin (display " ; correct") (set! my-check-correct (+ my-check-correct 1)) ) (begin (display " ; *** wrong ***, desired result:") (newline) (display " => ") (write desired-result) (set! my-check-wrong (+ my-check-wrong 1)) )) (newline) ))))) ; ========================================================================== ; do-ec ; ========================================================================== (my-check (let ((x 0)) (do-ec (set! x (+ x 1))) x) => 1) (my-check (let ((x 0)) (do-ec (:range i 10) (set! x (+ x 1))) x) => 10) (my-check (let ((x 0)) (do-ec (:range n 10) (:range k n) (set! x (+ x 1))) x) => 45) ; ========================================================================== ; list-ec and basic qualifiers ; ========================================================================== (my-check (list-ec 1) => '(1)) (my-check (list-ec (:range i 4) i) => '(0 1 2 3)) (my-check (list-ec (:range n 3) (:range k (+ n 1)) (list n k)) => '((0 0) (1 0) (1 1) (2 0) (2 1) (2 2)) ) (my-check (list-ec (:range n 5) (if (even? n)) (:range k (+ n 1)) (list n k)) => '((0 0) (2 0) (2 1) (2 2) (4 0) (4 1) (4 2) (4 3) (4 4)) ) (my-check (list-ec (:range n 5) (not (even? n)) (:range k (+ n 1)) (list n k)) => '((1 0) (1 1) (3 0) (3 1) (3 2) (3 3)) ) (my-check (list-ec (:range n 5) (and (even? n) (> n 2)) (:range k (+ n 1)) (list n k) ) => '((4 0) (4 1) (4 2) (4 3) (4 4)) ) (my-check (list-ec (:range n 5) (or (even? n) (> n 3)) (:range k (+ n 1)) (list n k) ) => '((0 0) (2 0) (2 1) (2 2) (4 0) (4 1) (4 2) (4 3) (4 4)) ) (my-check (let ((x 0)) (list-ec (:range n 10) (begin (set! x (+ x 1))) n) x) => 10 ) (my-check (list-ec (nested (:range n 3) (:range k n)) k) => '(0 0 1) ) ; ========================================================================== ; Other comprehensions ; ========================================================================== (my-check (append-ec '(a b)) => '(a b)) (my-check (append-ec (:range i 0) '(a b)) => '()) (my-check (append-ec (:range i 1) '(a b)) => '(a b)) (my-check (append-ec (:range i 2) '(a b)) => '(a b a b)) (my-check (string-ec #\a) => (string #\a)) (my-check (string-ec (:range i 0) #\a) => "") (my-check (string-ec (:range i 1) #\a) => "a") (my-check (string-ec (:range i 2) #\a) => "aa") (my-check (string-append-ec "ab") => "ab") (my-check (string-append-ec (:range i 0) "ab") => "") (my-check (string-append-ec (:range i 1) "ab") => "ab") (my-check (string-append-ec (:range i 2) "ab") => "abab") (my-check (vector-ec 1) => (vector 1)) (my-check (vector-ec (:range i 0) i) => (vector)) (my-check (vector-ec (:range i 1) i) => (vector 0)) (my-check (vector-ec (:range i 2) i) => (vector 0 1)) (my-check (vector-of-length-ec 1 1) => (vector 1)) (my-check (vector-of-length-ec 0 (:range i 0) i) => (vector)) (my-check (vector-of-length-ec 1 (:range i 1) i) => (vector 0)) (my-check (vector-of-length-ec 2 (:range i 2) i) => (vector 0 1)) (my-check (sum-ec 1) => 1) (my-check (sum-ec (:range i 0) i) => 0) (my-check (sum-ec (:range i 1) i) => 0) (my-check (sum-ec (:range i 2) i) => 1) (my-check (sum-ec (:range i 3) i) => 3) (my-check (product-ec 1) => 1) (my-check (product-ec (:range i 1 0) i) => 1) (my-check (product-ec (:range i 1 1) i) => 1) (my-check (product-ec (:range i 1 2) i) => 1) (my-check (product-ec (:range i 1 3) i) => 2) (my-check (product-ec (:range i 1 4) i) => 6) (my-check (min-ec 1) => 1) (my-check (min-ec (:range i 1) i) => 0) (my-check (min-ec (:range i 2) i) => 0) (my-check (max-ec 1) => 1) (my-check (max-ec (:range i 1) i) => 0) (my-check (max-ec (:range i 2) i) => 1) (my-check (first-ec #f 1) => 1) (my-check (first-ec #f (:range i 0) i) => #f) (my-check (first-ec #f (:range i 1) i) => 0) (my-check (first-ec #f (:range i 2) i) => 0) (my-check (let ((last-i -1)) (first-ec #f (:range i 10) (begin (set! last-i i)) i) last-i ) => 0 ) (my-check (last-ec #f 1) => 1) (my-check (last-ec #f (:range i 0) i) => #f) (my-check (last-ec #f (:range i 1) i) => 0) (my-check (last-ec #f (:range i 2) i) => 1) (my-check (any?-ec #f) => #f) (my-check (any?-ec #t) => #t) (my-check (any?-ec (:range i 2 2) (even? i)) => #f) (my-check (any?-ec (:range i 2 3) (even? i)) => #t) (my-check (every?-ec #f) => #f) (my-check (every?-ec #t) => #t) (my-check (every?-ec (:range i 2 2) (even? i)) => #t) (my-check (every?-ec (:range i 2 3) (even? i)) => #t) (my-check (every?-ec (:range i 2 4) (even? i)) => #f) (my-check (let ((sum-sqr (lambda (x result) (+ result (* x x))))) (fold-ec 0 (:range i 10) i sum-sqr) ) => 285 ) (my-check (let ((minus-1 (lambda (x) (- x 1))) (sum-sqr (lambda (x result) (+ result (* x x))))) (fold3-ec (error "wrong") (:range i 10) i minus-1 sum-sqr) ) => 284 ) (my-check (fold3-ec 'infinity (:range i 0) i min min) => 'infinity ) ; ========================================================================== ; Typed generators ; ========================================================================== (my-check (list-ec (:list x '()) x) => '()) (my-check (list-ec (:list x '(1)) x) => '(1)) (my-check (list-ec (:list x '(1 2 3)) x) => '(1 2 3)) (my-check (list-ec (:list x '(1) '(2)) x) => '(1 2)) (my-check (list-ec (:list x '(1) '(2) '(3)) x) => '(1 2 3)) (my-check (list-ec (:string c "") c) => '()) (my-check (list-ec (:string c "1") c) => '(#\1)) (my-check (list-ec (:string c "123") c) => '(#\1 #\2 #\3)) (my-check (list-ec (:string c "1" "2") c) => '(#\1 #\2)) (my-check (list-ec (:string c "1" "2" "3") c) => '(#\1 #\2 #\3)) (my-check (list-ec (:vector x (vector)) x) => '()) (my-check (list-ec (:vector x (vector 1)) x) => '(1)) (my-check (list-ec (:vector x (vector 1 2 3)) x) => '(1 2 3)) (my-check (list-ec (:vector x (vector 1) (vector 2)) x) => '(1 2)) (my-check (list-ec (:vector x (vector 1) (vector 2) (vector 3)) x) => '(1 2 3)) (my-check (list-ec (:range x -2) x) => '()) (my-check (list-ec (:range x -1) x) => '()) (my-check (list-ec (:range x 0) x) => '()) (my-check (list-ec (:range x 1) x) => '(0)) (my-check (list-ec (:range x 2) x) => '(0 1)) (my-check (list-ec (:range x 0 3) x) => '(0 1 2)) (my-check (list-ec (:range x 1 3) x) => '(1 2)) (my-check (list-ec (:range x -2 -1) x) => '(-2)) (my-check (list-ec (:range x -2 -2) x) => '()) (my-check (list-ec (:range x 1 5 2) x) => '(1 3)) (my-check (list-ec (:range x 1 6 2) x) => '(1 3 5)) (my-check (list-ec (:range x 5 1 -2) x) => '(5 3)) (my-check (list-ec (:range x 6 1 -2) x) => '(6 4 2)) (my-check (list-ec (:real-range x 0.0 3.0) x) => '(0. 1. 2.)) (my-check (list-ec (:real-range x 0 3.0) x) => '(0. 1. 2.)) (my-check (list-ec (:real-range x 0 3 1.0) x) => '(0. 1. 2.)) (my-check (string-ec (:char-range c #\a #\z) c) => "abcdefghijklmnopqrstuvwxyz" ) (my-check (begin (let ((f (my-open-output-file "tmp1.out"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1.out" (lambda (port) (list-ec (:port x port read) x)) )) => (list-ec (:range n 10) n) ) (my-check (begin (let ((f (my-open-output-file "tmp1.out"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1.out" (lambda (port) (list-ec (:port x port) x)) )) => (list-ec (:range n 10) n) ) ; ========================================================================== ; The special generators :do :let :parallel :while :until ; ========================================================================== (my-check (list-ec (:do ((i 0)) (< i 4) ((+ i 1))) i) => '(0 1 2 3)) (my-check (list-ec (:do (let ((x 'x))) ((i 0)) (< i 4) (let ((j (- 10 i)))) #t ((+ i 1)) ) j ) => '(10 9 8 7) ) (my-check (list-ec (:let x 1) x) => '(1)) (my-check (list-ec (:let x 1) (:let y (+ x 1)) y) => '(2)) (my-check (list-ec (:let x 1) (:let x (+ x 1)) x) => '(2)) (my-check (list-ec (:parallel (:range i 1 10) (:list x '(a b c))) (list i x)) => '((1 a) (2 b) (3 c)) ) (my-check (list-ec (:while (:range i 1 10) (< i 5)) i) => '(1 2 3 4) ) (my-check (list-ec (:until (:range i 1 10) (>= i 5)) i) => '(1 2 3 4 5) ) ; with generator that might use inner bindings (my-check (list-ec (:while (:list i '(1 2 3 4 5 6 7 8 9)) (< i 5)) i) => '(1 2 3 4) ) ; Was broken in original reference implementation as pointed ; out by sunnan@handgranat.org on 24-Apr-2005 comp.lang.scheme. ; Refer to http://groups-beta.google.com/group/comp.lang.scheme/ ; browse_thread/thread/f5333220eaeeed66/75926634cf31c038#75926634cf31c038 (my-check (list-ec (:until (:list i '(1 2 3 4 5 6 7 8 9)) (>= i 5)) i) => '(1 2 3 4 5) ) (my-check (list-ec (:while (:vector x (index i) '#(1 2 3 4 5)) (< x 10)) x) => '(1 2 3 4 5)) ; Was broken in reference implementation, even after fix for the ; bug reported by Sunnan, as reported by Jens-Axel Soegaard on ; 4-Jun-2007. ; combine :while/:until and :parallel (my-check (list-ec (:while (:parallel (:range i 1 10) (:list j '(1 2 3 4 5 6 7 8 9))) (< i 5)) (list i j)) => '((1 1) (2 2) (3 3) (4 4))) (my-check (list-ec (:until (:parallel (:range i 1 10) (:list j '(1 2 3 4 5 6 7 8 9))) (>= i 5)) (list i j)) => '((1 1) (2 2) (3 3) (4 4) (5 5))) ; check that :while/:until really stop the generator (my-check (let ((n 0)) (do-ec (:while (:range i 1 10) (begin (set! n (+ n 1)) (< i 5))) (if #f #f)) n) => 5) (my-check (let ((n 0)) (do-ec (:until (:range i 1 10) (begin (set! n (+ n 1)) (>= i 5))) (if #f #f)) n) => 5) (my-check (let ((n 0)) (do-ec (:while (:parallel (:range i 1 10) (:do () (begin (set! n (+ n 1)) #t) ())) (< i 5)) (if #f #f)) n) => 5) (my-check (let ((n 0)) (do-ec (:until (:parallel (:range i 1 10) (:do () (begin (set! n (+ n 1)) #t) ())) (>= i 5)) (if #f #f)) n) => 5) ; ========================================================================== ; The dispatching generator ; ========================================================================== (my-check (list-ec (: c '(a b)) c) => '(a b)) (my-check (list-ec (: c '(a b) '(c d)) c) => '(a b c d)) (my-check (list-ec (: c "ab") c) => '(#\a #\b)) (my-check (list-ec (: c "ab" "cd") c) => '(#\a #\b #\c #\d)) (my-check (list-ec (: c (vector 'a 'b)) c) => '(a b)) (my-check (list-ec (: c (vector 'a 'b) (vector 'c)) c) => '(a b c)) (my-check (list-ec (: i 0) i) => '()) (my-check (list-ec (: i 1) i) => '(0)) (my-check (list-ec (: i 10) i) => '(0 1 2 3 4 5 6 7 8 9)) (my-check (list-ec (: i 1 2) i) => '(1)) (my-check (list-ec (: i 1 2 3) i) => '(1)) (my-check (list-ec (: i 1 9 3) i) => '(1 4 7)) (my-check (list-ec (: i 0.0 1.0 0.2) i) => '(0. 0.2 0.4 0.6 0.8)) (my-check (list-ec (: c #\a #\c) c) => '(#\a #\b #\c)) (my-check (begin (let ((f (my-open-output-file "tmp1.out"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1.out" (lambda (port) (list-ec (: x port read) x)) )) => (list-ec (:range n 10) n) ) (my-check (begin (let ((f (my-open-output-file "tmp1.out"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1.out" (lambda (port) (list-ec (: x port) x)) )) => (list-ec (:range n 10) n) ) ; ========================================================================== ; With index variable ; ========================================================================== (my-check (list-ec (:list c (index i) '(a b)) (list c i)) => '((a 0) (b 1))) (my-check (list-ec (:string c (index i) "a") (list c i)) => '((#\a 0))) (my-check (list-ec (:vector c (index i) (vector 'a)) (list c i)) => '((a 0))) (my-check (list-ec (:range i (index j) 0 -3 -1) (list i j)) => '((0 0) (-1 1) (-2 2)) ) (my-check (list-ec (:real-range i (index j) 0 1 0.2) (list i j)) => '((0. 0) (0.2 1) (0.4 2) (0.6 3) (0.8 4)) ) (my-check (list-ec (:char-range c (index i) #\a #\c) (list c i)) => '((#\a 0) (#\b 1) (#\c 2)) ) (my-check (list-ec (: x (index i) '(a b c d)) (list x i)) => '((a 0) (b 1) (c 2) (d 3)) ) (my-check (begin (let ((f (my-open-output-file "tmp1.out"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1.out" (lambda (port) (list-ec (: x (index i) port) (list x i))) )) => '((0 0) (1 1) (2 2) (3 3) (4 4) (5 5) (6 6) (7 7) (8 8) (9 9)) ) ; ========================================================================== ; The examples from the SRFI document ; ========================================================================== ; from Abstract (my-check (list-ec (: i 5) (* i i)) => '(0 1 4 9 16)) (my-check (list-ec (: n 1 4) (: i n) (list n i)) => '((1 0) (2 0) (2 1) (3 0) (3 1) (3 2)) ) ; from Generators (my-check (list-ec (: x (index i) "abc") (list x i)) => '((#\a 0) (#\b 1) (#\c 2)) ) (my-check (list-ec (:string c (index i) "a" "b") (cons c i)) => '((#\a . 0) (#\b . 1)) ) ; ========================================================================== ; Little Shop of Horrors ; ========================================================================== (my-check (list-ec (:range x 5) (:range x x) x) => '(0 0 1 0 1 2 0 1 2 3)) (my-check (list-ec (:list x '(2 "23" (4))) (: y x) y) => '(0 1 #\2 #\3 4)) (my-check (list-ec (:parallel (:integers x) (:do ((i 10)) (< x i) ((- i 1)))) (list x i)) => '((0 10) (1 9) (2 8) (3 7) (4 6)) ) ; ========================================================================== ; Less artificial examples ; ========================================================================== (define (factorial n) ; n * (n-1) * .. * 1 for n >= 0 (product-ec (:range k 2 (+ n 1)) k) ) (my-check (factorial 0) => 1) (my-check (factorial 1) => 1) (my-check (factorial 3) => 6) (my-check (factorial 5) => 120) (define (eratosthenes n) ; primes in {2..n-1} for n >= 1 (let ((p? (make-string n #\1))) (do-ec (:range k 2 n) (if (char=? (string-ref p? k) #\1)) (:range i (* 2 k) n k) (string-set! p? i #\0) ) (list-ec (:range k 2 n) (if (char=? (string-ref p? k) #\1)) k) )) (my-check (eratosthenes 50) => '(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47) ) (my-check (length (eratosthenes 100000)) => 9592 ) ; we expect 10^5/ln(10^5) (define (pythagoras n) ; a, b, c s.t. 1 <= a <= b <= c <= n, a^2 + b^2 = c^2 (list-ec (:let sqr-n (* n n)) (:range a 1 (+ n 1)) ; (begin (display a) (display " ")) (:let sqr-a (* a a)) (:range b a (+ n 1)) (:let sqr-c (+ sqr-a (* b b))) (if (<= sqr-c sqr-n)) (:range c b (+ n 1)) (if (= (* c c) sqr-c)) (list a b c) )) (my-check (pythagoras 15) => '((3 4 5) (5 12 13) (6 8 10) (9 12 15)) ) (my-check (length (pythagoras 200)) => 127 ) (define (qsort xs) ; stable (if (null? xs) '() (let ((pivot (car xs)) (xrest (cdr xs))) (append (qsort (list-ec (:list x xrest) (if (< x pivot)) x)) (list pivot) (qsort (list-ec (:list x xrest) (if (>= x pivot)) x)) )))) (my-check (qsort '(1 5 4 2 4 5 3 2 1 3)) => '(1 1 2 2 3 3 4 4 5 5) ) (define (pi-BBP m) ; approx. of pi within 16^-m (Bailey-Borwein-Plouffe) (sum-ec (:range n 0 (+ m 1)) (:let n8 (* 8 n)) (* (- (/ 4 (+ n8 1)) (+ (/ 2 (+ n8 4)) (/ 1 (+ n8 5)) (/ 1 (+ n8 6)))) (/ 1 (expt 16 n)) ))) (my-check (pi-BBP 5) => (/ 40413742330349316707 12864093722915635200) ) (define (read-line port) ; next line (incl. #\newline) of port (let ((line (string-ec (:until (:port c port read-char) (char=? c #\newline) ) c ))) (if (string=? line "") (read-char port) ; eof-object line ))) (define (read-lines filename) ; list of all lines (my-call-with-input-file filename (lambda (port) (list-ec (:port line port read-line) line) ))) (my-check (begin (let ((f (my-open-output-file "tmp1.out"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (read-lines "tmp1.out") ) => (list-ec (:char-range c #\0 #\9) (string c #\newline)) ) ; ========================================================================== ; Summary ; ========================================================================== (begin (newline) (newline) (display "correct examples : ") (display my-check-correct) (newline) (display "wrong examples : ") (display my-check-wrong) (newline) (newline) ) (exit my-check-wrong) �����������������������������������������������������������������������������������������chicken-5.1.0/tests/srfi-45-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000004402�13370655400�017131� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; Tests adapted from SRFI 45 (for "lazy" -> "delay-force"). ;;; That SRFI Copyright (C) André van Tonder (2003). (import (only chicken.format printf) (only chicken.port with-output-to-string)) (define *errors* 0) (define-syntax test (syntax-rules () ((_ name expect form) (let ((ok (equal? expect form))) (printf "(~a) ~a~n" (if ok "PASS" "FAIL") name) (when (not ok) (set! *errors* (add1 *errors*))))))) (define-syntax output (syntax-rules () ((_ . body) (with-output-to-string (lambda () . body))))) (test "Memoization test 1" "hello" (output (define s (delay (begin (display 'hello) 1))) (force s) (force s))) (test "Memoization test 2" "bonjour" (output (let ((s (delay (begin (display 'bonjour) 2)))) (+ (force s) (force s))))) (test "Memoization test 3" "hi" (output (define r (delay (begin (display 'hi) 1))) (define s (delay-force r)) (define t (delay-force s)) (force t) (force r))) (test "Memoization test 4" "hohohohoho" (output (define (stream-drop s index) (delay-force (if (zero? index) s (stream-drop (cdr (force s)) (- index 1))))) (define (ones) (delay (begin (display 'ho) (cons 1 (ones))))) (define s (ones)) (car (force (stream-drop s 4))) (car (force (stream-drop s 4))))) (let () (define count 0) (define p (delay (begin (set! count (+ count 1)) (if (> count x) count (force p))))) (define x 5) (test "Reentrancy test 1 (1)" 6 (force p)) (set! x 10) (test "Reentrancy test 1 (2)" 6 (force p))) (let () (define f (let ((first? #t)) (delay (if first? (begin (set! first? #f) (force f)) 'second)))) (test "Reentrancy test 2" 'second (force f))) (let () (define q (let ((count 5)) (define (get-count) count) (define p (delay (if (<= count 0) count (begin (set! count (- count 1)) (force p) (set! count (+ count 2)) count)))) (list get-count p))) (define get-count (car q)) (define p (cadr q)) (test "Reentrancy test 3 (1)" 5 (get-count)) (test "Reentrancy test 3 (2)" 0 (force p)) (test "Reentrancy test 3 (3)" 10 (get-count))) (exit *errors*) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reexport-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000002063�13370655400�017611� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; reexport-tests.scm (module my-r4rs () (import (chicken module)) (reexport (except scheme dynamic-wind values call-with-values eval scheme-report-environment null-environment interaction-environment))) (module m1 () (import my-r4rs) (display (+ 3 4)) (newline)) (assert (not (handle-exceptions ex #f (eval '(module m2 () (import my-r4rs) (values 123)))))) (define-syntax compound-module (syntax-rules () ((_ name imp ...) (module name () (import (chicken module) imp ...) (reexport imp ...))))) (compound-module big-chicken chicken.base chicken.file chicken.port chicken.pretty-print chicken.string) (module m3 () (import scheme big-chicken) (pp (string-intersperse '("abc" "def" "ghi") "-"))) ;;; #901 - reexport with "*" export list (module m4 (foo-m4) (import scheme chicken.base) (define-syntax foo-m4 (ir-macro-transformer (lambda (e i c) ''1)))) (module m5 * ; () works here (import (chicken module) m4) (reexport m4)) (import m5) (print (foo-m4)) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/messages-test.scm���������������������������������������������������������������0000644�0001750�0001750�00000000627�13370655400�017371� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module boo * (import scheme) (define var 42)) (module foo * (import scheme (chicken base) boo) (define-syntax bar (syntax-rules ())) (set! bar 42) ;; set!-ing a macro (set! var 42) ;; set!-ing an imported identifier (let ((var #f)) (set! var 42)) ;; set!-ing a local variable (letrec-values ((bar (values)))) ;; shadow a syntax item (let-syntax ((m (syntax-rules ()))) (set! m 42))) ���������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/slatex.sty����������������������������������������������������������������������0000644�0001750�0001750�00000040115�13213463160�016132� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������% slatex.sty % SLaTeX v. 2.2 % style file to be used in (La)TeX when using SLaTeX % (c) Dorai Sitaram, Rice U., 1991, 1994 % This file (or a soft link to it) should be in some % directory in your TEXINPUTS path (i.e., the one % (La)TeX scours for \input or \documentstyle option % files). % Do not attempt to debug this file, since the results % are not transparent just to (La)TeX. The Scheme part % of SLaTeX depends on information laid out here -- so % (La)TeX-minded debugging of this file will almost % inevitably sabotage SLaTeX. % It's possible you don't find the default style set % out here appealing: e.g., you may want to change the % positioning of displayed code; change the fonts for % keywords, constants, and variables; add new keywords, % constants, and variables; use your names instead of % the provided \scheme, [\begin|\end]{schemedisplay}, % [\begin|\end]{schemebox}, (or \[end]schemedisplay, % \[end]schemebox for TeX), which might be seem too % long or unmnemonic, and many other things. The clean % way to do these things is outlined in the % accompanying manual, slatex-d.tex. This way is both % easier than messing with this .sty file, and safer % since you will not unwittingly break SLaTeX. %%% % to prevent loading slatex.sty more than once \ifx\slatexignorecurrentfile\UNDEFINED \else\endinput\fi % use \slatexignorecurrentfile to disable slatex for % the current file. (Unstrangely, the very definition % disables slatex for the rest of _this_ file, slatex.sty.) \def\slatexignorecurrentfile{} % checking whether we're using LaTeX or TeX? \newif\ifusinglatex \ifx\newenvironment\UNDEFINED\usinglatexfalse\else\usinglatextrue\fi % make @ a letter for TeX \ifusinglatex\relax\else \edef\atcatcodebeforeslatex{\the\catcode`@} \catcode`@11 \fi % identification of TeX/LaTeX style for schemedisplay. % Do \defslatexenvstyle{tex} to get TeX environment % style in LaTeX \def\defslatexenvstyle#1{\gdef\slatexenvstyle{#1}} \ifusinglatex\defslatexenvstyle{latex}\else\defslatexenvstyle{tex}\fi % TeX doesn't have sans-serif; use roman instead \ifx\sf\UNDEFINED\def\sf{\rm}\fi % tabbing from plain TeX % \newif\ifus@ \newif\if@cr \newbox\tabs \newbox\tabsyet \newbox\tabsdone % \def\cleartabs{\global\setbox\tabsyet\null \setbox\tabs\null} \def\settabs{\setbox\tabs\null \futurelet\next\sett@b} \let\+=\relax % in case this file is being read in twice \def\sett@b{\ifx\next\+\let\next\relax \def\next{\afterassignment\s@tt@b\let\next}% \else\let\next\s@tcols\fi\next} \def\s@tt@b{\let\next\relax\us@false\m@ketabbox} \def\tabalign{\us@true\m@ketabbox} % non-\outer version of \+ \outer\def\+{\tabalign} \def\s@tcols#1\columns{\count@#1 \dimen@\hsize \loop\ifnum\count@>\z@ \@nother \repeat} \def\@nother{\dimen@ii\dimen@ \divide\dimen@ii\count@ \setbox\tabs\hbox{\hbox to\dimen@ii{}\unhbox\tabs}% \advance\dimen@-\dimen@ii \advance\count@\m@ne} % \def\m@ketabbox{\begingroup \global\setbox\tabsyet\copy\tabs \global\setbox\tabsdone\null \def\cr{\@crtrue\crcr\egroup\egroup \ifus@\unvbox\z@\lastbox\fi\endgroup \setbox\tabs\hbox{\unhbox\tabsyet\unhbox\tabsdone}}% \setbox\z@\vbox\bgroup\@crfalse \ialign\bgroup&\t@bbox##\t@bb@x\crcr} % \def\t@bbox{\setbox\z@\hbox\bgroup} \def\t@bb@x{\if@cr\egroup % now \box\z@ holds the column \else\hss\egroup \global\setbox\tabsyet\hbox{\unhbox\tabsyet \global\setbox\@ne\lastbox}% now \box\@ne holds its size \ifvoid\@ne\global\setbox\@ne\hbox to\wd\z@{}% \else\setbox\z@\hbox to\wd\@ne{\unhbox\z@}\fi \global\setbox\tabsdone\hbox{\box\@ne\unhbox\tabsdone}\fi \box\z@} % finished (re)defining TeX's tabbing macros % above from plain.tex; was disabled in lplain.tex. Do % not modify above unless you really know what you're % up to. Make all changes you want to following code. % The new env is preferable to LaTeX's tabbing env % since latter accepts only a small number of tabs % following retrieves something like LaTeX's tabbing % env without the above problem (it also creates a box % for easy manipulation!) \def\lat@xtabbing{\leavevmode\hbox\bgroup\vbox\bgroup \def\={\cleartabs&} \def\>{&} \def\\{\cr\tabalign} \tabalign} \def\endlat@xtabbing{\cr\egroup\egroup} %new \def\lat@xtabbing{\begingroup \def\={\cleartabs&} \def\>{&}% \def\\{\cr\tabalign\lat@xtabbingleftmost}% \tabalign\lat@xtabbingleftmost} \def\endlat@xtabbing{\cr\endgroup} \let\lat@xtabbingleftmost\relax % stuff for formating Scheme code \newskip\par@nlen \newskip\brack@tlen \newskip\quot@len \newskip\h@lflambda \newbox\garb@ge \def\s@ttowidth#1#2{\setbox\garb@ge\hbox{#2}#1\wd\garb@ge\relax} \s@ttowidth\par@nlen{$($} % size of paren \s@ttowidth\brack@tlen{$[$} % size of bracket \s@ttowidth\quot@len{'} % size of quote indentation \s@ttowidth\h@lflambda{ii} % size of half of lambda indentation \def\PRN{\hskip\par@nlen} % these are used by SLaTeX's codesetter \def\BKT{\hskip\brack@tlen} \def\QUO{\hskip\quot@len} \def\HL{\hskip\h@lflambda} \newskip\abovecodeskip \newskip\belowcodeskip \newskip\leftcodeskip \newskip\rightcodeskip % the following default assignments give a flushleft % display \abovecodeskip=\medskipamount \belowcodeskip=\medskipamount \leftcodeskip=0pt \rightcodeskip=0pt % adjust above,below,left,right codeskip's to personal % taste % for centered displays % % \leftcodeskip=0pt plus 1fil % \rightcodeskip=0pt plus 1fil % % if \rightcodeskip != 0pt, pagebreaks within Scheme % blocks in {schemedisplay} are disabled \def\checkfollpar{\futurelet\next\checkfollparII} \def\checkfollparII{\ifx\next\par\let\next\relax \else\par\noindent\let\next\ignorespaces\fi\next} % the following are the default font assignments for % words in code. Change them to suit personal taste \def\keywordfont#1{{\bf #1}} \def\variablefont#1{{\it #1\/}} \def\constantfont#1{{\sf #1}} \def\datafont#1{\constantfont{#1}} \def\schemecodehook{} %program listings that allow page breaks but %can't be centered \def\ZZZZschemedisplay{\edef\thez@skip{\the\z@skip}% \edef\@tempa{\the\rightcodeskip}% \ifx\@tempa\thez@skip\let\next\ZZZZschemeprogram \else\let\next\ZZZZschemeprogramII\fi\next} \def\endZZZZschemedisplay{\edef\thez@skip{\the\z@skip}% \edef\@tempa{\the\rightcodeskip}% \ifx\@tempa\thez@skip\let\next\endZZZZschemeprogram \else\let\next\endZZZZschemeprogramII\fi\next} \def\ZZZZschemeprogram{\vskip\abovecodeskip \begingroup \schemecodehook \let\sy=\keywordfont \let\cn=\constantfont \let\va=\variablefont \let\dt=\datafont \def\lat@xtabbingleftmost{\hskip\leftcodeskip\relax}% \lat@xtabbing} \def\endZZZZschemeprogram{\endlat@xtabbing \endgroup \vskip\belowcodeskip \ifusinglatex\let\next\@endparenv \else\let\next\checkfollpar\fi\next} \def\ZZZZschemeprogramII{\vskip\abovecodeskip \begingroup \noindent %\schemecodehook %\ZZZZschemebox already has it \hskip\leftcodeskip \ZZZZschemebox} \def\endZZZZschemeprogramII{\endZZZZschemebox \hskip\rightcodeskip \endgroup \vskip\belowcodeskip \ifusinglatex\let\next\@endparenv \else\let\next\checkfollpar\fi\next} % \def\ZZZZschemebox{% \leavevmode\hbox\bgroup\vbox\bgroup \schemecodehook \let\sy=\keywordfont \let\cn=\constantfont \let\va=\variablefont \let\dt=\datafont \lat@xtabbing} \def\endZZZZschemebox{\endlat@xtabbing \egroup\egroup\ignorespaces} %in-text \def\ZZZZschemecodeintext{\begingroup \let\sy\keywordfont \let\cn\constantfont \let\va\variablefont \let\dt\datafont} \def\endZZZZschemecodeintext{\endgroup\ignorespaces} \def\ZZZZschemeresultintext{\begingroup \let\sy\datafont \let\cn\constantfont \let\va\datafont \let\dt\datafont} \def\endZZZZschemeresultintext{\endgroup\ignorespaces} % \comm@nt<some-char>...text...<same-char> comments out % TeX source analogous to % \verb<some-char>...text...<same-char>. Sp. case: % \comm@nt{...text...} == \comm@nt}...text...} \def\@makeother#1{\catcode`#112\relax} \def\comm@nt{% \begingroup \let\do\@makeother \dospecials \@comm} \begingroup\catcode`\<1\catcode`\>2 \catcode`\{12\catcode`\}12 \long\gdef\@comm#1<% \if#1{\long\def\@tempa ##1}<\endgroup>\else \long\def\@tempa ##1#1<\endgroup>\fi \@tempa> \endgroup % input file if possible, else relax \def\inputifpossible#1{% \immediate\openin0=#1\relax% \ifeof0\relax\else\input#1\relax\fi% \immediate\closein0} \def\ZZZZinput#1{\input#1\relax} % you may replace the above by % % \def\ZZZZinput#1{\inputifpossible{#1}} % % if you just want to call (La)TeX on your text % ignoring the portions that need to be SLaTeX'ed %use \subjobname rather than \jobname to generate %slatex's temp files --- this allows us to change %\subjobname for more control, if necessary. \let\subjobname\jobname % counter for generating temp file names \newcount\sch@mefilenamecount \sch@mefilenamecount=-1 % To produce displayed Scheme code: % in LaTeX: % \begin{schemedisplay} % ... indented program (with sev'l lines) ... % \end{schemedisplay} % % in TeX: % \schemedisplay % ... indented program (with sev'l lines) ... % \endschemedisplay \begingroup\catcode`\|=0\catcode`\[=1\catcode`\]=2% \catcode`\{=12\catcode`\}=12\catcode`\\=12% |gdef|defschemedisplaytoken#1[% |long|expandafter|gdef|csname ZZZZcomment#1|endcsname[% |begingroup |let|do|@makeother |dospecials |csname ZZZZcomment|slatexenvstyle II#1|endcsname]% |long|expandafter|gdef|csname ZZZZcommentlatexII#1|endcsname##1\end{#1}[% |endgroup|end[#1]]% |long|expandafter|gdef|csname ZZZZcommenttexII#1|endcsname##1\end#1[% |endgroup|csname end#1|endcsname]% |long|expandafter|gdef|csname #1|endcsname[% |global|advance|sch@mefilenamecount by 1|relax% |ZZZZinput[|filehider Z|number|sch@mefilenamecount|subjobname.tex]% |csname ZZZZcomment#1|endcsname]% |long|expandafter|gdef|csname end#1|endcsname[]]% |endgroup \defschemedisplaytoken{schemedisplay} \def\undefschemedisplaytoken#1{% \expandafter\gdef\csname#1\endcsname{\UNDEFINED}} % \scheme|...program fragment...| produces Scheme code % in-text. Sp. case: \scheme{...} == \scheme}...} \def\defschemetoken#1{% \long\expandafter\def\csname#1\endcsname{% \global\advance\sch@mefilenamecount by 1\relax% \ZZZZinput{\filehider Z\number\sch@mefilenamecount\subjobname.tex}% \comm@nt}} \defschemetoken{scheme} \def\undefschemetoken#1{% \expandafter\gdef\csname#1\endcsname{\UNDEFINED}} % \schemeresult|...program fragment...| produces a % Scheme code result in-text: i.e. keyword or variable % fonts are replaced by the data font. Sp. case: % \schemeresult{...} == \schemeresult}...} \def\defschemeresulttoken#1{% \long\expandafter\def\csname#1\endcsname{% \global\advance\sch@mefilenamecount by 1\relax% \ZZZZinput{\filehider Z\number\sch@mefilenamecount\subjobname.tex}% \comm@nt}} \defschemeresulttoken{schemeresult} \def\undefschemeresulttoken#1{% \expandafter\gdef\csname#1\endcsname{\UNDEFINED}} % To produce a box of Scheme code: % in LaTeX: % \begin{schemebox} % ... indented program (with sev'l lines) ... % \end{schemebox} % % in TeX: % \schemebox % ... indented program (with sev'l lines) ... % \endschemebox \begingroup\catcode`\|=0\catcode`\[=1\catcode`\]=2% \catcode`\{=12\catcode`\}=12\catcode`\\=12% |gdef|defschemeboxtoken#1[% |long|expandafter|gdef|csname ZZZZcomment#1|endcsname[% |begingroup |let|do|@makeother |dospecials |csname ZZZZcomment|slatexenvstyle II#1|endcsname]% |long|expandafter|gdef|csname ZZZZcommentlatexII#1|endcsname##1\end{#1}[% |endgroup|end[#1]]% |long|expandafter|gdef|csname ZZZZcommenttexII#1|endcsname##1\end#1[% |endgroup|csname end#1|endcsname]% |long|expandafter|gdef|csname #1|endcsname[% |global|advance|sch@mefilenamecount by 1|relax% |ZZZZinput[|filehider Z|number|sch@mefilenamecount|subjobname.tex]% |csname ZZZZcomment#1|endcsname]% |long|expandafter|gdef|csname end#1|endcsname[]]% |endgroup \defschemeboxtoken{schemebox} \def\undefschemeboxtoken#1{% \expandafter\gdef\csname#1\endcsname{\UNDEFINED}} % for wholesale dumping of all-Scheme files into TeX (converting % .scm files to .tex), % use % \schemeinput{<filename>} % .scm, .ss, .s extensions optional \def\defschemeinputtoken#1{% \long\expandafter\gdef\csname#1\endcsname##1{% \global\advance\sch@mefilenamecount by 1\relax% \ZZZZinput{\filehider Z\number\sch@mefilenamecount\subjobname.tex}}} \defschemeinputtoken{schemeinput} \def\undefschemeinputtoken#1{% \expandafter\gdef\csname#1\endcsname{\UNDEFINED}} % delineating a region that features typeset code % not usually needed, except when using \scheme and schemedisplay % inside macro-args and macro-definition-bodies % in LaTeX: % \begin{schemeregion} % ... % \end{schemeregion} % % in TeX: % \schemeregion % ... % \endschemeregion \begingroup\catcode`\|=0\catcode`\[=1\catcode`\]=2% \catcode`\{=12\catcode`\}=12\catcode`\\=12% |gdef|defschemeregiontoken#1[% |long|expandafter|gdef|csname ZZZZcomment#1|endcsname[% |begingroup |let|do|@makeother |dospecials |csname ZZZZcomment|slatexenvstyle II#1|endcsname]% |long|expandafter|gdef|csname ZZZZcommentlatexII#1|endcsname##1\end{#1}[% |endgroup|end[#1]]% |long|expandafter|gdef|csname ZZZZcommenttexII#1|endcsname##1\end#1[% |endgroup|csname end#1|endcsname]% |long|expandafter|gdef|csname #1|endcsname[% |global|advance|sch@mefilenamecount by 1|relax% |ZZZZinput[|filehider Z|number|sch@mefilenamecount|subjobname.tex]% |csname ZZZZcomment#1|endcsname]% |long|expandafter|gdef|csname end#1|endcsname[]]% |endgroup \defschemeregiontoken{schemeregion} \def\undefschemeregiontoken#1{% \expandafter\gdef\csname#1\endcsname{\UNDEFINED}} % introducing new code-tokens to the keyword, variable and constant % categories \def\comm@ntII{% \begingroup \let\do\@makeother \dospecials \@commII} \begingroup\catcode`\[1\catcode`\]2 \catcode`\{12\catcode`\}12 \long\gdef\@commII{[% \long\def\@tempa ##1}[\endgroup]\@tempa]% \endgroup \let\setkeyword\comm@ntII \let\setvariable\comm@ntII \let\setconstant\comm@ntII % \defschememathescape makes the succeeding grouped character an % escape into latex math from within Scheme code; % this character can't be } \let\defschememathescape\comm@ntII \let\undefschememathescape\comm@ntII % telling SLaTeX that a certain Scheme identifier is to % be replaced by the specified LaTeX expression. % Useful for generating ``mathematical''-looking % typeset code even though the corresponding Scheme % code is ascii as usual and doesn't violate % identifier-naming rules \def\setspecialsymbol{% \begingroup \let\do\@makeother \dospecials \@commIII} \begingroup\catcode`\[1\catcode`\]2 \catcode`\{12\catcode`\}12 \long\gdef\@commIII{[% \long\def\@tempa ##1}[\endgroup\@gobbleI]\@tempa]% \endgroup \def\@gobbleI#1{} % \unsetspecialsymbol strips Scheme identifier(s) of % any ``mathematical'' look lent by the above \let\unsetspecialsymbol\comm@ntII % enabling/disabling slatex \def\slatexdisable#1{\expandafter\gdef\csname#1\endcsname{}} % \schemecasesensitive takes either true or false as % argument \def\schemecasesensitive#1{} %for latex only: use \slatexseparateincludes before the %occurrence of any Scheme code in your file, if you %want the various \include'd files to have their own %pool of temporary slatex files. This lets you juggle %your \include's in successive runs of LaTeX without %having to worry that the temp. files may interfere. %By default, only a single pool of temp files is used. %Warning: On DOS, if your \include'd files have fairly %similar names, avoid \slatexseparateincludes since the %short filenames on DOS will likely confuse the temp %file pools of different \include files. \def\slatexseparateincludes{% \gdef\include##1{{\def\subjobname{##1}% \sch@mefilenamecount=-1% \@include##1 }}} % convenient abbreviations for characters \begingroup \catcode`\|=0 |catcode`|\=12 |gdef|ttbackslash{{|tt|catcode`|\=12\}} |endgroup \mathchardef\lt="313C \mathchardef\gt="313E \begingroup \catcode`\@12% \global\let\atsign@% \endgroup \chardef\dq=`\" % leading character of slatex filenames: . for unix to % keep them out of the way \def\filehider{.} % since the above doesn't work of dos, slatex on dos % will use a different character, and make the % redefinition available through the following \inputifpossible{xZfilhid.tex} % @ is no longer a letter for TeX \ifusinglatex\relax\else \catcode`@\atcatcodebeforeslatex \fi \message{*** Check: Are you sure you called SLaTeX? ***} ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/null.scm������������������������������������������������������������������������0000644�0001750�0001750�00000003042�13502227553�015552� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; null.scm - the empty program ; ; Copyright (c) 2010-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/specialization-test-2.types�����������������������������������������������������0000644�0001750�0001750�00000000144�13213463160�021307� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; -*- Scheme -*- (specialize-me (procedure specialize-me (fixnum) fixnum) ((fixnum) #(1))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/apply-test.scm������������������������������������������������������������������0000644�0001750�0001750�00000002333�13370655400�016703� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import (chicken format) (chicken platform) (chicken fixnum)) (import-for-syntax (chicken fixnum)) (define (list-tabulate n proc) (let loop ((i 0)) (if (fx>= i n) '() (cons (proc i) (loop (fx+ i 1)))))) (define-for-syntax (list-tabulate n proc) (let loop ((i 0)) (if (fx>= i n) '() (cons (proc i) (loop (fx+ i 1)))))) (define (last lst) (let loop ((lst lst)) (if (null? (cdr lst)) (car lst) (loop (cdr lst))))) (define (foo . args) (when (pair? args) (assert (= (length args) (last args))))) (printf "testing 'apply' with 0..~A...\n" 2000) (do ((i 0 (add1 i))) ((>= i 2000)) (apply foo (list-tabulate i add1))) (print "testing 'apply' with 10000...") (apply foo (list-tabulate 10000 add1)) (let-syntax ((invoke-directly (ir-macro-transformer (lambda (e r c) (let ((proc (cadr e)) (count (caddr e)) (end (cadddr e)) (message (car (cddddr e)))) `(begin (printf "invoking directly with ~A..~A (~A)...\n" ,(- end count) ,end ,message) ,@(list-tabulate count (lambda (i) `(,proc ,@(list-tabulate (- end i) add1)))))))))) (invoke-directly foo 50 50 "Lower edge case") (invoke-directly foo 50 2000 "Higher edge case")) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/version-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000003332�13502227553�017427� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import chicken.irregex chicken.platform chicken.keyword chicken.string) (let* ((version-tokens (string-split (chicken-version) ".")) (major (string->number (car version-tokens))) (minor (string->number (cadr version-tokens)))) (display "Checking major and minor version numbers against chicken-version... ") (assert (= (foreign-value "C_MAJOR_VERSION" int) major)) (assert (= (foreign-value "C_MINOR_VERSION" int) minor)) (print "ok") (display "Checking the registered feature chicken-<major>.<minor>... ") (let loop ((features (features))) (if (null? features) (error "Could not find feature chicken-<major>.<minor>") (let ((feature (keyword->string (car features)))) (cond ((irregex-match "chicken-(\\d+)\\.(\\d+)" feature) => (lambda (match) (assert (= (string->number (irregex-match-substring match 1)) major)) (assert (= (string->number (irregex-match-substring match 2)) minor)))) (else (loop (cdr features))))))) (display "Checking the registered feature chicken-<major>... ") (let loop ((features (features))) (if (null? features) (error "Could not find feature chicken-<major>") (let ((feature (keyword->string (car features)))) (cond ((irregex-match "chicken-(\\d+)" feature) => (lambda (match) (assert (= (string->number (irregex-match-substring match 1)) major)))) (else (loop (cdr features))))))) (print "ok")) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/test.scm������������������������������������������������������������������������0000644�0001750�0001750�00000011201�13370655400�015552� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test.scm - minimal testing framework ; ; by Alex Shinn, lifted from match-test by felix (import (only chicken.string ->string)) (import (only chicken.time current-milliseconds)) (define *current-group-name* "") (define *pass* 0) (define *fail* 0) (define *start* 0) (define *total-pass* 0) (define *total-fail* 0) (define *total-start* 0) (define *fail-token* (gensym)) (define (run-test name thunk expect eq pass-msg fail-msg) (let ((result (thunk))) (cond ((eq expect result) (set! *pass* (+ *pass* 1)) (format-result pass-msg name expect result)) (else (set! *fail* (+ *fail* 1)) (format-result fail-msg name expect result))))) (define (format-result ls name expect result) (let lp ((ls ls)) (cond ((null? ls) (newline)) ((eq? (car ls) 'expect) (write expect) (lp (cdr ls))) ((eq? (car ls) 'result) (write result) (lp (cdr ls))) ((eq? (car ls) 'name) (if name (begin (display #\space) (display name))) (lp (cdr ls))) (else (display (car ls)) (lp (cdr ls)))))) (define (test-begin . o) (set! *current-group-name* (if (null? o) "<unnamed>" (car o))) (print "== " *current-group-name* " ==") (set! *total-pass* (+ *total-pass* *pass*)) (set! *total-fail* (+ *total-fail* *fail*)) (set! *pass* 0) (set! *fail* 0) (set! *start* (current-milliseconds)) (when (= 0 *total-start*) (set! *total-start* (current-milliseconds)))) (define (format-float n prec) (let* ((str (number->string n)) (len (string-length str))) (let lp ((i (- len 1))) (cond ((negative? i) (string-append str "." (make-string prec #\0))) ((eqv? #\. (string-ref str i)) (let ((diff (+ 1 (- prec (- len i))))) (cond ((positive? diff) (string-append str (make-string diff #\0))) ((negative? diff) (substring str 0 (+ i prec 1))) (else str)))) (else (lp (- i 1))))))) (define (format-percent num denom) (let ((x (if (zero? denom) num (exact->inexact (/ num denom))))) (format-float (* 100 x) 2))) (define (test-end . o) (let ((end (current-milliseconds)) (total (+ *pass* *fail*))) (print " " total " tests completed in " (format-float (exact->inexact (/ (- end *start*) 1000)) 3) " seconds") (print " " *pass* " (" (format-percent *pass* total) "%) tests passed") (print " " *fail* " (" (format-percent *fail* total) "%) tests failed")) (print "-- " *current-group-name* " --\n\n")) (define (test-exit . o) (print " TOTALS: ") (set! *total-pass* (+ *total-pass* *pass*)) ; should be 0 (set! *total-fail* (+ *total-fail* *fail*)) ; should be 0 (let ((end (current-milliseconds)) (total (+ *total-pass* *total-fail*))) (print " " total " tests completed in " (format-float (exact->inexact (/ (- end *total-start*) 1000)) 3) " seconds") (print " " *total-pass* " (" (format-percent *total-pass* total) "%) tests passed") (print " " *total-fail* " (" (format-percent *total-fail* total) "%) tests failed") (exit (if (zero? *total-fail*) 0 1)))) (define (run-equal name thunk expect eq) (run-test name thunk expect eq '("(PASS)" name) '("(FAIL)" name ": expected " expect " but got " result))) (define current-test-epsilon (make-parameter 1e-5)) (define (approx-equal? a b epsilon) (cond ((> (abs a) (abs b)) (approx-equal? b a epsilon)) ((zero? a) (< (abs b) epsilon)) (else (< (abs (/ (- a b) b)) epsilon)))) (define (test-equal? expect res) (or (equal? expect res) (and (number? expect) (inexact? expect) (inexact? res) (approx-equal? expect res (current-test-epsilon))))) (define current-test-comparator (make-parameter test-equal?)) (define-syntax test-equal (syntax-rules () ((_ name expr value eq) (run-equal name (lambda () expr) value eq)) ((_ name expr value) (run-equal name (lambda () expr) value (current-test-comparator))) ((_ expr value) (run-equal (->string 'expr) (lambda () expr) value (current-test-comparator))))) (define-syntax test-error (syntax-rules () ((_ name expr) (run-equal name (lambda () (handle-exceptions ex *fail-token* expr)) *fail-token* eq?) ) ((_ expr) (test-error 'expr expr)))) (define-syntax test-assert (syntax-rules () ((_ name expr) (run-equal name (lambda () (if expr #t #f)) #t eq?)) ((_ expr) (run-equal (->string expr) (lambda () (if expr #t #f)) #t eq?)))) (define-syntax test-group (syntax-rules () ((_ name body ...) (begin (print "\n" name ":\n") body ...)))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/specialization-test-2.scm�������������������������������������������������������0000644�0001750�0001750�00000001347�13370655400�020737� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; specialization-test-2.scm (module main () (import scheme chicken.base chicken.foreign) (import-syntax foo) ; note: does not load foo! #> static int inlined(int i) { static int n = 0; n += i; return n;} <# (assert (= 1 (bar 1))) ) ;; #855: second walk of arguments after specialization of call to "zero?" ;; applies enforced type-assumption for argument "y" to "string-length" ;; to call to "string-length" itself (define (bug855 x) (let ((y (car x))) (zero? (string-length y)))) (assert (handle-exceptions ex #t (bug855 '(#f)) #f)) ;; #1219: Specializations from databases loaded with "-types" should ;; be applied. (define (specialize-me x) (error "Not specialized!")) (assert (= (specialize-me 123) 123)) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/embedded2.scm�������������������������������������������������������������������0000644�0001750�0001750�00000000703�13370655400�016413� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import chicken.platform chicken.gc chicken.pretty-print) #> #include <assert.h> int main() { static char buffer[ 4096 ]; void C_toplevel(C_word c, C_word *av); CHICKEN_run((void*)C_toplevel); assert(CHICKEN_eval_string_to_string("(oink (make-vector 10 'ok))", buffer, sizeof(buffer))); printf("--> %s\n", buffer); return 0; } <# (gc) (print "starting...") (define (oink x) (pp x) (vector-length x)) (return-to-host) �������������������������������������������������������������chicken-5.1.0/tests/scrutiny-tests-3.scm������������������������������������������������������������0000644�0001750�0001750�00000002227�13213533305�017756� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; scrutiny-tests-3.scm - scrutinizer-tests, compiled in block mode and executed ;;; ensure implicit global type-declarations are "smashed" (i.e. have ;;; their component types invalidated, due to possible mutation) (define vec (make-vector 10 #f)) (vector-set! vec 0 99) (assert (compiler-typecase vec ((vector-of boolean) #f) (vector #t))) ;;; reduce OR-types in alternative branch of conditional with predicate (define something) (let ((x (the (or string number) something))) (if (number? x) (compiler-typecase x (number 1)) (compiler-typecase x (string 2)))) (let ((x (the (or string number) something))) (if (fixnum? x) (compiler-typecase x (fixnum 1)) (compiler-typecase x ((or string number) 2)))) (let ((x (the (forall ((a string) (b number)) (or a b)) something))) (if (number? x) (compiler-typecase x (number 3)) (compiler-typecase x (string 4)))) ;;; #1399 incorrect return type after merge with noreturn procedure (let ((x (the (->) something)) (y (the (-> noreturn) something))) (compiler-typecase (if something x y) ((->) (error "#1399 regression test failure")) (else 'ok))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reexport-m5.scm�����������������������������������������������������������������0000644�0001750�0001750�00000000411�13213463160�016757� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; export syntax, one definition refering to another ; used for testing reexport wth renaming (reexport-test-2.scm) (module reexport-m5 * (import scheme) (define-syntax s1 (syntax-rules () ((_) (s2)))) (define-syntax s2 (syntax-rules () ((_) (display 1))))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/arithmetic-test.64.expected�����������������������������������������������������0000644�0001750�0001750�00005307420�13370655400�021170� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������((1 . 5625) (+ -2 -2) -> -4) ((2 . 5625) (+ -2 -1) -> -3) ((3 . 5625) (+ -2 0) -> -2) ((4 . 5625) (+ -2 1) -> -1) ((5 . 5625) (+ -2 2) -> 0) ((6 . 5625) (+ -1 -2) -> -3) ((7 . 5625) (+ -1 -1) -> -2) ((8 . 5625) (+ -1 0) -> -1) ((9 . 5625) (+ -1 1) -> 0) ((10 . 5625) (+ -1 2) -> 1) ((11 . 5625) (+ 0 -2) -> -2) ((12 . 5625) (+ 0 -1) -> -1) ((13 . 5625) (+ 0 0) -> 0) ((14 . 5625) (+ 0 1) -> 1) ((15 . 5625) (+ 0 2) -> 2) ((16 . 5625) (+ 1 -2) -> -1) ((17 . 5625) (+ 1 -1) -> 0) ((18 . 5625) (+ 1 0) -> 1) ((19 . 5625) (+ 1 1) -> 2) ((20 . 5625) (+ 1 2) -> 3) ((21 . 5625) (+ 2 -2) -> 0) ((22 . 5625) (+ 2 -1) -> 1) ((23 . 5625) (+ 2 0) -> 2) ((24 . 5625) (+ 2 1) -> 3) ((25 . 5625) (+ 2 2) -> 4) ((26 . 5625) (+ -2 -1) -> -3) ((27 . 5625) (+ -2 0) -> -2) ((28 . 5625) (+ -2 1) -> -1) ((29 . 5625) (+ -2 2) -> 0) ((30 . 5625) (+ -2 3) -> 1) ((31 . 5625) (+ -1 -1) -> -2) ((32 . 5625) (+ -1 0) -> -1) ((33 . 5625) (+ -1 1) -> 0) ((34 . 5625) (+ -1 2) -> 1) ((35 . 5625) (+ -1 3) -> 2) ((36 . 5625) (+ 0 -1) -> -1) ((37 . 5625) (+ 0 0) -> 0) ((38 . 5625) (+ 0 1) -> 1) ((39 . 5625) (+ 0 2) -> 2) ((40 . 5625) (+ 0 3) -> 3) ((41 . 5625) (+ 1 -1) -> 0) ((42 . 5625) (+ 1 0) -> 1) ((43 . 5625) (+ 1 1) -> 2) ((44 . 5625) (+ 1 2) -> 3) ((45 . 5625) (+ 1 3) -> 4) ((46 . 5625) (+ 2 -1) -> 1) ((47 . 5625) (+ 2 0) -> 2) ((48 . 5625) (+ 2 1) -> 3) ((49 . 5625) (+ 2 2) -> 4) ((50 . 5625) (+ 2 3) -> 5) ((51 . 5625) (+ -2 -3) -> -5) ((52 . 5625) (+ -2 -2) -> -4) ((53 . 5625) (+ -2 -1) -> -3) ((54 . 5625) (+ -2 0) -> -2) ((55 . 5625) (+ -2 1) -> -1) ((56 . 5625) (+ -1 -3) -> -4) ((57 . 5625) (+ -1 -2) -> -3) ((58 . 5625) (+ -1 -1) -> -2) ((59 . 5625) (+ -1 0) -> -1) ((60 . 5625) (+ -1 1) -> 0) ((61 . 5625) (+ 0 -3) -> -3) ((62 . 5625) (+ 0 -2) -> -2) ((63 . 5625) (+ 0 -1) -> -1) ((64 . 5625) (+ 0 0) -> 0) ((65 . 5625) (+ 0 1) -> 1) ((66 . 5625) (+ 1 -3) -> -2) ((67 . 5625) (+ 1 -2) -> -1) ((68 . 5625) (+ 1 -1) -> 0) ((69 . 5625) (+ 1 0) -> 1) ((70 . 5625) (+ 1 1) -> 2) ((71 . 5625) (+ 2 -3) -> -1) ((72 . 5625) (+ 2 -2) -> 0) ((73 . 5625) (+ 2 -1) -> 1) ((74 . 5625) (+ 2 0) -> 2) ((75 . 5625) (+ 2 1) -> 3) ((76 . 5625) (+ -2 0) -> -2) ((77 . 5625) (+ -2 1) -> -1) ((78 . 5625) (+ -2 2) -> 0) ((79 . 5625) (+ -2 3) -> 1) ((80 . 5625) (+ -2 4) -> 2) ((81 . 5625) (+ -1 0) -> -1) ((82 . 5625) (+ -1 1) -> 0) ((83 . 5625) (+ -1 2) -> 1) ((84 . 5625) (+ -1 3) -> 2) ((85 . 5625) (+ -1 4) -> 3) ((86 . 5625) (+ 0 0) -> 0) ((87 . 5625) (+ 0 1) -> 1) ((88 . 5625) (+ 0 2) -> 2) ((89 . 5625) (+ 0 3) -> 3) ((90 . 5625) (+ 0 4) -> 4) ((91 . 5625) (+ 1 0) -> 1) ((92 . 5625) (+ 1 1) -> 2) ((93 . 5625) (+ 1 2) -> 3) ((94 . 5625) (+ 1 3) -> 4) ((95 . 5625) (+ 1 4) -> 5) ((96 . 5625) (+ 2 0) -> 2) ((97 . 5625) (+ 2 1) -> 3) ((98 . 5625) (+ 2 2) -> 4) ((99 . 5625) (+ 2 3) -> 5) ((100 . 5625) (+ 2 4) -> 6) ((101 . 5625) (+ -2 -4) -> -6) ((102 . 5625) (+ -2 -3) -> -5) ((103 . 5625) (+ -2 -2) -> -4) ((104 . 5625) (+ -2 -1) -> -3) ((105 . 5625) (+ -2 0) -> -2) ((106 . 5625) (+ -1 -4) -> -5) ((107 . 5625) (+ -1 -3) -> -4) ((108 . 5625) (+ -1 -2) -> -3) ((109 . 5625) (+ -1 -1) -> -2) ((110 . 5625) (+ -1 0) -> -1) ((111 . 5625) (+ 0 -4) -> -4) ((112 . 5625) (+ 0 -3) -> -3) ((113 . 5625) (+ 0 -2) -> -2) ((114 . 5625) (+ 0 -1) -> -1) ((115 . 5625) (+ 0 0) -> 0) ((116 . 5625) (+ 1 -4) -> -3) ((117 . 5625) (+ 1 -3) -> -2) ((118 . 5625) (+ 1 -2) -> -1) ((119 . 5625) (+ 1 -1) -> 0) ((120 . 5625) (+ 1 0) -> 1) ((121 . 5625) (+ 2 -4) -> -2) ((122 . 5625) (+ 2 -3) -> -1) ((123 . 5625) (+ 2 -2) -> 0) ((124 . 5625) (+ 2 -1) -> 1) ((125 . 5625) (+ 2 0) -> 2) ((126 . 5625) (+ -2 4611686018427387901) -> 4611686018427387899) ((127 . 5625) (+ -2 4611686018427387902) -> 4611686018427387900) ((128 . 5625) (+ -2 4611686018427387903) -> 4611686018427387901) ((129 . 5625) (+ -2 4611686018427387904) -> 4611686018427387902) ((130 . 5625) (+ -2 4611686018427387905) -> 4611686018427387903) ((131 . 5625) (+ -1 4611686018427387901) -> 4611686018427387900) ((132 . 5625) (+ -1 4611686018427387902) -> 4611686018427387901) ((133 . 5625) (+ -1 4611686018427387903) -> 4611686018427387902) ((134 . 5625) (+ -1 4611686018427387904) -> 4611686018427387903) ((135 . 5625) (+ -1 4611686018427387905) -> 4611686018427387904) ((136 . 5625) (+ 0 4611686018427387901) -> 4611686018427387901) ((137 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((138 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((139 . 5625) (+ 0 4611686018427387904) -> 4611686018427387904) ((140 . 5625) (+ 0 4611686018427387905) -> 4611686018427387905) ((141 . 5625) (+ 1 4611686018427387901) -> 4611686018427387902) ((142 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((143 . 5625) (+ 1 4611686018427387903) -> 4611686018427387904) ((144 . 5625) (+ 1 4611686018427387904) -> 4611686018427387905) ((145 . 5625) (+ 1 4611686018427387905) -> 4611686018427387906) ((146 . 5625) (+ 2 4611686018427387901) -> 4611686018427387903) ((147 . 5625) (+ 2 4611686018427387902) -> 4611686018427387904) ((148 . 5625) (+ 2 4611686018427387903) -> 4611686018427387905) ((149 . 5625) (+ 2 4611686018427387904) -> 4611686018427387906) ((150 . 5625) (+ 2 4611686018427387905) -> 4611686018427387907) ((151 . 5625) (+ -2 -4611686018427387906) -> -4611686018427387908) ((152 . 5625) (+ -2 -4611686018427387905) -> -4611686018427387907) ((153 . 5625) (+ -2 -4611686018427387904) -> -4611686018427387906) ((154 . 5625) (+ -2 -4611686018427387903) -> -4611686018427387905) ((155 . 5625) (+ -2 -4611686018427387902) -> -4611686018427387904) ((156 . 5625) (+ -1 -4611686018427387906) -> -4611686018427387907) ((157 . 5625) (+ -1 -4611686018427387905) -> -4611686018427387906) ((158 . 5625) (+ -1 -4611686018427387904) -> -4611686018427387905) ((159 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((160 . 5625) (+ -1 -4611686018427387902) -> -4611686018427387903) ((161 . 5625) (+ 0 -4611686018427387906) -> -4611686018427387906) ((162 . 5625) (+ 0 -4611686018427387905) -> -4611686018427387905) ((163 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((164 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((165 . 5625) (+ 0 -4611686018427387902) -> -4611686018427387902) ((166 . 5625) (+ 1 -4611686018427387906) -> -4611686018427387905) ((167 . 5625) (+ 1 -4611686018427387905) -> -4611686018427387904) ((168 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((169 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((170 . 5625) (+ 1 -4611686018427387902) -> -4611686018427387901) ((171 . 5625) (+ 2 -4611686018427387906) -> -4611686018427387904) ((172 . 5625) (+ 2 -4611686018427387905) -> -4611686018427387903) ((173 . 5625) (+ 2 -4611686018427387904) -> -4611686018427387902) ((174 . 5625) (+ 2 -4611686018427387903) -> -4611686018427387901) ((175 . 5625) (+ 2 -4611686018427387902) -> -4611686018427387900) ((176 . 5625) (+ -2 4611686018427387902) -> 4611686018427387900) ((177 . 5625) (+ -2 4611686018427387903) -> 4611686018427387901) ((178 . 5625) (+ -2 4611686018427387904) -> 4611686018427387902) ((179 . 5625) (+ -2 4611686018427387905) -> 4611686018427387903) ((180 . 5625) (+ -2 4611686018427387906) -> 4611686018427387904) ((181 . 5625) (+ -1 4611686018427387902) -> 4611686018427387901) ((182 . 5625) (+ -1 4611686018427387903) -> 4611686018427387902) ((183 . 5625) (+ -1 4611686018427387904) -> 4611686018427387903) ((184 . 5625) (+ -1 4611686018427387905) -> 4611686018427387904) ((185 . 5625) (+ -1 4611686018427387906) -> 4611686018427387905) ((186 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((187 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((188 . 5625) (+ 0 4611686018427387904) -> 4611686018427387904) ((189 . 5625) (+ 0 4611686018427387905) -> 4611686018427387905) ((190 . 5625) (+ 0 4611686018427387906) -> 4611686018427387906) ((191 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((192 . 5625) (+ 1 4611686018427387903) -> 4611686018427387904) ((193 . 5625) (+ 1 4611686018427387904) -> 4611686018427387905) ((194 . 5625) (+ 1 4611686018427387905) -> 4611686018427387906) ((195 . 5625) (+ 1 4611686018427387906) -> 4611686018427387907) ((196 . 5625) (+ 2 4611686018427387902) -> 4611686018427387904) ((197 . 5625) (+ 2 4611686018427387903) -> 4611686018427387905) ((198 . 5625) (+ 2 4611686018427387904) -> 4611686018427387906) ((199 . 5625) (+ 2 4611686018427387905) -> 4611686018427387907) ((200 . 5625) (+ 2 4611686018427387906) -> 4611686018427387908) ((201 . 5625) (+ -2 -4611686018427387907) -> -4611686018427387909) ((202 . 5625) (+ -2 -4611686018427387906) -> -4611686018427387908) ((203 . 5625) (+ -2 -4611686018427387905) -> -4611686018427387907) ((204 . 5625) (+ -2 -4611686018427387904) -> -4611686018427387906) ((205 . 5625) (+ -2 -4611686018427387903) -> -4611686018427387905) ((206 . 5625) (+ -1 -4611686018427387907) -> -4611686018427387908) ((207 . 5625) (+ -1 -4611686018427387906) -> -4611686018427387907) ((208 . 5625) (+ -1 -4611686018427387905) -> -4611686018427387906) ((209 . 5625) (+ -1 -4611686018427387904) -> -4611686018427387905) ((210 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((211 . 5625) (+ 0 -4611686018427387907) -> -4611686018427387907) ((212 . 5625) (+ 0 -4611686018427387906) -> -4611686018427387906) ((213 . 5625) (+ 0 -4611686018427387905) -> -4611686018427387905) ((214 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((215 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((216 . 5625) (+ 1 -4611686018427387907) -> -4611686018427387906) ((217 . 5625) (+ 1 -4611686018427387906) -> -4611686018427387905) ((218 . 5625) (+ 1 -4611686018427387905) -> -4611686018427387904) ((219 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((220 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((221 . 5625) (+ 2 -4611686018427387907) -> -4611686018427387905) ((222 . 5625) (+ 2 -4611686018427387906) -> -4611686018427387904) ((223 . 5625) (+ 2 -4611686018427387905) -> -4611686018427387903) ((224 . 5625) (+ 2 -4611686018427387904) -> -4611686018427387902) ((225 . 5625) (+ 2 -4611686018427387903) -> -4611686018427387901) ((226 . 5625) (+ -2 1103515243) -> 1103515241) ((227 . 5625) (+ -2 1103515244) -> 1103515242) ((228 . 5625) (+ -2 1103515245) -> 1103515243) ((229 . 5625) (+ -2 1103515246) -> 1103515244) ((230 . 5625) (+ -2 1103515247) -> 1103515245) ((231 . 5625) (+ -1 1103515243) -> 1103515242) ((232 . 5625) (+ -1 1103515244) -> 1103515243) ((233 . 5625) (+ -1 1103515245) -> 1103515244) ((234 . 5625) (+ -1 1103515246) -> 1103515245) ((235 . 5625) (+ -1 1103515247) -> 1103515246) ((236 . 5625) (+ 0 1103515243) -> 1103515243) ((237 . 5625) (+ 0 1103515244) -> 1103515244) ((238 . 5625) (+ 0 1103515245) -> 1103515245) ((239 . 5625) (+ 0 1103515246) -> 1103515246) ((240 . 5625) (+ 0 1103515247) -> 1103515247) ((241 . 5625) (+ 1 1103515243) -> 1103515244) ((242 . 5625) (+ 1 1103515244) -> 1103515245) ((243 . 5625) (+ 1 1103515245) -> 1103515246) ((244 . 5625) (+ 1 1103515246) -> 1103515247) ((245 . 5625) (+ 1 1103515247) -> 1103515248) ((246 . 5625) (+ 2 1103515243) -> 1103515245) ((247 . 5625) (+ 2 1103515244) -> 1103515246) ((248 . 5625) (+ 2 1103515245) -> 1103515247) ((249 . 5625) (+ 2 1103515246) -> 1103515248) ((250 . 5625) (+ 2 1103515247) -> 1103515249) ((251 . 5625) (+ -2 631629063) -> 631629061) ((252 . 5625) (+ -2 631629064) -> 631629062) ((253 . 5625) (+ -2 631629065) -> 631629063) ((254 . 5625) (+ -2 631629066) -> 631629064) ((255 . 5625) (+ -2 631629067) -> 631629065) ((256 . 5625) (+ -1 631629063) -> 631629062) ((257 . 5625) (+ -1 631629064) -> 631629063) ((258 . 5625) (+ -1 631629065) -> 631629064) ((259 . 5625) (+ -1 631629066) -> 631629065) ((260 . 5625) (+ -1 631629067) -> 631629066) ((261 . 5625) (+ 0 631629063) -> 631629063) ((262 . 5625) (+ 0 631629064) -> 631629064) ((263 . 5625) (+ 0 631629065) -> 631629065) ((264 . 5625) (+ 0 631629066) -> 631629066) ((265 . 5625) (+ 0 631629067) -> 631629067) ((266 . 5625) (+ 1 631629063) -> 631629064) ((267 . 5625) (+ 1 631629064) -> 631629065) ((268 . 5625) (+ 1 631629065) -> 631629066) ((269 . 5625) (+ 1 631629066) -> 631629067) ((270 . 5625) (+ 1 631629067) -> 631629068) ((271 . 5625) (+ 2 631629063) -> 631629065) ((272 . 5625) (+ 2 631629064) -> 631629066) ((273 . 5625) (+ 2 631629065) -> 631629067) ((274 . 5625) (+ 2 631629066) -> 631629068) ((275 . 5625) (+ 2 631629067) -> 631629069) ((276 . 5625) (+ -2 9007199254740990) -> 9007199254740988) ((277 . 5625) (+ -2 9007199254740991) -> 9007199254740989) ((278 . 5625) (+ -2 9007199254740992) -> 9007199254740990) ((279 . 5625) (+ -2 9007199254740993) -> 9007199254740991) ((280 . 5625) (+ -2 9007199254740994) -> 9007199254740992) ((281 . 5625) (+ -1 9007199254740990) -> 9007199254740989) ((282 . 5625) (+ -1 9007199254740991) -> 9007199254740990) ((283 . 5625) (+ -1 9007199254740992) -> 9007199254740991) ((284 . 5625) (+ -1 9007199254740993) -> 9007199254740992) ((285 . 5625) (+ -1 9007199254740994) -> 9007199254740993) ((286 . 5625) (+ 0 9007199254740990) -> 9007199254740990) ((287 . 5625) (+ 0 9007199254740991) -> 9007199254740991) ((288 . 5625) (+ 0 9007199254740992) -> 9007199254740992) ((289 . 5625) (+ 0 9007199254740993) -> 9007199254740993) ((290 . 5625) (+ 0 9007199254740994) -> 9007199254740994) ((291 . 5625) (+ 1 9007199254740990) -> 9007199254740991) ((292 . 5625) (+ 1 9007199254740991) -> 9007199254740992) ((293 . 5625) (+ 1 9007199254740992) -> 9007199254740993) ((294 . 5625) (+ 1 9007199254740993) -> 9007199254740994) ((295 . 5625) (+ 1 9007199254740994) -> 9007199254740995) ((296 . 5625) (+ 2 9007199254740990) -> 9007199254740992) ((297 . 5625) (+ 2 9007199254740991) -> 9007199254740993) ((298 . 5625) (+ 2 9007199254740992) -> 9007199254740994) ((299 . 5625) (+ 2 9007199254740993) -> 9007199254740995) ((300 . 5625) (+ 2 9007199254740994) -> 9007199254740996) ((301 . 5625) (+ -2 -9007199254740994) -> -9007199254740996) ((302 . 5625) (+ -2 -9007199254740993) -> -9007199254740995) ((303 . 5625) (+ -2 -9007199254740992) -> -9007199254740994) ((304 . 5625) (+ -2 -9007199254740991) -> -9007199254740993) ((305 . 5625) (+ -2 -9007199254740990) -> -9007199254740992) ((306 . 5625) (+ -1 -9007199254740994) -> -9007199254740995) ((307 . 5625) (+ -1 -9007199254740993) -> -9007199254740994) ((308 . 5625) (+ -1 -9007199254740992) -> -9007199254740993) ((309 . 5625) (+ -1 -9007199254740991) -> -9007199254740992) ((310 . 5625) (+ -1 -9007199254740990) -> -9007199254740991) ((311 . 5625) (+ 0 -9007199254740994) -> -9007199254740994) ((312 . 5625) (+ 0 -9007199254740993) -> -9007199254740993) ((313 . 5625) (+ 0 -9007199254740992) -> -9007199254740992) ((314 . 5625) (+ 0 -9007199254740991) -> -9007199254740991) ((315 . 5625) (+ 0 -9007199254740990) -> -9007199254740990) ((316 . 5625) (+ 1 -9007199254740994) -> -9007199254740993) ((317 . 5625) (+ 1 -9007199254740993) -> -9007199254740992) ((318 . 5625) (+ 1 -9007199254740992) -> -9007199254740991) ((319 . 5625) (+ 1 -9007199254740991) -> -9007199254740990) ((320 . 5625) (+ 1 -9007199254740990) -> -9007199254740989) ((321 . 5625) (+ 2 -9007199254740994) -> -9007199254740992) ((322 . 5625) (+ 2 -9007199254740993) -> -9007199254740991) ((323 . 5625) (+ 2 -9007199254740992) -> -9007199254740990) ((324 . 5625) (+ 2 -9007199254740991) -> -9007199254740989) ((325 . 5625) (+ 2 -9007199254740990) -> -9007199254740988) ((326 . 5625) (+ -2 12343) -> 12341) ((327 . 5625) (+ -2 12344) -> 12342) ((328 . 5625) (+ -2 12345) -> 12343) ((329 . 5625) (+ -2 12346) -> 12344) ((330 . 5625) (+ -2 12347) -> 12345) ((331 . 5625) (+ -1 12343) -> 12342) ((332 . 5625) (+ -1 12344) -> 12343) ((333 . 5625) (+ -1 12345) -> 12344) ((334 . 5625) (+ -1 12346) -> 12345) ((335 . 5625) (+ -1 12347) -> 12346) ((336 . 5625) (+ 0 12343) -> 12343) ((337 . 5625) (+ 0 12344) -> 12344) ((338 . 5625) (+ 0 12345) -> 12345) ((339 . 5625) (+ 0 12346) -> 12346) ((340 . 5625) (+ 0 12347) -> 12347) ((341 . 5625) (+ 1 12343) -> 12344) ((342 . 5625) (+ 1 12344) -> 12345) ((343 . 5625) (+ 1 12345) -> 12346) ((344 . 5625) (+ 1 12346) -> 12347) ((345 . 5625) (+ 1 12347) -> 12348) ((346 . 5625) (+ 2 12343) -> 12345) ((347 . 5625) (+ 2 12344) -> 12346) ((348 . 5625) (+ 2 12345) -> 12347) ((349 . 5625) (+ 2 12346) -> 12348) ((350 . 5625) (+ 2 12347) -> 12349) ((351 . 5625) (+ -2 4294967294) -> 4294967292) ((352 . 5625) (+ -2 4294967295) -> 4294967293) ((353 . 5625) (+ -2 4294967296) -> 4294967294) ((354 . 5625) (+ -2 4294967297) -> 4294967295) ((355 . 5625) (+ -2 4294967298) -> 4294967296) ((356 . 5625) (+ -1 4294967294) -> 4294967293) ((357 . 5625) (+ -1 4294967295) -> 4294967294) ((358 . 5625) (+ -1 4294967296) -> 4294967295) ((359 . 5625) (+ -1 4294967297) -> 4294967296) ((360 . 5625) (+ -1 4294967298) -> 4294967297) ((361 . 5625) (+ 0 4294967294) -> 4294967294) ((362 . 5625) (+ 0 4294967295) -> 4294967295) ((363 . 5625) (+ 0 4294967296) -> 4294967296) ((364 . 5625) (+ 0 4294967297) -> 4294967297) ((365 . 5625) (+ 0 4294967298) -> 4294967298) ((366 . 5625) (+ 1 4294967294) -> 4294967295) ((367 . 5625) (+ 1 4294967295) -> 4294967296) ((368 . 5625) (+ 1 4294967296) -> 4294967297) ((369 . 5625) (+ 1 4294967297) -> 4294967298) ((370 . 5625) (+ 1 4294967298) -> 4294967299) ((371 . 5625) (+ 2 4294967294) -> 4294967296) ((372 . 5625) (+ 2 4294967295) -> 4294967297) ((373 . 5625) (+ 2 4294967296) -> 4294967298) ((374 . 5625) (+ 2 4294967297) -> 4294967299) ((375 . 5625) (+ 2 4294967298) -> 4294967300) ((376 . 5625) (+ -1 -2) -> -3) ((377 . 5625) (+ -1 -1) -> -2) ((378 . 5625) (+ -1 0) -> -1) ((379 . 5625) (+ -1 1) -> 0) ((380 . 5625) (+ -1 2) -> 1) ((381 . 5625) (+ 0 -2) -> -2) ((382 . 5625) (+ 0 -1) -> -1) ((383 . 5625) (+ 0 0) -> 0) ((384 . 5625) (+ 0 1) -> 1) ((385 . 5625) (+ 0 2) -> 2) ((386 . 5625) (+ 1 -2) -> -1) ((387 . 5625) (+ 1 -1) -> 0) ((388 . 5625) (+ 1 0) -> 1) ((389 . 5625) (+ 1 1) -> 2) ((390 . 5625) (+ 1 2) -> 3) ((391 . 5625) (+ 2 -2) -> 0) ((392 . 5625) (+ 2 -1) -> 1) ((393 . 5625) (+ 2 0) -> 2) ((394 . 5625) (+ 2 1) -> 3) ((395 . 5625) (+ 2 2) -> 4) ((396 . 5625) (+ 3 -2) -> 1) ((397 . 5625) (+ 3 -1) -> 2) ((398 . 5625) (+ 3 0) -> 3) ((399 . 5625) (+ 3 1) -> 4) ((400 . 5625) (+ 3 2) -> 5) ((401 . 5625) (+ -1 -1) -> -2) ((402 . 5625) (+ -1 0) -> -1) ((403 . 5625) (+ -1 1) -> 0) ((404 . 5625) (+ -1 2) -> 1) ((405 . 5625) (+ -1 3) -> 2) ((406 . 5625) (+ 0 -1) -> -1) ((407 . 5625) (+ 0 0) -> 0) ((408 . 5625) (+ 0 1) -> 1) ((409 . 5625) (+ 0 2) -> 2) ((410 . 5625) (+ 0 3) -> 3) ((411 . 5625) (+ 1 -1) -> 0) ((412 . 5625) (+ 1 0) -> 1) ((413 . 5625) (+ 1 1) -> 2) ((414 . 5625) (+ 1 2) -> 3) ((415 . 5625) (+ 1 3) -> 4) ((416 . 5625) (+ 2 -1) -> 1) ((417 . 5625) (+ 2 0) -> 2) ((418 . 5625) (+ 2 1) -> 3) ((419 . 5625) (+ 2 2) -> 4) ((420 . 5625) (+ 2 3) -> 5) ((421 . 5625) (+ 3 -1) -> 2) ((422 . 5625) (+ 3 0) -> 3) ((423 . 5625) (+ 3 1) -> 4) ((424 . 5625) (+ 3 2) -> 5) ((425 . 5625) (+ 3 3) -> 6) ((426 . 5625) (+ -1 -3) -> -4) ((427 . 5625) (+ -1 -2) -> -3) ((428 . 5625) (+ -1 -1) -> -2) ((429 . 5625) (+ -1 0) -> -1) ((430 . 5625) (+ -1 1) -> 0) ((431 . 5625) (+ 0 -3) -> -3) ((432 . 5625) (+ 0 -2) -> -2) ((433 . 5625) (+ 0 -1) -> -1) ((434 . 5625) (+ 0 0) -> 0) ((435 . 5625) (+ 0 1) -> 1) ((436 . 5625) (+ 1 -3) -> -2) ((437 . 5625) (+ 1 -2) -> -1) ((438 . 5625) (+ 1 -1) -> 0) ((439 . 5625) (+ 1 0) -> 1) ((440 . 5625) (+ 1 1) -> 2) ((441 . 5625) (+ 2 -3) -> -1) ((442 . 5625) (+ 2 -2) -> 0) ((443 . 5625) (+ 2 -1) -> 1) ((444 . 5625) (+ 2 0) -> 2) ((445 . 5625) (+ 2 1) -> 3) ((446 . 5625) (+ 3 -3) -> 0) ((447 . 5625) (+ 3 -2) -> 1) ((448 . 5625) (+ 3 -1) -> 2) ((449 . 5625) (+ 3 0) -> 3) ((450 . 5625) (+ 3 1) -> 4) ((451 . 5625) (+ -1 0) -> -1) ((452 . 5625) (+ -1 1) -> 0) ((453 . 5625) (+ -1 2) -> 1) ((454 . 5625) (+ -1 3) -> 2) ((455 . 5625) (+ -1 4) -> 3) ((456 . 5625) (+ 0 0) -> 0) ((457 . 5625) (+ 0 1) -> 1) ((458 . 5625) (+ 0 2) -> 2) ((459 . 5625) (+ 0 3) -> 3) ((460 . 5625) (+ 0 4) -> 4) ((461 . 5625) (+ 1 0) -> 1) ((462 . 5625) (+ 1 1) -> 2) ((463 . 5625) (+ 1 2) -> 3) ((464 . 5625) (+ 1 3) -> 4) ((465 . 5625) (+ 1 4) -> 5) ((466 . 5625) (+ 2 0) -> 2) ((467 . 5625) (+ 2 1) -> 3) ((468 . 5625) (+ 2 2) -> 4) ((469 . 5625) (+ 2 3) -> 5) ((470 . 5625) (+ 2 4) -> 6) ((471 . 5625) (+ 3 0) -> 3) ((472 . 5625) (+ 3 1) -> 4) ((473 . 5625) (+ 3 2) -> 5) ((474 . 5625) (+ 3 3) -> 6) ((475 . 5625) (+ 3 4) -> 7) ((476 . 5625) (+ -1 -4) -> -5) ((477 . 5625) (+ -1 -3) -> -4) ((478 . 5625) (+ -1 -2) -> -3) ((479 . 5625) (+ -1 -1) -> -2) ((480 . 5625) (+ -1 0) -> -1) ((481 . 5625) (+ 0 -4) -> -4) ((482 . 5625) (+ 0 -3) -> -3) ((483 . 5625) (+ 0 -2) -> -2) ((484 . 5625) (+ 0 -1) -> -1) ((485 . 5625) (+ 0 0) -> 0) ((486 . 5625) (+ 1 -4) -> -3) ((487 . 5625) (+ 1 -3) -> -2) ((488 . 5625) (+ 1 -2) -> -1) ((489 . 5625) (+ 1 -1) -> 0) ((490 . 5625) (+ 1 0) -> 1) ((491 . 5625) (+ 2 -4) -> -2) ((492 . 5625) (+ 2 -3) -> -1) ((493 . 5625) (+ 2 -2) -> 0) ((494 . 5625) (+ 2 -1) -> 1) ((495 . 5625) (+ 2 0) -> 2) ((496 . 5625) (+ 3 -4) -> -1) ((497 . 5625) (+ 3 -3) -> 0) ((498 . 5625) (+ 3 -2) -> 1) ((499 . 5625) (+ 3 -1) -> 2) ((500 . 5625) (+ 3 0) -> 3) ((501 . 5625) (+ -1 4611686018427387901) -> 4611686018427387900) ((502 . 5625) (+ -1 4611686018427387902) -> 4611686018427387901) ((503 . 5625) (+ -1 4611686018427387903) -> 4611686018427387902) ((504 . 5625) (+ -1 4611686018427387904) -> 4611686018427387903) ((505 . 5625) (+ -1 4611686018427387905) -> 4611686018427387904) ((506 . 5625) (+ 0 4611686018427387901) -> 4611686018427387901) ((507 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((508 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((509 . 5625) (+ 0 4611686018427387904) -> 4611686018427387904) ((510 . 5625) (+ 0 4611686018427387905) -> 4611686018427387905) ((511 . 5625) (+ 1 4611686018427387901) -> 4611686018427387902) ((512 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((513 . 5625) (+ 1 4611686018427387903) -> 4611686018427387904) ((514 . 5625) (+ 1 4611686018427387904) -> 4611686018427387905) ((515 . 5625) (+ 1 4611686018427387905) -> 4611686018427387906) ((516 . 5625) (+ 2 4611686018427387901) -> 4611686018427387903) ((517 . 5625) (+ 2 4611686018427387902) -> 4611686018427387904) ((518 . 5625) (+ 2 4611686018427387903) -> 4611686018427387905) ((519 . 5625) (+ 2 4611686018427387904) -> 4611686018427387906) ((520 . 5625) (+ 2 4611686018427387905) -> 4611686018427387907) ((521 . 5625) (+ 3 4611686018427387901) -> 4611686018427387904) ((522 . 5625) (+ 3 4611686018427387902) -> 4611686018427387905) ((523 . 5625) (+ 3 4611686018427387903) -> 4611686018427387906) ((524 . 5625) (+ 3 4611686018427387904) -> 4611686018427387907) ((525 . 5625) (+ 3 4611686018427387905) -> 4611686018427387908) ((526 . 5625) (+ -1 -4611686018427387906) -> -4611686018427387907) ((527 . 5625) (+ -1 -4611686018427387905) -> -4611686018427387906) ((528 . 5625) (+ -1 -4611686018427387904) -> -4611686018427387905) ((529 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((530 . 5625) (+ -1 -4611686018427387902) -> -4611686018427387903) ((531 . 5625) (+ 0 -4611686018427387906) -> -4611686018427387906) ((532 . 5625) (+ 0 -4611686018427387905) -> -4611686018427387905) ((533 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((534 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((535 . 5625) (+ 0 -4611686018427387902) -> -4611686018427387902) ((536 . 5625) (+ 1 -4611686018427387906) -> -4611686018427387905) ((537 . 5625) (+ 1 -4611686018427387905) -> -4611686018427387904) ((538 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((539 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((540 . 5625) (+ 1 -4611686018427387902) -> -4611686018427387901) ((541 . 5625) (+ 2 -4611686018427387906) -> -4611686018427387904) ((542 . 5625) (+ 2 -4611686018427387905) -> -4611686018427387903) ((543 . 5625) (+ 2 -4611686018427387904) -> -4611686018427387902) ((544 . 5625) (+ 2 -4611686018427387903) -> -4611686018427387901) ((545 . 5625) (+ 2 -4611686018427387902) -> -4611686018427387900) ((546 . 5625) (+ 3 -4611686018427387906) -> -4611686018427387903) ((547 . 5625) (+ 3 -4611686018427387905) -> -4611686018427387902) ((548 . 5625) (+ 3 -4611686018427387904) -> -4611686018427387901) ((549 . 5625) (+ 3 -4611686018427387903) -> -4611686018427387900) ((550 . 5625) (+ 3 -4611686018427387902) -> -4611686018427387899) ((551 . 5625) (+ -1 4611686018427387902) -> 4611686018427387901) ((552 . 5625) (+ -1 4611686018427387903) -> 4611686018427387902) ((553 . 5625) (+ -1 4611686018427387904) -> 4611686018427387903) ((554 . 5625) (+ -1 4611686018427387905) -> 4611686018427387904) ((555 . 5625) (+ -1 4611686018427387906) -> 4611686018427387905) ((556 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((557 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((558 . 5625) (+ 0 4611686018427387904) -> 4611686018427387904) ((559 . 5625) (+ 0 4611686018427387905) -> 4611686018427387905) ((560 . 5625) (+ 0 4611686018427387906) -> 4611686018427387906) ((561 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((562 . 5625) (+ 1 4611686018427387903) -> 4611686018427387904) ((563 . 5625) (+ 1 4611686018427387904) -> 4611686018427387905) ((564 . 5625) (+ 1 4611686018427387905) -> 4611686018427387906) ((565 . 5625) (+ 1 4611686018427387906) -> 4611686018427387907) ((566 . 5625) (+ 2 4611686018427387902) -> 4611686018427387904) ((567 . 5625) (+ 2 4611686018427387903) -> 4611686018427387905) ((568 . 5625) (+ 2 4611686018427387904) -> 4611686018427387906) ((569 . 5625) (+ 2 4611686018427387905) -> 4611686018427387907) ((570 . 5625) (+ 2 4611686018427387906) -> 4611686018427387908) ((571 . 5625) (+ 3 4611686018427387902) -> 4611686018427387905) ((572 . 5625) (+ 3 4611686018427387903) -> 4611686018427387906) ((573 . 5625) (+ 3 4611686018427387904) -> 4611686018427387907) ((574 . 5625) (+ 3 4611686018427387905) -> 4611686018427387908) ((575 . 5625) (+ 3 4611686018427387906) -> 4611686018427387909) ((576 . 5625) (+ -1 -4611686018427387907) -> -4611686018427387908) ((577 . 5625) (+ -1 -4611686018427387906) -> -4611686018427387907) ((578 . 5625) (+ -1 -4611686018427387905) -> -4611686018427387906) ((579 . 5625) (+ -1 -4611686018427387904) -> -4611686018427387905) ((580 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((581 . 5625) (+ 0 -4611686018427387907) -> -4611686018427387907) ((582 . 5625) (+ 0 -4611686018427387906) -> -4611686018427387906) ((583 . 5625) (+ 0 -4611686018427387905) -> -4611686018427387905) ((584 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((585 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((586 . 5625) (+ 1 -4611686018427387907) -> -4611686018427387906) ((587 . 5625) (+ 1 -4611686018427387906) -> -4611686018427387905) ((588 . 5625) (+ 1 -4611686018427387905) -> -4611686018427387904) ((589 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((590 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((591 . 5625) (+ 2 -4611686018427387907) -> -4611686018427387905) ((592 . 5625) (+ 2 -4611686018427387906) -> -4611686018427387904) ((593 . 5625) (+ 2 -4611686018427387905) -> -4611686018427387903) ((594 . 5625) (+ 2 -4611686018427387904) -> -4611686018427387902) ((595 . 5625) (+ 2 -4611686018427387903) -> -4611686018427387901) ((596 . 5625) (+ 3 -4611686018427387907) -> -4611686018427387904) ((597 . 5625) (+ 3 -4611686018427387906) -> -4611686018427387903) ((598 . 5625) (+ 3 -4611686018427387905) -> -4611686018427387902) ((599 . 5625) (+ 3 -4611686018427387904) -> -4611686018427387901) ((600 . 5625) (+ 3 -4611686018427387903) -> -4611686018427387900) ((601 . 5625) (+ -1 1103515243) -> 1103515242) ((602 . 5625) (+ -1 1103515244) -> 1103515243) ((603 . 5625) (+ -1 1103515245) -> 1103515244) ((604 . 5625) (+ -1 1103515246) -> 1103515245) ((605 . 5625) (+ -1 1103515247) -> 1103515246) ((606 . 5625) (+ 0 1103515243) -> 1103515243) ((607 . 5625) (+ 0 1103515244) -> 1103515244) ((608 . 5625) (+ 0 1103515245) -> 1103515245) ((609 . 5625) (+ 0 1103515246) -> 1103515246) ((610 . 5625) (+ 0 1103515247) -> 1103515247) ((611 . 5625) (+ 1 1103515243) -> 1103515244) ((612 . 5625) (+ 1 1103515244) -> 1103515245) ((613 . 5625) (+ 1 1103515245) -> 1103515246) ((614 . 5625) (+ 1 1103515246) -> 1103515247) ((615 . 5625) (+ 1 1103515247) -> 1103515248) ((616 . 5625) (+ 2 1103515243) -> 1103515245) ((617 . 5625) (+ 2 1103515244) -> 1103515246) ((618 . 5625) (+ 2 1103515245) -> 1103515247) ((619 . 5625) (+ 2 1103515246) -> 1103515248) ((620 . 5625) (+ 2 1103515247) -> 1103515249) ((621 . 5625) (+ 3 1103515243) -> 1103515246) ((622 . 5625) (+ 3 1103515244) -> 1103515247) ((623 . 5625) (+ 3 1103515245) -> 1103515248) ((624 . 5625) (+ 3 1103515246) -> 1103515249) ((625 . 5625) (+ 3 1103515247) -> 1103515250) ((626 . 5625) (+ -1 631629063) -> 631629062) ((627 . 5625) (+ -1 631629064) -> 631629063) ((628 . 5625) (+ -1 631629065) -> 631629064) ((629 . 5625) (+ -1 631629066) -> 631629065) ((630 . 5625) (+ -1 631629067) -> 631629066) ((631 . 5625) (+ 0 631629063) -> 631629063) ((632 . 5625) (+ 0 631629064) -> 631629064) ((633 . 5625) (+ 0 631629065) -> 631629065) ((634 . 5625) (+ 0 631629066) -> 631629066) ((635 . 5625) (+ 0 631629067) -> 631629067) ((636 . 5625) (+ 1 631629063) -> 631629064) ((637 . 5625) (+ 1 631629064) -> 631629065) ((638 . 5625) (+ 1 631629065) -> 631629066) ((639 . 5625) (+ 1 631629066) -> 631629067) ((640 . 5625) (+ 1 631629067) -> 631629068) ((641 . 5625) (+ 2 631629063) -> 631629065) ((642 . 5625) (+ 2 631629064) -> 631629066) ((643 . 5625) (+ 2 631629065) -> 631629067) ((644 . 5625) (+ 2 631629066) -> 631629068) ((645 . 5625) (+ 2 631629067) -> 631629069) ((646 . 5625) (+ 3 631629063) -> 631629066) ((647 . 5625) (+ 3 631629064) -> 631629067) ((648 . 5625) (+ 3 631629065) -> 631629068) ((649 . 5625) (+ 3 631629066) -> 631629069) ((650 . 5625) (+ 3 631629067) -> 631629070) ((651 . 5625) (+ -1 9007199254740990) -> 9007199254740989) ((652 . 5625) (+ -1 9007199254740991) -> 9007199254740990) ((653 . 5625) (+ -1 9007199254740992) -> 9007199254740991) ((654 . 5625) (+ -1 9007199254740993) -> 9007199254740992) ((655 . 5625) (+ -1 9007199254740994) -> 9007199254740993) ((656 . 5625) (+ 0 9007199254740990) -> 9007199254740990) ((657 . 5625) (+ 0 9007199254740991) -> 9007199254740991) ((658 . 5625) (+ 0 9007199254740992) -> 9007199254740992) ((659 . 5625) (+ 0 9007199254740993) -> 9007199254740993) ((660 . 5625) (+ 0 9007199254740994) -> 9007199254740994) ((661 . 5625) (+ 1 9007199254740990) -> 9007199254740991) ((662 . 5625) (+ 1 9007199254740991) -> 9007199254740992) ((663 . 5625) (+ 1 9007199254740992) -> 9007199254740993) ((664 . 5625) (+ 1 9007199254740993) -> 9007199254740994) ((665 . 5625) (+ 1 9007199254740994) -> 9007199254740995) ((666 . 5625) (+ 2 9007199254740990) -> 9007199254740992) ((667 . 5625) (+ 2 9007199254740991) -> 9007199254740993) ((668 . 5625) (+ 2 9007199254740992) -> 9007199254740994) ((669 . 5625) (+ 2 9007199254740993) -> 9007199254740995) ((670 . 5625) (+ 2 9007199254740994) -> 9007199254740996) ((671 . 5625) (+ 3 9007199254740990) -> 9007199254740993) ((672 . 5625) (+ 3 9007199254740991) -> 9007199254740994) ((673 . 5625) (+ 3 9007199254740992) -> 9007199254740995) ((674 . 5625) (+ 3 9007199254740993) -> 9007199254740996) ((675 . 5625) (+ 3 9007199254740994) -> 9007199254740997) ((676 . 5625) (+ -1 -9007199254740994) -> -9007199254740995) ((677 . 5625) (+ -1 -9007199254740993) -> -9007199254740994) ((678 . 5625) (+ -1 -9007199254740992) -> -9007199254740993) ((679 . 5625) (+ -1 -9007199254740991) -> -9007199254740992) ((680 . 5625) (+ -1 -9007199254740990) -> -9007199254740991) ((681 . 5625) (+ 0 -9007199254740994) -> -9007199254740994) ((682 . 5625) (+ 0 -9007199254740993) -> -9007199254740993) ((683 . 5625) (+ 0 -9007199254740992) -> -9007199254740992) ((684 . 5625) (+ 0 -9007199254740991) -> -9007199254740991) ((685 . 5625) (+ 0 -9007199254740990) -> -9007199254740990) ((686 . 5625) (+ 1 -9007199254740994) -> -9007199254740993) ((687 . 5625) (+ 1 -9007199254740993) -> -9007199254740992) ((688 . 5625) (+ 1 -9007199254740992) -> -9007199254740991) ((689 . 5625) (+ 1 -9007199254740991) -> -9007199254740990) ((690 . 5625) (+ 1 -9007199254740990) -> -9007199254740989) ((691 . 5625) (+ 2 -9007199254740994) -> -9007199254740992) ((692 . 5625) (+ 2 -9007199254740993) -> -9007199254740991) ((693 . 5625) (+ 2 -9007199254740992) -> -9007199254740990) ((694 . 5625) (+ 2 -9007199254740991) -> -9007199254740989) ((695 . 5625) (+ 2 -9007199254740990) -> -9007199254740988) ((696 . 5625) (+ 3 -9007199254740994) -> -9007199254740991) ((697 . 5625) (+ 3 -9007199254740993) -> -9007199254740990) ((698 . 5625) (+ 3 -9007199254740992) -> -9007199254740989) ((699 . 5625) (+ 3 -9007199254740991) -> -9007199254740988) ((700 . 5625) (+ 3 -9007199254740990) -> -9007199254740987) ((701 . 5625) (+ -1 12343) -> 12342) ((702 . 5625) (+ -1 12344) -> 12343) ((703 . 5625) (+ -1 12345) -> 12344) ((704 . 5625) (+ -1 12346) -> 12345) ((705 . 5625) (+ -1 12347) -> 12346) ((706 . 5625) (+ 0 12343) -> 12343) ((707 . 5625) (+ 0 12344) -> 12344) ((708 . 5625) (+ 0 12345) -> 12345) ((709 . 5625) (+ 0 12346) -> 12346) ((710 . 5625) (+ 0 12347) -> 12347) ((711 . 5625) (+ 1 12343) -> 12344) ((712 . 5625) (+ 1 12344) -> 12345) ((713 . 5625) (+ 1 12345) -> 12346) ((714 . 5625) (+ 1 12346) -> 12347) ((715 . 5625) (+ 1 12347) -> 12348) ((716 . 5625) (+ 2 12343) -> 12345) ((717 . 5625) (+ 2 12344) -> 12346) ((718 . 5625) (+ 2 12345) -> 12347) ((719 . 5625) (+ 2 12346) -> 12348) ((720 . 5625) (+ 2 12347) -> 12349) ((721 . 5625) (+ 3 12343) -> 12346) ((722 . 5625) (+ 3 12344) -> 12347) ((723 . 5625) (+ 3 12345) -> 12348) ((724 . 5625) (+ 3 12346) -> 12349) ((725 . 5625) (+ 3 12347) -> 12350) ((726 . 5625) (+ -1 4294967294) -> 4294967293) ((727 . 5625) (+ -1 4294967295) -> 4294967294) ((728 . 5625) (+ -1 4294967296) -> 4294967295) ((729 . 5625) (+ -1 4294967297) -> 4294967296) ((730 . 5625) (+ -1 4294967298) -> 4294967297) ((731 . 5625) (+ 0 4294967294) -> 4294967294) ((732 . 5625) (+ 0 4294967295) -> 4294967295) ((733 . 5625) (+ 0 4294967296) -> 4294967296) ((734 . 5625) (+ 0 4294967297) -> 4294967297) ((735 . 5625) (+ 0 4294967298) -> 4294967298) ((736 . 5625) (+ 1 4294967294) -> 4294967295) ((737 . 5625) (+ 1 4294967295) -> 4294967296) ((738 . 5625) (+ 1 4294967296) -> 4294967297) ((739 . 5625) (+ 1 4294967297) -> 4294967298) ((740 . 5625) (+ 1 4294967298) -> 4294967299) ((741 . 5625) (+ 2 4294967294) -> 4294967296) ((742 . 5625) (+ 2 4294967295) -> 4294967297) ((743 . 5625) (+ 2 4294967296) -> 4294967298) ((744 . 5625) (+ 2 4294967297) -> 4294967299) ((745 . 5625) (+ 2 4294967298) -> 4294967300) ((746 . 5625) (+ 3 4294967294) -> 4294967297) ((747 . 5625) (+ 3 4294967295) -> 4294967298) ((748 . 5625) (+ 3 4294967296) -> 4294967299) ((749 . 5625) (+ 3 4294967297) -> 4294967300) ((750 . 5625) (+ 3 4294967298) -> 4294967301) ((751 . 5625) (+ -3 -2) -> -5) ((752 . 5625) (+ -3 -1) -> -4) ((753 . 5625) (+ -3 0) -> -3) ((754 . 5625) (+ -3 1) -> -2) ((755 . 5625) (+ -3 2) -> -1) ((756 . 5625) (+ -2 -2) -> -4) ((757 . 5625) (+ -2 -1) -> -3) ((758 . 5625) (+ -2 0) -> -2) ((759 . 5625) (+ -2 1) -> -1) ((760 . 5625) (+ -2 2) -> 0) ((761 . 5625) (+ -1 -2) -> -3) ((762 . 5625) (+ -1 -1) -> -2) ((763 . 5625) (+ -1 0) -> -1) ((764 . 5625) (+ -1 1) -> 0) ((765 . 5625) (+ -1 2) -> 1) ((766 . 5625) (+ 0 -2) -> -2) ((767 . 5625) (+ 0 -1) -> -1) ((768 . 5625) (+ 0 0) -> 0) ((769 . 5625) (+ 0 1) -> 1) ((770 . 5625) (+ 0 2) -> 2) ((771 . 5625) (+ 1 -2) -> -1) ((772 . 5625) (+ 1 -1) -> 0) ((773 . 5625) (+ 1 0) -> 1) ((774 . 5625) (+ 1 1) -> 2) ((775 . 5625) (+ 1 2) -> 3) ((776 . 5625) (+ -3 -1) -> -4) ((777 . 5625) (+ -3 0) -> -3) ((778 . 5625) (+ -3 1) -> -2) ((779 . 5625) (+ -3 2) -> -1) ((780 . 5625) (+ -3 3) -> 0) ((781 . 5625) (+ -2 -1) -> -3) ((782 . 5625) (+ -2 0) -> -2) ((783 . 5625) (+ -2 1) -> -1) ((784 . 5625) (+ -2 2) -> 0) ((785 . 5625) (+ -2 3) -> 1) ((786 . 5625) (+ -1 -1) -> -2) ((787 . 5625) (+ -1 0) -> -1) ((788 . 5625) (+ -1 1) -> 0) ((789 . 5625) (+ -1 2) -> 1) ((790 . 5625) (+ -1 3) -> 2) ((791 . 5625) (+ 0 -1) -> -1) ((792 . 5625) (+ 0 0) -> 0) ((793 . 5625) (+ 0 1) -> 1) ((794 . 5625) (+ 0 2) -> 2) ((795 . 5625) (+ 0 3) -> 3) ((796 . 5625) (+ 1 -1) -> 0) ((797 . 5625) (+ 1 0) -> 1) ((798 . 5625) (+ 1 1) -> 2) ((799 . 5625) (+ 1 2) -> 3) ((800 . 5625) (+ 1 3) -> 4) ((801 . 5625) (+ -3 -3) -> -6) ((802 . 5625) (+ -3 -2) -> -5) ((803 . 5625) (+ -3 -1) -> -4) ((804 . 5625) (+ -3 0) -> -3) ((805 . 5625) (+ -3 1) -> -2) ((806 . 5625) (+ -2 -3) -> -5) ((807 . 5625) (+ -2 -2) -> -4) ((808 . 5625) (+ -2 -1) -> -3) ((809 . 5625) (+ -2 0) -> -2) ((810 . 5625) (+ -2 1) -> -1) ((811 . 5625) (+ -1 -3) -> -4) ((812 . 5625) (+ -1 -2) -> -3) ((813 . 5625) (+ -1 -1) -> -2) ((814 . 5625) (+ -1 0) -> -1) ((815 . 5625) (+ -1 1) -> 0) ((816 . 5625) (+ 0 -3) -> -3) ((817 . 5625) (+ 0 -2) -> -2) ((818 . 5625) (+ 0 -1) -> -1) ((819 . 5625) (+ 0 0) -> 0) ((820 . 5625) (+ 0 1) -> 1) ((821 . 5625) (+ 1 -3) -> -2) ((822 . 5625) (+ 1 -2) -> -1) ((823 . 5625) (+ 1 -1) -> 0) ((824 . 5625) (+ 1 0) -> 1) ((825 . 5625) (+ 1 1) -> 2) ((826 . 5625) (+ -3 0) -> -3) ((827 . 5625) (+ -3 1) -> -2) ((828 . 5625) (+ -3 2) -> -1) ((829 . 5625) (+ -3 3) -> 0) ((830 . 5625) (+ -3 4) -> 1) ((831 . 5625) (+ -2 0) -> -2) ((832 . 5625) (+ -2 1) -> -1) ((833 . 5625) (+ -2 2) -> 0) ((834 . 5625) (+ -2 3) -> 1) ((835 . 5625) (+ -2 4) -> 2) ((836 . 5625) (+ -1 0) -> -1) ((837 . 5625) (+ -1 1) -> 0) ((838 . 5625) (+ -1 2) -> 1) ((839 . 5625) (+ -1 3) -> 2) ((840 . 5625) (+ -1 4) -> 3) ((841 . 5625) (+ 0 0) -> 0) ((842 . 5625) (+ 0 1) -> 1) ((843 . 5625) (+ 0 2) -> 2) ((844 . 5625) (+ 0 3) -> 3) ((845 . 5625) (+ 0 4) -> 4) ((846 . 5625) (+ 1 0) -> 1) ((847 . 5625) (+ 1 1) -> 2) ((848 . 5625) (+ 1 2) -> 3) ((849 . 5625) (+ 1 3) -> 4) ((850 . 5625) (+ 1 4) -> 5) ((851 . 5625) (+ -3 -4) -> -7) ((852 . 5625) (+ -3 -3) -> -6) ((853 . 5625) (+ -3 -2) -> -5) ((854 . 5625) (+ -3 -1) -> -4) ((855 . 5625) (+ -3 0) -> -3) ((856 . 5625) (+ -2 -4) -> -6) ((857 . 5625) (+ -2 -3) -> -5) ((858 . 5625) (+ -2 -2) -> -4) ((859 . 5625) (+ -2 -1) -> -3) ((860 . 5625) (+ -2 0) -> -2) ((861 . 5625) (+ -1 -4) -> -5) ((862 . 5625) (+ -1 -3) -> -4) ((863 . 5625) (+ -1 -2) -> -3) ((864 . 5625) (+ -1 -1) -> -2) ((865 . 5625) (+ -1 0) -> -1) ((866 . 5625) (+ 0 -4) -> -4) ((867 . 5625) (+ 0 -3) -> -3) ((868 . 5625) (+ 0 -2) -> -2) ((869 . 5625) (+ 0 -1) -> -1) ((870 . 5625) (+ 0 0) -> 0) ((871 . 5625) (+ 1 -4) -> -3) ((872 . 5625) (+ 1 -3) -> -2) ((873 . 5625) (+ 1 -2) -> -1) ((874 . 5625) (+ 1 -1) -> 0) ((875 . 5625) (+ 1 0) -> 1) ((876 . 5625) (+ -3 4611686018427387901) -> 4611686018427387898) ((877 . 5625) (+ -3 4611686018427387902) -> 4611686018427387899) ((878 . 5625) (+ -3 4611686018427387903) -> 4611686018427387900) ((879 . 5625) (+ -3 4611686018427387904) -> 4611686018427387901) ((880 . 5625) (+ -3 4611686018427387905) -> 4611686018427387902) ((881 . 5625) (+ -2 4611686018427387901) -> 4611686018427387899) ((882 . 5625) (+ -2 4611686018427387902) -> 4611686018427387900) ((883 . 5625) (+ -2 4611686018427387903) -> 4611686018427387901) ((884 . 5625) (+ -2 4611686018427387904) -> 4611686018427387902) ((885 . 5625) (+ -2 4611686018427387905) -> 4611686018427387903) ((886 . 5625) (+ -1 4611686018427387901) -> 4611686018427387900) ((887 . 5625) (+ -1 4611686018427387902) -> 4611686018427387901) ((888 . 5625) (+ -1 4611686018427387903) -> 4611686018427387902) ((889 . 5625) (+ -1 4611686018427387904) -> 4611686018427387903) ((890 . 5625) (+ -1 4611686018427387905) -> 4611686018427387904) ((891 . 5625) (+ 0 4611686018427387901) -> 4611686018427387901) ((892 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((893 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((894 . 5625) (+ 0 4611686018427387904) -> 4611686018427387904) ((895 . 5625) (+ 0 4611686018427387905) -> 4611686018427387905) ((896 . 5625) (+ 1 4611686018427387901) -> 4611686018427387902) ((897 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((898 . 5625) (+ 1 4611686018427387903) -> 4611686018427387904) ((899 . 5625) (+ 1 4611686018427387904) -> 4611686018427387905) ((900 . 5625) (+ 1 4611686018427387905) -> 4611686018427387906) ((901 . 5625) (+ -3 -4611686018427387906) -> -4611686018427387909) ((902 . 5625) (+ -3 -4611686018427387905) -> -4611686018427387908) ((903 . 5625) (+ -3 -4611686018427387904) -> -4611686018427387907) ((904 . 5625) (+ -3 -4611686018427387903) -> -4611686018427387906) ((905 . 5625) (+ -3 -4611686018427387902) -> -4611686018427387905) ((906 . 5625) (+ -2 -4611686018427387906) -> -4611686018427387908) ((907 . 5625) (+ -2 -4611686018427387905) -> -4611686018427387907) ((908 . 5625) (+ -2 -4611686018427387904) -> -4611686018427387906) ((909 . 5625) (+ -2 -4611686018427387903) -> -4611686018427387905) ((910 . 5625) (+ -2 -4611686018427387902) -> -4611686018427387904) ((911 . 5625) (+ -1 -4611686018427387906) -> -4611686018427387907) ((912 . 5625) (+ -1 -4611686018427387905) -> -4611686018427387906) ((913 . 5625) (+ -1 -4611686018427387904) -> -4611686018427387905) ((914 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((915 . 5625) (+ -1 -4611686018427387902) -> -4611686018427387903) ((916 . 5625) (+ 0 -4611686018427387906) -> -4611686018427387906) ((917 . 5625) (+ 0 -4611686018427387905) -> -4611686018427387905) ((918 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((919 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((920 . 5625) (+ 0 -4611686018427387902) -> -4611686018427387902) ((921 . 5625) (+ 1 -4611686018427387906) -> -4611686018427387905) ((922 . 5625) (+ 1 -4611686018427387905) -> -4611686018427387904) ((923 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((924 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((925 . 5625) (+ 1 -4611686018427387902) -> -4611686018427387901) ((926 . 5625) (+ -3 4611686018427387902) -> 4611686018427387899) ((927 . 5625) (+ -3 4611686018427387903) -> 4611686018427387900) ((928 . 5625) (+ -3 4611686018427387904) -> 4611686018427387901) ((929 . 5625) (+ -3 4611686018427387905) -> 4611686018427387902) ((930 . 5625) (+ -3 4611686018427387906) -> 4611686018427387903) ((931 . 5625) (+ -2 4611686018427387902) -> 4611686018427387900) ((932 . 5625) (+ -2 4611686018427387903) -> 4611686018427387901) ((933 . 5625) (+ -2 4611686018427387904) -> 4611686018427387902) ((934 . 5625) (+ -2 4611686018427387905) -> 4611686018427387903) ((935 . 5625) (+ -2 4611686018427387906) -> 4611686018427387904) ((936 . 5625) (+ -1 4611686018427387902) -> 4611686018427387901) ((937 . 5625) (+ -1 4611686018427387903) -> 4611686018427387902) ((938 . 5625) (+ -1 4611686018427387904) -> 4611686018427387903) ((939 . 5625) (+ -1 4611686018427387905) -> 4611686018427387904) ((940 . 5625) (+ -1 4611686018427387906) -> 4611686018427387905) ((941 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((942 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((943 . 5625) (+ 0 4611686018427387904) -> 4611686018427387904) ((944 . 5625) (+ 0 4611686018427387905) -> 4611686018427387905) ((945 . 5625) (+ 0 4611686018427387906) -> 4611686018427387906) ((946 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((947 . 5625) (+ 1 4611686018427387903) -> 4611686018427387904) ((948 . 5625) (+ 1 4611686018427387904) -> 4611686018427387905) ((949 . 5625) (+ 1 4611686018427387905) -> 4611686018427387906) ((950 . 5625) (+ 1 4611686018427387906) -> 4611686018427387907) ((951 . 5625) (+ -3 -4611686018427387907) -> -4611686018427387910) ((952 . 5625) (+ -3 -4611686018427387906) -> -4611686018427387909) ((953 . 5625) (+ -3 -4611686018427387905) -> -4611686018427387908) ((954 . 5625) (+ -3 -4611686018427387904) -> -4611686018427387907) ((955 . 5625) (+ -3 -4611686018427387903) -> -4611686018427387906) ((956 . 5625) (+ -2 -4611686018427387907) -> -4611686018427387909) ((957 . 5625) (+ -2 -4611686018427387906) -> -4611686018427387908) ((958 . 5625) (+ -2 -4611686018427387905) -> -4611686018427387907) ((959 . 5625) (+ -2 -4611686018427387904) -> -4611686018427387906) ((960 . 5625) (+ -2 -4611686018427387903) -> -4611686018427387905) ((961 . 5625) (+ -1 -4611686018427387907) -> -4611686018427387908) ((962 . 5625) (+ -1 -4611686018427387906) -> -4611686018427387907) ((963 . 5625) (+ -1 -4611686018427387905) -> -4611686018427387906) ((964 . 5625) (+ -1 -4611686018427387904) -> -4611686018427387905) ((965 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((966 . 5625) (+ 0 -4611686018427387907) -> -4611686018427387907) ((967 . 5625) (+ 0 -4611686018427387906) -> -4611686018427387906) ((968 . 5625) (+ 0 -4611686018427387905) -> -4611686018427387905) ((969 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((970 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((971 . 5625) (+ 1 -4611686018427387907) -> -4611686018427387906) ((972 . 5625) (+ 1 -4611686018427387906) -> -4611686018427387905) ((973 . 5625) (+ 1 -4611686018427387905) -> -4611686018427387904) ((974 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((975 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((976 . 5625) (+ -3 1103515243) -> 1103515240) ((977 . 5625) (+ -3 1103515244) -> 1103515241) ((978 . 5625) (+ -3 1103515245) -> 1103515242) ((979 . 5625) (+ -3 1103515246) -> 1103515243) ((980 . 5625) (+ -3 1103515247) -> 1103515244) ((981 . 5625) (+ -2 1103515243) -> 1103515241) ((982 . 5625) (+ -2 1103515244) -> 1103515242) ((983 . 5625) (+ -2 1103515245) -> 1103515243) ((984 . 5625) (+ -2 1103515246) -> 1103515244) ((985 . 5625) (+ -2 1103515247) -> 1103515245) ((986 . 5625) (+ -1 1103515243) -> 1103515242) ((987 . 5625) (+ -1 1103515244) -> 1103515243) ((988 . 5625) (+ -1 1103515245) -> 1103515244) ((989 . 5625) (+ -1 1103515246) -> 1103515245) ((990 . 5625) (+ -1 1103515247) -> 1103515246) ((991 . 5625) (+ 0 1103515243) -> 1103515243) ((992 . 5625) (+ 0 1103515244) -> 1103515244) ((993 . 5625) (+ 0 1103515245) -> 1103515245) ((994 . 5625) (+ 0 1103515246) -> 1103515246) ((995 . 5625) (+ 0 1103515247) -> 1103515247) ((996 . 5625) (+ 1 1103515243) -> 1103515244) ((997 . 5625) (+ 1 1103515244) -> 1103515245) ((998 . 5625) (+ 1 1103515245) -> 1103515246) ((999 . 5625) (+ 1 1103515246) -> 1103515247) ((1000 . 5625) (+ 1 1103515247) -> 1103515248) ((1001 . 5625) (+ -3 631629063) -> 631629060) ((1002 . 5625) (+ -3 631629064) -> 631629061) ((1003 . 5625) (+ -3 631629065) -> 631629062) ((1004 . 5625) (+ -3 631629066) -> 631629063) ((1005 . 5625) (+ -3 631629067) -> 631629064) ((1006 . 5625) (+ -2 631629063) -> 631629061) ((1007 . 5625) (+ -2 631629064) -> 631629062) ((1008 . 5625) (+ -2 631629065) -> 631629063) ((1009 . 5625) (+ -2 631629066) -> 631629064) ((1010 . 5625) (+ -2 631629067) -> 631629065) ((1011 . 5625) (+ -1 631629063) -> 631629062) ((1012 . 5625) (+ -1 631629064) -> 631629063) ((1013 . 5625) (+ -1 631629065) -> 631629064) ((1014 . 5625) (+ -1 631629066) -> 631629065) ((1015 . 5625) (+ -1 631629067) -> 631629066) ((1016 . 5625) (+ 0 631629063) -> 631629063) ((1017 . 5625) (+ 0 631629064) -> 631629064) ((1018 . 5625) (+ 0 631629065) -> 631629065) ((1019 . 5625) (+ 0 631629066) -> 631629066) ((1020 . 5625) (+ 0 631629067) -> 631629067) ((1021 . 5625) (+ 1 631629063) -> 631629064) ((1022 . 5625) (+ 1 631629064) -> 631629065) ((1023 . 5625) (+ 1 631629065) -> 631629066) ((1024 . 5625) (+ 1 631629066) -> 631629067) ((1025 . 5625) (+ 1 631629067) -> 631629068) ((1026 . 5625) (+ -3 9007199254740990) -> 9007199254740987) ((1027 . 5625) (+ -3 9007199254740991) -> 9007199254740988) ((1028 . 5625) (+ -3 9007199254740992) -> 9007199254740989) ((1029 . 5625) (+ -3 9007199254740993) -> 9007199254740990) ((1030 . 5625) (+ -3 9007199254740994) -> 9007199254740991) ((1031 . 5625) (+ -2 9007199254740990) -> 9007199254740988) ((1032 . 5625) (+ -2 9007199254740991) -> 9007199254740989) ((1033 . 5625) (+ -2 9007199254740992) -> 9007199254740990) ((1034 . 5625) (+ -2 9007199254740993) -> 9007199254740991) ((1035 . 5625) (+ -2 9007199254740994) -> 9007199254740992) ((1036 . 5625) (+ -1 9007199254740990) -> 9007199254740989) ((1037 . 5625) (+ -1 9007199254740991) -> 9007199254740990) ((1038 . 5625) (+ -1 9007199254740992) -> 9007199254740991) ((1039 . 5625) (+ -1 9007199254740993) -> 9007199254740992) ((1040 . 5625) (+ -1 9007199254740994) -> 9007199254740993) ((1041 . 5625) (+ 0 9007199254740990) -> 9007199254740990) ((1042 . 5625) (+ 0 9007199254740991) -> 9007199254740991) ((1043 . 5625) (+ 0 9007199254740992) -> 9007199254740992) ((1044 . 5625) (+ 0 9007199254740993) -> 9007199254740993) ((1045 . 5625) (+ 0 9007199254740994) -> 9007199254740994) ((1046 . 5625) (+ 1 9007199254740990) -> 9007199254740991) ((1047 . 5625) (+ 1 9007199254740991) -> 9007199254740992) ((1048 . 5625) (+ 1 9007199254740992) -> 9007199254740993) ((1049 . 5625) (+ 1 9007199254740993) -> 9007199254740994) ((1050 . 5625) (+ 1 9007199254740994) -> 9007199254740995) ((1051 . 5625) (+ -3 -9007199254740994) -> -9007199254740997) ((1052 . 5625) (+ -3 -9007199254740993) -> -9007199254740996) ((1053 . 5625) (+ -3 -9007199254740992) -> -9007199254740995) ((1054 . 5625) (+ -3 -9007199254740991) -> -9007199254740994) ((1055 . 5625) (+ -3 -9007199254740990) -> -9007199254740993) ((1056 . 5625) (+ -2 -9007199254740994) -> -9007199254740996) ((1057 . 5625) (+ -2 -9007199254740993) -> -9007199254740995) ((1058 . 5625) (+ -2 -9007199254740992) -> -9007199254740994) ((1059 . 5625) (+ -2 -9007199254740991) -> -9007199254740993) ((1060 . 5625) (+ -2 -9007199254740990) -> -9007199254740992) ((1061 . 5625) (+ -1 -9007199254740994) -> -9007199254740995) ((1062 . 5625) (+ -1 -9007199254740993) -> -9007199254740994) ((1063 . 5625) (+ -1 -9007199254740992) -> -9007199254740993) ((1064 . 5625) (+ -1 -9007199254740991) -> -9007199254740992) ((1065 . 5625) (+ -1 -9007199254740990) -> -9007199254740991) ((1066 . 5625) (+ 0 -9007199254740994) -> -9007199254740994) ((1067 . 5625) (+ 0 -9007199254740993) -> -9007199254740993) ((1068 . 5625) (+ 0 -9007199254740992) -> -9007199254740992) ((1069 . 5625) (+ 0 -9007199254740991) -> -9007199254740991) ((1070 . 5625) (+ 0 -9007199254740990) -> -9007199254740990) ((1071 . 5625) (+ 1 -9007199254740994) -> -9007199254740993) ((1072 . 5625) (+ 1 -9007199254740993) -> -9007199254740992) ((1073 . 5625) (+ 1 -9007199254740992) -> -9007199254740991) ((1074 . 5625) (+ 1 -9007199254740991) -> -9007199254740990) ((1075 . 5625) (+ 1 -9007199254740990) -> -9007199254740989) ((1076 . 5625) (+ -3 12343) -> 12340) ((1077 . 5625) (+ -3 12344) -> 12341) ((1078 . 5625) (+ -3 12345) -> 12342) ((1079 . 5625) (+ -3 12346) -> 12343) ((1080 . 5625) (+ -3 12347) -> 12344) ((1081 . 5625) (+ -2 12343) -> 12341) ((1082 . 5625) (+ -2 12344) -> 12342) ((1083 . 5625) (+ -2 12345) -> 12343) ((1084 . 5625) (+ -2 12346) -> 12344) ((1085 . 5625) (+ -2 12347) -> 12345) ((1086 . 5625) (+ -1 12343) -> 12342) ((1087 . 5625) (+ -1 12344) -> 12343) ((1088 . 5625) (+ -1 12345) -> 12344) ((1089 . 5625) (+ -1 12346) -> 12345) ((1090 . 5625) (+ -1 12347) -> 12346) ((1091 . 5625) (+ 0 12343) -> 12343) ((1092 . 5625) (+ 0 12344) -> 12344) ((1093 . 5625) (+ 0 12345) -> 12345) ((1094 . 5625) (+ 0 12346) -> 12346) ((1095 . 5625) (+ 0 12347) -> 12347) ((1096 . 5625) (+ 1 12343) -> 12344) ((1097 . 5625) (+ 1 12344) -> 12345) ((1098 . 5625) (+ 1 12345) -> 12346) ((1099 . 5625) (+ 1 12346) -> 12347) ((1100 . 5625) (+ 1 12347) -> 12348) ((1101 . 5625) (+ -3 4294967294) -> 4294967291) ((1102 . 5625) (+ -3 4294967295) -> 4294967292) ((1103 . 5625) (+ -3 4294967296) -> 4294967293) ((1104 . 5625) (+ -3 4294967297) -> 4294967294) ((1105 . 5625) (+ -3 4294967298) -> 4294967295) ((1106 . 5625) (+ -2 4294967294) -> 4294967292) ((1107 . 5625) (+ -2 4294967295) -> 4294967293) ((1108 . 5625) (+ -2 4294967296) -> 4294967294) ((1109 . 5625) (+ -2 4294967297) -> 4294967295) ((1110 . 5625) (+ -2 4294967298) -> 4294967296) ((1111 . 5625) (+ -1 4294967294) -> 4294967293) ((1112 . 5625) (+ -1 4294967295) -> 4294967294) ((1113 . 5625) (+ -1 4294967296) -> 4294967295) ((1114 . 5625) (+ -1 4294967297) -> 4294967296) ((1115 . 5625) (+ -1 4294967298) -> 4294967297) ((1116 . 5625) (+ 0 4294967294) -> 4294967294) ((1117 . 5625) (+ 0 4294967295) -> 4294967295) ((1118 . 5625) (+ 0 4294967296) -> 4294967296) ((1119 . 5625) (+ 0 4294967297) -> 4294967297) ((1120 . 5625) (+ 0 4294967298) -> 4294967298) ((1121 . 5625) (+ 1 4294967294) -> 4294967295) ((1122 . 5625) (+ 1 4294967295) -> 4294967296) ((1123 . 5625) (+ 1 4294967296) -> 4294967297) ((1124 . 5625) (+ 1 4294967297) -> 4294967298) ((1125 . 5625) (+ 1 4294967298) -> 4294967299) ((1126 . 5625) (+ 0 -2) -> -2) ((1127 . 5625) (+ 0 -1) -> -1) ((1128 . 5625) (+ 0 0) -> 0) ((1129 . 5625) (+ 0 1) -> 1) ((1130 . 5625) (+ 0 2) -> 2) ((1131 . 5625) (+ 1 -2) -> -1) ((1132 . 5625) (+ 1 -1) -> 0) ((1133 . 5625) (+ 1 0) -> 1) ((1134 . 5625) (+ 1 1) -> 2) ((1135 . 5625) (+ 1 2) -> 3) ((1136 . 5625) (+ 2 -2) -> 0) ((1137 . 5625) (+ 2 -1) -> 1) ((1138 . 5625) (+ 2 0) -> 2) ((1139 . 5625) (+ 2 1) -> 3) ((1140 . 5625) (+ 2 2) -> 4) ((1141 . 5625) (+ 3 -2) -> 1) ((1142 . 5625) (+ 3 -1) -> 2) ((1143 . 5625) (+ 3 0) -> 3) ((1144 . 5625) (+ 3 1) -> 4) ((1145 . 5625) (+ 3 2) -> 5) ((1146 . 5625) (+ 4 -2) -> 2) ((1147 . 5625) (+ 4 -1) -> 3) ((1148 . 5625) (+ 4 0) -> 4) ((1149 . 5625) (+ 4 1) -> 5) ((1150 . 5625) (+ 4 2) -> 6) ((1151 . 5625) (+ 0 -1) -> -1) ((1152 . 5625) (+ 0 0) -> 0) ((1153 . 5625) (+ 0 1) -> 1) ((1154 . 5625) (+ 0 2) -> 2) ((1155 . 5625) (+ 0 3) -> 3) ((1156 . 5625) (+ 1 -1) -> 0) ((1157 . 5625) (+ 1 0) -> 1) ((1158 . 5625) (+ 1 1) -> 2) ((1159 . 5625) (+ 1 2) -> 3) ((1160 . 5625) (+ 1 3) -> 4) ((1161 . 5625) (+ 2 -1) -> 1) ((1162 . 5625) (+ 2 0) -> 2) ((1163 . 5625) (+ 2 1) -> 3) ((1164 . 5625) (+ 2 2) -> 4) ((1165 . 5625) (+ 2 3) -> 5) ((1166 . 5625) (+ 3 -1) -> 2) ((1167 . 5625) (+ 3 0) -> 3) ((1168 . 5625) (+ 3 1) -> 4) ((1169 . 5625) (+ 3 2) -> 5) ((1170 . 5625) (+ 3 3) -> 6) ((1171 . 5625) (+ 4 -1) -> 3) ((1172 . 5625) (+ 4 0) -> 4) ((1173 . 5625) (+ 4 1) -> 5) ((1174 . 5625) (+ 4 2) -> 6) ((1175 . 5625) (+ 4 3) -> 7) ((1176 . 5625) (+ 0 -3) -> -3) ((1177 . 5625) (+ 0 -2) -> -2) ((1178 . 5625) (+ 0 -1) -> -1) ((1179 . 5625) (+ 0 0) -> 0) ((1180 . 5625) (+ 0 1) -> 1) ((1181 . 5625) (+ 1 -3) -> -2) ((1182 . 5625) (+ 1 -2) -> -1) ((1183 . 5625) (+ 1 -1) -> 0) ((1184 . 5625) (+ 1 0) -> 1) ((1185 . 5625) (+ 1 1) -> 2) ((1186 . 5625) (+ 2 -3) -> -1) ((1187 . 5625) (+ 2 -2) -> 0) ((1188 . 5625) (+ 2 -1) -> 1) ((1189 . 5625) (+ 2 0) -> 2) ((1190 . 5625) (+ 2 1) -> 3) ((1191 . 5625) (+ 3 -3) -> 0) ((1192 . 5625) (+ 3 -2) -> 1) ((1193 . 5625) (+ 3 -1) -> 2) ((1194 . 5625) (+ 3 0) -> 3) ((1195 . 5625) (+ 3 1) -> 4) ((1196 . 5625) (+ 4 -3) -> 1) ((1197 . 5625) (+ 4 -2) -> 2) ((1198 . 5625) (+ 4 -1) -> 3) ((1199 . 5625) (+ 4 0) -> 4) ((1200 . 5625) (+ 4 1) -> 5) ((1201 . 5625) (+ 0 0) -> 0) ((1202 . 5625) (+ 0 1) -> 1) ((1203 . 5625) (+ 0 2) -> 2) ((1204 . 5625) (+ 0 3) -> 3) ((1205 . 5625) (+ 0 4) -> 4) ((1206 . 5625) (+ 1 0) -> 1) ((1207 . 5625) (+ 1 1) -> 2) ((1208 . 5625) (+ 1 2) -> 3) ((1209 . 5625) (+ 1 3) -> 4) ((1210 . 5625) (+ 1 4) -> 5) ((1211 . 5625) (+ 2 0) -> 2) ((1212 . 5625) (+ 2 1) -> 3) ((1213 . 5625) (+ 2 2) -> 4) ((1214 . 5625) (+ 2 3) -> 5) ((1215 . 5625) (+ 2 4) -> 6) ((1216 . 5625) (+ 3 0) -> 3) ((1217 . 5625) (+ 3 1) -> 4) ((1218 . 5625) (+ 3 2) -> 5) ((1219 . 5625) (+ 3 3) -> 6) ((1220 . 5625) (+ 3 4) -> 7) ((1221 . 5625) (+ 4 0) -> 4) ((1222 . 5625) (+ 4 1) -> 5) ((1223 . 5625) (+ 4 2) -> 6) ((1224 . 5625) (+ 4 3) -> 7) ((1225 . 5625) (+ 4 4) -> 8) ((1226 . 5625) (+ 0 -4) -> -4) ((1227 . 5625) (+ 0 -3) -> -3) ((1228 . 5625) (+ 0 -2) -> -2) ((1229 . 5625) (+ 0 -1) -> -1) ((1230 . 5625) (+ 0 0) -> 0) ((1231 . 5625) (+ 1 -4) -> -3) ((1232 . 5625) (+ 1 -3) -> -2) ((1233 . 5625) (+ 1 -2) -> -1) ((1234 . 5625) (+ 1 -1) -> 0) ((1235 . 5625) (+ 1 0) -> 1) ((1236 . 5625) (+ 2 -4) -> -2) ((1237 . 5625) (+ 2 -3) -> -1) ((1238 . 5625) (+ 2 -2) -> 0) ((1239 . 5625) (+ 2 -1) -> 1) ((1240 . 5625) (+ 2 0) -> 2) ((1241 . 5625) (+ 3 -4) -> -1) ((1242 . 5625) (+ 3 -3) -> 0) ((1243 . 5625) (+ 3 -2) -> 1) ((1244 . 5625) (+ 3 -1) -> 2) ((1245 . 5625) (+ 3 0) -> 3) ((1246 . 5625) (+ 4 -4) -> 0) ((1247 . 5625) (+ 4 -3) -> 1) ((1248 . 5625) (+ 4 -2) -> 2) ((1249 . 5625) (+ 4 -1) -> 3) ((1250 . 5625) (+ 4 0) -> 4) ((1251 . 5625) (+ 0 4611686018427387901) -> 4611686018427387901) ((1252 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((1253 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((1254 . 5625) (+ 0 4611686018427387904) -> 4611686018427387904) ((1255 . 5625) (+ 0 4611686018427387905) -> 4611686018427387905) ((1256 . 5625) (+ 1 4611686018427387901) -> 4611686018427387902) ((1257 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((1258 . 5625) (+ 1 4611686018427387903) -> 4611686018427387904) ((1259 . 5625) (+ 1 4611686018427387904) -> 4611686018427387905) ((1260 . 5625) (+ 1 4611686018427387905) -> 4611686018427387906) ((1261 . 5625) (+ 2 4611686018427387901) -> 4611686018427387903) ((1262 . 5625) (+ 2 4611686018427387902) -> 4611686018427387904) ((1263 . 5625) (+ 2 4611686018427387903) -> 4611686018427387905) ((1264 . 5625) (+ 2 4611686018427387904) -> 4611686018427387906) ((1265 . 5625) (+ 2 4611686018427387905) -> 4611686018427387907) ((1266 . 5625) (+ 3 4611686018427387901) -> 4611686018427387904) ((1267 . 5625) (+ 3 4611686018427387902) -> 4611686018427387905) ((1268 . 5625) (+ 3 4611686018427387903) -> 4611686018427387906) ((1269 . 5625) (+ 3 4611686018427387904) -> 4611686018427387907) ((1270 . 5625) (+ 3 4611686018427387905) -> 4611686018427387908) ((1271 . 5625) (+ 4 4611686018427387901) -> 4611686018427387905) ((1272 . 5625) (+ 4 4611686018427387902) -> 4611686018427387906) ((1273 . 5625) (+ 4 4611686018427387903) -> 4611686018427387907) ((1274 . 5625) (+ 4 4611686018427387904) -> 4611686018427387908) ((1275 . 5625) (+ 4 4611686018427387905) -> 4611686018427387909) ((1276 . 5625) (+ 0 -4611686018427387906) -> -4611686018427387906) ((1277 . 5625) (+ 0 -4611686018427387905) -> -4611686018427387905) ((1278 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((1279 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((1280 . 5625) (+ 0 -4611686018427387902) -> -4611686018427387902) ((1281 . 5625) (+ 1 -4611686018427387906) -> -4611686018427387905) ((1282 . 5625) (+ 1 -4611686018427387905) -> -4611686018427387904) ((1283 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((1284 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((1285 . 5625) (+ 1 -4611686018427387902) -> -4611686018427387901) ((1286 . 5625) (+ 2 -4611686018427387906) -> -4611686018427387904) ((1287 . 5625) (+ 2 -4611686018427387905) -> -4611686018427387903) ((1288 . 5625) (+ 2 -4611686018427387904) -> -4611686018427387902) ((1289 . 5625) (+ 2 -4611686018427387903) -> -4611686018427387901) ((1290 . 5625) (+ 2 -4611686018427387902) -> -4611686018427387900) ((1291 . 5625) (+ 3 -4611686018427387906) -> -4611686018427387903) ((1292 . 5625) (+ 3 -4611686018427387905) -> -4611686018427387902) ((1293 . 5625) (+ 3 -4611686018427387904) -> -4611686018427387901) ((1294 . 5625) (+ 3 -4611686018427387903) -> -4611686018427387900) ((1295 . 5625) (+ 3 -4611686018427387902) -> -4611686018427387899) ((1296 . 5625) (+ 4 -4611686018427387906) -> -4611686018427387902) ((1297 . 5625) (+ 4 -4611686018427387905) -> -4611686018427387901) ((1298 . 5625) (+ 4 -4611686018427387904) -> -4611686018427387900) ((1299 . 5625) (+ 4 -4611686018427387903) -> -4611686018427387899) ((1300 . 5625) (+ 4 -4611686018427387902) -> -4611686018427387898) ((1301 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((1302 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((1303 . 5625) (+ 0 4611686018427387904) -> 4611686018427387904) ((1304 . 5625) (+ 0 4611686018427387905) -> 4611686018427387905) ((1305 . 5625) (+ 0 4611686018427387906) -> 4611686018427387906) ((1306 . 5625) (+ 1 4611686018427387902) -> 4611686018427387903) ((1307 . 5625) (+ 1 4611686018427387903) -> 4611686018427387904) ((1308 . 5625) (+ 1 4611686018427387904) -> 4611686018427387905) ((1309 . 5625) (+ 1 4611686018427387905) -> 4611686018427387906) ((1310 . 5625) (+ 1 4611686018427387906) -> 4611686018427387907) ((1311 . 5625) (+ 2 4611686018427387902) -> 4611686018427387904) ((1312 . 5625) (+ 2 4611686018427387903) -> 4611686018427387905) ((1313 . 5625) (+ 2 4611686018427387904) -> 4611686018427387906) ((1314 . 5625) (+ 2 4611686018427387905) -> 4611686018427387907) ((1315 . 5625) (+ 2 4611686018427387906) -> 4611686018427387908) ((1316 . 5625) (+ 3 4611686018427387902) -> 4611686018427387905) ((1317 . 5625) (+ 3 4611686018427387903) -> 4611686018427387906) ((1318 . 5625) (+ 3 4611686018427387904) -> 4611686018427387907) ((1319 . 5625) (+ 3 4611686018427387905) -> 4611686018427387908) ((1320 . 5625) (+ 3 4611686018427387906) -> 4611686018427387909) ((1321 . 5625) (+ 4 4611686018427387902) -> 4611686018427387906) ((1322 . 5625) (+ 4 4611686018427387903) -> 4611686018427387907) ((1323 . 5625) (+ 4 4611686018427387904) -> 4611686018427387908) ((1324 . 5625) (+ 4 4611686018427387905) -> 4611686018427387909) ((1325 . 5625) (+ 4 4611686018427387906) -> 4611686018427387910) ((1326 . 5625) (+ 0 -4611686018427387907) -> -4611686018427387907) ((1327 . 5625) (+ 0 -4611686018427387906) -> -4611686018427387906) ((1328 . 5625) (+ 0 -4611686018427387905) -> -4611686018427387905) ((1329 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((1330 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((1331 . 5625) (+ 1 -4611686018427387907) -> -4611686018427387906) ((1332 . 5625) (+ 1 -4611686018427387906) -> -4611686018427387905) ((1333 . 5625) (+ 1 -4611686018427387905) -> -4611686018427387904) ((1334 . 5625) (+ 1 -4611686018427387904) -> -4611686018427387903) ((1335 . 5625) (+ 1 -4611686018427387903) -> -4611686018427387902) ((1336 . 5625) (+ 2 -4611686018427387907) -> -4611686018427387905) ((1337 . 5625) (+ 2 -4611686018427387906) -> -4611686018427387904) ((1338 . 5625) (+ 2 -4611686018427387905) -> -4611686018427387903) ((1339 . 5625) (+ 2 -4611686018427387904) -> -4611686018427387902) ((1340 . 5625) (+ 2 -4611686018427387903) -> -4611686018427387901) ((1341 . 5625) (+ 3 -4611686018427387907) -> -4611686018427387904) ((1342 . 5625) (+ 3 -4611686018427387906) -> -4611686018427387903) ((1343 . 5625) (+ 3 -4611686018427387905) -> -4611686018427387902) ((1344 . 5625) (+ 3 -4611686018427387904) -> -4611686018427387901) ((1345 . 5625) (+ 3 -4611686018427387903) -> -4611686018427387900) ((1346 . 5625) (+ 4 -4611686018427387907) -> -4611686018427387903) ((1347 . 5625) (+ 4 -4611686018427387906) -> -4611686018427387902) ((1348 . 5625) (+ 4 -4611686018427387905) -> -4611686018427387901) ((1349 . 5625) (+ 4 -4611686018427387904) -> -4611686018427387900) ((1350 . 5625) (+ 4 -4611686018427387903) -> -4611686018427387899) ((1351 . 5625) (+ 0 1103515243) -> 1103515243) ((1352 . 5625) (+ 0 1103515244) -> 1103515244) ((1353 . 5625) (+ 0 1103515245) -> 1103515245) ((1354 . 5625) (+ 0 1103515246) -> 1103515246) ((1355 . 5625) (+ 0 1103515247) -> 1103515247) ((1356 . 5625) (+ 1 1103515243) -> 1103515244) ((1357 . 5625) (+ 1 1103515244) -> 1103515245) ((1358 . 5625) (+ 1 1103515245) -> 1103515246) ((1359 . 5625) (+ 1 1103515246) -> 1103515247) ((1360 . 5625) (+ 1 1103515247) -> 1103515248) ((1361 . 5625) (+ 2 1103515243) -> 1103515245) ((1362 . 5625) (+ 2 1103515244) -> 1103515246) ((1363 . 5625) (+ 2 1103515245) -> 1103515247) ((1364 . 5625) (+ 2 1103515246) -> 1103515248) ((1365 . 5625) (+ 2 1103515247) -> 1103515249) ((1366 . 5625) (+ 3 1103515243) -> 1103515246) ((1367 . 5625) (+ 3 1103515244) -> 1103515247) ((1368 . 5625) (+ 3 1103515245) -> 1103515248) ((1369 . 5625) (+ 3 1103515246) -> 1103515249) ((1370 . 5625) (+ 3 1103515247) -> 1103515250) ((1371 . 5625) (+ 4 1103515243) -> 1103515247) ((1372 . 5625) (+ 4 1103515244) -> 1103515248) ((1373 . 5625) (+ 4 1103515245) -> 1103515249) ((1374 . 5625) (+ 4 1103515246) -> 1103515250) ((1375 . 5625) (+ 4 1103515247) -> 1103515251) ((1376 . 5625) (+ 0 631629063) -> 631629063) ((1377 . 5625) (+ 0 631629064) -> 631629064) ((1378 . 5625) (+ 0 631629065) -> 631629065) ((1379 . 5625) (+ 0 631629066) -> 631629066) ((1380 . 5625) (+ 0 631629067) -> 631629067) ((1381 . 5625) (+ 1 631629063) -> 631629064) ((1382 . 5625) (+ 1 631629064) -> 631629065) ((1383 . 5625) (+ 1 631629065) -> 631629066) ((1384 . 5625) (+ 1 631629066) -> 631629067) ((1385 . 5625) (+ 1 631629067) -> 631629068) ((1386 . 5625) (+ 2 631629063) -> 631629065) ((1387 . 5625) (+ 2 631629064) -> 631629066) ((1388 . 5625) (+ 2 631629065) -> 631629067) ((1389 . 5625) (+ 2 631629066) -> 631629068) ((1390 . 5625) (+ 2 631629067) -> 631629069) ((1391 . 5625) (+ 3 631629063) -> 631629066) ((1392 . 5625) (+ 3 631629064) -> 631629067) ((1393 . 5625) (+ 3 631629065) -> 631629068) ((1394 . 5625) (+ 3 631629066) -> 631629069) ((1395 . 5625) (+ 3 631629067) -> 631629070) ((1396 . 5625) (+ 4 631629063) -> 631629067) ((1397 . 5625) (+ 4 631629064) -> 631629068) ((1398 . 5625) (+ 4 631629065) -> 631629069) ((1399 . 5625) (+ 4 631629066) -> 631629070) ((1400 . 5625) (+ 4 631629067) -> 631629071) ((1401 . 5625) (+ 0 9007199254740990) -> 9007199254740990) ((1402 . 5625) (+ 0 9007199254740991) -> 9007199254740991) ((1403 . 5625) (+ 0 9007199254740992) -> 9007199254740992) ((1404 . 5625) (+ 0 9007199254740993) -> 9007199254740993) ((1405 . 5625) (+ 0 9007199254740994) -> 9007199254740994) ((1406 . 5625) (+ 1 9007199254740990) -> 9007199254740991) ((1407 . 5625) (+ 1 9007199254740991) -> 9007199254740992) ((1408 . 5625) (+ 1 9007199254740992) -> 9007199254740993) ((1409 . 5625) (+ 1 9007199254740993) -> 9007199254740994) ((1410 . 5625) (+ 1 9007199254740994) -> 9007199254740995) ((1411 . 5625) (+ 2 9007199254740990) -> 9007199254740992) ((1412 . 5625) (+ 2 9007199254740991) -> 9007199254740993) ((1413 . 5625) (+ 2 9007199254740992) -> 9007199254740994) ((1414 . 5625) (+ 2 9007199254740993) -> 9007199254740995) ((1415 . 5625) (+ 2 9007199254740994) -> 9007199254740996) ((1416 . 5625) (+ 3 9007199254740990) -> 9007199254740993) ((1417 . 5625) (+ 3 9007199254740991) -> 9007199254740994) ((1418 . 5625) (+ 3 9007199254740992) -> 9007199254740995) ((1419 . 5625) (+ 3 9007199254740993) -> 9007199254740996) ((1420 . 5625) (+ 3 9007199254740994) -> 9007199254740997) ((1421 . 5625) (+ 4 9007199254740990) -> 9007199254740994) ((1422 . 5625) (+ 4 9007199254740991) -> 9007199254740995) ((1423 . 5625) (+ 4 9007199254740992) -> 9007199254740996) ((1424 . 5625) (+ 4 9007199254740993) -> 9007199254740997) ((1425 . 5625) (+ 4 9007199254740994) -> 9007199254740998) ((1426 . 5625) (+ 0 -9007199254740994) -> -9007199254740994) ((1427 . 5625) (+ 0 -9007199254740993) -> -9007199254740993) ((1428 . 5625) (+ 0 -9007199254740992) -> -9007199254740992) ((1429 . 5625) (+ 0 -9007199254740991) -> -9007199254740991) ((1430 . 5625) (+ 0 -9007199254740990) -> -9007199254740990) ((1431 . 5625) (+ 1 -9007199254740994) -> -9007199254740993) ((1432 . 5625) (+ 1 -9007199254740993) -> -9007199254740992) ((1433 . 5625) (+ 1 -9007199254740992) -> -9007199254740991) ((1434 . 5625) (+ 1 -9007199254740991) -> -9007199254740990) ((1435 . 5625) (+ 1 -9007199254740990) -> -9007199254740989) ((1436 . 5625) (+ 2 -9007199254740994) -> -9007199254740992) ((1437 . 5625) (+ 2 -9007199254740993) -> -9007199254740991) ((1438 . 5625) (+ 2 -9007199254740992) -> -9007199254740990) ((1439 . 5625) (+ 2 -9007199254740991) -> -9007199254740989) ((1440 . 5625) (+ 2 -9007199254740990) -> -9007199254740988) ((1441 . 5625) (+ 3 -9007199254740994) -> -9007199254740991) ((1442 . 5625) (+ 3 -9007199254740993) -> -9007199254740990) ((1443 . 5625) (+ 3 -9007199254740992) -> -9007199254740989) ((1444 . 5625) (+ 3 -9007199254740991) -> -9007199254740988) ((1445 . 5625) (+ 3 -9007199254740990) -> -9007199254740987) ((1446 . 5625) (+ 4 -9007199254740994) -> -9007199254740990) ((1447 . 5625) (+ 4 -9007199254740993) -> -9007199254740989) ((1448 . 5625) (+ 4 -9007199254740992) -> -9007199254740988) ((1449 . 5625) (+ 4 -9007199254740991) -> -9007199254740987) ((1450 . 5625) (+ 4 -9007199254740990) -> -9007199254740986) ((1451 . 5625) (+ 0 12343) -> 12343) ((1452 . 5625) (+ 0 12344) -> 12344) ((1453 . 5625) (+ 0 12345) -> 12345) ((1454 . 5625) (+ 0 12346) -> 12346) ((1455 . 5625) (+ 0 12347) -> 12347) ((1456 . 5625) (+ 1 12343) -> 12344) ((1457 . 5625) (+ 1 12344) -> 12345) ((1458 . 5625) (+ 1 12345) -> 12346) ((1459 . 5625) (+ 1 12346) -> 12347) ((1460 . 5625) (+ 1 12347) -> 12348) ((1461 . 5625) (+ 2 12343) -> 12345) ((1462 . 5625) (+ 2 12344) -> 12346) ((1463 . 5625) (+ 2 12345) -> 12347) ((1464 . 5625) (+ 2 12346) -> 12348) ((1465 . 5625) (+ 2 12347) -> 12349) ((1466 . 5625) (+ 3 12343) -> 12346) ((1467 . 5625) (+ 3 12344) -> 12347) ((1468 . 5625) (+ 3 12345) -> 12348) ((1469 . 5625) (+ 3 12346) -> 12349) ((1470 . 5625) (+ 3 12347) -> 12350) ((1471 . 5625) (+ 4 12343) -> 12347) ((1472 . 5625) (+ 4 12344) -> 12348) ((1473 . 5625) (+ 4 12345) -> 12349) ((1474 . 5625) (+ 4 12346) -> 12350) ((1475 . 5625) (+ 4 12347) -> 12351) ((1476 . 5625) (+ 0 4294967294) -> 4294967294) ((1477 . 5625) (+ 0 4294967295) -> 4294967295) ((1478 . 5625) (+ 0 4294967296) -> 4294967296) ((1479 . 5625) (+ 0 4294967297) -> 4294967297) ((1480 . 5625) (+ 0 4294967298) -> 4294967298) ((1481 . 5625) (+ 1 4294967294) -> 4294967295) ((1482 . 5625) (+ 1 4294967295) -> 4294967296) ((1483 . 5625) (+ 1 4294967296) -> 4294967297) ((1484 . 5625) (+ 1 4294967297) -> 4294967298) ((1485 . 5625) (+ 1 4294967298) -> 4294967299) ((1486 . 5625) (+ 2 4294967294) -> 4294967296) ((1487 . 5625) (+ 2 4294967295) -> 4294967297) ((1488 . 5625) (+ 2 4294967296) -> 4294967298) ((1489 . 5625) (+ 2 4294967297) -> 4294967299) ((1490 . 5625) (+ 2 4294967298) -> 4294967300) ((1491 . 5625) (+ 3 4294967294) -> 4294967297) ((1492 . 5625) (+ 3 4294967295) -> 4294967298) ((1493 . 5625) (+ 3 4294967296) -> 4294967299) ((1494 . 5625) (+ 3 4294967297) -> 4294967300) ((1495 . 5625) (+ 3 4294967298) -> 4294967301) ((1496 . 5625) (+ 4 4294967294) -> 4294967298) ((1497 . 5625) (+ 4 4294967295) -> 4294967299) ((1498 . 5625) (+ 4 4294967296) -> 4294967300) ((1499 . 5625) (+ 4 4294967297) -> 4294967301) ((1500 . 5625) (+ 4 4294967298) -> 4294967302) ((1501 . 5625) (+ -4 -2) -> -6) ((1502 . 5625) (+ -4 -1) -> -5) ((1503 . 5625) (+ -4 0) -> -4) ((1504 . 5625) (+ -4 1) -> -3) ((1505 . 5625) (+ -4 2) -> -2) ((1506 . 5625) (+ -3 -2) -> -5) ((1507 . 5625) (+ -3 -1) -> -4) ((1508 . 5625) (+ -3 0) -> -3) ((1509 . 5625) (+ -3 1) -> -2) ((1510 . 5625) (+ -3 2) -> -1) ((1511 . 5625) (+ -2 -2) -> -4) ((1512 . 5625) (+ -2 -1) -> -3) ((1513 . 5625) (+ -2 0) -> -2) ((1514 . 5625) (+ -2 1) -> -1) ((1515 . 5625) (+ -2 2) -> 0) ((1516 . 5625) (+ -1 -2) -> -3) ((1517 . 5625) (+ -1 -1) -> -2) ((1518 . 5625) (+ -1 0) -> -1) ((1519 . 5625) (+ -1 1) -> 0) ((1520 . 5625) (+ -1 2) -> 1) ((1521 . 5625) (+ 0 -2) -> -2) ((1522 . 5625) (+ 0 -1) -> -1) ((1523 . 5625) (+ 0 0) -> 0) ((1524 . 5625) (+ 0 1) -> 1) ((1525 . 5625) (+ 0 2) -> 2) ((1526 . 5625) (+ -4 -1) -> -5) ((1527 . 5625) (+ -4 0) -> -4) ((1528 . 5625) (+ -4 1) -> -3) ((1529 . 5625) (+ -4 2) -> -2) ((1530 . 5625) (+ -4 3) -> -1) ((1531 . 5625) (+ -3 -1) -> -4) ((1532 . 5625) (+ -3 0) -> -3) ((1533 . 5625) (+ -3 1) -> -2) ((1534 . 5625) (+ -3 2) -> -1) ((1535 . 5625) (+ -3 3) -> 0) ((1536 . 5625) (+ -2 -1) -> -3) ((1537 . 5625) (+ -2 0) -> -2) ((1538 . 5625) (+ -2 1) -> -1) ((1539 . 5625) (+ -2 2) -> 0) ((1540 . 5625) (+ -2 3) -> 1) ((1541 . 5625) (+ -1 -1) -> -2) ((1542 . 5625) (+ -1 0) -> -1) ((1543 . 5625) (+ -1 1) -> 0) ((1544 . 5625) (+ -1 2) -> 1) ((1545 . 5625) (+ -1 3) -> 2) ((1546 . 5625) (+ 0 -1) -> -1) ((1547 . 5625) (+ 0 0) -> 0) ((1548 . 5625) (+ 0 1) -> 1) ((1549 . 5625) (+ 0 2) -> 2) ((1550 . 5625) (+ 0 3) -> 3) ((1551 . 5625) (+ -4 -3) -> -7) ((1552 . 5625) (+ -4 -2) -> -6) ((1553 . 5625) (+ -4 -1) -> -5) ((1554 . 5625) (+ -4 0) -> -4) ((1555 . 5625) (+ -4 1) -> -3) ((1556 . 5625) (+ -3 -3) -> -6) ((1557 . 5625) (+ -3 -2) -> -5) ((1558 . 5625) (+ -3 -1) -> -4) ((1559 . 5625) (+ -3 0) -> -3) ((1560 . 5625) (+ -3 1) -> -2) ((1561 . 5625) (+ -2 -3) -> -5) ((1562 . 5625) (+ -2 -2) -> -4) ((1563 . 5625) (+ -2 -1) -> -3) ((1564 . 5625) (+ -2 0) -> -2) ((1565 . 5625) (+ -2 1) -> -1) ((1566 . 5625) (+ -1 -3) -> -4) ((1567 . 5625) (+ -1 -2) -> -3) ((1568 . 5625) (+ -1 -1) -> -2) ((1569 . 5625) (+ -1 0) -> -1) ((1570 . 5625) (+ -1 1) -> 0) ((1571 . 5625) (+ 0 -3) -> -3) ((1572 . 5625) (+ 0 -2) -> -2) ((1573 . 5625) (+ 0 -1) -> -1) ((1574 . 5625) (+ 0 0) -> 0) ((1575 . 5625) (+ 0 1) -> 1) ((1576 . 5625) (+ -4 0) -> -4) ((1577 . 5625) (+ -4 1) -> -3) ((1578 . 5625) (+ -4 2) -> -2) ((1579 . 5625) (+ -4 3) -> -1) ((1580 . 5625) (+ -4 4) -> 0) ((1581 . 5625) (+ -3 0) -> -3) ((1582 . 5625) (+ -3 1) -> -2) ((1583 . 5625) (+ -3 2) -> -1) ((1584 . 5625) (+ -3 3) -> 0) ((1585 . 5625) (+ -3 4) -> 1) ((1586 . 5625) (+ -2 0) -> -2) ((1587 . 5625) (+ -2 1) -> -1) ((1588 . 5625) (+ -2 2) -> 0) ((1589 . 5625) (+ -2 3) -> 1) ((1590 . 5625) (+ -2 4) -> 2) ((1591 . 5625) (+ -1 0) -> -1) ((1592 . 5625) (+ -1 1) -> 0) ((1593 . 5625) (+ -1 2) -> 1) ((1594 . 5625) (+ -1 3) -> 2) ((1595 . 5625) (+ -1 4) -> 3) ((1596 . 5625) (+ 0 0) -> 0) ((1597 . 5625) (+ 0 1) -> 1) ((1598 . 5625) (+ 0 2) -> 2) ((1599 . 5625) (+ 0 3) -> 3) ((1600 . 5625) (+ 0 4) -> 4) ((1601 . 5625) (+ -4 -4) -> -8) ((1602 . 5625) (+ -4 -3) -> -7) ((1603 . 5625) (+ -4 -2) -> -6) ((1604 . 5625) (+ -4 -1) -> -5) ((1605 . 5625) (+ -4 0) -> -4) ((1606 . 5625) (+ -3 -4) -> -7) ((1607 . 5625) (+ -3 -3) -> -6) ((1608 . 5625) (+ -3 -2) -> -5) ((1609 . 5625) (+ -3 -1) -> -4) ((1610 . 5625) (+ -3 0) -> -3) ((1611 . 5625) (+ -2 -4) -> -6) ((1612 . 5625) (+ -2 -3) -> -5) ((1613 . 5625) (+ -2 -2) -> -4) ((1614 . 5625) (+ -2 -1) -> -3) ((1615 . 5625) (+ -2 0) -> -2) ((1616 . 5625) (+ -1 -4) -> -5) ((1617 . 5625) (+ -1 -3) -> -4) ((1618 . 5625) (+ -1 -2) -> -3) ((1619 . 5625) (+ -1 -1) -> -2) ((1620 . 5625) (+ -1 0) -> -1) ((1621 . 5625) (+ 0 -4) -> -4) ((1622 . 5625) (+ 0 -3) -> -3) ((1623 . 5625) (+ 0 -2) -> -2) ((1624 . 5625) (+ 0 -1) -> -1) ((1625 . 5625) (+ 0 0) -> 0) ((1626 . 5625) (+ -4 4611686018427387901) -> 4611686018427387897) ((1627 . 5625) (+ -4 4611686018427387902) -> 4611686018427387898) ((1628 . 5625) (+ -4 4611686018427387903) -> 4611686018427387899) ((1629 . 5625) (+ -4 4611686018427387904) -> 4611686018427387900) ((1630 . 5625) (+ -4 4611686018427387905) -> 4611686018427387901) ((1631 . 5625) (+ -3 4611686018427387901) -> 4611686018427387898) ((1632 . 5625) (+ -3 4611686018427387902) -> 4611686018427387899) ((1633 . 5625) (+ -3 4611686018427387903) -> 4611686018427387900) ((1634 . 5625) (+ -3 4611686018427387904) -> 4611686018427387901) ((1635 . 5625) (+ -3 4611686018427387905) -> 4611686018427387902) ((1636 . 5625) (+ -2 4611686018427387901) -> 4611686018427387899) ((1637 . 5625) (+ -2 4611686018427387902) -> 4611686018427387900) ((1638 . 5625) (+ -2 4611686018427387903) -> 4611686018427387901) ((1639 . 5625) (+ -2 4611686018427387904) -> 4611686018427387902) ((1640 . 5625) (+ -2 4611686018427387905) -> 4611686018427387903) ((1641 . 5625) (+ -1 4611686018427387901) -> 4611686018427387900) ((1642 . 5625) (+ -1 4611686018427387902) -> 4611686018427387901) ((1643 . 5625) (+ -1 4611686018427387903) -> 4611686018427387902) ((1644 . 5625) (+ -1 4611686018427387904) -> 4611686018427387903) ((1645 . 5625) (+ -1 4611686018427387905) -> 4611686018427387904) ((1646 . 5625) (+ 0 4611686018427387901) -> 4611686018427387901) ((1647 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((1648 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((1649 . 5625) (+ 0 4611686018427387904) -> 4611686018427387904) ((1650 . 5625) (+ 0 4611686018427387905) -> 4611686018427387905) ((1651 . 5625) (+ -4 -4611686018427387906) -> -4611686018427387910) ((1652 . 5625) (+ -4 -4611686018427387905) -> -4611686018427387909) ((1653 . 5625) (+ -4 -4611686018427387904) -> -4611686018427387908) ((1654 . 5625) (+ -4 -4611686018427387903) -> -4611686018427387907) ((1655 . 5625) (+ -4 -4611686018427387902) -> -4611686018427387906) ((1656 . 5625) (+ -3 -4611686018427387906) -> -4611686018427387909) ((1657 . 5625) (+ -3 -4611686018427387905) -> -4611686018427387908) ((1658 . 5625) (+ -3 -4611686018427387904) -> -4611686018427387907) ((1659 . 5625) (+ -3 -4611686018427387903) -> -4611686018427387906) ((1660 . 5625) (+ -3 -4611686018427387902) -> -4611686018427387905) ((1661 . 5625) (+ -2 -4611686018427387906) -> -4611686018427387908) ((1662 . 5625) (+ -2 -4611686018427387905) -> -4611686018427387907) ((1663 . 5625) (+ -2 -4611686018427387904) -> -4611686018427387906) ((1664 . 5625) (+ -2 -4611686018427387903) -> -4611686018427387905) ((1665 . 5625) (+ -2 -4611686018427387902) -> -4611686018427387904) ((1666 . 5625) (+ -1 -4611686018427387906) -> -4611686018427387907) ((1667 . 5625) (+ -1 -4611686018427387905) -> -4611686018427387906) ((1668 . 5625) (+ -1 -4611686018427387904) -> -4611686018427387905) ((1669 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((1670 . 5625) (+ -1 -4611686018427387902) -> -4611686018427387903) ((1671 . 5625) (+ 0 -4611686018427387906) -> -4611686018427387906) ((1672 . 5625) (+ 0 -4611686018427387905) -> -4611686018427387905) ((1673 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((1674 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((1675 . 5625) (+ 0 -4611686018427387902) -> -4611686018427387902) ((1676 . 5625) (+ -4 4611686018427387902) -> 4611686018427387898) ((1677 . 5625) (+ -4 4611686018427387903) -> 4611686018427387899) ((1678 . 5625) (+ -4 4611686018427387904) -> 4611686018427387900) ((1679 . 5625) (+ -4 4611686018427387905) -> 4611686018427387901) ((1680 . 5625) (+ -4 4611686018427387906) -> 4611686018427387902) ((1681 . 5625) (+ -3 4611686018427387902) -> 4611686018427387899) ((1682 . 5625) (+ -3 4611686018427387903) -> 4611686018427387900) ((1683 . 5625) (+ -3 4611686018427387904) -> 4611686018427387901) ((1684 . 5625) (+ -3 4611686018427387905) -> 4611686018427387902) ((1685 . 5625) (+ -3 4611686018427387906) -> 4611686018427387903) ((1686 . 5625) (+ -2 4611686018427387902) -> 4611686018427387900) ((1687 . 5625) (+ -2 4611686018427387903) -> 4611686018427387901) ((1688 . 5625) (+ -2 4611686018427387904) -> 4611686018427387902) ((1689 . 5625) (+ -2 4611686018427387905) -> 4611686018427387903) ((1690 . 5625) (+ -2 4611686018427387906) -> 4611686018427387904) ((1691 . 5625) (+ -1 4611686018427387902) -> 4611686018427387901) ((1692 . 5625) (+ -1 4611686018427387903) -> 4611686018427387902) ((1693 . 5625) (+ -1 4611686018427387904) -> 4611686018427387903) ((1694 . 5625) (+ -1 4611686018427387905) -> 4611686018427387904) ((1695 . 5625) (+ -1 4611686018427387906) -> 4611686018427387905) ((1696 . 5625) (+ 0 4611686018427387902) -> 4611686018427387902) ((1697 . 5625) (+ 0 4611686018427387903) -> 4611686018427387903) ((1698 . 5625) (+ 0 4611686018427387904) -> 4611686018427387904) ((1699 . 5625) (+ 0 4611686018427387905) -> 4611686018427387905) ((1700 . 5625) (+ 0 4611686018427387906) -> 4611686018427387906) ((1701 . 5625) (+ -4 -4611686018427387907) -> -4611686018427387911) ((1702 . 5625) (+ -4 -4611686018427387906) -> -4611686018427387910) ((1703 . 5625) (+ -4 -4611686018427387905) -> -4611686018427387909) ((1704 . 5625) (+ -4 -4611686018427387904) -> -4611686018427387908) ((1705 . 5625) (+ -4 -4611686018427387903) -> -4611686018427387907) ((1706 . 5625) (+ -3 -4611686018427387907) -> -4611686018427387910) ((1707 . 5625) (+ -3 -4611686018427387906) -> -4611686018427387909) ((1708 . 5625) (+ -3 -4611686018427387905) -> -4611686018427387908) ((1709 . 5625) (+ -3 -4611686018427387904) -> -4611686018427387907) ((1710 . 5625) (+ -3 -4611686018427387903) -> -4611686018427387906) ((1711 . 5625) (+ -2 -4611686018427387907) -> -4611686018427387909) ((1712 . 5625) (+ -2 -4611686018427387906) -> -4611686018427387908) ((1713 . 5625) (+ -2 -4611686018427387905) -> -4611686018427387907) ((1714 . 5625) (+ -2 -4611686018427387904) -> -4611686018427387906) ((1715 . 5625) (+ -2 -4611686018427387903) -> -4611686018427387905) ((1716 . 5625) (+ -1 -4611686018427387907) -> -4611686018427387908) ((1717 . 5625) (+ -1 -4611686018427387906) -> -4611686018427387907) ((1718 . 5625) (+ -1 -4611686018427387905) -> -4611686018427387906) ((1719 . 5625) (+ -1 -4611686018427387904) -> -4611686018427387905) ((1720 . 5625) (+ -1 -4611686018427387903) -> -4611686018427387904) ((1721 . 5625) (+ 0 -4611686018427387907) -> -4611686018427387907) ((1722 . 5625) (+ 0 -4611686018427387906) -> -4611686018427387906) ((1723 . 5625) (+ 0 -4611686018427387905) -> -4611686018427387905) ((1724 . 5625) (+ 0 -4611686018427387904) -> -4611686018427387904) ((1725 . 5625) (+ 0 -4611686018427387903) -> -4611686018427387903) ((1726 . 5625) (+ -4 1103515243) -> 1103515239) ((1727 . 5625) (+ -4 1103515244) -> 1103515240) ((1728 . 5625) (+ -4 1103515245) -> 1103515241) ((1729 . 5625) (+ -4 1103515246) -> 1103515242) ((1730 . 5625) (+ -4 1103515247) -> 1103515243) ((1731 . 5625) (+ -3 1103515243) -> 1103515240) ((1732 . 5625) (+ -3 1103515244) -> 1103515241) ((1733 . 5625) (+ -3 1103515245) -> 1103515242) ((1734 . 5625) (+ -3 1103515246) -> 1103515243) ((1735 . 5625) (+ -3 1103515247) -> 1103515244) ((1736 . 5625) (+ -2 1103515243) -> 1103515241) ((1737 . 5625) (+ -2 1103515244) -> 1103515242) ((1738 . 5625) (+ -2 1103515245) -> 1103515243) ((1739 . 5625) (+ -2 1103515246) -> 1103515244) ((1740 . 5625) (+ -2 1103515247) -> 1103515245) ((1741 . 5625) (+ -1 1103515243) -> 1103515242) ((1742 . 5625) (+ -1 1103515244) -> 1103515243) ((1743 . 5625) (+ -1 1103515245) -> 1103515244) ((1744 . 5625) (+ -1 1103515246) -> 1103515245) ((1745 . 5625) (+ -1 1103515247) -> 1103515246) ((1746 . 5625) (+ 0 1103515243) -> 1103515243) ((1747 . 5625) (+ 0 1103515244) -> 1103515244) ((1748 . 5625) (+ 0 1103515245) -> 1103515245) ((1749 . 5625) (+ 0 1103515246) -> 1103515246) ((1750 . 5625) (+ 0 1103515247) -> 1103515247) ((1751 . 5625) (+ -4 631629063) -> 631629059) ((1752 . 5625) (+ -4 631629064) -> 631629060) ((1753 . 5625) (+ -4 631629065) -> 631629061) ((1754 . 5625) (+ -4 631629066) -> 631629062) ((1755 . 5625) (+ -4 631629067) -> 631629063) ((1756 . 5625) (+ -3 631629063) -> 631629060) ((1757 . 5625) (+ -3 631629064) -> 631629061) ((1758 . 5625) (+ -3 631629065) -> 631629062) ((1759 . 5625) (+ -3 631629066) -> 631629063) ((1760 . 5625) (+ -3 631629067) -> 631629064) ((1761 . 5625) (+ -2 631629063) -> 631629061) ((1762 . 5625) (+ -2 631629064) -> 631629062) ((1763 . 5625) (+ -2 631629065) -> 631629063) ((1764 . 5625) (+ -2 631629066) -> 631629064) ((1765 . 5625) (+ -2 631629067) -> 631629065) ((1766 . 5625) (+ -1 631629063) -> 631629062) ((1767 . 5625) (+ -1 631629064) -> 631629063) ((1768 . 5625) (+ -1 631629065) -> 631629064) ((1769 . 5625) (+ -1 631629066) -> 631629065) ((1770 . 5625) (+ -1 631629067) -> 631629066) ((1771 . 5625) (+ 0 631629063) -> 631629063) ((1772 . 5625) (+ 0 631629064) -> 631629064) ((1773 . 5625) (+ 0 631629065) -> 631629065) ((1774 . 5625) (+ 0 631629066) -> 631629066) ((1775 . 5625) (+ 0 631629067) -> 631629067) ((1776 . 5625) (+ -4 9007199254740990) -> 9007199254740986) ((1777 . 5625) (+ -4 9007199254740991) -> 9007199254740987) ((1778 . 5625) (+ -4 9007199254740992) -> 9007199254740988) ((1779 . 5625) (+ -4 9007199254740993) -> 9007199254740989) ((1780 . 5625) (+ -4 9007199254740994) -> 9007199254740990) ((1781 . 5625) (+ -3 9007199254740990) -> 9007199254740987) ((1782 . 5625) (+ -3 9007199254740991) -> 9007199254740988) ((1783 . 5625) (+ -3 9007199254740992) -> 9007199254740989) ((1784 . 5625) (+ -3 9007199254740993) -> 9007199254740990) ((1785 . 5625) (+ -3 9007199254740994) -> 9007199254740991) ((1786 . 5625) (+ -2 9007199254740990) -> 9007199254740988) ((1787 . 5625) (+ -2 9007199254740991) -> 9007199254740989) ((1788 . 5625) (+ -2 9007199254740992) -> 9007199254740990) ((1789 . 5625) (+ -2 9007199254740993) -> 9007199254740991) ((1790 . 5625) (+ -2 9007199254740994) -> 9007199254740992) ((1791 . 5625) (+ -1 9007199254740990) -> 9007199254740989) ((1792 . 5625) (+ -1 9007199254740991) -> 9007199254740990) ((1793 . 5625) (+ -1 9007199254740992) -> 9007199254740991) ((1794 . 5625) (+ -1 9007199254740993) -> 9007199254740992) ((1795 . 5625) (+ -1 9007199254740994) -> 9007199254740993) ((1796 . 5625) (+ 0 9007199254740990) -> 9007199254740990) ((1797 . 5625) (+ 0 9007199254740991) -> 9007199254740991) ((1798 . 5625) (+ 0 9007199254740992) -> 9007199254740992) ((1799 . 5625) (+ 0 9007199254740993) -> 9007199254740993) ((1800 . 5625) (+ 0 9007199254740994) -> 9007199254740994) ((1801 . 5625) (+ -4 -9007199254740994) -> -9007199254740998) ((1802 . 5625) (+ -4 -9007199254740993) -> -9007199254740997) ((1803 . 5625) (+ -4 -9007199254740992) -> -9007199254740996) ((1804 . 5625) (+ -4 -9007199254740991) -> -9007199254740995) ((1805 . 5625) (+ -4 -9007199254740990) -> -9007199254740994) ((1806 . 5625) (+ -3 -9007199254740994) -> -9007199254740997) ((1807 . 5625) (+ -3 -9007199254740993) -> -9007199254740996) ((1808 . 5625) (+ -3 -9007199254740992) -> -9007199254740995) ((1809 . 5625) (+ -3 -9007199254740991) -> -9007199254740994) ((1810 . 5625) (+ -3 -9007199254740990) -> -9007199254740993) ((1811 . 5625) (+ -2 -9007199254740994) -> -9007199254740996) ((1812 . 5625) (+ -2 -9007199254740993) -> -9007199254740995) ((1813 . 5625) (+ -2 -9007199254740992) -> -9007199254740994) ((1814 . 5625) (+ -2 -9007199254740991) -> -9007199254740993) ((1815 . 5625) (+ -2 -9007199254740990) -> -9007199254740992) ((1816 . 5625) (+ -1 -9007199254740994) -> -9007199254740995) ((1817 . 5625) (+ -1 -9007199254740993) -> -9007199254740994) ((1818 . 5625) (+ -1 -9007199254740992) -> -9007199254740993) ((1819 . 5625) (+ -1 -9007199254740991) -> -9007199254740992) ((1820 . 5625) (+ -1 -9007199254740990) -> -9007199254740991) ((1821 . 5625) (+ 0 -9007199254740994) -> -9007199254740994) ((1822 . 5625) (+ 0 -9007199254740993) -> -9007199254740993) ((1823 . 5625) (+ 0 -9007199254740992) -> -9007199254740992) ((1824 . 5625) (+ 0 -9007199254740991) -> -9007199254740991) ((1825 . 5625) (+ 0 -9007199254740990) -> -9007199254740990) ((1826 . 5625) (+ -4 12343) -> 12339) ((1827 . 5625) (+ -4 12344) -> 12340) ((1828 . 5625) (+ -4 12345) -> 12341) ((1829 . 5625) (+ -4 12346) -> 12342) ((1830 . 5625) (+ -4 12347) -> 12343) ((1831 . 5625) (+ -3 12343) -> 12340) ((1832 . 5625) (+ -3 12344) -> 12341) ((1833 . 5625) (+ -3 12345) -> 12342) ((1834 . 5625) (+ -3 12346) -> 12343) ((1835 . 5625) (+ -3 12347) -> 12344) ((1836 . 5625) (+ -2 12343) -> 12341) ((1837 . 5625) (+ -2 12344) -> 12342) ((1838 . 5625) (+ -2 12345) -> 12343) ((1839 . 5625) (+ -2 12346) -> 12344) ((1840 . 5625) (+ -2 12347) -> 12345) ((1841 . 5625) (+ -1 12343) -> 12342) ((1842 . 5625) (+ -1 12344) -> 12343) ((1843 . 5625) (+ -1 12345) -> 12344) ((1844 . 5625) (+ -1 12346) -> 12345) ((1845 . 5625) (+ -1 12347) -> 12346) ((1846 . 5625) (+ 0 12343) -> 12343) ((1847 . 5625) (+ 0 12344) -> 12344) ((1848 . 5625) (+ 0 12345) -> 12345) ((1849 . 5625) (+ 0 12346) -> 12346) ((1850 . 5625) (+ 0 12347) -> 12347) ((1851 . 5625) (+ -4 4294967294) -> 4294967290) ((1852 . 5625) (+ -4 4294967295) -> 4294967291) ((1853 . 5625) (+ -4 4294967296) -> 4294967292) ((1854 . 5625) (+ -4 4294967297) -> 4294967293) ((1855 . 5625) (+ -4 4294967298) -> 4294967294) ((1856 . 5625) (+ -3 4294967294) -> 4294967291) ((1857 . 5625) (+ -3 4294967295) -> 4294967292) ((1858 . 5625) (+ -3 4294967296) -> 4294967293) ((1859 . 5625) (+ -3 4294967297) -> 4294967294) ((1860 . 5625) (+ -3 4294967298) -> 4294967295) ((1861 . 5625) (+ -2 4294967294) -> 4294967292) ((1862 . 5625) (+ -2 4294967295) -> 4294967293) ((1863 . 5625) (+ -2 4294967296) -> 4294967294) ((1864 . 5625) (+ -2 4294967297) -> 4294967295) ((1865 . 5625) (+ -2 4294967298) -> 4294967296) ((1866 . 5625) (+ -1 4294967294) -> 4294967293) ((1867 . 5625) (+ -1 4294967295) -> 4294967294) ((1868 . 5625) (+ -1 4294967296) -> 4294967295) ((1869 . 5625) (+ -1 4294967297) -> 4294967296) ((1870 . 5625) (+ -1 4294967298) -> 4294967297) ((1871 . 5625) (+ 0 4294967294) -> 4294967294) ((1872 . 5625) (+ 0 4294967295) -> 4294967295) ((1873 . 5625) (+ 0 4294967296) -> 4294967296) ((1874 . 5625) (+ 0 4294967297) -> 4294967297) ((1875 . 5625) (+ 0 4294967298) -> 4294967298) ((1876 . 5625) (+ 4611686018427387901 -2) -> 4611686018427387899) ((1877 . 5625) (+ 4611686018427387901 -1) -> 4611686018427387900) ((1878 . 5625) (+ 4611686018427387901 0) -> 4611686018427387901) ((1879 . 5625) (+ 4611686018427387901 1) -> 4611686018427387902) ((1880 . 5625) (+ 4611686018427387901 2) -> 4611686018427387903) ((1881 . 5625) (+ 4611686018427387902 -2) -> 4611686018427387900) ((1882 . 5625) (+ 4611686018427387902 -1) -> 4611686018427387901) ((1883 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((1884 . 5625) (+ 4611686018427387902 1) -> 4611686018427387903) ((1885 . 5625) (+ 4611686018427387902 2) -> 4611686018427387904) ((1886 . 5625) (+ 4611686018427387903 -2) -> 4611686018427387901) ((1887 . 5625) (+ 4611686018427387903 -1) -> 4611686018427387902) ((1888 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((1889 . 5625) (+ 4611686018427387903 1) -> 4611686018427387904) ((1890 . 5625) (+ 4611686018427387903 2) -> 4611686018427387905) ((1891 . 5625) (+ 4611686018427387904 -2) -> 4611686018427387902) ((1892 . 5625) (+ 4611686018427387904 -1) -> 4611686018427387903) ((1893 . 5625) (+ 4611686018427387904 0) -> 4611686018427387904) ((1894 . 5625) (+ 4611686018427387904 1) -> 4611686018427387905) ((1895 . 5625) (+ 4611686018427387904 2) -> 4611686018427387906) ((1896 . 5625) (+ 4611686018427387905 -2) -> 4611686018427387903) ((1897 . 5625) (+ 4611686018427387905 -1) -> 4611686018427387904) ((1898 . 5625) (+ 4611686018427387905 0) -> 4611686018427387905) ((1899 . 5625) (+ 4611686018427387905 1) -> 4611686018427387906) ((1900 . 5625) (+ 4611686018427387905 2) -> 4611686018427387907) ((1901 . 5625) (+ 4611686018427387901 -1) -> 4611686018427387900) ((1902 . 5625) (+ 4611686018427387901 0) -> 4611686018427387901) ((1903 . 5625) (+ 4611686018427387901 1) -> 4611686018427387902) ((1904 . 5625) (+ 4611686018427387901 2) -> 4611686018427387903) ((1905 . 5625) (+ 4611686018427387901 3) -> 4611686018427387904) ((1906 . 5625) (+ 4611686018427387902 -1) -> 4611686018427387901) ((1907 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((1908 . 5625) (+ 4611686018427387902 1) -> 4611686018427387903) ((1909 . 5625) (+ 4611686018427387902 2) -> 4611686018427387904) ((1910 . 5625) (+ 4611686018427387902 3) -> 4611686018427387905) ((1911 . 5625) (+ 4611686018427387903 -1) -> 4611686018427387902) ((1912 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((1913 . 5625) (+ 4611686018427387903 1) -> 4611686018427387904) ((1914 . 5625) (+ 4611686018427387903 2) -> 4611686018427387905) ((1915 . 5625) (+ 4611686018427387903 3) -> 4611686018427387906) ((1916 . 5625) (+ 4611686018427387904 -1) -> 4611686018427387903) ((1917 . 5625) (+ 4611686018427387904 0) -> 4611686018427387904) ((1918 . 5625) (+ 4611686018427387904 1) -> 4611686018427387905) ((1919 . 5625) (+ 4611686018427387904 2) -> 4611686018427387906) ((1920 . 5625) (+ 4611686018427387904 3) -> 4611686018427387907) ((1921 . 5625) (+ 4611686018427387905 -1) -> 4611686018427387904) ((1922 . 5625) (+ 4611686018427387905 0) -> 4611686018427387905) ((1923 . 5625) (+ 4611686018427387905 1) -> 4611686018427387906) ((1924 . 5625) (+ 4611686018427387905 2) -> 4611686018427387907) ((1925 . 5625) (+ 4611686018427387905 3) -> 4611686018427387908) ((1926 . 5625) (+ 4611686018427387901 -3) -> 4611686018427387898) ((1927 . 5625) (+ 4611686018427387901 -2) -> 4611686018427387899) ((1928 . 5625) (+ 4611686018427387901 -1) -> 4611686018427387900) ((1929 . 5625) (+ 4611686018427387901 0) -> 4611686018427387901) ((1930 . 5625) (+ 4611686018427387901 1) -> 4611686018427387902) ((1931 . 5625) (+ 4611686018427387902 -3) -> 4611686018427387899) ((1932 . 5625) (+ 4611686018427387902 -2) -> 4611686018427387900) ((1933 . 5625) (+ 4611686018427387902 -1) -> 4611686018427387901) ((1934 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((1935 . 5625) (+ 4611686018427387902 1) -> 4611686018427387903) ((1936 . 5625) (+ 4611686018427387903 -3) -> 4611686018427387900) ((1937 . 5625) (+ 4611686018427387903 -2) -> 4611686018427387901) ((1938 . 5625) (+ 4611686018427387903 -1) -> 4611686018427387902) ((1939 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((1940 . 5625) (+ 4611686018427387903 1) -> 4611686018427387904) ((1941 . 5625) (+ 4611686018427387904 -3) -> 4611686018427387901) ((1942 . 5625) (+ 4611686018427387904 -2) -> 4611686018427387902) ((1943 . 5625) (+ 4611686018427387904 -1) -> 4611686018427387903) ((1944 . 5625) (+ 4611686018427387904 0) -> 4611686018427387904) ((1945 . 5625) (+ 4611686018427387904 1) -> 4611686018427387905) ((1946 . 5625) (+ 4611686018427387905 -3) -> 4611686018427387902) ((1947 . 5625) (+ 4611686018427387905 -2) -> 4611686018427387903) ((1948 . 5625) (+ 4611686018427387905 -1) -> 4611686018427387904) ((1949 . 5625) (+ 4611686018427387905 0) -> 4611686018427387905) ((1950 . 5625) (+ 4611686018427387905 1) -> 4611686018427387906) ((1951 . 5625) (+ 4611686018427387901 0) -> 4611686018427387901) ((1952 . 5625) (+ 4611686018427387901 1) -> 4611686018427387902) ((1953 . 5625) (+ 4611686018427387901 2) -> 4611686018427387903) ((1954 . 5625) (+ 4611686018427387901 3) -> 4611686018427387904) ((1955 . 5625) (+ 4611686018427387901 4) -> 4611686018427387905) ((1956 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((1957 . 5625) (+ 4611686018427387902 1) -> 4611686018427387903) ((1958 . 5625) (+ 4611686018427387902 2) -> 4611686018427387904) ((1959 . 5625) (+ 4611686018427387902 3) -> 4611686018427387905) ((1960 . 5625) (+ 4611686018427387902 4) -> 4611686018427387906) ((1961 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((1962 . 5625) (+ 4611686018427387903 1) -> 4611686018427387904) ((1963 . 5625) (+ 4611686018427387903 2) -> 4611686018427387905) ((1964 . 5625) (+ 4611686018427387903 3) -> 4611686018427387906) ((1965 . 5625) (+ 4611686018427387903 4) -> 4611686018427387907) ((1966 . 5625) (+ 4611686018427387904 0) -> 4611686018427387904) ((1967 . 5625) (+ 4611686018427387904 1) -> 4611686018427387905) ((1968 . 5625) (+ 4611686018427387904 2) -> 4611686018427387906) ((1969 . 5625) (+ 4611686018427387904 3) -> 4611686018427387907) ((1970 . 5625) (+ 4611686018427387904 4) -> 4611686018427387908) ((1971 . 5625) (+ 4611686018427387905 0) -> 4611686018427387905) ((1972 . 5625) (+ 4611686018427387905 1) -> 4611686018427387906) ((1973 . 5625) (+ 4611686018427387905 2) -> 4611686018427387907) ((1974 . 5625) (+ 4611686018427387905 3) -> 4611686018427387908) ((1975 . 5625) (+ 4611686018427387905 4) -> 4611686018427387909) ((1976 . 5625) (+ 4611686018427387901 -4) -> 4611686018427387897) ((1977 . 5625) (+ 4611686018427387901 -3) -> 4611686018427387898) ((1978 . 5625) (+ 4611686018427387901 -2) -> 4611686018427387899) ((1979 . 5625) (+ 4611686018427387901 -1) -> 4611686018427387900) ((1980 . 5625) (+ 4611686018427387901 0) -> 4611686018427387901) ((1981 . 5625) (+ 4611686018427387902 -4) -> 4611686018427387898) ((1982 . 5625) (+ 4611686018427387902 -3) -> 4611686018427387899) ((1983 . 5625) (+ 4611686018427387902 -2) -> 4611686018427387900) ((1984 . 5625) (+ 4611686018427387902 -1) -> 4611686018427387901) ((1985 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((1986 . 5625) (+ 4611686018427387903 -4) -> 4611686018427387899) ((1987 . 5625) (+ 4611686018427387903 -3) -> 4611686018427387900) ((1988 . 5625) (+ 4611686018427387903 -2) -> 4611686018427387901) ((1989 . 5625) (+ 4611686018427387903 -1) -> 4611686018427387902) ((1990 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((1991 . 5625) (+ 4611686018427387904 -4) -> 4611686018427387900) ((1992 . 5625) (+ 4611686018427387904 -3) -> 4611686018427387901) ((1993 . 5625) (+ 4611686018427387904 -2) -> 4611686018427387902) ((1994 . 5625) (+ 4611686018427387904 -1) -> 4611686018427387903) ((1995 . 5625) (+ 4611686018427387904 0) -> 4611686018427387904) ((1996 . 5625) (+ 4611686018427387905 -4) -> 4611686018427387901) ((1997 . 5625) (+ 4611686018427387905 -3) -> 4611686018427387902) ((1998 . 5625) (+ 4611686018427387905 -2) -> 4611686018427387903) ((1999 . 5625) (+ 4611686018427387905 -1) -> 4611686018427387904) ((2000 . 5625) (+ 4611686018427387905 0) -> 4611686018427387905) ((2001 . 5625) (+ 4611686018427387901 4611686018427387901) -> 9223372036854775802) ((2002 . 5625) (+ 4611686018427387901 4611686018427387902) -> 9223372036854775803) ((2003 . 5625) (+ 4611686018427387901 4611686018427387903) -> 9223372036854775804) ((2004 . 5625) (+ 4611686018427387901 4611686018427387904) -> 9223372036854775805) ((2005 . 5625) (+ 4611686018427387901 4611686018427387905) -> 9223372036854775806) ((2006 . 5625) (+ 4611686018427387902 4611686018427387901) -> 9223372036854775803) ((2007 . 5625) (+ 4611686018427387902 4611686018427387902) -> 9223372036854775804) ((2008 . 5625) (+ 4611686018427387902 4611686018427387903) -> 9223372036854775805) ((2009 . 5625) (+ 4611686018427387902 4611686018427387904) -> 9223372036854775806) ((2010 . 5625) (+ 4611686018427387902 4611686018427387905) -> 9223372036854775807) ((2011 . 5625) (+ 4611686018427387903 4611686018427387901) -> 9223372036854775804) ((2012 . 5625) (+ 4611686018427387903 4611686018427387902) -> 9223372036854775805) ((2013 . 5625) (+ 4611686018427387903 4611686018427387903) -> 9223372036854775806) ((2014 . 5625) (+ 4611686018427387903 4611686018427387904) -> 9223372036854775807) ((2015 . 5625) (+ 4611686018427387903 4611686018427387905) -> 9223372036854775808) ((2016 . 5625) (+ 4611686018427387904 4611686018427387901) -> 9223372036854775805) ((2017 . 5625) (+ 4611686018427387904 4611686018427387902) -> 9223372036854775806) ((2018 . 5625) (+ 4611686018427387904 4611686018427387903) -> 9223372036854775807) ((2019 . 5625) (+ 4611686018427387904 4611686018427387904) -> 9223372036854775808) ((2020 . 5625) (+ 4611686018427387904 4611686018427387905) -> 9223372036854775809) ((2021 . 5625) (+ 4611686018427387905 4611686018427387901) -> 9223372036854775806) ((2022 . 5625) (+ 4611686018427387905 4611686018427387902) -> 9223372036854775807) ((2023 . 5625) (+ 4611686018427387905 4611686018427387903) -> 9223372036854775808) ((2024 . 5625) (+ 4611686018427387905 4611686018427387904) -> 9223372036854775809) ((2025 . 5625) (+ 4611686018427387905 4611686018427387905) -> 9223372036854775810) ((2026 . 5625) (+ 4611686018427387901 -4611686018427387906) -> -5) ((2027 . 5625) (+ 4611686018427387901 -4611686018427387905) -> -4) ((2028 . 5625) (+ 4611686018427387901 -4611686018427387904) -> -3) ((2029 . 5625) (+ 4611686018427387901 -4611686018427387903) -> -2) ((2030 . 5625) (+ 4611686018427387901 -4611686018427387902) -> -1) ((2031 . 5625) (+ 4611686018427387902 -4611686018427387906) -> -4) ((2032 . 5625) (+ 4611686018427387902 -4611686018427387905) -> -3) ((2033 . 5625) (+ 4611686018427387902 -4611686018427387904) -> -2) ((2034 . 5625) (+ 4611686018427387902 -4611686018427387903) -> -1) ((2035 . 5625) (+ 4611686018427387902 -4611686018427387902) -> 0) ((2036 . 5625) (+ 4611686018427387903 -4611686018427387906) -> -3) ((2037 . 5625) (+ 4611686018427387903 -4611686018427387905) -> -2) ((2038 . 5625) (+ 4611686018427387903 -4611686018427387904) -> -1) ((2039 . 5625) (+ 4611686018427387903 -4611686018427387903) -> 0) ((2040 . 5625) (+ 4611686018427387903 -4611686018427387902) -> 1) ((2041 . 5625) (+ 4611686018427387904 -4611686018427387906) -> -2) ((2042 . 5625) (+ 4611686018427387904 -4611686018427387905) -> -1) ((2043 . 5625) (+ 4611686018427387904 -4611686018427387904) -> 0) ((2044 . 5625) (+ 4611686018427387904 -4611686018427387903) -> 1) ((2045 . 5625) (+ 4611686018427387904 -4611686018427387902) -> 2) ((2046 . 5625) (+ 4611686018427387905 -4611686018427387906) -> -1) ((2047 . 5625) (+ 4611686018427387905 -4611686018427387905) -> 0) ((2048 . 5625) (+ 4611686018427387905 -4611686018427387904) -> 1) ((2049 . 5625) (+ 4611686018427387905 -4611686018427387903) -> 2) ((2050 . 5625) (+ 4611686018427387905 -4611686018427387902) -> 3) ((2051 . 5625) (+ 4611686018427387901 4611686018427387902) -> 9223372036854775803) ((2052 . 5625) (+ 4611686018427387901 4611686018427387903) -> 9223372036854775804) ((2053 . 5625) (+ 4611686018427387901 4611686018427387904) -> 9223372036854775805) ((2054 . 5625) (+ 4611686018427387901 4611686018427387905) -> 9223372036854775806) ((2055 . 5625) (+ 4611686018427387901 4611686018427387906) -> 9223372036854775807) ((2056 . 5625) (+ 4611686018427387902 4611686018427387902) -> 9223372036854775804) ((2057 . 5625) (+ 4611686018427387902 4611686018427387903) -> 9223372036854775805) ((2058 . 5625) (+ 4611686018427387902 4611686018427387904) -> 9223372036854775806) ((2059 . 5625) (+ 4611686018427387902 4611686018427387905) -> 9223372036854775807) ((2060 . 5625) (+ 4611686018427387902 4611686018427387906) -> 9223372036854775808) ((2061 . 5625) (+ 4611686018427387903 4611686018427387902) -> 9223372036854775805) ((2062 . 5625) (+ 4611686018427387903 4611686018427387903) -> 9223372036854775806) ((2063 . 5625) (+ 4611686018427387903 4611686018427387904) -> 9223372036854775807) ((2064 . 5625) (+ 4611686018427387903 4611686018427387905) -> 9223372036854775808) ((2065 . 5625) (+ 4611686018427387903 4611686018427387906) -> 9223372036854775809) ((2066 . 5625) (+ 4611686018427387904 4611686018427387902) -> 9223372036854775806) ((2067 . 5625) (+ 4611686018427387904 4611686018427387903) -> 9223372036854775807) ((2068 . 5625) (+ 4611686018427387904 4611686018427387904) -> 9223372036854775808) ((2069 . 5625) (+ 4611686018427387904 4611686018427387905) -> 9223372036854775809) ((2070 . 5625) (+ 4611686018427387904 4611686018427387906) -> 9223372036854775810) ((2071 . 5625) (+ 4611686018427387905 4611686018427387902) -> 9223372036854775807) ((2072 . 5625) (+ 4611686018427387905 4611686018427387903) -> 9223372036854775808) ((2073 . 5625) (+ 4611686018427387905 4611686018427387904) -> 9223372036854775809) ((2074 . 5625) (+ 4611686018427387905 4611686018427387905) -> 9223372036854775810) ((2075 . 5625) (+ 4611686018427387905 4611686018427387906) -> 9223372036854775811) ((2076 . 5625) (+ 4611686018427387901 -4611686018427387907) -> -6) ((2077 . 5625) (+ 4611686018427387901 -4611686018427387906) -> -5) ((2078 . 5625) (+ 4611686018427387901 -4611686018427387905) -> -4) ((2079 . 5625) (+ 4611686018427387901 -4611686018427387904) -> -3) ((2080 . 5625) (+ 4611686018427387901 -4611686018427387903) -> -2) ((2081 . 5625) (+ 4611686018427387902 -4611686018427387907) -> -5) ((2082 . 5625) (+ 4611686018427387902 -4611686018427387906) -> -4) ((2083 . 5625) (+ 4611686018427387902 -4611686018427387905) -> -3) ((2084 . 5625) (+ 4611686018427387902 -4611686018427387904) -> -2) ((2085 . 5625) (+ 4611686018427387902 -4611686018427387903) -> -1) ((2086 . 5625) (+ 4611686018427387903 -4611686018427387907) -> -4) ((2087 . 5625) (+ 4611686018427387903 -4611686018427387906) -> -3) ((2088 . 5625) (+ 4611686018427387903 -4611686018427387905) -> -2) ((2089 . 5625) (+ 4611686018427387903 -4611686018427387904) -> -1) ((2090 . 5625) (+ 4611686018427387903 -4611686018427387903) -> 0) ((2091 . 5625) (+ 4611686018427387904 -4611686018427387907) -> -3) ((2092 . 5625) (+ 4611686018427387904 -4611686018427387906) -> -2) ((2093 . 5625) (+ 4611686018427387904 -4611686018427387905) -> -1) ((2094 . 5625) (+ 4611686018427387904 -4611686018427387904) -> 0) ((2095 . 5625) (+ 4611686018427387904 -4611686018427387903) -> 1) ((2096 . 5625) (+ 4611686018427387905 -4611686018427387907) -> -2) ((2097 . 5625) (+ 4611686018427387905 -4611686018427387906) -> -1) ((2098 . 5625) (+ 4611686018427387905 -4611686018427387905) -> 0) ((2099 . 5625) (+ 4611686018427387905 -4611686018427387904) -> 1) ((2100 . 5625) (+ 4611686018427387905 -4611686018427387903) -> 2) ((2101 . 5625) (+ 4611686018427387901 1103515243) -> 4611686019530903144) ((2102 . 5625) (+ 4611686018427387901 1103515244) -> 4611686019530903145) ((2103 . 5625) (+ 4611686018427387901 1103515245) -> 4611686019530903146) ((2104 . 5625) (+ 4611686018427387901 1103515246) -> 4611686019530903147) ((2105 . 5625) (+ 4611686018427387901 1103515247) -> 4611686019530903148) ((2106 . 5625) (+ 4611686018427387902 1103515243) -> 4611686019530903145) ((2107 . 5625) (+ 4611686018427387902 1103515244) -> 4611686019530903146) ((2108 . 5625) (+ 4611686018427387902 1103515245) -> 4611686019530903147) ((2109 . 5625) (+ 4611686018427387902 1103515246) -> 4611686019530903148) ((2110 . 5625) (+ 4611686018427387902 1103515247) -> 4611686019530903149) ((2111 . 5625) (+ 4611686018427387903 1103515243) -> 4611686019530903146) ((2112 . 5625) (+ 4611686018427387903 1103515244) -> 4611686019530903147) ((2113 . 5625) (+ 4611686018427387903 1103515245) -> 4611686019530903148) ((2114 . 5625) (+ 4611686018427387903 1103515246) -> 4611686019530903149) ((2115 . 5625) (+ 4611686018427387903 1103515247) -> 4611686019530903150) ((2116 . 5625) (+ 4611686018427387904 1103515243) -> 4611686019530903147) ((2117 . 5625) (+ 4611686018427387904 1103515244) -> 4611686019530903148) ((2118 . 5625) (+ 4611686018427387904 1103515245) -> 4611686019530903149) ((2119 . 5625) (+ 4611686018427387904 1103515246) -> 4611686019530903150) ((2120 . 5625) (+ 4611686018427387904 1103515247) -> 4611686019530903151) ((2121 . 5625) (+ 4611686018427387905 1103515243) -> 4611686019530903148) ((2122 . 5625) (+ 4611686018427387905 1103515244) -> 4611686019530903149) ((2123 . 5625) (+ 4611686018427387905 1103515245) -> 4611686019530903150) ((2124 . 5625) (+ 4611686018427387905 1103515246) -> 4611686019530903151) ((2125 . 5625) (+ 4611686018427387905 1103515247) -> 4611686019530903152) ((2126 . 5625) (+ 4611686018427387901 631629063) -> 4611686019059016964) ((2127 . 5625) (+ 4611686018427387901 631629064) -> 4611686019059016965) ((2128 . 5625) (+ 4611686018427387901 631629065) -> 4611686019059016966) ((2129 . 5625) (+ 4611686018427387901 631629066) -> 4611686019059016967) ((2130 . 5625) (+ 4611686018427387901 631629067) -> 4611686019059016968) ((2131 . 5625) (+ 4611686018427387902 631629063) -> 4611686019059016965) ((2132 . 5625) (+ 4611686018427387902 631629064) -> 4611686019059016966) ((2133 . 5625) (+ 4611686018427387902 631629065) -> 4611686019059016967) ((2134 . 5625) (+ 4611686018427387902 631629066) -> 4611686019059016968) ((2135 . 5625) (+ 4611686018427387902 631629067) -> 4611686019059016969) ((2136 . 5625) (+ 4611686018427387903 631629063) -> 4611686019059016966) ((2137 . 5625) (+ 4611686018427387903 631629064) -> 4611686019059016967) ((2138 . 5625) (+ 4611686018427387903 631629065) -> 4611686019059016968) ((2139 . 5625) (+ 4611686018427387903 631629066) -> 4611686019059016969) ((2140 . 5625) (+ 4611686018427387903 631629067) -> 4611686019059016970) ((2141 . 5625) (+ 4611686018427387904 631629063) -> 4611686019059016967) ((2142 . 5625) (+ 4611686018427387904 631629064) -> 4611686019059016968) ((2143 . 5625) (+ 4611686018427387904 631629065) -> 4611686019059016969) ((2144 . 5625) (+ 4611686018427387904 631629066) -> 4611686019059016970) ((2145 . 5625) (+ 4611686018427387904 631629067) -> 4611686019059016971) ((2146 . 5625) (+ 4611686018427387905 631629063) -> 4611686019059016968) ((2147 . 5625) (+ 4611686018427387905 631629064) -> 4611686019059016969) ((2148 . 5625) (+ 4611686018427387905 631629065) -> 4611686019059016970) ((2149 . 5625) (+ 4611686018427387905 631629066) -> 4611686019059016971) ((2150 . 5625) (+ 4611686018427387905 631629067) -> 4611686019059016972) ((2151 . 5625) (+ 4611686018427387901 9007199254740990) -> 4620693217682128891) ((2152 . 5625) (+ 4611686018427387901 9007199254740991) -> 4620693217682128892) ((2153 . 5625) (+ 4611686018427387901 9007199254740992) -> 4620693217682128893) ((2154 . 5625) (+ 4611686018427387901 9007199254740993) -> 4620693217682128894) ((2155 . 5625) (+ 4611686018427387901 9007199254740994) -> 4620693217682128895) ((2156 . 5625) (+ 4611686018427387902 9007199254740990) -> 4620693217682128892) ((2157 . 5625) (+ 4611686018427387902 9007199254740991) -> 4620693217682128893) ((2158 . 5625) (+ 4611686018427387902 9007199254740992) -> 4620693217682128894) ((2159 . 5625) (+ 4611686018427387902 9007199254740993) -> 4620693217682128895) ((2160 . 5625) (+ 4611686018427387902 9007199254740994) -> 4620693217682128896) ((2161 . 5625) (+ 4611686018427387903 9007199254740990) -> 4620693217682128893) ((2162 . 5625) (+ 4611686018427387903 9007199254740991) -> 4620693217682128894) ((2163 . 5625) (+ 4611686018427387903 9007199254740992) -> 4620693217682128895) ((2164 . 5625) (+ 4611686018427387903 9007199254740993) -> 4620693217682128896) ((2165 . 5625) (+ 4611686018427387903 9007199254740994) -> 4620693217682128897) ((2166 . 5625) (+ 4611686018427387904 9007199254740990) -> 4620693217682128894) ((2167 . 5625) (+ 4611686018427387904 9007199254740991) -> 4620693217682128895) ((2168 . 5625) (+ 4611686018427387904 9007199254740992) -> 4620693217682128896) ((2169 . 5625) (+ 4611686018427387904 9007199254740993) -> 4620693217682128897) ((2170 . 5625) (+ 4611686018427387904 9007199254740994) -> 4620693217682128898) ((2171 . 5625) (+ 4611686018427387905 9007199254740990) -> 4620693217682128895) ((2172 . 5625) (+ 4611686018427387905 9007199254740991) -> 4620693217682128896) ((2173 . 5625) (+ 4611686018427387905 9007199254740992) -> 4620693217682128897) ((2174 . 5625) (+ 4611686018427387905 9007199254740993) -> 4620693217682128898) ((2175 . 5625) (+ 4611686018427387905 9007199254740994) -> 4620693217682128899) ((2176 . 5625) (+ 4611686018427387901 -9007199254740994) -> 4602678819172646907) ((2177 . 5625) (+ 4611686018427387901 -9007199254740993) -> 4602678819172646908) ((2178 . 5625) (+ 4611686018427387901 -9007199254740992) -> 4602678819172646909) ((2179 . 5625) (+ 4611686018427387901 -9007199254740991) -> 4602678819172646910) ((2180 . 5625) (+ 4611686018427387901 -9007199254740990) -> 4602678819172646911) ((2181 . 5625) (+ 4611686018427387902 -9007199254740994) -> 4602678819172646908) ((2182 . 5625) (+ 4611686018427387902 -9007199254740993) -> 4602678819172646909) ((2183 . 5625) (+ 4611686018427387902 -9007199254740992) -> 4602678819172646910) ((2184 . 5625) (+ 4611686018427387902 -9007199254740991) -> 4602678819172646911) ((2185 . 5625) (+ 4611686018427387902 -9007199254740990) -> 4602678819172646912) ((2186 . 5625) (+ 4611686018427387903 -9007199254740994) -> 4602678819172646909) ((2187 . 5625) (+ 4611686018427387903 -9007199254740993) -> 4602678819172646910) ((2188 . 5625) (+ 4611686018427387903 -9007199254740992) -> 4602678819172646911) ((2189 . 5625) (+ 4611686018427387903 -9007199254740991) -> 4602678819172646912) ((2190 . 5625) (+ 4611686018427387903 -9007199254740990) -> 4602678819172646913) ((2191 . 5625) (+ 4611686018427387904 -9007199254740994) -> 4602678819172646910) ((2192 . 5625) (+ 4611686018427387904 -9007199254740993) -> 4602678819172646911) ((2193 . 5625) (+ 4611686018427387904 -9007199254740992) -> 4602678819172646912) ((2194 . 5625) (+ 4611686018427387904 -9007199254740991) -> 4602678819172646913) ((2195 . 5625) (+ 4611686018427387904 -9007199254740990) -> 4602678819172646914) ((2196 . 5625) (+ 4611686018427387905 -9007199254740994) -> 4602678819172646911) ((2197 . 5625) (+ 4611686018427387905 -9007199254740993) -> 4602678819172646912) ((2198 . 5625) (+ 4611686018427387905 -9007199254740992) -> 4602678819172646913) ((2199 . 5625) (+ 4611686018427387905 -9007199254740991) -> 4602678819172646914) ((2200 . 5625) (+ 4611686018427387905 -9007199254740990) -> 4602678819172646915) ((2201 . 5625) (+ 4611686018427387901 12343) -> 4611686018427400244) ((2202 . 5625) (+ 4611686018427387901 12344) -> 4611686018427400245) ((2203 . 5625) (+ 4611686018427387901 12345) -> 4611686018427400246) ((2204 . 5625) (+ 4611686018427387901 12346) -> 4611686018427400247) ((2205 . 5625) (+ 4611686018427387901 12347) -> 4611686018427400248) ((2206 . 5625) (+ 4611686018427387902 12343) -> 4611686018427400245) ((2207 . 5625) (+ 4611686018427387902 12344) -> 4611686018427400246) ((2208 . 5625) (+ 4611686018427387902 12345) -> 4611686018427400247) ((2209 . 5625) (+ 4611686018427387902 12346) -> 4611686018427400248) ((2210 . 5625) (+ 4611686018427387902 12347) -> 4611686018427400249) ((2211 . 5625) (+ 4611686018427387903 12343) -> 4611686018427400246) ((2212 . 5625) (+ 4611686018427387903 12344) -> 4611686018427400247) ((2213 . 5625) (+ 4611686018427387903 12345) -> 4611686018427400248) ((2214 . 5625) (+ 4611686018427387903 12346) -> 4611686018427400249) ((2215 . 5625) (+ 4611686018427387903 12347) -> 4611686018427400250) ((2216 . 5625) (+ 4611686018427387904 12343) -> 4611686018427400247) ((2217 . 5625) (+ 4611686018427387904 12344) -> 4611686018427400248) ((2218 . 5625) (+ 4611686018427387904 12345) -> 4611686018427400249) ((2219 . 5625) (+ 4611686018427387904 12346) -> 4611686018427400250) ((2220 . 5625) (+ 4611686018427387904 12347) -> 4611686018427400251) ((2221 . 5625) (+ 4611686018427387905 12343) -> 4611686018427400248) ((2222 . 5625) (+ 4611686018427387905 12344) -> 4611686018427400249) ((2223 . 5625) (+ 4611686018427387905 12345) -> 4611686018427400250) ((2224 . 5625) (+ 4611686018427387905 12346) -> 4611686018427400251) ((2225 . 5625) (+ 4611686018427387905 12347) -> 4611686018427400252) ((2226 . 5625) (+ 4611686018427387901 4294967294) -> 4611686022722355195) ((2227 . 5625) (+ 4611686018427387901 4294967295) -> 4611686022722355196) ((2228 . 5625) (+ 4611686018427387901 4294967296) -> 4611686022722355197) ((2229 . 5625) (+ 4611686018427387901 4294967297) -> 4611686022722355198) ((2230 . 5625) (+ 4611686018427387901 4294967298) -> 4611686022722355199) ((2231 . 5625) (+ 4611686018427387902 4294967294) -> 4611686022722355196) ((2232 . 5625) (+ 4611686018427387902 4294967295) -> 4611686022722355197) ((2233 . 5625) (+ 4611686018427387902 4294967296) -> 4611686022722355198) ((2234 . 5625) (+ 4611686018427387902 4294967297) -> 4611686022722355199) ((2235 . 5625) (+ 4611686018427387902 4294967298) -> 4611686022722355200) ((2236 . 5625) (+ 4611686018427387903 4294967294) -> 4611686022722355197) ((2237 . 5625) (+ 4611686018427387903 4294967295) -> 4611686022722355198) ((2238 . 5625) (+ 4611686018427387903 4294967296) -> 4611686022722355199) ((2239 . 5625) (+ 4611686018427387903 4294967297) -> 4611686022722355200) ((2240 . 5625) (+ 4611686018427387903 4294967298) -> 4611686022722355201) ((2241 . 5625) (+ 4611686018427387904 4294967294) -> 4611686022722355198) ((2242 . 5625) (+ 4611686018427387904 4294967295) -> 4611686022722355199) ((2243 . 5625) (+ 4611686018427387904 4294967296) -> 4611686022722355200) ((2244 . 5625) (+ 4611686018427387904 4294967297) -> 4611686022722355201) ((2245 . 5625) (+ 4611686018427387904 4294967298) -> 4611686022722355202) ((2246 . 5625) (+ 4611686018427387905 4294967294) -> 4611686022722355199) ((2247 . 5625) (+ 4611686018427387905 4294967295) -> 4611686022722355200) ((2248 . 5625) (+ 4611686018427387905 4294967296) -> 4611686022722355201) ((2249 . 5625) (+ 4611686018427387905 4294967297) -> 4611686022722355202) ((2250 . 5625) (+ 4611686018427387905 4294967298) -> 4611686022722355203) ((2251 . 5625) (+ -4611686018427387906 -2) -> -4611686018427387908) ((2252 . 5625) (+ -4611686018427387906 -1) -> -4611686018427387907) ((2253 . 5625) (+ -4611686018427387906 0) -> -4611686018427387906) ((2254 . 5625) (+ -4611686018427387906 1) -> -4611686018427387905) ((2255 . 5625) (+ -4611686018427387906 2) -> -4611686018427387904) ((2256 . 5625) (+ -4611686018427387905 -2) -> -4611686018427387907) ((2257 . 5625) (+ -4611686018427387905 -1) -> -4611686018427387906) ((2258 . 5625) (+ -4611686018427387905 0) -> -4611686018427387905) ((2259 . 5625) (+ -4611686018427387905 1) -> -4611686018427387904) ((2260 . 5625) (+ -4611686018427387905 2) -> -4611686018427387903) ((2261 . 5625) (+ -4611686018427387904 -2) -> -4611686018427387906) ((2262 . 5625) (+ -4611686018427387904 -1) -> -4611686018427387905) ((2263 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((2264 . 5625) (+ -4611686018427387904 1) -> -4611686018427387903) ((2265 . 5625) (+ -4611686018427387904 2) -> -4611686018427387902) ((2266 . 5625) (+ -4611686018427387903 -2) -> -4611686018427387905) ((2267 . 5625) (+ -4611686018427387903 -1) -> -4611686018427387904) ((2268 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((2269 . 5625) (+ -4611686018427387903 1) -> -4611686018427387902) ((2270 . 5625) (+ -4611686018427387903 2) -> -4611686018427387901) ((2271 . 5625) (+ -4611686018427387902 -2) -> -4611686018427387904) ((2272 . 5625) (+ -4611686018427387902 -1) -> -4611686018427387903) ((2273 . 5625) (+ -4611686018427387902 0) -> -4611686018427387902) ((2274 . 5625) (+ -4611686018427387902 1) -> -4611686018427387901) ((2275 . 5625) (+ -4611686018427387902 2) -> -4611686018427387900) ((2276 . 5625) (+ -4611686018427387906 -1) -> -4611686018427387907) ((2277 . 5625) (+ -4611686018427387906 0) -> -4611686018427387906) ((2278 . 5625) (+ -4611686018427387906 1) -> -4611686018427387905) ((2279 . 5625) (+ -4611686018427387906 2) -> -4611686018427387904) ((2280 . 5625) (+ -4611686018427387906 3) -> -4611686018427387903) ((2281 . 5625) (+ -4611686018427387905 -1) -> -4611686018427387906) ((2282 . 5625) (+ -4611686018427387905 0) -> -4611686018427387905) ((2283 . 5625) (+ -4611686018427387905 1) -> -4611686018427387904) ((2284 . 5625) (+ -4611686018427387905 2) -> -4611686018427387903) ((2285 . 5625) (+ -4611686018427387905 3) -> -4611686018427387902) ((2286 . 5625) (+ -4611686018427387904 -1) -> -4611686018427387905) ((2287 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((2288 . 5625) (+ -4611686018427387904 1) -> -4611686018427387903) ((2289 . 5625) (+ -4611686018427387904 2) -> -4611686018427387902) ((2290 . 5625) (+ -4611686018427387904 3) -> -4611686018427387901) ((2291 . 5625) (+ -4611686018427387903 -1) -> -4611686018427387904) ((2292 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((2293 . 5625) (+ -4611686018427387903 1) -> -4611686018427387902) ((2294 . 5625) (+ -4611686018427387903 2) -> -4611686018427387901) ((2295 . 5625) (+ -4611686018427387903 3) -> -4611686018427387900) ((2296 . 5625) (+ -4611686018427387902 -1) -> -4611686018427387903) ((2297 . 5625) (+ -4611686018427387902 0) -> -4611686018427387902) ((2298 . 5625) (+ -4611686018427387902 1) -> -4611686018427387901) ((2299 . 5625) (+ -4611686018427387902 2) -> -4611686018427387900) ((2300 . 5625) (+ -4611686018427387902 3) -> -4611686018427387899) ((2301 . 5625) (+ -4611686018427387906 -3) -> -4611686018427387909) ((2302 . 5625) (+ -4611686018427387906 -2) -> -4611686018427387908) ((2303 . 5625) (+ -4611686018427387906 -1) -> -4611686018427387907) ((2304 . 5625) (+ -4611686018427387906 0) -> -4611686018427387906) ((2305 . 5625) (+ -4611686018427387906 1) -> -4611686018427387905) ((2306 . 5625) (+ -4611686018427387905 -3) -> -4611686018427387908) ((2307 . 5625) (+ -4611686018427387905 -2) -> -4611686018427387907) ((2308 . 5625) (+ -4611686018427387905 -1) -> -4611686018427387906) ((2309 . 5625) (+ -4611686018427387905 0) -> -4611686018427387905) ((2310 . 5625) (+ -4611686018427387905 1) -> -4611686018427387904) ((2311 . 5625) (+ -4611686018427387904 -3) -> -4611686018427387907) ((2312 . 5625) (+ -4611686018427387904 -2) -> -4611686018427387906) ((2313 . 5625) (+ -4611686018427387904 -1) -> -4611686018427387905) ((2314 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((2315 . 5625) (+ -4611686018427387904 1) -> -4611686018427387903) ((2316 . 5625) (+ -4611686018427387903 -3) -> -4611686018427387906) ((2317 . 5625) (+ -4611686018427387903 -2) -> -4611686018427387905) ((2318 . 5625) (+ -4611686018427387903 -1) -> -4611686018427387904) ((2319 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((2320 . 5625) (+ -4611686018427387903 1) -> -4611686018427387902) ((2321 . 5625) (+ -4611686018427387902 -3) -> -4611686018427387905) ((2322 . 5625) (+ -4611686018427387902 -2) -> -4611686018427387904) ((2323 . 5625) (+ -4611686018427387902 -1) -> -4611686018427387903) ((2324 . 5625) (+ -4611686018427387902 0) -> -4611686018427387902) ((2325 . 5625) (+ -4611686018427387902 1) -> -4611686018427387901) ((2326 . 5625) (+ -4611686018427387906 0) -> -4611686018427387906) ((2327 . 5625) (+ -4611686018427387906 1) -> -4611686018427387905) ((2328 . 5625) (+ -4611686018427387906 2) -> -4611686018427387904) ((2329 . 5625) (+ -4611686018427387906 3) -> -4611686018427387903) ((2330 . 5625) (+ -4611686018427387906 4) -> -4611686018427387902) ((2331 . 5625) (+ -4611686018427387905 0) -> -4611686018427387905) ((2332 . 5625) (+ -4611686018427387905 1) -> -4611686018427387904) ((2333 . 5625) (+ -4611686018427387905 2) -> -4611686018427387903) ((2334 . 5625) (+ -4611686018427387905 3) -> -4611686018427387902) ((2335 . 5625) (+ -4611686018427387905 4) -> -4611686018427387901) ((2336 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((2337 . 5625) (+ -4611686018427387904 1) -> -4611686018427387903) ((2338 . 5625) (+ -4611686018427387904 2) -> -4611686018427387902) ((2339 . 5625) (+ -4611686018427387904 3) -> -4611686018427387901) ((2340 . 5625) (+ -4611686018427387904 4) -> -4611686018427387900) ((2341 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((2342 . 5625) (+ -4611686018427387903 1) -> -4611686018427387902) ((2343 . 5625) (+ -4611686018427387903 2) -> -4611686018427387901) ((2344 . 5625) (+ -4611686018427387903 3) -> -4611686018427387900) ((2345 . 5625) (+ -4611686018427387903 4) -> -4611686018427387899) ((2346 . 5625) (+ -4611686018427387902 0) -> -4611686018427387902) ((2347 . 5625) (+ -4611686018427387902 1) -> -4611686018427387901) ((2348 . 5625) (+ -4611686018427387902 2) -> -4611686018427387900) ((2349 . 5625) (+ -4611686018427387902 3) -> -4611686018427387899) ((2350 . 5625) (+ -4611686018427387902 4) -> -4611686018427387898) ((2351 . 5625) (+ -4611686018427387906 -4) -> -4611686018427387910) ((2352 . 5625) (+ -4611686018427387906 -3) -> -4611686018427387909) ((2353 . 5625) (+ -4611686018427387906 -2) -> -4611686018427387908) ((2354 . 5625) (+ -4611686018427387906 -1) -> -4611686018427387907) ((2355 . 5625) (+ -4611686018427387906 0) -> -4611686018427387906) ((2356 . 5625) (+ -4611686018427387905 -4) -> -4611686018427387909) ((2357 . 5625) (+ -4611686018427387905 -3) -> -4611686018427387908) ((2358 . 5625) (+ -4611686018427387905 -2) -> -4611686018427387907) ((2359 . 5625) (+ -4611686018427387905 -1) -> -4611686018427387906) ((2360 . 5625) (+ -4611686018427387905 0) -> -4611686018427387905) ((2361 . 5625) (+ -4611686018427387904 -4) -> -4611686018427387908) ((2362 . 5625) (+ -4611686018427387904 -3) -> -4611686018427387907) ((2363 . 5625) (+ -4611686018427387904 -2) -> -4611686018427387906) ((2364 . 5625) (+ -4611686018427387904 -1) -> -4611686018427387905) ((2365 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((2366 . 5625) (+ -4611686018427387903 -4) -> -4611686018427387907) ((2367 . 5625) (+ -4611686018427387903 -3) -> -4611686018427387906) ((2368 . 5625) (+ -4611686018427387903 -2) -> -4611686018427387905) ((2369 . 5625) (+ -4611686018427387903 -1) -> -4611686018427387904) ((2370 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((2371 . 5625) (+ -4611686018427387902 -4) -> -4611686018427387906) ((2372 . 5625) (+ -4611686018427387902 -3) -> -4611686018427387905) ((2373 . 5625) (+ -4611686018427387902 -2) -> -4611686018427387904) ((2374 . 5625) (+ -4611686018427387902 -1) -> -4611686018427387903) ((2375 . 5625) (+ -4611686018427387902 0) -> -4611686018427387902) ((2376 . 5625) (+ -4611686018427387906 4611686018427387901) -> -5) ((2377 . 5625) (+ -4611686018427387906 4611686018427387902) -> -4) ((2378 . 5625) (+ -4611686018427387906 4611686018427387903) -> -3) ((2379 . 5625) (+ -4611686018427387906 4611686018427387904) -> -2) ((2380 . 5625) (+ -4611686018427387906 4611686018427387905) -> -1) ((2381 . 5625) (+ -4611686018427387905 4611686018427387901) -> -4) ((2382 . 5625) (+ -4611686018427387905 4611686018427387902) -> -3) ((2383 . 5625) (+ -4611686018427387905 4611686018427387903) -> -2) ((2384 . 5625) (+ -4611686018427387905 4611686018427387904) -> -1) ((2385 . 5625) (+ -4611686018427387905 4611686018427387905) -> 0) ((2386 . 5625) (+ -4611686018427387904 4611686018427387901) -> -3) ((2387 . 5625) (+ -4611686018427387904 4611686018427387902) -> -2) ((2388 . 5625) (+ -4611686018427387904 4611686018427387903) -> -1) ((2389 . 5625) (+ -4611686018427387904 4611686018427387904) -> 0) ((2390 . 5625) (+ -4611686018427387904 4611686018427387905) -> 1) ((2391 . 5625) (+ -4611686018427387903 4611686018427387901) -> -2) ((2392 . 5625) (+ -4611686018427387903 4611686018427387902) -> -1) ((2393 . 5625) (+ -4611686018427387903 4611686018427387903) -> 0) ((2394 . 5625) (+ -4611686018427387903 4611686018427387904) -> 1) ((2395 . 5625) (+ -4611686018427387903 4611686018427387905) -> 2) ((2396 . 5625) (+ -4611686018427387902 4611686018427387901) -> -1) ((2397 . 5625) (+ -4611686018427387902 4611686018427387902) -> 0) ((2398 . 5625) (+ -4611686018427387902 4611686018427387903) -> 1) ((2399 . 5625) (+ -4611686018427387902 4611686018427387904) -> 2) ((2400 . 5625) (+ -4611686018427387902 4611686018427387905) -> 3) ((2401 . 5625) (+ -4611686018427387906 -4611686018427387906) -> -9223372036854775812) ((2402 . 5625) (+ -4611686018427387906 -4611686018427387905) -> -9223372036854775811) ((2403 . 5625) (+ -4611686018427387906 -4611686018427387904) -> -9223372036854775810) ((2404 . 5625) (+ -4611686018427387906 -4611686018427387903) -> -9223372036854775809) ((2405 . 5625) (+ -4611686018427387906 -4611686018427387902) -> -9223372036854775808) ((2406 . 5625) (+ -4611686018427387905 -4611686018427387906) -> -9223372036854775811) ((2407 . 5625) (+ -4611686018427387905 -4611686018427387905) -> -9223372036854775810) ((2408 . 5625) (+ -4611686018427387905 -4611686018427387904) -> -9223372036854775809) ((2409 . 5625) (+ -4611686018427387905 -4611686018427387903) -> -9223372036854775808) ((2410 . 5625) (+ -4611686018427387905 -4611686018427387902) -> -9223372036854775807) ((2411 . 5625) (+ -4611686018427387904 -4611686018427387906) -> -9223372036854775810) ((2412 . 5625) (+ -4611686018427387904 -4611686018427387905) -> -9223372036854775809) ((2413 . 5625) (+ -4611686018427387904 -4611686018427387904) -> -9223372036854775808) ((2414 . 5625) (+ -4611686018427387904 -4611686018427387903) -> -9223372036854775807) ((2415 . 5625) (+ -4611686018427387904 -4611686018427387902) -> -9223372036854775806) ((2416 . 5625) (+ -4611686018427387903 -4611686018427387906) -> -9223372036854775809) ((2417 . 5625) (+ -4611686018427387903 -4611686018427387905) -> -9223372036854775808) ((2418 . 5625) (+ -4611686018427387903 -4611686018427387904) -> -9223372036854775807) ((2419 . 5625) (+ -4611686018427387903 -4611686018427387903) -> -9223372036854775806) ((2420 . 5625) (+ -4611686018427387903 -4611686018427387902) -> -9223372036854775805) ((2421 . 5625) (+ -4611686018427387902 -4611686018427387906) -> -9223372036854775808) ((2422 . 5625) (+ -4611686018427387902 -4611686018427387905) -> -9223372036854775807) ((2423 . 5625) (+ -4611686018427387902 -4611686018427387904) -> -9223372036854775806) ((2424 . 5625) (+ -4611686018427387902 -4611686018427387903) -> -9223372036854775805) ((2425 . 5625) (+ -4611686018427387902 -4611686018427387902) -> -9223372036854775804) ((2426 . 5625) (+ -4611686018427387906 4611686018427387902) -> -4) ((2427 . 5625) (+ -4611686018427387906 4611686018427387903) -> -3) ((2428 . 5625) (+ -4611686018427387906 4611686018427387904) -> -2) ((2429 . 5625) (+ -4611686018427387906 4611686018427387905) -> -1) ((2430 . 5625) (+ -4611686018427387906 4611686018427387906) -> 0) ((2431 . 5625) (+ -4611686018427387905 4611686018427387902) -> -3) ((2432 . 5625) (+ -4611686018427387905 4611686018427387903) -> -2) ((2433 . 5625) (+ -4611686018427387905 4611686018427387904) -> -1) ((2434 . 5625) (+ -4611686018427387905 4611686018427387905) -> 0) ((2435 . 5625) (+ -4611686018427387905 4611686018427387906) -> 1) ((2436 . 5625) (+ -4611686018427387904 4611686018427387902) -> -2) ((2437 . 5625) (+ -4611686018427387904 4611686018427387903) -> -1) ((2438 . 5625) (+ -4611686018427387904 4611686018427387904) -> 0) ((2439 . 5625) (+ -4611686018427387904 4611686018427387905) -> 1) ((2440 . 5625) (+ -4611686018427387904 4611686018427387906) -> 2) ((2441 . 5625) (+ -4611686018427387903 4611686018427387902) -> -1) ((2442 . 5625) (+ -4611686018427387903 4611686018427387903) -> 0) ((2443 . 5625) (+ -4611686018427387903 4611686018427387904) -> 1) ((2444 . 5625) (+ -4611686018427387903 4611686018427387905) -> 2) ((2445 . 5625) (+ -4611686018427387903 4611686018427387906) -> 3) ((2446 . 5625) (+ -4611686018427387902 4611686018427387902) -> 0) ((2447 . 5625) (+ -4611686018427387902 4611686018427387903) -> 1) ((2448 . 5625) (+ -4611686018427387902 4611686018427387904) -> 2) ((2449 . 5625) (+ -4611686018427387902 4611686018427387905) -> 3) ((2450 . 5625) (+ -4611686018427387902 4611686018427387906) -> 4) ((2451 . 5625) (+ -4611686018427387906 -4611686018427387907) -> -9223372036854775813) ((2452 . 5625) (+ -4611686018427387906 -4611686018427387906) -> -9223372036854775812) ((2453 . 5625) (+ -4611686018427387906 -4611686018427387905) -> -9223372036854775811) ((2454 . 5625) (+ -4611686018427387906 -4611686018427387904) -> -9223372036854775810) ((2455 . 5625) (+ -4611686018427387906 -4611686018427387903) -> -9223372036854775809) ((2456 . 5625) (+ -4611686018427387905 -4611686018427387907) -> -9223372036854775812) ((2457 . 5625) (+ -4611686018427387905 -4611686018427387906) -> -9223372036854775811) ((2458 . 5625) (+ -4611686018427387905 -4611686018427387905) -> -9223372036854775810) ((2459 . 5625) (+ -4611686018427387905 -4611686018427387904) -> -9223372036854775809) ((2460 . 5625) (+ -4611686018427387905 -4611686018427387903) -> -9223372036854775808) ((2461 . 5625) (+ -4611686018427387904 -4611686018427387907) -> -9223372036854775811) ((2462 . 5625) (+ -4611686018427387904 -4611686018427387906) -> -9223372036854775810) ((2463 . 5625) (+ -4611686018427387904 -4611686018427387905) -> -9223372036854775809) ((2464 . 5625) (+ -4611686018427387904 -4611686018427387904) -> -9223372036854775808) ((2465 . 5625) (+ -4611686018427387904 -4611686018427387903) -> -9223372036854775807) ((2466 . 5625) (+ -4611686018427387903 -4611686018427387907) -> -9223372036854775810) ((2467 . 5625) (+ -4611686018427387903 -4611686018427387906) -> -9223372036854775809) ((2468 . 5625) (+ -4611686018427387903 -4611686018427387905) -> -9223372036854775808) ((2469 . 5625) (+ -4611686018427387903 -4611686018427387904) -> -9223372036854775807) ((2470 . 5625) (+ -4611686018427387903 -4611686018427387903) -> -9223372036854775806) ((2471 . 5625) (+ -4611686018427387902 -4611686018427387907) -> -9223372036854775809) ((2472 . 5625) (+ -4611686018427387902 -4611686018427387906) -> -9223372036854775808) ((2473 . 5625) (+ -4611686018427387902 -4611686018427387905) -> -9223372036854775807) ((2474 . 5625) (+ -4611686018427387902 -4611686018427387904) -> -9223372036854775806) ((2475 . 5625) (+ -4611686018427387902 -4611686018427387903) -> -9223372036854775805) ((2476 . 5625) (+ -4611686018427387906 1103515243) -> -4611686017323872663) ((2477 . 5625) (+ -4611686018427387906 1103515244) -> -4611686017323872662) ((2478 . 5625) (+ -4611686018427387906 1103515245) -> -4611686017323872661) ((2479 . 5625) (+ -4611686018427387906 1103515246) -> -4611686017323872660) ((2480 . 5625) (+ -4611686018427387906 1103515247) -> -4611686017323872659) ((2481 . 5625) (+ -4611686018427387905 1103515243) -> -4611686017323872662) ((2482 . 5625) (+ -4611686018427387905 1103515244) -> -4611686017323872661) ((2483 . 5625) (+ -4611686018427387905 1103515245) -> -4611686017323872660) ((2484 . 5625) (+ -4611686018427387905 1103515246) -> -4611686017323872659) ((2485 . 5625) (+ -4611686018427387905 1103515247) -> -4611686017323872658) ((2486 . 5625) (+ -4611686018427387904 1103515243) -> -4611686017323872661) ((2487 . 5625) (+ -4611686018427387904 1103515244) -> -4611686017323872660) ((2488 . 5625) (+ -4611686018427387904 1103515245) -> -4611686017323872659) ((2489 . 5625) (+ -4611686018427387904 1103515246) -> -4611686017323872658) ((2490 . 5625) (+ -4611686018427387904 1103515247) -> -4611686017323872657) ((2491 . 5625) (+ -4611686018427387903 1103515243) -> -4611686017323872660) ((2492 . 5625) (+ -4611686018427387903 1103515244) -> -4611686017323872659) ((2493 . 5625) (+ -4611686018427387903 1103515245) -> -4611686017323872658) ((2494 . 5625) (+ -4611686018427387903 1103515246) -> -4611686017323872657) ((2495 . 5625) (+ -4611686018427387903 1103515247) -> -4611686017323872656) ((2496 . 5625) (+ -4611686018427387902 1103515243) -> -4611686017323872659) ((2497 . 5625) (+ -4611686018427387902 1103515244) -> -4611686017323872658) ((2498 . 5625) (+ -4611686018427387902 1103515245) -> -4611686017323872657) ((2499 . 5625) (+ -4611686018427387902 1103515246) -> -4611686017323872656) ((2500 . 5625) (+ -4611686018427387902 1103515247) -> -4611686017323872655) ((2501 . 5625) (+ -4611686018427387906 631629063) -> -4611686017795758843) ((2502 . 5625) (+ -4611686018427387906 631629064) -> -4611686017795758842) ((2503 . 5625) (+ -4611686018427387906 631629065) -> -4611686017795758841) ((2504 . 5625) (+ -4611686018427387906 631629066) -> -4611686017795758840) ((2505 . 5625) (+ -4611686018427387906 631629067) -> -4611686017795758839) ((2506 . 5625) (+ -4611686018427387905 631629063) -> -4611686017795758842) ((2507 . 5625) (+ -4611686018427387905 631629064) -> -4611686017795758841) ((2508 . 5625) (+ -4611686018427387905 631629065) -> -4611686017795758840) ((2509 . 5625) (+ -4611686018427387905 631629066) -> -4611686017795758839) ((2510 . 5625) (+ -4611686018427387905 631629067) -> -4611686017795758838) ((2511 . 5625) (+ -4611686018427387904 631629063) -> -4611686017795758841) ((2512 . 5625) (+ -4611686018427387904 631629064) -> -4611686017795758840) ((2513 . 5625) (+ -4611686018427387904 631629065) -> -4611686017795758839) ((2514 . 5625) (+ -4611686018427387904 631629066) -> -4611686017795758838) ((2515 . 5625) (+ -4611686018427387904 631629067) -> -4611686017795758837) ((2516 . 5625) (+ -4611686018427387903 631629063) -> -4611686017795758840) ((2517 . 5625) (+ -4611686018427387903 631629064) -> -4611686017795758839) ((2518 . 5625) (+ -4611686018427387903 631629065) -> -4611686017795758838) ((2519 . 5625) (+ -4611686018427387903 631629066) -> -4611686017795758837) ((2520 . 5625) (+ -4611686018427387903 631629067) -> -4611686017795758836) ((2521 . 5625) (+ -4611686018427387902 631629063) -> -4611686017795758839) ((2522 . 5625) (+ -4611686018427387902 631629064) -> -4611686017795758838) ((2523 . 5625) (+ -4611686018427387902 631629065) -> -4611686017795758837) ((2524 . 5625) (+ -4611686018427387902 631629066) -> -4611686017795758836) ((2525 . 5625) (+ -4611686018427387902 631629067) -> -4611686017795758835) ((2526 . 5625) (+ -4611686018427387906 9007199254740990) -> -4602678819172646916) ((2527 . 5625) (+ -4611686018427387906 9007199254740991) -> -4602678819172646915) ((2528 . 5625) (+ -4611686018427387906 9007199254740992) -> -4602678819172646914) ((2529 . 5625) (+ -4611686018427387906 9007199254740993) -> -4602678819172646913) ((2530 . 5625) (+ -4611686018427387906 9007199254740994) -> -4602678819172646912) ((2531 . 5625) (+ -4611686018427387905 9007199254740990) -> -4602678819172646915) ((2532 . 5625) (+ -4611686018427387905 9007199254740991) -> -4602678819172646914) ((2533 . 5625) (+ -4611686018427387905 9007199254740992) -> -4602678819172646913) ((2534 . 5625) (+ -4611686018427387905 9007199254740993) -> -4602678819172646912) ((2535 . 5625) (+ -4611686018427387905 9007199254740994) -> -4602678819172646911) ((2536 . 5625) (+ -4611686018427387904 9007199254740990) -> -4602678819172646914) ((2537 . 5625) (+ -4611686018427387904 9007199254740991) -> -4602678819172646913) ((2538 . 5625) (+ -4611686018427387904 9007199254740992) -> -4602678819172646912) ((2539 . 5625) (+ -4611686018427387904 9007199254740993) -> -4602678819172646911) ((2540 . 5625) (+ -4611686018427387904 9007199254740994) -> -4602678819172646910) ((2541 . 5625) (+ -4611686018427387903 9007199254740990) -> -4602678819172646913) ((2542 . 5625) (+ -4611686018427387903 9007199254740991) -> -4602678819172646912) ((2543 . 5625) (+ -4611686018427387903 9007199254740992) -> -4602678819172646911) ((2544 . 5625) (+ -4611686018427387903 9007199254740993) -> -4602678819172646910) ((2545 . 5625) (+ -4611686018427387903 9007199254740994) -> -4602678819172646909) ((2546 . 5625) (+ -4611686018427387902 9007199254740990) -> -4602678819172646912) ((2547 . 5625) (+ -4611686018427387902 9007199254740991) -> -4602678819172646911) ((2548 . 5625) (+ -4611686018427387902 9007199254740992) -> -4602678819172646910) ((2549 . 5625) (+ -4611686018427387902 9007199254740993) -> -4602678819172646909) ((2550 . 5625) (+ -4611686018427387902 9007199254740994) -> -4602678819172646908) ((2551 . 5625) (+ -4611686018427387906 -9007199254740994) -> -4620693217682128900) ((2552 . 5625) (+ -4611686018427387906 -9007199254740993) -> -4620693217682128899) ((2553 . 5625) (+ -4611686018427387906 -9007199254740992) -> -4620693217682128898) ((2554 . 5625) (+ -4611686018427387906 -9007199254740991) -> -4620693217682128897) ((2555 . 5625) (+ -4611686018427387906 -9007199254740990) -> -4620693217682128896) ((2556 . 5625) (+ -4611686018427387905 -9007199254740994) -> -4620693217682128899) ((2557 . 5625) (+ -4611686018427387905 -9007199254740993) -> -4620693217682128898) ((2558 . 5625) (+ -4611686018427387905 -9007199254740992) -> -4620693217682128897) ((2559 . 5625) (+ -4611686018427387905 -9007199254740991) -> -4620693217682128896) ((2560 . 5625) (+ -4611686018427387905 -9007199254740990) -> -4620693217682128895) ((2561 . 5625) (+ -4611686018427387904 -9007199254740994) -> -4620693217682128898) ((2562 . 5625) (+ -4611686018427387904 -9007199254740993) -> -4620693217682128897) ((2563 . 5625) (+ -4611686018427387904 -9007199254740992) -> -4620693217682128896) ((2564 . 5625) (+ -4611686018427387904 -9007199254740991) -> -4620693217682128895) ((2565 . 5625) (+ -4611686018427387904 -9007199254740990) -> -4620693217682128894) ((2566 . 5625) (+ -4611686018427387903 -9007199254740994) -> -4620693217682128897) ((2567 . 5625) (+ -4611686018427387903 -9007199254740993) -> -4620693217682128896) ((2568 . 5625) (+ -4611686018427387903 -9007199254740992) -> -4620693217682128895) ((2569 . 5625) (+ -4611686018427387903 -9007199254740991) -> -4620693217682128894) ((2570 . 5625) (+ -4611686018427387903 -9007199254740990) -> -4620693217682128893) ((2571 . 5625) (+ -4611686018427387902 -9007199254740994) -> -4620693217682128896) ((2572 . 5625) (+ -4611686018427387902 -9007199254740993) -> -4620693217682128895) ((2573 . 5625) (+ -4611686018427387902 -9007199254740992) -> -4620693217682128894) ((2574 . 5625) (+ -4611686018427387902 -9007199254740991) -> -4620693217682128893) ((2575 . 5625) (+ -4611686018427387902 -9007199254740990) -> -4620693217682128892) ((2576 . 5625) (+ -4611686018427387906 12343) -> -4611686018427375563) ((2577 . 5625) (+ -4611686018427387906 12344) -> -4611686018427375562) ((2578 . 5625) (+ -4611686018427387906 12345) -> -4611686018427375561) ((2579 . 5625) (+ -4611686018427387906 12346) -> -4611686018427375560) ((2580 . 5625) (+ -4611686018427387906 12347) -> -4611686018427375559) ((2581 . 5625) (+ -4611686018427387905 12343) -> -4611686018427375562) ((2582 . 5625) (+ -4611686018427387905 12344) -> -4611686018427375561) ((2583 . 5625) (+ -4611686018427387905 12345) -> -4611686018427375560) ((2584 . 5625) (+ -4611686018427387905 12346) -> -4611686018427375559) ((2585 . 5625) (+ -4611686018427387905 12347) -> -4611686018427375558) ((2586 . 5625) (+ -4611686018427387904 12343) -> -4611686018427375561) ((2587 . 5625) (+ -4611686018427387904 12344) -> -4611686018427375560) ((2588 . 5625) (+ -4611686018427387904 12345) -> -4611686018427375559) ((2589 . 5625) (+ -4611686018427387904 12346) -> -4611686018427375558) ((2590 . 5625) (+ -4611686018427387904 12347) -> -4611686018427375557) ((2591 . 5625) (+ -4611686018427387903 12343) -> -4611686018427375560) ((2592 . 5625) (+ -4611686018427387903 12344) -> -4611686018427375559) ((2593 . 5625) (+ -4611686018427387903 12345) -> -4611686018427375558) ((2594 . 5625) (+ -4611686018427387903 12346) -> -4611686018427375557) ((2595 . 5625) (+ -4611686018427387903 12347) -> -4611686018427375556) ((2596 . 5625) (+ -4611686018427387902 12343) -> -4611686018427375559) ((2597 . 5625) (+ -4611686018427387902 12344) -> -4611686018427375558) ((2598 . 5625) (+ -4611686018427387902 12345) -> -4611686018427375557) ((2599 . 5625) (+ -4611686018427387902 12346) -> -4611686018427375556) ((2600 . 5625) (+ -4611686018427387902 12347) -> -4611686018427375555) ((2601 . 5625) (+ -4611686018427387906 4294967294) -> -4611686014132420612) ((2602 . 5625) (+ -4611686018427387906 4294967295) -> -4611686014132420611) ((2603 . 5625) (+ -4611686018427387906 4294967296) -> -4611686014132420610) ((2604 . 5625) (+ -4611686018427387906 4294967297) -> -4611686014132420609) ((2605 . 5625) (+ -4611686018427387906 4294967298) -> -4611686014132420608) ((2606 . 5625) (+ -4611686018427387905 4294967294) -> -4611686014132420611) ((2607 . 5625) (+ -4611686018427387905 4294967295) -> -4611686014132420610) ((2608 . 5625) (+ -4611686018427387905 4294967296) -> -4611686014132420609) ((2609 . 5625) (+ -4611686018427387905 4294967297) -> -4611686014132420608) ((2610 . 5625) (+ -4611686018427387905 4294967298) -> -4611686014132420607) ((2611 . 5625) (+ -4611686018427387904 4294967294) -> -4611686014132420610) ((2612 . 5625) (+ -4611686018427387904 4294967295) -> -4611686014132420609) ((2613 . 5625) (+ -4611686018427387904 4294967296) -> -4611686014132420608) ((2614 . 5625) (+ -4611686018427387904 4294967297) -> -4611686014132420607) ((2615 . 5625) (+ -4611686018427387904 4294967298) -> -4611686014132420606) ((2616 . 5625) (+ -4611686018427387903 4294967294) -> -4611686014132420609) ((2617 . 5625) (+ -4611686018427387903 4294967295) -> -4611686014132420608) ((2618 . 5625) (+ -4611686018427387903 4294967296) -> -4611686014132420607) ((2619 . 5625) (+ -4611686018427387903 4294967297) -> -4611686014132420606) ((2620 . 5625) (+ -4611686018427387903 4294967298) -> -4611686014132420605) ((2621 . 5625) (+ -4611686018427387902 4294967294) -> -4611686014132420608) ((2622 . 5625) (+ -4611686018427387902 4294967295) -> -4611686014132420607) ((2623 . 5625) (+ -4611686018427387902 4294967296) -> -4611686014132420606) ((2624 . 5625) (+ -4611686018427387902 4294967297) -> -4611686014132420605) ((2625 . 5625) (+ -4611686018427387902 4294967298) -> -4611686014132420604) ((2626 . 5625) (+ 4611686018427387902 -2) -> 4611686018427387900) ((2627 . 5625) (+ 4611686018427387902 -1) -> 4611686018427387901) ((2628 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((2629 . 5625) (+ 4611686018427387902 1) -> 4611686018427387903) ((2630 . 5625) (+ 4611686018427387902 2) -> 4611686018427387904) ((2631 . 5625) (+ 4611686018427387903 -2) -> 4611686018427387901) ((2632 . 5625) (+ 4611686018427387903 -1) -> 4611686018427387902) ((2633 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((2634 . 5625) (+ 4611686018427387903 1) -> 4611686018427387904) ((2635 . 5625) (+ 4611686018427387903 2) -> 4611686018427387905) ((2636 . 5625) (+ 4611686018427387904 -2) -> 4611686018427387902) ((2637 . 5625) (+ 4611686018427387904 -1) -> 4611686018427387903) ((2638 . 5625) (+ 4611686018427387904 0) -> 4611686018427387904) ((2639 . 5625) (+ 4611686018427387904 1) -> 4611686018427387905) ((2640 . 5625) (+ 4611686018427387904 2) -> 4611686018427387906) ((2641 . 5625) (+ 4611686018427387905 -2) -> 4611686018427387903) ((2642 . 5625) (+ 4611686018427387905 -1) -> 4611686018427387904) ((2643 . 5625) (+ 4611686018427387905 0) -> 4611686018427387905) ((2644 . 5625) (+ 4611686018427387905 1) -> 4611686018427387906) ((2645 . 5625) (+ 4611686018427387905 2) -> 4611686018427387907) ((2646 . 5625) (+ 4611686018427387906 -2) -> 4611686018427387904) ((2647 . 5625) (+ 4611686018427387906 -1) -> 4611686018427387905) ((2648 . 5625) (+ 4611686018427387906 0) -> 4611686018427387906) ((2649 . 5625) (+ 4611686018427387906 1) -> 4611686018427387907) ((2650 . 5625) (+ 4611686018427387906 2) -> 4611686018427387908) ((2651 . 5625) (+ 4611686018427387902 -1) -> 4611686018427387901) ((2652 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((2653 . 5625) (+ 4611686018427387902 1) -> 4611686018427387903) ((2654 . 5625) (+ 4611686018427387902 2) -> 4611686018427387904) ((2655 . 5625) (+ 4611686018427387902 3) -> 4611686018427387905) ((2656 . 5625) (+ 4611686018427387903 -1) -> 4611686018427387902) ((2657 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((2658 . 5625) (+ 4611686018427387903 1) -> 4611686018427387904) ((2659 . 5625) (+ 4611686018427387903 2) -> 4611686018427387905) ((2660 . 5625) (+ 4611686018427387903 3) -> 4611686018427387906) ((2661 . 5625) (+ 4611686018427387904 -1) -> 4611686018427387903) ((2662 . 5625) (+ 4611686018427387904 0) -> 4611686018427387904) ((2663 . 5625) (+ 4611686018427387904 1) -> 4611686018427387905) ((2664 . 5625) (+ 4611686018427387904 2) -> 4611686018427387906) ((2665 . 5625) (+ 4611686018427387904 3) -> 4611686018427387907) ((2666 . 5625) (+ 4611686018427387905 -1) -> 4611686018427387904) ((2667 . 5625) (+ 4611686018427387905 0) -> 4611686018427387905) ((2668 . 5625) (+ 4611686018427387905 1) -> 4611686018427387906) ((2669 . 5625) (+ 4611686018427387905 2) -> 4611686018427387907) ((2670 . 5625) (+ 4611686018427387905 3) -> 4611686018427387908) ((2671 . 5625) (+ 4611686018427387906 -1) -> 4611686018427387905) ((2672 . 5625) (+ 4611686018427387906 0) -> 4611686018427387906) ((2673 . 5625) (+ 4611686018427387906 1) -> 4611686018427387907) ((2674 . 5625) (+ 4611686018427387906 2) -> 4611686018427387908) ((2675 . 5625) (+ 4611686018427387906 3) -> 4611686018427387909) ((2676 . 5625) (+ 4611686018427387902 -3) -> 4611686018427387899) ((2677 . 5625) (+ 4611686018427387902 -2) -> 4611686018427387900) ((2678 . 5625) (+ 4611686018427387902 -1) -> 4611686018427387901) ((2679 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((2680 . 5625) (+ 4611686018427387902 1) -> 4611686018427387903) ((2681 . 5625) (+ 4611686018427387903 -3) -> 4611686018427387900) ((2682 . 5625) (+ 4611686018427387903 -2) -> 4611686018427387901) ((2683 . 5625) (+ 4611686018427387903 -1) -> 4611686018427387902) ((2684 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((2685 . 5625) (+ 4611686018427387903 1) -> 4611686018427387904) ((2686 . 5625) (+ 4611686018427387904 -3) -> 4611686018427387901) ((2687 . 5625) (+ 4611686018427387904 -2) -> 4611686018427387902) ((2688 . 5625) (+ 4611686018427387904 -1) -> 4611686018427387903) ((2689 . 5625) (+ 4611686018427387904 0) -> 4611686018427387904) ((2690 . 5625) (+ 4611686018427387904 1) -> 4611686018427387905) ((2691 . 5625) (+ 4611686018427387905 -3) -> 4611686018427387902) ((2692 . 5625) (+ 4611686018427387905 -2) -> 4611686018427387903) ((2693 . 5625) (+ 4611686018427387905 -1) -> 4611686018427387904) ((2694 . 5625) (+ 4611686018427387905 0) -> 4611686018427387905) ((2695 . 5625) (+ 4611686018427387905 1) -> 4611686018427387906) ((2696 . 5625) (+ 4611686018427387906 -3) -> 4611686018427387903) ((2697 . 5625) (+ 4611686018427387906 -2) -> 4611686018427387904) ((2698 . 5625) (+ 4611686018427387906 -1) -> 4611686018427387905) ((2699 . 5625) (+ 4611686018427387906 0) -> 4611686018427387906) ((2700 . 5625) (+ 4611686018427387906 1) -> 4611686018427387907) ((2701 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((2702 . 5625) (+ 4611686018427387902 1) -> 4611686018427387903) ((2703 . 5625) (+ 4611686018427387902 2) -> 4611686018427387904) ((2704 . 5625) (+ 4611686018427387902 3) -> 4611686018427387905) ((2705 . 5625) (+ 4611686018427387902 4) -> 4611686018427387906) ((2706 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((2707 . 5625) (+ 4611686018427387903 1) -> 4611686018427387904) ((2708 . 5625) (+ 4611686018427387903 2) -> 4611686018427387905) ((2709 . 5625) (+ 4611686018427387903 3) -> 4611686018427387906) ((2710 . 5625) (+ 4611686018427387903 4) -> 4611686018427387907) ((2711 . 5625) (+ 4611686018427387904 0) -> 4611686018427387904) ((2712 . 5625) (+ 4611686018427387904 1) -> 4611686018427387905) ((2713 . 5625) (+ 4611686018427387904 2) -> 4611686018427387906) ((2714 . 5625) (+ 4611686018427387904 3) -> 4611686018427387907) ((2715 . 5625) (+ 4611686018427387904 4) -> 4611686018427387908) ((2716 . 5625) (+ 4611686018427387905 0) -> 4611686018427387905) ((2717 . 5625) (+ 4611686018427387905 1) -> 4611686018427387906) ((2718 . 5625) (+ 4611686018427387905 2) -> 4611686018427387907) ((2719 . 5625) (+ 4611686018427387905 3) -> 4611686018427387908) ((2720 . 5625) (+ 4611686018427387905 4) -> 4611686018427387909) ((2721 . 5625) (+ 4611686018427387906 0) -> 4611686018427387906) ((2722 . 5625) (+ 4611686018427387906 1) -> 4611686018427387907) ((2723 . 5625) (+ 4611686018427387906 2) -> 4611686018427387908) ((2724 . 5625) (+ 4611686018427387906 3) -> 4611686018427387909) ((2725 . 5625) (+ 4611686018427387906 4) -> 4611686018427387910) ((2726 . 5625) (+ 4611686018427387902 -4) -> 4611686018427387898) ((2727 . 5625) (+ 4611686018427387902 -3) -> 4611686018427387899) ((2728 . 5625) (+ 4611686018427387902 -2) -> 4611686018427387900) ((2729 . 5625) (+ 4611686018427387902 -1) -> 4611686018427387901) ((2730 . 5625) (+ 4611686018427387902 0) -> 4611686018427387902) ((2731 . 5625) (+ 4611686018427387903 -4) -> 4611686018427387899) ((2732 . 5625) (+ 4611686018427387903 -3) -> 4611686018427387900) ((2733 . 5625) (+ 4611686018427387903 -2) -> 4611686018427387901) ((2734 . 5625) (+ 4611686018427387903 -1) -> 4611686018427387902) ((2735 . 5625) (+ 4611686018427387903 0) -> 4611686018427387903) ((2736 . 5625) (+ 4611686018427387904 -4) -> 4611686018427387900) ((2737 . 5625) (+ 4611686018427387904 -3) -> 4611686018427387901) ((2738 . 5625) (+ 4611686018427387904 -2) -> 4611686018427387902) ((2739 . 5625) (+ 4611686018427387904 -1) -> 4611686018427387903) ((2740 . 5625) (+ 4611686018427387904 0) -> 4611686018427387904) ((2741 . 5625) (+ 4611686018427387905 -4) -> 4611686018427387901) ((2742 . 5625) (+ 4611686018427387905 -3) -> 4611686018427387902) ((2743 . 5625) (+ 4611686018427387905 -2) -> 4611686018427387903) ((2744 . 5625) (+ 4611686018427387905 -1) -> 4611686018427387904) ((2745 . 5625) (+ 4611686018427387905 0) -> 4611686018427387905) ((2746 . 5625) (+ 4611686018427387906 -4) -> 4611686018427387902) ((2747 . 5625) (+ 4611686018427387906 -3) -> 4611686018427387903) ((2748 . 5625) (+ 4611686018427387906 -2) -> 4611686018427387904) ((2749 . 5625) (+ 4611686018427387906 -1) -> 4611686018427387905) ((2750 . 5625) (+ 4611686018427387906 0) -> 4611686018427387906) ((2751 . 5625) (+ 4611686018427387902 4611686018427387901) -> 9223372036854775803) ((2752 . 5625) (+ 4611686018427387902 4611686018427387902) -> 9223372036854775804) ((2753 . 5625) (+ 4611686018427387902 4611686018427387903) -> 9223372036854775805) ((2754 . 5625) (+ 4611686018427387902 4611686018427387904) -> 9223372036854775806) ((2755 . 5625) (+ 4611686018427387902 4611686018427387905) -> 9223372036854775807) ((2756 . 5625) (+ 4611686018427387903 4611686018427387901) -> 9223372036854775804) ((2757 . 5625) (+ 4611686018427387903 4611686018427387902) -> 9223372036854775805) ((2758 . 5625) (+ 4611686018427387903 4611686018427387903) -> 9223372036854775806) ((2759 . 5625) (+ 4611686018427387903 4611686018427387904) -> 9223372036854775807) ((2760 . 5625) (+ 4611686018427387903 4611686018427387905) -> 9223372036854775808) ((2761 . 5625) (+ 4611686018427387904 4611686018427387901) -> 9223372036854775805) ((2762 . 5625) (+ 4611686018427387904 4611686018427387902) -> 9223372036854775806) ((2763 . 5625) (+ 4611686018427387904 4611686018427387903) -> 9223372036854775807) ((2764 . 5625) (+ 4611686018427387904 4611686018427387904) -> 9223372036854775808) ((2765 . 5625) (+ 4611686018427387904 4611686018427387905) -> 9223372036854775809) ((2766 . 5625) (+ 4611686018427387905 4611686018427387901) -> 9223372036854775806) ((2767 . 5625) (+ 4611686018427387905 4611686018427387902) -> 9223372036854775807) ((2768 . 5625) (+ 4611686018427387905 4611686018427387903) -> 9223372036854775808) ((2769 . 5625) (+ 4611686018427387905 4611686018427387904) -> 9223372036854775809) ((2770 . 5625) (+ 4611686018427387905 4611686018427387905) -> 9223372036854775810) ((2771 . 5625) (+ 4611686018427387906 4611686018427387901) -> 9223372036854775807) ((2772 . 5625) (+ 4611686018427387906 4611686018427387902) -> 9223372036854775808) ((2773 . 5625) (+ 4611686018427387906 4611686018427387903) -> 9223372036854775809) ((2774 . 5625) (+ 4611686018427387906 4611686018427387904) -> 9223372036854775810) ((2775 . 5625) (+ 4611686018427387906 4611686018427387905) -> 9223372036854775811) ((2776 . 5625) (+ 4611686018427387902 -4611686018427387906) -> -4) ((2777 . 5625) (+ 4611686018427387902 -4611686018427387905) -> -3) ((2778 . 5625) (+ 4611686018427387902 -4611686018427387904) -> -2) ((2779 . 5625) (+ 4611686018427387902 -4611686018427387903) -> -1) ((2780 . 5625) (+ 4611686018427387902 -4611686018427387902) -> 0) ((2781 . 5625) (+ 4611686018427387903 -4611686018427387906) -> -3) ((2782 . 5625) (+ 4611686018427387903 -4611686018427387905) -> -2) ((2783 . 5625) (+ 4611686018427387903 -4611686018427387904) -> -1) ((2784 . 5625) (+ 4611686018427387903 -4611686018427387903) -> 0) ((2785 . 5625) (+ 4611686018427387903 -4611686018427387902) -> 1) ((2786 . 5625) (+ 4611686018427387904 -4611686018427387906) -> -2) ((2787 . 5625) (+ 4611686018427387904 -4611686018427387905) -> -1) ((2788 . 5625) (+ 4611686018427387904 -4611686018427387904) -> 0) ((2789 . 5625) (+ 4611686018427387904 -4611686018427387903) -> 1) ((2790 . 5625) (+ 4611686018427387904 -4611686018427387902) -> 2) ((2791 . 5625) (+ 4611686018427387905 -4611686018427387906) -> -1) ((2792 . 5625) (+ 4611686018427387905 -4611686018427387905) -> 0) ((2793 . 5625) (+ 4611686018427387905 -4611686018427387904) -> 1) ((2794 . 5625) (+ 4611686018427387905 -4611686018427387903) -> 2) ((2795 . 5625) (+ 4611686018427387905 -4611686018427387902) -> 3) ((2796 . 5625) (+ 4611686018427387906 -4611686018427387906) -> 0) ((2797 . 5625) (+ 4611686018427387906 -4611686018427387905) -> 1) ((2798 . 5625) (+ 4611686018427387906 -4611686018427387904) -> 2) ((2799 . 5625) (+ 4611686018427387906 -4611686018427387903) -> 3) ((2800 . 5625) (+ 4611686018427387906 -4611686018427387902) -> 4) ((2801 . 5625) (+ 4611686018427387902 4611686018427387902) -> 9223372036854775804) ((2802 . 5625) (+ 4611686018427387902 4611686018427387903) -> 9223372036854775805) ((2803 . 5625) (+ 4611686018427387902 4611686018427387904) -> 9223372036854775806) ((2804 . 5625) (+ 4611686018427387902 4611686018427387905) -> 9223372036854775807) ((2805 . 5625) (+ 4611686018427387902 4611686018427387906) -> 9223372036854775808) ((2806 . 5625) (+ 4611686018427387903 4611686018427387902) -> 9223372036854775805) ((2807 . 5625) (+ 4611686018427387903 4611686018427387903) -> 9223372036854775806) ((2808 . 5625) (+ 4611686018427387903 4611686018427387904) -> 9223372036854775807) ((2809 . 5625) (+ 4611686018427387903 4611686018427387905) -> 9223372036854775808) ((2810 . 5625) (+ 4611686018427387903 4611686018427387906) -> 9223372036854775809) ((2811 . 5625) (+ 4611686018427387904 4611686018427387902) -> 9223372036854775806) ((2812 . 5625) (+ 4611686018427387904 4611686018427387903) -> 9223372036854775807) ((2813 . 5625) (+ 4611686018427387904 4611686018427387904) -> 9223372036854775808) ((2814 . 5625) (+ 4611686018427387904 4611686018427387905) -> 9223372036854775809) ((2815 . 5625) (+ 4611686018427387904 4611686018427387906) -> 9223372036854775810) ((2816 . 5625) (+ 4611686018427387905 4611686018427387902) -> 9223372036854775807) ((2817 . 5625) (+ 4611686018427387905 4611686018427387903) -> 9223372036854775808) ((2818 . 5625) (+ 4611686018427387905 4611686018427387904) -> 9223372036854775809) ((2819 . 5625) (+ 4611686018427387905 4611686018427387905) -> 9223372036854775810) ((2820 . 5625) (+ 4611686018427387905 4611686018427387906) -> 9223372036854775811) ((2821 . 5625) (+ 4611686018427387906 4611686018427387902) -> 9223372036854775808) ((2822 . 5625) (+ 4611686018427387906 4611686018427387903) -> 9223372036854775809) ((2823 . 5625) (+ 4611686018427387906 4611686018427387904) -> 9223372036854775810) ((2824 . 5625) (+ 4611686018427387906 4611686018427387905) -> 9223372036854775811) ((2825 . 5625) (+ 4611686018427387906 4611686018427387906) -> 9223372036854775812) ((2826 . 5625) (+ 4611686018427387902 -4611686018427387907) -> -5) ((2827 . 5625) (+ 4611686018427387902 -4611686018427387906) -> -4) ((2828 . 5625) (+ 4611686018427387902 -4611686018427387905) -> -3) ((2829 . 5625) (+ 4611686018427387902 -4611686018427387904) -> -2) ((2830 . 5625) (+ 4611686018427387902 -4611686018427387903) -> -1) ((2831 . 5625) (+ 4611686018427387903 -4611686018427387907) -> -4) ((2832 . 5625) (+ 4611686018427387903 -4611686018427387906) -> -3) ((2833 . 5625) (+ 4611686018427387903 -4611686018427387905) -> -2) ((2834 . 5625) (+ 4611686018427387903 -4611686018427387904) -> -1) ((2835 . 5625) (+ 4611686018427387903 -4611686018427387903) -> 0) ((2836 . 5625) (+ 4611686018427387904 -4611686018427387907) -> -3) ((2837 . 5625) (+ 4611686018427387904 -4611686018427387906) -> -2) ((2838 . 5625) (+ 4611686018427387904 -4611686018427387905) -> -1) ((2839 . 5625) (+ 4611686018427387904 -4611686018427387904) -> 0) ((2840 . 5625) (+ 4611686018427387904 -4611686018427387903) -> 1) ((2841 . 5625) (+ 4611686018427387905 -4611686018427387907) -> -2) ((2842 . 5625) (+ 4611686018427387905 -4611686018427387906) -> -1) ((2843 . 5625) (+ 4611686018427387905 -4611686018427387905) -> 0) ((2844 . 5625) (+ 4611686018427387905 -4611686018427387904) -> 1) ((2845 . 5625) (+ 4611686018427387905 -4611686018427387903) -> 2) ((2846 . 5625) (+ 4611686018427387906 -4611686018427387907) -> -1) ((2847 . 5625) (+ 4611686018427387906 -4611686018427387906) -> 0) ((2848 . 5625) (+ 4611686018427387906 -4611686018427387905) -> 1) ((2849 . 5625) (+ 4611686018427387906 -4611686018427387904) -> 2) ((2850 . 5625) (+ 4611686018427387906 -4611686018427387903) -> 3) ((2851 . 5625) (+ 4611686018427387902 1103515243) -> 4611686019530903145) ((2852 . 5625) (+ 4611686018427387902 1103515244) -> 4611686019530903146) ((2853 . 5625) (+ 4611686018427387902 1103515245) -> 4611686019530903147) ((2854 . 5625) (+ 4611686018427387902 1103515246) -> 4611686019530903148) ((2855 . 5625) (+ 4611686018427387902 1103515247) -> 4611686019530903149) ((2856 . 5625) (+ 4611686018427387903 1103515243) -> 4611686019530903146) ((2857 . 5625) (+ 4611686018427387903 1103515244) -> 4611686019530903147) ((2858 . 5625) (+ 4611686018427387903 1103515245) -> 4611686019530903148) ((2859 . 5625) (+ 4611686018427387903 1103515246) -> 4611686019530903149) ((2860 . 5625) (+ 4611686018427387903 1103515247) -> 4611686019530903150) ((2861 . 5625) (+ 4611686018427387904 1103515243) -> 4611686019530903147) ((2862 . 5625) (+ 4611686018427387904 1103515244) -> 4611686019530903148) ((2863 . 5625) (+ 4611686018427387904 1103515245) -> 4611686019530903149) ((2864 . 5625) (+ 4611686018427387904 1103515246) -> 4611686019530903150) ((2865 . 5625) (+ 4611686018427387904 1103515247) -> 4611686019530903151) ((2866 . 5625) (+ 4611686018427387905 1103515243) -> 4611686019530903148) ((2867 . 5625) (+ 4611686018427387905 1103515244) -> 4611686019530903149) ((2868 . 5625) (+ 4611686018427387905 1103515245) -> 4611686019530903150) ((2869 . 5625) (+ 4611686018427387905 1103515246) -> 4611686019530903151) ((2870 . 5625) (+ 4611686018427387905 1103515247) -> 4611686019530903152) ((2871 . 5625) (+ 4611686018427387906 1103515243) -> 4611686019530903149) ((2872 . 5625) (+ 4611686018427387906 1103515244) -> 4611686019530903150) ((2873 . 5625) (+ 4611686018427387906 1103515245) -> 4611686019530903151) ((2874 . 5625) (+ 4611686018427387906 1103515246) -> 4611686019530903152) ((2875 . 5625) (+ 4611686018427387906 1103515247) -> 4611686019530903153) ((2876 . 5625) (+ 4611686018427387902 631629063) -> 4611686019059016965) ((2877 . 5625) (+ 4611686018427387902 631629064) -> 4611686019059016966) ((2878 . 5625) (+ 4611686018427387902 631629065) -> 4611686019059016967) ((2879 . 5625) (+ 4611686018427387902 631629066) -> 4611686019059016968) ((2880 . 5625) (+ 4611686018427387902 631629067) -> 4611686019059016969) ((2881 . 5625) (+ 4611686018427387903 631629063) -> 4611686019059016966) ((2882 . 5625) (+ 4611686018427387903 631629064) -> 4611686019059016967) ((2883 . 5625) (+ 4611686018427387903 631629065) -> 4611686019059016968) ((2884 . 5625) (+ 4611686018427387903 631629066) -> 4611686019059016969) ((2885 . 5625) (+ 4611686018427387903 631629067) -> 4611686019059016970) ((2886 . 5625) (+ 4611686018427387904 631629063) -> 4611686019059016967) ((2887 . 5625) (+ 4611686018427387904 631629064) -> 4611686019059016968) ((2888 . 5625) (+ 4611686018427387904 631629065) -> 4611686019059016969) ((2889 . 5625) (+ 4611686018427387904 631629066) -> 4611686019059016970) ((2890 . 5625) (+ 4611686018427387904 631629067) -> 4611686019059016971) ((2891 . 5625) (+ 4611686018427387905 631629063) -> 4611686019059016968) ((2892 . 5625) (+ 4611686018427387905 631629064) -> 4611686019059016969) ((2893 . 5625) (+ 4611686018427387905 631629065) -> 4611686019059016970) ((2894 . 5625) (+ 4611686018427387905 631629066) -> 4611686019059016971) ((2895 . 5625) (+ 4611686018427387905 631629067) -> 4611686019059016972) ((2896 . 5625) (+ 4611686018427387906 631629063) -> 4611686019059016969) ((2897 . 5625) (+ 4611686018427387906 631629064) -> 4611686019059016970) ((2898 . 5625) (+ 4611686018427387906 631629065) -> 4611686019059016971) ((2899 . 5625) (+ 4611686018427387906 631629066) -> 4611686019059016972) ((2900 . 5625) (+ 4611686018427387906 631629067) -> 4611686019059016973) ((2901 . 5625) (+ 4611686018427387902 9007199254740990) -> 4620693217682128892) ((2902 . 5625) (+ 4611686018427387902 9007199254740991) -> 4620693217682128893) ((2903 . 5625) (+ 4611686018427387902 9007199254740992) -> 4620693217682128894) ((2904 . 5625) (+ 4611686018427387902 9007199254740993) -> 4620693217682128895) ((2905 . 5625) (+ 4611686018427387902 9007199254740994) -> 4620693217682128896) ((2906 . 5625) (+ 4611686018427387903 9007199254740990) -> 4620693217682128893) ((2907 . 5625) (+ 4611686018427387903 9007199254740991) -> 4620693217682128894) ((2908 . 5625) (+ 4611686018427387903 9007199254740992) -> 4620693217682128895) ((2909 . 5625) (+ 4611686018427387903 9007199254740993) -> 4620693217682128896) ((2910 . 5625) (+ 4611686018427387903 9007199254740994) -> 4620693217682128897) ((2911 . 5625) (+ 4611686018427387904 9007199254740990) -> 4620693217682128894) ((2912 . 5625) (+ 4611686018427387904 9007199254740991) -> 4620693217682128895) ((2913 . 5625) (+ 4611686018427387904 9007199254740992) -> 4620693217682128896) ((2914 . 5625) (+ 4611686018427387904 9007199254740993) -> 4620693217682128897) ((2915 . 5625) (+ 4611686018427387904 9007199254740994) -> 4620693217682128898) ((2916 . 5625) (+ 4611686018427387905 9007199254740990) -> 4620693217682128895) ((2917 . 5625) (+ 4611686018427387905 9007199254740991) -> 4620693217682128896) ((2918 . 5625) (+ 4611686018427387905 9007199254740992) -> 4620693217682128897) ((2919 . 5625) (+ 4611686018427387905 9007199254740993) -> 4620693217682128898) ((2920 . 5625) (+ 4611686018427387905 9007199254740994) -> 4620693217682128899) ((2921 . 5625) (+ 4611686018427387906 9007199254740990) -> 4620693217682128896) ((2922 . 5625) (+ 4611686018427387906 9007199254740991) -> 4620693217682128897) ((2923 . 5625) (+ 4611686018427387906 9007199254740992) -> 4620693217682128898) ((2924 . 5625) (+ 4611686018427387906 9007199254740993) -> 4620693217682128899) ((2925 . 5625) (+ 4611686018427387906 9007199254740994) -> 4620693217682128900) ((2926 . 5625) (+ 4611686018427387902 -9007199254740994) -> 4602678819172646908) ((2927 . 5625) (+ 4611686018427387902 -9007199254740993) -> 4602678819172646909) ((2928 . 5625) (+ 4611686018427387902 -9007199254740992) -> 4602678819172646910) ((2929 . 5625) (+ 4611686018427387902 -9007199254740991) -> 4602678819172646911) ((2930 . 5625) (+ 4611686018427387902 -9007199254740990) -> 4602678819172646912) ((2931 . 5625) (+ 4611686018427387903 -9007199254740994) -> 4602678819172646909) ((2932 . 5625) (+ 4611686018427387903 -9007199254740993) -> 4602678819172646910) ((2933 . 5625) (+ 4611686018427387903 -9007199254740992) -> 4602678819172646911) ((2934 . 5625) (+ 4611686018427387903 -9007199254740991) -> 4602678819172646912) ((2935 . 5625) (+ 4611686018427387903 -9007199254740990) -> 4602678819172646913) ((2936 . 5625) (+ 4611686018427387904 -9007199254740994) -> 4602678819172646910) ((2937 . 5625) (+ 4611686018427387904 -9007199254740993) -> 4602678819172646911) ((2938 . 5625) (+ 4611686018427387904 -9007199254740992) -> 4602678819172646912) ((2939 . 5625) (+ 4611686018427387904 -9007199254740991) -> 4602678819172646913) ((2940 . 5625) (+ 4611686018427387904 -9007199254740990) -> 4602678819172646914) ((2941 . 5625) (+ 4611686018427387905 -9007199254740994) -> 4602678819172646911) ((2942 . 5625) (+ 4611686018427387905 -9007199254740993) -> 4602678819172646912) ((2943 . 5625) (+ 4611686018427387905 -9007199254740992) -> 4602678819172646913) ((2944 . 5625) (+ 4611686018427387905 -9007199254740991) -> 4602678819172646914) ((2945 . 5625) (+ 4611686018427387905 -9007199254740990) -> 4602678819172646915) ((2946 . 5625) (+ 4611686018427387906 -9007199254740994) -> 4602678819172646912) ((2947 . 5625) (+ 4611686018427387906 -9007199254740993) -> 4602678819172646913) ((2948 . 5625) (+ 4611686018427387906 -9007199254740992) -> 4602678819172646914) ((2949 . 5625) (+ 4611686018427387906 -9007199254740991) -> 4602678819172646915) ((2950 . 5625) (+ 4611686018427387906 -9007199254740990) -> 4602678819172646916) ((2951 . 5625) (+ 4611686018427387902 12343) -> 4611686018427400245) ((2952 . 5625) (+ 4611686018427387902 12344) -> 4611686018427400246) ((2953 . 5625) (+ 4611686018427387902 12345) -> 4611686018427400247) ((2954 . 5625) (+ 4611686018427387902 12346) -> 4611686018427400248) ((2955 . 5625) (+ 4611686018427387902 12347) -> 4611686018427400249) ((2956 . 5625) (+ 4611686018427387903 12343) -> 4611686018427400246) ((2957 . 5625) (+ 4611686018427387903 12344) -> 4611686018427400247) ((2958 . 5625) (+ 4611686018427387903 12345) -> 4611686018427400248) ((2959 . 5625) (+ 4611686018427387903 12346) -> 4611686018427400249) ((2960 . 5625) (+ 4611686018427387903 12347) -> 4611686018427400250) ((2961 . 5625) (+ 4611686018427387904 12343) -> 4611686018427400247) ((2962 . 5625) (+ 4611686018427387904 12344) -> 4611686018427400248) ((2963 . 5625) (+ 4611686018427387904 12345) -> 4611686018427400249) ((2964 . 5625) (+ 4611686018427387904 12346) -> 4611686018427400250) ((2965 . 5625) (+ 4611686018427387904 12347) -> 4611686018427400251) ((2966 . 5625) (+ 4611686018427387905 12343) -> 4611686018427400248) ((2967 . 5625) (+ 4611686018427387905 12344) -> 4611686018427400249) ((2968 . 5625) (+ 4611686018427387905 12345) -> 4611686018427400250) ((2969 . 5625) (+ 4611686018427387905 12346) -> 4611686018427400251) ((2970 . 5625) (+ 4611686018427387905 12347) -> 4611686018427400252) ((2971 . 5625) (+ 4611686018427387906 12343) -> 4611686018427400249) ((2972 . 5625) (+ 4611686018427387906 12344) -> 4611686018427400250) ((2973 . 5625) (+ 4611686018427387906 12345) -> 4611686018427400251) ((2974 . 5625) (+ 4611686018427387906 12346) -> 4611686018427400252) ((2975 . 5625) (+ 4611686018427387906 12347) -> 4611686018427400253) ((2976 . 5625) (+ 4611686018427387902 4294967294) -> 4611686022722355196) ((2977 . 5625) (+ 4611686018427387902 4294967295) -> 4611686022722355197) ((2978 . 5625) (+ 4611686018427387902 4294967296) -> 4611686022722355198) ((2979 . 5625) (+ 4611686018427387902 4294967297) -> 4611686022722355199) ((2980 . 5625) (+ 4611686018427387902 4294967298) -> 4611686022722355200) ((2981 . 5625) (+ 4611686018427387903 4294967294) -> 4611686022722355197) ((2982 . 5625) (+ 4611686018427387903 4294967295) -> 4611686022722355198) ((2983 . 5625) (+ 4611686018427387903 4294967296) -> 4611686022722355199) ((2984 . 5625) (+ 4611686018427387903 4294967297) -> 4611686022722355200) ((2985 . 5625) (+ 4611686018427387903 4294967298) -> 4611686022722355201) ((2986 . 5625) (+ 4611686018427387904 4294967294) -> 4611686022722355198) ((2987 . 5625) (+ 4611686018427387904 4294967295) -> 4611686022722355199) ((2988 . 5625) (+ 4611686018427387904 4294967296) -> 4611686022722355200) ((2989 . 5625) (+ 4611686018427387904 4294967297) -> 4611686022722355201) ((2990 . 5625) (+ 4611686018427387904 4294967298) -> 4611686022722355202) ((2991 . 5625) (+ 4611686018427387905 4294967294) -> 4611686022722355199) ((2992 . 5625) (+ 4611686018427387905 4294967295) -> 4611686022722355200) ((2993 . 5625) (+ 4611686018427387905 4294967296) -> 4611686022722355201) ((2994 . 5625) (+ 4611686018427387905 4294967297) -> 4611686022722355202) ((2995 . 5625) (+ 4611686018427387905 4294967298) -> 4611686022722355203) ((2996 . 5625) (+ 4611686018427387906 4294967294) -> 4611686022722355200) ((2997 . 5625) (+ 4611686018427387906 4294967295) -> 4611686022722355201) ((2998 . 5625) (+ 4611686018427387906 4294967296) -> 4611686022722355202) ((2999 . 5625) (+ 4611686018427387906 4294967297) -> 4611686022722355203) ((3000 . 5625) (+ 4611686018427387906 4294967298) -> 4611686022722355204) ((3001 . 5625) (+ -4611686018427387907 -2) -> -4611686018427387909) ((3002 . 5625) (+ -4611686018427387907 -1) -> -4611686018427387908) ((3003 . 5625) (+ -4611686018427387907 0) -> -4611686018427387907) ((3004 . 5625) (+ -4611686018427387907 1) -> -4611686018427387906) ((3005 . 5625) (+ -4611686018427387907 2) -> -4611686018427387905) ((3006 . 5625) (+ -4611686018427387906 -2) -> -4611686018427387908) ((3007 . 5625) (+ -4611686018427387906 -1) -> -4611686018427387907) ((3008 . 5625) (+ -4611686018427387906 0) -> -4611686018427387906) ((3009 . 5625) (+ -4611686018427387906 1) -> -4611686018427387905) ((3010 . 5625) (+ -4611686018427387906 2) -> -4611686018427387904) ((3011 . 5625) (+ -4611686018427387905 -2) -> -4611686018427387907) ((3012 . 5625) (+ -4611686018427387905 -1) -> -4611686018427387906) ((3013 . 5625) (+ -4611686018427387905 0) -> -4611686018427387905) ((3014 . 5625) (+ -4611686018427387905 1) -> -4611686018427387904) ((3015 . 5625) (+ -4611686018427387905 2) -> -4611686018427387903) ((3016 . 5625) (+ -4611686018427387904 -2) -> -4611686018427387906) ((3017 . 5625) (+ -4611686018427387904 -1) -> -4611686018427387905) ((3018 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((3019 . 5625) (+ -4611686018427387904 1) -> -4611686018427387903) ((3020 . 5625) (+ -4611686018427387904 2) -> -4611686018427387902) ((3021 . 5625) (+ -4611686018427387903 -2) -> -4611686018427387905) ((3022 . 5625) (+ -4611686018427387903 -1) -> -4611686018427387904) ((3023 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((3024 . 5625) (+ -4611686018427387903 1) -> -4611686018427387902) ((3025 . 5625) (+ -4611686018427387903 2) -> -4611686018427387901) ((3026 . 5625) (+ -4611686018427387907 -1) -> -4611686018427387908) ((3027 . 5625) (+ -4611686018427387907 0) -> -4611686018427387907) ((3028 . 5625) (+ -4611686018427387907 1) -> -4611686018427387906) ((3029 . 5625) (+ -4611686018427387907 2) -> -4611686018427387905) ((3030 . 5625) (+ -4611686018427387907 3) -> -4611686018427387904) ((3031 . 5625) (+ -4611686018427387906 -1) -> -4611686018427387907) ((3032 . 5625) (+ -4611686018427387906 0) -> -4611686018427387906) ((3033 . 5625) (+ -4611686018427387906 1) -> -4611686018427387905) ((3034 . 5625) (+ -4611686018427387906 2) -> -4611686018427387904) ((3035 . 5625) (+ -4611686018427387906 3) -> -4611686018427387903) ((3036 . 5625) (+ -4611686018427387905 -1) -> -4611686018427387906) ((3037 . 5625) (+ -4611686018427387905 0) -> -4611686018427387905) ((3038 . 5625) (+ -4611686018427387905 1) -> -4611686018427387904) ((3039 . 5625) (+ -4611686018427387905 2) -> -4611686018427387903) ((3040 . 5625) (+ -4611686018427387905 3) -> -4611686018427387902) ((3041 . 5625) (+ -4611686018427387904 -1) -> -4611686018427387905) ((3042 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((3043 . 5625) (+ -4611686018427387904 1) -> -4611686018427387903) ((3044 . 5625) (+ -4611686018427387904 2) -> -4611686018427387902) ((3045 . 5625) (+ -4611686018427387904 3) -> -4611686018427387901) ((3046 . 5625) (+ -4611686018427387903 -1) -> -4611686018427387904) ((3047 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((3048 . 5625) (+ -4611686018427387903 1) -> -4611686018427387902) ((3049 . 5625) (+ -4611686018427387903 2) -> -4611686018427387901) ((3050 . 5625) (+ -4611686018427387903 3) -> -4611686018427387900) ((3051 . 5625) (+ -4611686018427387907 -3) -> -4611686018427387910) ((3052 . 5625) (+ -4611686018427387907 -2) -> -4611686018427387909) ((3053 . 5625) (+ -4611686018427387907 -1) -> -4611686018427387908) ((3054 . 5625) (+ -4611686018427387907 0) -> -4611686018427387907) ((3055 . 5625) (+ -4611686018427387907 1) -> -4611686018427387906) ((3056 . 5625) (+ -4611686018427387906 -3) -> -4611686018427387909) ((3057 . 5625) (+ -4611686018427387906 -2) -> -4611686018427387908) ((3058 . 5625) (+ -4611686018427387906 -1) -> -4611686018427387907) ((3059 . 5625) (+ -4611686018427387906 0) -> -4611686018427387906) ((3060 . 5625) (+ -4611686018427387906 1) -> -4611686018427387905) ((3061 . 5625) (+ -4611686018427387905 -3) -> -4611686018427387908) ((3062 . 5625) (+ -4611686018427387905 -2) -> -4611686018427387907) ((3063 . 5625) (+ -4611686018427387905 -1) -> -4611686018427387906) ((3064 . 5625) (+ -4611686018427387905 0) -> -4611686018427387905) ((3065 . 5625) (+ -4611686018427387905 1) -> -4611686018427387904) ((3066 . 5625) (+ -4611686018427387904 -3) -> -4611686018427387907) ((3067 . 5625) (+ -4611686018427387904 -2) -> -4611686018427387906) ((3068 . 5625) (+ -4611686018427387904 -1) -> -4611686018427387905) ((3069 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((3070 . 5625) (+ -4611686018427387904 1) -> -4611686018427387903) ((3071 . 5625) (+ -4611686018427387903 -3) -> -4611686018427387906) ((3072 . 5625) (+ -4611686018427387903 -2) -> -4611686018427387905) ((3073 . 5625) (+ -4611686018427387903 -1) -> -4611686018427387904) ((3074 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((3075 . 5625) (+ -4611686018427387903 1) -> -4611686018427387902) ((3076 . 5625) (+ -4611686018427387907 0) -> -4611686018427387907) ((3077 . 5625) (+ -4611686018427387907 1) -> -4611686018427387906) ((3078 . 5625) (+ -4611686018427387907 2) -> -4611686018427387905) ((3079 . 5625) (+ -4611686018427387907 3) -> -4611686018427387904) ((3080 . 5625) (+ -4611686018427387907 4) -> -4611686018427387903) ((3081 . 5625) (+ -4611686018427387906 0) -> -4611686018427387906) ((3082 . 5625) (+ -4611686018427387906 1) -> -4611686018427387905) ((3083 . 5625) (+ -4611686018427387906 2) -> -4611686018427387904) ((3084 . 5625) (+ -4611686018427387906 3) -> -4611686018427387903) ((3085 . 5625) (+ -4611686018427387906 4) -> -4611686018427387902) ((3086 . 5625) (+ -4611686018427387905 0) -> -4611686018427387905) ((3087 . 5625) (+ -4611686018427387905 1) -> -4611686018427387904) ((3088 . 5625) (+ -4611686018427387905 2) -> -4611686018427387903) ((3089 . 5625) (+ -4611686018427387905 3) -> -4611686018427387902) ((3090 . 5625) (+ -4611686018427387905 4) -> -4611686018427387901) ((3091 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((3092 . 5625) (+ -4611686018427387904 1) -> -4611686018427387903) ((3093 . 5625) (+ -4611686018427387904 2) -> -4611686018427387902) ((3094 . 5625) (+ -4611686018427387904 3) -> -4611686018427387901) ((3095 . 5625) (+ -4611686018427387904 4) -> -4611686018427387900) ((3096 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((3097 . 5625) (+ -4611686018427387903 1) -> -4611686018427387902) ((3098 . 5625) (+ -4611686018427387903 2) -> -4611686018427387901) ((3099 . 5625) (+ -4611686018427387903 3) -> -4611686018427387900) ((3100 . 5625) (+ -4611686018427387903 4) -> -4611686018427387899) ((3101 . 5625) (+ -4611686018427387907 -4) -> -4611686018427387911) ((3102 . 5625) (+ -4611686018427387907 -3) -> -4611686018427387910) ((3103 . 5625) (+ -4611686018427387907 -2) -> -4611686018427387909) ((3104 . 5625) (+ -4611686018427387907 -1) -> -4611686018427387908) ((3105 . 5625) (+ -4611686018427387907 0) -> -4611686018427387907) ((3106 . 5625) (+ -4611686018427387906 -4) -> -4611686018427387910) ((3107 . 5625) (+ -4611686018427387906 -3) -> -4611686018427387909) ((3108 . 5625) (+ -4611686018427387906 -2) -> -4611686018427387908) ((3109 . 5625) (+ -4611686018427387906 -1) -> -4611686018427387907) ((3110 . 5625) (+ -4611686018427387906 0) -> -4611686018427387906) ((3111 . 5625) (+ -4611686018427387905 -4) -> -4611686018427387909) ((3112 . 5625) (+ -4611686018427387905 -3) -> -4611686018427387908) ((3113 . 5625) (+ -4611686018427387905 -2) -> -4611686018427387907) ((3114 . 5625) (+ -4611686018427387905 -1) -> -4611686018427387906) ((3115 . 5625) (+ -4611686018427387905 0) -> -4611686018427387905) ((3116 . 5625) (+ -4611686018427387904 -4) -> -4611686018427387908) ((3117 . 5625) (+ -4611686018427387904 -3) -> -4611686018427387907) ((3118 . 5625) (+ -4611686018427387904 -2) -> -4611686018427387906) ((3119 . 5625) (+ -4611686018427387904 -1) -> -4611686018427387905) ((3120 . 5625) (+ -4611686018427387904 0) -> -4611686018427387904) ((3121 . 5625) (+ -4611686018427387903 -4) -> -4611686018427387907) ((3122 . 5625) (+ -4611686018427387903 -3) -> -4611686018427387906) ((3123 . 5625) (+ -4611686018427387903 -2) -> -4611686018427387905) ((3124 . 5625) (+ -4611686018427387903 -1) -> -4611686018427387904) ((3125 . 5625) (+ -4611686018427387903 0) -> -4611686018427387903) ((3126 . 5625) (+ -4611686018427387907 4611686018427387901) -> -6) ((3127 . 5625) (+ -4611686018427387907 4611686018427387902) -> -5) ((3128 . 5625) (+ -4611686018427387907 4611686018427387903) -> -4) ((3129 . 5625) (+ -4611686018427387907 4611686018427387904) -> -3) ((3130 . 5625) (+ -4611686018427387907 4611686018427387905) -> -2) ((3131 . 5625) (+ -4611686018427387906 4611686018427387901) -> -5) ((3132 . 5625) (+ -4611686018427387906 4611686018427387902) -> -4) ((3133 . 5625) (+ -4611686018427387906 4611686018427387903) -> -3) ((3134 . 5625) (+ -4611686018427387906 4611686018427387904) -> -2) ((3135 . 5625) (+ -4611686018427387906 4611686018427387905) -> -1) ((3136 . 5625) (+ -4611686018427387905 4611686018427387901) -> -4) ((3137 . 5625) (+ -4611686018427387905 4611686018427387902) -> -3) ((3138 . 5625) (+ -4611686018427387905 4611686018427387903) -> -2) ((3139 . 5625) (+ -4611686018427387905 4611686018427387904) -> -1) ((3140 . 5625) (+ -4611686018427387905 4611686018427387905) -> 0) ((3141 . 5625) (+ -4611686018427387904 4611686018427387901) -> -3) ((3142 . 5625) (+ -4611686018427387904 4611686018427387902) -> -2) ((3143 . 5625) (+ -4611686018427387904 4611686018427387903) -> -1) ((3144 . 5625) (+ -4611686018427387904 4611686018427387904) -> 0) ((3145 . 5625) (+ -4611686018427387904 4611686018427387905) -> 1) ((3146 . 5625) (+ -4611686018427387903 4611686018427387901) -> -2) ((3147 . 5625) (+ -4611686018427387903 4611686018427387902) -> -1) ((3148 . 5625) (+ -4611686018427387903 4611686018427387903) -> 0) ((3149 . 5625) (+ -4611686018427387903 4611686018427387904) -> 1) ((3150 . 5625) (+ -4611686018427387903 4611686018427387905) -> 2) ((3151 . 5625) (+ -4611686018427387907 -4611686018427387906) -> -9223372036854775813) ((3152 . 5625) (+ -4611686018427387907 -4611686018427387905) -> -9223372036854775812) ((3153 . 5625) (+ -4611686018427387907 -4611686018427387904) -> -9223372036854775811) ((3154 . 5625) (+ -4611686018427387907 -4611686018427387903) -> -9223372036854775810) ((3155 . 5625) (+ -4611686018427387907 -4611686018427387902) -> -9223372036854775809) ((3156 . 5625) (+ -4611686018427387906 -4611686018427387906) -> -9223372036854775812) ((3157 . 5625) (+ -4611686018427387906 -4611686018427387905) -> -9223372036854775811) ((3158 . 5625) (+ -4611686018427387906 -4611686018427387904) -> -9223372036854775810) ((3159 . 5625) (+ -4611686018427387906 -4611686018427387903) -> -9223372036854775809) ((3160 . 5625) (+ -4611686018427387906 -4611686018427387902) -> -9223372036854775808) ((3161 . 5625) (+ -4611686018427387905 -4611686018427387906) -> -9223372036854775811) ((3162 . 5625) (+ -4611686018427387905 -4611686018427387905) -> -9223372036854775810) ((3163 . 5625) (+ -4611686018427387905 -4611686018427387904) -> -9223372036854775809) ((3164 . 5625) (+ -4611686018427387905 -4611686018427387903) -> -9223372036854775808) ((3165 . 5625) (+ -4611686018427387905 -4611686018427387902) -> -9223372036854775807) ((3166 . 5625) (+ -4611686018427387904 -4611686018427387906) -> -9223372036854775810) ((3167 . 5625) (+ -4611686018427387904 -4611686018427387905) -> -9223372036854775809) ((3168 . 5625) (+ -4611686018427387904 -4611686018427387904) -> -9223372036854775808) ((3169 . 5625) (+ -4611686018427387904 -4611686018427387903) -> -9223372036854775807) ((3170 . 5625) (+ -4611686018427387904 -4611686018427387902) -> -9223372036854775806) ((3171 . 5625) (+ -4611686018427387903 -4611686018427387906) -> -9223372036854775809) ((3172 . 5625) (+ -4611686018427387903 -4611686018427387905) -> -9223372036854775808) ((3173 . 5625) (+ -4611686018427387903 -4611686018427387904) -> -9223372036854775807) ((3174 . 5625) (+ -4611686018427387903 -4611686018427387903) -> -9223372036854775806) ((3175 . 5625) (+ -4611686018427387903 -4611686018427387902) -> -9223372036854775805) ((3176 . 5625) (+ -4611686018427387907 4611686018427387902) -> -5) ((3177 . 5625) (+ -4611686018427387907 4611686018427387903) -> -4) ((3178 . 5625) (+ -4611686018427387907 4611686018427387904) -> -3) ((3179 . 5625) (+ -4611686018427387907 4611686018427387905) -> -2) ((3180 . 5625) (+ -4611686018427387907 4611686018427387906) -> -1) ((3181 . 5625) (+ -4611686018427387906 4611686018427387902) -> -4) ((3182 . 5625) (+ -4611686018427387906 4611686018427387903) -> -3) ((3183 . 5625) (+ -4611686018427387906 4611686018427387904) -> -2) ((3184 . 5625) (+ -4611686018427387906 4611686018427387905) -> -1) ((3185 . 5625) (+ -4611686018427387906 4611686018427387906) -> 0) ((3186 . 5625) (+ -4611686018427387905 4611686018427387902) -> -3) ((3187 . 5625) (+ -4611686018427387905 4611686018427387903) -> -2) ((3188 . 5625) (+ -4611686018427387905 4611686018427387904) -> -1) ((3189 . 5625) (+ -4611686018427387905 4611686018427387905) -> 0) ((3190 . 5625) (+ -4611686018427387905 4611686018427387906) -> 1) ((3191 . 5625) (+ -4611686018427387904 4611686018427387902) -> -2) ((3192 . 5625) (+ -4611686018427387904 4611686018427387903) -> -1) ((3193 . 5625) (+ -4611686018427387904 4611686018427387904) -> 0) ((3194 . 5625) (+ -4611686018427387904 4611686018427387905) -> 1) ((3195 . 5625) (+ -4611686018427387904 4611686018427387906) -> 2) ((3196 . 5625) (+ -4611686018427387903 4611686018427387902) -> -1) ((3197 . 5625) (+ -4611686018427387903 4611686018427387903) -> 0) ((3198 . 5625) (+ -4611686018427387903 4611686018427387904) -> 1) ((3199 . 5625) (+ -4611686018427387903 4611686018427387905) -> 2) ((3200 . 5625) (+ -4611686018427387903 4611686018427387906) -> 3) ((3201 . 5625) (+ -4611686018427387907 -4611686018427387907) -> -9223372036854775814) ((3202 . 5625) (+ -4611686018427387907 -4611686018427387906) -> -9223372036854775813) ((3203 . 5625) (+ -4611686018427387907 -4611686018427387905) -> -9223372036854775812) ((3204 . 5625) (+ -4611686018427387907 -4611686018427387904) -> -9223372036854775811) ((3205 . 5625) (+ -4611686018427387907 -4611686018427387903) -> -9223372036854775810) ((3206 . 5625) (+ -4611686018427387906 -4611686018427387907) -> -9223372036854775813) ((3207 . 5625) (+ -4611686018427387906 -4611686018427387906) -> -9223372036854775812) ((3208 . 5625) (+ -4611686018427387906 -4611686018427387905) -> -9223372036854775811) ((3209 . 5625) (+ -4611686018427387906 -4611686018427387904) -> -9223372036854775810) ((3210 . 5625) (+ -4611686018427387906 -4611686018427387903) -> -9223372036854775809) ((3211 . 5625) (+ -4611686018427387905 -4611686018427387907) -> -9223372036854775812) ((3212 . 5625) (+ -4611686018427387905 -4611686018427387906) -> -9223372036854775811) ((3213 . 5625) (+ -4611686018427387905 -4611686018427387905) -> -9223372036854775810) ((3214 . 5625) (+ -4611686018427387905 -4611686018427387904) -> -9223372036854775809) ((3215 . 5625) (+ -4611686018427387905 -4611686018427387903) -> -9223372036854775808) ((3216 . 5625) (+ -4611686018427387904 -4611686018427387907) -> -9223372036854775811) ((3217 . 5625) (+ -4611686018427387904 -4611686018427387906) -> -9223372036854775810) ((3218 . 5625) (+ -4611686018427387904 -4611686018427387905) -> -9223372036854775809) ((3219 . 5625) (+ -4611686018427387904 -4611686018427387904) -> -9223372036854775808) ((3220 . 5625) (+ -4611686018427387904 -4611686018427387903) -> -9223372036854775807) ((3221 . 5625) (+ -4611686018427387903 -4611686018427387907) -> -9223372036854775810) ((3222 . 5625) (+ -4611686018427387903 -4611686018427387906) -> -9223372036854775809) ((3223 . 5625) (+ -4611686018427387903 -4611686018427387905) -> -9223372036854775808) ((3224 . 5625) (+ -4611686018427387903 -4611686018427387904) -> -9223372036854775807) ((3225 . 5625) (+ -4611686018427387903 -4611686018427387903) -> -9223372036854775806) ((3226 . 5625) (+ -4611686018427387907 1103515243) -> -4611686017323872664) ((3227 . 5625) (+ -4611686018427387907 1103515244) -> -4611686017323872663) ((3228 . 5625) (+ -4611686018427387907 1103515245) -> -4611686017323872662) ((3229 . 5625) (+ -4611686018427387907 1103515246) -> -4611686017323872661) ((3230 . 5625) (+ -4611686018427387907 1103515247) -> -4611686017323872660) ((3231 . 5625) (+ -4611686018427387906 1103515243) -> -4611686017323872663) ((3232 . 5625) (+ -4611686018427387906 1103515244) -> -4611686017323872662) ((3233 . 5625) (+ -4611686018427387906 1103515245) -> -4611686017323872661) ((3234 . 5625) (+ -4611686018427387906 1103515246) -> -4611686017323872660) ((3235 . 5625) (+ -4611686018427387906 1103515247) -> -4611686017323872659) ((3236 . 5625) (+ -4611686018427387905 1103515243) -> -4611686017323872662) ((3237 . 5625) (+ -4611686018427387905 1103515244) -> -4611686017323872661) ((3238 . 5625) (+ -4611686018427387905 1103515245) -> -4611686017323872660) ((3239 . 5625) (+ -4611686018427387905 1103515246) -> -4611686017323872659) ((3240 . 5625) (+ -4611686018427387905 1103515247) -> -4611686017323872658) ((3241 . 5625) (+ -4611686018427387904 1103515243) -> -4611686017323872661) ((3242 . 5625) (+ -4611686018427387904 1103515244) -> -4611686017323872660) ((3243 . 5625) (+ -4611686018427387904 1103515245) -> -4611686017323872659) ((3244 . 5625) (+ -4611686018427387904 1103515246) -> -4611686017323872658) ((3245 . 5625) (+ -4611686018427387904 1103515247) -> -4611686017323872657) ((3246 . 5625) (+ -4611686018427387903 1103515243) -> -4611686017323872660) ((3247 . 5625) (+ -4611686018427387903 1103515244) -> -4611686017323872659) ((3248 . 5625) (+ -4611686018427387903 1103515245) -> -4611686017323872658) ((3249 . 5625) (+ -4611686018427387903 1103515246) -> -4611686017323872657) ((3250 . 5625) (+ -4611686018427387903 1103515247) -> -4611686017323872656) ((3251 . 5625) (+ -4611686018427387907 631629063) -> -4611686017795758844) ((3252 . 5625) (+ -4611686018427387907 631629064) -> -4611686017795758843) ((3253 . 5625) (+ -4611686018427387907 631629065) -> -4611686017795758842) ((3254 . 5625) (+ -4611686018427387907 631629066) -> -4611686017795758841) ((3255 . 5625) (+ -4611686018427387907 631629067) -> -4611686017795758840) ((3256 . 5625) (+ -4611686018427387906 631629063) -> -4611686017795758843) ((3257 . 5625) (+ -4611686018427387906 631629064) -> -4611686017795758842) ((3258 . 5625) (+ -4611686018427387906 631629065) -> -4611686017795758841) ((3259 . 5625) (+ -4611686018427387906 631629066) -> -4611686017795758840) ((3260 . 5625) (+ -4611686018427387906 631629067) -> -4611686017795758839) ((3261 . 5625) (+ -4611686018427387905 631629063) -> -4611686017795758842) ((3262 . 5625) (+ -4611686018427387905 631629064) -> -4611686017795758841) ((3263 . 5625) (+ -4611686018427387905 631629065) -> -4611686017795758840) ((3264 . 5625) (+ -4611686018427387905 631629066) -> -4611686017795758839) ((3265 . 5625) (+ -4611686018427387905 631629067) -> -4611686017795758838) ((3266 . 5625) (+ -4611686018427387904 631629063) -> -4611686017795758841) ((3267 . 5625) (+ -4611686018427387904 631629064) -> -4611686017795758840) ((3268 . 5625) (+ -4611686018427387904 631629065) -> -4611686017795758839) ((3269 . 5625) (+ -4611686018427387904 631629066) -> -4611686017795758838) ((3270 . 5625) (+ -4611686018427387904 631629067) -> -4611686017795758837) ((3271 . 5625) (+ -4611686018427387903 631629063) -> -4611686017795758840) ((3272 . 5625) (+ -4611686018427387903 631629064) -> -4611686017795758839) ((3273 . 5625) (+ -4611686018427387903 631629065) -> -4611686017795758838) ((3274 . 5625) (+ -4611686018427387903 631629066) -> -4611686017795758837) ((3275 . 5625) (+ -4611686018427387903 631629067) -> -4611686017795758836) ((3276 . 5625) (+ -4611686018427387907 9007199254740990) -> -4602678819172646917) ((3277 . 5625) (+ -4611686018427387907 9007199254740991) -> -4602678819172646916) ((3278 . 5625) (+ -4611686018427387907 9007199254740992) -> -4602678819172646915) ((3279 . 5625) (+ -4611686018427387907 9007199254740993) -> -4602678819172646914) ((3280 . 5625) (+ -4611686018427387907 9007199254740994) -> -4602678819172646913) ((3281 . 5625) (+ -4611686018427387906 9007199254740990) -> -4602678819172646916) ((3282 . 5625) (+ -4611686018427387906 9007199254740991) -> -4602678819172646915) ((3283 . 5625) (+ -4611686018427387906 9007199254740992) -> -4602678819172646914) ((3284 . 5625) (+ -4611686018427387906 9007199254740993) -> -4602678819172646913) ((3285 . 5625) (+ -4611686018427387906 9007199254740994) -> -4602678819172646912) ((3286 . 5625) (+ -4611686018427387905 9007199254740990) -> -4602678819172646915) ((3287 . 5625) (+ -4611686018427387905 9007199254740991) -> -4602678819172646914) ((3288 . 5625) (+ -4611686018427387905 9007199254740992) -> -4602678819172646913) ((3289 . 5625) (+ -4611686018427387905 9007199254740993) -> -4602678819172646912) ((3290 . 5625) (+ -4611686018427387905 9007199254740994) -> -4602678819172646911) ((3291 . 5625) (+ -4611686018427387904 9007199254740990) -> -4602678819172646914) ((3292 . 5625) (+ -4611686018427387904 9007199254740991) -> -4602678819172646913) ((3293 . 5625) (+ -4611686018427387904 9007199254740992) -> -4602678819172646912) ((3294 . 5625) (+ -4611686018427387904 9007199254740993) -> -4602678819172646911) ((3295 . 5625) (+ -4611686018427387904 9007199254740994) -> -4602678819172646910) ((3296 . 5625) (+ -4611686018427387903 9007199254740990) -> -4602678819172646913) ((3297 . 5625) (+ -4611686018427387903 9007199254740991) -> -4602678819172646912) ((3298 . 5625) (+ -4611686018427387903 9007199254740992) -> -4602678819172646911) ((3299 . 5625) (+ -4611686018427387903 9007199254740993) -> -4602678819172646910) ((3300 . 5625) (+ -4611686018427387903 9007199254740994) -> -4602678819172646909) ((3301 . 5625) (+ -4611686018427387907 -9007199254740994) -> -4620693217682128901) ((3302 . 5625) (+ -4611686018427387907 -9007199254740993) -> -4620693217682128900) ((3303 . 5625) (+ -4611686018427387907 -9007199254740992) -> -4620693217682128899) ((3304 . 5625) (+ -4611686018427387907 -9007199254740991) -> -4620693217682128898) ((3305 . 5625) (+ -4611686018427387907 -9007199254740990) -> -4620693217682128897) ((3306 . 5625) (+ -4611686018427387906 -9007199254740994) -> -4620693217682128900) ((3307 . 5625) (+ -4611686018427387906 -9007199254740993) -> -4620693217682128899) ((3308 . 5625) (+ -4611686018427387906 -9007199254740992) -> -4620693217682128898) ((3309 . 5625) (+ -4611686018427387906 -9007199254740991) -> -4620693217682128897) ((3310 . 5625) (+ -4611686018427387906 -9007199254740990) -> -4620693217682128896) ((3311 . 5625) (+ -4611686018427387905 -9007199254740994) -> -4620693217682128899) ((3312 . 5625) (+ -4611686018427387905 -9007199254740993) -> -4620693217682128898) ((3313 . 5625) (+ -4611686018427387905 -9007199254740992) -> -4620693217682128897) ((3314 . 5625) (+ -4611686018427387905 -9007199254740991) -> -4620693217682128896) ((3315 . 5625) (+ -4611686018427387905 -9007199254740990) -> -4620693217682128895) ((3316 . 5625) (+ -4611686018427387904 -9007199254740994) -> -4620693217682128898) ((3317 . 5625) (+ -4611686018427387904 -9007199254740993) -> -4620693217682128897) ((3318 . 5625) (+ -4611686018427387904 -9007199254740992) -> -4620693217682128896) ((3319 . 5625) (+ -4611686018427387904 -9007199254740991) -> -4620693217682128895) ((3320 . 5625) (+ -4611686018427387904 -9007199254740990) -> -4620693217682128894) ((3321 . 5625) (+ -4611686018427387903 -9007199254740994) -> -4620693217682128897) ((3322 . 5625) (+ -4611686018427387903 -9007199254740993) -> -4620693217682128896) ((3323 . 5625) (+ -4611686018427387903 -9007199254740992) -> -4620693217682128895) ((3324 . 5625) (+ -4611686018427387903 -9007199254740991) -> -4620693217682128894) ((3325 . 5625) (+ -4611686018427387903 -9007199254740990) -> -4620693217682128893) ((3326 . 5625) (+ -4611686018427387907 12343) -> -4611686018427375564) ((3327 . 5625) (+ -4611686018427387907 12344) -> -4611686018427375563) ((3328 . 5625) (+ -4611686018427387907 12345) -> -4611686018427375562) ((3329 . 5625) (+ -4611686018427387907 12346) -> -4611686018427375561) ((3330 . 5625) (+ -4611686018427387907 12347) -> -4611686018427375560) ((3331 . 5625) (+ -4611686018427387906 12343) -> -4611686018427375563) ((3332 . 5625) (+ -4611686018427387906 12344) -> -4611686018427375562) ((3333 . 5625) (+ -4611686018427387906 12345) -> -4611686018427375561) ((3334 . 5625) (+ -4611686018427387906 12346) -> -4611686018427375560) ((3335 . 5625) (+ -4611686018427387906 12347) -> -4611686018427375559) ((3336 . 5625) (+ -4611686018427387905 12343) -> -4611686018427375562) ((3337 . 5625) (+ -4611686018427387905 12344) -> -4611686018427375561) ((3338 . 5625) (+ -4611686018427387905 12345) -> -4611686018427375560) ((3339 . 5625) (+ -4611686018427387905 12346) -> -4611686018427375559) ((3340 . 5625) (+ -4611686018427387905 12347) -> -4611686018427375558) ((3341 . 5625) (+ -4611686018427387904 12343) -> -4611686018427375561) ((3342 . 5625) (+ -4611686018427387904 12344) -> -4611686018427375560) ((3343 . 5625) (+ -4611686018427387904 12345) -> -4611686018427375559) ((3344 . 5625) (+ -4611686018427387904 12346) -> -4611686018427375558) ((3345 . 5625) (+ -4611686018427387904 12347) -> -4611686018427375557) ((3346 . 5625) (+ -4611686018427387903 12343) -> -4611686018427375560) ((3347 . 5625) (+ -4611686018427387903 12344) -> -4611686018427375559) ((3348 . 5625) (+ -4611686018427387903 12345) -> -4611686018427375558) ((3349 . 5625) (+ -4611686018427387903 12346) -> -4611686018427375557) ((3350 . 5625) (+ -4611686018427387903 12347) -> -4611686018427375556) ((3351 . 5625) (+ -4611686018427387907 4294967294) -> -4611686014132420613) ((3352 . 5625) (+ -4611686018427387907 4294967295) -> -4611686014132420612) ((3353 . 5625) (+ -4611686018427387907 4294967296) -> -4611686014132420611) ((3354 . 5625) (+ -4611686018427387907 4294967297) -> -4611686014132420610) ((3355 . 5625) (+ -4611686018427387907 4294967298) -> -4611686014132420609) ((3356 . 5625) (+ -4611686018427387906 4294967294) -> -4611686014132420612) ((3357 . 5625) (+ -4611686018427387906 4294967295) -> -4611686014132420611) ((3358 . 5625) (+ -4611686018427387906 4294967296) -> -4611686014132420610) ((3359 . 5625) (+ -4611686018427387906 4294967297) -> -4611686014132420609) ((3360 . 5625) (+ -4611686018427387906 4294967298) -> -4611686014132420608) ((3361 . 5625) (+ -4611686018427387905 4294967294) -> -4611686014132420611) ((3362 . 5625) (+ -4611686018427387905 4294967295) -> -4611686014132420610) ((3363 . 5625) (+ -4611686018427387905 4294967296) -> -4611686014132420609) ((3364 . 5625) (+ -4611686018427387905 4294967297) -> -4611686014132420608) ((3365 . 5625) (+ -4611686018427387905 4294967298) -> -4611686014132420607) ((3366 . 5625) (+ -4611686018427387904 4294967294) -> -4611686014132420610) ((3367 . 5625) (+ -4611686018427387904 4294967295) -> -4611686014132420609) ((3368 . 5625) (+ -4611686018427387904 4294967296) -> -4611686014132420608) ((3369 . 5625) (+ -4611686018427387904 4294967297) -> -4611686014132420607) ((3370 . 5625) (+ -4611686018427387904 4294967298) -> -4611686014132420606) ((3371 . 5625) (+ -4611686018427387903 4294967294) -> -4611686014132420609) ((3372 . 5625) (+ -4611686018427387903 4294967295) -> -4611686014132420608) ((3373 . 5625) (+ -4611686018427387903 4294967296) -> -4611686014132420607) ((3374 . 5625) (+ -4611686018427387903 4294967297) -> -4611686014132420606) ((3375 . 5625) (+ -4611686018427387903 4294967298) -> -4611686014132420605) ((3376 . 5625) (+ 1103515243 -2) -> 1103515241) ((3377 . 5625) (+ 1103515243 -1) -> 1103515242) ((3378 . 5625) (+ 1103515243 0) -> 1103515243) ((3379 . 5625) (+ 1103515243 1) -> 1103515244) ((3380 . 5625) (+ 1103515243 2) -> 1103515245) ((3381 . 5625) (+ 1103515244 -2) -> 1103515242) ((3382 . 5625) (+ 1103515244 -1) -> 1103515243) ((3383 . 5625) (+ 1103515244 0) -> 1103515244) ((3384 . 5625) (+ 1103515244 1) -> 1103515245) ((3385 . 5625) (+ 1103515244 2) -> 1103515246) ((3386 . 5625) (+ 1103515245 -2) -> 1103515243) ((3387 . 5625) (+ 1103515245 -1) -> 1103515244) ((3388 . 5625) (+ 1103515245 0) -> 1103515245) ((3389 . 5625) (+ 1103515245 1) -> 1103515246) ((3390 . 5625) (+ 1103515245 2) -> 1103515247) ((3391 . 5625) (+ 1103515246 -2) -> 1103515244) ((3392 . 5625) (+ 1103515246 -1) -> 1103515245) ((3393 . 5625) (+ 1103515246 0) -> 1103515246) ((3394 . 5625) (+ 1103515246 1) -> 1103515247) ((3395 . 5625) (+ 1103515246 2) -> 1103515248) ((3396 . 5625) (+ 1103515247 -2) -> 1103515245) ((3397 . 5625) (+ 1103515247 -1) -> 1103515246) ((3398 . 5625) (+ 1103515247 0) -> 1103515247) ((3399 . 5625) (+ 1103515247 1) -> 1103515248) ((3400 . 5625) (+ 1103515247 2) -> 1103515249) ((3401 . 5625) (+ 1103515243 -1) -> 1103515242) ((3402 . 5625) (+ 1103515243 0) -> 1103515243) ((3403 . 5625) (+ 1103515243 1) -> 1103515244) ((3404 . 5625) (+ 1103515243 2) -> 1103515245) ((3405 . 5625) (+ 1103515243 3) -> 1103515246) ((3406 . 5625) (+ 1103515244 -1) -> 1103515243) ((3407 . 5625) (+ 1103515244 0) -> 1103515244) ((3408 . 5625) (+ 1103515244 1) -> 1103515245) ((3409 . 5625) (+ 1103515244 2) -> 1103515246) ((3410 . 5625) (+ 1103515244 3) -> 1103515247) ((3411 . 5625) (+ 1103515245 -1) -> 1103515244) ((3412 . 5625) (+ 1103515245 0) -> 1103515245) ((3413 . 5625) (+ 1103515245 1) -> 1103515246) ((3414 . 5625) (+ 1103515245 2) -> 1103515247) ((3415 . 5625) (+ 1103515245 3) -> 1103515248) ((3416 . 5625) (+ 1103515246 -1) -> 1103515245) ((3417 . 5625) (+ 1103515246 0) -> 1103515246) ((3418 . 5625) (+ 1103515246 1) -> 1103515247) ((3419 . 5625) (+ 1103515246 2) -> 1103515248) ((3420 . 5625) (+ 1103515246 3) -> 1103515249) ((3421 . 5625) (+ 1103515247 -1) -> 1103515246) ((3422 . 5625) (+ 1103515247 0) -> 1103515247) ((3423 . 5625) (+ 1103515247 1) -> 1103515248) ((3424 . 5625) (+ 1103515247 2) -> 1103515249) ((3425 . 5625) (+ 1103515247 3) -> 1103515250) ((3426 . 5625) (+ 1103515243 -3) -> 1103515240) ((3427 . 5625) (+ 1103515243 -2) -> 1103515241) ((3428 . 5625) (+ 1103515243 -1) -> 1103515242) ((3429 . 5625) (+ 1103515243 0) -> 1103515243) ((3430 . 5625) (+ 1103515243 1) -> 1103515244) ((3431 . 5625) (+ 1103515244 -3) -> 1103515241) ((3432 . 5625) (+ 1103515244 -2) -> 1103515242) ((3433 . 5625) (+ 1103515244 -1) -> 1103515243) ((3434 . 5625) (+ 1103515244 0) -> 1103515244) ((3435 . 5625) (+ 1103515244 1) -> 1103515245) ((3436 . 5625) (+ 1103515245 -3) -> 1103515242) ((3437 . 5625) (+ 1103515245 -2) -> 1103515243) ((3438 . 5625) (+ 1103515245 -1) -> 1103515244) ((3439 . 5625) (+ 1103515245 0) -> 1103515245) ((3440 . 5625) (+ 1103515245 1) -> 1103515246) ((3441 . 5625) (+ 1103515246 -3) -> 1103515243) ((3442 . 5625) (+ 1103515246 -2) -> 1103515244) ((3443 . 5625) (+ 1103515246 -1) -> 1103515245) ((3444 . 5625) (+ 1103515246 0) -> 1103515246) ((3445 . 5625) (+ 1103515246 1) -> 1103515247) ((3446 . 5625) (+ 1103515247 -3) -> 1103515244) ((3447 . 5625) (+ 1103515247 -2) -> 1103515245) ((3448 . 5625) (+ 1103515247 -1) -> 1103515246) ((3449 . 5625) (+ 1103515247 0) -> 1103515247) ((3450 . 5625) (+ 1103515247 1) -> 1103515248) ((3451 . 5625) (+ 1103515243 0) -> 1103515243) ((3452 . 5625) (+ 1103515243 1) -> 1103515244) ((3453 . 5625) (+ 1103515243 2) -> 1103515245) ((3454 . 5625) (+ 1103515243 3) -> 1103515246) ((3455 . 5625) (+ 1103515243 4) -> 1103515247) ((3456 . 5625) (+ 1103515244 0) -> 1103515244) ((3457 . 5625) (+ 1103515244 1) -> 1103515245) ((3458 . 5625) (+ 1103515244 2) -> 1103515246) ((3459 . 5625) (+ 1103515244 3) -> 1103515247) ((3460 . 5625) (+ 1103515244 4) -> 1103515248) ((3461 . 5625) (+ 1103515245 0) -> 1103515245) ((3462 . 5625) (+ 1103515245 1) -> 1103515246) ((3463 . 5625) (+ 1103515245 2) -> 1103515247) ((3464 . 5625) (+ 1103515245 3) -> 1103515248) ((3465 . 5625) (+ 1103515245 4) -> 1103515249) ((3466 . 5625) (+ 1103515246 0) -> 1103515246) ((3467 . 5625) (+ 1103515246 1) -> 1103515247) ((3468 . 5625) (+ 1103515246 2) -> 1103515248) ((3469 . 5625) (+ 1103515246 3) -> 1103515249) ((3470 . 5625) (+ 1103515246 4) -> 1103515250) ((3471 . 5625) (+ 1103515247 0) -> 1103515247) ((3472 . 5625) (+ 1103515247 1) -> 1103515248) ((3473 . 5625) (+ 1103515247 2) -> 1103515249) ((3474 . 5625) (+ 1103515247 3) -> 1103515250) ((3475 . 5625) (+ 1103515247 4) -> 1103515251) ((3476 . 5625) (+ 1103515243 -4) -> 1103515239) ((3477 . 5625) (+ 1103515243 -3) -> 1103515240) ((3478 . 5625) (+ 1103515243 -2) -> 1103515241) ((3479 . 5625) (+ 1103515243 -1) -> 1103515242) ((3480 . 5625) (+ 1103515243 0) -> 1103515243) ((3481 . 5625) (+ 1103515244 -4) -> 1103515240) ((3482 . 5625) (+ 1103515244 -3) -> 1103515241) ((3483 . 5625) (+ 1103515244 -2) -> 1103515242) ((3484 . 5625) (+ 1103515244 -1) -> 1103515243) ((3485 . 5625) (+ 1103515244 0) -> 1103515244) ((3486 . 5625) (+ 1103515245 -4) -> 1103515241) ((3487 . 5625) (+ 1103515245 -3) -> 1103515242) ((3488 . 5625) (+ 1103515245 -2) -> 1103515243) ((3489 . 5625) (+ 1103515245 -1) -> 1103515244) ((3490 . 5625) (+ 1103515245 0) -> 1103515245) ((3491 . 5625) (+ 1103515246 -4) -> 1103515242) ((3492 . 5625) (+ 1103515246 -3) -> 1103515243) ((3493 . 5625) (+ 1103515246 -2) -> 1103515244) ((3494 . 5625) (+ 1103515246 -1) -> 1103515245) ((3495 . 5625) (+ 1103515246 0) -> 1103515246) ((3496 . 5625) (+ 1103515247 -4) -> 1103515243) ((3497 . 5625) (+ 1103515247 -3) -> 1103515244) ((3498 . 5625) (+ 1103515247 -2) -> 1103515245) ((3499 . 5625) (+ 1103515247 -1) -> 1103515246) ((3500 . 5625) (+ 1103515247 0) -> 1103515247) ((3501 . 5625) (+ 1103515243 4611686018427387901) -> 4611686019530903144) ((3502 . 5625) (+ 1103515243 4611686018427387902) -> 4611686019530903145) ((3503 . 5625) (+ 1103515243 4611686018427387903) -> 4611686019530903146) ((3504 . 5625) (+ 1103515243 4611686018427387904) -> 4611686019530903147) ((3505 . 5625) (+ 1103515243 4611686018427387905) -> 4611686019530903148) ((3506 . 5625) (+ 1103515244 4611686018427387901) -> 4611686019530903145) ((3507 . 5625) (+ 1103515244 4611686018427387902) -> 4611686019530903146) ((3508 . 5625) (+ 1103515244 4611686018427387903) -> 4611686019530903147) ((3509 . 5625) (+ 1103515244 4611686018427387904) -> 4611686019530903148) ((3510 . 5625) (+ 1103515244 4611686018427387905) -> 4611686019530903149) ((3511 . 5625) (+ 1103515245 4611686018427387901) -> 4611686019530903146) ((3512 . 5625) (+ 1103515245 4611686018427387902) -> 4611686019530903147) ((3513 . 5625) (+ 1103515245 4611686018427387903) -> 4611686019530903148) ((3514 . 5625) (+ 1103515245 4611686018427387904) -> 4611686019530903149) ((3515 . 5625) (+ 1103515245 4611686018427387905) -> 4611686019530903150) ((3516 . 5625) (+ 1103515246 4611686018427387901) -> 4611686019530903147) ((3517 . 5625) (+ 1103515246 4611686018427387902) -> 4611686019530903148) ((3518 . 5625) (+ 1103515246 4611686018427387903) -> 4611686019530903149) ((3519 . 5625) (+ 1103515246 4611686018427387904) -> 4611686019530903150) ((3520 . 5625) (+ 1103515246 4611686018427387905) -> 4611686019530903151) ((3521 . 5625) (+ 1103515247 4611686018427387901) -> 4611686019530903148) ((3522 . 5625) (+ 1103515247 4611686018427387902) -> 4611686019530903149) ((3523 . 5625) (+ 1103515247 4611686018427387903) -> 4611686019530903150) ((3524 . 5625) (+ 1103515247 4611686018427387904) -> 4611686019530903151) ((3525 . 5625) (+ 1103515247 4611686018427387905) -> 4611686019530903152) ((3526 . 5625) (+ 1103515243 -4611686018427387906) -> -4611686017323872663) ((3527 . 5625) (+ 1103515243 -4611686018427387905) -> -4611686017323872662) ((3528 . 5625) (+ 1103515243 -4611686018427387904) -> -4611686017323872661) ((3529 . 5625) (+ 1103515243 -4611686018427387903) -> -4611686017323872660) ((3530 . 5625) (+ 1103515243 -4611686018427387902) -> -4611686017323872659) ((3531 . 5625) (+ 1103515244 -4611686018427387906) -> -4611686017323872662) ((3532 . 5625) (+ 1103515244 -4611686018427387905) -> -4611686017323872661) ((3533 . 5625) (+ 1103515244 -4611686018427387904) -> -4611686017323872660) ((3534 . 5625) (+ 1103515244 -4611686018427387903) -> -4611686017323872659) ((3535 . 5625) (+ 1103515244 -4611686018427387902) -> -4611686017323872658) ((3536 . 5625) (+ 1103515245 -4611686018427387906) -> -4611686017323872661) ((3537 . 5625) (+ 1103515245 -4611686018427387905) -> -4611686017323872660) ((3538 . 5625) (+ 1103515245 -4611686018427387904) -> -4611686017323872659) ((3539 . 5625) (+ 1103515245 -4611686018427387903) -> -4611686017323872658) ((3540 . 5625) (+ 1103515245 -4611686018427387902) -> -4611686017323872657) ((3541 . 5625) (+ 1103515246 -4611686018427387906) -> -4611686017323872660) ((3542 . 5625) (+ 1103515246 -4611686018427387905) -> -4611686017323872659) ((3543 . 5625) (+ 1103515246 -4611686018427387904) -> -4611686017323872658) ((3544 . 5625) (+ 1103515246 -4611686018427387903) -> -4611686017323872657) ((3545 . 5625) (+ 1103515246 -4611686018427387902) -> -4611686017323872656) ((3546 . 5625) (+ 1103515247 -4611686018427387906) -> -4611686017323872659) ((3547 . 5625) (+ 1103515247 -4611686018427387905) -> -4611686017323872658) ((3548 . 5625) (+ 1103515247 -4611686018427387904) -> -4611686017323872657) ((3549 . 5625) (+ 1103515247 -4611686018427387903) -> -4611686017323872656) ((3550 . 5625) (+ 1103515247 -4611686018427387902) -> -4611686017323872655) ((3551 . 5625) (+ 1103515243 4611686018427387902) -> 4611686019530903145) ((3552 . 5625) (+ 1103515243 4611686018427387903) -> 4611686019530903146) ((3553 . 5625) (+ 1103515243 4611686018427387904) -> 4611686019530903147) ((3554 . 5625) (+ 1103515243 4611686018427387905) -> 4611686019530903148) ((3555 . 5625) (+ 1103515243 4611686018427387906) -> 4611686019530903149) ((3556 . 5625) (+ 1103515244 4611686018427387902) -> 4611686019530903146) ((3557 . 5625) (+ 1103515244 4611686018427387903) -> 4611686019530903147) ((3558 . 5625) (+ 1103515244 4611686018427387904) -> 4611686019530903148) ((3559 . 5625) (+ 1103515244 4611686018427387905) -> 4611686019530903149) ((3560 . 5625) (+ 1103515244 4611686018427387906) -> 4611686019530903150) ((3561 . 5625) (+ 1103515245 4611686018427387902) -> 4611686019530903147) ((3562 . 5625) (+ 1103515245 4611686018427387903) -> 4611686019530903148) ((3563 . 5625) (+ 1103515245 4611686018427387904) -> 4611686019530903149) ((3564 . 5625) (+ 1103515245 4611686018427387905) -> 4611686019530903150) ((3565 . 5625) (+ 1103515245 4611686018427387906) -> 4611686019530903151) ((3566 . 5625) (+ 1103515246 4611686018427387902) -> 4611686019530903148) ((3567 . 5625) (+ 1103515246 4611686018427387903) -> 4611686019530903149) ((3568 . 5625) (+ 1103515246 4611686018427387904) -> 4611686019530903150) ((3569 . 5625) (+ 1103515246 4611686018427387905) -> 4611686019530903151) ((3570 . 5625) (+ 1103515246 4611686018427387906) -> 4611686019530903152) ((3571 . 5625) (+ 1103515247 4611686018427387902) -> 4611686019530903149) ((3572 . 5625) (+ 1103515247 4611686018427387903) -> 4611686019530903150) ((3573 . 5625) (+ 1103515247 4611686018427387904) -> 4611686019530903151) ((3574 . 5625) (+ 1103515247 4611686018427387905) -> 4611686019530903152) ((3575 . 5625) (+ 1103515247 4611686018427387906) -> 4611686019530903153) ((3576 . 5625) (+ 1103515243 -4611686018427387907) -> -4611686017323872664) ((3577 . 5625) (+ 1103515243 -4611686018427387906) -> -4611686017323872663) ((3578 . 5625) (+ 1103515243 -4611686018427387905) -> -4611686017323872662) ((3579 . 5625) (+ 1103515243 -4611686018427387904) -> -4611686017323872661) ((3580 . 5625) (+ 1103515243 -4611686018427387903) -> -4611686017323872660) ((3581 . 5625) (+ 1103515244 -4611686018427387907) -> -4611686017323872663) ((3582 . 5625) (+ 1103515244 -4611686018427387906) -> -4611686017323872662) ((3583 . 5625) (+ 1103515244 -4611686018427387905) -> -4611686017323872661) ((3584 . 5625) (+ 1103515244 -4611686018427387904) -> -4611686017323872660) ((3585 . 5625) (+ 1103515244 -4611686018427387903) -> -4611686017323872659) ((3586 . 5625) (+ 1103515245 -4611686018427387907) -> -4611686017323872662) ((3587 . 5625) (+ 1103515245 -4611686018427387906) -> -4611686017323872661) ((3588 . 5625) (+ 1103515245 -4611686018427387905) -> -4611686017323872660) ((3589 . 5625) (+ 1103515245 -4611686018427387904) -> -4611686017323872659) ((3590 . 5625) (+ 1103515245 -4611686018427387903) -> -4611686017323872658) ((3591 . 5625) (+ 1103515246 -4611686018427387907) -> -4611686017323872661) ((3592 . 5625) (+ 1103515246 -4611686018427387906) -> -4611686017323872660) ((3593 . 5625) (+ 1103515246 -4611686018427387905) -> -4611686017323872659) ((3594 . 5625) (+ 1103515246 -4611686018427387904) -> -4611686017323872658) ((3595 . 5625) (+ 1103515246 -4611686018427387903) -> -4611686017323872657) ((3596 . 5625) (+ 1103515247 -4611686018427387907) -> -4611686017323872660) ((3597 . 5625) (+ 1103515247 -4611686018427387906) -> -4611686017323872659) ((3598 . 5625) (+ 1103515247 -4611686018427387905) -> -4611686017323872658) ((3599 . 5625) (+ 1103515247 -4611686018427387904) -> -4611686017323872657) ((3600 . 5625) (+ 1103515247 -4611686018427387903) -> -4611686017323872656) ((3601 . 5625) (+ 1103515243 1103515243) -> 2207030486) ((3602 . 5625) (+ 1103515243 1103515244) -> 2207030487) ((3603 . 5625) (+ 1103515243 1103515245) -> 2207030488) ((3604 . 5625) (+ 1103515243 1103515246) -> 2207030489) ((3605 . 5625) (+ 1103515243 1103515247) -> 2207030490) ((3606 . 5625) (+ 1103515244 1103515243) -> 2207030487) ((3607 . 5625) (+ 1103515244 1103515244) -> 2207030488) ((3608 . 5625) (+ 1103515244 1103515245) -> 2207030489) ((3609 . 5625) (+ 1103515244 1103515246) -> 2207030490) ((3610 . 5625) (+ 1103515244 1103515247) -> 2207030491) ((3611 . 5625) (+ 1103515245 1103515243) -> 2207030488) ((3612 . 5625) (+ 1103515245 1103515244) -> 2207030489) ((3613 . 5625) (+ 1103515245 1103515245) -> 2207030490) ((3614 . 5625) (+ 1103515245 1103515246) -> 2207030491) ((3615 . 5625) (+ 1103515245 1103515247) -> 2207030492) ((3616 . 5625) (+ 1103515246 1103515243) -> 2207030489) ((3617 . 5625) (+ 1103515246 1103515244) -> 2207030490) ((3618 . 5625) (+ 1103515246 1103515245) -> 2207030491) ((3619 . 5625) (+ 1103515246 1103515246) -> 2207030492) ((3620 . 5625) (+ 1103515246 1103515247) -> 2207030493) ((3621 . 5625) (+ 1103515247 1103515243) -> 2207030490) ((3622 . 5625) (+ 1103515247 1103515244) -> 2207030491) ((3623 . 5625) (+ 1103515247 1103515245) -> 2207030492) ((3624 . 5625) (+ 1103515247 1103515246) -> 2207030493) ((3625 . 5625) (+ 1103515247 1103515247) -> 2207030494) ((3626 . 5625) (+ 1103515243 631629063) -> 1735144306) ((3627 . 5625) (+ 1103515243 631629064) -> 1735144307) ((3628 . 5625) (+ 1103515243 631629065) -> 1735144308) ((3629 . 5625) (+ 1103515243 631629066) -> 1735144309) ((3630 . 5625) (+ 1103515243 631629067) -> 1735144310) ((3631 . 5625) (+ 1103515244 631629063) -> 1735144307) ((3632 . 5625) (+ 1103515244 631629064) -> 1735144308) ((3633 . 5625) (+ 1103515244 631629065) -> 1735144309) ((3634 . 5625) (+ 1103515244 631629066) -> 1735144310) ((3635 . 5625) (+ 1103515244 631629067) -> 1735144311) ((3636 . 5625) (+ 1103515245 631629063) -> 1735144308) ((3637 . 5625) (+ 1103515245 631629064) -> 1735144309) ((3638 . 5625) (+ 1103515245 631629065) -> 1735144310) ((3639 . 5625) (+ 1103515245 631629066) -> 1735144311) ((3640 . 5625) (+ 1103515245 631629067) -> 1735144312) ((3641 . 5625) (+ 1103515246 631629063) -> 1735144309) ((3642 . 5625) (+ 1103515246 631629064) -> 1735144310) ((3643 . 5625) (+ 1103515246 631629065) -> 1735144311) ((3644 . 5625) (+ 1103515246 631629066) -> 1735144312) ((3645 . 5625) (+ 1103515246 631629067) -> 1735144313) ((3646 . 5625) (+ 1103515247 631629063) -> 1735144310) ((3647 . 5625) (+ 1103515247 631629064) -> 1735144311) ((3648 . 5625) (+ 1103515247 631629065) -> 1735144312) ((3649 . 5625) (+ 1103515247 631629066) -> 1735144313) ((3650 . 5625) (+ 1103515247 631629067) -> 1735144314) ((3651 . 5625) (+ 1103515243 9007199254740990) -> 9007200358256233) ((3652 . 5625) (+ 1103515243 9007199254740991) -> 9007200358256234) ((3653 . 5625) (+ 1103515243 9007199254740992) -> 9007200358256235) ((3654 . 5625) (+ 1103515243 9007199254740993) -> 9007200358256236) ((3655 . 5625) (+ 1103515243 9007199254740994) -> 9007200358256237) ((3656 . 5625) (+ 1103515244 9007199254740990) -> 9007200358256234) ((3657 . 5625) (+ 1103515244 9007199254740991) -> 9007200358256235) ((3658 . 5625) (+ 1103515244 9007199254740992) -> 9007200358256236) ((3659 . 5625) (+ 1103515244 9007199254740993) -> 9007200358256237) ((3660 . 5625) (+ 1103515244 9007199254740994) -> 9007200358256238) ((3661 . 5625) (+ 1103515245 9007199254740990) -> 9007200358256235) ((3662 . 5625) (+ 1103515245 9007199254740991) -> 9007200358256236) ((3663 . 5625) (+ 1103515245 9007199254740992) -> 9007200358256237) ((3664 . 5625) (+ 1103515245 9007199254740993) -> 9007200358256238) ((3665 . 5625) (+ 1103515245 9007199254740994) -> 9007200358256239) ((3666 . 5625) (+ 1103515246 9007199254740990) -> 9007200358256236) ((3667 . 5625) (+ 1103515246 9007199254740991) -> 9007200358256237) ((3668 . 5625) (+ 1103515246 9007199254740992) -> 9007200358256238) ((3669 . 5625) (+ 1103515246 9007199254740993) -> 9007200358256239) ((3670 . 5625) (+ 1103515246 9007199254740994) -> 9007200358256240) ((3671 . 5625) (+ 1103515247 9007199254740990) -> 9007200358256237) ((3672 . 5625) (+ 1103515247 9007199254740991) -> 9007200358256238) ((3673 . 5625) (+ 1103515247 9007199254740992) -> 9007200358256239) ((3674 . 5625) (+ 1103515247 9007199254740993) -> 9007200358256240) ((3675 . 5625) (+ 1103515247 9007199254740994) -> 9007200358256241) ((3676 . 5625) (+ 1103515243 -9007199254740994) -> -9007198151225751) ((3677 . 5625) (+ 1103515243 -9007199254740993) -> -9007198151225750) ((3678 . 5625) (+ 1103515243 -9007199254740992) -> -9007198151225749) ((3679 . 5625) (+ 1103515243 -9007199254740991) -> -9007198151225748) ((3680 . 5625) (+ 1103515243 -9007199254740990) -> -9007198151225747) ((3681 . 5625) (+ 1103515244 -9007199254740994) -> -9007198151225750) ((3682 . 5625) (+ 1103515244 -9007199254740993) -> -9007198151225749) ((3683 . 5625) (+ 1103515244 -9007199254740992) -> -9007198151225748) ((3684 . 5625) (+ 1103515244 -9007199254740991) -> -9007198151225747) ((3685 . 5625) (+ 1103515244 -9007199254740990) -> -9007198151225746) ((3686 . 5625) (+ 1103515245 -9007199254740994) -> -9007198151225749) ((3687 . 5625) (+ 1103515245 -9007199254740993) -> -9007198151225748) ((3688 . 5625) (+ 1103515245 -9007199254740992) -> -9007198151225747) ((3689 . 5625) (+ 1103515245 -9007199254740991) -> -9007198151225746) ((3690 . 5625) (+ 1103515245 -9007199254740990) -> -9007198151225745) ((3691 . 5625) (+ 1103515246 -9007199254740994) -> -9007198151225748) ((3692 . 5625) (+ 1103515246 -9007199254740993) -> -9007198151225747) ((3693 . 5625) (+ 1103515246 -9007199254740992) -> -9007198151225746) ((3694 . 5625) (+ 1103515246 -9007199254740991) -> -9007198151225745) ((3695 . 5625) (+ 1103515246 -9007199254740990) -> -9007198151225744) ((3696 . 5625) (+ 1103515247 -9007199254740994) -> -9007198151225747) ((3697 . 5625) (+ 1103515247 -9007199254740993) -> -9007198151225746) ((3698 . 5625) (+ 1103515247 -9007199254740992) -> -9007198151225745) ((3699 . 5625) (+ 1103515247 -9007199254740991) -> -9007198151225744) ((3700 . 5625) (+ 1103515247 -9007199254740990) -> -9007198151225743) ((3701 . 5625) (+ 1103515243 12343) -> 1103527586) ((3702 . 5625) (+ 1103515243 12344) -> 1103527587) ((3703 . 5625) (+ 1103515243 12345) -> 1103527588) ((3704 . 5625) (+ 1103515243 12346) -> 1103527589) ((3705 . 5625) (+ 1103515243 12347) -> 1103527590) ((3706 . 5625) (+ 1103515244 12343) -> 1103527587) ((3707 . 5625) (+ 1103515244 12344) -> 1103527588) ((3708 . 5625) (+ 1103515244 12345) -> 1103527589) ((3709 . 5625) (+ 1103515244 12346) -> 1103527590) ((3710 . 5625) (+ 1103515244 12347) -> 1103527591) ((3711 . 5625) (+ 1103515245 12343) -> 1103527588) ((3712 . 5625) (+ 1103515245 12344) -> 1103527589) ((3713 . 5625) (+ 1103515245 12345) -> 1103527590) ((3714 . 5625) (+ 1103515245 12346) -> 1103527591) ((3715 . 5625) (+ 1103515245 12347) -> 1103527592) ((3716 . 5625) (+ 1103515246 12343) -> 1103527589) ((3717 . 5625) (+ 1103515246 12344) -> 1103527590) ((3718 . 5625) (+ 1103515246 12345) -> 1103527591) ((3719 . 5625) (+ 1103515246 12346) -> 1103527592) ((3720 . 5625) (+ 1103515246 12347) -> 1103527593) ((3721 . 5625) (+ 1103515247 12343) -> 1103527590) ((3722 . 5625) (+ 1103515247 12344) -> 1103527591) ((3723 . 5625) (+ 1103515247 12345) -> 1103527592) ((3724 . 5625) (+ 1103515247 12346) -> 1103527593) ((3725 . 5625) (+ 1103515247 12347) -> 1103527594) ((3726 . 5625) (+ 1103515243 4294967294) -> 5398482537) ((3727 . 5625) (+ 1103515243 4294967295) -> 5398482538) ((3728 . 5625) (+ 1103515243 4294967296) -> 5398482539) ((3729 . 5625) (+ 1103515243 4294967297) -> 5398482540) ((3730 . 5625) (+ 1103515243 4294967298) -> 5398482541) ((3731 . 5625) (+ 1103515244 4294967294) -> 5398482538) ((3732 . 5625) (+ 1103515244 4294967295) -> 5398482539) ((3733 . 5625) (+ 1103515244 4294967296) -> 5398482540) ((3734 . 5625) (+ 1103515244 4294967297) -> 5398482541) ((3735 . 5625) (+ 1103515244 4294967298) -> 5398482542) ((3736 . 5625) (+ 1103515245 4294967294) -> 5398482539) ((3737 . 5625) (+ 1103515245 4294967295) -> 5398482540) ((3738 . 5625) (+ 1103515245 4294967296) -> 5398482541) ((3739 . 5625) (+ 1103515245 4294967297) -> 5398482542) ((3740 . 5625) (+ 1103515245 4294967298) -> 5398482543) ((3741 . 5625) (+ 1103515246 4294967294) -> 5398482540) ((3742 . 5625) (+ 1103515246 4294967295) -> 5398482541) ((3743 . 5625) (+ 1103515246 4294967296) -> 5398482542) ((3744 . 5625) (+ 1103515246 4294967297) -> 5398482543) ((3745 . 5625) (+ 1103515246 4294967298) -> 5398482544) ((3746 . 5625) (+ 1103515247 4294967294) -> 5398482541) ((3747 . 5625) (+ 1103515247 4294967295) -> 5398482542) ((3748 . 5625) (+ 1103515247 4294967296) -> 5398482543) ((3749 . 5625) (+ 1103515247 4294967297) -> 5398482544) ((3750 . 5625) (+ 1103515247 4294967298) -> 5398482545) ((3751 . 5625) (+ 631629063 -2) -> 631629061) ((3752 . 5625) (+ 631629063 -1) -> 631629062) ((3753 . 5625) (+ 631629063 0) -> 631629063) ((3754 . 5625) (+ 631629063 1) -> 631629064) ((3755 . 5625) (+ 631629063 2) -> 631629065) ((3756 . 5625) (+ 631629064 -2) -> 631629062) ((3757 . 5625) (+ 631629064 -1) -> 631629063) ((3758 . 5625) (+ 631629064 0) -> 631629064) ((3759 . 5625) (+ 631629064 1) -> 631629065) ((3760 . 5625) (+ 631629064 2) -> 631629066) ((3761 . 5625) (+ 631629065 -2) -> 631629063) ((3762 . 5625) (+ 631629065 -1) -> 631629064) ((3763 . 5625) (+ 631629065 0) -> 631629065) ((3764 . 5625) (+ 631629065 1) -> 631629066) ((3765 . 5625) (+ 631629065 2) -> 631629067) ((3766 . 5625) (+ 631629066 -2) -> 631629064) ((3767 . 5625) (+ 631629066 -1) -> 631629065) ((3768 . 5625) (+ 631629066 0) -> 631629066) ((3769 . 5625) (+ 631629066 1) -> 631629067) ((3770 . 5625) (+ 631629066 2) -> 631629068) ((3771 . 5625) (+ 631629067 -2) -> 631629065) ((3772 . 5625) (+ 631629067 -1) -> 631629066) ((3773 . 5625) (+ 631629067 0) -> 631629067) ((3774 . 5625) (+ 631629067 1) -> 631629068) ((3775 . 5625) (+ 631629067 2) -> 631629069) ((3776 . 5625) (+ 631629063 -1) -> 631629062) ((3777 . 5625) (+ 631629063 0) -> 631629063) ((3778 . 5625) (+ 631629063 1) -> 631629064) ((3779 . 5625) (+ 631629063 2) -> 631629065) ((3780 . 5625) (+ 631629063 3) -> 631629066) ((3781 . 5625) (+ 631629064 -1) -> 631629063) ((3782 . 5625) (+ 631629064 0) -> 631629064) ((3783 . 5625) (+ 631629064 1) -> 631629065) ((3784 . 5625) (+ 631629064 2) -> 631629066) ((3785 . 5625) (+ 631629064 3) -> 631629067) ((3786 . 5625) (+ 631629065 -1) -> 631629064) ((3787 . 5625) (+ 631629065 0) -> 631629065) ((3788 . 5625) (+ 631629065 1) -> 631629066) ((3789 . 5625) (+ 631629065 2) -> 631629067) ((3790 . 5625) (+ 631629065 3) -> 631629068) ((3791 . 5625) (+ 631629066 -1) -> 631629065) ((3792 . 5625) (+ 631629066 0) -> 631629066) ((3793 . 5625) (+ 631629066 1) -> 631629067) ((3794 . 5625) (+ 631629066 2) -> 631629068) ((3795 . 5625) (+ 631629066 3) -> 631629069) ((3796 . 5625) (+ 631629067 -1) -> 631629066) ((3797 . 5625) (+ 631629067 0) -> 631629067) ((3798 . 5625) (+ 631629067 1) -> 631629068) ((3799 . 5625) (+ 631629067 2) -> 631629069) ((3800 . 5625) (+ 631629067 3) -> 631629070) ((3801 . 5625) (+ 631629063 -3) -> 631629060) ((3802 . 5625) (+ 631629063 -2) -> 631629061) ((3803 . 5625) (+ 631629063 -1) -> 631629062) ((3804 . 5625) (+ 631629063 0) -> 631629063) ((3805 . 5625) (+ 631629063 1) -> 631629064) ((3806 . 5625) (+ 631629064 -3) -> 631629061) ((3807 . 5625) (+ 631629064 -2) -> 631629062) ((3808 . 5625) (+ 631629064 -1) -> 631629063) ((3809 . 5625) (+ 631629064 0) -> 631629064) ((3810 . 5625) (+ 631629064 1) -> 631629065) ((3811 . 5625) (+ 631629065 -3) -> 631629062) ((3812 . 5625) (+ 631629065 -2) -> 631629063) ((3813 . 5625) (+ 631629065 -1) -> 631629064) ((3814 . 5625) (+ 631629065 0) -> 631629065) ((3815 . 5625) (+ 631629065 1) -> 631629066) ((3816 . 5625) (+ 631629066 -3) -> 631629063) ((3817 . 5625) (+ 631629066 -2) -> 631629064) ((3818 . 5625) (+ 631629066 -1) -> 631629065) ((3819 . 5625) (+ 631629066 0) -> 631629066) ((3820 . 5625) (+ 631629066 1) -> 631629067) ((3821 . 5625) (+ 631629067 -3) -> 631629064) ((3822 . 5625) (+ 631629067 -2) -> 631629065) ((3823 . 5625) (+ 631629067 -1) -> 631629066) ((3824 . 5625) (+ 631629067 0) -> 631629067) ((3825 . 5625) (+ 631629067 1) -> 631629068) ((3826 . 5625) (+ 631629063 0) -> 631629063) ((3827 . 5625) (+ 631629063 1) -> 631629064) ((3828 . 5625) (+ 631629063 2) -> 631629065) ((3829 . 5625) (+ 631629063 3) -> 631629066) ((3830 . 5625) (+ 631629063 4) -> 631629067) ((3831 . 5625) (+ 631629064 0) -> 631629064) ((3832 . 5625) (+ 631629064 1) -> 631629065) ((3833 . 5625) (+ 631629064 2) -> 631629066) ((3834 . 5625) (+ 631629064 3) -> 631629067) ((3835 . 5625) (+ 631629064 4) -> 631629068) ((3836 . 5625) (+ 631629065 0) -> 631629065) ((3837 . 5625) (+ 631629065 1) -> 631629066) ((3838 . 5625) (+ 631629065 2) -> 631629067) ((3839 . 5625) (+ 631629065 3) -> 631629068) ((3840 . 5625) (+ 631629065 4) -> 631629069) ((3841 . 5625) (+ 631629066 0) -> 631629066) ((3842 . 5625) (+ 631629066 1) -> 631629067) ((3843 . 5625) (+ 631629066 2) -> 631629068) ((3844 . 5625) (+ 631629066 3) -> 631629069) ((3845 . 5625) (+ 631629066 4) -> 631629070) ((3846 . 5625) (+ 631629067 0) -> 631629067) ((3847 . 5625) (+ 631629067 1) -> 631629068) ((3848 . 5625) (+ 631629067 2) -> 631629069) ((3849 . 5625) (+ 631629067 3) -> 631629070) ((3850 . 5625) (+ 631629067 4) -> 631629071) ((3851 . 5625) (+ 631629063 -4) -> 631629059) ((3852 . 5625) (+ 631629063 -3) -> 631629060) ((3853 . 5625) (+ 631629063 -2) -> 631629061) ((3854 . 5625) (+ 631629063 -1) -> 631629062) ((3855 . 5625) (+ 631629063 0) -> 631629063) ((3856 . 5625) (+ 631629064 -4) -> 631629060) ((3857 . 5625) (+ 631629064 -3) -> 631629061) ((3858 . 5625) (+ 631629064 -2) -> 631629062) ((3859 . 5625) (+ 631629064 -1) -> 631629063) ((3860 . 5625) (+ 631629064 0) -> 631629064) ((3861 . 5625) (+ 631629065 -4) -> 631629061) ((3862 . 5625) (+ 631629065 -3) -> 631629062) ((3863 . 5625) (+ 631629065 -2) -> 631629063) ((3864 . 5625) (+ 631629065 -1) -> 631629064) ((3865 . 5625) (+ 631629065 0) -> 631629065) ((3866 . 5625) (+ 631629066 -4) -> 631629062) ((3867 . 5625) (+ 631629066 -3) -> 631629063) ((3868 . 5625) (+ 631629066 -2) -> 631629064) ((3869 . 5625) (+ 631629066 -1) -> 631629065) ((3870 . 5625) (+ 631629066 0) -> 631629066) ((3871 . 5625) (+ 631629067 -4) -> 631629063) ((3872 . 5625) (+ 631629067 -3) -> 631629064) ((3873 . 5625) (+ 631629067 -2) -> 631629065) ((3874 . 5625) (+ 631629067 -1) -> 631629066) ((3875 . 5625) (+ 631629067 0) -> 631629067) ((3876 . 5625) (+ 631629063 4611686018427387901) -> 4611686019059016964) ((3877 . 5625) (+ 631629063 4611686018427387902) -> 4611686019059016965) ((3878 . 5625) (+ 631629063 4611686018427387903) -> 4611686019059016966) ((3879 . 5625) (+ 631629063 4611686018427387904) -> 4611686019059016967) ((3880 . 5625) (+ 631629063 4611686018427387905) -> 4611686019059016968) ((3881 . 5625) (+ 631629064 4611686018427387901) -> 4611686019059016965) ((3882 . 5625) (+ 631629064 4611686018427387902) -> 4611686019059016966) ((3883 . 5625) (+ 631629064 4611686018427387903) -> 4611686019059016967) ((3884 . 5625) (+ 631629064 4611686018427387904) -> 4611686019059016968) ((3885 . 5625) (+ 631629064 4611686018427387905) -> 4611686019059016969) ((3886 . 5625) (+ 631629065 4611686018427387901) -> 4611686019059016966) ((3887 . 5625) (+ 631629065 4611686018427387902) -> 4611686019059016967) ((3888 . 5625) (+ 631629065 4611686018427387903) -> 4611686019059016968) ((3889 . 5625) (+ 631629065 4611686018427387904) -> 4611686019059016969) ((3890 . 5625) (+ 631629065 4611686018427387905) -> 4611686019059016970) ((3891 . 5625) (+ 631629066 4611686018427387901) -> 4611686019059016967) ((3892 . 5625) (+ 631629066 4611686018427387902) -> 4611686019059016968) ((3893 . 5625) (+ 631629066 4611686018427387903) -> 4611686019059016969) ((3894 . 5625) (+ 631629066 4611686018427387904) -> 4611686019059016970) ((3895 . 5625) (+ 631629066 4611686018427387905) -> 4611686019059016971) ((3896 . 5625) (+ 631629067 4611686018427387901) -> 4611686019059016968) ((3897 . 5625) (+ 631629067 4611686018427387902) -> 4611686019059016969) ((3898 . 5625) (+ 631629067 4611686018427387903) -> 4611686019059016970) ((3899 . 5625) (+ 631629067 4611686018427387904) -> 4611686019059016971) ((3900 . 5625) (+ 631629067 4611686018427387905) -> 4611686019059016972) ((3901 . 5625) (+ 631629063 -4611686018427387906) -> -4611686017795758843) ((3902 . 5625) (+ 631629063 -4611686018427387905) -> -4611686017795758842) ((3903 . 5625) (+ 631629063 -4611686018427387904) -> -4611686017795758841) ((3904 . 5625) (+ 631629063 -4611686018427387903) -> -4611686017795758840) ((3905 . 5625) (+ 631629063 -4611686018427387902) -> -4611686017795758839) ((3906 . 5625) (+ 631629064 -4611686018427387906) -> -4611686017795758842) ((3907 . 5625) (+ 631629064 -4611686018427387905) -> -4611686017795758841) ((3908 . 5625) (+ 631629064 -4611686018427387904) -> -4611686017795758840) ((3909 . 5625) (+ 631629064 -4611686018427387903) -> -4611686017795758839) ((3910 . 5625) (+ 631629064 -4611686018427387902) -> -4611686017795758838) ((3911 . 5625) (+ 631629065 -4611686018427387906) -> -4611686017795758841) ((3912 . 5625) (+ 631629065 -4611686018427387905) -> -4611686017795758840) ((3913 . 5625) (+ 631629065 -4611686018427387904) -> -4611686017795758839) ((3914 . 5625) (+ 631629065 -4611686018427387903) -> -4611686017795758838) ((3915 . 5625) (+ 631629065 -4611686018427387902) -> -4611686017795758837) ((3916 . 5625) (+ 631629066 -4611686018427387906) -> -4611686017795758840) ((3917 . 5625) (+ 631629066 -4611686018427387905) -> -4611686017795758839) ((3918 . 5625) (+ 631629066 -4611686018427387904) -> -4611686017795758838) ((3919 . 5625) (+ 631629066 -4611686018427387903) -> -4611686017795758837) ((3920 . 5625) (+ 631629066 -4611686018427387902) -> -4611686017795758836) ((3921 . 5625) (+ 631629067 -4611686018427387906) -> -4611686017795758839) ((3922 . 5625) (+ 631629067 -4611686018427387905) -> -4611686017795758838) ((3923 . 5625) (+ 631629067 -4611686018427387904) -> -4611686017795758837) ((3924 . 5625) (+ 631629067 -4611686018427387903) -> -4611686017795758836) ((3925 . 5625) (+ 631629067 -4611686018427387902) -> -4611686017795758835) ((3926 . 5625) (+ 631629063 4611686018427387902) -> 4611686019059016965) ((3927 . 5625) (+ 631629063 4611686018427387903) -> 4611686019059016966) ((3928 . 5625) (+ 631629063 4611686018427387904) -> 4611686019059016967) ((3929 . 5625) (+ 631629063 4611686018427387905) -> 4611686019059016968) ((3930 . 5625) (+ 631629063 4611686018427387906) -> 4611686019059016969) ((3931 . 5625) (+ 631629064 4611686018427387902) -> 4611686019059016966) ((3932 . 5625) (+ 631629064 4611686018427387903) -> 4611686019059016967) ((3933 . 5625) (+ 631629064 4611686018427387904) -> 4611686019059016968) ((3934 . 5625) (+ 631629064 4611686018427387905) -> 4611686019059016969) ((3935 . 5625) (+ 631629064 4611686018427387906) -> 4611686019059016970) ((3936 . 5625) (+ 631629065 4611686018427387902) -> 4611686019059016967) ((3937 . 5625) (+ 631629065 4611686018427387903) -> 4611686019059016968) ((3938 . 5625) (+ 631629065 4611686018427387904) -> 4611686019059016969) ((3939 . 5625) (+ 631629065 4611686018427387905) -> 4611686019059016970) ((3940 . 5625) (+ 631629065 4611686018427387906) -> 4611686019059016971) ((3941 . 5625) (+ 631629066 4611686018427387902) -> 4611686019059016968) ((3942 . 5625) (+ 631629066 4611686018427387903) -> 4611686019059016969) ((3943 . 5625) (+ 631629066 4611686018427387904) -> 4611686019059016970) ((3944 . 5625) (+ 631629066 4611686018427387905) -> 4611686019059016971) ((3945 . 5625) (+ 631629066 4611686018427387906) -> 4611686019059016972) ((3946 . 5625) (+ 631629067 4611686018427387902) -> 4611686019059016969) ((3947 . 5625) (+ 631629067 4611686018427387903) -> 4611686019059016970) ((3948 . 5625) (+ 631629067 4611686018427387904) -> 4611686019059016971) ((3949 . 5625) (+ 631629067 4611686018427387905) -> 4611686019059016972) ((3950 . 5625) (+ 631629067 4611686018427387906) -> 4611686019059016973) ((3951 . 5625) (+ 631629063 -4611686018427387907) -> -4611686017795758844) ((3952 . 5625) (+ 631629063 -4611686018427387906) -> -4611686017795758843) ((3953 . 5625) (+ 631629063 -4611686018427387905) -> -4611686017795758842) ((3954 . 5625) (+ 631629063 -4611686018427387904) -> -4611686017795758841) ((3955 . 5625) (+ 631629063 -4611686018427387903) -> -4611686017795758840) ((3956 . 5625) (+ 631629064 -4611686018427387907) -> -4611686017795758843) ((3957 . 5625) (+ 631629064 -4611686018427387906) -> -4611686017795758842) ((3958 . 5625) (+ 631629064 -4611686018427387905) -> -4611686017795758841) ((3959 . 5625) (+ 631629064 -4611686018427387904) -> -4611686017795758840) ((3960 . 5625) (+ 631629064 -4611686018427387903) -> -4611686017795758839) ((3961 . 5625) (+ 631629065 -4611686018427387907) -> -4611686017795758842) ((3962 . 5625) (+ 631629065 -4611686018427387906) -> -4611686017795758841) ((3963 . 5625) (+ 631629065 -4611686018427387905) -> -4611686017795758840) ((3964 . 5625) (+ 631629065 -4611686018427387904) -> -4611686017795758839) ((3965 . 5625) (+ 631629065 -4611686018427387903) -> -4611686017795758838) ((3966 . 5625) (+ 631629066 -4611686018427387907) -> -4611686017795758841) ((3967 . 5625) (+ 631629066 -4611686018427387906) -> -4611686017795758840) ((3968 . 5625) (+ 631629066 -4611686018427387905) -> -4611686017795758839) ((3969 . 5625) (+ 631629066 -4611686018427387904) -> -4611686017795758838) ((3970 . 5625) (+ 631629066 -4611686018427387903) -> -4611686017795758837) ((3971 . 5625) (+ 631629067 -4611686018427387907) -> -4611686017795758840) ((3972 . 5625) (+ 631629067 -4611686018427387906) -> -4611686017795758839) ((3973 . 5625) (+ 631629067 -4611686018427387905) -> -4611686017795758838) ((3974 . 5625) (+ 631629067 -4611686018427387904) -> -4611686017795758837) ((3975 . 5625) (+ 631629067 -4611686018427387903) -> -4611686017795758836) ((3976 . 5625) (+ 631629063 1103515243) -> 1735144306) ((3977 . 5625) (+ 631629063 1103515244) -> 1735144307) ((3978 . 5625) (+ 631629063 1103515245) -> 1735144308) ((3979 . 5625) (+ 631629063 1103515246) -> 1735144309) ((3980 . 5625) (+ 631629063 1103515247) -> 1735144310) ((3981 . 5625) (+ 631629064 1103515243) -> 1735144307) ((3982 . 5625) (+ 631629064 1103515244) -> 1735144308) ((3983 . 5625) (+ 631629064 1103515245) -> 1735144309) ((3984 . 5625) (+ 631629064 1103515246) -> 1735144310) ((3985 . 5625) (+ 631629064 1103515247) -> 1735144311) ((3986 . 5625) (+ 631629065 1103515243) -> 1735144308) ((3987 . 5625) (+ 631629065 1103515244) -> 1735144309) ((3988 . 5625) (+ 631629065 1103515245) -> 1735144310) ((3989 . 5625) (+ 631629065 1103515246) -> 1735144311) ((3990 . 5625) (+ 631629065 1103515247) -> 1735144312) ((3991 . 5625) (+ 631629066 1103515243) -> 1735144309) ((3992 . 5625) (+ 631629066 1103515244) -> 1735144310) ((3993 . 5625) (+ 631629066 1103515245) -> 1735144311) ((3994 . 5625) (+ 631629066 1103515246) -> 1735144312) ((3995 . 5625) (+ 631629066 1103515247) -> 1735144313) ((3996 . 5625) (+ 631629067 1103515243) -> 1735144310) ((3997 . 5625) (+ 631629067 1103515244) -> 1735144311) ((3998 . 5625) (+ 631629067 1103515245) -> 1735144312) ((3999 . 5625) (+ 631629067 1103515246) -> 1735144313) ((4000 . 5625) (+ 631629067 1103515247) -> 1735144314) ((4001 . 5625) (+ 631629063 631629063) -> 1263258126) ((4002 . 5625) (+ 631629063 631629064) -> 1263258127) ((4003 . 5625) (+ 631629063 631629065) -> 1263258128) ((4004 . 5625) (+ 631629063 631629066) -> 1263258129) ((4005 . 5625) (+ 631629063 631629067) -> 1263258130) ((4006 . 5625) (+ 631629064 631629063) -> 1263258127) ((4007 . 5625) (+ 631629064 631629064) -> 1263258128) ((4008 . 5625) (+ 631629064 631629065) -> 1263258129) ((4009 . 5625) (+ 631629064 631629066) -> 1263258130) ((4010 . 5625) (+ 631629064 631629067) -> 1263258131) ((4011 . 5625) (+ 631629065 631629063) -> 1263258128) ((4012 . 5625) (+ 631629065 631629064) -> 1263258129) ((4013 . 5625) (+ 631629065 631629065) -> 1263258130) ((4014 . 5625) (+ 631629065 631629066) -> 1263258131) ((4015 . 5625) (+ 631629065 631629067) -> 1263258132) ((4016 . 5625) (+ 631629066 631629063) -> 1263258129) ((4017 . 5625) (+ 631629066 631629064) -> 1263258130) ((4018 . 5625) (+ 631629066 631629065) -> 1263258131) ((4019 . 5625) (+ 631629066 631629066) -> 1263258132) ((4020 . 5625) (+ 631629066 631629067) -> 1263258133) ((4021 . 5625) (+ 631629067 631629063) -> 1263258130) ((4022 . 5625) (+ 631629067 631629064) -> 1263258131) ((4023 . 5625) (+ 631629067 631629065) -> 1263258132) ((4024 . 5625) (+ 631629067 631629066) -> 1263258133) ((4025 . 5625) (+ 631629067 631629067) -> 1263258134) ((4026 . 5625) (+ 631629063 9007199254740990) -> 9007199886370053) ((4027 . 5625) (+ 631629063 9007199254740991) -> 9007199886370054) ((4028 . 5625) (+ 631629063 9007199254740992) -> 9007199886370055) ((4029 . 5625) (+ 631629063 9007199254740993) -> 9007199886370056) ((4030 . 5625) (+ 631629063 9007199254740994) -> 9007199886370057) ((4031 . 5625) (+ 631629064 9007199254740990) -> 9007199886370054) ((4032 . 5625) (+ 631629064 9007199254740991) -> 9007199886370055) ((4033 . 5625) (+ 631629064 9007199254740992) -> 9007199886370056) ((4034 . 5625) (+ 631629064 9007199254740993) -> 9007199886370057) ((4035 . 5625) (+ 631629064 9007199254740994) -> 9007199886370058) ((4036 . 5625) (+ 631629065 9007199254740990) -> 9007199886370055) ((4037 . 5625) (+ 631629065 9007199254740991) -> 9007199886370056) ((4038 . 5625) (+ 631629065 9007199254740992) -> 9007199886370057) ((4039 . 5625) (+ 631629065 9007199254740993) -> 9007199886370058) ((4040 . 5625) (+ 631629065 9007199254740994) -> 9007199886370059) ((4041 . 5625) (+ 631629066 9007199254740990) -> 9007199886370056) ((4042 . 5625) (+ 631629066 9007199254740991) -> 9007199886370057) ((4043 . 5625) (+ 631629066 9007199254740992) -> 9007199886370058) ((4044 . 5625) (+ 631629066 9007199254740993) -> 9007199886370059) ((4045 . 5625) (+ 631629066 9007199254740994) -> 9007199886370060) ((4046 . 5625) (+ 631629067 9007199254740990) -> 9007199886370057) ((4047 . 5625) (+ 631629067 9007199254740991) -> 9007199886370058) ((4048 . 5625) (+ 631629067 9007199254740992) -> 9007199886370059) ((4049 . 5625) (+ 631629067 9007199254740993) -> 9007199886370060) ((4050 . 5625) (+ 631629067 9007199254740994) -> 9007199886370061) ((4051 . 5625) (+ 631629063 -9007199254740994) -> -9007198623111931) ((4052 . 5625) (+ 631629063 -9007199254740993) -> -9007198623111930) ((4053 . 5625) (+ 631629063 -9007199254740992) -> -9007198623111929) ((4054 . 5625) (+ 631629063 -9007199254740991) -> -9007198623111928) ((4055 . 5625) (+ 631629063 -9007199254740990) -> -9007198623111927) ((4056 . 5625) (+ 631629064 -9007199254740994) -> -9007198623111930) ((4057 . 5625) (+ 631629064 -9007199254740993) -> -9007198623111929) ((4058 . 5625) (+ 631629064 -9007199254740992) -> -9007198623111928) ((4059 . 5625) (+ 631629064 -9007199254740991) -> -9007198623111927) ((4060 . 5625) (+ 631629064 -9007199254740990) -> -9007198623111926) ((4061 . 5625) (+ 631629065 -9007199254740994) -> -9007198623111929) ((4062 . 5625) (+ 631629065 -9007199254740993) -> -9007198623111928) ((4063 . 5625) (+ 631629065 -9007199254740992) -> -9007198623111927) ((4064 . 5625) (+ 631629065 -9007199254740991) -> -9007198623111926) ((4065 . 5625) (+ 631629065 -9007199254740990) -> -9007198623111925) ((4066 . 5625) (+ 631629066 -9007199254740994) -> -9007198623111928) ((4067 . 5625) (+ 631629066 -9007199254740993) -> -9007198623111927) ((4068 . 5625) (+ 631629066 -9007199254740992) -> -9007198623111926) ((4069 . 5625) (+ 631629066 -9007199254740991) -> -9007198623111925) ((4070 . 5625) (+ 631629066 -9007199254740990) -> -9007198623111924) ((4071 . 5625) (+ 631629067 -9007199254740994) -> -9007198623111927) ((4072 . 5625) (+ 631629067 -9007199254740993) -> -9007198623111926) ((4073 . 5625) (+ 631629067 -9007199254740992) -> -9007198623111925) ((4074 . 5625) (+ 631629067 -9007199254740991) -> -9007198623111924) ((4075 . 5625) (+ 631629067 -9007199254740990) -> -9007198623111923) ((4076 . 5625) (+ 631629063 12343) -> 631641406) ((4077 . 5625) (+ 631629063 12344) -> 631641407) ((4078 . 5625) (+ 631629063 12345) -> 631641408) ((4079 . 5625) (+ 631629063 12346) -> 631641409) ((4080 . 5625) (+ 631629063 12347) -> 631641410) ((4081 . 5625) (+ 631629064 12343) -> 631641407) ((4082 . 5625) (+ 631629064 12344) -> 631641408) ((4083 . 5625) (+ 631629064 12345) -> 631641409) ((4084 . 5625) (+ 631629064 12346) -> 631641410) ((4085 . 5625) (+ 631629064 12347) -> 631641411) ((4086 . 5625) (+ 631629065 12343) -> 631641408) ((4087 . 5625) (+ 631629065 12344) -> 631641409) ((4088 . 5625) (+ 631629065 12345) -> 631641410) ((4089 . 5625) (+ 631629065 12346) -> 631641411) ((4090 . 5625) (+ 631629065 12347) -> 631641412) ((4091 . 5625) (+ 631629066 12343) -> 631641409) ((4092 . 5625) (+ 631629066 12344) -> 631641410) ((4093 . 5625) (+ 631629066 12345) -> 631641411) ((4094 . 5625) (+ 631629066 12346) -> 631641412) ((4095 . 5625) (+ 631629066 12347) -> 631641413) ((4096 . 5625) (+ 631629067 12343) -> 631641410) ((4097 . 5625) (+ 631629067 12344) -> 631641411) ((4098 . 5625) (+ 631629067 12345) -> 631641412) ((4099 . 5625) (+ 631629067 12346) -> 631641413) ((4100 . 5625) (+ 631629067 12347) -> 631641414) ((4101 . 5625) (+ 631629063 4294967294) -> 4926596357) ((4102 . 5625) (+ 631629063 4294967295) -> 4926596358) ((4103 . 5625) (+ 631629063 4294967296) -> 4926596359) ((4104 . 5625) (+ 631629063 4294967297) -> 4926596360) ((4105 . 5625) (+ 631629063 4294967298) -> 4926596361) ((4106 . 5625) (+ 631629064 4294967294) -> 4926596358) ((4107 . 5625) (+ 631629064 4294967295) -> 4926596359) ((4108 . 5625) (+ 631629064 4294967296) -> 4926596360) ((4109 . 5625) (+ 631629064 4294967297) -> 4926596361) ((4110 . 5625) (+ 631629064 4294967298) -> 4926596362) ((4111 . 5625) (+ 631629065 4294967294) -> 4926596359) ((4112 . 5625) (+ 631629065 4294967295) -> 4926596360) ((4113 . 5625) (+ 631629065 4294967296) -> 4926596361) ((4114 . 5625) (+ 631629065 4294967297) -> 4926596362) ((4115 . 5625) (+ 631629065 4294967298) -> 4926596363) ((4116 . 5625) (+ 631629066 4294967294) -> 4926596360) ((4117 . 5625) (+ 631629066 4294967295) -> 4926596361) ((4118 . 5625) (+ 631629066 4294967296) -> 4926596362) ((4119 . 5625) (+ 631629066 4294967297) -> 4926596363) ((4120 . 5625) (+ 631629066 4294967298) -> 4926596364) ((4121 . 5625) (+ 631629067 4294967294) -> 4926596361) ((4122 . 5625) (+ 631629067 4294967295) -> 4926596362) ((4123 . 5625) (+ 631629067 4294967296) -> 4926596363) ((4124 . 5625) (+ 631629067 4294967297) -> 4926596364) ((4125 . 5625) (+ 631629067 4294967298) -> 4926596365) ((4126 . 5625) (+ 9007199254740990 -2) -> 9007199254740988) ((4127 . 5625) (+ 9007199254740990 -1) -> 9007199254740989) ((4128 . 5625) (+ 9007199254740990 0) -> 9007199254740990) ((4129 . 5625) (+ 9007199254740990 1) -> 9007199254740991) ((4130 . 5625) (+ 9007199254740990 2) -> 9007199254740992) ((4131 . 5625) (+ 9007199254740991 -2) -> 9007199254740989) ((4132 . 5625) (+ 9007199254740991 -1) -> 9007199254740990) ((4133 . 5625) (+ 9007199254740991 0) -> 9007199254740991) ((4134 . 5625) (+ 9007199254740991 1) -> 9007199254740992) ((4135 . 5625) (+ 9007199254740991 2) -> 9007199254740993) ((4136 . 5625) (+ 9007199254740992 -2) -> 9007199254740990) ((4137 . 5625) (+ 9007199254740992 -1) -> 9007199254740991) ((4138 . 5625) (+ 9007199254740992 0) -> 9007199254740992) ((4139 . 5625) (+ 9007199254740992 1) -> 9007199254740993) ((4140 . 5625) (+ 9007199254740992 2) -> 9007199254740994) ((4141 . 5625) (+ 9007199254740993 -2) -> 9007199254740991) ((4142 . 5625) (+ 9007199254740993 -1) -> 9007199254740992) ((4143 . 5625) (+ 9007199254740993 0) -> 9007199254740993) ((4144 . 5625) (+ 9007199254740993 1) -> 9007199254740994) ((4145 . 5625) (+ 9007199254740993 2) -> 9007199254740995) ((4146 . 5625) (+ 9007199254740994 -2) -> 9007199254740992) ((4147 . 5625) (+ 9007199254740994 -1) -> 9007199254740993) ((4148 . 5625) (+ 9007199254740994 0) -> 9007199254740994) ((4149 . 5625) (+ 9007199254740994 1) -> 9007199254740995) ((4150 . 5625) (+ 9007199254740994 2) -> 9007199254740996) ((4151 . 5625) (+ 9007199254740990 -1) -> 9007199254740989) ((4152 . 5625) (+ 9007199254740990 0) -> 9007199254740990) ((4153 . 5625) (+ 9007199254740990 1) -> 9007199254740991) ((4154 . 5625) (+ 9007199254740990 2) -> 9007199254740992) ((4155 . 5625) (+ 9007199254740990 3) -> 9007199254740993) ((4156 . 5625) (+ 9007199254740991 -1) -> 9007199254740990) ((4157 . 5625) (+ 9007199254740991 0) -> 9007199254740991) ((4158 . 5625) (+ 9007199254740991 1) -> 9007199254740992) ((4159 . 5625) (+ 9007199254740991 2) -> 9007199254740993) ((4160 . 5625) (+ 9007199254740991 3) -> 9007199254740994) ((4161 . 5625) (+ 9007199254740992 -1) -> 9007199254740991) ((4162 . 5625) (+ 9007199254740992 0) -> 9007199254740992) ((4163 . 5625) (+ 9007199254740992 1) -> 9007199254740993) ((4164 . 5625) (+ 9007199254740992 2) -> 9007199254740994) ((4165 . 5625) (+ 9007199254740992 3) -> 9007199254740995) ((4166 . 5625) (+ 9007199254740993 -1) -> 9007199254740992) ((4167 . 5625) (+ 9007199254740993 0) -> 9007199254740993) ((4168 . 5625) (+ 9007199254740993 1) -> 9007199254740994) ((4169 . 5625) (+ 9007199254740993 2) -> 9007199254740995) ((4170 . 5625) (+ 9007199254740993 3) -> 9007199254740996) ((4171 . 5625) (+ 9007199254740994 -1) -> 9007199254740993) ((4172 . 5625) (+ 9007199254740994 0) -> 9007199254740994) ((4173 . 5625) (+ 9007199254740994 1) -> 9007199254740995) ((4174 . 5625) (+ 9007199254740994 2) -> 9007199254740996) ((4175 . 5625) (+ 9007199254740994 3) -> 9007199254740997) ((4176 . 5625) (+ 9007199254740990 -3) -> 9007199254740987) ((4177 . 5625) (+ 9007199254740990 -2) -> 9007199254740988) ((4178 . 5625) (+ 9007199254740990 -1) -> 9007199254740989) ((4179 . 5625) (+ 9007199254740990 0) -> 9007199254740990) ((4180 . 5625) (+ 9007199254740990 1) -> 9007199254740991) ((4181 . 5625) (+ 9007199254740991 -3) -> 9007199254740988) ((4182 . 5625) (+ 9007199254740991 -2) -> 9007199254740989) ((4183 . 5625) (+ 9007199254740991 -1) -> 9007199254740990) ((4184 . 5625) (+ 9007199254740991 0) -> 9007199254740991) ((4185 . 5625) (+ 9007199254740991 1) -> 9007199254740992) ((4186 . 5625) (+ 9007199254740992 -3) -> 9007199254740989) ((4187 . 5625) (+ 9007199254740992 -2) -> 9007199254740990) ((4188 . 5625) (+ 9007199254740992 -1) -> 9007199254740991) ((4189 . 5625) (+ 9007199254740992 0) -> 9007199254740992) ((4190 . 5625) (+ 9007199254740992 1) -> 9007199254740993) ((4191 . 5625) (+ 9007199254740993 -3) -> 9007199254740990) ((4192 . 5625) (+ 9007199254740993 -2) -> 9007199254740991) ((4193 . 5625) (+ 9007199254740993 -1) -> 9007199254740992) ((4194 . 5625) (+ 9007199254740993 0) -> 9007199254740993) ((4195 . 5625) (+ 9007199254740993 1) -> 9007199254740994) ((4196 . 5625) (+ 9007199254740994 -3) -> 9007199254740991) ((4197 . 5625) (+ 9007199254740994 -2) -> 9007199254740992) ((4198 . 5625) (+ 9007199254740994 -1) -> 9007199254740993) ((4199 . 5625) (+ 9007199254740994 0) -> 9007199254740994) ((4200 . 5625) (+ 9007199254740994 1) -> 9007199254740995) ((4201 . 5625) (+ 9007199254740990 0) -> 9007199254740990) ((4202 . 5625) (+ 9007199254740990 1) -> 9007199254740991) ((4203 . 5625) (+ 9007199254740990 2) -> 9007199254740992) ((4204 . 5625) (+ 9007199254740990 3) -> 9007199254740993) ((4205 . 5625) (+ 9007199254740990 4) -> 9007199254740994) ((4206 . 5625) (+ 9007199254740991 0) -> 9007199254740991) ((4207 . 5625) (+ 9007199254740991 1) -> 9007199254740992) ((4208 . 5625) (+ 9007199254740991 2) -> 9007199254740993) ((4209 . 5625) (+ 9007199254740991 3) -> 9007199254740994) ((4210 . 5625) (+ 9007199254740991 4) -> 9007199254740995) ((4211 . 5625) (+ 9007199254740992 0) -> 9007199254740992) ((4212 . 5625) (+ 9007199254740992 1) -> 9007199254740993) ((4213 . 5625) (+ 9007199254740992 2) -> 9007199254740994) ((4214 . 5625) (+ 9007199254740992 3) -> 9007199254740995) ((4215 . 5625) (+ 9007199254740992 4) -> 9007199254740996) ((4216 . 5625) (+ 9007199254740993 0) -> 9007199254740993) ((4217 . 5625) (+ 9007199254740993 1) -> 9007199254740994) ((4218 . 5625) (+ 9007199254740993 2) -> 9007199254740995) ((4219 . 5625) (+ 9007199254740993 3) -> 9007199254740996) ((4220 . 5625) (+ 9007199254740993 4) -> 9007199254740997) ((4221 . 5625) (+ 9007199254740994 0) -> 9007199254740994) ((4222 . 5625) (+ 9007199254740994 1) -> 9007199254740995) ((4223 . 5625) (+ 9007199254740994 2) -> 9007199254740996) ((4224 . 5625) (+ 9007199254740994 3) -> 9007199254740997) ((4225 . 5625) (+ 9007199254740994 4) -> 9007199254740998) ((4226 . 5625) (+ 9007199254740990 -4) -> 9007199254740986) ((4227 . 5625) (+ 9007199254740990 -3) -> 9007199254740987) ((4228 . 5625) (+ 9007199254740990 -2) -> 9007199254740988) ((4229 . 5625) (+ 9007199254740990 -1) -> 9007199254740989) ((4230 . 5625) (+ 9007199254740990 0) -> 9007199254740990) ((4231 . 5625) (+ 9007199254740991 -4) -> 9007199254740987) ((4232 . 5625) (+ 9007199254740991 -3) -> 9007199254740988) ((4233 . 5625) (+ 9007199254740991 -2) -> 9007199254740989) ((4234 . 5625) (+ 9007199254740991 -1) -> 9007199254740990) ((4235 . 5625) (+ 9007199254740991 0) -> 9007199254740991) ((4236 . 5625) (+ 9007199254740992 -4) -> 9007199254740988) ((4237 . 5625) (+ 9007199254740992 -3) -> 9007199254740989) ((4238 . 5625) (+ 9007199254740992 -2) -> 9007199254740990) ((4239 . 5625) (+ 9007199254740992 -1) -> 9007199254740991) ((4240 . 5625) (+ 9007199254740992 0) -> 9007199254740992) ((4241 . 5625) (+ 9007199254740993 -4) -> 9007199254740989) ((4242 . 5625) (+ 9007199254740993 -3) -> 9007199254740990) ((4243 . 5625) (+ 9007199254740993 -2) -> 9007199254740991) ((4244 . 5625) (+ 9007199254740993 -1) -> 9007199254740992) ((4245 . 5625) (+ 9007199254740993 0) -> 9007199254740993) ((4246 . 5625) (+ 9007199254740994 -4) -> 9007199254740990) ((4247 . 5625) (+ 9007199254740994 -3) -> 9007199254740991) ((4248 . 5625) (+ 9007199254740994 -2) -> 9007199254740992) ((4249 . 5625) (+ 9007199254740994 -1) -> 9007199254740993) ((4250 . 5625) (+ 9007199254740994 0) -> 9007199254740994) ((4251 . 5625) (+ 9007199254740990 4611686018427387901) -> 4620693217682128891) ((4252 . 5625) (+ 9007199254740990 4611686018427387902) -> 4620693217682128892) ((4253 . 5625) (+ 9007199254740990 4611686018427387903) -> 4620693217682128893) ((4254 . 5625) (+ 9007199254740990 4611686018427387904) -> 4620693217682128894) ((4255 . 5625) (+ 9007199254740990 4611686018427387905) -> 4620693217682128895) ((4256 . 5625) (+ 9007199254740991 4611686018427387901) -> 4620693217682128892) ((4257 . 5625) (+ 9007199254740991 4611686018427387902) -> 4620693217682128893) ((4258 . 5625) (+ 9007199254740991 4611686018427387903) -> 4620693217682128894) ((4259 . 5625) (+ 9007199254740991 4611686018427387904) -> 4620693217682128895) ((4260 . 5625) (+ 9007199254740991 4611686018427387905) -> 4620693217682128896) ((4261 . 5625) (+ 9007199254740992 4611686018427387901) -> 4620693217682128893) ((4262 . 5625) (+ 9007199254740992 4611686018427387902) -> 4620693217682128894) ((4263 . 5625) (+ 9007199254740992 4611686018427387903) -> 4620693217682128895) ((4264 . 5625) (+ 9007199254740992 4611686018427387904) -> 4620693217682128896) ((4265 . 5625) (+ 9007199254740992 4611686018427387905) -> 4620693217682128897) ((4266 . 5625) (+ 9007199254740993 4611686018427387901) -> 4620693217682128894) ((4267 . 5625) (+ 9007199254740993 4611686018427387902) -> 4620693217682128895) ((4268 . 5625) (+ 9007199254740993 4611686018427387903) -> 4620693217682128896) ((4269 . 5625) (+ 9007199254740993 4611686018427387904) -> 4620693217682128897) ((4270 . 5625) (+ 9007199254740993 4611686018427387905) -> 4620693217682128898) ((4271 . 5625) (+ 9007199254740994 4611686018427387901) -> 4620693217682128895) ((4272 . 5625) (+ 9007199254740994 4611686018427387902) -> 4620693217682128896) ((4273 . 5625) (+ 9007199254740994 4611686018427387903) -> 4620693217682128897) ((4274 . 5625) (+ 9007199254740994 4611686018427387904) -> 4620693217682128898) ((4275 . 5625) (+ 9007199254740994 4611686018427387905) -> 4620693217682128899) ((4276 . 5625) (+ 9007199254740990 -4611686018427387906) -> -4602678819172646916) ((4277 . 5625) (+ 9007199254740990 -4611686018427387905) -> -4602678819172646915) ((4278 . 5625) (+ 9007199254740990 -4611686018427387904) -> -4602678819172646914) ((4279 . 5625) (+ 9007199254740990 -4611686018427387903) -> -4602678819172646913) ((4280 . 5625) (+ 9007199254740990 -4611686018427387902) -> -4602678819172646912) ((4281 . 5625) (+ 9007199254740991 -4611686018427387906) -> -4602678819172646915) ((4282 . 5625) (+ 9007199254740991 -4611686018427387905) -> -4602678819172646914) ((4283 . 5625) (+ 9007199254740991 -4611686018427387904) -> -4602678819172646913) ((4284 . 5625) (+ 9007199254740991 -4611686018427387903) -> -4602678819172646912) ((4285 . 5625) (+ 9007199254740991 -4611686018427387902) -> -4602678819172646911) ((4286 . 5625) (+ 9007199254740992 -4611686018427387906) -> -4602678819172646914) ((4287 . 5625) (+ 9007199254740992 -4611686018427387905) -> -4602678819172646913) ((4288 . 5625) (+ 9007199254740992 -4611686018427387904) -> -4602678819172646912) ((4289 . 5625) (+ 9007199254740992 -4611686018427387903) -> -4602678819172646911) ((4290 . 5625) (+ 9007199254740992 -4611686018427387902) -> -4602678819172646910) ((4291 . 5625) (+ 9007199254740993 -4611686018427387906) -> -4602678819172646913) ((4292 . 5625) (+ 9007199254740993 -4611686018427387905) -> -4602678819172646912) ((4293 . 5625) (+ 9007199254740993 -4611686018427387904) -> -4602678819172646911) ((4294 . 5625) (+ 9007199254740993 -4611686018427387903) -> -4602678819172646910) ((4295 . 5625) (+ 9007199254740993 -4611686018427387902) -> -4602678819172646909) ((4296 . 5625) (+ 9007199254740994 -4611686018427387906) -> -4602678819172646912) ((4297 . 5625) (+ 9007199254740994 -4611686018427387905) -> -4602678819172646911) ((4298 . 5625) (+ 9007199254740994 -4611686018427387904) -> -4602678819172646910) ((4299 . 5625) (+ 9007199254740994 -4611686018427387903) -> -4602678819172646909) ((4300 . 5625) (+ 9007199254740994 -4611686018427387902) -> -4602678819172646908) ((4301 . 5625) (+ 9007199254740990 4611686018427387902) -> 4620693217682128892) ((4302 . 5625) (+ 9007199254740990 4611686018427387903) -> 4620693217682128893) ((4303 . 5625) (+ 9007199254740990 4611686018427387904) -> 4620693217682128894) ((4304 . 5625) (+ 9007199254740990 4611686018427387905) -> 4620693217682128895) ((4305 . 5625) (+ 9007199254740990 4611686018427387906) -> 4620693217682128896) ((4306 . 5625) (+ 9007199254740991 4611686018427387902) -> 4620693217682128893) ((4307 . 5625) (+ 9007199254740991 4611686018427387903) -> 4620693217682128894) ((4308 . 5625) (+ 9007199254740991 4611686018427387904) -> 4620693217682128895) ((4309 . 5625) (+ 9007199254740991 4611686018427387905) -> 4620693217682128896) ((4310 . 5625) (+ 9007199254740991 4611686018427387906) -> 4620693217682128897) ((4311 . 5625) (+ 9007199254740992 4611686018427387902) -> 4620693217682128894) ((4312 . 5625) (+ 9007199254740992 4611686018427387903) -> 4620693217682128895) ((4313 . 5625) (+ 9007199254740992 4611686018427387904) -> 4620693217682128896) ((4314 . 5625) (+ 9007199254740992 4611686018427387905) -> 4620693217682128897) ((4315 . 5625) (+ 9007199254740992 4611686018427387906) -> 4620693217682128898) ((4316 . 5625) (+ 9007199254740993 4611686018427387902) -> 4620693217682128895) ((4317 . 5625) (+ 9007199254740993 4611686018427387903) -> 4620693217682128896) ((4318 . 5625) (+ 9007199254740993 4611686018427387904) -> 4620693217682128897) ((4319 . 5625) (+ 9007199254740993 4611686018427387905) -> 4620693217682128898) ((4320 . 5625) (+ 9007199254740993 4611686018427387906) -> 4620693217682128899) ((4321 . 5625) (+ 9007199254740994 4611686018427387902) -> 4620693217682128896) ((4322 . 5625) (+ 9007199254740994 4611686018427387903) -> 4620693217682128897) ((4323 . 5625) (+ 9007199254740994 4611686018427387904) -> 4620693217682128898) ((4324 . 5625) (+ 9007199254740994 4611686018427387905) -> 4620693217682128899) ((4325 . 5625) (+ 9007199254740994 4611686018427387906) -> 4620693217682128900) ((4326 . 5625) (+ 9007199254740990 -4611686018427387907) -> -4602678819172646917) ((4327 . 5625) (+ 9007199254740990 -4611686018427387906) -> -4602678819172646916) ((4328 . 5625) (+ 9007199254740990 -4611686018427387905) -> -4602678819172646915) ((4329 . 5625) (+ 9007199254740990 -4611686018427387904) -> -4602678819172646914) ((4330 . 5625) (+ 9007199254740990 -4611686018427387903) -> -4602678819172646913) ((4331 . 5625) (+ 9007199254740991 -4611686018427387907) -> -4602678819172646916) ((4332 . 5625) (+ 9007199254740991 -4611686018427387906) -> -4602678819172646915) ((4333 . 5625) (+ 9007199254740991 -4611686018427387905) -> -4602678819172646914) ((4334 . 5625) (+ 9007199254740991 -4611686018427387904) -> -4602678819172646913) ((4335 . 5625) (+ 9007199254740991 -4611686018427387903) -> -4602678819172646912) ((4336 . 5625) (+ 9007199254740992 -4611686018427387907) -> -4602678819172646915) ((4337 . 5625) (+ 9007199254740992 -4611686018427387906) -> -4602678819172646914) ((4338 . 5625) (+ 9007199254740992 -4611686018427387905) -> -4602678819172646913) ((4339 . 5625) (+ 9007199254740992 -4611686018427387904) -> -4602678819172646912) ((4340 . 5625) (+ 9007199254740992 -4611686018427387903) -> -4602678819172646911) ((4341 . 5625) (+ 9007199254740993 -4611686018427387907) -> -4602678819172646914) ((4342 . 5625) (+ 9007199254740993 -4611686018427387906) -> -4602678819172646913) ((4343 . 5625) (+ 9007199254740993 -4611686018427387905) -> -4602678819172646912) ((4344 . 5625) (+ 9007199254740993 -4611686018427387904) -> -4602678819172646911) ((4345 . 5625) (+ 9007199254740993 -4611686018427387903) -> -4602678819172646910) ((4346 . 5625) (+ 9007199254740994 -4611686018427387907) -> -4602678819172646913) ((4347 . 5625) (+ 9007199254740994 -4611686018427387906) -> -4602678819172646912) ((4348 . 5625) (+ 9007199254740994 -4611686018427387905) -> -4602678819172646911) ((4349 . 5625) (+ 9007199254740994 -4611686018427387904) -> -4602678819172646910) ((4350 . 5625) (+ 9007199254740994 -4611686018427387903) -> -4602678819172646909) ((4351 . 5625) (+ 9007199254740990 1103515243) -> 9007200358256233) ((4352 . 5625) (+ 9007199254740990 1103515244) -> 9007200358256234) ((4353 . 5625) (+ 9007199254740990 1103515245) -> 9007200358256235) ((4354 . 5625) (+ 9007199254740990 1103515246) -> 9007200358256236) ((4355 . 5625) (+ 9007199254740990 1103515247) -> 9007200358256237) ((4356 . 5625) (+ 9007199254740991 1103515243) -> 9007200358256234) ((4357 . 5625) (+ 9007199254740991 1103515244) -> 9007200358256235) ((4358 . 5625) (+ 9007199254740991 1103515245) -> 9007200358256236) ((4359 . 5625) (+ 9007199254740991 1103515246) -> 9007200358256237) ((4360 . 5625) (+ 9007199254740991 1103515247) -> 9007200358256238) ((4361 . 5625) (+ 9007199254740992 1103515243) -> 9007200358256235) ((4362 . 5625) (+ 9007199254740992 1103515244) -> 9007200358256236) ((4363 . 5625) (+ 9007199254740992 1103515245) -> 9007200358256237) ((4364 . 5625) (+ 9007199254740992 1103515246) -> 9007200358256238) ((4365 . 5625) (+ 9007199254740992 1103515247) -> 9007200358256239) ((4366 . 5625) (+ 9007199254740993 1103515243) -> 9007200358256236) ((4367 . 5625) (+ 9007199254740993 1103515244) -> 9007200358256237) ((4368 . 5625) (+ 9007199254740993 1103515245) -> 9007200358256238) ((4369 . 5625) (+ 9007199254740993 1103515246) -> 9007200358256239) ((4370 . 5625) (+ 9007199254740993 1103515247) -> 9007200358256240) ((4371 . 5625) (+ 9007199254740994 1103515243) -> 9007200358256237) ((4372 . 5625) (+ 9007199254740994 1103515244) -> 9007200358256238) ((4373 . 5625) (+ 9007199254740994 1103515245) -> 9007200358256239) ((4374 . 5625) (+ 9007199254740994 1103515246) -> 9007200358256240) ((4375 . 5625) (+ 9007199254740994 1103515247) -> 9007200358256241) ((4376 . 5625) (+ 9007199254740990 631629063) -> 9007199886370053) ((4377 . 5625) (+ 9007199254740990 631629064) -> 9007199886370054) ((4378 . 5625) (+ 9007199254740990 631629065) -> 9007199886370055) ((4379 . 5625) (+ 9007199254740990 631629066) -> 9007199886370056) ((4380 . 5625) (+ 9007199254740990 631629067) -> 9007199886370057) ((4381 . 5625) (+ 9007199254740991 631629063) -> 9007199886370054) ((4382 . 5625) (+ 9007199254740991 631629064) -> 9007199886370055) ((4383 . 5625) (+ 9007199254740991 631629065) -> 9007199886370056) ((4384 . 5625) (+ 9007199254740991 631629066) -> 9007199886370057) ((4385 . 5625) (+ 9007199254740991 631629067) -> 9007199886370058) ((4386 . 5625) (+ 9007199254740992 631629063) -> 9007199886370055) ((4387 . 5625) (+ 9007199254740992 631629064) -> 9007199886370056) ((4388 . 5625) (+ 9007199254740992 631629065) -> 9007199886370057) ((4389 . 5625) (+ 9007199254740992 631629066) -> 9007199886370058) ((4390 . 5625) (+ 9007199254740992 631629067) -> 9007199886370059) ((4391 . 5625) (+ 9007199254740993 631629063) -> 9007199886370056) ((4392 . 5625) (+ 9007199254740993 631629064) -> 9007199886370057) ((4393 . 5625) (+ 9007199254740993 631629065) -> 9007199886370058) ((4394 . 5625) (+ 9007199254740993 631629066) -> 9007199886370059) ((4395 . 5625) (+ 9007199254740993 631629067) -> 9007199886370060) ((4396 . 5625) (+ 9007199254740994 631629063) -> 9007199886370057) ((4397 . 5625) (+ 9007199254740994 631629064) -> 9007199886370058) ((4398 . 5625) (+ 9007199254740994 631629065) -> 9007199886370059) ((4399 . 5625) (+ 9007199254740994 631629066) -> 9007199886370060) ((4400 . 5625) (+ 9007199254740994 631629067) -> 9007199886370061) ((4401 . 5625) (+ 9007199254740990 9007199254740990) -> 18014398509481980) ((4402 . 5625) (+ 9007199254740990 9007199254740991) -> 18014398509481981) ((4403 . 5625) (+ 9007199254740990 9007199254740992) -> 18014398509481982) ((4404 . 5625) (+ 9007199254740990 9007199254740993) -> 18014398509481983) ((4405 . 5625) (+ 9007199254740990 9007199254740994) -> 18014398509481984) ((4406 . 5625) (+ 9007199254740991 9007199254740990) -> 18014398509481981) ((4407 . 5625) (+ 9007199254740991 9007199254740991) -> 18014398509481982) ((4408 . 5625) (+ 9007199254740991 9007199254740992) -> 18014398509481983) ((4409 . 5625) (+ 9007199254740991 9007199254740993) -> 18014398509481984) ((4410 . 5625) (+ 9007199254740991 9007199254740994) -> 18014398509481985) ((4411 . 5625) (+ 9007199254740992 9007199254740990) -> 18014398509481982) ((4412 . 5625) (+ 9007199254740992 9007199254740991) -> 18014398509481983) ((4413 . 5625) (+ 9007199254740992 9007199254740992) -> 18014398509481984) ((4414 . 5625) (+ 9007199254740992 9007199254740993) -> 18014398509481985) ((4415 . 5625) (+ 9007199254740992 9007199254740994) -> 18014398509481986) ((4416 . 5625) (+ 9007199254740993 9007199254740990) -> 18014398509481983) ((4417 . 5625) (+ 9007199254740993 9007199254740991) -> 18014398509481984) ((4418 . 5625) (+ 9007199254740993 9007199254740992) -> 18014398509481985) ((4419 . 5625) (+ 9007199254740993 9007199254740993) -> 18014398509481986) ((4420 . 5625) (+ 9007199254740993 9007199254740994) -> 18014398509481987) ((4421 . 5625) (+ 9007199254740994 9007199254740990) -> 18014398509481984) ((4422 . 5625) (+ 9007199254740994 9007199254740991) -> 18014398509481985) ((4423 . 5625) (+ 9007199254740994 9007199254740992) -> 18014398509481986) ((4424 . 5625) (+ 9007199254740994 9007199254740993) -> 18014398509481987) ((4425 . 5625) (+ 9007199254740994 9007199254740994) -> 18014398509481988) ((4426 . 5625) (+ 9007199254740990 -9007199254740994) -> -4) ((4427 . 5625) (+ 9007199254740990 -9007199254740993) -> -3) ((4428 . 5625) (+ 9007199254740990 -9007199254740992) -> -2) ((4429 . 5625) (+ 9007199254740990 -9007199254740991) -> -1) ((4430 . 5625) (+ 9007199254740990 -9007199254740990) -> 0) ((4431 . 5625) (+ 9007199254740991 -9007199254740994) -> -3) ((4432 . 5625) (+ 9007199254740991 -9007199254740993) -> -2) ((4433 . 5625) (+ 9007199254740991 -9007199254740992) -> -1) ((4434 . 5625) (+ 9007199254740991 -9007199254740991) -> 0) ((4435 . 5625) (+ 9007199254740991 -9007199254740990) -> 1) ((4436 . 5625) (+ 9007199254740992 -9007199254740994) -> -2) ((4437 . 5625) (+ 9007199254740992 -9007199254740993) -> -1) ((4438 . 5625) (+ 9007199254740992 -9007199254740992) -> 0) ((4439 . 5625) (+ 9007199254740992 -9007199254740991) -> 1) ((4440 . 5625) (+ 9007199254740992 -9007199254740990) -> 2) ((4441 . 5625) (+ 9007199254740993 -9007199254740994) -> -1) ((4442 . 5625) (+ 9007199254740993 -9007199254740993) -> 0) ((4443 . 5625) (+ 9007199254740993 -9007199254740992) -> 1) ((4444 . 5625) (+ 9007199254740993 -9007199254740991) -> 2) ((4445 . 5625) (+ 9007199254740993 -9007199254740990) -> 3) ((4446 . 5625) (+ 9007199254740994 -9007199254740994) -> 0) ((4447 . 5625) (+ 9007199254740994 -9007199254740993) -> 1) ((4448 . 5625) (+ 9007199254740994 -9007199254740992) -> 2) ((4449 . 5625) (+ 9007199254740994 -9007199254740991) -> 3) ((4450 . 5625) (+ 9007199254740994 -9007199254740990) -> 4) ((4451 . 5625) (+ 9007199254740990 12343) -> 9007199254753333) ((4452 . 5625) (+ 9007199254740990 12344) -> 9007199254753334) ((4453 . 5625) (+ 9007199254740990 12345) -> 9007199254753335) ((4454 . 5625) (+ 9007199254740990 12346) -> 9007199254753336) ((4455 . 5625) (+ 9007199254740990 12347) -> 9007199254753337) ((4456 . 5625) (+ 9007199254740991 12343) -> 9007199254753334) ((4457 . 5625) (+ 9007199254740991 12344) -> 9007199254753335) ((4458 . 5625) (+ 9007199254740991 12345) -> 9007199254753336) ((4459 . 5625) (+ 9007199254740991 12346) -> 9007199254753337) ((4460 . 5625) (+ 9007199254740991 12347) -> 9007199254753338) ((4461 . 5625) (+ 9007199254740992 12343) -> 9007199254753335) ((4462 . 5625) (+ 9007199254740992 12344) -> 9007199254753336) ((4463 . 5625) (+ 9007199254740992 12345) -> 9007199254753337) ((4464 . 5625) (+ 9007199254740992 12346) -> 9007199254753338) ((4465 . 5625) (+ 9007199254740992 12347) -> 9007199254753339) ((4466 . 5625) (+ 9007199254740993 12343) -> 9007199254753336) ((4467 . 5625) (+ 9007199254740993 12344) -> 9007199254753337) ((4468 . 5625) (+ 9007199254740993 12345) -> 9007199254753338) ((4469 . 5625) (+ 9007199254740993 12346) -> 9007199254753339) ((4470 . 5625) (+ 9007199254740993 12347) -> 9007199254753340) ((4471 . 5625) (+ 9007199254740994 12343) -> 9007199254753337) ((4472 . 5625) (+ 9007199254740994 12344) -> 9007199254753338) ((4473 . 5625) (+ 9007199254740994 12345) -> 9007199254753339) ((4474 . 5625) (+ 9007199254740994 12346) -> 9007199254753340) ((4475 . 5625) (+ 9007199254740994 12347) -> 9007199254753341) ((4476 . 5625) (+ 9007199254740990 4294967294) -> 9007203549708284) ((4477 . 5625) (+ 9007199254740990 4294967295) -> 9007203549708285) ((4478 . 5625) (+ 9007199254740990 4294967296) -> 9007203549708286) ((4479 . 5625) (+ 9007199254740990 4294967297) -> 9007203549708287) ((4480 . 5625) (+ 9007199254740990 4294967298) -> 9007203549708288) ((4481 . 5625) (+ 9007199254740991 4294967294) -> 9007203549708285) ((4482 . 5625) (+ 9007199254740991 4294967295) -> 9007203549708286) ((4483 . 5625) (+ 9007199254740991 4294967296) -> 9007203549708287) ((4484 . 5625) (+ 9007199254740991 4294967297) -> 9007203549708288) ((4485 . 5625) (+ 9007199254740991 4294967298) -> 9007203549708289) ((4486 . 5625) (+ 9007199254740992 4294967294) -> 9007203549708286) ((4487 . 5625) (+ 9007199254740992 4294967295) -> 9007203549708287) ((4488 . 5625) (+ 9007199254740992 4294967296) -> 9007203549708288) ((4489 . 5625) (+ 9007199254740992 4294967297) -> 9007203549708289) ((4490 . 5625) (+ 9007199254740992 4294967298) -> 9007203549708290) ((4491 . 5625) (+ 9007199254740993 4294967294) -> 9007203549708287) ((4492 . 5625) (+ 9007199254740993 4294967295) -> 9007203549708288) ((4493 . 5625) (+ 9007199254740993 4294967296) -> 9007203549708289) ((4494 . 5625) (+ 9007199254740993 4294967297) -> 9007203549708290) ((4495 . 5625) (+ 9007199254740993 4294967298) -> 9007203549708291) ((4496 . 5625) (+ 9007199254740994 4294967294) -> 9007203549708288) ((4497 . 5625) (+ 9007199254740994 4294967295) -> 9007203549708289) ((4498 . 5625) (+ 9007199254740994 4294967296) -> 9007203549708290) ((4499 . 5625) (+ 9007199254740994 4294967297) -> 9007203549708291) ((4500 . 5625) (+ 9007199254740994 4294967298) -> 9007203549708292) ((4501 . 5625) (+ -9007199254740994 -2) -> -9007199254740996) ((4502 . 5625) (+ -9007199254740994 -1) -> -9007199254740995) ((4503 . 5625) (+ -9007199254740994 0) -> -9007199254740994) ((4504 . 5625) (+ -9007199254740994 1) -> -9007199254740993) ((4505 . 5625) (+ -9007199254740994 2) -> -9007199254740992) ((4506 . 5625) (+ -9007199254740993 -2) -> -9007199254740995) ((4507 . 5625) (+ -9007199254740993 -1) -> -9007199254740994) ((4508 . 5625) (+ -9007199254740993 0) -> -9007199254740993) ((4509 . 5625) (+ -9007199254740993 1) -> -9007199254740992) ((4510 . 5625) (+ -9007199254740993 2) -> -9007199254740991) ((4511 . 5625) (+ -9007199254740992 -2) -> -9007199254740994) ((4512 . 5625) (+ -9007199254740992 -1) -> -9007199254740993) ((4513 . 5625) (+ -9007199254740992 0) -> -9007199254740992) ((4514 . 5625) (+ -9007199254740992 1) -> -9007199254740991) ((4515 . 5625) (+ -9007199254740992 2) -> -9007199254740990) ((4516 . 5625) (+ -9007199254740991 -2) -> -9007199254740993) ((4517 . 5625) (+ -9007199254740991 -1) -> -9007199254740992) ((4518 . 5625) (+ -9007199254740991 0) -> -9007199254740991) ((4519 . 5625) (+ -9007199254740991 1) -> -9007199254740990) ((4520 . 5625) (+ -9007199254740991 2) -> -9007199254740989) ((4521 . 5625) (+ -9007199254740990 -2) -> -9007199254740992) ((4522 . 5625) (+ -9007199254740990 -1) -> -9007199254740991) ((4523 . 5625) (+ -9007199254740990 0) -> -9007199254740990) ((4524 . 5625) (+ -9007199254740990 1) -> -9007199254740989) ((4525 . 5625) (+ -9007199254740990 2) -> -9007199254740988) ((4526 . 5625) (+ -9007199254740994 -1) -> -9007199254740995) ((4527 . 5625) (+ -9007199254740994 0) -> -9007199254740994) ((4528 . 5625) (+ -9007199254740994 1) -> -9007199254740993) ((4529 . 5625) (+ -9007199254740994 2) -> -9007199254740992) ((4530 . 5625) (+ -9007199254740994 3) -> -9007199254740991) ((4531 . 5625) (+ -9007199254740993 -1) -> -9007199254740994) ((4532 . 5625) (+ -9007199254740993 0) -> -9007199254740993) ((4533 . 5625) (+ -9007199254740993 1) -> -9007199254740992) ((4534 . 5625) (+ -9007199254740993 2) -> -9007199254740991) ((4535 . 5625) (+ -9007199254740993 3) -> -9007199254740990) ((4536 . 5625) (+ -9007199254740992 -1) -> -9007199254740993) ((4537 . 5625) (+ -9007199254740992 0) -> -9007199254740992) ((4538 . 5625) (+ -9007199254740992 1) -> -9007199254740991) ((4539 . 5625) (+ -9007199254740992 2) -> -9007199254740990) ((4540 . 5625) (+ -9007199254740992 3) -> -9007199254740989) ((4541 . 5625) (+ -9007199254740991 -1) -> -9007199254740992) ((4542 . 5625) (+ -9007199254740991 0) -> -9007199254740991) ((4543 . 5625) (+ -9007199254740991 1) -> -9007199254740990) ((4544 . 5625) (+ -9007199254740991 2) -> -9007199254740989) ((4545 . 5625) (+ -9007199254740991 3) -> -9007199254740988) ((4546 . 5625) (+ -9007199254740990 -1) -> -9007199254740991) ((4547 . 5625) (+ -9007199254740990 0) -> -9007199254740990) ((4548 . 5625) (+ -9007199254740990 1) -> -9007199254740989) ((4549 . 5625) (+ -9007199254740990 2) -> -9007199254740988) ((4550 . 5625) (+ -9007199254740990 3) -> -9007199254740987) ((4551 . 5625) (+ -9007199254740994 -3) -> -9007199254740997) ((4552 . 5625) (+ -9007199254740994 -2) -> -9007199254740996) ((4553 . 5625) (+ -9007199254740994 -1) -> -9007199254740995) ((4554 . 5625) (+ -9007199254740994 0) -> -9007199254740994) ((4555 . 5625) (+ -9007199254740994 1) -> -9007199254740993) ((4556 . 5625) (+ -9007199254740993 -3) -> -9007199254740996) ((4557 . 5625) (+ -9007199254740993 -2) -> -9007199254740995) ((4558 . 5625) (+ -9007199254740993 -1) -> -9007199254740994) ((4559 . 5625) (+ -9007199254740993 0) -> -9007199254740993) ((4560 . 5625) (+ -9007199254740993 1) -> -9007199254740992) ((4561 . 5625) (+ -9007199254740992 -3) -> -9007199254740995) ((4562 . 5625) (+ -9007199254740992 -2) -> -9007199254740994) ((4563 . 5625) (+ -9007199254740992 -1) -> -9007199254740993) ((4564 . 5625) (+ -9007199254740992 0) -> -9007199254740992) ((4565 . 5625) (+ -9007199254740992 1) -> -9007199254740991) ((4566 . 5625) (+ -9007199254740991 -3) -> -9007199254740994) ((4567 . 5625) (+ -9007199254740991 -2) -> -9007199254740993) ((4568 . 5625) (+ -9007199254740991 -1) -> -9007199254740992) ((4569 . 5625) (+ -9007199254740991 0) -> -9007199254740991) ((4570 . 5625) (+ -9007199254740991 1) -> -9007199254740990) ((4571 . 5625) (+ -9007199254740990 -3) -> -9007199254740993) ((4572 . 5625) (+ -9007199254740990 -2) -> -9007199254740992) ((4573 . 5625) (+ -9007199254740990 -1) -> -9007199254740991) ((4574 . 5625) (+ -9007199254740990 0) -> -9007199254740990) ((4575 . 5625) (+ -9007199254740990 1) -> -9007199254740989) ((4576 . 5625) (+ -9007199254740994 0) -> -9007199254740994) ((4577 . 5625) (+ -9007199254740994 1) -> -9007199254740993) ((4578 . 5625) (+ -9007199254740994 2) -> -9007199254740992) ((4579 . 5625) (+ -9007199254740994 3) -> -9007199254740991) ((4580 . 5625) (+ -9007199254740994 4) -> -9007199254740990) ((4581 . 5625) (+ -9007199254740993 0) -> -9007199254740993) ((4582 . 5625) (+ -9007199254740993 1) -> -9007199254740992) ((4583 . 5625) (+ -9007199254740993 2) -> -9007199254740991) ((4584 . 5625) (+ -9007199254740993 3) -> -9007199254740990) ((4585 . 5625) (+ -9007199254740993 4) -> -9007199254740989) ((4586 . 5625) (+ -9007199254740992 0) -> -9007199254740992) ((4587 . 5625) (+ -9007199254740992 1) -> -9007199254740991) ((4588 . 5625) (+ -9007199254740992 2) -> -9007199254740990) ((4589 . 5625) (+ -9007199254740992 3) -> -9007199254740989) ((4590 . 5625) (+ -9007199254740992 4) -> -9007199254740988) ((4591 . 5625) (+ -9007199254740991 0) -> -9007199254740991) ((4592 . 5625) (+ -9007199254740991 1) -> -9007199254740990) ((4593 . 5625) (+ -9007199254740991 2) -> -9007199254740989) ((4594 . 5625) (+ -9007199254740991 3) -> -9007199254740988) ((4595 . 5625) (+ -9007199254740991 4) -> -9007199254740987) ((4596 . 5625) (+ -9007199254740990 0) -> -9007199254740990) ((4597 . 5625) (+ -9007199254740990 1) -> -9007199254740989) ((4598 . 5625) (+ -9007199254740990 2) -> -9007199254740988) ((4599 . 5625) (+ -9007199254740990 3) -> -9007199254740987) ((4600 . 5625) (+ -9007199254740990 4) -> -9007199254740986) ((4601 . 5625) (+ -9007199254740994 -4) -> -9007199254740998) ((4602 . 5625) (+ -9007199254740994 -3) -> -9007199254740997) ((4603 . 5625) (+ -9007199254740994 -2) -> -9007199254740996) ((4604 . 5625) (+ -9007199254740994 -1) -> -9007199254740995) ((4605 . 5625) (+ -9007199254740994 0) -> -9007199254740994) ((4606 . 5625) (+ -9007199254740993 -4) -> -9007199254740997) ((4607 . 5625) (+ -9007199254740993 -3) -> -9007199254740996) ((4608 . 5625) (+ -9007199254740993 -2) -> -9007199254740995) ((4609 . 5625) (+ -9007199254740993 -1) -> -9007199254740994) ((4610 . 5625) (+ -9007199254740993 0) -> -9007199254740993) ((4611 . 5625) (+ -9007199254740992 -4) -> -9007199254740996) ((4612 . 5625) (+ -9007199254740992 -3) -> -9007199254740995) ((4613 . 5625) (+ -9007199254740992 -2) -> -9007199254740994) ((4614 . 5625) (+ -9007199254740992 -1) -> -9007199254740993) ((4615 . 5625) (+ -9007199254740992 0) -> -9007199254740992) ((4616 . 5625) (+ -9007199254740991 -4) -> -9007199254740995) ((4617 . 5625) (+ -9007199254740991 -3) -> -9007199254740994) ((4618 . 5625) (+ -9007199254740991 -2) -> -9007199254740993) ((4619 . 5625) (+ -9007199254740991 -1) -> -9007199254740992) ((4620 . 5625) (+ -9007199254740991 0) -> -9007199254740991) ((4621 . 5625) (+ -9007199254740990 -4) -> -9007199254740994) ((4622 . 5625) (+ -9007199254740990 -3) -> -9007199254740993) ((4623 . 5625) (+ -9007199254740990 -2) -> -9007199254740992) ((4624 . 5625) (+ -9007199254740990 -1) -> -9007199254740991) ((4625 . 5625) (+ -9007199254740990 0) -> -9007199254740990) ((4626 . 5625) (+ -9007199254740994 4611686018427387901) -> 4602678819172646907) ((4627 . 5625) (+ -9007199254740994 4611686018427387902) -> 4602678819172646908) ((4628 . 5625) (+ -9007199254740994 4611686018427387903) -> 4602678819172646909) ((4629 . 5625) (+ -9007199254740994 4611686018427387904) -> 4602678819172646910) ((4630 . 5625) (+ -9007199254740994 4611686018427387905) -> 4602678819172646911) ((4631 . 5625) (+ -9007199254740993 4611686018427387901) -> 4602678819172646908) ((4632 . 5625) (+ -9007199254740993 4611686018427387902) -> 4602678819172646909) ((4633 . 5625) (+ -9007199254740993 4611686018427387903) -> 4602678819172646910) ((4634 . 5625) (+ -9007199254740993 4611686018427387904) -> 4602678819172646911) ((4635 . 5625) (+ -9007199254740993 4611686018427387905) -> 4602678819172646912) ((4636 . 5625) (+ -9007199254740992 4611686018427387901) -> 4602678819172646909) ((4637 . 5625) (+ -9007199254740992 4611686018427387902) -> 4602678819172646910) ((4638 . 5625) (+ -9007199254740992 4611686018427387903) -> 4602678819172646911) ((4639 . 5625) (+ -9007199254740992 4611686018427387904) -> 4602678819172646912) ((4640 . 5625) (+ -9007199254740992 4611686018427387905) -> 4602678819172646913) ((4641 . 5625) (+ -9007199254740991 4611686018427387901) -> 4602678819172646910) ((4642 . 5625) (+ -9007199254740991 4611686018427387902) -> 4602678819172646911) ((4643 . 5625) (+ -9007199254740991 4611686018427387903) -> 4602678819172646912) ((4644 . 5625) (+ -9007199254740991 4611686018427387904) -> 4602678819172646913) ((4645 . 5625) (+ -9007199254740991 4611686018427387905) -> 4602678819172646914) ((4646 . 5625) (+ -9007199254740990 4611686018427387901) -> 4602678819172646911) ((4647 . 5625) (+ -9007199254740990 4611686018427387902) -> 4602678819172646912) ((4648 . 5625) (+ -9007199254740990 4611686018427387903) -> 4602678819172646913) ((4649 . 5625) (+ -9007199254740990 4611686018427387904) -> 4602678819172646914) ((4650 . 5625) (+ -9007199254740990 4611686018427387905) -> 4602678819172646915) ((4651 . 5625) (+ -9007199254740994 -4611686018427387906) -> -4620693217682128900) ((4652 . 5625) (+ -9007199254740994 -4611686018427387905) -> -4620693217682128899) ((4653 . 5625) (+ -9007199254740994 -4611686018427387904) -> -4620693217682128898) ((4654 . 5625) (+ -9007199254740994 -4611686018427387903) -> -4620693217682128897) ((4655 . 5625) (+ -9007199254740994 -4611686018427387902) -> -4620693217682128896) ((4656 . 5625) (+ -9007199254740993 -4611686018427387906) -> -4620693217682128899) ((4657 . 5625) (+ -9007199254740993 -4611686018427387905) -> -4620693217682128898) ((4658 . 5625) (+ -9007199254740993 -4611686018427387904) -> -4620693217682128897) ((4659 . 5625) (+ -9007199254740993 -4611686018427387903) -> -4620693217682128896) ((4660 . 5625) (+ -9007199254740993 -4611686018427387902) -> -4620693217682128895) ((4661 . 5625) (+ -9007199254740992 -4611686018427387906) -> -4620693217682128898) ((4662 . 5625) (+ -9007199254740992 -4611686018427387905) -> -4620693217682128897) ((4663 . 5625) (+ -9007199254740992 -4611686018427387904) -> -4620693217682128896) ((4664 . 5625) (+ -9007199254740992 -4611686018427387903) -> -4620693217682128895) ((4665 . 5625) (+ -9007199254740992 -4611686018427387902) -> -4620693217682128894) ((4666 . 5625) (+ -9007199254740991 -4611686018427387906) -> -4620693217682128897) ((4667 . 5625) (+ -9007199254740991 -4611686018427387905) -> -4620693217682128896) ((4668 . 5625) (+ -9007199254740991 -4611686018427387904) -> -4620693217682128895) ((4669 . 5625) (+ -9007199254740991 -4611686018427387903) -> -4620693217682128894) ((4670 . 5625) (+ -9007199254740991 -4611686018427387902) -> -4620693217682128893) ((4671 . 5625) (+ -9007199254740990 -4611686018427387906) -> -4620693217682128896) ((4672 . 5625) (+ -9007199254740990 -4611686018427387905) -> -4620693217682128895) ((4673 . 5625) (+ -9007199254740990 -4611686018427387904) -> -4620693217682128894) ((4674 . 5625) (+ -9007199254740990 -4611686018427387903) -> -4620693217682128893) ((4675 . 5625) (+ -9007199254740990 -4611686018427387902) -> -4620693217682128892) ((4676 . 5625) (+ -9007199254740994 4611686018427387902) -> 4602678819172646908) ((4677 . 5625) (+ -9007199254740994 4611686018427387903) -> 4602678819172646909) ((4678 . 5625) (+ -9007199254740994 4611686018427387904) -> 4602678819172646910) ((4679 . 5625) (+ -9007199254740994 4611686018427387905) -> 4602678819172646911) ((4680 . 5625) (+ -9007199254740994 4611686018427387906) -> 4602678819172646912) ((4681 . 5625) (+ -9007199254740993 4611686018427387902) -> 4602678819172646909) ((4682 . 5625) (+ -9007199254740993 4611686018427387903) -> 4602678819172646910) ((4683 . 5625) (+ -9007199254740993 4611686018427387904) -> 4602678819172646911) ((4684 . 5625) (+ -9007199254740993 4611686018427387905) -> 4602678819172646912) ((4685 . 5625) (+ -9007199254740993 4611686018427387906) -> 4602678819172646913) ((4686 . 5625) (+ -9007199254740992 4611686018427387902) -> 4602678819172646910) ((4687 . 5625) (+ -9007199254740992 4611686018427387903) -> 4602678819172646911) ((4688 . 5625) (+ -9007199254740992 4611686018427387904) -> 4602678819172646912) ((4689 . 5625) (+ -9007199254740992 4611686018427387905) -> 4602678819172646913) ((4690 . 5625) (+ -9007199254740992 4611686018427387906) -> 4602678819172646914) ((4691 . 5625) (+ -9007199254740991 4611686018427387902) -> 4602678819172646911) ((4692 . 5625) (+ -9007199254740991 4611686018427387903) -> 4602678819172646912) ((4693 . 5625) (+ -9007199254740991 4611686018427387904) -> 4602678819172646913) ((4694 . 5625) (+ -9007199254740991 4611686018427387905) -> 4602678819172646914) ((4695 . 5625) (+ -9007199254740991 4611686018427387906) -> 4602678819172646915) ((4696 . 5625) (+ -9007199254740990 4611686018427387902) -> 4602678819172646912) ((4697 . 5625) (+ -9007199254740990 4611686018427387903) -> 4602678819172646913) ((4698 . 5625) (+ -9007199254740990 4611686018427387904) -> 4602678819172646914) ((4699 . 5625) (+ -9007199254740990 4611686018427387905) -> 4602678819172646915) ((4700 . 5625) (+ -9007199254740990 4611686018427387906) -> 4602678819172646916) ((4701 . 5625) (+ -9007199254740994 -4611686018427387907) -> -4620693217682128901) ((4702 . 5625) (+ -9007199254740994 -4611686018427387906) -> -4620693217682128900) ((4703 . 5625) (+ -9007199254740994 -4611686018427387905) -> -4620693217682128899) ((4704 . 5625) (+ -9007199254740994 -4611686018427387904) -> -4620693217682128898) ((4705 . 5625) (+ -9007199254740994 -4611686018427387903) -> -4620693217682128897) ((4706 . 5625) (+ -9007199254740993 -4611686018427387907) -> -4620693217682128900) ((4707 . 5625) (+ -9007199254740993 -4611686018427387906) -> -4620693217682128899) ((4708 . 5625) (+ -9007199254740993 -4611686018427387905) -> -4620693217682128898) ((4709 . 5625) (+ -9007199254740993 -4611686018427387904) -> -4620693217682128897) ((4710 . 5625) (+ -9007199254740993 -4611686018427387903) -> -4620693217682128896) ((4711 . 5625) (+ -9007199254740992 -4611686018427387907) -> -4620693217682128899) ((4712 . 5625) (+ -9007199254740992 -4611686018427387906) -> -4620693217682128898) ((4713 . 5625) (+ -9007199254740992 -4611686018427387905) -> -4620693217682128897) ((4714 . 5625) (+ -9007199254740992 -4611686018427387904) -> -4620693217682128896) ((4715 . 5625) (+ -9007199254740992 -4611686018427387903) -> -4620693217682128895) ((4716 . 5625) (+ -9007199254740991 -4611686018427387907) -> -4620693217682128898) ((4717 . 5625) (+ -9007199254740991 -4611686018427387906) -> -4620693217682128897) ((4718 . 5625) (+ -9007199254740991 -4611686018427387905) -> -4620693217682128896) ((4719 . 5625) (+ -9007199254740991 -4611686018427387904) -> -4620693217682128895) ((4720 . 5625) (+ -9007199254740991 -4611686018427387903) -> -4620693217682128894) ((4721 . 5625) (+ -9007199254740990 -4611686018427387907) -> -4620693217682128897) ((4722 . 5625) (+ -9007199254740990 -4611686018427387906) -> -4620693217682128896) ((4723 . 5625) (+ -9007199254740990 -4611686018427387905) -> -4620693217682128895) ((4724 . 5625) (+ -9007199254740990 -4611686018427387904) -> -4620693217682128894) ((4725 . 5625) (+ -9007199254740990 -4611686018427387903) -> -4620693217682128893) ((4726 . 5625) (+ -9007199254740994 1103515243) -> -9007198151225751) ((4727 . 5625) (+ -9007199254740994 1103515244) -> -9007198151225750) ((4728 . 5625) (+ -9007199254740994 1103515245) -> -9007198151225749) ((4729 . 5625) (+ -9007199254740994 1103515246) -> -9007198151225748) ((4730 . 5625) (+ -9007199254740994 1103515247) -> -9007198151225747) ((4731 . 5625) (+ -9007199254740993 1103515243) -> -9007198151225750) ((4732 . 5625) (+ -9007199254740993 1103515244) -> -9007198151225749) ((4733 . 5625) (+ -9007199254740993 1103515245) -> -9007198151225748) ((4734 . 5625) (+ -9007199254740993 1103515246) -> -9007198151225747) ((4735 . 5625) (+ -9007199254740993 1103515247) -> -9007198151225746) ((4736 . 5625) (+ -9007199254740992 1103515243) -> -9007198151225749) ((4737 . 5625) (+ -9007199254740992 1103515244) -> -9007198151225748) ((4738 . 5625) (+ -9007199254740992 1103515245) -> -9007198151225747) ((4739 . 5625) (+ -9007199254740992 1103515246) -> -9007198151225746) ((4740 . 5625) (+ -9007199254740992 1103515247) -> -9007198151225745) ((4741 . 5625) (+ -9007199254740991 1103515243) -> -9007198151225748) ((4742 . 5625) (+ -9007199254740991 1103515244) -> -9007198151225747) ((4743 . 5625) (+ -9007199254740991 1103515245) -> -9007198151225746) ((4744 . 5625) (+ -9007199254740991 1103515246) -> -9007198151225745) ((4745 . 5625) (+ -9007199254740991 1103515247) -> -9007198151225744) ((4746 . 5625) (+ -9007199254740990 1103515243) -> -9007198151225747) ((4747 . 5625) (+ -9007199254740990 1103515244) -> -9007198151225746) ((4748 . 5625) (+ -9007199254740990 1103515245) -> -9007198151225745) ((4749 . 5625) (+ -9007199254740990 1103515246) -> -9007198151225744) ((4750 . 5625) (+ -9007199254740990 1103515247) -> -9007198151225743) ((4751 . 5625) (+ -9007199254740994 631629063) -> -9007198623111931) ((4752 . 5625) (+ -9007199254740994 631629064) -> -9007198623111930) ((4753 . 5625) (+ -9007199254740994 631629065) -> -9007198623111929) ((4754 . 5625) (+ -9007199254740994 631629066) -> -9007198623111928) ((4755 . 5625) (+ -9007199254740994 631629067) -> -9007198623111927) ((4756 . 5625) (+ -9007199254740993 631629063) -> -9007198623111930) ((4757 . 5625) (+ -9007199254740993 631629064) -> -9007198623111929) ((4758 . 5625) (+ -9007199254740993 631629065) -> -9007198623111928) ((4759 . 5625) (+ -9007199254740993 631629066) -> -9007198623111927) ((4760 . 5625) (+ -9007199254740993 631629067) -> -9007198623111926) ((4761 . 5625) (+ -9007199254740992 631629063) -> -9007198623111929) ((4762 . 5625) (+ -9007199254740992 631629064) -> -9007198623111928) ((4763 . 5625) (+ -9007199254740992 631629065) -> -9007198623111927) ((4764 . 5625) (+ -9007199254740992 631629066) -> -9007198623111926) ((4765 . 5625) (+ -9007199254740992 631629067) -> -9007198623111925) ((4766 . 5625) (+ -9007199254740991 631629063) -> -9007198623111928) ((4767 . 5625) (+ -9007199254740991 631629064) -> -9007198623111927) ((4768 . 5625) (+ -9007199254740991 631629065) -> -9007198623111926) ((4769 . 5625) (+ -9007199254740991 631629066) -> -9007198623111925) ((4770 . 5625) (+ -9007199254740991 631629067) -> -9007198623111924) ((4771 . 5625) (+ -9007199254740990 631629063) -> -9007198623111927) ((4772 . 5625) (+ -9007199254740990 631629064) -> -9007198623111926) ((4773 . 5625) (+ -9007199254740990 631629065) -> -9007198623111925) ((4774 . 5625) (+ -9007199254740990 631629066) -> -9007198623111924) ((4775 . 5625) (+ -9007199254740990 631629067) -> -9007198623111923) ((4776 . 5625) (+ -9007199254740994 9007199254740990) -> -4) ((4777 . 5625) (+ -9007199254740994 9007199254740991) -> -3) ((4778 . 5625) (+ -9007199254740994 9007199254740992) -> -2) ((4779 . 5625) (+ -9007199254740994 9007199254740993) -> -1) ((4780 . 5625) (+ -9007199254740994 9007199254740994) -> 0) ((4781 . 5625) (+ -9007199254740993 9007199254740990) -> -3) ((4782 . 5625) (+ -9007199254740993 9007199254740991) -> -2) ((4783 . 5625) (+ -9007199254740993 9007199254740992) -> -1) ((4784 . 5625) (+ -9007199254740993 9007199254740993) -> 0) ((4785 . 5625) (+ -9007199254740993 9007199254740994) -> 1) ((4786 . 5625) (+ -9007199254740992 9007199254740990) -> -2) ((4787 . 5625) (+ -9007199254740992 9007199254740991) -> -1) ((4788 . 5625) (+ -9007199254740992 9007199254740992) -> 0) ((4789 . 5625) (+ -9007199254740992 9007199254740993) -> 1) ((4790 . 5625) (+ -9007199254740992 9007199254740994) -> 2) ((4791 . 5625) (+ -9007199254740991 9007199254740990) -> -1) ((4792 . 5625) (+ -9007199254740991 9007199254740991) -> 0) ((4793 . 5625) (+ -9007199254740991 9007199254740992) -> 1) ((4794 . 5625) (+ -9007199254740991 9007199254740993) -> 2) ((4795 . 5625) (+ -9007199254740991 9007199254740994) -> 3) ((4796 . 5625) (+ -9007199254740990 9007199254740990) -> 0) ((4797 . 5625) (+ -9007199254740990 9007199254740991) -> 1) ((4798 . 5625) (+ -9007199254740990 9007199254740992) -> 2) ((4799 . 5625) (+ -9007199254740990 9007199254740993) -> 3) ((4800 . 5625) (+ -9007199254740990 9007199254740994) -> 4) ((4801 . 5625) (+ -9007199254740994 -9007199254740994) -> -18014398509481988) ((4802 . 5625) (+ -9007199254740994 -9007199254740993) -> -18014398509481987) ((4803 . 5625) (+ -9007199254740994 -9007199254740992) -> -18014398509481986) ((4804 . 5625) (+ -9007199254740994 -9007199254740991) -> -18014398509481985) ((4805 . 5625) (+ -9007199254740994 -9007199254740990) -> -18014398509481984) ((4806 . 5625) (+ -9007199254740993 -9007199254740994) -> -18014398509481987) ((4807 . 5625) (+ -9007199254740993 -9007199254740993) -> -18014398509481986) ((4808 . 5625) (+ -9007199254740993 -9007199254740992) -> -18014398509481985) ((4809 . 5625) (+ -9007199254740993 -9007199254740991) -> -18014398509481984) ((4810 . 5625) (+ -9007199254740993 -9007199254740990) -> -18014398509481983) ((4811 . 5625) (+ -9007199254740992 -9007199254740994) -> -18014398509481986) ((4812 . 5625) (+ -9007199254740992 -9007199254740993) -> -18014398509481985) ((4813 . 5625) (+ -9007199254740992 -9007199254740992) -> -18014398509481984) ((4814 . 5625) (+ -9007199254740992 -9007199254740991) -> -18014398509481983) ((4815 . 5625) (+ -9007199254740992 -9007199254740990) -> -18014398509481982) ((4816 . 5625) (+ -9007199254740991 -9007199254740994) -> -18014398509481985) ((4817 . 5625) (+ -9007199254740991 -9007199254740993) -> -18014398509481984) ((4818 . 5625) (+ -9007199254740991 -9007199254740992) -> -18014398509481983) ((4819 . 5625) (+ -9007199254740991 -9007199254740991) -> -18014398509481982) ((4820 . 5625) (+ -9007199254740991 -9007199254740990) -> -18014398509481981) ((4821 . 5625) (+ -9007199254740990 -9007199254740994) -> -18014398509481984) ((4822 . 5625) (+ -9007199254740990 -9007199254740993) -> -18014398509481983) ((4823 . 5625) (+ -9007199254740990 -9007199254740992) -> -18014398509481982) ((4824 . 5625) (+ -9007199254740990 -9007199254740991) -> -18014398509481981) ((4825 . 5625) (+ -9007199254740990 -9007199254740990) -> -18014398509481980) ((4826 . 5625) (+ -9007199254740994 12343) -> -9007199254728651) ((4827 . 5625) (+ -9007199254740994 12344) -> -9007199254728650) ((4828 . 5625) (+ -9007199254740994 12345) -> -9007199254728649) ((4829 . 5625) (+ -9007199254740994 12346) -> -9007199254728648) ((4830 . 5625) (+ -9007199254740994 12347) -> -9007199254728647) ((4831 . 5625) (+ -9007199254740993 12343) -> -9007199254728650) ((4832 . 5625) (+ -9007199254740993 12344) -> -9007199254728649) ((4833 . 5625) (+ -9007199254740993 12345) -> -9007199254728648) ((4834 . 5625) (+ -9007199254740993 12346) -> -9007199254728647) ((4835 . 5625) (+ -9007199254740993 12347) -> -9007199254728646) ((4836 . 5625) (+ -9007199254740992 12343) -> -9007199254728649) ((4837 . 5625) (+ -9007199254740992 12344) -> -9007199254728648) ((4838 . 5625) (+ -9007199254740992 12345) -> -9007199254728647) ((4839 . 5625) (+ -9007199254740992 12346) -> -9007199254728646) ((4840 . 5625) (+ -9007199254740992 12347) -> -9007199254728645) ((4841 . 5625) (+ -9007199254740991 12343) -> -9007199254728648) ((4842 . 5625) (+ -9007199254740991 12344) -> -9007199254728647) ((4843 . 5625) (+ -9007199254740991 12345) -> -9007199254728646) ((4844 . 5625) (+ -9007199254740991 12346) -> -9007199254728645) ((4845 . 5625) (+ -9007199254740991 12347) -> -9007199254728644) ((4846 . 5625) (+ -9007199254740990 12343) -> -9007199254728647) ((4847 . 5625) (+ -9007199254740990 12344) -> -9007199254728646) ((4848 . 5625) (+ -9007199254740990 12345) -> -9007199254728645) ((4849 . 5625) (+ -9007199254740990 12346) -> -9007199254728644) ((4850 . 5625) (+ -9007199254740990 12347) -> -9007199254728643) ((4851 . 5625) (+ -9007199254740994 4294967294) -> -9007194959773700) ((4852 . 5625) (+ -9007199254740994 4294967295) -> -9007194959773699) ((4853 . 5625) (+ -9007199254740994 4294967296) -> -9007194959773698) ((4854 . 5625) (+ -9007199254740994 4294967297) -> -9007194959773697) ((4855 . 5625) (+ -9007199254740994 4294967298) -> -9007194959773696) ((4856 . 5625) (+ -9007199254740993 4294967294) -> -9007194959773699) ((4857 . 5625) (+ -9007199254740993 4294967295) -> -9007194959773698) ((4858 . 5625) (+ -9007199254740993 4294967296) -> -9007194959773697) ((4859 . 5625) (+ -9007199254740993 4294967297) -> -9007194959773696) ((4860 . 5625) (+ -9007199254740993 4294967298) -> -9007194959773695) ((4861 . 5625) (+ -9007199254740992 4294967294) -> -9007194959773698) ((4862 . 5625) (+ -9007199254740992 4294967295) -> -9007194959773697) ((4863 . 5625) (+ -9007199254740992 4294967296) -> -9007194959773696) ((4864 . 5625) (+ -9007199254740992 4294967297) -> -9007194959773695) ((4865 . 5625) (+ -9007199254740992 4294967298) -> -9007194959773694) ((4866 . 5625) (+ -9007199254740991 4294967294) -> -9007194959773697) ((4867 . 5625) (+ -9007199254740991 4294967295) -> -9007194959773696) ((4868 . 5625) (+ -9007199254740991 4294967296) -> -9007194959773695) ((4869 . 5625) (+ -9007199254740991 4294967297) -> -9007194959773694) ((4870 . 5625) (+ -9007199254740991 4294967298) -> -9007194959773693) ((4871 . 5625) (+ -9007199254740990 4294967294) -> -9007194959773696) ((4872 . 5625) (+ -9007199254740990 4294967295) -> -9007194959773695) ((4873 . 5625) (+ -9007199254740990 4294967296) -> -9007194959773694) ((4874 . 5625) (+ -9007199254740990 4294967297) -> -9007194959773693) ((4875 . 5625) (+ -9007199254740990 4294967298) -> -9007194959773692) ((4876 . 5625) (+ 12343 -2) -> 12341) ((4877 . 5625) (+ 12343 -1) -> 12342) ((4878 . 5625) (+ 12343 0) -> 12343) ((4879 . 5625) (+ 12343 1) -> 12344) ((4880 . 5625) (+ 12343 2) -> 12345) ((4881 . 5625) (+ 12344 -2) -> 12342) ((4882 . 5625) (+ 12344 -1) -> 12343) ((4883 . 5625) (+ 12344 0) -> 12344) ((4884 . 5625) (+ 12344 1) -> 12345) ((4885 . 5625) (+ 12344 2) -> 12346) ((4886 . 5625) (+ 12345 -2) -> 12343) ((4887 . 5625) (+ 12345 -1) -> 12344) ((4888 . 5625) (+ 12345 0) -> 12345) ((4889 . 5625) (+ 12345 1) -> 12346) ((4890 . 5625) (+ 12345 2) -> 12347) ((4891 . 5625) (+ 12346 -2) -> 12344) ((4892 . 5625) (+ 12346 -1) -> 12345) ((4893 . 5625) (+ 12346 0) -> 12346) ((4894 . 5625) (+ 12346 1) -> 12347) ((4895 . 5625) (+ 12346 2) -> 12348) ((4896 . 5625) (+ 12347 -2) -> 12345) ((4897 . 5625) (+ 12347 -1) -> 12346) ((4898 . 5625) (+ 12347 0) -> 12347) ((4899 . 5625) (+ 12347 1) -> 12348) ((4900 . 5625) (+ 12347 2) -> 12349) ((4901 . 5625) (+ 12343 -1) -> 12342) ((4902 . 5625) (+ 12343 0) -> 12343) ((4903 . 5625) (+ 12343 1) -> 12344) ((4904 . 5625) (+ 12343 2) -> 12345) ((4905 . 5625) (+ 12343 3) -> 12346) ((4906 . 5625) (+ 12344 -1) -> 12343) ((4907 . 5625) (+ 12344 0) -> 12344) ((4908 . 5625) (+ 12344 1) -> 12345) ((4909 . 5625) (+ 12344 2) -> 12346) ((4910 . 5625) (+ 12344 3) -> 12347) ((4911 . 5625) (+ 12345 -1) -> 12344) ((4912 . 5625) (+ 12345 0) -> 12345) ((4913 . 5625) (+ 12345 1) -> 12346) ((4914 . 5625) (+ 12345 2) -> 12347) ((4915 . 5625) (+ 12345 3) -> 12348) ((4916 . 5625) (+ 12346 -1) -> 12345) ((4917 . 5625) (+ 12346 0) -> 12346) ((4918 . 5625) (+ 12346 1) -> 12347) ((4919 . 5625) (+ 12346 2) -> 12348) ((4920 . 5625) (+ 12346 3) -> 12349) ((4921 . 5625) (+ 12347 -1) -> 12346) ((4922 . 5625) (+ 12347 0) -> 12347) ((4923 . 5625) (+ 12347 1) -> 12348) ((4924 . 5625) (+ 12347 2) -> 12349) ((4925 . 5625) (+ 12347 3) -> 12350) ((4926 . 5625) (+ 12343 -3) -> 12340) ((4927 . 5625) (+ 12343 -2) -> 12341) ((4928 . 5625) (+ 12343 -1) -> 12342) ((4929 . 5625) (+ 12343 0) -> 12343) ((4930 . 5625) (+ 12343 1) -> 12344) ((4931 . 5625) (+ 12344 -3) -> 12341) ((4932 . 5625) (+ 12344 -2) -> 12342) ((4933 . 5625) (+ 12344 -1) -> 12343) ((4934 . 5625) (+ 12344 0) -> 12344) ((4935 . 5625) (+ 12344 1) -> 12345) ((4936 . 5625) (+ 12345 -3) -> 12342) ((4937 . 5625) (+ 12345 -2) -> 12343) ((4938 . 5625) (+ 12345 -1) -> 12344) ((4939 . 5625) (+ 12345 0) -> 12345) ((4940 . 5625) (+ 12345 1) -> 12346) ((4941 . 5625) (+ 12346 -3) -> 12343) ((4942 . 5625) (+ 12346 -2) -> 12344) ((4943 . 5625) (+ 12346 -1) -> 12345) ((4944 . 5625) (+ 12346 0) -> 12346) ((4945 . 5625) (+ 12346 1) -> 12347) ((4946 . 5625) (+ 12347 -3) -> 12344) ((4947 . 5625) (+ 12347 -2) -> 12345) ((4948 . 5625) (+ 12347 -1) -> 12346) ((4949 . 5625) (+ 12347 0) -> 12347) ((4950 . 5625) (+ 12347 1) -> 12348) ((4951 . 5625) (+ 12343 0) -> 12343) ((4952 . 5625) (+ 12343 1) -> 12344) ((4953 . 5625) (+ 12343 2) -> 12345) ((4954 . 5625) (+ 12343 3) -> 12346) ((4955 . 5625) (+ 12343 4) -> 12347) ((4956 . 5625) (+ 12344 0) -> 12344) ((4957 . 5625) (+ 12344 1) -> 12345) ((4958 . 5625) (+ 12344 2) -> 12346) ((4959 . 5625) (+ 12344 3) -> 12347) ((4960 . 5625) (+ 12344 4) -> 12348) ((4961 . 5625) (+ 12345 0) -> 12345) ((4962 . 5625) (+ 12345 1) -> 12346) ((4963 . 5625) (+ 12345 2) -> 12347) ((4964 . 5625) (+ 12345 3) -> 12348) ((4965 . 5625) (+ 12345 4) -> 12349) ((4966 . 5625) (+ 12346 0) -> 12346) ((4967 . 5625) (+ 12346 1) -> 12347) ((4968 . 5625) (+ 12346 2) -> 12348) ((4969 . 5625) (+ 12346 3) -> 12349) ((4970 . 5625) (+ 12346 4) -> 12350) ((4971 . 5625) (+ 12347 0) -> 12347) ((4972 . 5625) (+ 12347 1) -> 12348) ((4973 . 5625) (+ 12347 2) -> 12349) ((4974 . 5625) (+ 12347 3) -> 12350) ((4975 . 5625) (+ 12347 4) -> 12351) ((4976 . 5625) (+ 12343 -4) -> 12339) ((4977 . 5625) (+ 12343 -3) -> 12340) ((4978 . 5625) (+ 12343 -2) -> 12341) ((4979 . 5625) (+ 12343 -1) -> 12342) ((4980 . 5625) (+ 12343 0) -> 12343) ((4981 . 5625) (+ 12344 -4) -> 12340) ((4982 . 5625) (+ 12344 -3) -> 12341) ((4983 . 5625) (+ 12344 -2) -> 12342) ((4984 . 5625) (+ 12344 -1) -> 12343) ((4985 . 5625) (+ 12344 0) -> 12344) ((4986 . 5625) (+ 12345 -4) -> 12341) ((4987 . 5625) (+ 12345 -3) -> 12342) ((4988 . 5625) (+ 12345 -2) -> 12343) ((4989 . 5625) (+ 12345 -1) -> 12344) ((4990 . 5625) (+ 12345 0) -> 12345) ((4991 . 5625) (+ 12346 -4) -> 12342) ((4992 . 5625) (+ 12346 -3) -> 12343) ((4993 . 5625) (+ 12346 -2) -> 12344) ((4994 . 5625) (+ 12346 -1) -> 12345) ((4995 . 5625) (+ 12346 0) -> 12346) ((4996 . 5625) (+ 12347 -4) -> 12343) ((4997 . 5625) (+ 12347 -3) -> 12344) ((4998 . 5625) (+ 12347 -2) -> 12345) ((4999 . 5625) (+ 12347 -1) -> 12346) ((5000 . 5625) (+ 12347 0) -> 12347) ((5001 . 5625) (+ 12343 4611686018427387901) -> 4611686018427400244) ((5002 . 5625) (+ 12343 4611686018427387902) -> 4611686018427400245) ((5003 . 5625) (+ 12343 4611686018427387903) -> 4611686018427400246) ((5004 . 5625) (+ 12343 4611686018427387904) -> 4611686018427400247) ((5005 . 5625) (+ 12343 4611686018427387905) -> 4611686018427400248) ((5006 . 5625) (+ 12344 4611686018427387901) -> 4611686018427400245) ((5007 . 5625) (+ 12344 4611686018427387902) -> 4611686018427400246) ((5008 . 5625) (+ 12344 4611686018427387903) -> 4611686018427400247) ((5009 . 5625) (+ 12344 4611686018427387904) -> 4611686018427400248) ((5010 . 5625) (+ 12344 4611686018427387905) -> 4611686018427400249) ((5011 . 5625) (+ 12345 4611686018427387901) -> 4611686018427400246) ((5012 . 5625) (+ 12345 4611686018427387902) -> 4611686018427400247) ((5013 . 5625) (+ 12345 4611686018427387903) -> 4611686018427400248) ((5014 . 5625) (+ 12345 4611686018427387904) -> 4611686018427400249) ((5015 . 5625) (+ 12345 4611686018427387905) -> 4611686018427400250) ((5016 . 5625) (+ 12346 4611686018427387901) -> 4611686018427400247) ((5017 . 5625) (+ 12346 4611686018427387902) -> 4611686018427400248) ((5018 . 5625) (+ 12346 4611686018427387903) -> 4611686018427400249) ((5019 . 5625) (+ 12346 4611686018427387904) -> 4611686018427400250) ((5020 . 5625) (+ 12346 4611686018427387905) -> 4611686018427400251) ((5021 . 5625) (+ 12347 4611686018427387901) -> 4611686018427400248) ((5022 . 5625) (+ 12347 4611686018427387902) -> 4611686018427400249) ((5023 . 5625) (+ 12347 4611686018427387903) -> 4611686018427400250) ((5024 . 5625) (+ 12347 4611686018427387904) -> 4611686018427400251) ((5025 . 5625) (+ 12347 4611686018427387905) -> 4611686018427400252) ((5026 . 5625) (+ 12343 -4611686018427387906) -> -4611686018427375563) ((5027 . 5625) (+ 12343 -4611686018427387905) -> -4611686018427375562) ((5028 . 5625) (+ 12343 -4611686018427387904) -> -4611686018427375561) ((5029 . 5625) (+ 12343 -4611686018427387903) -> -4611686018427375560) ((5030 . 5625) (+ 12343 -4611686018427387902) -> -4611686018427375559) ((5031 . 5625) (+ 12344 -4611686018427387906) -> -4611686018427375562) ((5032 . 5625) (+ 12344 -4611686018427387905) -> -4611686018427375561) ((5033 . 5625) (+ 12344 -4611686018427387904) -> -4611686018427375560) ((5034 . 5625) (+ 12344 -4611686018427387903) -> -4611686018427375559) ((5035 . 5625) (+ 12344 -4611686018427387902) -> -4611686018427375558) ((5036 . 5625) (+ 12345 -4611686018427387906) -> -4611686018427375561) ((5037 . 5625) (+ 12345 -4611686018427387905) -> -4611686018427375560) ((5038 . 5625) (+ 12345 -4611686018427387904) -> -4611686018427375559) ((5039 . 5625) (+ 12345 -4611686018427387903) -> -4611686018427375558) ((5040 . 5625) (+ 12345 -4611686018427387902) -> -4611686018427375557) ((5041 . 5625) (+ 12346 -4611686018427387906) -> -4611686018427375560) ((5042 . 5625) (+ 12346 -4611686018427387905) -> -4611686018427375559) ((5043 . 5625) (+ 12346 -4611686018427387904) -> -4611686018427375558) ((5044 . 5625) (+ 12346 -4611686018427387903) -> -4611686018427375557) ((5045 . 5625) (+ 12346 -4611686018427387902) -> -4611686018427375556) ((5046 . 5625) (+ 12347 -4611686018427387906) -> -4611686018427375559) ((5047 . 5625) (+ 12347 -4611686018427387905) -> -4611686018427375558) ((5048 . 5625) (+ 12347 -4611686018427387904) -> -4611686018427375557) ((5049 . 5625) (+ 12347 -4611686018427387903) -> -4611686018427375556) ((5050 . 5625) (+ 12347 -4611686018427387902) -> -4611686018427375555) ((5051 . 5625) (+ 12343 4611686018427387902) -> 4611686018427400245) ((5052 . 5625) (+ 12343 4611686018427387903) -> 4611686018427400246) ((5053 . 5625) (+ 12343 4611686018427387904) -> 4611686018427400247) ((5054 . 5625) (+ 12343 4611686018427387905) -> 4611686018427400248) ((5055 . 5625) (+ 12343 4611686018427387906) -> 4611686018427400249) ((5056 . 5625) (+ 12344 4611686018427387902) -> 4611686018427400246) ((5057 . 5625) (+ 12344 4611686018427387903) -> 4611686018427400247) ((5058 . 5625) (+ 12344 4611686018427387904) -> 4611686018427400248) ((5059 . 5625) (+ 12344 4611686018427387905) -> 4611686018427400249) ((5060 . 5625) (+ 12344 4611686018427387906) -> 4611686018427400250) ((5061 . 5625) (+ 12345 4611686018427387902) -> 4611686018427400247) ((5062 . 5625) (+ 12345 4611686018427387903) -> 4611686018427400248) ((5063 . 5625) (+ 12345 4611686018427387904) -> 4611686018427400249) ((5064 . 5625) (+ 12345 4611686018427387905) -> 4611686018427400250) ((5065 . 5625) (+ 12345 4611686018427387906) -> 4611686018427400251) ((5066 . 5625) (+ 12346 4611686018427387902) -> 4611686018427400248) ((5067 . 5625) (+ 12346 4611686018427387903) -> 4611686018427400249) ((5068 . 5625) (+ 12346 4611686018427387904) -> 4611686018427400250) ((5069 . 5625) (+ 12346 4611686018427387905) -> 4611686018427400251) ((5070 . 5625) (+ 12346 4611686018427387906) -> 4611686018427400252) ((5071 . 5625) (+ 12347 4611686018427387902) -> 4611686018427400249) ((5072 . 5625) (+ 12347 4611686018427387903) -> 4611686018427400250) ((5073 . 5625) (+ 12347 4611686018427387904) -> 4611686018427400251) ((5074 . 5625) (+ 12347 4611686018427387905) -> 4611686018427400252) ((5075 . 5625) (+ 12347 4611686018427387906) -> 4611686018427400253) ((5076 . 5625) (+ 12343 -4611686018427387907) -> -4611686018427375564) ((5077 . 5625) (+ 12343 -4611686018427387906) -> -4611686018427375563) ((5078 . 5625) (+ 12343 -4611686018427387905) -> -4611686018427375562) ((5079 . 5625) (+ 12343 -4611686018427387904) -> -4611686018427375561) ((5080 . 5625) (+ 12343 -4611686018427387903) -> -4611686018427375560) ((5081 . 5625) (+ 12344 -4611686018427387907) -> -4611686018427375563) ((5082 . 5625) (+ 12344 -4611686018427387906) -> -4611686018427375562) ((5083 . 5625) (+ 12344 -4611686018427387905) -> -4611686018427375561) ((5084 . 5625) (+ 12344 -4611686018427387904) -> -4611686018427375560) ((5085 . 5625) (+ 12344 -4611686018427387903) -> -4611686018427375559) ((5086 . 5625) (+ 12345 -4611686018427387907) -> -4611686018427375562) ((5087 . 5625) (+ 12345 -4611686018427387906) -> -4611686018427375561) ((5088 . 5625) (+ 12345 -4611686018427387905) -> -4611686018427375560) ((5089 . 5625) (+ 12345 -4611686018427387904) -> -4611686018427375559) ((5090 . 5625) (+ 12345 -4611686018427387903) -> -4611686018427375558) ((5091 . 5625) (+ 12346 -4611686018427387907) -> -4611686018427375561) ((5092 . 5625) (+ 12346 -4611686018427387906) -> -4611686018427375560) ((5093 . 5625) (+ 12346 -4611686018427387905) -> -4611686018427375559) ((5094 . 5625) (+ 12346 -4611686018427387904) -> -4611686018427375558) ((5095 . 5625) (+ 12346 -4611686018427387903) -> -4611686018427375557) ((5096 . 5625) (+ 12347 -4611686018427387907) -> -4611686018427375560) ((5097 . 5625) (+ 12347 -4611686018427387906) -> -4611686018427375559) ((5098 . 5625) (+ 12347 -4611686018427387905) -> -4611686018427375558) ((5099 . 5625) (+ 12347 -4611686018427387904) -> -4611686018427375557) ((5100 . 5625) (+ 12347 -4611686018427387903) -> -4611686018427375556) ((5101 . 5625) (+ 12343 1103515243) -> 1103527586) ((5102 . 5625) (+ 12343 1103515244) -> 1103527587) ((5103 . 5625) (+ 12343 1103515245) -> 1103527588) ((5104 . 5625) (+ 12343 1103515246) -> 1103527589) ((5105 . 5625) (+ 12343 1103515247) -> 1103527590) ((5106 . 5625) (+ 12344 1103515243) -> 1103527587) ((5107 . 5625) (+ 12344 1103515244) -> 1103527588) ((5108 . 5625) (+ 12344 1103515245) -> 1103527589) ((5109 . 5625) (+ 12344 1103515246) -> 1103527590) ((5110 . 5625) (+ 12344 1103515247) -> 1103527591) ((5111 . 5625) (+ 12345 1103515243) -> 1103527588) ((5112 . 5625) (+ 12345 1103515244) -> 1103527589) ((5113 . 5625) (+ 12345 1103515245) -> 1103527590) ((5114 . 5625) (+ 12345 1103515246) -> 1103527591) ((5115 . 5625) (+ 12345 1103515247) -> 1103527592) ((5116 . 5625) (+ 12346 1103515243) -> 1103527589) ((5117 . 5625) (+ 12346 1103515244) -> 1103527590) ((5118 . 5625) (+ 12346 1103515245) -> 1103527591) ((5119 . 5625) (+ 12346 1103515246) -> 1103527592) ((5120 . 5625) (+ 12346 1103515247) -> 1103527593) ((5121 . 5625) (+ 12347 1103515243) -> 1103527590) ((5122 . 5625) (+ 12347 1103515244) -> 1103527591) ((5123 . 5625) (+ 12347 1103515245) -> 1103527592) ((5124 . 5625) (+ 12347 1103515246) -> 1103527593) ((5125 . 5625) (+ 12347 1103515247) -> 1103527594) ((5126 . 5625) (+ 12343 631629063) -> 631641406) ((5127 . 5625) (+ 12343 631629064) -> 631641407) ((5128 . 5625) (+ 12343 631629065) -> 631641408) ((5129 . 5625) (+ 12343 631629066) -> 631641409) ((5130 . 5625) (+ 12343 631629067) -> 631641410) ((5131 . 5625) (+ 12344 631629063) -> 631641407) ((5132 . 5625) (+ 12344 631629064) -> 631641408) ((5133 . 5625) (+ 12344 631629065) -> 631641409) ((5134 . 5625) (+ 12344 631629066) -> 631641410) ((5135 . 5625) (+ 12344 631629067) -> 631641411) ((5136 . 5625) (+ 12345 631629063) -> 631641408) ((5137 . 5625) (+ 12345 631629064) -> 631641409) ((5138 . 5625) (+ 12345 631629065) -> 631641410) ((5139 . 5625) (+ 12345 631629066) -> 631641411) ((5140 . 5625) (+ 12345 631629067) -> 631641412) ((5141 . 5625) (+ 12346 631629063) -> 631641409) ((5142 . 5625) (+ 12346 631629064) -> 631641410) ((5143 . 5625) (+ 12346 631629065) -> 631641411) ((5144 . 5625) (+ 12346 631629066) -> 631641412) ((5145 . 5625) (+ 12346 631629067) -> 631641413) ((5146 . 5625) (+ 12347 631629063) -> 631641410) ((5147 . 5625) (+ 12347 631629064) -> 631641411) ((5148 . 5625) (+ 12347 631629065) -> 631641412) ((5149 . 5625) (+ 12347 631629066) -> 631641413) ((5150 . 5625) (+ 12347 631629067) -> 631641414) ((5151 . 5625) (+ 12343 9007199254740990) -> 9007199254753333) ((5152 . 5625) (+ 12343 9007199254740991) -> 9007199254753334) ((5153 . 5625) (+ 12343 9007199254740992) -> 9007199254753335) ((5154 . 5625) (+ 12343 9007199254740993) -> 9007199254753336) ((5155 . 5625) (+ 12343 9007199254740994) -> 9007199254753337) ((5156 . 5625) (+ 12344 9007199254740990) -> 9007199254753334) ((5157 . 5625) (+ 12344 9007199254740991) -> 9007199254753335) ((5158 . 5625) (+ 12344 9007199254740992) -> 9007199254753336) ((5159 . 5625) (+ 12344 9007199254740993) -> 9007199254753337) ((5160 . 5625) (+ 12344 9007199254740994) -> 9007199254753338) ((5161 . 5625) (+ 12345 9007199254740990) -> 9007199254753335) ((5162 . 5625) (+ 12345 9007199254740991) -> 9007199254753336) ((5163 . 5625) (+ 12345 9007199254740992) -> 9007199254753337) ((5164 . 5625) (+ 12345 9007199254740993) -> 9007199254753338) ((5165 . 5625) (+ 12345 9007199254740994) -> 9007199254753339) ((5166 . 5625) (+ 12346 9007199254740990) -> 9007199254753336) ((5167 . 5625) (+ 12346 9007199254740991) -> 9007199254753337) ((5168 . 5625) (+ 12346 9007199254740992) -> 9007199254753338) ((5169 . 5625) (+ 12346 9007199254740993) -> 9007199254753339) ((5170 . 5625) (+ 12346 9007199254740994) -> 9007199254753340) ((5171 . 5625) (+ 12347 9007199254740990) -> 9007199254753337) ((5172 . 5625) (+ 12347 9007199254740991) -> 9007199254753338) ((5173 . 5625) (+ 12347 9007199254740992) -> 9007199254753339) ((5174 . 5625) (+ 12347 9007199254740993) -> 9007199254753340) ((5175 . 5625) (+ 12347 9007199254740994) -> 9007199254753341) ((5176 . 5625) (+ 12343 -9007199254740994) -> -9007199254728651) ((5177 . 5625) (+ 12343 -9007199254740993) -> -9007199254728650) ((5178 . 5625) (+ 12343 -9007199254740992) -> -9007199254728649) ((5179 . 5625) (+ 12343 -9007199254740991) -> -9007199254728648) ((5180 . 5625) (+ 12343 -9007199254740990) -> -9007199254728647) ((5181 . 5625) (+ 12344 -9007199254740994) -> -9007199254728650) ((5182 . 5625) (+ 12344 -9007199254740993) -> -9007199254728649) ((5183 . 5625) (+ 12344 -9007199254740992) -> -9007199254728648) ((5184 . 5625) (+ 12344 -9007199254740991) -> -9007199254728647) ((5185 . 5625) (+ 12344 -9007199254740990) -> -9007199254728646) ((5186 . 5625) (+ 12345 -9007199254740994) -> -9007199254728649) ((5187 . 5625) (+ 12345 -9007199254740993) -> -9007199254728648) ((5188 . 5625) (+ 12345 -9007199254740992) -> -9007199254728647) ((5189 . 5625) (+ 12345 -9007199254740991) -> -9007199254728646) ((5190 . 5625) (+ 12345 -9007199254740990) -> -9007199254728645) ((5191 . 5625) (+ 12346 -9007199254740994) -> -9007199254728648) ((5192 . 5625) (+ 12346 -9007199254740993) -> -9007199254728647) ((5193 . 5625) (+ 12346 -9007199254740992) -> -9007199254728646) ((5194 . 5625) (+ 12346 -9007199254740991) -> -9007199254728645) ((5195 . 5625) (+ 12346 -9007199254740990) -> -9007199254728644) ((5196 . 5625) (+ 12347 -9007199254740994) -> -9007199254728647) ((5197 . 5625) (+ 12347 -9007199254740993) -> -9007199254728646) ((5198 . 5625) (+ 12347 -9007199254740992) -> -9007199254728645) ((5199 . 5625) (+ 12347 -9007199254740991) -> -9007199254728644) ((5200 . 5625) (+ 12347 -9007199254740990) -> -9007199254728643) ((5201 . 5625) (+ 12343 12343) -> 24686) ((5202 . 5625) (+ 12343 12344) -> 24687) ((5203 . 5625) (+ 12343 12345) -> 24688) ((5204 . 5625) (+ 12343 12346) -> 24689) ((5205 . 5625) (+ 12343 12347) -> 24690) ((5206 . 5625) (+ 12344 12343) -> 24687) ((5207 . 5625) (+ 12344 12344) -> 24688) ((5208 . 5625) (+ 12344 12345) -> 24689) ((5209 . 5625) (+ 12344 12346) -> 24690) ((5210 . 5625) (+ 12344 12347) -> 24691) ((5211 . 5625) (+ 12345 12343) -> 24688) ((5212 . 5625) (+ 12345 12344) -> 24689) ((5213 . 5625) (+ 12345 12345) -> 24690) ((5214 . 5625) (+ 12345 12346) -> 24691) ((5215 . 5625) (+ 12345 12347) -> 24692) ((5216 . 5625) (+ 12346 12343) -> 24689) ((5217 . 5625) (+ 12346 12344) -> 24690) ((5218 . 5625) (+ 12346 12345) -> 24691) ((5219 . 5625) (+ 12346 12346) -> 24692) ((5220 . 5625) (+ 12346 12347) -> 24693) ((5221 . 5625) (+ 12347 12343) -> 24690) ((5222 . 5625) (+ 12347 12344) -> 24691) ((5223 . 5625) (+ 12347 12345) -> 24692) ((5224 . 5625) (+ 12347 12346) -> 24693) ((5225 . 5625) (+ 12347 12347) -> 24694) ((5226 . 5625) (+ 12343 4294967294) -> 4294979637) ((5227 . 5625) (+ 12343 4294967295) -> 4294979638) ((5228 . 5625) (+ 12343 4294967296) -> 4294979639) ((5229 . 5625) (+ 12343 4294967297) -> 4294979640) ((5230 . 5625) (+ 12343 4294967298) -> 4294979641) ((5231 . 5625) (+ 12344 4294967294) -> 4294979638) ((5232 . 5625) (+ 12344 4294967295) -> 4294979639) ((5233 . 5625) (+ 12344 4294967296) -> 4294979640) ((5234 . 5625) (+ 12344 4294967297) -> 4294979641) ((5235 . 5625) (+ 12344 4294967298) -> 4294979642) ((5236 . 5625) (+ 12345 4294967294) -> 4294979639) ((5237 . 5625) (+ 12345 4294967295) -> 4294979640) ((5238 . 5625) (+ 12345 4294967296) -> 4294979641) ((5239 . 5625) (+ 12345 4294967297) -> 4294979642) ((5240 . 5625) (+ 12345 4294967298) -> 4294979643) ((5241 . 5625) (+ 12346 4294967294) -> 4294979640) ((5242 . 5625) (+ 12346 4294967295) -> 4294979641) ((5243 . 5625) (+ 12346 4294967296) -> 4294979642) ((5244 . 5625) (+ 12346 4294967297) -> 4294979643) ((5245 . 5625) (+ 12346 4294967298) -> 4294979644) ((5246 . 5625) (+ 12347 4294967294) -> 4294979641) ((5247 . 5625) (+ 12347 4294967295) -> 4294979642) ((5248 . 5625) (+ 12347 4294967296) -> 4294979643) ((5249 . 5625) (+ 12347 4294967297) -> 4294979644) ((5250 . 5625) (+ 12347 4294967298) -> 4294979645) ((5251 . 5625) (+ 4294967294 -2) -> 4294967292) ((5252 . 5625) (+ 4294967294 -1) -> 4294967293) ((5253 . 5625) (+ 4294967294 0) -> 4294967294) ((5254 . 5625) (+ 4294967294 1) -> 4294967295) ((5255 . 5625) (+ 4294967294 2) -> 4294967296) ((5256 . 5625) (+ 4294967295 -2) -> 4294967293) ((5257 . 5625) (+ 4294967295 -1) -> 4294967294) ((5258 . 5625) (+ 4294967295 0) -> 4294967295) ((5259 . 5625) (+ 4294967295 1) -> 4294967296) ((5260 . 5625) (+ 4294967295 2) -> 4294967297) ((5261 . 5625) (+ 4294967296 -2) -> 4294967294) ((5262 . 5625) (+ 4294967296 -1) -> 4294967295) ((5263 . 5625) (+ 4294967296 0) -> 4294967296) ((5264 . 5625) (+ 4294967296 1) -> 4294967297) ((5265 . 5625) (+ 4294967296 2) -> 4294967298) ((5266 . 5625) (+ 4294967297 -2) -> 4294967295) ((5267 . 5625) (+ 4294967297 -1) -> 4294967296) ((5268 . 5625) (+ 4294967297 0) -> 4294967297) ((5269 . 5625) (+ 4294967297 1) -> 4294967298) ((5270 . 5625) (+ 4294967297 2) -> 4294967299) ((5271 . 5625) (+ 4294967298 -2) -> 4294967296) ((5272 . 5625) (+ 4294967298 -1) -> 4294967297) ((5273 . 5625) (+ 4294967298 0) -> 4294967298) ((5274 . 5625) (+ 4294967298 1) -> 4294967299) ((5275 . 5625) (+ 4294967298 2) -> 4294967300) ((5276 . 5625) (+ 4294967294 -1) -> 4294967293) ((5277 . 5625) (+ 4294967294 0) -> 4294967294) ((5278 . 5625) (+ 4294967294 1) -> 4294967295) ((5279 . 5625) (+ 4294967294 2) -> 4294967296) ((5280 . 5625) (+ 4294967294 3) -> 4294967297) ((5281 . 5625) (+ 4294967295 -1) -> 4294967294) ((5282 . 5625) (+ 4294967295 0) -> 4294967295) ((5283 . 5625) (+ 4294967295 1) -> 4294967296) ((5284 . 5625) (+ 4294967295 2) -> 4294967297) ((5285 . 5625) (+ 4294967295 3) -> 4294967298) ((5286 . 5625) (+ 4294967296 -1) -> 4294967295) ((5287 . 5625) (+ 4294967296 0) -> 4294967296) ((5288 . 5625) (+ 4294967296 1) -> 4294967297) ((5289 . 5625) (+ 4294967296 2) -> 4294967298) ((5290 . 5625) (+ 4294967296 3) -> 4294967299) ((5291 . 5625) (+ 4294967297 -1) -> 4294967296) ((5292 . 5625) (+ 4294967297 0) -> 4294967297) ((5293 . 5625) (+ 4294967297 1) -> 4294967298) ((5294 . 5625) (+ 4294967297 2) -> 4294967299) ((5295 . 5625) (+ 4294967297 3) -> 4294967300) ((5296 . 5625) (+ 4294967298 -1) -> 4294967297) ((5297 . 5625) (+ 4294967298 0) -> 4294967298) ((5298 . 5625) (+ 4294967298 1) -> 4294967299) ((5299 . 5625) (+ 4294967298 2) -> 4294967300) ((5300 . 5625) (+ 4294967298 3) -> 4294967301) ((5301 . 5625) (+ 4294967294 -3) -> 4294967291) ((5302 . 5625) (+ 4294967294 -2) -> 4294967292) ((5303 . 5625) (+ 4294967294 -1) -> 4294967293) ((5304 . 5625) (+ 4294967294 0) -> 4294967294) ((5305 . 5625) (+ 4294967294 1) -> 4294967295) ((5306 . 5625) (+ 4294967295 -3) -> 4294967292) ((5307 . 5625) (+ 4294967295 -2) -> 4294967293) ((5308 . 5625) (+ 4294967295 -1) -> 4294967294) ((5309 . 5625) (+ 4294967295 0) -> 4294967295) ((5310 . 5625) (+ 4294967295 1) -> 4294967296) ((5311 . 5625) (+ 4294967296 -3) -> 4294967293) ((5312 . 5625) (+ 4294967296 -2) -> 4294967294) ((5313 . 5625) (+ 4294967296 -1) -> 4294967295) ((5314 . 5625) (+ 4294967296 0) -> 4294967296) ((5315 . 5625) (+ 4294967296 1) -> 4294967297) ((5316 . 5625) (+ 4294967297 -3) -> 4294967294) ((5317 . 5625) (+ 4294967297 -2) -> 4294967295) ((5318 . 5625) (+ 4294967297 -1) -> 4294967296) ((5319 . 5625) (+ 4294967297 0) -> 4294967297) ((5320 . 5625) (+ 4294967297 1) -> 4294967298) ((5321 . 5625) (+ 4294967298 -3) -> 4294967295) ((5322 . 5625) (+ 4294967298 -2) -> 4294967296) ((5323 . 5625) (+ 4294967298 -1) -> 4294967297) ((5324 . 5625) (+ 4294967298 0) -> 4294967298) ((5325 . 5625) (+ 4294967298 1) -> 4294967299) ((5326 . 5625) (+ 4294967294 0) -> 4294967294) ((5327 . 5625) (+ 4294967294 1) -> 4294967295) ((5328 . 5625) (+ 4294967294 2) -> 4294967296) ((5329 . 5625) (+ 4294967294 3) -> 4294967297) ((5330 . 5625) (+ 4294967294 4) -> 4294967298) ((5331 . 5625) (+ 4294967295 0) -> 4294967295) ((5332 . 5625) (+ 4294967295 1) -> 4294967296) ((5333 . 5625) (+ 4294967295 2) -> 4294967297) ((5334 . 5625) (+ 4294967295 3) -> 4294967298) ((5335 . 5625) (+ 4294967295 4) -> 4294967299) ((5336 . 5625) (+ 4294967296 0) -> 4294967296) ((5337 . 5625) (+ 4294967296 1) -> 4294967297) ((5338 . 5625) (+ 4294967296 2) -> 4294967298) ((5339 . 5625) (+ 4294967296 3) -> 4294967299) ((5340 . 5625) (+ 4294967296 4) -> 4294967300) ((5341 . 5625) (+ 4294967297 0) -> 4294967297) ((5342 . 5625) (+ 4294967297 1) -> 4294967298) ((5343 . 5625) (+ 4294967297 2) -> 4294967299) ((5344 . 5625) (+ 4294967297 3) -> 4294967300) ((5345 . 5625) (+ 4294967297 4) -> 4294967301) ((5346 . 5625) (+ 4294967298 0) -> 4294967298) ((5347 . 5625) (+ 4294967298 1) -> 4294967299) ((5348 . 5625) (+ 4294967298 2) -> 4294967300) ((5349 . 5625) (+ 4294967298 3) -> 4294967301) ((5350 . 5625) (+ 4294967298 4) -> 4294967302) ((5351 . 5625) (+ 4294967294 -4) -> 4294967290) ((5352 . 5625) (+ 4294967294 -3) -> 4294967291) ((5353 . 5625) (+ 4294967294 -2) -> 4294967292) ((5354 . 5625) (+ 4294967294 -1) -> 4294967293) ((5355 . 5625) (+ 4294967294 0) -> 4294967294) ((5356 . 5625) (+ 4294967295 -4) -> 4294967291) ((5357 . 5625) (+ 4294967295 -3) -> 4294967292) ((5358 . 5625) (+ 4294967295 -2) -> 4294967293) ((5359 . 5625) (+ 4294967295 -1) -> 4294967294) ((5360 . 5625) (+ 4294967295 0) -> 4294967295) ((5361 . 5625) (+ 4294967296 -4) -> 4294967292) ((5362 . 5625) (+ 4294967296 -3) -> 4294967293) ((5363 . 5625) (+ 4294967296 -2) -> 4294967294) ((5364 . 5625) (+ 4294967296 -1) -> 4294967295) ((5365 . 5625) (+ 4294967296 0) -> 4294967296) ((5366 . 5625) (+ 4294967297 -4) -> 4294967293) ((5367 . 5625) (+ 4294967297 -3) -> 4294967294) ((5368 . 5625) (+ 4294967297 -2) -> 4294967295) ((5369 . 5625) (+ 4294967297 -1) -> 4294967296) ((5370 . 5625) (+ 4294967297 0) -> 4294967297) ((5371 . 5625) (+ 4294967298 -4) -> 4294967294) ((5372 . 5625) (+ 4294967298 -3) -> 4294967295) ((5373 . 5625) (+ 4294967298 -2) -> 4294967296) ((5374 . 5625) (+ 4294967298 -1) -> 4294967297) ((5375 . 5625) (+ 4294967298 0) -> 4294967298) ((5376 . 5625) (+ 4294967294 4611686018427387901) -> 4611686022722355195) ((5377 . 5625) (+ 4294967294 4611686018427387902) -> 4611686022722355196) ((5378 . 5625) (+ 4294967294 4611686018427387903) -> 4611686022722355197) ((5379 . 5625) (+ 4294967294 4611686018427387904) -> 4611686022722355198) ((5380 . 5625) (+ 4294967294 4611686018427387905) -> 4611686022722355199) ((5381 . 5625) (+ 4294967295 4611686018427387901) -> 4611686022722355196) ((5382 . 5625) (+ 4294967295 4611686018427387902) -> 4611686022722355197) ((5383 . 5625) (+ 4294967295 4611686018427387903) -> 4611686022722355198) ((5384 . 5625) (+ 4294967295 4611686018427387904) -> 4611686022722355199) ((5385 . 5625) (+ 4294967295 4611686018427387905) -> 4611686022722355200) ((5386 . 5625) (+ 4294967296 4611686018427387901) -> 4611686022722355197) ((5387 . 5625) (+ 4294967296 4611686018427387902) -> 4611686022722355198) ((5388 . 5625) (+ 4294967296 4611686018427387903) -> 4611686022722355199) ((5389 . 5625) (+ 4294967296 4611686018427387904) -> 4611686022722355200) ((5390 . 5625) (+ 4294967296 4611686018427387905) -> 4611686022722355201) ((5391 . 5625) (+ 4294967297 4611686018427387901) -> 4611686022722355198) ((5392 . 5625) (+ 4294967297 4611686018427387902) -> 4611686022722355199) ((5393 . 5625) (+ 4294967297 4611686018427387903) -> 4611686022722355200) ((5394 . 5625) (+ 4294967297 4611686018427387904) -> 4611686022722355201) ((5395 . 5625) (+ 4294967297 4611686018427387905) -> 4611686022722355202) ((5396 . 5625) (+ 4294967298 4611686018427387901) -> 4611686022722355199) ((5397 . 5625) (+ 4294967298 4611686018427387902) -> 4611686022722355200) ((5398 . 5625) (+ 4294967298 4611686018427387903) -> 4611686022722355201) ((5399 . 5625) (+ 4294967298 4611686018427387904) -> 4611686022722355202) ((5400 . 5625) (+ 4294967298 4611686018427387905) -> 4611686022722355203) ((5401 . 5625) (+ 4294967294 -4611686018427387906) -> -4611686014132420612) ((5402 . 5625) (+ 4294967294 -4611686018427387905) -> -4611686014132420611) ((5403 . 5625) (+ 4294967294 -4611686018427387904) -> -4611686014132420610) ((5404 . 5625) (+ 4294967294 -4611686018427387903) -> -4611686014132420609) ((5405 . 5625) (+ 4294967294 -4611686018427387902) -> -4611686014132420608) ((5406 . 5625) (+ 4294967295 -4611686018427387906) -> -4611686014132420611) ((5407 . 5625) (+ 4294967295 -4611686018427387905) -> -4611686014132420610) ((5408 . 5625) (+ 4294967295 -4611686018427387904) -> -4611686014132420609) ((5409 . 5625) (+ 4294967295 -4611686018427387903) -> -4611686014132420608) ((5410 . 5625) (+ 4294967295 -4611686018427387902) -> -4611686014132420607) ((5411 . 5625) (+ 4294967296 -4611686018427387906) -> -4611686014132420610) ((5412 . 5625) (+ 4294967296 -4611686018427387905) -> -4611686014132420609) ((5413 . 5625) (+ 4294967296 -4611686018427387904) -> -4611686014132420608) ((5414 . 5625) (+ 4294967296 -4611686018427387903) -> -4611686014132420607) ((5415 . 5625) (+ 4294967296 -4611686018427387902) -> -4611686014132420606) ((5416 . 5625) (+ 4294967297 -4611686018427387906) -> -4611686014132420609) ((5417 . 5625) (+ 4294967297 -4611686018427387905) -> -4611686014132420608) ((5418 . 5625) (+ 4294967297 -4611686018427387904) -> -4611686014132420607) ((5419 . 5625) (+ 4294967297 -4611686018427387903) -> -4611686014132420606) ((5420 . 5625) (+ 4294967297 -4611686018427387902) -> -4611686014132420605) ((5421 . 5625) (+ 4294967298 -4611686018427387906) -> -4611686014132420608) ((5422 . 5625) (+ 4294967298 -4611686018427387905) -> -4611686014132420607) ((5423 . 5625) (+ 4294967298 -4611686018427387904) -> -4611686014132420606) ((5424 . 5625) (+ 4294967298 -4611686018427387903) -> -4611686014132420605) ((5425 . 5625) (+ 4294967298 -4611686018427387902) -> -4611686014132420604) ((5426 . 5625) (+ 4294967294 4611686018427387902) -> 4611686022722355196) ((5427 . 5625) (+ 4294967294 4611686018427387903) -> 4611686022722355197) ((5428 . 5625) (+ 4294967294 4611686018427387904) -> 4611686022722355198) ((5429 . 5625) (+ 4294967294 4611686018427387905) -> 4611686022722355199) ((5430 . 5625) (+ 4294967294 4611686018427387906) -> 4611686022722355200) ((5431 . 5625) (+ 4294967295 4611686018427387902) -> 4611686022722355197) ((5432 . 5625) (+ 4294967295 4611686018427387903) -> 4611686022722355198) ((5433 . 5625) (+ 4294967295 4611686018427387904) -> 4611686022722355199) ((5434 . 5625) (+ 4294967295 4611686018427387905) -> 4611686022722355200) ((5435 . 5625) (+ 4294967295 4611686018427387906) -> 4611686022722355201) ((5436 . 5625) (+ 4294967296 4611686018427387902) -> 4611686022722355198) ((5437 . 5625) (+ 4294967296 4611686018427387903) -> 4611686022722355199) ((5438 . 5625) (+ 4294967296 4611686018427387904) -> 4611686022722355200) ((5439 . 5625) (+ 4294967296 4611686018427387905) -> 4611686022722355201) ((5440 . 5625) (+ 4294967296 4611686018427387906) -> 4611686022722355202) ((5441 . 5625) (+ 4294967297 4611686018427387902) -> 4611686022722355199) ((5442 . 5625) (+ 4294967297 4611686018427387903) -> 4611686022722355200) ((5443 . 5625) (+ 4294967297 4611686018427387904) -> 4611686022722355201) ((5444 . 5625) (+ 4294967297 4611686018427387905) -> 4611686022722355202) ((5445 . 5625) (+ 4294967297 4611686018427387906) -> 4611686022722355203) ((5446 . 5625) (+ 4294967298 4611686018427387902) -> 4611686022722355200) ((5447 . 5625) (+ 4294967298 4611686018427387903) -> 4611686022722355201) ((5448 . 5625) (+ 4294967298 4611686018427387904) -> 4611686022722355202) ((5449 . 5625) (+ 4294967298 4611686018427387905) -> 4611686022722355203) ((5450 . 5625) (+ 4294967298 4611686018427387906) -> 4611686022722355204) ((5451 . 5625) (+ 4294967294 -4611686018427387907) -> -4611686014132420613) ((5452 . 5625) (+ 4294967294 -4611686018427387906) -> -4611686014132420612) ((5453 . 5625) (+ 4294967294 -4611686018427387905) -> -4611686014132420611) ((5454 . 5625) (+ 4294967294 -4611686018427387904) -> -4611686014132420610) ((5455 . 5625) (+ 4294967294 -4611686018427387903) -> -4611686014132420609) ((5456 . 5625) (+ 4294967295 -4611686018427387907) -> -4611686014132420612) ((5457 . 5625) (+ 4294967295 -4611686018427387906) -> -4611686014132420611) ((5458 . 5625) (+ 4294967295 -4611686018427387905) -> -4611686014132420610) ((5459 . 5625) (+ 4294967295 -4611686018427387904) -> -4611686014132420609) ((5460 . 5625) (+ 4294967295 -4611686018427387903) -> -4611686014132420608) ((5461 . 5625) (+ 4294967296 -4611686018427387907) -> -4611686014132420611) ((5462 . 5625) (+ 4294967296 -4611686018427387906) -> -4611686014132420610) ((5463 . 5625) (+ 4294967296 -4611686018427387905) -> -4611686014132420609) ((5464 . 5625) (+ 4294967296 -4611686018427387904) -> -4611686014132420608) ((5465 . 5625) (+ 4294967296 -4611686018427387903) -> -4611686014132420607) ((5466 . 5625) (+ 4294967297 -4611686018427387907) -> -4611686014132420610) ((5467 . 5625) (+ 4294967297 -4611686018427387906) -> -4611686014132420609) ((5468 . 5625) (+ 4294967297 -4611686018427387905) -> -4611686014132420608) ((5469 . 5625) (+ 4294967297 -4611686018427387904) -> -4611686014132420607) ((5470 . 5625) (+ 4294967297 -4611686018427387903) -> -4611686014132420606) ((5471 . 5625) (+ 4294967298 -4611686018427387907) -> -4611686014132420609) ((5472 . 5625) (+ 4294967298 -4611686018427387906) -> -4611686014132420608) ((5473 . 5625) (+ 4294967298 -4611686018427387905) -> -4611686014132420607) ((5474 . 5625) (+ 4294967298 -4611686018427387904) -> -4611686014132420606) ((5475 . 5625) (+ 4294967298 -4611686018427387903) -> -4611686014132420605) ((5476 . 5625) (+ 4294967294 1103515243) -> 5398482537) ((5477 . 5625) (+ 4294967294 1103515244) -> 5398482538) ((5478 . 5625) (+ 4294967294 1103515245) -> 5398482539) ((5479 . 5625) (+ 4294967294 1103515246) -> 5398482540) ((5480 . 5625) (+ 4294967294 1103515247) -> 5398482541) ((5481 . 5625) (+ 4294967295 1103515243) -> 5398482538) ((5482 . 5625) (+ 4294967295 1103515244) -> 5398482539) ((5483 . 5625) (+ 4294967295 1103515245) -> 5398482540) ((5484 . 5625) (+ 4294967295 1103515246) -> 5398482541) ((5485 . 5625) (+ 4294967295 1103515247) -> 5398482542) ((5486 . 5625) (+ 4294967296 1103515243) -> 5398482539) ((5487 . 5625) (+ 4294967296 1103515244) -> 5398482540) ((5488 . 5625) (+ 4294967296 1103515245) -> 5398482541) ((5489 . 5625) (+ 4294967296 1103515246) -> 5398482542) ((5490 . 5625) (+ 4294967296 1103515247) -> 5398482543) ((5491 . 5625) (+ 4294967297 1103515243) -> 5398482540) ((5492 . 5625) (+ 4294967297 1103515244) -> 5398482541) ((5493 . 5625) (+ 4294967297 1103515245) -> 5398482542) ((5494 . 5625) (+ 4294967297 1103515246) -> 5398482543) ((5495 . 5625) (+ 4294967297 1103515247) -> 5398482544) ((5496 . 5625) (+ 4294967298 1103515243) -> 5398482541) ((5497 . 5625) (+ 4294967298 1103515244) -> 5398482542) ((5498 . 5625) (+ 4294967298 1103515245) -> 5398482543) ((5499 . 5625) (+ 4294967298 1103515246) -> 5398482544) ((5500 . 5625) (+ 4294967298 1103515247) -> 5398482545) ((5501 . 5625) (+ 4294967294 631629063) -> 4926596357) ((5502 . 5625) (+ 4294967294 631629064) -> 4926596358) ((5503 . 5625) (+ 4294967294 631629065) -> 4926596359) ((5504 . 5625) (+ 4294967294 631629066) -> 4926596360) ((5505 . 5625) (+ 4294967294 631629067) -> 4926596361) ((5506 . 5625) (+ 4294967295 631629063) -> 4926596358) ((5507 . 5625) (+ 4294967295 631629064) -> 4926596359) ((5508 . 5625) (+ 4294967295 631629065) -> 4926596360) ((5509 . 5625) (+ 4294967295 631629066) -> 4926596361) ((5510 . 5625) (+ 4294967295 631629067) -> 4926596362) ((5511 . 5625) (+ 4294967296 631629063) -> 4926596359) ((5512 . 5625) (+ 4294967296 631629064) -> 4926596360) ((5513 . 5625) (+ 4294967296 631629065) -> 4926596361) ((5514 . 5625) (+ 4294967296 631629066) -> 4926596362) ((5515 . 5625) (+ 4294967296 631629067) -> 4926596363) ((5516 . 5625) (+ 4294967297 631629063) -> 4926596360) ((5517 . 5625) (+ 4294967297 631629064) -> 4926596361) ((5518 . 5625) (+ 4294967297 631629065) -> 4926596362) ((5519 . 5625) (+ 4294967297 631629066) -> 4926596363) ((5520 . 5625) (+ 4294967297 631629067) -> 4926596364) ((5521 . 5625) (+ 4294967298 631629063) -> 4926596361) ((5522 . 5625) (+ 4294967298 631629064) -> 4926596362) ((5523 . 5625) (+ 4294967298 631629065) -> 4926596363) ((5524 . 5625) (+ 4294967298 631629066) -> 4926596364) ((5525 . 5625) (+ 4294967298 631629067) -> 4926596365) ((5526 . 5625) (+ 4294967294 9007199254740990) -> 9007203549708284) ((5527 . 5625) (+ 4294967294 9007199254740991) -> 9007203549708285) ((5528 . 5625) (+ 4294967294 9007199254740992) -> 9007203549708286) ((5529 . 5625) (+ 4294967294 9007199254740993) -> 9007203549708287) ((5530 . 5625) (+ 4294967294 9007199254740994) -> 9007203549708288) ((5531 . 5625) (+ 4294967295 9007199254740990) -> 9007203549708285) ((5532 . 5625) (+ 4294967295 9007199254740991) -> 9007203549708286) ((5533 . 5625) (+ 4294967295 9007199254740992) -> 9007203549708287) ((5534 . 5625) (+ 4294967295 9007199254740993) -> 9007203549708288) ((5535 . 5625) (+ 4294967295 9007199254740994) -> 9007203549708289) ((5536 . 5625) (+ 4294967296 9007199254740990) -> 9007203549708286) ((5537 . 5625) (+ 4294967296 9007199254740991) -> 9007203549708287) ((5538 . 5625) (+ 4294967296 9007199254740992) -> 9007203549708288) ((5539 . 5625) (+ 4294967296 9007199254740993) -> 9007203549708289) ((5540 . 5625) (+ 4294967296 9007199254740994) -> 9007203549708290) ((5541 . 5625) (+ 4294967297 9007199254740990) -> 9007203549708287) ((5542 . 5625) (+ 4294967297 9007199254740991) -> 9007203549708288) ((5543 . 5625) (+ 4294967297 9007199254740992) -> 9007203549708289) ((5544 . 5625) (+ 4294967297 9007199254740993) -> 9007203549708290) ((5545 . 5625) (+ 4294967297 9007199254740994) -> 9007203549708291) ((5546 . 5625) (+ 4294967298 9007199254740990) -> 9007203549708288) ((5547 . 5625) (+ 4294967298 9007199254740991) -> 9007203549708289) ((5548 . 5625) (+ 4294967298 9007199254740992) -> 9007203549708290) ((5549 . 5625) (+ 4294967298 9007199254740993) -> 9007203549708291) ((5550 . 5625) (+ 4294967298 9007199254740994) -> 9007203549708292) ((5551 . 5625) (+ 4294967294 -9007199254740994) -> -9007194959773700) ((5552 . 5625) (+ 4294967294 -9007199254740993) -> -9007194959773699) ((5553 . 5625) (+ 4294967294 -9007199254740992) -> -9007194959773698) ((5554 . 5625) (+ 4294967294 -9007199254740991) -> -9007194959773697) ((5555 . 5625) (+ 4294967294 -9007199254740990) -> -9007194959773696) ((5556 . 5625) (+ 4294967295 -9007199254740994) -> -9007194959773699) ((5557 . 5625) (+ 4294967295 -9007199254740993) -> -9007194959773698) ((5558 . 5625) (+ 4294967295 -9007199254740992) -> -9007194959773697) ((5559 . 5625) (+ 4294967295 -9007199254740991) -> -9007194959773696) ((5560 . 5625) (+ 4294967295 -9007199254740990) -> -9007194959773695) ((5561 . 5625) (+ 4294967296 -9007199254740994) -> -9007194959773698) ((5562 . 5625) (+ 4294967296 -9007199254740993) -> -9007194959773697) ((5563 . 5625) (+ 4294967296 -9007199254740992) -> -9007194959773696) ((5564 . 5625) (+ 4294967296 -9007199254740991) -> -9007194959773695) ((5565 . 5625) (+ 4294967296 -9007199254740990) -> -9007194959773694) ((5566 . 5625) (+ 4294967297 -9007199254740994) -> -9007194959773697) ((5567 . 5625) (+ 4294967297 -9007199254740993) -> -9007194959773696) ((5568 . 5625) (+ 4294967297 -9007199254740992) -> -9007194959773695) ((5569 . 5625) (+ 4294967297 -9007199254740991) -> -9007194959773694) ((5570 . 5625) (+ 4294967297 -9007199254740990) -> -9007194959773693) ((5571 . 5625) (+ 4294967298 -9007199254740994) -> -9007194959773696) ((5572 . 5625) (+ 4294967298 -9007199254740993) -> -9007194959773695) ((5573 . 5625) (+ 4294967298 -9007199254740992) -> -9007194959773694) ((5574 . 5625) (+ 4294967298 -9007199254740991) -> -9007194959773693) ((5575 . 5625) (+ 4294967298 -9007199254740990) -> -9007194959773692) ((5576 . 5625) (+ 4294967294 12343) -> 4294979637) ((5577 . 5625) (+ 4294967294 12344) -> 4294979638) ((5578 . 5625) (+ 4294967294 12345) -> 4294979639) ((5579 . 5625) (+ 4294967294 12346) -> 4294979640) ((5580 . 5625) (+ 4294967294 12347) -> 4294979641) ((5581 . 5625) (+ 4294967295 12343) -> 4294979638) ((5582 . 5625) (+ 4294967295 12344) -> 4294979639) ((5583 . 5625) (+ 4294967295 12345) -> 4294979640) ((5584 . 5625) (+ 4294967295 12346) -> 4294979641) ((5585 . 5625) (+ 4294967295 12347) -> 4294979642) ((5586 . 5625) (+ 4294967296 12343) -> 4294979639) ((5587 . 5625) (+ 4294967296 12344) -> 4294979640) ((5588 . 5625) (+ 4294967296 12345) -> 4294979641) ((5589 . 5625) (+ 4294967296 12346) -> 4294979642) ((5590 . 5625) (+ 4294967296 12347) -> 4294979643) ((5591 . 5625) (+ 4294967297 12343) -> 4294979640) ((5592 . 5625) (+ 4294967297 12344) -> 4294979641) ((5593 . 5625) (+ 4294967297 12345) -> 4294979642) ((5594 . 5625) (+ 4294967297 12346) -> 4294979643) ((5595 . 5625) (+ 4294967297 12347) -> 4294979644) ((5596 . 5625) (+ 4294967298 12343) -> 4294979641) ((5597 . 5625) (+ 4294967298 12344) -> 4294979642) ((5598 . 5625) (+ 4294967298 12345) -> 4294979643) ((5599 . 5625) (+ 4294967298 12346) -> 4294979644) ((5600 . 5625) (+ 4294967298 12347) -> 4294979645) ((5601 . 5625) (+ 4294967294 4294967294) -> 8589934588) ((5602 . 5625) (+ 4294967294 4294967295) -> 8589934589) ((5603 . 5625) (+ 4294967294 4294967296) -> 8589934590) ((5604 . 5625) (+ 4294967294 4294967297) -> 8589934591) ((5605 . 5625) (+ 4294967294 4294967298) -> 8589934592) ((5606 . 5625) (+ 4294967295 4294967294) -> 8589934589) ((5607 . 5625) (+ 4294967295 4294967295) -> 8589934590) ((5608 . 5625) (+ 4294967295 4294967296) -> 8589934591) ((5609 . 5625) (+ 4294967295 4294967297) -> 8589934592) ((5610 . 5625) (+ 4294967295 4294967298) -> 8589934593) ((5611 . 5625) (+ 4294967296 4294967294) -> 8589934590) ((5612 . 5625) (+ 4294967296 4294967295) -> 8589934591) ((5613 . 5625) (+ 4294967296 4294967296) -> 8589934592) ((5614 . 5625) (+ 4294967296 4294967297) -> 8589934593) ((5615 . 5625) (+ 4294967296 4294967298) -> 8589934594) ((5616 . 5625) (+ 4294967297 4294967294) -> 8589934591) ((5617 . 5625) (+ 4294967297 4294967295) -> 8589934592) ((5618 . 5625) (+ 4294967297 4294967296) -> 8589934593) ((5619 . 5625) (+ 4294967297 4294967297) -> 8589934594) ((5620 . 5625) (+ 4294967297 4294967298) -> 8589934595) ((5621 . 5625) (+ 4294967298 4294967294) -> 8589934592) ((5622 . 5625) (+ 4294967298 4294967295) -> 8589934593) ((5623 . 5625) (+ 4294967298 4294967296) -> 8589934594) ((5624 . 5625) (+ 4294967298 4294967297) -> 8589934595) ((5625 . 5625) (+ 4294967298 4294967298) -> 8589934596) ((1 . 5625) (- -2 -2) -> 0) ((2 . 5625) (- -2 -1) -> -1) ((3 . 5625) (- -2 0) -> -2) ((4 . 5625) (- -2 1) -> -3) ((5 . 5625) (- -2 2) -> -4) ((6 . 5625) (- -1 -2) -> 1) ((7 . 5625) (- -1 -1) -> 0) ((8 . 5625) (- -1 0) -> -1) ((9 . 5625) (- -1 1) -> -2) ((10 . 5625) (- -1 2) -> -3) ((11 . 5625) (- 0 -2) -> 2) ((12 . 5625) (- 0 -1) -> 1) ((13 . 5625) (- 0 0) -> 0) ((14 . 5625) (- 0 1) -> -1) ((15 . 5625) (- 0 2) -> -2) ((16 . 5625) (- 1 -2) -> 3) ((17 . 5625) (- 1 -1) -> 2) ((18 . 5625) (- 1 0) -> 1) ((19 . 5625) (- 1 1) -> 0) ((20 . 5625) (- 1 2) -> -1) ((21 . 5625) (- 2 -2) -> 4) ((22 . 5625) (- 2 -1) -> 3) ((23 . 5625) (- 2 0) -> 2) ((24 . 5625) (- 2 1) -> 1) ((25 . 5625) (- 2 2) -> 0) ((26 . 5625) (- -2 -1) -> -1) ((27 . 5625) (- -2 0) -> -2) ((28 . 5625) (- -2 1) -> -3) ((29 . 5625) (- -2 2) -> -4) ((30 . 5625) (- -2 3) -> -5) ((31 . 5625) (- -1 -1) -> 0) ((32 . 5625) (- -1 0) -> -1) ((33 . 5625) (- -1 1) -> -2) ((34 . 5625) (- -1 2) -> -3) ((35 . 5625) (- -1 3) -> -4) ((36 . 5625) (- 0 -1) -> 1) ((37 . 5625) (- 0 0) -> 0) ((38 . 5625) (- 0 1) -> -1) ((39 . 5625) (- 0 2) -> -2) ((40 . 5625) (- 0 3) -> -3) ((41 . 5625) (- 1 -1) -> 2) ((42 . 5625) (- 1 0) -> 1) ((43 . 5625) (- 1 1) -> 0) ((44 . 5625) (- 1 2) -> -1) ((45 . 5625) (- 1 3) -> -2) ((46 . 5625) (- 2 -1) -> 3) ((47 . 5625) (- 2 0) -> 2) ((48 . 5625) (- 2 1) -> 1) ((49 . 5625) (- 2 2) -> 0) ((50 . 5625) (- 2 3) -> -1) ((51 . 5625) (- -2 -3) -> 1) ((52 . 5625) (- -2 -2) -> 0) ((53 . 5625) (- -2 -1) -> -1) ((54 . 5625) (- -2 0) -> -2) ((55 . 5625) (- -2 1) -> -3) ((56 . 5625) (- -1 -3) -> 2) ((57 . 5625) (- -1 -2) -> 1) ((58 . 5625) (- -1 -1) -> 0) ((59 . 5625) (- -1 0) -> -1) ((60 . 5625) (- -1 1) -> -2) ((61 . 5625) (- 0 -3) -> 3) ((62 . 5625) (- 0 -2) -> 2) ((63 . 5625) (- 0 -1) -> 1) ((64 . 5625) (- 0 0) -> 0) ((65 . 5625) (- 0 1) -> -1) ((66 . 5625) (- 1 -3) -> 4) ((67 . 5625) (- 1 -2) -> 3) ((68 . 5625) (- 1 -1) -> 2) ((69 . 5625) (- 1 0) -> 1) ((70 . 5625) (- 1 1) -> 0) ((71 . 5625) (- 2 -3) -> 5) ((72 . 5625) (- 2 -2) -> 4) ((73 . 5625) (- 2 -1) -> 3) ((74 . 5625) (- 2 0) -> 2) ((75 . 5625) (- 2 1) -> 1) ((76 . 5625) (- -2 0) -> -2) ((77 . 5625) (- -2 1) -> -3) ((78 . 5625) (- -2 2) -> -4) ((79 . 5625) (- -2 3) -> -5) ((80 . 5625) (- -2 4) -> -6) ((81 . 5625) (- -1 0) -> -1) ((82 . 5625) (- -1 1) -> -2) ((83 . 5625) (- -1 2) -> -3) ((84 . 5625) (- -1 3) -> -4) ((85 . 5625) (- -1 4) -> -5) ((86 . 5625) (- 0 0) -> 0) ((87 . 5625) (- 0 1) -> -1) ((88 . 5625) (- 0 2) -> -2) ((89 . 5625) (- 0 3) -> -3) ((90 . 5625) (- 0 4) -> -4) ((91 . 5625) (- 1 0) -> 1) ((92 . 5625) (- 1 1) -> 0) ((93 . 5625) (- 1 2) -> -1) ((94 . 5625) (- 1 3) -> -2) ((95 . 5625) (- 1 4) -> -3) ((96 . 5625) (- 2 0) -> 2) ((97 . 5625) (- 2 1) -> 1) ((98 . 5625) (- 2 2) -> 0) ((99 . 5625) (- 2 3) -> -1) ((100 . 5625) (- 2 4) -> -2) ((101 . 5625) (- -2 -4) -> 2) ((102 . 5625) (- -2 -3) -> 1) ((103 . 5625) (- -2 -2) -> 0) ((104 . 5625) (- -2 -1) -> -1) ((105 . 5625) (- -2 0) -> -2) ((106 . 5625) (- -1 -4) -> 3) ((107 . 5625) (- -1 -3) -> 2) ((108 . 5625) (- -1 -2) -> 1) ((109 . 5625) (- -1 -1) -> 0) ((110 . 5625) (- -1 0) -> -1) ((111 . 5625) (- 0 -4) -> 4) ((112 . 5625) (- 0 -3) -> 3) ((113 . 5625) (- 0 -2) -> 2) ((114 . 5625) (- 0 -1) -> 1) ((115 . 5625) (- 0 0) -> 0) ((116 . 5625) (- 1 -4) -> 5) ((117 . 5625) (- 1 -3) -> 4) ((118 . 5625) (- 1 -2) -> 3) ((119 . 5625) (- 1 -1) -> 2) ((120 . 5625) (- 1 0) -> 1) ((121 . 5625) (- 2 -4) -> 6) ((122 . 5625) (- 2 -3) -> 5) ((123 . 5625) (- 2 -2) -> 4) ((124 . 5625) (- 2 -1) -> 3) ((125 . 5625) (- 2 0) -> 2) ((126 . 5625) (- -2 4611686018427387901) -> -4611686018427387903) ((127 . 5625) (- -2 4611686018427387902) -> -4611686018427387904) ((128 . 5625) (- -2 4611686018427387903) -> -4611686018427387905) ((129 . 5625) (- -2 4611686018427387904) -> -4611686018427387906) ((130 . 5625) (- -2 4611686018427387905) -> -4611686018427387907) ((131 . 5625) (- -1 4611686018427387901) -> -4611686018427387902) ((132 . 5625) (- -1 4611686018427387902) -> -4611686018427387903) ((133 . 5625) (- -1 4611686018427387903) -> -4611686018427387904) ((134 . 5625) (- -1 4611686018427387904) -> -4611686018427387905) ((135 . 5625) (- -1 4611686018427387905) -> -4611686018427387906) ((136 . 5625) (- 0 4611686018427387901) -> -4611686018427387901) ((137 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((138 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((139 . 5625) (- 0 4611686018427387904) -> -4611686018427387904) ((140 . 5625) (- 0 4611686018427387905) -> -4611686018427387905) ((141 . 5625) (- 1 4611686018427387901) -> -4611686018427387900) ((142 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((143 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((144 . 5625) (- 1 4611686018427387904) -> -4611686018427387903) ((145 . 5625) (- 1 4611686018427387905) -> -4611686018427387904) ((146 . 5625) (- 2 4611686018427387901) -> -4611686018427387899) ((147 . 5625) (- 2 4611686018427387902) -> -4611686018427387900) ((148 . 5625) (- 2 4611686018427387903) -> -4611686018427387901) ((149 . 5625) (- 2 4611686018427387904) -> -4611686018427387902) ((150 . 5625) (- 2 4611686018427387905) -> -4611686018427387903) ((151 . 5625) (- -2 -4611686018427387906) -> 4611686018427387904) ((152 . 5625) (- -2 -4611686018427387905) -> 4611686018427387903) ((153 . 5625) (- -2 -4611686018427387904) -> 4611686018427387902) ((154 . 5625) (- -2 -4611686018427387903) -> 4611686018427387901) ((155 . 5625) (- -2 -4611686018427387902) -> 4611686018427387900) ((156 . 5625) (- -1 -4611686018427387906) -> 4611686018427387905) ((157 . 5625) (- -1 -4611686018427387905) -> 4611686018427387904) ((158 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((159 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((160 . 5625) (- -1 -4611686018427387902) -> 4611686018427387901) ((161 . 5625) (- 0 -4611686018427387906) -> 4611686018427387906) ((162 . 5625) (- 0 -4611686018427387905) -> 4611686018427387905) ((163 . 5625) (- 0 -4611686018427387904) -> 4611686018427387904) ((164 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((165 . 5625) (- 0 -4611686018427387902) -> 4611686018427387902) ((166 . 5625) (- 1 -4611686018427387906) -> 4611686018427387907) ((167 . 5625) (- 1 -4611686018427387905) -> 4611686018427387906) ((168 . 5625) (- 1 -4611686018427387904) -> 4611686018427387905) ((169 . 5625) (- 1 -4611686018427387903) -> 4611686018427387904) ((170 . 5625) (- 1 -4611686018427387902) -> 4611686018427387903) ((171 . 5625) (- 2 -4611686018427387906) -> 4611686018427387908) ((172 . 5625) (- 2 -4611686018427387905) -> 4611686018427387907) ((173 . 5625) (- 2 -4611686018427387904) -> 4611686018427387906) ((174 . 5625) (- 2 -4611686018427387903) -> 4611686018427387905) ((175 . 5625) (- 2 -4611686018427387902) -> 4611686018427387904) ((176 . 5625) (- -2 4611686018427387902) -> -4611686018427387904) ((177 . 5625) (- -2 4611686018427387903) -> -4611686018427387905) ((178 . 5625) (- -2 4611686018427387904) -> -4611686018427387906) ((179 . 5625) (- -2 4611686018427387905) -> -4611686018427387907) ((180 . 5625) (- -2 4611686018427387906) -> -4611686018427387908) ((181 . 5625) (- -1 4611686018427387902) -> -4611686018427387903) ((182 . 5625) (- -1 4611686018427387903) -> -4611686018427387904) ((183 . 5625) (- -1 4611686018427387904) -> -4611686018427387905) ((184 . 5625) (- -1 4611686018427387905) -> -4611686018427387906) ((185 . 5625) (- -1 4611686018427387906) -> -4611686018427387907) ((186 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((187 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((188 . 5625) (- 0 4611686018427387904) -> -4611686018427387904) ((189 . 5625) (- 0 4611686018427387905) -> -4611686018427387905) ((190 . 5625) (- 0 4611686018427387906) -> -4611686018427387906) ((191 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((192 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((193 . 5625) (- 1 4611686018427387904) -> -4611686018427387903) ((194 . 5625) (- 1 4611686018427387905) -> -4611686018427387904) ((195 . 5625) (- 1 4611686018427387906) -> -4611686018427387905) ((196 . 5625) (- 2 4611686018427387902) -> -4611686018427387900) ((197 . 5625) (- 2 4611686018427387903) -> -4611686018427387901) ((198 . 5625) (- 2 4611686018427387904) -> -4611686018427387902) ((199 . 5625) (- 2 4611686018427387905) -> -4611686018427387903) ((200 . 5625) (- 2 4611686018427387906) -> -4611686018427387904) ((201 . 5625) (- -2 -4611686018427387907) -> 4611686018427387905) ((202 . 5625) (- -2 -4611686018427387906) -> 4611686018427387904) ((203 . 5625) (- -2 -4611686018427387905) -> 4611686018427387903) ((204 . 5625) (- -2 -4611686018427387904) -> 4611686018427387902) ((205 . 5625) (- -2 -4611686018427387903) -> 4611686018427387901) ((206 . 5625) (- -1 -4611686018427387907) -> 4611686018427387906) ((207 . 5625) (- -1 -4611686018427387906) -> 4611686018427387905) ((208 . 5625) (- -1 -4611686018427387905) -> 4611686018427387904) ((209 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((210 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((211 . 5625) (- 0 -4611686018427387907) -> 4611686018427387907) ((212 . 5625) (- 0 -4611686018427387906) -> 4611686018427387906) ((213 . 5625) (- 0 -4611686018427387905) -> 4611686018427387905) ((214 . 5625) (- 0 -4611686018427387904) -> 4611686018427387904) ((215 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((216 . 5625) (- 1 -4611686018427387907) -> 4611686018427387908) ((217 . 5625) (- 1 -4611686018427387906) -> 4611686018427387907) ((218 . 5625) (- 1 -4611686018427387905) -> 4611686018427387906) ((219 . 5625) (- 1 -4611686018427387904) -> 4611686018427387905) ((220 . 5625) (- 1 -4611686018427387903) -> 4611686018427387904) ((221 . 5625) (- 2 -4611686018427387907) -> 4611686018427387909) ((222 . 5625) (- 2 -4611686018427387906) -> 4611686018427387908) ((223 . 5625) (- 2 -4611686018427387905) -> 4611686018427387907) ((224 . 5625) (- 2 -4611686018427387904) -> 4611686018427387906) ((225 . 5625) (- 2 -4611686018427387903) -> 4611686018427387905) ((226 . 5625) (- -2 1103515243) -> -1103515245) ((227 . 5625) (- -2 1103515244) -> -1103515246) ((228 . 5625) (- -2 1103515245) -> -1103515247) ((229 . 5625) (- -2 1103515246) -> -1103515248) ((230 . 5625) (- -2 1103515247) -> -1103515249) ((231 . 5625) (- -1 1103515243) -> -1103515244) ((232 . 5625) (- -1 1103515244) -> -1103515245) ((233 . 5625) (- -1 1103515245) -> -1103515246) ((234 . 5625) (- -1 1103515246) -> -1103515247) ((235 . 5625) (- -1 1103515247) -> -1103515248) ((236 . 5625) (- 0 1103515243) -> -1103515243) ((237 . 5625) (- 0 1103515244) -> -1103515244) ((238 . 5625) (- 0 1103515245) -> -1103515245) ((239 . 5625) (- 0 1103515246) -> -1103515246) ((240 . 5625) (- 0 1103515247) -> -1103515247) ((241 . 5625) (- 1 1103515243) -> -1103515242) ((242 . 5625) (- 1 1103515244) -> -1103515243) ((243 . 5625) (- 1 1103515245) -> -1103515244) ((244 . 5625) (- 1 1103515246) -> -1103515245) ((245 . 5625) (- 1 1103515247) -> -1103515246) ((246 . 5625) (- 2 1103515243) -> -1103515241) ((247 . 5625) (- 2 1103515244) -> -1103515242) ((248 . 5625) (- 2 1103515245) -> -1103515243) ((249 . 5625) (- 2 1103515246) -> -1103515244) ((250 . 5625) (- 2 1103515247) -> -1103515245) ((251 . 5625) (- -2 631629063) -> -631629065) ((252 . 5625) (- -2 631629064) -> -631629066) ((253 . 5625) (- -2 631629065) -> -631629067) ((254 . 5625) (- -2 631629066) -> -631629068) ((255 . 5625) (- -2 631629067) -> -631629069) ((256 . 5625) (- -1 631629063) -> -631629064) ((257 . 5625) (- -1 631629064) -> -631629065) ((258 . 5625) (- -1 631629065) -> -631629066) ((259 . 5625) (- -1 631629066) -> -631629067) ((260 . 5625) (- -1 631629067) -> -631629068) ((261 . 5625) (- 0 631629063) -> -631629063) ((262 . 5625) (- 0 631629064) -> -631629064) ((263 . 5625) (- 0 631629065) -> -631629065) ((264 . 5625) (- 0 631629066) -> -631629066) ((265 . 5625) (- 0 631629067) -> -631629067) ((266 . 5625) (- 1 631629063) -> -631629062) ((267 . 5625) (- 1 631629064) -> -631629063) ((268 . 5625) (- 1 631629065) -> -631629064) ((269 . 5625) (- 1 631629066) -> -631629065) ((270 . 5625) (- 1 631629067) -> -631629066) ((271 . 5625) (- 2 631629063) -> -631629061) ((272 . 5625) (- 2 631629064) -> -631629062) ((273 . 5625) (- 2 631629065) -> -631629063) ((274 . 5625) (- 2 631629066) -> -631629064) ((275 . 5625) (- 2 631629067) -> -631629065) ((276 . 5625) (- -2 9007199254740990) -> -9007199254740992) ((277 . 5625) (- -2 9007199254740991) -> -9007199254740993) ((278 . 5625) (- -2 9007199254740992) -> -9007199254740994) ((279 . 5625) (- -2 9007199254740993) -> -9007199254740995) ((280 . 5625) (- -2 9007199254740994) -> -9007199254740996) ((281 . 5625) (- -1 9007199254740990) -> -9007199254740991) ((282 . 5625) (- -1 9007199254740991) -> -9007199254740992) ((283 . 5625) (- -1 9007199254740992) -> -9007199254740993) ((284 . 5625) (- -1 9007199254740993) -> -9007199254740994) ((285 . 5625) (- -1 9007199254740994) -> -9007199254740995) ((286 . 5625) (- 0 9007199254740990) -> -9007199254740990) ((287 . 5625) (- 0 9007199254740991) -> -9007199254740991) ((288 . 5625) (- 0 9007199254740992) -> -9007199254740992) ((289 . 5625) (- 0 9007199254740993) -> -9007199254740993) ((290 . 5625) (- 0 9007199254740994) -> -9007199254740994) ((291 . 5625) (- 1 9007199254740990) -> -9007199254740989) ((292 . 5625) (- 1 9007199254740991) -> -9007199254740990) ((293 . 5625) (- 1 9007199254740992) -> -9007199254740991) ((294 . 5625) (- 1 9007199254740993) -> -9007199254740992) ((295 . 5625) (- 1 9007199254740994) -> -9007199254740993) ((296 . 5625) (- 2 9007199254740990) -> -9007199254740988) ((297 . 5625) (- 2 9007199254740991) -> -9007199254740989) ((298 . 5625) (- 2 9007199254740992) -> -9007199254740990) ((299 . 5625) (- 2 9007199254740993) -> -9007199254740991) ((300 . 5625) (- 2 9007199254740994) -> -9007199254740992) ((301 . 5625) (- -2 -9007199254740994) -> 9007199254740992) ((302 . 5625) (- -2 -9007199254740993) -> 9007199254740991) ((303 . 5625) (- -2 -9007199254740992) -> 9007199254740990) ((304 . 5625) (- -2 -9007199254740991) -> 9007199254740989) ((305 . 5625) (- -2 -9007199254740990) -> 9007199254740988) ((306 . 5625) (- -1 -9007199254740994) -> 9007199254740993) ((307 . 5625) (- -1 -9007199254740993) -> 9007199254740992) ((308 . 5625) (- -1 -9007199254740992) -> 9007199254740991) ((309 . 5625) (- -1 -9007199254740991) -> 9007199254740990) ((310 . 5625) (- -1 -9007199254740990) -> 9007199254740989) ((311 . 5625) (- 0 -9007199254740994) -> 9007199254740994) ((312 . 5625) (- 0 -9007199254740993) -> 9007199254740993) ((313 . 5625) (- 0 -9007199254740992) -> 9007199254740992) ((314 . 5625) (- 0 -9007199254740991) -> 9007199254740991) ((315 . 5625) (- 0 -9007199254740990) -> 9007199254740990) ((316 . 5625) (- 1 -9007199254740994) -> 9007199254740995) ((317 . 5625) (- 1 -9007199254740993) -> 9007199254740994) ((318 . 5625) (- 1 -9007199254740992) -> 9007199254740993) ((319 . 5625) (- 1 -9007199254740991) -> 9007199254740992) ((320 . 5625) (- 1 -9007199254740990) -> 9007199254740991) ((321 . 5625) (- 2 -9007199254740994) -> 9007199254740996) ((322 . 5625) (- 2 -9007199254740993) -> 9007199254740995) ((323 . 5625) (- 2 -9007199254740992) -> 9007199254740994) ((324 . 5625) (- 2 -9007199254740991) -> 9007199254740993) ((325 . 5625) (- 2 -9007199254740990) -> 9007199254740992) ((326 . 5625) (- -2 12343) -> -12345) ((327 . 5625) (- -2 12344) -> -12346) ((328 . 5625) (- -2 12345) -> -12347) ((329 . 5625) (- -2 12346) -> -12348) ((330 . 5625) (- -2 12347) -> -12349) ((331 . 5625) (- -1 12343) -> -12344) ((332 . 5625) (- -1 12344) -> -12345) ((333 . 5625) (- -1 12345) -> -12346) ((334 . 5625) (- -1 12346) -> -12347) ((335 . 5625) (- -1 12347) -> -12348) ((336 . 5625) (- 0 12343) -> -12343) ((337 . 5625) (- 0 12344) -> -12344) ((338 . 5625) (- 0 12345) -> -12345) ((339 . 5625) (- 0 12346) -> -12346) ((340 . 5625) (- 0 12347) -> -12347) ((341 . 5625) (- 1 12343) -> -12342) ((342 . 5625) (- 1 12344) -> -12343) ((343 . 5625) (- 1 12345) -> -12344) ((344 . 5625) (- 1 12346) -> -12345) ((345 . 5625) (- 1 12347) -> -12346) ((346 . 5625) (- 2 12343) -> -12341) ((347 . 5625) (- 2 12344) -> -12342) ((348 . 5625) (- 2 12345) -> -12343) ((349 . 5625) (- 2 12346) -> -12344) ((350 . 5625) (- 2 12347) -> -12345) ((351 . 5625) (- -2 4294967294) -> -4294967296) ((352 . 5625) (- -2 4294967295) -> -4294967297) ((353 . 5625) (- -2 4294967296) -> -4294967298) ((354 . 5625) (- -2 4294967297) -> -4294967299) ((355 . 5625) (- -2 4294967298) -> -4294967300) ((356 . 5625) (- -1 4294967294) -> -4294967295) ((357 . 5625) (- -1 4294967295) -> -4294967296) ((358 . 5625) (- -1 4294967296) -> -4294967297) ((359 . 5625) (- -1 4294967297) -> -4294967298) ((360 . 5625) (- -1 4294967298) -> -4294967299) ((361 . 5625) (- 0 4294967294) -> -4294967294) ((362 . 5625) (- 0 4294967295) -> -4294967295) ((363 . 5625) (- 0 4294967296) -> -4294967296) ((364 . 5625) (- 0 4294967297) -> -4294967297) ((365 . 5625) (- 0 4294967298) -> -4294967298) ((366 . 5625) (- 1 4294967294) -> -4294967293) ((367 . 5625) (- 1 4294967295) -> -4294967294) ((368 . 5625) (- 1 4294967296) -> -4294967295) ((369 . 5625) (- 1 4294967297) -> -4294967296) ((370 . 5625) (- 1 4294967298) -> -4294967297) ((371 . 5625) (- 2 4294967294) -> -4294967292) ((372 . 5625) (- 2 4294967295) -> -4294967293) ((373 . 5625) (- 2 4294967296) -> -4294967294) ((374 . 5625) (- 2 4294967297) -> -4294967295) ((375 . 5625) (- 2 4294967298) -> -4294967296) ((376 . 5625) (- -1 -2) -> 1) ((377 . 5625) (- -1 -1) -> 0) ((378 . 5625) (- -1 0) -> -1) ((379 . 5625) (- -1 1) -> -2) ((380 . 5625) (- -1 2) -> -3) ((381 . 5625) (- 0 -2) -> 2) ((382 . 5625) (- 0 -1) -> 1) ((383 . 5625) (- 0 0) -> 0) ((384 . 5625) (- 0 1) -> -1) ((385 . 5625) (- 0 2) -> -2) ((386 . 5625) (- 1 -2) -> 3) ((387 . 5625) (- 1 -1) -> 2) ((388 . 5625) (- 1 0) -> 1) ((389 . 5625) (- 1 1) -> 0) ((390 . 5625) (- 1 2) -> -1) ((391 . 5625) (- 2 -2) -> 4) ((392 . 5625) (- 2 -1) -> 3) ((393 . 5625) (- 2 0) -> 2) ((394 . 5625) (- 2 1) -> 1) ((395 . 5625) (- 2 2) -> 0) ((396 . 5625) (- 3 -2) -> 5) ((397 . 5625) (- 3 -1) -> 4) ((398 . 5625) (- 3 0) -> 3) ((399 . 5625) (- 3 1) -> 2) ((400 . 5625) (- 3 2) -> 1) ((401 . 5625) (- -1 -1) -> 0) ((402 . 5625) (- -1 0) -> -1) ((403 . 5625) (- -1 1) -> -2) ((404 . 5625) (- -1 2) -> -3) ((405 . 5625) (- -1 3) -> -4) ((406 . 5625) (- 0 -1) -> 1) ((407 . 5625) (- 0 0) -> 0) ((408 . 5625) (- 0 1) -> -1) ((409 . 5625) (- 0 2) -> -2) ((410 . 5625) (- 0 3) -> -3) ((411 . 5625) (- 1 -1) -> 2) ((412 . 5625) (- 1 0) -> 1) ((413 . 5625) (- 1 1) -> 0) ((414 . 5625) (- 1 2) -> -1) ((415 . 5625) (- 1 3) -> -2) ((416 . 5625) (- 2 -1) -> 3) ((417 . 5625) (- 2 0) -> 2) ((418 . 5625) (- 2 1) -> 1) ((419 . 5625) (- 2 2) -> 0) ((420 . 5625) (- 2 3) -> -1) ((421 . 5625) (- 3 -1) -> 4) ((422 . 5625) (- 3 0) -> 3) ((423 . 5625) (- 3 1) -> 2) ((424 . 5625) (- 3 2) -> 1) ((425 . 5625) (- 3 3) -> 0) ((426 . 5625) (- -1 -3) -> 2) ((427 . 5625) (- -1 -2) -> 1) ((428 . 5625) (- -1 -1) -> 0) ((429 . 5625) (- -1 0) -> -1) ((430 . 5625) (- -1 1) -> -2) ((431 . 5625) (- 0 -3) -> 3) ((432 . 5625) (- 0 -2) -> 2) ((433 . 5625) (- 0 -1) -> 1) ((434 . 5625) (- 0 0) -> 0) ((435 . 5625) (- 0 1) -> -1) ((436 . 5625) (- 1 -3) -> 4) ((437 . 5625) (- 1 -2) -> 3) ((438 . 5625) (- 1 -1) -> 2) ((439 . 5625) (- 1 0) -> 1) ((440 . 5625) (- 1 1) -> 0) ((441 . 5625) (- 2 -3) -> 5) ((442 . 5625) (- 2 -2) -> 4) ((443 . 5625) (- 2 -1) -> 3) ((444 . 5625) (- 2 0) -> 2) ((445 . 5625) (- 2 1) -> 1) ((446 . 5625) (- 3 -3) -> 6) ((447 . 5625) (- 3 -2) -> 5) ((448 . 5625) (- 3 -1) -> 4) ((449 . 5625) (- 3 0) -> 3) ((450 . 5625) (- 3 1) -> 2) ((451 . 5625) (- -1 0) -> -1) ((452 . 5625) (- -1 1) -> -2) ((453 . 5625) (- -1 2) -> -3) ((454 . 5625) (- -1 3) -> -4) ((455 . 5625) (- -1 4) -> -5) ((456 . 5625) (- 0 0) -> 0) ((457 . 5625) (- 0 1) -> -1) ((458 . 5625) (- 0 2) -> -2) ((459 . 5625) (- 0 3) -> -3) ((460 . 5625) (- 0 4) -> -4) ((461 . 5625) (- 1 0) -> 1) ((462 . 5625) (- 1 1) -> 0) ((463 . 5625) (- 1 2) -> -1) ((464 . 5625) (- 1 3) -> -2) ((465 . 5625) (- 1 4) -> -3) ((466 . 5625) (- 2 0) -> 2) ((467 . 5625) (- 2 1) -> 1) ((468 . 5625) (- 2 2) -> 0) ((469 . 5625) (- 2 3) -> -1) ((470 . 5625) (- 2 4) -> -2) ((471 . 5625) (- 3 0) -> 3) ((472 . 5625) (- 3 1) -> 2) ((473 . 5625) (- 3 2) -> 1) ((474 . 5625) (- 3 3) -> 0) ((475 . 5625) (- 3 4) -> -1) ((476 . 5625) (- -1 -4) -> 3) ((477 . 5625) (- -1 -3) -> 2) ((478 . 5625) (- -1 -2) -> 1) ((479 . 5625) (- -1 -1) -> 0) ((480 . 5625) (- -1 0) -> -1) ((481 . 5625) (- 0 -4) -> 4) ((482 . 5625) (- 0 -3) -> 3) ((483 . 5625) (- 0 -2) -> 2) ((484 . 5625) (- 0 -1) -> 1) ((485 . 5625) (- 0 0) -> 0) ((486 . 5625) (- 1 -4) -> 5) ((487 . 5625) (- 1 -3) -> 4) ((488 . 5625) (- 1 -2) -> 3) ((489 . 5625) (- 1 -1) -> 2) ((490 . 5625) (- 1 0) -> 1) ((491 . 5625) (- 2 -4) -> 6) ((492 . 5625) (- 2 -3) -> 5) ((493 . 5625) (- 2 -2) -> 4) ((494 . 5625) (- 2 -1) -> 3) ((495 . 5625) (- 2 0) -> 2) ((496 . 5625) (- 3 -4) -> 7) ((497 . 5625) (- 3 -3) -> 6) ((498 . 5625) (- 3 -2) -> 5) ((499 . 5625) (- 3 -1) -> 4) ((500 . 5625) (- 3 0) -> 3) ((501 . 5625) (- -1 4611686018427387901) -> -4611686018427387902) ((502 . 5625) (- -1 4611686018427387902) -> -4611686018427387903) ((503 . 5625) (- -1 4611686018427387903) -> -4611686018427387904) ((504 . 5625) (- -1 4611686018427387904) -> -4611686018427387905) ((505 . 5625) (- -1 4611686018427387905) -> -4611686018427387906) ((506 . 5625) (- 0 4611686018427387901) -> -4611686018427387901) ((507 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((508 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((509 . 5625) (- 0 4611686018427387904) -> -4611686018427387904) ((510 . 5625) (- 0 4611686018427387905) -> -4611686018427387905) ((511 . 5625) (- 1 4611686018427387901) -> -4611686018427387900) ((512 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((513 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((514 . 5625) (- 1 4611686018427387904) -> -4611686018427387903) ((515 . 5625) (- 1 4611686018427387905) -> -4611686018427387904) ((516 . 5625) (- 2 4611686018427387901) -> -4611686018427387899) ((517 . 5625) (- 2 4611686018427387902) -> -4611686018427387900) ((518 . 5625) (- 2 4611686018427387903) -> -4611686018427387901) ((519 . 5625) (- 2 4611686018427387904) -> -4611686018427387902) ((520 . 5625) (- 2 4611686018427387905) -> -4611686018427387903) ((521 . 5625) (- 3 4611686018427387901) -> -4611686018427387898) ((522 . 5625) (- 3 4611686018427387902) -> -4611686018427387899) ((523 . 5625) (- 3 4611686018427387903) -> -4611686018427387900) ((524 . 5625) (- 3 4611686018427387904) -> -4611686018427387901) ((525 . 5625) (- 3 4611686018427387905) -> -4611686018427387902) ((526 . 5625) (- -1 -4611686018427387906) -> 4611686018427387905) ((527 . 5625) (- -1 -4611686018427387905) -> 4611686018427387904) ((528 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((529 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((530 . 5625) (- -1 -4611686018427387902) -> 4611686018427387901) ((531 . 5625) (- 0 -4611686018427387906) -> 4611686018427387906) ((532 . 5625) (- 0 -4611686018427387905) -> 4611686018427387905) ((533 . 5625) (- 0 -4611686018427387904) -> 4611686018427387904) ((534 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((535 . 5625) (- 0 -4611686018427387902) -> 4611686018427387902) ((536 . 5625) (- 1 -4611686018427387906) -> 4611686018427387907) ((537 . 5625) (- 1 -4611686018427387905) -> 4611686018427387906) ((538 . 5625) (- 1 -4611686018427387904) -> 4611686018427387905) ((539 . 5625) (- 1 -4611686018427387903) -> 4611686018427387904) ((540 . 5625) (- 1 -4611686018427387902) -> 4611686018427387903) ((541 . 5625) (- 2 -4611686018427387906) -> 4611686018427387908) ((542 . 5625) (- 2 -4611686018427387905) -> 4611686018427387907) ((543 . 5625) (- 2 -4611686018427387904) -> 4611686018427387906) ((544 . 5625) (- 2 -4611686018427387903) -> 4611686018427387905) ((545 . 5625) (- 2 -4611686018427387902) -> 4611686018427387904) ((546 . 5625) (- 3 -4611686018427387906) -> 4611686018427387909) ((547 . 5625) (- 3 -4611686018427387905) -> 4611686018427387908) ((548 . 5625) (- 3 -4611686018427387904) -> 4611686018427387907) ((549 . 5625) (- 3 -4611686018427387903) -> 4611686018427387906) ((550 . 5625) (- 3 -4611686018427387902) -> 4611686018427387905) ((551 . 5625) (- -1 4611686018427387902) -> -4611686018427387903) ((552 . 5625) (- -1 4611686018427387903) -> -4611686018427387904) ((553 . 5625) (- -1 4611686018427387904) -> -4611686018427387905) ((554 . 5625) (- -1 4611686018427387905) -> -4611686018427387906) ((555 . 5625) (- -1 4611686018427387906) -> -4611686018427387907) ((556 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((557 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((558 . 5625) (- 0 4611686018427387904) -> -4611686018427387904) ((559 . 5625) (- 0 4611686018427387905) -> -4611686018427387905) ((560 . 5625) (- 0 4611686018427387906) -> -4611686018427387906) ((561 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((562 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((563 . 5625) (- 1 4611686018427387904) -> -4611686018427387903) ((564 . 5625) (- 1 4611686018427387905) -> -4611686018427387904) ((565 . 5625) (- 1 4611686018427387906) -> -4611686018427387905) ((566 . 5625) (- 2 4611686018427387902) -> -4611686018427387900) ((567 . 5625) (- 2 4611686018427387903) -> -4611686018427387901) ((568 . 5625) (- 2 4611686018427387904) -> -4611686018427387902) ((569 . 5625) (- 2 4611686018427387905) -> -4611686018427387903) ((570 . 5625) (- 2 4611686018427387906) -> -4611686018427387904) ((571 . 5625) (- 3 4611686018427387902) -> -4611686018427387899) ((572 . 5625) (- 3 4611686018427387903) -> -4611686018427387900) ((573 . 5625) (- 3 4611686018427387904) -> -4611686018427387901) ((574 . 5625) (- 3 4611686018427387905) -> -4611686018427387902) ((575 . 5625) (- 3 4611686018427387906) -> -4611686018427387903) ((576 . 5625) (- -1 -4611686018427387907) -> 4611686018427387906) ((577 . 5625) (- -1 -4611686018427387906) -> 4611686018427387905) ((578 . 5625) (- -1 -4611686018427387905) -> 4611686018427387904) ((579 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((580 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((581 . 5625) (- 0 -4611686018427387907) -> 4611686018427387907) ((582 . 5625) (- 0 -4611686018427387906) -> 4611686018427387906) ((583 . 5625) (- 0 -4611686018427387905) -> 4611686018427387905) ((584 . 5625) (- 0 -4611686018427387904) -> 4611686018427387904) ((585 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((586 . 5625) (- 1 -4611686018427387907) -> 4611686018427387908) ((587 . 5625) (- 1 -4611686018427387906) -> 4611686018427387907) ((588 . 5625) (- 1 -4611686018427387905) -> 4611686018427387906) ((589 . 5625) (- 1 -4611686018427387904) -> 4611686018427387905) ((590 . 5625) (- 1 -4611686018427387903) -> 4611686018427387904) ((591 . 5625) (- 2 -4611686018427387907) -> 4611686018427387909) ((592 . 5625) (- 2 -4611686018427387906) -> 4611686018427387908) ((593 . 5625) (- 2 -4611686018427387905) -> 4611686018427387907) ((594 . 5625) (- 2 -4611686018427387904) -> 4611686018427387906) ((595 . 5625) (- 2 -4611686018427387903) -> 4611686018427387905) ((596 . 5625) (- 3 -4611686018427387907) -> 4611686018427387910) ((597 . 5625) (- 3 -4611686018427387906) -> 4611686018427387909) ((598 . 5625) (- 3 -4611686018427387905) -> 4611686018427387908) ((599 . 5625) (- 3 -4611686018427387904) -> 4611686018427387907) ((600 . 5625) (- 3 -4611686018427387903) -> 4611686018427387906) ((601 . 5625) (- -1 1103515243) -> -1103515244) ((602 . 5625) (- -1 1103515244) -> -1103515245) ((603 . 5625) (- -1 1103515245) -> -1103515246) ((604 . 5625) (- -1 1103515246) -> -1103515247) ((605 . 5625) (- -1 1103515247) -> -1103515248) ((606 . 5625) (- 0 1103515243) -> -1103515243) ((607 . 5625) (- 0 1103515244) -> -1103515244) ((608 . 5625) (- 0 1103515245) -> -1103515245) ((609 . 5625) (- 0 1103515246) -> -1103515246) ((610 . 5625) (- 0 1103515247) -> -1103515247) ((611 . 5625) (- 1 1103515243) -> -1103515242) ((612 . 5625) (- 1 1103515244) -> -1103515243) ((613 . 5625) (- 1 1103515245) -> -1103515244) ((614 . 5625) (- 1 1103515246) -> -1103515245) ((615 . 5625) (- 1 1103515247) -> -1103515246) ((616 . 5625) (- 2 1103515243) -> -1103515241) ((617 . 5625) (- 2 1103515244) -> -1103515242) ((618 . 5625) (- 2 1103515245) -> -1103515243) ((619 . 5625) (- 2 1103515246) -> -1103515244) ((620 . 5625) (- 2 1103515247) -> -1103515245) ((621 . 5625) (- 3 1103515243) -> -1103515240) ((622 . 5625) (- 3 1103515244) -> -1103515241) ((623 . 5625) (- 3 1103515245) -> -1103515242) ((624 . 5625) (- 3 1103515246) -> -1103515243) ((625 . 5625) (- 3 1103515247) -> -1103515244) ((626 . 5625) (- -1 631629063) -> -631629064) ((627 . 5625) (- -1 631629064) -> -631629065) ((628 . 5625) (- -1 631629065) -> -631629066) ((629 . 5625) (- -1 631629066) -> -631629067) ((630 . 5625) (- -1 631629067) -> -631629068) ((631 . 5625) (- 0 631629063) -> -631629063) ((632 . 5625) (- 0 631629064) -> -631629064) ((633 . 5625) (- 0 631629065) -> -631629065) ((634 . 5625) (- 0 631629066) -> -631629066) ((635 . 5625) (- 0 631629067) -> -631629067) ((636 . 5625) (- 1 631629063) -> -631629062) ((637 . 5625) (- 1 631629064) -> -631629063) ((638 . 5625) (- 1 631629065) -> -631629064) ((639 . 5625) (- 1 631629066) -> -631629065) ((640 . 5625) (- 1 631629067) -> -631629066) ((641 . 5625) (- 2 631629063) -> -631629061) ((642 . 5625) (- 2 631629064) -> -631629062) ((643 . 5625) (- 2 631629065) -> -631629063) ((644 . 5625) (- 2 631629066) -> -631629064) ((645 . 5625) (- 2 631629067) -> -631629065) ((646 . 5625) (- 3 631629063) -> -631629060) ((647 . 5625) (- 3 631629064) -> -631629061) ((648 . 5625) (- 3 631629065) -> -631629062) ((649 . 5625) (- 3 631629066) -> -631629063) ((650 . 5625) (- 3 631629067) -> -631629064) ((651 . 5625) (- -1 9007199254740990) -> -9007199254740991) ((652 . 5625) (- -1 9007199254740991) -> -9007199254740992) ((653 . 5625) (- -1 9007199254740992) -> -9007199254740993) ((654 . 5625) (- -1 9007199254740993) -> -9007199254740994) ((655 . 5625) (- -1 9007199254740994) -> -9007199254740995) ((656 . 5625) (- 0 9007199254740990) -> -9007199254740990) ((657 . 5625) (- 0 9007199254740991) -> -9007199254740991) ((658 . 5625) (- 0 9007199254740992) -> -9007199254740992) ((659 . 5625) (- 0 9007199254740993) -> -9007199254740993) ((660 . 5625) (- 0 9007199254740994) -> -9007199254740994) ((661 . 5625) (- 1 9007199254740990) -> -9007199254740989) ((662 . 5625) (- 1 9007199254740991) -> -9007199254740990) ((663 . 5625) (- 1 9007199254740992) -> -9007199254740991) ((664 . 5625) (- 1 9007199254740993) -> -9007199254740992) ((665 . 5625) (- 1 9007199254740994) -> -9007199254740993) ((666 . 5625) (- 2 9007199254740990) -> -9007199254740988) ((667 . 5625) (- 2 9007199254740991) -> -9007199254740989) ((668 . 5625) (- 2 9007199254740992) -> -9007199254740990) ((669 . 5625) (- 2 9007199254740993) -> -9007199254740991) ((670 . 5625) (- 2 9007199254740994) -> -9007199254740992) ((671 . 5625) (- 3 9007199254740990) -> -9007199254740987) ((672 . 5625) (- 3 9007199254740991) -> -9007199254740988) ((673 . 5625) (- 3 9007199254740992) -> -9007199254740989) ((674 . 5625) (- 3 9007199254740993) -> -9007199254740990) ((675 . 5625) (- 3 9007199254740994) -> -9007199254740991) ((676 . 5625) (- -1 -9007199254740994) -> 9007199254740993) ((677 . 5625) (- -1 -9007199254740993) -> 9007199254740992) ((678 . 5625) (- -1 -9007199254740992) -> 9007199254740991) ((679 . 5625) (- -1 -9007199254740991) -> 9007199254740990) ((680 . 5625) (- -1 -9007199254740990) -> 9007199254740989) ((681 . 5625) (- 0 -9007199254740994) -> 9007199254740994) ((682 . 5625) (- 0 -9007199254740993) -> 9007199254740993) ((683 . 5625) (- 0 -9007199254740992) -> 9007199254740992) ((684 . 5625) (- 0 -9007199254740991) -> 9007199254740991) ((685 . 5625) (- 0 -9007199254740990) -> 9007199254740990) ((686 . 5625) (- 1 -9007199254740994) -> 9007199254740995) ((687 . 5625) (- 1 -9007199254740993) -> 9007199254740994) ((688 . 5625) (- 1 -9007199254740992) -> 9007199254740993) ((689 . 5625) (- 1 -9007199254740991) -> 9007199254740992) ((690 . 5625) (- 1 -9007199254740990) -> 9007199254740991) ((691 . 5625) (- 2 -9007199254740994) -> 9007199254740996) ((692 . 5625) (- 2 -9007199254740993) -> 9007199254740995) ((693 . 5625) (- 2 -9007199254740992) -> 9007199254740994) ((694 . 5625) (- 2 -9007199254740991) -> 9007199254740993) ((695 . 5625) (- 2 -9007199254740990) -> 9007199254740992) ((696 . 5625) (- 3 -9007199254740994) -> 9007199254740997) ((697 . 5625) (- 3 -9007199254740993) -> 9007199254740996) ((698 . 5625) (- 3 -9007199254740992) -> 9007199254740995) ((699 . 5625) (- 3 -9007199254740991) -> 9007199254740994) ((700 . 5625) (- 3 -9007199254740990) -> 9007199254740993) ((701 . 5625) (- -1 12343) -> -12344) ((702 . 5625) (- -1 12344) -> -12345) ((703 . 5625) (- -1 12345) -> -12346) ((704 . 5625) (- -1 12346) -> -12347) ((705 . 5625) (- -1 12347) -> -12348) ((706 . 5625) (- 0 12343) -> -12343) ((707 . 5625) (- 0 12344) -> -12344) ((708 . 5625) (- 0 12345) -> -12345) ((709 . 5625) (- 0 12346) -> -12346) ((710 . 5625) (- 0 12347) -> -12347) ((711 . 5625) (- 1 12343) -> -12342) ((712 . 5625) (- 1 12344) -> -12343) ((713 . 5625) (- 1 12345) -> -12344) ((714 . 5625) (- 1 12346) -> -12345) ((715 . 5625) (- 1 12347) -> -12346) ((716 . 5625) (- 2 12343) -> -12341) ((717 . 5625) (- 2 12344) -> -12342) ((718 . 5625) (- 2 12345) -> -12343) ((719 . 5625) (- 2 12346) -> -12344) ((720 . 5625) (- 2 12347) -> -12345) ((721 . 5625) (- 3 12343) -> -12340) ((722 . 5625) (- 3 12344) -> -12341) ((723 . 5625) (- 3 12345) -> -12342) ((724 . 5625) (- 3 12346) -> -12343) ((725 . 5625) (- 3 12347) -> -12344) ((726 . 5625) (- -1 4294967294) -> -4294967295) ((727 . 5625) (- -1 4294967295) -> -4294967296) ((728 . 5625) (- -1 4294967296) -> -4294967297) ((729 . 5625) (- -1 4294967297) -> -4294967298) ((730 . 5625) (- -1 4294967298) -> -4294967299) ((731 . 5625) (- 0 4294967294) -> -4294967294) ((732 . 5625) (- 0 4294967295) -> -4294967295) ((733 . 5625) (- 0 4294967296) -> -4294967296) ((734 . 5625) (- 0 4294967297) -> -4294967297) ((735 . 5625) (- 0 4294967298) -> -4294967298) ((736 . 5625) (- 1 4294967294) -> -4294967293) ((737 . 5625) (- 1 4294967295) -> -4294967294) ((738 . 5625) (- 1 4294967296) -> -4294967295) ((739 . 5625) (- 1 4294967297) -> -4294967296) ((740 . 5625) (- 1 4294967298) -> -4294967297) ((741 . 5625) (- 2 4294967294) -> -4294967292) ((742 . 5625) (- 2 4294967295) -> -4294967293) ((743 . 5625) (- 2 4294967296) -> -4294967294) ((744 . 5625) (- 2 4294967297) -> -4294967295) ((745 . 5625) (- 2 4294967298) -> -4294967296) ((746 . 5625) (- 3 4294967294) -> -4294967291) ((747 . 5625) (- 3 4294967295) -> -4294967292) ((748 . 5625) (- 3 4294967296) -> -4294967293) ((749 . 5625) (- 3 4294967297) -> -4294967294) ((750 . 5625) (- 3 4294967298) -> -4294967295) ((751 . 5625) (- -3 -2) -> -1) ((752 . 5625) (- -3 -1) -> -2) ((753 . 5625) (- -3 0) -> -3) ((754 . 5625) (- -3 1) -> -4) ((755 . 5625) (- -3 2) -> -5) ((756 . 5625) (- -2 -2) -> 0) ((757 . 5625) (- -2 -1) -> -1) ((758 . 5625) (- -2 0) -> -2) ((759 . 5625) (- -2 1) -> -3) ((760 . 5625) (- -2 2) -> -4) ((761 . 5625) (- -1 -2) -> 1) ((762 . 5625) (- -1 -1) -> 0) ((763 . 5625) (- -1 0) -> -1) ((764 . 5625) (- -1 1) -> -2) ((765 . 5625) (- -1 2) -> -3) ((766 . 5625) (- 0 -2) -> 2) ((767 . 5625) (- 0 -1) -> 1) ((768 . 5625) (- 0 0) -> 0) ((769 . 5625) (- 0 1) -> -1) ((770 . 5625) (- 0 2) -> -2) ((771 . 5625) (- 1 -2) -> 3) ((772 . 5625) (- 1 -1) -> 2) ((773 . 5625) (- 1 0) -> 1) ((774 . 5625) (- 1 1) -> 0) ((775 . 5625) (- 1 2) -> -1) ((776 . 5625) (- -3 -1) -> -2) ((777 . 5625) (- -3 0) -> -3) ((778 . 5625) (- -3 1) -> -4) ((779 . 5625) (- -3 2) -> -5) ((780 . 5625) (- -3 3) -> -6) ((781 . 5625) (- -2 -1) -> -1) ((782 . 5625) (- -2 0) -> -2) ((783 . 5625) (- -2 1) -> -3) ((784 . 5625) (- -2 2) -> -4) ((785 . 5625) (- -2 3) -> -5) ((786 . 5625) (- -1 -1) -> 0) ((787 . 5625) (- -1 0) -> -1) ((788 . 5625) (- -1 1) -> -2) ((789 . 5625) (- -1 2) -> -3) ((790 . 5625) (- -1 3) -> -4) ((791 . 5625) (- 0 -1) -> 1) ((792 . 5625) (- 0 0) -> 0) ((793 . 5625) (- 0 1) -> -1) ((794 . 5625) (- 0 2) -> -2) ((795 . 5625) (- 0 3) -> -3) ((796 . 5625) (- 1 -1) -> 2) ((797 . 5625) (- 1 0) -> 1) ((798 . 5625) (- 1 1) -> 0) ((799 . 5625) (- 1 2) -> -1) ((800 . 5625) (- 1 3) -> -2) ((801 . 5625) (- -3 -3) -> 0) ((802 . 5625) (- -3 -2) -> -1) ((803 . 5625) (- -3 -1) -> -2) ((804 . 5625) (- -3 0) -> -3) ((805 . 5625) (- -3 1) -> -4) ((806 . 5625) (- -2 -3) -> 1) ((807 . 5625) (- -2 -2) -> 0) ((808 . 5625) (- -2 -1) -> -1) ((809 . 5625) (- -2 0) -> -2) ((810 . 5625) (- -2 1) -> -3) ((811 . 5625) (- -1 -3) -> 2) ((812 . 5625) (- -1 -2) -> 1) ((813 . 5625) (- -1 -1) -> 0) ((814 . 5625) (- -1 0) -> -1) ((815 . 5625) (- -1 1) -> -2) ((816 . 5625) (- 0 -3) -> 3) ((817 . 5625) (- 0 -2) -> 2) ((818 . 5625) (- 0 -1) -> 1) ((819 . 5625) (- 0 0) -> 0) ((820 . 5625) (- 0 1) -> -1) ((821 . 5625) (- 1 -3) -> 4) ((822 . 5625) (- 1 -2) -> 3) ((823 . 5625) (- 1 -1) -> 2) ((824 . 5625) (- 1 0) -> 1) ((825 . 5625) (- 1 1) -> 0) ((826 . 5625) (- -3 0) -> -3) ((827 . 5625) (- -3 1) -> -4) ((828 . 5625) (- -3 2) -> -5) ((829 . 5625) (- -3 3) -> -6) ((830 . 5625) (- -3 4) -> -7) ((831 . 5625) (- -2 0) -> -2) ((832 . 5625) (- -2 1) -> -3) ((833 . 5625) (- -2 2) -> -4) ((834 . 5625) (- -2 3) -> -5) ((835 . 5625) (- -2 4) -> -6) ((836 . 5625) (- -1 0) -> -1) ((837 . 5625) (- -1 1) -> -2) ((838 . 5625) (- -1 2) -> -3) ((839 . 5625) (- -1 3) -> -4) ((840 . 5625) (- -1 4) -> -5) ((841 . 5625) (- 0 0) -> 0) ((842 . 5625) (- 0 1) -> -1) ((843 . 5625) (- 0 2) -> -2) ((844 . 5625) (- 0 3) -> -3) ((845 . 5625) (- 0 4) -> -4) ((846 . 5625) (- 1 0) -> 1) ((847 . 5625) (- 1 1) -> 0) ((848 . 5625) (- 1 2) -> -1) ((849 . 5625) (- 1 3) -> -2) ((850 . 5625) (- 1 4) -> -3) ((851 . 5625) (- -3 -4) -> 1) ((852 . 5625) (- -3 -3) -> 0) ((853 . 5625) (- -3 -2) -> -1) ((854 . 5625) (- -3 -1) -> -2) ((855 . 5625) (- -3 0) -> -3) ((856 . 5625) (- -2 -4) -> 2) ((857 . 5625) (- -2 -3) -> 1) ((858 . 5625) (- -2 -2) -> 0) ((859 . 5625) (- -2 -1) -> -1) ((860 . 5625) (- -2 0) -> -2) ((861 . 5625) (- -1 -4) -> 3) ((862 . 5625) (- -1 -3) -> 2) ((863 . 5625) (- -1 -2) -> 1) ((864 . 5625) (- -1 -1) -> 0) ((865 . 5625) (- -1 0) -> -1) ((866 . 5625) (- 0 -4) -> 4) ((867 . 5625) (- 0 -3) -> 3) ((868 . 5625) (- 0 -2) -> 2) ((869 . 5625) (- 0 -1) -> 1) ((870 . 5625) (- 0 0) -> 0) ((871 . 5625) (- 1 -4) -> 5) ((872 . 5625) (- 1 -3) -> 4) ((873 . 5625) (- 1 -2) -> 3) ((874 . 5625) (- 1 -1) -> 2) ((875 . 5625) (- 1 0) -> 1) ((876 . 5625) (- -3 4611686018427387901) -> -4611686018427387904) ((877 . 5625) (- -3 4611686018427387902) -> -4611686018427387905) ((878 . 5625) (- -3 4611686018427387903) -> -4611686018427387906) ((879 . 5625) (- -3 4611686018427387904) -> -4611686018427387907) ((880 . 5625) (- -3 4611686018427387905) -> -4611686018427387908) ((881 . 5625) (- -2 4611686018427387901) -> -4611686018427387903) ((882 . 5625) (- -2 4611686018427387902) -> -4611686018427387904) ((883 . 5625) (- -2 4611686018427387903) -> -4611686018427387905) ((884 . 5625) (- -2 4611686018427387904) -> -4611686018427387906) ((885 . 5625) (- -2 4611686018427387905) -> -4611686018427387907) ((886 . 5625) (- -1 4611686018427387901) -> -4611686018427387902) ((887 . 5625) (- -1 4611686018427387902) -> -4611686018427387903) ((888 . 5625) (- -1 4611686018427387903) -> -4611686018427387904) ((889 . 5625) (- -1 4611686018427387904) -> -4611686018427387905) ((890 . 5625) (- -1 4611686018427387905) -> -4611686018427387906) ((891 . 5625) (- 0 4611686018427387901) -> -4611686018427387901) ((892 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((893 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((894 . 5625) (- 0 4611686018427387904) -> -4611686018427387904) ((895 . 5625) (- 0 4611686018427387905) -> -4611686018427387905) ((896 . 5625) (- 1 4611686018427387901) -> -4611686018427387900) ((897 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((898 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((899 . 5625) (- 1 4611686018427387904) -> -4611686018427387903) ((900 . 5625) (- 1 4611686018427387905) -> -4611686018427387904) ((901 . 5625) (- -3 -4611686018427387906) -> 4611686018427387903) ((902 . 5625) (- -3 -4611686018427387905) -> 4611686018427387902) ((903 . 5625) (- -3 -4611686018427387904) -> 4611686018427387901) ((904 . 5625) (- -3 -4611686018427387903) -> 4611686018427387900) ((905 . 5625) (- -3 -4611686018427387902) -> 4611686018427387899) ((906 . 5625) (- -2 -4611686018427387906) -> 4611686018427387904) ((907 . 5625) (- -2 -4611686018427387905) -> 4611686018427387903) ((908 . 5625) (- -2 -4611686018427387904) -> 4611686018427387902) ((909 . 5625) (- -2 -4611686018427387903) -> 4611686018427387901) ((910 . 5625) (- -2 -4611686018427387902) -> 4611686018427387900) ((911 . 5625) (- -1 -4611686018427387906) -> 4611686018427387905) ((912 . 5625) (- -1 -4611686018427387905) -> 4611686018427387904) ((913 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((914 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((915 . 5625) (- -1 -4611686018427387902) -> 4611686018427387901) ((916 . 5625) (- 0 -4611686018427387906) -> 4611686018427387906) ((917 . 5625) (- 0 -4611686018427387905) -> 4611686018427387905) ((918 . 5625) (- 0 -4611686018427387904) -> 4611686018427387904) ((919 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((920 . 5625) (- 0 -4611686018427387902) -> 4611686018427387902) ((921 . 5625) (- 1 -4611686018427387906) -> 4611686018427387907) ((922 . 5625) (- 1 -4611686018427387905) -> 4611686018427387906) ((923 . 5625) (- 1 -4611686018427387904) -> 4611686018427387905) ((924 . 5625) (- 1 -4611686018427387903) -> 4611686018427387904) ((925 . 5625) (- 1 -4611686018427387902) -> 4611686018427387903) ((926 . 5625) (- -3 4611686018427387902) -> -4611686018427387905) ((927 . 5625) (- -3 4611686018427387903) -> -4611686018427387906) ((928 . 5625) (- -3 4611686018427387904) -> -4611686018427387907) ((929 . 5625) (- -3 4611686018427387905) -> -4611686018427387908) ((930 . 5625) (- -3 4611686018427387906) -> -4611686018427387909) ((931 . 5625) (- -2 4611686018427387902) -> -4611686018427387904) ((932 . 5625) (- -2 4611686018427387903) -> -4611686018427387905) ((933 . 5625) (- -2 4611686018427387904) -> -4611686018427387906) ((934 . 5625) (- -2 4611686018427387905) -> -4611686018427387907) ((935 . 5625) (- -2 4611686018427387906) -> -4611686018427387908) ((936 . 5625) (- -1 4611686018427387902) -> -4611686018427387903) ((937 . 5625) (- -1 4611686018427387903) -> -4611686018427387904) ((938 . 5625) (- -1 4611686018427387904) -> -4611686018427387905) ((939 . 5625) (- -1 4611686018427387905) -> -4611686018427387906) ((940 . 5625) (- -1 4611686018427387906) -> -4611686018427387907) ((941 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((942 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((943 . 5625) (- 0 4611686018427387904) -> -4611686018427387904) ((944 . 5625) (- 0 4611686018427387905) -> -4611686018427387905) ((945 . 5625) (- 0 4611686018427387906) -> -4611686018427387906) ((946 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((947 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((948 . 5625) (- 1 4611686018427387904) -> -4611686018427387903) ((949 . 5625) (- 1 4611686018427387905) -> -4611686018427387904) ((950 . 5625) (- 1 4611686018427387906) -> -4611686018427387905) ((951 . 5625) (- -3 -4611686018427387907) -> 4611686018427387904) ((952 . 5625) (- -3 -4611686018427387906) -> 4611686018427387903) ((953 . 5625) (- -3 -4611686018427387905) -> 4611686018427387902) ((954 . 5625) (- -3 -4611686018427387904) -> 4611686018427387901) ((955 . 5625) (- -3 -4611686018427387903) -> 4611686018427387900) ((956 . 5625) (- -2 -4611686018427387907) -> 4611686018427387905) ((957 . 5625) (- -2 -4611686018427387906) -> 4611686018427387904) ((958 . 5625) (- -2 -4611686018427387905) -> 4611686018427387903) ((959 . 5625) (- -2 -4611686018427387904) -> 4611686018427387902) ((960 . 5625) (- -2 -4611686018427387903) -> 4611686018427387901) ((961 . 5625) (- -1 -4611686018427387907) -> 4611686018427387906) ((962 . 5625) (- -1 -4611686018427387906) -> 4611686018427387905) ((963 . 5625) (- -1 -4611686018427387905) -> 4611686018427387904) ((964 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((965 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((966 . 5625) (- 0 -4611686018427387907) -> 4611686018427387907) ((967 . 5625) (- 0 -4611686018427387906) -> 4611686018427387906) ((968 . 5625) (- 0 -4611686018427387905) -> 4611686018427387905) ((969 . 5625) (- 0 -4611686018427387904) -> 4611686018427387904) ((970 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((971 . 5625) (- 1 -4611686018427387907) -> 4611686018427387908) ((972 . 5625) (- 1 -4611686018427387906) -> 4611686018427387907) ((973 . 5625) (- 1 -4611686018427387905) -> 4611686018427387906) ((974 . 5625) (- 1 -4611686018427387904) -> 4611686018427387905) ((975 . 5625) (- 1 -4611686018427387903) -> 4611686018427387904) ((976 . 5625) (- -3 1103515243) -> -1103515246) ((977 . 5625) (- -3 1103515244) -> -1103515247) ((978 . 5625) (- -3 1103515245) -> -1103515248) ((979 . 5625) (- -3 1103515246) -> -1103515249) ((980 . 5625) (- -3 1103515247) -> -1103515250) ((981 . 5625) (- -2 1103515243) -> -1103515245) ((982 . 5625) (- -2 1103515244) -> -1103515246) ((983 . 5625) (- -2 1103515245) -> -1103515247) ((984 . 5625) (- -2 1103515246) -> -1103515248) ((985 . 5625) (- -2 1103515247) -> -1103515249) ((986 . 5625) (- -1 1103515243) -> -1103515244) ((987 . 5625) (- -1 1103515244) -> -1103515245) ((988 . 5625) (- -1 1103515245) -> -1103515246) ((989 . 5625) (- -1 1103515246) -> -1103515247) ((990 . 5625) (- -1 1103515247) -> -1103515248) ((991 . 5625) (- 0 1103515243) -> -1103515243) ((992 . 5625) (- 0 1103515244) -> -1103515244) ((993 . 5625) (- 0 1103515245) -> -1103515245) ((994 . 5625) (- 0 1103515246) -> -1103515246) ((995 . 5625) (- 0 1103515247) -> -1103515247) ((996 . 5625) (- 1 1103515243) -> -1103515242) ((997 . 5625) (- 1 1103515244) -> -1103515243) ((998 . 5625) (- 1 1103515245) -> -1103515244) ((999 . 5625) (- 1 1103515246) -> -1103515245) ((1000 . 5625) (- 1 1103515247) -> -1103515246) ((1001 . 5625) (- -3 631629063) -> -631629066) ((1002 . 5625) (- -3 631629064) -> -631629067) ((1003 . 5625) (- -3 631629065) -> -631629068) ((1004 . 5625) (- -3 631629066) -> -631629069) ((1005 . 5625) (- -3 631629067) -> -631629070) ((1006 . 5625) (- -2 631629063) -> -631629065) ((1007 . 5625) (- -2 631629064) -> -631629066) ((1008 . 5625) (- -2 631629065) -> -631629067) ((1009 . 5625) (- -2 631629066) -> -631629068) ((1010 . 5625) (- -2 631629067) -> -631629069) ((1011 . 5625) (- -1 631629063) -> -631629064) ((1012 . 5625) (- -1 631629064) -> -631629065) ((1013 . 5625) (- -1 631629065) -> -631629066) ((1014 . 5625) (- -1 631629066) -> -631629067) ((1015 . 5625) (- -1 631629067) -> -631629068) ((1016 . 5625) (- 0 631629063) -> -631629063) ((1017 . 5625) (- 0 631629064) -> -631629064) ((1018 . 5625) (- 0 631629065) -> -631629065) ((1019 . 5625) (- 0 631629066) -> -631629066) ((1020 . 5625) (- 0 631629067) -> -631629067) ((1021 . 5625) (- 1 631629063) -> -631629062) ((1022 . 5625) (- 1 631629064) -> -631629063) ((1023 . 5625) (- 1 631629065) -> -631629064) ((1024 . 5625) (- 1 631629066) -> -631629065) ((1025 . 5625) (- 1 631629067) -> -631629066) ((1026 . 5625) (- -3 9007199254740990) -> -9007199254740993) ((1027 . 5625) (- -3 9007199254740991) -> -9007199254740994) ((1028 . 5625) (- -3 9007199254740992) -> -9007199254740995) ((1029 . 5625) (- -3 9007199254740993) -> -9007199254740996) ((1030 . 5625) (- -3 9007199254740994) -> -9007199254740997) ((1031 . 5625) (- -2 9007199254740990) -> -9007199254740992) ((1032 . 5625) (- -2 9007199254740991) -> -9007199254740993) ((1033 . 5625) (- -2 9007199254740992) -> -9007199254740994) ((1034 . 5625) (- -2 9007199254740993) -> -9007199254740995) ((1035 . 5625) (- -2 9007199254740994) -> -9007199254740996) ((1036 . 5625) (- -1 9007199254740990) -> -9007199254740991) ((1037 . 5625) (- -1 9007199254740991) -> -9007199254740992) ((1038 . 5625) (- -1 9007199254740992) -> -9007199254740993) ((1039 . 5625) (- -1 9007199254740993) -> -9007199254740994) ((1040 . 5625) (- -1 9007199254740994) -> -9007199254740995) ((1041 . 5625) (- 0 9007199254740990) -> -9007199254740990) ((1042 . 5625) (- 0 9007199254740991) -> -9007199254740991) ((1043 . 5625) (- 0 9007199254740992) -> -9007199254740992) ((1044 . 5625) (- 0 9007199254740993) -> -9007199254740993) ((1045 . 5625) (- 0 9007199254740994) -> -9007199254740994) ((1046 . 5625) (- 1 9007199254740990) -> -9007199254740989) ((1047 . 5625) (- 1 9007199254740991) -> -9007199254740990) ((1048 . 5625) (- 1 9007199254740992) -> -9007199254740991) ((1049 . 5625) (- 1 9007199254740993) -> -9007199254740992) ((1050 . 5625) (- 1 9007199254740994) -> -9007199254740993) ((1051 . 5625) (- -3 -9007199254740994) -> 9007199254740991) ((1052 . 5625) (- -3 -9007199254740993) -> 9007199254740990) ((1053 . 5625) (- -3 -9007199254740992) -> 9007199254740989) ((1054 . 5625) (- -3 -9007199254740991) -> 9007199254740988) ((1055 . 5625) (- -3 -9007199254740990) -> 9007199254740987) ((1056 . 5625) (- -2 -9007199254740994) -> 9007199254740992) ((1057 . 5625) (- -2 -9007199254740993) -> 9007199254740991) ((1058 . 5625) (- -2 -9007199254740992) -> 9007199254740990) ((1059 . 5625) (- -2 -9007199254740991) -> 9007199254740989) ((1060 . 5625) (- -2 -9007199254740990) -> 9007199254740988) ((1061 . 5625) (- -1 -9007199254740994) -> 9007199254740993) ((1062 . 5625) (- -1 -9007199254740993) -> 9007199254740992) ((1063 . 5625) (- -1 -9007199254740992) -> 9007199254740991) ((1064 . 5625) (- -1 -9007199254740991) -> 9007199254740990) ((1065 . 5625) (- -1 -9007199254740990) -> 9007199254740989) ((1066 . 5625) (- 0 -9007199254740994) -> 9007199254740994) ((1067 . 5625) (- 0 -9007199254740993) -> 9007199254740993) ((1068 . 5625) (- 0 -9007199254740992) -> 9007199254740992) ((1069 . 5625) (- 0 -9007199254740991) -> 9007199254740991) ((1070 . 5625) (- 0 -9007199254740990) -> 9007199254740990) ((1071 . 5625) (- 1 -9007199254740994) -> 9007199254740995) ((1072 . 5625) (- 1 -9007199254740993) -> 9007199254740994) ((1073 . 5625) (- 1 -9007199254740992) -> 9007199254740993) ((1074 . 5625) (- 1 -9007199254740991) -> 9007199254740992) ((1075 . 5625) (- 1 -9007199254740990) -> 9007199254740991) ((1076 . 5625) (- -3 12343) -> -12346) ((1077 . 5625) (- -3 12344) -> -12347) ((1078 . 5625) (- -3 12345) -> -12348) ((1079 . 5625) (- -3 12346) -> -12349) ((1080 . 5625) (- -3 12347) -> -12350) ((1081 . 5625) (- -2 12343) -> -12345) ((1082 . 5625) (- -2 12344) -> -12346) ((1083 . 5625) (- -2 12345) -> -12347) ((1084 . 5625) (- -2 12346) -> -12348) ((1085 . 5625) (- -2 12347) -> -12349) ((1086 . 5625) (- -1 12343) -> -12344) ((1087 . 5625) (- -1 12344) -> -12345) ((1088 . 5625) (- -1 12345) -> -12346) ((1089 . 5625) (- -1 12346) -> -12347) ((1090 . 5625) (- -1 12347) -> -12348) ((1091 . 5625) (- 0 12343) -> -12343) ((1092 . 5625) (- 0 12344) -> -12344) ((1093 . 5625) (- 0 12345) -> -12345) ((1094 . 5625) (- 0 12346) -> -12346) ((1095 . 5625) (- 0 12347) -> -12347) ((1096 . 5625) (- 1 12343) -> -12342) ((1097 . 5625) (- 1 12344) -> -12343) ((1098 . 5625) (- 1 12345) -> -12344) ((1099 . 5625) (- 1 12346) -> -12345) ((1100 . 5625) (- 1 12347) -> -12346) ((1101 . 5625) (- -3 4294967294) -> -4294967297) ((1102 . 5625) (- -3 4294967295) -> -4294967298) ((1103 . 5625) (- -3 4294967296) -> -4294967299) ((1104 . 5625) (- -3 4294967297) -> -4294967300) ((1105 . 5625) (- -3 4294967298) -> -4294967301) ((1106 . 5625) (- -2 4294967294) -> -4294967296) ((1107 . 5625) (- -2 4294967295) -> -4294967297) ((1108 . 5625) (- -2 4294967296) -> -4294967298) ((1109 . 5625) (- -2 4294967297) -> -4294967299) ((1110 . 5625) (- -2 4294967298) -> -4294967300) ((1111 . 5625) (- -1 4294967294) -> -4294967295) ((1112 . 5625) (- -1 4294967295) -> -4294967296) ((1113 . 5625) (- -1 4294967296) -> -4294967297) ((1114 . 5625) (- -1 4294967297) -> -4294967298) ((1115 . 5625) (- -1 4294967298) -> -4294967299) ((1116 . 5625) (- 0 4294967294) -> -4294967294) ((1117 . 5625) (- 0 4294967295) -> -4294967295) ((1118 . 5625) (- 0 4294967296) -> -4294967296) ((1119 . 5625) (- 0 4294967297) -> -4294967297) ((1120 . 5625) (- 0 4294967298) -> -4294967298) ((1121 . 5625) (- 1 4294967294) -> -4294967293) ((1122 . 5625) (- 1 4294967295) -> -4294967294) ((1123 . 5625) (- 1 4294967296) -> -4294967295) ((1124 . 5625) (- 1 4294967297) -> -4294967296) ((1125 . 5625) (- 1 4294967298) -> -4294967297) ((1126 . 5625) (- 0 -2) -> 2) ((1127 . 5625) (- 0 -1) -> 1) ((1128 . 5625) (- 0 0) -> 0) ((1129 . 5625) (- 0 1) -> -1) ((1130 . 5625) (- 0 2) -> -2) ((1131 . 5625) (- 1 -2) -> 3) ((1132 . 5625) (- 1 -1) -> 2) ((1133 . 5625) (- 1 0) -> 1) ((1134 . 5625) (- 1 1) -> 0) ((1135 . 5625) (- 1 2) -> -1) ((1136 . 5625) (- 2 -2) -> 4) ((1137 . 5625) (- 2 -1) -> 3) ((1138 . 5625) (- 2 0) -> 2) ((1139 . 5625) (- 2 1) -> 1) ((1140 . 5625) (- 2 2) -> 0) ((1141 . 5625) (- 3 -2) -> 5) ((1142 . 5625) (- 3 -1) -> 4) ((1143 . 5625) (- 3 0) -> 3) ((1144 . 5625) (- 3 1) -> 2) ((1145 . 5625) (- 3 2) -> 1) ((1146 . 5625) (- 4 -2) -> 6) ((1147 . 5625) (- 4 -1) -> 5) ((1148 . 5625) (- 4 0) -> 4) ((1149 . 5625) (- 4 1) -> 3) ((1150 . 5625) (- 4 2) -> 2) ((1151 . 5625) (- 0 -1) -> 1) ((1152 . 5625) (- 0 0) -> 0) ((1153 . 5625) (- 0 1) -> -1) ((1154 . 5625) (- 0 2) -> -2) ((1155 . 5625) (- 0 3) -> -3) ((1156 . 5625) (- 1 -1) -> 2) ((1157 . 5625) (- 1 0) -> 1) ((1158 . 5625) (- 1 1) -> 0) ((1159 . 5625) (- 1 2) -> -1) ((1160 . 5625) (- 1 3) -> -2) ((1161 . 5625) (- 2 -1) -> 3) ((1162 . 5625) (- 2 0) -> 2) ((1163 . 5625) (- 2 1) -> 1) ((1164 . 5625) (- 2 2) -> 0) ((1165 . 5625) (- 2 3) -> -1) ((1166 . 5625) (- 3 -1) -> 4) ((1167 . 5625) (- 3 0) -> 3) ((1168 . 5625) (- 3 1) -> 2) ((1169 . 5625) (- 3 2) -> 1) ((1170 . 5625) (- 3 3) -> 0) ((1171 . 5625) (- 4 -1) -> 5) ((1172 . 5625) (- 4 0) -> 4) ((1173 . 5625) (- 4 1) -> 3) ((1174 . 5625) (- 4 2) -> 2) ((1175 . 5625) (- 4 3) -> 1) ((1176 . 5625) (- 0 -3) -> 3) ((1177 . 5625) (- 0 -2) -> 2) ((1178 . 5625) (- 0 -1) -> 1) ((1179 . 5625) (- 0 0) -> 0) ((1180 . 5625) (- 0 1) -> -1) ((1181 . 5625) (- 1 -3) -> 4) ((1182 . 5625) (- 1 -2) -> 3) ((1183 . 5625) (- 1 -1) -> 2) ((1184 . 5625) (- 1 0) -> 1) ((1185 . 5625) (- 1 1) -> 0) ((1186 . 5625) (- 2 -3) -> 5) ((1187 . 5625) (- 2 -2) -> 4) ((1188 . 5625) (- 2 -1) -> 3) ((1189 . 5625) (- 2 0) -> 2) ((1190 . 5625) (- 2 1) -> 1) ((1191 . 5625) (- 3 -3) -> 6) ((1192 . 5625) (- 3 -2) -> 5) ((1193 . 5625) (- 3 -1) -> 4) ((1194 . 5625) (- 3 0) -> 3) ((1195 . 5625) (- 3 1) -> 2) ((1196 . 5625) (- 4 -3) -> 7) ((1197 . 5625) (- 4 -2) -> 6) ((1198 . 5625) (- 4 -1) -> 5) ((1199 . 5625) (- 4 0) -> 4) ((1200 . 5625) (- 4 1) -> 3) ((1201 . 5625) (- 0 0) -> 0) ((1202 . 5625) (- 0 1) -> -1) ((1203 . 5625) (- 0 2) -> -2) ((1204 . 5625) (- 0 3) -> -3) ((1205 . 5625) (- 0 4) -> -4) ((1206 . 5625) (- 1 0) -> 1) ((1207 . 5625) (- 1 1) -> 0) ((1208 . 5625) (- 1 2) -> -1) ((1209 . 5625) (- 1 3) -> -2) ((1210 . 5625) (- 1 4) -> -3) ((1211 . 5625) (- 2 0) -> 2) ((1212 . 5625) (- 2 1) -> 1) ((1213 . 5625) (- 2 2) -> 0) ((1214 . 5625) (- 2 3) -> -1) ((1215 . 5625) (- 2 4) -> -2) ((1216 . 5625) (- 3 0) -> 3) ((1217 . 5625) (- 3 1) -> 2) ((1218 . 5625) (- 3 2) -> 1) ((1219 . 5625) (- 3 3) -> 0) ((1220 . 5625) (- 3 4) -> -1) ((1221 . 5625) (- 4 0) -> 4) ((1222 . 5625) (- 4 1) -> 3) ((1223 . 5625) (- 4 2) -> 2) ((1224 . 5625) (- 4 3) -> 1) ((1225 . 5625) (- 4 4) -> 0) ((1226 . 5625) (- 0 -4) -> 4) ((1227 . 5625) (- 0 -3) -> 3) ((1228 . 5625) (- 0 -2) -> 2) ((1229 . 5625) (- 0 -1) -> 1) ((1230 . 5625) (- 0 0) -> 0) ((1231 . 5625) (- 1 -4) -> 5) ((1232 . 5625) (- 1 -3) -> 4) ((1233 . 5625) (- 1 -2) -> 3) ((1234 . 5625) (- 1 -1) -> 2) ((1235 . 5625) (- 1 0) -> 1) ((1236 . 5625) (- 2 -4) -> 6) ((1237 . 5625) (- 2 -3) -> 5) ((1238 . 5625) (- 2 -2) -> 4) ((1239 . 5625) (- 2 -1) -> 3) ((1240 . 5625) (- 2 0) -> 2) ((1241 . 5625) (- 3 -4) -> 7) ((1242 . 5625) (- 3 -3) -> 6) ((1243 . 5625) (- 3 -2) -> 5) ((1244 . 5625) (- 3 -1) -> 4) ((1245 . 5625) (- 3 0) -> 3) ((1246 . 5625) (- 4 -4) -> 8) ((1247 . 5625) (- 4 -3) -> 7) ((1248 . 5625) (- 4 -2) -> 6) ((1249 . 5625) (- 4 -1) -> 5) ((1250 . 5625) (- 4 0) -> 4) ((1251 . 5625) (- 0 4611686018427387901) -> -4611686018427387901) ((1252 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((1253 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((1254 . 5625) (- 0 4611686018427387904) -> -4611686018427387904) ((1255 . 5625) (- 0 4611686018427387905) -> -4611686018427387905) ((1256 . 5625) (- 1 4611686018427387901) -> -4611686018427387900) ((1257 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((1258 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((1259 . 5625) (- 1 4611686018427387904) -> -4611686018427387903) ((1260 . 5625) (- 1 4611686018427387905) -> -4611686018427387904) ((1261 . 5625) (- 2 4611686018427387901) -> -4611686018427387899) ((1262 . 5625) (- 2 4611686018427387902) -> -4611686018427387900) ((1263 . 5625) (- 2 4611686018427387903) -> -4611686018427387901) ((1264 . 5625) (- 2 4611686018427387904) -> -4611686018427387902) ((1265 . 5625) (- 2 4611686018427387905) -> -4611686018427387903) ((1266 . 5625) (- 3 4611686018427387901) -> -4611686018427387898) ((1267 . 5625) (- 3 4611686018427387902) -> -4611686018427387899) ((1268 . 5625) (- 3 4611686018427387903) -> -4611686018427387900) ((1269 . 5625) (- 3 4611686018427387904) -> -4611686018427387901) ((1270 . 5625) (- 3 4611686018427387905) -> -4611686018427387902) ((1271 . 5625) (- 4 4611686018427387901) -> -4611686018427387897) ((1272 . 5625) (- 4 4611686018427387902) -> -4611686018427387898) ((1273 . 5625) (- 4 4611686018427387903) -> -4611686018427387899) ((1274 . 5625) (- 4 4611686018427387904) -> -4611686018427387900) ((1275 . 5625) (- 4 4611686018427387905) -> -4611686018427387901) ((1276 . 5625) (- 0 -4611686018427387906) -> 4611686018427387906) ((1277 . 5625) (- 0 -4611686018427387905) -> 4611686018427387905) ((1278 . 5625) (- 0 -4611686018427387904) -> 4611686018427387904) ((1279 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((1280 . 5625) (- 0 -4611686018427387902) -> 4611686018427387902) ((1281 . 5625) (- 1 -4611686018427387906) -> 4611686018427387907) ((1282 . 5625) (- 1 -4611686018427387905) -> 4611686018427387906) ((1283 . 5625) (- 1 -4611686018427387904) -> 4611686018427387905) ((1284 . 5625) (- 1 -4611686018427387903) -> 4611686018427387904) ((1285 . 5625) (- 1 -4611686018427387902) -> 4611686018427387903) ((1286 . 5625) (- 2 -4611686018427387906) -> 4611686018427387908) ((1287 . 5625) (- 2 -4611686018427387905) -> 4611686018427387907) ((1288 . 5625) (- 2 -4611686018427387904) -> 4611686018427387906) ((1289 . 5625) (- 2 -4611686018427387903) -> 4611686018427387905) ((1290 . 5625) (- 2 -4611686018427387902) -> 4611686018427387904) ((1291 . 5625) (- 3 -4611686018427387906) -> 4611686018427387909) ((1292 . 5625) (- 3 -4611686018427387905) -> 4611686018427387908) ((1293 . 5625) (- 3 -4611686018427387904) -> 4611686018427387907) ((1294 . 5625) (- 3 -4611686018427387903) -> 4611686018427387906) ((1295 . 5625) (- 3 -4611686018427387902) -> 4611686018427387905) ((1296 . 5625) (- 4 -4611686018427387906) -> 4611686018427387910) ((1297 . 5625) (- 4 -4611686018427387905) -> 4611686018427387909) ((1298 . 5625) (- 4 -4611686018427387904) -> 4611686018427387908) ((1299 . 5625) (- 4 -4611686018427387903) -> 4611686018427387907) ((1300 . 5625) (- 4 -4611686018427387902) -> 4611686018427387906) ((1301 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((1302 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((1303 . 5625) (- 0 4611686018427387904) -> -4611686018427387904) ((1304 . 5625) (- 0 4611686018427387905) -> -4611686018427387905) ((1305 . 5625) (- 0 4611686018427387906) -> -4611686018427387906) ((1306 . 5625) (- 1 4611686018427387902) -> -4611686018427387901) ((1307 . 5625) (- 1 4611686018427387903) -> -4611686018427387902) ((1308 . 5625) (- 1 4611686018427387904) -> -4611686018427387903) ((1309 . 5625) (- 1 4611686018427387905) -> -4611686018427387904) ((1310 . 5625) (- 1 4611686018427387906) -> -4611686018427387905) ((1311 . 5625) (- 2 4611686018427387902) -> -4611686018427387900) ((1312 . 5625) (- 2 4611686018427387903) -> -4611686018427387901) ((1313 . 5625) (- 2 4611686018427387904) -> -4611686018427387902) ((1314 . 5625) (- 2 4611686018427387905) -> -4611686018427387903) ((1315 . 5625) (- 2 4611686018427387906) -> -4611686018427387904) ((1316 . 5625) (- 3 4611686018427387902) -> -4611686018427387899) ((1317 . 5625) (- 3 4611686018427387903) -> -4611686018427387900) ((1318 . 5625) (- 3 4611686018427387904) -> -4611686018427387901) ((1319 . 5625) (- 3 4611686018427387905) -> -4611686018427387902) ((1320 . 5625) (- 3 4611686018427387906) -> -4611686018427387903) ((1321 . 5625) (- 4 4611686018427387902) -> -4611686018427387898) ((1322 . 5625) (- 4 4611686018427387903) -> -4611686018427387899) ((1323 . 5625) (- 4 4611686018427387904) -> -4611686018427387900) ((1324 . 5625) (- 4 4611686018427387905) -> -4611686018427387901) ((1325 . 5625) (- 4 4611686018427387906) -> -4611686018427387902) ((1326 . 5625) (- 0 -4611686018427387907) -> 4611686018427387907) ((1327 . 5625) (- 0 -4611686018427387906) -> 4611686018427387906) ((1328 . 5625) (- 0 -4611686018427387905) -> 4611686018427387905) ((1329 . 5625) (- 0 -4611686018427387904) -> 4611686018427387904) ((1330 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((1331 . 5625) (- 1 -4611686018427387907) -> 4611686018427387908) ((1332 . 5625) (- 1 -4611686018427387906) -> 4611686018427387907) ((1333 . 5625) (- 1 -4611686018427387905) -> 4611686018427387906) ((1334 . 5625) (- 1 -4611686018427387904) -> 4611686018427387905) ((1335 . 5625) (- 1 -4611686018427387903) -> 4611686018427387904) ((1336 . 5625) (- 2 -4611686018427387907) -> 4611686018427387909) ((1337 . 5625) (- 2 -4611686018427387906) -> 4611686018427387908) ((1338 . 5625) (- 2 -4611686018427387905) -> 4611686018427387907) ((1339 . 5625) (- 2 -4611686018427387904) -> 4611686018427387906) ((1340 . 5625) (- 2 -4611686018427387903) -> 4611686018427387905) ((1341 . 5625) (- 3 -4611686018427387907) -> 4611686018427387910) ((1342 . 5625) (- 3 -4611686018427387906) -> 4611686018427387909) ((1343 . 5625) (- 3 -4611686018427387905) -> 4611686018427387908) ((1344 . 5625) (- 3 -4611686018427387904) -> 4611686018427387907) ((1345 . 5625) (- 3 -4611686018427387903) -> 4611686018427387906) ((1346 . 5625) (- 4 -4611686018427387907) -> 4611686018427387911) ((1347 . 5625) (- 4 -4611686018427387906) -> 4611686018427387910) ((1348 . 5625) (- 4 -4611686018427387905) -> 4611686018427387909) ((1349 . 5625) (- 4 -4611686018427387904) -> 4611686018427387908) ((1350 . 5625) (- 4 -4611686018427387903) -> 4611686018427387907) ((1351 . 5625) (- 0 1103515243) -> -1103515243) ((1352 . 5625) (- 0 1103515244) -> -1103515244) ((1353 . 5625) (- 0 1103515245) -> -1103515245) ((1354 . 5625) (- 0 1103515246) -> -1103515246) ((1355 . 5625) (- 0 1103515247) -> -1103515247) ((1356 . 5625) (- 1 1103515243) -> -1103515242) ((1357 . 5625) (- 1 1103515244) -> -1103515243) ((1358 . 5625) (- 1 1103515245) -> -1103515244) ((1359 . 5625) (- 1 1103515246) -> -1103515245) ((1360 . 5625) (- 1 1103515247) -> -1103515246) ((1361 . 5625) (- 2 1103515243) -> -1103515241) ((1362 . 5625) (- 2 1103515244) -> -1103515242) ((1363 . 5625) (- 2 1103515245) -> -1103515243) ((1364 . 5625) (- 2 1103515246) -> -1103515244) ((1365 . 5625) (- 2 1103515247) -> -1103515245) ((1366 . 5625) (- 3 1103515243) -> -1103515240) ((1367 . 5625) (- 3 1103515244) -> -1103515241) ((1368 . 5625) (- 3 1103515245) -> -1103515242) ((1369 . 5625) (- 3 1103515246) -> -1103515243) ((1370 . 5625) (- 3 1103515247) -> -1103515244) ((1371 . 5625) (- 4 1103515243) -> -1103515239) ((1372 . 5625) (- 4 1103515244) -> -1103515240) ((1373 . 5625) (- 4 1103515245) -> -1103515241) ((1374 . 5625) (- 4 1103515246) -> -1103515242) ((1375 . 5625) (- 4 1103515247) -> -1103515243) ((1376 . 5625) (- 0 631629063) -> -631629063) ((1377 . 5625) (- 0 631629064) -> -631629064) ((1378 . 5625) (- 0 631629065) -> -631629065) ((1379 . 5625) (- 0 631629066) -> -631629066) ((1380 . 5625) (- 0 631629067) -> -631629067) ((1381 . 5625) (- 1 631629063) -> -631629062) ((1382 . 5625) (- 1 631629064) -> -631629063) ((1383 . 5625) (- 1 631629065) -> -631629064) ((1384 . 5625) (- 1 631629066) -> -631629065) ((1385 . 5625) (- 1 631629067) -> -631629066) ((1386 . 5625) (- 2 631629063) -> -631629061) ((1387 . 5625) (- 2 631629064) -> -631629062) ((1388 . 5625) (- 2 631629065) -> -631629063) ((1389 . 5625) (- 2 631629066) -> -631629064) ((1390 . 5625) (- 2 631629067) -> -631629065) ((1391 . 5625) (- 3 631629063) -> -631629060) ((1392 . 5625) (- 3 631629064) -> -631629061) ((1393 . 5625) (- 3 631629065) -> -631629062) ((1394 . 5625) (- 3 631629066) -> -631629063) ((1395 . 5625) (- 3 631629067) -> -631629064) ((1396 . 5625) (- 4 631629063) -> -631629059) ((1397 . 5625) (- 4 631629064) -> -631629060) ((1398 . 5625) (- 4 631629065) -> -631629061) ((1399 . 5625) (- 4 631629066) -> -631629062) ((1400 . 5625) (- 4 631629067) -> -631629063) ((1401 . 5625) (- 0 9007199254740990) -> -9007199254740990) ((1402 . 5625) (- 0 9007199254740991) -> -9007199254740991) ((1403 . 5625) (- 0 9007199254740992) -> -9007199254740992) ((1404 . 5625) (- 0 9007199254740993) -> -9007199254740993) ((1405 . 5625) (- 0 9007199254740994) -> -9007199254740994) ((1406 . 5625) (- 1 9007199254740990) -> -9007199254740989) ((1407 . 5625) (- 1 9007199254740991) -> -9007199254740990) ((1408 . 5625) (- 1 9007199254740992) -> -9007199254740991) ((1409 . 5625) (- 1 9007199254740993) -> -9007199254740992) ((1410 . 5625) (- 1 9007199254740994) -> -9007199254740993) ((1411 . 5625) (- 2 9007199254740990) -> -9007199254740988) ((1412 . 5625) (- 2 9007199254740991) -> -9007199254740989) ((1413 . 5625) (- 2 9007199254740992) -> -9007199254740990) ((1414 . 5625) (- 2 9007199254740993) -> -9007199254740991) ((1415 . 5625) (- 2 9007199254740994) -> -9007199254740992) ((1416 . 5625) (- 3 9007199254740990) -> -9007199254740987) ((1417 . 5625) (- 3 9007199254740991) -> -9007199254740988) ((1418 . 5625) (- 3 9007199254740992) -> -9007199254740989) ((1419 . 5625) (- 3 9007199254740993) -> -9007199254740990) ((1420 . 5625) (- 3 9007199254740994) -> -9007199254740991) ((1421 . 5625) (- 4 9007199254740990) -> -9007199254740986) ((1422 . 5625) (- 4 9007199254740991) -> -9007199254740987) ((1423 . 5625) (- 4 9007199254740992) -> -9007199254740988) ((1424 . 5625) (- 4 9007199254740993) -> -9007199254740989) ((1425 . 5625) (- 4 9007199254740994) -> -9007199254740990) ((1426 . 5625) (- 0 -9007199254740994) -> 9007199254740994) ((1427 . 5625) (- 0 -9007199254740993) -> 9007199254740993) ((1428 . 5625) (- 0 -9007199254740992) -> 9007199254740992) ((1429 . 5625) (- 0 -9007199254740991) -> 9007199254740991) ((1430 . 5625) (- 0 -9007199254740990) -> 9007199254740990) ((1431 . 5625) (- 1 -9007199254740994) -> 9007199254740995) ((1432 . 5625) (- 1 -9007199254740993) -> 9007199254740994) ((1433 . 5625) (- 1 -9007199254740992) -> 9007199254740993) ((1434 . 5625) (- 1 -9007199254740991) -> 9007199254740992) ((1435 . 5625) (- 1 -9007199254740990) -> 9007199254740991) ((1436 . 5625) (- 2 -9007199254740994) -> 9007199254740996) ((1437 . 5625) (- 2 -9007199254740993) -> 9007199254740995) ((1438 . 5625) (- 2 -9007199254740992) -> 9007199254740994) ((1439 . 5625) (- 2 -9007199254740991) -> 9007199254740993) ((1440 . 5625) (- 2 -9007199254740990) -> 9007199254740992) ((1441 . 5625) (- 3 -9007199254740994) -> 9007199254740997) ((1442 . 5625) (- 3 -9007199254740993) -> 9007199254740996) ((1443 . 5625) (- 3 -9007199254740992) -> 9007199254740995) ((1444 . 5625) (- 3 -9007199254740991) -> 9007199254740994) ((1445 . 5625) (- 3 -9007199254740990) -> 9007199254740993) ((1446 . 5625) (- 4 -9007199254740994) -> 9007199254740998) ((1447 . 5625) (- 4 -9007199254740993) -> 9007199254740997) ((1448 . 5625) (- 4 -9007199254740992) -> 9007199254740996) ((1449 . 5625) (- 4 -9007199254740991) -> 9007199254740995) ((1450 . 5625) (- 4 -9007199254740990) -> 9007199254740994) ((1451 . 5625) (- 0 12343) -> -12343) ((1452 . 5625) (- 0 12344) -> -12344) ((1453 . 5625) (- 0 12345) -> -12345) ((1454 . 5625) (- 0 12346) -> -12346) ((1455 . 5625) (- 0 12347) -> -12347) ((1456 . 5625) (- 1 12343) -> -12342) ((1457 . 5625) (- 1 12344) -> -12343) ((1458 . 5625) (- 1 12345) -> -12344) ((1459 . 5625) (- 1 12346) -> -12345) ((1460 . 5625) (- 1 12347) -> -12346) ((1461 . 5625) (- 2 12343) -> -12341) ((1462 . 5625) (- 2 12344) -> -12342) ((1463 . 5625) (- 2 12345) -> -12343) ((1464 . 5625) (- 2 12346) -> -12344) ((1465 . 5625) (- 2 12347) -> -12345) ((1466 . 5625) (- 3 12343) -> -12340) ((1467 . 5625) (- 3 12344) -> -12341) ((1468 . 5625) (- 3 12345) -> -12342) ((1469 . 5625) (- 3 12346) -> -12343) ((1470 . 5625) (- 3 12347) -> -12344) ((1471 . 5625) (- 4 12343) -> -12339) ((1472 . 5625) (- 4 12344) -> -12340) ((1473 . 5625) (- 4 12345) -> -12341) ((1474 . 5625) (- 4 12346) -> -12342) ((1475 . 5625) (- 4 12347) -> -12343) ((1476 . 5625) (- 0 4294967294) -> -4294967294) ((1477 . 5625) (- 0 4294967295) -> -4294967295) ((1478 . 5625) (- 0 4294967296) -> -4294967296) ((1479 . 5625) (- 0 4294967297) -> -4294967297) ((1480 . 5625) (- 0 4294967298) -> -4294967298) ((1481 . 5625) (- 1 4294967294) -> -4294967293) ((1482 . 5625) (- 1 4294967295) -> -4294967294) ((1483 . 5625) (- 1 4294967296) -> -4294967295) ((1484 . 5625) (- 1 4294967297) -> -4294967296) ((1485 . 5625) (- 1 4294967298) -> -4294967297) ((1486 . 5625) (- 2 4294967294) -> -4294967292) ((1487 . 5625) (- 2 4294967295) -> -4294967293) ((1488 . 5625) (- 2 4294967296) -> -4294967294) ((1489 . 5625) (- 2 4294967297) -> -4294967295) ((1490 . 5625) (- 2 4294967298) -> -4294967296) ((1491 . 5625) (- 3 4294967294) -> -4294967291) ((1492 . 5625) (- 3 4294967295) -> -4294967292) ((1493 . 5625) (- 3 4294967296) -> -4294967293) ((1494 . 5625) (- 3 4294967297) -> -4294967294) ((1495 . 5625) (- 3 4294967298) -> -4294967295) ((1496 . 5625) (- 4 4294967294) -> -4294967290) ((1497 . 5625) (- 4 4294967295) -> -4294967291) ((1498 . 5625) (- 4 4294967296) -> -4294967292) ((1499 . 5625) (- 4 4294967297) -> -4294967293) ((1500 . 5625) (- 4 4294967298) -> -4294967294) ((1501 . 5625) (- -4 -2) -> -2) ((1502 . 5625) (- -4 -1) -> -3) ((1503 . 5625) (- -4 0) -> -4) ((1504 . 5625) (- -4 1) -> -5) ((1505 . 5625) (- -4 2) -> -6) ((1506 . 5625) (- -3 -2) -> -1) ((1507 . 5625) (- -3 -1) -> -2) ((1508 . 5625) (- -3 0) -> -3) ((1509 . 5625) (- -3 1) -> -4) ((1510 . 5625) (- -3 2) -> -5) ((1511 . 5625) (- -2 -2) -> 0) ((1512 . 5625) (- -2 -1) -> -1) ((1513 . 5625) (- -2 0) -> -2) ((1514 . 5625) (- -2 1) -> -3) ((1515 . 5625) (- -2 2) -> -4) ((1516 . 5625) (- -1 -2) -> 1) ((1517 . 5625) (- -1 -1) -> 0) ((1518 . 5625) (- -1 0) -> -1) ((1519 . 5625) (- -1 1) -> -2) ((1520 . 5625) (- -1 2) -> -3) ((1521 . 5625) (- 0 -2) -> 2) ((1522 . 5625) (- 0 -1) -> 1) ((1523 . 5625) (- 0 0) -> 0) ((1524 . 5625) (- 0 1) -> -1) ((1525 . 5625) (- 0 2) -> -2) ((1526 . 5625) (- -4 -1) -> -3) ((1527 . 5625) (- -4 0) -> -4) ((1528 . 5625) (- -4 1) -> -5) ((1529 . 5625) (- -4 2) -> -6) ((1530 . 5625) (- -4 3) -> -7) ((1531 . 5625) (- -3 -1) -> -2) ((1532 . 5625) (- -3 0) -> -3) ((1533 . 5625) (- -3 1) -> -4) ((1534 . 5625) (- -3 2) -> -5) ((1535 . 5625) (- -3 3) -> -6) ((1536 . 5625) (- -2 -1) -> -1) ((1537 . 5625) (- -2 0) -> -2) ((1538 . 5625) (- -2 1) -> -3) ((1539 . 5625) (- -2 2) -> -4) ((1540 . 5625) (- -2 3) -> -5) ((1541 . 5625) (- -1 -1) -> 0) ((1542 . 5625) (- -1 0) -> -1) ((1543 . 5625) (- -1 1) -> -2) ((1544 . 5625) (- -1 2) -> -3) ((1545 . 5625) (- -1 3) -> -4) ((1546 . 5625) (- 0 -1) -> 1) ((1547 . 5625) (- 0 0) -> 0) ((1548 . 5625) (- 0 1) -> -1) ((1549 . 5625) (- 0 2) -> -2) ((1550 . 5625) (- 0 3) -> -3) ((1551 . 5625) (- -4 -3) -> -1) ((1552 . 5625) (- -4 -2) -> -2) ((1553 . 5625) (- -4 -1) -> -3) ((1554 . 5625) (- -4 0) -> -4) ((1555 . 5625) (- -4 1) -> -5) ((1556 . 5625) (- -3 -3) -> 0) ((1557 . 5625) (- -3 -2) -> -1) ((1558 . 5625) (- -3 -1) -> -2) ((1559 . 5625) (- -3 0) -> -3) ((1560 . 5625) (- -3 1) -> -4) ((1561 . 5625) (- -2 -3) -> 1) ((1562 . 5625) (- -2 -2) -> 0) ((1563 . 5625) (- -2 -1) -> -1) ((1564 . 5625) (- -2 0) -> -2) ((1565 . 5625) (- -2 1) -> -3) ((1566 . 5625) (- -1 -3) -> 2) ((1567 . 5625) (- -1 -2) -> 1) ((1568 . 5625) (- -1 -1) -> 0) ((1569 . 5625) (- -1 0) -> -1) ((1570 . 5625) (- -1 1) -> -2) ((1571 . 5625) (- 0 -3) -> 3) ((1572 . 5625) (- 0 -2) -> 2) ((1573 . 5625) (- 0 -1) -> 1) ((1574 . 5625) (- 0 0) -> 0) ((1575 . 5625) (- 0 1) -> -1) ((1576 . 5625) (- -4 0) -> -4) ((1577 . 5625) (- -4 1) -> -5) ((1578 . 5625) (- -4 2) -> -6) ((1579 . 5625) (- -4 3) -> -7) ((1580 . 5625) (- -4 4) -> -8) ((1581 . 5625) (- -3 0) -> -3) ((1582 . 5625) (- -3 1) -> -4) ((1583 . 5625) (- -3 2) -> -5) ((1584 . 5625) (- -3 3) -> -6) ((1585 . 5625) (- -3 4) -> -7) ((1586 . 5625) (- -2 0) -> -2) ((1587 . 5625) (- -2 1) -> -3) ((1588 . 5625) (- -2 2) -> -4) ((1589 . 5625) (- -2 3) -> -5) ((1590 . 5625) (- -2 4) -> -6) ((1591 . 5625) (- -1 0) -> -1) ((1592 . 5625) (- -1 1) -> -2) ((1593 . 5625) (- -1 2) -> -3) ((1594 . 5625) (- -1 3) -> -4) ((1595 . 5625) (- -1 4) -> -5) ((1596 . 5625) (- 0 0) -> 0) ((1597 . 5625) (- 0 1) -> -1) ((1598 . 5625) (- 0 2) -> -2) ((1599 . 5625) (- 0 3) -> -3) ((1600 . 5625) (- 0 4) -> -4) ((1601 . 5625) (- -4 -4) -> 0) ((1602 . 5625) (- -4 -3) -> -1) ((1603 . 5625) (- -4 -2) -> -2) ((1604 . 5625) (- -4 -1) -> -3) ((1605 . 5625) (- -4 0) -> -4) ((1606 . 5625) (- -3 -4) -> 1) ((1607 . 5625) (- -3 -3) -> 0) ((1608 . 5625) (- -3 -2) -> -1) ((1609 . 5625) (- -3 -1) -> -2) ((1610 . 5625) (- -3 0) -> -3) ((1611 . 5625) (- -2 -4) -> 2) ((1612 . 5625) (- -2 -3) -> 1) ((1613 . 5625) (- -2 -2) -> 0) ((1614 . 5625) (- -2 -1) -> -1) ((1615 . 5625) (- -2 0) -> -2) ((1616 . 5625) (- -1 -4) -> 3) ((1617 . 5625) (- -1 -3) -> 2) ((1618 . 5625) (- -1 -2) -> 1) ((1619 . 5625) (- -1 -1) -> 0) ((1620 . 5625) (- -1 0) -> -1) ((1621 . 5625) (- 0 -4) -> 4) ((1622 . 5625) (- 0 -3) -> 3) ((1623 . 5625) (- 0 -2) -> 2) ((1624 . 5625) (- 0 -1) -> 1) ((1625 . 5625) (- 0 0) -> 0) ((1626 . 5625) (- -4 4611686018427387901) -> -4611686018427387905) ((1627 . 5625) (- -4 4611686018427387902) -> -4611686018427387906) ((1628 . 5625) (- -4 4611686018427387903) -> -4611686018427387907) ((1629 . 5625) (- -4 4611686018427387904) -> -4611686018427387908) ((1630 . 5625) (- -4 4611686018427387905) -> -4611686018427387909) ((1631 . 5625) (- -3 4611686018427387901) -> -4611686018427387904) ((1632 . 5625) (- -3 4611686018427387902) -> -4611686018427387905) ((1633 . 5625) (- -3 4611686018427387903) -> -4611686018427387906) ((1634 . 5625) (- -3 4611686018427387904) -> -4611686018427387907) ((1635 . 5625) (- -3 4611686018427387905) -> -4611686018427387908) ((1636 . 5625) (- -2 4611686018427387901) -> -4611686018427387903) ((1637 . 5625) (- -2 4611686018427387902) -> -4611686018427387904) ((1638 . 5625) (- -2 4611686018427387903) -> -4611686018427387905) ((1639 . 5625) (- -2 4611686018427387904) -> -4611686018427387906) ((1640 . 5625) (- -2 4611686018427387905) -> -4611686018427387907) ((1641 . 5625) (- -1 4611686018427387901) -> -4611686018427387902) ((1642 . 5625) (- -1 4611686018427387902) -> -4611686018427387903) ((1643 . 5625) (- -1 4611686018427387903) -> -4611686018427387904) ((1644 . 5625) (- -1 4611686018427387904) -> -4611686018427387905) ((1645 . 5625) (- -1 4611686018427387905) -> -4611686018427387906) ((1646 . 5625) (- 0 4611686018427387901) -> -4611686018427387901) ((1647 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((1648 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((1649 . 5625) (- 0 4611686018427387904) -> -4611686018427387904) ((1650 . 5625) (- 0 4611686018427387905) -> -4611686018427387905) ((1651 . 5625) (- -4 -4611686018427387906) -> 4611686018427387902) ((1652 . 5625) (- -4 -4611686018427387905) -> 4611686018427387901) ((1653 . 5625) (- -4 -4611686018427387904) -> 4611686018427387900) ((1654 . 5625) (- -4 -4611686018427387903) -> 4611686018427387899) ((1655 . 5625) (- -4 -4611686018427387902) -> 4611686018427387898) ((1656 . 5625) (- -3 -4611686018427387906) -> 4611686018427387903) ((1657 . 5625) (- -3 -4611686018427387905) -> 4611686018427387902) ((1658 . 5625) (- -3 -4611686018427387904) -> 4611686018427387901) ((1659 . 5625) (- -3 -4611686018427387903) -> 4611686018427387900) ((1660 . 5625) (- -3 -4611686018427387902) -> 4611686018427387899) ((1661 . 5625) (- -2 -4611686018427387906) -> 4611686018427387904) ((1662 . 5625) (- -2 -4611686018427387905) -> 4611686018427387903) ((1663 . 5625) (- -2 -4611686018427387904) -> 4611686018427387902) ((1664 . 5625) (- -2 -4611686018427387903) -> 4611686018427387901) ((1665 . 5625) (- -2 -4611686018427387902) -> 4611686018427387900) ((1666 . 5625) (- -1 -4611686018427387906) -> 4611686018427387905) ((1667 . 5625) (- -1 -4611686018427387905) -> 4611686018427387904) ((1668 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((1669 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((1670 . 5625) (- -1 -4611686018427387902) -> 4611686018427387901) ((1671 . 5625) (- 0 -4611686018427387906) -> 4611686018427387906) ((1672 . 5625) (- 0 -4611686018427387905) -> 4611686018427387905) ((1673 . 5625) (- 0 -4611686018427387904) -> 4611686018427387904) ((1674 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((1675 . 5625) (- 0 -4611686018427387902) -> 4611686018427387902) ((1676 . 5625) (- -4 4611686018427387902) -> -4611686018427387906) ((1677 . 5625) (- -4 4611686018427387903) -> -4611686018427387907) ((1678 . 5625) (- -4 4611686018427387904) -> -4611686018427387908) ((1679 . 5625) (- -4 4611686018427387905) -> -4611686018427387909) ((1680 . 5625) (- -4 4611686018427387906) -> -4611686018427387910) ((1681 . 5625) (- -3 4611686018427387902) -> -4611686018427387905) ((1682 . 5625) (- -3 4611686018427387903) -> -4611686018427387906) ((1683 . 5625) (- -3 4611686018427387904) -> -4611686018427387907) ((1684 . 5625) (- -3 4611686018427387905) -> -4611686018427387908) ((1685 . 5625) (- -3 4611686018427387906) -> -4611686018427387909) ((1686 . 5625) (- -2 4611686018427387902) -> -4611686018427387904) ((1687 . 5625) (- -2 4611686018427387903) -> -4611686018427387905) ((1688 . 5625) (- -2 4611686018427387904) -> -4611686018427387906) ((1689 . 5625) (- -2 4611686018427387905) -> -4611686018427387907) ((1690 . 5625) (- -2 4611686018427387906) -> -4611686018427387908) ((1691 . 5625) (- -1 4611686018427387902) -> -4611686018427387903) ((1692 . 5625) (- -1 4611686018427387903) -> -4611686018427387904) ((1693 . 5625) (- -1 4611686018427387904) -> -4611686018427387905) ((1694 . 5625) (- -1 4611686018427387905) -> -4611686018427387906) ((1695 . 5625) (- -1 4611686018427387906) -> -4611686018427387907) ((1696 . 5625) (- 0 4611686018427387902) -> -4611686018427387902) ((1697 . 5625) (- 0 4611686018427387903) -> -4611686018427387903) ((1698 . 5625) (- 0 4611686018427387904) -> -4611686018427387904) ((1699 . 5625) (- 0 4611686018427387905) -> -4611686018427387905) ((1700 . 5625) (- 0 4611686018427387906) -> -4611686018427387906) ((1701 . 5625) (- -4 -4611686018427387907) -> 4611686018427387903) ((1702 . 5625) (- -4 -4611686018427387906) -> 4611686018427387902) ((1703 . 5625) (- -4 -4611686018427387905) -> 4611686018427387901) ((1704 . 5625) (- -4 -4611686018427387904) -> 4611686018427387900) ((1705 . 5625) (- -4 -4611686018427387903) -> 4611686018427387899) ((1706 . 5625) (- -3 -4611686018427387907) -> 4611686018427387904) ((1707 . 5625) (- -3 -4611686018427387906) -> 4611686018427387903) ((1708 . 5625) (- -3 -4611686018427387905) -> 4611686018427387902) ((1709 . 5625) (- -3 -4611686018427387904) -> 4611686018427387901) ((1710 . 5625) (- -3 -4611686018427387903) -> 4611686018427387900) ((1711 . 5625) (- -2 -4611686018427387907) -> 4611686018427387905) ((1712 . 5625) (- -2 -4611686018427387906) -> 4611686018427387904) ((1713 . 5625) (- -2 -4611686018427387905) -> 4611686018427387903) ((1714 . 5625) (- -2 -4611686018427387904) -> 4611686018427387902) ((1715 . 5625) (- -2 -4611686018427387903) -> 4611686018427387901) ((1716 . 5625) (- -1 -4611686018427387907) -> 4611686018427387906) ((1717 . 5625) (- -1 -4611686018427387906) -> 4611686018427387905) ((1718 . 5625) (- -1 -4611686018427387905) -> 4611686018427387904) ((1719 . 5625) (- -1 -4611686018427387904) -> 4611686018427387903) ((1720 . 5625) (- -1 -4611686018427387903) -> 4611686018427387902) ((1721 . 5625) (- 0 -4611686018427387907) -> 4611686018427387907) ((1722 . 5625) (- 0 -4611686018427387906) -> 4611686018427387906) ((1723 . 5625) (- 0 -4611686018427387905) -> 4611686018427387905) ((1724 . 5625) (- 0 -4611686018427387904) -> 4611686018427387904) ((1725 . 5625) (- 0 -4611686018427387903) -> 4611686018427387903) ((1726 . 5625) (- -4 1103515243) -> -1103515247) ((1727 . 5625) (- -4 1103515244) -> -1103515248) ((1728 . 5625) (- -4 1103515245) -> -1103515249) ((1729 . 5625) (- -4 1103515246) -> -1103515250) ((1730 . 5625) (- -4 1103515247) -> -1103515251) ((1731 . 5625) (- -3 1103515243) -> -1103515246) ((1732 . 5625) (- -3 1103515244) -> -1103515247) ((1733 . 5625) (- -3 1103515245) -> -1103515248) ((1734 . 5625) (- -3 1103515246) -> -1103515249) ((1735 . 5625) (- -3 1103515247) -> -1103515250) ((1736 . 5625) (- -2 1103515243) -> -1103515245) ((1737 . 5625) (- -2 1103515244) -> -1103515246) ((1738 . 5625) (- -2 1103515245) -> -1103515247) ((1739 . 5625) (- -2 1103515246) -> -1103515248) ((1740 . 5625) (- -2 1103515247) -> -1103515249) ((1741 . 5625) (- -1 1103515243) -> -1103515244) ((1742 . 5625) (- -1 1103515244) -> -1103515245) ((1743 . 5625) (- -1 1103515245) -> -1103515246) ((1744 . 5625) (- -1 1103515246) -> -1103515247) ((1745 . 5625) (- -1 1103515247) -> -1103515248) ((1746 . 5625) (- 0 1103515243) -> -1103515243) ((1747 . 5625) (- 0 1103515244) -> -1103515244) ((1748 . 5625) (- 0 1103515245) -> -1103515245) ((1749 . 5625) (- 0 1103515246) -> -1103515246) ((1750 . 5625) (- 0 1103515247) -> -1103515247) ((1751 . 5625) (- -4 631629063) -> -631629067) ((1752 . 5625) (- -4 631629064) -> -631629068) ((1753 . 5625) (- -4 631629065) -> -631629069) ((1754 . 5625) (- -4 631629066) -> -631629070) ((1755 . 5625) (- -4 631629067) -> -631629071) ((1756 . 5625) (- -3 631629063) -> -631629066) ((1757 . 5625) (- -3 631629064) -> -631629067) ((1758 . 5625) (- -3 631629065) -> -631629068) ((1759 . 5625) (- -3 631629066) -> -631629069) ((1760 . 5625) (- -3 631629067) -> -631629070) ((1761 . 5625) (- -2 631629063) -> -631629065) ((1762 . 5625) (- -2 631629064) -> -631629066) ((1763 . 5625) (- -2 631629065) -> -631629067) ((1764 . 5625) (- -2 631629066) -> -631629068) ((1765 . 5625) (- -2 631629067) -> -631629069) ((1766 . 5625) (- -1 631629063) -> -631629064) ((1767 . 5625) (- -1 631629064) -> -631629065) ((1768 . 5625) (- -1 631629065) -> -631629066) ((1769 . 5625) (- -1 631629066) -> -631629067) ((1770 . 5625) (- -1 631629067) -> -631629068) ((1771 . 5625) (- 0 631629063) -> -631629063) ((1772 . 5625) (- 0 631629064) -> -631629064) ((1773 . 5625) (- 0 631629065) -> -631629065) ((1774 . 5625) (- 0 631629066) -> -631629066) ((1775 . 5625) (- 0 631629067) -> -631629067) ((1776 . 5625) (- -4 9007199254740990) -> -9007199254740994) ((1777 . 5625) (- -4 9007199254740991) -> -9007199254740995) ((1778 . 5625) (- -4 9007199254740992) -> -9007199254740996) ((1779 . 5625) (- -4 9007199254740993) -> -9007199254740997) ((1780 . 5625) (- -4 9007199254740994) -> -9007199254740998) ((1781 . 5625) (- -3 9007199254740990) -> -9007199254740993) ((1782 . 5625) (- -3 9007199254740991) -> -9007199254740994) ((1783 . 5625) (- -3 9007199254740992) -> -9007199254740995) ((1784 . 5625) (- -3 9007199254740993) -> -9007199254740996) ((1785 . 5625) (- -3 9007199254740994) -> -9007199254740997) ((1786 . 5625) (- -2 9007199254740990) -> -9007199254740992) ((1787 . 5625) (- -2 9007199254740991) -> -9007199254740993) ((1788 . 5625) (- -2 9007199254740992) -> -9007199254740994) ((1789 . 5625) (- -2 9007199254740993) -> -9007199254740995) ((1790 . 5625) (- -2 9007199254740994) -> -9007199254740996) ((1791 . 5625) (- -1 9007199254740990) -> -9007199254740991) ((1792 . 5625) (- -1 9007199254740991) -> -9007199254740992) ((1793 . 5625) (- -1 9007199254740992) -> -9007199254740993) ((1794 . 5625) (- -1 9007199254740993) -> -9007199254740994) ((1795 . 5625) (- -1 9007199254740994) -> -9007199254740995) ((1796 . 5625) (- 0 9007199254740990) -> -9007199254740990) ((1797 . 5625) (- 0 9007199254740991) -> -9007199254740991) ((1798 . 5625) (- 0 9007199254740992) -> -9007199254740992) ((1799 . 5625) (- 0 9007199254740993) -> -9007199254740993) ((1800 . 5625) (- 0 9007199254740994) -> -9007199254740994) ((1801 . 5625) (- -4 -9007199254740994) -> 9007199254740990) ((1802 . 5625) (- -4 -9007199254740993) -> 9007199254740989) ((1803 . 5625) (- -4 -9007199254740992) -> 9007199254740988) ((1804 . 5625) (- -4 -9007199254740991) -> 9007199254740987) ((1805 . 5625) (- -4 -9007199254740990) -> 9007199254740986) ((1806 . 5625) (- -3 -9007199254740994) -> 9007199254740991) ((1807 . 5625) (- -3 -9007199254740993) -> 9007199254740990) ((1808 . 5625) (- -3 -9007199254740992) -> 9007199254740989) ((1809 . 5625) (- -3 -9007199254740991) -> 9007199254740988) ((1810 . 5625) (- -3 -9007199254740990) -> 9007199254740987) ((1811 . 5625) (- -2 -9007199254740994) -> 9007199254740992) ((1812 . 5625) (- -2 -9007199254740993) -> 9007199254740991) ((1813 . 5625) (- -2 -9007199254740992) -> 9007199254740990) ((1814 . 5625) (- -2 -9007199254740991) -> 9007199254740989) ((1815 . 5625) (- -2 -9007199254740990) -> 9007199254740988) ((1816 . 5625) (- -1 -9007199254740994) -> 9007199254740993) ((1817 . 5625) (- -1 -9007199254740993) -> 9007199254740992) ((1818 . 5625) (- -1 -9007199254740992) -> 9007199254740991) ((1819 . 5625) (- -1 -9007199254740991) -> 9007199254740990) ((1820 . 5625) (- -1 -9007199254740990) -> 9007199254740989) ((1821 . 5625) (- 0 -9007199254740994) -> 9007199254740994) ((1822 . 5625) (- 0 -9007199254740993) -> 9007199254740993) ((1823 . 5625) (- 0 -9007199254740992) -> 9007199254740992) ((1824 . 5625) (- 0 -9007199254740991) -> 9007199254740991) ((1825 . 5625) (- 0 -9007199254740990) -> 9007199254740990) ((1826 . 5625) (- -4 12343) -> -12347) ((1827 . 5625) (- -4 12344) -> -12348) ((1828 . 5625) (- -4 12345) -> -12349) ((1829 . 5625) (- -4 12346) -> -12350) ((1830 . 5625) (- -4 12347) -> -12351) ((1831 . 5625) (- -3 12343) -> -12346) ((1832 . 5625) (- -3 12344) -> -12347) ((1833 . 5625) (- -3 12345) -> -12348) ((1834 . 5625) (- -3 12346) -> -12349) ((1835 . 5625) (- -3 12347) -> -12350) ((1836 . 5625) (- -2 12343) -> -12345) ((1837 . 5625) (- -2 12344) -> -12346) ((1838 . 5625) (- -2 12345) -> -12347) ((1839 . 5625) (- -2 12346) -> -12348) ((1840 . 5625) (- -2 12347) -> -12349) ((1841 . 5625) (- -1 12343) -> -12344) ((1842 . 5625) (- -1 12344) -> -12345) ((1843 . 5625) (- -1 12345) -> -12346) ((1844 . 5625) (- -1 12346) -> -12347) ((1845 . 5625) (- -1 12347) -> -12348) ((1846 . 5625) (- 0 12343) -> -12343) ((1847 . 5625) (- 0 12344) -> -12344) ((1848 . 5625) (- 0 12345) -> -12345) ((1849 . 5625) (- 0 12346) -> -12346) ((1850 . 5625) (- 0 12347) -> -12347) ((1851 . 5625) (- -4 4294967294) -> -4294967298) ((1852 . 5625) (- -4 4294967295) -> -4294967299) ((1853 . 5625) (- -4 4294967296) -> -4294967300) ((1854 . 5625) (- -4 4294967297) -> -4294967301) ((1855 . 5625) (- -4 4294967298) -> -4294967302) ((1856 . 5625) (- -3 4294967294) -> -4294967297) ((1857 . 5625) (- -3 4294967295) -> -4294967298) ((1858 . 5625) (- -3 4294967296) -> -4294967299) ((1859 . 5625) (- -3 4294967297) -> -4294967300) ((1860 . 5625) (- -3 4294967298) -> -4294967301) ((1861 . 5625) (- -2 4294967294) -> -4294967296) ((1862 . 5625) (- -2 4294967295) -> -4294967297) ((1863 . 5625) (- -2 4294967296) -> -4294967298) ((1864 . 5625) (- -2 4294967297) -> -4294967299) ((1865 . 5625) (- -2 4294967298) -> -4294967300) ((1866 . 5625) (- -1 4294967294) -> -4294967295) ((1867 . 5625) (- -1 4294967295) -> -4294967296) ((1868 . 5625) (- -1 4294967296) -> -4294967297) ((1869 . 5625) (- -1 4294967297) -> -4294967298) ((1870 . 5625) (- -1 4294967298) -> -4294967299) ((1871 . 5625) (- 0 4294967294) -> -4294967294) ((1872 . 5625) (- 0 4294967295) -> -4294967295) ((1873 . 5625) (- 0 4294967296) -> -4294967296) ((1874 . 5625) (- 0 4294967297) -> -4294967297) ((1875 . 5625) (- 0 4294967298) -> -4294967298) ((1876 . 5625) (- 4611686018427387901 -2) -> 4611686018427387903) ((1877 . 5625) (- 4611686018427387901 -1) -> 4611686018427387902) ((1878 . 5625) (- 4611686018427387901 0) -> 4611686018427387901) ((1879 . 5625) (- 4611686018427387901 1) -> 4611686018427387900) ((1880 . 5625) (- 4611686018427387901 2) -> 4611686018427387899) ((1881 . 5625) (- 4611686018427387902 -2) -> 4611686018427387904) ((1882 . 5625) (- 4611686018427387902 -1) -> 4611686018427387903) ((1883 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((1884 . 5625) (- 4611686018427387902 1) -> 4611686018427387901) ((1885 . 5625) (- 4611686018427387902 2) -> 4611686018427387900) ((1886 . 5625) (- 4611686018427387903 -2) -> 4611686018427387905) ((1887 . 5625) (- 4611686018427387903 -1) -> 4611686018427387904) ((1888 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((1889 . 5625) (- 4611686018427387903 1) -> 4611686018427387902) ((1890 . 5625) (- 4611686018427387903 2) -> 4611686018427387901) ((1891 . 5625) (- 4611686018427387904 -2) -> 4611686018427387906) ((1892 . 5625) (- 4611686018427387904 -1) -> 4611686018427387905) ((1893 . 5625) (- 4611686018427387904 0) -> 4611686018427387904) ((1894 . 5625) (- 4611686018427387904 1) -> 4611686018427387903) ((1895 . 5625) (- 4611686018427387904 2) -> 4611686018427387902) ((1896 . 5625) (- 4611686018427387905 -2) -> 4611686018427387907) ((1897 . 5625) (- 4611686018427387905 -1) -> 4611686018427387906) ((1898 . 5625) (- 4611686018427387905 0) -> 4611686018427387905) ((1899 . 5625) (- 4611686018427387905 1) -> 4611686018427387904) ((1900 . 5625) (- 4611686018427387905 2) -> 4611686018427387903) ((1901 . 5625) (- 4611686018427387901 -1) -> 4611686018427387902) ((1902 . 5625) (- 4611686018427387901 0) -> 4611686018427387901) ((1903 . 5625) (- 4611686018427387901 1) -> 4611686018427387900) ((1904 . 5625) (- 4611686018427387901 2) -> 4611686018427387899) ((1905 . 5625) (- 4611686018427387901 3) -> 4611686018427387898) ((1906 . 5625) (- 4611686018427387902 -1) -> 4611686018427387903) ((1907 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((1908 . 5625) (- 4611686018427387902 1) -> 4611686018427387901) ((1909 . 5625) (- 4611686018427387902 2) -> 4611686018427387900) ((1910 . 5625) (- 4611686018427387902 3) -> 4611686018427387899) ((1911 . 5625) (- 4611686018427387903 -1) -> 4611686018427387904) ((1912 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((1913 . 5625) (- 4611686018427387903 1) -> 4611686018427387902) ((1914 . 5625) (- 4611686018427387903 2) -> 4611686018427387901) ((1915 . 5625) (- 4611686018427387903 3) -> 4611686018427387900) ((1916 . 5625) (- 4611686018427387904 -1) -> 4611686018427387905) ((1917 . 5625) (- 4611686018427387904 0) -> 4611686018427387904) ((1918 . 5625) (- 4611686018427387904 1) -> 4611686018427387903) ((1919 . 5625) (- 4611686018427387904 2) -> 4611686018427387902) ((1920 . 5625) (- 4611686018427387904 3) -> 4611686018427387901) ((1921 . 5625) (- 4611686018427387905 -1) -> 4611686018427387906) ((1922 . 5625) (- 4611686018427387905 0) -> 4611686018427387905) ((1923 . 5625) (- 4611686018427387905 1) -> 4611686018427387904) ((1924 . 5625) (- 4611686018427387905 2) -> 4611686018427387903) ((1925 . 5625) (- 4611686018427387905 3) -> 4611686018427387902) ((1926 . 5625) (- 4611686018427387901 -3) -> 4611686018427387904) ((1927 . 5625) (- 4611686018427387901 -2) -> 4611686018427387903) ((1928 . 5625) (- 4611686018427387901 -1) -> 4611686018427387902) ((1929 . 5625) (- 4611686018427387901 0) -> 4611686018427387901) ((1930 . 5625) (- 4611686018427387901 1) -> 4611686018427387900) ((1931 . 5625) (- 4611686018427387902 -3) -> 4611686018427387905) ((1932 . 5625) (- 4611686018427387902 -2) -> 4611686018427387904) ((1933 . 5625) (- 4611686018427387902 -1) -> 4611686018427387903) ((1934 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((1935 . 5625) (- 4611686018427387902 1) -> 4611686018427387901) ((1936 . 5625) (- 4611686018427387903 -3) -> 4611686018427387906) ((1937 . 5625) (- 4611686018427387903 -2) -> 4611686018427387905) ((1938 . 5625) (- 4611686018427387903 -1) -> 4611686018427387904) ((1939 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((1940 . 5625) (- 4611686018427387903 1) -> 4611686018427387902) ((1941 . 5625) (- 4611686018427387904 -3) -> 4611686018427387907) ((1942 . 5625) (- 4611686018427387904 -2) -> 4611686018427387906) ((1943 . 5625) (- 4611686018427387904 -1) -> 4611686018427387905) ((1944 . 5625) (- 4611686018427387904 0) -> 4611686018427387904) ((1945 . 5625) (- 4611686018427387904 1) -> 4611686018427387903) ((1946 . 5625) (- 4611686018427387905 -3) -> 4611686018427387908) ((1947 . 5625) (- 4611686018427387905 -2) -> 4611686018427387907) ((1948 . 5625) (- 4611686018427387905 -1) -> 4611686018427387906) ((1949 . 5625) (- 4611686018427387905 0) -> 4611686018427387905) ((1950 . 5625) (- 4611686018427387905 1) -> 4611686018427387904) ((1951 . 5625) (- 4611686018427387901 0) -> 4611686018427387901) ((1952 . 5625) (- 4611686018427387901 1) -> 4611686018427387900) ((1953 . 5625) (- 4611686018427387901 2) -> 4611686018427387899) ((1954 . 5625) (- 4611686018427387901 3) -> 4611686018427387898) ((1955 . 5625) (- 4611686018427387901 4) -> 4611686018427387897) ((1956 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((1957 . 5625) (- 4611686018427387902 1) -> 4611686018427387901) ((1958 . 5625) (- 4611686018427387902 2) -> 4611686018427387900) ((1959 . 5625) (- 4611686018427387902 3) -> 4611686018427387899) ((1960 . 5625) (- 4611686018427387902 4) -> 4611686018427387898) ((1961 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((1962 . 5625) (- 4611686018427387903 1) -> 4611686018427387902) ((1963 . 5625) (- 4611686018427387903 2) -> 4611686018427387901) ((1964 . 5625) (- 4611686018427387903 3) -> 4611686018427387900) ((1965 . 5625) (- 4611686018427387903 4) -> 4611686018427387899) ((1966 . 5625) (- 4611686018427387904 0) -> 4611686018427387904) ((1967 . 5625) (- 4611686018427387904 1) -> 4611686018427387903) ((1968 . 5625) (- 4611686018427387904 2) -> 4611686018427387902) ((1969 . 5625) (- 4611686018427387904 3) -> 4611686018427387901) ((1970 . 5625) (- 4611686018427387904 4) -> 4611686018427387900) ((1971 . 5625) (- 4611686018427387905 0) -> 4611686018427387905) ((1972 . 5625) (- 4611686018427387905 1) -> 4611686018427387904) ((1973 . 5625) (- 4611686018427387905 2) -> 4611686018427387903) ((1974 . 5625) (- 4611686018427387905 3) -> 4611686018427387902) ((1975 . 5625) (- 4611686018427387905 4) -> 4611686018427387901) ((1976 . 5625) (- 4611686018427387901 -4) -> 4611686018427387905) ((1977 . 5625) (- 4611686018427387901 -3) -> 4611686018427387904) ((1978 . 5625) (- 4611686018427387901 -2) -> 4611686018427387903) ((1979 . 5625) (- 4611686018427387901 -1) -> 4611686018427387902) ((1980 . 5625) (- 4611686018427387901 0) -> 4611686018427387901) ((1981 . 5625) (- 4611686018427387902 -4) -> 4611686018427387906) ((1982 . 5625) (- 4611686018427387902 -3) -> 4611686018427387905) ((1983 . 5625) (- 4611686018427387902 -2) -> 4611686018427387904) ((1984 . 5625) (- 4611686018427387902 -1) -> 4611686018427387903) ((1985 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((1986 . 5625) (- 4611686018427387903 -4) -> 4611686018427387907) ((1987 . 5625) (- 4611686018427387903 -3) -> 4611686018427387906) ((1988 . 5625) (- 4611686018427387903 -2) -> 4611686018427387905) ((1989 . 5625) (- 4611686018427387903 -1) -> 4611686018427387904) ((1990 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((1991 . 5625) (- 4611686018427387904 -4) -> 4611686018427387908) ((1992 . 5625) (- 4611686018427387904 -3) -> 4611686018427387907) ((1993 . 5625) (- 4611686018427387904 -2) -> 4611686018427387906) ((1994 . 5625) (- 4611686018427387904 -1) -> 4611686018427387905) ((1995 . 5625) (- 4611686018427387904 0) -> 4611686018427387904) ((1996 . 5625) (- 4611686018427387905 -4) -> 4611686018427387909) ((1997 . 5625) (- 4611686018427387905 -3) -> 4611686018427387908) ((1998 . 5625) (- 4611686018427387905 -2) -> 4611686018427387907) ((1999 . 5625) (- 4611686018427387905 -1) -> 4611686018427387906) ((2000 . 5625) (- 4611686018427387905 0) -> 4611686018427387905) ((2001 . 5625) (- 4611686018427387901 4611686018427387901) -> 0) ((2002 . 5625) (- 4611686018427387901 4611686018427387902) -> -1) ((2003 . 5625) (- 4611686018427387901 4611686018427387903) -> -2) ((2004 . 5625) (- 4611686018427387901 4611686018427387904) -> -3) ((2005 . 5625) (- 4611686018427387901 4611686018427387905) -> -4) ((2006 . 5625) (- 4611686018427387902 4611686018427387901) -> 1) ((2007 . 5625) (- 4611686018427387902 4611686018427387902) -> 0) ((2008 . 5625) (- 4611686018427387902 4611686018427387903) -> -1) ((2009 . 5625) (- 4611686018427387902 4611686018427387904) -> -2) ((2010 . 5625) (- 4611686018427387902 4611686018427387905) -> -3) ((2011 . 5625) (- 4611686018427387903 4611686018427387901) -> 2) ((2012 . 5625) (- 4611686018427387903 4611686018427387902) -> 1) ((2013 . 5625) (- 4611686018427387903 4611686018427387903) -> 0) ((2014 . 5625) (- 4611686018427387903 4611686018427387904) -> -1) ((2015 . 5625) (- 4611686018427387903 4611686018427387905) -> -2) ((2016 . 5625) (- 4611686018427387904 4611686018427387901) -> 3) ((2017 . 5625) (- 4611686018427387904 4611686018427387902) -> 2) ((2018 . 5625) (- 4611686018427387904 4611686018427387903) -> 1) ((2019 . 5625) (- 4611686018427387904 4611686018427387904) -> 0) ((2020 . 5625) (- 4611686018427387904 4611686018427387905) -> -1) ((2021 . 5625) (- 4611686018427387905 4611686018427387901) -> 4) ((2022 . 5625) (- 4611686018427387905 4611686018427387902) -> 3) ((2023 . 5625) (- 4611686018427387905 4611686018427387903) -> 2) ((2024 . 5625) (- 4611686018427387905 4611686018427387904) -> 1) ((2025 . 5625) (- 4611686018427387905 4611686018427387905) -> 0) ((2026 . 5625) (- 4611686018427387901 -4611686018427387906) -> 9223372036854775807) ((2027 . 5625) (- 4611686018427387901 -4611686018427387905) -> 9223372036854775806) ((2028 . 5625) (- 4611686018427387901 -4611686018427387904) -> 9223372036854775805) ((2029 . 5625) (- 4611686018427387901 -4611686018427387903) -> 9223372036854775804) ((2030 . 5625) (- 4611686018427387901 -4611686018427387902) -> 9223372036854775803) ((2031 . 5625) (- 4611686018427387902 -4611686018427387906) -> 9223372036854775808) ((2032 . 5625) (- 4611686018427387902 -4611686018427387905) -> 9223372036854775807) ((2033 . 5625) (- 4611686018427387902 -4611686018427387904) -> 9223372036854775806) ((2034 . 5625) (- 4611686018427387902 -4611686018427387903) -> 9223372036854775805) ((2035 . 5625) (- 4611686018427387902 -4611686018427387902) -> 9223372036854775804) ((2036 . 5625) (- 4611686018427387903 -4611686018427387906) -> 9223372036854775809) ((2037 . 5625) (- 4611686018427387903 -4611686018427387905) -> 9223372036854775808) ((2038 . 5625) (- 4611686018427387903 -4611686018427387904) -> 9223372036854775807) ((2039 . 5625) (- 4611686018427387903 -4611686018427387903) -> 9223372036854775806) ((2040 . 5625) (- 4611686018427387903 -4611686018427387902) -> 9223372036854775805) ((2041 . 5625) (- 4611686018427387904 -4611686018427387906) -> 9223372036854775810) ((2042 . 5625) (- 4611686018427387904 -4611686018427387905) -> 9223372036854775809) ((2043 . 5625) (- 4611686018427387904 -4611686018427387904) -> 9223372036854775808) ((2044 . 5625) (- 4611686018427387904 -4611686018427387903) -> 9223372036854775807) ((2045 . 5625) (- 4611686018427387904 -4611686018427387902) -> 9223372036854775806) ((2046 . 5625) (- 4611686018427387905 -4611686018427387906) -> 9223372036854775811) ((2047 . 5625) (- 4611686018427387905 -4611686018427387905) -> 9223372036854775810) ((2048 . 5625) (- 4611686018427387905 -4611686018427387904) -> 9223372036854775809) ((2049 . 5625) (- 4611686018427387905 -4611686018427387903) -> 9223372036854775808) ((2050 . 5625) (- 4611686018427387905 -4611686018427387902) -> 9223372036854775807) ((2051 . 5625) (- 4611686018427387901 4611686018427387902) -> -1) ((2052 . 5625) (- 4611686018427387901 4611686018427387903) -> -2) ((2053 . 5625) (- 4611686018427387901 4611686018427387904) -> -3) ((2054 . 5625) (- 4611686018427387901 4611686018427387905) -> -4) ((2055 . 5625) (- 4611686018427387901 4611686018427387906) -> -5) ((2056 . 5625) (- 4611686018427387902 4611686018427387902) -> 0) ((2057 . 5625) (- 4611686018427387902 4611686018427387903) -> -1) ((2058 . 5625) (- 4611686018427387902 4611686018427387904) -> -2) ((2059 . 5625) (- 4611686018427387902 4611686018427387905) -> -3) ((2060 . 5625) (- 4611686018427387902 4611686018427387906) -> -4) ((2061 . 5625) (- 4611686018427387903 4611686018427387902) -> 1) ((2062 . 5625) (- 4611686018427387903 4611686018427387903) -> 0) ((2063 . 5625) (- 4611686018427387903 4611686018427387904) -> -1) ((2064 . 5625) (- 4611686018427387903 4611686018427387905) -> -2) ((2065 . 5625) (- 4611686018427387903 4611686018427387906) -> -3) ((2066 . 5625) (- 4611686018427387904 4611686018427387902) -> 2) ((2067 . 5625) (- 4611686018427387904 4611686018427387903) -> 1) ((2068 . 5625) (- 4611686018427387904 4611686018427387904) -> 0) ((2069 . 5625) (- 4611686018427387904 4611686018427387905) -> -1) ((2070 . 5625) (- 4611686018427387904 4611686018427387906) -> -2) ((2071 . 5625) (- 4611686018427387905 4611686018427387902) -> 3) ((2072 . 5625) (- 4611686018427387905 4611686018427387903) -> 2) ((2073 . 5625) (- 4611686018427387905 4611686018427387904) -> 1) ((2074 . 5625) (- 4611686018427387905 4611686018427387905) -> 0) ((2075 . 5625) (- 4611686018427387905 4611686018427387906) -> -1) ((2076 . 5625) (- 4611686018427387901 -4611686018427387907) -> 9223372036854775808) ((2077 . 5625) (- 4611686018427387901 -4611686018427387906) -> 9223372036854775807) ((2078 . 5625) (- 4611686018427387901 -4611686018427387905) -> 9223372036854775806) ((2079 . 5625) (- 4611686018427387901 -4611686018427387904) -> 9223372036854775805) ((2080 . 5625) (- 4611686018427387901 -4611686018427387903) -> 9223372036854775804) ((2081 . 5625) (- 4611686018427387902 -4611686018427387907) -> 9223372036854775809) ((2082 . 5625) (- 4611686018427387902 -4611686018427387906) -> 9223372036854775808) ((2083 . 5625) (- 4611686018427387902 -4611686018427387905) -> 9223372036854775807) ((2084 . 5625) (- 4611686018427387902 -4611686018427387904) -> 9223372036854775806) ((2085 . 5625) (- 4611686018427387902 -4611686018427387903) -> 9223372036854775805) ((2086 . 5625) (- 4611686018427387903 -4611686018427387907) -> 9223372036854775810) ((2087 . 5625) (- 4611686018427387903 -4611686018427387906) -> 9223372036854775809) ((2088 . 5625) (- 4611686018427387903 -4611686018427387905) -> 9223372036854775808) ((2089 . 5625) (- 4611686018427387903 -4611686018427387904) -> 9223372036854775807) ((2090 . 5625) (- 4611686018427387903 -4611686018427387903) -> 9223372036854775806) ((2091 . 5625) (- 4611686018427387904 -4611686018427387907) -> 9223372036854775811) ((2092 . 5625) (- 4611686018427387904 -4611686018427387906) -> 9223372036854775810) ((2093 . 5625) (- 4611686018427387904 -4611686018427387905) -> 9223372036854775809) ((2094 . 5625) (- 4611686018427387904 -4611686018427387904) -> 9223372036854775808) ((2095 . 5625) (- 4611686018427387904 -4611686018427387903) -> 9223372036854775807) ((2096 . 5625) (- 4611686018427387905 -4611686018427387907) -> 9223372036854775812) ((2097 . 5625) (- 4611686018427387905 -4611686018427387906) -> 9223372036854775811) ((2098 . 5625) (- 4611686018427387905 -4611686018427387905) -> 9223372036854775810) ((2099 . 5625) (- 4611686018427387905 -4611686018427387904) -> 9223372036854775809) ((2100 . 5625) (- 4611686018427387905 -4611686018427387903) -> 9223372036854775808) ((2101 . 5625) (- 4611686018427387901 1103515243) -> 4611686017323872658) ((2102 . 5625) (- 4611686018427387901 1103515244) -> 4611686017323872657) ((2103 . 5625) (- 4611686018427387901 1103515245) -> 4611686017323872656) ((2104 . 5625) (- 4611686018427387901 1103515246) -> 4611686017323872655) ((2105 . 5625) (- 4611686018427387901 1103515247) -> 4611686017323872654) ((2106 . 5625) (- 4611686018427387902 1103515243) -> 4611686017323872659) ((2107 . 5625) (- 4611686018427387902 1103515244) -> 4611686017323872658) ((2108 . 5625) (- 4611686018427387902 1103515245) -> 4611686017323872657) ((2109 . 5625) (- 4611686018427387902 1103515246) -> 4611686017323872656) ((2110 . 5625) (- 4611686018427387902 1103515247) -> 4611686017323872655) ((2111 . 5625) (- 4611686018427387903 1103515243) -> 4611686017323872660) ((2112 . 5625) (- 4611686018427387903 1103515244) -> 4611686017323872659) ((2113 . 5625) (- 4611686018427387903 1103515245) -> 4611686017323872658) ((2114 . 5625) (- 4611686018427387903 1103515246) -> 4611686017323872657) ((2115 . 5625) (- 4611686018427387903 1103515247) -> 4611686017323872656) ((2116 . 5625) (- 4611686018427387904 1103515243) -> 4611686017323872661) ((2117 . 5625) (- 4611686018427387904 1103515244) -> 4611686017323872660) ((2118 . 5625) (- 4611686018427387904 1103515245) -> 4611686017323872659) ((2119 . 5625) (- 4611686018427387904 1103515246) -> 4611686017323872658) ((2120 . 5625) (- 4611686018427387904 1103515247) -> 4611686017323872657) ((2121 . 5625) (- 4611686018427387905 1103515243) -> 4611686017323872662) ((2122 . 5625) (- 4611686018427387905 1103515244) -> 4611686017323872661) ((2123 . 5625) (- 4611686018427387905 1103515245) -> 4611686017323872660) ((2124 . 5625) (- 4611686018427387905 1103515246) -> 4611686017323872659) ((2125 . 5625) (- 4611686018427387905 1103515247) -> 4611686017323872658) ((2126 . 5625) (- 4611686018427387901 631629063) -> 4611686017795758838) ((2127 . 5625) (- 4611686018427387901 631629064) -> 4611686017795758837) ((2128 . 5625) (- 4611686018427387901 631629065) -> 4611686017795758836) ((2129 . 5625) (- 4611686018427387901 631629066) -> 4611686017795758835) ((2130 . 5625) (- 4611686018427387901 631629067) -> 4611686017795758834) ((2131 . 5625) (- 4611686018427387902 631629063) -> 4611686017795758839) ((2132 . 5625) (- 4611686018427387902 631629064) -> 4611686017795758838) ((2133 . 5625) (- 4611686018427387902 631629065) -> 4611686017795758837) ((2134 . 5625) (- 4611686018427387902 631629066) -> 4611686017795758836) ((2135 . 5625) (- 4611686018427387902 631629067) -> 4611686017795758835) ((2136 . 5625) (- 4611686018427387903 631629063) -> 4611686017795758840) ((2137 . 5625) (- 4611686018427387903 631629064) -> 4611686017795758839) ((2138 . 5625) (- 4611686018427387903 631629065) -> 4611686017795758838) ((2139 . 5625) (- 4611686018427387903 631629066) -> 4611686017795758837) ((2140 . 5625) (- 4611686018427387903 631629067) -> 4611686017795758836) ((2141 . 5625) (- 4611686018427387904 631629063) -> 4611686017795758841) ((2142 . 5625) (- 4611686018427387904 631629064) -> 4611686017795758840) ((2143 . 5625) (- 4611686018427387904 631629065) -> 4611686017795758839) ((2144 . 5625) (- 4611686018427387904 631629066) -> 4611686017795758838) ((2145 . 5625) (- 4611686018427387904 631629067) -> 4611686017795758837) ((2146 . 5625) (- 4611686018427387905 631629063) -> 4611686017795758842) ((2147 . 5625) (- 4611686018427387905 631629064) -> 4611686017795758841) ((2148 . 5625) (- 4611686018427387905 631629065) -> 4611686017795758840) ((2149 . 5625) (- 4611686018427387905 631629066) -> 4611686017795758839) ((2150 . 5625) (- 4611686018427387905 631629067) -> 4611686017795758838) ((2151 . 5625) (- 4611686018427387901 9007199254740990) -> 4602678819172646911) ((2152 . 5625) (- 4611686018427387901 9007199254740991) -> 4602678819172646910) ((2153 . 5625) (- 4611686018427387901 9007199254740992) -> 4602678819172646909) ((2154 . 5625) (- 4611686018427387901 9007199254740993) -> 4602678819172646908) ((2155 . 5625) (- 4611686018427387901 9007199254740994) -> 4602678819172646907) ((2156 . 5625) (- 4611686018427387902 9007199254740990) -> 4602678819172646912) ((2157 . 5625) (- 4611686018427387902 9007199254740991) -> 4602678819172646911) ((2158 . 5625) (- 4611686018427387902 9007199254740992) -> 4602678819172646910) ((2159 . 5625) (- 4611686018427387902 9007199254740993) -> 4602678819172646909) ((2160 . 5625) (- 4611686018427387902 9007199254740994) -> 4602678819172646908) ((2161 . 5625) (- 4611686018427387903 9007199254740990) -> 4602678819172646913) ((2162 . 5625) (- 4611686018427387903 9007199254740991) -> 4602678819172646912) ((2163 . 5625) (- 4611686018427387903 9007199254740992) -> 4602678819172646911) ((2164 . 5625) (- 4611686018427387903 9007199254740993) -> 4602678819172646910) ((2165 . 5625) (- 4611686018427387903 9007199254740994) -> 4602678819172646909) ((2166 . 5625) (- 4611686018427387904 9007199254740990) -> 4602678819172646914) ((2167 . 5625) (- 4611686018427387904 9007199254740991) -> 4602678819172646913) ((2168 . 5625) (- 4611686018427387904 9007199254740992) -> 4602678819172646912) ((2169 . 5625) (- 4611686018427387904 9007199254740993) -> 4602678819172646911) ((2170 . 5625) (- 4611686018427387904 9007199254740994) -> 4602678819172646910) ((2171 . 5625) (- 4611686018427387905 9007199254740990) -> 4602678819172646915) ((2172 . 5625) (- 4611686018427387905 9007199254740991) -> 4602678819172646914) ((2173 . 5625) (- 4611686018427387905 9007199254740992) -> 4602678819172646913) ((2174 . 5625) (- 4611686018427387905 9007199254740993) -> 4602678819172646912) ((2175 . 5625) (- 4611686018427387905 9007199254740994) -> 4602678819172646911) ((2176 . 5625) (- 4611686018427387901 -9007199254740994) -> 4620693217682128895) ((2177 . 5625) (- 4611686018427387901 -9007199254740993) -> 4620693217682128894) ((2178 . 5625) (- 4611686018427387901 -9007199254740992) -> 4620693217682128893) ((2179 . 5625) (- 4611686018427387901 -9007199254740991) -> 4620693217682128892) ((2180 . 5625) (- 4611686018427387901 -9007199254740990) -> 4620693217682128891) ((2181 . 5625) (- 4611686018427387902 -9007199254740994) -> 4620693217682128896) ((2182 . 5625) (- 4611686018427387902 -9007199254740993) -> 4620693217682128895) ((2183 . 5625) (- 4611686018427387902 -9007199254740992) -> 4620693217682128894) ((2184 . 5625) (- 4611686018427387902 -9007199254740991) -> 4620693217682128893) ((2185 . 5625) (- 4611686018427387902 -9007199254740990) -> 4620693217682128892) ((2186 . 5625) (- 4611686018427387903 -9007199254740994) -> 4620693217682128897) ((2187 . 5625) (- 4611686018427387903 -9007199254740993) -> 4620693217682128896) ((2188 . 5625) (- 4611686018427387903 -9007199254740992) -> 4620693217682128895) ((2189 . 5625) (- 4611686018427387903 -9007199254740991) -> 4620693217682128894) ((2190 . 5625) (- 4611686018427387903 -9007199254740990) -> 4620693217682128893) ((2191 . 5625) (- 4611686018427387904 -9007199254740994) -> 4620693217682128898) ((2192 . 5625) (- 4611686018427387904 -9007199254740993) -> 4620693217682128897) ((2193 . 5625) (- 4611686018427387904 -9007199254740992) -> 4620693217682128896) ((2194 . 5625) (- 4611686018427387904 -9007199254740991) -> 4620693217682128895) ((2195 . 5625) (- 4611686018427387904 -9007199254740990) -> 4620693217682128894) ((2196 . 5625) (- 4611686018427387905 -9007199254740994) -> 4620693217682128899) ((2197 . 5625) (- 4611686018427387905 -9007199254740993) -> 4620693217682128898) ((2198 . 5625) (- 4611686018427387905 -9007199254740992) -> 4620693217682128897) ((2199 . 5625) (- 4611686018427387905 -9007199254740991) -> 4620693217682128896) ((2200 . 5625) (- 4611686018427387905 -9007199254740990) -> 4620693217682128895) ((2201 . 5625) (- 4611686018427387901 12343) -> 4611686018427375558) ((2202 . 5625) (- 4611686018427387901 12344) -> 4611686018427375557) ((2203 . 5625) (- 4611686018427387901 12345) -> 4611686018427375556) ((2204 . 5625) (- 4611686018427387901 12346) -> 4611686018427375555) ((2205 . 5625) (- 4611686018427387901 12347) -> 4611686018427375554) ((2206 . 5625) (- 4611686018427387902 12343) -> 4611686018427375559) ((2207 . 5625) (- 4611686018427387902 12344) -> 4611686018427375558) ((2208 . 5625) (- 4611686018427387902 12345) -> 4611686018427375557) ((2209 . 5625) (- 4611686018427387902 12346) -> 4611686018427375556) ((2210 . 5625) (- 4611686018427387902 12347) -> 4611686018427375555) ((2211 . 5625) (- 4611686018427387903 12343) -> 4611686018427375560) ((2212 . 5625) (- 4611686018427387903 12344) -> 4611686018427375559) ((2213 . 5625) (- 4611686018427387903 12345) -> 4611686018427375558) ((2214 . 5625) (- 4611686018427387903 12346) -> 4611686018427375557) ((2215 . 5625) (- 4611686018427387903 12347) -> 4611686018427375556) ((2216 . 5625) (- 4611686018427387904 12343) -> 4611686018427375561) ((2217 . 5625) (- 4611686018427387904 12344) -> 4611686018427375560) ((2218 . 5625) (- 4611686018427387904 12345) -> 4611686018427375559) ((2219 . 5625) (- 4611686018427387904 12346) -> 4611686018427375558) ((2220 . 5625) (- 4611686018427387904 12347) -> 4611686018427375557) ((2221 . 5625) (- 4611686018427387905 12343) -> 4611686018427375562) ((2222 . 5625) (- 4611686018427387905 12344) -> 4611686018427375561) ((2223 . 5625) (- 4611686018427387905 12345) -> 4611686018427375560) ((2224 . 5625) (- 4611686018427387905 12346) -> 4611686018427375559) ((2225 . 5625) (- 4611686018427387905 12347) -> 4611686018427375558) ((2226 . 5625) (- 4611686018427387901 4294967294) -> 4611686014132420607) ((2227 . 5625) (- 4611686018427387901 4294967295) -> 4611686014132420606) ((2228 . 5625) (- 4611686018427387901 4294967296) -> 4611686014132420605) ((2229 . 5625) (- 4611686018427387901 4294967297) -> 4611686014132420604) ((2230 . 5625) (- 4611686018427387901 4294967298) -> 4611686014132420603) ((2231 . 5625) (- 4611686018427387902 4294967294) -> 4611686014132420608) ((2232 . 5625) (- 4611686018427387902 4294967295) -> 4611686014132420607) ((2233 . 5625) (- 4611686018427387902 4294967296) -> 4611686014132420606) ((2234 . 5625) (- 4611686018427387902 4294967297) -> 4611686014132420605) ((2235 . 5625) (- 4611686018427387902 4294967298) -> 4611686014132420604) ((2236 . 5625) (- 4611686018427387903 4294967294) -> 4611686014132420609) ((2237 . 5625) (- 4611686018427387903 4294967295) -> 4611686014132420608) ((2238 . 5625) (- 4611686018427387903 4294967296) -> 4611686014132420607) ((2239 . 5625) (- 4611686018427387903 4294967297) -> 4611686014132420606) ((2240 . 5625) (- 4611686018427387903 4294967298) -> 4611686014132420605) ((2241 . 5625) (- 4611686018427387904 4294967294) -> 4611686014132420610) ((2242 . 5625) (- 4611686018427387904 4294967295) -> 4611686014132420609) ((2243 . 5625) (- 4611686018427387904 4294967296) -> 4611686014132420608) ((2244 . 5625) (- 4611686018427387904 4294967297) -> 4611686014132420607) ((2245 . 5625) (- 4611686018427387904 4294967298) -> 4611686014132420606) ((2246 . 5625) (- 4611686018427387905 4294967294) -> 4611686014132420611) ((2247 . 5625) (- 4611686018427387905 4294967295) -> 4611686014132420610) ((2248 . 5625) (- 4611686018427387905 4294967296) -> 4611686014132420609) ((2249 . 5625) (- 4611686018427387905 4294967297) -> 4611686014132420608) ((2250 . 5625) (- 4611686018427387905 4294967298) -> 4611686014132420607) ((2251 . 5625) (- -4611686018427387906 -2) -> -4611686018427387904) ((2252 . 5625) (- -4611686018427387906 -1) -> -4611686018427387905) ((2253 . 5625) (- -4611686018427387906 0) -> -4611686018427387906) ((2254 . 5625) (- -4611686018427387906 1) -> -4611686018427387907) ((2255 . 5625) (- -4611686018427387906 2) -> -4611686018427387908) ((2256 . 5625) (- -4611686018427387905 -2) -> -4611686018427387903) ((2257 . 5625) (- -4611686018427387905 -1) -> -4611686018427387904) ((2258 . 5625) (- -4611686018427387905 0) -> -4611686018427387905) ((2259 . 5625) (- -4611686018427387905 1) -> -4611686018427387906) ((2260 . 5625) (- -4611686018427387905 2) -> -4611686018427387907) ((2261 . 5625) (- -4611686018427387904 -2) -> -4611686018427387902) ((2262 . 5625) (- -4611686018427387904 -1) -> -4611686018427387903) ((2263 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((2264 . 5625) (- -4611686018427387904 1) -> -4611686018427387905) ((2265 . 5625) (- -4611686018427387904 2) -> -4611686018427387906) ((2266 . 5625) (- -4611686018427387903 -2) -> -4611686018427387901) ((2267 . 5625) (- -4611686018427387903 -1) -> -4611686018427387902) ((2268 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((2269 . 5625) (- -4611686018427387903 1) -> -4611686018427387904) ((2270 . 5625) (- -4611686018427387903 2) -> -4611686018427387905) ((2271 . 5625) (- -4611686018427387902 -2) -> -4611686018427387900) ((2272 . 5625) (- -4611686018427387902 -1) -> -4611686018427387901) ((2273 . 5625) (- -4611686018427387902 0) -> -4611686018427387902) ((2274 . 5625) (- -4611686018427387902 1) -> -4611686018427387903) ((2275 . 5625) (- -4611686018427387902 2) -> -4611686018427387904) ((2276 . 5625) (- -4611686018427387906 -1) -> -4611686018427387905) ((2277 . 5625) (- -4611686018427387906 0) -> -4611686018427387906) ((2278 . 5625) (- -4611686018427387906 1) -> -4611686018427387907) ((2279 . 5625) (- -4611686018427387906 2) -> -4611686018427387908) ((2280 . 5625) (- -4611686018427387906 3) -> -4611686018427387909) ((2281 . 5625) (- -4611686018427387905 -1) -> -4611686018427387904) ((2282 . 5625) (- -4611686018427387905 0) -> -4611686018427387905) ((2283 . 5625) (- -4611686018427387905 1) -> -4611686018427387906) ((2284 . 5625) (- -4611686018427387905 2) -> -4611686018427387907) ((2285 . 5625) (- -4611686018427387905 3) -> -4611686018427387908) ((2286 . 5625) (- -4611686018427387904 -1) -> -4611686018427387903) ((2287 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((2288 . 5625) (- -4611686018427387904 1) -> -4611686018427387905) ((2289 . 5625) (- -4611686018427387904 2) -> -4611686018427387906) ((2290 . 5625) (- -4611686018427387904 3) -> -4611686018427387907) ((2291 . 5625) (- -4611686018427387903 -1) -> -4611686018427387902) ((2292 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((2293 . 5625) (- -4611686018427387903 1) -> -4611686018427387904) ((2294 . 5625) (- -4611686018427387903 2) -> -4611686018427387905) ((2295 . 5625) (- -4611686018427387903 3) -> -4611686018427387906) ((2296 . 5625) (- -4611686018427387902 -1) -> -4611686018427387901) ((2297 . 5625) (- -4611686018427387902 0) -> -4611686018427387902) ((2298 . 5625) (- -4611686018427387902 1) -> -4611686018427387903) ((2299 . 5625) (- -4611686018427387902 2) -> -4611686018427387904) ((2300 . 5625) (- -4611686018427387902 3) -> -4611686018427387905) ((2301 . 5625) (- -4611686018427387906 -3) -> -4611686018427387903) ((2302 . 5625) (- -4611686018427387906 -2) -> -4611686018427387904) ((2303 . 5625) (- -4611686018427387906 -1) -> -4611686018427387905) ((2304 . 5625) (- -4611686018427387906 0) -> -4611686018427387906) ((2305 . 5625) (- -4611686018427387906 1) -> -4611686018427387907) ((2306 . 5625) (- -4611686018427387905 -3) -> -4611686018427387902) ((2307 . 5625) (- -4611686018427387905 -2) -> -4611686018427387903) ((2308 . 5625) (- -4611686018427387905 -1) -> -4611686018427387904) ((2309 . 5625) (- -4611686018427387905 0) -> -4611686018427387905) ((2310 . 5625) (- -4611686018427387905 1) -> -4611686018427387906) ((2311 . 5625) (- -4611686018427387904 -3) -> -4611686018427387901) ((2312 . 5625) (- -4611686018427387904 -2) -> -4611686018427387902) ((2313 . 5625) (- -4611686018427387904 -1) -> -4611686018427387903) ((2314 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((2315 . 5625) (- -4611686018427387904 1) -> -4611686018427387905) ((2316 . 5625) (- -4611686018427387903 -3) -> -4611686018427387900) ((2317 . 5625) (- -4611686018427387903 -2) -> -4611686018427387901) ((2318 . 5625) (- -4611686018427387903 -1) -> -4611686018427387902) ((2319 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((2320 . 5625) (- -4611686018427387903 1) -> -4611686018427387904) ((2321 . 5625) (- -4611686018427387902 -3) -> -4611686018427387899) ((2322 . 5625) (- -4611686018427387902 -2) -> -4611686018427387900) ((2323 . 5625) (- -4611686018427387902 -1) -> -4611686018427387901) ((2324 . 5625) (- -4611686018427387902 0) -> -4611686018427387902) ((2325 . 5625) (- -4611686018427387902 1) -> -4611686018427387903) ((2326 . 5625) (- -4611686018427387906 0) -> -4611686018427387906) ((2327 . 5625) (- -4611686018427387906 1) -> -4611686018427387907) ((2328 . 5625) (- -4611686018427387906 2) -> -4611686018427387908) ((2329 . 5625) (- -4611686018427387906 3) -> -4611686018427387909) ((2330 . 5625) (- -4611686018427387906 4) -> -4611686018427387910) ((2331 . 5625) (- -4611686018427387905 0) -> -4611686018427387905) ((2332 . 5625) (- -4611686018427387905 1) -> -4611686018427387906) ((2333 . 5625) (- -4611686018427387905 2) -> -4611686018427387907) ((2334 . 5625) (- -4611686018427387905 3) -> -4611686018427387908) ((2335 . 5625) (- -4611686018427387905 4) -> -4611686018427387909) ((2336 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((2337 . 5625) (- -4611686018427387904 1) -> -4611686018427387905) ((2338 . 5625) (- -4611686018427387904 2) -> -4611686018427387906) ((2339 . 5625) (- -4611686018427387904 3) -> -4611686018427387907) ((2340 . 5625) (- -4611686018427387904 4) -> -4611686018427387908) ((2341 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((2342 . 5625) (- -4611686018427387903 1) -> -4611686018427387904) ((2343 . 5625) (- -4611686018427387903 2) -> -4611686018427387905) ((2344 . 5625) (- -4611686018427387903 3) -> -4611686018427387906) ((2345 . 5625) (- -4611686018427387903 4) -> -4611686018427387907) ((2346 . 5625) (- -4611686018427387902 0) -> -4611686018427387902) ((2347 . 5625) (- -4611686018427387902 1) -> -4611686018427387903) ((2348 . 5625) (- -4611686018427387902 2) -> -4611686018427387904) ((2349 . 5625) (- -4611686018427387902 3) -> -4611686018427387905) ((2350 . 5625) (- -4611686018427387902 4) -> -4611686018427387906) ((2351 . 5625) (- -4611686018427387906 -4) -> -4611686018427387902) ((2352 . 5625) (- -4611686018427387906 -3) -> -4611686018427387903) ((2353 . 5625) (- -4611686018427387906 -2) -> -4611686018427387904) ((2354 . 5625) (- -4611686018427387906 -1) -> -4611686018427387905) ((2355 . 5625) (- -4611686018427387906 0) -> -4611686018427387906) ((2356 . 5625) (- -4611686018427387905 -4) -> -4611686018427387901) ((2357 . 5625) (- -4611686018427387905 -3) -> -4611686018427387902) ((2358 . 5625) (- -4611686018427387905 -2) -> -4611686018427387903) ((2359 . 5625) (- -4611686018427387905 -1) -> -4611686018427387904) ((2360 . 5625) (- -4611686018427387905 0) -> -4611686018427387905) ((2361 . 5625) (- -4611686018427387904 -4) -> -4611686018427387900) ((2362 . 5625) (- -4611686018427387904 -3) -> -4611686018427387901) ((2363 . 5625) (- -4611686018427387904 -2) -> -4611686018427387902) ((2364 . 5625) (- -4611686018427387904 -1) -> -4611686018427387903) ((2365 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((2366 . 5625) (- -4611686018427387903 -4) -> -4611686018427387899) ((2367 . 5625) (- -4611686018427387903 -3) -> -4611686018427387900) ((2368 . 5625) (- -4611686018427387903 -2) -> -4611686018427387901) ((2369 . 5625) (- -4611686018427387903 -1) -> -4611686018427387902) ((2370 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((2371 . 5625) (- -4611686018427387902 -4) -> -4611686018427387898) ((2372 . 5625) (- -4611686018427387902 -3) -> -4611686018427387899) ((2373 . 5625) (- -4611686018427387902 -2) -> -4611686018427387900) ((2374 . 5625) (- -4611686018427387902 -1) -> -4611686018427387901) ((2375 . 5625) (- -4611686018427387902 0) -> -4611686018427387902) ((2376 . 5625) (- -4611686018427387906 4611686018427387901) -> -9223372036854775807) ((2377 . 5625) (- -4611686018427387906 4611686018427387902) -> -9223372036854775808) ((2378 . 5625) (- -4611686018427387906 4611686018427387903) -> -9223372036854775809) ((2379 . 5625) (- -4611686018427387906 4611686018427387904) -> -9223372036854775810) ((2380 . 5625) (- -4611686018427387906 4611686018427387905) -> -9223372036854775811) ((2381 . 5625) (- -4611686018427387905 4611686018427387901) -> -9223372036854775806) ((2382 . 5625) (- -4611686018427387905 4611686018427387902) -> -9223372036854775807) ((2383 . 5625) (- -4611686018427387905 4611686018427387903) -> -9223372036854775808) ((2384 . 5625) (- -4611686018427387905 4611686018427387904) -> -9223372036854775809) ((2385 . 5625) (- -4611686018427387905 4611686018427387905) -> -9223372036854775810) ((2386 . 5625) (- -4611686018427387904 4611686018427387901) -> -9223372036854775805) ((2387 . 5625) (- -4611686018427387904 4611686018427387902) -> -9223372036854775806) ((2388 . 5625) (- -4611686018427387904 4611686018427387903) -> -9223372036854775807) ((2389 . 5625) (- -4611686018427387904 4611686018427387904) -> -9223372036854775808) ((2390 . 5625) (- -4611686018427387904 4611686018427387905) -> -9223372036854775809) ((2391 . 5625) (- -4611686018427387903 4611686018427387901) -> -9223372036854775804) ((2392 . 5625) (- -4611686018427387903 4611686018427387902) -> -9223372036854775805) ((2393 . 5625) (- -4611686018427387903 4611686018427387903) -> -9223372036854775806) ((2394 . 5625) (- -4611686018427387903 4611686018427387904) -> -9223372036854775807) ((2395 . 5625) (- -4611686018427387903 4611686018427387905) -> -9223372036854775808) ((2396 . 5625) (- -4611686018427387902 4611686018427387901) -> -9223372036854775803) ((2397 . 5625) (- -4611686018427387902 4611686018427387902) -> -9223372036854775804) ((2398 . 5625) (- -4611686018427387902 4611686018427387903) -> -9223372036854775805) ((2399 . 5625) (- -4611686018427387902 4611686018427387904) -> -9223372036854775806) ((2400 . 5625) (- -4611686018427387902 4611686018427387905) -> -9223372036854775807) ((2401 . 5625) (- -4611686018427387906 -4611686018427387906) -> 0) ((2402 . 5625) (- -4611686018427387906 -4611686018427387905) -> -1) ((2403 . 5625) (- -4611686018427387906 -4611686018427387904) -> -2) ((2404 . 5625) (- -4611686018427387906 -4611686018427387903) -> -3) ((2405 . 5625) (- -4611686018427387906 -4611686018427387902) -> -4) ((2406 . 5625) (- -4611686018427387905 -4611686018427387906) -> 1) ((2407 . 5625) (- -4611686018427387905 -4611686018427387905) -> 0) ((2408 . 5625) (- -4611686018427387905 -4611686018427387904) -> -1) ((2409 . 5625) (- -4611686018427387905 -4611686018427387903) -> -2) ((2410 . 5625) (- -4611686018427387905 -4611686018427387902) -> -3) ((2411 . 5625) (- -4611686018427387904 -4611686018427387906) -> 2) ((2412 . 5625) (- -4611686018427387904 -4611686018427387905) -> 1) ((2413 . 5625) (- -4611686018427387904 -4611686018427387904) -> 0) ((2414 . 5625) (- -4611686018427387904 -4611686018427387903) -> -1) ((2415 . 5625) (- -4611686018427387904 -4611686018427387902) -> -2) ((2416 . 5625) (- -4611686018427387903 -4611686018427387906) -> 3) ((2417 . 5625) (- -4611686018427387903 -4611686018427387905) -> 2) ((2418 . 5625) (- -4611686018427387903 -4611686018427387904) -> 1) ((2419 . 5625) (- -4611686018427387903 -4611686018427387903) -> 0) ((2420 . 5625) (- -4611686018427387903 -4611686018427387902) -> -1) ((2421 . 5625) (- -4611686018427387902 -4611686018427387906) -> 4) ((2422 . 5625) (- -4611686018427387902 -4611686018427387905) -> 3) ((2423 . 5625) (- -4611686018427387902 -4611686018427387904) -> 2) ((2424 . 5625) (- -4611686018427387902 -4611686018427387903) -> 1) ((2425 . 5625) (- -4611686018427387902 -4611686018427387902) -> 0) ((2426 . 5625) (- -4611686018427387906 4611686018427387902) -> -9223372036854775808) ((2427 . 5625) (- -4611686018427387906 4611686018427387903) -> -9223372036854775809) ((2428 . 5625) (- -4611686018427387906 4611686018427387904) -> -9223372036854775810) ((2429 . 5625) (- -4611686018427387906 4611686018427387905) -> -9223372036854775811) ((2430 . 5625) (- -4611686018427387906 4611686018427387906) -> -9223372036854775812) ((2431 . 5625) (- -4611686018427387905 4611686018427387902) -> -9223372036854775807) ((2432 . 5625) (- -4611686018427387905 4611686018427387903) -> -9223372036854775808) ((2433 . 5625) (- -4611686018427387905 4611686018427387904) -> -9223372036854775809) ((2434 . 5625) (- -4611686018427387905 4611686018427387905) -> -9223372036854775810) ((2435 . 5625) (- -4611686018427387905 4611686018427387906) -> -9223372036854775811) ((2436 . 5625) (- -4611686018427387904 4611686018427387902) -> -9223372036854775806) ((2437 . 5625) (- -4611686018427387904 4611686018427387903) -> -9223372036854775807) ((2438 . 5625) (- -4611686018427387904 4611686018427387904) -> -9223372036854775808) ((2439 . 5625) (- -4611686018427387904 4611686018427387905) -> -9223372036854775809) ((2440 . 5625) (- -4611686018427387904 4611686018427387906) -> -9223372036854775810) ((2441 . 5625) (- -4611686018427387903 4611686018427387902) -> -9223372036854775805) ((2442 . 5625) (- -4611686018427387903 4611686018427387903) -> -9223372036854775806) ((2443 . 5625) (- -4611686018427387903 4611686018427387904) -> -9223372036854775807) ((2444 . 5625) (- -4611686018427387903 4611686018427387905) -> -9223372036854775808) ((2445 . 5625) (- -4611686018427387903 4611686018427387906) -> -9223372036854775809) ((2446 . 5625) (- -4611686018427387902 4611686018427387902) -> -9223372036854775804) ((2447 . 5625) (- -4611686018427387902 4611686018427387903) -> -9223372036854775805) ((2448 . 5625) (- -4611686018427387902 4611686018427387904) -> -9223372036854775806) ((2449 . 5625) (- -4611686018427387902 4611686018427387905) -> -9223372036854775807) ((2450 . 5625) (- -4611686018427387902 4611686018427387906) -> -9223372036854775808) ((2451 . 5625) (- -4611686018427387906 -4611686018427387907) -> 1) ((2452 . 5625) (- -4611686018427387906 -4611686018427387906) -> 0) ((2453 . 5625) (- -4611686018427387906 -4611686018427387905) -> -1) ((2454 . 5625) (- -4611686018427387906 -4611686018427387904) -> -2) ((2455 . 5625) (- -4611686018427387906 -4611686018427387903) -> -3) ((2456 . 5625) (- -4611686018427387905 -4611686018427387907) -> 2) ((2457 . 5625) (- -4611686018427387905 -4611686018427387906) -> 1) ((2458 . 5625) (- -4611686018427387905 -4611686018427387905) -> 0) ((2459 . 5625) (- -4611686018427387905 -4611686018427387904) -> -1) ((2460 . 5625) (- -4611686018427387905 -4611686018427387903) -> -2) ((2461 . 5625) (- -4611686018427387904 -4611686018427387907) -> 3) ((2462 . 5625) (- -4611686018427387904 -4611686018427387906) -> 2) ((2463 . 5625) (- -4611686018427387904 -4611686018427387905) -> 1) ((2464 . 5625) (- -4611686018427387904 -4611686018427387904) -> 0) ((2465 . 5625) (- -4611686018427387904 -4611686018427387903) -> -1) ((2466 . 5625) (- -4611686018427387903 -4611686018427387907) -> 4) ((2467 . 5625) (- -4611686018427387903 -4611686018427387906) -> 3) ((2468 . 5625) (- -4611686018427387903 -4611686018427387905) -> 2) ((2469 . 5625) (- -4611686018427387903 -4611686018427387904) -> 1) ((2470 . 5625) (- -4611686018427387903 -4611686018427387903) -> 0) ((2471 . 5625) (- -4611686018427387902 -4611686018427387907) -> 5) ((2472 . 5625) (- -4611686018427387902 -4611686018427387906) -> 4) ((2473 . 5625) (- -4611686018427387902 -4611686018427387905) -> 3) ((2474 . 5625) (- -4611686018427387902 -4611686018427387904) -> 2) ((2475 . 5625) (- -4611686018427387902 -4611686018427387903) -> 1) ((2476 . 5625) (- -4611686018427387906 1103515243) -> -4611686019530903149) ((2477 . 5625) (- -4611686018427387906 1103515244) -> -4611686019530903150) ((2478 . 5625) (- -4611686018427387906 1103515245) -> -4611686019530903151) ((2479 . 5625) (- -4611686018427387906 1103515246) -> -4611686019530903152) ((2480 . 5625) (- -4611686018427387906 1103515247) -> -4611686019530903153) ((2481 . 5625) (- -4611686018427387905 1103515243) -> -4611686019530903148) ((2482 . 5625) (- -4611686018427387905 1103515244) -> -4611686019530903149) ((2483 . 5625) (- -4611686018427387905 1103515245) -> -4611686019530903150) ((2484 . 5625) (- -4611686018427387905 1103515246) -> -4611686019530903151) ((2485 . 5625) (- -4611686018427387905 1103515247) -> -4611686019530903152) ((2486 . 5625) (- -4611686018427387904 1103515243) -> -4611686019530903147) ((2487 . 5625) (- -4611686018427387904 1103515244) -> -4611686019530903148) ((2488 . 5625) (- -4611686018427387904 1103515245) -> -4611686019530903149) ((2489 . 5625) (- -4611686018427387904 1103515246) -> -4611686019530903150) ((2490 . 5625) (- -4611686018427387904 1103515247) -> -4611686019530903151) ((2491 . 5625) (- -4611686018427387903 1103515243) -> -4611686019530903146) ((2492 . 5625) (- -4611686018427387903 1103515244) -> -4611686019530903147) ((2493 . 5625) (- -4611686018427387903 1103515245) -> -4611686019530903148) ((2494 . 5625) (- -4611686018427387903 1103515246) -> -4611686019530903149) ((2495 . 5625) (- -4611686018427387903 1103515247) -> -4611686019530903150) ((2496 . 5625) (- -4611686018427387902 1103515243) -> -4611686019530903145) ((2497 . 5625) (- -4611686018427387902 1103515244) -> -4611686019530903146) ((2498 . 5625) (- -4611686018427387902 1103515245) -> -4611686019530903147) ((2499 . 5625) (- -4611686018427387902 1103515246) -> -4611686019530903148) ((2500 . 5625) (- -4611686018427387902 1103515247) -> -4611686019530903149) ((2501 . 5625) (- -4611686018427387906 631629063) -> -4611686019059016969) ((2502 . 5625) (- -4611686018427387906 631629064) -> -4611686019059016970) ((2503 . 5625) (- -4611686018427387906 631629065) -> -4611686019059016971) ((2504 . 5625) (- -4611686018427387906 631629066) -> -4611686019059016972) ((2505 . 5625) (- -4611686018427387906 631629067) -> -4611686019059016973) ((2506 . 5625) (- -4611686018427387905 631629063) -> -4611686019059016968) ((2507 . 5625) (- -4611686018427387905 631629064) -> -4611686019059016969) ((2508 . 5625) (- -4611686018427387905 631629065) -> -4611686019059016970) ((2509 . 5625) (- -4611686018427387905 631629066) -> -4611686019059016971) ((2510 . 5625) (- -4611686018427387905 631629067) -> -4611686019059016972) ((2511 . 5625) (- -4611686018427387904 631629063) -> -4611686019059016967) ((2512 . 5625) (- -4611686018427387904 631629064) -> -4611686019059016968) ((2513 . 5625) (- -4611686018427387904 631629065) -> -4611686019059016969) ((2514 . 5625) (- -4611686018427387904 631629066) -> -4611686019059016970) ((2515 . 5625) (- -4611686018427387904 631629067) -> -4611686019059016971) ((2516 . 5625) (- -4611686018427387903 631629063) -> -4611686019059016966) ((2517 . 5625) (- -4611686018427387903 631629064) -> -4611686019059016967) ((2518 . 5625) (- -4611686018427387903 631629065) -> -4611686019059016968) ((2519 . 5625) (- -4611686018427387903 631629066) -> -4611686019059016969) ((2520 . 5625) (- -4611686018427387903 631629067) -> -4611686019059016970) ((2521 . 5625) (- -4611686018427387902 631629063) -> -4611686019059016965) ((2522 . 5625) (- -4611686018427387902 631629064) -> -4611686019059016966) ((2523 . 5625) (- -4611686018427387902 631629065) -> -4611686019059016967) ((2524 . 5625) (- -4611686018427387902 631629066) -> -4611686019059016968) ((2525 . 5625) (- -4611686018427387902 631629067) -> -4611686019059016969) ((2526 . 5625) (- -4611686018427387906 9007199254740990) -> -4620693217682128896) ((2527 . 5625) (- -4611686018427387906 9007199254740991) -> -4620693217682128897) ((2528 . 5625) (- -4611686018427387906 9007199254740992) -> -4620693217682128898) ((2529 . 5625) (- -4611686018427387906 9007199254740993) -> -4620693217682128899) ((2530 . 5625) (- -4611686018427387906 9007199254740994) -> -4620693217682128900) ((2531 . 5625) (- -4611686018427387905 9007199254740990) -> -4620693217682128895) ((2532 . 5625) (- -4611686018427387905 9007199254740991) -> -4620693217682128896) ((2533 . 5625) (- -4611686018427387905 9007199254740992) -> -4620693217682128897) ((2534 . 5625) (- -4611686018427387905 9007199254740993) -> -4620693217682128898) ((2535 . 5625) (- -4611686018427387905 9007199254740994) -> -4620693217682128899) ((2536 . 5625) (- -4611686018427387904 9007199254740990) -> -4620693217682128894) ((2537 . 5625) (- -4611686018427387904 9007199254740991) -> -4620693217682128895) ((2538 . 5625) (- -4611686018427387904 9007199254740992) -> -4620693217682128896) ((2539 . 5625) (- -4611686018427387904 9007199254740993) -> -4620693217682128897) ((2540 . 5625) (- -4611686018427387904 9007199254740994) -> -4620693217682128898) ((2541 . 5625) (- -4611686018427387903 9007199254740990) -> -4620693217682128893) ((2542 . 5625) (- -4611686018427387903 9007199254740991) -> -4620693217682128894) ((2543 . 5625) (- -4611686018427387903 9007199254740992) -> -4620693217682128895) ((2544 . 5625) (- -4611686018427387903 9007199254740993) -> -4620693217682128896) ((2545 . 5625) (- -4611686018427387903 9007199254740994) -> -4620693217682128897) ((2546 . 5625) (- -4611686018427387902 9007199254740990) -> -4620693217682128892) ((2547 . 5625) (- -4611686018427387902 9007199254740991) -> -4620693217682128893) ((2548 . 5625) (- -4611686018427387902 9007199254740992) -> -4620693217682128894) ((2549 . 5625) (- -4611686018427387902 9007199254740993) -> -4620693217682128895) ((2550 . 5625) (- -4611686018427387902 9007199254740994) -> -4620693217682128896) ((2551 . 5625) (- -4611686018427387906 -9007199254740994) -> -4602678819172646912) ((2552 . 5625) (- -4611686018427387906 -9007199254740993) -> -4602678819172646913) ((2553 . 5625) (- -4611686018427387906 -9007199254740992) -> -4602678819172646914) ((2554 . 5625) (- -4611686018427387906 -9007199254740991) -> -4602678819172646915) ((2555 . 5625) (- -4611686018427387906 -9007199254740990) -> -4602678819172646916) ((2556 . 5625) (- -4611686018427387905 -9007199254740994) -> -4602678819172646911) ((2557 . 5625) (- -4611686018427387905 -9007199254740993) -> -4602678819172646912) ((2558 . 5625) (- -4611686018427387905 -9007199254740992) -> -4602678819172646913) ((2559 . 5625) (- -4611686018427387905 -9007199254740991) -> -4602678819172646914) ((2560 . 5625) (- -4611686018427387905 -9007199254740990) -> -4602678819172646915) ((2561 . 5625) (- -4611686018427387904 -9007199254740994) -> -4602678819172646910) ((2562 . 5625) (- -4611686018427387904 -9007199254740993) -> -4602678819172646911) ((2563 . 5625) (- -4611686018427387904 -9007199254740992) -> -4602678819172646912) ((2564 . 5625) (- -4611686018427387904 -9007199254740991) -> -4602678819172646913) ((2565 . 5625) (- -4611686018427387904 -9007199254740990) -> -4602678819172646914) ((2566 . 5625) (- -4611686018427387903 -9007199254740994) -> -4602678819172646909) ((2567 . 5625) (- -4611686018427387903 -9007199254740993) -> -4602678819172646910) ((2568 . 5625) (- -4611686018427387903 -9007199254740992) -> -4602678819172646911) ((2569 . 5625) (- -4611686018427387903 -9007199254740991) -> -4602678819172646912) ((2570 . 5625) (- -4611686018427387903 -9007199254740990) -> -4602678819172646913) ((2571 . 5625) (- -4611686018427387902 -9007199254740994) -> -4602678819172646908) ((2572 . 5625) (- -4611686018427387902 -9007199254740993) -> -4602678819172646909) ((2573 . 5625) (- -4611686018427387902 -9007199254740992) -> -4602678819172646910) ((2574 . 5625) (- -4611686018427387902 -9007199254740991) -> -4602678819172646911) ((2575 . 5625) (- -4611686018427387902 -9007199254740990) -> -4602678819172646912) ((2576 . 5625) (- -4611686018427387906 12343) -> -4611686018427400249) ((2577 . 5625) (- -4611686018427387906 12344) -> -4611686018427400250) ((2578 . 5625) (- -4611686018427387906 12345) -> -4611686018427400251) ((2579 . 5625) (- -4611686018427387906 12346) -> -4611686018427400252) ((2580 . 5625) (- -4611686018427387906 12347) -> -4611686018427400253) ((2581 . 5625) (- -4611686018427387905 12343) -> -4611686018427400248) ((2582 . 5625) (- -4611686018427387905 12344) -> -4611686018427400249) ((2583 . 5625) (- -4611686018427387905 12345) -> -4611686018427400250) ((2584 . 5625) (- -4611686018427387905 12346) -> -4611686018427400251) ((2585 . 5625) (- -4611686018427387905 12347) -> -4611686018427400252) ((2586 . 5625) (- -4611686018427387904 12343) -> -4611686018427400247) ((2587 . 5625) (- -4611686018427387904 12344) -> -4611686018427400248) ((2588 . 5625) (- -4611686018427387904 12345) -> -4611686018427400249) ((2589 . 5625) (- -4611686018427387904 12346) -> -4611686018427400250) ((2590 . 5625) (- -4611686018427387904 12347) -> -4611686018427400251) ((2591 . 5625) (- -4611686018427387903 12343) -> -4611686018427400246) ((2592 . 5625) (- -4611686018427387903 12344) -> -4611686018427400247) ((2593 . 5625) (- -4611686018427387903 12345) -> -4611686018427400248) ((2594 . 5625) (- -4611686018427387903 12346) -> -4611686018427400249) ((2595 . 5625) (- -4611686018427387903 12347) -> -4611686018427400250) ((2596 . 5625) (- -4611686018427387902 12343) -> -4611686018427400245) ((2597 . 5625) (- -4611686018427387902 12344) -> -4611686018427400246) ((2598 . 5625) (- -4611686018427387902 12345) -> -4611686018427400247) ((2599 . 5625) (- -4611686018427387902 12346) -> -4611686018427400248) ((2600 . 5625) (- -4611686018427387902 12347) -> -4611686018427400249) ((2601 . 5625) (- -4611686018427387906 4294967294) -> -4611686022722355200) ((2602 . 5625) (- -4611686018427387906 4294967295) -> -4611686022722355201) ((2603 . 5625) (- -4611686018427387906 4294967296) -> -4611686022722355202) ((2604 . 5625) (- -4611686018427387906 4294967297) -> -4611686022722355203) ((2605 . 5625) (- -4611686018427387906 4294967298) -> -4611686022722355204) ((2606 . 5625) (- -4611686018427387905 4294967294) -> -4611686022722355199) ((2607 . 5625) (- -4611686018427387905 4294967295) -> -4611686022722355200) ((2608 . 5625) (- -4611686018427387905 4294967296) -> -4611686022722355201) ((2609 . 5625) (- -4611686018427387905 4294967297) -> -4611686022722355202) ((2610 . 5625) (- -4611686018427387905 4294967298) -> -4611686022722355203) ((2611 . 5625) (- -4611686018427387904 4294967294) -> -4611686022722355198) ((2612 . 5625) (- -4611686018427387904 4294967295) -> -4611686022722355199) ((2613 . 5625) (- -4611686018427387904 4294967296) -> -4611686022722355200) ((2614 . 5625) (- -4611686018427387904 4294967297) -> -4611686022722355201) ((2615 . 5625) (- -4611686018427387904 4294967298) -> -4611686022722355202) ((2616 . 5625) (- -4611686018427387903 4294967294) -> -4611686022722355197) ((2617 . 5625) (- -4611686018427387903 4294967295) -> -4611686022722355198) ((2618 . 5625) (- -4611686018427387903 4294967296) -> -4611686022722355199) ((2619 . 5625) (- -4611686018427387903 4294967297) -> -4611686022722355200) ((2620 . 5625) (- -4611686018427387903 4294967298) -> -4611686022722355201) ((2621 . 5625) (- -4611686018427387902 4294967294) -> -4611686022722355196) ((2622 . 5625) (- -4611686018427387902 4294967295) -> -4611686022722355197) ((2623 . 5625) (- -4611686018427387902 4294967296) -> -4611686022722355198) ((2624 . 5625) (- -4611686018427387902 4294967297) -> -4611686022722355199) ((2625 . 5625) (- -4611686018427387902 4294967298) -> -4611686022722355200) ((2626 . 5625) (- 4611686018427387902 -2) -> 4611686018427387904) ((2627 . 5625) (- 4611686018427387902 -1) -> 4611686018427387903) ((2628 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((2629 . 5625) (- 4611686018427387902 1) -> 4611686018427387901) ((2630 . 5625) (- 4611686018427387902 2) -> 4611686018427387900) ((2631 . 5625) (- 4611686018427387903 -2) -> 4611686018427387905) ((2632 . 5625) (- 4611686018427387903 -1) -> 4611686018427387904) ((2633 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((2634 . 5625) (- 4611686018427387903 1) -> 4611686018427387902) ((2635 . 5625) (- 4611686018427387903 2) -> 4611686018427387901) ((2636 . 5625) (- 4611686018427387904 -2) -> 4611686018427387906) ((2637 . 5625) (- 4611686018427387904 -1) -> 4611686018427387905) ((2638 . 5625) (- 4611686018427387904 0) -> 4611686018427387904) ((2639 . 5625) (- 4611686018427387904 1) -> 4611686018427387903) ((2640 . 5625) (- 4611686018427387904 2) -> 4611686018427387902) ((2641 . 5625) (- 4611686018427387905 -2) -> 4611686018427387907) ((2642 . 5625) (- 4611686018427387905 -1) -> 4611686018427387906) ((2643 . 5625) (- 4611686018427387905 0) -> 4611686018427387905) ((2644 . 5625) (- 4611686018427387905 1) -> 4611686018427387904) ((2645 . 5625) (- 4611686018427387905 2) -> 4611686018427387903) ((2646 . 5625) (- 4611686018427387906 -2) -> 4611686018427387908) ((2647 . 5625) (- 4611686018427387906 -1) -> 4611686018427387907) ((2648 . 5625) (- 4611686018427387906 0) -> 4611686018427387906) ((2649 . 5625) (- 4611686018427387906 1) -> 4611686018427387905) ((2650 . 5625) (- 4611686018427387906 2) -> 4611686018427387904) ((2651 . 5625) (- 4611686018427387902 -1) -> 4611686018427387903) ((2652 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((2653 . 5625) (- 4611686018427387902 1) -> 4611686018427387901) ((2654 . 5625) (- 4611686018427387902 2) -> 4611686018427387900) ((2655 . 5625) (- 4611686018427387902 3) -> 4611686018427387899) ((2656 . 5625) (- 4611686018427387903 -1) -> 4611686018427387904) ((2657 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((2658 . 5625) (- 4611686018427387903 1) -> 4611686018427387902) ((2659 . 5625) (- 4611686018427387903 2) -> 4611686018427387901) ((2660 . 5625) (- 4611686018427387903 3) -> 4611686018427387900) ((2661 . 5625) (- 4611686018427387904 -1) -> 4611686018427387905) ((2662 . 5625) (- 4611686018427387904 0) -> 4611686018427387904) ((2663 . 5625) (- 4611686018427387904 1) -> 4611686018427387903) ((2664 . 5625) (- 4611686018427387904 2) -> 4611686018427387902) ((2665 . 5625) (- 4611686018427387904 3) -> 4611686018427387901) ((2666 . 5625) (- 4611686018427387905 -1) -> 4611686018427387906) ((2667 . 5625) (- 4611686018427387905 0) -> 4611686018427387905) ((2668 . 5625) (- 4611686018427387905 1) -> 4611686018427387904) ((2669 . 5625) (- 4611686018427387905 2) -> 4611686018427387903) ((2670 . 5625) (- 4611686018427387905 3) -> 4611686018427387902) ((2671 . 5625) (- 4611686018427387906 -1) -> 4611686018427387907) ((2672 . 5625) (- 4611686018427387906 0) -> 4611686018427387906) ((2673 . 5625) (- 4611686018427387906 1) -> 4611686018427387905) ((2674 . 5625) (- 4611686018427387906 2) -> 4611686018427387904) ((2675 . 5625) (- 4611686018427387906 3) -> 4611686018427387903) ((2676 . 5625) (- 4611686018427387902 -3) -> 4611686018427387905) ((2677 . 5625) (- 4611686018427387902 -2) -> 4611686018427387904) ((2678 . 5625) (- 4611686018427387902 -1) -> 4611686018427387903) ((2679 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((2680 . 5625) (- 4611686018427387902 1) -> 4611686018427387901) ((2681 . 5625) (- 4611686018427387903 -3) -> 4611686018427387906) ((2682 . 5625) (- 4611686018427387903 -2) -> 4611686018427387905) ((2683 . 5625) (- 4611686018427387903 -1) -> 4611686018427387904) ((2684 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((2685 . 5625) (- 4611686018427387903 1) -> 4611686018427387902) ((2686 . 5625) (- 4611686018427387904 -3) -> 4611686018427387907) ((2687 . 5625) (- 4611686018427387904 -2) -> 4611686018427387906) ((2688 . 5625) (- 4611686018427387904 -1) -> 4611686018427387905) ((2689 . 5625) (- 4611686018427387904 0) -> 4611686018427387904) ((2690 . 5625) (- 4611686018427387904 1) -> 4611686018427387903) ((2691 . 5625) (- 4611686018427387905 -3) -> 4611686018427387908) ((2692 . 5625) (- 4611686018427387905 -2) -> 4611686018427387907) ((2693 . 5625) (- 4611686018427387905 -1) -> 4611686018427387906) ((2694 . 5625) (- 4611686018427387905 0) -> 4611686018427387905) ((2695 . 5625) (- 4611686018427387905 1) -> 4611686018427387904) ((2696 . 5625) (- 4611686018427387906 -3) -> 4611686018427387909) ((2697 . 5625) (- 4611686018427387906 -2) -> 4611686018427387908) ((2698 . 5625) (- 4611686018427387906 -1) -> 4611686018427387907) ((2699 . 5625) (- 4611686018427387906 0) -> 4611686018427387906) ((2700 . 5625) (- 4611686018427387906 1) -> 4611686018427387905) ((2701 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((2702 . 5625) (- 4611686018427387902 1) -> 4611686018427387901) ((2703 . 5625) (- 4611686018427387902 2) -> 4611686018427387900) ((2704 . 5625) (- 4611686018427387902 3) -> 4611686018427387899) ((2705 . 5625) (- 4611686018427387902 4) -> 4611686018427387898) ((2706 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((2707 . 5625) (- 4611686018427387903 1) -> 4611686018427387902) ((2708 . 5625) (- 4611686018427387903 2) -> 4611686018427387901) ((2709 . 5625) (- 4611686018427387903 3) -> 4611686018427387900) ((2710 . 5625) (- 4611686018427387903 4) -> 4611686018427387899) ((2711 . 5625) (- 4611686018427387904 0) -> 4611686018427387904) ((2712 . 5625) (- 4611686018427387904 1) -> 4611686018427387903) ((2713 . 5625) (- 4611686018427387904 2) -> 4611686018427387902) ((2714 . 5625) (- 4611686018427387904 3) -> 4611686018427387901) ((2715 . 5625) (- 4611686018427387904 4) -> 4611686018427387900) ((2716 . 5625) (- 4611686018427387905 0) -> 4611686018427387905) ((2717 . 5625) (- 4611686018427387905 1) -> 4611686018427387904) ((2718 . 5625) (- 4611686018427387905 2) -> 4611686018427387903) ((2719 . 5625) (- 4611686018427387905 3) -> 4611686018427387902) ((2720 . 5625) (- 4611686018427387905 4) -> 4611686018427387901) ((2721 . 5625) (- 4611686018427387906 0) -> 4611686018427387906) ((2722 . 5625) (- 4611686018427387906 1) -> 4611686018427387905) ((2723 . 5625) (- 4611686018427387906 2) -> 4611686018427387904) ((2724 . 5625) (- 4611686018427387906 3) -> 4611686018427387903) ((2725 . 5625) (- 4611686018427387906 4) -> 4611686018427387902) ((2726 . 5625) (- 4611686018427387902 -4) -> 4611686018427387906) ((2727 . 5625) (- 4611686018427387902 -3) -> 4611686018427387905) ((2728 . 5625) (- 4611686018427387902 -2) -> 4611686018427387904) ((2729 . 5625) (- 4611686018427387902 -1) -> 4611686018427387903) ((2730 . 5625) (- 4611686018427387902 0) -> 4611686018427387902) ((2731 . 5625) (- 4611686018427387903 -4) -> 4611686018427387907) ((2732 . 5625) (- 4611686018427387903 -3) -> 4611686018427387906) ((2733 . 5625) (- 4611686018427387903 -2) -> 4611686018427387905) ((2734 . 5625) (- 4611686018427387903 -1) -> 4611686018427387904) ((2735 . 5625) (- 4611686018427387903 0) -> 4611686018427387903) ((2736 . 5625) (- 4611686018427387904 -4) -> 4611686018427387908) ((2737 . 5625) (- 4611686018427387904 -3) -> 4611686018427387907) ((2738 . 5625) (- 4611686018427387904 -2) -> 4611686018427387906) ((2739 . 5625) (- 4611686018427387904 -1) -> 4611686018427387905) ((2740 . 5625) (- 4611686018427387904 0) -> 4611686018427387904) ((2741 . 5625) (- 4611686018427387905 -4) -> 4611686018427387909) ((2742 . 5625) (- 4611686018427387905 -3) -> 4611686018427387908) ((2743 . 5625) (- 4611686018427387905 -2) -> 4611686018427387907) ((2744 . 5625) (- 4611686018427387905 -1) -> 4611686018427387906) ((2745 . 5625) (- 4611686018427387905 0) -> 4611686018427387905) ((2746 . 5625) (- 4611686018427387906 -4) -> 4611686018427387910) ((2747 . 5625) (- 4611686018427387906 -3) -> 4611686018427387909) ((2748 . 5625) (- 4611686018427387906 -2) -> 4611686018427387908) ((2749 . 5625) (- 4611686018427387906 -1) -> 4611686018427387907) ((2750 . 5625) (- 4611686018427387906 0) -> 4611686018427387906) ((2751 . 5625) (- 4611686018427387902 4611686018427387901) -> 1) ((2752 . 5625) (- 4611686018427387902 4611686018427387902) -> 0) ((2753 . 5625) (- 4611686018427387902 4611686018427387903) -> -1) ((2754 . 5625) (- 4611686018427387902 4611686018427387904) -> -2) ((2755 . 5625) (- 4611686018427387902 4611686018427387905) -> -3) ((2756 . 5625) (- 4611686018427387903 4611686018427387901) -> 2) ((2757 . 5625) (- 4611686018427387903 4611686018427387902) -> 1) ((2758 . 5625) (- 4611686018427387903 4611686018427387903) -> 0) ((2759 . 5625) (- 4611686018427387903 4611686018427387904) -> -1) ((2760 . 5625) (- 4611686018427387903 4611686018427387905) -> -2) ((2761 . 5625) (- 4611686018427387904 4611686018427387901) -> 3) ((2762 . 5625) (- 4611686018427387904 4611686018427387902) -> 2) ((2763 . 5625) (- 4611686018427387904 4611686018427387903) -> 1) ((2764 . 5625) (- 4611686018427387904 4611686018427387904) -> 0) ((2765 . 5625) (- 4611686018427387904 4611686018427387905) -> -1) ((2766 . 5625) (- 4611686018427387905 4611686018427387901) -> 4) ((2767 . 5625) (- 4611686018427387905 4611686018427387902) -> 3) ((2768 . 5625) (- 4611686018427387905 4611686018427387903) -> 2) ((2769 . 5625) (- 4611686018427387905 4611686018427387904) -> 1) ((2770 . 5625) (- 4611686018427387905 4611686018427387905) -> 0) ((2771 . 5625) (- 4611686018427387906 4611686018427387901) -> 5) ((2772 . 5625) (- 4611686018427387906 4611686018427387902) -> 4) ((2773 . 5625) (- 4611686018427387906 4611686018427387903) -> 3) ((2774 . 5625) (- 4611686018427387906 4611686018427387904) -> 2) ((2775 . 5625) (- 4611686018427387906 4611686018427387905) -> 1) ((2776 . 5625) (- 4611686018427387902 -4611686018427387906) -> 9223372036854775808) ((2777 . 5625) (- 4611686018427387902 -4611686018427387905) -> 9223372036854775807) ((2778 . 5625) (- 4611686018427387902 -4611686018427387904) -> 9223372036854775806) ((2779 . 5625) (- 4611686018427387902 -4611686018427387903) -> 9223372036854775805) ((2780 . 5625) (- 4611686018427387902 -4611686018427387902) -> 9223372036854775804) ((2781 . 5625) (- 4611686018427387903 -4611686018427387906) -> 9223372036854775809) ((2782 . 5625) (- 4611686018427387903 -4611686018427387905) -> 9223372036854775808) ((2783 . 5625) (- 4611686018427387903 -4611686018427387904) -> 9223372036854775807) ((2784 . 5625) (- 4611686018427387903 -4611686018427387903) -> 9223372036854775806) ((2785 . 5625) (- 4611686018427387903 -4611686018427387902) -> 9223372036854775805) ((2786 . 5625) (- 4611686018427387904 -4611686018427387906) -> 9223372036854775810) ((2787 . 5625) (- 4611686018427387904 -4611686018427387905) -> 9223372036854775809) ((2788 . 5625) (- 4611686018427387904 -4611686018427387904) -> 9223372036854775808) ((2789 . 5625) (- 4611686018427387904 -4611686018427387903) -> 9223372036854775807) ((2790 . 5625) (- 4611686018427387904 -4611686018427387902) -> 9223372036854775806) ((2791 . 5625) (- 4611686018427387905 -4611686018427387906) -> 9223372036854775811) ((2792 . 5625) (- 4611686018427387905 -4611686018427387905) -> 9223372036854775810) ((2793 . 5625) (- 4611686018427387905 -4611686018427387904) -> 9223372036854775809) ((2794 . 5625) (- 4611686018427387905 -4611686018427387903) -> 9223372036854775808) ((2795 . 5625) (- 4611686018427387905 -4611686018427387902) -> 9223372036854775807) ((2796 . 5625) (- 4611686018427387906 -4611686018427387906) -> 9223372036854775812) ((2797 . 5625) (- 4611686018427387906 -4611686018427387905) -> 9223372036854775811) ((2798 . 5625) (- 4611686018427387906 -4611686018427387904) -> 9223372036854775810) ((2799 . 5625) (- 4611686018427387906 -4611686018427387903) -> 9223372036854775809) ((2800 . 5625) (- 4611686018427387906 -4611686018427387902) -> 9223372036854775808) ((2801 . 5625) (- 4611686018427387902 4611686018427387902) -> 0) ((2802 . 5625) (- 4611686018427387902 4611686018427387903) -> -1) ((2803 . 5625) (- 4611686018427387902 4611686018427387904) -> -2) ((2804 . 5625) (- 4611686018427387902 4611686018427387905) -> -3) ((2805 . 5625) (- 4611686018427387902 4611686018427387906) -> -4) ((2806 . 5625) (- 4611686018427387903 4611686018427387902) -> 1) ((2807 . 5625) (- 4611686018427387903 4611686018427387903) -> 0) ((2808 . 5625) (- 4611686018427387903 4611686018427387904) -> -1) ((2809 . 5625) (- 4611686018427387903 4611686018427387905) -> -2) ((2810 . 5625) (- 4611686018427387903 4611686018427387906) -> -3) ((2811 . 5625) (- 4611686018427387904 4611686018427387902) -> 2) ((2812 . 5625) (- 4611686018427387904 4611686018427387903) -> 1) ((2813 . 5625) (- 4611686018427387904 4611686018427387904) -> 0) ((2814 . 5625) (- 4611686018427387904 4611686018427387905) -> -1) ((2815 . 5625) (- 4611686018427387904 4611686018427387906) -> -2) ((2816 . 5625) (- 4611686018427387905 4611686018427387902) -> 3) ((2817 . 5625) (- 4611686018427387905 4611686018427387903) -> 2) ((2818 . 5625) (- 4611686018427387905 4611686018427387904) -> 1) ((2819 . 5625) (- 4611686018427387905 4611686018427387905) -> 0) ((2820 . 5625) (- 4611686018427387905 4611686018427387906) -> -1) ((2821 . 5625) (- 4611686018427387906 4611686018427387902) -> 4) ((2822 . 5625) (- 4611686018427387906 4611686018427387903) -> 3) ((2823 . 5625) (- 4611686018427387906 4611686018427387904) -> 2) ((2824 . 5625) (- 4611686018427387906 4611686018427387905) -> 1) ((2825 . 5625) (- 4611686018427387906 4611686018427387906) -> 0) ((2826 . 5625) (- 4611686018427387902 -4611686018427387907) -> 9223372036854775809) ((2827 . 5625) (- 4611686018427387902 -4611686018427387906) -> 9223372036854775808) ((2828 . 5625) (- 4611686018427387902 -4611686018427387905) -> 9223372036854775807) ((2829 . 5625) (- 4611686018427387902 -4611686018427387904) -> 9223372036854775806) ((2830 . 5625) (- 4611686018427387902 -4611686018427387903) -> 9223372036854775805) ((2831 . 5625) (- 4611686018427387903 -4611686018427387907) -> 9223372036854775810) ((2832 . 5625) (- 4611686018427387903 -4611686018427387906) -> 9223372036854775809) ((2833 . 5625) (- 4611686018427387903 -4611686018427387905) -> 9223372036854775808) ((2834 . 5625) (- 4611686018427387903 -4611686018427387904) -> 9223372036854775807) ((2835 . 5625) (- 4611686018427387903 -4611686018427387903) -> 9223372036854775806) ((2836 . 5625) (- 4611686018427387904 -4611686018427387907) -> 9223372036854775811) ((2837 . 5625) (- 4611686018427387904 -4611686018427387906) -> 9223372036854775810) ((2838 . 5625) (- 4611686018427387904 -4611686018427387905) -> 9223372036854775809) ((2839 . 5625) (- 4611686018427387904 -4611686018427387904) -> 9223372036854775808) ((2840 . 5625) (- 4611686018427387904 -4611686018427387903) -> 9223372036854775807) ((2841 . 5625) (- 4611686018427387905 -4611686018427387907) -> 9223372036854775812) ((2842 . 5625) (- 4611686018427387905 -4611686018427387906) -> 9223372036854775811) ((2843 . 5625) (- 4611686018427387905 -4611686018427387905) -> 9223372036854775810) ((2844 . 5625) (- 4611686018427387905 -4611686018427387904) -> 9223372036854775809) ((2845 . 5625) (- 4611686018427387905 -4611686018427387903) -> 9223372036854775808) ((2846 . 5625) (- 4611686018427387906 -4611686018427387907) -> 9223372036854775813) ((2847 . 5625) (- 4611686018427387906 -4611686018427387906) -> 9223372036854775812) ((2848 . 5625) (- 4611686018427387906 -4611686018427387905) -> 9223372036854775811) ((2849 . 5625) (- 4611686018427387906 -4611686018427387904) -> 9223372036854775810) ((2850 . 5625) (- 4611686018427387906 -4611686018427387903) -> 9223372036854775809) ((2851 . 5625) (- 4611686018427387902 1103515243) -> 4611686017323872659) ((2852 . 5625) (- 4611686018427387902 1103515244) -> 4611686017323872658) ((2853 . 5625) (- 4611686018427387902 1103515245) -> 4611686017323872657) ((2854 . 5625) (- 4611686018427387902 1103515246) -> 4611686017323872656) ((2855 . 5625) (- 4611686018427387902 1103515247) -> 4611686017323872655) ((2856 . 5625) (- 4611686018427387903 1103515243) -> 4611686017323872660) ((2857 . 5625) (- 4611686018427387903 1103515244) -> 4611686017323872659) ((2858 . 5625) (- 4611686018427387903 1103515245) -> 4611686017323872658) ((2859 . 5625) (- 4611686018427387903 1103515246) -> 4611686017323872657) ((2860 . 5625) (- 4611686018427387903 1103515247) -> 4611686017323872656) ((2861 . 5625) (- 4611686018427387904 1103515243) -> 4611686017323872661) ((2862 . 5625) (- 4611686018427387904 1103515244) -> 4611686017323872660) ((2863 . 5625) (- 4611686018427387904 1103515245) -> 4611686017323872659) ((2864 . 5625) (- 4611686018427387904 1103515246) -> 4611686017323872658) ((2865 . 5625) (- 4611686018427387904 1103515247) -> 4611686017323872657) ((2866 . 5625) (- 4611686018427387905 1103515243) -> 4611686017323872662) ((2867 . 5625) (- 4611686018427387905 1103515244) -> 4611686017323872661) ((2868 . 5625) (- 4611686018427387905 1103515245) -> 4611686017323872660) ((2869 . 5625) (- 4611686018427387905 1103515246) -> 4611686017323872659) ((2870 . 5625) (- 4611686018427387905 1103515247) -> 4611686017323872658) ((2871 . 5625) (- 4611686018427387906 1103515243) -> 4611686017323872663) ((2872 . 5625) (- 4611686018427387906 1103515244) -> 4611686017323872662) ((2873 . 5625) (- 4611686018427387906 1103515245) -> 4611686017323872661) ((2874 . 5625) (- 4611686018427387906 1103515246) -> 4611686017323872660) ((2875 . 5625) (- 4611686018427387906 1103515247) -> 4611686017323872659) ((2876 . 5625) (- 4611686018427387902 631629063) -> 4611686017795758839) ((2877 . 5625) (- 4611686018427387902 631629064) -> 4611686017795758838) ((2878 . 5625) (- 4611686018427387902 631629065) -> 4611686017795758837) ((2879 . 5625) (- 4611686018427387902 631629066) -> 4611686017795758836) ((2880 . 5625) (- 4611686018427387902 631629067) -> 4611686017795758835) ((2881 . 5625) (- 4611686018427387903 631629063) -> 4611686017795758840) ((2882 . 5625) (- 4611686018427387903 631629064) -> 4611686017795758839) ((2883 . 5625) (- 4611686018427387903 631629065) -> 4611686017795758838) ((2884 . 5625) (- 4611686018427387903 631629066) -> 4611686017795758837) ((2885 . 5625) (- 4611686018427387903 631629067) -> 4611686017795758836) ((2886 . 5625) (- 4611686018427387904 631629063) -> 4611686017795758841) ((2887 . 5625) (- 4611686018427387904 631629064) -> 4611686017795758840) ((2888 . 5625) (- 4611686018427387904 631629065) -> 4611686017795758839) ((2889 . 5625) (- 4611686018427387904 631629066) -> 4611686017795758838) ((2890 . 5625) (- 4611686018427387904 631629067) -> 4611686017795758837) ((2891 . 5625) (- 4611686018427387905 631629063) -> 4611686017795758842) ((2892 . 5625) (- 4611686018427387905 631629064) -> 4611686017795758841) ((2893 . 5625) (- 4611686018427387905 631629065) -> 4611686017795758840) ((2894 . 5625) (- 4611686018427387905 631629066) -> 4611686017795758839) ((2895 . 5625) (- 4611686018427387905 631629067) -> 4611686017795758838) ((2896 . 5625) (- 4611686018427387906 631629063) -> 4611686017795758843) ((2897 . 5625) (- 4611686018427387906 631629064) -> 4611686017795758842) ((2898 . 5625) (- 4611686018427387906 631629065) -> 4611686017795758841) ((2899 . 5625) (- 4611686018427387906 631629066) -> 4611686017795758840) ((2900 . 5625) (- 4611686018427387906 631629067) -> 4611686017795758839) ((2901 . 5625) (- 4611686018427387902 9007199254740990) -> 4602678819172646912) ((2902 . 5625) (- 4611686018427387902 9007199254740991) -> 4602678819172646911) ((2903 . 5625) (- 4611686018427387902 9007199254740992) -> 4602678819172646910) ((2904 . 5625) (- 4611686018427387902 9007199254740993) -> 4602678819172646909) ((2905 . 5625) (- 4611686018427387902 9007199254740994) -> 4602678819172646908) ((2906 . 5625) (- 4611686018427387903 9007199254740990) -> 4602678819172646913) ((2907 . 5625) (- 4611686018427387903 9007199254740991) -> 4602678819172646912) ((2908 . 5625) (- 4611686018427387903 9007199254740992) -> 4602678819172646911) ((2909 . 5625) (- 4611686018427387903 9007199254740993) -> 4602678819172646910) ((2910 . 5625) (- 4611686018427387903 9007199254740994) -> 4602678819172646909) ((2911 . 5625) (- 4611686018427387904 9007199254740990) -> 4602678819172646914) ((2912 . 5625) (- 4611686018427387904 9007199254740991) -> 4602678819172646913) ((2913 . 5625) (- 4611686018427387904 9007199254740992) -> 4602678819172646912) ((2914 . 5625) (- 4611686018427387904 9007199254740993) -> 4602678819172646911) ((2915 . 5625) (- 4611686018427387904 9007199254740994) -> 4602678819172646910) ((2916 . 5625) (- 4611686018427387905 9007199254740990) -> 4602678819172646915) ((2917 . 5625) (- 4611686018427387905 9007199254740991) -> 4602678819172646914) ((2918 . 5625) (- 4611686018427387905 9007199254740992) -> 4602678819172646913) ((2919 . 5625) (- 4611686018427387905 9007199254740993) -> 4602678819172646912) ((2920 . 5625) (- 4611686018427387905 9007199254740994) -> 4602678819172646911) ((2921 . 5625) (- 4611686018427387906 9007199254740990) -> 4602678819172646916) ((2922 . 5625) (- 4611686018427387906 9007199254740991) -> 4602678819172646915) ((2923 . 5625) (- 4611686018427387906 9007199254740992) -> 4602678819172646914) ((2924 . 5625) (- 4611686018427387906 9007199254740993) -> 4602678819172646913) ((2925 . 5625) (- 4611686018427387906 9007199254740994) -> 4602678819172646912) ((2926 . 5625) (- 4611686018427387902 -9007199254740994) -> 4620693217682128896) ((2927 . 5625) (- 4611686018427387902 -9007199254740993) -> 4620693217682128895) ((2928 . 5625) (- 4611686018427387902 -9007199254740992) -> 4620693217682128894) ((2929 . 5625) (- 4611686018427387902 -9007199254740991) -> 4620693217682128893) ((2930 . 5625) (- 4611686018427387902 -9007199254740990) -> 4620693217682128892) ((2931 . 5625) (- 4611686018427387903 -9007199254740994) -> 4620693217682128897) ((2932 . 5625) (- 4611686018427387903 -9007199254740993) -> 4620693217682128896) ((2933 . 5625) (- 4611686018427387903 -9007199254740992) -> 4620693217682128895) ((2934 . 5625) (- 4611686018427387903 -9007199254740991) -> 4620693217682128894) ((2935 . 5625) (- 4611686018427387903 -9007199254740990) -> 4620693217682128893) ((2936 . 5625) (- 4611686018427387904 -9007199254740994) -> 4620693217682128898) ((2937 . 5625) (- 4611686018427387904 -9007199254740993) -> 4620693217682128897) ((2938 . 5625) (- 4611686018427387904 -9007199254740992) -> 4620693217682128896) ((2939 . 5625) (- 4611686018427387904 -9007199254740991) -> 4620693217682128895) ((2940 . 5625) (- 4611686018427387904 -9007199254740990) -> 4620693217682128894) ((2941 . 5625) (- 4611686018427387905 -9007199254740994) -> 4620693217682128899) ((2942 . 5625) (- 4611686018427387905 -9007199254740993) -> 4620693217682128898) ((2943 . 5625) (- 4611686018427387905 -9007199254740992) -> 4620693217682128897) ((2944 . 5625) (- 4611686018427387905 -9007199254740991) -> 4620693217682128896) ((2945 . 5625) (- 4611686018427387905 -9007199254740990) -> 4620693217682128895) ((2946 . 5625) (- 4611686018427387906 -9007199254740994) -> 4620693217682128900) ((2947 . 5625) (- 4611686018427387906 -9007199254740993) -> 4620693217682128899) ((2948 . 5625) (- 4611686018427387906 -9007199254740992) -> 4620693217682128898) ((2949 . 5625) (- 4611686018427387906 -9007199254740991) -> 4620693217682128897) ((2950 . 5625) (- 4611686018427387906 -9007199254740990) -> 4620693217682128896) ((2951 . 5625) (- 4611686018427387902 12343) -> 4611686018427375559) ((2952 . 5625) (- 4611686018427387902 12344) -> 4611686018427375558) ((2953 . 5625) (- 4611686018427387902 12345) -> 4611686018427375557) ((2954 . 5625) (- 4611686018427387902 12346) -> 4611686018427375556) ((2955 . 5625) (- 4611686018427387902 12347) -> 4611686018427375555) ((2956 . 5625) (- 4611686018427387903 12343) -> 4611686018427375560) ((2957 . 5625) (- 4611686018427387903 12344) -> 4611686018427375559) ((2958 . 5625) (- 4611686018427387903 12345) -> 4611686018427375558) ((2959 . 5625) (- 4611686018427387903 12346) -> 4611686018427375557) ((2960 . 5625) (- 4611686018427387903 12347) -> 4611686018427375556) ((2961 . 5625) (- 4611686018427387904 12343) -> 4611686018427375561) ((2962 . 5625) (- 4611686018427387904 12344) -> 4611686018427375560) ((2963 . 5625) (- 4611686018427387904 12345) -> 4611686018427375559) ((2964 . 5625) (- 4611686018427387904 12346) -> 4611686018427375558) ((2965 . 5625) (- 4611686018427387904 12347) -> 4611686018427375557) ((2966 . 5625) (- 4611686018427387905 12343) -> 4611686018427375562) ((2967 . 5625) (- 4611686018427387905 12344) -> 4611686018427375561) ((2968 . 5625) (- 4611686018427387905 12345) -> 4611686018427375560) ((2969 . 5625) (- 4611686018427387905 12346) -> 4611686018427375559) ((2970 . 5625) (- 4611686018427387905 12347) -> 4611686018427375558) ((2971 . 5625) (- 4611686018427387906 12343) -> 4611686018427375563) ((2972 . 5625) (- 4611686018427387906 12344) -> 4611686018427375562) ((2973 . 5625) (- 4611686018427387906 12345) -> 4611686018427375561) ((2974 . 5625) (- 4611686018427387906 12346) -> 4611686018427375560) ((2975 . 5625) (- 4611686018427387906 12347) -> 4611686018427375559) ((2976 . 5625) (- 4611686018427387902 4294967294) -> 4611686014132420608) ((2977 . 5625) (- 4611686018427387902 4294967295) -> 4611686014132420607) ((2978 . 5625) (- 4611686018427387902 4294967296) -> 4611686014132420606) ((2979 . 5625) (- 4611686018427387902 4294967297) -> 4611686014132420605) ((2980 . 5625) (- 4611686018427387902 4294967298) -> 4611686014132420604) ((2981 . 5625) (- 4611686018427387903 4294967294) -> 4611686014132420609) ((2982 . 5625) (- 4611686018427387903 4294967295) -> 4611686014132420608) ((2983 . 5625) (- 4611686018427387903 4294967296) -> 4611686014132420607) ((2984 . 5625) (- 4611686018427387903 4294967297) -> 4611686014132420606) ((2985 . 5625) (- 4611686018427387903 4294967298) -> 4611686014132420605) ((2986 . 5625) (- 4611686018427387904 4294967294) -> 4611686014132420610) ((2987 . 5625) (- 4611686018427387904 4294967295) -> 4611686014132420609) ((2988 . 5625) (- 4611686018427387904 4294967296) -> 4611686014132420608) ((2989 . 5625) (- 4611686018427387904 4294967297) -> 4611686014132420607) ((2990 . 5625) (- 4611686018427387904 4294967298) -> 4611686014132420606) ((2991 . 5625) (- 4611686018427387905 4294967294) -> 4611686014132420611) ((2992 . 5625) (- 4611686018427387905 4294967295) -> 4611686014132420610) ((2993 . 5625) (- 4611686018427387905 4294967296) -> 4611686014132420609) ((2994 . 5625) (- 4611686018427387905 4294967297) -> 4611686014132420608) ((2995 . 5625) (- 4611686018427387905 4294967298) -> 4611686014132420607) ((2996 . 5625) (- 4611686018427387906 4294967294) -> 4611686014132420612) ((2997 . 5625) (- 4611686018427387906 4294967295) -> 4611686014132420611) ((2998 . 5625) (- 4611686018427387906 4294967296) -> 4611686014132420610) ((2999 . 5625) (- 4611686018427387906 4294967297) -> 4611686014132420609) ((3000 . 5625) (- 4611686018427387906 4294967298) -> 4611686014132420608) ((3001 . 5625) (- -4611686018427387907 -2) -> -4611686018427387905) ((3002 . 5625) (- -4611686018427387907 -1) -> -4611686018427387906) ((3003 . 5625) (- -4611686018427387907 0) -> -4611686018427387907) ((3004 . 5625) (- -4611686018427387907 1) -> -4611686018427387908) ((3005 . 5625) (- -4611686018427387907 2) -> -4611686018427387909) ((3006 . 5625) (- -4611686018427387906 -2) -> -4611686018427387904) ((3007 . 5625) (- -4611686018427387906 -1) -> -4611686018427387905) ((3008 . 5625) (- -4611686018427387906 0) -> -4611686018427387906) ((3009 . 5625) (- -4611686018427387906 1) -> -4611686018427387907) ((3010 . 5625) (- -4611686018427387906 2) -> -4611686018427387908) ((3011 . 5625) (- -4611686018427387905 -2) -> -4611686018427387903) ((3012 . 5625) (- -4611686018427387905 -1) -> -4611686018427387904) ((3013 . 5625) (- -4611686018427387905 0) -> -4611686018427387905) ((3014 . 5625) (- -4611686018427387905 1) -> -4611686018427387906) ((3015 . 5625) (- -4611686018427387905 2) -> -4611686018427387907) ((3016 . 5625) (- -4611686018427387904 -2) -> -4611686018427387902) ((3017 . 5625) (- -4611686018427387904 -1) -> -4611686018427387903) ((3018 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((3019 . 5625) (- -4611686018427387904 1) -> -4611686018427387905) ((3020 . 5625) (- -4611686018427387904 2) -> -4611686018427387906) ((3021 . 5625) (- -4611686018427387903 -2) -> -4611686018427387901) ((3022 . 5625) (- -4611686018427387903 -1) -> -4611686018427387902) ((3023 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((3024 . 5625) (- -4611686018427387903 1) -> -4611686018427387904) ((3025 . 5625) (- -4611686018427387903 2) -> -4611686018427387905) ((3026 . 5625) (- -4611686018427387907 -1) -> -4611686018427387906) ((3027 . 5625) (- -4611686018427387907 0) -> -4611686018427387907) ((3028 . 5625) (- -4611686018427387907 1) -> -4611686018427387908) ((3029 . 5625) (- -4611686018427387907 2) -> -4611686018427387909) ((3030 . 5625) (- -4611686018427387907 3) -> -4611686018427387910) ((3031 . 5625) (- -4611686018427387906 -1) -> -4611686018427387905) ((3032 . 5625) (- -4611686018427387906 0) -> -4611686018427387906) ((3033 . 5625) (- -4611686018427387906 1) -> -4611686018427387907) ((3034 . 5625) (- -4611686018427387906 2) -> -4611686018427387908) ((3035 . 5625) (- -4611686018427387906 3) -> -4611686018427387909) ((3036 . 5625) (- -4611686018427387905 -1) -> -4611686018427387904) ((3037 . 5625) (- -4611686018427387905 0) -> -4611686018427387905) ((3038 . 5625) (- -4611686018427387905 1) -> -4611686018427387906) ((3039 . 5625) (- -4611686018427387905 2) -> -4611686018427387907) ((3040 . 5625) (- -4611686018427387905 3) -> -4611686018427387908) ((3041 . 5625) (- -4611686018427387904 -1) -> -4611686018427387903) ((3042 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((3043 . 5625) (- -4611686018427387904 1) -> -4611686018427387905) ((3044 . 5625) (- -4611686018427387904 2) -> -4611686018427387906) ((3045 . 5625) (- -4611686018427387904 3) -> -4611686018427387907) ((3046 . 5625) (- -4611686018427387903 -1) -> -4611686018427387902) ((3047 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((3048 . 5625) (- -4611686018427387903 1) -> -4611686018427387904) ((3049 . 5625) (- -4611686018427387903 2) -> -4611686018427387905) ((3050 . 5625) (- -4611686018427387903 3) -> -4611686018427387906) ((3051 . 5625) (- -4611686018427387907 -3) -> -4611686018427387904) ((3052 . 5625) (- -4611686018427387907 -2) -> -4611686018427387905) ((3053 . 5625) (- -4611686018427387907 -1) -> -4611686018427387906) ((3054 . 5625) (- -4611686018427387907 0) -> -4611686018427387907) ((3055 . 5625) (- -4611686018427387907 1) -> -4611686018427387908) ((3056 . 5625) (- -4611686018427387906 -3) -> -4611686018427387903) ((3057 . 5625) (- -4611686018427387906 -2) -> -4611686018427387904) ((3058 . 5625) (- -4611686018427387906 -1) -> -4611686018427387905) ((3059 . 5625) (- -4611686018427387906 0) -> -4611686018427387906) ((3060 . 5625) (- -4611686018427387906 1) -> -4611686018427387907) ((3061 . 5625) (- -4611686018427387905 -3) -> -4611686018427387902) ((3062 . 5625) (- -4611686018427387905 -2) -> -4611686018427387903) ((3063 . 5625) (- -4611686018427387905 -1) -> -4611686018427387904) ((3064 . 5625) (- -4611686018427387905 0) -> -4611686018427387905) ((3065 . 5625) (- -4611686018427387905 1) -> -4611686018427387906) ((3066 . 5625) (- -4611686018427387904 -3) -> -4611686018427387901) ((3067 . 5625) (- -4611686018427387904 -2) -> -4611686018427387902) ((3068 . 5625) (- -4611686018427387904 -1) -> -4611686018427387903) ((3069 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((3070 . 5625) (- -4611686018427387904 1) -> -4611686018427387905) ((3071 . 5625) (- -4611686018427387903 -3) -> -4611686018427387900) ((3072 . 5625) (- -4611686018427387903 -2) -> -4611686018427387901) ((3073 . 5625) (- -4611686018427387903 -1) -> -4611686018427387902) ((3074 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((3075 . 5625) (- -4611686018427387903 1) -> -4611686018427387904) ((3076 . 5625) (- -4611686018427387907 0) -> -4611686018427387907) ((3077 . 5625) (- -4611686018427387907 1) -> -4611686018427387908) ((3078 . 5625) (- -4611686018427387907 2) -> -4611686018427387909) ((3079 . 5625) (- -4611686018427387907 3) -> -4611686018427387910) ((3080 . 5625) (- -4611686018427387907 4) -> -4611686018427387911) ((3081 . 5625) (- -4611686018427387906 0) -> -4611686018427387906) ((3082 . 5625) (- -4611686018427387906 1) -> -4611686018427387907) ((3083 . 5625) (- -4611686018427387906 2) -> -4611686018427387908) ((3084 . 5625) (- -4611686018427387906 3) -> -4611686018427387909) ((3085 . 5625) (- -4611686018427387906 4) -> -4611686018427387910) ((3086 . 5625) (- -4611686018427387905 0) -> -4611686018427387905) ((3087 . 5625) (- -4611686018427387905 1) -> -4611686018427387906) ((3088 . 5625) (- -4611686018427387905 2) -> -4611686018427387907) ((3089 . 5625) (- -4611686018427387905 3) -> -4611686018427387908) ((3090 . 5625) (- -4611686018427387905 4) -> -4611686018427387909) ((3091 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((3092 . 5625) (- -4611686018427387904 1) -> -4611686018427387905) ((3093 . 5625) (- -4611686018427387904 2) -> -4611686018427387906) ((3094 . 5625) (- -4611686018427387904 3) -> -4611686018427387907) ((3095 . 5625) (- -4611686018427387904 4) -> -4611686018427387908) ((3096 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((3097 . 5625) (- -4611686018427387903 1) -> -4611686018427387904) ((3098 . 5625) (- -4611686018427387903 2) -> -4611686018427387905) ((3099 . 5625) (- -4611686018427387903 3) -> -4611686018427387906) ((3100 . 5625) (- -4611686018427387903 4) -> -4611686018427387907) ((3101 . 5625) (- -4611686018427387907 -4) -> -4611686018427387903) ((3102 . 5625) (- -4611686018427387907 -3) -> -4611686018427387904) ((3103 . 5625) (- -4611686018427387907 -2) -> -4611686018427387905) ((3104 . 5625) (- -4611686018427387907 -1) -> -4611686018427387906) ((3105 . 5625) (- -4611686018427387907 0) -> -4611686018427387907) ((3106 . 5625) (- -4611686018427387906 -4) -> -4611686018427387902) ((3107 . 5625) (- -4611686018427387906 -3) -> -4611686018427387903) ((3108 . 5625) (- -4611686018427387906 -2) -> -4611686018427387904) ((3109 . 5625) (- -4611686018427387906 -1) -> -4611686018427387905) ((3110 . 5625) (- -4611686018427387906 0) -> -4611686018427387906) ((3111 . 5625) (- -4611686018427387905 -4) -> -4611686018427387901) ((3112 . 5625) (- -4611686018427387905 -3) -> -4611686018427387902) ((3113 . 5625) (- -4611686018427387905 -2) -> -4611686018427387903) ((3114 . 5625) (- -4611686018427387905 -1) -> -4611686018427387904) ((3115 . 5625) (- -4611686018427387905 0) -> -4611686018427387905) ((3116 . 5625) (- -4611686018427387904 -4) -> -4611686018427387900) ((3117 . 5625) (- -4611686018427387904 -3) -> -4611686018427387901) ((3118 . 5625) (- -4611686018427387904 -2) -> -4611686018427387902) ((3119 . 5625) (- -4611686018427387904 -1) -> -4611686018427387903) ((3120 . 5625) (- -4611686018427387904 0) -> -4611686018427387904) ((3121 . 5625) (- -4611686018427387903 -4) -> -4611686018427387899) ((3122 . 5625) (- -4611686018427387903 -3) -> -4611686018427387900) ((3123 . 5625) (- -4611686018427387903 -2) -> -4611686018427387901) ((3124 . 5625) (- -4611686018427387903 -1) -> -4611686018427387902) ((3125 . 5625) (- -4611686018427387903 0) -> -4611686018427387903) ((3126 . 5625) (- -4611686018427387907 4611686018427387901) -> -9223372036854775808) ((3127 . 5625) (- -4611686018427387907 4611686018427387902) -> -9223372036854775809) ((3128 . 5625) (- -4611686018427387907 4611686018427387903) -> -9223372036854775810) ((3129 . 5625) (- -4611686018427387907 4611686018427387904) -> -9223372036854775811) ((3130 . 5625) (- -4611686018427387907 4611686018427387905) -> -9223372036854775812) ((3131 . 5625) (- -4611686018427387906 4611686018427387901) -> -9223372036854775807) ((3132 . 5625) (- -4611686018427387906 4611686018427387902) -> -9223372036854775808) ((3133 . 5625) (- -4611686018427387906 4611686018427387903) -> -9223372036854775809) ((3134 . 5625) (- -4611686018427387906 4611686018427387904) -> -9223372036854775810) ((3135 . 5625) (- -4611686018427387906 4611686018427387905) -> -9223372036854775811) ((3136 . 5625) (- -4611686018427387905 4611686018427387901) -> -9223372036854775806) ((3137 . 5625) (- -4611686018427387905 4611686018427387902) -> -9223372036854775807) ((3138 . 5625) (- -4611686018427387905 4611686018427387903) -> -9223372036854775808) ((3139 . 5625) (- -4611686018427387905 4611686018427387904) -> -9223372036854775809) ((3140 . 5625) (- -4611686018427387905 4611686018427387905) -> -9223372036854775810) ((3141 . 5625) (- -4611686018427387904 4611686018427387901) -> -9223372036854775805) ((3142 . 5625) (- -4611686018427387904 4611686018427387902) -> -9223372036854775806) ((3143 . 5625) (- -4611686018427387904 4611686018427387903) -> -9223372036854775807) ((3144 . 5625) (- -4611686018427387904 4611686018427387904) -> -9223372036854775808) ((3145 . 5625) (- -4611686018427387904 4611686018427387905) -> -9223372036854775809) ((3146 . 5625) (- -4611686018427387903 4611686018427387901) -> -9223372036854775804) ((3147 . 5625) (- -4611686018427387903 4611686018427387902) -> -9223372036854775805) ((3148 . 5625) (- -4611686018427387903 4611686018427387903) -> -9223372036854775806) ((3149 . 5625) (- -4611686018427387903 4611686018427387904) -> -9223372036854775807) ((3150 . 5625) (- -4611686018427387903 4611686018427387905) -> -9223372036854775808) ((3151 . 5625) (- -4611686018427387907 -4611686018427387906) -> -1) ((3152 . 5625) (- -4611686018427387907 -4611686018427387905) -> -2) ((3153 . 5625) (- -4611686018427387907 -4611686018427387904) -> -3) ((3154 . 5625) (- -4611686018427387907 -4611686018427387903) -> -4) ((3155 . 5625) (- -4611686018427387907 -4611686018427387902) -> -5) ((3156 . 5625) (- -4611686018427387906 -4611686018427387906) -> 0) ((3157 . 5625) (- -4611686018427387906 -4611686018427387905) -> -1) ((3158 . 5625) (- -4611686018427387906 -4611686018427387904) -> -2) ((3159 . 5625) (- -4611686018427387906 -4611686018427387903) -> -3) ((3160 . 5625) (- -4611686018427387906 -4611686018427387902) -> -4) ((3161 . 5625) (- -4611686018427387905 -4611686018427387906) -> 1) ((3162 . 5625) (- -4611686018427387905 -4611686018427387905) -> 0) ((3163 . 5625) (- -4611686018427387905 -4611686018427387904) -> -1) ((3164 . 5625) (- -4611686018427387905 -4611686018427387903) -> -2) ((3165 . 5625) (- -4611686018427387905 -4611686018427387902) -> -3) ((3166 . 5625) (- -4611686018427387904 -4611686018427387906) -> 2) ((3167 . 5625) (- -4611686018427387904 -4611686018427387905) -> 1) ((3168 . 5625) (- -4611686018427387904 -4611686018427387904) -> 0) ((3169 . 5625) (- -4611686018427387904 -4611686018427387903) -> -1) ((3170 . 5625) (- -4611686018427387904 -4611686018427387902) -> -2) ((3171 . 5625) (- -4611686018427387903 -4611686018427387906) -> 3) ((3172 . 5625) (- -4611686018427387903 -4611686018427387905) -> 2) ((3173 . 5625) (- -4611686018427387903 -4611686018427387904) -> 1) ((3174 . 5625) (- -4611686018427387903 -4611686018427387903) -> 0) ((3175 . 5625) (- -4611686018427387903 -4611686018427387902) -> -1) ((3176 . 5625) (- -4611686018427387907 4611686018427387902) -> -9223372036854775809) ((3177 . 5625) (- -4611686018427387907 4611686018427387903) -> -9223372036854775810) ((3178 . 5625) (- -4611686018427387907 4611686018427387904) -> -9223372036854775811) ((3179 . 5625) (- -4611686018427387907 4611686018427387905) -> -9223372036854775812) ((3180 . 5625) (- -4611686018427387907 4611686018427387906) -> -9223372036854775813) ((3181 . 5625) (- -4611686018427387906 4611686018427387902) -> -9223372036854775808) ((3182 . 5625) (- -4611686018427387906 4611686018427387903) -> -9223372036854775809) ((3183 . 5625) (- -4611686018427387906 4611686018427387904) -> -9223372036854775810) ((3184 . 5625) (- -4611686018427387906 4611686018427387905) -> -9223372036854775811) ((3185 . 5625) (- -4611686018427387906 4611686018427387906) -> -9223372036854775812) ((3186 . 5625) (- -4611686018427387905 4611686018427387902) -> -9223372036854775807) ((3187 . 5625) (- -4611686018427387905 4611686018427387903) -> -9223372036854775808) ((3188 . 5625) (- -4611686018427387905 4611686018427387904) -> -9223372036854775809) ((3189 . 5625) (- -4611686018427387905 4611686018427387905) -> -9223372036854775810) ((3190 . 5625) (- -4611686018427387905 4611686018427387906) -> -9223372036854775811) ((3191 . 5625) (- -4611686018427387904 4611686018427387902) -> -9223372036854775806) ((3192 . 5625) (- -4611686018427387904 4611686018427387903) -> -9223372036854775807) ((3193 . 5625) (- -4611686018427387904 4611686018427387904) -> -9223372036854775808) ((3194 . 5625) (- -4611686018427387904 4611686018427387905) -> -9223372036854775809) ((3195 . 5625) (- -4611686018427387904 4611686018427387906) -> -9223372036854775810) ((3196 . 5625) (- -4611686018427387903 4611686018427387902) -> -9223372036854775805) ((3197 . 5625) (- -4611686018427387903 4611686018427387903) -> -9223372036854775806) ((3198 . 5625) (- -4611686018427387903 4611686018427387904) -> -9223372036854775807) ((3199 . 5625) (- -4611686018427387903 4611686018427387905) -> -9223372036854775808) ((3200 . 5625) (- -4611686018427387903 4611686018427387906) -> -9223372036854775809) ((3201 . 5625) (- -4611686018427387907 -4611686018427387907) -> 0) ((3202 . 5625) (- -4611686018427387907 -4611686018427387906) -> -1) ((3203 . 5625) (- -4611686018427387907 -4611686018427387905) -> -2) ((3204 . 5625) (- -4611686018427387907 -4611686018427387904) -> -3) ((3205 . 5625) (- -4611686018427387907 -4611686018427387903) -> -4) ((3206 . 5625) (- -4611686018427387906 -4611686018427387907) -> 1) ((3207 . 5625) (- -4611686018427387906 -4611686018427387906) -> 0) ((3208 . 5625) (- -4611686018427387906 -4611686018427387905) -> -1) ((3209 . 5625) (- -4611686018427387906 -4611686018427387904) -> -2) ((3210 . 5625) (- -4611686018427387906 -4611686018427387903) -> -3) ((3211 . 5625) (- -4611686018427387905 -4611686018427387907) -> 2) ((3212 . 5625) (- -4611686018427387905 -4611686018427387906) -> 1) ((3213 . 5625) (- -4611686018427387905 -4611686018427387905) -> 0) ((3214 . 5625) (- -4611686018427387905 -4611686018427387904) -> -1) ((3215 . 5625) (- -4611686018427387905 -4611686018427387903) -> -2) ((3216 . 5625) (- -4611686018427387904 -4611686018427387907) -> 3) ((3217 . 5625) (- -4611686018427387904 -4611686018427387906) -> 2) ((3218 . 5625) (- -4611686018427387904 -4611686018427387905) -> 1) ((3219 . 5625) (- -4611686018427387904 -4611686018427387904) -> 0) ((3220 . 5625) (- -4611686018427387904 -4611686018427387903) -> -1) ((3221 . 5625) (- -4611686018427387903 -4611686018427387907) -> 4) ((3222 . 5625) (- -4611686018427387903 -4611686018427387906) -> 3) ((3223 . 5625) (- -4611686018427387903 -4611686018427387905) -> 2) ((3224 . 5625) (- -4611686018427387903 -4611686018427387904) -> 1) ((3225 . 5625) (- -4611686018427387903 -4611686018427387903) -> 0) ((3226 . 5625) (- -4611686018427387907 1103515243) -> -4611686019530903150) ((3227 . 5625) (- -4611686018427387907 1103515244) -> -4611686019530903151) ((3228 . 5625) (- -4611686018427387907 1103515245) -> -4611686019530903152) ((3229 . 5625) (- -4611686018427387907 1103515246) -> -4611686019530903153) ((3230 . 5625) (- -4611686018427387907 1103515247) -> -4611686019530903154) ((3231 . 5625) (- -4611686018427387906 1103515243) -> -4611686019530903149) ((3232 . 5625) (- -4611686018427387906 1103515244) -> -4611686019530903150) ((3233 . 5625) (- -4611686018427387906 1103515245) -> -4611686019530903151) ((3234 . 5625) (- -4611686018427387906 1103515246) -> -4611686019530903152) ((3235 . 5625) (- -4611686018427387906 1103515247) -> -4611686019530903153) ((3236 . 5625) (- -4611686018427387905 1103515243) -> -4611686019530903148) ((3237 . 5625) (- -4611686018427387905 1103515244) -> -4611686019530903149) ((3238 . 5625) (- -4611686018427387905 1103515245) -> -4611686019530903150) ((3239 . 5625) (- -4611686018427387905 1103515246) -> -4611686019530903151) ((3240 . 5625) (- -4611686018427387905 1103515247) -> -4611686019530903152) ((3241 . 5625) (- -4611686018427387904 1103515243) -> -4611686019530903147) ((3242 . 5625) (- -4611686018427387904 1103515244) -> -4611686019530903148) ((3243 . 5625) (- -4611686018427387904 1103515245) -> -4611686019530903149) ((3244 . 5625) (- -4611686018427387904 1103515246) -> -4611686019530903150) ((3245 . 5625) (- -4611686018427387904 1103515247) -> -4611686019530903151) ((3246 . 5625) (- -4611686018427387903 1103515243) -> -4611686019530903146) ((3247 . 5625) (- -4611686018427387903 1103515244) -> -4611686019530903147) ((3248 . 5625) (- -4611686018427387903 1103515245) -> -4611686019530903148) ((3249 . 5625) (- -4611686018427387903 1103515246) -> -4611686019530903149) ((3250 . 5625) (- -4611686018427387903 1103515247) -> -4611686019530903150) ((3251 . 5625) (- -4611686018427387907 631629063) -> -4611686019059016970) ((3252 . 5625) (- -4611686018427387907 631629064) -> -4611686019059016971) ((3253 . 5625) (- -4611686018427387907 631629065) -> -4611686019059016972) ((3254 . 5625) (- -4611686018427387907 631629066) -> -4611686019059016973) ((3255 . 5625) (- -4611686018427387907 631629067) -> -4611686019059016974) ((3256 . 5625) (- -4611686018427387906 631629063) -> -4611686019059016969) ((3257 . 5625) (- -4611686018427387906 631629064) -> -4611686019059016970) ((3258 . 5625) (- -4611686018427387906 631629065) -> -4611686019059016971) ((3259 . 5625) (- -4611686018427387906 631629066) -> -4611686019059016972) ((3260 . 5625) (- -4611686018427387906 631629067) -> -4611686019059016973) ((3261 . 5625) (- -4611686018427387905 631629063) -> -4611686019059016968) ((3262 . 5625) (- -4611686018427387905 631629064) -> -4611686019059016969) ((3263 . 5625) (- -4611686018427387905 631629065) -> -4611686019059016970) ((3264 . 5625) (- -4611686018427387905 631629066) -> -4611686019059016971) ((3265 . 5625) (- -4611686018427387905 631629067) -> -4611686019059016972) ((3266 . 5625) (- -4611686018427387904 631629063) -> -4611686019059016967) ((3267 . 5625) (- -4611686018427387904 631629064) -> -4611686019059016968) ((3268 . 5625) (- -4611686018427387904 631629065) -> -4611686019059016969) ((3269 . 5625) (- -4611686018427387904 631629066) -> -4611686019059016970) ((3270 . 5625) (- -4611686018427387904 631629067) -> -4611686019059016971) ((3271 . 5625) (- -4611686018427387903 631629063) -> -4611686019059016966) ((3272 . 5625) (- -4611686018427387903 631629064) -> -4611686019059016967) ((3273 . 5625) (- -4611686018427387903 631629065) -> -4611686019059016968) ((3274 . 5625) (- -4611686018427387903 631629066) -> -4611686019059016969) ((3275 . 5625) (- -4611686018427387903 631629067) -> -4611686019059016970) ((3276 . 5625) (- -4611686018427387907 9007199254740990) -> -4620693217682128897) ((3277 . 5625) (- -4611686018427387907 9007199254740991) -> -4620693217682128898) ((3278 . 5625) (- -4611686018427387907 9007199254740992) -> -4620693217682128899) ((3279 . 5625) (- -4611686018427387907 9007199254740993) -> -4620693217682128900) ((3280 . 5625) (- -4611686018427387907 9007199254740994) -> -4620693217682128901) ((3281 . 5625) (- -4611686018427387906 9007199254740990) -> -4620693217682128896) ((3282 . 5625) (- -4611686018427387906 9007199254740991) -> -4620693217682128897) ((3283 . 5625) (- -4611686018427387906 9007199254740992) -> -4620693217682128898) ((3284 . 5625) (- -4611686018427387906 9007199254740993) -> -4620693217682128899) ((3285 . 5625) (- -4611686018427387906 9007199254740994) -> -4620693217682128900) ((3286 . 5625) (- -4611686018427387905 9007199254740990) -> -4620693217682128895) ((3287 . 5625) (- -4611686018427387905 9007199254740991) -> -4620693217682128896) ((3288 . 5625) (- -4611686018427387905 9007199254740992) -> -4620693217682128897) ((3289 . 5625) (- -4611686018427387905 9007199254740993) -> -4620693217682128898) ((3290 . 5625) (- -4611686018427387905 9007199254740994) -> -4620693217682128899) ((3291 . 5625) (- -4611686018427387904 9007199254740990) -> -4620693217682128894) ((3292 . 5625) (- -4611686018427387904 9007199254740991) -> -4620693217682128895) ((3293 . 5625) (- -4611686018427387904 9007199254740992) -> -4620693217682128896) ((3294 . 5625) (- -4611686018427387904 9007199254740993) -> -4620693217682128897) ((3295 . 5625) (- -4611686018427387904 9007199254740994) -> -4620693217682128898) ((3296 . 5625) (- -4611686018427387903 9007199254740990) -> -4620693217682128893) ((3297 . 5625) (- -4611686018427387903 9007199254740991) -> -4620693217682128894) ((3298 . 5625) (- -4611686018427387903 9007199254740992) -> -4620693217682128895) ((3299 . 5625) (- -4611686018427387903 9007199254740993) -> -4620693217682128896) ((3300 . 5625) (- -4611686018427387903 9007199254740994) -> -4620693217682128897) ((3301 . 5625) (- -4611686018427387907 -9007199254740994) -> -4602678819172646913) ((3302 . 5625) (- -4611686018427387907 -9007199254740993) -> -4602678819172646914) ((3303 . 5625) (- -4611686018427387907 -9007199254740992) -> -4602678819172646915) ((3304 . 5625) (- -4611686018427387907 -9007199254740991) -> -4602678819172646916) ((3305 . 5625) (- -4611686018427387907 -9007199254740990) -> -4602678819172646917) ((3306 . 5625) (- -4611686018427387906 -9007199254740994) -> -4602678819172646912) ((3307 . 5625) (- -4611686018427387906 -9007199254740993) -> -4602678819172646913) ((3308 . 5625) (- -4611686018427387906 -9007199254740992) -> -4602678819172646914) ((3309 . 5625) (- -4611686018427387906 -9007199254740991) -> -4602678819172646915) ((3310 . 5625) (- -4611686018427387906 -9007199254740990) -> -4602678819172646916) ((3311 . 5625) (- -4611686018427387905 -9007199254740994) -> -4602678819172646911) ((3312 . 5625) (- -4611686018427387905 -9007199254740993) -> -4602678819172646912) ((3313 . 5625) (- -4611686018427387905 -9007199254740992) -> -4602678819172646913) ((3314 . 5625) (- -4611686018427387905 -9007199254740991) -> -4602678819172646914) ((3315 . 5625) (- -4611686018427387905 -9007199254740990) -> -4602678819172646915) ((3316 . 5625) (- -4611686018427387904 -9007199254740994) -> -4602678819172646910) ((3317 . 5625) (- -4611686018427387904 -9007199254740993) -> -4602678819172646911) ((3318 . 5625) (- -4611686018427387904 -9007199254740992) -> -4602678819172646912) ((3319 . 5625) (- -4611686018427387904 -9007199254740991) -> -4602678819172646913) ((3320 . 5625) (- -4611686018427387904 -9007199254740990) -> -4602678819172646914) ((3321 . 5625) (- -4611686018427387903 -9007199254740994) -> -4602678819172646909) ((3322 . 5625) (- -4611686018427387903 -9007199254740993) -> -4602678819172646910) ((3323 . 5625) (- -4611686018427387903 -9007199254740992) -> -4602678819172646911) ((3324 . 5625) (- -4611686018427387903 -9007199254740991) -> -4602678819172646912) ((3325 . 5625) (- -4611686018427387903 -9007199254740990) -> -4602678819172646913) ((3326 . 5625) (- -4611686018427387907 12343) -> -4611686018427400250) ((3327 . 5625) (- -4611686018427387907 12344) -> -4611686018427400251) ((3328 . 5625) (- -4611686018427387907 12345) -> -4611686018427400252) ((3329 . 5625) (- -4611686018427387907 12346) -> -4611686018427400253) ((3330 . 5625) (- -4611686018427387907 12347) -> -4611686018427400254) ((3331 . 5625) (- -4611686018427387906 12343) -> -4611686018427400249) ((3332 . 5625) (- -4611686018427387906 12344) -> -4611686018427400250) ((3333 . 5625) (- -4611686018427387906 12345) -> -4611686018427400251) ((3334 . 5625) (- -4611686018427387906 12346) -> -4611686018427400252) ((3335 . 5625) (- -4611686018427387906 12347) -> -4611686018427400253) ((3336 . 5625) (- -4611686018427387905 12343) -> -4611686018427400248) ((3337 . 5625) (- -4611686018427387905 12344) -> -4611686018427400249) ((3338 . 5625) (- -4611686018427387905 12345) -> -4611686018427400250) ((3339 . 5625) (- -4611686018427387905 12346) -> -4611686018427400251) ((3340 . 5625) (- -4611686018427387905 12347) -> -4611686018427400252) ((3341 . 5625) (- -4611686018427387904 12343) -> -4611686018427400247) ((3342 . 5625) (- -4611686018427387904 12344) -> -4611686018427400248) ((3343 . 5625) (- -4611686018427387904 12345) -> -4611686018427400249) ((3344 . 5625) (- -4611686018427387904 12346) -> -4611686018427400250) ((3345 . 5625) (- -4611686018427387904 12347) -> -4611686018427400251) ((3346 . 5625) (- -4611686018427387903 12343) -> -4611686018427400246) ((3347 . 5625) (- -4611686018427387903 12344) -> -4611686018427400247) ((3348 . 5625) (- -4611686018427387903 12345) -> -4611686018427400248) ((3349 . 5625) (- -4611686018427387903 12346) -> -4611686018427400249) ((3350 . 5625) (- -4611686018427387903 12347) -> -4611686018427400250) ((3351 . 5625) (- -4611686018427387907 4294967294) -> -4611686022722355201) ((3352 . 5625) (- -4611686018427387907 4294967295) -> -4611686022722355202) ((3353 . 5625) (- -4611686018427387907 4294967296) -> -4611686022722355203) ((3354 . 5625) (- -4611686018427387907 4294967297) -> -4611686022722355204) ((3355 . 5625) (- -4611686018427387907 4294967298) -> -4611686022722355205) ((3356 . 5625) (- -4611686018427387906 4294967294) -> -4611686022722355200) ((3357 . 5625) (- -4611686018427387906 4294967295) -> -4611686022722355201) ((3358 . 5625) (- -4611686018427387906 4294967296) -> -4611686022722355202) ((3359 . 5625) (- -4611686018427387906 4294967297) -> -4611686022722355203) ((3360 . 5625) (- -4611686018427387906 4294967298) -> -4611686022722355204) ((3361 . 5625) (- -4611686018427387905 4294967294) -> -4611686022722355199) ((3362 . 5625) (- -4611686018427387905 4294967295) -> -4611686022722355200) ((3363 . 5625) (- -4611686018427387905 4294967296) -> -4611686022722355201) ((3364 . 5625) (- -4611686018427387905 4294967297) -> -4611686022722355202) ((3365 . 5625) (- -4611686018427387905 4294967298) -> -4611686022722355203) ((3366 . 5625) (- -4611686018427387904 4294967294) -> -4611686022722355198) ((3367 . 5625) (- -4611686018427387904 4294967295) -> -4611686022722355199) ((3368 . 5625) (- -4611686018427387904 4294967296) -> -4611686022722355200) ((3369 . 5625) (- -4611686018427387904 4294967297) -> -4611686022722355201) ((3370 . 5625) (- -4611686018427387904 4294967298) -> -4611686022722355202) ((3371 . 5625) (- -4611686018427387903 4294967294) -> -4611686022722355197) ((3372 . 5625) (- -4611686018427387903 4294967295) -> -4611686022722355198) ((3373 . 5625) (- -4611686018427387903 4294967296) -> -4611686022722355199) ((3374 . 5625) (- -4611686018427387903 4294967297) -> -4611686022722355200) ((3375 . 5625) (- -4611686018427387903 4294967298) -> -4611686022722355201) ((3376 . 5625) (- 1103515243 -2) -> 1103515245) ((3377 . 5625) (- 1103515243 -1) -> 1103515244) ((3378 . 5625) (- 1103515243 0) -> 1103515243) ((3379 . 5625) (- 1103515243 1) -> 1103515242) ((3380 . 5625) (- 1103515243 2) -> 1103515241) ((3381 . 5625) (- 1103515244 -2) -> 1103515246) ((3382 . 5625) (- 1103515244 -1) -> 1103515245) ((3383 . 5625) (- 1103515244 0) -> 1103515244) ((3384 . 5625) (- 1103515244 1) -> 1103515243) ((3385 . 5625) (- 1103515244 2) -> 1103515242) ((3386 . 5625) (- 1103515245 -2) -> 1103515247) ((3387 . 5625) (- 1103515245 -1) -> 1103515246) ((3388 . 5625) (- 1103515245 0) -> 1103515245) ((3389 . 5625) (- 1103515245 1) -> 1103515244) ((3390 . 5625) (- 1103515245 2) -> 1103515243) ((3391 . 5625) (- 1103515246 -2) -> 1103515248) ((3392 . 5625) (- 1103515246 -1) -> 1103515247) ((3393 . 5625) (- 1103515246 0) -> 1103515246) ((3394 . 5625) (- 1103515246 1) -> 1103515245) ((3395 . 5625) (- 1103515246 2) -> 1103515244) ((3396 . 5625) (- 1103515247 -2) -> 1103515249) ((3397 . 5625) (- 1103515247 -1) -> 1103515248) ((3398 . 5625) (- 1103515247 0) -> 1103515247) ((3399 . 5625) (- 1103515247 1) -> 1103515246) ((3400 . 5625) (- 1103515247 2) -> 1103515245) ((3401 . 5625) (- 1103515243 -1) -> 1103515244) ((3402 . 5625) (- 1103515243 0) -> 1103515243) ((3403 . 5625) (- 1103515243 1) -> 1103515242) ((3404 . 5625) (- 1103515243 2) -> 1103515241) ((3405 . 5625) (- 1103515243 3) -> 1103515240) ((3406 . 5625) (- 1103515244 -1) -> 1103515245) ((3407 . 5625) (- 1103515244 0) -> 1103515244) ((3408 . 5625) (- 1103515244 1) -> 1103515243) ((3409 . 5625) (- 1103515244 2) -> 1103515242) ((3410 . 5625) (- 1103515244 3) -> 1103515241) ((3411 . 5625) (- 1103515245 -1) -> 1103515246) ((3412 . 5625) (- 1103515245 0) -> 1103515245) ((3413 . 5625) (- 1103515245 1) -> 1103515244) ((3414 . 5625) (- 1103515245 2) -> 1103515243) ((3415 . 5625) (- 1103515245 3) -> 1103515242) ((3416 . 5625) (- 1103515246 -1) -> 1103515247) ((3417 . 5625) (- 1103515246 0) -> 1103515246) ((3418 . 5625) (- 1103515246 1) -> 1103515245) ((3419 . 5625) (- 1103515246 2) -> 1103515244) ((3420 . 5625) (- 1103515246 3) -> 1103515243) ((3421 . 5625) (- 1103515247 -1) -> 1103515248) ((3422 . 5625) (- 1103515247 0) -> 1103515247) ((3423 . 5625) (- 1103515247 1) -> 1103515246) ((3424 . 5625) (- 1103515247 2) -> 1103515245) ((3425 . 5625) (- 1103515247 3) -> 1103515244) ((3426 . 5625) (- 1103515243 -3) -> 1103515246) ((3427 . 5625) (- 1103515243 -2) -> 1103515245) ((3428 . 5625) (- 1103515243 -1) -> 1103515244) ((3429 . 5625) (- 1103515243 0) -> 1103515243) ((3430 . 5625) (- 1103515243 1) -> 1103515242) ((3431 . 5625) (- 1103515244 -3) -> 1103515247) ((3432 . 5625) (- 1103515244 -2) -> 1103515246) ((3433 . 5625) (- 1103515244 -1) -> 1103515245) ((3434 . 5625) (- 1103515244 0) -> 1103515244) ((3435 . 5625) (- 1103515244 1) -> 1103515243) ((3436 . 5625) (- 1103515245 -3) -> 1103515248) ((3437 . 5625) (- 1103515245 -2) -> 1103515247) ((3438 . 5625) (- 1103515245 -1) -> 1103515246) ((3439 . 5625) (- 1103515245 0) -> 1103515245) ((3440 . 5625) (- 1103515245 1) -> 1103515244) ((3441 . 5625) (- 1103515246 -3) -> 1103515249) ((3442 . 5625) (- 1103515246 -2) -> 1103515248) ((3443 . 5625) (- 1103515246 -1) -> 1103515247) ((3444 . 5625) (- 1103515246 0) -> 1103515246) ((3445 . 5625) (- 1103515246 1) -> 1103515245) ((3446 . 5625) (- 1103515247 -3) -> 1103515250) ((3447 . 5625) (- 1103515247 -2) -> 1103515249) ((3448 . 5625) (- 1103515247 -1) -> 1103515248) ((3449 . 5625) (- 1103515247 0) -> 1103515247) ((3450 . 5625) (- 1103515247 1) -> 1103515246) ((3451 . 5625) (- 1103515243 0) -> 1103515243) ((3452 . 5625) (- 1103515243 1) -> 1103515242) ((3453 . 5625) (- 1103515243 2) -> 1103515241) ((3454 . 5625) (- 1103515243 3) -> 1103515240) ((3455 . 5625) (- 1103515243 4) -> 1103515239) ((3456 . 5625) (- 1103515244 0) -> 1103515244) ((3457 . 5625) (- 1103515244 1) -> 1103515243) ((3458 . 5625) (- 1103515244 2) -> 1103515242) ((3459 . 5625) (- 1103515244 3) -> 1103515241) ((3460 . 5625) (- 1103515244 4) -> 1103515240) ((3461 . 5625) (- 1103515245 0) -> 1103515245) ((3462 . 5625) (- 1103515245 1) -> 1103515244) ((3463 . 5625) (- 1103515245 2) -> 1103515243) ((3464 . 5625) (- 1103515245 3) -> 1103515242) ((3465 . 5625) (- 1103515245 4) -> 1103515241) ((3466 . 5625) (- 1103515246 0) -> 1103515246) ((3467 . 5625) (- 1103515246 1) -> 1103515245) ((3468 . 5625) (- 1103515246 2) -> 1103515244) ((3469 . 5625) (- 1103515246 3) -> 1103515243) ((3470 . 5625) (- 1103515246 4) -> 1103515242) ((3471 . 5625) (- 1103515247 0) -> 1103515247) ((3472 . 5625) (- 1103515247 1) -> 1103515246) ((3473 . 5625) (- 1103515247 2) -> 1103515245) ((3474 . 5625) (- 1103515247 3) -> 1103515244) ((3475 . 5625) (- 1103515247 4) -> 1103515243) ((3476 . 5625) (- 1103515243 -4) -> 1103515247) ((3477 . 5625) (- 1103515243 -3) -> 1103515246) ((3478 . 5625) (- 1103515243 -2) -> 1103515245) ((3479 . 5625) (- 1103515243 -1) -> 1103515244) ((3480 . 5625) (- 1103515243 0) -> 1103515243) ((3481 . 5625) (- 1103515244 -4) -> 1103515248) ((3482 . 5625) (- 1103515244 -3) -> 1103515247) ((3483 . 5625) (- 1103515244 -2) -> 1103515246) ((3484 . 5625) (- 1103515244 -1) -> 1103515245) ((3485 . 5625) (- 1103515244 0) -> 1103515244) ((3486 . 5625) (- 1103515245 -4) -> 1103515249) ((3487 . 5625) (- 1103515245 -3) -> 1103515248) ((3488 . 5625) (- 1103515245 -2) -> 1103515247) ((3489 . 5625) (- 1103515245 -1) -> 1103515246) ((3490 . 5625) (- 1103515245 0) -> 1103515245) ((3491 . 5625) (- 1103515246 -4) -> 1103515250) ((3492 . 5625) (- 1103515246 -3) -> 1103515249) ((3493 . 5625) (- 1103515246 -2) -> 1103515248) ((3494 . 5625) (- 1103515246 -1) -> 1103515247) ((3495 . 5625) (- 1103515246 0) -> 1103515246) ((3496 . 5625) (- 1103515247 -4) -> 1103515251) ((3497 . 5625) (- 1103515247 -3) -> 1103515250) ((3498 . 5625) (- 1103515247 -2) -> 1103515249) ((3499 . 5625) (- 1103515247 -1) -> 1103515248) ((3500 . 5625) (- 1103515247 0) -> 1103515247) ((3501 . 5625) (- 1103515243 4611686018427387901) -> -4611686017323872658) ((3502 . 5625) (- 1103515243 4611686018427387902) -> -4611686017323872659) ((3503 . 5625) (- 1103515243 4611686018427387903) -> -4611686017323872660) ((3504 . 5625) (- 1103515243 4611686018427387904) -> -4611686017323872661) ((3505 . 5625) (- 1103515243 4611686018427387905) -> -4611686017323872662) ((3506 . 5625) (- 1103515244 4611686018427387901) -> -4611686017323872657) ((3507 . 5625) (- 1103515244 4611686018427387902) -> -4611686017323872658) ((3508 . 5625) (- 1103515244 4611686018427387903) -> -4611686017323872659) ((3509 . 5625) (- 1103515244 4611686018427387904) -> -4611686017323872660) ((3510 . 5625) (- 1103515244 4611686018427387905) -> -4611686017323872661) ((3511 . 5625) (- 1103515245 4611686018427387901) -> -4611686017323872656) ((3512 . 5625) (- 1103515245 4611686018427387902) -> -4611686017323872657) ((3513 . 5625) (- 1103515245 4611686018427387903) -> -4611686017323872658) ((3514 . 5625) (- 1103515245 4611686018427387904) -> -4611686017323872659) ((3515 . 5625) (- 1103515245 4611686018427387905) -> -4611686017323872660) ((3516 . 5625) (- 1103515246 4611686018427387901) -> -4611686017323872655) ((3517 . 5625) (- 1103515246 4611686018427387902) -> -4611686017323872656) ((3518 . 5625) (- 1103515246 4611686018427387903) -> -4611686017323872657) ((3519 . 5625) (- 1103515246 4611686018427387904) -> -4611686017323872658) ((3520 . 5625) (- 1103515246 4611686018427387905) -> -4611686017323872659) ((3521 . 5625) (- 1103515247 4611686018427387901) -> -4611686017323872654) ((3522 . 5625) (- 1103515247 4611686018427387902) -> -4611686017323872655) ((3523 . 5625) (- 1103515247 4611686018427387903) -> -4611686017323872656) ((3524 . 5625) (- 1103515247 4611686018427387904) -> -4611686017323872657) ((3525 . 5625) (- 1103515247 4611686018427387905) -> -4611686017323872658) ((3526 . 5625) (- 1103515243 -4611686018427387906) -> 4611686019530903149) ((3527 . 5625) (- 1103515243 -4611686018427387905) -> 4611686019530903148) ((3528 . 5625) (- 1103515243 -4611686018427387904) -> 4611686019530903147) ((3529 . 5625) (- 1103515243 -4611686018427387903) -> 4611686019530903146) ((3530 . 5625) (- 1103515243 -4611686018427387902) -> 4611686019530903145) ((3531 . 5625) (- 1103515244 -4611686018427387906) -> 4611686019530903150) ((3532 . 5625) (- 1103515244 -4611686018427387905) -> 4611686019530903149) ((3533 . 5625) (- 1103515244 -4611686018427387904) -> 4611686019530903148) ((3534 . 5625) (- 1103515244 -4611686018427387903) -> 4611686019530903147) ((3535 . 5625) (- 1103515244 -4611686018427387902) -> 4611686019530903146) ((3536 . 5625) (- 1103515245 -4611686018427387906) -> 4611686019530903151) ((3537 . 5625) (- 1103515245 -4611686018427387905) -> 4611686019530903150) ((3538 . 5625) (- 1103515245 -4611686018427387904) -> 4611686019530903149) ((3539 . 5625) (- 1103515245 -4611686018427387903) -> 4611686019530903148) ((3540 . 5625) (- 1103515245 -4611686018427387902) -> 4611686019530903147) ((3541 . 5625) (- 1103515246 -4611686018427387906) -> 4611686019530903152) ((3542 . 5625) (- 1103515246 -4611686018427387905) -> 4611686019530903151) ((3543 . 5625) (- 1103515246 -4611686018427387904) -> 4611686019530903150) ((3544 . 5625) (- 1103515246 -4611686018427387903) -> 4611686019530903149) ((3545 . 5625) (- 1103515246 -4611686018427387902) -> 4611686019530903148) ((3546 . 5625) (- 1103515247 -4611686018427387906) -> 4611686019530903153) ((3547 . 5625) (- 1103515247 -4611686018427387905) -> 4611686019530903152) ((3548 . 5625) (- 1103515247 -4611686018427387904) -> 4611686019530903151) ((3549 . 5625) (- 1103515247 -4611686018427387903) -> 4611686019530903150) ((3550 . 5625) (- 1103515247 -4611686018427387902) -> 4611686019530903149) ((3551 . 5625) (- 1103515243 4611686018427387902) -> -4611686017323872659) ((3552 . 5625) (- 1103515243 4611686018427387903) -> -4611686017323872660) ((3553 . 5625) (- 1103515243 4611686018427387904) -> -4611686017323872661) ((3554 . 5625) (- 1103515243 4611686018427387905) -> -4611686017323872662) ((3555 . 5625) (- 1103515243 4611686018427387906) -> -4611686017323872663) ((3556 . 5625) (- 1103515244 4611686018427387902) -> -4611686017323872658) ((3557 . 5625) (- 1103515244 4611686018427387903) -> -4611686017323872659) ((3558 . 5625) (- 1103515244 4611686018427387904) -> -4611686017323872660) ((3559 . 5625) (- 1103515244 4611686018427387905) -> -4611686017323872661) ((3560 . 5625) (- 1103515244 4611686018427387906) -> -4611686017323872662) ((3561 . 5625) (- 1103515245 4611686018427387902) -> -4611686017323872657) ((3562 . 5625) (- 1103515245 4611686018427387903) -> -4611686017323872658) ((3563 . 5625) (- 1103515245 4611686018427387904) -> -4611686017323872659) ((3564 . 5625) (- 1103515245 4611686018427387905) -> -4611686017323872660) ((3565 . 5625) (- 1103515245 4611686018427387906) -> -4611686017323872661) ((3566 . 5625) (- 1103515246 4611686018427387902) -> -4611686017323872656) ((3567 . 5625) (- 1103515246 4611686018427387903) -> -4611686017323872657) ((3568 . 5625) (- 1103515246 4611686018427387904) -> -4611686017323872658) ((3569 . 5625) (- 1103515246 4611686018427387905) -> -4611686017323872659) ((3570 . 5625) (- 1103515246 4611686018427387906) -> -4611686017323872660) ((3571 . 5625) (- 1103515247 4611686018427387902) -> -4611686017323872655) ((3572 . 5625) (- 1103515247 4611686018427387903) -> -4611686017323872656) ((3573 . 5625) (- 1103515247 4611686018427387904) -> -4611686017323872657) ((3574 . 5625) (- 1103515247 4611686018427387905) -> -4611686017323872658) ((3575 . 5625) (- 1103515247 4611686018427387906) -> -4611686017323872659) ((3576 . 5625) (- 1103515243 -4611686018427387907) -> 4611686019530903150) ((3577 . 5625) (- 1103515243 -4611686018427387906) -> 4611686019530903149) ((3578 . 5625) (- 1103515243 -4611686018427387905) -> 4611686019530903148) ((3579 . 5625) (- 1103515243 -4611686018427387904) -> 4611686019530903147) ((3580 . 5625) (- 1103515243 -4611686018427387903) -> 4611686019530903146) ((3581 . 5625) (- 1103515244 -4611686018427387907) -> 4611686019530903151) ((3582 . 5625) (- 1103515244 -4611686018427387906) -> 4611686019530903150) ((3583 . 5625) (- 1103515244 -4611686018427387905) -> 4611686019530903149) ((3584 . 5625) (- 1103515244 -4611686018427387904) -> 4611686019530903148) ((3585 . 5625) (- 1103515244 -4611686018427387903) -> 4611686019530903147) ((3586 . 5625) (- 1103515245 -4611686018427387907) -> 4611686019530903152) ((3587 . 5625) (- 1103515245 -4611686018427387906) -> 4611686019530903151) ((3588 . 5625) (- 1103515245 -4611686018427387905) -> 4611686019530903150) ((3589 . 5625) (- 1103515245 -4611686018427387904) -> 4611686019530903149) ((3590 . 5625) (- 1103515245 -4611686018427387903) -> 4611686019530903148) ((3591 . 5625) (- 1103515246 -4611686018427387907) -> 4611686019530903153) ((3592 . 5625) (- 1103515246 -4611686018427387906) -> 4611686019530903152) ((3593 . 5625) (- 1103515246 -4611686018427387905) -> 4611686019530903151) ((3594 . 5625) (- 1103515246 -4611686018427387904) -> 4611686019530903150) ((3595 . 5625) (- 1103515246 -4611686018427387903) -> 4611686019530903149) ((3596 . 5625) (- 1103515247 -4611686018427387907) -> 4611686019530903154) ((3597 . 5625) (- 1103515247 -4611686018427387906) -> 4611686019530903153) ((3598 . 5625) (- 1103515247 -4611686018427387905) -> 4611686019530903152) ((3599 . 5625) (- 1103515247 -4611686018427387904) -> 4611686019530903151) ((3600 . 5625) (- 1103515247 -4611686018427387903) -> 4611686019530903150) ((3601 . 5625) (- 1103515243 1103515243) -> 0) ((3602 . 5625) (- 1103515243 1103515244) -> -1) ((3603 . 5625) (- 1103515243 1103515245) -> -2) ((3604 . 5625) (- 1103515243 1103515246) -> -3) ((3605 . 5625) (- 1103515243 1103515247) -> -4) ((3606 . 5625) (- 1103515244 1103515243) -> 1) ((3607 . 5625) (- 1103515244 1103515244) -> 0) ((3608 . 5625) (- 1103515244 1103515245) -> -1) ((3609 . 5625) (- 1103515244 1103515246) -> -2) ((3610 . 5625) (- 1103515244 1103515247) -> -3) ((3611 . 5625) (- 1103515245 1103515243) -> 2) ((3612 . 5625) (- 1103515245 1103515244) -> 1) ((3613 . 5625) (- 1103515245 1103515245) -> 0) ((3614 . 5625) (- 1103515245 1103515246) -> -1) ((3615 . 5625) (- 1103515245 1103515247) -> -2) ((3616 . 5625) (- 1103515246 1103515243) -> 3) ((3617 . 5625) (- 1103515246 1103515244) -> 2) ((3618 . 5625) (- 1103515246 1103515245) -> 1) ((3619 . 5625) (- 1103515246 1103515246) -> 0) ((3620 . 5625) (- 1103515246 1103515247) -> -1) ((3621 . 5625) (- 1103515247 1103515243) -> 4) ((3622 . 5625) (- 1103515247 1103515244) -> 3) ((3623 . 5625) (- 1103515247 1103515245) -> 2) ((3624 . 5625) (- 1103515247 1103515246) -> 1) ((3625 . 5625) (- 1103515247 1103515247) -> 0) ((3626 . 5625) (- 1103515243 631629063) -> 471886180) ((3627 . 5625) (- 1103515243 631629064) -> 471886179) ((3628 . 5625) (- 1103515243 631629065) -> 471886178) ((3629 . 5625) (- 1103515243 631629066) -> 471886177) ((3630 . 5625) (- 1103515243 631629067) -> 471886176) ((3631 . 5625) (- 1103515244 631629063) -> 471886181) ((3632 . 5625) (- 1103515244 631629064) -> 471886180) ((3633 . 5625) (- 1103515244 631629065) -> 471886179) ((3634 . 5625) (- 1103515244 631629066) -> 471886178) ((3635 . 5625) (- 1103515244 631629067) -> 471886177) ((3636 . 5625) (- 1103515245 631629063) -> 471886182) ((3637 . 5625) (- 1103515245 631629064) -> 471886181) ((3638 . 5625) (- 1103515245 631629065) -> 471886180) ((3639 . 5625) (- 1103515245 631629066) -> 471886179) ((3640 . 5625) (- 1103515245 631629067) -> 471886178) ((3641 . 5625) (- 1103515246 631629063) -> 471886183) ((3642 . 5625) (- 1103515246 631629064) -> 471886182) ((3643 . 5625) (- 1103515246 631629065) -> 471886181) ((3644 . 5625) (- 1103515246 631629066) -> 471886180) ((3645 . 5625) (- 1103515246 631629067) -> 471886179) ((3646 . 5625) (- 1103515247 631629063) -> 471886184) ((3647 . 5625) (- 1103515247 631629064) -> 471886183) ((3648 . 5625) (- 1103515247 631629065) -> 471886182) ((3649 . 5625) (- 1103515247 631629066) -> 471886181) ((3650 . 5625) (- 1103515247 631629067) -> 471886180) ((3651 . 5625) (- 1103515243 9007199254740990) -> -9007198151225747) ((3652 . 5625) (- 1103515243 9007199254740991) -> -9007198151225748) ((3653 . 5625) (- 1103515243 9007199254740992) -> -9007198151225749) ((3654 . 5625) (- 1103515243 9007199254740993) -> -9007198151225750) ((3655 . 5625) (- 1103515243 9007199254740994) -> -9007198151225751) ((3656 . 5625) (- 1103515244 9007199254740990) -> -9007198151225746) ((3657 . 5625) (- 1103515244 9007199254740991) -> -9007198151225747) ((3658 . 5625) (- 1103515244 9007199254740992) -> -9007198151225748) ((3659 . 5625) (- 1103515244 9007199254740993) -> -9007198151225749) ((3660 . 5625) (- 1103515244 9007199254740994) -> -9007198151225750) ((3661 . 5625) (- 1103515245 9007199254740990) -> -9007198151225745) ((3662 . 5625) (- 1103515245 9007199254740991) -> -9007198151225746) ((3663 . 5625) (- 1103515245 9007199254740992) -> -9007198151225747) ((3664 . 5625) (- 1103515245 9007199254740993) -> -9007198151225748) ((3665 . 5625) (- 1103515245 9007199254740994) -> -9007198151225749) ((3666 . 5625) (- 1103515246 9007199254740990) -> -9007198151225744) ((3667 . 5625) (- 1103515246 9007199254740991) -> -9007198151225745) ((3668 . 5625) (- 1103515246 9007199254740992) -> -9007198151225746) ((3669 . 5625) (- 1103515246 9007199254740993) -> -9007198151225747) ((3670 . 5625) (- 1103515246 9007199254740994) -> -9007198151225748) ((3671 . 5625) (- 1103515247 9007199254740990) -> -9007198151225743) ((3672 . 5625) (- 1103515247 9007199254740991) -> -9007198151225744) ((3673 . 5625) (- 1103515247 9007199254740992) -> -9007198151225745) ((3674 . 5625) (- 1103515247 9007199254740993) -> -9007198151225746) ((3675 . 5625) (- 1103515247 9007199254740994) -> -9007198151225747) ((3676 . 5625) (- 1103515243 -9007199254740994) -> 9007200358256237) ((3677 . 5625) (- 1103515243 -9007199254740993) -> 9007200358256236) ((3678 . 5625) (- 1103515243 -9007199254740992) -> 9007200358256235) ((3679 . 5625) (- 1103515243 -9007199254740991) -> 9007200358256234) ((3680 . 5625) (- 1103515243 -9007199254740990) -> 9007200358256233) ((3681 . 5625) (- 1103515244 -9007199254740994) -> 9007200358256238) ((3682 . 5625) (- 1103515244 -9007199254740993) -> 9007200358256237) ((3683 . 5625) (- 1103515244 -9007199254740992) -> 9007200358256236) ((3684 . 5625) (- 1103515244 -9007199254740991) -> 9007200358256235) ((3685 . 5625) (- 1103515244 -9007199254740990) -> 9007200358256234) ((3686 . 5625) (- 1103515245 -9007199254740994) -> 9007200358256239) ((3687 . 5625) (- 1103515245 -9007199254740993) -> 9007200358256238) ((3688 . 5625) (- 1103515245 -9007199254740992) -> 9007200358256237) ((3689 . 5625) (- 1103515245 -9007199254740991) -> 9007200358256236) ((3690 . 5625) (- 1103515245 -9007199254740990) -> 9007200358256235) ((3691 . 5625) (- 1103515246 -9007199254740994) -> 9007200358256240) ((3692 . 5625) (- 1103515246 -9007199254740993) -> 9007200358256239) ((3693 . 5625) (- 1103515246 -9007199254740992) -> 9007200358256238) ((3694 . 5625) (- 1103515246 -9007199254740991) -> 9007200358256237) ((3695 . 5625) (- 1103515246 -9007199254740990) -> 9007200358256236) ((3696 . 5625) (- 1103515247 -9007199254740994) -> 9007200358256241) ((3697 . 5625) (- 1103515247 -9007199254740993) -> 9007200358256240) ((3698 . 5625) (- 1103515247 -9007199254740992) -> 9007200358256239) ((3699 . 5625) (- 1103515247 -9007199254740991) -> 9007200358256238) ((3700 . 5625) (- 1103515247 -9007199254740990) -> 9007200358256237) ((3701 . 5625) (- 1103515243 12343) -> 1103502900) ((3702 . 5625) (- 1103515243 12344) -> 1103502899) ((3703 . 5625) (- 1103515243 12345) -> 1103502898) ((3704 . 5625) (- 1103515243 12346) -> 1103502897) ((3705 . 5625) (- 1103515243 12347) -> 1103502896) ((3706 . 5625) (- 1103515244 12343) -> 1103502901) ((3707 . 5625) (- 1103515244 12344) -> 1103502900) ((3708 . 5625) (- 1103515244 12345) -> 1103502899) ((3709 . 5625) (- 1103515244 12346) -> 1103502898) ((3710 . 5625) (- 1103515244 12347) -> 1103502897) ((3711 . 5625) (- 1103515245 12343) -> 1103502902) ((3712 . 5625) (- 1103515245 12344) -> 1103502901) ((3713 . 5625) (- 1103515245 12345) -> 1103502900) ((3714 . 5625) (- 1103515245 12346) -> 1103502899) ((3715 . 5625) (- 1103515245 12347) -> 1103502898) ((3716 . 5625) (- 1103515246 12343) -> 1103502903) ((3717 . 5625) (- 1103515246 12344) -> 1103502902) ((3718 . 5625) (- 1103515246 12345) -> 1103502901) ((3719 . 5625) (- 1103515246 12346) -> 1103502900) ((3720 . 5625) (- 1103515246 12347) -> 1103502899) ((3721 . 5625) (- 1103515247 12343) -> 1103502904) ((3722 . 5625) (- 1103515247 12344) -> 1103502903) ((3723 . 5625) (- 1103515247 12345) -> 1103502902) ((3724 . 5625) (- 1103515247 12346) -> 1103502901) ((3725 . 5625) (- 1103515247 12347) -> 1103502900) ((3726 . 5625) (- 1103515243 4294967294) -> -3191452051) ((3727 . 5625) (- 1103515243 4294967295) -> -3191452052) ((3728 . 5625) (- 1103515243 4294967296) -> -3191452053) ((3729 . 5625) (- 1103515243 4294967297) -> -3191452054) ((3730 . 5625) (- 1103515243 4294967298) -> -3191452055) ((3731 . 5625) (- 1103515244 4294967294) -> -3191452050) ((3732 . 5625) (- 1103515244 4294967295) -> -3191452051) ((3733 . 5625) (- 1103515244 4294967296) -> -3191452052) ((3734 . 5625) (- 1103515244 4294967297) -> -3191452053) ((3735 . 5625) (- 1103515244 4294967298) -> -3191452054) ((3736 . 5625) (- 1103515245 4294967294) -> -3191452049) ((3737 . 5625) (- 1103515245 4294967295) -> -3191452050) ((3738 . 5625) (- 1103515245 4294967296) -> -3191452051) ((3739 . 5625) (- 1103515245 4294967297) -> -3191452052) ((3740 . 5625) (- 1103515245 4294967298) -> -3191452053) ((3741 . 5625) (- 1103515246 4294967294) -> -3191452048) ((3742 . 5625) (- 1103515246 4294967295) -> -3191452049) ((3743 . 5625) (- 1103515246 4294967296) -> -3191452050) ((3744 . 5625) (- 1103515246 4294967297) -> -3191452051) ((3745 . 5625) (- 1103515246 4294967298) -> -3191452052) ((3746 . 5625) (- 1103515247 4294967294) -> -3191452047) ((3747 . 5625) (- 1103515247 4294967295) -> -3191452048) ((3748 . 5625) (- 1103515247 4294967296) -> -3191452049) ((3749 . 5625) (- 1103515247 4294967297) -> -3191452050) ((3750 . 5625) (- 1103515247 4294967298) -> -3191452051) ((3751 . 5625) (- 631629063 -2) -> 631629065) ((3752 . 5625) (- 631629063 -1) -> 631629064) ((3753 . 5625) (- 631629063 0) -> 631629063) ((3754 . 5625) (- 631629063 1) -> 631629062) ((3755 . 5625) (- 631629063 2) -> 631629061) ((3756 . 5625) (- 631629064 -2) -> 631629066) ((3757 . 5625) (- 631629064 -1) -> 631629065) ((3758 . 5625) (- 631629064 0) -> 631629064) ((3759 . 5625) (- 631629064 1) -> 631629063) ((3760 . 5625) (- 631629064 2) -> 631629062) ((3761 . 5625) (- 631629065 -2) -> 631629067) ((3762 . 5625) (- 631629065 -1) -> 631629066) ((3763 . 5625) (- 631629065 0) -> 631629065) ((3764 . 5625) (- 631629065 1) -> 631629064) ((3765 . 5625) (- 631629065 2) -> 631629063) ((3766 . 5625) (- 631629066 -2) -> 631629068) ((3767 . 5625) (- 631629066 -1) -> 631629067) ((3768 . 5625) (- 631629066 0) -> 631629066) ((3769 . 5625) (- 631629066 1) -> 631629065) ((3770 . 5625) (- 631629066 2) -> 631629064) ((3771 . 5625) (- 631629067 -2) -> 631629069) ((3772 . 5625) (- 631629067 -1) -> 631629068) ((3773 . 5625) (- 631629067 0) -> 631629067) ((3774 . 5625) (- 631629067 1) -> 631629066) ((3775 . 5625) (- 631629067 2) -> 631629065) ((3776 . 5625) (- 631629063 -1) -> 631629064) ((3777 . 5625) (- 631629063 0) -> 631629063) ((3778 . 5625) (- 631629063 1) -> 631629062) ((3779 . 5625) (- 631629063 2) -> 631629061) ((3780 . 5625) (- 631629063 3) -> 631629060) ((3781 . 5625) (- 631629064 -1) -> 631629065) ((3782 . 5625) (- 631629064 0) -> 631629064) ((3783 . 5625) (- 631629064 1) -> 631629063) ((3784 . 5625) (- 631629064 2) -> 631629062) ((3785 . 5625) (- 631629064 3) -> 631629061) ((3786 . 5625) (- 631629065 -1) -> 631629066) ((3787 . 5625) (- 631629065 0) -> 631629065) ((3788 . 5625) (- 631629065 1) -> 631629064) ((3789 . 5625) (- 631629065 2) -> 631629063) ((3790 . 5625) (- 631629065 3) -> 631629062) ((3791 . 5625) (- 631629066 -1) -> 631629067) ((3792 . 5625) (- 631629066 0) -> 631629066) ((3793 . 5625) (- 631629066 1) -> 631629065) ((3794 . 5625) (- 631629066 2) -> 631629064) ((3795 . 5625) (- 631629066 3) -> 631629063) ((3796 . 5625) (- 631629067 -1) -> 631629068) ((3797 . 5625) (- 631629067 0) -> 631629067) ((3798 . 5625) (- 631629067 1) -> 631629066) ((3799 . 5625) (- 631629067 2) -> 631629065) ((3800 . 5625) (- 631629067 3) -> 631629064) ((3801 . 5625) (- 631629063 -3) -> 631629066) ((3802 . 5625) (- 631629063 -2) -> 631629065) ((3803 . 5625) (- 631629063 -1) -> 631629064) ((3804 . 5625) (- 631629063 0) -> 631629063) ((3805 . 5625) (- 631629063 1) -> 631629062) ((3806 . 5625) (- 631629064 -3) -> 631629067) ((3807 . 5625) (- 631629064 -2) -> 631629066) ((3808 . 5625) (- 631629064 -1) -> 631629065) ((3809 . 5625) (- 631629064 0) -> 631629064) ((3810 . 5625) (- 631629064 1) -> 631629063) ((3811 . 5625) (- 631629065 -3) -> 631629068) ((3812 . 5625) (- 631629065 -2) -> 631629067) ((3813 . 5625) (- 631629065 -1) -> 631629066) ((3814 . 5625) (- 631629065 0) -> 631629065) ((3815 . 5625) (- 631629065 1) -> 631629064) ((3816 . 5625) (- 631629066 -3) -> 631629069) ((3817 . 5625) (- 631629066 -2) -> 631629068) ((3818 . 5625) (- 631629066 -1) -> 631629067) ((3819 . 5625) (- 631629066 0) -> 631629066) ((3820 . 5625) (- 631629066 1) -> 631629065) ((3821 . 5625) (- 631629067 -3) -> 631629070) ((3822 . 5625) (- 631629067 -2) -> 631629069) ((3823 . 5625) (- 631629067 -1) -> 631629068) ((3824 . 5625) (- 631629067 0) -> 631629067) ((3825 . 5625) (- 631629067 1) -> 631629066) ((3826 . 5625) (- 631629063 0) -> 631629063) ((3827 . 5625) (- 631629063 1) -> 631629062) ((3828 . 5625) (- 631629063 2) -> 631629061) ((3829 . 5625) (- 631629063 3) -> 631629060) ((3830 . 5625) (- 631629063 4) -> 631629059) ((3831 . 5625) (- 631629064 0) -> 631629064) ((3832 . 5625) (- 631629064 1) -> 631629063) ((3833 . 5625) (- 631629064 2) -> 631629062) ((3834 . 5625) (- 631629064 3) -> 631629061) ((3835 . 5625) (- 631629064 4) -> 631629060) ((3836 . 5625) (- 631629065 0) -> 631629065) ((3837 . 5625) (- 631629065 1) -> 631629064) ((3838 . 5625) (- 631629065 2) -> 631629063) ((3839 . 5625) (- 631629065 3) -> 631629062) ((3840 . 5625) (- 631629065 4) -> 631629061) ((3841 . 5625) (- 631629066 0) -> 631629066) ((3842 . 5625) (- 631629066 1) -> 631629065) ((3843 . 5625) (- 631629066 2) -> 631629064) ((3844 . 5625) (- 631629066 3) -> 631629063) ((3845 . 5625) (- 631629066 4) -> 631629062) ((3846 . 5625) (- 631629067 0) -> 631629067) ((3847 . 5625) (- 631629067 1) -> 631629066) ((3848 . 5625) (- 631629067 2) -> 631629065) ((3849 . 5625) (- 631629067 3) -> 631629064) ((3850 . 5625) (- 631629067 4) -> 631629063) ((3851 . 5625) (- 631629063 -4) -> 631629067) ((3852 . 5625) (- 631629063 -3) -> 631629066) ((3853 . 5625) (- 631629063 -2) -> 631629065) ((3854 . 5625) (- 631629063 -1) -> 631629064) ((3855 . 5625) (- 631629063 0) -> 631629063) ((3856 . 5625) (- 631629064 -4) -> 631629068) ((3857 . 5625) (- 631629064 -3) -> 631629067) ((3858 . 5625) (- 631629064 -2) -> 631629066) ((3859 . 5625) (- 631629064 -1) -> 631629065) ((3860 . 5625) (- 631629064 0) -> 631629064) ((3861 . 5625) (- 631629065 -4) -> 631629069) ((3862 . 5625) (- 631629065 -3) -> 631629068) ((3863 . 5625) (- 631629065 -2) -> 631629067) ((3864 . 5625) (- 631629065 -1) -> 631629066) ((3865 . 5625) (- 631629065 0) -> 631629065) ((3866 . 5625) (- 631629066 -4) -> 631629070) ((3867 . 5625) (- 631629066 -3) -> 631629069) ((3868 . 5625) (- 631629066 -2) -> 631629068) ((3869 . 5625) (- 631629066 -1) -> 631629067) ((3870 . 5625) (- 631629066 0) -> 631629066) ((3871 . 5625) (- 631629067 -4) -> 631629071) ((3872 . 5625) (- 631629067 -3) -> 631629070) ((3873 . 5625) (- 631629067 -2) -> 631629069) ((3874 . 5625) (- 631629067 -1) -> 631629068) ((3875 . 5625) (- 631629067 0) -> 631629067) ((3876 . 5625) (- 631629063 4611686018427387901) -> -4611686017795758838) ((3877 . 5625) (- 631629063 4611686018427387902) -> -4611686017795758839) ((3878 . 5625) (- 631629063 4611686018427387903) -> -4611686017795758840) ((3879 . 5625) (- 631629063 4611686018427387904) -> -4611686017795758841) ((3880 . 5625) (- 631629063 4611686018427387905) -> -4611686017795758842) ((3881 . 5625) (- 631629064 4611686018427387901) -> -4611686017795758837) ((3882 . 5625) (- 631629064 4611686018427387902) -> -4611686017795758838) ((3883 . 5625) (- 631629064 4611686018427387903) -> -4611686017795758839) ((3884 . 5625) (- 631629064 4611686018427387904) -> -4611686017795758840) ((3885 . 5625) (- 631629064 4611686018427387905) -> -4611686017795758841) ((3886 . 5625) (- 631629065 4611686018427387901) -> -4611686017795758836) ((3887 . 5625) (- 631629065 4611686018427387902) -> -4611686017795758837) ((3888 . 5625) (- 631629065 4611686018427387903) -> -4611686017795758838) ((3889 . 5625) (- 631629065 4611686018427387904) -> -4611686017795758839) ((3890 . 5625) (- 631629065 4611686018427387905) -> -4611686017795758840) ((3891 . 5625) (- 631629066 4611686018427387901) -> -4611686017795758835) ((3892 . 5625) (- 631629066 4611686018427387902) -> -4611686017795758836) ((3893 . 5625) (- 631629066 4611686018427387903) -> -4611686017795758837) ((3894 . 5625) (- 631629066 4611686018427387904) -> -4611686017795758838) ((3895 . 5625) (- 631629066 4611686018427387905) -> -4611686017795758839) ((3896 . 5625) (- 631629067 4611686018427387901) -> -4611686017795758834) ((3897 . 5625) (- 631629067 4611686018427387902) -> -4611686017795758835) ((3898 . 5625) (- 631629067 4611686018427387903) -> -4611686017795758836) ((3899 . 5625) (- 631629067 4611686018427387904) -> -4611686017795758837) ((3900 . 5625) (- 631629067 4611686018427387905) -> -4611686017795758838) ((3901 . 5625) (- 631629063 -4611686018427387906) -> 4611686019059016969) ((3902 . 5625) (- 631629063 -4611686018427387905) -> 4611686019059016968) ((3903 . 5625) (- 631629063 -4611686018427387904) -> 4611686019059016967) ((3904 . 5625) (- 631629063 -4611686018427387903) -> 4611686019059016966) ((3905 . 5625) (- 631629063 -4611686018427387902) -> 4611686019059016965) ((3906 . 5625) (- 631629064 -4611686018427387906) -> 4611686019059016970) ((3907 . 5625) (- 631629064 -4611686018427387905) -> 4611686019059016969) ((3908 . 5625) (- 631629064 -4611686018427387904) -> 4611686019059016968) ((3909 . 5625) (- 631629064 -4611686018427387903) -> 4611686019059016967) ((3910 . 5625) (- 631629064 -4611686018427387902) -> 4611686019059016966) ((3911 . 5625) (- 631629065 -4611686018427387906) -> 4611686019059016971) ((3912 . 5625) (- 631629065 -4611686018427387905) -> 4611686019059016970) ((3913 . 5625) (- 631629065 -4611686018427387904) -> 4611686019059016969) ((3914 . 5625) (- 631629065 -4611686018427387903) -> 4611686019059016968) ((3915 . 5625) (- 631629065 -4611686018427387902) -> 4611686019059016967) ((3916 . 5625) (- 631629066 -4611686018427387906) -> 4611686019059016972) ((3917 . 5625) (- 631629066 -4611686018427387905) -> 4611686019059016971) ((3918 . 5625) (- 631629066 -4611686018427387904) -> 4611686019059016970) ((3919 . 5625) (- 631629066 -4611686018427387903) -> 4611686019059016969) ((3920 . 5625) (- 631629066 -4611686018427387902) -> 4611686019059016968) ((3921 . 5625) (- 631629067 -4611686018427387906) -> 4611686019059016973) ((3922 . 5625) (- 631629067 -4611686018427387905) -> 4611686019059016972) ((3923 . 5625) (- 631629067 -4611686018427387904) -> 4611686019059016971) ((3924 . 5625) (- 631629067 -4611686018427387903) -> 4611686019059016970) ((3925 . 5625) (- 631629067 -4611686018427387902) -> 4611686019059016969) ((3926 . 5625) (- 631629063 4611686018427387902) -> -4611686017795758839) ((3927 . 5625) (- 631629063 4611686018427387903) -> -4611686017795758840) ((3928 . 5625) (- 631629063 4611686018427387904) -> -4611686017795758841) ((3929 . 5625) (- 631629063 4611686018427387905) -> -4611686017795758842) ((3930 . 5625) (- 631629063 4611686018427387906) -> -4611686017795758843) ((3931 . 5625) (- 631629064 4611686018427387902) -> -4611686017795758838) ((3932 . 5625) (- 631629064 4611686018427387903) -> -4611686017795758839) ((3933 . 5625) (- 631629064 4611686018427387904) -> -4611686017795758840) ((3934 . 5625) (- 631629064 4611686018427387905) -> -4611686017795758841) ((3935 . 5625) (- 631629064 4611686018427387906) -> -4611686017795758842) ((3936 . 5625) (- 631629065 4611686018427387902) -> -4611686017795758837) ((3937 . 5625) (- 631629065 4611686018427387903) -> -4611686017795758838) ((3938 . 5625) (- 631629065 4611686018427387904) -> -4611686017795758839) ((3939 . 5625) (- 631629065 4611686018427387905) -> -4611686017795758840) ((3940 . 5625) (- 631629065 4611686018427387906) -> -4611686017795758841) ((3941 . 5625) (- 631629066 4611686018427387902) -> -4611686017795758836) ((3942 . 5625) (- 631629066 4611686018427387903) -> -4611686017795758837) ((3943 . 5625) (- 631629066 4611686018427387904) -> -4611686017795758838) ((3944 . 5625) (- 631629066 4611686018427387905) -> -4611686017795758839) ((3945 . 5625) (- 631629066 4611686018427387906) -> -4611686017795758840) ((3946 . 5625) (- 631629067 4611686018427387902) -> -4611686017795758835) ((3947 . 5625) (- 631629067 4611686018427387903) -> -4611686017795758836) ((3948 . 5625) (- 631629067 4611686018427387904) -> -4611686017795758837) ((3949 . 5625) (- 631629067 4611686018427387905) -> -4611686017795758838) ((3950 . 5625) (- 631629067 4611686018427387906) -> -4611686017795758839) ((3951 . 5625) (- 631629063 -4611686018427387907) -> 4611686019059016970) ((3952 . 5625) (- 631629063 -4611686018427387906) -> 4611686019059016969) ((3953 . 5625) (- 631629063 -4611686018427387905) -> 4611686019059016968) ((3954 . 5625) (- 631629063 -4611686018427387904) -> 4611686019059016967) ((3955 . 5625) (- 631629063 -4611686018427387903) -> 4611686019059016966) ((3956 . 5625) (- 631629064 -4611686018427387907) -> 4611686019059016971) ((3957 . 5625) (- 631629064 -4611686018427387906) -> 4611686019059016970) ((3958 . 5625) (- 631629064 -4611686018427387905) -> 4611686019059016969) ((3959 . 5625) (- 631629064 -4611686018427387904) -> 4611686019059016968) ((3960 . 5625) (- 631629064 -4611686018427387903) -> 4611686019059016967) ((3961 . 5625) (- 631629065 -4611686018427387907) -> 4611686019059016972) ((3962 . 5625) (- 631629065 -4611686018427387906) -> 4611686019059016971) ((3963 . 5625) (- 631629065 -4611686018427387905) -> 4611686019059016970) ((3964 . 5625) (- 631629065 -4611686018427387904) -> 4611686019059016969) ((3965 . 5625) (- 631629065 -4611686018427387903) -> 4611686019059016968) ((3966 . 5625) (- 631629066 -4611686018427387907) -> 4611686019059016973) ((3967 . 5625) (- 631629066 -4611686018427387906) -> 4611686019059016972) ((3968 . 5625) (- 631629066 -4611686018427387905) -> 4611686019059016971) ((3969 . 5625) (- 631629066 -4611686018427387904) -> 4611686019059016970) ((3970 . 5625) (- 631629066 -4611686018427387903) -> 4611686019059016969) ((3971 . 5625) (- 631629067 -4611686018427387907) -> 4611686019059016974) ((3972 . 5625) (- 631629067 -4611686018427387906) -> 4611686019059016973) ((3973 . 5625) (- 631629067 -4611686018427387905) -> 4611686019059016972) ((3974 . 5625) (- 631629067 -4611686018427387904) -> 4611686019059016971) ((3975 . 5625) (- 631629067 -4611686018427387903) -> 4611686019059016970) ((3976 . 5625) (- 631629063 1103515243) -> -471886180) ((3977 . 5625) (- 631629063 1103515244) -> -471886181) ((3978 . 5625) (- 631629063 1103515245) -> -471886182) ((3979 . 5625) (- 631629063 1103515246) -> -471886183) ((3980 . 5625) (- 631629063 1103515247) -> -471886184) ((3981 . 5625) (- 631629064 1103515243) -> -471886179) ((3982 . 5625) (- 631629064 1103515244) -> -471886180) ((3983 . 5625) (- 631629064 1103515245) -> -471886181) ((3984 . 5625) (- 631629064 1103515246) -> -471886182) ((3985 . 5625) (- 631629064 1103515247) -> -471886183) ((3986 . 5625) (- 631629065 1103515243) -> -471886178) ((3987 . 5625) (- 631629065 1103515244) -> -471886179) ((3988 . 5625) (- 631629065 1103515245) -> -471886180) ((3989 . 5625) (- 631629065 1103515246) -> -471886181) ((3990 . 5625) (- 631629065 1103515247) -> -471886182) ((3991 . 5625) (- 631629066 1103515243) -> -471886177) ((3992 . 5625) (- 631629066 1103515244) -> -471886178) ((3993 . 5625) (- 631629066 1103515245) -> -471886179) ((3994 . 5625) (- 631629066 1103515246) -> -471886180) ((3995 . 5625) (- 631629066 1103515247) -> -471886181) ((3996 . 5625) (- 631629067 1103515243) -> -471886176) ((3997 . 5625) (- 631629067 1103515244) -> -471886177) ((3998 . 5625) (- 631629067 1103515245) -> -471886178) ((3999 . 5625) (- 631629067 1103515246) -> -471886179) ((4000 . 5625) (- 631629067 1103515247) -> -471886180) ((4001 . 5625) (- 631629063 631629063) -> 0) ((4002 . 5625) (- 631629063 631629064) -> -1) ((4003 . 5625) (- 631629063 631629065) -> -2) ((4004 . 5625) (- 631629063 631629066) -> -3) ((4005 . 5625) (- 631629063 631629067) -> -4) ((4006 . 5625) (- 631629064 631629063) -> 1) ((4007 . 5625) (- 631629064 631629064) -> 0) ((4008 . 5625) (- 631629064 631629065) -> -1) ((4009 . 5625) (- 631629064 631629066) -> -2) ((4010 . 5625) (- 631629064 631629067) -> -3) ((4011 . 5625) (- 631629065 631629063) -> 2) ((4012 . 5625) (- 631629065 631629064) -> 1) ((4013 . 5625) (- 631629065 631629065) -> 0) ((4014 . 5625) (- 631629065 631629066) -> -1) ((4015 . 5625) (- 631629065 631629067) -> -2) ((4016 . 5625) (- 631629066 631629063) -> 3) ((4017 . 5625) (- 631629066 631629064) -> 2) ((4018 . 5625) (- 631629066 631629065) -> 1) ((4019 . 5625) (- 631629066 631629066) -> 0) ((4020 . 5625) (- 631629066 631629067) -> -1) ((4021 . 5625) (- 631629067 631629063) -> 4) ((4022 . 5625) (- 631629067 631629064) -> 3) ((4023 . 5625) (- 631629067 631629065) -> 2) ((4024 . 5625) (- 631629067 631629066) -> 1) ((4025 . 5625) (- 631629067 631629067) -> 0) ((4026 . 5625) (- 631629063 9007199254740990) -> -9007198623111927) ((4027 . 5625) (- 631629063 9007199254740991) -> -9007198623111928) ((4028 . 5625) (- 631629063 9007199254740992) -> -9007198623111929) ((4029 . 5625) (- 631629063 9007199254740993) -> -9007198623111930) ((4030 . 5625) (- 631629063 9007199254740994) -> -9007198623111931) ((4031 . 5625) (- 631629064 9007199254740990) -> -9007198623111926) ((4032 . 5625) (- 631629064 9007199254740991) -> -9007198623111927) ((4033 . 5625) (- 631629064 9007199254740992) -> -9007198623111928) ((4034 . 5625) (- 631629064 9007199254740993) -> -9007198623111929) ((4035 . 5625) (- 631629064 9007199254740994) -> -9007198623111930) ((4036 . 5625) (- 631629065 9007199254740990) -> -9007198623111925) ((4037 . 5625) (- 631629065 9007199254740991) -> -9007198623111926) ((4038 . 5625) (- 631629065 9007199254740992) -> -9007198623111927) ((4039 . 5625) (- 631629065 9007199254740993) -> -9007198623111928) ((4040 . 5625) (- 631629065 9007199254740994) -> -9007198623111929) ((4041 . 5625) (- 631629066 9007199254740990) -> -9007198623111924) ((4042 . 5625) (- 631629066 9007199254740991) -> -9007198623111925) ((4043 . 5625) (- 631629066 9007199254740992) -> -9007198623111926) ((4044 . 5625) (- 631629066 9007199254740993) -> -9007198623111927) ((4045 . 5625) (- 631629066 9007199254740994) -> -9007198623111928) ((4046 . 5625) (- 631629067 9007199254740990) -> -9007198623111923) ((4047 . 5625) (- 631629067 9007199254740991) -> -9007198623111924) ((4048 . 5625) (- 631629067 9007199254740992) -> -9007198623111925) ((4049 . 5625) (- 631629067 9007199254740993) -> -9007198623111926) ((4050 . 5625) (- 631629067 9007199254740994) -> -9007198623111927) ((4051 . 5625) (- 631629063 -9007199254740994) -> 9007199886370057) ((4052 . 5625) (- 631629063 -9007199254740993) -> 9007199886370056) ((4053 . 5625) (- 631629063 -9007199254740992) -> 9007199886370055) ((4054 . 5625) (- 631629063 -9007199254740991) -> 9007199886370054) ((4055 . 5625) (- 631629063 -9007199254740990) -> 9007199886370053) ((4056 . 5625) (- 631629064 -9007199254740994) -> 9007199886370058) ((4057 . 5625) (- 631629064 -9007199254740993) -> 9007199886370057) ((4058 . 5625) (- 631629064 -9007199254740992) -> 9007199886370056) ((4059 . 5625) (- 631629064 -9007199254740991) -> 9007199886370055) ((4060 . 5625) (- 631629064 -9007199254740990) -> 9007199886370054) ((4061 . 5625) (- 631629065 -9007199254740994) -> 9007199886370059) ((4062 . 5625) (- 631629065 -9007199254740993) -> 9007199886370058) ((4063 . 5625) (- 631629065 -9007199254740992) -> 9007199886370057) ((4064 . 5625) (- 631629065 -9007199254740991) -> 9007199886370056) ((4065 . 5625) (- 631629065 -9007199254740990) -> 9007199886370055) ((4066 . 5625) (- 631629066 -9007199254740994) -> 9007199886370060) ((4067 . 5625) (- 631629066 -9007199254740993) -> 9007199886370059) ((4068 . 5625) (- 631629066 -9007199254740992) -> 9007199886370058) ((4069 . 5625) (- 631629066 -9007199254740991) -> 9007199886370057) ((4070 . 5625) (- 631629066 -9007199254740990) -> 9007199886370056) ((4071 . 5625) (- 631629067 -9007199254740994) -> 9007199886370061) ((4072 . 5625) (- 631629067 -9007199254740993) -> 9007199886370060) ((4073 . 5625) (- 631629067 -9007199254740992) -> 9007199886370059) ((4074 . 5625) (- 631629067 -9007199254740991) -> 9007199886370058) ((4075 . 5625) (- 631629067 -9007199254740990) -> 9007199886370057) ((4076 . 5625) (- 631629063 12343) -> 631616720) ((4077 . 5625) (- 631629063 12344) -> 631616719) ((4078 . 5625) (- 631629063 12345) -> 631616718) ((4079 . 5625) (- 631629063 12346) -> 631616717) ((4080 . 5625) (- 631629063 12347) -> 631616716) ((4081 . 5625) (- 631629064 12343) -> 631616721) ((4082 . 5625) (- 631629064 12344) -> 631616720) ((4083 . 5625) (- 631629064 12345) -> 631616719) ((4084 . 5625) (- 631629064 12346) -> 631616718) ((4085 . 5625) (- 631629064 12347) -> 631616717) ((4086 . 5625) (- 631629065 12343) -> 631616722) ((4087 . 5625) (- 631629065 12344) -> 631616721) ((4088 . 5625) (- 631629065 12345) -> 631616720) ((4089 . 5625) (- 631629065 12346) -> 631616719) ((4090 . 5625) (- 631629065 12347) -> 631616718) ((4091 . 5625) (- 631629066 12343) -> 631616723) ((4092 . 5625) (- 631629066 12344) -> 631616722) ((4093 . 5625) (- 631629066 12345) -> 631616721) ((4094 . 5625) (- 631629066 12346) -> 631616720) ((4095 . 5625) (- 631629066 12347) -> 631616719) ((4096 . 5625) (- 631629067 12343) -> 631616724) ((4097 . 5625) (- 631629067 12344) -> 631616723) ((4098 . 5625) (- 631629067 12345) -> 631616722) ((4099 . 5625) (- 631629067 12346) -> 631616721) ((4100 . 5625) (- 631629067 12347) -> 631616720) ((4101 . 5625) (- 631629063 4294967294) -> -3663338231) ((4102 . 5625) (- 631629063 4294967295) -> -3663338232) ((4103 . 5625) (- 631629063 4294967296) -> -3663338233) ((4104 . 5625) (- 631629063 4294967297) -> -3663338234) ((4105 . 5625) (- 631629063 4294967298) -> -3663338235) ((4106 . 5625) (- 631629064 4294967294) -> -3663338230) ((4107 . 5625) (- 631629064 4294967295) -> -3663338231) ((4108 . 5625) (- 631629064 4294967296) -> -3663338232) ((4109 . 5625) (- 631629064 4294967297) -> -3663338233) ((4110 . 5625) (- 631629064 4294967298) -> -3663338234) ((4111 . 5625) (- 631629065 4294967294) -> -3663338229) ((4112 . 5625) (- 631629065 4294967295) -> -3663338230) ((4113 . 5625) (- 631629065 4294967296) -> -3663338231) ((4114 . 5625) (- 631629065 4294967297) -> -3663338232) ((4115 . 5625) (- 631629065 4294967298) -> -3663338233) ((4116 . 5625) (- 631629066 4294967294) -> -3663338228) ((4117 . 5625) (- 631629066 4294967295) -> -3663338229) ((4118 . 5625) (- 631629066 4294967296) -> -3663338230) ((4119 . 5625) (- 631629066 4294967297) -> -3663338231) ((4120 . 5625) (- 631629066 4294967298) -> -3663338232) ((4121 . 5625) (- 631629067 4294967294) -> -3663338227) ((4122 . 5625) (- 631629067 4294967295) -> -3663338228) ((4123 . 5625) (- 631629067 4294967296) -> -3663338229) ((4124 . 5625) (- 631629067 4294967297) -> -3663338230) ((4125 . 5625) (- 631629067 4294967298) -> -3663338231) ((4126 . 5625) (- 9007199254740990 -2) -> 9007199254740992) ((4127 . 5625) (- 9007199254740990 -1) -> 9007199254740991) ((4128 . 5625) (- 9007199254740990 0) -> 9007199254740990) ((4129 . 5625) (- 9007199254740990 1) -> 9007199254740989) ((4130 . 5625) (- 9007199254740990 2) -> 9007199254740988) ((4131 . 5625) (- 9007199254740991 -2) -> 9007199254740993) ((4132 . 5625) (- 9007199254740991 -1) -> 9007199254740992) ((4133 . 5625) (- 9007199254740991 0) -> 9007199254740991) ((4134 . 5625) (- 9007199254740991 1) -> 9007199254740990) ((4135 . 5625) (- 9007199254740991 2) -> 9007199254740989) ((4136 . 5625) (- 9007199254740992 -2) -> 9007199254740994) ((4137 . 5625) (- 9007199254740992 -1) -> 9007199254740993) ((4138 . 5625) (- 9007199254740992 0) -> 9007199254740992) ((4139 . 5625) (- 9007199254740992 1) -> 9007199254740991) ((4140 . 5625) (- 9007199254740992 2) -> 9007199254740990) ((4141 . 5625) (- 9007199254740993 -2) -> 9007199254740995) ((4142 . 5625) (- 9007199254740993 -1) -> 9007199254740994) ((4143 . 5625) (- 9007199254740993 0) -> 9007199254740993) ((4144 . 5625) (- 9007199254740993 1) -> 9007199254740992) ((4145 . 5625) (- 9007199254740993 2) -> 9007199254740991) ((4146 . 5625) (- 9007199254740994 -2) -> 9007199254740996) ((4147 . 5625) (- 9007199254740994 -1) -> 9007199254740995) ((4148 . 5625) (- 9007199254740994 0) -> 9007199254740994) ((4149 . 5625) (- 9007199254740994 1) -> 9007199254740993) ((4150 . 5625) (- 9007199254740994 2) -> 9007199254740992) ((4151 . 5625) (- 9007199254740990 -1) -> 9007199254740991) ((4152 . 5625) (- 9007199254740990 0) -> 9007199254740990) ((4153 . 5625) (- 9007199254740990 1) -> 9007199254740989) ((4154 . 5625) (- 9007199254740990 2) -> 9007199254740988) ((4155 . 5625) (- 9007199254740990 3) -> 9007199254740987) ((4156 . 5625) (- 9007199254740991 -1) -> 9007199254740992) ((4157 . 5625) (- 9007199254740991 0) -> 9007199254740991) ((4158 . 5625) (- 9007199254740991 1) -> 9007199254740990) ((4159 . 5625) (- 9007199254740991 2) -> 9007199254740989) ((4160 . 5625) (- 9007199254740991 3) -> 9007199254740988) ((4161 . 5625) (- 9007199254740992 -1) -> 9007199254740993) ((4162 . 5625) (- 9007199254740992 0) -> 9007199254740992) ((4163 . 5625) (- 9007199254740992 1) -> 9007199254740991) ((4164 . 5625) (- 9007199254740992 2) -> 9007199254740990) ((4165 . 5625) (- 9007199254740992 3) -> 9007199254740989) ((4166 . 5625) (- 9007199254740993 -1) -> 9007199254740994) ((4167 . 5625) (- 9007199254740993 0) -> 9007199254740993) ((4168 . 5625) (- 9007199254740993 1) -> 9007199254740992) ((4169 . 5625) (- 9007199254740993 2) -> 9007199254740991) ((4170 . 5625) (- 9007199254740993 3) -> 9007199254740990) ((4171 . 5625) (- 9007199254740994 -1) -> 9007199254740995) ((4172 . 5625) (- 9007199254740994 0) -> 9007199254740994) ((4173 . 5625) (- 9007199254740994 1) -> 9007199254740993) ((4174 . 5625) (- 9007199254740994 2) -> 9007199254740992) ((4175 . 5625) (- 9007199254740994 3) -> 9007199254740991) ((4176 . 5625) (- 9007199254740990 -3) -> 9007199254740993) ((4177 . 5625) (- 9007199254740990 -2) -> 9007199254740992) ((4178 . 5625) (- 9007199254740990 -1) -> 9007199254740991) ((4179 . 5625) (- 9007199254740990 0) -> 9007199254740990) ((4180 . 5625) (- 9007199254740990 1) -> 9007199254740989) ((4181 . 5625) (- 9007199254740991 -3) -> 9007199254740994) ((4182 . 5625) (- 9007199254740991 -2) -> 9007199254740993) ((4183 . 5625) (- 9007199254740991 -1) -> 9007199254740992) ((4184 . 5625) (- 9007199254740991 0) -> 9007199254740991) ((4185 . 5625) (- 9007199254740991 1) -> 9007199254740990) ((4186 . 5625) (- 9007199254740992 -3) -> 9007199254740995) ((4187 . 5625) (- 9007199254740992 -2) -> 9007199254740994) ((4188 . 5625) (- 9007199254740992 -1) -> 9007199254740993) ((4189 . 5625) (- 9007199254740992 0) -> 9007199254740992) ((4190 . 5625) (- 9007199254740992 1) -> 9007199254740991) ((4191 . 5625) (- 9007199254740993 -3) -> 9007199254740996) ((4192 . 5625) (- 9007199254740993 -2) -> 9007199254740995) ((4193 . 5625) (- 9007199254740993 -1) -> 9007199254740994) ((4194 . 5625) (- 9007199254740993 0) -> 9007199254740993) ((4195 . 5625) (- 9007199254740993 1) -> 9007199254740992) ((4196 . 5625) (- 9007199254740994 -3) -> 9007199254740997) ((4197 . 5625) (- 9007199254740994 -2) -> 9007199254740996) ((4198 . 5625) (- 9007199254740994 -1) -> 9007199254740995) ((4199 . 5625) (- 9007199254740994 0) -> 9007199254740994) ((4200 . 5625) (- 9007199254740994 1) -> 9007199254740993) ((4201 . 5625) (- 9007199254740990 0) -> 9007199254740990) ((4202 . 5625) (- 9007199254740990 1) -> 9007199254740989) ((4203 . 5625) (- 9007199254740990 2) -> 9007199254740988) ((4204 . 5625) (- 9007199254740990 3) -> 9007199254740987) ((4205 . 5625) (- 9007199254740990 4) -> 9007199254740986) ((4206 . 5625) (- 9007199254740991 0) -> 9007199254740991) ((4207 . 5625) (- 9007199254740991 1) -> 9007199254740990) ((4208 . 5625) (- 9007199254740991 2) -> 9007199254740989) ((4209 . 5625) (- 9007199254740991 3) -> 9007199254740988) ((4210 . 5625) (- 9007199254740991 4) -> 9007199254740987) ((4211 . 5625) (- 9007199254740992 0) -> 9007199254740992) ((4212 . 5625) (- 9007199254740992 1) -> 9007199254740991) ((4213 . 5625) (- 9007199254740992 2) -> 9007199254740990) ((4214 . 5625) (- 9007199254740992 3) -> 9007199254740989) ((4215 . 5625) (- 9007199254740992 4) -> 9007199254740988) ((4216 . 5625) (- 9007199254740993 0) -> 9007199254740993) ((4217 . 5625) (- 9007199254740993 1) -> 9007199254740992) ((4218 . 5625) (- 9007199254740993 2) -> 9007199254740991) ((4219 . 5625) (- 9007199254740993 3) -> 9007199254740990) ((4220 . 5625) (- 9007199254740993 4) -> 9007199254740989) ((4221 . 5625) (- 9007199254740994 0) -> 9007199254740994) ((4222 . 5625) (- 9007199254740994 1) -> 9007199254740993) ((4223 . 5625) (- 9007199254740994 2) -> 9007199254740992) ((4224 . 5625) (- 9007199254740994 3) -> 9007199254740991) ((4225 . 5625) (- 9007199254740994 4) -> 9007199254740990) ((4226 . 5625) (- 9007199254740990 -4) -> 9007199254740994) ((4227 . 5625) (- 9007199254740990 -3) -> 9007199254740993) ((4228 . 5625) (- 9007199254740990 -2) -> 9007199254740992) ((4229 . 5625) (- 9007199254740990 -1) -> 9007199254740991) ((4230 . 5625) (- 9007199254740990 0) -> 9007199254740990) ((4231 . 5625) (- 9007199254740991 -4) -> 9007199254740995) ((4232 . 5625) (- 9007199254740991 -3) -> 9007199254740994) ((4233 . 5625) (- 9007199254740991 -2) -> 9007199254740993) ((4234 . 5625) (- 9007199254740991 -1) -> 9007199254740992) ((4235 . 5625) (- 9007199254740991 0) -> 9007199254740991) ((4236 . 5625) (- 9007199254740992 -4) -> 9007199254740996) ((4237 . 5625) (- 9007199254740992 -3) -> 9007199254740995) ((4238 . 5625) (- 9007199254740992 -2) -> 9007199254740994) ((4239 . 5625) (- 9007199254740992 -1) -> 9007199254740993) ((4240 . 5625) (- 9007199254740992 0) -> 9007199254740992) ((4241 . 5625) (- 9007199254740993 -4) -> 9007199254740997) ((4242 . 5625) (- 9007199254740993 -3) -> 9007199254740996) ((4243 . 5625) (- 9007199254740993 -2) -> 9007199254740995) ((4244 . 5625) (- 9007199254740993 -1) -> 9007199254740994) ((4245 . 5625) (- 9007199254740993 0) -> 9007199254740993) ((4246 . 5625) (- 9007199254740994 -4) -> 9007199254740998) ((4247 . 5625) (- 9007199254740994 -3) -> 9007199254740997) ((4248 . 5625) (- 9007199254740994 -2) -> 9007199254740996) ((4249 . 5625) (- 9007199254740994 -1) -> 9007199254740995) ((4250 . 5625) (- 9007199254740994 0) -> 9007199254740994) ((4251 . 5625) (- 9007199254740990 4611686018427387901) -> -4602678819172646911) ((4252 . 5625) (- 9007199254740990 4611686018427387902) -> -4602678819172646912) ((4253 . 5625) (- 9007199254740990 4611686018427387903) -> -4602678819172646913) ((4254 . 5625) (- 9007199254740990 4611686018427387904) -> -4602678819172646914) ((4255 . 5625) (- 9007199254740990 4611686018427387905) -> -4602678819172646915) ((4256 . 5625) (- 9007199254740991 4611686018427387901) -> -4602678819172646910) ((4257 . 5625) (- 9007199254740991 4611686018427387902) -> -4602678819172646911) ((4258 . 5625) (- 9007199254740991 4611686018427387903) -> -4602678819172646912) ((4259 . 5625) (- 9007199254740991 4611686018427387904) -> -4602678819172646913) ((4260 . 5625) (- 9007199254740991 4611686018427387905) -> -4602678819172646914) ((4261 . 5625) (- 9007199254740992 4611686018427387901) -> -4602678819172646909) ((4262 . 5625) (- 9007199254740992 4611686018427387902) -> -4602678819172646910) ((4263 . 5625) (- 9007199254740992 4611686018427387903) -> -4602678819172646911) ((4264 . 5625) (- 9007199254740992 4611686018427387904) -> -4602678819172646912) ((4265 . 5625) (- 9007199254740992 4611686018427387905) -> -4602678819172646913) ((4266 . 5625) (- 9007199254740993 4611686018427387901) -> -4602678819172646908) ((4267 . 5625) (- 9007199254740993 4611686018427387902) -> -4602678819172646909) ((4268 . 5625) (- 9007199254740993 4611686018427387903) -> -4602678819172646910) ((4269 . 5625) (- 9007199254740993 4611686018427387904) -> -4602678819172646911) ((4270 . 5625) (- 9007199254740993 4611686018427387905) -> -4602678819172646912) ((4271 . 5625) (- 9007199254740994 4611686018427387901) -> -4602678819172646907) ((4272 . 5625) (- 9007199254740994 4611686018427387902) -> -4602678819172646908) ((4273 . 5625) (- 9007199254740994 4611686018427387903) -> -4602678819172646909) ((4274 . 5625) (- 9007199254740994 4611686018427387904) -> -4602678819172646910) ((4275 . 5625) (- 9007199254740994 4611686018427387905) -> -4602678819172646911) ((4276 . 5625) (- 9007199254740990 -4611686018427387906) -> 4620693217682128896) ((4277 . 5625) (- 9007199254740990 -4611686018427387905) -> 4620693217682128895) ((4278 . 5625) (- 9007199254740990 -4611686018427387904) -> 4620693217682128894) ((4279 . 5625) (- 9007199254740990 -4611686018427387903) -> 4620693217682128893) ((4280 . 5625) (- 9007199254740990 -4611686018427387902) -> 4620693217682128892) ((4281 . 5625) (- 9007199254740991 -4611686018427387906) -> 4620693217682128897) ((4282 . 5625) (- 9007199254740991 -4611686018427387905) -> 4620693217682128896) ((4283 . 5625) (- 9007199254740991 -4611686018427387904) -> 4620693217682128895) ((4284 . 5625) (- 9007199254740991 -4611686018427387903) -> 4620693217682128894) ((4285 . 5625) (- 9007199254740991 -4611686018427387902) -> 4620693217682128893) ((4286 . 5625) (- 9007199254740992 -4611686018427387906) -> 4620693217682128898) ((4287 . 5625) (- 9007199254740992 -4611686018427387905) -> 4620693217682128897) ((4288 . 5625) (- 9007199254740992 -4611686018427387904) -> 4620693217682128896) ((4289 . 5625) (- 9007199254740992 -4611686018427387903) -> 4620693217682128895) ((4290 . 5625) (- 9007199254740992 -4611686018427387902) -> 4620693217682128894) ((4291 . 5625) (- 9007199254740993 -4611686018427387906) -> 4620693217682128899) ((4292 . 5625) (- 9007199254740993 -4611686018427387905) -> 4620693217682128898) ((4293 . 5625) (- 9007199254740993 -4611686018427387904) -> 4620693217682128897) ((4294 . 5625) (- 9007199254740993 -4611686018427387903) -> 4620693217682128896) ((4295 . 5625) (- 9007199254740993 -4611686018427387902) -> 4620693217682128895) ((4296 . 5625) (- 9007199254740994 -4611686018427387906) -> 4620693217682128900) ((4297 . 5625) (- 9007199254740994 -4611686018427387905) -> 4620693217682128899) ((4298 . 5625) (- 9007199254740994 -4611686018427387904) -> 4620693217682128898) ((4299 . 5625) (- 9007199254740994 -4611686018427387903) -> 4620693217682128897) ((4300 . 5625) (- 9007199254740994 -4611686018427387902) -> 4620693217682128896) ((4301 . 5625) (- 9007199254740990 4611686018427387902) -> -4602678819172646912) ((4302 . 5625) (- 9007199254740990 4611686018427387903) -> -4602678819172646913) ((4303 . 5625) (- 9007199254740990 4611686018427387904) -> -4602678819172646914) ((4304 . 5625) (- 9007199254740990 4611686018427387905) -> -4602678819172646915) ((4305 . 5625) (- 9007199254740990 4611686018427387906) -> -4602678819172646916) ((4306 . 5625) (- 9007199254740991 4611686018427387902) -> -4602678819172646911) ((4307 . 5625) (- 9007199254740991 4611686018427387903) -> -4602678819172646912) ((4308 . 5625) (- 9007199254740991 4611686018427387904) -> -4602678819172646913) ((4309 . 5625) (- 9007199254740991 4611686018427387905) -> -4602678819172646914) ((4310 . 5625) (- 9007199254740991 4611686018427387906) -> -4602678819172646915) ((4311 . 5625) (- 9007199254740992 4611686018427387902) -> -4602678819172646910) ((4312 . 5625) (- 9007199254740992 4611686018427387903) -> -4602678819172646911) ((4313 . 5625) (- 9007199254740992 4611686018427387904) -> -4602678819172646912) ((4314 . 5625) (- 9007199254740992 4611686018427387905) -> -4602678819172646913) ((4315 . 5625) (- 9007199254740992 4611686018427387906) -> -4602678819172646914) ((4316 . 5625) (- 9007199254740993 4611686018427387902) -> -4602678819172646909) ((4317 . 5625) (- 9007199254740993 4611686018427387903) -> -4602678819172646910) ((4318 . 5625) (- 9007199254740993 4611686018427387904) -> -4602678819172646911) ((4319 . 5625) (- 9007199254740993 4611686018427387905) -> -4602678819172646912) ((4320 . 5625) (- 9007199254740993 4611686018427387906) -> -4602678819172646913) ((4321 . 5625) (- 9007199254740994 4611686018427387902) -> -4602678819172646908) ((4322 . 5625) (- 9007199254740994 4611686018427387903) -> -4602678819172646909) ((4323 . 5625) (- 9007199254740994 4611686018427387904) -> -4602678819172646910) ((4324 . 5625) (- 9007199254740994 4611686018427387905) -> -4602678819172646911) ((4325 . 5625) (- 9007199254740994 4611686018427387906) -> -4602678819172646912) ((4326 . 5625) (- 9007199254740990 -4611686018427387907) -> 4620693217682128897) ((4327 . 5625) (- 9007199254740990 -4611686018427387906) -> 4620693217682128896) ((4328 . 5625) (- 9007199254740990 -4611686018427387905) -> 4620693217682128895) ((4329 . 5625) (- 9007199254740990 -4611686018427387904) -> 4620693217682128894) ((4330 . 5625) (- 9007199254740990 -4611686018427387903) -> 4620693217682128893) ((4331 . 5625) (- 9007199254740991 -4611686018427387907) -> 4620693217682128898) ((4332 . 5625) (- 9007199254740991 -4611686018427387906) -> 4620693217682128897) ((4333 . 5625) (- 9007199254740991 -4611686018427387905) -> 4620693217682128896) ((4334 . 5625) (- 9007199254740991 -4611686018427387904) -> 4620693217682128895) ((4335 . 5625) (- 9007199254740991 -4611686018427387903) -> 4620693217682128894) ((4336 . 5625) (- 9007199254740992 -4611686018427387907) -> 4620693217682128899) ((4337 . 5625) (- 9007199254740992 -4611686018427387906) -> 4620693217682128898) ((4338 . 5625) (- 9007199254740992 -4611686018427387905) -> 4620693217682128897) ((4339 . 5625) (- 9007199254740992 -4611686018427387904) -> 4620693217682128896) ((4340 . 5625) (- 9007199254740992 -4611686018427387903) -> 4620693217682128895) ((4341 . 5625) (- 9007199254740993 -4611686018427387907) -> 4620693217682128900) ((4342 . 5625) (- 9007199254740993 -4611686018427387906) -> 4620693217682128899) ((4343 . 5625) (- 9007199254740993 -4611686018427387905) -> 4620693217682128898) ((4344 . 5625) (- 9007199254740993 -4611686018427387904) -> 4620693217682128897) ((4345 . 5625) (- 9007199254740993 -4611686018427387903) -> 4620693217682128896) ((4346 . 5625) (- 9007199254740994 -4611686018427387907) -> 4620693217682128901) ((4347 . 5625) (- 9007199254740994 -4611686018427387906) -> 4620693217682128900) ((4348 . 5625) (- 9007199254740994 -4611686018427387905) -> 4620693217682128899) ((4349 . 5625) (- 9007199254740994 -4611686018427387904) -> 4620693217682128898) ((4350 . 5625) (- 9007199254740994 -4611686018427387903) -> 4620693217682128897) ((4351 . 5625) (- 9007199254740990 1103515243) -> 9007198151225747) ((4352 . 5625) (- 9007199254740990 1103515244) -> 9007198151225746) ((4353 . 5625) (- 9007199254740990 1103515245) -> 9007198151225745) ((4354 . 5625) (- 9007199254740990 1103515246) -> 9007198151225744) ((4355 . 5625) (- 9007199254740990 1103515247) -> 9007198151225743) ((4356 . 5625) (- 9007199254740991 1103515243) -> 9007198151225748) ((4357 . 5625) (- 9007199254740991 1103515244) -> 9007198151225747) ((4358 . 5625) (- 9007199254740991 1103515245) -> 9007198151225746) ((4359 . 5625) (- 9007199254740991 1103515246) -> 9007198151225745) ((4360 . 5625) (- 9007199254740991 1103515247) -> 9007198151225744) ((4361 . 5625) (- 9007199254740992 1103515243) -> 9007198151225749) ((4362 . 5625) (- 9007199254740992 1103515244) -> 9007198151225748) ((4363 . 5625) (- 9007199254740992 1103515245) -> 9007198151225747) ((4364 . 5625) (- 9007199254740992 1103515246) -> 9007198151225746) ((4365 . 5625) (- 9007199254740992 1103515247) -> 9007198151225745) ((4366 . 5625) (- 9007199254740993 1103515243) -> 9007198151225750) ((4367 . 5625) (- 9007199254740993 1103515244) -> 9007198151225749) ((4368 . 5625) (- 9007199254740993 1103515245) -> 9007198151225748) ((4369 . 5625) (- 9007199254740993 1103515246) -> 9007198151225747) ((4370 . 5625) (- 9007199254740993 1103515247) -> 9007198151225746) ((4371 . 5625) (- 9007199254740994 1103515243) -> 9007198151225751) ((4372 . 5625) (- 9007199254740994 1103515244) -> 9007198151225750) ((4373 . 5625) (- 9007199254740994 1103515245) -> 9007198151225749) ((4374 . 5625) (- 9007199254740994 1103515246) -> 9007198151225748) ((4375 . 5625) (- 9007199254740994 1103515247) -> 9007198151225747) ((4376 . 5625) (- 9007199254740990 631629063) -> 9007198623111927) ((4377 . 5625) (- 9007199254740990 631629064) -> 9007198623111926) ((4378 . 5625) (- 9007199254740990 631629065) -> 9007198623111925) ((4379 . 5625) (- 9007199254740990 631629066) -> 9007198623111924) ((4380 . 5625) (- 9007199254740990 631629067) -> 9007198623111923) ((4381 . 5625) (- 9007199254740991 631629063) -> 9007198623111928) ((4382 . 5625) (- 9007199254740991 631629064) -> 9007198623111927) ((4383 . 5625) (- 9007199254740991 631629065) -> 9007198623111926) ((4384 . 5625) (- 9007199254740991 631629066) -> 9007198623111925) ((4385 . 5625) (- 9007199254740991 631629067) -> 9007198623111924) ((4386 . 5625) (- 9007199254740992 631629063) -> 9007198623111929) ((4387 . 5625) (- 9007199254740992 631629064) -> 9007198623111928) ((4388 . 5625) (- 9007199254740992 631629065) -> 9007198623111927) ((4389 . 5625) (- 9007199254740992 631629066) -> 9007198623111926) ((4390 . 5625) (- 9007199254740992 631629067) -> 9007198623111925) ((4391 . 5625) (- 9007199254740993 631629063) -> 9007198623111930) ((4392 . 5625) (- 9007199254740993 631629064) -> 9007198623111929) ((4393 . 5625) (- 9007199254740993 631629065) -> 9007198623111928) ((4394 . 5625) (- 9007199254740993 631629066) -> 9007198623111927) ((4395 . 5625) (- 9007199254740993 631629067) -> 9007198623111926) ((4396 . 5625) (- 9007199254740994 631629063) -> 9007198623111931) ((4397 . 5625) (- 9007199254740994 631629064) -> 9007198623111930) ((4398 . 5625) (- 9007199254740994 631629065) -> 9007198623111929) ((4399 . 5625) (- 9007199254740994 631629066) -> 9007198623111928) ((4400 . 5625) (- 9007199254740994 631629067) -> 9007198623111927) ((4401 . 5625) (- 9007199254740990 9007199254740990) -> 0) ((4402 . 5625) (- 9007199254740990 9007199254740991) -> -1) ((4403 . 5625) (- 9007199254740990 9007199254740992) -> -2) ((4404 . 5625) (- 9007199254740990 9007199254740993) -> -3) ((4405 . 5625) (- 9007199254740990 9007199254740994) -> -4) ((4406 . 5625) (- 9007199254740991 9007199254740990) -> 1) ((4407 . 5625) (- 9007199254740991 9007199254740991) -> 0) ((4408 . 5625) (- 9007199254740991 9007199254740992) -> -1) ((4409 . 5625) (- 9007199254740991 9007199254740993) -> -2) ((4410 . 5625) (- 9007199254740991 9007199254740994) -> -3) ((4411 . 5625) (- 9007199254740992 9007199254740990) -> 2) ((4412 . 5625) (- 9007199254740992 9007199254740991) -> 1) ((4413 . 5625) (- 9007199254740992 9007199254740992) -> 0) ((4414 . 5625) (- 9007199254740992 9007199254740993) -> -1) ((4415 . 5625) (- 9007199254740992 9007199254740994) -> -2) ((4416 . 5625) (- 9007199254740993 9007199254740990) -> 3) ((4417 . 5625) (- 9007199254740993 9007199254740991) -> 2) ((4418 . 5625) (- 9007199254740993 9007199254740992) -> 1) ((4419 . 5625) (- 9007199254740993 9007199254740993) -> 0) ((4420 . 5625) (- 9007199254740993 9007199254740994) -> -1) ((4421 . 5625) (- 9007199254740994 9007199254740990) -> 4) ((4422 . 5625) (- 9007199254740994 9007199254740991) -> 3) ((4423 . 5625) (- 9007199254740994 9007199254740992) -> 2) ((4424 . 5625) (- 9007199254740994 9007199254740993) -> 1) ((4425 . 5625) (- 9007199254740994 9007199254740994) -> 0) ((4426 . 5625) (- 9007199254740990 -9007199254740994) -> 18014398509481984) ((4427 . 5625) (- 9007199254740990 -9007199254740993) -> 18014398509481983) ((4428 . 5625) (- 9007199254740990 -9007199254740992) -> 18014398509481982) ((4429 . 5625) (- 9007199254740990 -9007199254740991) -> 18014398509481981) ((4430 . 5625) (- 9007199254740990 -9007199254740990) -> 18014398509481980) ((4431 . 5625) (- 9007199254740991 -9007199254740994) -> 18014398509481985) ((4432 . 5625) (- 9007199254740991 -9007199254740993) -> 18014398509481984) ((4433 . 5625) (- 9007199254740991 -9007199254740992) -> 18014398509481983) ((4434 . 5625) (- 9007199254740991 -9007199254740991) -> 18014398509481982) ((4435 . 5625) (- 9007199254740991 -9007199254740990) -> 18014398509481981) ((4436 . 5625) (- 9007199254740992 -9007199254740994) -> 18014398509481986) ((4437 . 5625) (- 9007199254740992 -9007199254740993) -> 18014398509481985) ((4438 . 5625) (- 9007199254740992 -9007199254740992) -> 18014398509481984) ((4439 . 5625) (- 9007199254740992 -9007199254740991) -> 18014398509481983) ((4440 . 5625) (- 9007199254740992 -9007199254740990) -> 18014398509481982) ((4441 . 5625) (- 9007199254740993 -9007199254740994) -> 18014398509481987) ((4442 . 5625) (- 9007199254740993 -9007199254740993) -> 18014398509481986) ((4443 . 5625) (- 9007199254740993 -9007199254740992) -> 18014398509481985) ((4444 . 5625) (- 9007199254740993 -9007199254740991) -> 18014398509481984) ((4445 . 5625) (- 9007199254740993 -9007199254740990) -> 18014398509481983) ((4446 . 5625) (- 9007199254740994 -9007199254740994) -> 18014398509481988) ((4447 . 5625) (- 9007199254740994 -9007199254740993) -> 18014398509481987) ((4448 . 5625) (- 9007199254740994 -9007199254740992) -> 18014398509481986) ((4449 . 5625) (- 9007199254740994 -9007199254740991) -> 18014398509481985) ((4450 . 5625) (- 9007199254740994 -9007199254740990) -> 18014398509481984) ((4451 . 5625) (- 9007199254740990 12343) -> 9007199254728647) ((4452 . 5625) (- 9007199254740990 12344) -> 9007199254728646) ((4453 . 5625) (- 9007199254740990 12345) -> 9007199254728645) ((4454 . 5625) (- 9007199254740990 12346) -> 9007199254728644) ((4455 . 5625) (- 9007199254740990 12347) -> 9007199254728643) ((4456 . 5625) (- 9007199254740991 12343) -> 9007199254728648) ((4457 . 5625) (- 9007199254740991 12344) -> 9007199254728647) ((4458 . 5625) (- 9007199254740991 12345) -> 9007199254728646) ((4459 . 5625) (- 9007199254740991 12346) -> 9007199254728645) ((4460 . 5625) (- 9007199254740991 12347) -> 9007199254728644) ((4461 . 5625) (- 9007199254740992 12343) -> 9007199254728649) ((4462 . 5625) (- 9007199254740992 12344) -> 9007199254728648) ((4463 . 5625) (- 9007199254740992 12345) -> 9007199254728647) ((4464 . 5625) (- 9007199254740992 12346) -> 9007199254728646) ((4465 . 5625) (- 9007199254740992 12347) -> 9007199254728645) ((4466 . 5625) (- 9007199254740993 12343) -> 9007199254728650) ((4467 . 5625) (- 9007199254740993 12344) -> 9007199254728649) ((4468 . 5625) (- 9007199254740993 12345) -> 9007199254728648) ((4469 . 5625) (- 9007199254740993 12346) -> 9007199254728647) ((4470 . 5625) (- 9007199254740993 12347) -> 9007199254728646) ((4471 . 5625) (- 9007199254740994 12343) -> 9007199254728651) ((4472 . 5625) (- 9007199254740994 12344) -> 9007199254728650) ((4473 . 5625) (- 9007199254740994 12345) -> 9007199254728649) ((4474 . 5625) (- 9007199254740994 12346) -> 9007199254728648) ((4475 . 5625) (- 9007199254740994 12347) -> 9007199254728647) ((4476 . 5625) (- 9007199254740990 4294967294) -> 9007194959773696) ((4477 . 5625) (- 9007199254740990 4294967295) -> 9007194959773695) ((4478 . 5625) (- 9007199254740990 4294967296) -> 9007194959773694) ((4479 . 5625) (- 9007199254740990 4294967297) -> 9007194959773693) ((4480 . 5625) (- 9007199254740990 4294967298) -> 9007194959773692) ((4481 . 5625) (- 9007199254740991 4294967294) -> 9007194959773697) ((4482 . 5625) (- 9007199254740991 4294967295) -> 9007194959773696) ((4483 . 5625) (- 9007199254740991 4294967296) -> 9007194959773695) ((4484 . 5625) (- 9007199254740991 4294967297) -> 9007194959773694) ((4485 . 5625) (- 9007199254740991 4294967298) -> 9007194959773693) ((4486 . 5625) (- 9007199254740992 4294967294) -> 9007194959773698) ((4487 . 5625) (- 9007199254740992 4294967295) -> 9007194959773697) ((4488 . 5625) (- 9007199254740992 4294967296) -> 9007194959773696) ((4489 . 5625) (- 9007199254740992 4294967297) -> 9007194959773695) ((4490 . 5625) (- 9007199254740992 4294967298) -> 9007194959773694) ((4491 . 5625) (- 9007199254740993 4294967294) -> 9007194959773699) ((4492 . 5625) (- 9007199254740993 4294967295) -> 9007194959773698) ((4493 . 5625) (- 9007199254740993 4294967296) -> 9007194959773697) ((4494 . 5625) (- 9007199254740993 4294967297) -> 9007194959773696) ((4495 . 5625) (- 9007199254740993 4294967298) -> 9007194959773695) ((4496 . 5625) (- 9007199254740994 4294967294) -> 9007194959773700) ((4497 . 5625) (- 9007199254740994 4294967295) -> 9007194959773699) ((4498 . 5625) (- 9007199254740994 4294967296) -> 9007194959773698) ((4499 . 5625) (- 9007199254740994 4294967297) -> 9007194959773697) ((4500 . 5625) (- 9007199254740994 4294967298) -> 9007194959773696) ((4501 . 5625) (- -9007199254740994 -2) -> -9007199254740992) ((4502 . 5625) (- -9007199254740994 -1) -> -9007199254740993) ((4503 . 5625) (- -9007199254740994 0) -> -9007199254740994) ((4504 . 5625) (- -9007199254740994 1) -> -9007199254740995) ((4505 . 5625) (- -9007199254740994 2) -> -9007199254740996) ((4506 . 5625) (- -9007199254740993 -2) -> -9007199254740991) ((4507 . 5625) (- -9007199254740993 -1) -> -9007199254740992) ((4508 . 5625) (- -9007199254740993 0) -> -9007199254740993) ((4509 . 5625) (- -9007199254740993 1) -> -9007199254740994) ((4510 . 5625) (- -9007199254740993 2) -> -9007199254740995) ((4511 . 5625) (- -9007199254740992 -2) -> -9007199254740990) ((4512 . 5625) (- -9007199254740992 -1) -> -9007199254740991) ((4513 . 5625) (- -9007199254740992 0) -> -9007199254740992) ((4514 . 5625) (- -9007199254740992 1) -> -9007199254740993) ((4515 . 5625) (- -9007199254740992 2) -> -9007199254740994) ((4516 . 5625) (- -9007199254740991 -2) -> -9007199254740989) ((4517 . 5625) (- -9007199254740991 -1) -> -9007199254740990) ((4518 . 5625) (- -9007199254740991 0) -> -9007199254740991) ((4519 . 5625) (- -9007199254740991 1) -> -9007199254740992) ((4520 . 5625) (- -9007199254740991 2) -> -9007199254740993) ((4521 . 5625) (- -9007199254740990 -2) -> -9007199254740988) ((4522 . 5625) (- -9007199254740990 -1) -> -9007199254740989) ((4523 . 5625) (- -9007199254740990 0) -> -9007199254740990) ((4524 . 5625) (- -9007199254740990 1) -> -9007199254740991) ((4525 . 5625) (- -9007199254740990 2) -> -9007199254740992) ((4526 . 5625) (- -9007199254740994 -1) -> -9007199254740993) ((4527 . 5625) (- -9007199254740994 0) -> -9007199254740994) ((4528 . 5625) (- -9007199254740994 1) -> -9007199254740995) ((4529 . 5625) (- -9007199254740994 2) -> -9007199254740996) ((4530 . 5625) (- -9007199254740994 3) -> -9007199254740997) ((4531 . 5625) (- -9007199254740993 -1) -> -9007199254740992) ((4532 . 5625) (- -9007199254740993 0) -> -9007199254740993) ((4533 . 5625) (- -9007199254740993 1) -> -9007199254740994) ((4534 . 5625) (- -9007199254740993 2) -> -9007199254740995) ((4535 . 5625) (- -9007199254740993 3) -> -9007199254740996) ((4536 . 5625) (- -9007199254740992 -1) -> -9007199254740991) ((4537 . 5625) (- -9007199254740992 0) -> -9007199254740992) ((4538 . 5625) (- -9007199254740992 1) -> -9007199254740993) ((4539 . 5625) (- -9007199254740992 2) -> -9007199254740994) ((4540 . 5625) (- -9007199254740992 3) -> -9007199254740995) ((4541 . 5625) (- -9007199254740991 -1) -> -9007199254740990) ((4542 . 5625) (- -9007199254740991 0) -> -9007199254740991) ((4543 . 5625) (- -9007199254740991 1) -> -9007199254740992) ((4544 . 5625) (- -9007199254740991 2) -> -9007199254740993) ((4545 . 5625) (- -9007199254740991 3) -> -9007199254740994) ((4546 . 5625) (- -9007199254740990 -1) -> -9007199254740989) ((4547 . 5625) (- -9007199254740990 0) -> -9007199254740990) ((4548 . 5625) (- -9007199254740990 1) -> -9007199254740991) ((4549 . 5625) (- -9007199254740990 2) -> -9007199254740992) ((4550 . 5625) (- -9007199254740990 3) -> -9007199254740993) ((4551 . 5625) (- -9007199254740994 -3) -> -9007199254740991) ((4552 . 5625) (- -9007199254740994 -2) -> -9007199254740992) ((4553 . 5625) (- -9007199254740994 -1) -> -9007199254740993) ((4554 . 5625) (- -9007199254740994 0) -> -9007199254740994) ((4555 . 5625) (- -9007199254740994 1) -> -9007199254740995) ((4556 . 5625) (- -9007199254740993 -3) -> -9007199254740990) ((4557 . 5625) (- -9007199254740993 -2) -> -9007199254740991) ((4558 . 5625) (- -9007199254740993 -1) -> -9007199254740992) ((4559 . 5625) (- -9007199254740993 0) -> -9007199254740993) ((4560 . 5625) (- -9007199254740993 1) -> -9007199254740994) ((4561 . 5625) (- -9007199254740992 -3) -> -9007199254740989) ((4562 . 5625) (- -9007199254740992 -2) -> -9007199254740990) ((4563 . 5625) (- -9007199254740992 -1) -> -9007199254740991) ((4564 . 5625) (- -9007199254740992 0) -> -9007199254740992) ((4565 . 5625) (- -9007199254740992 1) -> -9007199254740993) ((4566 . 5625) (- -9007199254740991 -3) -> -9007199254740988) ((4567 . 5625) (- -9007199254740991 -2) -> -9007199254740989) ((4568 . 5625) (- -9007199254740991 -1) -> -9007199254740990) ((4569 . 5625) (- -9007199254740991 0) -> -9007199254740991) ((4570 . 5625) (- -9007199254740991 1) -> -9007199254740992) ((4571 . 5625) (- -9007199254740990 -3) -> -9007199254740987) ((4572 . 5625) (- -9007199254740990 -2) -> -9007199254740988) ((4573 . 5625) (- -9007199254740990 -1) -> -9007199254740989) ((4574 . 5625) (- -9007199254740990 0) -> -9007199254740990) ((4575 . 5625) (- -9007199254740990 1) -> -9007199254740991) ((4576 . 5625) (- -9007199254740994 0) -> -9007199254740994) ((4577 . 5625) (- -9007199254740994 1) -> -9007199254740995) ((4578 . 5625) (- -9007199254740994 2) -> -9007199254740996) ((4579 . 5625) (- -9007199254740994 3) -> -9007199254740997) ((4580 . 5625) (- -9007199254740994 4) -> -9007199254740998) ((4581 . 5625) (- -9007199254740993 0) -> -9007199254740993) ((4582 . 5625) (- -9007199254740993 1) -> -9007199254740994) ((4583 . 5625) (- -9007199254740993 2) -> -9007199254740995) ((4584 . 5625) (- -9007199254740993 3) -> -9007199254740996) ((4585 . 5625) (- -9007199254740993 4) -> -9007199254740997) ((4586 . 5625) (- -9007199254740992 0) -> -9007199254740992) ((4587 . 5625) (- -9007199254740992 1) -> -9007199254740993) ((4588 . 5625) (- -9007199254740992 2) -> -9007199254740994) ((4589 . 5625) (- -9007199254740992 3) -> -9007199254740995) ((4590 . 5625) (- -9007199254740992 4) -> -9007199254740996) ((4591 . 5625) (- -9007199254740991 0) -> -9007199254740991) ((4592 . 5625) (- -9007199254740991 1) -> -9007199254740992) ((4593 . 5625) (- -9007199254740991 2) -> -9007199254740993) ((4594 . 5625) (- -9007199254740991 3) -> -9007199254740994) ((4595 . 5625) (- -9007199254740991 4) -> -9007199254740995) ((4596 . 5625) (- -9007199254740990 0) -> -9007199254740990) ((4597 . 5625) (- -9007199254740990 1) -> -9007199254740991) ((4598 . 5625) (- -9007199254740990 2) -> -9007199254740992) ((4599 . 5625) (- -9007199254740990 3) -> -9007199254740993) ((4600 . 5625) (- -9007199254740990 4) -> -9007199254740994) ((4601 . 5625) (- -9007199254740994 -4) -> -9007199254740990) ((4602 . 5625) (- -9007199254740994 -3) -> -9007199254740991) ((4603 . 5625) (- -9007199254740994 -2) -> -9007199254740992) ((4604 . 5625) (- -9007199254740994 -1) -> -9007199254740993) ((4605 . 5625) (- -9007199254740994 0) -> -9007199254740994) ((4606 . 5625) (- -9007199254740993 -4) -> -9007199254740989) ((4607 . 5625) (- -9007199254740993 -3) -> -9007199254740990) ((4608 . 5625) (- -9007199254740993 -2) -> -9007199254740991) ((4609 . 5625) (- -9007199254740993 -1) -> -9007199254740992) ((4610 . 5625) (- -9007199254740993 0) -> -9007199254740993) ((4611 . 5625) (- -9007199254740992 -4) -> -9007199254740988) ((4612 . 5625) (- -9007199254740992 -3) -> -9007199254740989) ((4613 . 5625) (- -9007199254740992 -2) -> -9007199254740990) ((4614 . 5625) (- -9007199254740992 -1) -> -9007199254740991) ((4615 . 5625) (- -9007199254740992 0) -> -9007199254740992) ((4616 . 5625) (- -9007199254740991 -4) -> -9007199254740987) ((4617 . 5625) (- -9007199254740991 -3) -> -9007199254740988) ((4618 . 5625) (- -9007199254740991 -2) -> -9007199254740989) ((4619 . 5625) (- -9007199254740991 -1) -> -9007199254740990) ((4620 . 5625) (- -9007199254740991 0) -> -9007199254740991) ((4621 . 5625) (- -9007199254740990 -4) -> -9007199254740986) ((4622 . 5625) (- -9007199254740990 -3) -> -9007199254740987) ((4623 . 5625) (- -9007199254740990 -2) -> -9007199254740988) ((4624 . 5625) (- -9007199254740990 -1) -> -9007199254740989) ((4625 . 5625) (- -9007199254740990 0) -> -9007199254740990) ((4626 . 5625) (- -9007199254740994 4611686018427387901) -> -4620693217682128895) ((4627 . 5625) (- -9007199254740994 4611686018427387902) -> -4620693217682128896) ((4628 . 5625) (- -9007199254740994 4611686018427387903) -> -4620693217682128897) ((4629 . 5625) (- -9007199254740994 4611686018427387904) -> -4620693217682128898) ((4630 . 5625) (- -9007199254740994 4611686018427387905) -> -4620693217682128899) ((4631 . 5625) (- -9007199254740993 4611686018427387901) -> -4620693217682128894) ((4632 . 5625) (- -9007199254740993 4611686018427387902) -> -4620693217682128895) ((4633 . 5625) (- -9007199254740993 4611686018427387903) -> -4620693217682128896) ((4634 . 5625) (- -9007199254740993 4611686018427387904) -> -4620693217682128897) ((4635 . 5625) (- -9007199254740993 4611686018427387905) -> -4620693217682128898) ((4636 . 5625) (- -9007199254740992 4611686018427387901) -> -4620693217682128893) ((4637 . 5625) (- -9007199254740992 4611686018427387902) -> -4620693217682128894) ((4638 . 5625) (- -9007199254740992 4611686018427387903) -> -4620693217682128895) ((4639 . 5625) (- -9007199254740992 4611686018427387904) -> -4620693217682128896) ((4640 . 5625) (- -9007199254740992 4611686018427387905) -> -4620693217682128897) ((4641 . 5625) (- -9007199254740991 4611686018427387901) -> -4620693217682128892) ((4642 . 5625) (- -9007199254740991 4611686018427387902) -> -4620693217682128893) ((4643 . 5625) (- -9007199254740991 4611686018427387903) -> -4620693217682128894) ((4644 . 5625) (- -9007199254740991 4611686018427387904) -> -4620693217682128895) ((4645 . 5625) (- -9007199254740991 4611686018427387905) -> -4620693217682128896) ((4646 . 5625) (- -9007199254740990 4611686018427387901) -> -4620693217682128891) ((4647 . 5625) (- -9007199254740990 4611686018427387902) -> -4620693217682128892) ((4648 . 5625) (- -9007199254740990 4611686018427387903) -> -4620693217682128893) ((4649 . 5625) (- -9007199254740990 4611686018427387904) -> -4620693217682128894) ((4650 . 5625) (- -9007199254740990 4611686018427387905) -> -4620693217682128895) ((4651 . 5625) (- -9007199254740994 -4611686018427387906) -> 4602678819172646912) ((4652 . 5625) (- -9007199254740994 -4611686018427387905) -> 4602678819172646911) ((4653 . 5625) (- -9007199254740994 -4611686018427387904) -> 4602678819172646910) ((4654 . 5625) (- -9007199254740994 -4611686018427387903) -> 4602678819172646909) ((4655 . 5625) (- -9007199254740994 -4611686018427387902) -> 4602678819172646908) ((4656 . 5625) (- -9007199254740993 -4611686018427387906) -> 4602678819172646913) ((4657 . 5625) (- -9007199254740993 -4611686018427387905) -> 4602678819172646912) ((4658 . 5625) (- -9007199254740993 -4611686018427387904) -> 4602678819172646911) ((4659 . 5625) (- -9007199254740993 -4611686018427387903) -> 4602678819172646910) ((4660 . 5625) (- -9007199254740993 -4611686018427387902) -> 4602678819172646909) ((4661 . 5625) (- -9007199254740992 -4611686018427387906) -> 4602678819172646914) ((4662 . 5625) (- -9007199254740992 -4611686018427387905) -> 4602678819172646913) ((4663 . 5625) (- -9007199254740992 -4611686018427387904) -> 4602678819172646912) ((4664 . 5625) (- -9007199254740992 -4611686018427387903) -> 4602678819172646911) ((4665 . 5625) (- -9007199254740992 -4611686018427387902) -> 4602678819172646910) ((4666 . 5625) (- -9007199254740991 -4611686018427387906) -> 4602678819172646915) ((4667 . 5625) (- -9007199254740991 -4611686018427387905) -> 4602678819172646914) ((4668 . 5625) (- -9007199254740991 -4611686018427387904) -> 4602678819172646913) ((4669 . 5625) (- -9007199254740991 -4611686018427387903) -> 4602678819172646912) ((4670 . 5625) (- -9007199254740991 -4611686018427387902) -> 4602678819172646911) ((4671 . 5625) (- -9007199254740990 -4611686018427387906) -> 4602678819172646916) ((4672 . 5625) (- -9007199254740990 -4611686018427387905) -> 4602678819172646915) ((4673 . 5625) (- -9007199254740990 -4611686018427387904) -> 4602678819172646914) ((4674 . 5625) (- -9007199254740990 -4611686018427387903) -> 4602678819172646913) ((4675 . 5625) (- -9007199254740990 -4611686018427387902) -> 4602678819172646912) ((4676 . 5625) (- -9007199254740994 4611686018427387902) -> -4620693217682128896) ((4677 . 5625) (- -9007199254740994 4611686018427387903) -> -4620693217682128897) ((4678 . 5625) (- -9007199254740994 4611686018427387904) -> -4620693217682128898) ((4679 . 5625) (- -9007199254740994 4611686018427387905) -> -4620693217682128899) ((4680 . 5625) (- -9007199254740994 4611686018427387906) -> -4620693217682128900) ((4681 . 5625) (- -9007199254740993 4611686018427387902) -> -4620693217682128895) ((4682 . 5625) (- -9007199254740993 4611686018427387903) -> -4620693217682128896) ((4683 . 5625) (- -9007199254740993 4611686018427387904) -> -4620693217682128897) ((4684 . 5625) (- -9007199254740993 4611686018427387905) -> -4620693217682128898) ((4685 . 5625) (- -9007199254740993 4611686018427387906) -> -4620693217682128899) ((4686 . 5625) (- -9007199254740992 4611686018427387902) -> -4620693217682128894) ((4687 . 5625) (- -9007199254740992 4611686018427387903) -> -4620693217682128895) ((4688 . 5625) (- -9007199254740992 4611686018427387904) -> -4620693217682128896) ((4689 . 5625) (- -9007199254740992 4611686018427387905) -> -4620693217682128897) ((4690 . 5625) (- -9007199254740992 4611686018427387906) -> -4620693217682128898) ((4691 . 5625) (- -9007199254740991 4611686018427387902) -> -4620693217682128893) ((4692 . 5625) (- -9007199254740991 4611686018427387903) -> -4620693217682128894) ((4693 . 5625) (- -9007199254740991 4611686018427387904) -> -4620693217682128895) ((4694 . 5625) (- -9007199254740991 4611686018427387905) -> -4620693217682128896) ((4695 . 5625) (- -9007199254740991 4611686018427387906) -> -4620693217682128897) ((4696 . 5625) (- -9007199254740990 4611686018427387902) -> -4620693217682128892) ((4697 . 5625) (- -9007199254740990 4611686018427387903) -> -4620693217682128893) ((4698 . 5625) (- -9007199254740990 4611686018427387904) -> -4620693217682128894) ((4699 . 5625) (- -9007199254740990 4611686018427387905) -> -4620693217682128895) ((4700 . 5625) (- -9007199254740990 4611686018427387906) -> -4620693217682128896) ((4701 . 5625) (- -9007199254740994 -4611686018427387907) -> 4602678819172646913) ((4702 . 5625) (- -9007199254740994 -4611686018427387906) -> 4602678819172646912) ((4703 . 5625) (- -9007199254740994 -4611686018427387905) -> 4602678819172646911) ((4704 . 5625) (- -9007199254740994 -4611686018427387904) -> 4602678819172646910) ((4705 . 5625) (- -9007199254740994 -4611686018427387903) -> 4602678819172646909) ((4706 . 5625) (- -9007199254740993 -4611686018427387907) -> 4602678819172646914) ((4707 . 5625) (- -9007199254740993 -4611686018427387906) -> 4602678819172646913) ((4708 . 5625) (- -9007199254740993 -4611686018427387905) -> 4602678819172646912) ((4709 . 5625) (- -9007199254740993 -4611686018427387904) -> 4602678819172646911) ((4710 . 5625) (- -9007199254740993 -4611686018427387903) -> 4602678819172646910) ((4711 . 5625) (- -9007199254740992 -4611686018427387907) -> 4602678819172646915) ((4712 . 5625) (- -9007199254740992 -4611686018427387906) -> 4602678819172646914) ((4713 . 5625) (- -9007199254740992 -4611686018427387905) -> 4602678819172646913) ((4714 . 5625) (- -9007199254740992 -4611686018427387904) -> 4602678819172646912) ((4715 . 5625) (- -9007199254740992 -4611686018427387903) -> 4602678819172646911) ((4716 . 5625) (- -9007199254740991 -4611686018427387907) -> 4602678819172646916) ((4717 . 5625) (- -9007199254740991 -4611686018427387906) -> 4602678819172646915) ((4718 . 5625) (- -9007199254740991 -4611686018427387905) -> 4602678819172646914) ((4719 . 5625) (- -9007199254740991 -4611686018427387904) -> 4602678819172646913) ((4720 . 5625) (- -9007199254740991 -4611686018427387903) -> 4602678819172646912) ((4721 . 5625) (- -9007199254740990 -4611686018427387907) -> 4602678819172646917) ((4722 . 5625) (- -9007199254740990 -4611686018427387906) -> 4602678819172646916) ((4723 . 5625) (- -9007199254740990 -4611686018427387905) -> 4602678819172646915) ((4724 . 5625) (- -9007199254740990 -4611686018427387904) -> 4602678819172646914) ((4725 . 5625) (- -9007199254740990 -4611686018427387903) -> 4602678819172646913) ((4726 . 5625) (- -9007199254740994 1103515243) -> -9007200358256237) ((4727 . 5625) (- -9007199254740994 1103515244) -> -9007200358256238) ((4728 . 5625) (- -9007199254740994 1103515245) -> -9007200358256239) ((4729 . 5625) (- -9007199254740994 1103515246) -> -9007200358256240) ((4730 . 5625) (- -9007199254740994 1103515247) -> -9007200358256241) ((4731 . 5625) (- -9007199254740993 1103515243) -> -9007200358256236) ((4732 . 5625) (- -9007199254740993 1103515244) -> -9007200358256237) ((4733 . 5625) (- -9007199254740993 1103515245) -> -9007200358256238) ((4734 . 5625) (- -9007199254740993 1103515246) -> -9007200358256239) ((4735 . 5625) (- -9007199254740993 1103515247) -> -9007200358256240) ((4736 . 5625) (- -9007199254740992 1103515243) -> -9007200358256235) ((4737 . 5625) (- -9007199254740992 1103515244) -> -9007200358256236) ((4738 . 5625) (- -9007199254740992 1103515245) -> -9007200358256237) ((4739 . 5625) (- -9007199254740992 1103515246) -> -9007200358256238) ((4740 . 5625) (- -9007199254740992 1103515247) -> -9007200358256239) ((4741 . 5625) (- -9007199254740991 1103515243) -> -9007200358256234) ((4742 . 5625) (- -9007199254740991 1103515244) -> -9007200358256235) ((4743 . 5625) (- -9007199254740991 1103515245) -> -9007200358256236) ((4744 . 5625) (- -9007199254740991 1103515246) -> -9007200358256237) ((4745 . 5625) (- -9007199254740991 1103515247) -> -9007200358256238) ((4746 . 5625) (- -9007199254740990 1103515243) -> -9007200358256233) ((4747 . 5625) (- -9007199254740990 1103515244) -> -9007200358256234) ((4748 . 5625) (- -9007199254740990 1103515245) -> -9007200358256235) ((4749 . 5625) (- -9007199254740990 1103515246) -> -9007200358256236) ((4750 . 5625) (- -9007199254740990 1103515247) -> -9007200358256237) ((4751 . 5625) (- -9007199254740994 631629063) -> -9007199886370057) ((4752 . 5625) (- -9007199254740994 631629064) -> -9007199886370058) ((4753 . 5625) (- -9007199254740994 631629065) -> -9007199886370059) ((4754 . 5625) (- -9007199254740994 631629066) -> -9007199886370060) ((4755 . 5625) (- -9007199254740994 631629067) -> -9007199886370061) ((4756 . 5625) (- -9007199254740993 631629063) -> -9007199886370056) ((4757 . 5625) (- -9007199254740993 631629064) -> -9007199886370057) ((4758 . 5625) (- -9007199254740993 631629065) -> -9007199886370058) ((4759 . 5625) (- -9007199254740993 631629066) -> -9007199886370059) ((4760 . 5625) (- -9007199254740993 631629067) -> -9007199886370060) ((4761 . 5625) (- -9007199254740992 631629063) -> -9007199886370055) ((4762 . 5625) (- -9007199254740992 631629064) -> -9007199886370056) ((4763 . 5625) (- -9007199254740992 631629065) -> -9007199886370057) ((4764 . 5625) (- -9007199254740992 631629066) -> -9007199886370058) ((4765 . 5625) (- -9007199254740992 631629067) -> -9007199886370059) ((4766 . 5625) (- -9007199254740991 631629063) -> -9007199886370054) ((4767 . 5625) (- -9007199254740991 631629064) -> -9007199886370055) ((4768 . 5625) (- -9007199254740991 631629065) -> -9007199886370056) ((4769 . 5625) (- -9007199254740991 631629066) -> -9007199886370057) ((4770 . 5625) (- -9007199254740991 631629067) -> -9007199886370058) ((4771 . 5625) (- -9007199254740990 631629063) -> -9007199886370053) ((4772 . 5625) (- -9007199254740990 631629064) -> -9007199886370054) ((4773 . 5625) (- -9007199254740990 631629065) -> -9007199886370055) ((4774 . 5625) (- -9007199254740990 631629066) -> -9007199886370056) ((4775 . 5625) (- -9007199254740990 631629067) -> -9007199886370057) ((4776 . 5625) (- -9007199254740994 9007199254740990) -> -18014398509481984) ((4777 . 5625) (- -9007199254740994 9007199254740991) -> -18014398509481985) ((4778 . 5625) (- -9007199254740994 9007199254740992) -> -18014398509481986) ((4779 . 5625) (- -9007199254740994 9007199254740993) -> -18014398509481987) ((4780 . 5625) (- -9007199254740994 9007199254740994) -> -18014398509481988) ((4781 . 5625) (- -9007199254740993 9007199254740990) -> -18014398509481983) ((4782 . 5625) (- -9007199254740993 9007199254740991) -> -18014398509481984) ((4783 . 5625) (- -9007199254740993 9007199254740992) -> -18014398509481985) ((4784 . 5625) (- -9007199254740993 9007199254740993) -> -18014398509481986) ((4785 . 5625) (- -9007199254740993 9007199254740994) -> -18014398509481987) ((4786 . 5625) (- -9007199254740992 9007199254740990) -> -18014398509481982) ((4787 . 5625) (- -9007199254740992 9007199254740991) -> -18014398509481983) ((4788 . 5625) (- -9007199254740992 9007199254740992) -> -18014398509481984) ((4789 . 5625) (- -9007199254740992 9007199254740993) -> -18014398509481985) ((4790 . 5625) (- -9007199254740992 9007199254740994) -> -18014398509481986) ((4791 . 5625) (- -9007199254740991 9007199254740990) -> -18014398509481981) ((4792 . 5625) (- -9007199254740991 9007199254740991) -> -18014398509481982) ((4793 . 5625) (- -9007199254740991 9007199254740992) -> -18014398509481983) ((4794 . 5625) (- -9007199254740991 9007199254740993) -> -18014398509481984) ((4795 . 5625) (- -9007199254740991 9007199254740994) -> -18014398509481985) ((4796 . 5625) (- -9007199254740990 9007199254740990) -> -18014398509481980) ((4797 . 5625) (- -9007199254740990 9007199254740991) -> -18014398509481981) ((4798 . 5625) (- -9007199254740990 9007199254740992) -> -18014398509481982) ((4799 . 5625) (- -9007199254740990 9007199254740993) -> -18014398509481983) ((4800 . 5625) (- -9007199254740990 9007199254740994) -> -18014398509481984) ((4801 . 5625) (- -9007199254740994 -9007199254740994) -> 0) ((4802 . 5625) (- -9007199254740994 -9007199254740993) -> -1) ((4803 . 5625) (- -9007199254740994 -9007199254740992) -> -2) ((4804 . 5625) (- -9007199254740994 -9007199254740991) -> -3) ((4805 . 5625) (- -9007199254740994 -9007199254740990) -> -4) ((4806 . 5625) (- -9007199254740993 -9007199254740994) -> 1) ((4807 . 5625) (- -9007199254740993 -9007199254740993) -> 0) ((4808 . 5625) (- -9007199254740993 -9007199254740992) -> -1) ((4809 . 5625) (- -9007199254740993 -9007199254740991) -> -2) ((4810 . 5625) (- -9007199254740993 -9007199254740990) -> -3) ((4811 . 5625) (- -9007199254740992 -9007199254740994) -> 2) ((4812 . 5625) (- -9007199254740992 -9007199254740993) -> 1) ((4813 . 5625) (- -9007199254740992 -9007199254740992) -> 0) ((4814 . 5625) (- -9007199254740992 -9007199254740991) -> -1) ((4815 . 5625) (- -9007199254740992 -9007199254740990) -> -2) ((4816 . 5625) (- -9007199254740991 -9007199254740994) -> 3) ((4817 . 5625) (- -9007199254740991 -9007199254740993) -> 2) ((4818 . 5625) (- -9007199254740991 -9007199254740992) -> 1) ((4819 . 5625) (- -9007199254740991 -9007199254740991) -> 0) ((4820 . 5625) (- -9007199254740991 -9007199254740990) -> -1) ((4821 . 5625) (- -9007199254740990 -9007199254740994) -> 4) ((4822 . 5625) (- -9007199254740990 -9007199254740993) -> 3) ((4823 . 5625) (- -9007199254740990 -9007199254740992) -> 2) ((4824 . 5625) (- -9007199254740990 -9007199254740991) -> 1) ((4825 . 5625) (- -9007199254740990 -9007199254740990) -> 0) ((4826 . 5625) (- -9007199254740994 12343) -> -9007199254753337) ((4827 . 5625) (- -9007199254740994 12344) -> -9007199254753338) ((4828 . 5625) (- -9007199254740994 12345) -> -9007199254753339) ((4829 . 5625) (- -9007199254740994 12346) -> -9007199254753340) ((4830 . 5625) (- -9007199254740994 12347) -> -9007199254753341) ((4831 . 5625) (- -9007199254740993 12343) -> -9007199254753336) ((4832 . 5625) (- -9007199254740993 12344) -> -9007199254753337) ((4833 . 5625) (- -9007199254740993 12345) -> -9007199254753338) ((4834 . 5625) (- -9007199254740993 12346) -> -9007199254753339) ((4835 . 5625) (- -9007199254740993 12347) -> -9007199254753340) ((4836 . 5625) (- -9007199254740992 12343) -> -9007199254753335) ((4837 . 5625) (- -9007199254740992 12344) -> -9007199254753336) ((4838 . 5625) (- -9007199254740992 12345) -> -9007199254753337) ((4839 . 5625) (- -9007199254740992 12346) -> -9007199254753338) ((4840 . 5625) (- -9007199254740992 12347) -> -9007199254753339) ((4841 . 5625) (- -9007199254740991 12343) -> -9007199254753334) ((4842 . 5625) (- -9007199254740991 12344) -> -9007199254753335) ((4843 . 5625) (- -9007199254740991 12345) -> -9007199254753336) ((4844 . 5625) (- -9007199254740991 12346) -> -9007199254753337) ((4845 . 5625) (- -9007199254740991 12347) -> -9007199254753338) ((4846 . 5625) (- -9007199254740990 12343) -> -9007199254753333) ((4847 . 5625) (- -9007199254740990 12344) -> -9007199254753334) ((4848 . 5625) (- -9007199254740990 12345) -> -9007199254753335) ((4849 . 5625) (- -9007199254740990 12346) -> -9007199254753336) ((4850 . 5625) (- -9007199254740990 12347) -> -9007199254753337) ((4851 . 5625) (- -9007199254740994 4294967294) -> -9007203549708288) ((4852 . 5625) (- -9007199254740994 4294967295) -> -9007203549708289) ((4853 . 5625) (- -9007199254740994 4294967296) -> -9007203549708290) ((4854 . 5625) (- -9007199254740994 4294967297) -> -9007203549708291) ((4855 . 5625) (- -9007199254740994 4294967298) -> -9007203549708292) ((4856 . 5625) (- -9007199254740993 4294967294) -> -9007203549708287) ((4857 . 5625) (- -9007199254740993 4294967295) -> -9007203549708288) ((4858 . 5625) (- -9007199254740993 4294967296) -> -9007203549708289) ((4859 . 5625) (- -9007199254740993 4294967297) -> -9007203549708290) ((4860 . 5625) (- -9007199254740993 4294967298) -> -9007203549708291) ((4861 . 5625) (- -9007199254740992 4294967294) -> -9007203549708286) ((4862 . 5625) (- -9007199254740992 4294967295) -> -9007203549708287) ((4863 . 5625) (- -9007199254740992 4294967296) -> -9007203549708288) ((4864 . 5625) (- -9007199254740992 4294967297) -> -9007203549708289) ((4865 . 5625) (- -9007199254740992 4294967298) -> -9007203549708290) ((4866 . 5625) (- -9007199254740991 4294967294) -> -9007203549708285) ((4867 . 5625) (- -9007199254740991 4294967295) -> -9007203549708286) ((4868 . 5625) (- -9007199254740991 4294967296) -> -9007203549708287) ((4869 . 5625) (- -9007199254740991 4294967297) -> -9007203549708288) ((4870 . 5625) (- -9007199254740991 4294967298) -> -9007203549708289) ((4871 . 5625) (- -9007199254740990 4294967294) -> -9007203549708284) ((4872 . 5625) (- -9007199254740990 4294967295) -> -9007203549708285) ((4873 . 5625) (- -9007199254740990 4294967296) -> -9007203549708286) ((4874 . 5625) (- -9007199254740990 4294967297) -> -9007203549708287) ((4875 . 5625) (- -9007199254740990 4294967298) -> -9007203549708288) ((4876 . 5625) (- 12343 -2) -> 12345) ((4877 . 5625) (- 12343 -1) -> 12344) ((4878 . 5625) (- 12343 0) -> 12343) ((4879 . 5625) (- 12343 1) -> 12342) ((4880 . 5625) (- 12343 2) -> 12341) ((4881 . 5625) (- 12344 -2) -> 12346) ((4882 . 5625) (- 12344 -1) -> 12345) ((4883 . 5625) (- 12344 0) -> 12344) ((4884 . 5625) (- 12344 1) -> 12343) ((4885 . 5625) (- 12344 2) -> 12342) ((4886 . 5625) (- 12345 -2) -> 12347) ((4887 . 5625) (- 12345 -1) -> 12346) ((4888 . 5625) (- 12345 0) -> 12345) ((4889 . 5625) (- 12345 1) -> 12344) ((4890 . 5625) (- 12345 2) -> 12343) ((4891 . 5625) (- 12346 -2) -> 12348) ((4892 . 5625) (- 12346 -1) -> 12347) ((4893 . 5625) (- 12346 0) -> 12346) ((4894 . 5625) (- 12346 1) -> 12345) ((4895 . 5625) (- 12346 2) -> 12344) ((4896 . 5625) (- 12347 -2) -> 12349) ((4897 . 5625) (- 12347 -1) -> 12348) ((4898 . 5625) (- 12347 0) -> 12347) ((4899 . 5625) (- 12347 1) -> 12346) ((4900 . 5625) (- 12347 2) -> 12345) ((4901 . 5625) (- 12343 -1) -> 12344) ((4902 . 5625) (- 12343 0) -> 12343) ((4903 . 5625) (- 12343 1) -> 12342) ((4904 . 5625) (- 12343 2) -> 12341) ((4905 . 5625) (- 12343 3) -> 12340) ((4906 . 5625) (- 12344 -1) -> 12345) ((4907 . 5625) (- 12344 0) -> 12344) ((4908 . 5625) (- 12344 1) -> 12343) ((4909 . 5625) (- 12344 2) -> 12342) ((4910 . 5625) (- 12344 3) -> 12341) ((4911 . 5625) (- 12345 -1) -> 12346) ((4912 . 5625) (- 12345 0) -> 12345) ((4913 . 5625) (- 12345 1) -> 12344) ((4914 . 5625) (- 12345 2) -> 12343) ((4915 . 5625) (- 12345 3) -> 12342) ((4916 . 5625) (- 12346 -1) -> 12347) ((4917 . 5625) (- 12346 0) -> 12346) ((4918 . 5625) (- 12346 1) -> 12345) ((4919 . 5625) (- 12346 2) -> 12344) ((4920 . 5625) (- 12346 3) -> 12343) ((4921 . 5625) (- 12347 -1) -> 12348) ((4922 . 5625) (- 12347 0) -> 12347) ((4923 . 5625) (- 12347 1) -> 12346) ((4924 . 5625) (- 12347 2) -> 12345) ((4925 . 5625) (- 12347 3) -> 12344) ((4926 . 5625) (- 12343 -3) -> 12346) ((4927 . 5625) (- 12343 -2) -> 12345) ((4928 . 5625) (- 12343 -1) -> 12344) ((4929 . 5625) (- 12343 0) -> 12343) ((4930 . 5625) (- 12343 1) -> 12342) ((4931 . 5625) (- 12344 -3) -> 12347) ((4932 . 5625) (- 12344 -2) -> 12346) ((4933 . 5625) (- 12344 -1) -> 12345) ((4934 . 5625) (- 12344 0) -> 12344) ((4935 . 5625) (- 12344 1) -> 12343) ((4936 . 5625) (- 12345 -3) -> 12348) ((4937 . 5625) (- 12345 -2) -> 12347) ((4938 . 5625) (- 12345 -1) -> 12346) ((4939 . 5625) (- 12345 0) -> 12345) ((4940 . 5625) (- 12345 1) -> 12344) ((4941 . 5625) (- 12346 -3) -> 12349) ((4942 . 5625) (- 12346 -2) -> 12348) ((4943 . 5625) (- 12346 -1) -> 12347) ((4944 . 5625) (- 12346 0) -> 12346) ((4945 . 5625) (- 12346 1) -> 12345) ((4946 . 5625) (- 12347 -3) -> 12350) ((4947 . 5625) (- 12347 -2) -> 12349) ((4948 . 5625) (- 12347 -1) -> 12348) ((4949 . 5625) (- 12347 0) -> 12347) ((4950 . 5625) (- 12347 1) -> 12346) ((4951 . 5625) (- 12343 0) -> 12343) ((4952 . 5625) (- 12343 1) -> 12342) ((4953 . 5625) (- 12343 2) -> 12341) ((4954 . 5625) (- 12343 3) -> 12340) ((4955 . 5625) (- 12343 4) -> 12339) ((4956 . 5625) (- 12344 0) -> 12344) ((4957 . 5625) (- 12344 1) -> 12343) ((4958 . 5625) (- 12344 2) -> 12342) ((4959 . 5625) (- 12344 3) -> 12341) ((4960 . 5625) (- 12344 4) -> 12340) ((4961 . 5625) (- 12345 0) -> 12345) ((4962 . 5625) (- 12345 1) -> 12344) ((4963 . 5625) (- 12345 2) -> 12343) ((4964 . 5625) (- 12345 3) -> 12342) ((4965 . 5625) (- 12345 4) -> 12341) ((4966 . 5625) (- 12346 0) -> 12346) ((4967 . 5625) (- 12346 1) -> 12345) ((4968 . 5625) (- 12346 2) -> 12344) ((4969 . 5625) (- 12346 3) -> 12343) ((4970 . 5625) (- 12346 4) -> 12342) ((4971 . 5625) (- 12347 0) -> 12347) ((4972 . 5625) (- 12347 1) -> 12346) ((4973 . 5625) (- 12347 2) -> 12345) ((4974 . 5625) (- 12347 3) -> 12344) ((4975 . 5625) (- 12347 4) -> 12343) ((4976 . 5625) (- 12343 -4) -> 12347) ((4977 . 5625) (- 12343 -3) -> 12346) ((4978 . 5625) (- 12343 -2) -> 12345) ((4979 . 5625) (- 12343 -1) -> 12344) ((4980 . 5625) (- 12343 0) -> 12343) ((4981 . 5625) (- 12344 -4) -> 12348) ((4982 . 5625) (- 12344 -3) -> 12347) ((4983 . 5625) (- 12344 -2) -> 12346) ((4984 . 5625) (- 12344 -1) -> 12345) ((4985 . 5625) (- 12344 0) -> 12344) ((4986 . 5625) (- 12345 -4) -> 12349) ((4987 . 5625) (- 12345 -3) -> 12348) ((4988 . 5625) (- 12345 -2) -> 12347) ((4989 . 5625) (- 12345 -1) -> 12346) ((4990 . 5625) (- 12345 0) -> 12345) ((4991 . 5625) (- 12346 -4) -> 12350) ((4992 . 5625) (- 12346 -3) -> 12349) ((4993 . 5625) (- 12346 -2) -> 12348) ((4994 . 5625) (- 12346 -1) -> 12347) ((4995 . 5625) (- 12346 0) -> 12346) ((4996 . 5625) (- 12347 -4) -> 12351) ((4997 . 5625) (- 12347 -3) -> 12350) ((4998 . 5625) (- 12347 -2) -> 12349) ((4999 . 5625) (- 12347 -1) -> 12348) ((5000 . 5625) (- 12347 0) -> 12347) ((5001 . 5625) (- 12343 4611686018427387901) -> -4611686018427375558) ((5002 . 5625) (- 12343 4611686018427387902) -> -4611686018427375559) ((5003 . 5625) (- 12343 4611686018427387903) -> -4611686018427375560) ((5004 . 5625) (- 12343 4611686018427387904) -> -4611686018427375561) ((5005 . 5625) (- 12343 4611686018427387905) -> -4611686018427375562) ((5006 . 5625) (- 12344 4611686018427387901) -> -4611686018427375557) ((5007 . 5625) (- 12344 4611686018427387902) -> -4611686018427375558) ((5008 . 5625) (- 12344 4611686018427387903) -> -4611686018427375559) ((5009 . 5625) (- 12344 4611686018427387904) -> -4611686018427375560) ((5010 . 5625) (- 12344 4611686018427387905) -> -4611686018427375561) ((5011 . 5625) (- 12345 4611686018427387901) -> -4611686018427375556) ((5012 . 5625) (- 12345 4611686018427387902) -> -4611686018427375557) ((5013 . 5625) (- 12345 4611686018427387903) -> -4611686018427375558) ((5014 . 5625) (- 12345 4611686018427387904) -> -4611686018427375559) ((5015 . 5625) (- 12345 4611686018427387905) -> -4611686018427375560) ((5016 . 5625) (- 12346 4611686018427387901) -> -4611686018427375555) ((5017 . 5625) (- 12346 4611686018427387902) -> -4611686018427375556) ((5018 . 5625) (- 12346 4611686018427387903) -> -4611686018427375557) ((5019 . 5625) (- 12346 4611686018427387904) -> -4611686018427375558) ((5020 . 5625) (- 12346 4611686018427387905) -> -4611686018427375559) ((5021 . 5625) (- 12347 4611686018427387901) -> -4611686018427375554) ((5022 . 5625) (- 12347 4611686018427387902) -> -4611686018427375555) ((5023 . 5625) (- 12347 4611686018427387903) -> -4611686018427375556) ((5024 . 5625) (- 12347 4611686018427387904) -> -4611686018427375557) ((5025 . 5625) (- 12347 4611686018427387905) -> -4611686018427375558) ((5026 . 5625) (- 12343 -4611686018427387906) -> 4611686018427400249) ((5027 . 5625) (- 12343 -4611686018427387905) -> 4611686018427400248) ((5028 . 5625) (- 12343 -4611686018427387904) -> 4611686018427400247) ((5029 . 5625) (- 12343 -4611686018427387903) -> 4611686018427400246) ((5030 . 5625) (- 12343 -4611686018427387902) -> 4611686018427400245) ((5031 . 5625) (- 12344 -4611686018427387906) -> 4611686018427400250) ((5032 . 5625) (- 12344 -4611686018427387905) -> 4611686018427400249) ((5033 . 5625) (- 12344 -4611686018427387904) -> 4611686018427400248) ((5034 . 5625) (- 12344 -4611686018427387903) -> 4611686018427400247) ((5035 . 5625) (- 12344 -4611686018427387902) -> 4611686018427400246) ((5036 . 5625) (- 12345 -4611686018427387906) -> 4611686018427400251) ((5037 . 5625) (- 12345 -4611686018427387905) -> 4611686018427400250) ((5038 . 5625) (- 12345 -4611686018427387904) -> 4611686018427400249) ((5039 . 5625) (- 12345 -4611686018427387903) -> 4611686018427400248) ((5040 . 5625) (- 12345 -4611686018427387902) -> 4611686018427400247) ((5041 . 5625) (- 12346 -4611686018427387906) -> 4611686018427400252) ((5042 . 5625) (- 12346 -4611686018427387905) -> 4611686018427400251) ((5043 . 5625) (- 12346 -4611686018427387904) -> 4611686018427400250) ((5044 . 5625) (- 12346 -4611686018427387903) -> 4611686018427400249) ((5045 . 5625) (- 12346 -4611686018427387902) -> 4611686018427400248) ((5046 . 5625) (- 12347 -4611686018427387906) -> 4611686018427400253) ((5047 . 5625) (- 12347 -4611686018427387905) -> 4611686018427400252) ((5048 . 5625) (- 12347 -4611686018427387904) -> 4611686018427400251) ((5049 . 5625) (- 12347 -4611686018427387903) -> 4611686018427400250) ((5050 . 5625) (- 12347 -4611686018427387902) -> 4611686018427400249) ((5051 . 5625) (- 12343 4611686018427387902) -> -4611686018427375559) ((5052 . 5625) (- 12343 4611686018427387903) -> -4611686018427375560) ((5053 . 5625) (- 12343 4611686018427387904) -> -4611686018427375561) ((5054 . 5625) (- 12343 4611686018427387905) -> -4611686018427375562) ((5055 . 5625) (- 12343 4611686018427387906) -> -4611686018427375563) ((5056 . 5625) (- 12344 4611686018427387902) -> -4611686018427375558) ((5057 . 5625) (- 12344 4611686018427387903) -> -4611686018427375559) ((5058 . 5625) (- 12344 4611686018427387904) -> -4611686018427375560) ((5059 . 5625) (- 12344 4611686018427387905) -> -4611686018427375561) ((5060 . 5625) (- 12344 4611686018427387906) -> -4611686018427375562) ((5061 . 5625) (- 12345 4611686018427387902) -> -4611686018427375557) ((5062 . 5625) (- 12345 4611686018427387903) -> -4611686018427375558) ((5063 . 5625) (- 12345 4611686018427387904) -> -4611686018427375559) ((5064 . 5625) (- 12345 4611686018427387905) -> -4611686018427375560) ((5065 . 5625) (- 12345 4611686018427387906) -> -4611686018427375561) ((5066 . 5625) (- 12346 4611686018427387902) -> -4611686018427375556) ((5067 . 5625) (- 12346 4611686018427387903) -> -4611686018427375557) ((5068 . 5625) (- 12346 4611686018427387904) -> -4611686018427375558) ((5069 . 5625) (- 12346 4611686018427387905) -> -4611686018427375559) ((5070 . 5625) (- 12346 4611686018427387906) -> -4611686018427375560) ((5071 . 5625) (- 12347 4611686018427387902) -> -4611686018427375555) ((5072 . 5625) (- 12347 4611686018427387903) -> -4611686018427375556) ((5073 . 5625) (- 12347 4611686018427387904) -> -4611686018427375557) ((5074 . 5625) (- 12347 4611686018427387905) -> -4611686018427375558) ((5075 . 5625) (- 12347 4611686018427387906) -> -4611686018427375559) ((5076 . 5625) (- 12343 -4611686018427387907) -> 4611686018427400250) ((5077 . 5625) (- 12343 -4611686018427387906) -> 4611686018427400249) ((5078 . 5625) (- 12343 -4611686018427387905) -> 4611686018427400248) ((5079 . 5625) (- 12343 -4611686018427387904) -> 4611686018427400247) ((5080 . 5625) (- 12343 -4611686018427387903) -> 4611686018427400246) ((5081 . 5625) (- 12344 -4611686018427387907) -> 4611686018427400251) ((5082 . 5625) (- 12344 -4611686018427387906) -> 4611686018427400250) ((5083 . 5625) (- 12344 -4611686018427387905) -> 4611686018427400249) ((5084 . 5625) (- 12344 -4611686018427387904) -> 4611686018427400248) ((5085 . 5625) (- 12344 -4611686018427387903) -> 4611686018427400247) ((5086 . 5625) (- 12345 -4611686018427387907) -> 4611686018427400252) ((5087 . 5625) (- 12345 -4611686018427387906) -> 4611686018427400251) ((5088 . 5625) (- 12345 -4611686018427387905) -> 4611686018427400250) ((5089 . 5625) (- 12345 -4611686018427387904) -> 4611686018427400249) ((5090 . 5625) (- 12345 -4611686018427387903) -> 4611686018427400248) ((5091 . 5625) (- 12346 -4611686018427387907) -> 4611686018427400253) ((5092 . 5625) (- 12346 -4611686018427387906) -> 4611686018427400252) ((5093 . 5625) (- 12346 -4611686018427387905) -> 4611686018427400251) ((5094 . 5625) (- 12346 -4611686018427387904) -> 4611686018427400250) ((5095 . 5625) (- 12346 -4611686018427387903) -> 4611686018427400249) ((5096 . 5625) (- 12347 -4611686018427387907) -> 4611686018427400254) ((5097 . 5625) (- 12347 -4611686018427387906) -> 4611686018427400253) ((5098 . 5625) (- 12347 -4611686018427387905) -> 4611686018427400252) ((5099 . 5625) (- 12347 -4611686018427387904) -> 4611686018427400251) ((5100 . 5625) (- 12347 -4611686018427387903) -> 4611686018427400250) ((5101 . 5625) (- 12343 1103515243) -> -1103502900) ((5102 . 5625) (- 12343 1103515244) -> -1103502901) ((5103 . 5625) (- 12343 1103515245) -> -1103502902) ((5104 . 5625) (- 12343 1103515246) -> -1103502903) ((5105 . 5625) (- 12343 1103515247) -> -1103502904) ((5106 . 5625) (- 12344 1103515243) -> -1103502899) ((5107 . 5625) (- 12344 1103515244) -> -1103502900) ((5108 . 5625) (- 12344 1103515245) -> -1103502901) ((5109 . 5625) (- 12344 1103515246) -> -1103502902) ((5110 . 5625) (- 12344 1103515247) -> -1103502903) ((5111 . 5625) (- 12345 1103515243) -> -1103502898) ((5112 . 5625) (- 12345 1103515244) -> -1103502899) ((5113 . 5625) (- 12345 1103515245) -> -1103502900) ((5114 . 5625) (- 12345 1103515246) -> -1103502901) ((5115 . 5625) (- 12345 1103515247) -> -1103502902) ((5116 . 5625) (- 12346 1103515243) -> -1103502897) ((5117 . 5625) (- 12346 1103515244) -> -1103502898) ((5118 . 5625) (- 12346 1103515245) -> -1103502899) ((5119 . 5625) (- 12346 1103515246) -> -1103502900) ((5120 . 5625) (- 12346 1103515247) -> -1103502901) ((5121 . 5625) (- 12347 1103515243) -> -1103502896) ((5122 . 5625) (- 12347 1103515244) -> -1103502897) ((5123 . 5625) (- 12347 1103515245) -> -1103502898) ((5124 . 5625) (- 12347 1103515246) -> -1103502899) ((5125 . 5625) (- 12347 1103515247) -> -1103502900) ((5126 . 5625) (- 12343 631629063) -> -631616720) ((5127 . 5625) (- 12343 631629064) -> -631616721) ((5128 . 5625) (- 12343 631629065) -> -631616722) ((5129 . 5625) (- 12343 631629066) -> -631616723) ((5130 . 5625) (- 12343 631629067) -> -631616724) ((5131 . 5625) (- 12344 631629063) -> -631616719) ((5132 . 5625) (- 12344 631629064) -> -631616720) ((5133 . 5625) (- 12344 631629065) -> -631616721) ((5134 . 5625) (- 12344 631629066) -> -631616722) ((5135 . 5625) (- 12344 631629067) -> -631616723) ((5136 . 5625) (- 12345 631629063) -> -631616718) ((5137 . 5625) (- 12345 631629064) -> -631616719) ((5138 . 5625) (- 12345 631629065) -> -631616720) ((5139 . 5625) (- 12345 631629066) -> -631616721) ((5140 . 5625) (- 12345 631629067) -> -631616722) ((5141 . 5625) (- 12346 631629063) -> -631616717) ((5142 . 5625) (- 12346 631629064) -> -631616718) ((5143 . 5625) (- 12346 631629065) -> -631616719) ((5144 . 5625) (- 12346 631629066) -> -631616720) ((5145 . 5625) (- 12346 631629067) -> -631616721) ((5146 . 5625) (- 12347 631629063) -> -631616716) ((5147 . 5625) (- 12347 631629064) -> -631616717) ((5148 . 5625) (- 12347 631629065) -> -631616718) ((5149 . 5625) (- 12347 631629066) -> -631616719) ((5150 . 5625) (- 12347 631629067) -> -631616720) ((5151 . 5625) (- 12343 9007199254740990) -> -9007199254728647) ((5152 . 5625) (- 12343 9007199254740991) -> -9007199254728648) ((5153 . 5625) (- 12343 9007199254740992) -> -9007199254728649) ((5154 . 5625) (- 12343 9007199254740993) -> -9007199254728650) ((5155 . 5625) (- 12343 9007199254740994) -> -9007199254728651) ((5156 . 5625) (- 12344 9007199254740990) -> -9007199254728646) ((5157 . 5625) (- 12344 9007199254740991) -> -9007199254728647) ((5158 . 5625) (- 12344 9007199254740992) -> -9007199254728648) ((5159 . 5625) (- 12344 9007199254740993) -> -9007199254728649) ((5160 . 5625) (- 12344 9007199254740994) -> -9007199254728650) ((5161 . 5625) (- 12345 9007199254740990) -> -9007199254728645) ((5162 . 5625) (- 12345 9007199254740991) -> -9007199254728646) ((5163 . 5625) (- 12345 9007199254740992) -> -9007199254728647) ((5164 . 5625) (- 12345 9007199254740993) -> -9007199254728648) ((5165 . 5625) (- 12345 9007199254740994) -> -9007199254728649) ((5166 . 5625) (- 12346 9007199254740990) -> -9007199254728644) ((5167 . 5625) (- 12346 9007199254740991) -> -9007199254728645) ((5168 . 5625) (- 12346 9007199254740992) -> -9007199254728646) ((5169 . 5625) (- 12346 9007199254740993) -> -9007199254728647) ((5170 . 5625) (- 12346 9007199254740994) -> -9007199254728648) ((5171 . 5625) (- 12347 9007199254740990) -> -9007199254728643) ((5172 . 5625) (- 12347 9007199254740991) -> -9007199254728644) ((5173 . 5625) (- 12347 9007199254740992) -> -9007199254728645) ((5174 . 5625) (- 12347 9007199254740993) -> -9007199254728646) ((5175 . 5625) (- 12347 9007199254740994) -> -9007199254728647) ((5176 . 5625) (- 12343 -9007199254740994) -> 9007199254753337) ((5177 . 5625) (- 12343 -9007199254740993) -> 9007199254753336) ((5178 . 5625) (- 12343 -9007199254740992) -> 9007199254753335) ((5179 . 5625) (- 12343 -9007199254740991) -> 9007199254753334) ((5180 . 5625) (- 12343 -9007199254740990) -> 9007199254753333) ((5181 . 5625) (- 12344 -9007199254740994) -> 9007199254753338) ((5182 . 5625) (- 12344 -9007199254740993) -> 9007199254753337) ((5183 . 5625) (- 12344 -9007199254740992) -> 9007199254753336) ((5184 . 5625) (- 12344 -9007199254740991) -> 9007199254753335) ((5185 . 5625) (- 12344 -9007199254740990) -> 9007199254753334) ((5186 . 5625) (- 12345 -9007199254740994) -> 9007199254753339) ((5187 . 5625) (- 12345 -9007199254740993) -> 9007199254753338) ((5188 . 5625) (- 12345 -9007199254740992) -> 9007199254753337) ((5189 . 5625) (- 12345 -9007199254740991) -> 9007199254753336) ((5190 . 5625) (- 12345 -9007199254740990) -> 9007199254753335) ((5191 . 5625) (- 12346 -9007199254740994) -> 9007199254753340) ((5192 . 5625) (- 12346 -9007199254740993) -> 9007199254753339) ((5193 . 5625) (- 12346 -9007199254740992) -> 9007199254753338) ((5194 . 5625) (- 12346 -9007199254740991) -> 9007199254753337) ((5195 . 5625) (- 12346 -9007199254740990) -> 9007199254753336) ((5196 . 5625) (- 12347 -9007199254740994) -> 9007199254753341) ((5197 . 5625) (- 12347 -9007199254740993) -> 9007199254753340) ((5198 . 5625) (- 12347 -9007199254740992) -> 9007199254753339) ((5199 . 5625) (- 12347 -9007199254740991) -> 9007199254753338) ((5200 . 5625) (- 12347 -9007199254740990) -> 9007199254753337) ((5201 . 5625) (- 12343 12343) -> 0) ((5202 . 5625) (- 12343 12344) -> -1) ((5203 . 5625) (- 12343 12345) -> -2) ((5204 . 5625) (- 12343 12346) -> -3) ((5205 . 5625) (- 12343 12347) -> -4) ((5206 . 5625) (- 12344 12343) -> 1) ((5207 . 5625) (- 12344 12344) -> 0) ((5208 . 5625) (- 12344 12345) -> -1) ((5209 . 5625) (- 12344 12346) -> -2) ((5210 . 5625) (- 12344 12347) -> -3) ((5211 . 5625) (- 12345 12343) -> 2) ((5212 . 5625) (- 12345 12344) -> 1) ((5213 . 5625) (- 12345 12345) -> 0) ((5214 . 5625) (- 12345 12346) -> -1) ((5215 . 5625) (- 12345 12347) -> -2) ((5216 . 5625) (- 12346 12343) -> 3) ((5217 . 5625) (- 12346 12344) -> 2) ((5218 . 5625) (- 12346 12345) -> 1) ((5219 . 5625) (- 12346 12346) -> 0) ((5220 . 5625) (- 12346 12347) -> -1) ((5221 . 5625) (- 12347 12343) -> 4) ((5222 . 5625) (- 12347 12344) -> 3) ((5223 . 5625) (- 12347 12345) -> 2) ((5224 . 5625) (- 12347 12346) -> 1) ((5225 . 5625) (- 12347 12347) -> 0) ((5226 . 5625) (- 12343 4294967294) -> -4294954951) ((5227 . 5625) (- 12343 4294967295) -> -4294954952) ((5228 . 5625) (- 12343 4294967296) -> -4294954953) ((5229 . 5625) (- 12343 4294967297) -> -4294954954) ((5230 . 5625) (- 12343 4294967298) -> -4294954955) ((5231 . 5625) (- 12344 4294967294) -> -4294954950) ((5232 . 5625) (- 12344 4294967295) -> -4294954951) ((5233 . 5625) (- 12344 4294967296) -> -4294954952) ((5234 . 5625) (- 12344 4294967297) -> -4294954953) ((5235 . 5625) (- 12344 4294967298) -> -4294954954) ((5236 . 5625) (- 12345 4294967294) -> -4294954949) ((5237 . 5625) (- 12345 4294967295) -> -4294954950) ((5238 . 5625) (- 12345 4294967296) -> -4294954951) ((5239 . 5625) (- 12345 4294967297) -> -4294954952) ((5240 . 5625) (- 12345 4294967298) -> -4294954953) ((5241 . 5625) (- 12346 4294967294) -> -4294954948) ((5242 . 5625) (- 12346 4294967295) -> -4294954949) ((5243 . 5625) (- 12346 4294967296) -> -4294954950) ((5244 . 5625) (- 12346 4294967297) -> -4294954951) ((5245 . 5625) (- 12346 4294967298) -> -4294954952) ((5246 . 5625) (- 12347 4294967294) -> -4294954947) ((5247 . 5625) (- 12347 4294967295) -> -4294954948) ((5248 . 5625) (- 12347 4294967296) -> -4294954949) ((5249 . 5625) (- 12347 4294967297) -> -4294954950) ((5250 . 5625) (- 12347 4294967298) -> -4294954951) ((5251 . 5625) (- 4294967294 -2) -> 4294967296) ((5252 . 5625) (- 4294967294 -1) -> 4294967295) ((5253 . 5625) (- 4294967294 0) -> 4294967294) ((5254 . 5625) (- 4294967294 1) -> 4294967293) ((5255 . 5625) (- 4294967294 2) -> 4294967292) ((5256 . 5625) (- 4294967295 -2) -> 4294967297) ((5257 . 5625) (- 4294967295 -1) -> 4294967296) ((5258 . 5625) (- 4294967295 0) -> 4294967295) ((5259 . 5625) (- 4294967295 1) -> 4294967294) ((5260 . 5625) (- 4294967295 2) -> 4294967293) ((5261 . 5625) (- 4294967296 -2) -> 4294967298) ((5262 . 5625) (- 4294967296 -1) -> 4294967297) ((5263 . 5625) (- 4294967296 0) -> 4294967296) ((5264 . 5625) (- 4294967296 1) -> 4294967295) ((5265 . 5625) (- 4294967296 2) -> 4294967294) ((5266 . 5625) (- 4294967297 -2) -> 4294967299) ((5267 . 5625) (- 4294967297 -1) -> 4294967298) ((5268 . 5625) (- 4294967297 0) -> 4294967297) ((5269 . 5625) (- 4294967297 1) -> 4294967296) ((5270 . 5625) (- 4294967297 2) -> 4294967295) ((5271 . 5625) (- 4294967298 -2) -> 4294967300) ((5272 . 5625) (- 4294967298 -1) -> 4294967299) ((5273 . 5625) (- 4294967298 0) -> 4294967298) ((5274 . 5625) (- 4294967298 1) -> 4294967297) ((5275 . 5625) (- 4294967298 2) -> 4294967296) ((5276 . 5625) (- 4294967294 -1) -> 4294967295) ((5277 . 5625) (- 4294967294 0) -> 4294967294) ((5278 . 5625) (- 4294967294 1) -> 4294967293) ((5279 . 5625) (- 4294967294 2) -> 4294967292) ((5280 . 5625) (- 4294967294 3) -> 4294967291) ((5281 . 5625) (- 4294967295 -1) -> 4294967296) ((5282 . 5625) (- 4294967295 0) -> 4294967295) ((5283 . 5625) (- 4294967295 1) -> 4294967294) ((5284 . 5625) (- 4294967295 2) -> 4294967293) ((5285 . 5625) (- 4294967295 3) -> 4294967292) ((5286 . 5625) (- 4294967296 -1) -> 4294967297) ((5287 . 5625) (- 4294967296 0) -> 4294967296) ((5288 . 5625) (- 4294967296 1) -> 4294967295) ((5289 . 5625) (- 4294967296 2) -> 4294967294) ((5290 . 5625) (- 4294967296 3) -> 4294967293) ((5291 . 5625) (- 4294967297 -1) -> 4294967298) ((5292 . 5625) (- 4294967297 0) -> 4294967297) ((5293 . 5625) (- 4294967297 1) -> 4294967296) ((5294 . 5625) (- 4294967297 2) -> 4294967295) ((5295 . 5625) (- 4294967297 3) -> 4294967294) ((5296 . 5625) (- 4294967298 -1) -> 4294967299) ((5297 . 5625) (- 4294967298 0) -> 4294967298) ((5298 . 5625) (- 4294967298 1) -> 4294967297) ((5299 . 5625) (- 4294967298 2) -> 4294967296) ((5300 . 5625) (- 4294967298 3) -> 4294967295) ((5301 . 5625) (- 4294967294 -3) -> 4294967297) ((5302 . 5625) (- 4294967294 -2) -> 4294967296) ((5303 . 5625) (- 4294967294 -1) -> 4294967295) ((5304 . 5625) (- 4294967294 0) -> 4294967294) ((5305 . 5625) (- 4294967294 1) -> 4294967293) ((5306 . 5625) (- 4294967295 -3) -> 4294967298) ((5307 . 5625) (- 4294967295 -2) -> 4294967297) ((5308 . 5625) (- 4294967295 -1) -> 4294967296) ((5309 . 5625) (- 4294967295 0) -> 4294967295) ((5310 . 5625) (- 4294967295 1) -> 4294967294) ((5311 . 5625) (- 4294967296 -3) -> 4294967299) ((5312 . 5625) (- 4294967296 -2) -> 4294967298) ((5313 . 5625) (- 4294967296 -1) -> 4294967297) ((5314 . 5625) (- 4294967296 0) -> 4294967296) ((5315 . 5625) (- 4294967296 1) -> 4294967295) ((5316 . 5625) (- 4294967297 -3) -> 4294967300) ((5317 . 5625) (- 4294967297 -2) -> 4294967299) ((5318 . 5625) (- 4294967297 -1) -> 4294967298) ((5319 . 5625) (- 4294967297 0) -> 4294967297) ((5320 . 5625) (- 4294967297 1) -> 4294967296) ((5321 . 5625) (- 4294967298 -3) -> 4294967301) ((5322 . 5625) (- 4294967298 -2) -> 4294967300) ((5323 . 5625) (- 4294967298 -1) -> 4294967299) ((5324 . 5625) (- 4294967298 0) -> 4294967298) ((5325 . 5625) (- 4294967298 1) -> 4294967297) ((5326 . 5625) (- 4294967294 0) -> 4294967294) ((5327 . 5625) (- 4294967294 1) -> 4294967293) ((5328 . 5625) (- 4294967294 2) -> 4294967292) ((5329 . 5625) (- 4294967294 3) -> 4294967291) ((5330 . 5625) (- 4294967294 4) -> 4294967290) ((5331 . 5625) (- 4294967295 0) -> 4294967295) ((5332 . 5625) (- 4294967295 1) -> 4294967294) ((5333 . 5625) (- 4294967295 2) -> 4294967293) ((5334 . 5625) (- 4294967295 3) -> 4294967292) ((5335 . 5625) (- 4294967295 4) -> 4294967291) ((5336 . 5625) (- 4294967296 0) -> 4294967296) ((5337 . 5625) (- 4294967296 1) -> 4294967295) ((5338 . 5625) (- 4294967296 2) -> 4294967294) ((5339 . 5625) (- 4294967296 3) -> 4294967293) ((5340 . 5625) (- 4294967296 4) -> 4294967292) ((5341 . 5625) (- 4294967297 0) -> 4294967297) ((5342 . 5625) (- 4294967297 1) -> 4294967296) ((5343 . 5625) (- 4294967297 2) -> 4294967295) ((5344 . 5625) (- 4294967297 3) -> 4294967294) ((5345 . 5625) (- 4294967297 4) -> 4294967293) ((5346 . 5625) (- 4294967298 0) -> 4294967298) ((5347 . 5625) (- 4294967298 1) -> 4294967297) ((5348 . 5625) (- 4294967298 2) -> 4294967296) ((5349 . 5625) (- 4294967298 3) -> 4294967295) ((5350 . 5625) (- 4294967298 4) -> 4294967294) ((5351 . 5625) (- 4294967294 -4) -> 4294967298) ((5352 . 5625) (- 4294967294 -3) -> 4294967297) ((5353 . 5625) (- 4294967294 -2) -> 4294967296) ((5354 . 5625) (- 4294967294 -1) -> 4294967295) ((5355 . 5625) (- 4294967294 0) -> 4294967294) ((5356 . 5625) (- 4294967295 -4) -> 4294967299) ((5357 . 5625) (- 4294967295 -3) -> 4294967298) ((5358 . 5625) (- 4294967295 -2) -> 4294967297) ((5359 . 5625) (- 4294967295 -1) -> 4294967296) ((5360 . 5625) (- 4294967295 0) -> 4294967295) ((5361 . 5625) (- 4294967296 -4) -> 4294967300) ((5362 . 5625) (- 4294967296 -3) -> 4294967299) ((5363 . 5625) (- 4294967296 -2) -> 4294967298) ((5364 . 5625) (- 4294967296 -1) -> 4294967297) ((5365 . 5625) (- 4294967296 0) -> 4294967296) ((5366 . 5625) (- 4294967297 -4) -> 4294967301) ((5367 . 5625) (- 4294967297 -3) -> 4294967300) ((5368 . 5625) (- 4294967297 -2) -> 4294967299) ((5369 . 5625) (- 4294967297 -1) -> 4294967298) ((5370 . 5625) (- 4294967297 0) -> 4294967297) ((5371 . 5625) (- 4294967298 -4) -> 4294967302) ((5372 . 5625) (- 4294967298 -3) -> 4294967301) ((5373 . 5625) (- 4294967298 -2) -> 4294967300) ((5374 . 5625) (- 4294967298 -1) -> 4294967299) ((5375 . 5625) (- 4294967298 0) -> 4294967298) ((5376 . 5625) (- 4294967294 4611686018427387901) -> -4611686014132420607) ((5377 . 5625) (- 4294967294 4611686018427387902) -> -4611686014132420608) ((5378 . 5625) (- 4294967294 4611686018427387903) -> -4611686014132420609) ((5379 . 5625) (- 4294967294 4611686018427387904) -> -4611686014132420610) ((5380 . 5625) (- 4294967294 4611686018427387905) -> -4611686014132420611) ((5381 . 5625) (- 4294967295 4611686018427387901) -> -4611686014132420606) ((5382 . 5625) (- 4294967295 4611686018427387902) -> -4611686014132420607) ((5383 . 5625) (- 4294967295 4611686018427387903) -> -4611686014132420608) ((5384 . 5625) (- 4294967295 4611686018427387904) -> -4611686014132420609) ((5385 . 5625) (- 4294967295 4611686018427387905) -> -4611686014132420610) ((5386 . 5625) (- 4294967296 4611686018427387901) -> -4611686014132420605) ((5387 . 5625) (- 4294967296 4611686018427387902) -> -4611686014132420606) ((5388 . 5625) (- 4294967296 4611686018427387903) -> -4611686014132420607) ((5389 . 5625) (- 4294967296 4611686018427387904) -> -4611686014132420608) ((5390 . 5625) (- 4294967296 4611686018427387905) -> -4611686014132420609) ((5391 . 5625) (- 4294967297 4611686018427387901) -> -4611686014132420604) ((5392 . 5625) (- 4294967297 4611686018427387902) -> -4611686014132420605) ((5393 . 5625) (- 4294967297 4611686018427387903) -> -4611686014132420606) ((5394 . 5625) (- 4294967297 4611686018427387904) -> -4611686014132420607) ((5395 . 5625) (- 4294967297 4611686018427387905) -> -4611686014132420608) ((5396 . 5625) (- 4294967298 4611686018427387901) -> -4611686014132420603) ((5397 . 5625) (- 4294967298 4611686018427387902) -> -4611686014132420604) ((5398 . 5625) (- 4294967298 4611686018427387903) -> -4611686014132420605) ((5399 . 5625) (- 4294967298 4611686018427387904) -> -4611686014132420606) ((5400 . 5625) (- 4294967298 4611686018427387905) -> -4611686014132420607) ((5401 . 5625) (- 4294967294 -4611686018427387906) -> 4611686022722355200) ((5402 . 5625) (- 4294967294 -4611686018427387905) -> 4611686022722355199) ((5403 . 5625) (- 4294967294 -4611686018427387904) -> 4611686022722355198) ((5404 . 5625) (- 4294967294 -4611686018427387903) -> 4611686022722355197) ((5405 . 5625) (- 4294967294 -4611686018427387902) -> 4611686022722355196) ((5406 . 5625) (- 4294967295 -4611686018427387906) -> 4611686022722355201) ((5407 . 5625) (- 4294967295 -4611686018427387905) -> 4611686022722355200) ((5408 . 5625) (- 4294967295 -4611686018427387904) -> 4611686022722355199) ((5409 . 5625) (- 4294967295 -4611686018427387903) -> 4611686022722355198) ((5410 . 5625) (- 4294967295 -4611686018427387902) -> 4611686022722355197) ((5411 . 5625) (- 4294967296 -4611686018427387906) -> 4611686022722355202) ((5412 . 5625) (- 4294967296 -4611686018427387905) -> 4611686022722355201) ((5413 . 5625) (- 4294967296 -4611686018427387904) -> 4611686022722355200) ((5414 . 5625) (- 4294967296 -4611686018427387903) -> 4611686022722355199) ((5415 . 5625) (- 4294967296 -4611686018427387902) -> 4611686022722355198) ((5416 . 5625) (- 4294967297 -4611686018427387906) -> 4611686022722355203) ((5417 . 5625) (- 4294967297 -4611686018427387905) -> 4611686022722355202) ((5418 . 5625) (- 4294967297 -4611686018427387904) -> 4611686022722355201) ((5419 . 5625) (- 4294967297 -4611686018427387903) -> 4611686022722355200) ((5420 . 5625) (- 4294967297 -4611686018427387902) -> 4611686022722355199) ((5421 . 5625) (- 4294967298 -4611686018427387906) -> 4611686022722355204) ((5422 . 5625) (- 4294967298 -4611686018427387905) -> 4611686022722355203) ((5423 . 5625) (- 4294967298 -4611686018427387904) -> 4611686022722355202) ((5424 . 5625) (- 4294967298 -4611686018427387903) -> 4611686022722355201) ((5425 . 5625) (- 4294967298 -4611686018427387902) -> 4611686022722355200) ((5426 . 5625) (- 4294967294 4611686018427387902) -> -4611686014132420608) ((5427 . 5625) (- 4294967294 4611686018427387903) -> -4611686014132420609) ((5428 . 5625) (- 4294967294 4611686018427387904) -> -4611686014132420610) ((5429 . 5625) (- 4294967294 4611686018427387905) -> -4611686014132420611) ((5430 . 5625) (- 4294967294 4611686018427387906) -> -4611686014132420612) ((5431 . 5625) (- 4294967295 4611686018427387902) -> -4611686014132420607) ((5432 . 5625) (- 4294967295 4611686018427387903) -> -4611686014132420608) ((5433 . 5625) (- 4294967295 4611686018427387904) -> -4611686014132420609) ((5434 . 5625) (- 4294967295 4611686018427387905) -> -4611686014132420610) ((5435 . 5625) (- 4294967295 4611686018427387906) -> -4611686014132420611) ((5436 . 5625) (- 4294967296 4611686018427387902) -> -4611686014132420606) ((5437 . 5625) (- 4294967296 4611686018427387903) -> -4611686014132420607) ((5438 . 5625) (- 4294967296 4611686018427387904) -> -4611686014132420608) ((5439 . 5625) (- 4294967296 4611686018427387905) -> -4611686014132420609) ((5440 . 5625) (- 4294967296 4611686018427387906) -> -4611686014132420610) ((5441 . 5625) (- 4294967297 4611686018427387902) -> -4611686014132420605) ((5442 . 5625) (- 4294967297 4611686018427387903) -> -4611686014132420606) ((5443 . 5625) (- 4294967297 4611686018427387904) -> -4611686014132420607) ((5444 . 5625) (- 4294967297 4611686018427387905) -> -4611686014132420608) ((5445 . 5625) (- 4294967297 4611686018427387906) -> -4611686014132420609) ((5446 . 5625) (- 4294967298 4611686018427387902) -> -4611686014132420604) ((5447 . 5625) (- 4294967298 4611686018427387903) -> -4611686014132420605) ((5448 . 5625) (- 4294967298 4611686018427387904) -> -4611686014132420606) ((5449 . 5625) (- 4294967298 4611686018427387905) -> -4611686014132420607) ((5450 . 5625) (- 4294967298 4611686018427387906) -> -4611686014132420608) ((5451 . 5625) (- 4294967294 -4611686018427387907) -> 4611686022722355201) ((5452 . 5625) (- 4294967294 -4611686018427387906) -> 4611686022722355200) ((5453 . 5625) (- 4294967294 -4611686018427387905) -> 4611686022722355199) ((5454 . 5625) (- 4294967294 -4611686018427387904) -> 4611686022722355198) ((5455 . 5625) (- 4294967294 -4611686018427387903) -> 4611686022722355197) ((5456 . 5625) (- 4294967295 -4611686018427387907) -> 4611686022722355202) ((5457 . 5625) (- 4294967295 -4611686018427387906) -> 4611686022722355201) ((5458 . 5625) (- 4294967295 -4611686018427387905) -> 4611686022722355200) ((5459 . 5625) (- 4294967295 -4611686018427387904) -> 4611686022722355199) ((5460 . 5625) (- 4294967295 -4611686018427387903) -> 4611686022722355198) ((5461 . 5625) (- 4294967296 -4611686018427387907) -> 4611686022722355203) ((5462 . 5625) (- 4294967296 -4611686018427387906) -> 4611686022722355202) ((5463 . 5625) (- 4294967296 -4611686018427387905) -> 4611686022722355201) ((5464 . 5625) (- 4294967296 -4611686018427387904) -> 4611686022722355200) ((5465 . 5625) (- 4294967296 -4611686018427387903) -> 4611686022722355199) ((5466 . 5625) (- 4294967297 -4611686018427387907) -> 4611686022722355204) ((5467 . 5625) (- 4294967297 -4611686018427387906) -> 4611686022722355203) ((5468 . 5625) (- 4294967297 -4611686018427387905) -> 4611686022722355202) ((5469 . 5625) (- 4294967297 -4611686018427387904) -> 4611686022722355201) ((5470 . 5625) (- 4294967297 -4611686018427387903) -> 4611686022722355200) ((5471 . 5625) (- 4294967298 -4611686018427387907) -> 4611686022722355205) ((5472 . 5625) (- 4294967298 -4611686018427387906) -> 4611686022722355204) ((5473 . 5625) (- 4294967298 -4611686018427387905) -> 4611686022722355203) ((5474 . 5625) (- 4294967298 -4611686018427387904) -> 4611686022722355202) ((5475 . 5625) (- 4294967298 -4611686018427387903) -> 4611686022722355201) ((5476 . 5625) (- 4294967294 1103515243) -> 3191452051) ((5477 . 5625) (- 4294967294 1103515244) -> 3191452050) ((5478 . 5625) (- 4294967294 1103515245) -> 3191452049) ((5479 . 5625) (- 4294967294 1103515246) -> 3191452048) ((5480 . 5625) (- 4294967294 1103515247) -> 3191452047) ((5481 . 5625) (- 4294967295 1103515243) -> 3191452052) ((5482 . 5625) (- 4294967295 1103515244) -> 3191452051) ((5483 . 5625) (- 4294967295 1103515245) -> 3191452050) ((5484 . 5625) (- 4294967295 1103515246) -> 3191452049) ((5485 . 5625) (- 4294967295 1103515247) -> 3191452048) ((5486 . 5625) (- 4294967296 1103515243) -> 3191452053) ((5487 . 5625) (- 4294967296 1103515244) -> 3191452052) ((5488 . 5625) (- 4294967296 1103515245) -> 3191452051) ((5489 . 5625) (- 4294967296 1103515246) -> 3191452050) ((5490 . 5625) (- 4294967296 1103515247) -> 3191452049) ((5491 . 5625) (- 4294967297 1103515243) -> 3191452054) ((5492 . 5625) (- 4294967297 1103515244) -> 3191452053) ((5493 . 5625) (- 4294967297 1103515245) -> 3191452052) ((5494 . 5625) (- 4294967297 1103515246) -> 3191452051) ((5495 . 5625) (- 4294967297 1103515247) -> 3191452050) ((5496 . 5625) (- 4294967298 1103515243) -> 3191452055) ((5497 . 5625) (- 4294967298 1103515244) -> 3191452054) ((5498 . 5625) (- 4294967298 1103515245) -> 3191452053) ((5499 . 5625) (- 4294967298 1103515246) -> 3191452052) ((5500 . 5625) (- 4294967298 1103515247) -> 3191452051) ((5501 . 5625) (- 4294967294 631629063) -> 3663338231) ((5502 . 5625) (- 4294967294 631629064) -> 3663338230) ((5503 . 5625) (- 4294967294 631629065) -> 3663338229) ((5504 . 5625) (- 4294967294 631629066) -> 3663338228) ((5505 . 5625) (- 4294967294 631629067) -> 3663338227) ((5506 . 5625) (- 4294967295 631629063) -> 3663338232) ((5507 . 5625) (- 4294967295 631629064) -> 3663338231) ((5508 . 5625) (- 4294967295 631629065) -> 3663338230) ((5509 . 5625) (- 4294967295 631629066) -> 3663338229) ((5510 . 5625) (- 4294967295 631629067) -> 3663338228) ((5511 . 5625) (- 4294967296 631629063) -> 3663338233) ((5512 . 5625) (- 4294967296 631629064) -> 3663338232) ((5513 . 5625) (- 4294967296 631629065) -> 3663338231) ((5514 . 5625) (- 4294967296 631629066) -> 3663338230) ((5515 . 5625) (- 4294967296 631629067) -> 3663338229) ((5516 . 5625) (- 4294967297 631629063) -> 3663338234) ((5517 . 5625) (- 4294967297 631629064) -> 3663338233) ((5518 . 5625) (- 4294967297 631629065) -> 3663338232) ((5519 . 5625) (- 4294967297 631629066) -> 3663338231) ((5520 . 5625) (- 4294967297 631629067) -> 3663338230) ((5521 . 5625) (- 4294967298 631629063) -> 3663338235) ((5522 . 5625) (- 4294967298 631629064) -> 3663338234) ((5523 . 5625) (- 4294967298 631629065) -> 3663338233) ((5524 . 5625) (- 4294967298 631629066) -> 3663338232) ((5525 . 5625) (- 4294967298 631629067) -> 3663338231) ((5526 . 5625) (- 4294967294 9007199254740990) -> -9007194959773696) ((5527 . 5625) (- 4294967294 9007199254740991) -> -9007194959773697) ((5528 . 5625) (- 4294967294 9007199254740992) -> -9007194959773698) ((5529 . 5625) (- 4294967294 9007199254740993) -> -9007194959773699) ((5530 . 5625) (- 4294967294 9007199254740994) -> -9007194959773700) ((5531 . 5625) (- 4294967295 9007199254740990) -> -9007194959773695) ((5532 . 5625) (- 4294967295 9007199254740991) -> -9007194959773696) ((5533 . 5625) (- 4294967295 9007199254740992) -> -9007194959773697) ((5534 . 5625) (- 4294967295 9007199254740993) -> -9007194959773698) ((5535 . 5625) (- 4294967295 9007199254740994) -> -9007194959773699) ((5536 . 5625) (- 4294967296 9007199254740990) -> -9007194959773694) ((5537 . 5625) (- 4294967296 9007199254740991) -> -9007194959773695) ((5538 . 5625) (- 4294967296 9007199254740992) -> -9007194959773696) ((5539 . 5625) (- 4294967296 9007199254740993) -> -9007194959773697) ((5540 . 5625) (- 4294967296 9007199254740994) -> -9007194959773698) ((5541 . 5625) (- 4294967297 9007199254740990) -> -9007194959773693) ((5542 . 5625) (- 4294967297 9007199254740991) -> -9007194959773694) ((5543 . 5625) (- 4294967297 9007199254740992) -> -9007194959773695) ((5544 . 5625) (- 4294967297 9007199254740993) -> -9007194959773696) ((5545 . 5625) (- 4294967297 9007199254740994) -> -9007194959773697) ((5546 . 5625) (- 4294967298 9007199254740990) -> -9007194959773692) ((5547 . 5625) (- 4294967298 9007199254740991) -> -9007194959773693) ((5548 . 5625) (- 4294967298 9007199254740992) -> -9007194959773694) ((5549 . 5625) (- 4294967298 9007199254740993) -> -9007194959773695) ((5550 . 5625) (- 4294967298 9007199254740994) -> -9007194959773696) ((5551 . 5625) (- 4294967294 -9007199254740994) -> 9007203549708288) ((5552 . 5625) (- 4294967294 -9007199254740993) -> 9007203549708287) ((5553 . 5625) (- 4294967294 -9007199254740992) -> 9007203549708286) ((5554 . 5625) (- 4294967294 -9007199254740991) -> 9007203549708285) ((5555 . 5625) (- 4294967294 -9007199254740990) -> 9007203549708284) ((5556 . 5625) (- 4294967295 -9007199254740994) -> 9007203549708289) ((5557 . 5625) (- 4294967295 -9007199254740993) -> 9007203549708288) ((5558 . 5625) (- 4294967295 -9007199254740992) -> 9007203549708287) ((5559 . 5625) (- 4294967295 -9007199254740991) -> 9007203549708286) ((5560 . 5625) (- 4294967295 -9007199254740990) -> 9007203549708285) ((5561 . 5625) (- 4294967296 -9007199254740994) -> 9007203549708290) ((5562 . 5625) (- 4294967296 -9007199254740993) -> 9007203549708289) ((5563 . 5625) (- 4294967296 -9007199254740992) -> 9007203549708288) ((5564 . 5625) (- 4294967296 -9007199254740991) -> 9007203549708287) ((5565 . 5625) (- 4294967296 -9007199254740990) -> 9007203549708286) ((5566 . 5625) (- 4294967297 -9007199254740994) -> 9007203549708291) ((5567 . 5625) (- 4294967297 -9007199254740993) -> 9007203549708290) ((5568 . 5625) (- 4294967297 -9007199254740992) -> 9007203549708289) ((5569 . 5625) (- 4294967297 -9007199254740991) -> 9007203549708288) ((5570 . 5625) (- 4294967297 -9007199254740990) -> 9007203549708287) ((5571 . 5625) (- 4294967298 -9007199254740994) -> 9007203549708292) ((5572 . 5625) (- 4294967298 -9007199254740993) -> 9007203549708291) ((5573 . 5625) (- 4294967298 -9007199254740992) -> 9007203549708290) ((5574 . 5625) (- 4294967298 -9007199254740991) -> 9007203549708289) ((5575 . 5625) (- 4294967298 -9007199254740990) -> 9007203549708288) ((5576 . 5625) (- 4294967294 12343) -> 4294954951) ((5577 . 5625) (- 4294967294 12344) -> 4294954950) ((5578 . 5625) (- 4294967294 12345) -> 4294954949) ((5579 . 5625) (- 4294967294 12346) -> 4294954948) ((5580 . 5625) (- 4294967294 12347) -> 4294954947) ((5581 . 5625) (- 4294967295 12343) -> 4294954952) ((5582 . 5625) (- 4294967295 12344) -> 4294954951) ((5583 . 5625) (- 4294967295 12345) -> 4294954950) ((5584 . 5625) (- 4294967295 12346) -> 4294954949) ((5585 . 5625) (- 4294967295 12347) -> 4294954948) ((5586 . 5625) (- 4294967296 12343) -> 4294954953) ((5587 . 5625) (- 4294967296 12344) -> 4294954952) ((5588 . 5625) (- 4294967296 12345) -> 4294954951) ((5589 . 5625) (- 4294967296 12346) -> 4294954950) ((5590 . 5625) (- 4294967296 12347) -> 4294954949) ((5591 . 5625) (- 4294967297 12343) -> 4294954954) ((5592 . 5625) (- 4294967297 12344) -> 4294954953) ((5593 . 5625) (- 4294967297 12345) -> 4294954952) ((5594 . 5625) (- 4294967297 12346) -> 4294954951) ((5595 . 5625) (- 4294967297 12347) -> 4294954950) ((5596 . 5625) (- 4294967298 12343) -> 4294954955) ((5597 . 5625) (- 4294967298 12344) -> 4294954954) ((5598 . 5625) (- 4294967298 12345) -> 4294954953) ((5599 . 5625) (- 4294967298 12346) -> 4294954952) ((5600 . 5625) (- 4294967298 12347) -> 4294954951) ((5601 . 5625) (- 4294967294 4294967294) -> 0) ((5602 . 5625) (- 4294967294 4294967295) -> -1) ((5603 . 5625) (- 4294967294 4294967296) -> -2) ((5604 . 5625) (- 4294967294 4294967297) -> -3) ((5605 . 5625) (- 4294967294 4294967298) -> -4) ((5606 . 5625) (- 4294967295 4294967294) -> 1) ((5607 . 5625) (- 4294967295 4294967295) -> 0) ((5608 . 5625) (- 4294967295 4294967296) -> -1) ((5609 . 5625) (- 4294967295 4294967297) -> -2) ((5610 . 5625) (- 4294967295 4294967298) -> -3) ((5611 . 5625) (- 4294967296 4294967294) -> 2) ((5612 . 5625) (- 4294967296 4294967295) -> 1) ((5613 . 5625) (- 4294967296 4294967296) -> 0) ((5614 . 5625) (- 4294967296 4294967297) -> -1) ((5615 . 5625) (- 4294967296 4294967298) -> -2) ((5616 . 5625) (- 4294967297 4294967294) -> 3) ((5617 . 5625) (- 4294967297 4294967295) -> 2) ((5618 . 5625) (- 4294967297 4294967296) -> 1) ((5619 . 5625) (- 4294967297 4294967297) -> 0) ((5620 . 5625) (- 4294967297 4294967298) -> -1) ((5621 . 5625) (- 4294967298 4294967294) -> 4) ((5622 . 5625) (- 4294967298 4294967295) -> 3) ((5623 . 5625) (- 4294967298 4294967296) -> 2) ((5624 . 5625) (- 4294967298 4294967297) -> 1) ((5625 . 5625) (- 4294967298 4294967298) -> 0) ((1 . 5625) (* -2 -2) -> 4) ((2 . 5625) (* -2 -1) -> 2) ((3 . 5625) (* -2 0) -> 0) ((4 . 5625) (* -2 1) -> -2) ((5 . 5625) (* -2 2) -> -4) ((6 . 5625) (* -1 -2) -> 2) ((7 . 5625) (* -1 -1) -> 1) ((8 . 5625) (* -1 0) -> 0) ((9 . 5625) (* -1 1) -> -1) ((10 . 5625) (* -1 2) -> -2) ((11 . 5625) (* 0 -2) -> 0) ((12 . 5625) (* 0 -1) -> 0) ((13 . 5625) (* 0 0) -> 0) ((14 . 5625) (* 0 1) -> 0) ((15 . 5625) (* 0 2) -> 0) ((16 . 5625) (* 1 -2) -> -2) ((17 . 5625) (* 1 -1) -> -1) ((18 . 5625) (* 1 0) -> 0) ((19 . 5625) (* 1 1) -> 1) ((20 . 5625) (* 1 2) -> 2) ((21 . 5625) (* 2 -2) -> -4) ((22 . 5625) (* 2 -1) -> -2) ((23 . 5625) (* 2 0) -> 0) ((24 . 5625) (* 2 1) -> 2) ((25 . 5625) (* 2 2) -> 4) ((26 . 5625) (* -2 -1) -> 2) ((27 . 5625) (* -2 0) -> 0) ((28 . 5625) (* -2 1) -> -2) ((29 . 5625) (* -2 2) -> -4) ((30 . 5625) (* -2 3) -> -6) ((31 . 5625) (* -1 -1) -> 1) ((32 . 5625) (* -1 0) -> 0) ((33 . 5625) (* -1 1) -> -1) ((34 . 5625) (* -1 2) -> -2) ((35 . 5625) (* -1 3) -> -3) ((36 . 5625) (* 0 -1) -> 0) ((37 . 5625) (* 0 0) -> 0) ((38 . 5625) (* 0 1) -> 0) ((39 . 5625) (* 0 2) -> 0) ((40 . 5625) (* 0 3) -> 0) ((41 . 5625) (* 1 -1) -> -1) ((42 . 5625) (* 1 0) -> 0) ((43 . 5625) (* 1 1) -> 1) ((44 . 5625) (* 1 2) -> 2) ((45 . 5625) (* 1 3) -> 3) ((46 . 5625) (* 2 -1) -> -2) ((47 . 5625) (* 2 0) -> 0) ((48 . 5625) (* 2 1) -> 2) ((49 . 5625) (* 2 2) -> 4) ((50 . 5625) (* 2 3) -> 6) ((51 . 5625) (* -2 -3) -> 6) ((52 . 5625) (* -2 -2) -> 4) ((53 . 5625) (* -2 -1) -> 2) ((54 . 5625) (* -2 0) -> 0) ((55 . 5625) (* -2 1) -> -2) ((56 . 5625) (* -1 -3) -> 3) ((57 . 5625) (* -1 -2) -> 2) ((58 . 5625) (* -1 -1) -> 1) ((59 . 5625) (* -1 0) -> 0) ((60 . 5625) (* -1 1) -> -1) ((61 . 5625) (* 0 -3) -> 0) ((62 . 5625) (* 0 -2) -> 0) ((63 . 5625) (* 0 -1) -> 0) ((64 . 5625) (* 0 0) -> 0) ((65 . 5625) (* 0 1) -> 0) ((66 . 5625) (* 1 -3) -> -3) ((67 . 5625) (* 1 -2) -> -2) ((68 . 5625) (* 1 -1) -> -1) ((69 . 5625) (* 1 0) -> 0) ((70 . 5625) (* 1 1) -> 1) ((71 . 5625) (* 2 -3) -> -6) ((72 . 5625) (* 2 -2) -> -4) ((73 . 5625) (* 2 -1) -> -2) ((74 . 5625) (* 2 0) -> 0) ((75 . 5625) (* 2 1) -> 2) ((76 . 5625) (* -2 0) -> 0) ((77 . 5625) (* -2 1) -> -2) ((78 . 5625) (* -2 2) -> -4) ((79 . 5625) (* -2 3) -> -6) ((80 . 5625) (* -2 4) -> -8) ((81 . 5625) (* -1 0) -> 0) ((82 . 5625) (* -1 1) -> -1) ((83 . 5625) (* -1 2) -> -2) ((84 . 5625) (* -1 3) -> -3) ((85 . 5625) (* -1 4) -> -4) ((86 . 5625) (* 0 0) -> 0) ((87 . 5625) (* 0 1) -> 0) ((88 . 5625) (* 0 2) -> 0) ((89 . 5625) (* 0 3) -> 0) ((90 . 5625) (* 0 4) -> 0) ((91 . 5625) (* 1 0) -> 0) ((92 . 5625) (* 1 1) -> 1) ((93 . 5625) (* 1 2) -> 2) ((94 . 5625) (* 1 3) -> 3) ((95 . 5625) (* 1 4) -> 4) ((96 . 5625) (* 2 0) -> 0) ((97 . 5625) (* 2 1) -> 2) ((98 . 5625) (* 2 2) -> 4) ((99 . 5625) (* 2 3) -> 6) ((100 . 5625) (* 2 4) -> 8) ((101 . 5625) (* -2 -4) -> 8) ((102 . 5625) (* -2 -3) -> 6) ((103 . 5625) (* -2 -2) -> 4) ((104 . 5625) (* -2 -1) -> 2) ((105 . 5625) (* -2 0) -> 0) ((106 . 5625) (* -1 -4) -> 4) ((107 . 5625) (* -1 -3) -> 3) ((108 . 5625) (* -1 -2) -> 2) ((109 . 5625) (* -1 -1) -> 1) ((110 . 5625) (* -1 0) -> 0) ((111 . 5625) (* 0 -4) -> 0) ((112 . 5625) (* 0 -3) -> 0) ((113 . 5625) (* 0 -2) -> 0) ((114 . 5625) (* 0 -1) -> 0) ((115 . 5625) (* 0 0) -> 0) ((116 . 5625) (* 1 -4) -> -4) ((117 . 5625) (* 1 -3) -> -3) ((118 . 5625) (* 1 -2) -> -2) ((119 . 5625) (* 1 -1) -> -1) ((120 . 5625) (* 1 0) -> 0) ((121 . 5625) (* 2 -4) -> -8) ((122 . 5625) (* 2 -3) -> -6) ((123 . 5625) (* 2 -2) -> -4) ((124 . 5625) (* 2 -1) -> -2) ((125 . 5625) (* 2 0) -> 0) ((126 . 5625) (* -2 4611686018427387901) -> -9223372036854775802) ((127 . 5625) (* -2 4611686018427387902) -> -9223372036854775804) ((128 . 5625) (* -2 4611686018427387903) -> -9223372036854775806) ((129 . 5625) (* -2 4611686018427387904) -> -9223372036854775808) ((130 . 5625) (* -2 4611686018427387905) -> -9223372036854775810) ((131 . 5625) (* -1 4611686018427387901) -> -4611686018427387901) ((132 . 5625) (* -1 4611686018427387902) -> -4611686018427387902) ((133 . 5625) (* -1 4611686018427387903) -> -4611686018427387903) ((134 . 5625) (* -1 4611686018427387904) -> -4611686018427387904) ((135 . 5625) (* -1 4611686018427387905) -> -4611686018427387905) ((136 . 5625) (* 0 4611686018427387901) -> 0) ((137 . 5625) (* 0 4611686018427387902) -> 0) ((138 . 5625) (* 0 4611686018427387903) -> 0) ((139 . 5625) (* 0 4611686018427387904) -> 0) ((140 . 5625) (* 0 4611686018427387905) -> 0) ((141 . 5625) (* 1 4611686018427387901) -> 4611686018427387901) ((142 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((143 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((144 . 5625) (* 1 4611686018427387904) -> 4611686018427387904) ((145 . 5625) (* 1 4611686018427387905) -> 4611686018427387905) ((146 . 5625) (* 2 4611686018427387901) -> 9223372036854775802) ((147 . 5625) (* 2 4611686018427387902) -> 9223372036854775804) ((148 . 5625) (* 2 4611686018427387903) -> 9223372036854775806) ((149 . 5625) (* 2 4611686018427387904) -> 9223372036854775808) ((150 . 5625) (* 2 4611686018427387905) -> 9223372036854775810) ((151 . 5625) (* -2 -4611686018427387906) -> 9223372036854775812) ((152 . 5625) (* -2 -4611686018427387905) -> 9223372036854775810) ((153 . 5625) (* -2 -4611686018427387904) -> 9223372036854775808) ((154 . 5625) (* -2 -4611686018427387903) -> 9223372036854775806) ((155 . 5625) (* -2 -4611686018427387902) -> 9223372036854775804) ((156 . 5625) (* -1 -4611686018427387906) -> 4611686018427387906) ((157 . 5625) (* -1 -4611686018427387905) -> 4611686018427387905) ((158 . 5625) (* -1 -4611686018427387904) -> 4611686018427387904) ((159 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((160 . 5625) (* -1 -4611686018427387902) -> 4611686018427387902) ((161 . 5625) (* 0 -4611686018427387906) -> 0) ((162 . 5625) (* 0 -4611686018427387905) -> 0) ((163 . 5625) (* 0 -4611686018427387904) -> 0) ((164 . 5625) (* 0 -4611686018427387903) -> 0) ((165 . 5625) (* 0 -4611686018427387902) -> 0) ((166 . 5625) (* 1 -4611686018427387906) -> -4611686018427387906) ((167 . 5625) (* 1 -4611686018427387905) -> -4611686018427387905) ((168 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((169 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((170 . 5625) (* 1 -4611686018427387902) -> -4611686018427387902) ((171 . 5625) (* 2 -4611686018427387906) -> -9223372036854775812) ((172 . 5625) (* 2 -4611686018427387905) -> -9223372036854775810) ((173 . 5625) (* 2 -4611686018427387904) -> -9223372036854775808) ((174 . 5625) (* 2 -4611686018427387903) -> -9223372036854775806) ((175 . 5625) (* 2 -4611686018427387902) -> -9223372036854775804) ((176 . 5625) (* -2 4611686018427387902) -> -9223372036854775804) ((177 . 5625) (* -2 4611686018427387903) -> -9223372036854775806) ((178 . 5625) (* -2 4611686018427387904) -> -9223372036854775808) ((179 . 5625) (* -2 4611686018427387905) -> -9223372036854775810) ((180 . 5625) (* -2 4611686018427387906) -> -9223372036854775812) ((181 . 5625) (* -1 4611686018427387902) -> -4611686018427387902) ((182 . 5625) (* -1 4611686018427387903) -> -4611686018427387903) ((183 . 5625) (* -1 4611686018427387904) -> -4611686018427387904) ((184 . 5625) (* -1 4611686018427387905) -> -4611686018427387905) ((185 . 5625) (* -1 4611686018427387906) -> -4611686018427387906) ((186 . 5625) (* 0 4611686018427387902) -> 0) ((187 . 5625) (* 0 4611686018427387903) -> 0) ((188 . 5625) (* 0 4611686018427387904) -> 0) ((189 . 5625) (* 0 4611686018427387905) -> 0) ((190 . 5625) (* 0 4611686018427387906) -> 0) ((191 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((192 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((193 . 5625) (* 1 4611686018427387904) -> 4611686018427387904) ((194 . 5625) (* 1 4611686018427387905) -> 4611686018427387905) ((195 . 5625) (* 1 4611686018427387906) -> 4611686018427387906) ((196 . 5625) (* 2 4611686018427387902) -> 9223372036854775804) ((197 . 5625) (* 2 4611686018427387903) -> 9223372036854775806) ((198 . 5625) (* 2 4611686018427387904) -> 9223372036854775808) ((199 . 5625) (* 2 4611686018427387905) -> 9223372036854775810) ((200 . 5625) (* 2 4611686018427387906) -> 9223372036854775812) ((201 . 5625) (* -2 -4611686018427387907) -> 9223372036854775814) ((202 . 5625) (* -2 -4611686018427387906) -> 9223372036854775812) ((203 . 5625) (* -2 -4611686018427387905) -> 9223372036854775810) ((204 . 5625) (* -2 -4611686018427387904) -> 9223372036854775808) ((205 . 5625) (* -2 -4611686018427387903) -> 9223372036854775806) ((206 . 5625) (* -1 -4611686018427387907) -> 4611686018427387907) ((207 . 5625) (* -1 -4611686018427387906) -> 4611686018427387906) ((208 . 5625) (* -1 -4611686018427387905) -> 4611686018427387905) ((209 . 5625) (* -1 -4611686018427387904) -> 4611686018427387904) ((210 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((211 . 5625) (* 0 -4611686018427387907) -> 0) ((212 . 5625) (* 0 -4611686018427387906) -> 0) ((213 . 5625) (* 0 -4611686018427387905) -> 0) ((214 . 5625) (* 0 -4611686018427387904) -> 0) ((215 . 5625) (* 0 -4611686018427387903) -> 0) ((216 . 5625) (* 1 -4611686018427387907) -> -4611686018427387907) ((217 . 5625) (* 1 -4611686018427387906) -> -4611686018427387906) ((218 . 5625) (* 1 -4611686018427387905) -> -4611686018427387905) ((219 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((220 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((221 . 5625) (* 2 -4611686018427387907) -> -9223372036854775814) ((222 . 5625) (* 2 -4611686018427387906) -> -9223372036854775812) ((223 . 5625) (* 2 -4611686018427387905) -> -9223372036854775810) ((224 . 5625) (* 2 -4611686018427387904) -> -9223372036854775808) ((225 . 5625) (* 2 -4611686018427387903) -> -9223372036854775806) ((226 . 5625) (* -2 1103515243) -> -2207030486) ((227 . 5625) (* -2 1103515244) -> -2207030488) ((228 . 5625) (* -2 1103515245) -> -2207030490) ((229 . 5625) (* -2 1103515246) -> -2207030492) ((230 . 5625) (* -2 1103515247) -> -2207030494) ((231 . 5625) (* -1 1103515243) -> -1103515243) ((232 . 5625) (* -1 1103515244) -> -1103515244) ((233 . 5625) (* -1 1103515245) -> -1103515245) ((234 . 5625) (* -1 1103515246) -> -1103515246) ((235 . 5625) (* -1 1103515247) -> -1103515247) ((236 . 5625) (* 0 1103515243) -> 0) ((237 . 5625) (* 0 1103515244) -> 0) ((238 . 5625) (* 0 1103515245) -> 0) ((239 . 5625) (* 0 1103515246) -> 0) ((240 . 5625) (* 0 1103515247) -> 0) ((241 . 5625) (* 1 1103515243) -> 1103515243) ((242 . 5625) (* 1 1103515244) -> 1103515244) ((243 . 5625) (* 1 1103515245) -> 1103515245) ((244 . 5625) (* 1 1103515246) -> 1103515246) ((245 . 5625) (* 1 1103515247) -> 1103515247) ((246 . 5625) (* 2 1103515243) -> 2207030486) ((247 . 5625) (* 2 1103515244) -> 2207030488) ((248 . 5625) (* 2 1103515245) -> 2207030490) ((249 . 5625) (* 2 1103515246) -> 2207030492) ((250 . 5625) (* 2 1103515247) -> 2207030494) ((251 . 5625) (* -2 631629063) -> -1263258126) ((252 . 5625) (* -2 631629064) -> -1263258128) ((253 . 5625) (* -2 631629065) -> -1263258130) ((254 . 5625) (* -2 631629066) -> -1263258132) ((255 . 5625) (* -2 631629067) -> -1263258134) ((256 . 5625) (* -1 631629063) -> -631629063) ((257 . 5625) (* -1 631629064) -> -631629064) ((258 . 5625) (* -1 631629065) -> -631629065) ((259 . 5625) (* -1 631629066) -> -631629066) ((260 . 5625) (* -1 631629067) -> -631629067) ((261 . 5625) (* 0 631629063) -> 0) ((262 . 5625) (* 0 631629064) -> 0) ((263 . 5625) (* 0 631629065) -> 0) ((264 . 5625) (* 0 631629066) -> 0) ((265 . 5625) (* 0 631629067) -> 0) ((266 . 5625) (* 1 631629063) -> 631629063) ((267 . 5625) (* 1 631629064) -> 631629064) ((268 . 5625) (* 1 631629065) -> 631629065) ((269 . 5625) (* 1 631629066) -> 631629066) ((270 . 5625) (* 1 631629067) -> 631629067) ((271 . 5625) (* 2 631629063) -> 1263258126) ((272 . 5625) (* 2 631629064) -> 1263258128) ((273 . 5625) (* 2 631629065) -> 1263258130) ((274 . 5625) (* 2 631629066) -> 1263258132) ((275 . 5625) (* 2 631629067) -> 1263258134) ((276 . 5625) (* -2 9007199254740990) -> -18014398509481980) ((277 . 5625) (* -2 9007199254740991) -> -18014398509481982) ((278 . 5625) (* -2 9007199254740992) -> -18014398509481984) ((279 . 5625) (* -2 9007199254740993) -> -18014398509481986) ((280 . 5625) (* -2 9007199254740994) -> -18014398509481988) ((281 . 5625) (* -1 9007199254740990) -> -9007199254740990) ((282 . 5625) (* -1 9007199254740991) -> -9007199254740991) ((283 . 5625) (* -1 9007199254740992) -> -9007199254740992) ((284 . 5625) (* -1 9007199254740993) -> -9007199254740993) ((285 . 5625) (* -1 9007199254740994) -> -9007199254740994) ((286 . 5625) (* 0 9007199254740990) -> 0) ((287 . 5625) (* 0 9007199254740991) -> 0) ((288 . 5625) (* 0 9007199254740992) -> 0) ((289 . 5625) (* 0 9007199254740993) -> 0) ((290 . 5625) (* 0 9007199254740994) -> 0) ((291 . 5625) (* 1 9007199254740990) -> 9007199254740990) ((292 . 5625) (* 1 9007199254740991) -> 9007199254740991) ((293 . 5625) (* 1 9007199254740992) -> 9007199254740992) ((294 . 5625) (* 1 9007199254740993) -> 9007199254740993) ((295 . 5625) (* 1 9007199254740994) -> 9007199254740994) ((296 . 5625) (* 2 9007199254740990) -> 18014398509481980) ((297 . 5625) (* 2 9007199254740991) -> 18014398509481982) ((298 . 5625) (* 2 9007199254740992) -> 18014398509481984) ((299 . 5625) (* 2 9007199254740993) -> 18014398509481986) ((300 . 5625) (* 2 9007199254740994) -> 18014398509481988) ((301 . 5625) (* -2 -9007199254740994) -> 18014398509481988) ((302 . 5625) (* -2 -9007199254740993) -> 18014398509481986) ((303 . 5625) (* -2 -9007199254740992) -> 18014398509481984) ((304 . 5625) (* -2 -9007199254740991) -> 18014398509481982) ((305 . 5625) (* -2 -9007199254740990) -> 18014398509481980) ((306 . 5625) (* -1 -9007199254740994) -> 9007199254740994) ((307 . 5625) (* -1 -9007199254740993) -> 9007199254740993) ((308 . 5625) (* -1 -9007199254740992) -> 9007199254740992) ((309 . 5625) (* -1 -9007199254740991) -> 9007199254740991) ((310 . 5625) (* -1 -9007199254740990) -> 9007199254740990) ((311 . 5625) (* 0 -9007199254740994) -> 0) ((312 . 5625) (* 0 -9007199254740993) -> 0) ((313 . 5625) (* 0 -9007199254740992) -> 0) ((314 . 5625) (* 0 -9007199254740991) -> 0) ((315 . 5625) (* 0 -9007199254740990) -> 0) ((316 . 5625) (* 1 -9007199254740994) -> -9007199254740994) ((317 . 5625) (* 1 -9007199254740993) -> -9007199254740993) ((318 . 5625) (* 1 -9007199254740992) -> -9007199254740992) ((319 . 5625) (* 1 -9007199254740991) -> -9007199254740991) ((320 . 5625) (* 1 -9007199254740990) -> -9007199254740990) ((321 . 5625) (* 2 -9007199254740994) -> -18014398509481988) ((322 . 5625) (* 2 -9007199254740993) -> -18014398509481986) ((323 . 5625) (* 2 -9007199254740992) -> -18014398509481984) ((324 . 5625) (* 2 -9007199254740991) -> -18014398509481982) ((325 . 5625) (* 2 -9007199254740990) -> -18014398509481980) ((326 . 5625) (* -2 12343) -> -24686) ((327 . 5625) (* -2 12344) -> -24688) ((328 . 5625) (* -2 12345) -> -24690) ((329 . 5625) (* -2 12346) -> -24692) ((330 . 5625) (* -2 12347) -> -24694) ((331 . 5625) (* -1 12343) -> -12343) ((332 . 5625) (* -1 12344) -> -12344) ((333 . 5625) (* -1 12345) -> -12345) ((334 . 5625) (* -1 12346) -> -12346) ((335 . 5625) (* -1 12347) -> -12347) ((336 . 5625) (* 0 12343) -> 0) ((337 . 5625) (* 0 12344) -> 0) ((338 . 5625) (* 0 12345) -> 0) ((339 . 5625) (* 0 12346) -> 0) ((340 . 5625) (* 0 12347) -> 0) ((341 . 5625) (* 1 12343) -> 12343) ((342 . 5625) (* 1 12344) -> 12344) ((343 . 5625) (* 1 12345) -> 12345) ((344 . 5625) (* 1 12346) -> 12346) ((345 . 5625) (* 1 12347) -> 12347) ((346 . 5625) (* 2 12343) -> 24686) ((347 . 5625) (* 2 12344) -> 24688) ((348 . 5625) (* 2 12345) -> 24690) ((349 . 5625) (* 2 12346) -> 24692) ((350 . 5625) (* 2 12347) -> 24694) ((351 . 5625) (* -2 4294967294) -> -8589934588) ((352 . 5625) (* -2 4294967295) -> -8589934590) ((353 . 5625) (* -2 4294967296) -> -8589934592) ((354 . 5625) (* -2 4294967297) -> -8589934594) ((355 . 5625) (* -2 4294967298) -> -8589934596) ((356 . 5625) (* -1 4294967294) -> -4294967294) ((357 . 5625) (* -1 4294967295) -> -4294967295) ((358 . 5625) (* -1 4294967296) -> -4294967296) ((359 . 5625) (* -1 4294967297) -> -4294967297) ((360 . 5625) (* -1 4294967298) -> -4294967298) ((361 . 5625) (* 0 4294967294) -> 0) ((362 . 5625) (* 0 4294967295) -> 0) ((363 . 5625) (* 0 4294967296) -> 0) ((364 . 5625) (* 0 4294967297) -> 0) ((365 . 5625) (* 0 4294967298) -> 0) ((366 . 5625) (* 1 4294967294) -> 4294967294) ((367 . 5625) (* 1 4294967295) -> 4294967295) ((368 . 5625) (* 1 4294967296) -> 4294967296) ((369 . 5625) (* 1 4294967297) -> 4294967297) ((370 . 5625) (* 1 4294967298) -> 4294967298) ((371 . 5625) (* 2 4294967294) -> 8589934588) ((372 . 5625) (* 2 4294967295) -> 8589934590) ((373 . 5625) (* 2 4294967296) -> 8589934592) ((374 . 5625) (* 2 4294967297) -> 8589934594) ((375 . 5625) (* 2 4294967298) -> 8589934596) ((376 . 5625) (* -1 -2) -> 2) ((377 . 5625) (* -1 -1) -> 1) ((378 . 5625) (* -1 0) -> 0) ((379 . 5625) (* -1 1) -> -1) ((380 . 5625) (* -1 2) -> -2) ((381 . 5625) (* 0 -2) -> 0) ((382 . 5625) (* 0 -1) -> 0) ((383 . 5625) (* 0 0) -> 0) ((384 . 5625) (* 0 1) -> 0) ((385 . 5625) (* 0 2) -> 0) ((386 . 5625) (* 1 -2) -> -2) ((387 . 5625) (* 1 -1) -> -1) ((388 . 5625) (* 1 0) -> 0) ((389 . 5625) (* 1 1) -> 1) ((390 . 5625) (* 1 2) -> 2) ((391 . 5625) (* 2 -2) -> -4) ((392 . 5625) (* 2 -1) -> -2) ((393 . 5625) (* 2 0) -> 0) ((394 . 5625) (* 2 1) -> 2) ((395 . 5625) (* 2 2) -> 4) ((396 . 5625) (* 3 -2) -> -6) ((397 . 5625) (* 3 -1) -> -3) ((398 . 5625) (* 3 0) -> 0) ((399 . 5625) (* 3 1) -> 3) ((400 . 5625) (* 3 2) -> 6) ((401 . 5625) (* -1 -1) -> 1) ((402 . 5625) (* -1 0) -> 0) ((403 . 5625) (* -1 1) -> -1) ((404 . 5625) (* -1 2) -> -2) ((405 . 5625) (* -1 3) -> -3) ((406 . 5625) (* 0 -1) -> 0) ((407 . 5625) (* 0 0) -> 0) ((408 . 5625) (* 0 1) -> 0) ((409 . 5625) (* 0 2) -> 0) ((410 . 5625) (* 0 3) -> 0) ((411 . 5625) (* 1 -1) -> -1) ((412 . 5625) (* 1 0) -> 0) ((413 . 5625) (* 1 1) -> 1) ((414 . 5625) (* 1 2) -> 2) ((415 . 5625) (* 1 3) -> 3) ((416 . 5625) (* 2 -1) -> -2) ((417 . 5625) (* 2 0) -> 0) ((418 . 5625) (* 2 1) -> 2) ((419 . 5625) (* 2 2) -> 4) ((420 . 5625) (* 2 3) -> 6) ((421 . 5625) (* 3 -1) -> -3) ((422 . 5625) (* 3 0) -> 0) ((423 . 5625) (* 3 1) -> 3) ((424 . 5625) (* 3 2) -> 6) ((425 . 5625) (* 3 3) -> 9) ((426 . 5625) (* -1 -3) -> 3) ((427 . 5625) (* -1 -2) -> 2) ((428 . 5625) (* -1 -1) -> 1) ((429 . 5625) (* -1 0) -> 0) ((430 . 5625) (* -1 1) -> -1) ((431 . 5625) (* 0 -3) -> 0) ((432 . 5625) (* 0 -2) -> 0) ((433 . 5625) (* 0 -1) -> 0) ((434 . 5625) (* 0 0) -> 0) ((435 . 5625) (* 0 1) -> 0) ((436 . 5625) (* 1 -3) -> -3) ((437 . 5625) (* 1 -2) -> -2) ((438 . 5625) (* 1 -1) -> -1) ((439 . 5625) (* 1 0) -> 0) ((440 . 5625) (* 1 1) -> 1) ((441 . 5625) (* 2 -3) -> -6) ((442 . 5625) (* 2 -2) -> -4) ((443 . 5625) (* 2 -1) -> -2) ((444 . 5625) (* 2 0) -> 0) ((445 . 5625) (* 2 1) -> 2) ((446 . 5625) (* 3 -3) -> -9) ((447 . 5625) (* 3 -2) -> -6) ((448 . 5625) (* 3 -1) -> -3) ((449 . 5625) (* 3 0) -> 0) ((450 . 5625) (* 3 1) -> 3) ((451 . 5625) (* -1 0) -> 0) ((452 . 5625) (* -1 1) -> -1) ((453 . 5625) (* -1 2) -> -2) ((454 . 5625) (* -1 3) -> -3) ((455 . 5625) (* -1 4) -> -4) ((456 . 5625) (* 0 0) -> 0) ((457 . 5625) (* 0 1) -> 0) ((458 . 5625) (* 0 2) -> 0) ((459 . 5625) (* 0 3) -> 0) ((460 . 5625) (* 0 4) -> 0) ((461 . 5625) (* 1 0) -> 0) ((462 . 5625) (* 1 1) -> 1) ((463 . 5625) (* 1 2) -> 2) ((464 . 5625) (* 1 3) -> 3) ((465 . 5625) (* 1 4) -> 4) ((466 . 5625) (* 2 0) -> 0) ((467 . 5625) (* 2 1) -> 2) ((468 . 5625) (* 2 2) -> 4) ((469 . 5625) (* 2 3) -> 6) ((470 . 5625) (* 2 4) -> 8) ((471 . 5625) (* 3 0) -> 0) ((472 . 5625) (* 3 1) -> 3) ((473 . 5625) (* 3 2) -> 6) ((474 . 5625) (* 3 3) -> 9) ((475 . 5625) (* 3 4) -> 12) ((476 . 5625) (* -1 -4) -> 4) ((477 . 5625) (* -1 -3) -> 3) ((478 . 5625) (* -1 -2) -> 2) ((479 . 5625) (* -1 -1) -> 1) ((480 . 5625) (* -1 0) -> 0) ((481 . 5625) (* 0 -4) -> 0) ((482 . 5625) (* 0 -3) -> 0) ((483 . 5625) (* 0 -2) -> 0) ((484 . 5625) (* 0 -1) -> 0) ((485 . 5625) (* 0 0) -> 0) ((486 . 5625) (* 1 -4) -> -4) ((487 . 5625) (* 1 -3) -> -3) ((488 . 5625) (* 1 -2) -> -2) ((489 . 5625) (* 1 -1) -> -1) ((490 . 5625) (* 1 0) -> 0) ((491 . 5625) (* 2 -4) -> -8) ((492 . 5625) (* 2 -3) -> -6) ((493 . 5625) (* 2 -2) -> -4) ((494 . 5625) (* 2 -1) -> -2) ((495 . 5625) (* 2 0) -> 0) ((496 . 5625) (* 3 -4) -> -12) ((497 . 5625) (* 3 -3) -> -9) ((498 . 5625) (* 3 -2) -> -6) ((499 . 5625) (* 3 -1) -> -3) ((500 . 5625) (* 3 0) -> 0) ((501 . 5625) (* -1 4611686018427387901) -> -4611686018427387901) ((502 . 5625) (* -1 4611686018427387902) -> -4611686018427387902) ((503 . 5625) (* -1 4611686018427387903) -> -4611686018427387903) ((504 . 5625) (* -1 4611686018427387904) -> -4611686018427387904) ((505 . 5625) (* -1 4611686018427387905) -> -4611686018427387905) ((506 . 5625) (* 0 4611686018427387901) -> 0) ((507 . 5625) (* 0 4611686018427387902) -> 0) ((508 . 5625) (* 0 4611686018427387903) -> 0) ((509 . 5625) (* 0 4611686018427387904) -> 0) ((510 . 5625) (* 0 4611686018427387905) -> 0) ((511 . 5625) (* 1 4611686018427387901) -> 4611686018427387901) ((512 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((513 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((514 . 5625) (* 1 4611686018427387904) -> 4611686018427387904) ((515 . 5625) (* 1 4611686018427387905) -> 4611686018427387905) ((516 . 5625) (* 2 4611686018427387901) -> 9223372036854775802) ((517 . 5625) (* 2 4611686018427387902) -> 9223372036854775804) ((518 . 5625) (* 2 4611686018427387903) -> 9223372036854775806) ((519 . 5625) (* 2 4611686018427387904) -> 9223372036854775808) ((520 . 5625) (* 2 4611686018427387905) -> 9223372036854775810) ((521 . 5625) (* 3 4611686018427387901) -> 13835058055282163703) ((522 . 5625) (* 3 4611686018427387902) -> 13835058055282163706) ((523 . 5625) (* 3 4611686018427387903) -> 13835058055282163709) ((524 . 5625) (* 3 4611686018427387904) -> 13835058055282163712) ((525 . 5625) (* 3 4611686018427387905) -> 13835058055282163715) ((526 . 5625) (* -1 -4611686018427387906) -> 4611686018427387906) ((527 . 5625) (* -1 -4611686018427387905) -> 4611686018427387905) ((528 . 5625) (* -1 -4611686018427387904) -> 4611686018427387904) ((529 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((530 . 5625) (* -1 -4611686018427387902) -> 4611686018427387902) ((531 . 5625) (* 0 -4611686018427387906) -> 0) ((532 . 5625) (* 0 -4611686018427387905) -> 0) ((533 . 5625) (* 0 -4611686018427387904) -> 0) ((534 . 5625) (* 0 -4611686018427387903) -> 0) ((535 . 5625) (* 0 -4611686018427387902) -> 0) ((536 . 5625) (* 1 -4611686018427387906) -> -4611686018427387906) ((537 . 5625) (* 1 -4611686018427387905) -> -4611686018427387905) ((538 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((539 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((540 . 5625) (* 1 -4611686018427387902) -> -4611686018427387902) ((541 . 5625) (* 2 -4611686018427387906) -> -9223372036854775812) ((542 . 5625) (* 2 -4611686018427387905) -> -9223372036854775810) ((543 . 5625) (* 2 -4611686018427387904) -> -9223372036854775808) ((544 . 5625) (* 2 -4611686018427387903) -> -9223372036854775806) ((545 . 5625) (* 2 -4611686018427387902) -> -9223372036854775804) ((546 . 5625) (* 3 -4611686018427387906) -> -13835058055282163718) ((547 . 5625) (* 3 -4611686018427387905) -> -13835058055282163715) ((548 . 5625) (* 3 -4611686018427387904) -> -13835058055282163712) ((549 . 5625) (* 3 -4611686018427387903) -> -13835058055282163709) ((550 . 5625) (* 3 -4611686018427387902) -> -13835058055282163706) ((551 . 5625) (* -1 4611686018427387902) -> -4611686018427387902) ((552 . 5625) (* -1 4611686018427387903) -> -4611686018427387903) ((553 . 5625) (* -1 4611686018427387904) -> -4611686018427387904) ((554 . 5625) (* -1 4611686018427387905) -> -4611686018427387905) ((555 . 5625) (* -1 4611686018427387906) -> -4611686018427387906) ((556 . 5625) (* 0 4611686018427387902) -> 0) ((557 . 5625) (* 0 4611686018427387903) -> 0) ((558 . 5625) (* 0 4611686018427387904) -> 0) ((559 . 5625) (* 0 4611686018427387905) -> 0) ((560 . 5625) (* 0 4611686018427387906) -> 0) ((561 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((562 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((563 . 5625) (* 1 4611686018427387904) -> 4611686018427387904) ((564 . 5625) (* 1 4611686018427387905) -> 4611686018427387905) ((565 . 5625) (* 1 4611686018427387906) -> 4611686018427387906) ((566 . 5625) (* 2 4611686018427387902) -> 9223372036854775804) ((567 . 5625) (* 2 4611686018427387903) -> 9223372036854775806) ((568 . 5625) (* 2 4611686018427387904) -> 9223372036854775808) ((569 . 5625) (* 2 4611686018427387905) -> 9223372036854775810) ((570 . 5625) (* 2 4611686018427387906) -> 9223372036854775812) ((571 . 5625) (* 3 4611686018427387902) -> 13835058055282163706) ((572 . 5625) (* 3 4611686018427387903) -> 13835058055282163709) ((573 . 5625) (* 3 4611686018427387904) -> 13835058055282163712) ((574 . 5625) (* 3 4611686018427387905) -> 13835058055282163715) ((575 . 5625) (* 3 4611686018427387906) -> 13835058055282163718) ((576 . 5625) (* -1 -4611686018427387907) -> 4611686018427387907) ((577 . 5625) (* -1 -4611686018427387906) -> 4611686018427387906) ((578 . 5625) (* -1 -4611686018427387905) -> 4611686018427387905) ((579 . 5625) (* -1 -4611686018427387904) -> 4611686018427387904) ((580 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((581 . 5625) (* 0 -4611686018427387907) -> 0) ((582 . 5625) (* 0 -4611686018427387906) -> 0) ((583 . 5625) (* 0 -4611686018427387905) -> 0) ((584 . 5625) (* 0 -4611686018427387904) -> 0) ((585 . 5625) (* 0 -4611686018427387903) -> 0) ((586 . 5625) (* 1 -4611686018427387907) -> -4611686018427387907) ((587 . 5625) (* 1 -4611686018427387906) -> -4611686018427387906) ((588 . 5625) (* 1 -4611686018427387905) -> -4611686018427387905) ((589 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((590 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((591 . 5625) (* 2 -4611686018427387907) -> -9223372036854775814) ((592 . 5625) (* 2 -4611686018427387906) -> -9223372036854775812) ((593 . 5625) (* 2 -4611686018427387905) -> -9223372036854775810) ((594 . 5625) (* 2 -4611686018427387904) -> -9223372036854775808) ((595 . 5625) (* 2 -4611686018427387903) -> -9223372036854775806) ((596 . 5625) (* 3 -4611686018427387907) -> -13835058055282163721) ((597 . 5625) (* 3 -4611686018427387906) -> -13835058055282163718) ((598 . 5625) (* 3 -4611686018427387905) -> -13835058055282163715) ((599 . 5625) (* 3 -4611686018427387904) -> -13835058055282163712) ((600 . 5625) (* 3 -4611686018427387903) -> -13835058055282163709) ((601 . 5625) (* -1 1103515243) -> -1103515243) ((602 . 5625) (* -1 1103515244) -> -1103515244) ((603 . 5625) (* -1 1103515245) -> -1103515245) ((604 . 5625) (* -1 1103515246) -> -1103515246) ((605 . 5625) (* -1 1103515247) -> -1103515247) ((606 . 5625) (* 0 1103515243) -> 0) ((607 . 5625) (* 0 1103515244) -> 0) ((608 . 5625) (* 0 1103515245) -> 0) ((609 . 5625) (* 0 1103515246) -> 0) ((610 . 5625) (* 0 1103515247) -> 0) ((611 . 5625) (* 1 1103515243) -> 1103515243) ((612 . 5625) (* 1 1103515244) -> 1103515244) ((613 . 5625) (* 1 1103515245) -> 1103515245) ((614 . 5625) (* 1 1103515246) -> 1103515246) ((615 . 5625) (* 1 1103515247) -> 1103515247) ((616 . 5625) (* 2 1103515243) -> 2207030486) ((617 . 5625) (* 2 1103515244) -> 2207030488) ((618 . 5625) (* 2 1103515245) -> 2207030490) ((619 . 5625) (* 2 1103515246) -> 2207030492) ((620 . 5625) (* 2 1103515247) -> 2207030494) ((621 . 5625) (* 3 1103515243) -> 3310545729) ((622 . 5625) (* 3 1103515244) -> 3310545732) ((623 . 5625) (* 3 1103515245) -> 3310545735) ((624 . 5625) (* 3 1103515246) -> 3310545738) ((625 . 5625) (* 3 1103515247) -> 3310545741) ((626 . 5625) (* -1 631629063) -> -631629063) ((627 . 5625) (* -1 631629064) -> -631629064) ((628 . 5625) (* -1 631629065) -> -631629065) ((629 . 5625) (* -1 631629066) -> -631629066) ((630 . 5625) (* -1 631629067) -> -631629067) ((631 . 5625) (* 0 631629063) -> 0) ((632 . 5625) (* 0 631629064) -> 0) ((633 . 5625) (* 0 631629065) -> 0) ((634 . 5625) (* 0 631629066) -> 0) ((635 . 5625) (* 0 631629067) -> 0) ((636 . 5625) (* 1 631629063) -> 631629063) ((637 . 5625) (* 1 631629064) -> 631629064) ((638 . 5625) (* 1 631629065) -> 631629065) ((639 . 5625) (* 1 631629066) -> 631629066) ((640 . 5625) (* 1 631629067) -> 631629067) ((641 . 5625) (* 2 631629063) -> 1263258126) ((642 . 5625) (* 2 631629064) -> 1263258128) ((643 . 5625) (* 2 631629065) -> 1263258130) ((644 . 5625) (* 2 631629066) -> 1263258132) ((645 . 5625) (* 2 631629067) -> 1263258134) ((646 . 5625) (* 3 631629063) -> 1894887189) ((647 . 5625) (* 3 631629064) -> 1894887192) ((648 . 5625) (* 3 631629065) -> 1894887195) ((649 . 5625) (* 3 631629066) -> 1894887198) ((650 . 5625) (* 3 631629067) -> 1894887201) ((651 . 5625) (* -1 9007199254740990) -> -9007199254740990) ((652 . 5625) (* -1 9007199254740991) -> -9007199254740991) ((653 . 5625) (* -1 9007199254740992) -> -9007199254740992) ((654 . 5625) (* -1 9007199254740993) -> -9007199254740993) ((655 . 5625) (* -1 9007199254740994) -> -9007199254740994) ((656 . 5625) (* 0 9007199254740990) -> 0) ((657 . 5625) (* 0 9007199254740991) -> 0) ((658 . 5625) (* 0 9007199254740992) -> 0) ((659 . 5625) (* 0 9007199254740993) -> 0) ((660 . 5625) (* 0 9007199254740994) -> 0) ((661 . 5625) (* 1 9007199254740990) -> 9007199254740990) ((662 . 5625) (* 1 9007199254740991) -> 9007199254740991) ((663 . 5625) (* 1 9007199254740992) -> 9007199254740992) ((664 . 5625) (* 1 9007199254740993) -> 9007199254740993) ((665 . 5625) (* 1 9007199254740994) -> 9007199254740994) ((666 . 5625) (* 2 9007199254740990) -> 18014398509481980) ((667 . 5625) (* 2 9007199254740991) -> 18014398509481982) ((668 . 5625) (* 2 9007199254740992) -> 18014398509481984) ((669 . 5625) (* 2 9007199254740993) -> 18014398509481986) ((670 . 5625) (* 2 9007199254740994) -> 18014398509481988) ((671 . 5625) (* 3 9007199254740990) -> 27021597764222970) ((672 . 5625) (* 3 9007199254740991) -> 27021597764222973) ((673 . 5625) (* 3 9007199254740992) -> 27021597764222976) ((674 . 5625) (* 3 9007199254740993) -> 27021597764222979) ((675 . 5625) (* 3 9007199254740994) -> 27021597764222982) ((676 . 5625) (* -1 -9007199254740994) -> 9007199254740994) ((677 . 5625) (* -1 -9007199254740993) -> 9007199254740993) ((678 . 5625) (* -1 -9007199254740992) -> 9007199254740992) ((679 . 5625) (* -1 -9007199254740991) -> 9007199254740991) ((680 . 5625) (* -1 -9007199254740990) -> 9007199254740990) ((681 . 5625) (* 0 -9007199254740994) -> 0) ((682 . 5625) (* 0 -9007199254740993) -> 0) ((683 . 5625) (* 0 -9007199254740992) -> 0) ((684 . 5625) (* 0 -9007199254740991) -> 0) ((685 . 5625) (* 0 -9007199254740990) -> 0) ((686 . 5625) (* 1 -9007199254740994) -> -9007199254740994) ((687 . 5625) (* 1 -9007199254740993) -> -9007199254740993) ((688 . 5625) (* 1 -9007199254740992) -> -9007199254740992) ((689 . 5625) (* 1 -9007199254740991) -> -9007199254740991) ((690 . 5625) (* 1 -9007199254740990) -> -9007199254740990) ((691 . 5625) (* 2 -9007199254740994) -> -18014398509481988) ((692 . 5625) (* 2 -9007199254740993) -> -18014398509481986) ((693 . 5625) (* 2 -9007199254740992) -> -18014398509481984) ((694 . 5625) (* 2 -9007199254740991) -> -18014398509481982) ((695 . 5625) (* 2 -9007199254740990) -> -18014398509481980) ((696 . 5625) (* 3 -9007199254740994) -> -27021597764222982) ((697 . 5625) (* 3 -9007199254740993) -> -27021597764222979) ((698 . 5625) (* 3 -9007199254740992) -> -27021597764222976) ((699 . 5625) (* 3 -9007199254740991) -> -27021597764222973) ((700 . 5625) (* 3 -9007199254740990) -> -27021597764222970) ((701 . 5625) (* -1 12343) -> -12343) ((702 . 5625) (* -1 12344) -> -12344) ((703 . 5625) (* -1 12345) -> -12345) ((704 . 5625) (* -1 12346) -> -12346) ((705 . 5625) (* -1 12347) -> -12347) ((706 . 5625) (* 0 12343) -> 0) ((707 . 5625) (* 0 12344) -> 0) ((708 . 5625) (* 0 12345) -> 0) ((709 . 5625) (* 0 12346) -> 0) ((710 . 5625) (* 0 12347) -> 0) ((711 . 5625) (* 1 12343) -> 12343) ((712 . 5625) (* 1 12344) -> 12344) ((713 . 5625) (* 1 12345) -> 12345) ((714 . 5625) (* 1 12346) -> 12346) ((715 . 5625) (* 1 12347) -> 12347) ((716 . 5625) (* 2 12343) -> 24686) ((717 . 5625) (* 2 12344) -> 24688) ((718 . 5625) (* 2 12345) -> 24690) ((719 . 5625) (* 2 12346) -> 24692) ((720 . 5625) (* 2 12347) -> 24694) ((721 . 5625) (* 3 12343) -> 37029) ((722 . 5625) (* 3 12344) -> 37032) ((723 . 5625) (* 3 12345) -> 37035) ((724 . 5625) (* 3 12346) -> 37038) ((725 . 5625) (* 3 12347) -> 37041) ((726 . 5625) (* -1 4294967294) -> -4294967294) ((727 . 5625) (* -1 4294967295) -> -4294967295) ((728 . 5625) (* -1 4294967296) -> -4294967296) ((729 . 5625) (* -1 4294967297) -> -4294967297) ((730 . 5625) (* -1 4294967298) -> -4294967298) ((731 . 5625) (* 0 4294967294) -> 0) ((732 . 5625) (* 0 4294967295) -> 0) ((733 . 5625) (* 0 4294967296) -> 0) ((734 . 5625) (* 0 4294967297) -> 0) ((735 . 5625) (* 0 4294967298) -> 0) ((736 . 5625) (* 1 4294967294) -> 4294967294) ((737 . 5625) (* 1 4294967295) -> 4294967295) ((738 . 5625) (* 1 4294967296) -> 4294967296) ((739 . 5625) (* 1 4294967297) -> 4294967297) ((740 . 5625) (* 1 4294967298) -> 4294967298) ((741 . 5625) (* 2 4294967294) -> 8589934588) ((742 . 5625) (* 2 4294967295) -> 8589934590) ((743 . 5625) (* 2 4294967296) -> 8589934592) ((744 . 5625) (* 2 4294967297) -> 8589934594) ((745 . 5625) (* 2 4294967298) -> 8589934596) ((746 . 5625) (* 3 4294967294) -> 12884901882) ((747 . 5625) (* 3 4294967295) -> 12884901885) ((748 . 5625) (* 3 4294967296) -> 12884901888) ((749 . 5625) (* 3 4294967297) -> 12884901891) ((750 . 5625) (* 3 4294967298) -> 12884901894) ((751 . 5625) (* -3 -2) -> 6) ((752 . 5625) (* -3 -1) -> 3) ((753 . 5625) (* -3 0) -> 0) ((754 . 5625) (* -3 1) -> -3) ((755 . 5625) (* -3 2) -> -6) ((756 . 5625) (* -2 -2) -> 4) ((757 . 5625) (* -2 -1) -> 2) ((758 . 5625) (* -2 0) -> 0) ((759 . 5625) (* -2 1) -> -2) ((760 . 5625) (* -2 2) -> -4) ((761 . 5625) (* -1 -2) -> 2) ((762 . 5625) (* -1 -1) -> 1) ((763 . 5625) (* -1 0) -> 0) ((764 . 5625) (* -1 1) -> -1) ((765 . 5625) (* -1 2) -> -2) ((766 . 5625) (* 0 -2) -> 0) ((767 . 5625) (* 0 -1) -> 0) ((768 . 5625) (* 0 0) -> 0) ((769 . 5625) (* 0 1) -> 0) ((770 . 5625) (* 0 2) -> 0) ((771 . 5625) (* 1 -2) -> -2) ((772 . 5625) (* 1 -1) -> -1) ((773 . 5625) (* 1 0) -> 0) ((774 . 5625) (* 1 1) -> 1) ((775 . 5625) (* 1 2) -> 2) ((776 . 5625) (* -3 -1) -> 3) ((777 . 5625) (* -3 0) -> 0) ((778 . 5625) (* -3 1) -> -3) ((779 . 5625) (* -3 2) -> -6) ((780 . 5625) (* -3 3) -> -9) ((781 . 5625) (* -2 -1) -> 2) ((782 . 5625) (* -2 0) -> 0) ((783 . 5625) (* -2 1) -> -2) ((784 . 5625) (* -2 2) -> -4) ((785 . 5625) (* -2 3) -> -6) ((786 . 5625) (* -1 -1) -> 1) ((787 . 5625) (* -1 0) -> 0) ((788 . 5625) (* -1 1) -> -1) ((789 . 5625) (* -1 2) -> -2) ((790 . 5625) (* -1 3) -> -3) ((791 . 5625) (* 0 -1) -> 0) ((792 . 5625) (* 0 0) -> 0) ((793 . 5625) (* 0 1) -> 0) ((794 . 5625) (* 0 2) -> 0) ((795 . 5625) (* 0 3) -> 0) ((796 . 5625) (* 1 -1) -> -1) ((797 . 5625) (* 1 0) -> 0) ((798 . 5625) (* 1 1) -> 1) ((799 . 5625) (* 1 2) -> 2) ((800 . 5625) (* 1 3) -> 3) ((801 . 5625) (* -3 -3) -> 9) ((802 . 5625) (* -3 -2) -> 6) ((803 . 5625) (* -3 -1) -> 3) ((804 . 5625) (* -3 0) -> 0) ((805 . 5625) (* -3 1) -> -3) ((806 . 5625) (* -2 -3) -> 6) ((807 . 5625) (* -2 -2) -> 4) ((808 . 5625) (* -2 -1) -> 2) ((809 . 5625) (* -2 0) -> 0) ((810 . 5625) (* -2 1) -> -2) ((811 . 5625) (* -1 -3) -> 3) ((812 . 5625) (* -1 -2) -> 2) ((813 . 5625) (* -1 -1) -> 1) ((814 . 5625) (* -1 0) -> 0) ((815 . 5625) (* -1 1) -> -1) ((816 . 5625) (* 0 -3) -> 0) ((817 . 5625) (* 0 -2) -> 0) ((818 . 5625) (* 0 -1) -> 0) ((819 . 5625) (* 0 0) -> 0) ((820 . 5625) (* 0 1) -> 0) ((821 . 5625) (* 1 -3) -> -3) ((822 . 5625) (* 1 -2) -> -2) ((823 . 5625) (* 1 -1) -> -1) ((824 . 5625) (* 1 0) -> 0) ((825 . 5625) (* 1 1) -> 1) ((826 . 5625) (* -3 0) -> 0) ((827 . 5625) (* -3 1) -> -3) ((828 . 5625) (* -3 2) -> -6) ((829 . 5625) (* -3 3) -> -9) ((830 . 5625) (* -3 4) -> -12) ((831 . 5625) (* -2 0) -> 0) ((832 . 5625) (* -2 1) -> -2) ((833 . 5625) (* -2 2) -> -4) ((834 . 5625) (* -2 3) -> -6) ((835 . 5625) (* -2 4) -> -8) ((836 . 5625) (* -1 0) -> 0) ((837 . 5625) (* -1 1) -> -1) ((838 . 5625) (* -1 2) -> -2) ((839 . 5625) (* -1 3) -> -3) ((840 . 5625) (* -1 4) -> -4) ((841 . 5625) (* 0 0) -> 0) ((842 . 5625) (* 0 1) -> 0) ((843 . 5625) (* 0 2) -> 0) ((844 . 5625) (* 0 3) -> 0) ((845 . 5625) (* 0 4) -> 0) ((846 . 5625) (* 1 0) -> 0) ((847 . 5625) (* 1 1) -> 1) ((848 . 5625) (* 1 2) -> 2) ((849 . 5625) (* 1 3) -> 3) ((850 . 5625) (* 1 4) -> 4) ((851 . 5625) (* -3 -4) -> 12) ((852 . 5625) (* -3 -3) -> 9) ((853 . 5625) (* -3 -2) -> 6) ((854 . 5625) (* -3 -1) -> 3) ((855 . 5625) (* -3 0) -> 0) ((856 . 5625) (* -2 -4) -> 8) ((857 . 5625) (* -2 -3) -> 6) ((858 . 5625) (* -2 -2) -> 4) ((859 . 5625) (* -2 -1) -> 2) ((860 . 5625) (* -2 0) -> 0) ((861 . 5625) (* -1 -4) -> 4) ((862 . 5625) (* -1 -3) -> 3) ((863 . 5625) (* -1 -2) -> 2) ((864 . 5625) (* -1 -1) -> 1) ((865 . 5625) (* -1 0) -> 0) ((866 . 5625) (* 0 -4) -> 0) ((867 . 5625) (* 0 -3) -> 0) ((868 . 5625) (* 0 -2) -> 0) ((869 . 5625) (* 0 -1) -> 0) ((870 . 5625) (* 0 0) -> 0) ((871 . 5625) (* 1 -4) -> -4) ((872 . 5625) (* 1 -3) -> -3) ((873 . 5625) (* 1 -2) -> -2) ((874 . 5625) (* 1 -1) -> -1) ((875 . 5625) (* 1 0) -> 0) ((876 . 5625) (* -3 4611686018427387901) -> -13835058055282163703) ((877 . 5625) (* -3 4611686018427387902) -> -13835058055282163706) ((878 . 5625) (* -3 4611686018427387903) -> -13835058055282163709) ((879 . 5625) (* -3 4611686018427387904) -> -13835058055282163712) ((880 . 5625) (* -3 4611686018427387905) -> -13835058055282163715) ((881 . 5625) (* -2 4611686018427387901) -> -9223372036854775802) ((882 . 5625) (* -2 4611686018427387902) -> -9223372036854775804) ((883 . 5625) (* -2 4611686018427387903) -> -9223372036854775806) ((884 . 5625) (* -2 4611686018427387904) -> -9223372036854775808) ((885 . 5625) (* -2 4611686018427387905) -> -9223372036854775810) ((886 . 5625) (* -1 4611686018427387901) -> -4611686018427387901) ((887 . 5625) (* -1 4611686018427387902) -> -4611686018427387902) ((888 . 5625) (* -1 4611686018427387903) -> -4611686018427387903) ((889 . 5625) (* -1 4611686018427387904) -> -4611686018427387904) ((890 . 5625) (* -1 4611686018427387905) -> -4611686018427387905) ((891 . 5625) (* 0 4611686018427387901) -> 0) ((892 . 5625) (* 0 4611686018427387902) -> 0) ((893 . 5625) (* 0 4611686018427387903) -> 0) ((894 . 5625) (* 0 4611686018427387904) -> 0) ((895 . 5625) (* 0 4611686018427387905) -> 0) ((896 . 5625) (* 1 4611686018427387901) -> 4611686018427387901) ((897 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((898 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((899 . 5625) (* 1 4611686018427387904) -> 4611686018427387904) ((900 . 5625) (* 1 4611686018427387905) -> 4611686018427387905) ((901 . 5625) (* -3 -4611686018427387906) -> 13835058055282163718) ((902 . 5625) (* -3 -4611686018427387905) -> 13835058055282163715) ((903 . 5625) (* -3 -4611686018427387904) -> 13835058055282163712) ((904 . 5625) (* -3 -4611686018427387903) -> 13835058055282163709) ((905 . 5625) (* -3 -4611686018427387902) -> 13835058055282163706) ((906 . 5625) (* -2 -4611686018427387906) -> 9223372036854775812) ((907 . 5625) (* -2 -4611686018427387905) -> 9223372036854775810) ((908 . 5625) (* -2 -4611686018427387904) -> 9223372036854775808) ((909 . 5625) (* -2 -4611686018427387903) -> 9223372036854775806) ((910 . 5625) (* -2 -4611686018427387902) -> 9223372036854775804) ((911 . 5625) (* -1 -4611686018427387906) -> 4611686018427387906) ((912 . 5625) (* -1 -4611686018427387905) -> 4611686018427387905) ((913 . 5625) (* -1 -4611686018427387904) -> 4611686018427387904) ((914 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((915 . 5625) (* -1 -4611686018427387902) -> 4611686018427387902) ((916 . 5625) (* 0 -4611686018427387906) -> 0) ((917 . 5625) (* 0 -4611686018427387905) -> 0) ((918 . 5625) (* 0 -4611686018427387904) -> 0) ((919 . 5625) (* 0 -4611686018427387903) -> 0) ((920 . 5625) (* 0 -4611686018427387902) -> 0) ((921 . 5625) (* 1 -4611686018427387906) -> -4611686018427387906) ((922 . 5625) (* 1 -4611686018427387905) -> -4611686018427387905) ((923 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((924 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((925 . 5625) (* 1 -4611686018427387902) -> -4611686018427387902) ((926 . 5625) (* -3 4611686018427387902) -> -13835058055282163706) ((927 . 5625) (* -3 4611686018427387903) -> -13835058055282163709) ((928 . 5625) (* -3 4611686018427387904) -> -13835058055282163712) ((929 . 5625) (* -3 4611686018427387905) -> -13835058055282163715) ((930 . 5625) (* -3 4611686018427387906) -> -13835058055282163718) ((931 . 5625) (* -2 4611686018427387902) -> -9223372036854775804) ((932 . 5625) (* -2 4611686018427387903) -> -9223372036854775806) ((933 . 5625) (* -2 4611686018427387904) -> -9223372036854775808) ((934 . 5625) (* -2 4611686018427387905) -> -9223372036854775810) ((935 . 5625) (* -2 4611686018427387906) -> -9223372036854775812) ((936 . 5625) (* -1 4611686018427387902) -> -4611686018427387902) ((937 . 5625) (* -1 4611686018427387903) -> -4611686018427387903) ((938 . 5625) (* -1 4611686018427387904) -> -4611686018427387904) ((939 . 5625) (* -1 4611686018427387905) -> -4611686018427387905) ((940 . 5625) (* -1 4611686018427387906) -> -4611686018427387906) ((941 . 5625) (* 0 4611686018427387902) -> 0) ((942 . 5625) (* 0 4611686018427387903) -> 0) ((943 . 5625) (* 0 4611686018427387904) -> 0) ((944 . 5625) (* 0 4611686018427387905) -> 0) ((945 . 5625) (* 0 4611686018427387906) -> 0) ((946 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((947 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((948 . 5625) (* 1 4611686018427387904) -> 4611686018427387904) ((949 . 5625) (* 1 4611686018427387905) -> 4611686018427387905) ((950 . 5625) (* 1 4611686018427387906) -> 4611686018427387906) ((951 . 5625) (* -3 -4611686018427387907) -> 13835058055282163721) ((952 . 5625) (* -3 -4611686018427387906) -> 13835058055282163718) ((953 . 5625) (* -3 -4611686018427387905) -> 13835058055282163715) ((954 . 5625) (* -3 -4611686018427387904) -> 13835058055282163712) ((955 . 5625) (* -3 -4611686018427387903) -> 13835058055282163709) ((956 . 5625) (* -2 -4611686018427387907) -> 9223372036854775814) ((957 . 5625) (* -2 -4611686018427387906) -> 9223372036854775812) ((958 . 5625) (* -2 -4611686018427387905) -> 9223372036854775810) ((959 . 5625) (* -2 -4611686018427387904) -> 9223372036854775808) ((960 . 5625) (* -2 -4611686018427387903) -> 9223372036854775806) ((961 . 5625) (* -1 -4611686018427387907) -> 4611686018427387907) ((962 . 5625) (* -1 -4611686018427387906) -> 4611686018427387906) ((963 . 5625) (* -1 -4611686018427387905) -> 4611686018427387905) ((964 . 5625) (* -1 -4611686018427387904) -> 4611686018427387904) ((965 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((966 . 5625) (* 0 -4611686018427387907) -> 0) ((967 . 5625) (* 0 -4611686018427387906) -> 0) ((968 . 5625) (* 0 -4611686018427387905) -> 0) ((969 . 5625) (* 0 -4611686018427387904) -> 0) ((970 . 5625) (* 0 -4611686018427387903) -> 0) ((971 . 5625) (* 1 -4611686018427387907) -> -4611686018427387907) ((972 . 5625) (* 1 -4611686018427387906) -> -4611686018427387906) ((973 . 5625) (* 1 -4611686018427387905) -> -4611686018427387905) ((974 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((975 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((976 . 5625) (* -3 1103515243) -> -3310545729) ((977 . 5625) (* -3 1103515244) -> -3310545732) ((978 . 5625) (* -3 1103515245) -> -3310545735) ((979 . 5625) (* -3 1103515246) -> -3310545738) ((980 . 5625) (* -3 1103515247) -> -3310545741) ((981 . 5625) (* -2 1103515243) -> -2207030486) ((982 . 5625) (* -2 1103515244) -> -2207030488) ((983 . 5625) (* -2 1103515245) -> -2207030490) ((984 . 5625) (* -2 1103515246) -> -2207030492) ((985 . 5625) (* -2 1103515247) -> -2207030494) ((986 . 5625) (* -1 1103515243) -> -1103515243) ((987 . 5625) (* -1 1103515244) -> -1103515244) ((988 . 5625) (* -1 1103515245) -> -1103515245) ((989 . 5625) (* -1 1103515246) -> -1103515246) ((990 . 5625) (* -1 1103515247) -> -1103515247) ((991 . 5625) (* 0 1103515243) -> 0) ((992 . 5625) (* 0 1103515244) -> 0) ((993 . 5625) (* 0 1103515245) -> 0) ((994 . 5625) (* 0 1103515246) -> 0) ((995 . 5625) (* 0 1103515247) -> 0) ((996 . 5625) (* 1 1103515243) -> 1103515243) ((997 . 5625) (* 1 1103515244) -> 1103515244) ((998 . 5625) (* 1 1103515245) -> 1103515245) ((999 . 5625) (* 1 1103515246) -> 1103515246) ((1000 . 5625) (* 1 1103515247) -> 1103515247) ((1001 . 5625) (* -3 631629063) -> -1894887189) ((1002 . 5625) (* -3 631629064) -> -1894887192) ((1003 . 5625) (* -3 631629065) -> -1894887195) ((1004 . 5625) (* -3 631629066) -> -1894887198) ((1005 . 5625) (* -3 631629067) -> -1894887201) ((1006 . 5625) (* -2 631629063) -> -1263258126) ((1007 . 5625) (* -2 631629064) -> -1263258128) ((1008 . 5625) (* -2 631629065) -> -1263258130) ((1009 . 5625) (* -2 631629066) -> -1263258132) ((1010 . 5625) (* -2 631629067) -> -1263258134) ((1011 . 5625) (* -1 631629063) -> -631629063) ((1012 . 5625) (* -1 631629064) -> -631629064) ((1013 . 5625) (* -1 631629065) -> -631629065) ((1014 . 5625) (* -1 631629066) -> -631629066) ((1015 . 5625) (* -1 631629067) -> -631629067) ((1016 . 5625) (* 0 631629063) -> 0) ((1017 . 5625) (* 0 631629064) -> 0) ((1018 . 5625) (* 0 631629065) -> 0) ((1019 . 5625) (* 0 631629066) -> 0) ((1020 . 5625) (* 0 631629067) -> 0) ((1021 . 5625) (* 1 631629063) -> 631629063) ((1022 . 5625) (* 1 631629064) -> 631629064) ((1023 . 5625) (* 1 631629065) -> 631629065) ((1024 . 5625) (* 1 631629066) -> 631629066) ((1025 . 5625) (* 1 631629067) -> 631629067) ((1026 . 5625) (* -3 9007199254740990) -> -27021597764222970) ((1027 . 5625) (* -3 9007199254740991) -> -27021597764222973) ((1028 . 5625) (* -3 9007199254740992) -> -27021597764222976) ((1029 . 5625) (* -3 9007199254740993) -> -27021597764222979) ((1030 . 5625) (* -3 9007199254740994) -> -27021597764222982) ((1031 . 5625) (* -2 9007199254740990) -> -18014398509481980) ((1032 . 5625) (* -2 9007199254740991) -> -18014398509481982) ((1033 . 5625) (* -2 9007199254740992) -> -18014398509481984) ((1034 . 5625) (* -2 9007199254740993) -> -18014398509481986) ((1035 . 5625) (* -2 9007199254740994) -> -18014398509481988) ((1036 . 5625) (* -1 9007199254740990) -> -9007199254740990) ((1037 . 5625) (* -1 9007199254740991) -> -9007199254740991) ((1038 . 5625) (* -1 9007199254740992) -> -9007199254740992) ((1039 . 5625) (* -1 9007199254740993) -> -9007199254740993) ((1040 . 5625) (* -1 9007199254740994) -> -9007199254740994) ((1041 . 5625) (* 0 9007199254740990) -> 0) ((1042 . 5625) (* 0 9007199254740991) -> 0) ((1043 . 5625) (* 0 9007199254740992) -> 0) ((1044 . 5625) (* 0 9007199254740993) -> 0) ((1045 . 5625) (* 0 9007199254740994) -> 0) ((1046 . 5625) (* 1 9007199254740990) -> 9007199254740990) ((1047 . 5625) (* 1 9007199254740991) -> 9007199254740991) ((1048 . 5625) (* 1 9007199254740992) -> 9007199254740992) ((1049 . 5625) (* 1 9007199254740993) -> 9007199254740993) ((1050 . 5625) (* 1 9007199254740994) -> 9007199254740994) ((1051 . 5625) (* -3 -9007199254740994) -> 27021597764222982) ((1052 . 5625) (* -3 -9007199254740993) -> 27021597764222979) ((1053 . 5625) (* -3 -9007199254740992) -> 27021597764222976) ((1054 . 5625) (* -3 -9007199254740991) -> 27021597764222973) ((1055 . 5625) (* -3 -9007199254740990) -> 27021597764222970) ((1056 . 5625) (* -2 -9007199254740994) -> 18014398509481988) ((1057 . 5625) (* -2 -9007199254740993) -> 18014398509481986) ((1058 . 5625) (* -2 -9007199254740992) -> 18014398509481984) ((1059 . 5625) (* -2 -9007199254740991) -> 18014398509481982) ((1060 . 5625) (* -2 -9007199254740990) -> 18014398509481980) ((1061 . 5625) (* -1 -9007199254740994) -> 9007199254740994) ((1062 . 5625) (* -1 -9007199254740993) -> 9007199254740993) ((1063 . 5625) (* -1 -9007199254740992) -> 9007199254740992) ((1064 . 5625) (* -1 -9007199254740991) -> 9007199254740991) ((1065 . 5625) (* -1 -9007199254740990) -> 9007199254740990) ((1066 . 5625) (* 0 -9007199254740994) -> 0) ((1067 . 5625) (* 0 -9007199254740993) -> 0) ((1068 . 5625) (* 0 -9007199254740992) -> 0) ((1069 . 5625) (* 0 -9007199254740991) -> 0) ((1070 . 5625) (* 0 -9007199254740990) -> 0) ((1071 . 5625) (* 1 -9007199254740994) -> -9007199254740994) ((1072 . 5625) (* 1 -9007199254740993) -> -9007199254740993) ((1073 . 5625) (* 1 -9007199254740992) -> -9007199254740992) ((1074 . 5625) (* 1 -9007199254740991) -> -9007199254740991) ((1075 . 5625) (* 1 -9007199254740990) -> -9007199254740990) ((1076 . 5625) (* -3 12343) -> -37029) ((1077 . 5625) (* -3 12344) -> -37032) ((1078 . 5625) (* -3 12345) -> -37035) ((1079 . 5625) (* -3 12346) -> -37038) ((1080 . 5625) (* -3 12347) -> -37041) ((1081 . 5625) (* -2 12343) -> -24686) ((1082 . 5625) (* -2 12344) -> -24688) ((1083 . 5625) (* -2 12345) -> -24690) ((1084 . 5625) (* -2 12346) -> -24692) ((1085 . 5625) (* -2 12347) -> -24694) ((1086 . 5625) (* -1 12343) -> -12343) ((1087 . 5625) (* -1 12344) -> -12344) ((1088 . 5625) (* -1 12345) -> -12345) ((1089 . 5625) (* -1 12346) -> -12346) ((1090 . 5625) (* -1 12347) -> -12347) ((1091 . 5625) (* 0 12343) -> 0) ((1092 . 5625) (* 0 12344) -> 0) ((1093 . 5625) (* 0 12345) -> 0) ((1094 . 5625) (* 0 12346) -> 0) ((1095 . 5625) (* 0 12347) -> 0) ((1096 . 5625) (* 1 12343) -> 12343) ((1097 . 5625) (* 1 12344) -> 12344) ((1098 . 5625) (* 1 12345) -> 12345) ((1099 . 5625) (* 1 12346) -> 12346) ((1100 . 5625) (* 1 12347) -> 12347) ((1101 . 5625) (* -3 4294967294) -> -12884901882) ((1102 . 5625) (* -3 4294967295) -> -12884901885) ((1103 . 5625) (* -3 4294967296) -> -12884901888) ((1104 . 5625) (* -3 4294967297) -> -12884901891) ((1105 . 5625) (* -3 4294967298) -> -12884901894) ((1106 . 5625) (* -2 4294967294) -> -8589934588) ((1107 . 5625) (* -2 4294967295) -> -8589934590) ((1108 . 5625) (* -2 4294967296) -> -8589934592) ((1109 . 5625) (* -2 4294967297) -> -8589934594) ((1110 . 5625) (* -2 4294967298) -> -8589934596) ((1111 . 5625) (* -1 4294967294) -> -4294967294) ((1112 . 5625) (* -1 4294967295) -> -4294967295) ((1113 . 5625) (* -1 4294967296) -> -4294967296) ((1114 . 5625) (* -1 4294967297) -> -4294967297) ((1115 . 5625) (* -1 4294967298) -> -4294967298) ((1116 . 5625) (* 0 4294967294) -> 0) ((1117 . 5625) (* 0 4294967295) -> 0) ((1118 . 5625) (* 0 4294967296) -> 0) ((1119 . 5625) (* 0 4294967297) -> 0) ((1120 . 5625) (* 0 4294967298) -> 0) ((1121 . 5625) (* 1 4294967294) -> 4294967294) ((1122 . 5625) (* 1 4294967295) -> 4294967295) ((1123 . 5625) (* 1 4294967296) -> 4294967296) ((1124 . 5625) (* 1 4294967297) -> 4294967297) ((1125 . 5625) (* 1 4294967298) -> 4294967298) ((1126 . 5625) (* 0 -2) -> 0) ((1127 . 5625) (* 0 -1) -> 0) ((1128 . 5625) (* 0 0) -> 0) ((1129 . 5625) (* 0 1) -> 0) ((1130 . 5625) (* 0 2) -> 0) ((1131 . 5625) (* 1 -2) -> -2) ((1132 . 5625) (* 1 -1) -> -1) ((1133 . 5625) (* 1 0) -> 0) ((1134 . 5625) (* 1 1) -> 1) ((1135 . 5625) (* 1 2) -> 2) ((1136 . 5625) (* 2 -2) -> -4) ((1137 . 5625) (* 2 -1) -> -2) ((1138 . 5625) (* 2 0) -> 0) ((1139 . 5625) (* 2 1) -> 2) ((1140 . 5625) (* 2 2) -> 4) ((1141 . 5625) (* 3 -2) -> -6) ((1142 . 5625) (* 3 -1) -> -3) ((1143 . 5625) (* 3 0) -> 0) ((1144 . 5625) (* 3 1) -> 3) ((1145 . 5625) (* 3 2) -> 6) ((1146 . 5625) (* 4 -2) -> -8) ((1147 . 5625) (* 4 -1) -> -4) ((1148 . 5625) (* 4 0) -> 0) ((1149 . 5625) (* 4 1) -> 4) ((1150 . 5625) (* 4 2) -> 8) ((1151 . 5625) (* 0 -1) -> 0) ((1152 . 5625) (* 0 0) -> 0) ((1153 . 5625) (* 0 1) -> 0) ((1154 . 5625) (* 0 2) -> 0) ((1155 . 5625) (* 0 3) -> 0) ((1156 . 5625) (* 1 -1) -> -1) ((1157 . 5625) (* 1 0) -> 0) ((1158 . 5625) (* 1 1) -> 1) ((1159 . 5625) (* 1 2) -> 2) ((1160 . 5625) (* 1 3) -> 3) ((1161 . 5625) (* 2 -1) -> -2) ((1162 . 5625) (* 2 0) -> 0) ((1163 . 5625) (* 2 1) -> 2) ((1164 . 5625) (* 2 2) -> 4) ((1165 . 5625) (* 2 3) -> 6) ((1166 . 5625) (* 3 -1) -> -3) ((1167 . 5625) (* 3 0) -> 0) ((1168 . 5625) (* 3 1) -> 3) ((1169 . 5625) (* 3 2) -> 6) ((1170 . 5625) (* 3 3) -> 9) ((1171 . 5625) (* 4 -1) -> -4) ((1172 . 5625) (* 4 0) -> 0) ((1173 . 5625) (* 4 1) -> 4) ((1174 . 5625) (* 4 2) -> 8) ((1175 . 5625) (* 4 3) -> 12) ((1176 . 5625) (* 0 -3) -> 0) ((1177 . 5625) (* 0 -2) -> 0) ((1178 . 5625) (* 0 -1) -> 0) ((1179 . 5625) (* 0 0) -> 0) ((1180 . 5625) (* 0 1) -> 0) ((1181 . 5625) (* 1 -3) -> -3) ((1182 . 5625) (* 1 -2) -> -2) ((1183 . 5625) (* 1 -1) -> -1) ((1184 . 5625) (* 1 0) -> 0) ((1185 . 5625) (* 1 1) -> 1) ((1186 . 5625) (* 2 -3) -> -6) ((1187 . 5625) (* 2 -2) -> -4) ((1188 . 5625) (* 2 -1) -> -2) ((1189 . 5625) (* 2 0) -> 0) ((1190 . 5625) (* 2 1) -> 2) ((1191 . 5625) (* 3 -3) -> -9) ((1192 . 5625) (* 3 -2) -> -6) ((1193 . 5625) (* 3 -1) -> -3) ((1194 . 5625) (* 3 0) -> 0) ((1195 . 5625) (* 3 1) -> 3) ((1196 . 5625) (* 4 -3) -> -12) ((1197 . 5625) (* 4 -2) -> -8) ((1198 . 5625) (* 4 -1) -> -4) ((1199 . 5625) (* 4 0) -> 0) ((1200 . 5625) (* 4 1) -> 4) ((1201 . 5625) (* 0 0) -> 0) ((1202 . 5625) (* 0 1) -> 0) ((1203 . 5625) (* 0 2) -> 0) ((1204 . 5625) (* 0 3) -> 0) ((1205 . 5625) (* 0 4) -> 0) ((1206 . 5625) (* 1 0) -> 0) ((1207 . 5625) (* 1 1) -> 1) ((1208 . 5625) (* 1 2) -> 2) ((1209 . 5625) (* 1 3) -> 3) ((1210 . 5625) (* 1 4) -> 4) ((1211 . 5625) (* 2 0) -> 0) ((1212 . 5625) (* 2 1) -> 2) ((1213 . 5625) (* 2 2) -> 4) ((1214 . 5625) (* 2 3) -> 6) ((1215 . 5625) (* 2 4) -> 8) ((1216 . 5625) (* 3 0) -> 0) ((1217 . 5625) (* 3 1) -> 3) ((1218 . 5625) (* 3 2) -> 6) ((1219 . 5625) (* 3 3) -> 9) ((1220 . 5625) (* 3 4) -> 12) ((1221 . 5625) (* 4 0) -> 0) ((1222 . 5625) (* 4 1) -> 4) ((1223 . 5625) (* 4 2) -> 8) ((1224 . 5625) (* 4 3) -> 12) ((1225 . 5625) (* 4 4) -> 16) ((1226 . 5625) (* 0 -4) -> 0) ((1227 . 5625) (* 0 -3) -> 0) ((1228 . 5625) (* 0 -2) -> 0) ((1229 . 5625) (* 0 -1) -> 0) ((1230 . 5625) (* 0 0) -> 0) ((1231 . 5625) (* 1 -4) -> -4) ((1232 . 5625) (* 1 -3) -> -3) ((1233 . 5625) (* 1 -2) -> -2) ((1234 . 5625) (* 1 -1) -> -1) ((1235 . 5625) (* 1 0) -> 0) ((1236 . 5625) (* 2 -4) -> -8) ((1237 . 5625) (* 2 -3) -> -6) ((1238 . 5625) (* 2 -2) -> -4) ((1239 . 5625) (* 2 -1) -> -2) ((1240 . 5625) (* 2 0) -> 0) ((1241 . 5625) (* 3 -4) -> -12) ((1242 . 5625) (* 3 -3) -> -9) ((1243 . 5625) (* 3 -2) -> -6) ((1244 . 5625) (* 3 -1) -> -3) ((1245 . 5625) (* 3 0) -> 0) ((1246 . 5625) (* 4 -4) -> -16) ((1247 . 5625) (* 4 -3) -> -12) ((1248 . 5625) (* 4 -2) -> -8) ((1249 . 5625) (* 4 -1) -> -4) ((1250 . 5625) (* 4 0) -> 0) ((1251 . 5625) (* 0 4611686018427387901) -> 0) ((1252 . 5625) (* 0 4611686018427387902) -> 0) ((1253 . 5625) (* 0 4611686018427387903) -> 0) ((1254 . 5625) (* 0 4611686018427387904) -> 0) ((1255 . 5625) (* 0 4611686018427387905) -> 0) ((1256 . 5625) (* 1 4611686018427387901) -> 4611686018427387901) ((1257 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((1258 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((1259 . 5625) (* 1 4611686018427387904) -> 4611686018427387904) ((1260 . 5625) (* 1 4611686018427387905) -> 4611686018427387905) ((1261 . 5625) (* 2 4611686018427387901) -> 9223372036854775802) ((1262 . 5625) (* 2 4611686018427387902) -> 9223372036854775804) ((1263 . 5625) (* 2 4611686018427387903) -> 9223372036854775806) ((1264 . 5625) (* 2 4611686018427387904) -> 9223372036854775808) ((1265 . 5625) (* 2 4611686018427387905) -> 9223372036854775810) ((1266 . 5625) (* 3 4611686018427387901) -> 13835058055282163703) ((1267 . 5625) (* 3 4611686018427387902) -> 13835058055282163706) ((1268 . 5625) (* 3 4611686018427387903) -> 13835058055282163709) ((1269 . 5625) (* 3 4611686018427387904) -> 13835058055282163712) ((1270 . 5625) (* 3 4611686018427387905) -> 13835058055282163715) ((1271 . 5625) (* 4 4611686018427387901) -> 18446744073709551604) ((1272 . 5625) (* 4 4611686018427387902) -> 18446744073709551608) ((1273 . 5625) (* 4 4611686018427387903) -> 18446744073709551612) ((1274 . 5625) (* 4 4611686018427387904) -> 18446744073709551616) ((1275 . 5625) (* 4 4611686018427387905) -> 18446744073709551620) ((1276 . 5625) (* 0 -4611686018427387906) -> 0) ((1277 . 5625) (* 0 -4611686018427387905) -> 0) ((1278 . 5625) (* 0 -4611686018427387904) -> 0) ((1279 . 5625) (* 0 -4611686018427387903) -> 0) ((1280 . 5625) (* 0 -4611686018427387902) -> 0) ((1281 . 5625) (* 1 -4611686018427387906) -> -4611686018427387906) ((1282 . 5625) (* 1 -4611686018427387905) -> -4611686018427387905) ((1283 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((1284 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((1285 . 5625) (* 1 -4611686018427387902) -> -4611686018427387902) ((1286 . 5625) (* 2 -4611686018427387906) -> -9223372036854775812) ((1287 . 5625) (* 2 -4611686018427387905) -> -9223372036854775810) ((1288 . 5625) (* 2 -4611686018427387904) -> -9223372036854775808) ((1289 . 5625) (* 2 -4611686018427387903) -> -9223372036854775806) ((1290 . 5625) (* 2 -4611686018427387902) -> -9223372036854775804) ((1291 . 5625) (* 3 -4611686018427387906) -> -13835058055282163718) ((1292 . 5625) (* 3 -4611686018427387905) -> -13835058055282163715) ((1293 . 5625) (* 3 -4611686018427387904) -> -13835058055282163712) ((1294 . 5625) (* 3 -4611686018427387903) -> -13835058055282163709) ((1295 . 5625) (* 3 -4611686018427387902) -> -13835058055282163706) ((1296 . 5625) (* 4 -4611686018427387906) -> -18446744073709551624) ((1297 . 5625) (* 4 -4611686018427387905) -> -18446744073709551620) ((1298 . 5625) (* 4 -4611686018427387904) -> -18446744073709551616) ((1299 . 5625) (* 4 -4611686018427387903) -> -18446744073709551612) ((1300 . 5625) (* 4 -4611686018427387902) -> -18446744073709551608) ((1301 . 5625) (* 0 4611686018427387902) -> 0) ((1302 . 5625) (* 0 4611686018427387903) -> 0) ((1303 . 5625) (* 0 4611686018427387904) -> 0) ((1304 . 5625) (* 0 4611686018427387905) -> 0) ((1305 . 5625) (* 0 4611686018427387906) -> 0) ((1306 . 5625) (* 1 4611686018427387902) -> 4611686018427387902) ((1307 . 5625) (* 1 4611686018427387903) -> 4611686018427387903) ((1308 . 5625) (* 1 4611686018427387904) -> 4611686018427387904) ((1309 . 5625) (* 1 4611686018427387905) -> 4611686018427387905) ((1310 . 5625) (* 1 4611686018427387906) -> 4611686018427387906) ((1311 . 5625) (* 2 4611686018427387902) -> 9223372036854775804) ((1312 . 5625) (* 2 4611686018427387903) -> 9223372036854775806) ((1313 . 5625) (* 2 4611686018427387904) -> 9223372036854775808) ((1314 . 5625) (* 2 4611686018427387905) -> 9223372036854775810) ((1315 . 5625) (* 2 4611686018427387906) -> 9223372036854775812) ((1316 . 5625) (* 3 4611686018427387902) -> 13835058055282163706) ((1317 . 5625) (* 3 4611686018427387903) -> 13835058055282163709) ((1318 . 5625) (* 3 4611686018427387904) -> 13835058055282163712) ((1319 . 5625) (* 3 4611686018427387905) -> 13835058055282163715) ((1320 . 5625) (* 3 4611686018427387906) -> 13835058055282163718) ((1321 . 5625) (* 4 4611686018427387902) -> 18446744073709551608) ((1322 . 5625) (* 4 4611686018427387903) -> 18446744073709551612) ((1323 . 5625) (* 4 4611686018427387904) -> 18446744073709551616) ((1324 . 5625) (* 4 4611686018427387905) -> 18446744073709551620) ((1325 . 5625) (* 4 4611686018427387906) -> 18446744073709551624) ((1326 . 5625) (* 0 -4611686018427387907) -> 0) ((1327 . 5625) (* 0 -4611686018427387906) -> 0) ((1328 . 5625) (* 0 -4611686018427387905) -> 0) ((1329 . 5625) (* 0 -4611686018427387904) -> 0) ((1330 . 5625) (* 0 -4611686018427387903) -> 0) ((1331 . 5625) (* 1 -4611686018427387907) -> -4611686018427387907) ((1332 . 5625) (* 1 -4611686018427387906) -> -4611686018427387906) ((1333 . 5625) (* 1 -4611686018427387905) -> -4611686018427387905) ((1334 . 5625) (* 1 -4611686018427387904) -> -4611686018427387904) ((1335 . 5625) (* 1 -4611686018427387903) -> -4611686018427387903) ((1336 . 5625) (* 2 -4611686018427387907) -> -9223372036854775814) ((1337 . 5625) (* 2 -4611686018427387906) -> -9223372036854775812) ((1338 . 5625) (* 2 -4611686018427387905) -> -9223372036854775810) ((1339 . 5625) (* 2 -4611686018427387904) -> -9223372036854775808) ((1340 . 5625) (* 2 -4611686018427387903) -> -9223372036854775806) ((1341 . 5625) (* 3 -4611686018427387907) -> -13835058055282163721) ((1342 . 5625) (* 3 -4611686018427387906) -> -13835058055282163718) ((1343 . 5625) (* 3 -4611686018427387905) -> -13835058055282163715) ((1344 . 5625) (* 3 -4611686018427387904) -> -13835058055282163712) ((1345 . 5625) (* 3 -4611686018427387903) -> -13835058055282163709) ((1346 . 5625) (* 4 -4611686018427387907) -> -18446744073709551628) ((1347 . 5625) (* 4 -4611686018427387906) -> -18446744073709551624) ((1348 . 5625) (* 4 -4611686018427387905) -> -18446744073709551620) ((1349 . 5625) (* 4 -4611686018427387904) -> -18446744073709551616) ((1350 . 5625) (* 4 -4611686018427387903) -> -18446744073709551612) ((1351 . 5625) (* 0 1103515243) -> 0) ((1352 . 5625) (* 0 1103515244) -> 0) ((1353 . 5625) (* 0 1103515245) -> 0) ((1354 . 5625) (* 0 1103515246) -> 0) ((1355 . 5625) (* 0 1103515247) -> 0) ((1356 . 5625) (* 1 1103515243) -> 1103515243) ((1357 . 5625) (* 1 1103515244) -> 1103515244) ((1358 . 5625) (* 1 1103515245) -> 1103515245) ((1359 . 5625) (* 1 1103515246) -> 1103515246) ((1360 . 5625) (* 1 1103515247) -> 1103515247) ((1361 . 5625) (* 2 1103515243) -> 2207030486) ((1362 . 5625) (* 2 1103515244) -> 2207030488) ((1363 . 5625) (* 2 1103515245) -> 2207030490) ((1364 . 5625) (* 2 1103515246) -> 2207030492) ((1365 . 5625) (* 2 1103515247) -> 2207030494) ((1366 . 5625) (* 3 1103515243) -> 3310545729) ((1367 . 5625) (* 3 1103515244) -> 3310545732) ((1368 . 5625) (* 3 1103515245) -> 3310545735) ((1369 . 5625) (* 3 1103515246) -> 3310545738) ((1370 . 5625) (* 3 1103515247) -> 3310545741) ((1371 . 5625) (* 4 1103515243) -> 4414060972) ((1372 . 5625) (* 4 1103515244) -> 4414060976) ((1373 . 5625) (* 4 1103515245) -> 4414060980) ((1374 . 5625) (* 4 1103515246) -> 4414060984) ((1375 . 5625) (* 4 1103515247) -> 4414060988) ((1376 . 5625) (* 0 631629063) -> 0) ((1377 . 5625) (* 0 631629064) -> 0) ((1378 . 5625) (* 0 631629065) -> 0) ((1379 . 5625) (* 0 631629066) -> 0) ((1380 . 5625) (* 0 631629067) -> 0) ((1381 . 5625) (* 1 631629063) -> 631629063) ((1382 . 5625) (* 1 631629064) -> 631629064) ((1383 . 5625) (* 1 631629065) -> 631629065) ((1384 . 5625) (* 1 631629066) -> 631629066) ((1385 . 5625) (* 1 631629067) -> 631629067) ((1386 . 5625) (* 2 631629063) -> 1263258126) ((1387 . 5625) (* 2 631629064) -> 1263258128) ((1388 . 5625) (* 2 631629065) -> 1263258130) ((1389 . 5625) (* 2 631629066) -> 1263258132) ((1390 . 5625) (* 2 631629067) -> 1263258134) ((1391 . 5625) (* 3 631629063) -> 1894887189) ((1392 . 5625) (* 3 631629064) -> 1894887192) ((1393 . 5625) (* 3 631629065) -> 1894887195) ((1394 . 5625) (* 3 631629066) -> 1894887198) ((1395 . 5625) (* 3 631629067) -> 1894887201) ((1396 . 5625) (* 4 631629063) -> 2526516252) ((1397 . 5625) (* 4 631629064) -> 2526516256) ((1398 . 5625) (* 4 631629065) -> 2526516260) ((1399 . 5625) (* 4 631629066) -> 2526516264) ((1400 . 5625) (* 4 631629067) -> 2526516268) ((1401 . 5625) (* 0 9007199254740990) -> 0) ((1402 . 5625) (* 0 9007199254740991) -> 0) ((1403 . 5625) (* 0 9007199254740992) -> 0) ((1404 . 5625) (* 0 9007199254740993) -> 0) ((1405 . 5625) (* 0 9007199254740994) -> 0) ((1406 . 5625) (* 1 9007199254740990) -> 9007199254740990) ((1407 . 5625) (* 1 9007199254740991) -> 9007199254740991) ((1408 . 5625) (* 1 9007199254740992) -> 9007199254740992) ((1409 . 5625) (* 1 9007199254740993) -> 9007199254740993) ((1410 . 5625) (* 1 9007199254740994) -> 9007199254740994) ((1411 . 5625) (* 2 9007199254740990) -> 18014398509481980) ((1412 . 5625) (* 2 9007199254740991) -> 18014398509481982) ((1413 . 5625) (* 2 9007199254740992) -> 18014398509481984) ((1414 . 5625) (* 2 9007199254740993) -> 18014398509481986) ((1415 . 5625) (* 2 9007199254740994) -> 18014398509481988) ((1416 . 5625) (* 3 9007199254740990) -> 27021597764222970) ((1417 . 5625) (* 3 9007199254740991) -> 27021597764222973) ((1418 . 5625) (* 3 9007199254740992) -> 27021597764222976) ((1419 . 5625) (* 3 9007199254740993) -> 27021597764222979) ((1420 . 5625) (* 3 9007199254740994) -> 27021597764222982) ((1421 . 5625) (* 4 9007199254740990) -> 36028797018963960) ((1422 . 5625) (* 4 9007199254740991) -> 36028797018963964) ((1423 . 5625) (* 4 9007199254740992) -> 36028797018963968) ((1424 . 5625) (* 4 9007199254740993) -> 36028797018963972) ((1425 . 5625) (* 4 9007199254740994) -> 36028797018963976) ((1426 . 5625) (* 0 -9007199254740994) -> 0) ((1427 . 5625) (* 0 -9007199254740993) -> 0) ((1428 . 5625) (* 0 -9007199254740992) -> 0) ((1429 . 5625) (* 0 -9007199254740991) -> 0) ((1430 . 5625) (* 0 -9007199254740990) -> 0) ((1431 . 5625) (* 1 -9007199254740994) -> -9007199254740994) ((1432 . 5625) (* 1 -9007199254740993) -> -9007199254740993) ((1433 . 5625) (* 1 -9007199254740992) -> -9007199254740992) ((1434 . 5625) (* 1 -9007199254740991) -> -9007199254740991) ((1435 . 5625) (* 1 -9007199254740990) -> -9007199254740990) ((1436 . 5625) (* 2 -9007199254740994) -> -18014398509481988) ((1437 . 5625) (* 2 -9007199254740993) -> -18014398509481986) ((1438 . 5625) (* 2 -9007199254740992) -> -18014398509481984) ((1439 . 5625) (* 2 -9007199254740991) -> -18014398509481982) ((1440 . 5625) (* 2 -9007199254740990) -> -18014398509481980) ((1441 . 5625) (* 3 -9007199254740994) -> -27021597764222982) ((1442 . 5625) (* 3 -9007199254740993) -> -27021597764222979) ((1443 . 5625) (* 3 -9007199254740992) -> -27021597764222976) ((1444 . 5625) (* 3 -9007199254740991) -> -27021597764222973) ((1445 . 5625) (* 3 -9007199254740990) -> -27021597764222970) ((1446 . 5625) (* 4 -9007199254740994) -> -36028797018963976) ((1447 . 5625) (* 4 -9007199254740993) -> -36028797018963972) ((1448 . 5625) (* 4 -9007199254740992) -> -36028797018963968) ((1449 . 5625) (* 4 -9007199254740991) -> -36028797018963964) ((1450 . 5625) (* 4 -9007199254740990) -> -36028797018963960) ((1451 . 5625) (* 0 12343) -> 0) ((1452 . 5625) (* 0 12344) -> 0) ((1453 . 5625) (* 0 12345) -> 0) ((1454 . 5625) (* 0 12346) -> 0) ((1455 . 5625) (* 0 12347) -> 0) ((1456 . 5625) (* 1 12343) -> 12343) ((1457 . 5625) (* 1 12344) -> 12344) ((1458 . 5625) (* 1 12345) -> 12345) ((1459 . 5625) (* 1 12346) -> 12346) ((1460 . 5625) (* 1 12347) -> 12347) ((1461 . 5625) (* 2 12343) -> 24686) ((1462 . 5625) (* 2 12344) -> 24688) ((1463 . 5625) (* 2 12345) -> 24690) ((1464 . 5625) (* 2 12346) -> 24692) ((1465 . 5625) (* 2 12347) -> 24694) ((1466 . 5625) (* 3 12343) -> 37029) ((1467 . 5625) (* 3 12344) -> 37032) ((1468 . 5625) (* 3 12345) -> 37035) ((1469 . 5625) (* 3 12346) -> 37038) ((1470 . 5625) (* 3 12347) -> 37041) ((1471 . 5625) (* 4 12343) -> 49372) ((1472 . 5625) (* 4 12344) -> 49376) ((1473 . 5625) (* 4 12345) -> 49380) ((1474 . 5625) (* 4 12346) -> 49384) ((1475 . 5625) (* 4 12347) -> 49388) ((1476 . 5625) (* 0 4294967294) -> 0) ((1477 . 5625) (* 0 4294967295) -> 0) ((1478 . 5625) (* 0 4294967296) -> 0) ((1479 . 5625) (* 0 4294967297) -> 0) ((1480 . 5625) (* 0 4294967298) -> 0) ((1481 . 5625) (* 1 4294967294) -> 4294967294) ((1482 . 5625) (* 1 4294967295) -> 4294967295) ((1483 . 5625) (* 1 4294967296) -> 4294967296) ((1484 . 5625) (* 1 4294967297) -> 4294967297) ((1485 . 5625) (* 1 4294967298) -> 4294967298) ((1486 . 5625) (* 2 4294967294) -> 8589934588) ((1487 . 5625) (* 2 4294967295) -> 8589934590) ((1488 . 5625) (* 2 4294967296) -> 8589934592) ((1489 . 5625) (* 2 4294967297) -> 8589934594) ((1490 . 5625) (* 2 4294967298) -> 8589934596) ((1491 . 5625) (* 3 4294967294) -> 12884901882) ((1492 . 5625) (* 3 4294967295) -> 12884901885) ((1493 . 5625) (* 3 4294967296) -> 12884901888) ((1494 . 5625) (* 3 4294967297) -> 12884901891) ((1495 . 5625) (* 3 4294967298) -> 12884901894) ((1496 . 5625) (* 4 4294967294) -> 17179869176) ((1497 . 5625) (* 4 4294967295) -> 17179869180) ((1498 . 5625) (* 4 4294967296) -> 17179869184) ((1499 . 5625) (* 4 4294967297) -> 17179869188) ((1500 . 5625) (* 4 4294967298) -> 17179869192) ((1501 . 5625) (* -4 -2) -> 8) ((1502 . 5625) (* -4 -1) -> 4) ((1503 . 5625) (* -4 0) -> 0) ((1504 . 5625) (* -4 1) -> -4) ((1505 . 5625) (* -4 2) -> -8) ((1506 . 5625) (* -3 -2) -> 6) ((1507 . 5625) (* -3 -1) -> 3) ((1508 . 5625) (* -3 0) -> 0) ((1509 . 5625) (* -3 1) -> -3) ((1510 . 5625) (* -3 2) -> -6) ((1511 . 5625) (* -2 -2) -> 4) ((1512 . 5625) (* -2 -1) -> 2) ((1513 . 5625) (* -2 0) -> 0) ((1514 . 5625) (* -2 1) -> -2) ((1515 . 5625) (* -2 2) -> -4) ((1516 . 5625) (* -1 -2) -> 2) ((1517 . 5625) (* -1 -1) -> 1) ((1518 . 5625) (* -1 0) -> 0) ((1519 . 5625) (* -1 1) -> -1) ((1520 . 5625) (* -1 2) -> -2) ((1521 . 5625) (* 0 -2) -> 0) ((1522 . 5625) (* 0 -1) -> 0) ((1523 . 5625) (* 0 0) -> 0) ((1524 . 5625) (* 0 1) -> 0) ((1525 . 5625) (* 0 2) -> 0) ((1526 . 5625) (* -4 -1) -> 4) ((1527 . 5625) (* -4 0) -> 0) ((1528 . 5625) (* -4 1) -> -4) ((1529 . 5625) (* -4 2) -> -8) ((1530 . 5625) (* -4 3) -> -12) ((1531 . 5625) (* -3 -1) -> 3) ((1532 . 5625) (* -3 0) -> 0) ((1533 . 5625) (* -3 1) -> -3) ((1534 . 5625) (* -3 2) -> -6) ((1535 . 5625) (* -3 3) -> -9) ((1536 . 5625) (* -2 -1) -> 2) ((1537 . 5625) (* -2 0) -> 0) ((1538 . 5625) (* -2 1) -> -2) ((1539 . 5625) (* -2 2) -> -4) ((1540 . 5625) (* -2 3) -> -6) ((1541 . 5625) (* -1 -1) -> 1) ((1542 . 5625) (* -1 0) -> 0) ((1543 . 5625) (* -1 1) -> -1) ((1544 . 5625) (* -1 2) -> -2) ((1545 . 5625) (* -1 3) -> -3) ((1546 . 5625) (* 0 -1) -> 0) ((1547 . 5625) (* 0 0) -> 0) ((1548 . 5625) (* 0 1) -> 0) ((1549 . 5625) (* 0 2) -> 0) ((1550 . 5625) (* 0 3) -> 0) ((1551 . 5625) (* -4 -3) -> 12) ((1552 . 5625) (* -4 -2) -> 8) ((1553 . 5625) (* -4 -1) -> 4) ((1554 . 5625) (* -4 0) -> 0) ((1555 . 5625) (* -4 1) -> -4) ((1556 . 5625) (* -3 -3) -> 9) ((1557 . 5625) (* -3 -2) -> 6) ((1558 . 5625) (* -3 -1) -> 3) ((1559 . 5625) (* -3 0) -> 0) ((1560 . 5625) (* -3 1) -> -3) ((1561 . 5625) (* -2 -3) -> 6) ((1562 . 5625) (* -2 -2) -> 4) ((1563 . 5625) (* -2 -1) -> 2) ((1564 . 5625) (* -2 0) -> 0) ((1565 . 5625) (* -2 1) -> -2) ((1566 . 5625) (* -1 -3) -> 3) ((1567 . 5625) (* -1 -2) -> 2) ((1568 . 5625) (* -1 -1) -> 1) ((1569 . 5625) (* -1 0) -> 0) ((1570 . 5625) (* -1 1) -> -1) ((1571 . 5625) (* 0 -3) -> 0) ((1572 . 5625) (* 0 -2) -> 0) ((1573 . 5625) (* 0 -1) -> 0) ((1574 . 5625) (* 0 0) -> 0) ((1575 . 5625) (* 0 1) -> 0) ((1576 . 5625) (* -4 0) -> 0) ((1577 . 5625) (* -4 1) -> -4) ((1578 . 5625) (* -4 2) -> -8) ((1579 . 5625) (* -4 3) -> -12) ((1580 . 5625) (* -4 4) -> -16) ((1581 . 5625) (* -3 0) -> 0) ((1582 . 5625) (* -3 1) -> -3) ((1583 . 5625) (* -3 2) -> -6) ((1584 . 5625) (* -3 3) -> -9) ((1585 . 5625) (* -3 4) -> -12) ((1586 . 5625) (* -2 0) -> 0) ((1587 . 5625) (* -2 1) -> -2) ((1588 . 5625) (* -2 2) -> -4) ((1589 . 5625) (* -2 3) -> -6) ((1590 . 5625) (* -2 4) -> -8) ((1591 . 5625) (* -1 0) -> 0) ((1592 . 5625) (* -1 1) -> -1) ((1593 . 5625) (* -1 2) -> -2) ((1594 . 5625) (* -1 3) -> -3) ((1595 . 5625) (* -1 4) -> -4) ((1596 . 5625) (* 0 0) -> 0) ((1597 . 5625) (* 0 1) -> 0) ((1598 . 5625) (* 0 2) -> 0) ((1599 . 5625) (* 0 3) -> 0) ((1600 . 5625) (* 0 4) -> 0) ((1601 . 5625) (* -4 -4) -> 16) ((1602 . 5625) (* -4 -3) -> 12) ((1603 . 5625) (* -4 -2) -> 8) ((1604 . 5625) (* -4 -1) -> 4) ((1605 . 5625) (* -4 0) -> 0) ((1606 . 5625) (* -3 -4) -> 12) ((1607 . 5625) (* -3 -3) -> 9) ((1608 . 5625) (* -3 -2) -> 6) ((1609 . 5625) (* -3 -1) -> 3) ((1610 . 5625) (* -3 0) -> 0) ((1611 . 5625) (* -2 -4) -> 8) ((1612 . 5625) (* -2 -3) -> 6) ((1613 . 5625) (* -2 -2) -> 4) ((1614 . 5625) (* -2 -1) -> 2) ((1615 . 5625) (* -2 0) -> 0) ((1616 . 5625) (* -1 -4) -> 4) ((1617 . 5625) (* -1 -3) -> 3) ((1618 . 5625) (* -1 -2) -> 2) ((1619 . 5625) (* -1 -1) -> 1) ((1620 . 5625) (* -1 0) -> 0) ((1621 . 5625) (* 0 -4) -> 0) ((1622 . 5625) (* 0 -3) -> 0) ((1623 . 5625) (* 0 -2) -> 0) ((1624 . 5625) (* 0 -1) -> 0) ((1625 . 5625) (* 0 0) -> 0) ((1626 . 5625) (* -4 4611686018427387901) -> -18446744073709551604) ((1627 . 5625) (* -4 4611686018427387902) -> -18446744073709551608) ((1628 . 5625) (* -4 4611686018427387903) -> -18446744073709551612) ((1629 . 5625) (* -4 4611686018427387904) -> -18446744073709551616) ((1630 . 5625) (* -4 4611686018427387905) -> -18446744073709551620) ((1631 . 5625) (* -3 4611686018427387901) -> -13835058055282163703) ((1632 . 5625) (* -3 4611686018427387902) -> -13835058055282163706) ((1633 . 5625) (* -3 4611686018427387903) -> -13835058055282163709) ((1634 . 5625) (* -3 4611686018427387904) -> -13835058055282163712) ((1635 . 5625) (* -3 4611686018427387905) -> -13835058055282163715) ((1636 . 5625) (* -2 4611686018427387901) -> -9223372036854775802) ((1637 . 5625) (* -2 4611686018427387902) -> -9223372036854775804) ((1638 . 5625) (* -2 4611686018427387903) -> -9223372036854775806) ((1639 . 5625) (* -2 4611686018427387904) -> -9223372036854775808) ((1640 . 5625) (* -2 4611686018427387905) -> -9223372036854775810) ((1641 . 5625) (* -1 4611686018427387901) -> -4611686018427387901) ((1642 . 5625) (* -1 4611686018427387902) -> -4611686018427387902) ((1643 . 5625) (* -1 4611686018427387903) -> -4611686018427387903) ((1644 . 5625) (* -1 4611686018427387904) -> -4611686018427387904) ((1645 . 5625) (* -1 4611686018427387905) -> -4611686018427387905) ((1646 . 5625) (* 0 4611686018427387901) -> 0) ((1647 . 5625) (* 0 4611686018427387902) -> 0) ((1648 . 5625) (* 0 4611686018427387903) -> 0) ((1649 . 5625) (* 0 4611686018427387904) -> 0) ((1650 . 5625) (* 0 4611686018427387905) -> 0) ((1651 . 5625) (* -4 -4611686018427387906) -> 18446744073709551624) ((1652 . 5625) (* -4 -4611686018427387905) -> 18446744073709551620) ((1653 . 5625) (* -4 -4611686018427387904) -> 18446744073709551616) ((1654 . 5625) (* -4 -4611686018427387903) -> 18446744073709551612) ((1655 . 5625) (* -4 -4611686018427387902) -> 18446744073709551608) ((1656 . 5625) (* -3 -4611686018427387906) -> 13835058055282163718) ((1657 . 5625) (* -3 -4611686018427387905) -> 13835058055282163715) ((1658 . 5625) (* -3 -4611686018427387904) -> 13835058055282163712) ((1659 . 5625) (* -3 -4611686018427387903) -> 13835058055282163709) ((1660 . 5625) (* -3 -4611686018427387902) -> 13835058055282163706) ((1661 . 5625) (* -2 -4611686018427387906) -> 9223372036854775812) ((1662 . 5625) (* -2 -4611686018427387905) -> 9223372036854775810) ((1663 . 5625) (* -2 -4611686018427387904) -> 9223372036854775808) ((1664 . 5625) (* -2 -4611686018427387903) -> 9223372036854775806) ((1665 . 5625) (* -2 -4611686018427387902) -> 9223372036854775804) ((1666 . 5625) (* -1 -4611686018427387906) -> 4611686018427387906) ((1667 . 5625) (* -1 -4611686018427387905) -> 4611686018427387905) ((1668 . 5625) (* -1 -4611686018427387904) -> 4611686018427387904) ((1669 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((1670 . 5625) (* -1 -4611686018427387902) -> 4611686018427387902) ((1671 . 5625) (* 0 -4611686018427387906) -> 0) ((1672 . 5625) (* 0 -4611686018427387905) -> 0) ((1673 . 5625) (* 0 -4611686018427387904) -> 0) ((1674 . 5625) (* 0 -4611686018427387903) -> 0) ((1675 . 5625) (* 0 -4611686018427387902) -> 0) ((1676 . 5625) (* -4 4611686018427387902) -> -18446744073709551608) ((1677 . 5625) (* -4 4611686018427387903) -> -18446744073709551612) ((1678 . 5625) (* -4 4611686018427387904) -> -18446744073709551616) ((1679 . 5625) (* -4 4611686018427387905) -> -18446744073709551620) ((1680 . 5625) (* -4 4611686018427387906) -> -18446744073709551624) ((1681 . 5625) (* -3 4611686018427387902) -> -13835058055282163706) ((1682 . 5625) (* -3 4611686018427387903) -> -13835058055282163709) ((1683 . 5625) (* -3 4611686018427387904) -> -13835058055282163712) ((1684 . 5625) (* -3 4611686018427387905) -> -13835058055282163715) ((1685 . 5625) (* -3 4611686018427387906) -> -13835058055282163718) ((1686 . 5625) (* -2 4611686018427387902) -> -9223372036854775804) ((1687 . 5625) (* -2 4611686018427387903) -> -9223372036854775806) ((1688 . 5625) (* -2 4611686018427387904) -> -9223372036854775808) ((1689 . 5625) (* -2 4611686018427387905) -> -9223372036854775810) ((1690 . 5625) (* -2 4611686018427387906) -> -9223372036854775812) ((1691 . 5625) (* -1 4611686018427387902) -> -4611686018427387902) ((1692 . 5625) (* -1 4611686018427387903) -> -4611686018427387903) ((1693 . 5625) (* -1 4611686018427387904) -> -4611686018427387904) ((1694 . 5625) (* -1 4611686018427387905) -> -4611686018427387905) ((1695 . 5625) (* -1 4611686018427387906) -> -4611686018427387906) ((1696 . 5625) (* 0 4611686018427387902) -> 0) ((1697 . 5625) (* 0 4611686018427387903) -> 0) ((1698 . 5625) (* 0 4611686018427387904) -> 0) ((1699 . 5625) (* 0 4611686018427387905) -> 0) ((1700 . 5625) (* 0 4611686018427387906) -> 0) ((1701 . 5625) (* -4 -4611686018427387907) -> 18446744073709551628) ((1702 . 5625) (* -4 -4611686018427387906) -> 18446744073709551624) ((1703 . 5625) (* -4 -4611686018427387905) -> 18446744073709551620) ((1704 . 5625) (* -4 -4611686018427387904) -> 18446744073709551616) ((1705 . 5625) (* -4 -4611686018427387903) -> 18446744073709551612) ((1706 . 5625) (* -3 -4611686018427387907) -> 13835058055282163721) ((1707 . 5625) (* -3 -4611686018427387906) -> 13835058055282163718) ((1708 . 5625) (* -3 -4611686018427387905) -> 13835058055282163715) ((1709 . 5625) (* -3 -4611686018427387904) -> 13835058055282163712) ((1710 . 5625) (* -3 -4611686018427387903) -> 13835058055282163709) ((1711 . 5625) (* -2 -4611686018427387907) -> 9223372036854775814) ((1712 . 5625) (* -2 -4611686018427387906) -> 9223372036854775812) ((1713 . 5625) (* -2 -4611686018427387905) -> 9223372036854775810) ((1714 . 5625) (* -2 -4611686018427387904) -> 9223372036854775808) ((1715 . 5625) (* -2 -4611686018427387903) -> 9223372036854775806) ((1716 . 5625) (* -1 -4611686018427387907) -> 4611686018427387907) ((1717 . 5625) (* -1 -4611686018427387906) -> 4611686018427387906) ((1718 . 5625) (* -1 -4611686018427387905) -> 4611686018427387905) ((1719 . 5625) (* -1 -4611686018427387904) -> 4611686018427387904) ((1720 . 5625) (* -1 -4611686018427387903) -> 4611686018427387903) ((1721 . 5625) (* 0 -4611686018427387907) -> 0) ((1722 . 5625) (* 0 -4611686018427387906) -> 0) ((1723 . 5625) (* 0 -4611686018427387905) -> 0) ((1724 . 5625) (* 0 -4611686018427387904) -> 0) ((1725 . 5625) (* 0 -4611686018427387903) -> 0) ((1726 . 5625) (* -4 1103515243) -> -4414060972) ((1727 . 5625) (* -4 1103515244) -> -4414060976) ((1728 . 5625) (* -4 1103515245) -> -4414060980) ((1729 . 5625) (* -4 1103515246) -> -4414060984) ((1730 . 5625) (* -4 1103515247) -> -4414060988) ((1731 . 5625) (* -3 1103515243) -> -3310545729) ((1732 . 5625) (* -3 1103515244) -> -3310545732) ((1733 . 5625) (* -3 1103515245) -> -3310545735) ((1734 . 5625) (* -3 1103515246) -> -3310545738) ((1735 . 5625) (* -3 1103515247) -> -3310545741) ((1736 . 5625) (* -2 1103515243) -> -2207030486) ((1737 . 5625) (* -2 1103515244) -> -2207030488) ((1738 . 5625) (* -2 1103515245) -> -2207030490) ((1739 . 5625) (* -2 1103515246) -> -2207030492) ((1740 . 5625) (* -2 1103515247) -> -2207030494) ((1741 . 5625) (* -1 1103515243) -> -1103515243) ((1742 . 5625) (* -1 1103515244) -> -1103515244) ((1743 . 5625) (* -1 1103515245) -> -1103515245) ((1744 . 5625) (* -1 1103515246) -> -1103515246) ((1745 . 5625) (* -1 1103515247) -> -1103515247) ((1746 . 5625) (* 0 1103515243) -> 0) ((1747 . 5625) (* 0 1103515244) -> 0) ((1748 . 5625) (* 0 1103515245) -> 0) ((1749 . 5625) (* 0 1103515246) -> 0) ((1750 . 5625) (* 0 1103515247) -> 0) ((1751 . 5625) (* -4 631629063) -> -2526516252) ((1752 . 5625) (* -4 631629064) -> -2526516256) ((1753 . 5625) (* -4 631629065) -> -2526516260) ((1754 . 5625) (* -4 631629066) -> -2526516264) ((1755 . 5625) (* -4 631629067) -> -2526516268) ((1756 . 5625) (* -3 631629063) -> -1894887189) ((1757 . 5625) (* -3 631629064) -> -1894887192) ((1758 . 5625) (* -3 631629065) -> -1894887195) ((1759 . 5625) (* -3 631629066) -> -1894887198) ((1760 . 5625) (* -3 631629067) -> -1894887201) ((1761 . 5625) (* -2 631629063) -> -1263258126) ((1762 . 5625) (* -2 631629064) -> -1263258128) ((1763 . 5625) (* -2 631629065) -> -1263258130) ((1764 . 5625) (* -2 631629066) -> -1263258132) ((1765 . 5625) (* -2 631629067) -> -1263258134) ((1766 . 5625) (* -1 631629063) -> -631629063) ((1767 . 5625) (* -1 631629064) -> -631629064) ((1768 . 5625) (* -1 631629065) -> -631629065) ((1769 . 5625) (* -1 631629066) -> -631629066) ((1770 . 5625) (* -1 631629067) -> -631629067) ((1771 . 5625) (* 0 631629063) -> 0) ((1772 . 5625) (* 0 631629064) -> 0) ((1773 . 5625) (* 0 631629065) -> 0) ((1774 . 5625) (* 0 631629066) -> 0) ((1775 . 5625) (* 0 631629067) -> 0) ((1776 . 5625) (* -4 9007199254740990) -> -36028797018963960) ((1777 . 5625) (* -4 9007199254740991) -> -36028797018963964) ((1778 . 5625) (* -4 9007199254740992) -> -36028797018963968) ((1779 . 5625) (* -4 9007199254740993) -> -36028797018963972) ((1780 . 5625) (* -4 9007199254740994) -> -36028797018963976) ((1781 . 5625) (* -3 9007199254740990) -> -27021597764222970) ((1782 . 5625) (* -3 9007199254740991) -> -27021597764222973) ((1783 . 5625) (* -3 9007199254740992) -> -27021597764222976) ((1784 . 5625) (* -3 9007199254740993) -> -27021597764222979) ((1785 . 5625) (* -3 9007199254740994) -> -27021597764222982) ((1786 . 5625) (* -2 9007199254740990) -> -18014398509481980) ((1787 . 5625) (* -2 9007199254740991) -> -18014398509481982) ((1788 . 5625) (* -2 9007199254740992) -> -18014398509481984) ((1789 . 5625) (* -2 9007199254740993) -> -18014398509481986) ((1790 . 5625) (* -2 9007199254740994) -> -18014398509481988) ((1791 . 5625) (* -1 9007199254740990) -> -9007199254740990) ((1792 . 5625) (* -1 9007199254740991) -> -9007199254740991) ((1793 . 5625) (* -1 9007199254740992) -> -9007199254740992) ((1794 . 5625) (* -1 9007199254740993) -> -9007199254740993) ((1795 . 5625) (* -1 9007199254740994) -> -9007199254740994) ((1796 . 5625) (* 0 9007199254740990) -> 0) ((1797 . 5625) (* 0 9007199254740991) -> 0) ((1798 . 5625) (* 0 9007199254740992) -> 0) ((1799 . 5625) (* 0 9007199254740993) -> 0) ((1800 . 5625) (* 0 9007199254740994) -> 0) ((1801 . 5625) (* -4 -9007199254740994) -> 36028797018963976) ((1802 . 5625) (* -4 -9007199254740993) -> 36028797018963972) ((1803 . 5625) (* -4 -9007199254740992) -> 36028797018963968) ((1804 . 5625) (* -4 -9007199254740991) -> 36028797018963964) ((1805 . 5625) (* -4 -9007199254740990) -> 36028797018963960) ((1806 . 5625) (* -3 -9007199254740994) -> 27021597764222982) ((1807 . 5625) (* -3 -9007199254740993) -> 27021597764222979) ((1808 . 5625) (* -3 -9007199254740992) -> 27021597764222976) ((1809 . 5625) (* -3 -9007199254740991) -> 27021597764222973) ((1810 . 5625) (* -3 -9007199254740990) -> 27021597764222970) ((1811 . 5625) (* -2 -9007199254740994) -> 18014398509481988) ((1812 . 5625) (* -2 -9007199254740993) -> 18014398509481986) ((1813 . 5625) (* -2 -9007199254740992) -> 18014398509481984) ((1814 . 5625) (* -2 -9007199254740991) -> 18014398509481982) ((1815 . 5625) (* -2 -9007199254740990) -> 18014398509481980) ((1816 . 5625) (* -1 -9007199254740994) -> 9007199254740994) ((1817 . 5625) (* -1 -9007199254740993) -> 9007199254740993) ((1818 . 5625) (* -1 -9007199254740992) -> 9007199254740992) ((1819 . 5625) (* -1 -9007199254740991) -> 9007199254740991) ((1820 . 5625) (* -1 -9007199254740990) -> 9007199254740990) ((1821 . 5625) (* 0 -9007199254740994) -> 0) ((1822 . 5625) (* 0 -9007199254740993) -> 0) ((1823 . 5625) (* 0 -9007199254740992) -> 0) ((1824 . 5625) (* 0 -9007199254740991) -> 0) ((1825 . 5625) (* 0 -9007199254740990) -> 0) ((1826 . 5625) (* -4 12343) -> -49372) ((1827 . 5625) (* -4 12344) -> -49376) ((1828 . 5625) (* -4 12345) -> -49380) ((1829 . 5625) (* -4 12346) -> -49384) ((1830 . 5625) (* -4 12347) -> -49388) ((1831 . 5625) (* -3 12343) -> -37029) ((1832 . 5625) (* -3 12344) -> -37032) ((1833 . 5625) (* -3 12345) -> -37035) ((1834 . 5625) (* -3 12346) -> -37038) ((1835 . 5625) (* -3 12347) -> -37041) ((1836 . 5625) (* -2 12343) -> -24686) ((1837 . 5625) (* -2 12344) -> -24688) ((1838 . 5625) (* -2 12345) -> -24690) ((1839 . 5625) (* -2 12346) -> -24692) ((1840 . 5625) (* -2 12347) -> -24694) ((1841 . 5625) (* -1 12343) -> -12343) ((1842 . 5625) (* -1 12344) -> -12344) ((1843 . 5625) (* -1 12345) -> -12345) ((1844 . 5625) (* -1 12346) -> -12346) ((1845 . 5625) (* -1 12347) -> -12347) ((1846 . 5625) (* 0 12343) -> 0) ((1847 . 5625) (* 0 12344) -> 0) ((1848 . 5625) (* 0 12345) -> 0) ((1849 . 5625) (* 0 12346) -> 0) ((1850 . 5625) (* 0 12347) -> 0) ((1851 . 5625) (* -4 4294967294) -> -17179869176) ((1852 . 5625) (* -4 4294967295) -> -17179869180) ((1853 . 5625) (* -4 4294967296) -> -17179869184) ((1854 . 5625) (* -4 4294967297) -> -17179869188) ((1855 . 5625) (* -4 4294967298) -> -17179869192) ((1856 . 5625) (* -3 4294967294) -> -12884901882) ((1857 . 5625) (* -3 4294967295) -> -12884901885) ((1858 . 5625) (* -3 4294967296) -> -12884901888) ((1859 . 5625) (* -3 4294967297) -> -12884901891) ((1860 . 5625) (* -3 4294967298) -> -12884901894) ((1861 . 5625) (* -2 4294967294) -> -8589934588) ((1862 . 5625) (* -2 4294967295) -> -8589934590) ((1863 . 5625) (* -2 4294967296) -> -8589934592) ((1864 . 5625) (* -2 4294967297) -> -8589934594) ((1865 . 5625) (* -2 4294967298) -> -8589934596) ((1866 . 5625) (* -1 4294967294) -> -4294967294) ((1867 . 5625) (* -1 4294967295) -> -4294967295) ((1868 . 5625) (* -1 4294967296) -> -4294967296) ((1869 . 5625) (* -1 4294967297) -> -4294967297) ((1870 . 5625) (* -1 4294967298) -> -4294967298) ((1871 . 5625) (* 0 4294967294) -> 0) ((1872 . 5625) (* 0 4294967295) -> 0) ((1873 . 5625) (* 0 4294967296) -> 0) ((1874 . 5625) (* 0 4294967297) -> 0) ((1875 . 5625) (* 0 4294967298) -> 0) ((1876 . 5625) (* 4611686018427387901 -2) -> -9223372036854775802) ((1877 . 5625) (* 4611686018427387901 -1) -> -4611686018427387901) ((1878 . 5625) (* 4611686018427387901 0) -> 0) ((1879 . 5625) (* 4611686018427387901 1) -> 4611686018427387901) ((1880 . 5625) (* 4611686018427387901 2) -> 9223372036854775802) ((1881 . 5625) (* 4611686018427387902 -2) -> -9223372036854775804) ((1882 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((1883 . 5625) (* 4611686018427387902 0) -> 0) ((1884 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((1885 . 5625) (* 4611686018427387902 2) -> 9223372036854775804) ((1886 . 5625) (* 4611686018427387903 -2) -> -9223372036854775806) ((1887 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((1888 . 5625) (* 4611686018427387903 0) -> 0) ((1889 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((1890 . 5625) (* 4611686018427387903 2) -> 9223372036854775806) ((1891 . 5625) (* 4611686018427387904 -2) -> -9223372036854775808) ((1892 . 5625) (* 4611686018427387904 -1) -> -4611686018427387904) ((1893 . 5625) (* 4611686018427387904 0) -> 0) ((1894 . 5625) (* 4611686018427387904 1) -> 4611686018427387904) ((1895 . 5625) (* 4611686018427387904 2) -> 9223372036854775808) ((1896 . 5625) (* 4611686018427387905 -2) -> -9223372036854775810) ((1897 . 5625) (* 4611686018427387905 -1) -> -4611686018427387905) ((1898 . 5625) (* 4611686018427387905 0) -> 0) ((1899 . 5625) (* 4611686018427387905 1) -> 4611686018427387905) ((1900 . 5625) (* 4611686018427387905 2) -> 9223372036854775810) ((1901 . 5625) (* 4611686018427387901 -1) -> -4611686018427387901) ((1902 . 5625) (* 4611686018427387901 0) -> 0) ((1903 . 5625) (* 4611686018427387901 1) -> 4611686018427387901) ((1904 . 5625) (* 4611686018427387901 2) -> 9223372036854775802) ((1905 . 5625) (* 4611686018427387901 3) -> 13835058055282163703) ((1906 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((1907 . 5625) (* 4611686018427387902 0) -> 0) ((1908 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((1909 . 5625) (* 4611686018427387902 2) -> 9223372036854775804) ((1910 . 5625) (* 4611686018427387902 3) -> 13835058055282163706) ((1911 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((1912 . 5625) (* 4611686018427387903 0) -> 0) ((1913 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((1914 . 5625) (* 4611686018427387903 2) -> 9223372036854775806) ((1915 . 5625) (* 4611686018427387903 3) -> 13835058055282163709) ((1916 . 5625) (* 4611686018427387904 -1) -> -4611686018427387904) ((1917 . 5625) (* 4611686018427387904 0) -> 0) ((1918 . 5625) (* 4611686018427387904 1) -> 4611686018427387904) ((1919 . 5625) (* 4611686018427387904 2) -> 9223372036854775808) ((1920 . 5625) (* 4611686018427387904 3) -> 13835058055282163712) ((1921 . 5625) (* 4611686018427387905 -1) -> -4611686018427387905) ((1922 . 5625) (* 4611686018427387905 0) -> 0) ((1923 . 5625) (* 4611686018427387905 1) -> 4611686018427387905) ((1924 . 5625) (* 4611686018427387905 2) -> 9223372036854775810) ((1925 . 5625) (* 4611686018427387905 3) -> 13835058055282163715) ((1926 . 5625) (* 4611686018427387901 -3) -> -13835058055282163703) ((1927 . 5625) (* 4611686018427387901 -2) -> -9223372036854775802) ((1928 . 5625) (* 4611686018427387901 -1) -> -4611686018427387901) ((1929 . 5625) (* 4611686018427387901 0) -> 0) ((1930 . 5625) (* 4611686018427387901 1) -> 4611686018427387901) ((1931 . 5625) (* 4611686018427387902 -3) -> -13835058055282163706) ((1932 . 5625) (* 4611686018427387902 -2) -> -9223372036854775804) ((1933 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((1934 . 5625) (* 4611686018427387902 0) -> 0) ((1935 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((1936 . 5625) (* 4611686018427387903 -3) -> -13835058055282163709) ((1937 . 5625) (* 4611686018427387903 -2) -> -9223372036854775806) ((1938 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((1939 . 5625) (* 4611686018427387903 0) -> 0) ((1940 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((1941 . 5625) (* 4611686018427387904 -3) -> -13835058055282163712) ((1942 . 5625) (* 4611686018427387904 -2) -> -9223372036854775808) ((1943 . 5625) (* 4611686018427387904 -1) -> -4611686018427387904) ((1944 . 5625) (* 4611686018427387904 0) -> 0) ((1945 . 5625) (* 4611686018427387904 1) -> 4611686018427387904) ((1946 . 5625) (* 4611686018427387905 -3) -> -13835058055282163715) ((1947 . 5625) (* 4611686018427387905 -2) -> -9223372036854775810) ((1948 . 5625) (* 4611686018427387905 -1) -> -4611686018427387905) ((1949 . 5625) (* 4611686018427387905 0) -> 0) ((1950 . 5625) (* 4611686018427387905 1) -> 4611686018427387905) ((1951 . 5625) (* 4611686018427387901 0) -> 0) ((1952 . 5625) (* 4611686018427387901 1) -> 4611686018427387901) ((1953 . 5625) (* 4611686018427387901 2) -> 9223372036854775802) ((1954 . 5625) (* 4611686018427387901 3) -> 13835058055282163703) ((1955 . 5625) (* 4611686018427387901 4) -> 18446744073709551604) ((1956 . 5625) (* 4611686018427387902 0) -> 0) ((1957 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((1958 . 5625) (* 4611686018427387902 2) -> 9223372036854775804) ((1959 . 5625) (* 4611686018427387902 3) -> 13835058055282163706) ((1960 . 5625) (* 4611686018427387902 4) -> 18446744073709551608) ((1961 . 5625) (* 4611686018427387903 0) -> 0) ((1962 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((1963 . 5625) (* 4611686018427387903 2) -> 9223372036854775806) ((1964 . 5625) (* 4611686018427387903 3) -> 13835058055282163709) ((1965 . 5625) (* 4611686018427387903 4) -> 18446744073709551612) ((1966 . 5625) (* 4611686018427387904 0) -> 0) ((1967 . 5625) (* 4611686018427387904 1) -> 4611686018427387904) ((1968 . 5625) (* 4611686018427387904 2) -> 9223372036854775808) ((1969 . 5625) (* 4611686018427387904 3) -> 13835058055282163712) ((1970 . 5625) (* 4611686018427387904 4) -> 18446744073709551616) ((1971 . 5625) (* 4611686018427387905 0) -> 0) ((1972 . 5625) (* 4611686018427387905 1) -> 4611686018427387905) ((1973 . 5625) (* 4611686018427387905 2) -> 9223372036854775810) ((1974 . 5625) (* 4611686018427387905 3) -> 13835058055282163715) ((1975 . 5625) (* 4611686018427387905 4) -> 18446744073709551620) ((1976 . 5625) (* 4611686018427387901 -4) -> -18446744073709551604) ((1977 . 5625) (* 4611686018427387901 -3) -> -13835058055282163703) ((1978 . 5625) (* 4611686018427387901 -2) -> -9223372036854775802) ((1979 . 5625) (* 4611686018427387901 -1) -> -4611686018427387901) ((1980 . 5625) (* 4611686018427387901 0) -> 0) ((1981 . 5625) (* 4611686018427387902 -4) -> -18446744073709551608) ((1982 . 5625) (* 4611686018427387902 -3) -> -13835058055282163706) ((1983 . 5625) (* 4611686018427387902 -2) -> -9223372036854775804) ((1984 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((1985 . 5625) (* 4611686018427387902 0) -> 0) ((1986 . 5625) (* 4611686018427387903 -4) -> -18446744073709551612) ((1987 . 5625) (* 4611686018427387903 -3) -> -13835058055282163709) ((1988 . 5625) (* 4611686018427387903 -2) -> -9223372036854775806) ((1989 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((1990 . 5625) (* 4611686018427387903 0) -> 0) ((1991 . 5625) (* 4611686018427387904 -4) -> -18446744073709551616) ((1992 . 5625) (* 4611686018427387904 -3) -> -13835058055282163712) ((1993 . 5625) (* 4611686018427387904 -2) -> -9223372036854775808) ((1994 . 5625) (* 4611686018427387904 -1) -> -4611686018427387904) ((1995 . 5625) (* 4611686018427387904 0) -> 0) ((1996 . 5625) (* 4611686018427387905 -4) -> -18446744073709551620) ((1997 . 5625) (* 4611686018427387905 -3) -> -13835058055282163715) ((1998 . 5625) (* 4611686018427387905 -2) -> -9223372036854775810) ((1999 . 5625) (* 4611686018427387905 -1) -> -4611686018427387905) ((2000 . 5625) (* 4611686018427387905 0) -> 0) ((2001 . 5625) (* 4611686018427387901 4611686018427387901) -> 21267647932558653938790796853921185801) ((2002 . 5625) (* 4611686018427387901 4611686018427387902) -> 21267647932558653943402482872348573702) ((2003 . 5625) (* 4611686018427387901 4611686018427387903) -> 21267647932558653948014168890775961603) ((2004 . 5625) (* 4611686018427387901 4611686018427387904) -> 21267647932558653952625854909203349504) ((2005 . 5625) (* 4611686018427387901 4611686018427387905) -> 21267647932558653957237540927630737405) ((2006 . 5625) (* 4611686018427387902 4611686018427387901) -> 21267647932558653943402482872348573702) ((2007 . 5625) (* 4611686018427387902 4611686018427387902) -> 21267647932558653948014168890775961604) ((2008 . 5625) (* 4611686018427387902 4611686018427387903) -> 21267647932558653952625854909203349506) ((2009 . 5625) (* 4611686018427387902 4611686018427387904) -> 21267647932558653957237540927630737408) ((2010 . 5625) (* 4611686018427387902 4611686018427387905) -> 21267647932558653961849226946058125310) ((2011 . 5625) (* 4611686018427387903 4611686018427387901) -> 21267647932558653948014168890775961603) ((2012 . 5625) (* 4611686018427387903 4611686018427387902) -> 21267647932558653952625854909203349506) ((2013 . 5625) (* 4611686018427387903 4611686018427387903) -> 21267647932558653957237540927630737409) ((2014 . 5625) (* 4611686018427387903 4611686018427387904) -> 21267647932558653961849226946058125312) ((2015 . 5625) (* 4611686018427387903 4611686018427387905) -> 21267647932558653966460912964485513215) ((2016 . 5625) (* 4611686018427387904 4611686018427387901) -> 21267647932558653952625854909203349504) ((2017 . 5625) (* 4611686018427387904 4611686018427387902) -> 21267647932558653957237540927630737408) ((2018 . 5625) (* 4611686018427387904 4611686018427387903) -> 21267647932558653961849226946058125312) ((2019 . 5625) (* 4611686018427387904 4611686018427387904) -> 21267647932558653966460912964485513216) ((2020 . 5625) (* 4611686018427387904 4611686018427387905) -> 21267647932558653971072598982912901120) ((2021 . 5625) (* 4611686018427387905 4611686018427387901) -> 21267647932558653957237540927630737405) ((2022 . 5625) (* 4611686018427387905 4611686018427387902) -> 21267647932558653961849226946058125310) ((2023 . 5625) (* 4611686018427387905 4611686018427387903) -> 21267647932558653966460912964485513215) ((2024 . 5625) (* 4611686018427387905 4611686018427387904) -> 21267647932558653971072598982912901120) ((2025 . 5625) (* 4611686018427387905 4611686018427387905) -> 21267647932558653975684285001340289025) ((2026 . 5625) (* 4611686018427387901 -4611686018427387906) -> -21267647932558653961849226946058125306) ((2027 . 5625) (* 4611686018427387901 -4611686018427387905) -> -21267647932558653957237540927630737405) ((2028 . 5625) (* 4611686018427387901 -4611686018427387904) -> -21267647932558653952625854909203349504) ((2029 . 5625) (* 4611686018427387901 -4611686018427387903) -> -21267647932558653948014168890775961603) ((2030 . 5625) (* 4611686018427387901 -4611686018427387902) -> -21267647932558653943402482872348573702) ((2031 . 5625) (* 4611686018427387902 -4611686018427387906) -> -21267647932558653966460912964485513212) ((2032 . 5625) (* 4611686018427387902 -4611686018427387905) -> -21267647932558653961849226946058125310) ((2033 . 5625) (* 4611686018427387902 -4611686018427387904) -> -21267647932558653957237540927630737408) ((2034 . 5625) (* 4611686018427387902 -4611686018427387903) -> -21267647932558653952625854909203349506) ((2035 . 5625) (* 4611686018427387902 -4611686018427387902) -> -21267647932558653948014168890775961604) ((2036 . 5625) (* 4611686018427387903 -4611686018427387906) -> -21267647932558653971072598982912901118) ((2037 . 5625) (* 4611686018427387903 -4611686018427387905) -> -21267647932558653966460912964485513215) ((2038 . 5625) (* 4611686018427387903 -4611686018427387904) -> -21267647932558653961849226946058125312) ((2039 . 5625) (* 4611686018427387903 -4611686018427387903) -> -21267647932558653957237540927630737409) ((2040 . 5625) (* 4611686018427387903 -4611686018427387902) -> -21267647932558653952625854909203349506) ((2041 . 5625) (* 4611686018427387904 -4611686018427387906) -> -21267647932558653975684285001340289024) ((2042 . 5625) (* 4611686018427387904 -4611686018427387905) -> -21267647932558653971072598982912901120) ((2043 . 5625) (* 4611686018427387904 -4611686018427387904) -> -21267647932558653966460912964485513216) ((2044 . 5625) (* 4611686018427387904 -4611686018427387903) -> -21267647932558653961849226946058125312) ((2045 . 5625) (* 4611686018427387904 -4611686018427387902) -> -21267647932558653957237540927630737408) ((2046 . 5625) (* 4611686018427387905 -4611686018427387906) -> -21267647932558653980295971019767676930) ((2047 . 5625) (* 4611686018427387905 -4611686018427387905) -> -21267647932558653975684285001340289025) ((2048 . 5625) (* 4611686018427387905 -4611686018427387904) -> -21267647932558653971072598982912901120) ((2049 . 5625) (* 4611686018427387905 -4611686018427387903) -> -21267647932558653966460912964485513215) ((2050 . 5625) (* 4611686018427387905 -4611686018427387902) -> -21267647932558653961849226946058125310) ((2051 . 5625) (* 4611686018427387901 4611686018427387902) -> 21267647932558653943402482872348573702) ((2052 . 5625) (* 4611686018427387901 4611686018427387903) -> 21267647932558653948014168890775961603) ((2053 . 5625) (* 4611686018427387901 4611686018427387904) -> 21267647932558653952625854909203349504) ((2054 . 5625) (* 4611686018427387901 4611686018427387905) -> 21267647932558653957237540927630737405) ((2055 . 5625) (* 4611686018427387901 4611686018427387906) -> 21267647932558653961849226946058125306) ((2056 . 5625) (* 4611686018427387902 4611686018427387902) -> 21267647932558653948014168890775961604) ((2057 . 5625) (* 4611686018427387902 4611686018427387903) -> 21267647932558653952625854909203349506) ((2058 . 5625) (* 4611686018427387902 4611686018427387904) -> 21267647932558653957237540927630737408) ((2059 . 5625) (* 4611686018427387902 4611686018427387905) -> 21267647932558653961849226946058125310) ((2060 . 5625) (* 4611686018427387902 4611686018427387906) -> 21267647932558653966460912964485513212) ((2061 . 5625) (* 4611686018427387903 4611686018427387902) -> 21267647932558653952625854909203349506) ((2062 . 5625) (* 4611686018427387903 4611686018427387903) -> 21267647932558653957237540927630737409) ((2063 . 5625) (* 4611686018427387903 4611686018427387904) -> 21267647932558653961849226946058125312) ((2064 . 5625) (* 4611686018427387903 4611686018427387905) -> 21267647932558653966460912964485513215) ((2065 . 5625) (* 4611686018427387903 4611686018427387906) -> 21267647932558653971072598982912901118) ((2066 . 5625) (* 4611686018427387904 4611686018427387902) -> 21267647932558653957237540927630737408) ((2067 . 5625) (* 4611686018427387904 4611686018427387903) -> 21267647932558653961849226946058125312) ((2068 . 5625) (* 4611686018427387904 4611686018427387904) -> 21267647932558653966460912964485513216) ((2069 . 5625) (* 4611686018427387904 4611686018427387905) -> 21267647932558653971072598982912901120) ((2070 . 5625) (* 4611686018427387904 4611686018427387906) -> 21267647932558653975684285001340289024) ((2071 . 5625) (* 4611686018427387905 4611686018427387902) -> 21267647932558653961849226946058125310) ((2072 . 5625) (* 4611686018427387905 4611686018427387903) -> 21267647932558653966460912964485513215) ((2073 . 5625) (* 4611686018427387905 4611686018427387904) -> 21267647932558653971072598982912901120) ((2074 . 5625) (* 4611686018427387905 4611686018427387905) -> 21267647932558653975684285001340289025) ((2075 . 5625) (* 4611686018427387905 4611686018427387906) -> 21267647932558653980295971019767676930) ((2076 . 5625) (* 4611686018427387901 -4611686018427387907) -> -21267647932558653966460912964485513207) ((2077 . 5625) (* 4611686018427387901 -4611686018427387906) -> -21267647932558653961849226946058125306) ((2078 . 5625) (* 4611686018427387901 -4611686018427387905) -> -21267647932558653957237540927630737405) ((2079 . 5625) (* 4611686018427387901 -4611686018427387904) -> -21267647932558653952625854909203349504) ((2080 . 5625) (* 4611686018427387901 -4611686018427387903) -> -21267647932558653948014168890775961603) ((2081 . 5625) (* 4611686018427387902 -4611686018427387907) -> -21267647932558653971072598982912901114) ((2082 . 5625) (* 4611686018427387902 -4611686018427387906) -> -21267647932558653966460912964485513212) ((2083 . 5625) (* 4611686018427387902 -4611686018427387905) -> -21267647932558653961849226946058125310) ((2084 . 5625) (* 4611686018427387902 -4611686018427387904) -> -21267647932558653957237540927630737408) ((2085 . 5625) (* 4611686018427387902 -4611686018427387903) -> -21267647932558653952625854909203349506) ((2086 . 5625) (* 4611686018427387903 -4611686018427387907) -> -21267647932558653975684285001340289021) ((2087 . 5625) (* 4611686018427387903 -4611686018427387906) -> -21267647932558653971072598982912901118) ((2088 . 5625) (* 4611686018427387903 -4611686018427387905) -> -21267647932558653966460912964485513215) ((2089 . 5625) (* 4611686018427387903 -4611686018427387904) -> -21267647932558653961849226946058125312) ((2090 . 5625) (* 4611686018427387903 -4611686018427387903) -> -21267647932558653957237540927630737409) ((2091 . 5625) (* 4611686018427387904 -4611686018427387907) -> -21267647932558653980295971019767676928) ((2092 . 5625) (* 4611686018427387904 -4611686018427387906) -> -21267647932558653975684285001340289024) ((2093 . 5625) (* 4611686018427387904 -4611686018427387905) -> -21267647932558653971072598982912901120) ((2094 . 5625) (* 4611686018427387904 -4611686018427387904) -> -21267647932558653966460912964485513216) ((2095 . 5625) (* 4611686018427387904 -4611686018427387903) -> -21267647932558653961849226946058125312) ((2096 . 5625) (* 4611686018427387905 -4611686018427387907) -> -21267647932558653984907657038195064835) ((2097 . 5625) (* 4611686018427387905 -4611686018427387906) -> -21267647932558653980295971019767676930) ((2098 . 5625) (* 4611686018427387905 -4611686018427387905) -> -21267647932558653975684285001340289025) ((2099 . 5625) (* 4611686018427387905 -4611686018427387904) -> -21267647932558653971072598982912901120) ((2100 . 5625) (* 4611686018427387905 -4611686018427387903) -> -21267647932558653966460912964485513215) ((2101 . 5625) (* 4611686018427387901 1103515243) -> 5089065817264601437427274943) ((2102 . 5625) (* 4611686018427387901 1103515244) -> 5089065821876287455854662844) ((2103 . 5625) (* 4611686018427387901 1103515245) -> 5089065826487973474282050745) ((2104 . 5625) (* 4611686018427387901 1103515246) -> 5089065831099659492709438646) ((2105 . 5625) (* 4611686018427387901 1103515247) -> 5089065835711345511136826547) ((2106 . 5625) (* 4611686018427387902 1103515243) -> 5089065817264601438530790186) ((2107 . 5625) (* 4611686018427387902 1103515244) -> 5089065821876287456958178088) ((2108 . 5625) (* 4611686018427387902 1103515245) -> 5089065826487973475385565990) ((2109 . 5625) (* 4611686018427387902 1103515246) -> 5089065831099659493812953892) ((2110 . 5625) (* 4611686018427387902 1103515247) -> 5089065835711345512240341794) ((2111 . 5625) (* 4611686018427387903 1103515243) -> 5089065817264601439634305429) ((2112 . 5625) (* 4611686018427387903 1103515244) -> 5089065821876287458061693332) ((2113 . 5625) (* 4611686018427387903 1103515245) -> 5089065826487973476489081235) ((2114 . 5625) (* 4611686018427387903 1103515246) -> 5089065831099659494916469138) ((2115 . 5625) (* 4611686018427387903 1103515247) -> 5089065835711345513343857041) ((2116 . 5625) (* 4611686018427387904 1103515243) -> 5089065817264601440737820672) ((2117 . 5625) (* 4611686018427387904 1103515244) -> 5089065821876287459165208576) ((2118 . 5625) (* 4611686018427387904 1103515245) -> 5089065826487973477592596480) ((2119 . 5625) (* 4611686018427387904 1103515246) -> 5089065831099659496019984384) ((2120 . 5625) (* 4611686018427387904 1103515247) -> 5089065835711345514447372288) ((2121 . 5625) (* 4611686018427387905 1103515243) -> 5089065817264601441841335915) ((2122 . 5625) (* 4611686018427387905 1103515244) -> 5089065821876287460268723820) ((2123 . 5625) (* 4611686018427387905 1103515245) -> 5089065826487973478696111725) ((2124 . 5625) (* 4611686018427387905 1103515246) -> 5089065831099659497123499630) ((2125 . 5625) (* 4611686018427387905 1103515247) -> 5089065835711345515550887535) ((2126 . 5625) (* 4611686018427387901 631629063) -> 2912874918669491753446166763) ((2127 . 5625) (* 4611686018427387901 631629064) -> 2912874923281177771873554664) ((2128 . 5625) (* 4611686018427387901 631629065) -> 2912874927892863790300942565) ((2129 . 5625) (* 4611686018427387901 631629066) -> 2912874932504549808728330466) ((2130 . 5625) (* 4611686018427387901 631629067) -> 2912874937116235827155718367) ((2131 . 5625) (* 4611686018427387902 631629063) -> 2912874918669491754077795826) ((2132 . 5625) (* 4611686018427387902 631629064) -> 2912874923281177772505183728) ((2133 . 5625) (* 4611686018427387902 631629065) -> 2912874927892863790932571630) ((2134 . 5625) (* 4611686018427387902 631629066) -> 2912874932504549809359959532) ((2135 . 5625) (* 4611686018427387902 631629067) -> 2912874937116235827787347434) ((2136 . 5625) (* 4611686018427387903 631629063) -> 2912874918669491754709424889) ((2137 . 5625) (* 4611686018427387903 631629064) -> 2912874923281177773136812792) ((2138 . 5625) (* 4611686018427387903 631629065) -> 2912874927892863791564200695) ((2139 . 5625) (* 4611686018427387903 631629066) -> 2912874932504549809991588598) ((2140 . 5625) (* 4611686018427387903 631629067) -> 2912874937116235828418976501) ((2141 . 5625) (* 4611686018427387904 631629063) -> 2912874918669491755341053952) ((2142 . 5625) (* 4611686018427387904 631629064) -> 2912874923281177773768441856) ((2143 . 5625) (* 4611686018427387904 631629065) -> 2912874927892863792195829760) ((2144 . 5625) (* 4611686018427387904 631629066) -> 2912874932504549810623217664) ((2145 . 5625) (* 4611686018427387904 631629067) -> 2912874937116235829050605568) ((2146 . 5625) (* 4611686018427387905 631629063) -> 2912874918669491755972683015) ((2147 . 5625) (* 4611686018427387905 631629064) -> 2912874923281177774400070920) ((2148 . 5625) (* 4611686018427387905 631629065) -> 2912874927892863792827458825) ((2149 . 5625) (* 4611686018427387905 631629066) -> 2912874932504549811254846730) ((2150 . 5625) (* 4611686018427387905 631629067) -> 2912874937116235829682234635) ((2151 . 5625) (* 4611686018427387901 9007199254740990) -> 41538374868278611777850336014761990) ((2152 . 5625) (* 4611686018427387901 9007199254740991) -> 41538374868278616389536354442149891) ((2153 . 5625) (* 4611686018427387901 9007199254740992) -> 41538374868278621001222372869537792) ((2154 . 5625) (* 4611686018427387901 9007199254740993) -> 41538374868278625612908391296925693) ((2155 . 5625) (* 4611686018427387901 9007199254740994) -> 41538374868278630224594409724313594) ((2156 . 5625) (* 4611686018427387902 9007199254740990) -> 41538374868278611786857535269502980) ((2157 . 5625) (* 4611686018427387902 9007199254740991) -> 41538374868278616398543553696890882) ((2158 . 5625) (* 4611686018427387902 9007199254740992) -> 41538374868278621010229572124278784) ((2159 . 5625) (* 4611686018427387902 9007199254740993) -> 41538374868278625621915590551666686) ((2160 . 5625) (* 4611686018427387902 9007199254740994) -> 41538374868278630233601608979054588) ((2161 . 5625) (* 4611686018427387903 9007199254740990) -> 41538374868278611795864734524243970) ((2162 . 5625) (* 4611686018427387903 9007199254740991) -> 41538374868278616407550752951631873) ((2163 . 5625) (* 4611686018427387903 9007199254740992) -> 41538374868278621019236771379019776) ((2164 . 5625) (* 4611686018427387903 9007199254740993) -> 41538374868278625630922789806407679) ((2165 . 5625) (* 4611686018427387903 9007199254740994) -> 41538374868278630242608808233795582) ((2166 . 5625) (* 4611686018427387904 9007199254740990) -> 41538374868278611804871933778984960) ((2167 . 5625) (* 4611686018427387904 9007199254740991) -> 41538374868278616416557952206372864) ((2168 . 5625) (* 4611686018427387904 9007199254740992) -> 41538374868278621028243970633760768) ((2169 . 5625) (* 4611686018427387904 9007199254740993) -> 41538374868278625639929989061148672) ((2170 . 5625) (* 4611686018427387904 9007199254740994) -> 41538374868278630251616007488536576) ((2171 . 5625) (* 4611686018427387905 9007199254740990) -> 41538374868278611813879133033725950) ((2172 . 5625) (* 4611686018427387905 9007199254740991) -> 41538374868278616425565151461113855) ((2173 . 5625) (* 4611686018427387905 9007199254740992) -> 41538374868278621037251169888501760) ((2174 . 5625) (* 4611686018427387905 9007199254740993) -> 41538374868278625648937188315889665) ((2175 . 5625) (* 4611686018427387905 9007199254740994) -> 41538374868278630260623206743277570) ((2176 . 5625) (* 4611686018427387901 -9007199254740994) -> -41538374868278630224594409724313594) ((2177 . 5625) (* 4611686018427387901 -9007199254740993) -> -41538374868278625612908391296925693) ((2178 . 5625) (* 4611686018427387901 -9007199254740992) -> -41538374868278621001222372869537792) ((2179 . 5625) (* 4611686018427387901 -9007199254740991) -> -41538374868278616389536354442149891) ((2180 . 5625) (* 4611686018427387901 -9007199254740990) -> -41538374868278611777850336014761990) ((2181 . 5625) (* 4611686018427387902 -9007199254740994) -> -41538374868278630233601608979054588) ((2182 . 5625) (* 4611686018427387902 -9007199254740993) -> -41538374868278625621915590551666686) ((2183 . 5625) (* 4611686018427387902 -9007199254740992) -> -41538374868278621010229572124278784) ((2184 . 5625) (* 4611686018427387902 -9007199254740991) -> -41538374868278616398543553696890882) ((2185 . 5625) (* 4611686018427387902 -9007199254740990) -> -41538374868278611786857535269502980) ((2186 . 5625) (* 4611686018427387903 -9007199254740994) -> -41538374868278630242608808233795582) ((2187 . 5625) (* 4611686018427387903 -9007199254740993) -> -41538374868278625630922789806407679) ((2188 . 5625) (* 4611686018427387903 -9007199254740992) -> -41538374868278621019236771379019776) ((2189 . 5625) (* 4611686018427387903 -9007199254740991) -> -41538374868278616407550752951631873) ((2190 . 5625) (* 4611686018427387903 -9007199254740990) -> -41538374868278611795864734524243970) ((2191 . 5625) (* 4611686018427387904 -9007199254740994) -> -41538374868278630251616007488536576) ((2192 . 5625) (* 4611686018427387904 -9007199254740993) -> -41538374868278625639929989061148672) ((2193 . 5625) (* 4611686018427387904 -9007199254740992) -> -41538374868278621028243970633760768) ((2194 . 5625) (* 4611686018427387904 -9007199254740991) -> -41538374868278616416557952206372864) ((2195 . 5625) (* 4611686018427387904 -9007199254740990) -> -41538374868278611804871933778984960) ((2196 . 5625) (* 4611686018427387905 -9007199254740994) -> -41538374868278630260623206743277570) ((2197 . 5625) (* 4611686018427387905 -9007199254740993) -> -41538374868278625648937188315889665) ((2198 . 5625) (* 4611686018427387905 -9007199254740992) -> -41538374868278621037251169888501760) ((2199 . 5625) (* 4611686018427387905 -9007199254740991) -> -41538374868278616425565151461113855) ((2200 . 5625) (* 4611686018427387905 -9007199254740990) -> -41538374868278611813879133033725950) ((2201 . 5625) (* 4611686018427387901 12343) -> 56922040525449248862043) ((2202 . 5625) (* 4611686018427387901 12344) -> 56926652211467676249944) ((2203 . 5625) (* 4611686018427387901 12345) -> 56931263897486103637845) ((2204 . 5625) (* 4611686018427387901 12346) -> 56935875583504531025746) ((2205 . 5625) (* 4611686018427387901 12347) -> 56940487269522958413647) ((2206 . 5625) (* 4611686018427387902 12343) -> 56922040525449248874386) ((2207 . 5625) (* 4611686018427387902 12344) -> 56926652211467676262288) ((2208 . 5625) (* 4611686018427387902 12345) -> 56931263897486103650190) ((2209 . 5625) (* 4611686018427387902 12346) -> 56935875583504531038092) ((2210 . 5625) (* 4611686018427387902 12347) -> 56940487269522958425994) ((2211 . 5625) (* 4611686018427387903 12343) -> 56922040525449248886729) ((2212 . 5625) (* 4611686018427387903 12344) -> 56926652211467676274632) ((2213 . 5625) (* 4611686018427387903 12345) -> 56931263897486103662535) ((2214 . 5625) (* 4611686018427387903 12346) -> 56935875583504531050438) ((2215 . 5625) (* 4611686018427387903 12347) -> 56940487269522958438341) ((2216 . 5625) (* 4611686018427387904 12343) -> 56922040525449248899072) ((2217 . 5625) (* 4611686018427387904 12344) -> 56926652211467676286976) ((2218 . 5625) (* 4611686018427387904 12345) -> 56931263897486103674880) ((2219 . 5625) (* 4611686018427387904 12346) -> 56935875583504531062784) ((2220 . 5625) (* 4611686018427387904 12347) -> 56940487269522958450688) ((2221 . 5625) (* 4611686018427387905 12343) -> 56922040525449248911415) ((2222 . 5625) (* 4611686018427387905 12344) -> 56926652211467676299320) ((2223 . 5625) (* 4611686018427387905 12345) -> 56931263897486103687225) ((2224 . 5625) (* 4611686018427387905 12346) -> 56935875583504531075130) ((2225 . 5625) (* 4611686018427387905 12347) -> 56940487269522958463035) ((2226 . 5625) (* 4611686018427387901 4294967294) -> 19807040619342712348646309894) ((2227 . 5625) (* 4611686018427387901 4294967295) -> 19807040623954398367073697795) ((2228 . 5625) (* 4611686018427387901 4294967296) -> 19807040628566084385501085696) ((2229 . 5625) (* 4611686018427387901 4294967297) -> 19807040633177770403928473597) ((2230 . 5625) (* 4611686018427387901 4294967298) -> 19807040637789456422355861498) ((2231 . 5625) (* 4611686018427387902 4294967294) -> 19807040619342712352941277188) ((2232 . 5625) (* 4611686018427387902 4294967295) -> 19807040623954398371368665090) ((2233 . 5625) (* 4611686018427387902 4294967296) -> 19807040628566084389796052992) ((2234 . 5625) (* 4611686018427387902 4294967297) -> 19807040633177770408223440894) ((2235 . 5625) (* 4611686018427387902 4294967298) -> 19807040637789456426650828796) ((2236 . 5625) (* 4611686018427387903 4294967294) -> 19807040619342712357236244482) ((2237 . 5625) (* 4611686018427387903 4294967295) -> 19807040623954398375663632385) ((2238 . 5625) (* 4611686018427387903 4294967296) -> 19807040628566084394091020288) ((2239 . 5625) (* 4611686018427387903 4294967297) -> 19807040633177770412518408191) ((2240 . 5625) (* 4611686018427387903 4294967298) -> 19807040637789456430945796094) ((2241 . 5625) (* 4611686018427387904 4294967294) -> 19807040619342712361531211776) ((2242 . 5625) (* 4611686018427387904 4294967295) -> 19807040623954398379958599680) ((2243 . 5625) (* 4611686018427387904 4294967296) -> 19807040628566084398385987584) ((2244 . 5625) (* 4611686018427387904 4294967297) -> 19807040633177770416813375488) ((2245 . 5625) (* 4611686018427387904 4294967298) -> 19807040637789456435240763392) ((2246 . 5625) (* 4611686018427387905 4294967294) -> 19807040619342712365826179070) ((2247 . 5625) (* 4611686018427387905 4294967295) -> 19807040623954398384253566975) ((2248 . 5625) (* 4611686018427387905 4294967296) -> 19807040628566084402680954880) ((2249 . 5625) (* 4611686018427387905 4294967297) -> 19807040633177770421108342785) ((2250 . 5625) (* 4611686018427387905 4294967298) -> 19807040637789456439535730690) ((2251 . 5625) (* -4611686018427387906 -2) -> 9223372036854775812) ((2252 . 5625) (* -4611686018427387906 -1) -> 4611686018427387906) ((2253 . 5625) (* -4611686018427387906 0) -> 0) ((2254 . 5625) (* -4611686018427387906 1) -> -4611686018427387906) ((2255 . 5625) (* -4611686018427387906 2) -> -9223372036854775812) ((2256 . 5625) (* -4611686018427387905 -2) -> 9223372036854775810) ((2257 . 5625) (* -4611686018427387905 -1) -> 4611686018427387905) ((2258 . 5625) (* -4611686018427387905 0) -> 0) ((2259 . 5625) (* -4611686018427387905 1) -> -4611686018427387905) ((2260 . 5625) (* -4611686018427387905 2) -> -9223372036854775810) ((2261 . 5625) (* -4611686018427387904 -2) -> 9223372036854775808) ((2262 . 5625) (* -4611686018427387904 -1) -> 4611686018427387904) ((2263 . 5625) (* -4611686018427387904 0) -> 0) ((2264 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((2265 . 5625) (* -4611686018427387904 2) -> -9223372036854775808) ((2266 . 5625) (* -4611686018427387903 -2) -> 9223372036854775806) ((2267 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((2268 . 5625) (* -4611686018427387903 0) -> 0) ((2269 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((2270 . 5625) (* -4611686018427387903 2) -> -9223372036854775806) ((2271 . 5625) (* -4611686018427387902 -2) -> 9223372036854775804) ((2272 . 5625) (* -4611686018427387902 -1) -> 4611686018427387902) ((2273 . 5625) (* -4611686018427387902 0) -> 0) ((2274 . 5625) (* -4611686018427387902 1) -> -4611686018427387902) ((2275 . 5625) (* -4611686018427387902 2) -> -9223372036854775804) ((2276 . 5625) (* -4611686018427387906 -1) -> 4611686018427387906) ((2277 . 5625) (* -4611686018427387906 0) -> 0) ((2278 . 5625) (* -4611686018427387906 1) -> -4611686018427387906) ((2279 . 5625) (* -4611686018427387906 2) -> -9223372036854775812) ((2280 . 5625) (* -4611686018427387906 3) -> -13835058055282163718) ((2281 . 5625) (* -4611686018427387905 -1) -> 4611686018427387905) ((2282 . 5625) (* -4611686018427387905 0) -> 0) ((2283 . 5625) (* -4611686018427387905 1) -> -4611686018427387905) ((2284 . 5625) (* -4611686018427387905 2) -> -9223372036854775810) ((2285 . 5625) (* -4611686018427387905 3) -> -13835058055282163715) ((2286 . 5625) (* -4611686018427387904 -1) -> 4611686018427387904) ((2287 . 5625) (* -4611686018427387904 0) -> 0) ((2288 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((2289 . 5625) (* -4611686018427387904 2) -> -9223372036854775808) ((2290 . 5625) (* -4611686018427387904 3) -> -13835058055282163712) ((2291 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((2292 . 5625) (* -4611686018427387903 0) -> 0) ((2293 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((2294 . 5625) (* -4611686018427387903 2) -> -9223372036854775806) ((2295 . 5625) (* -4611686018427387903 3) -> -13835058055282163709) ((2296 . 5625) (* -4611686018427387902 -1) -> 4611686018427387902) ((2297 . 5625) (* -4611686018427387902 0) -> 0) ((2298 . 5625) (* -4611686018427387902 1) -> -4611686018427387902) ((2299 . 5625) (* -4611686018427387902 2) -> -9223372036854775804) ((2300 . 5625) (* -4611686018427387902 3) -> -13835058055282163706) ((2301 . 5625) (* -4611686018427387906 -3) -> 13835058055282163718) ((2302 . 5625) (* -4611686018427387906 -2) -> 9223372036854775812) ((2303 . 5625) (* -4611686018427387906 -1) -> 4611686018427387906) ((2304 . 5625) (* -4611686018427387906 0) -> 0) ((2305 . 5625) (* -4611686018427387906 1) -> -4611686018427387906) ((2306 . 5625) (* -4611686018427387905 -3) -> 13835058055282163715) ((2307 . 5625) (* -4611686018427387905 -2) -> 9223372036854775810) ((2308 . 5625) (* -4611686018427387905 -1) -> 4611686018427387905) ((2309 . 5625) (* -4611686018427387905 0) -> 0) ((2310 . 5625) (* -4611686018427387905 1) -> -4611686018427387905) ((2311 . 5625) (* -4611686018427387904 -3) -> 13835058055282163712) ((2312 . 5625) (* -4611686018427387904 -2) -> 9223372036854775808) ((2313 . 5625) (* -4611686018427387904 -1) -> 4611686018427387904) ((2314 . 5625) (* -4611686018427387904 0) -> 0) ((2315 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((2316 . 5625) (* -4611686018427387903 -3) -> 13835058055282163709) ((2317 . 5625) (* -4611686018427387903 -2) -> 9223372036854775806) ((2318 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((2319 . 5625) (* -4611686018427387903 0) -> 0) ((2320 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((2321 . 5625) (* -4611686018427387902 -3) -> 13835058055282163706) ((2322 . 5625) (* -4611686018427387902 -2) -> 9223372036854775804) ((2323 . 5625) (* -4611686018427387902 -1) -> 4611686018427387902) ((2324 . 5625) (* -4611686018427387902 0) -> 0) ((2325 . 5625) (* -4611686018427387902 1) -> -4611686018427387902) ((2326 . 5625) (* -4611686018427387906 0) -> 0) ((2327 . 5625) (* -4611686018427387906 1) -> -4611686018427387906) ((2328 . 5625) (* -4611686018427387906 2) -> -9223372036854775812) ((2329 . 5625) (* -4611686018427387906 3) -> -13835058055282163718) ((2330 . 5625) (* -4611686018427387906 4) -> -18446744073709551624) ((2331 . 5625) (* -4611686018427387905 0) -> 0) ((2332 . 5625) (* -4611686018427387905 1) -> -4611686018427387905) ((2333 . 5625) (* -4611686018427387905 2) -> -9223372036854775810) ((2334 . 5625) (* -4611686018427387905 3) -> -13835058055282163715) ((2335 . 5625) (* -4611686018427387905 4) -> -18446744073709551620) ((2336 . 5625) (* -4611686018427387904 0) -> 0) ((2337 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((2338 . 5625) (* -4611686018427387904 2) -> -9223372036854775808) ((2339 . 5625) (* -4611686018427387904 3) -> -13835058055282163712) ((2340 . 5625) (* -4611686018427387904 4) -> -18446744073709551616) ((2341 . 5625) (* -4611686018427387903 0) -> 0) ((2342 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((2343 . 5625) (* -4611686018427387903 2) -> -9223372036854775806) ((2344 . 5625) (* -4611686018427387903 3) -> -13835058055282163709) ((2345 . 5625) (* -4611686018427387903 4) -> -18446744073709551612) ((2346 . 5625) (* -4611686018427387902 0) -> 0) ((2347 . 5625) (* -4611686018427387902 1) -> -4611686018427387902) ((2348 . 5625) (* -4611686018427387902 2) -> -9223372036854775804) ((2349 . 5625) (* -4611686018427387902 3) -> -13835058055282163706) ((2350 . 5625) (* -4611686018427387902 4) -> -18446744073709551608) ((2351 . 5625) (* -4611686018427387906 -4) -> 18446744073709551624) ((2352 . 5625) (* -4611686018427387906 -3) -> 13835058055282163718) ((2353 . 5625) (* -4611686018427387906 -2) -> 9223372036854775812) ((2354 . 5625) (* -4611686018427387906 -1) -> 4611686018427387906) ((2355 . 5625) (* -4611686018427387906 0) -> 0) ((2356 . 5625) (* -4611686018427387905 -4) -> 18446744073709551620) ((2357 . 5625) (* -4611686018427387905 -3) -> 13835058055282163715) ((2358 . 5625) (* -4611686018427387905 -2) -> 9223372036854775810) ((2359 . 5625) (* -4611686018427387905 -1) -> 4611686018427387905) ((2360 . 5625) (* -4611686018427387905 0) -> 0) ((2361 . 5625) (* -4611686018427387904 -4) -> 18446744073709551616) ((2362 . 5625) (* -4611686018427387904 -3) -> 13835058055282163712) ((2363 . 5625) (* -4611686018427387904 -2) -> 9223372036854775808) ((2364 . 5625) (* -4611686018427387904 -1) -> 4611686018427387904) ((2365 . 5625) (* -4611686018427387904 0) -> 0) ((2366 . 5625) (* -4611686018427387903 -4) -> 18446744073709551612) ((2367 . 5625) (* -4611686018427387903 -3) -> 13835058055282163709) ((2368 . 5625) (* -4611686018427387903 -2) -> 9223372036854775806) ((2369 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((2370 . 5625) (* -4611686018427387903 0) -> 0) ((2371 . 5625) (* -4611686018427387902 -4) -> 18446744073709551608) ((2372 . 5625) (* -4611686018427387902 -3) -> 13835058055282163706) ((2373 . 5625) (* -4611686018427387902 -2) -> 9223372036854775804) ((2374 . 5625) (* -4611686018427387902 -1) -> 4611686018427387902) ((2375 . 5625) (* -4611686018427387902 0) -> 0) ((2376 . 5625) (* -4611686018427387906 4611686018427387901) -> -21267647932558653961849226946058125306) ((2377 . 5625) (* -4611686018427387906 4611686018427387902) -> -21267647932558653966460912964485513212) ((2378 . 5625) (* -4611686018427387906 4611686018427387903) -> -21267647932558653971072598982912901118) ((2379 . 5625) (* -4611686018427387906 4611686018427387904) -> -21267647932558653975684285001340289024) ((2380 . 5625) (* -4611686018427387906 4611686018427387905) -> -21267647932558653980295971019767676930) ((2381 . 5625) (* -4611686018427387905 4611686018427387901) -> -21267647932558653957237540927630737405) ((2382 . 5625) (* -4611686018427387905 4611686018427387902) -> -21267647932558653961849226946058125310) ((2383 . 5625) (* -4611686018427387905 4611686018427387903) -> -21267647932558653966460912964485513215) ((2384 . 5625) (* -4611686018427387905 4611686018427387904) -> -21267647932558653971072598982912901120) ((2385 . 5625) (* -4611686018427387905 4611686018427387905) -> -21267647932558653975684285001340289025) ((2386 . 5625) (* -4611686018427387904 4611686018427387901) -> -21267647932558653952625854909203349504) ((2387 . 5625) (* -4611686018427387904 4611686018427387902) -> -21267647932558653957237540927630737408) ((2388 . 5625) (* -4611686018427387904 4611686018427387903) -> -21267647932558653961849226946058125312) ((2389 . 5625) (* -4611686018427387904 4611686018427387904) -> -21267647932558653966460912964485513216) ((2390 . 5625) (* -4611686018427387904 4611686018427387905) -> -21267647932558653971072598982912901120) ((2391 . 5625) (* -4611686018427387903 4611686018427387901) -> -21267647932558653948014168890775961603) ((2392 . 5625) (* -4611686018427387903 4611686018427387902) -> -21267647932558653952625854909203349506) ((2393 . 5625) (* -4611686018427387903 4611686018427387903) -> -21267647932558653957237540927630737409) ((2394 . 5625) (* -4611686018427387903 4611686018427387904) -> -21267647932558653961849226946058125312) ((2395 . 5625) (* -4611686018427387903 4611686018427387905) -> -21267647932558653966460912964485513215) ((2396 . 5625) (* -4611686018427387902 4611686018427387901) -> -21267647932558653943402482872348573702) ((2397 . 5625) (* -4611686018427387902 4611686018427387902) -> -21267647932558653948014168890775961604) ((2398 . 5625) (* -4611686018427387902 4611686018427387903) -> -21267647932558653952625854909203349506) ((2399 . 5625) (* -4611686018427387902 4611686018427387904) -> -21267647932558653957237540927630737408) ((2400 . 5625) (* -4611686018427387902 4611686018427387905) -> -21267647932558653961849226946058125310) ((2401 . 5625) (* -4611686018427387906 -4611686018427387906) -> 21267647932558653984907657038195064836) ((2402 . 5625) (* -4611686018427387906 -4611686018427387905) -> 21267647932558653980295971019767676930) ((2403 . 5625) (* -4611686018427387906 -4611686018427387904) -> 21267647932558653975684285001340289024) ((2404 . 5625) (* -4611686018427387906 -4611686018427387903) -> 21267647932558653971072598982912901118) ((2405 . 5625) (* -4611686018427387906 -4611686018427387902) -> 21267647932558653966460912964485513212) ((2406 . 5625) (* -4611686018427387905 -4611686018427387906) -> 21267647932558653980295971019767676930) ((2407 . 5625) (* -4611686018427387905 -4611686018427387905) -> 21267647932558653975684285001340289025) ((2408 . 5625) (* -4611686018427387905 -4611686018427387904) -> 21267647932558653971072598982912901120) ((2409 . 5625) (* -4611686018427387905 -4611686018427387903) -> 21267647932558653966460912964485513215) ((2410 . 5625) (* -4611686018427387905 -4611686018427387902) -> 21267647932558653961849226946058125310) ((2411 . 5625) (* -4611686018427387904 -4611686018427387906) -> 21267647932558653975684285001340289024) ((2412 . 5625) (* -4611686018427387904 -4611686018427387905) -> 21267647932558653971072598982912901120) ((2413 . 5625) (* -4611686018427387904 -4611686018427387904) -> 21267647932558653966460912964485513216) ((2414 . 5625) (* -4611686018427387904 -4611686018427387903) -> 21267647932558653961849226946058125312) ((2415 . 5625) (* -4611686018427387904 -4611686018427387902) -> 21267647932558653957237540927630737408) ((2416 . 5625) (* -4611686018427387903 -4611686018427387906) -> 21267647932558653971072598982912901118) ((2417 . 5625) (* -4611686018427387903 -4611686018427387905) -> 21267647932558653966460912964485513215) ((2418 . 5625) (* -4611686018427387903 -4611686018427387904) -> 21267647932558653961849226946058125312) ((2419 . 5625) (* -4611686018427387903 -4611686018427387903) -> 21267647932558653957237540927630737409) ((2420 . 5625) (* -4611686018427387903 -4611686018427387902) -> 21267647932558653952625854909203349506) ((2421 . 5625) (* -4611686018427387902 -4611686018427387906) -> 21267647932558653966460912964485513212) ((2422 . 5625) (* -4611686018427387902 -4611686018427387905) -> 21267647932558653961849226946058125310) ((2423 . 5625) (* -4611686018427387902 -4611686018427387904) -> 21267647932558653957237540927630737408) ((2424 . 5625) (* -4611686018427387902 -4611686018427387903) -> 21267647932558653952625854909203349506) ((2425 . 5625) (* -4611686018427387902 -4611686018427387902) -> 21267647932558653948014168890775961604) ((2426 . 5625) (* -4611686018427387906 4611686018427387902) -> -21267647932558653966460912964485513212) ((2427 . 5625) (* -4611686018427387906 4611686018427387903) -> -21267647932558653971072598982912901118) ((2428 . 5625) (* -4611686018427387906 4611686018427387904) -> -21267647932558653975684285001340289024) ((2429 . 5625) (* -4611686018427387906 4611686018427387905) -> -21267647932558653980295971019767676930) ((2430 . 5625) (* -4611686018427387906 4611686018427387906) -> -21267647932558653984907657038195064836) ((2431 . 5625) (* -4611686018427387905 4611686018427387902) -> -21267647932558653961849226946058125310) ((2432 . 5625) (* -4611686018427387905 4611686018427387903) -> -21267647932558653966460912964485513215) ((2433 . 5625) (* -4611686018427387905 4611686018427387904) -> -21267647932558653971072598982912901120) ((2434 . 5625) (* -4611686018427387905 4611686018427387905) -> -21267647932558653975684285001340289025) ((2435 . 5625) (* -4611686018427387905 4611686018427387906) -> -21267647932558653980295971019767676930) ((2436 . 5625) (* -4611686018427387904 4611686018427387902) -> -21267647932558653957237540927630737408) ((2437 . 5625) (* -4611686018427387904 4611686018427387903) -> -21267647932558653961849226946058125312) ((2438 . 5625) (* -4611686018427387904 4611686018427387904) -> -21267647932558653966460912964485513216) ((2439 . 5625) (* -4611686018427387904 4611686018427387905) -> -21267647932558653971072598982912901120) ((2440 . 5625) (* -4611686018427387904 4611686018427387906) -> -21267647932558653975684285001340289024) ((2441 . 5625) (* -4611686018427387903 4611686018427387902) -> -21267647932558653952625854909203349506) ((2442 . 5625) (* -4611686018427387903 4611686018427387903) -> -21267647932558653957237540927630737409) ((2443 . 5625) (* -4611686018427387903 4611686018427387904) -> -21267647932558653961849226946058125312) ((2444 . 5625) (* -4611686018427387903 4611686018427387905) -> -21267647932558653966460912964485513215) ((2445 . 5625) (* -4611686018427387903 4611686018427387906) -> -21267647932558653971072598982912901118) ((2446 . 5625) (* -4611686018427387902 4611686018427387902) -> -21267647932558653948014168890775961604) ((2447 . 5625) (* -4611686018427387902 4611686018427387903) -> -21267647932558653952625854909203349506) ((2448 . 5625) (* -4611686018427387902 4611686018427387904) -> -21267647932558653957237540927630737408) ((2449 . 5625) (* -4611686018427387902 4611686018427387905) -> -21267647932558653961849226946058125310) ((2450 . 5625) (* -4611686018427387902 4611686018427387906) -> -21267647932558653966460912964485513212) ((2451 . 5625) (* -4611686018427387906 -4611686018427387907) -> 21267647932558653989519343056622452742) ((2452 . 5625) (* -4611686018427387906 -4611686018427387906) -> 21267647932558653984907657038195064836) ((2453 . 5625) (* -4611686018427387906 -4611686018427387905) -> 21267647932558653980295971019767676930) ((2454 . 5625) (* -4611686018427387906 -4611686018427387904) -> 21267647932558653975684285001340289024) ((2455 . 5625) (* -4611686018427387906 -4611686018427387903) -> 21267647932558653971072598982912901118) ((2456 . 5625) (* -4611686018427387905 -4611686018427387907) -> 21267647932558653984907657038195064835) ((2457 . 5625) (* -4611686018427387905 -4611686018427387906) -> 21267647932558653980295971019767676930) ((2458 . 5625) (* -4611686018427387905 -4611686018427387905) -> 21267647932558653975684285001340289025) ((2459 . 5625) (* -4611686018427387905 -4611686018427387904) -> 21267647932558653971072598982912901120) ((2460 . 5625) (* -4611686018427387905 -4611686018427387903) -> 21267647932558653966460912964485513215) ((2461 . 5625) (* -4611686018427387904 -4611686018427387907) -> 21267647932558653980295971019767676928) ((2462 . 5625) (* -4611686018427387904 -4611686018427387906) -> 21267647932558653975684285001340289024) ((2463 . 5625) (* -4611686018427387904 -4611686018427387905) -> 21267647932558653971072598982912901120) ((2464 . 5625) (* -4611686018427387904 -4611686018427387904) -> 21267647932558653966460912964485513216) ((2465 . 5625) (* -4611686018427387904 -4611686018427387903) -> 21267647932558653961849226946058125312) ((2466 . 5625) (* -4611686018427387903 -4611686018427387907) -> 21267647932558653975684285001340289021) ((2467 . 5625) (* -4611686018427387903 -4611686018427387906) -> 21267647932558653971072598982912901118) ((2468 . 5625) (* -4611686018427387903 -4611686018427387905) -> 21267647932558653966460912964485513215) ((2469 . 5625) (* -4611686018427387903 -4611686018427387904) -> 21267647932558653961849226946058125312) ((2470 . 5625) (* -4611686018427387903 -4611686018427387903) -> 21267647932558653957237540927630737409) ((2471 . 5625) (* -4611686018427387902 -4611686018427387907) -> 21267647932558653971072598982912901114) ((2472 . 5625) (* -4611686018427387902 -4611686018427387906) -> 21267647932558653966460912964485513212) ((2473 . 5625) (* -4611686018427387902 -4611686018427387905) -> 21267647932558653961849226946058125310) ((2474 . 5625) (* -4611686018427387902 -4611686018427387904) -> 21267647932558653957237540927630737408) ((2475 . 5625) (* -4611686018427387902 -4611686018427387903) -> 21267647932558653952625854909203349506) ((2476 . 5625) (* -4611686018427387906 1103515243) -> -5089065817264601442944851158) ((2477 . 5625) (* -4611686018427387906 1103515244) -> -5089065821876287461372239064) ((2478 . 5625) (* -4611686018427387906 1103515245) -> -5089065826487973479799626970) ((2479 . 5625) (* -4611686018427387906 1103515246) -> -5089065831099659498227014876) ((2480 . 5625) (* -4611686018427387906 1103515247) -> -5089065835711345516654402782) ((2481 . 5625) (* -4611686018427387905 1103515243) -> -5089065817264601441841335915) ((2482 . 5625) (* -4611686018427387905 1103515244) -> -5089065821876287460268723820) ((2483 . 5625) (* -4611686018427387905 1103515245) -> -5089065826487973478696111725) ((2484 . 5625) (* -4611686018427387905 1103515246) -> -5089065831099659497123499630) ((2485 . 5625) (* -4611686018427387905 1103515247) -> -5089065835711345515550887535) ((2486 . 5625) (* -4611686018427387904 1103515243) -> -5089065817264601440737820672) ((2487 . 5625) (* -4611686018427387904 1103515244) -> -5089065821876287459165208576) ((2488 . 5625) (* -4611686018427387904 1103515245) -> -5089065826487973477592596480) ((2489 . 5625) (* -4611686018427387904 1103515246) -> -5089065831099659496019984384) ((2490 . 5625) (* -4611686018427387904 1103515247) -> -5089065835711345514447372288) ((2491 . 5625) (* -4611686018427387903 1103515243) -> -5089065817264601439634305429) ((2492 . 5625) (* -4611686018427387903 1103515244) -> -5089065821876287458061693332) ((2493 . 5625) (* -4611686018427387903 1103515245) -> -5089065826487973476489081235) ((2494 . 5625) (* -4611686018427387903 1103515246) -> -5089065831099659494916469138) ((2495 . 5625) (* -4611686018427387903 1103515247) -> -5089065835711345513343857041) ((2496 . 5625) (* -4611686018427387902 1103515243) -> -5089065817264601438530790186) ((2497 . 5625) (* -4611686018427387902 1103515244) -> -5089065821876287456958178088) ((2498 . 5625) (* -4611686018427387902 1103515245) -> -5089065826487973475385565990) ((2499 . 5625) (* -4611686018427387902 1103515246) -> -5089065831099659493812953892) ((2500 . 5625) (* -4611686018427387902 1103515247) -> -5089065835711345512240341794) ((2501 . 5625) (* -4611686018427387906 631629063) -> -2912874918669491756604312078) ((2502 . 5625) (* -4611686018427387906 631629064) -> -2912874923281177775031699984) ((2503 . 5625) (* -4611686018427387906 631629065) -> -2912874927892863793459087890) ((2504 . 5625) (* -4611686018427387906 631629066) -> -2912874932504549811886475796) ((2505 . 5625) (* -4611686018427387906 631629067) -> -2912874937116235830313863702) ((2506 . 5625) (* -4611686018427387905 631629063) -> -2912874918669491755972683015) ((2507 . 5625) (* -4611686018427387905 631629064) -> -2912874923281177774400070920) ((2508 . 5625) (* -4611686018427387905 631629065) -> -2912874927892863792827458825) ((2509 . 5625) (* -4611686018427387905 631629066) -> -2912874932504549811254846730) ((2510 . 5625) (* -4611686018427387905 631629067) -> -2912874937116235829682234635) ((2511 . 5625) (* -4611686018427387904 631629063) -> -2912874918669491755341053952) ((2512 . 5625) (* -4611686018427387904 631629064) -> -2912874923281177773768441856) ((2513 . 5625) (* -4611686018427387904 631629065) -> -2912874927892863792195829760) ((2514 . 5625) (* -4611686018427387904 631629066) -> -2912874932504549810623217664) ((2515 . 5625) (* -4611686018427387904 631629067) -> -2912874937116235829050605568) ((2516 . 5625) (* -4611686018427387903 631629063) -> -2912874918669491754709424889) ((2517 . 5625) (* -4611686018427387903 631629064) -> -2912874923281177773136812792) ((2518 . 5625) (* -4611686018427387903 631629065) -> -2912874927892863791564200695) ((2519 . 5625) (* -4611686018427387903 631629066) -> -2912874932504549809991588598) ((2520 . 5625) (* -4611686018427387903 631629067) -> -2912874937116235828418976501) ((2521 . 5625) (* -4611686018427387902 631629063) -> -2912874918669491754077795826) ((2522 . 5625) (* -4611686018427387902 631629064) -> -2912874923281177772505183728) ((2523 . 5625) (* -4611686018427387902 631629065) -> -2912874927892863790932571630) ((2524 . 5625) (* -4611686018427387902 631629066) -> -2912874932504549809359959532) ((2525 . 5625) (* -4611686018427387902 631629067) -> -2912874937116235827787347434) ((2526 . 5625) (* -4611686018427387906 9007199254740990) -> -41538374868278611822886332288466940) ((2527 . 5625) (* -4611686018427387906 9007199254740991) -> -41538374868278616434572350715854846) ((2528 . 5625) (* -4611686018427387906 9007199254740992) -> -41538374868278621046258369143242752) ((2529 . 5625) (* -4611686018427387906 9007199254740993) -> -41538374868278625657944387570630658) ((2530 . 5625) (* -4611686018427387906 9007199254740994) -> -41538374868278630269630405998018564) ((2531 . 5625) (* -4611686018427387905 9007199254740990) -> -41538374868278611813879133033725950) ((2532 . 5625) (* -4611686018427387905 9007199254740991) -> -41538374868278616425565151461113855) ((2533 . 5625) (* -4611686018427387905 9007199254740992) -> -41538374868278621037251169888501760) ((2534 . 5625) (* -4611686018427387905 9007199254740993) -> -41538374868278625648937188315889665) ((2535 . 5625) (* -4611686018427387905 9007199254740994) -> -41538374868278630260623206743277570) ((2536 . 5625) (* -4611686018427387904 9007199254740990) -> -41538374868278611804871933778984960) ((2537 . 5625) (* -4611686018427387904 9007199254740991) -> -41538374868278616416557952206372864) ((2538 . 5625) (* -4611686018427387904 9007199254740992) -> -41538374868278621028243970633760768) ((2539 . 5625) (* -4611686018427387904 9007199254740993) -> -41538374868278625639929989061148672) ((2540 . 5625) (* -4611686018427387904 9007199254740994) -> -41538374868278630251616007488536576) ((2541 . 5625) (* -4611686018427387903 9007199254740990) -> -41538374868278611795864734524243970) ((2542 . 5625) (* -4611686018427387903 9007199254740991) -> -41538374868278616407550752951631873) ((2543 . 5625) (* -4611686018427387903 9007199254740992) -> -41538374868278621019236771379019776) ((2544 . 5625) (* -4611686018427387903 9007199254740993) -> -41538374868278625630922789806407679) ((2545 . 5625) (* -4611686018427387903 9007199254740994) -> -41538374868278630242608808233795582) ((2546 . 5625) (* -4611686018427387902 9007199254740990) -> -41538374868278611786857535269502980) ((2547 . 5625) (* -4611686018427387902 9007199254740991) -> -41538374868278616398543553696890882) ((2548 . 5625) (* -4611686018427387902 9007199254740992) -> -41538374868278621010229572124278784) ((2549 . 5625) (* -4611686018427387902 9007199254740993) -> -41538374868278625621915590551666686) ((2550 . 5625) (* -4611686018427387902 9007199254740994) -> -41538374868278630233601608979054588) ((2551 . 5625) (* -4611686018427387906 -9007199254740994) -> 41538374868278630269630405998018564) ((2552 . 5625) (* -4611686018427387906 -9007199254740993) -> 41538374868278625657944387570630658) ((2553 . 5625) (* -4611686018427387906 -9007199254740992) -> 41538374868278621046258369143242752) ((2554 . 5625) (* -4611686018427387906 -9007199254740991) -> 41538374868278616434572350715854846) ((2555 . 5625) (* -4611686018427387906 -9007199254740990) -> 41538374868278611822886332288466940) ((2556 . 5625) (* -4611686018427387905 -9007199254740994) -> 41538374868278630260623206743277570) ((2557 . 5625) (* -4611686018427387905 -9007199254740993) -> 41538374868278625648937188315889665) ((2558 . 5625) (* -4611686018427387905 -9007199254740992) -> 41538374868278621037251169888501760) ((2559 . 5625) (* -4611686018427387905 -9007199254740991) -> 41538374868278616425565151461113855) ((2560 . 5625) (* -4611686018427387905 -9007199254740990) -> 41538374868278611813879133033725950) ((2561 . 5625) (* -4611686018427387904 -9007199254740994) -> 41538374868278630251616007488536576) ((2562 . 5625) (* -4611686018427387904 -9007199254740993) -> 41538374868278625639929989061148672) ((2563 . 5625) (* -4611686018427387904 -9007199254740992) -> 41538374868278621028243970633760768) ((2564 . 5625) (* -4611686018427387904 -9007199254740991) -> 41538374868278616416557952206372864) ((2565 . 5625) (* -4611686018427387904 -9007199254740990) -> 41538374868278611804871933778984960) ((2566 . 5625) (* -4611686018427387903 -9007199254740994) -> 41538374868278630242608808233795582) ((2567 . 5625) (* -4611686018427387903 -9007199254740993) -> 41538374868278625630922789806407679) ((2568 . 5625) (* -4611686018427387903 -9007199254740992) -> 41538374868278621019236771379019776) ((2569 . 5625) (* -4611686018427387903 -9007199254740991) -> 41538374868278616407550752951631873) ((2570 . 5625) (* -4611686018427387903 -9007199254740990) -> 41538374868278611795864734524243970) ((2571 . 5625) (* -4611686018427387902 -9007199254740994) -> 41538374868278630233601608979054588) ((2572 . 5625) (* -4611686018427387902 -9007199254740993) -> 41538374868278625621915590551666686) ((2573 . 5625) (* -4611686018427387902 -9007199254740992) -> 41538374868278621010229572124278784) ((2574 . 5625) (* -4611686018427387902 -9007199254740991) -> 41538374868278616398543553696890882) ((2575 . 5625) (* -4611686018427387902 -9007199254740990) -> 41538374868278611786857535269502980) ((2576 . 5625) (* -4611686018427387906 12343) -> -56922040525449248923758) ((2577 . 5625) (* -4611686018427387906 12344) -> -56926652211467676311664) ((2578 . 5625) (* -4611686018427387906 12345) -> -56931263897486103699570) ((2579 . 5625) (* -4611686018427387906 12346) -> -56935875583504531087476) ((2580 . 5625) (* -4611686018427387906 12347) -> -56940487269522958475382) ((2581 . 5625) (* -4611686018427387905 12343) -> -56922040525449248911415) ((2582 . 5625) (* -4611686018427387905 12344) -> -56926652211467676299320) ((2583 . 5625) (* -4611686018427387905 12345) -> -56931263897486103687225) ((2584 . 5625) (* -4611686018427387905 12346) -> -56935875583504531075130) ((2585 . 5625) (* -4611686018427387905 12347) -> -56940487269522958463035) ((2586 . 5625) (* -4611686018427387904 12343) -> -56922040525449248899072) ((2587 . 5625) (* -4611686018427387904 12344) -> -56926652211467676286976) ((2588 . 5625) (* -4611686018427387904 12345) -> -56931263897486103674880) ((2589 . 5625) (* -4611686018427387904 12346) -> -56935875583504531062784) ((2590 . 5625) (* -4611686018427387904 12347) -> -56940487269522958450688) ((2591 . 5625) (* -4611686018427387903 12343) -> -56922040525449248886729) ((2592 . 5625) (* -4611686018427387903 12344) -> -56926652211467676274632) ((2593 . 5625) (* -4611686018427387903 12345) -> -56931263897486103662535) ((2594 . 5625) (* -4611686018427387903 12346) -> -56935875583504531050438) ((2595 . 5625) (* -4611686018427387903 12347) -> -56940487269522958438341) ((2596 . 5625) (* -4611686018427387902 12343) -> -56922040525449248874386) ((2597 . 5625) (* -4611686018427387902 12344) -> -56926652211467676262288) ((2598 . 5625) (* -4611686018427387902 12345) -> -56931263897486103650190) ((2599 . 5625) (* -4611686018427387902 12346) -> -56935875583504531038092) ((2600 . 5625) (* -4611686018427387902 12347) -> -56940487269522958425994) ((2601 . 5625) (* -4611686018427387906 4294967294) -> -19807040619342712370121146364) ((2602 . 5625) (* -4611686018427387906 4294967295) -> -19807040623954398388548534270) ((2603 . 5625) (* -4611686018427387906 4294967296) -> -19807040628566084406975922176) ((2604 . 5625) (* -4611686018427387906 4294967297) -> -19807040633177770425403310082) ((2605 . 5625) (* -4611686018427387906 4294967298) -> -19807040637789456443830697988) ((2606 . 5625) (* -4611686018427387905 4294967294) -> -19807040619342712365826179070) ((2607 . 5625) (* -4611686018427387905 4294967295) -> -19807040623954398384253566975) ((2608 . 5625) (* -4611686018427387905 4294967296) -> -19807040628566084402680954880) ((2609 . 5625) (* -4611686018427387905 4294967297) -> -19807040633177770421108342785) ((2610 . 5625) (* -4611686018427387905 4294967298) -> -19807040637789456439535730690) ((2611 . 5625) (* -4611686018427387904 4294967294) -> -19807040619342712361531211776) ((2612 . 5625) (* -4611686018427387904 4294967295) -> -19807040623954398379958599680) ((2613 . 5625) (* -4611686018427387904 4294967296) -> -19807040628566084398385987584) ((2614 . 5625) (* -4611686018427387904 4294967297) -> -19807040633177770416813375488) ((2615 . 5625) (* -4611686018427387904 4294967298) -> -19807040637789456435240763392) ((2616 . 5625) (* -4611686018427387903 4294967294) -> -19807040619342712357236244482) ((2617 . 5625) (* -4611686018427387903 4294967295) -> -19807040623954398375663632385) ((2618 . 5625) (* -4611686018427387903 4294967296) -> -19807040628566084394091020288) ((2619 . 5625) (* -4611686018427387903 4294967297) -> -19807040633177770412518408191) ((2620 . 5625) (* -4611686018427387903 4294967298) -> -19807040637789456430945796094) ((2621 . 5625) (* -4611686018427387902 4294967294) -> -19807040619342712352941277188) ((2622 . 5625) (* -4611686018427387902 4294967295) -> -19807040623954398371368665090) ((2623 . 5625) (* -4611686018427387902 4294967296) -> -19807040628566084389796052992) ((2624 . 5625) (* -4611686018427387902 4294967297) -> -19807040633177770408223440894) ((2625 . 5625) (* -4611686018427387902 4294967298) -> -19807040637789456426650828796) ((2626 . 5625) (* 4611686018427387902 -2) -> -9223372036854775804) ((2627 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((2628 . 5625) (* 4611686018427387902 0) -> 0) ((2629 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((2630 . 5625) (* 4611686018427387902 2) -> 9223372036854775804) ((2631 . 5625) (* 4611686018427387903 -2) -> -9223372036854775806) ((2632 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((2633 . 5625) (* 4611686018427387903 0) -> 0) ((2634 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((2635 . 5625) (* 4611686018427387903 2) -> 9223372036854775806) ((2636 . 5625) (* 4611686018427387904 -2) -> -9223372036854775808) ((2637 . 5625) (* 4611686018427387904 -1) -> -4611686018427387904) ((2638 . 5625) (* 4611686018427387904 0) -> 0) ((2639 . 5625) (* 4611686018427387904 1) -> 4611686018427387904) ((2640 . 5625) (* 4611686018427387904 2) -> 9223372036854775808) ((2641 . 5625) (* 4611686018427387905 -2) -> -9223372036854775810) ((2642 . 5625) (* 4611686018427387905 -1) -> -4611686018427387905) ((2643 . 5625) (* 4611686018427387905 0) -> 0) ((2644 . 5625) (* 4611686018427387905 1) -> 4611686018427387905) ((2645 . 5625) (* 4611686018427387905 2) -> 9223372036854775810) ((2646 . 5625) (* 4611686018427387906 -2) -> -9223372036854775812) ((2647 . 5625) (* 4611686018427387906 -1) -> -4611686018427387906) ((2648 . 5625) (* 4611686018427387906 0) -> 0) ((2649 . 5625) (* 4611686018427387906 1) -> 4611686018427387906) ((2650 . 5625) (* 4611686018427387906 2) -> 9223372036854775812) ((2651 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((2652 . 5625) (* 4611686018427387902 0) -> 0) ((2653 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((2654 . 5625) (* 4611686018427387902 2) -> 9223372036854775804) ((2655 . 5625) (* 4611686018427387902 3) -> 13835058055282163706) ((2656 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((2657 . 5625) (* 4611686018427387903 0) -> 0) ((2658 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((2659 . 5625) (* 4611686018427387903 2) -> 9223372036854775806) ((2660 . 5625) (* 4611686018427387903 3) -> 13835058055282163709) ((2661 . 5625) (* 4611686018427387904 -1) -> -4611686018427387904) ((2662 . 5625) (* 4611686018427387904 0) -> 0) ((2663 . 5625) (* 4611686018427387904 1) -> 4611686018427387904) ((2664 . 5625) (* 4611686018427387904 2) -> 9223372036854775808) ((2665 . 5625) (* 4611686018427387904 3) -> 13835058055282163712) ((2666 . 5625) (* 4611686018427387905 -1) -> -4611686018427387905) ((2667 . 5625) (* 4611686018427387905 0) -> 0) ((2668 . 5625) (* 4611686018427387905 1) -> 4611686018427387905) ((2669 . 5625) (* 4611686018427387905 2) -> 9223372036854775810) ((2670 . 5625) (* 4611686018427387905 3) -> 13835058055282163715) ((2671 . 5625) (* 4611686018427387906 -1) -> -4611686018427387906) ((2672 . 5625) (* 4611686018427387906 0) -> 0) ((2673 . 5625) (* 4611686018427387906 1) -> 4611686018427387906) ((2674 . 5625) (* 4611686018427387906 2) -> 9223372036854775812) ((2675 . 5625) (* 4611686018427387906 3) -> 13835058055282163718) ((2676 . 5625) (* 4611686018427387902 -3) -> -13835058055282163706) ((2677 . 5625) (* 4611686018427387902 -2) -> -9223372036854775804) ((2678 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((2679 . 5625) (* 4611686018427387902 0) -> 0) ((2680 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((2681 . 5625) (* 4611686018427387903 -3) -> -13835058055282163709) ((2682 . 5625) (* 4611686018427387903 -2) -> -9223372036854775806) ((2683 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((2684 . 5625) (* 4611686018427387903 0) -> 0) ((2685 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((2686 . 5625) (* 4611686018427387904 -3) -> -13835058055282163712) ((2687 . 5625) (* 4611686018427387904 -2) -> -9223372036854775808) ((2688 . 5625) (* 4611686018427387904 -1) -> -4611686018427387904) ((2689 . 5625) (* 4611686018427387904 0) -> 0) ((2690 . 5625) (* 4611686018427387904 1) -> 4611686018427387904) ((2691 . 5625) (* 4611686018427387905 -3) -> -13835058055282163715) ((2692 . 5625) (* 4611686018427387905 -2) -> -9223372036854775810) ((2693 . 5625) (* 4611686018427387905 -1) -> -4611686018427387905) ((2694 . 5625) (* 4611686018427387905 0) -> 0) ((2695 . 5625) (* 4611686018427387905 1) -> 4611686018427387905) ((2696 . 5625) (* 4611686018427387906 -3) -> -13835058055282163718) ((2697 . 5625) (* 4611686018427387906 -2) -> -9223372036854775812) ((2698 . 5625) (* 4611686018427387906 -1) -> -4611686018427387906) ((2699 . 5625) (* 4611686018427387906 0) -> 0) ((2700 . 5625) (* 4611686018427387906 1) -> 4611686018427387906) ((2701 . 5625) (* 4611686018427387902 0) -> 0) ((2702 . 5625) (* 4611686018427387902 1) -> 4611686018427387902) ((2703 . 5625) (* 4611686018427387902 2) -> 9223372036854775804) ((2704 . 5625) (* 4611686018427387902 3) -> 13835058055282163706) ((2705 . 5625) (* 4611686018427387902 4) -> 18446744073709551608) ((2706 . 5625) (* 4611686018427387903 0) -> 0) ((2707 . 5625) (* 4611686018427387903 1) -> 4611686018427387903) ((2708 . 5625) (* 4611686018427387903 2) -> 9223372036854775806) ((2709 . 5625) (* 4611686018427387903 3) -> 13835058055282163709) ((2710 . 5625) (* 4611686018427387903 4) -> 18446744073709551612) ((2711 . 5625) (* 4611686018427387904 0) -> 0) ((2712 . 5625) (* 4611686018427387904 1) -> 4611686018427387904) ((2713 . 5625) (* 4611686018427387904 2) -> 9223372036854775808) ((2714 . 5625) (* 4611686018427387904 3) -> 13835058055282163712) ((2715 . 5625) (* 4611686018427387904 4) -> 18446744073709551616) ((2716 . 5625) (* 4611686018427387905 0) -> 0) ((2717 . 5625) (* 4611686018427387905 1) -> 4611686018427387905) ((2718 . 5625) (* 4611686018427387905 2) -> 9223372036854775810) ((2719 . 5625) (* 4611686018427387905 3) -> 13835058055282163715) ((2720 . 5625) (* 4611686018427387905 4) -> 18446744073709551620) ((2721 . 5625) (* 4611686018427387906 0) -> 0) ((2722 . 5625) (* 4611686018427387906 1) -> 4611686018427387906) ((2723 . 5625) (* 4611686018427387906 2) -> 9223372036854775812) ((2724 . 5625) (* 4611686018427387906 3) -> 13835058055282163718) ((2725 . 5625) (* 4611686018427387906 4) -> 18446744073709551624) ((2726 . 5625) (* 4611686018427387902 -4) -> -18446744073709551608) ((2727 . 5625) (* 4611686018427387902 -3) -> -13835058055282163706) ((2728 . 5625) (* 4611686018427387902 -2) -> -9223372036854775804) ((2729 . 5625) (* 4611686018427387902 -1) -> -4611686018427387902) ((2730 . 5625) (* 4611686018427387902 0) -> 0) ((2731 . 5625) (* 4611686018427387903 -4) -> -18446744073709551612) ((2732 . 5625) (* 4611686018427387903 -3) -> -13835058055282163709) ((2733 . 5625) (* 4611686018427387903 -2) -> -9223372036854775806) ((2734 . 5625) (* 4611686018427387903 -1) -> -4611686018427387903) ((2735 . 5625) (* 4611686018427387903 0) -> 0) ((2736 . 5625) (* 4611686018427387904 -4) -> -18446744073709551616) ((2737 . 5625) (* 4611686018427387904 -3) -> -13835058055282163712) ((2738 . 5625) (* 4611686018427387904 -2) -> -9223372036854775808) ((2739 . 5625) (* 4611686018427387904 -1) -> -4611686018427387904) ((2740 . 5625) (* 4611686018427387904 0) -> 0) ((2741 . 5625) (* 4611686018427387905 -4) -> -18446744073709551620) ((2742 . 5625) (* 4611686018427387905 -3) -> -13835058055282163715) ((2743 . 5625) (* 4611686018427387905 -2) -> -9223372036854775810) ((2744 . 5625) (* 4611686018427387905 -1) -> -4611686018427387905) ((2745 . 5625) (* 4611686018427387905 0) -> 0) ((2746 . 5625) (* 4611686018427387906 -4) -> -18446744073709551624) ((2747 . 5625) (* 4611686018427387906 -3) -> -13835058055282163718) ((2748 . 5625) (* 4611686018427387906 -2) -> -9223372036854775812) ((2749 . 5625) (* 4611686018427387906 -1) -> -4611686018427387906) ((2750 . 5625) (* 4611686018427387906 0) -> 0) ((2751 . 5625) (* 4611686018427387902 4611686018427387901) -> 21267647932558653943402482872348573702) ((2752 . 5625) (* 4611686018427387902 4611686018427387902) -> 21267647932558653948014168890775961604) ((2753 . 5625) (* 4611686018427387902 4611686018427387903) -> 21267647932558653952625854909203349506) ((2754 . 5625) (* 4611686018427387902 4611686018427387904) -> 21267647932558653957237540927630737408) ((2755 . 5625) (* 4611686018427387902 4611686018427387905) -> 21267647932558653961849226946058125310) ((2756 . 5625) (* 4611686018427387903 4611686018427387901) -> 21267647932558653948014168890775961603) ((2757 . 5625) (* 4611686018427387903 4611686018427387902) -> 21267647932558653952625854909203349506) ((2758 . 5625) (* 4611686018427387903 4611686018427387903) -> 21267647932558653957237540927630737409) ((2759 . 5625) (* 4611686018427387903 4611686018427387904) -> 21267647932558653961849226946058125312) ((2760 . 5625) (* 4611686018427387903 4611686018427387905) -> 21267647932558653966460912964485513215) ((2761 . 5625) (* 4611686018427387904 4611686018427387901) -> 21267647932558653952625854909203349504) ((2762 . 5625) (* 4611686018427387904 4611686018427387902) -> 21267647932558653957237540927630737408) ((2763 . 5625) (* 4611686018427387904 4611686018427387903) -> 21267647932558653961849226946058125312) ((2764 . 5625) (* 4611686018427387904 4611686018427387904) -> 21267647932558653966460912964485513216) ((2765 . 5625) (* 4611686018427387904 4611686018427387905) -> 21267647932558653971072598982912901120) ((2766 . 5625) (* 4611686018427387905 4611686018427387901) -> 21267647932558653957237540927630737405) ((2767 . 5625) (* 4611686018427387905 4611686018427387902) -> 21267647932558653961849226946058125310) ((2768 . 5625) (* 4611686018427387905 4611686018427387903) -> 21267647932558653966460912964485513215) ((2769 . 5625) (* 4611686018427387905 4611686018427387904) -> 21267647932558653971072598982912901120) ((2770 . 5625) (* 4611686018427387905 4611686018427387905) -> 21267647932558653975684285001340289025) ((2771 . 5625) (* 4611686018427387906 4611686018427387901) -> 21267647932558653961849226946058125306) ((2772 . 5625) (* 4611686018427387906 4611686018427387902) -> 21267647932558653966460912964485513212) ((2773 . 5625) (* 4611686018427387906 4611686018427387903) -> 21267647932558653971072598982912901118) ((2774 . 5625) (* 4611686018427387906 4611686018427387904) -> 21267647932558653975684285001340289024) ((2775 . 5625) (* 4611686018427387906 4611686018427387905) -> 21267647932558653980295971019767676930) ((2776 . 5625) (* 4611686018427387902 -4611686018427387906) -> -21267647932558653966460912964485513212) ((2777 . 5625) (* 4611686018427387902 -4611686018427387905) -> -21267647932558653961849226946058125310) ((2778 . 5625) (* 4611686018427387902 -4611686018427387904) -> -21267647932558653957237540927630737408) ((2779 . 5625) (* 4611686018427387902 -4611686018427387903) -> -21267647932558653952625854909203349506) ((2780 . 5625) (* 4611686018427387902 -4611686018427387902) -> -21267647932558653948014168890775961604) ((2781 . 5625) (* 4611686018427387903 -4611686018427387906) -> -21267647932558653971072598982912901118) ((2782 . 5625) (* 4611686018427387903 -4611686018427387905) -> -21267647932558653966460912964485513215) ((2783 . 5625) (* 4611686018427387903 -4611686018427387904) -> -21267647932558653961849226946058125312) ((2784 . 5625) (* 4611686018427387903 -4611686018427387903) -> -21267647932558653957237540927630737409) ((2785 . 5625) (* 4611686018427387903 -4611686018427387902) -> -21267647932558653952625854909203349506) ((2786 . 5625) (* 4611686018427387904 -4611686018427387906) -> -21267647932558653975684285001340289024) ((2787 . 5625) (* 4611686018427387904 -4611686018427387905) -> -21267647932558653971072598982912901120) ((2788 . 5625) (* 4611686018427387904 -4611686018427387904) -> -21267647932558653966460912964485513216) ((2789 . 5625) (* 4611686018427387904 -4611686018427387903) -> -21267647932558653961849226946058125312) ((2790 . 5625) (* 4611686018427387904 -4611686018427387902) -> -21267647932558653957237540927630737408) ((2791 . 5625) (* 4611686018427387905 -4611686018427387906) -> -21267647932558653980295971019767676930) ((2792 . 5625) (* 4611686018427387905 -4611686018427387905) -> -21267647932558653975684285001340289025) ((2793 . 5625) (* 4611686018427387905 -4611686018427387904) -> -21267647932558653971072598982912901120) ((2794 . 5625) (* 4611686018427387905 -4611686018427387903) -> -21267647932558653966460912964485513215) ((2795 . 5625) (* 4611686018427387905 -4611686018427387902) -> -21267647932558653961849226946058125310) ((2796 . 5625) (* 4611686018427387906 -4611686018427387906) -> -21267647932558653984907657038195064836) ((2797 . 5625) (* 4611686018427387906 -4611686018427387905) -> -21267647932558653980295971019767676930) ((2798 . 5625) (* 4611686018427387906 -4611686018427387904) -> -21267647932558653975684285001340289024) ((2799 . 5625) (* 4611686018427387906 -4611686018427387903) -> -21267647932558653971072598982912901118) ((2800 . 5625) (* 4611686018427387906 -4611686018427387902) -> -21267647932558653966460912964485513212) ((2801 . 5625) (* 4611686018427387902 4611686018427387902) -> 21267647932558653948014168890775961604) ((2802 . 5625) (* 4611686018427387902 4611686018427387903) -> 21267647932558653952625854909203349506) ((2803 . 5625) (* 4611686018427387902 4611686018427387904) -> 21267647932558653957237540927630737408) ((2804 . 5625) (* 4611686018427387902 4611686018427387905) -> 21267647932558653961849226946058125310) ((2805 . 5625) (* 4611686018427387902 4611686018427387906) -> 21267647932558653966460912964485513212) ((2806 . 5625) (* 4611686018427387903 4611686018427387902) -> 21267647932558653952625854909203349506) ((2807 . 5625) (* 4611686018427387903 4611686018427387903) -> 21267647932558653957237540927630737409) ((2808 . 5625) (* 4611686018427387903 4611686018427387904) -> 21267647932558653961849226946058125312) ((2809 . 5625) (* 4611686018427387903 4611686018427387905) -> 21267647932558653966460912964485513215) ((2810 . 5625) (* 4611686018427387903 4611686018427387906) -> 21267647932558653971072598982912901118) ((2811 . 5625) (* 4611686018427387904 4611686018427387902) -> 21267647932558653957237540927630737408) ((2812 . 5625) (* 4611686018427387904 4611686018427387903) -> 21267647932558653961849226946058125312) ((2813 . 5625) (* 4611686018427387904 4611686018427387904) -> 21267647932558653966460912964485513216) ((2814 . 5625) (* 4611686018427387904 4611686018427387905) -> 21267647932558653971072598982912901120) ((2815 . 5625) (* 4611686018427387904 4611686018427387906) -> 21267647932558653975684285001340289024) ((2816 . 5625) (* 4611686018427387905 4611686018427387902) -> 21267647932558653961849226946058125310) ((2817 . 5625) (* 4611686018427387905 4611686018427387903) -> 21267647932558653966460912964485513215) ((2818 . 5625) (* 4611686018427387905 4611686018427387904) -> 21267647932558653971072598982912901120) ((2819 . 5625) (* 4611686018427387905 4611686018427387905) -> 21267647932558653975684285001340289025) ((2820 . 5625) (* 4611686018427387905 4611686018427387906) -> 21267647932558653980295971019767676930) ((2821 . 5625) (* 4611686018427387906 4611686018427387902) -> 21267647932558653966460912964485513212) ((2822 . 5625) (* 4611686018427387906 4611686018427387903) -> 21267647932558653971072598982912901118) ((2823 . 5625) (* 4611686018427387906 4611686018427387904) -> 21267647932558653975684285001340289024) ((2824 . 5625) (* 4611686018427387906 4611686018427387905) -> 21267647932558653980295971019767676930) ((2825 . 5625) (* 4611686018427387906 4611686018427387906) -> 21267647932558653984907657038195064836) ((2826 . 5625) (* 4611686018427387902 -4611686018427387907) -> -21267647932558653971072598982912901114) ((2827 . 5625) (* 4611686018427387902 -4611686018427387906) -> -21267647932558653966460912964485513212) ((2828 . 5625) (* 4611686018427387902 -4611686018427387905) -> -21267647932558653961849226946058125310) ((2829 . 5625) (* 4611686018427387902 -4611686018427387904) -> -21267647932558653957237540927630737408) ((2830 . 5625) (* 4611686018427387902 -4611686018427387903) -> -21267647932558653952625854909203349506) ((2831 . 5625) (* 4611686018427387903 -4611686018427387907) -> -21267647932558653975684285001340289021) ((2832 . 5625) (* 4611686018427387903 -4611686018427387906) -> -21267647932558653971072598982912901118) ((2833 . 5625) (* 4611686018427387903 -4611686018427387905) -> -21267647932558653966460912964485513215) ((2834 . 5625) (* 4611686018427387903 -4611686018427387904) -> -21267647932558653961849226946058125312) ((2835 . 5625) (* 4611686018427387903 -4611686018427387903) -> -21267647932558653957237540927630737409) ((2836 . 5625) (* 4611686018427387904 -4611686018427387907) -> -21267647932558653980295971019767676928) ((2837 . 5625) (* 4611686018427387904 -4611686018427387906) -> -21267647932558653975684285001340289024) ((2838 . 5625) (* 4611686018427387904 -4611686018427387905) -> -21267647932558653971072598982912901120) ((2839 . 5625) (* 4611686018427387904 -4611686018427387904) -> -21267647932558653966460912964485513216) ((2840 . 5625) (* 4611686018427387904 -4611686018427387903) -> -21267647932558653961849226946058125312) ((2841 . 5625) (* 4611686018427387905 -4611686018427387907) -> -21267647932558653984907657038195064835) ((2842 . 5625) (* 4611686018427387905 -4611686018427387906) -> -21267647932558653980295971019767676930) ((2843 . 5625) (* 4611686018427387905 -4611686018427387905) -> -21267647932558653975684285001340289025) ((2844 . 5625) (* 4611686018427387905 -4611686018427387904) -> -21267647932558653971072598982912901120) ((2845 . 5625) (* 4611686018427387905 -4611686018427387903) -> -21267647932558653966460912964485513215) ((2846 . 5625) (* 4611686018427387906 -4611686018427387907) -> -21267647932558653989519343056622452742) ((2847 . 5625) (* 4611686018427387906 -4611686018427387906) -> -21267647932558653984907657038195064836) ((2848 . 5625) (* 4611686018427387906 -4611686018427387905) -> -21267647932558653980295971019767676930) ((2849 . 5625) (* 4611686018427387906 -4611686018427387904) -> -21267647932558653975684285001340289024) ((2850 . 5625) (* 4611686018427387906 -4611686018427387903) -> -21267647932558653971072598982912901118) ((2851 . 5625) (* 4611686018427387902 1103515243) -> 5089065817264601438530790186) ((2852 . 5625) (* 4611686018427387902 1103515244) -> 5089065821876287456958178088) ((2853 . 5625) (* 4611686018427387902 1103515245) -> 5089065826487973475385565990) ((2854 . 5625) (* 4611686018427387902 1103515246) -> 5089065831099659493812953892) ((2855 . 5625) (* 4611686018427387902 1103515247) -> 5089065835711345512240341794) ((2856 . 5625) (* 4611686018427387903 1103515243) -> 5089065817264601439634305429) ((2857 . 5625) (* 4611686018427387903 1103515244) -> 5089065821876287458061693332) ((2858 . 5625) (* 4611686018427387903 1103515245) -> 5089065826487973476489081235) ((2859 . 5625) (* 4611686018427387903 1103515246) -> 5089065831099659494916469138) ((2860 . 5625) (* 4611686018427387903 1103515247) -> 5089065835711345513343857041) ((2861 . 5625) (* 4611686018427387904 1103515243) -> 5089065817264601440737820672) ((2862 . 5625) (* 4611686018427387904 1103515244) -> 5089065821876287459165208576) ((2863 . 5625) (* 4611686018427387904 1103515245) -> 5089065826487973477592596480) ((2864 . 5625) (* 4611686018427387904 1103515246) -> 5089065831099659496019984384) ((2865 . 5625) (* 4611686018427387904 1103515247) -> 5089065835711345514447372288) ((2866 . 5625) (* 4611686018427387905 1103515243) -> 5089065817264601441841335915) ((2867 . 5625) (* 4611686018427387905 1103515244) -> 5089065821876287460268723820) ((2868 . 5625) (* 4611686018427387905 1103515245) -> 5089065826487973478696111725) ((2869 . 5625) (* 4611686018427387905 1103515246) -> 5089065831099659497123499630) ((2870 . 5625) (* 4611686018427387905 1103515247) -> 5089065835711345515550887535) ((2871 . 5625) (* 4611686018427387906 1103515243) -> 5089065817264601442944851158) ((2872 . 5625) (* 4611686018427387906 1103515244) -> 5089065821876287461372239064) ((2873 . 5625) (* 4611686018427387906 1103515245) -> 5089065826487973479799626970) ((2874 . 5625) (* 4611686018427387906 1103515246) -> 5089065831099659498227014876) ((2875 . 5625) (* 4611686018427387906 1103515247) -> 5089065835711345516654402782) ((2876 . 5625) (* 4611686018427387902 631629063) -> 2912874918669491754077795826) ((2877 . 5625) (* 4611686018427387902 631629064) -> 2912874923281177772505183728) ((2878 . 5625) (* 4611686018427387902 631629065) -> 2912874927892863790932571630) ((2879 . 5625) (* 4611686018427387902 631629066) -> 2912874932504549809359959532) ((2880 . 5625) (* 4611686018427387902 631629067) -> 2912874937116235827787347434) ((2881 . 5625) (* 4611686018427387903 631629063) -> 2912874918669491754709424889) ((2882 . 5625) (* 4611686018427387903 631629064) -> 2912874923281177773136812792) ((2883 . 5625) (* 4611686018427387903 631629065) -> 2912874927892863791564200695) ((2884 . 5625) (* 4611686018427387903 631629066) -> 2912874932504549809991588598) ((2885 . 5625) (* 4611686018427387903 631629067) -> 2912874937116235828418976501) ((2886 . 5625) (* 4611686018427387904 631629063) -> 2912874918669491755341053952) ((2887 . 5625) (* 4611686018427387904 631629064) -> 2912874923281177773768441856) ((2888 . 5625) (* 4611686018427387904 631629065) -> 2912874927892863792195829760) ((2889 . 5625) (* 4611686018427387904 631629066) -> 2912874932504549810623217664) ((2890 . 5625) (* 4611686018427387904 631629067) -> 2912874937116235829050605568) ((2891 . 5625) (* 4611686018427387905 631629063) -> 2912874918669491755972683015) ((2892 . 5625) (* 4611686018427387905 631629064) -> 2912874923281177774400070920) ((2893 . 5625) (* 4611686018427387905 631629065) -> 2912874927892863792827458825) ((2894 . 5625) (* 4611686018427387905 631629066) -> 2912874932504549811254846730) ((2895 . 5625) (* 4611686018427387905 631629067) -> 2912874937116235829682234635) ((2896 . 5625) (* 4611686018427387906 631629063) -> 2912874918669491756604312078) ((2897 . 5625) (* 4611686018427387906 631629064) -> 2912874923281177775031699984) ((2898 . 5625) (* 4611686018427387906 631629065) -> 2912874927892863793459087890) ((2899 . 5625) (* 4611686018427387906 631629066) -> 2912874932504549811886475796) ((2900 . 5625) (* 4611686018427387906 631629067) -> 2912874937116235830313863702) ((2901 . 5625) (* 4611686018427387902 9007199254740990) -> 41538374868278611786857535269502980) ((2902 . 5625) (* 4611686018427387902 9007199254740991) -> 41538374868278616398543553696890882) ((2903 . 5625) (* 4611686018427387902 9007199254740992) -> 41538374868278621010229572124278784) ((2904 . 5625) (* 4611686018427387902 9007199254740993) -> 41538374868278625621915590551666686) ((2905 . 5625) (* 4611686018427387902 9007199254740994) -> 41538374868278630233601608979054588) ((2906 . 5625) (* 4611686018427387903 9007199254740990) -> 41538374868278611795864734524243970) ((2907 . 5625) (* 4611686018427387903 9007199254740991) -> 41538374868278616407550752951631873) ((2908 . 5625) (* 4611686018427387903 9007199254740992) -> 41538374868278621019236771379019776) ((2909 . 5625) (* 4611686018427387903 9007199254740993) -> 41538374868278625630922789806407679) ((2910 . 5625) (* 4611686018427387903 9007199254740994) -> 41538374868278630242608808233795582) ((2911 . 5625) (* 4611686018427387904 9007199254740990) -> 41538374868278611804871933778984960) ((2912 . 5625) (* 4611686018427387904 9007199254740991) -> 41538374868278616416557952206372864) ((2913 . 5625) (* 4611686018427387904 9007199254740992) -> 41538374868278621028243970633760768) ((2914 . 5625) (* 4611686018427387904 9007199254740993) -> 41538374868278625639929989061148672) ((2915 . 5625) (* 4611686018427387904 9007199254740994) -> 41538374868278630251616007488536576) ((2916 . 5625) (* 4611686018427387905 9007199254740990) -> 41538374868278611813879133033725950) ((2917 . 5625) (* 4611686018427387905 9007199254740991) -> 41538374868278616425565151461113855) ((2918 . 5625) (* 4611686018427387905 9007199254740992) -> 41538374868278621037251169888501760) ((2919 . 5625) (* 4611686018427387905 9007199254740993) -> 41538374868278625648937188315889665) ((2920 . 5625) (* 4611686018427387905 9007199254740994) -> 41538374868278630260623206743277570) ((2921 . 5625) (* 4611686018427387906 9007199254740990) -> 41538374868278611822886332288466940) ((2922 . 5625) (* 4611686018427387906 9007199254740991) -> 41538374868278616434572350715854846) ((2923 . 5625) (* 4611686018427387906 9007199254740992) -> 41538374868278621046258369143242752) ((2924 . 5625) (* 4611686018427387906 9007199254740993) -> 41538374868278625657944387570630658) ((2925 . 5625) (* 4611686018427387906 9007199254740994) -> 41538374868278630269630405998018564) ((2926 . 5625) (* 4611686018427387902 -9007199254740994) -> -41538374868278630233601608979054588) ((2927 . 5625) (* 4611686018427387902 -9007199254740993) -> -41538374868278625621915590551666686) ((2928 . 5625) (* 4611686018427387902 -9007199254740992) -> -41538374868278621010229572124278784) ((2929 . 5625) (* 4611686018427387902 -9007199254740991) -> -41538374868278616398543553696890882) ((2930 . 5625) (* 4611686018427387902 -9007199254740990) -> -41538374868278611786857535269502980) ((2931 . 5625) (* 4611686018427387903 -9007199254740994) -> -41538374868278630242608808233795582) ((2932 . 5625) (* 4611686018427387903 -9007199254740993) -> -41538374868278625630922789806407679) ((2933 . 5625) (* 4611686018427387903 -9007199254740992) -> -41538374868278621019236771379019776) ((2934 . 5625) (* 4611686018427387903 -9007199254740991) -> -41538374868278616407550752951631873) ((2935 . 5625) (* 4611686018427387903 -9007199254740990) -> -41538374868278611795864734524243970) ((2936 . 5625) (* 4611686018427387904 -9007199254740994) -> -41538374868278630251616007488536576) ((2937 . 5625) (* 4611686018427387904 -9007199254740993) -> -41538374868278625639929989061148672) ((2938 . 5625) (* 4611686018427387904 -9007199254740992) -> -41538374868278621028243970633760768) ((2939 . 5625) (* 4611686018427387904 -9007199254740991) -> -41538374868278616416557952206372864) ((2940 . 5625) (* 4611686018427387904 -9007199254740990) -> -41538374868278611804871933778984960) ((2941 . 5625) (* 4611686018427387905 -9007199254740994) -> -41538374868278630260623206743277570) ((2942 . 5625) (* 4611686018427387905 -9007199254740993) -> -41538374868278625648937188315889665) ((2943 . 5625) (* 4611686018427387905 -9007199254740992) -> -41538374868278621037251169888501760) ((2944 . 5625) (* 4611686018427387905 -9007199254740991) -> -41538374868278616425565151461113855) ((2945 . 5625) (* 4611686018427387905 -9007199254740990) -> -41538374868278611813879133033725950) ((2946 . 5625) (* 4611686018427387906 -9007199254740994) -> -41538374868278630269630405998018564) ((2947 . 5625) (* 4611686018427387906 -9007199254740993) -> -41538374868278625657944387570630658) ((2948 . 5625) (* 4611686018427387906 -9007199254740992) -> -41538374868278621046258369143242752) ((2949 . 5625) (* 4611686018427387906 -9007199254740991) -> -41538374868278616434572350715854846) ((2950 . 5625) (* 4611686018427387906 -9007199254740990) -> -41538374868278611822886332288466940) ((2951 . 5625) (* 4611686018427387902 12343) -> 56922040525449248874386) ((2952 . 5625) (* 4611686018427387902 12344) -> 56926652211467676262288) ((2953 . 5625) (* 4611686018427387902 12345) -> 56931263897486103650190) ((2954 . 5625) (* 4611686018427387902 12346) -> 56935875583504531038092) ((2955 . 5625) (* 4611686018427387902 12347) -> 56940487269522958425994) ((2956 . 5625) (* 4611686018427387903 12343) -> 56922040525449248886729) ((2957 . 5625) (* 4611686018427387903 12344) -> 56926652211467676274632) ((2958 . 5625) (* 4611686018427387903 12345) -> 56931263897486103662535) ((2959 . 5625) (* 4611686018427387903 12346) -> 56935875583504531050438) ((2960 . 5625) (* 4611686018427387903 12347) -> 56940487269522958438341) ((2961 . 5625) (* 4611686018427387904 12343) -> 56922040525449248899072) ((2962 . 5625) (* 4611686018427387904 12344) -> 56926652211467676286976) ((2963 . 5625) (* 4611686018427387904 12345) -> 56931263897486103674880) ((2964 . 5625) (* 4611686018427387904 12346) -> 56935875583504531062784) ((2965 . 5625) (* 4611686018427387904 12347) -> 56940487269522958450688) ((2966 . 5625) (* 4611686018427387905 12343) -> 56922040525449248911415) ((2967 . 5625) (* 4611686018427387905 12344) -> 56926652211467676299320) ((2968 . 5625) (* 4611686018427387905 12345) -> 56931263897486103687225) ((2969 . 5625) (* 4611686018427387905 12346) -> 56935875583504531075130) ((2970 . 5625) (* 4611686018427387905 12347) -> 56940487269522958463035) ((2971 . 5625) (* 4611686018427387906 12343) -> 56922040525449248923758) ((2972 . 5625) (* 4611686018427387906 12344) -> 56926652211467676311664) ((2973 . 5625) (* 4611686018427387906 12345) -> 56931263897486103699570) ((2974 . 5625) (* 4611686018427387906 12346) -> 56935875583504531087476) ((2975 . 5625) (* 4611686018427387906 12347) -> 56940487269522958475382) ((2976 . 5625) (* 4611686018427387902 4294967294) -> 19807040619342712352941277188) ((2977 . 5625) (* 4611686018427387902 4294967295) -> 19807040623954398371368665090) ((2978 . 5625) (* 4611686018427387902 4294967296) -> 19807040628566084389796052992) ((2979 . 5625) (* 4611686018427387902 4294967297) -> 19807040633177770408223440894) ((2980 . 5625) (* 4611686018427387902 4294967298) -> 19807040637789456426650828796) ((2981 . 5625) (* 4611686018427387903 4294967294) -> 19807040619342712357236244482) ((2982 . 5625) (* 4611686018427387903 4294967295) -> 19807040623954398375663632385) ((2983 . 5625) (* 4611686018427387903 4294967296) -> 19807040628566084394091020288) ((2984 . 5625) (* 4611686018427387903 4294967297) -> 19807040633177770412518408191) ((2985 . 5625) (* 4611686018427387903 4294967298) -> 19807040637789456430945796094) ((2986 . 5625) (* 4611686018427387904 4294967294) -> 19807040619342712361531211776) ((2987 . 5625) (* 4611686018427387904 4294967295) -> 19807040623954398379958599680) ((2988 . 5625) (* 4611686018427387904 4294967296) -> 19807040628566084398385987584) ((2989 . 5625) (* 4611686018427387904 4294967297) -> 19807040633177770416813375488) ((2990 . 5625) (* 4611686018427387904 4294967298) -> 19807040637789456435240763392) ((2991 . 5625) (* 4611686018427387905 4294967294) -> 19807040619342712365826179070) ((2992 . 5625) (* 4611686018427387905 4294967295) -> 19807040623954398384253566975) ((2993 . 5625) (* 4611686018427387905 4294967296) -> 19807040628566084402680954880) ((2994 . 5625) (* 4611686018427387905 4294967297) -> 19807040633177770421108342785) ((2995 . 5625) (* 4611686018427387905 4294967298) -> 19807040637789456439535730690) ((2996 . 5625) (* 4611686018427387906 4294967294) -> 19807040619342712370121146364) ((2997 . 5625) (* 4611686018427387906 4294967295) -> 19807040623954398388548534270) ((2998 . 5625) (* 4611686018427387906 4294967296) -> 19807040628566084406975922176) ((2999 . 5625) (* 4611686018427387906 4294967297) -> 19807040633177770425403310082) ((3000 . 5625) (* 4611686018427387906 4294967298) -> 19807040637789456443830697988) ((3001 . 5625) (* -4611686018427387907 -2) -> 9223372036854775814) ((3002 . 5625) (* -4611686018427387907 -1) -> 4611686018427387907) ((3003 . 5625) (* -4611686018427387907 0) -> 0) ((3004 . 5625) (* -4611686018427387907 1) -> -4611686018427387907) ((3005 . 5625) (* -4611686018427387907 2) -> -9223372036854775814) ((3006 . 5625) (* -4611686018427387906 -2) -> 9223372036854775812) ((3007 . 5625) (* -4611686018427387906 -1) -> 4611686018427387906) ((3008 . 5625) (* -4611686018427387906 0) -> 0) ((3009 . 5625) (* -4611686018427387906 1) -> -4611686018427387906) ((3010 . 5625) (* -4611686018427387906 2) -> -9223372036854775812) ((3011 . 5625) (* -4611686018427387905 -2) -> 9223372036854775810) ((3012 . 5625) (* -4611686018427387905 -1) -> 4611686018427387905) ((3013 . 5625) (* -4611686018427387905 0) -> 0) ((3014 . 5625) (* -4611686018427387905 1) -> -4611686018427387905) ((3015 . 5625) (* -4611686018427387905 2) -> -9223372036854775810) ((3016 . 5625) (* -4611686018427387904 -2) -> 9223372036854775808) ((3017 . 5625) (* -4611686018427387904 -1) -> 4611686018427387904) ((3018 . 5625) (* -4611686018427387904 0) -> 0) ((3019 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((3020 . 5625) (* -4611686018427387904 2) -> -9223372036854775808) ((3021 . 5625) (* -4611686018427387903 -2) -> 9223372036854775806) ((3022 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((3023 . 5625) (* -4611686018427387903 0) -> 0) ((3024 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((3025 . 5625) (* -4611686018427387903 2) -> -9223372036854775806) ((3026 . 5625) (* -4611686018427387907 -1) -> 4611686018427387907) ((3027 . 5625) (* -4611686018427387907 0) -> 0) ((3028 . 5625) (* -4611686018427387907 1) -> -4611686018427387907) ((3029 . 5625) (* -4611686018427387907 2) -> -9223372036854775814) ((3030 . 5625) (* -4611686018427387907 3) -> -13835058055282163721) ((3031 . 5625) (* -4611686018427387906 -1) -> 4611686018427387906) ((3032 . 5625) (* -4611686018427387906 0) -> 0) ((3033 . 5625) (* -4611686018427387906 1) -> -4611686018427387906) ((3034 . 5625) (* -4611686018427387906 2) -> -9223372036854775812) ((3035 . 5625) (* -4611686018427387906 3) -> -13835058055282163718) ((3036 . 5625) (* -4611686018427387905 -1) -> 4611686018427387905) ((3037 . 5625) (* -4611686018427387905 0) -> 0) ((3038 . 5625) (* -4611686018427387905 1) -> -4611686018427387905) ((3039 . 5625) (* -4611686018427387905 2) -> -9223372036854775810) ((3040 . 5625) (* -4611686018427387905 3) -> -13835058055282163715) ((3041 . 5625) (* -4611686018427387904 -1) -> 4611686018427387904) ((3042 . 5625) (* -4611686018427387904 0) -> 0) ((3043 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((3044 . 5625) (* -4611686018427387904 2) -> -9223372036854775808) ((3045 . 5625) (* -4611686018427387904 3) -> -13835058055282163712) ((3046 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((3047 . 5625) (* -4611686018427387903 0) -> 0) ((3048 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((3049 . 5625) (* -4611686018427387903 2) -> -9223372036854775806) ((3050 . 5625) (* -4611686018427387903 3) -> -13835058055282163709) ((3051 . 5625) (* -4611686018427387907 -3) -> 13835058055282163721) ((3052 . 5625) (* -4611686018427387907 -2) -> 9223372036854775814) ((3053 . 5625) (* -4611686018427387907 -1) -> 4611686018427387907) ((3054 . 5625) (* -4611686018427387907 0) -> 0) ((3055 . 5625) (* -4611686018427387907 1) -> -4611686018427387907) ((3056 . 5625) (* -4611686018427387906 -3) -> 13835058055282163718) ((3057 . 5625) (* -4611686018427387906 -2) -> 9223372036854775812) ((3058 . 5625) (* -4611686018427387906 -1) -> 4611686018427387906) ((3059 . 5625) (* -4611686018427387906 0) -> 0) ((3060 . 5625) (* -4611686018427387906 1) -> -4611686018427387906) ((3061 . 5625) (* -4611686018427387905 -3) -> 13835058055282163715) ((3062 . 5625) (* -4611686018427387905 -2) -> 9223372036854775810) ((3063 . 5625) (* -4611686018427387905 -1) -> 4611686018427387905) ((3064 . 5625) (* -4611686018427387905 0) -> 0) ((3065 . 5625) (* -4611686018427387905 1) -> -4611686018427387905) ((3066 . 5625) (* -4611686018427387904 -3) -> 13835058055282163712) ((3067 . 5625) (* -4611686018427387904 -2) -> 9223372036854775808) ((3068 . 5625) (* -4611686018427387904 -1) -> 4611686018427387904) ((3069 . 5625) (* -4611686018427387904 0) -> 0) ((3070 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((3071 . 5625) (* -4611686018427387903 -3) -> 13835058055282163709) ((3072 . 5625) (* -4611686018427387903 -2) -> 9223372036854775806) ((3073 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((3074 . 5625) (* -4611686018427387903 0) -> 0) ((3075 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((3076 . 5625) (* -4611686018427387907 0) -> 0) ((3077 . 5625) (* -4611686018427387907 1) -> -4611686018427387907) ((3078 . 5625) (* -4611686018427387907 2) -> -9223372036854775814) ((3079 . 5625) (* -4611686018427387907 3) -> -13835058055282163721) ((3080 . 5625) (* -4611686018427387907 4) -> -18446744073709551628) ((3081 . 5625) (* -4611686018427387906 0) -> 0) ((3082 . 5625) (* -4611686018427387906 1) -> -4611686018427387906) ((3083 . 5625) (* -4611686018427387906 2) -> -9223372036854775812) ((3084 . 5625) (* -4611686018427387906 3) -> -13835058055282163718) ((3085 . 5625) (* -4611686018427387906 4) -> -18446744073709551624) ((3086 . 5625) (* -4611686018427387905 0) -> 0) ((3087 . 5625) (* -4611686018427387905 1) -> -4611686018427387905) ((3088 . 5625) (* -4611686018427387905 2) -> -9223372036854775810) ((3089 . 5625) (* -4611686018427387905 3) -> -13835058055282163715) ((3090 . 5625) (* -4611686018427387905 4) -> -18446744073709551620) ((3091 . 5625) (* -4611686018427387904 0) -> 0) ((3092 . 5625) (* -4611686018427387904 1) -> -4611686018427387904) ((3093 . 5625) (* -4611686018427387904 2) -> -9223372036854775808) ((3094 . 5625) (* -4611686018427387904 3) -> -13835058055282163712) ((3095 . 5625) (* -4611686018427387904 4) -> -18446744073709551616) ((3096 . 5625) (* -4611686018427387903 0) -> 0) ((3097 . 5625) (* -4611686018427387903 1) -> -4611686018427387903) ((3098 . 5625) (* -4611686018427387903 2) -> -9223372036854775806) ((3099 . 5625) (* -4611686018427387903 3) -> -13835058055282163709) ((3100 . 5625) (* -4611686018427387903 4) -> -18446744073709551612) ((3101 . 5625) (* -4611686018427387907 -4) -> 18446744073709551628) ((3102 . 5625) (* -4611686018427387907 -3) -> 13835058055282163721) ((3103 . 5625) (* -4611686018427387907 -2) -> 9223372036854775814) ((3104 . 5625) (* -4611686018427387907 -1) -> 4611686018427387907) ((3105 . 5625) (* -4611686018427387907 0) -> 0) ((3106 . 5625) (* -4611686018427387906 -4) -> 18446744073709551624) ((3107 . 5625) (* -4611686018427387906 -3) -> 13835058055282163718) ((3108 . 5625) (* -4611686018427387906 -2) -> 9223372036854775812) ((3109 . 5625) (* -4611686018427387906 -1) -> 4611686018427387906) ((3110 . 5625) (* -4611686018427387906 0) -> 0) ((3111 . 5625) (* -4611686018427387905 -4) -> 18446744073709551620) ((3112 . 5625) (* -4611686018427387905 -3) -> 13835058055282163715) ((3113 . 5625) (* -4611686018427387905 -2) -> 9223372036854775810) ((3114 . 5625) (* -4611686018427387905 -1) -> 4611686018427387905) ((3115 . 5625) (* -4611686018427387905 0) -> 0) ((3116 . 5625) (* -4611686018427387904 -4) -> 18446744073709551616) ((3117 . 5625) (* -4611686018427387904 -3) -> 13835058055282163712) ((3118 . 5625) (* -4611686018427387904 -2) -> 9223372036854775808) ((3119 . 5625) (* -4611686018427387904 -1) -> 4611686018427387904) ((3120 . 5625) (* -4611686018427387904 0) -> 0) ((3121 . 5625) (* -4611686018427387903 -4) -> 18446744073709551612) ((3122 . 5625) (* -4611686018427387903 -3) -> 13835058055282163709) ((3123 . 5625) (* -4611686018427387903 -2) -> 9223372036854775806) ((3124 . 5625) (* -4611686018427387903 -1) -> 4611686018427387903) ((3125 . 5625) (* -4611686018427387903 0) -> 0) ((3126 . 5625) (* -4611686018427387907 4611686018427387901) -> -21267647932558653966460912964485513207) ((3127 . 5625) (* -4611686018427387907 4611686018427387902) -> -21267647932558653971072598982912901114) ((3128 . 5625) (* -4611686018427387907 4611686018427387903) -> -21267647932558653975684285001340289021) ((3129 . 5625) (* -4611686018427387907 4611686018427387904) -> -21267647932558653980295971019767676928) ((3130 . 5625) (* -4611686018427387907 4611686018427387905) -> -21267647932558653984907657038195064835) ((3131 . 5625) (* -4611686018427387906 4611686018427387901) -> -21267647932558653961849226946058125306) ((3132 . 5625) (* -4611686018427387906 4611686018427387902) -> -21267647932558653966460912964485513212) ((3133 . 5625) (* -4611686018427387906 4611686018427387903) -> -21267647932558653971072598982912901118) ((3134 . 5625) (* -4611686018427387906 4611686018427387904) -> -21267647932558653975684285001340289024) ((3135 . 5625) (* -4611686018427387906 4611686018427387905) -> -21267647932558653980295971019767676930) ((3136 . 5625) (* -4611686018427387905 4611686018427387901) -> -21267647932558653957237540927630737405) ((3137 . 5625) (* -4611686018427387905 4611686018427387902) -> -21267647932558653961849226946058125310) ((3138 . 5625) (* -4611686018427387905 4611686018427387903) -> -21267647932558653966460912964485513215) ((3139 . 5625) (* -4611686018427387905 4611686018427387904) -> -21267647932558653971072598982912901120) ((3140 . 5625) (* -4611686018427387905 4611686018427387905) -> -21267647932558653975684285001340289025) ((3141 . 5625) (* -4611686018427387904 4611686018427387901) -> -21267647932558653952625854909203349504) ((3142 . 5625) (* -4611686018427387904 4611686018427387902) -> -21267647932558653957237540927630737408) ((3143 . 5625) (* -4611686018427387904 4611686018427387903) -> -21267647932558653961849226946058125312) ((3144 . 5625) (* -4611686018427387904 4611686018427387904) -> -21267647932558653966460912964485513216) ((3145 . 5625) (* -4611686018427387904 4611686018427387905) -> -21267647932558653971072598982912901120) ((3146 . 5625) (* -4611686018427387903 4611686018427387901) -> -21267647932558653948014168890775961603) ((3147 . 5625) (* -4611686018427387903 4611686018427387902) -> -21267647932558653952625854909203349506) ((3148 . 5625) (* -4611686018427387903 4611686018427387903) -> -21267647932558653957237540927630737409) ((3149 . 5625) (* -4611686018427387903 4611686018427387904) -> -21267647932558653961849226946058125312) ((3150 . 5625) (* -4611686018427387903 4611686018427387905) -> -21267647932558653966460912964485513215) ((3151 . 5625) (* -4611686018427387907 -4611686018427387906) -> 21267647932558653989519343056622452742) ((3152 . 5625) (* -4611686018427387907 -4611686018427387905) -> 21267647932558653984907657038195064835) ((3153 . 5625) (* -4611686018427387907 -4611686018427387904) -> 21267647932558653980295971019767676928) ((3154 . 5625) (* -4611686018427387907 -4611686018427387903) -> 21267647932558653975684285001340289021) ((3155 . 5625) (* -4611686018427387907 -4611686018427387902) -> 21267647932558653971072598982912901114) ((3156 . 5625) (* -4611686018427387906 -4611686018427387906) -> 21267647932558653984907657038195064836) ((3157 . 5625) (* -4611686018427387906 -4611686018427387905) -> 21267647932558653980295971019767676930) ((3158 . 5625) (* -4611686018427387906 -4611686018427387904) -> 21267647932558653975684285001340289024) ((3159 . 5625) (* -4611686018427387906 -4611686018427387903) -> 21267647932558653971072598982912901118) ((3160 . 5625) (* -4611686018427387906 -4611686018427387902) -> 21267647932558653966460912964485513212) ((3161 . 5625) (* -4611686018427387905 -4611686018427387906) -> 21267647932558653980295971019767676930) ((3162 . 5625) (* -4611686018427387905 -4611686018427387905) -> 21267647932558653975684285001340289025) ((3163 . 5625) (* -4611686018427387905 -4611686018427387904) -> 21267647932558653971072598982912901120) ((3164 . 5625) (* -4611686018427387905 -4611686018427387903) -> 21267647932558653966460912964485513215) ((3165 . 5625) (* -4611686018427387905 -4611686018427387902) -> 21267647932558653961849226946058125310) ((3166 . 5625) (* -4611686018427387904 -4611686018427387906) -> 21267647932558653975684285001340289024) ((3167 . 5625) (* -4611686018427387904 -4611686018427387905) -> 21267647932558653971072598982912901120) ((3168 . 5625) (* -4611686018427387904 -4611686018427387904) -> 21267647932558653966460912964485513216) ((3169 . 5625) (* -4611686018427387904 -4611686018427387903) -> 21267647932558653961849226946058125312) ((3170 . 5625) (* -4611686018427387904 -4611686018427387902) -> 21267647932558653957237540927630737408) ((3171 . 5625) (* -4611686018427387903 -4611686018427387906) -> 21267647932558653971072598982912901118) ((3172 . 5625) (* -4611686018427387903 -4611686018427387905) -> 21267647932558653966460912964485513215) ((3173 . 5625) (* -4611686018427387903 -4611686018427387904) -> 21267647932558653961849226946058125312) ((3174 . 5625) (* -4611686018427387903 -4611686018427387903) -> 21267647932558653957237540927630737409) ((3175 . 5625) (* -4611686018427387903 -4611686018427387902) -> 21267647932558653952625854909203349506) ((3176 . 5625) (* -4611686018427387907 4611686018427387902) -> -21267647932558653971072598982912901114) ((3177 . 5625) (* -4611686018427387907 4611686018427387903) -> -21267647932558653975684285001340289021) ((3178 . 5625) (* -4611686018427387907 4611686018427387904) -> -21267647932558653980295971019767676928) ((3179 . 5625) (* -4611686018427387907 4611686018427387905) -> -21267647932558653984907657038195064835) ((3180 . 5625) (* -4611686018427387907 4611686018427387906) -> -21267647932558653989519343056622452742) ((3181 . 5625) (* -4611686018427387906 4611686018427387902) -> -21267647932558653966460912964485513212) ((3182 . 5625) (* -4611686018427387906 4611686018427387903) -> -21267647932558653971072598982912901118) ((3183 . 5625) (* -4611686018427387906 4611686018427387904) -> -21267647932558653975684285001340289024) ((3184 . 5625) (* -4611686018427387906 4611686018427387905) -> -21267647932558653980295971019767676930) ((3185 . 5625) (* -4611686018427387906 4611686018427387906) -> -21267647932558653984907657038195064836) ((3186 . 5625) (* -4611686018427387905 4611686018427387902) -> -21267647932558653961849226946058125310) ((3187 . 5625) (* -4611686018427387905 4611686018427387903) -> -21267647932558653966460912964485513215) ((3188 . 5625) (* -4611686018427387905 4611686018427387904) -> -21267647932558653971072598982912901120) ((3189 . 5625) (* -4611686018427387905 4611686018427387905) -> -21267647932558653975684285001340289025) ((3190 . 5625) (* -4611686018427387905 4611686018427387906) -> -21267647932558653980295971019767676930) ((3191 . 5625) (* -4611686018427387904 4611686018427387902) -> -21267647932558653957237540927630737408) ((3192 . 5625) (* -4611686018427387904 4611686018427387903) -> -21267647932558653961849226946058125312) ((3193 . 5625) (* -4611686018427387904 4611686018427387904) -> -21267647932558653966460912964485513216) ((3194 . 5625) (* -4611686018427387904 4611686018427387905) -> -21267647932558653971072598982912901120) ((3195 . 5625) (* -4611686018427387904 4611686018427387906) -> -21267647932558653975684285001340289024) ((3196 . 5625) (* -4611686018427387903 4611686018427387902) -> -21267647932558653952625854909203349506) ((3197 . 5625) (* -4611686018427387903 4611686018427387903) -> -21267647932558653957237540927630737409) ((3198 . 5625) (* -4611686018427387903 4611686018427387904) -> -21267647932558653961849226946058125312) ((3199 . 5625) (* -4611686018427387903 4611686018427387905) -> -21267647932558653966460912964485513215) ((3200 . 5625) (* -4611686018427387903 4611686018427387906) -> -21267647932558653971072598982912901118) ((3201 . 5625) (* -4611686018427387907 -4611686018427387907) -> 21267647932558653994131029075049840649) ((3202 . 5625) (* -4611686018427387907 -4611686018427387906) -> 21267647932558653989519343056622452742) ((3203 . 5625) (* -4611686018427387907 -4611686018427387905) -> 21267647932558653984907657038195064835) ((3204 . 5625) (* -4611686018427387907 -4611686018427387904) -> 21267647932558653980295971019767676928) ((3205 . 5625) (* -4611686018427387907 -4611686018427387903) -> 21267647932558653975684285001340289021) ((3206 . 5625) (* -4611686018427387906 -4611686018427387907) -> 21267647932558653989519343056622452742) ((3207 . 5625) (* -4611686018427387906 -4611686018427387906) -> 21267647932558653984907657038195064836) ((3208 . 5625) (* -4611686018427387906 -4611686018427387905) -> 21267647932558653980295971019767676930) ((3209 . 5625) (* -4611686018427387906 -4611686018427387904) -> 21267647932558653975684285001340289024) ((3210 . 5625) (* -4611686018427387906 -4611686018427387903) -> 21267647932558653971072598982912901118) ((3211 . 5625) (* -4611686018427387905 -4611686018427387907) -> 21267647932558653984907657038195064835) ((3212 . 5625) (* -4611686018427387905 -4611686018427387906) -> 21267647932558653980295971019767676930) ((3213 . 5625) (* -4611686018427387905 -4611686018427387905) -> 21267647932558653975684285001340289025) ((3214 . 5625) (* -4611686018427387905 -4611686018427387904) -> 21267647932558653971072598982912901120) ((3215 . 5625) (* -4611686018427387905 -4611686018427387903) -> 21267647932558653966460912964485513215) ((3216 . 5625) (* -4611686018427387904 -4611686018427387907) -> 21267647932558653980295971019767676928) ((3217 . 5625) (* -4611686018427387904 -4611686018427387906) -> 21267647932558653975684285001340289024) ((3218 . 5625) (* -4611686018427387904 -4611686018427387905) -> 21267647932558653971072598982912901120) ((3219 . 5625) (* -4611686018427387904 -4611686018427387904) -> 21267647932558653966460912964485513216) ((3220 . 5625) (* -4611686018427387904 -4611686018427387903) -> 21267647932558653961849226946058125312) ((3221 . 5625) (* -4611686018427387903 -4611686018427387907) -> 21267647932558653975684285001340289021) ((3222 . 5625) (* -4611686018427387903 -4611686018427387906) -> 21267647932558653971072598982912901118) ((3223 . 5625) (* -4611686018427387903 -4611686018427387905) -> 21267647932558653966460912964485513215) ((3224 . 5625) (* -4611686018427387903 -4611686018427387904) -> 21267647932558653961849226946058125312) ((3225 . 5625) (* -4611686018427387903 -4611686018427387903) -> 21267647932558653957237540927630737409) ((3226 . 5625) (* -4611686018427387907 1103515243) -> -5089065817264601444048366401) ((3227 . 5625) (* -4611686018427387907 1103515244) -> -5089065821876287462475754308) ((3228 . 5625) (* -4611686018427387907 1103515245) -> -5089065826487973480903142215) ((3229 . 5625) (* -4611686018427387907 1103515246) -> -5089065831099659499330530122) ((3230 . 5625) (* -4611686018427387907 1103515247) -> -5089065835711345517757918029) ((3231 . 5625) (* -4611686018427387906 1103515243) -> -5089065817264601442944851158) ((3232 . 5625) (* -4611686018427387906 1103515244) -> -5089065821876287461372239064) ((3233 . 5625) (* -4611686018427387906 1103515245) -> -5089065826487973479799626970) ((3234 . 5625) (* -4611686018427387906 1103515246) -> -5089065831099659498227014876) ((3235 . 5625) (* -4611686018427387906 1103515247) -> -5089065835711345516654402782) ((3236 . 5625) (* -4611686018427387905 1103515243) -> -5089065817264601441841335915) ((3237 . 5625) (* -4611686018427387905 1103515244) -> -5089065821876287460268723820) ((3238 . 5625) (* -4611686018427387905 1103515245) -> -5089065826487973478696111725) ((3239 . 5625) (* -4611686018427387905 1103515246) -> -5089065831099659497123499630) ((3240 . 5625) (* -4611686018427387905 1103515247) -> -5089065835711345515550887535) ((3241 . 5625) (* -4611686018427387904 1103515243) -> -5089065817264601440737820672) ((3242 . 5625) (* -4611686018427387904 1103515244) -> -5089065821876287459165208576) ((3243 . 5625) (* -4611686018427387904 1103515245) -> -5089065826487973477592596480) ((3244 . 5625) (* -4611686018427387904 1103515246) -> -5089065831099659496019984384) ((3245 . 5625) (* -4611686018427387904 1103515247) -> -5089065835711345514447372288) ((3246 . 5625) (* -4611686018427387903 1103515243) -> -5089065817264601439634305429) ((3247 . 5625) (* -4611686018427387903 1103515244) -> -5089065821876287458061693332) ((3248 . 5625) (* -4611686018427387903 1103515245) -> -5089065826487973476489081235) ((3249 . 5625) (* -4611686018427387903 1103515246) -> -5089065831099659494916469138) ((3250 . 5625) (* -4611686018427387903 1103515247) -> -5089065835711345513343857041) ((3251 . 5625) (* -4611686018427387907 631629063) -> -2912874918669491757235941141) ((3252 . 5625) (* -4611686018427387907 631629064) -> -2912874923281177775663329048) ((3253 . 5625) (* -4611686018427387907 631629065) -> -2912874927892863794090716955) ((3254 . 5625) (* -4611686018427387907 631629066) -> -2912874932504549812518104862) ((3255 . 5625) (* -4611686018427387907 631629067) -> -2912874937116235830945492769) ((3256 . 5625) (* -4611686018427387906 631629063) -> -2912874918669491756604312078) ((3257 . 5625) (* -4611686018427387906 631629064) -> -2912874923281177775031699984) ((3258 . 5625) (* -4611686018427387906 631629065) -> -2912874927892863793459087890) ((3259 . 5625) (* -4611686018427387906 631629066) -> -2912874932504549811886475796) ((3260 . 5625) (* -4611686018427387906 631629067) -> -2912874937116235830313863702) ((3261 . 5625) (* -4611686018427387905 631629063) -> -2912874918669491755972683015) ((3262 . 5625) (* -4611686018427387905 631629064) -> -2912874923281177774400070920) ((3263 . 5625) (* -4611686018427387905 631629065) -> -2912874927892863792827458825) ((3264 . 5625) (* -4611686018427387905 631629066) -> -2912874932504549811254846730) ((3265 . 5625) (* -4611686018427387905 631629067) -> -2912874937116235829682234635) ((3266 . 5625) (* -4611686018427387904 631629063) -> -2912874918669491755341053952) ((3267 . 5625) (* -4611686018427387904 631629064) -> -2912874923281177773768441856) ((3268 . 5625) (* -4611686018427387904 631629065) -> -2912874927892863792195829760) ((3269 . 5625) (* -4611686018427387904 631629066) -> -2912874932504549810623217664) ((3270 . 5625) (* -4611686018427387904 631629067) -> -2912874937116235829050605568) ((3271 . 5625) (* -4611686018427387903 631629063) -> -2912874918669491754709424889) ((3272 . 5625) (* -4611686018427387903 631629064) -> -2912874923281177773136812792) ((3273 . 5625) (* -4611686018427387903 631629065) -> -2912874927892863791564200695) ((3274 . 5625) (* -4611686018427387903 631629066) -> -2912874932504549809991588598) ((3275 . 5625) (* -4611686018427387903 631629067) -> -2912874937116235828418976501) ((3276 . 5625) (* -4611686018427387907 9007199254740990) -> -41538374868278611831893531543207930) ((3277 . 5625) (* -4611686018427387907 9007199254740991) -> -41538374868278616443579549970595837) ((3278 . 5625) (* -4611686018427387907 9007199254740992) -> -41538374868278621055265568397983744) ((3279 . 5625) (* -4611686018427387907 9007199254740993) -> -41538374868278625666951586825371651) ((3280 . 5625) (* -4611686018427387907 9007199254740994) -> -41538374868278630278637605252759558) ((3281 . 5625) (* -4611686018427387906 9007199254740990) -> -41538374868278611822886332288466940) ((3282 . 5625) (* -4611686018427387906 9007199254740991) -> -41538374868278616434572350715854846) ((3283 . 5625) (* -4611686018427387906 9007199254740992) -> -41538374868278621046258369143242752) ((3284 . 5625) (* -4611686018427387906 9007199254740993) -> -41538374868278625657944387570630658) ((3285 . 5625) (* -4611686018427387906 9007199254740994) -> -41538374868278630269630405998018564) ((3286 . 5625) (* -4611686018427387905 9007199254740990) -> -41538374868278611813879133033725950) ((3287 . 5625) (* -4611686018427387905 9007199254740991) -> -41538374868278616425565151461113855) ((3288 . 5625) (* -4611686018427387905 9007199254740992) -> -41538374868278621037251169888501760) ((3289 . 5625) (* -4611686018427387905 9007199254740993) -> -41538374868278625648937188315889665) ((3290 . 5625) (* -4611686018427387905 9007199254740994) -> -41538374868278630260623206743277570) ((3291 . 5625) (* -4611686018427387904 9007199254740990) -> -41538374868278611804871933778984960) ((3292 . 5625) (* -4611686018427387904 9007199254740991) -> -41538374868278616416557952206372864) ((3293 . 5625) (* -4611686018427387904 9007199254740992) -> -41538374868278621028243970633760768) ((3294 . 5625) (* -4611686018427387904 9007199254740993) -> -41538374868278625639929989061148672) ((3295 . 5625) (* -4611686018427387904 9007199254740994) -> -41538374868278630251616007488536576) ((3296 . 5625) (* -4611686018427387903 9007199254740990) -> -41538374868278611795864734524243970) ((3297 . 5625) (* -4611686018427387903 9007199254740991) -> -41538374868278616407550752951631873) ((3298 . 5625) (* -4611686018427387903 9007199254740992) -> -41538374868278621019236771379019776) ((3299 . 5625) (* -4611686018427387903 9007199254740993) -> -41538374868278625630922789806407679) ((3300 . 5625) (* -4611686018427387903 9007199254740994) -> -41538374868278630242608808233795582) ((3301 . 5625) (* -4611686018427387907 -9007199254740994) -> 41538374868278630278637605252759558) ((3302 . 5625) (* -4611686018427387907 -9007199254740993) -> 41538374868278625666951586825371651) ((3303 . 5625) (* -4611686018427387907 -9007199254740992) -> 41538374868278621055265568397983744) ((3304 . 5625) (* -4611686018427387907 -9007199254740991) -> 41538374868278616443579549970595837) ((3305 . 5625) (* -4611686018427387907 -9007199254740990) -> 41538374868278611831893531543207930) ((3306 . 5625) (* -4611686018427387906 -9007199254740994) -> 41538374868278630269630405998018564) ((3307 . 5625) (* -4611686018427387906 -9007199254740993) -> 41538374868278625657944387570630658) ((3308 . 5625) (* -4611686018427387906 -9007199254740992) -> 41538374868278621046258369143242752) ((3309 . 5625) (* -4611686018427387906 -9007199254740991) -> 41538374868278616434572350715854846) ((3310 . 5625) (* -4611686018427387906 -9007199254740990) -> 41538374868278611822886332288466940) ((3311 . 5625) (* -4611686018427387905 -9007199254740994) -> 41538374868278630260623206743277570) ((3312 . 5625) (* -4611686018427387905 -9007199254740993) -> 41538374868278625648937188315889665) ((3313 . 5625) (* -4611686018427387905 -9007199254740992) -> 41538374868278621037251169888501760) ((3314 . 5625) (* -4611686018427387905 -9007199254740991) -> 41538374868278616425565151461113855) ((3315 . 5625) (* -4611686018427387905 -9007199254740990) -> 41538374868278611813879133033725950) ((3316 . 5625) (* -4611686018427387904 -9007199254740994) -> 41538374868278630251616007488536576) ((3317 . 5625) (* -4611686018427387904 -9007199254740993) -> 41538374868278625639929989061148672) ((3318 . 5625) (* -4611686018427387904 -9007199254740992) -> 41538374868278621028243970633760768) ((3319 . 5625) (* -4611686018427387904 -9007199254740991) -> 41538374868278616416557952206372864) ((3320 . 5625) (* -4611686018427387904 -9007199254740990) -> 41538374868278611804871933778984960) ((3321 . 5625) (* -4611686018427387903 -9007199254740994) -> 41538374868278630242608808233795582) ((3322 . 5625) (* -4611686018427387903 -9007199254740993) -> 41538374868278625630922789806407679) ((3323 . 5625) (* -4611686018427387903 -9007199254740992) -> 41538374868278621019236771379019776) ((3324 . 5625) (* -4611686018427387903 -9007199254740991) -> 41538374868278616407550752951631873) ((3325 . 5625) (* -4611686018427387903 -9007199254740990) -> 41538374868278611795864734524243970) ((3326 . 5625) (* -4611686018427387907 12343) -> -56922040525449248936101) ((3327 . 5625) (* -4611686018427387907 12344) -> -56926652211467676324008) ((3328 . 5625) (* -4611686018427387907 12345) -> -56931263897486103711915) ((3329 . 5625) (* -4611686018427387907 12346) -> -56935875583504531099822) ((3330 . 5625) (* -4611686018427387907 12347) -> -56940487269522958487729) ((3331 . 5625) (* -4611686018427387906 12343) -> -56922040525449248923758) ((3332 . 5625) (* -4611686018427387906 12344) -> -56926652211467676311664) ((3333 . 5625) (* -4611686018427387906 12345) -> -56931263897486103699570) ((3334 . 5625) (* -4611686018427387906 12346) -> -56935875583504531087476) ((3335 . 5625) (* -4611686018427387906 12347) -> -56940487269522958475382) ((3336 . 5625) (* -4611686018427387905 12343) -> -56922040525449248911415) ((3337 . 5625) (* -4611686018427387905 12344) -> -56926652211467676299320) ((3338 . 5625) (* -4611686018427387905 12345) -> -56931263897486103687225) ((3339 . 5625) (* -4611686018427387905 12346) -> -56935875583504531075130) ((3340 . 5625) (* -4611686018427387905 12347) -> -56940487269522958463035) ((3341 . 5625) (* -4611686018427387904 12343) -> -56922040525449248899072) ((3342 . 5625) (* -4611686018427387904 12344) -> -56926652211467676286976) ((3343 . 5625) (* -4611686018427387904 12345) -> -56931263897486103674880) ((3344 . 5625) (* -4611686018427387904 12346) -> -56935875583504531062784) ((3345 . 5625) (* -4611686018427387904 12347) -> -56940487269522958450688) ((3346 . 5625) (* -4611686018427387903 12343) -> -56922040525449248886729) ((3347 . 5625) (* -4611686018427387903 12344) -> -56926652211467676274632) ((3348 . 5625) (* -4611686018427387903 12345) -> -56931263897486103662535) ((3349 . 5625) (* -4611686018427387903 12346) -> -56935875583504531050438) ((3350 . 5625) (* -4611686018427387903 12347) -> -56940487269522958438341) ((3351 . 5625) (* -4611686018427387907 4294967294) -> -19807040619342712374416113658) ((3352 . 5625) (* -4611686018427387907 4294967295) -> -19807040623954398392843501565) ((3353 . 5625) (* -4611686018427387907 4294967296) -> -19807040628566084411270889472) ((3354 . 5625) (* -4611686018427387907 4294967297) -> -19807040633177770429698277379) ((3355 . 5625) (* -4611686018427387907 4294967298) -> -19807040637789456448125665286) ((3356 . 5625) (* -4611686018427387906 4294967294) -> -19807040619342712370121146364) ((3357 . 5625) (* -4611686018427387906 4294967295) -> -19807040623954398388548534270) ((3358 . 5625) (* -4611686018427387906 4294967296) -> -19807040628566084406975922176) ((3359 . 5625) (* -4611686018427387906 4294967297) -> -19807040633177770425403310082) ((3360 . 5625) (* -4611686018427387906 4294967298) -> -19807040637789456443830697988) ((3361 . 5625) (* -4611686018427387905 4294967294) -> -19807040619342712365826179070) ((3362 . 5625) (* -4611686018427387905 4294967295) -> -19807040623954398384253566975) ((3363 . 5625) (* -4611686018427387905 4294967296) -> -19807040628566084402680954880) ((3364 . 5625) (* -4611686018427387905 4294967297) -> -19807040633177770421108342785) ((3365 . 5625) (* -4611686018427387905 4294967298) -> -19807040637789456439535730690) ((3366 . 5625) (* -4611686018427387904 4294967294) -> -19807040619342712361531211776) ((3367 . 5625) (* -4611686018427387904 4294967295) -> -19807040623954398379958599680) ((3368 . 5625) (* -4611686018427387904 4294967296) -> -19807040628566084398385987584) ((3369 . 5625) (* -4611686018427387904 4294967297) -> -19807040633177770416813375488) ((3370 . 5625) (* -4611686018427387904 4294967298) -> -19807040637789456435240763392) ((3371 . 5625) (* -4611686018427387903 4294967294) -> -19807040619342712357236244482) ((3372 . 5625) (* -4611686018427387903 4294967295) -> -19807040623954398375663632385) ((3373 . 5625) (* -4611686018427387903 4294967296) -> -19807040628566084394091020288) ((3374 . 5625) (* -4611686018427387903 4294967297) -> -19807040633177770412518408191) ((3375 . 5625) (* -4611686018427387903 4294967298) -> -19807040637789456430945796094) ((3376 . 5625) (* 1103515243 -2) -> -2207030486) ((3377 . 5625) (* 1103515243 -1) -> -1103515243) ((3378 . 5625) (* 1103515243 0) -> 0) ((3379 . 5625) (* 1103515243 1) -> 1103515243) ((3380 . 5625) (* 1103515243 2) -> 2207030486) ((3381 . 5625) (* 1103515244 -2) -> -2207030488) ((3382 . 5625) (* 1103515244 -1) -> -1103515244) ((3383 . 5625) (* 1103515244 0) -> 0) ((3384 . 5625) (* 1103515244 1) -> 1103515244) ((3385 . 5625) (* 1103515244 2) -> 2207030488) ((3386 . 5625) (* 1103515245 -2) -> -2207030490) ((3387 . 5625) (* 1103515245 -1) -> -1103515245) ((3388 . 5625) (* 1103515245 0) -> 0) ((3389 . 5625) (* 1103515245 1) -> 1103515245) ((3390 . 5625) (* 1103515245 2) -> 2207030490) ((3391 . 5625) (* 1103515246 -2) -> -2207030492) ((3392 . 5625) (* 1103515246 -1) -> -1103515246) ((3393 . 5625) (* 1103515246 0) -> 0) ((3394 . 5625) (* 1103515246 1) -> 1103515246) ((3395 . 5625) (* 1103515246 2) -> 2207030492) ((3396 . 5625) (* 1103515247 -2) -> -2207030494) ((3397 . 5625) (* 1103515247 -1) -> -1103515247) ((3398 . 5625) (* 1103515247 0) -> 0) ((3399 . 5625) (* 1103515247 1) -> 1103515247) ((3400 . 5625) (* 1103515247 2) -> 2207030494) ((3401 . 5625) (* 1103515243 -1) -> -1103515243) ((3402 . 5625) (* 1103515243 0) -> 0) ((3403 . 5625) (* 1103515243 1) -> 1103515243) ((3404 . 5625) (* 1103515243 2) -> 2207030486) ((3405 . 5625) (* 1103515243 3) -> 3310545729) ((3406 . 5625) (* 1103515244 -1) -> -1103515244) ((3407 . 5625) (* 1103515244 0) -> 0) ((3408 . 5625) (* 1103515244 1) -> 1103515244) ((3409 . 5625) (* 1103515244 2) -> 2207030488) ((3410 . 5625) (* 1103515244 3) -> 3310545732) ((3411 . 5625) (* 1103515245 -1) -> -1103515245) ((3412 . 5625) (* 1103515245 0) -> 0) ((3413 . 5625) (* 1103515245 1) -> 1103515245) ((3414 . 5625) (* 1103515245 2) -> 2207030490) ((3415 . 5625) (* 1103515245 3) -> 3310545735) ((3416 . 5625) (* 1103515246 -1) -> -1103515246) ((3417 . 5625) (* 1103515246 0) -> 0) ((3418 . 5625) (* 1103515246 1) -> 1103515246) ((3419 . 5625) (* 1103515246 2) -> 2207030492) ((3420 . 5625) (* 1103515246 3) -> 3310545738) ((3421 . 5625) (* 1103515247 -1) -> -1103515247) ((3422 . 5625) (* 1103515247 0) -> 0) ((3423 . 5625) (* 1103515247 1) -> 1103515247) ((3424 . 5625) (* 1103515247 2) -> 2207030494) ((3425 . 5625) (* 1103515247 3) -> 3310545741) ((3426 . 5625) (* 1103515243 -3) -> -3310545729) ((3427 . 5625) (* 1103515243 -2) -> -2207030486) ((3428 . 5625) (* 1103515243 -1) -> -1103515243) ((3429 . 5625) (* 1103515243 0) -> 0) ((3430 . 5625) (* 1103515243 1) -> 1103515243) ((3431 . 5625) (* 1103515244 -3) -> -3310545732) ((3432 . 5625) (* 1103515244 -2) -> -2207030488) ((3433 . 5625) (* 1103515244 -1) -> -1103515244) ((3434 . 5625) (* 1103515244 0) -> 0) ((3435 . 5625) (* 1103515244 1) -> 1103515244) ((3436 . 5625) (* 1103515245 -3) -> -3310545735) ((3437 . 5625) (* 1103515245 -2) -> -2207030490) ((3438 . 5625) (* 1103515245 -1) -> -1103515245) ((3439 . 5625) (* 1103515245 0) -> 0) ((3440 . 5625) (* 1103515245 1) -> 1103515245) ((3441 . 5625) (* 1103515246 -3) -> -3310545738) ((3442 . 5625) (* 1103515246 -2) -> -2207030492) ((3443 . 5625) (* 1103515246 -1) -> -1103515246) ((3444 . 5625) (* 1103515246 0) -> 0) ((3445 . 5625) (* 1103515246 1) -> 1103515246) ((3446 . 5625) (* 1103515247 -3) -> -3310545741) ((3447 . 5625) (* 1103515247 -2) -> -2207030494) ((3448 . 5625) (* 1103515247 -1) -> -1103515247) ((3449 . 5625) (* 1103515247 0) -> 0) ((3450 . 5625) (* 1103515247 1) -> 1103515247) ((3451 . 5625) (* 1103515243 0) -> 0) ((3452 . 5625) (* 1103515243 1) -> 1103515243) ((3453 . 5625) (* 1103515243 2) -> 2207030486) ((3454 . 5625) (* 1103515243 3) -> 3310545729) ((3455 . 5625) (* 1103515243 4) -> 4414060972) ((3456 . 5625) (* 1103515244 0) -> 0) ((3457 . 5625) (* 1103515244 1) -> 1103515244) ((3458 . 5625) (* 1103515244 2) -> 2207030488) ((3459 . 5625) (* 1103515244 3) -> 3310545732) ((3460 . 5625) (* 1103515244 4) -> 4414060976) ((3461 . 5625) (* 1103515245 0) -> 0) ((3462 . 5625) (* 1103515245 1) -> 1103515245) ((3463 . 5625) (* 1103515245 2) -> 2207030490) ((3464 . 5625) (* 1103515245 3) -> 3310545735) ((3465 . 5625) (* 1103515245 4) -> 4414060980) ((3466 . 5625) (* 1103515246 0) -> 0) ((3467 . 5625) (* 1103515246 1) -> 1103515246) ((3468 . 5625) (* 1103515246 2) -> 2207030492) ((3469 . 5625) (* 1103515246 3) -> 3310545738) ((3470 . 5625) (* 1103515246 4) -> 4414060984) ((3471 . 5625) (* 1103515247 0) -> 0) ((3472 . 5625) (* 1103515247 1) -> 1103515247) ((3473 . 5625) (* 1103515247 2) -> 2207030494) ((3474 . 5625) (* 1103515247 3) -> 3310545741) ((3475 . 5625) (* 1103515247 4) -> 4414060988) ((3476 . 5625) (* 1103515243 -4) -> -4414060972) ((3477 . 5625) (* 1103515243 -3) -> -3310545729) ((3478 . 5625) (* 1103515243 -2) -> -2207030486) ((3479 . 5625) (* 1103515243 -1) -> -1103515243) ((3480 . 5625) (* 1103515243 0) -> 0) ((3481 . 5625) (* 1103515244 -4) -> -4414060976) ((3482 . 5625) (* 1103515244 -3) -> -3310545732) ((3483 . 5625) (* 1103515244 -2) -> -2207030488) ((3484 . 5625) (* 1103515244 -1) -> -1103515244) ((3485 . 5625) (* 1103515244 0) -> 0) ((3486 . 5625) (* 1103515245 -4) -> -4414060980) ((3487 . 5625) (* 1103515245 -3) -> -3310545735) ((3488 . 5625) (* 1103515245 -2) -> -2207030490) ((3489 . 5625) (* 1103515245 -1) -> -1103515245) ((3490 . 5625) (* 1103515245 0) -> 0) ((3491 . 5625) (* 1103515246 -4) -> -4414060984) ((3492 . 5625) (* 1103515246 -3) -> -3310545738) ((3493 . 5625) (* 1103515246 -2) -> -2207030492) ((3494 . 5625) (* 1103515246 -1) -> -1103515246) ((3495 . 5625) (* 1103515246 0) -> 0) ((3496 . 5625) (* 1103515247 -4) -> -4414060988) ((3497 . 5625) (* 1103515247 -3) -> -3310545741) ((3498 . 5625) (* 1103515247 -2) -> -2207030494) ((3499 . 5625) (* 1103515247 -1) -> -1103515247) ((3500 . 5625) (* 1103515247 0) -> 0) ((3501 . 5625) (* 1103515243 4611686018427387901) -> 5089065817264601437427274943) ((3502 . 5625) (* 1103515243 4611686018427387902) -> 5089065817264601438530790186) ((3503 . 5625) (* 1103515243 4611686018427387903) -> 5089065817264601439634305429) ((3504 . 5625) (* 1103515243 4611686018427387904) -> 5089065817264601440737820672) ((3505 . 5625) (* 1103515243 4611686018427387905) -> 5089065817264601441841335915) ((3506 . 5625) (* 1103515244 4611686018427387901) -> 5089065821876287455854662844) ((3507 . 5625) (* 1103515244 4611686018427387902) -> 5089065821876287456958178088) ((3508 . 5625) (* 1103515244 4611686018427387903) -> 5089065821876287458061693332) ((3509 . 5625) (* 1103515244 4611686018427387904) -> 5089065821876287459165208576) ((3510 . 5625) (* 1103515244 4611686018427387905) -> 5089065821876287460268723820) ((3511 . 5625) (* 1103515245 4611686018427387901) -> 5089065826487973474282050745) ((3512 . 5625) (* 1103515245 4611686018427387902) -> 5089065826487973475385565990) ((3513 . 5625) (* 1103515245 4611686018427387903) -> 5089065826487973476489081235) ((3514 . 5625) (* 1103515245 4611686018427387904) -> 5089065826487973477592596480) ((3515 . 5625) (* 1103515245 4611686018427387905) -> 5089065826487973478696111725) ((3516 . 5625) (* 1103515246 4611686018427387901) -> 5089065831099659492709438646) ((3517 . 5625) (* 1103515246 4611686018427387902) -> 5089065831099659493812953892) ((3518 . 5625) (* 1103515246 4611686018427387903) -> 5089065831099659494916469138) ((3519 . 5625) (* 1103515246 4611686018427387904) -> 5089065831099659496019984384) ((3520 . 5625) (* 1103515246 4611686018427387905) -> 5089065831099659497123499630) ((3521 . 5625) (* 1103515247 4611686018427387901) -> 5089065835711345511136826547) ((3522 . 5625) (* 1103515247 4611686018427387902) -> 5089065835711345512240341794) ((3523 . 5625) (* 1103515247 4611686018427387903) -> 5089065835711345513343857041) ((3524 . 5625) (* 1103515247 4611686018427387904) -> 5089065835711345514447372288) ((3525 . 5625) (* 1103515247 4611686018427387905) -> 5089065835711345515550887535) ((3526 . 5625) (* 1103515243 -4611686018427387906) -> -5089065817264601442944851158) ((3527 . 5625) (* 1103515243 -4611686018427387905) -> -5089065817264601441841335915) ((3528 . 5625) (* 1103515243 -4611686018427387904) -> -5089065817264601440737820672) ((3529 . 5625) (* 1103515243 -4611686018427387903) -> -5089065817264601439634305429) ((3530 . 5625) (* 1103515243 -4611686018427387902) -> -5089065817264601438530790186) ((3531 . 5625) (* 1103515244 -4611686018427387906) -> -5089065821876287461372239064) ((3532 . 5625) (* 1103515244 -4611686018427387905) -> -5089065821876287460268723820) ((3533 . 5625) (* 1103515244 -4611686018427387904) -> -5089065821876287459165208576) ((3534 . 5625) (* 1103515244 -4611686018427387903) -> -5089065821876287458061693332) ((3535 . 5625) (* 1103515244 -4611686018427387902) -> -5089065821876287456958178088) ((3536 . 5625) (* 1103515245 -4611686018427387906) -> -5089065826487973479799626970) ((3537 . 5625) (* 1103515245 -4611686018427387905) -> -5089065826487973478696111725) ((3538 . 5625) (* 1103515245 -4611686018427387904) -> -5089065826487973477592596480) ((3539 . 5625) (* 1103515245 -4611686018427387903) -> -5089065826487973476489081235) ((3540 . 5625) (* 1103515245 -4611686018427387902) -> -5089065826487973475385565990) ((3541 . 5625) (* 1103515246 -4611686018427387906) -> -5089065831099659498227014876) ((3542 . 5625) (* 1103515246 -4611686018427387905) -> -5089065831099659497123499630) ((3543 . 5625) (* 1103515246 -4611686018427387904) -> -5089065831099659496019984384) ((3544 . 5625) (* 1103515246 -4611686018427387903) -> -5089065831099659494916469138) ((3545 . 5625) (* 1103515246 -4611686018427387902) -> -5089065831099659493812953892) ((3546 . 5625) (* 1103515247 -4611686018427387906) -> -5089065835711345516654402782) ((3547 . 5625) (* 1103515247 -4611686018427387905) -> -5089065835711345515550887535) ((3548 . 5625) (* 1103515247 -4611686018427387904) -> -5089065835711345514447372288) ((3549 . 5625) (* 1103515247 -4611686018427387903) -> -5089065835711345513343857041) ((3550 . 5625) (* 1103515247 -4611686018427387902) -> -5089065835711345512240341794) ((3551 . 5625) (* 1103515243 4611686018427387902) -> 5089065817264601438530790186) ((3552 . 5625) (* 1103515243 4611686018427387903) -> 5089065817264601439634305429) ((3553 . 5625) (* 1103515243 4611686018427387904) -> 5089065817264601440737820672) ((3554 . 5625) (* 1103515243 4611686018427387905) -> 5089065817264601441841335915) ((3555 . 5625) (* 1103515243 4611686018427387906) -> 5089065817264601442944851158) ((3556 . 5625) (* 1103515244 4611686018427387902) -> 5089065821876287456958178088) ((3557 . 5625) (* 1103515244 4611686018427387903) -> 5089065821876287458061693332) ((3558 . 5625) (* 1103515244 4611686018427387904) -> 5089065821876287459165208576) ((3559 . 5625) (* 1103515244 4611686018427387905) -> 5089065821876287460268723820) ((3560 . 5625) (* 1103515244 4611686018427387906) -> 5089065821876287461372239064) ((3561 . 5625) (* 1103515245 4611686018427387902) -> 5089065826487973475385565990) ((3562 . 5625) (* 1103515245 4611686018427387903) -> 5089065826487973476489081235) ((3563 . 5625) (* 1103515245 4611686018427387904) -> 5089065826487973477592596480) ((3564 . 5625) (* 1103515245 4611686018427387905) -> 5089065826487973478696111725) ((3565 . 5625) (* 1103515245 4611686018427387906) -> 5089065826487973479799626970) ((3566 . 5625) (* 1103515246 4611686018427387902) -> 5089065831099659493812953892) ((3567 . 5625) (* 1103515246 4611686018427387903) -> 5089065831099659494916469138) ((3568 . 5625) (* 1103515246 4611686018427387904) -> 5089065831099659496019984384) ((3569 . 5625) (* 1103515246 4611686018427387905) -> 5089065831099659497123499630) ((3570 . 5625) (* 1103515246 4611686018427387906) -> 5089065831099659498227014876) ((3571 . 5625) (* 1103515247 4611686018427387902) -> 5089065835711345512240341794) ((3572 . 5625) (* 1103515247 4611686018427387903) -> 5089065835711345513343857041) ((3573 . 5625) (* 1103515247 4611686018427387904) -> 5089065835711345514447372288) ((3574 . 5625) (* 1103515247 4611686018427387905) -> 5089065835711345515550887535) ((3575 . 5625) (* 1103515247 4611686018427387906) -> 5089065835711345516654402782) ((3576 . 5625) (* 1103515243 -4611686018427387907) -> -5089065817264601444048366401) ((3577 . 5625) (* 1103515243 -4611686018427387906) -> -5089065817264601442944851158) ((3578 . 5625) (* 1103515243 -4611686018427387905) -> -5089065817264601441841335915) ((3579 . 5625) (* 1103515243 -4611686018427387904) -> -5089065817264601440737820672) ((3580 . 5625) (* 1103515243 -4611686018427387903) -> -5089065817264601439634305429) ((3581 . 5625) (* 1103515244 -4611686018427387907) -> -5089065821876287462475754308) ((3582 . 5625) (* 1103515244 -4611686018427387906) -> -5089065821876287461372239064) ((3583 . 5625) (* 1103515244 -4611686018427387905) -> -5089065821876287460268723820) ((3584 . 5625) (* 1103515244 -4611686018427387904) -> -5089065821876287459165208576) ((3585 . 5625) (* 1103515244 -4611686018427387903) -> -5089065821876287458061693332) ((3586 . 5625) (* 1103515245 -4611686018427387907) -> -5089065826487973480903142215) ((3587 . 5625) (* 1103515245 -4611686018427387906) -> -5089065826487973479799626970) ((3588 . 5625) (* 1103515245 -4611686018427387905) -> -5089065826487973478696111725) ((3589 . 5625) (* 1103515245 -4611686018427387904) -> -5089065826487973477592596480) ((3590 . 5625) (* 1103515245 -4611686018427387903) -> -5089065826487973476489081235) ((3591 . 5625) (* 1103515246 -4611686018427387907) -> -5089065831099659499330530122) ((3592 . 5625) (* 1103515246 -4611686018427387906) -> -5089065831099659498227014876) ((3593 . 5625) (* 1103515246 -4611686018427387905) -> -5089065831099659497123499630) ((3594 . 5625) (* 1103515246 -4611686018427387904) -> -5089065831099659496019984384) ((3595 . 5625) (* 1103515246 -4611686018427387903) -> -5089065831099659494916469138) ((3596 . 5625) (* 1103515247 -4611686018427387907) -> -5089065835711345517757918029) ((3597 . 5625) (* 1103515247 -4611686018427387906) -> -5089065835711345516654402782) ((3598 . 5625) (* 1103515247 -4611686018427387905) -> -5089065835711345515550887535) ((3599 . 5625) (* 1103515247 -4611686018427387904) -> -5089065835711345514447372288) ((3600 . 5625) (* 1103515247 -4611686018427387903) -> -5089065835711345513343857041) ((3601 . 5625) (* 1103515243 1103515243) -> 1217745891533349049) ((3602 . 5625) (* 1103515243 1103515244) -> 1217745892636864292) ((3603 . 5625) (* 1103515243 1103515245) -> 1217745893740379535) ((3604 . 5625) (* 1103515243 1103515246) -> 1217745894843894778) ((3605 . 5625) (* 1103515243 1103515247) -> 1217745895947410021) ((3606 . 5625) (* 1103515244 1103515243) -> 1217745892636864292) ((3607 . 5625) (* 1103515244 1103515244) -> 1217745893740379536) ((3608 . 5625) (* 1103515244 1103515245) -> 1217745894843894780) ((3609 . 5625) (* 1103515244 1103515246) -> 1217745895947410024) ((3610 . 5625) (* 1103515244 1103515247) -> 1217745897050925268) ((3611 . 5625) (* 1103515245 1103515243) -> 1217745893740379535) ((3612 . 5625) (* 1103515245 1103515244) -> 1217745894843894780) ((3613 . 5625) (* 1103515245 1103515245) -> 1217745895947410025) ((3614 . 5625) (* 1103515245 1103515246) -> 1217745897050925270) ((3615 . 5625) (* 1103515245 1103515247) -> 1217745898154440515) ((3616 . 5625) (* 1103515246 1103515243) -> 1217745894843894778) ((3617 . 5625) (* 1103515246 1103515244) -> 1217745895947410024) ((3618 . 5625) (* 1103515246 1103515245) -> 1217745897050925270) ((3619 . 5625) (* 1103515246 1103515246) -> 1217745898154440516) ((3620 . 5625) (* 1103515246 1103515247) -> 1217745899257955762) ((3621 . 5625) (* 1103515247 1103515243) -> 1217745895947410021) ((3622 . 5625) (* 1103515247 1103515244) -> 1217745897050925268) ((3623 . 5625) (* 1103515247 1103515245) -> 1217745898154440515) ((3624 . 5625) (* 1103515247 1103515246) -> 1217745899257955762) ((3625 . 5625) (* 1103515247 1103515247) -> 1217745900361471009) ((3626 . 5625) (* 1103515243 631629063) -> 697012298942307309) ((3627 . 5625) (* 1103515243 631629064) -> 697012300045822552) ((3628 . 5625) (* 1103515243 631629065) -> 697012301149337795) ((3629 . 5625) (* 1103515243 631629066) -> 697012302252853038) ((3630 . 5625) (* 1103515243 631629067) -> 697012303356368281) ((3631 . 5625) (* 1103515244 631629063) -> 697012299573936372) ((3632 . 5625) (* 1103515244 631629064) -> 697012300677451616) ((3633 . 5625) (* 1103515244 631629065) -> 697012301780966860) ((3634 . 5625) (* 1103515244 631629066) -> 697012302884482104) ((3635 . 5625) (* 1103515244 631629067) -> 697012303987997348) ((3636 . 5625) (* 1103515245 631629063) -> 697012300205565435) ((3637 . 5625) (* 1103515245 631629064) -> 697012301309080680) ((3638 . 5625) (* 1103515245 631629065) -> 697012302412595925) ((3639 . 5625) (* 1103515245 631629066) -> 697012303516111170) ((3640 . 5625) (* 1103515245 631629067) -> 697012304619626415) ((3641 . 5625) (* 1103515246 631629063) -> 697012300837194498) ((3642 . 5625) (* 1103515246 631629064) -> 697012301940709744) ((3643 . 5625) (* 1103515246 631629065) -> 697012303044224990) ((3644 . 5625) (* 1103515246 631629066) -> 697012304147740236) ((3645 . 5625) (* 1103515246 631629067) -> 697012305251255482) ((3646 . 5625) (* 1103515247 631629063) -> 697012301468823561) ((3647 . 5625) (* 1103515247 631629064) -> 697012302572338808) ((3648 . 5625) (* 1103515247 631629065) -> 697012303675854055) ((3649 . 5625) (* 1103515247 631629066) -> 697012304779369302) ((3650 . 5625) (* 1103515247 631629067) -> 697012305882884549) ((3651 . 5625) (* 1103515243 9007199254740990) -> 9939581674344922481910570) ((3652 . 5625) (* 1103515243 9007199254740991) -> 9939581674344923585425813) ((3653 . 5625) (* 1103515243 9007199254740992) -> 9939581674344924688941056) ((3654 . 5625) (* 1103515243 9007199254740993) -> 9939581674344925792456299) ((3655 . 5625) (* 1103515243 9007199254740994) -> 9939581674344926895971542) ((3656 . 5625) (* 1103515244 9007199254740990) -> 9939581683352121736651560) ((3657 . 5625) (* 1103515244 9007199254740991) -> 9939581683352122840166804) ((3658 . 5625) (* 1103515244 9007199254740992) -> 9939581683352123943682048) ((3659 . 5625) (* 1103515244 9007199254740993) -> 9939581683352125047197292) ((3660 . 5625) (* 1103515244 9007199254740994) -> 9939581683352126150712536) ((3661 . 5625) (* 1103515245 9007199254740990) -> 9939581692359320991392550) ((3662 . 5625) (* 1103515245 9007199254740991) -> 9939581692359322094907795) ((3663 . 5625) (* 1103515245 9007199254740992) -> 9939581692359323198423040) ((3664 . 5625) (* 1103515245 9007199254740993) -> 9939581692359324301938285) ((3665 . 5625) (* 1103515245 9007199254740994) -> 9939581692359325405453530) ((3666 . 5625) (* 1103515246 9007199254740990) -> 9939581701366520246133540) ((3667 . 5625) (* 1103515246 9007199254740991) -> 9939581701366521349648786) ((3668 . 5625) (* 1103515246 9007199254740992) -> 9939581701366522453164032) ((3669 . 5625) (* 1103515246 9007199254740993) -> 9939581701366523556679278) ((3670 . 5625) (* 1103515246 9007199254740994) -> 9939581701366524660194524) ((3671 . 5625) (* 1103515247 9007199254740990) -> 9939581710373719500874530) ((3672 . 5625) (* 1103515247 9007199254740991) -> 9939581710373720604389777) ((3673 . 5625) (* 1103515247 9007199254740992) -> 9939581710373721707905024) ((3674 . 5625) (* 1103515247 9007199254740993) -> 9939581710373722811420271) ((3675 . 5625) (* 1103515247 9007199254740994) -> 9939581710373723914935518) ((3676 . 5625) (* 1103515243 -9007199254740994) -> -9939581674344926895971542) ((3677 . 5625) (* 1103515243 -9007199254740993) -> -9939581674344925792456299) ((3678 . 5625) (* 1103515243 -9007199254740992) -> -9939581674344924688941056) ((3679 . 5625) (* 1103515243 -9007199254740991) -> -9939581674344923585425813) ((3680 . 5625) (* 1103515243 -9007199254740990) -> -9939581674344922481910570) ((3681 . 5625) (* 1103515244 -9007199254740994) -> -9939581683352126150712536) ((3682 . 5625) (* 1103515244 -9007199254740993) -> -9939581683352125047197292) ((3683 . 5625) (* 1103515244 -9007199254740992) -> -9939581683352123943682048) ((3684 . 5625) (* 1103515244 -9007199254740991) -> -9939581683352122840166804) ((3685 . 5625) (* 1103515244 -9007199254740990) -> -9939581683352121736651560) ((3686 . 5625) (* 1103515245 -9007199254740994) -> -9939581692359325405453530) ((3687 . 5625) (* 1103515245 -9007199254740993) -> -9939581692359324301938285) ((3688 . 5625) (* 1103515245 -9007199254740992) -> -9939581692359323198423040) ((3689 . 5625) (* 1103515245 -9007199254740991) -> -9939581692359322094907795) ((3690 . 5625) (* 1103515245 -9007199254740990) -> -9939581692359320991392550) ((3691 . 5625) (* 1103515246 -9007199254740994) -> -9939581701366524660194524) ((3692 . 5625) (* 1103515246 -9007199254740993) -> -9939581701366523556679278) ((3693 . 5625) (* 1103515246 -9007199254740992) -> -9939581701366522453164032) ((3694 . 5625) (* 1103515246 -9007199254740991) -> -9939581701366521349648786) ((3695 . 5625) (* 1103515246 -9007199254740990) -> -9939581701366520246133540) ((3696 . 5625) (* 1103515247 -9007199254740994) -> -9939581710373723914935518) ((3697 . 5625) (* 1103515247 -9007199254740993) -> -9939581710373722811420271) ((3698 . 5625) (* 1103515247 -9007199254740992) -> -9939581710373721707905024) ((3699 . 5625) (* 1103515247 -9007199254740991) -> -9939581710373720604389777) ((3700 . 5625) (* 1103515247 -9007199254740990) -> -9939581710373719500874530) ((3701 . 5625) (* 1103515243 12343) -> 13620688644349) ((3702 . 5625) (* 1103515243 12344) -> 13621792159592) ((3703 . 5625) (* 1103515243 12345) -> 13622895674835) ((3704 . 5625) (* 1103515243 12346) -> 13623999190078) ((3705 . 5625) (* 1103515243 12347) -> 13625102705321) ((3706 . 5625) (* 1103515244 12343) -> 13620688656692) ((3707 . 5625) (* 1103515244 12344) -> 13621792171936) ((3708 . 5625) (* 1103515244 12345) -> 13622895687180) ((3709 . 5625) (* 1103515244 12346) -> 13623999202424) ((3710 . 5625) (* 1103515244 12347) -> 13625102717668) ((3711 . 5625) (* 1103515245 12343) -> 13620688669035) ((3712 . 5625) (* 1103515245 12344) -> 13621792184280) ((3713 . 5625) (* 1103515245 12345) -> 13622895699525) ((3714 . 5625) (* 1103515245 12346) -> 13623999214770) ((3715 . 5625) (* 1103515245 12347) -> 13625102730015) ((3716 . 5625) (* 1103515246 12343) -> 13620688681378) ((3717 . 5625) (* 1103515246 12344) -> 13621792196624) ((3718 . 5625) (* 1103515246 12345) -> 13622895711870) ((3719 . 5625) (* 1103515246 12346) -> 13623999227116) ((3720 . 5625) (* 1103515246 12347) -> 13625102742362) ((3721 . 5625) (* 1103515247 12343) -> 13620688693721) ((3722 . 5625) (* 1103515247 12344) -> 13621792208968) ((3723 . 5625) (* 1103515247 12345) -> 13622895724215) ((3724 . 5625) (* 1103515247 12346) -> 13623999239462) ((3725 . 5625) (* 1103515247 12347) -> 13625102754709) ((3726 . 5625) (* 1103515243 4294967294) -> 4739561877115462442) ((3727 . 5625) (* 1103515243 4294967295) -> 4739561878218977685) ((3728 . 5625) (* 1103515243 4294967296) -> 4739561879322492928) ((3729 . 5625) (* 1103515243 4294967297) -> 4739561880426008171) ((3730 . 5625) (* 1103515243 4294967298) -> 4739561881529523414) ((3731 . 5625) (* 1103515244 4294967294) -> 4739561881410429736) ((3732 . 5625) (* 1103515244 4294967295) -> 4739561882513944980) ((3733 . 5625) (* 1103515244 4294967296) -> 4739561883617460224) ((3734 . 5625) (* 1103515244 4294967297) -> 4739561884720975468) ((3735 . 5625) (* 1103515244 4294967298) -> 4739561885824490712) ((3736 . 5625) (* 1103515245 4294967294) -> 4739561885705397030) ((3737 . 5625) (* 1103515245 4294967295) -> 4739561886808912275) ((3738 . 5625) (* 1103515245 4294967296) -> 4739561887912427520) ((3739 . 5625) (* 1103515245 4294967297) -> 4739561889015942765) ((3740 . 5625) (* 1103515245 4294967298) -> 4739561890119458010) ((3741 . 5625) (* 1103515246 4294967294) -> 4739561890000364324) ((3742 . 5625) (* 1103515246 4294967295) -> 4739561891103879570) ((3743 . 5625) (* 1103515246 4294967296) -> 4739561892207394816) ((3744 . 5625) (* 1103515246 4294967297) -> 4739561893310910062) ((3745 . 5625) (* 1103515246 4294967298) -> 4739561894414425308) ((3746 . 5625) (* 1103515247 4294967294) -> 4739561894295331618) ((3747 . 5625) (* 1103515247 4294967295) -> 4739561895398846865) ((3748 . 5625) (* 1103515247 4294967296) -> 4739561896502362112) ((3749 . 5625) (* 1103515247 4294967297) -> 4739561897605877359) ((3750 . 5625) (* 1103515247 4294967298) -> 4739561898709392606) ((3751 . 5625) (* 631629063 -2) -> -1263258126) ((3752 . 5625) (* 631629063 -1) -> -631629063) ((3753 . 5625) (* 631629063 0) -> 0) ((3754 . 5625) (* 631629063 1) -> 631629063) ((3755 . 5625) (* 631629063 2) -> 1263258126) ((3756 . 5625) (* 631629064 -2) -> -1263258128) ((3757 . 5625) (* 631629064 -1) -> -631629064) ((3758 . 5625) (* 631629064 0) -> 0) ((3759 . 5625) (* 631629064 1) -> 631629064) ((3760 . 5625) (* 631629064 2) -> 1263258128) ((3761 . 5625) (* 631629065 -2) -> -1263258130) ((3762 . 5625) (* 631629065 -1) -> -631629065) ((3763 . 5625) (* 631629065 0) -> 0) ((3764 . 5625) (* 631629065 1) -> 631629065) ((3765 . 5625) (* 631629065 2) -> 1263258130) ((3766 . 5625) (* 631629066 -2) -> -1263258132) ((3767 . 5625) (* 631629066 -1) -> -631629066) ((3768 . 5625) (* 631629066 0) -> 0) ((3769 . 5625) (* 631629066 1) -> 631629066) ((3770 . 5625) (* 631629066 2) -> 1263258132) ((3771 . 5625) (* 631629067 -2) -> -1263258134) ((3772 . 5625) (* 631629067 -1) -> -631629067) ((3773 . 5625) (* 631629067 0) -> 0) ((3774 . 5625) (* 631629067 1) -> 631629067) ((3775 . 5625) (* 631629067 2) -> 1263258134) ((3776 . 5625) (* 631629063 -1) -> -631629063) ((3777 . 5625) (* 631629063 0) -> 0) ((3778 . 5625) (* 631629063 1) -> 631629063) ((3779 . 5625) (* 631629063 2) -> 1263258126) ((3780 . 5625) (* 631629063 3) -> 1894887189) ((3781 . 5625) (* 631629064 -1) -> -631629064) ((3782 . 5625) (* 631629064 0) -> 0) ((3783 . 5625) (* 631629064 1) -> 631629064) ((3784 . 5625) (* 631629064 2) -> 1263258128) ((3785 . 5625) (* 631629064 3) -> 1894887192) ((3786 . 5625) (* 631629065 -1) -> -631629065) ((3787 . 5625) (* 631629065 0) -> 0) ((3788 . 5625) (* 631629065 1) -> 631629065) ((3789 . 5625) (* 631629065 2) -> 1263258130) ((3790 . 5625) (* 631629065 3) -> 1894887195) ((3791 . 5625) (* 631629066 -1) -> -631629066) ((3792 . 5625) (* 631629066 0) -> 0) ((3793 . 5625) (* 631629066 1) -> 631629066) ((3794 . 5625) (* 631629066 2) -> 1263258132) ((3795 . 5625) (* 631629066 3) -> 1894887198) ((3796 . 5625) (* 631629067 -1) -> -631629067) ((3797 . 5625) (* 631629067 0) -> 0) ((3798 . 5625) (* 631629067 1) -> 631629067) ((3799 . 5625) (* 631629067 2) -> 1263258134) ((3800 . 5625) (* 631629067 3) -> 1894887201) ((3801 . 5625) (* 631629063 -3) -> -1894887189) ((3802 . 5625) (* 631629063 -2) -> -1263258126) ((3803 . 5625) (* 631629063 -1) -> -631629063) ((3804 . 5625) (* 631629063 0) -> 0) ((3805 . 5625) (* 631629063 1) -> 631629063) ((3806 . 5625) (* 631629064 -3) -> -1894887192) ((3807 . 5625) (* 631629064 -2) -> -1263258128) ((3808 . 5625) (* 631629064 -1) -> -631629064) ((3809 . 5625) (* 631629064 0) -> 0) ((3810 . 5625) (* 631629064 1) -> 631629064) ((3811 . 5625) (* 631629065 -3) -> -1894887195) ((3812 . 5625) (* 631629065 -2) -> -1263258130) ((3813 . 5625) (* 631629065 -1) -> -631629065) ((3814 . 5625) (* 631629065 0) -> 0) ((3815 . 5625) (* 631629065 1) -> 631629065) ((3816 . 5625) (* 631629066 -3) -> -1894887198) ((3817 . 5625) (* 631629066 -2) -> -1263258132) ((3818 . 5625) (* 631629066 -1) -> -631629066) ((3819 . 5625) (* 631629066 0) -> 0) ((3820 . 5625) (* 631629066 1) -> 631629066) ((3821 . 5625) (* 631629067 -3) -> -1894887201) ((3822 . 5625) (* 631629067 -2) -> -1263258134) ((3823 . 5625) (* 631629067 -1) -> -631629067) ((3824 . 5625) (* 631629067 0) -> 0) ((3825 . 5625) (* 631629067 1) -> 631629067) ((3826 . 5625) (* 631629063 0) -> 0) ((3827 . 5625) (* 631629063 1) -> 631629063) ((3828 . 5625) (* 631629063 2) -> 1263258126) ((3829 . 5625) (* 631629063 3) -> 1894887189) ((3830 . 5625) (* 631629063 4) -> 2526516252) ((3831 . 5625) (* 631629064 0) -> 0) ((3832 . 5625) (* 631629064 1) -> 631629064) ((3833 . 5625) (* 631629064 2) -> 1263258128) ((3834 . 5625) (* 631629064 3) -> 1894887192) ((3835 . 5625) (* 631629064 4) -> 2526516256) ((3836 . 5625) (* 631629065 0) -> 0) ((3837 . 5625) (* 631629065 1) -> 631629065) ((3838 . 5625) (* 631629065 2) -> 1263258130) ((3839 . 5625) (* 631629065 3) -> 1894887195) ((3840 . 5625) (* 631629065 4) -> 2526516260) ((3841 . 5625) (* 631629066 0) -> 0) ((3842 . 5625) (* 631629066 1) -> 631629066) ((3843 . 5625) (* 631629066 2) -> 1263258132) ((3844 . 5625) (* 631629066 3) -> 1894887198) ((3845 . 5625) (* 631629066 4) -> 2526516264) ((3846 . 5625) (* 631629067 0) -> 0) ((3847 . 5625) (* 631629067 1) -> 631629067) ((3848 . 5625) (* 631629067 2) -> 1263258134) ((3849 . 5625) (* 631629067 3) -> 1894887201) ((3850 . 5625) (* 631629067 4) -> 2526516268) ((3851 . 5625) (* 631629063 -4) -> -2526516252) ((3852 . 5625) (* 631629063 -3) -> -1894887189) ((3853 . 5625) (* 631629063 -2) -> -1263258126) ((3854 . 5625) (* 631629063 -1) -> -631629063) ((3855 . 5625) (* 631629063 0) -> 0) ((3856 . 5625) (* 631629064 -4) -> -2526516256) ((3857 . 5625) (* 631629064 -3) -> -1894887192) ((3858 . 5625) (* 631629064 -2) -> -1263258128) ((3859 . 5625) (* 631629064 -1) -> -631629064) ((3860 . 5625) (* 631629064 0) -> 0) ((3861 . 5625) (* 631629065 -4) -> -2526516260) ((3862 . 5625) (* 631629065 -3) -> -1894887195) ((3863 . 5625) (* 631629065 -2) -> -1263258130) ((3864 . 5625) (* 631629065 -1) -> -631629065) ((3865 . 5625) (* 631629065 0) -> 0) ((3866 . 5625) (* 631629066 -4) -> -2526516264) ((3867 . 5625) (* 631629066 -3) -> -1894887198) ((3868 . 5625) (* 631629066 -2) -> -1263258132) ((3869 . 5625) (* 631629066 -1) -> -631629066) ((3870 . 5625) (* 631629066 0) -> 0) ((3871 . 5625) (* 631629067 -4) -> -2526516268) ((3872 . 5625) (* 631629067 -3) -> -1894887201) ((3873 . 5625) (* 631629067 -2) -> -1263258134) ((3874 . 5625) (* 631629067 -1) -> -631629067) ((3875 . 5625) (* 631629067 0) -> 0) ((3876 . 5625) (* 631629063 4611686018427387901) -> 2912874918669491753446166763) ((3877 . 5625) (* 631629063 4611686018427387902) -> 2912874918669491754077795826) ((3878 . 5625) (* 631629063 4611686018427387903) -> 2912874918669491754709424889) ((3879 . 5625) (* 631629063 4611686018427387904) -> 2912874918669491755341053952) ((3880 . 5625) (* 631629063 4611686018427387905) -> 2912874918669491755972683015) ((3881 . 5625) (* 631629064 4611686018427387901) -> 2912874923281177771873554664) ((3882 . 5625) (* 631629064 4611686018427387902) -> 2912874923281177772505183728) ((3883 . 5625) (* 631629064 4611686018427387903) -> 2912874923281177773136812792) ((3884 . 5625) (* 631629064 4611686018427387904) -> 2912874923281177773768441856) ((3885 . 5625) (* 631629064 4611686018427387905) -> 2912874923281177774400070920) ((3886 . 5625) (* 631629065 4611686018427387901) -> 2912874927892863790300942565) ((3887 . 5625) (* 631629065 4611686018427387902) -> 2912874927892863790932571630) ((3888 . 5625) (* 631629065 4611686018427387903) -> 2912874927892863791564200695) ((3889 . 5625) (* 631629065 4611686018427387904) -> 2912874927892863792195829760) ((3890 . 5625) (* 631629065 4611686018427387905) -> 2912874927892863792827458825) ((3891 . 5625) (* 631629066 4611686018427387901) -> 2912874932504549808728330466) ((3892 . 5625) (* 631629066 4611686018427387902) -> 2912874932504549809359959532) ((3893 . 5625) (* 631629066 4611686018427387903) -> 2912874932504549809991588598) ((3894 . 5625) (* 631629066 4611686018427387904) -> 2912874932504549810623217664) ((3895 . 5625) (* 631629066 4611686018427387905) -> 2912874932504549811254846730) ((3896 . 5625) (* 631629067 4611686018427387901) -> 2912874937116235827155718367) ((3897 . 5625) (* 631629067 4611686018427387902) -> 2912874937116235827787347434) ((3898 . 5625) (* 631629067 4611686018427387903) -> 2912874937116235828418976501) ((3899 . 5625) (* 631629067 4611686018427387904) -> 2912874937116235829050605568) ((3900 . 5625) (* 631629067 4611686018427387905) -> 2912874937116235829682234635) ((3901 . 5625) (* 631629063 -4611686018427387906) -> -2912874918669491756604312078) ((3902 . 5625) (* 631629063 -4611686018427387905) -> -2912874918669491755972683015) ((3903 . 5625) (* 631629063 -4611686018427387904) -> -2912874918669491755341053952) ((3904 . 5625) (* 631629063 -4611686018427387903) -> -2912874918669491754709424889) ((3905 . 5625) (* 631629063 -4611686018427387902) -> -2912874918669491754077795826) ((3906 . 5625) (* 631629064 -4611686018427387906) -> -2912874923281177775031699984) ((3907 . 5625) (* 631629064 -4611686018427387905) -> -2912874923281177774400070920) ((3908 . 5625) (* 631629064 -4611686018427387904) -> -2912874923281177773768441856) ((3909 . 5625) (* 631629064 -4611686018427387903) -> -2912874923281177773136812792) ((3910 . 5625) (* 631629064 -4611686018427387902) -> -2912874923281177772505183728) ((3911 . 5625) (* 631629065 -4611686018427387906) -> -2912874927892863793459087890) ((3912 . 5625) (* 631629065 -4611686018427387905) -> -2912874927892863792827458825) ((3913 . 5625) (* 631629065 -4611686018427387904) -> -2912874927892863792195829760) ((3914 . 5625) (* 631629065 -4611686018427387903) -> -2912874927892863791564200695) ((3915 . 5625) (* 631629065 -4611686018427387902) -> -2912874927892863790932571630) ((3916 . 5625) (* 631629066 -4611686018427387906) -> -2912874932504549811886475796) ((3917 . 5625) (* 631629066 -4611686018427387905) -> -2912874932504549811254846730) ((3918 . 5625) (* 631629066 -4611686018427387904) -> -2912874932504549810623217664) ((3919 . 5625) (* 631629066 -4611686018427387903) -> -2912874932504549809991588598) ((3920 . 5625) (* 631629066 -4611686018427387902) -> -2912874932504549809359959532) ((3921 . 5625) (* 631629067 -4611686018427387906) -> -2912874937116235830313863702) ((3922 . 5625) (* 631629067 -4611686018427387905) -> -2912874937116235829682234635) ((3923 . 5625) (* 631629067 -4611686018427387904) -> -2912874937116235829050605568) ((3924 . 5625) (* 631629067 -4611686018427387903) -> -2912874937116235828418976501) ((3925 . 5625) (* 631629067 -4611686018427387902) -> -2912874937116235827787347434) ((3926 . 5625) (* 631629063 4611686018427387902) -> 2912874918669491754077795826) ((3927 . 5625) (* 631629063 4611686018427387903) -> 2912874918669491754709424889) ((3928 . 5625) (* 631629063 4611686018427387904) -> 2912874918669491755341053952) ((3929 . 5625) (* 631629063 4611686018427387905) -> 2912874918669491755972683015) ((3930 . 5625) (* 631629063 4611686018427387906) -> 2912874918669491756604312078) ((3931 . 5625) (* 631629064 4611686018427387902) -> 2912874923281177772505183728) ((3932 . 5625) (* 631629064 4611686018427387903) -> 2912874923281177773136812792) ((3933 . 5625) (* 631629064 4611686018427387904) -> 2912874923281177773768441856) ((3934 . 5625) (* 631629064 4611686018427387905) -> 2912874923281177774400070920) ((3935 . 5625) (* 631629064 4611686018427387906) -> 2912874923281177775031699984) ((3936 . 5625) (* 631629065 4611686018427387902) -> 2912874927892863790932571630) ((3937 . 5625) (* 631629065 4611686018427387903) -> 2912874927892863791564200695) ((3938 . 5625) (* 631629065 4611686018427387904) -> 2912874927892863792195829760) ((3939 . 5625) (* 631629065 4611686018427387905) -> 2912874927892863792827458825) ((3940 . 5625) (* 631629065 4611686018427387906) -> 2912874927892863793459087890) ((3941 . 5625) (* 631629066 4611686018427387902) -> 2912874932504549809359959532) ((3942 . 5625) (* 631629066 4611686018427387903) -> 2912874932504549809991588598) ((3943 . 5625) (* 631629066 4611686018427387904) -> 2912874932504549810623217664) ((3944 . 5625) (* 631629066 4611686018427387905) -> 2912874932504549811254846730) ((3945 . 5625) (* 631629066 4611686018427387906) -> 2912874932504549811886475796) ((3946 . 5625) (* 631629067 4611686018427387902) -> 2912874937116235827787347434) ((3947 . 5625) (* 631629067 4611686018427387903) -> 2912874937116235828418976501) ((3948 . 5625) (* 631629067 4611686018427387904) -> 2912874937116235829050605568) ((3949 . 5625) (* 631629067 4611686018427387905) -> 2912874937116235829682234635) ((3950 . 5625) (* 631629067 4611686018427387906) -> 2912874937116235830313863702) ((3951 . 5625) (* 631629063 -4611686018427387907) -> -2912874918669491757235941141) ((3952 . 5625) (* 631629063 -4611686018427387906) -> -2912874918669491756604312078) ((3953 . 5625) (* 631629063 -4611686018427387905) -> -2912874918669491755972683015) ((3954 . 5625) (* 631629063 -4611686018427387904) -> -2912874918669491755341053952) ((3955 . 5625) (* 631629063 -4611686018427387903) -> -2912874918669491754709424889) ((3956 . 5625) (* 631629064 -4611686018427387907) -> -2912874923281177775663329048) ((3957 . 5625) (* 631629064 -4611686018427387906) -> -2912874923281177775031699984) ((3958 . 5625) (* 631629064 -4611686018427387905) -> -2912874923281177774400070920) ((3959 . 5625) (* 631629064 -4611686018427387904) -> -2912874923281177773768441856) ((3960 . 5625) (* 631629064 -4611686018427387903) -> -2912874923281177773136812792) ((3961 . 5625) (* 631629065 -4611686018427387907) -> -2912874927892863794090716955) ((3962 . 5625) (* 631629065 -4611686018427387906) -> -2912874927892863793459087890) ((3963 . 5625) (* 631629065 -4611686018427387905) -> -2912874927892863792827458825) ((3964 . 5625) (* 631629065 -4611686018427387904) -> -2912874927892863792195829760) ((3965 . 5625) (* 631629065 -4611686018427387903) -> -2912874927892863791564200695) ((3966 . 5625) (* 631629066 -4611686018427387907) -> -2912874932504549812518104862) ((3967 . 5625) (* 631629066 -4611686018427387906) -> -2912874932504549811886475796) ((3968 . 5625) (* 631629066 -4611686018427387905) -> -2912874932504549811254846730) ((3969 . 5625) (* 631629066 -4611686018427387904) -> -2912874932504549810623217664) ((3970 . 5625) (* 631629066 -4611686018427387903) -> -2912874932504549809991588598) ((3971 . 5625) (* 631629067 -4611686018427387907) -> -2912874937116235830945492769) ((3972 . 5625) (* 631629067 -4611686018427387906) -> -2912874937116235830313863702) ((3973 . 5625) (* 631629067 -4611686018427387905) -> -2912874937116235829682234635) ((3974 . 5625) (* 631629067 -4611686018427387904) -> -2912874937116235829050605568) ((3975 . 5625) (* 631629067 -4611686018427387903) -> -2912874937116235828418976501) ((3976 . 5625) (* 631629063 1103515243) -> 697012298942307309) ((3977 . 5625) (* 631629063 1103515244) -> 697012299573936372) ((3978 . 5625) (* 631629063 1103515245) -> 697012300205565435) ((3979 . 5625) (* 631629063 1103515246) -> 697012300837194498) ((3980 . 5625) (* 631629063 1103515247) -> 697012301468823561) ((3981 . 5625) (* 631629064 1103515243) -> 697012300045822552) ((3982 . 5625) (* 631629064 1103515244) -> 697012300677451616) ((3983 . 5625) (* 631629064 1103515245) -> 697012301309080680) ((3984 . 5625) (* 631629064 1103515246) -> 697012301940709744) ((3985 . 5625) (* 631629064 1103515247) -> 697012302572338808) ((3986 . 5625) (* 631629065 1103515243) -> 697012301149337795) ((3987 . 5625) (* 631629065 1103515244) -> 697012301780966860) ((3988 . 5625) (* 631629065 1103515245) -> 697012302412595925) ((3989 . 5625) (* 631629065 1103515246) -> 697012303044224990) ((3990 . 5625) (* 631629065 1103515247) -> 697012303675854055) ((3991 . 5625) (* 631629066 1103515243) -> 697012302252853038) ((3992 . 5625) (* 631629066 1103515244) -> 697012302884482104) ((3993 . 5625) (* 631629066 1103515245) -> 697012303516111170) ((3994 . 5625) (* 631629066 1103515246) -> 697012304147740236) ((3995 . 5625) (* 631629066 1103515247) -> 697012304779369302) ((3996 . 5625) (* 631629067 1103515243) -> 697012303356368281) ((3997 . 5625) (* 631629067 1103515244) -> 697012303987997348) ((3998 . 5625) (* 631629067 1103515245) -> 697012304619626415) ((3999 . 5625) (* 631629067 1103515246) -> 697012305251255482) ((4000 . 5625) (* 631629067 1103515247) -> 697012305882884549) ((4001 . 5625) (* 631629063 631629063) -> 398955273226257969) ((4002 . 5625) (* 631629063 631629064) -> 398955273857887032) ((4003 . 5625) (* 631629063 631629065) -> 398955274489516095) ((4004 . 5625) (* 631629063 631629066) -> 398955275121145158) ((4005 . 5625) (* 631629063 631629067) -> 398955275752774221) ((4006 . 5625) (* 631629064 631629063) -> 398955273857887032) ((4007 . 5625) (* 631629064 631629064) -> 398955274489516096) ((4008 . 5625) (* 631629064 631629065) -> 398955275121145160) ((4009 . 5625) (* 631629064 631629066) -> 398955275752774224) ((4010 . 5625) (* 631629064 631629067) -> 398955276384403288) ((4011 . 5625) (* 631629065 631629063) -> 398955274489516095) ((4012 . 5625) (* 631629065 631629064) -> 398955275121145160) ((4013 . 5625) (* 631629065 631629065) -> 398955275752774225) ((4014 . 5625) (* 631629065 631629066) -> 398955276384403290) ((4015 . 5625) (* 631629065 631629067) -> 398955277016032355) ((4016 . 5625) (* 631629066 631629063) -> 398955275121145158) ((4017 . 5625) (* 631629066 631629064) -> 398955275752774224) ((4018 . 5625) (* 631629066 631629065) -> 398955276384403290) ((4019 . 5625) (* 631629066 631629066) -> 398955277016032356) ((4020 . 5625) (* 631629066 631629067) -> 398955277647661422) ((4021 . 5625) (* 631629067 631629063) -> 398955275752774221) ((4022 . 5625) (* 631629067 631629064) -> 398955276384403288) ((4023 . 5625) (* 631629067 631629065) -> 398955277016032355) ((4024 . 5625) (* 631629067 631629066) -> 398955277647661422) ((4025 . 5625) (* 631629067 631629067) -> 398955278279290489) ((4026 . 5625) (* 631629063 9007199254740990) -> 5689208825526349821392370) ((4027 . 5625) (* 631629063 9007199254740991) -> 5689208825526350453021433) ((4028 . 5625) (* 631629063 9007199254740992) -> 5689208825526351084650496) ((4029 . 5625) (* 631629063 9007199254740993) -> 5689208825526351716279559) ((4030 . 5625) (* 631629063 9007199254740994) -> 5689208825526352347908622) ((4031 . 5625) (* 631629064 9007199254740990) -> 5689208834533549076133360) ((4032 . 5625) (* 631629064 9007199254740991) -> 5689208834533549707762424) ((4033 . 5625) (* 631629064 9007199254740992) -> 5689208834533550339391488) ((4034 . 5625) (* 631629064 9007199254740993) -> 5689208834533550971020552) ((4035 . 5625) (* 631629064 9007199254740994) -> 5689208834533551602649616) ((4036 . 5625) (* 631629065 9007199254740990) -> 5689208843540748330874350) ((4037 . 5625) (* 631629065 9007199254740991) -> 5689208843540748962503415) ((4038 . 5625) (* 631629065 9007199254740992) -> 5689208843540749594132480) ((4039 . 5625) (* 631629065 9007199254740993) -> 5689208843540750225761545) ((4040 . 5625) (* 631629065 9007199254740994) -> 5689208843540750857390610) ((4041 . 5625) (* 631629066 9007199254740990) -> 5689208852547947585615340) ((4042 . 5625) (* 631629066 9007199254740991) -> 5689208852547948217244406) ((4043 . 5625) (* 631629066 9007199254740992) -> 5689208852547948848873472) ((4044 . 5625) (* 631629066 9007199254740993) -> 5689208852547949480502538) ((4045 . 5625) (* 631629066 9007199254740994) -> 5689208852547950112131604) ((4046 . 5625) (* 631629067 9007199254740990) -> 5689208861555146840356330) ((4047 . 5625) (* 631629067 9007199254740991) -> 5689208861555147471985397) ((4048 . 5625) (* 631629067 9007199254740992) -> 5689208861555148103614464) ((4049 . 5625) (* 631629067 9007199254740993) -> 5689208861555148735243531) ((4050 . 5625) (* 631629067 9007199254740994) -> 5689208861555149366872598) ((4051 . 5625) (* 631629063 -9007199254740994) -> -5689208825526352347908622) ((4052 . 5625) (* 631629063 -9007199254740993) -> -5689208825526351716279559) ((4053 . 5625) (* 631629063 -9007199254740992) -> -5689208825526351084650496) ((4054 . 5625) (* 631629063 -9007199254740991) -> -5689208825526350453021433) ((4055 . 5625) (* 631629063 -9007199254740990) -> -5689208825526349821392370) ((4056 . 5625) (* 631629064 -9007199254740994) -> -5689208834533551602649616) ((4057 . 5625) (* 631629064 -9007199254740993) -> -5689208834533550971020552) ((4058 . 5625) (* 631629064 -9007199254740992) -> -5689208834533550339391488) ((4059 . 5625) (* 631629064 -9007199254740991) -> -5689208834533549707762424) ((4060 . 5625) (* 631629064 -9007199254740990) -> -5689208834533549076133360) ((4061 . 5625) (* 631629065 -9007199254740994) -> -5689208843540750857390610) ((4062 . 5625) (* 631629065 -9007199254740993) -> -5689208843540750225761545) ((4063 . 5625) (* 631629065 -9007199254740992) -> -5689208843540749594132480) ((4064 . 5625) (* 631629065 -9007199254740991) -> -5689208843540748962503415) ((4065 . 5625) (* 631629065 -9007199254740990) -> -5689208843540748330874350) ((4066 . 5625) (* 631629066 -9007199254740994) -> -5689208852547950112131604) ((4067 . 5625) (* 631629066 -9007199254740993) -> -5689208852547949480502538) ((4068 . 5625) (* 631629066 -9007199254740992) -> -5689208852547948848873472) ((4069 . 5625) (* 631629066 -9007199254740991) -> -5689208852547948217244406) ((4070 . 5625) (* 631629066 -9007199254740990) -> -5689208852547947585615340) ((4071 . 5625) (* 631629067 -9007199254740994) -> -5689208861555149366872598) ((4072 . 5625) (* 631629067 -9007199254740993) -> -5689208861555148735243531) ((4073 . 5625) (* 631629067 -9007199254740992) -> -5689208861555148103614464) ((4074 . 5625) (* 631629067 -9007199254740991) -> -5689208861555147471985397) ((4075 . 5625) (* 631629067 -9007199254740990) -> -5689208861555146840356330) ((4076 . 5625) (* 631629063 12343) -> 7796197524609) ((4077 . 5625) (* 631629063 12344) -> 7796829153672) ((4078 . 5625) (* 631629063 12345) -> 7797460782735) ((4079 . 5625) (* 631629063 12346) -> 7798092411798) ((4080 . 5625) (* 631629063 12347) -> 7798724040861) ((4081 . 5625) (* 631629064 12343) -> 7796197536952) ((4082 . 5625) (* 631629064 12344) -> 7796829166016) ((4083 . 5625) (* 631629064 12345) -> 7797460795080) ((4084 . 5625) (* 631629064 12346) -> 7798092424144) ((4085 . 5625) (* 631629064 12347) -> 7798724053208) ((4086 . 5625) (* 631629065 12343) -> 7796197549295) ((4087 . 5625) (* 631629065 12344) -> 7796829178360) ((4088 . 5625) (* 631629065 12345) -> 7797460807425) ((4089 . 5625) (* 631629065 12346) -> 7798092436490) ((4090 . 5625) (* 631629065 12347) -> 7798724065555) ((4091 . 5625) (* 631629066 12343) -> 7796197561638) ((4092 . 5625) (* 631629066 12344) -> 7796829190704) ((4093 . 5625) (* 631629066 12345) -> 7797460819770) ((4094 . 5625) (* 631629066 12346) -> 7798092448836) ((4095 . 5625) (* 631629066 12347) -> 7798724077902) ((4096 . 5625) (* 631629067 12343) -> 7796197573981) ((4097 . 5625) (* 631629067 12344) -> 7796829203048) ((4098 . 5625) (* 631629067 12345) -> 7797460832115) ((4099 . 5625) (* 631629067 12346) -> 7798092461182) ((4100 . 5625) (* 631629067 12347) -> 7798724090249) ((4101 . 5625) (* 631629063 4294967294) -> 2712826167524865522) ((4102 . 5625) (* 631629063 4294967295) -> 2712826168156494585) ((4103 . 5625) (* 631629063 4294967296) -> 2712826168788123648) ((4104 . 5625) (* 631629063 4294967297) -> 2712826169419752711) ((4105 . 5625) (* 631629063 4294967298) -> 2712826170051381774) ((4106 . 5625) (* 631629064 4294967294) -> 2712826171819832816) ((4107 . 5625) (* 631629064 4294967295) -> 2712826172451461880) ((4108 . 5625) (* 631629064 4294967296) -> 2712826173083090944) ((4109 . 5625) (* 631629064 4294967297) -> 2712826173714720008) ((4110 . 5625) (* 631629064 4294967298) -> 2712826174346349072) ((4111 . 5625) (* 631629065 4294967294) -> 2712826176114800110) ((4112 . 5625) (* 631629065 4294967295) -> 2712826176746429175) ((4113 . 5625) (* 631629065 4294967296) -> 2712826177378058240) ((4114 . 5625) (* 631629065 4294967297) -> 2712826178009687305) ((4115 . 5625) (* 631629065 4294967298) -> 2712826178641316370) ((4116 . 5625) (* 631629066 4294967294) -> 2712826180409767404) ((4117 . 5625) (* 631629066 4294967295) -> 2712826181041396470) ((4118 . 5625) (* 631629066 4294967296) -> 2712826181673025536) ((4119 . 5625) (* 631629066 4294967297) -> 2712826182304654602) ((4120 . 5625) (* 631629066 4294967298) -> 2712826182936283668) ((4121 . 5625) (* 631629067 4294967294) -> 2712826184704734698) ((4122 . 5625) (* 631629067 4294967295) -> 2712826185336363765) ((4123 . 5625) (* 631629067 4294967296) -> 2712826185967992832) ((4124 . 5625) (* 631629067 4294967297) -> 2712826186599621899) ((4125 . 5625) (* 631629067 4294967298) -> 2712826187231250966) ((4126 . 5625) (* 9007199254740990 -2) -> -18014398509481980) ((4127 . 5625) (* 9007199254740990 -1) -> -9007199254740990) ((4128 . 5625) (* 9007199254740990 0) -> 0) ((4129 . 5625) (* 9007199254740990 1) -> 9007199254740990) ((4130 . 5625) (* 9007199254740990 2) -> 18014398509481980) ((4131 . 5625) (* 9007199254740991 -2) -> -18014398509481982) ((4132 . 5625) (* 9007199254740991 -1) -> -9007199254740991) ((4133 . 5625) (* 9007199254740991 0) -> 0) ((4134 . 5625) (* 9007199254740991 1) -> 9007199254740991) ((4135 . 5625) (* 9007199254740991 2) -> 18014398509481982) ((4136 . 5625) (* 9007199254740992 -2) -> -18014398509481984) ((4137 . 5625) (* 9007199254740992 -1) -> -9007199254740992) ((4138 . 5625) (* 9007199254740992 0) -> 0) ((4139 . 5625) (* 9007199254740992 1) -> 9007199254740992) ((4140 . 5625) (* 9007199254740992 2) -> 18014398509481984) ((4141 . 5625) (* 9007199254740993 -2) -> -18014398509481986) ((4142 . 5625) (* 9007199254740993 -1) -> -9007199254740993) ((4143 . 5625) (* 9007199254740993 0) -> 0) ((4144 . 5625) (* 9007199254740993 1) -> 9007199254740993) ((4145 . 5625) (* 9007199254740993 2) -> 18014398509481986) ((4146 . 5625) (* 9007199254740994 -2) -> -18014398509481988) ((4147 . 5625) (* 9007199254740994 -1) -> -9007199254740994) ((4148 . 5625) (* 9007199254740994 0) -> 0) ((4149 . 5625) (* 9007199254740994 1) -> 9007199254740994) ((4150 . 5625) (* 9007199254740994 2) -> 18014398509481988) ((4151 . 5625) (* 9007199254740990 -1) -> -9007199254740990) ((4152 . 5625) (* 9007199254740990 0) -> 0) ((4153 . 5625) (* 9007199254740990 1) -> 9007199254740990) ((4154 . 5625) (* 9007199254740990 2) -> 18014398509481980) ((4155 . 5625) (* 9007199254740990 3) -> 27021597764222970) ((4156 . 5625) (* 9007199254740991 -1) -> -9007199254740991) ((4157 . 5625) (* 9007199254740991 0) -> 0) ((4158 . 5625) (* 9007199254740991 1) -> 9007199254740991) ((4159 . 5625) (* 9007199254740991 2) -> 18014398509481982) ((4160 . 5625) (* 9007199254740991 3) -> 27021597764222973) ((4161 . 5625) (* 9007199254740992 -1) -> -9007199254740992) ((4162 . 5625) (* 9007199254740992 0) -> 0) ((4163 . 5625) (* 9007199254740992 1) -> 9007199254740992) ((4164 . 5625) (* 9007199254740992 2) -> 18014398509481984) ((4165 . 5625) (* 9007199254740992 3) -> 27021597764222976) ((4166 . 5625) (* 9007199254740993 -1) -> -9007199254740993) ((4167 . 5625) (* 9007199254740993 0) -> 0) ((4168 . 5625) (* 9007199254740993 1) -> 9007199254740993) ((4169 . 5625) (* 9007199254740993 2) -> 18014398509481986) ((4170 . 5625) (* 9007199254740993 3) -> 27021597764222979) ((4171 . 5625) (* 9007199254740994 -1) -> -9007199254740994) ((4172 . 5625) (* 9007199254740994 0) -> 0) ((4173 . 5625) (* 9007199254740994 1) -> 9007199254740994) ((4174 . 5625) (* 9007199254740994 2) -> 18014398509481988) ((4175 . 5625) (* 9007199254740994 3) -> 27021597764222982) ((4176 . 5625) (* 9007199254740990 -3) -> -27021597764222970) ((4177 . 5625) (* 9007199254740990 -2) -> -18014398509481980) ((4178 . 5625) (* 9007199254740990 -1) -> -9007199254740990) ((4179 . 5625) (* 9007199254740990 0) -> 0) ((4180 . 5625) (* 9007199254740990 1) -> 9007199254740990) ((4181 . 5625) (* 9007199254740991 -3) -> -27021597764222973) ((4182 . 5625) (* 9007199254740991 -2) -> -18014398509481982) ((4183 . 5625) (* 9007199254740991 -1) -> -9007199254740991) ((4184 . 5625) (* 9007199254740991 0) -> 0) ((4185 . 5625) (* 9007199254740991 1) -> 9007199254740991) ((4186 . 5625) (* 9007199254740992 -3) -> -27021597764222976) ((4187 . 5625) (* 9007199254740992 -2) -> -18014398509481984) ((4188 . 5625) (* 9007199254740992 -1) -> -9007199254740992) ((4189 . 5625) (* 9007199254740992 0) -> 0) ((4190 . 5625) (* 9007199254740992 1) -> 9007199254740992) ((4191 . 5625) (* 9007199254740993 -3) -> -27021597764222979) ((4192 . 5625) (* 9007199254740993 -2) -> -18014398509481986) ((4193 . 5625) (* 9007199254740993 -1) -> -9007199254740993) ((4194 . 5625) (* 9007199254740993 0) -> 0) ((4195 . 5625) (* 9007199254740993 1) -> 9007199254740993) ((4196 . 5625) (* 9007199254740994 -3) -> -27021597764222982) ((4197 . 5625) (* 9007199254740994 -2) -> -18014398509481988) ((4198 . 5625) (* 9007199254740994 -1) -> -9007199254740994) ((4199 . 5625) (* 9007199254740994 0) -> 0) ((4200 . 5625) (* 9007199254740994 1) -> 9007199254740994) ((4201 . 5625) (* 9007199254740990 0) -> 0) ((4202 . 5625) (* 9007199254740990 1) -> 9007199254740990) ((4203 . 5625) (* 9007199254740990 2) -> 18014398509481980) ((4204 . 5625) (* 9007199254740990 3) -> 27021597764222970) ((4205 . 5625) (* 9007199254740990 4) -> 36028797018963960) ((4206 . 5625) (* 9007199254740991 0) -> 0) ((4207 . 5625) (* 9007199254740991 1) -> 9007199254740991) ((4208 . 5625) (* 9007199254740991 2) -> 18014398509481982) ((4209 . 5625) (* 9007199254740991 3) -> 27021597764222973) ((4210 . 5625) (* 9007199254740991 4) -> 36028797018963964) ((4211 . 5625) (* 9007199254740992 0) -> 0) ((4212 . 5625) (* 9007199254740992 1) -> 9007199254740992) ((4213 . 5625) (* 9007199254740992 2) -> 18014398509481984) ((4214 . 5625) (* 9007199254740992 3) -> 27021597764222976) ((4215 . 5625) (* 9007199254740992 4) -> 36028797018963968) ((4216 . 5625) (* 9007199254740993 0) -> 0) ((4217 . 5625) (* 9007199254740993 1) -> 9007199254740993) ((4218 . 5625) (* 9007199254740993 2) -> 18014398509481986) ((4219 . 5625) (* 9007199254740993 3) -> 27021597764222979) ((4220 . 5625) (* 9007199254740993 4) -> 36028797018963972) ((4221 . 5625) (* 9007199254740994 0) -> 0) ((4222 . 5625) (* 9007199254740994 1) -> 9007199254740994) ((4223 . 5625) (* 9007199254740994 2) -> 18014398509481988) ((4224 . 5625) (* 9007199254740994 3) -> 27021597764222982) ((4225 . 5625) (* 9007199254740994 4) -> 36028797018963976) ((4226 . 5625) (* 9007199254740990 -4) -> -36028797018963960) ((4227 . 5625) (* 9007199254740990 -3) -> -27021597764222970) ((4228 . 5625) (* 9007199254740990 -2) -> -18014398509481980) ((4229 . 5625) (* 9007199254740990 -1) -> -9007199254740990) ((4230 . 5625) (* 9007199254740990 0) -> 0) ((4231 . 5625) (* 9007199254740991 -4) -> -36028797018963964) ((4232 . 5625) (* 9007199254740991 -3) -> -27021597764222973) ((4233 . 5625) (* 9007199254740991 -2) -> -18014398509481982) ((4234 . 5625) (* 9007199254740991 -1) -> -9007199254740991) ((4235 . 5625) (* 9007199254740991 0) -> 0) ((4236 . 5625) (* 9007199254740992 -4) -> -36028797018963968) ((4237 . 5625) (* 9007199254740992 -3) -> -27021597764222976) ((4238 . 5625) (* 9007199254740992 -2) -> -18014398509481984) ((4239 . 5625) (* 9007199254740992 -1) -> -9007199254740992) ((4240 . 5625) (* 9007199254740992 0) -> 0) ((4241 . 5625) (* 9007199254740993 -4) -> -36028797018963972) ((4242 . 5625) (* 9007199254740993 -3) -> -27021597764222979) ((4243 . 5625) (* 9007199254740993 -2) -> -18014398509481986) ((4244 . 5625) (* 9007199254740993 -1) -> -9007199254740993) ((4245 . 5625) (* 9007199254740993 0) -> 0) ((4246 . 5625) (* 9007199254740994 -4) -> -36028797018963976) ((4247 . 5625) (* 9007199254740994 -3) -> -27021597764222982) ((4248 . 5625) (* 9007199254740994 -2) -> -18014398509481988) ((4249 . 5625) (* 9007199254740994 -1) -> -9007199254740994) ((4250 . 5625) (* 9007199254740994 0) -> 0) ((4251 . 5625) (* 9007199254740990 4611686018427387901) -> 41538374868278611777850336014761990) ((4252 . 5625) (* 9007199254740990 4611686018427387902) -> 41538374868278611786857535269502980) ((4253 . 5625) (* 9007199254740990 4611686018427387903) -> 41538374868278611795864734524243970) ((4254 . 5625) (* 9007199254740990 4611686018427387904) -> 41538374868278611804871933778984960) ((4255 . 5625) (* 9007199254740990 4611686018427387905) -> 41538374868278611813879133033725950) ((4256 . 5625) (* 9007199254740991 4611686018427387901) -> 41538374868278616389536354442149891) ((4257 . 5625) (* 9007199254740991 4611686018427387902) -> 41538374868278616398543553696890882) ((4258 . 5625) (* 9007199254740991 4611686018427387903) -> 41538374868278616407550752951631873) ((4259 . 5625) (* 9007199254740991 4611686018427387904) -> 41538374868278616416557952206372864) ((4260 . 5625) (* 9007199254740991 4611686018427387905) -> 41538374868278616425565151461113855) ((4261 . 5625) (* 9007199254740992 4611686018427387901) -> 41538374868278621001222372869537792) ((4262 . 5625) (* 9007199254740992 4611686018427387902) -> 41538374868278621010229572124278784) ((4263 . 5625) (* 9007199254740992 4611686018427387903) -> 41538374868278621019236771379019776) ((4264 . 5625) (* 9007199254740992 4611686018427387904) -> 41538374868278621028243970633760768) ((4265 . 5625) (* 9007199254740992 4611686018427387905) -> 41538374868278621037251169888501760) ((4266 . 5625) (* 9007199254740993 4611686018427387901) -> 41538374868278625612908391296925693) ((4267 . 5625) (* 9007199254740993 4611686018427387902) -> 41538374868278625621915590551666686) ((4268 . 5625) (* 9007199254740993 4611686018427387903) -> 41538374868278625630922789806407679) ((4269 . 5625) (* 9007199254740993 4611686018427387904) -> 41538374868278625639929989061148672) ((4270 . 5625) (* 9007199254740993 4611686018427387905) -> 41538374868278625648937188315889665) ((4271 . 5625) (* 9007199254740994 4611686018427387901) -> 41538374868278630224594409724313594) ((4272 . 5625) (* 9007199254740994 4611686018427387902) -> 41538374868278630233601608979054588) ((4273 . 5625) (* 9007199254740994 4611686018427387903) -> 41538374868278630242608808233795582) ((4274 . 5625) (* 9007199254740994 4611686018427387904) -> 41538374868278630251616007488536576) ((4275 . 5625) (* 9007199254740994 4611686018427387905) -> 41538374868278630260623206743277570) ((4276 . 5625) (* 9007199254740990 -4611686018427387906) -> -41538374868278611822886332288466940) ((4277 . 5625) (* 9007199254740990 -4611686018427387905) -> -41538374868278611813879133033725950) ((4278 . 5625) (* 9007199254740990 -4611686018427387904) -> -41538374868278611804871933778984960) ((4279 . 5625) (* 9007199254740990 -4611686018427387903) -> -41538374868278611795864734524243970) ((4280 . 5625) (* 9007199254740990 -4611686018427387902) -> -41538374868278611786857535269502980) ((4281 . 5625) (* 9007199254740991 -4611686018427387906) -> -41538374868278616434572350715854846) ((4282 . 5625) (* 9007199254740991 -4611686018427387905) -> -41538374868278616425565151461113855) ((4283 . 5625) (* 9007199254740991 -4611686018427387904) -> -41538374868278616416557952206372864) ((4284 . 5625) (* 9007199254740991 -4611686018427387903) -> -41538374868278616407550752951631873) ((4285 . 5625) (* 9007199254740991 -4611686018427387902) -> -41538374868278616398543553696890882) ((4286 . 5625) (* 9007199254740992 -4611686018427387906) -> -41538374868278621046258369143242752) ((4287 . 5625) (* 9007199254740992 -4611686018427387905) -> -41538374868278621037251169888501760) ((4288 . 5625) (* 9007199254740992 -4611686018427387904) -> -41538374868278621028243970633760768) ((4289 . 5625) (* 9007199254740992 -4611686018427387903) -> -41538374868278621019236771379019776) ((4290 . 5625) (* 9007199254740992 -4611686018427387902) -> -41538374868278621010229572124278784) ((4291 . 5625) (* 9007199254740993 -4611686018427387906) -> -41538374868278625657944387570630658) ((4292 . 5625) (* 9007199254740993 -4611686018427387905) -> -41538374868278625648937188315889665) ((4293 . 5625) (* 9007199254740993 -4611686018427387904) -> -41538374868278625639929989061148672) ((4294 . 5625) (* 9007199254740993 -4611686018427387903) -> -41538374868278625630922789806407679) ((4295 . 5625) (* 9007199254740993 -4611686018427387902) -> -41538374868278625621915590551666686) ((4296 . 5625) (* 9007199254740994 -4611686018427387906) -> -41538374868278630269630405998018564) ((4297 . 5625) (* 9007199254740994 -4611686018427387905) -> -41538374868278630260623206743277570) ((4298 . 5625) (* 9007199254740994 -4611686018427387904) -> -41538374868278630251616007488536576) ((4299 . 5625) (* 9007199254740994 -4611686018427387903) -> -41538374868278630242608808233795582) ((4300 . 5625) (* 9007199254740994 -4611686018427387902) -> -41538374868278630233601608979054588) ((4301 . 5625) (* 9007199254740990 4611686018427387902) -> 41538374868278611786857535269502980) ((4302 . 5625) (* 9007199254740990 4611686018427387903) -> 41538374868278611795864734524243970) ((4303 . 5625) (* 9007199254740990 4611686018427387904) -> 41538374868278611804871933778984960) ((4304 . 5625) (* 9007199254740990 4611686018427387905) -> 41538374868278611813879133033725950) ((4305 . 5625) (* 9007199254740990 4611686018427387906) -> 41538374868278611822886332288466940) ((4306 . 5625) (* 9007199254740991 4611686018427387902) -> 41538374868278616398543553696890882) ((4307 . 5625) (* 9007199254740991 4611686018427387903) -> 41538374868278616407550752951631873) ((4308 . 5625) (* 9007199254740991 4611686018427387904) -> 41538374868278616416557952206372864) ((4309 . 5625) (* 9007199254740991 4611686018427387905) -> 41538374868278616425565151461113855) ((4310 . 5625) (* 9007199254740991 4611686018427387906) -> 41538374868278616434572350715854846) ((4311 . 5625) (* 9007199254740992 4611686018427387902) -> 41538374868278621010229572124278784) ((4312 . 5625) (* 9007199254740992 4611686018427387903) -> 41538374868278621019236771379019776) ((4313 . 5625) (* 9007199254740992 4611686018427387904) -> 41538374868278621028243970633760768) ((4314 . 5625) (* 9007199254740992 4611686018427387905) -> 41538374868278621037251169888501760) ((4315 . 5625) (* 9007199254740992 4611686018427387906) -> 41538374868278621046258369143242752) ((4316 . 5625) (* 9007199254740993 4611686018427387902) -> 41538374868278625621915590551666686) ((4317 . 5625) (* 9007199254740993 4611686018427387903) -> 41538374868278625630922789806407679) ((4318 . 5625) (* 9007199254740993 4611686018427387904) -> 41538374868278625639929989061148672) ((4319 . 5625) (* 9007199254740993 4611686018427387905) -> 41538374868278625648937188315889665) ((4320 . 5625) (* 9007199254740993 4611686018427387906) -> 41538374868278625657944387570630658) ((4321 . 5625) (* 9007199254740994 4611686018427387902) -> 41538374868278630233601608979054588) ((4322 . 5625) (* 9007199254740994 4611686018427387903) -> 41538374868278630242608808233795582) ((4323 . 5625) (* 9007199254740994 4611686018427387904) -> 41538374868278630251616007488536576) ((4324 . 5625) (* 9007199254740994 4611686018427387905) -> 41538374868278630260623206743277570) ((4325 . 5625) (* 9007199254740994 4611686018427387906) -> 41538374868278630269630405998018564) ((4326 . 5625) (* 9007199254740990 -4611686018427387907) -> -41538374868278611831893531543207930) ((4327 . 5625) (* 9007199254740990 -4611686018427387906) -> -41538374868278611822886332288466940) ((4328 . 5625) (* 9007199254740990 -4611686018427387905) -> -41538374868278611813879133033725950) ((4329 . 5625) (* 9007199254740990 -4611686018427387904) -> -41538374868278611804871933778984960) ((4330 . 5625) (* 9007199254740990 -4611686018427387903) -> -41538374868278611795864734524243970) ((4331 . 5625) (* 9007199254740991 -4611686018427387907) -> -41538374868278616443579549970595837) ((4332 . 5625) (* 9007199254740991 -4611686018427387906) -> -41538374868278616434572350715854846) ((4333 . 5625) (* 9007199254740991 -4611686018427387905) -> -41538374868278616425565151461113855) ((4334 . 5625) (* 9007199254740991 -4611686018427387904) -> -41538374868278616416557952206372864) ((4335 . 5625) (* 9007199254740991 -4611686018427387903) -> -41538374868278616407550752951631873) ((4336 . 5625) (* 9007199254740992 -4611686018427387907) -> -41538374868278621055265568397983744) ((4337 . 5625) (* 9007199254740992 -4611686018427387906) -> -41538374868278621046258369143242752) ((4338 . 5625) (* 9007199254740992 -4611686018427387905) -> -41538374868278621037251169888501760) ((4339 . 5625) (* 9007199254740992 -4611686018427387904) -> -41538374868278621028243970633760768) ((4340 . 5625) (* 9007199254740992 -4611686018427387903) -> -41538374868278621019236771379019776) ((4341 . 5625) (* 9007199254740993 -4611686018427387907) -> -41538374868278625666951586825371651) ((4342 . 5625) (* 9007199254740993 -4611686018427387906) -> -41538374868278625657944387570630658) ((4343 . 5625) (* 9007199254740993 -4611686018427387905) -> -41538374868278625648937188315889665) ((4344 . 5625) (* 9007199254740993 -4611686018427387904) -> -41538374868278625639929989061148672) ((4345 . 5625) (* 9007199254740993 -4611686018427387903) -> -41538374868278625630922789806407679) ((4346 . 5625) (* 9007199254740994 -4611686018427387907) -> -41538374868278630278637605252759558) ((4347 . 5625) (* 9007199254740994 -4611686018427387906) -> -41538374868278630269630405998018564) ((4348 . 5625) (* 9007199254740994 -4611686018427387905) -> -41538374868278630260623206743277570) ((4349 . 5625) (* 9007199254740994 -4611686018427387904) -> -41538374868278630251616007488536576) ((4350 . 5625) (* 9007199254740994 -4611686018427387903) -> -41538374868278630242608808233795582) ((4351 . 5625) (* 9007199254740990 1103515243) -> 9939581674344922481910570) ((4352 . 5625) (* 9007199254740990 1103515244) -> 9939581683352121736651560) ((4353 . 5625) (* 9007199254740990 1103515245) -> 9939581692359320991392550) ((4354 . 5625) (* 9007199254740990 1103515246) -> 9939581701366520246133540) ((4355 . 5625) (* 9007199254740990 1103515247) -> 9939581710373719500874530) ((4356 . 5625) (* 9007199254740991 1103515243) -> 9939581674344923585425813) ((4357 . 5625) (* 9007199254740991 1103515244) -> 9939581683352122840166804) ((4358 . 5625) (* 9007199254740991 1103515245) -> 9939581692359322094907795) ((4359 . 5625) (* 9007199254740991 1103515246) -> 9939581701366521349648786) ((4360 . 5625) (* 9007199254740991 1103515247) -> 9939581710373720604389777) ((4361 . 5625) (* 9007199254740992 1103515243) -> 9939581674344924688941056) ((4362 . 5625) (* 9007199254740992 1103515244) -> 9939581683352123943682048) ((4363 . 5625) (* 9007199254740992 1103515245) -> 9939581692359323198423040) ((4364 . 5625) (* 9007199254740992 1103515246) -> 9939581701366522453164032) ((4365 . 5625) (* 9007199254740992 1103515247) -> 9939581710373721707905024) ((4366 . 5625) (* 9007199254740993 1103515243) -> 9939581674344925792456299) ((4367 . 5625) (* 9007199254740993 1103515244) -> 9939581683352125047197292) ((4368 . 5625) (* 9007199254740993 1103515245) -> 9939581692359324301938285) ((4369 . 5625) (* 9007199254740993 1103515246) -> 9939581701366523556679278) ((4370 . 5625) (* 9007199254740993 1103515247) -> 9939581710373722811420271) ((4371 . 5625) (* 9007199254740994 1103515243) -> 9939581674344926895971542) ((4372 . 5625) (* 9007199254740994 1103515244) -> 9939581683352126150712536) ((4373 . 5625) (* 9007199254740994 1103515245) -> 9939581692359325405453530) ((4374 . 5625) (* 9007199254740994 1103515246) -> 9939581701366524660194524) ((4375 . 5625) (* 9007199254740994 1103515247) -> 9939581710373723914935518) ((4376 . 5625) (* 9007199254740990 631629063) -> 5689208825526349821392370) ((4377 . 5625) (* 9007199254740990 631629064) -> 5689208834533549076133360) ((4378 . 5625) (* 9007199254740990 631629065) -> 5689208843540748330874350) ((4379 . 5625) (* 9007199254740990 631629066) -> 5689208852547947585615340) ((4380 . 5625) (* 9007199254740990 631629067) -> 5689208861555146840356330) ((4381 . 5625) (* 9007199254740991 631629063) -> 5689208825526350453021433) ((4382 . 5625) (* 9007199254740991 631629064) -> 5689208834533549707762424) ((4383 . 5625) (* 9007199254740991 631629065) -> 5689208843540748962503415) ((4384 . 5625) (* 9007199254740991 631629066) -> 5689208852547948217244406) ((4385 . 5625) (* 9007199254740991 631629067) -> 5689208861555147471985397) ((4386 . 5625) (* 9007199254740992 631629063) -> 5689208825526351084650496) ((4387 . 5625) (* 9007199254740992 631629064) -> 5689208834533550339391488) ((4388 . 5625) (* 9007199254740992 631629065) -> 5689208843540749594132480) ((4389 . 5625) (* 9007199254740992 631629066) -> 5689208852547948848873472) ((4390 . 5625) (* 9007199254740992 631629067) -> 5689208861555148103614464) ((4391 . 5625) (* 9007199254740993 631629063) -> 5689208825526351716279559) ((4392 . 5625) (* 9007199254740993 631629064) -> 5689208834533550971020552) ((4393 . 5625) (* 9007199254740993 631629065) -> 5689208843540750225761545) ((4394 . 5625) (* 9007199254740993 631629066) -> 5689208852547949480502538) ((4395 . 5625) (* 9007199254740993 631629067) -> 5689208861555148735243531) ((4396 . 5625) (* 9007199254740994 631629063) -> 5689208825526352347908622) ((4397 . 5625) (* 9007199254740994 631629064) -> 5689208834533551602649616) ((4398 . 5625) (* 9007199254740994 631629065) -> 5689208843540750857390610) ((4399 . 5625) (* 9007199254740994 631629066) -> 5689208852547950112131604) ((4400 . 5625) (* 9007199254740994 631629067) -> 5689208861555149366872598) ((4401 . 5625) (* 9007199254740990 9007199254740990) -> 81129638414606645666991986180100) ((4402 . 5625) (* 9007199254740990 9007199254740991) -> 81129638414606654674191240921090) ((4403 . 5625) (* 9007199254740990 9007199254740992) -> 81129638414606663681390495662080) ((4404 . 5625) (* 9007199254740990 9007199254740993) -> 81129638414606672688589750403070) ((4405 . 5625) (* 9007199254740990 9007199254740994) -> 81129638414606681695789005144060) ((4406 . 5625) (* 9007199254740991 9007199254740990) -> 81129638414606654674191240921090) ((4407 . 5625) (* 9007199254740991 9007199254740991) -> 81129638414606663681390495662081) ((4408 . 5625) (* 9007199254740991 9007199254740992) -> 81129638414606672688589750403072) ((4409 . 5625) (* 9007199254740991 9007199254740993) -> 81129638414606681695789005144063) ((4410 . 5625) (* 9007199254740991 9007199254740994) -> 81129638414606690702988259885054) ((4411 . 5625) (* 9007199254740992 9007199254740990) -> 81129638414606663681390495662080) ((4412 . 5625) (* 9007199254740992 9007199254740991) -> 81129638414606672688589750403072) ((4413 . 5625) (* 9007199254740992 9007199254740992) -> 81129638414606681695789005144064) ((4414 . 5625) (* 9007199254740992 9007199254740993) -> 81129638414606690702988259885056) ((4415 . 5625) (* 9007199254740992 9007199254740994) -> 81129638414606699710187514626048) ((4416 . 5625) (* 9007199254740993 9007199254740990) -> 81129638414606672688589750403070) ((4417 . 5625) (* 9007199254740993 9007199254740991) -> 81129638414606681695789005144063) ((4418 . 5625) (* 9007199254740993 9007199254740992) -> 81129638414606690702988259885056) ((4419 . 5625) (* 9007199254740993 9007199254740993) -> 81129638414606699710187514626049) ((4420 . 5625) (* 9007199254740993 9007199254740994) -> 81129638414606708717386769367042) ((4421 . 5625) (* 9007199254740994 9007199254740990) -> 81129638414606681695789005144060) ((4422 . 5625) (* 9007199254740994 9007199254740991) -> 81129638414606690702988259885054) ((4423 . 5625) (* 9007199254740994 9007199254740992) -> 81129638414606699710187514626048) ((4424 . 5625) (* 9007199254740994 9007199254740993) -> 81129638414606708717386769367042) ((4425 . 5625) (* 9007199254740994 9007199254740994) -> 81129638414606717724586024108036) ((4426 . 5625) (* 9007199254740990 -9007199254740994) -> -81129638414606681695789005144060) ((4427 . 5625) (* 9007199254740990 -9007199254740993) -> -81129638414606672688589750403070) ((4428 . 5625) (* 9007199254740990 -9007199254740992) -> -81129638414606663681390495662080) ((4429 . 5625) (* 9007199254740990 -9007199254740991) -> -81129638414606654674191240921090) ((4430 . 5625) (* 9007199254740990 -9007199254740990) -> -81129638414606645666991986180100) ((4431 . 5625) (* 9007199254740991 -9007199254740994) -> -81129638414606690702988259885054) ((4432 . 5625) (* 9007199254740991 -9007199254740993) -> -81129638414606681695789005144063) ((4433 . 5625) (* 9007199254740991 -9007199254740992) -> -81129638414606672688589750403072) ((4434 . 5625) (* 9007199254740991 -9007199254740991) -> -81129638414606663681390495662081) ((4435 . 5625) (* 9007199254740991 -9007199254740990) -> -81129638414606654674191240921090) ((4436 . 5625) (* 9007199254740992 -9007199254740994) -> -81129638414606699710187514626048) ((4437 . 5625) (* 9007199254740992 -9007199254740993) -> -81129638414606690702988259885056) ((4438 . 5625) (* 9007199254740992 -9007199254740992) -> -81129638414606681695789005144064) ((4439 . 5625) (* 9007199254740992 -9007199254740991) -> -81129638414606672688589750403072) ((4440 . 5625) (* 9007199254740992 -9007199254740990) -> -81129638414606663681390495662080) ((4441 . 5625) (* 9007199254740993 -9007199254740994) -> -81129638414606708717386769367042) ((4442 . 5625) (* 9007199254740993 -9007199254740993) -> -81129638414606699710187514626049) ((4443 . 5625) (* 9007199254740993 -9007199254740992) -> -81129638414606690702988259885056) ((4444 . 5625) (* 9007199254740993 -9007199254740991) -> -81129638414606681695789005144063) ((4445 . 5625) (* 9007199254740993 -9007199254740990) -> -81129638414606672688589750403070) ((4446 . 5625) (* 9007199254740994 -9007199254740994) -> -81129638414606717724586024108036) ((4447 . 5625) (* 9007199254740994 -9007199254740993) -> -81129638414606708717386769367042) ((4448 . 5625) (* 9007199254740994 -9007199254740992) -> -81129638414606699710187514626048) ((4449 . 5625) (* 9007199254740994 -9007199254740991) -> -81129638414606690702988259885054) ((4450 . 5625) (* 9007199254740994 -9007199254740990) -> -81129638414606681695789005144060) ((4451 . 5625) (* 9007199254740990 12343) -> 111175860401268039570) ((4452 . 5625) (* 9007199254740990 12344) -> 111184867600522780560) ((4453 . 5625) (* 9007199254740990 12345) -> 111193874799777521550) ((4454 . 5625) (* 9007199254740990 12346) -> 111202881999032262540) ((4455 . 5625) (* 9007199254740990 12347) -> 111211889198287003530) ((4456 . 5625) (* 9007199254740991 12343) -> 111175860401268051913) ((4457 . 5625) (* 9007199254740991 12344) -> 111184867600522792904) ((4458 . 5625) (* 9007199254740991 12345) -> 111193874799777533895) ((4459 . 5625) (* 9007199254740991 12346) -> 111202881999032274886) ((4460 . 5625) (* 9007199254740991 12347) -> 111211889198287015877) ((4461 . 5625) (* 9007199254740992 12343) -> 111175860401268064256) ((4462 . 5625) (* 9007199254740992 12344) -> 111184867600522805248) ((4463 . 5625) (* 9007199254740992 12345) -> 111193874799777546240) ((4464 . 5625) (* 9007199254740992 12346) -> 111202881999032287232) ((4465 . 5625) (* 9007199254740992 12347) -> 111211889198287028224) ((4466 . 5625) (* 9007199254740993 12343) -> 111175860401268076599) ((4467 . 5625) (* 9007199254740993 12344) -> 111184867600522817592) ((4468 . 5625) (* 9007199254740993 12345) -> 111193874799777558585) ((4469 . 5625) (* 9007199254740993 12346) -> 111202881999032299578) ((4470 . 5625) (* 9007199254740993 12347) -> 111211889198287040571) ((4471 . 5625) (* 9007199254740994 12343) -> 111175860401268088942) ((4472 . 5625) (* 9007199254740994 12344) -> 111184867600522829936) ((4473 . 5625) (* 9007199254740994 12345) -> 111193874799777570930) ((4474 . 5625) (* 9007199254740994 12346) -> 111202881999032311924) ((4475 . 5625) (* 9007199254740994 12347) -> 111211889198287052918) ((4476 . 5625) (* 9007199254740990 4294967294) -> 38685626209653726491181060) ((4477 . 5625) (* 9007199254740990 4294967295) -> 38685626218660925745922050) ((4478 . 5625) (* 9007199254740990 4294967296) -> 38685626227668125000663040) ((4479 . 5625) (* 9007199254740990 4294967297) -> 38685626236675324255404030) ((4480 . 5625) (* 9007199254740990 4294967298) -> 38685626245682523510145020) ((4481 . 5625) (* 9007199254740991 4294967294) -> 38685626209653730786148354) ((4482 . 5625) (* 9007199254740991 4294967295) -> 38685626218660930040889345) ((4483 . 5625) (* 9007199254740991 4294967296) -> 38685626227668129295630336) ((4484 . 5625) (* 9007199254740991 4294967297) -> 38685626236675328550371327) ((4485 . 5625) (* 9007199254740991 4294967298) -> 38685626245682527805112318) ((4486 . 5625) (* 9007199254740992 4294967294) -> 38685626209653735081115648) ((4487 . 5625) (* 9007199254740992 4294967295) -> 38685626218660934335856640) ((4488 . 5625) (* 9007199254740992 4294967296) -> 38685626227668133590597632) ((4489 . 5625) (* 9007199254740992 4294967297) -> 38685626236675332845338624) ((4490 . 5625) (* 9007199254740992 4294967298) -> 38685626245682532100079616) ((4491 . 5625) (* 9007199254740993 4294967294) -> 38685626209653739376082942) ((4492 . 5625) (* 9007199254740993 4294967295) -> 38685626218660938630823935) ((4493 . 5625) (* 9007199254740993 4294967296) -> 38685626227668137885564928) ((4494 . 5625) (* 9007199254740993 4294967297) -> 38685626236675337140305921) ((4495 . 5625) (* 9007199254740993 4294967298) -> 38685626245682536395046914) ((4496 . 5625) (* 9007199254740994 4294967294) -> 38685626209653743671050236) ((4497 . 5625) (* 9007199254740994 4294967295) -> 38685626218660942925791230) ((4498 . 5625) (* 9007199254740994 4294967296) -> 38685626227668142180532224) ((4499 . 5625) (* 9007199254740994 4294967297) -> 38685626236675341435273218) ((4500 . 5625) (* 9007199254740994 4294967298) -> 38685626245682540690014212) ((4501 . 5625) (* -9007199254740994 -2) -> 18014398509481988) ((4502 . 5625) (* -9007199254740994 -1) -> 9007199254740994) ((4503 . 5625) (* -9007199254740994 0) -> 0) ((4504 . 5625) (* -9007199254740994 1) -> -9007199254740994) ((4505 . 5625) (* -9007199254740994 2) -> -18014398509481988) ((4506 . 5625) (* -9007199254740993 -2) -> 18014398509481986) ((4507 . 5625) (* -9007199254740993 -1) -> 9007199254740993) ((4508 . 5625) (* -9007199254740993 0) -> 0) ((4509 . 5625) (* -9007199254740993 1) -> -9007199254740993) ((4510 . 5625) (* -9007199254740993 2) -> -18014398509481986) ((4511 . 5625) (* -9007199254740992 -2) -> 18014398509481984) ((4512 . 5625) (* -9007199254740992 -1) -> 9007199254740992) ((4513 . 5625) (* -9007199254740992 0) -> 0) ((4514 . 5625) (* -9007199254740992 1) -> -9007199254740992) ((4515 . 5625) (* -9007199254740992 2) -> -18014398509481984) ((4516 . 5625) (* -9007199254740991 -2) -> 18014398509481982) ((4517 . 5625) (* -9007199254740991 -1) -> 9007199254740991) ((4518 . 5625) (* -9007199254740991 0) -> 0) ((4519 . 5625) (* -9007199254740991 1) -> -9007199254740991) ((4520 . 5625) (* -9007199254740991 2) -> -18014398509481982) ((4521 . 5625) (* -9007199254740990 -2) -> 18014398509481980) ((4522 . 5625) (* -9007199254740990 -1) -> 9007199254740990) ((4523 . 5625) (* -9007199254740990 0) -> 0) ((4524 . 5625) (* -9007199254740990 1) -> -9007199254740990) ((4525 . 5625) (* -9007199254740990 2) -> -18014398509481980) ((4526 . 5625) (* -9007199254740994 -1) -> 9007199254740994) ((4527 . 5625) (* -9007199254740994 0) -> 0) ((4528 . 5625) (* -9007199254740994 1) -> -9007199254740994) ((4529 . 5625) (* -9007199254740994 2) -> -18014398509481988) ((4530 . 5625) (* -9007199254740994 3) -> -27021597764222982) ((4531 . 5625) (* -9007199254740993 -1) -> 9007199254740993) ((4532 . 5625) (* -9007199254740993 0) -> 0) ((4533 . 5625) (* -9007199254740993 1) -> -9007199254740993) ((4534 . 5625) (* -9007199254740993 2) -> -18014398509481986) ((4535 . 5625) (* -9007199254740993 3) -> -27021597764222979) ((4536 . 5625) (* -9007199254740992 -1) -> 9007199254740992) ((4537 . 5625) (* -9007199254740992 0) -> 0) ((4538 . 5625) (* -9007199254740992 1) -> -9007199254740992) ((4539 . 5625) (* -9007199254740992 2) -> -18014398509481984) ((4540 . 5625) (* -9007199254740992 3) -> -27021597764222976) ((4541 . 5625) (* -9007199254740991 -1) -> 9007199254740991) ((4542 . 5625) (* -9007199254740991 0) -> 0) ((4543 . 5625) (* -9007199254740991 1) -> -9007199254740991) ((4544 . 5625) (* -9007199254740991 2) -> -18014398509481982) ((4545 . 5625) (* -9007199254740991 3) -> -27021597764222973) ((4546 . 5625) (* -9007199254740990 -1) -> 9007199254740990) ((4547 . 5625) (* -9007199254740990 0) -> 0) ((4548 . 5625) (* -9007199254740990 1) -> -9007199254740990) ((4549 . 5625) (* -9007199254740990 2) -> -18014398509481980) ((4550 . 5625) (* -9007199254740990 3) -> -27021597764222970) ((4551 . 5625) (* -9007199254740994 -3) -> 27021597764222982) ((4552 . 5625) (* -9007199254740994 -2) -> 18014398509481988) ((4553 . 5625) (* -9007199254740994 -1) -> 9007199254740994) ((4554 . 5625) (* -9007199254740994 0) -> 0) ((4555 . 5625) (* -9007199254740994 1) -> -9007199254740994) ((4556 . 5625) (* -9007199254740993 -3) -> 27021597764222979) ((4557 . 5625) (* -9007199254740993 -2) -> 18014398509481986) ((4558 . 5625) (* -9007199254740993 -1) -> 9007199254740993) ((4559 . 5625) (* -9007199254740993 0) -> 0) ((4560 . 5625) (* -9007199254740993 1) -> -9007199254740993) ((4561 . 5625) (* -9007199254740992 -3) -> 27021597764222976) ((4562 . 5625) (* -9007199254740992 -2) -> 18014398509481984) ((4563 . 5625) (* -9007199254740992 -1) -> 9007199254740992) ((4564 . 5625) (* -9007199254740992 0) -> 0) ((4565 . 5625) (* -9007199254740992 1) -> -9007199254740992) ((4566 . 5625) (* -9007199254740991 -3) -> 27021597764222973) ((4567 . 5625) (* -9007199254740991 -2) -> 18014398509481982) ((4568 . 5625) (* -9007199254740991 -1) -> 9007199254740991) ((4569 . 5625) (* -9007199254740991 0) -> 0) ((4570 . 5625) (* -9007199254740991 1) -> -9007199254740991) ((4571 . 5625) (* -9007199254740990 -3) -> 27021597764222970) ((4572 . 5625) (* -9007199254740990 -2) -> 18014398509481980) ((4573 . 5625) (* -9007199254740990 -1) -> 9007199254740990) ((4574 . 5625) (* -9007199254740990 0) -> 0) ((4575 . 5625) (* -9007199254740990 1) -> -9007199254740990) ((4576 . 5625) (* -9007199254740994 0) -> 0) ((4577 . 5625) (* -9007199254740994 1) -> -9007199254740994) ((4578 . 5625) (* -9007199254740994 2) -> -18014398509481988) ((4579 . 5625) (* -9007199254740994 3) -> -27021597764222982) ((4580 . 5625) (* -9007199254740994 4) -> -36028797018963976) ((4581 . 5625) (* -9007199254740993 0) -> 0) ((4582 . 5625) (* -9007199254740993 1) -> -9007199254740993) ((4583 . 5625) (* -9007199254740993 2) -> -18014398509481986) ((4584 . 5625) (* -9007199254740993 3) -> -27021597764222979) ((4585 . 5625) (* -9007199254740993 4) -> -36028797018963972) ((4586 . 5625) (* -9007199254740992 0) -> 0) ((4587 . 5625) (* -9007199254740992 1) -> -9007199254740992) ((4588 . 5625) (* -9007199254740992 2) -> -18014398509481984) ((4589 . 5625) (* -9007199254740992 3) -> -27021597764222976) ((4590 . 5625) (* -9007199254740992 4) -> -36028797018963968) ((4591 . 5625) (* -9007199254740991 0) -> 0) ((4592 . 5625) (* -9007199254740991 1) -> -9007199254740991) ((4593 . 5625) (* -9007199254740991 2) -> -18014398509481982) ((4594 . 5625) (* -9007199254740991 3) -> -27021597764222973) ((4595 . 5625) (* -9007199254740991 4) -> -36028797018963964) ((4596 . 5625) (* -9007199254740990 0) -> 0) ((4597 . 5625) (* -9007199254740990 1) -> -9007199254740990) ((4598 . 5625) (* -9007199254740990 2) -> -18014398509481980) ((4599 . 5625) (* -9007199254740990 3) -> -27021597764222970) ((4600 . 5625) (* -9007199254740990 4) -> -36028797018963960) ((4601 . 5625) (* -9007199254740994 -4) -> 36028797018963976) ((4602 . 5625) (* -9007199254740994 -3) -> 27021597764222982) ((4603 . 5625) (* -9007199254740994 -2) -> 18014398509481988) ((4604 . 5625) (* -9007199254740994 -1) -> 9007199254740994) ((4605 . 5625) (* -9007199254740994 0) -> 0) ((4606 . 5625) (* -9007199254740993 -4) -> 36028797018963972) ((4607 . 5625) (* -9007199254740993 -3) -> 27021597764222979) ((4608 . 5625) (* -9007199254740993 -2) -> 18014398509481986) ((4609 . 5625) (* -9007199254740993 -1) -> 9007199254740993) ((4610 . 5625) (* -9007199254740993 0) -> 0) ((4611 . 5625) (* -9007199254740992 -4) -> 36028797018963968) ((4612 . 5625) (* -9007199254740992 -3) -> 27021597764222976) ((4613 . 5625) (* -9007199254740992 -2) -> 18014398509481984) ((4614 . 5625) (* -9007199254740992 -1) -> 9007199254740992) ((4615 . 5625) (* -9007199254740992 0) -> 0) ((4616 . 5625) (* -9007199254740991 -4) -> 36028797018963964) ((4617 . 5625) (* -9007199254740991 -3) -> 27021597764222973) ((4618 . 5625) (* -9007199254740991 -2) -> 18014398509481982) ((4619 . 5625) (* -9007199254740991 -1) -> 9007199254740991) ((4620 . 5625) (* -9007199254740991 0) -> 0) ((4621 . 5625) (* -9007199254740990 -4) -> 36028797018963960) ((4622 . 5625) (* -9007199254740990 -3) -> 27021597764222970) ((4623 . 5625) (* -9007199254740990 -2) -> 18014398509481980) ((4624 . 5625) (* -9007199254740990 -1) -> 9007199254740990) ((4625 . 5625) (* -9007199254740990 0) -> 0) ((4626 . 5625) (* -9007199254740994 4611686018427387901) -> -41538374868278630224594409724313594) ((4627 . 5625) (* -9007199254740994 4611686018427387902) -> -41538374868278630233601608979054588) ((4628 . 5625) (* -9007199254740994 4611686018427387903) -> -41538374868278630242608808233795582) ((4629 . 5625) (* -9007199254740994 4611686018427387904) -> -41538374868278630251616007488536576) ((4630 . 5625) (* -9007199254740994 4611686018427387905) -> -41538374868278630260623206743277570) ((4631 . 5625) (* -9007199254740993 4611686018427387901) -> -41538374868278625612908391296925693) ((4632 . 5625) (* -9007199254740993 4611686018427387902) -> -41538374868278625621915590551666686) ((4633 . 5625) (* -9007199254740993 4611686018427387903) -> -41538374868278625630922789806407679) ((4634 . 5625) (* -9007199254740993 4611686018427387904) -> -41538374868278625639929989061148672) ((4635 . 5625) (* -9007199254740993 4611686018427387905) -> -41538374868278625648937188315889665) ((4636 . 5625) (* -9007199254740992 4611686018427387901) -> -41538374868278621001222372869537792) ((4637 . 5625) (* -9007199254740992 4611686018427387902) -> -41538374868278621010229572124278784) ((4638 . 5625) (* -9007199254740992 4611686018427387903) -> -41538374868278621019236771379019776) ((4639 . 5625) (* -9007199254740992 4611686018427387904) -> -41538374868278621028243970633760768) ((4640 . 5625) (* -9007199254740992 4611686018427387905) -> -41538374868278621037251169888501760) ((4641 . 5625) (* -9007199254740991 4611686018427387901) -> -41538374868278616389536354442149891) ((4642 . 5625) (* -9007199254740991 4611686018427387902) -> -41538374868278616398543553696890882) ((4643 . 5625) (* -9007199254740991 4611686018427387903) -> -41538374868278616407550752951631873) ((4644 . 5625) (* -9007199254740991 4611686018427387904) -> -41538374868278616416557952206372864) ((4645 . 5625) (* -9007199254740991 4611686018427387905) -> -41538374868278616425565151461113855) ((4646 . 5625) (* -9007199254740990 4611686018427387901) -> -41538374868278611777850336014761990) ((4647 . 5625) (* -9007199254740990 4611686018427387902) -> -41538374868278611786857535269502980) ((4648 . 5625) (* -9007199254740990 4611686018427387903) -> -41538374868278611795864734524243970) ((4649 . 5625) (* -9007199254740990 4611686018427387904) -> -41538374868278611804871933778984960) ((4650 . 5625) (* -9007199254740990 4611686018427387905) -> -41538374868278611813879133033725950) ((4651 . 5625) (* -9007199254740994 -4611686018427387906) -> 41538374868278630269630405998018564) ((4652 . 5625) (* -9007199254740994 -4611686018427387905) -> 41538374868278630260623206743277570) ((4653 . 5625) (* -9007199254740994 -4611686018427387904) -> 41538374868278630251616007488536576) ((4654 . 5625) (* -9007199254740994 -4611686018427387903) -> 41538374868278630242608808233795582) ((4655 . 5625) (* -9007199254740994 -4611686018427387902) -> 41538374868278630233601608979054588) ((4656 . 5625) (* -9007199254740993 -4611686018427387906) -> 41538374868278625657944387570630658) ((4657 . 5625) (* -9007199254740993 -4611686018427387905) -> 41538374868278625648937188315889665) ((4658 . 5625) (* -9007199254740993 -4611686018427387904) -> 41538374868278625639929989061148672) ((4659 . 5625) (* -9007199254740993 -4611686018427387903) -> 41538374868278625630922789806407679) ((4660 . 5625) (* -9007199254740993 -4611686018427387902) -> 41538374868278625621915590551666686) ((4661 . 5625) (* -9007199254740992 -4611686018427387906) -> 41538374868278621046258369143242752) ((4662 . 5625) (* -9007199254740992 -4611686018427387905) -> 41538374868278621037251169888501760) ((4663 . 5625) (* -9007199254740992 -4611686018427387904) -> 41538374868278621028243970633760768) ((4664 . 5625) (* -9007199254740992 -4611686018427387903) -> 41538374868278621019236771379019776) ((4665 . 5625) (* -9007199254740992 -4611686018427387902) -> 41538374868278621010229572124278784) ((4666 . 5625) (* -9007199254740991 -4611686018427387906) -> 41538374868278616434572350715854846) ((4667 . 5625) (* -9007199254740991 -4611686018427387905) -> 41538374868278616425565151461113855) ((4668 . 5625) (* -9007199254740991 -4611686018427387904) -> 41538374868278616416557952206372864) ((4669 . 5625) (* -9007199254740991 -4611686018427387903) -> 41538374868278616407550752951631873) ((4670 . 5625) (* -9007199254740991 -4611686018427387902) -> 41538374868278616398543553696890882) ((4671 . 5625) (* -9007199254740990 -4611686018427387906) -> 41538374868278611822886332288466940) ((4672 . 5625) (* -9007199254740990 -4611686018427387905) -> 41538374868278611813879133033725950) ((4673 . 5625) (* -9007199254740990 -4611686018427387904) -> 41538374868278611804871933778984960) ((4674 . 5625) (* -9007199254740990 -4611686018427387903) -> 41538374868278611795864734524243970) ((4675 . 5625) (* -9007199254740990 -4611686018427387902) -> 41538374868278611786857535269502980) ((4676 . 5625) (* -9007199254740994 4611686018427387902) -> -41538374868278630233601608979054588) ((4677 . 5625) (* -9007199254740994 4611686018427387903) -> -41538374868278630242608808233795582) ((4678 . 5625) (* -9007199254740994 4611686018427387904) -> -41538374868278630251616007488536576) ((4679 . 5625) (* -9007199254740994 4611686018427387905) -> -41538374868278630260623206743277570) ((4680 . 5625) (* -9007199254740994 4611686018427387906) -> -41538374868278630269630405998018564) ((4681 . 5625) (* -9007199254740993 4611686018427387902) -> -41538374868278625621915590551666686) ((4682 . 5625) (* -9007199254740993 4611686018427387903) -> -41538374868278625630922789806407679) ((4683 . 5625) (* -9007199254740993 4611686018427387904) -> -41538374868278625639929989061148672) ((4684 . 5625) (* -9007199254740993 4611686018427387905) -> -41538374868278625648937188315889665) ((4685 . 5625) (* -9007199254740993 4611686018427387906) -> -41538374868278625657944387570630658) ((4686 . 5625) (* -9007199254740992 4611686018427387902) -> -41538374868278621010229572124278784) ((4687 . 5625) (* -9007199254740992 4611686018427387903) -> -41538374868278621019236771379019776) ((4688 . 5625) (* -9007199254740992 4611686018427387904) -> -41538374868278621028243970633760768) ((4689 . 5625) (* -9007199254740992 4611686018427387905) -> -41538374868278621037251169888501760) ((4690 . 5625) (* -9007199254740992 4611686018427387906) -> -41538374868278621046258369143242752) ((4691 . 5625) (* -9007199254740991 4611686018427387902) -> -41538374868278616398543553696890882) ((4692 . 5625) (* -9007199254740991 4611686018427387903) -> -41538374868278616407550752951631873) ((4693 . 5625) (* -9007199254740991 4611686018427387904) -> -41538374868278616416557952206372864) ((4694 . 5625) (* -9007199254740991 4611686018427387905) -> -41538374868278616425565151461113855) ((4695 . 5625) (* -9007199254740991 4611686018427387906) -> -41538374868278616434572350715854846) ((4696 . 5625) (* -9007199254740990 4611686018427387902) -> -41538374868278611786857535269502980) ((4697 . 5625) (* -9007199254740990 4611686018427387903) -> -41538374868278611795864734524243970) ((4698 . 5625) (* -9007199254740990 4611686018427387904) -> -41538374868278611804871933778984960) ((4699 . 5625) (* -9007199254740990 4611686018427387905) -> -41538374868278611813879133033725950) ((4700 . 5625) (* -9007199254740990 4611686018427387906) -> -41538374868278611822886332288466940) ((4701 . 5625) (* -9007199254740994 -4611686018427387907) -> 41538374868278630278637605252759558) ((4702 . 5625) (* -9007199254740994 -4611686018427387906) -> 41538374868278630269630405998018564) ((4703 . 5625) (* -9007199254740994 -4611686018427387905) -> 41538374868278630260623206743277570) ((4704 . 5625) (* -9007199254740994 -4611686018427387904) -> 41538374868278630251616007488536576) ((4705 . 5625) (* -9007199254740994 -4611686018427387903) -> 41538374868278630242608808233795582) ((4706 . 5625) (* -9007199254740993 -4611686018427387907) -> 41538374868278625666951586825371651) ((4707 . 5625) (* -9007199254740993 -4611686018427387906) -> 41538374868278625657944387570630658) ((4708 . 5625) (* -9007199254740993 -4611686018427387905) -> 41538374868278625648937188315889665) ((4709 . 5625) (* -9007199254740993 -4611686018427387904) -> 41538374868278625639929989061148672) ((4710 . 5625) (* -9007199254740993 -4611686018427387903) -> 41538374868278625630922789806407679) ((4711 . 5625) (* -9007199254740992 -4611686018427387907) -> 41538374868278621055265568397983744) ((4712 . 5625) (* -9007199254740992 -4611686018427387906) -> 41538374868278621046258369143242752) ((4713 . 5625) (* -9007199254740992 -4611686018427387905) -> 41538374868278621037251169888501760) ((4714 . 5625) (* -9007199254740992 -4611686018427387904) -> 41538374868278621028243970633760768) ((4715 . 5625) (* -9007199254740992 -4611686018427387903) -> 41538374868278621019236771379019776) ((4716 . 5625) (* -9007199254740991 -4611686018427387907) -> 41538374868278616443579549970595837) ((4717 . 5625) (* -9007199254740991 -4611686018427387906) -> 41538374868278616434572350715854846) ((4718 . 5625) (* -9007199254740991 -4611686018427387905) -> 41538374868278616425565151461113855) ((4719 . 5625) (* -9007199254740991 -4611686018427387904) -> 41538374868278616416557952206372864) ((4720 . 5625) (* -9007199254740991 -4611686018427387903) -> 41538374868278616407550752951631873) ((4721 . 5625) (* -9007199254740990 -4611686018427387907) -> 41538374868278611831893531543207930) ((4722 . 5625) (* -9007199254740990 -4611686018427387906) -> 41538374868278611822886332288466940) ((4723 . 5625) (* -9007199254740990 -4611686018427387905) -> 41538374868278611813879133033725950) ((4724 . 5625) (* -9007199254740990 -4611686018427387904) -> 41538374868278611804871933778984960) ((4725 . 5625) (* -9007199254740990 -4611686018427387903) -> 41538374868278611795864734524243970) ((4726 . 5625) (* -9007199254740994 1103515243) -> -9939581674344926895971542) ((4727 . 5625) (* -9007199254740994 1103515244) -> -9939581683352126150712536) ((4728 . 5625) (* -9007199254740994 1103515245) -> -9939581692359325405453530) ((4729 . 5625) (* -9007199254740994 1103515246) -> -9939581701366524660194524) ((4730 . 5625) (* -9007199254740994 1103515247) -> -9939581710373723914935518) ((4731 . 5625) (* -9007199254740993 1103515243) -> -9939581674344925792456299) ((4732 . 5625) (* -9007199254740993 1103515244) -> -9939581683352125047197292) ((4733 . 5625) (* -9007199254740993 1103515245) -> -9939581692359324301938285) ((4734 . 5625) (* -9007199254740993 1103515246) -> -9939581701366523556679278) ((4735 . 5625) (* -9007199254740993 1103515247) -> -9939581710373722811420271) ((4736 . 5625) (* -9007199254740992 1103515243) -> -9939581674344924688941056) ((4737 . 5625) (* -9007199254740992 1103515244) -> -9939581683352123943682048) ((4738 . 5625) (* -9007199254740992 1103515245) -> -9939581692359323198423040) ((4739 . 5625) (* -9007199254740992 1103515246) -> -9939581701366522453164032) ((4740 . 5625) (* -9007199254740992 1103515247) -> -9939581710373721707905024) ((4741 . 5625) (* -9007199254740991 1103515243) -> -9939581674344923585425813) ((4742 . 5625) (* -9007199254740991 1103515244) -> -9939581683352122840166804) ((4743 . 5625) (* -9007199254740991 1103515245) -> -9939581692359322094907795) ((4744 . 5625) (* -9007199254740991 1103515246) -> -9939581701366521349648786) ((4745 . 5625) (* -9007199254740991 1103515247) -> -9939581710373720604389777) ((4746 . 5625) (* -9007199254740990 1103515243) -> -9939581674344922481910570) ((4747 . 5625) (* -9007199254740990 1103515244) -> -9939581683352121736651560) ((4748 . 5625) (* -9007199254740990 1103515245) -> -9939581692359320991392550) ((4749 . 5625) (* -9007199254740990 1103515246) -> -9939581701366520246133540) ((4750 . 5625) (* -9007199254740990 1103515247) -> -9939581710373719500874530) ((4751 . 5625) (* -9007199254740994 631629063) -> -5689208825526352347908622) ((4752 . 5625) (* -9007199254740994 631629064) -> -5689208834533551602649616) ((4753 . 5625) (* -9007199254740994 631629065) -> -5689208843540750857390610) ((4754 . 5625) (* -9007199254740994 631629066) -> -5689208852547950112131604) ((4755 . 5625) (* -9007199254740994 631629067) -> -5689208861555149366872598) ((4756 . 5625) (* -9007199254740993 631629063) -> -5689208825526351716279559) ((4757 . 5625) (* -9007199254740993 631629064) -> -5689208834533550971020552) ((4758 . 5625) (* -9007199254740993 631629065) -> -5689208843540750225761545) ((4759 . 5625) (* -9007199254740993 631629066) -> -5689208852547949480502538) ((4760 . 5625) (* -9007199254740993 631629067) -> -5689208861555148735243531) ((4761 . 5625) (* -9007199254740992 631629063) -> -5689208825526351084650496) ((4762 . 5625) (* -9007199254740992 631629064) -> -5689208834533550339391488) ((4763 . 5625) (* -9007199254740992 631629065) -> -5689208843540749594132480) ((4764 . 5625) (* -9007199254740992 631629066) -> -5689208852547948848873472) ((4765 . 5625) (* -9007199254740992 631629067) -> -5689208861555148103614464) ((4766 . 5625) (* -9007199254740991 631629063) -> -5689208825526350453021433) ((4767 . 5625) (* -9007199254740991 631629064) -> -5689208834533549707762424) ((4768 . 5625) (* -9007199254740991 631629065) -> -5689208843540748962503415) ((4769 . 5625) (* -9007199254740991 631629066) -> -5689208852547948217244406) ((4770 . 5625) (* -9007199254740991 631629067) -> -5689208861555147471985397) ((4771 . 5625) (* -9007199254740990 631629063) -> -5689208825526349821392370) ((4772 . 5625) (* -9007199254740990 631629064) -> -5689208834533549076133360) ((4773 . 5625) (* -9007199254740990 631629065) -> -5689208843540748330874350) ((4774 . 5625) (* -9007199254740990 631629066) -> -5689208852547947585615340) ((4775 . 5625) (* -9007199254740990 631629067) -> -5689208861555146840356330) ((4776 . 5625) (* -9007199254740994 9007199254740990) -> -81129638414606681695789005144060) ((4777 . 5625) (* -9007199254740994 9007199254740991) -> -81129638414606690702988259885054) ((4778 . 5625) (* -9007199254740994 9007199254740992) -> -81129638414606699710187514626048) ((4779 . 5625) (* -9007199254740994 9007199254740993) -> -81129638414606708717386769367042) ((4780 . 5625) (* -9007199254740994 9007199254740994) -> -81129638414606717724586024108036) ((4781 . 5625) (* -9007199254740993 9007199254740990) -> -81129638414606672688589750403070) ((4782 . 5625) (* -9007199254740993 9007199254740991) -> -81129638414606681695789005144063) ((4783 . 5625) (* -9007199254740993 9007199254740992) -> -81129638414606690702988259885056) ((4784 . 5625) (* -9007199254740993 9007199254740993) -> -81129638414606699710187514626049) ((4785 . 5625) (* -9007199254740993 9007199254740994) -> -81129638414606708717386769367042) ((4786 . 5625) (* -9007199254740992 9007199254740990) -> -81129638414606663681390495662080) ((4787 . 5625) (* -9007199254740992 9007199254740991) -> -81129638414606672688589750403072) ((4788 . 5625) (* -9007199254740992 9007199254740992) -> -81129638414606681695789005144064) ((4789 . 5625) (* -9007199254740992 9007199254740993) -> -81129638414606690702988259885056) ((4790 . 5625) (* -9007199254740992 9007199254740994) -> -81129638414606699710187514626048) ((4791 . 5625) (* -9007199254740991 9007199254740990) -> -81129638414606654674191240921090) ((4792 . 5625) (* -9007199254740991 9007199254740991) -> -81129638414606663681390495662081) ((4793 . 5625) (* -9007199254740991 9007199254740992) -> -81129638414606672688589750403072) ((4794 . 5625) (* -9007199254740991 9007199254740993) -> -81129638414606681695789005144063) ((4795 . 5625) (* -9007199254740991 9007199254740994) -> -81129638414606690702988259885054) ((4796 . 5625) (* -9007199254740990 9007199254740990) -> -81129638414606645666991986180100) ((4797 . 5625) (* -9007199254740990 9007199254740991) -> -81129638414606654674191240921090) ((4798 . 5625) (* -9007199254740990 9007199254740992) -> -81129638414606663681390495662080) ((4799 . 5625) (* -9007199254740990 9007199254740993) -> -81129638414606672688589750403070) ((4800 . 5625) (* -9007199254740990 9007199254740994) -> -81129638414606681695789005144060) ((4801 . 5625) (* -9007199254740994 -9007199254740994) -> 81129638414606717724586024108036) ((4802 . 5625) (* -9007199254740994 -9007199254740993) -> 81129638414606708717386769367042) ((4803 . 5625) (* -9007199254740994 -9007199254740992) -> 81129638414606699710187514626048) ((4804 . 5625) (* -9007199254740994 -9007199254740991) -> 81129638414606690702988259885054) ((4805 . 5625) (* -9007199254740994 -9007199254740990) -> 81129638414606681695789005144060) ((4806 . 5625) (* -9007199254740993 -9007199254740994) -> 81129638414606708717386769367042) ((4807 . 5625) (* -9007199254740993 -9007199254740993) -> 81129638414606699710187514626049) ((4808 . 5625) (* -9007199254740993 -9007199254740992) -> 81129638414606690702988259885056) ((4809 . 5625) (* -9007199254740993 -9007199254740991) -> 81129638414606681695789005144063) ((4810 . 5625) (* -9007199254740993 -9007199254740990) -> 81129638414606672688589750403070) ((4811 . 5625) (* -9007199254740992 -9007199254740994) -> 81129638414606699710187514626048) ((4812 . 5625) (* -9007199254740992 -9007199254740993) -> 81129638414606690702988259885056) ((4813 . 5625) (* -9007199254740992 -9007199254740992) -> 81129638414606681695789005144064) ((4814 . 5625) (* -9007199254740992 -9007199254740991) -> 81129638414606672688589750403072) ((4815 . 5625) (* -9007199254740992 -9007199254740990) -> 81129638414606663681390495662080) ((4816 . 5625) (* -9007199254740991 -9007199254740994) -> 81129638414606690702988259885054) ((4817 . 5625) (* -9007199254740991 -9007199254740993) -> 81129638414606681695789005144063) ((4818 . 5625) (* -9007199254740991 -9007199254740992) -> 81129638414606672688589750403072) ((4819 . 5625) (* -9007199254740991 -9007199254740991) -> 81129638414606663681390495662081) ((4820 . 5625) (* -9007199254740991 -9007199254740990) -> 81129638414606654674191240921090) ((4821 . 5625) (* -9007199254740990 -9007199254740994) -> 81129638414606681695789005144060) ((4822 . 5625) (* -9007199254740990 -9007199254740993) -> 81129638414606672688589750403070) ((4823 . 5625) (* -9007199254740990 -9007199254740992) -> 81129638414606663681390495662080) ((4824 . 5625) (* -9007199254740990 -9007199254740991) -> 81129638414606654674191240921090) ((4825 . 5625) (* -9007199254740990 -9007199254740990) -> 81129638414606645666991986180100) ((4826 . 5625) (* -9007199254740994 12343) -> -111175860401268088942) ((4827 . 5625) (* -9007199254740994 12344) -> -111184867600522829936) ((4828 . 5625) (* -9007199254740994 12345) -> -111193874799777570930) ((4829 . 5625) (* -9007199254740994 12346) -> -111202881999032311924) ((4830 . 5625) (* -9007199254740994 12347) -> -111211889198287052918) ((4831 . 5625) (* -9007199254740993 12343) -> -111175860401268076599) ((4832 . 5625) (* -9007199254740993 12344) -> -111184867600522817592) ((4833 . 5625) (* -9007199254740993 12345) -> -111193874799777558585) ((4834 . 5625) (* -9007199254740993 12346) -> -111202881999032299578) ((4835 . 5625) (* -9007199254740993 12347) -> -111211889198287040571) ((4836 . 5625) (* -9007199254740992 12343) -> -111175860401268064256) ((4837 . 5625) (* -9007199254740992 12344) -> -111184867600522805248) ((4838 . 5625) (* -9007199254740992 12345) -> -111193874799777546240) ((4839 . 5625) (* -9007199254740992 12346) -> -111202881999032287232) ((4840 . 5625) (* -9007199254740992 12347) -> -111211889198287028224) ((4841 . 5625) (* -9007199254740991 12343) -> -111175860401268051913) ((4842 . 5625) (* -9007199254740991 12344) -> -111184867600522792904) ((4843 . 5625) (* -9007199254740991 12345) -> -111193874799777533895) ((4844 . 5625) (* -9007199254740991 12346) -> -111202881999032274886) ((4845 . 5625) (* -9007199254740991 12347) -> -111211889198287015877) ((4846 . 5625) (* -9007199254740990 12343) -> -111175860401268039570) ((4847 . 5625) (* -9007199254740990 12344) -> -111184867600522780560) ((4848 . 5625) (* -9007199254740990 12345) -> -111193874799777521550) ((4849 . 5625) (* -9007199254740990 12346) -> -111202881999032262540) ((4850 . 5625) (* -9007199254740990 12347) -> -111211889198287003530) ((4851 . 5625) (* -9007199254740994 4294967294) -> -38685626209653743671050236) ((4852 . 5625) (* -9007199254740994 4294967295) -> -38685626218660942925791230) ((4853 . 5625) (* -9007199254740994 4294967296) -> -38685626227668142180532224) ((4854 . 5625) (* -9007199254740994 4294967297) -> -38685626236675341435273218) ((4855 . 5625) (* -9007199254740994 4294967298) -> -38685626245682540690014212) ((4856 . 5625) (* -9007199254740993 4294967294) -> -38685626209653739376082942) ((4857 . 5625) (* -9007199254740993 4294967295) -> -38685626218660938630823935) ((4858 . 5625) (* -9007199254740993 4294967296) -> -38685626227668137885564928) ((4859 . 5625) (* -9007199254740993 4294967297) -> -38685626236675337140305921) ((4860 . 5625) (* -9007199254740993 4294967298) -> -38685626245682536395046914) ((4861 . 5625) (* -9007199254740992 4294967294) -> -38685626209653735081115648) ((4862 . 5625) (* -9007199254740992 4294967295) -> -38685626218660934335856640) ((4863 . 5625) (* -9007199254740992 4294967296) -> -38685626227668133590597632) ((4864 . 5625) (* -9007199254740992 4294967297) -> -38685626236675332845338624) ((4865 . 5625) (* -9007199254740992 4294967298) -> -38685626245682532100079616) ((4866 . 5625) (* -9007199254740991 4294967294) -> -38685626209653730786148354) ((4867 . 5625) (* -9007199254740991 4294967295) -> -38685626218660930040889345) ((4868 . 5625) (* -9007199254740991 4294967296) -> -38685626227668129295630336) ((4869 . 5625) (* -9007199254740991 4294967297) -> -38685626236675328550371327) ((4870 . 5625) (* -9007199254740991 4294967298) -> -38685626245682527805112318) ((4871 . 5625) (* -9007199254740990 4294967294) -> -38685626209653726491181060) ((4872 . 5625) (* -9007199254740990 4294967295) -> -38685626218660925745922050) ((4873 . 5625) (* -9007199254740990 4294967296) -> -38685626227668125000663040) ((4874 . 5625) (* -9007199254740990 4294967297) -> -38685626236675324255404030) ((4875 . 5625) (* -9007199254740990 4294967298) -> -38685626245682523510145020) ((4876 . 5625) (* 12343 -2) -> -24686) ((4877 . 5625) (* 12343 -1) -> -12343) ((4878 . 5625) (* 12343 0) -> 0) ((4879 . 5625) (* 12343 1) -> 12343) ((4880 . 5625) (* 12343 2) -> 24686) ((4881 . 5625) (* 12344 -2) -> -24688) ((4882 . 5625) (* 12344 -1) -> -12344) ((4883 . 5625) (* 12344 0) -> 0) ((4884 . 5625) (* 12344 1) -> 12344) ((4885 . 5625) (* 12344 2) -> 24688) ((4886 . 5625) (* 12345 -2) -> -24690) ((4887 . 5625) (* 12345 -1) -> -12345) ((4888 . 5625) (* 12345 0) -> 0) ((4889 . 5625) (* 12345 1) -> 12345) ((4890 . 5625) (* 12345 2) -> 24690) ((4891 . 5625) (* 12346 -2) -> -24692) ((4892 . 5625) (* 12346 -1) -> -12346) ((4893 . 5625) (* 12346 0) -> 0) ((4894 . 5625) (* 12346 1) -> 12346) ((4895 . 5625) (* 12346 2) -> 24692) ((4896 . 5625) (* 12347 -2) -> -24694) ((4897 . 5625) (* 12347 -1) -> -12347) ((4898 . 5625) (* 12347 0) -> 0) ((4899 . 5625) (* 12347 1) -> 12347) ((4900 . 5625) (* 12347 2) -> 24694) ((4901 . 5625) (* 12343 -1) -> -12343) ((4902 . 5625) (* 12343 0) -> 0) ((4903 . 5625) (* 12343 1) -> 12343) ((4904 . 5625) (* 12343 2) -> 24686) ((4905 . 5625) (* 12343 3) -> 37029) ((4906 . 5625) (* 12344 -1) -> -12344) ((4907 . 5625) (* 12344 0) -> 0) ((4908 . 5625) (* 12344 1) -> 12344) ((4909 . 5625) (* 12344 2) -> 24688) ((4910 . 5625) (* 12344 3) -> 37032) ((4911 . 5625) (* 12345 -1) -> -12345) ((4912 . 5625) (* 12345 0) -> 0) ((4913 . 5625) (* 12345 1) -> 12345) ((4914 . 5625) (* 12345 2) -> 24690) ((4915 . 5625) (* 12345 3) -> 37035) ((4916 . 5625) (* 12346 -1) -> -12346) ((4917 . 5625) (* 12346 0) -> 0) ((4918 . 5625) (* 12346 1) -> 12346) ((4919 . 5625) (* 12346 2) -> 24692) ((4920 . 5625) (* 12346 3) -> 37038) ((4921 . 5625) (* 12347 -1) -> -12347) ((4922 . 5625) (* 12347 0) -> 0) ((4923 . 5625) (* 12347 1) -> 12347) ((4924 . 5625) (* 12347 2) -> 24694) ((4925 . 5625) (* 12347 3) -> 37041) ((4926 . 5625) (* 12343 -3) -> -37029) ((4927 . 5625) (* 12343 -2) -> -24686) ((4928 . 5625) (* 12343 -1) -> -12343) ((4929 . 5625) (* 12343 0) -> 0) ((4930 . 5625) (* 12343 1) -> 12343) ((4931 . 5625) (* 12344 -3) -> -37032) ((4932 . 5625) (* 12344 -2) -> -24688) ((4933 . 5625) (* 12344 -1) -> -12344) ((4934 . 5625) (* 12344 0) -> 0) ((4935 . 5625) (* 12344 1) -> 12344) ((4936 . 5625) (* 12345 -3) -> -37035) ((4937 . 5625) (* 12345 -2) -> -24690) ((4938 . 5625) (* 12345 -1) -> -12345) ((4939 . 5625) (* 12345 0) -> 0) ((4940 . 5625) (* 12345 1) -> 12345) ((4941 . 5625) (* 12346 -3) -> -37038) ((4942 . 5625) (* 12346 -2) -> -24692) ((4943 . 5625) (* 12346 -1) -> -12346) ((4944 . 5625) (* 12346 0) -> 0) ((4945 . 5625) (* 12346 1) -> 12346) ((4946 . 5625) (* 12347 -3) -> -37041) ((4947 . 5625) (* 12347 -2) -> -24694) ((4948 . 5625) (* 12347 -1) -> -12347) ((4949 . 5625) (* 12347 0) -> 0) ((4950 . 5625) (* 12347 1) -> 12347) ((4951 . 5625) (* 12343 0) -> 0) ((4952 . 5625) (* 12343 1) -> 12343) ((4953 . 5625) (* 12343 2) -> 24686) ((4954 . 5625) (* 12343 3) -> 37029) ((4955 . 5625) (* 12343 4) -> 49372) ((4956 . 5625) (* 12344 0) -> 0) ((4957 . 5625) (* 12344 1) -> 12344) ((4958 . 5625) (* 12344 2) -> 24688) ((4959 . 5625) (* 12344 3) -> 37032) ((4960 . 5625) (* 12344 4) -> 49376) ((4961 . 5625) (* 12345 0) -> 0) ((4962 . 5625) (* 12345 1) -> 12345) ((4963 . 5625) (* 12345 2) -> 24690) ((4964 . 5625) (* 12345 3) -> 37035) ((4965 . 5625) (* 12345 4) -> 49380) ((4966 . 5625) (* 12346 0) -> 0) ((4967 . 5625) (* 12346 1) -> 12346) ((4968 . 5625) (* 12346 2) -> 24692) ((4969 . 5625) (* 12346 3) -> 37038) ((4970 . 5625) (* 12346 4) -> 49384) ((4971 . 5625) (* 12347 0) -> 0) ((4972 . 5625) (* 12347 1) -> 12347) ((4973 . 5625) (* 12347 2) -> 24694) ((4974 . 5625) (* 12347 3) -> 37041) ((4975 . 5625) (* 12347 4) -> 49388) ((4976 . 5625) (* 12343 -4) -> -49372) ((4977 . 5625) (* 12343 -3) -> -37029) ((4978 . 5625) (* 12343 -2) -> -24686) ((4979 . 5625) (* 12343 -1) -> -12343) ((4980 . 5625) (* 12343 0) -> 0) ((4981 . 5625) (* 12344 -4) -> -49376) ((4982 . 5625) (* 12344 -3) -> -37032) ((4983 . 5625) (* 12344 -2) -> -24688) ((4984 . 5625) (* 12344 -1) -> -12344) ((4985 . 5625) (* 12344 0) -> 0) ((4986 . 5625) (* 12345 -4) -> -49380) ((4987 . 5625) (* 12345 -3) -> -37035) ((4988 . 5625) (* 12345 -2) -> -24690) ((4989 . 5625) (* 12345 -1) -> -12345) ((4990 . 5625) (* 12345 0) -> 0) ((4991 . 5625) (* 12346 -4) -> -49384) ((4992 . 5625) (* 12346 -3) -> -37038) ((4993 . 5625) (* 12346 -2) -> -24692) ((4994 . 5625) (* 12346 -1) -> -12346) ((4995 . 5625) (* 12346 0) -> 0) ((4996 . 5625) (* 12347 -4) -> -49388) ((4997 . 5625) (* 12347 -3) -> -37041) ((4998 . 5625) (* 12347 -2) -> -24694) ((4999 . 5625) (* 12347 -1) -> -12347) ((5000 . 5625) (* 12347 0) -> 0) ((5001 . 5625) (* 12343 4611686018427387901) -> 56922040525449248862043) ((5002 . 5625) (* 12343 4611686018427387902) -> 56922040525449248874386) ((5003 . 5625) (* 12343 4611686018427387903) -> 56922040525449248886729) ((5004 . 5625) (* 12343 4611686018427387904) -> 56922040525449248899072) ((5005 . 5625) (* 12343 4611686018427387905) -> 56922040525449248911415) ((5006 . 5625) (* 12344 4611686018427387901) -> 56926652211467676249944) ((5007 . 5625) (* 12344 4611686018427387902) -> 56926652211467676262288) ((5008 . 5625) (* 12344 4611686018427387903) -> 56926652211467676274632) ((5009 . 5625) (* 12344 4611686018427387904) -> 56926652211467676286976) ((5010 . 5625) (* 12344 4611686018427387905) -> 56926652211467676299320) ((5011 . 5625) (* 12345 4611686018427387901) -> 56931263897486103637845) ((5012 . 5625) (* 12345 4611686018427387902) -> 56931263897486103650190) ((5013 . 5625) (* 12345 4611686018427387903) -> 56931263897486103662535) ((5014 . 5625) (* 12345 4611686018427387904) -> 56931263897486103674880) ((5015 . 5625) (* 12345 4611686018427387905) -> 56931263897486103687225) ((5016 . 5625) (* 12346 4611686018427387901) -> 56935875583504531025746) ((5017 . 5625) (* 12346 4611686018427387902) -> 56935875583504531038092) ((5018 . 5625) (* 12346 4611686018427387903) -> 56935875583504531050438) ((5019 . 5625) (* 12346 4611686018427387904) -> 56935875583504531062784) ((5020 . 5625) (* 12346 4611686018427387905) -> 56935875583504531075130) ((5021 . 5625) (* 12347 4611686018427387901) -> 56940487269522958413647) ((5022 . 5625) (* 12347 4611686018427387902) -> 56940487269522958425994) ((5023 . 5625) (* 12347 4611686018427387903) -> 56940487269522958438341) ((5024 . 5625) (* 12347 4611686018427387904) -> 56940487269522958450688) ((5025 . 5625) (* 12347 4611686018427387905) -> 56940487269522958463035) ((5026 . 5625) (* 12343 -4611686018427387906) -> -56922040525449248923758) ((5027 . 5625) (* 12343 -4611686018427387905) -> -56922040525449248911415) ((5028 . 5625) (* 12343 -4611686018427387904) -> -56922040525449248899072) ((5029 . 5625) (* 12343 -4611686018427387903) -> -56922040525449248886729) ((5030 . 5625) (* 12343 -4611686018427387902) -> -56922040525449248874386) ((5031 . 5625) (* 12344 -4611686018427387906) -> -56926652211467676311664) ((5032 . 5625) (* 12344 -4611686018427387905) -> -56926652211467676299320) ((5033 . 5625) (* 12344 -4611686018427387904) -> -56926652211467676286976) ((5034 . 5625) (* 12344 -4611686018427387903) -> -56926652211467676274632) ((5035 . 5625) (* 12344 -4611686018427387902) -> -56926652211467676262288) ((5036 . 5625) (* 12345 -4611686018427387906) -> -56931263897486103699570) ((5037 . 5625) (* 12345 -4611686018427387905) -> -56931263897486103687225) ((5038 . 5625) (* 12345 -4611686018427387904) -> -56931263897486103674880) ((5039 . 5625) (* 12345 -4611686018427387903) -> -56931263897486103662535) ((5040 . 5625) (* 12345 -4611686018427387902) -> -56931263897486103650190) ((5041 . 5625) (* 12346 -4611686018427387906) -> -56935875583504531087476) ((5042 . 5625) (* 12346 -4611686018427387905) -> -56935875583504531075130) ((5043 . 5625) (* 12346 -4611686018427387904) -> -56935875583504531062784) ((5044 . 5625) (* 12346 -4611686018427387903) -> -56935875583504531050438) ((5045 . 5625) (* 12346 -4611686018427387902) -> -56935875583504531038092) ((5046 . 5625) (* 12347 -4611686018427387906) -> -56940487269522958475382) ((5047 . 5625) (* 12347 -4611686018427387905) -> -56940487269522958463035) ((5048 . 5625) (* 12347 -4611686018427387904) -> -56940487269522958450688) ((5049 . 5625) (* 12347 -4611686018427387903) -> -56940487269522958438341) ((5050 . 5625) (* 12347 -4611686018427387902) -> -56940487269522958425994) ((5051 . 5625) (* 12343 4611686018427387902) -> 56922040525449248874386) ((5052 . 5625) (* 12343 4611686018427387903) -> 56922040525449248886729) ((5053 . 5625) (* 12343 4611686018427387904) -> 56922040525449248899072) ((5054 . 5625) (* 12343 4611686018427387905) -> 56922040525449248911415) ((5055 . 5625) (* 12343 4611686018427387906) -> 56922040525449248923758) ((5056 . 5625) (* 12344 4611686018427387902) -> 56926652211467676262288) ((5057 . 5625) (* 12344 4611686018427387903) -> 56926652211467676274632) ((5058 . 5625) (* 12344 4611686018427387904) -> 56926652211467676286976) ((5059 . 5625) (* 12344 4611686018427387905) -> 56926652211467676299320) ((5060 . 5625) (* 12344 4611686018427387906) -> 56926652211467676311664) ((5061 . 5625) (* 12345 4611686018427387902) -> 56931263897486103650190) ((5062 . 5625) (* 12345 4611686018427387903) -> 56931263897486103662535) ((5063 . 5625) (* 12345 4611686018427387904) -> 56931263897486103674880) ((5064 . 5625) (* 12345 4611686018427387905) -> 56931263897486103687225) ((5065 . 5625) (* 12345 4611686018427387906) -> 56931263897486103699570) ((5066 . 5625) (* 12346 4611686018427387902) -> 56935875583504531038092) ((5067 . 5625) (* 12346 4611686018427387903) -> 56935875583504531050438) ((5068 . 5625) (* 12346 4611686018427387904) -> 56935875583504531062784) ((5069 . 5625) (* 12346 4611686018427387905) -> 56935875583504531075130) ((5070 . 5625) (* 12346 4611686018427387906) -> 56935875583504531087476) ((5071 . 5625) (* 12347 4611686018427387902) -> 56940487269522958425994) ((5072 . 5625) (* 12347 4611686018427387903) -> 56940487269522958438341) ((5073 . 5625) (* 12347 4611686018427387904) -> 56940487269522958450688) ((5074 . 5625) (* 12347 4611686018427387905) -> 56940487269522958463035) ((5075 . 5625) (* 12347 4611686018427387906) -> 56940487269522958475382) ((5076 . 5625) (* 12343 -4611686018427387907) -> -56922040525449248936101) ((5077 . 5625) (* 12343 -4611686018427387906) -> -56922040525449248923758) ((5078 . 5625) (* 12343 -4611686018427387905) -> -56922040525449248911415) ((5079 . 5625) (* 12343 -4611686018427387904) -> -56922040525449248899072) ((5080 . 5625) (* 12343 -4611686018427387903) -> -56922040525449248886729) ((5081 . 5625) (* 12344 -4611686018427387907) -> -56926652211467676324008) ((5082 . 5625) (* 12344 -4611686018427387906) -> -56926652211467676311664) ((5083 . 5625) (* 12344 -4611686018427387905) -> -56926652211467676299320) ((5084 . 5625) (* 12344 -4611686018427387904) -> -56926652211467676286976) ((5085 . 5625) (* 12344 -4611686018427387903) -> -56926652211467676274632) ((5086 . 5625) (* 12345 -4611686018427387907) -> -56931263897486103711915) ((5087 . 5625) (* 12345 -4611686018427387906) -> -56931263897486103699570) ((5088 . 5625) (* 12345 -4611686018427387905) -> -56931263897486103687225) ((5089 . 5625) (* 12345 -4611686018427387904) -> -56931263897486103674880) ((5090 . 5625) (* 12345 -4611686018427387903) -> -56931263897486103662535) ((5091 . 5625) (* 12346 -4611686018427387907) -> -56935875583504531099822) ((5092 . 5625) (* 12346 -4611686018427387906) -> -56935875583504531087476) ((5093 . 5625) (* 12346 -4611686018427387905) -> -56935875583504531075130) ((5094 . 5625) (* 12346 -4611686018427387904) -> -56935875583504531062784) ((5095 . 5625) (* 12346 -4611686018427387903) -> -56935875583504531050438) ((5096 . 5625) (* 12347 -4611686018427387907) -> -56940487269522958487729) ((5097 . 5625) (* 12347 -4611686018427387906) -> -56940487269522958475382) ((5098 . 5625) (* 12347 -4611686018427387905) -> -56940487269522958463035) ((5099 . 5625) (* 12347 -4611686018427387904) -> -56940487269522958450688) ((5100 . 5625) (* 12347 -4611686018427387903) -> -56940487269522958438341) ((5101 . 5625) (* 12343 1103515243) -> 13620688644349) ((5102 . 5625) (* 12343 1103515244) -> 13620688656692) ((5103 . 5625) (* 12343 1103515245) -> 13620688669035) ((5104 . 5625) (* 12343 1103515246) -> 13620688681378) ((5105 . 5625) (* 12343 1103515247) -> 13620688693721) ((5106 . 5625) (* 12344 1103515243) -> 13621792159592) ((5107 . 5625) (* 12344 1103515244) -> 13621792171936) ((5108 . 5625) (* 12344 1103515245) -> 13621792184280) ((5109 . 5625) (* 12344 1103515246) -> 13621792196624) ((5110 . 5625) (* 12344 1103515247) -> 13621792208968) ((5111 . 5625) (* 12345 1103515243) -> 13622895674835) ((5112 . 5625) (* 12345 1103515244) -> 13622895687180) ((5113 . 5625) (* 12345 1103515245) -> 13622895699525) ((5114 . 5625) (* 12345 1103515246) -> 13622895711870) ((5115 . 5625) (* 12345 1103515247) -> 13622895724215) ((5116 . 5625) (* 12346 1103515243) -> 13623999190078) ((5117 . 5625) (* 12346 1103515244) -> 13623999202424) ((5118 . 5625) (* 12346 1103515245) -> 13623999214770) ((5119 . 5625) (* 12346 1103515246) -> 13623999227116) ((5120 . 5625) (* 12346 1103515247) -> 13623999239462) ((5121 . 5625) (* 12347 1103515243) -> 13625102705321) ((5122 . 5625) (* 12347 1103515244) -> 13625102717668) ((5123 . 5625) (* 12347 1103515245) -> 13625102730015) ((5124 . 5625) (* 12347 1103515246) -> 13625102742362) ((5125 . 5625) (* 12347 1103515247) -> 13625102754709) ((5126 . 5625) (* 12343 631629063) -> 7796197524609) ((5127 . 5625) (* 12343 631629064) -> 7796197536952) ((5128 . 5625) (* 12343 631629065) -> 7796197549295) ((5129 . 5625) (* 12343 631629066) -> 7796197561638) ((5130 . 5625) (* 12343 631629067) -> 7796197573981) ((5131 . 5625) (* 12344 631629063) -> 7796829153672) ((5132 . 5625) (* 12344 631629064) -> 7796829166016) ((5133 . 5625) (* 12344 631629065) -> 7796829178360) ((5134 . 5625) (* 12344 631629066) -> 7796829190704) ((5135 . 5625) (* 12344 631629067) -> 7796829203048) ((5136 . 5625) (* 12345 631629063) -> 7797460782735) ((5137 . 5625) (* 12345 631629064) -> 7797460795080) ((5138 . 5625) (* 12345 631629065) -> 7797460807425) ((5139 . 5625) (* 12345 631629066) -> 7797460819770) ((5140 . 5625) (* 12345 631629067) -> 7797460832115) ((5141 . 5625) (* 12346 631629063) -> 7798092411798) ((5142 . 5625) (* 12346 631629064) -> 7798092424144) ((5143 . 5625) (* 12346 631629065) -> 7798092436490) ((5144 . 5625) (* 12346 631629066) -> 7798092448836) ((5145 . 5625) (* 12346 631629067) -> 7798092461182) ((5146 . 5625) (* 12347 631629063) -> 7798724040861) ((5147 . 5625) (* 12347 631629064) -> 7798724053208) ((5148 . 5625) (* 12347 631629065) -> 7798724065555) ((5149 . 5625) (* 12347 631629066) -> 7798724077902) ((5150 . 5625) (* 12347 631629067) -> 7798724090249) ((5151 . 5625) (* 12343 9007199254740990) -> 111175860401268039570) ((5152 . 5625) (* 12343 9007199254740991) -> 111175860401268051913) ((5153 . 5625) (* 12343 9007199254740992) -> 111175860401268064256) ((5154 . 5625) (* 12343 9007199254740993) -> 111175860401268076599) ((5155 . 5625) (* 12343 9007199254740994) -> 111175860401268088942) ((5156 . 5625) (* 12344 9007199254740990) -> 111184867600522780560) ((5157 . 5625) (* 12344 9007199254740991) -> 111184867600522792904) ((5158 . 5625) (* 12344 9007199254740992) -> 111184867600522805248) ((5159 . 5625) (* 12344 9007199254740993) -> 111184867600522817592) ((5160 . 5625) (* 12344 9007199254740994) -> 111184867600522829936) ((5161 . 5625) (* 12345 9007199254740990) -> 111193874799777521550) ((5162 . 5625) (* 12345 9007199254740991) -> 111193874799777533895) ((5163 . 5625) (* 12345 9007199254740992) -> 111193874799777546240) ((5164 . 5625) (* 12345 9007199254740993) -> 111193874799777558585) ((5165 . 5625) (* 12345 9007199254740994) -> 111193874799777570930) ((5166 . 5625) (* 12346 9007199254740990) -> 111202881999032262540) ((5167 . 5625) (* 12346 9007199254740991) -> 111202881999032274886) ((5168 . 5625) (* 12346 9007199254740992) -> 111202881999032287232) ((5169 . 5625) (* 12346 9007199254740993) -> 111202881999032299578) ((5170 . 5625) (* 12346 9007199254740994) -> 111202881999032311924) ((5171 . 5625) (* 12347 9007199254740990) -> 111211889198287003530) ((5172 . 5625) (* 12347 9007199254740991) -> 111211889198287015877) ((5173 . 5625) (* 12347 9007199254740992) -> 111211889198287028224) ((5174 . 5625) (* 12347 9007199254740993) -> 111211889198287040571) ((5175 . 5625) (* 12347 9007199254740994) -> 111211889198287052918) ((5176 . 5625) (* 12343 -9007199254740994) -> -111175860401268088942) ((5177 . 5625) (* 12343 -9007199254740993) -> -111175860401268076599) ((5178 . 5625) (* 12343 -9007199254740992) -> -111175860401268064256) ((5179 . 5625) (* 12343 -9007199254740991) -> -111175860401268051913) ((5180 . 5625) (* 12343 -9007199254740990) -> -111175860401268039570) ((5181 . 5625) (* 12344 -9007199254740994) -> -111184867600522829936) ((5182 . 5625) (* 12344 -9007199254740993) -> -111184867600522817592) ((5183 . 5625) (* 12344 -9007199254740992) -> -111184867600522805248) ((5184 . 5625) (* 12344 -9007199254740991) -> -111184867600522792904) ((5185 . 5625) (* 12344 -9007199254740990) -> -111184867600522780560) ((5186 . 5625) (* 12345 -9007199254740994) -> -111193874799777570930) ((5187 . 5625) (* 12345 -9007199254740993) -> -111193874799777558585) ((5188 . 5625) (* 12345 -9007199254740992) -> -111193874799777546240) ((5189 . 5625) (* 12345 -9007199254740991) -> -111193874799777533895) ((5190 . 5625) (* 12345 -9007199254740990) -> -111193874799777521550) ((5191 . 5625) (* 12346 -9007199254740994) -> -111202881999032311924) ((5192 . 5625) (* 12346 -9007199254740993) -> -111202881999032299578) ((5193 . 5625) (* 12346 -9007199254740992) -> -111202881999032287232) ((5194 . 5625) (* 12346 -9007199254740991) -> -111202881999032274886) ((5195 . 5625) (* 12346 -9007199254740990) -> -111202881999032262540) ((5196 . 5625) (* 12347 -9007199254740994) -> -111211889198287052918) ((5197 . 5625) (* 12347 -9007199254740993) -> -111211889198287040571) ((5198 . 5625) (* 12347 -9007199254740992) -> -111211889198287028224) ((5199 . 5625) (* 12347 -9007199254740991) -> -111211889198287015877) ((5200 . 5625) (* 12347 -9007199254740990) -> -111211889198287003530) ((5201 . 5625) (* 12343 12343) -> 152349649) ((5202 . 5625) (* 12343 12344) -> 152361992) ((5203 . 5625) (* 12343 12345) -> 152374335) ((5204 . 5625) (* 12343 12346) -> 152386678) ((5205 . 5625) (* 12343 12347) -> 152399021) ((5206 . 5625) (* 12344 12343) -> 152361992) ((5207 . 5625) (* 12344 12344) -> 152374336) ((5208 . 5625) (* 12344 12345) -> 152386680) ((5209 . 5625) (* 12344 12346) -> 152399024) ((5210 . 5625) (* 12344 12347) -> 152411368) ((5211 . 5625) (* 12345 12343) -> 152374335) ((5212 . 5625) (* 12345 12344) -> 152386680) ((5213 . 5625) (* 12345 12345) -> 152399025) ((5214 . 5625) (* 12345 12346) -> 152411370) ((5215 . 5625) (* 12345 12347) -> 152423715) ((5216 . 5625) (* 12346 12343) -> 152386678) ((5217 . 5625) (* 12346 12344) -> 152399024) ((5218 . 5625) (* 12346 12345) -> 152411370) ((5219 . 5625) (* 12346 12346) -> 152423716) ((5220 . 5625) (* 12346 12347) -> 152436062) ((5221 . 5625) (* 12347 12343) -> 152399021) ((5222 . 5625) (* 12347 12344) -> 152411368) ((5223 . 5625) (* 12347 12345) -> 152423715) ((5224 . 5625) (* 12347 12346) -> 152436062) ((5225 . 5625) (* 12347 12347) -> 152448409) ((5226 . 5625) (* 12343 4294967294) -> 53012781309842) ((5227 . 5625) (* 12343 4294967295) -> 53012781322185) ((5228 . 5625) (* 12343 4294967296) -> 53012781334528) ((5229 . 5625) (* 12343 4294967297) -> 53012781346871) ((5230 . 5625) (* 12343 4294967298) -> 53012781359214) ((5231 . 5625) (* 12344 4294967294) -> 53017076277136) ((5232 . 5625) (* 12344 4294967295) -> 53017076289480) ((5233 . 5625) (* 12344 4294967296) -> 53017076301824) ((5234 . 5625) (* 12344 4294967297) -> 53017076314168) ((5235 . 5625) (* 12344 4294967298) -> 53017076326512) ((5236 . 5625) (* 12345 4294967294) -> 53021371244430) ((5237 . 5625) (* 12345 4294967295) -> 53021371256775) ((5238 . 5625) (* 12345 4294967296) -> 53021371269120) ((5239 . 5625) (* 12345 4294967297) -> 53021371281465) ((5240 . 5625) (* 12345 4294967298) -> 53021371293810) ((5241 . 5625) (* 12346 4294967294) -> 53025666211724) ((5242 . 5625) (* 12346 4294967295) -> 53025666224070) ((5243 . 5625) (* 12346 4294967296) -> 53025666236416) ((5244 . 5625) (* 12346 4294967297) -> 53025666248762) ((5245 . 5625) (* 12346 4294967298) -> 53025666261108) ((5246 . 5625) (* 12347 4294967294) -> 53029961179018) ((5247 . 5625) (* 12347 4294967295) -> 53029961191365) ((5248 . 5625) (* 12347 4294967296) -> 53029961203712) ((5249 . 5625) (* 12347 4294967297) -> 53029961216059) ((5250 . 5625) (* 12347 4294967298) -> 53029961228406) ((5251 . 5625) (* 4294967294 -2) -> -8589934588) ((5252 . 5625) (* 4294967294 -1) -> -4294967294) ((5253 . 5625) (* 4294967294 0) -> 0) ((5254 . 5625) (* 4294967294 1) -> 4294967294) ((5255 . 5625) (* 4294967294 2) -> 8589934588) ((5256 . 5625) (* 4294967295 -2) -> -8589934590) ((5257 . 5625) (* 4294967295 -1) -> -4294967295) ((5258 . 5625) (* 4294967295 0) -> 0) ((5259 . 5625) (* 4294967295 1) -> 4294967295) ((5260 . 5625) (* 4294967295 2) -> 8589934590) ((5261 . 5625) (* 4294967296 -2) -> -8589934592) ((5262 . 5625) (* 4294967296 -1) -> -4294967296) ((5263 . 5625) (* 4294967296 0) -> 0) ((5264 . 5625) (* 4294967296 1) -> 4294967296) ((5265 . 5625) (* 4294967296 2) -> 8589934592) ((5266 . 5625) (* 4294967297 -2) -> -8589934594) ((5267 . 5625) (* 4294967297 -1) -> -4294967297) ((5268 . 5625) (* 4294967297 0) -> 0) ((5269 . 5625) (* 4294967297 1) -> 4294967297) ((5270 . 5625) (* 4294967297 2) -> 8589934594) ((5271 . 5625) (* 4294967298 -2) -> -8589934596) ((5272 . 5625) (* 4294967298 -1) -> -4294967298) ((5273 . 5625) (* 4294967298 0) -> 0) ((5274 . 5625) (* 4294967298 1) -> 4294967298) ((5275 . 5625) (* 4294967298 2) -> 8589934596) ((5276 . 5625) (* 4294967294 -1) -> -4294967294) ((5277 . 5625) (* 4294967294 0) -> 0) ((5278 . 5625) (* 4294967294 1) -> 4294967294) ((5279 . 5625) (* 4294967294 2) -> 8589934588) ((5280 . 5625) (* 4294967294 3) -> 12884901882) ((5281 . 5625) (* 4294967295 -1) -> -4294967295) ((5282 . 5625) (* 4294967295 0) -> 0) ((5283 . 5625) (* 4294967295 1) -> 4294967295) ((5284 . 5625) (* 4294967295 2) -> 8589934590) ((5285 . 5625) (* 4294967295 3) -> 12884901885) ((5286 . 5625) (* 4294967296 -1) -> -4294967296) ((5287 . 5625) (* 4294967296 0) -> 0) ((5288 . 5625) (* 4294967296 1) -> 4294967296) ((5289 . 5625) (* 4294967296 2) -> 8589934592) ((5290 . 5625) (* 4294967296 3) -> 12884901888) ((5291 . 5625) (* 4294967297 -1) -> -4294967297) ((5292 . 5625) (* 4294967297 0) -> 0) ((5293 . 5625) (* 4294967297 1) -> 4294967297) ((5294 . 5625) (* 4294967297 2) -> 8589934594) ((5295 . 5625) (* 4294967297 3) -> 12884901891) ((5296 . 5625) (* 4294967298 -1) -> -4294967298) ((5297 . 5625) (* 4294967298 0) -> 0) ((5298 . 5625) (* 4294967298 1) -> 4294967298) ((5299 . 5625) (* 4294967298 2) -> 8589934596) ((5300 . 5625) (* 4294967298 3) -> 12884901894) ((5301 . 5625) (* 4294967294 -3) -> -12884901882) ((5302 . 5625) (* 4294967294 -2) -> -8589934588) ((5303 . 5625) (* 4294967294 -1) -> -4294967294) ((5304 . 5625) (* 4294967294 0) -> 0) ((5305 . 5625) (* 4294967294 1) -> 4294967294) ((5306 . 5625) (* 4294967295 -3) -> -12884901885) ((5307 . 5625) (* 4294967295 -2) -> -8589934590) ((5308 . 5625) (* 4294967295 -1) -> -4294967295) ((5309 . 5625) (* 4294967295 0) -> 0) ((5310 . 5625) (* 4294967295 1) -> 4294967295) ((5311 . 5625) (* 4294967296 -3) -> -12884901888) ((5312 . 5625) (* 4294967296 -2) -> -8589934592) ((5313 . 5625) (* 4294967296 -1) -> -4294967296) ((5314 . 5625) (* 4294967296 0) -> 0) ((5315 . 5625) (* 4294967296 1) -> 4294967296) ((5316 . 5625) (* 4294967297 -3) -> -12884901891) ((5317 . 5625) (* 4294967297 -2) -> -8589934594) ((5318 . 5625) (* 4294967297 -1) -> -4294967297) ((5319 . 5625) (* 4294967297 0) -> 0) ((5320 . 5625) (* 4294967297 1) -> 4294967297) ((5321 . 5625) (* 4294967298 -3) -> -12884901894) ((5322 . 5625) (* 4294967298 -2) -> -8589934596) ((5323 . 5625) (* 4294967298 -1) -> -4294967298) ((5324 . 5625) (* 4294967298 0) -> 0) ((5325 . 5625) (* 4294967298 1) -> 4294967298) ((5326 . 5625) (* 4294967294 0) -> 0) ((5327 . 5625) (* 4294967294 1) -> 4294967294) ((5328 . 5625) (* 4294967294 2) -> 8589934588) ((5329 . 5625) (* 4294967294 3) -> 12884901882) ((5330 . 5625) (* 4294967294 4) -> 17179869176) ((5331 . 5625) (* 4294967295 0) -> 0) ((5332 . 5625) (* 4294967295 1) -> 4294967295) ((5333 . 5625) (* 4294967295 2) -> 8589934590) ((5334 . 5625) (* 4294967295 3) -> 12884901885) ((5335 . 5625) (* 4294967295 4) -> 17179869180) ((5336 . 5625) (* 4294967296 0) -> 0) ((5337 . 5625) (* 4294967296 1) -> 4294967296) ((5338 . 5625) (* 4294967296 2) -> 8589934592) ((5339 . 5625) (* 4294967296 3) -> 12884901888) ((5340 . 5625) (* 4294967296 4) -> 17179869184) ((5341 . 5625) (* 4294967297 0) -> 0) ((5342 . 5625) (* 4294967297 1) -> 4294967297) ((5343 . 5625) (* 4294967297 2) -> 8589934594) ((5344 . 5625) (* 4294967297 3) -> 12884901891) ((5345 . 5625) (* 4294967297 4) -> 17179869188) ((5346 . 5625) (* 4294967298 0) -> 0) ((5347 . 5625) (* 4294967298 1) -> 4294967298) ((5348 . 5625) (* 4294967298 2) -> 8589934596) ((5349 . 5625) (* 4294967298 3) -> 12884901894) ((5350 . 5625) (* 4294967298 4) -> 17179869192) ((5351 . 5625) (* 4294967294 -4) -> -17179869176) ((5352 . 5625) (* 4294967294 -3) -> -12884901882) ((5353 . 5625) (* 4294967294 -2) -> -8589934588) ((5354 . 5625) (* 4294967294 -1) -> -4294967294) ((5355 . 5625) (* 4294967294 0) -> 0) ((5356 . 5625) (* 4294967295 -4) -> -17179869180) ((5357 . 5625) (* 4294967295 -3) -> -12884901885) ((5358 . 5625) (* 4294967295 -2) -> -8589934590) ((5359 . 5625) (* 4294967295 -1) -> -4294967295) ((5360 . 5625) (* 4294967295 0) -> 0) ((5361 . 5625) (* 4294967296 -4) -> -17179869184) ((5362 . 5625) (* 4294967296 -3) -> -12884901888) ((5363 . 5625) (* 4294967296 -2) -> -8589934592) ((5364 . 5625) (* 4294967296 -1) -> -4294967296) ((5365 . 5625) (* 4294967296 0) -> 0) ((5366 . 5625) (* 4294967297 -4) -> -17179869188) ((5367 . 5625) (* 4294967297 -3) -> -12884901891) ((5368 . 5625) (* 4294967297 -2) -> -8589934594) ((5369 . 5625) (* 4294967297 -1) -> -4294967297) ((5370 . 5625) (* 4294967297 0) -> 0) ((5371 . 5625) (* 4294967298 -4) -> -17179869192) ((5372 . 5625) (* 4294967298 -3) -> -12884901894) ((5373 . 5625) (* 4294967298 -2) -> -8589934596) ((5374 . 5625) (* 4294967298 -1) -> -4294967298) ((5375 . 5625) (* 4294967298 0) -> 0) ((5376 . 5625) (* 4294967294 4611686018427387901) -> 19807040619342712348646309894) ((5377 . 5625) (* 4294967294 4611686018427387902) -> 19807040619342712352941277188) ((5378 . 5625) (* 4294967294 4611686018427387903) -> 19807040619342712357236244482) ((5379 . 5625) (* 4294967294 4611686018427387904) -> 19807040619342712361531211776) ((5380 . 5625) (* 4294967294 4611686018427387905) -> 19807040619342712365826179070) ((5381 . 5625) (* 4294967295 4611686018427387901) -> 19807040623954398367073697795) ((5382 . 5625) (* 4294967295 4611686018427387902) -> 19807040623954398371368665090) ((5383 . 5625) (* 4294967295 4611686018427387903) -> 19807040623954398375663632385) ((5384 . 5625) (* 4294967295 4611686018427387904) -> 19807040623954398379958599680) ((5385 . 5625) (* 4294967295 4611686018427387905) -> 19807040623954398384253566975) ((5386 . 5625) (* 4294967296 4611686018427387901) -> 19807040628566084385501085696) ((5387 . 5625) (* 4294967296 4611686018427387902) -> 19807040628566084389796052992) ((5388 . 5625) (* 4294967296 4611686018427387903) -> 19807040628566084394091020288) ((5389 . 5625) (* 4294967296 4611686018427387904) -> 19807040628566084398385987584) ((5390 . 5625) (* 4294967296 4611686018427387905) -> 19807040628566084402680954880) ((5391 . 5625) (* 4294967297 4611686018427387901) -> 19807040633177770403928473597) ((5392 . 5625) (* 4294967297 4611686018427387902) -> 19807040633177770408223440894) ((5393 . 5625) (* 4294967297 4611686018427387903) -> 19807040633177770412518408191) ((5394 . 5625) (* 4294967297 4611686018427387904) -> 19807040633177770416813375488) ((5395 . 5625) (* 4294967297 4611686018427387905) -> 19807040633177770421108342785) ((5396 . 5625) (* 4294967298 4611686018427387901) -> 19807040637789456422355861498) ((5397 . 5625) (* 4294967298 4611686018427387902) -> 19807040637789456426650828796) ((5398 . 5625) (* 4294967298 4611686018427387903) -> 19807040637789456430945796094) ((5399 . 5625) (* 4294967298 4611686018427387904) -> 19807040637789456435240763392) ((5400 . 5625) (* 4294967298 4611686018427387905) -> 19807040637789456439535730690) ((5401 . 5625) (* 4294967294 -4611686018427387906) -> -19807040619342712370121146364) ((5402 . 5625) (* 4294967294 -4611686018427387905) -> -19807040619342712365826179070) ((5403 . 5625) (* 4294967294 -4611686018427387904) -> -19807040619342712361531211776) ((5404 . 5625) (* 4294967294 -4611686018427387903) -> -19807040619342712357236244482) ((5405 . 5625) (* 4294967294 -4611686018427387902) -> -19807040619342712352941277188) ((5406 . 5625) (* 4294967295 -4611686018427387906) -> -19807040623954398388548534270) ((5407 . 5625) (* 4294967295 -4611686018427387905) -> -19807040623954398384253566975) ((5408 . 5625) (* 4294967295 -4611686018427387904) -> -19807040623954398379958599680) ((5409 . 5625) (* 4294967295 -4611686018427387903) -> -19807040623954398375663632385) ((5410 . 5625) (* 4294967295 -4611686018427387902) -> -19807040623954398371368665090) ((5411 . 5625) (* 4294967296 -4611686018427387906) -> -19807040628566084406975922176) ((5412 . 5625) (* 4294967296 -4611686018427387905) -> -19807040628566084402680954880) ((5413 . 5625) (* 4294967296 -4611686018427387904) -> -19807040628566084398385987584) ((5414 . 5625) (* 4294967296 -4611686018427387903) -> -19807040628566084394091020288) ((5415 . 5625) (* 4294967296 -4611686018427387902) -> -19807040628566084389796052992) ((5416 . 5625) (* 4294967297 -4611686018427387906) -> -19807040633177770425403310082) ((5417 . 5625) (* 4294967297 -4611686018427387905) -> -19807040633177770421108342785) ((5418 . 5625) (* 4294967297 -4611686018427387904) -> -19807040633177770416813375488) ((5419 . 5625) (* 4294967297 -4611686018427387903) -> -19807040633177770412518408191) ((5420 . 5625) (* 4294967297 -4611686018427387902) -> -19807040633177770408223440894) ((5421 . 5625) (* 4294967298 -4611686018427387906) -> -19807040637789456443830697988) ((5422 . 5625) (* 4294967298 -4611686018427387905) -> -19807040637789456439535730690) ((5423 . 5625) (* 4294967298 -4611686018427387904) -> -19807040637789456435240763392) ((5424 . 5625) (* 4294967298 -4611686018427387903) -> -19807040637789456430945796094) ((5425 . 5625) (* 4294967298 -4611686018427387902) -> -19807040637789456426650828796) ((5426 . 5625) (* 4294967294 4611686018427387902) -> 19807040619342712352941277188) ((5427 . 5625) (* 4294967294 4611686018427387903) -> 19807040619342712357236244482) ((5428 . 5625) (* 4294967294 4611686018427387904) -> 19807040619342712361531211776) ((5429 . 5625) (* 4294967294 4611686018427387905) -> 19807040619342712365826179070) ((5430 . 5625) (* 4294967294 4611686018427387906) -> 19807040619342712370121146364) ((5431 . 5625) (* 4294967295 4611686018427387902) -> 19807040623954398371368665090) ((5432 . 5625) (* 4294967295 4611686018427387903) -> 19807040623954398375663632385) ((5433 . 5625) (* 4294967295 4611686018427387904) -> 19807040623954398379958599680) ((5434 . 5625) (* 4294967295 4611686018427387905) -> 19807040623954398384253566975) ((5435 . 5625) (* 4294967295 4611686018427387906) -> 19807040623954398388548534270) ((5436 . 5625) (* 4294967296 4611686018427387902) -> 19807040628566084389796052992) ((5437 . 5625) (* 4294967296 4611686018427387903) -> 19807040628566084394091020288) ((5438 . 5625) (* 4294967296 4611686018427387904) -> 19807040628566084398385987584) ((5439 . 5625) (* 4294967296 4611686018427387905) -> 19807040628566084402680954880) ((5440 . 5625) (* 4294967296 4611686018427387906) -> 19807040628566084406975922176) ((5441 . 5625) (* 4294967297 4611686018427387902) -> 19807040633177770408223440894) ((5442 . 5625) (* 4294967297 4611686018427387903) -> 19807040633177770412518408191) ((5443 . 5625) (* 4294967297 4611686018427387904) -> 19807040633177770416813375488) ((5444 . 5625) (* 4294967297 4611686018427387905) -> 19807040633177770421108342785) ((5445 . 5625) (* 4294967297 4611686018427387906) -> 19807040633177770425403310082) ((5446 . 5625) (* 4294967298 4611686018427387902) -> 19807040637789456426650828796) ((5447 . 5625) (* 4294967298 4611686018427387903) -> 19807040637789456430945796094) ((5448 . 5625) (* 4294967298 4611686018427387904) -> 19807040637789456435240763392) ((5449 . 5625) (* 4294967298 4611686018427387905) -> 19807040637789456439535730690) ((5450 . 5625) (* 4294967298 4611686018427387906) -> 19807040637789456443830697988) ((5451 . 5625) (* 4294967294 -4611686018427387907) -> -19807040619342712374416113658) ((5452 . 5625) (* 4294967294 -4611686018427387906) -> -19807040619342712370121146364) ((5453 . 5625) (* 4294967294 -4611686018427387905) -> -19807040619342712365826179070) ((5454 . 5625) (* 4294967294 -4611686018427387904) -> -19807040619342712361531211776) ((5455 . 5625) (* 4294967294 -4611686018427387903) -> -19807040619342712357236244482) ((5456 . 5625) (* 4294967295 -4611686018427387907) -> -19807040623954398392843501565) ((5457 . 5625) (* 4294967295 -4611686018427387906) -> -19807040623954398388548534270) ((5458 . 5625) (* 4294967295 -4611686018427387905) -> -19807040623954398384253566975) ((5459 . 5625) (* 4294967295 -4611686018427387904) -> -19807040623954398379958599680) ((5460 . 5625) (* 4294967295 -4611686018427387903) -> -19807040623954398375663632385) ((5461 . 5625) (* 4294967296 -4611686018427387907) -> -19807040628566084411270889472) ((5462 . 5625) (* 4294967296 -4611686018427387906) -> -19807040628566084406975922176) ((5463 . 5625) (* 4294967296 -4611686018427387905) -> -19807040628566084402680954880) ((5464 . 5625) (* 4294967296 -4611686018427387904) -> -19807040628566084398385987584) ((5465 . 5625) (* 4294967296 -4611686018427387903) -> -19807040628566084394091020288) ((5466 . 5625) (* 4294967297 -4611686018427387907) -> -19807040633177770429698277379) ((5467 . 5625) (* 4294967297 -4611686018427387906) -> -19807040633177770425403310082) ((5468 . 5625) (* 4294967297 -4611686018427387905) -> -19807040633177770421108342785) ((5469 . 5625) (* 4294967297 -4611686018427387904) -> -19807040633177770416813375488) ((5470 . 5625) (* 4294967297 -4611686018427387903) -> -19807040633177770412518408191) ((5471 . 5625) (* 4294967298 -4611686018427387907) -> -19807040637789456448125665286) ((5472 . 5625) (* 4294967298 -4611686018427387906) -> -19807040637789456443830697988) ((5473 . 5625) (* 4294967298 -4611686018427387905) -> -19807040637789456439535730690) ((5474 . 5625) (* 4294967298 -4611686018427387904) -> -19807040637789456435240763392) ((5475 . 5625) (* 4294967298 -4611686018427387903) -> -19807040637789456430945796094) ((5476 . 5625) (* 4294967294 1103515243) -> 4739561877115462442) ((5477 . 5625) (* 4294967294 1103515244) -> 4739561881410429736) ((5478 . 5625) (* 4294967294 1103515245) -> 4739561885705397030) ((5479 . 5625) (* 4294967294 1103515246) -> 4739561890000364324) ((5480 . 5625) (* 4294967294 1103515247) -> 4739561894295331618) ((5481 . 5625) (* 4294967295 1103515243) -> 4739561878218977685) ((5482 . 5625) (* 4294967295 1103515244) -> 4739561882513944980) ((5483 . 5625) (* 4294967295 1103515245) -> 4739561886808912275) ((5484 . 5625) (* 4294967295 1103515246) -> 4739561891103879570) ((5485 . 5625) (* 4294967295 1103515247) -> 4739561895398846865) ((5486 . 5625) (* 4294967296 1103515243) -> 4739561879322492928) ((5487 . 5625) (* 4294967296 1103515244) -> 4739561883617460224) ((5488 . 5625) (* 4294967296 1103515245) -> 4739561887912427520) ((5489 . 5625) (* 4294967296 1103515246) -> 4739561892207394816) ((5490 . 5625) (* 4294967296 1103515247) -> 4739561896502362112) ((5491 . 5625) (* 4294967297 1103515243) -> 4739561880426008171) ((5492 . 5625) (* 4294967297 1103515244) -> 4739561884720975468) ((5493 . 5625) (* 4294967297 1103515245) -> 4739561889015942765) ((5494 . 5625) (* 4294967297 1103515246) -> 4739561893310910062) ((5495 . 5625) (* 4294967297 1103515247) -> 4739561897605877359) ((5496 . 5625) (* 4294967298 1103515243) -> 4739561881529523414) ((5497 . 5625) (* 4294967298 1103515244) -> 4739561885824490712) ((5498 . 5625) (* 4294967298 1103515245) -> 4739561890119458010) ((5499 . 5625) (* 4294967298 1103515246) -> 4739561894414425308) ((5500 . 5625) (* 4294967298 1103515247) -> 4739561898709392606) ((5501 . 5625) (* 4294967294 631629063) -> 2712826167524865522) ((5502 . 5625) (* 4294967294 631629064) -> 2712826171819832816) ((5503 . 5625) (* 4294967294 631629065) -> 2712826176114800110) ((5504 . 5625) (* 4294967294 631629066) -> 2712826180409767404) ((5505 . 5625) (* 4294967294 631629067) -> 2712826184704734698) ((5506 . 5625) (* 4294967295 631629063) -> 2712826168156494585) ((5507 . 5625) (* 4294967295 631629064) -> 2712826172451461880) ((5508 . 5625) (* 4294967295 631629065) -> 2712826176746429175) ((5509 . 5625) (* 4294967295 631629066) -> 2712826181041396470) ((5510 . 5625) (* 4294967295 631629067) -> 2712826185336363765) ((5511 . 5625) (* 4294967296 631629063) -> 2712826168788123648) ((5512 . 5625) (* 4294967296 631629064) -> 2712826173083090944) ((5513 . 5625) (* 4294967296 631629065) -> 2712826177378058240) ((5514 . 5625) (* 4294967296 631629066) -> 2712826181673025536) ((5515 . 5625) (* 4294967296 631629067) -> 2712826185967992832) ((5516 . 5625) (* 4294967297 631629063) -> 2712826169419752711) ((5517 . 5625) (* 4294967297 631629064) -> 2712826173714720008) ((5518 . 5625) (* 4294967297 631629065) -> 2712826178009687305) ((5519 . 5625) (* 4294967297 631629066) -> 2712826182304654602) ((5520 . 5625) (* 4294967297 631629067) -> 2712826186599621899) ((5521 . 5625) (* 4294967298 631629063) -> 2712826170051381774) ((5522 . 5625) (* 4294967298 631629064) -> 2712826174346349072) ((5523 . 5625) (* 4294967298 631629065) -> 2712826178641316370) ((5524 . 5625) (* 4294967298 631629066) -> 2712826182936283668) ((5525 . 5625) (* 4294967298 631629067) -> 2712826187231250966) ((5526 . 5625) (* 4294967294 9007199254740990) -> 38685626209653726491181060) ((5527 . 5625) (* 4294967294 9007199254740991) -> 38685626209653730786148354) ((5528 . 5625) (* 4294967294 9007199254740992) -> 38685626209653735081115648) ((5529 . 5625) (* 4294967294 9007199254740993) -> 38685626209653739376082942) ((5530 . 5625) (* 4294967294 9007199254740994) -> 38685626209653743671050236) ((5531 . 5625) (* 4294967295 9007199254740990) -> 38685626218660925745922050) ((5532 . 5625) (* 4294967295 9007199254740991) -> 38685626218660930040889345) ((5533 . 5625) (* 4294967295 9007199254740992) -> 38685626218660934335856640) ((5534 . 5625) (* 4294967295 9007199254740993) -> 38685626218660938630823935) ((5535 . 5625) (* 4294967295 9007199254740994) -> 38685626218660942925791230) ((5536 . 5625) (* 4294967296 9007199254740990) -> 38685626227668125000663040) ((5537 . 5625) (* 4294967296 9007199254740991) -> 38685626227668129295630336) ((5538 . 5625) (* 4294967296 9007199254740992) -> 38685626227668133590597632) ((5539 . 5625) (* 4294967296 9007199254740993) -> 38685626227668137885564928) ((5540 . 5625) (* 4294967296 9007199254740994) -> 38685626227668142180532224) ((5541 . 5625) (* 4294967297 9007199254740990) -> 38685626236675324255404030) ((5542 . 5625) (* 4294967297 9007199254740991) -> 38685626236675328550371327) ((5543 . 5625) (* 4294967297 9007199254740992) -> 38685626236675332845338624) ((5544 . 5625) (* 4294967297 9007199254740993) -> 38685626236675337140305921) ((5545 . 5625) (* 4294967297 9007199254740994) -> 38685626236675341435273218) ((5546 . 5625) (* 4294967298 9007199254740990) -> 38685626245682523510145020) ((5547 . 5625) (* 4294967298 9007199254740991) -> 38685626245682527805112318) ((5548 . 5625) (* 4294967298 9007199254740992) -> 38685626245682532100079616) ((5549 . 5625) (* 4294967298 9007199254740993) -> 38685626245682536395046914) ((5550 . 5625) (* 4294967298 9007199254740994) -> 38685626245682540690014212) ((5551 . 5625) (* 4294967294 -9007199254740994) -> -38685626209653743671050236) ((5552 . 5625) (* 4294967294 -9007199254740993) -> -38685626209653739376082942) ((5553 . 5625) (* 4294967294 -9007199254740992) -> -38685626209653735081115648) ((5554 . 5625) (* 4294967294 -9007199254740991) -> -38685626209653730786148354) ((5555 . 5625) (* 4294967294 -9007199254740990) -> -38685626209653726491181060) ((5556 . 5625) (* 4294967295 -9007199254740994) -> -38685626218660942925791230) ((5557 . 5625) (* 4294967295 -9007199254740993) -> -38685626218660938630823935) ((5558 . 5625) (* 4294967295 -9007199254740992) -> -38685626218660934335856640) ((5559 . 5625) (* 4294967295 -9007199254740991) -> -38685626218660930040889345) ((5560 . 5625) (* 4294967295 -9007199254740990) -> -38685626218660925745922050) ((5561 . 5625) (* 4294967296 -9007199254740994) -> -38685626227668142180532224) ((5562 . 5625) (* 4294967296 -9007199254740993) -> -38685626227668137885564928) ((5563 . 5625) (* 4294967296 -9007199254740992) -> -38685626227668133590597632) ((5564 . 5625) (* 4294967296 -9007199254740991) -> -38685626227668129295630336) ((5565 . 5625) (* 4294967296 -9007199254740990) -> -38685626227668125000663040) ((5566 . 5625) (* 4294967297 -9007199254740994) -> -38685626236675341435273218) ((5567 . 5625) (* 4294967297 -9007199254740993) -> -38685626236675337140305921) ((5568 . 5625) (* 4294967297 -9007199254740992) -> -38685626236675332845338624) ((5569 . 5625) (* 4294967297 -9007199254740991) -> -38685626236675328550371327) ((5570 . 5625) (* 4294967297 -9007199254740990) -> -38685626236675324255404030) ((5571 . 5625) (* 4294967298 -9007199254740994) -> -38685626245682540690014212) ((5572 . 5625) (* 4294967298 -9007199254740993) -> -38685626245682536395046914) ((5573 . 5625) (* 4294967298 -9007199254740992) -> -38685626245682532100079616) ((5574 . 5625) (* 4294967298 -9007199254740991) -> -38685626245682527805112318) ((5575 . 5625) (* 4294967298 -9007199254740990) -> -38685626245682523510145020) ((5576 . 5625) (* 4294967294 12343) -> 53012781309842) ((5577 . 5625) (* 4294967294 12344) -> 53017076277136) ((5578 . 5625) (* 4294967294 12345) -> 53021371244430) ((5579 . 5625) (* 4294967294 12346) -> 53025666211724) ((5580 . 5625) (* 4294967294 12347) -> 53029961179018) ((5581 . 5625) (* 4294967295 12343) -> 53012781322185) ((5582 . 5625) (* 4294967295 12344) -> 53017076289480) ((5583 . 5625) (* 4294967295 12345) -> 53021371256775) ((5584 . 5625) (* 4294967295 12346) -> 53025666224070) ((5585 . 5625) (* 4294967295 12347) -> 53029961191365) ((5586 . 5625) (* 4294967296 12343) -> 53012781334528) ((5587 . 5625) (* 4294967296 12344) -> 53017076301824) ((5588 . 5625) (* 4294967296 12345) -> 53021371269120) ((5589 . 5625) (* 4294967296 12346) -> 53025666236416) ((5590 . 5625) (* 4294967296 12347) -> 53029961203712) ((5591 . 5625) (* 4294967297 12343) -> 53012781346871) ((5592 . 5625) (* 4294967297 12344) -> 53017076314168) ((5593 . 5625) (* 4294967297 12345) -> 53021371281465) ((5594 . 5625) (* 4294967297 12346) -> 53025666248762) ((5595 . 5625) (* 4294967297 12347) -> 53029961216059) ((5596 . 5625) (* 4294967298 12343) -> 53012781359214) ((5597 . 5625) (* 4294967298 12344) -> 53017076326512) ((5598 . 5625) (* 4294967298 12345) -> 53021371293810) ((5599 . 5625) (* 4294967298 12346) -> 53025666261108) ((5600 . 5625) (* 4294967298 12347) -> 53029961228406) ((5601 . 5625) (* 4294967294 4294967294) -> 18446744056529682436) ((5602 . 5625) (* 4294967294 4294967295) -> 18446744060824649730) ((5603 . 5625) (* 4294967294 4294967296) -> 18446744065119617024) ((5604 . 5625) (* 4294967294 4294967297) -> 18446744069414584318) ((5605 . 5625) (* 4294967294 4294967298) -> 18446744073709551612) ((5606 . 5625) (* 4294967295 4294967294) -> 18446744060824649730) ((5607 . 5625) (* 4294967295 4294967295) -> 18446744065119617025) ((5608 . 5625) (* 4294967295 4294967296) -> 18446744069414584320) ((5609 . 5625) (* 4294967295 4294967297) -> 18446744073709551615) ((5610 . 5625) (* 4294967295 4294967298) -> 18446744078004518910) ((5611 . 5625) (* 4294967296 4294967294) -> 18446744065119617024) ((5612 . 5625) (* 4294967296 4294967295) -> 18446744069414584320) ((5613 . 5625) (* 4294967296 4294967296) -> 18446744073709551616) ((5614 . 5625) (* 4294967296 4294967297) -> 18446744078004518912) ((5615 . 5625) (* 4294967296 4294967298) -> 18446744082299486208) ((5616 . 5625) (* 4294967297 4294967294) -> 18446744069414584318) ((5617 . 5625) (* 4294967297 4294967295) -> 18446744073709551615) ((5618 . 5625) (* 4294967297 4294967296) -> 18446744078004518912) ((5619 . 5625) (* 4294967297 4294967297) -> 18446744082299486209) ((5620 . 5625) (* 4294967297 4294967298) -> 18446744086594453506) ((5621 . 5625) (* 4294967298 4294967294) -> 18446744073709551612) ((5622 . 5625) (* 4294967298 4294967295) -> 18446744078004518910) ((5623 . 5625) (* 4294967298 4294967296) -> 18446744082299486208) ((5624 . 5625) (* 4294967298 4294967297) -> 18446744086594453506) ((5625 . 5625) (* 4294967298 4294967298) -> 18446744090889420804) ((1 . 5625) (/ -2 -2) -> 1) ((2 . 5625) (/ -2 -1) -> 2) ((3 . 5625) (/ -2 0) -> "division by zero") ((4 . 5625) (/ -2 1) -> -2) ((5 . 5625) (/ -2 2) -> -1) ((6 . 5625) (/ -1 -2) -> 1/2) ((7 . 5625) (/ -1 -1) -> 1) ((8 . 5625) (/ -1 0) -> "division by zero") ((9 . 5625) (/ -1 1) -> -1) ((10 . 5625) (/ -1 2) -> -1/2) ((11 . 5625) (/ 0 -2) -> 0) ((12 . 5625) (/ 0 -1) -> 0) ((13 . 5625) (/ 0 0) -> "division by zero") ((14 . 5625) (/ 0 1) -> 0) ((15 . 5625) (/ 0 2) -> 0) ((16 . 5625) (/ 1 -2) -> -1/2) ((17 . 5625) (/ 1 -1) -> -1) ((18 . 5625) (/ 1 0) -> "division by zero") ((19 . 5625) (/ 1 1) -> 1) ((20 . 5625) (/ 1 2) -> 1/2) ((21 . 5625) (/ 2 -2) -> -1) ((22 . 5625) (/ 2 -1) -> -2) ((23 . 5625) (/ 2 0) -> "division by zero") ((24 . 5625) (/ 2 1) -> 2) ((25 . 5625) (/ 2 2) -> 1) ((26 . 5625) (/ -2 -1) -> 2) ((27 . 5625) (/ -2 0) -> "division by zero") ((28 . 5625) (/ -2 1) -> -2) ((29 . 5625) (/ -2 2) -> -1) ((30 . 5625) (/ -2 3) -> -2/3) ((31 . 5625) (/ -1 -1) -> 1) ((32 . 5625) (/ -1 0) -> "division by zero") ((33 . 5625) (/ -1 1) -> -1) ((34 . 5625) (/ -1 2) -> -1/2) ((35 . 5625) (/ -1 3) -> -1/3) ((36 . 5625) (/ 0 -1) -> 0) ((37 . 5625) (/ 0 0) -> "division by zero") ((38 . 5625) (/ 0 1) -> 0) ((39 . 5625) (/ 0 2) -> 0) ((40 . 5625) (/ 0 3) -> 0) ((41 . 5625) (/ 1 -1) -> -1) ((42 . 5625) (/ 1 0) -> "division by zero") ((43 . 5625) (/ 1 1) -> 1) ((44 . 5625) (/ 1 2) -> 1/2) ((45 . 5625) (/ 1 3) -> 1/3) ((46 . 5625) (/ 2 -1) -> -2) ((47 . 5625) (/ 2 0) -> "division by zero") ((48 . 5625) (/ 2 1) -> 2) ((49 . 5625) (/ 2 2) -> 1) ((50 . 5625) (/ 2 3) -> 2/3) ((51 . 5625) (/ -2 -3) -> 2/3) ((52 . 5625) (/ -2 -2) -> 1) ((53 . 5625) (/ -2 -1) -> 2) ((54 . 5625) (/ -2 0) -> "division by zero") ((55 . 5625) (/ -2 1) -> -2) ((56 . 5625) (/ -1 -3) -> 1/3) ((57 . 5625) (/ -1 -2) -> 1/2) ((58 . 5625) (/ -1 -1) -> 1) ((59 . 5625) (/ -1 0) -> "division by zero") ((60 . 5625) (/ -1 1) -> -1) ((61 . 5625) (/ 0 -3) -> 0) ((62 . 5625) (/ 0 -2) -> 0) ((63 . 5625) (/ 0 -1) -> 0) ((64 . 5625) (/ 0 0) -> "division by zero") ((65 . 5625) (/ 0 1) -> 0) ((66 . 5625) (/ 1 -3) -> -1/3) ((67 . 5625) (/ 1 -2) -> -1/2) ((68 . 5625) (/ 1 -1) -> -1) ((69 . 5625) (/ 1 0) -> "division by zero") ((70 . 5625) (/ 1 1) -> 1) ((71 . 5625) (/ 2 -3) -> -2/3) ((72 . 5625) (/ 2 -2) -> -1) ((73 . 5625) (/ 2 -1) -> -2) ((74 . 5625) (/ 2 0) -> "division by zero") ((75 . 5625) (/ 2 1) -> 2) ((76 . 5625) (/ -2 0) -> "division by zero") ((77 . 5625) (/ -2 1) -> -2) ((78 . 5625) (/ -2 2) -> -1) ((79 . 5625) (/ -2 3) -> -2/3) ((80 . 5625) (/ -2 4) -> -1/2) ((81 . 5625) (/ -1 0) -> "division by zero") ((82 . 5625) (/ -1 1) -> -1) ((83 . 5625) (/ -1 2) -> -1/2) ((84 . 5625) (/ -1 3) -> -1/3) ((85 . 5625) (/ -1 4) -> -1/4) ((86 . 5625) (/ 0 0) -> "division by zero") ((87 . 5625) (/ 0 1) -> 0) ((88 . 5625) (/ 0 2) -> 0) ((89 . 5625) (/ 0 3) -> 0) ((90 . 5625) (/ 0 4) -> 0) ((91 . 5625) (/ 1 0) -> "division by zero") ((92 . 5625) (/ 1 1) -> 1) ((93 . 5625) (/ 1 2) -> 1/2) ((94 . 5625) (/ 1 3) -> 1/3) ((95 . 5625) (/ 1 4) -> 1/4) ((96 . 5625) (/ 2 0) -> "division by zero") ((97 . 5625) (/ 2 1) -> 2) ((98 . 5625) (/ 2 2) -> 1) ((99 . 5625) (/ 2 3) -> 2/3) ((100 . 5625) (/ 2 4) -> 1/2) ((101 . 5625) (/ -2 -4) -> 1/2) ((102 . 5625) (/ -2 -3) -> 2/3) ((103 . 5625) (/ -2 -2) -> 1) ((104 . 5625) (/ -2 -1) -> 2) ((105 . 5625) (/ -2 0) -> "division by zero") ((106 . 5625) (/ -1 -4) -> 1/4) ((107 . 5625) (/ -1 -3) -> 1/3) ((108 . 5625) (/ -1 -2) -> 1/2) ((109 . 5625) (/ -1 -1) -> 1) ((110 . 5625) (/ -1 0) -> "division by zero") ((111 . 5625) (/ 0 -4) -> 0) ((112 . 5625) (/ 0 -3) -> 0) ((113 . 5625) (/ 0 -2) -> 0) ((114 . 5625) (/ 0 -1) -> 0) ((115 . 5625) (/ 0 0) -> "division by zero") ((116 . 5625) (/ 1 -4) -> -1/4) ((117 . 5625) (/ 1 -3) -> -1/3) ((118 . 5625) (/ 1 -2) -> -1/2) ((119 . 5625) (/ 1 -1) -> -1) ((120 . 5625) (/ 1 0) -> "division by zero") ((121 . 5625) (/ 2 -4) -> -1/2) ((122 . 5625) (/ 2 -3) -> -2/3) ((123 . 5625) (/ 2 -2) -> -1) ((124 . 5625) (/ 2 -1) -> -2) ((125 . 5625) (/ 2 0) -> "division by zero") ((126 . 5625) (/ -2 4611686018427387901) -> -2/4611686018427387901) ((127 . 5625) (/ -2 4611686018427387902) -> -1/2305843009213693951) ((128 . 5625) (/ -2 4611686018427387903) -> -2/4611686018427387903) ((129 . 5625) (/ -2 4611686018427387904) -> -1/2305843009213693952) ((130 . 5625) (/ -2 4611686018427387905) -> -2/4611686018427387905) ((131 . 5625) (/ -1 4611686018427387901) -> -1/4611686018427387901) ((132 . 5625) (/ -1 4611686018427387902) -> -1/4611686018427387902) ((133 . 5625) (/ -1 4611686018427387903) -> -1/4611686018427387903) ((134 . 5625) (/ -1 4611686018427387904) -> -1/4611686018427387904) ((135 . 5625) (/ -1 4611686018427387905) -> -1/4611686018427387905) ((136 . 5625) (/ 0 4611686018427387901) -> 0) ((137 . 5625) (/ 0 4611686018427387902) -> 0) ((138 . 5625) (/ 0 4611686018427387903) -> 0) ((139 . 5625) (/ 0 4611686018427387904) -> 0) ((140 . 5625) (/ 0 4611686018427387905) -> 0) ((141 . 5625) (/ 1 4611686018427387901) -> 1/4611686018427387901) ((142 . 5625) (/ 1 4611686018427387902) -> 1/4611686018427387902) ((143 . 5625) (/ 1 4611686018427387903) -> 1/4611686018427387903) ((144 . 5625) (/ 1 4611686018427387904) -> 1/4611686018427387904) ((145 . 5625) (/ 1 4611686018427387905) -> 1/4611686018427387905) ((146 . 5625) (/ 2 4611686018427387901) -> 2/4611686018427387901) ((147 . 5625) (/ 2 4611686018427387902) -> 1/2305843009213693951) ((148 . 5625) (/ 2 4611686018427387903) -> 2/4611686018427387903) ((149 . 5625) (/ 2 4611686018427387904) -> 1/2305843009213693952) ((150 . 5625) (/ 2 4611686018427387905) -> 2/4611686018427387905) ((151 . 5625) (/ -2 -4611686018427387906) -> 1/2305843009213693953) ((152 . 5625) (/ -2 -4611686018427387905) -> 2/4611686018427387905) ((153 . 5625) (/ -2 -4611686018427387904) -> 1/2305843009213693952) ((154 . 5625) (/ -2 -4611686018427387903) -> 2/4611686018427387903) ((155 . 5625) (/ -2 -4611686018427387902) -> 1/2305843009213693951) ((156 . 5625) (/ -1 -4611686018427387906) -> 1/4611686018427387906) ((157 . 5625) (/ -1 -4611686018427387905) -> 1/4611686018427387905) ((158 . 5625) (/ -1 -4611686018427387904) -> 1/4611686018427387904) ((159 . 5625) (/ -1 -4611686018427387903) -> 1/4611686018427387903) ((160 . 5625) (/ -1 -4611686018427387902) -> 1/4611686018427387902) ((161 . 5625) (/ 0 -4611686018427387906) -> 0) ((162 . 5625) (/ 0 -4611686018427387905) -> 0) ((163 . 5625) (/ 0 -4611686018427387904) -> 0) ((164 . 5625) (/ 0 -4611686018427387903) -> 0) ((165 . 5625) (/ 0 -4611686018427387902) -> 0) ((166 . 5625) (/ 1 -4611686018427387906) -> -1/4611686018427387906) ((167 . 5625) (/ 1 -4611686018427387905) -> -1/4611686018427387905) ((168 . 5625) (/ 1 -4611686018427387904) -> -1/4611686018427387904) ((169 . 5625) (/ 1 -4611686018427387903) -> -1/4611686018427387903) ((170 . 5625) (/ 1 -4611686018427387902) -> -1/4611686018427387902) ((171 . 5625) (/ 2 -4611686018427387906) -> -1/2305843009213693953) ((172 . 5625) (/ 2 -4611686018427387905) -> -2/4611686018427387905) ((173 . 5625) (/ 2 -4611686018427387904) -> -1/2305843009213693952) ((174 . 5625) (/ 2 -4611686018427387903) -> -2/4611686018427387903) ((175 . 5625) (/ 2 -4611686018427387902) -> -1/2305843009213693951) ((176 . 5625) (/ -2 4611686018427387902) -> -1/2305843009213693951) ((177 . 5625) (/ -2 4611686018427387903) -> -2/4611686018427387903) ((178 . 5625) (/ -2 4611686018427387904) -> -1/2305843009213693952) ((179 . 5625) (/ -2 4611686018427387905) -> -2/4611686018427387905) ((180 . 5625) (/ -2 4611686018427387906) -> -1/2305843009213693953) ((181 . 5625) (/ -1 4611686018427387902) -> -1/4611686018427387902) ((182 . 5625) (/ -1 4611686018427387903) -> -1/4611686018427387903) ((183 . 5625) (/ -1 4611686018427387904) -> -1/4611686018427387904) ((184 . 5625) (/ -1 4611686018427387905) -> -1/4611686018427387905) ((185 . 5625) (/ -1 4611686018427387906) -> -1/4611686018427387906) ((186 . 5625) (/ 0 4611686018427387902) -> 0) ((187 . 5625) (/ 0 4611686018427387903) -> 0) ((188 . 5625) (/ 0 4611686018427387904) -> 0) ((189 . 5625) (/ 0 4611686018427387905) -> 0) ((190 . 5625) (/ 0 4611686018427387906) -> 0) ((191 . 5625) (/ 1 4611686018427387902) -> 1/4611686018427387902) ((192 . 5625) (/ 1 4611686018427387903) -> 1/4611686018427387903) ((193 . 5625) (/ 1 4611686018427387904) -> 1/4611686018427387904) ((194 . 5625) (/ 1 4611686018427387905) -> 1/4611686018427387905) ((195 . 5625) (/ 1 4611686018427387906) -> 1/4611686018427387906) ((196 . 5625) (/ 2 4611686018427387902) -> 1/2305843009213693951) ((197 . 5625) (/ 2 4611686018427387903) -> 2/4611686018427387903) ((198 . 5625) (/ 2 4611686018427387904) -> 1/2305843009213693952) ((199 . 5625) (/ 2 4611686018427387905) -> 2/4611686018427387905) ((200 . 5625) (/ 2 4611686018427387906) -> 1/2305843009213693953) ((201 . 5625) (/ -2 -4611686018427387907) -> 2/4611686018427387907) ((202 . 5625) (/ -2 -4611686018427387906) -> 1/2305843009213693953) ((203 . 5625) (/ -2 -4611686018427387905) -> 2/4611686018427387905) ((204 . 5625) (/ -2 -4611686018427387904) -> 1/2305843009213693952) ((205 . 5625) (/ -2 -4611686018427387903) -> 2/4611686018427387903) ((206 . 5625) (/ -1 -4611686018427387907) -> 1/4611686018427387907) ((207 . 5625) (/ -1 -4611686018427387906) -> 1/4611686018427387906) ((208 . 5625) (/ -1 -4611686018427387905) -> 1/4611686018427387905) ((209 . 5625) (/ -1 -4611686018427387904) -> 1/4611686018427387904) ((210 . 5625) (/ -1 -4611686018427387903) -> 1/4611686018427387903) ((211 . 5625) (/ 0 -4611686018427387907) -> 0) ((212 . 5625) (/ 0 -4611686018427387906) -> 0) ((213 . 5625) (/ 0 -4611686018427387905) -> 0) ((214 . 5625) (/ 0 -4611686018427387904) -> 0) ((215 . 5625) (/ 0 -4611686018427387903) -> 0) ((216 . 5625) (/ 1 -4611686018427387907) -> -1/4611686018427387907) ((217 . 5625) (/ 1 -4611686018427387906) -> -1/4611686018427387906) ((218 . 5625) (/ 1 -4611686018427387905) -> -1/4611686018427387905) ((219 . 5625) (/ 1 -4611686018427387904) -> -1/4611686018427387904) ((220 . 5625) (/ 1 -4611686018427387903) -> -1/4611686018427387903) ((221 . 5625) (/ 2 -4611686018427387907) -> -2/4611686018427387907) ((222 . 5625) (/ 2 -4611686018427387906) -> -1/2305843009213693953) ((223 . 5625) (/ 2 -4611686018427387905) -> -2/4611686018427387905) ((224 . 5625) (/ 2 -4611686018427387904) -> -1/2305843009213693952) ((225 . 5625) (/ 2 -4611686018427387903) -> -2/4611686018427387903) ((226 . 5625) (/ -2 1103515243) -> -2/1103515243) ((227 . 5625) (/ -2 1103515244) -> -1/551757622) ((228 . 5625) (/ -2 1103515245) -> -2/1103515245) ((229 . 5625) (/ -2 1103515246) -> -1/551757623) ((230 . 5625) (/ -2 1103515247) -> -2/1103515247) ((231 . 5625) (/ -1 1103515243) -> -1/1103515243) ((232 . 5625) (/ -1 1103515244) -> -1/1103515244) ((233 . 5625) (/ -1 1103515245) -> -1/1103515245) ((234 . 5625) (/ -1 1103515246) -> -1/1103515246) ((235 . 5625) (/ -1 1103515247) -> -1/1103515247) ((236 . 5625) (/ 0 1103515243) -> 0) ((237 . 5625) (/ 0 1103515244) -> 0) ((238 . 5625) (/ 0 1103515245) -> 0) ((239 . 5625) (/ 0 1103515246) -> 0) ((240 . 5625) (/ 0 1103515247) -> 0) ((241 . 5625) (/ 1 1103515243) -> 1/1103515243) ((242 . 5625) (/ 1 1103515244) -> 1/1103515244) ((243 . 5625) (/ 1 1103515245) -> 1/1103515245) ((244 . 5625) (/ 1 1103515246) -> 1/1103515246) ((245 . 5625) (/ 1 1103515247) -> 1/1103515247) ((246 . 5625) (/ 2 1103515243) -> 2/1103515243) ((247 . 5625) (/ 2 1103515244) -> 1/551757622) ((248 . 5625) (/ 2 1103515245) -> 2/1103515245) ((249 . 5625) (/ 2 1103515246) -> 1/551757623) ((250 . 5625) (/ 2 1103515247) -> 2/1103515247) ((251 . 5625) (/ -2 631629063) -> -2/631629063) ((252 . 5625) (/ -2 631629064) -> -1/315814532) ((253 . 5625) (/ -2 631629065) -> -2/631629065) ((254 . 5625) (/ -2 631629066) -> -1/315814533) ((255 . 5625) (/ -2 631629067) -> -2/631629067) ((256 . 5625) (/ -1 631629063) -> -1/631629063) ((257 . 5625) (/ -1 631629064) -> -1/631629064) ((258 . 5625) (/ -1 631629065) -> -1/631629065) ((259 . 5625) (/ -1 631629066) -> -1/631629066) ((260 . 5625) (/ -1 631629067) -> -1/631629067) ((261 . 5625) (/ 0 631629063) -> 0) ((262 . 5625) (/ 0 631629064) -> 0) ((263 . 5625) (/ 0 631629065) -> 0) ((264 . 5625) (/ 0 631629066) -> 0) ((265 . 5625) (/ 0 631629067) -> 0) ((266 . 5625) (/ 1 631629063) -> 1/631629063) ((267 . 5625) (/ 1 631629064) -> 1/631629064) ((268 . 5625) (/ 1 631629065) -> 1/631629065) ((269 . 5625) (/ 1 631629066) -> 1/631629066) ((270 . 5625) (/ 1 631629067) -> 1/631629067) ((271 . 5625) (/ 2 631629063) -> 2/631629063) ((272 . 5625) (/ 2 631629064) -> 1/315814532) ((273 . 5625) (/ 2 631629065) -> 2/631629065) ((274 . 5625) (/ 2 631629066) -> 1/315814533) ((275 . 5625) (/ 2 631629067) -> 2/631629067) ((276 . 5625) (/ -2 9007199254740990) -> -1/4503599627370495) ((277 . 5625) (/ -2 9007199254740991) -> -2/9007199254740991) ((278 . 5625) (/ -2 9007199254740992) -> -1/4503599627370496) ((279 . 5625) (/ -2 9007199254740993) -> -2/9007199254740993) ((280 . 5625) (/ -2 9007199254740994) -> -1/4503599627370497) ((281 . 5625) (/ -1 9007199254740990) -> -1/9007199254740990) ((282 . 5625) (/ -1 9007199254740991) -> -1/9007199254740991) ((283 . 5625) (/ -1 9007199254740992) -> -1/9007199254740992) ((284 . 5625) (/ -1 9007199254740993) -> -1/9007199254740993) ((285 . 5625) (/ -1 9007199254740994) -> -1/9007199254740994) ((286 . 5625) (/ 0 9007199254740990) -> 0) ((287 . 5625) (/ 0 9007199254740991) -> 0) ((288 . 5625) (/ 0 9007199254740992) -> 0) ((289 . 5625) (/ 0 9007199254740993) -> 0) ((290 . 5625) (/ 0 9007199254740994) -> 0) ((291 . 5625) (/ 1 9007199254740990) -> 1/9007199254740990) ((292 . 5625) (/ 1 9007199254740991) -> 1/9007199254740991) ((293 . 5625) (/ 1 9007199254740992) -> 1/9007199254740992) ((294 . 5625) (/ 1 9007199254740993) -> 1/9007199254740993) ((295 . 5625) (/ 1 9007199254740994) -> 1/9007199254740994) ((296 . 5625) (/ 2 9007199254740990) -> 1/4503599627370495) ((297 . 5625) (/ 2 9007199254740991) -> 2/9007199254740991) ((298 . 5625) (/ 2 9007199254740992) -> 1/4503599627370496) ((299 . 5625) (/ 2 9007199254740993) -> 2/9007199254740993) ((300 . 5625) (/ 2 9007199254740994) -> 1/4503599627370497) ((301 . 5625) (/ -2 -9007199254740994) -> 1/4503599627370497) ((302 . 5625) (/ -2 -9007199254740993) -> 2/9007199254740993) ((303 . 5625) (/ -2 -9007199254740992) -> 1/4503599627370496) ((304 . 5625) (/ -2 -9007199254740991) -> 2/9007199254740991) ((305 . 5625) (/ -2 -9007199254740990) -> 1/4503599627370495) ((306 . 5625) (/ -1 -9007199254740994) -> 1/9007199254740994) ((307 . 5625) (/ -1 -9007199254740993) -> 1/9007199254740993) ((308 . 5625) (/ -1 -9007199254740992) -> 1/9007199254740992) ((309 . 5625) (/ -1 -9007199254740991) -> 1/9007199254740991) ((310 . 5625) (/ -1 -9007199254740990) -> 1/9007199254740990) ((311 . 5625) (/ 0 -9007199254740994) -> 0) ((312 . 5625) (/ 0 -9007199254740993) -> 0) ((313 . 5625) (/ 0 -9007199254740992) -> 0) ((314 . 5625) (/ 0 -9007199254740991) -> 0) ((315 . 5625) (/ 0 -9007199254740990) -> 0) ((316 . 5625) (/ 1 -9007199254740994) -> -1/9007199254740994) ((317 . 5625) (/ 1 -9007199254740993) -> -1/9007199254740993) ((318 . 5625) (/ 1 -9007199254740992) -> -1/9007199254740992) ((319 . 5625) (/ 1 -9007199254740991) -> -1/9007199254740991) ((320 . 5625) (/ 1 -9007199254740990) -> -1/9007199254740990) ((321 . 5625) (/ 2 -9007199254740994) -> -1/4503599627370497) ((322 . 5625) (/ 2 -9007199254740993) -> -2/9007199254740993) ((323 . 5625) (/ 2 -9007199254740992) -> -1/4503599627370496) ((324 . 5625) (/ 2 -9007199254740991) -> -2/9007199254740991) ((325 . 5625) (/ 2 -9007199254740990) -> -1/4503599627370495) ((326 . 5625) (/ -2 12343) -> -2/12343) ((327 . 5625) (/ -2 12344) -> -1/6172) ((328 . 5625) (/ -2 12345) -> -2/12345) ((329 . 5625) (/ -2 12346) -> -1/6173) ((330 . 5625) (/ -2 12347) -> -2/12347) ((331 . 5625) (/ -1 12343) -> -1/12343) ((332 . 5625) (/ -1 12344) -> -1/12344) ((333 . 5625) (/ -1 12345) -> -1/12345) ((334 . 5625) (/ -1 12346) -> -1/12346) ((335 . 5625) (/ -1 12347) -> -1/12347) ((336 . 5625) (/ 0 12343) -> 0) ((337 . 5625) (/ 0 12344) -> 0) ((338 . 5625) (/ 0 12345) -> 0) ((339 . 5625) (/ 0 12346) -> 0) ((340 . 5625) (/ 0 12347) -> 0) ((341 . 5625) (/ 1 12343) -> 1/12343) ((342 . 5625) (/ 1 12344) -> 1/12344) ((343 . 5625) (/ 1 12345) -> 1/12345) ((344 . 5625) (/ 1 12346) -> 1/12346) ((345 . 5625) (/ 1 12347) -> 1/12347) ((346 . 5625) (/ 2 12343) -> 2/12343) ((347 . 5625) (/ 2 12344) -> 1/6172) ((348 . 5625) (/ 2 12345) -> 2/12345) ((349 . 5625) (/ 2 12346) -> 1/6173) ((350 . 5625) (/ 2 12347) -> 2/12347) ((351 . 5625) (/ -2 4294967294) -> -1/2147483647) ((352 . 5625) (/ -2 4294967295) -> -2/4294967295) ((353 . 5625) (/ -2 4294967296) -> -1/2147483648) ((354 . 5625) (/ -2 4294967297) -> -2/4294967297) ((355 . 5625) (/ -2 4294967298) -> -1/2147483649) ((356 . 5625) (/ -1 4294967294) -> -1/4294967294) ((357 . 5625) (/ -1 4294967295) -> -1/4294967295) ((358 . 5625) (/ -1 4294967296) -> -1/4294967296) ((359 . 5625) (/ -1 4294967297) -> -1/4294967297) ((360 . 5625) (/ -1 4294967298) -> -1/4294967298) ((361 . 5625) (/ 0 4294967294) -> 0) ((362 . 5625) (/ 0 4294967295) -> 0) ((363 . 5625) (/ 0 4294967296) -> 0) ((364 . 5625) (/ 0 4294967297) -> 0) ((365 . 5625) (/ 0 4294967298) -> 0) ((366 . 5625) (/ 1 4294967294) -> 1/4294967294) ((367 . 5625) (/ 1 4294967295) -> 1/4294967295) ((368 . 5625) (/ 1 4294967296) -> 1/4294967296) ((369 . 5625) (/ 1 4294967297) -> 1/4294967297) ((370 . 5625) (/ 1 4294967298) -> 1/4294967298) ((371 . 5625) (/ 2 4294967294) -> 1/2147483647) ((372 . 5625) (/ 2 4294967295) -> 2/4294967295) ((373 . 5625) (/ 2 4294967296) -> 1/2147483648) ((374 . 5625) (/ 2 4294967297) -> 2/4294967297) ((375 . 5625) (/ 2 4294967298) -> 1/2147483649) ((376 . 5625) (/ -1 -2) -> 1/2) ((377 . 5625) (/ -1 -1) -> 1) ((378 . 5625) (/ -1 0) -> "division by zero") ((379 . 5625) (/ -1 1) -> -1) ((380 . 5625) (/ -1 2) -> -1/2) ((381 . 5625) (/ 0 -2) -> 0) ((382 . 5625) (/ 0 -1) -> 0) ((383 . 5625) (/ 0 0) -> "division by zero") ((384 . 5625) (/ 0 1) -> 0) ((385 . 5625) (/ 0 2) -> 0) ((386 . 5625) (/ 1 -2) -> -1/2) ((387 . 5625) (/ 1 -1) -> -1) ((388 . 5625) (/ 1 0) -> "division by zero") ((389 . 5625) (/ 1 1) -> 1) ((390 . 5625) (/ 1 2) -> 1/2) ((391 . 5625) (/ 2 -2) -> -1) ((392 . 5625) (/ 2 -1) -> -2) ((393 . 5625) (/ 2 0) -> "division by zero") ((394 . 5625) (/ 2 1) -> 2) ((395 . 5625) (/ 2 2) -> 1) ((396 . 5625) (/ 3 -2) -> -3/2) ((397 . 5625) (/ 3 -1) -> -3) ((398 . 5625) (/ 3 0) -> "division by zero") ((399 . 5625) (/ 3 1) -> 3) ((400 . 5625) (/ 3 2) -> 3/2) ((401 . 5625) (/ -1 -1) -> 1) ((402 . 5625) (/ -1 0) -> "division by zero") ((403 . 5625) (/ -1 1) -> -1) ((404 . 5625) (/ -1 2) -> -1/2) ((405 . 5625) (/ -1 3) -> -1/3) ((406 . 5625) (/ 0 -1) -> 0) ((407 . 5625) (/ 0 0) -> "division by zero") ((408 . 5625) (/ 0 1) -> 0) ((409 . 5625) (/ 0 2) -> 0) ((410 . 5625) (/ 0 3) -> 0) ((411 . 5625) (/ 1 -1) -> -1) ((412 . 5625) (/ 1 0) -> "division by zero") ((413 . 5625) (/ 1 1) -> 1) ((414 . 5625) (/ 1 2) -> 1/2) ((415 . 5625) (/ 1 3) -> 1/3) ((416 . 5625) (/ 2 -1) -> -2) ((417 . 5625) (/ 2 0) -> "division by zero") ((418 . 5625) (/ 2 1) -> 2) ((419 . 5625) (/ 2 2) -> 1) ((420 . 5625) (/ 2 3) -> 2/3) ((421 . 5625) (/ 3 -1) -> -3) ((422 . 5625) (/ 3 0) -> "division by zero") ((423 . 5625) (/ 3 1) -> 3) ((424 . 5625) (/ 3 2) -> 3/2) ((425 . 5625) (/ 3 3) -> 1) ((426 . 5625) (/ -1 -3) -> 1/3) ((427 . 5625) (/ -1 -2) -> 1/2) ((428 . 5625) (/ -1 -1) -> 1) ((429 . 5625) (/ -1 0) -> "division by zero") ((430 . 5625) (/ -1 1) -> -1) ((431 . 5625) (/ 0 -3) -> 0) ((432 . 5625) (/ 0 -2) -> 0) ((433 . 5625) (/ 0 -1) -> 0) ((434 . 5625) (/ 0 0) -> "division by zero") ((435 . 5625) (/ 0 1) -> 0) ((436 . 5625) (/ 1 -3) -> -1/3) ((437 . 5625) (/ 1 -2) -> -1/2) ((438 . 5625) (/ 1 -1) -> -1) ((439 . 5625) (/ 1 0) -> "division by zero") ((440 . 5625) (/ 1 1) -> 1) ((441 . 5625) (/ 2 -3) -> -2/3) ((442 . 5625) (/ 2 -2) -> -1) ((443 . 5625) (/ 2 -1) -> -2) ((444 . 5625) (/ 2 0) -> "division by zero") ((445 . 5625) (/ 2 1) -> 2) ((446 . 5625) (/ 3 -3) -> -1) ((447 . 5625) (/ 3 -2) -> -3/2) ((448 . 5625) (/ 3 -1) -> -3) ((449 . 5625) (/ 3 0) -> "division by zero") ((450 . 5625) (/ 3 1) -> 3) ((451 . 5625) (/ -1 0) -> "division by zero") ((452 . 5625) (/ -1 1) -> -1) ((453 . 5625) (/ -1 2) -> -1/2) ((454 . 5625) (/ -1 3) -> -1/3) ((455 . 5625) (/ -1 4) -> -1/4) ((456 . 5625) (/ 0 0) -> "division by zero") ((457 . 5625) (/ 0 1) -> 0) ((458 . 5625) (/ 0 2) -> 0) ((459 . 5625) (/ 0 3) -> 0) ((460 . 5625) (/ 0 4) -> 0) ((461 . 5625) (/ 1 0) -> "division by zero") ((462 . 5625) (/ 1 1) -> 1) ((463 . 5625) (/ 1 2) -> 1/2) ((464 . 5625) (/ 1 3) -> 1/3) ((465 . 5625) (/ 1 4) -> 1/4) ((466 . 5625) (/ 2 0) -> "division by zero") ((467 . 5625) (/ 2 1) -> 2) ((468 . 5625) (/ 2 2) -> 1) ((469 . 5625) (/ 2 3) -> 2/3) ((470 . 5625) (/ 2 4) -> 1/2) ((471 . 5625) (/ 3 0) -> "division by zero") ((472 . 5625) (/ 3 1) -> 3) ((473 . 5625) (/ 3 2) -> 3/2) ((474 . 5625) (/ 3 3) -> 1) ((475 . 5625) (/ 3 4) -> 3/4) ((476 . 5625) (/ -1 -4) -> 1/4) ((477 . 5625) (/ -1 -3) -> 1/3) ((478 . 5625) (/ -1 -2) -> 1/2) ((479 . 5625) (/ -1 -1) -> 1) ((480 . 5625) (/ -1 0) -> "division by zero") ((481 . 5625) (/ 0 -4) -> 0) ((482 . 5625) (/ 0 -3) -> 0) ((483 . 5625) (/ 0 -2) -> 0) ((484 . 5625) (/ 0 -1) -> 0) ((485 . 5625) (/ 0 0) -> "division by zero") ((486 . 5625) (/ 1 -4) -> -1/4) ((487 . 5625) (/ 1 -3) -> -1/3) ((488 . 5625) (/ 1 -2) -> -1/2) ((489 . 5625) (/ 1 -1) -> -1) ((490 . 5625) (/ 1 0) -> "division by zero") ((491 . 5625) (/ 2 -4) -> -1/2) ((492 . 5625) (/ 2 -3) -> -2/3) ((493 . 5625) (/ 2 -2) -> -1) ((494 . 5625) (/ 2 -1) -> -2) ((495 . 5625) (/ 2 0) -> "division by zero") ((496 . 5625) (/ 3 -4) -> -3/4) ((497 . 5625) (/ 3 -3) -> -1) ((498 . 5625) (/ 3 -2) -> -3/2) ((499 . 5625) (/ 3 -1) -> -3) ((500 . 5625) (/ 3 0) -> "division by zero") ((501 . 5625) (/ -1 4611686018427387901) -> -1/4611686018427387901) ((502 . 5625) (/ -1 4611686018427387902) -> -1/4611686018427387902) ((503 . 5625) (/ -1 4611686018427387903) -> -1/4611686018427387903) ((504 . 5625) (/ -1 4611686018427387904) -> -1/4611686018427387904) ((505 . 5625) (/ -1 4611686018427387905) -> -1/4611686018427387905) ((506 . 5625) (/ 0 4611686018427387901) -> 0) ((507 . 5625) (/ 0 4611686018427387902) -> 0) ((508 . 5625) (/ 0 4611686018427387903) -> 0) ((509 . 5625) (/ 0 4611686018427387904) -> 0) ((510 . 5625) (/ 0 4611686018427387905) -> 0) ((511 . 5625) (/ 1 4611686018427387901) -> 1/4611686018427387901) ((512 . 5625) (/ 1 4611686018427387902) -> 1/4611686018427387902) ((513 . 5625) (/ 1 4611686018427387903) -> 1/4611686018427387903) ((514 . 5625) (/ 1 4611686018427387904) -> 1/4611686018427387904) ((515 . 5625) (/ 1 4611686018427387905) -> 1/4611686018427387905) ((516 . 5625) (/ 2 4611686018427387901) -> 2/4611686018427387901) ((517 . 5625) (/ 2 4611686018427387902) -> 1/2305843009213693951) ((518 . 5625) (/ 2 4611686018427387903) -> 2/4611686018427387903) ((519 . 5625) (/ 2 4611686018427387904) -> 1/2305843009213693952) ((520 . 5625) (/ 2 4611686018427387905) -> 2/4611686018427387905) ((521 . 5625) (/ 3 4611686018427387901) -> 3/4611686018427387901) ((522 . 5625) (/ 3 4611686018427387902) -> 3/4611686018427387902) ((523 . 5625) (/ 3 4611686018427387903) -> 1/1537228672809129301) ((524 . 5625) (/ 3 4611686018427387904) -> 3/4611686018427387904) ((525 . 5625) (/ 3 4611686018427387905) -> 3/4611686018427387905) ((526 . 5625) (/ -1 -4611686018427387906) -> 1/4611686018427387906) ((527 . 5625) (/ -1 -4611686018427387905) -> 1/4611686018427387905) ((528 . 5625) (/ -1 -4611686018427387904) -> 1/4611686018427387904) ((529 . 5625) (/ -1 -4611686018427387903) -> 1/4611686018427387903) ((530 . 5625) (/ -1 -4611686018427387902) -> 1/4611686018427387902) ((531 . 5625) (/ 0 -4611686018427387906) -> 0) ((532 . 5625) (/ 0 -4611686018427387905) -> 0) ((533 . 5625) (/ 0 -4611686018427387904) -> 0) ((534 . 5625) (/ 0 -4611686018427387903) -> 0) ((535 . 5625) (/ 0 -4611686018427387902) -> 0) ((536 . 5625) (/ 1 -4611686018427387906) -> -1/4611686018427387906) ((537 . 5625) (/ 1 -4611686018427387905) -> -1/4611686018427387905) ((538 . 5625) (/ 1 -4611686018427387904) -> -1/4611686018427387904) ((539 . 5625) (/ 1 -4611686018427387903) -> -1/4611686018427387903) ((540 . 5625) (/ 1 -4611686018427387902) -> -1/4611686018427387902) ((541 . 5625) (/ 2 -4611686018427387906) -> -1/2305843009213693953) ((542 . 5625) (/ 2 -4611686018427387905) -> -2/4611686018427387905) ((543 . 5625) (/ 2 -4611686018427387904) -> -1/2305843009213693952) ((544 . 5625) (/ 2 -4611686018427387903) -> -2/4611686018427387903) ((545 . 5625) (/ 2 -4611686018427387902) -> -1/2305843009213693951) ((546 . 5625) (/ 3 -4611686018427387906) -> -1/1537228672809129302) ((547 . 5625) (/ 3 -4611686018427387905) -> -3/4611686018427387905) ((548 . 5625) (/ 3 -4611686018427387904) -> -3/4611686018427387904) ((549 . 5625) (/ 3 -4611686018427387903) -> -1/1537228672809129301) ((550 . 5625) (/ 3 -4611686018427387902) -> -3/4611686018427387902) ((551 . 5625) (/ -1 4611686018427387902) -> -1/4611686018427387902) ((552 . 5625) (/ -1 4611686018427387903) -> -1/4611686018427387903) ((553 . 5625) (/ -1 4611686018427387904) -> -1/4611686018427387904) ((554 . 5625) (/ -1 4611686018427387905) -> -1/4611686018427387905) ((555 . 5625) (/ -1 4611686018427387906) -> -1/4611686018427387906) ((556 . 5625) (/ 0 4611686018427387902) -> 0) ((557 . 5625) (/ 0 4611686018427387903) -> 0) ((558 . 5625) (/ 0 4611686018427387904) -> 0) ((559 . 5625) (/ 0 4611686018427387905) -> 0) ((560 . 5625) (/ 0 4611686018427387906) -> 0) ((561 . 5625) (/ 1 4611686018427387902) -> 1/4611686018427387902) ((562 . 5625) (/ 1 4611686018427387903) -> 1/4611686018427387903) ((563 . 5625) (/ 1 4611686018427387904) -> 1/4611686018427387904) ((564 . 5625) (/ 1 4611686018427387905) -> 1/4611686018427387905) ((565 . 5625) (/ 1 4611686018427387906) -> 1/4611686018427387906) ((566 . 5625) (/ 2 4611686018427387902) -> 1/2305843009213693951) ((567 . 5625) (/ 2 4611686018427387903) -> 2/4611686018427387903) ((568 . 5625) (/ 2 4611686018427387904) -> 1/2305843009213693952) ((569 . 5625) (/ 2 4611686018427387905) -> 2/4611686018427387905) ((570 . 5625) (/ 2 4611686018427387906) -> 1/2305843009213693953) ((571 . 5625) (/ 3 4611686018427387902) -> 3/4611686018427387902) ((572 . 5625) (/ 3 4611686018427387903) -> 1/1537228672809129301) ((573 . 5625) (/ 3 4611686018427387904) -> 3/4611686018427387904) ((574 . 5625) (/ 3 4611686018427387905) -> 3/4611686018427387905) ((575 . 5625) (/ 3 4611686018427387906) -> 1/1537228672809129302) ((576 . 5625) (/ -1 -4611686018427387907) -> 1/4611686018427387907) ((577 . 5625) (/ -1 -4611686018427387906) -> 1/4611686018427387906) ((578 . 5625) (/ -1 -4611686018427387905) -> 1/4611686018427387905) ((579 . 5625) (/ -1 -4611686018427387904) -> 1/4611686018427387904) ((580 . 5625) (/ -1 -4611686018427387903) -> 1/4611686018427387903) ((581 . 5625) (/ 0 -4611686018427387907) -> 0) ((582 . 5625) (/ 0 -4611686018427387906) -> 0) ((583 . 5625) (/ 0 -4611686018427387905) -> 0) ((584 . 5625) (/ 0 -4611686018427387904) -> 0) ((585 . 5625) (/ 0 -4611686018427387903) -> 0) ((586 . 5625) (/ 1 -4611686018427387907) -> -1/4611686018427387907) ((587 . 5625) (/ 1 -4611686018427387906) -> -1/4611686018427387906) ((588 . 5625) (/ 1 -4611686018427387905) -> -1/4611686018427387905) ((589 . 5625) (/ 1 -4611686018427387904) -> -1/4611686018427387904) ((590 . 5625) (/ 1 -4611686018427387903) -> -1/4611686018427387903) ((591 . 5625) (/ 2 -4611686018427387907) -> -2/4611686018427387907) ((592 . 5625) (/ 2 -4611686018427387906) -> -1/2305843009213693953) ((593 . 5625) (/ 2 -4611686018427387905) -> -2/4611686018427387905) ((594 . 5625) (/ 2 -4611686018427387904) -> -1/2305843009213693952) ((595 . 5625) (/ 2 -4611686018427387903) -> -2/4611686018427387903) ((596 . 5625) (/ 3 -4611686018427387907) -> -3/4611686018427387907) ((597 . 5625) (/ 3 -4611686018427387906) -> -1/1537228672809129302) ((598 . 5625) (/ 3 -4611686018427387905) -> -3/4611686018427387905) ((599 . 5625) (/ 3 -4611686018427387904) -> -3/4611686018427387904) ((600 . 5625) (/ 3 -4611686018427387903) -> -1/1537228672809129301) ((601 . 5625) (/ -1 1103515243) -> -1/1103515243) ((602 . 5625) (/ -1 1103515244) -> -1/1103515244) ((603 . 5625) (/ -1 1103515245) -> -1/1103515245) ((604 . 5625) (/ -1 1103515246) -> -1/1103515246) ((605 . 5625) (/ -1 1103515247) -> -1/1103515247) ((606 . 5625) (/ 0 1103515243) -> 0) ((607 . 5625) (/ 0 1103515244) -> 0) ((608 . 5625) (/ 0 1103515245) -> 0) ((609 . 5625) (/ 0 1103515246) -> 0) ((610 . 5625) (/ 0 1103515247) -> 0) ((611 . 5625) (/ 1 1103515243) -> 1/1103515243) ((612 . 5625) (/ 1 1103515244) -> 1/1103515244) ((613 . 5625) (/ 1 1103515245) -> 1/1103515245) ((614 . 5625) (/ 1 1103515246) -> 1/1103515246) ((615 . 5625) (/ 1 1103515247) -> 1/1103515247) ((616 . 5625) (/ 2 1103515243) -> 2/1103515243) ((617 . 5625) (/ 2 1103515244) -> 1/551757622) ((618 . 5625) (/ 2 1103515245) -> 2/1103515245) ((619 . 5625) (/ 2 1103515246) -> 1/551757623) ((620 . 5625) (/ 2 1103515247) -> 2/1103515247) ((621 . 5625) (/ 3 1103515243) -> 3/1103515243) ((622 . 5625) (/ 3 1103515244) -> 3/1103515244) ((623 . 5625) (/ 3 1103515245) -> 1/367838415) ((624 . 5625) (/ 3 1103515246) -> 3/1103515246) ((625 . 5625) (/ 3 1103515247) -> 3/1103515247) ((626 . 5625) (/ -1 631629063) -> -1/631629063) ((627 . 5625) (/ -1 631629064) -> -1/631629064) ((628 . 5625) (/ -1 631629065) -> -1/631629065) ((629 . 5625) (/ -1 631629066) -> -1/631629066) ((630 . 5625) (/ -1 631629067) -> -1/631629067) ((631 . 5625) (/ 0 631629063) -> 0) ((632 . 5625) (/ 0 631629064) -> 0) ((633 . 5625) (/ 0 631629065) -> 0) ((634 . 5625) (/ 0 631629066) -> 0) ((635 . 5625) (/ 0 631629067) -> 0) ((636 . 5625) (/ 1 631629063) -> 1/631629063) ((637 . 5625) (/ 1 631629064) -> 1/631629064) ((638 . 5625) (/ 1 631629065) -> 1/631629065) ((639 . 5625) (/ 1 631629066) -> 1/631629066) ((640 . 5625) (/ 1 631629067) -> 1/631629067) ((641 . 5625) (/ 2 631629063) -> 2/631629063) ((642 . 5625) (/ 2 631629064) -> 1/315814532) ((643 . 5625) (/ 2 631629065) -> 2/631629065) ((644 . 5625) (/ 2 631629066) -> 1/315814533) ((645 . 5625) (/ 2 631629067) -> 2/631629067) ((646 . 5625) (/ 3 631629063) -> 1/210543021) ((647 . 5625) (/ 3 631629064) -> 3/631629064) ((648 . 5625) (/ 3 631629065) -> 3/631629065) ((649 . 5625) (/ 3 631629066) -> 1/210543022) ((650 . 5625) (/ 3 631629067) -> 3/631629067) ((651 . 5625) (/ -1 9007199254740990) -> -1/9007199254740990) ((652 . 5625) (/ -1 9007199254740991) -> -1/9007199254740991) ((653 . 5625) (/ -1 9007199254740992) -> -1/9007199254740992) ((654 . 5625) (/ -1 9007199254740993) -> -1/9007199254740993) ((655 . 5625) (/ -1 9007199254740994) -> -1/9007199254740994) ((656 . 5625) (/ 0 9007199254740990) -> 0) ((657 . 5625) (/ 0 9007199254740991) -> 0) ((658 . 5625) (/ 0 9007199254740992) -> 0) ((659 . 5625) (/ 0 9007199254740993) -> 0) ((660 . 5625) (/ 0 9007199254740994) -> 0) ((661 . 5625) (/ 1 9007199254740990) -> 1/9007199254740990) ((662 . 5625) (/ 1 9007199254740991) -> 1/9007199254740991) ((663 . 5625) (/ 1 9007199254740992) -> 1/9007199254740992) ((664 . 5625) (/ 1 9007199254740993) -> 1/9007199254740993) ((665 . 5625) (/ 1 9007199254740994) -> 1/9007199254740994) ((666 . 5625) (/ 2 9007199254740990) -> 1/4503599627370495) ((667 . 5625) (/ 2 9007199254740991) -> 2/9007199254740991) ((668 . 5625) (/ 2 9007199254740992) -> 1/4503599627370496) ((669 . 5625) (/ 2 9007199254740993) -> 2/9007199254740993) ((670 . 5625) (/ 2 9007199254740994) -> 1/4503599627370497) ((671 . 5625) (/ 3 9007199254740990) -> 1/3002399751580330) ((672 . 5625) (/ 3 9007199254740991) -> 3/9007199254740991) ((673 . 5625) (/ 3 9007199254740992) -> 3/9007199254740992) ((674 . 5625) (/ 3 9007199254740993) -> 1/3002399751580331) ((675 . 5625) (/ 3 9007199254740994) -> 3/9007199254740994) ((676 . 5625) (/ -1 -9007199254740994) -> 1/9007199254740994) ((677 . 5625) (/ -1 -9007199254740993) -> 1/9007199254740993) ((678 . 5625) (/ -1 -9007199254740992) -> 1/9007199254740992) ((679 . 5625) (/ -1 -9007199254740991) -> 1/9007199254740991) ((680 . 5625) (/ -1 -9007199254740990) -> 1/9007199254740990) ((681 . 5625) (/ 0 -9007199254740994) -> 0) ((682 . 5625) (/ 0 -9007199254740993) -> 0) ((683 . 5625) (/ 0 -9007199254740992) -> 0) ((684 . 5625) (/ 0 -9007199254740991) -> 0) ((685 . 5625) (/ 0 -9007199254740990) -> 0) ((686 . 5625) (/ 1 -9007199254740994) -> -1/9007199254740994) ((687 . 5625) (/ 1 -9007199254740993) -> -1/9007199254740993) ((688 . 5625) (/ 1 -9007199254740992) -> -1/9007199254740992) ((689 . 5625) (/ 1 -9007199254740991) -> -1/9007199254740991) ((690 . 5625) (/ 1 -9007199254740990) -> -1/9007199254740990) ((691 . 5625) (/ 2 -9007199254740994) -> -1/4503599627370497) ((692 . 5625) (/ 2 -9007199254740993) -> -2/9007199254740993) ((693 . 5625) (/ 2 -9007199254740992) -> -1/4503599627370496) ((694 . 5625) (/ 2 -9007199254740991) -> -2/9007199254740991) ((695 . 5625) (/ 2 -9007199254740990) -> -1/4503599627370495) ((696 . 5625) (/ 3 -9007199254740994) -> -3/9007199254740994) ((697 . 5625) (/ 3 -9007199254740993) -> -1/3002399751580331) ((698 . 5625) (/ 3 -9007199254740992) -> -3/9007199254740992) ((699 . 5625) (/ 3 -9007199254740991) -> -3/9007199254740991) ((700 . 5625) (/ 3 -9007199254740990) -> -1/3002399751580330) ((701 . 5625) (/ -1 12343) -> -1/12343) ((702 . 5625) (/ -1 12344) -> -1/12344) ((703 . 5625) (/ -1 12345) -> -1/12345) ((704 . 5625) (/ -1 12346) -> -1/12346) ((705 . 5625) (/ -1 12347) -> -1/12347) ((706 . 5625) (/ 0 12343) -> 0) ((707 . 5625) (/ 0 12344) -> 0) ((708 . 5625) (/ 0 12345) -> 0) ((709 . 5625) (/ 0 12346) -> 0) ((710 . 5625) (/ 0 12347) -> 0) ((711 . 5625) (/ 1 12343) -> 1/12343) ((712 . 5625) (/ 1 12344) -> 1/12344) ((713 . 5625) (/ 1 12345) -> 1/12345) ((714 . 5625) (/ 1 12346) -> 1/12346) ((715 . 5625) (/ 1 12347) -> 1/12347) ((716 . 5625) (/ 2 12343) -> 2/12343) ((717 . 5625) (/ 2 12344) -> 1/6172) ((718 . 5625) (/ 2 12345) -> 2/12345) ((719 . 5625) (/ 2 12346) -> 1/6173) ((720 . 5625) (/ 2 12347) -> 2/12347) ((721 . 5625) (/ 3 12343) -> 3/12343) ((722 . 5625) (/ 3 12344) -> 3/12344) ((723 . 5625) (/ 3 12345) -> 1/4115) ((724 . 5625) (/ 3 12346) -> 3/12346) ((725 . 5625) (/ 3 12347) -> 3/12347) ((726 . 5625) (/ -1 4294967294) -> -1/4294967294) ((727 . 5625) (/ -1 4294967295) -> -1/4294967295) ((728 . 5625) (/ -1 4294967296) -> -1/4294967296) ((729 . 5625) (/ -1 4294967297) -> -1/4294967297) ((730 . 5625) (/ -1 4294967298) -> -1/4294967298) ((731 . 5625) (/ 0 4294967294) -> 0) ((732 . 5625) (/ 0 4294967295) -> 0) ((733 . 5625) (/ 0 4294967296) -> 0) ((734 . 5625) (/ 0 4294967297) -> 0) ((735 . 5625) (/ 0 4294967298) -> 0) ((736 . 5625) (/ 1 4294967294) -> 1/4294967294) ((737 . 5625) (/ 1 4294967295) -> 1/4294967295) ((738 . 5625) (/ 1 4294967296) -> 1/4294967296) ((739 . 5625) (/ 1 4294967297) -> 1/4294967297) ((740 . 5625) (/ 1 4294967298) -> 1/4294967298) ((741 . 5625) (/ 2 4294967294) -> 1/2147483647) ((742 . 5625) (/ 2 4294967295) -> 2/4294967295) ((743 . 5625) (/ 2 4294967296) -> 1/2147483648) ((744 . 5625) (/ 2 4294967297) -> 2/4294967297) ((745 . 5625) (/ 2 4294967298) -> 1/2147483649) ((746 . 5625) (/ 3 4294967294) -> 3/4294967294) ((747 . 5625) (/ 3 4294967295) -> 1/1431655765) ((748 . 5625) (/ 3 4294967296) -> 3/4294967296) ((749 . 5625) (/ 3 4294967297) -> 3/4294967297) ((750 . 5625) (/ 3 4294967298) -> 1/1431655766) ((751 . 5625) (/ -3 -2) -> 3/2) ((752 . 5625) (/ -3 -1) -> 3) ((753 . 5625) (/ -3 0) -> "division by zero") ((754 . 5625) (/ -3 1) -> -3) ((755 . 5625) (/ -3 2) -> -3/2) ((756 . 5625) (/ -2 -2) -> 1) ((757 . 5625) (/ -2 -1) -> 2) ((758 . 5625) (/ -2 0) -> "division by zero") ((759 . 5625) (/ -2 1) -> -2) ((760 . 5625) (/ -2 2) -> -1) ((761 . 5625) (/ -1 -2) -> 1/2) ((762 . 5625) (/ -1 -1) -> 1) ((763 . 5625) (/ -1 0) -> "division by zero") ((764 . 5625) (/ -1 1) -> -1) ((765 . 5625) (/ -1 2) -> -1/2) ((766 . 5625) (/ 0 -2) -> 0) ((767 . 5625) (/ 0 -1) -> 0) ((768 . 5625) (/ 0 0) -> "division by zero") ((769 . 5625) (/ 0 1) -> 0) ((770 . 5625) (/ 0 2) -> 0) ((771 . 5625) (/ 1 -2) -> -1/2) ((772 . 5625) (/ 1 -1) -> -1) ((773 . 5625) (/ 1 0) -> "division by zero") ((774 . 5625) (/ 1 1) -> 1) ((775 . 5625) (/ 1 2) -> 1/2) ((776 . 5625) (/ -3 -1) -> 3) ((777 . 5625) (/ -3 0) -> "division by zero") ((778 . 5625) (/ -3 1) -> -3) ((779 . 5625) (/ -3 2) -> -3/2) ((780 . 5625) (/ -3 3) -> -1) ((781 . 5625) (/ -2 -1) -> 2) ((782 . 5625) (/ -2 0) -> "division by zero") ((783 . 5625) (/ -2 1) -> -2) ((784 . 5625) (/ -2 2) -> -1) ((785 . 5625) (/ -2 3) -> -2/3) ((786 . 5625) (/ -1 -1) -> 1) ((787 . 5625) (/ -1 0) -> "division by zero") ((788 . 5625) (/ -1 1) -> -1) ((789 . 5625) (/ -1 2) -> -1/2) ((790 . 5625) (/ -1 3) -> -1/3) ((791 . 5625) (/ 0 -1) -> 0) ((792 . 5625) (/ 0 0) -> "division by zero") ((793 . 5625) (/ 0 1) -> 0) ((794 . 5625) (/ 0 2) -> 0) ((795 . 5625) (/ 0 3) -> 0) ((796 . 5625) (/ 1 -1) -> -1) ((797 . 5625) (/ 1 0) -> "division by zero") ((798 . 5625) (/ 1 1) -> 1) ((799 . 5625) (/ 1 2) -> 1/2) ((800 . 5625) (/ 1 3) -> 1/3) ((801 . 5625) (/ -3 -3) -> 1) ((802 . 5625) (/ -3 -2) -> 3/2) ((803 . 5625) (/ -3 -1) -> 3) ((804 . 5625) (/ -3 0) -> "division by zero") ((805 . 5625) (/ -3 1) -> -3) ((806 . 5625) (/ -2 -3) -> 2/3) ((807 . 5625) (/ -2 -2) -> 1) ((808 . 5625) (/ -2 -1) -> 2) ((809 . 5625) (/ -2 0) -> "division by zero") ((810 . 5625) (/ -2 1) -> -2) ((811 . 5625) (/ -1 -3) -> 1/3) ((812 . 5625) (/ -1 -2) -> 1/2) ((813 . 5625) (/ -1 -1) -> 1) ((814 . 5625) (/ -1 0) -> "division by zero") ((815 . 5625) (/ -1 1) -> -1) ((816 . 5625) (/ 0 -3) -> 0) ((817 . 5625) (/ 0 -2) -> 0) ((818 . 5625) (/ 0 -1) -> 0) ((819 . 5625) (/ 0 0) -> "division by zero") ((820 . 5625) (/ 0 1) -> 0) ((821 . 5625) (/ 1 -3) -> -1/3) ((822 . 5625) (/ 1 -2) -> -1/2) ((823 . 5625) (/ 1 -1) -> -1) ((824 . 5625) (/ 1 0) -> "division by zero") ((825 . 5625) (/ 1 1) -> 1) ((826 . 5625) (/ -3 0) -> "division by zero") ((827 . 5625) (/ -3 1) -> -3) ((828 . 5625) (/ -3 2) -> -3/2) ((829 . 5625) (/ -3 3) -> -1) ((830 . 5625) (/ -3 4) -> -3/4) ((831 . 5625) (/ -2 0) -> "division by zero") ((832 . 5625) (/ -2 1) -> -2) ((833 . 5625) (/ -2 2) -> -1) ((834 . 5625) (/ -2 3) -> -2/3) ((835 . 5625) (/ -2 4) -> -1/2) ((836 . 5625) (/ -1 0) -> "division by zero") ((837 . 5625) (/ -1 1) -> -1) ((838 . 5625) (/ -1 2) -> -1/2) ((839 . 5625) (/ -1 3) -> -1/3) ((840 . 5625) (/ -1 4) -> -1/4) ((841 . 5625) (/ 0 0) -> "division by zero") ((842 . 5625) (/ 0 1) -> 0) ((843 . 5625) (/ 0 2) -> 0) ((844 . 5625) (/ 0 3) -> 0) ((845 . 5625) (/ 0 4) -> 0) ((846 . 5625) (/ 1 0) -> "division by zero") ((847 . 5625) (/ 1 1) -> 1) ((848 . 5625) (/ 1 2) -> 1/2) ((849 . 5625) (/ 1 3) -> 1/3) ((850 . 5625) (/ 1 4) -> 1/4) ((851 . 5625) (/ -3 -4) -> 3/4) ((852 . 5625) (/ -3 -3) -> 1) ((853 . 5625) (/ -3 -2) -> 3/2) ((854 . 5625) (/ -3 -1) -> 3) ((855 . 5625) (/ -3 0) -> "division by zero") ((856 . 5625) (/ -2 -4) -> 1/2) ((857 . 5625) (/ -2 -3) -> 2/3) ((858 . 5625) (/ -2 -2) -> 1) ((859 . 5625) (/ -2 -1) -> 2) ((860 . 5625) (/ -2 0) -> "division by zero") ((861 . 5625) (/ -1 -4) -> 1/4) ((862 . 5625) (/ -1 -3) -> 1/3) ((863 . 5625) (/ -1 -2) -> 1/2) ((864 . 5625) (/ -1 -1) -> 1) ((865 . 5625) (/ -1 0) -> "division by zero") ((866 . 5625) (/ 0 -4) -> 0) ((867 . 5625) (/ 0 -3) -> 0) ((868 . 5625) (/ 0 -2) -> 0) ((869 . 5625) (/ 0 -1) -> 0) ((870 . 5625) (/ 0 0) -> "division by zero") ((871 . 5625) (/ 1 -4) -> -1/4) ((872 . 5625) (/ 1 -3) -> -1/3) ((873 . 5625) (/ 1 -2) -> -1/2) ((874 . 5625) (/ 1 -1) -> -1) ((875 . 5625) (/ 1 0) -> "division by zero") ((876 . 5625) (/ -3 4611686018427387901) -> -3/4611686018427387901) ((877 . 5625) (/ -3 4611686018427387902) -> -3/4611686018427387902) ((878 . 5625) (/ -3 4611686018427387903) -> -1/1537228672809129301) ((879 . 5625) (/ -3 4611686018427387904) -> -3/4611686018427387904) ((880 . 5625) (/ -3 4611686018427387905) -> -3/4611686018427387905) ((881 . 5625) (/ -2 4611686018427387901) -> -2/4611686018427387901) ((882 . 5625) (/ -2 4611686018427387902) -> -1/2305843009213693951) ((883 . 5625) (/ -2 4611686018427387903) -> -2/4611686018427387903) ((884 . 5625) (/ -2 4611686018427387904) -> -1/2305843009213693952) ((885 . 5625) (/ -2 4611686018427387905) -> -2/4611686018427387905) ((886 . 5625) (/ -1 4611686018427387901) -> -1/4611686018427387901) ((887 . 5625) (/ -1 4611686018427387902) -> -1/4611686018427387902) ((888 . 5625) (/ -1 4611686018427387903) -> -1/4611686018427387903) ((889 . 5625) (/ -1 4611686018427387904) -> -1/4611686018427387904) ((890 . 5625) (/ -1 4611686018427387905) -> -1/4611686018427387905) ((891 . 5625) (/ 0 4611686018427387901) -> 0) ((892 . 5625) (/ 0 4611686018427387902) -> 0) ((893 . 5625) (/ 0 4611686018427387903) -> 0) ((894 . 5625) (/ 0 4611686018427387904) -> 0) ((895 . 5625) (/ 0 4611686018427387905) -> 0) ((896 . 5625) (/ 1 4611686018427387901) -> 1/4611686018427387901) ((897 . 5625) (/ 1 4611686018427387902) -> 1/4611686018427387902) ((898 . 5625) (/ 1 4611686018427387903) -> 1/4611686018427387903) ((899 . 5625) (/ 1 4611686018427387904) -> 1/4611686018427387904) ((900 . 5625) (/ 1 4611686018427387905) -> 1/4611686018427387905) ((901 . 5625) (/ -3 -4611686018427387906) -> 1/1537228672809129302) ((902 . 5625) (/ -3 -4611686018427387905) -> 3/4611686018427387905) ((903 . 5625) (/ -3 -4611686018427387904) -> 3/4611686018427387904) ((904 . 5625) (/ -3 -4611686018427387903) -> 1/1537228672809129301) ((905 . 5625) (/ -3 -4611686018427387902) -> 3/4611686018427387902) ((906 . 5625) (/ -2 -4611686018427387906) -> 1/2305843009213693953) ((907 . 5625) (/ -2 -4611686018427387905) -> 2/4611686018427387905) ((908 . 5625) (/ -2 -4611686018427387904) -> 1/2305843009213693952) ((909 . 5625) (/ -2 -4611686018427387903) -> 2/4611686018427387903) ((910 . 5625) (/ -2 -4611686018427387902) -> 1/2305843009213693951) ((911 . 5625) (/ -1 -4611686018427387906) -> 1/4611686018427387906) ((912 . 5625) (/ -1 -4611686018427387905) -> 1/4611686018427387905) ((913 . 5625) (/ -1 -4611686018427387904) -> 1/4611686018427387904) ((914 . 5625) (/ -1 -4611686018427387903) -> 1/4611686018427387903) ((915 . 5625) (/ -1 -4611686018427387902) -> 1/4611686018427387902) ((916 . 5625) (/ 0 -4611686018427387906) -> 0) ((917 . 5625) (/ 0 -4611686018427387905) -> 0) ((918 . 5625) (/ 0 -4611686018427387904) -> 0) ((919 . 5625) (/ 0 -4611686018427387903) -> 0) ((920 . 5625) (/ 0 -4611686018427387902) -> 0) ((921 . 5625) (/ 1 -4611686018427387906) -> -1/4611686018427387906) ((922 . 5625) (/ 1 -4611686018427387905) -> -1/4611686018427387905) ((923 . 5625) (/ 1 -4611686018427387904) -> -1/4611686018427387904) ((924 . 5625) (/ 1 -4611686018427387903) -> -1/4611686018427387903) ((925 . 5625) (/ 1 -4611686018427387902) -> -1/4611686018427387902) ((926 . 5625) (/ -3 4611686018427387902) -> -3/4611686018427387902) ((927 . 5625) (/ -3 4611686018427387903) -> -1/1537228672809129301) ((928 . 5625) (/ -3 4611686018427387904) -> -3/4611686018427387904) ((929 . 5625) (/ -3 4611686018427387905) -> -3/4611686018427387905) ((930 . 5625) (/ -3 4611686018427387906) -> -1/1537228672809129302) ((931 . 5625) (/ -2 4611686018427387902) -> -1/2305843009213693951) ((932 . 5625) (/ -2 4611686018427387903) -> -2/4611686018427387903) ((933 . 5625) (/ -2 4611686018427387904) -> -1/2305843009213693952) ((934 . 5625) (/ -2 4611686018427387905) -> -2/4611686018427387905) ((935 . 5625) (/ -2 4611686018427387906) -> -1/2305843009213693953) ((936 . 5625) (/ -1 4611686018427387902) -> -1/4611686018427387902) ((937 . 5625) (/ -1 4611686018427387903) -> -1/4611686018427387903) ((938 . 5625) (/ -1 4611686018427387904) -> -1/4611686018427387904) ((939 . 5625) (/ -1 4611686018427387905) -> -1/4611686018427387905) ((940 . 5625) (/ -1 4611686018427387906) -> -1/4611686018427387906) ((941 . 5625) (/ 0 4611686018427387902) -> 0) ((942 . 5625) (/ 0 4611686018427387903) -> 0) ((943 . 5625) (/ 0 4611686018427387904) -> 0) ((944 . 5625) (/ 0 4611686018427387905) -> 0) ((945 . 5625) (/ 0 4611686018427387906) -> 0) ((946 . 5625) (/ 1 4611686018427387902) -> 1/4611686018427387902) ((947 . 5625) (/ 1 4611686018427387903) -> 1/4611686018427387903) ((948 . 5625) (/ 1 4611686018427387904) -> 1/4611686018427387904) ((949 . 5625) (/ 1 4611686018427387905) -> 1/4611686018427387905) ((950 . 5625) (/ 1 4611686018427387906) -> 1/4611686018427387906) ((951 . 5625) (/ -3 -4611686018427387907) -> 3/4611686018427387907) ((952 . 5625) (/ -3 -4611686018427387906) -> 1/1537228672809129302) ((953 . 5625) (/ -3 -4611686018427387905) -> 3/4611686018427387905) ((954 . 5625) (/ -3 -4611686018427387904) -> 3/4611686018427387904) ((955 . 5625) (/ -3 -4611686018427387903) -> 1/1537228672809129301) ((956 . 5625) (/ -2 -4611686018427387907) -> 2/4611686018427387907) ((957 . 5625) (/ -2 -4611686018427387906) -> 1/2305843009213693953) ((958 . 5625) (/ -2 -4611686018427387905) -> 2/4611686018427387905) ((959 . 5625) (/ -2 -4611686018427387904) -> 1/2305843009213693952) ((960 . 5625) (/ -2 -4611686018427387903) -> 2/4611686018427387903) ((961 . 5625) (/ -1 -4611686018427387907) -> 1/4611686018427387907) ((962 . 5625) (/ -1 -4611686018427387906) -> 1/4611686018427387906) ((963 . 5625) (/ -1 -4611686018427387905) -> 1/4611686018427387905) ((964 . 5625) (/ -1 -4611686018427387904) -> 1/4611686018427387904) ((965 . 5625) (/ -1 -4611686018427387903) -> 1/4611686018427387903) ((966 . 5625) (/ 0 -4611686018427387907) -> 0) ((967 . 5625) (/ 0 -4611686018427387906) -> 0) ((968 . 5625) (/ 0 -4611686018427387905) -> 0) ((969 . 5625) (/ 0 -4611686018427387904) -> 0) ((970 . 5625) (/ 0 -4611686018427387903) -> 0) ((971 . 5625) (/ 1 -4611686018427387907) -> -1/4611686018427387907) ((972 . 5625) (/ 1 -4611686018427387906) -> -1/4611686018427387906) ((973 . 5625) (/ 1 -4611686018427387905) -> -1/4611686018427387905) ((974 . 5625) (/ 1 -4611686018427387904) -> -1/4611686018427387904) ((975 . 5625) (/ 1 -4611686018427387903) -> -1/4611686018427387903) ((976 . 5625) (/ -3 1103515243) -> -3/1103515243) ((977 . 5625) (/ -3 1103515244) -> -3/1103515244) ((978 . 5625) (/ -3 1103515245) -> -1/367838415) ((979 . 5625) (/ -3 1103515246) -> -3/1103515246) ((980 . 5625) (/ -3 1103515247) -> -3/1103515247) ((981 . 5625) (/ -2 1103515243) -> -2/1103515243) ((982 . 5625) (/ -2 1103515244) -> -1/551757622) ((983 . 5625) (/ -2 1103515245) -> -2/1103515245) ((984 . 5625) (/ -2 1103515246) -> -1/551757623) ((985 . 5625) (/ -2 1103515247) -> -2/1103515247) ((986 . 5625) (/ -1 1103515243) -> -1/1103515243) ((987 . 5625) (/ -1 1103515244) -> -1/1103515244) ((988 . 5625) (/ -1 1103515245) -> -1/1103515245) ((989 . 5625) (/ -1 1103515246) -> -1/1103515246) ((990 . 5625) (/ -1 1103515247) -> -1/1103515247) ((991 . 5625) (/ 0 1103515243) -> 0) ((992 . 5625) (/ 0 1103515244) -> 0) ((993 . 5625) (/ 0 1103515245) -> 0) ((994 . 5625) (/ 0 1103515246) -> 0) ((995 . 5625) (/ 0 1103515247) -> 0) ((996 . 5625) (/ 1 1103515243) -> 1/1103515243) ((997 . 5625) (/ 1 1103515244) -> 1/1103515244) ((998 . 5625) (/ 1 1103515245) -> 1/1103515245) ((999 . 5625) (/ 1 1103515246) -> 1/1103515246) ((1000 . 5625) (/ 1 1103515247) -> 1/1103515247) ((1001 . 5625) (/ -3 631629063) -> -1/210543021) ((1002 . 5625) (/ -3 631629064) -> -3/631629064) ((1003 . 5625) (/ -3 631629065) -> -3/631629065) ((1004 . 5625) (/ -3 631629066) -> -1/210543022) ((1005 . 5625) (/ -3 631629067) -> -3/631629067) ((1006 . 5625) (/ -2 631629063) -> -2/631629063) ((1007 . 5625) (/ -2 631629064) -> -1/315814532) ((1008 . 5625) (/ -2 631629065) -> -2/631629065) ((1009 . 5625) (/ -2 631629066) -> -1/315814533) ((1010 . 5625) (/ -2 631629067) -> -2/631629067) ((1011 . 5625) (/ -1 631629063) -> -1/631629063) ((1012 . 5625) (/ -1 631629064) -> -1/631629064) ((1013 . 5625) (/ -1 631629065) -> -1/631629065) ((1014 . 5625) (/ -1 631629066) -> -1/631629066) ((1015 . 5625) (/ -1 631629067) -> -1/631629067) ((1016 . 5625) (/ 0 631629063) -> 0) ((1017 . 5625) (/ 0 631629064) -> 0) ((1018 . 5625) (/ 0 631629065) -> 0) ((1019 . 5625) (/ 0 631629066) -> 0) ((1020 . 5625) (/ 0 631629067) -> 0) ((1021 . 5625) (/ 1 631629063) -> 1/631629063) ((1022 . 5625) (/ 1 631629064) -> 1/631629064) ((1023 . 5625) (/ 1 631629065) -> 1/631629065) ((1024 . 5625) (/ 1 631629066) -> 1/631629066) ((1025 . 5625) (/ 1 631629067) -> 1/631629067) ((1026 . 5625) (/ -3 9007199254740990) -> -1/3002399751580330) ((1027 . 5625) (/ -3 9007199254740991) -> -3/9007199254740991) ((1028 . 5625) (/ -3 9007199254740992) -> -3/9007199254740992) ((1029 . 5625) (/ -3 9007199254740993) -> -1/3002399751580331) ((1030 . 5625) (/ -3 9007199254740994) -> -3/9007199254740994) ((1031 . 5625) (/ -2 9007199254740990) -> -1/4503599627370495) ((1032 . 5625) (/ -2 9007199254740991) -> -2/9007199254740991) ((1033 . 5625) (/ -2 9007199254740992) -> -1/4503599627370496) ((1034 . 5625) (/ -2 9007199254740993) -> -2/9007199254740993) ((1035 . 5625) (/ -2 9007199254740994) -> -1/4503599627370497) ((1036 . 5625) (/ -1 9007199254740990) -> -1/9007199254740990) ((1037 . 5625) (/ -1 9007199254740991) -> -1/9007199254740991) ((1038 . 5625) (/ -1 9007199254740992) -> -1/9007199254740992) ((1039 . 5625) (/ -1 9007199254740993) -> -1/9007199254740993) ((1040 . 5625) (/ -1 9007199254740994) -> -1/9007199254740994) ((1041 . 5625) (/ 0 9007199254740990) -> 0) ((1042 . 5625) (/ 0 9007199254740991) -> 0) ((1043 . 5625) (/ 0 9007199254740992) -> 0) ((1044 . 5625) (/ 0 9007199254740993) -> 0) ((1045 . 5625) (/ 0 9007199254740994) -> 0) ((1046 . 5625) (/ 1 9007199254740990) -> 1/9007199254740990) ((1047 . 5625) (/ 1 9007199254740991) -> 1/9007199254740991) ((1048 . 5625) (/ 1 9007199254740992) -> 1/9007199254740992) ((1049 . 5625) (/ 1 9007199254740993) -> 1/9007199254740993) ((1050 . 5625) (/ 1 9007199254740994) -> 1/9007199254740994) ((1051 . 5625) (/ -3 -9007199254740994) -> 3/9007199254740994) ((1052 . 5625) (/ -3 -9007199254740993) -> 1/3002399751580331) ((1053 . 5625) (/ -3 -9007199254740992) -> 3/9007199254740992) ((1054 . 5625) (/ -3 -9007199254740991) -> 3/9007199254740991) ((1055 . 5625) (/ -3 -9007199254740990) -> 1/3002399751580330) ((1056 . 5625) (/ -2 -9007199254740994) -> 1/4503599627370497) ((1057 . 5625) (/ -2 -9007199254740993) -> 2/9007199254740993) ((1058 . 5625) (/ -2 -9007199254740992) -> 1/4503599627370496) ((1059 . 5625) (/ -2 -9007199254740991) -> 2/9007199254740991) ((1060 . 5625) (/ -2 -9007199254740990) -> 1/4503599627370495) ((1061 . 5625) (/ -1 -9007199254740994) -> 1/9007199254740994) ((1062 . 5625) (/ -1 -9007199254740993) -> 1/9007199254740993) ((1063 . 5625) (/ -1 -9007199254740992) -> 1/9007199254740992) ((1064 . 5625) (/ -1 -9007199254740991) -> 1/9007199254740991) ((1065 . 5625) (/ -1 -9007199254740990) -> 1/9007199254740990) ((1066 . 5625) (/ 0 -9007199254740994) -> 0) ((1067 . 5625) (/ 0 -9007199254740993) -> 0) ((1068 . 5625) (/ 0 -9007199254740992) -> 0) ((1069 . 5625) (/ 0 -9007199254740991) -> 0) ((1070 . 5625) (/ 0 -9007199254740990) -> 0) ((1071 . 5625) (/ 1 -9007199254740994) -> -1/9007199254740994) ((1072 . 5625) (/ 1 -9007199254740993) -> -1/9007199254740993) ((1073 . 5625) (/ 1 -9007199254740992) -> -1/9007199254740992) ((1074 . 5625) (/ 1 -9007199254740991) -> -1/9007199254740991) ((1075 . 5625) (/ 1 -9007199254740990) -> -1/9007199254740990) ((1076 . 5625) (/ -3 12343) -> -3/12343) ((1077 . 5625) (/ -3 12344) -> -3/12344) ((1078 . 5625) (/ -3 12345) -> -1/4115) ((1079 . 5625) (/ -3 12346) -> -3/12346) ((1080 . 5625) (/ -3 12347) -> -3/12347) ((1081 . 5625) (/ -2 12343) -> -2/12343) ((1082 . 5625) (/ -2 12344) -> -1/6172) ((1083 . 5625) (/ -2 12345) -> -2/12345) ((1084 . 5625) (/ -2 12346) -> -1/6173) ((1085 . 5625) (/ -2 12347) -> -2/12347) ((1086 . 5625) (/ -1 12343) -> -1/12343) ((1087 . 5625) (/ -1 12344) -> -1/12344) ((1088 . 5625) (/ -1 12345) -> -1/12345) ((1089 . 5625) (/ -1 12346) -> -1/12346) ((1090 . 5625) (/ -1 12347) -> -1/12347) ((1091 . 5625) (/ 0 12343) -> 0) ((1092 . 5625) (/ 0 12344) -> 0) ((1093 . 5625) (/ 0 12345) -> 0) ((1094 . 5625) (/ 0 12346) -> 0) ((1095 . 5625) (/ 0 12347) -> 0) ((1096 . 5625) (/ 1 12343) -> 1/12343) ((1097 . 5625) (/ 1 12344) -> 1/12344) ((1098 . 5625) (/ 1 12345) -> 1/12345) ((1099 . 5625) (/ 1 12346) -> 1/12346) ((1100 . 5625) (/ 1 12347) -> 1/12347) ((1101 . 5625) (/ -3 4294967294) -> -3/4294967294) ((1102 . 5625) (/ -3 4294967295) -> -1/1431655765) ((1103 . 5625) (/ -3 4294967296) -> -3/4294967296) ((1104 . 5625) (/ -3 4294967297) -> -3/4294967297) ((1105 . 5625) (/ -3 4294967298) -> -1/1431655766) ((1106 . 5625) (/ -2 4294967294) -> -1/2147483647) ((1107 . 5625) (/ -2 4294967295) -> -2/4294967295) ((1108 . 5625) (/ -2 4294967296) -> -1/2147483648) ((1109 . 5625) (/ -2 4294967297) -> -2/4294967297) ((1110 . 5625) (/ -2 4294967298) -> -1/2147483649) ((1111 . 5625) (/ -1 4294967294) -> -1/4294967294) ((1112 . 5625) (/ -1 4294967295) -> -1/4294967295) ((1113 . 5625) (/ -1 4294967296) -> -1/4294967296) ((1114 . 5625) (/ -1 4294967297) -> -1/4294967297) ((1115 . 5625) (/ -1 4294967298) -> -1/4294967298) ((1116 . 5625) (/ 0 4294967294) -> 0) ((1117 . 5625) (/ 0 4294967295) -> 0) ((1118 . 5625) (/ 0 4294967296) -> 0) ((1119 . 5625) (/ 0 4294967297) -> 0) ((1120 . 5625) (/ 0 4294967298) -> 0) ((1121 . 5625) (/ 1 4294967294) -> 1/4294967294) ((1122 . 5625) (/ 1 4294967295) -> 1/4294967295) ((1123 . 5625) (/ 1 4294967296) -> 1/4294967296) ((1124 . 5625) (/ 1 4294967297) -> 1/4294967297) ((1125 . 5625) (/ 1 4294967298) -> 1/4294967298) ((1126 . 5625) (/ 0 -2) -> 0) ((1127 . 5625) (/ 0 -1) -> 0) ((1128 . 5625) (/ 0 0) -> "division by zero") ((1129 . 5625) (/ 0 1) -> 0) ((1130 . 5625) (/ 0 2) -> 0) ((1131 . 5625) (/ 1 -2) -> -1/2) ((1132 . 5625) (/ 1 -1) -> -1) ((1133 . 5625) (/ 1 0) -> "division by zero") ((1134 . 5625) (/ 1 1) -> 1) ((1135 . 5625) (/ 1 2) -> 1/2) ((1136 . 5625) (/ 2 -2) -> -1) ((1137 . 5625) (/ 2 -1) -> -2) ((1138 . 5625) (/ 2 0) -> "division by zero") ((1139 . 5625) (/ 2 1) -> 2) ((1140 . 5625) (/ 2 2) -> 1) ((1141 . 5625) (/ 3 -2) -> -3/2) ((1142 . 5625) (/ 3 -1) -> -3) ((1143 . 5625) (/ 3 0) -> "division by zero") ((1144 . 5625) (/ 3 1) -> 3) ((1145 . 5625) (/ 3 2) -> 3/2) ((1146 . 5625) (/ 4 -2) -> -2) ((1147 . 5625) (/ 4 -1) -> -4) ((1148 . 5625) (/ 4 0) -> "division by zero") ((1149 . 5625) (/ 4 1) -> 4) ((1150 . 5625) (/ 4 2) -> 2) ((1151 . 5625) (/ 0 -1) -> 0) ((1152 . 5625) (/ 0 0) -> "division by zero") ((1153 . 5625) (/ 0 1) -> 0) ((1154 . 5625) (/ 0 2) -> 0) ((1155 . 5625) (/ 0 3) -> 0) ((1156 . 5625) (/ 1 -1) -> -1) ((1157 . 5625) (/ 1 0) -> "division by zero") ((1158 . 5625) (/ 1 1) -> 1) ((1159 . 5625) (/ 1 2) -> 1/2) ((1160 . 5625) (/ 1 3) -> 1/3) ((1161 . 5625) (/ 2 -1) -> -2) ((1162 . 5625) (/ 2 0) -> "division by zero") ((1163 . 5625) (/ 2 1) -> 2) ((1164 . 5625) (/ 2 2) -> 1) ((1165 . 5625) (/ 2 3) -> 2/3) ((1166 . 5625) (/ 3 -1) -> -3) ((1167 . 5625) (/ 3 0) -> "division by zero") ((1168 . 5625) (/ 3 1) -> 3) ((1169 . 5625) (/ 3 2) -> 3/2) ((1170 . 5625) (/ 3 3) -> 1) ((1171 . 5625) (/ 4 -1) -> -4) ((1172 . 5625) (/ 4 0) -> "division by zero") ((1173 . 5625) (/ 4 1) -> 4) ((1174 . 5625) (/ 4 2) -> 2) ((1175 . 5625) (/ 4 3) -> 4/3) ((1176 . 5625) (/ 0 -3) -> 0) ((1177 . 5625) (/ 0 -2) -> 0) ((1178 . 5625) (/ 0 -1) -> 0) ((1179 . 5625) (/ 0 0) -> "division by zero") ((1180 . 5625) (/ 0 1) -> 0) ((1181 . 5625) (/ 1 -3) -> -1/3) ((1182 . 5625) (/ 1 -2) -> -1/2) ((1183 . 5625) (/ 1 -1) -> -1) ((1184 . 5625) (/ 1 0) -> "division by zero") ((1185 . 5625) (/ 1 1) -> 1) ((1186 . 5625) (/ 2 -3) -> -2/3) ((1187 . 5625) (/ 2 -2) -> -1) ((1188 . 5625) (/ 2 -1) -> -2) ((1189 . 5625) (/ 2 0) -> "division by zero") ((1190 . 5625) (/ 2 1) -> 2) ((1191 . 5625) (/ 3 -3) -> -1) ((1192 . 5625) (/ 3 -2) -> -3/2) ((1193 . 5625) (/ 3 -1) -> -3) ((1194 . 5625) (/ 3 0) -> "division by zero") ((1195 . 5625) (/ 3 1) -> 3) ((1196 . 5625) (/ 4 -3) -> -4/3) ((1197 . 5625) (/ 4 -2) -> -2) ((1198 . 5625) (/ 4 -1) -> -4) ((1199 . 5625) (/ 4 0) -> "division by zero") ((1200 . 5625) (/ 4 1) -> 4) ((1201 . 5625) (/ 0 0) -> "division by zero") ((1202 . 5625) (/ 0 1) -> 0) ((1203 . 5625) (/ 0 2) -> 0) ((1204 . 5625) (/ 0 3) -> 0) ((1205 . 5625) (/ 0 4) -> 0) ((1206 . 5625) (/ 1 0) -> "division by zero") ((1207 . 5625) (/ 1 1) -> 1) ((1208 . 5625) (/ 1 2) -> 1/2) ((1209 . 5625) (/ 1 3) -> 1/3) ((1210 . 5625) (/ 1 4) -> 1/4) ((1211 . 5625) (/ 2 0) -> "division by zero") ((1212 . 5625) (/ 2 1) -> 2) ((1213 . 5625) (/ 2 2) -> 1) ((1214 . 5625) (/ 2 3) -> 2/3) ((1215 . 5625) (/ 2 4) -> 1/2) ((1216 . 5625) (/ 3 0) -> "division by zero") ((1217 . 5625) (/ 3 1) -> 3) ((1218 . 5625) (/ 3 2) -> 3/2) ((1219 . 5625) (/ 3 3) -> 1) ((1220 . 5625) (/ 3 4) -> 3/4) ((1221 . 5625) (/ 4 0) -> "division by zero") ((1222 . 5625) (/ 4 1) -> 4) ((1223 . 5625) (/ 4 2) -> 2) ((1224 . 5625) (/ 4 3) -> 4/3) ((1225 . 5625) (/ 4 4) -> 1) ((1226 . 5625) (/ 0 -4) -> 0) ((1227 . 5625) (/ 0 -3) -> 0) ((1228 . 5625) (/ 0 -2) -> 0) ((1229 . 5625) (/ 0 -1) -> 0) ((1230 . 5625) (/ 0 0) -> "division by zero") ((1231 . 5625) (/ 1 -4) -> -1/4) ((1232 . 5625) (/ 1 -3) -> -1/3) ((1233 . 5625) (/ 1 -2) -> -1/2) ((1234 . 5625) (/ 1 -1) -> -1) ((1235 . 5625) (/ 1 0) -> "division by zero") ((1236 . 5625) (/ 2 -4) -> -1/2) ((1237 . 5625) (/ 2 -3) -> -2/3) ((1238 . 5625) (/ 2 -2) -> -1) ((1239 . 5625) (/ 2 -1) -> -2) ((1240 . 5625) (/ 2 0) -> "division by zero") ((1241 . 5625) (/ 3 -4) -> -3/4) ((1242 . 5625) (/ 3 -3) -> -1) ((1243 . 5625) (/ 3 -2) -> -3/2) ((1244 . 5625) (/ 3 -1) -> -3) ((1245 . 5625) (/ 3 0) -> "division by zero") ((1246 . 5625) (/ 4 -4) -> -1) ((1247 . 5625) (/ 4 -3) -> -4/3) ((1248 . 5625) (/ 4 -2) -> -2) ((1249 . 5625) (/ 4 -1) -> -4) ((1250 . 5625) (/ 4 0) -> "division by zero") ((1251 . 5625) (/ 0 4611686018427387901) -> 0) ((1252 . 5625) (/ 0 4611686018427387902) -> 0) ((1253 . 5625) (/ 0 4611686018427387903) -> 0) ((1254 . 5625) (/ 0 4611686018427387904) -> 0) ((1255 . 5625) (/ 0 4611686018427387905) -> 0) ((1256 . 5625) (/ 1 4611686018427387901) -> 1/4611686018427387901) ((1257 . 5625) (/ 1 4611686018427387902) -> 1/4611686018427387902) ((1258 . 5625) (/ 1 4611686018427387903) -> 1/4611686018427387903) ((1259 . 5625) (/ 1 4611686018427387904) -> 1/4611686018427387904) ((1260 . 5625) (/ 1 4611686018427387905) -> 1/4611686018427387905) ((1261 . 5625) (/ 2 4611686018427387901) -> 2/4611686018427387901) ((1262 . 5625) (/ 2 4611686018427387902) -> 1/2305843009213693951) ((1263 . 5625) (/ 2 4611686018427387903) -> 2/4611686018427387903) ((1264 . 5625) (/ 2 4611686018427387904) -> 1/2305843009213693952) ((1265 . 5625) (/ 2 4611686018427387905) -> 2/4611686018427387905) ((1266 . 5625) (/ 3 4611686018427387901) -> 3/4611686018427387901) ((1267 . 5625) (/ 3 4611686018427387902) -> 3/4611686018427387902) ((1268 . 5625) (/ 3 4611686018427387903) -> 1/1537228672809129301) ((1269 . 5625) (/ 3 4611686018427387904) -> 3/4611686018427387904) ((1270 . 5625) (/ 3 4611686018427387905) -> 3/4611686018427387905) ((1271 . 5625) (/ 4 4611686018427387901) -> 4/4611686018427387901) ((1272 . 5625) (/ 4 4611686018427387902) -> 2/2305843009213693951) ((1273 . 5625) (/ 4 4611686018427387903) -> 4/4611686018427387903) ((1274 . 5625) (/ 4 4611686018427387904) -> 1/1152921504606846976) ((1275 . 5625) (/ 4 4611686018427387905) -> 4/4611686018427387905) ((1276 . 5625) (/ 0 -4611686018427387906) -> 0) ((1277 . 5625) (/ 0 -4611686018427387905) -> 0) ((1278 . 5625) (/ 0 -4611686018427387904) -> 0) ((1279 . 5625) (/ 0 -4611686018427387903) -> 0) ((1280 . 5625) (/ 0 -4611686018427387902) -> 0) ((1281 . 5625) (/ 1 -4611686018427387906) -> -1/4611686018427387906) ((1282 . 5625) (/ 1 -4611686018427387905) -> -1/4611686018427387905) ((1283 . 5625) (/ 1 -4611686018427387904) -> -1/4611686018427387904) ((1284 . 5625) (/ 1 -4611686018427387903) -> -1/4611686018427387903) ((1285 . 5625) (/ 1 -4611686018427387902) -> -1/4611686018427387902) ((1286 . 5625) (/ 2 -4611686018427387906) -> -1/2305843009213693953) ((1287 . 5625) (/ 2 -4611686018427387905) -> -2/4611686018427387905) ((1288 . 5625) (/ 2 -4611686018427387904) -> -1/2305843009213693952) ((1289 . 5625) (/ 2 -4611686018427387903) -> -2/4611686018427387903) ((1290 . 5625) (/ 2 -4611686018427387902) -> -1/2305843009213693951) ((1291 . 5625) (/ 3 -4611686018427387906) -> -1/1537228672809129302) ((1292 . 5625) (/ 3 -4611686018427387905) -> -3/4611686018427387905) ((1293 . 5625) (/ 3 -4611686018427387904) -> -3/4611686018427387904) ((1294 . 5625) (/ 3 -4611686018427387903) -> -1/1537228672809129301) ((1295 . 5625) (/ 3 -4611686018427387902) -> -3/4611686018427387902) ((1296 . 5625) (/ 4 -4611686018427387906) -> -2/2305843009213693953) ((1297 . 5625) (/ 4 -4611686018427387905) -> -4/4611686018427387905) ((1298 . 5625) (/ 4 -4611686018427387904) -> -1/1152921504606846976) ((1299 . 5625) (/ 4 -4611686018427387903) -> -4/4611686018427387903) ((1300 . 5625) (/ 4 -4611686018427387902) -> -2/2305843009213693951) ((1301 . 5625) (/ 0 4611686018427387902) -> 0) ((1302 . 5625) (/ 0 4611686018427387903) -> 0) ((1303 . 5625) (/ 0 4611686018427387904) -> 0) ((1304 . 5625) (/ 0 4611686018427387905) -> 0) ((1305 . 5625) (/ 0 4611686018427387906) -> 0) ((1306 . 5625) (/ 1 4611686018427387902) -> 1/4611686018427387902) ((1307 . 5625) (/ 1 4611686018427387903) -> 1/4611686018427387903) ((1308 . 5625) (/ 1 4611686018427387904) -> 1/4611686018427387904) ((1309 . 5625) (/ 1 4611686018427387905) -> 1/4611686018427387905) ((1310 . 5625) (/ 1 4611686018427387906) -> 1/4611686018427387906) ((1311 . 5625) (/ 2 4611686018427387902) -> 1/2305843009213693951) ((1312 . 5625) (/ 2 4611686018427387903) -> 2/4611686018427387903) ((1313 . 5625) (/ 2 4611686018427387904) -> 1/2305843009213693952) ((1314 . 5625) (/ 2 4611686018427387905) -> 2/4611686018427387905) ((1315 . 5625) (/ 2 4611686018427387906) -> 1/2305843009213693953) ((1316 . 5625) (/ 3 4611686018427387902) -> 3/4611686018427387902) ((1317 . 5625) (/ 3 4611686018427387903) -> 1/1537228672809129301) ((1318 . 5625) (/ 3 4611686018427387904) -> 3/4611686018427387904) ((1319 . 5625) (/ 3 4611686018427387905) -> 3/4611686018427387905) ((1320 . 5625) (/ 3 4611686018427387906) -> 1/1537228672809129302) ((1321 . 5625) (/ 4 4611686018427387902) -> 2/2305843009213693951) ((1322 . 5625) (/ 4 4611686018427387903) -> 4/4611686018427387903) ((1323 . 5625) (/ 4 4611686018427387904) -> 1/1152921504606846976) ((1324 . 5625) (/ 4 4611686018427387905) -> 4/4611686018427387905) ((1325 . 5625) (/ 4 4611686018427387906) -> 2/2305843009213693953) ((1326 . 5625) (/ 0 -4611686018427387907) -> 0) ((1327 . 5625) (/ 0 -4611686018427387906) -> 0) ((1328 . 5625) (/ 0 -4611686018427387905) -> 0) ((1329 . 5625) (/ 0 -4611686018427387904) -> 0) ((1330 . 5625) (/ 0 -4611686018427387903) -> 0) ((1331 . 5625) (/ 1 -4611686018427387907) -> -1/4611686018427387907) ((1332 . 5625) (/ 1 -4611686018427387906) -> -1/4611686018427387906) ((1333 . 5625) (/ 1 -4611686018427387905) -> -1/4611686018427387905) ((1334 . 5625) (/ 1 -4611686018427387904) -> -1/4611686018427387904) ((1335 . 5625) (/ 1 -4611686018427387903) -> -1/4611686018427387903) ((1336 . 5625) (/ 2 -4611686018427387907) -> -2/4611686018427387907) ((1337 . 5625) (/ 2 -4611686018427387906) -> -1/2305843009213693953) ((1338 . 5625) (/ 2 -4611686018427387905) -> -2/4611686018427387905) ((1339 . 5625) (/ 2 -4611686018427387904) -> -1/2305843009213693952) ((1340 . 5625) (/ 2 -4611686018427387903) -> -2/4611686018427387903) ((1341 . 5625) (/ 3 -4611686018427387907) -> -3/4611686018427387907) ((1342 . 5625) (/ 3 -4611686018427387906) -> -1/1537228672809129302) ((1343 . 5625) (/ 3 -4611686018427387905) -> -3/4611686018427387905) ((1344 . 5625) (/ 3 -4611686018427387904) -> -3/4611686018427387904) ((1345 . 5625) (/ 3 -4611686018427387903) -> -1/1537228672809129301) ((1346 . 5625) (/ 4 -4611686018427387907) -> -4/4611686018427387907) ((1347 . 5625) (/ 4 -4611686018427387906) -> -2/2305843009213693953) ((1348 . 5625) (/ 4 -4611686018427387905) -> -4/4611686018427387905) ((1349 . 5625) (/ 4 -4611686018427387904) -> -1/1152921504606846976) ((1350 . 5625) (/ 4 -4611686018427387903) -> -4/4611686018427387903) ((1351 . 5625) (/ 0 1103515243) -> 0) ((1352 . 5625) (/ 0 1103515244) -> 0) ((1353 . 5625) (/ 0 1103515245) -> 0) ((1354 . 5625) (/ 0 1103515246) -> 0) ((1355 . 5625) (/ 0 1103515247) -> 0) ((1356 . 5625) (/ 1 1103515243) -> 1/1103515243) ((1357 . 5625) (/ 1 1103515244) -> 1/1103515244) ((1358 . 5625) (/ 1 1103515245) -> 1/1103515245) ((1359 . 5625) (/ 1 1103515246) -> 1/1103515246) ((1360 . 5625) (/ 1 1103515247) -> 1/1103515247) ((1361 . 5625) (/ 2 1103515243) -> 2/1103515243) ((1362 . 5625) (/ 2 1103515244) -> 1/551757622) ((1363 . 5625) (/ 2 1103515245) -> 2/1103515245) ((1364 . 5625) (/ 2 1103515246) -> 1/551757623) ((1365 . 5625) (/ 2 1103515247) -> 2/1103515247) ((1366 . 5625) (/ 3 1103515243) -> 3/1103515243) ((1367 . 5625) (/ 3 1103515244) -> 3/1103515244) ((1368 . 5625) (/ 3 1103515245) -> 1/367838415) ((1369 . 5625) (/ 3 1103515246) -> 3/1103515246) ((1370 . 5625) (/ 3 1103515247) -> 3/1103515247) ((1371 . 5625) (/ 4 1103515243) -> 4/1103515243) ((1372 . 5625) (/ 4 1103515244) -> 1/275878811) ((1373 . 5625) (/ 4 1103515245) -> 4/1103515245) ((1374 . 5625) (/ 4 1103515246) -> 2/551757623) ((1375 . 5625) (/ 4 1103515247) -> 4/1103515247) ((1376 . 5625) (/ 0 631629063) -> 0) ((1377 . 5625) (/ 0 631629064) -> 0) ((1378 . 5625) (/ 0 631629065) -> 0) ((1379 . 5625) (/ 0 631629066) -> 0) ((1380 . 5625) (/ 0 631629067) -> 0) ((1381 . 5625) (/ 1 631629063) -> 1/631629063) ((1382 . 5625) (/ 1 631629064) -> 1/631629064) ((1383 . 5625) (/ 1 631629065) -> 1/631629065) ((1384 . 5625) (/ 1 631629066) -> 1/631629066) ((1385 . 5625) (/ 1 631629067) -> 1/631629067) ((1386 . 5625) (/ 2 631629063) -> 2/631629063) ((1387 . 5625) (/ 2 631629064) -> 1/315814532) ((1388 . 5625) (/ 2 631629065) -> 2/631629065) ((1389 . 5625) (/ 2 631629066) -> 1/315814533) ((1390 . 5625) (/ 2 631629067) -> 2/631629067) ((1391 . 5625) (/ 3 631629063) -> 1/210543021) ((1392 . 5625) (/ 3 631629064) -> 3/631629064) ((1393 . 5625) (/ 3 631629065) -> 3/631629065) ((1394 . 5625) (/ 3 631629066) -> 1/210543022) ((1395 . 5625) (/ 3 631629067) -> 3/631629067) ((1396 . 5625) (/ 4 631629063) -> 4/631629063) ((1397 . 5625) (/ 4 631629064) -> 1/157907266) ((1398 . 5625) (/ 4 631629065) -> 4/631629065) ((1399 . 5625) (/ 4 631629066) -> 2/315814533) ((1400 . 5625) (/ 4 631629067) -> 4/631629067) ((1401 . 5625) (/ 0 9007199254740990) -> 0) ((1402 . 5625) (/ 0 9007199254740991) -> 0) ((1403 . 5625) (/ 0 9007199254740992) -> 0) ((1404 . 5625) (/ 0 9007199254740993) -> 0) ((1405 . 5625) (/ 0 9007199254740994) -> 0) ((1406 . 5625) (/ 1 9007199254740990) -> 1/9007199254740990) ((1407 . 5625) (/ 1 9007199254740991) -> 1/9007199254740991) ((1408 . 5625) (/ 1 9007199254740992) -> 1/9007199254740992) ((1409 . 5625) (/ 1 9007199254740993) -> 1/9007199254740993) ((1410 . 5625) (/ 1 9007199254740994) -> 1/9007199254740994) ((1411 . 5625) (/ 2 9007199254740990) -> 1/4503599627370495) ((1412 . 5625) (/ 2 9007199254740991) -> 2/9007199254740991) ((1413 . 5625) (/ 2 9007199254740992) -> 1/4503599627370496) ((1414 . 5625) (/ 2 9007199254740993) -> 2/9007199254740993) ((1415 . 5625) (/ 2 9007199254740994) -> 1/4503599627370497) ((1416 . 5625) (/ 3 9007199254740990) -> 1/3002399751580330) ((1417 . 5625) (/ 3 9007199254740991) -> 3/9007199254740991) ((1418 . 5625) (/ 3 9007199254740992) -> 3/9007199254740992) ((1419 . 5625) (/ 3 9007199254740993) -> 1/3002399751580331) ((1420 . 5625) (/ 3 9007199254740994) -> 3/9007199254740994) ((1421 . 5625) (/ 4 9007199254740990) -> 2/4503599627370495) ((1422 . 5625) (/ 4 9007199254740991) -> 4/9007199254740991) ((1423 . 5625) (/ 4 9007199254740992) -> 1/2251799813685248) ((1424 . 5625) (/ 4 9007199254740993) -> 4/9007199254740993) ((1425 . 5625) (/ 4 9007199254740994) -> 2/4503599627370497) ((1426 . 5625) (/ 0 -9007199254740994) -> 0) ((1427 . 5625) (/ 0 -9007199254740993) -> 0) ((1428 . 5625) (/ 0 -9007199254740992) -> 0) ((1429 . 5625) (/ 0 -9007199254740991) -> 0) ((1430 . 5625) (/ 0 -9007199254740990) -> 0) ((1431 . 5625) (/ 1 -9007199254740994) -> -1/9007199254740994) ((1432 . 5625) (/ 1 -9007199254740993) -> -1/9007199254740993) ((1433 . 5625) (/ 1 -9007199254740992) -> -1/9007199254740992) ((1434 . 5625) (/ 1 -9007199254740991) -> -1/9007199254740991) ((1435 . 5625) (/ 1 -9007199254740990) -> -1/9007199254740990) ((1436 . 5625) (/ 2 -9007199254740994) -> -1/4503599627370497) ((1437 . 5625) (/ 2 -9007199254740993) -> -2/9007199254740993) ((1438 . 5625) (/ 2 -9007199254740992) -> -1/4503599627370496) ((1439 . 5625) (/ 2 -9007199254740991) -> -2/9007199254740991) ((1440 . 5625) (/ 2 -9007199254740990) -> -1/4503599627370495) ((1441 . 5625) (/ 3 -9007199254740994) -> -3/9007199254740994) ((1442 . 5625) (/ 3 -9007199254740993) -> -1/3002399751580331) ((1443 . 5625) (/ 3 -9007199254740992) -> -3/9007199254740992) ((1444 . 5625) (/ 3 -9007199254740991) -> -3/9007199254740991) ((1445 . 5625) (/ 3 -9007199254740990) -> -1/3002399751580330) ((1446 . 5625) (/ 4 -9007199254740994) -> -2/4503599627370497) ((1447 . 5625) (/ 4 -9007199254740993) -> -4/9007199254740993) ((1448 . 5625) (/ 4 -9007199254740992) -> -1/2251799813685248) ((1449 . 5625) (/ 4 -9007199254740991) -> -4/9007199254740991) ((1450 . 5625) (/ 4 -9007199254740990) -> -2/4503599627370495) ((1451 . 5625) (/ 0 12343) -> 0) ((1452 . 5625) (/ 0 12344) -> 0) ((1453 . 5625) (/ 0 12345) -> 0) ((1454 . 5625) (/ 0 12346) -> 0) ((1455 . 5625) (/ 0 12347) -> 0) ((1456 . 5625) (/ 1 12343) -> 1/12343) ((1457 . 5625) (/ 1 12344) -> 1/12344) ((1458 . 5625) (/ 1 12345) -> 1/12345) ((1459 . 5625) (/ 1 12346) -> 1/12346) ((1460 . 5625) (/ 1 12347) -> 1/12347) ((1461 . 5625) (/ 2 12343) -> 2/12343) ((1462 . 5625) (/ 2 12344) -> 1/6172) ((1463 . 5625) (/ 2 12345) -> 2/12345) ((1464 . 5625) (/ 2 12346) -> 1/6173) ((1465 . 5625) (/ 2 12347) -> 2/12347) ((1466 . 5625) (/ 3 12343) -> 3/12343) ((1467 . 5625) (/ 3 12344) -> 3/12344) ((1468 . 5625) (/ 3 12345) -> 1/4115) ((1469 . 5625) (/ 3 12346) -> 3/12346) ((1470 . 5625) (/ 3 12347) -> 3/12347) ((1471 . 5625) (/ 4 12343) -> 4/12343) ((1472 . 5625) (/ 4 12344) -> 1/3086) ((1473 . 5625) (/ 4 12345) -> 4/12345) ((1474 . 5625) (/ 4 12346) -> 2/6173) ((1475 . 5625) (/ 4 12347) -> 4/12347) ((1476 . 5625) (/ 0 4294967294) -> 0) ((1477 . 5625) (/ 0 4294967295) -> 0) ((1478 . 5625) (/ 0 4294967296) -> 0) ((1479 . 5625) (/ 0 4294967297) -> 0) ((1480 . 5625) (/ 0 4294967298) -> 0) ((1481 . 5625) (/ 1 4294967294) -> 1/4294967294) ((1482 . 5625) (/ 1 4294967295) -> 1/4294967295) ((1483 . 5625) (/ 1 4294967296) -> 1/4294967296) ((1484 . 5625) (/ 1 4294967297) -> 1/4294967297) ((1485 . 5625) (/ 1 4294967298) -> 1/4294967298) ((1486 . 5625) (/ 2 4294967294) -> 1/2147483647) ((1487 . 5625) (/ 2 4294967295) -> 2/4294967295) ((1488 . 5625) (/ 2 4294967296) -> 1/2147483648) ((1489 . 5625) (/ 2 4294967297) -> 2/4294967297) ((1490 . 5625) (/ 2 4294967298) -> 1/2147483649) ((1491 . 5625) (/ 3 4294967294) -> 3/4294967294) ((1492 . 5625) (/ 3 4294967295) -> 1/1431655765) ((1493 . 5625) (/ 3 4294967296) -> 3/4294967296) ((1494 . 5625) (/ 3 4294967297) -> 3/4294967297) ((1495 . 5625) (/ 3 4294967298) -> 1/1431655766) ((1496 . 5625) (/ 4 4294967294) -> 2/2147483647) ((1497 . 5625) (/ 4 4294967295) -> 4/4294967295) ((1498 . 5625) (/ 4 4294967296) -> 1/1073741824) ((1499 . 5625) (/ 4 4294967297) -> 4/4294967297) ((1500 . 5625) (/ 4 4294967298) -> 2/2147483649) ((1501 . 5625) (/ -4 -2) -> 2) ((1502 . 5625) (/ -4 -1) -> 4) ((1503 . 5625) (/ -4 0) -> "division by zero") ((1504 . 5625) (/ -4 1) -> -4) ((1505 . 5625) (/ -4 2) -> -2) ((1506 . 5625) (/ -3 -2) -> 3/2) ((1507 . 5625) (/ -3 -1) -> 3) ((1508 . 5625) (/ -3 0) -> "division by zero") ((1509 . 5625) (/ -3 1) -> -3) ((1510 . 5625) (/ -3 2) -> -3/2) ((1511 . 5625) (/ -2 -2) -> 1) ((1512 . 5625) (/ -2 -1) -> 2) ((1513 . 5625) (/ -2 0) -> "division by zero") ((1514 . 5625) (/ -2 1) -> -2) ((1515 . 5625) (/ -2 2) -> -1) ((1516 . 5625) (/ -1 -2) -> 1/2) ((1517 . 5625) (/ -1 -1) -> 1) ((1518 . 5625) (/ -1 0) -> "division by zero") ((1519 . 5625) (/ -1 1) -> -1) ((1520 . 5625) (/ -1 2) -> -1/2) ((1521 . 5625) (/ 0 -2) -> 0) ((1522 . 5625) (/ 0 -1) -> 0) ((1523 . 5625) (/ 0 0) -> "division by zero") ((1524 . 5625) (/ 0 1) -> 0) ((1525 . 5625) (/ 0 2) -> 0) ((1526 . 5625) (/ -4 -1) -> 4) ((1527 . 5625) (/ -4 0) -> "division by zero") ((1528 . 5625) (/ -4 1) -> -4) ((1529 . 5625) (/ -4 2) -> -2) ((1530 . 5625) (/ -4 3) -> -4/3) ((1531 . 5625) (/ -3 -1) -> 3) ((1532 . 5625) (/ -3 0) -> "division by zero") ((1533 . 5625) (/ -3 1) -> -3) ((1534 . 5625) (/ -3 2) -> -3/2) ((1535 . 5625) (/ -3 3) -> -1) ((1536 . 5625) (/ -2 -1) -> 2) ((1537 . 5625) (/ -2 0) -> "division by zero") ((1538 . 5625) (/ -2 1) -> -2) ((1539 . 5625) (/ -2 2) -> -1) ((1540 . 5625) (/ -2 3) -> -2/3) ((1541 . 5625) (/ -1 -1) -> 1) ((1542 . 5625) (/ -1 0) -> "division by zero") ((1543 . 5625) (/ -1 1) -> -1) ((1544 . 5625) (/ -1 2) -> -1/2) ((1545 . 5625) (/ -1 3) -> -1/3) ((1546 . 5625) (/ 0 -1) -> 0) ((1547 . 5625) (/ 0 0) -> "division by zero") ((1548 . 5625) (/ 0 1) -> 0) ((1549 . 5625) (/ 0 2) -> 0) ((1550 . 5625) (/ 0 3) -> 0) ((1551 . 5625) (/ -4 -3) -> 4/3) ((1552 . 5625) (/ -4 -2) -> 2) ((1553 . 5625) (/ -4 -1) -> 4) ((1554 . 5625) (/ -4 0) -> "division by zero") ((1555 . 5625) (/ -4 1) -> -4) ((1556 . 5625) (/ -3 -3) -> 1) ((1557 . 5625) (/ -3 -2) -> 3/2) ((1558 . 5625) (/ -3 -1) -> 3) ((1559 . 5625) (/ -3 0) -> "division by zero") ((1560 . 5625) (/ -3 1) -> -3) ((1561 . 5625) (/ -2 -3) -> 2/3) ((1562 . 5625) (/ -2 -2) -> 1) ((1563 . 5625) (/ -2 -1) -> 2) ((1564 . 5625) (/ -2 0) -> "division by zero") ((1565 . 5625) (/ -2 1) -> -2) ((1566 . 5625) (/ -1 -3) -> 1/3) ((1567 . 5625) (/ -1 -2) -> 1/2) ((1568 . 5625) (/ -1 -1) -> 1) ((1569 . 5625) (/ -1 0) -> "division by zero") ((1570 . 5625) (/ -1 1) -> -1) ((1571 . 5625) (/ 0 -3) -> 0) ((1572 . 5625) (/ 0 -2) -> 0) ((1573 . 5625) (/ 0 -1) -> 0) ((1574 . 5625) (/ 0 0) -> "division by zero") ((1575 . 5625) (/ 0 1) -> 0) ((1576 . 5625) (/ -4 0) -> "division by zero") ((1577 . 5625) (/ -4 1) -> -4) ((1578 . 5625) (/ -4 2) -> -2) ((1579 . 5625) (/ -4 3) -> -4/3) ((1580 . 5625) (/ -4 4) -> -1) ((1581 . 5625) (/ -3 0) -> "division by zero") ((1582 . 5625) (/ -3 1) -> -3) ((1583 . 5625) (/ -3 2) -> -3/2) ((1584 . 5625) (/ -3 3) -> -1) ((1585 . 5625) (/ -3 4) -> -3/4) ((1586 . 5625) (/ -2 0) -> "division by zero") ((1587 . 5625) (/ -2 1) -> -2) ((1588 . 5625) (/ -2 2) -> -1) ((1589 . 5625) (/ -2 3) -> -2/3) ((1590 . 5625) (/ -2 4) -> -1/2) ((1591 . 5625) (/ -1 0) -> "division by zero") ((1592 . 5625) (/ -1 1) -> -1) ((1593 . 5625) (/ -1 2) -> -1/2) ((1594 . 5625) (/ -1 3) -> -1/3) ((1595 . 5625) (/ -1 4) -> -1/4) ((1596 . 5625) (/ 0 0) -> "division by zero") ((1597 . 5625) (/ 0 1) -> 0) ((1598 . 5625) (/ 0 2) -> 0) ((1599 . 5625) (/ 0 3) -> 0) ((1600 . 5625) (/ 0 4) -> 0) ((1601 . 5625) (/ -4 -4) -> 1) ((1602 . 5625) (/ -4 -3) -> 4/3) ((1603 . 5625) (/ -4 -2) -> 2) ((1604 . 5625) (/ -4 -1) -> 4) ((1605 . 5625) (/ -4 0) -> "division by zero") ((1606 . 5625) (/ -3 -4) -> 3/4) ((1607 . 5625) (/ -3 -3) -> 1) ((1608 . 5625) (/ -3 -2) -> 3/2) ((1609 . 5625) (/ -3 -1) -> 3) ((1610 . 5625) (/ -3 0) -> "division by zero") ((1611 . 5625) (/ -2 -4) -> 1/2) ((1612 . 5625) (/ -2 -3) -> 2/3) ((1613 . 5625) (/ -2 -2) -> 1) ((1614 . 5625) (/ -2 -1) -> 2) ((1615 . 5625) (/ -2 0) -> "division by zero") ((1616 . 5625) (/ -1 -4) -> 1/4) ((1617 . 5625) (/ -1 -3) -> 1/3) ((1618 . 5625) (/ -1 -2) -> 1/2) ((1619 . 5625) (/ -1 -1) -> 1) ((1620 . 5625) (/ -1 0) -> "division by zero") ((1621 . 5625) (/ 0 -4) -> 0) ((1622 . 5625) (/ 0 -3) -> 0) ((1623 . 5625) (/ 0 -2) -> 0) ((1624 . 5625) (/ 0 -1) -> 0) ((1625 . 5625) (/ 0 0) -> "division by zero") ((1626 . 5625) (/ -4 4611686018427387901) -> -4/4611686018427387901) ((1627 . 5625) (/ -4 4611686018427387902) -> -2/2305843009213693951) ((1628 . 5625) (/ -4 4611686018427387903) -> -4/4611686018427387903) ((1629 . 5625) (/ -4 4611686018427387904) -> -1/1152921504606846976) ((1630 . 5625) (/ -4 4611686018427387905) -> -4/4611686018427387905) ((1631 . 5625) (/ -3 4611686018427387901) -> -3/4611686018427387901) ((1632 . 5625) (/ -3 4611686018427387902) -> -3/4611686018427387902) ((1633 . 5625) (/ -3 4611686018427387903) -> -1/1537228672809129301) ((1634 . 5625) (/ -3 4611686018427387904) -> -3/4611686018427387904) ((1635 . 5625) (/ -3 4611686018427387905) -> -3/4611686018427387905) ((1636 . 5625) (/ -2 4611686018427387901) -> -2/4611686018427387901) ((1637 . 5625) (/ -2 4611686018427387902) -> -1/2305843009213693951) ((1638 . 5625) (/ -2 4611686018427387903) -> -2/4611686018427387903) ((1639 . 5625) (/ -2 4611686018427387904) -> -1/2305843009213693952) ((1640 . 5625) (/ -2 4611686018427387905) -> -2/4611686018427387905) ((1641 . 5625) (/ -1 4611686018427387901) -> -1/4611686018427387901) ((1642 . 5625) (/ -1 4611686018427387902) -> -1/4611686018427387902) ((1643 . 5625) (/ -1 4611686018427387903) -> -1/4611686018427387903) ((1644 . 5625) (/ -1 4611686018427387904) -> -1/4611686018427387904) ((1645 . 5625) (/ -1 4611686018427387905) -> -1/4611686018427387905) ((1646 . 5625) (/ 0 4611686018427387901) -> 0) ((1647 . 5625) (/ 0 4611686018427387902) -> 0) ((1648 . 5625) (/ 0 4611686018427387903) -> 0) ((1649 . 5625) (/ 0 4611686018427387904) -> 0) ((1650 . 5625) (/ 0 4611686018427387905) -> 0) ((1651 . 5625) (/ -4 -4611686018427387906) -> 2/2305843009213693953) ((1652 . 5625) (/ -4 -4611686018427387905) -> 4/4611686018427387905) ((1653 . 5625) (/ -4 -4611686018427387904) -> 1/1152921504606846976) ((1654 . 5625) (/ -4 -4611686018427387903) -> 4/4611686018427387903) ((1655 . 5625) (/ -4 -4611686018427387902) -> 2/2305843009213693951) ((1656 . 5625) (/ -3 -4611686018427387906) -> 1/1537228672809129302) ((1657 . 5625) (/ -3 -4611686018427387905) -> 3/4611686018427387905) ((1658 . 5625) (/ -3 -4611686018427387904) -> 3/4611686018427387904) ((1659 . 5625) (/ -3 -4611686018427387903) -> 1/1537228672809129301) ((1660 . 5625) (/ -3 -4611686018427387902) -> 3/4611686018427387902) ((1661 . 5625) (/ -2 -4611686018427387906) -> 1/2305843009213693953) ((1662 . 5625) (/ -2 -4611686018427387905) -> 2/4611686018427387905) ((1663 . 5625) (/ -2 -4611686018427387904) -> 1/2305843009213693952) ((1664 . 5625) (/ -2 -4611686018427387903) -> 2/4611686018427387903) ((1665 . 5625) (/ -2 -4611686018427387902) -> 1/2305843009213693951) ((1666 . 5625) (/ -1 -4611686018427387906) -> 1/4611686018427387906) ((1667 . 5625) (/ -1 -4611686018427387905) -> 1/4611686018427387905) ((1668 . 5625) (/ -1 -4611686018427387904) -> 1/4611686018427387904) ((1669 . 5625) (/ -1 -4611686018427387903) -> 1/4611686018427387903) ((1670 . 5625) (/ -1 -4611686018427387902) -> 1/4611686018427387902) ((1671 . 5625) (/ 0 -4611686018427387906) -> 0) ((1672 . 5625) (/ 0 -4611686018427387905) -> 0) ((1673 . 5625) (/ 0 -4611686018427387904) -> 0) ((1674 . 5625) (/ 0 -4611686018427387903) -> 0) ((1675 . 5625) (/ 0 -4611686018427387902) -> 0) ((1676 . 5625) (/ -4 4611686018427387902) -> -2/2305843009213693951) ((1677 . 5625) (/ -4 4611686018427387903) -> -4/4611686018427387903) ((1678 . 5625) (/ -4 4611686018427387904) -> -1/1152921504606846976) ((1679 . 5625) (/ -4 4611686018427387905) -> -4/4611686018427387905) ((1680 . 5625) (/ -4 4611686018427387906) -> -2/2305843009213693953) ((1681 . 5625) (/ -3 4611686018427387902) -> -3/4611686018427387902) ((1682 . 5625) (/ -3 4611686018427387903) -> -1/1537228672809129301) ((1683 . 5625) (/ -3 4611686018427387904) -> -3/4611686018427387904) ((1684 . 5625) (/ -3 4611686018427387905) -> -3/4611686018427387905) ((1685 . 5625) (/ -3 4611686018427387906) -> -1/1537228672809129302) ((1686 . 5625) (/ -2 4611686018427387902) -> -1/2305843009213693951) ((1687 . 5625) (/ -2 4611686018427387903) -> -2/4611686018427387903) ((1688 . 5625) (/ -2 4611686018427387904) -> -1/2305843009213693952) ((1689 . 5625) (/ -2 4611686018427387905) -> -2/4611686018427387905) ((1690 . 5625) (/ -2 4611686018427387906) -> -1/2305843009213693953) ((1691 . 5625) (/ -1 4611686018427387902) -> -1/4611686018427387902) ((1692 . 5625) (/ -1 4611686018427387903) -> -1/4611686018427387903) ((1693 . 5625) (/ -1 4611686018427387904) -> -1/4611686018427387904) ((1694 . 5625) (/ -1 4611686018427387905) -> -1/4611686018427387905) ((1695 . 5625) (/ -1 4611686018427387906) -> -1/4611686018427387906) ((1696 . 5625) (/ 0 4611686018427387902) -> 0) ((1697 . 5625) (/ 0 4611686018427387903) -> 0) ((1698 . 5625) (/ 0 4611686018427387904) -> 0) ((1699 . 5625) (/ 0 4611686018427387905) -> 0) ((1700 . 5625) (/ 0 4611686018427387906) -> 0) ((1701 . 5625) (/ -4 -4611686018427387907) -> 4/4611686018427387907) ((1702 . 5625) (/ -4 -4611686018427387906) -> 2/2305843009213693953) ((1703 . 5625) (/ -4 -4611686018427387905) -> 4/4611686018427387905) ((1704 . 5625) (/ -4 -4611686018427387904) -> 1/1152921504606846976) ((1705 . 5625) (/ -4 -4611686018427387903) -> 4/4611686018427387903) ((1706 . 5625) (/ -3 -4611686018427387907) -> 3/4611686018427387907) ((1707 . 5625) (/ -3 -4611686018427387906) -> 1/1537228672809129302) ((1708 . 5625) (/ -3 -4611686018427387905) -> 3/4611686018427387905) ((1709 . 5625) (/ -3 -4611686018427387904) -> 3/4611686018427387904) ((1710 . 5625) (/ -3 -4611686018427387903) -> 1/1537228672809129301) ((1711 . 5625) (/ -2 -4611686018427387907) -> 2/4611686018427387907) ((1712 . 5625) (/ -2 -4611686018427387906) -> 1/2305843009213693953) ((1713 . 5625) (/ -2 -4611686018427387905) -> 2/4611686018427387905) ((1714 . 5625) (/ -2 -4611686018427387904) -> 1/2305843009213693952) ((1715 . 5625) (/ -2 -4611686018427387903) -> 2/4611686018427387903) ((1716 . 5625) (/ -1 -4611686018427387907) -> 1/4611686018427387907) ((1717 . 5625) (/ -1 -4611686018427387906) -> 1/4611686018427387906) ((1718 . 5625) (/ -1 -4611686018427387905) -> 1/4611686018427387905) ((1719 . 5625) (/ -1 -4611686018427387904) -> 1/4611686018427387904) ((1720 . 5625) (/ -1 -4611686018427387903) -> 1/4611686018427387903) ((1721 . 5625) (/ 0 -4611686018427387907) -> 0) ((1722 . 5625) (/ 0 -4611686018427387906) -> 0) ((1723 . 5625) (/ 0 -4611686018427387905) -> 0) ((1724 . 5625) (/ 0 -4611686018427387904) -> 0) ((1725 . 5625) (/ 0 -4611686018427387903) -> 0) ((1726 . 5625) (/ -4 1103515243) -> -4/1103515243) ((1727 . 5625) (/ -4 1103515244) -> -1/275878811) ((1728 . 5625) (/ -4 1103515245) -> -4/1103515245) ((1729 . 5625) (/ -4 1103515246) -> -2/551757623) ((1730 . 5625) (/ -4 1103515247) -> -4/1103515247) ((1731 . 5625) (/ -3 1103515243) -> -3/1103515243) ((1732 . 5625) (/ -3 1103515244) -> -3/1103515244) ((1733 . 5625) (/ -3 1103515245) -> -1/367838415) ((1734 . 5625) (/ -3 1103515246) -> -3/1103515246) ((1735 . 5625) (/ -3 1103515247) -> -3/1103515247) ((1736 . 5625) (/ -2 1103515243) -> -2/1103515243) ((1737 . 5625) (/ -2 1103515244) -> -1/551757622) ((1738 . 5625) (/ -2 1103515245) -> -2/1103515245) ((1739 . 5625) (/ -2 1103515246) -> -1/551757623) ((1740 . 5625) (/ -2 1103515247) -> -2/1103515247) ((1741 . 5625) (/ -1 1103515243) -> -1/1103515243) ((1742 . 5625) (/ -1 1103515244) -> -1/1103515244) ((1743 . 5625) (/ -1 1103515245) -> -1/1103515245) ((1744 . 5625) (/ -1 1103515246) -> -1/1103515246) ((1745 . 5625) (/ -1 1103515247) -> -1/1103515247) ((1746 . 5625) (/ 0 1103515243) -> 0) ((1747 . 5625) (/ 0 1103515244) -> 0) ((1748 . 5625) (/ 0 1103515245) -> 0) ((1749 . 5625) (/ 0 1103515246) -> 0) ((1750 . 5625) (/ 0 1103515247) -> 0) ((1751 . 5625) (/ -4 631629063) -> -4/631629063) ((1752 . 5625) (/ -4 631629064) -> -1/157907266) ((1753 . 5625) (/ -4 631629065) -> -4/631629065) ((1754 . 5625) (/ -4 631629066) -> -2/315814533) ((1755 . 5625) (/ -4 631629067) -> -4/631629067) ((1756 . 5625) (/ -3 631629063) -> -1/210543021) ((1757 . 5625) (/ -3 631629064) -> -3/631629064) ((1758 . 5625) (/ -3 631629065) -> -3/631629065) ((1759 . 5625) (/ -3 631629066) -> -1/210543022) ((1760 . 5625) (/ -3 631629067) -> -3/631629067) ((1761 . 5625) (/ -2 631629063) -> -2/631629063) ((1762 . 5625) (/ -2 631629064) -> -1/315814532) ((1763 . 5625) (/ -2 631629065) -> -2/631629065) ((1764 . 5625) (/ -2 631629066) -> -1/315814533) ((1765 . 5625) (/ -2 631629067) -> -2/631629067) ((1766 . 5625) (/ -1 631629063) -> -1/631629063) ((1767 . 5625) (/ -1 631629064) -> -1/631629064) ((1768 . 5625) (/ -1 631629065) -> -1/631629065) ((1769 . 5625) (/ -1 631629066) -> -1/631629066) ((1770 . 5625) (/ -1 631629067) -> -1/631629067) ((1771 . 5625) (/ 0 631629063) -> 0) ((1772 . 5625) (/ 0 631629064) -> 0) ((1773 . 5625) (/ 0 631629065) -> 0) ((1774 . 5625) (/ 0 631629066) -> 0) ((1775 . 5625) (/ 0 631629067) -> 0) ((1776 . 5625) (/ -4 9007199254740990) -> -2/4503599627370495) ((1777 . 5625) (/ -4 9007199254740991) -> -4/9007199254740991) ((1778 . 5625) (/ -4 9007199254740992) -> -1/2251799813685248) ((1779 . 5625) (/ -4 9007199254740993) -> -4/9007199254740993) ((1780 . 5625) (/ -4 9007199254740994) -> -2/4503599627370497) ((1781 . 5625) (/ -3 9007199254740990) -> -1/3002399751580330) ((1782 . 5625) (/ -3 9007199254740991) -> -3/9007199254740991) ((1783 . 5625) (/ -3 9007199254740992) -> -3/9007199254740992) ((1784 . 5625) (/ -3 9007199254740993) -> -1/3002399751580331) ((1785 . 5625) (/ -3 9007199254740994) -> -3/9007199254740994) ((1786 . 5625) (/ -2 9007199254740990) -> -1/4503599627370495) ((1787 . 5625) (/ -2 9007199254740991) -> -2/9007199254740991) ((1788 . 5625) (/ -2 9007199254740992) -> -1/4503599627370496) ((1789 . 5625) (/ -2 9007199254740993) -> -2/9007199254740993) ((1790 . 5625) (/ -2 9007199254740994) -> -1/4503599627370497) ((1791 . 5625) (/ -1 9007199254740990) -> -1/9007199254740990) ((1792 . 5625) (/ -1 9007199254740991) -> -1/9007199254740991) ((1793 . 5625) (/ -1 9007199254740992) -> -1/9007199254740992) ((1794 . 5625) (/ -1 9007199254740993) -> -1/9007199254740993) ((1795 . 5625) (/ -1 9007199254740994) -> -1/9007199254740994) ((1796 . 5625) (/ 0 9007199254740990) -> 0) ((1797 . 5625) (/ 0 9007199254740991) -> 0) ((1798 . 5625) (/ 0 9007199254740992) -> 0) ((1799 . 5625) (/ 0 9007199254740993) -> 0) ((1800 . 5625) (/ 0 9007199254740994) -> 0) ((1801 . 5625) (/ -4 -9007199254740994) -> 2/4503599627370497) ((1802 . 5625) (/ -4 -9007199254740993) -> 4/9007199254740993) ((1803 . 5625) (/ -4 -9007199254740992) -> 1/2251799813685248) ((1804 . 5625) (/ -4 -9007199254740991) -> 4/9007199254740991) ((1805 . 5625) (/ -4 -9007199254740990) -> 2/4503599627370495) ((1806 . 5625) (/ -3 -9007199254740994) -> 3/9007199254740994) ((1807 . 5625) (/ -3 -9007199254740993) -> 1/3002399751580331) ((1808 . 5625) (/ -3 -9007199254740992) -> 3/9007199254740992) ((1809 . 5625) (/ -3 -9007199254740991) -> 3/9007199254740991) ((1810 . 5625) (/ -3 -9007199254740990) -> 1/3002399751580330) ((1811 . 5625) (/ -2 -9007199254740994) -> 1/4503599627370497) ((1812 . 5625) (/ -2 -9007199254740993) -> 2/9007199254740993) ((1813 . 5625) (/ -2 -9007199254740992) -> 1/4503599627370496) ((1814 . 5625) (/ -2 -9007199254740991) -> 2/9007199254740991) ((1815 . 5625) (/ -2 -9007199254740990) -> 1/4503599627370495) ((1816 . 5625) (/ -1 -9007199254740994) -> 1/9007199254740994) ((1817 . 5625) (/ -1 -9007199254740993) -> 1/9007199254740993) ((1818 . 5625) (/ -1 -9007199254740992) -> 1/9007199254740992) ((1819 . 5625) (/ -1 -9007199254740991) -> 1/9007199254740991) ((1820 . 5625) (/ -1 -9007199254740990) -> 1/9007199254740990) ((1821 . 5625) (/ 0 -9007199254740994) -> 0) ((1822 . 5625) (/ 0 -9007199254740993) -> 0) ((1823 . 5625) (/ 0 -9007199254740992) -> 0) ((1824 . 5625) (/ 0 -9007199254740991) -> 0) ((1825 . 5625) (/ 0 -9007199254740990) -> 0) ((1826 . 5625) (/ -4 12343) -> -4/12343) ((1827 . 5625) (/ -4 12344) -> -1/3086) ((1828 . 5625) (/ -4 12345) -> -4/12345) ((1829 . 5625) (/ -4 12346) -> -2/6173) ((1830 . 5625) (/ -4 12347) -> -4/12347) ((1831 . 5625) (/ -3 12343) -> -3/12343) ((1832 . 5625) (/ -3 12344) -> -3/12344) ((1833 . 5625) (/ -3 12345) -> -1/4115) ((1834 . 5625) (/ -3 12346) -> -3/12346) ((1835 . 5625) (/ -3 12347) -> -3/12347) ((1836 . 5625) (/ -2 12343) -> -2/12343) ((1837 . 5625) (/ -2 12344) -> -1/6172) ((1838 . 5625) (/ -2 12345) -> -2/12345) ((1839 . 5625) (/ -2 12346) -> -1/6173) ((1840 . 5625) (/ -2 12347) -> -2/12347) ((1841 . 5625) (/ -1 12343) -> -1/12343) ((1842 . 5625) (/ -1 12344) -> -1/12344) ((1843 . 5625) (/ -1 12345) -> -1/12345) ((1844 . 5625) (/ -1 12346) -> -1/12346) ((1845 . 5625) (/ -1 12347) -> -1/12347) ((1846 . 5625) (/ 0 12343) -> 0) ((1847 . 5625) (/ 0 12344) -> 0) ((1848 . 5625) (/ 0 12345) -> 0) ((1849 . 5625) (/ 0 12346) -> 0) ((1850 . 5625) (/ 0 12347) -> 0) ((1851 . 5625) (/ -4 4294967294) -> -2/2147483647) ((1852 . 5625) (/ -4 4294967295) -> -4/4294967295) ((1853 . 5625) (/ -4 4294967296) -> -1/1073741824) ((1854 . 5625) (/ -4 4294967297) -> -4/4294967297) ((1855 . 5625) (/ -4 4294967298) -> -2/2147483649) ((1856 . 5625) (/ -3 4294967294) -> -3/4294967294) ((1857 . 5625) (/ -3 4294967295) -> -1/1431655765) ((1858 . 5625) (/ -3 4294967296) -> -3/4294967296) ((1859 . 5625) (/ -3 4294967297) -> -3/4294967297) ((1860 . 5625) (/ -3 4294967298) -> -1/1431655766) ((1861 . 5625) (/ -2 4294967294) -> -1/2147483647) ((1862 . 5625) (/ -2 4294967295) -> -2/4294967295) ((1863 . 5625) (/ -2 4294967296) -> -1/2147483648) ((1864 . 5625) (/ -2 4294967297) -> -2/4294967297) ((1865 . 5625) (/ -2 4294967298) -> -1/2147483649) ((1866 . 5625) (/ -1 4294967294) -> -1/4294967294) ((1867 . 5625) (/ -1 4294967295) -> -1/4294967295) ((1868 . 5625) (/ -1 4294967296) -> -1/4294967296) ((1869 . 5625) (/ -1 4294967297) -> -1/4294967297) ((1870 . 5625) (/ -1 4294967298) -> -1/4294967298) ((1871 . 5625) (/ 0 4294967294) -> 0) ((1872 . 5625) (/ 0 4294967295) -> 0) ((1873 . 5625) (/ 0 4294967296) -> 0) ((1874 . 5625) (/ 0 4294967297) -> 0) ((1875 . 5625) (/ 0 4294967298) -> 0) ((1876 . 5625) (/ 4611686018427387901 -2) -> -4611686018427387901/2) ((1877 . 5625) (/ 4611686018427387901 -1) -> -4611686018427387901) ((1878 . 5625) (/ 4611686018427387901 0) -> "division by zero") ((1879 . 5625) (/ 4611686018427387901 1) -> 4611686018427387901) ((1880 . 5625) (/ 4611686018427387901 2) -> 4611686018427387901/2) ((1881 . 5625) (/ 4611686018427387902 -2) -> -2305843009213693951) ((1882 . 5625) (/ 4611686018427387902 -1) -> -4611686018427387902) ((1883 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((1884 . 5625) (/ 4611686018427387902 1) -> 4611686018427387902) ((1885 . 5625) (/ 4611686018427387902 2) -> 2305843009213693951) ((1886 . 5625) (/ 4611686018427387903 -2) -> -4611686018427387903/2) ((1887 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((1888 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((1889 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((1890 . 5625) (/ 4611686018427387903 2) -> 4611686018427387903/2) ((1891 . 5625) (/ 4611686018427387904 -2) -> -2305843009213693952) ((1892 . 5625) (/ 4611686018427387904 -1) -> -4611686018427387904) ((1893 . 5625) (/ 4611686018427387904 0) -> "division by zero") ((1894 . 5625) (/ 4611686018427387904 1) -> 4611686018427387904) ((1895 . 5625) (/ 4611686018427387904 2) -> 2305843009213693952) ((1896 . 5625) (/ 4611686018427387905 -2) -> -4611686018427387905/2) ((1897 . 5625) (/ 4611686018427387905 -1) -> -4611686018427387905) ((1898 . 5625) (/ 4611686018427387905 0) -> "division by zero") ((1899 . 5625) (/ 4611686018427387905 1) -> 4611686018427387905) ((1900 . 5625) (/ 4611686018427387905 2) -> 4611686018427387905/2) ((1901 . 5625) (/ 4611686018427387901 -1) -> -4611686018427387901) ((1902 . 5625) (/ 4611686018427387901 0) -> "division by zero") ((1903 . 5625) (/ 4611686018427387901 1) -> 4611686018427387901) ((1904 . 5625) (/ 4611686018427387901 2) -> 4611686018427387901/2) ((1905 . 5625) (/ 4611686018427387901 3) -> 4611686018427387901/3) ((1906 . 5625) (/ 4611686018427387902 -1) -> -4611686018427387902) ((1907 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((1908 . 5625) (/ 4611686018427387902 1) -> 4611686018427387902) ((1909 . 5625) (/ 4611686018427387902 2) -> 2305843009213693951) ((1910 . 5625) (/ 4611686018427387902 3) -> 4611686018427387902/3) ((1911 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((1912 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((1913 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((1914 . 5625) (/ 4611686018427387903 2) -> 4611686018427387903/2) ((1915 . 5625) (/ 4611686018427387903 3) -> 1537228672809129301) ((1916 . 5625) (/ 4611686018427387904 -1) -> -4611686018427387904) ((1917 . 5625) (/ 4611686018427387904 0) -> "division by zero") ((1918 . 5625) (/ 4611686018427387904 1) -> 4611686018427387904) ((1919 . 5625) (/ 4611686018427387904 2) -> 2305843009213693952) ((1920 . 5625) (/ 4611686018427387904 3) -> 4611686018427387904/3) ((1921 . 5625) (/ 4611686018427387905 -1) -> -4611686018427387905) ((1922 . 5625) (/ 4611686018427387905 0) -> "division by zero") ((1923 . 5625) (/ 4611686018427387905 1) -> 4611686018427387905) ((1924 . 5625) (/ 4611686018427387905 2) -> 4611686018427387905/2) ((1925 . 5625) (/ 4611686018427387905 3) -> 4611686018427387905/3) ((1926 . 5625) (/ 4611686018427387901 -3) -> -4611686018427387901/3) ((1927 . 5625) (/ 4611686018427387901 -2) -> -4611686018427387901/2) ((1928 . 5625) (/ 4611686018427387901 -1) -> -4611686018427387901) ((1929 . 5625) (/ 4611686018427387901 0) -> "division by zero") ((1930 . 5625) (/ 4611686018427387901 1) -> 4611686018427387901) ((1931 . 5625) (/ 4611686018427387902 -3) -> -4611686018427387902/3) ((1932 . 5625) (/ 4611686018427387902 -2) -> -2305843009213693951) ((1933 . 5625) (/ 4611686018427387902 -1) -> -4611686018427387902) ((1934 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((1935 . 5625) (/ 4611686018427387902 1) -> 4611686018427387902) ((1936 . 5625) (/ 4611686018427387903 -3) -> -1537228672809129301) ((1937 . 5625) (/ 4611686018427387903 -2) -> -4611686018427387903/2) ((1938 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((1939 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((1940 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((1941 . 5625) (/ 4611686018427387904 -3) -> -4611686018427387904/3) ((1942 . 5625) (/ 4611686018427387904 -2) -> -2305843009213693952) ((1943 . 5625) (/ 4611686018427387904 -1) -> -4611686018427387904) ((1944 . 5625) (/ 4611686018427387904 0) -> "division by zero") ((1945 . 5625) (/ 4611686018427387904 1) -> 4611686018427387904) ((1946 . 5625) (/ 4611686018427387905 -3) -> -4611686018427387905/3) ((1947 . 5625) (/ 4611686018427387905 -2) -> -4611686018427387905/2) ((1948 . 5625) (/ 4611686018427387905 -1) -> -4611686018427387905) ((1949 . 5625) (/ 4611686018427387905 0) -> "division by zero") ((1950 . 5625) (/ 4611686018427387905 1) -> 4611686018427387905) ((1951 . 5625) (/ 4611686018427387901 0) -> "division by zero") ((1952 . 5625) (/ 4611686018427387901 1) -> 4611686018427387901) ((1953 . 5625) (/ 4611686018427387901 2) -> 4611686018427387901/2) ((1954 . 5625) (/ 4611686018427387901 3) -> 4611686018427387901/3) ((1955 . 5625) (/ 4611686018427387901 4) -> 4611686018427387901/4) ((1956 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((1957 . 5625) (/ 4611686018427387902 1) -> 4611686018427387902) ((1958 . 5625) (/ 4611686018427387902 2) -> 2305843009213693951) ((1959 . 5625) (/ 4611686018427387902 3) -> 4611686018427387902/3) ((1960 . 5625) (/ 4611686018427387902 4) -> 2305843009213693951/2) ((1961 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((1962 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((1963 . 5625) (/ 4611686018427387903 2) -> 4611686018427387903/2) ((1964 . 5625) (/ 4611686018427387903 3) -> 1537228672809129301) ((1965 . 5625) (/ 4611686018427387903 4) -> 4611686018427387903/4) ((1966 . 5625) (/ 4611686018427387904 0) -> "division by zero") ((1967 . 5625) (/ 4611686018427387904 1) -> 4611686018427387904) ((1968 . 5625) (/ 4611686018427387904 2) -> 2305843009213693952) ((1969 . 5625) (/ 4611686018427387904 3) -> 4611686018427387904/3) ((1970 . 5625) (/ 4611686018427387904 4) -> 1152921504606846976) ((1971 . 5625) (/ 4611686018427387905 0) -> "division by zero") ((1972 . 5625) (/ 4611686018427387905 1) -> 4611686018427387905) ((1973 . 5625) (/ 4611686018427387905 2) -> 4611686018427387905/2) ((1974 . 5625) (/ 4611686018427387905 3) -> 4611686018427387905/3) ((1975 . 5625) (/ 4611686018427387905 4) -> 4611686018427387905/4) ((1976 . 5625) (/ 4611686018427387901 -4) -> -4611686018427387901/4) ((1977 . 5625) (/ 4611686018427387901 -3) -> -4611686018427387901/3) ((1978 . 5625) (/ 4611686018427387901 -2) -> -4611686018427387901/2) ((1979 . 5625) (/ 4611686018427387901 -1) -> -4611686018427387901) ((1980 . 5625) (/ 4611686018427387901 0) -> "division by zero") ((1981 . 5625) (/ 4611686018427387902 -4) -> -2305843009213693951/2) ((1982 . 5625) (/ 4611686018427387902 -3) -> -4611686018427387902/3) ((1983 . 5625) (/ 4611686018427387902 -2) -> -2305843009213693951) ((1984 . 5625) (/ 4611686018427387902 -1) -> -4611686018427387902) ((1985 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((1986 . 5625) (/ 4611686018427387903 -4) -> -4611686018427387903/4) ((1987 . 5625) (/ 4611686018427387903 -3) -> -1537228672809129301) ((1988 . 5625) (/ 4611686018427387903 -2) -> -4611686018427387903/2) ((1989 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((1990 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((1991 . 5625) (/ 4611686018427387904 -4) -> -1152921504606846976) ((1992 . 5625) (/ 4611686018427387904 -3) -> -4611686018427387904/3) ((1993 . 5625) (/ 4611686018427387904 -2) -> -2305843009213693952) ((1994 . 5625) (/ 4611686018427387904 -1) -> -4611686018427387904) ((1995 . 5625) (/ 4611686018427387904 0) -> "division by zero") ((1996 . 5625) (/ 4611686018427387905 -4) -> -4611686018427387905/4) ((1997 . 5625) (/ 4611686018427387905 -3) -> -4611686018427387905/3) ((1998 . 5625) (/ 4611686018427387905 -2) -> -4611686018427387905/2) ((1999 . 5625) (/ 4611686018427387905 -1) -> -4611686018427387905) ((2000 . 5625) (/ 4611686018427387905 0) -> "division by zero") ((2001 . 5625) (/ 4611686018427387901 4611686018427387901) -> 1) ((2002 . 5625) (/ 4611686018427387901 4611686018427387902) -> 4611686018427387901/4611686018427387902) ((2003 . 5625) (/ 4611686018427387901 4611686018427387903) -> 4611686018427387901/4611686018427387903) ((2004 . 5625) (/ 4611686018427387901 4611686018427387904) -> 4611686018427387901/4611686018427387904) ((2005 . 5625) (/ 4611686018427387901 4611686018427387905) -> 4611686018427387901/4611686018427387905) ((2006 . 5625) (/ 4611686018427387902 4611686018427387901) -> 4611686018427387902/4611686018427387901) ((2007 . 5625) (/ 4611686018427387902 4611686018427387902) -> 1) ((2008 . 5625) (/ 4611686018427387902 4611686018427387903) -> 4611686018427387902/4611686018427387903) ((2009 . 5625) (/ 4611686018427387902 4611686018427387904) -> 2305843009213693951/2305843009213693952) ((2010 . 5625) (/ 4611686018427387902 4611686018427387905) -> 4611686018427387902/4611686018427387905) ((2011 . 5625) (/ 4611686018427387903 4611686018427387901) -> 4611686018427387903/4611686018427387901) ((2012 . 5625) (/ 4611686018427387903 4611686018427387902) -> 4611686018427387903/4611686018427387902) ((2013 . 5625) (/ 4611686018427387903 4611686018427387903) -> 1) ((2014 . 5625) (/ 4611686018427387903 4611686018427387904) -> 4611686018427387903/4611686018427387904) ((2015 . 5625) (/ 4611686018427387903 4611686018427387905) -> 4611686018427387903/4611686018427387905) ((2016 . 5625) (/ 4611686018427387904 4611686018427387901) -> 4611686018427387904/4611686018427387901) ((2017 . 5625) (/ 4611686018427387904 4611686018427387902) -> 2305843009213693952/2305843009213693951) ((2018 . 5625) (/ 4611686018427387904 4611686018427387903) -> 4611686018427387904/4611686018427387903) ((2019 . 5625) (/ 4611686018427387904 4611686018427387904) -> 1) ((2020 . 5625) (/ 4611686018427387904 4611686018427387905) -> 4611686018427387904/4611686018427387905) ((2021 . 5625) (/ 4611686018427387905 4611686018427387901) -> 4611686018427387905/4611686018427387901) ((2022 . 5625) (/ 4611686018427387905 4611686018427387902) -> 4611686018427387905/4611686018427387902) ((2023 . 5625) (/ 4611686018427387905 4611686018427387903) -> 4611686018427387905/4611686018427387903) ((2024 . 5625) (/ 4611686018427387905 4611686018427387904) -> 4611686018427387905/4611686018427387904) ((2025 . 5625) (/ 4611686018427387905 4611686018427387905) -> 1) ((2026 . 5625) (/ 4611686018427387901 -4611686018427387906) -> -4611686018427387901/4611686018427387906) ((2027 . 5625) (/ 4611686018427387901 -4611686018427387905) -> -4611686018427387901/4611686018427387905) ((2028 . 5625) (/ 4611686018427387901 -4611686018427387904) -> -4611686018427387901/4611686018427387904) ((2029 . 5625) (/ 4611686018427387901 -4611686018427387903) -> -4611686018427387901/4611686018427387903) ((2030 . 5625) (/ 4611686018427387901 -4611686018427387902) -> -4611686018427387901/4611686018427387902) ((2031 . 5625) (/ 4611686018427387902 -4611686018427387906) -> -2305843009213693951/2305843009213693953) ((2032 . 5625) (/ 4611686018427387902 -4611686018427387905) -> -4611686018427387902/4611686018427387905) ((2033 . 5625) (/ 4611686018427387902 -4611686018427387904) -> -2305843009213693951/2305843009213693952) ((2034 . 5625) (/ 4611686018427387902 -4611686018427387903) -> -4611686018427387902/4611686018427387903) ((2035 . 5625) (/ 4611686018427387902 -4611686018427387902) -> -1) ((2036 . 5625) (/ 4611686018427387903 -4611686018427387906) -> -1537228672809129301/1537228672809129302) ((2037 . 5625) (/ 4611686018427387903 -4611686018427387905) -> -4611686018427387903/4611686018427387905) ((2038 . 5625) (/ 4611686018427387903 -4611686018427387904) -> -4611686018427387903/4611686018427387904) ((2039 . 5625) (/ 4611686018427387903 -4611686018427387903) -> -1) ((2040 . 5625) (/ 4611686018427387903 -4611686018427387902) -> -4611686018427387903/4611686018427387902) ((2041 . 5625) (/ 4611686018427387904 -4611686018427387906) -> -2305843009213693952/2305843009213693953) ((2042 . 5625) (/ 4611686018427387904 -4611686018427387905) -> -4611686018427387904/4611686018427387905) ((2043 . 5625) (/ 4611686018427387904 -4611686018427387904) -> -1) ((2044 . 5625) (/ 4611686018427387904 -4611686018427387903) -> -4611686018427387904/4611686018427387903) ((2045 . 5625) (/ 4611686018427387904 -4611686018427387902) -> -2305843009213693952/2305843009213693951) ((2046 . 5625) (/ 4611686018427387905 -4611686018427387906) -> -4611686018427387905/4611686018427387906) ((2047 . 5625) (/ 4611686018427387905 -4611686018427387905) -> -1) ((2048 . 5625) (/ 4611686018427387905 -4611686018427387904) -> -4611686018427387905/4611686018427387904) ((2049 . 5625) (/ 4611686018427387905 -4611686018427387903) -> -4611686018427387905/4611686018427387903) ((2050 . 5625) (/ 4611686018427387905 -4611686018427387902) -> -4611686018427387905/4611686018427387902) ((2051 . 5625) (/ 4611686018427387901 4611686018427387902) -> 4611686018427387901/4611686018427387902) ((2052 . 5625) (/ 4611686018427387901 4611686018427387903) -> 4611686018427387901/4611686018427387903) ((2053 . 5625) (/ 4611686018427387901 4611686018427387904) -> 4611686018427387901/4611686018427387904) ((2054 . 5625) (/ 4611686018427387901 4611686018427387905) -> 4611686018427387901/4611686018427387905) ((2055 . 5625) (/ 4611686018427387901 4611686018427387906) -> 4611686018427387901/4611686018427387906) ((2056 . 5625) (/ 4611686018427387902 4611686018427387902) -> 1) ((2057 . 5625) (/ 4611686018427387902 4611686018427387903) -> 4611686018427387902/4611686018427387903) ((2058 . 5625) (/ 4611686018427387902 4611686018427387904) -> 2305843009213693951/2305843009213693952) ((2059 . 5625) (/ 4611686018427387902 4611686018427387905) -> 4611686018427387902/4611686018427387905) ((2060 . 5625) (/ 4611686018427387902 4611686018427387906) -> 2305843009213693951/2305843009213693953) ((2061 . 5625) (/ 4611686018427387903 4611686018427387902) -> 4611686018427387903/4611686018427387902) ((2062 . 5625) (/ 4611686018427387903 4611686018427387903) -> 1) ((2063 . 5625) (/ 4611686018427387903 4611686018427387904) -> 4611686018427387903/4611686018427387904) ((2064 . 5625) (/ 4611686018427387903 4611686018427387905) -> 4611686018427387903/4611686018427387905) ((2065 . 5625) (/ 4611686018427387903 4611686018427387906) -> 1537228672809129301/1537228672809129302) ((2066 . 5625) (/ 4611686018427387904 4611686018427387902) -> 2305843009213693952/2305843009213693951) ((2067 . 5625) (/ 4611686018427387904 4611686018427387903) -> 4611686018427387904/4611686018427387903) ((2068 . 5625) (/ 4611686018427387904 4611686018427387904) -> 1) ((2069 . 5625) (/ 4611686018427387904 4611686018427387905) -> 4611686018427387904/4611686018427387905) ((2070 . 5625) (/ 4611686018427387904 4611686018427387906) -> 2305843009213693952/2305843009213693953) ((2071 . 5625) (/ 4611686018427387905 4611686018427387902) -> 4611686018427387905/4611686018427387902) ((2072 . 5625) (/ 4611686018427387905 4611686018427387903) -> 4611686018427387905/4611686018427387903) ((2073 . 5625) (/ 4611686018427387905 4611686018427387904) -> 4611686018427387905/4611686018427387904) ((2074 . 5625) (/ 4611686018427387905 4611686018427387905) -> 1) ((2075 . 5625) (/ 4611686018427387905 4611686018427387906) -> 4611686018427387905/4611686018427387906) ((2076 . 5625) (/ 4611686018427387901 -4611686018427387907) -> -4611686018427387901/4611686018427387907) ((2077 . 5625) (/ 4611686018427387901 -4611686018427387906) -> -4611686018427387901/4611686018427387906) ((2078 . 5625) (/ 4611686018427387901 -4611686018427387905) -> -4611686018427387901/4611686018427387905) ((2079 . 5625) (/ 4611686018427387901 -4611686018427387904) -> -4611686018427387901/4611686018427387904) ((2080 . 5625) (/ 4611686018427387901 -4611686018427387903) -> -4611686018427387901/4611686018427387903) ((2081 . 5625) (/ 4611686018427387902 -4611686018427387907) -> -4611686018427387902/4611686018427387907) ((2082 . 5625) (/ 4611686018427387902 -4611686018427387906) -> -2305843009213693951/2305843009213693953) ((2083 . 5625) (/ 4611686018427387902 -4611686018427387905) -> -4611686018427387902/4611686018427387905) ((2084 . 5625) (/ 4611686018427387902 -4611686018427387904) -> -2305843009213693951/2305843009213693952) ((2085 . 5625) (/ 4611686018427387902 -4611686018427387903) -> -4611686018427387902/4611686018427387903) ((2086 . 5625) (/ 4611686018427387903 -4611686018427387907) -> -4611686018427387903/4611686018427387907) ((2087 . 5625) (/ 4611686018427387903 -4611686018427387906) -> -1537228672809129301/1537228672809129302) ((2088 . 5625) (/ 4611686018427387903 -4611686018427387905) -> -4611686018427387903/4611686018427387905) ((2089 . 5625) (/ 4611686018427387903 -4611686018427387904) -> -4611686018427387903/4611686018427387904) ((2090 . 5625) (/ 4611686018427387903 -4611686018427387903) -> -1) ((2091 . 5625) (/ 4611686018427387904 -4611686018427387907) -> -4611686018427387904/4611686018427387907) ((2092 . 5625) (/ 4611686018427387904 -4611686018427387906) -> -2305843009213693952/2305843009213693953) ((2093 . 5625) (/ 4611686018427387904 -4611686018427387905) -> -4611686018427387904/4611686018427387905) ((2094 . 5625) (/ 4611686018427387904 -4611686018427387904) -> -1) ((2095 . 5625) (/ 4611686018427387904 -4611686018427387903) -> -4611686018427387904/4611686018427387903) ((2096 . 5625) (/ 4611686018427387905 -4611686018427387907) -> -4611686018427387905/4611686018427387907) ((2097 . 5625) (/ 4611686018427387905 -4611686018427387906) -> -4611686018427387905/4611686018427387906) ((2098 . 5625) (/ 4611686018427387905 -4611686018427387905) -> -1) ((2099 . 5625) (/ 4611686018427387905 -4611686018427387904) -> -4611686018427387905/4611686018427387904) ((2100 . 5625) (/ 4611686018427387905 -4611686018427387903) -> -4611686018427387905/4611686018427387903) ((2101 . 5625) (/ 4611686018427387901 1103515243) -> 4611686018427387901/1103515243) ((2102 . 5625) (/ 4611686018427387901 1103515244) -> 4611686018427387901/1103515244) ((2103 . 5625) (/ 4611686018427387901 1103515245) -> 4611686018427387901/1103515245) ((2104 . 5625) (/ 4611686018427387901 1103515246) -> 4611686018427387901/1103515246) ((2105 . 5625) (/ 4611686018427387901 1103515247) -> 4611686018427387901/1103515247) ((2106 . 5625) (/ 4611686018427387902 1103515243) -> 4611686018427387902/1103515243) ((2107 . 5625) (/ 4611686018427387902 1103515244) -> 2305843009213693951/551757622) ((2108 . 5625) (/ 4611686018427387902 1103515245) -> 4611686018427387902/1103515245) ((2109 . 5625) (/ 4611686018427387902 1103515246) -> 2305843009213693951/551757623) ((2110 . 5625) (/ 4611686018427387902 1103515247) -> 4611686018427387902/1103515247) ((2111 . 5625) (/ 4611686018427387903 1103515243) -> 4611686018427387903/1103515243) ((2112 . 5625) (/ 4611686018427387903 1103515244) -> 4611686018427387903/1103515244) ((2113 . 5625) (/ 4611686018427387903 1103515245) -> 1537228672809129301/367838415) ((2114 . 5625) (/ 4611686018427387903 1103515246) -> 4611686018427387903/1103515246) ((2115 . 5625) (/ 4611686018427387903 1103515247) -> 4611686018427387903/1103515247) ((2116 . 5625) (/ 4611686018427387904 1103515243) -> 4611686018427387904/1103515243) ((2117 . 5625) (/ 4611686018427387904 1103515244) -> 1152921504606846976/275878811) ((2118 . 5625) (/ 4611686018427387904 1103515245) -> 4611686018427387904/1103515245) ((2119 . 5625) (/ 4611686018427387904 1103515246) -> 2305843009213693952/551757623) ((2120 . 5625) (/ 4611686018427387904 1103515247) -> 4611686018427387904/1103515247) ((2121 . 5625) (/ 4611686018427387905 1103515243) -> 4611686018427387905/1103515243) ((2122 . 5625) (/ 4611686018427387905 1103515244) -> 4611686018427387905/1103515244) ((2123 . 5625) (/ 4611686018427387905 1103515245) -> 922337203685477581/220703049) ((2124 . 5625) (/ 4611686018427387905 1103515246) -> 4611686018427387905/1103515246) ((2125 . 5625) (/ 4611686018427387905 1103515247) -> 4611686018427387905/1103515247) ((2126 . 5625) (/ 4611686018427387901 631629063) -> 4611686018427387901/631629063) ((2127 . 5625) (/ 4611686018427387901 631629064) -> 4611686018427387901/631629064) ((2128 . 5625) (/ 4611686018427387901 631629065) -> 4611686018427387901/631629065) ((2129 . 5625) (/ 4611686018427387901 631629066) -> 4611686018427387901/631629066) ((2130 . 5625) (/ 4611686018427387901 631629067) -> 4611686018427387901/631629067) ((2131 . 5625) (/ 4611686018427387902 631629063) -> 4611686018427387902/631629063) ((2132 . 5625) (/ 4611686018427387902 631629064) -> 2305843009213693951/315814532) ((2133 . 5625) (/ 4611686018427387902 631629065) -> 4611686018427387902/631629065) ((2134 . 5625) (/ 4611686018427387902 631629066) -> 2305843009213693951/315814533) ((2135 . 5625) (/ 4611686018427387902 631629067) -> 4611686018427387902/631629067) ((2136 . 5625) (/ 4611686018427387903 631629063) -> 1537228672809129301/210543021) ((2137 . 5625) (/ 4611686018427387903 631629064) -> 4611686018427387903/631629064) ((2138 . 5625) (/ 4611686018427387903 631629065) -> 4611686018427387903/631629065) ((2139 . 5625) (/ 4611686018427387903 631629066) -> 1537228672809129301/210543022) ((2140 . 5625) (/ 4611686018427387903 631629067) -> 4611686018427387903/631629067) ((2141 . 5625) (/ 4611686018427387904 631629063) -> 4611686018427387904/631629063) ((2142 . 5625) (/ 4611686018427387904 631629064) -> 576460752303423488/78953633) ((2143 . 5625) (/ 4611686018427387904 631629065) -> 4611686018427387904/631629065) ((2144 . 5625) (/ 4611686018427387904 631629066) -> 2305843009213693952/315814533) ((2145 . 5625) (/ 4611686018427387904 631629067) -> 4611686018427387904/631629067) ((2146 . 5625) (/ 4611686018427387905 631629063) -> 4611686018427387905/631629063) ((2147 . 5625) (/ 4611686018427387905 631629064) -> 4611686018427387905/631629064) ((2148 . 5625) (/ 4611686018427387905 631629065) -> 922337203685477581/126325813) ((2149 . 5625) (/ 4611686018427387905 631629066) -> 4611686018427387905/631629066) ((2150 . 5625) (/ 4611686018427387905 631629067) -> 4611686018427387905/631629067) ((2151 . 5625) (/ 4611686018427387901 9007199254740990) -> 4611686018427387901/9007199254740990) ((2152 . 5625) (/ 4611686018427387901 9007199254740991) -> 4611686018427387901/9007199254740991) ((2153 . 5625) (/ 4611686018427387901 9007199254740992) -> 4611686018427387901/9007199254740992) ((2154 . 5625) (/ 4611686018427387901 9007199254740993) -> 4611686018427387901/9007199254740993) ((2155 . 5625) (/ 4611686018427387901 9007199254740994) -> 4611686018427387901/9007199254740994) ((2156 . 5625) (/ 4611686018427387902 9007199254740990) -> 2305843009213693951/4503599627370495) ((2157 . 5625) (/ 4611686018427387902 9007199254740991) -> 4611686018427387902/9007199254740991) ((2158 . 5625) (/ 4611686018427387902 9007199254740992) -> 2305843009213693951/4503599627370496) ((2159 . 5625) (/ 4611686018427387902 9007199254740993) -> 4611686018427387902/9007199254740993) ((2160 . 5625) (/ 4611686018427387902 9007199254740994) -> 2305843009213693951/4503599627370497) ((2161 . 5625) (/ 4611686018427387903 9007199254740990) -> 1537228672809129301/3002399751580330) ((2162 . 5625) (/ 4611686018427387903 9007199254740991) -> 4611686018427387903/9007199254740991) ((2163 . 5625) (/ 4611686018427387903 9007199254740992) -> 4611686018427387903/9007199254740992) ((2164 . 5625) (/ 4611686018427387903 9007199254740993) -> 1537228672809129301/3002399751580331) ((2165 . 5625) (/ 4611686018427387903 9007199254740994) -> 4611686018427387903/9007199254740994) ((2166 . 5625) (/ 4611686018427387904 9007199254740990) -> 2305843009213693952/4503599627370495) ((2167 . 5625) (/ 4611686018427387904 9007199254740991) -> 4611686018427387904/9007199254740991) ((2168 . 5625) (/ 4611686018427387904 9007199254740992) -> 512) ((2169 . 5625) (/ 4611686018427387904 9007199254740993) -> 4611686018427387904/9007199254740993) ((2170 . 5625) (/ 4611686018427387904 9007199254740994) -> 2305843009213693952/4503599627370497) ((2171 . 5625) (/ 4611686018427387905 9007199254740990) -> 922337203685477581/1801439850948198) ((2172 . 5625) (/ 4611686018427387905 9007199254740991) -> 4611686018427387905/9007199254740991) ((2173 . 5625) (/ 4611686018427387905 9007199254740992) -> 4611686018427387905/9007199254740992) ((2174 . 5625) (/ 4611686018427387905 9007199254740993) -> 4611686018427387905/9007199254740993) ((2175 . 5625) (/ 4611686018427387905 9007199254740994) -> 4611686018427387905/9007199254740994) ((2176 . 5625) (/ 4611686018427387901 -9007199254740994) -> -4611686018427387901/9007199254740994) ((2177 . 5625) (/ 4611686018427387901 -9007199254740993) -> -4611686018427387901/9007199254740993) ((2178 . 5625) (/ 4611686018427387901 -9007199254740992) -> -4611686018427387901/9007199254740992) ((2179 . 5625) (/ 4611686018427387901 -9007199254740991) -> -4611686018427387901/9007199254740991) ((2180 . 5625) (/ 4611686018427387901 -9007199254740990) -> -4611686018427387901/9007199254740990) ((2181 . 5625) (/ 4611686018427387902 -9007199254740994) -> -2305843009213693951/4503599627370497) ((2182 . 5625) (/ 4611686018427387902 -9007199254740993) -> -4611686018427387902/9007199254740993) ((2183 . 5625) (/ 4611686018427387902 -9007199254740992) -> -2305843009213693951/4503599627370496) ((2184 . 5625) (/ 4611686018427387902 -9007199254740991) -> -4611686018427387902/9007199254740991) ((2185 . 5625) (/ 4611686018427387902 -9007199254740990) -> -2305843009213693951/4503599627370495) ((2186 . 5625) (/ 4611686018427387903 -9007199254740994) -> -4611686018427387903/9007199254740994) ((2187 . 5625) (/ 4611686018427387903 -9007199254740993) -> -1537228672809129301/3002399751580331) ((2188 . 5625) (/ 4611686018427387903 -9007199254740992) -> -4611686018427387903/9007199254740992) ((2189 . 5625) (/ 4611686018427387903 -9007199254740991) -> -4611686018427387903/9007199254740991) ((2190 . 5625) (/ 4611686018427387903 -9007199254740990) -> -1537228672809129301/3002399751580330) ((2191 . 5625) (/ 4611686018427387904 -9007199254740994) -> -2305843009213693952/4503599627370497) ((2192 . 5625) (/ 4611686018427387904 -9007199254740993) -> -4611686018427387904/9007199254740993) ((2193 . 5625) (/ 4611686018427387904 -9007199254740992) -> -512) ((2194 . 5625) (/ 4611686018427387904 -9007199254740991) -> -4611686018427387904/9007199254740991) ((2195 . 5625) (/ 4611686018427387904 -9007199254740990) -> -2305843009213693952/4503599627370495) ((2196 . 5625) (/ 4611686018427387905 -9007199254740994) -> -4611686018427387905/9007199254740994) ((2197 . 5625) (/ 4611686018427387905 -9007199254740993) -> -4611686018427387905/9007199254740993) ((2198 . 5625) (/ 4611686018427387905 -9007199254740992) -> -4611686018427387905/9007199254740992) ((2199 . 5625) (/ 4611686018427387905 -9007199254740991) -> -4611686018427387905/9007199254740991) ((2200 . 5625) (/ 4611686018427387905 -9007199254740990) -> -922337203685477581/1801439850948198) ((2201 . 5625) (/ 4611686018427387901 12343) -> 4611686018427387901/12343) ((2202 . 5625) (/ 4611686018427387901 12344) -> 4611686018427387901/12344) ((2203 . 5625) (/ 4611686018427387901 12345) -> 4611686018427387901/12345) ((2204 . 5625) (/ 4611686018427387901 12346) -> 4611686018427387901/12346) ((2205 . 5625) (/ 4611686018427387901 12347) -> 4611686018427387901/12347) ((2206 . 5625) (/ 4611686018427387902 12343) -> 4611686018427387902/12343) ((2207 . 5625) (/ 4611686018427387902 12344) -> 2305843009213693951/6172) ((2208 . 5625) (/ 4611686018427387902 12345) -> 4611686018427387902/12345) ((2209 . 5625) (/ 4611686018427387902 12346) -> 2305843009213693951/6173) ((2210 . 5625) (/ 4611686018427387902 12347) -> 4611686018427387902/12347) ((2211 . 5625) (/ 4611686018427387903 12343) -> 4611686018427387903/12343) ((2212 . 5625) (/ 4611686018427387903 12344) -> 4611686018427387903/12344) ((2213 . 5625) (/ 4611686018427387903 12345) -> 1537228672809129301/4115) ((2214 . 5625) (/ 4611686018427387903 12346) -> 4611686018427387903/12346) ((2215 . 5625) (/ 4611686018427387903 12347) -> 4611686018427387903/12347) ((2216 . 5625) (/ 4611686018427387904 12343) -> 4611686018427387904/12343) ((2217 . 5625) (/ 4611686018427387904 12344) -> 576460752303423488/1543) ((2218 . 5625) (/ 4611686018427387904 12345) -> 4611686018427387904/12345) ((2219 . 5625) (/ 4611686018427387904 12346) -> 2305843009213693952/6173) ((2220 . 5625) (/ 4611686018427387904 12347) -> 4611686018427387904/12347) ((2221 . 5625) (/ 4611686018427387905 12343) -> 4611686018427387905/12343) ((2222 . 5625) (/ 4611686018427387905 12344) -> 4611686018427387905/12344) ((2223 . 5625) (/ 4611686018427387905 12345) -> 922337203685477581/2469) ((2224 . 5625) (/ 4611686018427387905 12346) -> 4611686018427387905/12346) ((2225 . 5625) (/ 4611686018427387905 12347) -> 4611686018427387905/12347) ((2226 . 5625) (/ 4611686018427387901 4294967294) -> 4611686018427387901/4294967294) ((2227 . 5625) (/ 4611686018427387901 4294967295) -> 4611686018427387901/4294967295) ((2228 . 5625) (/ 4611686018427387901 4294967296) -> 4611686018427387901/4294967296) ((2229 . 5625) (/ 4611686018427387901 4294967297) -> 4611686018427387901/4294967297) ((2230 . 5625) (/ 4611686018427387901 4294967298) -> 4611686018427387901/4294967298) ((2231 . 5625) (/ 4611686018427387902 4294967294) -> 2305843009213693951/2147483647) ((2232 . 5625) (/ 4611686018427387902 4294967295) -> 4611686018427387902/4294967295) ((2233 . 5625) (/ 4611686018427387902 4294967296) -> 2305843009213693951/2147483648) ((2234 . 5625) (/ 4611686018427387902 4294967297) -> 4611686018427387902/4294967297) ((2235 . 5625) (/ 4611686018427387902 4294967298) -> 2305843009213693951/2147483649) ((2236 . 5625) (/ 4611686018427387903 4294967294) -> 2147483649/2) ((2237 . 5625) (/ 4611686018427387903 4294967295) -> 1537228672809129301/1431655765) ((2238 . 5625) (/ 4611686018427387903 4294967296) -> 4611686018427387903/4294967296) ((2239 . 5625) (/ 4611686018427387903 4294967297) -> 4611686018427387903/4294967297) ((2240 . 5625) (/ 4611686018427387903 4294967298) -> 2147483647/2) ((2241 . 5625) (/ 4611686018427387904 4294967294) -> 2305843009213693952/2147483647) ((2242 . 5625) (/ 4611686018427387904 4294967295) -> 4611686018427387904/4294967295) ((2243 . 5625) (/ 4611686018427387904 4294967296) -> 1073741824) ((2244 . 5625) (/ 4611686018427387904 4294967297) -> 4611686018427387904/4294967297) ((2245 . 5625) (/ 4611686018427387904 4294967298) -> 2305843009213693952/2147483649) ((2246 . 5625) (/ 4611686018427387905 4294967294) -> 4611686018427387905/4294967294) ((2247 . 5625) (/ 4611686018427387905 4294967295) -> 922337203685477581/858993459) ((2248 . 5625) (/ 4611686018427387905 4294967296) -> 4611686018427387905/4294967296) ((2249 . 5625) (/ 4611686018427387905 4294967297) -> 4611686018427387905/4294967297) ((2250 . 5625) (/ 4611686018427387905 4294967298) -> 4611686018427387905/4294967298) ((2251 . 5625) (/ -4611686018427387906 -2) -> 2305843009213693953) ((2252 . 5625) (/ -4611686018427387906 -1) -> 4611686018427387906) ((2253 . 5625) (/ -4611686018427387906 0) -> "division by zero") ((2254 . 5625) (/ -4611686018427387906 1) -> -4611686018427387906) ((2255 . 5625) (/ -4611686018427387906 2) -> -2305843009213693953) ((2256 . 5625) (/ -4611686018427387905 -2) -> 4611686018427387905/2) ((2257 . 5625) (/ -4611686018427387905 -1) -> 4611686018427387905) ((2258 . 5625) (/ -4611686018427387905 0) -> "division by zero") ((2259 . 5625) (/ -4611686018427387905 1) -> -4611686018427387905) ((2260 . 5625) (/ -4611686018427387905 2) -> -4611686018427387905/2) ((2261 . 5625) (/ -4611686018427387904 -2) -> 2305843009213693952) ((2262 . 5625) (/ -4611686018427387904 -1) -> 4611686018427387904) ((2263 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((2264 . 5625) (/ -4611686018427387904 1) -> -4611686018427387904) ((2265 . 5625) (/ -4611686018427387904 2) -> -2305843009213693952) ((2266 . 5625) (/ -4611686018427387903 -2) -> 4611686018427387903/2) ((2267 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((2268 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((2269 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((2270 . 5625) (/ -4611686018427387903 2) -> -4611686018427387903/2) ((2271 . 5625) (/ -4611686018427387902 -2) -> 2305843009213693951) ((2272 . 5625) (/ -4611686018427387902 -1) -> 4611686018427387902) ((2273 . 5625) (/ -4611686018427387902 0) -> "division by zero") ((2274 . 5625) (/ -4611686018427387902 1) -> -4611686018427387902) ((2275 . 5625) (/ -4611686018427387902 2) -> -2305843009213693951) ((2276 . 5625) (/ -4611686018427387906 -1) -> 4611686018427387906) ((2277 . 5625) (/ -4611686018427387906 0) -> "division by zero") ((2278 . 5625) (/ -4611686018427387906 1) -> -4611686018427387906) ((2279 . 5625) (/ -4611686018427387906 2) -> -2305843009213693953) ((2280 . 5625) (/ -4611686018427387906 3) -> -1537228672809129302) ((2281 . 5625) (/ -4611686018427387905 -1) -> 4611686018427387905) ((2282 . 5625) (/ -4611686018427387905 0) -> "division by zero") ((2283 . 5625) (/ -4611686018427387905 1) -> -4611686018427387905) ((2284 . 5625) (/ -4611686018427387905 2) -> -4611686018427387905/2) ((2285 . 5625) (/ -4611686018427387905 3) -> -4611686018427387905/3) ((2286 . 5625) (/ -4611686018427387904 -1) -> 4611686018427387904) ((2287 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((2288 . 5625) (/ -4611686018427387904 1) -> -4611686018427387904) ((2289 . 5625) (/ -4611686018427387904 2) -> -2305843009213693952) ((2290 . 5625) (/ -4611686018427387904 3) -> -4611686018427387904/3) ((2291 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((2292 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((2293 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((2294 . 5625) (/ -4611686018427387903 2) -> -4611686018427387903/2) ((2295 . 5625) (/ -4611686018427387903 3) -> -1537228672809129301) ((2296 . 5625) (/ -4611686018427387902 -1) -> 4611686018427387902) ((2297 . 5625) (/ -4611686018427387902 0) -> "division by zero") ((2298 . 5625) (/ -4611686018427387902 1) -> -4611686018427387902) ((2299 . 5625) (/ -4611686018427387902 2) -> -2305843009213693951) ((2300 . 5625) (/ -4611686018427387902 3) -> -4611686018427387902/3) ((2301 . 5625) (/ -4611686018427387906 -3) -> 1537228672809129302) ((2302 . 5625) (/ -4611686018427387906 -2) -> 2305843009213693953) ((2303 . 5625) (/ -4611686018427387906 -1) -> 4611686018427387906) ((2304 . 5625) (/ -4611686018427387906 0) -> "division by zero") ((2305 . 5625) (/ -4611686018427387906 1) -> -4611686018427387906) ((2306 . 5625) (/ -4611686018427387905 -3) -> 4611686018427387905/3) ((2307 . 5625) (/ -4611686018427387905 -2) -> 4611686018427387905/2) ((2308 . 5625) (/ -4611686018427387905 -1) -> 4611686018427387905) ((2309 . 5625) (/ -4611686018427387905 0) -> "division by zero") ((2310 . 5625) (/ -4611686018427387905 1) -> -4611686018427387905) ((2311 . 5625) (/ -4611686018427387904 -3) -> 4611686018427387904/3) ((2312 . 5625) (/ -4611686018427387904 -2) -> 2305843009213693952) ((2313 . 5625) (/ -4611686018427387904 -1) -> 4611686018427387904) ((2314 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((2315 . 5625) (/ -4611686018427387904 1) -> -4611686018427387904) ((2316 . 5625) (/ -4611686018427387903 -3) -> 1537228672809129301) ((2317 . 5625) (/ -4611686018427387903 -2) -> 4611686018427387903/2) ((2318 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((2319 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((2320 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((2321 . 5625) (/ -4611686018427387902 -3) -> 4611686018427387902/3) ((2322 . 5625) (/ -4611686018427387902 -2) -> 2305843009213693951) ((2323 . 5625) (/ -4611686018427387902 -1) -> 4611686018427387902) ((2324 . 5625) (/ -4611686018427387902 0) -> "division by zero") ((2325 . 5625) (/ -4611686018427387902 1) -> -4611686018427387902) ((2326 . 5625) (/ -4611686018427387906 0) -> "division by zero") ((2327 . 5625) (/ -4611686018427387906 1) -> -4611686018427387906) ((2328 . 5625) (/ -4611686018427387906 2) -> -2305843009213693953) ((2329 . 5625) (/ -4611686018427387906 3) -> -1537228672809129302) ((2330 . 5625) (/ -4611686018427387906 4) -> -2305843009213693953/2) ((2331 . 5625) (/ -4611686018427387905 0) -> "division by zero") ((2332 . 5625) (/ -4611686018427387905 1) -> -4611686018427387905) ((2333 . 5625) (/ -4611686018427387905 2) -> -4611686018427387905/2) ((2334 . 5625) (/ -4611686018427387905 3) -> -4611686018427387905/3) ((2335 . 5625) (/ -4611686018427387905 4) -> -4611686018427387905/4) ((2336 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((2337 . 5625) (/ -4611686018427387904 1) -> -4611686018427387904) ((2338 . 5625) (/ -4611686018427387904 2) -> -2305843009213693952) ((2339 . 5625) (/ -4611686018427387904 3) -> -4611686018427387904/3) ((2340 . 5625) (/ -4611686018427387904 4) -> -1152921504606846976) ((2341 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((2342 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((2343 . 5625) (/ -4611686018427387903 2) -> -4611686018427387903/2) ((2344 . 5625) (/ -4611686018427387903 3) -> -1537228672809129301) ((2345 . 5625) (/ -4611686018427387903 4) -> -4611686018427387903/4) ((2346 . 5625) (/ -4611686018427387902 0) -> "division by zero") ((2347 . 5625) (/ -4611686018427387902 1) -> -4611686018427387902) ((2348 . 5625) (/ -4611686018427387902 2) -> -2305843009213693951) ((2349 . 5625) (/ -4611686018427387902 3) -> -4611686018427387902/3) ((2350 . 5625) (/ -4611686018427387902 4) -> -2305843009213693951/2) ((2351 . 5625) (/ -4611686018427387906 -4) -> 2305843009213693953/2) ((2352 . 5625) (/ -4611686018427387906 -3) -> 1537228672809129302) ((2353 . 5625) (/ -4611686018427387906 -2) -> 2305843009213693953) ((2354 . 5625) (/ -4611686018427387906 -1) -> 4611686018427387906) ((2355 . 5625) (/ -4611686018427387906 0) -> "division by zero") ((2356 . 5625) (/ -4611686018427387905 -4) -> 4611686018427387905/4) ((2357 . 5625) (/ -4611686018427387905 -3) -> 4611686018427387905/3) ((2358 . 5625) (/ -4611686018427387905 -2) -> 4611686018427387905/2) ((2359 . 5625) (/ -4611686018427387905 -1) -> 4611686018427387905) ((2360 . 5625) (/ -4611686018427387905 0) -> "division by zero") ((2361 . 5625) (/ -4611686018427387904 -4) -> 1152921504606846976) ((2362 . 5625) (/ -4611686018427387904 -3) -> 4611686018427387904/3) ((2363 . 5625) (/ -4611686018427387904 -2) -> 2305843009213693952) ((2364 . 5625) (/ -4611686018427387904 -1) -> 4611686018427387904) ((2365 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((2366 . 5625) (/ -4611686018427387903 -4) -> 4611686018427387903/4) ((2367 . 5625) (/ -4611686018427387903 -3) -> 1537228672809129301) ((2368 . 5625) (/ -4611686018427387903 -2) -> 4611686018427387903/2) ((2369 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((2370 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((2371 . 5625) (/ -4611686018427387902 -4) -> 2305843009213693951/2) ((2372 . 5625) (/ -4611686018427387902 -3) -> 4611686018427387902/3) ((2373 . 5625) (/ -4611686018427387902 -2) -> 2305843009213693951) ((2374 . 5625) (/ -4611686018427387902 -1) -> 4611686018427387902) ((2375 . 5625) (/ -4611686018427387902 0) -> "division by zero") ((2376 . 5625) (/ -4611686018427387906 4611686018427387901) -> -4611686018427387906/4611686018427387901) ((2377 . 5625) (/ -4611686018427387906 4611686018427387902) -> -2305843009213693953/2305843009213693951) ((2378 . 5625) (/ -4611686018427387906 4611686018427387903) -> -1537228672809129302/1537228672809129301) ((2379 . 5625) (/ -4611686018427387906 4611686018427387904) -> -2305843009213693953/2305843009213693952) ((2380 . 5625) (/ -4611686018427387906 4611686018427387905) -> -4611686018427387906/4611686018427387905) ((2381 . 5625) (/ -4611686018427387905 4611686018427387901) -> -4611686018427387905/4611686018427387901) ((2382 . 5625) (/ -4611686018427387905 4611686018427387902) -> -4611686018427387905/4611686018427387902) ((2383 . 5625) (/ -4611686018427387905 4611686018427387903) -> -4611686018427387905/4611686018427387903) ((2384 . 5625) (/ -4611686018427387905 4611686018427387904) -> -4611686018427387905/4611686018427387904) ((2385 . 5625) (/ -4611686018427387905 4611686018427387905) -> -1) ((2386 . 5625) (/ -4611686018427387904 4611686018427387901) -> -4611686018427387904/4611686018427387901) ((2387 . 5625) (/ -4611686018427387904 4611686018427387902) -> -2305843009213693952/2305843009213693951) ((2388 . 5625) (/ -4611686018427387904 4611686018427387903) -> -4611686018427387904/4611686018427387903) ((2389 . 5625) (/ -4611686018427387904 4611686018427387904) -> -1) ((2390 . 5625) (/ -4611686018427387904 4611686018427387905) -> -4611686018427387904/4611686018427387905) ((2391 . 5625) (/ -4611686018427387903 4611686018427387901) -> -4611686018427387903/4611686018427387901) ((2392 . 5625) (/ -4611686018427387903 4611686018427387902) -> -4611686018427387903/4611686018427387902) ((2393 . 5625) (/ -4611686018427387903 4611686018427387903) -> -1) ((2394 . 5625) (/ -4611686018427387903 4611686018427387904) -> -4611686018427387903/4611686018427387904) ((2395 . 5625) (/ -4611686018427387903 4611686018427387905) -> -4611686018427387903/4611686018427387905) ((2396 . 5625) (/ -4611686018427387902 4611686018427387901) -> -4611686018427387902/4611686018427387901) ((2397 . 5625) (/ -4611686018427387902 4611686018427387902) -> -1) ((2398 . 5625) (/ -4611686018427387902 4611686018427387903) -> -4611686018427387902/4611686018427387903) ((2399 . 5625) (/ -4611686018427387902 4611686018427387904) -> -2305843009213693951/2305843009213693952) ((2400 . 5625) (/ -4611686018427387902 4611686018427387905) -> -4611686018427387902/4611686018427387905) ((2401 . 5625) (/ -4611686018427387906 -4611686018427387906) -> 1) ((2402 . 5625) (/ -4611686018427387906 -4611686018427387905) -> 4611686018427387906/4611686018427387905) ((2403 . 5625) (/ -4611686018427387906 -4611686018427387904) -> 2305843009213693953/2305843009213693952) ((2404 . 5625) (/ -4611686018427387906 -4611686018427387903) -> 1537228672809129302/1537228672809129301) ((2405 . 5625) (/ -4611686018427387906 -4611686018427387902) -> 2305843009213693953/2305843009213693951) ((2406 . 5625) (/ -4611686018427387905 -4611686018427387906) -> 4611686018427387905/4611686018427387906) ((2407 . 5625) (/ -4611686018427387905 -4611686018427387905) -> 1) ((2408 . 5625) (/ -4611686018427387905 -4611686018427387904) -> 4611686018427387905/4611686018427387904) ((2409 . 5625) (/ -4611686018427387905 -4611686018427387903) -> 4611686018427387905/4611686018427387903) ((2410 . 5625) (/ -4611686018427387905 -4611686018427387902) -> 4611686018427387905/4611686018427387902) ((2411 . 5625) (/ -4611686018427387904 -4611686018427387906) -> 2305843009213693952/2305843009213693953) ((2412 . 5625) (/ -4611686018427387904 -4611686018427387905) -> 4611686018427387904/4611686018427387905) ((2413 . 5625) (/ -4611686018427387904 -4611686018427387904) -> 1) ((2414 . 5625) (/ -4611686018427387904 -4611686018427387903) -> 4611686018427387904/4611686018427387903) ((2415 . 5625) (/ -4611686018427387904 -4611686018427387902) -> 2305843009213693952/2305843009213693951) ((2416 . 5625) (/ -4611686018427387903 -4611686018427387906) -> 1537228672809129301/1537228672809129302) ((2417 . 5625) (/ -4611686018427387903 -4611686018427387905) -> 4611686018427387903/4611686018427387905) ((2418 . 5625) (/ -4611686018427387903 -4611686018427387904) -> 4611686018427387903/4611686018427387904) ((2419 . 5625) (/ -4611686018427387903 -4611686018427387903) -> 1) ((2420 . 5625) (/ -4611686018427387903 -4611686018427387902) -> 4611686018427387903/4611686018427387902) ((2421 . 5625) (/ -4611686018427387902 -4611686018427387906) -> 2305843009213693951/2305843009213693953) ((2422 . 5625) (/ -4611686018427387902 -4611686018427387905) -> 4611686018427387902/4611686018427387905) ((2423 . 5625) (/ -4611686018427387902 -4611686018427387904) -> 2305843009213693951/2305843009213693952) ((2424 . 5625) (/ -4611686018427387902 -4611686018427387903) -> 4611686018427387902/4611686018427387903) ((2425 . 5625) (/ -4611686018427387902 -4611686018427387902) -> 1) ((2426 . 5625) (/ -4611686018427387906 4611686018427387902) -> -2305843009213693953/2305843009213693951) ((2427 . 5625) (/ -4611686018427387906 4611686018427387903) -> -1537228672809129302/1537228672809129301) ((2428 . 5625) (/ -4611686018427387906 4611686018427387904) -> -2305843009213693953/2305843009213693952) ((2429 . 5625) (/ -4611686018427387906 4611686018427387905) -> -4611686018427387906/4611686018427387905) ((2430 . 5625) (/ -4611686018427387906 4611686018427387906) -> -1) ((2431 . 5625) (/ -4611686018427387905 4611686018427387902) -> -4611686018427387905/4611686018427387902) ((2432 . 5625) (/ -4611686018427387905 4611686018427387903) -> -4611686018427387905/4611686018427387903) ((2433 . 5625) (/ -4611686018427387905 4611686018427387904) -> -4611686018427387905/4611686018427387904) ((2434 . 5625) (/ -4611686018427387905 4611686018427387905) -> -1) ((2435 . 5625) (/ -4611686018427387905 4611686018427387906) -> -4611686018427387905/4611686018427387906) ((2436 . 5625) (/ -4611686018427387904 4611686018427387902) -> -2305843009213693952/2305843009213693951) ((2437 . 5625) (/ -4611686018427387904 4611686018427387903) -> -4611686018427387904/4611686018427387903) ((2438 . 5625) (/ -4611686018427387904 4611686018427387904) -> -1) ((2439 . 5625) (/ -4611686018427387904 4611686018427387905) -> -4611686018427387904/4611686018427387905) ((2440 . 5625) (/ -4611686018427387904 4611686018427387906) -> -2305843009213693952/2305843009213693953) ((2441 . 5625) (/ -4611686018427387903 4611686018427387902) -> -4611686018427387903/4611686018427387902) ((2442 . 5625) (/ -4611686018427387903 4611686018427387903) -> -1) ((2443 . 5625) (/ -4611686018427387903 4611686018427387904) -> -4611686018427387903/4611686018427387904) ((2444 . 5625) (/ -4611686018427387903 4611686018427387905) -> -4611686018427387903/4611686018427387905) ((2445 . 5625) (/ -4611686018427387903 4611686018427387906) -> -1537228672809129301/1537228672809129302) ((2446 . 5625) (/ -4611686018427387902 4611686018427387902) -> -1) ((2447 . 5625) (/ -4611686018427387902 4611686018427387903) -> -4611686018427387902/4611686018427387903) ((2448 . 5625) (/ -4611686018427387902 4611686018427387904) -> -2305843009213693951/2305843009213693952) ((2449 . 5625) (/ -4611686018427387902 4611686018427387905) -> -4611686018427387902/4611686018427387905) ((2450 . 5625) (/ -4611686018427387902 4611686018427387906) -> -2305843009213693951/2305843009213693953) ((2451 . 5625) (/ -4611686018427387906 -4611686018427387907) -> 4611686018427387906/4611686018427387907) ((2452 . 5625) (/ -4611686018427387906 -4611686018427387906) -> 1) ((2453 . 5625) (/ -4611686018427387906 -4611686018427387905) -> 4611686018427387906/4611686018427387905) ((2454 . 5625) (/ -4611686018427387906 -4611686018427387904) -> 2305843009213693953/2305843009213693952) ((2455 . 5625) (/ -4611686018427387906 -4611686018427387903) -> 1537228672809129302/1537228672809129301) ((2456 . 5625) (/ -4611686018427387905 -4611686018427387907) -> 4611686018427387905/4611686018427387907) ((2457 . 5625) (/ -4611686018427387905 -4611686018427387906) -> 4611686018427387905/4611686018427387906) ((2458 . 5625) (/ -4611686018427387905 -4611686018427387905) -> 1) ((2459 . 5625) (/ -4611686018427387905 -4611686018427387904) -> 4611686018427387905/4611686018427387904) ((2460 . 5625) (/ -4611686018427387905 -4611686018427387903) -> 4611686018427387905/4611686018427387903) ((2461 . 5625) (/ -4611686018427387904 -4611686018427387907) -> 4611686018427387904/4611686018427387907) ((2462 . 5625) (/ -4611686018427387904 -4611686018427387906) -> 2305843009213693952/2305843009213693953) ((2463 . 5625) (/ -4611686018427387904 -4611686018427387905) -> 4611686018427387904/4611686018427387905) ((2464 . 5625) (/ -4611686018427387904 -4611686018427387904) -> 1) ((2465 . 5625) (/ -4611686018427387904 -4611686018427387903) -> 4611686018427387904/4611686018427387903) ((2466 . 5625) (/ -4611686018427387903 -4611686018427387907) -> 4611686018427387903/4611686018427387907) ((2467 . 5625) (/ -4611686018427387903 -4611686018427387906) -> 1537228672809129301/1537228672809129302) ((2468 . 5625) (/ -4611686018427387903 -4611686018427387905) -> 4611686018427387903/4611686018427387905) ((2469 . 5625) (/ -4611686018427387903 -4611686018427387904) -> 4611686018427387903/4611686018427387904) ((2470 . 5625) (/ -4611686018427387903 -4611686018427387903) -> 1) ((2471 . 5625) (/ -4611686018427387902 -4611686018427387907) -> 4611686018427387902/4611686018427387907) ((2472 . 5625) (/ -4611686018427387902 -4611686018427387906) -> 2305843009213693951/2305843009213693953) ((2473 . 5625) (/ -4611686018427387902 -4611686018427387905) -> 4611686018427387902/4611686018427387905) ((2474 . 5625) (/ -4611686018427387902 -4611686018427387904) -> 2305843009213693951/2305843009213693952) ((2475 . 5625) (/ -4611686018427387902 -4611686018427387903) -> 4611686018427387902/4611686018427387903) ((2476 . 5625) (/ -4611686018427387906 1103515243) -> -4611686018427387906/1103515243) ((2477 . 5625) (/ -4611686018427387906 1103515244) -> -2305843009213693953/551757622) ((2478 . 5625) (/ -4611686018427387906 1103515245) -> -1537228672809129302/367838415) ((2479 . 5625) (/ -4611686018427387906 1103515246) -> -2305843009213693953/551757623) ((2480 . 5625) (/ -4611686018427387906 1103515247) -> -4611686018427387906/1103515247) ((2481 . 5625) (/ -4611686018427387905 1103515243) -> -4611686018427387905/1103515243) ((2482 . 5625) (/ -4611686018427387905 1103515244) -> -4611686018427387905/1103515244) ((2483 . 5625) (/ -4611686018427387905 1103515245) -> -922337203685477581/220703049) ((2484 . 5625) (/ -4611686018427387905 1103515246) -> -4611686018427387905/1103515246) ((2485 . 5625) (/ -4611686018427387905 1103515247) -> -4611686018427387905/1103515247) ((2486 . 5625) (/ -4611686018427387904 1103515243) -> -4611686018427387904/1103515243) ((2487 . 5625) (/ -4611686018427387904 1103515244) -> -1152921504606846976/275878811) ((2488 . 5625) (/ -4611686018427387904 1103515245) -> -4611686018427387904/1103515245) ((2489 . 5625) (/ -4611686018427387904 1103515246) -> -2305843009213693952/551757623) ((2490 . 5625) (/ -4611686018427387904 1103515247) -> -4611686018427387904/1103515247) ((2491 . 5625) (/ -4611686018427387903 1103515243) -> -4611686018427387903/1103515243) ((2492 . 5625) (/ -4611686018427387903 1103515244) -> -4611686018427387903/1103515244) ((2493 . 5625) (/ -4611686018427387903 1103515245) -> -1537228672809129301/367838415) ((2494 . 5625) (/ -4611686018427387903 1103515246) -> -4611686018427387903/1103515246) ((2495 . 5625) (/ -4611686018427387903 1103515247) -> -4611686018427387903/1103515247) ((2496 . 5625) (/ -4611686018427387902 1103515243) -> -4611686018427387902/1103515243) ((2497 . 5625) (/ -4611686018427387902 1103515244) -> -2305843009213693951/551757622) ((2498 . 5625) (/ -4611686018427387902 1103515245) -> -4611686018427387902/1103515245) ((2499 . 5625) (/ -4611686018427387902 1103515246) -> -2305843009213693951/551757623) ((2500 . 5625) (/ -4611686018427387902 1103515247) -> -4611686018427387902/1103515247) ((2501 . 5625) (/ -4611686018427387906 631629063) -> -1537228672809129302/210543021) ((2502 . 5625) (/ -4611686018427387906 631629064) -> -2305843009213693953/315814532) ((2503 . 5625) (/ -4611686018427387906 631629065) -> -4611686018427387906/631629065) ((2504 . 5625) (/ -4611686018427387906 631629066) -> -768614336404564651/105271511) ((2505 . 5625) (/ -4611686018427387906 631629067) -> -4611686018427387906/631629067) ((2506 . 5625) (/ -4611686018427387905 631629063) -> -4611686018427387905/631629063) ((2507 . 5625) (/ -4611686018427387905 631629064) -> -4611686018427387905/631629064) ((2508 . 5625) (/ -4611686018427387905 631629065) -> -922337203685477581/126325813) ((2509 . 5625) (/ -4611686018427387905 631629066) -> -4611686018427387905/631629066) ((2510 . 5625) (/ -4611686018427387905 631629067) -> -4611686018427387905/631629067) ((2511 . 5625) (/ -4611686018427387904 631629063) -> -4611686018427387904/631629063) ((2512 . 5625) (/ -4611686018427387904 631629064) -> -576460752303423488/78953633) ((2513 . 5625) (/ -4611686018427387904 631629065) -> -4611686018427387904/631629065) ((2514 . 5625) (/ -4611686018427387904 631629066) -> -2305843009213693952/315814533) ((2515 . 5625) (/ -4611686018427387904 631629067) -> -4611686018427387904/631629067) ((2516 . 5625) (/ -4611686018427387903 631629063) -> -1537228672809129301/210543021) ((2517 . 5625) (/ -4611686018427387903 631629064) -> -4611686018427387903/631629064) ((2518 . 5625) (/ -4611686018427387903 631629065) -> -4611686018427387903/631629065) ((2519 . 5625) (/ -4611686018427387903 631629066) -> -1537228672809129301/210543022) ((2520 . 5625) (/ -4611686018427387903 631629067) -> -4611686018427387903/631629067) ((2521 . 5625) (/ -4611686018427387902 631629063) -> -4611686018427387902/631629063) ((2522 . 5625) (/ -4611686018427387902 631629064) -> -2305843009213693951/315814532) ((2523 . 5625) (/ -4611686018427387902 631629065) -> -4611686018427387902/631629065) ((2524 . 5625) (/ -4611686018427387902 631629066) -> -2305843009213693951/315814533) ((2525 . 5625) (/ -4611686018427387902 631629067) -> -4611686018427387902/631629067) ((2526 . 5625) (/ -4611686018427387906 9007199254740990) -> -768614336404564651/1501199875790165) ((2527 . 5625) (/ -4611686018427387906 9007199254740991) -> -4611686018427387906/9007199254740991) ((2528 . 5625) (/ -4611686018427387906 9007199254740992) -> -2305843009213693953/4503599627370496) ((2529 . 5625) (/ -4611686018427387906 9007199254740993) -> -1537228672809129302/3002399751580331) ((2530 . 5625) (/ -4611686018427387906 9007199254740994) -> -2305843009213693953/4503599627370497) ((2531 . 5625) (/ -4611686018427387905 9007199254740990) -> -922337203685477581/1801439850948198) ((2532 . 5625) (/ -4611686018427387905 9007199254740991) -> -4611686018427387905/9007199254740991) ((2533 . 5625) (/ -4611686018427387905 9007199254740992) -> -4611686018427387905/9007199254740992) ((2534 . 5625) (/ -4611686018427387905 9007199254740993) -> -4611686018427387905/9007199254740993) ((2535 . 5625) (/ -4611686018427387905 9007199254740994) -> -4611686018427387905/9007199254740994) ((2536 . 5625) (/ -4611686018427387904 9007199254740990) -> -2305843009213693952/4503599627370495) ((2537 . 5625) (/ -4611686018427387904 9007199254740991) -> -4611686018427387904/9007199254740991) ((2538 . 5625) (/ -4611686018427387904 9007199254740992) -> -512) ((2539 . 5625) (/ -4611686018427387904 9007199254740993) -> -4611686018427387904/9007199254740993) ((2540 . 5625) (/ -4611686018427387904 9007199254740994) -> -2305843009213693952/4503599627370497) ((2541 . 5625) (/ -4611686018427387903 9007199254740990) -> -1537228672809129301/3002399751580330) ((2542 . 5625) (/ -4611686018427387903 9007199254740991) -> -4611686018427387903/9007199254740991) ((2543 . 5625) (/ -4611686018427387903 9007199254740992) -> -4611686018427387903/9007199254740992) ((2544 . 5625) (/ -4611686018427387903 9007199254740993) -> -1537228672809129301/3002399751580331) ((2545 . 5625) (/ -4611686018427387903 9007199254740994) -> -4611686018427387903/9007199254740994) ((2546 . 5625) (/ -4611686018427387902 9007199254740990) -> -2305843009213693951/4503599627370495) ((2547 . 5625) (/ -4611686018427387902 9007199254740991) -> -4611686018427387902/9007199254740991) ((2548 . 5625) (/ -4611686018427387902 9007199254740992) -> -2305843009213693951/4503599627370496) ((2549 . 5625) (/ -4611686018427387902 9007199254740993) -> -4611686018427387902/9007199254740993) ((2550 . 5625) (/ -4611686018427387902 9007199254740994) -> -2305843009213693951/4503599627370497) ((2551 . 5625) (/ -4611686018427387906 -9007199254740994) -> 2305843009213693953/4503599627370497) ((2552 . 5625) (/ -4611686018427387906 -9007199254740993) -> 1537228672809129302/3002399751580331) ((2553 . 5625) (/ -4611686018427387906 -9007199254740992) -> 2305843009213693953/4503599627370496) ((2554 . 5625) (/ -4611686018427387906 -9007199254740991) -> 4611686018427387906/9007199254740991) ((2555 . 5625) (/ -4611686018427387906 -9007199254740990) -> 768614336404564651/1501199875790165) ((2556 . 5625) (/ -4611686018427387905 -9007199254740994) -> 4611686018427387905/9007199254740994) ((2557 . 5625) (/ -4611686018427387905 -9007199254740993) -> 4611686018427387905/9007199254740993) ((2558 . 5625) (/ -4611686018427387905 -9007199254740992) -> 4611686018427387905/9007199254740992) ((2559 . 5625) (/ -4611686018427387905 -9007199254740991) -> 4611686018427387905/9007199254740991) ((2560 . 5625) (/ -4611686018427387905 -9007199254740990) -> 922337203685477581/1801439850948198) ((2561 . 5625) (/ -4611686018427387904 -9007199254740994) -> 2305843009213693952/4503599627370497) ((2562 . 5625) (/ -4611686018427387904 -9007199254740993) -> 4611686018427387904/9007199254740993) ((2563 . 5625) (/ -4611686018427387904 -9007199254740992) -> 512) ((2564 . 5625) (/ -4611686018427387904 -9007199254740991) -> 4611686018427387904/9007199254740991) ((2565 . 5625) (/ -4611686018427387904 -9007199254740990) -> 2305843009213693952/4503599627370495) ((2566 . 5625) (/ -4611686018427387903 -9007199254740994) -> 4611686018427387903/9007199254740994) ((2567 . 5625) (/ -4611686018427387903 -9007199254740993) -> 1537228672809129301/3002399751580331) ((2568 . 5625) (/ -4611686018427387903 -9007199254740992) -> 4611686018427387903/9007199254740992) ((2569 . 5625) (/ -4611686018427387903 -9007199254740991) -> 4611686018427387903/9007199254740991) ((2570 . 5625) (/ -4611686018427387903 -9007199254740990) -> 1537228672809129301/3002399751580330) ((2571 . 5625) (/ -4611686018427387902 -9007199254740994) -> 2305843009213693951/4503599627370497) ((2572 . 5625) (/ -4611686018427387902 -9007199254740993) -> 4611686018427387902/9007199254740993) ((2573 . 5625) (/ -4611686018427387902 -9007199254740992) -> 2305843009213693951/4503599627370496) ((2574 . 5625) (/ -4611686018427387902 -9007199254740991) -> 4611686018427387902/9007199254740991) ((2575 . 5625) (/ -4611686018427387902 -9007199254740990) -> 2305843009213693951/4503599627370495) ((2576 . 5625) (/ -4611686018427387906 12343) -> -4611686018427387906/12343) ((2577 . 5625) (/ -4611686018427387906 12344) -> -2305843009213693953/6172) ((2578 . 5625) (/ -4611686018427387906 12345) -> -1537228672809129302/4115) ((2579 . 5625) (/ -4611686018427387906 12346) -> -2305843009213693953/6173) ((2580 . 5625) (/ -4611686018427387906 12347) -> -4611686018427387906/12347) ((2581 . 5625) (/ -4611686018427387905 12343) -> -4611686018427387905/12343) ((2582 . 5625) (/ -4611686018427387905 12344) -> -4611686018427387905/12344) ((2583 . 5625) (/ -4611686018427387905 12345) -> -922337203685477581/2469) ((2584 . 5625) (/ -4611686018427387905 12346) -> -4611686018427387905/12346) ((2585 . 5625) (/ -4611686018427387905 12347) -> -4611686018427387905/12347) ((2586 . 5625) (/ -4611686018427387904 12343) -> -4611686018427387904/12343) ((2587 . 5625) (/ -4611686018427387904 12344) -> -576460752303423488/1543) ((2588 . 5625) (/ -4611686018427387904 12345) -> -4611686018427387904/12345) ((2589 . 5625) (/ -4611686018427387904 12346) -> -2305843009213693952/6173) ((2590 . 5625) (/ -4611686018427387904 12347) -> -4611686018427387904/12347) ((2591 . 5625) (/ -4611686018427387903 12343) -> -4611686018427387903/12343) ((2592 . 5625) (/ -4611686018427387903 12344) -> -4611686018427387903/12344) ((2593 . 5625) (/ -4611686018427387903 12345) -> -1537228672809129301/4115) ((2594 . 5625) (/ -4611686018427387903 12346) -> -4611686018427387903/12346) ((2595 . 5625) (/ -4611686018427387903 12347) -> -4611686018427387903/12347) ((2596 . 5625) (/ -4611686018427387902 12343) -> -4611686018427387902/12343) ((2597 . 5625) (/ -4611686018427387902 12344) -> -2305843009213693951/6172) ((2598 . 5625) (/ -4611686018427387902 12345) -> -4611686018427387902/12345) ((2599 . 5625) (/ -4611686018427387902 12346) -> -2305843009213693951/6173) ((2600 . 5625) (/ -4611686018427387902 12347) -> -4611686018427387902/12347) ((2601 . 5625) (/ -4611686018427387906 4294967294) -> -2305843009213693953/2147483647) ((2602 . 5625) (/ -4611686018427387906 4294967295) -> -1537228672809129302/1431655765) ((2603 . 5625) (/ -4611686018427387906 4294967296) -> -2305843009213693953/2147483648) ((2604 . 5625) (/ -4611686018427387906 4294967297) -> -4611686018427387906/4294967297) ((2605 . 5625) (/ -4611686018427387906 4294967298) -> -768614336404564651/715827883) ((2606 . 5625) (/ -4611686018427387905 4294967294) -> -4611686018427387905/4294967294) ((2607 . 5625) (/ -4611686018427387905 4294967295) -> -922337203685477581/858993459) ((2608 . 5625) (/ -4611686018427387905 4294967296) -> -4611686018427387905/4294967296) ((2609 . 5625) (/ -4611686018427387905 4294967297) -> -4611686018427387905/4294967297) ((2610 . 5625) (/ -4611686018427387905 4294967298) -> -4611686018427387905/4294967298) ((2611 . 5625) (/ -4611686018427387904 4294967294) -> -2305843009213693952/2147483647) ((2612 . 5625) (/ -4611686018427387904 4294967295) -> -4611686018427387904/4294967295) ((2613 . 5625) (/ -4611686018427387904 4294967296) -> -1073741824) ((2614 . 5625) (/ -4611686018427387904 4294967297) -> -4611686018427387904/4294967297) ((2615 . 5625) (/ -4611686018427387904 4294967298) -> -2305843009213693952/2147483649) ((2616 . 5625) (/ -4611686018427387903 4294967294) -> -2147483649/2) ((2617 . 5625) (/ -4611686018427387903 4294967295) -> -1537228672809129301/1431655765) ((2618 . 5625) (/ -4611686018427387903 4294967296) -> -4611686018427387903/4294967296) ((2619 . 5625) (/ -4611686018427387903 4294967297) -> -4611686018427387903/4294967297) ((2620 . 5625) (/ -4611686018427387903 4294967298) -> -2147483647/2) ((2621 . 5625) (/ -4611686018427387902 4294967294) -> -2305843009213693951/2147483647) ((2622 . 5625) (/ -4611686018427387902 4294967295) -> -4611686018427387902/4294967295) ((2623 . 5625) (/ -4611686018427387902 4294967296) -> -2305843009213693951/2147483648) ((2624 . 5625) (/ -4611686018427387902 4294967297) -> -4611686018427387902/4294967297) ((2625 . 5625) (/ -4611686018427387902 4294967298) -> -2305843009213693951/2147483649) ((2626 . 5625) (/ 4611686018427387902 -2) -> -2305843009213693951) ((2627 . 5625) (/ 4611686018427387902 -1) -> -4611686018427387902) ((2628 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((2629 . 5625) (/ 4611686018427387902 1) -> 4611686018427387902) ((2630 . 5625) (/ 4611686018427387902 2) -> 2305843009213693951) ((2631 . 5625) (/ 4611686018427387903 -2) -> -4611686018427387903/2) ((2632 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((2633 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((2634 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((2635 . 5625) (/ 4611686018427387903 2) -> 4611686018427387903/2) ((2636 . 5625) (/ 4611686018427387904 -2) -> -2305843009213693952) ((2637 . 5625) (/ 4611686018427387904 -1) -> -4611686018427387904) ((2638 . 5625) (/ 4611686018427387904 0) -> "division by zero") ((2639 . 5625) (/ 4611686018427387904 1) -> 4611686018427387904) ((2640 . 5625) (/ 4611686018427387904 2) -> 2305843009213693952) ((2641 . 5625) (/ 4611686018427387905 -2) -> -4611686018427387905/2) ((2642 . 5625) (/ 4611686018427387905 -1) -> -4611686018427387905) ((2643 . 5625) (/ 4611686018427387905 0) -> "division by zero") ((2644 . 5625) (/ 4611686018427387905 1) -> 4611686018427387905) ((2645 . 5625) (/ 4611686018427387905 2) -> 4611686018427387905/2) ((2646 . 5625) (/ 4611686018427387906 -2) -> -2305843009213693953) ((2647 . 5625) (/ 4611686018427387906 -1) -> -4611686018427387906) ((2648 . 5625) (/ 4611686018427387906 0) -> "division by zero") ((2649 . 5625) (/ 4611686018427387906 1) -> 4611686018427387906) ((2650 . 5625) (/ 4611686018427387906 2) -> 2305843009213693953) ((2651 . 5625) (/ 4611686018427387902 -1) -> -4611686018427387902) ((2652 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((2653 . 5625) (/ 4611686018427387902 1) -> 4611686018427387902) ((2654 . 5625) (/ 4611686018427387902 2) -> 2305843009213693951) ((2655 . 5625) (/ 4611686018427387902 3) -> 4611686018427387902/3) ((2656 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((2657 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((2658 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((2659 . 5625) (/ 4611686018427387903 2) -> 4611686018427387903/2) ((2660 . 5625) (/ 4611686018427387903 3) -> 1537228672809129301) ((2661 . 5625) (/ 4611686018427387904 -1) -> -4611686018427387904) ((2662 . 5625) (/ 4611686018427387904 0) -> "division by zero") ((2663 . 5625) (/ 4611686018427387904 1) -> 4611686018427387904) ((2664 . 5625) (/ 4611686018427387904 2) -> 2305843009213693952) ((2665 . 5625) (/ 4611686018427387904 3) -> 4611686018427387904/3) ((2666 . 5625) (/ 4611686018427387905 -1) -> -4611686018427387905) ((2667 . 5625) (/ 4611686018427387905 0) -> "division by zero") ((2668 . 5625) (/ 4611686018427387905 1) -> 4611686018427387905) ((2669 . 5625) (/ 4611686018427387905 2) -> 4611686018427387905/2) ((2670 . 5625) (/ 4611686018427387905 3) -> 4611686018427387905/3) ((2671 . 5625) (/ 4611686018427387906 -1) -> -4611686018427387906) ((2672 . 5625) (/ 4611686018427387906 0) -> "division by zero") ((2673 . 5625) (/ 4611686018427387906 1) -> 4611686018427387906) ((2674 . 5625) (/ 4611686018427387906 2) -> 2305843009213693953) ((2675 . 5625) (/ 4611686018427387906 3) -> 1537228672809129302) ((2676 . 5625) (/ 4611686018427387902 -3) -> -4611686018427387902/3) ((2677 . 5625) (/ 4611686018427387902 -2) -> -2305843009213693951) ((2678 . 5625) (/ 4611686018427387902 -1) -> -4611686018427387902) ((2679 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((2680 . 5625) (/ 4611686018427387902 1) -> 4611686018427387902) ((2681 . 5625) (/ 4611686018427387903 -3) -> -1537228672809129301) ((2682 . 5625) (/ 4611686018427387903 -2) -> -4611686018427387903/2) ((2683 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((2684 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((2685 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((2686 . 5625) (/ 4611686018427387904 -3) -> -4611686018427387904/3) ((2687 . 5625) (/ 4611686018427387904 -2) -> -2305843009213693952) ((2688 . 5625) (/ 4611686018427387904 -1) -> -4611686018427387904) ((2689 . 5625) (/ 4611686018427387904 0) -> "division by zero") ((2690 . 5625) (/ 4611686018427387904 1) -> 4611686018427387904) ((2691 . 5625) (/ 4611686018427387905 -3) -> -4611686018427387905/3) ((2692 . 5625) (/ 4611686018427387905 -2) -> -4611686018427387905/2) ((2693 . 5625) (/ 4611686018427387905 -1) -> -4611686018427387905) ((2694 . 5625) (/ 4611686018427387905 0) -> "division by zero") ((2695 . 5625) (/ 4611686018427387905 1) -> 4611686018427387905) ((2696 . 5625) (/ 4611686018427387906 -3) -> -1537228672809129302) ((2697 . 5625) (/ 4611686018427387906 -2) -> -2305843009213693953) ((2698 . 5625) (/ 4611686018427387906 -1) -> -4611686018427387906) ((2699 . 5625) (/ 4611686018427387906 0) -> "division by zero") ((2700 . 5625) (/ 4611686018427387906 1) -> 4611686018427387906) ((2701 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((2702 . 5625) (/ 4611686018427387902 1) -> 4611686018427387902) ((2703 . 5625) (/ 4611686018427387902 2) -> 2305843009213693951) ((2704 . 5625) (/ 4611686018427387902 3) -> 4611686018427387902/3) ((2705 . 5625) (/ 4611686018427387902 4) -> 2305843009213693951/2) ((2706 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((2707 . 5625) (/ 4611686018427387903 1) -> 4611686018427387903) ((2708 . 5625) (/ 4611686018427387903 2) -> 4611686018427387903/2) ((2709 . 5625) (/ 4611686018427387903 3) -> 1537228672809129301) ((2710 . 5625) (/ 4611686018427387903 4) -> 4611686018427387903/4) ((2711 . 5625) (/ 4611686018427387904 0) -> "division by zero") ((2712 . 5625) (/ 4611686018427387904 1) -> 4611686018427387904) ((2713 . 5625) (/ 4611686018427387904 2) -> 2305843009213693952) ((2714 . 5625) (/ 4611686018427387904 3) -> 4611686018427387904/3) ((2715 . 5625) (/ 4611686018427387904 4) -> 1152921504606846976) ((2716 . 5625) (/ 4611686018427387905 0) -> "division by zero") ((2717 . 5625) (/ 4611686018427387905 1) -> 4611686018427387905) ((2718 . 5625) (/ 4611686018427387905 2) -> 4611686018427387905/2) ((2719 . 5625) (/ 4611686018427387905 3) -> 4611686018427387905/3) ((2720 . 5625) (/ 4611686018427387905 4) -> 4611686018427387905/4) ((2721 . 5625) (/ 4611686018427387906 0) -> "division by zero") ((2722 . 5625) (/ 4611686018427387906 1) -> 4611686018427387906) ((2723 . 5625) (/ 4611686018427387906 2) -> 2305843009213693953) ((2724 . 5625) (/ 4611686018427387906 3) -> 1537228672809129302) ((2725 . 5625) (/ 4611686018427387906 4) -> 2305843009213693953/2) ((2726 . 5625) (/ 4611686018427387902 -4) -> -2305843009213693951/2) ((2727 . 5625) (/ 4611686018427387902 -3) -> -4611686018427387902/3) ((2728 . 5625) (/ 4611686018427387902 -2) -> -2305843009213693951) ((2729 . 5625) (/ 4611686018427387902 -1) -> -4611686018427387902) ((2730 . 5625) (/ 4611686018427387902 0) -> "division by zero") ((2731 . 5625) (/ 4611686018427387903 -4) -> -4611686018427387903/4) ((2732 . 5625) (/ 4611686018427387903 -3) -> -1537228672809129301) ((2733 . 5625) (/ 4611686018427387903 -2) -> -4611686018427387903/2) ((2734 . 5625) (/ 4611686018427387903 -1) -> -4611686018427387903) ((2735 . 5625) (/ 4611686018427387903 0) -> "division by zero") ((2736 . 5625) (/ 4611686018427387904 -4) -> -1152921504606846976) ((2737 . 5625) (/ 4611686018427387904 -3) -> -4611686018427387904/3) ((2738 . 5625) (/ 4611686018427387904 -2) -> -2305843009213693952) ((2739 . 5625) (/ 4611686018427387904 -1) -> -4611686018427387904) ((2740 . 5625) (/ 4611686018427387904 0) -> "division by zero") ((2741 . 5625) (/ 4611686018427387905 -4) -> -4611686018427387905/4) ((2742 . 5625) (/ 4611686018427387905 -3) -> -4611686018427387905/3) ((2743 . 5625) (/ 4611686018427387905 -2) -> -4611686018427387905/2) ((2744 . 5625) (/ 4611686018427387905 -1) -> -4611686018427387905) ((2745 . 5625) (/ 4611686018427387905 0) -> "division by zero") ((2746 . 5625) (/ 4611686018427387906 -4) -> -2305843009213693953/2) ((2747 . 5625) (/ 4611686018427387906 -3) -> -1537228672809129302) ((2748 . 5625) (/ 4611686018427387906 -2) -> -2305843009213693953) ((2749 . 5625) (/ 4611686018427387906 -1) -> -4611686018427387906) ((2750 . 5625) (/ 4611686018427387906 0) -> "division by zero") ((2751 . 5625) (/ 4611686018427387902 4611686018427387901) -> 4611686018427387902/4611686018427387901) ((2752 . 5625) (/ 4611686018427387902 4611686018427387902) -> 1) ((2753 . 5625) (/ 4611686018427387902 4611686018427387903) -> 4611686018427387902/4611686018427387903) ((2754 . 5625) (/ 4611686018427387902 4611686018427387904) -> 2305843009213693951/2305843009213693952) ((2755 . 5625) (/ 4611686018427387902 4611686018427387905) -> 4611686018427387902/4611686018427387905) ((2756 . 5625) (/ 4611686018427387903 4611686018427387901) -> 4611686018427387903/4611686018427387901) ((2757 . 5625) (/ 4611686018427387903 4611686018427387902) -> 4611686018427387903/4611686018427387902) ((2758 . 5625) (/ 4611686018427387903 4611686018427387903) -> 1) ((2759 . 5625) (/ 4611686018427387903 4611686018427387904) -> 4611686018427387903/4611686018427387904) ((2760 . 5625) (/ 4611686018427387903 4611686018427387905) -> 4611686018427387903/4611686018427387905) ((2761 . 5625) (/ 4611686018427387904 4611686018427387901) -> 4611686018427387904/4611686018427387901) ((2762 . 5625) (/ 4611686018427387904 4611686018427387902) -> 2305843009213693952/2305843009213693951) ((2763 . 5625) (/ 4611686018427387904 4611686018427387903) -> 4611686018427387904/4611686018427387903) ((2764 . 5625) (/ 4611686018427387904 4611686018427387904) -> 1) ((2765 . 5625) (/ 4611686018427387904 4611686018427387905) -> 4611686018427387904/4611686018427387905) ((2766 . 5625) (/ 4611686018427387905 4611686018427387901) -> 4611686018427387905/4611686018427387901) ((2767 . 5625) (/ 4611686018427387905 4611686018427387902) -> 4611686018427387905/4611686018427387902) ((2768 . 5625) (/ 4611686018427387905 4611686018427387903) -> 4611686018427387905/4611686018427387903) ((2769 . 5625) (/ 4611686018427387905 4611686018427387904) -> 4611686018427387905/4611686018427387904) ((2770 . 5625) (/ 4611686018427387905 4611686018427387905) -> 1) ((2771 . 5625) (/ 4611686018427387906 4611686018427387901) -> 4611686018427387906/4611686018427387901) ((2772 . 5625) (/ 4611686018427387906 4611686018427387902) -> 2305843009213693953/2305843009213693951) ((2773 . 5625) (/ 4611686018427387906 4611686018427387903) -> 1537228672809129302/1537228672809129301) ((2774 . 5625) (/ 4611686018427387906 4611686018427387904) -> 2305843009213693953/2305843009213693952) ((2775 . 5625) (/ 4611686018427387906 4611686018427387905) -> 4611686018427387906/4611686018427387905) ((2776 . 5625) (/ 4611686018427387902 -4611686018427387906) -> -2305843009213693951/2305843009213693953) ((2777 . 5625) (/ 4611686018427387902 -4611686018427387905) -> -4611686018427387902/4611686018427387905) ((2778 . 5625) (/ 4611686018427387902 -4611686018427387904) -> -2305843009213693951/2305843009213693952) ((2779 . 5625) (/ 4611686018427387902 -4611686018427387903) -> -4611686018427387902/4611686018427387903) ((2780 . 5625) (/ 4611686018427387902 -4611686018427387902) -> -1) ((2781 . 5625) (/ 4611686018427387903 -4611686018427387906) -> -1537228672809129301/1537228672809129302) ((2782 . 5625) (/ 4611686018427387903 -4611686018427387905) -> -4611686018427387903/4611686018427387905) ((2783 . 5625) (/ 4611686018427387903 -4611686018427387904) -> -4611686018427387903/4611686018427387904) ((2784 . 5625) (/ 4611686018427387903 -4611686018427387903) -> -1) ((2785 . 5625) (/ 4611686018427387903 -4611686018427387902) -> -4611686018427387903/4611686018427387902) ((2786 . 5625) (/ 4611686018427387904 -4611686018427387906) -> -2305843009213693952/2305843009213693953) ((2787 . 5625) (/ 4611686018427387904 -4611686018427387905) -> -4611686018427387904/4611686018427387905) ((2788 . 5625) (/ 4611686018427387904 -4611686018427387904) -> -1) ((2789 . 5625) (/ 4611686018427387904 -4611686018427387903) -> -4611686018427387904/4611686018427387903) ((2790 . 5625) (/ 4611686018427387904 -4611686018427387902) -> -2305843009213693952/2305843009213693951) ((2791 . 5625) (/ 4611686018427387905 -4611686018427387906) -> -4611686018427387905/4611686018427387906) ((2792 . 5625) (/ 4611686018427387905 -4611686018427387905) -> -1) ((2793 . 5625) (/ 4611686018427387905 -4611686018427387904) -> -4611686018427387905/4611686018427387904) ((2794 . 5625) (/ 4611686018427387905 -4611686018427387903) -> -4611686018427387905/4611686018427387903) ((2795 . 5625) (/ 4611686018427387905 -4611686018427387902) -> -4611686018427387905/4611686018427387902) ((2796 . 5625) (/ 4611686018427387906 -4611686018427387906) -> -1) ((2797 . 5625) (/ 4611686018427387906 -4611686018427387905) -> -4611686018427387906/4611686018427387905) ((2798 . 5625) (/ 4611686018427387906 -4611686018427387904) -> -2305843009213693953/2305843009213693952) ((2799 . 5625) (/ 4611686018427387906 -4611686018427387903) -> -1537228672809129302/1537228672809129301) ((2800 . 5625) (/ 4611686018427387906 -4611686018427387902) -> -2305843009213693953/2305843009213693951) ((2801 . 5625) (/ 4611686018427387902 4611686018427387902) -> 1) ((2802 . 5625) (/ 4611686018427387902 4611686018427387903) -> 4611686018427387902/4611686018427387903) ((2803 . 5625) (/ 4611686018427387902 4611686018427387904) -> 2305843009213693951/2305843009213693952) ((2804 . 5625) (/ 4611686018427387902 4611686018427387905) -> 4611686018427387902/4611686018427387905) ((2805 . 5625) (/ 4611686018427387902 4611686018427387906) -> 2305843009213693951/2305843009213693953) ((2806 . 5625) (/ 4611686018427387903 4611686018427387902) -> 4611686018427387903/4611686018427387902) ((2807 . 5625) (/ 4611686018427387903 4611686018427387903) -> 1) ((2808 . 5625) (/ 4611686018427387903 4611686018427387904) -> 4611686018427387903/4611686018427387904) ((2809 . 5625) (/ 4611686018427387903 4611686018427387905) -> 4611686018427387903/4611686018427387905) ((2810 . 5625) (/ 4611686018427387903 4611686018427387906) -> 1537228672809129301/1537228672809129302) ((2811 . 5625) (/ 4611686018427387904 4611686018427387902) -> 2305843009213693952/2305843009213693951) ((2812 . 5625) (/ 4611686018427387904 4611686018427387903) -> 4611686018427387904/4611686018427387903) ((2813 . 5625) (/ 4611686018427387904 4611686018427387904) -> 1) ((2814 . 5625) (/ 4611686018427387904 4611686018427387905) -> 4611686018427387904/4611686018427387905) ((2815 . 5625) (/ 4611686018427387904 4611686018427387906) -> 2305843009213693952/2305843009213693953) ((2816 . 5625) (/ 4611686018427387905 4611686018427387902) -> 4611686018427387905/4611686018427387902) ((2817 . 5625) (/ 4611686018427387905 4611686018427387903) -> 4611686018427387905/4611686018427387903) ((2818 . 5625) (/ 4611686018427387905 4611686018427387904) -> 4611686018427387905/4611686018427387904) ((2819 . 5625) (/ 4611686018427387905 4611686018427387905) -> 1) ((2820 . 5625) (/ 4611686018427387905 4611686018427387906) -> 4611686018427387905/4611686018427387906) ((2821 . 5625) (/ 4611686018427387906 4611686018427387902) -> 2305843009213693953/2305843009213693951) ((2822 . 5625) (/ 4611686018427387906 4611686018427387903) -> 1537228672809129302/1537228672809129301) ((2823 . 5625) (/ 4611686018427387906 4611686018427387904) -> 2305843009213693953/2305843009213693952) ((2824 . 5625) (/ 4611686018427387906 4611686018427387905) -> 4611686018427387906/4611686018427387905) ((2825 . 5625) (/ 4611686018427387906 4611686018427387906) -> 1) ((2826 . 5625) (/ 4611686018427387902 -4611686018427387907) -> -4611686018427387902/4611686018427387907) ((2827 . 5625) (/ 4611686018427387902 -4611686018427387906) -> -2305843009213693951/2305843009213693953) ((2828 . 5625) (/ 4611686018427387902 -4611686018427387905) -> -4611686018427387902/4611686018427387905) ((2829 . 5625) (/ 4611686018427387902 -4611686018427387904) -> -2305843009213693951/2305843009213693952) ((2830 . 5625) (/ 4611686018427387902 -4611686018427387903) -> -4611686018427387902/4611686018427387903) ((2831 . 5625) (/ 4611686018427387903 -4611686018427387907) -> -4611686018427387903/4611686018427387907) ((2832 . 5625) (/ 4611686018427387903 -4611686018427387906) -> -1537228672809129301/1537228672809129302) ((2833 . 5625) (/ 4611686018427387903 -4611686018427387905) -> -4611686018427387903/4611686018427387905) ((2834 . 5625) (/ 4611686018427387903 -4611686018427387904) -> -4611686018427387903/4611686018427387904) ((2835 . 5625) (/ 4611686018427387903 -4611686018427387903) -> -1) ((2836 . 5625) (/ 4611686018427387904 -4611686018427387907) -> -4611686018427387904/4611686018427387907) ((2837 . 5625) (/ 4611686018427387904 -4611686018427387906) -> -2305843009213693952/2305843009213693953) ((2838 . 5625) (/ 4611686018427387904 -4611686018427387905) -> -4611686018427387904/4611686018427387905) ((2839 . 5625) (/ 4611686018427387904 -4611686018427387904) -> -1) ((2840 . 5625) (/ 4611686018427387904 -4611686018427387903) -> -4611686018427387904/4611686018427387903) ((2841 . 5625) (/ 4611686018427387905 -4611686018427387907) -> -4611686018427387905/4611686018427387907) ((2842 . 5625) (/ 4611686018427387905 -4611686018427387906) -> -4611686018427387905/4611686018427387906) ((2843 . 5625) (/ 4611686018427387905 -4611686018427387905) -> -1) ((2844 . 5625) (/ 4611686018427387905 -4611686018427387904) -> -4611686018427387905/4611686018427387904) ((2845 . 5625) (/ 4611686018427387905 -4611686018427387903) -> -4611686018427387905/4611686018427387903) ((2846 . 5625) (/ 4611686018427387906 -4611686018427387907) -> -4611686018427387906/4611686018427387907) ((2847 . 5625) (/ 4611686018427387906 -4611686018427387906) -> -1) ((2848 . 5625) (/ 4611686018427387906 -4611686018427387905) -> -4611686018427387906/4611686018427387905) ((2849 . 5625) (/ 4611686018427387906 -4611686018427387904) -> -2305843009213693953/2305843009213693952) ((2850 . 5625) (/ 4611686018427387906 -4611686018427387903) -> -1537228672809129302/1537228672809129301) ((2851 . 5625) (/ 4611686018427387902 1103515243) -> 4611686018427387902/1103515243) ((2852 . 5625) (/ 4611686018427387902 1103515244) -> 2305843009213693951/551757622) ((2853 . 5625) (/ 4611686018427387902 1103515245) -> 4611686018427387902/1103515245) ((2854 . 5625) (/ 4611686018427387902 1103515246) -> 2305843009213693951/551757623) ((2855 . 5625) (/ 4611686018427387902 1103515247) -> 4611686018427387902/1103515247) ((2856 . 5625) (/ 4611686018427387903 1103515243) -> 4611686018427387903/1103515243) ((2857 . 5625) (/ 4611686018427387903 1103515244) -> 4611686018427387903/1103515244) ((2858 . 5625) (/ 4611686018427387903 1103515245) -> 1537228672809129301/367838415) ((2859 . 5625) (/ 4611686018427387903 1103515246) -> 4611686018427387903/1103515246) ((2860 . 5625) (/ 4611686018427387903 1103515247) -> 4611686018427387903/1103515247) ((2861 . 5625) (/ 4611686018427387904 1103515243) -> 4611686018427387904/1103515243) ((2862 . 5625) (/ 4611686018427387904 1103515244) -> 1152921504606846976/275878811) ((2863 . 5625) (/ 4611686018427387904 1103515245) -> 4611686018427387904/1103515245) ((2864 . 5625) (/ 4611686018427387904 1103515246) -> 2305843009213693952/551757623) ((2865 . 5625) (/ 4611686018427387904 1103515247) -> 4611686018427387904/1103515247) ((2866 . 5625) (/ 4611686018427387905 1103515243) -> 4611686018427387905/1103515243) ((2867 . 5625) (/ 4611686018427387905 1103515244) -> 4611686018427387905/1103515244) ((2868 . 5625) (/ 4611686018427387905 1103515245) -> 922337203685477581/220703049) ((2869 . 5625) (/ 4611686018427387905 1103515246) -> 4611686018427387905/1103515246) ((2870 . 5625) (/ 4611686018427387905 1103515247) -> 4611686018427387905/1103515247) ((2871 . 5625) (/ 4611686018427387906 1103515243) -> 4611686018427387906/1103515243) ((2872 . 5625) (/ 4611686018427387906 1103515244) -> 2305843009213693953/551757622) ((2873 . 5625) (/ 4611686018427387906 1103515245) -> 1537228672809129302/367838415) ((2874 . 5625) (/ 4611686018427387906 1103515246) -> 2305843009213693953/551757623) ((2875 . 5625) (/ 4611686018427387906 1103515247) -> 4611686018427387906/1103515247) ((2876 . 5625) (/ 4611686018427387902 631629063) -> 4611686018427387902/631629063) ((2877 . 5625) (/ 4611686018427387902 631629064) -> 2305843009213693951/315814532) ((2878 . 5625) (/ 4611686018427387902 631629065) -> 4611686018427387902/631629065) ((2879 . 5625) (/ 4611686018427387902 631629066) -> 2305843009213693951/315814533) ((2880 . 5625) (/ 4611686018427387902 631629067) -> 4611686018427387902/631629067) ((2881 . 5625) (/ 4611686018427387903 631629063) -> 1537228672809129301/210543021) ((2882 . 5625) (/ 4611686018427387903 631629064) -> 4611686018427387903/631629064) ((2883 . 5625) (/ 4611686018427387903 631629065) -> 4611686018427387903/631629065) ((2884 . 5625) (/ 4611686018427387903 631629066) -> 1537228672809129301/210543022) ((2885 . 5625) (/ 4611686018427387903 631629067) -> 4611686018427387903/631629067) ((2886 . 5625) (/ 4611686018427387904 631629063) -> 4611686018427387904/631629063) ((2887 . 5625) (/ 4611686018427387904 631629064) -> 576460752303423488/78953633) ((2888 . 5625) (/ 4611686018427387904 631629065) -> 4611686018427387904/631629065) ((2889 . 5625) (/ 4611686018427387904 631629066) -> 2305843009213693952/315814533) ((2890 . 5625) (/ 4611686018427387904 631629067) -> 4611686018427387904/631629067) ((2891 . 5625) (/ 4611686018427387905 631629063) -> 4611686018427387905/631629063) ((2892 . 5625) (/ 4611686018427387905 631629064) -> 4611686018427387905/631629064) ((2893 . 5625) (/ 4611686018427387905 631629065) -> 922337203685477581/126325813) ((2894 . 5625) (/ 4611686018427387905 631629066) -> 4611686018427387905/631629066) ((2895 . 5625) (/ 4611686018427387905 631629067) -> 4611686018427387905/631629067) ((2896 . 5625) (/ 4611686018427387906 631629063) -> 1537228672809129302/210543021) ((2897 . 5625) (/ 4611686018427387906 631629064) -> 2305843009213693953/315814532) ((2898 . 5625) (/ 4611686018427387906 631629065) -> 4611686018427387906/631629065) ((2899 . 5625) (/ 4611686018427387906 631629066) -> 768614336404564651/105271511) ((2900 . 5625) (/ 4611686018427387906 631629067) -> 4611686018427387906/631629067) ((2901 . 5625) (/ 4611686018427387902 9007199254740990) -> 2305843009213693951/4503599627370495) ((2902 . 5625) (/ 4611686018427387902 9007199254740991) -> 4611686018427387902/9007199254740991) ((2903 . 5625) (/ 4611686018427387902 9007199254740992) -> 2305843009213693951/4503599627370496) ((2904 . 5625) (/ 4611686018427387902 9007199254740993) -> 4611686018427387902/9007199254740993) ((2905 . 5625) (/ 4611686018427387902 9007199254740994) -> 2305843009213693951/4503599627370497) ((2906 . 5625) (/ 4611686018427387903 9007199254740990) -> 1537228672809129301/3002399751580330) ((2907 . 5625) (/ 4611686018427387903 9007199254740991) -> 4611686018427387903/9007199254740991) ((2908 . 5625) (/ 4611686018427387903 9007199254740992) -> 4611686018427387903/9007199254740992) ((2909 . 5625) (/ 4611686018427387903 9007199254740993) -> 1537228672809129301/3002399751580331) ((2910 . 5625) (/ 4611686018427387903 9007199254740994) -> 4611686018427387903/9007199254740994) ((2911 . 5625) (/ 4611686018427387904 9007199254740990) -> 2305843009213693952/4503599627370495) ((2912 . 5625) (/ 4611686018427387904 9007199254740991) -> 4611686018427387904/9007199254740991) ((2913 . 5625) (/ 4611686018427387904 9007199254740992) -> 512) ((2914 . 5625) (/ 4611686018427387904 9007199254740993) -> 4611686018427387904/9007199254740993) ((2915 . 5625) (/ 4611686018427387904 9007199254740994) -> 2305843009213693952/4503599627370497) ((2916 . 5625) (/ 4611686018427387905 9007199254740990) -> 922337203685477581/1801439850948198) ((2917 . 5625) (/ 4611686018427387905 9007199254740991) -> 4611686018427387905/9007199254740991) ((2918 . 5625) (/ 4611686018427387905 9007199254740992) -> 4611686018427387905/9007199254740992) ((2919 . 5625) (/ 4611686018427387905 9007199254740993) -> 4611686018427387905/9007199254740993) ((2920 . 5625) (/ 4611686018427387905 9007199254740994) -> 4611686018427387905/9007199254740994) ((2921 . 5625) (/ 4611686018427387906 9007199254740990) -> 768614336404564651/1501199875790165) ((2922 . 5625) (/ 4611686018427387906 9007199254740991) -> 4611686018427387906/9007199254740991) ((2923 . 5625) (/ 4611686018427387906 9007199254740992) -> 2305843009213693953/4503599627370496) ((2924 . 5625) (/ 4611686018427387906 9007199254740993) -> 1537228672809129302/3002399751580331) ((2925 . 5625) (/ 4611686018427387906 9007199254740994) -> 2305843009213693953/4503599627370497) ((2926 . 5625) (/ 4611686018427387902 -9007199254740994) -> -2305843009213693951/4503599627370497) ((2927 . 5625) (/ 4611686018427387902 -9007199254740993) -> -4611686018427387902/9007199254740993) ((2928 . 5625) (/ 4611686018427387902 -9007199254740992) -> -2305843009213693951/4503599627370496) ((2929 . 5625) (/ 4611686018427387902 -9007199254740991) -> -4611686018427387902/9007199254740991) ((2930 . 5625) (/ 4611686018427387902 -9007199254740990) -> -2305843009213693951/4503599627370495) ((2931 . 5625) (/ 4611686018427387903 -9007199254740994) -> -4611686018427387903/9007199254740994) ((2932 . 5625) (/ 4611686018427387903 -9007199254740993) -> -1537228672809129301/3002399751580331) ((2933 . 5625) (/ 4611686018427387903 -9007199254740992) -> -4611686018427387903/9007199254740992) ((2934 . 5625) (/ 4611686018427387903 -9007199254740991) -> -4611686018427387903/9007199254740991) ((2935 . 5625) (/ 4611686018427387903 -9007199254740990) -> -1537228672809129301/3002399751580330) ((2936 . 5625) (/ 4611686018427387904 -9007199254740994) -> -2305843009213693952/4503599627370497) ((2937 . 5625) (/ 4611686018427387904 -9007199254740993) -> -4611686018427387904/9007199254740993) ((2938 . 5625) (/ 4611686018427387904 -9007199254740992) -> -512) ((2939 . 5625) (/ 4611686018427387904 -9007199254740991) -> -4611686018427387904/9007199254740991) ((2940 . 5625) (/ 4611686018427387904 -9007199254740990) -> -2305843009213693952/4503599627370495) ((2941 . 5625) (/ 4611686018427387905 -9007199254740994) -> -4611686018427387905/9007199254740994) ((2942 . 5625) (/ 4611686018427387905 -9007199254740993) -> -4611686018427387905/9007199254740993) ((2943 . 5625) (/ 4611686018427387905 -9007199254740992) -> -4611686018427387905/9007199254740992) ((2944 . 5625) (/ 4611686018427387905 -9007199254740991) -> -4611686018427387905/9007199254740991) ((2945 . 5625) (/ 4611686018427387905 -9007199254740990) -> -922337203685477581/1801439850948198) ((2946 . 5625) (/ 4611686018427387906 -9007199254740994) -> -2305843009213693953/4503599627370497) ((2947 . 5625) (/ 4611686018427387906 -9007199254740993) -> -1537228672809129302/3002399751580331) ((2948 . 5625) (/ 4611686018427387906 -9007199254740992) -> -2305843009213693953/4503599627370496) ((2949 . 5625) (/ 4611686018427387906 -9007199254740991) -> -4611686018427387906/9007199254740991) ((2950 . 5625) (/ 4611686018427387906 -9007199254740990) -> -768614336404564651/1501199875790165) ((2951 . 5625) (/ 4611686018427387902 12343) -> 4611686018427387902/12343) ((2952 . 5625) (/ 4611686018427387902 12344) -> 2305843009213693951/6172) ((2953 . 5625) (/ 4611686018427387902 12345) -> 4611686018427387902/12345) ((2954 . 5625) (/ 4611686018427387902 12346) -> 2305843009213693951/6173) ((2955 . 5625) (/ 4611686018427387902 12347) -> 4611686018427387902/12347) ((2956 . 5625) (/ 4611686018427387903 12343) -> 4611686018427387903/12343) ((2957 . 5625) (/ 4611686018427387903 12344) -> 4611686018427387903/12344) ((2958 . 5625) (/ 4611686018427387903 12345) -> 1537228672809129301/4115) ((2959 . 5625) (/ 4611686018427387903 12346) -> 4611686018427387903/12346) ((2960 . 5625) (/ 4611686018427387903 12347) -> 4611686018427387903/12347) ((2961 . 5625) (/ 4611686018427387904 12343) -> 4611686018427387904/12343) ((2962 . 5625) (/ 4611686018427387904 12344) -> 576460752303423488/1543) ((2963 . 5625) (/ 4611686018427387904 12345) -> 4611686018427387904/12345) ((2964 . 5625) (/ 4611686018427387904 12346) -> 2305843009213693952/6173) ((2965 . 5625) (/ 4611686018427387904 12347) -> 4611686018427387904/12347) ((2966 . 5625) (/ 4611686018427387905 12343) -> 4611686018427387905/12343) ((2967 . 5625) (/ 4611686018427387905 12344) -> 4611686018427387905/12344) ((2968 . 5625) (/ 4611686018427387905 12345) -> 922337203685477581/2469) ((2969 . 5625) (/ 4611686018427387905 12346) -> 4611686018427387905/12346) ((2970 . 5625) (/ 4611686018427387905 12347) -> 4611686018427387905/12347) ((2971 . 5625) (/ 4611686018427387906 12343) -> 4611686018427387906/12343) ((2972 . 5625) (/ 4611686018427387906 12344) -> 2305843009213693953/6172) ((2973 . 5625) (/ 4611686018427387906 12345) -> 1537228672809129302/4115) ((2974 . 5625) (/ 4611686018427387906 12346) -> 2305843009213693953/6173) ((2975 . 5625) (/ 4611686018427387906 12347) -> 4611686018427387906/12347) ((2976 . 5625) (/ 4611686018427387902 4294967294) -> 2305843009213693951/2147483647) ((2977 . 5625) (/ 4611686018427387902 4294967295) -> 4611686018427387902/4294967295) ((2978 . 5625) (/ 4611686018427387902 4294967296) -> 2305843009213693951/2147483648) ((2979 . 5625) (/ 4611686018427387902 4294967297) -> 4611686018427387902/4294967297) ((2980 . 5625) (/ 4611686018427387902 4294967298) -> 2305843009213693951/2147483649) ((2981 . 5625) (/ 4611686018427387903 4294967294) -> 2147483649/2) ((2982 . 5625) (/ 4611686018427387903 4294967295) -> 1537228672809129301/1431655765) ((2983 . 5625) (/ 4611686018427387903 4294967296) -> 4611686018427387903/4294967296) ((2984 . 5625) (/ 4611686018427387903 4294967297) -> 4611686018427387903/4294967297) ((2985 . 5625) (/ 4611686018427387903 4294967298) -> 2147483647/2) ((2986 . 5625) (/ 4611686018427387904 4294967294) -> 2305843009213693952/2147483647) ((2987 . 5625) (/ 4611686018427387904 4294967295) -> 4611686018427387904/4294967295) ((2988 . 5625) (/ 4611686018427387904 4294967296) -> 1073741824) ((2989 . 5625) (/ 4611686018427387904 4294967297) -> 4611686018427387904/4294967297) ((2990 . 5625) (/ 4611686018427387904 4294967298) -> 2305843009213693952/2147483649) ((2991 . 5625) (/ 4611686018427387905 4294967294) -> 4611686018427387905/4294967294) ((2992 . 5625) (/ 4611686018427387905 4294967295) -> 922337203685477581/858993459) ((2993 . 5625) (/ 4611686018427387905 4294967296) -> 4611686018427387905/4294967296) ((2994 . 5625) (/ 4611686018427387905 4294967297) -> 4611686018427387905/4294967297) ((2995 . 5625) (/ 4611686018427387905 4294967298) -> 4611686018427387905/4294967298) ((2996 . 5625) (/ 4611686018427387906 4294967294) -> 2305843009213693953/2147483647) ((2997 . 5625) (/ 4611686018427387906 4294967295) -> 1537228672809129302/1431655765) ((2998 . 5625) (/ 4611686018427387906 4294967296) -> 2305843009213693953/2147483648) ((2999 . 5625) (/ 4611686018427387906 4294967297) -> 4611686018427387906/4294967297) ((3000 . 5625) (/ 4611686018427387906 4294967298) -> 768614336404564651/715827883) ((3001 . 5625) (/ -4611686018427387907 -2) -> 4611686018427387907/2) ((3002 . 5625) (/ -4611686018427387907 -1) -> 4611686018427387907) ((3003 . 5625) (/ -4611686018427387907 0) -> "division by zero") ((3004 . 5625) (/ -4611686018427387907 1) -> -4611686018427387907) ((3005 . 5625) (/ -4611686018427387907 2) -> -4611686018427387907/2) ((3006 . 5625) (/ -4611686018427387906 -2) -> 2305843009213693953) ((3007 . 5625) (/ -4611686018427387906 -1) -> 4611686018427387906) ((3008 . 5625) (/ -4611686018427387906 0) -> "division by zero") ((3009 . 5625) (/ -4611686018427387906 1) -> -4611686018427387906) ((3010 . 5625) (/ -4611686018427387906 2) -> -2305843009213693953) ((3011 . 5625) (/ -4611686018427387905 -2) -> 4611686018427387905/2) ((3012 . 5625) (/ -4611686018427387905 -1) -> 4611686018427387905) ((3013 . 5625) (/ -4611686018427387905 0) -> "division by zero") ((3014 . 5625) (/ -4611686018427387905 1) -> -4611686018427387905) ((3015 . 5625) (/ -4611686018427387905 2) -> -4611686018427387905/2) ((3016 . 5625) (/ -4611686018427387904 -2) -> 2305843009213693952) ((3017 . 5625) (/ -4611686018427387904 -1) -> 4611686018427387904) ((3018 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((3019 . 5625) (/ -4611686018427387904 1) -> -4611686018427387904) ((3020 . 5625) (/ -4611686018427387904 2) -> -2305843009213693952) ((3021 . 5625) (/ -4611686018427387903 -2) -> 4611686018427387903/2) ((3022 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((3023 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((3024 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((3025 . 5625) (/ -4611686018427387903 2) -> -4611686018427387903/2) ((3026 . 5625) (/ -4611686018427387907 -1) -> 4611686018427387907) ((3027 . 5625) (/ -4611686018427387907 0) -> "division by zero") ((3028 . 5625) (/ -4611686018427387907 1) -> -4611686018427387907) ((3029 . 5625) (/ -4611686018427387907 2) -> -4611686018427387907/2) ((3030 . 5625) (/ -4611686018427387907 3) -> -4611686018427387907/3) ((3031 . 5625) (/ -4611686018427387906 -1) -> 4611686018427387906) ((3032 . 5625) (/ -4611686018427387906 0) -> "division by zero") ((3033 . 5625) (/ -4611686018427387906 1) -> -4611686018427387906) ((3034 . 5625) (/ -4611686018427387906 2) -> -2305843009213693953) ((3035 . 5625) (/ -4611686018427387906 3) -> -1537228672809129302) ((3036 . 5625) (/ -4611686018427387905 -1) -> 4611686018427387905) ((3037 . 5625) (/ -4611686018427387905 0) -> "division by zero") ((3038 . 5625) (/ -4611686018427387905 1) -> -4611686018427387905) ((3039 . 5625) (/ -4611686018427387905 2) -> -4611686018427387905/2) ((3040 . 5625) (/ -4611686018427387905 3) -> -4611686018427387905/3) ((3041 . 5625) (/ -4611686018427387904 -1) -> 4611686018427387904) ((3042 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((3043 . 5625) (/ -4611686018427387904 1) -> -4611686018427387904) ((3044 . 5625) (/ -4611686018427387904 2) -> -2305843009213693952) ((3045 . 5625) (/ -4611686018427387904 3) -> -4611686018427387904/3) ((3046 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((3047 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((3048 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((3049 . 5625) (/ -4611686018427387903 2) -> -4611686018427387903/2) ((3050 . 5625) (/ -4611686018427387903 3) -> -1537228672809129301) ((3051 . 5625) (/ -4611686018427387907 -3) -> 4611686018427387907/3) ((3052 . 5625) (/ -4611686018427387907 -2) -> 4611686018427387907/2) ((3053 . 5625) (/ -4611686018427387907 -1) -> 4611686018427387907) ((3054 . 5625) (/ -4611686018427387907 0) -> "division by zero") ((3055 . 5625) (/ -4611686018427387907 1) -> -4611686018427387907) ((3056 . 5625) (/ -4611686018427387906 -3) -> 1537228672809129302) ((3057 . 5625) (/ -4611686018427387906 -2) -> 2305843009213693953) ((3058 . 5625) (/ -4611686018427387906 -1) -> 4611686018427387906) ((3059 . 5625) (/ -4611686018427387906 0) -> "division by zero") ((3060 . 5625) (/ -4611686018427387906 1) -> -4611686018427387906) ((3061 . 5625) (/ -4611686018427387905 -3) -> 4611686018427387905/3) ((3062 . 5625) (/ -4611686018427387905 -2) -> 4611686018427387905/2) ((3063 . 5625) (/ -4611686018427387905 -1) -> 4611686018427387905) ((3064 . 5625) (/ -4611686018427387905 0) -> "division by zero") ((3065 . 5625) (/ -4611686018427387905 1) -> -4611686018427387905) ((3066 . 5625) (/ -4611686018427387904 -3) -> 4611686018427387904/3) ((3067 . 5625) (/ -4611686018427387904 -2) -> 2305843009213693952) ((3068 . 5625) (/ -4611686018427387904 -1) -> 4611686018427387904) ((3069 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((3070 . 5625) (/ -4611686018427387904 1) -> -4611686018427387904) ((3071 . 5625) (/ -4611686018427387903 -3) -> 1537228672809129301) ((3072 . 5625) (/ -4611686018427387903 -2) -> 4611686018427387903/2) ((3073 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((3074 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((3075 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((3076 . 5625) (/ -4611686018427387907 0) -> "division by zero") ((3077 . 5625) (/ -4611686018427387907 1) -> -4611686018427387907) ((3078 . 5625) (/ -4611686018427387907 2) -> -4611686018427387907/2) ((3079 . 5625) (/ -4611686018427387907 3) -> -4611686018427387907/3) ((3080 . 5625) (/ -4611686018427387907 4) -> -4611686018427387907/4) ((3081 . 5625) (/ -4611686018427387906 0) -> "division by zero") ((3082 . 5625) (/ -4611686018427387906 1) -> -4611686018427387906) ((3083 . 5625) (/ -4611686018427387906 2) -> -2305843009213693953) ((3084 . 5625) (/ -4611686018427387906 3) -> -1537228672809129302) ((3085 . 5625) (/ -4611686018427387906 4) -> -2305843009213693953/2) ((3086 . 5625) (/ -4611686018427387905 0) -> "division by zero") ((3087 . 5625) (/ -4611686018427387905 1) -> -4611686018427387905) ((3088 . 5625) (/ -4611686018427387905 2) -> -4611686018427387905/2) ((3089 . 5625) (/ -4611686018427387905 3) -> -4611686018427387905/3) ((3090 . 5625) (/ -4611686018427387905 4) -> -4611686018427387905/4) ((3091 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((3092 . 5625) (/ -4611686018427387904 1) -> -4611686018427387904) ((3093 . 5625) (/ -4611686018427387904 2) -> -2305843009213693952) ((3094 . 5625) (/ -4611686018427387904 3) -> -4611686018427387904/3) ((3095 . 5625) (/ -4611686018427387904 4) -> -1152921504606846976) ((3096 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((3097 . 5625) (/ -4611686018427387903 1) -> -4611686018427387903) ((3098 . 5625) (/ -4611686018427387903 2) -> -4611686018427387903/2) ((3099 . 5625) (/ -4611686018427387903 3) -> -1537228672809129301) ((3100 . 5625) (/ -4611686018427387903 4) -> -4611686018427387903/4) ((3101 . 5625) (/ -4611686018427387907 -4) -> 4611686018427387907/4) ((3102 . 5625) (/ -4611686018427387907 -3) -> 4611686018427387907/3) ((3103 . 5625) (/ -4611686018427387907 -2) -> 4611686018427387907/2) ((3104 . 5625) (/ -4611686018427387907 -1) -> 4611686018427387907) ((3105 . 5625) (/ -4611686018427387907 0) -> "division by zero") ((3106 . 5625) (/ -4611686018427387906 -4) -> 2305843009213693953/2) ((3107 . 5625) (/ -4611686018427387906 -3) -> 1537228672809129302) ((3108 . 5625) (/ -4611686018427387906 -2) -> 2305843009213693953) ((3109 . 5625) (/ -4611686018427387906 -1) -> 4611686018427387906) ((3110 . 5625) (/ -4611686018427387906 0) -> "division by zero") ((3111 . 5625) (/ -4611686018427387905 -4) -> 4611686018427387905/4) ((3112 . 5625) (/ -4611686018427387905 -3) -> 4611686018427387905/3) ((3113 . 5625) (/ -4611686018427387905 -2) -> 4611686018427387905/2) ((3114 . 5625) (/ -4611686018427387905 -1) -> 4611686018427387905) ((3115 . 5625) (/ -4611686018427387905 0) -> "division by zero") ((3116 . 5625) (/ -4611686018427387904 -4) -> 1152921504606846976) ((3117 . 5625) (/ -4611686018427387904 -3) -> 4611686018427387904/3) ((3118 . 5625) (/ -4611686018427387904 -2) -> 2305843009213693952) ((3119 . 5625) (/ -4611686018427387904 -1) -> 4611686018427387904) ((3120 . 5625) (/ -4611686018427387904 0) -> "division by zero") ((3121 . 5625) (/ -4611686018427387903 -4) -> 4611686018427387903/4) ((3122 . 5625) (/ -4611686018427387903 -3) -> 1537228672809129301) ((3123 . 5625) (/ -4611686018427387903 -2) -> 4611686018427387903/2) ((3124 . 5625) (/ -4611686018427387903 -1) -> 4611686018427387903) ((3125 . 5625) (/ -4611686018427387903 0) -> "division by zero") ((3126 . 5625) (/ -4611686018427387907 4611686018427387901) -> -4611686018427387907/4611686018427387901) ((3127 . 5625) (/ -4611686018427387907 4611686018427387902) -> -4611686018427387907/4611686018427387902) ((3128 . 5625) (/ -4611686018427387907 4611686018427387903) -> -4611686018427387907/4611686018427387903) ((3129 . 5625) (/ -4611686018427387907 4611686018427387904) -> -4611686018427387907/4611686018427387904) ((3130 . 5625) (/ -4611686018427387907 4611686018427387905) -> -4611686018427387907/4611686018427387905) ((3131 . 5625) (/ -4611686018427387906 4611686018427387901) -> -4611686018427387906/4611686018427387901) ((3132 . 5625) (/ -4611686018427387906 4611686018427387902) -> -2305843009213693953/2305843009213693951) ((3133 . 5625) (/ -4611686018427387906 4611686018427387903) -> -1537228672809129302/1537228672809129301) ((3134 . 5625) (/ -4611686018427387906 4611686018427387904) -> -2305843009213693953/2305843009213693952) ((3135 . 5625) (/ -4611686018427387906 4611686018427387905) -> -4611686018427387906/4611686018427387905) ((3136 . 5625) (/ -4611686018427387905 4611686018427387901) -> -4611686018427387905/4611686018427387901) ((3137 . 5625) (/ -4611686018427387905 4611686018427387902) -> -4611686018427387905/4611686018427387902) ((3138 . 5625) (/ -4611686018427387905 4611686018427387903) -> -4611686018427387905/4611686018427387903) ((3139 . 5625) (/ -4611686018427387905 4611686018427387904) -> -4611686018427387905/4611686018427387904) ((3140 . 5625) (/ -4611686018427387905 4611686018427387905) -> -1) ((3141 . 5625) (/ -4611686018427387904 4611686018427387901) -> -4611686018427387904/4611686018427387901) ((3142 . 5625) (/ -4611686018427387904 4611686018427387902) -> -2305843009213693952/2305843009213693951) ((3143 . 5625) (/ -4611686018427387904 4611686018427387903) -> -4611686018427387904/4611686018427387903) ((3144 . 5625) (/ -4611686018427387904 4611686018427387904) -> -1) ((3145 . 5625) (/ -4611686018427387904 4611686018427387905) -> -4611686018427387904/4611686018427387905) ((3146 . 5625) (/ -4611686018427387903 4611686018427387901) -> -4611686018427387903/4611686018427387901) ((3147 . 5625) (/ -4611686018427387903 4611686018427387902) -> -4611686018427387903/4611686018427387902) ((3148 . 5625) (/ -4611686018427387903 4611686018427387903) -> -1) ((3149 . 5625) (/ -4611686018427387903 4611686018427387904) -> -4611686018427387903/4611686018427387904) ((3150 . 5625) (/ -4611686018427387903 4611686018427387905) -> -4611686018427387903/4611686018427387905) ((3151 . 5625) (/ -4611686018427387907 -4611686018427387906) -> 4611686018427387907/4611686018427387906) ((3152 . 5625) (/ -4611686018427387907 -4611686018427387905) -> 4611686018427387907/4611686018427387905) ((3153 . 5625) (/ -4611686018427387907 -4611686018427387904) -> 4611686018427387907/4611686018427387904) ((3154 . 5625) (/ -4611686018427387907 -4611686018427387903) -> 4611686018427387907/4611686018427387903) ((3155 . 5625) (/ -4611686018427387907 -4611686018427387902) -> 4611686018427387907/4611686018427387902) ((3156 . 5625) (/ -4611686018427387906 -4611686018427387906) -> 1) ((3157 . 5625) (/ -4611686018427387906 -4611686018427387905) -> 4611686018427387906/4611686018427387905) ((3158 . 5625) (/ -4611686018427387906 -4611686018427387904) -> 2305843009213693953/2305843009213693952) ((3159 . 5625) (/ -4611686018427387906 -4611686018427387903) -> 1537228672809129302/1537228672809129301) ((3160 . 5625) (/ -4611686018427387906 -4611686018427387902) -> 2305843009213693953/2305843009213693951) ((3161 . 5625) (/ -4611686018427387905 -4611686018427387906) -> 4611686018427387905/4611686018427387906) ((3162 . 5625) (/ -4611686018427387905 -4611686018427387905) -> 1) ((3163 . 5625) (/ -4611686018427387905 -4611686018427387904) -> 4611686018427387905/4611686018427387904) ((3164 . 5625) (/ -4611686018427387905 -4611686018427387903) -> 4611686018427387905/4611686018427387903) ((3165 . 5625) (/ -4611686018427387905 -4611686018427387902) -> 4611686018427387905/4611686018427387902) ((3166 . 5625) (/ -4611686018427387904 -4611686018427387906) -> 2305843009213693952/2305843009213693953) ((3167 . 5625) (/ -4611686018427387904 -4611686018427387905) -> 4611686018427387904/4611686018427387905) ((3168 . 5625) (/ -4611686018427387904 -4611686018427387904) -> 1) ((3169 . 5625) (/ -4611686018427387904 -4611686018427387903) -> 4611686018427387904/4611686018427387903) ((3170 . 5625) (/ -4611686018427387904 -4611686018427387902) -> 2305843009213693952/2305843009213693951) ((3171 . 5625) (/ -4611686018427387903 -4611686018427387906) -> 1537228672809129301/1537228672809129302) ((3172 . 5625) (/ -4611686018427387903 -4611686018427387905) -> 4611686018427387903/4611686018427387905) ((3173 . 5625) (/ -4611686018427387903 -4611686018427387904) -> 4611686018427387903/4611686018427387904) ((3174 . 5625) (/ -4611686018427387903 -4611686018427387903) -> 1) ((3175 . 5625) (/ -4611686018427387903 -4611686018427387902) -> 4611686018427387903/4611686018427387902) ((3176 . 5625) (/ -4611686018427387907 4611686018427387902) -> -4611686018427387907/4611686018427387902) ((3177 . 5625) (/ -4611686018427387907 4611686018427387903) -> -4611686018427387907/4611686018427387903) ((3178 . 5625) (/ -4611686018427387907 4611686018427387904) -> -4611686018427387907/4611686018427387904) ((3179 . 5625) (/ -4611686018427387907 4611686018427387905) -> -4611686018427387907/4611686018427387905) ((3180 . 5625) (/ -4611686018427387907 4611686018427387906) -> -4611686018427387907/4611686018427387906) ((3181 . 5625) (/ -4611686018427387906 4611686018427387902) -> -2305843009213693953/2305843009213693951) ((3182 . 5625) (/ -4611686018427387906 4611686018427387903) -> -1537228672809129302/1537228672809129301) ((3183 . 5625) (/ -4611686018427387906 4611686018427387904) -> -2305843009213693953/2305843009213693952) ((3184 . 5625) (/ -4611686018427387906 4611686018427387905) -> -4611686018427387906/4611686018427387905) ((3185 . 5625) (/ -4611686018427387906 4611686018427387906) -> -1) ((3186 . 5625) (/ -4611686018427387905 4611686018427387902) -> -4611686018427387905/4611686018427387902) ((3187 . 5625) (/ -4611686018427387905 4611686018427387903) -> -4611686018427387905/4611686018427387903) ((3188 . 5625) (/ -4611686018427387905 4611686018427387904) -> -4611686018427387905/4611686018427387904) ((3189 . 5625) (/ -4611686018427387905 4611686018427387905) -> -1) ((3190 . 5625) (/ -4611686018427387905 4611686018427387906) -> -4611686018427387905/4611686018427387906) ((3191 . 5625) (/ -4611686018427387904 4611686018427387902) -> -2305843009213693952/2305843009213693951) ((3192 . 5625) (/ -4611686018427387904 4611686018427387903) -> -4611686018427387904/4611686018427387903) ((3193 . 5625) (/ -4611686018427387904 4611686018427387904) -> -1) ((3194 . 5625) (/ -4611686018427387904 4611686018427387905) -> -4611686018427387904/4611686018427387905) ((3195 . 5625) (/ -4611686018427387904 4611686018427387906) -> -2305843009213693952/2305843009213693953) ((3196 . 5625) (/ -4611686018427387903 4611686018427387902) -> -4611686018427387903/4611686018427387902) ((3197 . 5625) (/ -4611686018427387903 4611686018427387903) -> -1) ((3198 . 5625) (/ -4611686018427387903 4611686018427387904) -> -4611686018427387903/4611686018427387904) ((3199 . 5625) (/ -4611686018427387903 4611686018427387905) -> -4611686018427387903/4611686018427387905) ((3200 . 5625) (/ -4611686018427387903 4611686018427387906) -> -1537228672809129301/1537228672809129302) ((3201 . 5625) (/ -4611686018427387907 -4611686018427387907) -> 1) ((3202 . 5625) (/ -4611686018427387907 -4611686018427387906) -> 4611686018427387907/4611686018427387906) ((3203 . 5625) (/ -4611686018427387907 -4611686018427387905) -> 4611686018427387907/4611686018427387905) ((3204 . 5625) (/ -4611686018427387907 -4611686018427387904) -> 4611686018427387907/4611686018427387904) ((3205 . 5625) (/ -4611686018427387907 -4611686018427387903) -> 4611686018427387907/4611686018427387903) ((3206 . 5625) (/ -4611686018427387906 -4611686018427387907) -> 4611686018427387906/4611686018427387907) ((3207 . 5625) (/ -4611686018427387906 -4611686018427387906) -> 1) ((3208 . 5625) (/ -4611686018427387906 -4611686018427387905) -> 4611686018427387906/4611686018427387905) ((3209 . 5625) (/ -4611686018427387906 -4611686018427387904) -> 2305843009213693953/2305843009213693952) ((3210 . 5625) (/ -4611686018427387906 -4611686018427387903) -> 1537228672809129302/1537228672809129301) ((3211 . 5625) (/ -4611686018427387905 -4611686018427387907) -> 4611686018427387905/4611686018427387907) ((3212 . 5625) (/ -4611686018427387905 -4611686018427387906) -> 4611686018427387905/4611686018427387906) ((3213 . 5625) (/ -4611686018427387905 -4611686018427387905) -> 1) ((3214 . 5625) (/ -4611686018427387905 -4611686018427387904) -> 4611686018427387905/4611686018427387904) ((3215 . 5625) (/ -4611686018427387905 -4611686018427387903) -> 4611686018427387905/4611686018427387903) ((3216 . 5625) (/ -4611686018427387904 -4611686018427387907) -> 4611686018427387904/4611686018427387907) ((3217 . 5625) (/ -4611686018427387904 -4611686018427387906) -> 2305843009213693952/2305843009213693953) ((3218 . 5625) (/ -4611686018427387904 -4611686018427387905) -> 4611686018427387904/4611686018427387905) ((3219 . 5625) (/ -4611686018427387904 -4611686018427387904) -> 1) ((3220 . 5625) (/ -4611686018427387904 -4611686018427387903) -> 4611686018427387904/4611686018427387903) ((3221 . 5625) (/ -4611686018427387903 -4611686018427387907) -> 4611686018427387903/4611686018427387907) ((3222 . 5625) (/ -4611686018427387903 -4611686018427387906) -> 1537228672809129301/1537228672809129302) ((3223 . 5625) (/ -4611686018427387903 -4611686018427387905) -> 4611686018427387903/4611686018427387905) ((3224 . 5625) (/ -4611686018427387903 -4611686018427387904) -> 4611686018427387903/4611686018427387904) ((3225 . 5625) (/ -4611686018427387903 -4611686018427387903) -> 1) ((3226 . 5625) (/ -4611686018427387907 1103515243) -> -4611686018427387907/1103515243) ((3227 . 5625) (/ -4611686018427387907 1103515244) -> -4611686018427387907/1103515244) ((3228 . 5625) (/ -4611686018427387907 1103515245) -> -658812288346769701/157645035) ((3229 . 5625) (/ -4611686018427387907 1103515246) -> -4611686018427387907/1103515246) ((3230 . 5625) (/ -4611686018427387907 1103515247) -> -4611686018427387907/1103515247) ((3231 . 5625) (/ -4611686018427387906 1103515243) -> -4611686018427387906/1103515243) ((3232 . 5625) (/ -4611686018427387906 1103515244) -> -2305843009213693953/551757622) ((3233 . 5625) (/ -4611686018427387906 1103515245) -> -1537228672809129302/367838415) ((3234 . 5625) (/ -4611686018427387906 1103515246) -> -2305843009213693953/551757623) ((3235 . 5625) (/ -4611686018427387906 1103515247) -> -4611686018427387906/1103515247) ((3236 . 5625) (/ -4611686018427387905 1103515243) -> -4611686018427387905/1103515243) ((3237 . 5625) (/ -4611686018427387905 1103515244) -> -4611686018427387905/1103515244) ((3238 . 5625) (/ -4611686018427387905 1103515245) -> -922337203685477581/220703049) ((3239 . 5625) (/ -4611686018427387905 1103515246) -> -4611686018427387905/1103515246) ((3240 . 5625) (/ -4611686018427387905 1103515247) -> -4611686018427387905/1103515247) ((3241 . 5625) (/ -4611686018427387904 1103515243) -> -4611686018427387904/1103515243) ((3242 . 5625) (/ -4611686018427387904 1103515244) -> -1152921504606846976/275878811) ((3243 . 5625) (/ -4611686018427387904 1103515245) -> -4611686018427387904/1103515245) ((3244 . 5625) (/ -4611686018427387904 1103515246) -> -2305843009213693952/551757623) ((3245 . 5625) (/ -4611686018427387904 1103515247) -> -4611686018427387904/1103515247) ((3246 . 5625) (/ -4611686018427387903 1103515243) -> -4611686018427387903/1103515243) ((3247 . 5625) (/ -4611686018427387903 1103515244) -> -4611686018427387903/1103515244) ((3248 . 5625) (/ -4611686018427387903 1103515245) -> -1537228672809129301/367838415) ((3249 . 5625) (/ -4611686018427387903 1103515246) -> -4611686018427387903/1103515246) ((3250 . 5625) (/ -4611686018427387903 1103515247) -> -4611686018427387903/1103515247) ((3251 . 5625) (/ -4611686018427387907 631629063) -> -4611686018427387907/631629063) ((3252 . 5625) (/ -4611686018427387907 631629064) -> -4611686018427387907/631629064) ((3253 . 5625) (/ -4611686018427387907 631629065) -> -4611686018427387907/631629065) ((3254 . 5625) (/ -4611686018427387907 631629066) -> -4611686018427387907/631629066) ((3255 . 5625) (/ -4611686018427387907 631629067) -> -4611686018427387907/631629067) ((3256 . 5625) (/ -4611686018427387906 631629063) -> -1537228672809129302/210543021) ((3257 . 5625) (/ -4611686018427387906 631629064) -> -2305843009213693953/315814532) ((3258 . 5625) (/ -4611686018427387906 631629065) -> -4611686018427387906/631629065) ((3259 . 5625) (/ -4611686018427387906 631629066) -> -768614336404564651/105271511) ((3260 . 5625) (/ -4611686018427387906 631629067) -> -4611686018427387906/631629067) ((3261 . 5625) (/ -4611686018427387905 631629063) -> -4611686018427387905/631629063) ((3262 . 5625) (/ -4611686018427387905 631629064) -> -4611686018427387905/631629064) ((3263 . 5625) (/ -4611686018427387905 631629065) -> -922337203685477581/126325813) ((3264 . 5625) (/ -4611686018427387905 631629066) -> -4611686018427387905/631629066) ((3265 . 5625) (/ -4611686018427387905 631629067) -> -4611686018427387905/631629067) ((3266 . 5625) (/ -4611686018427387904 631629063) -> -4611686018427387904/631629063) ((3267 . 5625) (/ -4611686018427387904 631629064) -> -576460752303423488/78953633) ((3268 . 5625) (/ -4611686018427387904 631629065) -> -4611686018427387904/631629065) ((3269 . 5625) (/ -4611686018427387904 631629066) -> -2305843009213693952/315814533) ((3270 . 5625) (/ -4611686018427387904 631629067) -> -4611686018427387904/631629067) ((3271 . 5625) (/ -4611686018427387903 631629063) -> -1537228672809129301/210543021) ((3272 . 5625) (/ -4611686018427387903 631629064) -> -4611686018427387903/631629064) ((3273 . 5625) (/ -4611686018427387903 631629065) -> -4611686018427387903/631629065) ((3274 . 5625) (/ -4611686018427387903 631629066) -> -1537228672809129301/210543022) ((3275 . 5625) (/ -4611686018427387903 631629067) -> -4611686018427387903/631629067) ((3276 . 5625) (/ -4611686018427387907 9007199254740990) -> -4611686018427387907/9007199254740990) ((3277 . 5625) (/ -4611686018427387907 9007199254740991) -> -4611686018427387907/9007199254740991) ((3278 . 5625) (/ -4611686018427387907 9007199254740992) -> -4611686018427387907/9007199254740992) ((3279 . 5625) (/ -4611686018427387907 9007199254740993) -> -4611686018427387907/9007199254740993) ((3280 . 5625) (/ -4611686018427387907 9007199254740994) -> -4611686018427387907/9007199254740994) ((3281 . 5625) (/ -4611686018427387906 9007199254740990) -> -768614336404564651/1501199875790165) ((3282 . 5625) (/ -4611686018427387906 9007199254740991) -> -4611686018427387906/9007199254740991) ((3283 . 5625) (/ -4611686018427387906 9007199254740992) -> -2305843009213693953/4503599627370496) ((3284 . 5625) (/ -4611686018427387906 9007199254740993) -> -1537228672809129302/3002399751580331) ((3285 . 5625) (/ -4611686018427387906 9007199254740994) -> -2305843009213693953/4503599627370497) ((3286 . 5625) (/ -4611686018427387905 9007199254740990) -> -922337203685477581/1801439850948198) ((3287 . 5625) (/ -4611686018427387905 9007199254740991) -> -4611686018427387905/9007199254740991) ((3288 . 5625) (/ -4611686018427387905 9007199254740992) -> -4611686018427387905/9007199254740992) ((3289 . 5625) (/ -4611686018427387905 9007199254740993) -> -4611686018427387905/9007199254740993) ((3290 . 5625) (/ -4611686018427387905 9007199254740994) -> -4611686018427387905/9007199254740994) ((3291 . 5625) (/ -4611686018427387904 9007199254740990) -> -2305843009213693952/4503599627370495) ((3292 . 5625) (/ -4611686018427387904 9007199254740991) -> -4611686018427387904/9007199254740991) ((3293 . 5625) (/ -4611686018427387904 9007199254740992) -> -512) ((3294 . 5625) (/ -4611686018427387904 9007199254740993) -> -4611686018427387904/9007199254740993) ((3295 . 5625) (/ -4611686018427387904 9007199254740994) -> -2305843009213693952/4503599627370497) ((3296 . 5625) (/ -4611686018427387903 9007199254740990) -> -1537228672809129301/3002399751580330) ((3297 . 5625) (/ -4611686018427387903 9007199254740991) -> -4611686018427387903/9007199254740991) ((3298 . 5625) (/ -4611686018427387903 9007199254740992) -> -4611686018427387903/9007199254740992) ((3299 . 5625) (/ -4611686018427387903 9007199254740993) -> -1537228672809129301/3002399751580331) ((3300 . 5625) (/ -4611686018427387903 9007199254740994) -> -4611686018427387903/9007199254740994) ((3301 . 5625) (/ -4611686018427387907 -9007199254740994) -> 4611686018427387907/9007199254740994) ((3302 . 5625) (/ -4611686018427387907 -9007199254740993) -> 4611686018427387907/9007199254740993) ((3303 . 5625) (/ -4611686018427387907 -9007199254740992) -> 4611686018427387907/9007199254740992) ((3304 . 5625) (/ -4611686018427387907 -9007199254740991) -> 4611686018427387907/9007199254740991) ((3305 . 5625) (/ -4611686018427387907 -9007199254740990) -> 4611686018427387907/9007199254740990) ((3306 . 5625) (/ -4611686018427387906 -9007199254740994) -> 2305843009213693953/4503599627370497) ((3307 . 5625) (/ -4611686018427387906 -9007199254740993) -> 1537228672809129302/3002399751580331) ((3308 . 5625) (/ -4611686018427387906 -9007199254740992) -> 2305843009213693953/4503599627370496) ((3309 . 5625) (/ -4611686018427387906 -9007199254740991) -> 4611686018427387906/9007199254740991) ((3310 . 5625) (/ -4611686018427387906 -9007199254740990) -> 768614336404564651/1501199875790165) ((3311 . 5625) (/ -4611686018427387905 -9007199254740994) -> 4611686018427387905/9007199254740994) ((3312 . 5625) (/ -4611686018427387905 -9007199254740993) -> 4611686018427387905/9007199254740993) ((3313 . 5625) (/ -4611686018427387905 -9007199254740992) -> 4611686018427387905/9007199254740992) ((3314 . 5625) (/ -4611686018427387905 -9007199254740991) -> 4611686018427387905/9007199254740991) ((3315 . 5625) (/ -4611686018427387905 -9007199254740990) -> 922337203685477581/1801439850948198) ((3316 . 5625) (/ -4611686018427387904 -9007199254740994) -> 2305843009213693952/4503599627370497) ((3317 . 5625) (/ -4611686018427387904 -9007199254740993) -> 4611686018427387904/9007199254740993) ((3318 . 5625) (/ -4611686018427387904 -9007199254740992) -> 512) ((3319 . 5625) (/ -4611686018427387904 -9007199254740991) -> 4611686018427387904/9007199254740991) ((3320 . 5625) (/ -4611686018427387904 -9007199254740990) -> 2305843009213693952/4503599627370495) ((3321 . 5625) (/ -4611686018427387903 -9007199254740994) -> 4611686018427387903/9007199254740994) ((3322 . 5625) (/ -4611686018427387903 -9007199254740993) -> 1537228672809129301/3002399751580331) ((3323 . 5625) (/ -4611686018427387903 -9007199254740992) -> 4611686018427387903/9007199254740992) ((3324 . 5625) (/ -4611686018427387903 -9007199254740991) -> 4611686018427387903/9007199254740991) ((3325 . 5625) (/ -4611686018427387903 -9007199254740990) -> 1537228672809129301/3002399751580330) ((3326 . 5625) (/ -4611686018427387907 12343) -> -4611686018427387907/12343) ((3327 . 5625) (/ -4611686018427387907 12344) -> -4611686018427387907/12344) ((3328 . 5625) (/ -4611686018427387907 12345) -> -4611686018427387907/12345) ((3329 . 5625) (/ -4611686018427387907 12346) -> -4611686018427387907/12346) ((3330 . 5625) (/ -4611686018427387907 12347) -> -4611686018427387907/12347) ((3331 . 5625) (/ -4611686018427387906 12343) -> -4611686018427387906/12343) ((3332 . 5625) (/ -4611686018427387906 12344) -> -2305843009213693953/6172) ((3333 . 5625) (/ -4611686018427387906 12345) -> -1537228672809129302/4115) ((3334 . 5625) (/ -4611686018427387906 12346) -> -2305843009213693953/6173) ((3335 . 5625) (/ -4611686018427387906 12347) -> -4611686018427387906/12347) ((3336 . 5625) (/ -4611686018427387905 12343) -> -4611686018427387905/12343) ((3337 . 5625) (/ -4611686018427387905 12344) -> -4611686018427387905/12344) ((3338 . 5625) (/ -4611686018427387905 12345) -> -922337203685477581/2469) ((3339 . 5625) (/ -4611686018427387905 12346) -> -4611686018427387905/12346) ((3340 . 5625) (/ -4611686018427387905 12347) -> -4611686018427387905/12347) ((3341 . 5625) (/ -4611686018427387904 12343) -> -4611686018427387904/12343) ((3342 . 5625) (/ -4611686018427387904 12344) -> -576460752303423488/1543) ((3343 . 5625) (/ -4611686018427387904 12345) -> -4611686018427387904/12345) ((3344 . 5625) (/ -4611686018427387904 12346) -> -2305843009213693952/6173) ((3345 . 5625) (/ -4611686018427387904 12347) -> -4611686018427387904/12347) ((3346 . 5625) (/ -4611686018427387903 12343) -> -4611686018427387903/12343) ((3347 . 5625) (/ -4611686018427387903 12344) -> -4611686018427387903/12344) ((3348 . 5625) (/ -4611686018427387903 12345) -> -1537228672809129301/4115) ((3349 . 5625) (/ -4611686018427387903 12346) -> -4611686018427387903/12346) ((3350 . 5625) (/ -4611686018427387903 12347) -> -4611686018427387903/12347) ((3351 . 5625) (/ -4611686018427387907 4294967294) -> -4611686018427387907/4294967294) ((3352 . 5625) (/ -4611686018427387907 4294967295) -> -4611686018427387907/4294967295) ((3353 . 5625) (/ -4611686018427387907 4294967296) -> -4611686018427387907/4294967296) ((3354 . 5625) (/ -4611686018427387907 4294967297) -> -4611686018427387907/4294967297) ((3355 . 5625) (/ -4611686018427387907 4294967298) -> -4611686018427387907/4294967298) ((3356 . 5625) (/ -4611686018427387906 4294967294) -> -2305843009213693953/2147483647) ((3357 . 5625) (/ -4611686018427387906 4294967295) -> -1537228672809129302/1431655765) ((3358 . 5625) (/ -4611686018427387906 4294967296) -> -2305843009213693953/2147483648) ((3359 . 5625) (/ -4611686018427387906 4294967297) -> -4611686018427387906/4294967297) ((3360 . 5625) (/ -4611686018427387906 4294967298) -> -768614336404564651/715827883) ((3361 . 5625) (/ -4611686018427387905 4294967294) -> -4611686018427387905/4294967294) ((3362 . 5625) (/ -4611686018427387905 4294967295) -> -922337203685477581/858993459) ((3363 . 5625) (/ -4611686018427387905 4294967296) -> -4611686018427387905/4294967296) ((3364 . 5625) (/ -4611686018427387905 4294967297) -> -4611686018427387905/4294967297) ((3365 . 5625) (/ -4611686018427387905 4294967298) -> -4611686018427387905/4294967298) ((3366 . 5625) (/ -4611686018427387904 4294967294) -> -2305843009213693952/2147483647) ((3367 . 5625) (/ -4611686018427387904 4294967295) -> -4611686018427387904/4294967295) ((3368 . 5625) (/ -4611686018427387904 4294967296) -> -1073741824) ((3369 . 5625) (/ -4611686018427387904 4294967297) -> -4611686018427387904/4294967297) ((3370 . 5625) (/ -4611686018427387904 4294967298) -> -2305843009213693952/2147483649) ((3371 . 5625) (/ -4611686018427387903 4294967294) -> -2147483649/2) ((3372 . 5625) (/ -4611686018427387903 4294967295) -> -1537228672809129301/1431655765) ((3373 . 5625) (/ -4611686018427387903 4294967296) -> -4611686018427387903/4294967296) ((3374 . 5625) (/ -4611686018427387903 4294967297) -> -4611686018427387903/4294967297) ((3375 . 5625) (/ -4611686018427387903 4294967298) -> -2147483647/2) ((3376 . 5625) (/ 1103515243 -2) -> -1103515243/2) ((3377 . 5625) (/ 1103515243 -1) -> -1103515243) ((3378 . 5625) (/ 1103515243 0) -> "division by zero") ((3379 . 5625) (/ 1103515243 1) -> 1103515243) ((3380 . 5625) (/ 1103515243 2) -> 1103515243/2) ((3381 . 5625) (/ 1103515244 -2) -> -551757622) ((3382 . 5625) (/ 1103515244 -1) -> -1103515244) ((3383 . 5625) (/ 1103515244 0) -> "division by zero") ((3384 . 5625) (/ 1103515244 1) -> 1103515244) ((3385 . 5625) (/ 1103515244 2) -> 551757622) ((3386 . 5625) (/ 1103515245 -2) -> -1103515245/2) ((3387 . 5625) (/ 1103515245 -1) -> -1103515245) ((3388 . 5625) (/ 1103515245 0) -> "division by zero") ((3389 . 5625) (/ 1103515245 1) -> 1103515245) ((3390 . 5625) (/ 1103515245 2) -> 1103515245/2) ((3391 . 5625) (/ 1103515246 -2) -> -551757623) ((3392 . 5625) (/ 1103515246 -1) -> -1103515246) ((3393 . 5625) (/ 1103515246 0) -> "division by zero") ((3394 . 5625) (/ 1103515246 1) -> 1103515246) ((3395 . 5625) (/ 1103515246 2) -> 551757623) ((3396 . 5625) (/ 1103515247 -2) -> -1103515247/2) ((3397 . 5625) (/ 1103515247 -1) -> -1103515247) ((3398 . 5625) (/ 1103515247 0) -> "division by zero") ((3399 . 5625) (/ 1103515247 1) -> 1103515247) ((3400 . 5625) (/ 1103515247 2) -> 1103515247/2) ((3401 . 5625) (/ 1103515243 -1) -> -1103515243) ((3402 . 5625) (/ 1103515243 0) -> "division by zero") ((3403 . 5625) (/ 1103515243 1) -> 1103515243) ((3404 . 5625) (/ 1103515243 2) -> 1103515243/2) ((3405 . 5625) (/ 1103515243 3) -> 1103515243/3) ((3406 . 5625) (/ 1103515244 -1) -> -1103515244) ((3407 . 5625) (/ 1103515244 0) -> "division by zero") ((3408 . 5625) (/ 1103515244 1) -> 1103515244) ((3409 . 5625) (/ 1103515244 2) -> 551757622) ((3410 . 5625) (/ 1103515244 3) -> 1103515244/3) ((3411 . 5625) (/ 1103515245 -1) -> -1103515245) ((3412 . 5625) (/ 1103515245 0) -> "division by zero") ((3413 . 5625) (/ 1103515245 1) -> 1103515245) ((3414 . 5625) (/ 1103515245 2) -> 1103515245/2) ((3415 . 5625) (/ 1103515245 3) -> 367838415) ((3416 . 5625) (/ 1103515246 -1) -> -1103515246) ((3417 . 5625) (/ 1103515246 0) -> "division by zero") ((3418 . 5625) (/ 1103515246 1) -> 1103515246) ((3419 . 5625) (/ 1103515246 2) -> 551757623) ((3420 . 5625) (/ 1103515246 3) -> 1103515246/3) ((3421 . 5625) (/ 1103515247 -1) -> -1103515247) ((3422 . 5625) (/ 1103515247 0) -> "division by zero") ((3423 . 5625) (/ 1103515247 1) -> 1103515247) ((3424 . 5625) (/ 1103515247 2) -> 1103515247/2) ((3425 . 5625) (/ 1103515247 3) -> 1103515247/3) ((3426 . 5625) (/ 1103515243 -3) -> -1103515243/3) ((3427 . 5625) (/ 1103515243 -2) -> -1103515243/2) ((3428 . 5625) (/ 1103515243 -1) -> -1103515243) ((3429 . 5625) (/ 1103515243 0) -> "division by zero") ((3430 . 5625) (/ 1103515243 1) -> 1103515243) ((3431 . 5625) (/ 1103515244 -3) -> -1103515244/3) ((3432 . 5625) (/ 1103515244 -2) -> -551757622) ((3433 . 5625) (/ 1103515244 -1) -> -1103515244) ((3434 . 5625) (/ 1103515244 0) -> "division by zero") ((3435 . 5625) (/ 1103515244 1) -> 1103515244) ((3436 . 5625) (/ 1103515245 -3) -> -367838415) ((3437 . 5625) (/ 1103515245 -2) -> -1103515245/2) ((3438 . 5625) (/ 1103515245 -1) -> -1103515245) ((3439 . 5625) (/ 1103515245 0) -> "division by zero") ((3440 . 5625) (/ 1103515245 1) -> 1103515245) ((3441 . 5625) (/ 1103515246 -3) -> -1103515246/3) ((3442 . 5625) (/ 1103515246 -2) -> -551757623) ((3443 . 5625) (/ 1103515246 -1) -> -1103515246) ((3444 . 5625) (/ 1103515246 0) -> "division by zero") ((3445 . 5625) (/ 1103515246 1) -> 1103515246) ((3446 . 5625) (/ 1103515247 -3) -> -1103515247/3) ((3447 . 5625) (/ 1103515247 -2) -> -1103515247/2) ((3448 . 5625) (/ 1103515247 -1) -> -1103515247) ((3449 . 5625) (/ 1103515247 0) -> "division by zero") ((3450 . 5625) (/ 1103515247 1) -> 1103515247) ((3451 . 5625) (/ 1103515243 0) -> "division by zero") ((3452 . 5625) (/ 1103515243 1) -> 1103515243) ((3453 . 5625) (/ 1103515243 2) -> 1103515243/2) ((3454 . 5625) (/ 1103515243 3) -> 1103515243/3) ((3455 . 5625) (/ 1103515243 4) -> 1103515243/4) ((3456 . 5625) (/ 1103515244 0) -> "division by zero") ((3457 . 5625) (/ 1103515244 1) -> 1103515244) ((3458 . 5625) (/ 1103515244 2) -> 551757622) ((3459 . 5625) (/ 1103515244 3) -> 1103515244/3) ((3460 . 5625) (/ 1103515244 4) -> 275878811) ((3461 . 5625) (/ 1103515245 0) -> "division by zero") ((3462 . 5625) (/ 1103515245 1) -> 1103515245) ((3463 . 5625) (/ 1103515245 2) -> 1103515245/2) ((3464 . 5625) (/ 1103515245 3) -> 367838415) ((3465 . 5625) (/ 1103515245 4) -> 1103515245/4) ((3466 . 5625) (/ 1103515246 0) -> "division by zero") ((3467 . 5625) (/ 1103515246 1) -> 1103515246) ((3468 . 5625) (/ 1103515246 2) -> 551757623) ((3469 . 5625) (/ 1103515246 3) -> 1103515246/3) ((3470 . 5625) (/ 1103515246 4) -> 551757623/2) ((3471 . 5625) (/ 1103515247 0) -> "division by zero") ((3472 . 5625) (/ 1103515247 1) -> 1103515247) ((3473 . 5625) (/ 1103515247 2) -> 1103515247/2) ((3474 . 5625) (/ 1103515247 3) -> 1103515247/3) ((3475 . 5625) (/ 1103515247 4) -> 1103515247/4) ((3476 . 5625) (/ 1103515243 -4) -> -1103515243/4) ((3477 . 5625) (/ 1103515243 -3) -> -1103515243/3) ((3478 . 5625) (/ 1103515243 -2) -> -1103515243/2) ((3479 . 5625) (/ 1103515243 -1) -> -1103515243) ((3480 . 5625) (/ 1103515243 0) -> "division by zero") ((3481 . 5625) (/ 1103515244 -4) -> -275878811) ((3482 . 5625) (/ 1103515244 -3) -> -1103515244/3) ((3483 . 5625) (/ 1103515244 -2) -> -551757622) ((3484 . 5625) (/ 1103515244 -1) -> -1103515244) ((3485 . 5625) (/ 1103515244 0) -> "division by zero") ((3486 . 5625) (/ 1103515245 -4) -> -1103515245/4) ((3487 . 5625) (/ 1103515245 -3) -> -367838415) ((3488 . 5625) (/ 1103515245 -2) -> -1103515245/2) ((3489 . 5625) (/ 1103515245 -1) -> -1103515245) ((3490 . 5625) (/ 1103515245 0) -> "division by zero") ((3491 . 5625) (/ 1103515246 -4) -> -551757623/2) ((3492 . 5625) (/ 1103515246 -3) -> -1103515246/3) ((3493 . 5625) (/ 1103515246 -2) -> -551757623) ((3494 . 5625) (/ 1103515246 -1) -> -1103515246) ((3495 . 5625) (/ 1103515246 0) -> "division by zero") ((3496 . 5625) (/ 1103515247 -4) -> -1103515247/4) ((3497 . 5625) (/ 1103515247 -3) -> -1103515247/3) ((3498 . 5625) (/ 1103515247 -2) -> -1103515247/2) ((3499 . 5625) (/ 1103515247 -1) -> -1103515247) ((3500 . 5625) (/ 1103515247 0) -> "division by zero") ((3501 . 5625) (/ 1103515243 4611686018427387901) -> 1103515243/4611686018427387901) ((3502 . 5625) (/ 1103515243 4611686018427387902) -> 1103515243/4611686018427387902) ((3503 . 5625) (/ 1103515243 4611686018427387903) -> 1103515243/4611686018427387903) ((3504 . 5625) (/ 1103515243 4611686018427387904) -> 1103515243/4611686018427387904) ((3505 . 5625) (/ 1103515243 4611686018427387905) -> 1103515243/4611686018427387905) ((3506 . 5625) (/ 1103515244 4611686018427387901) -> 1103515244/4611686018427387901) ((3507 . 5625) (/ 1103515244 4611686018427387902) -> 551757622/2305843009213693951) ((3508 . 5625) (/ 1103515244 4611686018427387903) -> 1103515244/4611686018427387903) ((3509 . 5625) (/ 1103515244 4611686018427387904) -> 275878811/1152921504606846976) ((3510 . 5625) (/ 1103515244 4611686018427387905) -> 1103515244/4611686018427387905) ((3511 . 5625) (/ 1103515245 4611686018427387901) -> 1103515245/4611686018427387901) ((3512 . 5625) (/ 1103515245 4611686018427387902) -> 1103515245/4611686018427387902) ((3513 . 5625) (/ 1103515245 4611686018427387903) -> 367838415/1537228672809129301) ((3514 . 5625) (/ 1103515245 4611686018427387904) -> 1103515245/4611686018427387904) ((3515 . 5625) (/ 1103515245 4611686018427387905) -> 220703049/922337203685477581) ((3516 . 5625) (/ 1103515246 4611686018427387901) -> 1103515246/4611686018427387901) ((3517 . 5625) (/ 1103515246 4611686018427387902) -> 551757623/2305843009213693951) ((3518 . 5625) (/ 1103515246 4611686018427387903) -> 1103515246/4611686018427387903) ((3519 . 5625) (/ 1103515246 4611686018427387904) -> 551757623/2305843009213693952) ((3520 . 5625) (/ 1103515246 4611686018427387905) -> 1103515246/4611686018427387905) ((3521 . 5625) (/ 1103515247 4611686018427387901) -> 1103515247/4611686018427387901) ((3522 . 5625) (/ 1103515247 4611686018427387902) -> 1103515247/4611686018427387902) ((3523 . 5625) (/ 1103515247 4611686018427387903) -> 1103515247/4611686018427387903) ((3524 . 5625) (/ 1103515247 4611686018427387904) -> 1103515247/4611686018427387904) ((3525 . 5625) (/ 1103515247 4611686018427387905) -> 1103515247/4611686018427387905) ((3526 . 5625) (/ 1103515243 -4611686018427387906) -> -1103515243/4611686018427387906) ((3527 . 5625) (/ 1103515243 -4611686018427387905) -> -1103515243/4611686018427387905) ((3528 . 5625) (/ 1103515243 -4611686018427387904) -> -1103515243/4611686018427387904) ((3529 . 5625) (/ 1103515243 -4611686018427387903) -> -1103515243/4611686018427387903) ((3530 . 5625) (/ 1103515243 -4611686018427387902) -> -1103515243/4611686018427387902) ((3531 . 5625) (/ 1103515244 -4611686018427387906) -> -551757622/2305843009213693953) ((3532 . 5625) (/ 1103515244 -4611686018427387905) -> -1103515244/4611686018427387905) ((3533 . 5625) (/ 1103515244 -4611686018427387904) -> -275878811/1152921504606846976) ((3534 . 5625) (/ 1103515244 -4611686018427387903) -> -1103515244/4611686018427387903) ((3535 . 5625) (/ 1103515244 -4611686018427387902) -> -551757622/2305843009213693951) ((3536 . 5625) (/ 1103515245 -4611686018427387906) -> -367838415/1537228672809129302) ((3537 . 5625) (/ 1103515245 -4611686018427387905) -> -220703049/922337203685477581) ((3538 . 5625) (/ 1103515245 -4611686018427387904) -> -1103515245/4611686018427387904) ((3539 . 5625) (/ 1103515245 -4611686018427387903) -> -367838415/1537228672809129301) ((3540 . 5625) (/ 1103515245 -4611686018427387902) -> -1103515245/4611686018427387902) ((3541 . 5625) (/ 1103515246 -4611686018427387906) -> -551757623/2305843009213693953) ((3542 . 5625) (/ 1103515246 -4611686018427387905) -> -1103515246/4611686018427387905) ((3543 . 5625) (/ 1103515246 -4611686018427387904) -> -551757623/2305843009213693952) ((3544 . 5625) (/ 1103515246 -4611686018427387903) -> -1103515246/4611686018427387903) ((3545 . 5625) (/ 1103515246 -4611686018427387902) -> -551757623/2305843009213693951) ((3546 . 5625) (/ 1103515247 -4611686018427387906) -> -1103515247/4611686018427387906) ((3547 . 5625) (/ 1103515247 -4611686018427387905) -> -1103515247/4611686018427387905) ((3548 . 5625) (/ 1103515247 -4611686018427387904) -> -1103515247/4611686018427387904) ((3549 . 5625) (/ 1103515247 -4611686018427387903) -> -1103515247/4611686018427387903) ((3550 . 5625) (/ 1103515247 -4611686018427387902) -> -1103515247/4611686018427387902) ((3551 . 5625) (/ 1103515243 4611686018427387902) -> 1103515243/4611686018427387902) ((3552 . 5625) (/ 1103515243 4611686018427387903) -> 1103515243/4611686018427387903) ((3553 . 5625) (/ 1103515243 4611686018427387904) -> 1103515243/4611686018427387904) ((3554 . 5625) (/ 1103515243 4611686018427387905) -> 1103515243/4611686018427387905) ((3555 . 5625) (/ 1103515243 4611686018427387906) -> 1103515243/4611686018427387906) ((3556 . 5625) (/ 1103515244 4611686018427387902) -> 551757622/2305843009213693951) ((3557 . 5625) (/ 1103515244 4611686018427387903) -> 1103515244/4611686018427387903) ((3558 . 5625) (/ 1103515244 4611686018427387904) -> 275878811/1152921504606846976) ((3559 . 5625) (/ 1103515244 4611686018427387905) -> 1103515244/4611686018427387905) ((3560 . 5625) (/ 1103515244 4611686018427387906) -> 551757622/2305843009213693953) ((3561 . 5625) (/ 1103515245 4611686018427387902) -> 1103515245/4611686018427387902) ((3562 . 5625) (/ 1103515245 4611686018427387903) -> 367838415/1537228672809129301) ((3563 . 5625) (/ 1103515245 4611686018427387904) -> 1103515245/4611686018427387904) ((3564 . 5625) (/ 1103515245 4611686018427387905) -> 220703049/922337203685477581) ((3565 . 5625) (/ 1103515245 4611686018427387906) -> 367838415/1537228672809129302) ((3566 . 5625) (/ 1103515246 4611686018427387902) -> 551757623/2305843009213693951) ((3567 . 5625) (/ 1103515246 4611686018427387903) -> 1103515246/4611686018427387903) ((3568 . 5625) (/ 1103515246 4611686018427387904) -> 551757623/2305843009213693952) ((3569 . 5625) (/ 1103515246 4611686018427387905) -> 1103515246/4611686018427387905) ((3570 . 5625) (/ 1103515246 4611686018427387906) -> 551757623/2305843009213693953) ((3571 . 5625) (/ 1103515247 4611686018427387902) -> 1103515247/4611686018427387902) ((3572 . 5625) (/ 1103515247 4611686018427387903) -> 1103515247/4611686018427387903) ((3573 . 5625) (/ 1103515247 4611686018427387904) -> 1103515247/4611686018427387904) ((3574 . 5625) (/ 1103515247 4611686018427387905) -> 1103515247/4611686018427387905) ((3575 . 5625) (/ 1103515247 4611686018427387906) -> 1103515247/4611686018427387906) ((3576 . 5625) (/ 1103515243 -4611686018427387907) -> -1103515243/4611686018427387907) ((3577 . 5625) (/ 1103515243 -4611686018427387906) -> -1103515243/4611686018427387906) ((3578 . 5625) (/ 1103515243 -4611686018427387905) -> -1103515243/4611686018427387905) ((3579 . 5625) (/ 1103515243 -4611686018427387904) -> -1103515243/4611686018427387904) ((3580 . 5625) (/ 1103515243 -4611686018427387903) -> -1103515243/4611686018427387903) ((3581 . 5625) (/ 1103515244 -4611686018427387907) -> -1103515244/4611686018427387907) ((3582 . 5625) (/ 1103515244 -4611686018427387906) -> -551757622/2305843009213693953) ((3583 . 5625) (/ 1103515244 -4611686018427387905) -> -1103515244/4611686018427387905) ((3584 . 5625) (/ 1103515244 -4611686018427387904) -> -275878811/1152921504606846976) ((3585 . 5625) (/ 1103515244 -4611686018427387903) -> -1103515244/4611686018427387903) ((3586 . 5625) (/ 1103515245 -4611686018427387907) -> -157645035/658812288346769701) ((3587 . 5625) (/ 1103515245 -4611686018427387906) -> -367838415/1537228672809129302) ((3588 . 5625) (/ 1103515245 -4611686018427387905) -> -220703049/922337203685477581) ((3589 . 5625) (/ 1103515245 -4611686018427387904) -> -1103515245/4611686018427387904) ((3590 . 5625) (/ 1103515245 -4611686018427387903) -> -367838415/1537228672809129301) ((3591 . 5625) (/ 1103515246 -4611686018427387907) -> -1103515246/4611686018427387907) ((3592 . 5625) (/ 1103515246 -4611686018427387906) -> -551757623/2305843009213693953) ((3593 . 5625) (/ 1103515246 -4611686018427387905) -> -1103515246/4611686018427387905) ((3594 . 5625) (/ 1103515246 -4611686018427387904) -> -551757623/2305843009213693952) ((3595 . 5625) (/ 1103515246 -4611686018427387903) -> -1103515246/4611686018427387903) ((3596 . 5625) (/ 1103515247 -4611686018427387907) -> -1103515247/4611686018427387907) ((3597 . 5625) (/ 1103515247 -4611686018427387906) -> -1103515247/4611686018427387906) ((3598 . 5625) (/ 1103515247 -4611686018427387905) -> -1103515247/4611686018427387905) ((3599 . 5625) (/ 1103515247 -4611686018427387904) -> -1103515247/4611686018427387904) ((3600 . 5625) (/ 1103515247 -4611686018427387903) -> -1103515247/4611686018427387903) ((3601 . 5625) (/ 1103515243 1103515243) -> 1) ((3602 . 5625) (/ 1103515243 1103515244) -> 1103515243/1103515244) ((3603 . 5625) (/ 1103515243 1103515245) -> 1103515243/1103515245) ((3604 . 5625) (/ 1103515243 1103515246) -> 1103515243/1103515246) ((3605 . 5625) (/ 1103515243 1103515247) -> 1103515243/1103515247) ((3606 . 5625) (/ 1103515244 1103515243) -> 1103515244/1103515243) ((3607 . 5625) (/ 1103515244 1103515244) -> 1) ((3608 . 5625) (/ 1103515244 1103515245) -> 1103515244/1103515245) ((3609 . 5625) (/ 1103515244 1103515246) -> 551757622/551757623) ((3610 . 5625) (/ 1103515244 1103515247) -> 1103515244/1103515247) ((3611 . 5625) (/ 1103515245 1103515243) -> 1103515245/1103515243) ((3612 . 5625) (/ 1103515245 1103515244) -> 1103515245/1103515244) ((3613 . 5625) (/ 1103515245 1103515245) -> 1) ((3614 . 5625) (/ 1103515245 1103515246) -> 1103515245/1103515246) ((3615 . 5625) (/ 1103515245 1103515247) -> 1103515245/1103515247) ((3616 . 5625) (/ 1103515246 1103515243) -> 1103515246/1103515243) ((3617 . 5625) (/ 1103515246 1103515244) -> 551757623/551757622) ((3618 . 5625) (/ 1103515246 1103515245) -> 1103515246/1103515245) ((3619 . 5625) (/ 1103515246 1103515246) -> 1) ((3620 . 5625) (/ 1103515246 1103515247) -> 1103515246/1103515247) ((3621 . 5625) (/ 1103515247 1103515243) -> 1103515247/1103515243) ((3622 . 5625) (/ 1103515247 1103515244) -> 1103515247/1103515244) ((3623 . 5625) (/ 1103515247 1103515245) -> 1103515247/1103515245) ((3624 . 5625) (/ 1103515247 1103515246) -> 1103515247/1103515246) ((3625 . 5625) (/ 1103515247 1103515247) -> 1) ((3626 . 5625) (/ 1103515243 631629063) -> 1103515243/631629063) ((3627 . 5625) (/ 1103515243 631629064) -> 1103515243/631629064) ((3628 . 5625) (/ 1103515243 631629065) -> 1103515243/631629065) ((3629 . 5625) (/ 1103515243 631629066) -> 1103515243/631629066) ((3630 . 5625) (/ 1103515243 631629067) -> 1103515243/631629067) ((3631 . 5625) (/ 1103515244 631629063) -> 84885788/48586851) ((3632 . 5625) (/ 1103515244 631629064) -> 275878811/157907266) ((3633 . 5625) (/ 1103515244 631629065) -> 1103515244/631629065) ((3634 . 5625) (/ 1103515244 631629066) -> 551757622/315814533) ((3635 . 5625) (/ 1103515244 631629067) -> 1103515244/631629067) ((3636 . 5625) (/ 1103515245 631629063) -> 40870935/23393669) ((3637 . 5625) (/ 1103515245 631629064) -> 1103515245/631629064) ((3638 . 5625) (/ 1103515245 631629065) -> 220703049/126325813) ((3639 . 5625) (/ 1103515245 631629066) -> 367838415/210543022) ((3640 . 5625) (/ 1103515245 631629067) -> 1103515245/631629067) ((3641 . 5625) (/ 1103515246 631629063) -> 1103515246/631629063) ((3642 . 5625) (/ 1103515246 631629064) -> 551757623/315814532) ((3643 . 5625) (/ 1103515246 631629065) -> 1103515246/631629065) ((3644 . 5625) (/ 1103515246 631629066) -> 551757623/315814533) ((3645 . 5625) (/ 1103515246 631629067) -> 26915006/15405587) ((3646 . 5625) (/ 1103515247 631629063) -> 1103515247/631629063) ((3647 . 5625) (/ 1103515247 631629064) -> 1103515247/631629064) ((3648 . 5625) (/ 1103515247 631629065) -> 1103515247/631629065) ((3649 . 5625) (/ 1103515247 631629066) -> 1103515247/631629066) ((3650 . 5625) (/ 1103515247 631629067) -> 1103515247/631629067) ((3651 . 5625) (/ 1103515243 9007199254740990) -> 1103515243/9007199254740990) ((3652 . 5625) (/ 1103515243 9007199254740991) -> 1103515243/9007199254740991) ((3653 . 5625) (/ 1103515243 9007199254740992) -> 1103515243/9007199254740992) ((3654 . 5625) (/ 1103515243 9007199254740993) -> 1103515243/9007199254740993) ((3655 . 5625) (/ 1103515243 9007199254740994) -> 1103515243/9007199254740994) ((3656 . 5625) (/ 1103515244 9007199254740990) -> 551757622/4503599627370495) ((3657 . 5625) (/ 1103515244 9007199254740991) -> 1103515244/9007199254740991) ((3658 . 5625) (/ 1103515244 9007199254740992) -> 275878811/2251799813685248) ((3659 . 5625) (/ 1103515244 9007199254740993) -> 1103515244/9007199254740993) ((3660 . 5625) (/ 1103515244 9007199254740994) -> 551757622/4503599627370497) ((3661 . 5625) (/ 1103515245 9007199254740990) -> 73567683/600479950316066) ((3662 . 5625) (/ 1103515245 9007199254740991) -> 1103515245/9007199254740991) ((3663 . 5625) (/ 1103515245 9007199254740992) -> 1103515245/9007199254740992) ((3664 . 5625) (/ 1103515245 9007199254740993) -> 367838415/3002399751580331) ((3665 . 5625) (/ 1103515245 9007199254740994) -> 1103515245/9007199254740994) ((3666 . 5625) (/ 1103515246 9007199254740990) -> 551757623/4503599627370495) ((3667 . 5625) (/ 1103515246 9007199254740991) -> 1103515246/9007199254740991) ((3668 . 5625) (/ 1103515246 9007199254740992) -> 551757623/4503599627370496) ((3669 . 5625) (/ 1103515246 9007199254740993) -> 1103515246/9007199254740993) ((3670 . 5625) (/ 1103515246 9007199254740994) -> 551757623/4503599627370497) ((3671 . 5625) (/ 1103515247 9007199254740990) -> 1103515247/9007199254740990) ((3672 . 5625) (/ 1103515247 9007199254740991) -> 1103515247/9007199254740991) ((3673 . 5625) (/ 1103515247 9007199254740992) -> 1103515247/9007199254740992) ((3674 . 5625) (/ 1103515247 9007199254740993) -> 1103515247/9007199254740993) ((3675 . 5625) (/ 1103515247 9007199254740994) -> 1103515247/9007199254740994) ((3676 . 5625) (/ 1103515243 -9007199254740994) -> -1103515243/9007199254740994) ((3677 . 5625) (/ 1103515243 -9007199254740993) -> -1103515243/9007199254740993) ((3678 . 5625) (/ 1103515243 -9007199254740992) -> -1103515243/9007199254740992) ((3679 . 5625) (/ 1103515243 -9007199254740991) -> -1103515243/9007199254740991) ((3680 . 5625) (/ 1103515243 -9007199254740990) -> -1103515243/9007199254740990) ((3681 . 5625) (/ 1103515244 -9007199254740994) -> -551757622/4503599627370497) ((3682 . 5625) (/ 1103515244 -9007199254740993) -> -1103515244/9007199254740993) ((3683 . 5625) (/ 1103515244 -9007199254740992) -> -275878811/2251799813685248) ((3684 . 5625) (/ 1103515244 -9007199254740991) -> -1103515244/9007199254740991) ((3685 . 5625) (/ 1103515244 -9007199254740990) -> -551757622/4503599627370495) ((3686 . 5625) (/ 1103515245 -9007199254740994) -> -1103515245/9007199254740994) ((3687 . 5625) (/ 1103515245 -9007199254740993) -> -367838415/3002399751580331) ((3688 . 5625) (/ 1103515245 -9007199254740992) -> -1103515245/9007199254740992) ((3689 . 5625) (/ 1103515245 -9007199254740991) -> -1103515245/9007199254740991) ((3690 . 5625) (/ 1103515245 -9007199254740990) -> -73567683/600479950316066) ((3691 . 5625) (/ 1103515246 -9007199254740994) -> -551757623/4503599627370497) ((3692 . 5625) (/ 1103515246 -9007199254740993) -> -1103515246/9007199254740993) ((3693 . 5625) (/ 1103515246 -9007199254740992) -> -551757623/4503599627370496) ((3694 . 5625) (/ 1103515246 -9007199254740991) -> -1103515246/9007199254740991) ((3695 . 5625) (/ 1103515246 -9007199254740990) -> -551757623/4503599627370495) ((3696 . 5625) (/ 1103515247 -9007199254740994) -> -1103515247/9007199254740994) ((3697 . 5625) (/ 1103515247 -9007199254740993) -> -1103515247/9007199254740993) ((3698 . 5625) (/ 1103515247 -9007199254740992) -> -1103515247/9007199254740992) ((3699 . 5625) (/ 1103515247 -9007199254740991) -> -1103515247/9007199254740991) ((3700 . 5625) (/ 1103515247 -9007199254740990) -> -1103515247/9007199254740990) ((3701 . 5625) (/ 1103515243 12343) -> 1103515243/12343) ((3702 . 5625) (/ 1103515243 12344) -> 1103515243/12344) ((3703 . 5625) (/ 1103515243 12345) -> 1103515243/12345) ((3704 . 5625) (/ 1103515243 12346) -> 1103515243/12346) ((3705 . 5625) (/ 1103515243 12347) -> 1103515243/12347) ((3706 . 5625) (/ 1103515244 12343) -> 1103515244/12343) ((3707 . 5625) (/ 1103515244 12344) -> 275878811/3086) ((3708 . 5625) (/ 1103515244 12345) -> 1103515244/12345) ((3709 . 5625) (/ 1103515244 12346) -> 551757622/6173) ((3710 . 5625) (/ 1103515244 12347) -> 1103515244/12347) ((3711 . 5625) (/ 1103515245 12343) -> 1103515245/12343) ((3712 . 5625) (/ 1103515245 12344) -> 1103515245/12344) ((3713 . 5625) (/ 1103515245 12345) -> 73567683/823) ((3714 . 5625) (/ 1103515245 12346) -> 1103515245/12346) ((3715 . 5625) (/ 1103515245 12347) -> 1103515245/12347) ((3716 . 5625) (/ 1103515246 12343) -> 1103515246/12343) ((3717 . 5625) (/ 1103515246 12344) -> 551757623/6172) ((3718 . 5625) (/ 1103515246 12345) -> 1103515246/12345) ((3719 . 5625) (/ 1103515246 12346) -> 551757623/6173) ((3720 . 5625) (/ 1103515246 12347) -> 1103515246/12347) ((3721 . 5625) (/ 1103515247 12343) -> 1103515247/12343) ((3722 . 5625) (/ 1103515247 12344) -> 1103515247/12344) ((3723 . 5625) (/ 1103515247 12345) -> 1103515247/12345) ((3724 . 5625) (/ 1103515247 12346) -> 1103515247/12346) ((3725 . 5625) (/ 1103515247 12347) -> 1103515247/12347) ((3726 . 5625) (/ 1103515243 4294967294) -> 1103515243/4294967294) ((3727 . 5625) (/ 1103515243 4294967295) -> 1103515243/4294967295) ((3728 . 5625) (/ 1103515243 4294967296) -> 1103515243/4294967296) ((3729 . 5625) (/ 1103515243 4294967297) -> 1103515243/4294967297) ((3730 . 5625) (/ 1103515243 4294967298) -> 1103515243/4294967298) ((3731 . 5625) (/ 1103515244 4294967294) -> 551757622/2147483647) ((3732 . 5625) (/ 1103515244 4294967295) -> 1103515244/4294967295) ((3733 . 5625) (/ 1103515244 4294967296) -> 275878811/1073741824) ((3734 . 5625) (/ 1103515244 4294967297) -> 1103515244/4294967297) ((3735 . 5625) (/ 1103515244 4294967298) -> 551757622/2147483649) ((3736 . 5625) (/ 1103515245 4294967294) -> 1103515245/4294967294) ((3737 . 5625) (/ 1103515245 4294967295) -> 73567683/286331153) ((3738 . 5625) (/ 1103515245 4294967296) -> 1103515245/4294967296) ((3739 . 5625) (/ 1103515245 4294967297) -> 1103515245/4294967297) ((3740 . 5625) (/ 1103515245 4294967298) -> 367838415/1431655766) ((3741 . 5625) (/ 1103515246 4294967294) -> 551757623/2147483647) ((3742 . 5625) (/ 1103515246 4294967295) -> 1103515246/4294967295) ((3743 . 5625) (/ 1103515246 4294967296) -> 551757623/2147483648) ((3744 . 5625) (/ 1103515246 4294967297) -> 1103515246/4294967297) ((3745 . 5625) (/ 1103515246 4294967298) -> 551757623/2147483649) ((3746 . 5625) (/ 1103515247 4294967294) -> 1103515247/4294967294) ((3747 . 5625) (/ 1103515247 4294967295) -> 1103515247/4294967295) ((3748 . 5625) (/ 1103515247 4294967296) -> 1103515247/4294967296) ((3749 . 5625) (/ 1103515247 4294967297) -> 1103515247/4294967297) ((3750 . 5625) (/ 1103515247 4294967298) -> 1103515247/4294967298) ((3751 . 5625) (/ 631629063 -2) -> -631629063/2) ((3752 . 5625) (/ 631629063 -1) -> -631629063) ((3753 . 5625) (/ 631629063 0) -> "division by zero") ((3754 . 5625) (/ 631629063 1) -> 631629063) ((3755 . 5625) (/ 631629063 2) -> 631629063/2) ((3756 . 5625) (/ 631629064 -2) -> -315814532) ((3757 . 5625) (/ 631629064 -1) -> -631629064) ((3758 . 5625) (/ 631629064 0) -> "division by zero") ((3759 . 5625) (/ 631629064 1) -> 631629064) ((3760 . 5625) (/ 631629064 2) -> 315814532) ((3761 . 5625) (/ 631629065 -2) -> -631629065/2) ((3762 . 5625) (/ 631629065 -1) -> -631629065) ((3763 . 5625) (/ 631629065 0) -> "division by zero") ((3764 . 5625) (/ 631629065 1) -> 631629065) ((3765 . 5625) (/ 631629065 2) -> 631629065/2) ((3766 . 5625) (/ 631629066 -2) -> -315814533) ((3767 . 5625) (/ 631629066 -1) -> -631629066) ((3768 . 5625) (/ 631629066 0) -> "division by zero") ((3769 . 5625) (/ 631629066 1) -> 631629066) ((3770 . 5625) (/ 631629066 2) -> 315814533) ((3771 . 5625) (/ 631629067 -2) -> -631629067/2) ((3772 . 5625) (/ 631629067 -1) -> -631629067) ((3773 . 5625) (/ 631629067 0) -> "division by zero") ((3774 . 5625) (/ 631629067 1) -> 631629067) ((3775 . 5625) (/ 631629067 2) -> 631629067/2) ((3776 . 5625) (/ 631629063 -1) -> -631629063) ((3777 . 5625) (/ 631629063 0) -> "division by zero") ((3778 . 5625) (/ 631629063 1) -> 631629063) ((3779 . 5625) (/ 631629063 2) -> 631629063/2) ((3780 . 5625) (/ 631629063 3) -> 210543021) ((3781 . 5625) (/ 631629064 -1) -> -631629064) ((3782 . 5625) (/ 631629064 0) -> "division by zero") ((3783 . 5625) (/ 631629064 1) -> 631629064) ((3784 . 5625) (/ 631629064 2) -> 315814532) ((3785 . 5625) (/ 631629064 3) -> 631629064/3) ((3786 . 5625) (/ 631629065 -1) -> -631629065) ((3787 . 5625) (/ 631629065 0) -> "division by zero") ((3788 . 5625) (/ 631629065 1) -> 631629065) ((3789 . 5625) (/ 631629065 2) -> 631629065/2) ((3790 . 5625) (/ 631629065 3) -> 631629065/3) ((3791 . 5625) (/ 631629066 -1) -> -631629066) ((3792 . 5625) (/ 631629066 0) -> "division by zero") ((3793 . 5625) (/ 631629066 1) -> 631629066) ((3794 . 5625) (/ 631629066 2) -> 315814533) ((3795 . 5625) (/ 631629066 3) -> 210543022) ((3796 . 5625) (/ 631629067 -1) -> -631629067) ((3797 . 5625) (/ 631629067 0) -> "division by zero") ((3798 . 5625) (/ 631629067 1) -> 631629067) ((3799 . 5625) (/ 631629067 2) -> 631629067/2) ((3800 . 5625) (/ 631629067 3) -> 631629067/3) ((3801 . 5625) (/ 631629063 -3) -> -210543021) ((3802 . 5625) (/ 631629063 -2) -> -631629063/2) ((3803 . 5625) (/ 631629063 -1) -> -631629063) ((3804 . 5625) (/ 631629063 0) -> "division by zero") ((3805 . 5625) (/ 631629063 1) -> 631629063) ((3806 . 5625) (/ 631629064 -3) -> -631629064/3) ((3807 . 5625) (/ 631629064 -2) -> -315814532) ((3808 . 5625) (/ 631629064 -1) -> -631629064) ((3809 . 5625) (/ 631629064 0) -> "division by zero") ((3810 . 5625) (/ 631629064 1) -> 631629064) ((3811 . 5625) (/ 631629065 -3) -> -631629065/3) ((3812 . 5625) (/ 631629065 -2) -> -631629065/2) ((3813 . 5625) (/ 631629065 -1) -> -631629065) ((3814 . 5625) (/ 631629065 0) -> "division by zero") ((3815 . 5625) (/ 631629065 1) -> 631629065) ((3816 . 5625) (/ 631629066 -3) -> -210543022) ((3817 . 5625) (/ 631629066 -2) -> -315814533) ((3818 . 5625) (/ 631629066 -1) -> -631629066) ((3819 . 5625) (/ 631629066 0) -> "division by zero") ((3820 . 5625) (/ 631629066 1) -> 631629066) ((3821 . 5625) (/ 631629067 -3) -> -631629067/3) ((3822 . 5625) (/ 631629067 -2) -> -631629067/2) ((3823 . 5625) (/ 631629067 -1) -> -631629067) ((3824 . 5625) (/ 631629067 0) -> "division by zero") ((3825 . 5625) (/ 631629067 1) -> 631629067) ((3826 . 5625) (/ 631629063 0) -> "division by zero") ((3827 . 5625) (/ 631629063 1) -> 631629063) ((3828 . 5625) (/ 631629063 2) -> 631629063/2) ((3829 . 5625) (/ 631629063 3) -> 210543021) ((3830 . 5625) (/ 631629063 4) -> 631629063/4) ((3831 . 5625) (/ 631629064 0) -> "division by zero") ((3832 . 5625) (/ 631629064 1) -> 631629064) ((3833 . 5625) (/ 631629064 2) -> 315814532) ((3834 . 5625) (/ 631629064 3) -> 631629064/3) ((3835 . 5625) (/ 631629064 4) -> 157907266) ((3836 . 5625) (/ 631629065 0) -> "division by zero") ((3837 . 5625) (/ 631629065 1) -> 631629065) ((3838 . 5625) (/ 631629065 2) -> 631629065/2) ((3839 . 5625) (/ 631629065 3) -> 631629065/3) ((3840 . 5625) (/ 631629065 4) -> 631629065/4) ((3841 . 5625) (/ 631629066 0) -> "division by zero") ((3842 . 5625) (/ 631629066 1) -> 631629066) ((3843 . 5625) (/ 631629066 2) -> 315814533) ((3844 . 5625) (/ 631629066 3) -> 210543022) ((3845 . 5625) (/ 631629066 4) -> 315814533/2) ((3846 . 5625) (/ 631629067 0) -> "division by zero") ((3847 . 5625) (/ 631629067 1) -> 631629067) ((3848 . 5625) (/ 631629067 2) -> 631629067/2) ((3849 . 5625) (/ 631629067 3) -> 631629067/3) ((3850 . 5625) (/ 631629067 4) -> 631629067/4) ((3851 . 5625) (/ 631629063 -4) -> -631629063/4) ((3852 . 5625) (/ 631629063 -3) -> -210543021) ((3853 . 5625) (/ 631629063 -2) -> -631629063/2) ((3854 . 5625) (/ 631629063 -1) -> -631629063) ((3855 . 5625) (/ 631629063 0) -> "division by zero") ((3856 . 5625) (/ 631629064 -4) -> -157907266) ((3857 . 5625) (/ 631629064 -3) -> -631629064/3) ((3858 . 5625) (/ 631629064 -2) -> -315814532) ((3859 . 5625) (/ 631629064 -1) -> -631629064) ((3860 . 5625) (/ 631629064 0) -> "division by zero") ((3861 . 5625) (/ 631629065 -4) -> -631629065/4) ((3862 . 5625) (/ 631629065 -3) -> -631629065/3) ((3863 . 5625) (/ 631629065 -2) -> -631629065/2) ((3864 . 5625) (/ 631629065 -1) -> -631629065) ((3865 . 5625) (/ 631629065 0) -> "division by zero") ((3866 . 5625) (/ 631629066 -4) -> -315814533/2) ((3867 . 5625) (/ 631629066 -3) -> -210543022) ((3868 . 5625) (/ 631629066 -2) -> -315814533) ((3869 . 5625) (/ 631629066 -1) -> -631629066) ((3870 . 5625) (/ 631629066 0) -> "division by zero") ((3871 . 5625) (/ 631629067 -4) -> -631629067/4) ((3872 . 5625) (/ 631629067 -3) -> -631629067/3) ((3873 . 5625) (/ 631629067 -2) -> -631629067/2) ((3874 . 5625) (/ 631629067 -1) -> -631629067) ((3875 . 5625) (/ 631629067 0) -> "division by zero") ((3876 . 5625) (/ 631629063 4611686018427387901) -> 631629063/4611686018427387901) ((3877 . 5625) (/ 631629063 4611686018427387902) -> 631629063/4611686018427387902) ((3878 . 5625) (/ 631629063 4611686018427387903) -> 210543021/1537228672809129301) ((3879 . 5625) (/ 631629063 4611686018427387904) -> 631629063/4611686018427387904) ((3880 . 5625) (/ 631629063 4611686018427387905) -> 631629063/4611686018427387905) ((3881 . 5625) (/ 631629064 4611686018427387901) -> 631629064/4611686018427387901) ((3882 . 5625) (/ 631629064 4611686018427387902) -> 315814532/2305843009213693951) ((3883 . 5625) (/ 631629064 4611686018427387903) -> 631629064/4611686018427387903) ((3884 . 5625) (/ 631629064 4611686018427387904) -> 78953633/576460752303423488) ((3885 . 5625) (/ 631629064 4611686018427387905) -> 631629064/4611686018427387905) ((3886 . 5625) (/ 631629065 4611686018427387901) -> 631629065/4611686018427387901) ((3887 . 5625) (/ 631629065 4611686018427387902) -> 631629065/4611686018427387902) ((3888 . 5625) (/ 631629065 4611686018427387903) -> 631629065/4611686018427387903) ((3889 . 5625) (/ 631629065 4611686018427387904) -> 631629065/4611686018427387904) ((3890 . 5625) (/ 631629065 4611686018427387905) -> 126325813/922337203685477581) ((3891 . 5625) (/ 631629066 4611686018427387901) -> 631629066/4611686018427387901) ((3892 . 5625) (/ 631629066 4611686018427387902) -> 315814533/2305843009213693951) ((3893 . 5625) (/ 631629066 4611686018427387903) -> 210543022/1537228672809129301) ((3894 . 5625) (/ 631629066 4611686018427387904) -> 315814533/2305843009213693952) ((3895 . 5625) (/ 631629066 4611686018427387905) -> 631629066/4611686018427387905) ((3896 . 5625) (/ 631629067 4611686018427387901) -> 631629067/4611686018427387901) ((3897 . 5625) (/ 631629067 4611686018427387902) -> 631629067/4611686018427387902) ((3898 . 5625) (/ 631629067 4611686018427387903) -> 631629067/4611686018427387903) ((3899 . 5625) (/ 631629067 4611686018427387904) -> 631629067/4611686018427387904) ((3900 . 5625) (/ 631629067 4611686018427387905) -> 631629067/4611686018427387905) ((3901 . 5625) (/ 631629063 -4611686018427387906) -> -210543021/1537228672809129302) ((3902 . 5625) (/ 631629063 -4611686018427387905) -> -631629063/4611686018427387905) ((3903 . 5625) (/ 631629063 -4611686018427387904) -> -631629063/4611686018427387904) ((3904 . 5625) (/ 631629063 -4611686018427387903) -> -210543021/1537228672809129301) ((3905 . 5625) (/ 631629063 -4611686018427387902) -> -631629063/4611686018427387902) ((3906 . 5625) (/ 631629064 -4611686018427387906) -> -315814532/2305843009213693953) ((3907 . 5625) (/ 631629064 -4611686018427387905) -> -631629064/4611686018427387905) ((3908 . 5625) (/ 631629064 -4611686018427387904) -> -78953633/576460752303423488) ((3909 . 5625) (/ 631629064 -4611686018427387903) -> -631629064/4611686018427387903) ((3910 . 5625) (/ 631629064 -4611686018427387902) -> -315814532/2305843009213693951) ((3911 . 5625) (/ 631629065 -4611686018427387906) -> -631629065/4611686018427387906) ((3912 . 5625) (/ 631629065 -4611686018427387905) -> -126325813/922337203685477581) ((3913 . 5625) (/ 631629065 -4611686018427387904) -> -631629065/4611686018427387904) ((3914 . 5625) (/ 631629065 -4611686018427387903) -> -631629065/4611686018427387903) ((3915 . 5625) (/ 631629065 -4611686018427387902) -> -631629065/4611686018427387902) ((3916 . 5625) (/ 631629066 -4611686018427387906) -> -105271511/768614336404564651) ((3917 . 5625) (/ 631629066 -4611686018427387905) -> -631629066/4611686018427387905) ((3918 . 5625) (/ 631629066 -4611686018427387904) -> -315814533/2305843009213693952) ((3919 . 5625) (/ 631629066 -4611686018427387903) -> -210543022/1537228672809129301) ((3920 . 5625) (/ 631629066 -4611686018427387902) -> -315814533/2305843009213693951) ((3921 . 5625) (/ 631629067 -4611686018427387906) -> -631629067/4611686018427387906) ((3922 . 5625) (/ 631629067 -4611686018427387905) -> -631629067/4611686018427387905) ((3923 . 5625) (/ 631629067 -4611686018427387904) -> -631629067/4611686018427387904) ((3924 . 5625) (/ 631629067 -4611686018427387903) -> -631629067/4611686018427387903) ((3925 . 5625) (/ 631629067 -4611686018427387902) -> -631629067/4611686018427387902) ((3926 . 5625) (/ 631629063 4611686018427387902) -> 631629063/4611686018427387902) ((3927 . 5625) (/ 631629063 4611686018427387903) -> 210543021/1537228672809129301) ((3928 . 5625) (/ 631629063 4611686018427387904) -> 631629063/4611686018427387904) ((3929 . 5625) (/ 631629063 4611686018427387905) -> 631629063/4611686018427387905) ((3930 . 5625) (/ 631629063 4611686018427387906) -> 210543021/1537228672809129302) ((3931 . 5625) (/ 631629064 4611686018427387902) -> 315814532/2305843009213693951) ((3932 . 5625) (/ 631629064 4611686018427387903) -> 631629064/4611686018427387903) ((3933 . 5625) (/ 631629064 4611686018427387904) -> 78953633/576460752303423488) ((3934 . 5625) (/ 631629064 4611686018427387905) -> 631629064/4611686018427387905) ((3935 . 5625) (/ 631629064 4611686018427387906) -> 315814532/2305843009213693953) ((3936 . 5625) (/ 631629065 4611686018427387902) -> 631629065/4611686018427387902) ((3937 . 5625) (/ 631629065 4611686018427387903) -> 631629065/4611686018427387903) ((3938 . 5625) (/ 631629065 4611686018427387904) -> 631629065/4611686018427387904) ((3939 . 5625) (/ 631629065 4611686018427387905) -> 126325813/922337203685477581) ((3940 . 5625) (/ 631629065 4611686018427387906) -> 631629065/4611686018427387906) ((3941 . 5625) (/ 631629066 4611686018427387902) -> 315814533/2305843009213693951) ((3942 . 5625) (/ 631629066 4611686018427387903) -> 210543022/1537228672809129301) ((3943 . 5625) (/ 631629066 4611686018427387904) -> 315814533/2305843009213693952) ((3944 . 5625) (/ 631629066 4611686018427387905) -> 631629066/4611686018427387905) ((3945 . 5625) (/ 631629066 4611686018427387906) -> 105271511/768614336404564651) ((3946 . 5625) (/ 631629067 4611686018427387902) -> 631629067/4611686018427387902) ((3947 . 5625) (/ 631629067 4611686018427387903) -> 631629067/4611686018427387903) ((3948 . 5625) (/ 631629067 4611686018427387904) -> 631629067/4611686018427387904) ((3949 . 5625) (/ 631629067 4611686018427387905) -> 631629067/4611686018427387905) ((3950 . 5625) (/ 631629067 4611686018427387906) -> 631629067/4611686018427387906) ((3951 . 5625) (/ 631629063 -4611686018427387907) -> -631629063/4611686018427387907) ((3952 . 5625) (/ 631629063 -4611686018427387906) -> -210543021/1537228672809129302) ((3953 . 5625) (/ 631629063 -4611686018427387905) -> -631629063/4611686018427387905) ((3954 . 5625) (/ 631629063 -4611686018427387904) -> -631629063/4611686018427387904) ((3955 . 5625) (/ 631629063 -4611686018427387903) -> -210543021/1537228672809129301) ((3956 . 5625) (/ 631629064 -4611686018427387907) -> -631629064/4611686018427387907) ((3957 . 5625) (/ 631629064 -4611686018427387906) -> -315814532/2305843009213693953) ((3958 . 5625) (/ 631629064 -4611686018427387905) -> -631629064/4611686018427387905) ((3959 . 5625) (/ 631629064 -4611686018427387904) -> -78953633/576460752303423488) ((3960 . 5625) (/ 631629064 -4611686018427387903) -> -631629064/4611686018427387903) ((3961 . 5625) (/ 631629065 -4611686018427387907) -> -631629065/4611686018427387907) ((3962 . 5625) (/ 631629065 -4611686018427387906) -> -631629065/4611686018427387906) ((3963 . 5625) (/ 631629065 -4611686018427387905) -> -126325813/922337203685477581) ((3964 . 5625) (/ 631629065 -4611686018427387904) -> -631629065/4611686018427387904) ((3965 . 5625) (/ 631629065 -4611686018427387903) -> -631629065/4611686018427387903) ((3966 . 5625) (/ 631629066 -4611686018427387907) -> -631629066/4611686018427387907) ((3967 . 5625) (/ 631629066 -4611686018427387906) -> -105271511/768614336404564651) ((3968 . 5625) (/ 631629066 -4611686018427387905) -> -631629066/4611686018427387905) ((3969 . 5625) (/ 631629066 -4611686018427387904) -> -315814533/2305843009213693952) ((3970 . 5625) (/ 631629066 -4611686018427387903) -> -210543022/1537228672809129301) ((3971 . 5625) (/ 631629067 -4611686018427387907) -> -631629067/4611686018427387907) ((3972 . 5625) (/ 631629067 -4611686018427387906) -> -631629067/4611686018427387906) ((3973 . 5625) (/ 631629067 -4611686018427387905) -> -631629067/4611686018427387905) ((3974 . 5625) (/ 631629067 -4611686018427387904) -> -631629067/4611686018427387904) ((3975 . 5625) (/ 631629067 -4611686018427387903) -> -631629067/4611686018427387903) ((3976 . 5625) (/ 631629063 1103515243) -> 631629063/1103515243) ((3977 . 5625) (/ 631629063 1103515244) -> 48586851/84885788) ((3978 . 5625) (/ 631629063 1103515245) -> 23393669/40870935) ((3979 . 5625) (/ 631629063 1103515246) -> 631629063/1103515246) ((3980 . 5625) (/ 631629063 1103515247) -> 631629063/1103515247) ((3981 . 5625) (/ 631629064 1103515243) -> 631629064/1103515243) ((3982 . 5625) (/ 631629064 1103515244) -> 157907266/275878811) ((3983 . 5625) (/ 631629064 1103515245) -> 631629064/1103515245) ((3984 . 5625) (/ 631629064 1103515246) -> 315814532/551757623) ((3985 . 5625) (/ 631629064 1103515247) -> 631629064/1103515247) ((3986 . 5625) (/ 631629065 1103515243) -> 631629065/1103515243) ((3987 . 5625) (/ 631629065 1103515244) -> 631629065/1103515244) ((3988 . 5625) (/ 631629065 1103515245) -> 126325813/220703049) ((3989 . 5625) (/ 631629065 1103515246) -> 631629065/1103515246) ((3990 . 5625) (/ 631629065 1103515247) -> 631629065/1103515247) ((3991 . 5625) (/ 631629066 1103515243) -> 631629066/1103515243) ((3992 . 5625) (/ 631629066 1103515244) -> 315814533/551757622) ((3993 . 5625) (/ 631629066 1103515245) -> 210543022/367838415) ((3994 . 5625) (/ 631629066 1103515246) -> 315814533/551757623) ((3995 . 5625) (/ 631629066 1103515247) -> 631629066/1103515247) ((3996 . 5625) (/ 631629067 1103515243) -> 631629067/1103515243) ((3997 . 5625) (/ 631629067 1103515244) -> 631629067/1103515244) ((3998 . 5625) (/ 631629067 1103515245) -> 631629067/1103515245) ((3999 . 5625) (/ 631629067 1103515246) -> 15405587/26915006) ((4000 . 5625) (/ 631629067 1103515247) -> 631629067/1103515247) ((4001 . 5625) (/ 631629063 631629063) -> 1) ((4002 . 5625) (/ 631629063 631629064) -> 631629063/631629064) ((4003 . 5625) (/ 631629063 631629065) -> 631629063/631629065) ((4004 . 5625) (/ 631629063 631629066) -> 210543021/210543022) ((4005 . 5625) (/ 631629063 631629067) -> 631629063/631629067) ((4006 . 5625) (/ 631629064 631629063) -> 631629064/631629063) ((4007 . 5625) (/ 631629064 631629064) -> 1) ((4008 . 5625) (/ 631629064 631629065) -> 631629064/631629065) ((4009 . 5625) (/ 631629064 631629066) -> 315814532/315814533) ((4010 . 5625) (/ 631629064 631629067) -> 631629064/631629067) ((4011 . 5625) (/ 631629065 631629063) -> 631629065/631629063) ((4012 . 5625) (/ 631629065 631629064) -> 631629065/631629064) ((4013 . 5625) (/ 631629065 631629065) -> 1) ((4014 . 5625) (/ 631629065 631629066) -> 631629065/631629066) ((4015 . 5625) (/ 631629065 631629067) -> 631629065/631629067) ((4016 . 5625) (/ 631629066 631629063) -> 210543022/210543021) ((4017 . 5625) (/ 631629066 631629064) -> 315814533/315814532) ((4018 . 5625) (/ 631629066 631629065) -> 631629066/631629065) ((4019 . 5625) (/ 631629066 631629066) -> 1) ((4020 . 5625) (/ 631629066 631629067) -> 631629066/631629067) ((4021 . 5625) (/ 631629067 631629063) -> 631629067/631629063) ((4022 . 5625) (/ 631629067 631629064) -> 631629067/631629064) ((4023 . 5625) (/ 631629067 631629065) -> 631629067/631629065) ((4024 . 5625) (/ 631629067 631629066) -> 631629067/631629066) ((4025 . 5625) (/ 631629067 631629067) -> 1) ((4026 . 5625) (/ 631629063 9007199254740990) -> 210543021/3002399751580330) ((4027 . 5625) (/ 631629063 9007199254740991) -> 631629063/9007199254740991) ((4028 . 5625) (/ 631629063 9007199254740992) -> 631629063/9007199254740992) ((4029 . 5625) (/ 631629063 9007199254740993) -> 210543021/3002399751580331) ((4030 . 5625) (/ 631629063 9007199254740994) -> 631629063/9007199254740994) ((4031 . 5625) (/ 631629064 9007199254740990) -> 315814532/4503599627370495) ((4032 . 5625) (/ 631629064 9007199254740991) -> 631629064/9007199254740991) ((4033 . 5625) (/ 631629064 9007199254740992) -> 78953633/1125899906842624) ((4034 . 5625) (/ 631629064 9007199254740993) -> 631629064/9007199254740993) ((4035 . 5625) (/ 631629064 9007199254740994) -> 315814532/4503599627370497) ((4036 . 5625) (/ 631629065 9007199254740990) -> 126325813/1801439850948198) ((4037 . 5625) (/ 631629065 9007199254740991) -> 631629065/9007199254740991) ((4038 . 5625) (/ 631629065 9007199254740992) -> 631629065/9007199254740992) ((4039 . 5625) (/ 631629065 9007199254740993) -> 631629065/9007199254740993) ((4040 . 5625) (/ 631629065 9007199254740994) -> 631629065/9007199254740994) ((4041 . 5625) (/ 631629066 9007199254740990) -> 105271511/1501199875790165) ((4042 . 5625) (/ 631629066 9007199254740991) -> 631629066/9007199254740991) ((4043 . 5625) (/ 631629066 9007199254740992) -> 315814533/4503599627370496) ((4044 . 5625) (/ 631629066 9007199254740993) -> 210543022/3002399751580331) ((4045 . 5625) (/ 631629066 9007199254740994) -> 315814533/4503599627370497) ((4046 . 5625) (/ 631629067 9007199254740990) -> 631629067/9007199254740990) ((4047 . 5625) (/ 631629067 9007199254740991) -> 631629067/9007199254740991) ((4048 . 5625) (/ 631629067 9007199254740992) -> 631629067/9007199254740992) ((4049 . 5625) (/ 631629067 9007199254740993) -> 631629067/9007199254740993) ((4050 . 5625) (/ 631629067 9007199254740994) -> 37154651/529835250278882) ((4051 . 5625) (/ 631629063 -9007199254740994) -> -631629063/9007199254740994) ((4052 . 5625) (/ 631629063 -9007199254740993) -> -210543021/3002399751580331) ((4053 . 5625) (/ 631629063 -9007199254740992) -> -631629063/9007199254740992) ((4054 . 5625) (/ 631629063 -9007199254740991) -> -631629063/9007199254740991) ((4055 . 5625) (/ 631629063 -9007199254740990) -> -210543021/3002399751580330) ((4056 . 5625) (/ 631629064 -9007199254740994) -> -315814532/4503599627370497) ((4057 . 5625) (/ 631629064 -9007199254740993) -> -631629064/9007199254740993) ((4058 . 5625) (/ 631629064 -9007199254740992) -> -78953633/1125899906842624) ((4059 . 5625) (/ 631629064 -9007199254740991) -> -631629064/9007199254740991) ((4060 . 5625) (/ 631629064 -9007199254740990) -> -315814532/4503599627370495) ((4061 . 5625) (/ 631629065 -9007199254740994) -> -631629065/9007199254740994) ((4062 . 5625) (/ 631629065 -9007199254740993) -> -631629065/9007199254740993) ((4063 . 5625) (/ 631629065 -9007199254740992) -> -631629065/9007199254740992) ((4064 . 5625) (/ 631629065 -9007199254740991) -> -631629065/9007199254740991) ((4065 . 5625) (/ 631629065 -9007199254740990) -> -126325813/1801439850948198) ((4066 . 5625) (/ 631629066 -9007199254740994) -> -315814533/4503599627370497) ((4067 . 5625) (/ 631629066 -9007199254740993) -> -210543022/3002399751580331) ((4068 . 5625) (/ 631629066 -9007199254740992) -> -315814533/4503599627370496) ((4069 . 5625) (/ 631629066 -9007199254740991) -> -631629066/9007199254740991) ((4070 . 5625) (/ 631629066 -9007199254740990) -> -105271511/1501199875790165) ((4071 . 5625) (/ 631629067 -9007199254740994) -> -37154651/529835250278882) ((4072 . 5625) (/ 631629067 -9007199254740993) -> -631629067/9007199254740993) ((4073 . 5625) (/ 631629067 -9007199254740992) -> -631629067/9007199254740992) ((4074 . 5625) (/ 631629067 -9007199254740991) -> -631629067/9007199254740991) ((4075 . 5625) (/ 631629067 -9007199254740990) -> -631629067/9007199254740990) ((4076 . 5625) (/ 631629063 12343) -> 631629063/12343) ((4077 . 5625) (/ 631629063 12344) -> 631629063/12344) ((4078 . 5625) (/ 631629063 12345) -> 210543021/4115) ((4079 . 5625) (/ 631629063 12346) -> 631629063/12346) ((4080 . 5625) (/ 631629063 12347) -> 631629063/12347) ((4081 . 5625) (/ 631629064 12343) -> 631629064/12343) ((4082 . 5625) (/ 631629064 12344) -> 78953633/1543) ((4083 . 5625) (/ 631629064 12345) -> 631629064/12345) ((4084 . 5625) (/ 631629064 12346) -> 315814532/6173) ((4085 . 5625) (/ 631629064 12347) -> 631629064/12347) ((4086 . 5625) (/ 631629065 12343) -> 631629065/12343) ((4087 . 5625) (/ 631629065 12344) -> 631629065/12344) ((4088 . 5625) (/ 631629065 12345) -> 126325813/2469) ((4089 . 5625) (/ 631629065 12346) -> 631629065/12346) ((4090 . 5625) (/ 631629065 12347) -> 631629065/12347) ((4091 . 5625) (/ 631629066 12343) -> 631629066/12343) ((4092 . 5625) (/ 631629066 12344) -> 315814533/6172) ((4093 . 5625) (/ 631629066 12345) -> 210543022/4115) ((4094 . 5625) (/ 631629066 12346) -> 315814533/6173) ((4095 . 5625) (/ 631629066 12347) -> 631629066/12347) ((4096 . 5625) (/ 631629067 12343) -> 631629067/12343) ((4097 . 5625) (/ 631629067 12344) -> 631629067/12344) ((4098 . 5625) (/ 631629067 12345) -> 631629067/12345) ((4099 . 5625) (/ 631629067 12346) -> 631629067/12346) ((4100 . 5625) (/ 631629067 12347) -> 631629067/12347) ((4101 . 5625) (/ 631629063 4294967294) -> 631629063/4294967294) ((4102 . 5625) (/ 631629063 4294967295) -> 210543021/1431655765) ((4103 . 5625) (/ 631629063 4294967296) -> 631629063/4294967296) ((4104 . 5625) (/ 631629063 4294967297) -> 631629063/4294967297) ((4105 . 5625) (/ 631629063 4294967298) -> 210543021/1431655766) ((4106 . 5625) (/ 631629064 4294967294) -> 315814532/2147483647) ((4107 . 5625) (/ 631629064 4294967295) -> 631629064/4294967295) ((4108 . 5625) (/ 631629064 4294967296) -> 78953633/536870912) ((4109 . 5625) (/ 631629064 4294967297) -> 631629064/4294967297) ((4110 . 5625) (/ 631629064 4294967298) -> 315814532/2147483649) ((4111 . 5625) (/ 631629065 4294967294) -> 631629065/4294967294) ((4112 . 5625) (/ 631629065 4294967295) -> 126325813/858993459) ((4113 . 5625) (/ 631629065 4294967296) -> 631629065/4294967296) ((4114 . 5625) (/ 631629065 4294967297) -> 631629065/4294967297) ((4115 . 5625) (/ 631629065 4294967298) -> 631629065/4294967298) ((4116 . 5625) (/ 631629066 4294967294) -> 315814533/2147483647) ((4117 . 5625) (/ 631629066 4294967295) -> 210543022/1431655765) ((4118 . 5625) (/ 631629066 4294967296) -> 315814533/2147483648) ((4119 . 5625) (/ 631629066 4294967297) -> 631629066/4294967297) ((4120 . 5625) (/ 631629066 4294967298) -> 105271511/715827883) ((4121 . 5625) (/ 631629067 4294967294) -> 631629067/4294967294) ((4122 . 5625) (/ 631629067 4294967295) -> 37154651/252645135) ((4123 . 5625) (/ 631629067 4294967296) -> 631629067/4294967296) ((4124 . 5625) (/ 631629067 4294967297) -> 631629067/4294967297) ((4125 . 5625) (/ 631629067 4294967298) -> 631629067/4294967298) ((4126 . 5625) (/ 9007199254740990 -2) -> -4503599627370495) ((4127 . 5625) (/ 9007199254740990 -1) -> -9007199254740990) ((4128 . 5625) (/ 9007199254740990 0) -> "division by zero") ((4129 . 5625) (/ 9007199254740990 1) -> 9007199254740990) ((4130 . 5625) (/ 9007199254740990 2) -> 4503599627370495) ((4131 . 5625) (/ 9007199254740991 -2) -> -9007199254740991/2) ((4132 . 5625) (/ 9007199254740991 -1) -> -9007199254740991) ((4133 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4134 . 5625) (/ 9007199254740991 1) -> 9007199254740991) ((4135 . 5625) (/ 9007199254740991 2) -> 9007199254740991/2) ((4136 . 5625) (/ 9007199254740992 -2) -> -4503599627370496) ((4137 . 5625) (/ 9007199254740992 -1) -> -9007199254740992) ((4138 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4139 . 5625) (/ 9007199254740992 1) -> 9007199254740992) ((4140 . 5625) (/ 9007199254740992 2) -> 4503599627370496) ((4141 . 5625) (/ 9007199254740993 -2) -> -9007199254740993/2) ((4142 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4143 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4144 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4145 . 5625) (/ 9007199254740993 2) -> 9007199254740993/2) ((4146 . 5625) (/ 9007199254740994 -2) -> -4503599627370497) ((4147 . 5625) (/ 9007199254740994 -1) -> -9007199254740994) ((4148 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4149 . 5625) (/ 9007199254740994 1) -> 9007199254740994) ((4150 . 5625) (/ 9007199254740994 2) -> 4503599627370497) ((4151 . 5625) (/ 9007199254740990 -1) -> -9007199254740990) ((4152 . 5625) (/ 9007199254740990 0) -> "division by zero") ((4153 . 5625) (/ 9007199254740990 1) -> 9007199254740990) ((4154 . 5625) (/ 9007199254740990 2) -> 4503599627370495) ((4155 . 5625) (/ 9007199254740990 3) -> 3002399751580330) ((4156 . 5625) (/ 9007199254740991 -1) -> -9007199254740991) ((4157 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4158 . 5625) (/ 9007199254740991 1) -> 9007199254740991) ((4159 . 5625) (/ 9007199254740991 2) -> 9007199254740991/2) ((4160 . 5625) (/ 9007199254740991 3) -> 9007199254740991/3) ((4161 . 5625) (/ 9007199254740992 -1) -> -9007199254740992) ((4162 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4163 . 5625) (/ 9007199254740992 1) -> 9007199254740992) ((4164 . 5625) (/ 9007199254740992 2) -> 4503599627370496) ((4165 . 5625) (/ 9007199254740992 3) -> 9007199254740992/3) ((4166 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4167 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4168 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4169 . 5625) (/ 9007199254740993 2) -> 9007199254740993/2) ((4170 . 5625) (/ 9007199254740993 3) -> 3002399751580331) ((4171 . 5625) (/ 9007199254740994 -1) -> -9007199254740994) ((4172 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4173 . 5625) (/ 9007199254740994 1) -> 9007199254740994) ((4174 . 5625) (/ 9007199254740994 2) -> 4503599627370497) ((4175 . 5625) (/ 9007199254740994 3) -> 9007199254740994/3) ((4176 . 5625) (/ 9007199254740990 -3) -> -3002399751580330) ((4177 . 5625) (/ 9007199254740990 -2) -> -4503599627370495) ((4178 . 5625) (/ 9007199254740990 -1) -> -9007199254740990) ((4179 . 5625) (/ 9007199254740990 0) -> "division by zero") ((4180 . 5625) (/ 9007199254740990 1) -> 9007199254740990) ((4181 . 5625) (/ 9007199254740991 -3) -> -9007199254740991/3) ((4182 . 5625) (/ 9007199254740991 -2) -> -9007199254740991/2) ((4183 . 5625) (/ 9007199254740991 -1) -> -9007199254740991) ((4184 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4185 . 5625) (/ 9007199254740991 1) -> 9007199254740991) ((4186 . 5625) (/ 9007199254740992 -3) -> -9007199254740992/3) ((4187 . 5625) (/ 9007199254740992 -2) -> -4503599627370496) ((4188 . 5625) (/ 9007199254740992 -1) -> -9007199254740992) ((4189 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4190 . 5625) (/ 9007199254740992 1) -> 9007199254740992) ((4191 . 5625) (/ 9007199254740993 -3) -> -3002399751580331) ((4192 . 5625) (/ 9007199254740993 -2) -> -9007199254740993/2) ((4193 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4194 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4195 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4196 . 5625) (/ 9007199254740994 -3) -> -9007199254740994/3) ((4197 . 5625) (/ 9007199254740994 -2) -> -4503599627370497) ((4198 . 5625) (/ 9007199254740994 -1) -> -9007199254740994) ((4199 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4200 . 5625) (/ 9007199254740994 1) -> 9007199254740994) ((4201 . 5625) (/ 9007199254740990 0) -> "division by zero") ((4202 . 5625) (/ 9007199254740990 1) -> 9007199254740990) ((4203 . 5625) (/ 9007199254740990 2) -> 4503599627370495) ((4204 . 5625) (/ 9007199254740990 3) -> 3002399751580330) ((4205 . 5625) (/ 9007199254740990 4) -> 4503599627370495/2) ((4206 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4207 . 5625) (/ 9007199254740991 1) -> 9007199254740991) ((4208 . 5625) (/ 9007199254740991 2) -> 9007199254740991/2) ((4209 . 5625) (/ 9007199254740991 3) -> 9007199254740991/3) ((4210 . 5625) (/ 9007199254740991 4) -> 9007199254740991/4) ((4211 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4212 . 5625) (/ 9007199254740992 1) -> 9007199254740992) ((4213 . 5625) (/ 9007199254740992 2) -> 4503599627370496) ((4214 . 5625) (/ 9007199254740992 3) -> 9007199254740992/3) ((4215 . 5625) (/ 9007199254740992 4) -> 2251799813685248) ((4216 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4217 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4218 . 5625) (/ 9007199254740993 2) -> 9007199254740993/2) ((4219 . 5625) (/ 9007199254740993 3) -> 3002399751580331) ((4220 . 5625) (/ 9007199254740993 4) -> 9007199254740993/4) ((4221 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4222 . 5625) (/ 9007199254740994 1) -> 9007199254740994) ((4223 . 5625) (/ 9007199254740994 2) -> 4503599627370497) ((4224 . 5625) (/ 9007199254740994 3) -> 9007199254740994/3) ((4225 . 5625) (/ 9007199254740994 4) -> 4503599627370497/2) ((4226 . 5625) (/ 9007199254740990 -4) -> -4503599627370495/2) ((4227 . 5625) (/ 9007199254740990 -3) -> -3002399751580330) ((4228 . 5625) (/ 9007199254740990 -2) -> -4503599627370495) ((4229 . 5625) (/ 9007199254740990 -1) -> -9007199254740990) ((4230 . 5625) (/ 9007199254740990 0) -> "division by zero") ((4231 . 5625) (/ 9007199254740991 -4) -> -9007199254740991/4) ((4232 . 5625) (/ 9007199254740991 -3) -> -9007199254740991/3) ((4233 . 5625) (/ 9007199254740991 -2) -> -9007199254740991/2) ((4234 . 5625) (/ 9007199254740991 -1) -> -9007199254740991) ((4235 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4236 . 5625) (/ 9007199254740992 -4) -> -2251799813685248) ((4237 . 5625) (/ 9007199254740992 -3) -> -9007199254740992/3) ((4238 . 5625) (/ 9007199254740992 -2) -> -4503599627370496) ((4239 . 5625) (/ 9007199254740992 -1) -> -9007199254740992) ((4240 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4241 . 5625) (/ 9007199254740993 -4) -> -9007199254740993/4) ((4242 . 5625) (/ 9007199254740993 -3) -> -3002399751580331) ((4243 . 5625) (/ 9007199254740993 -2) -> -9007199254740993/2) ((4244 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4245 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4246 . 5625) (/ 9007199254740994 -4) -> -4503599627370497/2) ((4247 . 5625) (/ 9007199254740994 -3) -> -9007199254740994/3) ((4248 . 5625) (/ 9007199254740994 -2) -> -4503599627370497) ((4249 . 5625) (/ 9007199254740994 -1) -> -9007199254740994) ((4250 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4251 . 5625) (/ 9007199254740990 4611686018427387901) -> 9007199254740990/4611686018427387901) ((4252 . 5625) (/ 9007199254740990 4611686018427387902) -> 4503599627370495/2305843009213693951) ((4253 . 5625) (/ 9007199254740990 4611686018427387903) -> 3002399751580330/1537228672809129301) ((4254 . 5625) (/ 9007199254740990 4611686018427387904) -> 4503599627370495/2305843009213693952) ((4255 . 5625) (/ 9007199254740990 4611686018427387905) -> 1801439850948198/922337203685477581) ((4256 . 5625) (/ 9007199254740991 4611686018427387901) -> 9007199254740991/4611686018427387901) ((4257 . 5625) (/ 9007199254740991 4611686018427387902) -> 9007199254740991/4611686018427387902) ((4258 . 5625) (/ 9007199254740991 4611686018427387903) -> 9007199254740991/4611686018427387903) ((4259 . 5625) (/ 9007199254740991 4611686018427387904) -> 9007199254740991/4611686018427387904) ((4260 . 5625) (/ 9007199254740991 4611686018427387905) -> 9007199254740991/4611686018427387905) ((4261 . 5625) (/ 9007199254740992 4611686018427387901) -> 9007199254740992/4611686018427387901) ((4262 . 5625) (/ 9007199254740992 4611686018427387902) -> 4503599627370496/2305843009213693951) ((4263 . 5625) (/ 9007199254740992 4611686018427387903) -> 9007199254740992/4611686018427387903) ((4264 . 5625) (/ 9007199254740992 4611686018427387904) -> 1/512) ((4265 . 5625) (/ 9007199254740992 4611686018427387905) -> 9007199254740992/4611686018427387905) ((4266 . 5625) (/ 9007199254740993 4611686018427387901) -> 9007199254740993/4611686018427387901) ((4267 . 5625) (/ 9007199254740993 4611686018427387902) -> 9007199254740993/4611686018427387902) ((4268 . 5625) (/ 9007199254740993 4611686018427387903) -> 3002399751580331/1537228672809129301) ((4269 . 5625) (/ 9007199254740993 4611686018427387904) -> 9007199254740993/4611686018427387904) ((4270 . 5625) (/ 9007199254740993 4611686018427387905) -> 9007199254740993/4611686018427387905) ((4271 . 5625) (/ 9007199254740994 4611686018427387901) -> 9007199254740994/4611686018427387901) ((4272 . 5625) (/ 9007199254740994 4611686018427387902) -> 4503599627370497/2305843009213693951) ((4273 . 5625) (/ 9007199254740994 4611686018427387903) -> 9007199254740994/4611686018427387903) ((4274 . 5625) (/ 9007199254740994 4611686018427387904) -> 4503599627370497/2305843009213693952) ((4275 . 5625) (/ 9007199254740994 4611686018427387905) -> 9007199254740994/4611686018427387905) ((4276 . 5625) (/ 9007199254740990 -4611686018427387906) -> -1501199875790165/768614336404564651) ((4277 . 5625) (/ 9007199254740990 -4611686018427387905) -> -1801439850948198/922337203685477581) ((4278 . 5625) (/ 9007199254740990 -4611686018427387904) -> -4503599627370495/2305843009213693952) ((4279 . 5625) (/ 9007199254740990 -4611686018427387903) -> -3002399751580330/1537228672809129301) ((4280 . 5625) (/ 9007199254740990 -4611686018427387902) -> -4503599627370495/2305843009213693951) ((4281 . 5625) (/ 9007199254740991 -4611686018427387906) -> -9007199254740991/4611686018427387906) ((4282 . 5625) (/ 9007199254740991 -4611686018427387905) -> -9007199254740991/4611686018427387905) ((4283 . 5625) (/ 9007199254740991 -4611686018427387904) -> -9007199254740991/4611686018427387904) ((4284 . 5625) (/ 9007199254740991 -4611686018427387903) -> -9007199254740991/4611686018427387903) ((4285 . 5625) (/ 9007199254740991 -4611686018427387902) -> -9007199254740991/4611686018427387902) ((4286 . 5625) (/ 9007199254740992 -4611686018427387906) -> -4503599627370496/2305843009213693953) ((4287 . 5625) (/ 9007199254740992 -4611686018427387905) -> -9007199254740992/4611686018427387905) ((4288 . 5625) (/ 9007199254740992 -4611686018427387904) -> -1/512) ((4289 . 5625) (/ 9007199254740992 -4611686018427387903) -> -9007199254740992/4611686018427387903) ((4290 . 5625) (/ 9007199254740992 -4611686018427387902) -> -4503599627370496/2305843009213693951) ((4291 . 5625) (/ 9007199254740993 -4611686018427387906) -> -3002399751580331/1537228672809129302) ((4292 . 5625) (/ 9007199254740993 -4611686018427387905) -> -9007199254740993/4611686018427387905) ((4293 . 5625) (/ 9007199254740993 -4611686018427387904) -> -9007199254740993/4611686018427387904) ((4294 . 5625) (/ 9007199254740993 -4611686018427387903) -> -3002399751580331/1537228672809129301) ((4295 . 5625) (/ 9007199254740993 -4611686018427387902) -> -9007199254740993/4611686018427387902) ((4296 . 5625) (/ 9007199254740994 -4611686018427387906) -> -4503599627370497/2305843009213693953) ((4297 . 5625) (/ 9007199254740994 -4611686018427387905) -> -9007199254740994/4611686018427387905) ((4298 . 5625) (/ 9007199254740994 -4611686018427387904) -> -4503599627370497/2305843009213693952) ((4299 . 5625) (/ 9007199254740994 -4611686018427387903) -> -9007199254740994/4611686018427387903) ((4300 . 5625) (/ 9007199254740994 -4611686018427387902) -> -4503599627370497/2305843009213693951) ((4301 . 5625) (/ 9007199254740990 4611686018427387902) -> 4503599627370495/2305843009213693951) ((4302 . 5625) (/ 9007199254740990 4611686018427387903) -> 3002399751580330/1537228672809129301) ((4303 . 5625) (/ 9007199254740990 4611686018427387904) -> 4503599627370495/2305843009213693952) ((4304 . 5625) (/ 9007199254740990 4611686018427387905) -> 1801439850948198/922337203685477581) ((4305 . 5625) (/ 9007199254740990 4611686018427387906) -> 1501199875790165/768614336404564651) ((4306 . 5625) (/ 9007199254740991 4611686018427387902) -> 9007199254740991/4611686018427387902) ((4307 . 5625) (/ 9007199254740991 4611686018427387903) -> 9007199254740991/4611686018427387903) ((4308 . 5625) (/ 9007199254740991 4611686018427387904) -> 9007199254740991/4611686018427387904) ((4309 . 5625) (/ 9007199254740991 4611686018427387905) -> 9007199254740991/4611686018427387905) ((4310 . 5625) (/ 9007199254740991 4611686018427387906) -> 9007199254740991/4611686018427387906) ((4311 . 5625) (/ 9007199254740992 4611686018427387902) -> 4503599627370496/2305843009213693951) ((4312 . 5625) (/ 9007199254740992 4611686018427387903) -> 9007199254740992/4611686018427387903) ((4313 . 5625) (/ 9007199254740992 4611686018427387904) -> 1/512) ((4314 . 5625) (/ 9007199254740992 4611686018427387905) -> 9007199254740992/4611686018427387905) ((4315 . 5625) (/ 9007199254740992 4611686018427387906) -> 4503599627370496/2305843009213693953) ((4316 . 5625) (/ 9007199254740993 4611686018427387902) -> 9007199254740993/4611686018427387902) ((4317 . 5625) (/ 9007199254740993 4611686018427387903) -> 3002399751580331/1537228672809129301) ((4318 . 5625) (/ 9007199254740993 4611686018427387904) -> 9007199254740993/4611686018427387904) ((4319 . 5625) (/ 9007199254740993 4611686018427387905) -> 9007199254740993/4611686018427387905) ((4320 . 5625) (/ 9007199254740993 4611686018427387906) -> 3002399751580331/1537228672809129302) ((4321 . 5625) (/ 9007199254740994 4611686018427387902) -> 4503599627370497/2305843009213693951) ((4322 . 5625) (/ 9007199254740994 4611686018427387903) -> 9007199254740994/4611686018427387903) ((4323 . 5625) (/ 9007199254740994 4611686018427387904) -> 4503599627370497/2305843009213693952) ((4324 . 5625) (/ 9007199254740994 4611686018427387905) -> 9007199254740994/4611686018427387905) ((4325 . 5625) (/ 9007199254740994 4611686018427387906) -> 4503599627370497/2305843009213693953) ((4326 . 5625) (/ 9007199254740990 -4611686018427387907) -> -9007199254740990/4611686018427387907) ((4327 . 5625) (/ 9007199254740990 -4611686018427387906) -> -1501199875790165/768614336404564651) ((4328 . 5625) (/ 9007199254740990 -4611686018427387905) -> -1801439850948198/922337203685477581) ((4329 . 5625) (/ 9007199254740990 -4611686018427387904) -> -4503599627370495/2305843009213693952) ((4330 . 5625) (/ 9007199254740990 -4611686018427387903) -> -3002399751580330/1537228672809129301) ((4331 . 5625) (/ 9007199254740991 -4611686018427387907) -> -9007199254740991/4611686018427387907) ((4332 . 5625) (/ 9007199254740991 -4611686018427387906) -> -9007199254740991/4611686018427387906) ((4333 . 5625) (/ 9007199254740991 -4611686018427387905) -> -9007199254740991/4611686018427387905) ((4334 . 5625) (/ 9007199254740991 -4611686018427387904) -> -9007199254740991/4611686018427387904) ((4335 . 5625) (/ 9007199254740991 -4611686018427387903) -> -9007199254740991/4611686018427387903) ((4336 . 5625) (/ 9007199254740992 -4611686018427387907) -> -9007199254740992/4611686018427387907) ((4337 . 5625) (/ 9007199254740992 -4611686018427387906) -> -4503599627370496/2305843009213693953) ((4338 . 5625) (/ 9007199254740992 -4611686018427387905) -> -9007199254740992/4611686018427387905) ((4339 . 5625) (/ 9007199254740992 -4611686018427387904) -> -1/512) ((4340 . 5625) (/ 9007199254740992 -4611686018427387903) -> -9007199254740992/4611686018427387903) ((4341 . 5625) (/ 9007199254740993 -4611686018427387907) -> -9007199254740993/4611686018427387907) ((4342 . 5625) (/ 9007199254740993 -4611686018427387906) -> -3002399751580331/1537228672809129302) ((4343 . 5625) (/ 9007199254740993 -4611686018427387905) -> -9007199254740993/4611686018427387905) ((4344 . 5625) (/ 9007199254740993 -4611686018427387904) -> -9007199254740993/4611686018427387904) ((4345 . 5625) (/ 9007199254740993 -4611686018427387903) -> -3002399751580331/1537228672809129301) ((4346 . 5625) (/ 9007199254740994 -4611686018427387907) -> -9007199254740994/4611686018427387907) ((4347 . 5625) (/ 9007199254740994 -4611686018427387906) -> -4503599627370497/2305843009213693953) ((4348 . 5625) (/ 9007199254740994 -4611686018427387905) -> -9007199254740994/4611686018427387905) ((4349 . 5625) (/ 9007199254740994 -4611686018427387904) -> -4503599627370497/2305843009213693952) ((4350 . 5625) (/ 9007199254740994 -4611686018427387903) -> -9007199254740994/4611686018427387903) ((4351 . 5625) (/ 9007199254740990 1103515243) -> 9007199254740990/1103515243) ((4352 . 5625) (/ 9007199254740990 1103515244) -> 4503599627370495/551757622) ((4353 . 5625) (/ 9007199254740990 1103515245) -> 600479950316066/73567683) ((4354 . 5625) (/ 9007199254740990 1103515246) -> 4503599627370495/551757623) ((4355 . 5625) (/ 9007199254740990 1103515247) -> 9007199254740990/1103515247) ((4356 . 5625) (/ 9007199254740991 1103515243) -> 9007199254740991/1103515243) ((4357 . 5625) (/ 9007199254740991 1103515244) -> 9007199254740991/1103515244) ((4358 . 5625) (/ 9007199254740991 1103515245) -> 9007199254740991/1103515245) ((4359 . 5625) (/ 9007199254740991 1103515246) -> 9007199254740991/1103515246) ((4360 . 5625) (/ 9007199254740991 1103515247) -> 9007199254740991/1103515247) ((4361 . 5625) (/ 9007199254740992 1103515243) -> 9007199254740992/1103515243) ((4362 . 5625) (/ 9007199254740992 1103515244) -> 2251799813685248/275878811) ((4363 . 5625) (/ 9007199254740992 1103515245) -> 9007199254740992/1103515245) ((4364 . 5625) (/ 9007199254740992 1103515246) -> 4503599627370496/551757623) ((4365 . 5625) (/ 9007199254740992 1103515247) -> 9007199254740992/1103515247) ((4366 . 5625) (/ 9007199254740993 1103515243) -> 9007199254740993/1103515243) ((4367 . 5625) (/ 9007199254740993 1103515244) -> 9007199254740993/1103515244) ((4368 . 5625) (/ 9007199254740993 1103515245) -> 3002399751580331/367838415) ((4369 . 5625) (/ 9007199254740993 1103515246) -> 9007199254740993/1103515246) ((4370 . 5625) (/ 9007199254740993 1103515247) -> 9007199254740993/1103515247) ((4371 . 5625) (/ 9007199254740994 1103515243) -> 9007199254740994/1103515243) ((4372 . 5625) (/ 9007199254740994 1103515244) -> 4503599627370497/551757622) ((4373 . 5625) (/ 9007199254740994 1103515245) -> 9007199254740994/1103515245) ((4374 . 5625) (/ 9007199254740994 1103515246) -> 4503599627370497/551757623) ((4375 . 5625) (/ 9007199254740994 1103515247) -> 9007199254740994/1103515247) ((4376 . 5625) (/ 9007199254740990 631629063) -> 3002399751580330/210543021) ((4377 . 5625) (/ 9007199254740990 631629064) -> 4503599627370495/315814532) ((4378 . 5625) (/ 9007199254740990 631629065) -> 1801439850948198/126325813) ((4379 . 5625) (/ 9007199254740990 631629066) -> 1501199875790165/105271511) ((4380 . 5625) (/ 9007199254740990 631629067) -> 9007199254740990/631629067) ((4381 . 5625) (/ 9007199254740991 631629063) -> 9007199254740991/631629063) ((4382 . 5625) (/ 9007199254740991 631629064) -> 9007199254740991/631629064) ((4383 . 5625) (/ 9007199254740991 631629065) -> 9007199254740991/631629065) ((4384 . 5625) (/ 9007199254740991 631629066) -> 9007199254740991/631629066) ((4385 . 5625) (/ 9007199254740991 631629067) -> 9007199254740991/631629067) ((4386 . 5625) (/ 9007199254740992 631629063) -> 9007199254740992/631629063) ((4387 . 5625) (/ 9007199254740992 631629064) -> 1125899906842624/78953633) ((4388 . 5625) (/ 9007199254740992 631629065) -> 9007199254740992/631629065) ((4389 . 5625) (/ 9007199254740992 631629066) -> 4503599627370496/315814533) ((4390 . 5625) (/ 9007199254740992 631629067) -> 9007199254740992/631629067) ((4391 . 5625) (/ 9007199254740993 631629063) -> 3002399751580331/210543021) ((4392 . 5625) (/ 9007199254740993 631629064) -> 9007199254740993/631629064) ((4393 . 5625) (/ 9007199254740993 631629065) -> 9007199254740993/631629065) ((4394 . 5625) (/ 9007199254740993 631629066) -> 3002399751580331/210543022) ((4395 . 5625) (/ 9007199254740993 631629067) -> 9007199254740993/631629067) ((4396 . 5625) (/ 9007199254740994 631629063) -> 9007199254740994/631629063) ((4397 . 5625) (/ 9007199254740994 631629064) -> 4503599627370497/315814532) ((4398 . 5625) (/ 9007199254740994 631629065) -> 9007199254740994/631629065) ((4399 . 5625) (/ 9007199254740994 631629066) -> 4503599627370497/315814533) ((4400 . 5625) (/ 9007199254740994 631629067) -> 529835250278882/37154651) ((4401 . 5625) (/ 9007199254740990 9007199254740990) -> 1) ((4402 . 5625) (/ 9007199254740990 9007199254740991) -> 9007199254740990/9007199254740991) ((4403 . 5625) (/ 9007199254740990 9007199254740992) -> 4503599627370495/4503599627370496) ((4404 . 5625) (/ 9007199254740990 9007199254740993) -> 3002399751580330/3002399751580331) ((4405 . 5625) (/ 9007199254740990 9007199254740994) -> 4503599627370495/4503599627370497) ((4406 . 5625) (/ 9007199254740991 9007199254740990) -> 9007199254740991/9007199254740990) ((4407 . 5625) (/ 9007199254740991 9007199254740991) -> 1) ((4408 . 5625) (/ 9007199254740991 9007199254740992) -> 9007199254740991/9007199254740992) ((4409 . 5625) (/ 9007199254740991 9007199254740993) -> 9007199254740991/9007199254740993) ((4410 . 5625) (/ 9007199254740991 9007199254740994) -> 9007199254740991/9007199254740994) ((4411 . 5625) (/ 9007199254740992 9007199254740990) -> 4503599627370496/4503599627370495) ((4412 . 5625) (/ 9007199254740992 9007199254740991) -> 9007199254740992/9007199254740991) ((4413 . 5625) (/ 9007199254740992 9007199254740992) -> 1) ((4414 . 5625) (/ 9007199254740992 9007199254740993) -> 9007199254740992/9007199254740993) ((4415 . 5625) (/ 9007199254740992 9007199254740994) -> 4503599627370496/4503599627370497) ((4416 . 5625) (/ 9007199254740993 9007199254740990) -> 3002399751580331/3002399751580330) ((4417 . 5625) (/ 9007199254740993 9007199254740991) -> 9007199254740993/9007199254740991) ((4418 . 5625) (/ 9007199254740993 9007199254740992) -> 9007199254740993/9007199254740992) ((4419 . 5625) (/ 9007199254740993 9007199254740993) -> 1) ((4420 . 5625) (/ 9007199254740993 9007199254740994) -> 9007199254740993/9007199254740994) ((4421 . 5625) (/ 9007199254740994 9007199254740990) -> 4503599627370497/4503599627370495) ((4422 . 5625) (/ 9007199254740994 9007199254740991) -> 9007199254740994/9007199254740991) ((4423 . 5625) (/ 9007199254740994 9007199254740992) -> 4503599627370497/4503599627370496) ((4424 . 5625) (/ 9007199254740994 9007199254740993) -> 9007199254740994/9007199254740993) ((4425 . 5625) (/ 9007199254740994 9007199254740994) -> 1) ((4426 . 5625) (/ 9007199254740990 -9007199254740994) -> -4503599627370495/4503599627370497) ((4427 . 5625) (/ 9007199254740990 -9007199254740993) -> -3002399751580330/3002399751580331) ((4428 . 5625) (/ 9007199254740990 -9007199254740992) -> -4503599627370495/4503599627370496) ((4429 . 5625) (/ 9007199254740990 -9007199254740991) -> -9007199254740990/9007199254740991) ((4430 . 5625) (/ 9007199254740990 -9007199254740990) -> -1) ((4431 . 5625) (/ 9007199254740991 -9007199254740994) -> -9007199254740991/9007199254740994) ((4432 . 5625) (/ 9007199254740991 -9007199254740993) -> -9007199254740991/9007199254740993) ((4433 . 5625) (/ 9007199254740991 -9007199254740992) -> -9007199254740991/9007199254740992) ((4434 . 5625) (/ 9007199254740991 -9007199254740991) -> -1) ((4435 . 5625) (/ 9007199254740991 -9007199254740990) -> -9007199254740991/9007199254740990) ((4436 . 5625) (/ 9007199254740992 -9007199254740994) -> -4503599627370496/4503599627370497) ((4437 . 5625) (/ 9007199254740992 -9007199254740993) -> -9007199254740992/9007199254740993) ((4438 . 5625) (/ 9007199254740992 -9007199254740992) -> -1) ((4439 . 5625) (/ 9007199254740992 -9007199254740991) -> -9007199254740992/9007199254740991) ((4440 . 5625) (/ 9007199254740992 -9007199254740990) -> -4503599627370496/4503599627370495) ((4441 . 5625) (/ 9007199254740993 -9007199254740994) -> -9007199254740993/9007199254740994) ((4442 . 5625) (/ 9007199254740993 -9007199254740993) -> -1) ((4443 . 5625) (/ 9007199254740993 -9007199254740992) -> -9007199254740993/9007199254740992) ((4444 . 5625) (/ 9007199254740993 -9007199254740991) -> -9007199254740993/9007199254740991) ((4445 . 5625) (/ 9007199254740993 -9007199254740990) -> -3002399751580331/3002399751580330) ((4446 . 5625) (/ 9007199254740994 -9007199254740994) -> -1) ((4447 . 5625) (/ 9007199254740994 -9007199254740993) -> -9007199254740994/9007199254740993) ((4448 . 5625) (/ 9007199254740994 -9007199254740992) -> -4503599627370497/4503599627370496) ((4449 . 5625) (/ 9007199254740994 -9007199254740991) -> -9007199254740994/9007199254740991) ((4450 . 5625) (/ 9007199254740994 -9007199254740990) -> -4503599627370497/4503599627370495) ((4451 . 5625) (/ 9007199254740990 12343) -> 9007199254740990/12343) ((4452 . 5625) (/ 9007199254740990 12344) -> 4503599627370495/6172) ((4453 . 5625) (/ 9007199254740990 12345) -> 600479950316066/823) ((4454 . 5625) (/ 9007199254740990 12346) -> 4503599627370495/6173) ((4455 . 5625) (/ 9007199254740990 12347) -> 9007199254740990/12347) ((4456 . 5625) (/ 9007199254740991 12343) -> 9007199254740991/12343) ((4457 . 5625) (/ 9007199254740991 12344) -> 9007199254740991/12344) ((4458 . 5625) (/ 9007199254740991 12345) -> 9007199254740991/12345) ((4459 . 5625) (/ 9007199254740991 12346) -> 9007199254740991/12346) ((4460 . 5625) (/ 9007199254740991 12347) -> 9007199254740991/12347) ((4461 . 5625) (/ 9007199254740992 12343) -> 9007199254740992/12343) ((4462 . 5625) (/ 9007199254740992 12344) -> 1125899906842624/1543) ((4463 . 5625) (/ 9007199254740992 12345) -> 9007199254740992/12345) ((4464 . 5625) (/ 9007199254740992 12346) -> 4503599627370496/6173) ((4465 . 5625) (/ 9007199254740992 12347) -> 9007199254740992/12347) ((4466 . 5625) (/ 9007199254740993 12343) -> 9007199254740993/12343) ((4467 . 5625) (/ 9007199254740993 12344) -> 9007199254740993/12344) ((4468 . 5625) (/ 9007199254740993 12345) -> 3002399751580331/4115) ((4469 . 5625) (/ 9007199254740993 12346) -> 9007199254740993/12346) ((4470 . 5625) (/ 9007199254740993 12347) -> 9007199254740993/12347) ((4471 . 5625) (/ 9007199254740994 12343) -> 9007199254740994/12343) ((4472 . 5625) (/ 9007199254740994 12344) -> 4503599627370497/6172) ((4473 . 5625) (/ 9007199254740994 12345) -> 9007199254740994/12345) ((4474 . 5625) (/ 9007199254740994 12346) -> 4503599627370497/6173) ((4475 . 5625) (/ 9007199254740994 12347) -> 9007199254740994/12347) ((4476 . 5625) (/ 9007199254740990 4294967294) -> 4503599627370495/2147483647) ((4477 . 5625) (/ 9007199254740990 4294967295) -> 600479950316066/286331153) ((4478 . 5625) (/ 9007199254740990 4294967296) -> 4503599627370495/2147483648) ((4479 . 5625) (/ 9007199254740990 4294967297) -> 9007199254740990/4294967297) ((4480 . 5625) (/ 9007199254740990 4294967298) -> 1501199875790165/715827883) ((4481 . 5625) (/ 9007199254740991 4294967294) -> 9007199254740991/4294967294) ((4482 . 5625) (/ 9007199254740991 4294967295) -> 9007199254740991/4294967295) ((4483 . 5625) (/ 9007199254740991 4294967296) -> 9007199254740991/4294967296) ((4484 . 5625) (/ 9007199254740991 4294967297) -> 9007199254740991/4294967297) ((4485 . 5625) (/ 9007199254740991 4294967298) -> 9007199254740991/4294967298) ((4486 . 5625) (/ 9007199254740992 4294967294) -> 4503599627370496/2147483647) ((4487 . 5625) (/ 9007199254740992 4294967295) -> 9007199254740992/4294967295) ((4488 . 5625) (/ 9007199254740992 4294967296) -> 2097152) ((4489 . 5625) (/ 9007199254740992 4294967297) -> 9007199254740992/4294967297) ((4490 . 5625) (/ 9007199254740992 4294967298) -> 4503599627370496/2147483649) ((4491 . 5625) (/ 9007199254740993 4294967294) -> 9007199254740993/4294967294) ((4492 . 5625) (/ 9007199254740993 4294967295) -> 3002399751580331/1431655765) ((4493 . 5625) (/ 9007199254740993 4294967296) -> 9007199254740993/4294967296) ((4494 . 5625) (/ 9007199254740993 4294967297) -> 9007199254740993/4294967297) ((4495 . 5625) (/ 9007199254740993 4294967298) -> 3002399751580331/1431655766) ((4496 . 5625) (/ 9007199254740994 4294967294) -> 4503599627370497/2147483647) ((4497 . 5625) (/ 9007199254740994 4294967295) -> 529835250278882/252645135) ((4498 . 5625) (/ 9007199254740994 4294967296) -> 4503599627370497/2147483648) ((4499 . 5625) (/ 9007199254740994 4294967297) -> 9007199254740994/4294967297) ((4500 . 5625) (/ 9007199254740994 4294967298) -> 4503599627370497/2147483649) ((4501 . 5625) (/ -9007199254740994 -2) -> 4503599627370497) ((4502 . 5625) (/ -9007199254740994 -1) -> 9007199254740994) ((4503 . 5625) (/ -9007199254740994 0) -> "division by zero") ((4504 . 5625) (/ -9007199254740994 1) -> -9007199254740994) ((4505 . 5625) (/ -9007199254740994 2) -> -4503599627370497) ((4506 . 5625) (/ -9007199254740993 -2) -> 9007199254740993/2) ((4507 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4508 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4509 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4510 . 5625) (/ -9007199254740993 2) -> -9007199254740993/2) ((4511 . 5625) (/ -9007199254740992 -2) -> 4503599627370496) ((4512 . 5625) (/ -9007199254740992 -1) -> 9007199254740992) ((4513 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4514 . 5625) (/ -9007199254740992 1) -> -9007199254740992) ((4515 . 5625) (/ -9007199254740992 2) -> -4503599627370496) ((4516 . 5625) (/ -9007199254740991 -2) -> 9007199254740991/2) ((4517 . 5625) (/ -9007199254740991 -1) -> 9007199254740991) ((4518 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4519 . 5625) (/ -9007199254740991 1) -> -9007199254740991) ((4520 . 5625) (/ -9007199254740991 2) -> -9007199254740991/2) ((4521 . 5625) (/ -9007199254740990 -2) -> 4503599627370495) ((4522 . 5625) (/ -9007199254740990 -1) -> 9007199254740990) ((4523 . 5625) (/ -9007199254740990 0) -> "division by zero") ((4524 . 5625) (/ -9007199254740990 1) -> -9007199254740990) ((4525 . 5625) (/ -9007199254740990 2) -> -4503599627370495) ((4526 . 5625) (/ -9007199254740994 -1) -> 9007199254740994) ((4527 . 5625) (/ -9007199254740994 0) -> "division by zero") ((4528 . 5625) (/ -9007199254740994 1) -> -9007199254740994) ((4529 . 5625) (/ -9007199254740994 2) -> -4503599627370497) ((4530 . 5625) (/ -9007199254740994 3) -> -9007199254740994/3) ((4531 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4532 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4533 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4534 . 5625) (/ -9007199254740993 2) -> -9007199254740993/2) ((4535 . 5625) (/ -9007199254740993 3) -> -3002399751580331) ((4536 . 5625) (/ -9007199254740992 -1) -> 9007199254740992) ((4537 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4538 . 5625) (/ -9007199254740992 1) -> -9007199254740992) ((4539 . 5625) (/ -9007199254740992 2) -> -4503599627370496) ((4540 . 5625) (/ -9007199254740992 3) -> -9007199254740992/3) ((4541 . 5625) (/ -9007199254740991 -1) -> 9007199254740991) ((4542 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4543 . 5625) (/ -9007199254740991 1) -> -9007199254740991) ((4544 . 5625) (/ -9007199254740991 2) -> -9007199254740991/2) ((4545 . 5625) (/ -9007199254740991 3) -> -9007199254740991/3) ((4546 . 5625) (/ -9007199254740990 -1) -> 9007199254740990) ((4547 . 5625) (/ -9007199254740990 0) -> "division by zero") ((4548 . 5625) (/ -9007199254740990 1) -> -9007199254740990) ((4549 . 5625) (/ -9007199254740990 2) -> -4503599627370495) ((4550 . 5625) (/ -9007199254740990 3) -> -3002399751580330) ((4551 . 5625) (/ -9007199254740994 -3) -> 9007199254740994/3) ((4552 . 5625) (/ -9007199254740994 -2) -> 4503599627370497) ((4553 . 5625) (/ -9007199254740994 -1) -> 9007199254740994) ((4554 . 5625) (/ -9007199254740994 0) -> "division by zero") ((4555 . 5625) (/ -9007199254740994 1) -> -9007199254740994) ((4556 . 5625) (/ -9007199254740993 -3) -> 3002399751580331) ((4557 . 5625) (/ -9007199254740993 -2) -> 9007199254740993/2) ((4558 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4559 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4560 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4561 . 5625) (/ -9007199254740992 -3) -> 9007199254740992/3) ((4562 . 5625) (/ -9007199254740992 -2) -> 4503599627370496) ((4563 . 5625) (/ -9007199254740992 -1) -> 9007199254740992) ((4564 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4565 . 5625) (/ -9007199254740992 1) -> -9007199254740992) ((4566 . 5625) (/ -9007199254740991 -3) -> 9007199254740991/3) ((4567 . 5625) (/ -9007199254740991 -2) -> 9007199254740991/2) ((4568 . 5625) (/ -9007199254740991 -1) -> 9007199254740991) ((4569 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4570 . 5625) (/ -9007199254740991 1) -> -9007199254740991) ((4571 . 5625) (/ -9007199254740990 -3) -> 3002399751580330) ((4572 . 5625) (/ -9007199254740990 -2) -> 4503599627370495) ((4573 . 5625) (/ -9007199254740990 -1) -> 9007199254740990) ((4574 . 5625) (/ -9007199254740990 0) -> "division by zero") ((4575 . 5625) (/ -9007199254740990 1) -> -9007199254740990) ((4576 . 5625) (/ -9007199254740994 0) -> "division by zero") ((4577 . 5625) (/ -9007199254740994 1) -> -9007199254740994) ((4578 . 5625) (/ -9007199254740994 2) -> -4503599627370497) ((4579 . 5625) (/ -9007199254740994 3) -> -9007199254740994/3) ((4580 . 5625) (/ -9007199254740994 4) -> -4503599627370497/2) ((4581 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4582 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4583 . 5625) (/ -9007199254740993 2) -> -9007199254740993/2) ((4584 . 5625) (/ -9007199254740993 3) -> -3002399751580331) ((4585 . 5625) (/ -9007199254740993 4) -> -9007199254740993/4) ((4586 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4587 . 5625) (/ -9007199254740992 1) -> -9007199254740992) ((4588 . 5625) (/ -9007199254740992 2) -> -4503599627370496) ((4589 . 5625) (/ -9007199254740992 3) -> -9007199254740992/3) ((4590 . 5625) (/ -9007199254740992 4) -> -2251799813685248) ((4591 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4592 . 5625) (/ -9007199254740991 1) -> -9007199254740991) ((4593 . 5625) (/ -9007199254740991 2) -> -9007199254740991/2) ((4594 . 5625) (/ -9007199254740991 3) -> -9007199254740991/3) ((4595 . 5625) (/ -9007199254740991 4) -> -9007199254740991/4) ((4596 . 5625) (/ -9007199254740990 0) -> "division by zero") ((4597 . 5625) (/ -9007199254740990 1) -> -9007199254740990) ((4598 . 5625) (/ -9007199254740990 2) -> -4503599627370495) ((4599 . 5625) (/ -9007199254740990 3) -> -3002399751580330) ((4600 . 5625) (/ -9007199254740990 4) -> -4503599627370495/2) ((4601 . 5625) (/ -9007199254740994 -4) -> 4503599627370497/2) ((4602 . 5625) (/ -9007199254740994 -3) -> 9007199254740994/3) ((4603 . 5625) (/ -9007199254740994 -2) -> 4503599627370497) ((4604 . 5625) (/ -9007199254740994 -1) -> 9007199254740994) ((4605 . 5625) (/ -9007199254740994 0) -> "division by zero") ((4606 . 5625) (/ -9007199254740993 -4) -> 9007199254740993/4) ((4607 . 5625) (/ -9007199254740993 -3) -> 3002399751580331) ((4608 . 5625) (/ -9007199254740993 -2) -> 9007199254740993/2) ((4609 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4610 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4611 . 5625) (/ -9007199254740992 -4) -> 2251799813685248) ((4612 . 5625) (/ -9007199254740992 -3) -> 9007199254740992/3) ((4613 . 5625) (/ -9007199254740992 -2) -> 4503599627370496) ((4614 . 5625) (/ -9007199254740992 -1) -> 9007199254740992) ((4615 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4616 . 5625) (/ -9007199254740991 -4) -> 9007199254740991/4) ((4617 . 5625) (/ -9007199254740991 -3) -> 9007199254740991/3) ((4618 . 5625) (/ -9007199254740991 -2) -> 9007199254740991/2) ((4619 . 5625) (/ -9007199254740991 -1) -> 9007199254740991) ((4620 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4621 . 5625) (/ -9007199254740990 -4) -> 4503599627370495/2) ((4622 . 5625) (/ -9007199254740990 -3) -> 3002399751580330) ((4623 . 5625) (/ -9007199254740990 -2) -> 4503599627370495) ((4624 . 5625) (/ -9007199254740990 -1) -> 9007199254740990) ((4625 . 5625) (/ -9007199254740990 0) -> "division by zero") ((4626 . 5625) (/ -9007199254740994 4611686018427387901) -> -9007199254740994/4611686018427387901) ((4627 . 5625) (/ -9007199254740994 4611686018427387902) -> -4503599627370497/2305843009213693951) ((4628 . 5625) (/ -9007199254740994 4611686018427387903) -> -9007199254740994/4611686018427387903) ((4629 . 5625) (/ -9007199254740994 4611686018427387904) -> -4503599627370497/2305843009213693952) ((4630 . 5625) (/ -9007199254740994 4611686018427387905) -> -9007199254740994/4611686018427387905) ((4631 . 5625) (/ -9007199254740993 4611686018427387901) -> -9007199254740993/4611686018427387901) ((4632 . 5625) (/ -9007199254740993 4611686018427387902) -> -9007199254740993/4611686018427387902) ((4633 . 5625) (/ -9007199254740993 4611686018427387903) -> -3002399751580331/1537228672809129301) ((4634 . 5625) (/ -9007199254740993 4611686018427387904) -> -9007199254740993/4611686018427387904) ((4635 . 5625) (/ -9007199254740993 4611686018427387905) -> -9007199254740993/4611686018427387905) ((4636 . 5625) (/ -9007199254740992 4611686018427387901) -> -9007199254740992/4611686018427387901) ((4637 . 5625) (/ -9007199254740992 4611686018427387902) -> -4503599627370496/2305843009213693951) ((4638 . 5625) (/ -9007199254740992 4611686018427387903) -> -9007199254740992/4611686018427387903) ((4639 . 5625) (/ -9007199254740992 4611686018427387904) -> -1/512) ((4640 . 5625) (/ -9007199254740992 4611686018427387905) -> -9007199254740992/4611686018427387905) ((4641 . 5625) (/ -9007199254740991 4611686018427387901) -> -9007199254740991/4611686018427387901) ((4642 . 5625) (/ -9007199254740991 4611686018427387902) -> -9007199254740991/4611686018427387902) ((4643 . 5625) (/ -9007199254740991 4611686018427387903) -> -9007199254740991/4611686018427387903) ((4644 . 5625) (/ -9007199254740991 4611686018427387904) -> -9007199254740991/4611686018427387904) ((4645 . 5625) (/ -9007199254740991 4611686018427387905) -> -9007199254740991/4611686018427387905) ((4646 . 5625) (/ -9007199254740990 4611686018427387901) -> -9007199254740990/4611686018427387901) ((4647 . 5625) (/ -9007199254740990 4611686018427387902) -> -4503599627370495/2305843009213693951) ((4648 . 5625) (/ -9007199254740990 4611686018427387903) -> -3002399751580330/1537228672809129301) ((4649 . 5625) (/ -9007199254740990 4611686018427387904) -> -4503599627370495/2305843009213693952) ((4650 . 5625) (/ -9007199254740990 4611686018427387905) -> -1801439850948198/922337203685477581) ((4651 . 5625) (/ -9007199254740994 -4611686018427387906) -> 4503599627370497/2305843009213693953) ((4652 . 5625) (/ -9007199254740994 -4611686018427387905) -> 9007199254740994/4611686018427387905) ((4653 . 5625) (/ -9007199254740994 -4611686018427387904) -> 4503599627370497/2305843009213693952) ((4654 . 5625) (/ -9007199254740994 -4611686018427387903) -> 9007199254740994/4611686018427387903) ((4655 . 5625) (/ -9007199254740994 -4611686018427387902) -> 4503599627370497/2305843009213693951) ((4656 . 5625) (/ -9007199254740993 -4611686018427387906) -> 3002399751580331/1537228672809129302) ((4657 . 5625) (/ -9007199254740993 -4611686018427387905) -> 9007199254740993/4611686018427387905) ((4658 . 5625) (/ -9007199254740993 -4611686018427387904) -> 9007199254740993/4611686018427387904) ((4659 . 5625) (/ -9007199254740993 -4611686018427387903) -> 3002399751580331/1537228672809129301) ((4660 . 5625) (/ -9007199254740993 -4611686018427387902) -> 9007199254740993/4611686018427387902) ((4661 . 5625) (/ -9007199254740992 -4611686018427387906) -> 4503599627370496/2305843009213693953) ((4662 . 5625) (/ -9007199254740992 -4611686018427387905) -> 9007199254740992/4611686018427387905) ((4663 . 5625) (/ -9007199254740992 -4611686018427387904) -> 1/512) ((4664 . 5625) (/ -9007199254740992 -4611686018427387903) -> 9007199254740992/4611686018427387903) ((4665 . 5625) (/ -9007199254740992 -4611686018427387902) -> 4503599627370496/2305843009213693951) ((4666 . 5625) (/ -9007199254740991 -4611686018427387906) -> 9007199254740991/4611686018427387906) ((4667 . 5625) (/ -9007199254740991 -4611686018427387905) -> 9007199254740991/4611686018427387905) ((4668 . 5625) (/ -9007199254740991 -4611686018427387904) -> 9007199254740991/4611686018427387904) ((4669 . 5625) (/ -9007199254740991 -4611686018427387903) -> 9007199254740991/4611686018427387903) ((4670 . 5625) (/ -9007199254740991 -4611686018427387902) -> 9007199254740991/4611686018427387902) ((4671 . 5625) (/ -9007199254740990 -4611686018427387906) -> 1501199875790165/768614336404564651) ((4672 . 5625) (/ -9007199254740990 -4611686018427387905) -> 1801439850948198/922337203685477581) ((4673 . 5625) (/ -9007199254740990 -4611686018427387904) -> 4503599627370495/2305843009213693952) ((4674 . 5625) (/ -9007199254740990 -4611686018427387903) -> 3002399751580330/1537228672809129301) ((4675 . 5625) (/ -9007199254740990 -4611686018427387902) -> 4503599627370495/2305843009213693951) ((4676 . 5625) (/ -9007199254740994 4611686018427387902) -> -4503599627370497/2305843009213693951) ((4677 . 5625) (/ -9007199254740994 4611686018427387903) -> -9007199254740994/4611686018427387903) ((4678 . 5625) (/ -9007199254740994 4611686018427387904) -> -4503599627370497/2305843009213693952) ((4679 . 5625) (/ -9007199254740994 4611686018427387905) -> -9007199254740994/4611686018427387905) ((4680 . 5625) (/ -9007199254740994 4611686018427387906) -> -4503599627370497/2305843009213693953) ((4681 . 5625) (/ -9007199254740993 4611686018427387902) -> -9007199254740993/4611686018427387902) ((4682 . 5625) (/ -9007199254740993 4611686018427387903) -> -3002399751580331/1537228672809129301) ((4683 . 5625) (/ -9007199254740993 4611686018427387904) -> -9007199254740993/4611686018427387904) ((4684 . 5625) (/ -9007199254740993 4611686018427387905) -> -9007199254740993/4611686018427387905) ((4685 . 5625) (/ -9007199254740993 4611686018427387906) -> -3002399751580331/1537228672809129302) ((4686 . 5625) (/ -9007199254740992 4611686018427387902) -> -4503599627370496/2305843009213693951) ((4687 . 5625) (/ -9007199254740992 4611686018427387903) -> -9007199254740992/4611686018427387903) ((4688 . 5625) (/ -9007199254740992 4611686018427387904) -> -1/512) ((4689 . 5625) (/ -9007199254740992 4611686018427387905) -> -9007199254740992/4611686018427387905) ((4690 . 5625) (/ -9007199254740992 4611686018427387906) -> -4503599627370496/2305843009213693953) ((4691 . 5625) (/ -9007199254740991 4611686018427387902) -> -9007199254740991/4611686018427387902) ((4692 . 5625) (/ -9007199254740991 4611686018427387903) -> -9007199254740991/4611686018427387903) ((4693 . 5625) (/ -9007199254740991 4611686018427387904) -> -9007199254740991/4611686018427387904) ((4694 . 5625) (/ -9007199254740991 4611686018427387905) -> -9007199254740991/4611686018427387905) ((4695 . 5625) (/ -9007199254740991 4611686018427387906) -> -9007199254740991/4611686018427387906) ((4696 . 5625) (/ -9007199254740990 4611686018427387902) -> -4503599627370495/2305843009213693951) ((4697 . 5625) (/ -9007199254740990 4611686018427387903) -> -3002399751580330/1537228672809129301) ((4698 . 5625) (/ -9007199254740990 4611686018427387904) -> -4503599627370495/2305843009213693952) ((4699 . 5625) (/ -9007199254740990 4611686018427387905) -> -1801439850948198/922337203685477581) ((4700 . 5625) (/ -9007199254740990 4611686018427387906) -> -1501199875790165/768614336404564651) ((4701 . 5625) (/ -9007199254740994 -4611686018427387907) -> 9007199254740994/4611686018427387907) ((4702 . 5625) (/ -9007199254740994 -4611686018427387906) -> 4503599627370497/2305843009213693953) ((4703 . 5625) (/ -9007199254740994 -4611686018427387905) -> 9007199254740994/4611686018427387905) ((4704 . 5625) (/ -9007199254740994 -4611686018427387904) -> 4503599627370497/2305843009213693952) ((4705 . 5625) (/ -9007199254740994 -4611686018427387903) -> 9007199254740994/4611686018427387903) ((4706 . 5625) (/ -9007199254740993 -4611686018427387907) -> 9007199254740993/4611686018427387907) ((4707 . 5625) (/ -9007199254740993 -4611686018427387906) -> 3002399751580331/1537228672809129302) ((4708 . 5625) (/ -9007199254740993 -4611686018427387905) -> 9007199254740993/4611686018427387905) ((4709 . 5625) (/ -9007199254740993 -4611686018427387904) -> 9007199254740993/4611686018427387904) ((4710 . 5625) (/ -9007199254740993 -4611686018427387903) -> 3002399751580331/1537228672809129301) ((4711 . 5625) (/ -9007199254740992 -4611686018427387907) -> 9007199254740992/4611686018427387907) ((4712 . 5625) (/ -9007199254740992 -4611686018427387906) -> 4503599627370496/2305843009213693953) ((4713 . 5625) (/ -9007199254740992 -4611686018427387905) -> 9007199254740992/4611686018427387905) ((4714 . 5625) (/ -9007199254740992 -4611686018427387904) -> 1/512) ((4715 . 5625) (/ -9007199254740992 -4611686018427387903) -> 9007199254740992/4611686018427387903) ((4716 . 5625) (/ -9007199254740991 -4611686018427387907) -> 9007199254740991/4611686018427387907) ((4717 . 5625) (/ -9007199254740991 -4611686018427387906) -> 9007199254740991/4611686018427387906) ((4718 . 5625) (/ -9007199254740991 -4611686018427387905) -> 9007199254740991/4611686018427387905) ((4719 . 5625) (/ -9007199254740991 -4611686018427387904) -> 9007199254740991/4611686018427387904) ((4720 . 5625) (/ -9007199254740991 -4611686018427387903) -> 9007199254740991/4611686018427387903) ((4721 . 5625) (/ -9007199254740990 -4611686018427387907) -> 9007199254740990/4611686018427387907) ((4722 . 5625) (/ -9007199254740990 -4611686018427387906) -> 1501199875790165/768614336404564651) ((4723 . 5625) (/ -9007199254740990 -4611686018427387905) -> 1801439850948198/922337203685477581) ((4724 . 5625) (/ -9007199254740990 -4611686018427387904) -> 4503599627370495/2305843009213693952) ((4725 . 5625) (/ -9007199254740990 -4611686018427387903) -> 3002399751580330/1537228672809129301) ((4726 . 5625) (/ -9007199254740994 1103515243) -> -9007199254740994/1103515243) ((4727 . 5625) (/ -9007199254740994 1103515244) -> -4503599627370497/551757622) ((4728 . 5625) (/ -9007199254740994 1103515245) -> -9007199254740994/1103515245) ((4729 . 5625) (/ -9007199254740994 1103515246) -> -4503599627370497/551757623) ((4730 . 5625) (/ -9007199254740994 1103515247) -> -9007199254740994/1103515247) ((4731 . 5625) (/ -9007199254740993 1103515243) -> -9007199254740993/1103515243) ((4732 . 5625) (/ -9007199254740993 1103515244) -> -9007199254740993/1103515244) ((4733 . 5625) (/ -9007199254740993 1103515245) -> -3002399751580331/367838415) ((4734 . 5625) (/ -9007199254740993 1103515246) -> -9007199254740993/1103515246) ((4735 . 5625) (/ -9007199254740993 1103515247) -> -9007199254740993/1103515247) ((4736 . 5625) (/ -9007199254740992 1103515243) -> -9007199254740992/1103515243) ((4737 . 5625) (/ -9007199254740992 1103515244) -> -2251799813685248/275878811) ((4738 . 5625) (/ -9007199254740992 1103515245) -> -9007199254740992/1103515245) ((4739 . 5625) (/ -9007199254740992 1103515246) -> -4503599627370496/551757623) ((4740 . 5625) (/ -9007199254740992 1103515247) -> -9007199254740992/1103515247) ((4741 . 5625) (/ -9007199254740991 1103515243) -> -9007199254740991/1103515243) ((4742 . 5625) (/ -9007199254740991 1103515244) -> -9007199254740991/1103515244) ((4743 . 5625) (/ -9007199254740991 1103515245) -> -9007199254740991/1103515245) ((4744 . 5625) (/ -9007199254740991 1103515246) -> -9007199254740991/1103515246) ((4745 . 5625) (/ -9007199254740991 1103515247) -> -9007199254740991/1103515247) ((4746 . 5625) (/ -9007199254740990 1103515243) -> -9007199254740990/1103515243) ((4747 . 5625) (/ -9007199254740990 1103515244) -> -4503599627370495/551757622) ((4748 . 5625) (/ -9007199254740990 1103515245) -> -600479950316066/73567683) ((4749 . 5625) (/ -9007199254740990 1103515246) -> -4503599627370495/551757623) ((4750 . 5625) (/ -9007199254740990 1103515247) -> -9007199254740990/1103515247) ((4751 . 5625) (/ -9007199254740994 631629063) -> -9007199254740994/631629063) ((4752 . 5625) (/ -9007199254740994 631629064) -> -4503599627370497/315814532) ((4753 . 5625) (/ -9007199254740994 631629065) -> -9007199254740994/631629065) ((4754 . 5625) (/ -9007199254740994 631629066) -> -4503599627370497/315814533) ((4755 . 5625) (/ -9007199254740994 631629067) -> -529835250278882/37154651) ((4756 . 5625) (/ -9007199254740993 631629063) -> -3002399751580331/210543021) ((4757 . 5625) (/ -9007199254740993 631629064) -> -9007199254740993/631629064) ((4758 . 5625) (/ -9007199254740993 631629065) -> -9007199254740993/631629065) ((4759 . 5625) (/ -9007199254740993 631629066) -> -3002399751580331/210543022) ((4760 . 5625) (/ -9007199254740993 631629067) -> -9007199254740993/631629067) ((4761 . 5625) (/ -9007199254740992 631629063) -> -9007199254740992/631629063) ((4762 . 5625) (/ -9007199254740992 631629064) -> -1125899906842624/78953633) ((4763 . 5625) (/ -9007199254740992 631629065) -> -9007199254740992/631629065) ((4764 . 5625) (/ -9007199254740992 631629066) -> -4503599627370496/315814533) ((4765 . 5625) (/ -9007199254740992 631629067) -> -9007199254740992/631629067) ((4766 . 5625) (/ -9007199254740991 631629063) -> -9007199254740991/631629063) ((4767 . 5625) (/ -9007199254740991 631629064) -> -9007199254740991/631629064) ((4768 . 5625) (/ -9007199254740991 631629065) -> -9007199254740991/631629065) ((4769 . 5625) (/ -9007199254740991 631629066) -> -9007199254740991/631629066) ((4770 . 5625) (/ -9007199254740991 631629067) -> -9007199254740991/631629067) ((4771 . 5625) (/ -9007199254740990 631629063) -> -3002399751580330/210543021) ((4772 . 5625) (/ -9007199254740990 631629064) -> -4503599627370495/315814532) ((4773 . 5625) (/ -9007199254740990 631629065) -> -1801439850948198/126325813) ((4774 . 5625) (/ -9007199254740990 631629066) -> -1501199875790165/105271511) ((4775 . 5625) (/ -9007199254740990 631629067) -> -9007199254740990/631629067) ((4776 . 5625) (/ -9007199254740994 9007199254740990) -> -4503599627370497/4503599627370495) ((4777 . 5625) (/ -9007199254740994 9007199254740991) -> -9007199254740994/9007199254740991) ((4778 . 5625) (/ -9007199254740994 9007199254740992) -> -4503599627370497/4503599627370496) ((4779 . 5625) (/ -9007199254740994 9007199254740993) -> -9007199254740994/9007199254740993) ((4780 . 5625) (/ -9007199254740994 9007199254740994) -> -1) ((4781 . 5625) (/ -9007199254740993 9007199254740990) -> -3002399751580331/3002399751580330) ((4782 . 5625) (/ -9007199254740993 9007199254740991) -> -9007199254740993/9007199254740991) ((4783 . 5625) (/ -9007199254740993 9007199254740992) -> -9007199254740993/9007199254740992) ((4784 . 5625) (/ -9007199254740993 9007199254740993) -> -1) ((4785 . 5625) (/ -9007199254740993 9007199254740994) -> -9007199254740993/9007199254740994) ((4786 . 5625) (/ -9007199254740992 9007199254740990) -> -4503599627370496/4503599627370495) ((4787 . 5625) (/ -9007199254740992 9007199254740991) -> -9007199254740992/9007199254740991) ((4788 . 5625) (/ -9007199254740992 9007199254740992) -> -1) ((4789 . 5625) (/ -9007199254740992 9007199254740993) -> -9007199254740992/9007199254740993) ((4790 . 5625) (/ -9007199254740992 9007199254740994) -> -4503599627370496/4503599627370497) ((4791 . 5625) (/ -9007199254740991 9007199254740990) -> -9007199254740991/9007199254740990) ((4792 . 5625) (/ -9007199254740991 9007199254740991) -> -1) ((4793 . 5625) (/ -9007199254740991 9007199254740992) -> -9007199254740991/9007199254740992) ((4794 . 5625) (/ -9007199254740991 9007199254740993) -> -9007199254740991/9007199254740993) ((4795 . 5625) (/ -9007199254740991 9007199254740994) -> -9007199254740991/9007199254740994) ((4796 . 5625) (/ -9007199254740990 9007199254740990) -> -1) ((4797 . 5625) (/ -9007199254740990 9007199254740991) -> -9007199254740990/9007199254740991) ((4798 . 5625) (/ -9007199254740990 9007199254740992) -> -4503599627370495/4503599627370496) ((4799 . 5625) (/ -9007199254740990 9007199254740993) -> -3002399751580330/3002399751580331) ((4800 . 5625) (/ -9007199254740990 9007199254740994) -> -4503599627370495/4503599627370497) ((4801 . 5625) (/ -9007199254740994 -9007199254740994) -> 1) ((4802 . 5625) (/ -9007199254740994 -9007199254740993) -> 9007199254740994/9007199254740993) ((4803 . 5625) (/ -9007199254740994 -9007199254740992) -> 4503599627370497/4503599627370496) ((4804 . 5625) (/ -9007199254740994 -9007199254740991) -> 9007199254740994/9007199254740991) ((4805 . 5625) (/ -9007199254740994 -9007199254740990) -> 4503599627370497/4503599627370495) ((4806 . 5625) (/ -9007199254740993 -9007199254740994) -> 9007199254740993/9007199254740994) ((4807 . 5625) (/ -9007199254740993 -9007199254740993) -> 1) ((4808 . 5625) (/ -9007199254740993 -9007199254740992) -> 9007199254740993/9007199254740992) ((4809 . 5625) (/ -9007199254740993 -9007199254740991) -> 9007199254740993/9007199254740991) ((4810 . 5625) (/ -9007199254740993 -9007199254740990) -> 3002399751580331/3002399751580330) ((4811 . 5625) (/ -9007199254740992 -9007199254740994) -> 4503599627370496/4503599627370497) ((4812 . 5625) (/ -9007199254740992 -9007199254740993) -> 9007199254740992/9007199254740993) ((4813 . 5625) (/ -9007199254740992 -9007199254740992) -> 1) ((4814 . 5625) (/ -9007199254740992 -9007199254740991) -> 9007199254740992/9007199254740991) ((4815 . 5625) (/ -9007199254740992 -9007199254740990) -> 4503599627370496/4503599627370495) ((4816 . 5625) (/ -9007199254740991 -9007199254740994) -> 9007199254740991/9007199254740994) ((4817 . 5625) (/ -9007199254740991 -9007199254740993) -> 9007199254740991/9007199254740993) ((4818 . 5625) (/ -9007199254740991 -9007199254740992) -> 9007199254740991/9007199254740992) ((4819 . 5625) (/ -9007199254740991 -9007199254740991) -> 1) ((4820 . 5625) (/ -9007199254740991 -9007199254740990) -> 9007199254740991/9007199254740990) ((4821 . 5625) (/ -9007199254740990 -9007199254740994) -> 4503599627370495/4503599627370497) ((4822 . 5625) (/ -9007199254740990 -9007199254740993) -> 3002399751580330/3002399751580331) ((4823 . 5625) (/ -9007199254740990 -9007199254740992) -> 4503599627370495/4503599627370496) ((4824 . 5625) (/ -9007199254740990 -9007199254740991) -> 9007199254740990/9007199254740991) ((4825 . 5625) (/ -9007199254740990 -9007199254740990) -> 1) ((4826 . 5625) (/ -9007199254740994 12343) -> -9007199254740994/12343) ((4827 . 5625) (/ -9007199254740994 12344) -> -4503599627370497/6172) ((4828 . 5625) (/ -9007199254740994 12345) -> -9007199254740994/12345) ((4829 . 5625) (/ -9007199254740994 12346) -> -4503599627370497/6173) ((4830 . 5625) (/ -9007199254740994 12347) -> -9007199254740994/12347) ((4831 . 5625) (/ -9007199254740993 12343) -> -9007199254740993/12343) ((4832 . 5625) (/ -9007199254740993 12344) -> -9007199254740993/12344) ((4833 . 5625) (/ -9007199254740993 12345) -> -3002399751580331/4115) ((4834 . 5625) (/ -9007199254740993 12346) -> -9007199254740993/12346) ((4835 . 5625) (/ -9007199254740993 12347) -> -9007199254740993/12347) ((4836 . 5625) (/ -9007199254740992 12343) -> -9007199254740992/12343) ((4837 . 5625) (/ -9007199254740992 12344) -> -1125899906842624/1543) ((4838 . 5625) (/ -9007199254740992 12345) -> -9007199254740992/12345) ((4839 . 5625) (/ -9007199254740992 12346) -> -4503599627370496/6173) ((4840 . 5625) (/ -9007199254740992 12347) -> -9007199254740992/12347) ((4841 . 5625) (/ -9007199254740991 12343) -> -9007199254740991/12343) ((4842 . 5625) (/ -9007199254740991 12344) -> -9007199254740991/12344) ((4843 . 5625) (/ -9007199254740991 12345) -> -9007199254740991/12345) ((4844 . 5625) (/ -9007199254740991 12346) -> -9007199254740991/12346) ((4845 . 5625) (/ -9007199254740991 12347) -> -9007199254740991/12347) ((4846 . 5625) (/ -9007199254740990 12343) -> -9007199254740990/12343) ((4847 . 5625) (/ -9007199254740990 12344) -> -4503599627370495/6172) ((4848 . 5625) (/ -9007199254740990 12345) -> -600479950316066/823) ((4849 . 5625) (/ -9007199254740990 12346) -> -4503599627370495/6173) ((4850 . 5625) (/ -9007199254740990 12347) -> -9007199254740990/12347) ((4851 . 5625) (/ -9007199254740994 4294967294) -> -4503599627370497/2147483647) ((4852 . 5625) (/ -9007199254740994 4294967295) -> -529835250278882/252645135) ((4853 . 5625) (/ -9007199254740994 4294967296) -> -4503599627370497/2147483648) ((4854 . 5625) (/ -9007199254740994 4294967297) -> -9007199254740994/4294967297) ((4855 . 5625) (/ -9007199254740994 4294967298) -> -4503599627370497/2147483649) ((4856 . 5625) (/ -9007199254740993 4294967294) -> -9007199254740993/4294967294) ((4857 . 5625) (/ -9007199254740993 4294967295) -> -3002399751580331/1431655765) ((4858 . 5625) (/ -9007199254740993 4294967296) -> -9007199254740993/4294967296) ((4859 . 5625) (/ -9007199254740993 4294967297) -> -9007199254740993/4294967297) ((4860 . 5625) (/ -9007199254740993 4294967298) -> -3002399751580331/1431655766) ((4861 . 5625) (/ -9007199254740992 4294967294) -> -4503599627370496/2147483647) ((4862 . 5625) (/ -9007199254740992 4294967295) -> -9007199254740992/4294967295) ((4863 . 5625) (/ -9007199254740992 4294967296) -> -2097152) ((4864 . 5625) (/ -9007199254740992 4294967297) -> -9007199254740992/4294967297) ((4865 . 5625) (/ -9007199254740992 4294967298) -> -4503599627370496/2147483649) ((4866 . 5625) (/ -9007199254740991 4294967294) -> -9007199254740991/4294967294) ((4867 . 5625) (/ -9007199254740991 4294967295) -> -9007199254740991/4294967295) ((4868 . 5625) (/ -9007199254740991 4294967296) -> -9007199254740991/4294967296) ((4869 . 5625) (/ -9007199254740991 4294967297) -> -9007199254740991/4294967297) ((4870 . 5625) (/ -9007199254740991 4294967298) -> -9007199254740991/4294967298) ((4871 . 5625) (/ -9007199254740990 4294967294) -> -4503599627370495/2147483647) ((4872 . 5625) (/ -9007199254740990 4294967295) -> -600479950316066/286331153) ((4873 . 5625) (/ -9007199254740990 4294967296) -> -4503599627370495/2147483648) ((4874 . 5625) (/ -9007199254740990 4294967297) -> -9007199254740990/4294967297) ((4875 . 5625) (/ -9007199254740990 4294967298) -> -1501199875790165/715827883) ((4876 . 5625) (/ 12343 -2) -> -12343/2) ((4877 . 5625) (/ 12343 -1) -> -12343) ((4878 . 5625) (/ 12343 0) -> "division by zero") ((4879 . 5625) (/ 12343 1) -> 12343) ((4880 . 5625) (/ 12343 2) -> 12343/2) ((4881 . 5625) (/ 12344 -2) -> -6172) ((4882 . 5625) (/ 12344 -1) -> -12344) ((4883 . 5625) (/ 12344 0) -> "division by zero") ((4884 . 5625) (/ 12344 1) -> 12344) ((4885 . 5625) (/ 12344 2) -> 6172) ((4886 . 5625) (/ 12345 -2) -> -12345/2) ((4887 . 5625) (/ 12345 -1) -> -12345) ((4888 . 5625) (/ 12345 0) -> "division by zero") ((4889 . 5625) (/ 12345 1) -> 12345) ((4890 . 5625) (/ 12345 2) -> 12345/2) ((4891 . 5625) (/ 12346 -2) -> -6173) ((4892 . 5625) (/ 12346 -1) -> -12346) ((4893 . 5625) (/ 12346 0) -> "division by zero") ((4894 . 5625) (/ 12346 1) -> 12346) ((4895 . 5625) (/ 12346 2) -> 6173) ((4896 . 5625) (/ 12347 -2) -> -12347/2) ((4897 . 5625) (/ 12347 -1) -> -12347) ((4898 . 5625) (/ 12347 0) -> "division by zero") ((4899 . 5625) (/ 12347 1) -> 12347) ((4900 . 5625) (/ 12347 2) -> 12347/2) ((4901 . 5625) (/ 12343 -1) -> -12343) ((4902 . 5625) (/ 12343 0) -> "division by zero") ((4903 . 5625) (/ 12343 1) -> 12343) ((4904 . 5625) (/ 12343 2) -> 12343/2) ((4905 . 5625) (/ 12343 3) -> 12343/3) ((4906 . 5625) (/ 12344 -1) -> -12344) ((4907 . 5625) (/ 12344 0) -> "division by zero") ((4908 . 5625) (/ 12344 1) -> 12344) ((4909 . 5625) (/ 12344 2) -> 6172) ((4910 . 5625) (/ 12344 3) -> 12344/3) ((4911 . 5625) (/ 12345 -1) -> -12345) ((4912 . 5625) (/ 12345 0) -> "division by zero") ((4913 . 5625) (/ 12345 1) -> 12345) ((4914 . 5625) (/ 12345 2) -> 12345/2) ((4915 . 5625) (/ 12345 3) -> 4115) ((4916 . 5625) (/ 12346 -1) -> -12346) ((4917 . 5625) (/ 12346 0) -> "division by zero") ((4918 . 5625) (/ 12346 1) -> 12346) ((4919 . 5625) (/ 12346 2) -> 6173) ((4920 . 5625) (/ 12346 3) -> 12346/3) ((4921 . 5625) (/ 12347 -1) -> -12347) ((4922 . 5625) (/ 12347 0) -> "division by zero") ((4923 . 5625) (/ 12347 1) -> 12347) ((4924 . 5625) (/ 12347 2) -> 12347/2) ((4925 . 5625) (/ 12347 3) -> 12347/3) ((4926 . 5625) (/ 12343 -3) -> -12343/3) ((4927 . 5625) (/ 12343 -2) -> -12343/2) ((4928 . 5625) (/ 12343 -1) -> -12343) ((4929 . 5625) (/ 12343 0) -> "division by zero") ((4930 . 5625) (/ 12343 1) -> 12343) ((4931 . 5625) (/ 12344 -3) -> -12344/3) ((4932 . 5625) (/ 12344 -2) -> -6172) ((4933 . 5625) (/ 12344 -1) -> -12344) ((4934 . 5625) (/ 12344 0) -> "division by zero") ((4935 . 5625) (/ 12344 1) -> 12344) ((4936 . 5625) (/ 12345 -3) -> -4115) ((4937 . 5625) (/ 12345 -2) -> -12345/2) ((4938 . 5625) (/ 12345 -1) -> -12345) ((4939 . 5625) (/ 12345 0) -> "division by zero") ((4940 . 5625) (/ 12345 1) -> 12345) ((4941 . 5625) (/ 12346 -3) -> -12346/3) ((4942 . 5625) (/ 12346 -2) -> -6173) ((4943 . 5625) (/ 12346 -1) -> -12346) ((4944 . 5625) (/ 12346 0) -> "division by zero") ((4945 . 5625) (/ 12346 1) -> 12346) ((4946 . 5625) (/ 12347 -3) -> -12347/3) ((4947 . 5625) (/ 12347 -2) -> -12347/2) ((4948 . 5625) (/ 12347 -1) -> -12347) ((4949 . 5625) (/ 12347 0) -> "division by zero") ((4950 . 5625) (/ 12347 1) -> 12347) ((4951 . 5625) (/ 12343 0) -> "division by zero") ((4952 . 5625) (/ 12343 1) -> 12343) ((4953 . 5625) (/ 12343 2) -> 12343/2) ((4954 . 5625) (/ 12343 3) -> 12343/3) ((4955 . 5625) (/ 12343 4) -> 12343/4) ((4956 . 5625) (/ 12344 0) -> "division by zero") ((4957 . 5625) (/ 12344 1) -> 12344) ((4958 . 5625) (/ 12344 2) -> 6172) ((4959 . 5625) (/ 12344 3) -> 12344/3) ((4960 . 5625) (/ 12344 4) -> 3086) ((4961 . 5625) (/ 12345 0) -> "division by zero") ((4962 . 5625) (/ 12345 1) -> 12345) ((4963 . 5625) (/ 12345 2) -> 12345/2) ((4964 . 5625) (/ 12345 3) -> 4115) ((4965 . 5625) (/ 12345 4) -> 12345/4) ((4966 . 5625) (/ 12346 0) -> "division by zero") ((4967 . 5625) (/ 12346 1) -> 12346) ((4968 . 5625) (/ 12346 2) -> 6173) ((4969 . 5625) (/ 12346 3) -> 12346/3) ((4970 . 5625) (/ 12346 4) -> 6173/2) ((4971 . 5625) (/ 12347 0) -> "division by zero") ((4972 . 5625) (/ 12347 1) -> 12347) ((4973 . 5625) (/ 12347 2) -> 12347/2) ((4974 . 5625) (/ 12347 3) -> 12347/3) ((4975 . 5625) (/ 12347 4) -> 12347/4) ((4976 . 5625) (/ 12343 -4) -> -12343/4) ((4977 . 5625) (/ 12343 -3) -> -12343/3) ((4978 . 5625) (/ 12343 -2) -> -12343/2) ((4979 . 5625) (/ 12343 -1) -> -12343) ((4980 . 5625) (/ 12343 0) -> "division by zero") ((4981 . 5625) (/ 12344 -4) -> -3086) ((4982 . 5625) (/ 12344 -3) -> -12344/3) ((4983 . 5625) (/ 12344 -2) -> -6172) ((4984 . 5625) (/ 12344 -1) -> -12344) ((4985 . 5625) (/ 12344 0) -> "division by zero") ((4986 . 5625) (/ 12345 -4) -> -12345/4) ((4987 . 5625) (/ 12345 -3) -> -4115) ((4988 . 5625) (/ 12345 -2) -> -12345/2) ((4989 . 5625) (/ 12345 -1) -> -12345) ((4990 . 5625) (/ 12345 0) -> "division by zero") ((4991 . 5625) (/ 12346 -4) -> -6173/2) ((4992 . 5625) (/ 12346 -3) -> -12346/3) ((4993 . 5625) (/ 12346 -2) -> -6173) ((4994 . 5625) (/ 12346 -1) -> -12346) ((4995 . 5625) (/ 12346 0) -> "division by zero") ((4996 . 5625) (/ 12347 -4) -> -12347/4) ((4997 . 5625) (/ 12347 -3) -> -12347/3) ((4998 . 5625) (/ 12347 -2) -> -12347/2) ((4999 . 5625) (/ 12347 -1) -> -12347) ((5000 . 5625) (/ 12347 0) -> "division by zero") ((5001 . 5625) (/ 12343 4611686018427387901) -> 12343/4611686018427387901) ((5002 . 5625) (/ 12343 4611686018427387902) -> 12343/4611686018427387902) ((5003 . 5625) (/ 12343 4611686018427387903) -> 12343/4611686018427387903) ((5004 . 5625) (/ 12343 4611686018427387904) -> 12343/4611686018427387904) ((5005 . 5625) (/ 12343 4611686018427387905) -> 12343/4611686018427387905) ((5006 . 5625) (/ 12344 4611686018427387901) -> 12344/4611686018427387901) ((5007 . 5625) (/ 12344 4611686018427387902) -> 6172/2305843009213693951) ((5008 . 5625) (/ 12344 4611686018427387903) -> 12344/4611686018427387903) ((5009 . 5625) (/ 12344 4611686018427387904) -> 1543/576460752303423488) ((5010 . 5625) (/ 12344 4611686018427387905) -> 12344/4611686018427387905) ((5011 . 5625) (/ 12345 4611686018427387901) -> 12345/4611686018427387901) ((5012 . 5625) (/ 12345 4611686018427387902) -> 12345/4611686018427387902) ((5013 . 5625) (/ 12345 4611686018427387903) -> 4115/1537228672809129301) ((5014 . 5625) (/ 12345 4611686018427387904) -> 12345/4611686018427387904) ((5015 . 5625) (/ 12345 4611686018427387905) -> 2469/922337203685477581) ((5016 . 5625) (/ 12346 4611686018427387901) -> 12346/4611686018427387901) ((5017 . 5625) (/ 12346 4611686018427387902) -> 6173/2305843009213693951) ((5018 . 5625) (/ 12346 4611686018427387903) -> 12346/4611686018427387903) ((5019 . 5625) (/ 12346 4611686018427387904) -> 6173/2305843009213693952) ((5020 . 5625) (/ 12346 4611686018427387905) -> 12346/4611686018427387905) ((5021 . 5625) (/ 12347 4611686018427387901) -> 12347/4611686018427387901) ((5022 . 5625) (/ 12347 4611686018427387902) -> 12347/4611686018427387902) ((5023 . 5625) (/ 12347 4611686018427387903) -> 12347/4611686018427387903) ((5024 . 5625) (/ 12347 4611686018427387904) -> 12347/4611686018427387904) ((5025 . 5625) (/ 12347 4611686018427387905) -> 12347/4611686018427387905) ((5026 . 5625) (/ 12343 -4611686018427387906) -> -12343/4611686018427387906) ((5027 . 5625) (/ 12343 -4611686018427387905) -> -12343/4611686018427387905) ((5028 . 5625) (/ 12343 -4611686018427387904) -> -12343/4611686018427387904) ((5029 . 5625) (/ 12343 -4611686018427387903) -> -12343/4611686018427387903) ((5030 . 5625) (/ 12343 -4611686018427387902) -> -12343/4611686018427387902) ((5031 . 5625) (/ 12344 -4611686018427387906) -> -6172/2305843009213693953) ((5032 . 5625) (/ 12344 -4611686018427387905) -> -12344/4611686018427387905) ((5033 . 5625) (/ 12344 -4611686018427387904) -> -1543/576460752303423488) ((5034 . 5625) (/ 12344 -4611686018427387903) -> -12344/4611686018427387903) ((5035 . 5625) (/ 12344 -4611686018427387902) -> -6172/2305843009213693951) ((5036 . 5625) (/ 12345 -4611686018427387906) -> -4115/1537228672809129302) ((5037 . 5625) (/ 12345 -4611686018427387905) -> -2469/922337203685477581) ((5038 . 5625) (/ 12345 -4611686018427387904) -> -12345/4611686018427387904) ((5039 . 5625) (/ 12345 -4611686018427387903) -> -4115/1537228672809129301) ((5040 . 5625) (/ 12345 -4611686018427387902) -> -12345/4611686018427387902) ((5041 . 5625) (/ 12346 -4611686018427387906) -> -6173/2305843009213693953) ((5042 . 5625) (/ 12346 -4611686018427387905) -> -12346/4611686018427387905) ((5043 . 5625) (/ 12346 -4611686018427387904) -> -6173/2305843009213693952) ((5044 . 5625) (/ 12346 -4611686018427387903) -> -12346/4611686018427387903) ((5045 . 5625) (/ 12346 -4611686018427387902) -> -6173/2305843009213693951) ((5046 . 5625) (/ 12347 -4611686018427387906) -> -12347/4611686018427387906) ((5047 . 5625) (/ 12347 -4611686018427387905) -> -12347/4611686018427387905) ((5048 . 5625) (/ 12347 -4611686018427387904) -> -12347/4611686018427387904) ((5049 . 5625) (/ 12347 -4611686018427387903) -> -12347/4611686018427387903) ((5050 . 5625) (/ 12347 -4611686018427387902) -> -12347/4611686018427387902) ((5051 . 5625) (/ 12343 4611686018427387902) -> 12343/4611686018427387902) ((5052 . 5625) (/ 12343 4611686018427387903) -> 12343/4611686018427387903) ((5053 . 5625) (/ 12343 4611686018427387904) -> 12343/4611686018427387904) ((5054 . 5625) (/ 12343 4611686018427387905) -> 12343/4611686018427387905) ((5055 . 5625) (/ 12343 4611686018427387906) -> 12343/4611686018427387906) ((5056 . 5625) (/ 12344 4611686018427387902) -> 6172/2305843009213693951) ((5057 . 5625) (/ 12344 4611686018427387903) -> 12344/4611686018427387903) ((5058 . 5625) (/ 12344 4611686018427387904) -> 1543/576460752303423488) ((5059 . 5625) (/ 12344 4611686018427387905) -> 12344/4611686018427387905) ((5060 . 5625) (/ 12344 4611686018427387906) -> 6172/2305843009213693953) ((5061 . 5625) (/ 12345 4611686018427387902) -> 12345/4611686018427387902) ((5062 . 5625) (/ 12345 4611686018427387903) -> 4115/1537228672809129301) ((5063 . 5625) (/ 12345 4611686018427387904) -> 12345/4611686018427387904) ((5064 . 5625) (/ 12345 4611686018427387905) -> 2469/922337203685477581) ((5065 . 5625) (/ 12345 4611686018427387906) -> 4115/1537228672809129302) ((5066 . 5625) (/ 12346 4611686018427387902) -> 6173/2305843009213693951) ((5067 . 5625) (/ 12346 4611686018427387903) -> 12346/4611686018427387903) ((5068 . 5625) (/ 12346 4611686018427387904) -> 6173/2305843009213693952) ((5069 . 5625) (/ 12346 4611686018427387905) -> 12346/4611686018427387905) ((5070 . 5625) (/ 12346 4611686018427387906) -> 6173/2305843009213693953) ((5071 . 5625) (/ 12347 4611686018427387902) -> 12347/4611686018427387902) ((5072 . 5625) (/ 12347 4611686018427387903) -> 12347/4611686018427387903) ((5073 . 5625) (/ 12347 4611686018427387904) -> 12347/4611686018427387904) ((5074 . 5625) (/ 12347 4611686018427387905) -> 12347/4611686018427387905) ((5075 . 5625) (/ 12347 4611686018427387906) -> 12347/4611686018427387906) ((5076 . 5625) (/ 12343 -4611686018427387907) -> -12343/4611686018427387907) ((5077 . 5625) (/ 12343 -4611686018427387906) -> -12343/4611686018427387906) ((5078 . 5625) (/ 12343 -4611686018427387905) -> -12343/4611686018427387905) ((5079 . 5625) (/ 12343 -4611686018427387904) -> -12343/4611686018427387904) ((5080 . 5625) (/ 12343 -4611686018427387903) -> -12343/4611686018427387903) ((5081 . 5625) (/ 12344 -4611686018427387907) -> -12344/4611686018427387907) ((5082 . 5625) (/ 12344 -4611686018427387906) -> -6172/2305843009213693953) ((5083 . 5625) (/ 12344 -4611686018427387905) -> -12344/4611686018427387905) ((5084 . 5625) (/ 12344 -4611686018427387904) -> -1543/576460752303423488) ((5085 . 5625) (/ 12344 -4611686018427387903) -> -12344/4611686018427387903) ((5086 . 5625) (/ 12345 -4611686018427387907) -> -12345/4611686018427387907) ((5087 . 5625) (/ 12345 -4611686018427387906) -> -4115/1537228672809129302) ((5088 . 5625) (/ 12345 -4611686018427387905) -> -2469/922337203685477581) ((5089 . 5625) (/ 12345 -4611686018427387904) -> -12345/4611686018427387904) ((5090 . 5625) (/ 12345 -4611686018427387903) -> -4115/1537228672809129301) ((5091 . 5625) (/ 12346 -4611686018427387907) -> -12346/4611686018427387907) ((5092 . 5625) (/ 12346 -4611686018427387906) -> -6173/2305843009213693953) ((5093 . 5625) (/ 12346 -4611686018427387905) -> -12346/4611686018427387905) ((5094 . 5625) (/ 12346 -4611686018427387904) -> -6173/2305843009213693952) ((5095 . 5625) (/ 12346 -4611686018427387903) -> -12346/4611686018427387903) ((5096 . 5625) (/ 12347 -4611686018427387907) -> -12347/4611686018427387907) ((5097 . 5625) (/ 12347 -4611686018427387906) -> -12347/4611686018427387906) ((5098 . 5625) (/ 12347 -4611686018427387905) -> -12347/4611686018427387905) ((5099 . 5625) (/ 12347 -4611686018427387904) -> -12347/4611686018427387904) ((5100 . 5625) (/ 12347 -4611686018427387903) -> -12347/4611686018427387903) ((5101 . 5625) (/ 12343 1103515243) -> 12343/1103515243) ((5102 . 5625) (/ 12343 1103515244) -> 12343/1103515244) ((5103 . 5625) (/ 12343 1103515245) -> 12343/1103515245) ((5104 . 5625) (/ 12343 1103515246) -> 12343/1103515246) ((5105 . 5625) (/ 12343 1103515247) -> 12343/1103515247) ((5106 . 5625) (/ 12344 1103515243) -> 12344/1103515243) ((5107 . 5625) (/ 12344 1103515244) -> 3086/275878811) ((5108 . 5625) (/ 12344 1103515245) -> 12344/1103515245) ((5109 . 5625) (/ 12344 1103515246) -> 6172/551757623) ((5110 . 5625) (/ 12344 1103515247) -> 12344/1103515247) ((5111 . 5625) (/ 12345 1103515243) -> 12345/1103515243) ((5112 . 5625) (/ 12345 1103515244) -> 12345/1103515244) ((5113 . 5625) (/ 12345 1103515245) -> 823/73567683) ((5114 . 5625) (/ 12345 1103515246) -> 12345/1103515246) ((5115 . 5625) (/ 12345 1103515247) -> 12345/1103515247) ((5116 . 5625) (/ 12346 1103515243) -> 12346/1103515243) ((5117 . 5625) (/ 12346 1103515244) -> 6173/551757622) ((5118 . 5625) (/ 12346 1103515245) -> 12346/1103515245) ((5119 . 5625) (/ 12346 1103515246) -> 6173/551757623) ((5120 . 5625) (/ 12346 1103515247) -> 12346/1103515247) ((5121 . 5625) (/ 12347 1103515243) -> 12347/1103515243) ((5122 . 5625) (/ 12347 1103515244) -> 12347/1103515244) ((5123 . 5625) (/ 12347 1103515245) -> 12347/1103515245) ((5124 . 5625) (/ 12347 1103515246) -> 12347/1103515246) ((5125 . 5625) (/ 12347 1103515247) -> 12347/1103515247) ((5126 . 5625) (/ 12343 631629063) -> 12343/631629063) ((5127 . 5625) (/ 12343 631629064) -> 12343/631629064) ((5128 . 5625) (/ 12343 631629065) -> 12343/631629065) ((5129 . 5625) (/ 12343 631629066) -> 12343/631629066) ((5130 . 5625) (/ 12343 631629067) -> 12343/631629067) ((5131 . 5625) (/ 12344 631629063) -> 12344/631629063) ((5132 . 5625) (/ 12344 631629064) -> 1543/78953633) ((5133 . 5625) (/ 12344 631629065) -> 12344/631629065) ((5134 . 5625) (/ 12344 631629066) -> 6172/315814533) ((5135 . 5625) (/ 12344 631629067) -> 12344/631629067) ((5136 . 5625) (/ 12345 631629063) -> 4115/210543021) ((5137 . 5625) (/ 12345 631629064) -> 12345/631629064) ((5138 . 5625) (/ 12345 631629065) -> 2469/126325813) ((5139 . 5625) (/ 12345 631629066) -> 4115/210543022) ((5140 . 5625) (/ 12345 631629067) -> 12345/631629067) ((5141 . 5625) (/ 12346 631629063) -> 12346/631629063) ((5142 . 5625) (/ 12346 631629064) -> 6173/315814532) ((5143 . 5625) (/ 12346 631629065) -> 12346/631629065) ((5144 . 5625) (/ 12346 631629066) -> 6173/315814533) ((5145 . 5625) (/ 12346 631629067) -> 12346/631629067) ((5146 . 5625) (/ 12347 631629063) -> 12347/631629063) ((5147 . 5625) (/ 12347 631629064) -> 12347/631629064) ((5148 . 5625) (/ 12347 631629065) -> 12347/631629065) ((5149 . 5625) (/ 12347 631629066) -> 12347/631629066) ((5150 . 5625) (/ 12347 631629067) -> 12347/631629067) ((5151 . 5625) (/ 12343 9007199254740990) -> 12343/9007199254740990) ((5152 . 5625) (/ 12343 9007199254740991) -> 12343/9007199254740991) ((5153 . 5625) (/ 12343 9007199254740992) -> 12343/9007199254740992) ((5154 . 5625) (/ 12343 9007199254740993) -> 12343/9007199254740993) ((5155 . 5625) (/ 12343 9007199254740994) -> 12343/9007199254740994) ((5156 . 5625) (/ 12344 9007199254740990) -> 6172/4503599627370495) ((5157 . 5625) (/ 12344 9007199254740991) -> 12344/9007199254740991) ((5158 . 5625) (/ 12344 9007199254740992) -> 1543/1125899906842624) ((5159 . 5625) (/ 12344 9007199254740993) -> 12344/9007199254740993) ((5160 . 5625) (/ 12344 9007199254740994) -> 6172/4503599627370497) ((5161 . 5625) (/ 12345 9007199254740990) -> 823/600479950316066) ((5162 . 5625) (/ 12345 9007199254740991) -> 12345/9007199254740991) ((5163 . 5625) (/ 12345 9007199254740992) -> 12345/9007199254740992) ((5164 . 5625) (/ 12345 9007199254740993) -> 4115/3002399751580331) ((5165 . 5625) (/ 12345 9007199254740994) -> 12345/9007199254740994) ((5166 . 5625) (/ 12346 9007199254740990) -> 6173/4503599627370495) ((5167 . 5625) (/ 12346 9007199254740991) -> 12346/9007199254740991) ((5168 . 5625) (/ 12346 9007199254740992) -> 6173/4503599627370496) ((5169 . 5625) (/ 12346 9007199254740993) -> 12346/9007199254740993) ((5170 . 5625) (/ 12346 9007199254740994) -> 6173/4503599627370497) ((5171 . 5625) (/ 12347 9007199254740990) -> 12347/9007199254740990) ((5172 . 5625) (/ 12347 9007199254740991) -> 12347/9007199254740991) ((5173 . 5625) (/ 12347 9007199254740992) -> 12347/9007199254740992) ((5174 . 5625) (/ 12347 9007199254740993) -> 12347/9007199254740993) ((5175 . 5625) (/ 12347 9007199254740994) -> 12347/9007199254740994) ((5176 . 5625) (/ 12343 -9007199254740994) -> -12343/9007199254740994) ((5177 . 5625) (/ 12343 -9007199254740993) -> -12343/9007199254740993) ((5178 . 5625) (/ 12343 -9007199254740992) -> -12343/9007199254740992) ((5179 . 5625) (/ 12343 -9007199254740991) -> -12343/9007199254740991) ((5180 . 5625) (/ 12343 -9007199254740990) -> -12343/9007199254740990) ((5181 . 5625) (/ 12344 -9007199254740994) -> -6172/4503599627370497) ((5182 . 5625) (/ 12344 -9007199254740993) -> -12344/9007199254740993) ((5183 . 5625) (/ 12344 -9007199254740992) -> -1543/1125899906842624) ((5184 . 5625) (/ 12344 -9007199254740991) -> -12344/9007199254740991) ((5185 . 5625) (/ 12344 -9007199254740990) -> -6172/4503599627370495) ((5186 . 5625) (/ 12345 -9007199254740994) -> -12345/9007199254740994) ((5187 . 5625) (/ 12345 -9007199254740993) -> -4115/3002399751580331) ((5188 . 5625) (/ 12345 -9007199254740992) -> -12345/9007199254740992) ((5189 . 5625) (/ 12345 -9007199254740991) -> -12345/9007199254740991) ((5190 . 5625) (/ 12345 -9007199254740990) -> -823/600479950316066) ((5191 . 5625) (/ 12346 -9007199254740994) -> -6173/4503599627370497) ((5192 . 5625) (/ 12346 -9007199254740993) -> -12346/9007199254740993) ((5193 . 5625) (/ 12346 -9007199254740992) -> -6173/4503599627370496) ((5194 . 5625) (/ 12346 -9007199254740991) -> -12346/9007199254740991) ((5195 . 5625) (/ 12346 -9007199254740990) -> -6173/4503599627370495) ((5196 . 5625) (/ 12347 -9007199254740994) -> -12347/9007199254740994) ((5197 . 5625) (/ 12347 -9007199254740993) -> -12347/9007199254740993) ((5198 . 5625) (/ 12347 -9007199254740992) -> -12347/9007199254740992) ((5199 . 5625) (/ 12347 -9007199254740991) -> -12347/9007199254740991) ((5200 . 5625) (/ 12347 -9007199254740990) -> -12347/9007199254740990) ((5201 . 5625) (/ 12343 12343) -> 1) ((5202 . 5625) (/ 12343 12344) -> 12343/12344) ((5203 . 5625) (/ 12343 12345) -> 12343/12345) ((5204 . 5625) (/ 12343 12346) -> 12343/12346) ((5205 . 5625) (/ 12343 12347) -> 12343/12347) ((5206 . 5625) (/ 12344 12343) -> 12344/12343) ((5207 . 5625) (/ 12344 12344) -> 1) ((5208 . 5625) (/ 12344 12345) -> 12344/12345) ((5209 . 5625) (/ 12344 12346) -> 6172/6173) ((5210 . 5625) (/ 12344 12347) -> 12344/12347) ((5211 . 5625) (/ 12345 12343) -> 12345/12343) ((5212 . 5625) (/ 12345 12344) -> 12345/12344) ((5213 . 5625) (/ 12345 12345) -> 1) ((5214 . 5625) (/ 12345 12346) -> 12345/12346) ((5215 . 5625) (/ 12345 12347) -> 12345/12347) ((5216 . 5625) (/ 12346 12343) -> 12346/12343) ((5217 . 5625) (/ 12346 12344) -> 6173/6172) ((5218 . 5625) (/ 12346 12345) -> 12346/12345) ((5219 . 5625) (/ 12346 12346) -> 1) ((5220 . 5625) (/ 12346 12347) -> 12346/12347) ((5221 . 5625) (/ 12347 12343) -> 12347/12343) ((5222 . 5625) (/ 12347 12344) -> 12347/12344) ((5223 . 5625) (/ 12347 12345) -> 12347/12345) ((5224 . 5625) (/ 12347 12346) -> 12347/12346) ((5225 . 5625) (/ 12347 12347) -> 1) ((5226 . 5625) (/ 12343 4294967294) -> 12343/4294967294) ((5227 . 5625) (/ 12343 4294967295) -> 12343/4294967295) ((5228 . 5625) (/ 12343 4294967296) -> 12343/4294967296) ((5229 . 5625) (/ 12343 4294967297) -> 12343/4294967297) ((5230 . 5625) (/ 12343 4294967298) -> 12343/4294967298) ((5231 . 5625) (/ 12344 4294967294) -> 6172/2147483647) ((5232 . 5625) (/ 12344 4294967295) -> 12344/4294967295) ((5233 . 5625) (/ 12344 4294967296) -> 1543/536870912) ((5234 . 5625) (/ 12344 4294967297) -> 12344/4294967297) ((5235 . 5625) (/ 12344 4294967298) -> 6172/2147483649) ((5236 . 5625) (/ 12345 4294967294) -> 12345/4294967294) ((5237 . 5625) (/ 12345 4294967295) -> 823/286331153) ((5238 . 5625) (/ 12345 4294967296) -> 12345/4294967296) ((5239 . 5625) (/ 12345 4294967297) -> 12345/4294967297) ((5240 . 5625) (/ 12345 4294967298) -> 4115/1431655766) ((5241 . 5625) (/ 12346 4294967294) -> 6173/2147483647) ((5242 . 5625) (/ 12346 4294967295) -> 12346/4294967295) ((5243 . 5625) (/ 12346 4294967296) -> 6173/2147483648) ((5244 . 5625) (/ 12346 4294967297) -> 12346/4294967297) ((5245 . 5625) (/ 12346 4294967298) -> 6173/2147483649) ((5246 . 5625) (/ 12347 4294967294) -> 12347/4294967294) ((5247 . 5625) (/ 12347 4294967295) -> 12347/4294967295) ((5248 . 5625) (/ 12347 4294967296) -> 12347/4294967296) ((5249 . 5625) (/ 12347 4294967297) -> 12347/4294967297) ((5250 . 5625) (/ 12347 4294967298) -> 12347/4294967298) ((5251 . 5625) (/ 4294967294 -2) -> -2147483647) ((5252 . 5625) (/ 4294967294 -1) -> -4294967294) ((5253 . 5625) (/ 4294967294 0) -> "division by zero") ((5254 . 5625) (/ 4294967294 1) -> 4294967294) ((5255 . 5625) (/ 4294967294 2) -> 2147483647) ((5256 . 5625) (/ 4294967295 -2) -> -4294967295/2) ((5257 . 5625) (/ 4294967295 -1) -> -4294967295) ((5258 . 5625) (/ 4294967295 0) -> "division by zero") ((5259 . 5625) (/ 4294967295 1) -> 4294967295) ((5260 . 5625) (/ 4294967295 2) -> 4294967295/2) ((5261 . 5625) (/ 4294967296 -2) -> -2147483648) ((5262 . 5625) (/ 4294967296 -1) -> -4294967296) ((5263 . 5625) (/ 4294967296 0) -> "division by zero") ((5264 . 5625) (/ 4294967296 1) -> 4294967296) ((5265 . 5625) (/ 4294967296 2) -> 2147483648) ((5266 . 5625) (/ 4294967297 -2) -> -4294967297/2) ((5267 . 5625) (/ 4294967297 -1) -> -4294967297) ((5268 . 5625) (/ 4294967297 0) -> "division by zero") ((5269 . 5625) (/ 4294967297 1) -> 4294967297) ((5270 . 5625) (/ 4294967297 2) -> 4294967297/2) ((5271 . 5625) (/ 4294967298 -2) -> -2147483649) ((5272 . 5625) (/ 4294967298 -1) -> -4294967298) ((5273 . 5625) (/ 4294967298 0) -> "division by zero") ((5274 . 5625) (/ 4294967298 1) -> 4294967298) ((5275 . 5625) (/ 4294967298 2) -> 2147483649) ((5276 . 5625) (/ 4294967294 -1) -> -4294967294) ((5277 . 5625) (/ 4294967294 0) -> "division by zero") ((5278 . 5625) (/ 4294967294 1) -> 4294967294) ((5279 . 5625) (/ 4294967294 2) -> 2147483647) ((5280 . 5625) (/ 4294967294 3) -> 4294967294/3) ((5281 . 5625) (/ 4294967295 -1) -> -4294967295) ((5282 . 5625) (/ 4294967295 0) -> "division by zero") ((5283 . 5625) (/ 4294967295 1) -> 4294967295) ((5284 . 5625) (/ 4294967295 2) -> 4294967295/2) ((5285 . 5625) (/ 4294967295 3) -> 1431655765) ((5286 . 5625) (/ 4294967296 -1) -> -4294967296) ((5287 . 5625) (/ 4294967296 0) -> "division by zero") ((5288 . 5625) (/ 4294967296 1) -> 4294967296) ((5289 . 5625) (/ 4294967296 2) -> 2147483648) ((5290 . 5625) (/ 4294967296 3) -> 4294967296/3) ((5291 . 5625) (/ 4294967297 -1) -> -4294967297) ((5292 . 5625) (/ 4294967297 0) -> "division by zero") ((5293 . 5625) (/ 4294967297 1) -> 4294967297) ((5294 . 5625) (/ 4294967297 2) -> 4294967297/2) ((5295 . 5625) (/ 4294967297 3) -> 4294967297/3) ((5296 . 5625) (/ 4294967298 -1) -> -4294967298) ((5297 . 5625) (/ 4294967298 0) -> "division by zero") ((5298 . 5625) (/ 4294967298 1) -> 4294967298) ((5299 . 5625) (/ 4294967298 2) -> 2147483649) ((5300 . 5625) (/ 4294967298 3) -> 1431655766) ((5301 . 5625) (/ 4294967294 -3) -> -4294967294/3) ((5302 . 5625) (/ 4294967294 -2) -> -2147483647) ((5303 . 5625) (/ 4294967294 -1) -> -4294967294) ((5304 . 5625) (/ 4294967294 0) -> "division by zero") ((5305 . 5625) (/ 4294967294 1) -> 4294967294) ((5306 . 5625) (/ 4294967295 -3) -> -1431655765) ((5307 . 5625) (/ 4294967295 -2) -> -4294967295/2) ((5308 . 5625) (/ 4294967295 -1) -> -4294967295) ((5309 . 5625) (/ 4294967295 0) -> "division by zero") ((5310 . 5625) (/ 4294967295 1) -> 4294967295) ((5311 . 5625) (/ 4294967296 -3) -> -4294967296/3) ((5312 . 5625) (/ 4294967296 -2) -> -2147483648) ((5313 . 5625) (/ 4294967296 -1) -> -4294967296) ((5314 . 5625) (/ 4294967296 0) -> "division by zero") ((5315 . 5625) (/ 4294967296 1) -> 4294967296) ((5316 . 5625) (/ 4294967297 -3) -> -4294967297/3) ((5317 . 5625) (/ 4294967297 -2) -> -4294967297/2) ((5318 . 5625) (/ 4294967297 -1) -> -4294967297) ((5319 . 5625) (/ 4294967297 0) -> "division by zero") ((5320 . 5625) (/ 4294967297 1) -> 4294967297) ((5321 . 5625) (/ 4294967298 -3) -> -1431655766) ((5322 . 5625) (/ 4294967298 -2) -> -2147483649) ((5323 . 5625) (/ 4294967298 -1) -> -4294967298) ((5324 . 5625) (/ 4294967298 0) -> "division by zero") ((5325 . 5625) (/ 4294967298 1) -> 4294967298) ((5326 . 5625) (/ 4294967294 0) -> "division by zero") ((5327 . 5625) (/ 4294967294 1) -> 4294967294) ((5328 . 5625) (/ 4294967294 2) -> 2147483647) ((5329 . 5625) (/ 4294967294 3) -> 4294967294/3) ((5330 . 5625) (/ 4294967294 4) -> 2147483647/2) ((5331 . 5625) (/ 4294967295 0) -> "division by zero") ((5332 . 5625) (/ 4294967295 1) -> 4294967295) ((5333 . 5625) (/ 4294967295 2) -> 4294967295/2) ((5334 . 5625) (/ 4294967295 3) -> 1431655765) ((5335 . 5625) (/ 4294967295 4) -> 4294967295/4) ((5336 . 5625) (/ 4294967296 0) -> "division by zero") ((5337 . 5625) (/ 4294967296 1) -> 4294967296) ((5338 . 5625) (/ 4294967296 2) -> 2147483648) ((5339 . 5625) (/ 4294967296 3) -> 4294967296/3) ((5340 . 5625) (/ 4294967296 4) -> 1073741824) ((5341 . 5625) (/ 4294967297 0) -> "division by zero") ((5342 . 5625) (/ 4294967297 1) -> 4294967297) ((5343 . 5625) (/ 4294967297 2) -> 4294967297/2) ((5344 . 5625) (/ 4294967297 3) -> 4294967297/3) ((5345 . 5625) (/ 4294967297 4) -> 4294967297/4) ((5346 . 5625) (/ 4294967298 0) -> "division by zero") ((5347 . 5625) (/ 4294967298 1) -> 4294967298) ((5348 . 5625) (/ 4294967298 2) -> 2147483649) ((5349 . 5625) (/ 4294967298 3) -> 1431655766) ((5350 . 5625) (/ 4294967298 4) -> 2147483649/2) ((5351 . 5625) (/ 4294967294 -4) -> -2147483647/2) ((5352 . 5625) (/ 4294967294 -3) -> -4294967294/3) ((5353 . 5625) (/ 4294967294 -2) -> -2147483647) ((5354 . 5625) (/ 4294967294 -1) -> -4294967294) ((5355 . 5625) (/ 4294967294 0) -> "division by zero") ((5356 . 5625) (/ 4294967295 -4) -> -4294967295/4) ((5357 . 5625) (/ 4294967295 -3) -> -1431655765) ((5358 . 5625) (/ 4294967295 -2) -> -4294967295/2) ((5359 . 5625) (/ 4294967295 -1) -> -4294967295) ((5360 . 5625) (/ 4294967295 0) -> "division by zero") ((5361 . 5625) (/ 4294967296 -4) -> -1073741824) ((5362 . 5625) (/ 4294967296 -3) -> -4294967296/3) ((5363 . 5625) (/ 4294967296 -2) -> -2147483648) ((5364 . 5625) (/ 4294967296 -1) -> -4294967296) ((5365 . 5625) (/ 4294967296 0) -> "division by zero") ((5366 . 5625) (/ 4294967297 -4) -> -4294967297/4) ((5367 . 5625) (/ 4294967297 -3) -> -4294967297/3) ((5368 . 5625) (/ 4294967297 -2) -> -4294967297/2) ((5369 . 5625) (/ 4294967297 -1) -> -4294967297) ((5370 . 5625) (/ 4294967297 0) -> "division by zero") ((5371 . 5625) (/ 4294967298 -4) -> -2147483649/2) ((5372 . 5625) (/ 4294967298 -3) -> -1431655766) ((5373 . 5625) (/ 4294967298 -2) -> -2147483649) ((5374 . 5625) (/ 4294967298 -1) -> -4294967298) ((5375 . 5625) (/ 4294967298 0) -> "division by zero") ((5376 . 5625) (/ 4294967294 4611686018427387901) -> 4294967294/4611686018427387901) ((5377 . 5625) (/ 4294967294 4611686018427387902) -> 2147483647/2305843009213693951) ((5378 . 5625) (/ 4294967294 4611686018427387903) -> 2/2147483649) ((5379 . 5625) (/ 4294967294 4611686018427387904) -> 2147483647/2305843009213693952) ((5380 . 5625) (/ 4294967294 4611686018427387905) -> 4294967294/4611686018427387905) ((5381 . 5625) (/ 4294967295 4611686018427387901) -> 4294967295/4611686018427387901) ((5382 . 5625) (/ 4294967295 4611686018427387902) -> 4294967295/4611686018427387902) ((5383 . 5625) (/ 4294967295 4611686018427387903) -> 1431655765/1537228672809129301) ((5384 . 5625) (/ 4294967295 4611686018427387904) -> 4294967295/4611686018427387904) ((5385 . 5625) (/ 4294967295 4611686018427387905) -> 858993459/922337203685477581) ((5386 . 5625) (/ 4294967296 4611686018427387901) -> 4294967296/4611686018427387901) ((5387 . 5625) (/ 4294967296 4611686018427387902) -> 2147483648/2305843009213693951) ((5388 . 5625) (/ 4294967296 4611686018427387903) -> 4294967296/4611686018427387903) ((5389 . 5625) (/ 4294967296 4611686018427387904) -> 1/1073741824) ((5390 . 5625) (/ 4294967296 4611686018427387905) -> 4294967296/4611686018427387905) ((5391 . 5625) (/ 4294967297 4611686018427387901) -> 4294967297/4611686018427387901) ((5392 . 5625) (/ 4294967297 4611686018427387902) -> 4294967297/4611686018427387902) ((5393 . 5625) (/ 4294967297 4611686018427387903) -> 4294967297/4611686018427387903) ((5394 . 5625) (/ 4294967297 4611686018427387904) -> 4294967297/4611686018427387904) ((5395 . 5625) (/ 4294967297 4611686018427387905) -> 4294967297/4611686018427387905) ((5396 . 5625) (/ 4294967298 4611686018427387901) -> 4294967298/4611686018427387901) ((5397 . 5625) (/ 4294967298 4611686018427387902) -> 2147483649/2305843009213693951) ((5398 . 5625) (/ 4294967298 4611686018427387903) -> 2/2147483647) ((5399 . 5625) (/ 4294967298 4611686018427387904) -> 2147483649/2305843009213693952) ((5400 . 5625) (/ 4294967298 4611686018427387905) -> 4294967298/4611686018427387905) ((5401 . 5625) (/ 4294967294 -4611686018427387906) -> -2147483647/2305843009213693953) ((5402 . 5625) (/ 4294967294 -4611686018427387905) -> -4294967294/4611686018427387905) ((5403 . 5625) (/ 4294967294 -4611686018427387904) -> -2147483647/2305843009213693952) ((5404 . 5625) (/ 4294967294 -4611686018427387903) -> -2/2147483649) ((5405 . 5625) (/ 4294967294 -4611686018427387902) -> -2147483647/2305843009213693951) ((5406 . 5625) (/ 4294967295 -4611686018427387906) -> -1431655765/1537228672809129302) ((5407 . 5625) (/ 4294967295 -4611686018427387905) -> -858993459/922337203685477581) ((5408 . 5625) (/ 4294967295 -4611686018427387904) -> -4294967295/4611686018427387904) ((5409 . 5625) (/ 4294967295 -4611686018427387903) -> -1431655765/1537228672809129301) ((5410 . 5625) (/ 4294967295 -4611686018427387902) -> -4294967295/4611686018427387902) ((5411 . 5625) (/ 4294967296 -4611686018427387906) -> -2147483648/2305843009213693953) ((5412 . 5625) (/ 4294967296 -4611686018427387905) -> -4294967296/4611686018427387905) ((5413 . 5625) (/ 4294967296 -4611686018427387904) -> -1/1073741824) ((5414 . 5625) (/ 4294967296 -4611686018427387903) -> -4294967296/4611686018427387903) ((5415 . 5625) (/ 4294967296 -4611686018427387902) -> -2147483648/2305843009213693951) ((5416 . 5625) (/ 4294967297 -4611686018427387906) -> -4294967297/4611686018427387906) ((5417 . 5625) (/ 4294967297 -4611686018427387905) -> -4294967297/4611686018427387905) ((5418 . 5625) (/ 4294967297 -4611686018427387904) -> -4294967297/4611686018427387904) ((5419 . 5625) (/ 4294967297 -4611686018427387903) -> -4294967297/4611686018427387903) ((5420 . 5625) (/ 4294967297 -4611686018427387902) -> -4294967297/4611686018427387902) ((5421 . 5625) (/ 4294967298 -4611686018427387906) -> -715827883/768614336404564651) ((5422 . 5625) (/ 4294967298 -4611686018427387905) -> -4294967298/4611686018427387905) ((5423 . 5625) (/ 4294967298 -4611686018427387904) -> -2147483649/2305843009213693952) ((5424 . 5625) (/ 4294967298 -4611686018427387903) -> -2/2147483647) ((5425 . 5625) (/ 4294967298 -4611686018427387902) -> -2147483649/2305843009213693951) ((5426 . 5625) (/ 4294967294 4611686018427387902) -> 2147483647/2305843009213693951) ((5427 . 5625) (/ 4294967294 4611686018427387903) -> 2/2147483649) ((5428 . 5625) (/ 4294967294 4611686018427387904) -> 2147483647/2305843009213693952) ((5429 . 5625) (/ 4294967294 4611686018427387905) -> 4294967294/4611686018427387905) ((5430 . 5625) (/ 4294967294 4611686018427387906) -> 2147483647/2305843009213693953) ((5431 . 5625) (/ 4294967295 4611686018427387902) -> 4294967295/4611686018427387902) ((5432 . 5625) (/ 4294967295 4611686018427387903) -> 1431655765/1537228672809129301) ((5433 . 5625) (/ 4294967295 4611686018427387904) -> 4294967295/4611686018427387904) ((5434 . 5625) (/ 4294967295 4611686018427387905) -> 858993459/922337203685477581) ((5435 . 5625) (/ 4294967295 4611686018427387906) -> 1431655765/1537228672809129302) ((5436 . 5625) (/ 4294967296 4611686018427387902) -> 2147483648/2305843009213693951) ((5437 . 5625) (/ 4294967296 4611686018427387903) -> 4294967296/4611686018427387903) ((5438 . 5625) (/ 4294967296 4611686018427387904) -> 1/1073741824) ((5439 . 5625) (/ 4294967296 4611686018427387905) -> 4294967296/4611686018427387905) ((5440 . 5625) (/ 4294967296 4611686018427387906) -> 2147483648/2305843009213693953) ((5441 . 5625) (/ 4294967297 4611686018427387902) -> 4294967297/4611686018427387902) ((5442 . 5625) (/ 4294967297 4611686018427387903) -> 4294967297/4611686018427387903) ((5443 . 5625) (/ 4294967297 4611686018427387904) -> 4294967297/4611686018427387904) ((5444 . 5625) (/ 4294967297 4611686018427387905) -> 4294967297/4611686018427387905) ((5445 . 5625) (/ 4294967297 4611686018427387906) -> 4294967297/4611686018427387906) ((5446 . 5625) (/ 4294967298 4611686018427387902) -> 2147483649/2305843009213693951) ((5447 . 5625) (/ 4294967298 4611686018427387903) -> 2/2147483647) ((5448 . 5625) (/ 4294967298 4611686018427387904) -> 2147483649/2305843009213693952) ((5449 . 5625) (/ 4294967298 4611686018427387905) -> 4294967298/4611686018427387905) ((5450 . 5625) (/ 4294967298 4611686018427387906) -> 715827883/768614336404564651) ((5451 . 5625) (/ 4294967294 -4611686018427387907) -> -4294967294/4611686018427387907) ((5452 . 5625) (/ 4294967294 -4611686018427387906) -> -2147483647/2305843009213693953) ((5453 . 5625) (/ 4294967294 -4611686018427387905) -> -4294967294/4611686018427387905) ((5454 . 5625) (/ 4294967294 -4611686018427387904) -> -2147483647/2305843009213693952) ((5455 . 5625) (/ 4294967294 -4611686018427387903) -> -2/2147483649) ((5456 . 5625) (/ 4294967295 -4611686018427387907) -> -4294967295/4611686018427387907) ((5457 . 5625) (/ 4294967295 -4611686018427387906) -> -1431655765/1537228672809129302) ((5458 . 5625) (/ 4294967295 -4611686018427387905) -> -858993459/922337203685477581) ((5459 . 5625) (/ 4294967295 -4611686018427387904) -> -4294967295/4611686018427387904) ((5460 . 5625) (/ 4294967295 -4611686018427387903) -> -1431655765/1537228672809129301) ((5461 . 5625) (/ 4294967296 -4611686018427387907) -> -4294967296/4611686018427387907) ((5462 . 5625) (/ 4294967296 -4611686018427387906) -> -2147483648/2305843009213693953) ((5463 . 5625) (/ 4294967296 -4611686018427387905) -> -4294967296/4611686018427387905) ((5464 . 5625) (/ 4294967296 -4611686018427387904) -> -1/1073741824) ((5465 . 5625) (/ 4294967296 -4611686018427387903) -> -4294967296/4611686018427387903) ((5466 . 5625) (/ 4294967297 -4611686018427387907) -> -4294967297/4611686018427387907) ((5467 . 5625) (/ 4294967297 -4611686018427387906) -> -4294967297/4611686018427387906) ((5468 . 5625) (/ 4294967297 -4611686018427387905) -> -4294967297/4611686018427387905) ((5469 . 5625) (/ 4294967297 -4611686018427387904) -> -4294967297/4611686018427387904) ((5470 . 5625) (/ 4294967297 -4611686018427387903) -> -4294967297/4611686018427387903) ((5471 . 5625) (/ 4294967298 -4611686018427387907) -> -4294967298/4611686018427387907) ((5472 . 5625) (/ 4294967298 -4611686018427387906) -> -715827883/768614336404564651) ((5473 . 5625) (/ 4294967298 -4611686018427387905) -> -4294967298/4611686018427387905) ((5474 . 5625) (/ 4294967298 -4611686018427387904) -> -2147483649/2305843009213693952) ((5475 . 5625) (/ 4294967298 -4611686018427387903) -> -2/2147483647) ((5476 . 5625) (/ 4294967294 1103515243) -> 4294967294/1103515243) ((5477 . 5625) (/ 4294967294 1103515244) -> 2147483647/551757622) ((5478 . 5625) (/ 4294967294 1103515245) -> 4294967294/1103515245) ((5479 . 5625) (/ 4294967294 1103515246) -> 2147483647/551757623) ((5480 . 5625) (/ 4294967294 1103515247) -> 4294967294/1103515247) ((5481 . 5625) (/ 4294967295 1103515243) -> 4294967295/1103515243) ((5482 . 5625) (/ 4294967295 1103515244) -> 4294967295/1103515244) ((5483 . 5625) (/ 4294967295 1103515245) -> 286331153/73567683) ((5484 . 5625) (/ 4294967295 1103515246) -> 4294967295/1103515246) ((5485 . 5625) (/ 4294967295 1103515247) -> 4294967295/1103515247) ((5486 . 5625) (/ 4294967296 1103515243) -> 4294967296/1103515243) ((5487 . 5625) (/ 4294967296 1103515244) -> 1073741824/275878811) ((5488 . 5625) (/ 4294967296 1103515245) -> 4294967296/1103515245) ((5489 . 5625) (/ 4294967296 1103515246) -> 2147483648/551757623) ((5490 . 5625) (/ 4294967296 1103515247) -> 4294967296/1103515247) ((5491 . 5625) (/ 4294967297 1103515243) -> 4294967297/1103515243) ((5492 . 5625) (/ 4294967297 1103515244) -> 4294967297/1103515244) ((5493 . 5625) (/ 4294967297 1103515245) -> 4294967297/1103515245) ((5494 . 5625) (/ 4294967297 1103515246) -> 4294967297/1103515246) ((5495 . 5625) (/ 4294967297 1103515247) -> 4294967297/1103515247) ((5496 . 5625) (/ 4294967298 1103515243) -> 4294967298/1103515243) ((5497 . 5625) (/ 4294967298 1103515244) -> 2147483649/551757622) ((5498 . 5625) (/ 4294967298 1103515245) -> 1431655766/367838415) ((5499 . 5625) (/ 4294967298 1103515246) -> 2147483649/551757623) ((5500 . 5625) (/ 4294967298 1103515247) -> 4294967298/1103515247) ((5501 . 5625) (/ 4294967294 631629063) -> 4294967294/631629063) ((5502 . 5625) (/ 4294967294 631629064) -> 2147483647/315814532) ((5503 . 5625) (/ 4294967294 631629065) -> 4294967294/631629065) ((5504 . 5625) (/ 4294967294 631629066) -> 2147483647/315814533) ((5505 . 5625) (/ 4294967294 631629067) -> 4294967294/631629067) ((5506 . 5625) (/ 4294967295 631629063) -> 1431655765/210543021) ((5507 . 5625) (/ 4294967295 631629064) -> 4294967295/631629064) ((5508 . 5625) (/ 4294967295 631629065) -> 858993459/126325813) ((5509 . 5625) (/ 4294967295 631629066) -> 1431655765/210543022) ((5510 . 5625) (/ 4294967295 631629067) -> 252645135/37154651) ((5511 . 5625) (/ 4294967296 631629063) -> 4294967296/631629063) ((5512 . 5625) (/ 4294967296 631629064) -> 536870912/78953633) ((5513 . 5625) (/ 4294967296 631629065) -> 4294967296/631629065) ((5514 . 5625) (/ 4294967296 631629066) -> 2147483648/315814533) ((5515 . 5625) (/ 4294967296 631629067) -> 4294967296/631629067) ((5516 . 5625) (/ 4294967297 631629063) -> 4294967297/631629063) ((5517 . 5625) (/ 4294967297 631629064) -> 4294967297/631629064) ((5518 . 5625) (/ 4294967297 631629065) -> 4294967297/631629065) ((5519 . 5625) (/ 4294967297 631629066) -> 4294967297/631629066) ((5520 . 5625) (/ 4294967297 631629067) -> 4294967297/631629067) ((5521 . 5625) (/ 4294967298 631629063) -> 1431655766/210543021) ((5522 . 5625) (/ 4294967298 631629064) -> 2147483649/315814532) ((5523 . 5625) (/ 4294967298 631629065) -> 4294967298/631629065) ((5524 . 5625) (/ 4294967298 631629066) -> 715827883/105271511) ((5525 . 5625) (/ 4294967298 631629067) -> 4294967298/631629067) ((5526 . 5625) (/ 4294967294 9007199254740990) -> 2147483647/4503599627370495) ((5527 . 5625) (/ 4294967294 9007199254740991) -> 4294967294/9007199254740991) ((5528 . 5625) (/ 4294967294 9007199254740992) -> 2147483647/4503599627370496) ((5529 . 5625) (/ 4294967294 9007199254740993) -> 4294967294/9007199254740993) ((5530 . 5625) (/ 4294967294 9007199254740994) -> 2147483647/4503599627370497) ((5531 . 5625) (/ 4294967295 9007199254740990) -> 286331153/600479950316066) ((5532 . 5625) (/ 4294967295 9007199254740991) -> 4294967295/9007199254740991) ((5533 . 5625) (/ 4294967295 9007199254740992) -> 4294967295/9007199254740992) ((5534 . 5625) (/ 4294967295 9007199254740993) -> 1431655765/3002399751580331) ((5535 . 5625) (/ 4294967295 9007199254740994) -> 252645135/529835250278882) ((5536 . 5625) (/ 4294967296 9007199254740990) -> 2147483648/4503599627370495) ((5537 . 5625) (/ 4294967296 9007199254740991) -> 4294967296/9007199254740991) ((5538 . 5625) (/ 4294967296 9007199254740992) -> 1/2097152) ((5539 . 5625) (/ 4294967296 9007199254740993) -> 4294967296/9007199254740993) ((5540 . 5625) (/ 4294967296 9007199254740994) -> 2147483648/4503599627370497) ((5541 . 5625) (/ 4294967297 9007199254740990) -> 4294967297/9007199254740990) ((5542 . 5625) (/ 4294967297 9007199254740991) -> 4294967297/9007199254740991) ((5543 . 5625) (/ 4294967297 9007199254740992) -> 4294967297/9007199254740992) ((5544 . 5625) (/ 4294967297 9007199254740993) -> 4294967297/9007199254740993) ((5545 . 5625) (/ 4294967297 9007199254740994) -> 4294967297/9007199254740994) ((5546 . 5625) (/ 4294967298 9007199254740990) -> 715827883/1501199875790165) ((5547 . 5625) (/ 4294967298 9007199254740991) -> 4294967298/9007199254740991) ((5548 . 5625) (/ 4294967298 9007199254740992) -> 2147483649/4503599627370496) ((5549 . 5625) (/ 4294967298 9007199254740993) -> 1431655766/3002399751580331) ((5550 . 5625) (/ 4294967298 9007199254740994) -> 2147483649/4503599627370497) ((5551 . 5625) (/ 4294967294 -9007199254740994) -> -2147483647/4503599627370497) ((5552 . 5625) (/ 4294967294 -9007199254740993) -> -4294967294/9007199254740993) ((5553 . 5625) (/ 4294967294 -9007199254740992) -> -2147483647/4503599627370496) ((5554 . 5625) (/ 4294967294 -9007199254740991) -> -4294967294/9007199254740991) ((5555 . 5625) (/ 4294967294 -9007199254740990) -> -2147483647/4503599627370495) ((5556 . 5625) (/ 4294967295 -9007199254740994) -> -252645135/529835250278882) ((5557 . 5625) (/ 4294967295 -9007199254740993) -> -1431655765/3002399751580331) ((5558 . 5625) (/ 4294967295 -9007199254740992) -> -4294967295/9007199254740992) ((5559 . 5625) (/ 4294967295 -9007199254740991) -> -4294967295/9007199254740991) ((5560 . 5625) (/ 4294967295 -9007199254740990) -> -286331153/600479950316066) ((5561 . 5625) (/ 4294967296 -9007199254740994) -> -2147483648/4503599627370497) ((5562 . 5625) (/ 4294967296 -9007199254740993) -> -4294967296/9007199254740993) ((5563 . 5625) (/ 4294967296 -9007199254740992) -> -1/2097152) ((5564 . 5625) (/ 4294967296 -9007199254740991) -> -4294967296/9007199254740991) ((5565 . 5625) (/ 4294967296 -9007199254740990) -> -2147483648/4503599627370495) ((5566 . 5625) (/ 4294967297 -9007199254740994) -> -4294967297/9007199254740994) ((5567 . 5625) (/ 4294967297 -9007199254740993) -> -4294967297/9007199254740993) ((5568 . 5625) (/ 4294967297 -9007199254740992) -> -4294967297/9007199254740992) ((5569 . 5625) (/ 4294967297 -9007199254740991) -> -4294967297/9007199254740991) ((5570 . 5625) (/ 4294967297 -9007199254740990) -> -4294967297/9007199254740990) ((5571 . 5625) (/ 4294967298 -9007199254740994) -> -2147483649/4503599627370497) ((5572 . 5625) (/ 4294967298 -9007199254740993) -> -1431655766/3002399751580331) ((5573 . 5625) (/ 4294967298 -9007199254740992) -> -2147483649/4503599627370496) ((5574 . 5625) (/ 4294967298 -9007199254740991) -> -4294967298/9007199254740991) ((5575 . 5625) (/ 4294967298 -9007199254740990) -> -715827883/1501199875790165) ((5576 . 5625) (/ 4294967294 12343) -> 4294967294/12343) ((5577 . 5625) (/ 4294967294 12344) -> 2147483647/6172) ((5578 . 5625) (/ 4294967294 12345) -> 4294967294/12345) ((5579 . 5625) (/ 4294967294 12346) -> 2147483647/6173) ((5580 . 5625) (/ 4294967294 12347) -> 4294967294/12347) ((5581 . 5625) (/ 4294967295 12343) -> 4294967295/12343) ((5582 . 5625) (/ 4294967295 12344) -> 4294967295/12344) ((5583 . 5625) (/ 4294967295 12345) -> 286331153/823) ((5584 . 5625) (/ 4294967295 12346) -> 4294967295/12346) ((5585 . 5625) (/ 4294967295 12347) -> 4294967295/12347) ((5586 . 5625) (/ 4294967296 12343) -> 4294967296/12343) ((5587 . 5625) (/ 4294967296 12344) -> 536870912/1543) ((5588 . 5625) (/ 4294967296 12345) -> 4294967296/12345) ((5589 . 5625) (/ 4294967296 12346) -> 2147483648/6173) ((5590 . 5625) (/ 4294967296 12347) -> 4294967296/12347) ((5591 . 5625) (/ 4294967297 12343) -> 4294967297/12343) ((5592 . 5625) (/ 4294967297 12344) -> 4294967297/12344) ((5593 . 5625) (/ 4294967297 12345) -> 4294967297/12345) ((5594 . 5625) (/ 4294967297 12346) -> 4294967297/12346) ((5595 . 5625) (/ 4294967297 12347) -> 4294967297/12347) ((5596 . 5625) (/ 4294967298 12343) -> 4294967298/12343) ((5597 . 5625) (/ 4294967298 12344) -> 2147483649/6172) ((5598 . 5625) (/ 4294967298 12345) -> 1431655766/4115) ((5599 . 5625) (/ 4294967298 12346) -> 2147483649/6173) ((5600 . 5625) (/ 4294967298 12347) -> 4294967298/12347) ((5601 . 5625) (/ 4294967294 4294967294) -> 1) ((5602 . 5625) (/ 4294967294 4294967295) -> 4294967294/4294967295) ((5603 . 5625) (/ 4294967294 4294967296) -> 2147483647/2147483648) ((5604 . 5625) (/ 4294967294 4294967297) -> 4294967294/4294967297) ((5605 . 5625) (/ 4294967294 4294967298) -> 2147483647/2147483649) ((5606 . 5625) (/ 4294967295 4294967294) -> 4294967295/4294967294) ((5607 . 5625) (/ 4294967295 4294967295) -> 1) ((5608 . 5625) (/ 4294967295 4294967296) -> 4294967295/4294967296) ((5609 . 5625) (/ 4294967295 4294967297) -> 4294967295/4294967297) ((5610 . 5625) (/ 4294967295 4294967298) -> 1431655765/1431655766) ((5611 . 5625) (/ 4294967296 4294967294) -> 2147483648/2147483647) ((5612 . 5625) (/ 4294967296 4294967295) -> 4294967296/4294967295) ((5613 . 5625) (/ 4294967296 4294967296) -> 1) ((5614 . 5625) (/ 4294967296 4294967297) -> 4294967296/4294967297) ((5615 . 5625) (/ 4294967296 4294967298) -> 2147483648/2147483649) ((5616 . 5625) (/ 4294967297 4294967294) -> 4294967297/4294967294) ((5617 . 5625) (/ 4294967297 4294967295) -> 4294967297/4294967295) ((5618 . 5625) (/ 4294967297 4294967296) -> 4294967297/4294967296) ((5619 . 5625) (/ 4294967297 4294967297) -> 1) ((5620 . 5625) (/ 4294967297 4294967298) -> 4294967297/4294967298) ((5621 . 5625) (/ 4294967298 4294967294) -> 2147483649/2147483647) ((5622 . 5625) (/ 4294967298 4294967295) -> 1431655766/1431655765) ((5623 . 5625) (/ 4294967298 4294967296) -> 2147483649/2147483648) ((5624 . 5625) (/ 4294967298 4294967297) -> 4294967298/4294967297) ((5625 . 5625) (/ 4294967298 4294967298) -> 1) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/test-scrutinizer-message-format.scm���������������������������������������������0000644�0001750�0001750�00000007244�13502227553�023056� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import (chicken time)) (: deprecated-foo deprecated) (define deprecated-foo 1) (: deprecated-foo2 (deprecated foo)) (define deprecated-foo2 2) (: foo boolean) (define foo #t) (define (r-proc-call-argument-count-mismatch) (cons '())) (define (r-proc-call-argument-type-mismatch) (length 'symbol)) (define (r-proc-call-argument-value-count) (list (cpu-time)) (vector (values)) ((values))) (define (r-cond-branch-value-count-mismatch) (if (the * 1) 1 (values 1 2))) (define (r-invalid-called-procedure-type) (1 2)) (define (r-pred-call-always-true) (list? '())) (define (r-pred-call-always-false) (symbol? 1)) (define (r-cond-test-always-true) (if 'symbol 1)) (define (r-cond-test-always-false) (if #f 1)) (define (r-type-mismatch-in-the) (the symbol 1)) (define (r-zero-values-for-the) (the symbol (values))) (define (r-too-many-values-for-the) (the symbol (values 1 2))) (define (r-toplevel-var-assignment-type-mismatch) (set! foo 1)) (define (r-deprecated-identifier) (list deprecated-foo) (vector deprecated-foo2)) (set! foo 1) ;; These have special cases (define (list-ref-negative-index) (list-ref '() -1)) (define (list-ref-out-of-range) (list-ref '() 1)) (define (append-invalid-arg) (append 1 (list 1))) (define (vector-ref-out-of-range) (vector-ref (vector) -1)) ;; This is disabled because fail-compiler-typecase is a fatal warning ;; (define (fail-compiler-typecase) (compiler-typecase 1 (symbol 1) (list 2))) (module m () (import scheme) (import (chicken base) (chicken type) (chicken time)) (: foo2 boolean) (define foo2 #t) (: deprecated-foo deprecated) (define deprecated-foo 1) (: deprecated-foo2 (deprecated foo)) (define deprecated-foo2 2) (define (toplevel-foo) (define (local-bar) (define (r-proc-call-argument-count-mismatch) (cons '())) (define (r-proc-call-argument-type-mismatch) (length 'symbol)) (define (r-proc-call-argument-value-count) (list (cpu-time)) (vector (values))) (define (r-cond-branch-value-count-mismatch) (if (the * 1) 1 (cpu-time))) (define (r-invalid-called-procedure-type) (define (variable) (foo2 2)) (define (non-variable) (1 2))) (define (r-pred-call-always-true) (list? '())) (define (r-pred-call-always-false) (symbol? 1)) (define (r-cond-test-always-true) (if (length '()) 1)) (define (r-cond-test-always-false) (if #f 1)) (define (r-type-mismatch-in-the) (the symbol 1)) (define (r-zero-values-for-the) (the symbol (values))) (define (r-too-many-values-for-the) (the symbol (values 1 2))) (define (r-toplevel-var-assignment-type-mismatch) (set! foo2 1)) (define (r-deprecated-identifier) (list deprecated-foo) (vector deprecated-foo2)) (define (r-let-value-count-invalid) (define (zero-values-for-let) (let ((a (values))) a)) (define (too-many-values-for-let) (let ((a (values 1 2))) a))) (define (r-conditional-value-count-invalid) (define (zero-values-for-conditional) (if (values) 1)) (define (too-many-values-for-conditional) (if (values (the * 1) 2) 1))) (define (r-assignment-value-count-invalid) (define (zero-values-for-assignment) (set! foo (values))) (define (too-many-values-for-assignment) (set! foo (values #t 2)))) ;; These have special cases (define (list-ref-negative-index) (list-ref '() -1)) (define (list-ref-out-of-range) (list-ref '() 1)) (define (append-invalid-arg) (append 1 (list 1))) (define (vector-ref-out-of-range) (vector-ref (vector) -1)) (define (r-cond-test-always-true-with-pred) (if (symbol? 'symbol) 1)) (define (r-cond-test-always-false-with-pred) (if (symbol? 1) 1)) (define (fail-compiler-typecase) (compiler-typecase 1 (symbol 1) (list 2))) ))) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/inlining-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000000761�13213463160�017547� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; inlining-tests.scm - test inlining ;;; SVN rev. 15495: local assignment did not mark lexical as "captured" (define (foo n) (let ((r #f)) (for-each (lambda (m) (case m ((abc) (set! r #t)) ((def) (set! r 'ok)) ((xyz) (set! r 'yo)))) n) r)) (assert (eq? #t (foo '(abc)))) ;;; SVN rev. 15511: multiple assignments didn't make global variable unknown for local inlining (define (bar) (set! foo (lambda () 1))) (define (foo) 0) (bar) (assert (= 1 (foo))) ���������������chicken-5.1.0/tests/module-tests.scm����������������������������������������������������������������0000644�0001750�0001750�00000016571�13370655400�017237� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; module-tests.scm (import (chicken eval) (chicken load)) (cond-expand (compiling (include "test.scm") ) (else (load-relative "test.scm"))) (test-begin "modules") (test-assert "r4rs" (module test-r4rs () (import r4rs) (equal? 1 1))) (test-assert "r4rs-null" (module test-r4rs-null () (import r4rs-null) (begin #t))) (test-equal "internal/variable" (module foo (abc def) (import scheme) (define (abc x) (+ x 33)) (define-syntax def (syntax-rules () ((_ x) (+ 99 (abc x))))) (abc 1)) 34) (test-error "external/unimported variable (fail)" (abc 2)) (test-error "external/unimported syntax (fail)" (def 3)) (import foo) (test-equal "external/imported variable" (abc 4) 37) (test-equal "external/imported syntax" (def 5) 137) (module bar (x y) (import (prefix scheme s:)) (s:define (x y) (s:* y 2)) (s:define y 1)) (import (prefix (only (except (rename bar (x z)) y) z) "bar-")) (test-equal "modified import" (bar-z 10) 20) (test-error "hidden import" y) (module baz ((x s:list)) (import (prefix scheme s:)) (s:define-syntax x (syntax-rules () ((_ x) (s:list x))))) (import baz) (test-equal "prefixed import and reexport" (x 1) '(1)) (module m1 ((bar gna)) (import scheme) (define (gna x) (list 'gna x)) (define-syntax bar (syntax-rules () ((_ x) (baz x)))) (define-syntax baz (syntax-rules () ((_ x) (gna 'x))))) (module m2 (run) (import scheme (chicken base) m1) (define-syntax baz (syntax-rules () ((_ x) (list 'goo 'x)))) (define (gna x) (print "ok.")) (define (run) (gna 9) (bar 99))) (import (only m2 run)) (test-equal "indirect imports" (run) '(gna 99)) (module m1 ((s1 f1)) (import scheme (chicken base)) (define (f1) (print "f1") 'f1) (define-syntax s1 (syntax-rules () ((_) (f1))))) (module m2 (s2) (import scheme m1) (define-syntax s2 (syntax-rules () ((_) (s1))))) (module m3 (s3) (import scheme m2) (define-syntax s3 (syntax-rules () ((_) (s2))))) (import m3) (test-equal "chained indirect imports" (s3) 'f1) (module literal-compare-test (s1) (import scheme) (define-syntax s1 (syntax-rules (and) ((_ (and x)) (list x)))) ) (import literal-compare-test) (test-equal "literal compare and export" (s1 (and 100)) '(100)) (module y (y1) (import scheme) (define y1 10)) (module x (magnitude) (import (except scheme magnitude) y) (define magnitude y1)) (test-equal "redefinition of indirect import" (procedure? magnitude) #t) (import x) (test-equal "redefinition of indirect import (II)" magnitude 10) (module m10 (m10x m10y) (import scheme) (define m10x 99) (define-syntax m10y (syntax-rules () ((_ x) (list 'x))))) (module m11 (m10x m10y) (import m10)) (import m11) (test-equal "value reexport" m10x 99) (test-equal "syntax reexport" (m10y 3) '(3)) ;; found by Jim Ursetto; (module m12 (begin0) (import scheme) (define-syntax begin0 (syntax-rules () ((_ e0 e1 ...) (##sys#call-with-values (lambda () e0) (lambda var (begin e1 ... (apply ##sys#values var)))))))) (test-equal "primitive indirect value-binding reexport" (module m13 () (import m12) ; note absence of "scheme" (begin0 1 2 3)) 1) (module m14 (test-extlambda) (import scheme) (define (test-extlambda string #!optional whatever) string)) (import m14) (test-equal "extended lambda list uses expansion environment" "some text" (test-extlambda "some text")) ;;; import-forms in `require-extension': (module m15 () (import scheme (chicken base)) (import (prefix (rename srfi-4 (u8vector u)) 99:)) (print 99:u)) ;;; expansion of macros into modules: (module m16 (foo-module) (import scheme) (define-syntax foo-module (syntax-rules () ((_ name) (module name (maker definer) (import scheme) (define (maker) 'name) (define-syntax definer (syntax-rules () ((_) (define (name) 'name)))))))) ) (import m16) (foo-module abc) (import abc) (test-equal "function defined in module that is the result of an expansion" 'abc (maker)) (definer) (test-equal "syntax defined in module that is the result of an expansion" 'abc (abc)) (module m17 (a) (import scheme) (define a 1)) (begin-for-syntax ; XXX workaround for missing module alias functionality (##sys#register-module-alias 'm18 'm17)) (module m19 (a) (import scheme) (define a 2)) (test-equal "global module alias scope (1)" (module m20 () (import scheme) (import m18) a) 1) (test-equal "local module alias scope" (module m21 () (import scheme (chicken syntax)) (begin-for-syntax ; XXX s.a. (##sys#register-module-alias 'm18 'm19)) (import m18) a) 2) (test-equal "global module alias scope (2)" (module m20 () (import scheme) (import m18) a) 1) ;; #865 - "*" export list needs special treatment when using "export" ;; (fix contributed by "megane") (module m22 * (import scheme) (define b 2)) (module m23 * (import (chicken module)) (import m22) (export b) ) (test-equal "`*' export-list + explicit export" (module m24 () (import m23) b) 2) ;; (contributed by "megane") (module m25 * (import scheme) (define foo 1)) (module m26 (bar) (import (chicken module) scheme) (reexport m25) (define bar 2)) (module m27 * (import (chicken module) scheme) (reexport m25) ;; <- oops, bar not exported anymore (define bar 2)) (test-equal "handle star-exporting module with reexport" (module m28 () (import scheme (chicken base)) (import (prefix m26 b/)) (import (prefix m27 c/)) (print b/foo) (print c/foo) (print b/bar) c/bar) ;; <- Error: unbound variable: c/bar 2) ;; somewhat related, but with syntax (#882, found by megane): (module m29 * (import (chicken syntax) scheme) (define-syntax m29-baz (er-macro-transformer (lambda _ ''foo)))) (module m30 * (import (chicken module)) (import m29) (export m29-baz)) (test-equal "star-export with explicit re-export of syntax" (module m31 () (import scheme) (import m30) (m29-baz)) 'foo) ;; list-style library names (test-assert (module (m33 a) * (import (scheme)) (define (foo) 'ok))) (test-assert (module (m33 b) () (import (scheme) (m33 a)) (eq? (foo) 'ok))) (test-assert (import (prefix (m33 a) m33/a/))) (test-assert (eq? (m33/a/foo) 'ok)) (test-assert (module-environment '(m33 a))) ;; Ensure that the modules system is simply an aliasing mechanism: ;; Module instantion does not create multiple variable copies. (module m31 * (import (chicken base) scheme) (define mutation-count 0) (define (internally-mutate!) (set! mutation-count (add1 mutation-count))) (define (get-count) mutation-count)) (module m32 * (import (chicken base) scheme m31) (define (externally-mutate!) (set! mutation-count (add1 mutation-count)))) (import m31 m32) (test-equal "initial state" 0 mutation-count) (internally-mutate!) (test-equal "After mutating inside defining module" 1 mutation-count) (set! mutation-count 2) (test-equal "After mutating outside module" 2 mutation-count) (externally-mutate!) (test-equal "After mutation by another module" 3 mutation-count) (test-equal "Internal getter returns same thing" 3 (get-count)) (test-assert (not (current-module))) (test-assert (module m33 () (import (scheme) (chicken module)) (eq? (current-module) 'm33))) (test-end "modules") (test-exit) ���������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/data-structures-tests.scm�������������������������������������������������������0000644�0001750�0001750�00000006470�13370655400�021101� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; data-structures-tests.scm (import (chicken sort) (chicken string)) (define-syntax assert-error (syntax-rules () ((_ expr) (assert (handle-exceptions _ #t expr #f))))) (assert (equal? 'bar (alist-ref 'foo '((foo . bar))))) (assert (not (alist-ref 'foo '()))) (assert (not (alist-ref 'foo '((bar . foo))))) (assert-error (alist-ref 'foo 'bar)) (assert-error (alist-ref 'foo '(bar))) (let ((cmp (lambda (x y) (eqv? x y)))) (assert (equal? 'bar (alist-ref 'foo '((foo . bar)) cmp))) (assert (not (alist-ref 'foo '() cmp))) (assert (not (alist-ref 'foo '((bar . foo)) cmp))) (assert-error (alist-ref 'foo 'bar cmp)) (assert-error (alist-ref 'foo '(bar) cmp))) (let ((alist '((foo . 123) ("bar" . "baz")))) (alist-update! 'foo 999 alist) (assert (= (alist-ref 'foo alist) 999)) (alist-update! 'qux 'nope alist) (assert (not (alist-ref 'qux alist))) (assert (eq? 'yep (alist-ref 'qux (alist-update! 'qux 'yep alist)))) (assert (eq? 'ok (alist-ref "bar" (alist-update! "bar" 'ok alist equal?) equal?)))) (let ((alist '((foo . 123) ("bar" . "baz")))) (alist-update 'foo 999 alist) (assert (= (alist-ref 'foo alist) 123)) (assert (eq? 'yep (alist-ref 'qux (alist-update 'qux 'yep alist)))) (assert (eq? 'ok (alist-ref "bar" (alist-update "bar" 'ok alist equal?) equal?)))) ;; #808: strings with embedded nul bytes should not be compared ;; with ASCIIZ string comparison functions (assert (substring=? "foo\x00a" "foo\x00a" 1 1)) (assert (substring-ci=? "foo\x00a" "foo\x00a" 1 1)) (assert (substring-ci=? "foo\x00a" "foo\x00A" 1 1)) (assert (= 2 (substring-index "o\x00bar" "foo\x00bar"))) (assert (= 2 (substring-index-ci "o\x00bar" "foo\x00bar"))) (assert (= 2 (substring-index-ci "o\x00bar" "foo\x00BAR"))) (assert (not (substring=? "foo\x00a" "foo\x00b" 1 1))) (assert (not (substring-ci=? "foo\x00a" "foo\x00b" 1 1))) (assert (not (substring-index "o\x00bar" "foo\x00baz"))) (assert (not (substring-index-ci "o\x00bar" "foo\x00baz"))) (assert (= 0 (substring-index "" ""))) (assert (= 1 (substring-index "" "a" 1))) (assert-error (substring-index "" "a" 2)) (assert-error (substring-index "a" "b" 2)) (assert (not (substring-index "a" "b" 1))) (assert (not (substring-index "ab" ""))) (assert (= 0 (string-compare3 "foo\x00a" "foo\x00a"))) (assert (> 0 (string-compare3 "foo\x00a" "foo\x00b"))) (assert (< 0 (string-compare3 "foo\x00b" "foo\x00a"))) (assert (= 0 (string-compare3-ci "foo\x00a" "foo\x00a"))) (assert (= 0 (string-compare3-ci "foo\x00a" "foo\x00A"))) (assert (> 0 (string-compare3-ci "foo\x00a" "foo\x00b"))) (assert (> 0 (string-compare3-ci "foo\x00A" "foo\x00b"))) (assert (< 0 (string-compare3-ci "foo\x00b" "foo\x00a"))) (assert (< 0 (string-compare3-ci "foo\x00b" "foo\x00A"))) (assert (string=? "bde" (string-translate* "abcd" '(("a" . "b") ("b" . "") ("c" . "d") ("d" . "e"))))) (assert (string=? "bc" (string-translate* "abc" '(("ab" . "b") ("bc" . "WRONG"))))) (assert (string=? "x" (string-translate* "ab" '(("ab" . "x"))))) (assert (string=? "xy" (string-translate* "xyz" '(("z" . ""))))) ;; topological-sort (assert (equal? '() (topological-sort '() eq?))) (assert (equal? '(a b c d) (topological-sort '((a b) (b c) (c d)) eq?))) (assert (equal? '(c d a b) (topological-sort '((a b) (c d)) eq?))) (assert-error (topological-sort '((a b) (b a)) eq?)) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/compiler.scm��������������������������������������������������������������������0000644�0001750�0001750�00001612446�13213463160�016424� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(define compiler-iters 300) (define (fatal-error . args) (for-each display args) (newline) (exit 1)) (define (call-with-output-file/truncate filename proc) (call-with-output-file filename proc)) (define (run-bench name count ok? run) (let loop ((i count) (result '(undefined))) (if (< 0 i) (loop (- i 1) (run)) result))) (define (run-benchmark name count ok? run-maker . args) (newline) (let* ((run (apply run-maker args)) (result (run-bench name count ok? run))) (if (not (ok? result)) (begin (display "*** wrong result ***") (newline) (display "*** got: ") (pp result) (newline)))) (exit 0)) ;(define integer->char ascii->char) ;(define char->integer char->ascii) (define open-input-file* open-input-file) (define (pp-expression expr port) (write expr port) (newline port)) (define (write-returning-len obj port) (write obj port) 1) (define (display-returning-len obj port) (display obj port) 1) (define (write-word w port) (write-char (integer->char (quotient w 256)) port) (write-char (integer->char (modulo w 256)) port)) (define char-nul (integer->char 0)) (define char-tab (integer->char 9)) (define char-newline (integer->char 10)) (define character-encoding char->integer) (define max-character-encoding 255) (define (fatal-err msg arg) (fatal-error msg arg)) (define (scheme-global-var name) name) (define (scheme-global-var-ref var) (scheme-global-eval var fatal-err)) (define (scheme-global-var-set! var val) (scheme-global-eval (list 'set! var (list 'quote val)) fatal-err)) (define (scheme-global-eval expr err) `(eval ,expr)) ;; eval not needed for test (define (pinpoint-error filename line char) #t) (define file-path-sep #\:) (define file-ext-sep #\.) (define (path-absolute? x) (and (> (string-length x) 0) (let ((c (string-ref x 0))) (or (char=? c #\/) (char=? c #\~))))) (define (file-path x) (let loop1 ((i (string-length x))) (if (and (> i 0) (not (char=? (string-ref x (- i 1)) file-path-sep))) (loop1 (- i 1)) (let ((result (make-string i))) (let loop2 ((j (- i 1))) (if (< j 0) result (begin (string-set! result j (string-ref x j)) (loop2 (- j 1))))))))) (define (file-name x) (let loop1 ((i (string-length x))) (if (and (> i 0) (not (char=? (string-ref x (- i 1)) file-path-sep))) (loop1 (- i 1)) (let ((result (make-string (- (string-length x) i)))) (let loop2 ((j (- (string-length x) 1))) (if (< j i) result (begin (string-set! result (- j i) (string-ref x j)) (loop2 (- j 1))))))))) (define (file-ext x) (let loop1 ((i (string-length x))) (if (or (= i 0) (char=? (string-ref x (- i 1)) file-path-sep)) #f (if (not (char=? (string-ref x (- i 1)) file-ext-sep)) (loop1 (- i 1)) (let ((result (make-string (- (string-length x) i)))) (let loop2 ((j (- (string-length x) 1))) (if (< j i) result (begin (string-set! result (- j i) (string-ref x j)) (loop2 (- j 1)))))))))) (define (file-root x) (let loop1 ((i (string-length x))) (if (or (= i 0) (char=? (string-ref x (- i 1)) file-path-sep)) x (if (not (char=? (string-ref x (- i 1)) file-ext-sep)) (loop1 (- i 1)) (let ((result (make-string (- i 1)))) (let loop2 ((j (- i 2))) (if (< j 0) result (begin (string-set! result j (string-ref x j)) (loop2 (- j 1)))))))))) (define (make-counter next limit limit-error) (lambda () (if (< next limit) (let ((result next)) (set! next (+ next 1)) result) (limit-error)))) (define (pos-in-list x l) (let loop ((l l) (i 0)) (cond ((not (pair? l)) #f) ((eq? (car l) x) i) (else (loop (cdr l) (+ i 1)))))) (define (string-pos-in-list x l) (let loop ((l l) (i 0)) (cond ((not (pair? l)) #f) ((string=? (car l) x) i) (else (loop (cdr l) (+ i 1)))))) (define (nth-after l n) (let loop ((l l) (n n)) (if (> n 0) (loop (cdr l) (- n 1)) l))) (define (pair-up l1 l2) (define (pair l1 l2) (if (pair? l1) (cons (cons (car l1) (car l2)) (pair (cdr l1) (cdr l2))) '())) (pair l1 l2)) (define (my-last-pair l) (let loop ((l l)) (if (pair? (cdr l)) (loop (cdr l)) l))) (define (sort-list l <?) (define (mergesort l) (define (merge l1 l2) (cond ((null? l1) l2) ((null? l2) l1) (else (let ((e1 (car l1)) (e2 (car l2))) (if (<? e1 e2) (cons e1 (merge (cdr l1) l2)) (cons e2 (merge l1 (cdr l2)))))))) (define (split l) (if (or (null? l) (null? (cdr l))) l (cons (car l) (split (cddr l))))) (if (or (null? l) (null? (cdr l))) l (let* ((l1 (mergesort (split l))) (l2 (mergesort (split (cdr l))))) (merge l1 l2)))) (mergesort l)) (define (lst->vector l) (let* ((n (length l)) (v (make-vector n))) (let loop ((l l) (i 0)) (if (pair? l) (begin (vector-set! v i (car l)) (loop (cdr l) (+ i 1))) v)))) (define (vector->lst v) (let loop ((l '()) (i (- (vector-length v) 1))) (if (< i 0) l (loop (cons (vector-ref v i) l) (- i 1))))) (define (lst->string l) (let* ((n (length l)) (s (make-string n))) (let loop ((l l) (i 0)) (if (pair? l) (begin (string-set! s i (car l)) (loop (cdr l) (+ i 1))) s)))) (define (string->lst s) (let loop ((l '()) (i (- (string-length s) 1))) (if (< i 0) l (loop (cons (string-ref s i) l) (- i 1))))) (define (with-exception-handling proc) (let ((old-exception-handler throw-to-exception-handler)) (let ((val (call-with-current-continuation (lambda (cont) (set! throw-to-exception-handler cont) (proc))))) (set! throw-to-exception-handler old-exception-handler) val))) (define (throw-to-exception-handler val) (fatal-err "Internal error, no exception handler at this point" val)) (define (compiler-error msg . args) (newline) (display "*** ERROR -- ") (display msg) (for-each (lambda (x) (display " ") (write x)) args) (newline) (compiler-abort)) (define (compiler-user-error loc msg . args) (newline) (display "*** ERROR -- In ") (locat-show loc) (newline) (display "*** ") (display msg) (for-each (lambda (x) (display " ") (write x)) args) (newline) (compiler-abort)) (define (compiler-internal-error msg . args) (newline) (display "*** ERROR -- Compiler internal error detected") (newline) (display "*** in procedure ") (display msg) (for-each (lambda (x) (display " ") (write x)) args) (newline) (compiler-abort)) (define (compiler-limitation-error msg . args) (newline) (display "*** ERROR -- Compiler limit reached") (newline) (display "*** ") (display msg) (for-each (lambda (x) (display " ") (write x)) args) (newline) (compiler-abort)) (define (compiler-abort) (throw-to-exception-handler #f)) (define (make-gnode label edges) (vector label edges)) (define (gnode-label x) (vector-ref x 0)) (define (gnode-edges x) (vector-ref x 1)) (define (transitive-closure graph) (define changed? #f) (define (closure edges) (list->set (set-union edges (apply set-union (map (lambda (label) (gnode-edges (gnode-find label graph))) (set->list edges)))))) (let ((new-graph (set-map (lambda (x) (let ((new-edges (closure (gnode-edges x)))) (if (not (set-equal? new-edges (gnode-edges x))) (set! changed? #t)) (make-gnode (gnode-label x) new-edges))) graph))) (if changed? (transitive-closure new-graph) new-graph))) (define (gnode-find label graph) (define (find label l) (cond ((null? l) #f) ((eq? (gnode-label (car l)) label) (car l)) (else (find label (cdr l))))) (find label (set->list graph))) (define (topological-sort graph) (if (set-empty? graph) '() (let ((to-remove (or (remove-no-edges graph) (remove-cycle graph)))) (let ((labels (set-map gnode-label to-remove))) (cons labels (topological-sort (set-map (lambda (x) (make-gnode (gnode-label x) (set-difference (gnode-edges x) labels))) (set-difference graph to-remove)))))))) (define (remove-no-edges graph) (let ((nodes-with-no-edges (set-keep (lambda (x) (set-empty? (gnode-edges x))) graph))) (if (set-empty? nodes-with-no-edges) #f nodes-with-no-edges))) (define (remove-cycle graph) (define (remove l) (let ((edges (gnode-edges (car l)))) (define (equal-edges? x) (set-equal? (gnode-edges x) edges)) (define (member-edges? x) (set-member? (gnode-label x) edges)) (if (set-member? (gnode-label (car l)) edges) (let ((edge-graph (set-keep member-edges? graph))) (if (set-every? equal-edges? edge-graph) edge-graph (remove (cdr l)))) (remove (cdr l))))) (remove (set->list graph))) (define (list->set list) list) (define (set->list set) set) (define (set-empty) '()) (define (set-empty? set) (null? set)) (define (set-member? x set) (memq x set)) (define (set-singleton x) (list x)) (define (set-adjoin set x) (if (memq x set) set (cons x set))) (define (set-remove set x) (cond ((null? set) '()) ((eq? (car set) x) (cdr set)) (else (cons (car set) (set-remove (cdr set) x))))) (define (set-equal? s1 s2) (cond ((null? s1) (null? s2)) ((memq (car s1) s2) (set-equal? (cdr s1) (set-remove s2 (car s1)))) (else #f))) (define (set-difference set . other-sets) (define (difference s1 s2) (cond ((null? s1) '()) ((memq (car s1) s2) (difference (cdr s1) s2)) (else (cons (car s1) (difference (cdr s1) s2))))) (n-ary difference set other-sets)) (define (set-union . sets) (define (union s1 s2) (cond ((null? s1) s2) ((memq (car s1) s2) (union (cdr s1) s2)) (else (cons (car s1) (union (cdr s1) s2))))) (n-ary union '() sets)) (define (set-intersection set . other-sets) (define (intersection s1 s2) (cond ((null? s1) '()) ((memq (car s1) s2) (cons (car s1) (intersection (cdr s1) s2))) (else (intersection (cdr s1) s2)))) (n-ary intersection set other-sets)) (define (n-ary function first rest) (if (null? rest) first (n-ary function (function first (car rest)) (cdr rest)))) (define (set-keep keep? set) (cond ((null? set) '()) ((keep? (car set)) (cons (car set) (set-keep keep? (cdr set)))) (else (set-keep keep? (cdr set))))) (define (set-every? pred? set) (or (null? set) (and (pred? (car set)) (set-every? pred? (cdr set))))) (define (set-map proc set) (if (null? set) '() (cons (proc (car set)) (set-map proc (cdr set))))) (define (list->queue list) (cons list (if (pair? list) (my-last-pair list) '()))) (define (queue->list queue) (car queue)) (define (queue-empty) (cons '() '())) (define (queue-empty? queue) (null? (car queue))) (define (queue-get! queue) (if (null? (car queue)) (compiler-internal-error "queue-get!, queue is empty") (let ((x (caar queue))) (set-car! queue (cdar queue)) (if (null? (car queue)) (set-cdr! queue '())) x))) (define (queue-put! queue x) (let ((entry (cons x '()))) (if (null? (car queue)) (set-car! queue entry) (set-cdr! (cdr queue) entry)) (set-cdr! queue entry) x)) (define (string->canonical-symbol str) (let ((len (string-length str))) (let loop ((str str) (s (make-string len)) (i (- len 1))) (if (>= i 0) (begin (string-set! s i (char-downcase (string-ref str i))) (loop str s (- i 1))) (string->symbol s))))) (define quote-sym (string->canonical-symbol "QUOTE")) (define quasiquote-sym (string->canonical-symbol "QUASIQUOTE")) (define unquote-sym (string->canonical-symbol "UNQUOTE")) (define unquote-splicing-sym (string->canonical-symbol "UNQUOTE-SPLICING")) (define lambda-sym (string->canonical-symbol "LAMBDA")) (define if-sym (string->canonical-symbol "IF")) (define set!-sym (string->canonical-symbol "SET!")) (define cond-sym (string->canonical-symbol "COND")) (define =>-sym (string->canonical-symbol "=>")) (define else-sym (string->canonical-symbol "ELSE")) (define and-sym (string->canonical-symbol "AND")) (define or-sym (string->canonical-symbol "OR")) (define case-sym (string->canonical-symbol "CASE")) (define let-sym (string->canonical-symbol "LET")) (define let*-sym (string->canonical-symbol "LET*")) (define letrec-sym (string->canonical-symbol "LETREC")) (define begin-sym (string->canonical-symbol "BEGIN")) (define do-sym (string->canonical-symbol "DO")) (define define-sym (string->canonical-symbol "DEFINE")) (define delay-sym (string->canonical-symbol "DELAY")) (define future-sym (string->canonical-symbol "FUTURE")) (define **define-macro-sym (string->canonical-symbol "DEFINE-MACRO")) (define **declare-sym (string->canonical-symbol "DECLARE")) (define **include-sym (string->canonical-symbol "INCLUDE")) (define not-sym (string->canonical-symbol "NOT")) (define **c-declaration-sym (string->canonical-symbol "C-DECLARATION")) (define **c-init-sym (string->canonical-symbol "C-INIT")) (define **c-procedure-sym (string->canonical-symbol "C-PROCEDURE")) (define void-sym (string->canonical-symbol "VOID")) (define char-sym (string->canonical-symbol "CHAR")) (define signed-char-sym (string->canonical-symbol "SIGNED-CHAR")) (define unsigned-char-sym (string->canonical-symbol "UNSIGNED-CHAR")) (define short-sym (string->canonical-symbol "SHORT")) (define unsigned-short-sym (string->canonical-symbol "UNSIGNED-SHORT")) (define int-sym (string->canonical-symbol "INT")) (define unsigned-int-sym (string->canonical-symbol "UNSIGNED-INT")) (define long-sym (string->canonical-symbol "LONG")) (define unsigned-long-sym (string->canonical-symbol "UNSIGNED-LONG")) (define float-sym (string->canonical-symbol "FLOAT")) (define double-sym (string->canonical-symbol "DOUBLE")) (define pointer-sym (string->canonical-symbol "POINTER")) (define boolean-sym (string->canonical-symbol "BOOLEAN")) (define string-sym (string->canonical-symbol "STRING")) (define scheme-object-sym (string->canonical-symbol "SCHEME-OBJECT")) (define c-id-prefix "___") (define false-object (if (eq? '() #f) (string->symbol "#f") #f)) (define (false-object? obj) (eq? obj false-object)) (define undef-object (string->symbol "#[undefined]")) (define (undef-object? obj) (eq? obj undef-object)) (define (symbol-object? obj) (and (not (false-object? obj)) (not (undef-object? obj)) (symbol? obj))) (define scm-file-exts '("scm" #f)) (define compiler-version "2.2.2") (define (open-sf filename) (define (open-err) (compiler-error "Can't find file" filename)) (if (not (file-ext filename)) (let loop ((exts scm-file-exts)) (if (pair? exts) (let* ((ext (car exts)) (full-name (if ext (string-append filename "." ext) filename)) (port (open-input-file* full-name))) (if port (vector port full-name 0 1 0) (loop (cdr exts)))) (open-err))) (let ((port (open-input-file* filename))) (if port (vector port filename 0 1 0) (open-err))))) (define (close-sf sf) (close-input-port (vector-ref sf 0))) (define (sf-read-char sf) (let ((c (read-char (vector-ref sf 0)))) (cond ((eof-object? c)) ((char=? c char-newline) (vector-set! sf 3 (+ (vector-ref sf 3) 1)) (vector-set! sf 4 0)) (else (vector-set! sf 4 (+ (vector-ref sf 4) 1)))) c)) (define (sf-peek-char sf) (peek-char (vector-ref sf 0))) (define (sf-read-error sf msg . args) (apply compiler-user-error (cons (sf->locat sf) (cons (string-append "Read error -- " msg) args)))) (define (sf->locat sf) (vector 'file (vector-ref sf 1) (vector-ref sf 2) (vector-ref sf 3) (vector-ref sf 4))) (define (expr->locat expr source) (vector 'expr expr source)) (define (locat-show loc) (if loc (case (vector-ref loc 0) ((file) (if (pinpoint-error (vector-ref loc 1) (vector-ref loc 3) (vector-ref loc 4)) (begin (display "file \"") (display (vector-ref loc 1)) (display "\", line ") (display (vector-ref loc 3)) (display ", character ") (display (vector-ref loc 4))))) ((expr) (display "expression ") (write (vector-ref loc 1)) (if (vector-ref loc 2) (begin (display " ") (locat-show (source-locat (vector-ref loc 2)))))) (else (compiler-internal-error "locat-show, unknown location tag"))) (display "unknown location"))) (define (locat-filename loc) (if loc (case (vector-ref loc 0) ((file) (vector-ref loc 1)) ((expr) (let ((source (vector-ref loc 2))) (if source (locat-filename (source-locat source)) ""))) (else (compiler-internal-error "locat-filename, unknown location tag"))) "")) (define (make-source code locat) (vector code locat)) (define (source-code x) (vector-ref x 0)) (define (source-code-set! x y) (vector-set! x 0 y) x) (define (source-locat x) (vector-ref x 1)) (define (expression->source expr source) (define (expr->source x) (make-source (cond ((pair? x) (list->source x)) ((vector? x) (vector->source x)) ((symbol-object? x) (string->canonical-symbol (symbol->string x))) (else x)) (expr->locat x source))) (define (list->source l) (cond ((pair? l) (cons (expr->source (car l)) (list->source (cdr l)))) ((null? l) '()) (else (expr->source l)))) (define (vector->source v) (let* ((len (vector-length v)) (x (make-vector len))) (let loop ((i (- len 1))) (if (>= i 0) (begin (vector-set! x i (expr->source (vector-ref v i))) (loop (- i 1))))) x)) (expr->source expr)) (define (source->expression source) (define (list->expression l) (cond ((pair? l) (cons (source->expression (car l)) (list->expression (cdr l)))) ((null? l) '()) (else (source->expression l)))) (define (vector->expression v) (let* ((len (vector-length v)) (x (make-vector len))) (let loop ((i (- len 1))) (if (>= i 0) (begin (vector-set! x i (source->expression (vector-ref v i))) (loop (- i 1))))) x)) (let ((code (source-code source))) (cond ((pair? code) (list->expression code)) ((vector? code) (vector->expression code)) (else code)))) (define (file->sources filename info-port) (if info-port (begin (display "(reading \"" info-port) (display filename info-port) (display "\"" info-port))) (let ((sf (open-sf filename))) (define (read-sources) (let ((source (read-source sf))) (if (not (eof-object? source)) (begin (if info-port (display "." info-port)) (cons source (read-sources))) '()))) (let ((sources (read-sources))) (if info-port (display ")" info-port)) (close-sf sf) sources))) (define (file->sources* filename info-port loc) (file->sources (if (path-absolute? filename) filename (string-append (file-path (locat-filename loc)) filename)) info-port)) (define (read-source sf) (define (read-char*) (let ((c (sf-read-char sf))) (if (eof-object? c) (sf-read-error sf "Premature end of file encountered") c))) (define (read-non-whitespace-char) (let ((c (read-char*))) (cond ((< 0 (vector-ref read-table (char->integer c))) (read-non-whitespace-char)) ((char=? c #\;) (let loop () (if (not (char=? (read-char*) char-newline)) (loop) (read-non-whitespace-char)))) (else c)))) (define (delimiter? c) (or (eof-object? c) (not (= (vector-ref read-table (char->integer c)) 0)))) (define (read-list first) (let ((result (cons first '()))) (let loop ((end result)) (let ((c (read-non-whitespace-char))) (cond ((char=? c #\))) ((and (char=? c #\.) (delimiter? (sf-peek-char sf))) (let ((x (read-source sf))) (if (char=? (read-non-whitespace-char) #\)) (set-cdr! end x) (sf-read-error sf "')' expected")))) (else (let ((tail (cons (rd* c) '()))) (set-cdr! end tail) (loop tail)))))) result)) (define (read-vector) (define (loop i) (let ((c (read-non-whitespace-char))) (if (char=? c #\)) (make-vector i '()) (let* ((x (rd* c)) (v (loop (+ i 1)))) (vector-set! v i x) v)))) (loop 0)) (define (read-string) (define (loop i) (let ((c (read-char*))) (cond ((char=? c #\") (make-string i #\space)) ((char=? c #\\) (let* ((c (read-char*)) (s (loop (+ i 1)))) (string-set! s i c) s)) (else (let ((s (loop (+ i 1)))) (string-set! s i c) s))))) (loop 0)) (define (read-symbol/number-string i) (if (delimiter? (sf-peek-char sf)) (make-string i #\space) (let* ((c (sf-read-char sf)) (s (read-symbol/number-string (+ i 1)))) (string-set! s i (char-downcase c)) s))) (define (read-symbol/number c) (let ((s (read-symbol/number-string 1))) (string-set! s 0 (char-downcase c)) (or (string->number s 10) (string->canonical-symbol s)))) (define (read-prefixed-number c) (let ((s (read-symbol/number-string 2))) (string-set! s 0 #\#) (string-set! s 1 c) (string->number s 10))) (define (read-special-symbol) (let ((s (read-symbol/number-string 2))) (string-set! s 0 #\#) (string-set! s 1 #\#) (string->canonical-symbol s))) (define (rd c) (cond ((eof-object? c) c) ((< 0 (vector-ref read-table (char->integer c))) (rd (sf-read-char sf))) ((char=? c #\;) (let loop () (let ((c (sf-read-char sf))) (cond ((eof-object? c) c) ((char=? c char-newline) (rd (sf-read-char sf))) (else (loop)))))) (else (rd* c)))) (define (rd* c) (let ((source (make-source #f (sf->locat sf)))) (source-code-set! source (cond ((char=? c #\() (let ((x (read-non-whitespace-char))) (if (char=? x #\)) '() (read-list (rd* x))))) ((char=? c #\#) (let ((c (char-downcase (sf-read-char sf)))) (cond ((char=? c #\() (read-vector)) ((char=? c #\f) false-object) ((char=? c #\t) #t) ((char=? c #\\) (let ((c (read-char*))) (if (or (not (char-alphabetic? c)) (delimiter? (sf-peek-char sf))) c (let ((name (read-symbol/number c))) (let ((x (assq name named-char-table))) (if x (cdr x) (sf-read-error sf "Unknown character name" name))))))) ((char=? c #\#) (read-special-symbol)) (else (let ((num (read-prefixed-number c))) (or num (sf-read-error sf "Unknown '#' read macro" c))))))) ((char=? c #\") (read-string)) ((char=? c #\') (list (make-source quote-sym (sf->locat sf)) (read-source sf))) ((char=? c #\`) (list (make-source quasiquote-sym (sf->locat sf)) (read-source sf))) ((char=? c #\,) (if (char=? (sf-peek-char sf) #\@) (let ((x (make-source unquote-splicing-sym (sf->locat sf)))) (sf-read-char sf) (list x (read-source sf))) (list (make-source unquote-sym (sf->locat sf)) (read-source sf)))) ((char=? c #\)) (sf-read-error sf "Misplaced ')'")) ((or (char=? c #\[) (char=? c #\]) (char=? c #\{) (char=? c #\})) (sf-read-error sf "Illegal character" c)) (else (if (char=? c #\.) (if (delimiter? (sf-peek-char sf)) (sf-read-error sf "Misplaced '.'"))) (read-symbol/number c)))))) (rd (sf-read-char sf))) (define named-char-table (list (cons (string->canonical-symbol "NUL") char-nul) (cons (string->canonical-symbol "TAB") char-tab) (cons (string->canonical-symbol "NEWLINE") char-newline) (cons (string->canonical-symbol "SPACE") #\space))) (define read-table (let ((rt (make-vector (+ max-character-encoding 1) 0))) (vector-set! rt (char->integer char-tab) 1) (vector-set! rt (char->integer char-newline) 1) (vector-set! rt (char->integer #\space) 1) (vector-set! rt (char->integer #\;) -1) (vector-set! rt (char->integer #\() -1) (vector-set! rt (char->integer #\)) -1) (vector-set! rt (char->integer #\") -1) (vector-set! rt (char->integer #\') -1) (vector-set! rt (char->integer #\`) -1) rt)) (define (make-var name bound refs sets source) (vector var-tag name bound refs sets source #f)) (define (var? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) var-tag))) (define (var-name x) (vector-ref x 1)) (define (var-bound x) (vector-ref x 2)) (define (var-refs x) (vector-ref x 3)) (define (var-sets x) (vector-ref x 4)) (define (var-source x) (vector-ref x 5)) (define (var-info x) (vector-ref x 6)) (define (var-name-set! x y) (vector-set! x 1 y)) (define (var-bound-set! x y) (vector-set! x 2 y)) (define (var-refs-set! x y) (vector-set! x 3 y)) (define (var-sets-set! x y) (vector-set! x 4 y)) (define (var-source-set! x y) (vector-set! x 5 y)) (define (var-info-set! x y) (vector-set! x 6 y)) (define var-tag (list 'var-tag)) (define (var-copy var) (make-var (var-name var) #t (set-empty) (set-empty) (var-source var))) (define (make-temp-var name) (make-var name #t (set-empty) (set-empty) #f)) (define (temp-var? var) (eq? (var-bound var) #t)) (define ret-var (make-temp-var 'ret)) (define ret-var-set (set-singleton ret-var)) (define closure-env-var (make-temp-var 'closure-env)) (define empty-var (make-temp-var #f)) (define make-global-environment #f) (set! make-global-environment (lambda () (env-frame #f '()))) (define (env-frame env vars) (vector (cons vars #f) '() '() env)) (define (env-new-var! env name source) (let* ((glob (not (env-parent-ref env))) (var (make-var name (not glob) (set-empty) (set-empty) source))) (env-vars-set! env (cons var (env-vars-ref env))) var)) (define (env-macro env name def) (let ((name* (if (full-name? name) name (let ((prefix (env-namespace-prefix env name))) (if prefix (make-full-name prefix name) name))))) (vector (vector-ref env 0) (cons (cons name* def) (env-macros-ref env)) (env-decls-ref env) (env-parent-ref env)))) (define (env-declare env decl) (vector (vector-ref env 0) (env-macros-ref env) (cons decl (env-decls-ref env)) (env-parent-ref env))) (define (env-vars-ref env) (car (vector-ref env 0))) (define (env-vars-set! env vars) (set-car! (vector-ref env 0) vars)) (define (env-macros-ref env) (vector-ref env 1)) (define (env-decls-ref env) (vector-ref env 2)) (define (env-parent-ref env) (vector-ref env 3)) (define (env-namespace-prefix env name) (let loop ((decls (env-decls-ref env))) (if (pair? decls) (let ((decl (car decls))) (if (eq? (car decl) namespace-sym) (let ((syms (cddr decl))) (if (or (null? syms) (memq name syms)) (cadr decl) (loop (cdr decls)))) (loop (cdr decls)))) #f))) (define (env-lookup env name stop-at-first-frame? proc) (define (search env name full?) (if full? (search* env name full?) (let ((prefix (env-namespace-prefix env name))) (if prefix (search* env (make-full-name prefix name) #t) (search* env name full?))))) (define (search* env name full?) (define (search-macros macros) (if (pair? macros) (let ((m (car macros))) (if (eq? (car m) name) (proc env name (cdr m)) (search-macros (cdr macros)))) (search-vars (env-vars-ref env)))) (define (search-vars vars) (if (pair? vars) (let ((v (car vars))) (if (eq? (var-name v) name) (proc env name v) (search-vars (cdr vars)))) (let ((env* (env-parent-ref env))) (if (or stop-at-first-frame? (not env*)) (proc env name #f) (search env* name full?))))) (search-macros (env-macros-ref env))) (search env name (full-name? name))) (define (valid-prefix? str) (let ((l (string-length str))) (or (= l 0) (and (>= l 2) (char=? (string-ref str (- l 1)) #\#))))) (define (full-name? sym) (let ((str (symbol->string sym))) (let loop ((i (- (string-length str) 1))) (if (< i 0) #f (if (char=? (string-ref str i) #\#) #t (loop (- i 1))))))) (define (make-full-name prefix sym) (if (= (string-length prefix) 0) sym (string->canonical-symbol (string-append prefix (symbol->string sym))))) (define (env-lookup-var env name source) (env-lookup env name #f (lambda (env name x) (if x (if (var? x) x (compiler-internal-error "env-lookup-var, name is that of a macro" name)) (env-new-var! env name source))))) (define (env-define-var env name source) (env-lookup env name #t (lambda (env name x) (if x (if (var? x) (pt-syntax-error source "Duplicate definition of a variable") (compiler-internal-error "env-define-var, name is that of a macro" name)) (env-new-var! env name source))))) (define (env-lookup-global-var env name) (let ((env* (env-global-env env))) (define (search-vars vars) (if (pair? vars) (let ((v (car vars))) (if (eq? (var-name v) name) v (search-vars (cdr vars)))) (env-new-var! env* name #f))) (search-vars (env-vars-ref env*)))) (define (env-global-variables env) (env-vars-ref (env-global-env env))) (define (env-global-env env) (let loop ((env env)) (let ((env* (env-parent-ref env))) (if env* (loop env*) env)))) (define (env-lookup-macro env name) (env-lookup env name #f (lambda (env name x) (if (or (not x) (var? x)) #f x)))) (define (env-declarations env) env) (define flag-declarations '()) (define parameterized-declarations '()) (define boolean-declarations '()) (define namable-declarations '()) (define namable-boolean-declarations '()) (define namable-string-declarations '()) (define (define-flag-decl name type) (set! flag-declarations (cons (cons name type) flag-declarations)) '()) (define (define-parameterized-decl name) (set! parameterized-declarations (cons name parameterized-declarations)) '()) (define (define-boolean-decl name) (set! boolean-declarations (cons name boolean-declarations)) '()) (define (define-namable-decl name type) (set! namable-declarations (cons (cons name type) namable-declarations)) '()) (define (define-namable-boolean-decl name) (set! namable-boolean-declarations (cons name namable-boolean-declarations)) '()) (define (define-namable-string-decl name) (set! namable-string-declarations (cons name namable-string-declarations)) '()) (define (flag-decl source type val) (list type val)) (define (parameterized-decl source id parm) (list id parm)) (define (boolean-decl source id pos) (list id pos)) (define (namable-decl source type val names) (cons type (cons val names))) (define (namable-boolean-decl source id pos names) (cons id (cons pos names))) (define (namable-string-decl source id str names) (if (and (eq? id namespace-sym) (not (valid-prefix? str))) (pt-syntax-error source "Illegal namespace")) (cons id (cons str names))) (define (declaration-value name element default decls) (if (not decls) default (let loop ((l (env-decls-ref decls))) (if (pair? l) (let ((d (car l))) (if (and (eq? (car d) name) (or (null? (cddr d)) (memq element (cddr d)))) (cadr d) (loop (cdr l)))) (declaration-value name element default (env-parent-ref decls)))))) (define namespace-sym (string->canonical-symbol "NAMESPACE")) (define-namable-string-decl namespace-sym) (define (node-parent x) (vector-ref x 1)) (define (node-children x) (vector-ref x 2)) (define (node-fv x) (vector-ref x 3)) (define (node-decl x) (vector-ref x 4)) (define (node-source x) (vector-ref x 5)) (define (node-parent-set! x y) (vector-set! x 1 y)) (define (node-fv-set! x y) (vector-set! x 3 y)) (define (node-decl-set! x y) (vector-set! x 4 y)) (define (node-source-set! x y) (vector-set! x 5 y)) (define (node-children-set! x y) (vector-set! x 2 y) (for-each (lambda (child) (node-parent-set! child x)) y) (node-fv-invalidate! x)) (define (node-fv-invalidate! x) (let loop ((node x)) (if node (begin (node-fv-set! node #t) (loop (node-parent node)))))) (define (make-cst parent children fv decl source val) (vector cst-tag parent children fv decl source val)) (define (cst? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) cst-tag))) (define (cst-val x) (vector-ref x 6)) (define (cst-val-set! x y) (vector-set! x 6 y)) (define cst-tag (list 'cst-tag)) (define (make-ref parent children fv decl source var) (vector ref-tag parent children fv decl source var)) (define (ref? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) ref-tag))) (define (ref-var x) (vector-ref x 6)) (define (ref-var-set! x y) (vector-set! x 6 y)) (define ref-tag (list 'ref-tag)) (define (make-set parent children fv decl source var) (vector set-tag parent children fv decl source var)) (define (set? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) set-tag))) (define (set-var x) (vector-ref x 6)) (define (set-var-set! x y) (vector-set! x 6 y)) (define set-tag (list 'set-tag)) (define (make-def parent children fv decl source var) (vector def-tag parent children fv decl source var)) (define (def? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) def-tag))) (define (def-var x) (vector-ref x 6)) (define (def-var-set! x y) (vector-set! x 6 y)) (define def-tag (list 'def-tag)) (define (make-tst parent children fv decl source) (vector tst-tag parent children fv decl source)) (define (tst? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) tst-tag))) (define tst-tag (list 'tst-tag)) (define (make-conj parent children fv decl source) (vector conj-tag parent children fv decl source)) (define (conj? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) conj-tag))) (define conj-tag (list 'conj-tag)) (define (make-disj parent children fv decl source) (vector disj-tag parent children fv decl source)) (define (disj? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) disj-tag))) (define disj-tag (list 'disj-tag)) (define (make-prc parent children fv decl source name min rest parms) (vector prc-tag parent children fv decl source name min rest parms)) (define (prc? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) prc-tag))) (define (prc-name x) (vector-ref x 6)) (define (prc-min x) (vector-ref x 7)) (define (prc-rest x) (vector-ref x 8)) (define (prc-parms x) (vector-ref x 9)) (define (prc-name-set! x y) (vector-set! x 6 y)) (define (prc-min-set! x y) (vector-set! x 7 y)) (define (prc-rest-set! x y) (vector-set! x 8 y)) (define (prc-parms-set! x y) (vector-set! x 9 y)) (define prc-tag (list 'prc-tag)) (define (make-app parent children fv decl source) (vector app-tag parent children fv decl source)) (define (app? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) app-tag))) (define app-tag (list 'app-tag)) (define (make-fut parent children fv decl source) (vector fut-tag parent children fv decl source)) (define (fut? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) fut-tag))) (define fut-tag (list 'fut-tag)) (define (new-cst source decl val) (make-cst #f '() #t decl source val)) (define (new-ref source decl var) (let ((node (make-ref #f '() #t decl source var))) (var-refs-set! var (set-adjoin (var-refs var) node)) node)) (define (new-ref-extended-bindings source name env) (new-ref source (add-extended-bindings (env-declarations env)) (env-lookup-global-var env name))) (define (new-set source decl var val) (let ((node (make-set #f (list val) #t decl source var))) (var-sets-set! var (set-adjoin (var-sets var) node)) (node-parent-set! val node) node)) (define (set-val x) (if (set? x) (car (node-children x)) (compiler-internal-error "set-val, 'set' node expected" x))) (define (new-def source decl var val) (let ((node (make-def #f (list val) #t decl source var))) (var-sets-set! var (set-adjoin (var-sets var) node)) (node-parent-set! val node) node)) (define (def-val x) (if (def? x) (car (node-children x)) (compiler-internal-error "def-val, 'def' node expected" x))) (define (new-tst source decl pre con alt) (let ((node (make-tst #f (list pre con alt) #t decl source))) (node-parent-set! pre node) (node-parent-set! con node) (node-parent-set! alt node) node)) (define (tst-pre x) (if (tst? x) (car (node-children x)) (compiler-internal-error "tst-pre, 'tst' node expected" x))) (define (tst-con x) (if (tst? x) (cadr (node-children x)) (compiler-internal-error "tst-con, 'tst' node expected" x))) (define (tst-alt x) (if (tst? x) (caddr (node-children x)) (compiler-internal-error "tst-alt, 'tst' node expected" x))) (define (new-conj source decl pre alt) (let ((node (make-conj #f (list pre alt) #t decl source))) (node-parent-set! pre node) (node-parent-set! alt node) node)) (define (conj-pre x) (if (conj? x) (car (node-children x)) (compiler-internal-error "conj-pre, 'conj' node expected" x))) (define (conj-alt x) (if (conj? x) (cadr (node-children x)) (compiler-internal-error "conj-alt, 'conj' node expected" x))) (define (new-disj source decl pre alt) (let ((node (make-disj #f (list pre alt) #t decl source))) (node-parent-set! pre node) (node-parent-set! alt node) node)) (define (disj-pre x) (if (disj? x) (car (node-children x)) (compiler-internal-error "disj-pre, 'disj' node expected" x))) (define (disj-alt x) (if (disj? x) (cadr (node-children x)) (compiler-internal-error "disj-alt, 'disj' node expected" x))) (define (new-prc source decl name min rest parms body) (let ((node (make-prc #f (list body) #t decl source name min rest parms))) (for-each (lambda (x) (var-bound-set! x node)) parms) (node-parent-set! body node) node)) (define (prc-body x) (if (prc? x) (car (node-children x)) (compiler-internal-error "prc-body, 'proc' node expected" x))) (define (new-call source decl oper args) (let ((node (make-app #f (cons oper args) #t decl source))) (node-parent-set! oper node) (for-each (lambda (x) (node-parent-set! x node)) args) node)) (define (new-call* source decl oper args) (if *ptree-port* (if (ref? oper) (let ((var (ref-var oper))) (if (global? var) (let ((proc (standard-procedure (var-name var) (node-decl oper)))) (if (and proc (not (nb-args-conforms? (length args) (standard-procedure-call-pattern proc)))) (begin (display "*** WARNING -- \"" *ptree-port*) (display (var-name var) *ptree-port*) (display "\" is called with " *ptree-port*) (display (length args) *ptree-port*) (display " argument(s)." *ptree-port*) (newline *ptree-port*)))))))) (new-call source decl oper args)) (define (app-oper x) (if (app? x) (car (node-children x)) (compiler-internal-error "app-oper, 'call' node expected" x))) (define (app-args x) (if (app? x) (cdr (node-children x)) (compiler-internal-error "app-args, 'call' node expected" x))) (define (oper-pos? node) (let ((parent (node-parent node))) (if parent (and (app? parent) (eq? (app-oper parent) node)) #f))) (define (new-fut source decl val) (let ((node (make-fut #f (list val) #t decl source))) (node-parent-set! val node) node)) (define (fut-val x) (if (fut? x) (car (node-children x)) (compiler-internal-error "fut-val, 'fut' node expected" x))) (define (new-disj-call source decl pre oper alt) (new-call* source decl (let* ((parms (new-temps source '(temp))) (temp (car parms))) (new-prc source decl #f 1 #f parms (new-tst source decl (new-ref source decl temp) (new-call* source decl oper (list (new-ref source decl temp))) alt))) (list pre))) (define (new-seq source decl before after) (new-call* source decl (new-prc source decl #f 1 #f (new-temps source '(temp)) after) (list before))) (define (new-let ptree proc vars vals body) (if (pair? vars) (new-call (node-source ptree) (node-decl ptree) (new-prc (node-source proc) (node-decl proc) (prc-name proc) (length vars) #f (reverse vars) body) (reverse vals)) body)) (define (new-temps source names) (if (null? names) '() (cons (make-var (car names) #t (set-empty) (set-empty) source) (new-temps source (cdr names))))) (define (new-variables vars) (if (null? vars) '() (cons (make-var (source-code (car vars)) #t (set-empty) (set-empty) (car vars)) (new-variables (cdr vars))))) (define (set-prc-names! vars vals) (let loop ((vars vars) (vals vals)) (if (not (null? vars)) (let ((var (car vars)) (val (car vals))) (if (prc? val) (prc-name-set! val (symbol->string (var-name var)))) (loop (cdr vars) (cdr vals)))))) (define (free-variables node) (if (eq? (node-fv node) #t) (let ((x (apply set-union (map free-variables (node-children node))))) (node-fv-set! node (cond ((ref? node) (if (global? (ref-var node)) x (set-adjoin x (ref-var node)))) ((set? node) (if (global? (set-var node)) x (set-adjoin x (set-var node)))) ((prc? node) (set-difference x (list->set (prc-parms node)))) ((and (app? node) (prc? (app-oper node))) (set-difference x (list->set (prc-parms (app-oper node))))) (else x))))) (node-fv node)) (define (bound-variables node) (list->set (prc-parms node))) (define (not-mutable? var) (set-empty? (var-sets var))) (define (mutable? var) (not (not-mutable? var))) (define (bound? var) (var-bound var)) (define (global? var) (not (bound? var))) (define (global-val var) (and (global? var) (let ((sets (set->list (var-sets var)))) (and (pair? sets) (null? (cdr sets)) (def? (car sets)) (eq? (compilation-strategy (node-decl (car sets))) block-sym) (def-val (car sets)))))) (define **not-sym (string->canonical-symbol "##NOT")) (define **quasi-append-sym (string->canonical-symbol "##QUASI-APPEND")) (define **quasi-list-sym (string->canonical-symbol "##QUASI-LIST")) (define **quasi-cons-sym (string->canonical-symbol "##QUASI-CONS")) (define **quasi-list->vector-sym (string->canonical-symbol "##QUASI-LIST->VECTOR")) (define **case-memv-sym (string->canonical-symbol "##CASE-MEMV")) (define **unassigned?-sym (string->canonical-symbol "##UNASSIGNED?")) (define **make-cell-sym (string->canonical-symbol "##MAKE-CELL")) (define **cell-ref-sym (string->canonical-symbol "##CELL-REF")) (define **cell-set!-sym (string->canonical-symbol "##CELL-SET!")) (define **make-placeholder-sym (string->canonical-symbol "##MAKE-PLACEHOLDER")) (define ieee-scheme-sym (string->canonical-symbol "IEEE-SCHEME")) (define r4rs-scheme-sym (string->canonical-symbol "R4RS-SCHEME")) (define multilisp-sym (string->canonical-symbol "MULTILISP")) (define lambda-lift-sym (string->canonical-symbol "LAMBDA-LIFT")) (define block-sym (string->canonical-symbol "BLOCK")) (define separate-sym (string->canonical-symbol "SEPARATE")) (define standard-bindings-sym (string->canonical-symbol "STANDARD-BINDINGS")) (define extended-bindings-sym (string->canonical-symbol "EXTENDED-BINDINGS")) (define safe-sym (string->canonical-symbol "SAFE")) (define interrupts-enabled-sym (string->canonical-symbol "INTERRUPTS-ENABLED")) (define-flag-decl ieee-scheme-sym 'dialect) (define-flag-decl r4rs-scheme-sym 'dialect) (define-flag-decl multilisp-sym 'dialect) (define-boolean-decl lambda-lift-sym) (define-flag-decl block-sym 'compilation-strategy) (define-flag-decl separate-sym 'compilation-strategy) (define-namable-boolean-decl standard-bindings-sym) (define-namable-boolean-decl extended-bindings-sym) (define-boolean-decl safe-sym) (define-boolean-decl interrupts-enabled-sym) (define (scheme-dialect decl) (declaration-value 'dialect #f ieee-scheme-sym decl)) (define (lambda-lift? decl) (declaration-value lambda-lift-sym #f #t decl)) (define (compilation-strategy decl) (declaration-value 'compilation-strategy #f separate-sym decl)) (define (standard-binding? name decl) (declaration-value standard-bindings-sym name #f decl)) (define (extended-binding? name decl) (declaration-value extended-bindings-sym name #f decl)) (define (add-extended-bindings decl) (add-decl (list extended-bindings-sym #t) decl)) (define (intrs-enabled? decl) (declaration-value interrupts-enabled-sym #f #t decl)) (define (add-not-interrupts-enabled decl) (add-decl (list interrupts-enabled-sym #f) decl)) (define (safe? decl) (declaration-value safe-sym #f #f decl)) (define (add-not-safe decl) (add-decl (list safe-sym #f) decl)) (define (dialect-specific-keywords dialect) (cond ((eq? dialect ieee-scheme-sym) ieee-scheme-specific-keywords) ((eq? dialect r4rs-scheme-sym) r4rs-scheme-specific-keywords) ((eq? dialect multilisp-sym) multilisp-specific-keywords) (else (compiler-internal-error "dialect-specific-keywords, unknown dialect" dialect)))) (define (dialect-specific-procedures dialect) (cond ((eq? dialect ieee-scheme-sym) ieee-scheme-specific-procedures) ((eq? dialect r4rs-scheme-sym) r4rs-scheme-specific-procedures) ((eq? dialect multilisp-sym) multilisp-specific-procedures) (else (compiler-internal-error "dialect-specific-procedures, unknown dialect" dialect)))) (define (make-standard-procedure x) (cons (string->canonical-symbol (car x)) (cdr x))) (define (standard-procedure name decl) (or (assq name (dialect-specific-procedures (scheme-dialect decl))) (assq name common-procedures))) (define (standard-procedure-call-pattern proc) (cdr proc)) (define ieee-scheme-specific-keywords '()) (define ieee-scheme-specific-procedures (map make-standard-procedure '())) (define r4rs-scheme-specific-keywords (list delay-sym)) (define r4rs-scheme-specific-procedures (map make-standard-procedure '(("LIST-TAIL" 2) ("-" . 1) ("/" . 1) ("STRING->LIST" 1) ("LIST->STRING" 1) ("STRING-COPY" 1) ("STRING-FILL!" 2) ("VECTOR->LIST" 1) ("LIST->VECTOR" 1) ("VECTOR-FILL!" 2) ("FORCE" 1) ("WITH-INPUT-FROM-FILE" 2) ("WITH-OUTPUT-TO-FILE" 2) ("CHAR-READY?" 0 1) ("LOAD" 1) ("TRANSCRIPT-ON" 1) ("TRANSCRIPT-OFF" 0)))) (define multilisp-specific-keywords (list delay-sym future-sym)) (define multilisp-specific-procedures (map make-standard-procedure '(("FORCE" 1) ("TOUCH" 1)))) (define common-keywords (list quote-sym quasiquote-sym unquote-sym unquote-splicing-sym lambda-sym if-sym set!-sym cond-sym =>-sym else-sym and-sym or-sym case-sym let-sym let*-sym letrec-sym begin-sym do-sym define-sym **define-macro-sym **declare-sym **include-sym)) (define common-procedures (map make-standard-procedure '(("NOT" 1) ("BOOLEAN?" 1) ("EQV?" 2) ("EQ?" 2) ("EQUAL?" 2) ("PAIR?" 1) ("CONS" 2) ("CAR" 1) ("CDR" 1) ("SET-CAR!" 2) ("SET-CDR!" 2) ("CAAR" 1) ("CADR" 1) ("CDAR" 1) ("CDDR" 1) ("CAAAR" 1) ("CAADR" 1) ("CADAR" 1) ("CADDR" 1) ("CDAAR" 1) ("CDADR" 1) ("CDDAR" 1) ("CDDDR" 1) ("CAAAAR" 1) ("CAAADR" 1) ("CAADAR" 1) ("CAADDR" 1) ("CADAAR" 1) ("CADADR" 1) ("CADDAR" 1) ("CADDDR" 1) ("CDAAAR" 1) ("CDAADR" 1) ("CDADAR" 1) ("CDADDR" 1) ("CDDAAR" 1) ("CDDADR" 1) ("CDDDAR" 1) ("CDDDDR" 1) ("NULL?" 1) ("LIST?" 1) ("LIST" . 0) ("LENGTH" 1) ("APPEND" . 0) ("REVERSE" 1) ("LIST-REF" 2) ("MEMQ" 2) ("MEMV" 2) ("MEMBER" 2) ("ASSQ" 2) ("ASSV" 2) ("ASSOC" 2) ("SYMBOL?" 1) ("SYMBOL->STRING" 1) ("STRING->SYMBOL" 1) ("NUMBER?" 1) ("COMPLEX?" 1) ("REAL?" 1) ("RATIONAL?" 1) ("INTEGER?" 1) ("EXACT?" 1) ("INEXACT?" 1) ("=" . 2) ("<" . 2) (">" . 2) ("<=" . 2) (">=" . 2) ("ZERO?" 1) ("POSITIVE?" 1) ("NEGATIVE?" 1) ("ODD?" 1) ("EVEN?" 1) ("MAX" . 1) ("MIN" . 1) ("+" . 0) ("*" . 0) ("-" 1 2) ("/" 1 2) ("ABS" 1) ("QUOTIENT" 2) ("REMAINDER" 2) ("MODULO" 2) ("GCD" . 0) ("LCM" . 0) ("NUMERATOR" 1) ("DENOMINATOR" 1) ("FLOOR" 1) ("CEILING" 1) ("TRUNCATE" 1) ("ROUND" 1) ("RATIONALIZE" 2) ("EXP" 1) ("LOG" 1) ("SIN" 1) ("COS" 1) ("TAN" 1) ("ASIN" 1) ("ACOS" 1) ("ATAN" 1 2) ("SQRT" 1) ("EXPT" 2) ("MAKE-RECTANGULAR" 2) ("MAKE-POLAR" 2) ("REAL-PART" 1) ("IMAG-PART" 1) ("MAGNITUDE" 1) ("ANGLE" 1) ("EXACT->INEXACT" 1) ("INEXACT->EXACT" 1) ("NUMBER->STRING" 1 2) ("STRING->NUMBER" 1 2) ("CHAR?" 1) ("CHAR=?" 2) ("CHAR<?" 2) ("CHAR>?" 2) ("CHAR<=?" 2) ("CHAR>=?" 2) ("CHAR-CI=?" 2) ("CHAR-CI<?" 2) ("CHAR-CI>?" 2) ("CHAR-CI<=?" 2) ("CHAR-CI>=?" 2) ("CHAR-ALPHABETIC?" 1) ("CHAR-NUMERIC?" 1) ("CHAR-WHITESPACE?" 1) ("CHAR-UPPER-CASE?" 1) ("CHAR-LOWER-CASE?" 1) ("CHAR->INTEGER" 1) ("INTEGER->CHAR" 1) ("CHAR-UPCASE" 1) ("CHAR-DOWNCASE" 1) ("STRING?" 1) ("MAKE-STRING" 1 2) ("STRING" . 0) ("STRING-LENGTH" 1) ("STRING-REF" 2) ("STRING-SET!" 3) ("STRING=?" 2) ("STRING<?" 2) ("STRING>?" 2) ("STRING<=?" 2) ("STRING>=?" 2) ("STRING-CI=?" 2) ("STRING-CI<?" 2) ("STRING-CI>?" 2) ("STRING-CI<=?" 2) ("STRING-CI>=?" 2) ("SUBSTRING" 3) ("STRING-APPEND" . 0) ("VECTOR?" 1) ("MAKE-VECTOR" 1 2) ("VECTOR" . 0) ("VECTOR-LENGTH" 1) ("VECTOR-REF" 2) ("VECTOR-SET!" 3) ("PROCEDURE?" 1) ("APPLY" . 2) ("MAP" . 2) ("FOR-EACH" . 2) ("CALL-WITH-CURRENT-CONTINUATION" 1) ("CALL-WITH-INPUT-FILE" 2) ("CALL-WITH-OUTPUT-FILE" 2) ("INPUT-PORT?" 1) ("OUTPUT-PORT?" 1) ("CURRENT-INPUT-PORT" 0) ("CURRENT-OUTPUT-PORT" 0) ("OPEN-INPUT-FILE" 1) ("OPEN-OUTPUT-FILE" 1) ("CLOSE-INPUT-PORT" 1) ("CLOSE-OUTPUT-PORT" 1) ("EOF-OBJECT?" 1) ("READ" 0 1) ("READ-CHAR" 0 1) ("PEEK-CHAR" 0 1) ("WRITE" 1 2) ("DISPLAY" 1 2) ("NEWLINE" 0 1) ("WRITE-CHAR" 1 2)))) (define (parse-program program env module-name proc) (define (parse-prog program env lst proc) (if (null? program) (proc (reverse lst) env) (let ((source (car program))) (cond ((macro-expr? source env) (parse-prog (cons (macro-expand source env) (cdr program)) env lst proc)) ((begin-defs-expr? source) (parse-prog (append (begin-defs-body source) (cdr program)) env lst proc)) ((include-expr? source) (if *ptree-port* (display " " *ptree-port*)) (let ((x (file->sources* (include-filename source) *ptree-port* (source-locat source)))) (if *ptree-port* (newline *ptree-port*)) (parse-prog (append x (cdr program)) env lst proc))) ((define-macro-expr? source env) (if *ptree-port* (begin (display " \"macro\"" *ptree-port*) (newline *ptree-port*))) (parse-prog (cdr program) (add-macro source env) lst proc)) ((declare-expr? source) (if *ptree-port* (begin (display " \"decl\"" *ptree-port*) (newline *ptree-port*))) (parse-prog (cdr program) (add-declarations source env) lst proc)) ((define-expr? source env) (let* ((var** (definition-variable source)) (var* (source-code var**)) (var (env-lookup-var env var* var**))) (if *ptree-port* (begin (display " " *ptree-port*) (display (var-name var) *ptree-port*) (newline *ptree-port*))) (let ((node (pt (definition-value source) env 'true))) (set-prc-names! (list var) (list node)) (parse-prog (cdr program) env (cons (cons (new-def source (env-declarations env) var node) env) lst) proc)))) ((c-declaration-expr? source) (if *ptree-port* (begin (display " \"c-decl\"" *ptree-port*) (newline *ptree-port*))) (add-c-declaration (source-code (cadr (source-code source)))) (parse-prog (cdr program) env lst proc)) ((c-init-expr? source) (if *ptree-port* (begin (display " \"c-init\"" *ptree-port*) (newline *ptree-port*))) (add-c-init (source-code (cadr (source-code source)))) (parse-prog (cdr program) env lst proc)) (else (if *ptree-port* (begin (display " \"expr\"" *ptree-port*) (newline *ptree-port*))) (parse-prog (cdr program) env (cons (cons (pt source env 'true) env) lst) proc)))))) (if *ptree-port* (begin (display "Parsing:" *ptree-port*) (newline *ptree-port*))) (c-interface-begin module-name) (parse-prog program env '() (lambda (lst env) (if *ptree-port* (newline *ptree-port*)) (proc lst env (c-interface-end))))) (define (c-interface-begin module-name) (set! c-interface-module-name module-name) (set! c-interface-proc-count 0) (set! c-interface-decls '()) (set! c-interface-procs '()) (set! c-interface-inits '()) #f) (define (c-interface-end) (let ((i (make-c-intf (reverse c-interface-decls) (reverse c-interface-procs) (reverse c-interface-inits)))) (set! c-interface-module-name #f) (set! c-interface-proc-count #f) (set! c-interface-decls #f) (set! c-interface-procs #f) (set! c-interface-inits #f) i)) (define c-interface-module-name #f) (define c-interface-proc-count #f) (define c-interface-decls #f) (define c-interface-procs #f) (define c-interface-inits #f) (define (make-c-intf decls procs inits) (vector decls procs inits)) (define (c-intf-decls c-intf) (vector-ref c-intf 0)) (define (c-intf-decls-set! c-intf x) (vector-set! c-intf 0 x)) (define (c-intf-procs c-intf) (vector-ref c-intf 1)) (define (c-intf-procs-set! c-intf x) (vector-set! c-intf 1 x)) (define (c-intf-inits c-intf) (vector-ref c-intf 2)) (define (c-intf-inits-set! c-intf x) (vector-set! c-intf 2 x)) (define (c-declaration-expr? source) (and (mymatch **c-declaration-sym 1 source) (let ((code (source-code source))) (or (string? (source-code (cadr code))) (pt-syntax-error source "Argument to '##c-declaration' must be a string"))))) (define (c-init-expr? source) (and (mymatch **c-init-sym 1 source) (let ((code (source-code source))) (or (string? (source-code (cadr code))) (pt-syntax-error source "Argument to '##c-init' must be a string"))))) (define (c-procedure-expr? source) (and (mymatch **c-procedure-sym 3 source) (let ((code (source-code source))) (if (not (string? (source-code (cadddr code)))) (pt-syntax-error source "Last argument to '##c-procedure' must be a string") (check-arg-and-result-types source (cadr code) (caddr code)))))) (define scheme-to-c-notation (list (list void-sym "VOID" "void") (list char-sym "CHAR" "char") (list signed-char-sym "SCHAR" "signed char") (list unsigned-char-sym "UCHAR" "unsigned char") (list short-sym "SHORT" "short") (list unsigned-short-sym "USHORT" "unsigned short") (list int-sym "INT" "int") (list unsigned-int-sym "UINT" "unsigned int") (list long-sym "LONG" "long") (list unsigned-long-sym "ULONG" "unsigned long") (list float-sym "FLOAT" "float") (list double-sym "DOUBLE" "double") (list pointer-sym "POINTER" "void*") (list boolean-sym "BOOLEAN" "int") (list string-sym "STRING" "char*") (list scheme-object-sym "SCMOBJ" "long"))) (define (convert-type typ) (if (assq typ scheme-to-c-notation) typ #f)) (define (check-arg-and-result-types source arg-typs-source res-typ-source) (let ((arg-typs (source-code arg-typs-source)) (res-typ (source-code res-typ-source))) (let ((res-type (convert-type res-typ))) (if (not res-type) (pt-syntax-error res-typ-source "Invalid result type") (if (not (proper-length arg-typs)) (pt-syntax-error arg-typs-source "Ill-terminated argument type list") (let loop ((lst arg-typs)) (if (pair? lst) (let* ((arg-typ (source-code (car lst))) (arg-type (convert-type arg-typ))) (if (or (not arg-type) (eq? arg-type void-sym)) (pt-syntax-error (car lst) "Invalid argument type") (loop (cdr lst)))) #t))))))) (define (add-c-declaration declaration-string) (set! c-interface-decls (cons declaration-string c-interface-decls)) #f) (define (add-c-init initialization-code-string) (set! c-interface-inits (cons initialization-code-string c-interface-inits)) #f) (define (add-c-proc scheme-name c-name arity def) (set! c-interface-procs (cons (vector scheme-name c-name arity def) c-interface-procs)) #f) (define (pt-c-procedure source env use) (let* ((code (source-code source)) (name (build-c-procedure (map source-code (source-code (cadr code))) (source-code (caddr code)) (source-code (cadddr code)))) (decl (env-declarations env))) (new-ref source decl (env-lookup-global-var env (string->symbol name))))) (define (build-c-procedure argument-types result-type proc-name-or-code) (define proc-name? (let loop ((i (- (string-length proc-name-or-code) 1))) (if (>= i 0) (let ((c (string-ref proc-name-or-code i))) (if (or (char-alphabetic? c) (char=? c #\_)) (loop (- i 1)) #f)) #t))) (define nl (string #\newline)) (define undefined-value "UND") (define scheme-arg-prefix "ARG") (define scheme-result-name "RESULT") (define c-arg-prefix "arg") (define c-result-name "result") (define scheme-to-c-prefix "SCMOBJ_TO_") (define c-to-scheme-suffix "_TO_SCMOBJ") (define (c-type-name typ) (cadr (assq typ scheme-to-c-notation))) (define (c-type-decl typ) (caddr (assq typ scheme-to-c-notation))) (define (listify strings) (if (null? strings) "" (string-append (car strings) (apply string-append (map (lambda (s) (string-append "," s)) (cdr strings)))))) (define (scheme-arg-var t) (string-append c-id-prefix scheme-arg-prefix (number->string (cdr t)))) (define (c-arg-var t) (string-append c-id-prefix c-arg-prefix (number->string (cdr t)))) (define (make-c-procedure arg-types res-type) (define (make-arg-decl) (apply string-append (map (lambda (t) (string-append (c-type-decl (car t)) " " (c-arg-var t) ";" nl)) arg-types))) (define (make-conversions) (if (not (null? arg-types)) (let loop ((lst arg-types) (str (string-append "if (" nl))) (if (null? lst) (string-append str " )" nl) (let ((t (car lst)) (rest (cdr lst))) (loop rest (string-append str " " c-id-prefix scheme-to-c-prefix (c-type-name (car t)) "(" (scheme-arg-var t) "," (c-arg-var t) ")" (if (null? rest) "" " &&") nl))))) "")) (define (make-body) (if proc-name? (let* ((param-list (listify (map c-arg-var arg-types))) (call (string-append proc-name-or-code "(" param-list ")"))) (if (eq? res-type void-sym) (string-append "{" nl call ";" nl c-id-prefix scheme-result-name " = " c-id-prefix undefined-value ";" nl "}" nl) (string-append c-id-prefix (c-type-name res-type) c-to-scheme-suffix "(" call "," c-id-prefix scheme-result-name ");" nl))) (if (eq? res-type void-sym) (string-append "{" nl proc-name-or-code nl c-id-prefix scheme-result-name " = " c-id-prefix undefined-value ";" nl "}" nl) (string-append "{" nl proc-name-or-code nl c-id-prefix (c-type-name res-type) c-to-scheme-suffix "(" c-id-prefix c-result-name "," c-id-prefix scheme-result-name ");" nl "}" nl)))) (let* ((index (number->string c-interface-proc-count)) (scheme-name (string-append "#!" c-interface-module-name "#" index)) (c-name (string-append c-id-prefix (scheme-id->c-id scheme-name))) (arity (length argument-types)) (def (string-append (if (or proc-name? (eq? res-type void-sym)) "" (string-append (c-type-decl res-type) " " c-id-prefix c-result-name ";" nl)) (make-arg-decl) (make-conversions) (make-body)))) (set! c-interface-proc-count (+ c-interface-proc-count 1)) (add-c-proc scheme-name c-name arity def) scheme-name)) (let loop ((i 1) (lst1 argument-types) (lst2 '())) (if (pair? lst1) (loop (+ i 1) (cdr lst1) (cons (cons (car lst1) i) lst2)) (make-c-procedure (reverse lst2) result-type)))) (define (scheme-id->c-id s) (define (hex->char i) (string-ref "0123456789abcdef" i)) (let loop ((i (- (string-length s) 1)) (l '())) (if (>= i 0) (let ((c (string-ref s i))) (cond ((or (char-alphabetic? c) (char-numeric? c)) (loop (- i 1) (cons c l))) ((char=? c #\_) (loop (- i 1) (cons c (cons c l)))) (else (let ((n (character-encoding c))) (loop (- i 1) (cons #\_ (cons (hex->char (quotient n 16)) (cons (hex->char (modulo n 16)) l)))))))) (lst->string l)))) (define (pt-syntax-error source msg . args) (apply compiler-user-error (cons (source-locat source) (cons (string-append "Syntax error -- " msg) args)))) (define (pt source env use) (cond ((macro-expr? source env) (pt (macro-expand source env) env use)) ((self-eval-expr? source) (pt-self-eval source env use)) ((quote-expr? source) (pt-quote source env use)) ((quasiquote-expr? source) (pt-quasiquote source env use)) ((unquote-expr? source) (pt-syntax-error source "Ill-placed 'unquote'")) ((unquote-splicing-expr? source) (pt-syntax-error source "Ill-placed 'unquote-splicing'")) ((var-expr? source env) (pt-var source env use)) ((set!-expr? source env) (pt-set! source env use)) ((lambda-expr? source env) (pt-lambda source env use)) ((if-expr? source) (pt-if source env use)) ((cond-expr? source) (pt-cond source env use)) ((and-expr? source) (pt-and source env use)) ((or-expr? source) (pt-or source env use)) ((case-expr? source) (pt-case source env use)) ((let-expr? source env) (pt-let source env use)) ((let*-expr? source env) (pt-let* source env use)) ((letrec-expr? source env) (pt-letrec source env use)) ((begin-expr? source) (pt-begin source env use)) ((do-expr? source env) (pt-do source env use)) ((define-expr? source env) (pt-syntax-error source "Ill-placed 'define'")) ((delay-expr? source env) (pt-delay source env use)) ((future-expr? source env) (pt-future source env use)) ((define-macro-expr? source env) (pt-syntax-error source "Ill-placed '##define-macro'")) ((begin-defs-expr? source) (pt-syntax-error source "Ill-placed 'begin' style definitions")) ((declare-expr? source) (pt-syntax-error source "Ill-placed '##declare'")) ((c-declaration-expr? source) (pt-syntax-error source "Ill-placed '##c-declaration'")) ((c-init-expr? source) (pt-syntax-error source "Ill-placed '##c-init'")) ((c-procedure-expr? source) (pt-c-procedure source env use)) ((combination-expr? source) (pt-combination source env use)) (else (compiler-internal-error "pt, unknown expression type" source)))) (define (macro-expand source env) (let ((code (source-code source))) (expression->source (apply (cdr (env-lookup-macro env (source-code (car code)))) (cdr (source->expression source))) source))) (define (pt-self-eval source env use) (let ((val (source->expression source))) (if (eq? use 'none) (new-cst source (env-declarations env) undef-object) (new-cst source (env-declarations env) val)))) (define (pt-quote source env use) (let ((code (source-code source))) (if (eq? use 'none) (new-cst source (env-declarations env) undef-object) (new-cst source (env-declarations env) (source->expression (cadr code)))))) (define (pt-quasiquote source env use) (let ((code (source-code source))) (pt-quasiquotation (cadr code) 1 env))) (define (pt-quasiquotation form level env) (cond ((= level 0) (pt form env 'true)) ((quasiquote-expr? form) (pt-quasiquotation-list form (source-code form) (+ level 1) env)) ((unquote-expr? form) (if (= level 1) (pt (cadr (source-code form)) env 'true) (pt-quasiquotation-list form (source-code form) (- level 1) env))) ((unquote-splicing-expr? form) (if (= level 1) (pt-syntax-error form "Ill-placed 'unquote-splicing'") (pt-quasiquotation-list form (source-code form) (- level 1) env))) ((pair? (source-code form)) (pt-quasiquotation-list form (source-code form) level env)) ((vector? (source-code form)) (vector-form form (pt-quasiquotation-list form (vector->lst (source-code form)) level env) env)) (else (new-cst form (env-declarations env) (source->expression form))))) (define (pt-quasiquotation-list form l level env) (cond ((pair? l) (if (and (unquote-splicing-expr? (car l)) (= level 1)) (let ((x (pt (cadr (source-code (car l))) env 'true))) (if (null? (cdr l)) x (append-form (car l) x (pt-quasiquotation-list form (cdr l) 1 env) env))) (cons-form form (pt-quasiquotation (car l) level env) (pt-quasiquotation-list form (cdr l) level env) env))) ((null? l) (new-cst form (env-declarations env) '())) (else (pt-quasiquotation l level env)))) (define (append-form source ptree1 ptree2 env) (cond ((and (cst? ptree1) (cst? ptree2)) (new-cst source (env-declarations env) (append (cst-val ptree1) (cst-val ptree2)))) ((and (cst? ptree2) (null? (cst-val ptree2))) ptree1) (else (new-call* source (add-not-safe (env-declarations env)) (new-ref-extended-bindings source **quasi-append-sym env) (list ptree1 ptree2))))) (define (cons-form source ptree1 ptree2 env) (cond ((and (cst? ptree1) (cst? ptree2)) (new-cst source (env-declarations env) (cons (cst-val ptree1) (cst-val ptree2)))) ((and (cst? ptree2) (null? (cst-val ptree2))) (new-call* source (add-not-safe (env-declarations env)) (new-ref-extended-bindings source **quasi-list-sym env) (list ptree1))) (else (new-call* source (add-not-safe (env-declarations env)) (new-ref-extended-bindings source **quasi-cons-sym env) (list ptree1 ptree2))))) (define (vector-form source ptree env) (if (cst? ptree) (new-cst source (env-declarations env) (lst->vector (cst-val ptree))) (new-call* source (add-not-safe (env-declarations env)) (new-ref-extended-bindings source **quasi-list->vector-sym env) (list ptree)))) (define (pt-var source env use) (if (eq? use 'none) (new-cst source (env-declarations env) undef-object) (new-ref source (env-declarations env) (env-lookup-var env (source-code source) source)))) (define (pt-set! source env use) (let ((code (source-code source))) (new-set source (env-declarations env) (env-lookup-var env (source-code (cadr code)) (cadr code)) (pt (caddr code) env 'true)))) (define (pt-lambda source env use) (let ((code (source-code source))) (define (new-params parms) (cond ((pair? parms) (let* ((parm* (car parms)) (parm (source-code parm*)) (p* (if (pair? parm) (car parm) parm*))) (cons (make-var (source-code p*) #t (set-empty) (set-empty) p*) (new-params (cdr parms))))) ((null? parms) '()) (else (list (make-var (source-code parms) #t (set-empty) (set-empty) parms))))) (define (min-params parms) (let loop ((l parms) (n 0)) (if (pair? l) (if (pair? (source-code (car l))) n (loop (cdr l) (+ n 1))) n))) (define (rest-param? parms) (if (pair? parms) (rest-param? (cdr parms)) (not (null? parms)))) (define (optionals parms source body env) (if (pair? parms) (let* ((parm* (car parms)) (parm (source-code parm*))) (if (and (pair? parm) (length? parm 2)) (let* ((var (car parm)) (vars (new-variables (list var))) (decl (env-declarations env))) (new-call* parm* decl (new-prc parm* decl #f 1 #f vars (optionals (cdr parms) source body (env-frame env vars))) (list (new-tst parm* decl (new-call* parm* decl (new-ref-extended-bindings parm* **unassigned?-sym env) (list (new-ref parm* decl (env-lookup-var env (source-code var) var)))) (pt (cadr parm) env 'true) (new-ref parm* decl (env-lookup-var env (source-code var) var)))))) (optionals (cdr parms) source body env))) (pt-body source body env 'true))) (if (eq? use 'none) (new-cst source (env-declarations env) undef-object) (let* ((parms (source->parms (cadr code))) (frame (new-params parms))) (new-prc source (env-declarations env) #f (min-params parms) (rest-param? parms) frame (optionals parms source (cddr code) (env-frame env frame))))))) (define (source->parms source) (let ((x (source-code source))) (if (or (pair? x) (null? x)) x source))) (define (pt-body source body env use) (define (letrec-defines vars vals envs body env) (cond ((null? body) (pt-syntax-error source "Body must contain at least one evaluable expression")) ((macro-expr? (car body) env) (letrec-defines vars vals envs (cons (macro-expand (car body) env) (cdr body)) env)) ((begin-defs-expr? (car body)) (letrec-defines vars vals envs (append (begin-defs-body (car body)) (cdr body)) env)) ((include-expr? (car body)) (if *ptree-port* (display " " *ptree-port*)) (let ((x (file->sources* (include-filename (car body)) *ptree-port* (source-locat (car body))))) (if *ptree-port* (newline *ptree-port*)) (letrec-defines vars vals envs (append x (cdr body)) env))) ((define-expr? (car body) env) (let* ((var** (definition-variable (car body))) (var* (source-code var**)) (var (env-define-var env var* var**))) (letrec-defines (cons var vars) (cons (definition-value (car body)) vals) (cons env envs) (cdr body) env))) ((declare-expr? (car body)) (letrec-defines vars vals envs (cdr body) (add-declarations (car body) env))) ((define-macro-expr? (car body) env) (letrec-defines vars vals envs (cdr body) (add-macro (car body) env))) ((c-declaration-expr? (car body)) (add-c-declaration (source-code (cadr (source-code (car body))))) (letrec-defines vars vals envs (cdr body) env)) ((c-init-expr? (car body)) (add-c-init (source-code (cadr (source-code (car body))))) (letrec-defines vars vals envs (cdr body) env)) ((null? vars) (pt-sequence source body env use)) (else (let ((vars* (reverse vars))) (let loop ((vals* '()) (l1 vals) (l2 envs)) (if (not (null? l1)) (loop (cons (pt (car l1) (car l2) 'true) vals*) (cdr l1) (cdr l2)) (pt-recursive-let source vars* vals* body env use))))))) (letrec-defines '() '() '() body (env-frame env '()))) (define (pt-sequence source seq env use) (if (length? seq 1) (pt (car seq) env use) (new-seq source (env-declarations env) (pt (car seq) env 'none) (pt-sequence source (cdr seq) env use)))) (define (pt-if source env use) (let ((code (source-code source))) (new-tst source (env-declarations env) (pt (cadr code) env 'pred) (pt (caddr code) env use) (if (length? code 3) (new-cst source (env-declarations env) undef-object) (pt (cadddr code) env use))))) (define (pt-cond source env use) (define (pt-clauses clauses) (if (length? clauses 0) (new-cst source (env-declarations env) undef-object) (let* ((clause* (car clauses)) (clause (source-code clause*))) (cond ((eq? (source-code (car clause)) else-sym) (pt-sequence clause* (cdr clause) env use)) ((length? clause 1) (new-disj clause* (env-declarations env) (pt (car clause) env (if (eq? use 'true) 'true 'pred)) (pt-clauses (cdr clauses)))) ((eq? (source-code (cadr clause)) =>-sym) (new-disj-call clause* (env-declarations env) (pt (car clause) env 'true) (pt (caddr clause) env 'true) (pt-clauses (cdr clauses)))) (else (new-tst clause* (env-declarations env) (pt (car clause) env 'pred) (pt-sequence clause* (cdr clause) env use) (pt-clauses (cdr clauses)))))))) (pt-clauses (cdr (source-code source)))) (define (pt-and source env use) (define (pt-exprs exprs) (cond ((length? exprs 0) (new-cst source (env-declarations env) #t)) ((length? exprs 1) (pt (car exprs) env use)) (else (new-conj (car exprs) (env-declarations env) (pt (car exprs) env (if (eq? use 'true) 'true 'pred)) (pt-exprs (cdr exprs)))))) (pt-exprs (cdr (source-code source)))) (define (pt-or source env use) (define (pt-exprs exprs) (cond ((length? exprs 0) (new-cst source (env-declarations env) false-object)) ((length? exprs 1) (pt (car exprs) env use)) (else (new-disj (car exprs) (env-declarations env) (pt (car exprs) env (if (eq? use 'true) 'true 'pred)) (pt-exprs (cdr exprs)))))) (pt-exprs (cdr (source-code source)))) (define (pt-case source env use) (let ((code (source-code source)) (temp (new-temps source '(temp)))) (define (pt-clauses clauses) (if (length? clauses 0) (new-cst source (env-declarations env) undef-object) (let* ((clause* (car clauses)) (clause (source-code clause*))) (if (eq? (source-code (car clause)) else-sym) (pt-sequence clause* (cdr clause) env use) (new-tst clause* (env-declarations env) (new-call* clause* (add-not-safe (env-declarations env)) (new-ref-extended-bindings clause* **case-memv-sym env) (list (new-ref clause* (env-declarations env) (car temp)) (new-cst (car clause) (env-declarations env) (source->expression (car clause))))) (pt-sequence clause* (cdr clause) env use) (pt-clauses (cdr clauses))))))) (new-call* source (env-declarations env) (new-prc source (env-declarations env) #f 1 #f temp (pt-clauses (cddr code))) (list (pt (cadr code) env 'true))))) (define (pt-let source env use) (let ((code (source-code source))) (if (bindable-var? (cadr code) env) (let* ((self (new-variables (list (cadr code)))) (bindings (map source-code (source-code (caddr code)))) (vars (new-variables (map car bindings))) (vals (map (lambda (x) (pt (cadr x) env 'true)) bindings)) (env (env-frame (env-frame env vars) self)) (self-proc (list (new-prc source (env-declarations env) #f (length vars) #f vars (pt-body source (cdddr code) env use))))) (set-prc-names! self self-proc) (set-prc-names! vars vals) (new-call* source (env-declarations env) (new-prc source (env-declarations env) #f 1 #f self (new-call* source (env-declarations env) (new-ref source (env-declarations env) (car self)) vals)) self-proc)) (if (null? (source-code (cadr code))) (pt-body source (cddr code) env use) (let* ((bindings (map source-code (source-code (cadr code)))) (vars (new-variables (map car bindings))) (vals (map (lambda (x) (pt (cadr x) env 'true)) bindings)) (env (env-frame env vars))) (set-prc-names! vars vals) (new-call* source (env-declarations env) (new-prc source (env-declarations env) #f (length vars) #f vars (pt-body source (cddr code) env use)) vals)))))) (define (pt-let* source env use) (let ((code (source-code source))) (define (pt-bindings bindings env use) (if (null? bindings) (pt-body source (cddr code) env use) (let* ((binding* (car bindings)) (binding (source-code binding*)) (vars (new-variables (list (car binding)))) (vals (list (pt (cadr binding) env 'true))) (env (env-frame env vars))) (set-prc-names! vars vals) (new-call* binding* (env-declarations env) (new-prc binding* (env-declarations env) #f 1 #f vars (pt-bindings (cdr bindings) env use)) vals)))) (pt-bindings (source-code (cadr code)) env use))) (define (pt-letrec source env use) (let* ((code (source-code source)) (bindings (map source-code (source-code (cadr code)))) (vars* (new-variables (map car bindings))) (env* (env-frame env vars*))) (pt-recursive-let source vars* (map (lambda (x) (pt (cadr x) env* 'true)) bindings) (cddr code) env* use))) (define (pt-recursive-let source vars vals body env use) (define (dependency-graph vars vals) (define (dgraph vars* vals*) (if (null? vars*) (set-empty) (let ((var (car vars*)) (val (car vals*))) (set-adjoin (dgraph (cdr vars*) (cdr vals*)) (make-gnode var (set-intersection (list->set vars) (free-variables val))))))) (dgraph vars vals)) (define (val-of var) (list-ref vals (- (length vars) (length (memq var vars))))) (define (bind-in-order order) (if (null? order) (pt-body source body env use) (let* ((vars-set (car order)) (vars (set->list vars-set))) (let loop1 ((l (reverse vars)) (vars-b '()) (vals-b '()) (vars-a '())) (if (not (null? l)) (let* ((var (car l)) (val (val-of var))) (if (or (prc? val) (set-empty? (set-intersection (free-variables val) vars-set))) (loop1 (cdr l) (cons var vars-b) (cons val vals-b) vars-a) (loop1 (cdr l) vars-b vals-b (cons var vars-a)))) (let* ((result1 (let loop2 ((l vars-a)) (if (not (null? l)) (let* ((var (car l)) (val (val-of var))) (new-seq source (env-declarations env) (new-set source (env-declarations env) var val) (loop2 (cdr l)))) (bind-in-order (cdr order))))) (result2 (if (null? vars-b) result1 (new-call* source (env-declarations env) (new-prc source (env-declarations env) #f (length vars-b) #f vars-b result1) vals-b))) (result3 (if (null? vars-a) result2 (new-call* source (env-declarations env) (new-prc source (env-declarations env) #f (length vars-a) #f vars-a result2) (map (lambda (var) (new-cst source (env-declarations env) undef-object)) vars-a))))) result3)))))) (set-prc-names! vars vals) (bind-in-order (topological-sort (transitive-closure (dependency-graph vars vals))))) (define (pt-begin source env use) (pt-sequence source (cdr (source-code source)) env use)) (define (pt-do source env use) (let* ((code (source-code source)) (loop (new-temps source '(loop))) (bindings (map source-code (source-code (cadr code)))) (vars (new-variables (map car bindings))) (init (map (lambda (x) (pt (cadr x) env 'true)) bindings)) (env (env-frame env vars)) (step (map (lambda (x) (pt (if (length? x 2) (car x) (caddr x)) env 'true)) bindings)) (exit (source-code (caddr code)))) (set-prc-names! vars init) (new-call* source (env-declarations env) (new-prc source (env-declarations env) #f 1 #f loop (new-call* source (env-declarations env) (new-ref source (env-declarations env) (car loop)) init)) (list (new-prc source (env-declarations env) #f (length vars) #f vars (new-tst source (env-declarations env) (pt (car exit) env 'pred) (if (length? exit 1) (new-cst (caddr code) (env-declarations env) undef-object) (pt-sequence (caddr code) (cdr exit) env use)) (if (length? code 3) (new-call* source (env-declarations env) (new-ref source (env-declarations env) (car loop)) step) (new-seq source (env-declarations env) (pt-sequence source (cdddr code) env 'none) (new-call* source (env-declarations env) (new-ref source (env-declarations env) (car loop)) step))))))))) (define (pt-combination source env use) (let* ((code (source-code source)) (oper (pt (car code) env 'true)) (decl (node-decl oper))) (new-call* source (env-declarations env) oper (map (lambda (x) (pt x env 'true)) (cdr code))))) (define (pt-delay source env use) (let ((code (source-code source))) (new-call* source (add-not-safe (env-declarations env)) (new-ref-extended-bindings source **make-placeholder-sym env) (list (new-prc source (env-declarations env) #f 0 #f '() (pt (cadr code) env 'true)))))) (define (pt-future source env use) (let ((decl (env-declarations env)) (code (source-code source))) (new-fut source decl (pt (cadr code) env 'true)))) (define (self-eval-expr? source) (let ((code (source-code source))) (and (not (pair? code)) (not (symbol-object? code))))) (define (quote-expr? source) (mymatch quote-sym 1 source)) (define (quasiquote-expr? source) (mymatch quasiquote-sym 1 source)) (define (unquote-expr? source) (mymatch unquote-sym 1 source)) (define (unquote-splicing-expr? source) (mymatch unquote-splicing-sym 1 source)) (define (var-expr? source env) (let ((code (source-code source))) (and (symbol-object? code) (not-keyword source env code) (not-macro source env code)))) (define (not-macro source env name) (if (env-lookup-macro env name) (pt-syntax-error source "Macro name can't be used as a variable:" name) #t)) (define (bindable-var? source env) (let ((code (source-code source))) (and (symbol-object? code) (not-keyword source env code)))) (define (not-keyword source env name) (if (or (memq name common-keywords) (memq name (dialect-specific-keywords (scheme-dialect (env-declarations env))))) (pt-syntax-error source "Predefined keyword can't be used as a variable:" name) #t)) (define (set!-expr? source env) (and (mymatch set!-sym 2 source) (var-expr? (cadr (source-code source)) env))) (define (lambda-expr? source env) (and (mymatch lambda-sym -2 source) (proper-parms? (source->parms (cadr (source-code source))) env))) (define (if-expr? source) (and (mymatch if-sym -2 source) (or (<= (length (source-code source)) 4) (pt-syntax-error source "Ill-formed special form" if-sym)))) (define (cond-expr? source) (and (mymatch cond-sym -1 source) (proper-clauses? source))) (define (and-expr? source) (mymatch and-sym 0 source)) (define (or-expr? source) (mymatch or-sym 0 source)) (define (case-expr? source) (and (mymatch case-sym -2 source) (proper-case-clauses? source))) (define (let-expr? source env) (and (mymatch let-sym -2 source) (let ((code (source-code source))) (if (bindable-var? (cadr code) env) (and (proper-bindings? (caddr code) #t env) (or (> (length code) 3) (pt-syntax-error source "Ill-formed named 'let'"))) (proper-bindings? (cadr code) #t env))))) (define (let*-expr? source env) (and (mymatch let*-sym -2 source) (proper-bindings? (cadr (source-code source)) #f env))) (define (letrec-expr? source env) (and (mymatch letrec-sym -2 source) (proper-bindings? (cadr (source-code source)) #t env))) (define (begin-expr? source) (mymatch begin-sym -1 source)) (define (do-expr? source env) (and (mymatch do-sym -2 source) (proper-do-bindings? source env) (proper-do-exit? source))) (define (define-expr? source env) (and (mymatch define-sym -1 source) (proper-definition? source env) (let ((v (definition-variable source))) (not-macro v env (source-code v))))) (define (combination-expr? source) (let ((length (proper-length (source-code source)))) (if length (or (> length 0) (pt-syntax-error source "Ill-formed procedure call")) (pt-syntax-error source "Ill-terminated procedure call")))) (define (delay-expr? source env) (and (not (eq? (scheme-dialect (env-declarations env)) ieee-scheme-sym)) (mymatch delay-sym 1 source))) (define (future-expr? source env) (and (eq? (scheme-dialect (env-declarations env)) multilisp-sym) (mymatch future-sym 1 source))) (define (macro-expr? source env) (let ((code (source-code source))) (and (pair? code) (symbol-object? (source-code (car code))) (let ((macr (env-lookup-macro env (source-code (car code))))) (and macr (let ((len (proper-length (cdr code)))) (if len (let ((len* (+ len 1)) (size (car macr))) (or (if (> size 0) (= len* size) (>= len* (- size))) (pt-syntax-error source "Ill-formed macro form"))) (pt-syntax-error source "Ill-terminated macro form")))))))) (define (define-macro-expr? source env) (and (mymatch **define-macro-sym -1 source) (proper-definition? source env))) (define (declare-expr? source) (mymatch **declare-sym -1 source)) (define (include-expr? source) (mymatch **include-sym 1 source)) (define (begin-defs-expr? source) (mymatch begin-sym 0 source)) (define (mymatch keyword size source) (let ((code (source-code source))) (and (pair? code) (eq? (source-code (car code)) keyword) (let ((length (proper-length (cdr code)))) (if length (or (if (> size 0) (= length size) (>= length (- size))) (pt-syntax-error source "Ill-formed special form" keyword)) (pt-syntax-error source "Ill-terminated special form" keyword)))))) (define (proper-length l) (define (length l n) (cond ((pair? l) (length (cdr l) (+ n 1))) ((null? l) n) (else #f))) (length l 0)) (define (proper-definition? source env) (let* ((code (source-code source)) (pattern* (cadr code)) (pattern (source-code pattern*)) (body (cddr code))) (cond ((bindable-var? pattern* env) (cond ((length? body 0) #t) ((length? body 1) #t) (else (pt-syntax-error source "Ill-formed definition body")))) ((pair? pattern) (if (length? body 0) (pt-syntax-error source "Body of a definition must have at least one expression")) (if (bindable-var? (car pattern) env) (proper-parms? (cdr pattern) env) (pt-syntax-error (car pattern) "Procedure name must be an identifier"))) (else (pt-syntax-error pattern* "Ill-formed definition pattern"))))) (define (definition-variable def) (let* ((code (source-code def)) (pattern (cadr code))) (if (pair? (source-code pattern)) (car (source-code pattern)) pattern))) (define (definition-value def) (let ((code (source-code def)) (loc (source-locat def))) (cond ((pair? (source-code (cadr code))) (make-source (cons (make-source lambda-sym loc) (cons (parms->source (cdr (source-code (cadr code))) loc) (cddr code))) loc)) ((null? (cddr code)) (make-source (list (make-source quote-sym loc) (make-source undef-object loc)) loc)) (else (caddr code))))) (define (parms->source parms loc) (if (or (pair? parms) (null? parms)) (make-source parms loc) parms)) (define (proper-parms? parms env) (define (proper-parms parms seen optional-seen) (cond ((pair? parms) (let* ((parm* (car parms)) (parm (source-code parm*))) (cond ((pair? parm) (if (eq? (scheme-dialect (env-declarations env)) multilisp-sym) (let ((length (proper-length parm))) (if (or (eqv? length 1) (eqv? length 2)) (let ((var (car parm))) (if (bindable-var? var env) (if (memq (source-code var) seen) (pt-syntax-error var "Duplicate parameter in parameter list") (proper-parms (cdr parms) (cons (source-code var) seen) #t)) (pt-syntax-error var "Parameter must be an identifier"))) (pt-syntax-error parm* "Ill-formed optional parameter"))) (pt-syntax-error parm* "optional parameters illegal in this dialect"))) (optional-seen (pt-syntax-error parm* "Optional parameter expected")) ((bindable-var? parm* env) (if (memq parm seen) (pt-syntax-error parm* "Duplicate parameter in parameter list")) (proper-parms (cdr parms) (cons parm seen) #f)) (else (pt-syntax-error parm* "Parameter must be an identifier"))))) ((null? parms) #t) ((bindable-var? parms env) (if (memq (source-code parms) seen) (pt-syntax-error parms "Duplicate parameter in parameter list") #t)) (else (pt-syntax-error parms "Rest parameter must be an identifier")))) (proper-parms parms '() #f)) (define (proper-clauses? source) (define (proper-clauses clauses) (or (null? clauses) (let* ((clause* (car clauses)) (clause (source-code clause*)) (length (proper-length clause))) (if length (if (>= length 1) (if (eq? (source-code (car clause)) else-sym) (cond ((= length 1) (pt-syntax-error clause* "Else clause must have a body")) ((not (null? (cdr clauses))) (pt-syntax-error clause* "Else clause must be the last clause")) (else (proper-clauses (cdr clauses)))) (if (and (>= length 2) (eq? (source-code (cadr clause)) =>-sym) (not (= length 3))) (pt-syntax-error (cadr clause) "'=>' must be followed by a single expression") (proper-clauses (cdr clauses)))) (pt-syntax-error clause* "Ill-formed 'cond' clause")) (pt-syntax-error clause* "Ill-terminated 'cond' clause"))))) (proper-clauses (cdr (source-code source)))) (define (proper-case-clauses? source) (define (proper-case-clauses clauses) (or (null? clauses) (let* ((clause* (car clauses)) (clause (source-code clause*)) (length (proper-length clause))) (if length (if (>= length 2) (if (eq? (source-code (car clause)) else-sym) (if (not (null? (cdr clauses))) (pt-syntax-error clause* "Else clause must be the last clause") (proper-case-clauses (cdr clauses))) (begin (proper-selector-list? (car clause)) (proper-case-clauses (cdr clauses)))) (pt-syntax-error clause* "A 'case' clause must have a selector list and a body")) (pt-syntax-error clause* "Ill-terminated 'case' clause"))))) (proper-case-clauses (cddr (source-code source)))) (define (proper-selector-list? source) (let* ((code (source-code source)) (length (proper-length code))) (if length (or (>= length 1) (pt-syntax-error source "Selector list must contain at least one element")) (pt-syntax-error source "Ill-terminated selector list")))) (define (proper-bindings? bindings check-dupl? env) (define (proper-bindings l seen) (cond ((pair? l) (let* ((binding* (car l)) (binding (source-code binding*))) (if (eqv? (proper-length binding) 2) (let ((var (car binding))) (if (bindable-var? var env) (if (and check-dupl? (memq (source-code var) seen)) (pt-syntax-error var "Duplicate variable in bindings") (proper-bindings (cdr l) (cons (source-code var) seen))) (pt-syntax-error var "Binding variable must be an identifier"))) (pt-syntax-error binding* "Ill-formed binding")))) ((null? l) #t) (else (pt-syntax-error bindings "Ill-terminated binding list")))) (proper-bindings (source-code bindings) '())) (define (proper-do-bindings? source env) (let ((bindings (cadr (source-code source)))) (define (proper-bindings l seen) (cond ((pair? l) (let* ((binding* (car l)) (binding (source-code binding*)) (length (proper-length binding))) (if (or (eqv? length 2) (eqv? length 3)) (let ((var (car binding))) (if (bindable-var? var env) (if (memq (source-code var) seen) (pt-syntax-error var "Duplicate variable in bindings") (proper-bindings (cdr l) (cons (source-code var) seen))) (pt-syntax-error var "Binding variable must be an identifier"))) (pt-syntax-error binding* "Ill-formed binding")))) ((null? l) #t) (else (pt-syntax-error bindings "Ill-terminated binding list")))) (proper-bindings (source-code bindings) '()))) (define (proper-do-exit? source) (let* ((code (source-code (caddr (source-code source)))) (length (proper-length code))) (if length (or (> length 0) (pt-syntax-error source "Ill-formed exit clause")) (pt-syntax-error source "Ill-terminated exit clause")))) (define (include-filename source) (source-code (cadr (source-code source)))) (define (begin-defs-body source) (cdr (source-code source))) (define (length? l n) (cond ((null? l) (= n 0)) ((> n 0) (length? (cdr l) (- n 1))) (else #f))) (define (transform-declaration source) (let ((code (source-code source))) (if (not (pair? code)) (pt-syntax-error source "Ill-formed declaration") (let* ((pos (not (eq? (source-code (car code)) not-sym))) (x (if pos code (cdr code)))) (if (not (pair? x)) (pt-syntax-error source "Ill-formed declaration") (let* ((id* (car x)) (id (source-code id*))) (cond ((not (symbol-object? id)) (pt-syntax-error id* "Declaration name must be an identifier")) ((assq id flag-declarations) (cond ((not pos) (pt-syntax-error id* "Declaration can't be negated")) ((null? (cdr x)) (flag-decl source (cdr (assq id flag-declarations)) id)) (else (pt-syntax-error source "Ill-formed declaration")))) ((memq id parameterized-declarations) (cond ((not pos) (pt-syntax-error id* "Declaration can't be negated")) ((eqv? (proper-length x) 2) (parameterized-decl source id (source->expression (cadr x)))) (else (pt-syntax-error source "Ill-formed declaration")))) ((memq id boolean-declarations) (if (null? (cdr x)) (boolean-decl source id pos) (pt-syntax-error source "Ill-formed declaration"))) ((assq id namable-declarations) (cond ((not pos) (pt-syntax-error id* "Declaration can't be negated")) (else (namable-decl source (cdr (assq id namable-declarations)) id (map source->expression (cdr x)))))) ((memq id namable-boolean-declarations) (namable-boolean-decl source id pos (map source->expression (cdr x)))) ((memq id namable-string-declarations) (if (not (pair? (cdr x))) (pt-syntax-error source "Ill-formed declaration") (let* ((str* (cadr x)) (str (source-code str*))) (cond ((not pos) (pt-syntax-error id* "Declaration can't be negated")) ((not (string? str)) (pt-syntax-error str* "String expected")) (else (namable-string-decl source id str (map source->expression (cddr x)))))))) (else (pt-syntax-error id* "Unknown declaration"))))))))) (define (add-declarations source env) (let loop ((l (cdr (source-code source))) (env env)) (if (pair? l) (loop (cdr l) (env-declare env (transform-declaration (car l)))) env))) (define (add-decl d decl) (env-declare decl d)) (define (add-macro source env) (define (form-size parms) (let loop ((l parms) (n 1)) (if (pair? l) (loop (cdr l) (+ n 1)) (if (null? l) n (- n))))) (define (error-proc . msgs) (apply compiler-user-error (cons (source-locat source) (cons "(in macro body)" msgs)))) (let ((var (definition-variable source)) (proc (definition-value source))) (if (lambda-expr? proc env) (env-macro env (source-code var) (cons (form-size (source->parms (cadr (source-code proc)))) (scheme-global-eval (source->expression proc) error-proc))) (pt-syntax-error source "Macro value must be a lambda expression")))) (define (ptree.begin! info-port) (set! *ptree-port* info-port) '()) (define (ptree.end!) '()) (define *ptree-port* '()) (define (normalize-parse-tree ptree env) (define (normalize ptree) (let ((tree (assignment-convert (partial-evaluate ptree) env))) (lambda-lift! tree) tree)) (if (def? ptree) (begin (node-children-set! ptree (list (normalize (def-val ptree)))) ptree) (normalize ptree))) (define (partial-evaluate ptree) (pe ptree '())) (define (pe ptree consts) (cond ((cst? ptree) (new-cst (node-source ptree) (node-decl ptree) (cst-val ptree))) ((ref? ptree) (let ((var (ref-var ptree))) (var-refs-set! var (set-remove (var-refs var) ptree)) (let ((x (assq var consts))) (if x (new-cst (node-source ptree) (node-decl ptree) (cdr x)) (let ((y (global-val var))) (if (and y (cst? y)) (new-cst (node-source ptree) (node-decl ptree) (cst-val y)) (new-ref (node-source ptree) (node-decl ptree) var))))))) ((set? ptree) (let ((var (set-var ptree)) (val (pe (set-val ptree) consts))) (var-sets-set! var (set-remove (var-sets var) ptree)) (new-set (node-source ptree) (node-decl ptree) var val))) ((tst? ptree) (let ((pre (pe (tst-pre ptree) consts))) (if (cst? pre) (let ((val (cst-val pre))) (if (false-object? val) (pe (tst-alt ptree) consts) (pe (tst-con ptree) consts))) (new-tst (node-source ptree) (node-decl ptree) pre (pe (tst-con ptree) consts) (pe (tst-alt ptree) consts))))) ((conj? ptree) (let ((pre (pe (conj-pre ptree) consts))) (if (cst? pre) (let ((val (cst-val pre))) (if (false-object? val) pre (pe (conj-alt ptree) consts))) (new-conj (node-source ptree) (node-decl ptree) pre (pe (conj-alt ptree) consts))))) ((disj? ptree) (let ((pre (pe (disj-pre ptree) consts))) (if (cst? pre) (let ((val (cst-val pre))) (if (false-object? val) (pe (disj-alt ptree) consts) pre)) (new-disj (node-source ptree) (node-decl ptree) pre (pe (disj-alt ptree) consts))))) ((prc? ptree) (new-prc (node-source ptree) (node-decl ptree) (prc-name ptree) (prc-min ptree) (prc-rest ptree) (prc-parms ptree) (pe (prc-body ptree) consts))) ((app? ptree) (let ((oper (app-oper ptree)) (args (app-args ptree))) (if (and (prc? oper) (not (prc-rest oper)) (= (length (prc-parms oper)) (length args))) (pe-let ptree consts) (new-call (node-source ptree) (node-decl ptree) (pe oper consts) (map (lambda (x) (pe x consts)) args))))) ((fut? ptree) (new-fut (node-source ptree) (node-decl ptree) (pe (fut-val ptree) consts))) (else (compiler-internal-error "pe, unknown parse tree node type")))) (define (pe-let ptree consts) (let* ((proc (app-oper ptree)) (vals (app-args ptree)) (vars (prc-parms proc)) (non-mut-vars (set-keep not-mutable? (list->set vars)))) (for-each (lambda (var) (var-refs-set! var (set-empty)) (var-sets-set! var (set-empty))) vars) (let loop ((l vars) (v vals) (new-vars '()) (new-vals '()) (new-consts consts)) (if (null? l) (if (null? new-vars) (pe (prc-body proc) new-consts) (new-call (node-source ptree) (node-decl ptree) (new-prc (node-source proc) (node-decl proc) #f (length new-vars) #f (reverse new-vars) (pe (prc-body proc) new-consts)) (reverse new-vals))) (let ((var (car l)) (val (pe (car v) consts))) (if (and (set-member? var non-mut-vars) (cst? val)) (loop (cdr l) (cdr v) new-vars new-vals (cons (cons var (cst-val val)) new-consts)) (loop (cdr l) (cdr v) (cons var new-vars) (cons val new-vals) new-consts))))))) (define (assignment-convert ptree env) (ac ptree (env-declare env (list safe-sym #f)) '())) (define (ac ptree env mut) (cond ((cst? ptree) ptree) ((ref? ptree) (let ((var (ref-var ptree))) (if (global? var) ptree (let ((x (assq var mut))) (if x (let ((source (node-source ptree))) (var-refs-set! var (set-remove (var-refs var) ptree)) (new-call source (node-decl ptree) (new-ref-extended-bindings source **cell-ref-sym env) (list (new-ref source (node-decl ptree) (cdr x))))) ptree))))) ((set? ptree) (let ((var (set-var ptree)) (source (node-source ptree)) (val (ac (set-val ptree) env mut))) (var-sets-set! var (set-remove (var-sets var) ptree)) (if (global? var) (new-set source (node-decl ptree) var val) (new-call source (node-decl ptree) (new-ref-extended-bindings source **cell-set!-sym env) (list (new-ref source (node-decl ptree) (cdr (assq var mut))) val))))) ((tst? ptree) (new-tst (node-source ptree) (node-decl ptree) (ac (tst-pre ptree) env mut) (ac (tst-con ptree) env mut) (ac (tst-alt ptree) env mut))) ((conj? ptree) (new-conj (node-source ptree) (node-decl ptree) (ac (conj-pre ptree) env mut) (ac (conj-alt ptree) env mut))) ((disj? ptree) (new-disj (node-source ptree) (node-decl ptree) (ac (disj-pre ptree) env mut) (ac (disj-alt ptree) env mut))) ((prc? ptree) (ac-proc ptree env mut)) ((app? ptree) (let ((oper (app-oper ptree)) (args (app-args ptree))) (if (and (prc? oper) (not (prc-rest oper)) (= (length (prc-parms oper)) (length args))) (ac-let ptree env mut) (new-call (node-source ptree) (node-decl ptree) (ac oper env mut) (map (lambda (x) (ac x env mut)) args))))) ((fut? ptree) (new-fut (node-source ptree) (node-decl ptree) (ac (fut-val ptree) env mut))) (else (compiler-internal-error "ac, unknown parse tree node type")))) (define (ac-proc ptree env mut) (let* ((mut-parms (ac-mutables (prc-parms ptree))) (mut-parms-copies (map var-copy mut-parms)) (mut (append (pair-up mut-parms mut-parms-copies) mut)) (new-body (ac (prc-body ptree) env mut))) (new-prc (node-source ptree) (node-decl ptree) (prc-name ptree) (prc-min ptree) (prc-rest ptree) (prc-parms ptree) (if (null? mut-parms) new-body (new-call (node-source ptree) (node-decl ptree) (new-prc (node-source ptree) (node-decl ptree) #f (length mut-parms-copies) #f mut-parms-copies new-body) (map (lambda (var) (new-call (var-source var) (node-decl ptree) (new-ref-extended-bindings (var-source var) **make-cell-sym env) (list (new-ref (var-source var) (node-decl ptree) var)))) mut-parms)))))) (define (ac-let ptree env mut) (let* ((proc (app-oper ptree)) (vals (app-args ptree)) (vars (prc-parms proc)) (vals-fv (apply set-union (map free-variables vals))) (mut-parms (ac-mutables vars)) (mut-parms-copies (map var-copy mut-parms)) (mut (append (pair-up mut-parms mut-parms-copies) mut))) (let loop ((l vars) (v vals) (new-vars '()) (new-vals '()) (new-body (ac (prc-body proc) env mut))) (if (null? l) (new-let ptree proc new-vars new-vals new-body) (let ((var (car l)) (val (car v))) (if (memq var mut-parms) (let ((src (node-source val)) (decl (node-decl val)) (var* (cdr (assq var mut)))) (if (set-member? var vals-fv) (loop (cdr l) (cdr v) (cons var* new-vars) (cons (new-call src decl (new-ref-extended-bindings src **make-cell-sym env) (list (new-cst src decl undef-object))) new-vals) (new-seq src decl (new-call src decl (new-ref-extended-bindings src **cell-set!-sym env) (list (new-ref src decl var*) (ac val env mut))) new-body)) (loop (cdr l) (cdr v) (cons var* new-vars) (cons (new-call src decl (new-ref-extended-bindings src **make-cell-sym env) (list (ac val env mut))) new-vals) new-body))) (loop (cdr l) (cdr v) (cons var new-vars) (cons (ac val env mut) new-vals) new-body))))))) (define (ac-mutables l) (if (pair? l) (let ((var (car l)) (rest (ac-mutables (cdr l)))) (if (mutable? var) (cons var rest) rest)) '())) (define (lambda-lift! ptree) (ll! ptree (set-empty) '())) (define (ll! ptree cst-procs env) (define (new-env env vars) (define (loop i l) (if (pair? l) (let ((var (car l))) (cons (cons var (cons (length (set->list (var-refs var))) i)) (loop (+ i 1) (cdr l)))) env)) (loop (length env) vars)) (cond ((or (cst? ptree) (ref? ptree) (set? ptree) (tst? ptree) (conj? ptree) (disj? ptree) (fut? ptree)) (for-each (lambda (child) (ll! child cst-procs env)) (node-children ptree))) ((prc? ptree) (ll! (prc-body ptree) cst-procs (new-env env (prc-parms ptree)))) ((app? ptree) (let ((oper (app-oper ptree)) (args (app-args ptree))) (if (and (prc? oper) (not (prc-rest oper)) (= (length (prc-parms oper)) (length args))) (ll!-let ptree cst-procs (new-env env (prc-parms oper))) (for-each (lambda (child) (ll! child cst-procs env)) (node-children ptree))))) (else (compiler-internal-error "ll!, unknown parse tree node type")))) (define (ll!-let ptree cst-procs env) (let* ((proc (app-oper ptree)) (vals (app-args ptree)) (vars (prc-parms proc)) (var-val-map (pair-up vars vals))) (define (var->val var) (cdr (assq var var-val-map))) (define (liftable-proc-vars vars) (let loop ((cst-proc-vars (set-keep (lambda (var) (let ((val (var->val var))) (and (prc? val) (lambda-lift? (node-decl val)) (set-every? oper-pos? (var-refs var))))) (list->set vars)))) (let* ((non-cst-proc-vars (set-keep (lambda (var) (let ((val (var->val var))) (and (prc? val) (not (set-member? var cst-proc-vars))))) (list->set vars))) (cst-proc-vars* (set-keep (lambda (var) (let ((val (var->val var))) (set-empty? (set-intersection (free-variables val) non-cst-proc-vars)))) cst-proc-vars))) (if (set-equal? cst-proc-vars cst-proc-vars*) cst-proc-vars (loop cst-proc-vars*))))) (define (transitively-closed-free-variables vars) (let ((tcfv-map (map (lambda (var) (cons var (free-variables (var->val var)))) vars))) (let loop ((changed? #f)) (for-each (lambda (var-tcfv) (let loop2 ((l (set->list (cdr var-tcfv))) (fv (cdr var-tcfv))) (if (null? l) (if (not (set-equal? fv (cdr var-tcfv))) (begin (set-cdr! var-tcfv fv) (set! changed? #t))) (let ((x (assq (car l) tcfv-map))) (loop2 (cdr l) (if x (set-union fv (cdr x)) fv)))))) tcfv-map) (if changed? (loop #f) tcfv-map)))) (let* ((tcfv-map (transitively-closed-free-variables (liftable-proc-vars vars))) (cst-proc-vars-list (map car tcfv-map)) (cst-procs* (set-union (list->set cst-proc-vars-list) cst-procs))) (define (var->tcfv var) (cdr (assq var tcfv-map))) (define (order-vars vars) (map car (sort-list (map (lambda (var) (assq var env)) vars) (lambda (x y) (if (= (cadr x) (cadr y)) (< (cddr x) (cddr y)) (< (cadr x) (cadr y))))))) (define (lifted-vars var) (order-vars (set->list (set-difference (var->tcfv var) cst-procs*)))) (define (lift-app! var) (let* ((val (var->val var)) (vars (lifted-vars var))) (define (new-ref* var) (new-ref (var-source var) (node-decl val) var)) (if (not (null? vars)) (for-each (lambda (oper) (let ((node (node-parent oper))) (node-children-set! node (cons (app-oper node) (append (map new-ref* vars) (app-args node)))))) (set->list (var-refs var)))))) (define (lift-prc! var) (let* ((val (var->val var)) (vars (lifted-vars var))) (if (not (null? vars)) (let ((var-copies (map var-copy vars))) (prc-parms-set! val (append var-copies (prc-parms val))) (for-each (lambda (x) (var-bound-set! x val)) var-copies) (node-fv-invalidate! val) (prc-min-set! val (+ (prc-min val) (length vars))) (ll-rename! val (pair-up vars var-copies)))))) (for-each lift-app! cst-proc-vars-list) (for-each lift-prc! cst-proc-vars-list) (for-each (lambda (node) (ll! node cst-procs* env)) vals) (ll! (prc-body proc) cst-procs* env)))) (define (ll-rename! ptree var-map) (cond ((ref? ptree) (let* ((var (ref-var ptree)) (x (assq var var-map))) (if x (begin (var-refs-set! var (set-remove (var-refs var) ptree)) (var-refs-set! (cdr x) (set-adjoin (var-refs (cdr x)) ptree)) (ref-var-set! ptree (cdr x)))))) ((set? ptree) (let* ((var (set-var ptree)) (x (assq var var-map))) (if x (begin (var-sets-set! var (set-remove (var-sets var) ptree)) (var-sets-set! (cdr x) (set-adjoin (var-sets (cdr x)) ptree)) (set-var-set! ptree (cdr x))))))) (node-fv-set! ptree #t) (for-each (lambda (child) (ll-rename! child var-map)) (node-children ptree))) (define (parse-tree->expression ptree) (se ptree '() (list 0))) (define (se ptree env num) (cond ((cst? ptree) (list quote-sym (cst-val ptree))) ((ref? ptree) (let ((x (assq (ref-var ptree) env))) (if x (cdr x) (var-name (ref-var ptree))))) ((set? ptree) (list set!-sym (let ((x (assq (set-var ptree) env))) (if x (cdr x) (var-name (set-var ptree)))) (se (set-val ptree) env num))) ((def? ptree) (list define-sym (let ((x (assq (def-var ptree) env))) (if x (cdr x) (var-name (def-var ptree)))) (se (def-val ptree) env num))) ((tst? ptree) (list if-sym (se (tst-pre ptree) env num) (se (tst-con ptree) env num) (se (tst-alt ptree) env num))) ((conj? ptree) (list and-sym (se (conj-pre ptree) env num) (se (conj-alt ptree) env num))) ((disj? ptree) (list or-sym (se (disj-pre ptree) env num) (se (disj-alt ptree) env num))) ((prc? ptree) (let ((new-env (se-rename (prc-parms ptree) env num))) (list lambda-sym (se-parameters (prc-parms ptree) (prc-rest ptree) (prc-min ptree) new-env) (se (prc-body ptree) new-env num)))) ((app? ptree) (let ((oper (app-oper ptree)) (args (app-args ptree))) (if (and (prc? oper) (not (prc-rest oper)) (= (length (prc-parms oper)) (length args))) (let ((new-env (se-rename (prc-parms oper) env num))) (list (if (set-empty? (set-intersection (list->set (prc-parms oper)) (apply set-union (map free-variables args)))) let-sym letrec-sym) (se-bindings (prc-parms oper) args new-env num) (se (prc-body oper) new-env num))) (map (lambda (x) (se x env num)) (cons oper args))))) ((fut? ptree) (list future-sym (se (fut-val ptree) env num))) (else (compiler-internal-error "se, unknown parse tree node type")))) (define (se-parameters parms rest min env) (define (se-parms parms rest n env) (cond ((null? parms) '()) ((and rest (null? (cdr parms))) (cdr (assq (car parms) env))) (else (let ((parm (cdr (assq (car parms) env)))) (cons (if (> n 0) parm (list parm)) (se-parms (cdr parms) rest (- n 1) env)))))) (se-parms parms rest min env)) (define (se-bindings vars vals env num) (if (null? vars) '() (cons (list (cdr (assq (car vars) env)) (se (car vals) env num)) (se-bindings (cdr vars) (cdr vals) env num)))) (define (se-rename vars env num) (define (rename vars) (if (null? vars) env (cons (cons (car vars) (string->canonical-symbol (string-append (symbol->string (var-name (car vars))) "#" (number->string (car num))))) (rename (cdr vars))))) (set-car! num (+ (car num) 1)) (rename vars)) (define *opnd-table* '()) (define *opnd-table-alloc* '()) (define opnd-table-size 10000) (define (enter-opnd arg1 arg2) (let loop ((i 0)) (if (< i *opnd-table-alloc*) (let ((x (vector-ref *opnd-table* i))) (if (and (eqv? (car x) arg1) (eqv? (cdr x) arg2)) i (loop (+ i 1)))) (if (< *opnd-table-alloc* opnd-table-size) (begin (set! *opnd-table-alloc* (+ *opnd-table-alloc* 1)) (vector-set! *opnd-table* i (cons arg1 arg2)) i) (compiler-limitation-error "program is too long [virtual machine operand table overflow]"))))) (define (contains-opnd? opnd1 opnd2) (cond ((eqv? opnd1 opnd2) #t) ((clo? opnd2) (contains-opnd? opnd1 (clo-base opnd2))) (else #f))) (define (any-contains-opnd? opnd opnds) (if (null? opnds) #f (or (contains-opnd? opnd (car opnds)) (any-contains-opnd? opnd (cdr opnds))))) (define (make-reg num) num) (define (reg? x) (< x 10000)) (define (reg-num x) (modulo x 10000)) (define (make-stk num) (+ num 10000)) (define (stk? x) (= (quotient x 10000) 1)) (define (stk-num x) (modulo x 10000)) (define (make-glo name) (+ (enter-opnd name #t) 30000)) (define (glo? x) (= (quotient x 10000) 3)) (define (glo-name x) (car (vector-ref *opnd-table* (modulo x 10000)))) (define (make-clo base index) (+ (enter-opnd base index) 40000)) (define (clo? x) (= (quotient x 10000) 4)) (define (clo-base x) (car (vector-ref *opnd-table* (modulo x 10000)))) (define (clo-index x) (cdr (vector-ref *opnd-table* (modulo x 10000)))) (define (make-lbl num) (+ num 20000)) (define (lbl? x) (= (quotient x 10000) 2)) (define (lbl-num x) (modulo x 10000)) (define label-limit 9999) (define (make-obj val) (+ (enter-opnd val #f) 50000)) (define (obj? x) (= (quotient x 10000) 5)) (define (obj-val x) (car (vector-ref *opnd-table* (modulo x 10000)))) (define (make-pcontext fs map) (vector fs map)) (define (pcontext-fs x) (vector-ref x 0)) (define (pcontext-map x) (vector-ref x 1)) (define (make-frame size slots regs closed live) (vector size slots regs closed live)) (define (frame-size x) (vector-ref x 0)) (define (frame-slots x) (vector-ref x 1)) (define (frame-regs x) (vector-ref x 2)) (define (frame-closed x) (vector-ref x 3)) (define (frame-live x) (vector-ref x 4)) (define (frame-eq? x y) (= (frame-size x) (frame-size y))) (define (frame-truncate frame nb-slots) (let ((fs (frame-size frame))) (make-frame nb-slots (nth-after (frame-slots frame) (- fs nb-slots)) (frame-regs frame) (frame-closed frame) (frame-live frame)))) (define (frame-live? var frame) (let ((live (frame-live frame))) (if (eq? var closure-env-var) (let ((closed (frame-closed frame))) (if (or (set-member? var live) (not (set-empty? (set-intersection live (list->set closed))))) closed #f)) (if (set-member? var live) var #f)))) (define (frame-first-empty-slot frame) (let loop ((i 1) (s (reverse (frame-slots frame)))) (if (pair? s) (if (frame-live? (car s) frame) (loop (+ i 1) (cdr s)) i) i))) (define (make-proc-obj name primitive? code call-pat side-effects? strict-pat type) (let ((proc-obj (vector proc-obj-tag name primitive? code call-pat #f #f #f side-effects? strict-pat type))) (proc-obj-specialize-set! proc-obj (lambda (decls) proc-obj)) proc-obj)) (define proc-obj-tag (list 'proc-obj)) (define (proc-obj? x) (and (vector? x) (> (vector-length x) 0) (eq? (vector-ref x 0) proc-obj-tag))) (define (proc-obj-name obj) (vector-ref obj 1)) (define (proc-obj-primitive? obj) (vector-ref obj 2)) (define (proc-obj-code obj) (vector-ref obj 3)) (define (proc-obj-call-pat obj) (vector-ref obj 4)) (define (proc-obj-test obj) (vector-ref obj 5)) (define (proc-obj-inlinable obj) (vector-ref obj 6)) (define (proc-obj-specialize obj) (vector-ref obj 7)) (define (proc-obj-side-effects? obj) (vector-ref obj 8)) (define (proc-obj-strict-pat obj) (vector-ref obj 9)) (define (proc-obj-type obj) (vector-ref obj 10)) (define (proc-obj-code-set! obj x) (vector-set! obj 3 x)) (define (proc-obj-test-set! obj x) (vector-set! obj 5 x)) (define (proc-obj-inlinable-set! obj x) (vector-set! obj 6 x)) (define (proc-obj-specialize-set! obj x) (vector-set! obj 7 x)) (define (make-pattern min-args nb-parms rest?) (let loop ((x (if rest? (- nb-parms 1) (list nb-parms))) (y (if rest? (- nb-parms 1) nb-parms))) (let ((z (- y 1))) (if (< z min-args) x (loop (cons z x) z))))) (define (pattern-member? n pat) (cond ((pair? pat) (if (= (car pat) n) #t (pattern-member? n (cdr pat)))) ((null? pat) #f) (else (<= pat n)))) (define (type-name type) (if (pair? type) (car type) type)) (define (type-pot-fut? type) (pair? type)) (define (make-bbs) (vector (make-counter 1 label-limit bbs-limit-err) (queue-empty) '())) (define (bbs-limit-err) (compiler-limitation-error "procedure is too long [too many labels]")) (define (bbs-lbl-counter bbs) (vector-ref bbs 0)) (define (bbs-lbl-counter-set! bbs cntr) (vector-set! bbs 0 cntr)) (define (bbs-bb-queue bbs) (vector-ref bbs 1)) (define (bbs-bb-queue-set! bbs bbq) (vector-set! bbs 1 bbq)) (define (bbs-entry-lbl-num bbs) (vector-ref bbs 2)) (define (bbs-entry-lbl-num-set! bbs lbl-num) (vector-set! bbs 2 lbl-num)) (define (bbs-new-lbl! bbs) ((bbs-lbl-counter bbs))) (define (lbl-num->bb lbl-num bbs) (let loop ((bb-list (queue->list (bbs-bb-queue bbs)))) (if (= (bb-lbl-num (car bb-list)) lbl-num) (car bb-list) (loop (cdr bb-list))))) (define (make-bb label-instr bbs) (let ((bb (vector label-instr (queue-empty) '() '() '()))) (queue-put! (vector-ref bbs 1) bb) bb)) (define (bb-lbl-num bb) (label-lbl-num (vector-ref bb 0))) (define (bb-label-type bb) (label-type (vector-ref bb 0))) (define (bb-label-instr bb) (vector-ref bb 0)) (define (bb-label-instr-set! bb l) (vector-set! bb 0 l)) (define (bb-non-branch-instrs bb) (queue->list (vector-ref bb 1))) (define (bb-non-branch-instrs-set! bb l) (vector-set! bb 1 (list->queue l))) (define (bb-branch-instr bb) (vector-ref bb 2)) (define (bb-branch-instr-set! bb b) (vector-set! bb 2 b)) (define (bb-references bb) (vector-ref bb 3)) (define (bb-references-set! bb l) (vector-set! bb 3 l)) (define (bb-precedents bb) (vector-ref bb 4)) (define (bb-precedents-set! bb l) (vector-set! bb 4 l)) (define (bb-entry-frame-size bb) (frame-size (gvm-instr-frame (bb-label-instr bb)))) (define (bb-exit-frame-size bb) (frame-size (gvm-instr-frame (bb-branch-instr bb)))) (define (bb-slots-gained bb) (- (bb-exit-frame-size bb) (bb-entry-frame-size bb))) (define (bb-put-non-branch! bb gvm-instr) (queue-put! (vector-ref bb 1) gvm-instr)) (define (bb-put-branch! bb gvm-instr) (vector-set! bb 2 gvm-instr)) (define (bb-add-reference! bb ref) (if (not (memq ref (vector-ref bb 3))) (vector-set! bb 3 (cons ref (vector-ref bb 3))))) (define (bb-add-precedent! bb prec) (if (not (memq prec (vector-ref bb 4))) (vector-set! bb 4 (cons prec (vector-ref bb 4))))) (define (bb-last-non-branch-instr bb) (let ((non-branch-instrs (bb-non-branch-instrs bb))) (if (null? non-branch-instrs) (bb-label-instr bb) (let loop ((l non-branch-instrs)) (if (pair? (cdr l)) (loop (cdr l)) (car l)))))) (define (gvm-instr-type gvm-instr) (vector-ref gvm-instr 0)) (define (gvm-instr-frame gvm-instr) (vector-ref gvm-instr 1)) (define (gvm-instr-comment gvm-instr) (vector-ref gvm-instr 2)) (define (make-label-simple lbl-num frame comment) (vector 'label frame comment lbl-num 'simple)) (define (make-label-entry lbl-num nb-parms min rest? closed? frame comment) (vector 'label frame comment lbl-num 'entry nb-parms min rest? closed?)) (define (make-label-return lbl-num frame comment) (vector 'label frame comment lbl-num 'return)) (define (make-label-task-entry lbl-num frame comment) (vector 'label frame comment lbl-num 'task-entry)) (define (make-label-task-return lbl-num frame comment) (vector 'label frame comment lbl-num 'task-return)) (define (label-lbl-num gvm-instr) (vector-ref gvm-instr 3)) (define (label-lbl-num-set! gvm-instr n) (vector-set! gvm-instr 3 n)) (define (label-type gvm-instr) (vector-ref gvm-instr 4)) (define (label-entry-nb-parms gvm-instr) (vector-ref gvm-instr 5)) (define (label-entry-min gvm-instr) (vector-ref gvm-instr 6)) (define (label-entry-rest? gvm-instr) (vector-ref gvm-instr 7)) (define (label-entry-closed? gvm-instr) (vector-ref gvm-instr 8)) (define (make-apply prim opnds loc frame comment) (vector 'apply frame comment prim opnds loc)) (define (apply-prim gvm-instr) (vector-ref gvm-instr 3)) (define (apply-opnds gvm-instr) (vector-ref gvm-instr 4)) (define (apply-loc gvm-instr) (vector-ref gvm-instr 5)) (define (make-copy opnd loc frame comment) (vector 'copy frame comment opnd loc)) (define (copy-opnd gvm-instr) (vector-ref gvm-instr 3)) (define (copy-loc gvm-instr) (vector-ref gvm-instr 4)) (define (make-close parms frame comment) (vector 'close frame comment parms)) (define (close-parms gvm-instr) (vector-ref gvm-instr 3)) (define (make-closure-parms loc lbl opnds) (vector loc lbl opnds)) (define (closure-parms-loc x) (vector-ref x 0)) (define (closure-parms-lbl x) (vector-ref x 1)) (define (closure-parms-opnds x) (vector-ref x 2)) (define (make-ifjump test opnds true false poll? frame comment) (vector 'ifjump frame comment test opnds true false poll?)) (define (ifjump-test gvm-instr) (vector-ref gvm-instr 3)) (define (ifjump-opnds gvm-instr) (vector-ref gvm-instr 4)) (define (ifjump-true gvm-instr) (vector-ref gvm-instr 5)) (define (ifjump-false gvm-instr) (vector-ref gvm-instr 6)) (define (ifjump-poll? gvm-instr) (vector-ref gvm-instr 7)) (define (make-jump opnd nb-args poll? frame comment) (vector 'jump frame comment opnd nb-args poll?)) (define (jump-opnd gvm-instr) (vector-ref gvm-instr 3)) (define (jump-nb-args gvm-instr) (vector-ref gvm-instr 4)) (define (jump-poll? gvm-instr) (vector-ref gvm-instr 5)) (define (first-class-jump? gvm-instr) (jump-nb-args gvm-instr)) (define (make-comment) (cons 'comment '())) (define (comment-put! comment name val) (set-cdr! comment (cons (cons name val) (cdr comment)))) (define (comment-get comment name) (and comment (let ((x (assq name (cdr comment)))) (if x (cdr x) #f)))) (define (bbs-purify! bbs) (let loop () (bbs-remove-jump-cascades! bbs) (bbs-remove-dead-code! bbs) (let* ((changed1? (bbs-remove-common-code! bbs)) (changed2? (bbs-remove-useless-jumps! bbs))) (if (or changed1? changed2?) (loop) (bbs-order! bbs))))) (define (bbs-remove-jump-cascades! bbs) (define (empty-bb? bb) (and (eq? (bb-label-type bb) 'simple) (null? (bb-non-branch-instrs bb)))) (define (jump-to-non-entry-lbl? branch) (and (eq? (gvm-instr-type branch) 'jump) (not (first-class-jump? branch)) (jump-lbl? branch))) (define (jump-cascade-to lbl-num fs poll? seen thunk) (if (memq lbl-num seen) (thunk lbl-num fs poll?) (let ((bb (lbl-num->bb lbl-num bbs))) (if (and (empty-bb? bb) (<= (bb-slots-gained bb) 0)) (let ((jump-lbl-num (jump-to-non-entry-lbl? (bb-branch-instr bb)))) (if jump-lbl-num (jump-cascade-to jump-lbl-num (+ fs (bb-slots-gained bb)) (or poll? (jump-poll? (bb-branch-instr bb))) (cons lbl-num seen) thunk) (thunk lbl-num fs poll?))) (thunk lbl-num fs poll?))))) (define (equiv-lbl lbl-num seen) (if (memq lbl-num seen) lbl-num (let ((bb (lbl-num->bb lbl-num bbs))) (if (empty-bb? bb) (let ((jump-lbl-num (jump-to-non-entry-lbl? (bb-branch-instr bb)))) (if (and jump-lbl-num (not (jump-poll? (bb-branch-instr bb))) (= (bb-slots-gained bb) 0)) (equiv-lbl jump-lbl-num (cons lbl-num seen)) lbl-num)) lbl-num)))) (define (remove-cascade! bb) (let ((branch (bb-branch-instr bb))) (case (gvm-instr-type branch) ((ifjump) (bb-put-branch! bb (make-ifjump (ifjump-test branch) (ifjump-opnds branch) (equiv-lbl (ifjump-true branch) '()) (equiv-lbl (ifjump-false branch) '()) (ifjump-poll? branch) (gvm-instr-frame branch) (gvm-instr-comment branch)))) ((jump) (if (not (first-class-jump? branch)) (let ((dest-lbl-num (jump-lbl? branch))) (if dest-lbl-num (jump-cascade-to dest-lbl-num (frame-size (gvm-instr-frame branch)) (jump-poll? branch) '() (lambda (lbl-num fs poll?) (let* ((dest-bb (lbl-num->bb lbl-num bbs)) (last-branch (bb-branch-instr dest-bb))) (if (and (empty-bb? dest-bb) (or (not poll?) put-poll-on-ifjump? (not (eq? (gvm-instr-type last-branch) 'ifjump)))) (let* ((new-fs (+ fs (bb-slots-gained dest-bb))) (new-frame (frame-truncate (gvm-instr-frame branch) new-fs))) (define (adjust-opnd opnd) (cond ((stk? opnd) (make-stk (+ (- fs (bb-entry-frame-size dest-bb)) (stk-num opnd)))) ((clo? opnd) (make-clo (adjust-opnd (clo-base opnd)) (clo-index opnd))) (else opnd))) (case (gvm-instr-type last-branch) ((ifjump) (bb-put-branch! bb (make-ifjump (ifjump-test last-branch) (map adjust-opnd (ifjump-opnds last-branch)) (equiv-lbl (ifjump-true last-branch) '()) (equiv-lbl (ifjump-false last-branch) '()) (or poll? (ifjump-poll? last-branch)) new-frame (gvm-instr-comment last-branch)))) ((jump) (bb-put-branch! bb (make-jump (adjust-opnd (jump-opnd last-branch)) (jump-nb-args last-branch) (or poll? (jump-poll? last-branch)) new-frame (gvm-instr-comment last-branch)))) (else (compiler-internal-error "bbs-remove-jump-cascades!, unknown branch type")))) (bb-put-branch! bb (make-jump (make-lbl lbl-num) (jump-nb-args branch) (or poll? (jump-poll? branch)) (frame-truncate (gvm-instr-frame branch) fs) (gvm-instr-comment branch))))))))))) (else (compiler-internal-error "bbs-remove-jump-cascades!, unknown branch type"))))) (for-each remove-cascade! (queue->list (bbs-bb-queue bbs)))) (define (jump-lbl? branch) (let ((opnd (jump-opnd branch))) (if (lbl? opnd) (lbl-num opnd) #f))) (define put-poll-on-ifjump? #f) (set! put-poll-on-ifjump? #t) (define (bbs-remove-dead-code! bbs) (let ((new-bb-queue (queue-empty)) (scan-queue (queue-empty))) (define (reachable ref bb) (if bb (bb-add-reference! bb ref)) (if (not (memq ref (queue->list new-bb-queue))) (begin (bb-references-set! ref '()) (bb-precedents-set! ref '()) (queue-put! new-bb-queue ref) (queue-put! scan-queue ref)))) (define (direct-jump to-bb from-bb) (reachable to-bb from-bb) (bb-add-precedent! to-bb from-bb)) (define (scan-instr gvm-instr bb) (define (scan-opnd gvm-opnd) (cond ((lbl? gvm-opnd) (reachable (lbl-num->bb (lbl-num gvm-opnd) bbs) bb)) ((clo? gvm-opnd) (scan-opnd (clo-base gvm-opnd))))) (case (gvm-instr-type gvm-instr) ((label) '()) ((apply) (for-each scan-opnd (apply-opnds gvm-instr)) (if (apply-loc gvm-instr) (scan-opnd (apply-loc gvm-instr)))) ((copy) (scan-opnd (copy-opnd gvm-instr)) (scan-opnd (copy-loc gvm-instr))) ((close) (for-each (lambda (parm) (reachable (lbl-num->bb (closure-parms-lbl parm) bbs) bb) (scan-opnd (closure-parms-loc parm)) (for-each scan-opnd (closure-parms-opnds parm))) (close-parms gvm-instr))) ((ifjump) (for-each scan-opnd (ifjump-opnds gvm-instr)) (direct-jump (lbl-num->bb (ifjump-true gvm-instr) bbs) bb) (direct-jump (lbl-num->bb (ifjump-false gvm-instr) bbs) bb)) ((jump) (let ((opnd (jump-opnd gvm-instr))) (if (lbl? opnd) (direct-jump (lbl-num->bb (lbl-num opnd) bbs) bb) (scan-opnd (jump-opnd gvm-instr))))) (else (compiler-internal-error "bbs-remove-dead-code!, unknown GVM instruction type")))) (reachable (lbl-num->bb (bbs-entry-lbl-num bbs) bbs) #f) (let loop () (if (not (queue-empty? scan-queue)) (let ((bb (queue-get! scan-queue))) (begin (scan-instr (bb-label-instr bb) bb) (for-each (lambda (gvm-instr) (scan-instr gvm-instr bb)) (bb-non-branch-instrs bb)) (scan-instr (bb-branch-instr bb) bb) (loop))))) (bbs-bb-queue-set! bbs new-bb-queue))) (define (bbs-remove-useless-jumps! bbs) (let ((changed? #f)) (define (remove-useless-jump bb) (let ((branch (bb-branch-instr bb))) (if (and (eq? (gvm-instr-type branch) 'jump) (not (first-class-jump? branch)) (not (jump-poll? branch)) (jump-lbl? branch)) (let* ((dest-bb (lbl-num->bb (jump-lbl? branch) bbs)) (frame1 (gvm-instr-frame (bb-last-non-branch-instr bb))) (frame2 (gvm-instr-frame (bb-label-instr dest-bb)))) (if (and (eq? (bb-label-type dest-bb) 'simple) (frame-eq? frame1 frame2) (= (length (bb-precedents dest-bb)) 1)) (begin (set! changed? #t) (bb-non-branch-instrs-set! bb (append (bb-non-branch-instrs bb) (bb-non-branch-instrs dest-bb) '())) (bb-branch-instr-set! bb (bb-branch-instr dest-bb)) (remove-useless-jump bb))))))) (for-each remove-useless-jump (queue->list (bbs-bb-queue bbs))) changed?)) (define (bbs-remove-common-code! bbs) (let* ((bb-list (queue->list (bbs-bb-queue bbs))) (n (length bb-list)) (hash-table-length (cond ((< n 50) 43) ((< n 500) 403) (else 4003))) (hash-table (make-vector hash-table-length '())) (prim-table '()) (block-map '()) (changed? #f)) (define (hash-prim prim) (let ((n (length prim-table)) (i (pos-in-list prim prim-table))) (if i (- n i) (begin (set! prim-table (cons prim prim-table)) (+ n 1))))) (define (hash-opnds l) (let loop ((l l) (n 0)) (if (pair? l) (loop (cdr l) (let ((x (car l))) (if (lbl? x) n (modulo (+ (* n 10000) x) hash-table-length)))) n))) (define (hash-bb bb) (let ((branch (bb-branch-instr bb))) (modulo (case (gvm-instr-type branch) ((ifjump) (+ (hash-opnds (ifjump-opnds branch)) (* 10 (hash-prim (ifjump-test branch))) (* 100 (frame-size (gvm-instr-frame branch))))) ((jump) (+ (hash-opnds (list (jump-opnd branch))) (* 10 (or (jump-nb-args branch) -1)) (* 100 (frame-size (gvm-instr-frame branch))))) (else 0)) hash-table-length))) (define (replacement-lbl-num lbl) (let ((x (assv lbl block-map))) (if x (cdr x) lbl))) (define (fix-map! bb1 bb2) (let loop ((l block-map)) (if (pair? l) (let ((x (car l))) (if (= bb1 (cdr x)) (set-cdr! x bb2)) (loop (cdr l)))))) (define (enter-bb! bb) (let ((h (hash-bb bb))) (vector-set! hash-table h (add-bb bb (vector-ref hash-table h))))) (define (add-bb bb l) (if (pair? l) (let ((bb* (car l))) (set! block-map (cons (cons (bb-lbl-num bb) (bb-lbl-num bb*)) block-map)) (if (eqv-bb? bb bb*) (begin (fix-map! (bb-lbl-num bb) (bb-lbl-num bb*)) (set! changed? #t) l) (begin (set! block-map (cdr block-map)) (if (eqv-gvm-instr? (bb-branch-instr bb) (bb-branch-instr bb*)) (extract-common-tail bb bb* (lambda (head head* tail) (if (null? tail) (cons bb* (add-bb bb (cdr l))) (let* ((lbl (bbs-new-lbl! bbs)) (branch (bb-branch-instr bb)) (fs** (need-gvm-instrs tail branch)) (frame (frame-truncate (gvm-instr-frame (if (null? head) (bb-label-instr bb) (car head))) fs**)) (bb** (make-bb (make-label-simple lbl frame #f) bbs))) (bb-non-branch-instrs-set! bb** tail) (bb-branch-instr-set! bb** branch) (bb-non-branch-instrs-set! bb* (reverse head*)) (bb-branch-instr-set! bb* (make-jump (make-lbl lbl) #f #f frame #f)) (bb-non-branch-instrs-set! bb (reverse head)) (bb-branch-instr-set! bb (make-jump (make-lbl lbl) #f #f frame #f)) (set! changed? #t) (cons bb (cons bb* (add-bb bb** (cdr l)))))))) (cons bb* (add-bb bb (cdr l))))))) (list bb))) (define (extract-common-tail bb1 bb2 cont) (let loop ((l1 (reverse (bb-non-branch-instrs bb1))) (l2 (reverse (bb-non-branch-instrs bb2))) (tail '())) (if (and (pair? l1) (pair? l2)) (let ((i1 (car l1)) (i2 (car l2))) (if (eqv-gvm-instr? i1 i2) (loop (cdr l1) (cdr l2) (cons i1 tail)) (cont l1 l2 tail))) (cont l1 l2 tail)))) (define (eqv-bb? bb1 bb2) (let ((bb1-non-branch (bb-non-branch-instrs bb1)) (bb2-non-branch (bb-non-branch-instrs bb2))) (and (= (length bb1-non-branch) (length bb2-non-branch)) (eqv-gvm-instr? (bb-label-instr bb1) (bb-label-instr bb2)) (eqv-gvm-instr? (bb-branch-instr bb1) (bb-branch-instr bb2)) (eqv-list? eqv-gvm-instr? bb1-non-branch bb2-non-branch)))) (define (eqv-list? pred? l1 l2) (if (pair? l1) (and (pair? l2) (pred? (car l1) (car l2)) (eqv-list? pred? (cdr l1) (cdr l2))) (not (pair? l2)))) (define (eqv-lbl-num? lbl1 lbl2) (= (replacement-lbl-num lbl1) (replacement-lbl-num lbl2))) (define (eqv-gvm-opnd? opnd1 opnd2) (if (not opnd1) (not opnd2) (and opnd2 (cond ((lbl? opnd1) (and (lbl? opnd2) (eqv-lbl-num? (lbl-num opnd1) (lbl-num opnd2)))) ((clo? opnd1) (and (clo? opnd2) (= (clo-index opnd1) (clo-index opnd2)) (eqv-gvm-opnd? (clo-base opnd1) (clo-base opnd2)))) (else (eqv? opnd1 opnd2)))))) (define (eqv-gvm-instr? instr1 instr2) (define (eqv-closure-parms? p1 p2) (and (eqv-gvm-opnd? (closure-parms-loc p1) (closure-parms-loc p2)) (eqv-lbl-num? (closure-parms-lbl p1) (closure-parms-lbl p2)) (eqv-list? eqv-gvm-opnd? (closure-parms-opnds p1) (closure-parms-opnds p2)))) (let ((type1 (gvm-instr-type instr1)) (type2 (gvm-instr-type instr2))) (and (eq? type1 type2) (frame-eq? (gvm-instr-frame instr1) (gvm-instr-frame instr2)) (case type1 ((label) (let ((ltype1 (label-type instr1)) (ltype2 (label-type instr2))) (and (eq? ltype1 ltype2) (case ltype1 ((simple return task-entry task-return) #t) ((entry) (and (= (label-entry-min instr1) (label-entry-min instr2)) (= (label-entry-nb-parms instr1) (label-entry-nb-parms instr2)) (eq? (label-entry-rest? instr1) (label-entry-rest? instr2)) (eq? (label-entry-closed? instr1) (label-entry-closed? instr2)))) (else (compiler-internal-error "eqv-gvm-instr?, unknown label type")))))) ((apply) (and (eq? (apply-prim instr1) (apply-prim instr2)) (eqv-list? eqv-gvm-opnd? (apply-opnds instr1) (apply-opnds instr2)) (eqv-gvm-opnd? (apply-loc instr1) (apply-loc instr2)))) ((copy) (and (eqv-gvm-opnd? (copy-opnd instr1) (copy-opnd instr2)) (eqv-gvm-opnd? (copy-loc instr1) (copy-loc instr2)))) ((close) (eqv-list? eqv-closure-parms? (close-parms instr1) (close-parms instr2))) ((ifjump) (and (eq? (ifjump-test instr1) (ifjump-test instr2)) (eqv-list? eqv-gvm-opnd? (ifjump-opnds instr1) (ifjump-opnds instr2)) (eqv-lbl-num? (ifjump-true instr1) (ifjump-true instr2)) (eqv-lbl-num? (ifjump-false instr1) (ifjump-false instr2)) (eq? (ifjump-poll? instr1) (ifjump-poll? instr2)))) ((jump) (and (eqv-gvm-opnd? (jump-opnd instr1) (jump-opnd instr2)) (eqv? (jump-nb-args instr1) (jump-nb-args instr2)) (eq? (jump-poll? instr1) (jump-poll? instr2)))) (else (compiler-internal-error "eqv-gvm-instr?, unknown 'gvm-instr':" instr1)))))) (define (update-bb! bb) (replace-label-references! bb replacement-lbl-num)) (for-each enter-bb! bb-list) (bbs-entry-lbl-num-set! bbs (replacement-lbl-num (bbs-entry-lbl-num bbs))) (let loop ((i 0) (result '())) (if (< i hash-table-length) (let ((bb-kept (vector-ref hash-table i))) (for-each update-bb! bb-kept) (loop (+ i 1) (append bb-kept result))) (bbs-bb-queue-set! bbs (list->queue result)))) changed?)) (define (replace-label-references! bb replacement-lbl-num) (define (update-gvm-opnd opnd) (if opnd (cond ((lbl? opnd) (make-lbl (replacement-lbl-num (lbl-num opnd)))) ((clo? opnd) (make-clo (update-gvm-opnd (clo-base opnd)) (clo-index opnd))) (else opnd)) opnd)) (define (update-gvm-instr instr) (define (update-closure-parms p) (make-closure-parms (update-gvm-opnd (closure-parms-loc p)) (replacement-lbl-num (closure-parms-lbl p)) (map update-gvm-opnd (closure-parms-opnds p)))) (case (gvm-instr-type instr) ((apply) (make-apply (apply-prim instr) (map update-gvm-opnd (apply-opnds instr)) (update-gvm-opnd (apply-loc instr)) (gvm-instr-frame instr) (gvm-instr-comment instr))) ((copy) (make-copy (update-gvm-opnd (copy-opnd instr)) (update-gvm-opnd (copy-loc instr)) (gvm-instr-frame instr) (gvm-instr-comment instr))) ((close) (make-close (map update-closure-parms (close-parms instr)) (gvm-instr-frame instr) (gvm-instr-comment instr))) ((ifjump) (make-ifjump (ifjump-test instr) (map update-gvm-opnd (ifjump-opnds instr)) (replacement-lbl-num (ifjump-true instr)) (replacement-lbl-num (ifjump-false instr)) (ifjump-poll? instr) (gvm-instr-frame instr) (gvm-instr-comment instr))) ((jump) (make-jump (update-gvm-opnd (jump-opnd instr)) (jump-nb-args instr) (jump-poll? instr) (gvm-instr-frame instr) (gvm-instr-comment instr))) (else (compiler-internal-error "update-gvm-instr, unknown 'instr':" instr)))) (bb-non-branch-instrs-set! bb (map update-gvm-instr (bb-non-branch-instrs bb))) (bb-branch-instr-set! bb (update-gvm-instr (bb-branch-instr bb)))) (define (bbs-order! bbs) (let ((new-bb-queue (queue-empty)) (left-to-schedule (queue->list (bbs-bb-queue bbs)))) (define (remove x l) (if (eq? (car l) x) (cdr l) (cons (car l) (remove x (cdr l))))) (define (remove-bb! bb) (set! left-to-schedule (remove bb left-to-schedule)) bb) (define (prec-bb bb) (let loop ((l (bb-precedents bb)) (best #f) (best-fs #f)) (if (null? l) best (let* ((x (car l)) (x-fs (bb-exit-frame-size x))) (if (and (memq x left-to-schedule) (or (not best) (< x-fs best-fs))) (loop (cdr l) x x-fs) (loop (cdr l) best best-fs)))))) (define (succ-bb bb) (define (branches-to-lbl? bb) (let ((branch (bb-branch-instr bb))) (case (gvm-instr-type branch) ((ifjump) #t) ((jump) (lbl? (jump-opnd branch))) (else (compiler-internal-error "bbs-order!, unknown branch type"))))) (define (best-succ bb1 bb2) (if (branches-to-lbl? bb1) bb1 (if (branches-to-lbl? bb2) bb2 (if (< (bb-exit-frame-size bb1) (bb-exit-frame-size bb2)) bb2 bb1)))) (let ((branch (bb-branch-instr bb))) (case (gvm-instr-type branch) ((ifjump) (let* ((true-bb (lbl-num->bb (ifjump-true branch) bbs)) (true-bb* (and (memq true-bb left-to-schedule) true-bb)) (false-bb (lbl-num->bb (ifjump-false branch) bbs)) (false-bb* (and (memq false-bb left-to-schedule) false-bb))) (if (and true-bb* false-bb*) (best-succ true-bb* false-bb*) (or true-bb* false-bb*)))) ((jump) (let ((opnd (jump-opnd branch))) (and (lbl? opnd) (let ((bb (lbl-num->bb (lbl-num opnd) bbs))) (and (memq bb left-to-schedule) bb))))) (else (compiler-internal-error "bbs-order!, unknown branch type"))))) (define (schedule-from bb) (queue-put! new-bb-queue bb) (let ((x (succ-bb bb))) (if x (begin (schedule-around (remove-bb! x)) (let ((y (succ-bb bb))) (if y (schedule-around (remove-bb! y))))))) (schedule-refs bb)) (define (schedule-around bb) (let ((x (prec-bb bb))) (if x (let ((bb-list (schedule-back (remove-bb! x) '()))) (queue-put! new-bb-queue x) (schedule-forw bb) (for-each schedule-refs bb-list)) (schedule-from bb)))) (define (schedule-back bb bb-list) (let ((bb-list* (cons bb bb-list)) (x (prec-bb bb))) (if x (let ((bb-list (schedule-back (remove-bb! x) bb-list*))) (queue-put! new-bb-queue x) bb-list) bb-list*))) (define (schedule-forw bb) (queue-put! new-bb-queue bb) (let ((x (succ-bb bb))) (if x (begin (schedule-forw (remove-bb! x)) (let ((y (succ-bb bb))) (if y (schedule-around (remove-bb! y))))))) (schedule-refs bb)) (define (schedule-refs bb) (for-each (lambda (x) (if (memq x left-to-schedule) (schedule-around (remove-bb! x)))) (bb-references bb))) (schedule-from (remove-bb! (lbl-num->bb (bbs-entry-lbl-num bbs) bbs))) (bbs-bb-queue-set! bbs new-bb-queue) (let ((bb-list (queue->list new-bb-queue))) (let loop ((l bb-list) (i 1) (lbl-map '())) (if (pair? l) (let* ((label-instr (bb-label-instr (car l))) (old-lbl-num (label-lbl-num label-instr))) (label-lbl-num-set! label-instr i) (loop (cdr l) (+ i 1) (cons (cons old-lbl-num i) lbl-map))) (let () (define (replacement-lbl-num x) (cdr (assv x lbl-map))) (define (update-bb! bb) (replace-label-references! bb replacement-lbl-num)) (for-each update-bb! bb-list) (bbs-lbl-counter-set! bbs (make-counter (* (+ 1 (quotient (bbs-new-lbl! bbs) 1000)) 1000) label-limit bbs-limit-err)))))))) (define (make-code bb gvm-instr sn) (vector bb gvm-instr sn)) (define (code-bb code) (vector-ref code 0)) (define (code-gvm-instr code) (vector-ref code 1)) (define (code-slots-needed code) (vector-ref code 2)) (define (code-slots-needed-set! code n) (vector-set! code 2 n)) (define (bbs->code-list bbs) (let ((code-list (linearize bbs))) (setup-slots-needed! code-list) code-list)) (define (linearize bbs) (let ((code-queue (queue-empty))) (define (put-bb bb) (define (put-instr gvm-instr) (queue-put! code-queue (make-code bb gvm-instr #f))) (put-instr (bb-label-instr bb)) (for-each put-instr (bb-non-branch-instrs bb)) (put-instr (bb-branch-instr bb))) (for-each put-bb (queue->list (bbs-bb-queue bbs))) (queue->list code-queue))) (define (setup-slots-needed! code-list) (if (null? code-list) #f (let* ((code (car code-list)) (gvm-instr (code-gvm-instr code)) (sn-rest (setup-slots-needed! (cdr code-list)))) (case (gvm-instr-type gvm-instr) ((label) (if (> sn-rest (frame-size (gvm-instr-frame gvm-instr))) (compiler-internal-error "setup-slots-needed!, incoherent slots needed for LABEL")) (code-slots-needed-set! code sn-rest) #f) ((ifjump jump) (let ((sn (frame-size (gvm-instr-frame gvm-instr)))) (code-slots-needed-set! code sn) (need-gvm-instr gvm-instr sn))) (else (code-slots-needed-set! code sn-rest) (need-gvm-instr gvm-instr sn-rest)))))) (define (need-gvm-instrs non-branch branch) (if (pair? non-branch) (need-gvm-instr (car non-branch) (need-gvm-instrs (cdr non-branch) branch)) (need-gvm-instr branch (frame-size (gvm-instr-frame branch))))) (define (need-gvm-instr gvm-instr sn-rest) (case (gvm-instr-type gvm-instr) ((label) sn-rest) ((apply) (let ((loc (apply-loc gvm-instr))) (need-gvm-opnds (apply-opnds gvm-instr) (need-gvm-loc-opnd loc (need-gvm-loc loc sn-rest))))) ((copy) (let ((loc (copy-loc gvm-instr))) (need-gvm-opnd (copy-opnd gvm-instr) (need-gvm-loc-opnd loc (need-gvm-loc loc sn-rest))))) ((close) (let ((parms (close-parms gvm-instr))) (define (need-parms-opnds p) (if (null? p) sn-rest (need-gvm-opnds (closure-parms-opnds (car p)) (need-parms-opnds (cdr p))))) (define (need-parms-loc p) (if (null? p) (need-parms-opnds parms) (let ((loc (closure-parms-loc (car p)))) (need-gvm-loc-opnd loc (need-gvm-loc loc (need-parms-loc (cdr p))))))) (need-parms-loc parms))) ((ifjump) (need-gvm-opnds (ifjump-opnds gvm-instr) sn-rest)) ((jump) (need-gvm-opnd (jump-opnd gvm-instr) sn-rest)) (else (compiler-internal-error "need-gvm-instr, unknown 'gvm-instr':" gvm-instr)))) (define (need-gvm-loc loc sn-rest) (if (and loc (stk? loc) (>= (stk-num loc) sn-rest)) (- (stk-num loc) 1) sn-rest)) (define (need-gvm-loc-opnd gvm-loc slots-needed) (if (and gvm-loc (clo? gvm-loc)) (need-gvm-opnd (clo-base gvm-loc) slots-needed) slots-needed)) (define (need-gvm-opnd gvm-opnd slots-needed) (cond ((stk? gvm-opnd) (max (stk-num gvm-opnd) slots-needed)) ((clo? gvm-opnd) (need-gvm-opnd (clo-base gvm-opnd) slots-needed)) (else slots-needed))) (define (need-gvm-opnds gvm-opnds slots-needed) (if (null? gvm-opnds) slots-needed (need-gvm-opnd (car gvm-opnds) (need-gvm-opnds (cdr gvm-opnds) slots-needed)))) (define (write-bb bb port) (write-gvm-instr (bb-label-instr bb) port) (display " [precedents=" port) (write (map bb-lbl-num (bb-precedents bb)) port) (display "]" port) (newline port) (for-each (lambda (x) (write-gvm-instr x port) (newline port)) (bb-non-branch-instrs bb)) (write-gvm-instr (bb-branch-instr bb) port)) (define (write-bbs bbs port) (for-each (lambda (bb) (if (= (bb-lbl-num bb) (bbs-entry-lbl-num bbs)) (begin (display "**** Entry block:" port) (newline port))) (write-bb bb port) (newline port)) (queue->list (bbs-bb-queue bbs)))) (define (virtual.dump proc port) (let ((proc-seen (queue-empty)) (proc-left (queue-empty))) (define (scan-opnd gvm-opnd) (cond ((obj? gvm-opnd) (let ((val (obj-val gvm-opnd))) (if (and (proc-obj? val) (proc-obj-code val) (not (memq val (queue->list proc-seen)))) (begin (queue-put! proc-seen val) (queue-put! proc-left val))))) ((clo? gvm-opnd) (scan-opnd (clo-base gvm-opnd))))) (define (dump-proc p) (define (scan-code code) (let ((gvm-instr (code-gvm-instr code))) (write-gvm-instr gvm-instr port) (newline port) (case (gvm-instr-type gvm-instr) ((apply) (for-each scan-opnd (apply-opnds gvm-instr)) (if (apply-loc gvm-instr) (scan-opnd (apply-loc gvm-instr)))) ((copy) (scan-opnd (copy-opnd gvm-instr)) (scan-opnd (copy-loc gvm-instr))) ((close) (for-each (lambda (parms) (scan-opnd (closure-parms-loc parms)) (for-each scan-opnd (closure-parms-opnds parms))) (close-parms gvm-instr))) ((ifjump) (for-each scan-opnd (ifjump-opnds gvm-instr))) ((jump) (scan-opnd (jump-opnd gvm-instr))) (else '())))) (if (proc-obj-primitive? p) (display "**** #[primitive " port) (display "**** #[procedure " port)) (display (proc-obj-name p) port) (display "] =" port) (newline port) (let loop ((l (bbs->code-list (proc-obj-code p))) (prev-filename "") (prev-line 0)) (if (pair? l) (let* ((code (car l)) (instr (code-gvm-instr code)) (src (comment-get (gvm-instr-comment instr) 'source)) (loc (and src (source-locat src))) (filename (if (and loc (eq? (vector-ref loc 0) 'file)) (vector-ref loc 1) prev-filename)) (line (if (and loc (eq? (vector-ref loc 0) 'file)) (vector-ref loc 3) prev-line))) (if (or (not (string=? filename prev-filename)) (not (= line prev-line))) (begin (display "#line " port) (display line port) (if (not (string=? filename prev-filename)) (begin (display " " port) (write filename port))) (newline port))) (scan-code code) (loop (cdr l) filename line)) (newline port)))) (scan-opnd (make-obj proc)) (let loop () (if (not (queue-empty? proc-left)) (begin (dump-proc (queue-get! proc-left)) (loop)))))) (define (write-gvm-instr gvm-instr port) (define (write-closure-parms parms) (display " " port) (let ((len (+ 1 (write-gvm-opnd (closure-parms-loc parms) port)))) (display " = (" port) (let ((len (+ len (+ 4 (write-gvm-lbl (closure-parms-lbl parms) port))))) (+ len (write-terminated-opnd-list (closure-parms-opnds parms) port))))) (define (write-terminated-opnd-list l port) (let loop ((l l) (len 0)) (if (pair? l) (let ((opnd (car l))) (display " " port) (loop (cdr l) (+ len (+ 1 (write-gvm-opnd opnd port))))) (begin (display ")" port) (+ len 1))))) (define (write-param-pattern gvm-instr port) (let ((len (if (not (= (label-entry-min gvm-instr) (label-entry-nb-parms gvm-instr))) (let ((len (write-returning-len (label-entry-min gvm-instr) port))) (display "-" port) (+ len 1)) 0))) (let ((len (+ len (write-returning-len (label-entry-nb-parms gvm-instr) port)))) (if (label-entry-rest? gvm-instr) (begin (display "+" port) (+ len 1)) len)))) (define (write-prim-applic prim opnds port) (display "(" port) (let ((len (+ 1 (display-returning-len (proc-obj-name prim) port)))) (+ len (write-terminated-opnd-list opnds port)))) (define (write-instr gvm-instr) (case (gvm-instr-type gvm-instr) ((label) (let ((len (write-gvm-lbl (label-lbl-num gvm-instr) port))) (display " " port) (let ((len (+ len (+ 1 (write-returning-len (frame-size (gvm-instr-frame gvm-instr)) port))))) (case (label-type gvm-instr) ((simple) len) ((entry) (if (label-entry-closed? gvm-instr) (begin (display " closure-entry-point " port) (+ len (+ 21 (write-param-pattern gvm-instr port)))) (begin (display " entry-point " port) (+ len (+ 13 (write-param-pattern gvm-instr port)))))) ((return) (display " return-point" port) (+ len 13)) ((task-entry) (display " task-entry-point" port) (+ len 17)) ((task-return) (display " task-return-point" port) (+ len 18)) (else (compiler-internal-error "write-gvm-instr, unknown label type")))))) ((apply) (display " " port) (let ((len (+ 2 (if (apply-loc gvm-instr) (let ((len (write-gvm-opnd (apply-loc gvm-instr) port))) (display " = " port) (+ len 3)) 0)))) (+ len (write-prim-applic (apply-prim gvm-instr) (apply-opnds gvm-instr) port)))) ((copy) (display " " port) (let ((len (+ 2 (write-gvm-opnd (copy-loc gvm-instr) port)))) (display " = " port) (+ len (+ 3 (write-gvm-opnd (copy-opnd gvm-instr) port))))) ((close) (display " close" port) (let ((len (+ 7 (write-closure-parms (car (close-parms gvm-instr)))))) (let loop ((l (cdr (close-parms gvm-instr))) (len len)) (if (pair? l) (let ((x (car l))) (display "," port) (loop (cdr l) (+ len (+ 1 (write-closure-parms x))))) len)))) ((ifjump) (display " if " port) (let ((len (+ 5 (write-prim-applic (ifjump-test gvm-instr) (ifjump-opnds gvm-instr) port)))) (let ((len (+ len (if (ifjump-poll? gvm-instr) (begin (display " jump* " port) 7) (begin (display " jump " port) 6))))) (let ((len (+ len (write-returning-len (frame-size (gvm-instr-frame gvm-instr)) port)))) (display " " port) (let ((len (+ len (+ 1 (write-gvm-lbl (ifjump-true gvm-instr) port))))) (display " else " port) (+ len (+ 6 (write-gvm-lbl (ifjump-false gvm-instr) port)))))))) ((jump) (display " " port) (let ((len (+ 2 (if (jump-poll? gvm-instr) (begin (display "jump* " port) 6) (begin (display "jump " port) 5))))) (let ((len (+ len (write-returning-len (frame-size (gvm-instr-frame gvm-instr)) port)))) (display " " port) (let ((len (+ len (+ 1 (write-gvm-opnd (jump-opnd gvm-instr) port))))) (+ len (if (jump-nb-args gvm-instr) (begin (display " " port) (+ 1 (write-returning-len (jump-nb-args gvm-instr) port))) 0)))))) (else (compiler-internal-error "write-gvm-instr, unknown 'gvm-instr':" gvm-instr)))) (define (spaces n) (if (> n 0) (if (> n 7) (begin (display " " port) (spaces (- n 8))) (begin (display " " port) (spaces (- n 1)))))) (let ((len (write-instr gvm-instr))) (spaces (- 40 len)) (display " " port) (write-frame (gvm-instr-frame gvm-instr) port)) (let ((x (gvm-instr-comment gvm-instr))) (if x (let ((y (comment-get x 'text))) (if y (begin (display " ; " port) (display y port))))))) (define (write-frame frame port) (define (write-var var opnd sep) (display sep port) (write-gvm-opnd opnd port) (if var (begin (display "=" port) (cond ((eq? var closure-env-var) (write (map (lambda (var) (var-name var)) (frame-closed frame)) port)) ((eq? var ret-var) (display "#" port)) ((temp-var? var) (display "." port)) (else (write (var-name var) port)))))) (define (live? var) (let ((live (frame-live frame))) (or (set-member? var live) (and (eq? var closure-env-var) (not (set-empty? (set-intersection live (list->set (frame-closed frame))))))))) (let loop1 ((i 1) (l (reverse (frame-slots frame))) (sep "; ")) (if (pair? l) (let ((var (car l))) (write-var (if (live? var) var #f) (make-stk i) sep) (loop1 (+ i 1) (cdr l) " ")) (let loop2 ((i 0) (l (frame-regs frame)) (sep sep)) (if (pair? l) (let ((var (car l))) (if (live? var) (begin (write-var var (make-reg i) sep) (loop2 (+ i 1) (cdr l) " ")) (loop2 (+ i 1) (cdr l) sep)))))))) (define (write-gvm-opnd gvm-opnd port) (define (write-opnd) (cond ((reg? gvm-opnd) (display "+" port) (+ 1 (write-returning-len (reg-num gvm-opnd) port))) ((stk? gvm-opnd) (display "-" port) (+ 1 (write-returning-len (stk-num gvm-opnd) port))) ((glo? gvm-opnd) (write-returning-len (glo-name gvm-opnd) port)) ((clo? gvm-opnd) (let ((len (write-gvm-opnd (clo-base gvm-opnd) port))) (display "(" port) (let ((len (+ len (+ 1 (write-returning-len (clo-index gvm-opnd) port))))) (display ")" port) (+ len 1)))) ((lbl? gvm-opnd) (write-gvm-lbl (lbl-num gvm-opnd) port)) ((obj? gvm-opnd) (display "'" port) (+ (write-gvm-obj (obj-val gvm-opnd) port) 1)) (else (compiler-internal-error "write-gvm-opnd, unknown 'gvm-opnd':" gvm-opnd)))) (write-opnd)) (define (write-gvm-lbl lbl port) (display "#" port) (+ (write-returning-len lbl port) 1)) (define (write-gvm-obj val port) (cond ((false-object? val) (display "#f" port) 2) ((undef-object? val) (display "#[undefined]" port) 12) ((proc-obj? val) (if (proc-obj-primitive? val) (display "#[primitive " port) (display "#[procedure " port)) (let ((len (display-returning-len (proc-obj-name val) port))) (display "]" port) (+ len 13))) (else (write-returning-len val port)))) (define (virtual.begin!) (set! *opnd-table* (make-vector opnd-table-size)) (set! *opnd-table-alloc* 0) '()) (define (virtual.end!) (set! *opnd-table* '()) '()) (define (make-target version name) (define current-target-version 4) (if (not (= version current-target-version)) (compiler-internal-error "make-target, version of target package is not current" name)) (let ((x (make-vector 11))) (vector-set! x 1 name) x)) (define (target-name x) (vector-ref x 1)) (define (target-begin! x) (vector-ref x 2)) (define (target-begin!-set! x y) (vector-set! x 2 y)) (define (target-end! x) (vector-ref x 3)) (define (target-end!-set! x y) (vector-set! x 3 y)) (define (target-dump x) (vector-ref x 4)) (define (target-dump-set! x y) (vector-set! x 4 y)) (define (target-nb-regs x) (vector-ref x 5)) (define (target-nb-regs-set! x y) (vector-set! x 5 y)) (define (target-prim-info x) (vector-ref x 6)) (define (target-prim-info-set! x y) (vector-set! x 6 y)) (define (target-label-info x) (vector-ref x 7)) (define (target-label-info-set! x y) (vector-set! x 7 y)) (define (target-jump-info x) (vector-ref x 8)) (define (target-jump-info-set! x y) (vector-set! x 8 y)) (define (target-proc-result x) (vector-ref x 9)) (define (target-proc-result-set! x y) (vector-set! x 9 y)) (define (target-task-return x) (vector-ref x 10)) (define (target-task-return-set! x y) (vector-set! x 10 y)) (define targets-loaded '()) (define (get-target name) (let ((x (assq name targets-loaded))) (if x (cdr x) (compiler-error "Target package is not available" name)))) (define (put-target targ) (let* ((name (target-name targ)) (x (assq name targets-loaded))) (if x (set-cdr! x targ) (set! targets-loaded (cons (cons name targ) targets-loaded))) '())) (define (default-target) (if (null? targets-loaded) (compiler-error "No target package is available") (car (car targets-loaded)))) (define (select-target! name info-port) (set! target (get-target name)) ((target-begin! target) info-port) (set! target.dump (target-dump target)) (set! target.nb-regs (target-nb-regs target)) (set! target.prim-info (target-prim-info target)) (set! target.label-info (target-label-info target)) (set! target.jump-info (target-jump-info target)) (set! target.proc-result (target-proc-result target)) (set! target.task-return (target-task-return target)) (set! **not-proc-obj (target.prim-info **not-sym)) '()) (define (unselect-target!) ((target-end! target)) '()) (define target '()) (define target.dump '()) (define target.nb-regs '()) (define target.prim-info '()) (define target.label-info '()) (define target.jump-info '()) (define target.proc-result '()) (define target.task-return '()) (define **not-proc-obj '()) (define (target.specialized-prim-info* name decl) (let ((x (target.prim-info* name decl))) (and x ((proc-obj-specialize x) decl)))) (define (target.prim-info* name decl) (and (if (standard-procedure name decl) (standard-binding? name decl) (extended-binding? name decl)) (target.prim-info name))) (define generic-sym (string->canonical-symbol "GENERIC")) (define fixnum-sym (string->canonical-symbol "FIXNUM")) (define flonum-sym (string->canonical-symbol "FLONUM")) (define-namable-decl generic-sym 'arith) (define-namable-decl fixnum-sym 'arith) (define-namable-decl flonum-sym 'arith) (define (arith-implementation name decls) (declaration-value 'arith name generic-sym decls)) (define (cf source target-name . opts) (let* ((dest (file-root source)) (module-name (file-name dest)) (info-port (if (memq 'verbose opts) (current-output-port) #f)) (result (compile-program (list **include-sym source) (if target-name target-name (default-target)) opts module-name dest info-port))) (if (and info-port (not (eq? info-port (current-output-port)))) (close-output-port info-port)) result)) (define (ce source target-name . opts) (let* ((dest "program") (module-name "program") (info-port (if (memq 'verbose opts) (current-output-port) #f)) (result (compile-program source (if target-name target-name (default-target)) opts module-name dest info-port))) (if (and info-port (not (eq? info-port (current-output-port)))) (close-output-port info-port)) result)) (define wrap-program #f) (set! wrap-program (lambda (program) program)) (define (compile-program program target-name opts module-name dest info-port) (define (compiler-body) (if (not (valid-module-name? module-name)) (compiler-error "Invalid characters in file name (must be a symbol with no \"#\")") (begin (ptree.begin! info-port) (virtual.begin!) (select-target! target-name info-port) (parse-program (list (expression->source (wrap-program program) #f)) (make-global-environment) module-name (lambda (lst env c-intf) (let ((parsed-program (map (lambda (x) (normalize-parse-tree (car x) (cdr x))) lst))) (if (memq 'expansion opts) (let ((port (current-output-port))) (display "Expansion:" port) (newline port) (let loop ((l parsed-program)) (if (pair? l) (let ((ptree (car l))) (pp-expression (parse-tree->expression ptree) port) (loop (cdr l))))) (newline port))) (let ((module-init-proc (compile-parsed-program module-name parsed-program env c-intf info-port))) (if (memq 'report opts) (generate-report env)) (if (memq 'gvm opts) (let ((gvm-port (open-output-file (string-append dest ".gvm")))) (virtual.dump module-init-proc gvm-port) (close-output-port gvm-port))) (target.dump module-init-proc dest c-intf opts) (dump-c-intf module-init-proc dest c-intf))))) (unselect-target!) (virtual.end!) (ptree.end!) #t))) (let ((successful (with-exception-handling compiler-body))) (if info-port (if successful (begin (display "Compilation finished." info-port) (newline info-port)) (begin (display "Compilation terminated abnormally." info-port) (newline info-port)))) successful)) (define (valid-module-name? module-name) (define (valid-char? c) (and (not (memv c '(#\# #\; #\( #\) #\space #\[ #\] #\{ #\} #\" #\' #\` #\,))) (not (char-whitespace? c)))) (let ((n (string-length module-name))) (and (> n 0) (not (string=? module-name ".")) (not (string->number module-name 10)) (let loop ((i 0)) (if (< i n) (if (valid-char? (string-ref module-name i)) (loop (+ i 1)) #f) #t))))) (define (dump-c-intf module-init-proc dest c-intf) (let ((decls (c-intf-decls c-intf)) (procs (c-intf-procs c-intf)) (inits (c-intf-inits c-intf))) (if (or (not (null? decls)) (not (null? procs)) (not (null? inits))) (let* ((module-name (proc-obj-name module-init-proc)) (filename (string-append dest ".c")) (port (open-output-file filename))) (display "/* File: \"" port) (display filename port) (display "\", C-interface file produced by Gambit " port) (display compiler-version port) (display " */" port) (newline port) (display "#define " port) (display c-id-prefix port) (display "MODULE_NAME \"" port) (display module-name port) (display "\"" port) (newline port) (display "#define " port) (display c-id-prefix port) (display "MODULE_LINKER " port) (display c-id-prefix port) (display (scheme-id->c-id module-name) port) (newline port) (display "#define " port) (display c-id-prefix port) (display "VERSION \"" port) (display compiler-version port) (display "\"" port) (newline port) (if (not (null? procs)) (begin (display "#define " port) (display c-id-prefix port) (display "C_PRC_COUNT " port) (display (length procs) port) (newline port))) (display "#include \"gambit.h\"" port) (newline port) (display c-id-prefix port) (display "BEGIN_MODULE" port) (newline port) (for-each (lambda (x) (let ((scheme-name (vector-ref x 0))) (display c-id-prefix port) (display "SUPPLY_PRM(" port) (display c-id-prefix port) (display "P_" port) (display (scheme-id->c-id scheme-name) port) (display ")" port) (newline port))) procs) (newline port) (for-each (lambda (x) (display x port) (newline port)) decls) (if (not (null? procs)) (begin (for-each (lambda (x) (let ((scheme-name (vector-ref x 0)) (c-name (vector-ref x 1)) (arity (vector-ref x 2)) (def (vector-ref x 3))) (display c-id-prefix port) (display "BEGIN_C_COD(" port) (display c-name port) (display "," port) (display c-id-prefix port) (display "P_" port) (display (scheme-id->c-id scheme-name) port) (display "," port) (display arity port) (display ")" port) (newline port) (display "#undef ___ARG1" port) (newline port) (display "#define ___ARG1 ___R1" port) (newline port) (display "#undef ___ARG2" port) (newline port) (display "#define ___ARG2 ___R2" port) (newline port) (display "#undef ___ARG3" port) (newline port) (display "#define ___ARG3 ___R3" port) (newline port) (display "#undef ___RESULT" port) (newline port) (display "#define ___RESULT ___R1" port) (newline port) (display def port) (display c-id-prefix port) (display "END_C_COD" port) (newline port))) procs) (newline port) (display c-id-prefix port) (display "BEGIN_C_PRC" port) (newline port) (let loop ((i 0) (lst procs)) (if (not (null? lst)) (let* ((x (car lst)) (scheme-name (vector-ref x 0)) (c-name (vector-ref x 1)) (arity (vector-ref x 2))) (if (= i 0) (display " " port) (display "," port)) (display c-id-prefix port) (display "DEF_C_PRC(" port) (display c-name port) (display "," port) (display c-id-prefix port) (display "P_" port) (display (scheme-id->c-id scheme-name) port) (display "," port) (display arity port) (display ")" port) (newline port) (loop (+ i 1) (cdr lst))))) (display c-id-prefix port) (display "END_C_PRC" port) (newline port))) (newline port) (display c-id-prefix port) (display "BEGIN_PRM" port) (newline port) (for-each (lambda (x) (display x port) (newline port)) inits) (display c-id-prefix port) (display "END_PRM" port) (newline port) (close-output-port port))))) (define (generate-report env) (let ((vars (sort-variables (env-global-variables env))) (decl (env-declarations env))) (define (report title pred? vars wrote-something?) (if (pair? vars) (let ((var (car vars))) (if (pred? var) (begin (if (not wrote-something?) (begin (display " ") (display title) (newline))) (let loop1 ((l (var-refs var)) (r? #f) (c? #f)) (if (pair? l) (let* ((x (car l)) (y (node-parent x))) (if (and y (app? y) (eq? x (app-oper y))) (loop1 (cdr l) r? #t) (loop1 (cdr l) #t c?))) (let loop2 ((l (var-sets var)) (d? #f) (a? #f)) (if (pair? l) (if (set? (car l)) (loop2 (cdr l) d? #t) (loop2 (cdr l) #t a?)) (begin (display " [") (if d? (display "D") (display " ")) (if a? (display "A") (display " ")) (if r? (display "R") (display " ")) (if c? (display "C") (display " ")) (display "] ") (display (var-name var)) (newline)))))) (report title pred? (cdr vars) #t)) (cons (car vars) (report title pred? (cdr vars) wrote-something?)))) (begin (if wrote-something? (newline)) '()))) (display "Global variable usage:") (newline) (newline) (report "OTHERS" (lambda (x) #t) (report "EXTENDED" (lambda (x) (target.prim-info (var-name x))) (report "STANDARD" (lambda (x) (standard-procedure (var-name x) decl)) vars #f) #f) #f))) (define (compile-parsed-program module-name program env c-intf info-port) (if info-port (display "Compiling:" info-port)) (set! trace-indentation 0) (set! *bbs* (make-bbs)) (set! *global-env* env) (set! proc-queue '()) (set! constant-vars '()) (set! known-procs '()) (restore-context (make-context 0 '() (list ret-var) '() (entry-poll) #f)) (let* ((entry-lbl (bbs-new-lbl! *bbs*)) (body-lbl (bbs-new-lbl! *bbs*)) (frame (current-frame ret-var-set)) (comment (if (null? program) #f (source-comment (car program))))) (bbs-entry-lbl-num-set! *bbs* entry-lbl) (set! entry-bb (make-bb (make-label-entry entry-lbl 0 0 #f #f frame comment) *bbs*)) (bb-put-branch! entry-bb (make-jump (make-lbl body-lbl) #f #f frame #f)) (set! *bb* (make-bb (make-label-simple body-lbl frame comment) *bbs*)) (let loop1 ((l (c-intf-procs c-intf))) (if (not (null? l)) (let* ((x (car l)) (name (vector-ref x 0)) (sym (string->canonical-symbol name)) (var (env-lookup-global-var *global-env* sym))) (add-constant-var var (make-obj (make-proc-obj name #t #f 0 #t '() '(#f)))) (loop1 (cdr l))))) (let loop2 ((l program)) (if (not (null? l)) (let ((node (car l))) (if (def? node) (let* ((var (def-var node)) (val (global-val var))) (if (and val (prc? val)) (add-constant-var var (make-obj (make-proc-obj (symbol->string (var-name var)) #t #f (call-pattern val) #t '() '(#f))))))) (loop2 (cdr l))))) (let loop3 ((l program)) (if (null? l) (let ((ret-opnd (var->opnd ret-var))) (seal-bb #t 'return) (dealloc-slots nb-slots) (bb-put-branch! *bb* (make-jump ret-opnd #f #f (current-frame (set-empty)) #f))) (let ((node (car l))) (if (def? node) (begin (gen-define (def-var node) (def-val node) info-port) (loop3 (cdr l))) (if (null? (cdr l)) (gen-node node ret-var-set 'tail) (begin (gen-node node ret-var-set 'need) (loop3 (cdr l)))))))) (let loop4 () (if (pair? proc-queue) (let ((x (car proc-queue))) (set! proc-queue (cdr proc-queue)) (gen-proc (car x) (cadr x) (caddr x) info-port) (trace-unindent info-port) (loop4)))) (if info-port (begin (newline info-port) (newline info-port))) (bbs-purify! *bbs*) (let ((proc (make-proc-obj (string-append "#!" module-name) #t *bbs* '(0) #t '() '(#f)))) (set! *bb* '()) (set! *bbs* '()) (set! *global-env* '()) (set! proc-queue '()) (set! constant-vars '()) (set! known-procs '()) (clear-context) proc))) (define *bb* '()) (define *bbs* '()) (define *global-env* '()) (define proc-queue '()) (define constant-vars '()) (define known-procs '()) (define trace-indentation '()) (define (trace-indent info-port) (set! trace-indentation (+ trace-indentation 1)) (if info-port (begin (newline info-port) (let loop ((i trace-indentation)) (if (> i 0) (begin (display " " info-port) (loop (- i 1)))))))) (define (trace-unindent info-port) (set! trace-indentation (- trace-indentation 1))) (define (gen-define var node info-port) (if (prc? node) (let* ((p-bbs *bbs*) (p-bb *bb*) (p-proc-queue proc-queue) (p-known-procs known-procs) (p-context (current-context)) (bbs (make-bbs)) (lbl1 (bbs-new-lbl! bbs)) (lbl2 (bbs-new-lbl! bbs)) (context (entry-context node '())) (frame (context->frame context (set-union (free-variables (prc-body node)) ret-var-set))) (bb1 (make-bb (make-label-entry lbl1 (length (prc-parms node)) (prc-min node) (prc-rest node) #f frame (source-comment node)) bbs)) (bb2 (make-bb (make-label-simple lbl2 frame (source-comment node)) bbs))) (define (do-body) (gen-proc node bb2 context info-port) (let loop () (if (pair? proc-queue) (let ((x (car proc-queue))) (set! proc-queue (cdr proc-queue)) (gen-proc (car x) (cadr x) (caddr x) info-port) (trace-unindent info-port) (loop)))) (trace-unindent info-port) (bbs-purify! *bbs*)) (context-entry-bb-set! context bb1) (bbs-entry-lbl-num-set! bbs lbl1) (bb-put-branch! bb1 (make-jump (make-lbl lbl2) #f #f frame #f)) (set! *bbs* bbs) (set! proc-queue '()) (set! known-procs '()) (if (constant-var? var) (let-constant-var var (make-lbl lbl1) (lambda () (add-known-proc lbl1 node) (do-body))) (do-body)) (set! *bbs* p-bbs) (set! *bb* p-bb) (set! proc-queue p-proc-queue) (set! known-procs p-known-procs) (restore-context p-context) (let* ((x (assq var constant-vars)) (proc (if x (let ((p (cdr x))) (proc-obj-code-set! (obj-val p) bbs) p) (make-obj (make-proc-obj (symbol->string (var-name var)) #f bbs (call-pattern node) #t '() '(#f)))))) (put-copy proc (make-glo (var-name var)) #f ret-var-set (source-comment node)))) (put-copy (gen-node node ret-var-set 'need) (make-glo (var-name var)) #f ret-var-set (source-comment node)))) (define (call-pattern node) (make-pattern (prc-min node) (length (prc-parms node)) (prc-rest node))) (define (make-context nb-slots slots regs closed poll entry-bb) (vector nb-slots slots regs closed poll entry-bb)) (define (context-nb-slots x) (vector-ref x 0)) (define (context-slots x) (vector-ref x 1)) (define (context-regs x) (vector-ref x 2)) (define (context-closed x) (vector-ref x 3)) (define (context-poll x) (vector-ref x 4)) (define (context-entry-bb x) (vector-ref x 5)) (define (context-entry-bb-set! x y) (vector-set! x 5 y)) (define nb-slots '()) (define slots '()) (define regs '()) (define closed '()) (define poll '()) (define entry-bb '()) (define (restore-context context) (set! nb-slots (context-nb-slots context)) (set! slots (context-slots context)) (set! regs (context-regs context)) (set! closed (context-closed context)) (set! poll (context-poll context)) (set! entry-bb (context-entry-bb context))) (define (clear-context) (restore-context (make-context '() '() '() '() '() '()))) (define (current-context) (make-context nb-slots slots regs closed poll entry-bb)) (define (current-frame live) (make-frame nb-slots slots regs closed live)) (define (context->frame context live) (make-frame (context-nb-slots context) (context-slots context) (context-regs context) (context-closed context) live)) (define (make-poll since-entry? delta) (cons since-entry? delta)) (define (poll-since-entry? x) (car x)) (define (poll-delta x) (cdr x)) (define (entry-poll) (make-poll #f (- poll-period poll-head))) (define (return-poll poll) (let ((delta (poll-delta poll))) (make-poll (poll-since-entry? poll) (+ poll-head (max delta poll-tail))))) (define (poll-merge poll other-poll) (make-poll (or (poll-since-entry? poll) (poll-since-entry? other-poll)) (max (poll-delta poll) (poll-delta other-poll)))) (define poll-period #f) (set! poll-period 90) (define poll-head #f) (set! poll-head 15) (define poll-tail #f) (set! poll-tail 15) (define (entry-context proc closed) (define (empty-vars-list n) (if (> n 0) (cons empty-var (empty-vars-list (- n 1))) '())) (let* ((parms (prc-parms proc)) (pc (target.label-info (prc-min proc) (length parms) (prc-rest proc) (not (null? closed)))) (fs (pcontext-fs pc)) (slots-list (empty-vars-list fs)) (regs-list (empty-vars-list target.nb-regs))) (define (assign-var-to-loc var loc) (let ((x (cond ((reg? loc) (let ((i (reg-num loc))) (if (<= i target.nb-regs) (nth-after regs-list i) (compiler-internal-error "entry-context, reg out of bound in back-end's pcontext")))) ((stk? loc) (let ((i (stk-num loc))) (if (<= i fs) (nth-after slots-list (- fs i)) (compiler-internal-error "entry-context, stk out of bound in back-end's pcontext")))) (else (compiler-internal-error "entry-context, loc other than reg or stk in back-end's pcontext"))))) (if (eq? (car x) empty-var) (set-car! x var) (compiler-internal-error "entry-context, duplicate location in back-end's pcontext")))) (let loop ((l (pcontext-map pc))) (if (not (null? l)) (let* ((couple (car l)) (name (car couple)) (loc (cdr couple))) (cond ((eq? name 'return) (assign-var-to-loc ret-var loc)) ((eq? name 'closure-env) (assign-var-to-loc closure-env-var loc)) (else (assign-var-to-loc (list-ref parms (- name 1)) loc))) (loop (cdr l))))) (make-context fs slots-list regs-list closed (entry-poll) #f))) (define (get-var opnd) (cond ((glo? opnd) (env-lookup-global-var *global-env* (glo-name opnd))) ((reg? opnd) (list-ref regs (reg-num opnd))) ((stk? opnd) (list-ref slots (- nb-slots (stk-num opnd)))) (else (compiler-internal-error "get-var, location must be global, register or stack slot")))) (define (put-var opnd new) (define (put-v opnd new) (cond ((reg? opnd) (set! regs (replace-nth regs (reg-num opnd) new))) ((stk? opnd) (set! slots (replace-nth slots (- nb-slots (stk-num opnd)) new))) (else (compiler-internal-error "put-var, location must be register or stack slot, for var:" (var-name new))))) (if (eq? new ret-var) (let ((x (var->opnd ret-var))) (and x (put-v x empty-var)))) (put-v opnd new)) (define (flush-regs) (set! regs '())) (define (push-slot) (set! nb-slots (+ nb-slots 1)) (set! slots (cons empty-var slots))) (define (dealloc-slots n) (set! nb-slots (- nb-slots n)) (set! slots (nth-after slots n))) (define (pop-slot) (dealloc-slots 1)) (define (replace-nth l i v) (if (null? l) (if (= i 0) (list v) (cons empty-var (replace-nth l (- i 1) v))) (if (= i 0) (cons v (cdr l)) (cons (car l) (replace-nth (cdr l) (- i 1) v))))) (define (live-vars live) (if (not (set-empty? (set-intersection live (list->set closed)))) (set-adjoin live closure-env-var) live)) (define (dead-slots live) (let ((live-v (live-vars live))) (define (loop s l i) (cond ((null? l) (list->set (reverse s))) ((set-member? (car l) live-v) (loop s (cdr l) (- i 1))) (else (loop (cons i s) (cdr l) (- i 1))))) (loop '() slots nb-slots))) (define (live-slots live) (let ((live-v (live-vars live))) (define (loop s l i) (cond ((null? l) (list->set (reverse s))) ((set-member? (car l) live-v) (loop (cons i s) (cdr l) (- i 1))) (else (loop s (cdr l) (- i 1))))) (loop '() slots nb-slots))) (define (dead-regs live) (let ((live-v (live-vars live))) (define (loop s l i) (cond ((>= i target.nb-regs) (list->set (reverse s))) ((null? l) (loop (cons i s) l (+ i 1))) ((and (set-member? (car l) live-v) (not (memq (car l) slots))) (loop s (cdr l) (+ i 1))) (else (loop (cons i s) (cdr l) (+ i 1))))) (loop '() regs 0))) (define (live-regs live) (let ((live-v (live-vars live))) (define (loop s l i) (cond ((null? l) (list->set (reverse s))) ((and (set-member? (car l) live-v) (not (memq (car l) slots))) (loop (cons i s) (cdr l) (+ i 1))) (else (loop s (cdr l) (+ i 1))))) (loop '() regs 0))) (define (lowest-dead-slot live) (make-stk (or (lowest (dead-slots live)) (+ nb-slots 1)))) (define (highest-live-slot live) (make-stk (or (highest (live-slots live)) 0))) (define (lowest-dead-reg live) (let ((x (lowest (set-remove (dead-regs live) 0)))) (if x (make-reg x) #f))) (define (highest-dead-reg live) (let ((x (highest (dead-regs live)))) (if x (make-reg x) #f))) (define (highest set) (if (set-empty? set) #f (apply max (set->list set)))) (define (lowest set) (if (set-empty? set) #f (apply min (set->list set)))) (define (above set n) (set-keep (lambda (x) (> x n)) set)) (define (below set n) (set-keep (lambda (x) (< x n)) set)) (define (var->opnd var) (let ((x (assq var constant-vars))) (if x (cdr x) (if (global? var) (make-glo (var-name var)) (let ((n (pos-in-list var regs))) (if n (make-reg n) (let ((n (pos-in-list var slots))) (if n (make-stk (- nb-slots n)) (let ((n (pos-in-list var closed))) (if n (make-clo (var->opnd closure-env-var) (+ n 1)) (compiler-internal-error "var->opnd, variable is not accessible:" (var-name var)))))))))))) (define (source-comment node) (let ((x (make-comment))) (comment-put! x 'source (node-source node)) x)) (define (sort-variables lst) (sort-list lst (lambda (x y) (string<? (symbol->string (var-name x)) (symbol->string (var-name y)))))) (define (add-constant-var var opnd) (set! constant-vars (cons (cons var opnd) constant-vars))) (define (let-constant-var var opnd thunk) (let* ((x (assq var constant-vars)) (temp (cdr x))) (set-cdr! x opnd) (thunk) (set-cdr! x temp))) (define (constant-var? var) (assq var constant-vars)) (define (not-constant-var? var) (not (constant-var? var))) (define (add-known-proc label proc) (set! known-procs (cons (cons label proc) known-procs))) (define (gen-proc proc bb context info-port) (trace-indent info-port) (if info-port (if (prc-name proc) (display (prc-name proc) info-port) (display "\"unknown\"" info-port))) (let ((lbl (bb-lbl-num bb)) (live (set-union (free-variables (prc-body proc)) ret-var-set))) (set! *bb* bb) (restore-context context) (gen-node (prc-body proc) ret-var-set 'tail))) (define (schedule-gen-proc proc closed-list) (let* ((lbl1 (bbs-new-lbl! *bbs*)) (lbl2 (bbs-new-lbl! *bbs*)) (context (entry-context proc closed-list)) (frame (context->frame context (set-union (free-variables (prc-body proc)) ret-var-set))) (bb1 (make-bb (make-label-entry lbl1 (length (prc-parms proc)) (prc-min proc) (prc-rest proc) (not (null? closed-list)) frame (source-comment proc)) *bbs*)) (bb2 (make-bb (make-label-simple lbl2 frame (source-comment proc)) *bbs*))) (context-entry-bb-set! context bb1) (bb-put-branch! bb1 (make-jump (make-lbl lbl2) #f #f frame #f)) (set! proc-queue (cons (list proc bb2 context) proc-queue)) (make-lbl lbl1))) (define (gen-node node live why) (cond ((cst? node) (gen-return (make-obj (cst-val node)) why node)) ((ref? node) (let* ((var (ref-var node)) (name (var-name var))) (gen-return (cond ((eq? why 'side) (make-obj undef-object)) ((global? var) (let ((prim (target.prim-info* name (node-decl node)))) (if prim (make-obj prim) (var->opnd var)))) (else (var->opnd var))) why node))) ((set? node) (let* ((src (gen-node (set-val node) (set-adjoin live (set-var node)) 'keep)) (dst (var->opnd (set-var node)))) (put-copy src dst #f live (source-comment node)) (gen-return (make-obj undef-object) why node))) ((def? node) (compiler-internal-error "gen-node, 'def' node not at root of parse tree")) ((tst? node) (gen-tst node live why)) ((conj? node) (gen-conj/disj node live why)) ((disj? node) (gen-conj/disj node live why)) ((prc? node) (let* ((closed (not-constant-closed-vars node)) (closed-list (sort-variables (set->list closed))) (proc-lbl (schedule-gen-proc node closed-list))) (let ((opnd (if (null? closed-list) (begin (add-known-proc (lbl-num proc-lbl) node) proc-lbl) (begin (dealloc-slots (- nb-slots (stk-num (highest-live-slot (set-union closed live))))) (push-slot) (let ((slot (make-stk nb-slots)) (var (make-temp-var 'closure))) (put-var slot var) (bb-put-non-branch! *bb* (make-close (list (make-closure-parms slot (lbl-num proc-lbl) (map var->opnd closed-list))) (current-frame (set-adjoin live var)) (source-comment node))) slot))))) (gen-return opnd why node)))) ((app? node) (gen-call node live why)) ((fut? node) (gen-fut node live why)) (else (compiler-internal-error "gen-node, unknown parse tree node type:" node)))) (define (gen-return opnd why node) (cond ((eq? why 'tail) (let ((var (make-temp-var 'result))) (put-copy opnd target.proc-result var ret-var-set (source-comment node)) (let ((ret-opnd (var->opnd ret-var))) (seal-bb (intrs-enabled? (node-decl node)) 'return) (dealloc-slots nb-slots) (bb-put-branch! *bb* (make-jump ret-opnd #f #f (current-frame (set-singleton var)) #f))))) (else opnd))) (define (not-constant-closed-vars val) (set-keep not-constant-var? (free-variables val))) (define (predicate node live cont) (define (cont* true-lbl false-lbl) (cont false-lbl true-lbl)) (define (generic-true-test) (predicate-test node live **not-proc-obj '0 (list node) cont*)) (cond ((or (conj? node) (disj? node)) (predicate-conj/disj node live cont)) ((app? node) (let ((proc (node->proc (app-oper node)))) (if proc (let ((spec (specialize-for-call proc (node-decl node)))) (if (and (proc-obj-test spec) (nb-args-conforms? (length (app-args node)) (proc-obj-call-pat spec))) (if (eq? spec **not-proc-obj) (predicate (car (app-args node)) live cont*) (predicate-test node live spec (proc-obj-strict-pat proc) (app-args node) cont)) (generic-true-test))) (generic-true-test)))) (else (generic-true-test)))) (define (predicate-conj/disj node live cont) (let* ((pre (if (conj? node) (conj-pre node) (disj-pre node))) (alt (if (conj? node) (conj-alt node) (disj-alt node))) (alt-live (set-union live (free-variables alt)))) (predicate pre alt-live (lambda (true-lbl false-lbl) (let ((pre-context (current-context))) (set! *bb* (make-bb (make-label-simple (if (conj? node) true-lbl false-lbl) (current-frame alt-live) (source-comment alt)) *bbs*)) (predicate alt live (lambda (true-lbl2 false-lbl2) (let ((alt-context (current-context))) (restore-context pre-context) (set! *bb* (make-bb (make-label-simple (if (conj? node) false-lbl true-lbl) (current-frame live) (source-comment alt)) *bbs*)) (merge-contexts-and-seal-bb alt-context live (intrs-enabled? (node-decl node)) 'internal (source-comment node)) (bb-put-branch! *bb* (make-jump (make-lbl (if (conj? node) false-lbl2 true-lbl2)) #f #f (current-frame live) #f)) (cont true-lbl2 false-lbl2))))))))) (define (predicate-test node live test strict-pat args cont) (let loop ((args* args) (liv live) (vars* '())) (if (not (null? args*)) (let* ((needed (vals-live-vars liv (cdr args*))) (var (save-var (gen-node (car args*) needed 'need) (make-temp-var 'predicate) needed (source-comment (car args*))))) (loop (cdr args*) (set-adjoin liv var) (cons var vars*))) (let* ((true-lbl (bbs-new-lbl! *bbs*)) (false-lbl (bbs-new-lbl! *bbs*))) (seal-bb (intrs-enabled? (node-decl node)) 'internal) (bb-put-branch! *bb* (make-ifjump test (map var->opnd (reverse vars*)) true-lbl false-lbl #f (current-frame live) (source-comment node))) (cont true-lbl false-lbl))))) (define (gen-tst node live why) (let ((pre (tst-pre node)) (con (tst-con node)) (alt (tst-alt node))) (predicate pre (set-union live (free-variables con) (free-variables alt)) (lambda (true-lbl false-lbl) (let ((pre-context (current-context)) (true-bb (make-bb (make-label-simple true-lbl (current-frame (set-union live (free-variables con))) (source-comment con)) *bbs*)) (false-bb (make-bb (make-label-simple false-lbl (current-frame (set-union live (free-variables alt))) (source-comment alt)) *bbs*))) (set! *bb* true-bb) (let ((con-opnd (gen-node con live why))) (if (eq? why 'tail) (begin (restore-context pre-context) (set! *bb* false-bb) (gen-node alt live why)) (let* ((result-var (make-temp-var 'result)) (live-after (set-adjoin live result-var))) (save-opnd-to-reg con-opnd target.proc-result result-var live (source-comment con)) (let ((con-context (current-context)) (con-bb *bb*)) (restore-context pre-context) (set! *bb* false-bb) (save-opnd-to-reg (gen-node alt live why) target.proc-result result-var live (source-comment alt)) (let ((next-lbl (bbs-new-lbl! *bbs*)) (alt-bb *bb*)) (if (> (context-nb-slots con-context) nb-slots) (begin (seal-bb (intrs-enabled? (node-decl node)) 'internal) (let ((alt-context (current-context))) (restore-context con-context) (set! *bb* con-bb) (merge-contexts-and-seal-bb alt-context live-after (intrs-enabled? (node-decl node)) 'internal (source-comment node)))) (let ((alt-context (current-context))) (restore-context con-context) (set! *bb* con-bb) (seal-bb (intrs-enabled? (node-decl node)) 'internal) (let ((con-context* (current-context))) (restore-context alt-context) (set! *bb* alt-bb) (merge-contexts-and-seal-bb con-context* live-after (intrs-enabled? (node-decl node)) 'internal (source-comment node))))) (let ((frame (current-frame live-after))) (bb-put-branch! con-bb (make-jump (make-lbl next-lbl) #f #f frame #f)) (bb-put-branch! alt-bb (make-jump (make-lbl next-lbl) #f #f frame #f)) (set! *bb* (make-bb (make-label-simple next-lbl frame (source-comment node)) *bbs*)) target.proc-result))))))))))) (define (nb-args-conforms? n call-pat) (pattern-member? n call-pat)) (define (merge-contexts-and-seal-bb other-context live poll? where comment) (let ((live-v (live-vars live)) (other-nb-slots (context-nb-slots other-context)) (other-regs (context-regs other-context)) (other-slots (context-slots other-context)) (other-poll (context-poll other-context)) (other-entry-bb (context-entry-bb other-context))) (let loop1 ((i (- target.nb-regs 1))) (if (>= i 0) (let ((other-var (reg->var other-regs i)) (var (reg->var regs i))) (if (and (not (eq? var other-var)) (set-member? other-var live-v)) (let ((r (make-reg i))) (put-var r empty-var) (if (not (or (not (set-member? var live-v)) (memq var regs) (memq var slots))) (let ((top (make-stk (+ nb-slots 1)))) (put-copy r top var live-v comment))) (put-copy (var->opnd other-var) r other-var live-v comment))) (loop1 (- i 1))))) (let loop2 ((i 1)) (if (<= i other-nb-slots) (let ((other-var (stk->var other-slots i)) (var (stk->var slots i))) (if (and (not (eq? var other-var)) (set-member? other-var live-v)) (let ((s (make-stk i))) (if (<= i nb-slots) (put-var s empty-var)) (if (not (or (not (set-member? var live-v)) (memq var regs) (memq var slots))) (let ((top (make-stk (+ nb-slots 1)))) (put-copy s top var live-v comment))) (put-copy (var->opnd other-var) s other-var live-v comment)) (if (> i nb-slots) (let ((top (make-stk (+ nb-slots 1)))) (put-copy (make-obj undef-object) top empty-var live-v comment)))) (loop2 (+ i 1))))) (dealloc-slots (- nb-slots other-nb-slots)) (let loop3 ((i (- target.nb-regs 1))) (if (>= i 0) (let ((other-var (reg->var other-regs i)) (var (reg->var regs i))) (if (not (eq? var other-var)) (put-var (make-reg i) empty-var)) (loop3 (- i 1))))) (let loop4 ((i 1)) (if (<= i other-nb-slots) (let ((other-var (stk->var other-slots i)) (var (stk->var slots i))) (if (not (eq? var other-var)) (put-var (make-stk i) empty-var)) (loop4 (+ i 1))))) (seal-bb poll? where) (set! poll (poll-merge poll other-poll)) (if (not (eq? entry-bb other-entry-bb)) (compiler-internal-error "merge-contexts-and-seal-bb, entry-bb's do not agree")))) (define (seal-bb poll? where) (define (my-last-pair l) (if (pair? (cdr l)) (my-last-pair (cdr l)) l)) (define (poll-at split-point) (let loop ((i 0) (l1 (bb-non-branch-instrs *bb*)) (l2 '())) (if (< i split-point) (loop (+ i 1) (cdr l1) (cons (car l1) l2)) (let* ((label-instr (bb-label-instr *bb*)) (non-branch-instrs1 (reverse l2)) (non-branch-instrs2 l1) (frame (gvm-instr-frame (car (my-last-pair (cons label-instr non-branch-instrs1))))) (prec-bb (make-bb label-instr *bbs*)) (new-lbl (bbs-new-lbl! *bbs*))) (bb-non-branch-instrs-set! prec-bb non-branch-instrs1) (bb-put-branch! prec-bb (make-jump (make-lbl new-lbl) #f #t frame #f)) (bb-label-instr-set! *bb* (make-label-simple new-lbl frame #f)) (bb-non-branch-instrs-set! *bb* non-branch-instrs2) (set! poll (make-poll #t 0)))))) (define (poll-at-end) (poll-at (length (bb-non-branch-instrs *bb*)))) (define (impose-polling-constraints) (let ((n (+ (length (bb-non-branch-instrs *bb*)) 1)) (delta (poll-delta poll))) (if (> (+ delta n) poll-period) (begin (poll-at (max (- poll-period delta) 0)) (impose-polling-constraints))))) (if poll? (impose-polling-constraints)) (let* ((n (+ (length (bb-non-branch-instrs *bb*)) 1)) (delta (+ (poll-delta poll) n)) (since-entry? (poll-since-entry? poll))) (if (and poll? (case where ((call) (> delta (- poll-period poll-head))) ((tail-call) (> delta poll-tail)) ((return) (and since-entry? (> delta (+ poll-head poll-tail)))) ((internal) #f) (else (compiler-internal-error "seal-bb, unknown 'where':" where)))) (poll-at-end) (set! poll (make-poll since-entry? delta))))) (define (reg->var regs i) (cond ((null? regs) '()) ((> i 0) (reg->var (cdr regs) (- i 1))) (else (car regs)))) (define (stk->var slots i) (let ((j (- (length slots) i))) (if (< j 0) '() (list-ref slots j)))) (define (gen-conj/disj node live why) (let ((pre (if (conj? node) (conj-pre node) (disj-pre node))) (alt (if (conj? node) (conj-alt node) (disj-alt node)))) (let ((needed (set-union live (free-variables alt))) (bool? (boolean-value? pre)) (predicate-var (make-temp-var 'predicate))) (define (general-predicate node live cont) (let* ((con-lbl (bbs-new-lbl! *bbs*)) (alt-lbl (bbs-new-lbl! *bbs*))) (save-opnd-to-reg (gen-node pre live 'need) target.proc-result predicate-var live (source-comment pre)) (seal-bb (intrs-enabled? (node-decl node)) 'internal) (bb-put-branch! *bb* (make-ifjump **not-proc-obj (list target.proc-result) alt-lbl con-lbl #f (current-frame (set-adjoin live predicate-var)) (source-comment node))) (cont con-lbl alt-lbl))) (define (alternative con-lbl alt-lbl) (let* ((pre-context (current-context)) (result-var (make-temp-var 'result)) (con-live (if bool? live (set-adjoin live predicate-var))) (alt-live (set-union live (free-variables alt))) (con-bb (make-bb (make-label-simple con-lbl (current-frame con-live) (source-comment alt)) *bbs*)) (alt-bb (make-bb (make-label-simple alt-lbl (current-frame alt-live) (source-comment alt)) *bbs*))) (if bool? (begin (set! *bb* con-bb) (save-opnd-to-reg (make-obj (if (conj? node) false-object #t)) target.proc-result result-var live (source-comment node))) (put-var (var->opnd predicate-var) result-var)) (let ((con-context (current-context))) (set! *bb* alt-bb) (restore-context pre-context) (let ((alt-opnd (gen-node alt live why))) (if (eq? why 'tail) (begin (restore-context con-context) (set! *bb* con-bb) (let ((ret-opnd (var->opnd ret-var)) (result-set (set-singleton result-var))) (seal-bb (intrs-enabled? (node-decl node)) 'return) (dealloc-slots nb-slots) (bb-put-branch! *bb* (make-jump ret-opnd #f #f (current-frame result-set) #f)))) (let ((alt-context* (current-context)) (alt-bb* *bb*)) (restore-context con-context) (set! *bb* con-bb) (seal-bb (intrs-enabled? (node-decl node)) 'internal) (let ((con-context* (current-context)) (next-lbl (bbs-new-lbl! *bbs*))) (restore-context alt-context*) (set! *bb* alt-bb*) (save-opnd-to-reg alt-opnd target.proc-result result-var live (source-comment alt)) (merge-contexts-and-seal-bb con-context* (set-adjoin live result-var) (intrs-enabled? (node-decl node)) 'internal (source-comment node)) (let ((frame (current-frame (set-adjoin live result-var)))) (bb-put-branch! *bb* (make-jump (make-lbl next-lbl) #f #f frame #f)) (bb-put-branch! con-bb (make-jump (make-lbl next-lbl) #f #f frame #f)) (set! *bb* (make-bb (make-label-simple next-lbl frame (source-comment node)) *bbs*)) target.proc-result)))))))) ((if bool? predicate general-predicate) pre needed (lambda (true-lbl false-lbl) (if (conj? node) (alternative false-lbl true-lbl) (alternative true-lbl false-lbl))))))) (define (gen-call node live why) (let* ((oper (app-oper node)) (args (app-args node)) (nb-args (length args))) (if (and (prc? oper) (not (prc-rest oper)) (= (length (prc-parms oper)) nb-args)) (gen-let (prc-parms oper) args (prc-body oper) live why) (if (inlinable-app? node) (let ((eval-order (arg-eval-order #f args)) (vars (map (lambda (x) (cons x #f)) args))) (let loop ((l eval-order) (liv live)) (if (not (null? l)) (let* ((needed (vals-live-vars liv (map car (cdr l)))) (arg (car (car l))) (pos (cdr (car l))) (var (save-var (gen-node arg needed 'need) (make-temp-var pos) needed (source-comment arg)))) (set-cdr! (assq arg vars) var) (loop (cdr l) (set-adjoin liv var))) (let ((loc (if (eq? why 'side) (make-reg 0) (or (lowest-dead-reg live) (lowest-dead-slot live))))) (if (and (stk? loc) (> (stk-num loc) nb-slots)) (push-slot)) (let* ((args (map var->opnd (map cdr vars))) (var (make-temp-var 'result)) (proc (node->proc oper)) (strict-pat (proc-obj-strict-pat proc))) (if (not (eq? why 'side)) (put-var loc var)) (bb-put-non-branch! *bb* (make-apply (specialize-for-call proc (node-decl node)) args (if (eq? why 'side) #f loc) (current-frame (if (eq? why 'side) live (set-adjoin live var))) (source-comment node))) (gen-return loc why node)))))) (let* ((calling-local-proc? (and (ref? oper) (let ((opnd (var->opnd (ref-var oper)))) (and (lbl? opnd) (let ((x (assq (lbl-num opnd) known-procs))) (and x (let ((proc (cdr x))) (and (not (prc-rest proc)) (= (prc-min proc) nb-args) (= (length (prc-parms proc)) nb-args) (lbl-num opnd))))))))) (jstate (get-jump-state args (if calling-local-proc? (target.label-info nb-args nb-args #f #f) (target.jump-info nb-args)))) (in-stk (jump-state-in-stk jstate)) (in-reg (jump-state-in-reg jstate)) (eval-order (arg-eval-order (if calling-local-proc? #f oper) in-reg)) (live-after (if (eq? why 'tail) (set-remove live ret-var) live)) (live-for-regs (args-live-vars live eval-order)) (return-lbl (if (eq? why 'tail) #f (bbs-new-lbl! *bbs*)))) (save-regs (live-regs live-after) (stk-live-vars live-for-regs in-stk why) (source-comment node)) (let ((frame-start (stk-num (highest-live-slot live-after)))) (let loop1 ((l in-stk) (liv live-after) (i (+ frame-start 1))) (if (not (null? l)) (let ((arg (car l)) (slot (make-stk i)) (needed (set-union (stk-live-vars liv (cdr l) why) live-for-regs))) (if arg (let ((var (if (and (eq? arg 'return) (eq? why 'tail)) ret-var (make-temp-var (- frame-start i))))) (save-opnd-to-stk (if (eq? arg 'return) (if (eq? why 'tail) (var->opnd ret-var) (make-lbl return-lbl)) (gen-node arg needed 'need)) slot var needed (source-comment (if (eq? arg 'return) node arg))) (loop1 (cdr l) (set-adjoin liv var) (+ i 1))) (begin (if (> i nb-slots) (put-copy (make-obj undef-object) slot empty-var liv (source-comment node))) (loop1 (cdr l) liv (+ i 1))))) (let loop2 ((l eval-order) (liv liv) (reg-map '()) (oper-var '())) (if (not (null? l)) (let* ((arg (car (car l))) (pos (cdr (car l))) (needed (args-live-vars liv (cdr l))) (var (if (and (eq? arg 'return) (eq? why 'tail)) ret-var (make-temp-var pos))) (opnd (if (eq? arg 'return) (if (eq? why 'tail) (var->opnd ret-var) (make-lbl return-lbl)) (gen-node arg needed 'need)))) (if (eq? pos 'operator) (if (and (ref? arg) (not (or (obj? opnd) (lbl? opnd)))) (loop2 (cdr l) (set-adjoin liv (ref-var arg)) reg-map (ref-var arg)) (begin (save-arg opnd var needed (source-comment (if (eq? arg 'return) node arg))) (loop2 (cdr l) (set-adjoin liv var) reg-map var))) (let ((reg (make-reg pos))) (if (all-args-trivial? (cdr l)) (save-opnd-to-reg opnd reg var needed (source-comment (if (eq? arg 'return) node arg))) (save-in-slot opnd var needed (source-comment (if (eq? arg 'return) node arg)))) (loop2 (cdr l) (set-adjoin liv var) (cons (cons pos var) reg-map) oper-var)))) (let loop3 ((i (- target.nb-regs 1))) (if (>= i 0) (let ((couple (assq i reg-map))) (if couple (let ((var (cdr couple))) (if (not (eq? (reg->var regs i) var)) (save-opnd-to-reg (var->opnd var) (make-reg i) var liv (source-comment node))))) (loop3 (- i 1))) (let ((opnd (if calling-local-proc? (make-lbl (+ calling-local-proc? 1)) (var->opnd oper-var)))) (seal-bb (intrs-enabled? (node-decl node)) (if return-lbl 'call 'tail-call)) (dealloc-slots (- nb-slots (+ frame-start (length in-stk)))) (bb-put-branch! *bb* (make-jump opnd (if calling-local-proc? #f nb-args) #f (current-frame liv) (source-comment node))) (let ((result-var (make-temp-var 'result))) (dealloc-slots (- nb-slots frame-start)) (flush-regs) (put-var target.proc-result result-var) (if return-lbl (begin (set! poll (return-poll poll)) (set! *bb* (make-bb (make-label-return return-lbl (current-frame (set-adjoin live result-var)) (source-comment node)) *bbs*)))) target.proc-result)))))))))))))) (define (contained-reg/slot opnd) (cond ((reg? opnd) opnd) ((stk? opnd) opnd) ((clo? opnd) (contained-reg/slot (clo-base opnd))) (else #f))) (define (opnd-needed opnd needed) (let ((x (contained-reg/slot opnd))) (if x (set-adjoin needed (get-var x)) needed))) (define (save-opnd opnd live comment) (let ((slot (lowest-dead-slot live))) (put-copy opnd slot (get-var opnd) live comment))) (define (save-regs regs live comment) (for-each (lambda (i) (save-opnd (make-reg i) live comment)) (set->list regs))) (define (save-opnd-to-reg opnd reg var live comment) (if (set-member? (reg-num reg) (live-regs live)) (save-opnd reg (opnd-needed opnd live) comment)) (put-copy opnd reg var live comment)) (define (save-opnd-to-stk opnd stk var live comment) (if (set-member? (stk-num stk) (live-slots live)) (save-opnd stk (opnd-needed opnd live) comment)) (put-copy opnd stk var live comment)) (define (all-args-trivial? l) (if (null? l) #t (let ((arg (car (car l)))) (or (eq? arg 'return) (and (trivial? arg) (all-args-trivial? (cdr l))))))) (define (every-trivial? l) (or (null? l) (and (trivial? (car l)) (every-trivial? (cdr l))))) (define (trivial? node) (or (cst? node) (ref? node) (and (set? node) (trivial? (set-val node))) (and (inlinable-app? node) (every-trivial? (app-args node))))) (define (inlinable-app? node) (if (app? node) (let ((proc (node->proc (app-oper node)))) (and proc (let ((spec (specialize-for-call proc (node-decl node)))) (and (proc-obj-inlinable spec) (nb-args-conforms? (length (app-args node)) (proc-obj-call-pat spec)))))) #f)) (define (boolean-value? node) (or (and (conj? node) (boolean-value? (conj-pre node)) (boolean-value? (conj-alt node))) (and (disj? node) (boolean-value? (disj-pre node)) (boolean-value? (disj-alt node))) (boolean-app? node))) (define (boolean-app? node) (if (app? node) (let ((proc (node->proc (app-oper node)))) (if proc (eq? (type-name (proc-obj-type proc)) 'boolean) #f)) #f)) (define (node->proc node) (cond ((cst? node) (if (proc-obj? (cst-val node)) (cst-val node) #f)) ((ref? node) (if (global? (ref-var node)) (target.prim-info* (var-name (ref-var node)) (node-decl node)) #f)) (else #f))) (define (specialize-for-call proc decl) ((proc-obj-specialize proc) decl)) (define (get-jump-state args pc) (define (empty-node-list n) (if (> n 0) (cons #f (empty-node-list (- n 1))) '())) (let* ((fs (pcontext-fs pc)) (slots-list (empty-node-list fs)) (regs-list (empty-node-list target.nb-regs))) (define (assign-node-to-loc var loc) (let ((x (cond ((reg? loc) (let ((i (reg-num loc))) (if (<= i target.nb-regs) (nth-after regs-list i) (compiler-internal-error "jump-state, reg out of bound in back-end's pcontext")))) ((stk? loc) (let ((i (stk-num loc))) (if (<= i fs) (nth-after slots-list (- i 1)) (compiler-internal-error "jump-state, stk out of bound in back-end's pcontext")))) (else (compiler-internal-error "jump-state, loc other than reg or stk in back-end's pcontext"))))) (if (not (car x)) (set-car! x var) (compiler-internal-error "jump-state, duplicate location in back-end's pcontext")))) (let loop ((l (pcontext-map pc))) (if (not (null? l)) (let* ((couple (car l)) (name (car couple)) (loc (cdr couple))) (cond ((eq? name 'return) (assign-node-to-loc 'return loc)) (else (assign-node-to-loc (list-ref args (- name 1)) loc))) (loop (cdr l))))) (vector slots-list regs-list))) (define (jump-state-in-stk x) (vector-ref x 0)) (define (jump-state-in-reg x) (vector-ref x 1)) (define (arg-eval-order oper nodes) (define (loop nodes pos part1 part2) (cond ((null? nodes) (let ((p1 (reverse part1)) (p2 (free-vars-order part2))) (cond ((not oper) (append p1 p2)) ((trivial? oper) (append p1 p2 (list (cons oper 'operator)))) (else (append (cons (cons oper 'operator) p1) p2))))) ((not (car nodes)) (loop (cdr nodes) (+ pos 1) part1 part2)) ((or (eq? (car nodes) 'return) (trivial? (car nodes))) (loop (cdr nodes) (+ pos 1) part1 (cons (cons (car nodes) pos) part2))) (else (loop (cdr nodes) (+ pos 1) (cons (cons (car nodes) pos) part1) part2)))) (loop nodes 0 '() '())) (define (free-vars-order l) (let ((bins '()) (ordered-args '())) (define (free-v x) (if (eq? x 'return) (set-empty) (free-variables x))) (define (add-to-bin! x) (let ((y (assq x bins))) (if y (set-cdr! y (+ (cdr y) 1)) (set! bins (cons (cons x 1) bins))))) (define (payoff-if-removed node) (let ((x (free-v node))) (let loop ((l (set->list x)) (r 0)) (if (null? l) r (let ((y (cdr (assq (car l) bins)))) (loop (cdr l) (+ r (quotient 1000 (* y y))))))))) (define (remove-free-vars! x) (let loop ((l (set->list x))) (if (not (null? l)) (let ((y (assq (car l) bins))) (set-cdr! y (- (cdr y) 1)) (loop (cdr l)))))) (define (find-max-payoff l thunk) (if (null? l) (thunk '() -1) (find-max-payoff (cdr l) (lambda (best-arg best-payoff) (let ((payoff (payoff-if-removed (car (car l))))) (if (>= payoff best-payoff) (thunk (car l) payoff) (thunk best-arg best-payoff))))))) (define (remove x l) (cond ((null? l) '()) ((eq? x (car l)) (cdr l)) (else (cons (car l) (remove x (cdr l)))))) (for-each (lambda (x) (for-each add-to-bin! (set->list (free-v (car x))))) l) (let loop ((args l) (ordered-args '())) (if (null? args) (reverse ordered-args) (find-max-payoff args (lambda (best-arg best-payoff) (remove-free-vars! (free-v (car best-arg))) (loop (remove best-arg args) (cons best-arg ordered-args)))))))) (define (args-live-vars live order) (cond ((null? order) live) ((eq? (car (car order)) 'return) (args-live-vars (set-adjoin live ret-var) (cdr order))) (else (args-live-vars (set-union live (free-variables (car (car order)))) (cdr order))))) (define (stk-live-vars live slots why) (cond ((null? slots) live) ((not (car slots)) (stk-live-vars live (cdr slots) why)) ((eq? (car slots) 'return) (stk-live-vars (if (eq? why 'tail) (set-adjoin live ret-var) live) (cdr slots) why)) (else (stk-live-vars (set-union live (free-variables (car slots))) (cdr slots) why)))) (define (gen-let vars vals node live why) (let ((var-val-map (pair-up vars vals)) (var-set (list->set vars)) (all-live (set-union live (free-variables node) (apply set-union (map free-variables vals))))) (define (var->val var) (cdr (assq var var-val-map))) (define (proc-var? var) (prc? (var->val var))) (define (closed-vars var const-proc-vars) (set-difference (not-constant-closed-vars (var->val var)) const-proc-vars)) (define (no-closed-vars? var const-proc-vars) (set-empty? (closed-vars var const-proc-vars))) (define (closed-vars? var const-proc-vars) (not (no-closed-vars? var const-proc-vars))) (define (compute-const-proc-vars proc-vars) (let loop1 ((const-proc-vars proc-vars)) (let ((new-const-proc-vars (set-keep (lambda (x) (no-closed-vars? x const-proc-vars)) const-proc-vars))) (if (not (set-equal? new-const-proc-vars const-proc-vars)) (loop1 new-const-proc-vars) const-proc-vars)))) (let* ((proc-vars (set-keep proc-var? var-set)) (const-proc-vars (compute-const-proc-vars proc-vars)) (clo-vars (set-keep (lambda (x) (closed-vars? x const-proc-vars)) proc-vars)) (clo-vars-list (set->list clo-vars))) (for-each (lambda (proc-var) (let ((label (schedule-gen-proc (var->val proc-var) '()))) (add-known-proc (lbl-num label) (var->val proc-var)) (add-constant-var proc-var label))) (set->list const-proc-vars)) (let ((non-clo-vars-list (set->list (set-keep (lambda (var) (and (not (set-member? var const-proc-vars)) (not (set-member? var clo-vars)))) vars))) (liv (set-union live (apply set-union (map (lambda (x) (closed-vars x const-proc-vars)) clo-vars-list)) (free-variables node)))) (let loop2 ((vars* non-clo-vars-list)) (if (not (null? vars*)) (let* ((var (car vars*)) (val (var->val var)) (needed (vals-live-vars liv (map var->val (cdr vars*))))) (if (var-useless? var) (gen-node val needed 'side) (save-val (gen-node val needed 'need) var needed (source-comment val))) (loop2 (cdr vars*))))) (if (pair? clo-vars-list) (begin (dealloc-slots (- nb-slots (stk-num (highest-live-slot liv)))) (let loop3 ((l clo-vars-list)) (if (not (null? l)) (begin (push-slot) (let ((var (car l)) (slot (make-stk nb-slots))) (put-var slot var) (loop3 (cdr l)))))) (bb-put-non-branch! *bb* (make-close (map (lambda (var) (let ((closed-list (sort-variables (set->list (closed-vars var const-proc-vars))))) (if (null? closed-list) (compiler-internal-error "gen-let, no closed variables:" (var-name var)) (make-closure-parms (var->opnd var) (lbl-num (schedule-gen-proc (var->val var) closed-list)) (map var->opnd closed-list))))) clo-vars-list) (current-frame liv) (source-comment node))))) (gen-node node live why))))) (define (save-arg opnd var live comment) (if (glo? opnd) (add-constant-var var opnd) (save-val opnd var live comment))) (define (save-val opnd var live comment) (cond ((or (obj? opnd) (lbl? opnd)) (add-constant-var var opnd)) ((and (reg? opnd) (not (set-member? (reg-num opnd) (live-regs live)))) (put-var opnd var)) ((and (stk? opnd) (not (set-member? (stk-num opnd) (live-slots live)))) (put-var opnd var)) (else (save-in-slot opnd var live comment)))) (define (save-in-slot opnd var live comment) (let ((slot (lowest-dead-slot live))) (put-copy opnd slot var live comment))) (define (save-var opnd var live comment) (cond ((or (obj? opnd) (lbl? opnd)) (add-constant-var var opnd) var) ((or (glo? opnd) (reg? opnd) (stk? opnd)) (get-var opnd)) (else (let ((dest (or (highest-dead-reg live) (lowest-dead-slot live)))) (put-copy opnd dest var live comment) var)))) (define (put-copy opnd loc var live comment) (if (and (stk? loc) (> (stk-num loc) nb-slots)) (push-slot)) (if var (put-var loc var)) (if (not (eq? opnd loc)) (bb-put-non-branch! *bb* (make-copy opnd loc (current-frame (if var (set-adjoin live var) live)) comment)))) (define (var-useless? var) (and (set-empty? (var-refs var)) (set-empty? (var-sets var)))) (define (vals-live-vars live vals) (if (null? vals) live (vals-live-vars (set-union live (free-variables (car vals))) (cdr vals)))) (define (gen-fut node live why) (let* ((val (fut-val node)) (clo-vars (not-constant-closed-vars val)) (clo-vars-list (set->list clo-vars)) (ret-var* (make-temp-var 0)) (live-after live) (live-starting-task (set-adjoin (set-union live-after clo-vars) ret-var*)) (task-lbl (bbs-new-lbl! *bbs*)) (return-lbl (bbs-new-lbl! *bbs*))) (save-regs (live-regs live-after) live-starting-task (source-comment node)) (let ((frame-start (stk-num (highest-live-slot live-after)))) (save-opnd-to-reg (make-lbl return-lbl) target.task-return ret-var* (set-remove live-starting-task ret-var*) (source-comment node)) (let loop1 ((l clo-vars-list) (i 0)) (if (null? l) (dealloc-slots (- nb-slots (+ frame-start i))) (let ((var (car l)) (rest (cdr l))) (if (memq var regs) (loop1 rest i) (let loop2 ((j (- target.nb-regs 1))) (if (>= j 0) (if (or (>= j (length regs)) (not (set-member? (list-ref regs j) live-starting-task))) (let ((reg (make-reg j))) (put-copy (var->opnd var) reg var live-starting-task (source-comment node)) (loop1 rest i)) (loop2 (- j 1))) (let ((slot (make-stk (+ frame-start (+ i 1)))) (needed (list->set rest))) (if (and (or (> (stk-num slot) nb-slots) (not (memq (list-ref slots (- nb-slots (stk-num slot))) regs))) (set-member? (stk-num slot) (live-slots needed))) (save-opnd slot live-starting-task (source-comment node))) (put-copy (var->opnd var) slot var live-starting-task (source-comment node)) (loop1 rest (+ i 1))))))))) (seal-bb (intrs-enabled? (node-decl node)) 'call) (bb-put-branch! *bb* (make-jump (make-lbl task-lbl) #f #f (current-frame live-starting-task) #f)) (let ((task-context (make-context (- nb-slots frame-start) (reverse (nth-after (reverse slots) frame-start)) (cons ret-var (cdr regs)) '() poll entry-bb)) (return-context (make-context frame-start (nth-after slots (- nb-slots frame-start)) '() closed (return-poll poll) entry-bb))) (restore-context task-context) (set! *bb* (make-bb (make-label-task-entry task-lbl (current-frame live-starting-task) (source-comment node)) *bbs*)) (gen-node val ret-var-set 'tail) (let ((result-var (make-temp-var 'future))) (restore-context return-context) (put-var target.proc-result result-var) (set! *bb* (make-bb (make-label-task-return return-lbl (current-frame (set-adjoin live result-var)) (source-comment node)) *bbs*)) (gen-return target.proc-result why node)))))) (define prim-procs '(("not" (1) #f 0 boolean) ("boolean?" (1) #f 0 boolean) ("eqv?" (2) #f 0 boolean) ("eq?" (2) #f 0 boolean) ("equal?" (2) #f 0 boolean) ("pair?" (1) #f 0 boolean) ("cons" (2) #f () pair) ("car" (1) #f 0 (#f)) ("cdr" (1) #f 0 (#f)) ("set-car!" (2) #t (1) pair) ("set-cdr!" (2) #t (1) pair) ("caar" (1) #f 0 (#f)) ("cadr" (1) #f 0 (#f)) ("cdar" (1) #f 0 (#f)) ("cddr" (1) #f 0 (#f)) ("caaar" (1) #f 0 (#f)) ("caadr" (1) #f 0 (#f)) ("cadar" (1) #f 0 (#f)) ("caddr" (1) #f 0 (#f)) ("cdaar" (1) #f 0 (#f)) ("cdadr" (1) #f 0 (#f)) ("cddar" (1) #f 0 (#f)) ("cdddr" (1) #f 0 (#f)) ("caaaar" (1) #f 0 (#f)) ("caaadr" (1) #f 0 (#f)) ("caadar" (1) #f 0 (#f)) ("caaddr" (1) #f 0 (#f)) ("cadaar" (1) #f 0 (#f)) ("cadadr" (1) #f 0 (#f)) ("caddar" (1) #f 0 (#f)) ("cadddr" (1) #f 0 (#f)) ("cdaaar" (1) #f 0 (#f)) ("cdaadr" (1) #f 0 (#f)) ("cdadar" (1) #f 0 (#f)) ("cdaddr" (1) #f 0 (#f)) ("cddaar" (1) #f 0 (#f)) ("cddadr" (1) #f 0 (#f)) ("cdddar" (1) #f 0 (#f)) ("cddddr" (1) #f 0 (#f)) ("null?" (1) #f 0 boolean) ("list?" (1) #f 0 boolean) ("list" 0 #f () list) ("length" (1) #f 0 integer) ("append" 0 #f 0 list) ("reverse" (1) #f 0 list) ("list-ref" (2) #f 0 (#f)) ("memq" (2) #f 0 list) ("memv" (2) #f 0 list) ("member" (2) #f 0 list) ("assq" (2) #f 0 #f) ("assv" (2) #f 0 #f) ("assoc" (2) #f 0 #f) ("symbol?" (1) #f 0 boolean) ("symbol->string" (1) #f 0 string) ("string->symbol" (1) #f 0 symbol) ("number?" (1) #f 0 boolean) ("complex?" (1) #f 0 boolean) ("real?" (1) #f 0 boolean) ("rational?" (1) #f 0 boolean) ("integer?" (1) #f 0 boolean) ("exact?" (1) #f 0 boolean) ("inexact?" (1) #f 0 boolean) ("=" 0 #f 0 boolean) ("<" 0 #f 0 boolean) (">" 0 #f 0 boolean) ("<=" 0 #f 0 boolean) (">=" 0 #f 0 boolean) ("zero?" (1) #f 0 boolean) ("positive?" (1) #f 0 boolean) ("negative?" (1) #f 0 boolean) ("odd?" (1) #f 0 boolean) ("even?" (1) #f 0 boolean) ("max" 1 #f 0 number) ("min" 1 #f 0 number) ("+" 0 #f 0 number) ("*" 0 #f 0 number) ("-" 1 #f 0 number) ("/" 1 #f 0 number) ("abs" (1) #f 0 number) ("quotient" 1 #f 0 integer) ("remainder" (2) #f 0 integer) ("modulo" (2) #f 0 integer) ("gcd" 1 #f 0 integer) ("lcm" 1 #f 0 integer) ("numerator" (1) #f 0 integer) ("denominator" (1) #f 0 integer) ("floor" (1) #f 0 integer) ("ceiling" (1) #f 0 integer) ("truncate" (1) #f 0 integer) ("round" (1) #f 0 integer) ("rationalize" (2) #f 0 number) ("exp" (1) #f 0 number) ("log" (1) #f 0 number) ("sin" (1) #f 0 number) ("cos" (1) #f 0 number) ("tan" (1) #f 0 number) ("asin" (1) #f 0 number) ("acos" (1) #f 0 number) ("atan" (1 2) #f 0 number) ("sqrt" (1) #f 0 number) ("expt" (2) #f 0 number) ("make-rectangular" (2) #f 0 number) ("make-polar" (2) #f 0 number) ("real-part" (1) #f 0 real) ("imag-part" (1) #f 0 real) ("magnitude" (1) #f 0 real) ("angle" (1) #f 0 real) ("exact->inexact" (1) #f 0 number) ("inexact->exact" (1) #f 0 number) ("number->string" (1 2) #f 0 string) ("string->number" (1 2) #f 0 number) ("char?" (1) #f 0 boolean) ("char=?" 0 #f 0 boolean) ("char<?" 0 #f 0 boolean) ("char>?" 0 #f 0 boolean) ("char<=?" 0 #f 0 boolean) ("char>=?" 0 #f 0 boolean) ("char-ci=?" 0 #f 0 boolean) ("char-ci<?" 0 #f 0 boolean) ("char-ci>?" 0 #f 0 boolean) ("char-ci<=?" 0 #f 0 boolean) ("char-ci>=?" 0 #f 0 boolean) ("char-alphabetic?" (1) #f 0 boolean) ("char-numeric?" (1) #f 0 boolean) ("char-whitespace?" (1) #f 0 boolean) ("char-upper-case?" (1) #f 0 boolean) ("char-lower-case?" (1) #f 0 boolean) ("char->integer" (1) #f 0 integer) ("integer->char" (1) #f 0 char) ("char-upcase" (1) #f 0 char) ("char-downcase" (1) #f 0 char) ("string?" (1) #f 0 boolean) ("make-string" (1 2) #f 0 string) ("string" 0 #f 0 string) ("string-length" (1) #f 0 integer) ("string-ref" (2) #f 0 char) ("string-set!" (3) #t 0 string) ("string=?" 0 #f 0 boolean) ("string<?" 0 #f 0 boolean) ("string>?" 0 #f 0 boolean) ("string<=?" 0 #f 0 boolean) ("string>=?" 0 #f 0 boolean) ("string-ci=?" 0 #f 0 boolean) ("string-ci<?" 0 #f 0 boolean) ("string-ci>?" 0 #f 0 boolean) ("string-ci<=?" 0 #f 0 boolean) ("string-ci>=?" 0 #f 0 boolean) ("substring" (3) #f 0 string) ("string-append" 0 #f 0 string) ("vector?" (1) #f 0 boolean) ("make-vector" (1 2) #f (1) vector) ("vector" 0 #f () vector) ("vector-length" (1) #f 0 integer) ("vector-ref" (2) #f 0 (#f)) ("vector-set!" (3) #t (1 2) vector) ("procedure?" (1) #f 0 boolean) ("apply" 2 #t 0 (#f)) ("map" 2 #t 0 list) ("for-each" 2 #t 0 #f) ("call-with-current-continuation" (1) #t 0 (#f)) ("call-with-input-file" (2) #t 0 (#f)) ("call-with-output-file" (2) #t 0 (#f)) ("input-port?" (1) #f 0 boolean) ("output-port?" (1) #f 0 boolean) ("current-input-port" (0) #f 0 port) ("current-output-port" (0) #f 0 port) ("open-input-file" (1) #t 0 port) ("open-output-file" (1) #t 0 port) ("close-input-port" (1) #t 0 #f) ("close-output-port" (1) #t 0 #f) ("eof-object?" (1) #f 0 boolean) ("read" (0 1) #t 0 #f) ("read-char" (0 1) #t 0 #f) ("peek-char" (0 1) #t 0 #f) ("write" (0 1) #t 0 #f) ("display" (0 1) #t 0 #f) ("newline" (0 1) #t 0 #f) ("write-char" (1 2) #t 0 #f) ("list-tail" (2) #f 0 (#f)) ("string->list" (1) #f 0 list) ("list->string" (1) #f 0 string) ("string-copy" (1) #f 0 string) ("string-fill!" (2) #t 0 string) ("vector->list" (1) #f 0 list) ("list->vector" (1) #f 0 vector) ("vector-fill!" (2) #t 0 vector) ("force" (1) #t 0 #f) ("with-input-from-file" (2) #t 0 (#f)) ("with-output-to-file" (2) #t 0 (#f)) ("char-ready?" (0 1) #f 0 boolean) ("load" (1) #t 0 (#f)) ("transcript-on" (1) #t 0 #f) ("transcript-off" (0) #t 0 #f) ("touch" (1) #t 0 #f) ("##type" (1) #f () integer) ("##type-cast" (2) #f () (#f)) ("##subtype" (1) #f () integer) ("##subtype-set!" (2) #t () #f) ("##not" (1) #f () boolean) ("##null?" (1) #f () boolean) ("##unassigned?" (1) #f () boolean) ("##unbound?" (1) #f () boolean) ("##eq?" (2) #f () boolean) ("##fixnum?" (1) #f () boolean) ("##flonum?" (1) #f () boolean) ("##special?" (1) #f () boolean) ("##pair?" (1) #f () boolean) ("##subtyped?" (1) #f () boolean) ("##procedure?" (1) #f () boolean) ("##placeholder?" (1) #f () boolean) ("##vector?" (1) #f () boolean) ("##symbol?" (1) #f () boolean) ("##ratnum?" (1) #f () boolean) ("##cpxnum?" (1) #f () boolean) ("##string?" (1) #f () boolean) ("##bignum?" (1) #f () boolean) ("##char?" (1) #f () boolean) ("##closure?" (1) #f () boolean) ("##subprocedure?" (1) #f () boolean) ("##return-dynamic-env-bind?" (1) #f () boolean) ("##fixnum.+" 0 #f () integer) ("##fixnum.*" 0 #f () integer) ("##fixnum.-" 1 #f () integer) ("##fixnum.quotient" (2) #f () integer) ("##fixnum.remainder" (2) #f () integer) ("##fixnum.modulo" (2) #f () integer) ("##fixnum.logior" 0 #f () integer) ("##fixnum.logxor" 0 #f () integer) ("##fixnum.logand" 0 #f () integer) ("##fixnum.lognot" (1) #f () integer) ("##fixnum.ash" (2) #f () integer) ("##fixnum.lsh" (2) #f () integer) ("##fixnum.zero?" (1) #f () boolean) ("##fixnum.positive?" (1) #f () boolean) ("##fixnum.negative?" (1) #f () boolean) ("##fixnum.odd?" (1) #f () boolean) ("##fixnum.even?" (1) #f () boolean) ("##fixnum.=" 0 #f () boolean) ("##fixnum.<" 0 #f () boolean) ("##fixnum.>" 0 #f () boolean) ("##fixnum.<=" 0 #f () boolean) ("##fixnum.>=" 0 #f () boolean) ("##flonum.->fixnum" (1) #f () integer) ("##flonum.<-fixnum" (1) #f () real) ("##flonum.+" 0 #f () real) ("##flonum.*" 0 #f () real) ("##flonum.-" 1 #f () real) ("##flonum./" 1 #f () real) ("##flonum.abs" (1) #f () real) ("##flonum.truncate" (1) #f () real) ("##flonum.round" (1) #f () real) ("##flonum.exp" (1) #f () real) ("##flonum.log" (1) #f () real) ("##flonum.sin" (1) #f () real) ("##flonum.cos" (1) #f () real) ("##flonum.tan" (1) #f () real) ("##flonum.asin" (1) #f () real) ("##flonum.acos" (1) #f () real) ("##flonum.atan" (1) #f () real) ("##flonum.sqrt" (1) #f () real) ("##flonum.zero?" (1) #f () boolean) ("##flonum.positive?" (1) #f () boolean) ("##flonum.negative?" (1) #f () boolean) ("##flonum.=" 0 #f () boolean) ("##flonum.<" 0 #f () boolean) ("##flonum.>" 0 #f () boolean) ("##flonum.<=" 0 #f () boolean) ("##flonum.>=" 0 #f () boolean) ("##char=?" 0 #f () boolean) ("##char<?" 0 #f () boolean) ("##char>?" 0 #f () boolean) ("##char<=?" 0 #f () boolean) ("##char>=?" 0 #f () boolean) ("##cons" (2) #f () pair) ("##set-car!" (2) #t () pair) ("##set-cdr!" (2) #t () pair) ("##car" (1) #f () (#f)) ("##cdr" (1) #f () (#f)) ("##caar" (1) #f () (#f)) ("##cadr" (1) #f () (#f)) ("##cdar" (1) #f () (#f)) ("##cddr" (1) #f () (#f)) ("##caaar" (1) #f () (#f)) ("##caadr" (1) #f () (#f)) ("##cadar" (1) #f () (#f)) ("##caddr" (1) #f () (#f)) ("##cdaar" (1) #f () (#f)) ("##cdadr" (1) #f () (#f)) ("##cddar" (1) #f () (#f)) ("##cdddr" (1) #f () (#f)) ("##caaaar" (1) #f () (#f)) ("##caaadr" (1) #f () (#f)) ("##caadar" (1) #f () (#f)) ("##caaddr" (1) #f () (#f)) ("##cadaar" (1) #f () (#f)) ("##cadadr" (1) #f () (#f)) ("##caddar" (1) #f () (#f)) ("##cadddr" (1) #f () (#f)) ("##cdaaar" (1) #f () (#f)) ("##cdaadr" (1) #f () (#f)) ("##cdadar" (1) #f () (#f)) ("##cdaddr" (1) #f () (#f)) ("##cddaar" (1) #f () (#f)) ("##cddadr" (1) #f () (#f)) ("##cdddar" (1) #f () (#f)) ("##cddddr" (1) #f () (#f)) ("##make-cell" (1) #f () pair) ("##cell-ref" (1) #f () (#f)) ("##cell-set!" (2) #t () pair) ("##vector" 0 #f () vector) ("##make-vector" (2) #f () vector) ("##vector-length" (1) #f () integer) ("##vector-ref" (2) #f () (#f)) ("##vector-set!" (3) #t () vector) ("##vector-shrink!" (2) #t () vector) ("##string" 0 #f () string) ("##make-string" (2) #f () string) ("##string-length" (1) #f () integer) ("##string-ref" (2) #f () char) ("##string-set!" (3) #t () string) ("##string-shrink!" (2) #t () string) ("##vector8" 0 #f () string) ("##make-vector8" (2) #f () string) ("##vector8-length" (1) #f () integer) ("##vector8-ref" (2) #f () integer) ("##vector8-set!" (3) #t () string) ("##vector8-shrink!" (2) #t () string) ("##vector16" 0 #f () string) ("##make-vector16" (2) #f () string) ("##vector16-length" (1) #f () integer) ("##vector16-ref" (2) #f () integer) ("##vector16-set!" (3) #t () string) ("##vector16-shrink!" (2) #t () string) ("##closure-code" (1) #f () #f) ("##closure-ref" (2) #f () (#f)) ("##closure-set!" (3) #t () #f) ("##subprocedure-id" (1) #f () #f) ("##subprocedure-parent" (1) #f () #f) ("##return-fs" (1) #f () #f) ("##return-link" (1) #f () #f) ("##procedure-info" (1) #f () #f) ("##pstate" (0) #f () #f) ("##make-placeholder" (1) #f 0 (#f)) ("##touch" (1) #t 0 #f) ("##apply" (2) #t () (#f)) ("##call-with-current-continuation" (1) #t () (#f)) ("##global-var" (1) #t () #f) ("##global-var-ref" (1) #f () (#f)) ("##global-var-set!" (2) #t () #f) ("##atomic-car" (1) #f () (#f)) ("##atomic-cdr" (1) #f () (#f)) ("##atomic-set-car!" (2) #t () pair) ("##atomic-set-cdr!" (2) #t () pair) ("##atomic-set-car-if-eq?!" (3) #t () boolean) ("##atomic-set-cdr-if-eq?!" (3) #t () boolean) ("##quasi-append" 0 #f 0 list) ("##quasi-list" 0 #f () list) ("##quasi-cons" (2) #f () pair) ("##quasi-list->vector" (1) #f 0 vector) ("##case-memv" (2) #f 0 list))) (define ofile-version-major 5) (define ofile-version-minor 0) (define prim-proc-prefix 1) (define user-proc-prefix 2) (define pair-prefix 3) (define flonum-prefix 4) (define local-object-bits -524281) (define symbol-object-bits -393209) (define prim-proc-object-bits -262137) (define padding-tag 0) (define end-of-code-tag 32768) (define m68020-proc-code-tag 32769) (define m68881-proc-code-tag 32770) (define stat-tag 32771) (define global-var-ref-tag 34816) (define global-var-set-tag 36864) (define global-var-ref-jump-tag 38912) (define prim-proc-ref-tag 40960) (define local-proc-ref-tag 49152) (define long-index-mask 16383) (define word-index-mask 2047) (define (ofile.begin! filename add-obj) (set! ofile-add-obj add-obj) (set! ofile-syms (queue-empty)) ; (set! *ofile-port1* (open-output-file (string-append filename ".O"))) (if ofile-asm? (begin (set! *ofile-port2* (asm-open-output-file (string-append filename ".asm"))) (set! *ofile-pos* 0))) (ofile-word ofile-version-major) (ofile-word ofile-version-minor) '()) (define (ofile.end!) (ofile-line "") ; (close-output-port *ofile-port1*) (if ofile-asm? (asm-close-output-port *ofile-port2*)) '()) (define asm-output '()) (define asm-line '()) (define (asm-open-output-file filename) (set! asm-output '()) (set! asm-line '())) (define (asm-close-output-port asm-port) #f) (define (asm-newline asm-port) (asm-display char-newline asm-port)) (define (asm-display obj asm-port) (if (eqv? obj char-newline) (begin (set! asm-output (cons (apply string-append (reverse asm-line)) asm-output)) (set! asm-line '())) (set! asm-line (cons (cond ((string? obj) obj) ((char? obj) (if (eqv? obj char-tab) " " (string obj))) ((number? obj) (number->string obj)) (else (compiler-internal-error "asm-display" obj))) asm-line)))) (define (asm-output-get) (reverse asm-output)) (define *ofile-port1* '()) (define *ofile-port2* '()) (define *ofile-pos* '()) (define ofile-nl char-newline) (define ofile-tab char-tab) (define ofile-asm? '()) (set! ofile-asm? '()) (define ofile-asm-bits? '()) (set! ofile-asm-bits? #f) (define ofile-asm-gvm? '()) (set! ofile-asm-gvm? #f) (define ofile-stats? '()) (set! ofile-stats? '()) (define ofile-add-obj '()) (set! ofile-add-obj '()) (define ofile-syms '()) (set! ofile-syms '()) (define (ofile-word n) (let ((n (modulo n 65536))) (if (and ofile-asm? ofile-asm-bits?) (let () (define (ofile-display x) (asm-display x *ofile-port2*) (cond ((eq? x ofile-nl) (set! *ofile-pos* 0)) ((eq? x ofile-tab) (set! *ofile-pos* (* (quotient (+ *ofile-pos* 8) 8) 8))) (else (set! *ofile-pos* (+ *ofile-pos* (string-length x)))))) (if (> *ofile-pos* 64) (ofile-display ofile-nl)) (if (= *ofile-pos* 0) (ofile-display " .word") (ofile-display ",")) (ofile-display ofile-tab) (let ((s (make-string 6 #\0))) (string-set! s 1 #\x) (let loop ((i 5) (n n)) (if (> n 0) (begin (string-set! s i (string-ref "0123456789ABCDEF" (remainder n 16))) (loop (- i 1) (quotient n 16))))) (ofile-display s)))) ' (write-word n *ofile-port1*))) (define (ofile-long x) (ofile-word (upper-16bits x)) (ofile-word x)) (define (ofile-string s) (let ((len (string-length s))) (define (ref i) (if (>= i len) 0 (character-encoding (string-ref s i)))) (let loop ((i 0)) (if (< i len) (begin (ofile-word (+ (* (ref i) 256) (ref (+ i 1)))) (loop (+ i 2))))) (if (= (remainder len 2) 0) (ofile-word 0)))) (define (ofile-wsym tag name) (let ((n (string-pos-in-list name (queue->list ofile-syms)))) (if n (ofile-word (+ tag n)) (let ((m (length (queue->list ofile-syms)))) (queue-put! ofile-syms name) (ofile-word (+ tag word-index-mask)) (ofile-string name))))) (define (ofile-lsym tag name) (let ((n (string-pos-in-list name (queue->list ofile-syms)))) (if n (ofile-long (+ tag (* n 8))) (let ((m (length (queue->list ofile-syms)))) (queue-put! ofile-syms name) (ofile-long (+ tag (* long-index-mask 8))) (ofile-string name))))) (define (ofile-ref obj) (let ((n (obj-encoding obj))) (if n (ofile-long n) (if (symbol-object? obj) (begin (ofile-lsym symbol-object-bits (symbol->string obj))) (let ((m (ofile-add-obj obj))) (if m (ofile-long (+ local-object-bits (* m 8))) (begin (ofile-lsym prim-proc-object-bits (proc-obj-name obj))))))))) (define (ofile-prim-proc s) (ofile-long prim-proc-prefix) (ofile-wsym 0 s) (ofile-comment (list "| #[primitive " s "] ="))) (define (ofile-user-proc) (ofile-long user-proc-prefix)) (define (ofile-line s) (if ofile-asm? (begin (if (> *ofile-pos* 0) (asm-newline *ofile-port2*)) (asm-display s *ofile-port2*) (asm-newline *ofile-port2*) (set! *ofile-pos* 0)))) (define (ofile-tabs-to n) (let loop () (if (< *ofile-pos* n) (begin (asm-display ofile-tab *ofile-port2*) (set! *ofile-pos* (* (quotient (+ *ofile-pos* 8) 8) 8)) (loop))))) (define (ofile-comment l) (if ofile-asm? (let () (if ofile-asm-bits? (begin (ofile-tabs-to 32) (asm-display "|" *ofile-port2*))) (for-each (lambda (x) (asm-display x *ofile-port2*)) l) (asm-newline *ofile-port2*) (set! *ofile-pos* 0)))) (define (ofile-gvm-instr code) (if (and ofile-asm? ofile-asm-gvm?) (let ((gvm-instr (code-gvm-instr code)) (sn (code-slots-needed code))) (if (> *ofile-pos* 0) (begin (asm-newline *ofile-port2*) (set! *ofile-pos* 0))) (if ofile-asm-bits? (ofile-tabs-to 32)) (asm-display "| GVM: [" *ofile-port2*) (asm-display sn *ofile-port2*) (asm-display "] " *ofile-port2*) (asm-newline *ofile-port2*) (set! *ofile-pos* 0)))) (define (ofile-stat stat) (define (obj->string x) (cond ((string? x) x) ((symbol-object? x) (symbol->string x)) ((number? x) (number->string x)) ((false-object? x) "#f") ((eq? x #t) "#t") ((null? x) "()") ((pair? x) (let loop ((l1 (cdr x)) (l2 (list (obj->string (car x)) "("))) (cond ((pair? l1) (loop (cdr l1) (cons (obj->string (car l1)) (cons " " l2)))) ((null? l1) (apply string-append (reverse (cons ")" l2)))) (else (apply string-append (reverse (cons ")" (cons (obj->string l1) (cons " . " l2))))))))) (else (compiler-internal-error "ofile-stat, can't convert to string 'x'" x)))) (ofile-string (obj->string stat))) (define (upper-16bits x) (cond ((>= x 0) (quotient x 65536)) ((>= x (- 65536)) -1) (else (- (quotient (+ x 65537) 65536) 2)))) (define type-fixnum 0) (define type-flonum 1) (define type-special 7) (define type-pair 4) (define type-placeholder 5) (define type-subtyped 3) (define type-procedure 2) (define subtype-vector 0) (define subtype-symbol 1) (define subtype-port 2) (define subtype-ratnum 3) (define subtype-cpxnum 4) (define subtype-string 16) (define subtype-bignum 17) (define data-false (- 33686019)) (define data-null (- 67372037)) (define data-true -2) (define data-undef -3) (define data-unass -4) (define data-unbound -5) (define data-eof -6) (define data-max-fixnum 268435455) (define data-min-fixnum (- 268435456)) (define (make-encoding data type) (+ (* data 8) type)) (define (obj-type obj) (cond ((false-object? obj) 'special) ((undef-object? obj) 'special) ((symbol-object? obj) 'subtyped) ((proc-obj? obj) 'procedure) ((eq? obj #t) 'special) ((null? obj) 'special) ((pair? obj) 'pair) ((number? obj) (cond ((and (integer? obj) (exact? obj) (>= obj data-min-fixnum) (<= obj data-max-fixnum)) 'fixnum) ( #t ;; (and (inexact? (real-part obj)) ;; (zero? (imag-part obj)) ;; (exact? (imag-part obj))) 'flonum) (else 'subtyped))) ((char? obj) 'special) (else 'subtyped))) (define (obj-subtype obj) (cond ((symbol-object? obj) 'symbol) ((number? obj) (cond ((and (integer? obj) (exact? obj)) 'bignum) ((and (rational? obj) (exact? obj)) 'ratnum) (else 'cpxnum))) ((vector? obj) 'vector) ((string? obj) 'string) (else (compiler-internal-error "obj-subtype, unknown object 'obj'" obj)))) (define (obj-type-tag obj) (case (obj-type obj) ((fixnum) type-fixnum) ((flonum) type-flonum) ((special) type-special) ((pair) type-pair) ((subtyped) type-subtyped) ((procedure) type-procedure) (else (compiler-internal-error "obj-type-tag, unknown object 'obj'" obj)))) (define (obj-encoding obj) (case (obj-type obj) ((fixnum) (make-encoding obj type-fixnum)) ((special) (make-encoding (cond ((false-object? obj) data-false) ((undef-object? obj) data-undef) ((eq? obj #t) data-true) ((null? obj) data-null) ((char? obj) (character-encoding obj)) (else (compiler-internal-error "obj-encoding, unknown SPECIAL object 'obj'" obj))) type-special)) (else #f))) (define bits-false (make-encoding data-false type-special)) (define bits-null (make-encoding data-null type-special)) (define bits-true (make-encoding data-true type-special)) (define bits-unass (make-encoding data-unass type-special)) (define bits-unbound (make-encoding data-unbound type-special)) (define (asm.begin!) (set! asm-code-queue (queue-empty)) (set! asm-const-queue (queue-empty)) '()) (define (asm.end! debug-info) (asm-assemble! debug-info) (set! asm-code-queue '()) (set! asm-const-queue '()) '()) (define asm-code-queue '()) (define asm-const-queue '()) (define (asm-word x) (queue-put! asm-code-queue (modulo x 65536))) (define (asm-long x) (asm-word (upper-16bits x)) (asm-word x)) (define (asm-label lbl label-descr) (queue-put! asm-code-queue (cons 'label (cons lbl label-descr)))) (define (asm-comment x) (queue-put! asm-code-queue (cons 'comment x))) (define (asm-align n offset) (queue-put! asm-code-queue (cons 'align (cons n offset)))) (define (asm-ref-glob glob) (queue-put! asm-code-queue (cons 'ref-glob (symbol->string (glob-name glob))))) (define (asm-set-glob glob) (queue-put! asm-code-queue (cons 'set-glob (symbol->string (glob-name glob))))) (define (asm-ref-glob-jump glob) (queue-put! asm-code-queue (cons 'ref-glob-jump (symbol->string (glob-name glob))))) (define (asm-proc-ref num offset) (queue-put! asm-code-queue (cons 'proc-ref (cons num offset)))) (define (asm-prim-ref proc offset) (queue-put! asm-code-queue (cons 'prim-ref (cons (proc-obj-name proc) offset)))) (define (asm-m68020-proc) (queue-put! asm-code-queue '(m68020-proc))) (define (asm-m68881-proc) (queue-put! asm-code-queue '(m68881-proc))) (define (asm-stat x) (queue-put! asm-code-queue (cons 'stat x))) (define (asm-brel type lbl) (queue-put! asm-code-queue (cons 'brab (cons type lbl)))) (define (asm-wrel lbl offs) (queue-put! asm-code-queue (cons 'wrel (cons lbl offs)))) (define (asm-lrel lbl offs n) (queue-put! asm-code-queue (cons 'lrel (cons lbl (cons offs n))))) (define (asm-assemble! debug-info) (define header-offset 2) (define ref-glob-len 2) (define set-glob-len 10) (define ref-glob-jump-len 2) (define proc-ref-len 4) (define prim-ref-len 4) (define stat-len 4) (define (padding loc n offset) (modulo (- offset loc) n)) (queue-put! asm-const-queue debug-info) (asm-align 4 0) (emit-label const-lbl) (let ((code-list (queue->list asm-code-queue)) (const-list (queue->list asm-const-queue))) (let* ((fix-list (let loop ((l code-list) (len header-offset) (x '())) (if (null? l) (reverse x) (let ((part (car l)) (rest (cdr l))) (if (pair? part) (case (car part) ((label align brab) (loop rest 0 (cons (cons len part) x))) ((wrel) (loop rest (+ len 2) x)) ((lrel) (loop rest (+ len 4) x)) ((ref-glob) (loop rest (+ len ref-glob-len) x)) ((set-glob) (loop rest (+ len set-glob-len) x)) ((ref-glob-jump) (loop rest (+ len ref-glob-jump-len) x)) ((proc-ref) (loop rest (+ len proc-ref-len) x)) ((prim-ref) (loop rest (+ len prim-ref-len) x)) ((stat) (loop rest (+ len stat-len) x)) ((comment m68020-proc m68881-proc) (loop rest len x)) (else (compiler-internal-error "asm-assemble!, unknown code list element" part))) (loop rest (+ len 2) x)))))) (lbl-list (let loop ((l fix-list) (x '())) (if (null? l) x (let ((part (cdar l)) (rest (cdr l))) (if (eq? (car part) 'label) (loop rest (cons (cons (cadr part) part) x)) (loop rest x))))))) (define (replace-lbl-refs-by-pointer-to-label) (let loop ((l code-list)) (if (not (null? l)) (let ((part (car l)) (rest (cdr l))) (if (pair? part) (case (car part) ((brab) (set-cdr! (cdr part) (cdr (assq (cddr part) lbl-list)))) ((wrel) (set-car! (cdr part) (cdr (assq (cadr part) lbl-list)))) ((lrel) (set-car! (cdr part) (cdr (assq (cadr part) lbl-list)))))) (loop rest))))) (define (assign-loc-to-labels) (let loop ((l fix-list) (loc 0)) (if (not (null? l)) (let* ((first (car l)) (rest (cdr l)) (len (car first)) (cur-loc (+ loc len)) (part (cdr first))) (case (car part) ((label) (if (cddr part) (vector-set! (cddr part) 0 (quotient (- cur-loc header-offset) 8))) (set-car! (cdr part) cur-loc) (loop rest cur-loc)) ((align) (loop rest (+ cur-loc (padding cur-loc (cadr part) (cddr part))))) ((brab) (loop rest (+ cur-loc 2))) ((braw) (loop rest (+ cur-loc 4))) (else (compiler-internal-error "assign-loc-to-labels, unknown code list element" part))))))) (define (branch-tensioning-pass) (assign-loc-to-labels) (let loop ((changed? #f) (l fix-list) (loc 0)) (if (null? l) (if changed? (branch-tensioning-pass)) (let* ((first (car l)) (rest (cdr l)) (len (car first)) (cur-loc (+ loc len)) (part (cdr first))) (case (car part) ((label) (loop changed? rest cur-loc)) ((align) (loop changed? rest (+ cur-loc (padding cur-loc (cadr part) (cddr part))))) ((brab) (let ((dist (- (cadr (cddr part)) (+ cur-loc 2)))) (if (or (< dist -128) (> dist 127) (= dist 0)) (begin (set-car! part 'braw) (loop #t rest (+ cur-loc 2))) (loop changed? rest (+ cur-loc 2))))) ((braw) (loop changed? rest (+ cur-loc 4))) (else (compiler-internal-error "branch-tensioning-pass, unknown code list element" part))))))) (define (write-block start-loc end-loc start end) (if (> end-loc start-loc) (ofile-word (quotient (- end-loc start-loc) 2))) (let loop ((loc start-loc) (l start)) (if (not (eq? l end)) (let ((part (car l)) (rest (cdr l))) (if (pair? part) (case (car part) ((label) (loop loc rest)) ((align) (let ((n (padding loc (cadr part) (cddr part)))) (let pad ((i 0)) (if (< i n) (begin (ofile-word 0) (pad (+ i 2))) (loop (+ loc n) rest))))) ((brab) (let ((dist (- (cadr (cddr part)) (+ loc 2)))) (ofile-word (+ (cadr part) (modulo dist 256))) (loop (+ loc 2) rest))) ((braw) (let ((dist (- (cadr (cddr part)) (+ loc 2)))) (ofile-word (cadr part)) (ofile-word (modulo dist 65536)) (loop (+ loc 4) rest))) ((wrel) (let ((dist (+ (- (cadr (cadr part)) loc) (cddr part)))) (ofile-word (modulo dist 65536)) (loop (+ loc 2) rest))) ((lrel) (let ((dist (+ (- (cadr (cadr part)) loc) (caddr part)))) (ofile-long (+ (* dist 65536) (cdddr part))) (loop (+ loc 4) rest))) ((comment) (let ((x (cdr part))) (if (pair? x) (ofile-comment x) (ofile-gvm-instr x)) (loop loc rest)))) (begin (ofile-word part) (loop (+ loc 2) rest))))))) (define (write-code) (let ((proc-len (+ (cadr (cdr (assq const-lbl lbl-list))) (* (length const-list) 4)))) (if (>= proc-len 32768) (compiler-limitation-error "procedure is too big (32K bytes limit per procedure)")) (ofile-word (+ 32768 proc-len))) (let loop1 ((start code-list) (start-loc header-offset)) (let loop2 ((end start) (loc start-loc)) (if (null? end) (write-block start-loc loc start end) (let ((part (car end)) (rest (cdr end))) (if (pair? part) (case (car part) ((label comment) (loop2 rest loc)) ((align) (loop2 rest (+ loc (padding loc (cadr part) (cddr part))))) ((brab wrel) (loop2 rest (+ loc 2))) ((braw) (loop2 rest (+ loc 4))) ((lrel) (loop2 rest (+ loc 4))) (else (write-block start-loc loc start end) (case (car part) ((ref-glob) (ofile-wsym global-var-ref-tag (cdr part)) (loop1 rest (+ loc ref-glob-len))) ((set-glob) (ofile-wsym global-var-set-tag (cdr part)) (loop1 rest (+ loc set-glob-len))) ((ref-glob-jump) (ofile-wsym global-var-ref-jump-tag (cdr part)) (loop1 rest (+ loc ref-glob-jump-len))) ((proc-ref) (ofile-word (+ local-proc-ref-tag (cadr part))) (ofile-word (cddr part)) (loop1 rest (+ loc proc-ref-len))) ((prim-ref) (ofile-wsym prim-proc-ref-tag (cadr part)) (ofile-word (cddr part)) (loop1 rest (+ loc prim-ref-len))) ((m68020-proc) (ofile-word m68020-proc-code-tag) (loop1 rest loc)) ((m68881-proc) (ofile-word m68881-proc-code-tag) (loop1 rest loc)) ((stat) (ofile-word stat-tag) (ofile-stat (cdr part)) (loop1 rest (+ loc stat-len)))))) (loop2 rest (+ loc 2))))))) (ofile-word end-of-code-tag) (for-each ofile-ref const-list) (ofile-long (obj-encoding (+ (length const-list) 1)))) (replace-lbl-refs-by-pointer-to-label) (branch-tensioning-pass) (write-code)))) (define const-lbl 0) (define (identical-opnd68? opnd1 opnd2) (eqv? opnd1 opnd2)) (define (reg68? x) (or (dreg? x) (areg? x))) (define (make-dreg num) num) (define (dreg? x) (and (integer? x) (>= x 0) (< x 8))) (define (dreg-num x) x) (define (make-areg num) (+ num 8)) (define (areg? x) (and (integer? x) (>= x 8) (< x 16))) (define (areg-num x) (- x 8)) (define (make-ind areg) (+ areg 8)) (define (ind? x) (and (integer? x) (>= x 16) (< x 24))) (define (ind-areg x) (- x 8)) (define (make-pinc areg) (+ areg 16)) (define (pinc? x) (and (integer? x) (>= x 24) (< x 32))) (define (pinc-areg x) (- x 16)) (define (make-pdec areg) (+ areg 24)) (define (pdec? x) (and (integer? x) (>= x 32) (< x 40))) (define (pdec-areg x) (- x 24)) (define (make-disp areg offset) (+ (+ areg 32) (* (modulo offset 65536) 8))) (define (disp? x) (and (integer? x) (>= x 40) (< x 524328))) (define (disp-areg x) (+ (remainder x 8) 8)) (define (disp-offset x) (- (modulo (+ (quotient (- x 40) 8) 32768) 65536) 32768)) (define (make-disp* areg offset) (if (= offset 0) (make-ind areg) (make-disp areg offset))) (define (disp*? x) (or (ind? x) (disp? x))) (define (disp*-areg x) (if (ind? x) (ind-areg x) (disp-areg x))) (define (disp*-offset x) (if (ind? x) 0 (disp-offset x))) (define (make-inx areg ireg offset) (+ (+ areg 524320) (* ireg 8) (* (modulo offset 256) 128))) (define (inx? x) (and (integer? x) (>= x 524328) (< x 557096))) (define (inx-areg x) (+ (remainder (- x 524328) 8) 8)) (define (inx-ireg x) (quotient (remainder (- x 524328) 128) 8)) (define (inx-offset x) (- (modulo (+ (quotient (- x 524328) 128) 128) 256) 128)) (define (make-freg num) (+ 557096 num)) (define (freg? x) (and (integer? x) (>= x 557096) (< x 557104))) (define (freg-num x) (- x 557096)) (define (make-pcr lbl offset) (+ 557104 (+ (modulo offset 65536) (* lbl 65536)))) (define (pcr? x) (and (integer? x) (>= x 557104))) (define (pcr-lbl x) (quotient (- x 557104) 65536)) (define (pcr-offset x) (- (modulo (- x 524336) 65536) 32768)) (define (make-imm val) (if (< val 0) (* val 2) (- -1 (* val 2)))) (define (imm? x) (and (integer? x) (< x 0))) (define (imm-val x) (if (even? x) (quotient x 2) (- (quotient x 2)))) (define (make-glob name) name) (define (glob? x) (symbol? x)) (define (glob-name x) x) (define (make-frame-base-rel slot) (make-disp sp-reg slot)) (define (frame-base-rel? x) (and (disp? x) (identical-opnd68? sp-reg (disp-areg x)))) (define (frame-base-rel-slot x) (disp-offset x)) (define (make-reg-list regs) regs) (define (reg-list? x) (or (pair? x) (null? x))) (define (reg-list-regs x) x) (define first-dtemp 0) (define gvm-reg1 1) (define poll-timer-reg (make-dreg 5)) (define null-reg (make-dreg 6)) (define placeholder-reg (make-dreg 6)) (define false-reg (make-dreg 7)) (define pair-reg (make-dreg 7)) (define gvm-reg0 0) (define first-atemp 1) (define heap-reg (make-areg 3)) (define ltq-tail-reg (make-areg 4)) (define pstate-reg (make-areg 5)) (define table-reg (make-areg 6)) (define sp-reg (make-areg 7)) (define pdec-sp (make-pdec sp-reg)) (define pinc-sp (make-pinc sp-reg)) (define dtemp1 (make-dreg first-dtemp)) (define atemp1 (make-areg first-atemp)) (define atemp2 (make-areg (+ first-atemp 1))) (define ftemp1 (make-freg 0)) (define arg-count-reg dtemp1) (define (trap-offset n) (+ 32768 (* (- n 32) 8))) (define (emit-move.l opnd1 opnd2) (let ((src (opnd->mode/reg opnd1)) (dst (opnd->reg/mode opnd2))) (asm-word (+ 8192 (+ dst src))) (opnd-ext-rd-long opnd1) (opnd-ext-wr-long opnd2) (if ofile-asm? (emit-asm "movl" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2))))) (define (emit-move.w opnd1 opnd2) (let ((src (opnd->mode/reg opnd1)) (dst (opnd->reg/mode opnd2))) (asm-word (+ 12288 (+ dst src))) (opnd-ext-rd-word opnd1) (opnd-ext-wr-word opnd2) (if ofile-asm? (emit-asm "movw" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2))))) (define (emit-move.b opnd1 opnd2) (let ((src (opnd->mode/reg opnd1)) (dst (opnd->reg/mode opnd2))) (asm-word (+ 4096 (+ dst src))) (opnd-ext-rd-word opnd1) (opnd-ext-wr-word opnd2) (if ofile-asm? (emit-asm "movb" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2))))) (define (emit-moveq n opnd) (asm-word (+ 28672 (+ (* (dreg-num opnd) 512) (modulo n 256)))) (if ofile-asm? (emit-asm "moveq" ofile-tab "#" n "," (opnd-str opnd)))) (define (emit-movem.l opnd1 opnd2) (define (reg-mask reg-list flip-bits?) (let loop ((i 15) (bit 32768) (mask 0)) (if (>= i 0) (loop (- i 1) (quotient bit 2) (if (memq i reg-list) (+ mask (if flip-bits? (quotient 32768 bit) bit)) mask)) mask))) (define (movem op reg-list opnd) (asm-word (+ op (opnd->mode/reg opnd))) (asm-word (reg-mask reg-list (pdec? opnd)))) (if (reg-list? opnd1) (begin (movem 18624 opnd1 opnd2) (opnd-ext-wr-long opnd2)) (begin (movem 19648 opnd2 opnd1) (opnd-ext-rd-long opnd1))) (if ofile-asm? (emit-asm "moveml" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-exg opnd1 opnd2) (define (exg r1 r2) (let ((mode (if (dreg? r2) 49472 (if (dreg? r1) 49544 49480))) (num1 (if (dreg? r1) (dreg-num r1) (areg-num r1))) (num2 (if (dreg? r2) (dreg-num r2) (areg-num r2)))) (asm-word (+ mode (+ (* num1 512) num2))))) (if (dreg? opnd2) (exg opnd2 opnd1) (exg opnd1 opnd2)) (if ofile-asm? (emit-asm "exg" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-eor.l opnd1 opnd2) (cond ((imm? opnd1) (asm-word (+ 2688 (opnd->mode/reg opnd2))) (opnd-ext-rd-long opnd1) (opnd-ext-wr-long opnd2)) (else (asm-word (+ 45440 (+ (* (dreg-num opnd1) 512) (opnd->mode/reg opnd2)))) (opnd-ext-wr-long opnd2))) (if ofile-asm? (emit-asm "eorl" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-and.l opnd1 opnd2) (cond ((imm? opnd1) (asm-word (+ 640 (opnd->mode/reg opnd2))) (opnd-ext-rd-long opnd1) (opnd-ext-wr-long opnd2)) (else (let ((mode (if (dreg? opnd2) 49280 49536)) (reg (if (dreg? opnd2) (dreg-num opnd2) (dreg-num opnd1))) (other (if (dreg? opnd2) opnd1 opnd2))) (asm-word (+ mode (+ (* reg 512) (opnd->mode/reg other)))) (if (dreg? opnd2) (opnd-ext-rd-long other) (opnd-ext-wr-long other))))) (if ofile-asm? (emit-asm "andl" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-and.w opnd1 opnd2) (cond ((imm? opnd1) (asm-word (+ 576 (opnd->mode/reg opnd2))) (opnd-ext-rd-word opnd1) (opnd-ext-wr-word opnd2)) (else (let ((mode (if (dreg? opnd2) 49216 49472)) (reg (if (dreg? opnd2) (dreg-num opnd2) (dreg-num opnd1))) (other (if (dreg? opnd2) opnd1 opnd2))) (asm-word (+ mode (+ (* reg 512) (opnd->mode/reg other)))) (if (dreg? opnd2) (opnd-ext-rd-word other) (opnd-ext-wr-word other))))) (if ofile-asm? (emit-asm "andw" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-or.l opnd1 opnd2) (cond ((imm? opnd1) (asm-word (+ 128 (opnd->mode/reg opnd2))) (opnd-ext-rd-long opnd1) (opnd-ext-wr-long opnd2)) (else (let ((mode (if (dreg? opnd2) 32896 33152)) (reg (if (dreg? opnd2) (dreg-num opnd2) (dreg-num opnd1))) (other (if (dreg? opnd2) opnd1 opnd2))) (asm-word (+ mode (+ (* reg 512) (opnd->mode/reg other)))) (if (dreg? opnd2) (opnd-ext-rd-long other) (opnd-ext-wr-long other))))) (if ofile-asm? (emit-asm "orl" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-addq.l n opnd) (let ((m (if (= n 8) 0 n))) (asm-word (+ 20608 (* m 512) (opnd->mode/reg opnd))) (opnd-ext-wr-long opnd) (if ofile-asm? (emit-asm "addql" ofile-tab "#" n "," (opnd-str opnd))))) (define (emit-addq.w n opnd) (let ((m (if (= n 8) 0 n))) (asm-word (+ 20544 (* m 512) (opnd->mode/reg opnd))) (opnd-ext-wr-word opnd) (if ofile-asm? (emit-asm "addqw" ofile-tab "#" n "," (opnd-str opnd))))) (define (emit-add.l opnd1 opnd2) (cond ((areg? opnd2) (asm-word (+ 53696 (+ (* (areg-num opnd2) 512) (opnd->mode/reg opnd1)))) (opnd-ext-rd-long opnd1)) ((imm? opnd1) (asm-word (+ 1664 (opnd->mode/reg opnd2))) (opnd-ext-rd-long opnd1) (opnd-ext-wr-long opnd2)) (else (let ((mode (if (dreg? opnd2) 53376 53632)) (reg (if (dreg? opnd2) (dreg-num opnd2) (dreg-num opnd1))) (other (if (dreg? opnd2) opnd1 opnd2))) (asm-word (+ mode (+ (* reg 512) (opnd->mode/reg other)))) (if (dreg? opnd2) (opnd-ext-rd-long other) (opnd-ext-wr-long other))))) (if ofile-asm? (emit-asm "addl" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-add.w opnd1 opnd2) (cond ((areg? opnd2) (asm-word (+ 53440 (+ (* (areg-num opnd2) 512) (opnd->mode/reg opnd1)))) (opnd-ext-rd-word opnd1)) ((imm? opnd1) (asm-word (+ 1600 (opnd->mode/reg opnd2))) (opnd-ext-rd-word opnd1) (opnd-ext-wr-word opnd2)) (else (let ((mode (if (dreg? opnd2) 53312 53568)) (reg (if (dreg? opnd2) (dreg-num opnd2) (dreg-num opnd1))) (other (if (dreg? opnd2) opnd1 opnd2))) (asm-word (+ mode (+ (* reg 512) (opnd->mode/reg other)))) (if (dreg? opnd2) (opnd-ext-rd-word other) (opnd-ext-wr-word other))))) (if ofile-asm? (emit-asm "addw" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-addx.w opnd1 opnd2) (if (dreg? opnd1) (asm-word (+ 53568 (+ (* (dreg-num opnd2) 512) (dreg-num opnd1)))) (asm-word (+ 53576 (+ (* (areg-num (pdec-areg opnd2)) 512) (areg-num (pdec-areg opnd1)))))) (if ofile-asm? (emit-asm "addxw" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-subq.l n opnd) (let ((m (if (= n 8) 0 n))) (asm-word (+ 20864 (* m 512) (opnd->mode/reg opnd))) (opnd-ext-wr-long opnd) (if ofile-asm? (emit-asm "subql" ofile-tab "#" n "," (opnd-str opnd))))) (define (emit-subq.w n opnd) (let ((m (if (= n 8) 0 n))) (asm-word (+ 20800 (* m 512) (opnd->mode/reg opnd))) (opnd-ext-wr-word opnd) (if ofile-asm? (emit-asm "subqw" ofile-tab "#" n "," (opnd-str opnd))))) (define (emit-sub.l opnd1 opnd2) (cond ((areg? opnd2) (asm-word (+ 37312 (+ (* (areg-num opnd2) 512) (opnd->mode/reg opnd1)))) (opnd-ext-rd-long opnd1)) ((imm? opnd1) (asm-word (+ 1152 (opnd->mode/reg opnd2))) (opnd-ext-rd-long opnd1) (opnd-ext-wr-long opnd2)) (else (let ((mode (if (dreg? opnd2) 36992 37248)) (reg (if (dreg? opnd2) (dreg-num opnd2) (dreg-num opnd1))) (other (if (dreg? opnd2) opnd1 opnd2))) (asm-word (+ mode (+ (* reg 512) (opnd->mode/reg other)))) (if (dreg? opnd2) (opnd-ext-rd-long other) (opnd-ext-wr-long other))))) (if ofile-asm? (emit-asm "subl" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-sub.w opnd1 opnd2) (cond ((areg? opnd2) (asm-word (+ 37056 (+ (* (areg-num opnd2) 512) (opnd->mode/reg opnd1)))) (opnd-ext-rd-word opnd1)) ((imm? opnd1) (asm-word (+ 1088 (opnd->mode/reg opnd2))) (opnd-ext-rd-word opnd1) (opnd-ext-wr-word opnd2)) (else (let ((mode (if (dreg? opnd2) 36928 37184)) (reg (if (dreg? opnd2) (dreg-num opnd2) (dreg-num opnd1))) (other (if (dreg? opnd2) opnd1 opnd2))) (asm-word (+ mode (+ (* reg 512) (opnd->mode/reg other)))) (if (dreg? opnd2) (opnd-ext-rd-word other) (opnd-ext-wr-word other))))) (if ofile-asm? (emit-asm "subw" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-asl.l opnd1 opnd2) (if (dreg? opnd1) (asm-word (+ 57760 (+ (* (dreg-num opnd1) 512) (dreg-num opnd2)))) (let ((n (imm-val opnd1))) (asm-word (+ 57728 (+ (* (if (= n 8) 0 n) 512) (dreg-num opnd2)))))) (if ofile-asm? (emit-asm "asll" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-asl.w opnd1 opnd2) (if (dreg? opnd1) (asm-word (+ 57696 (+ (* (dreg-num opnd1) 512) (dreg-num opnd2)))) (let ((n (imm-val opnd1))) (asm-word (+ 57664 (+ (* (if (= n 8) 0 n) 512) (dreg-num opnd2)))))) (if ofile-asm? (emit-asm "aslw" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-asr.l opnd1 opnd2) (if (dreg? opnd1) (asm-word (+ 57504 (+ (* (dreg-num opnd1) 512) (dreg-num opnd2)))) (let ((n (imm-val opnd1))) (asm-word (+ 57472 (+ (* (if (= n 8) 0 n) 512) (dreg-num opnd2)))))) (if ofile-asm? (emit-asm "asrl" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-asr.w opnd1 opnd2) (if (dreg? opnd1) (asm-word (+ 57440 (+ (* (dreg-num opnd1) 512) (dreg-num opnd2)))) (let ((n (imm-val opnd1))) (asm-word (+ 57408 (+ (* (if (= n 8) 0 n) 512) (dreg-num opnd2)))))) (if ofile-asm? (emit-asm "asrw" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-lsl.l opnd1 opnd2) (if (dreg? opnd1) (asm-word (+ 57768 (+ (* (dreg-num opnd1) 512) (dreg-num opnd2)))) (let ((n (imm-val opnd1))) (asm-word (+ 57736 (+ (* (if (= n 8) 0 n) 512) (dreg-num opnd2)))))) (if ofile-asm? (emit-asm "lsll" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-lsr.l opnd1 opnd2) (if (dreg? opnd1) (asm-word (+ 57512 (+ (* (dreg-num opnd1) 512) (dreg-num opnd2)))) (let ((n (imm-val opnd1))) (asm-word (+ 57480 (+ (* (if (= n 8) 0 n) 512) (dreg-num opnd2)))))) (if ofile-asm? (emit-asm "lsrl" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-lsr.w opnd1 opnd2) (if (dreg? opnd1) (asm-word (+ 57448 (+ (* (dreg-num opnd1) 512) (dreg-num opnd2)))) (let ((n (imm-val opnd1))) (asm-word (+ 57416 (+ (* (if (= n 8) 0 n) 512) (dreg-num opnd2)))))) (if ofile-asm? (emit-asm "lsrw" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-clr.l opnd) (asm-word (+ 17024 (opnd->mode/reg opnd))) (opnd-ext-wr-long opnd) (if ofile-asm? (emit-asm "clrl" ofile-tab (opnd-str opnd)))) (define (emit-neg.l opnd) (asm-word (+ 17536 (opnd->mode/reg opnd))) (opnd-ext-wr-long opnd) (if ofile-asm? (emit-asm "negl" ofile-tab (opnd-str opnd)))) (define (emit-not.l opnd) (asm-word (+ 18048 (opnd->mode/reg opnd))) (opnd-ext-wr-long opnd) (if ofile-asm? (emit-asm "notl" ofile-tab (opnd-str opnd)))) (define (emit-ext.l opnd) (asm-word (+ 18624 (dreg-num opnd))) (if ofile-asm? (emit-asm "extl" ofile-tab (opnd-str opnd)))) (define (emit-ext.w opnd) (asm-word (+ 18560 (dreg-num opnd))) (if ofile-asm? (emit-asm "extw" ofile-tab (opnd-str opnd)))) (define (emit-swap opnd) (asm-word (+ 18496 (dreg-num opnd))) (if ofile-asm? (emit-asm "swap" ofile-tab (opnd-str opnd)))) (define (emit-cmp.l opnd1 opnd2) (cond ((areg? opnd2) (asm-word (+ 45504 (+ (* (areg-num opnd2) 512) (opnd->mode/reg opnd1)))) (opnd-ext-rd-long opnd1)) ((imm? opnd1) (asm-word (+ 3200 (opnd->mode/reg opnd2))) (opnd-ext-rd-long opnd1) (opnd-ext-rd-long opnd2)) (else (asm-word (+ 45184 (+ (* (dreg-num opnd2) 512) (opnd->mode/reg opnd1)))) (opnd-ext-rd-long opnd1))) (if ofile-asm? (emit-asm "cmpl" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-cmp.w opnd1 opnd2) (cond ((areg? opnd2) (asm-word (+ 45248 (+ (* (areg-num opnd2) 512) (opnd->mode/reg opnd1)))) (opnd-ext-rd-word opnd1)) ((imm? opnd1) (asm-word (+ 3136 (opnd->mode/reg opnd2))) (opnd-ext-rd-word opnd1) (opnd-ext-rd-word opnd2)) (else (asm-word (+ 45120 (+ (* (dreg-num opnd2) 512) (opnd->mode/reg opnd1)))) (opnd-ext-rd-word opnd1))) (if ofile-asm? (emit-asm "cmpw" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-cmp.b opnd1 opnd2) (cond ((imm? opnd1) (asm-word (+ 3072 (opnd->mode/reg opnd2))) (opnd-ext-rd-word opnd1) (opnd-ext-rd-word opnd2)) (else (asm-word (+ 45056 (+ (* (dreg-num opnd2) 512) (opnd->mode/reg opnd1)))) (opnd-ext-rd-word opnd1))) (if ofile-asm? (emit-asm "cmpb" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-tst.l opnd) (asm-word (+ 19072 (opnd->mode/reg opnd))) (opnd-ext-rd-long opnd) (if ofile-asm? (emit-asm "tstl" ofile-tab (opnd-str opnd)))) (define (emit-tst.w opnd) (asm-word (+ 19008 (opnd->mode/reg opnd))) (opnd-ext-rd-word opnd) (if ofile-asm? (emit-asm "tstw" ofile-tab (opnd-str opnd)))) (define (emit-lea opnd areg) (asm-word (+ 16832 (+ (* (areg-num areg) 512) (opnd->mode/reg opnd)))) (opnd-ext-rd-long opnd) (if ofile-asm? (emit-asm "lea" ofile-tab (opnd-str opnd) "," (opnd-str areg)))) (define (emit-unlk areg) (asm-word (+ 20056 (areg-num areg))) (if ofile-asm? (emit-asm "unlk" ofile-tab (opnd-str areg)))) (define (emit-move-proc num opnd) (let ((dst (opnd->reg/mode opnd))) (asm-word (+ 8192 (+ dst 60))) (asm-proc-ref num 0) (opnd-ext-wr-long opnd) (if ofile-asm? (emit-asm "MOVE_PROC(" num "," (opnd-str opnd) ")")))) (define (emit-move-prim val opnd) (let ((dst (opnd->reg/mode opnd))) (asm-word (+ 8192 (+ dst 60))) (asm-prim-ref val 0) (opnd-ext-wr-long opnd) (if ofile-asm? (emit-asm "MOVE_PRIM(" (proc-obj-name val) "," (opnd-str opnd) ")")))) (define (emit-pea opnd) (asm-word (+ 18496 (opnd->mode/reg opnd))) (opnd-ext-rd-long opnd) (if ofile-asm? (emit-asm "pea" ofile-tab (opnd-str opnd)))) (define (emit-pea* n) (asm-word 18552) (asm-word n) (if ofile-asm? (emit-asm "pea" ofile-tab n))) (define (emit-btst opnd1 opnd2) (asm-word (+ 256 (+ (* (dreg-num opnd1) 512) (opnd->mode/reg opnd2)))) (opnd-ext-rd-word opnd2) (if ofile-asm? (emit-asm "btst" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-bra lbl) (asm-brel 24576 lbl) (if ofile-asm? (emit-asm "bra" ofile-tab "L" lbl))) (define (emit-bcc lbl) (asm-brel 25600 lbl) (if ofile-asm? (emit-asm "bcc" ofile-tab "L" lbl))) (define (emit-bcs lbl) (asm-brel 25856 lbl) (if ofile-asm? (emit-asm "bcs" ofile-tab "L" lbl))) (define (emit-bhi lbl) (asm-brel 25088 lbl) (if ofile-asm? (emit-asm "bhi" ofile-tab "L" lbl))) (define (emit-bls lbl) (asm-brel 25344 lbl) (if ofile-asm? (emit-asm "bls" ofile-tab "L" lbl))) (define (emit-bmi lbl) (asm-brel 27392 lbl) (if ofile-asm? (emit-asm "bmi" ofile-tab "L" lbl))) (define (emit-bpl lbl) (asm-brel 27136 lbl) (if ofile-asm? (emit-asm "bpl" ofile-tab "L" lbl))) (define (emit-beq lbl) (asm-brel 26368 lbl) (if ofile-asm? (emit-asm "beq" ofile-tab "L" lbl))) (define (emit-bne lbl) (asm-brel 26112 lbl) (if ofile-asm? (emit-asm "bne" ofile-tab "L" lbl))) (define (emit-blt lbl) (asm-brel 27904 lbl) (if ofile-asm? (emit-asm "blt" ofile-tab "L" lbl))) (define (emit-bgt lbl) (asm-brel 28160 lbl) (if ofile-asm? (emit-asm "bgt" ofile-tab "L" lbl))) (define (emit-ble lbl) (asm-brel 28416 lbl) (if ofile-asm? (emit-asm "ble" ofile-tab "L" lbl))) (define (emit-bge lbl) (asm-brel 27648 lbl) (if ofile-asm? (emit-asm "bge" ofile-tab "L" lbl))) (define (emit-dbra dreg lbl) (asm-word (+ 20936 dreg)) (asm-wrel lbl 0) (if ofile-asm? (emit-asm "dbra" ofile-tab (opnd-str dreg) ",L" lbl))) (define (emit-trap num) (asm-word (+ 20032 num)) (if ofile-asm? (emit-asm "trap" ofile-tab "#" num))) (define (emit-trap1 num args) (asm-word (+ 20136 (areg-num table-reg))) (asm-word (trap-offset num)) (let loop ((args args)) (if (not (null? args)) (begin (asm-word (car args)) (loop (cdr args))))) (if ofile-asm? (let () (define (words l) (if (null? l) (list ")") (cons "," (cons (car l) (words (cdr l)))))) (apply emit-asm (cons "TRAP1(" (cons num (words args))))))) (define (emit-trap2 num args) (asm-word (+ 20136 (areg-num table-reg))) (asm-word (trap-offset num)) (asm-align 8 (modulo (- 4 (* (length args) 2)) 8)) (let loop ((args args)) (if (not (null? args)) (begin (asm-word (car args)) (loop (cdr args))))) (if ofile-asm? (let () (define (words l) (if (null? l) (list ")") (cons "," (cons (car l) (words (cdr l)))))) (apply emit-asm (cons "TRAP2(" (cons num (words args))))))) (define (emit-trap3 num) (asm-word (+ 20200 (areg-num table-reg))) (asm-word (trap-offset num)) (if ofile-asm? (emit-asm "TRAP3(" num ")"))) (define (emit-rts) (asm-word 20085) (if ofile-asm? (emit-asm "rts"))) (define (emit-nop) (asm-word 20081) (if ofile-asm? (emit-asm "nop"))) (define (emit-jmp opnd) (asm-word (+ 20160 (opnd->mode/reg opnd))) (opnd-ext-rd-long opnd) (if ofile-asm? (emit-asm "jmp" ofile-tab (opnd-str opnd)))) (define (emit-jmp-glob glob) (asm-word 8814) (asm-ref-glob-jump glob) (asm-word 20177) (if ofile-asm? (emit-asm "JMP_GLOB(" (glob-name glob) ")"))) (define (emit-jmp-proc num offset) (asm-word 20217) (asm-proc-ref num offset) (if ofile-asm? (emit-asm "JMP_PROC(" num "," offset ")"))) (define (emit-jmp-prim val offset) (asm-word 20217) (asm-prim-ref val offset) (if ofile-asm? (emit-asm "JMP_PRIM(" (proc-obj-name val) "," offset ")"))) (define (emit-jsr opnd) (asm-word (+ 20096 (opnd->mode/reg opnd))) (opnd-ext-rd-long opnd) (if ofile-asm? (emit-asm "jsr" ofile-tab (opnd-str opnd)))) (define (emit-word n) (asm-word n) (if ofile-asm? (emit-asm ".word" ofile-tab n))) (define (emit-label lbl) (asm-label lbl #f) (if ofile-asm? (emit-asm* "L" lbl ":"))) (define (emit-label-subproc lbl parent-lbl label-descr) (asm-align 8 0) (asm-wrel parent-lbl (- 32768 type-procedure)) (asm-label lbl label-descr) (if ofile-asm? (begin (emit-asm "SUBPROC(L" parent-lbl ")") (emit-asm* "L" lbl ":")))) (define (emit-label-return lbl parent-lbl fs link label-descr) (asm-align 8 4) (asm-word (* fs 4)) (asm-word (* (- fs link) 4)) (asm-wrel parent-lbl (- 32768 type-procedure)) (asm-label lbl label-descr) (if ofile-asm? (begin (emit-asm "RETURN(L" parent-lbl "," fs "," link ")") (emit-asm* "L" lbl ":")))) (define (emit-label-task-return lbl parent-lbl fs link label-descr) (asm-align 8 4) (asm-word (+ 32768 (* fs 4))) (asm-word (* (- fs link) 4)) (asm-wrel parent-lbl (- 32768 type-procedure)) (asm-label lbl label-descr) (if ofile-asm? (begin (emit-asm "TASK_RETURN(L" parent-lbl "," fs "," link ")") (emit-asm* "L" lbl ":")))) (define (emit-lbl-ptr lbl) (asm-wrel lbl 0) (if ofile-asm? (emit-asm "LBL_PTR(L" lbl ")"))) (define (emit-set-glob glob) (asm-set-glob glob) (if ofile-asm? (emit-asm "SET_GLOB(" (glob-name glob) ")"))) (define (emit-const obj) (let ((n (pos-in-list obj (queue->list asm-const-queue)))) (if n (make-pcr const-lbl (* n 4)) (let ((m (length (queue->list asm-const-queue)))) (queue-put! asm-const-queue obj) (make-pcr const-lbl (* m 4)))))) (define (emit-stat stat) (asm-word 21177) (asm-stat stat) (if ofile-asm? (emit-asm "STAT(" stat ")"))) (define (emit-asm . l) (asm-comment (cons ofile-tab l))) (define (emit-asm* . l) (asm-comment l)) (define (emit-muls.l opnd1 opnd2) (asm-m68020-proc) (asm-word (+ 19456 (opnd->mode/reg opnd1))) (asm-word (+ 2048 (* (dreg-num opnd2) 4096))) (opnd-ext-rd-long opnd1) (if ofile-asm? (emit-asm "mulsl" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-divsl.l opnd1 opnd2 opnd3) (asm-m68020-proc) (asm-word (+ 19520 (opnd->mode/reg opnd1))) (asm-word (+ 2048 (* (dreg-num opnd3) 4096) (dreg-num opnd2))) (opnd-ext-rd-long opnd1) (if ofile-asm? (emit-asm "divsll" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2) ":" (opnd-str opnd3)))) (define (emit-fint.dx opnd1 opnd2) (emit-fop.dx "int" 1 opnd1 opnd2)) (define (emit-fsinh.dx opnd1 opnd2) (emit-fop.dx "sinh" 2 opnd1 opnd2)) (define (emit-fintrz.dx opnd1 opnd2) (emit-fop.dx "intrz" 3 opnd1 opnd2)) (define (emit-fsqrt.dx opnd1 opnd2) (emit-fop.dx "sqrt" 4 opnd1 opnd2)) (define (emit-flognp1.dx opnd1 opnd2) (emit-fop.dx "lognp1" 6 opnd1 opnd2)) (define (emit-fetoxm1.dx opnd1 opnd2) (emit-fop.dx "etoxm1" 8 opnd1 opnd2)) (define (emit-ftanh.dx opnd1 opnd2) (emit-fop.dx "tanh" 9 opnd1 opnd2)) (define (emit-fatan.dx opnd1 opnd2) (emit-fop.dx "atan" 10 opnd1 opnd2)) (define (emit-fasin.dx opnd1 opnd2) (emit-fop.dx "asin" 12 opnd1 opnd2)) (define (emit-fatanh.dx opnd1 opnd2) (emit-fop.dx "atanh" 13 opnd1 opnd2)) (define (emit-fsin.dx opnd1 opnd2) (emit-fop.dx "sin" 14 opnd1 opnd2)) (define (emit-ftan.dx opnd1 opnd2) (emit-fop.dx "tan" 15 opnd1 opnd2)) (define (emit-fetox.dx opnd1 opnd2) (emit-fop.dx "etox" 16 opnd1 opnd2)) (define (emit-ftwotox.dx opnd1 opnd2) (emit-fop.dx "twotox" 17 opnd1 opnd2)) (define (emit-ftentox.dx opnd1 opnd2) (emit-fop.dx "tentox" 18 opnd1 opnd2)) (define (emit-flogn.dx opnd1 opnd2) (emit-fop.dx "logn" 20 opnd1 opnd2)) (define (emit-flog10.dx opnd1 opnd2) (emit-fop.dx "log10" 21 opnd1 opnd2)) (define (emit-flog2.dx opnd1 opnd2) (emit-fop.dx "log2" 22 opnd1 opnd2)) (define (emit-fabs.dx opnd1 opnd2) (emit-fop.dx "abs" 24 opnd1 opnd2)) (define (emit-fcosh.dx opnd1 opnd2) (emit-fop.dx "cosh" 25 opnd1 opnd2)) (define (emit-fneg.dx opnd1 opnd2) (emit-fop.dx "neg" 26 opnd1 opnd2)) (define (emit-facos.dx opnd1 opnd2) (emit-fop.dx "acos" 28 opnd1 opnd2)) (define (emit-fcos.dx opnd1 opnd2) (emit-fop.dx "cos" 29 opnd1 opnd2)) (define (emit-fgetexp.dx opnd1 opnd2) (emit-fop.dx "getexp" 30 opnd1 opnd2)) (define (emit-fgetman.dx opnd1 opnd2) (emit-fop.dx "getman" 31 opnd1 opnd2)) (define (emit-fdiv.dx opnd1 opnd2) (emit-fop.dx "div" 32 opnd1 opnd2)) (define (emit-fmod.dx opnd1 opnd2) (emit-fop.dx "mod" 33 opnd1 opnd2)) (define (emit-fadd.dx opnd1 opnd2) (emit-fop.dx "add" 34 opnd1 opnd2)) (define (emit-fmul.dx opnd1 opnd2) (emit-fop.dx "mul" 35 opnd1 opnd2)) (define (emit-fsgldiv.dx opnd1 opnd2) (emit-fop.dx "sgldiv" 36 opnd1 opnd2)) (define (emit-frem.dx opnd1 opnd2) (emit-fop.dx "rem" 37 opnd1 opnd2)) (define (emit-fscale.dx opnd1 opnd2) (emit-fop.dx "scale" 38 opnd1 opnd2)) (define (emit-fsglmul.dx opnd1 opnd2) (emit-fop.dx "sglmul" 39 opnd1 opnd2)) (define (emit-fsub.dx opnd1 opnd2) (emit-fop.dx "sub" 40 opnd1 opnd2)) (define (emit-fcmp.dx opnd1 opnd2) (emit-fop.dx "cmp" 56 opnd1 opnd2)) (define (emit-fop.dx name code opnd1 opnd2) (asm-m68881-proc) (asm-word (+ 61952 (opnd->mode/reg opnd1))) (asm-word (+ (if (freg? opnd1) (* (freg-num opnd1) 1024) 21504) (* (freg-num opnd2) 128) code)) (opnd-ext-rd-long opnd1) (if ofile-asm? (emit-asm "f" name (if (freg? opnd1) "x" "d") ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-fmov.dx opnd1 opnd2) (emit-fmov (if (and (freg? opnd1) (freg? opnd2)) (* (freg-num opnd1) 1024) 21504) opnd1 opnd2) (if ofile-asm? (emit-asm (if (and (freg? opnd1) (freg? opnd2)) "fmovex" "fmoved") ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-fmov.l opnd1 opnd2) (emit-fmov 16384 opnd1 opnd2) (if ofile-asm? (emit-asm "fmovel" ofile-tab (opnd-str opnd1) "," (opnd-str opnd2)))) (define (emit-fmov code opnd1 opnd2) (define (fmov code opnd1 opnd2) (asm-m68881-proc) (asm-word (+ 61952 (opnd->mode/reg opnd1))) (asm-word (+ (* (freg-num opnd2) 128) code)) (opnd-ext-rd-long opnd1)) (if (freg? opnd2) (fmov code opnd1 opnd2) (fmov (+ code 8192) opnd2 opnd1))) (define (emit-fbeq lbl) (asm-m68881-proc) (asm-word 62081) (asm-wrel lbl 0) (if ofile-asm? (emit-asm "fbeq" ofile-tab "L" lbl))) (define (emit-fbne lbl) (asm-m68881-proc) (asm-word 62094) (asm-wrel lbl 0) (if ofile-asm? (emit-asm "fbne" ofile-tab "L" lbl))) (define (emit-fblt lbl) (asm-m68881-proc) (asm-word 62100) (asm-wrel lbl 0) (if ofile-asm? (emit-asm "fblt" ofile-tab "L" lbl))) (define (emit-fbgt lbl) (asm-m68881-proc) (asm-word 62098) (asm-wrel lbl 0) (if ofile-asm? (emit-asm "fbgt" ofile-tab "L" lbl))) (define (emit-fble lbl) (asm-m68881-proc) (asm-word 62101) (asm-wrel lbl 0) (if ofile-asm? (emit-asm "fble" ofile-tab "L" lbl))) (define (emit-fbge lbl) (asm-m68881-proc) (asm-word 62099) (asm-wrel lbl 0) (if ofile-asm? (emit-asm "fbge" ofile-tab "L" lbl))) (define (opnd->mode/reg opnd) (cond ((disp? opnd) (+ 32 (disp-areg opnd))) ((inx? opnd) (+ 40 (inx-areg opnd))) ((pcr? opnd) 58) ((imm? opnd) 60) ((glob? opnd) (+ 32 table-reg)) ((freg? opnd) 0) (else opnd))) (define (opnd->reg/mode opnd) (let ((x (opnd->mode/reg opnd))) (* (+ (* 8 (remainder x 8)) (quotient x 8)) 64))) (define (opnd-ext-rd-long opnd) (opnd-extension opnd #f #f)) (define (opnd-ext-rd-word opnd) (opnd-extension opnd #f #t)) (define (opnd-ext-wr-long opnd) (opnd-extension opnd #t #f)) (define (opnd-ext-wr-word opnd) (opnd-extension opnd #t #t)) (define (opnd-extension opnd write? word?) (cond ((disp? opnd) (asm-word (disp-offset opnd))) ((inx? opnd) (asm-word (+ (+ (* (inx-ireg opnd) 4096) 2048) (modulo (inx-offset opnd) 256)))) ((pcr? opnd) (asm-wrel (pcr-lbl opnd) (pcr-offset opnd))) ((imm? opnd) (if word? (asm-word (imm-val opnd)) (asm-long (imm-val opnd)))) ((glob? opnd) (if write? (asm-set-glob opnd) (asm-ref-glob opnd))))) (define (opnd-str opnd) (cond ((dreg? opnd) (vector-ref '#("d0" "d1" "d2" "d3" "d4" "d5" "d6" "d7") (dreg-num opnd))) ((areg? opnd) (vector-ref '#("a0" "a1" "a2" "a3" "a4" "a5" "a6" "sp") (areg-num opnd))) ((ind? opnd) (vector-ref '#("a0@" "a1@" "a2@" "a3@" "a4@" "a5@" "a6@" "sp@") (areg-num (ind-areg opnd)))) ((pinc? opnd) (vector-ref '#("a0@+" "a1@+" "a2@+" "a3@+" "a4@+" "a5@+" "a6@+" "sp@+") (areg-num (pinc-areg opnd)))) ((pdec? opnd) (vector-ref '#("a0@-" "a1@-" "a2@-" "a3@-" "a4@-" "a5@-" "a6@-" "sp@-") (areg-num (pdec-areg opnd)))) ((disp? opnd) (string-append (opnd-str (disp-areg opnd)) "@(" (number->string (disp-offset opnd)) ")")) ((inx? opnd) (string-append (opnd-str (inx-areg opnd)) "@(" (number->string (inx-offset opnd)) "," (opnd-str (inx-ireg opnd)) ":l)")) ((pcr? opnd) (let ((lbl (pcr-lbl opnd)) (offs (pcr-offset opnd))) (if (= offs 0) (string-append "L" (number->string lbl)) (string-append "L" (number->string lbl) "+" (number->string offs))))) ((imm? opnd) (string-append "#" (number->string (imm-val opnd)))) ((glob? opnd) (string-append "GLOB(" (symbol->string (glob-name opnd)) ")")) ((freg? opnd) (vector-ref '#("fp0" "fp1" "fp2" "fp3" "fp4" "fp5" "fp6" "fp7") (freg-num opnd))) ((reg-list? opnd) (let loop ((l (reg-list-regs opnd)) (result "[") (sep "")) (if (pair? l) (loop (cdr l) (string-append result sep (opnd-str (car l))) "/") (string-append result "]")))) (else (compiler-internal-error "opnd-str, unknown 'opnd'" opnd)))) (define (begin! info-port targ) (set! return-reg (make-reg 0)) (target-end!-set! targ end!) (target-dump-set! targ dump) (target-nb-regs-set! targ nb-gvm-regs) (target-prim-info-set! targ prim-info) (target-label-info-set! targ label-info) (target-jump-info-set! targ jump-info) (target-proc-result-set! targ (make-reg 1)) (target-task-return-set! targ return-reg) (set! *info-port* info-port) '()) (define (end!) '()) (define *info-port* '()) (define nb-gvm-regs 5) (define nb-arg-regs 3) (define pointer-size 4) (define prim-proc-table (map (lambda (x) (cons (string->canonical-symbol (car x)) (apply make-proc-obj (car x) #t #f (cdr x)))) prim-procs)) (define (prim-info name) (let ((x (assq name prim-proc-table))) (if x (cdr x) #f))) (define (get-prim-info name) (let ((proc (prim-info (string->canonical-symbol name)))) (if proc proc (compiler-internal-error "get-prim-info, unknown primitive:" name)))) (define (label-info min-args nb-parms rest? closed?) (let ((nb-stacked (max 0 (- nb-parms nb-arg-regs)))) (define (location-of-parms i) (if (> i nb-parms) '() (cons (cons i (if (> i nb-stacked) (make-reg (- i nb-stacked)) (make-stk i))) (location-of-parms (+ i 1))))) (let ((x (cons (cons 'return 0) (location-of-parms 1)))) (make-pcontext nb-stacked (if closed? (cons (cons 'closure-env (make-reg (+ nb-arg-regs 1))) x) x))))) (define (jump-info nb-args) (let ((nb-stacked (max 0 (- nb-args nb-arg-regs)))) (define (location-of-args i) (if (> i nb-args) '() (cons (cons i (if (> i nb-stacked) (make-reg (- i nb-stacked)) (make-stk i))) (location-of-args (+ i 1))))) (make-pcontext nb-stacked (cons (cons 'return (make-reg 0)) (location-of-args 1))))) (define (closed-var-offset i) (+ (* i pointer-size) 2)) (define (dump proc filename c-intf options) (if *info-port* (begin (display "Dumping:" *info-port*) (newline *info-port*))) (set! ofile-asm? (memq 'asm options)) (set! ofile-stats? (memq 'stats options)) (set! debug-info? (memq 'debug options)) (set! object-queue (queue-empty)) (set! objects-dumped (queue-empty)) (ofile.begin! filename add-object) (queue-put! object-queue proc) (queue-put! objects-dumped proc) (let loop ((index 0)) (if (not (queue-empty? object-queue)) (let ((obj (queue-get! object-queue))) (dump-object obj index) (loop (+ index 1))))) (ofile.end!) (if *info-port* (newline *info-port*)) (set! object-queue '()) (set! objects-dumped '())) (define debug-info? '()) (define object-queue '()) (define objects-dumped '()) (define (add-object obj) (if (and (proc-obj? obj) (not (proc-obj-code obj))) #f (let ((n (pos-in-list obj (queue->list objects-dumped)))) (if n n (let ((m (length (queue->list objects-dumped)))) (queue-put! objects-dumped obj) (queue-put! object-queue obj) m))))) (define (dump-object obj index) (ofile-line "|------------------------------------------------------") (case (obj-type obj) ((pair) (dump-pair obj)) ((flonum) (dump-flonum obj)) ((subtyped) (case (obj-subtype obj) ((vector) (dump-vector obj)) ((symbol) (dump-symbol obj)) ;; ((ratnum) (dump-ratnum obj)) ;; ((cpxnum) (dump-cpxnum obj)) ((string) (dump-string obj)) ((bignum) (dump-bignum obj)) (else (compiler-internal-error "dump-object, can't dump object 'obj':" obj)))) ((procedure) (dump-procedure obj)) (else (compiler-internal-error "dump-object, can't dump object 'obj':" obj)))) (define (dump-pair pair) (ofile-long pair-prefix) (ofile-ref (cdr pair)) (ofile-ref (car pair))) (define (dump-vector v) (ofile-long (+ (* (vector-length v) 1024) (* subtype-vector 8))) (let ((len (vector-length v))) (let loop ((i 0)) (if (< i len) (begin (ofile-ref (vector-ref v i)) (loop (+ i 1))))))) (define (dump-symbol sym) (compiler-internal-error "dump-symbol, can't dump SYMBOL type")) ;;(define (dump-ratnum x) ;; (ofile-long (+ (* 2 1024) (* subtype-ratnum 8))) ;; (ofile-ref (numerator x)) ;; (ofile-ref (denominator x))) ;;(define (dump-cpxnum x) ;; (ofile-long (+ (* 2 1024) (* subtype-cpxnum 8))) ;; (ofile-ref (real-part x)) ;; (ofile-ref (imag-part x))) (define (dump-string s) (ofile-long (+ (* (+ (string-length s) 1) 256) (* subtype-string 8))) (let ((len (string-length s))) (define (ref i) (if (>= i len) 0 (character-encoding (string-ref s i)))) (let loop ((i 0)) (if (<= i len) (begin (ofile-word (+ (* (ref i) 256) (ref (+ i 1)))) (loop (+ i 2))))))) (define (dump-flonum x) (let ((bits (flonum->bits x))) (ofile-long flonum-prefix) (ofile-long (quotient bits 4294967296)) (ofile-long (modulo bits 4294967296)))) (define (flonum->inexact-exponential-format x) (define (exp-form-pos x y i) (let ((i*2 (+ i i))) (let ((z (if (and (not (< flonum-e-bias i*2)) (not (< x y))) (exp-form-pos x (* y y) i*2) (cons x 0)))) (let ((a (car z)) (b (cdr z))) (let ((i+b (+ i b))) (if (and (not (< flonum-e-bias i+b)) (not (< a y))) (begin (set-car! z (/ a y)) (set-cdr! z i+b))) z))))) (define (exp-form-neg x y i) (let ((i*2 (+ i i))) (let ((z (if (and (< i*2 flonum-e-bias-minus-1) (< x y)) (exp-form-neg x (* y y) i*2) (cons x 0)))) (let ((a (car z)) (b (cdr z))) (let ((i+b (+ i b))) (if (and (< i+b flonum-e-bias-minus-1) (< a y)) (begin (set-car! z (/ a y)) (set-cdr! z i+b))) z))))) (define (exp-form x) (if (< x inexact-+1) (let ((z (exp-form-neg x inexact-+1/2 1))) (set-car! z (* inexact-+2 (car z))) (set-cdr! z (- -1 (cdr z))) z) (exp-form-pos x inexact-+2 1))) (if (negative? x) (let ((z (exp-form (- inexact-0 x)))) (set-car! z (- inexact-0 (car z))) z) (exp-form x))) (define (flonum->exact-exponential-format x) (let ((z (flonum->inexact-exponential-format x))) (let ((y (car z))) (cond ((not (< y inexact-+2)) (set-car! z flonum-+m-min) (set-cdr! z flonum-e-bias-plus-1)) ((not (< inexact--2 y)) (set-car! z flonum--m-min) (set-cdr! z flonum-e-bias-plus-1)) (else (set-car! z (truncate (inexact->exact (* (car z) inexact-m-min)))))) (set-cdr! z (- (cdr z) flonum-m-bits)) z))) (define (flonum->bits x) (define (bits a b) (if (< a flonum-+m-min) a (+ (- a flonum-+m-min) (* (+ (+ b flonum-m-bits) flonum-e-bias) flonum-+m-min)))) (let ((z (flonum->exact-exponential-format x))) (let ((a (car z)) (b (cdr z))) (if (negative? a) (+ flonum-sign-bit (bits (- 0 a) b)) (bits a b))))) (define flonum-m-bits 52) (define flonum-e-bits 11) (define flonum-sign-bit 9223372036854775808) (define flonum-+m-min 4503599627370496) (define flonum--m-min -4503599627370496) (define flonum-e-bias 1023) (define flonum-e-bias-plus-1 1024) (define flonum-e-bias-minus-1 1022) (define inexact-m-min (exact->inexact flonum-+m-min)) (define inexact-+2 (exact->inexact 2)) (define inexact--2 (exact->inexact -2)) (define inexact-+1 (exact->inexact 1)) (define inexact-+1/2 (/ (exact->inexact 1) (exact->inexact 2))) (define inexact-0 (exact->inexact 0)) (define (dump-bignum x) (define radix 16384) (define (integer->digits n) (if (= n 0) '() (cons (remainder n radix) (integer->digits (quotient n radix))))) (let ((l (integer->digits (abs x)))) (ofile-long (+ (* (+ (length l) 1) 512) (* subtype-bignum 8))) (if (< x 0) (ofile-word 0) (ofile-word 1)) (for-each ofile-word l))) (define (dump-procedure proc) (let ((bbs (proc-obj-code proc))) (set! entry-lbl-num (bbs-entry-lbl-num bbs)) (set! label-counter (bbs-lbl-counter bbs)) (set! var-descr-queue (queue-empty)) (set! first-class-label-queue (queue-empty)) (set! deferred-code-queue (queue-empty)) (if *info-port* (begin (display " #[" *info-port*) (if (proc-obj-primitive? proc) (display "primitive " *info-port*) (display "procedure " *info-port*)) (display (proc-obj-name proc) *info-port*) (display "]" *info-port*))) (if (proc-obj-primitive? proc) (ofile-prim-proc (proc-obj-name proc)) (ofile-user-proc)) (asm.begin!) (let loop ((prev-bb #f) (prev-gvm-instr #f) (l (bbs->code-list bbs))) (if (not (null? l)) (let ((pres-bb (code-bb (car l))) (pres-gvm-instr (code-gvm-instr (car l))) (pres-slots-needed (code-slots-needed (car l))) (next-gvm-instr (if (null? (cdr l)) #f (code-gvm-instr (cadr l))))) (if ofile-asm? (asm-comment (car l))) (gen-gvm-instr prev-gvm-instr pres-gvm-instr next-gvm-instr pres-slots-needed) (loop pres-bb pres-gvm-instr (cdr l))))) (asm.end! (if debug-info? (vector (lst->vector (queue->list first-class-label-queue)) (lst->vector (queue->list var-descr-queue))) #f)) (if *info-port* (newline *info-port*)) (set! var-descr-queue '()) (set! first-class-label-queue '()) (set! deferred-code-queue '()) (set! instr-source '()) (set! entry-frame '()) (set! exit-frame '()))) (define label-counter (lambda () 0)) (define entry-lbl-num '()) (define var-descr-queue '()) (define first-class-label-queue '()) (define deferred-code-queue '()) (define instr-source '()) (define entry-frame '()) (define exit-frame '()) (define (defer-code! thunk) (queue-put! deferred-code-queue thunk)) (define (gen-deferred-code!) (let loop () (if (not (queue-empty? deferred-code-queue)) (let ((thunk (queue-get! deferred-code-queue))) (thunk) (loop))))) (define (add-var-descr! descr) (define (index x l) (let loop ((l l) (i 0)) (cond ((not (pair? l)) #f) ((equal? (car l) x) i) (else (loop (cdr l) (+ i 1)))))) (let ((n (index descr (queue->list var-descr-queue)))) (if n n (let ((m (length (queue->list var-descr-queue)))) (queue-put! var-descr-queue descr) m)))) (define (add-first-class-label! source slots frame) (let loop ((i 0) (l1 slots) (l2 '())) (if (pair? l1) (let ((var (car l1))) (let ((x (frame-live? var frame))) (if (and x (or (pair? x) (not (temp-var? x)))) (let ((descr-index (add-var-descr! (if (pair? x) (map (lambda (y) (add-var-descr! (var-name y))) x) (var-name x))))) (loop (+ i 1) (cdr l1) (cons (+ (* i 16384) descr-index) l2))) (loop (+ i 1) (cdr l1) l2)))) (let ((label-descr (lst->vector (cons 0 (cons source l2))))) (queue-put! first-class-label-queue label-descr) label-descr)))) (define (gen-gvm-instr prev-gvm-instr gvm-instr next-gvm-instr sn) (set! instr-source (comment-get (gvm-instr-comment gvm-instr) 'source)) (set! exit-frame (gvm-instr-frame gvm-instr)) (set! entry-frame (and prev-gvm-instr (gvm-instr-frame prev-gvm-instr))) (case (gvm-instr-type gvm-instr) ((label) (set! entry-frame exit-frame) (set! current-fs (frame-size exit-frame)) (case (label-type gvm-instr) ((simple) (gen-label-simple (label-lbl-num gvm-instr) sn)) ((entry) (gen-label-entry (label-lbl-num gvm-instr) (label-entry-nb-parms gvm-instr) (label-entry-min gvm-instr) (label-entry-rest? gvm-instr) (label-entry-closed? gvm-instr) sn)) ((return) (gen-label-return (label-lbl-num gvm-instr) sn)) ((task-entry) (gen-label-task-entry (label-lbl-num gvm-instr) sn)) ((task-return) (gen-label-task-return (label-lbl-num gvm-instr) sn)) (else (compiler-internal-error "gen-gvm-instr, unknown label type")))) ((apply) (gen-apply (apply-prim gvm-instr) (apply-opnds gvm-instr) (apply-loc gvm-instr) sn)) ((copy) (gen-copy (copy-opnd gvm-instr) (copy-loc gvm-instr) sn)) ((close) (gen-close (close-parms gvm-instr) sn)) ((ifjump) (gen-ifjump (ifjump-test gvm-instr) (ifjump-opnds gvm-instr) (ifjump-true gvm-instr) (ifjump-false gvm-instr) (ifjump-poll? gvm-instr) (if (and next-gvm-instr (memq (label-type next-gvm-instr) '(simple task-entry))) (label-lbl-num next-gvm-instr) #f))) ((jump) (gen-jump (jump-opnd gvm-instr) (jump-nb-args gvm-instr) (jump-poll? gvm-instr) (if (and next-gvm-instr (memq (label-type next-gvm-instr) '(simple task-entry))) (label-lbl-num next-gvm-instr) #f))) (else (compiler-internal-error "gen-gvm-instr, unknown 'gvm-instr':" gvm-instr)))) (define (reg-in-opnd68 opnd) (cond ((dreg? opnd) opnd) ((areg? opnd) opnd) ((ind? opnd) (ind-areg opnd)) ((pinc? opnd) (pinc-areg opnd)) ((pdec? opnd) (pdec-areg opnd)) ((disp? opnd) (disp-areg opnd)) ((inx? opnd) (inx-ireg opnd)) (else #f))) (define (temp-in-opnd68 opnd) (let ((reg (reg-in-opnd68 opnd))) (if reg (cond ((identical-opnd68? reg dtemp1) reg) ((identical-opnd68? reg atemp1) reg) ((identical-opnd68? reg atemp2) reg) (else #f)) #f))) (define (pick-atemp keep) (if (and keep (identical-opnd68? keep atemp1)) atemp2 atemp1)) (define return-reg '()) (define max-nb-args 1024) (define heap-allocation-fudge (* pointer-size (+ (* 2 max-nb-args) 1024))) (define intr-flag 0) (define ltq-tail 1) (define ltq-head 2) (define heap-lim 12) (define closure-lim 17) (define closure-ptr 18) (define intr-flag-slot (make-disp* pstate-reg (* pointer-size intr-flag))) (define ltq-tail-slot (make-disp* pstate-reg (* pointer-size ltq-tail))) (define ltq-head-slot (make-disp* pstate-reg (* pointer-size ltq-head))) (define heap-lim-slot (make-disp* pstate-reg (* pointer-size heap-lim))) (define closure-lim-slot (make-disp* pstate-reg (* pointer-size closure-lim))) (define closure-ptr-slot (make-disp* pstate-reg (* pointer-size closure-ptr))) (define touch-trap 1) (define non-proc-jump-trap 6) (define rest-params-trap 7) (define rest-params-closed-trap 8) (define wrong-nb-arg1-trap 9) (define wrong-nb-arg1-closed-trap 10) (define wrong-nb-arg2-trap 11) (define wrong-nb-arg2-closed-trap 12) (define heap-alloc1-trap 13) (define heap-alloc2-trap 14) (define closure-alloc-trap 15) (define intr-trap 24) (define cache-line-length 16) (define polling-intermittency '()) (set! polling-intermittency 10) (define (stat-clear!) (set! *stats* (cons 0 '()))) (define (stat-dump!) (emit-stat (cdr *stats*))) (define (stat-add! bin count) (define (add! stats bin count) (set-car! stats (+ (car stats) count)) (if (not (null? bin)) (let ((x (assoc (car bin) (cdr stats)))) (if x (add! (cdr x) (cdr bin) count) (begin (set-cdr! stats (cons (list (car bin) 0) (cdr stats))) (add! (cdadr stats) (cdr bin) count)))))) (add! *stats* bin count)) (define (fetch-stat-add! gvm-opnd) (opnd-stat-add! 'fetch gvm-opnd)) (define (store-stat-add! gvm-opnd) (opnd-stat-add! 'store gvm-opnd)) (define (jump-stat-add! gvm-opnd) (opnd-stat-add! 'jump gvm-opnd)) (define (opnd-stat-add! type opnd) (cond ((reg? opnd) (stat-add! (list 'gvm-opnd 'reg type (reg-num opnd)) 1)) ((stk? opnd) (stat-add! (list 'gvm-opnd 'stk type) 1)) ((glo? opnd) (stat-add! (list 'gvm-opnd 'glo type (glo-name opnd)) 1)) ((clo? opnd) (stat-add! (list 'gvm-opnd 'clo type) 1) (fetch-stat-add! (clo-base opnd))) ((lbl? opnd) (stat-add! (list 'gvm-opnd 'lbl type) 1)) ((obj? opnd) (let ((val (obj-val opnd))) (if (number? val) (stat-add! (list 'gvm-opnd 'obj type val) 1) (stat-add! (list 'gvm-opnd 'obj type (obj-type val)) 1)))) (else (compiler-internal-error "opnd-stat-add!, unknown 'opnd':" opnd)))) (define (opnd-stat opnd) (cond ((reg? opnd) 'reg) ((stk? opnd) 'stk) ((glo? opnd) 'glo) ((clo? opnd) 'clo) ((lbl? opnd) 'lbl) ((obj? opnd) 'obj) (else (compiler-internal-error "opnd-stat, unknown 'opnd':" opnd)))) (define *stats* '()) (define (move-opnd68-to-loc68 opnd loc) (if (not (identical-opnd68? opnd loc)) (if (imm? opnd) (move-n-to-loc68 (imm-val opnd) loc) (emit-move.l opnd loc)))) (define (move-obj-to-loc68 obj loc) (let ((n (obj-encoding obj))) (if n (move-n-to-loc68 n loc) (emit-move.l (emit-const obj) loc)))) (define (move-n-to-loc68 n loc) (cond ((= n bits-null) (emit-move.l null-reg loc)) ((= n bits-false) (emit-move.l false-reg loc)) ((and (dreg? loc) (>= n -128) (<= n 127)) (emit-moveq n loc)) ((and (areg? loc) (>= n -32768) (<= n 32767)) (emit-move.w (make-imm n) loc)) ((and (identical-opnd68? loc pdec-sp) (>= n -32768) (<= n 32767)) (emit-pea* n)) ((= n 0) (emit-clr.l loc)) ((and (not (and (inx? loc) (= (inx-ireg loc) dtemp1))) (>= n -128) (<= n 127)) (emit-moveq n dtemp1) (emit-move.l dtemp1 loc)) (else (emit-move.l (make-imm n) loc)))) (define (add-n-to-loc68 n loc) (if (not (= n 0)) (cond ((and (>= n -8) (<= n 8)) (if (> n 0) (emit-addq.l n loc) (emit-subq.l (- n) loc))) ((and (areg? loc) (>= n -32768) (<= n 32767)) (emit-lea (make-disp loc n) loc)) ((and (not (identical-opnd68? loc dtemp1)) (>= n -128) (<= n 128)) (emit-moveq (- (abs n)) dtemp1) (if (> n 0) (emit-sub.l dtemp1 loc) (emit-add.l dtemp1 loc))) (else (emit-add.l (make-imm n) loc))))) (define (power-of-2 n) (let loop ((i 0) (k 1)) (cond ((= k n) i) ((> k n) #f) (else (loop (+ i 1) (* k 2)))))) (define (mul-n-to-reg68 n reg) (if (= n 0) (emit-moveq 0 reg) (let ((abs-n (abs n))) (if (= abs-n 1) (if (< n 0) (emit-neg.l reg)) (let ((shift (power-of-2 abs-n))) (if shift (let ((m (min shift 32))) (if (or (<= m 8) (identical-opnd68? reg dtemp1)) (let loop ((i m)) (if (> i 0) (begin (emit-asl.l (make-imm (min i 8)) reg) (loop (- i 8))))) (begin (emit-moveq m dtemp1) (emit-asl.l dtemp1 reg))) (if (< n 0) (emit-neg.l reg))) (emit-muls.l (make-imm n) reg))))))) (define (div-n-to-reg68 n reg) (let ((abs-n (abs n))) (if (= abs-n 1) (if (< n 0) (emit-neg.l reg)) (let ((shift (power-of-2 abs-n))) (if shift (let ((m (min shift 32)) (lbl (new-lbl!))) (emit-move.l reg reg) (emit-bpl lbl) (add-n-to-loc68 (* (- abs-n 1) 8) reg) (emit-label lbl) (if (or (<= m 8) (identical-opnd68? reg dtemp1)) (let loop ((i m)) (if (> i 0) (begin (emit-asr.l (make-imm (min i 8)) reg) (loop (- i 8))))) (begin (emit-moveq m dtemp1) (emit-asr.l dtemp1 reg))) (if (< n 0) (emit-neg.l reg))) (emit-divsl.l (make-imm n) reg reg)))))) (define (cmp-n-to-opnd68 n opnd) (cond ((= n bits-null) (emit-cmp.l opnd null-reg) #f) ((= n bits-false) (emit-cmp.l opnd false-reg) #f) ((or (pcr? opnd) (imm? opnd)) (if (= n 0) (begin (emit-move.l opnd dtemp1) #t) (begin (move-opnd68-to-loc68 opnd atemp1) (if (and (>= n -32768) (<= n 32767)) (emit-cmp.w (make-imm n) atemp1) (emit-cmp.l (make-imm n) atemp1)) #t))) ((= n 0) (emit-move.l opnd dtemp1) #t) ((and (>= n -128) (<= n 127) (not (identical-opnd68? opnd dtemp1))) (emit-moveq n dtemp1) (emit-cmp.l opnd dtemp1) #f) (else (emit-cmp.l (make-imm n) opnd) #t))) (define current-fs '()) (define (adjust-current-fs n) (set! current-fs (+ current-fs n))) (define (new-lbl!) (label-counter)) (define (needed? loc sn) (and loc (if (stk? loc) (<= (stk-num loc) sn) #t))) (define (sn-opnd opnd sn) (cond ((stk? opnd) (max (stk-num opnd) sn)) ((clo? opnd) (sn-opnd (clo-base opnd) sn)) (else sn))) (define (sn-opnds opnds sn) (if (null? opnds) sn (sn-opnd (car opnds) (sn-opnds (cdr opnds) sn)))) (define (sn-opnd68 opnd sn) (cond ((and (disp*? opnd) (identical-opnd68? (disp*-areg opnd) sp-reg)) (max (disp*-offset opnd) sn)) ((identical-opnd68? opnd pdec-sp) (max (+ current-fs 1) sn)) ((identical-opnd68? opnd pinc-sp) (max current-fs sn)) (else sn))) (define (resize-frame n) (let ((x (- n current-fs))) (adjust-current-fs x) (add-n-to-loc68 (* (- pointer-size) x) sp-reg))) (define (shrink-frame n) (cond ((< n current-fs) (resize-frame n)) ((> n current-fs) (compiler-internal-error "shrink-frame, can't increase frame size")))) (define (make-top-of-frame n sn) (if (and (< n current-fs) (>= n sn)) (resize-frame n))) (define (make-top-of-frame-if-stk-opnd68 opnd sn) (if (frame-base-rel? opnd) (make-top-of-frame (frame-base-rel-slot opnd) sn))) (define (make-top-of-frame-if-stk-opnds68 opnd1 opnd2 sn) (if (frame-base-rel? opnd1) (let ((slot1 (frame-base-rel-slot opnd1))) (if (frame-base-rel? opnd2) (make-top-of-frame (max (frame-base-rel-slot opnd2) slot1) sn) (make-top-of-frame slot1 sn))) (if (frame-base-rel? opnd2) (make-top-of-frame (frame-base-rel-slot opnd2) sn)))) (define (opnd68->true-opnd68 opnd sn) (if (frame-base-rel? opnd) (let ((slot (frame-base-rel-slot opnd))) (cond ((> slot current-fs) (adjust-current-fs 1) pdec-sp) ((and (= slot current-fs) (< sn current-fs)) (adjust-current-fs -1) pinc-sp) (else (make-disp* sp-reg (* pointer-size (- current-fs slot)))))) opnd)) (define (move-opnd68-to-any-areg opnd keep sn) (if (areg? opnd) opnd (let ((areg (pick-atemp keep))) (make-top-of-frame-if-stk-opnd68 opnd sn) (move-opnd68-to-loc68 (opnd68->true-opnd68 opnd sn) areg) areg))) (define (clo->opnd68 opnd keep sn) (let ((base (clo-base opnd)) (offs (closed-var-offset (clo-index opnd)))) (if (lbl? base) (make-pcr (lbl-num base) offs) (clo->loc68 opnd keep sn)))) (define (clo->loc68 opnd keep sn) (let ((base (clo-base opnd)) (offs (closed-var-offset (clo-index opnd)))) (cond ((eq? base return-reg) (make-disp* (reg->reg68 base) offs)) ((obj? base) (let ((areg (pick-atemp keep))) (move-obj-to-loc68 (obj-val base) areg) (make-disp* areg offs))) (else (let ((areg (pick-atemp keep))) (move-opnd-to-loc68 base areg sn) (make-disp* areg offs)))))) (define (reg->reg68 reg) (reg-num->reg68 (reg-num reg))) (define (reg-num->reg68 num) (if (= num 0) (make-areg gvm-reg0) (make-dreg (+ (- num 1) gvm-reg1)))) (define (opnd->opnd68 opnd keep sn) (cond ((lbl? opnd) (let ((areg (pick-atemp keep))) (emit-lea (make-pcr (lbl-num opnd) 0) areg) areg)) ((obj? opnd) (let ((val (obj-val opnd))) (if (proc-obj? val) (let ((num (add-object val)) (areg (pick-atemp keep))) (if num (emit-move-proc num areg) (emit-move-prim val areg)) areg) (let ((n (obj-encoding val))) (if n (make-imm n) (emit-const val)))))) ((clo? opnd) (clo->opnd68 opnd keep sn)) (else (loc->loc68 opnd keep sn)))) (define (loc->loc68 loc keep sn) (cond ((reg? loc) (reg->reg68 loc)) ((stk? loc) (make-frame-base-rel (stk-num loc))) ((glo? loc) (make-glob (glo-name loc))) ((clo? loc) (clo->loc68 loc keep sn)) (else (compiler-internal-error "loc->loc68, unknown 'loc':" loc)))) (define (move-opnd68-to-loc opnd loc sn) (cond ((reg? loc) (make-top-of-frame-if-stk-opnd68 opnd sn) (move-opnd68-to-loc68 (opnd68->true-opnd68 opnd sn) (reg->reg68 loc))) ((stk? loc) (let* ((loc-slot (stk-num loc)) (sn-after-opnd1 (if (< loc-slot sn) sn (- loc-slot 1)))) (if (> current-fs loc-slot) (make-top-of-frame (if (frame-base-rel? opnd) (let ((opnd-slot (frame-base-rel-slot opnd))) (if (>= opnd-slot (- loc-slot 1)) opnd-slot loc-slot)) loc-slot) sn-after-opnd1)) (let* ((opnd1 (opnd68->true-opnd68 opnd sn-after-opnd1)) (opnd2 (opnd68->true-opnd68 (make-frame-base-rel loc-slot) sn))) (move-opnd68-to-loc68 opnd1 opnd2)))) ((glo? loc) (make-top-of-frame-if-stk-opnd68 opnd sn) (move-opnd68-to-loc68 (opnd68->true-opnd68 opnd sn) (make-glob (glo-name loc)))) ((clo? loc) (let ((clo (clo->loc68 loc (temp-in-opnd68 opnd) (sn-opnd68 opnd sn)))) (make-top-of-frame-if-stk-opnd68 opnd sn) (move-opnd68-to-loc68 (opnd68->true-opnd68 opnd sn) clo))) (else (compiler-internal-error "move-opnd68-to-loc, unknown 'loc':" loc)))) (define (move-opnd-to-loc68 opnd loc68 sn) (if (and (lbl? opnd) (areg? loc68)) (emit-lea (make-pcr (lbl-num opnd) 0) loc68) (let* ((sn-after-opnd68 (sn-opnd68 loc68 sn)) (opnd68 (opnd->opnd68 opnd (temp-in-opnd68 loc68) sn-after-opnd68))) (make-top-of-frame-if-stk-opnds68 opnd68 loc68 sn) (let* ((opnd68* (opnd68->true-opnd68 opnd68 sn-after-opnd68)) (loc68* (opnd68->true-opnd68 loc68 sn))) (move-opnd68-to-loc68 opnd68* loc68*))))) (define (copy-opnd-to-loc opnd loc sn) (if (and (lbl? opnd) (eq? loc return-reg)) (emit-lea (make-pcr (lbl-num opnd) 0) (reg->reg68 loc)) (move-opnd68-to-loc (opnd->opnd68 opnd #f (sn-opnd loc sn)) loc sn))) (define (touch-reg68-to-reg68 src dst) (define (trap-to-touch-handler dreg lbl) (if ofile-stats? (emit-stat '((touch 0 (determined-placeholder -1) (undetermined-placeholder 1))))) (gen-trap instr-source entry-frame #t dreg (+ touch-trap (dreg-num dreg)) lbl)) (define (touch-dreg-to-reg src dst) (let ((lbl1 (new-lbl!))) (emit-btst src placeholder-reg) (emit-bne lbl1) (if ofile-stats? (emit-stat '((touch 0 (non-placeholder -1) (determined-placeholder 1))))) (trap-to-touch-handler src lbl1) (move-opnd68-to-loc68 src dst))) (define (touch-areg-to-dreg src dst) (let ((lbl1 (new-lbl!))) (emit-move.l src dst) (emit-btst dst placeholder-reg) (emit-bne lbl1) (if ofile-stats? (emit-stat '((touch 0 (non-placeholder -1) (determined-placeholder 1))))) (trap-to-touch-handler dst lbl1))) (if ofile-stats? (emit-stat '((touch 1 (non-placeholder 1))))) (cond ((dreg? src) (touch-dreg-to-reg src dst)) ((dreg? dst) (touch-areg-to-dreg src dst)) (else (emit-move.l src dtemp1) (touch-dreg-to-reg dtemp1 dst)))) (define (touch-opnd-to-any-reg68 opnd sn) (if (reg? opnd) (let ((reg (reg->reg68 opnd))) (touch-reg68-to-reg68 reg reg) reg) (let ((opnd68 (opnd->opnd68 opnd #f sn))) (make-top-of-frame-if-stk-opnd68 opnd68 sn) (move-opnd68-to-loc68 (opnd68->true-opnd68 opnd68 sn) dtemp1) (touch-reg68-to-reg68 dtemp1 dtemp1) dtemp1))) (define (touch-opnd-to-loc opnd loc sn) (if (reg? opnd) (let ((reg68 (reg->reg68 opnd))) (if (reg? loc) (touch-reg68-to-reg68 reg68 (reg->reg68 loc)) (begin (touch-reg68-to-reg68 reg68 reg68) (move-opnd68-to-loc reg68 loc sn)))) (if (reg? loc) (let ((reg68 (reg->reg68 loc))) (move-opnd-to-loc68 opnd reg68 sn) (touch-reg68-to-reg68 reg68 reg68)) (let ((reg68 (touch-opnd-to-any-reg68 opnd sn))) (move-opnd68-to-loc reg68 loc sn))))) (define (gen-trap source frame save-live? not-save-reg num lbl) (define (adjust-slots l n) (cond ((= n 0) (append l '())) ((< n 0) (adjust-slots (cdr l) (+ n 1))) (else (adjust-slots (cons empty-var l) (- n 1))))) (define (set-slot! slots i x) (let loop ((l slots) (n (- (length slots) i))) (if (> n 0) (loop (cdr l) (- n 1)) (set-car! l x)))) (let ((ret-slot (frame-first-empty-slot frame))) (let loop1 ((save1 '()) (save2 #f) (regs (frame-regs frame)) (i 0)) (if (pair? regs) (let ((var (car regs))) (if (eq? var ret-var) (let ((x (cons (reg->reg68 (make-reg i)) var))) (if (> ret-slot current-fs) (loop1 (cons x save1) save2 (cdr regs) (+ i 1)) (loop1 save1 x (cdr regs) (+ i 1)))) (if (and save-live? (frame-live? var frame) (not (eqv? not-save-reg (reg->reg68 (make-reg i))))) (loop1 (cons (cons (reg->reg68 (make-reg i)) var) save1) save2 (cdr regs) (+ i 1)) (loop1 save1 save2 (cdr regs) (+ i 1))))) (let ((order (sort-list save1 (lambda (x y) (< (car x) (car y)))))) (let ((slots (append (map cdr order) (adjust-slots (frame-slots frame) (- current-fs (frame-size frame))))) (reg-list (map car order)) (nb-regs (length order))) (define (trap) (emit-trap2 num '()) (gen-label-return* (new-lbl!) (add-first-class-label! source slots frame) slots 0)) (if save2 (begin (emit-move.l (car save2) (make-disp* sp-reg (* pointer-size (- current-fs ret-slot)))) (set-slot! slots ret-slot (cdr save2)))) (if (> (length order) 2) (begin (emit-movem.l reg-list pdec-sp) (trap) (emit-movem.l pinc-sp reg-list)) (let loop2 ((l (reverse reg-list))) (if (pair? l) (let ((reg (car l))) (emit-move.l reg pdec-sp) (loop2 (cdr l)) (emit-move.l pinc-sp reg)) (trap)))) (if save2 (emit-move.l (make-disp* sp-reg (* pointer-size (- current-fs ret-slot))) (car save2))) (emit-label lbl))))))) (define (gen-label-simple lbl sn) (if ofile-stats? (begin (stat-clear!) (stat-add! '(gvm-instr label simple) 1))) (set! pointers-allocated 0) (emit-label lbl)) (define (gen-label-entry lbl nb-parms min rest? closed? sn) (if ofile-stats? (begin (stat-clear!) (stat-add! (list 'gvm-instr 'label 'entry nb-parms min (if rest? 'rest 'not-rest) (if closed? 'closed 'not-closed)) 1))) (set! pointers-allocated 0) (let ((label-descr (add-first-class-label! instr-source '() exit-frame))) (if (= lbl entry-lbl-num) (emit-label lbl) (emit-label-subproc lbl entry-lbl-num label-descr))) (let* ((nb-parms* (if rest? (- nb-parms 1) nb-parms)) (dispatch-lbls (make-vector (+ (- nb-parms min) 1))) (optional-lbls (make-vector (+ (- nb-parms min) 1)))) (let loop ((i min)) (if (<= i nb-parms) (let ((lbl (new-lbl!))) (vector-set! optional-lbls (- nb-parms i) lbl) (vector-set! dispatch-lbls (- nb-parms i) (if (or (>= i nb-parms) (<= nb-parms nb-arg-regs)) lbl (new-lbl!))) (loop (+ i 1))))) (if closed? (let ((closure-reg (reg-num->reg68 (+ nb-arg-regs 1)))) (emit-move.l pinc-sp closure-reg) (emit-subq.l 6 closure-reg) (if (or (and (<= min 1) (<= 1 nb-parms*)) (and (<= min 2) (<= 2 nb-parms*))) (emit-move.w dtemp1 dtemp1)))) (if (and (<= min 2) (<= 2 nb-parms*)) (emit-beq (vector-ref dispatch-lbls (- nb-parms 2)))) (if (and (<= min 1) (<= 1 nb-parms*)) (emit-bmi (vector-ref dispatch-lbls (- nb-parms 1)))) (let loop ((i min)) (if (<= i nb-parms*) (begin (if (not (or (= i 1) (= i 2))) (begin (emit-cmp.w (make-imm (encode-arg-count i)) arg-count-reg) (emit-beq (vector-ref dispatch-lbls (- nb-parms i))))) (loop (+ i 1))))) (cond (rest? (emit-trap1 (if closed? rest-params-closed-trap rest-params-trap) (list min nb-parms*)) (if (not closed?) (emit-lbl-ptr lbl)) (set! pointers-allocated 1) (gen-guarantee-fudge) (emit-bra (vector-ref optional-lbls 0))) ((= min nb-parms*) (emit-trap1 (if closed? wrong-nb-arg1-closed-trap wrong-nb-arg1-trap) (list nb-parms*)) (if (not closed?) (emit-lbl-ptr lbl))) (else (emit-trap1 (if closed? wrong-nb-arg2-closed-trap wrong-nb-arg2-trap) (list min nb-parms*)) (if (not closed?) (emit-lbl-ptr lbl)))) (if (> nb-parms nb-arg-regs) (let loop1 ((i (- nb-parms 1))) (if (>= i min) (let ((nb-stacked (if (<= i nb-arg-regs) 0 (- i nb-arg-regs)))) (emit-label (vector-ref dispatch-lbls (- nb-parms i))) (let loop2 ((j 1)) (if (and (<= j nb-arg-regs) (<= j i) (<= j (- (- nb-parms nb-arg-regs) nb-stacked))) (begin (emit-move.l (reg-num->reg68 j) pdec-sp) (loop2 (+ j 1))) (let loop3 ((k j)) (if (and (<= k nb-arg-regs) (<= k i)) (begin (emit-move.l (reg-num->reg68 k) (reg-num->reg68 (+ (- k j) 1))) (loop3 (+ k 1))))))) (if (> i min) (emit-bra (vector-ref optional-lbls (- nb-parms i)))) (loop1 (- i 1)))))) (let loop ((i min)) (if (<= i nb-parms) (let ((val (if (= i nb-parms*) bits-null bits-unass))) (emit-label (vector-ref optional-lbls (- nb-parms i))) (cond ((> (- nb-parms i) nb-arg-regs) (move-n-to-loc68 val pdec-sp)) ((< i nb-parms) (move-n-to-loc68 val (reg-num->reg68 (parm->reg-num (+ i 1) nb-parms))))) (loop (+ i 1))))))) (define (encode-arg-count n) (cond ((= n 1) -1) ((= n 2) 0) (else (+ n 1)))) (define (parm->reg-num i nb-parms) (if (<= nb-parms nb-arg-regs) i (+ i (- nb-arg-regs nb-parms)))) (define (no-arg-check-entry-offset proc nb-args) (let ((x (proc-obj-call-pat proc))) (if (and (pair? x) (null? (cdr x))) (let ((arg-count (car x))) (if (= arg-count nb-args) (if (or (= arg-count 1) (= arg-count 2)) 10 14) 0)) 0))) (define (gen-label-return lbl sn) (if ofile-stats? (begin (stat-clear!) (stat-add! '(gvm-instr label return) 1))) (set! pointers-allocated 0) (let ((slots (frame-slots exit-frame))) (gen-label-return* lbl (add-first-class-label! instr-source slots exit-frame) slots 0))) (define (gen-label-return* lbl label-descr slots extra) (let ((i (pos-in-list ret-var slots))) (if i (let* ((fs (length slots)) (link (- fs i))) (emit-label-return lbl entry-lbl-num (+ fs extra) link label-descr)) (compiler-internal-error "gen-label-return*, no return address in frame")))) (define (gen-label-task-entry lbl sn) (if ofile-stats? (begin (stat-clear!) (stat-add! '(gvm-instr label task-entry) 1))) (set! pointers-allocated 0) (emit-label lbl) (if (= current-fs 0) (begin (emit-move.l (reg->reg68 return-reg) pdec-sp) (emit-move.l sp-reg (make-pinc ltq-tail-reg))) (begin (emit-move.l sp-reg atemp1) (emit-move.l (make-pinc atemp1) pdec-sp) (let loop ((i (- current-fs 1))) (if (> i 0) (begin (emit-move.l (make-pinc atemp1) (make-disp atemp1 -8)) (loop (- i 1))))) (emit-move.l (reg->reg68 return-reg) (make-pdec atemp1)) (emit-move.l atemp1 (make-pinc ltq-tail-reg)))) (emit-move.l ltq-tail-reg ltq-tail-slot)) (define (gen-label-task-return lbl sn) (if ofile-stats? (begin (stat-clear!) (stat-add! '(gvm-instr label task-return) 1))) (set! pointers-allocated 0) (let ((slots (frame-slots exit-frame))) (set! current-fs (+ current-fs 1)) (let ((dummy-lbl (new-lbl!)) (skip-lbl (new-lbl!))) (gen-label-return* dummy-lbl (add-first-class-label! instr-source slots exit-frame) slots 1) (emit-bra skip-lbl) (gen-label-task-return* lbl (add-first-class-label! instr-source slots exit-frame) slots 1) (emit-subq.l pointer-size ltq-tail-reg) (emit-label skip-lbl)))) (define (gen-label-task-return* lbl label-descr slots extra) (let ((i (pos-in-list ret-var slots))) (if i (let* ((fs (length slots)) (link (- fs i))) (emit-label-task-return lbl entry-lbl-num (+ fs extra) link label-descr)) (compiler-internal-error "gen-label-task-return*, no return address in frame")))) (define (gen-apply prim opnds loc sn) (if ofile-stats? (begin (stat-add! (list 'gvm-instr 'apply (string->canonical-symbol (proc-obj-name prim)) (map opnd-stat opnds) (if loc (opnd-stat loc) #f)) 1) (for-each fetch-stat-add! opnds) (if loc (store-stat-add! loc)))) (let ((x (proc-obj-inlinable prim))) (if (not x) (compiler-internal-error "gen-APPLY, unknown 'prim':" prim) (if (or (needed? loc sn) (car x)) ((cdr x) opnds loc sn))))) (define (define-apply name side-effects? proc) (let ((prim (get-prim-info name))) (proc-obj-inlinable-set! prim (cons side-effects? proc)))) (define (gen-copy opnd loc sn) (if ofile-stats? (begin (stat-add! (list 'gvm-instr 'copy (opnd-stat opnd) (opnd-stat loc)) 1) (fetch-stat-add! opnd) (store-stat-add! loc))) (if (needed? loc sn) (copy-opnd-to-loc opnd loc sn))) (define (gen-close parms sn) (define (size->bytes size) (* (quotient (+ (* (+ size 2) pointer-size) (- cache-line-length 1)) cache-line-length) cache-line-length)) (define (parms->bytes parms) (if (null? parms) 0 (+ (size->bytes (length (closure-parms-opnds (car parms)))) (parms->bytes (cdr parms))))) (if ofile-stats? (begin (for-each (lambda (x) (stat-add! (list 'gvm-instr 'close (opnd-stat (closure-parms-loc x)) (map opnd-stat (closure-parms-opnds x))) 1) (store-stat-add! (closure-parms-loc x)) (fetch-stat-add! (make-lbl (closure-parms-lbl x))) (for-each fetch-stat-add! (closure-parms-opnds x))) parms))) (let ((total-space-needed (parms->bytes parms)) (lbl1 (new-lbl!))) (emit-move.l closure-ptr-slot atemp2) (move-n-to-loc68 total-space-needed dtemp1) (emit-sub.l dtemp1 atemp2) (emit-cmp.l closure-lim-slot atemp2) (emit-bcc lbl1) (gen-trap instr-source entry-frame #f #f closure-alloc-trap lbl1) (emit-move.l atemp2 closure-ptr-slot) (let* ((opnds* (apply append (map closure-parms-opnds parms))) (sn* (sn-opnds opnds* sn))) (let loop1 ((parms parms)) (let ((loc (closure-parms-loc (car parms))) (size (length (closure-parms-opnds (car parms)))) (rest (cdr parms))) (if (= size 1) (emit-addq.l type-procedure atemp2) (emit-move.w (make-imm (+ 32768 (* (+ size 1) 4))) (make-pinc atemp2))) (move-opnd68-to-loc atemp2 loc (sn-opnds (map closure-parms-loc rest) sn*)) (if (null? rest) (add-n-to-loc68 (+ (- (size->bytes size) total-space-needed) 2) atemp2) (begin (add-n-to-loc68 (- (size->bytes size) type-procedure) atemp2) (loop1 rest))))) (let loop2 ((parms parms)) (let* ((opnds (closure-parms-opnds (car parms))) (lbl (closure-parms-lbl (car parms))) (size (length opnds)) (rest (cdr parms))) (emit-lea (make-pcr lbl 0) atemp1) (emit-move.l atemp1 (make-pinc atemp2)) (let loop3 ((opnds opnds)) (if (not (null? opnds)) (let ((sn** (sn-opnds (apply append (map closure-parms-opnds rest)) sn))) (move-opnd-to-loc68 (car opnds) (make-pinc atemp2) (sn-opnds (cdr opnds) sn**)) (loop3 (cdr opnds))))) (if (not (null? rest)) (begin (add-n-to-loc68 (- (size->bytes size) (* (+ size 1) pointer-size)) atemp2) (loop2 rest)))))))) (define (gen-ifjump test opnds true-lbl false-lbl poll? next-lbl) (if ofile-stats? (begin (stat-add! (list 'gvm-instr 'ifjump (string->canonical-symbol (proc-obj-name test)) (map opnd-stat opnds) (if poll? 'poll 'not-poll)) 1) (for-each fetch-stat-add! opnds) (stat-dump!))) (let ((proc (proc-obj-test test))) (if proc (gen-ifjump* proc opnds true-lbl false-lbl poll? next-lbl) (compiler-internal-error "gen-IFJUMP, unknown 'test':" test)))) (define (gen-ifjump* proc opnds true-lbl false-lbl poll? next-lbl) (let ((fs (frame-size exit-frame))) (define (double-branch) (proc #t opnds false-lbl fs) (if ofile-stats? (emit-stat '((gvm-instr.ifjump.fall-through 1) (gvm-instr.ifjump.double-branch 1)))) (emit-bra true-lbl) (gen-deferred-code!)) (gen-guarantee-fudge) (if poll? (gen-poll)) (if next-lbl (cond ((= true-lbl next-lbl) (proc #t opnds false-lbl fs) (if ofile-stats? (emit-stat '((gvm-instr.ifjump.fall-through 1))))) ((= false-lbl next-lbl) (proc #f opnds true-lbl fs) (if ofile-stats? (emit-stat '((gvm-instr.ifjump.fall-through 1))))) (else (double-branch))) (double-branch)))) (define (define-ifjump name proc) (define-apply name #f (lambda (opnds loc sn) (let ((true-lbl (new-lbl!)) (cont-lbl (new-lbl!)) (reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1))) (proc #f opnds true-lbl current-fs) (move-n-to-loc68 bits-false reg68) (emit-bra cont-lbl) (emit-label true-lbl) (move-n-to-loc68 bits-true reg68) (emit-label cont-lbl) (move-opnd68-to-loc reg68 loc sn)))) (proc-obj-test-set! (get-prim-info name) proc)) (define (gen-jump opnd nb-args poll? next-lbl) (let ((fs (frame-size exit-frame))) (if ofile-stats? (begin (stat-add! (list 'gvm-instr 'jump (opnd-stat opnd) nb-args (if poll? 'poll 'not-poll)) 1) (jump-stat-add! opnd) (if (and (lbl? opnd) next-lbl (= next-lbl (lbl-num opnd))) (stat-add! '(gvm-instr.jump.fall-through) 1)) (stat-dump!))) (gen-guarantee-fudge) (cond ((glo? opnd) (if poll? (gen-poll)) (setup-jump fs nb-args) (emit-jmp-glob (make-glob (glo-name opnd))) (gen-deferred-code!)) ((and (stk? opnd) (= (stk-num opnd) (+ fs 1)) (not nb-args)) (if poll? (gen-poll)) (setup-jump (+ fs 1) nb-args) (emit-rts) (gen-deferred-code!)) ((lbl? opnd) (if (and poll? (= fs current-fs) (not nb-args) (not (and next-lbl (= next-lbl (lbl-num opnd))))) (gen-poll-branch (lbl-num opnd)) (begin (if poll? (gen-poll)) (setup-jump fs nb-args) (if (not (and next-lbl (= next-lbl (lbl-num opnd)))) (emit-bra (lbl-num opnd)))))) ((obj? opnd) (if poll? (gen-poll)) (let ((val (obj-val opnd))) (if (proc-obj? val) (let ((num (add-object val)) (offset (no-arg-check-entry-offset val nb-args))) (setup-jump fs (if (<= offset 0) nb-args #f)) (if num (emit-jmp-proc num offset) (emit-jmp-prim val offset)) (gen-deferred-code!)) (gen-jump* (opnd->opnd68 opnd #f fs) fs nb-args)))) (else (if poll? (gen-poll)) (gen-jump* (opnd->opnd68 opnd #f fs) fs nb-args))))) (define (gen-jump* opnd fs nb-args) (if nb-args (let ((lbl (new-lbl!))) (make-top-of-frame-if-stk-opnd68 opnd fs) (move-opnd68-to-loc68 (opnd68->true-opnd68 opnd fs) atemp1) (shrink-frame fs) (emit-move.l atemp1 dtemp1) (emit-addq.w (modulo (- type-pair type-procedure) 8) dtemp1) (emit-btst dtemp1 pair-reg) (emit-beq lbl) (move-n-to-loc68 (encode-arg-count nb-args) arg-count-reg) (emit-trap3 non-proc-jump-trap) (emit-label lbl) (move-n-to-loc68 (encode-arg-count nb-args) arg-count-reg) (emit-jmp (make-ind atemp1))) (let ((areg (move-opnd68-to-any-areg opnd #f fs))) (setup-jump fs nb-args) (emit-jmp (make-ind areg)))) (gen-deferred-code!)) (define (setup-jump fs nb-args) (shrink-frame fs) (if nb-args (move-n-to-loc68 (encode-arg-count nb-args) arg-count-reg))) (define (gen-poll) (let ((lbl (new-lbl!))) (emit-dbra poll-timer-reg lbl) (emit-moveq (- polling-intermittency 1) poll-timer-reg) (emit-cmp.l intr-flag-slot sp-reg) (emit-bcc lbl) (gen-trap instr-source entry-frame #f #f intr-trap lbl))) (define (gen-poll-branch lbl) (emit-dbra poll-timer-reg lbl) (emit-moveq (- polling-intermittency 1) poll-timer-reg) (emit-cmp.l intr-flag-slot sp-reg) (emit-bcc lbl) (gen-trap instr-source entry-frame #f #f intr-trap (new-lbl!)) (emit-bra lbl)) (define (make-gen-slot-ref slot type) (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn)) (opnd (car opnds))) (move-opnd-to-loc68 opnd atemp1 sn-loc) (move-opnd68-to-loc (make-disp* atemp1 (- (* slot pointer-size) type)) loc sn)))) (define (make-gen-slot-set! slot type) (lambda (opnds loc sn) (let ((sn-loc (if loc (sn-opnd loc sn) sn))) (let* ((first-opnd (car opnds)) (second-opnd (cadr opnds)) (sn-second-opnd (sn-opnd second-opnd sn-loc))) (move-opnd-to-loc68 first-opnd atemp1 sn-second-opnd) (move-opnd-to-loc68 second-opnd (make-disp* atemp1 (- (* slot pointer-size) type)) sn-loc) (if loc (if (not (eq? first-opnd loc)) (move-opnd68-to-loc atemp1 loc sn))))))) (define (gen-cons opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (let ((first-opnd (car opnds)) (second-opnd (cadr opnds))) (gen-guarantee-space 2) (if (contains-opnd? loc second-opnd) (let ((sn-second-opnd (sn-opnd second-opnd sn-loc))) (move-opnd-to-loc68 first-opnd (make-pdec heap-reg) sn-second-opnd) (move-opnd68-to-loc68 heap-reg atemp2) (move-opnd-to-loc68 second-opnd (make-pdec heap-reg) sn-loc) (move-opnd68-to-loc atemp2 loc sn)) (let* ((sn-second-opnd (sn-opnd second-opnd sn)) (sn-loc (sn-opnd loc sn-second-opnd))) (move-opnd-to-loc68 first-opnd (make-pdec heap-reg) sn-loc) (move-opnd68-to-loc heap-reg loc sn-second-opnd) (move-opnd-to-loc68 second-opnd (make-pdec heap-reg) sn)))))) (define (make-gen-apply-c...r pattern) (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn)) (opnd (car opnds))) (move-opnd-to-loc68 opnd atemp1 sn-loc) (let loop ((pattern pattern)) (if (<= pattern 3) (if (= pattern 3) (move-opnd68-to-loc (make-pdec atemp1) loc sn) (move-opnd68-to-loc (make-ind atemp1) loc sn)) (begin (if (odd? pattern) (emit-move.l (make-pdec atemp1) atemp1) (emit-move.l (make-ind atemp1) atemp1)) (loop (quotient pattern 2)))))))) (define (gen-set-car! opnds loc sn) (let ((sn-loc (if loc (sn-opnd loc sn) sn))) (let* ((first-opnd (car opnds)) (second-opnd (cadr opnds)) (sn-second-opnd (sn-opnd second-opnd sn-loc))) (move-opnd-to-loc68 first-opnd atemp1 sn-second-opnd) (move-opnd-to-loc68 second-opnd (make-ind atemp1) sn-loc) (if (and loc (not (eq? first-opnd loc))) (move-opnd68-to-loc atemp1 loc sn))))) (define (gen-set-cdr! opnds loc sn) (let ((sn-loc (if loc (sn-opnd loc sn) sn))) (let* ((first-opnd (car opnds)) (second-opnd (cadr opnds)) (sn-second-opnd (sn-opnd second-opnd sn-loc))) (move-opnd-to-loc68 first-opnd atemp1 sn-second-opnd) (if (and loc (not (eq? first-opnd loc))) (move-opnd-to-loc68 second-opnd (make-disp atemp1 (- pointer-size)) sn-loc) (move-opnd-to-loc68 second-opnd (make-pdec atemp1) sn-loc)) (if (and loc (not (eq? first-opnd loc))) (move-opnd68-to-loc atemp1 loc sn))))) (define (commut-oper gen opnds loc sn self? accum-self accum-other) (if (null? opnds) (gen (reverse accum-self) (reverse accum-other) loc sn self?) (let ((opnd (car opnds)) (rest (cdr opnds))) (cond ((and (not self?) (eq? opnd loc)) (commut-oper gen rest loc sn #t accum-self accum-other)) ((contains-opnd? loc opnd) (commut-oper gen rest loc sn self? (cons opnd accum-self) accum-other)) (else (commut-oper gen rest loc sn self? accum-self (cons opnd accum-other))))))) (define (gen-add-in-place opnds loc68 sn) (if (not (null? opnds)) (let* ((first-opnd (car opnds)) (other-opnds (cdr opnds)) (sn-other-opnds (sn-opnds other-opnds sn)) (sn-first-opnd (sn-opnd first-opnd sn-other-opnds)) (opnd68 (opnd->opnd68 first-opnd (temp-in-opnd68 loc68) (sn-opnd68 loc68 sn)))) (make-top-of-frame-if-stk-opnds68 opnd68 loc68 sn-other-opnds) (if (imm? opnd68) (add-n-to-loc68 (imm-val opnd68) (opnd68->true-opnd68 loc68 sn-other-opnds)) (let ((opnd68* (opnd68->true-opnd68 opnd68 sn-other-opnds))) (if (or (dreg? opnd68) (reg68? loc68)) (emit-add.l opnd68* (opnd68->true-opnd68 loc68 sn-other-opnds)) (begin (move-opnd68-to-loc68 opnd68* dtemp1) (emit-add.l dtemp1 (opnd68->true-opnd68 loc68 sn-other-opnds)))))) (gen-add-in-place other-opnds loc68 sn)))) (define (gen-add self-opnds other-opnds loc sn self?) (let* ((opnds (append self-opnds other-opnds)) (first-opnd (car opnds)) (other-opnds (cdr opnds)) (sn-other-opnds (sn-opnds other-opnds sn)) (sn-first-opnd (sn-opnd first-opnd sn-other-opnds))) (if (<= (length self-opnds) 1) (let ((loc68 (loc->loc68 loc #f sn-first-opnd))) (if self? (gen-add-in-place opnds loc68 sn) (begin (move-opnd-to-loc68 first-opnd loc68 sn-other-opnds) (gen-add-in-place other-opnds loc68 sn)))) (begin (move-opnd-to-loc68 first-opnd dtemp1 (sn-opnd loc sn-other-opnds)) (gen-add-in-place other-opnds dtemp1 (sn-opnd loc sn)) (if self? (let ((loc68 (loc->loc68 loc dtemp1 sn))) (make-top-of-frame-if-stk-opnd68 loc68 sn) (emit-add.l dtemp1 (opnd68->true-opnd68 loc68 sn))) (move-opnd68-to-loc dtemp1 loc sn)))))) (define (gen-sub-in-place opnds loc68 sn) (if (not (null? opnds)) (let* ((first-opnd (car opnds)) (other-opnds (cdr opnds)) (sn-other-opnds (sn-opnds other-opnds sn)) (sn-first-opnd (sn-opnd first-opnd sn-other-opnds)) (opnd68 (opnd->opnd68 first-opnd (temp-in-opnd68 loc68) (sn-opnd68 loc68 sn)))) (make-top-of-frame-if-stk-opnds68 opnd68 loc68 sn-other-opnds) (if (imm? opnd68) (add-n-to-loc68 (- (imm-val opnd68)) (opnd68->true-opnd68 loc68 sn-other-opnds)) (let ((opnd68* (opnd68->true-opnd68 opnd68 sn-other-opnds))) (if (or (dreg? opnd68) (reg68? loc68)) (emit-sub.l opnd68* (opnd68->true-opnd68 loc68 sn-other-opnds)) (begin (move-opnd68-to-loc68 opnd68* dtemp1) (emit-sub.l dtemp1 (opnd68->true-opnd68 loc68 sn-other-opnds)))))) (gen-sub-in-place other-opnds loc68 sn)))) (define (gen-sub first-opnd other-opnds loc sn self-opnds?) (if (null? other-opnds) (if (and (or (reg? loc) (stk? loc)) (not (eq? loc return-reg))) (begin (copy-opnd-to-loc first-opnd loc (sn-opnd loc sn)) (let ((loc68 (loc->loc68 loc #f sn))) (make-top-of-frame-if-stk-opnd68 loc68 sn) (emit-neg.l (opnd68->true-opnd68 loc68 sn)))) (begin (move-opnd-to-loc68 first-opnd dtemp1 (sn-opnd loc sn)) (emit-neg.l dtemp1) (move-opnd68-to-loc dtemp1 loc sn))) (let* ((sn-other-opnds (sn-opnds other-opnds sn)) (sn-first-opnd (sn-opnd first-opnd sn-other-opnds))) (if (and (not self-opnds?) (or (reg? loc) (stk? loc))) (let ((loc68 (loc->loc68 loc #f sn-first-opnd))) (if (not (eq? first-opnd loc)) (move-opnd-to-loc68 first-opnd loc68 sn-other-opnds)) (gen-sub-in-place other-opnds loc68 sn)) (begin (move-opnd-to-loc68 first-opnd dtemp1 (sn-opnd loc sn-other-opnds)) (gen-sub-in-place other-opnds dtemp1 (sn-opnd loc sn)) (move-opnd68-to-loc dtemp1 loc sn)))))) (define (gen-mul-in-place opnds reg68 sn) (if (not (null? opnds)) (let* ((first-opnd (car opnds)) (other-opnds (cdr opnds)) (sn-other-opnds (sn-opnds other-opnds sn)) (opnd68 (opnd->opnd68 first-opnd (temp-in-opnd68 reg68) sn))) (make-top-of-frame-if-stk-opnd68 opnd68 sn-other-opnds) (if (imm? opnd68) (mul-n-to-reg68 (quotient (imm-val opnd68) 8) reg68) (begin (emit-asr.l (make-imm 3) reg68) (emit-muls.l (opnd68->true-opnd68 opnd68 sn-other-opnds) reg68))) (gen-mul-in-place other-opnds reg68 sn)))) (define (gen-mul self-opnds other-opnds loc sn self?) (let* ((opnds (append self-opnds other-opnds)) (first-opnd (car opnds)) (other-opnds (cdr opnds)) (sn-other-opnds (sn-opnds other-opnds sn)) (sn-first-opnd (sn-opnd first-opnd sn-other-opnds))) (if (null? self-opnds) (let ((loc68 (loc->loc68 loc #f sn-first-opnd))) (if self? (gen-mul-in-place opnds loc68 sn) (begin (move-opnd-to-loc68 first-opnd loc68 sn-other-opnds) (gen-mul-in-place other-opnds loc68 sn)))) (begin (move-opnd-to-loc68 first-opnd dtemp1 (sn-opnd loc sn-other-opnds)) (gen-mul-in-place other-opnds dtemp1 (sn-opnd loc sn)) (if self? (let ((loc68 (loc->loc68 loc dtemp1 sn))) (make-top-of-frame-if-stk-opnd68 loc68 sn) (emit-asr.l (make-imm 3) dtemp1) (emit-muls.l dtemp1 (opnd68->true-opnd68 loc68 sn))) (move-opnd68-to-loc dtemp1 loc sn)))))) (define (gen-div-in-place opnds reg68 sn) (if (not (null? opnds)) (let* ((first-opnd (car opnds)) (other-opnds (cdr opnds)) (sn-other-opnds (sn-opnds other-opnds sn)) (sn-first-opnd (sn-opnd first-opnd sn-other-opnds)) (opnd68 (opnd->opnd68 first-opnd (temp-in-opnd68 reg68) sn))) (make-top-of-frame-if-stk-opnd68 opnd68 sn-other-opnds) (if (imm? opnd68) (let ((n (quotient (imm-val opnd68) 8))) (div-n-to-reg68 n reg68) (if (> (abs n) 1) (emit-and.w (make-imm -8) reg68))) (let ((opnd68* (opnd68->true-opnd68 opnd68 sn-other-opnds))) (emit-divsl.l opnd68* reg68 reg68) (emit-asl.l (make-imm 3) reg68))) (gen-div-in-place other-opnds reg68 sn)))) (define (gen-div first-opnd other-opnds loc sn self-opnds?) (if (null? other-opnds) (begin (move-opnd-to-loc68 first-opnd pdec-sp (sn-opnd loc sn)) (emit-moveq 8 dtemp1) (emit-divsl.l pinc-sp dtemp1 dtemp1) (emit-asl.l (make-imm 3) dtemp1) (emit-and.w (make-imm -8) dtemp1) (move-opnd68-to-loc dtemp1 loc sn)) (let* ((sn-other-opnds (sn-opnds other-opnds sn)) (sn-first-opnd (sn-opnd first-opnd sn-other-opnds))) (if (and (reg? loc) (not self-opnds?) (not (eq? loc return-reg))) (let ((reg68 (reg->reg68 loc))) (if (not (eq? first-opnd loc)) (move-opnd-to-loc68 first-opnd reg68 sn-other-opnds)) (gen-div-in-place other-opnds reg68 sn)) (begin (move-opnd-to-loc68 first-opnd dtemp1 (sn-opnd loc sn-other-opnds)) (gen-div-in-place other-opnds dtemp1 (sn-opnd loc sn)) (move-opnd68-to-loc dtemp1 loc sn)))))) (define (gen-rem first-opnd second-opnd loc sn) (let* ((sn-loc (sn-opnd loc sn)) (sn-second-opnd (sn-opnd second-opnd sn-loc))) (move-opnd-to-loc68 first-opnd dtemp1 sn-second-opnd) (let ((opnd68 (opnd->opnd68 second-opnd #f sn-loc)) (reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) false-reg))) (make-top-of-frame-if-stk-opnd68 opnd68 sn-loc) (let ((opnd68* (if (areg? opnd68) (begin (emit-move.l opnd68 reg68) reg68) (opnd68->true-opnd68 opnd68 sn-loc)))) (emit-divsl.l opnd68* reg68 dtemp1)) (move-opnd68-to-loc reg68 loc sn) (if (not (and (reg? loc) (not (eq? loc return-reg)))) (emit-move.l (make-imm bits-false) false-reg))))) (define (gen-mod first-opnd second-opnd loc sn) (let* ((sn-loc (sn-opnd loc sn)) (sn-first-opnd (sn-opnd first-opnd sn-loc)) (sn-second-opnd (sn-opnd second-opnd sn-first-opnd)) (opnd68 (opnd->opnd68 second-opnd #f sn-second-opnd))) (define (general-case) (let ((lbl1 (new-lbl!)) (lbl2 (new-lbl!)) (lbl3 (new-lbl!)) (opnd68** (opnd68->true-opnd68 opnd68 sn-second-opnd)) (opnd68* (opnd68->true-opnd68 (opnd->opnd68 first-opnd #f sn-second-opnd) sn-second-opnd))) (move-opnd68-to-loc68 opnd68* dtemp1) (move-opnd68-to-loc68 opnd68** false-reg) (emit-divsl.l false-reg false-reg dtemp1) (emit-move.l false-reg false-reg) (emit-beq lbl3) (move-opnd68-to-loc68 opnd68* dtemp1) (emit-bmi lbl1) (move-opnd68-to-loc68 opnd68** dtemp1) (emit-bpl lbl3) (emit-bra lbl2) (emit-label lbl1) (move-opnd68-to-loc68 opnd68** dtemp1) (emit-bmi lbl3) (emit-label lbl2) (emit-add.l dtemp1 false-reg) (emit-label lbl3) (move-opnd68-to-loc false-reg loc sn) (emit-move.l (make-imm bits-false) false-reg))) (make-top-of-frame-if-stk-opnd68 opnd68 sn-first-opnd) (if (imm? opnd68) (let ((n (quotient (imm-val opnd68) 8))) (if (> n 0) (let ((shift (power-of-2 n))) (if shift (let ((reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1))) (move-opnd-to-loc68 first-opnd reg68 sn-loc) (emit-and.l (make-imm (* (- n 1) 8)) reg68) (move-opnd68-to-loc reg68 loc sn)) (general-case))) (general-case))) (general-case)))) (define (gen-op emit-op dst-ok?) (define (gen-op-in-place opnds loc68 sn) (if (not (null? opnds)) (let* ((first-opnd (car opnds)) (other-opnds (cdr opnds)) (sn-other-opnds (sn-opnds other-opnds sn)) (sn-first-opnd (sn-opnd first-opnd sn-other-opnds)) (opnd68 (opnd->opnd68 first-opnd (temp-in-opnd68 loc68) (sn-opnd68 loc68 sn)))) (make-top-of-frame-if-stk-opnds68 opnd68 loc68 sn-other-opnds) (if (imm? opnd68) (emit-op opnd68 (opnd68->true-opnd68 loc68 sn-other-opnds)) (let ((opnd68* (opnd68->true-opnd68 opnd68 sn-other-opnds))) (if (or (dreg? opnd68) (dst-ok? loc68)) (emit-op opnd68* (opnd68->true-opnd68 loc68 sn-other-opnds)) (begin (move-opnd68-to-loc68 opnd68* dtemp1) (emit-op dtemp1 (opnd68->true-opnd68 loc68 sn-other-opnds)))))) (gen-op-in-place other-opnds loc68 sn)))) (lambda (self-opnds other-opnds loc sn self?) (let* ((opnds (append self-opnds other-opnds)) (first-opnd (car opnds)) (other-opnds (cdr opnds)) (sn-other-opnds (sn-opnds other-opnds sn)) (sn-first-opnd (sn-opnd first-opnd sn-other-opnds))) (if (<= (length self-opnds) 1) (let ((loc68 (loc->loc68 loc #f sn-first-opnd))) (if self? (gen-op-in-place opnds loc68 sn) (begin (move-opnd-to-loc68 first-opnd loc68 sn-other-opnds) (gen-op-in-place other-opnds loc68 sn)))) (begin (move-opnd-to-loc68 first-opnd dtemp1 (sn-opnd loc sn-other-opnds)) (gen-op-in-place other-opnds dtemp1 (sn-opnd loc sn)) (if self? (let ((loc68 (loc->loc68 loc dtemp1 sn))) (make-top-of-frame-if-stk-opnd68 loc68 sn) (emit-op dtemp1 (opnd68->true-opnd68 loc68 sn))) (move-opnd68-to-loc dtemp1 loc sn))))))) (define gen-logior (gen-op emit-or.l dreg?)) (define gen-logxor (gen-op emit-eor.l (lambda (x) #f))) (define gen-logand (gen-op emit-and.l dreg?)) (define (gen-shift right-shift) (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (let* ((opnd1 (car opnds)) (opnd2 (cadr opnds)) (sn-opnd1 (sn-opnd opnd1 sn-loc)) (o2 (opnd->opnd68 opnd2 #f sn-opnd1))) (make-top-of-frame-if-stk-opnd68 o2 sn-opnd1) (if (imm? o2) (let* ((reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1)) (n (quotient (imm-val o2) 8)) (emit-shft (if (> n 0) emit-lsl.l right-shift))) (move-opnd-to-loc68 opnd1 reg68 sn-loc) (let loop ((i (min (abs n) 29))) (if (> i 0) (begin (emit-shft (make-imm (min i 8)) reg68) (loop (- i 8))))) (if (< n 0) (emit-and.w (make-imm -8) reg68)) (move-opnd68-to-loc reg68 loc sn)) (let* ((reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1)) (reg68* (if (and (reg? loc) (not (eq? loc return-reg))) dtemp1 false-reg)) (lbl1 (new-lbl!)) (lbl2 (new-lbl!))) (emit-move.l (opnd68->true-opnd68 o2 sn-opnd1) reg68*) (move-opnd-to-loc68 opnd1 reg68 sn-loc) (emit-asr.l (make-imm 3) reg68*) (emit-bmi lbl1) (emit-lsl.l reg68* reg68) (emit-bra lbl2) (emit-label lbl1) (emit-neg.l reg68*) (right-shift reg68* reg68) (emit-and.w (make-imm -8) reg68) (emit-label lbl2) (move-opnd68-to-loc reg68 loc sn) (if (not (and (reg? loc) (not (eq? loc return-reg)))) (emit-move.l (make-imm bits-false) false-reg)))))))) (define (flo-oper oper1 oper2 opnds loc sn) (gen-guarantee-space 2) (move-opnd-to-loc68 (car opnds) atemp1 (sn-opnds (cdr opnds) (sn-opnd loc sn))) (oper1 (make-disp* atemp1 (- type-flonum)) ftemp1) (let loop ((opnds (cdr opnds))) (if (not (null? opnds)) (let* ((opnd (car opnds)) (other-opnds (cdr opnds)) (sn-other-opnds (sn-opnds other-opnds sn))) (move-opnd-to-loc68 opnd atemp1 sn-other-opnds) (oper2 (make-disp* atemp1 (- type-flonum)) ftemp1) (loop (cdr opnds))))) (add-n-to-loc68 (* -2 pointer-size) heap-reg) (emit-fmov.dx ftemp1 (make-ind heap-reg)) (let ((reg68 (if (reg? loc) (reg->reg68 loc) atemp1))) (emit-move.l heap-reg reg68) (emit-addq.l type-flonum reg68)) (if (not (reg? loc)) (move-opnd68-to-loc atemp1 loc sn))) (define (gen-make-placeholder opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (let ((opnd (car opnds))) (gen-guarantee-space 4) (emit-clr.l (make-pdec heap-reg)) (move-opnd-to-loc68 opnd (make-pdec heap-reg) sn-loc) (emit-move.l null-reg (make-pdec heap-reg)) (move-opnd68-to-loc68 heap-reg atemp2) (emit-addq.l (modulo (- type-placeholder type-pair) 8) atemp2) (emit-move.l atemp2 (make-pdec heap-reg)) (move-opnd68-to-loc atemp2 loc sn)))) (define (gen-subprocedure-id opnds loc sn) (let ((sn-loc (sn-opnd loc sn)) (opnd (car opnds)) (reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1))) (move-opnd-to-loc68 opnd atemp1 sn-loc) (move-n-to-loc68 32768 reg68) (emit-sub.w (make-disp* atemp1 -2) reg68) (move-opnd68-to-loc reg68 loc sn))) (define (gen-subprocedure-parent opnds loc sn) (let ((sn-loc (sn-opnd loc sn)) (opnd (car opnds))) (move-opnd-to-loc68 opnd atemp1 sn-loc) (emit-add.w (make-disp* atemp1 -2) atemp1) (add-n-to-loc68 -32768 atemp1) (move-opnd68-to-loc atemp1 loc sn))) (define (gen-return-fs opnds loc sn) (let ((sn-loc (sn-opnd loc sn)) (opnd (car opnds)) (reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1)) (lbl (new-lbl!))) (move-opnd-to-loc68 opnd atemp1 sn-loc) (emit-moveq 0 reg68) (emit-move.w (make-disp* atemp1 -6) reg68) (emit-beq lbl) (emit-and.w (make-imm 32767) reg68) (emit-subq.l 8 reg68) (emit-label lbl) (emit-addq.l 8 reg68) (emit-asl.l (make-imm 1) reg68) (move-opnd68-to-loc reg68 loc sn))) (define (gen-return-link opnds loc sn) (let ((sn-loc (sn-opnd loc sn)) (opnd (car opnds)) (reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1)) (lbl (new-lbl!))) (move-opnd-to-loc68 opnd atemp1 sn-loc) (emit-moveq 0 reg68) (emit-move.w (make-disp* atemp1 -6) reg68) (emit-beq lbl) (emit-and.w (make-imm 32767) reg68) (emit-subq.l 8 reg68) (emit-label lbl) (emit-addq.l 8 reg68) (emit-sub.w (make-disp* atemp1 -4) reg68) (emit-asl.l (make-imm 1) reg68) (move-opnd68-to-loc reg68 loc sn))) (define (gen-procedure-info opnds loc sn) (let ((sn-loc (sn-opnd loc sn)) (opnd (car opnds))) (move-opnd-to-loc68 opnd atemp1 sn-loc) (emit-add.w (make-disp* atemp1 -2) atemp1) (move-opnd68-to-loc (make-disp* atemp1 (- 32768 6)) loc sn))) (define (gen-guarantee-space n) (set! pointers-allocated (+ pointers-allocated n)) (if (> pointers-allocated heap-allocation-fudge) (begin (gen-guarantee-fudge) (set! pointers-allocated n)))) (define (gen-guarantee-fudge) (if (> pointers-allocated 0) (let ((lbl (new-lbl!))) (emit-cmp.l heap-lim-slot heap-reg) (emit-bcc lbl) (gen-trap instr-source entry-frame #f #f heap-alloc1-trap lbl) (set! pointers-allocated 0)))) (define pointers-allocated '()) (define (gen-type opnds loc sn) (let* ((sn-loc (sn-opnd loc sn)) (opnd (car opnds)) (reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1))) (move-opnd-to-loc68 opnd reg68 sn-loc) (emit-and.l (make-imm 7) reg68) (emit-asl.l (make-imm 3) reg68) (move-opnd68-to-loc reg68 loc sn))) (define (gen-type-cast opnds loc sn) (let ((sn-loc (if loc (sn-opnd loc sn) sn))) (let ((first-opnd (car opnds)) (second-opnd (cadr opnds))) (let* ((sn-loc (if (and loc (not (eq? first-opnd loc))) sn-loc sn)) (o1 (opnd->opnd68 first-opnd #f (sn-opnd second-opnd sn-loc))) (o2 (opnd->opnd68 second-opnd (temp-in-opnd68 o1) sn-loc)) (reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1))) (make-top-of-frame-if-stk-opnds68 o1 o2 sn-loc) (move-opnd68-to-loc68 (opnd68->true-opnd68 o1 (sn-opnd68 o2 sn-loc)) reg68) (emit-and.w (make-imm -8) reg68) (if (imm? o2) (let ((n (quotient (imm-val o2) 8))) (if (> n 0) (emit-addq.w n reg68))) (begin (move-opnd68-to-loc68 (opnd68->true-opnd68 o2 sn-loc) atemp1) (emit-exg atemp1 reg68) (emit-asr.l (make-imm 3) reg68) (emit-add.l atemp1 reg68))) (move-opnd68-to-loc reg68 loc sn))))) (define (gen-subtype opnds loc sn) (let ((sn-loc (sn-opnd loc sn)) (opnd (car opnds)) (reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1))) (move-opnd-to-loc68 opnd atemp1 sn-loc) (emit-moveq 0 reg68) (emit-move.b (make-ind atemp1) reg68) (move-opnd68-to-loc reg68 loc sn))) (define (gen-subtype-set! opnds loc sn) (let ((sn-loc (if loc (sn-opnd loc sn) sn))) (let ((first-opnd (car opnds)) (second-opnd (cadr opnds))) (let* ((sn-loc (if (and loc (not (eq? first-opnd loc))) sn-loc sn)) (o1 (opnd->opnd68 first-opnd #f (sn-opnd second-opnd sn-loc))) (o2 (opnd->opnd68 second-opnd (temp-in-opnd68 o1) sn-loc))) (make-top-of-frame-if-stk-opnds68 o1 o2 sn-loc) (move-opnd68-to-loc68 (opnd68->true-opnd68 o1 (sn-opnd68 o2 sn-loc)) atemp1) (if (imm? o2) (emit-move.b (make-imm (imm-val o2)) (make-ind atemp1)) (begin (move-opnd68-to-loc68 (opnd68->true-opnd68 o2 sn-loc) dtemp1) (emit-move.b dtemp1 (make-ind atemp1)))) (if (and loc (not (eq? first-opnd loc))) (move-opnd68-to-loc atemp1 loc sn)))))) (define (vector-select kind vector string vector8 vector16) (case kind ((string) string) ((vector8) vector8) ((vector16) vector16) (else vector))) (define (obj-vector? kind) (vector-select kind #t #f #f #f)) (define (make-gen-vector kind) (lambda (opnds loc sn) (let ((sn-loc (if loc (sn-opnd loc sn) sn))) (let* ((n (length opnds)) (bytes (+ pointer-size (* (vector-select kind 4 1 1 2) (+ n (if (eq? kind 'string) 1 0))))) (adjust (modulo (- bytes) 8))) (gen-guarantee-space (quotient (* (quotient (+ bytes (- 8 1)) 8) 8) pointer-size)) (if (not (= adjust 0)) (emit-subq.l adjust heap-reg)) (if (eq? kind 'string) (emit-move.b (make-imm 0) (make-pdec heap-reg))) (let loop ((opnds (reverse opnds))) (if (pair? opnds) (let* ((o (car opnds)) (sn-o (sn-opnds (cdr opnds) sn-loc))) (if (eq? kind 'vector) (move-opnd-to-loc68 o (make-pdec heap-reg) sn-o) (begin (move-opnd-to-loc68 o dtemp1 sn-o) (emit-asr.l (make-imm 3) dtemp1) (if (eq? kind 'vector16) (emit-move.w dtemp1 (make-pdec heap-reg)) (emit-move.b dtemp1 (make-pdec heap-reg))))) (loop (cdr opnds))))) (emit-move.l (make-imm (+ (* 256 (- bytes pointer-size)) (* 8 (if (eq? kind 'vector) subtype-vector subtype-string)))) (make-pdec heap-reg)) (if loc (begin (emit-lea (make-disp* heap-reg type-subtyped) atemp2) (move-opnd68-to-loc atemp2 loc sn))))))) (define (make-gen-vector-length kind) (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn)) (opnd (car opnds)) (reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1))) (move-opnd-to-loc68 opnd atemp1 sn-loc) (move-opnd68-to-loc68 (make-disp* atemp1 (- type-subtyped)) reg68) (emit-lsr.l (make-imm (vector-select kind 7 5 5 6)) reg68) (if (not (eq? kind 'vector)) (begin (emit-and.w (make-imm -8) reg68) (if (eq? kind 'string) (emit-subq.l 8 reg68)))) (move-opnd68-to-loc reg68 loc sn)))) (define (make-gen-vector-ref kind) (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (let ((first-opnd (car opnds)) (second-opnd (cadr opnds)) (reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1))) (let* ((o2 (opnd->opnd68 second-opnd #f (sn-opnd first-opnd sn-loc))) (o1 (opnd->opnd68 first-opnd (temp-in-opnd68 o2) sn-loc))) (make-top-of-frame-if-stk-opnds68 o1 o2 sn-loc) (let* ((offset (if (eq? kind 'closure) (- pointer-size type-procedure) (- pointer-size type-subtyped))) (loc68 (if (imm? o2) (begin (move-opnd68-to-loc68 (opnd68->true-opnd68 o1 sn-loc) atemp1) (make-disp* atemp1 (+ (quotient (imm-val o2) (vector-select kind 2 8 8 4)) offset))) (begin (move-opnd68-to-loc68 (opnd68->true-opnd68 o2 (sn-opnd68 o1 sn-loc)) dtemp1) (emit-asr.l (make-imm (vector-select kind 1 3 3 2)) dtemp1) (move-opnd68-to-loc68 (opnd68->true-opnd68 o1 sn-loc) atemp1) (if (and (identical-opnd68? reg68 dtemp1) (not (obj-vector? kind))) (begin (emit-move.l dtemp1 atemp2) (make-inx atemp1 atemp2 offset)) (make-inx atemp1 dtemp1 offset)))))) (if (not (obj-vector? kind)) (emit-moveq 0 reg68)) (case kind ((string vector8) (emit-move.b loc68 reg68)) ((vector16) (emit-move.w loc68 reg68)) (else (emit-move.l loc68 reg68))) (if (not (obj-vector? kind)) (begin (emit-asl.l (make-imm 3) reg68) (if (eq? kind 'string) (emit-addq.w type-special reg68)))) (move-opnd68-to-loc reg68 loc sn))))))) (define (make-gen-vector-set! kind) (lambda (opnds loc sn) (let ((sn-loc (if loc (sn-opnd loc sn) sn))) (let ((first-opnd (car opnds)) (second-opnd (cadr opnds)) (third-opnd (caddr opnds))) (let* ((sn-loc (if (and loc (not (eq? first-opnd loc))) (sn-opnd first-opnd sn-loc) sn)) (sn-third-opnd (sn-opnd third-opnd sn-loc)) (o2 (opnd->opnd68 second-opnd #f (sn-opnd first-opnd sn-third-opnd))) (o1 (opnd->opnd68 first-opnd (temp-in-opnd68 o2) sn-third-opnd))) (make-top-of-frame-if-stk-opnds68 o1 o2 sn-third-opnd) (let* ((offset (if (eq? kind 'closure) (- pointer-size type-procedure) (- pointer-size type-subtyped))) (loc68 (if (imm? o2) (begin (move-opnd68-to-loc68 (opnd68->true-opnd68 o1 sn-third-opnd) atemp1) (make-disp* atemp1 (+ (quotient (imm-val o2) (vector-select kind 2 8 8 4)) offset))) (begin (move-opnd68-to-loc68 (opnd68->true-opnd68 o2 (sn-opnd68 o1 sn-loc)) dtemp1) (emit-asr.l (make-imm (vector-select kind 1 3 3 2)) dtemp1) (move-opnd68-to-loc68 (opnd68->true-opnd68 o1 sn-loc) atemp1) (if (obj-vector? kind) (make-inx atemp1 dtemp1 offset) (begin (emit-move.l dtemp1 atemp2) (make-inx atemp1 atemp2 offset))))))) (if (obj-vector? kind) (move-opnd-to-loc68 third-opnd loc68 sn-loc) (begin (move-opnd-to-loc68 third-opnd dtemp1 sn-loc) (emit-asr.l (make-imm 3) dtemp1) (if (eq? kind 'vector16) (emit-move.w dtemp1 loc68) (emit-move.b dtemp1 loc68)))) (if (and loc (not (eq? first-opnd loc))) (copy-opnd-to-loc first-opnd loc sn)))))))) (define (make-gen-vector-shrink! kind) (lambda (opnds loc sn) (let ((sn-loc (if loc (sn-opnd loc sn) sn))) (let ((first-opnd (car opnds)) (second-opnd (cadr opnds))) (let* ((sn-loc (if (and loc (not (eq? first-opnd loc))) (sn-opnd first-opnd sn-loc) sn)) (o2 (opnd->opnd68 second-opnd #f (sn-opnd first-opnd sn-loc))) (o1 (opnd->opnd68 first-opnd (temp-in-opnd68 o2) sn-loc))) (make-top-of-frame-if-stk-opnds68 o1 o2 sn-loc) (move-opnd68-to-loc68 (opnd68->true-opnd68 o2 (sn-opnd68 o1 sn-loc)) dtemp1) (emit-move.l (opnd68->true-opnd68 o1 sn-loc) atemp1) (if (eq? kind 'string) (begin (emit-asr.l (make-imm 3) dtemp1) (emit-move.b (make-imm 0) (make-inx atemp1 dtemp1 (- pointer-size type-subtyped))) (emit-addq.l 1 dtemp1) (emit-asl.l (make-imm 8) dtemp1)) (emit-asl.l (make-imm (vector-select kind 7 5 5 6)) dtemp1)) (emit-move.b (make-ind atemp1) dtemp1) (emit-move.l dtemp1 (make-disp* atemp1 (- type-subtyped))) (if (and loc (not (eq? first-opnd loc))) (move-opnd68-to-loc atemp1 loc sn))))))) (define (gen-eq-test bits not? opnds lbl fs) (gen-compare* (opnd->opnd68 (car opnds) #f fs) (make-imm bits) fs) (if not? (emit-bne lbl) (emit-beq lbl))) (define (gen-compare opnd1 opnd2 fs) (let* ((o1 (opnd->opnd68 opnd1 #f (sn-opnd opnd2 fs))) (o2 (opnd->opnd68 opnd2 (temp-in-opnd68 o1) fs))) (gen-compare* o1 o2 fs))) (define (gen-compare* o1 o2 fs) (make-top-of-frame-if-stk-opnds68 o1 o2 fs) (let ((order-1-2 (cond ((imm? o1) (cmp-n-to-opnd68 (imm-val o1) (opnd68->true-opnd68 o2 fs))) ((imm? o2) (not (cmp-n-to-opnd68 (imm-val o2) (opnd68->true-opnd68 o1 fs)))) ((reg68? o1) (emit-cmp.l (opnd68->true-opnd68 o2 fs) o1) #f) ((reg68? o2) (emit-cmp.l (opnd68->true-opnd68 o1 fs) o2) #t) (else (emit-move.l (opnd68->true-opnd68 o1 (sn-opnd68 o2 fs)) dtemp1) (emit-cmp.l (opnd68->true-opnd68 o2 fs) dtemp1) #f)))) (shrink-frame fs) order-1-2)) (define (gen-compares branch< branch>= branch> branch<= not? opnds lbl fs) (gen-compares* gen-compare branch< branch>= branch> branch<= not? opnds lbl fs)) (define (gen-compares* gen-comp branch< branch>= branch> branch<= not? opnds lbl fs) (define (gen-compare-sequence opnd1 opnd2 rest) (if (null? rest) (if (gen-comp opnd1 opnd2 fs) (if not? (branch<= lbl) (branch> lbl)) (if not? (branch>= lbl) (branch< lbl))) (let ((order-1-2 (gen-comp opnd1 opnd2 (sn-opnd opnd2 (sn-opnds rest fs))))) (if (= current-fs fs) (if not? (begin (if order-1-2 (branch<= lbl) (branch>= lbl)) (gen-compare-sequence opnd2 (car rest) (cdr rest))) (let ((exit-lbl (new-lbl!))) (if order-1-2 (branch<= exit-lbl) (branch>= exit-lbl)) (gen-compare-sequence opnd2 (car rest) (cdr rest)) (emit-label exit-lbl))) (if not? (let ((next-lbl (new-lbl!))) (if order-1-2 (branch> next-lbl) (branch< next-lbl)) (shrink-frame fs) (emit-bra lbl) (emit-label next-lbl) (gen-compare-sequence opnd2 (car rest) (cdr rest))) (let* ((next-lbl (new-lbl!)) (exit-lbl (new-lbl!))) (if order-1-2 (branch> next-lbl) (branch< next-lbl)) (shrink-frame fs) (emit-bra exit-lbl) (emit-label next-lbl) (gen-compare-sequence opnd2 (car rest) (cdr rest)) (emit-label exit-lbl))))))) (if (or (null? opnds) (null? (cdr opnds))) (begin (shrink-frame fs) (if (not not?) (emit-bra lbl))) (gen-compare-sequence (car opnds) (cadr opnds) (cddr opnds)))) (define (gen-compare-flo opnd1 opnd2 fs) (let* ((o1 (opnd->opnd68 opnd1 #f (sn-opnd opnd2 fs))) (o2 (opnd->opnd68 opnd2 (temp-in-opnd68 o1) fs))) (make-top-of-frame-if-stk-opnds68 o1 o2 fs) (emit-move.l (opnd68->true-opnd68 o1 (sn-opnd68 o2 fs)) atemp1) (emit-move.l (opnd68->true-opnd68 o2 fs) atemp2) (emit-fmov.dx (make-disp* atemp2 (- type-flonum)) ftemp1) (emit-fcmp.dx (make-disp* atemp1 (- type-flonum)) ftemp1) #t)) (define (gen-compares-flo branch< branch>= branch> branch<= not? opnds lbl fs) (gen-compares* gen-compare-flo branch< branch>= branch> branch<= not? opnds lbl fs)) (define (gen-type-test tag not? opnds lbl fs) (let ((opnd (car opnds))) (let ((o (opnd->opnd68 opnd #f fs))) (define (mask-test set-reg correction) (emit-btst (if (= correction 0) (if (dreg? o) o (begin (emit-move.l (opnd68->true-opnd68 o fs) dtemp1) dtemp1)) (begin (if (not (eq? o dtemp1)) (emit-move.l (opnd68->true-opnd68 o fs) dtemp1)) (emit-addq.w correction dtemp1) dtemp1)) set-reg)) (make-top-of-frame-if-stk-opnd68 o fs) (cond ((= tag 0) (if (eq? o dtemp1) (emit-and.w (make-imm 7) dtemp1) (begin (emit-move.l (opnd68->true-opnd68 o fs) dtemp1) (emit-and.w (make-imm 7) dtemp1)))) ((= tag type-placeholder) (mask-test placeholder-reg 0)) (else (mask-test pair-reg (modulo (- type-pair tag) 8)))) (shrink-frame fs) (if not? (emit-bne lbl) (emit-beq lbl))))) (define (gen-subtype-test type not? opnds lbl fs) (let ((opnd (car opnds))) (let ((o (opnd->opnd68 opnd #f fs)) (cont-lbl (new-lbl!))) (make-top-of-frame-if-stk-opnd68 o fs) (if (not (eq? o dtemp1)) (emit-move.l (opnd68->true-opnd68 o fs) dtemp1)) (emit-move.l dtemp1 atemp1) (emit-addq.w (modulo (- type-pair type-subtyped) 8) dtemp1) (emit-btst dtemp1 pair-reg) (shrink-frame fs) (if not? (emit-bne lbl) (emit-bne cont-lbl)) (emit-cmp.b (make-imm (* type 8)) (make-ind atemp1)) (if not? (emit-bne lbl) (emit-beq lbl)) (emit-label cont-lbl)))) (define (gen-even-test not? opnds lbl fs) (move-opnd-to-loc68 (car opnds) dtemp1 fs) (emit-and.w (make-imm 8) dtemp1) (shrink-frame fs) (if not? (emit-bne lbl) (emit-beq lbl))) (define (def-spec name specializer-maker) (let ((proc-name (string->canonical-symbol name))) (let ((proc (prim-info proc-name))) (if proc (proc-obj-specialize-set! proc (specializer-maker proc proc-name)) (compiler-internal-error "def-spec, unknown primitive:" name))))) (define (safe name) (lambda (proc proc-name) (let ((spec (get-prim-info name))) (lambda (decls) spec)))) (define (unsafe name) (lambda (proc proc-name) (let ((spec (get-prim-info name))) (lambda (decls) (if (not (safe? decls)) spec proc))))) (define (safe-arith fix-name flo-name) (arith #t fix-name flo-name)) (define (unsafe-arith fix-name flo-name) (arith #f fix-name flo-name)) (define (arith fix-safe? fix-name flo-name) (lambda (proc proc-name) (let ((fix-spec (if fix-name (get-prim-info fix-name) proc)) (flo-spec (if flo-name (get-prim-info flo-name) proc))) (lambda (decls) (let ((arith (arith-implementation proc-name decls))) (cond ((eq? arith fixnum-sym) (if (or fix-safe? (not (safe? decls))) fix-spec proc)) ((eq? arith flonum-sym) (if (not (safe? decls)) flo-spec proc)) (else proc))))))) (define-apply "##TYPE" #f (lambda (opnds loc sn) (gen-type opnds loc sn))) (define-apply "##TYPE-CAST" #f (lambda (opnds loc sn) (gen-type-cast opnds loc sn))) (define-apply "##SUBTYPE" #f (lambda (opnds loc sn) (gen-subtype opnds loc sn))) (define-apply "##SUBTYPE-SET!" #t (lambda (opnds loc sn) (gen-subtype-set! opnds loc sn))) (define-ifjump "##NOT" (lambda (not? opnds lbl fs) (gen-eq-test bits-false not? opnds lbl fs))) (define-ifjump "##NULL?" (lambda (not? opnds lbl fs) (gen-eq-test bits-null not? opnds lbl fs))) (define-ifjump "##UNASSIGNED?" (lambda (not? opnds lbl fs) (gen-eq-test bits-unass not? opnds lbl fs))) (define-ifjump "##UNBOUND?" (lambda (not? opnds lbl fs) (gen-eq-test bits-unbound not? opnds lbl fs))) (define-ifjump "##EQ?" (lambda (not? opnds lbl fs) (gen-compares emit-beq emit-bne emit-beq emit-bne not? opnds lbl fs))) (define-ifjump "##FIXNUM?" (lambda (not? opnds lbl fs) (gen-type-test type-fixnum not? opnds lbl fs))) (define-ifjump "##FLONUM?" (lambda (not? opnds lbl fs) (gen-type-test type-flonum not? opnds lbl fs))) (define-ifjump "##SPECIAL?" (lambda (not? opnds lbl fs) (gen-type-test type-special not? opnds lbl fs))) (define-ifjump "##PAIR?" (lambda (not? opnds lbl fs) (gen-type-test type-pair not? opnds lbl fs))) (define-ifjump "##SUBTYPED?" (lambda (not? opnds lbl fs) (gen-type-test type-subtyped not? opnds lbl fs))) (define-ifjump "##PROCEDURE?" (lambda (not? opnds lbl fs) (gen-type-test type-procedure not? opnds lbl fs))) (define-ifjump "##PLACEHOLDER?" (lambda (not? opnds lbl fs) (gen-type-test type-placeholder not? opnds lbl fs))) (define-ifjump "##VECTOR?" (lambda (not? opnds lbl fs) (gen-subtype-test subtype-vector not? opnds lbl fs))) (define-ifjump "##SYMBOL?" (lambda (not? opnds lbl fs) (gen-subtype-test subtype-symbol not? opnds lbl fs))) (define-ifjump "##RATNUM?" (lambda (not? opnds lbl fs) (gen-subtype-test subtype-ratnum not? opnds lbl fs))) (define-ifjump "##CPXNUM?" (lambda (not? opnds lbl fs) (gen-subtype-test subtype-cpxnum not? opnds lbl fs))) (define-ifjump "##STRING?" (lambda (not? opnds lbl fs) (gen-subtype-test subtype-string not? opnds lbl fs))) (define-ifjump "##BIGNUM?" (lambda (not? opnds lbl fs) (gen-subtype-test subtype-bignum not? opnds lbl fs))) (define-ifjump "##CHAR?" (lambda (not? opnds lbl fs) (let ((opnd (car opnds))) (let ((o (opnd->opnd68 opnd #f fs)) (cont-lbl (new-lbl!))) (make-top-of-frame-if-stk-opnd68 o fs) (emit-move.l (opnd68->true-opnd68 o fs) dtemp1) (if not? (emit-bmi lbl) (emit-bmi cont-lbl)) (emit-addq.w (modulo (- type-pair type-special) 8) dtemp1) (emit-btst dtemp1 pair-reg) (shrink-frame fs) (if not? (emit-bne lbl) (emit-beq lbl)) (emit-label cont-lbl))))) (define-ifjump "##CLOSURE?" (lambda (not? opnds lbl fs) (move-opnd-to-loc68 (car opnds) atemp1 fs) (shrink-frame fs) (emit-cmp.w (make-imm 20153) (make-ind atemp1)) (if not? (emit-bne lbl) (emit-beq lbl)))) (define-ifjump "##SUBPROCEDURE?" (lambda (not? opnds lbl fs) (move-opnd-to-loc68 (car opnds) atemp1 fs) (shrink-frame fs) (emit-move.w (make-pdec atemp1) dtemp1) (if not? (emit-bmi lbl) (emit-bpl lbl)))) (define-ifjump "##RETURN-DYNAMIC-ENV-BIND?" (lambda (not? opnds lbl fs) (move-opnd-to-loc68 (car opnds) atemp1 fs) (shrink-frame fs) (emit-move.w (make-disp* atemp1 -6) dtemp1) (if not? (emit-bne lbl) (emit-beq lbl)))) (define-apply "##FIXNUM.+" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (cond ((null? opnds) (copy-opnd-to-loc (make-obj '0) loc sn)) ((null? (cdr opnds)) (copy-opnd-to-loc (car opnds) loc sn)) ((or (reg? loc) (stk? loc)) (commut-oper gen-add opnds loc sn #f '() '())) (else (gen-add opnds '() loc sn #f)))))) (define-apply "##FIXNUM.-" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (gen-sub (car opnds) (cdr opnds) loc sn (any-contains-opnd? loc (cdr opnds)))))) (define-apply "##FIXNUM.*" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (cond ((null? opnds) (copy-opnd-to-loc (make-obj '1) loc sn)) ((null? (cdr opnds)) (copy-opnd-to-loc (car opnds) loc sn)) ((and (reg? loc) (not (eq? loc return-reg))) (commut-oper gen-mul opnds loc sn #f '() '())) (else (gen-mul opnds '() loc sn #f)))))) (define-apply "##FIXNUM.QUOTIENT" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (gen-div (car opnds) (cdr opnds) loc sn (any-contains-opnd? loc (cdr opnds)))))) (define-apply "##FIXNUM.REMAINDER" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (gen-rem (car opnds) (cadr opnds) loc sn)))) (define-apply "##FIXNUM.MODULO" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (gen-mod (car opnds) (cadr opnds) loc sn)))) (define-apply "##FIXNUM.LOGIOR" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (cond ((null? opnds) (copy-opnd-to-loc (make-obj '0) loc sn)) ((null? (cdr opnds)) (copy-opnd-to-loc (car opnds) loc sn)) ((or (reg? loc) (stk? loc)) (commut-oper gen-logior opnds loc sn #f '() '())) (else (gen-logior opnds '() loc sn #f)))))) (define-apply "##FIXNUM.LOGXOR" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (cond ((null? opnds) (copy-opnd-to-loc (make-obj '0) loc sn)) ((null? (cdr opnds)) (copy-opnd-to-loc (car opnds) loc sn)) ((or (reg? loc) (stk? loc)) (commut-oper gen-logxor opnds loc sn #f '() '())) (else (gen-logxor opnds '() loc sn #f)))))) (define-apply "##FIXNUM.LOGAND" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (cond ((null? opnds) (copy-opnd-to-loc (make-obj '-1) loc sn)) ((null? (cdr opnds)) (copy-opnd-to-loc (car opnds) loc sn)) ((or (reg? loc) (stk? loc)) (commut-oper gen-logand opnds loc sn #f '() '())) (else (gen-logand opnds '() loc sn #f)))))) (define-apply "##FIXNUM.LOGNOT" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn)) (opnd (car opnds))) (if (and (or (reg? loc) (stk? loc)) (not (eq? loc return-reg))) (begin (copy-opnd-to-loc opnd loc sn-loc) (let ((loc68 (loc->loc68 loc #f sn))) (make-top-of-frame-if-stk-opnd68 loc68 sn) (emit-not.l (opnd68->true-opnd68 loc68 sn)) (emit-and.w (make-imm -8) (opnd68->true-opnd68 loc68 sn)))) (begin (move-opnd-to-loc68 opnd dtemp1 (sn-opnd loc sn)) (emit-not.l dtemp1) (emit-and.w (make-imm -8) dtemp1) (move-opnd68-to-loc dtemp1 loc sn)))))) (define-apply "##FIXNUM.ASH" #f (gen-shift emit-asr.l)) (define-apply "##FIXNUM.LSH" #f (gen-shift emit-lsr.l)) (define-ifjump "##FIXNUM.ZERO?" (lambda (not? opnds lbl fs) (gen-eq-test 0 not? opnds lbl fs))) (define-ifjump "##FIXNUM.POSITIVE?" (lambda (not? opnds lbl fs) (gen-compares emit-bgt emit-ble emit-blt emit-bge not? (list (car opnds) (make-obj '0)) lbl fs))) (define-ifjump "##FIXNUM.NEGATIVE?" (lambda (not? opnds lbl fs) (gen-compares emit-blt emit-bge emit-bgt emit-ble not? (list (car opnds) (make-obj '0)) lbl fs))) (define-ifjump "##FIXNUM.ODD?" (lambda (not? opnds lbl fs) (gen-even-test (not not?) opnds lbl fs))) (define-ifjump "##FIXNUM.EVEN?" (lambda (not? opnds lbl fs) (gen-even-test not? opnds lbl fs))) (define-ifjump "##FIXNUM.=" (lambda (not? opnds lbl fs) (gen-compares emit-beq emit-bne emit-beq emit-bne not? opnds lbl fs))) (define-ifjump "##FIXNUM.<" (lambda (not? opnds lbl fs) (gen-compares emit-blt emit-bge emit-bgt emit-ble not? opnds lbl fs))) (define-ifjump "##FIXNUM.>" (lambda (not? opnds lbl fs) (gen-compares emit-bgt emit-ble emit-blt emit-bge not? opnds lbl fs))) (define-ifjump "##FIXNUM.<=" (lambda (not? opnds lbl fs) (gen-compares emit-ble emit-bgt emit-bge emit-blt not? opnds lbl fs))) (define-ifjump "##FIXNUM.>=" (lambda (not? opnds lbl fs) (gen-compares emit-bge emit-blt emit-ble emit-bgt not? opnds lbl fs))) (define-apply "##FLONUM.->FIXNUM" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (move-opnd-to-loc68 (car opnds) atemp1 sn-loc) (let ((reg68 (if (and (reg? loc) (not (eq? loc return-reg))) (reg->reg68 loc) dtemp1))) (emit-fmov.dx (make-disp* atemp1 (- type-flonum)) ftemp1) (emit-fmov.l ftemp1 reg68) (emit-asl.l (make-imm 3) reg68) (if (not (and (reg? loc) (not (eq? loc return-reg)))) (move-opnd68-to-loc reg68 loc sn)))))) (define-apply "##FLONUM.<-FIXNUM" #f (lambda (opnds loc sn) (gen-guarantee-space 2) (move-opnd-to-loc68 (car opnds) dtemp1 (sn-opnds (cdr opnds) (sn-opnd loc sn))) (emit-asr.l (make-imm 3) dtemp1) (emit-fmov.l dtemp1 ftemp1) (add-n-to-loc68 (* -2 pointer-size) heap-reg) (emit-fmov.dx ftemp1 (make-ind heap-reg)) (let ((reg68 (if (reg? loc) (reg->reg68 loc) atemp1))) (emit-move.l heap-reg reg68) (emit-addq.l type-flonum reg68)) (if (not (reg? loc)) (move-opnd68-to-loc atemp1 loc sn)))) (define-apply "##FLONUM.+" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (cond ((null? opnds) (copy-opnd-to-loc (make-obj inexact-0) loc sn)) ((null? (cdr opnds)) (copy-opnd-to-loc (car opnds) loc sn)) (else (flo-oper emit-fmov.dx emit-fadd.dx opnds loc sn)))))) (define-apply "##FLONUM.*" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (cond ((null? opnds) (copy-opnd-to-loc (make-obj inexact-+1) loc sn)) ((null? (cdr opnds)) (copy-opnd-to-loc (car opnds) loc sn)) (else (flo-oper emit-fmov.dx emit-fmul.dx opnds loc sn)))))) (define-apply "##FLONUM.-" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (if (null? (cdr opnds)) (flo-oper emit-fneg.dx #f opnds loc sn) (flo-oper emit-fmov.dx emit-fsub.dx opnds loc sn))))) (define-apply "##FLONUM./" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (if (null? (cdr opnds)) (flo-oper emit-fmov.dx emit-fdiv.dx (cons (make-obj inexact-+1) opnds) loc sn) (flo-oper emit-fmov.dx emit-fdiv.dx opnds loc sn))))) (define-apply "##FLONUM.ABS" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-fabs.dx #f opnds loc sn)))) (define-apply "##FLONUM.TRUNCATE" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-fintrz.dx #f opnds loc sn)))) (define-apply "##FLONUM.ROUND" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-fint.dx #f opnds loc sn)))) (define-apply "##FLONUM.EXP" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-fetox.dx #f opnds loc sn)))) (define-apply "##FLONUM.LOG" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-flogn.dx #f opnds loc sn)))) (define-apply "##FLONUM.SIN" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-fsin.dx #f opnds loc sn)))) (define-apply "##FLONUM.COS" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-fcos.dx #f opnds loc sn)))) (define-apply "##FLONUM.TAN" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-ftan.dx #f opnds loc sn)))) (define-apply "##FLONUM.ASIN" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-fasin.dx #f opnds loc sn)))) (define-apply "##FLONUM.ACOS" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-facos.dx #f opnds loc sn)))) (define-apply "##FLONUM.ATAN" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-fatan.dx #f opnds loc sn)))) (define-apply "##FLONUM.SQRT" #f (lambda (opnds loc sn) (let ((sn-loc (sn-opnd loc sn))) (flo-oper emit-fsqrt.dx #f opnds loc sn)))) (define-ifjump "##FLONUM.ZERO?" (lambda (not? opnds lbl fs) (gen-compares-flo emit-fbeq emit-fbne emit-fbeq emit-fbne not? (list (car opnds) (make-obj inexact-0)) lbl fs))) (define-ifjump "##FLONUM.NEGATIVE?" (lambda (not? opnds lbl fs) (gen-compares-flo emit-fblt emit-fbge emit-fbgt emit-fble not? (list (car opnds) (make-obj inexact-0)) lbl fs))) (define-ifjump "##FLONUM.POSITIVE?" (lambda (not? opnds lbl fs) (gen-compares-flo emit-fbgt emit-fble emit-fblt emit-fbge not? (list (car opnds) (make-obj inexact-0)) lbl fs))) (define-ifjump "##FLONUM.=" (lambda (not? opnds lbl fs) (gen-compares-flo emit-fbeq emit-fbne emit-fbeq emit-fbne not? opnds lbl fs))) (define-ifjump "##FLONUM.<" (lambda (not? opnds lbl fs) (gen-compares-flo emit-fblt emit-fbge emit-fbgt emit-fble not? opnds lbl fs))) (define-ifjump "##FLONUM.>" (lambda (not? opnds lbl fs) (gen-compares-flo emit-fbgt emit-fble emit-fblt emit-fbge not? opnds lbl fs))) (define-ifjump "##FLONUM.<=" (lambda (not? opnds lbl fs) (gen-compares-flo emit-fble emit-fbgt emit-fbge emit-fblt not? opnds lbl fs))) (define-ifjump "##FLONUM.>=" (lambda (not? opnds lbl fs) (gen-compares-flo emit-fbge emit-fblt emit-fble emit-fbgt not? opnds lbl fs))) (define-ifjump "##CHAR=?" (lambda (not? opnds lbl fs) (gen-compares emit-beq emit-bne emit-beq emit-bne not? opnds lbl fs))) (define-ifjump "##CHAR<?" (lambda (not? opnds lbl fs) (gen-compares emit-blt emit-bge emit-bgt emit-ble not? opnds lbl fs))) (define-ifjump "##CHAR>?" (lambda (not? opnds lbl fs) (gen-compares emit-bgt emit-ble emit-blt emit-bge not? opnds lbl fs))) (define-ifjump "##CHAR<=?" (lambda (not? opnds lbl fs) (gen-compares emit-ble emit-bgt emit-bge emit-blt not? opnds lbl fs))) (define-ifjump "##CHAR>=?" (lambda (not? opnds lbl fs) (gen-compares emit-bge emit-blt emit-ble emit-bgt not? opnds lbl fs))) (define-apply "##CONS" #f (lambda (opnds loc sn) (gen-cons opnds loc sn))) (define-apply "##SET-CAR!" #t (lambda (opnds loc sn) (gen-set-car! opnds loc sn))) (define-apply "##SET-CDR!" #t (lambda (opnds loc sn) (gen-set-cdr! opnds loc sn))) (define-apply "##CAR" #f (make-gen-apply-c...r 2)) (define-apply "##CDR" #f (make-gen-apply-c...r 3)) (define-apply "##CAAR" #f (make-gen-apply-c...r 4)) (define-apply "##CADR" #f (make-gen-apply-c...r 5)) (define-apply "##CDAR" #f (make-gen-apply-c...r 6)) (define-apply "##CDDR" #f (make-gen-apply-c...r 7)) (define-apply "##CAAAR" #f (make-gen-apply-c...r 8)) (define-apply "##CAADR" #f (make-gen-apply-c...r 9)) (define-apply "##CADAR" #f (make-gen-apply-c...r 10)) (define-apply "##CADDR" #f (make-gen-apply-c...r 11)) (define-apply "##CDAAR" #f (make-gen-apply-c...r 12)) (define-apply "##CDADR" #f (make-gen-apply-c...r 13)) (define-apply "##CDDAR" #f (make-gen-apply-c...r 14)) (define-apply "##CDDDR" #f (make-gen-apply-c...r 15)) (define-apply "##CAAAAR" #f (make-gen-apply-c...r 16)) (define-apply "##CAAADR" #f (make-gen-apply-c...r 17)) (define-apply "##CAADAR" #f (make-gen-apply-c...r 18)) (define-apply "##CAADDR" #f (make-gen-apply-c...r 19)) (define-apply "##CADAAR" #f (make-gen-apply-c...r 20)) (define-apply "##CADADR" #f (make-gen-apply-c...r 21)) (define-apply "##CADDAR" #f (make-gen-apply-c...r 22)) (define-apply "##CADDDR" #f (make-gen-apply-c...r 23)) (define-apply "##CDAAAR" #f (make-gen-apply-c...r 24)) (define-apply "##CDAADR" #f (make-gen-apply-c...r 25)) (define-apply "##CDADAR" #f (make-gen-apply-c...r 26)) (define-apply "##CDADDR" #f (make-gen-apply-c...r 27)) (define-apply "##CDDAAR" #f (make-gen-apply-c...r 28)) (define-apply "##CDDADR" #f (make-gen-apply-c...r 29)) (define-apply "##CDDDAR" #f (make-gen-apply-c...r 30)) (define-apply "##CDDDDR" #f (make-gen-apply-c...r 31)) (define-apply "##MAKE-CELL" #f (lambda (opnds loc sn) (gen-cons (list (car opnds) (make-obj '())) loc sn))) (define-apply "##CELL-REF" #f (make-gen-apply-c...r 2)) (define-apply "##CELL-SET!" #t (lambda (opnds loc sn) (gen-set-car! opnds loc sn))) (define-apply "##VECTOR" #f (make-gen-vector 'vector)) (define-apply "##VECTOR-LENGTH" #f (make-gen-vector-length 'vector)) (define-apply "##VECTOR-REF" #f (make-gen-vector-ref 'vector)) (define-apply "##VECTOR-SET!" #t (make-gen-vector-set! 'vector)) (define-apply "##VECTOR-SHRINK!" #t (make-gen-vector-shrink! 'vector)) (define-apply "##STRING" #f (make-gen-vector 'string)) (define-apply "##STRING-LENGTH" #f (make-gen-vector-length 'string)) (define-apply "##STRING-REF" #f (make-gen-vector-ref 'string)) (define-apply "##STRING-SET!" #t (make-gen-vector-set! 'string)) (define-apply "##STRING-SHRINK!" #t (make-gen-vector-shrink! 'string)) (define-apply "##VECTOR8" #f (make-gen-vector 'vector8)) (define-apply "##VECTOR8-LENGTH" #f (make-gen-vector-length 'vector8)) (define-apply "##VECTOR8-REF" #f (make-gen-vector-ref 'vector8)) (define-apply "##VECTOR8-SET!" #t (make-gen-vector-set! 'vector8)) (define-apply "##VECTOR8-SHRINK!" #t (make-gen-vector-shrink! 'vector8)) (define-apply "##VECTOR16" #f (make-gen-vector 'vector16)) (define-apply "##VECTOR16-LENGTH" #f (make-gen-vector-length 'vector16)) (define-apply "##VECTOR16-REF" #f (make-gen-vector-ref 'vector16)) (define-apply "##VECTOR16-SET!" #t (make-gen-vector-set! 'vector16)) (define-apply "##VECTOR16-SHRINK!" #t (make-gen-vector-shrink! 'vector16)) (define-apply "##CLOSURE-CODE" #f (make-gen-slot-ref 1 type-procedure)) (define-apply "##CLOSURE-REF" #f (make-gen-vector-ref 'closure)) (define-apply "##CLOSURE-SET!" #t (make-gen-vector-set! 'closure)) (define-apply "##SUBPROCEDURE-ID" #f (lambda (opnds loc sn) (gen-subprocedure-id opnds loc sn))) (define-apply "##SUBPROCEDURE-PARENT" #f (lambda (opnds loc sn) (gen-subprocedure-parent opnds loc sn))) (define-apply "##RETURN-FS" #f (lambda (opnds loc sn) (gen-return-fs opnds loc sn))) (define-apply "##RETURN-LINK" #f (lambda (opnds loc sn) (gen-return-link opnds loc sn))) (define-apply "##PROCEDURE-INFO" #f (lambda (opnds loc sn) (gen-procedure-info opnds loc sn))) (define-apply "##PSTATE" #f (lambda (opnds loc sn) (move-opnd68-to-loc pstate-reg loc sn))) (define-apply "##MAKE-PLACEHOLDER" #f (lambda (opnds loc sn) (gen-make-placeholder opnds loc sn))) (define-apply "##TOUCH" #t (lambda (opnds loc sn) (let ((opnd (car opnds))) (if loc (touch-opnd-to-loc opnd loc sn) (touch-opnd-to-any-reg68 opnd sn))))) (def-spec "NOT" (safe "##NOT")) (def-spec "NULL?" (safe "##NULL?")) (def-spec "EQ?" (safe "##EQ?")) (def-spec "PAIR?" (safe "##PAIR?")) (def-spec "PROCEDURE?" (safe "##PROCEDURE?")) (def-spec "VECTOR?" (safe "##VECTOR?")) (def-spec "SYMBOL?" (safe "##SYMBOL?")) (def-spec "STRING?" (safe "##STRING?")) (def-spec "CHAR?" (safe "##CHAR?")) (def-spec "ZERO?" (safe-arith "##FIXNUM.ZERO?" "##FLONUM.ZERO?")) (def-spec "POSITIVE?" (safe-arith "##FIXNUM.POSITIVE?" "##FLONUM.POSITIVE?")) (def-spec "NEGATIVE?" (safe-arith "##FIXNUM.NEGATIVE?" "##FLONUM.NEGATIVE?")) (def-spec "ODD?" (safe-arith "##FIXNUM.ODD?" #f)) (def-spec "EVEN?" (safe-arith "##FIXNUM.EVEN?" #f)) (def-spec "+" (unsafe-arith "##FIXNUM.+" "##FLONUM.+")) (def-spec "*" (unsafe-arith "##FIXNUM.*" "##FLONUM.*")) (def-spec "-" (unsafe-arith "##FIXNUM.-" "##FLONUM.-")) (def-spec "/" (unsafe-arith #f "##FLONUM./")) (def-spec "QUOTIENT" (unsafe-arith "##FIXNUM.QUOTIENT" #f)) (def-spec "REMAINDER" (unsafe-arith "##FIXNUM.REMAINDER" #f)) (def-spec "MODULO" (unsafe-arith "##FIXNUM.MODULO" #f)) (def-spec "=" (safe-arith "##FIXNUM.=" "##FLONUM.=")) (def-spec "<" (safe-arith "##FIXNUM.<" "##FLONUM.<")) (def-spec ">" (safe-arith "##FIXNUM.>" "##FLONUM.>")) (def-spec "<=" (safe-arith "##FIXNUM.<=" "##FLONUM.<=")) (def-spec ">=" (safe-arith "##FIXNUM.>=" "##FLONUM.>=")) (def-spec "ABS" (unsafe-arith #f "##FLONUM.ABS")) (def-spec "TRUNCATE" (unsafe-arith #f "##FLONUM.TRUNCATE")) (def-spec "EXP" (unsafe-arith #f "##FLONUM.EXP")) (def-spec "LOG" (unsafe-arith #f "##FLONUM.LOG")) (def-spec "SIN" (unsafe-arith #f "##FLONUM.SIN")) (def-spec "COS" (unsafe-arith #f "##FLONUM.COS")) (def-spec "TAN" (unsafe-arith #f "##FLONUM.TAN")) (def-spec "ASIN" (unsafe-arith #f "##FLONUM.ASIN")) (def-spec "ACOS" (unsafe-arith #f "##FLONUM.ACOS")) (def-spec "ATAN" (unsafe-arith #f "##FLONUM.ATAN")) (def-spec "SQRT" (unsafe-arith #f "##FLONUM.SQRT")) (def-spec "CHAR=?" (safe "##CHAR=?")) (def-spec "CHAR<?" (safe "##CHAR<?")) (def-spec "CHAR>?" (safe "##CHAR>?")) (def-spec "CHAR<=?" (safe "##CHAR<=?")) (def-spec "CHAR>=?" (safe "##CHAR>=?")) (def-spec "CONS" (safe "##CONS")) (def-spec "SET-CAR!" (unsafe "##SET-CAR!")) (def-spec "SET-CDR!" (unsafe "##SET-CDR!")) (def-spec "CAR" (unsafe "##CAR")) (def-spec "CDR" (unsafe "##CDR")) (def-spec "CAAR" (unsafe "##CAAR")) (def-spec "CADR" (unsafe "##CADR")) (def-spec "CDAR" (unsafe "##CDAR")) (def-spec "CDDR" (unsafe "##CDDR")) (def-spec "CAAAR" (unsafe "##CAAAR")) (def-spec "CAADR" (unsafe "##CAADR")) (def-spec "CADAR" (unsafe "##CADAR")) (def-spec "CADDR" (unsafe "##CADDR")) (def-spec "CDAAR" (unsafe "##CDAAR")) (def-spec "CDADR" (unsafe "##CDADR")) (def-spec "CDDAR" (unsafe "##CDDAR")) (def-spec "CDDDR" (unsafe "##CDDDR")) (def-spec "CAAAAR" (unsafe "##CAAAAR")) (def-spec "CAAADR" (unsafe "##CAAADR")) (def-spec "CAADAR" (unsafe "##CAADAR")) (def-spec "CAADDR" (unsafe "##CAADDR")) (def-spec "CADAAR" (unsafe "##CADAAR")) (def-spec "CADADR" (unsafe "##CADADR")) (def-spec "CADDAR" (unsafe "##CADDAR")) (def-spec "CADDDR" (unsafe "##CADDDR")) (def-spec "CDAAAR" (unsafe "##CDAAAR")) (def-spec "CDAADR" (unsafe "##CDAADR")) (def-spec "CDADAR" (unsafe "##CDADAR")) (def-spec "CDADDR" (unsafe "##CDADDR")) (def-spec "CDDAAR" (unsafe "##CDDAAR")) (def-spec "CDDADR" (unsafe "##CDDADR")) (def-spec "CDDDAR" (unsafe "##CDDDAR")) (def-spec "CDDDDR" (unsafe "##CDDDDR")) (def-spec "VECTOR" (safe "##VECTOR")) (def-spec "VECTOR-LENGTH" (unsafe "##VECTOR-LENGTH")) (def-spec "VECTOR-REF" (unsafe "##VECTOR-REF")) (def-spec "VECTOR-SET!" (unsafe "##VECTOR-SET!")) (def-spec "STRING" (safe "##STRING")) (def-spec "STRING-LENGTH" (unsafe "##STRING-LENGTH")) (def-spec "STRING-REF" (unsafe "##STRING-REF")) (def-spec "STRING-SET!" (unsafe "##STRING-SET!")) (def-spec "TOUCH" (safe "##TOUCH")) (let ((targ (make-target 4 'm68000))) (target-begin!-set! targ (lambda (info-port) (begin! info-port targ))) (put-target targ)) (define input-source-code ' (begin (declare (standard-bindings) (fixnum) (not safe) (block)) (define (fib n) (if (< n 2) n (+ (fib (- n 1)) (fib (- n 2))))) (define (tak x y z) (if (not (< y x)) z (tak (tak (- x 1) y z) (tak (- y 1) z x) (tak (- z 1) x y)))) (define (ack m n) (cond ((= m 0) (+ n 1)) ((= n 0) (ack (- m 1) 1)) (else (ack (- m 1) (ack m (- n 1)))))) (define (create-x n) (define result (make-vector n)) (do ((i 0 (+ i 1))) ((>= i n) result) (vector-set! result i i))) (define (create-y x) (let* ((n (vector-length x)) (result (make-vector n))) (do ((i (- n 1) (- i 1))) ((< i 0) result) (vector-set! result i (vector-ref x i))))) (define (my-try n) (vector-length (create-y (create-x n)))) (define (go n) (let loop ((repeat 100) (result 0)) (if (> repeat 0) (loop (- repeat 1) (my-try n)) result))) (+ (fib 20) (tak 18 12 6) (ack 3 9) (go 200000)) )) (define output-expected '( "|------------------------------------------------------" "| #[primitive #!program] =" "L1:" " cmpw #1,d0" " beq L1000" " TRAP1(9,0)" " LBL_PTR(L1)" "L1000:" " MOVE_PROC(1,a1)" " movl a1,GLOB(fib)" " MOVE_PROC(2,a1)" " movl a1,GLOB(tak)" " MOVE_PROC(3,a1)" " movl a1,GLOB(ack)" " MOVE_PROC(4,a1)" " movl a1,GLOB(create-x)" " MOVE_PROC(5,a1)" " movl a1,GLOB(create-y)" " MOVE_PROC(6,a1)" " movl a1,GLOB(my-try)" " MOVE_PROC(7,a1)" " movl a1,GLOB(go)" " movl a0,sp@-" " movl #160,d1" " lea L2,a0" " dbra d5,L1001" " moveq #9,d5" " cmpl a5@,sp" " bcc L1001" " TRAP2(24)" " RETURN(L1,1,1)" "L1002:" "L1001:" " JMP_PROC(1,10)" " RETURN(L1,1,1)" "L2:" " movl d1,sp@-" " moveq #48,d3" " moveq #96,d2" " movl #144,d1" " lea L3,a0" " JMP_PROC(2,14)" " RETURN(L1,2,1)" "L3:" " movl d1,sp@-" " moveq #72,d2" " moveq #24,d1" " lea L4,a0" " JMP_PROC(3,10)" " RETURN(L1,3,1)" "L4:" " movl d1,sp@-" " movl #1600000,d1" " lea L5,a0" " JMP_PROC(7,10)" " RETURN(L1,4,1)" "L5:" " dbra d5,L1003" " moveq #9,d5" " cmpl a5@,sp" " bcc L1003" " TRAP2(24)" " RETURN(L1,4,1)" "L1004:" "L1003:" "L6:" " addl sp@(8),d1" " addl sp@(4),d1" " addl sp@+,d1" " addql #8,sp" " rts" "L0:" "|------------------------------------------------------" "| #[primitive fib] =" "L1:" " bmi L1000" " TRAP1(9,1)" " LBL_PTR(L1)" "L1000:" " moveq #16,d0" " cmpl d1,d0" " ble L3" " bra L4" " RETURN(L1,2,1)" "L2:" " movl d1,sp@-" " movl sp@(4),d1" " moveq #-16,d0" " addl d0,d1" " lea L5,a0" " moveq #16,d0" " cmpl d1,d0" " bgt L4" "L3:" " movl a0,sp@-" " movl d1,sp@-" " subql #8,d1" " lea L2,a0" " dbra d5,L1001" " moveq #9,d5" " cmpl a5@,sp" " bcc L1001" " TRAP2(24)" " RETURN(L1,2,1)" "L1002:" "L1001:" " moveq #16,d0" " cmpl d1,d0" " ble L3" "L4:" " jmp a0@" " RETURN(L1,3,1)" "L5:" " addl sp@+,d1" " dbra d5,L1003" " moveq #9,d5" " cmpl a5@,sp" " bcc L1003" " TRAP2(24)" " RETURN(L1,2,1)" "L1004:" "L1003:" " addql #4,sp" " rts" "L0:" "|------------------------------------------------------" "| #[primitive tak] =" "L1:" " cmpw #4,d0" " beq L1000" " TRAP1(9,3)" " LBL_PTR(L1)" "L1000:" " cmpl d1,d2" " bge L4" " bra L3" " RETURN(L1,6,1)" "L2:" " movl d1,d3" " movl sp@(20),a0" " movl sp@+,d2" " movl sp@+,d1" " dbra d5,L1001" " moveq #9,d5" " cmpl a5@,sp" " bcc L1001" " movl a0,sp@(12)" " TRAP2(24)" " RETURN(L1,4,1)" "L1002:" " movl sp@(12),a0" "L1001:" " cmpl d1,d2" " lea sp@(16),sp" " bge L4" "L3:" " movl a0,sp@-" " movl d1,sp@-" " movl d2,sp@-" " movl d3,sp@-" " subql #8,d1" " lea L5,a0" " dbra d5,L1003" " moveq #9,d5" " cmpl a5@,sp" " bcc L1003" " TRAP2(24)" " RETURN(L1,4,1)" "L1004:" "L1003:" " cmpl d1,d2" " blt L3" "L4:" " movl d3,d1" " jmp a0@" " RETURN(L1,4,1)" "L5:" " movl d1,sp@-" " movl sp@(12),d3" " movl sp@(4),d2" " movl sp@(8),d1" " subql #8,d1" " lea L6,a0" " cmpl d1,d2" " bge L4" " bra L3" " RETURN(L1,5,1)" "L6:" " movl d1,sp@-" " movl sp@(12),d3" " movl sp@(16),d2" " movl sp@(8),d1" " subql #8,d1" " lea L2,a0" " cmpl d1,d2" " bge L4" " bra L3" "L0:" "|------------------------------------------------------" "| #[primitive ack] =" "L1:" " beq L1000" " TRAP1(9,2)" " LBL_PTR(L1)" "L1000:" " movl d1,d0" " bne L3" " bra L5" " RETURN(L1,2,1)" "L2:" " movl d1,d2" " movl sp@+,d1" " subql #8,d1" " movl sp@+,a0" " dbra d5,L1001" " moveq #9,d5" " cmpl a5@,sp" " bcc L1001" " movl a0,sp@-" " TRAP2(24)" " RETURN(L1,1,1)" "L1002:" " movl sp@+,a0" "L1001:" " movl d1,d0" " beq L5" "L3:" " movl d2,d0" " bne L6" "L4:" " subql #8,d1" " moveq #8,d2" " dbra d5,L1003" " moveq #9,d5" " cmpl a5@,sp" " bcc L1003" " movl a0,sp@-" " TRAP2(24)" " RETURN(L1,1,1)" "L1004:" " movl sp@+,a0" "L1003:" " movl d1,d0" " bne L3" "L5:" " movl d2,d1" " addql #8,d1" " jmp a0@" "L6:" " movl a0,sp@-" " movl d1,sp@-" " movl d2,d1" " subql #8,d1" " movl d1,d2" " movl sp@,d1" " lea L2,a0" " dbra d5,L1005" " moveq #9,d5" " cmpl a5@,sp" " bcc L1005" " TRAP2(24)" " RETURN(L1,2,1)" "L1006:" "L1005:" " movl d1,d0" " bne L3" " bra L5" "L0:" "|------------------------------------------------------" "| #[primitive create-x] =" "L1:" " bmi L1000" " TRAP1(9,1)" " LBL_PTR(L1)" "L1000:" " movl a0,sp@-" " movl d1,sp@-" " lea L2,a0" " dbra d5,L1001" " moveq #9,d5" " cmpl a5@,sp" " bcc L1001" " TRAP2(24)" " RETURN(L1,2,1)" "L1002:" "L1001:" " moveq #-1,d0" " JMP_PRIM(make-vector,0)" " RETURN(L1,2,1)" "L2:" " movl d1,d2" " movl sp@+,d1" " moveq #0,d3" " movl sp@+,a0" " dbra d5,L1003" " moveq #9,d5" " cmpl a5@,sp" " bcc L1003" " movl a0,sp@-" " TRAP2(24)" " RETURN(L1,1,1)" "L1004:" " movl sp@+,a0" "L1003:" " cmpl d1,d3" " bge L4" "L3:" " movl d3,d0" " asrl #1,d0" " movl d2,a1" " movl d3,a1@(1,d0:l)" " addql #8,d3" " dbra d5,L1005" " moveq #9,d5" " cmpl a5@,sp" " bcc L1005" " movl a0,sp@-" " TRAP2(24)" " RETURN(L1,1,1)" "L1006:" " movl sp@+,a0" "L1005:" " cmpl d1,d3" " blt L3" "L4:" " movl d2,d1" " jmp a0@" "L0:" "|------------------------------------------------------" "| #[primitive create-y] =" "L1:" " bmi L1000" " TRAP1(9,1)" " LBL_PTR(L1)" "L1000:" " movl d1,a1" " movl a1@(-3),d2" " lsrl #7,d2" " movl a0,sp@-" " movl d1,sp@-" " movl d2,sp@-" " movl d2,d1" " lea L2,a0" " dbra d5,L1001" " moveq #9,d5" " cmpl a5@,sp" " bcc L1001" " TRAP2(24)" " RETURN(L1,3,1)" "L1002:" "L1001:" " moveq #-1,d0" " JMP_PRIM(make-vector,0)" " RETURN(L1,3,1)" "L2:" " movl sp@+,d2" " subql #8,d2" " movl d2,d3" " movl d1,d2" " movl sp@+,d1" " movl sp@+,a0" " dbra d5,L1003" " moveq #9,d5" " cmpl a5@,sp" " bcc L1003" " movl a0,sp@-" " TRAP2(24)" " RETURN(L1,1,1)" "L1004:" " movl sp@+,a0" "L1003:" " movl d3,d0" " blt L4" "L3:" " movl d3,d0" " asrl #1,d0" " movl d1,a1" " movl a1@(1,d0:l),d4" " movl d3,d0" " asrl #1,d0" " movl d2,a1" " movl d4,a1@(1,d0:l)" " subql #8,d3" " dbra d5,L1005" " moveq #9,d5" " cmpl a5@,sp" " bcc L1005" " movl a0,sp@-" " TRAP2(24)" " RETURN(L1,1,1)" "L1006:" " movl sp@+,a0" "L1005:" " movl d3,d0" " bge L3" "L4:" " movl d2,d1" " jmp a0@" "L0:" "|------------------------------------------------------" "| #[primitive my-try] =" "L1:" " bmi L1000" " TRAP1(9,1)" " LBL_PTR(L1)" "L1000:" " movl a0,sp@-" " lea L2,a0" " dbra d5,L1001" " moveq #9,d5" " cmpl a5@,sp" " bcc L1001" " TRAP2(24)" " RETURN(L1,1,1)" "L1002:" "L1001:" " JMP_PROC(4,10)" " RETURN(L1,1,1)" "L2:" " lea L3,a0" " JMP_PROC(5,10)" " RETURN(L1,1,1)" "L3:" " movl d1,a1" " movl a1@(-3),d1" " lsrl #7,d1" " dbra d5,L1003" " moveq #9,d5" " cmpl a5@,sp" " bcc L1003" " TRAP2(24)" " RETURN(L1,1,1)" "L1004:" "L1003:" " rts" "L0:" "|------------------------------------------------------" "| #[primitive go] =" "L1:" " bmi L1000" " TRAP1(9,1)" " LBL_PTR(L1)" "L1000:" " moveq #0,d3" " movl #800,d2" " dbra d5,L1001" " moveq #9,d5" " cmpl a5@,sp" " bcc L1001" " movl a0,sp@-" " TRAP2(24)" " RETURN(L1,1,1)" "L1002:" " movl sp@+,a0" "L1001:" " movl d2,d0" " ble L4" " bra L3" " RETURN(L1,3,1)" "L2:" " movl d1,d3" " movl sp@+,d1" " subql #8,d1" " movl d1,d2" " movl sp@+,d1" " movl sp@+,a0" " dbra d5,L1003" " moveq #9,d5" " cmpl a5@,sp" " bcc L1003" " movl a0,sp@-" " TRAP2(24)" " RETURN(L1,1,1)" "L1004:" " movl sp@+,a0" "L1003:" " movl d2,d0" " ble L4" "L3:" " movl a0,sp@-" " movl d1,sp@-" " movl d2,sp@-" " lea L2,a0" " dbra d5,L1005" " moveq #9,d5" " cmpl a5@,sp" " bcc L1005" " TRAP2(24)" " RETURN(L1,3,1)" "L1006:" "L1005:" " JMP_PROC(6,10)" "L4:" " movl d3,d1" " jmp a0@" "L0:" "")) (define (main . args) (run-benchmark "compiler" compiler-iters (lambda (result) (equal? result output-expected)) (lambda (expr target opt) (lambda () (ce expr target opt) (asm-output-get))) input-source-code 'm68000 'asm)) (main) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/test-chained-modules.scm��������������������������������������������������������0000644�0001750�0001750�00000000604�13370655400�020616� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module m1 ((s1 f1)) (import scheme (chicken base)) (define (f1) (print "f1") 'f1) (define-syntax s1 (syntax-rules () ((_) (f1))))) (module m2 (s2) (import scheme (rename m1 (s1 s1:s1))) (define-syntax s2 (syntax-rules () ((_) (s1:s1))))) (module m3 (s3) (import scheme m2) (define-syntax s3 (syntax-rules () ((_) (s2))))) (import m3) (s3) ����������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/srfi-4-tests.scm����������������������������������������������������������������0000644�0001750�0001750�00000011441�13370655400�017045� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; srfi-4-tests.scm (import (srfi 4) (chicken port)) (import-for-syntax (chicken base)) (define-syntax test1 (er-macro-transformer (lambda (x r c) (let* ((t (strip-syntax (cadr x))) (name (symbol->string (strip-syntax t))) (min (caddr x)) (max (cadddr x))) (define (conc op) (string->symbol (string-append name op))) `(let ((x (,(conc "vector") 100 101))) (assert (eqv? 100 (,(conc "vector-ref") x 0))) (assert (,(conc "vector?") x)) (assert (number-vector? x)) ;; Test direct setter and ref (,(conc "vector-set!") x 1 99) (assert (eqv? 99 (,(conc "vector-ref") x 1))) ;; Test SRFI-17 generalised set! and ref (set! (,(conc "vector-ref") x 0) 127) (assert (eqv? 127 (,(conc "vector-ref") x 0))) ;; Ensure length is okay (assert (= 2 (,(conc "vector-length") x))) (assert (let ((result (,(conc "vector->list") x))) (and (eqv? 127 (car result)) (eqv? 99 (cadr result)))))))))) (define-syntax test-subv (er-macro-transformer (lambda (x r c) (let* ((t (strip-syntax (cadr x))) (make (symbol-append 'make- t 'vector)) (subv (symbol-append 'sub t 'vector)) (len (symbol-append t 'vector-length))) `(let ((x (,make 10))) (assert (eq? (,len (,subv x 0 5)) 5))))))) (test-subv u8) (test-subv s8) (test-subv u16) (test-subv s16) (test-subv u32) (test-subv s32) (test-subv u64) (test-subv s64) (test1 u8 0 255) (test1 u16 0 65535) (test1 u32 0 4294967295) (test1 u64 0 18446744073709551615) (test1 s8 -128 127) (test1 s16 -32768 32767) (test1 s32 -2147483648 2147483647) (test1 s64 -9223372036854775808 9223372036854775807) (define-syntax test2 (er-macro-transformer (lambda (x r c) (let* ((t (strip-syntax (cadr x))) (name (symbol->string (strip-syntax t)))) (define (conc op) (string->symbol (string-append name op))) `(let ((x (,(conc "vector") 100 101.0))) (assert (eqv? 100.0 (,(conc "vector-ref") x 0))) (assert (eqv? 101.0 (,(conc "vector-ref") x 1))) (assert (,(conc "vector?") x)) (assert (number-vector? x)) (,(conc "vector-set!") x 1 99) (assert (eqv? 99.0 (,(conc "vector-ref") x 1))) (assert (= 2 (,(conc "vector-length") x))) (assert (let ((result (,(conc "vector->list") x))) (and (eqv? 100.0 (car result)) (eqv? 99.0 (cadr result)))))))))) (test2 f32) (test2 f64) ;; Test implicit quoting/self evaluation (assert (equal? #u8(1 2 3) '#u8(1 2 3))) (assert (equal? #s8(-1 2 3) '#s8(-1 2 3))) (assert (equal? #u16(1 2 3) '#u16(1 2 3))) (assert (equal? #s16(-1 2 3) '#s16(-1 2 3))) (assert (equal? #u32(1 2 3) '#u32(1 2 3))) (assert (equal? #u64(1 2 3) '#u64(1 2 3))) (assert (equal? #s32(-1 2 3) '#s32(-1 2 3))) (assert (equal? #s64(-1 2 3) '#s64(-1 2 3))) (assert (equal? #f32(1 2 3) '#f32(1 2 3))) (assert (equal? #f64(-1 2 3) '#f64(-1 2 3))) ;; Ticket #1124: read-u8vector! w/o length, dest smaller than source. (let ((input (open-input-string "abcdefghijklmnopqrstuvwxyz")) (u8vec (make-u8vector 10))) (assert (= 10 (read-u8vector! #f u8vec input))) (assert (equal? u8vec #u8(97 98 99 100 101 102 103 104 105 106))) (assert (= 5 (read-u8vector! #f u8vec input 5))) (assert (equal? u8vec #u8(97 98 99 100 101 107 108 109 110 111))) (assert (= 5 (read-u8vector! 5 u8vec input))) (assert (equal? u8vec #u8(112 113 114 115 116 107 108 109 110 111))) (assert (= 6 (read-u8vector! 10 u8vec input))) (assert (equal? u8vec #u8(117 118 119 120 121 122 108 109 110 111)))) (let ((input (open-input-string "abcdefghijklmnopqrs"))) (assert (equal? (read-u8vector 5 input) #u8(97 98 99 100 101))) (assert (equal? (read-u8vector 5 input) #u8(102 103 104 105 106))) (assert (equal? (read-u8vector #f input) #u8(107 108 109 110 111 112 113 114 115))) (with-input-from-string "abcdefghijklmnopqrs" (lambda () (assert (equal? (read-u8vector 5) #u8(97 98 99 100 101))) (assert (equal? (read-u8vector 5) #u8(102 103 104 105 106))) (assert (equal? (read-u8vector) #u8(107 108 109 110 111 112 113 114 115)))))) (assert (string=? "abc" (with-output-to-string (lambda () (write-u8vector #u8(97 98 99)))))) (assert (string=? "bc" (with-output-to-string (lambda () (write-u8vector #u8(97 98 99) (current-output-port) 1))))) (assert (string=? "a" (with-output-to-string (lambda () (write-u8vector #u8(97 98 99) (current-output-port) 0 1))))) (assert (string=? "b" (with-output-to-string (lambda () (write-u8vector #u8(97 98 99) (current-output-port) 1 2))))) (assert (string=? "" (with-output-to-string (lambda () (write-u8vector #u8()))))) ; make sure the N parameter is a fixnum (assert (handle-exceptions exn #t (make-f64vector 4.0) #f)) ; catch the overflow (assert (handle-exceptions exn #t (make-f64vector most-positive-fixnum) #f)) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/ec.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000104672�13370655400�015201� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module ec (do-ec do-ec:do :do :let :parallel :parallel-1 :while :while-1 :while-2 :until :until-1 :list :string (:vector ec-:vector-filter) :integers :range :real-range :char-range :port :dispatched :generator-proc dispatch-union make-initial-:-dispatch (: :-dispatch) :-dispatch-ref :-dispatch-set! fold3-ec fold-ec list-ec append-ec string-ec string-append-ec vector-ec vector-of-length-ec sum-ec product-ec min-ec max-ec last-ec first-ec ec-guarded-do-ec any?-ec every?-ec) (import scheme chicken.base) ; <PLAINTEXT> ; Eager Comprehensions in [outer..inner|expr]-Convention ; ====================================================== ; ; sebastian.egner@philips.com, Eindhoven, The Netherlands, 26-Dec-2007 ; Scheme R5RS (incl. macros), SRFI-23 (error). ; ; Loading the implementation into Scheme48 0.57: ; ,open srfi-23 ; ,load ec.scm ; ; Loading the implementation into PLT/DrScheme 317: ; ; File > Open ... "ec.scm", click Execute ; ; Loading the implementation into SCM 5d7: ; (require 'macro) (require 'record) ; (load "ec.scm") ; ; Implementation comments: ; * All local (not exported) identifiers are named ec-<something>. ; * This implementation focuses on portability, performance, ; readability, and simplicity roughly in this order. Design ; decisions related to performance are taken for Scheme48. ; * Alternative implementations, Comments and Warnings are ; mentioned after the definition with a heading. ; ========================================================================== ; The fundamental comprehension do-ec ; ========================================================================== ; ; All eager comprehensions are reduced into do-ec and ; all generators are reduced to :do. ; ; We use the following short names for syntactic variables ; q - qualifier ; cc - current continuation, thing to call at the end; ; the CPS is (m (cc ...) arg ...) -> (cc ... expr ...) ; cmd - an expression being evaluated for its side-effects ; expr - an expression ; gen - a generator of an eager comprehension ; ob - outer binding ; oc - outer command ; lb - loop binding ; ne1? - not-end1? (before the payload) ; ib - inner binding ; ic - inner command ; ne2? - not-end2? (after the payload) ; ls - loop step ; etc - more arguments of mixed type ; (do-ec q ... cmd) ; handles nested, if/not/and/or, begin, :let, and calls generator ; macros in CPS to transform them into fully decorated :do. ; The code generation for a :do is delegated to do-ec:do. (define-syntax do-ec (syntax-rules (nested if not and or begin :do let) ; explicit nesting -> implicit nesting ((do-ec (nested q ...) etc ...) (do-ec q ... etc ...) ) ; implicit nesting -> fold do-ec ((do-ec q1 q2 etc1 etc ...) (do-ec q1 (do-ec q2 etc1 etc ...)) ) ; no qualifiers at all -> evaluate cmd once ((do-ec cmd) (begin cmd (if #f #f)) ) ; now (do-ec q cmd) remains ; filter -> make conditional ((do-ec (if test) cmd) (if test (do-ec cmd)) ) ((do-ec (not test) cmd) (if (not test) (do-ec cmd)) ) ((do-ec (and test ...) cmd) (if (and test ...) (do-ec cmd)) ) ((do-ec (or test ...) cmd) (if (or test ...) (do-ec cmd)) ) ; begin -> make a sequence ((do-ec (begin etc ...) cmd) (begin etc ... (do-ec cmd)) ) ; fully decorated :do-generator -> delegate to do-ec:do ((do-ec (:do olet lbs ne1? ilet ne2? lss) cmd) (do-ec:do cmd (:do olet lbs ne1? ilet ne2? lss)) ) ; anything else -> call generator-macro in CPS; reentry at (*) ((do-ec (g arg1 arg ...) cmd) (g (do-ec:do cmd) arg1 arg ...) ))) ; (do-ec:do cmd (:do olet lbs ne1? ilet ne2? lss)) ; generates code for a single fully decorated :do-generator ; with cmd as payload, taking care of special cases. (define-syntax do-ec:do (syntax-rules (:do let) ; reentry point (*) -> generate code ((do-ec:do cmd (:do (let obs oc ...) lbs ne1? (let ibs ic ...) ne2? (ls ...) )) (ec-simplify (let obs oc ... (let loop lbs (ec-simplify (if ne1? (ec-simplify (let ibs ic ... cmd (ec-simplify (if ne2? (loop ls ...) )))))))))) )) ; (ec-simplify <expression>) ; generates potentially more efficient code for <expression>. ; The macro handles if, (begin <command>*), and (let () <command>*) ; and takes care of special cases. (define-syntax ec-simplify (syntax-rules (if not let begin) ; one- and two-sided if ; literal <test> ((ec-simplify (if #t consequent)) consequent ) ((ec-simplify (if #f consequent)) (if #f #f) ) ((ec-simplify (if #t consequent alternate)) consequent ) ((ec-simplify (if #f consequent alternate)) alternate ) ; (not (not <test>)) ((ec-simplify (if (not (not test)) consequent)) (ec-simplify (if test consequent)) ) ((ec-simplify (if (not (not test)) consequent alternate)) (ec-simplify (if test consequent alternate)) ) ; (let () <command>*) ; empty <binding spec>* ((ec-simplify (let () command ...)) (ec-simplify (begin command ...)) ) ; begin ; flatten use helper (ec-simplify 1 done to-do) ((ec-simplify (begin command ...)) (ec-simplify 1 () (command ...)) ) ((ec-simplify 1 done ((begin to-do1 ...) to-do2 ...)) (ec-simplify 1 done (to-do1 ... to-do2 ...)) ) ((ec-simplify 1 (done ...) (to-do1 to-do ...)) (ec-simplify 1 (done ... to-do1) (to-do ...)) ) ; exit helper ((ec-simplify 1 () ()) (if #f #f) ) ((ec-simplify 1 (command) ()) command ) ((ec-simplify 1 (command1 command ...) ()) (begin command1 command ...) ) ; anything else ((ec-simplify expression) expression ))) ; ========================================================================== ; The special generators :do, :let, :parallel, :while, and :until ; ========================================================================== (define-syntax :do (syntax-rules () ; full decorated -> continue with cc, reentry at (*) ((:do (cc ...) olet lbs ne1? ilet ne2? lss) (cc ... (:do olet lbs ne1? ilet ne2? lss)) ) ; short form -> fill in default values ((:do cc lbs ne1? lss) (:do cc (let ()) lbs ne1? (let ()) #t lss) ))) (define-syntax :let (syntax-rules (index) ((:let cc var (index i) expression) (:do cc (let ((var expression) (i 0))) () #t (let ()) #f ()) ) ((:let cc var expression) (:do cc (let ((var expression))) () #t (let ()) #f ()) ))) (define-syntax :parallel (syntax-rules (:do) ((:parallel cc) cc ) ((:parallel cc (g arg1 arg ...) gen ...) (g (:parallel-1 cc (gen ...)) arg1 arg ...) ))) ; (:parallel-1 cc (to-do ...) result [ next ] ) ; iterates over to-do by converting the first generator into ; the :do-generator next and merging next into result. (define-syntax :parallel-1 ; used as (syntax-rules (:do let) ; process next element of to-do, reentry at (**) ((:parallel-1 cc ((g arg1 arg ...) gen ...) result) (g (:parallel-1 cc (gen ...) result) arg1 arg ...) ) ; reentry point (**) -> merge next into result ((:parallel-1 cc gens (:do (let (ob1 ...) oc1 ...) (lb1 ...) ne1?1 (let (ib1 ...) ic1 ...) ne2?1 (ls1 ...) ) (:do (let (ob2 ...) oc2 ...) (lb2 ...) ne1?2 (let (ib2 ...) ic2 ...) ne2?2 (ls2 ...) )) (:parallel-1 cc gens (:do (let (ob1 ... ob2 ...) oc1 ... oc2 ...) (lb1 ... lb2 ...) (and ne1?1 ne1?2) (let (ib1 ... ib2 ...) ic1 ... ic2 ...) (and ne2?1 ne2?2) (ls1 ... ls2 ...) ))) ; no more gens -> continue with cc, reentry at (*) ((:parallel-1 (cc ...) () result) (cc ... result) ))) (define-syntax :while (syntax-rules () ((:while cc (g arg1 arg ...) test) (g (:while-1 cc test) arg1 arg ...) ))) ; (:while-1 cc test (:do ...)) ; modifies the fully decorated :do-generator such that it ; runs while test is a true value. ; The original implementation just replaced ne1? by ; (and ne1? test) as follows: ; ; (define-syntax :while-1 ; (syntax-rules (:do) ; ((:while-1 cc test (:do olet lbs ne1? ilet ne2? lss)) ; (:do cc olet lbs (and ne1? test) ilet ne2? lss) ))) ; ; Bug #1: ; Unfortunately, this code is wrong because ne1? may depend ; in the inner bindings introduced in ilet, but ne1? is evaluated ; outside of the inner bindings. (Refer to the specification of ; :do to see the structure.) ; The problem manifests itself (as sunnan@handgranat.org ; observed, 25-Apr-2005) when the :list-generator is modified: ; ; (do-ec (:while (:list x '(1 2)) (= x 1)) (display x)). ; ; In order to generate proper code, we introduce temporary ; variables saving the values of the inner bindings. The inner ; bindings are executed in a new ne1?, which also evaluates ne1? ; outside the scope of the inner bindings, then the inner commands ; are executed (possibly changing the variables), and then the ; values of the inner bindings are saved and (and ne1? test) is ; returned. In the new ilet, the inner variables are bound and ; initialized and their values are restored. So we construct: ; ; (let (ob .. (ib-tmp #f) ...) ; oc ... ; (let loop (lb ...) ; (if (let (ne1?-value ne1?) ; (let ((ib-var ib-rhs) ...) ; ic ... ; (set! ib-tmp ib-var) ...) ; (and ne1?-value test)) ; (let ((ib-var ib-tmp) ...) ; /payload/ ; (if ne2? ; (loop ls ...) ))))) ; ; Bug #2: ; Unfortunately, the above expansion is still incorrect (as Jens-Axel ; Soegaard pointed out, 4-Jun-2007) because ib-rhs are evaluated even ; if ne1?-value is #f, indicating that the loop has ended. ; The problem manifests itself in the following example: ; ; (do-ec (:while (:list x '(1)) #t) (display x)) ; ; Which iterates :list beyond exhausting the list '(1). ; ; For the fix, we follow Jens-Axel's approach of guarding the evaluation ; of ib-rhs with a check on ne1?-value. (define-syntax :while-1 (syntax-rules (:do let) ((:while-1 cc test (:do olet lbs ne1? ilet ne2? lss)) (:while-2 cc test () () () (:do olet lbs ne1? ilet ne2? lss))))) (define-syntax :while-2 (syntax-rules (:do let) ((:while-2 cc test (ib-let ...) (ib-save ...) (ib-restore ...) (:do olet lbs ne1? (let ((ib-var ib-rhs) ib ...) ic ...) ne2? lss)) (:while-2 cc test (ib-let ... (ib-tmp #f)) (ib-save ... (ib-var ib-rhs)) (ib-restore ... (ib-var ib-tmp)) (:do olet lbs ne1? (let (ib ...) ic ... (set! ib-tmp ib-var)) ne2? lss))) ((:while-2 cc test (ib-let ...) (ib-save ...) (ib-restore ...) (:do (let (ob ...) oc ...) lbs ne1? (let () ic ...) ne2? lss)) (:do cc (let (ob ... ib-let ...) oc ...) lbs (let ((ne1?-value ne1?)) (and ne1?-value (let (ib-save ...) ic ... test))) (let (ib-restore ...)) ne2? lss)))) (define-syntax :until (syntax-rules () ((:until cc (g arg1 arg ...) test) (g (:until-1 cc test) arg1 arg ...) ))) (define-syntax :until-1 (syntax-rules (:do) ((:until-1 cc test (:do olet lbs ne1? ilet ne2? lss)) (:do cc olet lbs ne1? ilet (and ne2? (not test)) lss) ))) ; ========================================================================== ; The typed generators :list :string :vector etc. ; ========================================================================== (define-syntax :list (syntax-rules (index) ((:list cc var (index i) arg ...) (:parallel cc (:list var arg ...) (:integers i)) ) ((:list cc var arg1 arg2 arg ...) (:list cc var (append arg1 arg2 arg ...)) ) ((:list cc var arg) (:do cc (let ()) ((t arg)) (not (null? t)) (let ((var (car t)))) #t ((cdr t)) )))) (define-syntax :string (syntax-rules (index) ((:string cc var (index i) arg) (:do cc (let ((str arg) (len 0)) (set! len (string-length str))) ((i 0)) (< i len) (let ((var (string-ref str i)))) #t ((+ i 1)) )) ((:string cc var (index i) arg1 arg2 arg ...) (:string cc var (index i) (string-append arg1 arg2 arg ...)) ) ((:string cc var arg1 arg ...) (:string cc var (index i) arg1 arg ...) ))) ; Alternative: An implementation in the style of :vector can also ; be used for :string. However, it is less interesting as the ; overhead of string-append is much less than for 'vector-append'. (define-syntax :vector (syntax-rules (index) ((:vector cc var arg) (:vector cc var (index i) arg) ) ((:vector cc var (index i) arg) (:do cc (let ((vec arg) (len 0)) (set! len (vector-length vec))) ((i 0)) (< i len) (let ((var (vector-ref vec i)))) #t ((+ i 1)) )) ((:vector cc var (index i) arg1 arg2 arg ...) (:parallel cc (:vector cc var arg1 arg2 arg ...) (:integers i)) ) ((:vector cc var arg1 arg2 arg ...) (:do cc (let ((vec #f) (len 0) (vecs (ec-:vector-filter (list arg1 arg2 arg ...))) )) ((k 0)) (if (< k len) #t (if (null? vecs) #f (begin (set! vec (car vecs)) (set! vecs (cdr vecs)) (set! len (vector-length vec)) (set! k 0) #t ))) (let ((var (vector-ref vec k)))) #t ((+ k 1)) )))) (define (ec-:vector-filter vecs) (if (null? vecs) '() (if (zero? (vector-length (car vecs))) (ec-:vector-filter (cdr vecs)) (cons (car vecs) (ec-:vector-filter (cdr vecs))) ))) ; Alternative: A simpler implementation for :vector uses vector->list ; append and :list in the multi-argument case. Please refer to the ; 'design.scm' for more details. (define-syntax :integers (syntax-rules (index) ((:integers cc var (index i)) (:do cc ((var 0) (i 0)) #t ((+ var 1) (+ i 1))) ) ((:integers cc var) (:do cc ((var 0)) #t ((+ var 1))) ))) (define-syntax :range (syntax-rules (index) ; handle index variable and add optional args ((:range cc var (index i) arg1 arg ...) (:parallel cc (:range var arg1 arg ...) (:integers i)) ) ((:range cc var arg1) (:range cc var 0 arg1 1) ) ((:range cc var arg1 arg2) (:range cc var arg1 arg2 1) ) ; special cases (partially evaluated by hand from general case) ((:range cc var 0 arg2 1) (:do cc (let ((b arg2)) (if (not (and (integer? b) (exact? b))) (error "arguments of :range are not exact integer " "(use :real-range?)" 0 b 1 ))) ((var 0)) (< var b) (let ()) #t ((+ var 1)) )) ((:range cc var 0 arg2 -1) (:do cc (let ((b arg2)) (if (not (and (integer? b) (exact? b))) (error "arguments of :range are not exact integer " "(use :real-range?)" 0 b 1 ))) ((var 0)) (> var b) (let ()) #t ((- var 1)) )) ((:range cc var arg1 arg2 1) (:do cc (let ((a arg1) (b arg2)) (if (not (and (integer? a) (exact? a) (integer? b) (exact? b) )) (error "arguments of :range are not exact integer " "(use :real-range?)" a b 1 )) ) ((var a)) (< var b) (let ()) #t ((+ var 1)) )) ((:range cc var arg1 arg2 -1) (:do cc (let ((a arg1) (b arg2) (s -1) (stop 0)) (if (not (and (integer? a) (exact? a) (integer? b) (exact? b) )) (error "arguments of :range are not exact integer " "(use :real-range?)" a b -1 )) ) ((var a)) (> var b) (let ()) #t ((- var 1)) )) ; the general case ((:range cc var arg1 arg2 arg3) (:do cc (let ((a arg1) (b arg2) (s arg3) (stop 0)) (if (not (and (integer? a) (exact? a) (integer? b) (exact? b) (integer? s) (exact? s) )) (error "arguments of :range are not exact integer " "(use :real-range?)" a b s )) (if (zero? s) (error "step size must not be zero in :range") ) (set! stop (+ a (* (max 0 (ceiling (/ (- b a) s))) s))) ) ((var a)) (not (= var stop)) (let ()) #t ((+ var s)) )))) ; Comment: The macro :range inserts some code to make sure the values ; are exact integers. This overhead has proven very helpful for ; saving users from themselves. (define-syntax :real-range (syntax-rules (index) ; add optional args and index variable ((:real-range cc var arg1) (:real-range cc var (index i) 0 arg1 1) ) ((:real-range cc var (index i) arg1) (:real-range cc var (index i) 0 arg1 1) ) ((:real-range cc var arg1 arg2) (:real-range cc var (index i) arg1 arg2 1) ) ((:real-range cc var (index i) arg1 arg2) (:real-range cc var (index i) arg1 arg2 1) ) ((:real-range cc var arg1 arg2 arg3) (:real-range cc var (index i) arg1 arg2 arg3) ) ; the fully qualified case ((:real-range cc var (index i) arg1 arg2 arg3) (:do cc (let ((a arg1) (b arg2) (s arg3) (istop 0)) (if (not (and (real? a) (real? b) (real? s))) (error "arguments of :real-range are not real" a b s) ) (if (and (exact? a) (or (not (exact? b)) (not (exact? s)))) (set! a (exact->inexact a)) ) (set! istop (/ (- b a) s)) ) ((i 0)) (< i istop) (let ((var (+ a (* s i))))) #t ((+ i 1)) )))) ; Comment: The macro :real-range adapts the exactness of the start ; value in case any of the other values is inexact. This is a ; precaution to avoid (list-ec (: x 0 3.0) x) => '(0 1.0 2.0). (define-syntax :char-range (syntax-rules (index) ((:char-range cc var (index i) arg1 arg2) (:parallel cc (:char-range var arg1 arg2) (:integers i)) ) ((:char-range cc var arg1 arg2) (:do cc (let ((imax (char->integer arg2)))) ((i (char->integer arg1))) (<= i imax) (let ((var (integer->char i)))) #t ((+ i 1)) )))) ; Warning: There is no R5RS-way to implement the :char-range generator ; because the integers obtained by char->integer are not necessarily ; consecutive. We simply assume this anyhow for illustration. (define-syntax :port (syntax-rules (index) ((:port cc var (index i) arg1 arg ...) (:parallel cc (:port var arg1 arg ...) (:integers i)) ) ((:port cc var arg) (:port cc var arg read) ) ((:port cc var arg1 arg2) (:do cc (let ((port arg1) (read-proc arg2))) ((var (read-proc port))) (not (eof-object? var)) (let ()) #t ((read-proc port)) )))) ; ========================================================================== ; The typed generator :dispatched and utilities for constructing dispatchers ; ========================================================================== (define-syntax :dispatched (syntax-rules (index) ((:dispatched cc var (index i) dispatch arg1 arg ...) (:parallel cc (:integers i) (:dispatched var dispatch arg1 arg ...) )) ((:dispatched cc var dispatch arg1 arg ...) (:do cc (let ((d dispatch) (args (list arg1 arg ...)) (g #f) (empty (list #f)) ) (set! g (d args)) (if (not (procedure? g)) (error "unrecognized arguments in dispatching" args (d '()) ))) ((var (g empty))) (not (eq? var empty)) (let ()) #t ((g empty)) )))) ; Comment: The unique object empty is created as a newly allocated ; non-empty list. It is compared using eq? which distinguishes ; the object from any other object, according to R5RS 6.1. (define-syntax :generator-proc (syntax-rules (:do let) ; call g with a variable, reentry at (**) ((:generator-proc (g arg ...)) (g (:generator-proc var) var arg ...) ) ; reentry point (**) -> make the code from a single :do ((:generator-proc var (:do (let obs oc ...) ((lv li) ...) ne1? (let ((i v) ...) ic ...) ne2? (ls ...)) ) (ec-simplify (let obs oc ... (let ((lv li) ... (ne2 #t)) (ec-simplify (let ((i #f) ...) ; v not yet valid (lambda (empty) (if (and ne1? ne2) (ec-simplify (begin (set! i v) ... ic ... (let ((value var)) (ec-simplify (if ne2? (ec-simplify (begin (set! lv ls) ...) ) (set! ne2 #f) )) value ))) empty )))))))) ; silence warnings of some macro expanders ((:generator-proc var) (error "illegal macro call") ))) (define (dispatch-union d1 d2) (lambda (args) (let ((g1 (d1 args)) (g2 (d2 args))) (if g1 (if g2 (if (null? args) (append (if (list? g1) g1 (list g1)) (if (list? g2) g2 (list g2)) ) (error "dispatching conflict" args (d1 '()) (d2 '())) ) g1 ) (if g2 g2 #f) )))) ; ========================================================================== ; The dispatching generator : ; ========================================================================== (define (make-initial-:-dispatch) (lambda (args) (case (length args) ((0) 'SRFI42) ((1) (let ((a1 (car args))) (cond ((list? a1) (:generator-proc (:list a1)) ) ((string? a1) (:generator-proc (:string a1)) ) ((vector? a1) (:generator-proc (:vector a1)) ) ((and (integer? a1) (exact? a1)) (:generator-proc (:range a1)) ) ((real? a1) (:generator-proc (:real-range a1)) ) ((input-port? a1) (:generator-proc (:port a1)) ) (else #f )))) ((2) (let ((a1 (car args)) (a2 (cadr args))) (cond ((and (list? a1) (list? a2)) (:generator-proc (:list a1 a2)) ) ((and (string? a1) (string? a1)) (:generator-proc (:string a1 a2)) ) ((and (vector? a1) (vector? a2)) (:generator-proc (:vector a1 a2)) ) ((and (integer? a1) (exact? a1) (integer? a2) (exact? a2)) (:generator-proc (:range a1 a2)) ) ((and (real? a1) (real? a2)) (:generator-proc (:real-range a1 a2)) ) ((and (char? a1) (char? a2)) (:generator-proc (:char-range a1 a2)) ) ((and (input-port? a1) (procedure? a2)) (:generator-proc (:port a1 a2)) ) (else #f )))) ((3) (let ((a1 (car args)) (a2 (cadr args)) (a3 (caddr args))) (cond ((and (list? a1) (list? a2) (list? a3)) (:generator-proc (:list a1 a2 a3)) ) ((and (string? a1) (string? a1) (string? a3)) (:generator-proc (:string a1 a2 a3)) ) ((and (vector? a1) (vector? a2) (vector? a3)) (:generator-proc (:vector a1 a2 a3)) ) ((and (integer? a1) (exact? a1) (integer? a2) (exact? a2) (integer? a3) (exact? a3)) (:generator-proc (:range a1 a2 a3)) ) ((and (real? a1) (real? a2) (real? a3)) (:generator-proc (:real-range a1 a2 a3)) ) (else #f )))) (else (letrec ((every? (lambda (pred args) (if (null? args) #t (and (pred (car args)) (every? pred (cdr args)) ))))) (cond ((every? list? args) (:generator-proc (:list (apply append args))) ) ((every? string? args) (:generator-proc (:string (apply string-append args))) ) ((every? vector? args) (:generator-proc (:list (apply append (map vector->list args)))) ) (else #f ))))))) (define :-dispatch (make-initial-:-dispatch) ) (define (:-dispatch-ref) :-dispatch ) (define (:-dispatch-set! dispatch) (if (not (procedure? dispatch)) (error "not a procedure" dispatch) ) (set! :-dispatch dispatch) ) (define-syntax : (syntax-rules (index) ((: cc var (index i) arg1 arg ...) (:dispatched cc var (index i) :-dispatch arg1 arg ...) ) ((: cc var arg1 arg ...) (:dispatched cc var :-dispatch arg1 arg ...) ))) ; ========================================================================== ; The utility comprehensions fold-ec, fold3-ec ; ========================================================================== (define-syntax fold3-ec (syntax-rules (nested) ((fold3-ec x0 (nested q1 ...) q etc1 etc2 etc3 etc ...) (fold3-ec x0 (nested q1 ... q) etc1 etc2 etc3 etc ...) ) ((fold3-ec x0 q1 q2 etc1 etc2 etc3 etc ...) (fold3-ec x0 (nested q1 q2) etc1 etc2 etc3 etc ...) ) ((fold3-ec x0 expression f1 f2) (fold3-ec x0 (nested) expression f1 f2) ) ((fold3-ec x0 qualifier expression f1 f2) (let ((result #f) (empty #t)) (do-ec qualifier (let ((value expression)) ; don't duplicate (if empty (begin (set! result (f1 value)) (set! empty #f) ) (set! result (f2 value result)) ))) (if empty x0 result) )))) (define-syntax fold-ec (syntax-rules (nested) ((fold-ec x0 (nested q1 ...) q etc1 etc2 etc ...) (fold-ec x0 (nested q1 ... q) etc1 etc2 etc ...) ) ((fold-ec x0 q1 q2 etc1 etc2 etc ...) (fold-ec x0 (nested q1 q2) etc1 etc2 etc ...) ) ((fold-ec x0 expression f2) (fold-ec x0 (nested) expression f2) ) ((fold-ec x0 qualifier expression f2) (let ((result x0)) (do-ec qualifier (set! result (f2 expression result))) result )))) ; ========================================================================== ; The comprehensions list-ec string-ec vector-ec etc. ; ========================================================================== (define-syntax list-ec (syntax-rules () ((list-ec etc1 etc ...) (reverse (fold-ec '() etc1 etc ... cons)) ))) ; Alternative: Reverse can safely be replaced by reverse! if you have it. ; ; Alternative: It is possible to construct the result in the correct order ; using set-cdr! to add at the tail. This removes the overhead of copying ; at the end, at the cost of more book-keeping. (define-syntax append-ec (syntax-rules () ((append-ec etc1 etc ...) (apply append (list-ec etc1 etc ...)) ))) (define-syntax string-ec (syntax-rules () ((string-ec etc1 etc ...) (list->string (list-ec etc1 etc ...)) ))) ; Alternative: For very long strings, the intermediate list may be a ; problem. A more space-aware implementation collect the characters ; in an intermediate list and when this list becomes too large it is ; converted into an intermediate string. At the end, the intermediate ; strings are concatenated with string-append. (define-syntax string-append-ec (syntax-rules () ((string-append-ec etc1 etc ...) (apply string-append (list-ec etc1 etc ...)) ))) (define-syntax vector-ec (syntax-rules () ((vector-ec etc1 etc ...) (list->vector (list-ec etc1 etc ...)) ))) ; Comment: A similar approach as for string-ec can be used for vector-ec. ; However, the space overhead for the intermediate list is much lower ; than for string-ec and as there is no vector-append, the intermediate ; vectors must be copied explicitly. (define-syntax vector-of-length-ec (syntax-rules (nested) ((vector-of-length-ec k (nested q1 ...) q etc1 etc ...) (vector-of-length-ec k (nested q1 ... q) etc1 etc ...) ) ((vector-of-length-ec k q1 q2 etc1 etc ...) (vector-of-length-ec k (nested q1 q2) etc1 etc ...) ) ((vector-of-length-ec k expression) (vector-of-length-ec k (nested) expression) ) ((vector-of-length-ec k qualifier expression) (let ((len k)) (let ((vec (make-vector len)) (i 0) ) (do-ec qualifier (if (< i len) (begin (vector-set! vec i expression) (set! i (+ i 1)) ) (error "vector is too short for the comprehension") )) (if (= i len) vec (error "vector is too long for the comprehension") )))))) (define-syntax sum-ec (syntax-rules () ((sum-ec etc1 etc ...) (fold-ec (+) etc1 etc ... +) ))) (define-syntax product-ec (syntax-rules () ((product-ec etc1 etc ...) (fold-ec (*) etc1 etc ... *) ))) (define-syntax min-ec (syntax-rules () ((min-ec etc1 etc ...) (fold3-ec (min) etc1 etc ... min min) ))) (define-syntax max-ec (syntax-rules () ((max-ec etc1 etc ...) (fold3-ec (max) etc1 etc ... max max) ))) (define-syntax last-ec (syntax-rules (nested) ((last-ec default (nested q1 ...) q etc1 etc ...) (last-ec default (nested q1 ... q) etc1 etc ...) ) ((last-ec default q1 q2 etc1 etc ...) (last-ec default (nested q1 q2) etc1 etc ...) ) ((last-ec default expression) (last-ec default (nested) expression) ) ((last-ec default qualifier expression) (let ((result default)) (do-ec qualifier (set! result expression)) result )))) ; ========================================================================== ; The fundamental early-stopping comprehension first-ec ; ========================================================================== (define-syntax first-ec (syntax-rules (nested) ((first-ec default (nested q1 ...) q etc1 etc ...) (first-ec default (nested q1 ... q) etc1 etc ...) ) ((first-ec default q1 q2 etc1 etc ...) (first-ec default (nested q1 q2) etc1 etc ...) ) ((first-ec default expression) (first-ec default (nested) expression) ) ((first-ec default qualifier expression) (let ((result default) (stop #f)) (ec-guarded-do-ec stop (nested qualifier) (begin (set! result expression) (set! stop #t) )) result )))) ; (ec-guarded-do-ec stop (nested q ...) cmd) ; constructs (do-ec q ... cmd) where the generators gen in q ... are ; replaced by (:until gen stop). (define-syntax ec-guarded-do-ec (syntax-rules (nested if not and or begin) ((ec-guarded-do-ec stop (nested (nested q1 ...) q2 ...) cmd) (ec-guarded-do-ec stop (nested q1 ... q2 ...) cmd) ) ((ec-guarded-do-ec stop (nested (if test) q ...) cmd) (if test (ec-guarded-do-ec stop (nested q ...) cmd)) ) ((ec-guarded-do-ec stop (nested (not test) q ...) cmd) (if (not test) (ec-guarded-do-ec stop (nested q ...) cmd)) ) ((ec-guarded-do-ec stop (nested (and test ...) q ...) cmd) (if (and test ...) (ec-guarded-do-ec stop (nested q ...) cmd)) ) ((ec-guarded-do-ec stop (nested (or test ...) q ...) cmd) (if (or test ...) (ec-guarded-do-ec stop (nested q ...) cmd)) ) ((ec-guarded-do-ec stop (nested (begin etc ...) q ...) cmd) (begin etc ... (ec-guarded-do-ec stop (nested q ...) cmd)) ) ((ec-guarded-do-ec stop (nested gen q ...) cmd) (do-ec (:until gen stop) (ec-guarded-do-ec stop (nested q ...) cmd) )) ((ec-guarded-do-ec stop (nested) cmd) (do-ec cmd) ))) ; Alternative: Instead of modifying the generator with :until, it is ; possible to use call-with-current-continuation: ; ; (define-synatx first-ec ; ...same as above... ; ((first-ec default qualifier expression) ; (call-with-current-continuation ; (lambda (cc) ; (do-ec qualifier (cc expression)) ; default ))) )) ; ; This is much simpler but not necessarily as efficient. ; ========================================================================== ; The early-stopping comprehensions any?-ec every?-ec ; ========================================================================== (define-syntax any?-ec (syntax-rules (nested) ((any?-ec (nested q1 ...) q etc1 etc ...) (any?-ec (nested q1 ... q) etc1 etc ...) ) ((any?-ec q1 q2 etc1 etc ...) (any?-ec (nested q1 q2) etc1 etc ...) ) ((any?-ec expression) (any?-ec (nested) expression) ) ((any?-ec qualifier expression) (first-ec #f qualifier (if expression) #t) ))) (define-syntax every?-ec (syntax-rules (nested) ((every?-ec (nested q1 ...) q etc1 etc ...) (every?-ec (nested q1 ... q) etc1 etc ...) ) ((every?-ec q1 q2 etc1 etc ...) (every?-ec (nested q1 q2) etc1 etc ...) ) ((every?-ec expression) (every?-ec (nested) expression) ) ((every?-ec qualifier expression) (first-ec #t qualifier (if (not expression)) #f) ))) ) ����������������������������������������������������������������������chicken-5.1.0/tests/heap-literal-stress-test.scm����������������������������������������������������0000644�0001750�0001750�00000000736�13213463160�021447� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; This allocates several large objects directly in the heap via the ;; toplevel entry point, for a total of about 10MB on 64-bit machines. ;; This guards against regressions in heap reallocation (#1221). (define-syntax generate-literals (ir-macro-transformer (lambda (i r c) (let lp ((i 0) (exprs '())) (if (= i 1000) (cons 'begin exprs) (lp (add1 i) (cons `(define ,(gensym) (quote ,(make-vector 1000))) exprs))))))) (generate-literals) ����������������������������������chicken-5.1.0/tests/callback-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000000554�13370655400�017500� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; callback-tests.scm (import (only (chicken process-context) command-line-arguments)) (define k1) (define-external (foo) void (call/cc (lambda (k) (set! k1 k))) (print "hi!")) #> extern void foo(); static void bar() { foo(); } <# (print "callbacks ...") ((foreign-safe-lambda void "bar")) (when (member "twice" (command-line-arguments)) (k1 #f)) ����������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reexport-m2.scm�����������������������������������������������������������������0000644�0001750�0001750�00000000221�13370655400�016757� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; module importing from module that reexports core binding (module foo () (import scheme (chicken base) reexport-m1) (print (cons 1 2))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/simple-functors-test.scm��������������������������������������������������������0000644�0001750�0001750�00000000514�13370655400�020707� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; simple-functors-test.scm (define-interface STUFF (a b)) (module foo ((interface: STUFF)) ; test long spec (import scheme) (define a 1) (define b 2)) (functor (do-things (arg STUFF)) (do-it) (import scheme arg) (define (do-it) (list a b))) (module bar = (do-things foo)) (import bar) (assert (equal? '(1 2) (do-it))) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/module-static-link.scm����������������������������������������������������������0000644�0001750�0001750�00000000120�13370655400�020276� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module main () (import scheme chicken.base sample-module) (assert (= foo 42))) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/numbers-test.scm����������������������������������������������������������������0000644�0001750�0001750�00000232746�13370655400�017246� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; numbers-test.scm (include "test.scm") (import (chicken bitwise) (chicken fixnum) (chicken flonum) (chicken format) (chicken platform) (chicken time)) ;; The default "comparator" doesn't know how to deal with extended number types (current-test-comparator (lambda (exp act) (or (equal? exp act) (if (or (and (cplxnum? exp) (number? act)) (and (cplxnum? act) (number? exp))) (and (< (abs (real-part (- exp act))) (current-test-epsilon)) (< (abs (imag-part (- exp act))) (current-test-epsilon))) (and (number? exp) (inexact? exp) (< (abs (- 1 (abs (if (zero? act) (+ 1 exp) (/ exp act))))) (current-test-epsilon))))))) (test-begin "numbers") (current-test-epsilon 0) ;; We want exact comparisons (define max-fix most-positive-fixnum) (define min-fix most-negative-fixnum) ;; The minimal bignum in the sense that any smaller makes it a fixnum (define min-big (+ most-positive-fixnum 1)) (define 64-bits? (feature? #:64bit)) (define (show x) (print (and x (number->string x))) x) ;(set-gc-report! #t) (define max2 (+ max-fix max-fix)) (define b1 (+ 22 max2)) ; 2147483668 or 4611686018427387928 (define c1 (make-rectangular 33 44)) (define c2 (make-rectangular -1.2 44)) (define b2 (- min-fix 22)) (define r1 (/ 33 44)) (define r2 (/ 1000 44)) ;; Found with the pi-ratios benchmark (find-pi 10 20 50) (define pi 3.14159265358979323881089001960817518141234854964894) (define ratpi 314159265358979323881089001960817518141234854964894/100000000000000000000000000000000000000000000000000) (test-group "basic constructors" (test-assert "some bignum (twice maxint)" (show max2)) (test-assert "some other bignum (2147483668 or 9223372036854775828)" (show b1)) (test-assert "negative bignum" (show b2)) (test-assert "exact complex" (show c1)) (test-assert "inexact complex" (show c2)) (test-assert "rational" (show r1)) ) (test-group "addition" (test-equal "+: no arguments" (+) 0) (test-equal "+: single argument" (+ 33) 33) (test-equal "+: adding fixnums" (+ 33 44) 77) (test-equal "+: adding fixnums (2nd negative)" (+ 33 -44) -11) (test-equal "+: adding fix/flo" (+ 33 44.5) 77.5) (test-assert "+: adding fix/big" (show (+ 22 max2))) (test-assert "+: adding fix/rat" (show (+ 22 r1))) (test-equal "+: adding fix/complex" (+ 99 c1) (make-rectangular 132 44)) (test-equal "+: adding complex/fix (inexact)" (+ c2 99) (make-rectangular 97.8 44)) (test-equal "+: flo/flo" (+ 3.4 5.6) 9.0) (test-equal "+: flo/big" (+ 3.4 b1) (if 64-bits? 9223372036854775809.4 2147483671.4)) (test-assert "+: flo/rat" (show (+ 33.4 r1))) (test-equal "+: flo/comp" (+ 3.4 c1) (make-rectangular 36.4 44)) (test-assert "+: big/rat" (show (+ b1 r1))) (test-equal "+: comp+comp" (+ c1 c1) (make-rectangular 66 88)) (test-equal "+: comp+comp (inexact)" (+ c1 c2) (make-rectangular 31.8 88)) (test-equal "+: multiarg" (+ 33 44 55) 132) ) (test-group "subtraction" (test-equal "-: negate fix" (- 33) -33) (test-equal "-: negate most negative fix" (- min-fix) min-big) (test-equal "abs: most negative fix" (abs most-negative-fixnum) min-big) (test-equal "-: negate flo" (- 33.2) -33.2) (test-assert "-: negate rat" (show (- r1))) (test-equal "-: double-negate big" (- (- b1)) b1) (test-equal "-: negate comp" (- c1) (make-rectangular -33 -44)) (test-equal "-: fixnums" (- 33 44) -11) (test-equal "-: fixnums (2nd negative)" (- 33 -44) 77) (test-assert "-: fixnums (overflow)" (show (- min-fix min-fix))) (test-equal "-: fix/flo" (- 33 44.5) -11.5) (test-equal "-: flo/fix" (- 44.5 33) 11.5) (test-assert "-: fix/big" (show (- 22 b2))) (test-assert "-: big/fix" (show (- b2 22))) (test-equal "-: big/fix (normalizing to fix)" (- min-big 1) max-fix) (test-assert "-: fix/rat" (show (- 22 r1))) (test-assert "-: rat/fix" (show (- r1 22))) (test-equal "-: fix/complex" (- 99 c1) (make-rectangular 66 -44)) (test-equal "-: complex/fix" (- c1 99) (make-rectangular -66 44)) (test-equal "-: complex/fix (inexact)" (- c2 99) (make-rectangular -100.2 44)) (test-equal "-: fix/complex (inexact)" (- 99 c2) (make-rectangular 100.2 -44)) (test-equal "-: fix/complex (negative im)" (- 99 1+2i) 98-2i) (test-equal "-: fix/complex (negative im, inexact)" (- 99 1.0+2.0i) 98.0-2.0i) (test-equal "-: fix/complex (negative real, inexact)" (- 99 -1.0+2.0i) 100.0-2.0i) (test-equal "-: rat/complex (negative real)" (- 3/2 -1+2i) 5/2-2i) (parameterize ((current-test-epsilon 1e-10)) (test-equal "-: flo/flo" (- 5.6 3.4) 2.2)) (test-assert "-: flo/big" (show (- 3.4 b1))) (test-assert "-: big/flo" (show (- b1 3.4))) (test-assert "-: flo/rat" (show (- 3.4 r1))) (test-assert "-: rat/flo" (show (- r1 3.4))) (test-assert "-: big/rat" (show (- b1 r1))) (test-assert "-: rat/big" (show (- r1 b1))) (test-equal "-: flo/comp" (- 3.4 c1) (make-rectangular -29.6 -44)) (test-equal "-: comp/flo" (- c1 3.4) (make-rectangular 29.6 44)) (test-equal "-: comp-comp" (- c1 c1) 0) (test-equal "-: comp-comp (inexact)" (- c1 c2) 34.2) (test-equal "-: multiarg" (- 33 44 55) -66) ) (test-group "multiplication" (test-equal "*: no arguments" (*) 1) (test-equal "*: single argument" (* 33) 33) (test-equal "*: multiplying fixnums" (* 33 44) 1452) (test-equal "*: multiplying fixnums (2nd negative)" (* 33 -44) -1452) (test-equal "*: multiplying fix/flo" (* 33 44.5) 1468.5) (test-assert "*: multiplying fix/big (-> 47244640212)" (show (* 22 max2))) (test-assert "*: multiplying fix/rat" (show (* 33 r1))) (test-equal "*: multiplying fix/complex" (* 99 c1) (make-rectangular 3267 4356)) (test-equal "*: multiplying complex/fix (inexact)" (* c2 99) (make-rectangular -118.8 4356.0)) (test-equal "*: multiplying most negative fixnum by one (edge case)" (list (* most-negative-fixnum 1) (fixnum? (* most-negative-fixnum 1))) (list most-negative-fixnum #t)) (test-equal "*: flo/flo" (* 3.4 5.6) 19.04) (test-equal "*: flo/big" (* 0.001 b1) (if 64-bits? 9223372036854775.806 2147483.668)) (test-assert "*: flo/rat" (show (* 3.4 r1))) (test-assert "*: big/rat" (show (* b1 r1))) (test-equal "*: flo/comp" (* 3.4 c1) (make-rectangular 112.2 149.6)) (test-equal "*: comp*comp" (* c1 c1) (make-rectangular -847 2904)) (test-equal "*: comp*comp (inexact)" (* c1 c2) (make-rectangular -1975.6 1399.2)) (test-equal "*: multiarg" (* 33 44 55) 79860) ) (test-group "division" (test-assert "/: rec. fix" (show (/ 33))) (test-assert "/: rec. flo" (show (/ 33.2))) (test-assert "/: rec. rat" (show (/ r1))) (test-assert "/: rec. big" (show (/ b1))) (test-assert "/: rec. comp" (/ c1)) (test-assert "/: fixnums" (show (/ 33 44))) (test-equal "/: fixnums (both negative, fixnum result)" (show (/ -2 -2)) 1) (test-assert "/: fixnums (2nd negative)" (show (/ 33 -44))) (test-assert "/: fixnums" (show (/ min-fix min-fix))) (test-equal "/: fix/flo" (/ 33 44.5) (fp/ 33.0 44.5)) (test-equal "/: flo/fix" (/ 44.5 33) (fp/ 44.5 33.0)) (test-assert "/: fix/big" (show (/ 22 b2))) (test-assert "/: big/fix" (show (/ b2 22))) (test-assert "/: fix/rat" (show (/ 22 r1))) (test-assert "/: rat/fix" (show (/ r1 22))) (test-assert "/: fix/complex" (show (/ 99 c1))) (test-assert "/: complex/fix" (show (/ c1 99))) (test-assert "/: complex/fix (inexact)" (show (- c2 99))) (test-assert "/: fix/complex (inexact)" (show (- 99 c2))) (test-equal "/: flo/flo" (/ 5.6 3.4) (fp/ 5.6 3.4)) (test-assert "/: flo/big" (show (/ 3.4 b1))) (test-assert "/: big/flo" (show (/ b1 3.4))) (test-assert "/: flo/rat" (show (/ 3.4 r1))) (test-assert "/: rat/flo" (show (/ r1 3.4))) (test-assert "/: big/rat" (show (/ b1 r1))) (test-assert "/: rat/big" (show (/ r1 b1))) (test-assert "/: rat/rat" (show (/ r1 r1))) (test-assert "/: flo/comp" (show (/ 3.4 c1))) (test-assert "/: comp/flo" (show (/ c1 3.4))) (test-assert "/: comp/comp" (show (/ c1 c1))) (test-assert "/: comp/comp (inexact)" (show (/ c1 c2))) (test-equal "/: rat/complex" (/ 1/2 1+2i) 1/10-1/5i) (test-equal "/: rat/complex (negative im)" (/ 1/2 1-2i) 1/10+1/5i) (test-equal "/: rat/complex (negative real)" (/ 1/2 -1+2i) -1/10-1/5i) (test-equal "/: rat/complex (negative real&im)" (/ 1/2 -1-2i) -1/10+1/5i) (test-assert "/: multiarg" (show (/ 66 2 44))) (test-error "/: div fixnum by 0" (/ 33 0)) ;; R7RS says it is an error if any but the first argument is an exact ;; zero. R5RS doesn't say anything at all (??). (test-error "/: div flonum by 0" (/ 33.0 0)) (test-equal "/: div fixnum by 0.0" (/ 33 0.0) +inf.0) (test-equal "/: div flonum by 0.0" (/ 33.0 0.0) +inf.0) (test-equal "/: div by 0 (inexact)" (/ 33 0.0) +inf.0) (test-assert "/: big result" (show (/ b1 2))) ) (test-group "quotient" (test-equal "quotient: fix/fix" (quotient 22 11) 2) (test-equal "quotient: fix/big" (quotient 22 b1) 0) (test-equal "quotient: fix/big (most negative)" (quotient min-fix (- min-fix)) -1) (test-equal "quotient: big/fix (most negative)" (quotient (- min-fix) min-fix) -1) (test-equal "quotient: fix/fix (most negative)" (quotient min-fix -1) (* min-fix -1)) (test-equal "quotient: flo/flo" (quotient 22.0 11.0) 2.0) (test-equal "quotient: fix/flo" (quotient 22 11.0) 2.0) (test-equal "quotient: flo/fix" (quotient 22.0 11) 2.0) (test-equal "quotient: flo/big" (quotient 22.0 b1) 0.0) (test-equal "quotient: big/flo" (quotient b1 (/ b1 2.0)) 2.0) (test-equal "quotient: big/big" (quotient (- min-fix) (- min-fix)) 1) (test-equal "quotient: big/big" (quotient (+ (- min-fix) 5) (- min-fix)) 1) (test-error "quotient: flo/flo (fractional)" (quotient 23.0 11.5)) (test-error "quotient: fix/flo (fractional)" (quotient 23 11.5)) (test-error "quotient: flo/fix (fractional)" (quotient 13.5 6)) ) (test-group "remainder" (test-equal "remainder: fix/fix" (remainder 22 11) 0) (test-equal "remainder: fix/big" (remainder 22 b1) 22) (test-equal "remainder: fix/big (most negative)" (remainder min-fix (- min-fix)) 0) (test-equal "remainder: big/fix (most negative)" (remainder (- min-fix) min-fix) 0) (test-equal "remainder: big/big" (remainder (- min-fix) (- min-fix)) 0) (test-equal "remainder: big/big" (remainder (+ (- min-fix) 5) (- min-fix)) 5) (test-equal "remainder: flo/flo" (remainder 22.0 11.0) 0.0) (test-equal "remainder: fix/flo" (remainder 22 11.0) 0.0) (test-equal "remainder: flo/fix" (remainder 22.0 11) 0.0) (unless 64-bits? ;; We lose so much precision when converting to double this makes no sense (test-equal "remainder: flo/big" (remainder 22.0 b1) 22.0)) (test-error "remainder: flo/flo (fractional)" (remainder 22.5 2.25)) (test-error "remainder: fix/flo (fractional)" (remainder 6 12.5)) (test-error "remainder: flo/fix (fractional)" (remainder 13.5 6)) (unless 64-bits? (test-error "remainder: flo/big (fractional)" (remainder (+ b1 0.5) b1))) ) (test-group "quotient&remainder" (test-equal "quotient&remainder: fix/fix" (receive (quotient&remainder 22 11)) '(2 0)) (test-equal "quotient&remainder: fix/big" (receive (quotient&remainder 22 b1)) '(0 22)) (test-equal "quotient&remainder: fix/big (most negative)" (receive (quotient&remainder min-fix (- min-fix))) '(-1 0)) (test-equal "quotient&remainder: big/fix (most negative)" (receive (quotient&remainder (- min-fix) min-fix)) '(-1 0)) (test-equal "quotient&remainder: fix/fix (most negative)" (receive (quotient&remainder min-fix -1)) `(,(* min-fix -1) 0)) (test-equal "quotient&remainder: big/big" (receive (quotient&remainder (- min-fix) (- min-fix))) '(1 0)) (test-equal "quotient&remainder: big/big" (receive (quotient&remainder (+ (- min-fix) 5) (- min-fix))) '(1 5)) (test-equal "quotient&remainder: flo/flo" (receive (quotient&remainder 22.0 4.0)) '(5.0 2.0)) (test-equal "quotient&remainder: flo/fix" (receive (quotient&remainder 22.0 4)) '(5.0 2.0)) (test-equal "quotient&remainder: fix/flo" (receive (quotient&remainder 22 4.0)) '(5.0 2.0)) (test-error "quotient&remainder: flo/fix (fractional)" (receive (quotient&remainder 0.1 2))) (test-error "quotient&remainder: flo/big (fractional)" (receive (quotient&remainder 0.5 b1))) (test-error "quotient&remainder: big/flo (fractional)" (receive (quotient&remainder b1 0.5))) ) (test-group "gcd" (test-equal "gcd: fix (64-bit)/big" (gcd 907947775416515 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) 1) (test-equal "gcd: big/big" (gcd 234897235923342343242 234790237101762305340234) 6) (test-equal (gcd) 0) (test-equal (gcd 6) 6) (test-equal (gcd -2) 2) (test-equal (gcd 6 8) 2) (test-equal (gcd 6 8 5) 1) (test-equal (gcd 6 -8 5) 1) (test-equal (gcd 6.0) 6.0) (test-equal (gcd 6.0 8.0) 2.0) (test-error (gcd 6.1)) (test-error (gcd 6.1 8.0)) (test-error (gcd 6.0 8.1)) (test-error (gcd +inf.0)) (test-error (gcd +nan.0)) (test-error (gcd 6.0 +inf.0)) (test-error (gcd +inf.0 6.0)) (test-error (gcd +nan.0 6.0)) (test-error (gcd 6.0 +nan.0)) (test-error (gcd 1+2i 3+4i)) (test-error (gcd 1/2 3/4))) (test-group "lcm" (test-equal (lcm) 1) (test-equal (lcm 5) 5) (test-equal (lcm -8) 8) (test-equal (lcm 6 8) 24) (test-equal (lcm 6 8 5) 120) (test-equal (lcm 6.0 8.0) 24.0) (test-error (lcm 6.1 8.0)) (test-error (lcm 6.0 8.1)) (test-error (lcm +inf.0)) (test-error (lcm +nan.0)) (test-error (lcm 6.0 +inf.0)) (test-error (lcm +inf.0 6.0)) (test-error (lcm +nan.0 6.0)) (test-error (lcm 6.0 +nan.0)) (test-error (lcm 1+2i 3+4i)) (test-error (lcm 1/2 3/4))) (test-group "equality" (test-equal "=: fix/fix" (= 33 33) #t) (test-equal "=: fix/flo" (= 33 33.0) #t) (test-equal "=: !fix/fix" (= 33 34) #f) (test-equal "=: !fix/flo" (= 33 33.1) #f) (test-equal "=: !fix/flo (overflow)" (= 9007199254740993 9007199254740992.0) #f) (test-equal "=: !fix/flo (inf)" (= 0 +inf.0) #f) (test-equal "=: !fix/flo (-inf)" (= 0 -inf.0) #f) (test-equal "=: !fix/flo (+nan)" (= 0 -nan.0) #f) (test-equal "=: flo/fix" (= 33.0 33) #t) (test-equal "=: !flo/fix (overflow)" (= 9007199254740992.0 9007199254740993) #f) (test-equal "=: !flo/fix (inf)" (= +inf.0 0) #f) (test-equal "=: !flo/fix (-inf)" (= -inf.0 0) #f) (test-equal "=: !flo/fix (+nan)" (= -nan.0 0) #f) (test-equal "=: flo/flo" (= 33.1 33.1) #t) (test-equal "=: !flo/flo" (= 33.1 -33.1) #f) ;; Flonums are only 53 bits of precision, so it will drop data. ;; Comparison is exact (unless 64-bits? (test-equal "=: big/flo" (= b1 (+ 0.0 b1)) #t)) (test-equal "=: big/big" (= b1 b1) #t) (test-equal "=: !big/big" (= b2 b1) #f) (test-equal "=: rat/flo" (= r1 (+ r1 0.0)) #t) (test-equal "=: rat/rat" (= r1 r1) #t) (test-equal "=: !rat/rat" (= r1 r2) #f) (test-equal "=: comp/comp" (= c1 c1) #t) (test-equal "=: !comp/comp" (= c1 c2) #f) ) (test-group "generic equality" (test-equal "equal?: fix/fix" (equal? 33 33) #t) (test-equal "equal?: fix/flo" (equal? 33 33.0) #f) (test-equal "equal?: !fix/fix" (equal? 33 34) #f) (test-equal "equal?: !fix/flo" (equal? 33 33.1) #f) (test-equal "equal?: flo/fix" (equal? 33.0 33) #f) (test-equal "equal?: flo/flo" (equal? 33.1 33.1) #t) (test-equal "equal?: !flo/flo" (equal? 33.1 -33.1) #f) (test-equal "equal?: big/flo" (equal? b1 (+ 0.0 b1)) #f) (test-equal "equal?: big/big" (equal? b1 b1) #t) (test-equal "equal?: big/big2" (equal? b1 (+ 1 b1 -1)) #t) (test-equal "equal?: !big/big" (equal? b2 b1) #f) (test-equal "equal?: rat/flo" (equal? r1 (+ r1 0.0)) #f) (test-equal "equal?: rat/rat" (equal? r1 r1) #t) (test-equal "equal?: !rat/rat" (equal? r1 r2) #f) (test-equal "equal?: comp/comp" (equal? c1 c1) #t) (test-equal "equal?: !comp/comp" (equal? c1 c2) #f) (test-equal "equal?: nan/nan" (equal? (/ 0.0 0.0) (/ 0.0 0.0)) #f) (test-equal "equal?: nan+nan/nan+nan" (equal? (make-rectangular (/ 0.0 0.0) (/ 0.0 0.0)) (make-rectangular (/ 0.0 0.0) (/ 0.0 0.0))) #f) ) (test-group "greater & greater/equal" (test-equal ">: fix/fix" (> 44 33) #t) (test-equal ">=: fix/fix" (>= 44 33) #t) (test-equal ">: fix/fix/fix" (> 44 33 22) #t) (test-equal ">=: fix/fix/fix" (>= 44 33 22) #t) (test-equal ">: !fix/fix" (> 33 44) #f) (test-equal ">=: !fix/fix" (>= 33 44) #f) (test-equal ">: !fix/fix/fix" (> 22 33 44) #f) (test-equal ">=: !fix/fix/fix" (>= 22 33 44) #f) (test-equal ">: fix/fix" (> 33 33) #f) (test-equal ">=: !fix/fix" (>= 33 33) #t) (test-equal ">: fix/flo" (> 44 33.0) #t) (test-equal ">=: fix/flo" (>= 44 33.0) #t) (test-equal ">: !fix/flo" (> 33 44.0) #f) (test-equal ">=: !fix/flo" (>= 33 44.0) #f) (test-equal ">: !fix/flo" (> 33 33.0) #f) (test-equal ">=: !fix/flo" (>= 33 33.0) #t) (test-equal ">: fix/flo (flo overflow), on 64 bits" (> 9007199254740993 9007199254740992.0) #t) ; 2^53 (test-equal ">=: fix/flo (flo overflow), on 64 bits" (>= 9007199254740993 9007199254740992.0) #t) (test-equal ">: fix/flo (flo underflow), on 64 bits" (> -9007199254740992 -9007199254740991.0) #f) (test-equal ">=: fix/flo (flo underflow), on 64 bits" (>= -9007199254740992 -9007199254740991.0) #f) (test-equal ">: fix/big" (> 44 b2) #t) (test-equal ">=: fix/big" (>= 44 b2) #t) (test-equal ">: !fix/big" (> 33 b1) #f) (test-equal ">=: !fix/big" (>= 33 b1) #f) (test-equal ">: fix/rat" (> 44 r1) #t) (test-equal ">=: fix/rat" (>= 44 r1) #t) (test-equal ">: !fix/rat" (> 0 r1) #f) (test-equal ">=: !fix/rat" (>= 0 r1) #f) (test-equal ">: flo/fix" (> 44.0 33) #t) (test-equal ">=: flo/fix" (>= 44.0 33) #t) (test-equal ">: !flo/fix" (> 33.0 44) #f) (test-equal ">=: !flo/fix" (>= 33.0 44) #f) (test-equal ">: !flo/fix" (> 33.0 33) #f) (test-equal ">=: flo/fix" (>= 33.0 33) #t) (test-equal ">: flo/flo" (> 44.0 33.0) #t) (test-equal ">=: flo/flo" (>= 44.0 33.0) #t) (test-equal ">: !flo/flo" (> 33.0 44.0) #f) (test-equal ">=: !flo/flo" (>= 33.0 44.0) #f) (test-equal ">: flo/big" (> 44.0 b2) #t) (test-equal ">=: flo/big" (>= 44.0 b2) #t) (test-equal ">: flo/fix (flo overflow), on 64 bits" (> 9007199254740992.0 9007199254740993) #f) ; 2^53 (test-equal ">=: flo/fix (flo overflow), on 64 bits" (>= 9007199254740992.0 9007199254740993) #f) (test-equal ">: fix/flo (flo underflow), on 64 bits" (> -9007199254740991.0 -9007199254740992) #t) (test-equal ">=: fix/flo (flo underflow), on 64 bits" (>= -9007199254740991.0 -9007199254740992) #t) (test-equal ">: flo/big (flo overflow)" (> 1237940039285380274899124224.0 1237940039285380274899124225) #f) (test-equal ">=: flo/big (flo overflow)" (>= 1237940039285380274899124224.0 1237940039285380274899124225) #f) (test-equal ">: !flo/big" (> 33.0 b1) #f) (test-equal ">=: !flo/big" (>= 33.0 b1) #f) (test-equal ">: flo/rat" (> 44.0 r1) #t) (test-equal ">=: flo/rat" (>= 44.0 r1) #t) (test-equal ">: !flo/rat" (> 0.0 r1) #f) (test-equal ">=: !flo/rat" (>= 0.0 r1) #f) (test-equal ">: !rat/rat" (> r1 r1) #f) (test-equal ">=: rat/rat" (>= r1 r1) #t) (test-equal ">: flo/nan" (> 0.0 +nan.0) #f) (test-equal ">=: flo/nan" (>= 0.0 +nan.0) #f) (test-equal ">: nan/flo" (> +nan.0 0.0) #f) (test-equal ">=: nan/flo" (>= +nan.0 0.0) #f) (test-equal ">: flo/flo/nan" (> 1.0 0.0 +nan.0) #f) (test-equal ">=: flo/flo/nan" (>= 1.0 0.0 +nan.0) #f) (test-equal ">: big/fix" (> b1 33) #t) (test-equal ">=: big/fix" (>= b1 33) #t) (test-equal ">: !big/fix" (> b2 44) #f) (test-equal ">=: !big/fix" (>= b2 44) #f) (test-equal ">: big/flo" (> b1 33.0) #t) (test-equal ">=: big/flo" (>= b1 33.0) #t) (test-equal ">: big/flo (flo overflow)" (> 1237940039285380274899124225 1237940039285380274899124224.0) #t) (test-equal ">=: big/flo (flo overflow)" (>= 1237940039285380274899124225 1237940039285380274899124224.0) #t) (test-equal ">: !big/flo" (> b2 44.0) #f) (test-equal ">=: !big/flo" (>= b2 44.0) #f) (test-equal ">: big/big" (> b1 b2) #t) (test-equal ">=: big/big" (>= b1 b2) #t) (test-equal ">: !big/big" (> b2 b1) #f) (test-equal ">=: !big/big" (>= b2 b1) #f) (test-equal ">: big/rat" (> b1 r1) #t) (test-equal ">=: big/rat" (>= b1 r1) #t) (test-equal ">: !big/rat" (> b2 r1) #f) (test-equal ">=: !big/rat" (>= b2 r1) #f) (test-equal ">: rat/fix" (> r1 2) #f) (test-equal ">=: rat/fix" (>= r1 2) #f) (test-equal ">: !rat/fix" (> r1 44) #f) (test-equal ">=: !rat/fix" (>= r1 44) #f) (test-equal ">: rat/flo" (> r2 2.0) #t) (test-equal ">=: rat/flo" (>= r2 2.0) #t) (test-equal ">: !rat/flo" (> b2 44.0) #f) (test-equal ">=: !rat/flo" (>= b2 44.0) #f) (test-equal ">: !rat/big" (> r1 b1) #f) (test-equal ">=: !rat/big" (>= r1 b1) #f) (test-equal ">: rat/rat" (> r2 r1) #t) (test-equal ">=: rat/rat" (>= r2 r1) #t) (test-equal ">: !rat/rat" (> r1 r2) #f) (test-equal ">=: !rat/rat" (>= r1 r2) #f) (test-equal ">: rat/flo (flo overflow)" (> 1237940039285380274899124224/1237940039285380274899124223 1.0) #t) (test-equal ">: rat/flo (flo overflow)" (> 1237940039285380274899124224/1237940039285380274899124223 1.5) #f) (test-equal ">=: rat/flo (flo overflow)" (>= 1237940039285380274899124224/1237940039285380274899124223 1.0) #t) (test-equal ">=: rat/flo (flo overflow)" (>= 1237940039285380274899124224/1237940039285380274899124223 1.5) #f) (test-equal ">: rat/flo (flo underflow)" (> -1237940039285380274899124224/1237940039285380274899124223 -1.0) #f) (test-equal ">: rat/flo (flo underflow)" (> -1237940039285380274899124224/1237940039285380274899124223 -1.5) #t) (test-equal ">=: rat/flo (flo underflow)" (>= -1237940039285380274899124224/1237940039285380274899124223 -1.0) #f) (test-equal ">=: rat/flo (flo underflow)" (>= -1237940039285380274899124224/1237940039285380274899124223 -1.5) #t) ) (test-group "less & less/equal" (test-equal "<: !fix/fix" (< 44 33) #f) (test-equal "<=: !fix/fix" (<= 44 33) #f) (test-equal "<: fix/fix/fix" (< 33 44 55) #t) (test-equal "<=: fix/fix/fix" (<= 33 44 55) #t) (test-equal "<: !fix/fix/fix" (< 33 55 44) #f) (test-equal "<=: !fix/fix/fix" (<= 33 55 44) #f) (test-equal "<: !fix/fix/fix" (< 44 33 55) #f) (test-equal "<=: !fix/fix/fix" (<= 44 33 55) #f) (test-equal "<: !fix/fix/fix" (< 44 44 44) #f) (test-equal "<=: fix/fix/fix" (<= 44 44 44) #t) (test-equal "<: fix/fix" (< 33 44) #t) (test-equal "<=: fix/fix" (<= 33 44) #t) (test-equal "<: !fix/fix" (< 33 33) #f) (test-equal "<=: fix/fix" (<= 33 33) #t) (test-equal "<: !fix/flo" (< 44 33.0) #f) (test-equal "<=: !fix/flo" (<= 44 33.0) #f) (test-equal "<: fix/flo" (< 33 44.0) #t) (test-equal "<=: fix/flo" (<= 33 44.0) #t) (test-equal "<: fix/flo (flo overflow), on 64 bits" (< 9007199254740993 9007199254740992.0) #f) ; 2^53 (test-equal "<=: fix/flo (flo overflow), on 64 bits" (< 9007199254740993 9007199254740992.0) #f) (test-equal "<: fix/flo (flo underflow), on 64 bits" (< -9007199254740993 -9007199254740992.0) #t) (test-equal "<=: fix/flo (flo underflow), on 64 bits" (<= -9007199254740993 -9007199254740992.0) #t) (test-equal "<: !fix/flo" (< 33.0 33.0) #f) (test-equal "<=: fix/flo" (<= 33.0 33.0) #t) (test-equal "<: !fix/big" (< 44 b2) #f) (test-equal "<=: !fix/big" (<= 44 b2) #f) (test-equal "<: fix/big" (< 33 b1) #t) (test-equal "<=: fix/big" (<= 33 b1) #t) (test-equal "<: !big/big" (< b1 b1) #f) (test-equal "<=: big/big" (<= b1 b1) #t) (test-equal "<: !fix/rat" (< 44 r1) #f) (test-equal "<=: !fix/rat" (<= 44 r1) #f) (test-equal "<: fix/rat" (< 0 r1) #t) (test-equal "<=: fix/rat" (<= 0 r1) #t) (test-equal "<: !flo/fix" (< 44.0 33) #f) (test-equal "<=: !flo/fix" (<= 44.0 33) #f) (test-equal "<: flo/fix" (< 33.0 44) #t) (test-equal "<=: flo/fix" (<= 33.0 44) #t) (test-equal "<: !flo/flo" (< 44.0 33.0) #f) (test-equal "<=: !flo/flo" (<= 44.0 33.0) #f) (test-equal "<: flo/flo" (< 33.0 44.0) #t) (test-equal "<=: flo/flo" (<= 33.0 44.0) #t) (test-equal "<: !flo/big" (< 44.0 b2) #f) (test-equal "<=: !flo/big" (<= 44.0 b2) #f) (test-equal "<: flo/big" (< 33.0 b1) #t) (test-equal "<=: flo/big" (<= 33.0 b1) #t) (test-equal "<: flo/fix (flo overflow), on 64 bits" (< 9007199254740992.0 9007199254740993) #t) ; 2^53 (test-equal "<=: flo/fix (flo overflow), on 64 bits" (< 9007199254740992.0 9007199254740993) #t) (test-equal "<: flo/fix (flo underflow), on 64 bits" (< -9007199254740992.0 -9007199254740993) #f) (test-equal "<=: flo/fix (flo underflow), on 64 bits" (<= -9007199254740992.0 -9007199254740993) #f) (test-equal "<: flo/big (flo overflow)" (< 1237940039285380274899124224.0 1237940039285380274899124225) #t) (test-equal "<=: flo/big (flo overflow)" (<= 1237940039285380274899124224.0 1237940039285380274899124225) #t) (test-equal "<: !flo/rat" (< 44.0 r1) #f) (test-equal "<=: !flo/rat" (<= 44.0 r1) #f) (test-equal "<: flo/rat" (< 0.0 r1) #t) (test-equal "<=: flo/rat" (<= 0.0 r1) #t) (test-equal "<: flo/nan" (< 0.0 +nan.0) #f) (test-equal "<=: flo/nan" (<= 0.0 +nan.0) #f) (test-equal "<: nan/flo" (< +nan.0 0.0) #f) (test-equal "<=: nan/flo" (<= +nan.0 0.0) #f) (test-equal "<: flo/flo/nan" (< 0.0 1.0 +nan.0) #f) (test-equal "<=: flo/flo/nan" (<= 0.0 1.0 +nan.0) #f) (test-equal "<: !big/fix" (< b1 33) #f) (test-equal "<=: !big/fix" (<= b1 33) #f) (test-equal "<: big/fix" (< b2 44) #t) (test-equal "<=: big/fix" (<= b2 44) #t) (test-equal "<: !big/flo" (< b1 33.0) #f) (test-equal "<=: !big/flo" (<= b1 33.0) #f) (test-equal "<: big/flo" (< b2 44.0) #t) (test-equal "<=: big/flo" (<= b2 44.0) #t) (test-equal "<: big/flo (max flo)" (< 1237940039285380274899124224 1237940039285380274899124224.0) #f) (test-equal "<=: big/flo (max flo)" (<= 1237940039285380274899124224 1237940039285380274899124224.0) #t) (test-equal "<: big/flo (max flo, smaller bignum)" (< 1237940039285380274899124223 1237940039285380274899124224.0) #t) (test-equal "<: big/flo (max flo, smaller bignum)" (<= 1237940039285380274899124223 1237940039285380274899124224.0) #t) (test-equal "<: !big/big" (< b1 b2) #f) (test-equal "<=: !big/big" (<= b1 b2) #f) (test-equal "<: big/big" (< b2 b1) #t) (test-equal "<=: big/big" (<= b2 b1) #t) (test-equal "<: !big/rat" (< b1 r1) #f) (test-equal "<=: !big/rat" (<= b1 r1) #f) (test-equal "<: big/rat" (< b2 r1) #t) (test-equal "<=: big/rat" (<= b2 r1) #t) (test-equal "<: !rat/fix" (< r2 2) #f) (test-equal "<=: !rat/fix" (<= r2 2) #f) (test-equal "<: rat/fix" (< r1 44) #t) (test-equal "<=: rat/fix" (<= r1 44) #t) (test-equal "<: !rat/flo" (< r2 2.0) #f) (test-equal "<=: !rat/flo" (<= r2 2.0) #f) (test-equal "<: rat/flo" (< b2 44.0) #t) (test-equal "<=: rat/flo" (<= b2 44.0) #t) (test-equal "<: rat/big" (< r1 b1) #t) (test-equal "<=: rat/big" (<= r1 b1) #t) (test-equal "<: !rat/rat" (< r2 r1) #f) (test-equal "<=: !rat/rat" (<= r2 r1) #f) (test-equal "<: rat/rat" (< r1 r2) #t) (test-equal "<=: rat/rat" (<= r1 r2) #t) (test-equal "<: rat/flo (flo overflow)" (< 1237940039285380274899124224/1237940039285380274899124223 1.0) #f) (test-equal "<: rat/flo (flo overflow)" (< 1237940039285380274899124224/1237940039285380274899124223 1.5) #t) (test-equal "<=: rat/flo (flo overflow)" (<= 1237940039285380274899124224/1237940039285380274899124223 1.0) #f) (test-equal "<=: rat/flo (flo overflow)" (<= 1237940039285380274899124224/1237940039285380274899124223 1.5) #t) (test-equal "<: rat/flo (flo underflow)" (< -1237940039285380274899124224/1237940039285380274899124223 -1.0) #t) (test-equal "<: rat/flo (flo underflow)" (< -1237940039285380274899124224/1237940039285380274899124223 -1.5) #f) (test-equal "<=: rat/flo (flo underflow)" (<= -1237940039285380274899124224/1237940039285380274899124223 -1.0) #t) (test-equal "<=: rat/flo (flo underflow)" (<= -1237940039285380274899124224/1237940039285380274899124223 -1.5) #f) ) (test-group "complex" (test-equal "real-part" (real-part c1) 33) (test-equal "real-part of flonum" (real-part 1.23) 1.23) (test-equal "real-part of fixnum" (real-part 123) 123) (test-equal "real-part of ratnum" (real-part 1/2) 1/2) (test-equal "real-part of bignum" (real-part b1) b1) (test-equal "real-part of negative flonum" (real-part -1.23) -1.23) (test-equal "real-part of negative fixnum" (real-part -123) -123) (test-equal "real-part of negative ratnum" (real-part -1/2) -1/2) (test-equal "real-part of negative bignum" (real-part (- b1)) (- b1)) (test-equal "imag-part" (imag-part c1) 44) (test-equal "imag-part of flonum" (imag-part 1.23) 0.0) (test-equal "imag-part of fixnum" (imag-part 123) 0) (test-equal "imag-part of ratnum" (imag-part 1/2) 0) (test-equal "imag-part of bignum" (imag-part b1) 0) (test-assert "make-polar" (show (make-polar 33 44))) (test-equal "magnitude" (magnitude 0+8i) 8) (test-equal "magnitude" (magnitude 0+1/2i) 1/2) (test-equal "magnitude of flonum" (magnitude 1.23) 1.23) (test-equal "magnitude of fixnum" (magnitude 123) 123) (test-equal "magnitude of ratnum" (magnitude 1/2) 1/2) (test-equal "magnitude of bignum" (magnitude b1) b1) (test-equal "magnitude of negative flonum" (magnitude -1.23) 1.23) (test-equal "magnitude of negative fixnum" (magnitude -123) 123) (test-equal "magnitude of negative ratnum" (magnitude -1/2) 1/2) (test-equal "magnitude of negative bignum" (magnitude (- b1)) b1) (test-assert "angle" (show (angle c1))) (test-equal "angle of flonum" (angle 1.23) 0.0) (test-equal "angle of fixnum" (angle 123) 0.0) (test-equal "angle of ratnum" (angle 1/2) 0.0) (test-equal "angle of bignum" (angle b1) 0.0) (test-equal "angle of negative flonum" (angle -1.23) pi) (test-equal "angle of negative fixnum" (angle -123) pi) (test-equal "angle of negative ratnum" (angle -1/2) pi) (test-equal "angle of negative bignum" (angle (- b1)) pi) ) (test-group "rational" ;; Use equal? instead of = to check equality and exactness in one go (parameterize ((current-test-comparator equal?)) (test-assert (show (numerator b1))) (test-equal (numerator r1) 3) (test-equal (numerator 33) 33) (test-equal (denominator r1) 4) (test-equal (denominator b1) 1) (test-equal (denominator 33) 1) (test-equal (numerator 0) 0) (test-equal (denominator 0) 1) (test-equal (numerator 3) 3) (test-equal (denominator 3) 1) (test-equal (numerator -3) -3) (test-equal (denominator -3) 1) (test-equal (numerator 0.5) 1.0) (test-equal (denominator 0.5) 2.0) (test-equal (numerator 1.25) 5.0) (test-equal (denominator 1.25) 4.0) (test-equal (numerator -1.25) -5.0) (test-equal (denominator -1.25) 4.0) (test-equal (numerator 1e10) 1e10) (test-equal (denominator 1e10) 1.0)) (test-error (numerator +inf.0)) (test-error (numerator +nan.0)) (test-error (denominator +inf.0)) (test-error (denominator +nan.0)) ) (test-group "misc" (test-equal "inexact->exact" (inexact->exact 2.3) 2589569785738035/1125899906842624) (test-error "inexact->exact +inf" (inexact->exact +inf.0)) (test-error "inexact->exact -inf" (inexact->exact -inf.0)) (test-error "inexact->exact -NaN" (inexact->exact +nan.0)) (test-equal "sqrt (integer result)" (sqrt 16) 4) (test-equal "sqrt (exact result)" (sqrt 1/4) 1/2) (parameterize ((current-test-epsilon 1e-10)) (test-equal "sqrt (inexact result)" (sqrt 2) 1.4142135623730951)) (test-equal "sqrt (inexact input)" (sqrt 4.0) 2.0) (test-equal "sqrt (exact large number)" (sqrt (* max-fix max-fix)) max-fix) (test-error "exact-integer-sqrt (nonint flonum)" (exact-integer-sqrt 1.5)) (test-error "exact-integer-sqrt (ratnum)" (exact-integer-sqrt 1/2)) (test-error "exact-integer-sqrt (int flonum)" (exact-integer-sqrt 4.0)) (test-equal "exact-integer-sqrt (w/o rest)" (receive x (exact-integer-sqrt (* max-fix max-fix)) x) (list max-fix 0)) (test-equal "exact-integer-sqrt (with rest)" (receive x (exact-integer-sqrt (+ (* max-fix max-fix) 5)) x) (list max-fix 5)) (test-equal "exact-integer-nth-root without rest" (receive x (exact-integer-nth-root 243 5) x) (list 3 0)) (test-equal "exact-integer-nth-root with rest" (receive x (exact-integer-nth-root 128 4) x) (list 3 47)) (test-equal "exact-integer-nth-root with insanely large base" (receive x (exact-integer-nth-root 5 (if 64-bits? 10000000000 100000000)) x) (list 1 4)) (test-equal "expt" (expt 2 4) 16) (test-assert "expt" (show (expt 2 100))) ;; The next three according to R7RS (test-equal "expt 0.0^0.0)" (expt 0.0 0.0) 1.0) (test-equal "expt 0.0^{pos}" (expt 0.0 1.0) 0.0) ;; An error is not mandatory: ;; "[...] either an error is signalled or an unspecified number is returned." ;(test-error "expt 0.0^{neg}" (expt 0.0 -1.0)) ;; R7 doesn't say anything specific about fixnums, so I guess this should behave the same (test-equal "expt 0^0" (expt 0 0) 1) (test-equal "expt 0^{pos}" (expt 0 1) 0) (test-error "expt 0^{neg}" (expt 0 -1)) (test-equal "expt (rat base)" (expt 1/2 2) 1/4) (test-equal "expt (rat exponent)" (expt 16 1/4) 2) (test-equal "expt (negative rat exponent)" (expt 16 -1/4) 1/2) (test-equal "expt (inexact from rat exponent)" (expt 2 1/7) 1.1040895136738123) (test-equal "expt (> 1 rat exponent)" (expt 1/64 3/2) 1/512) (test-equal "expt (rat base & exponent)" (expt 1/4 1/2) 1/2) (parameterize ((current-test-epsilon 1e-10)) (test-equal "expt (negative w/ rat exponent)" (expt -16 1/4) 1.4142135623731+1.41421356237309i)) (test-assert "expt" (show (expt 2 2.0))) (test-assert "expt" (show (expt 2 -1))) (test-equal "expt between double and 64-bit integer value" (expt 999 6) 994014980014994001) (parameterize ((current-test-epsilon 1e-10)) (test-equal "expt with complex result" (expt -1 1.5) -1.836909530733566e-16-1.0i)) (test-equal "exact expt with complex number" (expt 0+1i 5) 0+1i) (test-equal "exact expt with complex number, real result" (expt 0+1i 6) -1) (test-equal "inexact expt with complex number" (expt 0.0+1.0i 5.0) 0.0+1.0i) (test-equal "inexact expt with complex number, real result" (expt 0.0+1.0i 6.0) -1.0) (parameterize ((current-test-epsilon 1e-10)) (test-equal "inexact noninteger expt with complex number" (expt 0.0+4.0i 0.5) 1.4142135623731+1.41421356237309i) (test-equal "exp with complex numbers" (exp 1+i) 1.4686939399158851+2.2873552871788423i)) (test-equal "log of exp = 1" (log (exp 1)) 1.0) (test-assert "log(-x) = compnum" (cplxnum? (log -2.0))) (parameterize ((current-test-epsilon 1e-10)) (test-equal "log of -1" (log -1) 0.0+3.141592653589793i)) ;; XXX We should probably attempt to make this return an exact number (parameterize ((current-test-epsilon 1e-10)) (test-equal "log(expt(2,x),2) = x" (log (expt 2 500) 2) 500.0) (test-equal "log with complex number" (log +i) 0.0+1.5707963267948966i) (test-equal "exp(log(x)) = x" (exp (log 2.0-3.0i)) 2.0-3.0i) (test-equal "log(exp(x)) = x" (log (exp 2.0-3.0i)) 2.0-3.0i) (test-equal "log(expt(2,x),2) = x" (log (expt 2 2.0-3.0i) 2) 2.0-3.0i)) (letrec ((fac (lambda (n) (if (zero? n) 1 (* n (fac (- n 1))) ) ) ) ) (test-assert "bigfac" (show (fac 100))) (test-equal "zero signum fixnum" (signum 0) 0) (test-equal "zero signum flonum" (signum .0) 0.0) (test-equal "positive signum fixnum" (signum 2) 1) (test-equal "positive signum ratnum" (signum 1/2) 1) (test-equal "positive signum flonum" (signum 2.0) 1.0) (test-equal "positive signum bignum" (signum b1) 1) (test-equal "negative signum fixnum" (signum -2) -1) (test-equal "negative signum ratnum" (signum -1/2) -1) (test-equal "negative signum flonum" (signum -2) -1) (test-equal "negative signum bignum" (signum (- b1)) -1) ;; From CLHS (parameterize ((current-test-epsilon 1e-10)) (test-equal "positive signum compnum(1)" (signum 0+33i) 0+1i) (test-equal "positive signum compnum(2)" (signum 7.5+10.0i) 0.6+0.8i) (test-equal "negative signum compnum " (signum 0.0-14.7i) 0.0-1.0i))) (test-equal "most-negative-fixnum + most-negative-fixnum = 2 * most-negative-fixnum" (+ most-negative-fixnum most-negative-fixnum) (* 2 most-negative-fixnum)) (test-equal "most-negative-fixnum - most-negative-fixnum = 0" (- most-negative-fixnum most-negative-fixnum) 0) (test-equal "most-positive-fixnum + most-positive-fixnum = 2 * most-positive-fixnum" (+ most-positive-fixnum most-positive-fixnum) (* 2 most-positive-fixnum)) (test-equal "most-positive-fixnum - most-positive-fixnum = 0" (- most-positive-fixnum most-positive-fixnum) 0) ) (test-group "R5RS" (test-equal "+" (+ 3 4) 7) (test-equal "+" (+ 3) 3) (test-equal "+" (+) 0) (test-equal "*" (* 4) 4) (test-equal "*" (*) 1) (test-equal "-" (- 3 4) -1) (test-equal "-" (- 3 4 5) -6) (test-equal "-" (- 3) -3) (test-assert "/ (3/20)" (show (/ 3 4 5))) (test-assert "/ (1/3)" (show (/ 3))) (test-equal "numerator" (numerator (/ 6 4)) 3) (test-equal "denominator" (denominator (/ 6 4)) 2) (test-equal "complex?" (complex? c1) #t) (test-equal "complex?" (complex? 3) #t) (test-equal "real?" (real? 3) #t) (test-equal "real?" (real? (make-rectangular -2.5 0.0)) #t) (test-equal "real?" (real? -2+1i) #f) (test-equal "real?" (real? 1e0) #t) (test-equal "rational?" (rational? (/ 6 10)) #t) (test-assert "check rational" (show (/ 6 3))) (test-equal "rational?" (rational? (/ 6 3)) #t) (test-equal "integer?" (integer? (make-rectangular 3 0)) #t) (test-equal "integer?" (integer? 1+3i) #f) (test-equal "integer?" (integer? 3.0) #t) (test-equal "integer?" (integer? (/ 8 4)) #t) (test-equal "integer?" (integer? 1/2) #f) (test-equal "exact-integer?" (exact-integer? (make-rectangular 3 0)) #t) (test-equal "exact-integer?" (exact-integer? 1+3i) #f) (test-equal "exact-integer?" (exact-integer? 3.0) #f) (test-equal "exact-integer?" (exact-integer? (/ 8 4)) #t) (test-equal "exact-integer?" (exact-integer? 1/2) #f) (test-equal "max" (max 3 4) 4) (test-equal "max" (max 3.9 4) 4.0) (test-equal "modulo" (modulo 13 4) 1) (test-equal "modulo" (modulo 13.0 4) 1.0) (test-equal "modulo" (modulo 13 4.0) 1.0) (test-error "modulo" (modulo 13.1 4.0)) (test-error "modulo" (modulo 13.0 4.1)) (test-equal "remainder" (remainder 13 4) 1) (test-error "remainder" (remainder 13.1 4.0)) (test-error "remainder" (remainder 13.0 4.1)) (test-equal "modulo" (modulo -13 4) 3) (test-equal "remainder" (remainder -13 4) -1) (test-equal "modulo" (modulo 13 -4) -3) (test-equal "remainder" (remainder 13 -4) 1) (test-equal "modulo" (modulo -13 -4) -1) (test-equal "remainder" (remainder -13 -4) -1) (test-equal "remainder" (remainder -13 -4.0) -1.0) (test-assert (even? 2)) (test-assert (not (even? 1))) (test-assert (even? -2)) (test-assert (not (even? -1))) (test-assert (even? 2.0)) (test-assert (not (even? 1.0))) (test-assert (even? -2.0)) (test-assert (not (even? -1.0))) (test-error (even? 2.1)) (test-error (even? -2.3)) (test-error (even? +inf.0)) (test-error (even? +nan.0)) (test-assert (even? (* most-positive-fixnum 2))) (test-assert (not (even? (+ (* most-positive-fixnum 2) 1)))) (test-assert (odd? (+ (* most-positive-fixnum 2) 1))) (test-assert (not (odd? (* most-positive-fixnum 2)))) (test-error (even? 2.0+3.0i)) (test-error (even? 2+3i)) (test-error (odd? 2.0+3.0i)) (test-error (odd? 2+3i)) (test-equal "floor" (floor -4.3) -5.0) (test-equal "ceiling" (ceiling -4.3) -4.0) (test-equal "truncate" (truncate -4.3) -4.0) (test-equal "round" (round -4.3) -4.0) (test-equal "floor" (floor 3.5) 3.0) (test-equal "ceiling" (ceiling 3.5) 4.0) (test-equal "truncate" (truncate 3.5) 3.0) (test-equal "round" (round 3.5) 4.0) (test-equal "round" (round 4.5) 4.0) (test-equal "round" (round (/ 7 2)) 4) (test-equal "round" (round 7) 7) (test-equal "rationalize (1/3)" (rationalize (inexact->exact .3) (/ 1 10)) 1/3) (test-equal "rationalize (#i1/3)" (rationalize .3 (/ 1 10)) #i1/3) ) (test-group "bitwise ops" (test-equal "and" (bitwise-and #xff #x1) 1) (test-equal "zero-arg and" (bitwise-and) -1) ; Arbitrary, but specified by srfi-33 (test-equal "ior" (bitwise-ior #x0f #x1) #xf) (test-equal "zero-arg ior" (bitwise-ior) 0) ; Same (test-equal "xor" (bitwise-xor #x0f #x1) 14) (test-equal "zero-arg xor" (bitwise-xor) 0) ; Same (test-assert "not" (show (bitwise-not #x0f))) (test-error (bitwise-and 'x)) (test-error (bitwise-xor 'x)) (test-error (bitwise-ior 'x)) (test-error (bitwise-and 1 'x)) (test-error (bitwise-xor 1 'x)) (test-error (bitwise-ior 1 'x)) (test-error (bit->boolean 1 -1)) (test-error (bit->boolean b1 -1)) (test-error (bit->boolean 1 1.0)) (test-error (bit->boolean 1.0 1)) (test-equal (bit->boolean -1 b1) #t) (test-equal (bit->boolean 0 b1) #f) (test-equal (bit->boolean 5 2) #t) (test-equal (bit->boolean 5 0) #t) (test-equal (bit->boolean 5 1) #f) (test-equal (bit->boolean -2 0) #f) (test-equal (bit->boolean -2 1) #t) (test-equal (bit->boolean (expt -2 63) 256) #t) (test-equal (bit->boolean (expt 2 63) 256) #f) (test-equal (arithmetic-shift 15 2) 60) (test-equal (arithmetic-shift 15 -2) 3) (test-equal (arithmetic-shift -15 2) -60) (test-equal (arithmetic-shift -15 -2) -4) ; 2's complement (test-equal (arithmetic-shift -31 most-negative-fixnum) -1) (test-equal (arithmetic-shift 31 most-negative-fixnum) 0) (test-equal (arithmetic-shift b1 0) b1) (test-equal (arithmetic-shift (arithmetic-shift b1 -1) 1) b1) (test-error (arithmetic-shift 0.1 2)) ;; XXX Do the following two need to fail? Might as well use the integral value (test-error (arithmetic-shift #xf 2.0)) (test-error (arithmetic-shift #xf -2.0)) (test-error (arithmetic-shift #xf 2.1)) (test-error (arithmetic-shift #xf -2.1)) (test-error (arithmetic-shift +inf.0 2)) (test-error (arithmetic-shift +nan.0 2)) (when 64-bits? (test-equal (arithmetic-shift (expt 2 31) (- (expt 2 31))) 0)) ;; by Jeremy Sydik (let ((leftrot32 (lambda (value amount) (let ((shifted (arithmetic-shift value amount))) (let ((anded (bitwise-and #xFFFFFFFF shifted))) (bitwise-ior anded (arithmetic-shift shifted -32)))) ))) (test-equal "leftrot32 28" (leftrot32 1 28) 268435456) (test-equal "leftrot32 29" (leftrot32 1 29) 536870912) (test-equal "leftrot32 30" (leftrot32 1 30) 1073741824)) ) (test-group "string conversion" (test-assert "fix" (number->string 123)) (test-assert "fix/base" (number->string 123 16)) (test-assert "flo" (number->string 99.2)) (test-assert "big" (number->string b1)) (test-assert "big/base" (number->string b1 2)) (test-assert "rat" (number->string r1)) (test-assert "comp" (number->string c1)) (test-equal "edge case printing" (number->string (expt 2 256) 16) "10000000000000000000000000000000000000000000000000000000000000000") (test-equal "non-exact multiple of 64 length edge case printing" "4000000000000000000000" (number->string (expt 2 65) 8)) (test-equal "another non-exact multiple of 64 length edge case printing" "200000000000000000000000" (number->string (expt 2 70) 8)) (test-equal "edge case length calculation" "10000000000000000000000000000000000000000000000000000000000000000000000" (number->string (expt 2 210) 8)) (test-equal "positive hexdigit invariance" (number->string (string->number "123456789abcdef123456789abcdef123456789abcdef" 16) 16) "123456789abcdef123456789abcdef123456789abcdef") (test-equal "negative hexdigit invariance" (number->string (string->number "-123456789abcdef123456789abcdef123456789abcdef" 16) 16) "-123456789abcdef123456789abcdef123456789abcdef") (test-equal "fix" (string->number "123") 123) (test-equal "fix/base" (string->number "ff" 16) 255) (test-equal "fix/base-o" (string->number "16" 8) 14) (test-equal "fix/unusual-base" (string->number "1234" 5) 194) (test-equal "fix/wrong-base" (string->number "1234" 4) #f) (test-error "fix/invalid-base" (string->number "1234" 0)) (test-error "fix/invalid-base" (string->number "1234" 1)) (test-equal "embedded base overrides supplied base" (string->number "#x10" 10) 16) (test-equal "flo" (string->number "123.23") 123.23) (test-equal "flo2" (string->number "1e2") 100.0) (test-assert "big" (show (string->number "123873487384737447"))) (test-assert "big/neg" (show (string->number "-123873487384737447"))) (test-assert "big/pos" (show (string->number "+123873487384737447"))) (test-assert "rat" (show (string->number "123/456"))) (test-assert "rat/neg" (show (string->number "-123/456"))) (test-assert "rat/pos" (show (string->number "+123/456"))) (test-assert "rat2" (show (string->number "#o123/456"))) (test-equal "rat/inexact" (show (string->number "#i123/456")) (/ 123.0 456)) (test-equal "invalid rat" (string->number "123/0") #f) (test-assert "comp" (show (string->number "+12i"))) (test-assert "comp" (show (string->number "12+34i"))) (test-assert "comp" (show (string->number "-i"))) (test-assert "comp" (show (string->number "99@55"))) (test-assert "comp" (show (string->number "1/2@3/4"))) (test-assert "comp2" (show (string->number "#x99+55i"))) ;; This is to check for a silly problem cause by representing numbers exactly ;; all the way until the end, then converting to inexact. This "silly problem" ;; could probably be exploited in a resource consumption attack. (let* ((t1 (current-seconds)) (i1 (string->number "1e1000000")) (i2 (string->number "1.0e1000000")) (e1 (string->number "#e1e1000000")) (e2 (string->number "#e1.0e1000000")) (t2 (current-seconds))) (test-assert "read time for inexacts with large positive exp isn't insanely high" (< (- t2 t1) 2)) (test-equal "inexact read back are equal" i2 i1) (test-equal "inexact are inf" +inf.0 i1) (test-equal "exact are equal" e2 e1) (test-equal "exact are false" #f e1)) (let* ((t1 (current-seconds)) (i1 (string->number "-1e1000000")) (i2 (string->number "-1.0e1000000")) (e1 (string->number "#e-1e1000000")) (e2 (string->number "#e-1.0e1000000")) (t2 (current-seconds))) (test-assert "read time for inexacts with large positive exp isn't insanely high" (< (- t2 t1) 2)) (test-equal "negative inexact read back are equal" i2 i1) (test-equal "negative inexact are negative inf" -inf.0 i1) (test-equal "negative exact are equal" e2 e1) (test-equal "negative exact are false" #f e1)) (let* ((t1 (current-seconds)) (i1 (string->number "1e-1000000")) (i2 (string->number "1.0e-1000000")) (e1 (string->number "#e1e-1000000")) (e2 (string->number "#e1.0e-1000000")) (t2 (current-seconds))) (test-assert "read time for inexacts with large negative exp isn't insanely high" (< (- t2 t1) 2)) (test-equal "inexact read back are equal" i2 i1) (test-equal "inexact are 0" +0.0 i1) (test-equal "exact are equal" e2 e1) (test-equal "exact are false" #f e1)) (test-group "read/write invariance of simple integers for different radices" (let lp ((radix 2) (digit 0)) (cond ((= digit radix) (lp (add1 radix) 0)) ((<= radix 36) (let* ((char (string-ref (number->string digit radix) 0)) (str (make-string 10 char))) (test-equal (sprintf "radix ~A digits ~S" radix digit) (number->string (string->number str) radix) (if (char=? char #\0) "0" str))))))) ) (test-group "non-standard type procedures" (test-equal "fixnum" (fixnum? max-fix) #t) (test-equal "bignum" (bignum? b1) #t) (test-equal "bignum" (bignum? min-big) #t) (test-equal "ratnum" (ratnum? r1) #t) (test-equal "nan: fix" (nan? 1) #f) (test-equal "nan: flo" (nan? 1.0) #f) (test-equal "nan: +inf" (nan? (/ 1.0 0.0)) #f) (test-equal "nan: -inf" (nan? (/ -1.0 0.0)) #f) (test-equal "nan: nan" (nan? (/ 0.0 0.0)) #t) (test-equal "nan: nan+nani" (nan? (make-rectangular (/ 0.0 0.0) (/ 0.0 0.0))) #t) (test-equal "nan: flo+nani" (nan? (make-rectangular 1.0 (/ 0.0 0.0))) #t) (test-equal "nan: nan+floi" (nan? (make-rectangular (/ 0.0 0.0) 1.0)) #t) (test-error "nan: no number" (nan? 'x)) (test-equal "finite: fix" (finite? 1) #t) (test-equal "finite: flo" (finite? 1.0) #t) (test-equal "finite: +inf" (finite? (/ 1.0 0.0)) #f) (test-equal "finite: -inf" (finite? (/ 1.0 0.0)) #f) (test-equal "finite: nan" (finite? (/ 0.0 0.0)) #f) (test-equal "finite: nan+floi" (finite? (make-rectangular (/ 0.0 0.0) 1.0)) #f) (test-equal "finite: inf+infi" (finite? (make-rectangular (/ 1.0 0.0) (/ 1.0 0.0))) #f) (test-equal "finite: flo+infi" (finite? (make-rectangular 1.0 (/ 1.0 0.0))) #f) (test-equal "finite: inf+floi" (finite? (make-rectangular (/ 1.0 0.0) 1.0)) #f) (test-error "finite: no number" (finite? 'x)) (test-equal "infinite: fix" (infinite? 1) #f) (test-equal "infinite: flo" (infinite? 1.0) #f) (test-equal "infinite: +inf" (infinite? (/ 1.0 0.0)) #t) (test-equal "infinite: -inf" (infinite? (/ 1.0 0.0)) #t) (test-equal "infinite: nan" (infinite? (/ 0.0 0.0)) #f) (test-equal "infinite: inf+infi" (infinite? (make-rectangular (/ 1.0 0.0) (/ 1.0 0.0))) #t) (test-equal "infinite: flo+infi" (infinite? (make-rectangular 1.0 (/ 1.0 0.0))) #t) (test-equal "infinite: inf+floi" (infinite? (make-rectangular (/ 1.0 0.0) 1.0)) #t) (test-error "infinite: no number" (infinite? 'x)) (test-equal "cplxnum: compintintnum" (cplxnum? c1) #t) (test-equal "cplxnum: compintflointnum" (cplxnum? 1.0+1i) #t) (test-equal "cplxnum: compflointnum" (cplxnum? c2) #t) (test-equal "cplxnum: compfloflonum" (cplxnum? 3.4-4.3i) #t) (test-equal "not cplxnum: fixnum" (cplxnum? 1) #f) ) ;; The usual comparator doesn't work, because zero or a very small number ;; is many times any other small number, but the absolute difference should ;; be minimal, so we compare for that instead. (parameterize ((current-test-epsilon 1e-9) (current-test-comparator (lambda (exp act) (or (and (nan? exp) (nan? act)) (and (< (abs (- (real-part exp) (real-part act))) (current-test-epsilon)) (< (abs (- (imag-part exp) (imag-part act))) (current-test-epsilon))))))) ;; We're using (acos (cos x)) instead of just (acos y) because we want ;; to test the compiler's specialization rules of cos output. (test-group "trigonometric functions" (test-group "flonums" ;; Note: we don't *actually* distinguish -nan from +nan, but whatever :) (test-equal "acos(-inf)" (acos -inf.0) -nan.0) (test-equal "acos(<small number>)" (acos -1e100) -nan.0) (test-equal "cos(-1/3pi)" (cos (- (/ pi 3))) 0.5) (test-equal "acos(cos(-1/3pi))" (acos (cos (- (/ pi 3)))) (/ pi 3)) (test-equal "cos(-1/4pi)" (cos (- (/ pi 4))) 0.7071067811865476) (test-equal "acos(cos(-1/4pi))" (acos (cos (- (/ pi 4)))) (/ pi 4)) (test-equal "cos(-1/2pi)" (cos (- (/ pi 2))) 0.0) (test-equal "acos(cos(-1/2pi))" (acos (cos (- (/ pi 2)))) (/ pi 2)) (test-equal "cos(-pi)" (cos (- pi)) -1.0) (test-equal "acos(cos(-pi))" (acos (cos (- pi))) pi) (test-equal "cos(0)" (cos 0.0) 1.0) (test-equal "acos(cos(0))" (acos (cos 0.0)) 0.0) (test-equal "cos( 1/4pi)" (cos (/ pi 4)) 0.7071067811865476) (test-equal "acos(cos( 1/4pi))" (acos (cos (/ pi 4))) (/ pi 4)) (test-equal "cos( 1/3pi)" (cos (/ pi 3)) 0.5) (test-equal "acos(cos( 1/3pi))" (acos (cos (/ pi 3))) (/ pi 3)) (test-equal "cos( 1/2pi)" (cos (/ pi 2)) 0.0) (test-equal "acos(cos( 1/2pi))" (acos (cos (/ pi 2))) (/ pi 2)) (test-equal "cos( 2/3pi)" (cos (/ (* 2 pi) 3)) -0.5) (test-equal "acos(cos( 2/3pi))" (acos (cos (/ (* 2 pi) 3))) (/ (* 2 pi) 3)) (test-equal "cos( 3/4pi)" (cos (* (/ pi 4) 3)) -0.7071067811865476) (test-equal "acos(cos( 3/4pi))" (acos (cos (* (/ pi 4) 3))) (* (/ pi 4) 3)) (test-equal "cos( pi)" (cos pi) -1.0) (test-equal "acos(cos( pi))" (acos (cos pi)) pi) (test-equal "cos( 3/2pi)" (cos (+ pi (/ pi 2))) 0.0) (test-equal "acos(cos( 3/2pi))" (acos (cos (+ pi (/ pi 2)))) (/ pi 2)) (test-equal "cos( 4/3pi)" (cos (+ pi (/ pi 3))) -0.5) (test-equal "acos(cos( 4/3pi))" (acos (cos (+ pi (/ pi 3)))) (* 2 (/ pi 3))) (test-equal "cos( 5/4pi)" (cos (+ pi (/ pi 4))) -0.7071067811865476) (test-equal "acos(cos( 5/4pi))" (acos (cos (+ pi (/ pi 4)))) (* 3 (/ pi 4))) (test-equal "cos( 2pi)" (cos (* 2 pi)) 1.0) (test-equal "acos(cos( 2pi))" (acos (cos (* 2 pi))) 0) (test-equal "acos(pi)" (acos pi) 0.0+1.81152627246085i) (test-equal "acos(+inf)" (acos +inf.0) -nan.0) (test-equal "asin(-inf)" (asin -inf.0) -nan.0) (test-equal "asin(<small number>)" (asin -1e100) -nan.0) (test-equal "sin(-1/3pi)" (sin (- (/ pi 3))) -0.8660254037844386) (test-equal "asin(sin(-1/3pi))" (asin (sin (- (/ pi 3)))) (- (/ pi 3))) (test-equal "sin(-1/4pi)" (sin (- (/ pi 4))) -0.7071067811865476) (test-equal "asin(sin(-1/4pi))" (asin (sin (- (/ pi 4)))) (- (/ pi 4))) (test-equal "sin(-1/2pi)" (sin (- (/ pi 2))) -1.0) (test-equal "asin(sin(-1/2pi))" (asin (sin (- (/ pi 2)))) (- (/ pi 2))) (test-equal "sin(-pi)" (sin (- pi)) 0.0) (test-equal "asin(sin(-pi))" (asin (sin (- pi))) 0.0) (test-equal "sin(0)" (sin 0.0) 0.0) (test-equal "asin(sin(0))" (asin (sin 0.0)) 0.0) (test-equal "sin( 1/4pi)" (sin (/ pi 4)) 0.7071067811865476) (test-equal "asin(sin( 1/4pi))" (asin (sin (/ pi 4))) (/ pi 4)) (test-equal "sin( 1/3pi)" (sin (/ pi 3)) 0.8660254037844386) (test-equal "asin(sin( 1/3pi))" (asin (sin (/ pi 3))) (/ pi 3)) (test-equal "sin( 1/2pi)" (sin (/ pi 2)) 1.0) (test-equal "asin(sin( 1/2pi))" (asin (sin (/ pi 2))) (/ pi 2)) (test-equal "sin( 2/3pi)" (sin (/ (* 2 pi) 3)) 0.8660254037844386) (test-equal "asin(sin( 2/3pi))" (asin (sin (/ (* 2 pi) 3))) (/ pi 3)) (test-equal "sin( 3/4pi)" (sin (* (/ pi 4) 3)) 0.7071067811865476) (test-equal "asin(sin( 3/4pi))" (asin (sin (* (/ pi 4) 3))) (/ pi 4)) (test-equal "sin( pi)" (sin pi) 0.0) (test-equal "asin(sin( pi))" (asin (sin pi)) 0.0) (test-equal "sin( 3/2pi)" (sin (+ pi (/ pi 2))) -1.0) (test-equal "asin(sin( 3/2pi))" (asin (sin (+ pi (/ pi 2)))) (- (/ pi 2))) (test-equal "sin( 4/3pi)" (sin (+ pi (/ pi 3))) -0.8660254037844386) (test-equal "asin(sin( 4/3pi))" (asin (sin (+ pi (/ pi 3)))) (- (/ pi 3))) (test-equal "sin( 5/4pi)" (sin (+ pi (/ pi 4))) -0.7071067811865476) (test-equal "asin(sin( 5/4pi))" (asin (sin (+ pi (/ pi 4)))) (- (/ pi 4))) (test-equal "sin( 2pi)" (sin (* 2 pi)) 0.0) (test-equal "asin(sin( 2pi))" (asin (sin (* 2 pi))) 0.0) (test-equal "asin(pi)" (asin pi) 1.57079632679490-1.81152627246085i) (test-equal "asin(+inf)" (asin +inf.0) -nan.0) (test-equal "atan(-inf)" (atan -inf.0) (- (/ pi 2))) (test-equal "atan(<small number>)" (atan -1e100) (- (/ pi 2))) (test-equal "tan(-1/3pi)" (tan (- (/ pi 3))) -1.7320508075688773) (test-equal "atan(tan(-1/3pi))" (atan (tan (- (/ pi 3)))) (- (/ pi 3))) (test-equal "tan(-1/4pi)" (tan (- (/ pi 4))) -1.0) (test-equal "atan(tan(-1/4pi))" (atan (tan (- (/ pi 4)))) (- (/ pi 4))) ;; NOTE: tan(-(/ pi 2)) should be -inf(?), but isn't. Is that a bug? (test-equal "tan(-pi)" (tan (- pi)) 0.0) (test-equal "atan(tan(-pi))" (atan (tan (- pi))) 0.0) (test-equal "tan(0)" (tan 0.0) 0.0) (test-equal "atan(tan(0))" (atan (tan 0.0)) 0.0) (test-equal "tan( 1/4pi)" (tan (/ pi 4)) 1.0) (test-equal "atan(tan( 1/4pi))" (atan (tan (/ pi 4))) (/ pi 4)) (test-equal "tan( 1/3pi)" (tan (/ pi 3)) 1.7320508075688773) (test-equal "atan(tan( 1/3pi))" (atan (tan (/ pi 3))) (/ pi 3)) (test-equal "tan( 2/3pi)" (tan (/ (* 2 pi) 3)) -1.7320508075688773) (test-equal "atan(tan( 2/3pi))" (atan (tan (/ (* 2 pi) 3))) (- (/ pi 3))) (test-equal "tan( 3/4pi)" (tan (* (/ pi 4) 3)) -1.0) (test-equal "atan(tan( 3/4pi))" (atan (tan (* (/ pi 4) 3))) (- (/ pi 4))) (test-equal "tan( pi)" (tan pi) 0.0) (test-equal "atan(tan( pi))" (atan (tan pi)) 0.0) (test-equal "tan( 4/3pi)" (tan (+ pi (/ pi 3))) 1.7320508075688773) (test-equal "atan(tan( 4/3pi))" (atan (tan (+ pi (/ pi 3)))) (/ pi 3)) (test-equal "tan( 5/4pi)" (tan (+ pi (/ pi 4))) 1.0) (test-equal "atan(tan( 5/4pi))" (atan (tan (+ pi (/ pi 4)))) (/ pi 4)) (test-equal "tan( 2pi)" (tan (* 2 pi)) 0.0) (test-equal "atan(tan( 2pi))" (atan (tan (* 2 pi))) 0.0) (test-equal "atan(pi)" (atan 1e100) (/ pi 2)) (test-equal "atan(+inf)" (atan +inf.0) (/ pi 2)) (test-equal "atan2(3, tan(pi))" (atan 3 (tan pi)) (/ pi 2)) (test-equal "atan2(3, -tan(pi))" (atan 3 (- (tan pi))) (/ pi 2)) (test-equal "atan2(-3, tan(pi))" (atan -3 (tan pi)) (- (/ pi 2))) (test-equal "atan2(-3, -tan(pi))" (atan -3 (- (tan pi))) (- (/ pi 2))) ;; Equivalence described in R5RS (test-equal "atan2(1, 2) = angle(2+i)" (angle (make-rectangular 2 1)) (atan 1 2)) (test-equal "atan2(1, b1) = angle(2+i)" (angle (make-rectangular b1 1)) (atan 1 b1)) (test-equal "atan2(b1, 1) = angle(2+i)" (angle (make-rectangular 1 b1)) (atan b1 1)) (test-equal "atan2(-0.1, 3.2) = angle(3.2-0.1i)" (angle (make-rectangular 3.2 -0.1)) (atan -0.1 3.2)) ) ;; Cross-checked against Gauche and Scheme48's output (test-group "compnums" (test-equal "cos(0.0+1.0i)" (cos (make-rectangular 0.0 1.0)) 1.5430806348152437) (test-equal "acos(cos(0.0+1.0i))" (acos (cos (make-rectangular 0.0 1.0))) 0.0+1.0i) (test-equal "cos(0.0-1.0i)" (cos (make-rectangular 0.0 -1.0)) 1.5430806348152437) (test-equal "acos(cos(0.0-1.0i))" (acos (cos (make-rectangular 0.0 -1.0))) 0.0+1.0i) (test-equal "cos(0.0+3.0i)" (cos (make-rectangular 0.0 3.0)) 10.067661995777765) (test-equal "acos(cos(0.0+3.0i))" (acos (cos (make-rectangular 0.0 3.0))) 0.0+3.0i) (test-equal "cos(0.0-3.0i)" (cos (make-rectangular 0.0 -3.0)) 10.067661995777765) (test-equal "acos(cos(0.0-3.0i))" (acos (cos (make-rectangular 0.0 -3.0))) 0.0+3.0i) (test-equal "cos(0.5+0.5i)" (cos (make-rectangular 0.5 0.5)) (make-rectangular 0.9895848833999199 -0.24982639750046154)) (test-equal "acos(cos(0.5+0.5i))" (acos (cos (make-rectangular 0.5 0.5))) (make-rectangular 0.5 0.5)) (test-equal "cos(0.5-0.5i)" (cos (make-rectangular 0.5 -0.5)) (make-rectangular 0.9895848833999199 0.24982639750046154)) (test-equal "acos(cos(0.5-0.5i))" (acos (cos (make-rectangular 0.5 -0.5))) (make-rectangular 0.5 -0.5)) (test-equal "cos(-0.5-0.5i)" (cos (make-rectangular -0.5 -0.5)) (make-rectangular 0.9895848833999199 -0.24982639750046154)) (test-equal "acos(cos(-0.5-0.5i))" (acos (cos (make-rectangular -0.5 -0.5))) (make-rectangular 0.5 0.5)) (test-equal "cos(-0.5+0.5i)" (cos (make-rectangular -0.5 0.5)) (make-rectangular 0.9895848833999199 0.24982639750046154)) (test-equal "acos(cos(-0.5+0.5i))" (acos (cos (make-rectangular -0.5 0.5))) (make-rectangular 0.5 -0.5)) (test-equal "cos(-1.0+1.0i)" (cos (make-rectangular -1.0 1.0)) (make-rectangular 0.8337300251311491 0.9888977057628651)) (test-equal "acos(cos(-1.0+1.0i))" (acos (cos (make-rectangular -1.0 1.0))) (make-rectangular 1.0 -1.0)) (test-equal "cos(-1.0-1.0i)" (cos (make-rectangular -1.0 -1.0)) (make-rectangular 0.8337300251311491 -0.9888977057628651)) (test-equal "acos(cos(-1.0-1.0i))" (acos (cos (make-rectangular -1.0 -1.0))) (make-rectangular 1.0 1.0)) (test-equal "cos(1.0-1.0i)" (cos (make-rectangular 1.0 -1.0)) (make-rectangular 0.8337300251311491 0.9888977057628651)) (test-equal "acos(cos(1.0-1.0i))" (acos (cos (make-rectangular 1.0 -1.0))) (make-rectangular 1.0 -1.0)) (test-equal "cos(1.0+1.0i)" (cos (make-rectangular 1.0 1.0)) (make-rectangular 0.8337300251311491 -0.9888977057628651)) (test-equal "acos(cos(1.0+1.0i))" (acos (cos (make-rectangular 1.0 1.0))) (make-rectangular 1.0 1.0)) (test-equal "cos(2.0+3.0i)" (cos (make-rectangular 2.0 3.0)) (make-rectangular -4.189625690968807 -9.109227893755337)) (test-equal "acos(cos(2.0+3.0i))" (acos (cos (make-rectangular 2.0 3.0))) (make-rectangular 2.0 3.0)) (test-equal "cos(-2.0+3.0i)" (cos (make-rectangular -2.0 3.0)) (make-rectangular -4.189625690968807 9.109227893755337)) (test-equal "acos(cos(-2.0+3.0i))" (acos (cos (make-rectangular -2.0 3.0))) (make-rectangular 2.0 -3.0)) (test-equal "cos(-2.0-3.0i)" (cos (make-rectangular -2.0 -3.0)) (make-rectangular -4.189625690968807 -9.109227893755337)) (test-equal "acos(cos(-2.0-3.0i))" (acos (cos (make-rectangular -2.0 -3.0))) (make-rectangular 2.0 3.0)) (test-equal "cos(2.0-3.0i)" (cos (make-rectangular 2.0 -3.0)) (make-rectangular -4.189625690968807 9.109227893755337)) (test-equal "acos(cos(2.0-3.0i))" (acos (cos (make-rectangular 2.0 -3.0))) (make-rectangular 2.0 -3.0)) ;; Specialization check (test-equal "cos(acos(2.0-3.0i))" (cos (acos (make-rectangular 2.0 -3.0))) (make-rectangular 2.0 -3.0)) (test-equal "sin(0.0+1.0i)" (sin (make-rectangular 0.0 1.0)) (make-rectangular 0.0 1.1752011936438014)) (test-equal "asin(sin(0.0+1.0i))" (asin (sin (make-rectangular 0.0 1.0))) (make-rectangular 0.0 1.0)) (test-equal "sin(0.0-1.0i)" (sin (make-rectangular 0.0 -1.0)) (make-rectangular 0.0 -1.1752011936438014)) (test-equal "asin(sin(0.0-1.0i))" (asin (sin (make-rectangular 0.0 -1.0))) (make-rectangular 0.0 -1.0)) (test-equal "sin(0.0+3.0i)" (sin (make-rectangular 0.0 3.0)) (make-rectangular 0.0 10.017874927409903)) (test-equal "asin(sin(0.0+3.0i))" (asin (sin (make-rectangular 0.0 3.0))) (make-rectangular 0.0 3.0)) (test-equal "sin(0.0-3.0i)" (sin (make-rectangular 0.0 -3.0)) (make-rectangular 0.0 -10.017874927409903)) (test-equal "asin(sin(0.0-3.0i))" (asin (sin (make-rectangular 0.0 -3.0))) (make-rectangular 0.0 -3.0)) (test-equal "sin(0.5+0.5i)" (sin (make-rectangular 0.5 0.5)) (make-rectangular 0.5406126857131534 0.4573041531842493)) (test-equal "asin(sin(0.5+0.5i))" (asin (sin (make-rectangular 0.5 0.5))) (make-rectangular 0.5 0.5)) (test-equal "sin(0.5-0.5i)" (sin (make-rectangular 0.5 -0.5)) (make-rectangular 0.5406126857131534 -0.4573041531842493)) (test-equal "asin(sin(0.5-0.5i))" (asin (sin (make-rectangular 0.5 -0.5))) (make-rectangular 0.5 -0.5)) (test-equal "sin(-0.5-0.5i)" (sin (make-rectangular -0.5 -0.5)) (make-rectangular -0.5406126857131534 -0.4573041531842493)) (test-equal "asin(sin(-0.5-0.5i))" (asin (sin (make-rectangular -0.5 -0.5))) (make-rectangular -0.5 -0.5)) (test-equal "sin(-0.5+0.5i)" (sin (make-rectangular -0.5 0.5)) (make-rectangular -0.5406126857131534 +0.457304153184249)) (test-equal "asin(sin(-0.5+0.5i))" (asin (sin (make-rectangular -0.5 0.5))) (make-rectangular -0.5 +0.5)) (test-equal "sin(-1.0+1.0i)" (sin (make-rectangular -1.0 1.0)) (make-rectangular -1.2984575814159773 0.6349639147847361)) (test-equal "asin(sin(-1.0+1.0i))" (asin (sin (make-rectangular -1.0 1.0))) (make-rectangular -1.0 1.0)) (test-equal "sin(-1.0-1.0i)" (sin (make-rectangular -1.0 -1.0)) (make-rectangular -1.2984575814159773 -0.6349639147847361)) (test-equal "asin(sin(-1.0-1.0i))" (asin (sin (make-rectangular -1.0 -1.0))) (make-rectangular -1.0 -1.0)) (test-equal "sin(1.0-1.0i)" (sin (make-rectangular 1.0 -1.0)) (make-rectangular 1.2984575814159773 -0.6349639147847361)) (test-equal "asin(sin(1.0-1.0i))" (asin (sin (make-rectangular 1.0 -1.0))) (make-rectangular 1.0 -1.0)) (test-equal "sin(2.0+3.0i)" (sin (make-rectangular 2.0 3.0)) (make-rectangular 9.15449914691143 -4.168906959966565)) (test-equal "asin(sin(2.0+3.0i))" (asin (sin (make-rectangular 2.0 3.0))) (make-rectangular 1.1415926535898042 -3.0)) (test-equal "sin(-2.0+3.0i)" (sin (make-rectangular -2.0 3.0)) (make-rectangular -9.15449914691143 -4.168906959966565)) (test-equal "asin(sin(-2.0+3.0i))" (asin (sin (make-rectangular -2.0 3.0))) (make-rectangular -1.1415926535898042 -3.0)) (test-equal "sin(-2.0-3.0i)" (sin (make-rectangular -2.0 -3.0)) (make-rectangular -9.15449914691143 4.168906959966565)) (test-equal "asin(sin(-2.0-3.0i))" (asin (sin (make-rectangular -2.0 -3.0))) (make-rectangular -1.1415926535898042 3.0)) (test-equal "sin(2.0-3.0i)" (sin (make-rectangular 2.0 -3.0)) (make-rectangular 9.15449914691143 4.168906959966565)) (test-equal "asin(sin(2.0-3.0i))" (asin (sin (make-rectangular 2.0 -3.0))) (make-rectangular 1.1415926535898042 3.0)) ;; Specialization check (test-equal "sin(asin(1.1415926535898042+3.0i))" (sin (asin (make-rectangular 2.0 3.0))) (make-rectangular 2.0 3.0)) (test-equal "tan(0.0+1.0i)" (tan (make-rectangular 0.0 1.0)) (make-rectangular 0.0 0.7615941559557649)) (test-equal "atan(tan(0.0+1.0i))" (atan (tan (make-rectangular 0.0 1.0))) (make-rectangular 0.0 1.0)) (test-equal "tan(0.0-1.0i)" (tan (make-rectangular 0.0 -1.0)) (make-rectangular 0.0 -0.7615941559557649)) (test-equal "atan(tan(0.0-1.0i))" (atan (tan (make-rectangular 0.0 -1.0))) (make-rectangular 0.0 -1.0)) (test-equal "tan(0.0+3.0i)" (tan (make-rectangular 0.0 3.0)) (make-rectangular 0.0 0.9950547536867306)) (test-equal "atan(tan(0.0+3.0i))" (atan (tan (make-rectangular 0.0 3.0))) (make-rectangular 0.0 3.0)) (test-equal "tan(0.0-3.0i)" (tan (make-rectangular 0.0 -3.0)) (make-rectangular 0.0 -0.9950547536867306)) (test-equal "atan(tan(0.0-3.0i))" (atan (tan (make-rectangular 0.0 -3.0))) (make-rectangular 0.0 -3.0)) (test-equal "tan(0.5+0.5i)" (tan (make-rectangular 0.5 0.5)) (make-rectangular 0.4038964553160257 0.5640831412674985)) (test-equal "atan(tan(0.5+0.5i))" (atan (tan (make-rectangular 0.5 0.5))) (make-rectangular 0.5 0.5)) (test-equal "tan(0.5-0.5i)" (tan (make-rectangular 0.5 -0.5)) (make-rectangular 0.4038964553160257 -0.5640831412674985)) (test-equal "atan(tan(0.5-0.5i))" (atan (tan (make-rectangular 0.5 -0.5))) (make-rectangular 0.5 -0.5)) (test-equal "tan(-0.5-0.5i)" (tan (make-rectangular -0.5 -0.5)) (make-rectangular -0.4038964553160257 -0.5640831412674985)) (test-equal "atan(tan(-0.5-0.5i))" (atan (tan (make-rectangular -0.5 -0.5))) (make-rectangular -0.5 -0.5)) (test-equal "tan(-0.5+0.5i)" (tan (make-rectangular -0.5 0.5)) (make-rectangular -0.4038964553160257 0.5640831412674985)) (test-equal "atan(tan(-0.5+0.5i))" (atan (tan (make-rectangular -0.5 0.5))) (make-rectangular -0.5 0.5)) (test-equal "tan(-1.0+1.0i)" (tan (make-rectangular -1.0 1.0)) (make-rectangular -0.27175258531951174 1.0839233273386948)) (test-equal "atan(tan(-1.0+1.0i))" (atan (tan (make-rectangular -1.0 1.0))) (make-rectangular -1.0 1.0)) (test-equal "tan(-1.0-1.0i)" (tan (make-rectangular -1.0 -1.0)) (make-rectangular -0.27175258531951174 -1.0839233273386948)) (test-equal "atan(tan(-1.0-1.0i))" (atan (tan (make-rectangular -1.0 -1.0))) (make-rectangular -1.0 -1.0)) (test-equal "tan(1.0-1.0i)" (tan (make-rectangular 1.0 -1.0)) (make-rectangular 0.27175258531951174 -1.0839233273386948)) (test-equal "atan(tan(1.0-1.0i))" (atan (tan (make-rectangular 1.0 -1.0))) (make-rectangular 1.0 -1.0)) (test-equal "tan(2.0+3.0i)" (tan (make-rectangular 2.0 3.0)) (make-rectangular -0.0037640256415040815 1.0032386273536098)) (test-equal "atan(tan(2.0+3.0i))" (atan (tan (make-rectangular 2.0 3.0))) (make-rectangular -1.1415926535898042 3.0)) (test-equal "tan(-2.0+3.0i)" (tan (make-rectangular -2.0 3.0)) (make-rectangular 0.0037640256415040815 1.0032386273536098)) (test-equal "atan(tan(-2.0+3.0i))" (atan (tan (make-rectangular -2.0 3.0))) (make-rectangular 1.1415926535898042 3.0)) (test-equal "tan(-2.0-3.0i)" (tan (make-rectangular -2.0 -3.0)) (make-rectangular 0.0037640256415040815 -1.0032386273536098)) (test-equal "atan(tan(-2.0-3.0i))" (atan (tan (make-rectangular -2.0 -3.0))) (make-rectangular 1.1415926535898042 -3.0)) (test-equal "tan(2.0-3.0i)" (tan (make-rectangular 2.0 -3.0)) (make-rectangular -0.0037640256415040815 -1.0032386273536098)) (test-equal "atan(tan(2.0-3.0i))" (atan (tan (make-rectangular 2.0 -3.0))) (make-rectangular -1.1415926535898042 -3.0)) ;; Specialization check (test-equal "tan(atan(2.0-3.0i))" (tan (atan (make-rectangular 2.0 -3.0))) (make-rectangular 2.0 -3.0)) ) ;; This is just a handful to determine that we're able to accept these. ;; Maybe determine better values to test with? (test-group "bignums" (test-equal "acos(<negative bignum>)" (acos (- b1)) -nan.0) ;; These are bogus (maybe the negative ones too!), but I don't want to ;; "fix" them by copying the output and assume it's alright. #;(test-equal "acos(<bignum>)" (acos b1) +nan.0) (test-equal "asin(<negative bignum>)" (asin (- b1)) -nan.0) #;(test-equal "asin(<bignum>)" (asin b1) +nan.0) (test-equal "atan(<negative bignum>)" (atan (- b1)) (- (/ pi 2))) (test-equal "atan(<bignum>)" (atan b1) (/ pi 2))) ;; This should probably be enough; we're only testing conversion to flonums ;; and specialization. The actual functionality of cos is checked above. (test-group "fixnums" (test-equal "cos(0)" (cos 0) 1.0) (test-equal "acos(0)" (acos 0) (/ pi 2)) (test-equal "cos(1)" (cos 1) (cos 1.0)) (test-equal "acos(1)" (acos 1) 0.0) (test-equal "cos(-1)" (cos -1) (cos -1.0)) (test-equal "acos(-1)" (acos -1) pi) (test-equal "acos(-2)" (acos -2) (make-rectangular pi -1.31695789692482)) (test-equal "acos(2)" (acos 2) 0.0+1.31695789692482i) (test-equal "asin(1)" (asin 1) (/ pi 2)) (test-equal "asin(-1)" (asin -1) (/ pi -2)) (test-equal "asin(2)" (asin 2) (make-rectangular (/ pi 2) -1.31695789692482)) (test-equal "asin(-2)" (asin -2) (make-rectangular (/ pi -2) 1.31695789692482))) (test-group "ratnums" (test-equal "acos(<small number>)" (acos (/ -999999999 2)) -nan.0) (test-equal "cos(-1/3pi)" (cos (- (/ ratpi 3))) 0.5) (test-equal "acos(cos(-1/3pi))" (acos (cos (- (/ ratpi 3)))) (/ pi 3)) (test-equal "cos(-1/4pi)" (cos (- (/ ratpi 4))) 0.7071067811865476) (test-equal "acos(cos(-1/4pi))" (acos (cos (- (/ ratpi 4)))) (/ pi 4)) (test-equal "cos(-1/2pi)" (cos (- (/ ratpi 2))) 0.0) (test-equal "acos(cos(-1/2pi))" (acos (cos (- (/ ratpi 2)))) (/ pi 2)) (test-equal "cos(-pi)" (cos (- ratpi)) -1.0) (test-equal "acos(cos(-pi))" (acos (cos (- ratpi))) pi) (test-equal "cos(0)" (cos 0.0) 1.0) (test-equal "acos(cos(0))" (acos (cos 0.0)) 0.0) (test-equal "cos( 1/4pi)" (cos (/ ratpi 4)) 0.7071067811865476) (test-equal "acos(cos( 1/4pi))" (acos (cos (/ ratpi 4))) (/ pi 4)) (test-equal "cos( 1/3pi)" (cos (/ ratpi 3)) 0.5) (test-equal "acos(cos( 1/3pi))" (acos (cos (/ ratpi 3))) (/ pi 3)) (test-equal "cos( 1/2pi)" (cos (/ ratpi 2)) 0.0) (test-equal "acos(cos( 1/2pi))" (acos (cos (/ ratpi 2))) (/ pi 2)) (test-equal "cos( 2/3pi)" (cos (/ (* 2 ratpi) 3)) -0.5) (test-equal "acos(cos( 2/3pi))" (acos (cos (/ (* 2 ratpi) 3))) (/ (* 2 pi) 3)) (test-equal "cos( 3/4pi)" (cos (* (/ ratpi 4) 3)) -0.7071067811865476) (test-equal "acos(cos( 3/4pi))" (acos (cos (* (/ ratpi 4) 3))) (* (/ pi 4) 3)) (test-equal "cos( pi)" (cos ratpi) -1.0) (test-equal "acos(cos( pi))" (acos (cos ratpi)) pi) (test-equal "cos( 3/2pi)" (cos (+ ratpi (/ ratpi 2))) 0.0) (test-equal "acos(cos( 3/2pi))" (acos (cos (+ ratpi (/ ratpi 2)))) (/ pi 2)) (test-equal "cos( 4/3pi)" (cos (+ ratpi (/ ratpi 3))) -0.5) (test-equal "acos(cos( 4/3pi))" (acos (cos (+ ratpi (/ ratpi 3)))) (* 2 (/ pi 3))) (test-equal "cos( 5/4pi)" (cos (+ ratpi (/ ratpi 4))) -0.7071067811865476) (test-equal "acos(cos( 5/4pi))" (acos (cos (+ ratpi (/ ratpi 4)))) (* 3 (/ pi 4))) (test-equal "cos( 2pi)" (cos (* 2 pi)) 1.0) (test-equal "acos(cos( 2pi))" (acos (cos (* 2 ratpi))) 0) (test-equal "sin(-1/3pi)" (sin (- (/ ratpi 3))) -0.8660254037844386) (test-equal "asin(sin(-1/3pi))" (asin (sin (- (/ ratpi 3)))) (- (/ pi 3))) (test-equal "sin(-1/4pi)" (sin (- (/ ratpi 4))) -0.7071067811865476) (test-equal "asin(sin(-1/4pi))" (asin (sin (- (/ ratpi 4)))) (- (/ pi 4))) (test-equal "sin(-1/2pi)" (sin (- (/ ratpi 2))) -1.0) (test-equal "asin(sin(-1/2pi))" (asin (sin (- (/ ratpi 2)))) (- (/ pi 2))) (test-equal "sin(-pi)" (sin (- ratpi)) 0.0) (test-equal "asin(sin(-pi))" (asin (sin (- ratpi))) 0.0) (test-equal "sin(0)" (sin 0.0) 0.0) (test-equal "asin(sin(0))" (asin (sin 0.0)) 0.0) (test-equal "sin( 1/4pi)" (sin (/ ratpi 4)) 0.7071067811865476) (test-equal "asin(sin( 1/4pi))" (asin (sin (/ ratpi 4))) (/ pi 4)) (test-equal "sin( 1/3pi)" (sin (/ ratpi 3)) 0.8660254037844386) (test-equal "asin(sin( 1/3pi))" (asin (sin (/ ratpi 3))) (/ pi 3)) (test-equal "sin( 1/2pi)" (sin (/ ratpi 2)) 1.0) (test-equal "asin(sin( 1/2pi))" (asin (sin (/ ratpi 2))) (/ pi 2)) (test-equal "sin( 2/3pi)" (sin (/ (* 2 ratpi) 3)) 0.8660254037844386) (test-equal "asin(sin( 2/3pi))" (asin (sin (/ (* 2 ratpi) 3))) (/ pi 3)) (test-equal "sin( 3/4pi)" (sin (* (/ ratpi 4) 3)) 0.7071067811865476) (test-equal "asin(sin( 3/4pi))" (asin (sin (* (/ ratpi 4) 3))) (/ pi 4)) (test-equal "sin( pi)" (sin ratpi) 0.0) (test-equal "asin(sin( pi))" (asin (sin ratpi)) 0.0) (test-equal "sin( 3/2pi)" (sin (+ ratpi (/ ratpi 2))) -1.0) (test-equal "asin(sin( 3/2pi))" (asin (sin (+ ratpi (/ ratpi 2)))) (- (/ pi 2))) (test-equal "sin( 4/3pi)" (sin (+ ratpi (/ ratpi 3))) -0.8660254037844386) (test-equal "asin(sin( 4/3pi))" (asin (sin (+ ratpi (/ ratpi 3)))) (- (/ pi 3))) (test-equal "sin( 5/4pi)" (sin (+ ratpi (/ ratpi 4))) -0.7071067811865476) (test-equal "asin(sin( 5/4pi))" (asin (sin (+ ratpi (/ ratpi 4)))) (- (/ pi 4))) (test-equal "sin( 2pi)" (sin (* 2 ratpi)) 0.0) (test-equal "asin(sin( 2pi))" (asin (sin (* 2 ratpi))) 0.0) (test-equal "tan(-1/3pi)" (tan (- (/ ratpi 3))) -1.7320508075688773) (test-equal "atan(tan(-1/3pi))" (atan (tan (- (/ ratpi 3)))) (- (/ pi 3))) (test-equal "tan(-1/4pi)" (tan (- (/ ratpi 4))) -1.0) (test-equal "atan(tan(-1/4pi))" (atan (tan (- (/ ratpi 4)))) (- (/ pi 4))) ;; NOTE: tan(-(/ pi 2)) should be -inf(?), but isn't. Is that a bug? (test-equal "tan(-pi)" (tan (- ratpi)) 0.0) (test-equal "atan(tan(-pi))" (atan (tan (- ratpi))) 0.0) (test-equal "tan(0)" (tan 0.0) 0.0) (test-equal "atan(tan(0))" (atan (tan 0.0)) 0.0) (test-equal "tan( 1/4pi)" (tan (/ ratpi 4)) 1.0) (test-equal "atan(tan( 1/4pi))" (atan (tan (/ ratpi 4))) (/ pi 4)) (test-equal "tan( 1/3pi)" (tan (/ ratpi 3)) 1.7320508075688773) (test-equal "atan(tan( 1/3pi))" (atan (tan (/ ratpi 3))) (/ pi 3)) (test-equal "tan( 2/3pi)" (tan (/ (* 2 ratpi) 3)) -1.7320508075688773) (test-equal "atan(tan( 2/3pi))" (atan (tan (/ (* 2 ratpi) 3))) (- (/ pi 3))) (test-equal "tan( 3/4pi)" (tan (* (/ ratpi 4) 3)) -1.0) (test-equal "atan(tan( 3/4pi))" (atan (tan (* (/ ratpi 4) 3))) (- (/ pi 4))) (test-equal "tan( pi)" (tan ratpi) 0.0) (test-equal "atan(tan( pi))" (atan (tan ratpi)) 0.0) (test-equal "tan( 4/3pi)" (tan (+ ratpi (/ ratpi 3))) 1.7320508075688773) (test-equal "atan(tan( 4/3pi))" (atan (tan (+ ratpi (/ ratpi 3)))) (/ pi 3)) (test-equal "tan( 5/4pi)" (tan (+ ratpi (/ ratpi 4))) 1.0) (test-equal "atan(tan( 5/4pi))" (atan (tan (+ ratpi (/ ratpi 4)))) (/ pi 4)) (test-equal "tan( 2pi)" (tan (* 2 ratpi)) 0.0) (test-equal "atan(tan( 2i))" (atan (tan (* 2 ratpi))) 0.0) (test-equal "atan2(3, tan(pi))" (atan 3 (tan ratpi)) (/ pi 2)) (test-equal "atan2(3, -tan(pi))" (atan 3 (- (tan ratpi))) (/ pi 2)) (test-equal "atan2(-3, tan(pi))" (atan -3 (tan ratpi)) (- (/ pi 2))) (test-equal "atan2(-3, -tan(pi))" (atan -3 (- (tan ratpi))) (- (/ pi 2)))))) (test-end) ;(unless (zero? (test-failure-count)) (exit 1)) (test-exit) ��������������������������chicken-5.1.0/tests/import-library-test2.scm��������������������������������������������������������0000644�0001750�0001750�00000000325�13370655400�020613� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(require-library import-library-test1) (module bar (xcase) (import scheme (chicken base) foo) (assert (equal? '(123) (foo))) (assert (= 2 (xcase 1 ((1) 2))))) (import bar) (assert (= 2 (xcase 1 ((1) 2)))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/lolevel-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000016476�13452465442�017426� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; Unit lolevel testing (import chicken.format chicken.locative chicken.platform chicken.memory chicken.memory.representation srfi-4) (define-syntax assert-error (syntax-rules () ((_ expr) (assert (handle-exceptions _ #t expr #f))))) ; move-memory! (let ((s "...")) (assert-error (move-memory! "abc" s 3 -1))) ; overlapping src and dest, moving "right" (from SRFI-13 tests) (assert (string=? "aabce" (let ((str (string-copy "abcde"))) (move-memory! str str 3 0 1) str))) ;; Specialisation rewrite from types.db (assert (string=? "aabce" (let ((str (string-copy "abcde"))) (move-memory! (make-locative str) (make-locative str) 3 0 1) str))) ; overlapping src and dest, moving "left" (from SRFI-13 tests) (assert (string=? "bcdde" (let ((str (string-copy "abcde"))) (move-memory! str str 3 1) str))) ;; Specialisation rewrite from types.db (assert (string=? "bcdde" (let ((str (string-copy "abcde"))) (move-memory! (make-locative str) (make-locative str) 3 1) str))) ; object-copy ; allocate (define some-chunk (allocate 23)) (assert some-chunk) ; free (free some-chunk) (define some-chunk (allocate 23)) ; pointer? (assert (pointer? some-chunk)) ; pointer-like? (assert (pointer-like? some-chunk)) (assert (pointer-like? allocate)) ; address->pointer ; pointer->address ; object->pointer ; pointer->object ; pointer=? (assert (pointer=? some-chunk (address->pointer (pointer->address some-chunk)))) ; pointer+ (assert (pointer=? (address->pointer #x9) (pointer+ (address->pointer #x5) #x4))) ; align-to-word ; pointer-u8-set! ; pointer-s8-set! ; pointer-u16-set! ; pointer-s16-set! ; pointer-u32-set! ; pointer-s32-set! ; pointer-u64-set! ; pointer-s64-set! ; pointer-f32-set! ; pointer-f64-set! ; pointer-u8-ref (set! (pointer-u8-ref some-chunk) 255) (assert (= 255 (pointer-u8-ref some-chunk))) ; pointer-s8-ref (set! (pointer-s8-ref some-chunk) -1) (assert (= -1 (pointer-s8-ref some-chunk))) ; pointer-u16-ref ; pointer-s16-ref ; pointer-u32-ref ; pointer-s32-ref ; pointer-u64-ref ; pointer-s64-ref ; pointer-f32-ref ; pointer-f64-ref ; tag-pointer (define some-unique-tag '#(vector foo bar)) (define some-tagged-pointer (tag-pointer some-chunk some-unique-tag)) (assert some-tagged-pointer) ; tagged-pointer? (assert (tagged-pointer? some-tagged-pointer)) (assert (tagged-pointer? some-tagged-pointer some-unique-tag)) ; pointer-tag (assert (eq? some-unique-tag (pointer-tag some-tagged-pointer))) ; make-locative, locative-ref, locative-set!, locative? ;; Reverse an object vector of the given type by going through ;; locatives. (define-syntax check-type-locative (ir-macro-transformer (lambda (e i c) (let* ((type (strip-syntax (cadr e))) (inits (cddr e)) (size (length inits)) (construct type) (make (i (symbol-append 'make- type))) (ref (i (symbol-append type '-ref)))) `(let* ((old (,construct ,@inits)) (new (,make ,size))) ;; Copy first (do ((i 0 (add1 i))) ((= i ,size)) (let ((loc-src (make-locative old i)) (loc-dst (make-locative new (- ,size i 1)))) (assert (locative? loc-src)) (assert (locative? loc-dst)) (locative-set! loc-dst (locative-ref loc-src)))) (printf "\nold: ~S\nnew: ~S\n" old new) ;; Now compare (unroll loop for better error reporting) ,@(let lp ((i 0) (res '())) (if (= i size) res (lp (add1 i) ;; Note: we must use eqv? because extraction ;; may cause fresh object allocation. (cons `(assert (eqv? (,ref old ,i) (,ref new ,(- size i 1)))) res))))))))) (check-type-locative string #\nul #\y #\o #\xff) (check-type-locative vector 'yo 1 2 #f #t '(1 2 3) #(1 2 3)) (check-type-locative u8vector 0 1 2 #xfe #xff) (check-type-locative s8vector #x-80 #x-7f -2 -1 0 1 2 #x7e #x7f) (check-type-locative u16vector 0 1 2 #xfffe #xffff) (check-type-locative s16vector #x-8000 #x-7fff -2 -1 0 1 2 #x7ffe #x7fff) (check-type-locative u32vector 0 1 2 #xfffffffe #xffffffff) (check-type-locative s32vector #x-80000000 #x-7fffffff -2 -1 0 1 2 #x7ffffffe #x7fffffff) (check-type-locative u64vector 0 1 2 #xfffffffffffffffe #xffffffffffffffff) (check-type-locative s64vector #x-8000000000000000 #x-7fffffffffffffff -2 -1 0 1 2 #x7ffffffffffffffe #x7fffffffffffffff) ;; TODO: better/more extreme values? (check-type-locative f32vector -1e100 -2.0 -1.0 0.0 1.0 2.0 1e100) (check-type-locative f64vector -1e200 -2.0 -1.0 0.0 1.0 2.0 1e200) ; make-weak-locative ; locative->object ; extend-procedure (define (foo a b) (list a b)) (define unique-proc-data-1 '(23 'skidoo)) (define new-foo (extend-procedure foo unique-proc-data-1)) (assert (not (eq? foo new-foo))) (define foo new-foo) ; extended-procedure? (assert (extended-procedure? foo)) ; procedure-data (assert (eq? unique-proc-data-1 (procedure-data foo))) ; set-procedure-data! (define unique-proc-data-2 '(23 'skidoo)) (set-procedure-data! foo unique-proc-data-2) (assert (eq? unique-proc-data-2 (procedure-data foo))) ; block-set! (define some-block (vector 1 2 3 4)) (block-set! some-block 2 5) ; block-ref (assert (= 5 (block-ref some-block 2))) ; number-of-slots (assert (= 4 (number-of-slots some-block))) ; number-of-bytes (assert (= 4 (number-of-bytes "abcd"))) (assert (= (if (feature? #:64bit) 8 4) (number-of-bytes '#(1)))) ; make-record-instance (define some-record (make-record-instance 'test 'a 1)) (assert some-record) ; record-instance? (assert (record-instance? some-record)) (assert (record-instance? some-record 'test)) ; record-instance-type (assert (eq? 'test (record-instance-type some-record))) ; record-instance-length (assert (= 2 (record-instance-length some-record))) ; record-instance-slot-set! ; record-instance-slot (assert (eq? 1 (record-instance-slot some-record 1))) (record-instance-slot-set! some-record 1 'b) (assert (eq? 'b (record-instance-slot some-record 1))) ; record->vector (assert (equal? '#(test a b) (record->vector some-record))) ; object-become! (define some-foo '#(1 2 3)) (define some-bar '(1 2 3)) (object-become! (list (cons some-foo '(1 2 3)) (cons some-bar '#(1 2 3)))) (assert (pair? some-foo)) (assert (vector? some-bar)) ; mutate-procedure! (assert (equal? '(1 2) (foo 1 2))) (define new-foo (mutate-procedure! foo (lambda (new) (lambda args (cons 'hello (apply new args)))))) (assert (not (eq? foo new-foo))) (assert (equal? '(hello 1 2) (foo 1 2))) ; pointer vectors (define pv (make-pointer-vector 42 #f)) (assert (= 42 (pointer-vector-length pv))) (assert (not (pointer-vector-ref pv 0))) (pointer-vector-set! pv 1 (address->pointer 999)) (set! (pointer-vector-ref pv 40) (address->pointer 777)) (assert (not (pointer-vector-ref pv 0))) (assert (not (pointer-vector-ref pv 41))) (assert (= (pointer->address (pointer-vector-ref pv 1)) 999)) (assert (= (pointer->address (pointer-vector-ref pv 40)) 777)) (pointer-vector-fill! pv (address->pointer 1)) (assert (= 1 (pointer->address (pointer-vector-ref pv 0)))) #+(not csi) (begin (define pv1 (foreign-lambda* bool ((pointer-vector pv)) "C_return(pv == NULL);")) (define pv2 (foreign-lambda* c-pointer ((pointer-vector pv) (bool f)) "static void *xx = (void *)123;" "if(f) pv[ 0 ] = xx;" "C_return(xx);")) (assert (eq? #t (pv1 #f))) (define p (pv2 pv #t)) (assert (pointer=? p (pv2 pv #f)))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/user-pass-tests.scm�������������������������������������������������������������0000644�0001750�0001750�00000001715�13370655400�017666� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; Test user compilation passes (import (chicken base) (chicken compiler user-pass) (chicken io) (chicken pretty-print)) (define passes '()) ; track user passes (user-read-pass (lambda (_ _ _) (set! passes (cons 'user-read-pass passes)) (list 'ok))) ; ignore file and use single datum (user-preprocessor-pass (lambda (x) (set! passes (cons 'user-preprocessor-pass passes)) (values x))) (user-pass (lambda (x) (set! passes (cons 'user-pass passes)) (values x))) (user-post-analysis-pass (lambda (_ _ _ _ _ _ _) (set! passes (cons 'user-post-analysis-pass passes)))) (on-exit (lambda () (assert (memq 'user-read-pass passes) "user-read-pass not called") (assert (memq 'user-pass passes) "user-pass not called") (assert (memq 'user-preprocessor-pass passes) "user-preprocessor-pass not called") (assert (memq 'user-post-analysis-pass passes) "user-post-analysis-pass not called"))) ���������������������������������������������������chicken-5.1.0/tests/test-optional.scm���������������������������������������������������������������0000644�0001750�0001750�00000007342�13213463160�017404� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test-optional.scm - by Alan Post (define (test baseline result) (assert (equal? baseline result))) ;; ;; basic optional arguments with default value. ;; (define (foo0 #!optional a0 a1 a2 a3) (list a0 a1 a2 a3)) (define (foo1 a0 #!optional a1 a2 a3) (list a0 a1 a2 a3)) (define (foo2 a0 a1 #!optional a2 a3) (list a0 a1 a2 a3)) (define (foo3 a0 a1 a2 #!optional a3) (list a0 a1 a2 a3)) (test '(#f #f #f #f) (foo0)) (test '(1 #f #f #f) (foo0 1)) (test '(1 2 #f #f) (foo0 1 2)) (test '(1 2 3 #f) (foo0 1 2 3)) (test '(1 2 3 4) (foo0 1 2 3 4)) ;(test '(#f #f #f #f) (foo1)) ; invalid, too few arguments. (test '(1 #f #f #f) (foo1 1)) (test '(1 2 #f #f) (foo1 1 2)) (test '(1 2 3 #f) (foo1 1 2 3)) (test '(1 2 3 4) (foo1 1 2 3 4)) ;(test '(#f #f #f #f) (foo2)) ; invalid, too few arguments. ;(test '(1 #f #f #f) (foo2 0)) ; invalid, too few arguments. (test '(1 2 #f #f) (foo2 1 2)) (test '(1 2 #f #f) (foo2 1 2)) (test '(1 2 3 #f) (foo2 1 2 3)) (test '(1 2 3 4) (foo2 1 2 3 4)) ;(test '(#f #f #f #f) (foo3)) ; invalid, too few arguments. ;(test '(1 #f #f #f) (foo3 1)) ; invalid, too few arguments. ;(test '(1 2 #f #f) (foo3 1 2)) ; invalid, too few arguments. (test '(1 2 3 #f) (foo3 1 2 3)) (test '(1 2 3 4) (foo3 1 2 3 4)) ;; ;; basic optional arguments with manual default value. ;; (define (foo0 #!optional (a0 -1) (a1 -2) (a2 -3) (a3 -4)) (list a0 a1 a2 a3)) (define (foo1 a0 #!optional (a1 -2) (a2 -3) (a3 -4)) (list a0 a1 a2 a3)) (define (foo2 a0 a1 #!optional (a2 -3) (a3 -4)) (list a0 a1 a2 a3)) (define (foo3 a0 a1 a2 #!optional (a3 -4)) (list a0 a1 a2 a3)) (test '(-1 -2 -3 -4) (foo0)) (test '(1 -2 -3 -4) (foo0 1)) (test '(1 2 -3 -4) (foo0 1 2)) (test '(1 2 3 -4) (foo0 1 2 3)) (test '(1 2 3 4) (foo0 1 2 3 4)) ;(test '(-1 -2 -3 -4) (foo1)) ; invalid, too few arguments. (test '(1 -2 -3 -4) (foo1 1)) (test '(1 2 -3 -4) (foo1 1 2)) (test '(1 2 3 -4) (foo1 1 2 3)) (test '(1 2 3 4) (foo1 1 2 3 4)) ;(test '(-1 -2 -3 -4) (foo2)) ; invalid, too few arguments. ;(test '(1 -2 -3 -4) (foo2 0)) ; invalid, too few arguments. (test '(1 2 -3 -4) (foo2 1 2)) (test '(1 2 -3 -4) (foo2 1 2)) (test '(1 2 3 -4) (foo2 1 2 3)) (test '(1 2 3 4) (foo2 1 2 3 4)) ;(test '(-1 -2 -3 -4) (foo3)) ; invalid, too few arguments. ;(test '(1 -2 -3 -4) (foo3 1)) ; invalid, too few arguments. ;(test '(1 2 -3 -4) (foo3 1 2)) ; invalid, too few arguments. (test '(1 2 3 -4) (foo3 1 2 3)) (test '(1 2 3 4) (foo3 1 2 3 4)) ;; ;; optional arguments with default value set from previous default. ;; ;; NOTE: these currently fail. (define (foo0 #!optional (a0 -1) (a1 (- a0 1)) (a2 (- a1 1)) (a3 (- a2 1))) (list a0 a1 a2 a3)) (define (foo1 a0 #!optional (a1 -2) (a2 (- a1 1)) (a3 (- a2 1))) (list a0 a1 a2 a3)) (define (foo2 a0 a1 #!optional (a2 -3) (a3 (- a2 1))) (list a0 a1 a2 a3)) (define (foo3 a0 a1 a2 #!optional (a3 -4)) (list a0 a1 a2 a3)) (test '(-1 -2 -3 -4) (foo0)) (test '(1 0 -1 -2) (foo0 1)) (test '(1 2 1 0) (foo0 1 2)) (test '(1 2 3 2) (foo0 1 2 3)) (test '(1 2 3 4) (foo0 1 2 3 4)) ;(test '(-1 -2 -3 -4) (foo1)) ; invalid, too few arguments. (test '(1 -2 -3 -4) (foo1 1)) (test '(1 2 1 0) (foo1 1 2)) (test '(1 2 3 2) (foo1 1 2 3)) (test '(1 2 3 4) (foo1 1 2 3 4)) ;(test '(-1 -2 -3 -4) (foo2)) ; invalid, too few arguments. ;(test '(1 -2 -3 -4) (foo2 0)) ; invalid, too few arguments. (test '(1 2 -3 -4) (foo2 1 2)) (test '(1 2 3 2) (foo2 1 2 3)) (test '(1 2 3 4) (foo2 1 2 3 4)) ;(test '(-1 -2 -3 -4) (foo3)) ; invalid, too few arguments. ;(test '(1 -2 -3 -4) (foo3 1)) ; invalid, too few arguments. ;(test '(1 2 -3 -4) (foo3 1 2)) ; invalid, too few arguments. (test '(1 2 3 -4) (foo3 1 2 3)) (test '(1 2 3 4) (foo3 1 2 3 4)) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/r4rstest.scm��������������������������������������������������������������������0000644�0001750�0001750�00000106212�13370655400�016374� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000, 2003 Free Software Foundation, Inc. ;; ;; This program is free software; you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by the ;; Free Software Foundation; either version 2, or (at your option) any ;; later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; To receive a copy of the GNU General Public License, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA; or view ;; http://swissnet.ai.mit.edu/~jaffer/GPL.html ;;;; "r4rstest.scm" Test correctness of scheme implementations. ;;; Author: Aubrey Jaffer ;;; This includes examples from ;;; William Clinger and Jonathan Rees, editors. ;;; Revised^4 Report on the Algorithmic Language Scheme ;;; and the IEEE specification. ;;; The input tests read this file expecting it to be named "r4rstest.scm". ;;; Files `tmp1'.out, `tmp2.out' and `tmp3.out' will be created in the course ;;; of running these tests. You may need to delete them in order to run ;;; "r4rstest.scm" more than once. ;;; There are three optional tests: ;;; (TEST-CONT) tests multiple returns from call-with-current-continuation ;;; ;;; (TEST-SC4) tests procedures required by R4RS but not by IEEE ;;; ;;; (TEST-DELAY) tests DELAY and FORCE, which are not required by ;;; either standard. ;;; If you are testing a R3RS version which does not have `list?' do: ;;; (define list? #f) ;;; send corrections or additions to agj @ alum.mit.edu (define cur-section '())(define errs '()) (define SECTION (lambda args (display "SECTION") (write args) (newline) (set! cur-section args) #t)) (define record-error (lambda (e) (set! errs (cons (list cur-section e) errs)))) (define test (lambda (expect fun . args) (write (cons fun args)) (display " ==> ") ((lambda (res) (write res) (newline) (cond ((not (equal? expect res)) (record-error (list res expect (cons fun args))) (display " BUT EXPECTED ") (write expect) (newline) #f) (else #t))) (if (procedure? fun) (apply fun args) (car args))))) (define (report-errs) (newline) (if (null? errs) (display "Passed all tests") (begin (display "errors were:") (newline) (display "(SECTION (got expected (call)))") (newline) (for-each (lambda (l) (write l) (newline)) errs))) (newline)) (SECTION 2 1);; test that all symbol characters are supported. '(+ - ... !.. $.+ %.- &.! *.: /:. :+. <-. =. >. ?. ~. _. ^.) (SECTION 3 4) (define disjoint-type-functions (list boolean? char? null? number? pair? procedure? string? symbol? vector?)) (define type-examples (list #t #f #\a '() 9739 '(test) record-error "test" "" 'test '#() '#(a b c) )) (define i 1) (for-each (lambda (x) (display (make-string i #\ )) (set! i (+ 3 i)) (write x) (newline)) disjoint-type-functions) (define type-matrix (map (lambda (x) (let ((t (map (lambda (f) (f x)) disjoint-type-functions))) (write t) (write x) (newline) t)) type-examples)) (set! i 0) (define j 0) (for-each (lambda (x y) (set! j (+ 1 j)) (set! i 0) (for-each (lambda (f) (set! i (+ 1 i)) (cond ((and (= i j)) (cond ((not (f x)) (test #t f x)))) ((f x) (test #f f x))) (cond ((and (= i j)) (cond ((not (f y)) (test #t f y)))) ((f y) (test #f f y)))) disjoint-type-functions)) (list #t #\a '() 9739 '(test) record-error "test" 'car '#(a b c)) (list #f #\newline '() -3252 '(t . t) car "" 'nil '#())) (SECTION 4 1 2) (test '(quote a) 'quote (quote 'a)) (test '(quote a) 'quote ''a) (SECTION 4 1 3) (test 12 (if #f + *) 3 4) (SECTION 4 1 4) (test 8 (lambda (x) (+ x x)) 4) (define reverse-subtract (lambda (x y) (- y x))) (test 3 reverse-subtract 7 10) (define add4 (let ((x 4)) (lambda (y) (+ x y)))) (test 10 add4 6) (test '(3 4 5 6) (lambda x x) 3 4 5 6) (test '(5 6) (lambda (x y . z) z) 3 4 5 6) (SECTION 4 1 5) (test 'yes 'if (if (> 3 2) 'yes 'no)) (test 'no 'if (if (> 2 3) 'yes 'no)) (test '1 'if (if (> 3 2) (- 3 2) (+ 3 2))) (SECTION 4 1 6) (define x 2) (test 3 'define (+ x 1)) (set! x 4) (test 5 'set! (+ x 1)) (SECTION 4 2 1) (test 'greater 'cond (cond ((> 3 2) 'greater) ((< 3 2) 'less))) (test 'equal 'cond (cond ((> 3 3) 'greater) ((< 3 3) 'less) (else 'equal))) (test 2 'cond (cond ((assv 'b '((a 1) (b 2))) => cadr) (else #f))) (test 'composite 'case (case (* 2 3) ((2 3 5 7) 'prime) ((1 4 6 8 9) 'composite))) (test 'consonant 'case (case (car '(c d)) ((a e i o u) 'vowel) ((w y) 'semivowel) (else 'consonant))) (test #t 'and (and (= 2 2) (> 2 1))) (test #f 'and (and (= 2 2) (< 2 1))) (test '(f g) 'and (and 1 2 'c '(f g))) (test #t 'and (and)) (test #t 'or (or (= 2 2) (> 2 1))) (test #t 'or (or (= 2 2) (< 2 1))) (test #f 'or (or #f #f #f)) (test #f 'or (or)) (test '(b c) 'or (or (memq 'b '(a b c)) (+ 3 0))) (SECTION 4 2 2) (test 6 'let (let ((x 2) (y 3)) (* x y))) (test 35 'let (let ((x 2) (y 3)) (let ((x 7) (z (+ x y))) (* z x)))) (test 70 'let* (let ((x 2) (y 3)) (let* ((x 7) (z (+ x y))) (* z x)))) (test #t 'letrec (letrec ((even? (lambda (n) (if (zero? n) #t (odd? (- n 1))))) (odd? (lambda (n) (if (zero? n) #f (even? (- n 1)))))) (even? 88))) (define x 34) (test 5 'let (let ((x 3)) (define x 5) x)) (test 34 'let x) (test 6 'let (let () (define x 6) x)) (test 34 'let x) (test 7 'let* (let* ((x 3)) (define x 7) x)) (test 34 'let* x) (test 8 'let* (let* () (define x 8) x)) (test 34 'let* x) (test 9 'letrec (letrec () (define x 9) x)) (test 34 'letrec x) (test 10 'letrec (letrec ((x 3)) (define x 10) x)) (test 34 'letrec x) (define (s x) (if x (let () (set! s x) (set! x s)))) (SECTION 4 2 3) (define x 0) (test 6 'begin (begin (set! x (begin (begin 5))) (begin ((begin +) (begin x) (begin (begin 1)))))) (SECTION 4 2 4) (test '#(0 1 2 3 4) 'do (do ((vec (make-vector 5)) (i 0 (+ i 1))) ((= i 5) vec) (vector-set! vec i i))) (test 25 'do (let ((x '(1 3 5 7 9))) (do ((x x (cdr x)) (sum 0 (+ sum (car x)))) ((null? x) sum)))) (test 1 'let (let foo () 1)) (test '((6 1 3) (-5 -2)) 'let (let loop ((numbers '(3 -2 1 6 -5)) (nonneg '()) (neg '())) (cond ((null? numbers) (list nonneg neg)) ((negative? (car numbers)) (loop (cdr numbers) nonneg (cons (car numbers) neg))) (else (loop (cdr numbers) (cons (car numbers) nonneg) neg))))) ;;From: Allegro Petrofsky <Allegro@Petrofsky.Berkeley.CA.US> (test -1 'let (let ((f -)) (let f ((n (f 1))) n))) (SECTION 4 2 6) (test '(list 3 4) 'quasiquote `(list ,(+ 1 2) 4)) (test '(list a (quote a)) 'quasiquote (let ((name 'a)) `(list ,name ',name))) (test '(a 3 4 5 6 b) 'quasiquote `(a ,(+ 1 2) ,@(map abs '(4 -5 6)) b)) (test '((foo 7) . cons) 'quasiquote `((foo ,(- 10 3)) ,@(cdr '(c)) . ,(car '(cons)))) ;;; sqt is defined here because not all implementations are required to ;;; support it. (define (sqt x) (do ((i 0 (+ i 1))) ((> (* i i) x) (- i 1)))) (test '#(10 5 2 4 3 8) 'quasiquote `#(10 5 ,(sqt 4) ,@(map sqt '(16 9)) 8)) (test 5 'quasiquote `,(+ 2 3)) (test '(a `(b ,(+ 1 2) ,(foo 4 d) e) f) 'quasiquote `(a `(b ,(+ 1 2) ,(foo ,(+ 1 3) d) e) f)) (test '(a `(b ,x ,'y d) e) 'quasiquote (let ((name1 'x) (name2 'y)) `(a `(b ,,name1 ,',name2 d) e))) (test '(list 3 4) 'quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) (test '`(list ,(+ 1 2) 4) 'quasiquote '(quasiquote (list (unquote (+ 1 2)) 4))) (SECTION 5 2 1) (define add3 (lambda (x) (+ x 3))) (test 6 'define (add3 3)) (define first car) (test 1 'define (first '(1 2))) (define old-+ +) (begin (begin (begin) (begin (begin (begin) (define + (lambda (x y) (list y x))) (begin))) (begin)) (begin) (begin (begin (begin) (test '(3 6) add3 6) (begin)))) (set! + old-+) (test 9 add3 6) (begin) (begin (begin)) (begin (begin (begin (begin)))) (SECTION 5 2 2) #;(test 45 'define (let ((x 5)) (begin (begin (begin) (begin (begin (begin) (define foo (lambda (y) (bar x y))) (begin))) (begin)) (begin) (begin) (begin (define bar (lambda (a b) (+ (* a b) a)))) (begin)) (begin) (begin (foo (+ x 3))))) (define x 34) (define (foo) (define x 5) x) (test 5 foo) (test 34 'define x) (define foo (lambda () (define x 5) x)) (test 5 foo) (test 34 'define x) (define (foo x) ((lambda () (define x 5) x)) x) (test 88 foo 88) (test 4 foo 4) (test 34 'define x) (test 99 'internal-define (letrec ((foo (lambda (arg) (or arg (and (procedure? foo) (foo 99)))))) (define bar (foo #f)) (foo #f))) (test 77 'internal-define (letrec ((foo 77) (bar #f) (retfoo (lambda () foo))) (define baz (retfoo)) (retfoo))) (SECTION 6 1) (test #f not #t) (test #f not 3) (test #f not (list 3)) (test #t not #f) (test #f not '()) (test #f not (list)) (test #f not 'nil) ;(test #t boolean? #f) ;(test #f boolean? 0) ;(test #f boolean? '()) (SECTION 6 2) (test #t eqv? 'a 'a) (test #f eqv? 'a 'b) (test #t eqv? 2 2) (test #t eqv? '() '()) (test #t eqv? '10000 '10000) (test #f eqv? (cons 1 2)(cons 1 2)) (test #f eqv? (lambda () 1) (lambda () 2)) (test #f eqv? #f 'nil) (let ((p (lambda (x) x))) (test #t eqv? p p)) (define gen-counter (lambda () (let ((n 0)) (lambda () (set! n (+ n 1)) n)))) (let ((g (gen-counter))) (test #t eqv? g g)) (test #f eqv? (gen-counter) (gen-counter)) (letrec ((f (lambda () (if (eqv? f g) 'f 'both))) (g (lambda () (if (eqv? f g) 'g 'both)))) (test #f eqv? f g)) (test #t eq? 'a 'a) (test #f eq? (list 'a) (list 'a)) (test #t eq? '() '()) (test #t eq? car car) (let ((x '(a))) (test #t eq? x x)) (let ((x '#())) (test #t eq? x x)) (let ((x (lambda (x) x))) (test #t eq? x x)) (define test-eq?-eqv?-agreement (lambda (obj1 obj2) (cond ((eq? (eq? obj1 obj2) (eqv? obj1 obj2))) (else (record-error (list #f #t (list 'test-eq?-eqv?-agreement obj1 obj2))) (display "eqv? and eq? disagree about ") (write obj1) (display #\ ) (write obj2) (newline))))) (test-eq?-eqv?-agreement '#f '#f) (test-eq?-eqv?-agreement '#t '#t) (test-eq?-eqv?-agreement '#t '#f) (test-eq?-eqv?-agreement '(a) '(a)) (test-eq?-eqv?-agreement '(a) '(b)) (test-eq?-eqv?-agreement car car) (test-eq?-eqv?-agreement car cdr) (test-eq?-eqv?-agreement (list 'a) (list 'a)) (test-eq?-eqv?-agreement (list 'a) (list 'b)) (test-eq?-eqv?-agreement '#(a) '#(a)) (test-eq?-eqv?-agreement '#(a) '#(b)) (test-eq?-eqv?-agreement "abc" "abc") (test-eq?-eqv?-agreement "abc" "abz") (test #t equal? 'a 'a) (test #t equal? '(a) '(a)) (test #t equal? '(a (b) c) '(a (b) c)) (test #t equal? "abc" "abc") (test #t equal? 2 2) (test #t equal? (make-vector 5 'a) (make-vector 5 'a)) (SECTION 6 3) (test '(a b c d e) 'dot '(a . (b . (c . (d . (e . ())))))) (define x (list 'a 'b 'c)) (define y x) (and list? (test #t list? y)) (set-cdr! x 4) (test '(a . 4) 'set-cdr! x) (test #t eqv? x y) (test '(a b c . d) 'dot '(a . (b . (c . d)))) (and list? (test #f list? y)) (and list? (let ((x (list 'a))) (set-cdr! x x) (test #f 'list? (list? x)))) ;(test #t pair? '(a . b)) ;(test #t pair? '(a . 1)) ;(test #t pair? '(a b c)) ;(test #f pair? '()) ;(test #f pair? '#(a b)) (test '(a) cons 'a '()) (test '((a) b c d) cons '(a) '(b c d)) (test '("a" b c) cons "a" '(b c)) (test '(a . 3) cons 'a 3) (test '((a b) . c) cons '(a b) 'c) (test 'a car '(a b c)) (test '(a) car '((a) b c d)) (test 1 car '(1 . 2)) (test '(b c d) cdr '((a) b c d)) (test 2 cdr '(1 . 2)) (test '(a 7 c) list 'a (+ 3 4) 'c) (test '() list) (test 3 length '(a b c)) (test 3 length '(a (b) (c d e))) (test 0 length '()) (test '(x y) append '(x) '(y)) (test '(a b c d) append '(a) '(b c d)) (test '(a (b) (c)) append '(a (b)) '((c))) (test '() append) (test '(a b c . d) append '(a b) '(c . d)) (test 'a append '() 'a) (test '(c b a) reverse '(a b c)) (test '((e (f)) d (b c) a) reverse '(a (b c) d (e (f)))) (test 'c list-ref '(a b c d) 2) (test '(a b c) memq 'a '(a b c)) (test '(b c) memq 'b '(a b c)) (test '#f memq 'a '(b c d)) (test '#f memq (list 'a) '(b (a) c)) (test '((a) c) member (list 'a) '(b (a) c)) (test '(101 102) memv 101 '(100 101 102)) (define e '((a 1) (b 2) (c 3))) (test '(a 1) assq 'a e) (test '(b 2) assq 'b e) (test #f assq 'd e) (test #f assq (list 'a) '(((a)) ((b)) ((c)))) (test '((a)) assoc (list 'a) '(((a)) ((b)) ((c)))) (test '(5 7) assv 5 '((2 3) (5 7) (11 13))) (SECTION 6 4) ;(test #t symbol? 'foo) (test #t symbol? (car '(a b))) ;(test #f symbol? "bar") ;(test #t symbol? 'nil) ;(test #f symbol? '()) ;(test #f symbol? #f) ;;; But first, what case are symbols in? Determine the standard case: (define char-standard-case char-upcase) (if (string=? (symbol->string 'A) "a") (set! char-standard-case char-downcase)) (test #t 'standard-case (string=? (symbol->string 'a) (symbol->string 'A))) (test #t 'standard-case (or (string=? (symbol->string 'a) "A") (string=? (symbol->string 'A) "a"))) (define (str-copy s) (let ((v (make-string (string-length s)))) (do ((i (- (string-length v) 1) (- i 1))) ((< i 0) v) (string-set! v i (string-ref s i))))) (define (string-standard-case s) (set! s (str-copy s)) (do ((i 0 (+ 1 i)) (sl (string-length s))) ((>= i sl) s) (string-set! s i (char-standard-case (string-ref s i))))) (test (string-standard-case "flying-fish") symbol->string 'flying-fish) (test (string-standard-case "martin") symbol->string 'Martin) (test "Malvina" symbol->string (string->symbol "Malvina")) (test #t 'standard-case (eq? 'a 'A)) (define x (string #\a #\b)) (define y (string->symbol x)) (string-set! x 0 #\c) (test "cb" 'string-set! x) (test "ab" symbol->string y) (test y string->symbol "ab") (test #t eq? 'mISSISSIppi 'mississippi) (test #f 'string->symbol (eq? 'bitBlt (string->symbol "bitBlt"))) (test 'JollyWog string->symbol (symbol->string 'JollyWog)) (SECTION 6 5 5) (test #t number? 3) (test #t complex? 3) (test #t real? 3) (test #t rational? 3) (test #t integer? 3) (test #t exact? 3) (test #f inexact? 3) (test #t = 22 22 22) (test #t = 22 22) (test #f = 34 34 35) (test #f = 34 35) (test #t > 3 -6246) (test #f > 9 9 -2424) (test #t >= 3 -4 -6246) (test #t >= 9 9) (test #f >= 8 9) (test #t < -1 2 3 4 5 6 7 8) (test #f < -1 2 3 4 4 5 6 7) (test #t <= -1 2 3 4 5 6 7 8) (test #t <= -1 2 3 4 4 5 6 7) (test #f < 1 3 2) (test #f >= 1 3 2) (test #t zero? 0) (test #f zero? 1) (test #f zero? -1) (test #f zero? -100) (test #t positive? 4) (test #f positive? -4) (test #f positive? 0) (test #f negative? 4) (test #t negative? -4) (test #f negative? 0) (test #t odd? 3) (test #f odd? 2) (test #f odd? -4) (test #t odd? -1) (test #f even? 3) (test #t even? 2) (test #t even? -4) (test #f even? -1) (test 38 max 34 5 7 38 6) (test -24 min 3 5 5 330 4 -24) (test 7 + 3 4) (test '3 + 3) (test 0 +) (test 4 * 4) (test 1 *) (test -1 - 3 4) (test -3 - 3) (test 7 abs -7) (test 7 abs 7) (test 0 abs 0) (test 5 quotient 35 7) (test -5 quotient -35 7) (test -5 quotient 35 -7) (test 5 quotient -35 -7) (test 1 modulo 13 4) (test 1 remainder 13 4) (test 3 modulo -13 4) (test -1 remainder -13 4) (test -3 modulo 13 -4) (test 1 remainder 13 -4) (test -1 modulo -13 -4) (test -1 remainder -13 -4) (test 0 modulo 0 86400) (test 0 modulo 0 -86400) (define (divtest n1 n2) (= n1 (+ (* n2 (quotient n1 n2)) (remainder n1 n2)))) (test #t divtest 238 9) (test #t divtest -238 9) (test #t divtest 238 -9) (test #t divtest -238 -9) (test 4 gcd 0 4) (test 4 gcd -4 0) (test 4 gcd 32 -36) (test 0 gcd) (test 288 lcm 32 -36) (test 1 lcm) (SECTION 6 5 5) ;;; Implementations which don't allow division by 0 can have fragile ;;; string->number. (define (test-string->number str) (define ans (string->number str)) (cond ((not ans) #t) ((number? ans) #t) (else ans))) (for-each (lambda (str) (test #t test-string->number str)) '("+#.#" "-#.#" "#.#" "1/0" "-1/0" "0/0" "+1/0i" "-1/0i" "0/0i" "0/0-0/0i" "1/0-1/0i" "-1/0+1/0i" "#i" "#e" "#" "#i0/0")) (cond ((number? (string->number "1+1i")) ;More kawa bait (test #t number? (string->number "#i-i")) (test #t number? (string->number "#i+i")) (test #t number? (string->number "#i2+i")))) ;;;;From: fred@sce.carleton.ca (Fred J Kaudel) ;;; Modified by jaffer. (define (test-inexact) (define f3.9 (string->number "3.9")) (define f4.0 (string->number "4.0")) (define f-3.25 (string->number "-3.25")) (define f.25 (string->number ".25")) (define f4.5 (string->number "4.5")) (define f3.5 (string->number "3.5")) (define f0.0 (string->number "0.0")) (define f0.8 (string->number "0.8")) (define f1.0 (string->number "1.0")) (define wto write-test-obj) (define lto load-test-obj) (newline) (display ";testing inexact numbers; ") (newline) (SECTION 6 2) (test #f eqv? 1 f1.0) (test #f eqv? 0 f0.0) (SECTION 6 5 5) (test #t inexact? f3.9) (test #t 'max (inexact? (max f3.9 4))) (test f4.0 max f3.9 4) (test f4.0 exact->inexact 4) (test f4.0 exact->inexact 4.0) (test 4 inexact->exact 4) (test 4 inexact->exact 4.0) (test (- f4.0) round (- f4.5)) (test (- f4.0) round (- f3.5)) (test (- f4.0) round (- f3.9)) (test f0.0 round f0.0) (test f0.0 round f.25) (test f1.0 round f0.8) (test f4.0 round f3.5) (test f4.0 round f4.5) (test 1 expt 0 0) (test 0 expt 0 1) (test (atan 1) atan 1 1) (set! write-test-obj (list f.25 f-3.25));.25 inexact errors less likely. (set! load-test-obj (list 'define 'foo (list 'quote write-test-obj))) (test #t call-with-output-file "tmp3.out" (lambda (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file))) (check-test-file "tmp3.out") (set! write-test-obj wto) (set! load-test-obj lto) (let ((x (string->number "4195835.0")) (y (string->number "3145727.0"))) (test #t 'pentium-fdiv-bug (> f1.0 (- x (* (/ x y) y))))) (report-errs)) (define (test-inexact-printing) (let ((f0.0 (string->number "0.0")) (f0.5 (string->number "0.5")) (f1.0 (string->number "1.0")) (f2.0 (string->number "2.0"))) (define log2 (let ((l2 (log 2))) (lambda (x) (/ (log x) l2)))) (define (slow-frexp x) (if (zero? x) (list f0.0 0) (let* ((l2 (log2 x)) (e (floor (log2 x))) (e (if (= l2 e) (inexact->exact e) (+ (inexact->exact e) 1))) (f (/ x (expt 2 e)))) (list f e)))) (define float-precision (let ((mantissa-bits (do ((i 0 (+ i 1)) (eps f1.0 (* f0.5 eps))) ((= f1.0 (+ f1.0 eps)) i))) (minval (do ((x f1.0 (* f0.5 x))) ((zero? (* f0.5 x)) x)))) (lambda (x) (apply (lambda (f e) (let ((eps (cond ((= f1.0 f) (expt f2.0 (+ 1 (- e mantissa-bits)))) ((zero? f) minval) (else (expt f2.0 (- e mantissa-bits)))))) (if (zero? eps) ;Happens if gradual underflow. minval eps))) (slow-frexp x))))) (define (float-print-test x) (define (testit number) (eqv? number (string->number (number->string number)))) (let ((eps (float-precision x)) (all-ok? #t)) (do ((j -100 (+ j 1))) ((or (not all-ok?) (> j 100)) all-ok?) (let* ((xx (+ x (* j eps))) (ok? (testit xx))) (cond ((not ok?) (display "Number readback failure for ") (display `(+ ,x (* ,j ,eps))) (newline) (display xx) (newline) (set! all-ok? #f)) ;; (else (display xx) (newline)) ))))) (define (mult-float-print-test x) (let ((res #t)) (for-each (lambda (mult) (or (float-print-test (* mult x)) (set! res #f))) (map string->number '("1.0" "10.0" "100.0" "1.0e20" "1.0e50" "1.0e100" "0.1" "0.01" "0.001" "1.0e-20" "1.0e-50" "1.0e-100"))) res)) (SECTION 6 5 6) (test #t 'float-print-test (float-print-test f0.0)) (test #t 'mult-float-print-test (mult-float-print-test f1.0)) (test #t 'mult-float-print-test (mult-float-print-test (string->number "3.0"))) (test #t 'mult-float-print-test (mult-float-print-test (string->number "7.0"))) (test #t 'mult-float-print-test (mult-float-print-test (string->number "3.1415926535897931"))) (test #t 'mult-float-print-test (mult-float-print-test (string->number "2.7182818284590451"))))) (define (test-bignum) (define tb (lambda (n1 n2) (= n1 (+ (* n2 (quotient n1 n2)) (remainder n1 n2))))) (newline) (display ";testing bignums; ") (newline) (SECTION 6 5 7) (test 0 modulo 33333333333333333333 3) (test 0 modulo 33333333333333333333 -3) (test 0 remainder 33333333333333333333 3) (test 0 remainder 33333333333333333333 -3) (test 2 modulo 33333333333333333332 3) (test -1 modulo 33333333333333333332 -3) (test 2 remainder 33333333333333333332 3) (test 2 remainder 33333333333333333332 -3) (test 1 modulo -33333333333333333332 3) (test -2 modulo -33333333333333333332 -3) (test -2 remainder -33333333333333333332 3) (test -2 remainder -33333333333333333332 -3) (test 3 modulo 3 33333333333333333333) (test 33333333333333333330 modulo -3 33333333333333333333) (test 3 remainder 3 33333333333333333333) (test -3 remainder -3 33333333333333333333) (test -33333333333333333330 modulo 3 -33333333333333333333) (test -3 modulo -3 -33333333333333333333) (test 3 remainder 3 -33333333333333333333) (test -3 remainder -3 -33333333333333333333) (test 0 modulo -2177452800 86400) (test 0 modulo 2177452800 -86400) (test 0 modulo 2177452800 86400) (test 0 modulo -2177452800 -86400) (test 0 modulo 0 -2177452800) (test #t 'remainder (tb 281474976710655325431 65535)) (test #t 'remainder (tb 281474976710655325430 65535)) (SECTION 6 5 8) (test 281474976710655325431 string->number "281474976710655325431") (test "281474976710655325431" number->string 281474976710655325431) (report-errs)) (define (test-numeric-predicates) (display "Skipping bignum-inexact comparisons due to printing inconsistencies") ;; Windows prints the exponent with a leading zero, so the diff will break #;(let* ((big-ex (expt 2 90)) (big-inex (exact->inexact big-ex))) (newline) (display ";testing bignum-inexact comparisons;") (newline) (SECTION 6 5 5) (test #f = (+ big-ex 1) big-inex (- big-ex 1)) (test #f = big-inex (+ big-ex 1) (- big-ex 1)) (test #t < (- (inexact->exact big-inex) 1) big-inex (+ (inexact->exact big-inex) 1)))) (SECTION 6 5 9) (test "0" number->string 0) (test "100" number->string 100) (test "100" number->string 256 16) (test 100 string->number "100") (test 256 string->number "100" 16) (test #f string->number "") (test #f string->number ".") (test #f string->number "d") (test #f string->number "D") (test #f string->number "i") (test #f string->number "I") (test #f string->number "3i") (test #f string->number "3I") (test #f string->number "33i") (test #f string->number "33I") (test #f string->number "3.3i") (test #f string->number "3.3I") (test #f string->number "-") (test #f string->number "+") (test #t 'string->number (or (not (string->number "80000000" 16)) (positive? (string->number "80000000" 16)))) (test #t 'string->number (or (not (string->number "-80000000" 16)) (negative? (string->number "-80000000" 16)))) (SECTION 6 6) ;(test #t eqv? '#\ #\Space) ;(test #t eqv? #\space '#\Space) (test #t char? #\a) (test #t char? #\() (test #t char? #\ ) (test #t char? '#\newline) (test #f char=? #\A #\B) (test #f char=? #\a #\b) (test #f char=? #\9 #\0) (test #t char=? #\A #\A) (test #t char<? #\A #\B) (test #t char<? #\a #\b) (test #f char<? #\9 #\0) (test #f char<? #\A #\A) (test #f char>? #\A #\B) (test #f char>? #\a #\b) (test #t char>? #\9 #\0) (test #f char>? #\A #\A) (test #t char<=? #\A #\B) (test #t char<=? #\a #\b) (test #f char<=? #\9 #\0) (test #t char<=? #\A #\A) (test #f char>=? #\A #\B) (test #f char>=? #\a #\b) (test #t char>=? #\9 #\0) (test #t char>=? #\A #\A) (test #f char-ci=? #\A #\B) (test #f char-ci=? #\a #\B) (test #f char-ci=? #\A #\b) (test #f char-ci=? #\a #\b) (test #f char-ci=? #\9 #\0) (test #t char-ci=? #\A #\A) (test #t char-ci=? #\A #\a) (test #t char-ci<? #\A #\B) (test #t char-ci<? #\a #\B) (test #t char-ci<? #\A #\b) (test #t char-ci<? #\a #\b) (test #f char-ci<? #\9 #\0) (test #f char-ci<? #\A #\A) (test #f char-ci<? #\A #\a) (test #f char-ci>? #\A #\B) (test #f char-ci>? #\a #\B) (test #f char-ci>? #\A #\b) (test #f char-ci>? #\a #\b) (test #t char-ci>? #\9 #\0) (test #f char-ci>? #\A #\A) (test #f char-ci>? #\A #\a) (test #t char-ci<=? #\A #\B) (test #t char-ci<=? #\a #\B) (test #t char-ci<=? #\A #\b) (test #t char-ci<=? #\a #\b) (test #f char-ci<=? #\9 #\0) (test #t char-ci<=? #\A #\A) (test #t char-ci<=? #\A #\a) (test #f char-ci>=? #\A #\B) (test #f char-ci>=? #\a #\B) (test #f char-ci>=? #\A #\b) (test #f char-ci>=? #\a #\b) (test #t char-ci>=? #\9 #\0) (test #t char-ci>=? #\A #\A) (test #t char-ci>=? #\A #\a) (test #t char-alphabetic? #\a) (test #t char-alphabetic? #\A) (test #t char-alphabetic? #\z) (test #t char-alphabetic? #\Z) (test #f char-alphabetic? #\0) (test #f char-alphabetic? #\9) (test #f char-alphabetic? #\space) (test #f char-alphabetic? #\;) (test #f char-numeric? #\a) (test #f char-numeric? #\A) (test #f char-numeric? #\z) (test #f char-numeric? #\Z) (test #t char-numeric? #\0) (test #t char-numeric? #\9) (test #f char-numeric? #\space) (test #f char-numeric? #\;) (test #f char-whitespace? #\a) (test #f char-whitespace? #\A) (test #f char-whitespace? #\z) (test #f char-whitespace? #\Z) (test #f char-whitespace? #\0) (test #f char-whitespace? #\9) (test #t char-whitespace? #\space) (test #f char-whitespace? #\;) (test #f char-upper-case? #\0) (test #f char-upper-case? #\9) (test #f char-upper-case? #\space) (test #f char-upper-case? #\;) (test #f char-lower-case? #\0) (test #f char-lower-case? #\9) (test #f char-lower-case? #\space) (test #f char-lower-case? #\;) (test #\. integer->char (char->integer #\.)) (test #\A integer->char (char->integer #\A)) (test #\a integer->char (char->integer #\a)) (test #\A char-upcase #\A) (test #\A char-upcase #\a) (test #\a char-downcase #\A) (test #\a char-downcase #\a) (SECTION 6 7) (test #t string? "The word \"recursion\\\" has many meanings.") ;(test #t string? "") (define f (make-string 3 #\*)) (test "?**" 'string-set! (begin (string-set! f 0 #\?) f)) (test "abc" string #\a #\b #\c) (test "" string) (test 3 string-length "abc") (test #\a string-ref "abc" 0) (test #\c string-ref "abc" 2) (test 0 string-length "") (test "" substring "ab" 0 0) (test "" substring "ab" 1 1) (test "" substring "ab" 2 2) (test "a" substring "ab" 0 1) (test "b" substring "ab" 1 2) (test "ab" substring "ab" 0 2) (test "foobar" string-append "foo" "bar") (test "foo" string-append "foo") (test "foo" string-append "foo" "") (test "foo" string-append "" "foo") (test "" string-append) (test "" make-string 0) (test #t string=? "" "") (test #f string<? "" "") (test #f string>? "" "") (test #t string<=? "" "") (test #t string>=? "" "") (test #t string-ci=? "" "") (test #f string-ci<? "" "") (test #f string-ci>? "" "") (test #t string-ci<=? "" "") (test #t string-ci>=? "" "") (test #f string=? "A" "B") (test #f string=? "a" "b") (test #f string=? "9" "0") (test #t string=? "A" "A") (test #t string<? "A" "B") (test #t string<? "a" "b") (test #f string<? "9" "0") (test #f string<? "A" "A") (test #f string>? "A" "B") (test #f string>? "a" "b") (test #t string>? "9" "0") (test #f string>? "A" "A") (test #t string<=? "A" "B") (test #t string<=? "a" "b") (test #f string<=? "9" "0") (test #t string<=? "A" "A") (test #f string>=? "A" "B") (test #f string>=? "a" "b") (test #t string>=? "9" "0") (test #t string>=? "A" "A") (test #f string-ci=? "A" "B") (test #f string-ci=? "a" "B") (test #f string-ci=? "A" "b") (test #f string-ci=? "a" "b") (test #f string-ci=? "9" "0") (test #t string-ci=? "A" "A") (test #t string-ci=? "A" "a") (test #t string-ci<? "A" "B") (test #t string-ci<? "a" "B") (test #t string-ci<? "A" "b") (test #t string-ci<? "a" "b") (test #f string-ci<? "9" "0") (test #f string-ci<? "A" "A") (test #f string-ci<? "A" "a") (test #f string-ci>? "A" "B") (test #f string-ci>? "a" "B") (test #f string-ci>? "A" "b") (test #f string-ci>? "a" "b") (test #t string-ci>? "9" "0") (test #f string-ci>? "A" "A") (test #f string-ci>? "A" "a") (test #t string-ci<=? "A" "B") (test #t string-ci<=? "a" "B") (test #t string-ci<=? "A" "b") (test #t string-ci<=? "a" "b") (test #f string-ci<=? "9" "0") (test #t string-ci<=? "A" "A") (test #t string-ci<=? "A" "a") (test #f string-ci>=? "A" "B") (test #f string-ci>=? "a" "B") (test #f string-ci>=? "A" "b") (test #f string-ci>=? "a" "b") (test #t string-ci>=? "9" "0") (test #t string-ci>=? "A" "A") (test #t string-ci>=? "A" "a") (SECTION 6 8) (test #t vector? '#(0 (2 2 2 2) "Anna")) ;(test #t vector? '#()) (test '#(a b c) vector 'a 'b 'c) (test '#() vector) (test 3 vector-length '#(0 (2 2 2 2) "Anna")) (test 0 vector-length '#()) (test 8 vector-ref '#(1 1 2 3 5 8 13 21) 5) (test '#(0 ("Sue" "Sue") "Anna") 'vector-set (let ((vec (vector 0 '(2 2 2 2) "Anna"))) (vector-set! vec 1 '("Sue" "Sue")) vec)) (test '#(hi hi) make-vector 2 'hi) (test '#() make-vector 0) (test '#() make-vector 0 'a) (SECTION 6 9) (test #t procedure? car) ;(test #f procedure? 'car) (test #t procedure? (lambda (x) (* x x))) (test #f procedure? '(lambda (x) (* x x))) (test #t call-with-current-continuation procedure?) (test 7 apply + (list 3 4)) (test 7 apply (lambda (a b) (+ a b)) (list 3 4)) (test 17 apply + 10 (list 3 4)) (test '() apply list '()) (define compose (lambda (f g) (lambda args (f (apply g args))))) (test 30 (compose sqt *) 12 75) (test '(b e h) map cadr '((a b) (d e) (g h))) (test '(5 7 9) map + '(1 2 3) '(4 5 6)) (test '(1 2 3) map + '(1 2 3)) (test '(1 2 3) map * '(1 2 3)) (test '(-1 -2 -3) map - '(1 2 3)) (test '#(0 1 4 9 16) 'for-each (let ((v (make-vector 5))) (for-each (lambda (i) (vector-set! v i (* i i))) '(0 1 2 3 4)) v)) (test -3 call-with-current-continuation (lambda (exit) (for-each (lambda (x) (if (negative? x) (exit x))) '(54 0 37 -3 245 19)) #t)) (define list-length (lambda (obj) (call-with-current-continuation (lambda (return) (letrec ((r (lambda (obj) (cond ((null? obj) 0) ((pair? obj) (+ (r (cdr obj)) 1)) (else (return #f)))))) (r obj)))))) (test 4 list-length '(1 2 3 4)) (test #f list-length '(a b . c)) (test '() map cadr '()) ;;; This tests full conformance of call-with-current-continuation. It ;;; is a separate test because some schemes do not support call/cc ;;; other than escape procedures. I am indebted to ;;; raja@copper.ucs.indiana.edu (Raja Sooriamurthi) for fixing this ;;; code. The function leaf-eq? compares the leaves of 2 arbitrary ;;; trees constructed of conses. (define (next-leaf-generator obj eot) (letrec ((return #f) (cont (lambda (x) (recur obj) (set! cont (lambda (x) (return eot))) (cont #f))) (recur (lambda (obj) (if (pair? obj) (for-each recur obj) (call-with-current-continuation (lambda (c) (set! cont c) (return obj))))))) (lambda () (call-with-current-continuation (lambda (ret) (set! return ret) (cont #f)))))) (define (leaf-eq? x y) (let* ((eot (list 'eot)) (xf (next-leaf-generator x eot)) (yf (next-leaf-generator y eot))) (letrec ((loop (lambda (x y) (cond ((not (eq? x y)) #f) ((eq? eot x) #t) (else (loop (xf) (yf))))))) (loop (xf) (yf))))) (define (test-cont) (newline) (display ";testing continuations; ") (newline) (SECTION 6 9) (test #t leaf-eq? '(a (b (c))) '((a) b c)) (test #f leaf-eq? '(a (b (c))) '((a) b c d)) (report-errs)) ;;; Test Optional R4RS DELAY syntax and FORCE procedure (define (test-delay) (newline) (display ";testing DELAY and FORCE; ") (newline) (SECTION 6 9) (test 3 'delay (force (delay (+ 1 2)))) (test '(3 3) 'delay (let ((p (delay (+ 1 2)))) (list (force p) (force p)))) (test 2 'delay (letrec ((a-stream (letrec ((next (lambda (n) (cons n (delay (next (+ n 1))))))) (next 0))) (head car) (tail (lambda (stream) (force (cdr stream))))) (head (tail (tail a-stream))))) (letrec ((count 0) (p (delay (begin (set! count (+ count 1)) (if (> count x) count (force p))))) (x 5)) (test 6 force p) (set! x 10) (test 6 force p)) (test 3 'force (letrec ((p (delay (if c 3 (begin (set! c #t) (+ (force p) 1))))) (c #f)) (force p))) (report-errs)) (SECTION 6 10 1) (test #t input-port? (current-input-port)) (test #t output-port? (current-output-port)) (test #t call-with-input-file "r4rstest.scm" input-port?) (define this-file (open-input-file "r4rstest.scm")) (test #t input-port? this-file) (SECTION 6 10 2) (test #\; peek-char this-file) (test #\; read-char this-file) (test '(define cur-section '()) read this-file) (test #\( peek-char this-file) (test '(define errs '()) read this-file) (close-input-port this-file) (close-input-port this-file) (define (check-test-file name) (define test-file (open-input-file name)) (test #t 'input-port? (call-with-input-file name (lambda (test-file) (test load-test-obj read test-file) (test #t eof-object? (peek-char test-file)) (test #t eof-object? (read-char test-file)) (input-port? test-file)))) (test #\; read-char test-file) (test #\; read-char test-file) (test #\; read-char test-file) (test write-test-obj read test-file) (test load-test-obj read test-file) (close-input-port test-file)) (SECTION 6 10 3) (define write-test-obj '(#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))) (define load-test-obj (list 'define 'foo (list 'quote write-test-obj))) (test #t call-with-output-file "tmp1.out" (lambda (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file))) (check-test-file "tmp1.out") (define test-file (open-output-file "tmp2.out")) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (test #t output-port? test-file) (close-output-port test-file) (check-test-file "tmp2.out") (define (test-sc4) (newline) (display ";testing scheme 4 functions; ") (newline) (SECTION 6 7) (test '(#\P #\space #\l) string->list "P l") (test '() string->list "") (test "1\\\"" list->string '(#\1 #\\ #\")) (test "" list->string '()) (SECTION 6 8) (test '(dah dah didah) vector->list '#(dah dah didah)) (test '() vector->list '#()) (test '#(dididit dah) list->vector '(dididit dah)) (test '#() list->vector '()) (SECTION 6 10 4) (load "tmp1.out") (test write-test-obj 'load foo) (report-errs)) (report-errs) (let ((have-inexacts? (and (string->number "0.0") (inexact? (string->number "0.0")))) (have-bignums? (let ((n (string->number "281474976710655325431"))) (and n (exact? n))))) (cond (have-inexacts? (test-inexact) #;(test-inexact-printing))) (if have-bignums? (test-bignum)) (if (and have-inexacts? have-bignums?) (test-numeric-predicates))) (newline) (display "To fully test continuations, Scheme 4, and DELAY/FORCE do:") (newline) (display "(test-cont) (test-sc4) (test-delay)") (newline) (test-cont) (test-sc4) (test-delay) "last item in file" ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/linking-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000000274�13370655400�017376� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; Tests linking with core units & extensions ("csc -link ...") (import (chicken irregex) (reverser)) (unless (irregex-match '(: #\1 (+ any) #\9) (rev "987654321")) (error "weird")) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/specialization-test-1.scm�������������������������������������������������������0000644�0001750�0001750�00000003300�13502227553�020726� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; specialization-test-1.scm (module foo (foo bar) (import scheme chicken.base chicken.foreign chicken.type) #> static int inlined(int i) { static int n = 0; n += i; return n;} <# (: foo (fixnum -> fixnum)) (define (foo i) (print "foo: " i) 0) (: bar (number -> fixnum) ((fixnum) (##core#inline "inlined" #(1)))) (define (bar i) (print "bar: " i) 0) (assert (zero? (foo 1))) (assert (zero? (bar 1.0))) (assert (= 1 (bar 1))) (: spec (* -> *)) (define (spec x) x) (define-specialization (spec (x fixnum)) fixnum (+ x 1)) (assert (= 2 (spec 1))) ;; "smash-component-types!" had to convert "list[-of]" types to "pair" (#803) (let ((x (list 'a))) (set-cdr! x x) (assert (not (list? x)))) ;(define (some-proc x y) (if (string->number y) (set-cdr! x x) x)) ;(assert (null? (some-proc (list) "invalid number syntax"))) (assert (null? (the (or undefined *) (list)))) ;; Ensure a foreign-primitive returning multiple values with C_values() ;; isn't specialized to a single result. (let ((result (receive ((foreign-primitive () "C_word av[ 4 ];" "av[ 0 ] = C_SCHEME_UNDEFINED;" "av[ 1 ] = C_k;" "av[ 2 ] = C_fix(1);" "av[ 3 ] = C_fix(2);" "C_values(4, av);"))))) (assert (equal? '(1 2) result))) ;; dropped conditional branch is ignored (compiler-typecase (if #t 'a "a") (symbol 1)) ;; specializations are prioritized by order of appearance (: abc (* -> boolean)) (define (abc x) #f) (define-specialization (abc (x number)) #t) (define-specialization (abc (x fixnum)) #f) (assert (abc 1)) ;; user-defined specializations take precedence over built-ins (: foo (-> fixnum)) (define (foo) (begin)) (define-specialization (+ fixnum) fixnum 1) (assert (= (+ (foo)) 1)) ) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/typematch-tests.scm�������������������������������������������������������������0000644�0001750�0001750�00000026577�13502227553�017760� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; typematch-tests.scm (import chicken.blob chicken.condition chicken.memory chicken.locative) (include "test.scm") (define (bar) 42) (define-syntax subtype (ir-macro-transformer (lambda (e _i _c) (apply (lambda (t1 t2) `(test-equal ',(strip-syntax e) (compiler-typecase (the ,t1 1) (,t2 #t) (else #f)) #t)) (cdr e))))) (define-syntax not-subtype (ir-macro-transformer (lambda (e _i _c) (apply (lambda (t1 t2) `(test-equal ',(strip-syntax e) (compiler-typecase (the ,t1 1) (,t2 #t) (else #f)) #f)) (cdr e))))) (define-syntax proper-subtype (ir-macro-transformer (lambda (e _i _c) (apply (lambda (t1 t2) `(begin (subtype ,t1 ,t2) (not-subtype ,t2 ,t1))) (cdr e))))) (define-syntax compatible (ir-macro-transformer (lambda (e _i _c) (apply (lambda (t1 t2) `(begin (subtype ,t1 ,t2) (subtype ,t2 ,t1))) (cdr e))))) (define-syntax incompatible (ir-macro-transformer (lambda (e _i _c) (apply (lambda (t1 t2) `(begin (not-subtype ,t1 ,t2) (not-subtype ,t2 ,t1))) (cdr e))))) (define-syntax infer (ir-macro-transformer (lambda (e _i _c) (apply (lambda (t x) ;; TODO: test-equal smashes types: change rest of the macros ;; to handle this `(let ((res (compiler-typecase ,x (,t #t) (else #f)))) (test-equal ',(strip-syntax e) res #t))) (cdr e))))) (define-syntax infer-not (ir-macro-transformer (lambda (e _i _c) (apply (lambda (t x) `(test-equal ',(strip-syntax e) (compiler-typecase ,x (,t #t) (else #f)) #f)) (cdr e))))) (define-syntax infer-last (ir-macro-transformer (lambda (e _i _c) (apply (lambda (types x) `(test-equal ',(strip-syntax e) (compiler-typecase ,x ,@(map (lambda (t) `(,t #f)) (cdr (reverse types))) (,(car (reverse types)) #t) ;; (else #f) ) #t)) (cdr e))))) (define-syntax ms (er-macro-transformer (lambda (x r c) (let ((fname (gensym)) (fname2 (gensym)) (val (cadr x)) (nval (caddr x)) (type (cadddr x))) `(begin (print "specialize " ',type) (: ,fname (,type -> *) ((,type) 'ok) (((not ,type)) 'ok-too)) (define (,fname x) 'bomb) (assert (eq? 'ok (,fname ,val)) "did not specialize" ',val ',type) (assert (eq? 'ok-too (,fname ,nval)) "did specialize" ',nval ',type) (: ,fname2 (* -> *) (((not ,type)) 'bomb)) (define (,fname2 x) 'ok) (print "specialize not " ',type) (,fname2 ,val)))))) (define-syntax check (ir-macro-transformer (lambda (e _i _c) (apply (lambda (t of-t not-of-t) `(begin (infer ,t ,of-t) (infer-not ,t ,not-of-t))) (cdr e))))) (define-syntax checkp (ir-macro-transformer (lambda (e _i _c) (apply (lambda (pred type x) `(begin (test-equal '(inferred-type-after true (,pred ,x) is ,type) (let ((tmp (the * ,x))) (if (,pred tmp) (compiler-typecase tmp (,type #t) (else #f)) #f)) #t) (test-equal '((,pred ,x) is #t) (let ((tmp (the * ,x))) (,pred tmp)) #t) (infer-not ,type (##sys#make-structure 'foo)))) (cdr e))))) (check fixnum 123 1.2) (check string "abc" 1.2) (check symbol 'abc 1.2) (check char #\x 1.2) (check true #t #f) (check false #f #t) (check integer (+ 1 2) 'a) (check (list fixnum) '(1) 1.2) (check (list symbol) '(a) 1.2) (check (list fixnum) (list 1) '(1 . 2)) (check pair '(1 . 2) '()) (check procedure + 1.2) (check vector '#(1) 1.2) (check null '() 1) (check port (current-input-port) 1.2) (check input-port (current-input-port) 1.2) (check blob (make-blob 10) 1.2) (check pointer (address->pointer 0) 1.2) (check pointer-vector (make-pointer-vector 1) 1.2) (check locative (make-locative "a") 1.2) (check (struct promise) (##sys#make-structure 'promise) 1) (check (pair fixnum float) '(1 . 2.3) '(a)) (check (vector symbol) '#(a) 1) (check (list string) '("ok") 1) (ms 123 1.2 fixnum) (ms "abc" 1.2 string) (ms 'abc 1.2 symbol) (ms #\x 1.2 char) (ms #t #f true) (ms #f #t false) (ms '(1) 1.2 (list fixnum)) (ms '(1 . 2) '() pair) (ms + 1.2 procedure) (ms '#(1) 1.2 (vector fixnum)) (ms '() 1 null) (ms (void) 1.2 undefined) (ms (current-input-port) 1.2 input-port) (ms (make-blob 10) 1.2 blob) (ms (address->pointer 0) 1.2 pointer) (ms (make-pointer-vector 1) 1.2 pointer-vector) (ms (make-locative "a") 1.2 locative) (ms (##sys#make-structure 'promise) 1 (struct promise)) (ms '(1 . 2.3) '(a) (pair fixnum float)) (ms '#(a) 1 (vector symbol)) (ms '(1) "a" (or (list fixnum) symbol)) (ms (list 1) 'a (list fixnum)) (ms '() 'a (or null pair)) (define n 1) ;; What about these? should they are not predicates currently. ;; (checkp real? number (+ n)) ;; (checkp exact? fixnum '1) (checkp exact? number '1) ;; (checkp inexact? float '1.2) (checkp inexact? number '1.2) (checkp boolean? boolean #f) (checkp boolean? boolean #t) (checkp pair? pair '(1 . 2)) (checkp null? null '()) (checkp symbol? symbol 'a) (checkp number? number (+ n)) (checkp complex? number (+ n)) (checkp char? char #\a) (checkp string? string "a") (checkp vector? vector '#()) (checkp procedure? procedure +) (checkp blob? blob (make-blob 1)) (checkp condition? (struct condition) (##sys#make-structure 'condition)) (checkp fixnum? fixnum 1) (checkp flonum? float 1.2) (checkp port? port (current-input-port)) (checkp input-port? input-port (current-input-port)) (checkp output-port? output-port (current-output-port)) (checkp pointer-vector? pointer-vector (make-pointer-vector 1)) (checkp pointer? pointer (address->pointer 1)) (proper-subtype null list) (proper-subtype (list *) list) (proper-subtype (vector *) vector) (define-type x (struct x)) (incompatible (refine (b) x) (refine (a) x)) (incompatible (refine (a b) x) (refine (b c) x)) (proper-subtype (refine (a) x) x) (proper-subtype (refine (a b) x) (refine (a) x)) (proper-subtype (refine (b a) x) (refine (a) x)) (proper-subtype (refine (a) false) (refine (a) boolean)) (incompatible pair null) (incompatible pair list) (incompatible (procedure (*) *) (procedure () *)) (compatible (procedure (#!rest) . *) (procedure (*) . *)) (incompatible (procedure () *) (procedure () * *)) (infer (forall (a) (procedure (#!rest a) a)) +) (infer (list fixnum) '(1)) (define something) (infer port (open-input-string "foo")) (infer input-port (open-input-string "bar")) (infer port (open-output-string)) (infer output-port (open-output-string)) ;;; pairs (: car-alike (forall (a) ((pair a *) -> a))) (: cadr-alike (forall (a) ((pair * (pair a *)) -> a))) (: cddr-alike (forall (a) ((pair * (pair * a)) -> a))) (define car-alike car) (define cadr-alike cadr) (define cddr-alike cddr) (: l (list-of fixnum)) (: p (pair fixnum (pair fixnum fixnum))) (define l '(1 2 3)) (define p '(1 2 . 3)) (infer fixnum (car-alike l)) (infer fixnum (car-alike p)) (infer fixnum (cadr-alike l)) (infer fixnum (cadr-alike p)) (infer list (cddr-alike l)) (infer fixnum (cddr-alike p)) (ms '(1 . 2) '() pair) (ms '(1 2) '() pair) (ms '(1) '() pair) (ms '() '(1) (not pair)) (ms '() '(1 2) (not pair)) (ms '() '(1 . 2) (not pair)) (ms '() '(1 . 2) list) (ms '(1 . 2) '() (not list)) (ms '(1 2) '(1 . 2) (pair * pair)) (ms '(1 2) '(1 . 2) (pair * list)) (ms '(1 2) '(1 2 3) (pair * (pair * null))) (ms '(1 2) '(1 2 3) (pair * (pair * (not pair)))) (ms '(1 2 3) '(1 2) (pair * (pair * (not null)))) (ms '(1 2 . 3) '(1 2 3) (pair * (pair * fixnum))) (compatible (pair * null) (list *)) (compatible (pair * (list *)) (list * *)) (compatible (pair * (list fixnum)) (list * fixnum)) (compatible (pair fixnum (list *)) (list fixnum *)) (compatible (pair fixnum (pair * null)) (list fixnum *)) (compatible (pair fixnum (pair fixnum null)) (list fixnum fixnum)) (compatible (pair char (list fixnum)) (list char fixnum)) (compatible (pair fixnum (list char)) (list fixnum char)) (compatible (pair fixnum (list fixnum)) (list fixnum fixnum)) (incompatible (pair * *) list) (incompatible (pair * list) list) (incompatible (pair fixnum *) (list-of *)) (incompatible (pair fixnum *) (list-of fixnum)) (incompatible (pair fixnum (list-of *)) (list-of fixnum)) (incompatible (pair fixnum (list-of fixnum)) (list-of fixnum)) (incompatible (pair char (list-of fixnum)) (list-of fixnum)) (incompatible (pair fixnum (list-of char)) (list-of fixnum)) (incompatible (pair fixnum (list-of fixnum)) (list-of fixnum)) ;;; special cases (infer (struct foo) (##sys#make-structure 'foo)) (define x 1) (infer-last (fixnum float number) (vector-ref '#(1 2 3.4) x)) (infer-last (true false boolean) (vector-ref '#(#t #f) x)) (infer (list fixnum float) (list 1 2.3)) (infer (list fixnum float) (list-tail (list 1 2.3) 0)) (infer (list fixnum string) (reverse (cons "1" (cons 2 '())))) (infer (list float) (list-tail (list 1 2.3) 1)) (infer (list string fixnum) (reverse (list 1 "2"))) (infer (pair fixnum float) (list-tail (cons 1 2.3) 0)) (infer (vector * *) (make-vector 2)) (infer (vector fixnum float) (vector 1 2.3)) (infer (vector string string) (make-vector 2 "a")) (infer fixnum (##sys#vector-ref '#(1 2 3.4) 0)) (infer fixnum (list-ref (cons 1 2.3) 0)) (infer fixnum (list-ref (list 1 2.3) 0)) (infer fixnum (vector-ref '#(1 2 3.4) 0)) (infer float (##sys#vector-ref '#(1 2 3.4) 2)) (infer float (list-ref (list 1 2.3) 1)) (infer float (list-tail (cons 1 2.3) 1)) (infer float (vector-ref #(1 2 3.4) 2)) (infer list (reverse (the list (list 1 "2")))) (infer null (list-tail (list 1 2.3) 2)) (infer null (reverse '())) (: f1 (forall (a) ((list-of a) -> a))) (define (f1 x) (car x)) (infer fixnum (f1 '(1))) (: f2 (forall (a) ((list-of a) -> a))) (define (f2 x) (car x)) (infer-last (symbol fixnum (or fixnum symbol)) (f2 (list (if bar 1 'a)))) (: f3 (forall (a) ((list-of a) -> a))) (define f3 car) (define xxx '(1)) (infer fixnum (f3 (the (or (vector-of fixnum) (list-of fixnum)) xxx))) (infer (forall (a) (or (vector-of a) (list-of a))) (list 123)) (: f4 (forall (a) ((or fixnum (list-of a)) -> a))) (define f4 identity) (infer fixnum (f4 '(1))) (infer-not fixnum (f4 1)) (infer-last ((not port) (not input-port) (not output-port) input-port output-port port) (the port xxx)) (assert ; clause order is respected (compiler-typecase 1 (number #t) (fixnum #f))) ;; Always a fixnum (infer-last (bignum fixnum) #x3fffffff) ;; Is a fixnum on 64-bit, bignum on 32-bit, thus type must be 'integer (infer-last (bignum fixnum integer) #x4fffffff) ;; Always a bignum (infer-last (fixnum bignum) #x7fffffffffffffff) ;; Issue #1533 (let ((a (the (or pair null) (cons 1 '())))) (length a) ; refine (or pair null) with list (= (list-of *)) (infer list a)) (compiler-typecase (the (list (struct foo) symbol) (the 'a 1)) ;; The tv "foo" and "foo" in struct should have no relation ((forall (foo) (list (struct foo) foo)) 'ok)) ;; Issue #1563 (compiler-typecase (the (forall (a) a) 1) ((forall (a) (list a)) 'ok)) (assert (compiler-typecase 1 ('a #t))) (assert (compiler-typecase (the (list fixnum string string) something) ((list 'a 'a 'b) #f) ((list 'a 'b 'b) #t))) (assert (compiler-typecase (the (list fixnum string string) something) ((forall (a) (list a 'a 'b)) #f) ((forall (b) (list 'a 'b b)) #t))) (assert (compiler-typecase (the (list string (list string fixnum)) something) ((list 'a (forall (a) (list 'b a))) #f) ((list 'b (forall (b) (list b 'a))) #t))) (infer true (= 3 (+ 1 2))) ; Constant folding should happen before / during scrutiny (test-exit) ���������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/scrutiny-tests-strict.scm�������������������������������������������������������0000644�0001750�0001750�00000001053�13213463160�021121� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; scrutinizer-tests in "strict-types" mode ;;; #896: internal error due to missing resolution of type-variables ;;; in "initial-argument-types" (scrutinizer.scm) ;;; (reported by Moritz) (define-record bar foo) (define-type bar (struct bar)) ;; This breaks with csc -strict-types (: foo (forall (x string) (x -> bar))) ;; Using this declaration instead of the above makes it work ;; (: foo (string -> bar)) ;; Alternatively, removing this declaration makes it work, too (: make-bar (string -> bar)) (define (foo x) (make-bar x)) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/specialization-tests.scm��������������������������������������������������������0000644�0001750�0001750�00000000516�13370655400�020760� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; both arms of if branches are dropped (let ((a "yep")) (if (string? a) 'ok 'no)) (let ((a 'nope)) (if (string? a) 'ok 'no)) ;; bidirectional ports are specialized (let ((p (open-input-string "foo"))) (when (output-port? p) ; indicates `p' is bidirectional (if (input-port? p) 'ok 'no) (if (output-port? p) 'ok 'no))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/meta-syntax-test.scm������������������������������������������������������������0000755�0001750�0001750�00000002604�13370655400�020034� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; meta-syntax-test.scm ;; ;; A module's syntax definitions should be accessible through either of ;; the following import forms: ;; ;; (import-syntax-for-syntax (foo)) ; meta environment ;; ;; (begin-for-syntax ; compiler environment ;; (import-syntax (foo))) ; note that `import` will not work here ;; (module foo (bar listify) (import scheme chicken.syntax) (begin-for-syntax (define (baz x) (list (cadr x)))) (define-syntax bar (er-macro-transformer (lambda (x r c) `(,(r 'list) (baz (list 1 ,(cadr x))))))) (begin-for-syntax (define-syntax call-it-123 (syntax-rules () ((_ x) '(x 'x 1 2 3))))) (define-syntax listify (er-macro-transformer (lambda (e r c) (call-it-123 list))))) (module test-import-syntax-for-syntax (test) (import scheme chicken.syntax) (import-syntax-for-syntax (prefix foo foo:)) (define-syntax test-import-syntax-for-syntax (er-macro-transformer (lambda (x r c) `(,(r 'quote) ,@(foo:bar 1 2))))) (define (test) (test-import-syntax-for-syntax))) (module test-begin-for-syntax (test) (import scheme chicken.syntax) (begin-for-syntax (import-syntax (prefix foo foo:))) (define-syntax test-begin-for-syntax (er-macro-transformer (lambda (x r c) `(,(r 'quote) ,@(foo:bar 1 2))))) (define (test) (test-begin-for-syntax))) ����������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/dwindtst.expected���������������������������������������������������������������0000644�0001750�0001750�00000001030�13213463160�017445� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������testing escape from thunk1 visiting: thunk1 testing escape from thunk2 visiting: thunk1 thunk2 thunk3 testing escape from thunk3 visiting: thunk1 thunk2 thunk3 creating continuation thunk visiting: thunk1 thunk2 thunk3 testing escape from continuation thunk1 visiting: thunk1 creating continuation thunk visiting: thunk1 thunk2 thunk3 testing escape from continuation thunk2 visiting: thunk1 thunk2 thunk3 creating continuation thunk visiting: thunk1 thunk2 thunk3 testing escape from continuation thunk3 visiting: thunk1 thunk2 thunk3 ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/matchable.scm�������������������������������������������������������������������0000644�0001750�0001750�00000046771�13213463160�016533� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; matchable.scm -- portable hygienic pattern matcher ;; ;; This code is written by Alex Shinn and placed in the ;; Public Domain. All warranties are disclaimed. ;; Written in fully portable SYNTAX-RULES, with a few non-portable ;; bits at the end of the file conditioned out with COND-EXPAND. ;; This is a simple generative pattern matcher - each pattern is ;; expanded into the required tests, calling a failure continuation if ;; the tests pass. This makes the logic easy to follow and extend, ;; but produces sub-optimal code in cases where you have many similar ;; clauses due to repeating the same tests. Nonetheless a smart ;; compiler should be able to remove the redundant tests. For ;; MATCH-LET and DESTRUCTURING-BIND type uses there is no performance ;; hit. ;; 2008/03/20 - fixing bug where (a ...) matched non-lists ;; 2008/03/15 - removing redundant check in vector patterns ;; 2007/09/04 - fixing quasiquote patterns ;; 2007/07/21 - allowing ellipse patterns in non-final list positions ;; 2007/04/10 - fixing potential hygiene issue in match-check-ellipse ;; (thanks to Taylor Campbell) ;; 2007/04/08 - clean up, commenting ;; 2006/12/24 - bugfixes ;; 2006/12/01 - non-linear patterns, shared variables in OR, get!/set! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; This is always passed a message, yet won't match the message, and ;; thus always results in a compile-time error. (define-syntax match-syntax-error (syntax-rules () ((_) (match-syntax-error "invalid match-syntax-error usage")))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; The basic interface. MATCH just performs some basic syntax ;; validation, binds the match expression to a temporary variable, and ;; passes it on to MATCH-NEXT. (define-syntax match (syntax-rules () ((match) (match-syntax-error "missing match expression")) ((match atom) (match-syntax-error "missing match clause")) ((match (app ...) (pat . body) ...) (let ((v (app ...))) (match-next v (app ...) (set! (app ...)) (pat . body) ...))) ((match #(vec ...) (pat . body) ...) (let ((v #(vec ...))) (match-next v v (set! v) (pat . body) ...))) ((match atom (pat . body) ...) (match-next atom atom (set! atom) (pat . body) ...)) )) ;; MATCH-NEXT passes each clause to MATCH-ONE in turn with its failure ;; thunk, which is expanded by recursing MATCH-NEXT on the remaining ;; clauses. (define-syntax match-next (syntax-rules (=>) ;; no more clauses, the match failed ((match-next v g s) (error 'match "no matching pattern")) ;; named failure continuation ((match-next v g s (pat (=> failure) . body) . rest) (let ((failure (lambda () (match-next v g s . rest)))) ;; match-one analyzes the pattern for us (match-one v pat g s (match-drop-ids (begin . body)) (failure) ()))) ;; anonymous failure continuation, give it a dummy name ((match-next v g s (pat . body) . rest) (match-next v g s (pat (=> failure) . body) . rest)))) ;; MATCH-ONE first checks for ellipse patterns, otherwise passes on to ;; MATCH-TWO. (define-syntax match-one (syntax-rules () ;; If it's a list of two values, check to see if the second one is ;; an ellipse and handle accordingly, otherwise go to MATCH-TWO. ((match-one v (p q . r) g s sk fk i) (match-check-ellipse q (match-extract-vars p (match-gen-ellipses v p r g s sk fk i) i ()) (match-two v (p q . r) g s sk fk i))) ;; Otherwise, go directly to MATCH-TWO. ((match-one . x) (match-two . x)))) ;; This is the guts of the pattern matcher. We are passed a lot of ;; information in the form: ;; ;; (match-two var pattern getter setter success-k fail-k (ids ...)) ;; ;; where VAR is the symbol name of the current variable we are ;; matching, PATTERN is the current pattern, getter and setter are the ;; corresponding accessors (e.g. CAR and SET-CAR! of the pair holding ;; VAR), SUCCESS-K is the success continuation, FAIL-K is the failure ;; continuation (which is just a thunk call and is thus safe to expand ;; multiple times) and IDS are the list of identifiers bound in the ;; pattern so far. (define-syntax match-two (syntax-rules (_ ___ quote quasiquote ? $ = and or not set! get!) ((match-two v () g s (sk ...) fk i) (if (null? v) (sk ... i) fk)) ((match-two v (quote p) g s (sk ...) fk i) (if (equal? v 'p) (sk ... i) fk)) ((match-two v (quasiquote p) g s sk fk i) (match-quasiquote v p g s sk fk i)) ((match-two v (and) g s (sk ...) fk i) (sk ... i)) ((match-two v (and p q ...) g s sk fk i) (match-one v p g s (match-one v (and q ...) g s sk fk) fk i)) ((match-two v (or) g s sk fk i) fk) ((match-two v (or p) g s sk fk i) (match-one v p g s sk fk i)) ((match-two v (or p ...) g s sk fk i) (match-extract-vars (or p ...) (match-gen-or v (p ...) g s sk fk i) i ())) ((match-two v (not p) g s (sk ...) fk i) (match-one v p g s (match-drop-ids fk) (sk ... i) i)) ((match-two v (get! getter) g s (sk ...) fk i) (let ((getter (lambda () g))) (sk ... i))) ((match-two v (set! setter) g (s ...) (sk ...) fk i) (let ((setter (lambda (x) (s ... x)))) (sk ... i))) ((match-two v (? pred p ...) g s sk fk i) (if (pred v) (match-one v (and p ...) g s sk fk i) fk)) ((match-two v (= proc p) g s sk fk i) (let ((w (proc v))) (match-one w p g s sk fk i))) ((match-two v (p ___ . r) g s sk fk i) (match-extract-vars p (match-gen-ellipses v p r g s sk fk i) i ())) ((match-two v (p) g s sk fk i) (if (and (pair? v) (null? (cdr v))) (let ((w (car v))) (match-one w p (car v) (set-car! v) sk fk i)) fk)) ((match-two v (p . q) g s sk fk i) (if (pair? v) (let ((w (car v)) (x (cdr v))) (match-one w p (car v) (set-car! v) (match-one x q (cdr v) (set-cdr! v) sk fk) fk i)) fk)) ((match-two v #(p ...) g s sk fk i) (match-vector v 0 () (p ...) sk fk i)) ((match-two v _ g s (sk ...) fk i) (sk ... i)) ;; Not a pair or vector or special literal, test to see if it's a ;; new symbol, in which case we just bind it, or if it's an ;; already bound symbol or some other literal, in which case we ;; compare it with EQUAL?. ((match-two v x g s (sk ...) fk (id ...)) (let-syntax ((new-sym? (syntax-rules (id ...) ((new-sym? x sk2 fk2) sk2) ((new-sym? y sk2 fk2) fk2)))) (new-sym? abracadabra ; thanks Oleg (let ((x v)) (sk ... (id ... x))) (if (equal? v x) (sk ... (id ...)) fk)))) )) ;; QUASIQUOTE patterns (define-syntax match-quasiquote (syntax-rules (unquote unquote-splicing quasiquote) ((_ v (unquote p) g s sk fk i) (match-one v p g s sk fk i)) ((_ v ((unquote-splicing p) . rest) g s sk fk i) (if (pair? v) (match-one v (p . tmp) (match-quasiquote tmp rest g s sk fk) fk i) fk)) ((_ v (quasiquote p) g s sk fk i . depth) (match-quasiquote v p g s sk fk i #f . depth)) ((_ v (unquote p) g s sk fk i x . depth) (match-quasiquote v p g s sk fk i . depth)) ((_ v (unquote-splicing p) g s sk fk i x . depth) (match-quasiquote v p g s sk fk i . depth)) ((_ v (p . q) g s sk fk i . depth) (if (pair? v) (let ((w (car v)) (x (cdr v))) (match-quasiquote w p g s (match-quasiquote-step x q g s sk fk depth) fk i . depth)) fk)) ((_ v #(elt ...) g s sk fk i . depth) (if (vector? v) (let ((ls (vector->list v))) (match-quasiquote ls (elt ...) g s sk fk i . depth)) fk)) ((_ v x g s sk fk i . depth) (match-one v 'x g s sk fk i)))) (define-syntax match-quasiquote-step (syntax-rules () ((match-quasiquote-step x q g s sk fk depth i) (match-quasiquote x q g s sk fk i . depth)) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Utilities ;; A CPS utility that takes two values and just expands into the ;; first. (define-syntax match-drop-ids (syntax-rules () ((_ expr ids ...) expr))) ;; Generating OR clauses just involves binding the success ;; continuation into a thunk which takes the identifiers common to ;; each OR clause, and trying each clause, calling the thunk as soon ;; as we succeed. (define-syntax match-gen-or (syntax-rules () ((_ v p g s (sk ...) fk (i ...) ((id id-ls) ...)) (let ((sk2 (lambda (id ...) (sk ... (i ... id ...))))) (match-gen-or-step v p g s (match-drop-ids (sk2 id ...)) fk (i ...)))))) (define-syntax match-gen-or-step (syntax-rules () ((_ v () g s sk fk i) ;; no OR clauses, call the failure continuation fk) ((_ v (p) g s sk fk i) ;; last (or only) OR clause, just expand normally (match-one v p g s sk fk i)) ((_ v (p . q) g s sk fk i) ;; match one and try the remaining on failure (match-one v p g s sk (match-gen-or-step v q g s sk fk i) i)) )) ;; We match a pattern (p ...) by matching the pattern p in a loop on ;; each element of the variable, accumulating the bound ids into lists ;; Look at the body - it's just a named let loop, matching each ;; element in turn to the same pattern. This illustrates the ;; simplicity of this generative-style pattern matching. It would be ;; just as easy to implement a tree searching pattern. (define-syntax match-gen-ellipses (syntax-rules () ((_ v p () g s (sk ...) fk i ((id id-ls) ...)) (match-check-identifier p (let ((p v)) (if (list? p) (sk ... i) fk)) (let loop ((ls v) (id-ls '()) ...) (cond ((null? ls) (let ((id (reverse id-ls)) ...) (sk ... i))) ((pair? ls) (let ((w (car ls))) (match-one w p (car ls) (set-car! ls) (match-drop-ids (loop (cdr ls) (cons id id-ls) ...)) fk i))) (else fk))))) ((_ v p (r ...) g s (sk ...) fk i ((id id-ls) ...)) (match-verify-no-ellipses (r ...) (let* ((tail-len (length '(r ...))) (ls v) (len (length ls))) (if (< len tail-len) fk (let loop ((ls ls) (n len) (id-ls '()) ...) (cond ((= n tail-len) (let ((id (reverse id-ls)) ...) (match-one ls (r ...) #f #f (sk ... i) fk i))) ((pair? ls) (let ((w (car ls))) (match-one w p (car ls) (set-car! ls) (match-drop-ids (loop (cdr ls) (- n 1) (cons id id-ls) ...)) fk i))) (else fk))))))) )) (define-syntax match-verify-no-ellipses (syntax-rules () ((_ (x . y) sk) (match-check-ellipse x (match-syntax-error "multiple ellipse patterns not allowed at same level") (match-verify-no-ellipses y sk))) ((_ x sk) sk) )) ;; Vector patterns are just more of the same, with the slight ;; exception that we pass around the current vector index being ;; matched. (define-syntax match-vector (syntax-rules (___) ((_ v n pats (p q) sk fk i) (match-check-ellipse q (match-vector-ellipses v n pats p sk fk i) (match-vector-two v n pats (p q) sk fk i))) ((_ v n pats (p ___) sk fk i) (match-vector-ellipses v n pats p sk fk i)) ((_ . x) (match-vector-two . x)))) ;; Check the exact vector length, then check each element in turn. (define-syntax match-vector-two (syntax-rules () ((_ v n ((pat index) ...) () sk fk i) (if (vector? v) (let ((len (vector-length v))) (if (= len n) (match-vector-step v ((pat index) ...) sk fk i) fk)) fk)) ((_ v n (pats ...) (p . q) sk fk i) (match-vector v (+ n 1) (pats ... (p n)) q sk fk i)) )) (define-syntax match-vector-step (syntax-rules () ((_ v () (sk ...) fk i) (sk ... i)) ((_ v ((pat index) . rest) sk fk i) (let ((w (vector-ref v index))) (match-one w pat (vector-ref v index) (vector-set! v index) (match-vector-step v rest sk fk) fk i))))) ;; With a vector ellipse pattern we first check to see if the vector ;; length is at least the required length. (define-syntax match-vector-ellipses (syntax-rules () ((_ v n ((pat index) ...) p sk fk i) (if (vector? v) (let ((len (vector-length v))) (if (>= len n) (match-vector-step v ((pat index) ...) (match-vector-tail v p n len sk fk) fk i) fk)) fk)))) (define-syntax match-vector-tail (syntax-rules () ((_ v p n len sk fk i) (match-extract-vars p (match-vector-tail-two v p n len sk fk i) i ())))) (define-syntax match-vector-tail-two (syntax-rules () ((_ v p n len (sk ...) fk i ((id id-ls) ...)) (let loop ((j n) (id-ls '()) ...) (if (>= j len) (let ((id (reverse id-ls)) ...) (sk ... i)) (let ((w (vector-ref v j))) (match-one w p (vector-ref v j) (vetor-set! v j) (match-drop-ids (loop (+ j 1) (cons id id-ls) ...)) fk i))))))) ;; Extract all identifiers in a pattern. A little more complicated ;; than just looking for symbols, we need to ignore special keywords ;; and not pattern forms (such as the predicate expression in ? ;; patterns). ;; ;; (match-extract-vars pattern continuation (ids ...) (new-vars ...)) (define-syntax match-extract-vars (syntax-rules (_ ___ ? $ = quote quasiquote and or not get! set!) ((match-extract-vars (? pred . p) k i v) (match-extract-vars p k i v)) ((match-extract-vars ($ rec . p) k i v) (match-extract-vars p k i v)) ((match-extract-vars (= proc p) k i v) (match-extract-vars p k i v)) ((match-extract-vars (quote x) (k ...) i v) (k ... v)) ((match-extract-vars (quasiquote x) k i v) (match-extract-quasiquote-vars x k i v (#t))) ((match-extract-vars (and . p) k i v) (match-extract-vars p k i v)) ((match-extract-vars (or . p) k i v) (match-extract-vars p k i v)) ((match-extract-vars (not . p) k i v) (match-extract-vars p k i v)) ;; A non-keyword pair, expand the CAR with a continuation to ;; expand the CDR. ((match-extract-vars (p q . r) k i v) (match-check-ellipse q (match-extract-vars (p . r) k i v) (match-extract-vars p (match-extract-vars-step (q . r) k i v) i ()))) ((match-extract-vars (p . q) k i v) (match-extract-vars p (match-extract-vars-step q k i v) i ())) ((match-extract-vars #(p ...) k i v) (match-extract-vars (p ...) k i v)) ((match-extract-vars _ (k ...) i v) (k ... v)) ((match-extract-vars ___ (k ...) i v) (k ... v)) ;; This is the main part, the only place where we might add a new ;; var if it's an unbound symbol. ((match-extract-vars p (k ...) (i ...) v) (let-syntax ((new-sym? (syntax-rules (i ...) ((new-sym? p sk fk) sk) ((new-sym? x sk fk) fk)))) (new-sym? random-sym-to-match (k ... ((p p-ls) . v)) (k ... v)))) )) ;; Stepper used in the above so it can expand the CAR and CDR ;; separately. (define-syntax match-extract-vars-step (syntax-rules () ((_ p k i v ((v2 v2-ls) ...)) (match-extract-vars p k (v2 ... . i) ((v2 v2-ls) ... . v))) )) (define-syntax match-extract-quasiquote-vars (syntax-rules (quasiquote unquote unquote-splicing) ((match-extract-quasiquote-vars (quasiquote x) k i v d) (match-extract-quasiquote-vars x k i v (#t . d))) ((match-extract-quasiquote-vars (unquote-splicing x) k i v d) (match-extract-quasiquote-vars (unquote x) k i v d)) ((match-extract-quasiquote-vars (unquote x) k i v (#t)) (match-extract-vars x k i v)) ((match-extract-quasiquote-vars (unquote x) k i v (#t . d)) (match-extract-quasiquote-vars x k i v d)) ((match-extract-quasiquote-vars (x . y) k i v (#t . d)) (match-extract-quasiquote-vars x (match-extract-quasiquote-vars-step y k i v d) i ())) ((match-extract-quasiquote-vars #(x ...) k i v (#t . d)) (match-extract-quasiquote-vars (x ...) k i v d)) ((match-extract-quasiquote-vars x (k ...) i v (#t . d)) (k ... v)) )) (define-syntax match-extract-quasiquote-vars-step (syntax-rules () ((_ x k i v d ((v2 v2-ls) ...)) (match-extract-quasiquote-vars x k (v2 ... . i) ((v2 v2-ls) ... . v) d)) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Gimme some sugar baby. (define-syntax match-lambda (syntax-rules () ((_ clause ...) (lambda (expr) (match expr clause ...))))) (define-syntax match-lambda* (syntax-rules () ((_ clause ...) (lambda expr (match expr clause ...))))) (define-syntax match-let (syntax-rules () ((_ (vars ...) . body) (match-let/helper let () () (vars ...) . body)) ((_ loop . rest) (match-named-let loop () . rest)))) (define-syntax match-letrec (syntax-rules () ((_ vars . body) (match-let/helper letrec () () vars . body)))) (define-syntax match-let/helper (syntax-rules () ((_ let ((var expr) ...) () () . body) (let ((var expr) ...) . body)) ((_ let ((var expr) ...) ((pat tmp) ...) () . body) (let ((var expr) ...) (match-let* ((pat tmp) ...) . body))) ((_ let (v ...) (p ...) (((a . b) expr) . rest) . body) (match-let/helper let (v ... (tmp expr)) (p ... ((a . b) tmp)) rest . body)) ((_ let (v ...) (p ...) ((#(a ...) expr) . rest) . body) (match-let/helper let (v ... (tmp expr)) (p ... (#(a ...) tmp)) rest . body)) ((_ let (v ...) (p ...) ((a expr) . rest) . body) (match-let/helper let (v ... (a expr)) (p ...) rest . body)) )) (define-syntax match-named-let (syntax-rules () ((_ loop ((pat expr var) ...) () . body) (let loop ((var expr) ...) (match-let ((pat var) ...) . body))) ((_ loop (v ...) ((pat expr) . rest) . body) (match-named-let loop (v ... (pat expr tmp)) rest . body)))) (define-syntax match-let* (syntax-rules () ((_ () . body) (begin . body)) ((_ ((pat expr) . rest) . body) (match expr (pat (match-let* rest . body)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Not quite portable bits. ;; Matching ellipses `...' is tricky. A strict interpretation of R5RS ;; would suggest that `...' in the literals list would treat it as a ;; literal in pattern, however no SYNTAX-RULES implementation I'm ;; aware of currently supports this. SRFI-46 support would makes this ;; easy, but SRFI-46 also is widely unsupported. ;; In the meantime we conditionally implement this in whatever ;; low-level macro system is available, defaulting to an ;; implementation which doesn't support `...' and requires the user to ;; match with `___'. (define-syntax match-check-ellipse (syntax-rules ___ (...) ((_ ... sk fk) sk) ((_ x sk fk) fk))) (define-syntax match-check-identifier (syntax-rules () ((_ (x . y) sk fk) fk) ((_ #(x ...) sk fk) fk) ((_ x sk fk) (let-syntax ((sym? (syntax-rules () ((sym? x sk2 fk2) sk2) ((sym? y sk2 fk2) fk2)))) (sym? abracadabra sk fk))) )) �������chicken-5.1.0/tests/r4rstest.expected���������������������������������������������������������������0000644�0001750�0001750�00000052211�13370655400�017412� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������SECTION(2 1) SECTION(3 4) #<procedure> #<procedure> #<procedure> #<procedure> #<procedure> #<procedure> #<procedure> #<procedure> #<procedure> (#t #f #f #f #f #f #f #f #f)#t (#t #f #f #f #f #f #f #f #f)#f (#f #t #f #f #f #f #f #f #f)#\a (#f #f #t #f #f #f #f #f #f)() (#f #f #f #t #f #f #f #f #f)9739 (#f #f #f #f #t #f #f #f #f)(test) (#f #f #f #f #f #t #f #f #f)#<procedure> (#f #f #f #f #f #f #t #f #f)"test" (#f #f #f #f #f #f #t #f #f)"" (#f #f #f #f #f #f #f #t #f)test (#f #f #f #f #f #f #f #f #t)#() (#f #f #f #f #f #f #f #f #t)#(a b c) SECTION(4 1 2) (quote (quote a)) ==> (quote a) (quote (quote a)) ==> (quote a) SECTION(4 1 3) (#<procedure> 3 4) ==> 12 SECTION(4 1 4) (#<procedure> 4) ==> 8 (#<procedure> 7 10) ==> 3 (#<procedure> 6) ==> 10 (#<procedure> 3 4 5 6) ==> (3 4 5 6) (#<procedure> 3 4 5 6) ==> (5 6) SECTION(4 1 5) (if yes) ==> yes (if no) ==> no (if 1) ==> 1 SECTION(4 1 6) (define 3) ==> 3 (set! 5) ==> 5 SECTION(4 2 1) (cond greater) ==> greater (cond equal) ==> equal (cond 2) ==> 2 (case composite) ==> composite (case consonant) ==> consonant (and #t) ==> #t (and #f) ==> #f (and (f g)) ==> (f g) (and #t) ==> #t (or #t) ==> #t (or #t) ==> #t (or #f) ==> #f (or #f) ==> #f (or (b c)) ==> (b c) SECTION(4 2 2) (let 6) ==> 6 (let 35) ==> 35 (let* 70) ==> 70 (letrec #t) ==> #t (let 5) ==> 5 (let 34) ==> 34 (let 6) ==> 6 (let 34) ==> 34 (let* 7) ==> 7 (let* 34) ==> 34 (let* 8) ==> 8 (let* 34) ==> 34 (letrec 9) ==> 9 (letrec 34) ==> 34 (letrec 10) ==> 10 (letrec 34) ==> 34 SECTION(4 2 3) (begin 6) ==> 6 SECTION(4 2 4) (do #(0 1 2 3 4)) ==> #(0 1 2 3 4) (do 25) ==> 25 (let 1) ==> 1 (let ((6 1 3) (-5 -2))) ==> ((6 1 3) (-5 -2)) (let -1) ==> -1 SECTION(4 2 6) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (list a (quote a))) ==> (list a (quote a)) (quasiquote (a 3 4 5 6 b)) ==> (a 3 4 5 6 b) (quasiquote ((foo 7) . cons)) ==> ((foo 7) . cons) (quasiquote #(10 5 2 4 3 8)) ==> #(10 5 2 4 3 8) (quasiquote 5) ==> 5 (quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)) ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f) (quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)) ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) ==> (quasiquote (list (unquote (+ 1 2)) 4)) SECTION(5 2 1) (define 6) ==> 6 (define 1) ==> 1 (#<procedure> 6) ==> (3 6) (#<procedure> 6) ==> 9 SECTION(5 2 2) (#<procedure>) ==> 5 (define 34) ==> 34 (#<procedure>) ==> 5 (define 34) ==> 34 (#<procedure> 88) ==> 88 (#<procedure> 4) ==> 4 (define 34) ==> 34 (internal-define 99) ==> 99 (internal-define 77) ==> 77 SECTION(6 1) (#<procedure> #t) ==> #f (#<procedure> 3) ==> #f (#<procedure> (3)) ==> #f (#<procedure> #f) ==> #t (#<procedure> ()) ==> #f (#<procedure> ()) ==> #f (#<procedure> nil) ==> #f SECTION(6 2) (#<procedure> a a) ==> #t (#<procedure> a b) ==> #f (#<procedure> 2 2) ==> #t (#<procedure> () ()) ==> #t (#<procedure> 10000 10000) ==> #t (#<procedure> (1 . 2) (1 . 2)) ==> #f (#<procedure> #<procedure> #<procedure>) ==> #f (#<procedure> #f nil) ==> #f (#<procedure> #<procedure> #<procedure>) ==> #t (#<procedure> #<procedure> #<procedure>) ==> #t (#<procedure> #<procedure> #<procedure>) ==> #f (#<procedure> #<procedure> #<procedure>) ==> #f (#<procedure> a a) ==> #t (#<procedure> (a) (a)) ==> #f (#<procedure> () ()) ==> #t (#<procedure> #<procedure> #<procedure>) ==> #t (#<procedure> (a) (a)) ==> #t (#<procedure> #() #()) ==> #t (#<procedure> #<procedure> #<procedure>) ==> #t (#<procedure> a a) ==> #t (#<procedure> (a) (a)) ==> #t (#<procedure> (a (b) c) (a (b) c)) ==> #t (#<procedure> "abc" "abc") ==> #t (#<procedure> 2 2) ==> #t (#<procedure> #(a a a a a) #(a a a a a)) ==> #t SECTION(6 3) (dot (a b c d e)) ==> (a b c d e) (#<procedure> (a b c)) ==> #t (set-cdr! (a . 4)) ==> (a . 4) (#<procedure> (a . 4) (a . 4)) ==> #t (dot (a b c . d)) ==> (a b c . d) (#<procedure> (a . 4)) ==> #f (list? #f) ==> #f (#<procedure> a ()) ==> (a) (#<procedure> (a) (b c d)) ==> ((a) b c d) (#<procedure> "a" (b c)) ==> ("a" b c) (#<procedure> a 3) ==> (a . 3) (#<procedure> (a b) c) ==> ((a b) . c) (#<procedure> (a b c)) ==> a (#<procedure> ((a) b c d)) ==> (a) (#<procedure> (1 . 2)) ==> 1 (#<procedure> ((a) b c d)) ==> (b c d) (#<procedure> (1 . 2)) ==> 2 (#<procedure> a 7 c) ==> (a 7 c) (#<procedure>) ==> () (#<procedure> (a b c)) ==> 3 (#<procedure> (a (b) (c d e))) ==> 3 (#<procedure> ()) ==> 0 (#<procedure> (x) (y)) ==> (x y) (#<procedure> (a) (b c d)) ==> (a b c d) (#<procedure> (a (b)) ((c))) ==> (a (b) (c)) (#<procedure>) ==> () (#<procedure> (a b) (c . d)) ==> (a b c . d) (#<procedure> () a) ==> a (#<procedure> (a b c)) ==> (c b a) (#<procedure> (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a) (#<procedure> (a b c d) 2) ==> c (#<procedure> a (a b c)) ==> (a b c) (#<procedure> b (a b c)) ==> (b c) (#<procedure> a (b c d)) ==> #f (#<procedure> (a) (b (a) c)) ==> #f (#<procedure> (a) (b (a) c)) ==> ((a) c) (#<procedure> 101 (100 101 102)) ==> (101 102) (#<procedure> a ((a 1) (b 2) (c 3))) ==> (a 1) (#<procedure> b ((a 1) (b 2) (c 3))) ==> (b 2) (#<procedure> d ((a 1) (b 2) (c 3))) ==> #f (#<procedure> (a) (((a)) ((b)) ((c)))) ==> #f (#<procedure> (a) (((a)) ((b)) ((c)))) ==> ((a)) (#<procedure> 5 ((2 3) (5 7) (11 13))) ==> (5 7) SECTION(6 4) (#<procedure> a) ==> #t (standard-case #t) ==> #t (standard-case #t) ==> #t (#<procedure> flying-fish) ==> "flying-fish" (#<procedure> martin) ==> "martin" (#<procedure> Malvina) ==> "Malvina" (standard-case #t) ==> #t (string-set! "cb") ==> "cb" (#<procedure> ab) ==> "ab" (#<procedure> "ab") ==> ab (#<procedure> mississippi mississippi) ==> #t (string->symbol #f) ==> #f (#<procedure> "jollywog") ==> jollywog SECTION(6 5 5) (#<procedure> 3) ==> #t (#<procedure> 3) ==> #t (#<procedure> 3) ==> #t (#<procedure> 3) ==> #t (#<procedure> 3) ==> #t (#<procedure> 3) ==> #t (#<procedure> 3) ==> #f (#<procedure> 22 22 22) ==> #t (#<procedure> 22 22) ==> #t (#<procedure> 34 34 35) ==> #f (#<procedure> 34 35) ==> #f (#<procedure> 3 -6246) ==> #t (#<procedure> 9 9 -2424) ==> #f (#<procedure> 3 -4 -6246) ==> #t (#<procedure> 9 9) ==> #t (#<procedure> 8 9) ==> #f (#<procedure> -1 2 3 4 5 6 7 8) ==> #t (#<procedure> -1 2 3 4 4 5 6 7) ==> #f (#<procedure> -1 2 3 4 5 6 7 8) ==> #t (#<procedure> -1 2 3 4 4 5 6 7) ==> #t (#<procedure> 1 3 2) ==> #f (#<procedure> 1 3 2) ==> #f (#<procedure> 0) ==> #t (#<procedure> 1) ==> #f (#<procedure> -1) ==> #f (#<procedure> -100) ==> #f (#<procedure> 4) ==> #t (#<procedure> -4) ==> #f (#<procedure> 0) ==> #f (#<procedure> 4) ==> #f (#<procedure> -4) ==> #t (#<procedure> 0) ==> #f (#<procedure> 3) ==> #t (#<procedure> 2) ==> #f (#<procedure> -4) ==> #f (#<procedure> -1) ==> #t (#<procedure> 3) ==> #f (#<procedure> 2) ==> #t (#<procedure> -4) ==> #t (#<procedure> -1) ==> #f (#<procedure> 34 5 7 38 6) ==> 38 (#<procedure> 3 5 5 330 4 -24) ==> -24 (#<procedure> 3 4) ==> 7 (#<procedure> 3) ==> 3 (#<procedure>) ==> 0 (#<procedure> 4) ==> 4 (#<procedure>) ==> 1 (#<procedure> 3 4) ==> -1 (#<procedure> 3) ==> -3 (#<procedure> -7) ==> 7 (#<procedure> 7) ==> 7 (#<procedure> 0) ==> 0 (#<procedure> 35 7) ==> 5 (#<procedure> -35 7) ==> -5 (#<procedure> 35 -7) ==> -5 (#<procedure> -35 -7) ==> 5 (#<procedure> 13 4) ==> 1 (#<procedure> 13 4) ==> 1 (#<procedure> -13 4) ==> 3 (#<procedure> -13 4) ==> -1 (#<procedure> 13 -4) ==> -3 (#<procedure> 13 -4) ==> 1 (#<procedure> -13 -4) ==> -1 (#<procedure> -13 -4) ==> -1 (#<procedure> 0 86400) ==> 0 (#<procedure> 0 -86400) ==> 0 (#<procedure> 238 9) ==> #t (#<procedure> -238 9) ==> #t (#<procedure> 238 -9) ==> #t (#<procedure> -238 -9) ==> #t (#<procedure> 0 4) ==> 4 (#<procedure> -4 0) ==> 4 (#<procedure> 32 -36) ==> 4 (#<procedure>) ==> 0 (#<procedure> 32 -36) ==> 288 (#<procedure>) ==> 1 SECTION(6 5 5) (#<procedure> "+#.#") ==> #t (#<procedure> "-#.#") ==> #t (#<procedure> "#.#") ==> #t (#<procedure> "1/0") ==> #t (#<procedure> "-1/0") ==> #t (#<procedure> "0/0") ==> #t (#<procedure> "+1/0i") ==> #t (#<procedure> "-1/0i") ==> #t (#<procedure> "0/0i") ==> #t (#<procedure> "0/0-0/0i") ==> #t (#<procedure> "1/0-1/0i") ==> #t (#<procedure> "-1/0+1/0i") ==> #t (#<procedure> "#i") ==> #t (#<procedure> "#e") ==> #t (#<procedure> "#") ==> #t (#<procedure> "#i0/0") ==> #t (#<procedure> 0.0-1.0i) ==> #t (#<procedure> 0.0+1.0i) ==> #t (#<procedure> 2.0+1.0i) ==> #t SECTION(6 5 9) (#<procedure> 0) ==> "0" (#<procedure> 100) ==> "100" (#<procedure> 256 16) ==> "100" (#<procedure> "100") ==> 100 (#<procedure> "100" 16) ==> 256 (#<procedure> "") ==> #f (#<procedure> ".") ==> #f (#<procedure> "d") ==> #f (#<procedure> "D") ==> #f (#<procedure> "i") ==> #f (#<procedure> "I") ==> #f (#<procedure> "3i") ==> #f (#<procedure> "3I") ==> #f (#<procedure> "33i") ==> #f (#<procedure> "33I") ==> #f (#<procedure> "3.3i") ==> #f (#<procedure> "3.3I") ==> #f (#<procedure> "-") ==> #f (#<procedure> "+") ==> #f (string->number #t) ==> #t (string->number #t) ==> #t SECTION(6 6) (#<procedure> #\a) ==> #t (#<procedure> #\() ==> #t (#<procedure> #\space) ==> #t (#<procedure> #\newline) ==> #t (#<procedure> #\A #\B) ==> #f (#<procedure> #\a #\b) ==> #f (#<procedure> #\9 #\0) ==> #f (#<procedure> #\A #\A) ==> #t (#<procedure> #\A #\B) ==> #t (#<procedure> #\a #\b) ==> #t (#<procedure> #\9 #\0) ==> #f (#<procedure> #\A #\A) ==> #f (#<procedure> #\A #\B) ==> #f (#<procedure> #\a #\b) ==> #f (#<procedure> #\9 #\0) ==> #t (#<procedure> #\A #\A) ==> #f (#<procedure> #\A #\B) ==> #t (#<procedure> #\a #\b) ==> #t (#<procedure> #\9 #\0) ==> #f (#<procedure> #\A #\A) ==> #t (#<procedure> #\A #\B) ==> #f (#<procedure> #\a #\b) ==> #f (#<procedure> #\9 #\0) ==> #t (#<procedure> #\A #\A) ==> #t (#<procedure> #\A #\B) ==> #f (#<procedure> #\a #\B) ==> #f (#<procedure> #\A #\b) ==> #f (#<procedure> #\a #\b) ==> #f (#<procedure> #\9 #\0) ==> #f (#<procedure> #\A #\A) ==> #t (#<procedure> #\A #\a) ==> #t (#<procedure> #\A #\B) ==> #t (#<procedure> #\a #\B) ==> #t (#<procedure> #\A #\b) ==> #t (#<procedure> #\a #\b) ==> #t (#<procedure> #\9 #\0) ==> #f (#<procedure> #\A #\A) ==> #f (#<procedure> #\A #\a) ==> #f (#<procedure> #\A #\B) ==> #f (#<procedure> #\a #\B) ==> #f (#<procedure> #\A #\b) ==> #f (#<procedure> #\a #\b) ==> #f (#<procedure> #\9 #\0) ==> #t (#<procedure> #\A #\A) ==> #f (#<procedure> #\A #\a) ==> #f (#<procedure> #\A #\B) ==> #t (#<procedure> #\a #\B) ==> #t (#<procedure> #\A #\b) ==> #t (#<procedure> #\a #\b) ==> #t (#<procedure> #\9 #\0) ==> #f (#<procedure> #\A #\A) ==> #t (#<procedure> #\A #\a) ==> #t (#<procedure> #\A #\B) ==> #f (#<procedure> #\a #\B) ==> #f (#<procedure> #\A #\b) ==> #f (#<procedure> #\a #\b) ==> #f (#<procedure> #\9 #\0) ==> #t (#<procedure> #\A #\A) ==> #t (#<procedure> #\A #\a) ==> #t (#<procedure> #\a) ==> #t (#<procedure> #\A) ==> #t (#<procedure> #\z) ==> #t (#<procedure> #\Z) ==> #t (#<procedure> #\0) ==> #f (#<procedure> #\9) ==> #f (#<procedure> #\space) ==> #f (#<procedure> #\;) ==> #f (#<procedure> #\a) ==> #f (#<procedure> #\A) ==> #f (#<procedure> #\z) ==> #f (#<procedure> #\Z) ==> #f (#<procedure> #\0) ==> #t (#<procedure> #\9) ==> #t (#<procedure> #\space) ==> #f (#<procedure> #\;) ==> #f (#<procedure> #\a) ==> #f (#<procedure> #\A) ==> #f (#<procedure> #\z) ==> #f (#<procedure> #\Z) ==> #f (#<procedure> #\0) ==> #f (#<procedure> #\9) ==> #f (#<procedure> #\space) ==> #t (#<procedure> #\;) ==> #f (#<procedure> #\0) ==> #f (#<procedure> #\9) ==> #f (#<procedure> #\space) ==> #f (#<procedure> #\;) ==> #f (#<procedure> #\0) ==> #f (#<procedure> #\9) ==> #f (#<procedure> #\space) ==> #f (#<procedure> #\;) ==> #f (#<procedure> 46) ==> #\. (#<procedure> 65) ==> #\A (#<procedure> 97) ==> #\a (#<procedure> #\A) ==> #\A (#<procedure> #\a) ==> #\A (#<procedure> #\A) ==> #\a (#<procedure> #\a) ==> #\a SECTION(6 7) (#<procedure> "The word \"recursion\\\" has many meanings.") ==> #t (string-set! "?**") ==> "?**" (#<procedure> #\a #\b #\c) ==> "abc" (#<procedure>) ==> "" (#<procedure> "abc") ==> 3 (#<procedure> "abc" 0) ==> #\a (#<procedure> "abc" 2) ==> #\c (#<procedure> "") ==> 0 (#<procedure> "ab" 0 0) ==> "" (#<procedure> "ab" 1 1) ==> "" (#<procedure> "ab" 2 2) ==> "" (#<procedure> "ab" 0 1) ==> "a" (#<procedure> "ab" 1 2) ==> "b" (#<procedure> "ab" 0 2) ==> "ab" (#<procedure> "foo" "bar") ==> "foobar" (#<procedure> "foo") ==> "foo" (#<procedure> "foo" "") ==> "foo" (#<procedure> "" "foo") ==> "foo" (#<procedure>) ==> "" (#<procedure> 0) ==> "" (#<procedure> "" "") ==> #t (#<procedure> "" "") ==> #f (#<procedure> "" "") ==> #f (#<procedure> "" "") ==> #t (#<procedure> "" "") ==> #t (#<procedure> "" "") ==> #t (#<procedure> "" "") ==> #f (#<procedure> "" "") ==> #f (#<procedure> "" "") ==> #t (#<procedure> "" "") ==> #t (#<procedure> "A" "B") ==> #f (#<procedure> "a" "b") ==> #f (#<procedure> "9" "0") ==> #f (#<procedure> "A" "A") ==> #t (#<procedure> "A" "B") ==> #t (#<procedure> "a" "b") ==> #t (#<procedure> "9" "0") ==> #f (#<procedure> "A" "A") ==> #f (#<procedure> "A" "B") ==> #f (#<procedure> "a" "b") ==> #f (#<procedure> "9" "0") ==> #t (#<procedure> "A" "A") ==> #f (#<procedure> "A" "B") ==> #t (#<procedure> "a" "b") ==> #t (#<procedure> "9" "0") ==> #f (#<procedure> "A" "A") ==> #t (#<procedure> "A" "B") ==> #f (#<procedure> "a" "b") ==> #f (#<procedure> "9" "0") ==> #t (#<procedure> "A" "A") ==> #t (#<procedure> "A" "B") ==> #f (#<procedure> "a" "B") ==> #f (#<procedure> "A" "b") ==> #f (#<procedure> "a" "b") ==> #f (#<procedure> "9" "0") ==> #f (#<procedure> "A" "A") ==> #t (#<procedure> "A" "a") ==> #t (#<procedure> "A" "B") ==> #t (#<procedure> "a" "B") ==> #t (#<procedure> "A" "b") ==> #t (#<procedure> "a" "b") ==> #t (#<procedure> "9" "0") ==> #f (#<procedure> "A" "A") ==> #f (#<procedure> "A" "a") ==> #f (#<procedure> "A" "B") ==> #f (#<procedure> "a" "B") ==> #f (#<procedure> "A" "b") ==> #f (#<procedure> "a" "b") ==> #f (#<procedure> "9" "0") ==> #t (#<procedure> "A" "A") ==> #f (#<procedure> "A" "a") ==> #f (#<procedure> "A" "B") ==> #t (#<procedure> "a" "B") ==> #t (#<procedure> "A" "b") ==> #t (#<procedure> "a" "b") ==> #t (#<procedure> "9" "0") ==> #f (#<procedure> "A" "A") ==> #t (#<procedure> "A" "a") ==> #t (#<procedure> "A" "B") ==> #f (#<procedure> "a" "B") ==> #f (#<procedure> "A" "b") ==> #f (#<procedure> "a" "b") ==> #f (#<procedure> "9" "0") ==> #t (#<procedure> "A" "A") ==> #t (#<procedure> "A" "a") ==> #t SECTION(6 8) (#<procedure> #(0 (2 2 2 2) "Anna")) ==> #t (#<procedure> a b c) ==> #(a b c) (#<procedure>) ==> #() (#<procedure> #(0 (2 2 2 2) "Anna")) ==> 3 (#<procedure> #()) ==> 0 (#<procedure> #(1 1 2 3 5 8 13 21) 5) ==> 8 (vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna") (#<procedure> 2 hi) ==> #(hi hi) (#<procedure> 0) ==> #() (#<procedure> 0 a) ==> #() SECTION(6 9) (#<procedure> #<procedure>) ==> #t (#<procedure> #<procedure>) ==> #t (#<procedure> (lambda (x) (* x x))) ==> #f (#<procedure> #<procedure>) ==> #t (#<procedure> #<procedure> (3 4)) ==> 7 (#<procedure> #<procedure> (3 4)) ==> 7 (#<procedure> #<procedure> 10 (3 4)) ==> 17 (#<procedure> #<procedure> ()) ==> () (#<procedure> 12 75) ==> 30 (#<procedure> #<procedure> ((a b) (d e) (g h))) ==> (b e h) (#<procedure> #<procedure> (1 2 3) (4 5 6)) ==> (5 7 9) (#<procedure> #<procedure> (1 2 3)) ==> (1 2 3) (#<procedure> #<procedure> (1 2 3)) ==> (1 2 3) (#<procedure> #<procedure> (1 2 3)) ==> (-1 -2 -3) (for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16) (#<procedure> #<procedure>) ==> -3 (#<procedure> (1 2 3 4)) ==> 4 (#<procedure> (a b . c)) ==> #f (#<procedure> #<procedure> ()) ==> () SECTION(6 10 1) (#<procedure> #<input port "(stdin)">) ==> #t (#<procedure> #<output port "(stdout)">) ==> #t (#<procedure> "r4rstest.scm" #<procedure>) ==> #t (#<procedure> #<input port "r4rstest.scm">) ==> #t SECTION(6 10 2) (#<procedure> #<input port "r4rstest.scm">) ==> #\; (#<procedure> #<input port "r4rstest.scm">) ==> #\; (#<procedure> #<input port "r4rstest.scm">) ==> (define cur-section (quote ())) (#<procedure> #<input port "r4rstest.scm">) ==> #\( (#<procedure> #<input port "r4rstest.scm">) ==> (define errs (quote ())) SECTION(6 10 3) (#<procedure> "tmp1.out" #<procedure>) ==> #t (#<procedure> #<input port "tmp1.out">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (#<procedure> #!eof) ==> #t (#<procedure> #!eof) ==> #t (input-port? #t) ==> #t (#<procedure> #<input port "tmp1.out">) ==> #\; (#<procedure> #<input port "tmp1.out">) ==> #\; (#<procedure> #<input port "tmp1.out">) ==> #\; (#<procedure> #<input port "tmp1.out">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (#<procedure> #<input port "tmp1.out">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (#<procedure> #<output port "tmp2.out">) ==> #t (#<procedure> #<input port "tmp2.out">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (#<procedure> #!eof) ==> #t (#<procedure> #!eof) ==> #t (input-port? #t) ==> #t (#<procedure> #<input port "tmp2.out">) ==> #\; (#<procedure> #<input port "tmp2.out">) ==> #\; (#<procedure> #<input port "tmp2.out">) ==> #\; (#<procedure> #<input port "tmp2.out">) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (#<procedure> #<input port "tmp2.out">) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) Passed all tests ;testing inexact numbers; SECTION(6 2) (#<procedure> 1 1.0) ==> #f (#<procedure> 0 0.0) ==> #f SECTION(6 5 5) (#<procedure> 3.9) ==> #t (max #t) ==> #t (#<procedure> 3.9 4) ==> 4.0 (#<procedure> 4) ==> 4.0 (#<procedure> 4.0) ==> 4.0 (#<procedure> 4) ==> 4 (#<procedure> 4.0) ==> 4 (#<procedure> -4.5) ==> -4.0 (#<procedure> -3.5) ==> -4.0 (#<procedure> -3.9) ==> -4.0 (#<procedure> 0.0) ==> 0.0 (#<procedure> 0.25) ==> 0.0 (#<procedure> 0.8) ==> 1.0 (#<procedure> 3.5) ==> 4.0 (#<procedure> 4.5) ==> 4.0 (#<procedure> 0 0) ==> 1 (#<procedure> 0 1) ==> 0 (#<procedure> 1 1) ==> 0.785398163397448 (#<procedure> "tmp3.out" #<procedure>) ==> #t (#<procedure> #<input port "tmp3.out">) ==> (define foo (quote (0.25 -3.25))) (#<procedure> #!eof) ==> #t (#<procedure> #!eof) ==> #t (input-port? #t) ==> #t (#<procedure> #<input port "tmp3.out">) ==> #\; (#<procedure> #<input port "tmp3.out">) ==> #\; (#<procedure> #<input port "tmp3.out">) ==> #\; (#<procedure> #<input port "tmp3.out">) ==> (0.25 -3.25) (#<procedure> #<input port "tmp3.out">) ==> (define foo (quote (0.25 -3.25))) (pentium-fdiv-bug #t) ==> #t Passed all tests ;testing bignums; SECTION(6 5 7) (#<procedure> 33333333333333333333 3) ==> 0 (#<procedure> 33333333333333333333 -3) ==> 0 (#<procedure> 33333333333333333333 3) ==> 0 (#<procedure> 33333333333333333333 -3) ==> 0 (#<procedure> 33333333333333333332 3) ==> 2 (#<procedure> 33333333333333333332 -3) ==> -1 (#<procedure> 33333333333333333332 3) ==> 2 (#<procedure> 33333333333333333332 -3) ==> 2 (#<procedure> -33333333333333333332 3) ==> 1 (#<procedure> -33333333333333333332 -3) ==> -2 (#<procedure> -33333333333333333332 3) ==> -2 (#<procedure> -33333333333333333332 -3) ==> -2 (#<procedure> 3 33333333333333333333) ==> 3 (#<procedure> -3 33333333333333333333) ==> 33333333333333333330 (#<procedure> 3 33333333333333333333) ==> 3 (#<procedure> -3 33333333333333333333) ==> -3 (#<procedure> 3 -33333333333333333333) ==> -33333333333333333330 (#<procedure> -3 -33333333333333333333) ==> -3 (#<procedure> 3 -33333333333333333333) ==> 3 (#<procedure> -3 -33333333333333333333) ==> -3 (#<procedure> -2177452800 86400) ==> 0 (#<procedure> 2177452800 -86400) ==> 0 (#<procedure> 2177452800 86400) ==> 0 (#<procedure> -2177452800 -86400) ==> 0 (#<procedure> 0 -2177452800) ==> 0 (remainder #t) ==> #t (remainder #t) ==> #t SECTION(6 5 8) (#<procedure> "281474976710655325431") ==> 281474976710655325431 (#<procedure> 281474976710655325431) ==> "281474976710655325431" Passed all tests Skipping bignum-inexact comparisons due to printing inconsistencies To fully test continuations, Scheme 4, and DELAY/FORCE do: (test-cont) (test-sc4) (test-delay) ;testing continuations; SECTION(6 9) (#<procedure> (a (b (c))) ((a) b c)) ==> #t (#<procedure> (a (b (c))) ((a) b c d)) ==> #f Passed all tests ;testing scheme 4 functions; SECTION(6 7) (#<procedure> "P l") ==> (#\P #\space #\l) (#<procedure> "") ==> () (#<procedure> (#\1 #\\ #\")) ==> "1\\\"" (#<procedure> ()) ==> "" SECTION(6 8) (#<procedure> #(dah dah didah)) ==> (dah dah didah) (#<procedure> #()) ==> () (#<procedure> (dididit dah)) ==> #(dididit dah) (#<procedure> ()) ==> #() SECTION(6 10 4) (load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) Passed all tests ;testing DELAY and FORCE; SECTION(6 9) (delay 3) ==> 3 (delay (3 3)) ==> (3 3) (delay 2) ==> 2 (#<procedure> #<promise>) ==> 6 (#<procedure> #<promise>) ==> 6 (force 3) ==> 3 Passed all tests ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/symbolgc-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000003062�13370655400�017560� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; symbolgc-tests.scm (import (chicken gc) (chicken format) (chicken keyword)) ;; Ensure counts are defined before creating the disposable symbols. ;; This way, this program can also be run in interpreted mode. (define *count-before* #f) (define *count-after* #f) ;; Force major GC to ensure there are no collectible symbols left ;; before we start, otherwise the GC might clean these up and we'd end ;; up with less symbols than we started with! (gc #t) (set! *count-before* (vector-ref (##sys#symbol-table-info) 2)) (print "starting with " *count-before* " symbols") (print "interning 10000 symbols ...") (do ((i 10000 (sub1 i))) ((zero? i)) (string->symbol (sprintf "%%%~a%%%" i))) (print "recovering ...") ;; Force major GC, which should reclaim every last symbol we just ;; created, as well as "i", the loop counter. (gc #t) ;; Don't use LET, which would introduce a fresh identifier, which is a ;; new symbol (at least, in interpreted mode) (set! *count-after* (vector-ref (##sys#symbol-table-info) 2)) (print (- *count-after* *count-before*) " newly interned symbols left") (unless (= *count-after* *count-before*) (error "unable to reclaim all symbols")) (print "interning 10000 keywords ...") (do ((i 10000 (sub1 i))) ((zero? i)) (string->keyword (sprintf "kw-%%%~a%%%" i))) (print "recovering ...") (gc #t) (set! *count-after* (vector-ref (##sys#symbol-table-info) 2)) (print* (- *count-after* *count-before*) " newly interned leywords left") (unless (= *count-after* *count-before*) (error "unable to reclaim all keywords")) (print "\ndone.") ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/condition-tests.scm�������������������������������������������������������������0000644�0001750�0001750�00000002474�13370655400�017735� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import (chicken condition)) (define condition1 (make-property-condition 'exn 'message "foo" 'arguments '("bar") 'location 'test)) (define condition2 (make-property-condition 'sam 'age 23 'partner "max")) (define condition3 (make-composite-condition (make-property-condition 'exn 'message "foo" 'arguments '("bar") 'location 'test)(make-property-condition 'sam 'age 23 'partner "max"))) (define conditions (list condition1 condition2 condition3)) ; testing type predicate (for-each (lambda (c) (assert (condition? c))) conditions) ;testing slot allocations ; slot 1 should be the kind key ; slot 2 should hold all properties (assert (and (equal? '(exn) (##sys#slot condition1 1)) (equal? '(sam) (##sys#slot condition2 1)) (equal? '(exn sam) (##sys#slot condition3 1)))) (assert (equal? (##sys#slot condition1 2) '((exn . message) "foo" (exn . arguments) ("bar") (exn . location) test))) (assert (equal? (##sys#slot condition3 2) '((exn . message) "foo" (exn . arguments) ("bar") (exn . location) test (sam . age) 23 (sam . partner) "max"))) ;testing condition conversion (assert (equal? (condition->list condition1) '((exn message "foo" arguments ("bar") location test)))) (assert (equal? (condition->list condition3) '((exn message "foo" arguments ("bar") location test) (sam age 23 partner "max")))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/embedded1.c���������������������������������������������������������������������0000644�0001750�0001750�00000000211�13213463160�016040� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#include <stdio.h> #include <stdlib.h> #include <chicken.h> int main() { CHICKEN_run((void*)CHICKEN_default_toplevel); return 0; } ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/specialization.expected���������������������������������������������������������0000644�0001750�0001750�00000004212�13502227553�020635� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; numbers replaced with XXX by redact-gensyms.scm ;; prefixes: (tmp g scm:) Note: Predicate is always true In file `specialization-tests.scm:XXX', At the toplevel, In procedure call: (scheme#string? a) The predicate will always return true. Procedure `string?' from module `scheme' is a predicate for: string The given argument has this type: string Note: Test is always true In file `specialization-tests.scm:XXX', At the toplevel, In conditional expression: (if (scheme#string? a) 'ok 'no) Test condition has always true value of type: true Note: Predicate is always false In file `specialization-tests.scm:XXX', At the toplevel, In procedure call: (scheme#string? a) The predicate will always return false. Procedure `string?' from module `scheme' is a predicate for: string The given argument has this type: symbol Note: Test is always false In file `specialization-tests.scm:XXX', At the toplevel, In conditional expression: (if (scheme#string? a) 'ok 'no) Test condition is always false. Note: Predicate is always true In file `specialization-tests.scm:XXX', At the toplevel, In procedure call: (scheme#input-port? p) The predicate will always return true. Procedure `input-port?' from module `scheme' is a predicate for: input-port The given argument has this type: input/output-port Note: Test is always true In file `specialization-tests.scm:XXX', At the toplevel, In conditional expression: (if (scheme#input-port? p) 'ok 'no) Test condition has always true value of type: true Note: Predicate is always true In file `specialization-tests.scm:XXX', At the toplevel, In procedure call: (scheme#output-port? p) The predicate will always return true. Procedure `output-port?' from module `scheme' is a predicate for: output-port The given argument has this type: input/output-port Note: Test is always true In file `specialization-tests.scm:XXX', At the toplevel, In conditional expression: (if (scheme#output-port? p) 'ok 'no) Test condition has always true value of type: true ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/test-find-files.scm�������������������������������������������������������������0000644�0001750�0001750�00000014336�13370655400�017604� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import (chicken file) (chicken file posix) (chicken process-context) (chicken sort) (chicken string)) (include "test.scm") (handle-exceptions exn 'ignore (delete-directory "find-files-test-dir" #t)) (define (file-list=? a b) (equal? (sort a string<?) (sort b string<?))) (for-each (lambda (d) (create-directory d #t)) '("find-files-test-dir/foo/bar/baz/.quux" "find-files-test-dir/dir-link-target" "find-files-test-dir/foo/.x")) (for-each (lambda (f) (with-output-to-file f (cut display ""))) '("find-files-test-dir/file1" "find-files-test-dir/file2" "find-files-test-dir/dir-link-target/foo" "find-files-test-dir/dir-link-target/bar")) (change-directory "find-files-test-dir") (cond-expand ((and windows (not cygwin)) ; Cannot handle symlinks (define (path lst) (map (cut string-translate <> "/" "\\") lst)) ) (else (create-symbolic-link "dir-link-target" "dir-link-name") (define (path lst) lst))) (test-begin "find-files") (test-equal "no keyword args" (find-files ".") (path `("./foo/bar/baz" "./foo/bar" "./foo" "./dir-link-target/foo" "./dir-link-target/bar" "./dir-link-target" "./file1" ,@(cond-expand ((and windows (not cygwin)) '()) (else '("./dir-link-name"))) "./file2")) file-list=?) (test-equal "dotfiles: #t" (find-files "." dotfiles: #t) (path `("./foo/bar/baz/.quux" "./foo/bar/baz" "./foo/bar" "./foo/.x" "./foo" "./dir-link-target/foo" "./dir-link-target/bar" "./dir-link-target" "./file1" ,@(cond-expand ((and windows (not cygwin)) '()) (else '("./dir-link-name"))) "./file2")) file-list=?) (test-equal "follow-symlinks: #t" (find-files "." follow-symlinks: #t) (path `("./foo/bar/baz" "./foo/bar" "./foo" "./dir-link-target/foo" "./dir-link-target/bar" "./dir-link-target" "./file1" ,@(cond-expand ((and windows (not cygwin)) '()) (else '("./dir-link-name/foo" "./dir-link-name/bar" "./dir-link-name"))) "./file2")) file-list=?) (test-equal "limit: 1" (find-files "." limit: 1) (path `("./foo/bar" "./foo" "./dir-link-target/foo" "./dir-link-target/bar" "./dir-link-target" "./file1" ,@(cond-expand ((and windows (not cygwin)) '()) (else '("./dir-link-name"))) "./file2")) file-list=?) (test-equal "limit: 1 follow-symlinks: #t" (find-files "." limit: 1 follow-symlinks: #t) (path `("./foo/bar" "./foo" "./dir-link-target/foo" "./dir-link-target/bar" "./dir-link-target" "./file1" ,@(cond-expand ((and windows (not cygwin)) '()) (else '("./dir-link-name/foo" "./dir-link-name/bar" "./dir-link-name"))) "./file2")) file-list=?) (test-equal "limit: 2" (find-files "." limit: 2) (path `("./foo/bar/baz" "./foo/bar" "./foo" "./dir-link-target/foo" "./dir-link-target/bar" "./dir-link-target" "./file1" ,@(cond-expand ((and windows (not cygwin)) '()) (else '("./dir-link-name"))) "./file2")) file-list=?) (test-equal "limit: 2 follow-symlinks: #t" (find-files "." limit: 2 follow-symlinks: #t) (path `("./foo/bar/baz" "./foo/bar" "./foo" "./dir-link-target/foo" "./dir-link-target/bar" "./dir-link-target" "./file1" ,@(cond-expand ((and windows (not cygwin)) '()) (else '("./dir-link-name/foo" "./dir-link-name/bar" "./dir-link-name"))) "./file2")) file-list=?) (test-equal "test: (lambda (f) (directory? f))" (find-files "." test: (lambda (f) (directory? f))) (path `("./foo/bar/baz" "./foo/bar" "./foo" "./dir-link-target" ,@(cond-expand ((and windows (not cygwin)) '()) (else '("./dir-link-name"))))) file-list=?) (test-equal "test: (lambda (f) (directory? f)) action: (lambda (f p) (cons (string-append \"--\" f) p))" (find-files "." test: (lambda (f) (directory? f)) action: (lambda (f p) (cons (string-append "--" f) p))) (path `("--./foo/bar/baz" "--./foo/bar" "--./foo" "--./dir-link-target" ,@(cond-expand ((and windows (not cygwin)) '()) (else '("--./dir-link-name"))))) file-list=?) (test-equal "dotfiles: #t test: (lambda (f) (directory? f)) follow-symlinks: #t" (find-files "." dotfiles: #t test: (lambda (f) (directory? f)) follow-symlinks: #t) (path `("./foo/bar/baz/.quux" "./foo/bar/baz" "./foo/bar" "./foo/.x" "./foo" "./dir-link-target" ,@(cond-expand ((and windows (not cygwin)) '()) (else '("./dir-link-name"))))) file-list=?) (test-equal "dotfiles: #t test: (lambda (f) (directory? f)) follow-symlinks: #t limit: 1" (find-files "." dotfiles: #t test: (lambda (f) (directory? f)) follow-symlinks: #t limit: 1) (path `("./foo/bar" "./foo/.x" "./foo" "./dir-link-target" ,@(cond-expand ((and windows (not cygwin)) '()) (else '("./dir-link-name"))))) file-list=?) (test-end "find-files") (change-directory "..") (delete-directory "find-files-test-dir" #t) (test-exit) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/types-db-consistency.scm��������������������������������������������������������0000644�0001750�0001750�00000003544�13370655400�020674� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; This test walks the types.db file and checks that symbols are what they are supposed to be. (import (chicken base) (chicken bitwise) (chicken continuation) (chicken read-syntax) (chicken irregex) (chicken memory) (chicken port) (chicken process-context) (chicken process-context posix) (chicken tcp) srfi-4) (define ignored-symbols '(;; internal procedures chicken.irregex#irregex-dfa chicken.irregex#irregex-dfa/search chicken.irregex#irregex-nfa chicken.irregex#irregex-flags chicken.irregex#irregex-lengths chicken.irregex#irregex-reset-matches! chicken.irregex#irregex-new-matches chicken.irregex#irregex-apply-match chicken.irregex#irregex-search/matches)) (define *error-code* 0) (define (warn msg . args) (apply fprintf (current-error-port) msg args) (set! *error-code* 1)) (define (deep o) (cond ((pair? o) (deep (car o))) ((vector? o) (deep (vector-ref o 0))) (else o))) (define ((unknown sym) obj) (warn "Unknown type '~a' for object: ~a~%" sym obj)) (define (symbol->predicate sym) (case sym ((procedure forall) procedure?) ((fixnum) fixnum?) ((float) flonum?) ((list-of) list?) ((symbol) symbol?) ((input-port) input-port?) ((output-port) output-port?) (else (unknown sym)))) (define (run-checks file checker) (with-input-from-file file (lambda () (port-for-each checker read)))) (define (simple-checker entry) (let* ((symbol (car entry)) (value (##sys#slot symbol 0)) (type (deep (cadr entry))) (pred (symbol->predicate type))) (unless (or (member symbol ignored-symbols) (pred value)) (warn "Mismatch for ~a '~a': ~a~%" type symbol value)))) (run-checks (car (command-line-arguments)) simple-checker) (exit *error-code*) ������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/test-queue.scm������������������������������������������������������������������0000644�0001750�0001750�00000000452�13370655400�016702� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test-queue.scm (include "QUEUE") (functor (test-queue (Q QUEUE)) * (import scheme (chicken base) Q) (define (list->queue lst) (foldl (lambda (q x) (enqueue q x)) empty-queue lst)) (define (queue->list q) (if (empty? q) '() (cons (head q) (queue->list (dequeue q))))) ) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/test.tex������������������������������������������������������������������������0000644�0001750�0001750�00000147165�13213463160�015607� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������%slatex-d.tex %SLaTeX Version 2 %Documentation for SLaTeX %(c) Dorai Sitaram, 1991, 1994 %dorai@cs.rice.edu \documentstyle[slatex]{article} \slatexdisable{enableslatex} \edef\atcatcodebeforepreamble{\the\catcode`@} \catcode`@11 \inputifpossible{multicol.sty} %if Frank Mittelbach's multicol.sty is not %available, the index will simply waste some paper %latex wastes too much paper, so... \textheight 11in \textwidth 8.5in \oddsidemargin 1.25in \advance\textheight -2\oddsidemargin \advance\textwidth -2\oddsidemargin \advance\oddsidemargin -1in \evensidemargin\oddsidemargin \topmargin\oddsidemargin \advance\topmargin -\headheight \advance\topmargin -\headsep %latex's section headings are way too obnoxiously %large, so... \def\nolargefonts{\let\large\normalsize \let\Large\normalsize \let\LARGE\normalsize \let\huge\normalsize \let\Huge\normalsize} %mini headers for introducing paragraphs \def\re{\medbreak\parindent0pt% \aftergroup\smallskip\obeylines \llap{$\searrow$\enspace\enspace}} %a wide line \def\wideline{\centerline{\hrulefill}} %smart italics \def\italicsbegin{\begingroup\it} \def\italicsend{\endgroup\futurelet\next\italiccorrection} \def\italiccorrection{\ifx\next,\else\ifx\next.\else\/\fi\fi} \def\italicstoggle{\italicsbegin\let\italicstoggle\italicsend} \catcode`\_\active \def_{\ifmmode\sb\else\expandafter\italicstoggle\fi} %quote.tex, by Hunter Goatley {\catcode`\"\active % \gdef\begindoublequotes{\global\catcode`\"\active \global\let\dblqu@te=L} % \gdef"{\ifinner\else\ifvmode\let\dblqu@te=L\fi\fi \if L\dblqu@te``\global\let\dblqu@te=R\else \let\xxx=\spacefactor ''\global\let\dblqu@te=L% \spacefactor\xxx \fi}} \def\enddoublequotes{\catcode`\"=12} %nicer \verb \begingroup\catcode`[1\catcode`]2\catcode`\{12\catcode`\}12% \gdef\@sverb#1[\if#1{\def\@tempa##1}[\leavevmode\null##1\endgroup]\else \def\@tempa##1#1[\leavevmode\null##1\endgroup]\fi\@tempa]% \endgroup %nicer \footnote \let\latexfootnote\footnote \def\footnote{\unskip\latexfootnote\bgroup\let\dummy=} %item \let\o\item %index environment that exploits multicol.sty if %available... \renewenvironment{theindex}% {\parindent0pt% \let\item\@idxitem \section*{Index}% \ifx\multicols\undefined\else \begin{multicols}{2}\fi}% {\ifx\multicols\undefined\else \end{multicols}\fi} \catcode`@\atcatcodebeforepreamble \begindoublequotes \makeindex %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \title{How to Use SLaTeX} \author{Dorai Sitaram\\ {\tt dorai@cs.rice.edu}\\ Department of Computer Science\\ Rice University\\ Houston, TX 77251--1892} \date{Gestated 1990\\ First public release, Mar. 1991\\ First major update, Dec. 1991\\ Current update, Jan. 1994} \begin{document} \maketitle \nolargefonts \section{Introduction} SLaTeX\index{introduction} is a Scheme program that allows you to write programs or program fragments "as is" in your TeX or LaTeX source. SLaTeX is particularly geared to the programming languages Scheme and other Lisps, e.g., Common Lisp. The formatting of the code includes assigning appropriate fonts to the various tokens in the code (keywords, variables, constants, data), at the same time retaining the proper indentation when going to the non-monospace (non-typewriter) fonts provided by TeX. SLaTeX comes with two databases that recognize the identifier conventions of Scheme and Common Lisp respectively. These can be modified by the user using easy TeX commands. In addition, the user can inform SLaTeX to typeset certain identifiers as specially suited LaTeX expressions (i.e., beyond just fonting them). All this is done without interfering with the identifier conventions of the language of the programming code at all. In sum, no change need be made to your (presumably running) program code in order to get a typeset version suited to the particular need: you can get a spectrum of styles ranging from _no_ fonting through basic default fonting to various "mathematical"-looking output for pedagogic or other reasons. \enableslatex Other packages~\cite{schemeweb,lisp2tex} for typesetting code fragments use a \verb{verbatim} environment where all the characters are in a \verb{monospace typewriter font}. This \verb{monospace} ensures that the indentation is not affected. However, the resulting output fails to distinguish between the various tokens used in the code, e.g., boldface for keywords like \scheme{define} and \scheme{lambda}, sans-serif for constants like \scheme{#t} and \scheme{42}, and italics for variables such as \scheme{x} and \scheme{y} in \scheme{(lambda (x y) (cons x (cons y '())))}. \slatexdisable{enableslatex} The program SLaTeX provides a convenient way of capturing the indentation information as well as assigning distinguishing fonts to code tokens without requiring the user to worry about fonting and spacing. It uses temporary files to store its typeset version of the user's code fragments and then calls TeX or LaTeX on the user's TeX files as well as these temporaries. The following section will introduce you to the basic use of SLaTeX with a small example. Section~\ref{slatex.sty} introduces the SLaTeX style files. Section~\ref{glossary} gives a complete description of all the SLaTeX control sequences. These include commands for manipulating output positioning, enhancing the database, changing the fonting defaults, adding special symbols, and selective disabling of SLaTeX. Section~\ref{preamble} desribes how to set up a preamble that reflects your typesetting taste. Section~\ref{ftp} contains information on obtaining and installing SLaTeX. \section{A quick illustration of using SLaTeX} \label{quick} \index{quick illustration} This section presents a short example of SLaTeX use. We first look at a LaTeX file using SLaTeX commands, and then give a plain TeX version of the same file. We will see that there are minor differences between the ways SLaTeX is used with plain TeX and LaTeX (but see \verb{\defslatexenvstyle} for a way to use the plain-TeX style with the LaTeX format, and conversely, the LaTeX style with the plain format). \subsection{For LaTeX users} \index{LaTeX} \index{scheme@\verb{\scheme}} \index{schemedisplay@\verb{schemedisplay}!in LaTeX} \index{in-text Scheme code} \index{displayed Scheme code} \index{slatex.sty@\verb{slatex.sty}} \index{slatex.sty@\verb{slatex.sty}!as document style} Consider the following LaTeX (_and_ SLaTeX) file \verb{quick.tex}: \wideline \begin{verbatim} % quick.tex \documentstyle[slatex]{article} %or: % \documentstyle{article} % \input slatex.sty In Scheme, the expression \scheme|(set! x 42)| returns an unspecified value, rather than \scheme'42'. However, one could get a \scheme{set!} of the latter style by: \begin{schemedisplay} (define-syntax setq (syntax-rules () [(setq x a) (begin (set! x a) x)])) \end{schemedisplay} \end{document} \end{verbatim} \wideline First, the SLaTeX definitions in the style file \verb{slatex.sty} are loaded into your LaTeX file --- this may be done either as a \verb{\documentstyle} option, or through an \verb{\input} command. \index{scheme@\verb{\scheme}!using grouped argument} In-text code is introduced by the SLaTeX control sequence \verb{\scheme} and is flanked by a pair of identical characters that are not alphabets or "\verb|{|". As a special convenient case, SLaTeX also allows the form \verb|\scheme{...}|. The SLaTeX control sequences for displayed code are the opening \verb|\begin{schemedisplay}| and the closing \verb|\end{schemedisplay}|. The file is now SLaTeX'd by running the command \verb{slatex} on it from the Unix or DOS command line: \begin{verbatim} slatex quick \end{verbatim} or \begin{verbatim} slatex quick.tex \end{verbatim} This calls a Scheme program \verb{slatex.scm} that typesets the Scheme code fragments in \verb{quick.tex} into temporary files. Thereafter, \verb{quick.tex} along with the temporary files are then passed to LaTeX. (For information on judiciously reusing temporary files, see \verb{\slatexseparateincludes}.) The resulting \verb{quick.dvi} file, when viewed or printed looks like: \enableslatex \wideline In Scheme, the expression \scheme|(set! x 42)| returns an unspecified value, rather than \scheme'42'. However, one could get a \scheme{set!} of the latter style by: \begin{schemedisplay} (define-syntax setq (syntax-rules () [(setq x a) (begin (set! x a) x)])) \end{schemedisplay} \wideline \index{recognizing new syntactic keywords automatically} Note that \scheme{setq}, although not normally a syntactic keyword in Scheme is nevertheless automatically recognized as such because of the context in which it occurs. No special treatment is needed to ensure that it will continue be treated as such in any subsequent Scheme code in the document. \slatexdisable{enableslatex} \subsection{For plain TeX users} \index{plain TeX} \index{scheme@\verb{\scheme}} \index{schemedisplay@\verb{schemedisplay}!in plain TeX} \index{in-text Scheme code} \index{displayed Scheme code} Plain TeX users invoke SLaTeX much the same way, but for only two exceptions. First, since TeX doesn't have \verb{\documentstyle}, the file \verb{slatex.sty} is introduced via an \verb{\input} statement before its commands can be used in the plain TeX source. \index{environments} Second, since plain TeX does not have LaTeX's \verb|\begin{|_env_\verb|}...\end{|_env_\verb|}| style of environments, any environment commands in SLaTeX are invoked with the opening \verb{\}_env_ and the closing \verb{\end}_env_. The plain TeX version of \verb{quick.tex} looks like: \wideline \begin{verbatim} % quick.tex \input slatex.sty In Scheme, the expression \scheme|(set! x 42)| returns an unspecified value, rather than \scheme'42'. However, one could get a \scheme{set!} of the latter style by: \schemedisplay (define-syntax setq (syntax-rules () [(setq x a) (begin (set! x a) x)])) \endschemedisplay \bye \end{verbatim} \wideline The file is now SLaTeX'd by invoking \verb{slatex} as before --- SLaTeX is clever enough to figure out whether the file it operates on should later be send to LaTeX or plain Tex. \section{The style files} \label{slatex.sty} \index{slatex.sty@\verb{slatex.sty}} In short, the LaTeX (or TeX) file that is given to SLaTeX undergoes some code-setting preprocessing and is then handed over to LaTeX (or TeX). The style file \verb{slatex.sty} defines the appropriate commands so that LaTeX (or TeX) can recognize the SLaTeX-specific directives and either process or ignore them. You may either \verb|\input| the file \verb{slatex.sty} as usual, or use it as the \verb|\documentstyle| option \verb{slatex}. \index{cltl.sty@\verb{cltl.sty}} \index{SLaTeX database!for Scheme} \index{SLaTeX database!for Common Lisp} \index{SLaTeX database!modifying} The default database of SLaTeX recognizes the keywords and constants of Scheme. The database can be modified with the commands \verb{\setkeyword}, \verb{\setconstant}, \verb{\setvariable}, \verb{\setspecialsymbol} and \verb{\unsetspecialsymbol} (q.v.). If you're using Common Lisp rather than Scheme, use \verb{cltl.sty} instead of \verb{slatex.sty}. \verb{cltl.sty} loads \verb{slatex.sty} and modifies the database to reflect Common Lisp. You may fashion your own \verb{.sty} files on the model of \verb{cltl.sty}. \section{SLaTeX's control sequences} \label{glossary} \index{SLaTeX control sequences} You've already seen the SLaTeX control sequence \verb|\scheme| and the environment \verb{schemedisplay}. These suffice for quite a few instances of handling code. However, you will occasionally require more control on the typesetting process, and the rest of this section describes the complete \footnote{At least that's what you're supposed to think...} list of SLaTeX control sequences shows you the ropes. {\re \verb{schemedisplay}} \index{schemedisplay@\verb{schemedisplay}} \index{displayed Scheme code} [In plain TeX: \verb{\schemedisplay} ... \verb{\endschemedisplay}; in LaTeX: \verb|\begin{schemedisplay}| ... \verb|\end{schemedisplay}|; but see \verb{\defslatexenvstyle}.] Typesets the enclosed code, which is typically several lines of code indented as you normally do in your Scheme files. E.g., \begin{verbatim} \begin{schemedisplay} (define compose ;this is also known as $B$ (lambda (f g) (lambda (x) (apply f (g x))))) \end{schemedisplay} is the "compose" function. \end{verbatim} produces \enableslatex \begin{schemedisplay} (define compose ;this is also known as $B$ (lambda (f g) (lambda (x) (apply f (g x))))) \end{schemedisplay} \slatexdisable{enableslatex} is the "compose" function. As with all LaTeX environment enders, if the line after \verb|\end{schemedisplay}| contains non-whitespace text, the paragraph continues. Otherwise --- i.e., when \verb|\end{schemedisplay}| is followed by at least one blank line --- a fresh paragraph is started. Similarly, in plain TeX, a fresh paragraph is started after a \verb{schemedisplay} only if \verb|\endschemedisplay| is followed by at least one blank line. \index{Scheme comments} Comments in Scheme are usually introduced by "\verb{;}" (semicolon). The rest of the line after a "\verb{;}" is set as a line in LaTeX LR mode. \index{TeX paragraphs amidst Scheme code} Separate _blocks_ of code can either be introduced in different \verb{schemedisplay} environments or put in a single \verb{schemedisplay} and separated by a line with a "\verb{;}" in the first column. This "\verb{;}" is not typeset and anything following it on the line is set in (La)TeX LR paragraph mode. Consecutive lines with "\verb{;}" in the first column are treated as input for a TeX paragraph, with words possibly moved around from line to line to ensure justification. When in paragraph mode, the first line that has _no_ leading "\verb{;}" signals a fresh block of Scheme code within the \verb{schemedisplay}. (The \verb{schemedisplay} may end, or commence, on either a paragraph or a Scheme code block.) E.g., \begin{verbatim} \begin{schemedisplay} (define even? ; testing evenness (lambda (n) (if (= n 0) #t (not (odd? (- n 1)))))) ; The procedures {\it even?} above ; and {\it odd?} below are mutually ; recursive. (define odd? ; testing oddness (lambda (n) (if (= n 0) #f (not (even? (- n 1)))))) \end{schemedisplay} \end{verbatim} produces \enableslatex \begin{schemedisplay} (define even? ; testing evenness (lambda (n) (if (= n 0) #t (not (odd? (- n 1)))))) ; The procedures {\it even?} above ; and {\it odd?} below are mutually ; recursive. (define odd? ; testing oddness (lambda (n) (if (= n 0) #f (not (even? (- n 1)))))) \end{schemedisplay} \slatexdisable{enableslatex} SLaTeX can recognize that blocks of code are separate if you have at least one empty line separating them. I.e., there is no need for empty "\verb{;}" lines. This convenience is to accommodate Scheme files where definitions are usually separated by one or more blank lines. \index{schemedisplay@\verb{schemedisplay}!allowing page breaks in} Intervening paragraphs, either with lines with a leading "\verb{;}", or with blank lines, are ideal spots for \verb{schemedisplay} to allow pagebreaks. In fact, the default setting for \verb{schemedisplay} also allows pagebreaks _within_ a Scheme block, but it is easy to disable this (see entry for \verb{\rightcodeskip}). The space surrounding displayed Scheme code can be modified by setting the _skip_s \verb{\abovecodeskip}, \verb{\belowcodeskip}, \verb{\leftcodeskip}, and \verb{\rightcodeskip} (q.v.). Note: see \verb{schemeregion}. {\re \verb{\scheme}} \index{scheme@\verb{\scheme}} \index{in-text Scheme code} Typesets its argument, which is enclosed in arbitrary but identical non-alphabetic and non-\verb|{| characters, as in-text code. Special case: \verb|\scheme{...}| is a convenience (provided the \verb|...| doesn't contain a \verb|}|). E.g., \verb+\scheme|(call/cc (lambda (x) x))|+ and \verb+\scheme{(call/cc (lambda (x) x))}+ both produce \enableslatex \scheme{(call/cc (lambda (x) x))}. \slatexdisable{enableslatex} \index{scheme@\verb{\scheme}!using grouped argument} \index{nesting SLaTeX control sequences} It _is_ permitted to intermix calls to \verb{schemedisplay} and \verb|\scheme|. Thus, \begin{verbatim} \begin{schemedisplay} (define factorial (lambda (n) (if (= n 0) ; \scheme{(zero? n)} also possible 1 (* n (factorial (- n 1)))))) ; or \scheme{... (sub1 1)} \end{schemedisplay} \end{verbatim} produces \enableslatex \begin{schemedisplay} (define factorial (lambda (n) (if (= n 0) ; \scheme{(zero? n)} also possible 1 (* n (factorial (- n 1)))))) ; or \scheme{... (sub1 1)} \end{schemedisplay} \slatexdisable{enableslatex} Note: see \verb{schemeregion}. {\re \verb{\schemeresult}} \index{schemeresult@\verb{\schemeresult}} Typesets its argument, which is enclosed in arbitrary but identical non-alphabetic and non-\verb|{| characters, as in-text Scheme "result" or data: i.e., keyword and variable fonts are disabled. Special convenient case (as for \verb|\scheme|): \verb|\schemeresult{...}|. E.g., \index{schemeresult@\verb{\schemeresult}!using grouped argument} \begin{verbatim} \scheme|((lambda () (cons 'lambda 'cons)))| yields \schemeresult|(lambda . cons)|. \end{verbatim} produces \enableslatex \scheme|((lambda () (cons 'lambda 'cons)))| yields \schemeresult|(lambda . cons)|. \slatexdisable{enableslatex} {\re \verb{schemebox}} \index{schemebox@\verb{schemebox}} \index{boxed Scheme code} [In plain TeX: \verb{\schemebox} ... \verb{\endschemebox}; in LaTeX: \verb|\begin{schemebox}| ... \verb|\end{schemebox}|; but see \verb{defslatexenvstyle}.] The \verb{schemebox} environment is similar to \verb{schemedisplay} except that the code is provided as a "box" (i.e., it is not "displayed" in the standard way). Indeed, when the appropriate skip parameters are set, \verb{schemedisplay} itself _may_ \footnote{Yes, _may_: Not all \verb{schemedisplay}s invoke \verb{schemebox}, and if you're curious why, see entry for \verb{\rightcodeskip}. It is a matter of whether pagebreaks within Scheme code are allowed or not.} use a \verb{schemebox} to create a box of code that is set off with all-round space as a display. Saving a \verb{schemebox} in an explicit box allows you to move your typeset code arbitrarily. Note: see \verb{schemeregion}. {\re \verb{\schemeinput}} \index{schemeinput@\verb{schemeinput}} \index{inputting Scheme files as is} This can be used to input Scheme files as typeset code. (Unlike LaTeX's \verb|\input|, \verb|\schemeinput|'s argument must always be grouped.) The Scheme file can be specified either by its full name, or without its extension, if the latter is \verb{.scm}, \verb{.ss} or \verb{.s}. E.g., \begin{verbatim} \schemeinput{evenodd.scm} % the .scm is optional! \end{verbatim} (where \verb{evenodd.scm} is the name of a Scheme file containing the code for \enableslatex \scheme{even?} and \scheme{odd?} above) produces the same effect as the \verb{schemedisplay} version. \slatexdisable{enableslatex} Note: see \verb{schemeregion}. {\re \verb{schemeregion}} \index{schemeregion@\verb{schemeregion}} \index{nesting SLaTeX control sequences} [In plain TeX: \verb{\schemeregion} ... \verb{\endschemeregion}; in LaTeX: \verb|\begin{schemeregion}| ... \verb|\end{schemeregion}|; but see \verb{defslatexenvstyle}.] Calls to \verb|\scheme|, \verb|\schemeresult|, \verb{schemedisplay}, \verb{schemebox} or \verb|schemeinput| can be nested in (a Scheme comment) of other calls. In LaTeX text, they can occur in bodies of environments or otherwise grouped. However, they cannot normally be passed as arguments to macros or included in bodies of macro definitions, even though these are complete calls and not parameterized with respect to macro arguments. To be able to do this, you should cordon off such a text with the \verb{schemeregion} environment. SLaTeX is fairly generous about where exactly you throw the cordon. E.g., you cannot have \begin{verbatim} ... The code fragment $\underline{\hbox{\scheme{(call/cc I)}}}$ is ... ... \end{verbatim} but you _can_ have \begin{verbatim} \begin{schemeregion} ... The code fragment $\underline{\hbox{\scheme{(call/cc I)}}}$ is ... ... \end{schemeregion} \end{verbatim} and this will produce \enableslatex \begin{schemeregion} ... The code fragment $\underline{\hbox{\scheme{(call/cc I)}}}$ is ... ... \end{schemeregion} \slatexdisable{enableslatex} Thus, the \verb{schemeregion} environment makes it possible to put SLaTeX-specific commands inside macro arguments or macro definitions without causing rupture. Normally, this can't be done since SLaTeX-specific commands correspond to \verb{comment}-like regions of LaTeX code once SLaTeX is done preprocessing your text. These \verb{comment} regions share the characteristic of LaTeX's \verb{verbatim} regions, which also can't appear in macro arguments or definitions. To solve this, you enclose the offending text in a \verb{schemeregion} environment. This "inlines" all the calls to SLaTeX in its body instead of commenting them and then invoking \verb|\input|, thus escaping the fate described above. They are no-ops as far as non-SLaTeX commands are concerned. However, while a \verb{schemeregion} allows its constituent SLaTeX commands to be included in macro arguments and bodies, it itself cannot be so included. Thus, your \verb{schemeregion} should be in a position that satisfies the property A: either directly at the "top-level" or in a LaTeX environment that satisfies A. Since this recursive rule might look weird, you may just stick to calling \verb{schemeregion} at the "top-level". Or, you may even wrap each of your LaTeX files in one huge \verb{schemeregion} if you so wish. This will cover any obscure "non-robust" use of the SLaTeX primitives --- however, SLaTeX will run slower. (The term "robust" is not necessarily used in the same sense as in LaTeX.) Note that SLaTeX commands are made robust only if they are surrounded textually (lexically) by a \verb{schemeregion}. A region marker doesn't have dynamic scope in the sense that LaTeX files loaded using \verb|\input| from within a \verb{schemeregion} will not inherit it. In summary, a \verb{schemeregion} makes "robust" all calls to \verb|\scheme|, \verb{schemedisplay}, \verb{schemebox} and \verb|\schemeinput| within it. {\re \verb{\setkeyword} \verb{\setconstant} \verb{\setvariable}} \index{setkeyword@\verb{\setkeyword}} \index{setconstant@\verb{\setconstant}} \index{setvariable@\verb{\setvariable}} \index{SLaTeX database!modifying} SLaTeX has a database containing information about which code tokens are to be treated as {\bf keywords}, which as {\sf constants}, and which as _variables_. However, there will always be instances where the user wants to add their own tokens to these categories, or perhaps even modify the categories as prescribed by SLaTeX. The control sequences that enable the user to do these are \verb|\setkeyword|, \verb|\setconstant|, and \verb|\setvariable|. Their arguments are entered as a (space-separated) list enclosed in braces (\verb|{}|): SLaTeX learns that these are henceforth to be typeset in the appropriate font. E.g., \enableslatex \begin{verbatim} \setconstant{infinity -infinity} \end{verbatim} tells SLaTeX that \scheme{infinity} and \scheme{-infinity} are to be typeset as constants. \slatexdisable{enableslatex} \index{recognizing new syntactic keywords automatically} The user need not use \verb|\setkeyword| specify such new keywords as are introduced by Scheme's and Common Lisp's syntactic definition facilities, viz., \enableslatex \scheme{define-syntax}/\scheme{syntax-rules}, \scheme{defmacro}, \scheme{extend-syntax}, \scheme{define-macro!}: SLaTeX automatically recognizes new macros defined using these facilities. \slatexdisable{enableslatex} {\re \verb{\setspecialsymbol} \verb{\unsetspecialsymbol}} \index{setspecialsymbol@\verb{\setspecialsymbol}} \index{unsetspecialsymbol@\verb{\unsetspecialsymbol}} \index{SLaTeX database!modifying} \index{recognizing special symbols} These commands are useful to generate "mathematical"-looking typeset versions of your code, over and beyond the fonting capabilities provided by default. For instance, although your code is restricted to using ascii identifiers that follow some convention, the corresponding typeset code could be more mnemonic and utilize the full suite of mathematical and other symbols provided by TeX. This of course should not require you to interfere with your code itself, which should run in its ascii representation. It is only the typeset version that has the new look. For instance, you might want all occurrences of \verb|lambda|, \verb|and|, \verb|equiv?|, \verb|below?|, \verb|above?|, \verb|a1| and \verb|a2| in your code to be typeset as $\lambda$, $\land$, $\equiv$, $\sqsubseteq$, $\sqsupseteq$, $a_1$ and $a_2$ respectively. To do this, you should \verb|\setspecialsymbol| the concerned identifier to the desired TeX expansion, viz., \enableslatex \begin{verbatim} \setspecialsymbol{lambda}{$\lambda$} \setspecialsymbol{and}{$\land$} \setspecialsymbol{equiv?}{$\equiv$} \setspecialsymbol{below?}{$\sqsubseteq$} \setspecialsymbol{above?}{$\sqsupseteq$} \setspecialsymbol{a1}{$a_1$} \setspecialsymbol{a2}{$a_2$} \end{verbatim} \slatexdisable{enableslatex} Now, typing \begin{verbatim} \begin{schemedisplay} (define equiv? (lambda (a1 a2) (and (below? a1 a2) (above? a1 a2)))) \end{schemedisplay} \end{verbatim} produces \enableslatex \begin{schemedisplay} (define equiv? (lambda (a1 a2) (and (below? a1 a2) (above? a1 a2)))) \end{schemedisplay} \slatexdisable{enableslatex} Note that with the above settings, \verb|lambda| and \verb|and| have lost their default keyword status, i.e., they will not be typed {\bf boldface}. To retrieve the original status of special symbols, you should use \verb|\unsetspecialsymbol|, e.g. \enableslatex \begin{verbatim} \unsetspecialsymbol{lambda and} \end{verbatim} Typing the same program after unsetting the special symbols as above produces, as expected: \begin{schemedisplay} (define equiv? (lambda (a1 a2) (and (below? a1 a2) (above? a1 a2)))) \end{schemedisplay} \slatexdisable{enableslatex} In effect, \verb|\setspecialsymbol| extends the basic "fonting" capability to arbitrary special typeset versions. {\re \verb{\schemecasesensitive}} \index{schemecasesensitive@\verb{\schemecasesensitive}} \index{case sensitivity} SLaTeX always typesets output that is of the same case as your input, regardless of the setting of the \verb|\schemecasesensitive| command. However, this command can be used to signal to SLaTeX that all case variations of an identifier are to be treated identically. E.g. typing \verb|\schemecasesensitive{false}| implies that while \verb|lambda| continues to be a keyword, so also are \verb|Lambda|, \verb|LAMBDA| and \verb|LaMbDa|. \verb|\schemecasesensitive{true}| reverts it back to the default mode where case is significant in determining the class of a token. Note that the status \verb|\schemecasesensitive| also affects the "special symbols" of the previous item. Thus, in the default case-_sensitive_ setting, only the case-significant symbol as mentioned in the call to \verb|\setspecialsymbol| will be replaced by the corresponding LaTeX expansion. In a case-_in_sensitive setting, all case variations of the special symbol will be replaced. {\re \verb{\abovecodeskip} \verb{\belowcodeskip} \verb{\leftcodeskip} \verb{\rightcodeskip}} \index{abovecodeskip@\verb{\abovecodeskip}} \index{belowcodeskip@\verb{\belowcodeskip}} \index{leftcodeskip@\verb{\leftcodeskip}} \index{rightcodeskip@\verb{\rightcodeskip}} \index{schemedisplay@\verb{schemedisplay}!adjusting display parameters} These are the parameters used by \verb{schemedisplay} for positioning the displayed code. The default values are \begin{verbatim} \abovecodeskip \medskipamount \belowcodeskip \medskipamount \leftcodeskip 0pt \rightcodeskip 0pt \end{verbatim} This produces a flushleft display. The defaults can be changed to get new display styles. E.g., the assignment \begin{verbatim} \leftcodeskip5em \end{verbatim} shifts the display from the left by a constant 5 ems. \index{schemedisplay@\verb{schemedisplay}!allowing page breaks in} \index{schemedisplay@\verb{schemedisplay}!disallowing page breaks in} In both the above cases, the \verb{schemedisplay} environment will be broken naturally across page boundaries at the right spot if the code is too long to fit a single page. In fact, automatic pagebreaks within the Scheme code are allowed if and only if \verb{\rightcodeskip} is 0pt (its default value). For all other values of \verb{\rightcodeskip}, each Scheme code block in a \verb{schemedisplay} is guaranteed to be on the same page. If you like your current left indentation, and you're not sure of what value to give \verb{\rightcodeskip}, but nevertheless don't want Scheme code broken across pages, you could set \begin{verbatim} \rightcodeskip=0.01pt %or \rightcodeskip=0pt plus 1fil \end{verbatim} The following explains why the above disable page breaks within the Scheme block. For example, suppose you'd set \begin{verbatim} \leftcodeskip=0pt plus 1fil \rightcodeskip=0pt plus 1fil \end{verbatim} This will get you a _centered_ display style. This is of course because the skip on each side of the code produces a spring~\cite{tex} that pushes the code to the center. But for this spring action to work nicely, the code must have been collected into an unbreakable box --- which is precisely what \verb{schemedisplay} does for each of its code blocks whenever it notices that the prevailing value of \verb{\rightcodeskip} is not the default zero. \footnote{0pt plus 1fil $\ne$ 0pt} It is this behind-the-scenes selective boxing that dictates whether a \verb{schemedisplay} block can or cannot be broken across a page boundary. And the value of \verb{\rightcodeskip} is used to govern this selection in a "reasonable" manner. {\re \verb{\keywordfont} \verb{\constantfont} \verb{\variablefont}} \index{keywordfont@\verb{\keywordfont}} \index{constantfont@\verb{\constantfont}} \index{variablefont@\verb{\variablefont}} \index{specifying SLaTeX's fonts} These decide the typefaces used for keywords, constants, and variables. The default definitions are: \begin{verbatim} \def\keywordfont#1{{\bf#1}} \def\constantfont#1{{\sf#1}} \def\variablefont#1{{\it#1\/}} \end{verbatim} This is close to the Little Lisper~\cite{ll} style. Redefine these control sequences for font changes. As an extreme case, defining all of them to \verb|{{\tt#1}}| typesets everything in monospace typewriter font, as, for instance, in SICP~\cite{sicp}. {\re \verb{\defschemedisplaytoken} \verb{\defschemetoken} \verb{\defschemeresulttoken} \verb{\defschemeinputtoken} \verb{\defschemeregiontoken}} \index{defschemedisplaytoken@\verb{\defschemedisplaytoken}} \index{defschemetoken@\verb{\defschemetoken}} \index{defschemeresulttoken@\verb{\defschemeresulttoken}} \index{defschemeboxtoken@\verb{\defschemeboxtoken}} \index{defschemeinputtoken@\verb{\defschemeinputtoken}} \index{defining SLaTeX control sequences} These define the tokens used by SLaTeX to trigger typesetting of in-text code, display code, box code, and Scheme files. The default tokens are, as already described, \verb{schemedisplay}, \verb|\scheme|, \verb|\schemeresult|, \verb{schemebox}, \verb|\schemeinput| and \verb{schemeregion} respectively. If you want shorter or more mnemonic tokens, the \verb|\defscheme*token| control sequences prove useful. E.g., if you want \verb|\code| to be your new control sequence for in-text code, use \verb|\defschemetoken{code}|. All instances of \verb|\code+...+| after this definition produce in-text code, unless overridden by an \verb|\undefschemetoken| command. One can have at any time any number of tokens for the same activity. One consequence of this is that one can have nested \verb{schemeregion}s, provided one has different names for the nested call. Otherwise, the \verb|\end| of an inner region will prematurely terminate an outer region. {\re \verb{\undefschemedisplaytoken} \verb{\undefschemetoken} \verb{\undefschemeresulttoken} \verb{\undefschemeinputtoken} \verb{\undefschemeregiontoken}} \index{undefschemedisplaytoken@\verb{\undefschemedisplaytoken}} \index{undefschemetoken@\verb{\undefschemetoken}} \index{undefschemeresulttoken@\verb{\undefschemeresulttoken}} \index{undefschemeboxtoken@\verb{\undefschemeboxtoken}} \index{undefschemeinputtoken@\verb{\undefschemeinputtoken}} \index{undefschemeregiontoken@\verb{\undefschemeregiontoken}} \index{undefining SLaTeX control sequences} These _un_define the tokens used for triggering typesetting in-text code, display code, box code, Scheme files, and robust Scheme regions. Use these if you want to use these tokens for other purposes and do not want to unwittingly trip up the SLaTeX system. {\re \verb{\defschememathescape} \verb{\undefschememathescape}} \index{defschememathescape@\verb{\defschememathescape}} \index{undefschememathescape@\verb{\undefschememathescape}} \index{TeX mathmode in SLaTeX} \index{escape character for mathmode within Scheme} \verb|\defschememathescape{$}| defines the character \verb|$| as a mathematical escape character to be used within scheme code. (Any character other than \verb|}| and whitespace may be chosen instead of \verb|$|.) This allows one to use LaTeX-like mathematical subformulas within Scheme code, e.g., \begin{verbatim} \defschememathescape{$} \begin{schemedisplay} (define $\equiv$ (lambda (a$_1$ a$_2$) ($\land$ ($\sqsubseteq$ a$_1$ a$_2$) ($\sqsupseteq$ a$_1$ a$_2$)))) \end{schemedisplay} \end{verbatim} produces \enableslatex \defschememathescape{$} \begin{schemedisplay} (define $\equiv$ (lambda (a$_1$ a$_2$) ($\land$ ($\sqsubseteq$ a$_1$ a$_2$) ($\sqsupseteq$ a$_1$ a$_2$)))) \end{schemedisplay} \undefschememathescape{$} \slatexdisable{enableslatex} \verb|\undefschememathescape{$}| disables the math-escape nature, if any, of \verb|$|. {\re \verb{\slatexdisable}} \index{slatexdisable@\verb{\slatexdisable}} \index{disabling SLaTeX} The tokens for typesetting code, as also the token \verb|\input| (which is sensitive to SLaTeX, since the latter uses it to recursively process files within files), can only be used as calls. If they occur in the bodies of macro definitions, or their names are used for defining other control sequences, SLaTeX will not be able to process them. Sometimes, one wants to use these tokens, say \verb|\input|, without having SLaTeX try to process the inputted file. Or the name \verb|\scheme| may be used in a verbatim environment, and we don't want such an occurrence to trigger the codesetting half of SLaTeX to look for code. Avoiding such uses altogether can be unduly restrictive. \footnote{Especially when one is writing a "How to ..." manual like this where one both uses _and_ mentions the control sequences!} One way out is to judiciously use the \verb|\undefscheme*token| commands to temporarily remove the SLaTeX-specificity of these names. Even this can be painful. SLaTeX therefore provides the commands \verb|\slatexdisable|. This takes one argument word and makes the corresponding control sequence out of it. Further, from this point in the text, SLaTeX is disabled _until_ the manufactured control sequence shows up. This mechanism makes it possible to restrict SLaTeX to only appropriate portions of the text. Note that the token \verb|\slatexdisable| itself can appear in the text succeeding its call. The only token that can restore SLaTeX-sensitivity is the one created during the call to \verb|\slatexdisable|. A typical example of the use of \verb|\slatexdisable| is when you use the names \verb|\scheme| and \verb|\begin{schemedisplay}| in a \verb{verbatim} environment. E.g., {\medskip \obeylines\parindent0pt \verb|\slatexdisable{slatexenable}| \verb|\begin{verbatim}| \verb|slatex provides the command \scheme and the pair| \verb|\begin{schemedisplay} and \end{schemedisplay} to typeset| \verb|in-text and displayed Scheme code respectively.| \verb|\end{verbatim}| \verb|\slatexenable| \medskip} produces the required \begin{verbatim} slatex provides the command \scheme and the pair \begin{schemedisplay} and \end{schemedisplay} to typeset in-text and display Scheme code respectively. \end{verbatim} {\re \verb{\slatexignorecurrentfile}} \index{slatexignorecurrentfile@\verb{\slatexignorecurrentfile}} \index{disabling SLaTeX} This is a SLaTeX pragma included to improve efficiency. If you're sure that the remaining portion of a certain LaTeX (or TeX) file (including the files that would be \verb|\input|ed by it) don't contain any SLaTeX commands, then you may place this control sequence in it at this point to signal SLaTeX that no preprocessing is necessary for the rest of the file. {\re \verb{\defslatexenvstyle}} \index{defslatexenvstyle@\verb{\defslatexenvstyle}} \index{plain TeX} \index{LaTeX} \index{environments} As section~\ref{quick} showed, the differences in SLaTeX usage between plain TeX and LaTeX is simply a matter of the difference in the "environment" styles of the two formats. It is easy get the behavior of the one format with the other. \begin{enumerate} \o If you wish to use the plain-TeX style in LaTeX, type \begin{verbatim} \defslatexenvstyle{tex} \end{verbatim} before first such use. \o Similarly, if you wish to use the LaTeX \verb{\begin}/\verb{\end} style in plain TeX, use \begin{verbatim} \defslatexenvstyle{latex} \end{verbatim} _provided you have already defined \verb{\begin} and \verb{\end} appropriately!_ Before doing this, you should keep in mind that TeX already has an \verb{\end} command --- which is used by TeX's \verb{\bye} --- that ends the document. This function should be saved under a different name, before \verb{\end} can be redefined as an environment closer. The following is one way to accomplish this: \begin{verbatim} \let\plaintexend\end \outer\def\bye{\par\vfill\supereject\plaintexend} \def\begin#1{\csname#1\endcsname} \def\end#1{\csname end#1\endcsname} \end{verbatim} \end{enumerate} In either case, you can revert to the default style with \verb|\defslatexenvstyle{latex}| and \verb|\defslatexenvstyle{tex}| respectively. {\re \verb{\slatexseparateincludes}} \index{slatexseparateincludes@\verb{slatexseparateincludes}} \index{reusing SLaTeX's temporary files} By default, the temporary files of SLaTeX use the name of the topmost TeX file, i.e., the name stored under \verb{\jobname}. In large LaTeX documents using \verb{\include}, this may be unduly restrictive. To recapitulate, the \verb{slatex} command creates temporary files to store typeset code and then passes the baton on to TeX or LaTeX. If no significant change has been made to the Scheme code (either in content or in relative positioning) in the document, then successive calls to (La)TeX could be made directly using the old temporary files. This could be a time-saver, since it avoids calling up the Scheme typesetter. However, in a large LaTeX document with \verb{\include}s, these successive calls to LaTeX often entail juggling the \verb{\include}s that are chosen. In this case, even though the relative position of the Scheme code is preserved within each \verb{include}d file, the sequence perceived by the main file changes. This spoils the invariance we needed if we'd wanted to avoid calling SLaTeX unnecessarily. \index{reusing SLaTeX's temporary files!exploiting LaTeX's \verb{\include}} To solve this, the SLaTeX command sequence \verb{\slatexseparateincludes} --- which must be called before the first occurrence of Scheme code in your document --- guarantees that each \verb{\include}d file will generate its own pool of temp files. Thus, if the SLaTeX files are created once for each \verb{\include}, they will be correctly loaded no matter what sequence of \verb{\include}s is taken. {\re \verb{\schemecodehook}} \index{schemecodehook@\verb{\schemecodehook}} \index{hook for \verb{schemedisplay} and \verb{schemebox}} The user can define \verb{\schemecodehook} to be anything. The hook will be evaluated inside each subsequent call to \verb{schemedisplay} and \verb{schemebox}. E.g., \begin{verbatim} \let\schemecodehook\tiny \end{verbatim} converts your Scheme displays and boxes into {\tiny small print}. The default value of the hook is \verb{\relax}, a no-op. \section{Setting up a file that resets SLaTeX's defaults} \label{preamble} \index{writing personal preamble} \index{SLaTeX database!modifying} A sample style modification file for SLaTeX would include redefinition of the names of the codesetting control sequences, adjustment of the display parameters, modification of the font assignments for keywords/constants/variables/special symbols, and addition of new keywords/constants/variables/special symbols to SLaTeX's database. Let's assume you want \begin{itemize} \o a centered display style with no vertical skips; \o the names \verb|\code|, \verb{schemefrag}, \verb{scmbox}, \verb|\sinput| instead of \verb|\scheme|, \verb{schemefrag}, \verb{schemebox} and \verb|\schemeinput|; \o tokens to disregard case; \o the keywords to come out it \verb{typewriter}, the constants in roman, and the variables in {\sl slant}; \o "\verb{und}" and "\verb{oder}" as keywords, "\verb{true}" and "\verb{false}" as constants, "\verb{define}" as a variable (overriding default as keyword!), "\verb{F}" as a constant (\verb{f} will also be a constant, due to case-insensitivity!); \o "\verb{top}" and "\verb{bottom}" to print as $\top$ and $\bot$ respectively. \end{itemize} This could be set up as \begin{verbatim} \abovecodeskip 0pt \belowcodeskip 0pt \leftcodeskip 0pt plus 1fil \rightcodeskip 0pt plus 1fil \undefschemetoken{scheme} \undefschemeboxtoken{schemebox} \undefschemedisplaytoken{schemedisplay} \undefschemeinputtoken{schemeinput} \defschemetoken{code} \defschemeboxtoken{scmbox} \defschemedisplaytoken{schemegrag} \defschemeinputtoken{sinput} \schemecasesensitive{false} \def\keywordfont#1{{\tt#1}} \def\constantfont#1{{\rm#1}} \def\variablefont#1{{\sl#1\/}} \setkeyword{und oder} \setconstant{true false} \setvariable{define} \setconstant{F} \setspecialsymbol{top}{$\top$} \setspecialsymbol{bottom}{$\bottom$} \end{verbatim} This file can then be \verb|\input| in the preamble of your LaTeX document. \section{How to obtain and install SLaTeX} \label{ftp} \index{obtaining and installing SLaTeX} \enableslatex \leftcodeskip=0pt plus 1fil \rightcodeskip=0pt plus 1fil \slatexdisable{enableslatex} SLaTeX is available via anonymous ftp from \verb{cs.rice.edu} (or \verb{titan.cs.rice.edu}). Login as \verb{anonymous}, give your userid as password, change to the directory \verb{public/dorai}, convert to \verb{bin} mode, and get the file \verb{slatex}_NN_\verb{.tar.gz}, where _NN_ is some number. Un\verb{gzip}ping and un\verb{tar}ring produces a directory \verb{slatex}, containing the SLaTeX files. (The file \verb{manifest} lists the files in the distribution --- make sure that nothing is missing.) To install SLaTeX on your system: \begin{enumerate} \o First change directory (\verb{cd}) to \verb{slatex}, the directory housing the SLaTeX files. \footnote{Some of the SLaTeX files use DOS-style CR-LF newlines. You may want to use an appropriate newline modifier to the SLaTeX files to make the files comply with your operating system's newline format.} \o Edit the file \verb{config.dat} as suggested by the comments in the file itself. \o Invoke your Scheme or Common Lisp interpreter. Load the file \verb{config.scm}, i.e., type \enableslatex \begin{schemedisplay} (load "config.scm") \end{schemedisplay} \slatexdisable{enableslatex} at the Scheme (or Common Lisp) prompt. This will configure SLaTeX for your Scheme dialect and operating system, creating a Scheme file called \verb{slatex.scm}. (If you informed \verb{config.dat} that your Scheme dialect is Chez, the file \verb{slatex.scm} is a compiled version rather than Scheme source.) The configuration process also creates a batch file \verb{slatex.bat} (on DOS) or a shell script \verb{slatex} (on Unix), for convenient invocation of SLaTeX from your operating system command line. A Scheme/Common Lisp file \verb{callsla.scm} is also created --- this lets you call SLaTeX from the Scheme/Common Lisp prompt. \o Exit Scheme/Common Lisp. \end{enumerate} To set up paths and modify shell script/batch file: \begin{enumerate} \o Copy (or move, or link) \verb{slatex.scm} into a suitable place, e.g., your \verb{bin} or \verb{lib} directory, or the system \verb{bin} or \verb{lib}. \o Copy (or move, or link) \verb{slatex.sty} into a suitable place, i.e., somewhere in your \verb{TEXINPUTS} path. For installing on a multiuser system, place in the directory containing the LaTeX files (on mine this is \verb{/usr/local/lib/tex/macros}). \o \enableslatex Copy (or move, or link) the shell script \verb{slatex} or the batch file \verb{slatex.bat} to a suitable place in your \verb{PATH}, e.g., your {bin} or the system {bin} directory. Note that \verb{slatex}(\verb{.bat}) sets \scheme{SLaTeX.*texinputs*}. If you're making the same shell script (or batch file) available to multiple users, you should change the line \begin{schemedisplay} (set! SLaTeX.*texinputs* "...") \end{schemedisplay} to \begin{schemedisplay} (set! SLaTeX.*texinputs* (getenv "TEXINPUTS")) \end{schemedisplay} or some other dialect-dependent way of obtaining the \verb{TEXINPUTS} environment variable. \slatexdisable{enableslatex} \o Run \verb{slatex} on \verb{slatex-d.tex} (this file!) for documentation. (This also serves as a check that SLaTeX does indeed work on your machine.) Refer to \verb{slatex-d.dvi} when befuddled. \end{enumerate} If your dialect did not allow a nice enough shell script or batch file, the following provides an alternate route to unlocking SLaTeX. \subsection{Other ways of invoking SLaTeX} The configuration process creates shell script/batch file \verb{slatex}(\verb{.bat}) for a standard invoking mechanism for SLaTeX. The shell script/batch file is created to exploit the way your Scheme is called, e.g., matters like whether it accepts \verb{echo}'d s-expressions (e.g., Chez) , whether it loads command line files (e.g., SCM) , and whether it always checks for an "init" file (e.g., MIT C Scheme). \begin{enumerate} \o If your Scheme doesn't fall into either of these categories, you may have to write your own shell script/batch file or devise some other mechanism. \o The shell script/batch file invokes Scheme/Common Lisp. If, however, you are already in Scheme/Common Lisp and spend most of the time continuously at the Scheme/Common Lisp prompt rather than the operating system prompt, you may avoid some of the delays inherent in the shell script/batch file. \end{enumerate} \enableslatex The file \verb{callsla.scm}, which contains just one small procedure named \scheme{call-slatex}, and which is created by the configuration process, provides a simple calling mechanism from Scheme/Common Lisp, as opposed to the operating system command line. You may use it as an alternative to the \verb{slatex}(\verb{.bat}) shell script/batch file. The usage is as follows: load \verb{callsla.scm} into Scheme/Common Lisp \begin{schemedisplay} (load "callsla.scm") \end{schemedisplay} and type \setspecialsymbol{<tex-file>}{\va{$\langle$tex-file$\rangle$}} \begin{schemedisplay} (call-slatex <tex-file>) \end{schemedisplay} when you need to call SLaTeX on the (La)TeX file \scheme{<tex-file>}. This invokes the SLaTeX preprocessor on \scheme{<tex-file>}. If your Scheme has a \scheme{system} procedure that can call the operating system command line, \scheme{call-slatex} will also send your file to TeX or LaTeX. If your Scheme does not have such a procedure, \scheme{call-slatex} will simply prod you to call TeX or LaTeX yourself. \slatexdisable{enableslatex} The outline of the shell script/batch file or \verb{callsla.scm} or of any strategy you devise for using SLaTeX should include the following actions: \begin{enumerate} \o Load the file \verb{slatex.scm} (created by the configuration process) into Scheme/Common Lisp. \o \enableslatex Set the variable \scheme{SLaTeX.*texinputs*} to the path \verb{TEXINPUTS} or \verb{TEXINPUT} used by TeX \footnote{There is some variation on the name of this environment variable. Unix TeX's prefer \verb{TEXINPUTS} with an \verb{S}, while DOS (e.g., Eberhard Mattes's emTeX) favors \verb{TEXINPUT} without the \verb{S}.} to look for \slatexdisable{enableslatex} \verb|\input| files. \o \enableslatex Call the procedure \scheme{SLaTeX.process-main-tex-file} on the \verb{.tex} file to be processed. \slatexdisable{enableslatex} \o Call either \verb{latex} or \verb{tex} on the \verb{.tex} file. \end{enumerate} \enableslatex You may devise your own way of calling \scheme{SLaTeX.process-main-tex-file}, provided your method makes sure that \verb{slatex.scm} has been loaded, \scheme{SLaTeX.*texinputs*} set appropriately _before_ the call and \verb{latex}/\verb{tex} is called _after_ the call. Note that if you prefer to stay in Scheme/Common Lisp most of the time, it is a good idea to pre-load the procedure \scheme{call-slatex}, perhaps through an "init" file. \scheme{call-slatex} is just a "one-liner" "call-by-need" hook to SLaTeX and does not take up much resources. (Global name clashes between your own code and SLaTeX code won't occur unless you use variable names starting with "\scheme{SLaTeX.}") If you made no calls to \scheme{call-slatex}, the bigger file \verb{slatex.scm} is not loaded at all. If you make several calls to \scheme{call-slatex}, \verb{slatex.scm} is loaded only once, at the time of the first call. \slatexdisable{enableslatex} \subsection{Dialects SLaTeX runs on} \index{dialects SLaTeX runs on} \enableslatex SLaTeX is implemented in R4RS-compliant Scheme (macros are not needed). The code uses the non-standard procedures \scheme{delete-file}, \scheme{file-exists?} and \scheme{force-output}, but a Scheme without these procedures can also run SLaTeX (the configuration defines the corresponding variables to be dummy procedures, since they are not crucial). The distribution comes with code to allow SLaTeX to run also on Common Lisp. The files \verb{readme} and \verb{install} contain all the information necessary to configure SLaTeX for your system. \slatexdisable{enableslatex} SLaTeX has been tested successfully in the following dialects: \begin{itemize} \o _On Unix:_ Chez Scheme (R. Kent Dybvig), Ibuki Common Lisp (1987), MIT C Scheme, Elk (Oliver Laumann), Scheme-to-C (Joel Bartlett), Scm (Aubrey Jaffer) and UMB Scheme (William Campbell); \o _On MS-DOS:_ MIT C Scheme, Scm (Aubrey Jaffer), Austin Kyoto Common Lisp (William Schelter's enhanced version of Taiichi Yuasa and Masami Hagiya's KCL) and CLisp (Bruno Haible and Michael Stoll). \iffalse PCScheme/Geneva (Larry Bartholdi and Marc Vuilleumier) \fi \end{itemize} If your Scheme is not mentioned here but _is_ R4RS-compliant, please send a note to the author at \verb{dorai@cs.rice.edu} describing your Scheme's procedures for deleting files, testing file existence, and forcing output, if any, and the configuration file will be enhanced to accommodate the new dialect. Bug reports are most welcome --- send to \verb{dorai@cs.rice.edu}. \index{bug reports} \begin{thebibliography}{9} \bibitem{sicp} H. Abelson and G.J. Sussman with J. Sussman. Structure and Interpretation of Computer Programs. MIT Press, 1985. \bibitem{r4rs} W. Clinger and J. Rees, eds. Revised$^4$ Report on the Algorithmic Language Scheme. 1991. \bibitem{ll} D.P. Friedman and M. Felleisen. The Little Lisper. Science Research Associates, 1989. \bibitem{tex} D.E. Knuth. The TeXbook. Addison-Wesley, 1984. \bibitem{latex} L. Lamport. LaTeX User's Guide and Reference Manual. Addison-Wesley, 1986. \bibitem{schemeweb} J. Ramsdell. SchemeWeb. Scheme Repository, nexus.yorku.ca, maintained by O. Yigit. \bibitem{lisp2tex} C. Queinnec. LiSP2TeX. Scheme Repository. \bibitem{cltl2} G.L. Steele Jr. Common Lisp: The Language, 2nd ed. Digital Press, 1990. \end{thebibliography} %input slatex-d.ind, the index, if available. %slatex-d.ind is generated by running % makeind(e)x slatex-d %after running latex on slatex-d. The next call % latex slatex-d %will include slatex-d.ind \inputifpossible{slatex-d.ind} \end{document} \index{schemedisplay@\verb{schemedisplay}!with plain TeX} \index{schemebox@\verb{schemebox}!with plain TeX} \index{schemeregion@\verb{schemeregion}!with plain TeX} �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/compiler-syntax-tests.scm�������������������������������������������������������0000644�0001750�0001750�00000003353�13370655400�021102� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(define (foo) 1) (assert (= 1 (foo))) (define-compiler-syntax foo (syntax-rules () ((_ x) 2) ) ) (assert (= 2 (foo 42))) (assert (= 1 (foo))) (let-compiler-syntax ((foo (syntax-rules () ((_ x) 3)))) (assert (= 3 (foo 42)))) (assert (= 2 (foo 42))) (module m1 (bar) (import (prefix scheme s:) (chicken syntax)) (define-compiler-syntax s:+ (syntax-rules () ((_ x y) (s:- x y)))) (define-compiler-syntax bar (syntax-rules () ((_ x y) "oink!"))) (s:define (bar x) (s:+ x 1)) ) (module m2 () (import scheme (chicken base) (prefix m1 m-)) (print (m-bar 10)) (assert (= 9 (m-bar 10))) (print (+ 4 3))) (define (goo x) `(goo ,x)) (assert (eq? 'goo (car (goo 1)))) (define-compiler-syntax goo (syntax-rules () ((_ x) `(cs-goo ,x)))) (print (goo 2)) (assert (eq? 'cs-goo (car (goo 2)))) (define-compiler-syntax goo) (assert (eq? 'goo (car (goo 3)))) (define-compiler-syntax goo (syntax-rules () ((_ x) `(cs-goo2 ,x)))) (let-compiler-syntax ((goo)) (assert (eq? 'goo (car (goo 4))))) (assert (eq? 'cs-goo2 (car (goo 5)))) (module bar (xxx) (import scheme (chicken syntax) (chicken base)) (define (xxx) 'yyy) ; ineffective - suboptimal ;(assert (eq? 'yyy (xxx))) (define-compiler-syntax xxx (syntax-rules () ((_) 'zzz))) (define-syntax alias (syntax-rules () ((_ name x) (define-compiler-syntax name (syntax-rules () ((_ . args) (x . args))))))) (alias pof +) (alias pif xxx) (assert (= 7 (pof 3 4))) (assert (eq? 'zzz (pif))) (print (xxx)) (assert (eq? 'zzz (xxx)))) ;;; local to module (define (f1 x) x) (module m3 () (import scheme (chicken syntax)) (define-compiler-syntax f1 (syntax-rules () ((_ x) (list x)))) ) (assert (= 2 (f1 2))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reexport-tests-2.scm������������������������������������������������������������0000644�0001750�0001750�00000000432�13370655400�017746� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; export of syntax referring to reexported syntax binding (import reexport-m4) (print (baz)) ;;; reexport of renamed syntax (import reexport-m6) (f:s1) ; expands to s2, which is reexported and refers to "s2", which is also visible in this context as "f:s2" (f:s2) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/test-finalizers-2.scm�����������������������������������������������������������0000644�0001750�0001750�00000002566�13370655400�020073� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test-finalizers-2.scm - test finalizers + GC roots (import (chicken gc) (chicken fixnum)) (define (list-tabulate n proc) (let loop ((i 0)) (if (fx>= i n) '() (cons (proc i) (loop (fx+ i 1)))))) (define *n* 1000) (define *count* 0) #> static void * makef(int f, C_word x) { void *r = f ? CHICKEN_new_finalizable_gc_root() : CHICKEN_new_gc_root(); CHICKEN_gc_root_set(r, x); return r; } static void freef(void *r) { CHICKEN_delete_gc_root(r); } <# (define makef (foreign-lambda c-pointer "makef" bool scheme-object)) (define freef (foreign-lambda void "freef" c-pointer)) (define ((fin f e) x) (set! *count* (add1 *count*)) (assert ((if e even? odd?) (car x))) (when e (freef f))) (print "creating gc roots") (let* ((x (list-tabulate *n* list)) (fs (list-tabulate *n* (lambda (x) (zero? (modulo x 2))))) (rs (map makef fs x))) (for-each (lambda (x f e) (set-finalizer! x (fin f e))) x rs fs) (print "forcing finalizers") (##sys#force-finalizers) (assert (zero? *count*)) (print "dropping data") (set! x #f) (print "forcing finalizables") (##sys#force-finalizers) (print *count*) (assert (= (quotient *n* 2) *count*)) (print "releasing non-finalizable gc roots") (for-each (lambda (f e) (unless e (freef f))) rs fs) (print "forcing remaining") (##sys#force-finalizers) (assert (= *n* *count*))) ������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/embedded3.c���������������������������������������������������������������������0000644�0001750�0001750�00000002123�13370655400�016052� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* embedded3-c.c */ #include <chicken.h> #include <assert.h> #ifdef C_SIXTY_FOUR # ifdef C_LLP # define UWORD_FORMAT_STRING "0x%016llx" # else # define UWORD_FORMAT_STRING "0x%016lx" # endif #else # define UWORD_FORMAT_STRING "0x%08x" #endif extern double baz(int); int main() { char buffer[ 256 ]; int status; C_word val = C_SCHEME_UNDEFINED; C_word *data[ 1 ]; data[ 0 ] = &val; CHICKEN_run(C_toplevel); status = CHICKEN_read("(bar 99)", &val); assert(status); C_gc_protect(data, 1); printf("data: "UWORD_FORMAT_STRING"\n", (C_uword)val); status = CHICKEN_eval_string_to_string("(bar)", buffer, 255); assert(!status); CHICKEN_get_error_message(buffer, 255); printf("ouch (expected): %s\n", buffer); status = CHICKEN_eval_string_to_string("(bar 23)", buffer, 255); assert(status); printf("-> %s\n", buffer); printf("data: "UWORD_FORMAT_STRING"\n", (C_uword)val); status = CHICKEN_eval_to_string(val, buffer, 255); assert(status); printf("-> %s\n", buffer); printf("-> %g\n", baz(22)); return 0; } ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/scrutiny-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000025244�13370655400�017627� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; scrutiny-tests.scm (define (a) (define (b) (define (c) (let ((x (+ 3 4))) (if x 1 2))))) ; expected boolean but got number in conditional (define (b) (let ((x #t)) (if x 1 2))) ; #t is always true (define (foo x) (if x ; branches return differing number of results (values 1 2) (values 1 2 (+ (+ (+ (+ 3))))))) (let ((bar +)) (bar 3 'a)) ; expected number, got symbol (string?) ; expected 1 argument, got 0 (print (values 1 2)) ; expected 1 result, got 2 (print (values)) ; expected 1 result, got 0 (let ((x 100)) (x)) ; expected procedure, got fixnum (print (+ 'a 'b)) ; expected 2 numbers, but got symbols (set! car 33) ; 33 does not match type of car ((values 1 2)) ; expected procedure, got fixnum (canonicalizes to 1 result) ; this should *not* signal a warning: (define (test-values x) (define (fail) (error "failed")) (if x (values 42 43) (fail))) ; same case, but nested (define (test-values2 x y) (define (fail) (error "failed")) (if x (values 42 43) (if y (values 99 100) (fail)))) (define (foo) (define (bar) (if foo 1)) ; should not warn (local) (for-each void '(1 2 3)) ; should not warn (self-call) (if foo 2) ; not in tail position (if bar 3)) ; should warn ;; noreturn conditional branch enforces "number" on x (define (foo2 x) (if (string? x) (error "foo") (+ x 3)) (string-append x "abc")) ;; implicit declaration of foo3 (declare (hide foo3)) (define (foo3 x) (string-append x "abc")) (foo3 99) ;; predicate (define (foo4 x) (if (string? x) (+ x 1) (+ x 2))) ; ok ;; enforcement (define (foo5 x) (string-append x "abc") (+ x 3)) ;; aliasing (define (foo6 x) (let ((y x)) (string-append x "abc") (+ x 3))) ;XXX (+ y 3) does not work yet ;; user-defined predicate (: foo7 (* -> boolean : string)) (define (foo7 x) (string? x)) (when (foo7 x) (+ x 1)) ; will warn about "x" being a string ;; declared procedure types are enforcing (define-type s2s (string -> symbol)) (: foo8 s2s) (define (foo8 x) (string->symbol x)) (: foo9 s2s) (declare (enforce-argument-types foo9)) (define (foo9 x) (string->symbol x)) (define (foo10 x) (foo8 x) (+ x 1) ; foo8 does not enforce x (no warning) (foo9 x) ; + enforces number on x (+ x 1)) ; foo9 does enforce ;; trigger warnings for incompatible types in "the" forms (define (foo10 x) (string-append (the pair (substring x 0 10))) ; 1 (the * (values 1 2)) ; 1 + 2 (the * (values)) ; 3 (the fixnum (* x y))) ; nothing (but warns about "x" being string) ;; Reported by Joerg Wittenberger: ; ; - assignment inside first conditional does not invalidate blist ;; entries for "ins"/"del" in outer flow. (define (write-blob-to-sql sql identifier last blob c-c) (define ins '()) (define del '()) (if (vector? blob) (begin (set! ins (vector-ref blob 1)) (set! del (vector-ref blob 2)) (set! blob (vector-ref blob 0)))) (if (or (pair? ins) (pair? del)) (<handle-ins-and-del>)) (<do-some-more>)) ;; Checking whether reported line numbers inside modules are correct (module foo (blabla) (import scheme) (define (blabla) (+ 1 'x))) ;; Reported by megane in #884: ;; ;; Custom types defined in modules need to be resolved during canonicalization (module bar () (import scheme chicken.type) (define-type footype string) (the footype "bar")) ;; Record type tags with module namespaces should not warn (#1513) (module foo * (import (scheme) (chicken base) (chicken type)) (: make-foo (string --> (struct foo))) (define-record foo bar)) (: deprecated-procedure deprecated) (define (deprecated-procedure x) (+ x x)) (deprecated-procedure 1) (: another-deprecated-procedure (deprecated replacement-procedure)) (define (another-deprecated-procedure x) (+ x x)) (another-deprecated-procedure 2) ;; Needed to use "over-all-instantiations" or matching "vector"/"list" type ;; with "vector-of"/"list-of" type (reported by megane) (: apply1 (forall (a b) (procedure ((procedure (#!rest a) b) (list-of a)) b))) (define (apply1 f args) (apply f args)) (apply1 + (list 'a 2 3)) ; <- no type warning (#948) (apply1 + (cons 'a (cons 2 (cons 3 '())))) ; <- same here (#952) ;; multiple-value return syntax (: mv (-> . *)) (: mv (procedure () . *)) ;; procedures from the type environment should still enforce, etc. (let ((x (the (or fixnum string) _)) (f (the (forall (a) (a -> (-> a))) (lambda (a) (lambda () a))))) (((f +)) x) ; (or fixnum string) -> fixnum (fixnum? x)) ; should report ;; typeset reduction (: char-or-string? (* -> boolean : (or char string))) (let ((x _)) (if (char-or-string? x) (symbol? x) ; should report with x = (or char string) (string? x))) ; should report with x = (not (or char string)) (let ((x (the fixnum _))) (if (char-or-string? x) (symbol? x) ; should report with x = (or char string) (string? x))) ; should report with x = fixnum (let ((x (the (or char symbol) _))) (if (char-or-string? x) (symbol? x) ; should report with x = char (string? x))) ; should report with x = symbol (let ((x (the (or char symbol string) _))) (if (char-or-string? x) (symbol? x) ; should report with x = (or char string) (string? x))) ; should report with x = symbol ;; list- and pair-type argument matching (let ((f (the (pair -> *) _))) (f (list))) ; warning (let ((f (the (pair -> *) _))) (f (make-list x))) ; no warning (let ((f (the (null -> *) _))) (f (list 1))) ; warning (let ((f (the (null -> *) _))) (f (make-list x))) ; no warning (let ((f (the (list -> *) _))) (f (cons 1 2))) ; warning (let ((f (the (list -> *) _))) (f (cons 1 x))) ; no warning ;; Indexing into vectors or lists of known size. (let ((v1 (vector 'a 'b 'c))) (define (vector-ref-warn1) (vector-ref v1 -1)) ;; After the first expression, v1's type is smashed to (vector * * *)! (define (vector-ref-warn2) (vector-ref v1 3)) (define (vector-ref-warn3) (vector-ref v1 4)) (define (vector-ref-nowarn1) (vector-ref v1 0)) (define (vector-ref-nowarn2) (vector-ref v1 2)) (define (vector-ref-standard-warn1) (vector-ref v1 'bad)) (define (vector-set!-warn1) (vector-set! v1 -1 'whatever)) (define (vector-set!-warn2) (vector-set! v1 3 'whatever)) (define (vector-set!-warn3) (vector-set! v1 4 'whatever)) (define (vector-set!-nowarn1) (vector-set! v1 0 'whatever)) (define (vector-set!-nowarn2) (vector-set! v1 2 'whatever)) (define (vector-set!-standard-warn1) (vector-set! v1 'bad 'whatever))) ;; The specific list type will be smashed to just "(or pair null)" ;; after the first operation. This is why the let is repeated; ;; otherwise we won't get the warnings for subsequent references. (let ((l1 (list 'a 'b 'c))) (define (list-ref-warn1) (list-ref l1 -1))) ;; This warns regardless of not knowing the length of the list (let ((l2 (cons 'a (cons 'b (cons 'c (eval '(list))))))) (define (list-ref-warn2) (list-ref l2 -1))) ;; Not knowing the length of a "list-of" is not an issue here (let ((l3 (the (list-of symbol) '(x y z)))) (define (list-ref-warn3) (list-ref l3 -1))) (let ((l1 (list 'a 'b 'c))) (define (list-ref-warn4) (list-ref l1 3))) ;; This can't warn: it strictly doesn't know the length of the list. ;; The eval could return a list of length >= 1! #;(let ((l2 (cons 'a (cons 'b (cons 'c (eval '(list))))))) (define (list-ref-warn5) (list-ref l2 3))) (let ((l1 (list 'a 'b 'c))) (define (list-ref-warn5) (list-ref l1 4))) ;; Same as above #;(let ((l2 (cons 'a (cons 'b (cons 'c (eval '(list))))))) (define (list-ref-warn6) (list-ref l2 4))) ;; We add the second check to ensure that we don't give false warnings ;; for smashed types, because we don't know the original size. (let ((l1 (list 'a 'b 'c))) (define (list-ref-nowarn1) (list-ref l1 0)) (define (list-ref-nowarn2) (list-ref l1 0))) (let ((l2 (cons 'a (cons 'b (cons 'c (eval '(list))))))) (define (list-ref-nowarn3) (list-ref l2 0)) (define (list-ref-nowarn4) (list-ref l2 0))) (let ((l1 (list 'a 'b 'c))) (define (list-ref-nowarn5) (list-ref l1 2)) (define (list-ref-nowarn6) (list-ref l1 2))) (let ((l2 (cons 'a (cons 'b (cons 'c (eval '(list))))))) (define (list-ref-nowarn7) (list-ref l2 2)) (define (list-ref-nowarn8) (list-ref l2 2))) ;; Verify that we don't give bogus warnings, like mentioned above. (let ((l2 (cons 'a (cons 'b (cons 'c (eval '(list))))))) (define (list-ref-nowarn9) (list-ref l2 5))) ;; We don't know the length of a "list-of", so we can't warn (let ((l3 (the (list-of symbol) '(x y z)))) (define (list-ref-nowarn10) (list-ref l3 100))) ;; The second check here should still give a warning, this has ;; nothing to do with component smashing. (let ((l1 (list 'a 'b 'c))) (define (list-ref-standard-warn1) (list-ref l1 'bad)) (define (list-ref-standard-warn2) (list-ref l1 'bad))) (let ((l2 (cons 'a (cons 'b (cons 'c (eval '(list))))))) (define (list-ref-standard-warn3) (list-ref l2 'bad)) (define (list-ref-standard-warn4) (list-ref l2 'bad))) ;; Test type preservation of list-ref (let ((l1 (list 'a 'b 'c))) (define (list-ref-type-warn1) (add1 (list-ref l1 1)))) (let ((l2 (cons 'a (cons 'b (cons 'c (eval '(list))))))) (define (list-ref-type-warn2) (add1 (list-ref l2 1)))) ;; This is handled by the list-ref entry in types.db, *not* the ;; special-cased code. (let ((l3 (the (list-of symbol) '(a b c)))) (define (list-ref-type-warn3) (add1 (list-ref l3 1)))) ;; Sanity check (let ((l1 (list 1 2 3))) (define (list-ref-type-nowarn1) (add1 (list-ref l1 1)))) (let ((l2 (cons 1 (cons 2 (cons 3 (eval '(list))))))) (define (list-ref-type-nowarn2) (add1 (list-ref l2 1)))) (let ((l3 (the (list-of fixnum) '(1 2 3)))) (define (list-ref-type-nowarn3) (add1 (list-ref l3 1)))) ;; Test type preservation of append (TODO: decouple from list-ref) (let ((l1 (append (list 'x 'y) (list 1 2 (eval '(list)))))) (define (append-result-type-warn1) (add1 (list-ref l1 1)))) ;; This currently doesn't warn because pair types aren't joined yet #;(let ((l2 (append (cons 'x (cons 'y (eval '(list)))) (list 'x 'y)))) (define (append-result-type-warn2) (add1 (list-ref l2 1)))) (let ((l3 (append (the (list-of symbol) '(x y)) '(a b)))) (define (append-result-type-warn2) (add1 (list-ref l3 3)))) (let ((l1 (append (list 1 2) (list 'x 'y (eval '(list)))))) (define (append-result-type-nowarn1) (add1 (list-ref l1 1)))) (let ((l2 (append (cons 1 (cons 2 (eval '(list)))) (list 'x)))) (define (append-result-type-nowarn2) (add1 (list-ref l2 1)))) (let ((l3 (append (the (list-of fixnum) '(1 2)) '(x y)))) (define (append-result-type-nowarn3) (add1 (list-ref l3 1)))) ;; Check the trail is restored from the combined typeenv (compiler-typecase (list 2 'a) ((forall (x) (list x x)) 1) (else #t)) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/c-id-valid.scm������������������������������������������������������������������0000644�0001750�0001750�00000000361�13370655400�016511� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import (chicken compiler support)) (define +invalid-ids+ '("-foo" "foo?" "7foo" "foo-bar" "ba!r" "foo$")) (for-each (lambda (x) (assert (not (valid-c-identifier? x)) "invalid C identifier" x)) +invalid-ids+) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/breadth-first.scm���������������������������������������������������������������0000644�0001750�0001750�00000000620�13370655400�017334� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; breadth-first.scm (include "QUEUE") (functor (breadth-first (Q QUEUE)) (search) (import scheme (chicken base) Q) (define (enqlist q xs) (foldl (lambda (q x) (enqueue q x)) q xs)) (define (search next x) (define (bfs q) (if (empty? q) '() (let ((y (head q))) (cons y (lambda () (bfs (enqlist (dequeue q) (next y)))))))) (bfs (enqueue empty-queue x))) ) ����������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/records-and-setters-test.scm����������������������������������������������������0000644�0001750�0001750�00000001235�13213463160�021442� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; records-and-setters-test.scm ;;; define-record-type with setters (define-record-type foo (make-foo x y z t) foo? (x get-x) (y get-y set-y) (z get-z (setter get-z)) (t get-t (setter make-foo))) (let ((f (make-foo 1 2 3 4))) (assert (foo? f)) (assert (= 1 (get-x f))) (assert (= 2 (get-y f))) (set-y f 99) (assert (= 99 (get-y f))) (set! (get-z f) 100) (assert (= 100 (get-z f))) (set! (make-foo f) 1000) (assert (= 1000 (get-t f)))) (define-record bar a (setter b)) (let ((b (make-bar 1 2))) (assert (bar? b)) (bar-a-set! b 3) (assert (= 3 (bar-a b))) (setter bar-b) (set! (bar-b b) 4) (assert (= (bar-b b) 4))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/csc-tests.scm�������������������������������������������������������������������0000644�0001750�0001750�00000001315�13502227553�016511� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; csc interface tests (import (chicken file) (chicken pathname) (chicken platform) (chicken process) (chicken process-context) (chicken string)) (include "programs-path.scm") (define (realpath x) (normalize-pathname (make-pathname (current-directory) x))) (define (run x . args) (system* (string-intersperse (cons (realpath x) args)))) (define (csc . args) (apply run csc-path "-v" "-I.." "-compiler" (realpath chicken-path) "-libdir" ".." args)) (csc "null.scm" "-t") (assert (file-exists? "null.c")) (define obj-file (if (eq? (software-version) 'mingw32) "null.obj" "null.o")) (csc "null.c" "-c") (assert (file-exists? obj-file)) (csc obj-file) (run "null") �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reader-tests.scm����������������������������������������������������������������0000644�0001750�0001750�00000001353�13370655400�017204� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; reader-tests.scm (import (only chicken.io read-line read-string) (only chicken.port with-input-from-string with-output-to-string) (only chicken.read-syntax set-read-syntax! set-sharp-read-syntax!)) (set-sharp-read-syntax! #\& (lambda (p) (read p) (values))) (set-sharp-read-syntax! #\^ (lambda (p) (read p))) (set-read-syntax! #\! (lambda (p) (read-line p) (values))) (define output (with-output-to-string (lambda () (print "hi") ! this is fortran (print "foo") #&(print "amp-comment") (print "baz") #^(print "bye")))) !! output: !! hi !! foo !! baz !! bye (assert (string=? output "hi\nfoo\nbaz\nbye\n")) (assert (string=? " ." (with-input-from-string "\x20\u0020\U00000020\056" read-string))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/compiler-tests.scm��������������������������������������������������������������0000644�0001750�0001750�00000037021�13502227553�017556� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; compiler-tests.scm (import (chicken bitwise) (chicken flonum) (chicken foreign) (chicken condition) (srfi 4)) (import-for-syntax (chicken syntax) (chicken string)) ;; test dropping of previous toplevel assignments (define (foo) (define (bar) 1) (bar 2)) ; will trigger error later (define bar 1) (define (baz) 2) (define (foo) 'ok) (assert (eq? 'ok (foo))) (assert (= 1 (foreign-type-size "char"))) (let* ((words->bytes (foreign-lambda int "C_wordstobytes" int)) (bytes-in-a-word (words->bytes 1))) (assert (= bytes-in-a-word (foreign-type-size "C_word")))) ;; test hiding of unexported toplevel variables (module foo (bar) (import scheme chicken.base) (declare (hide bar)) (define (bar x) (+ x 1))) (assert (not (##sys#symbol-has-toplevel-binding? 'foo#bar))) ;;; rev. 12104 (reported by Jörg Wittenberger) ; ; - canonicalization of assignment to location didn't walk expansion recursively (define test-location (let-location ((again bool #f)) (lambda () ((foreign-lambda* int (((c-pointer bool) again)) "*again=1; return(1);") (location again)) again))) (assert (test-location)) ;;; rev. 12188 (reported by Jörg Wittenberger) ; ; - generated init-assignment refers to alias, but alias isn't seen later) (module x (bar) (import scheme chicken.base chicken.foreign) (define (bar n) (let-location ((off integer 0)) (lambda () ((foreign-lambda* void (((c-pointer integer) i)) "(*i)++;") (location off)) off))) ) (import x) (assert (= 1 ((bar 42)))) ;; Test custom foreign type conversions (module y (my-add1) (import scheme (chicken base) (chicken foreign)) (define-foreign-type my-int integer add1 sub1) (define my-add1 (foreign-lambda* my-int ((my-int x)) "C_return(x+1);"))) (import y) (assert (= 2 (my-add1 1))) ;;; rev. 14574 (reported by Peter Bex) ; ; - type specifiers in foreign-lambda in macros are incorrectly renamed ; - variable names and type specifiers in foreign-lambda* and ; foreign-primitive in macros are incorrectly renamed (let-syntax ((strlen-macro (syntax-rules () ((strlen-macro arg) (print ((foreign-lambda int strlen c-string) arg))))) (strlen-macro* (syntax-rules () ((strlen-macro* arg) (print ((foreign-lambda* int ((c-string str)) "C_return(strlen(str));") arg))))) (strlen-safe-macro (syntax-rules () ((strlen-safe-macro arg) (print ((foreign-safe-lambda int strlen c-string) arg))))) (strlen-safe-macro* (syntax-rules () ((strlen-safe-macro* arg) (print ((foreign-safe-lambda* int ((c-string str)) "C_return(strlen(str));") arg))))) (strlen-primitive-macro (syntax-rules () ((strlen-primitive-macro* arg) (print ((foreign-primitive int ((c-string str)) "C_return(strlen(str));") arg)))))) (strlen-macro "hello, world") (strlen-macro* "hello, world") (strlen-safe-macro "hello, world") (strlen-safe-macro* "hello, world") (strlen-primitive-macro "hello, world")) ;; Type specifiers and variable names in foreign-lambda in macros ;; are incorrectly renamed in modules, too. (foreign-declare "void foo(void *abc) { printf(\"hi\\n\"); }") ;; This is silly but at least it ensures we can represent enum values (foreign-declare "enum intlimits {min=INT_MIN, zero=0, max=INT_MAX};") (module foo () (import scheme chicken.base chicken.foreign) (let-syntax ((fl (syntax-rules () ((_) (foreign-lambda void foo (c-pointer void))))) (fl* (syntax-rules () ((_) (foreign-lambda* void (((c-pointer void) a)) "C_return(a);")))) (fp (syntax-rules () ((_) (foreign-primitive void (((c-pointer void) a)) "C_return(a);"))))) (fl) (fl*) (fp))) ;; "const" qualifier should have no visible effect in Scheme (define-syntax generate-external (syntax-rules () ((_) (define-external (print_foo ((const c-string) foo)) void (assert (string? foo)) (print foo))))) (generate-external) ((foreign-safe-lambda* void () "print_foo(\"bar\");")) ;; Unused arguments in foreign callback wrappers are not optimized away (#584) (module bla (foo) (import (prefix scheme s:) (only chicken.base assert) chicken.foreign) (define-external (blabla (int a) (c-string b) (int c) (int d) (c-string e) (int f)) int f) (s:define (foo) ((foreign-safe-lambda* int () "C_return(blabla(1, \"2\", 3, 4, \"5\", 6));"))) (assert (location blabla)) ) (import bla) (assert (= (foo) 6)) ;;; compiler-syntax for map/for-each must be careful when the ; operator may have side-effects (currently only lambda exprs and symbols ; are allowed) (let ((x #f)) (define (f1 x) (print* x " ")) (map f1 '(1 2 3)) (newline) (map (begin (assert (not x)) (set! x #t) f1) '(1 2 3)) (map (lambda (x) (print* ":" x)) '(1 2 3)) (newline)) (let ((x #f)) (define (f1 x) (print* x " ")) (let-syntax ((f1 (syntax-rules () ((_ y) (begin (assert (not x)) (set! x #t) f1))))) (for-each f1 '(1 2 3)))) (newline) ;; Test safety of ##sys#make-c-string (handle-exceptions exn (print "Good, unrepresentable C strings cause errors") (print "BUG! We got, without error, length = " ((foreign-lambda* int ((c-string str)) "C_return(strlen(str));") "foo\x00bar"))) ;; failed compile-time argument count check (reported by Alan Post) ;; cbb27fe380ff8e45cdf04d812e1ec649bf45ca47 (define (foo) (define (bar #!key a) (define (baz) (bar a: #t)) baz) bar) ;; global-propagation must also invalidate alias to global if global ;; itself is assigned (reported by Sven Hartrumpf) (define gp-test-global 0) (define (gp-test) (let ((a gp-test-global) (b gp-test-global)) (set! gp-test-global 1) (assert (zero? a)) (assert (zero? b)))) (gp-test) ;; Optimizer would "lift" inner-bar out of its let and replace ;; outer-bar with it, even though it wasn't visible yet. Caused by ;; broken cps-conversion (underlying problem for #1068). (assert (equal? 1 (let ((outer-bar (##core#undefined))) (let ((inner-bar (let ((tmp (lambda (x) (if x '1 (outer-bar '#t))))) tmp))) (set! outer-bar inner-bar) (outer-bar #f))))) ;; Slightly modified version which broke after fixing the above due ;; to replacement optimization getting triggered. This replacement ;; caused outer-bar to get replaced by inner-bar, even within itself, ;; thereby causing an undefined variable reference. (assert (equal? 1 (let ((outer-bar (##core#undefined))) (let ((inner-bar (lambda (x) (if x '1 (outer-bar outer-bar))))) (set! outer-bar inner-bar) (outer-bar '#f))))) ;; Found by Claude Marinier: Huge literals with a length which need ;; more than 3 bytes to encode would get silently truncated. We'll ;; prevent constant-folding if it would lead to such large literals. (let* ((bignum (expt 2 70000000)) ;; This prevents complete evaluation at compile-time (unknown-bignum ((foreign-lambda* scheme-object ((scheme-object n)) "C_return(n);") bignum))) (assert (equal? 70000001 (integer-length unknown-bignum)))) ;; Test that encode-literal/decode-literal use the proper functions ;; to decode number literals. (assert (equal? '(+inf.0 -inf.0) (list (fp/ 1.0 0.0) (fp/ -1.0 0.0)))) ;; Test that encode-literal doesn't drop digits for extreme flonum values. ;; This number is 2^971 * (2^53 - 1), and is the positive "all ones" number for ;; 64-bit flonums with precision 53 and significand/mantissa 10. ;; If we want to support 32-bit flonums or flonums with different precision ;; or significand, we need a cond-expand here or something. ;; Technically, even larger decimal numbers can be represented by flonums. ;; This number can correctly be compared exactly. (assert (= (* (- (expt 2 flonum-precision) 1) (expt 2 (- flonum-maximum-exponent flonum-precision))) 179769313486231570814527423731704356798070567525844996598917476803157260780028538760589558632766878171540458953514382464234321326889464182768467546703537516986049910576551282076245490090389328944075868508455133942304583236903222948165808559332123348274797826204144723168738177180919299881250404026184124858368.0 (string->number "179769313486231570814527423731704356798070567525844996598917476803157260780028538760589558632766878171540458953514382464234321326889464182768467546703537516986049910576551282076245490090389328944075868508455133942304583236903222948165808559332123348274797826204144723168738177180919299881250404026184124858368.0"))) ;; #955: unsigned-integer64 arg returned magnitude instead of Scheme object. (assert (eqv? #xAB54A98CEB1F0AD2 ((foreign-lambda* unsigned-integer64 ((unsigned-integer64 x)) "C_return(x);") #xAB54A98CEB1F0AD2))) ;; Test the maximum and minimum values of the FFI's integer types (define-syntax test-ffi-type-limits (syntax-rules (signed unsigned) ((_ ?type-name unsigned ?bits) (let ((limit (arithmetic-shift 1 ?bits))) (print "Testing unsigned FFI type \"" '?type-name "\" (" ?bits " bits):") (print "Can hold maximum value " (sub1 limit) "...") (assert (eqv? (sub1 limit) ((foreign-lambda* ?type-name ((?type-name x)) "C_return(x);") (sub1 limit)))) (print "Cannot hold one more than maximum value, " limit "...") (assert (handle-exceptions exn #t (begin ((foreign-lambda* ?type-name ((?type-name x)) "C_return(x);") limit) #f))) (print "Cannot hold -1 (any fixnum negative value)") (assert (handle-exceptions exn #t (begin ((foreign-lambda* ?type-name ((?type-name x)) "C_return(x);") -1) #f))) (print "Cannot hold -2^64 (any bignum negative value < smallest int64)") (assert (handle-exceptions exn #t (begin ((foreign-lambda* ?type-name ((?type-name x)) "C_return(x);") #x-10000000000000000) #f))))) ((_ ?type-name signed ?bits) (let ((limit (arithmetic-shift 1 (sub1 ?bits)))) (print "Testing signed FFI type \"" '?type-name "\" (" ?bits " bits):") (print "Can hold maximum value " (sub1 limit) "...") (assert (eqv? (sub1 limit) ((foreign-lambda* ?type-name ((?type-name x)) "C_return(x);") (sub1 limit)))) (print "Can hold minimum value " (- limit) "...") (assert (eqv? (- limit) ((foreign-lambda* ?type-name ((?type-name x)) "C_return(x);") (- limit)))) (print "Cannot hold one more than maximum value " limit "...") (assert (handle-exceptions exn #t (begin ((foreign-lambda* ?type-name ((?type-name x)) "C_return(x);") limit) #f))) (print "Cannot hold one less than minimum value " (- limit) "...") (assert (handle-exceptions exn #t (begin ((foreign-lambda* ?type-name ((?type-name x)) "C_return(x);") (sub1 (- limit))) #f))))))) (test-ffi-type-limits unsigned-integer32 unsigned 32) (test-ffi-type-limits integer32 signed 32) (test-ffi-type-limits unsigned-integer64 unsigned 64) (test-ffi-type-limits integer64 signed 64) (test-ffi-type-limits unsigned-integer unsigned (foreign-value "sizeof(unsigned int) * CHAR_BIT" int)) (test-ffi-type-limits integer signed (foreign-value "sizeof(int) * CHAR_BIT" int)) (test-ffi-type-limits (enum intlimits) signed (foreign-value "sizeof(enum intlimits) * CHAR_BIT" int)) (test-ffi-type-limits unsigned-long unsigned (foreign-value "sizeof(unsigned long) * CHAR_BIT" int)) (test-ffi-type-limits long signed (foreign-value "sizeof(long) * CHAR_BIT" int)) (test-ffi-type-limits ssize_t signed (foreign-value "sizeof(ssize_t) * CHAR_BIT" int)) (test-ffi-type-limits size_t unsigned (foreign-value "sizeof(size_t) * CHAR_BIT" int)) ;; #1059: foreign vector types use wrong lolevel accessors, causing ;; paranoid DEBUGBUILD assertions to fail. (define-syntax srfi-4-vector-length (er-macro-transformer (lambda (e r c) (let* ((type (symbol->string (strip-syntax (cadr e)))) (base-type (string-translate* type '(("nonnull-" . "")))) (length-procedure-name (string-append base-type "-length"))) `(,(string->symbol length-procedure-name) ,(caddr e)))))) (define-syntax s4v-sum (syntax-rules () ((_ "integer" type arg) ((foreign-lambda* int ((type v) (int len)) "int i, result = 0;" "for (i = 0; i < len; ++i) {" " result += (int)v[i];" "}" "C_return(result);") arg (srfi-4-vector-length type arg))) ((_ "float" type arg) ((foreign-lambda* double ((type v) (int len)) "int i; double result = 0.0;" "for (i = 0; i < len; ++i) {" " result += v[i];" "}" "C_return(result);") arg (srfi-4-vector-length type arg))))) (assert (= 10 (s4v-sum "integer" u8vector '#u8(1 2 3 4)))) (assert (= 10 (s4v-sum "integer" u16vector '#u16(1 2 3 4)))) (assert (= 10 (s4v-sum "integer" u32vector '#u32(1 2 3 4)))) (assert (= 10 (s4v-sum "integer" s64vector '#s64(1 2 3 4)))) (assert (= 10 (s4v-sum "integer" nonnull-u8vector '#u8(1 2 3 4)))) (assert (= 10 (s4v-sum "integer" nonnull-u16vector '#u16(1 2 3 4)))) (assert (= 10 (s4v-sum "integer" nonnull-u32vector '#u32(1 2 3 4)))) (assert (= 10 (s4v-sum "integer" nonnull-u64vector '#u64(1 2 3 4)))) (assert (= -10 (s4v-sum "integer" s8vector '#s8(-1 -2 -3 -4)))) (assert (= -10 (s4v-sum "integer" s16vector '#s16(-1 -2 -3 -4)))) (assert (= -10 (s4v-sum "integer" s32vector '#s32(-1 -2 -3 -4)))) (assert (= -10 (s4v-sum "integer" s64vector '#s64(-1 -2 -3 -4)))) (assert (= -10 (s4v-sum "integer" nonnull-s8vector '#s8(-1 -2 -3 -4)))) (assert (= -10 (s4v-sum "integer" nonnull-s16vector '#s16(-1 -2 -3 -4)))) (assert (= -10 (s4v-sum "integer" nonnull-s32vector '#s32(-1 -2 -3 -4)))) (assert (= -10 (s4v-sum "integer" nonnull-s64vector '#s64(-1 -2 -3 -4)))) (assert (= 12.0 (s4v-sum "float" f32vector '#f32(1.5 2.5 3.5 4.5)))) (assert (= 12.0 (s4v-sum "float" f64vector '#f64(1.5 2.5 3.5 4.5)))) (assert (= 12.0 (s4v-sum "float" nonnull-f32vector '#f32(1.5 2.5 3.5 4.5)))) (assert (= 12.0 (s4v-sum "float" nonnull-f64vector '#f64(1.5 2.5 3.5 4.5)))) ;; Reported by Jörg Wittenberger: in some cases, -profile would ;; generate calls to procedures. This was due to calls to pure ;; procedures not getting replaced with explicitly consed rest ;; list when the procedures themselves were hidden. (module explicitly-consed-rest-args-bug (do-it also-do-it) (import scheme chicken.base chicken.type) (: get-value (* * #!rest * --> *)) (define (get-value x y . rest) (apply x y rest)) (define (do-it arg) (get-value arg 2)) (define (also-do-it arg) (get-value arg 3)) ) ; let-location with const-wrapped type (let-location ((foo (const c-string) "boo")) (assert (equal? foo "boo"))) ; #1424: a foreign lambda with const return type was wrongly rejected (let ((v0 ((foreign-lambda* c-string () "C_return(\"str\");"))) (v1 ((foreign-lambda* (const c-string) () "C_return(\"str\");")))) (assert (equal? v0 v1))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/syntax-tests.scm����������������������������������������������������������������0000644�0001750�0001750�00000104723�13502227553�017276� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; syntax-tests.scm - various macro tests (import-for-syntax chicken.pretty-print) (import chicken.gc chicken.pretty-print chicken.port) (define-syntax t (syntax-rules () ((_ r x) (let ((tmp x)) (if (not (equal? r tmp)) (error "test failed" r tmp 'x) (pp tmp)))))) (define-syntax f (syntax-rules () ((_ x) (let ((got-error #f)) (handle-exceptions ex (set! got-error #t) x) (unless got-error (error "test returned, but should have failed" 'x) ))))) (t 3 3) (f abc) (f (t 3 4)) ;; test syntax-rules (define-syntax test (syntax-rules () ((_ x form) (let ((tmp x)) (if (number? tmp) form (error "not a number" tmp)))))) (t 100 (test 2 100)) ;; Keywords are not symbols; don't attempt to bind them (t 1 (let-syntax ((foo (syntax-rules () ((foo bar: qux) qux)))) (foo bar: 1))) ;; some basic contrived testing (define (fac n) (let-syntax ((m1 (er-macro-transformer (lambda (n r c) (pp `(M1: ,n)) (list (r 'sub1) (cadr n)))))) (define (sub1 . _) ; ref. transp.? (should not be used here) (error "argh.") ) #;(print "fac: " n) (if (test n (zero? n)) 1 (* n (fac (m1 n)))))) (t 3628800 (fac 10)) ;; letrec-syntax (t 34 (letrec-syntax ((foo (syntax-rules () ((_ x) (bar x)))) (bar (syntax-rules () ((_ x) (+ x 1))))) (foo 33)) ) ;; letrec-values (t '(0 1 2 3 (4) (5 6)) (letrec-values ((() (values)) ((a) (values 0)) ((b c) (values 1 2)) ((d . e) (values 3 4)) (f (values 5 6))) (list a b c d e f))) ;; from r5rs: (t 45 (let ((x 5)) (define foo (lambda (y) (bar x y))) (define bar (lambda (a b) (+ (* a b) a))) (foo (+ x 3))) ) ;; an error, according to r5rs - here it treats foo as defining a toplevel binding #;(let-syntax ((foo (syntax-rules () ((foo (proc args ...) body ...) (define proc (lambda (args ...) body ...)))))) (let ((x 3)) (foo (plus x y) (+ x y)) (define foo x) (print (plus foo x)))) (t 'now (let-syntax ((when (syntax-rules () ((when test stmt1 stmt2 ...) (if test (begin stmt1 stmt2 ...)))))) (let ((if #t)) (when if (set! if 'now)) if)) ) (t 'outer (let ((x 'outer)) (let-syntax ((m (syntax-rules () ((m) x)))) (let ((x 'inner)) (m)))) ) (t 7 (letrec-syntax ((my-or (syntax-rules () ((my-or) #f) ((my-or e) e) ((my-or e1 e2 ...) (let ((temp e1)) (if temp temp (my-or e2 ...))))))) (let ((x #f) (y 7) (temp 8) (let odd?) (if even?)) (my-or x (let temp) (if y) y))) ) ;; From Al* Petrofsky's "An Advanced Syntax-Rules Primer for the Mildly Insane" (let ((a 1)) (letrec-syntax ((foo (syntax-rules () ((_ b) (bar a b)))) (bar (syntax-rules () ((_ c d) (cons c (let ((c 3)) (list d c 'c))))))) (let ((a 2)) (t '(1 2 3 a) (foo a))))) ;; ER equivalent (let ((a 1)) (letrec-syntax ((foo (er-macro-transformer (lambda (x r c) `(,(r 'bar) ,(r 'a) ,(cadr x))))) (bar (er-macro-transformer (lambda (x r c) (let ((c (cadr x)) (d (caddr x))) `(,(r 'cons) ,c (,(r 'let) ((,c 3)) (,(r 'list) ,d ,c ',c)))))))) (let ((a 2)) (t '(1 2 3 a) (foo a))))) ;; IR equivalent (let ((a 1)) (letrec-syntax ((foo (ir-macro-transformer (lambda (x i c) `(bar a ,(cadr x))))) (bar (ir-macro-transformer (lambda (x i c) (let ((c (cadr x)) (d (caddr x))) `(cons ,c (let ((,c 3)) (list ,d ,c ',c)))))))) (let ((a 2)) (t '(1 2 3 a) (foo a))))) ;; Strip-syntax on vectors: (let-syntax ((foo (syntax-rules () ((_) '#(b))))) (t '#(b) (foo))) (define-syntax kw (syntax-rules (baz) ((_ baz) "baz") ((_ any) "no baz"))) (t "baz" (kw baz)) (t "no baz" (kw xxx)) (let ((baz 100)) (t "no baz" (kw baz))) ;; Optimisation to rewrite constants with =>, reported by Michele La Monaca (t 2 (cond (1 2))) (f (cond (1 => string-length))) (t #t (cond (1 => odd?))) (t 'ok (let ((=> #f)) (cond (#t => 'ok))) ) (t 1 (let ((=> 1)) (cond (#f 'false) (#t =>)))) (t 3 (let ((=> 1)) (cond (#f 'false) (#t => 2 3)))) (t '(3 4) (let ((foo 3)) (let-syntax ((bar (syntax-rules () ((_ x) (list foo x))))) (let ((foo 4)) (bar foo)))) ) ;;; strip-syntax cuts across multiple levels of syntax ;;; reported by Matthew Flatt (define-syntax c (syntax-rules () [(_) (let ([x 10]) (let-syntax ([z (syntax-rules () [(_) (quote x)])]) (z)))])) (t "x" (symbol->string (c))) (define-syntax c2 (syntax-rules () [(_) (let ([x 10]) (let-syntax ([z (syntax-rules () [(_) (let-syntax ([w (syntax-rules () [(_) (quote x)])]) (w))])]) (z)))])) (t "x" (symbol->string (c2))) ;;; strip-syntax on renamed module identifiers, as well as core identifiers (module foo (bar) (import scheme) (define bar 1)) (import foo) (define-syntax baz (er-macro-transformer (lambda (e r c) `',(strip-syntax (r 'bar))))) (t "bar" (symbol->string (baz bar))) (t "bar" (symbol->string (baz void))) ;; Fully qualified symbols are not mangled - these names are internal ;; and not documented, but shouldn't be messed with by the expander (t "foo#bar" (symbol->string 'foo#bar)) (t "foo#bar" (symbol->string (strip-syntax 'foo#bar))) (t "#!rest" (symbol->string '#!rest)) (t "#!rest" (symbol->string '|#!rest|)) (t "#!rest" (symbol->string (strip-syntax '#!rest))) ;; Read-write invariance of "special" symbols (t '#!rest (with-input-from-string "#!rest" read)) (t '#!rest (with-input-from-string "|#!rest|" read)) (t "#!rest" (with-output-to-string (lambda () (write '#!rest)))) ;; Non-special symbols starting with shebang (f (with-input-from-string "#!foo" read)) (t '|#!foo| (with-input-from-string "|#!foo|" read)) (t "|#!foo|" (with-output-to-string (lambda () (write '|#!foo|)))) ;; Namespaced symbols (t "foo#bar" (with-output-to-string (lambda () (write 'foo#bar)))) (t "##foo#bar" (with-output-to-string (lambda () (write '##foo#bar)))) ;; These used to be treated specially, but now they just trigger an ;; "invalid sharp-sign read syntax" error. (t "|#%foo|" (with-output-to-string (lambda () (write '|#%foo|)))) (f (with-input-from-string "#%foo" read)) ;;; alternative ellipsis test (SRFI-46) (define-syntax foo (syntax-rules ___ () ((_ vals ___) (list '... vals ___)))) (t '(... 1 2 3) (foo 1 2 3) ) (define-syntax defalias (syntax-rules ___ () ((_ new old) (define-syntax new (syntax-rules () ((_ args ...) (old args ...))))))) (defalias inc add1) (t 3 (inc 2)) ;;; Rest patterns after ellipsis (SRFI-46) (define-syntax foo (syntax-rules () ((_ (a ... b) ... (c d)) (list (list (list a ...) ... b ...) c d)) ((_ #(a ... b) ... #(c d) #(e f)) (list (list (vector a ...) ... b ...) c d e f)) ((_ #(a ... b) ... #(c d)) (list (list (vector a ...) ... b ...) c d)))) (t '(() 1 2) (foo (1 2))) (t '(((1) 2) 3 4) (foo (1 2) (3 4))) (t '(((1 2) (4) 3 5) 6 7) (foo (1 2 3) (4 5) (6 7))) (t '(() 1 2) (foo #(1 2))) (t '((#() 1) 2 3) (foo #(1) #(2 3))) (t '((#(1 2) 3) 4 5) (foo #(1 2 3) #(4 5))) (t '((#(1 2) 3) 4 5 6 7) (foo #(1 2 3) #(4 5) #(6 7))) (t '(() 1 2 3 4) (foo #(1 2) #(3 4))) (t '((#(1) 2) 3 4 5 6) (foo #(1 2) #(3 4) #(5 6))) (t '((#(1 2) #(4) 3 5) 6 7 8 9) (foo #(1 2 3) #(4 5) #(6 7) #(8 9))) ;;; Bug discovered during implementation of SRFI-46 rest patterns: (define-syntax foo (syntax-rules () ((_ #((a) ...)) (list a ...)))) (t '(1) (foo #((1)))) ;;; (define-syntax usetmp (syntax-rules () ((_ var) (list var)))) (define-syntax withtmp (syntax-rules () ((_ val exp) (let ((tmp val)) (exp tmp))))) (t '(99) (withtmp 99 usetmp) ) (t 7 (letrec-syntax ((my-or (syntax-rules () ((my-or) #f) ((my-or e) e) ((my-or e1 e2 ...) (let ((temp e1)) (if temp temp (my-or e2 ...))))))) (let ((x #f) (y 7) (temp 8) (let odd?) (if even?)) (my-or x (let temp) (if y) y))) ) (define-syntax foo (syntax-rules () ((_ #(a ...)) (list a ...)))) (t '(1 2 3) (foo #(1 2 3)) ) (define-syntax loop (er-macro-transformer (lambda (x r c) (let ((body (cdr x))) `(,(r 'call/cc) (,(r 'lambda) (exit) (,(r 'let) ,(r 'f) () ,@body (,(r 'f))))))))) (let ((n 10)) (loop (print* n " ") (set! n (sub1 n)) (when (zero? n) (exit #f))) (newline)) (define-syntax while0 (syntax-rules () ((_ t b ...) (loop (if (not t) (exit #f)) b ...)))) (f (while0 #f (print "no."))) (define-syntax while (er-macro-transformer (lambda (x r c) `(,(r 'loop) (,(r 'if) (,(r 'not) ,(cadr x)) (exit #f)) ,@(cddr x))))) (let ((n 10)) (while (not (zero? n)) (print* n " ") (set! n (- n 1)) ) (newline)) ;;; found by Jim Ursetto (let ((lambda 0)) (define (foo) 1) (foo)) ;;; define-macro implementation (only usable in a module-free environment) (define-syntax define-macro (syntax-rules () ((_ (name . llist) body ...) (define-syntax name (er-macro-transformer (lambda (x r c) (apply (lambda llist body ...) (strip-syntax (cdr x))))))))) (define-macro (loop . body) (let ((loop (gensym))) `(call/cc (lambda (exit) (let ,loop () ,@body (,loop)))))) (let ((i 1)) (loop (when (> i 10) (exit #f)) (print* i " ") (set! i (add1 i)))) (newline) ;;;; exported macro would override original name (fixed in rev. 13351) (module xfoo (xbaz xbar) (import scheme) (define-syntax xbar (syntax-rules () ((_ 1) (xbaz)) ((_) 'xbar))) (define-syntax xbaz (syntax-rules () ((_ 1) (xbar)) ((_) 'xbazz)))) (import xfoo) (assert (eq? 'xbar (xbaz 1))) (assert (eq? 'xbazz (xbar 1))) (assert (eq? 'xbar (xbar))) ;;;; ellipsis pattern element wasn't matched - reported by Jim Ursetto (fixed rev. 13582) (define-syntax foo (syntax-rules () ((_ (a b) ...) (list '(a b) ...)) ((_ a ...) (list '(a) ...)))) (assert (equal? (foo (1 2) (3 4) (5 6)) '((1 2) (3 4) (5 6)))) (assert (equal? (foo (1 2) (3) (5 6)) '(((1 2)) ((3)) ((5 6))))) ; failed (assert (equal? (foo 1) '((1)))) ;;; incorrect lookup for keyword variables in DSSSL llists (module broken-keyword-var () (import scheme (chicken base)) ((lambda (#!key string) (assert (not string))))) ; refered to R5RS `string' ;;; Missing check for keyword and optional variable types in DSSSL llists (f (eval '(lambda (foo #!key (0 1)) x))) (f (eval '(lambda (foo #!optional (0 1)) x))) ;;; compiler didn't resolve expansion into local variable ;;; (reported by Alex Shinn, #15) (module unresolve-local (foo) (import scheme) (define (foo) (let ((qux 3)) (let-syntax ((bar (syntax-rules () ((bar) qux)))) (bar)))) (display (foo)) (newline) ) ;;; incorrect expansion when assigning to something marked '##core#primitive (rev. 14613) (define x 99) (module primitive-assign () (import scheme (chicken base)) (let ((x 100)) (set! x 20) (assert (= x 20))) (set! setter 123)) (assert (= x 99)) (assert (= 123 setter)) ;;; prefixed import from `chicken' module with indirect reference to imported syntax ;;; (reported by Jack Trades) (module prefixed-self-reference1 (a b c) (import scheme (prefix chicken.base c:)) (c:define-values (a b c) (values 1 2 3)) ) (module prefixed-self-reference2 () (import scheme (prefix (chicken base) c:) (prefix (chicken condition) c:)) (c:define-values (a b c) (values 1 2 3)) (c:print "ok") (c:condition-case (c:abort "ugh") (ex () (c:print "caught")))) (module prefixed-self-reference3 (a) ;; TODO: Switch this around when plain "chicken" has been removed (import (prefix scheme s.) (prefix (chicken condition) c.)) (s.define (a x y) (c.condition-case (s.+ x y) ((exn) "not numbers"))) ) (module prefixed-self-reference4 (a) (import (prefix scheme s.)) (s.define (a x y) (s.and x y))) ;;; canonicalization of body captures 'begin (reported by Abdulaziz Ghuloum) (let ((begin (lambda (x y) (bomb)))) 1 2) ;;; redefinition of defining forms (module m0001 (foo bar) (import (prefix scheme s:)) (s:define-syntax foo (syntax-rules () ((_ x) (s:list x)))) (s:define bar 99)) (module m0002 () (import scheme m0001 chicken.pretty-print) (pp (foo bar))) ;;; renaming of arbitrary structures (module m1 (s1 s2) (import scheme) (define-syntax s1 (syntax-rules () ((_ x) (list x)))) (define-syntax s2 (er-macro-transformer (lambda (x r c) (r `(vector (s1 ,(cadr x))))))) ) ; without renaming the local version of `s1' ; below will be captured (import m1) (let-syntax ((s1 (syntax-rules () ((_ x) x)))) (assert (equal? '#((99)) (s2 99)))) ;; IR macros (define-syntax loop2 (ir-macro-transformer (lambda (x i c) (let ((body (cdr x))) `(call/cc (lambda (,(i 'exit)) (let f () ,@body (f)))))))) (let ((n 10)) (loop2 (print* n " ") (set! n (sub1 n)) (when (zero? n) (exit #f))) (newline)) (define-syntax while20 (syntax-rules () ((_ t b ...) (loop2 (if (not t) (exit #f)) b ...)))) (f (while20 #f (print "no."))) (define-syntax while2 (ir-macro-transformer (lambda (x i c) `(loop (if (not ,(cadr x)) (,(i 'exit) #f)) ,@(cddr x))))) (let ((n 10)) (while2 (not (zero? n)) (print* n " ") (set! n (- n 1)) ) (newline)) (module m2 (s3 s4) (import scheme) (define-syntax s3 (syntax-rules () ((_ x) (list x)))) (define-syntax s4 (ir-macro-transformer (lambda (x r c) `(vector (s3 ,(cadr x)))))) ) ; without implicit renaming the local version ; of `s3' below would be captured (import m2) (let-syntax ((s3 (syntax-rules () ((_ x) x)))) (t '#((99)) (s4 99))) (let ((vector list)) (t '#((one)) (s4 'one))) (define-syntax nest-me (ir-macro-transformer (lambda (x i c) `(let ((,(i 'captured) 1)) ,@(cdr x))))) (t '(1 #(1 #(1))) (nest-me (list captured (let ((captured 2) (let 'not-captured) (list vector)) (nest-me (list captured (nest-me (list captured)))))))) (define-syntax cond-test (ir-macro-transformer (lambda (x i c) (let lp ((exprs (cdr x))) (cond ((null? exprs) '(void)) ((c (caar exprs) 'else) `(begin ,@(cdar exprs))) ((c (cadar exprs) '=>) `(let ((tmp ,(caar exprs))) (if tmp (,(caddar exprs) tmp) ,(lp (cdr exprs))))) ((c (cadar exprs) (i '==>)) ;; ==> is an Unhygienic variant of => `(let ((tmp ,(caar exprs))) (if tmp (,(caddar exprs) tmp) ,(lp (cdr exprs))))) (else `(if ,(caar exprs) (begin ,@(cdar exprs)) ,(lp (cdr exprs))))))))) (t 'yep (cond-test (#f 'false) (else 'yep))) (t 1 (cond-test (#f 'false) (1 => (lambda (x) x)) (else 'yep))) (let ((=> #f)) (t 'a-procedure (cond-test (#f 'false) (1 => 'a-procedure) (else 'yep)))) (let ((else #f)) (t (void) (cond-test (#f 'false) (else 'nope)))) (t 1 (cond-test (#f 'false) (1 ==> (lambda (x) x)) (else 'yep))) (let ((==> #f)) (t 1 (cond-test (#f 'false) (1 ==> (lambda (x) x)) (else 'yep)))) ;; Undefined value (but no compiler error) on empty `else' clauses (t (void) (cond (else))) (t (void) (case 1 (else))) ;; Literal quotation of a symbol, injected or not, should always result in that symbol (module ir-se-test (run) (import scheme chicken.base) (define-syntax run (ir-macro-transformer (lambda (e i c) `(quote ,(i 'void)))))) (import ir-se-test) (t 'void (run)) ;;; local definitions (define-syntax s2 (syntax-rules () ((_) 1))) (define (f1) 3) (define-values (v1 v2) (values 9 10)) (define-values (v3 . v4) (values 11 12)) (define-values v56 (values 13)) (let () (define-syntax s2 (syntax-rules () ((_) 2))) 42 (define-values (v1 v2) (values 1 2)) (define-values (v3 . v4) (values 3 4)) (define-values v56 (values 5 6)) (define v56-again v56) ; ordering of assignments was broken #1274 43 (define (f1) 4) (define ((f2)) 4) (assert (= 4 (f1))) (assert (= 4 ((f2)))) (assert (= 2 (s2))) (assert (= 1 v1)) (assert (= 2 v2)) (assert (= 3 v3)) (assert (equal? (list 4) v4)) (assert (equal? (list 5 6) v56)) (assert (equal? (list 5 6) v56-again))) (assert (= 1 (s2))) (assert (= 3 (f1))) (assert (= 9 v1)) (assert (= 10 v2)) (assert (= 11 v3)) (assert (equal? (list 12) v4)) (assert (equal? (list 13) v56)) ;;; redefining definition forms (disabled, since we can not catch this error easily) #| (module m0a () (import chicken.module) (reexport (only scheme define))) (module m0b () (import chicken.module) (reexport (only scheme define-syntax))) (module m1 () (import (prefix scheme s:) (prefix m0b m:)) ;(s:define m:define 1) (s:define-syntax s:define-syntax (syntax-rules ())) ) |# ;;; Definitions of non-identifiers (f (eval '(define foo: 1))) (f (eval '(define-syntax foo: (syntax-rules () ((_) 1))))) (f (eval '(let foo: () 1))) (f (eval '(let ((foo: 1)) 1))) ;;; Definitions in expression contexts are rejected (#1309) (f (eval '(+ 1 2 (begin (define x 3) x) 4))) (f (eval '(+ 1 2 (begin (define-values (x y) (values 3 4)) x) 4))) (f (eval '(display (define x 1)))) ;; Some tests for nested but valid definition expressions: (t 2 (eval '(begin (define x 1) 2))) (t 2 (eval '(module _ () (import scheme) (define x 1) 2))) (t 1 (eval '(let () (define-record-type foo (make-foo bar) foo? (bar foo-bar)) (foo-bar (make-foo 1))))) ;; Nested begins inside definitions were not treated correctly (t 3 (eval '(let () (begin 1 (begin 2 (define internal-def 3) internal-def))))) ;; Macros that expand to "define" should not cause a letrec barrier (t 1 (eval '(let-syntax ((my-define (syntax-rules () ((_ var val) (define var val))))) (let () (define (run-it) foo) (my-define foo 1) (run-it))))) ;; Begin should not cause a letrec barrier (t 1 (eval '(let () (define (run-it) foo) (begin (define foo 1) (run-it))))) (f (eval '(let () internal-def))) ;;; renaming of keyword argument (#277) (define-syntax foo1 (syntax-rules () ((_ procname) (define (procname #!key (who "world")) (string-append "hello, " who))))) (foo1 bar) (assert (string=? "hello, XXX" (bar who: "XXX"))) ;;; DSSSL keyword arguments in various combinations with optional and rest args ;;; reported on IRC by R. Winkler (define (test-optional&rest x y #!optional z #!rest r) (list x y z r)) (assert (equal? '(3 4 5 (6 7)) (test-optional&rest 3 4 5 6 7))) (define (test-optional&key x y #!optional z #!key i (j 1)) (list x y z i: i j: j)) (assert (equal? '(3 4 5 i: 6 j: 7) (test-optional&key 3 4 5 i: 6 j: 7 8))) ;; Unfortunate but correct (missing optional arg) (assert (equal? '(3 4 i: i: #f j: 1) (test-optional&key 3 4 i: 6 j: 7 8))) (define (test-key&rest x y #!rest r #!key i (j 1)) (list x y i: i j: j r)) (assert (equal? '(3 4 i: 5 j: 1 (i: 5 6 7)) (test-key&rest 3 4 i: 5 6 7))) (assert (equal? '(3 4 i: 5 j: 6 (i: 5 j: 6 7 8)) (test-key&rest 3 4 i: 5 j: 6 7 8))) (define (test-optional-key&rest x y #!optional z #!rest r #!key i (j 1)) (list x y z i: i j: j r)) (assert (equal? '(3 4 5 i: 6 j: 7 (i: 6 j: 7 8)) (test-optional-key&rest 3 4 5 i: 6 j: 7 8))) ;;; Miscellaneous DSSSL tests ;; DSSSL annotations may each appear only once (f (eval '(lambda (x #!optional o1 #!optional o2) 'foo))) (f (eval '(lambda (x #!rest r1 #!rest r1) 'foo))) (f (eval '(lambda (x #!key k1 #!key k2) 'foo))) ;; DSSSL annotations must occur in order (optional, rest, key) (f (eval '(lambda (x #!rest r1 #!optional o1) 'foo))) (f (eval '(lambda (x #!key k1 #!optional o1) 'foo))) (f (eval '(lambda (x #!key r1 #!rest k1) 'foo))) ;; #!rest limited to 1 arg (f (eval '(lambda (x #!rest r1 r2) 'foo))) ;; list arguments invalid for required and rest parameters (f (eval '(lambda ((x 0) #!rest r1) 'foo))) (f (eval '(lambda (x #!rest (r1 0)) 'foo))) ;; "optional" expansion should not rely on user imports (hygiene) (t '(1 2) (eval '(module x () (import (only scheme lambda list)) ((lambda (x #!optional (y 0)) (list x y)) 1 2)))) ;; Dotted list syntax can be mixed in (t '(1 2 3 4 (5 6)) ((lambda (x y #!optional o1 o2 . r) (list x y o1 o2 r)) 1 2 3 4 5 6)) ;; More DSSSL hygiene issues, from #806 (module dsssl-extended-lambda-list-hygiene () (import (prefix scheme s/)) (s/define (foo #!optional bar #!rest qux #!key baz) (s/list bar baz qux))) ;;; import not seen, if explicitly exported and renamed: (module rfoo (rbar rbaz) (import scheme) (define (rbaz x) (display x) (newline) ) (define-syntax rbar (syntax-rules () ((_ x) (rbaz x)))) ) (import (prefix rfoo f:)) (f:rbar 1) ;;; SRFI-2 (and-let*) (t 1 (and-let* ((a 1)) a)) (f (eval '(and-let* ((a 1 2 3)) a))) (t 2 (and-let* ((a 1) (b (+ a 1))) b)) (t 3 (and-let* (((or #f #t))) 3)) (f (eval '(and-let* ((or #f #t)) 1))) (t 4 (and-let* ((c 4) ((equal? 4 c))) c)) (t #f (and-let* ((c 4) ((equal? 5 c))) (error "not reached"))) (t #f (and-let* (((= 4 5)) ((error "not reached 1"))) (error "not reached 2"))) (t 'foo (and-let* (((= 4 4)) (a 'foo)) a)) (t #f (and-let* ((a #f) ((error "not reached 1"))) (error "not reached 2"))) (t (and-let* () 1) 1) (t (and-let* () 1 2) 2) (t (and-let* () ) #t) (t (let ((x #f)) (and-let* (x))) #f) (t (let ((x 1)) (and-let* (x))) 1) (t (and-let* ((x #f)) ) #f) (t (and-let* ((x 1)) ) 1) (f (eval '(and-let* ( #f (x 1))) )) (t (and-let* ( (#f) (x 1)) ) #f) (f (eval '(and-let* (2 (x 1))) )) (t (and-let* ( (2) (x 1)) ) 1) (t (and-let* ( (x 1) (2)) ) 2) (t (let ((x #f)) (and-let* (x) x)) #f) (t (let ((x "")) (and-let* (x) x)) "") (t (let ((x "")) (and-let* (x) )) "") (t (let ((x 1)) (and-let* (x) (+ x 1))) 2) (t (let ((x #f)) (and-let* (x) (+ x 1))) #f) (t (let ((x 1)) (and-let* (((positive? x))) (+ x 1))) 2) (t (let ((x 1)) (and-let* (((positive? x))) )) #t) (t (let ((x 0)) (and-let* (((positive? x))) (+ x 1))) #f) (t (let ((x 1)) (and-let* (((positive? x)) (x (+ x 1))) (+ x 1))) 3) ; The uniqueness of the bindings isn't enforced (t (let ((x 1)) (and-let* (((positive? x)) (x (+ x 1)) (x (+ x 1))) (+ x 1))) 4) (t (let ((x 1)) (and-let* (x ((positive? x))) (+ x 1))) 2) (t (let ((x 1)) (and-let* ( ((begin x)) ((positive? x))) (+ x 1))) 2) (t (let ((x 0)) (and-let* (x ((positive? x))) (+ x 1))) #f) (t (let ((x #f)) (and-let* (x ((positive? x))) (+ x 1))) #f) (t (let ((x #f)) (and-let* ( ((begin x)) ((positive? x))) (+ x 1))) #f) (t (let ((x 1)) (and-let* (x (y (- x 1)) ((positive? y))) (/ x y))) #f) (t (let ((x 0)) (and-let* (x (y (- x 1)) ((positive? y))) (/ x y))) #f) (t (let ((x #f)) (and-let* (x (y (- x 1)) ((positive? y))) (/ x y))) #f) (t (let ((x 3)) (and-let* (x (y (- x 1)) ((positive? y))) (/ x y))) 3/2) ;;; SRFI-26 ;; Cut (t '() ((cut list))) (t '() ((cut list <...>))) (t '(1) ((cut list 1))) (t '(1) ((cut list <>) 1)) (t '(1) ((cut list <...>) 1)) (t '(1 2) ((cut list 1 2))) (t '(1 2) ((cut list 1 <>) 2)) (t '(1 2) ((cut list 1 <...>) 2)) (t '(1 2 3 4) ((cut list 1 <...>) 2 3 4)) (t '(1 2 3 4) ((cut list 1 <> 3 <>) 2 4)) (t '(1 2 3 4 5 6) ((cut list 1 <> 3 <...>) 2 4 5 6)) (t '(ok) (let* ((x 'wrong) (y (cut list x))) (set! x 'ok) (y))) (t 2 (let ((a 0)) (map (cut + (begin (set! a (+ a 1)) a) <>) '(1 2)) a)) (f (eval '((cut + <...> 1) 1))) ;; Cute (t '() ((cute list))) (t '() ((cute list <...>))) (t '(1) ((cute list 1))) (t '(1) ((cute list <>) 1)) (t '(1) ((cute list <...>) 1)) (t '(1 2) ((cute list 1 2))) (t '(1 2) ((cute list 1 <>) 2)) (t '(1 2) ((cute list 1 <...>) 2)) (t '(1 2 3 4) ((cute list 1 <...>) 2 3 4)) (t '(1 2 3 4) ((cute list 1 <> 3 <>) 2 4)) (t '(1 2 3 4 5 6) ((cute list 1 <> 3 <...>) 2 4 5 6)) (t 1 (let ((a 0)) (map (cute + (begin (set! a (+ a 1)) a) <>) '(1 2)) a)) (f (eval '((cute + <...> 1) 1))) ;;; (quasi-)quotation (f (eval '(let ((a 1)) (unquote a)))) (t 'unquote (quasiquote unquote)) (f (eval '(quasiquote (a unquote . 1)))) ; "Bad syntax". Also ok: '(a unquote . 1) (t 'a (quasiquote a)) (f (eval '(quasiquote a b))) (f (eval '(quote a b))) (f (eval '(quasiquote))) (f (eval '(quote))) (f (eval '(quasiquote . a))) (f (eval '(quote . a))) (t '(foo . 1) (let ((bar 1)) (quasiquote (foo . (unquote bar))))) (f (eval '(let ((a 1) (b 2)) (quasiquote (unquote a b))))) ; > 1 arg (t '(quasiquote (unquote a)) (quasiquote (quasiquote (unquote a)))) (t '(quasiquote x y) (quasiquote (quasiquote x y))) (t '(unquote-splicing a) (quasiquote (unquote-splicing a))) (t '(1 2) (let ((a (list 2))) (quasiquote (1 (unquote-splicing a))))) (f (eval '(let ((a 1)) ; a is not a list (quasiquote (1 (unquote-splicing a) 2))))) (f (eval '(let ((a (list 1)) (b (list 2))) (quasiquote (1 (unquote-splicing a b)))))) ; > 1 arg ;; level counting (define x (list 1 2)) ;; Testing R5RS-compliance: (t '(quasiquote (unquote (1 2))) (quasiquote (quasiquote (unquote (unquote x))))) (t '(quasiquote (unquote-splicing (1 2))) (quasiquote (quasiquote (unquote-splicing (unquote x))))) (t '(quasiquote (unquote 1 2)) (quasiquote (quasiquote (unquote (unquote-splicing x))))) (t 'x (quasiquote (unquote (quasiquote x)))) (t '(quasiquote (unquote-splicing (quasiquote (unquote x)))) (quasiquote (quasiquote (unquote-splicing (quasiquote (unquote x)))))) (t '(quasiquote (unquote (quasiquote (unquote-splicing x)))) (quasiquote (quasiquote (unquote (quasiquote (unquote-splicing x)))))) (t '(quasiquote (unquote (quasiquote (unquote (1 2))))) (quasiquote (quasiquote (unquote (quasiquote (unquote (unquote x))))))) ;; The following are explicitly left undefined by R5RS. For consistency ;; we define any unquote-(splicing) or quasiquote that occurs in the CAR of ;; a pair to decrease, respectively increase the level count by one. (t '(quasiquote . #(1 (unquote x) 3)) ; cdr is not a pair (quasiquote (quasiquote . #(1 (unquote x) 3)))) (t '(quasiquote #(1 (unquote x) 3)) ; cdr is a list of one (quasiquote (quasiquote #(1 (unquote x) 3)))) (t '(quasiquote a #(1 (unquote x) 3) b) ; cdr is longer (quasiquote (quasiquote a #(1 (unquote x) 3) b))) (t '(quasiquote (unquote . #(1 (1 2) 3))) ; cdr is not a pair (quasiquote (quasiquote (unquote . #(1 (unquote x) 3))))) (t '(quasiquote (unquote #(1 (1 2) 3))) ; cdr is a list of one (quasiquote (quasiquote (unquote #(1 (unquote x) 3))))) (t '(quasiquote (unquote a #(1 (1 2) 3) b)) ; cdr is longer (quasiquote (quasiquote (unquote a #(1 (unquote x) 3) b)))) (t '(quasiquote (unquote-splicing . #(1 (1 2) 3))) ; cdr is not a pair (quasiquote (quasiquote (unquote-splicing . #(1 (unquote x) 3))))) (t '(quasiquote (unquote-splicing #(1 (1 2) 3))) ; cdr is a list of one (quasiquote (quasiquote (unquote-splicing #(1 (unquote x) 3))))) (t '(quasiquote (unquote-splicing a #(1 (1 2) 3) b)) ; cdr is longer (quasiquote (quasiquote (unquote-splicing a #(1 (unquote x) 3) b)))) (t 'quasiquote (quasiquote quasiquote)) (t 'unquote (quasiquote unquote)) (t 'unquote-splicing (quasiquote unquote-splicing)) (t '(x quasiquote) (quasiquote (x quasiquote))) ; (quasiquote (x unquote)) is identical to (quasiquote (x . (unquote))).... ;; It's either this (error) or make all calls to unquote with more or less ;; than one argument resolve to a literal unquote. (f (eval '(quasiquote (x unquote)))) (t '(x unquote-splicing) (quasiquote (x unquote-splicing))) ;; Let's internal defines properly compared to core define procedure when renamed (f (eval '(let-syntax ((foo (syntax-rules () ((_ x) (begin (define x 1)))))) (let () (foo a)) (print "1: " a)))) (t '(a 1) (letrec-syntax ((define (syntax-rules () ((_ x y) (list 'x y)))) (foo (syntax-rules () ((_ x) (define x 1))))) (let () (foo a)))) (t '(1) (let-syntax ((define (syntax-rules () ((_ x) (list x))))) (let () (define 1)))) ;; Local override: not a macro (t '(1) (let ((define list)) (define 1))) ;; Toplevel (no SE) (define-syntax foo (syntax-rules () ((_ x) (begin (define x 1))))) (foo a) (t 1 a) ;; ,@ in tail pos with circular object - found in trav2 benchmark and ;; reported by syn: (let ((a '(1))) (set-cdr! a a) `(1 ,@a)) ;; ##sys#alias-global-hook, when invoked via eval/meta, did resolve identifiers ;; used during evaluation of an expander body in the wrong environment and mapped ;; an identifier to something imported for the runtime environment (module foonumbers (+) (import (except scheme +) (only (chicken base) error)) (define (+ . _) (error "failed."))) (import foonumbers) (define-syntax foo (er-macro-transformer (lambda (x r c) `(print ,(+ (cadr x) 1))))) (foo 3) ;; #578: import with specifier has no effect for internal modules on csi's top-level (import srfi-4) (import (prefix srfi-4 other-)) u8vector other-u8vector (import (prefix scheme other-)) eval other-eval ;; #805: case-lambda is unhygienic (see 4706afb4 and bc5cc698) (module case-lambda-and-ensure-hygiene () (import (prefix (chicken base) c/) (prefix scheme s/)) (c/case-lambda ((a) a))) ;; #816: compiler-syntax should obey hygiene in its rewrites (module foo () (import (prefix (only scheme map lambda list) ~)) (~map (~lambda (y) y) (~list 1))) ;; #852: renamed macros should not be returned as first-class ;; objects in the interpreter (module renamed-macros (renamed-macro-not-firstclassed) (import scheme chicken.base) (define-syntax renamed-macro-not-firstclassed (er-macro-transformer (lambda (e r c) `(,(r 'list) ,(r 'define)))))) (f (eval '(begin (import renamed-macros) (renamed-macro-not-firstclassed)))) ;; #893: implicitly renamed variables shouldn't be resolved to core ;; builtins (#%xyz), but go through a level of indirection, so ;; strip-syntax can still access the original symbol. (module rename-builtins (strip-syntax-on-*) (import scheme chicken.base) (define-syntax strip-syntax-on-* (ir-macro-transformer (lambda (e r c) '(quote *))))) (import rename-builtins) (assert (eq? '* (strip-syntax-on-*))) ;; #1362: Double rename would cause "renamed" var to be restored to ;; the original macro aliased name (resulting in a plain symbol) (let-syntax ((wrapper/should-do-nothing (er-macro-transformer (lambda (e r c) (let* ((%x (r 'x)) (%%x (r %x))) `(let ((,%x 1) (,%%x 2)) ,(cadr e))))))) (print (let ((x 1)) (wrapper/should-do-nothing x)))) ;; Same net effect as above, but more complex by the use of IR macros. (letrec-syntax ((bind-pair (ir-macro-transformer (lambda (e i c) (let* ((b (cadr e)) (exp (caddr e)) (body (cdddr e))) `(let* ((x ,exp) (,(car b) (car x)) (,(cadr b) (cdr x))) ,@body))))) (foo (ir-macro-transformer (lambda (e i c) `(bind-pair (x y) (cons 'foo-car 'foo-cdr) y))))) (assert (eq? 'second (bind-pair (x y) (cons 'first 'second) y))) (assert (eq? 'foo-cdr (foo)))) ;; #944: macro-renamed defines mismatch with the names recorded in module ;; definitions, causing the module to be unresolvable. (module foo () (import scheme) (define-syntax bar (syntax-rules () ((_) (begin (define req 1) (display req) (newline))))) (bar)) ;; The fix for the above bug causes the req to be defined at toplevel, ;; unhygienically. The test below should probably be enabled and this ;; behavior fixed. R5RS seems to allow the current behavior though (?), ;; and some Schemes (at least Gauche) behave the same way. I think it's ;; broken, since it's unhygienic. #;(module foo () (import scheme) (define req 1) (define-syntax bar (syntax-rules () ((_) (begin (define req 2) (display req) (newline))))) (bar) (assert (eq? req 1))) ;; Includes should be spliced into the surrounding body context: (begin-for-syntax (with-output-to-file "x.out" (cut pp '(define x 2)))) (let () (define x 1) (include "x.out") (t 2 x)) (let () (define x 1) (let () (include "x.out")) (t 1 x)) ;; letrec vs. letrec* ;;XXX this fails - the optimizer substitutes "foo" for it's known constant value #;(t (void) (letrec ((foo 1) (bar foo)) bar)) (t (void) (letrec ((foo (gc)) (bar foo)) bar)) ;; Obscure letrec issue #1068 (t 1 (letrec ((foo (lambda () 1)) (bar (let ((tmp (lambda (x) (if x (foo) (bar #t))))) tmp))) (bar #f))) ;; Deeper issue uncovered by fixing the above issue (t 1 (letrec ((bar (lambda (x) (if x 1 (bar bar))))) (bar #f))) ;; Just to verify (this has always worked) (t 1 (letrec* ((foo (lambda () 1)) (bar (let ((tmp (lambda (x) (if x (foo) (bar #t))))) tmp))) (bar #f))) (t 1 (letrec* ((foo 1) (bar foo)) bar)) ;; This would crash in nasty ways (see #1493, reported by megane) (module self-redefinition (foo) (import scheme (chicken base)) (define-syntax foo (ir-macro-transformer (lambda (e i c) (apply (lambda (name) `(begin (define-syntax ,(strip-syntax name) (syntax-rules () ((_ . _) 'new))) 'old)) (cdr e)))))) (import (rename self-redefinition (foo imported-foo))) (import (rename self-redefinition (foo reimported-foo))) (t 'old (imported-foo imported-foo)) (t 'new (imported-foo imported-foo)) ;; Like any normal redefinition, the underlying exported identifier ;; changes, and any other imports are simply aliases. ;;(t 'old (reimported-foo reimported-foo)) (t 'new (reimported-foo reimported-foo)) ���������������������������������������������chicken-5.1.0/tests/scrutiny-2.expected�������������������������������������������������������������0000644�0001750�0001750�00000015005�13502227553�017640� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; numbers replaced with XXX by redact-gensyms.scm ;; prefixes: (tmp g scm:) Note: Predicate is always true In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#pair? p) The predicate will always return true. Procedure `pair?' from module `scheme' is a predicate for: pair The given argument has this type: pair Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#pair? l) The predicate will always return false. Procedure `pair?' from module `scheme' is a predicate for: pair The given argument has this type: null Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#pair? n) The predicate will always return false. Procedure `pair?' from module `scheme' is a predicate for: pair The given argument has this type: null Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#pair? i) The predicate will always return false. Procedure `pair?' from module `scheme' is a predicate for: pair The given argument has this type: fixnum Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#pair? f) The predicate will always return false. Procedure `pair?' from module `scheme' is a predicate for: pair The given argument has this type: float Note: Predicate is always true In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#list? l) The predicate will always return true. Procedure `list?' from module `scheme' is a predicate for: list The given argument has this type: null Note: Predicate is always true In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#list? n) The predicate will always return true. Procedure `list?' from module `scheme' is a predicate for: list The given argument has this type: null Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#list? i) The predicate will always return false. Procedure `list?' from module `scheme' is a predicate for: list The given argument has this type: fixnum Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#list? f) The predicate will always return false. Procedure `list?' from module `scheme' is a predicate for: list The given argument has this type: float Note: Predicate is always true In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#null? n) The predicate will always return true. Procedure `null?' from module `scheme' is a predicate for: null The given argument has this type: null Note: Predicate is always true In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#null? l) The predicate will always return true. Procedure `null?' from module `scheme' is a predicate for: null The given argument has this type: null Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#null? p) The predicate will always return false. Procedure `null?' from module `scheme' is a predicate for: null The given argument has this type: pair Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#null? i) The predicate will always return false. Procedure `null?' from module `scheme' is a predicate for: null The given argument has this type: fixnum Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#null? f) The predicate will always return false. Procedure `null?' from module `scheme' is a predicate for: null The given argument has this type: float Note: Predicate is always true In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (chicken.base#fixnum? i) The predicate will always return true. Procedure `fixnum?' from module `chicken.base' is a predicate for: fixnum The given argument has this type: fixnum Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (chicken.base#fixnum? f) The predicate will always return false. Procedure `fixnum?' from module `chicken.base' is a predicate for: fixnum The given argument has this type: float Note: Predicate is always true In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (chicken.base#flonum? f) The predicate will always return true. Procedure `flonum?' from module `chicken.base' is a predicate for: float The given argument has this type: float Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (chicken.base#flonum? i) The predicate will always return false. Procedure `flonum?' from module `chicken.base' is a predicate for: float The given argument has this type: fixnum Note: Predicate is always true In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#number? i) The predicate will always return true. Procedure `number?' from module `scheme' is a predicate for: number The given argument has this type: fixnum Note: Predicate is always true In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#number? f) The predicate will always return true. Procedure `number?' from module `scheme' is a predicate for: number The given argument has this type: float Note: Predicate is always true In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#number? u) The predicate will always return true. Procedure `number?' from module `scheme' is a predicate for: number The given argument has this type: number Note: Predicate is always false In file `scrutiny-tests-2.scm:XXX', At the toplevel, In procedure call: (scheme#number? n) The predicate will always return false. Procedure `number?' from module `scheme' is a predicate for: number The given argument has this type: null ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/test-irregex.scm����������������������������������������������������������������0000644�0001750�0001750�00000053616�13370655400�017235� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;: test-irregex.scm (import (only chicken.string string-split string-intersperse) chicken.format chicken.io chicken.irregex chicken.port) (include "test.scm") (define (subst-matches matches subst) (define (submatch n) (if (irregex-match-data? matches) (and (irregex-match-valid-index? matches n) (irregex-match-substring matches n)) (list-ref matches n))) (and matches (call-with-output-string (lambda (out) (call-with-input-string subst (lambda (in) (let lp () (let ((c (read-char in))) (cond ((not (eof-object? c)) (case c ((#\&) (display (or (submatch 0) "") out)) ((#\\) (let ((c (read-char in))) (if (char-numeric? c) (let lp ((res (list c))) (if (and (char? (peek-char in)) (char-numeric? (peek-char in))) (lp (cons (read-char in) res)) (display (or (submatch (string->number (list->string (reverse res)))) "") out))) (write-char c out)))) (else (write-char c out))) (lp))))))))))) (define (test-re matcher line) (let ((splt (string-split line "\t" #t))) (if (list? splt) (apply (lambda (pattern input result subst output) (let ((name (sprintf "~A ~A ~A ~A" pattern input result subst))) (cond ((equal? "c" result) (test-error name (matcher pattern input))) ((equal? "n" result) (test-assert name (not (matcher pattern input)))) (else (test-equal name output (subst-matches (matcher pattern input) subst)))))) splt) (warning "invalid regex test line" line)))) (test-begin "basic irregex tests") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; basic irregex (for-each (lambda (opts) (test-group (sprintf "irregex - ~S" opts) (with-input-from-file "re-tests.txt" (lambda () (port-for-each (lambda (line) (test-re (lambda (pat str) (irregex-search (apply irregex pat opts) str)) line)) read-line))))) '((backtrack) (fast) )) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; chunked irregex (define (rope . args) (map (lambda (x) (if (pair? x) x (list x 0 (string-length x)))) args)) (define rope-chunker (make-irregex-chunker (lambda (x) (and (pair? (cdr x)) (cdr x))) caar cadar caddar (lambda (src1 i src2 j) (if (eq? src1 src2) (substring (caar src1) i j) (let lp ((src (cdr src1)) (res (list (substring (caar src1) i (caddar src1))))) (if (eq? src src2) (string-intersperse (reverse (cons (substring (caar src2) (cadar src2) j) res)) "") (lp (cdr src) (cons (substring (caar src) (cadar src) (caddar src)) res)))))))) (define (make-ropes str) (let ((len (string-length str))) (case len ((0 1) (list (rope str))) ((2) (list (rope str) (rope (substring str 0 1) (substring str 1 2)))) ((3) (list (rope str) (rope (substring str 0 1) (substring str 1 3)) (rope (substring str 0 2) (substring str 2 3)) (rope (substring str 0 1) (substring str 1 2) (substring str 2 3)))) (else (let ((mid (quotient (+ len 1) 2))) (list (rope str) (rope (substring str 0 1) (substring str 1 len)) (rope (substring str 0 mid) (substring str mid len)) (rope (substring str 0 (- len 1)) (substring str (- len 1) len)) (rope (substring str 0 1) (substring str 1 mid) (substring str mid len)) )))))) (define (make-shared-ropes str) (let ((len (string-length str))) (case len ((0 1) '()) ((2) (list (list (list str 0 1) (list str 1 2)))) ((3) (list (list (list str 0 1) (list str 1 3)) (list (list str 0 2) (list str 2 3)) (list (list str 0 1) (list str 1 2) (list str 2 3)))) (else (let ((mid (quotient (+ len 1) 2))) (list (list (list str 0 1) (list str 1 len)) (list (list str 0 mid) (list str mid len)) (list (list str 0 (- len 1)) (list str (- len 1) len)) (list (list str 0 1) (list str 1 mid) (list str mid len)) )))))) (for-each (lambda (opts) (test-group (sprintf "irregex/chunked - ~S" opts) (with-input-from-file "re-tests.txt" (lambda () (port-for-each (lambda (line) (let ((splt (string-split line "\t" #t))) (if (list? splt) (apply (lambda (pattern input result subst output) (let ((name (sprintf "~A ~A ~A ~A" pattern input result subst))) (cond ((equal? "c" result)) ((equal? "n" result) (for-each (lambda (rope) (test-assert name (not (irregex-search/chunked pattern rope-chunker rope)))) (append (make-ropes input) (make-shared-ropes input)))) (else (for-each (lambda (rope) (test-equal name output (subst-matches (irregex-search/chunked pattern rope-chunker rope) subst))) (append (make-ropes input) (make-shared-ropes input))))))) splt) (warning "invalid regex test line" line)))) read-line))))) '((backtrack) (fast) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; pregexp '(test-group "pregexp" (with-input-from-file "re-tests.txt" (lambda () (port-for-each (lambda (line) (test-re pregexp-match line)) read-line)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; default regex (PCRE) '(test-group "regex" (with-input-from-file "re-tests.txt" (lambda () (port-for-each (lambda (line) (test-re string-search line)) read-line)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (test-group "unmatchable patterns" (test-assert (not (irregex-search '(or) "abc"))) (test-assert (not (irregex-search '(: "ab" (or)) "abc"))) (test-assert (not (irregex-search '(submatch "ab" (or)) "abc"))) (test-assert (not (irregex-search '(: "ab" (submatch (or))) "abc"))) (test-assert (not (irregex-search '(/) "abc"))) (test-assert (not (irregex-search '(: "ab" (/)) "abc"))) (test-assert (not (irregex-search '(~ any) "abc"))) (test-assert (not (irregex-search '(: "ab" (~ any)) "abc"))) (test-assert (not (irregex-search '("") "abc"))) (test-assert (not (irregex-search '(: "ab" ("")) "abc"))) (test-assert (not (irregex-search '(: (+ print) white) "abc"))) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (test-group "beginning/end of chunks" (test-assert (irregex-search/chunked '(: bos "foo") rope-chunker '((" foo" 0 4)) 1)) (test-assert (irregex-search/chunked '(: bos "foo") rope-chunker '((" foo" 1 5)) 2)) (test-assert (irregex-search/chunked '(: bos "foo" eos) rope-chunker '((" foo" 1 4)) 1)) (test-assert (irregex-search/chunked '(: bos "foo" eos) rope-chunker '((" foo" 2 5)) 2)) (test-assert (irregex-search/chunked '(: bos "foo" eos) rope-chunker '((" foo" 0 4)) 1)) (test-assert (irregex-search/chunked '(: bos "foo" eos) rope-chunker '((" foo" 1 5)) 2)) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (test-group "Case sensitivity" (test-assert (not (irregex-match '(seq "abc") "ABC"))) (test-assert (irregex-match (irregex '(seq "abc") 'case-insensitive) "ABC")) (test-assert (irregex-match '(w/nocase "abc") "ABC")) (test-assert (not (irregex-match '(w/nocase (w/case "abc")) "ABC"))) (test-assert (irregex-match '(w/nocase (* ("abc"))) "ABC")) (test-assert (not (irregex-match '(w/nocase (w/case (* ("abc")))) "ABC"))) (test-assert (irregex-match '(w/nocase (* (/ #\a #\c))) "ABC")) (test-assert (not (irregex-match '(w/nocase (w/case (/ #\a #\c))) "ABC"))) (test-assert (not (irregex-match '(w/nocase (* (~ (/ #\a #\c)))) "abc"))) (test-assert (not (irregex-match '(w/nocase (* (~ (/ #\a #\c)))) "ABC")))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (test-group "API" (test-group "predicates" (test-assert (irregex? (irregex "a.*b"))) (test-assert (irregex? (irregex '(: "a" (* any) "b")))) (test-assert (not (irregex? (vector '*irregex-tag* #f #f #f #f #f #f)))) (test-assert (not (irregex? (vector #f #f #f #f #f #f #f #f)))) (test-assert (irregex-match-data? (irregex-search "a.*b" "axxxb"))) (test-assert (irregex-match-data? (irregex-match "a.*b" "axxxb"))) (test-assert (not (irregex-match-data? (vector '*irregex-match-tag* #f #f #f #f #f #f #f #f #f)))) (test-assert (not (irregex-match-data? (vector #f #f #f #f #f #f #f #f #f #f #f))))) (test-group "valid index" (test-assert (irregex-match-valid-index? (irregex-search "a.*b" "axxxb") 0)) (test-assert (not (irregex-match-valid-index? (irregex-search "a.*b" "axxxb") 1))) (test-assert (not (irregex-match-valid-index? (irregex-search "a.*b" "axxxb") -1))) (test-assert (irregex-match-valid-index? (irregex-search "a(.*)|(b)" "axxx") 0)) (test-assert (irregex-match-valid-index? (irregex-search "a(.*)|(b)" "axxx") 1)) (test-assert (irregex-match-valid-index? (irregex-search "a(.*)|(b)" "axxx") 2)) (test-assert (irregex-match-valid-index? (irregex-search "a(.*)|(b)" "b") 2)) (test-assert (not (irregex-match-valid-index? (irregex-search "a(.*)(b)" "axxxb") 3))) (test-assert (not (irregex-match-valid-index? (irregex-search "a(.*)(b)" "axxxb") -1)))) (test-group "number of submatches" (test-equal 0 (irregex-num-submatches (irregex "a.*b"))) (test-equal 1 (irregex-num-submatches (irregex "a(.*)b"))) (test-equal 2 (irregex-num-submatches (irregex "(a(.*))b"))) (test-equal 2 (irregex-num-submatches (irregex "a(.*)(b)"))) (test-equal 10 (irregex-num-submatches (irregex "((((((((((a))))))))))"))) (test-equal 0 (irregex-match-num-submatches (irregex-search "a.*b" "axxxb"))) (test-equal 1 (irregex-match-num-submatches (irregex-search "a(.*)b" "axxxb"))) (test-equal 2 (irregex-match-num-submatches (irregex-search "(a(.*))b" "axxxb"))) (test-equal 2 (irregex-match-num-submatches (irregex-search "a(.*)(b)" "axxxb"))) (test-equal 10 (irregex-match-num-submatches (irregex-search "((((((((((a))))))))))" "a")))) (test-group "match substring" (test-equal "axxxb" (irregex-match-substring (irregex-search "a.*b" "axxxb") 0)) (test-error (irregex-match-substring (irregex-search "a.*b" "axxxb") 1)) (test-equal "xxx" (irregex-match-substring (irregex-search "a(.*)|b" "axxx") 1)) (test-equal #f (irregex-match-substring (irregex-search "a(.*)|b" "b") 1)) (test-error (irregex-match-substring (irregex-search "a(.*)|b" "axxx") 2)) (test-error (irregex-match-substring (irregex-search "a(.*)|b" "b") 2))) (test-group "match start-index" (test-equal 0 (irregex-match-start-index (irregex-search "a.*b" "axxxb") 0)) (test-error (irregex-match-start-index (irregex-search "a.*b" "axxxb") 1)) (test-equal 1 (irregex-match-start-index (irregex-search "a(.*)|b" "axxx") 1)) (test-equal #f (irregex-match-start-index (irregex-search "a(.*)|b" "b") 1)) (test-error (irregex-match-start-index (irregex-search "a(.*)|b" "axxx") 2)) (test-error (irregex-match-start-index (irregex-search "a(.*)|b" "b") 2))) (test-group "match end-index" (test-equal 5 (irregex-match-end-index (irregex-search "a.*b" "axxxb") 0)) (test-error (irregex-match-end-index (irregex-search "a.*b" "axxxb") 1)) (test-equal 4 (irregex-match-end-index (irregex-search "a(.*)|b" "axxx") 1)) (test-equal #f (irregex-match-end-index (irregex-search "a(.*)|b" "b") 1)) (test-error (irregex-match-end-index (irregex-search "a(.*)|b" "axxx") 2)) (test-error (irregex-match-end-index (irregex-search "a(.*)|b" "b") 2))) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (test-group "utils" (test-equal "h*llo world" (irregex-replace "[aeiou]" "hello world" "*")) (test-equal "hello world" (irregex-replace "[xyz]" "hello world" "*")) (test-equal "h*ll* w*rld" (irregex-replace/all "[aeiou]" "hello world" "*")) (test-equal '("bob@test.com" "fred@example.com") (irregex-fold 'email (lambda (i m s) (cons (irregex-match-substring m) s)) '() "bob@test.com and fred@example.com" (lambda (i s) (reverse s)))) (test-equal '("bob@test.com" "fred@example.com") (irregex-fold/chunked 'email (lambda (src i m s) (cons (irregex-match-substring m) s)) '() rope-chunker (rope "bob@test.com and fred@example.com") (lambda (src i s) (reverse s)))) (test-equal '("poo poo ") (irregex-fold '(* "poo ") (lambda (i m s) (cons (irregex-match-substring m) s)) '() "poo poo platter")) (test-equal "* x " (irregex-replace/all (irregex '(: bos #\space) 'backtrack) " x " "*")) (test-equal "* x " (irregex-replace/all (irregex '(: bos #\space) 'dfa) " x " "*")) (test-equal "***x***" (irregex-replace/all (irregex '(: #\space) 'backtrack) " x " "*")) (test-equal "***x***" (irregex-replace/all (irregex '(: #\space) 'dfa) " x " "*")) (test-equal "xaac" (irregex-replace/all (irregex '(or (seq bos "a") (seq bos "b")) 'backtrack) "aaac" "x")) (test-equal "xaac" (irregex-replace/all (irregex '(or (seq bos "a") (seq bos "b")) 'dfa) "aaac" "x")) (test-equal "xaac" (irregex-replace/all (irregex '(or (seq bos "a") "b") 'backtrack) "aaac" "x")) (test-equal "xaac" (irregex-replace/all (irregex '(or (seq bos "a") "b") 'dfa) "aaac" "x")) (test-equal '("foo" " " "foo" " " "b" "a" "r" " " "foo") (irregex-extract '(or (: bow "foo" eow) any) "foo foo bar foo")) ) (define (extract name irx str) (irregex-match-substring (irregex-match irx str) name)) (define (valid? name irx str) (irregex-match-valid-index? (irregex-match irx str) name)) (define (start-idx name irx str) (irregex-match-start-index (irregex-match irx str) name)) (define (end-idx name irx str) (irregex-match-end-index (irregex-match irx str) name)) (test-group "named submatches" (test-equal "matching submatch is seen and extracted" "first" (extract 'first `(or (submatch-named first "first") (submatch-named second "second")) "first")) (test-assert "matching submatch index is valid" (valid? 'first `(or (submatch-named first "first") (submatch-named second "second")) "first")) (test-equal "nonmatching submatch is known but returns false" #f (extract 'second `(or (submatch-named first "first") (submatch-named second "second")) "first")) (test-assert "nonmatching submatch index is valid" (valid? 'second `(or (submatch-named first "first") (submatch-named second "second")) "first")) (test-error "nonexisting submatch is unknown and raises an error" (extract 'third `(or (submatch-named first "first") (submatch-named second "second")) "first")) (test-assert "nonexisting submatch index is invalid" (not (valid? 'third `(or (submatch-named first "first") (submatch-named second "second")) "first"))) (test-equal "matching alternative is used" "first" (extract 'sub `(or (submatch-named sub "first") (submatch-named sub "second")) "first")) (test-equal "matching alternative is used (second match)" "second" (extract 'sub `(or (submatch-named sub "first") (submatch-named sub "second")) "second")) (test-equal "last match is used with multiple matches for a name" "second" (extract 'sub `(seq (submatch-named sub "first") space (submatch-named sub "second")) "first second")) (test-equal "submatch start" 1 (start-idx 'xs `(seq "a" (submatch-named xs (+ "x")) "b") "axxxb")) (test-error "unknown submatch start" (start-idx 'xs `(seq "a" (submatch-named ys (+ "x")) "b") "axxxb")) (test-equal "submatch end" 4 (end-idx 'xs `(seq "a" (submatch-named xs (+ "x")) "b") "axxxb")) (test-error "unknown submatch start" (end-idx 'xs `(seq "a" (submatch-named ys (+ "x")) "b") "axxxb"))) ;; This is here to help optimized implementations catch segfaults and ;; other such problems. These calls will always return errors in plain ;; Scheme, but only because it will try to use the invalid object in a ;; way that's not supported by the operator. Once Scheme grows a ;; standardized way of signaling and catching exceptions, these tests ;; should be changed and expanded to check for specific condition types, ;; and probably moved to the group where the procedure is being tested. (test-group "error handling" (test-error (irregex 'invalid-sre)) (test-error (string->irregex 'not-a-string)) (test-error (sre->irregex 'invalid-sre)) (test-error (irregex-search 'not-an-irx-or-sre "foo")) (test-error (irregex-search "foo" 'not-a-string)) (test-error (irregex-search "foo" "foo" 'not-a-number)) (test-error (irregex-search "foo" "foo" 0 'not-a-number)) ;; TODO: irregex-new-matches, irregex-reset-matches! ;; irregex-search/matches, make-irregex-chunker? (test-error (irregex-match-valid-index? 'not-a-match-object 0)) (test-error (irregex-match-start-index 'not-a-match-object 0)) (test-error (irregex-match-start-index (irregex-search "foo" "foo") -1)) (test-error (irregex-match-end-index 'not-a-match-object 0)) (test-error (irregex-match-end-index (irregex-search "foo" "foo") -1)) (test-error (irregex-match-start-chunk 'not-a-match-object 0)) (test-error (irregex-match-end-chunk 'not-a-match-object 0)) (test-error (irregex-match-substring 'not-a-match-object 0)) (test-error (irregex-match-subchunk 'not-a-match-object 0)) (test-error (irregex-match-num-submatches 'not-a-match-object)) (test-error (irregex-match-names 'not-a-match-object)) (test-error (irregex-num-submatches 'not-an-irx)) (test-error (irregex-names 'not-an-irx)) (test-error (irregex-fold 'not-an-irx (lambda x x) 0 "foo" (lambda x x) 0 3)) (test-error (irregex-fold "foo" 'not-a-proc 0 "foo" (lambda x x) 0 3)) (test-error (irregex-fold "foo" (lambda (a b) b) 0 'not-a-string (lambda x x) 0 3)) (test-error (irregex-fold "foo" (lambda (a b) b) 0 "foo" 'not-a-proc 0 3)) (test-error (irregex-fold "foo" (lambda (a b) b) 0 "foo" (lambda x x) 'not-a-number 3)) (test-error (irregex-fold "foo" (lambda (a b) b) 0 "foo" (lambda x x) 0 'not-a-number)) (test-error (irregex-replace 'not-an-irx "str")) (test-error (irregex-replace "foo" "foo" (lambda (x) 'not-a-string))) (test-error (irregex-replace/all 'not-an-irx "str")) (test-error (irregex-replace/all "foo" "foo" (lambda (x) 'not-a-string))) ;; Are these supposed to be exported? ;; irregex-nfa, irregex-dfa, irregex-dfa/search, irregex-dfa/extract ;; irregex-flags, irregex-lengths ) (test-end) ;;; UTF-8 tests (test-begin "utf-8 tests") (test-assert (irregex-search "(?u:<..>)" "<漢字>")) (test-assert (irregex-search "(?u:<.*>)" "<漢字>")) (test-assert (irregex-search "(?u:<.+>)" "<漢字>")) (test-assert (not (irregex-search "(?u:<.>)" "<漢字>"))) (test-assert (not (irregex-search "(?u:<...>)" "<æ¼¢>"))) (test-assert (irregex-search "(?u:<[^a-z]*>)" "<漢字>")) (test-assert (not (irregex-search "(?u:<[^a-z]*>)" "<æ¼¢må­—>"))) (test-assert (irregex-search "(?u:<[^a-z][^a-z]>)" "<漢字>")) (test-assert (irregex-search "(?u:<ã‚*>)" "<ã‚>")) (test-assert (irregex-search "(?u:<ã‚*>)" "<ã‚ã‚>")) (test-assert (not (irregex-search "(?u:<ã‚*>)" "<ã‚xã‚>"))) (test-assert (irregex-search "(?u:<[ã‚-ã‚“]*>)" "<ã‚ã‚“>")) (test-assert (irregex-search "(?u:<[ã‚-ã‚“]*>)" "<ã²ã‚‰ãŒãª>")) (test-assert (not (irregex-search "(?u:<[ã‚-ã‚“]*>)" "<ã²ã‚‰gãŒãª>"))) (test-assert (not (irregex-search "(?u:<[^ã‚-ん語]*>)" "<語>"))) (test-assert (irregex-search "(?u:<[^ã‚-ã‚“]*>)" "<abc>")) (test-assert (not (irregex-search "(?u:<[^ã‚-ã‚“]*>)" "<ã‚ã‚“>"))) (test-assert (not (irregex-search "(?u:<[^ã‚-ã‚“]*>)" "<ã²ã‚‰ãŒãª>"))) (test-assert (irregex-search "(?u:<[^ã‚-ん語]*>)" "<abc>")) (test-assert (not (irregex-search "(?u:<[^ã‚-ん語]*>)" "<ã‚ã‚“>"))) (test-assert (not (irregex-search "(?u:<[^ã‚-ん語]*>)" "<ã²ã‚‰ãŒãª>"))) (test-assert (not (irregex-search "(?u:<[^ã‚-ん語]*>)" "<語>"))) (test-assert (not (irregex-search (irregex "[一二]" 'utf8 #t) "三四"))) (test-end) (test-exit) ������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/import-tests.scm����������������������������������������������������������������0000644�0001750�0001750�00000000633�13370655400�017254� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; import-tests.scm (module m1 () (import scheme (only srfi-4 u8vector?)) u8vector?) (print "expect warning ...") (assert (handle-exceptions ex #t (eval ' (module m2 () (import scheme (only (srfi 4) u8vector?)) s8vector?)) #f)) (module m3 () (import scheme (rename (srfi 4) (u8vector? u8v?))) u8v?) (module m4 () (import scheme (chicken base)) (require-extension (prefix (srfi 4) s4:)) s4:f32vector) �����������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reexport-m4.scm�����������������������������������������������������������������0000644�0001750�0001750�00000000422�13370655400�016764� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; export syntax that refers to reexported syntax (reexport-test-2.scm) (module reexport-m4 (baz) (import (scheme) (chicken base) (chicken module) (reexport-m3)) (reexport (reexport-m3)) (define-syntax baz (ir-macro-transformer (lambda (e i c) `(foo))))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/test-finalizers.scm�������������������������������������������������������������0000644�0001750�0001750�00000003225�13502227553�017726� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test-finalizers.scm ;; NOTE: This may fail, reopen #1426 if it does (import (chicken format)) (import (chicken gc)) (##sys#eval-debug-level 0) ; disable keeping trace-buffer with frameinfo (define x (list 1 2 3)) (define y (list 4 5 6)) (define x-f #f) (define y-f #f) (begin (set-finalizer! x (lambda (o) (format #t "Delete: ~A (y: ~a)~%" o y-f) (set! x-f #t))) #t) (begin (set-finalizer! y (let ((p x)) (lambda (o) (format #t "Delete: ~A: ~A~%" o p) (set! y-f #t)))) #t) (gc #t) (assert (not x-f)) #| This ought to work, see patches/finalizer.closures.diff for a fix that unfortunately disables finalizers in the interpreter (probably due to the different closure representation). (assert (not y-f)) (set! x #f) (gc #t) (assert (not x-f)) (assert (not y-f)) (set! y #f) (gc #t) (assert y-f) (assert x-f) |# (define foo-f #f) (let ((foo (vector 1 2 3))) (set-finalizer! foo (lambda _ (set! foo-f #t))) #t) (gc #t) (assert foo-f) ;; double finalizer (define n 0) (define (bump . _) (set! n (add1 n))) (define x (vector 1)) (set-finalizer! x bump) (set-finalizer! x bump) (set! x #f) (gc #t) (print n) (assert (= 2 n)) ;; Finalizers on constants are ignored in compiled mode (because ;; they're never GCed). Reported by "Pluijzer". #| this doesn't always work in csi, for some unknown reason, depending on unrelated factors (command-line options, memory usage patterns, etc.) (set! n 0) (define bar "constant string") (set-finalizer! bar bump) (set! bar #f) (gc #t) (print n) (cond-expand (compiling (assert (= 0 n))) (else (assert (= 1 n)))) |# ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/pp-test.scm���������������������������������������������������������������������0000644�0001750�0001750�00000001117�13370655400�016174� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; pp-test.scm (import (only chicken.pretty-print pp) (only chicken.port with-output-to-string)) (define (pp->string thing) (with-output-to-string (cut pp thing))) (define-syntax test (syntax-rules () ((_ result exp) (assert (equal? result exp))))) (test "\"\\\"foo\\\"\"\n" (pp->string "\"foo\"")) (test "\"\\\\\\\"\"\n" (pp->string "\\\"")) (test "\"\\\\\\\\\\\\\\\"\"\n" (pp->string "\\\\\\\"")) (test "\"\\\"\\\"\\\"\"\n" (pp->string "\"\"\"")) (test "\"\\n\\t\\r\\b\\a\\v\\f\"\n" (pp->string "\n\t\r\b\a\v\f")) (test "\\" "\\") ; XXX? �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/repository-path.scm�������������������������������������������������������������0000644�0001750�0001750�00000001602�13370655400�017750� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import (chicken platform) (chicken process-context) (chicken condition)) (include "test.scm") (test-equal "find-file on #f" (chicken.load#find-file "repository-path.scm" #f) #f) (test-equal "find-file on string" (chicken.load#find-file "repository-path.scm" ".") "./repository-path.scm") (test-equal "find-file on list" (chicken.load#find-file "repository-path.scm" '(".." ".")) "./repository-path.scm") (test-equal "(repository-path) is populated by CHICKEN_REPOSITORY_PATH" (repository-path) (command-line-arguments)) (repository-path (cons (get-environment-variable "CHICKEN_INSTALL_REPOSITORY") (repository-path))) (test-assert "setting (repository-path) and loading a library" (handle-exceptions exn #f (begin (require-library sample-module) #t))) (test-error "Putting garbage in (repository-path)" (repository-path '(foo))) (test-exit) ������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/posix-tests.scm�����������������������������������������������������������������0000644�0001750�0001750�00000006366�13370655400�017115� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import (chicken pathname) (chicken file) (chicken file posix) (chicken platform) (chicken process) (chicken process-context) (chicken memory representation)) (include "programs-path.scm") (define-syntax assert-error (syntax-rules () ((_ expr) (assert (handle-exceptions _ #t expr #f))))) (define-constant SOME-POS 123456) (let ((tnpfilpn (create-temporary-file))) (let ((tmpfilno (file-open tnpfilpn (+ open/rdwr open/creat open/text)))) (set-file-position! tmpfilno SOME-POS seek/end) (assert (= SOME-POS (file-position tmpfilno))) (file-close tmpfilno) (delete-file* tnpfilpn) ) ) (let ((tnpfilpn (create-temporary-file))) (let ((tmpfilno (file-open tnpfilpn (+ open/rdwr open/creat open/text)))) (let ((port (open-output-file* tmpfilno))) (set-file-position! port SOME-POS seek/end) (assert (= SOME-POS (file-position port))) (close-output-port port) (delete-file* tnpfilpn) ) ) ) (assert-error (get-environment-variable "with\x00embedded-NUL")) (assert-error (set-environment-variable! "with\x00embedded-NUL" "blabla")) (assert-error (set-environment-variable! "blabla" "with\x00embedded-NUL")) (assert-error (system "echo this is \x00 not okay")) ;; Use "false" to signal to the calling script that there was an error, ;; even if the process will get called (assert-error (process-execute "false\x00123")) (assert-error (process-execute "false" '("1" "123\x00456"))) (assert-error (process-execute "false" '("123\x00456") '("foo\x00bar" "blabla") '("lalala" "qux\x00mooh"))) (receive (in out pid) (process csi-path '("-n" "-I" ".." "-e" "(write 'err (current-error-port)) (write 'ok)")) (assert (equal? 'ok (read in))) (newline (current-error-port))) (receive (in out pid err) (process* csi-path '("-n" "-I" ".." "-e" "(write 'err (current-error-port)) (write 'ok)")) (assert (equal? 'ok (read in))) (assert (equal? 'err (read err)))) ;; delete-directory (let* ((t (create-temporary-directory)) (t/a (make-pathname t "a")) (t/a/file (make-pathname t/a "file")) (t/b (make-pathname t "b")) (t/b/c (make-pathname t/b "c")) (t/b/c/link (make-pathname t/b/c "link")) (t/b/c/.file (make-pathname t/b/c ".file"))) ;; Create file under a: (create-directory t/a) (with-output-to-file t/a/file void) ;; Create directories under b: (create-directory t/b/c/.file 'recursively) (assert (directory? t/b/c/.file)) (when (or (feature? #:unix) (feature? #:cygwin)) (create-symbolic-link t/a t/b/c/link) (assert (directory? t/b/c/link))) ;; Delete directory tree at b: (delete-directory t/b 'recursively) (assert (not (directory? t/b/c/.file))) (assert (not (directory? t/b/c/link))) (assert (not (directory? t/b/c))) (assert (not (directory? t/b))) ;; Make sure symlink wasn't followed: (assert (directory? t/a)) (assert (regular-file? t/a/file)) ;; Clean up temporary directory: (delete-directory t 'recursively) (assert (not (directory? t)))) ;; unset-environment-variable! (set-environment-variable! "FOO" "bar") (assert (equal? (get-environment-variable "FOO") "bar")) (unset-environment-variable! "FOO") (assert (not (get-environment-variable "FOO"))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/random-tests.scm����������������������������������������������������������������0000644�0001750�0001750�00000000521�13370655400�017216� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; random number tests (import (chicken random)) (define seed (random-bytes)) (define (nums n) (let loop ((n n)) (if (zero? n) '() (cons (pseudo-random-integer 10000) (nums (- n 1)))))) (set-pseudo-random-seed! seed) (define n1 (nums 100)) (set-pseudo-random-seed! seed) (assert n1 (nums 100)) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reexport-m1.scm�����������������������������������������������������������������0000644�0001750�0001750�00000000203�13370655400�016756� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; module re-exporting from core module (module reexport-m1 () (import (chicken module)) (reexport (only srfi-4 u8vector))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/scrutiny.expected���������������������������������������������������������������0000644�0001750�0001750�00000053633�13502227553�017512� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; numbers replaced with XXX by redact-gensyms.scm ;; prefixes: (tmp g scm:) Warning: (scrutiny-tests.scm:XXX) - assignment to imported value binding `car' Note: Test is always true In procedure `a', In procedure `b', In procedure `c', In conditional expression: (if x 1 2) Test condition has always true value of type: fixnum Note: Test is always true In procedure `b', In conditional expression: (if x 1 2) Test condition has always true value of type: true Warning: Branch values mismatch In file `scrutiny-tests.scm:XXX', In procedure `foo', In conditional expression: (if x (scheme#values 1 2) (scheme#values 1 2 (scheme#+ (scheme#+ ...)))) The branches have different numbers of values. The true branch returns 2 values: (scheme#values 1 2) The false branch returns 3 values: (scheme#values 1 2 (scheme#+ (scheme#+ (scheme#+ ...)))) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (bar 3 'a) Argument #2 to procedure `bar' has an invalid type: symbol The expected type is: number This is the expression: 'a Procedure `bar' has this type: (#!rest number -> number) Warning: Wrong number of arguments In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#string?) Procedure `string?' is called with 0 arguments but 1 argument is expected. Procedure `string?' from module `scheme' has this type: (* -> boolean) Warning: Too many argument values In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (chicken.base#print (scheme#values 1 2)) Argument #1 to procedure `print' returns 2 values but 1 is expected. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values 1 2) Warning: Not enough argument values In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (chicken.base#print (scheme#values)) Argument #1 to procedure `print' does not return any values. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values) Warning: Invalid procedure In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (x) Variable `x18' is not a procedure. It has this type: fixnum Warning: Invalid argument In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#+ 'a 'b) Argument #1 to procedure `+' has an invalid type: symbol The expected type is: number This is the expression: 'a Procedure `+' from module `scheme' has this type: (#!rest number -> number) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#+ 'a 'b) Argument #2 to procedure `+' has an invalid type: symbol The expected type is: number This is the expression: 'b Procedure `+' from module `scheme' has this type: (#!rest number -> number) Warning: Invalid assignment At the toplevel, In assignment: (set! scheme#car 33) Variable `car' is assigned invalid value. The assigned value has this type: fixnum The declared type of `car' from module `scheme' is: ((pair 'a *) -> 'a) Warning: Let binding to `gXXX' has 2 values In file `scrutiny-tests.scm:XXX', At the toplevel, In let expression: (let ((gXXX (scheme#values 1 2))) (gXXX)) Variable `gXXX' is bound to an expression that returns 2 values. It is a call to `values' from module `scheme' which has this type: (procedure (#!rest values) . *) This is the expression: (scheme#values 1 2) Warning: Invalid procedure At the toplevel, In procedure call: (gXXX) Variable `gXXX' is not a procedure. It has this type: fixnum Note: Test is always true In procedure `foo', In conditional expression: (if bar 3 (##core#undefined)) Test condition has always true value of type: (-> *) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `foo2', In procedure call: (scheme#string-append x "abc") Argument #1 to procedure `string-append' has an invalid type: number The expected type is: string This is the expression: x Procedure `string-append' from module `scheme' has this type: (#!rest string -> string) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (foo3 99) Argument #1 to procedure `foo3' has an invalid type: fixnum The expected type is: string This is the expression: 99 Procedure `foo3' has this type: (string -> string) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `foo4', In procedure call: (scheme#+ x 1) Argument #1 to procedure `+' has an invalid type: string The expected type is: number This is the expression: x Procedure `+' from module `scheme' has this type: (#!rest number -> number) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `foo5', In procedure call: (scheme#+ x 3) Argument #1 to procedure `+' has an invalid type: string The expected type is: number This is the expression: x Procedure `+' from module `scheme' has this type: (#!rest number -> number) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `foo6', In procedure call: (scheme#+ x 3) Argument #1 to procedure `+' has an invalid type: string The expected type is: number This is the expression: x Procedure `+' from module `scheme' has this type: (#!rest number -> number) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#+ x 1) Argument #1 to procedure `+' has an invalid type: string The expected type is: number This is the expression: x Procedure `+' from module `scheme' has this type: (#!rest number -> number) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `foo10', In procedure call: (foo9 x) Argument #1 to procedure `foo9' has an invalid type: number The expected type is: string This is the expression: x Procedure `foo9' has this type: (string -> symbol) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `foo10', In procedure call: (scheme#+ x 1) Argument #1 to procedure `+' has an invalid type: string The expected type is: number This is the expression: x Procedure `+' from module `scheme' has this type: (#!rest number -> number) Warning: Type mismatch In file `scrutiny-tests.scm:XXX', In procedure `foo10', In expression: (scheme#substring x 0 10) Expression's declared and actual types do not match. The declared type is: pair The actual type is: string Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `foo10', In procedure call: (scheme#string-append (the pair (scheme#substring x 0 10))) Argument #1 to procedure `string-append' has an invalid type: pair The expected type is: string This is the expression: (the pair (scheme#substring x 0 10)) Procedure `string-append' from module `scheme' has this type: (#!rest string -> string) Warning: Too many values In file `scrutiny-tests.scm:XXX', In procedure `foo10', In expression: (scheme#values 1 2) Expression returns too many values. The expression returns 2 values but is declared to return: * Warning: Not enough values In file `scrutiny-tests.scm:XXX', In procedure `foo10', In expression: (scheme#values) Expression returns 0 values but is declared to return: * Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `foo10', In procedure call: (scheme#* x y) Argument #1 to procedure `*' has an invalid type: string The expected type is: number This is the expression: x Procedure `*' from module `scheme' has this type: (#!rest number -> number) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In module `foo', In procedure `blabla', In procedure call: (scheme#+ 1 'x) Argument #2 to procedure `+' has an invalid type: symbol The expected type is: number This is the expression: 'x Procedure `+' from module `scheme' has this type: (#!rest number -> number) Warning: Deprecated identifier `deprecated-procedure' At the toplevel, In expression: deprecated-procedure Use of deprecated identifier `deprecated-procedure'. Warning: Deprecated identifier `another-deprecated-procedure' At the toplevel, In expression: another-deprecated-procedure Use of deprecated identifier `another-deprecated-procedure'. The suggested alternative is `replacement-procedure'. Warning: Invalid argument In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (apply1 scheme#+ (scheme#list 'a 2 3)) Argument #2 to procedure `apply1' has an invalid type: (list symbol fixnum fixnum) The expected type is: (list-of number) It is a call to `list' from module `scheme' which has this type: (#!rest * -> list) This is the expression: (scheme#list 'a 2 3) Procedure `apply1' has this type: ((#!rest 'a -> 'b) (list-of 'a) -> 'b) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (apply1 scheme#+ (scheme#cons 'a (scheme#cons 2 (scheme#cons 3 ...)))) Argument #2 to procedure `apply1' has an invalid type: (list symbol fixnum fixnum) The expected type is: (list-of number) It is a call to `cons' from module `scheme' which has this type: ('a 'b -> (pair 'a 'b)) This is the expression: (scheme#cons 'a (scheme#cons 2 (scheme#cons 3 '()))) Procedure `apply1' has this type: ((#!rest 'a -> 'b) (list-of 'a) -> 'b) Note: Predicate is always true In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (chicken.base#fixnum? x) The predicate will always return true. Procedure `fixnum?' from module `chicken.base' is a predicate for: fixnum The given argument has this type: fixnum Note: Predicate is always false In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#symbol? x) The predicate will always return false. Procedure `symbol?' from module `scheme' is a predicate for: symbol The given argument has this type: (or char string) Note: Predicate is always false In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#string? x) The predicate will always return false. Procedure `string?' from module `scheme' is a predicate for: string The given argument has this type: (not (or char string)) Note: Predicate is always false In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (char-or-string? x) The predicate will always return false. Procedure `char-or-string?' is a predicate for: (or char string) The given argument has this type: fixnum Note: Predicate is always false In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#symbol? x) The predicate will always return false. Procedure `symbol?' from module `scheme' is a predicate for: symbol The given argument has this type: (or char string) Note: Predicate is always false In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#string? x) The predicate will always return false. Procedure `string?' from module `scheme' is a predicate for: string The given argument has this type: fixnum Note: Predicate is always false In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#symbol? x) The predicate will always return false. Procedure `symbol?' from module `scheme' is a predicate for: symbol The given argument has this type: char Note: Predicate is always false In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#string? x) The predicate will always return false. Procedure `string?' from module `scheme' is a predicate for: string The given argument has this type: symbol Note: Predicate is always false In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#symbol? x) The predicate will always return false. Procedure `symbol?' from module `scheme' is a predicate for: symbol The given argument has this type: (or char string) Note: Predicate is always false In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (scheme#string? x) The predicate will always return false. Procedure `string?' from module `scheme' is a predicate for: string The given argument has this type: symbol Warning: Invalid argument In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (f (scheme#list)) Argument #1 to procedure `f' has an invalid type: null The expected type is: pair It is a call to `list' from module `scheme' which has this type: (#!rest * -> list) This is the expression: (scheme#list) Procedure `f' has this type: (pair -> *) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (f (scheme#list 1)) Argument #1 to procedure `f' has an invalid type: (list fixnum) The expected type is: null It is a call to `list' from module `scheme' which has this type: (#!rest * -> list) This is the expression: (scheme#list 1) Procedure `f' has this type: (null -> *) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', At the toplevel, In procedure call: (f (scheme#cons 1 2)) Argument #1 to procedure `f' has an invalid type: (pair fixnum fixnum) The expected type is: list It is a call to `cons' from module `scheme' which has this type: ('a 'b -> (pair 'a 'b)) This is the expression: (scheme#cons 1 2) Procedure `f' has this type: (list -> *) Warning: Negative vector index In file `scrutiny-tests.scm:XXX', In procedure `vector-ref-warn1', In procedure call: (scheme#vector-ref v1 -1) Procedure `vector-ref' from module `scheme' is called with a negative index -1. Warning: Vector index out of range In file `scrutiny-tests.scm:XXX', In procedure `vector-ref-warn2', In procedure call: (scheme#vector-ref v1 3) Procedure `vector-ref' from module `scheme' is called with index `3' for a vector of length `3'. Warning: Vector index out of range In file `scrutiny-tests.scm:XXX', In procedure `vector-ref-warn3', In procedure call: (scheme#vector-ref v1 4) Procedure `vector-ref' from module `scheme' is called with index `4' for a vector of length `3'. Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `vector-ref-standard-warn1', In procedure call: (scheme#vector-ref v1 'bad) Argument #2 to procedure `vector-ref' has an invalid type: symbol The expected type is: fixnum This is the expression: 'bad Procedure `vector-ref' from module `scheme' has this type: ((vector-of 'a) fixnum -> 'a) Warning: Negative vector index In file `scrutiny-tests.scm:XXX', In procedure `vector-set!-warn1', In procedure call: (scheme#vector-set! v1 -1 'whatever) Procedure `vector-set!' from module `scheme' is called with a negative index -1. Warning: Vector index out of range In file `scrutiny-tests.scm:XXX', In procedure `vector-set!-warn2', In procedure call: (scheme#vector-set! v1 3 'whatever) Procedure `vector-set!' from module `scheme' is called with index `3' for a vector of length `3'. Warning: Vector index out of range In file `scrutiny-tests.scm:XXX', In procedure `vector-set!-warn3', In procedure call: (scheme#vector-set! v1 4 'whatever) Procedure `vector-set!' from module `scheme' is called with index `4' for a vector of length `3'. Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `vector-set!-standard-warn1', In procedure call: (scheme#vector-set! v1 'bad 'whatever) Argument #2 to procedure `vector-set!' has an invalid type: symbol The expected type is: fixnum This is the expression: 'bad Procedure `vector-set!' from module `scheme' has this type: (vector fixnum * -> undefined) Warning: Negative list index In file `scrutiny-tests.scm:XXX', In procedure `list-ref-warn1', In procedure call: (scheme#list-ref l1 -1) Procedure `list-ref' from module `scheme' is called with a negative index -1. Warning: Negative list index In file `scrutiny-tests.scm:XXX', In procedure `list-ref-warn2', In procedure call: (scheme#list-ref l2 -1) Procedure `list-ref' from module `scheme' is called with a negative index -1. Warning: Negative list index In file `scrutiny-tests.scm:XXX', In procedure `list-ref-warn3', In procedure call: (scheme#list-ref l3 -1) Procedure `list-ref' from module `scheme' is called with a negative index -1. Warning: List index out of range In file `scrutiny-tests.scm:XXX', In procedure `list-ref-warn4', In procedure call: (scheme#list-ref l1 3) Procedure `list-ref' from module `scheme' is called with index `3' for a list of length `3'. Warning: List index out of range In file `scrutiny-tests.scm:XXX', In procedure `list-ref-warn5', In procedure call: (scheme#list-ref l1 4) Procedure `list-ref' from module `scheme' is called with index `4' for a list of length `3'. Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `list-ref-standard-warn1', In procedure call: (scheme#list-ref l1 'bad) Argument #2 to procedure `list-ref' has an invalid type: symbol The expected type is: fixnum This is the expression: 'bad Procedure `list-ref' from module `scheme' has this type: ((list-of 'a) fixnum -> 'a) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `list-ref-standard-warn2', In procedure call: (scheme#list-ref l1 'bad) Argument #2 to procedure `list-ref' has an invalid type: symbol The expected type is: fixnum This is the expression: 'bad Procedure `list-ref' from module `scheme' has this type: ((list-of 'a) fixnum -> 'a) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `list-ref-standard-warn3', In procedure call: (scheme#list-ref l2 'bad) Argument #2 to procedure `list-ref' has an invalid type: symbol The expected type is: fixnum This is the expression: 'bad Procedure `list-ref' from module `scheme' has this type: ((list-of 'a) fixnum -> 'a) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `list-ref-standard-warn4', In procedure call: (scheme#list-ref l2 'bad) Argument #2 to procedure `list-ref' has an invalid type: symbol The expected type is: fixnum This is the expression: 'bad Procedure `list-ref' from module `scheme' has this type: ((list-of 'a) fixnum -> 'a) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `list-ref-type-warn1', In procedure call: (chicken.base#add1 (scheme#list-ref l1 1)) Argument #1 to procedure `add1' has an invalid type: symbol The expected type is: number It is a call to `list-ref' from module `scheme' which has this type: ((list-of 'a) fixnum -> 'a) This is the expression: (scheme#list-ref l1 1) Procedure `add1' from module `chicken.base' has this type: (number -> number) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `list-ref-type-warn2', In procedure call: (chicken.base#add1 (scheme#list-ref l2 1)) Argument #1 to procedure `add1' has an invalid type: symbol The expected type is: number It is a call to `list-ref' from module `scheme' which has this type: ((list-of 'a) fixnum -> 'a) This is the expression: (scheme#list-ref l2 1) Procedure `add1' from module `chicken.base' has this type: (number -> number) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `list-ref-type-warn3', In procedure call: (chicken.base#add1 (scheme#list-ref l3 1)) Argument #1 to procedure `add1' has an invalid type: symbol The expected type is: number It is a call to `list-ref' from module `scheme' which has this type: ((list-of 'a) fixnum -> 'a) This is the expression: (scheme#list-ref l3 1) Procedure `add1' from module `chicken.base' has this type: (number -> number) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `append-result-type-warn1', In procedure call: (chicken.base#add1 (scheme#list-ref l1 1)) Argument #1 to procedure `add1' has an invalid type: symbol The expected type is: number It is a call to `list-ref' from module `scheme' which has this type: ((list-of 'a) fixnum -> 'a) This is the expression: (scheme#list-ref l1 1) Procedure `add1' from module `chicken.base' has this type: (number -> number) Warning: Invalid argument In file `scrutiny-tests.scm:XXX', In procedure `append-result-type-warn2', In procedure call: (chicken.base#add1 (scheme#list-ref l3 3)) Argument #1 to procedure `add1' has an invalid type: symbol The expected type is: number It is a call to `list-ref' from module `scheme' which has this type: ((list-of 'a) fixnum -> 'a) This is the expression: (scheme#list-ref l3 3) Procedure `add1' from module `chicken.base' has this type: (number -> number) Warning: redefinition of standard binding: scheme#car �����������������������������������������������������������������������������������������������������chicken-5.1.0/tests/match-test.scm������������������������������������������������������������������0000644�0001750�0001750�00000007434�13370655400�016661� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import (chicken load)) (load-relative "test.scm") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; run tests (test-begin "match") (test-equal "any" (match 'any (_ 'ok)) 'ok) (test-equal "symbol" (match 'ok (x x)) 'ok) (test-equal "number" (match 28 (28 'ok)) 'ok) (test-equal "string" (match "good" ("bad" 'fail) ("good" 'ok)) 'ok) (test-equal "literal symbol" (match 'good ('bad 'fail) ('good 'ok)) 'ok) (test-equal "null" (match '() (() 'ok)) 'ok) (test-equal "pair" (match '(ok) ((x) x)) 'ok) (test-equal "vector" (match '#(ok) (#(x) x)) 'ok) (test-equal "any doubled" (match '(1 2) ((_ _) 'ok)) 'ok) (test-equal "and empty" (match '(o k) ((and) 'ok)) 'ok) (test-equal "and single" (match 'ok ((and x) x)) 'ok) (test-equal "and double" (match 'ok ((and (? symbol?) y) 'ok)) 'ok) (test-equal "or empty" (match '(o k) ((or) 'fail) (else 'ok)) 'ok) (test-equal "or single" (match 'ok ((or x) 'ok)) 'ok) (test-equal "or double" (match 'ok ((or (? symbol? y) y) y)) 'ok) (test-equal "not" (match 28 ((not (a . b)) 'ok)) 'ok) (test-equal "pred" (match 28 ((? number?) 'ok)) 'ok) (test-equal "named pred" (match 28 ((? number? x) (+ x 1))) 29) (test-equal "duplicate symbols pass" (match '(ok . ok) ((x . x) x)) 'ok) (test-equal "duplicate symbols fail" (match '(ok . bad) ((x . x) 'bad) (else 'ok)) 'ok) (test-equal "duplicate symbols samth" (match '(ok . ok) ((x . 'bad) x) (('ok . x) x)) 'ok) (test-equal "ellipses" (match '((a . 1) (b . 2) (c . 3)) (((x . y) ___) (list x y))) '((a b c) (1 2 3))) (test-equal "real ellipses" (match '((a . 1) (b . 2) (c . 3)) (((x . y) ...) (list x y))) '((a b c) (1 2 3))) (test-equal "vector ellipses" (match '#(1 2 3 (a . 1) (b . 2) (c . 3)) (#(a b c (hd . tl) ...) (list a b c hd tl))) '(1 2 3 (a b c) (1 2 3))) (test-equal "pred ellipses" (match '(1 2 3) (((? odd? n) ___) n) (((? number? n) ___) n)) '(1 2 3)) (test-equal "failure continuation" (match '(1 2) ((a . b) (=> next) (if (even? a) 'fail (next))) ((a . b) 'ok)) 'ok) (test-equal "let" (match-let ((x 'ok) (y '(o k))) y) '(o k)) (test-equal "let*" (match-let* ((x 'f) (y 'o) ((z w) (list y x))) (list x y z w)) '(f o o f)) (test-equal "getter car" (match '(1 . 2) (((get! a) . b) (list (a) b))) '(1 2)) (test-equal "getter cdr" (match '(1 . 2) ((a . (get! b)) (list a (b)))) '(1 2)) (test-equal "getter vector" (match '#(1 2 3) (#((get! a) b c) (list (a) b c))) '(1 2 3)) (test-equal "setter car" (let ((x '(1 . 2))) (match x (((set! a) . b) (a 3))) x) '(3 . 2)) (test-equal "setter cdr" (let ((x '(1 . 2))) (match x ((a . (set! b)) (b 3))) x) '(1 . 3)) (test-equal "setter vector" (let ((x '#(1 2 3))) (match x (#(a (set! b) c) (b 0))) x) '#(1 0 3)) (test-equal "single tail" (match '((a . 1) (b . 2) (c . 3)) (((x . y) ... last) (list x y last))) '((a b) (1 2) (c . 3))) (test-equal "single tail 2" (match '((a . 1) (b . 2) 3) (((x . y) ... last) (list x y last))) '((a b) (1 2) 3)) (test-equal "multiple tail" (match '((a . 1) (b . 2) (c . 3) (d . 4) (e . 5)) (((x . y) ... u v w) (list x y u v w))) '((a b) (1 2) (c . 3) (d . 4) (e . 5))) (test-equal "Riastradh quasiquote" (match '(1 2 3) (`(1 ,b ,c) (list b c))) '(2 3)) (test-end "match") (test-exit) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/record-rename-test.scm����������������������������������������������������������0000644�0001750�0001750�00000002021�13370655400�020273� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; record-rename-test.scm (define-record foo a) (define-record-type bar (make-bar x) bar? (x get-x)) (module m1 (make-foo make-bar foo? bar?) (import scheme (chicken base)) (define-record foo a b) (define-record-type bar (make-bar x y) bar? (x get-x) (y get-y)) (let ((f1 (make-foo 1 2)) (f2 (make-bar 3 4))) (print "Inside module m1: " (list foo f1 bar f2))) ) ; m1 (define toplevel-foo? foo?) (define toplevel-bar? foo?) (let ((f1 (make-foo 1)) (f2 (make-bar 2))) (print "At toplevel before importing m1: " (list foo f1 bar f2)) (assert (foo? f1)) (assert (not (bar? f1))) (assert (not (foo? f2))) (assert (bar? f2))) (import m1) (let ((f1 (make-foo 1 2)) (f2 (make-bar 3 4))) (print "At toplevel after importing m1: " (list foo f1 bar f2)) (assert (foo? f1)) (assert (not (bar? f1))) (assert (not (foo? f2))) (assert (bar? f2)) (assert (not (toplevel-foo? f1))) (assert (not (toplevel-bar? f1))) (assert (not (toplevel-foo? f2))) (assert (not (toplevel-bar? f2)))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/private-repository-test.scm�����������������������������������������������������0000644�0001750�0001750�00000001032�13370655400�021440� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; private-repository-test.scm (import (chicken pathname) (chicken platform) (chicken process-context) (chicken file) (chicken file posix)) (define read-symbolic-link* (cond-expand ((and windows (not cygwin)) (lambda (filename _) filename)) (else read-symbolic-link))) (define repo (normalize-pathname (read-symbolic-link* (car (repository-path)) #t))) (define dir (normalize-pathname (read-symbolic-link* (car (command-line-arguments)) #t))) (print (list dir repo)) (assert (string=? repo dir)) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/runtests.sh���������������������������������������������������������������������0000755�0001750�0001750�00000044136�13502227553�016333� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/bin/sh # runtests.sh - run CHICKEN testsuite # # - Note: this needs a proper shell, so it will not work with plain mingw # (just the compiler and the Windows shell, without MSYS) set -e if test -z "$MSYSTEM"; then TEST_DIR=`pwd` PATH_SEP=':' else # Use Windows-native format with drive letters instead of awkward # MSYS /c/blabla "pseudo-paths" which break when used in syscalls. TEST_DIR=`pwd -W` PATH_SEP=';' fi DYLD_LIBRARY_PATH=${TEST_DIR}/.. LD_LIBRARY_PATH=${TEST_DIR}/.. LIBRARY_PATH=${TEST_DIR}/..:${LIBRARY_PATH} # Cygwin uses LD_LIBRARY_PATH for dlopen(), but the dlls linked into # the binary are read by the OS itself, which uses $PATH (mingw too) # Oddly, prefixing .. with ${TEST_DIR}/ does _not_ work on mingw! PATH=..:${PATH} export DYLD_LIBRARY_PATH LD_LIBRARY_PATH LIBRARY_PATH PATH case `uname` in AIX) DIFF_OPTS=-b ;; *) DIFF_OPTS=-bu ;; esac CHICKEN=${TEST_DIR}/../${PROGRAM_PREFIX}chicken${PROGRAM_SUFFIX} CHICKEN_PROFILE=${TEST_DIR}/../${PROGRAM_PREFIX}chicken-profile${PROGRAM_SUFFIX} CHICKEN_INSTALL=${TEST_DIR}/../${PROGRAM_PREFIX}chicken-install${PROGRAM_SUFFIX} CHICKEN_UNINSTALL=${TEST_DIR}/../${PROGRAM_PREFIX}chicken-uninstall${PROGRAM_SUFFIX} CHICKEN_INSTALL_REPOSITORY=${TEST_DIR}/test-repository CHICKEN_REPOSITORY_PATH="${TEST_DIR}/..${PATH_SEP}${CHICKEN_INSTALL_REPOSITORY}" export CHICKEN_INSTALL_REPOSITORY CHICKEN_REPOSITORY_PATH TYPESDB=../types.db COMPILE_OPTIONS="-v -compiler ${CHICKEN} -I${TEST_DIR}/.. -L${TEST_DIR}/.. -include-path ${TEST_DIR}/.. -libdir ${TEST_DIR}/.. -rpath ${TEST_DIR}/.." compile="../${PROGRAM_PREFIX}csc${PROGRAM_SUFFIX} ${COMPILE_OPTIONS} -o a.out -types ${TYPESDB} -ignore-repository" compile_r="../${PROGRAM_PREFIX}csc${PROGRAM_SUFFIX} ${COMPILE_OPTIONS}" compile_s="../${PROGRAM_PREFIX}csc${PROGRAM_SUFFIX} ${COMPILE_OPTIONS} -s -types ${TYPESDB} -ignore-repository" interpret="../${PROGRAM_PREFIX}csi${PROGRAM_SUFFIX} -n -include-path ${TEST_DIR}/.." time=time # Check for a "time" command, since some systems don't ship with a # time(1) or shell builtin and we also can't portably rely on `which', # `command', etc. NOTE "time" must be called from a variable here. set +e $time true >/dev/null 2>/dev/null test $? -eq 127 && time= set -e rm -fr *.exe *.so *.o *.obj *.out *.import.* ../foo.import.* test-repository mkdir -p test-repository cp $TYPESDB test-repository/types.db echo "======================================== repository search path ..." if test -z "$MSYSTEM"; then export -p >./env.out unset CHICKEN_REPOSITORY_PATH $interpret -s repository-path-default.scm . ./env.out else env -u CHICKEN_REPOSITORY_PATH $interpret -s repository-path-default.scm fi $compile_s sample-module.scm -j sample-module cp sample-module.so $CHICKEN_INSTALL_REPOSITORY cp sample-module.import.scm $CHICKEN_INSTALL_REPOSITORY $interpret -s repository-path.scm "${TEST_DIR}/.." "${TEST_DIR}/test-repository" echo "======================================== types.db consistency ..." $interpret -s types-db-consistency.scm ${TYPESDB} echo "======================================== version tests ..." $compile version-tests.scm ./a.out echo "======================================== compiler tests ..." $compile compiler-tests.scm ./a.out echo "======================================== csc tests ..." $interpret -s csc-tests.scm echo "======================================== compiler inlining tests ..." $compile inlining-tests.scm -optimize-level 3 ./a.out echo "======================================== compiler message tests ..." $compile -analyze-only messages-test.scm 2>messages.out diff $DIFF_OPTS messages.expected messages.out echo "======================================== optimizer tests ..." $compile clustering-tests.scm -clustering ./a.out echo "======================================== profiler tests ..." $compile null.scm -profile -profile-name TEST.profile ./a.out $CHICKEN_PROFILE TEST.profile echo "======================================== scrutiny tests ..." $compile scrutinizer-tests.scm -analyze-only $compile typematch-tests.scm -specialize -no-warnings ./a.out $compile test-scrutinizer-message-format.scm -A -specialize 2>scrutinizer-message-format.out || true $compile scrutiny-tests.scm -A 2>scrutiny.out $compile scrutiny-tests-2.scm -A 2>scrutiny-2.out $compile specialization-tests.scm -A -specialize 2>specialization.out # Replace foo123 -> fooXX so gensyms don't trigger failures $compile redact-gensyms.scm -o redact-gensyms ./redact-gensyms "tmp,g,scm:,a,b" < scrutinizer-message-format.out > scrutinizer-message-format.redacted ./redact-gensyms < scrutiny-2.out > scrutiny-2.redacted ./redact-gensyms < scrutiny.out > scrutiny.redacted ./redact-gensyms < specialization.out > specialization.redacted diff $DIFF_OPTS scrutinizer-message-format.expected scrutinizer-message-format.redacted diff $DIFF_OPTS scrutiny.expected scrutiny.redacted diff $DIFF_OPTS scrutiny-2.expected scrutiny-2.redacted diff $DIFF_OPTS specialization.expected specialization.redacted $compile scrutiny-tests-3.scm -specialize -block ./a.out $compile scrutiny-tests-strict.scm -strict-types -specialize ./a.out echo "======================================== specialization tests ..." rm -f foo.types foo.import.* $compile specialization-test-1.scm -emit-types-file foo.types -specialize \ -debug ox -emit-import-library foo ./a.out $compile specialization-test-2.scm -types foo.types -types specialization-test-2.types -specialize -debug ox ./a.out rm -f foo.types foo.import.* echo "======================================== specialization benchmark ..." $compile fft.scm -O2 -local -d0 -disable-interrupts -b -o fft1.out $compile fft.scm -O2 -local -specialize -debug x -d0 -disable-interrupts -b -o fft2.out -specialize echo "normal:" $time ./fft1.out 1000 7 echo "specialized:" $time ./fft2.out 1000 7 echo "======================================== unboxing benchmark ..." $compile fft.scm -O2 -local -d0 -disable-interrupts -b -o fft1.out $compile fft.scm -O4 -debug x -d0 -disable-interrupts -b -o fft2.out echo "normal:" $time ./fft1.out 1000 7 echo "unboxing:" $time ./fft2.out 1000 7 echo "======================================== callback tests ..." $compile -extend c-id-valid.scm callback-tests.scm ./a.out if ./a.out twice; then echo "double-return from callback didn't fail" exit 1 else echo "double-return from callback failed as it should." fi echo "======================================== runtime tests ..." $interpret -s apply-test.scm $compile apply-test.scm ./a.out if ./a.out -:A10k; then echo "apply test with limited temp stack didn't fail" exit 1 else echo "apply test with limited temp stack failed as it should." fi $compile test-gc-hooks.scm ./a.out echo "======================================== library tests ..." $interpret -s library-tests.scm $compile -specialize library-tests.scm ./a.out $interpret -s records-and-setters-test.scm $compile records-and-setters-test.scm ./a.out echo "======================================== reader tests ..." $interpret -s reader-tests.scm echo "======================================== dynamic-wind tests ..." $interpret -s dwindtst.scm >dwindtst.out diff $DIFF_OPTS dwindtst.expected dwindtst.out $compile dwindtst.scm ./a.out >dwindtst.out diff $DIFF_OPTS dwindtst.expected dwindtst.out echo "======================================== lolevel tests ..." $interpret -s lolevel-tests.scm $compile -specialize lolevel-tests.scm ./a.out echo "======================================== arithmetic tests ..." $interpret -D check -s arithmetic-test.scm echo "======================================== pretty-printer tests ..." $interpret -s pp-test.scm echo "======================================== evaluation environment tests ..." $interpret -s environment-tests.scm echo "======================================== syntax tests ..." $interpret -s syntax-tests.scm echo "======================================== syntax tests (compiled) ..." $compile syntax-tests.scm ./a.out echo "======================================== syntax tests (v2, compiled) ..." $compile syntax-tests-2.scm ./a.out echo "======================================== meta-syntax tests ..." $interpret -bnq meta-syntax-test.scm -e '(import foo)' -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))" -e "(import test-import-syntax-for-syntax)" -e "(assert (equal? '(1) (test)))" -e "(import test-begin-for-syntax)" -e "(assert (equal? '(1) (test)))" $compile_s meta-syntax-test.scm -j foo $compile_s foo.import.scm $interpret -bnq meta-syntax-test.scm -e '(import foo)' -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))" -e "(import test-import-syntax-for-syntax)" -e "(assert (equal? '(1) (test)))" -e "(import test-begin-for-syntax)" -e "(assert (equal? '(1) (test)))" echo "======================================== reexport tests ..." $interpret -bnq reexport-tests.scm $compile reexport-tests.scm ./a.out rm -f reexport-m*.import* $compile_s reexport-m1.scm -J $compile_s reexport-m1.import.scm $interpret -s reexport-m2.scm $compile reexport-m2.scm ./a.out $compile_s reexport-m3.scm -J $compile_s reexport-m4.scm -J $compile_s reexport-m5.scm -J $compile_s reexport-m6.scm -J $compile reexport-tests-2.scm ./a.out echo "======================================== functor tests ..." $interpret -bnq simple-functors-test.scm $compile simple-functors-test.scm ./a.out $interpret -bnq functor-tests.scm $compile functor-tests.scm ./a.out $compile -s square-functor.scm -J $compile -s square-functor.import.scm $interpret -bnq use-square-functor.scm $compile use-square-functor.scm ./a.out $compile -s use-square-functor.scm -J $interpret -nqe '(require-library use-square-functor)' -e '(import sf1)' -e '(import sf2)' rm -f sf1.import.* sf2.import.* lst.import.* mod.import.* echo "======================================== compiler syntax tests ..." $compile compiler-syntax-tests.scm ./a.out echo "======================================== import tests ..." $interpret -bnq import-tests.scm echo "======================================== import library tests ..." rm -f ../foo.import.* foo.import.* $compile import-library-test1.scm -emit-import-library foo $interpret -s import-library-test2.scm $compile_s foo.import.scm -o foo.import.so $interpret -s import-library-test2.scm $compile import-library-test2.scm ./a.out rm -f foo.import.* echo "======================================== optionals test ..." $interpret -s test-optional.scm $compile test-optional.scm ./a.out echo "======================================== syntax tests (matchable) ..." $interpret matchable.scm -s match-test.scm echo "======================================== syntax tests (loopy-loop) ..." $interpret -s loopy-test.scm echo "======================================== r4rstest ..." echo "(expect mult-float-print-test to fail)" $interpret -e '(set! ##sys#procedure->string (constantly "#<procedure>"))' \ -i -s r4rstest.scm >r4rstest.out diff $DIFF_OPTS r4rstest.expected r4rstest.out echo "======================================== syntax tests (r5rs_pitfalls) ..." echo "(expect two failures)" $interpret -i -s r5rs_pitfalls.scm echo "======================================== r7rs tests ..." $interpret -i -s r7rs-tests.scm echo "======================================== module tests ..." $interpret -include-path ${TEST_DIR}/.. -s module-tests.scm $interpret -include-path ${TEST_DIR}/.. -s module-tests-2.scm echo "======================================== module tests (command line options) ..." module="test-$(date +%s)" $compile test.scm -A -w -j "$module" -module "$module" $interpret -e "(import-syntax $module)" rm -f "$module.import.scm" echo "======================================== module tests (compiled) ..." $compile module-tests-compiled.scm ./a.out $compile module-static-eval-compiled.scm ./a.out $compile -static module-static-eval-compiled.scm ./a.out echo "======================================== module tests (chained) ..." rm -f m*.import.* test-chained-modules.so $interpret -bnq test-chained-modules.scm $compile_s test-chained-modules.scm -j m3 $compile_s m3.import.scm $interpret -bn test-chained-modules.so $interpret -bn test-chained-modules.so -e '(import m3) (s3)' echo "======================================== module tests (ec) ..." rm -f ec.so ec.import.* $interpret -bqn ec.scm ec-tests.scm $compile_s ec.scm -emit-import-library ec -o ec.so $compile_s ec.import.scm -o ec.import.so $interpret -bnq ec.so ec-tests.scm # $compile ec-tests.scm # ./a.out # takes ages to compile echo "======================================== module tests (static link) ..." $compile_r -static -unit sample-module -J -c sample-module.scm mv sample-module.link sample-module.import.scm sample-module.o* "$CHICKEN_INSTALL_REPOSITORY" $compile_r -static module-static-link.scm -o a.out ./a.out echo "======================================== port tests ..." $interpret -s port-tests.scm echo "======================================== fixnum tests ..." $compile fixnum-tests.scm ./a.out $compile -unsafe fixnum-tests.scm ./a.out echo "======================================== random number tests ..." $interpret -s random-tests.scm echo "======================================== string->number tests ..." $interpret -s numbers-string-conversion-tests.scm $compile -specialize numbers-string-conversion-tests.scm ./a.out echo "======================================== basic numeric ops tests ..." $interpret -s numbers-test.scm $compile -specialize numbers-test.scm ./a.out echo "======================================== Alex Shinn's numeric ops tests ..." $interpret -s numbers-test-ashinn.scm $compile -specialize numbers-test-ashinn.scm ./a.out echo "======================================== Gauche's numeric ops tests ..." $interpret -s numbers-test-gauche.scm $compile -specialize numbers-test-gauche.scm ./a.out echo "======================================== srfi-4 tests ..." $interpret -s srfi-4-tests.scm echo "======================================== condition tests ..." $interpret -s condition-tests.scm echo "======================================== data-structures tests ..." $interpret -s data-structures-tests.scm echo "======================================== path tests ..." $interpret -bnq path-tests.scm echo "======================================== srfi-45 tests ..." $interpret -s srfi-45-tests.scm echo "======================================== posix tests ..." $compile posix-tests.scm ./a.out echo "======================================== file access tests ..." if test -n "$MSYSTEM"; then $interpret -s file-access-tests.scm // $interpret -s file-access-tests.scm \\ else $interpret -s file-access-tests.scm / fi echo "======================================== find-files tests ..." $interpret -bnq test-find-files.scm echo "======================================== record-renaming tests ..." $interpret -bnq record-rename-test.scm echo "======================================== regular expression tests ..." $interpret -bnq test-irregex.scm $interpret -bnq test-glob.scm echo "======================================== compiler/nursery stress test ..." for s in 100000 120000 200000 250000 300000 350000 400000 450000 500000; do echo " $s" ${CHICKEN} -ignore-repository ../port.scm -:s$s -output-file tmp.c -include-path ${TEST_DIR}/.. done echo "======================================== heap literal stress test ..." $compile heap-literal-stress-test.scm for s in 100000 120000 200000 250000 300000 350000 400000 450000 500000; do echo " $s" ./a.out -:d -:g -:hi$s done echo "======================================== symbol-GC tests ..." $compile symbolgc-tests.scm ./a.out echo "======================================== finalizer tests ..." $interpret -s test-finalizers.scm $compile test-finalizers.scm ./a.out $compile finalizer-error-test.scm echo "expect an error message here:" ./a.out -:hg101 $compile test-finalizers-2.scm ./a.out echo "======================================== locative stress test ..." $compile locative-stress-test.scm ./a.out echo "======================================== syntax-rules stress test ..." $time $interpret -bnq syntax-rule-stress-test.scm echo "======================================== include test ..." mkdir -p a/b echo > a/b/ok.scm echo '(include "a/b/ok.scm")' > a/b/include.scm $compile -analyze-only a/b/include.scm echo '(include "b/ok.scm")' > a/b/include.scm $compile -analyze-only a/b/include.scm -include-path a echo '(include-relative "ok.scm")' > a/b/include.scm $compile -analyze-only a/b/include.scm echo '(include-relative "b/ok.scm")' > a/include.scm $compile -analyze-only a/include.scm echo '(include-relative "b/ok.scm")' > a/b/include.scm $compile -analyze-only a/b/include.scm -include-path a rm -r a echo "======================================== executable tests ..." $compile executable-tests.scm ./a.out "$TEST_DIR/a.out" echo "======================================== user pass tests ..." $compile -extend user-pass-tests.scm null.scm echo "======================================== embedding (1) ..." $compile embedded1.c ./a.out echo "======================================== embedding (2) ..." $compile -e embedded2.scm ./a.out echo "======================================== embedding (3) ..." $compile -e embedded3.c embedded4.scm ./a.out echo "======================================== linking tests ..." $compile_r -unit reverser reverser/tags/1.0/reverser.scm -J -c mv reverser/tags/1.0/reverser.o* ./ $compile_r -link reverser linking-tests.scm -o a.out ./a.out $compile_r -link reverser linking-tests.scm -o a.out -static ./a.out mv reverser.o* reverser.import.scm "$CHICKEN_INSTALL_REPOSITORY" $compile_r -link reverser linking-tests.scm -o a.out ./a.out $compile_r -link reverser linking-tests.scm -o a.out -static ./a.out echo "======================================== private repository test ..." mkdir -p tmp $compile private-repository-test.scm -private-repository -o tmp/xxx tmp/xxx ${TEST_DIR}/tmp # This MUST be `pwd`: ${PWD} is not portable, and ${TEST_DIR} breaks mingw-msys PATH=`pwd`/tmp:$PATH xxx ${TEST_DIR}/tmp # this may crash, if the PATH contains a non-matching libchicken.dll on Windows: #PATH=$PATH:${TEST_DIR}/tmp xxx ${TEST_DIR}/tmp echo "======================================== multiple return values tests ..." $interpret -s multiple-values.scm $compile multiple-values.scm ./a.out echo "======================================== done." ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/redact-gensyms.scm��������������������������������������������������������������0000644�0001750�0001750�00000001447�13502227553�017534� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module redact-gensyms () (import (scheme)) (import (chicken base)) (import (chicken irregex)) (import (chicken type)) (import (only (chicken io) read-line) (only (chicken process-context) command-line-arguments) (only (chicken string) string-split)) (define prefixes (if (null? (command-line-arguments)) '("tmp" "g" "scm:") (string-split (car (command-line-arguments)) ","))) (let ((rege (irregex `(: bow ($ (or ,@prefixes)) (+ numeric))))) (print ";; numbers replaced with XXX by redact-gensyms.scm") (print ";; prefixes: " prefixes) (let lp () (let ((l (read-line))) (if (not (eof-object? l)) (begin (print (irregex-replace/all rege l 1 "XXX")) (lp))))))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reexport-m3.scm�����������������������������������������������������������������0000644�0001750�0001750�00000000347�13370655400�016771� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; export syntax with implicit value export (reexport-test-2.scm) (module reexport-m3 ((foo bar)) (import scheme chicken.base) (define (bar) 1) (define-syntax foo (ir-macro-transformer (lambda (e i c) `(bar))))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/numbers-string-conversion-tests.scm���������������������������������������������0000644�0001750�0001750�00000037266�13370655400�023120� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; ;;; Numerical syntax "torture test" ;;; ;;; This tries to test a lot of edge cases in Scheme's numerical syntax. ;;; ;;; Output is written so that if you run it through "grep ERROR" it will ;;; output nothing (and exit status will be nonzero) if there are no errors. ;;; If you run it through "tail -n 1" you will just get the total error summary. ;;; ;;; This code assumes that string->number accepts numbers with embedded radix ;;; specifiers (R5RS mentions that it's allowed to return #f in those cases). ;;; It also doesn't try to support Schemes which support *only* integers or ;;; *only* flonums (which is also allowed by R5RS). ;;; ;;; ;; The prelude below is messy but required to get everything working ;; with some of the major Schemes. ;; ;; Also note that to test with Gambit, it appears you first need to type in ;; (load "~~/lib/syntax-case") and then load this file, or use gsi's -:s switch ;;; (import (chicken format)) ; Chicken w/ numbers ;(use-syntax (ice-9 syncase)) ; Guile ;; Set this to #f if the Scheme has no compnums at all, 'inexact if it only ;; supports inexact compnums or 'exact if it supports exact compnums. ;; (Gauche, Guile, SCM: inexact, Chicken w/o numbers: #f) (define compnum-type 'exact) ;; Set this to #f if the Scheme has no fractional number support, ;; 'exact if it supports rational numbers and 'inexact if it converts fractions ;; to floating-point, inexact numbers (define fraction-type 'exact) ;; Fix these if your Scheme doesn't allow division by zero (define the-nan (/ 0.0 0.0)) (define pos-inf (/ 1.0 0.0)) (define neg-inf (/ -1.0 0.0)) ; Scheme48, Racket, Gambit, SCM ;(define (nan? x) (and (number? x) (not (= x x)))) (define total-errors 0) (define (check-string-against-values! str . possible-values) (let ((res (string->number str))) (let lp ((values possible-values)) (if (null? values) (begin (display "PARSE ERROR ") (write (cons str possible-values)) (display " => ") (write res) (newline) (set! total-errors (+ total-errors 1))) (let ((value (car values))) (if (not (or (and (not (string? value)) (equal? res value)) (and res (nan? res) (or (and value (nan? value)))))) (lp (cdr values)) (let ((re-str (and res (number->string res)))) (let lp2 ((values possible-values)) (if (null? values) (begin (display "SERIALIZATION ERROR ") (write (cons str possible-values)) (display " => ") (write re-str) (newline) (set! total-errors (+ total-errors 1))) (let ((value (car values))) (if (not (or (and res (string=? re-str str)) (and (not res) (not value)) (and res (string? value) (string=? re-str value)))) (lp2 (cdr values)) (begin (display "OK ") (write (cons str possible-values)) (newline))))))))))))) (define-syntax test-numbers (syntax-rules (compnums fractions) ((_ (compnums (types e1 ...) ...) rest ...) (begin (case compnum-type (types (test-numbers e1 ... "no-totals")) ...) (test-numbers rest ...))) ((_ (fractions (types e1 ...) ...) rest ...) (begin (case fraction-type (types (test-numbers e1 ... "no-totals")) ...) (test-numbers rest ...))) ((_ (str value ...) rest ...) (begin (check-string-against-values! str value ...) (test-numbers rest ...))) ((_ "no-totals") #f) ((_ x rest ...) (begin (newline) (display "-> ") (display x) (newline) (display "-----------------------------------------------------") (newline) (test-numbers rest ...))) ((_) (if (= 0 total-errors) (begin (newline) (display "-----> Everything OK, no errors!") (newline)) (begin (newline) (display "-----> TOTAL ERRORS: ") (display total-errors) (newline) (exit 1)))))) (test-numbers "Simple integers" ("1" 1) ("+1" 1 "1") ("-1" (- 1)) ("#i1" 1.0 "1.0" "1.") ("#I1" 1.0 "1.0" "1.") ("#i-1" (- 1.0) "-1.0" "-1.") ("123\x00456" #f) ("-#i1" #f) ("+-1" #f) ("" #f) ("-" #f) ("+" #f) ("+-" #f) "Basic decimal notation" ("1.0" (exact->inexact 1) "1.") ("1." 1.0 "1.0" "1.") ("1.#" 1.0 1.5 "1.0" "1." "1.5") (".1" 0.1 "0.1" "100.0e-3") ("-.1" (- 0.1) "-0.1" "-100.0e-3") ;; Some Schemes don't allow negative zero. This is okay with the standard ("-.0" -0.0 "-0." "-0.0" "0.0" "0." ".0") ("-0." -0.0 "-.0" "-0.0" "0.0" "0." ".0") ("." #f) (".1." #f) ("..1" #f) ("1.." #f) ("#i1.0" 1.0 "1.0" "1.") ("#e1.0" 1 "1") ("#e-.0" 0 "0") ("#e-0." 0 "0") ("-#e.0" #f) "Decimal notation with padding" ("1#" 10.0 15.0 "10.0" "15.0" "10." "15.") ("#e1#" 10 15 "10" "15") ("#E1#" 10 15 "10" "15") ("#1" #f) ("#" #f) ("1#2" #f) ("1.#2" #f) (".#" #f) ("#.#" #f) ("#.1" #f) ("1#.2" #f) ("1#." 10.0 15.0 "10.0" "15.0" "10." "15.") "Decimal notation with suffix" ("1e2" 100.0 "100.0" "100.") ("1E2" 100.0 "100.0" "100.") ("1s2" 100.0 "100.0" "100.") ("1S2" 100.0 "100.0" "100.") ("1f2" 100.0 "100.0" "100.") ("1F2" 100.0 "100.0" "100.") ("1d2" 100.0 "100.0" "100.") ("1D2" 100.0 "100.0" "100.") ("1l2" 100.0 "100.0" "100.") ("1L2" 100.0 "100.0" "100.") ("1e2e3" #f) ("1e2s3" #f) ("1e2.0" #f) "Decimal notation with suffix and padding" ("1#e2" 1000.0 1500.0 "1000.0" "1500.0" "1000." "1500." "1.0e3" "15.0e2") ("1e2#" #f) "NaN, Inf" ("+nan.0" the-nan "+NaN.0") ("+NAN.0" the-nan "+nan.0" "+NaN.0") ("+nan.1" #f) ("+nan.01" #f) ("+inf.0" pos-inf "+Inf.0") ("+InF.0" pos-inf "+inf.0" "+Inf.0") ("-inf.0" neg-inf "-Inf.0") ("-iNF.0" neg-inf "-inf.0" "-Inf.0") ("+inf.01" #f) ("+inf.1" #f) ("-inf.01" #f) ("-inf.1" #f) ("+inf.0/1" #f) ("1/+inf.0" #f) ("+nan" #f) ("+inf" #f) ("-inf" #f) ("nan.0" #f) ("inf.0" #f) ;; Thanks to John Cowan for these ("#e+nan.0" #f) ("#e+inf.0" #f) ("#e-inf.0" #f) ("#i+nan.0" the-nan "+nan.0" "+NaN.0") ("#i+inf.0" pos-inf "+inf.0" "+Inf.0") ("#i-inf.0" neg-inf "-inf.0" "-Inf.0") "Fractions" (fractions ((exact) ("1/2" (/ 1 2)) ("#e1/2" (/ 1 2) "1/2") ("10/2" 5 "5") ("-1/2" (- (/ 1 2))) ("10/0" #f) ("0/10" 0 "0") ("#e0/10" 0 "0") ("#e1#/2" 5 (/ 15 2) "5" "15/2") ("#e1/2#" (/ 1 20) "1/20") ("#i3/2" (/ 3.0 2.0) "1.5")) ((inexact) ("1/2" (/ 1 2) "0.5" ".5" "500.0e-3") ("0/10" 0.0 "0.0") ("10/2" 5.0 "5.0" "5.") ;; Unsure what "#e1/2" is supposed to do in Scheme w/o exact fractions ("#i10/2" 5.0 "5.0" "5.") ("-1/2" (- (/ 1 2)) "-0.5" "-.5" "-500.0e-3"))) (fractions ((inexact exact) ("#i1/0" pos-inf "+inf.0" "+Inf.0") ("#i-1/0" neg-inf "-inf.0" "-Inf.0") ("#i0/0" the-nan "+nan.0" "+NaN.0") ;; This _could_ be valid in some Schemes (but isn't as pretty) ;("#i1/0" #f) ;("#i-1/0" #f) ;("#i0/0" #f) ("1/-2" #f) ("1.0/2" #f) ("1/2.0" #f) ("1/2e2" #f) ("1/2e2" #f) ("1#/2" 5.0 7.5 "5.0" "5." "7.5") ("1/2#" 0.05 "0.05" ".05" "50.0e-3" "5.e-002") ("1#/#" #f) ("1/" #f) ("1/+" #f) ("+/1" #f) ("/1" #f) ("/" #f))) "Basic complex numbers (rectangular notation)" (compnums ((exact) ("1+2i" (make-rectangular 1 2)) ("1+2I" (make-rectangular 1 2) "1+2i") ("1-2i" (make-rectangular 1 -2)) ("-1+2i" (make-rectangular -1 2)) ("-1-2i" (make-rectangular -1 -2)) ("+i" (make-rectangular 0 1) "+1i" "0+i" "0+1i") ("0+i" (make-rectangular 0 1) "+i" "+1i" "0+1i") ("0+1i" (make-rectangular 0 1) "+i" "+1i" "0+i") ("-i" (make-rectangular 0 -1) "-1i" "0-i" "0-1i") ("0-i" (make-rectangular 0 -1) "-i" "-1i" "0-1i") ("0-1i" (make-rectangular 0 -1) "-i" "-1i" "0-i") ("+2i" (make-rectangular 0 2) "0+2i") ("-2i" (make-rectangular 0 -2) "-2i" "0-2i")) ((inexact) ("1+2i" (make-rectangular 1 2) "1.0+2.0i" "1.+2.i") ("1+2I" (make-rectangular 1 2) "1.0+2.0i" "1.+2.i") ("1-2i" (make-rectangular 1 -2) "1.0-2.0i" "1.-2.i") ("-1+2i" (make-rectangular -1 2) "-1.0+2.0i" "-1.+2.i") ("-1-2i" (make-rectangular -1 -2) "-1.0-2.0i" "-1.-2.i") ("+i" (make-rectangular 0 1) "+1.i" "+1.0i" "0.+1.i" "0.0+1.0i") ("0+i" (make-rectangular 0 1) "0+1i" "+1.i" "+1.0i" "0.+1.i" "0.0+1.0i") ("0+1i" (make-rectangular 0 1) "+1.i" "+1.0i" "0.+1.i" "0.0+1.0i") ("-i" (make-rectangular 0 -1) "-1.i" "-1.0i" "0.-1.i" "0.0-1.0i") ("0-i" (make-rectangular 0 -1) "-1.i" "-1.0i" "0.-1.i" "0.0-1.0i") ("0-1i" (make-rectangular 0 -1) "-1.i" "-1.0i" "0.-1.i" "0.0-1.0i") ("+2i" (make-rectangular 0 2) "+2.0i" "+2.i" "0.+2.i" "0.0+2.0i") ("-2i" (make-rectangular 0 -2) "-2.0i" "-2.i" "0.-2.i" "0.0-2.0i"))) (compnums ((exact inexact) ("1#+1#i" (make-rectangular 10.0 10.0) (make-rectangular 15.0 15.0) "10.0+10.0i" "10.+10.i" "15.0+15.0i" "15.+15.i"))) ("2i" #f) ("+-i" #f) ("i" #f) ("1+2i1" #f) ("1+2" #f) ("1#+#i" #f) (compnums ((exact inexact) "Decimal-notation complex numbers (rectangular notation)" ("1.0+2i" (make-rectangular 1.0 2) "1.0+2.0i" "1.0+2i" "1.+2i" "1.+2.i") ("1+2.0i" (make-rectangular 1 2.0) "1.0+2.0i" "1+2.0i" "1.+2.i" "1+2.i") ("1#.+1#.i" (make-rectangular 10.0 10.0) (make-rectangular 15.0 15.0) "10.0+10.0i" "10.+10.i" "15.0+15.0i" "15.+15.i") ("1e2+1.0i" (make-rectangular 100.0 1.0) "100.0+1.0i" "100.+1.i") ("1s2+1.0i" (make-rectangular 100.0 1.0) "100.0+1.0i" "100.+1.i") ("1.0+1e2i" (make-rectangular 1.0 100.0) "1.0+100.0i" "1.+100.i") ("1.0+1s2i" (make-rectangular 1.0 100.0) "1.0+100.0i" "1.+100.i") ("1#e2+1.0i" (make-rectangular 1000.0 1.0) (make-rectangular 1500.0 1.0) "1000.0+1.0i" "1000.+1.i" "1500.0+1.0i" "1500.+1.i" "1.0e3+1.0i" "15.0e2+1.0i") ("1.0+1#e2i" (make-rectangular 1.0 1000.0) (make-rectangular 1.0 1500.0) "1.0+1000.0i" "1.+1000.i" "1.0+1500.0i" "1.+1500.i" "1.0+1.0e3i" "1.0+15.0e2i") (".i" #f) ("+.i" #f) (".+i" #f))) (compnums ((exact) "Fractional complex numbers (rectangular notation)" ("1/2+3/4i" (make-rectangular (/ 1 2) (/ 3 4)))) ((inexact) "Fractional complex numbers (rectangular notation)" ("1/2+3/4i" (make-rectangular (/ 1 2) (/ 3 4)) "0.5+0.75i" ".5+.75i" "500.0e-3+750.0e-3i"))) (compnums ((exact inexact) "Mixed fractional/decimal notation complex numbers (rectangular notation)" ("1#/2+3/4i" (make-rectangular 5.0 (/ 3 4)) (make-rectangular 7.5 (/ 3 4)) "5.0+0.75i" "5.+.75i" "7.5+0.75i" "5.0+3/4i" "5.+3/4i" "7.5+3/4i" "5.0+750.0e-3i") ("0.5+3/4i" (make-rectangular 0.5 (/ 3 4)) "0.5+0.75i" ".5+.75i" "0.5+3/4i" ".5+3/4i" "500.0e-3+750.0e-3i") ("1.5+1#/4i" (make-rectangular 1.5 2.5) (make-rectangular 1.5 3.75) "1.5+2.5i" "1.5+3.75i") ("0.5+1/#i" #f) ("0.5+1/1#2i" #f) ("1/#+0.5i" #f) ("1/1#2+0.5i" #f) "Mixed notation with infinity (might fail on mixed exactness compnums)" ;; This is a nasty one. Switch to inexact *after* reading the first number. ;; Note that it's perfectly acceptable for a scheme with *mixed* exactness ;; in complex values to return #f here. TODO: How to parameterize this, we ;; *really* want to test that single-exactness compnums systems accept this. ("1/0+1.2i" (make-rectangular pos-inf 1.2) "+inf.0+1.2i" "+Inf.0+1.2i") ;; Less nasty, most get this right. Same caveat as above re: mixed exactness ("1.2+1/0i" (make-rectangular 1.2 pos-inf) "1.2+inf.0i" "1.2+Inf.0"))) (compnums ((exact inexact) "Complex NaN, Inf (rectangular notation)" ("+nan.0+nan.0i" (make-rectangular the-nan the-nan) "+NaN.0+NaN.0i") ("+inf.0+inf.0i" (make-rectangular pos-inf pos-inf) "+Inf.0+Inf.0i") ("-inf.0+inf.0i" (make-rectangular neg-inf pos-inf) "-Inf.0+Inf.0i") ("-inf.0-inf.0i" (make-rectangular neg-inf neg-inf) "-Inf.0-Inf.0i") ("+inf.0-inf.0i" (make-rectangular pos-inf neg-inf) "+Inf.0-Inf.0i") "Complex numbers (polar notation)" ;; TODO: Add some here. The problem is the representation ;; is hard to nail down when echoed back as rectangular ;; since they're floating point with many digits, and depend ;; on the precision of PI used internally. ("1@2i" #f) ("0.5@1/#" #f) ("0.5@1/1#2" #f) ("1/#@0.5" #f) ("1/1#2@0.5" #f) ("1@" #f) ("1#@#" #f) ("1/@" #f) ("@/1" #f) ("@1" #f) ("1@+" #f) ("+@1" #f) ("@" #f))) "Base prefixes" ("#x11" 17 "17") ("#X11" 17 "17") ("#d11" 11 "11") ("#D11" 11 "11") ("#o11" 9 "9") ("#O11" 9 "9") ("#b11" 3 "3") ("#B11" 3 "3") ("#da1" #f) ("#o8" #f) ("#b2" #f) ("#o7" 7 "7") ("#xa" 10 "10") ("#xA" 10 "10") ("#xf" 15 "15") ("#xg" #f) ("#x-10" -16 "-16") ("#d-10" -10 "-10") ("#o-10" -8 "-8") ("#b-10" -2 "-2") ("-#x10" #f) ("-#d10" #f) ("-#o10" #f) ("-#b10" #f) ("#x-" #f) ("#x" #f) ("#d" #f) ("#d-" #f) ("#d+" #f) ("#o" #f) ("#o-" #f) ("#b" #f) ("#b-" #f) ("#e" #f) ("#e-" #f) ("#i" #f) ("#i-" #f) "Combination of prefixes" ("#x#x11" #f) ("#x#b11" #f) ("#b#o11" #f) ("#e#x10" 16 "16") ("#i#x10" 16.0 "16.0" "16.") ("#e#e10" #f) ("#e#e#x10" #f) ("#E#e#X10" #f) ("#i#e#x10" #f) ("#e#x#e10" #f) ("#x#x#e10" #f) ("#x#e#x10" #f) "Base prefixes with padding" ("#x1#0" #f) ("#d1#0" #f) ("#o1#0" #f) ("#b1#0" #f) ("#x1#" 16.0 24.0 "16.0" "24.0" "16." "24.") ("#d1#" 10.0 15.0 "10.0" "15.0" "10." "15.") ("#o1#" 8.0 12.0 "8.0" "12.0" "8." "12.") ("#b1#" 2.0 3.0 "2.0" "3.0" "2." "3.") "(Attempted) decimal notation with base prefixes" ("#x1.0" #f) ("#d1.0" 1.0 "1.0" "1.") ("#o1.0" #f) ("#b1.0" #f) ("#x1.#" #f) ("#d1.#" 1.0 1.5 "1.0" "1.5" "1.") ("#o1.#" #f) ("#b1.#" #f) ("#x1." #f) ("#d1." 1.0 "1.0" "1.") ("#o1." #f) ("#b1." #f) ("#x.1" #f) ("#d.1" 0.1 "0.1" ".1" "100.0e-3") ("#o.1" #f) ("#b.1" #f) ("#x1e2" 482 "482") ("#d1e2" 100.0 "100.0" "100.") ("#o1e2" #f) ("#b1e2" #f) "Fractions with prefixes" (fractions ((inexact) ("#x10/2" 8.0 "8.0" "8.") ("#x11/2" 8.5 "8.5") ("#d11/2" 5.5 "5.5") ("#o11/2" 4.5 "4.5") ("#b11/10" 1.5 "1.5")) ((exact) ("#x10/2" 8 "8") ("#x11/2" (/ 17 2) "17/2") ("#d11/2" (/ 11 2) "11/2") ("#o11/2" (/ 9 2) "9/2") ("#b11/10" (/ 3 2) "3/2"))) (fractions ((inexact exact) ("#b11/2" #f) ("#x10/#o10" #f) ("10/#o10" #f) ("#x1#/2" 8.0 12.0 "8.0" "8." "12.0" "12.") ("#d1#/2" 5.0 7.5 "5.0" "5." "7.5") ("#o1#/2" 4.0 6.0 "4.0" "4." "6.0" "6.") ("#b1#/2" #f) ("#b1#/10" 1.0 1.5 "1.0" "1." "1.5"))) (compnums ((exact inexact) "Complex numbers with prefixes" ("#x1#+1#i" (make-rectangular 16.0 16.0) (make-rectangular 24.0 24.0) "16.0+16.0i" "16.+16.i" "24.0+24.0i" "24.+24.i") ("#x1.0+1.0i" #f) ("#d1.0+1.0i" (make-rectangular 1.0 1.0) "1.0+1.0i" "1.+1.i") ("#o1.0+1.0i" #f) ("#b1.0+1.0i" #f) ("#x10+#o10i" #f) ("10+#o10i" #f) ("#x1@#x1" #f) ("1@#x1" #f))) (compnums ((exact) ("#x10+11i" (make-rectangular 16 17) "16+17i") ("#d10+11i" (make-rectangular 10 11) "10+11i") ("#o10+11i" (make-rectangular 8 9) "8+9i") ("#b10+11i" (make-rectangular 2 3) "2+3i") ("#e1.0+1.0i" (make-rectangular 1 1) "1+1i" "1+i") ("#i1.0+1.0i" (make-rectangular 1.0 1.0) "1.0+1.0i" "1.+1.i")) ((inexact) ("#x10+11i" (make-rectangular 16 17) "16.0+17.0i" "16.+17.i") ("#d10+11i" (make-rectangular 10 11) "10.0+11.0i" "10.+11.i") ("#o10+11i" (make-rectangular 8 9) "8.0+9.0i" "8.+9.i") ("#b10+11i" (make-rectangular 2 3) "2.0+3.0i" "2.+3.i"))) ) ;; #1272 - Bases not in [2,36] throw errors. (let ((check-base (lambda (b) (string->number "123" b) (error "No error on invalid base" b)))) (condition-case (check-base 1) ((exn type) 'ok)) (condition-case (check-base 37) ((exn type) 'ok))) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/test-gc-hooks.scm���������������������������������������������������������������0000644�0001750�0001750�00000001212�13370655400�017263� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test-gc-hooks.scm (import (chicken gc)) #> static int count = 0; static void gc_start(int mode) { printf(">>>>> GC pre hook - mode=%d, count=%d\n", mode, count++); } static void gc_end(int mode, long ms) { printf("<<<<< GC post hook - mode=%d, count=%d, ms=%ld\n", mode, --count, ms); } <# (set-gc-report! #t) (foreign-code #<<EOF C_pre_gc_hook = gc_start; C_post_gc_hook = gc_end; EOF ) (print "major gc ...") (gc) (print "minor gc ...") (gc #f) (print "alloc ...") (make-string 10000000) (print "resize ...") (##sys#gc '()) (print "major gc ...") (gc) (print "minor gc ...") (gc #f) (assert (zero? (foreign-value "count" int))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reexport-m6.scm�����������������������������������������������������������������0000644�0001750�0001750�00000000125�13464106433�016767� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module reexport-m6 () (import (chicken module)) (reexport (prefix reexport-m5 f:))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/port-tests.scm������������������������������������������������������������������0000644�0001750�0001750�00000032660�13370655400�016733� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import chicken.condition chicken.file chicken.file.posix chicken.flonum chicken.format chicken.io chicken.port chicken.process chicken.process.signal chicken.tcp srfi-4) (include "test.scm") (test-begin "ports") (define-syntax assert-error (syntax-rules () ((_ expr) (assert (handle-exceptions _ #t expr #f))))) (define *text* #<<EOF this is a test <foof> #;33> (let ((in (open-input-string ""))) (close-input-port in) (read-char in)) [09:40] <foof> Error: (read-char) port already closed: #<input port "(string)"> <foof> #;33> (let ((in (open-input-string ""))) (close-input-port in) (read-line in)) <foof> Error: call of non-procedure: #t <foof> ... that's a little odd <Bunny351> yuck. [09:44] <Bunny351> double yuck. [10:00] <sjamaan> yuck squared! [10:01] <Bunny351> yuck powered by yuck <Bunny351> (to the power of yuck, of course) [10:02] <pbusser3> My yuck is bigger than yours!!! <foof> yuck! <foof> (that's a factorial) <sjamaan> heh <sjamaan> I think you outyucked us all [10:03] <foof> well, for large enough values of yuck, yuck! ~= yuck^yuck [10:04] ERC> EOF ) (define p (open-input-string *text*)) (assert (string=? "this is a test" (read-line p))) (assert (string=? "<foof> #;33> (let ((in (open-input-string \"\"))) (close-input-port in)" (read-line p))) (assert (= 20 (length (read-lines (open-input-string *text*))))) (assert (char-ready? (open-input-string ""))) (let ((out (open-output-string))) (test-equal "Initially, output string is empty" (get-output-string out) "") (display "foo" out) (test-equal "output can be extracted from output string" (get-output-string out) "foo") (close-output-port out) (test-equal "closing a string output port has no effect on the returned data" (get-output-string out) "foo") (test-error "writing to a closed string output port is an error" (display "bar" out))) ;;; copy-port (assert (string=? *text* (with-output-to-string (lambda () (copy-port (open-input-string *text*) (current-output-port)))))) ; read-char -> write-char (assert (equal? '(3 2 1) (let ((out '())) (copy-port ; read -> custom (open-input-string "1 2 3") #f read (lambda (x port) (set! out (cons x out)))) out))) (assert (equal? "abc" (let ((out (open-output-string))) (copy-port ; read-char -> custom (open-input-string "abc") out read-char (lambda (x out) (write-char x out))) (get-output-string out)))) (assert (equal? "abc" (let ((in (open-input-string "abc") ) (out (open-output-string))) (copy-port ; custom -> write-char in out (lambda (in) (read-char in))) (get-output-string out)))) ;; {input,output}-port-open? (assert (input-port-open? (open-input-string "abc"))) (assert (output-port-open? (open-output-string))) (assert-error (input-port-open? (open-output-string))) (assert-error (output-port-open? (open-input-string "abc"))) ;; direction-specific port closure (let* ((n 0) (p (make-input-port (constantly #\a) (constantly #t) (lambda () (set! n (add1 n)))))) (close-output-port p) (assert (input-port-open? p)) (assert (= n 0)) (close-input-port p) (assert (not (input-port-open? p))) (assert (= n 1)) (close-input-port p) (assert (not (input-port-open? p))) (assert (= n 1))) (let* ((n 0) (p (make-output-port (lambda () (display #\a)) (lambda () (set! n (add1 n)))))) (close-input-port p) (assert (output-port-open? p)) (assert (= n 0)) (close-output-port p) (assert (not (output-port-open? p))) (assert (= n 1)) (close-output-port p) (assert (not (output-port-open? p))) (assert (= n 1))) ;; bidirectional ports (let* ((b (string)) (w (lambda (s) (set! b (string-append b s)))) (e (lambda () (positive? (string-length b)))) (r (lambda () (let ((s b)) (set! b (substring s 1)) (string-ref s 0)))) (i (make-input-port r e void)) (o (make-output-port w void)) (p (make-bidirectional-port i o))) (assert (input-port? p)) (assert (output-port? p)) (assert (input-port-open? p)) (assert (output-port-open? p)) (display "quartz ruby" p) (newline p) (assert (equal? (read p) 'quartz)) (assert (equal? (read i) 'ruby)) (display "emerald topaz" p) (newline p) (close-output-port p) (assert (not (output-port-open? o))) (assert (not (output-port-open? p))) (assert (equal? (read p) 'emerald)) (assert (equal? (read i) 'topaz)) (close-input-port p) (assert (not (input-port-open? i))) (assert (not (input-port-open? p)))) ;; fill buffers (with-input-from-file "compiler.scm" read-string) (print "slow...") (time (with-input-from-file "compiler.scm" (lambda () (with-output-to-file "compiler.scm.2" (lambda () (copy-port (current-input-port) (current-output-port) (lambda (port) (read-char port)) (lambda (x port) (write-char x port)))))))) (print "fast...") (time (with-input-from-file "compiler.scm" (lambda () (with-output-to-file "compiler.scm.2" (lambda () (copy-port (current-input-port) (current-output-port))))))) (delete-file "compiler.scm.2") (define-syntax check (syntax-rules () ((_ (expr-head expr-rest ...)) (check 'expr-head (expr-head expr-rest ...))) ((_ name expr) (let ((okay (list 'okay))) (assert (eq? okay (condition-case (begin (print* name "...") (flush-output) (let ((output expr)) (printf "FAIL [ ~S ]\n" output))) ((exn i/o file) (printf "OK\n") okay)))))))) (cond-expand ((not mingw32) (define proc (process-fork (lambda () (tcp-accept (tcp-listen 8080))))) (on-exit (lambda () (handle-exceptions exn #f (process-signal proc)))) (print "\n\nProcedures check on TCP ports being closed\n") (receive (in out) (let lp () (condition-case (tcp-connect "localhost" 8080) ((exn i/o net) (lp)))) (close-output-port out) (close-input-port in) (check (tcp-addresses in)) (check (tcp-port-numbers in)) (check (tcp-abandon-port in))) ; Not sure about abandon-port ;; This tests for two bugs which occurred on NetBSD and possibly ;; other platforms, possibly due to multiprocessing: ;; read-line with EINTR would loop endlessly and process-wait would ;; signal a condition when interrupted rather than retrying. (set-signal-handler! signal/chld void) ; Should be a noop but triggers EINTR (receive (in out) (create-pipe) (receive (pid ok? status) (process-wait (process-fork (lambda () (file-close in) ; close receiving end (with-output-to-port (open-output-file* out) (lambda () (display "hello, world\n") ;; exit prevents buffers from being discarded by implicit _exit (exit 0)))))) (file-close out) ; close sending end (assert (equal? '(#t 0 ("hello, world")) (list ok? status (read-lines (open-input-file* in))))))) ) (else)) (print "\n\nProcedures check on output ports being closed\n") (with-output-to-file "empty-file" void) (call-with-output-file "empty-file" (lambda (out) (close-output-port out) (check (write '(foo) out)) (check (fprintf out "blabla")) (check "print-call-chain" (begin (print-call-chain out) (void))) (check (print-error-message (make-property-condition 'exn 'message "foo") out)) (check "print" (with-output-to-port out (lambda () (print "foo")))) (check "print*" (with-output-to-port out (lambda () (print* "foo")))) (check (display "foo" out)) (check (terminal-port? out)) ; Calls isatty() on C_SCHEME_FALSE? (check (newline out)) (check (write-char #\x out)) (check (write-line "foo" out)) (check (write-u8vector '#u8(1 2 3) out)) ;;(check (port->fileno in)) (check (flush-output out)) #+(not mingw32) (begin (check (file-test-lock out)) (check (file-lock out)) (check (file-lock/blocking out))) (check (write-byte 120 out)) (check (write-string "foo" #f out)))) (print "\n\nProcedures check on input ports being closed\n") (call-with-input-file "empty-file" (lambda (in) (close-input-port in) (check (read in)) (check (read-char in)) (check (char-ready? in)) (check (peek-char in)) ;;(check (port->fileno in)) (check (terminal-port? in)) ; Calls isatty() on C_SCHEME_FALSE? (check (read-line in 5)) (check (read-u8vector 5 in)) (check "read-u8vector!" (let ((dest (make-u8vector 5))) (read-u8vector! 5 dest in))) #+(not mingw32) (begin (check (file-test-lock in)) (check (file-lock in)) (check (file-lock/blocking in))) (check (read-byte in)) (check (read-token (constantly #t) in)) (check (read-string 10 in)) (check "read-string!" (let ((buf (make-string 10))) (read-string! 10 buf in) buf)))) (print "\nEmbedded NUL bytes in filenames are rejected\n") (assert-error (with-output-to-file "embedded\x00null-byte" void)) ;;; #978 -- port-position checks for read-line (define (read-line/pos p limit) ;; common (let ((s (read-line p limit))) (let-values (((row col) (port-position p))) (list s row col)))) (define (read-string-line/pos str limit) (read-line/pos (open-input-string str) limit)) (define (read-process-line/pos cmd args limit) (let-values (((i o pid) (process cmd args))) (let ((rc (read-line/pos i limit))) (close-input-port i) (close-output-port o) rc))) (define (read-echo-line/pos str limit) (read-process-line/pos "echo" (list "-n" str) limit)) (define (test-port-position proc) (test-equal "advance row when encountering delim" (proc "abcde\nfghi" 6) '("abcde" 2 0)) (test-equal "reaching limit sets col to limit, and does not advance row" (proc "abcdefghi" 6) '("abcdef" 1 6)) (test-equal "delimiter counted in limit" ;; observed behavior, strange (proc "abcdef\nghi" 6) '("abcdef" 1 6)) (test-equal "EOF reached" (proc "abcde" 6) '("abcde" 1 5))) (test-group "read-line string port position tests" (test-port-position read-string-line/pos)) (test-group "read-string!" (let ((in (open-input-string "1234567890")) (buf (make-string 5))) (test-equal "peek-char won't influence the result of read-string!" (peek-char in) #\1) (test-equal "read-string! won't read past buffer if given #f" (read-string! #f buf in) 5) (test-equal "read-string! reads the requested bytes with #f" buf "12345") (test-equal "read-string! won't read past buffer if given #f and offset" (read-string! #f buf in 3) 2) (test-equal "read-string! reads the requested bytes with #f and offset" buf "12367") (test-equal "read-string! reads until the end correctly" (read-string! #f buf in) 3) (test-equal "read-string! leaves the buffer's tail intact" buf "89067") (test-equal "after peek-char at EOF, read-string! doesn't mutate the buffer" (begin (peek-char in) (read-string! #f buf in) buf) "89067")) (let ((in (open-input-string "1234567890")) (buf (make-string 5))) (test-equal "read-string! won't read past buffer if given size" (read-string! 10 buf in) 5) (test-equal "read-string! reads the requested bytes with buffer size" buf "12345") (test-equal "read-string! won't read past buffer if given size and offset" (read-string! 10 buf in 3) 2) (test-equal "read-string! reads the requested bytes with buffer size and offset" buf "12367") (test-equal "read-string! reads until the end correctly with buffer size" (read-string! 10 buf in) 3) (test-equal "read-string! leaves the buffer's tail intact" buf "89067") (test-equal "read-string! at EOF reads nothing" (read-string! 10 buf in) 0) (test-equal "read-string! at EOF doesn't mutate the buffer" buf "89067"))) (test-group "line endings" (let ((s "foo\nbar\rbaz\r\nqux") (f (lambda () (test-equal "\\n" (read-line) "foo") (test-equal "\\r" (read-line) "bar") (test-equal "\\r\\n" (read-line) "baz") (test-equal "eof" (read-line) "qux")))) (test-group "string port" (with-input-from-string s f)) (test-group "file port" (let ((file "mixed-line-endings")) (with-output-to-file file (lambda () (display s))) (with-input-from-file file f) (delete-file* file))) (test-group "custom port" (let* ((p (open-input-string s)) (p* (make-input-port (lambda () (read-char p)) (lambda () (char-ready? p)) (lambda () (close-input-port p))))) (with-input-from-port p* f))))) ;; Disabled because it requires `echo -n` for ;; the EOF test, and that is not available on all systems. ;; Uncomment locally to run. #; (test-group "read-line process port position tests" (test-port-position read-echo-line/pos)) ;;; (test-end) (test-exit) ��������������������������������������������������������������������������������chicken-5.1.0/tests/environment-tests.scm�����������������������������������������������������������0000644�0001750�0001750�00000003743�13370655400�020313� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; environment-tests.scm (import (chicken load)) (load-relative "test.scm") (test-begin "evaluation environment tests") (test-equal (eval 123) 123) (test-equal (eval 123 (interaction-environment)) 123) (test-equal (eval 'car (interaction-environment)) car) (test-error (eval 'foo (interaction-environment))) (test-equal (eval '(begin (set! foo 99) foo) (interaction-environment)) 99) (test-equal (eval 123) 123) (test-equal (eval 123 (scheme-report-environment 5)) 123) (test-equal (eval 'car (scheme-report-environment 5)) car) (test-error (eval 'foo (scheme-report-environment 5))) (test-error (eval 'values (scheme-report-environment 4))) (test-equal (eval 'values (scheme-report-environment 5)) values) (test-error (eval '(set! foo 99) (scheme-report-environment 5))) (test-error (eval '(define-syntax foo (syntax-rules () ((_) 1))) (scheme-report-environment 5))) (test-error (eval 'car (null-environment 5))) (test-error (eval '(cond-expand (chicken 1) (else 2)) (null-environment 4))) (test-error (eval '(cond-expand (chicken 1) (else 2)) (null-environment 5))) (test-error (eval '(cond-expand (chicken 1) (else 2)) (scheme-report-environment 4))) (test-error (eval '(cond-expand (chicken 1) (else 2)) (scheme-report-environment 5))) (test-equal 1 (eval '(if #t 1 2) (scheme-report-environment 5))) (test-equal 1 (eval '(if #t 1 2) (null-environment 4))) (test-equal 1 (eval '(if #t 1 2) (null-environment 5))) (test-equal (eval '((lambda (x) x) 123) (null-environment 5)) 123) (import (chicken eval)) (define baz 100) (module foo (bar) (import r5rs) (define (bar) 99)) (define foo-env (module-environment 'foo)) (define csi-env (module-environment '(chicken csi))) (define format-env (module-environment 'chicken.format)) (test-equal (eval '(bar) foo-env) 99) (test-error (eval 'baz foo-env)) (test-equal (eval '(editor-command) csi-env) #f) (test-error (eval 'baz csi-env)) (test-equal (eval '(format "~a" 1) format-env) "1") (test-error (eval 'baz format-env)) (test-end) (test-exit) �����������������������������chicken-5.1.0/tests/executable-tests.scm������������������������������������������������������������0000644�0001750�0001750�00000001545�13370655400�020066� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; Compiled executable tests (include "test.scm") (import (chicken file) (chicken file posix) (chicken pathname) (chicken process-context) (chicken string)) (define program-path (cond-expand ((and windows (not cygwin)) (string-translate (car (command-line-arguments)) "/" "\\")) (else (car (command-line-arguments))))) (define (read-symbolic-link* p) (cond-expand ((and windows (not cygwin)) p) (else (read-symbolic-link p #t)))) (test-begin "executable tests") (let ((p (program-name))) (test-equal "program-name" (pathname-strip-directory p) (pathname-strip-directory program-path))) (and-let* ((p (executable-pathname))) (test-equal "executable-pathname" (read-symbolic-link* p) (read-symbolic-link* program-path))) (test-end) (test-exit) �����������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/loopy-loop.scm������������������������������������������������������������������0000644�0001750�0001750�00000053323�13370655400�016717� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Adapted from http://okmij.org/ftp/Scheme/keyword-arg-macro.txt ;; Currently fails in Gauche. ;; A more commented version is available at ;; http://mumble.net/~campbell/scheme/syn-param.scm (define-syntax let-keyword-form (syntax-rules () ((let-keyword-form ((labeled-arg-macro-name (positional-form-name (arg-name . arg-default) ...))) . body) (letrec-syntax ((labeled-arg-macro-name (syntax-rules () ((labeled-arg-macro-name . keyword-val-pairs) (letrec-syntax ((find (syntax-rules (<- arg-name ...) ((find kvp k-args (arg-name . default) arg-name <- val . others) ; found arg-name among keyword-val-pairs (next kvp val . k-args)) ... ((find kvp k-args key arg-no-match-name <- val . others) (find kvp k-args key . others)) ((find kvp k-args (arg-name default)) ; default must be here (next kvp default . k-args)) ... )) (next ; pack the continuation to find (syntax-rules () ((next kvp val vals key . keys) (find kvp ((val . vals) . keys) key . kvp)) ((next kvp val vals) ; processed all arg-descriptors (rev-apply (val) vals)))) (match-positionals (syntax-rules (<-) ((match-positionals () res . rest) (rev-apply () res)) ((match-positionals args (val . vals) name <- value . rest) (next (name <- value . rest) val vals . args)) ((match-positionals args (val . vals)) (next () val vals . args)) ((match-positionals (arg1 . args) res pos-arg . rest) (match-positionals args (pos-arg . res) . rest)))) (rev-apply (syntax-rules () ((rev-apply form (x . xs)) (rev-apply (x . form) xs)) ((rev-apply form ()) form)))) (match-positionals ((arg-name . arg-default) ...) (positional-form-name) . keyword-val-pairs) ))))) . body)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define-syntax loop (syntax-rules () ;; unnamed, implicit recursion ((loop (vars ...) body ...) (%loop tmp-loop () () () () () (vars ...) body ... (tmp-loop))) ;; named, explicit recursion ((loop name (vars ...) body ...) (%loop name () () () () () (vars ...) body ...)))) ;; Main LOOP macro. Separate the variables from the iterator and ;; parameters, then walk through each parameter expanding the ;; bindings, and build the final form. (define-syntax %loop (syntax-rules (=> <-) ;; automatic iteration ((_ name l v c r f ((var1 <- iterator source ...) rest ...) . body) (iterator ((var1) (source ...)) %loop-next name l v c r f (rest ...) . body)) ((_ name l v c r f ((var1 var2 <- iterator source ...) rest ...) . body) (iterator ((var1 var2) (source ...)) %loop-next name l v c r f (rest ...) . body)) ((_ name l v c r f ((var1 var2 var3 <- iterator source ...) rest ...) . body) (iterator ((var1 var2 var3) (source ...)) %loop-next name l v c r f (rest ...) . body)) ((_ name l v c r f ((var1 var2 var3 var4 <- iterator source ...) rest ...) . body) (iterator ((var1 var2 var3 var4) (source ...)) %loop-next name l v c r f (rest ...) . body)) ;; do equivalents, with optional guards ((_ name l (vars ...) (checks ...) r f ((var init step guard) rest ...) . body) (%loop name l (vars ... (var init step)) (checks ... (guard var)) r f (rest ...) . body)) ((_ name l (vars ...) c r f ((var init step) rest ...) . body) (%loop name l (vars ... (var init step)) c r f (rest ...) . body)) ((_ name l (vars ...) c r f ((var init) rest ...) . body) (%loop name l (vars ... (var init var)) c r f (rest ...) . body)) ;; specify a default done? ((_ name l v c r f ()) (%loop name l v c r f () (#f #f))) ((_ name l v c r f () () . body) (%loop name l v c r f () (#f #f) . body)) ;; final expansion ((_ name (lets ...) ((var init step) ...) (checks ...) (refs ...) (finals ...) () => result . body) (let* (lets ...) (letrec ((tmp (lambda (var ...) (if (or checks ...) (let-keyword-form ((name (tmp (var step) ...))) (match-let (finals ...) result)) (match-let (refs ...) (let-keyword-form ((name (tmp (var step) ...))) (if #f #f) . body)))))) (tmp init ...)))) ;; unspecified return value case ((_ name (lets ...) ((var init step) ...) (checks ...) (refs ...) (finals ...) () . body) (%loop name (lets ...) ((var init step) ...) (checks ...) (refs ...) (finals ...) () => (if #f #f) . body)) )) (define-syntax %loop-next (syntax-rules () ((_ (new-lets ...) (new-vars ...) (new-checks ...) (new-refs ...) (new-finals ...) name (lets ...) (vars ...) (checks ...) (refs ...) (finals ...) . rest) (%loop name (lets ... new-lets ...) (vars ... new-vars ...) (checks ... new-checks ...) (refs ... new-refs ...) (finals ... new-finals ...) . rest)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Iterators ;; Each gets passed two lists, those items left of the <- and those to ;; the right, followed by a NEXT and REST continuation. ;; Should finish with ;; ;; (next (outer-vars ...) (cursor-vars ...) (done?-tests ...) ;; (loop-vars ...) (final-vars ...) . rest) ;; ;; OUTER-VARS: bound once outside the loop in a LET* ;; CURSOR-VARS: DO-style bindings of the form (name init update) ;; DONE?-TESTS: possibly empty list of forms that terminate the loop on #t ;; LOOP-VARS: inner variables, updated in parallel after the cursors ;; FINAL-VARS: final variables, bound only in the => result (define-syntax in-list ; called just "IN" in ITER (syntax-rules () ((in-list ((var) source) next . rest) (in-list ((var cursor) source) next . rest)) ((in-list ((var cursor) source) next . rest) (in-list ((var cursor succ) source) next . rest)) ((in-list ((var cursor succ) (source)) next . rest) (in-list ((var cursor succ) (source cdr)) next . rest)) ((in-list ((var cursor succ) (source step)) next . rest) (in-list ((var cursor succ) (source step null?)) next . rest)) ((in-list ((var cursor succ) (source step done?)) next . rest) (next () ; outer let bindings ((cursor source succ)) ; iterator, init, step ((done? cursor)) ; finish tests for iterator vars ((var (car cursor)) ; step variables and values (succ (step cursor))) () ; final result bindings . rest)))) ;; Iterator from Taylor R. Campbell. If you know the number of lists ;; ahead of time it's much more efficient to iterate over each one ;; separately. (define-syntax in-lists (syntax-rules () ((in-lists ((elts) lol) next . rest) (in-lists ((elts pairs) lol) next . rest)) ((in-lists ((elts pairs) lol) next . rest) (in-lists ((elts pairs succ) lol) next . rest)) ((in-lists ((elts pairs succ) (lol)) next . rest) (in-lists ((elts pairs succ) (lol cdr)) next . rest)) ((in-lists ((elts pairs succ) (lol)) next . rest) (in-lists ((elts pairs succ) (lol cdr)) next . rest)) ((in-lists ((elts pairs succ) (lol step)) next . rest) (in-lists ((elts pairs succ) (lol step null?)) next . rest)) ((in-lists ((elts pairs succ) (lol step done?)) next . rest) (next () ((pairs lol succ)) ((let lp ((ls pairs)) ; yes, an in-lined ANY (and (pair? ls) (or (done? (car ls)) (lp (cdr ls)))))) ((elts (map car pairs)) (succ (map step pairs))) () . rest)) )) (define-syntax define-in-indexed (syntax-rules () ((define-in-indexed in-type in-type-reverse length ref) (begin (define-syntax in-type (syntax-rules () ((in-type ls next . rest) (%in-indexed >= + 0 (length tmp) ref tmp ls next . rest)))) (define-syntax in-type-reverse (syntax-rules () ((in-type-reverse ls next . rest) (%in-indexed < - (- (length tmp) 1) 0 ref tmp ls next . rest)))) )))) (define-in-indexed in-string in-string-reverse string-length string-ref) (define-in-indexed in-vector in-vector-reverse vector-length vector-ref) (define-in-indexed in-u8vector in-u8vector-reverse u8vector-length u8vector-ref) (define-in-indexed in-s8vector in-s8vector-reverse s8vector-length s8vector-ref) (define-in-indexed in-u16vector in-u16vector-reverse u16vector-length u16vector-ref) (define-in-indexed in-s16vector in-s16vector-reverse s16vector-length s16vector-ref) (define-in-indexed in-u32vector in-u32vector-reverse u32vector-length u32vector-ref) (define-in-indexed in-s32vector in-s32vector-reverse s32vector-length s32vector-ref) (define-in-indexed in-u64vector in-u64vector-reverse u64vector-length u64vector-ref) (define-in-indexed in-s64vector in-s64vector-reverse s64vector-length s64vector-ref) (define-in-indexed in-f32vector in-f32vector-reverse f32vector-length f32vector-ref) (define-in-indexed in-f64vector in-f64vector-reverse f64vector-length f64vector-ref) ;; helper for the above string and vector iterators (define-syntax %in-indexed (syntax-rules () ;; cmp inc start end ref ((%in-indexed ge + s e r tmp-vec ((var) (vec ...)) next . rest) (%in-indexed ge + s e r tmp-vec ((var vec-index) (vec ...)) next . rest)) ((%in-indexed ge + s e r tmp-vec ((var index) (vec)) next . rest) (%in-indexed ge + s e r tmp-vec ((var index) (vec s e 1)) next . rest)) ((%in-indexed ge + s e r tmp-vec ((var index) (vec from)) next . rest) (%in-indexed ge + s e r tmp-vec ((var index) (vec from e 1)) next . rest)) ((%in-indexed ge + s e r tmp-vec ((var index) (vec from to)) next . rest) (%in-indexed ge + s e r tmp-vec ((var index) (vec from to 1)) next . rest)) ((%in-indexed ge + s e r tmp-vec ((var index) (vec from to step)) next . rest) (next ((tmp-vec vec) (end to)) ((index from (+ index step))) ((ge index end)) ((var (r tmp-vec index))) () . rest)) )) (define-syntax in-port (syntax-rules () ((in-port ((var) source) next . rest) (in-port ((var p) source) next . rest)) ((in-port ((var p) ()) next . rest) (in-port ((var p) ((current-input-port))) next . rest)) ((in-port ((var p) (port)) next . rest) (in-port ((var p) (port read-char)) next . rest)) ((in-port ((var p) (port read-char)) next . rest) (in-port ((var p) (port read-char eof-object?)) next . rest)) ((in-port ((var p) (port reader eof?)) next . rest) (next ((p port) (r reader) (e? eof?)) ((var (r p) (r p))) ((e? var)) () () . rest)))) (define-syntax in-file (syntax-rules () ((in-file ((var) source) next . rest) (in-file ((var p) source) next . rest)) ((in-file ((var p) (file)) next . rest) (in-file ((var p) (file read-char)) next . rest)) ((in-file ((var p) (file reader)) next . rest) (in-file ((var p) (file reader eof-object?)) next . rest)) ((in-file ((var p) (file reader eof?)) next . rest) (next ((p (open-input-file file)) (r reader) (e? eof?)) ((var (r p) (r p))) ((e? var)) () ((dummy (close-input-port p))) . rest)))) ;; XXXX Consider a keyword approach such as Taylor uses. (define-syntax in-range (syntax-rules () ((in-range ((var) ()) next . rest) (next () ((var 0 (+ var 1))) () () . rest)) ((in-range ((var) (to)) next . rest) (next () ((var 0 to)) () () . rest)) ((in-range ((var) (from to)) next . rest) (in-range ((var) (from to 1)) next . rest)) ((in-range ((var) (from to step)) next . rest) (next ((tmp-to to)) ((var from (+ var step))) ((>= var tmp-to)) () () . rest)))) (define-syntax in-range-reverse (syntax-rules () ((in-range ((var) ()) next . rest) (next () ((var 0 (- var 1))) () () . rest)) ((in-range ((var) (to)) next . rest) (next () ((var 0 to)) () () . rest)) ((in-range ((var) (from to)) next . rest) (in-range ((var) (from to 1)) next . rest)) ((in-range ((var) (from to step)) next . rest) (next ((tmp-to to)) ((var from (- var step))) ((<= var tmp-to)) () () . rest)))) ;; XXXX A generalized accumulator, possibly not worth the effort. (define-syntax collecting (syntax-rules () ((collecting ((var) source) next . rest) (collecting ((var cursor) source) next . rest)) ((collecting ((var cursor) (source)) next . rest) (collecting ((var cursor) (source cons)) next . rest)) ((collecting ((var cursor) (source kons)) next . rest) (collecting ((var cursor) (source kons reverse)) next . rest)) ((collecting ((var cursor) (source kons final)) next . rest) (next ((tmp-kons kons)) ((cursor '() (tmp-kons source cursor))) () () ((var (final cursor))) . rest)))) ;; XXXX should these be loop variables or body variables? (define-syntax in-random (syntax-rules () ((in-random ((var) ()) next . rest) ; XXXX consider in-random-real (next ((MAX_RAND (+ (expt 2 29) (- (expt 2 29) 1)))) ((var (/ (pseudo-random-integer MAX_RAND) MAX_RAND) (/ (pseudo-random-integer MAX_RAND) MAX_RAND))) () () . rest)) ((in-random ((var) (n)) next . rest) (next ((tmp-n n)) ((var (pseudo-random-integer tmp-n) (pseudo-random-integer tmp-n))) () () () . rest)) ((in-random ((var) (n lo)) next . rest) (next ((tmp-n n) (tmp-lo lo)) ((var (+ tmp-lo (pseudo-random-integer tmp-n)) (+ tmp-lo (pseudo-random-integer tmp-n)))) () () () . rest)) )) ;; takes either a list or vector (define-syntax in-random-element (syntax-rules () ((in-random-element ((var) (source)) next . rest) (next ((tmp-source source) (tmp-vec (if (pair? tmp-source) (list->vector tmp-source) tmp-source)) (tmp-len (vector-length tmp-vec))) ((var (vector-ref tmp-vec (pseudo-random-integer tmp-len)) (vector-ref tmp-vec (pseudo-random-integer tmp-len)))) () () () . rest)))) ;; XXXX document this and explain what the hell it's doing :) (define-syntax in-permutations (syntax-rules () ((in-permutations ((var) source) next . rest) (in-permutations ((var p) source) next . rest)) ((in-permutations ((var p) (set)) next . rest) (in-permutations ((var p) (set #f)) next . rest)) ((in-permutations ((var p) (set len)) next . rest) (next ((tmp-set set)) ((p (let ((tmp-len (or len (length tmp-set)))) (let lp ((i 0) (ls tmp-set) (res '())) (if (= i tmp-len) res (lp (+ i 1) (cdr ls) (cons (cons ls '()) res))))) (and (pair? p) (let lp ((ls p) (count 0)) (if (pair? (cdaar ls)) (let lp2 ((i count) (ls2 (append (reverse (cdar ls)) (cons (caaar ls) (cddaar ls)))) (res (cons (cons (cdaar ls) (cons (caaar ls) (cdar ls))) (cdr ls)))) (if (zero? i) res (lp2 (- i 1) (cdr ls2) (cons (cons ls2 '()) res)))) (and (pair? (cdr ls)) (lp (cdr ls) (+ count 1)))))))) ((not p)) ((var (let lp ((ls p) (res '())) (if (null? ls) res (lp (cdr ls) (cons (caaar ls) res)))))) () . rest)) )) (define-syntax in-combinations (syntax-rules () ((in-combinations ((var) x) next . rest) (in-combinations ((var p) x) next . rest)) ;; all 2^len combinations ((in-combinations ((var p) (set)) next . rest) (next ((tmp-vec (list->vector set)) (tmp-len (vector-length tmp-vec)) (tmp-limit (expt 2 tmp-len))) ((p 0 (+ p 1))) ((>= p tmp-limit)) ((var (let lp ((p p) (i 0) (res '())) (cond ((zero? p) (reverse res)) ((odd? p) (lp (arithmetic-shift p -1) (+ i 1) (cons (vector-ref tmp-vec i) res))) (else (lp (arithmetic-shift p -1) (+ i 1) res)))))) () . rest)) ;; all C(n,k) combinations of length k ((in-combinations ((var p) (set len)) next . rest) (next ((tmp-len len)) ((p (let lp ((i 0) (ls set) (res '())) (if (= i tmp-len) res (lp (+ i 1) (cdr ls) (cons ls res)))) (and (pair? p) (if (and (pair? (car p)) (pair? (cdar p))) (cons (cdar p) (cdr p)) (let lp ((ls (cdr p)) (count 1)) (and (pair? ls) (if (> (length (cdar ls)) count) (let lp2 ((i count) (ls2 (cddar ls)) (res (cons (cdar ls) (cdr ls)))) (if (zero? i) res (lp2 (- i 1) (cdr ls2) (cons ls2 res)))) (lp (cdr ls) (+ count 1))))))))) ((not p)) ((var (let lp ((ls p) (res '())) (if (null? ls) res (lp (cdr ls) (cons (caar ls) res)))))) () . rest)) )) (define-syntax in-cartesian-product (syntax-rules () ((in-cartesian-product ((var) (lol-src)) next . rest) (in-cartesian-product ((var p) (lol-src)) next . rest)) ;; all NxMx... joins ((in-cartesian-product ((var x) (lol-src)) next . rest) (next ((lol lol-src)) ((x (and (pair? lol) (cons (reverse lol) (reverse (cdr lol)))) (let lp ((p (car x)) (ls (cdr x)) (rev '())) (cond ((pair? (cdar p)) (cons (append (reverse rev) (cons (cdar p) (cdr p))) (cdr x))) ((pair? (cdr p)) (lp (cdr p) (cdr ls) (cons (car ls) rev))) (else #f))))) ((not x)) ((var (let lp ((ls (car x)) (res '())) (if (null? ls) res (lp (cdr ls) (cons (caar ls) res)))))) () . rest)) )) ;; CHICKEN-specific implementation using internal knowledge of the ;; vector+alist representation. The ##sys#slot form will cause most ;; other implementations to choke, so comment this out if needed. (define-syntax in-hash-table (syntax-rules () ((in-hash-table ((key val) (table)) next . rest) (next ((tmp-vec (##sys#slot table 1)) (end (vector-length tmp-vec)) (next-pair-bucket (lambda (start) (let lp ((i start)) (and (< i end) (let ((x (vector-ref tmp-vec i))) (if (pair? x) i (lp (+ i 1)))))))) (first-bucket (next-pair-bucket 0))) ((bucket first-bucket (if (and (pair? cell) (pair? (cdr cell))) bucket (next-pair-bucket (+ bucket 1)))) (cell (and first-bucket (vector-ref tmp-vec first-bucket)) (if (and (pair? cell) (pair? (cdr cell))) (cdr cell) (let ((i (next-pair-bucket (+ bucket 1)))) (and i (vector-ref tmp-vec i)))))) ((not bucket)) ((key (caar cell)) (val (cdar cell))) () . rest)) )) ;; Portable R5RS + SRFI-69 version. ;; (define-syntax in-hash-table ;; (syntax-rules () ;; ((in-hash-table ((key val) (table)) next . rest) ;; (next ((tmp-table table) ;; (start-cursor ;; (call-with-current-continuation ;; (lambda (return) ;; (hash-table-walk ;; table ;; (lambda (k v) ;; (call-with-current-continuation ;; (lambda (inside) ;; (return ;; (lambda (sym) ;; (cond ;; ((eq? sym 'key) k) ;; ((eq? sym 'value) v) ;; ((eq? sym 'next) (inside #t)) ;; ((eq? sym 'end?) #f)))))))) ;; (lambda (sym) ;; (if (eq? sym 'end?) ;; #t ;; (error "past end of hash table"))))))) ;; ((tmp-cursor start-cursor (tmp-cursor 'next))) ;; ((tmp-cursor 'end?)) ;; ((key (tmp-cursor 'key)) ;; (val (tmp-cursor 'value))) ;; () ;; . rest)) ;; )) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/messages.expected���������������������������������������������������������������0000644�0001750�0001750�00000000307�13370655400�017426� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� Warning: (messages-test.scm:9) - assignment to syntax `bar' Warning: (messages-test.scm:10) - assignment to imported value binding `var' Warning: (messages-test.scm:13) - assignment to syntax `m' �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/scrutinizer-tests.scm�����������������������������������������������������������0000644�0001750�0001750�00000020746�13405470445�020335� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; scrutinizer unit tests (import-for-syntax (chicken format) (chicken compiler scrutinizer)) (define-for-syntax success #t) (define-syntax test (er-macro-transformer (lambda (expr rename _) (define extra-fail-info '()) (define (add-fail-info msg) (set! extra-fail-info (cons (string-append " " msg) extra-fail-info)) #f) (define pass (let loop ((e (cadr expr))) (case (car e) ;; invert test ((not) (not (loop (cadr e)))) ;; subtype or type equality ((<=) (and (type<=? (cadr e) (caddr e)) (match-types (caddr e) (cadr e)))) ;; subtype ((<) (and (or (type<=? (cadr e) (caddr e)) (add-fail-info "<= returned #f")) (or (match-types (caddr e) (cadr e)) (add-fail-info ">= returned #f")) (or (not (type<=? (caddr e) (cadr e))) (add-fail-info "not >= returned #f")))) ;; type equality ((=) (and (or (type<=? (cadr e) (caddr e)) (add-fail-info "<= failed")) (or (type<=? (caddr e) (cadr e)) (add-fail-info ">= failed")))) ;; fuzzy match (both directions) ((?) (and (match-types (cadr e) (caddr e)) (match-types (caddr e) (cadr e)))) ;; fuzzy non-match (both directions) ((!) (and (or (not (match-types (cadr e) (caddr e))) (add-fail-info ">= was true")) (or (not (match-types (caddr e) (cadr e))) (add-fail-info "<= was true")))) ;; strict non-match (both directions) ((><) (and (not (type<=? (cadr e) (caddr e))) (not (type<=? (caddr e) (cadr e))))) ;; A refined with B gives C ((~>) (let ((t (refine-types (cadr e) (caddr e)))) (or (equal? t (cadddr e)) (add-fail-info (format "Refined to `~a', but expected `~a'" t (cadddr e)) ))))))) (printf "[~a] ~a~n" (if pass " OK " "FAIL") (cadr expr)) (unless pass (for-each print extra-fail-info)) (when (not pass) (set! success #f)) (rename '(void))))) ;;; wildcards (test (= * *)) (test (< x *)) ;;; structs (test (= (struct x) (struct x))) (test (! (struct x) (struct y))) ;;; undefined (test (= undefined undefined)) (test (< undefined *)) ;;; noreturn (test (= noreturn noreturn)) (test (< noreturn *)) (test (! undefined noreturn)) ;;; booleans (test (= boolean boolean)) (test (< true boolean)) (test (< false boolean)) (test (= (or true false) boolean)) ;;; numbers (test (= number number)) (test (< fixnum number)) (test (< float number)) (test (< bignum number)) (test (< ratnum number)) (test (< cplxnum number)) (test (< integer number)) (test (= (or fixnum float bignum ratnum cplxnum) number)) (test (= integer integer)) (test (< fixnum integer)) (test (< bignum integer)) (test (not (<= float integer))) (test (not (<= ratnum integer))) (test (not (<= cplxnum integer))) (test (= (or fixnum bignum) integer)) ;;; vectors (test (= vector vector)) (test (= vector (vector-of *))) (test (< (vector-of x) (vector-of *))) (test (= (vector *) (vector *))) (test (= (vector x) (vector x))) (test (< (vector x) (vector *))) (test (< (vector *) (vector-of *))) (test (< (vector x) (vector-of *))) (test (< (vector x) (vector-of x))) (test (? (vector *) (vector-of x))) (test (>< (vector *) (vector-of x))) (test (>< (vector *) (vector * *))) (test (>< (vector x) (vector * *))) (test (>< (vector *) (vector x x))) (test (>< (vector x) (vector x x))) ;;; pairs (test (= pair pair)) (test (= pair (pair * *))) (test (< (pair x *) pair)) (test (< (pair * x) pair)) (test (< (pair x x) pair)) ;;; lists (test (= null null)) (test (? null list)) (test (? null (list-of x))) (test (! null (list x))) (test (! null pair)) (test (= list list)) (test (= list (list-of *))) (test (< (list-of x) (list-of *))) (test (= (list *) (list *))) (test (= (list x) (list x))) (test (< (list x) (list *))) (test (< (list *) (list-of *))) (test (< (list x) (list-of *))) (test (< (list x) (list-of x))) (test (? (list *) (list-of x))) (test (>< (list *) (list-of x))) (test (>< (list *) (list * *))) (test (>< (list x) (list * *))) (test (>< (list *) (list x x))) (test (>< (list x) (list x x))) (test (? (pair * *) (list-of *))) (test (? (pair x *) (list-of *))) (test (! (pair * x) (list-of *))) (test (! (pair x x) (list-of *))) (test (? (pair * *) (list-of x))) (test (? (pair x *) (list-of x))) (test (! (pair * x) (list-of x))) (test (! (pair x x) (list-of x))) ;;; ports (test (= port port)) (test (= (refine (input) port) (refine (input) port))) (test (= (refine (input output) port) (refine (input output) port))) (test (= (refine (output) port) (refine (output) port))) (test (< (refine (input) port) port)) (test (< (refine (input output) port) port)) (test (< (refine (output) port) port)) (test (< (refine (input output) port) (refine (input) port))) (test (< (refine (input output) port) (refine (output) port))) (test (? (refine (input) port) (refine (output) port))) ;;; unions (test (< x (or x y))) (test (< y (or x y))) (test (= (or x number) (or x number))) (test (< (or x number) (or x number string))) (test (>< (or x number) (or y string))) ;;; negative types (test (< (not x) *)) (test (! (not x) x)) (test (< x (not y))) (test (< x (not (not x)))) (test (< x (not (not (not y))))) (test (< x (or (not x) x))) (test (< x (or (not x) (not y)))) (test (! x (not x))) (test (! x (not (not y)))) (test (! x (not (not (not x))))) (test (! x (not (or x y)))) (test (! x (or (not x) y))) (test (! x (not (not (not x))))) (test (? (not x) (not y))) (test (? (not x) (or x y))) (test (? (not x) (or (not x) x))) (test (? (not x) (or (not y) x))) (test (? (not x) (or (not x) (not y)))) (test (>< (not x) (not y))) (test (>< (not x) (or x y))) (test (>< (not x) (or (not x) x))) (test (>< (not x) (or (not y) x))) (test (>< (not x) (or (not x) (not y)))) (test (< (or (not x) y) (not x))) (test (< (not (or x y)) (not x))) ;;; negative wildcards (a bit weird...) (test (< (not *) *)) (test (< (not (not *)) *)) (test (< (not (not (not *))) *)) (test (! (not *) x)) (test (< (not *) (not x))) ;;; procedures (test (= (procedure ()) (procedure ()))) (test (= (procedure (x)) (procedure (x)))) (test (= (procedure (#!rest x)) (procedure (#!rest x)))) (test (= (procedure ()) (procedure ()))) (test (= (procedure () x) (procedure () x))) ;; FIXME ;(test (= (procedure () . x) (procedure () . x))) (test (>< (procedure (x)) (procedure (y)))) (test (>< (procedure () x) (procedure () y))) (test (? (procedure (x)) (procedure (*)))) (test (? (procedure () x) (procedure () *))) (test (! (procedure (x)) (procedure ()))) (test (! (procedure (x)) (procedure (x y)))) (test (? (procedure (x)) (procedure (x #!rest y)))) (test (! (procedure () x) (procedure ()))) (test (! (procedure () x) (procedure () x y))) ;; s.a. ;(test (? (procedure () x) (procedure () x . y))) ;;; refinements (test (= (refine (a) x) (refine (a) x))) (test (< (refine (a b) x) (refine (a) x))) (test (= (refine (a b) x) (refine (a b) x))) (test (? (refine (a) x) (refine (b) x))) (test (>< (refine (a) x) (refine (b) x))) (test (~> x y y)) (test (~> x (or x y) x)) (test (~> (or x y) x x)) (test (~> (or x y) (or y z) y)) (test (~> * (refine (a) x) (refine (a) x))) (test (~> (refine (a) *) x (refine (a) x))) (test (~> x (refine (a) *) (refine (a) x))) (test (~> (refine (a) x) * (refine (a) x))) (test (~> (refine (a) x) (refine (b) *) (refine (a b) x))) (test (~> (refine (a) x) (refine (b) *) (refine (a b) x))) (test (~> (refine (a) x) y y)) (test (~> x (refine (a) y) (refine (a) y))) (test (~> (refine (a) x) (refine (b) y) (refine (b) y))) (test (~> (list fixnum number) (list number fixnum) (list fixnum fixnum))) (test (~> (vector x) (vector (refine (a) x)) (vector (refine (a) x)))) (test (~> (list x) (list (refine (a) x)) (list (refine (a) x)))) (test (~> (list x (list x)) (list (refine (a) *) (list (refine (b) *))) (list (refine (a) x) (list (refine (b) x))))) (test (~> (list * (list *)) (list (refine (a) x) (list (refine (b) x))) (list (refine (a) x) (list (refine (b) x))))) (test (~> (list (refine (a) x)) (refine (a) (list (refine (b) x))) (refine (a) (list (refine (a b) x))))) (test (~> (list (refine (a) x)) (refine (a) (list (refine (b) y))) (refine (a) (list (refine (b) y))))) (test (~> (or pair null) list list)) (begin-for-syntax (when (not success) (exit 1))) ��������������������������chicken-5.1.0/tests/numbers-test-gauche.scm���������������������������������������������������������0000644�0001750�0001750�00000260211�13370655400�020464� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; ;; test numeric system implementation ;; ;; These tests are from Gauche Scheme (v0.9.1), which can be found at ;; http://practical-scheme.net/gauche/index.html ;; Some modifications were made to allow it to be used with the "test" ;; egg for Chicken ;; ;; Copyright (c) 2000-2010 Shiro Kawai <shiro@acm.org> ;; ;; Redistribution and use in source and binary forms, with or without ;; modification, are permitted provided that the following conditions ;; are met: ;; ;; 1. Redistributions of source code must retain the above copyright ;; notice, this list of conditions and the following disclaimer. ;; ;; 2. Redistributions in binary form must reproduce the above copyright ;; notice, this list of conditions and the following disclaimer in the ;; documentation and/or other materials provided with the distribution. ;; ;; 3. Neither the name of the authors nor the names of its contributors ;; may be used to endorse or promote products derived from this ;; software without specific prior written permission. ;; ;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT ;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR ;; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT ;; OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, ;; SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED ;; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR ;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF ;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;; (include "test.scm") (define (exp2 pow) (do ((i 0 (+ i 1)) (m 1 (+ m m))) ((>= i pow) m))) (define (fermat n) ;Fermat's number (+ (expt 2 (expt 2 n)) 1)) ;; Gauche compat (import (chicken bitwise) (chicken port) (chicken format) (chicken string) (chicken fixnum)) (define (greatest-fixnum) most-positive-fixnum) (define (least-fixnum) most-negative-fixnum) (define (fixnum-width) fixnum-precision) (define ash arithmetic-shift) (define logior bitwise-ior) (define logand bitwise-and) (define lognot bitwise-not) (define (logtest a b) (= (bitwise-and a b) b)) (define-syntax let1 (syntax-rules () ((_ var val forms ...) (let ((var val)) forms ...)))) (define (integer->digit i r) (and (< i r) (if (< i 10) (integer->char (+ (char->integer #\0) i)) (integer->char (+ (char->integer #\a) (- i 10)))))) (define (read-from-string s) (with-input-from-string s read)) (define (truncate->exact x) (inexact->exact (truncate x))) (define (round->exact x) (inexact->exact (round x))) (define (floor->exact x) (inexact->exact (floor x))) (define (ceiling->exact x) (inexact->exact (ceiling x))) ;; This is probably a bit silly (define (+. . args) (if (null? args) 0.0 (apply + (map exact->inexact args)))) (define (-. . args) (apply - (map exact->inexact args))) (define (*. . args) (if (null? args) 1.0 (apply * (map exact->inexact args)))) (define (/. . args) (apply / (map exact->inexact args))) (test-begin "Gauche numbers test") ;;================================================================== ;; Reader/writer ;; ;;------------------------------------------------------------------ (test-begin "integer addition & reader") (define (i-tester x) (list x (+ x -1 x) (+ x x) (- x) (- (+ x -1 x)) (- 0 x x) (- 0 x x 1))) (test-equal "around 2^28" (i-tester (exp2 28)) '(268435456 536870911 536870912 -268435456 -536870911 -536870912 -536870913)) (test-equal "around 2^31" (i-tester (exp2 31)) '(2147483648 4294967295 4294967296 -2147483648 -4294967295 -4294967296 -4294967297)) (test-equal "around 2^60" (i-tester (exp2 60)) '(1152921504606846976 2305843009213693951 2305843009213693952 -1152921504606846976 -2305843009213693951 -2305843009213693952 -2305843009213693953)) (test-equal "around 2^63" (i-tester (exp2 63)) '(9223372036854775808 18446744073709551615 18446744073709551616 -9223372036854775808 -18446744073709551615 -18446744073709551616 -18446744073709551617)) (test-equal "around 2^127" (i-tester (exp2 127)) '(170141183460469231731687303715884105728 340282366920938463463374607431768211455 340282366920938463463374607431768211456 -170141183460469231731687303715884105728 -340282366920938463463374607431768211455 -340282366920938463463374607431768211456 -340282366920938463463374607431768211457)) ;; test for reader's overflow detection code (test-equal "peculiarity around 2^32" (* 477226729 10) 4772267290) (test-equal "radix" (list #b1010101001010101 #o1234567 #o12345677654321 #d123456789 #d123456789987654321 #x123456 #xdeadbeef #xDeadBeef) '(43605 342391 718048024785 123456789 123456789987654321 1193046 3735928559 3735928559)) (test-equal "exactness" (exact? #e10) #t) (test-equal "exactness" (exact? #e10.0) #t) (test-equal "exactness" (exact? #e10e10) #t) (test-equal "exactness" (exact? #e12.34) #t) (test-equal "inexactness" (exact? #i10) #f) (test-equal "inexactness" (exact? #i10.0) #f) (test-equal "inexactness" (exact? #i12.34) #f) (test-equal "exactness & radix" (list (exact? #e#xdeadbeef) #e#xdeadbeef (exact? #x#edeadbeef) #x#edeadbeef) '(#t 3735928559 #t 3735928559)) (test-equal "inexactness & radix" (list (exact? #i#xdeadbeef) #i#xdeadbeef (exact? #x#ideadbeef) #x#ideadbeef) '(#f 3735928559.0 #f 3735928559.0)) (test-equal "invalid exactness/radix spec" (or (string->number "#e") (string->number "#i") (string->number "#e#i3") (string->number "#i#e5") (string->number "#x#o13") (string->number "#e#b#i00101")) #f) (define (radix-tester radix) (list (let loop ((digits 0) (input "1") (value 1)) (cond ((> digits 64) #t) ((eqv? (string->number input radix) value) (loop (+ digits 1) (string-append input "0") (* value radix))) (else #f))) (let loop ((digits 0) (input (string (integer->digit (- radix 1) radix))) (value (- radix 1))) (cond ((> digits 64) #t) ((eqv? (string->number input radix) value) (loop (+ digits 1) (string-append input (string (integer->digit (- radix 1) radix))) (+ (* value radix) (- radix 1)))) (else #f))))) (test-equal "base-2 reader" (radix-tester 2) '(#t #t)) (test-equal "base-3 reader" (radix-tester 3) '(#t #t)) (test-equal "base-4 reader" (radix-tester 4) '(#t #t)) (test-equal "base-5 reader" (radix-tester 5) '(#t #t)) (test-equal "base-6 reader" (radix-tester 6) '(#t #t)) (test-equal "base-7 reader" (radix-tester 7) '(#t #t)) (test-equal "base-8 reader" (radix-tester 8) '(#t #t)) (test-equal "base-9 reader" (radix-tester 9) '(#t #t)) (test-equal "base-10 reader" (radix-tester 10) '(#t #t)) (test-equal "base-11 reader" (radix-tester 11) '(#t #t)) (test-equal "base-12 reader" (radix-tester 12) '(#t #t)) (test-equal "base-13 reader" (radix-tester 13) '(#t #t)) (test-equal "base-14 reader" (radix-tester 14) '(#t #t)) (test-equal "base-15 reader" (radix-tester 15) '(#t #t)) (test-equal "base-16 reader" (radix-tester 16) '(#t #t)) (test-equal "base-17 reader" (radix-tester 17) '(#t #t)) (test-equal "base-18 reader" (radix-tester 18) '(#t #t)) (test-equal "base-19 reader" (radix-tester 19) '(#t #t)) (test-equal "base-20 reader" (radix-tester 20) '(#t #t)) (test-equal "base-21 reader" (radix-tester 21) '(#t #t)) (test-equal "base-22 reader" (radix-tester 22) '(#t #t)) (test-equal "base-23 reader" (radix-tester 23) '(#t #t)) (test-equal "base-24 reader" (radix-tester 24) '(#t #t)) (test-equal "base-25 reader" (radix-tester 25) '(#t #t)) (test-equal "base-26 reader" (radix-tester 26) '(#t #t)) (test-equal "base-27 reader" (radix-tester 27) '(#t #t)) (test-equal "base-28 reader" (radix-tester 28) '(#t #t)) (test-equal "base-29 reader" (radix-tester 29) '(#t #t)) (test-equal "base-30 reader" (radix-tester 30) '(#t #t)) (test-equal "base-31 reader" (radix-tester 31) '(#t #t)) (test-equal "base-32 reader" (radix-tester 32) '(#t #t)) (test-equal "base-33 reader" (radix-tester 33) '(#t #t)) (test-equal "base-34 reader" (radix-tester 34) '(#t #t)) (test-equal "base-35 reader" (radix-tester 35) '(#t #t)) (test-equal "base-36 reader" (radix-tester 36) '(#t #t)) (test-end) ;;------------------------------------------------------------------ (test-begin "rational reader") (define (rational-test v) (if (number? v) (list v (exact? v)) v)) (test-equal "rational reader" (rational-test '1234/1) '(1234 #t)) (test-equal "rational reader" (rational-test '-1234/1) '(-1234 #t)) (test-equal "rational reader" (rational-test '+1234/1) '(1234 #t)) ;; The following is invalid R5RS syntax, so it's commented out (it fails, too) #;(test-equal "rational reader" (rational-test '1234/-1) '|1234/-1|) (test-equal "rational reader" (rational-test '2468/2) '(1234 #t)) (test-equal "rational reader" (rational-test '1/2) '(1/2 #t)) (test-equal "rational reader" (rational-test '-1/2) '(-1/2 #t)) (test-equal "rational reader" (rational-test '+1/2) '(1/2 #t)) (test-equal "rational reader" (rational-test '751/1502) '(1/2 #t)) (test-equal "rational reader" (rational-test (string->number "3/03")) '(1 #t)) (test-equal "rational reader" (rational-test (string->number "3/0")) #;'(+inf.0 #f) ; <- I think that's wrong in Gauche #f) (test-equal "rational reader" (rational-test (string->number "-3/0")) #;'(-inf.0 #f) ; same as above #f) (test-equal "rational reader" (rational-test (string->number "3/3/4")) #f) (test-equal "rational reader" (rational-test (string->number "1/2.")) #f) (test-equal "rational reader" (rational-test (string->number "1.3/2")) #f) (test-error "rational reader" (rational-test (read-from-string "#e3/0"))) (test-error "rational reader" (rational-test (read-from-string "#e-3/0"))) (test-equal "rational reader w/#e" (rational-test '#e1234/1) '(1234 #t)) (test-equal "rational reader w/#e" (rational-test '#e-1234/1) '(-1234 #t)) (test-equal "rational reader w/#e" (rational-test '#e32/7) '(32/7 #t)) (test-equal "rational reader w/#e" (rational-test '#e-32/7) '(-32/7 #t)) (test-equal "rational reader w/#i" (rational-test '#i1234/1) '(1234.0 #f)) (test-equal "rational reader w/#i" (rational-test '#i-1234/1) '(-1234.0 #f)) (test-equal "rational reader w/#i" (rational-test '#i-4/32) '(-0.125 #f)) (test-equal "rational reader w/radix" (rational-test '#e#xff/11) '(15 #t)) (test-equal "rational reader w/radix" (rational-test '#o770/11) '(56 #t)) (test-equal "rational reader w/radix" (rational-test '#x#iff/11) '(15.0 #f)) (test-equal "rational reader edge case" (symbol? (read-from-string "/1")) #t) (test-equal "rational reader edge case" (symbol? (read-from-string "-/1")) #t) (test-equal "rational reader edge case" (symbol? (read-from-string "+/1")) #t) (test-end) ;;------------------------------------------------------------------ (test-begin "flonum reader") (define (flonum-test v) (if (number? v) (list v (inexact? v)) v)) (test-equal "flonum reader" (flonum-test 3.14) '(3.14 #t)) (test-equal "flonum reader" (flonum-test 0.14) '(0.14 #t)) (test-equal "flonum reader" (flonum-test .14) '(0.14 #t)) (test-equal "flonum reader" (flonum-test 3.) '(3.0 #t)) (test-equal "flonum reader" (flonum-test -3.14) '(-3.14 #t)) (test-equal "flonum reader" (flonum-test -0.14) '(-0.14 #t)) (test-equal "flonum reader" (flonum-test -.14) '(-0.14 #t)) (test-equal "flonum reader" (flonum-test -3.) '(-3.0 #t)) (test-equal "flonum reader" (flonum-test +3.14) '(3.14 #t)) (test-equal "flonum reader" (flonum-test +0.14) '(0.14 #t)) (test-equal "flonum reader" (flonum-test +.14) '(0.14 #t)) (test-equal "flonum reader" (flonum-test +3.) '(3.0 #t)) (test-equal "flonum reader" (flonum-test .0) '(0.0 #t)) (test-equal "flonum reader" (flonum-test 0.) '(0.0 #t)) (test-equal "flonum reader" (string->number ".") #f) (test-equal "flonum reader" (string->number "-.") #f) (test-equal "flonum reader" (string->number "+.") #f) (test-equal "flonum reader (exp)" (flonum-test 3.14e2) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test .314e3) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test 314e0) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test 314e-0) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test 3140000e-4) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test -3.14e2) '(-314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test -.314e3) '(-314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test -314e0) '(-314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test -314.e-0) '(-314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test -3140000e-4) '(-314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test +3.14e2) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test +.314e3) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test +314.e0) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test +314e-0) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test +3140000.000e-4) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test .314E3) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test .314s3) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test .314S3) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test .314l3) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test .314L3) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test .314f3) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test .314F3) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test .314d3) '(314.0 #t)) (test-equal "flonum reader (exp)" (flonum-test .314D3) '(314.0 #t)) ;; Broken for unknown reasons on Mingw #;(test-equal "flonum reader (minimum denormalized number 5.0e-324)" (let1 x (expt 2.0 -1074) (= x (string->number (number->string x)))) #t) #;(test-equal "flonum reader (minimum denormalized number -5.0e-324)" (let1 x (- (expt 2.0 -1074)) (= x (string->number (number->string x)))) #t) (test-equal "padding" (flonum-test '1#) '(10.0 #t)) (test-equal "padding" (flonum-test '1#.) '(10.0 #t)) (test-equal "padding" (flonum-test '1#.#) '(10.0 #t)) (test-equal "padding" (flonum-test '10#.#) '(100.0 #t)) (test-equal "padding" (flonum-test '1##.#) '(100.0 #t)) (test-equal "padding" (flonum-test '100.0#) '(100.0 #t)) (test-equal "padding" (flonum-test '1.#) '(1.0 #t)) (test-equal "padding" (flonum-test '1#1) '|1#1|) (test-equal "padding" (flonum-test '1##1) '|1##1|) (test-equal "padding" (flonum-test '1#.1) '|1#.1|) (test-equal "padding" (flonum-test '1.#1) '|1.#1|) (test-equal "padding" (flonum-test '.#) '|.#|) (test-equal "padding" (flonum-test '0.#) '(0.0 #t)) (test-equal "padding" (flonum-test '.0#) '(0.0 #t)) (test-equal "padding" (flonum-test '0#) '(0.0 #t)) (test-equal "padding" (flonum-test '0#.#) '(0.0 #t)) (test-equal "padding" (flonum-test '0#.0) '|0#.0|) (test-equal "padding" (flonum-test '1#e2) '(1000.0 #t)) (test-equal "padding" (flonum-test '1##e1) '(1000.0 #t)) (test-equal "padding" (flonum-test '1#.##e2) '(1000.0 #t)) (test-equal "padding" (flonum-test '0.#e2) '(0.0 #t)) (test-equal "padding" (flonum-test '.0#e2) '(0.0 #t)) (test-equal "padding" (flonum-test '.##e2) '|.##e2|) (test-equal "padding (exactness)" (flonum-test '#e1##) '(100 #f)) (test-equal "padding (exactness)" (flonum-test '#e12#) '(120 #f)) (test-equal "padding (exactness)" (flonum-test '#e12#.#) '(120 #f)) (test-equal "padding (exactness)" (flonum-test '#i1##) '(100.0 #t)) (test-equal "padding (exactness)" (flonum-test '#i12#) '(120.0 #t)) (test-equal "padding (exactness)" (flonum-test '#i12#.#) '(120.0 #t)) (test-equal "exponent out-of-range 1" (flonum-test '1e309) '(+inf.0 #t)) (test-equal "exponent out-of-range 2" (flonum-test '1e10000) '(+inf.0 #t)) ;; TODO: Figure out what goes wrong here ;(test-equal "exponent out-of-range 3" (flonum-test '1e1000000000000000000000000000000000000000000000000000000000000000) '(+inf.0 #t)) (test-equal "exponent out-of-range 4" (flonum-test '-1e309) '(-inf.0 #t)) (test-equal "exponent out-of-range 5" (flonum-test '-1e10000) '(-inf.0 #t)) ;(test-equal "exponent out-of-range 6" (flonum-test '-1e1000000000000000000000000000000000000000000000000000000000000000) '(-inf.0 #t)) (test-equal "exponent out-of-range 7" (flonum-test '1e-324) '(0.0 #t)) (test-equal "exponent out-of-range 8" (flonum-test '1e-1000) '(0.0 #t)) ;(test-equal "exponent out-of-range 9" (flonum-test '1e-1000000000000000000000000000000000000000000000000000000000000000000) '(0.0 #t)) (test-equal "no integral part" (read-from-string ".5") 0.5) (test-equal "no integral part" (read-from-string "-.5") -0.5) (test-equal "no integral part" (read-from-string "+.5") 0.5) (test-end) ;;------------------------------------------------------------------ (test-begin "exact fractional number") (test-equal "exact fractonal number" (string->number "#e1.2345e4") 12345) (test-equal "exact fractonal number" (string->number "#e1.2345e14") 123450000000000) (test-equal "exact fractonal number" (string->number "#e1.2345e2") 12345/100) (test-equal "exact fractonal number" (string->number "#e1.2345e-2") 12345/1000000) (test-equal "exact fractonal number" (string->number "#e-1.2345e4") -12345) (test-equal "exact fractonal number" (string->number "#e-1.2345e14") -123450000000000) (test-equal "exact fractonal number" (string->number "#e-1.2345e2") -12345/100) (test-equal "exact fractonal number" (string->number "#e-1.2345e-2") -12345/1000000) (test-equal "exact fractonal number" (string->number "#e0.0001e300") (expt 10 296)) (test-equal "exact fractonal number" (string->number "#e-0.0001e300") (- (expt 10 296))) (test-equal "exact fractonal number" (read-from-string "#e1e330") (expt 10 330)) (test-equal "exact fractonal number" (read-from-string "#e1e-330") (expt 10 -330)) (test-end) ;;------------------------------------------------------------------ (test-begin "complex reader") (define (decompose-complex z) (cond ((real? z) z) ((complex? z) (list (real-part z) (imag-part z))) (else z))) ;; Fixed for exactness (Gauche's complex numbers are always inexact) (test-equal "complex reader" (decompose-complex '1+i) '(1 1)) (test-equal "complex reader" (decompose-complex '1+1i) '(1 1)) (test-equal "complex reader" (decompose-complex '1-i) '(1 -1)) (test-equal "complex reader" (decompose-complex '1-1i) '(1 -1)) (test-equal "complex reader" (decompose-complex '1.0+1i) '(1.0 1.0)) (test-equal "complex reader" (decompose-complex '1.0+1.0i) '(1.0 1.0)) (test-equal "complex reader" (decompose-complex '1e-5+1i) '(1e-5 1.0)) (test-equal "complex reader" (decompose-complex '1e+5+1i) '(1e+5 1.0)) (test-equal "complex reader" (decompose-complex '1+1e-5i) '(1.0 1e-5)) (test-equal "complex reader" (decompose-complex '1+1e+5i) '(1.0 1e+5)) (test-equal "complex reader" (decompose-complex '0.1+0.1e+5i) '(0.1 1e+4)) (test-equal "complex reader" (decompose-complex '+i) '(0 1)) (test-equal "complex reader" (decompose-complex '-i) '(0 -1)) (test-equal "complex reader" (decompose-complex '+1i) '(0 1)) (test-equal "complex reader" (decompose-complex '-1i) '(0 -1)) (test-equal "complex reader" (decompose-complex '+1.i) '(0.0 1.0)) (test-equal "complex reader" (decompose-complex '-1.i) '(0.0 -1.0)) (test-equal "complex reader" (decompose-complex '+1.0i) '(0.0 1.0)) (test-equal "complex reader" (decompose-complex '-1.0i) '(0.0 -1.0)) (test-equal "complex reader" (decompose-complex '1+0.0i) 1.0) (test-equal "complex reader" (decompose-complex '1+.0i) 1.0) (test-equal "complex reader" (decompose-complex '1+0.i) 1.0) (test-equal "complex reader" (decompose-complex '1+0.0e-43i) 1.0) (test-equal "complex reader" (decompose-complex '1e2+0.0e-43i) 100.0) (test-equal "complex reader" (decompose-complex 'i) 'i) (test-equal "complex reader" (decompose-complex (string->number ".i")) #f) (test-equal "complex reader" (decompose-complex (string->number "+.i")) #f) (test-equal "complex reader" (decompose-complex (string->number "-.i")) #f) (test-equal "complex reader" (decompose-complex '33i) '33i) (test-equal "complex reader" (decompose-complex 'i+1) 'i+1) (test-equal "complex reader" (decompose-complex '++i) '|++i|) (test-equal "complex reader" (decompose-complex '--i) '|--i|) (test-equal "complex reader" (decompose-complex 1/2+1/2i) '(1/2 1/2)) (test-equal "complex reader" (decompose-complex 0+1/2i) '(0 1/2)) (test-equal "complex reader" (decompose-complex -1/2i) '(0 -1/2)) (test-equal "complex reader" (decompose-complex 1/2-0/2i) 1/2) ;; The following is also invalid R5RS syntax, so it's commented out #;(test-equal "complex reader" (decompose-complex (string->number "1/2-1/0i")) '(0.5 -inf.0)) (test-equal "complex reader (polar)" (make-polar 1.0 1.0) 1.0@1.0) (test-equal "complex reader (polar)" (make-polar 1.0 -1.0) 1.0@-1.0) (test-equal "complex reader (polar)" (make-polar 1.0 1.0) 1.0@+1.0) (test-equal "complex reader (polar)" (make-polar -7.0 -3.0) -7@-3.0) (test-equal "complex reader (polar)" (make-polar 3.5 -3.0) 7/2@-3.0) (test-equal "complex reader (polar)" (string->number "7/2@-3.14i") #f) (test-end) ;;------------------------------------------------------------------ (test-begin "integer writer syntax") (define (i-tester2 x) (map number->string (i-tester x))) (test-equal "around 2^28" (i-tester2 (exp2 28)) '("268435456" "536870911" "536870912" "-268435456" "-536870911" "-536870912" "-536870913")) (test-equal "around 2^31" (i-tester2 (exp2 31)) '("2147483648" "4294967295" "4294967296" "-2147483648" "-4294967295" "-4294967296" "-4294967297")) (test-equal "around 2^60" (i-tester2 (exp2 60)) '("1152921504606846976" "2305843009213693951" "2305843009213693952" "-1152921504606846976" "-2305843009213693951" "-2305843009213693952" "-2305843009213693953")) (test-equal "around 2^63" (i-tester2 (exp2 63)) '("9223372036854775808" "18446744073709551615" "18446744073709551616" "-9223372036854775808" "-18446744073709551615" "-18446744073709551616" "-18446744073709551617")) (test-equal "around 2^127" (i-tester2 (exp2 127)) '("170141183460469231731687303715884105728" "340282366920938463463374607431768211455" "340282366920938463463374607431768211456" "-170141183460469231731687303715884105728" "-340282366920938463463374607431768211455" "-340282366920938463463374607431768211456" "-340282366920938463463374607431768211457")) (test-end) ;;================================================================== ;; Conversions ;; ;; We first test expt, for we need to use it to test exact<->inexact ;; conversion stuff. (test-begin "expt") (test-equal "exact expt" (expt 5 0) 1) (test-equal "exact expt" (expt 5 10) 9765625) (test-equal "exact expt" (expt 5 13) 1220703125) (test-equal "exact expt" (expt 5 123) 94039548065783000637498922977779654225493244541767001720700136502273380756378173828125) (test-equal "exact expt" (expt 5 -123) 1/94039548065783000637498922977779654225493244541767001720700136502273380756378173828125) (test-equal "exact expt" (expt -5 0) 1) (test-equal "exact expt" (expt -5 10) 9765625) (test-equal "exact expt" (expt -5 13) -1220703125) (test-equal "exact expt" (expt -5 123) -94039548065783000637498922977779654225493244541767001720700136502273380756378173828125) (test-equal "exact expt" (expt -5 -123) -1/94039548065783000637498922977779654225493244541767001720700136502273380756378173828125) (test-equal "exact expt" (expt 1 720000) 1) (test-equal "exact expt" (expt -1 720000) 1) (test-equal "exact expt" (expt -1 720001) -1) (test-equal "exact expt (ratinoal)" (expt 2/3 33) 8589934592/5559060566555523) (test-equal "exact expt (rational)" (expt -2/3 33) -8589934592/5559060566555523) (test-equal "exact expt (ratinoal)" (expt 2/3 -33) 5559060566555523/8589934592) (test-end) (parameterize ((current-test-epsilon 10e7)) (test-equal "expt (coercion to inexact)" (expt 2 1/2) 1.4142135623730951)) ;; NB: pa$ will be tested later (test-begin "exact<->inexact") (for-each (lambda (e&i) (let ((e (car e&i)) (i (cdr e&i))) (test-equal (format "exact->inexact ~s" i) (exact->inexact e) i) (test-equal (format "exact->inexact ~s" (- i)) (exact->inexact (- e)) (- i)) (test-equal (format "inexact->exact ~s" e) (inexact->exact i) e) (test-equal (format "inexact->exact ~s" (- e)) (inexact->exact (- i)) (- e)) )) `((0 . 0.0) (1 . 1.0) (-1 . -1.0) (,(expt 2 52) . ,(expt 2.0 52)) (,(expt 2 53) . ,(expt 2.0 53)) (,(expt 2 54) . ,(expt 2.0 54)) )) ;; Rounding bignum to flonum, edge cases. ;; Test patterns: ;; ;; <------53bits-------> ;;a) 100000000...000000000100000....0000 round down (r0) ;;b) 100000000...000000000100000....0001 round up (r1) ;;c) 100000000...000000001100000....0000 round up (r2) ;;d) 100000000...000000001011111....1111 round down (r1) ;;e) 111111111...111111111100000....0000 round up, carry over (* r0 2) ;;f) 101111111...111111111100000....0000 round up, no carry over (r3) ;; <--32bits--> ;;g) 100..0000111.....1111100000....0000 round up; boundary on ILP32 (r4) (let loop ((n 0) (a (+ (expt 2 53) 1)) (c (+ (expt 2 53) 3)) (e (- (expt 2 54) 1)) (f (+ (expt 2 53) (expt 2 52) -1)) (g (+ (expt 2 53) (expt 2 33) -1)) (r0 (expt 2.0 53)) (r1 (+ (expt 2.0 53) 2.0)) (r2 (+ (expt 2.0 53) 4.0)) (r3 (+ (expt 2.0 53) (expt 2.0 52))) (r4 (+ (expt 2.0 53) (expt 2.0 33)))) (when (< n 32) (test-equal (format "exact->inexact, pattern a: round down (~a)" n) (exact->inexact a) r0) (test-equal (format "exact->inexact, pattern b: round up (~a)" n) (exact->inexact (+ a 1)) r1) (test-equal (format "exact->inexact, pattern c: round up (~a)" n) (exact->inexact c) r2) (test-equal (format "exact->inexact, pattern d: round down (~a)" n) (exact->inexact (- c 1)) r1) (test-equal (format "exact->inexact, pattern e: round up (~a)" n) (exact->inexact e) (* r0 2.0)) (test-equal (format "exact->inexact, pattern f: round up (~a)" n) (exact->inexact f) r3) (test-equal (format "exact->inexact, pattern g: round up (~a)" n) (exact->inexact g) r4) (loop (+ n 1) (ash a 1) (ash c 1) (ash e 1) (ash f 1) (ash g 1) (* r0 2.0) (* r1 2.0) (* r2 2.0) (* r3 2.0) (* r4 2.0)))) (parameterize ((current-test-epsilon 10e12)) (test-equal "expt (ratnum with large denom and numer) with inexact conversion 1" (exact->inexact (expt 8/9 342)) (expt 8/9 342.0)) (test-equal "expt (ratnum with large denom and numer) with inexact conversion 2" (exact->inexact (expt -8/9 343)) (expt -8/9 343.0))) ;; The following few tests covers RATNUM paths in Scm_GetDouble (test-equal "expt (ratnum with large denom and numer) with inexact conversion 3" (exact->inexact (/ (expt 10 20) (expt 10 328))) 1.0e-308) ;; In the original Gauche test this checked for a return value of 0.0, but ;; that's quite Gauche-specific. We return 1.0e-309. ;; It's probably wrong to test this kind of behaviour in the first place... (test-equal "expt (ratnum with large denom and numer) with inexact conversion 4" (exact->inexact (/ (expt 10 20) (expt 10 329))) 1.0e-309) (test-equal "expt (ratnum with large denom and numer) with inexact conversion 5" (exact->inexact (/ (expt 10 328) (expt 10 20))) 1.0e308) (test-equal "expt (ratnum with large denom and numer) with inexact conversion 6" (exact->inexact (/ (expt 10 329) (expt 10 20))) +inf.0) (test-equal "expt (ratnum with large denom and numer) with inexact conversion 7" (exact->inexact (/ (expt -10 329) (expt 10 20))) -inf.0) (test-end) ;;================================================================== ;; Predicates ;; (test-begin "predicates") (test-equal "integer?" (integer? 0) #t) (test-equal "integer?" (integer? 85736847562938475634534245) #t) (test-equal "integer?" (integer? 85736.534245) #f) (test-equal "integer?" (integer? 3.14) #f) (test-equal "integer?" (integer? 3+4i) #f) (test-equal "integer?" (integer? 3+0i) #t) (test-equal "integer?" (integer? #f) #f) (test-equal "rational?" (rational? 0) #t) (test-equal "rational?" (rational? 85736847562938475634534245) #t) (test-equal "rational?" (rational? 1/2) #t) (test-equal "rational?" (rational? 85736.534245) #t) (test-equal "rational?" (rational? 3.14) #t) (test-equal "rational?" (rational? 3+4i) #f) (test-equal "rational?" (rational? 3+0i) #t) (test-equal "rational?" (rational? #f) #f) (test-equal "rational?" (rational? +inf.0) #f) (test-equal "rational?" (rational? -inf.0) #f) (test-equal "rational?" (rational? +nan.0) #f) (test-equal "real?" (real? 0) #t) (test-equal "real?" (real? 85736847562938475634534245) #t) (test-equal "real?" (real? 857368.4756293847) #t) (test-equal "real?" (real? 3+0i) #t) (test-equal "real?" (real? 3+4i) #f) (test-equal "real?" (real? +4.3i) #f) (test-equal "real?" (real? '()) #f) (test-equal "real?" (real? +inf.0) #t) (test-equal "real?" (real? -inf.0) #t) (test-equal "real?" (real? +nan.0) #t) (test-equal "complex?" (complex? 0) #t) (test-equal "complex?" (complex? 85736847562938475634534245) #t) (test-equal "complex?" (complex? 857368.4756293847) #t) (test-equal "complex?" (complex? 3+0i) #t) (test-equal "complex?" (complex? 3+4i) #t) (test-equal "complex?" (complex? +4.3i) #t) (test-equal "complex?" (complex? '()) #f) (test-equal "number?" (number? 0) #t) (test-equal "number?" (number? 85736847562938475634534245) #t) (test-equal "number?" (number? 857368.4756293847) #t) (test-equal "number?" (number? 3+0i) #t) (test-equal "number?" (number? 3+4i) #t) (test-equal "number?" (number? +4.3i) #t) (test-equal "number?" (number? '()) #f) (test-equal "exact?" (exact? 1) #t) (test-equal "exact?" (exact? 4304953480349304983049304953804) #t) (test-equal "exact?" (exact? 430495348034930/4983049304953804) #t) (test-equal "exact?" (exact? 1.0) #f) (test-equal "exact?" (exact? 4304953480349304983.049304953804) #f) (test-equal "exact?" (exact? 1.0+0i) #f) (test-equal "exact?" (exact? 1.0+5i) #f) (test-equal "inexact?" (inexact? 1) #f) (test-equal "inexact?" (inexact? 4304953480349304983049304953804) #f) (test-equal "inexact?" (inexact? 430495348034930/4983049304953804) #f) (test-equal "inexact?" (inexact? 1.0) #t) (test-equal "inexact?" (inexact? 4304953480349304983.049304953804) #t) (test-equal "inexact?" (inexact? 1.0+0i) #t) (test-equal "inexact?" (inexact? 1.0+5i) #t) (test-equal "odd?" (odd? 1) #t) (test-equal "odd?" (odd? 2) #f) (test-equal "even?" (even? 1) #f) (test-equal "even?" (even? 2) #t) (test-equal "odd?" (odd? 1.0) #t) (test-equal "odd?" (odd? 2.0) #f) (test-equal "even?" (even? 1.0) #f) (test-equal "even?" (even? 2.0) #t) (test-equal "odd?" (odd? 10000000000000000000000000000000000001) #t) (test-equal "odd?" (odd? 10000000000000000000000000000000000002) #f) (test-equal "even?" (even? 10000000000000000000000000000000000001) #f) (test-equal "even?" (even? 10000000000000000000000000000000000002) #t) (test-equal "zero?" (zero? 0) #t) (test-equal "zero?" (zero? 0.0) #t) (test-equal "zero?" (zero? (- 10 10.0)) #t) (test-equal "zero?" (zero? 0+0i) #t) (test-equal "zero?" (zero? 1.0) #f) (test-equal "zero?" (zero? +5i) #f) (test-equal "positive?" (positive? 1) #t) (test-equal "positive?" (positive? -1) #f) (test-equal "positive?" (positive? 1/7) #t) (test-equal "positive?" (positive? -1/7) #f) (test-equal "positive?" (positive? 3.1416) #t) (test-equal "positive?" (positive? -3.1416) #f) (test-equal "positive?" (positive? 134539485343498539458394) #t) (test-equal "positive?" (positive? -134539485343498539458394) #f) (test-equal "negative?" (negative? 1) #f) (test-equal "negative?" (negative? -1) #t) (test-equal "negative?" (negative? 1/7) #f) (test-equal "negative?" (negative? -1/7) #t) (test-equal "negative?" (negative? 3.1416) #f) (test-equal "negative?" (negative? -3.1416) #t) (test-equal "negative?" (negative? 134539485343498539458394) #f) (test-equal "negative?" (negative? -134539485343498539458394) #t) (let-syntax ((tester (syntax-rules () ((_ name proc result) (begin (test-error name (proc #t)) (test-equal name (list (proc 1) (proc +inf.0) (proc -inf.0) (proc +nan.0)) result)))))) (tester "finite?" finite? `(#t #f #f #f)) (tester "infinite?" infinite? `(#f #t #t #f)) (tester "nan?" nan? `(#f #f #f #t)) ) (test-equal "eqv?" (eqv? 20 20) #t) (test-equal "eqv?" (eqv? 20.0 20.00000) #t) (test-equal "eqv?" (eqv? 4/5 0.8) #f) (test-equal "eqv?" (eqv? (exact->inexact 4/5) 0.8) #t) (test-equal "eqv?" (eqv? 4/5 (inexact->exact 0.8)) #f) (test-equal "eqv?" (eqv? 20 (inexact->exact 20.0)) #t) (test-equal "eqv?" (eqv? 20 20.0) #f) ;; numeric comparison involving nan. we should test both ;; inlined case and applied case (define-syntax test-nan-cmp (ir-macro-transformer (lambda (e r c) (let ((op (cadr e))) `(begin (test-equal (format "NaN ~a (inlined)" ',op) (list (,op +nan.0 +nan.0) (,op +nan.0 0) (,op 0 +nan.0)) '(#f #f #f)) (test-equal (format "NaN ~a (applied)" ',op) (list (apply ,op '(+nan.0 +nan.0)) (apply ,op '(+nan.0 0)) (apply ,op '(0 +nan.0))) '(#f #f #f))))))) (test-nan-cmp =) (test-nan-cmp <) (test-nan-cmp <=) (test-nan-cmp >) (test-nan-cmp >=) ;; the following tests combine instructions for comparison. (let ((zz #f)) (set! zz 3.14) ;; prevent the compiler from optimizing constants (test-equal "NUMEQF" (list (= 3.14 zz) (= zz 3.14) (= 3.15 zz) (= zz 3.15)) '(#t #t #f #f)) (test-equal "NLTF" (list (< 3.14 zz) (< zz 3.14) (< 3.15 zz) (< zz 3.15) (< 3.13 zz) (< zz 3.13)) '(#f #f #f #t #t #f)) (test-equal "NLEF" (list (<= 3.14 zz) (<= zz 3.14) (<= 3.15 zz) (<= zz 3.15) (<= 3.13 zz) (<= zz 3.13)) '(#t #t #f #t #t #f)) (test-equal "NGTF" (list (> 3.14 zz) (> zz 3.14) (> 3.15 zz) (> zz 3.15) (> 3.13 zz) (> zz 3.13)) '(#f #f #t #f #f #t)) (test-equal "NGEF" (list (>= 3.14 zz) (>= zz 3.14) (>= 3.15 zz) (>= zz 3.15) (>= 3.13 zz) (>= zz 3.13)) '(#t #t #t #f #f #t)) ) ;; Go through number comparison routines. ;; assumes a >= b, a > 0, b > 0 ;; we use apply to prevent inlining. (define (numcmp-test msg eq a b) (let ((pp (list a b)) (pm (list a (- b))) (mp (list (- a) b)) (mm (list (- a) (- b)))) (define (test4 op opname rev results) (for-each (lambda (result comb args) (let ((m (conc msg " " (if rev 'rev "") opname "(" comb ")"))) (test-equal m (apply op (if rev (reverse args) args)) result))) results '(++ +- -+ --) (list pp pm mp mm))) (test4 = '= #f (list eq #f #f eq)) (test4 = '= #t (list eq #f #f eq)) (test4 >= '>= #f (list #t #t #f eq)) (test4 >= '>= #t (list eq #f #t #t)) (test4 > '> #f (list (not eq) #t #f #f)) (test4 > '> #t (list #f #f #t (not eq))) (test4 <= '<= #f (list eq #f #t #t)) (test4 <= '<= #t (list #t #t #f eq)) (test4 < '< #f (list #f #f #t (not eq))) (test4 < '< #t (list (not eq) #t #f #f)) )) (numcmp-test "fixnum vs fixnum eq" #t 156 156) (numcmp-test "fixnum vs fixnum ne" #f 878252 73224) (numcmp-test "bignum vs fixnum ne" #f (expt 3 50) 9982425) (numcmp-test "bignum vs bignum eq" #t (expt 3 50) (expt 3 50)) (numcmp-test "bignum vs bignum ne" #f (expt 3 50) (expt 3 49)) (numcmp-test "flonum vs fixnum eq" #t 314.0 314) (numcmp-test "flonum vs fixnum ne" #f 3140.0 314) (numcmp-test "flonum vs bignum eq" #t (expt 2.0 64) (expt 2 64)) (numcmp-test "flonum vs bignum ne" #f (expt 2.0 64) (expt 2 63)) (numcmp-test "ratnum vs fixnum ne" #f 13/2 6) (numcmp-test "ratnum vs ratnum eq" #t 3/5 3/5) (numcmp-test "ratnum vs ratnum 1 ne" #f 3/5 4/7) (numcmp-test "ratnum vs ratnum 2 ne" #f 4/5 3/7) (numcmp-test "ratnum vs ratnum 3 ne" #f 4/7 2/5) (numcmp-test "ratnum vs ratnum 4 ne" #f 4/7 3/7) (numcmp-test "ratnum vs flonum eq" #t 3/8 0.375) (numcmp-test "ratnum vs flonum ne" #f 8/9 0.6) (numcmp-test "ratnum vs bignum ne" #f (/ (+ (expt 2 64) 1) 2) (expt 2 63)) ;; This is from the bug report from Bill Schottsteadt. Before 0.8.10 ;; this yielded #t because of the precision loss in fixnum vs ratnum ;; comparison. (test-equal "fixnum/ratnum comparison" (= -98781233389595723930250385525631360344437602649022271391716773162526352115087074898920261954897888235939429993829738630297052776667061779065100945771127020439712527398509771853491319737304616607041615012797134365574007368603232768089410097730646360760856052946465578073788924743642391638455649511108051053789425902013657106523269224045822294981391380222050223141347787674321888089837786284947870569165079491411110074602544203383038299901291952931113248943344436935596614205784436844912243069019367149526328612664067719765890897558075277707055756274228634652905751880612235340874976952880431555921814590049070979276358637989837532124647692152520447680373275200239544449293834424643702763974403094033892112967196087310232853165951285609426599617479356206218697586025251765476179158153123631158173662488102357611674821528467825910806391548770908013608889792001203039243914696463472490444573930050190716726220002151679336252008777326482398042427845860796285369622627679324605214987983884122808994422164327311297556122943400093231935477754959547620500784989043704825777186301417894825200797719289692636286337716705491307686644214213732116277102140558505945554566856673724837541141206267647285222293953181717113434757149921850120377706206012113994795124049471433490016083401216757825264766474891405185591236321448744678896448941259668731597494947127423662646933419809756274038044752395708014998820826196523041220918922611359697502638594907608648168849193813197790291360087857093790119162389573209640804111261616771827989939551840471235079945175327536638365874717775169210186608268924244639016270610098894971732892267642318266405837012482726627199088381027028630711279130575230815976484191675172279903609489448225149181063260231957171204855841611039996959582465138269247794842445177715476581512709861409446684911276158067098438009067149531119008707418601627426255891/2063950098473886055933596136103014753954685977787179797499441692283103642150668140884348149132839387663291870239435604463778573480782766958396423322880804442523056530013282118705429274303746421980903580754656364533869319744640130831962767797772323836293079599182477171562218297208495122660799328579852852969560730744211066545295945803939271680397511478811389399527913043145952054883289558914237172406636283114284363301999238526952309439259354223729114988806937903509692118585280437646676248013406270664905997291670857985754768850507766359973207600149782819306010561088246502918148146264806947375101624011387317921439210509902170092173796154464078297852707797984007992277904626058467143192149921546030028316990855470478894515952884526783686210401408859364838148201339959570732480920969000913791571631154267939054105878236201498477027265774680071188764947522112650857013491135901945605796776829525789886482760578142306057177990048751864852763036720112071475134369179525117161001517868525821398753039187062869247457336940152614866298628205010037695017885878296140891234142925514925051385440766473260338168038302226808098439763889250948602137806546736025439919604390464712793474019469457135856879584745805794574609707742445431851999335443724488636749987837445626810087003490329257105472274738811579817454656532496370562155449815456374456838912258383282154811001588175608617475540639254689723629881619252699580383612847920348111900440075645703960104081690968807839189109040568288972353424306876947127635585164905071821419089229871978994388197349499565628906992171901547121903117815637249359328193980583892566359962066242217169190169986105579733710057404319381685578470983838597020624234209884597110721892707818651210378187525863009879314177842634871978427592746452643603586344401223449546482306838947819060455178762434166799996220143825677025686435609179225302671777326568324855229172912876656233006785717920665743720753617646617017219230313226844735567400507490772935145894670445831971526014183234960075574401616682479457962912905141754252265169682318523572680657053374002911007741991220001444440319448034755483178790032581428679303588017268970 0) #f) ;;================================================================== ;; Fixnum stuff ;; (test-equal "fixnum? fixnum" (fixnum? 0) #t) (test-equal "fixnum? ratnum" (fixnum? 1/2) #f) (test-equal "fixnum? bignum" (fixnum? (expt 2 256)) #f) (test-equal "fixnum? flonum" (fixnum? 3.14) #f) (test-equal "fixnum? compnum" (fixnum? 1+3i) #f) (test-equal "fixnum? greatest" (fixnum? (greatest-fixnum)) #t) (test-equal "fixnum? greatest+1" (fixnum? (+ (greatest-fixnum) 1)) #f) (test-equal "fixnum? least" (fixnum? (least-fixnum)) #t) (test-equal "fixnum? least-1" (fixnum? (- (least-fixnum) 1)) #f) (test-equal "greatest fixnum & width" (- (ash 1 (fixnum-width)) 1) (greatest-fixnum)) (test-equal "least fixnum & width" (- (ash 1 (fixnum-width))) (least-fixnum)) (test-end) ;;================================================================== ;; Arithmetics ;; ;;------------------------------------------------------------------ (test-begin "integer addition") (define x #xffffffff00000000ffffffff00000000) (define xx (- x)) (define y #x00000002000000000000000200000000) (define yy (- y)) (define z #x00000000000000010000000000000001) (test-equal "bignum + bignum" (+ x y) #x100000001000000010000000100000000) (test-equal "bignum + -bignum" (+ x yy) #xfffffffd00000000fffffffd00000000) (test-equal "bignum - bignum" (- x z) #xfffffffefffffffffffffffeffffffff) (test-equal "bignum - bignum" (- (+ x y) y) x) (test-equal "-bignum + bignum" (+ xx y) #x-fffffffd00000000fffffffd00000000) (test-equal "-bignum + -bignum" (+ xx yy) #x-100000001000000010000000100000000) (test-equal "-bignum - bignum" (- xx y) #x-100000001000000010000000100000000) (test-equal "-bignum - -bignum" (- xx yy) #x-fffffffd00000000fffffffd00000000) ;; This test a possible shortcut in Scm_Add etc. We use apply ;; to avoid operators from being inlined. (test-equal "0 + bignum" (list (apply + (list 0 x)) (apply + (list x 0))) (list x x)) (test-equal "0 - bignum" (list (apply - (list 0 x)) (apply - (list x 0))) (list (- x) x)) (test-equal "0 * bignum" (list (apply * (list 0 x)) (apply * (list x 0))) (list 0 0)) (test-equal "1 * bignum" (list (apply * (list 1 x)) (apply * (list x 1))) (list x x)) (test-equal "bignum / 1" (apply / (list x 1)) x) (test-end) ;;------------------------------------------------------------------ (test-begin "small immediate integer constants") ;; pushing small literal integer on the stack may be done ;; by combined instruction PUSHI. These test if it works. (define (foo a b c d e) (list a b c d e)) ;; 2^19-1 (test-equal "PUSHI" (foo 0 524287 524288 -524287 -524288) '(0 524287 524288 -524287 -524288)) ;; 2^51-1 (test-equal "PUSHI" (foo 0 2251799813685247 2251799813685248 -2251799813685247 -2251799813685248) '(0 2251799813685247 2251799813685248 -2251799813685247 -2251799813685248 )) (test-end) ;;------------------------------------------------------------------ (test-begin "small immediate integer additions") ;; small literal integer x (-2^19 <= x < 2^19 on 32bit architecture) ;; in binary addition/subtraction is compiled in special instructuions, ;; NUMADDI and NUMSUBI. (define x 2) (test-equal "NUMADDI" (+ 3 x) 5) (test-equal "NUMADDI" (+ x 3) 5) (test-equal "NUMADDI" (+ -1 x) 1) (test-equal "NUMADDI" (+ x -1) 1) (test-equal "NUMSUBI" (- 3 x) 1) (test-equal "NUMSUBI" (- x 3) -1) (test-equal "NUMSUBI" (- -3 x) -5) (test-equal "NUMSUBI" (- x -3) 5) (define x 2.0) (test-equal "NUMADDI" (+ 3 x) 5.0) (test-equal "NUMADDI" (+ x 3) 5.0) (test-equal "NUMADDI" (+ -1 x) 1.0) (test-equal "NUMADDI" (+ x -1) 1.0) (test-equal "NUMSUBI" (- 3 x) 1.0) (test-equal "NUMSUBI" (- x 3) -1.0) (test-equal "NUMSUBI" (- -3 x) -5.0) (test-equal "NUMSUBI" (- x -3) 5.0) (define x #x100000000) (test-equal "NUMADDI" (+ 3 x) #x100000003) (test-equal "NUMADDI" (+ x 3) #x100000003) (test-equal "NUMADDI" (+ -1 x) #xffffffff) (test-equal "NUMADDI" (+ x -1) #xffffffff) (test-equal "NUMSUBI" (- 3 x) #x-fffffffd) (test-equal "NUMSUBI" (- x 3) #xfffffffd) (test-equal "NUMSUBI" (- -3 x) #x-100000003) (test-equal "NUMSUBI" (- x -3) #x100000003) (define x 33/7) (test-equal "NUMADDI" (+ 3 x) 54/7) (test-equal "NUMADDI" (+ x 3) 54/7) (test-equal "NUMADDI" (+ -1 x) 26/7) (test-equal "NUMADDI" (+ x -1) 26/7) (test-equal "NUMADDI" (- 3 x) -12/7) (test-equal "NUMADDI" (- x 3) 12/7) (test-equal "NUMADDI" (- -3 x) -54/7) (test-equal "NUMADDI" (- x -3) 54/7) (test-equal "NUMADDI" (+ 10 (if #t 20 25)) 30) (test-equal "NUMADDI" (+ (if #t 20 25) 10) 30) (test-equal "NUMADDI" (+ 10 (if #f 20 25)) 35) (test-equal "NUMADDI" (+ (if #f 20 25) 10) 35) (test-equal "NUMADDI" (let ((x #t)) (+ 10 (if x 20 25))) 30) (test-equal "NUMADDI" (let ((x #t)) (+ (if x 20 25) 10)) 30) (test-equal "NUMADDI" (let ((x #f)) (+ 10 (if x 20 25))) 35) (test-equal "NUMADDI" (let ((x #f)) (+ (if x 20 25) 10)) 35) (test-equal "NUMADDI" (+ 10 (do ((x 0 (+ x 1))) ((> x 10) x))) 21) (test-equal "NUMADDI" (+ (do ((x 0 (+ x 1))) ((> x 10) x)) 10) 21) (test-equal "NUMSUBI" (- 10 (if #t 20 25)) -10) (test-equal "NUMSUBI" (- (if #t 20 25) 10) 10) (test-equal "NUMSUBI" (- 10 (if #f 20 25)) -15) (test-equal "NUMSUBI" (- (if #f 20 25) 10) 15) (test-equal "NUMSUBI" (let ((x #t)) (- 10 (if x 20 25))) -10) (test-equal "NUMSUBI" (let ((x #t)) (- (if x 20 25) 10)) 10) (test-equal "NUMSUBI" (let ((x #f)) (- 10 (if x 20 25))) -15) (test-equal "NUMSUBI" (let ((x #f)) (- (if x 20 25) 10)) 15) (test-equal "NUMSUBI" (- 10 (do ((x 0 (+ x 1))) ((> x 10) x))) -1) (test-equal "NUMSUBI" (- (do ((x 0 (+ x 1))) ((> x 10) x)) 10) 1) (test-end) ;;------------------------------------------------------------------ (test-begin "immediate flonum integer arith") ;; tests special instructions for immediate flonum integer arithmetic (define x 2.0) (test-equal "NUMADDF" (+ 3 x) 5.0) (test-equal "NUMADDF" (+ x 3) 5.0) (test-equal "NUMADDF" (+ -1 x) 1.0) (test-equal "NUMADDF" (+ x -1) 1.0) (test-equal "NUMADDF" (+ +i x) 2.0+1.0i) (test-equal "NUMADDF" (+ x +i) 2.0+1.0i) (test-equal "NUMSUBF" (- 3 x) 1.0) (test-equal "NUMSUBF" (- x 3) -1.0) (test-equal "NUMSUBF" (- -3 x) -5.0) (test-equal "NUMSUBF" (- x -3) 5.0) (test-equal "NUMSUBF" (- +i x) -2.0+1.0i) (test-equal "NUMSUBF" (- x +i) 2.0-1.0i) (test-equal "NUMMULF" (* x 2) 4.0) (test-equal "NUMMULF" (* 2 x) 4.0) (test-equal "NUMMULF" (* x 1.5) 3.0) (test-equal "NUMMULF" (* 1.5 x) 3.0) (test-equal "NUMMULF" (* x +i) 0+2.0i) (test-equal "NUMMULF" (* +i x) 0+2.0i) (test-equal "NUMDIVF" (/ x 4) 0.5) (test-equal "NUMDIVF" (/ 4 x) 2.0) (test-equal "NUMDIVF" (/ x 4.0) 0.5) (test-equal "NUMDIVF" (/ 4.0 x) 2.0) (test-equal "NUMDIVF" (/ x +4i) 0.0-0.5i) (test-equal "NUMDIVF" (/ +4i x) 0.0+2.0i) (test-end) ;;------------------------------------------------------------------ (test-begin "rational number addition") (test-equal "ratnum +" (+ 11/13 21/19) 482/247) (test-equal "ratnum -" (- 11/13 21/19) -64/247) ;; tests possible shortcut in Scm_Add etc. (test-equal "ratnum + 0" (list (apply + '(0 11/13)) (apply + '(11/13 0))) (list 11/13 11/13)) (test-equal "ratnum - 0" (list (apply - '(0 11/13)) (apply - '(11/13 0))) (list -11/13 11/13)) (test-equal "ratnum * 0" (list (apply * '(0 11/13)) (apply * '(11/13 0))) (list 0 0)) (test-equal "ratnum * 1" (list (apply * '(1 11/13)) (apply * '(11/13 1))) (list 11/13 11/13)) (test-equal "ratnum / 1" (apply / '(11/13 1)) 11/13) (test-end) ;;------------------------------------------------------------------ (test-begin "promotions in addition") (define-syntax +-tester (syntax-rules () ((_ (+ args ...)) (let ((inline (+ args ...)) (other (apply + `(,args ...)))) (and (= inline other) (list inline (exact? inline))))))) (test-equal "+" (+-tester (+)) '(0 #t)) (test-equal "+" (+-tester (+ 1)) '(1 #t)) (test-equal "+" (+-tester (+ 1 2)) '(3 #t)) (test-equal "+" (+-tester (+ 1 2 3)) '(6 #t)) (test-equal "+" (+-tester (+ 1/6 1/3 1/2)) '(1 #t)) (test-equal "+" (+-tester (+ 1.0)) '(1.0 #f)) (test-equal "+" (+-tester (+ 1.0 2)) '(3.0 #f)) (test-equal "+" (+-tester (+ 1 2.0)) '(3.0 #f)) (test-equal "+" (+-tester (+ 1 2 3.0)) '(6.0 #f)) (test-equal "+" (+-tester (+ 1/6 1/3 0.5)) '(1.0 #f)) (test-equal "+" (+-tester (+ 1 +i)) '(1+i #t)) (test-equal "+" (+-tester (+ 1 2 +i)) '(3+i #t)) (test-equal "+" (+-tester (+ +i 1 2)) '(3+i #t)) (test-equal "+" (+-tester (+ 1.0 2 +i)) '(3.0+i #f)) (test-equal "+" (+-tester (+ +i 1.0 2)) '(3.0+i #f)) (test-equal "+" (+-tester (+ 4294967297 1.0)) '(4294967298.0 #f)) (test-equal "+" (+-tester (+ 4294967297 1 1.0)) '(4294967299.0 #f)) (test-equal "+" (+-tester (+ 4294967297 1.0 -i)) '(4294967298.0-i #f)) (test-equal "+" (+-tester (+ -i 4294967297 1.0)) '(4294967298.0-i #f)) (test-equal "+" (+-tester (+ 1.0 4294967297 -i)) '(4294967298.0-i #f)) (test-end) ;;------------------------------------------------------------------ (test-begin "integer multiplication") (define (m-result x) (list x (- x) (- x) x x (- x) (- x) x)) (define (m-tester x y) (list (* x y) (* (- x) y) (* x (- y)) (* (- x) (- y)) (apply * (list x y)) (apply * (list (- x) y)) (apply * (list x (- y))) (apply * (list (- x) (- y))))) (test-equal "fix*fix->big[1]" (m-tester 41943 17353) (m-result 727836879)) (test-equal "fix*fix->big[1]" (m-tester 41943 87353) (m-result 3663846879)) (test-equal "fix*fix->big[2]" (m-tester 65536 65536) (m-result 4294967296)) (test-equal "fix*fix->big[2]" (m-tester 4194303 87353) (m-result 366384949959)) (test-equal "fix*big[1]->big[1]" (m-tester 3 1126270821) (m-result 3378812463)) (test-equal "fix*big[1]->big[2]" (m-tester 85746 4294967296) (m-result 368276265762816)) (test-equal "big[1]*fix->big[1]" (m-tester 1126270821 3) (m-result 3378812463)) (test-equal "big[1]*fix->big[2]" (m-tester 4294967296 85746) (m-result 368276265762816)) (test-equal "big[2]*fix->big[2]" (m-tester 535341266467 23) (m-result 12312849128741)) (test-equal "big[1]*big[1]->big[2]" (m-tester 1194726677 1126270821) (m-result 1345585795375391817)) ;; Large number multiplication test using Fermat's number ;; The decomposition of Fermat's number is taken from ;; http://www.dd.iij4u.or.jp/~okuyamak/Information/Fermat.html (test-equal "fermat(7)" (* 59649589127497217 5704689200685129054721) (fermat 7)) (test-equal "fermat(8)" (* 1238926361552897 93461639715357977769163558199606896584051237541638188580280321) (fermat 8)) (test-equal "fermat(9)" (* 2424833 7455602825647884208337395736200454918783366342657 741640062627530801524787141901937474059940781097519023905821316144415759504705008092818711693940737) (fermat 9)) (test-equal "fermat(10)" (* 45592577 6487031809 4659775785220018543264560743076778192897 130439874405488189727484768796509903946608530841611892186895295776832416251471863574140227977573104895898783928842923844831149032913798729088601617946094119449010595906710130531906171018354491609619193912488538116080712299672322806217820753127014424577 ) (fermat 10)) (test-equal "fermat(11)" (* 319489 974849 167988556341760475137 3560841906445833920513 173462447179147555430258970864309778377421844723664084649347019061363579192879108857591038330408837177983810868451546421940712978306134189864280826014542758708589243873685563973118948869399158545506611147420216132557017260564139394366945793220968665108959685482705388072645828554151936401912464931182546092879815733057795573358504982279280090942872567591518912118622751714319229788100979251036035496917279912663527358783236647193154777091427745377038294584918917590325110939381322486044298573971650711059244462177542540706913047034664643603491382441723306598834177 ) (fermat 11)) (test-end) ;;------------------------------------------------------------------ (test-begin "multiplication short cuts") (parameterize ((current-test-comparator eqv?)) ;; these test shortcut in Scm_Mul ;; note the difference of 0 and 0.0 (let1 big (read-from-string "100000000000000000000") (test-equal "bignum * 0" (apply * `(,big 0)) 0) (test-equal "0 * bignum" (apply * `(0 ,big)) 0) (test-equal "bignum * 1" (apply * `(,big 1)) big) (test-equal "1 * bignum" (apply * `(1 ,big)) big) (test-equal "bignum * 0.0" (apply * `(,big 0.0)) 0.0) (test-equal "0.0 * bignum" (apply * `(0.0 ,big)) 0.0) (test-equal "bignum * 1.0" (apply * `(,big 1.0)) 1.0e20) (test-equal "1.0 * bignum" (apply * `(1.0 ,big)) 1.0e20) ) (test-equal "ratnum * 0" (apply * '(1/2 0)) 0) (test-equal "0 * ratnum" (apply * '(0 1/2)) 0) (test-equal "ratnum * 1" (apply * '(1/2 1)) 1/2) (test-equal "1 * ratnum" (apply * '(1 1/2)) 1/2) (test-equal "ratnum * 0.0" (apply * '(1/2 0.0)) 0.0) (test-equal "0.0 * ratnum" (apply * '(0.0 1/2)) 0.0) (test-equal "ratnum * 1.0" (apply * '(1/2 1.0)) 0.5) (test-equal "1.0 * ratnum" (apply * '(1.0 1/2)) 0.5) ;; Fixed for exactness (Gauche represents zero always exactly?) (test-equal "flonum * 0" (apply * '(3.0 0)) 0.0) (test-equal "0 * flonum" (apply * '(0 3.0)) 0.0) (test-equal "flonum * 1" (apply * '(3.0 1)) 3.0) (test-equal "1 * flonum" (apply * '(1 3.0)) 3.0) (test-equal "flonum * 0.0" (apply * '(3.0 0.0)) 0.0) (test-equal "0.0 * flonum" (apply * '(0.0 3.0)) 0.0) (test-equal "flonum * 1.0" (apply * '(3.0 1.0)) 3.0) (test-equal "1.0 * flonum" (apply * '(1.0 3.0)) 3.0) (test-equal "compnum * 0" (* 0 +i) 0) (test-equal "0 * compnum" (* +i 0) 0) (test-equal "compnum * 1" (* 1 +i) +i) (test-equal "1 * compnum" (* +i 1) +i) (test-equal "compnum * 0.0" (* 0.0 +i) 0.0) (test-equal "0.0 * compnum" (* +i 0.0) 0.0) (test-equal "compnum * 1.0" (* 1.0 +i) +1.0i) (test-equal "1.0 * compnum" (* +i 1.0) +1.0i)) (test-end) ;;------------------------------------------------------------------ (test-begin "division") (test-equal "exact division" (/ 3 4 5) 3/20) (test-equal "exact division" (/ 9223372036854775808 18446744073709551616) 1/2) (test-equal "exact division" (/ 28153784189046 42) 4692297364841/7) (test-equal "exact division" (/ 42 28153784189046) 7/4692297364841) (test-equal "exact division" (/ 42 -28153784189046) -7/4692297364841) (test-equal "exact division" (/ -42 -28153784189046) 7/4692297364841) (test-equal "exact reciprocal" (/ 3) 1/3) (test-equal "exact reciprocal" (/ -3) -1/3) (test-equal "exact reciprocal" (/ 6/5) 5/6) (test-equal "exact reciprocal" (/ -6/5) -5/6) (test-equal "exact reciprocal" (/ 4692297364841/7) 7/4692297364841) (define (almost=? x y) (define (flonum=? x y) (let ((ax (abs x)) (ay (abs y))) (< (abs (- x y)) (* (max ax ay) 0.0000000000001)))) (and (flonum=? (car x) (car y)) (flonum=? (cadr x) (cadr y)) (flonum=? (caddr x) (caddr y)) (flonum=? (cadddr x) (cadddr y)) (eq? (list-ref x 4) (list-ref y 4)))) (define (d-result x exact?) (list x (- x) (- x) x exact?)) (define (d-tester x y) (list (/ x y) (/ (- x) y) (/ x (- y)) (/ (- x) (- y)) (exact? (/ x y)))) ;; inexact division (test-equal "exact/inexact -> inexact" (d-tester 13 4.0) (d-result 3.25 #f)) (test-equal "exact/inexact -> inexact" (d-tester 13/2 4.0) (d-result 1.625 #f)) (test-equal "inexact/exact -> inexact" (d-tester 13.0 4) (d-result 3.25 #f)) (test-equal "inexact/exact -> inexact" (d-tester 13.0 4/3) (d-result 9.75 #f)) (test-equal "inexact/inexact -> inexact" (d-tester 13.0 4.0) (d-result 3.25 #f)) ;; complex division (test-equal "complex division" (let ((a 3) (b 4+3i) (c 7.3)) (- (/ a b c) (/ (/ a b) c))) 0.0) (test-end) ;;------------------------------------------------------------------ (test-begin "quotient") (define (q-result x exact?) (list x (- x) (- x) x exact?)) (define (q-tester x y) (list (quotient x y) (quotient (- x) y) (quotient x (- y)) (quotient (- x) (- y)) (exact? (quotient x y)))) ;; these uses BignumDivSI -> bignum_sdiv (test-equal "big[1]/fix->fix" (q-tester 727836879 41943) (q-result 17353 #t)) (test-equal "big[1]/fix->fix" (q-tester 3735928559 27353) (q-result 136582 #t)) (test-equal "big[2]/fix->big[1]" (q-tester 12312849128741 23) (q-result 535341266467 #t)) (test-equal "big[2]/fix->big[2]" (q-tester 12312849128741 1) (q-result 12312849128741 #t)) ;; these uses BignumDivSI -> bignum_gdiv (test-equal "big[1]/fix->fix" (q-tester 3663846879 87353) (q-result 41943 #t)) (test-equal "big[2]/fix->fix" (q-tester 705986470884353 36984440) (q-result 19088743 #t)) (test-equal "big[2]/fix->fix" (q-tester 12312849128741 132546) (q-result 92894912 #t)) (test-equal "big[2]/fix->big[1]" (q-tester 425897458766735 164900) (q-result 2582762030 #t)) ;; these uses BignumDivRem (test-equal "big[1]/big[1]->fix" (q-tester 4020957098 1952679221) (q-result 2 #t)) (test-equal "big[1]/big[1] -> fix" (q-tester 1952679221 4020957098) (q-result 0 #t)) ;; this tests loop in estimation phase (test-equal "big[3]/big[2] -> big[1]" (q-tester #x10000000000000000 #x10000ffff) (q-result #xffff0001 #t)) ;; this test goes through a rare case handling code ("add back") in ;; the algorithm. (test-equal "big[3]/big[2] -> fix" (q-tester #x7800000000000000 #x80008889ffff) (q-result #xeffe #t)) ;; inexact quotient (test-equal "exact/inexact -> inexact" (q-tester 13 4.0) (q-result 3.0 #f)) (test-equal "inexact/exact -> inexact" (q-tester 13.0 4) (q-result 3.0 #f)) (test-equal "inexact/inexact -> inexact" (q-tester 13.0 4.0) (q-result 3.0 #f)) (test-equal "exact/inexact -> inexact" (q-tester 727836879 41943.0) (q-result 17353.0 #f)) (test-equal "inexact/exact -> inexact" (q-tester 727836879.0 41943) (q-result 17353.0 #f)) (test-equal "inexact/inexact -> inexact" (q-tester 727836879.0 41943.0) (q-result 17353.0 #f)) ;; Test by fermat numbers (test-equal "fermat(7)" (quotient (fermat 7) 5704689200685129054721) 59649589127497217) (test-equal "fermat(8)" (quotient (fermat 8) 93461639715357977769163558199606896584051237541638188580280321) 1238926361552897) (test-equal "fermat(9)" (quotient (quotient (fermat 9) 7455602825647884208337395736200454918783366342657) 741640062627530801524787141901937474059940781097519023905821316144415759504705008092818711693940737) 2424833) (test-equal "fermat(10)" (quotient (quotient (quotient (fermat 10) 130439874405488189727484768796509903946608530841611892186895295776832416251471863574140227977573104895898783928842923844831149032913798729088601617946094119449010595906710130531906171018354491609619193912488538116080712299672322806217820753127014424577) 6487031809) 45592577) 4659775785220018543264560743076778192897) (test-equal "fermat(11)" (quotient (quotient (quotient (quotient (fermat 11) 167988556341760475137) 173462447179147555430258970864309778377421844723664084649347019061363579192879108857591038330408837177983810868451546421940712978306134189864280826014542758708589243873685563973118948869399158545506611147420216132557017260564139394366945793220968665108959685482705388072645828554151936401912464931182546092879815733057795573358504982279280090942872567591518912118622751714319229788100979251036035496917279912663527358783236647193154777091427745377038294584918917590325110939381322486044298573971650711059244462177542540706913047034664643603491382441723306598834177 ) 974849) 319489) 3560841906445833920513) (test-end) ;;------------------------------------------------------------------ (test-begin "remainder") (define (r-result x exact?) (list x (- x) x (- x) exact?)) (define (r-tester x y) (list (remainder x y) (remainder (- x) y) (remainder x (- y)) (remainder (- x) (- y)) (exact? (remainder x y)))) ;; small int (test-equal "fix rem fix -> fix" (r-tester 13 4) (r-result 1 #t)) (test-equal "fix rem fix -> fix" (r-tester 1234 87935) (r-result 1234 #t)) (test-equal "fix rem big[1] -> fix" (r-tester 12345 3735928559) (r-result 12345 #t)) ;; these uses BignumDivSI -> bignum_sdiv (test-equal "big[1] rem fix -> fix" (r-tester 727836879 41943) (r-result 0 #t)) (test-equal "big[1] rem fix -> fix" (r-tester 3735928559 27353) (r-result 1113 #t)) (test-equal "big[2] rem fix -> fix" (r-tester 12312849128756 23) (r-result 15 #t)) (test-equal "big[2] rem fix -> fix" (r-tester 12312849128756 1) (r-result 0 #t)) ;; these uses BignumDivSI -> bignum_gdiv (test-equal "big[1] rem fix -> fix" (r-tester 3663846879 87353) (r-result 0 #t)) (test-equal "big[2] rem fix -> fix" (r-tester 705986470884353 36984440) (r-result 725433 #t)) (test-equal "big[2] rem fix -> fix" (r-tester 12312849128741 132546) (r-result 122789 #t)) (test-equal "big[2] rem fix -> fix" (r-tester 425897458766735 164900) (r-result 19735 #t)) ;; these uses BignumDivRem (test-equal "big[1] rem big[1] -> fix" (r-tester 4020957098 1952679221) (r-result 115598656 #t)) (test-equal "big[1] rem big[1] -> fix" (r-tester 1952679221 4020957098) (r-result 1952679221 #t)) ;; this tests loop in estimation phase (test-equal "big[3] rem big[2] -> big[1]" (r-tester #x10000000000000000 #x10000ffff) (r-result #xfffe0001 #t)) ;; this tests "add back" code (test-equal "big[3] rem big[2] -> big[2]" (r-tester #x7800000000000000 #x80008889ffff) (r-result #x7fffb114effe #t)) ;; inexact remainder (test-equal "exact rem inexact -> inexact" (r-tester 13 4.0) (r-result 1.0 #f)) (test-equal "inexact rem exact -> inexact" (r-tester 13.0 4) (r-result 1.0 #f)) (test-equal "inexact rem inexact -> inexact" (r-tester 13.0 4.0) (r-result 1.0 #f)) (test-equal "exact rem inexact -> inexact" (r-tester 3735928559 27353.0) (r-result 1113.0 #f)) (test-equal "inexact rem exact -> inexact" (r-tester 3735928559.0 27353) (r-result 1113.0 #f)) (test-equal "inexact rem inexact -> inexact" (r-tester 3735928559.0 27353.0) (r-result 1113.0 #f)) (test-end) ;;------------------------------------------------------------------ (test-begin "modulo") (define (m-result a b exact?) (list a b (- b) (- a) exact?)) (define (m-tester x y) (list (modulo x y) (modulo (- x) y) (modulo x (- y)) (modulo (- x) (- y)) (exact? (modulo x y)))) ;; small int (test-equal "fix mod fix -> fix" (m-tester 13 4) (m-result 1 3 #t)) (test-equal "fix mod fix -> fix" (m-tester 1234 87935) (m-result 1234 86701 #t)) (test-equal "fix mod big[1] -> fix/big" (m-tester 12345 3735928559) (m-result 12345 3735916214 #t)) ;; these uses BignumDivSI -> bignum_sdiv (test-equal "big[1] mod fix -> fix" (m-tester 727836879 41943) (m-result 0 0 #t)) (test-equal "big[1] mod fix -> fix" (m-tester 3735928559 27353) (m-result 1113 26240 #t)) (test-equal "big[2] mod fix -> fix" (m-tester 12312849128756 23) (m-result 15 8 #t)) (test-equal "big[2] mod fix -> fix" (m-tester 12312849128756 1) (m-result 0 0 #t)) ;; these uses BignumDivSI -> bignum_gdiv (test-equal "big[1] mod fix -> fix" (m-tester 3663846879 87353) (m-result 0 0 #t)) (test-equal "big[2] mod fix -> fix" (m-tester 705986470884353 36984440) (m-result 725433 36259007 #t)) (test-equal "big[2] mod fix -> fix" (m-tester 12312849128741 132546) (m-result 122789 9757 #t)) (test-equal "big[2] mod fix -> fix" (m-tester 425897458766735 164900) (m-result 19735 145165 #t)) ;; these uses BignumDivRem (test-equal "big[1] mod big[1] -> fix" (m-tester 4020957098 1952679221) (m-result 115598656 1837080565 #t)) (test-equal "big[1] mod big[1] -> fix" (m-tester 1952679221 4020957098) (m-result 1952679221 2068277877 #t)) ;; this tests loop in estimation phase (test-equal "big[3] mod big[2] -> big[1]" (m-tester #x10000000000000000 #x10000ffff) (m-result #xfffe0001 #x2fffe #t)) ;; this tests "add back" code (test-equal "big[3] mod big[2] -> big[2]" (m-tester #x7800000000000000 #x80008889ffff) (m-result #x7fffb114effe #xd7751001 #t)) ;; inexact modulo (test-equal "exact mod inexact -> inexact" (m-tester 13 4.0) (m-result 1.0 3.0 #f)) (test-equal "inexact mod exact -> inexact" (m-tester 13.0 4) (m-result 1.0 3.0 #f)) (test-equal "inexact mod inexact -> inexact" (m-tester 13.0 4.0) (m-result 1.0 3.0 #f)) (test-equal "exact mod inexact -> inexact" (m-tester 3735928559 27353.0) (m-result 1113.0 26240.0 #f)) (test-equal "inexact mod exact -> inexact" (m-tester 3735928559.0 27353) (m-result 1113.0 26240.0 #f)) (test-equal "inexact mod inexact -> inexact" (m-tester 3735928559.0 27353.0) (m-result 1113.0 26240.0 #f)) ;; test by mersenne prime? - code by 'hipster' (define (mersenne-prime? p) (let ((m (- (expt 2 p) 1))) (do ((i 3 (+ i 1)) (s 4 (modulo (- (* s s) 2) m))) ((= i (+ p 1)) (= s 0))))) (test-equal "mersenne prime" (map mersenne-prime? '(3 5 7 13 17 19 31 61 89 107 127 521 607 1279)) '(#t #t #t #t #t #t #t #t #t #t #t #t #t #t)) (test-end) ;;------------------------------------------------------------------ ;; R6RS #| (test-begin "div and mod") (let () (define (do-quadrants proc) (lambda (x y =) (proc x y =) (proc (- x) y =) (proc x (- y) =) (proc (- x) (- y) =))) (define (test-div x y =) (test-equal (format "~a div ~a" x y) (receive (d m) (div-and-mod x y) (let1 z (+ (* d y) m) (list (or (= x z) z) (or (and (<= 0 m) (< m (abs y))) m)))) '(#t #t))) (define (test-div0 x y =) (test-equal (format "~a div0 ~a" x y) (receive (d m) (div0-and-mod0 x y) (let1 z (+ (* d y) m) (list (or (= x z) z) (or (and (<= (- (abs y)) (* m 2)) (< (* m 2) (abs y))) m)))) '(#t #t))) ((do-quadrants test-div) 123 10 =) (parameterize ((current-test-epsilon 1e-10)) ((do-quadrants test-div) 123.0 10.0 =)) ((do-quadrants test-div) (read-from-string "123/7") (read-from-string "10/7") =) ((do-quadrants test-div) (read-from-string "123/7") 5 =) ((do-quadrants test-div) 123 (read-from-string "5/7") =) ((do-quadrants test-div) 130.75 10.5 =) ((do-quadrants test-div0) 123 10 =) ((do-quadrants test-div0) 129 10 =) (parameterize ((current-test-epsilon 1e-10)) ((do-quadrants test-div0) 123.0 10.0 =) ((do-quadrants test-div0) 129.0 10.0 =)) ((do-quadrants test-div0) (read-from-string "123/7") (read-from-string "10/7") =) ((do-quadrants test-div0) (read-from-string "129/7") (read-from-string "10/7") =) ((do-quadrants test-div0) (read-from-string "121/7") 5 =) ((do-quadrants test-div0) (read-from-string "124/7") 5 =) ((do-quadrants test-div0) 121 (read-from-string "5/7") =) ((do-quadrants test-div0) 124 (read-from-string "5/7") =) ((do-quadrants test-div0) 130.75 10.5 =) ((do-quadrants test-div0) 129.75 10.5 =) ) (test-end) |# ;;------------------------------------------------------------------ (test-begin "rounding") (define (round-tester value exactness cei flo tru rou) (test-equal (string-append "rounding " (number->string value)) (let ((c (ceiling value)) (f (floor value)) (t (truncate value)) (r (round value))) (list (and (exact? c) (exact? f) (exact? t) (exact? r)) c f t r)) (list exactness cei flo tru rou))) (round-tester 0 #t 0 0 0 0) (round-tester 3 #t 3 3 3 3) (round-tester -3 #t -3 -3 -3 -3) (round-tester (expt 2 99) #t (expt 2 99) (expt 2 99) (expt 2 99) (expt 2 99)) (round-tester (- (expt 2 99)) #t (- (expt 2 99)) (- (expt 2 99)) (- (expt 2 99)) (- (expt 2 99))) (round-tester 9/4 #t 3 2 2 2) (round-tester -9/4 #t -2 -3 -2 -2) (round-tester 34985495387484938453495/17 #t 2057970316910878732559 2057970316910878732558 2057970316910878732558 2057970316910878732559) (round-tester -34985495387484938453495/17 #t -2057970316910878732558 -2057970316910878732559 -2057970316910878732558 -2057970316910878732559) (round-tester 35565/2 #t 17783 17782 17782 17782) (round-tester -35565/2 #t -17782 -17783 -17782 -17782) (round-tester 35567/2 #t 17784 17783 17783 17784) (round-tester -35567/2 #t -17783 -17784 -17783 -17784) (test-equal "round->exact" (round->exact 3.4) 3) (test-equal "round->exact" (round->exact 3.5) 4) (test-equal "floor->exact" (floor->exact 3.4) 3) (test-equal "floor->exact" (floor->exact -3.5) -4) (test-equal "ceiling->exact" (ceiling->exact 3.4) 4) (test-equal "ceiling->exact" (ceiling->exact -3.5) -3) (test-equal "truncate->exact" (truncate->exact 3.4) 3) (test-equal "truncate->exact" (truncate->exact -3.5) -3) (test-end) ;;------------------------------------------------------------------ #| ;; Nonstandard and Gauche-specific (test-begin "clamping") (parameterize ((current-test-comparator eqv?)) (test-equal "clamp (1)" (clamp 1) 1) (test-equal "clamp (1 #f)" (clamp 1 #f) 1) (test-equal "clamp (1 #f #f)" (clamp 1 #f #f) 1) (test-equal "clamp (1.0)" (clamp 1.0) 1.0) (test-equal "clamp (1.0 #f)" (clamp 1.0 #f) 1.0) (test-equal "clamp (1.0 #f #f)" (clamp 1.0 #f #f) 1.0) (test-equal "clamp (1 0)" (clamp 1 0) 1) (test-equal "clamp (1 0 #f)" (clamp 1 0 #f) 1) (test-equal "clamp (1 0 2)" (clamp 1 0 2) 1) (test-equal "clamp (1 5/4)" (clamp 1 5/4) 5/4) (test-equal "clamp (1 5/4 #f)" (clamp 1 5/4 #f) 5/4) (test-equal "clamp (1 #f 5/4)" (clamp 1 #f 5/4) 1) (test-equal "clamp (1 0 3/4)" (clamp 1 0 3/4) 3/4) (test-equal "clamp (1 #f 3/4)" (clamp 1 #f 3/4) 3/4) (test-equal "clamp (1.0 0)" (clamp 1.0 0) 1.0) (test-equal "clamp (1.0 0 #f)" (clamp 1.0 0 #f) 1.0) (test-equal "clamp (1.0 0 2)" (clamp 1.0 0 2) 1.0) (test-equal "clamp (1.0 5/4)" (clamp 1.0 5/4) 1.25) (test-equal "clamp (1.0 5/4 #f)" (clamp 1.0 5/4 #f) 1.25) (test-equal "clamp (1.0 #f 5/4)" (clamp 1.0 #f 5/4) 1.0) (test-equal "clamp (1.0 0 3/4)" (clamp 1.0 0 3/4) 0.75) (test-equal "clamp (1.0 #f 3/4)" (clamp 1.0 #f 3/4) 0.75) (test-equal "clamp (1 0.0)" (clamp 1 0.0) 1.0) (test-equal "clamp (1 0.0 #f)" (clamp 1 0.0 #f) 1.0) (test-equal "clamp (1 0.0 2)" (clamp 1 0.0 2) 1.0) (test-equal "clamp (1 0 2.0)" (clamp 1 0 2.0) 1.0) (test-equal "clamp (1 1.25)" (clamp 1 1.25) 1.25) (test-equal "clamp (1 #f 1.25)" (clamp 1 #f 1.25) 1.0) (test-equal "clamp (1 1.25 #f)" (clamp 1 1.25 #f) 1.25) (test-equal "clamp (1 0.0 3/4)" (clamp 1 0.0 3/4) 0.75) (test-equal "clamp (1 0 0.75)" (clamp 1 0 0.75) 0.75) (test-equal "clamp (1 -inf.0 +inf.0)" (clamp 1 -inf.0 +inf.0) 1.0)) (test-end) |# ;;------------------------------------------------------------------ (test-begin "logical operations") (test-equal "ash (fixnum)" (ash #x81 15) ;fixnum #x408000) (test-equal "ash (fixnum)" (ash #x408000 -15) #x81) (test-equal "ash (fixnum)" (ash #x408000 -22) #x01) (test-equal "ash (fixnum)" (ash #x408000 -23) 0) (test-equal "ash (fixnum)" (ash #x408000 -24) 0) (test-equal "ash (fixnum)" (ash #x408000 -100) 0) (test-equal "ash (fixnum)" (ash #x81 0) #x81) (test-equal "ash (neg. fixnum)" (ash #x-81 15) ;negative fixnum #x-408000) (test-equal "ash (neg. fixnum)" (ash #x-408000 -15) ;nagative fixnum #x-81) (test-equal "ash (fixnum)" (ash #x-408000 -22) -2) (test-equal "ash (fixnum)" (ash #x-408000 -23) -1) (test-equal "ash (fixnum)" (ash #x-408000 -24) -1) (test-equal "ash (fixnum)" (ash #x-408000 -100) -1) (test-equal "ash (fixnum)" (ash #x-408000 0) #x-408000) (test-equal "ash (fixnum->bignum)" (ash #x81 24) #x81000000) (test-equal "ash (fixnum->bignum)" (ash #x81 31) #x4080000000) (test-equal "ash (fixnum->bignum)" (ash #x81 32) #x8100000000) (test-equal "ash (fixnum->bignum)" (ash #x81 56) #x8100000000000000) (test-equal "ash (fixnum->bignum)" (ash #x81 63) #x408000000000000000) (test-equal "ash (fixnum->bignum)" (ash #x81 64) #x810000000000000000) (test-equal "ash (neg.fixnum->bignum)" (ash #x-81 24) #x-81000000) (test-equal "ash (neg.fixnum->bignum)" (ash #x-81 31) #x-4080000000) (test-equal "ash (neg.fixnum->bignum)" (ash #x-81 32) #x-8100000000) (test-equal "ash (neg.fixnum->bignum)" (ash #x-81 56) #x-8100000000000000) (test-equal "ash (neg.fixnum->bignum)" (ash #x-81 63) #x-408000000000000000) (test-equal "ash (neg.fixnum->bignum)" (ash #x-81 64) #x-810000000000000000) (test-equal "ash (bignum->fixnum)" (ash #x81000000 -24) #x81) (test-equal "ash (bignum->fixnum)" (ash #x81000000 -25) #x40) (test-equal "ash (bignum->fixnum)" (ash #x81000000 -31) 1) (test-equal "ash (bignum->fixnum)" (ash #x81000000 -32) 0) (test-equal "ash (bignum->fixnum)" (ash #x81000000 -100) 0) (test-equal "ash (bignum->fixnum)" (ash #x4080000000 -31) #x81) (test-equal "ash (bignum->fixnum)" (ash #x8100000000 -32) #x81) (test-equal "ash (bignum->fixnum)" (ash #x8100000000 -33) #x40) (test-equal "ash (bignum->fixnum)" (ash #x8100000000 -39) 1) (test-equal "ash (bignum->fixnum)" (ash #x8100000000 -40) 0) (test-equal "ash (bignum->fixnum)" (ash #x8100000000 -100) 0) (test-equal "ash (bignum->fixnum)" (ash #x8100000000000000 -56) #x81) (test-equal "ash (bignum->fixnum)" (ash #x408000000000000000 -63) #x81) (test-equal "ash (bignum->fixnum)" (ash #x408000000000000000 -64) #x40) (test-equal "ash (bignum->fixnum)" (ash #x408000000000000000 -65) #x20) (test-equal "ash (bignum->fixnum)" (ash #x408000000000000000 -70) 1) (test-equal "ash (bignum->fixnum)" (ash #x408000000000000000 -71) 0) (test-equal "ash (bignum->fixnum)" (ash #x408000000000000000 -100) 0) (test-equal "ash (neg.bignum->fixnum)" (ash #x-81000000 -24) #x-81) (test-equal "ash (neg.bignum->fixnum)" (ash #x-81000000 -25) #x-41) (test-equal "ash (neg.bignum->fixnum)" (ash #x-81000000 -26) #x-21) (test-equal "ash (neg.bignum->fixnum)" (ash #x-81000000 -31) -2) (test-equal "ash (neg.bignum->fixnum)" (ash #x-81000000 -32) -1) (test-equal "ash (neg.bignum->fixnum)" (ash #x-81000000 -33) -1) (test-equal "ash (neg.bignum->fixnum)" (ash #x-81000000 -100) -1) (test-equal "ash (neg.bignum->fixnum)" (ash #x-4080000000 -31) #x-81) (test-equal "ash (neg.bignum->fixnum)" (ash #x-4080000000 -32) #x-41) (test-equal "ash (neg.bignum->fixnum)" (ash #x-4080000000 -33) #x-21) (test-equal "ash (neg.bignum->fixnum)" (ash #x-4080000000 -38) -2) (test-equal "ash (neg.bignum->fixnum)" (ash #x-4080000000 -39) -1) (test-equal "ash (neg.bignum->fixnum)" (ash #x-4080000000 -100) -1) (test-equal "ash (neg.bignum->fixnum)" (ash #x-408000000000000000 -63) #x-81) (test-equal "ash (neg.bignum->fixnum)" (ash #x-408000000000000000 -64) #x-41) (test-equal "ash (neg.bignum->fixnum)" (ash #x-408000000000000000 -65) #x-21) (test-equal "ash (neg.bignum->fixnum)" (ash #x-408000000000000000 -70) -2) (test-equal "ash (neg.bignum->fixnum)" (ash #x-408000000000000000 -71) -1) (test-equal "ash (neg.bignum->fixnum)" (ash #x-408000000000000000 -72) -1) (test-equal "ash (bignum->bignum)" (ash #x1234567812345678 4) #x12345678123456780) (test-equal "ash (bignum->bignum)" (ash #x1234567812345678 60) #x1234567812345678000000000000000) (test-equal "ash (bignum->bignum)" (ash #x1234567812345678 64) #x12345678123456780000000000000000) (test-equal "ash (bignum->bignum)" (ash #x1234567812345678 -4) #x123456781234567) (test-equal "ash (bignum->bignum)" (ash #x1234567812345678 -32) #x12345678) (test-equal "ash (neg.bignum->bignum)" (ash #x-1234567812345678 -4) #x-123456781234568) (test-equal "ash (bignum->bignum)" (ash #x-1234567812345678 -32) #x-12345679) (test-equal "lognot (fixnum)" (lognot 0) -1) (test-equal "lognot (fixnum)" (lognot -1) 0) (test-equal "lognot (fixnum)" (lognot 65535) -65536) (test-equal "lognot (fixnum)" (lognot -65536) 65535) (test-equal "lognot (bignum)" (lognot #x1000000000000000000) #x-1000000000000000001) (test-equal "lognot (bignum)" (lognot #x-1000000000000000001) #x1000000000000000000) (test-equal "logand (+fix & 0)" (logand #x123456 0) 0) (test-equal "logand (+big & 0)" (logand #x1234567812345678 0) 0) (test-equal "logand (+fix & -1)" (logand #x123456 -1) #x123456) (test-equal "logand (+big & -1)" (logand #x1234567812345678 -1) #x1234567812345678) (test-equal "logand (+fix & +fix)" (logand #xaa55 #x6666) #x2244) (test-equal "logand (+fix & +big)" (logand #xaa55 #x6666666666) #x2244) (test-equal "logand (+big & +fix)" (logand #xaa55aa55aa #x6666) #x4422) (test-equal "logand (+big & +big)" (logand #xaa55aa55aa #x6666666666) #x2244224422) (test-equal "logand (+big & +big)" (logand #x123456789abcdef #xfedcba987654321fedcba987654321fedcba) #x103454301aaccaa) (test-equal "logand (+big & +big)" (logand #xaa55ea55aa #x55aa55aa55) #x400000) (test-equal "logand (+fix & -fix)" (logand #xaa55 #x-6666) #x8810) (test-equal "logand (+fix & -big)" (logand #xaa55 #x-6666666666) #x8810) (test-equal "logand (+big & -fix)" (logand #xaa55aa55aa #x-6666) #xaa55aa118a) (test-equal "logand (+big & -big)" (logand #xaa55aa55aa #x-6666666666) #x881188118a) (test-equal "logand (+big & -big)" (logand #x123456789abcdef #x-fedcba987654321fedcba987654321fedcba) #x20002488010146) (test-equal "logand (-fix & +fix)" (logand #x-aa55 #x6666) #x4422) (test-equal "logand (-fix & +big)" (logand #x-aa55 #x6666666666) #x6666664422) (test-equal "logand (-big & +fix)" (logand #x-aa55aa55aa #x6666) #x2246) (test-equal "logand (-big & +big)" (logand #x-aa55aa55aa #x6666666666) #x4422442246) (test-equal "logand (-big & +big)" (logand #x-123456789abcdef #xfedcba987654321fedcba987654321fedcba) #xfedcba987654321fedcba884200020541010) (test-equal "logand (-fix & -fix)" (logand #x-aa55 #x-6666) #x-ee76) (test-equal "logand (-fix & -big)" (logand #x-aa55 #x-6666666666) #x-666666ee76) (test-equal "logand (-big & -fix)" (logand #x-aa55aa55aa #x-6666) #x-aa55aa77ee) (test-equal "logand (-big & -big)" (logand #x-aa55aa55aa #x-6666666666) #x-ee77ee77ee) (test-equal "logand (-big & -big)" (logand #x-123456789abcdef #x-fedcba987654321fedcba987654321fedcba) #x-fedcba987654321fedcba9a76567a9ffde00) (test-equal "logior (+fix | 0)" (logior #x123456 0) #x123456) (test-equal "logior (+big | 0)" (logior #x1234567812345678 0) #x1234567812345678) (test-equal "logior (+fix | -1)" (logior #x123456 -1) -1) (test-equal "logior (+big | -1)" (logior #x1234567812345678 -1) -1) (test-equal "logior (+fix | +fix)" (logior #xaa55 #x6666) #xee77) (test-equal "logior (+fix | +big)" (logior #xaa55 #x6666666666) #x666666ee77) (test-equal "logior (+big | +fix)" (logior #xaa55aa55aa #x6666) #xaa55aa77ee) (test-equal "logior (+big | +big)" (logior #xaa55aa55aa #x6666666666) #xee77ee77ee) (test-equal "logior (+big | +big)" (logior #x123456789abcdef #xfedcba987654321fedcba987654321fedcba) #xfedcba987654321fedcba9a76567a9ffddff) (test-equal "logior (+fix | -fix)" (logior #xaa55 #x-6666) #x-4421) (test-equal "logior (+fix | -big)" (logior #xaa55 #x-6666666666) #x-6666664421) (test-equal "logior (+big | -fix)" (logior #xaa55aa55aa #x-6666) #x-2246) (test-equal "logior (+big | -big)" (logior #xaa55aa55aa #x-6666666666) #x-4422442246) (test-equal "logior (+big | -big)" (logior #x123456789abcdef #x-fedcba987654321fedcba987654321fedcba) #x-fedcba987654321fedcba884200020541011) (test-equal "logior (-fix | +fix)" (logior #x-aa55 #x6666) #x-8811) (test-equal "logior (-fix | +big)" (logior #x-aa55 #x6666666666) #x-8811) (test-equal "logior (-big | +fix)" (logior #x-aa55aa55aa #x6666) #x-aa55aa118a) (test-equal "logior (-big | +big)" (logior #x-aa55aa55aa #x6666666666) #x-881188118a) (test-equal "logior (-big | +big)" (logior #x-123456789abcdef #xfedcba987654321fedcba987654321fedcba) #x-20002488010145) (test-equal "logior (-fix | -fix)" (logior #x-aa55 #x-6666) #x-2245) (test-equal "logior (-fix | -big)" (logior #x-aa55 #x-6666666666) #x-2245) (test-equal "logior (-big | -fix)" (logior #x-aa55aa55aa #x-6666) #x-4422) (test-equal "logior (-big | -big)" (logior #x-aa55aa55aa #x-6666666666) #x-2244224422) (test-equal "logior (-big | -big)" (logior #x-123456789abcdef #x-fedcba987654321fedcba987654321fedcba) #x-103454301aacca9) (test-equal "logtest" (logtest #xfeedbabe #x10000000) #t) (test-equal "logtest" (logtest #xfeedbabe #x01100101) #f) #| ;; TODO: We don't have these procedures (yet?). Should there be compat ;; versions at the top? (let loop ((a 1) ; 1, 10, 100, ... (b 1) ; 1, 11, 111, ... (c 2) ; 10, 101, 1001, ... (n 1)) ; counter (when (< n 69) (test-equal (format "logcount (positive, 100...) ~a" n) (logcount a) 1) (test-equal (format "logcount (positive, 111...) ~a" n) (logcount b) n) (test-equal (format "logcount (negative, 100...) ~a" n) (logcount (- a)) (- n 1)) (test-equal (format "logcount (negative, 100..1) ~a" n) (logcount (- c)) 1) (loop (+ b 1) (+ b b 1) (+ b b 3) (+ n 1)))) (test-equal "logbit?" (map (lambda (i) (logbit? i #b10110)) '(0 1 2 3 4 5 6)) '(#f #t #t #f #t #f #f)) (test-equal "logbit?" (map (lambda (i) (logbit? i #b-10110)) '(0 1 2 3 4 5 6)) '(#f #t #f #t #f #t #t)) (test-equal "copy-bit" (copy-bit 4 #b11000110 #t) #b11010110) (test-equal "copy-bit" (copy-bit 4 #b11000110 #f) #b11000110) (test-equal "copy-bit" (copy-bit 6 #b11000110 #f) #b10000110) (test-equal "bit-field" (bit-field #b1101101010 0 4) #b1010) (test-equal "bit-field" (bit-field #b1101101010 4 9) #b10110) (test-equal "copy-bit-field" (copy-bit-field #b1101101010 0 4 0) #b1101100000) (test-equal "copy-bit-field" (copy-bit-field #b1101101010 0 4 -1) #b1101101111) (test-equal "copy-bit-field" (copy-bit-field #b1101101010 5 16 -1) #b1111111111101010) |# (test-equal "integer-length" (integer-length #b10101010) 8) (test-equal "integer-length" (integer-length #b1111) 4) (test-end) ;;------------------------------------------------------------------ (test-begin "inexact arithmetics") (test-equal "+. (0)" (+.) 0.0) (test-equal "+. (1)" (+. 1) 1.0) (test-equal "+. (1big)" (+. 100000000000000000000) 1.0e20) (test-equal "+. (1rat)" (+. 3/2) 1.5) (test-equal "+. (1cmp)" (+. 1+i) 1.0+i) (test-equal "+. (2)" (+. 0 1) 1.0) (test-equal "+. (2big)" (+. 1 100000000000000000000) 1.0e20) (test-equal "+. (2rat)" (+. 1 1/2) 1.5) (test-equal "+. (many)" (+. 1 2 3 4 5) 15.0) (test-equal "-. (1)" (-. 1) -1.0) (test-equal "-. (1big)" (-. 100000000000000000000) -1.0e20) (test-equal "-. (1rat)" (-. 3/2) -1.5) (test-equal "-. (1cmp)" (-. 1+i) -1.0-i) (test-equal "-. (2)" (-. 0 1) -1.0) (test-equal "-. (2big)" (-. 1 100000000000000000000) -1.0e20) (test-equal "-. (2rat)" (-. 1 1/2) 0.5) (test-equal "-. (many)" (-. 1 2 3 4 5) -13.0) (test-equal "*. (0)" (*.) 1.0) (test-equal "*. (1)" (*. 1) 1.0) (test-equal "*. (1big)" (*. 100000000000000000000) 1.0e20) (test-equal "*. (1rat)" (*. 3/2) 1.5) (test-equal "*. (1cmp)" (*. 1+i) 1.0+i) (test-equal "*. (2)" (*. 0 1) 0.0) (test-equal "*. (2big)" (*. 1 100000000000000000000) 1.0e20) (test-equal "*. (2rat)" (*. 1 1/2) 0.5) (test-equal "*. (many)" (*. 1 2 3 4 5) 120.0) (test-equal "/. (1)" (/. 1) 1.0) (test-equal "/. (1big)" (/. 100000000000000000000) 1.0e-20) (test-equal "/. (1rat)" (/. 3/2) 0.6666666666666666) (test-equal "/. (1cmp)" (/. 1+i) 0.5-0.5i) (test-equal "/. (2)" (/. 0 1) 0.0) (test-equal "/. (2big)" (/. 1 100000000000000000000) 1.0e-20) (test-equal "/. (2rat)" (/. 1 1/2) 2.0) (test-equal "/. (many)" (/. 1 2 5) 0.1) (test-end) ;;------------------------------------------------------------------ (test-begin "sqrt") ;; R6RS and R7RS (define (integer-sqrt-tester k) (test-equal (format "exact-integer-sqrt ~a" k) (receive (s r) (exact-integer-sqrt k) (list (= k (+ (* s s) r)) (< k (* (+ s 1) (+ s 1))))) '(#t #t))) (integer-sqrt-tester 0) (integer-sqrt-tester 1) (integer-sqrt-tester 2) (integer-sqrt-tester 3) (integer-sqrt-tester 4) (integer-sqrt-tester 10) (integer-sqrt-tester (expt 2 32)) (integer-sqrt-tester (- (expt 2 53) 1)) (integer-sqrt-tester (expt 2 53)) (integer-sqrt-tester (+ (expt 2 53) 1)) (integer-sqrt-tester 9999999999999999999999999999999999999999999999999999) (integer-sqrt-tester (+ (expt 10 400) 3141592653589)) ; double range overflow (test-error "exact-integer-sqrt -1" (exact-integer-sqrt -1)) (test-error "exact-integer-sqrt 1.0" (exact-integer-sqrt 1.0)) (test-error "exact-integer-sqrt 1/4" (exact-integer-sqrt (read-from-string "1/4"))) (parameterize ((current-test-comparator eqv?)) (test-equal "sqrt, exact" (sqrt 0) 0) (test-equal "sqrt, exact" (sqrt 16) 4) (test-equal "sqrt, inexact" (sqrt 16.0) 4.0) (test-equal "sqrt, inexact" (sqrt -16.0) (read-from-string "+4.0i")) (test-equal "sqrt, exact" (sqrt (read-from-string "1/16")) (read-from-string "1/4")) (test-equal "sqrt, inexact" (sqrt (exact->inexact (read-from-string "1/16"))) 0.25)) (test-end) ;;------------------------------------------------------------------ (test-begin "ffx optimization") ;; This code is provided by naoya_t to reproduce the FFX bug ;; existed until r6714. The bug was that the ARGP words of ;; in-stack continuations were not scanned when flonum register ;; bank was cleared. This code exhibits the case by putting ;; the result of (sqrt 2) as an unfinished argument, then calling ;; inverse-erf which caused flushing flonum regs (see "NG" line). ;; (use math.const) (define-constant pi 3.141592653589793) (let () (define *epsilon* 1e-12) ;; ;; normal quantile function (probit function) ;; (define (probit p) (define (probit>0 p) (* (inverse-erf (- (* p 2) 1)) (sqrt 2))) ;; OK (if (< p 0) (- 1 (probit>0 (- p))) (probit>0 p) )) (define (probit p) (define (probit>0 p) (* (sqrt 2) (inverse-erf (- (* p 2) 1)))) ;; NG (if (< p 0) (- 1 (probit>0 (- p))) (probit>0 p) )) ;; ;; inverse error function (erf-1) ;; (define (inverse-erf z) (define (calc-next-ck k c) (let loop ((m 0) (sum 0) (ca c) (cz (reverse c))) (if (= m k) sum (loop (+ m 1) (+ sum (/. (* (car ca) (car cz)) (+ m 1) (+ m m 1))) (cdr ca) (cdr cz))))) (define (calc-cks k) (let loop ((i 0) (cks '(1))) (if (= i k) cks (loop (+ i 1) (cons (calc-next-ck (+ i 1) cks) cks))))) (define (calc-ck k) (car (calc-cks k))) (define (inverse-erf>0 z) (let1 r (* pi z z 1/4) ; (pi*z^2)/4 (let loop ((k 0) (cks '(1)) (sum 0) (a 1)) (let1 delta (* a (/ (car cks) (+ k k 1))) (if (< delta (* sum *epsilon*)) (* 1/2 z (sqrt pi) sum) (loop (+ k 1) (cons (calc-next-ck (+ k 1) cks) cks) (+ sum delta) (* a r))))))) (cond [(< z 0) (- (inverse-erf>0 (- z)))] [(= z 0) 0] [else (inverse-erf>0 z)]) ) (define ~= (lambda (x y) (< (abs (- x y)) 1e-7))) ;; ;; TEST ;; (parameterize ((current-test-comparator ~=)) (test-equal "probit(0.025)" (probit 0.025) -1.959964) (test-equal "probit(0.975)" (probit 0.975) 1.959964)) ) (test-end) (test-exit) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/sgrep.scm�����������������������������������������������������������������������0000644�0001750�0001750�00000001424�13370655400�015721� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; sgrep.scm - grepping benchmark (import chicken.io chicken.irregex chicken.port) (define big-string (with-input-from-file (optional (command-line-arguments) "compiler.scm") read-string)) (define-syntax bgrep (syntax-rules () ((_ n expr) (time (do ((i n (fx- i 1))) ((eq? i 0)) (with-input-from-string big-string (lambda () (let ((h 0) (c 0)) (do ((line (read-line) (read-line))) ((eof-object? line)) (set! c (fx+ c 1)) ;(when (zero? (fxmod c 500)) (print* ".")) (when (irregex-search expr line) (set! h (fx+ h 1)))) h)))))))) (define-syntax rx1 (syntax-rules () ((_) "\\((.*), (.*)\\)"))) (define-syntax rx2 (syntax-rules () ((_) '(: #\( (submatch (* any)) ", " (submatch (* any)))))) (bgrep 1 (rx1)) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/slatex.scm����������������������������������������������������������������������0000644�0001750�0001750�00000277523�13213463160�016114� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(declare (standard-bindings) (extended-bindings) (fixnum) (not safe) (block)) (define slatex-iters 20) (define (fatal-error . args) (for-each display args) (newline) (exit 1)) (define (call-with-output-file/truncate filename proc) (call-with-output-file filename proc)) (define (run-bench name count ok? run) (let loop ((i count) (result '(undefined))) (if (< 0 i) (loop (- i 1) (run)) result))) (define (run-benchmark name count ok? run-maker . args) (newline) (let* ((run (apply run-maker args)) (result (run-bench name count ok? run))) (if (not (ok? result)) (begin (display "*** wrong result ***") (newline) (display "*** got: ") (pp result) (newline)))) (exit 0)) ;;; SLATEX -- Scheme to Latex processor. ;slatex.scm file generated using config.scm ;This file is compatible for the dialect other ;(c) Dorai Sitaram, Rice U., 1991, 1994 (define *op-sys* 'unix) (define slatex.ormap (lambda (f l) (let loop ((l l)) (if (null? l) #f (or (f (car l)) (loop (cdr l))))))) (define slatex.ormapcdr (lambda (f l) (let loop ((l l)) (if (null? l) #f (or (f l) (loop (cdr l))))))) (define slatex.append! (lambda (l1 l2) (cond ((null? l1) l2) ((null? l2) l1) (else (let loop ((l1 l1)) (if (null? (cdr l1)) (set-cdr! l1 l2) (loop (cdr l1)))) l1)))) (define slatex.append-map! (lambda (f l) (let loop ((l l)) (if (null? l) '() (slatex.append! (f (car l)) (loop (cdr l))))))) (define slatex.remove-if! (lambda (p s) (let loop ((s s)) (cond ((null? s) '()) ((p (car s)) (loop (cdr s))) (else (let ((r (loop (cdr s)))) (set-cdr! s r) s)))))) (define slatex.reverse! (lambda (s) (let loop ((s s) (r '())) (if (null? s) r (let ((d (cdr s))) (set-cdr! s r) (loop d s)))))) (define slatex.list-set! (lambda (l i v) (let loop ((l l) (i i)) (cond ((null? l) (slatex.error 'slatex.list-set! 'list-too-small)) ((= i 0) (set-car! l v)) (else (loop (cdr l) (- i 1))))))) (define slatex.list-prefix? (lambda (pfx l) (cond ((null? pfx) #t) ((null? l) #f) ((eqv? (car pfx) (car l)) (slatex.list-prefix? (cdr pfx) (cdr l))) (else #f)))) (define slatex.string-prefix? (lambda (pfx s) (let ((pfx-len (string-length pfx)) (s-len (string-length s))) (if (> pfx-len s-len) #f (let loop ((i 0)) (if (>= i pfx-len) #t (and (char=? (string-ref pfx i) (string-ref s i)) (loop (+ i 1))))))))) (define slatex.string-suffix? (lambda (sfx s) (let ((sfx-len (string-length sfx)) (s-len (string-length s))) (if (> sfx-len s-len) #f (let loop ((i (- sfx-len 1)) (j (- s-len 1))) (if (< i 0) #t (and (char=? (string-ref sfx i) (string-ref s j)) (loop (- i 1) (- j 1))))))))) (define slatex.member-string member) (define slatex.adjoin-string (lambda (s l) (if (slatex.member-string s l) l (cons s l)))) (define slatex.remove-string! (lambda (s l) (slatex.remove-if! (lambda (l_i) (string=? l_i s)) l))) (define slatex.adjoin-char (lambda (c l) (if (memv c l) l (cons c l)))) (define slatex.remove-char! (lambda (c l) (slatex.remove-if! (lambda (l_i) (char=? l_i c)) l))) (define slatex.sublist (lambda (l i f) (let loop ((l (list-tail l i)) (k i) (r '())) (cond ((>= k f) (slatex.reverse! r)) ((null? l) (slatex.error 'slatex.sublist 'list-too-small)) (else (loop (cdr l) (+ k 1) (cons (car l) r))))))) (define slatex.position-char (lambda (c l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((char=? (car l) c) i) (else (loop (cdr l) (+ i 1))))))) (define slatex.string-position-right (lambda (c s) (let ((n (string-length s))) (let loop ((i (- n 1))) (cond ((< i 0) #f) ((char=? (string-ref s i) c) i) (else (loop (- i 1)))))))) (define slatex.token=? (lambda (t1 t2) ((if slatex.*slatex-case-sensitive?* string=? string-ci=?) t1 t2))) (define slatex.assoc-token (lambda (x s) (slatex.ormap (lambda (s_i) (if (slatex.token=? (car s_i) x) s_i #f)) s))) (define slatex.member-token (lambda (x s) (slatex.ormapcdr (lambda (s_i..) (if (slatex.token=? (car s_i..) x) s_i.. #f)) s))) (define slatex.remove-token! (lambda (x s) (slatex.remove-if! (lambda (s_i) (slatex.token=? s_i x)) s))) (define slatex.file-exists? (lambda (f) #t)) (define slatex.delete-file (lambda (f) 'assume-file-deleted)) (define slatex.force-output (lambda z 'assume-output-forced)) (define slatex.*return* (integer->char 13)) (define slatex.*tab* (integer->char 9)) (define slatex.error (lambda (error-type error-values) (display "Error: ") (display error-type) (display ": ") (newline) (for-each (lambda (x) (write x) (newline)) error-values) (fatal-error ""))) (define slatex.keyword-tokens (map symbol->string '(=> % abort and begin begin0 case case-lambda cond define define! define-macro! define-syntax defrec! delay do else extend-syntax fluid-let if lambda let let* letrec let-syntax letrec-syntax or quasiquote quote rec record-case record-evcase recur set! sigma struct syntax syntax-rules trace trace-lambda trace-let trace-recur unless unquote unquote-splicing untrace when with))) (define slatex.variable-tokens '()) (define slatex.constant-tokens '()) (define slatex.special-symbols (list (cons "." ".") (cons "..." "{\\dots}") (cons "-" "$-$") (cons "1-" "\\va{1$-$}") (cons "-1+" "\\va{$-$1$+$}"))) (define slatex.macro-definers '("define-syntax" "syntax-rules" "defmacro" "extend-syntax" "define-macro!")) (define slatex.case-and-ilk '("case" "record-case")) (define slatex.tex-analog (lambda (c) (cond ((memv c '(#\$ #\& #\% #\# #\_)) (string #\\ c)) ((memv c '(#\{ #\})) (string #\$ #\\ c #\$)) ((char=? c #\\) "$\\backslash$") ((char=? c #\+) "$+$") ((char=? c #\=) "$=$") ((char=? c #\<) "$\\lt$") ((char=? c #\>) "$\\gt$") ((char=? c #\^) "\\^{}") ((char=? c #\|) "$\\vert$") ((char=? c #\~) "\\~{}") ((char=? c #\@) "{\\atsign}") ((char=? c #\") "{\\tt\\dq}") (else (string c))))) (define slatex.*slatex-case-sensitive?* #t) (define slatex.*slatex-enabled?* #t) (define slatex.*slatex-reenabler* "UNDEFINED") (define slatex.*intext-triggerers* (list "scheme")) (define slatex.*resultintext-triggerers* (list "schemeresult")) (define slatex.*display-triggerers* (list "schemedisplay")) (define slatex.*box-triggerers* (list "schemebox")) (define slatex.*input-triggerers* (list "schemeinput")) (define slatex.*region-triggerers* (list "schemeregion")) (define slatex.*math-triggerers* '()) (define slatex.*slatex-in-protected-region?* #f) (define slatex.*protected-files* '()) (define slatex.*include-onlys* 'all) (define slatex.*latex?* #t) (define slatex.*slatex-separate-includes?* #f) (define slatex.set-keyword (lambda (x) (if (slatex.member-token x slatex.keyword-tokens) 'skip (begin (set! slatex.constant-tokens (slatex.remove-token! x slatex.constant-tokens)) (set! slatex.variable-tokens (slatex.remove-token! x slatex.variable-tokens)) (set! slatex.keyword-tokens (cons x slatex.keyword-tokens)))))) (define slatex.set-constant (lambda (x) (if (slatex.member-token x slatex.constant-tokens) 'skip (begin (set! slatex.keyword-tokens (slatex.remove-token! x slatex.keyword-tokens)) (set! slatex.variable-tokens (slatex.remove-token! x slatex.variable-tokens)) (set! slatex.constant-tokens (cons x slatex.constant-tokens)))))) (define slatex.set-variable (lambda (x) (if (slatex.member-token x slatex.variable-tokens) 'skip (begin (set! slatex.keyword-tokens (slatex.remove-token! x slatex.keyword-tokens)) (set! slatex.constant-tokens (slatex.remove-token! x slatex.constant-tokens)) (set! slatex.variable-tokens (cons x slatex.variable-tokens)))))) (define slatex.set-special-symbol (lambda (x transl) (let ((c (slatex.assoc-token x slatex.special-symbols))) (if c (set-cdr! c transl) (set! slatex.special-symbols (cons (cons x transl) slatex.special-symbols)))))) (define slatex.unset-special-symbol (lambda (x) (set! slatex.special-symbols (slatex.remove-if! (lambda (c) (slatex.token=? (car c) x)) slatex.special-symbols)))) (define slatex.texify (lambda (s) (list->string (slatex.texify-aux s)))) (define slatex.texify-data (lambda (s) (let loop ((l (slatex.texify-aux s)) (r '())) (if (null? l) (list->string (slatex.reverse! r)) (let ((c (car l))) (loop (cdr l) (if (char=? c #\-) (slatex.append! (list #\$ c #\$) r) (cons c r)))))))) (define slatex.texify-aux (let* ((arrow (string->list "-$>$")) (arrow-lh (length arrow))) (lambda (s) (let* ((sl (string->list s)) (texified-sl (slatex.append-map! (lambda (c) (string->list (slatex.tex-analog c))) sl))) (slatex.ormapcdr (lambda (d) (if (slatex.list-prefix? arrow d) (let ((to (string->list "$\\to$"))) (set-car! d (car to)) (set-cdr! d (append (cdr to) (list-tail d arrow-lh))))) #f) texified-sl) texified-sl)))) (define slatex.display-begin-sequence (lambda (out) (if (or slatex.*intext?* (not slatex.*latex?*)) (begin (display "\\" out) (display slatex.*code-env-spec* out) (newline out)) (begin (display "\\begin{" out) (display slatex.*code-env-spec* out) (display "}" out) (newline out))))) (define slatex.display-end-sequence (lambda (out) (if (or slatex.*intext?* (not slatex.*latex?*)) (begin (display "\\end" out) (display slatex.*code-env-spec* out) (newline out)) (begin (display "\\end{" out) (display slatex.*code-env-spec* out) (display "}" out) (newline out))))) (define slatex.display-tex-char (lambda (c p) (display (if (char? c) (slatex.tex-analog c) c) p))) (define slatex.display-token (lambda (s typ p) (cond ((eq? typ 'syntax) (display "\\sy{" p) (display (slatex.texify s) p) (display "}" p)) ((eq? typ 'variable) (display "\\va{" p) (display (slatex.texify s) p) (display "}" p)) ((eq? typ 'constant) (display "\\cn{" p) (display (slatex.texify s) p) (display "}" p)) ((eq? typ 'data) (display "\\dt{" p) (display (slatex.texify-data s) p) (display "}" p)) (else (slatex.error 'slatex.display-token typ))))) (define slatex.*max-line-length* 200) (begin (define slatex.&inner-space (integer->char 7)) (define slatex.&quote-space (integer->char 6)) (define slatex.&bracket-space (integer->char 5)) (define slatex.&paren-space (integer->char 4)) (define slatex.&init-plain-space (integer->char 3)) (define slatex.&init-space (integer->char 2)) (define slatex.&plain-space (integer->char 1)) (define slatex.&void-space (integer->char 0))) (begin (define slatex.&plain-crg-ret (integer->char 4)) (define slatex.&tabbed-crg-ret (integer->char 3)) (define slatex.&move-tab (integer->char 2)) (define slatex.&set-tab (integer->char 1)) (define slatex.&void-tab (integer->char 0))) (begin (define slatex.&end-math (integer->char 8)) (define slatex.&mid-math (integer->char 7)) (define slatex.&begin-math (integer->char 6)) (define slatex.&end-string (integer->char 5)) (define slatex.&mid-string (integer->char 4)) (define slatex.&begin-string (integer->char 3)) (define slatex.&mid-comment (integer->char 2)) (define slatex.&begin-comment (integer->char 1)) (define slatex.&void-notab (integer->char 0))) (begin (define slatex.make-raw-line (lambda () (make-vector 5))) (define slatex.=notab 4) (define slatex.=tab 3) (define slatex.=space 2) (define slatex.=char 1) (define slatex.=rtedge 0)) (define slatex.make-line (lambda () (let ((l (slatex.make-raw-line))) (vector-set! l slatex.=rtedge 0) (vector-set! l slatex.=char (make-string slatex.*max-line-length* #\space)) (vector-set! l slatex.=space (make-string slatex.*max-line-length* slatex.&void-space)) (vector-set! l slatex.=tab (make-string slatex.*max-line-length* slatex.&void-tab)) (vector-set! l slatex.=notab (make-string slatex.*max-line-length* slatex.&void-notab)) l))) (define slatex.*line1* (slatex.make-line)) (define slatex.*line2* (slatex.make-line)) (begin (define slatex.make-case-frame (lambda () (make-vector 3))) (define slatex.=in-case-exp 2) (define slatex.=in-bktd-ctag-exp 1) (define =in-ctag-tkn 0)) (begin (define slatex.make-bq-frame (lambda () (make-vector 3))) (define slatex.=in-bktd-bq-exp 2) (define slatex.=in-bq-tkn 1) (define slatex.=in-comma 0)) (define slatex.*latex-paragraph-mode?* 'fwd1) (define slatex.*intext?* 'fwd2) (define slatex.*code-env-spec* "UNDEFINED") (define slatex.*in* 'fwd3) (define slatex.*out* 'fwd4) (define slatex.*in-qtd-tkn* 'fwd5) (define slatex.*in-bktd-qtd-exp* 'fwd6) (define slatex.*in-mac-tkn* 'fwd7) (define slatex.*in-bktd-mac-exp* 'fwd8) (define slatex.*case-stack* 'fwd9) (define slatex.*bq-stack* 'fwd10) (define slatex.display-space (lambda (s p) (cond ((eq? s slatex.&plain-space) (display #\space p)) ((eq? s slatex.&init-plain-space) (display #\space p)) ((eq? s slatex.&init-space) (display "\\HL " p)) ((eq? s slatex.&paren-space) (display "\\PRN " p)) ((eq? s slatex.&bracket-space) (display "\\BKT " p)) ((eq? s slatex.&quote-space) (display "\\QUO " p)) ((eq? s slatex.&inner-space) (display "\\ " p))))) (define slatex.display-tab (lambda (tab p) (cond ((eq? tab slatex.&set-tab) (display "\\=" p)) ((eq? tab slatex.&move-tab) (display "\\>" p))))) (define slatex.display-notab (lambda (notab p) (cond ((eq? notab slatex.&begin-string) (display "\\dt{" p)) ((eq? notab slatex.&end-string) (display "}" p))))) (define slatex.get-line (let ((curr-notab slatex.&void-notab)) (lambda (line) (let ((graphic-char-seen? #f)) (let loop ((i 0)) (let ((c (read-char slatex.*in*))) (cond (graphic-char-seen? 'already-seen) ((or (eof-object? c) (char=? c slatex.*return*) (char=? c #\newline) (char=? c #\space) (char=? c slatex.*tab*)) 'not-yet) (else (set! graphic-char-seen? #t))) (cond ((eof-object? c) (cond ((eq? curr-notab slatex.&mid-string) (if (> i 0) (string-set! (vector-ref line slatex.=notab) (- i 1) slatex.&end-string))) ((eq? curr-notab slatex.&mid-comment) (set! curr-notab slatex.&void-notab)) ((eq? curr-notab slatex.&mid-math) (slatex.error 'slatex.get-line 'runaway-math-subformula))) (string-set! (vector-ref line slatex.=char) i #\newline) (string-set! (vector-ref line slatex.=space) i slatex.&void-space) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) i slatex.&void-notab) (vector-set! line slatex.=rtedge i) (if (eq? (string-ref (vector-ref line slatex.=notab) 0) slatex.&mid-string) (string-set! (vector-ref line slatex.=notab) 0 slatex.&begin-string)) (if (= i 0) #f #t)) ((or (char=? c slatex.*return*) (char=? c #\newline)) (if (and (eq? *op-sys* 'dos) (char=? c slatex.*return*)) (if (char=? (peek-char slatex.*in*) #\newline) (read-char slatex.*in*))) (cond ((eq? curr-notab slatex.&mid-string) (if (> i 0) (string-set! (vector-ref line slatex.=notab) (- i 1) slatex.&end-string))) ((eq? curr-notab slatex.&mid-comment) (set! curr-notab slatex.&void-notab)) ((eq? curr-notab slatex.&mid-math) (slatex.error 'slatex.get-line 'runaway-math-subformula))) (string-set! (vector-ref line slatex.=char) i #\newline) (string-set! (vector-ref line slatex.=space) i slatex.&void-space) (string-set! (vector-ref line slatex.=tab) i (cond ((eof-object? (peek-char slatex.*in*)) slatex.&plain-crg-ret) (slatex.*intext?* slatex.&plain-crg-ret) (else slatex.&tabbed-crg-ret))) (string-set! (vector-ref line slatex.=notab) i slatex.&void-notab) (vector-set! line slatex.=rtedge i) (if (eq? (string-ref (vector-ref line slatex.=notab) 0) slatex.&mid-string) (string-set! (vector-ref line slatex.=notab) 0 slatex.&begin-string)) #t) ((eq? curr-notab slatex.&mid-comment) (string-set! (vector-ref line slatex.=char) i c) (string-set! (vector-ref line slatex.=space) i (cond ((char=? c #\space) slatex.&plain-space) ((char=? c slatex.*tab*) slatex.&plain-space) (else slatex.&void-space))) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) i slatex.&mid-comment) (loop (+ i 1))) ((char=? c #\\) (string-set! (vector-ref line slatex.=char) i c) (string-set! (vector-ref line slatex.=space) i slatex.&void-space) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) i curr-notab) (let ((i+1 (+ i 1)) (c+1 (read-char slatex.*in*))) (if (char=? c+1 slatex.*tab*) (set! c+1 #\space)) (string-set! (vector-ref line slatex.=char) i+1 c+1) (string-set! (vector-ref line slatex.=space) i+1 (if (char=? c+1 #\space) slatex.&plain-space slatex.&void-space)) (string-set! (vector-ref line slatex.=tab) i+1 slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) i+1 curr-notab) (loop (+ i+1 1)))) ((eq? curr-notab slatex.&mid-math) (if (char=? c slatex.*tab*) (set! c #\space)) (string-set! (vector-ref line slatex.=space) i (if (char=? c #\space) slatex.&plain-space slatex.&void-space)) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (cond ((memv c slatex.*math-triggerers*) (string-set! (vector-ref line slatex.=char) i #\$) (string-set! (vector-ref line slatex.=notab) i slatex.&end-math) (set! curr-notab slatex.&void-notab)) (else (string-set! (vector-ref line slatex.=char) i c) (string-set! (vector-ref line slatex.=notab) i slatex.&mid-math))) (loop (+ i 1))) ((eq? curr-notab slatex.&mid-string) (if (char=? c slatex.*tab*) (set! c #\space)) (string-set! (vector-ref line slatex.=char) i c) (string-set! (vector-ref line slatex.=space) i (if (char=? c #\space) slatex.&inner-space slatex.&void-space)) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) i (cond ((char=? c #\") (set! curr-notab slatex.&void-notab) slatex.&end-string) (else slatex.&mid-string))) (loop (+ i 1))) ((char=? c #\space) (string-set! (vector-ref line slatex.=char) i c) (string-set! (vector-ref line slatex.=space) i (cond (slatex.*intext?* slatex.&plain-space) (graphic-char-seen? slatex.&inner-space) (else slatex.&init-space))) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) i slatex.&void-notab) (loop (+ i 1))) ((char=? c slatex.*tab*) (let loop2 ((i i) (j 0)) (if (< j 8) (begin (string-set! (vector-ref line slatex.=char) i #\space) (string-set! (vector-ref line slatex.=space) i (cond (slatex.*intext?* slatex.&plain-space) (graphic-char-seen? slatex.&inner-space) (else slatex.&init-space))) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) i slatex.&void-notab) (loop2 (+ i 1) (+ j 1))))) (loop (+ i 8))) ((char=? c #\") (string-set! (vector-ref line slatex.=char) i c) (string-set! (vector-ref line slatex.=space) i slatex.&void-space) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) i slatex.&begin-string) (set! curr-notab slatex.&mid-string) (loop (+ i 1))) ((char=? c #\;) (string-set! (vector-ref line slatex.=char) i c) (string-set! (vector-ref line slatex.=space) i slatex.&void-space) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) i slatex.&begin-comment) (set! curr-notab slatex.&mid-comment) (loop (+ i 1))) ((memv c slatex.*math-triggerers*) (string-set! (vector-ref line slatex.=char) i #\$) (string-set! (vector-ref line slatex.=space) i slatex.&void-space) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) i slatex.&begin-math) (set! curr-notab slatex.&mid-math) (loop (+ i 1))) (else (string-set! (vector-ref line slatex.=char) i c) (string-set! (vector-ref line slatex.=space) i slatex.&void-space) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) i slatex.&void-notab) (loop (+ i 1)))))))))) (define slatex.peephole-adjust (lambda (curr prev) (if (or (slatex.blank-line? curr) (slatex.flush-comment-line? curr)) (if slatex.*latex-paragraph-mode?* 'skip (begin (set! slatex.*latex-paragraph-mode?* #t) (if slatex.*intext?* 'skip (begin (slatex.remove-some-tabs prev 0) (let ((prev-rtedge (vector-ref prev slatex.=rtedge))) (if (eq? (string-ref (vector-ref prev slatex.=tab) prev-rtedge) slatex.&tabbed-crg-ret) (string-set! (vector-ref prev slatex.=tab) (vector-ref prev slatex.=rtedge) slatex.&plain-crg-ret))))))) (begin (if slatex.*latex-paragraph-mode?* (set! slatex.*latex-paragraph-mode?* #f) (if slatex.*intext?* 'skip (let ((remove-tabs-from #f)) (let loop ((i 0)) (cond ((char=? (string-ref (vector-ref curr slatex.=char) i) #\newline) (set! remove-tabs-from i)) ((char=? (string-ref (vector-ref prev slatex.=char) i) #\newline) (set! remove-tabs-from #f)) ((eq? (string-ref (vector-ref curr slatex.=space) i) slatex.&init-space) (if (eq? (string-ref (vector-ref prev slatex.=notab) i) slatex.&void-notab) (begin (cond ((or (char=? (string-ref (vector-ref prev slatex.=char) i) #\() (eq? (string-ref (vector-ref prev slatex.=space) i) slatex.&paren-space)) (string-set! (vector-ref curr slatex.=space) i slatex.&paren-space)) ((or (char=? (string-ref (vector-ref prev slatex.=char) i) #\[) (eq? (string-ref (vector-ref prev slatex.=space) i) slatex.&bracket-space)) (string-set! (vector-ref curr slatex.=space) i slatex.&bracket-space)) ((or (memv (string-ref (vector-ref prev slatex.=char) i) '(#\' #\` #\,)) (eq? (string-ref (vector-ref prev slatex.=space) i) slatex.&quote-space)) (string-set! (vector-ref curr slatex.=space) i slatex.&quote-space))) (if (memq (string-ref (vector-ref prev slatex.=tab) i) (list slatex.&set-tab slatex.&move-tab)) (string-set! (vector-ref curr slatex.=tab) i slatex.&move-tab)))) (loop (+ i 1))) ((= i 0) (set! remove-tabs-from 0)) ((not (eq? (string-ref (vector-ref prev slatex.=tab) i) slatex.&void-tab)) (set! remove-tabs-from (+ i 1)) (if (memq (string-ref (vector-ref prev slatex.=tab) i) (list slatex.&set-tab slatex.&move-tab)) (string-set! (vector-ref curr slatex.=tab) i slatex.&move-tab))) ((memq (string-ref (vector-ref prev slatex.=space) i) (list slatex.&init-space slatex.&init-plain-space slatex.&paren-space slatex.&bracket-space slatex.&quote-space)) (set! remove-tabs-from (+ i 1))) ((and (char=? (string-ref (vector-ref prev slatex.=char) (- i 1)) #\space) (eq? (string-ref (vector-ref prev slatex.=notab) (- i 1)) slatex.&void-notab)) (set! remove-tabs-from (+ i 1)) (string-set! (vector-ref prev slatex.=tab) i slatex.&set-tab) (string-set! (vector-ref curr slatex.=tab) i slatex.&move-tab)) (else (set! remove-tabs-from (+ i 1)) (let loop1 ((j (- i 1))) (cond ((<= j 0) 'exit-loop1) ((not (eq? (string-ref (vector-ref curr slatex.=tab) j) slatex.&void-tab)) 'exit-loop1) ((memq (string-ref (vector-ref curr slatex.=space) j) (list slatex.&paren-space slatex.&bracket-space slatex.&quote-space)) (loop1 (- j 1))) ((or (not (eq? (string-ref (vector-ref prev slatex.=notab) j) slatex.&void-notab)) (char=? (string-ref (vector-ref prev slatex.=char) j) #\space)) (let ((k (+ j 1))) (if (memq (string-ref (vector-ref prev slatex.=notab) k) (list slatex.&mid-comment slatex.&mid-math slatex.&end-math slatex.&mid-string slatex.&end-string)) 'skip (begin (if (eq? (string-ref (vector-ref prev slatex.=tab) k) slatex.&void-tab) (string-set! (vector-ref prev slatex.=tab) k slatex.&set-tab)) (string-set! (vector-ref curr slatex.=tab) k slatex.&move-tab))))) (else 'anything-else?)))))) (slatex.remove-some-tabs prev remove-tabs-from)))) (if slatex.*intext?* 'skip (slatex.add-some-tabs curr)) (slatex.clean-init-spaces curr) (slatex.clean-inner-spaces curr))))) (define slatex.add-some-tabs (lambda (line) (let loop ((i 1) (succ-parens? #f)) (let ((c (string-ref (vector-ref line slatex.=char) i))) (cond ((char=? c #\newline) 'exit-loop) ((not (eq? (string-ref (vector-ref line slatex.=notab) i) slatex.&void-notab)) (loop (+ i 1) #f)) ((char=? c #\[) (if (eq? (string-ref (vector-ref line slatex.=tab) i) slatex.&void-tab) (string-set! (vector-ref line slatex.=tab) i slatex.&set-tab)) (loop (+ i 1) #f)) ((char=? c #\() (if (eq? (string-ref (vector-ref line slatex.=tab) i) slatex.&void-tab) (if succ-parens? 'skip (string-set! (vector-ref line slatex.=tab) i slatex.&set-tab))) (loop (+ i 1) #t)) (else (loop (+ i 1) #f))))))) (define slatex.remove-some-tabs (lambda (line i) (if i (let loop ((i i)) (cond ((char=? (string-ref (vector-ref line slatex.=char) i) #\newline) 'exit) ((eq? (string-ref (vector-ref line slatex.=tab) i) slatex.&set-tab) (string-set! (vector-ref line slatex.=tab) i slatex.&void-tab) (loop (+ i 1))) (else (loop (+ i 1)))))))) (define slatex.clean-init-spaces (lambda (line) (let loop ((i (vector-ref line slatex.=rtedge))) (cond ((< i 0) 'exit-loop) ((eq? (string-ref (vector-ref line slatex.=tab) i) slatex.&move-tab) (let loop2 ((i (- i 1))) (cond ((< i 0) 'exit-loop2) ((memq (string-ref (vector-ref line slatex.=space) i) (list slatex.&init-space slatex.&paren-space slatex.&bracket-space slatex.&quote-space)) (string-set! (vector-ref line slatex.=space) i slatex.&init-plain-space) (loop2 (- i 1))) (else (loop2 (- i 1)))))) (else (loop (- i 1))))))) (define slatex.clean-inner-spaces (lambda (line) (let loop ((i 0) (succ-inner-spaces? #f)) (cond ((char=? (string-ref (vector-ref line slatex.=char) i) #\newline) 'exit-loop) ((eq? (string-ref (vector-ref line slatex.=space) i) slatex.&inner-space) (if succ-inner-spaces? 'skip (string-set! (vector-ref line slatex.=space) i slatex.&plain-space)) (loop (+ i 1) #t)) (else (loop (+ i 1) #f)))))) (define slatex.blank-line? (lambda (line) (let loop ((i 0)) (let ((c (string-ref (vector-ref line slatex.=char) i))) (cond ((char=? c #\space) (if (eq? (string-ref (vector-ref line slatex.=notab) i) slatex.&void-notab) (loop (+ i 1)) #f)) ((char=? c #\newline) (let loop2 ((j (- i 1))) (if (<= j 0) 'skip (begin (string-set! (vector-ref line slatex.=space) i slatex.&void-space) (loop2 (- j 1))))) #t) (else #f)))))) (define slatex.flush-comment-line? (lambda (line) (and (char=? (string-ref (vector-ref line slatex.=char) 0) #\;) (eq? (string-ref (vector-ref line slatex.=notab) 0) slatex.&begin-comment) (not (char=? (string-ref (vector-ref line slatex.=char) 1) #\;))))) (define slatex.do-all-lines (lambda () (let loop ((line1 slatex.*line1*) (line2 slatex.*line2*)) (let* ((line2-paragraph? slatex.*latex-paragraph-mode?*) (more? (slatex.get-line line1))) (slatex.peephole-adjust line1 line2) ((if line2-paragraph? slatex.display-tex-line slatex.display-scm-line) line2) (if (eq? line2-paragraph? slatex.*latex-paragraph-mode?*) 'else ((if slatex.*latex-paragraph-mode?* slatex.display-end-sequence slatex.display-begin-sequence) slatex.*out*)) (if more? (loop line2 line1)))))) (define scheme2tex (lambda (inport outport) (set! slatex.*in* inport) (set! slatex.*out* outport) (set! slatex.*latex-paragraph-mode?* #t) (set! slatex.*in-qtd-tkn* #f) (set! slatex.*in-bktd-qtd-exp* 0) (set! slatex.*in-mac-tkn* #f) (set! slatex.*in-bktd-mac-exp* 0) (set! slatex.*case-stack* '()) (set! slatex.*bq-stack* '()) (let ((flush-line (lambda (line) (vector-set! line slatex.=rtedge 0) (string-set! (vector-ref line slatex.=char) 0 #\newline) (string-set! (vector-ref line slatex.=space) 0 slatex.&void-space) (string-set! (vector-ref line slatex.=tab) 0 slatex.&void-tab) (string-set! (vector-ref line slatex.=notab) 0 slatex.&void-notab)))) (flush-line slatex.*line1*) (flush-line slatex.*line2*)) (slatex.do-all-lines))) (define slatex.display-tex-line (lambda (line) (cond (else (let loop ((i (if (slatex.flush-comment-line? line) 1 0))) (let ((c (string-ref (vector-ref line slatex.=char) i))) (if (char=? c #\newline) (if (eq? (string-ref (vector-ref line slatex.=tab) i) slatex.&void-tab) 'skip (newline slatex.*out*)) (begin (display c slatex.*out*) (loop (+ i 1)))))))))) (define slatex.display-scm-line (lambda (line) (let loop ((i 0)) (let ((c (string-ref (vector-ref line slatex.=char) i))) (cond ((char=? c #\newline) (let ((tab (string-ref (vector-ref line slatex.=tab) i))) (cond ((eq? tab slatex.&tabbed-crg-ret) (display "\\\\" slatex.*out*) (newline slatex.*out*)) ((eq? tab slatex.&plain-crg-ret) (newline slatex.*out*)) ((eq? tab slatex.&void-tab) (display #\% slatex.*out*) (newline slatex.*out*))))) ((eq? (string-ref (vector-ref line slatex.=notab) i) slatex.&begin-comment) (slatex.display-tab (string-ref (vector-ref line slatex.=tab) i) slatex.*out*) (display c slatex.*out*) (loop (+ i 1))) ((eq? (string-ref (vector-ref line slatex.=notab) i) slatex.&mid-comment) (display c slatex.*out*) (loop (+ i 1))) ((eq? (string-ref (vector-ref line slatex.=notab) i) slatex.&begin-string) (slatex.display-tab (string-ref (vector-ref line slatex.=tab) i) slatex.*out*) (display "\\dt{" slatex.*out*) (if (char=? c #\space) (slatex.display-space (string-ref (vector-ref line slatex.=space) i) slatex.*out*) (slatex.display-tex-char c slatex.*out*)) (loop (+ i 1))) ((eq? (string-ref (vector-ref line slatex.=notab) i) slatex.&mid-string) (if (char=? c #\space) (slatex.display-space (string-ref (vector-ref line slatex.=space) i) slatex.*out*) (slatex.display-tex-char c slatex.*out*)) (loop (+ i 1))) ((eq? (string-ref (vector-ref line slatex.=notab) i) slatex.&end-string) (if (char=? c #\space) (slatex.display-space (string-ref (vector-ref line slatex.=space) i) slatex.*out*) (slatex.display-tex-char c slatex.*out*)) (display "}" slatex.*out*) (loop (+ i 1))) ((eq? (string-ref (vector-ref line slatex.=notab) i) slatex.&begin-math) (slatex.display-tab (string-ref (vector-ref line slatex.=tab) i) slatex.*out*) (display c slatex.*out*) (loop (+ i 1))) ((memq (string-ref (vector-ref line slatex.=notab) i) (list slatex.&mid-math slatex.&end-math)) (display c slatex.*out*) (loop (+ i 1))) ((char=? c #\space) (slatex.display-tab (string-ref (vector-ref line slatex.=tab) i) slatex.*out*) (slatex.display-space (string-ref (vector-ref line slatex.=space) i) slatex.*out*) (loop (+ i 1))) ((char=? c #\') (slatex.display-tab (string-ref (vector-ref line slatex.=tab) i) slatex.*out*) (display c slatex.*out*) (if (or slatex.*in-qtd-tkn* (> slatex.*in-bktd-qtd-exp* 0)) 'skip (set! slatex.*in-qtd-tkn* #t)) (loop (+ i 1))) ((char=? c #\`) (slatex.display-tab (string-ref (vector-ref line slatex.=tab) i) slatex.*out*) (display c slatex.*out*) (if (or (null? slatex.*bq-stack*) (vector-ref (car slatex.*bq-stack*) slatex.=in-comma)) (set! slatex.*bq-stack* (cons (let ((f (slatex.make-bq-frame))) (vector-set! f slatex.=in-comma #f) (vector-set! f slatex.=in-bq-tkn #t) (vector-set! f slatex.=in-bktd-bq-exp 0) f) slatex.*bq-stack*))) (loop (+ i 1))) ((char=? c #\,) (slatex.display-tab (string-ref (vector-ref line slatex.=tab) i) slatex.*out*) (display c slatex.*out*) (if (or (null? slatex.*bq-stack*) (vector-ref (car slatex.*bq-stack*) slatex.=in-comma)) 'skip (set! slatex.*bq-stack* (cons (let ((f (slatex.make-bq-frame))) (vector-set! f slatex.=in-comma #t) (vector-set! f slatex.=in-bq-tkn #t) (vector-set! f slatex.=in-bktd-bq-exp 0) f) slatex.*bq-stack*))) (if (char=? (string-ref (vector-ref line slatex.=char) (+ i 1)) #\@) (begin (slatex.display-tex-char #\@ slatex.*out*) (loop (+ 2 i))) (loop (+ i 1)))) ((memv c '(#\( #\[)) (slatex.display-tab (string-ref (vector-ref line slatex.=tab) i) slatex.*out*) (display c slatex.*out*) (cond (slatex.*in-qtd-tkn* (set! slatex.*in-qtd-tkn* #f) (set! slatex.*in-bktd-qtd-exp* 1)) ((> slatex.*in-bktd-qtd-exp* 0) (set! slatex.*in-bktd-qtd-exp* (+ slatex.*in-bktd-qtd-exp* 1)))) (cond (slatex.*in-mac-tkn* (set! slatex.*in-mac-tkn* #f) (set! slatex.*in-bktd-mac-exp* 1)) ((> slatex.*in-bktd-mac-exp* 0) (set! slatex.*in-bktd-mac-exp* (+ slatex.*in-bktd-mac-exp* 1)))) (if (null? slatex.*bq-stack*) 'skip (let ((top (car slatex.*bq-stack*))) (cond ((vector-ref top slatex.=in-bq-tkn) (vector-set! top slatex.=in-bq-tkn #f) (vector-set! top slatex.=in-bktd-bq-exp 1)) ((> (vector-ref top slatex.=in-bktd-bq-exp) 0) (vector-set! top slatex.=in-bktd-bq-exp (+ (vector-ref top slatex.=in-bktd-bq-exp) 1)))))) (if (null? slatex.*case-stack*) 'skip (let ((top (car slatex.*case-stack*))) (cond ((vector-ref top =in-ctag-tkn) (vector-set! top =in-ctag-tkn #f) (vector-set! top slatex.=in-bktd-ctag-exp 1)) ((> (vector-ref top slatex.=in-bktd-ctag-exp) 0) (vector-set! top slatex.=in-bktd-ctag-exp (+ (vector-ref top slatex.=in-bktd-ctag-exp) 1))) ((> (vector-ref top slatex.=in-case-exp) 0) (vector-set! top slatex.=in-case-exp (+ (vector-ref top slatex.=in-case-exp) 1)) (if (= (vector-ref top slatex.=in-case-exp) 2) (set! slatex.*in-qtd-tkn* #t)))))) (loop (+ i 1))) ((memv c '(#\) #\])) (slatex.display-tab (string-ref (vector-ref line slatex.=tab) i) slatex.*out*) (display c slatex.*out*) (if (> slatex.*in-bktd-qtd-exp* 0) (set! slatex.*in-bktd-qtd-exp* (- slatex.*in-bktd-qtd-exp* 1))) (if (> slatex.*in-bktd-mac-exp* 0) (set! slatex.*in-bktd-mac-exp* (- slatex.*in-bktd-mac-exp* 1))) (if (null? slatex.*bq-stack*) 'skip (let ((top (car slatex.*bq-stack*))) (if (> (vector-ref top slatex.=in-bktd-bq-exp) 0) (begin (vector-set! top slatex.=in-bktd-bq-exp (- (vector-ref top slatex.=in-bktd-bq-exp) 1)) (if (= (vector-ref top slatex.=in-bktd-bq-exp) 0) (set! slatex.*bq-stack* (cdr slatex.*bq-stack*))))))) (let loop () (if (null? slatex.*case-stack*) 'skip (let ((top (car slatex.*case-stack*))) (cond ((> (vector-ref top slatex.=in-bktd-ctag-exp) 0) (vector-set! top slatex.=in-bktd-ctag-exp (- (vector-ref top slatex.=in-bktd-ctag-exp) 1)) (if (= (vector-ref top slatex.=in-bktd-ctag-exp) 0) (vector-set! top slatex.=in-case-exp 1))) ((> (vector-ref top slatex.=in-case-exp) 0) (vector-set! top slatex.=in-case-exp (- (vector-ref top slatex.=in-case-exp) 1)) (if (= (vector-ref top slatex.=in-case-exp) 0) (begin (set! slatex.*case-stack* (cdr slatex.*case-stack*)) (loop)))))))) (loop (+ i 1))) (else (slatex.display-tab (string-ref (vector-ref line slatex.=tab) i) slatex.*out*) (loop (slatex.do-token line i)))))))) (define slatex.do-token (let ((token-delims (list #\( #\) #\[ #\] #\space slatex.*return* #\newline #\, #\@ #\;))) (lambda (line i) (let loop ((buf '()) (i i)) (let ((c (string-ref (vector-ref line slatex.=char) i))) (cond ((char=? c #\\) (loop (cons (string-ref (vector-ref line slatex.=char) (+ i 1)) (cons c buf)) (+ i 2))) ((or (memv c token-delims) (memv c slatex.*math-triggerers*)) (slatex.output-token (list->string (slatex.reverse! buf))) i) ((char? c) (loop (cons (string-ref (vector-ref line slatex.=char) i) buf) (+ i 1))) (else (slatex.error 'slatex.do-token 1)))))))) (define slatex.output-token (lambda (token) (if (null? slatex.*case-stack*) 'skip (let ((top (car slatex.*case-stack*))) (if (vector-ref top =in-ctag-tkn) (begin (vector-set! top =in-ctag-tkn #f) (vector-set! top slatex.=in-case-exp 1))))) (if (slatex.assoc-token token slatex.special-symbols) (display (cdr (slatex.assoc-token token slatex.special-symbols)) slatex.*out*) (slatex.display-token token (cond (slatex.*in-qtd-tkn* (set! slatex.*in-qtd-tkn* #f) (cond ((equal? token "else") 'syntax) ((slatex.data-token? token) 'data) (else 'constant))) ((slatex.data-token? token) 'data) ((> slatex.*in-bktd-qtd-exp* 0) 'constant) ((and (not (null? slatex.*bq-stack*)) (not (vector-ref (car slatex.*bq-stack*) slatex.=in-comma))) 'constant) (slatex.*in-mac-tkn* (set! slatex.*in-mac-tkn* #f) (slatex.set-keyword token) 'syntax) ((> slatex.*in-bktd-mac-exp* 0) (slatex.set-keyword token) 'syntax) ((slatex.member-token token slatex.constant-tokens) 'constant) ((slatex.member-token token slatex.variable-tokens) 'variable) ((slatex.member-token token slatex.keyword-tokens) (cond ((slatex.token=? token "quote") (set! slatex.*in-qtd-tkn* #t)) ((slatex.member-token token slatex.macro-definers) (set! slatex.*in-mac-tkn* #t)) ((slatex.member-token token slatex.case-and-ilk) (set! slatex.*case-stack* (cons (let ((f (slatex.make-case-frame))) (vector-set! f =in-ctag-tkn #t) (vector-set! f slatex.=in-bktd-ctag-exp 0) (vector-set! f slatex.=in-case-exp 0) f) slatex.*case-stack*)))) 'syntax) (else 'variable)) slatex.*out*)) (if (and (not (null? slatex.*bq-stack*)) (vector-ref (car slatex.*bq-stack*) slatex.=in-bq-tkn)) (set! slatex.*bq-stack* (cdr slatex.*bq-stack*))))) (define slatex.data-token? (lambda (token) (or (char=? (string-ref token 0) #\#) (string->number token)))) (define slatex.*texinputs* "") (define slatex.*texinputs-list* '()) (define slatex.*path-separator* (cond ((eq? *op-sys* 'unix) #\:) ((eq? *op-sys* 'dos) #\;) (else (slatex.error 'slatex.*path-separator* 'cant-determine)))) (define slatex.*directory-mark* (cond ((eq? *op-sys* 'unix) "/") ((eq? *op-sys* 'dos) "\\") (else (slatex.error 'slatex.*directory-mark* 'cant-determine)))) (define slatex.*file-hider* (cond ((eq? *op-sys* 'unix) "") ((eq? *op-sys* 'dos) "x") (else "."))) (define slatex.path->list (lambda (p) (let loop ((p (string->list p)) (r (list ""))) (let ((separator-pos (slatex.position-char slatex.*path-separator* p))) (if separator-pos (loop (list-tail p (+ separator-pos 1)) (cons (list->string (slatex.sublist p 0 separator-pos)) r)) (slatex.reverse! (cons (list->string p) r))))))) (define slatex.find-some-file (lambda (path . files) (let loop ((path path)) (if (null? path) #f (let ((dir (car path))) (let loop2 ((files (if (or (string=? dir "") (string=? dir ".")) files (map (lambda (file) (string-append dir slatex.*directory-mark* file)) files)))) (if (null? files) (loop (cdr path)) (let ((file (car files))) (if (slatex.file-exists? file) file (loop2 (cdr files))))))))))) (define slatex.file-extension (lambda (filename) (let ((i (slatex.string-position-right #\. filename))) (if i (substring filename i (string-length filename)) #f)))) (define slatex.basename (lambda (filename ext) (let* ((filename-len (string-length filename)) (ext-len (string-length ext)) (len-diff (- filename-len ext-len))) (cond ((> ext-len filename-len) filename) ((equal? ext (substring filename len-diff filename-len)) (substring filename 0 len-diff)) (else filename))))) (define slatex.full-texfile-name (lambda (filename) (let ((extn (slatex.file-extension filename))) (if (and extn (or (string=? extn ".sty") (string=? extn ".tex"))) (slatex.find-some-file slatex.*texinputs-list* filename) (slatex.find-some-file slatex.*texinputs-list* (string-append filename ".tex") filename))))) (define slatex.full-scmfile-name (lambda (filename) (apply slatex.find-some-file slatex.*texinputs-list* filename (map (lambda (extn) (string-append filename extn)) '(".scm" ".ss" ".s"))))) (define slatex.new-aux-file (lambda e (apply (if slatex.*slatex-in-protected-region?* slatex.new-secondary-aux-file slatex.new-primary-aux-file) e))) (define slatex.subjobname 'fwd) (define primary-aux-file-count -1) (define slatex.new-primary-aux-file (lambda e (set! primary-aux-file-count (+ primary-aux-file-count 1)) (apply string-append slatex.*file-hider* "slatexdir/z" (number->string primary-aux-file-count) ; slatex.subjobname e))) (define slatex.new-secondary-aux-file (let ((n -1)) (lambda e (set! n (+ n 1)) (apply string-append slatex.*file-hider* "slatexdir/zz" (number->string n) ; slatex.subjobname e)))) (define slatex.eat-till-newline (lambda (in) (let loop () (let ((c (read-char in))) (cond ((eof-object? c) 'done) ((char=? c #\newline) 'done) (else (loop))))))) (define slatex.read-ctrl-seq (lambda (in) (let ((c (read-char in))) (if (eof-object? c) (slatex.error 'read-ctrl-exp 1)) (if (char-alphabetic? c) (list->string (slatex.reverse! (let loop ((s (list c))) (let ((c (peek-char in))) (cond ((eof-object? c) s) ((char-alphabetic? c) (read-char in) (loop (cons c s))) ((char=? c #\%) (slatex.eat-till-newline in) (loop s)) (else s)))))) (string c))))) (define slatex.eat-tabspace (lambda (in) (let loop () (let ((c (peek-char in))) (cond ((eof-object? c) 'done) ((or (char=? c #\space) (char=? c slatex.*tab*)) (read-char in) (loop)) (else 'done)))))) (define slatex.eat-whitespace (lambda (in) (let loop () (let ((c (peek-char in))) (cond ((eof-object? c) 'done) ((char-whitespace? c) (read-char in) (loop)) (else 'done)))))) (define slatex.eat-latex-whitespace (lambda (in) (let loop () (let ((c (peek-char in))) (cond ((eof-object? c) 'done) ((char-whitespace? c) (read-char in) (loop)) ((char=? c #\%) (slatex.eat-till-newline in)) (else 'done)))))) (define slatex.chop-off-whitespace (lambda (l) (slatex.ormapcdr (lambda (d) (if (char-whitespace? (car d)) #f d)) l))) (define slatex.read-grouped-latexexp (lambda (in) (slatex.eat-latex-whitespace in) (let ((c (read-char in))) (if (eof-object? c) (slatex.error 'slatex.read-grouped-latexexp 1)) (if (char=? c #\{) 'ok (slatex.error 'slatex.read-grouped-latexexp 2)) (slatex.eat-latex-whitespace in) (list->string (slatex.reverse! (slatex.chop-off-whitespace (let loop ((s '()) (nesting 0) (escape? #f)) (let ((c (read-char in))) (if (eof-object? c) (slatex.error 'slatex.read-grouped-latexexp 3)) (cond (escape? (loop (cons c s) nesting #f)) ((char=? c #\\) (loop (cons c s) nesting #t)) ((char=? c #\%) (slatex.eat-till-newline in) (loop s nesting #f)) ((char=? c #\{) (loop (cons c s) (+ nesting 1) #f)) ((char=? c #\}) (if (= nesting 0) s (loop (cons c s) (- nesting 1) #f))) (else (loop (cons c s) nesting #f))))))))))) (define slatex.read-filename (let ((filename-delims (list #\{ #\} #\[ #\] #\( #\) #\# #\% #\\ #\, #\space slatex.*return* #\newline slatex.*tab*))) (lambda (in) (slatex.eat-latex-whitespace in) (let ((c (peek-char in))) (if (eof-object? c) (slatex.error 'slatex.read-filename 1)) (if (char=? c #\{) (slatex.read-grouped-latexexp in) (list->string (slatex.reverse! (let loop ((s '()) (escape? #f)) (let ((c (peek-char in))) (cond ((eof-object? c) (if escape? (slatex.error 'slatex.read-filename 2) s)) (escape? (read-char in) (loop (cons c s) #f)) ((char=? c #\\) (read-char in) (loop (cons c s) #t)) ((memv c filename-delims) s) (else (read-char in) (loop (cons c s) #f)))))))))))) (define slatex.read-schemeid (let ((schemeid-delims (list #\{ #\} #\[ #\] #\( #\) #\space slatex.*return* #\newline slatex.*tab*))) (lambda (in) (slatex.eat-whitespace in) (list->string (slatex.reverse! (let loop ((s '()) (escape? #f)) (let ((c (peek-char in))) (cond ((eof-object? c) s) (escape? (read-char in) (loop (cons c s) #f)) ((char=? c #\\) (read-char in) (loop (cons c s) #t)) ((memv c schemeid-delims) s) (else (read-char in) (loop (cons c s) #f)))))))))) (define slatex.read-delimed-commaed-filenames (lambda (in lft-delim rt-delim) (slatex.eat-latex-whitespace in) (let ((c (read-char in))) (if (eof-object? c) (slatex.error 'slatex.read-delimed-commaed-filenames 1)) (if (char=? c lft-delim) 'ok (slatex.error 'slatex.read-delimed-commaed-filenames 2)) (let loop ((s '())) (slatex.eat-latex-whitespace in) (let ((c (peek-char in))) (if (eof-object? c) (slatex.error 'slatex.read-delimed-commaed-filenames 3)) (if (char=? c rt-delim) (begin (read-char in) (slatex.reverse! s)) (let ((s (cons (slatex.read-filename in) s))) (slatex.eat-latex-whitespace in) (let ((c (peek-char in))) (if (eof-object? c) (slatex.error 'slatex.read-delimed-commaed-filenames 4)) (cond ((char=? c #\,) (read-char in)) ((char=? c rt-delim) 'void) (else (slatex.error 'slatex.read-delimed-commaed-filenames 5))) (loop s))))))))) (define slatex.read-grouped-commaed-filenames (lambda (in) (slatex.read-delimed-commaed-filenames in #\{ #\}))) (define slatex.read-bktd-commaed-filenames (lambda (in) (slatex.read-delimed-commaed-filenames in #\[ #\]))) (define slatex.read-grouped-schemeids (lambda (in) (slatex.eat-latex-whitespace in) (let ((c (read-char in))) (if (eof-object? c) (slatex.error 'slatex.read-grouped-schemeids 1)) (if (char=? c #\{) 'ok (slatex.error 'slatex.read-grouped-schemeids 2)) (let loop ((s '())) (slatex.eat-whitespace in) (let ((c (peek-char in))) (if (eof-object? c) (slatex.error 'slatex.read-grouped-schemeids 3)) (if (char=? c #\}) (begin (read-char in) (slatex.reverse! s)) (loop (cons (slatex.read-schemeid in) s)))))))) (define slatex.disable-slatex-temply (lambda (in) (set! slatex.*slatex-enabled?* #f) (set! slatex.*slatex-reenabler* (slatex.read-grouped-latexexp in)))) (define slatex.enable-slatex-again (lambda () (set! slatex.*slatex-enabled?* #t) (set! slatex.*slatex-reenabler* "UNDEFINED"))) (define slatex.ignore2 (lambda (i ii) 'void)) (define slatex.add-to-slatex-db (lambda (in categ) (if (memq categ '(keyword constant variable)) (slatex.add-to-slatex-db-basic in categ) (slatex.add-to-slatex-db-special in categ)))) (define slatex.add-to-slatex-db-basic (lambda (in categ) (let ((setter (cond ((eq? categ 'keyword) slatex.set-keyword) ((eq? categ 'constant) slatex.set-constant) ((eq? categ 'variable) slatex.set-variable) (else (slatex.error 'slatex.add-to-slatex-db-basic 1)))) (ids (slatex.read-grouped-schemeids in))) (for-each setter ids)))) (define slatex.add-to-slatex-db-special (lambda (in what) (let ((ids (slatex.read-grouped-schemeids in))) (cond ((eq? what 'unsetspecialsymbol) (for-each slatex.unset-special-symbol ids)) ((eq? what 'setspecialsymbol) (if (= (length ids) 1) 'ok (slatex.error 'slatex.add-to-slatex-db-special 'setspecialsymbol-takes-one-arg-only)) (let ((transl (slatex.read-grouped-latexexp in))) (slatex.set-special-symbol (car ids) transl))) (else (slatex.error 'slatex.add-to-slatex-db-special 2)))))) (define slatex.process-slatex-alias (lambda (in what which) (let ((triggerer (slatex.read-grouped-latexexp in))) (cond ((eq? which 'intext) (set! slatex.*intext-triggerers* (what triggerer slatex.*intext-triggerers*))) ((eq? which 'resultintext) (set! slatex.*resultintext-triggerers* (what triggerer slatex.*resultintext-triggerers*))) ((eq? which 'display) (set! slatex.*display-triggerers* (what triggerer slatex.*display-triggerers*))) ((eq? which 'box) (set! slatex.*box-triggerers* (what triggerer slatex.*box-triggerers*))) ((eq? which 'input) (set! slatex.*input-triggerers* (what triggerer slatex.*input-triggerers*))) ((eq? which 'region) (set! slatex.*region-triggerers* (what triggerer slatex.*region-triggerers*))) ((eq? which 'mathescape) (if (= (string-length triggerer) 1) 'ok (slatex.error 'slatex.process-slatex-alias 'math-escape-should-be-character)) (set! slatex.*math-triggerers* (what (string-ref triggerer 0) slatex.*math-triggerers*))) (else (slatex.error 'slatex.process-slatex-alias 2)))))) (define slatex.decide-latex-or-tex (lambda (latex?) (set! slatex.*latex?* latex?) (let ((pltexchk.jnk "pltexchk.jnk")) (if (slatex.file-exists? pltexchk.jnk) (slatex.delete-file pltexchk.jnk)) (if (not slatex.*latex?*) (call-with-output-file/truncate pltexchk.jnk (lambda (outp) (display 'junk outp) (newline outp))))))) (define slatex.process-include-only (lambda (in) (set! slatex.*include-onlys* '()) (for-each (lambda (filename) (let ((filename (slatex.full-texfile-name filename))) (if filename (set! slatex.*include-onlys* (slatex.adjoin-string filename slatex.*include-onlys*))))) (slatex.read-grouped-commaed-filenames in)))) (define slatex.process-documentstyle (lambda (in) (slatex.eat-latex-whitespace in) (if (char=? (peek-char in) #\[) (for-each (lambda (filename) (let ((%:g0% slatex.*slatex-in-protected-region?*)) (set! slatex.*slatex-in-protected-region?* #f) (let ((%temp% (begin (slatex.process-tex-file (string-append filename ".sty"))))) (set! slatex.*slatex-in-protected-region?* %:g0%) %temp%))) (slatex.read-bktd-commaed-filenames in))))) (define slatex.process-case-info (lambda (in) (let ((bool (slatex.read-grouped-latexexp in))) (set! slatex.*slatex-case-sensitive?* (cond ((string-ci=? bool "true") #t) ((string-ci=? bool "false") #f) (else (slatex.error 'slatex.process-case-info 'bad-schemecasesensitive-arg))))))) (define slatex.seen-first-command? #f) (define slatex.process-main-tex-file (lambda (filename) ; (display "SLaTeX v. 2.2") ; (newline) (set! slatex.*texinputs-list* (slatex.path->list slatex.*texinputs*)) (let ((file-hide-file "xZfilhid.tex")) (if (slatex.file-exists? file-hide-file) (slatex.delete-file file-hide-file)) (if (eq? *op-sys* 'dos) (call-with-output-file/truncate file-hide-file (lambda (out) (display "\\def\\filehider{x}" out) (newline out))))) ; (display "typesetting code") (set! slatex.subjobname (slatex.basename filename ".tex")) (set! slatex.seen-first-command? #f) (slatex.process-tex-file filename) ; (display 'done) ; (newline) )) (define slatex.dump-intext (lambda (in out) (let* ((display (if out display slatex.ignore2)) (delim-char (begin (slatex.eat-whitespace in) (read-char in))) (delim-char (cond ((char=? delim-char #\{) #\}) (else delim-char)))) (if (eof-object? delim-char) (slatex.error 'slatex.dump-intext 1)) (let loop () (let ((c (read-char in))) (if (eof-object? c) (slatex.error 'slatex.dump-intext 2)) (if (char=? c delim-char) 'done (begin (display c out) (loop)))))))) (define slatex.dump-display (lambda (in out ender) (slatex.eat-tabspace in) (let ((display (if out display slatex.ignore2)) (ender-lh (string-length ender)) (c (peek-char in))) (if (eof-object? c) (slatex.error 'slatex.dump-display 1)) (if (char=? c #\newline) (read-char in)) (let loop ((buf "")) (let ((c (read-char in))) (if (eof-object? c) (slatex.error 'slatex.dump-display 2)) (let ((buf (string-append buf (string c)))) (if (slatex.string-prefix? buf ender) (if (= (string-length buf) ender-lh) 'done (loop buf)) (begin (display buf out) (loop ""))))))))) (define slatex.debug? #f) (define slatex.process-tex-file (lambda (raw-filename) (if slatex.debug? (begin (display "begin ") (display raw-filename) (newline))) (let ((filename (slatex.full-texfile-name raw-filename))) (if (not filename) (begin (display "[") (display raw-filename) (display "]") (slatex.force-output)) (call-with-input-file filename (lambda (in) (let ((done? #f)) (let loop () (if done? 'exit-loop (begin (let ((c (read-char in))) (cond ((eof-object? c) (set! done? #t)) ((char=? c #\%) (slatex.eat-till-newline in)) ((char=? c #\\) (let ((cs (slatex.read-ctrl-seq in))) (if slatex.seen-first-command? 'skip (begin (set! slatex.seen-first-command? #t) (slatex.decide-latex-or-tex (string=? cs "documentstyle")))) (cond ((not slatex.*slatex-enabled?*) (if (string=? cs slatex.*slatex-reenabler*) (slatex.enable-slatex-again))) ((string=? cs "slatexignorecurrentfile") (set! done? #t)) ((string=? cs "slatexseparateincludes") (if slatex.*latex?* (set! slatex.*slatex-separate-includes?* #t))) ((string=? cs "slatexdisable") (slatex.disable-slatex-temply in)) ((string=? cs "begin") (let ((cs (slatex.read-grouped-latexexp in))) (cond ((member cs slatex.*display-triggerers*) (slatex.trigger-scheme2tex 'envdisplay in cs)) ((member cs slatex.*box-triggerers*) (slatex.trigger-scheme2tex 'envbox in cs)) ((member cs slatex.*region-triggerers*) (slatex.trigger-region 'envregion in cs))))) ((member cs slatex.*intext-triggerers*) (slatex.trigger-scheme2tex 'intext in #f)) ((member cs slatex.*resultintext-triggerers*) (slatex.trigger-scheme2tex 'resultintext in #f)) ((member cs slatex.*display-triggerers*) (slatex.trigger-scheme2tex 'plaindisplay in cs)) ((member cs slatex.*box-triggerers*) (slatex.trigger-scheme2tex 'plainbox in cs)) ((member cs slatex.*region-triggerers*) (slatex.trigger-region 'plainregion in cs)) ((member cs slatex.*input-triggerers*) (slatex.process-scheme-file (slatex.read-filename in))) ((string=? cs "input") (let ((%:g1% slatex.*slatex-in-protected-region?*)) (set! slatex.*slatex-in-protected-region?* #f) (let ((%temp% (begin (slatex.process-tex-file (slatex.read-filename in))))) (set! slatex.*slatex-in-protected-region?* %:g1%) %temp%))) ((string=? cs "include") (if slatex.*latex?* (let ((f (slatex.full-texfile-name (slatex.read-filename in)))) (if (and f (or (eq? slatex.*include-onlys* 'all) (member f slatex.*include-onlys*))) (let ((%:g2% slatex.*slatex-in-protected-region?*) (%:g3% slatex.subjobname) (%:g4% primary-aux-file-count)) (set! slatex.*slatex-in-protected-region?* #f) (set! slatex.subjobname slatex.subjobname) (set! primary-aux-file-count primary-aux-file-count) (let ((%temp% (begin (if slatex.*slatex-separate-includes?* (begin (set! slatex.subjobname (slatex.basename f ".tex")) (set! primary-aux-file-count -1))) (slatex.process-tex-file f)))) (set! slatex.*slatex-in-protected-region?* %:g2%) (set! slatex.subjobname %:g3%) (set! primary-aux-file-count %:g4%) %temp%)))))) ((string=? cs "includeonly") (if slatex.*latex?* (slatex.process-include-only in))) ((string=? cs "documentstyle") (if slatex.*latex?* (slatex.process-documentstyle in))) ((string=? cs "schemecasesensitive") (slatex.process-case-info in)) ((string=? cs "defschemetoken") (slatex.process-slatex-alias in slatex.adjoin-string 'intext)) ((string=? cs "undefschemetoken") (slatex.process-slatex-alias in slatex.remove-string! 'intext)) ((string=? cs "defschemeresulttoken") (slatex.process-slatex-alias in slatex.adjoin-string 'resultintext)) ((string=? cs "undefschemeresulttoken") (slatex.process-slatex-alias in slatex.remove-string! 'resultintext)) ((string=? cs "defschemedisplaytoken") (slatex.process-slatex-alias in slatex.adjoin-string 'display)) ((string=? cs "undefschemedisplaytoken") (slatex.process-slatex-alias in slatex.remove-string! 'display)) ((string=? cs "defschemeboxtoken") (slatex.process-slatex-alias in slatex.adjoin-string 'box)) ((string=? cs "undefschemeboxtoken") (slatex.process-slatex-alias in slatex.remove-string! 'box)) ((string=? cs "defschemeinputtoken") (slatex.process-slatex-alias in slatex.adjoin-string 'input)) ((string=? cs "undefschemeinputtoken") (slatex.process-slatex-alias in slatex.remove-string! 'input)) ((string=? cs "defschemeregiontoken") (slatex.process-slatex-alias in slatex.adjoin-string 'region)) ((string=? cs "undefschemeregiontoken") (slatex.process-slatex-alias in slatex.remove-string! 'region)) ((string=? cs "defschememathescape") (slatex.process-slatex-alias in slatex.adjoin-char 'mathescape)) ((string=? cs "undefschememathescape") (slatex.process-slatex-alias in slatex.remove-char! 'mathescape)) ((string=? cs "setkeyword") (slatex.add-to-slatex-db in 'keyword)) ((string=? cs "setconstant") (slatex.add-to-slatex-db in 'constant)) ((string=? cs "setvariable") (slatex.add-to-slatex-db in 'variable)) ((string=? cs "setspecialsymbol") (slatex.add-to-slatex-db in 'setspecialsymbol)) ((string=? cs "unsetspecialsymbol") (slatex.add-to-slatex-db in 'unsetspecialsymbol))))))) (loop))))))))) (if slatex.debug? (begin (display "end ") (display raw-filename) (newline))))) (define slatex.process-scheme-file (lambda (raw-filename) (let ((filename (slatex.full-scmfile-name raw-filename))) (if (not filename) (begin (display "process-scheme-file: ") (display raw-filename) (display " doesn't exist") (newline)) (let ((aux.tex (slatex.new-aux-file ".tex"))) ;(display ".") (slatex.force-output) (if (slatex.file-exists? aux.tex) (slatex.delete-file aux.tex)) (call-with-input-file filename (lambda (in) (call-with-output-file/truncate aux.tex (lambda (out) (let ((%:g5% slatex.*intext?*) (%:g6% slatex.*code-env-spec*)) (set! slatex.*intext?* #f) (set! slatex.*code-env-spec* "ZZZZschemedisplay") (let ((%temp% (begin (scheme2tex in out)))) (set! slatex.*intext?* %:g5%) (set! slatex.*code-env-spec* %:g6%) %temp%)))))) (if slatex.*slatex-in-protected-region?* (set! slatex.*protected-files* (cons aux.tex slatex.*protected-files*))) (slatex.process-tex-file filename)))))) (define slatex.trigger-scheme2tex (lambda (typ in env) (let* ((aux (slatex.new-aux-file)) (aux.scm (string-append aux ".scm")) (aux.tex (string-append aux ".tex"))) (if (slatex.file-exists? aux.scm) (slatex.delete-file aux.scm)) (if (slatex.file-exists? aux.tex) (slatex.delete-file aux.tex)) ; (display ".") (slatex.force-output) (call-with-output-file/truncate aux.scm (lambda (out) (cond ((memq typ '(intext resultintext)) (slatex.dump-intext in out)) ((memq typ '(envdisplay envbox)) (slatex.dump-display in out (string-append "\\end{" env "}"))) ((memq typ '(plaindisplay plainbox)) (slatex.dump-display in out (string-append "\\end" env))) (else (slatex.error 'slatex.trigger-scheme2tex 1))))) (call-with-input-file aux.scm (lambda (in) (call-with-output-file/truncate aux.tex (lambda (out) (let ((%:g7% slatex.*intext?*) (%:g8% slatex.*code-env-spec*)) (set! slatex.*intext?* (memq typ '(intext resultintext))) (set! slatex.*code-env-spec* (cond ((eq? typ 'intext) "ZZZZschemecodeintext") ((eq? typ 'resultintext) "ZZZZschemeresultintext") ((memq typ '(envdisplay plaindisplay)) "ZZZZschemedisplay") ((memq typ '(envbox plainbox)) "ZZZZschemebox") (else (slatex.error 'slatex.trigger-scheme2tex 2)))) (let ((%temp% (begin (scheme2tex in out)))) (set! slatex.*intext?* %:g7%) (set! slatex.*code-env-spec* %:g8%) %temp%)))))) (if slatex.*slatex-in-protected-region?* (set! slatex.*protected-files* (cons aux.tex slatex.*protected-files*))) (if (memq typ '(envdisplay plaindisplay envbox plainbox)) (slatex.process-tex-file aux.tex)) (slatex.delete-file aux.scm)))) (define slatex.trigger-region (lambda (typ in env) (let ((aux.tex (slatex.new-primary-aux-file ".tex")) (aux2.tex (slatex.new-secondary-aux-file ".tex"))) (if (slatex.file-exists? aux2.tex) (slatex.delete-file aux2.tex)) (if (slatex.file-exists? aux.tex) (slatex.delete-file aux.tex)) ; (display ".") (slatex.force-output) (let ((%:g9% slatex.*slatex-in-protected-region?*) (%:g10% slatex.*protected-files*)) (set! slatex.*slatex-in-protected-region?* #t) (set! slatex.*protected-files* '()) (let ((%temp% (begin (call-with-output-file/truncate aux2.tex (lambda (out) (cond ((eq? typ 'envregion) (slatex.dump-display in out (string-append "\\end{" env "}"))) ((eq? typ 'plainregion) (slatex.dump-display in out (string-append "\\end" env))) (else (slatex.error 'slatex.trigger-region 1))))) (slatex.process-tex-file aux2.tex) (set! slatex.*protected-files* (slatex.reverse! slatex.*protected-files*)) (call-with-input-file aux2.tex (lambda (in) (call-with-output-file/truncate aux.tex (lambda (out) (slatex.inline-protected-files in out))))) (slatex.delete-file aux2.tex)))) (set! slatex.*slatex-in-protected-region?* %:g9%) (set! slatex.*protected-files* %:g10%) %temp%))))) (define slatex.inline-protected-files (lambda (in out) (let ((done? #f)) (let loop () (if done? 'exit-loop (begin (let ((c (read-char in))) (cond ((eof-object? c) (display "{}" out) (set! done? #t)) ((char=? c #\%) (slatex.eat-till-newline in)) ((char=? c #\\) (let ((cs (slatex.read-ctrl-seq in))) (cond ((string=? cs "begin") (let ((cs (slatex.read-grouped-latexexp in))) (cond ((member cs slatex.*display-triggerers*) (slatex.inline-protected 'envdisplay in out cs)) ((member cs slatex.*box-triggerers*) (slatex.inline-protected 'envbox in out cs)) ((member cs slatex.*region-triggerers*) (slatex.inline-protected 'envregion in out cs)) (else (display "\\begin{" out) (display cs out) (display "}" out))))) ((member cs slatex.*intext-triggerers*) (slatex.inline-protected 'intext in out #f)) ((member cs slatex.*resultintext-triggerers*) (slatex.inline-protected 'resultintext in out #f)) ((member cs slatex.*display-triggerers*) (slatex.inline-protected 'plaindisplay in out cs)) ((member cs slatex.*box-triggerers*) (slatex.inline-protected 'plainbox in out cs)) ((member cs slatex.*region-triggerers*) (slatex.inline-protected 'plainregion in out cs)) ((member cs slatex.*input-triggerers*) (slatex.inline-protected 'input in out cs)) (else (display "\\" out) (display cs out))))) (else (display c out)))) (loop))))))) (define slatex.inline-protected (lambda (typ in out env) (cond ((eq? typ 'envregion) (display "\\begin{" out) (display env out) (display "}" out) (slatex.dump-display in out (string-append "\\end{" env "}")) (display "\\end{" out) (display env out) (display "}" out)) ((eq? typ 'plainregion) (display "\\" out) (display env out) (slatex.dump-display in out (string-append "\\end" env)) (display "\\end" out) (display env out)) (else (let ((f (car slatex.*protected-files*))) (set! slatex.*protected-files* (cdr slatex.*protected-files*)) (call-with-input-file f (lambda (in) (slatex.inline-protected-files in out))) (slatex.delete-file f)) (cond ((memq typ '(intext resultintext)) (slatex.dump-intext in #f)) ((memq typ '(envdisplay envbox)) (slatex.dump-display in #f (string-append "\\end{" env "}"))) ((memq typ '(plaindisplay plainbox)) (slatex.dump-display in #f (string-append "\\end" env))) ((eq? typ 'input) (slatex.read-filename in)) (else (slatex.error 'slatex.inline-protected 1))))))) (define (main . args) (run-benchmark "slatex" slatex-iters (lambda (result) #t) (lambda (filename) (lambda () (slatex.process-main-tex-file filename))) "test")) (main) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/square-functor.scm��������������������������������������������������������������0000644�0001750�0001750�00000000160�13213463160�017547� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; square-functor.scm (functor (square-functor (M (*))) * (import scheme M) (define (square x) (* x x))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/test-glob.scm�������������������������������������������������������������������0000644�0001750�0001750�00000002231�13370655400�016476� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ;;;; test-glob.scm ;; test glob-pattern -> regex translation (import (chicken irregex)) (assert (irregex-match (glob->sre "foo.bar") "foo.bar")) (assert (irregex-match (glob->sre "foo*") "foo.bar")) (assert (irregex-match (glob->sre "foo/*") "foo/bar")) (assert (not (irregex-match (glob->sre "foo/*") "foo/bar/baz"))) (assert (irregex-match (glob->sre "foo/*/*") "foo/bar/baz")) (assert (not (irregex-match (glob->sre "foo/*") "foo/.bar"))) (assert (irregex-match (glob->sre "*foo") "xyzfoo")) (assert (not (irregex-match (glob->sre "*foo") ".foo"))) (assert (not (irregex-match (glob->sre "*foo*") "a.fooxxx/yyy"))) (assert (irregex-match (glob->sre "*foo*") "fooxxx")) (assert (irregex-match (glob->sre "main.[ch]") "main.c")) (assert (irregex-match (glob->sre "main.[ch]") "main.h")) (assert (not (irregex-match (glob->sre "main.[ch]") "main.cpp"))) (assert (irregex-match (glob->sre "main.[-c]") "main.h")) (assert (not (irregex-match (glob->sre "main.[-h]") "main.h"))) ;; test file globbing (import (chicken file)) (assert (pair? (glob "../tests"))) (assert (pair? (glob "../tests/*"))) (assert (null? (glob "../nowhere"))) (assert (null? (glob "../nowhere/*"))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reverser/�����������������������������������������������������������������������0000755�0001750�0001750�00000000000�13502230006�015715� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reverser/tags/������������������������������������������������������������������0000755�0001750�0001750�00000000000�13502230006�016653� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reverser/tags/1.0/��������������������������������������������������������������0000755�0001750�0001750�00000000000�13502230006�017151� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reverser/tags/1.0/reverser.egg��������������������������������������������������0000644�0001750�0001750�00000000074�13370655400�021507� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������((synopsis "test egg") (components (extension reverser))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reverser/tags/1.0/reverser.scm��������������������������������������������������0000644�0001750�0001750�00000001023�13370655400�021522� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module reverser * (import scheme (chicken base)) (define rev-version 1.0) (define (string-reverse s) (let* ((len (string-length s)) (ans (make-string len))) (do ((i 0 (+ i 1)) (j (- len 1) (- j 1))) ((< j 0)) (string-set! ans j (string-ref s i))) ans)) (define (rev x) (cond ((string? x) (string-reverse x)) ((symbol? x) (string->symbol (rev (symbol->string x)))) ((list? x) (reverse x)) ((vector? x) (list->vector (rev (vector->list x)))) (else (error "can't reverse" x))))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reverser/tags/1.1/��������������������������������������������������������������0000755�0001750�0001750�00000000000�13502230006�017152� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reverser/tags/1.1/reverser.egg��������������������������������������������������0000644�0001750�0001750�00000000074�13370655400�021510� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������((synopsis "test egg") (components (extension reverser))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/reverser/tags/1.1/reverser.scm��������������������������������������������������0000644�0001750�0001750�00000001023�13370655400�021523� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(module reverser * (import scheme (chicken base)) (define rev-version 1.1) (define (string-reverse s) (let* ((len (string-length s)) (ans (make-string len))) (do ((i 0 (+ i 1)) (j (- len 1) (- j 1))) ((< j 0)) (string-set! ans j (string-ref s i))) ans)) (define (rev x) (cond ((string? x) (string-reverse x)) ((symbol? x) (string->symbol (rev (symbol->string x)))) ((list? x) (reverse x)) ((vector? x) (list->vector (rev (vector->list x)))) (else (error "can't reverse" x))))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/embedded4.scm�������������������������������������������������������������������0000644�0001750�0001750�00000000230�13370655400�016410� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; x.scm (import (chicken gc) (chicken platform)) (define (bar x) (gc) (* x x)) (define-external (baz (int i)) double (sqrt i)) (return-to-host) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/programs-path.scm���������������������������������������������������������������0000644�0001750�0001750�00000000535�13370655400�017367� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(define (executable-path exe) (string-append "../" (or (get-environment-variable "PROGRAM_PREFIX") "") exe (or (get-environment-variable "PROGRAM_SUFFIX") ""))) (define chicken-path (executable-path "chicken")) (define csc-path (executable-path "csc")) (define csi-path (executable-path "csi")) �������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/path-tests.scm������������������������������������������������������������������0000644�0001750�0001750�00000022113�13370655400�016673� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import (chicken pathname)) (define-syntax test (syntax-rules () ((_ r x) (let ((y x)) (print y) (assert (equal? r y)))))) (test "/" (pathname-directory "/")) (test "/" (pathname-directory "/abc")) (test "abc" (pathname-directory "abc/")) (test "abc" (pathname-directory "abc/def")) (test "abc" (pathname-directory "abc/def.ghi")) (test "abc" (pathname-directory "abc/.def.ghi")) (test "abc" (pathname-directory "abc/.ghi")) (test "/abc" (pathname-directory "/abc/")) (test "/abc" (pathname-directory "/abc/def")) (test "/abc" (pathname-directory "/abc/def.ghi")) (test "/abc" (pathname-directory "/abc/.def.ghi")) (test "/abc" (pathname-directory "/abc/.ghi")) (test "q/abc" (pathname-directory "q/abc/")) (test "q/abc" (pathname-directory "q/abc/def")) (test "q/abc" (pathname-directory "q/abc/def.ghi")) (test "q/abc" (pathname-directory "q/abc/.def.ghi")) (test "q/abc" (pathname-directory "q/abc/.ghi")) (test "." (normalize-pathname "" 'unix)) (test "." (normalize-pathname "" 'windows)) (test "\\..\\" (normalize-pathname "/../" 'windows)) (test "\\" (normalize-pathname "/abc/../." 'windows)) (test "/" (normalize-pathname "/" 'unix)) (test "/" (normalize-pathname "/." 'unix)) (test "/" (normalize-pathname "/./" 'unix)) (test "/" (normalize-pathname "/./." 'unix)) (test "." (normalize-pathname "./" 'unix)) (test "a" (normalize-pathname "./a")) (test "a" (normalize-pathname ".///a")) (test "a" (normalize-pathname "a")) (test "a/" (normalize-pathname "a/" 'unix)) (test "a/b" (normalize-pathname "a/b" 'unix)) (test "a\\b" (normalize-pathname "a\\b" 'unix)) (test "a\\b" (normalize-pathname "a\\b" 'windows)) (test "a\\b" (normalize-pathname "a/b" 'windows)) (test "a/b/" (normalize-pathname "a/b/" 'unix)) (test "a/b/" (normalize-pathname "a/b//" 'unix)) (test "a/b" (normalize-pathname "a//b" 'unix)) (test "/a/b" (normalize-pathname "/a//b" 'unix)) (test "/a/b" (normalize-pathname "///a//b" 'unix)) (test "c:a\\b" (normalize-pathname "c:a/./b" 'windows)) (test "c:/a/b" (normalize-pathname "c:/a/./b" 'unix)) (test "c:a\\b" (normalize-pathname "c:a/./b" 'windows)) (test "c:b" (normalize-pathname "c:a/../b" 'windows)) (test "c:\\b" (normalize-pathname "c:\\a\\..\\b" 'windows)) (test "a/b" (normalize-pathname "a/./././b" 'unix)) (test "a/b" (normalize-pathname "a/b/c/d/../.." 'unix)) (test "a/b/" (normalize-pathname "a/b/c/d/../../" 'unix)) (test "../../foo" (normalize-pathname "../../foo" 'unix)) (test "c:\\" (normalize-pathname "c:\\" 'windows)) (test "c:\\" (normalize-pathname "c:\\." 'windows)) (test "c:\\" (normalize-pathname "c:\\.\\" 'windows)) (test "c:\\" (normalize-pathname "c:\\.\\." 'windows)) (test "~/foo" (normalize-pathname "~/foo" 'unix)) (test "c:~/foo" (normalize-pathname "c:~/foo" 'unix)) (test "c:~\\foo" (normalize-pathname "c:~\\foo" 'windows)) (assert (directory-null? "/.//")) (assert (directory-null? "")) (assert (not (directory-null? "//foo//"))) (test '(#f "/" (".")) (receive (decompose-directory "/.//"))) (if ##sys#windows-platform (test '(#f "/" #f) (receive (decompose-directory "///\\///"))) (test '(#f "/" ("\\")) (receive (decompose-directory "///\\///")))) (test '(#f "/" ("foo")) (receive (decompose-directory "//foo//"))) (test '(#f "/" ("foo" "bar")) (receive (decompose-directory "//foo//bar"))) (test '(#f #f (".")) (receive (decompose-directory ".//"))) (test '(#f #f ("." "foo")) (receive (decompose-directory ".//foo//"))) (test '(#f #f (" " "foo" "bar")) (receive (decompose-directory " //foo//bar"))) (test '(#f #f ("foo" "bar")) (receive (decompose-directory "foo//bar/"))) (test '(#f #f #f) (receive (decompose-pathname ""))) (test '("/" #f #f) (receive (decompose-pathname "/"))) (if ##sys#windows-platform (test '("\\" #f #f) (receive (decompose-pathname "\\"))) (test '(#f "\\" #f) (receive (decompose-pathname "\\")))) (test '("/" "a" #f) (receive (decompose-pathname "/a"))) (if ##sys#windows-platform (test '("\\" "a" #f) (receive (decompose-pathname "\\a"))) (test '(#f "\\a" #f) (receive (decompose-pathname "\\a")))) (test '("/" #f #f) (receive (decompose-pathname "///"))) (if ##sys#windows-platform (test '("\\" #f #f) (receive (decompose-pathname "\\\\\\"))) (test '(#f "\\\\\\" #f) (receive (decompose-pathname "\\\\\\")))) (test '("/" "a" #f) (receive (decompose-pathname "///a"))) (if ##sys#windows-platform (test '("\\" "a" #f) (receive (decompose-pathname "\\\\\\a"))) (test '(#f "\\\\\\a" #f) (receive (decompose-pathname "\\\\\\a")))) (test '("/a" "b" #f) (receive (decompose-pathname "/a/b"))) (if ##sys#windows-platform (test '("\\a" "b" #f) (receive (decompose-pathname "\\a\\b"))) (test '(#f "\\a\\b" #f) (receive (decompose-pathname "\\a\\b")))) (test '("/a" "b" "c") (receive (decompose-pathname "/a/b.c"))) (if ##sys#windows-platform (test '("\\a" "b" "c") (receive (decompose-pathname "\\a\\b.c"))) (test '(#f "\\a\\b" "c") (receive (decompose-pathname "\\a\\b.c")))) (test '("." "a" #f) (receive (decompose-pathname "./a"))) (if ##sys#windows-platform (test '("." "a" #f) (receive (decompose-pathname ".\\a"))) (test '(#f ".\\a" #f) (receive (decompose-pathname ".\\a")))) (test '("." "a" "b") (receive (decompose-pathname "./a.b"))) (if ##sys#windows-platform (test '("." "a" "b") (receive (decompose-pathname ".\\a.b"))) (test '(#f ".\\a" "b") (receive (decompose-pathname ".\\a.b")))) (test '("./a" "b" #f) (receive (decompose-pathname "./a/b"))) (if ##sys#windows-platform (test '(".\\a" "b" #f) (receive (decompose-pathname ".\\a\\b"))) (test '(#f ".\\a\\b" #f) (receive (decompose-pathname ".\\a\\b")))) (test '(#f "a" #f) (receive (decompose-pathname "a"))) (test '(#f "a." #f) (receive (decompose-pathname "a."))) (test '(#f ".a" #f) (receive (decompose-pathname ".a"))) (test '("a" "b" #f) (receive (decompose-pathname "a/b"))) (if ##sys#windows-platform (test '("a" "b" #f) (receive (decompose-pathname "a\\b"))) (test '(#f "a\\b" #f) (receive (decompose-pathname "a\\b")))) (test '("a" "b" #f) (receive (decompose-pathname "a///b"))) (if ##sys#windows-platform (test '("a" "b" #f) (receive (decompose-pathname "a\\\\\\b"))) (test '(#f "a\\\\\\b" #f) (receive (decompose-pathname "a\\\\\\b")))) (test '("a/b" "c" #f) (receive (decompose-pathname "a/b/c"))) (if ##sys#windows-platform (test '("a\\b" "c" #f) (receive (decompose-pathname "a\\b\\c"))) (test '(#f "a\\b\\c" #f) (receive (decompose-pathname "a\\b\\c")))) (test '("a/b/c" #f #f) (receive (decompose-pathname "a/b/c/"))) (if ##sys#windows-platform (test '("a\\b\\c" #f #f) (receive (decompose-pathname "a\\b\\c\\"))) (test '(#f "a\\b\\c\\" #f) (receive (decompose-pathname "a\\b\\c\\")))) (test '("a/b/c" #f #f) (receive (decompose-pathname "a/b/c///"))) (if ##sys#windows-platform (test '("a\\b\\c" #f #f) (receive (decompose-pathname "a\\b\\c\\\\\\"))) (test '(#f "a\\b\\c\\\\\\" #f) (receive (decompose-pathname "a\\b\\c\\\\\\")))) (test '(#f "a" "b") (receive (decompose-pathname "a.b"))) (test '("a.b" #f #f) (receive (decompose-pathname "a.b/"))) (if ##sys#windows-platform (test '("a.b" #f #f) (receive (decompose-pathname "a.b\\"))) (test '(#f "a" "b\\") (receive (decompose-pathname "a.b\\")))) (test '(#f "a.b" "c") (receive (decompose-pathname "a.b.c"))) (test '(#f "a." "b") (receive (decompose-pathname "a..b"))) (test '(#f "a.." "b") (receive (decompose-pathname "a...b"))) (test '("a." ".b" #f) (receive (decompose-pathname "a./.b"))) (if ##sys#windows-platform (test '("a." ".b" #f) (receive (decompose-pathname "a.\\.b"))) (test '(#f "a.\\" "b") (receive (decompose-pathname "a.\\.b")))) (cond (##sys#windows-platform (test "x/y\\z.q" (make-pathname "x/y" "z" "q")) (test "x/y\\z.q" (make-pathname "x/y" "z.q")) (test "x/y\\z.q" (make-pathname "x/y/" "z.q")) (test "x/y\\z.q" (make-pathname "x/y/" "z.q")) (test "x/y\\z.q" (make-pathname "x/y\\" "z.q")) (test "x//y\\z.q" (make-pathname "x//y/" "z.q")) (test "x\\y\\z.q" (make-pathname "x\\y" "z.q"))) (else (test "x/y/z.q" (make-pathname "x/y" "z" "q")) (test "x/y/z.q" (make-pathname "x/y" "z.q")) (test "x/y/z.q" (make-pathname "x/y/" "z.q")) (test "x/y/z.q" (make-pathname "x/y/" "z.q")) (test "x/y\\/z.q" (make-pathname "x/y\\" "z.q")) (test "x//y/z.q" (make-pathname "x//y/" "z.q")) (test "x\\y/z.q" (make-pathname "x\\y" "z.q")))) (test 'error (handle-exceptions _ 'error (make-pathname '(#f) "foo"))) (test "/x/y/z" (make-pathname #f "/x/y/z")) (cond (##sys#windows-platform (test "\\x/y/z" (make-pathname "/" "x/y/z")) (test "/x\\y/z" (make-pathname "/x" "/y/z")) (test "\\x/y/z" (make-pathname '("/") "x/y/z")) (test "\\x\\y/z" (make-pathname '("/" "x") "y/z")) (test "/x\\y\\z" (make-pathname '("/x" "y") "z")) (test "/x\\y\\z\\" (make-pathname '("/x" "y" "z") #f))) (else (test "/x/y/z" (make-pathname "/" "x/y/z")) (test "/x/y/z" (make-pathname "/x" "/y/z")) (test "/x/y/z" (make-pathname '("/") "x/y/z")) (test "/x/y/z" (make-pathname '("/" "x") "y/z")) (test "/x/y/z" (make-pathname '("/x" "y") "z")) (test "/x/y/z/" (make-pathname '("/x" "y" "z") #f)))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/library-tests.scm���������������������������������������������������������������0000644�0001750�0001750�00000061763�13502227553�017422� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; library-tests.scm (import chicken.blob chicken.bitwise chicken.fixnum chicken.flonum chicken.keyword chicken.port chicken.condition) (define-syntax assert-fail (syntax-rules () ((_ exp) (assert (handle-exceptions ex #t exp #f))))) (define (list-tabulate n proc) (let loop ((i 0)) (if (fx>= i n) '() (cons (proc i) (loop (fx+ i 1)))))) (define (every pred lst) (let loop ((lst lst)) (cond ((null? lst)) ((not (pred (car lst))) #f) (else (loop (cdr lst)))))) ;; numbers (assert (not (not 3))) (assert (= -4.0 (round -4.3))) (assert (= -4.0 (round -4.5))) ; R5RS (assert (= 4.0 (round 3.5))) (assert (= 4.0 (round 4.5))) ; R5RS (assert (= 4 (round (string->number "7/2")))) (assert (= 7 (round 7))) (assert (zero? (round -0.5))) ; is actually -0.0 (assert (zero? (round -0.3))) (assert (= -1 (round -0.6))) (assert (zero? (round 0.5))) (assert (zero? (round 0.3))) (assert (= 1.0 (round 0.6))) (assert (rational? 1)) (assert (finite? 1)) (assert-fail (finite? 'foo)) (assert (rational? 1.0)) (assert (finite? 1.0)) (assert (not (rational? +inf.0))) (assert (not (finite? +inf.0))) (assert (not (rational? -inf.0))) (assert (not (finite? -inf.0))) (assert (not (rational? +nan.0))) (assert (not (finite? +nan.0))) (assert (not (rational? 'foo))) (assert (not (rational? "foo"))) (assert (integer? 2)) (assert (integer? 2.0)) (assert (not (integer? 1.1))) (assert (not (integer? +inf.0))) (assert (not (integer? -inf.0))) (assert (not (integer? +nan.0))) (assert (not (integer? 'foo))) (assert (not (integer? "foo"))) ; XXX number missing (assert (exact? 1)) (assert (not (exact? 1.0))) (assert (not (exact? 1.1))) (assert-fail (exact? 'foo)) (assert (not (inexact? 1))) (assert (inexact? 1.0)) (assert (inexact? 1.1)) (assert-fail (inexact? 'foo)) ;; Division by inexact zero used to fail, but now it returns +inf.0 (assert-fail (/ 1 1 0)) (assert (eqv? +inf.0 (/ 1 1 0.0))) (assert (eqv? +inf.0 (/ 1 0.0))) (assert-fail (/ 1 0)) (assert-fail (/ 0)) (assert (eqv? +inf.0 (/ 0.0))) (assert (fixnum? (/ 1))) (assert (= -3 (- 3))) (assert (= 3 (- -3))) (assert (= 2 (- 5 3))) (assert (> 1 (/ 3))) (assert (> 1 (/ 3.0))) (assert (= 2 (/ 8 4))) (assert (zero? (+))) (assert (= 1 (*))) (assert (= 2.5 (/ 5 2))) ;; Use equal? instead of = to check equality and exactness in one go (assert (equal? 0 (numerator 0))) (assert (equal? 1 (denominator 0))) (assert (equal? 3 (numerator 3))) (assert (equal? 1 (denominator 3))) (assert (equal? -3 (numerator -3))) (assert (equal? 1 (denominator -3))) (assert (equal? 1.0 (numerator 0.5))) (assert (equal? 2.0 (denominator 0.5))) (assert (equal? 5.0 (numerator 1.25))) (assert (equal? 4.0 (denominator 1.25))) (assert (equal? -5.0 (numerator -1.25))) ;;; A few denormalised numbers, cribbed from NetBSD ATF tests for ldexp(): ;; On some machines/OSes these tests fail due to missing hardware support ;; and sometimes due to broken libc/libm support, so we have disabled them. ;(assert (equal? 1.0 (numerator 1.1125369292536006915451e-308))) ;(assert (equal? +inf.0 (denominator 1.1125369292536006915451e-308))) ;(assert (equal? -1.0 (numerator -5.5626846462680034577256e-309))) ;(assert (equal? +inf.0 (denominator -5.5626846462680034577256e-309))) ;(assert (equal? 1.0 (numerator 4.9406564584124654417657e-324))) ;(assert (equal? +inf.0 (denominator 4.9406564584124654417657e-324))) (assert (equal? 4.0 (denominator -1.25))) (assert (equal? 1e10 (numerator 1e10))) (assert (equal? 1.0 (denominator 1e10))) (assert-fail (numerator +inf.0)) (assert-fail (numerator +nan.0)) (assert-fail (denominator +inf.0)) (assert-fail (denominator +nan.0)) (assert (even? 2)) (assert (even? 2.0)) (assert (even? 0)) (assert (even? 0.0)) (assert (not (even? 3))) (assert (not (even? 3.0))) (assert (odd? 1)) (assert (odd? 1.0)) (assert (not (odd? 0))) (assert (not (odd? 0.0))) (assert (not (odd? 2))) (assert (not (odd? 2.0))) (assert-fail (even? 1.2)) (assert-fail (odd? 1.2)) (assert-fail (even? +inf.0)) (assert-fail (odd? +inf.0)) (assert-fail (even? +nan.0)) (assert-fail (odd? +nan.0)) (assert-fail (even? 'x)) (assert-fail (odd? 'x)) (assert (= 60 (arithmetic-shift 15 2))) (assert (= 3 (arithmetic-shift 15 -2))) (assert (= -60 (arithmetic-shift -15 2))) (assert (= -4 (arithmetic-shift -15 -2))) ; 2's complement (assert-fail (arithmetic-shift 0.1 2)) ;; XXX Do the following two need to fail? Might as well use the integral value (assert-fail (arithmetic-shift #xf 2.0)) (assert-fail (arithmetic-shift #xf -2.0)) (assert-fail (arithmetic-shift #xf 2.1)) (assert-fail (arithmetic-shift #xf -2.1)) (assert-fail (arithmetic-shift +inf.0 2)) (assert-fail (arithmetic-shift +nan.0 2)) (assert (= 0 (gcd))) (assert (= 6 (gcd 6))) (assert (= 2 (gcd 6 8))) (assert (= 1 (gcd 6 8 5))) (assert (= 1 (gcd 6 -8 5))) (assert (= 2.0 (gcd 6.0 8.0))) (assert-fail (gcd 6.1 8.0)) (assert-fail (gcd 6.0 8.1)) (assert-fail (gcd +inf.0)) (assert-fail (gcd +nan.0)) (assert-fail (gcd 6.0 +inf.0)) (assert-fail (gcd +inf.0 6.0)) (assert-fail (gcd +nan.0 6.0)) (assert-fail (gcd 6.0 +nan.0)) (assert (= 1 (lcm))) (assert (= 6 (lcm 6))) (assert (= 24 (lcm 6 8))) (assert (= 120 (lcm 6 8 5))) (assert (= 24.0 (lcm 6.0 8.0))) (assert-fail (lcm +inf.0)) (assert-fail (lcm +nan.0)) (assert-fail (lcm 6.1 8.0)) (assert-fail (lcm 6.0 8.1)) (assert-fail (lcm 6.0 +inf.0)) (assert-fail (lcm +inf.0 6.0)) (assert-fail (lcm +nan.0 6.0)) (assert-fail (lcm 6.0 +nan.0)) (assert (= 3 (quotient 13 4))) (assert (= 3.0 (quotient 13.0 4.0))) (assert-fail (quotient 13.0 4.1)) (assert-fail (quotient 13.2 4.0)) (assert-fail (quotient +inf.0 4.0)) (assert-fail (quotient +nan.0 4.0)) (assert-fail (quotient 4.0 +inf.0)) (assert-fail (quotient 4.0 +nan.0)) (assert (= 1 (remainder 13 4))) (assert (= 1.0 (remainder 13.0 4.0))) (assert-fail (remainder 13.0 4.1)) (assert-fail (remainder 13.2 4.0)) (assert-fail (remainder +inf.0 4.0)) (assert-fail (remainder +nan.0 4.0)) (assert-fail (remainder 4.0 +inf.0)) (assert-fail (remainder 4.0 +nan.0)) (assert (= 1 (modulo 13 4))) (assert (= 1.0 (modulo 13.0 4.0))) (assert-fail (modulo 13.0 4.1)) (assert-fail (modulo 13.2 4.0)) (assert-fail (modulo +inf.0 4.0)) (assert-fail (modulo +nan.0 4.0)) (assert-fail (modulo 4.0 +inf.0)) (assert-fail (modulo 4.0 +nan.0)) (assert-fail (min 'x)) (assert-fail (max 'x)) (assert (eq? 1 (min 1 2))) (assert (eq? 1 (min 2 1))) (assert (eq? 2 (max 1 2))) (assert (eq? 2 (max 2 1))) ;; must be flonum (assert (fp= 1.0 (min 1 2.0))) (assert (fp= 1.0 (min 2.0 1))) (assert (fp= 2.0 (max 2 1.0))) (assert (fp= 2.0 (max 1.0 2))) ;; number->string conversion (for-each (lambda (x) (let ((number (car x)) (radix (cadr x))) (assert (eqv? number (string->number (number->string number radix) radix))))) '((123 10) (123 2) (123 8) (-123 10) (-123 2) (-123 8) (99.2 10) (-99.2 10))) ;; by Christian Kellermann (assert (equal? (map (lambda (n) (number->string 32 n)) (list-tabulate 15 (cut + 2 <>))) '("100000" "1012" "200" "112" "52" "44" "40" "35" "32" "2a" "28" "26" "24" "22" "20"))) ;; string->number conversion (assert (= 255 (string->number "ff" 16))) (assert (not (string->number "fg" 16))) ;; fp-math (define (inexact= a b) (< (abs (- 1 (abs (/ a b)))) 1e-10)) (assert (inexact= (sin 42.0) (fpsin 42.0))) (assert (inexact= (cos 42.0) (fpcos 42.0))) (assert (inexact= (tan 42.0) (fptan 42.0))) (assert (inexact= (asin 0.5) (fpasin 0.5))) (assert (inexact= (acos 0.5) (fpacos 0.5))) (assert (inexact= (atan 0.5) (fpatan 0.5))) (assert (inexact= (atan 42.0 1.2) (fpatan2 42.0 1.2))) (assert (inexact= (atan 42.0 1) (fpatan2 42.0 1.0))) (assert (inexact= (atan 42 1.0) (fpatan2 42.0 1.0))) (assert (inexact= (exp 42.0) (fpexp 42.0))) (assert (inexact= (log 42.0) (fplog 42.0))) (assert (inexact= (expt 42.0 3.5) (fpexpt 42.0 3.5))) (assert (inexact= (sqrt 42.0) (fpsqrt 42.0))) (assert (inexact= 43.0 (fpround 42.5))) (assert (inexact= -43.0 (fpround -42.5))) (assert (inexact= 42.0 (fpround 42.2))) (assert (inexact= 42.0 (fptruncate 42.5))) (assert (inexact= -42.0 (fptruncate -42.5))) (assert (inexact= 42.0 (fpfloor 42.2))) (assert (inexact= -43.0 (fpfloor -42.5))) (assert (inexact= 43.0 (fpceiling 42.5))) (assert (inexact= -42.0 (fpceiling -42.2))) (assert (not (fpinteger? 2.3))) (assert (fpinteger? 1.0)) ;; string->symbol ;; by Jim Ursetto (assert (eq? '|3| (with-input-from-string (with-output-to-string (lambda () (write (string->symbol "3")))) read))) ;;; escaped symbol syntax (assert (string=? "abc" (symbol->string '|abc|))) (assert (string=? "abcdef" (symbol->string '|abc||def|))) (assert (string=? "abcxyzdef" (symbol->string '|abc|xyz|def|))) (assert (string=? "abc|def" (symbol->string '|abc\|def|))) (assert (string=? "abc|def" (symbol->string '|abc\|def|))) (assert (string=? "abc" (symbol->string 'abc))) (assert (string=? "a c" (symbol->string 'a\ c))) (assert (string=? "aBc" (symbol->string 'aBc))) (parameterize ((case-sensitive #f)) (assert (string=? "abc" (symbol->string (with-input-from-string "aBc" read)))) (assert (string=? "aBc" (symbol->string (with-input-from-string "|aBc|" read)))) (assert (string=? "aBc" (symbol->string (with-input-from-string "a\\Bc" read))))) (parameterize ((symbol-escape #f)) (assert (string=? "aBc" (symbol->string (with-input-from-string "aBc" read)))) (assert-fail (with-input-from-string "|aBc|" read)) (assert-fail (with-input-from-string "a|Bc" read))) (parameterize ((symbol-escape #t)) (assert (string=? "aBc" (symbol->string (with-input-from-string "aBc" read)))) (assert (string=? "aBc" (symbol->string (with-input-from-string "|aBc|" read)))) (assert (string=? "aB c" (symbol->string (with-input-from-string "|aB c|" read)))) ;; The following is an extension/generalisation of r7RS (assert (string=? "aBc" (symbol->string (with-input-from-string "a|Bc|" read)))) ;; "Unterminated string" (unterminated identifier?) (assert-fail (with-input-from-string "a|Bc" read))) ;;; Old style qualified low byte, see #1077 (assert (string=? "##foo#bar" (symbol->string '|##foo#bar|))) (assert (string=? "##foo#bar" (symbol->string '##foo#bar))) (assert (eq? '##foo#bar '|##foo#bar|)) (assert (string=? "|\\x0a|" (with-output-to-string (lambda () (write '|\n|))))) ;; #1576 (assert (string=? "|\\x00foo|" (with-output-to-string (lambda () (write '|\000foo|))))) (assert (not (keyword? '|\000foo|))) (assert (string=? "|###foo#bar|" (with-output-to-string (lambda () (write '|###foo#bar|))))) ;;; Paren synonyms (parameterize ((parentheses-synonyms #f)) (assert (eq? '() (with-input-from-string "()" read))) (assert-fail (with-input-from-string "[]" read)) (assert-fail (with-input-from-string "{}" read))) (parameterize ((parentheses-synonyms #t)) (assert (eq? '() (with-input-from-string "()" read))) (assert (eq? '() (with-input-from-string "[]" read))) (assert (eq? '() (with-input-from-string "{}" read)))) ;;; keywords (parameterize ((keyword-style #:suffix)) (assert (string=? "abc:" (symbol->string (with-input-from-string "|abc:|" read)))) (assert (string=? "abc" (keyword->string (with-input-from-string "|abc|:" read)))) ; keyword (let ((kw (with-input-from-string "|foo bar|:" read)) (sym1 (with-input-from-string "|foo:|" read)) (sym2 (with-input-from-string "|:foo|" read))) (assert (symbol? sym1)) (assert (not (keyword? sym1))) (assert (symbol? sym2)) (assert (not (keyword? sym2))) (assert (keyword? kw)) (assert (not (symbol? kw))) (assert (eq? kw (with-input-from-string "#:|foo bar|" read))) (assert (string=? "foo bar" (keyword->string kw))) (assert (string=? "foo:" (symbol->string sym1))) (assert (string=? ":foo" (symbol->string sym2))) (assert (string=? "foo bar:" (with-output-to-string (lambda () (display kw))))) (assert (string=? "#:|foo bar|" (with-output-to-string (lambda () (write kw))))) (assert (string=? "|foo:|" (with-output-to-string (lambda () (write sym1))))) ;; Regardless of keyword style, symbols must be quoted to avoid ;; issues when reading it back with a different keyword style. (assert (string=? "|:foo|" (with-output-to-string (lambda () (write sym2))))))) (parameterize ((keyword-style #:prefix)) (assert (string=? "abc" (keyword->string (with-input-from-string ":|abc|" read)))) (assert (string=? ":abc" (symbol->string (with-input-from-string "|:abc|" read)))) (let ((kw (with-input-from-string ":|foo bar|" read)) (sym1 (with-input-from-string "|:foo|" read)) (sym2 (with-input-from-string "|foo:|" read))) (assert (symbol? sym1)) (assert (not (keyword? sym1))) (assert (symbol? sym2)) (assert (not (keyword? sym2))) (assert (keyword? kw)) (assert (not (symbol? kw))) (assert (eq? kw (with-input-from-string "#:|foo bar|" read))) (assert (string=? "foo bar" (keyword->string kw))) (assert (string=? ":foo" (symbol->string sym1))) (assert (string=? "foo:" (symbol->string sym2))) (assert (string=? ":foo bar" (with-output-to-string (lambda () (display kw))))) (assert (string=? "#:|foo bar|" (with-output-to-string (lambda () (write kw))))) (assert (string=? "|:foo|" (with-output-to-string (lambda () (write sym1))))) ;; Regardless of keyword style, symbols must be quoted to avoid ;; issues when reading it back with a different keyword style. (assert (string=? "|foo:|" (with-output-to-string (lambda () (write sym2))))))) (parameterize ((keyword-style #:none)) (let ((kw (with-input-from-string "#:|foo bar|" read)) (sym1 (with-input-from-string "|:foo|" read)) (sym2 (with-input-from-string "|foo:|" read))) (assert (symbol? sym1)) (assert (not (keyword? sym1))) (assert (symbol? sym2)) (assert (not (keyword? sym2))) (assert (keyword? kw)) (assert (not (symbol? kw))) (assert (eq? kw (string->keyword "foo bar")) (assert (string=? "foo bar" (keyword->string kw))) (assert (string=? ":foo" (symbol->string sym1))) (assert (string=? "foo:" (symbol->string sym2))) (assert (string=? ":foo" (with-output-to-string (lambda () (display kw))))) (assert (string=? "#:|foo bar|" (with-output-to-string (lambda () (write kw))))) ;; Regardless of keyword style, symbols must be quoted to avoid ;; issues when reading it back with a different keyword style. (assert (string=? "|:foo|" (with-output-to-string (lambda () (write sym1))))) (assert (string=? "|foo:|" (with-output-to-string (lambda () (write sym2)))))))) (assert (eq? '|#:| (string->symbol "#:"))) (assert-fail (with-input-from-string "#:" read)) ; empty keyword (assert (eq? '|#:| (with-input-from-string (with-output-to-string (cut write '|#:|)) read))) (parameterize ((keyword-style #:suffix)) (assert (keyword? (with-input-from-string "abc:" read))) (assert (keyword? (with-input-from-string "|abc|:" read))) (assert (not (keyword? (with-input-from-string "abc:||" read)))) (assert (not (keyword? (with-input-from-string "abc\\:" read)))) (assert (not (keyword? (with-input-from-string "abc|:|" read)))) (assert (not (keyword? (with-input-from-string "|abc:|" read))))) (parameterize ((keyword-style #:prefix)) (assert (keyword? (with-input-from-string ":abc" read))) (assert (keyword? (with-input-from-string ":|abc|" read))) (assert (keyword? (with-input-from-string "||:abc" read))) ;XXX should be not (assert (not (keyword? (with-input-from-string "\\:abc" read)))) (assert (not (keyword? (with-input-from-string "|:|abc" read)))) (assert (not (keyword? (with-input-from-string "|:abc|" read))))) (parameterize ((keyword-style #f)) (assert (not (keyword? (with-input-from-string ":abc" read)))) (assert (not (keyword? (with-input-from-string ":abc:" read)))) (assert (not (keyword? (with-input-from-string "abc:" read))))) (let ((colon-sym (with-input-from-string ":" read))) (assert (symbol? colon-sym)) (assert (not (keyword? colon-sym))) (assert (string=? ":" (symbol->string colon-sym)))) ;; The next two cases are a bit dubious. These could also be read as ;; keywords due to the literal quotation. (let ((colon-sym (with-input-from-string ":||" read))) (assert (symbol? colon-sym)) (assert (not (keyword? colon-sym))) (assert (string=? ":" (symbol->string colon-sym)))) (let ((colon-sym (with-input-from-string "||:" read))) (assert (symbol? colon-sym)) (assert (not (keyword? colon-sym))) (assert (string=? ":" (symbol->string colon-sym)))) (assert-fail (with-input-from-string "#:" read)) (let ((empty-kw (with-input-from-string "#:||" read))) (assert (not (symbol? empty-kw))) (assert (keyword? empty-kw)) (assert (string=? "" (keyword->string empty-kw)))) ;; TODO: It should eventually be possible to distinguish these (#1077) #;(let ((nul-sym (with-input-from-string "|\\x00|" read))) (assert (not (keyword? nul-sym))) (assert (string=? "\x00" (symbol->string nul-sym)))) (assert (keyword? (with-input-from-string "42:" read))) (assert (keyword? (with-input-from-string ".:" read))) (assert (equal? (cons 1 2) (with-input-from-string "(1 . 2)" read))) (assert (every keyword? (with-input-from-string "(42: abc: .: #:: ::)" read))) ;; symbols and keywords are now distinct (assert (not (symbol? #:foo))) (assert (not (symbol? (string->keyword "foo")))) (assert (not (keyword? 'foo))) (assert (not (keyword? (string->symbol "foo")))) ;;; reading unterminated objects (assert-fail (with-input-from-string "(" read)) (assert-fail (with-input-from-string "(1 . 2" read)) (assert-fail (with-input-from-string "|" read)) (assert-fail (with-input-from-string "\"" read)) (assert-fail (with-input-from-string "#|" read)) (assert-fail (with-input-from-string "#(" read)) (assert-fail (with-input-from-string "#${" read)) (assert-fail (with-input-from-string "\\" read)) (assert-fail (with-input-from-string "|\\" read)) (assert-fail (with-input-from-string "\"\\" read)) ;;; here documents (assert (string=? "" #<<A A )) (assert (string=? "foo" #<<A foo A )) (assert (string=? "\nfoo\n" #<<A foo A )) (assert (string=? "foo\nbar\nbaz" #<<A foo bar baz A )) ;;; setters (define x '(a b c)) (define kar car) (set! (kar (cdr x)) 99) (assert (equal? '(a 99 c) x)) (define p (make-parameter 100)) (assert (= 100 (p))) (set! (p) 1000) (assert (= 1000 (p))) ;;; blob-literal syntax (assert (equal? '#${a} '#${0a})) (assert (equal? '#${ab cd} '#${abcd})) (assert (equal? '#${ab c} '#${ab0c})) (assert (equal? '#${abc} '#${ab0c})) (assert (equal? '#${a b c} '#${0a0b0c})) ;; self-evaluating (assert (equal? '#${a} #${a})) (assert (equal? '#${abcd} #${abcd})) (assert (equal? '#${abc} #${abc})) ;; #808: blobs and strings with embedded nul bytes should not be compared ;; with ASCIIZ string comparison functions (assert (equal? '#${a b 0 c} '#${a b 0 c})) (assert (blob=? '#${a b 0 c} '#${a b 0 c})) (assert (equal=? "foo\x00a" "foo\x00a")) (assert (string=? "foo\x00a" "foo\x00a")) (assert (string-ci=? "foo\x00a" "foo\x00a")) (assert (string-ci=? "foo\x00a" "foo\x00A")) (assert (not (equal? '#${a b 0 c} '#${a b 0 d}))) (assert (not (blob=? '#${a b 0 c} '#${a b 0 d}))) (assert (not (equal=? "foo\x00a" "foo\x00b"))) (assert (not (string=? "foo\x00a" "foo\x00b"))) (assert (not (string-ci=? "foo\x00a" "foo\x00b"))) (assert (string<? "foo\x00a" "foo\x00b")) (assert (string>? "foo\x00b" "foo\x00a")) (assert (string-ci<? "foo\x00a" "foo\x00B")) (assert (string-ci>? "foo\x00b" "foo\x00A")) ;; reported by Nils Holm (#1534) ;; https://groups.google.com/group/comp.lang.scheme/t/6b8be06b84b39a7 (assert (not (string-ci<=? "test" "tes"))) (assert (string-ci>=? "test" "tes")) ;;; getter-with-setter (define foo (let ((m 2)) (getter-with-setter (lambda (x) (* x m)) (lambda (x) (set! m x))))) (assert (= 6 (foo 3))) (set! (foo) 4) (assert (= 20 (foo 5))) (define bar (getter-with-setter foo (lambda (x) (+ x 99)))) (assert (= 12 (bar 3))) (assert (= 100 (set! (bar) 1))) (assert (= 12 (foo 3))) ;;; equal=? (assert (not (equal=? 1 2))) (assert (equal=? 1 1)) (assert (equal=? 1 1.0)) (assert (not (equal=? 1 1.2))) (assert (equal=? 1.0 1)) (assert (equal=? '#(1) '#(1.0))) (assert (not (equal=? 'a "a"))) (assert (equal=? "abc" "abc")) (assert (equal=? '(1 2.0 3) '(1 2 3))) (assert (equal=? '#(1 2.0 3) '#(1 2 3))) (assert (equal=? '#(1 2 (3)) '#(1 2 (3)))) (assert (not (equal=? '#(1 2 (4)) '#(1 2 (3))))) (assert (not (equal=? 123 '(123)))) ;;; parameters (define guard-called 0) (define p (make-parameter 1 (lambda (x) (set! guard-called (+ guard-called 1)) x))) (define k (parameterize ((p 2)) (call/cc (lambda (k) (assert (= 2 (p))) k)))) (and k (k #f)) (assert (= 2 guard-called)) ;; Parameters are reset correctly (#1227, pointed out by Joo ChurlSoo) (let ((a (make-parameter 1 number->string)) (b (make-parameter 2 number->string))) (assert (equal? (list "1" "2") (list (a) (b)))) (assert (equal? (list "10" "20") (parameterize ((a 10) (b 20)) (list (a) (b))))) (assert (equal? (list "1" "2") (list (a) (b)))) (handle-exceptions exn #f (parameterize ((a 10) (b 'x)) (void))) (assert (equal? (list "1" "2") (list (a) (b)))) (parameterize ((a 10) (b 30) (a 20)) (assert (equal? (list "20" "30") (list (a) (b))))) (assert (equal? (list "1" "2") (list (a) (b)))) ) ;; Special-cased parameters are reset correctly (#1285, regression ;; caused by fix for #1227) (let ((original-input (current-input-port)) (original-output (current-output-port)) (original-error (current-error-port)) (original-exception-handler (current-exception-handler))) (call-with-output-string (lambda (out) (call-with-input-string "foo" (lambda (in) (parameterize ((current-output-port out) (current-error-port out) (current-input-port in) (current-exception-handler list)) (display "bar") (display "!" (current-error-port)) (assert (equal? (read) 'foo)) (assert (equal? (get-output-string out) "bar!")) (assert (equal? (signal 'baz) '(baz)))))))) (assert (equal? original-input (current-input-port))) (assert (equal? original-output (current-output-port))) (assert (equal? original-error (current-error-port))) (assert (equal? original-exception-handler (current-exception-handler)))) ;; Re-entering dynamic extent of a parameterize should not reset to ;; original outer values but remember values when jumping out (another ;; regression due to #1227, pointed out by Joo ChurlSoo in #1336). (let ((f (make-parameter 'a)) (path '()) (g (make-parameter 'g)) (c #f)) (let ((add (lambda () (set! path (cons (f) path))))) (add) (parameterize ((f 'b) (g (call-with-current-continuation (lambda (c0) (set! c c0) 'c)))) (add) (f (g)) (add)) (f 'd) (add) (if (< (length path) 8) (c 'e) (assert (equal? '(a b c d b e d b e d) (reverse path)))))) (let ((f (make-parameter 'a)) (path '()) (g (make-parameter 'g)) (c #f)) (let ((add (lambda () (set! path (cons (f) path))))) (add) (parameterize ((f 'b)) (g (call-with-current-continuation (lambda (c0) (set! c c0) 'c))) (add) (f (g)) (add)) (f 'd) (add) (if (< (length path) 8) (c 'e) (assert (equal? '(a b c d c e d e e d) (reverse path)))))) ;;; vector and blob limits (assert-fail (make-blob -1)) (assert-fail (make-vector -1)) ;;; Resizing of vectors works to both sides (let ((original (vector 1 2 3 4 5 6))) (assert (equal? (vector-resize original 6 -1) original)) (assert (not (eq? (vector-resize original 6 -1) original)))) (let ((original (vector 1 2 3 4 5 6)) (smaller (vector 1 2 3))) (assert (equal? (vector-resize original 3 -1) smaller))) (let ((original (vector 1 2 3)) (larger (vector 1 2 3 -1 -1 -1))) (assert (equal? (vector-resize original 6 -1) larger))) ;;; eval return values (assert (= 1 (eval 1))) (assert (eq? '() (receive (eval '(values))))) (assert (equal? '(1 2 3) (receive (eval '(values 1 2 3))))) ;;; message checks for invalid strings (assert-fail (##sys#message "123\x00456")) ;;; vector procedures (assert (equal? '#(2 3) (subvector '#(1 2 3) 1))) (assert (equal? '#(2) (subvector '#(1 2 3) 1 2))) (assert (equal? '#() (subvector '#(1 2 3) 1 1))) (assert (equal? '#() (subvector '#(1 2 3) 3))) (assert-fail (subvector '#(1 2 3) 4)) (assert-fail (subvector '#(1 2 3) 3 4)) ;;; alist accessors (assert (equal? '(foo) (assq 'foo '((foo))))) (assert (not (assq 'foo '()))) (assert-fail (assq 'foo '(bar))) (assert-fail (assq 'foo 'bar)) (assert (equal? '(foo) (assv 'foo '((foo))))) (assert (not (assv 'foo '()))) (assert-fail (assv 'foo '(bar))) (assert-fail (assv 'foo 'bar)) (assert (equal? '("foo") (assoc "foo" '(("foo"))))) (assert (not (assoc "foo" '()))) (assert-fail (assoc "foo" '("bar"))) (assert-fail (assoc "foo" "bar")) ;;; list membership (assert (equal? '(foo) (memq 'foo '(bar foo)))) (assert (not (memq 'foo '(bar)))) (assert (not (memq 'foo '()))) (assert-fail (memq 'foo 'foo)) (assert (equal? '(foo) (memv 'foo '(bar foo)))) (assert (not (memv 'foo '(bar)))) (assert (not (memv 'foo '()))) (assert-fail (memv 'foo 'foo)) (assert (equal? '("foo") (member "foo" '("bar" "foo")))) (assert (not (member "foo" '("bar")))) (assert (not (member "foo" '()))) (assert-fail (member "foo" "foo")) ;; length (assert-fail (length 1)) (assert-fail (length '(x . y))) �������������chicken-5.1.0/tests/arithmetic-test.32.expected�����������������������������������������������������0000644�0001750�0001750�00004457262�13370655400�021174� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������((1 . 5625) (+ -2 -2) -> -4) ((2 . 5625) (+ -2 -1) -> -3) ((3 . 5625) (+ -2 0) -> -2) ((4 . 5625) (+ -2 1) -> -1) ((5 . 5625) (+ -2 2) -> 0) ((6 . 5625) (+ -1 -2) -> -3) ((7 . 5625) (+ -1 -1) -> -2) ((8 . 5625) (+ -1 0) -> -1) ((9 . 5625) (+ -1 1) -> 0) ((10 . 5625) (+ -1 2) -> 1) ((11 . 5625) (+ 0 -2) -> -2) ((12 . 5625) (+ 0 -1) -> -1) ((13 . 5625) (+ 0 0) -> 0) ((14 . 5625) (+ 0 1) -> 1) ((15 . 5625) (+ 0 2) -> 2) ((16 . 5625) (+ 1 -2) -> -1) ((17 . 5625) (+ 1 -1) -> 0) ((18 . 5625) (+ 1 0) -> 1) ((19 . 5625) (+ 1 1) -> 2) ((20 . 5625) (+ 1 2) -> 3) ((21 . 5625) (+ 2 -2) -> 0) ((22 . 5625) (+ 2 -1) -> 1) ((23 . 5625) (+ 2 0) -> 2) ((24 . 5625) (+ 2 1) -> 3) ((25 . 5625) (+ 2 2) -> 4) ((26 . 5625) (+ -2 -1) -> -3) ((27 . 5625) (+ -2 0) -> -2) ((28 . 5625) (+ -2 1) -> -1) ((29 . 5625) (+ -2 2) -> 0) ((30 . 5625) (+ -2 3) -> 1) ((31 . 5625) (+ -1 -1) -> -2) ((32 . 5625) (+ -1 0) -> -1) ((33 . 5625) (+ -1 1) -> 0) ((34 . 5625) (+ -1 2) -> 1) ((35 . 5625) (+ -1 3) -> 2) ((36 . 5625) (+ 0 -1) -> -1) ((37 . 5625) (+ 0 0) -> 0) ((38 . 5625) (+ 0 1) -> 1) ((39 . 5625) (+ 0 2) -> 2) ((40 . 5625) (+ 0 3) -> 3) ((41 . 5625) (+ 1 -1) -> 0) ((42 . 5625) (+ 1 0) -> 1) ((43 . 5625) (+ 1 1) -> 2) ((44 . 5625) (+ 1 2) -> 3) ((45 . 5625) (+ 1 3) -> 4) ((46 . 5625) (+ 2 -1) -> 1) ((47 . 5625) (+ 2 0) -> 2) ((48 . 5625) (+ 2 1) -> 3) ((49 . 5625) (+ 2 2) -> 4) ((50 . 5625) (+ 2 3) -> 5) ((51 . 5625) (+ -2 -3) -> -5) ((52 . 5625) (+ -2 -2) -> -4) ((53 . 5625) (+ -2 -1) -> -3) ((54 . 5625) (+ -2 0) -> -2) ((55 . 5625) (+ -2 1) -> -1) ((56 . 5625) (+ -1 -3) -> -4) ((57 . 5625) (+ -1 -2) -> -3) ((58 . 5625) (+ -1 -1) -> -2) ((59 . 5625) (+ -1 0) -> -1) ((60 . 5625) (+ -1 1) -> 0) ((61 . 5625) (+ 0 -3) -> -3) ((62 . 5625) (+ 0 -2) -> -2) ((63 . 5625) (+ 0 -1) -> -1) ((64 . 5625) (+ 0 0) -> 0) ((65 . 5625) (+ 0 1) -> 1) ((66 . 5625) (+ 1 -3) -> -2) ((67 . 5625) (+ 1 -2) -> -1) ((68 . 5625) (+ 1 -1) -> 0) ((69 . 5625) (+ 1 0) -> 1) ((70 . 5625) (+ 1 1) -> 2) ((71 . 5625) (+ 2 -3) -> -1) ((72 . 5625) (+ 2 -2) -> 0) ((73 . 5625) (+ 2 -1) -> 1) ((74 . 5625) (+ 2 0) -> 2) ((75 . 5625) (+ 2 1) -> 3) ((76 . 5625) (+ -2 0) -> -2) ((77 . 5625) (+ -2 1) -> -1) ((78 . 5625) (+ -2 2) -> 0) ((79 . 5625) (+ -2 3) -> 1) ((80 . 5625) (+ -2 4) -> 2) ((81 . 5625) (+ -1 0) -> -1) ((82 . 5625) (+ -1 1) -> 0) ((83 . 5625) (+ -1 2) -> 1) ((84 . 5625) (+ -1 3) -> 2) ((85 . 5625) (+ -1 4) -> 3) ((86 . 5625) (+ 0 0) -> 0) ((87 . 5625) (+ 0 1) -> 1) ((88 . 5625) (+ 0 2) -> 2) ((89 . 5625) (+ 0 3) -> 3) ((90 . 5625) (+ 0 4) -> 4) ((91 . 5625) (+ 1 0) -> 1) ((92 . 5625) (+ 1 1) -> 2) ((93 . 5625) (+ 1 2) -> 3) ((94 . 5625) (+ 1 3) -> 4) ((95 . 5625) (+ 1 4) -> 5) ((96 . 5625) (+ 2 0) -> 2) ((97 . 5625) (+ 2 1) -> 3) ((98 . 5625) (+ 2 2) -> 4) ((99 . 5625) (+ 2 3) -> 5) ((100 . 5625) (+ 2 4) -> 6) ((101 . 5625) (+ -2 -4) -> -6) ((102 . 5625) (+ -2 -3) -> -5) ((103 . 5625) (+ -2 -2) -> -4) ((104 . 5625) (+ -2 -1) -> -3) ((105 . 5625) (+ -2 0) -> -2) ((106 . 5625) (+ -1 -4) -> -5) ((107 . 5625) (+ -1 -3) -> -4) ((108 . 5625) (+ -1 -2) -> -3) ((109 . 5625) (+ -1 -1) -> -2) ((110 . 5625) (+ -1 0) -> -1) ((111 . 5625) (+ 0 -4) -> -4) ((112 . 5625) (+ 0 -3) -> -3) ((113 . 5625) (+ 0 -2) -> -2) ((114 . 5625) (+ 0 -1) -> -1) ((115 . 5625) (+ 0 0) -> 0) ((116 . 5625) (+ 1 -4) -> -3) ((117 . 5625) (+ 1 -3) -> -2) ((118 . 5625) (+ 1 -2) -> -1) ((119 . 5625) (+ 1 -1) -> 0) ((120 . 5625) (+ 1 0) -> 1) ((121 . 5625) (+ 2 -4) -> -2) ((122 . 5625) (+ 2 -3) -> -1) ((123 . 5625) (+ 2 -2) -> 0) ((124 . 5625) (+ 2 -1) -> 1) ((125 . 5625) (+ 2 0) -> 2) ((126 . 5625) (+ -2 1073741821) -> 1073741819) ((127 . 5625) (+ -2 1073741822) -> 1073741820) ((128 . 5625) (+ -2 1073741823) -> 1073741821) ((129 . 5625) (+ -2 1073741824) -> 1073741822) ((130 . 5625) (+ -2 1073741825) -> 1073741823) ((131 . 5625) (+ -1 1073741821) -> 1073741820) ((132 . 5625) (+ -1 1073741822) -> 1073741821) ((133 . 5625) (+ -1 1073741823) -> 1073741822) ((134 . 5625) (+ -1 1073741824) -> 1073741823) ((135 . 5625) (+ -1 1073741825) -> 1073741824) ((136 . 5625) (+ 0 1073741821) -> 1073741821) ((137 . 5625) (+ 0 1073741822) -> 1073741822) ((138 . 5625) (+ 0 1073741823) -> 1073741823) ((139 . 5625) (+ 0 1073741824) -> 1073741824) ((140 . 5625) (+ 0 1073741825) -> 1073741825) ((141 . 5625) (+ 1 1073741821) -> 1073741822) ((142 . 5625) (+ 1 1073741822) -> 1073741823) ((143 . 5625) (+ 1 1073741823) -> 1073741824) ((144 . 5625) (+ 1 1073741824) -> 1073741825) ((145 . 5625) (+ 1 1073741825) -> 1073741826) ((146 . 5625) (+ 2 1073741821) -> 1073741823) ((147 . 5625) (+ 2 1073741822) -> 1073741824) ((148 . 5625) (+ 2 1073741823) -> 1073741825) ((149 . 5625) (+ 2 1073741824) -> 1073741826) ((150 . 5625) (+ 2 1073741825) -> 1073741827) ((151 . 5625) (+ -2 -1073741826) -> -1073741828) ((152 . 5625) (+ -2 -1073741825) -> -1073741827) ((153 . 5625) (+ -2 -1073741824) -> -1073741826) ((154 . 5625) (+ -2 -1073741823) -> -1073741825) ((155 . 5625) (+ -2 -1073741822) -> -1073741824) ((156 . 5625) (+ -1 -1073741826) -> -1073741827) ((157 . 5625) (+ -1 -1073741825) -> -1073741826) ((158 . 5625) (+ -1 -1073741824) -> -1073741825) ((159 . 5625) (+ -1 -1073741823) -> -1073741824) ((160 . 5625) (+ -1 -1073741822) -> -1073741823) ((161 . 5625) (+ 0 -1073741826) -> -1073741826) ((162 . 5625) (+ 0 -1073741825) -> -1073741825) ((163 . 5625) (+ 0 -1073741824) -> -1073741824) ((164 . 5625) (+ 0 -1073741823) -> -1073741823) ((165 . 5625) (+ 0 -1073741822) -> -1073741822) ((166 . 5625) (+ 1 -1073741826) -> -1073741825) ((167 . 5625) (+ 1 -1073741825) -> -1073741824) ((168 . 5625) (+ 1 -1073741824) -> -1073741823) ((169 . 5625) (+ 1 -1073741823) -> -1073741822) ((170 . 5625) (+ 1 -1073741822) -> -1073741821) ((171 . 5625) (+ 2 -1073741826) -> -1073741824) ((172 . 5625) (+ 2 -1073741825) -> -1073741823) ((173 . 5625) (+ 2 -1073741824) -> -1073741822) ((174 . 5625) (+ 2 -1073741823) -> -1073741821) ((175 . 5625) (+ 2 -1073741822) -> -1073741820) ((176 . 5625) (+ -2 1073741822) -> 1073741820) ((177 . 5625) (+ -2 1073741823) -> 1073741821) ((178 . 5625) (+ -2 1073741824) -> 1073741822) ((179 . 5625) (+ -2 1073741825) -> 1073741823) ((180 . 5625) (+ -2 1073741826) -> 1073741824) ((181 . 5625) (+ -1 1073741822) -> 1073741821) ((182 . 5625) (+ -1 1073741823) -> 1073741822) ((183 . 5625) (+ -1 1073741824) -> 1073741823) ((184 . 5625) (+ -1 1073741825) -> 1073741824) ((185 . 5625) (+ -1 1073741826) -> 1073741825) ((186 . 5625) (+ 0 1073741822) -> 1073741822) ((187 . 5625) (+ 0 1073741823) -> 1073741823) ((188 . 5625) (+ 0 1073741824) -> 1073741824) ((189 . 5625) (+ 0 1073741825) -> 1073741825) ((190 . 5625) (+ 0 1073741826) -> 1073741826) ((191 . 5625) (+ 1 1073741822) -> 1073741823) ((192 . 5625) (+ 1 1073741823) -> 1073741824) ((193 . 5625) (+ 1 1073741824) -> 1073741825) ((194 . 5625) (+ 1 1073741825) -> 1073741826) ((195 . 5625) (+ 1 1073741826) -> 1073741827) ((196 . 5625) (+ 2 1073741822) -> 1073741824) ((197 . 5625) (+ 2 1073741823) -> 1073741825) ((198 . 5625) (+ 2 1073741824) -> 1073741826) ((199 . 5625) (+ 2 1073741825) -> 1073741827) ((200 . 5625) (+ 2 1073741826) -> 1073741828) ((201 . 5625) (+ -2 -1073741827) -> -1073741829) ((202 . 5625) (+ -2 -1073741826) -> -1073741828) ((203 . 5625) (+ -2 -1073741825) -> -1073741827) ((204 . 5625) (+ -2 -1073741824) -> -1073741826) ((205 . 5625) (+ -2 -1073741823) -> -1073741825) ((206 . 5625) (+ -1 -1073741827) -> -1073741828) ((207 . 5625) (+ -1 -1073741826) -> -1073741827) ((208 . 5625) (+ -1 -1073741825) -> -1073741826) ((209 . 5625) (+ -1 -1073741824) -> -1073741825) ((210 . 5625) (+ -1 -1073741823) -> -1073741824) ((211 . 5625) (+ 0 -1073741827) -> -1073741827) ((212 . 5625) (+ 0 -1073741826) -> -1073741826) ((213 . 5625) (+ 0 -1073741825) -> -1073741825) ((214 . 5625) (+ 0 -1073741824) -> -1073741824) ((215 . 5625) (+ 0 -1073741823) -> -1073741823) ((216 . 5625) (+ 1 -1073741827) -> -1073741826) ((217 . 5625) (+ 1 -1073741826) -> -1073741825) ((218 . 5625) (+ 1 -1073741825) -> -1073741824) ((219 . 5625) (+ 1 -1073741824) -> -1073741823) ((220 . 5625) (+ 1 -1073741823) -> -1073741822) ((221 . 5625) (+ 2 -1073741827) -> -1073741825) ((222 . 5625) (+ 2 -1073741826) -> -1073741824) ((223 . 5625) (+ 2 -1073741825) -> -1073741823) ((224 . 5625) (+ 2 -1073741824) -> -1073741822) ((225 . 5625) (+ 2 -1073741823) -> -1073741821) ((226 . 5625) (+ -2 1103515243) -> 1103515241) ((227 . 5625) (+ -2 1103515244) -> 1103515242) ((228 . 5625) (+ -2 1103515245) -> 1103515243) ((229 . 5625) (+ -2 1103515246) -> 1103515244) ((230 . 5625) (+ -2 1103515247) -> 1103515245) ((231 . 5625) (+ -1 1103515243) -> 1103515242) ((232 . 5625) (+ -1 1103515244) -> 1103515243) ((233 . 5625) (+ -1 1103515245) -> 1103515244) ((234 . 5625) (+ -1 1103515246) -> 1103515245) ((235 . 5625) (+ -1 1103515247) -> 1103515246) ((236 . 5625) (+ 0 1103515243) -> 1103515243) ((237 . 5625) (+ 0 1103515244) -> 1103515244) ((238 . 5625) (+ 0 1103515245) -> 1103515245) ((239 . 5625) (+ 0 1103515246) -> 1103515246) ((240 . 5625) (+ 0 1103515247) -> 1103515247) ((241 . 5625) (+ 1 1103515243) -> 1103515244) ((242 . 5625) (+ 1 1103515244) -> 1103515245) ((243 . 5625) (+ 1 1103515245) -> 1103515246) ((244 . 5625) (+ 1 1103515246) -> 1103515247) ((245 . 5625) (+ 1 1103515247) -> 1103515248) ((246 . 5625) (+ 2 1103515243) -> 1103515245) ((247 . 5625) (+ 2 1103515244) -> 1103515246) ((248 . 5625) (+ 2 1103515245) -> 1103515247) ((249 . 5625) (+ 2 1103515246) -> 1103515248) ((250 . 5625) (+ 2 1103515247) -> 1103515249) ((251 . 5625) (+ -2 631629063) -> 631629061) ((252 . 5625) (+ -2 631629064) -> 631629062) ((253 . 5625) (+ -2 631629065) -> 631629063) ((254 . 5625) (+ -2 631629066) -> 631629064) ((255 . 5625) (+ -2 631629067) -> 631629065) ((256 . 5625) (+ -1 631629063) -> 631629062) ((257 . 5625) (+ -1 631629064) -> 631629063) ((258 . 5625) (+ -1 631629065) -> 631629064) ((259 . 5625) (+ -1 631629066) -> 631629065) ((260 . 5625) (+ -1 631629067) -> 631629066) ((261 . 5625) (+ 0 631629063) -> 631629063) ((262 . 5625) (+ 0 631629064) -> 631629064) ((263 . 5625) (+ 0 631629065) -> 631629065) ((264 . 5625) (+ 0 631629066) -> 631629066) ((265 . 5625) (+ 0 631629067) -> 631629067) ((266 . 5625) (+ 1 631629063) -> 631629064) ((267 . 5625) (+ 1 631629064) -> 631629065) ((268 . 5625) (+ 1 631629065) -> 631629066) ((269 . 5625) (+ 1 631629066) -> 631629067) ((270 . 5625) (+ 1 631629067) -> 631629068) ((271 . 5625) (+ 2 631629063) -> 631629065) ((272 . 5625) (+ 2 631629064) -> 631629066) ((273 . 5625) (+ 2 631629065) -> 631629067) ((274 . 5625) (+ 2 631629066) -> 631629068) ((275 . 5625) (+ 2 631629067) -> 631629069) ((276 . 5625) (+ -2 9007199254740990) -> 9007199254740988) ((277 . 5625) (+ -2 9007199254740991) -> 9007199254740989) ((278 . 5625) (+ -2 9007199254740992) -> 9007199254740990) ((279 . 5625) (+ -2 9007199254740993) -> 9007199254740991) ((280 . 5625) (+ -2 9007199254740994) -> 9007199254740992) ((281 . 5625) (+ -1 9007199254740990) -> 9007199254740989) ((282 . 5625) (+ -1 9007199254740991) -> 9007199254740990) ((283 . 5625) (+ -1 9007199254740992) -> 9007199254740991) ((284 . 5625) (+ -1 9007199254740993) -> 9007199254740992) ((285 . 5625) (+ -1 9007199254740994) -> 9007199254740993) ((286 . 5625) (+ 0 9007199254740990) -> 9007199254740990) ((287 . 5625) (+ 0 9007199254740991) -> 9007199254740991) ((288 . 5625) (+ 0 9007199254740992) -> 9007199254740992) ((289 . 5625) (+ 0 9007199254740993) -> 9007199254740993) ((290 . 5625) (+ 0 9007199254740994) -> 9007199254740994) ((291 . 5625) (+ 1 9007199254740990) -> 9007199254740991) ((292 . 5625) (+ 1 9007199254740991) -> 9007199254740992) ((293 . 5625) (+ 1 9007199254740992) -> 9007199254740993) ((294 . 5625) (+ 1 9007199254740993) -> 9007199254740994) ((295 . 5625) (+ 1 9007199254740994) -> 9007199254740995) ((296 . 5625) (+ 2 9007199254740990) -> 9007199254740992) ((297 . 5625) (+ 2 9007199254740991) -> 9007199254740993) ((298 . 5625) (+ 2 9007199254740992) -> 9007199254740994) ((299 . 5625) (+ 2 9007199254740993) -> 9007199254740995) ((300 . 5625) (+ 2 9007199254740994) -> 9007199254740996) ((301 . 5625) (+ -2 -9007199254740994) -> -9007199254740996) ((302 . 5625) (+ -2 -9007199254740993) -> -9007199254740995) ((303 . 5625) (+ -2 -9007199254740992) -> -9007199254740994) ((304 . 5625) (+ -2 -9007199254740991) -> -9007199254740993) ((305 . 5625) (+ -2 -9007199254740990) -> -9007199254740992) ((306 . 5625) (+ -1 -9007199254740994) -> -9007199254740995) ((307 . 5625) (+ -1 -9007199254740993) -> -9007199254740994) ((308 . 5625) (+ -1 -9007199254740992) -> -9007199254740993) ((309 . 5625) (+ -1 -9007199254740991) -> -9007199254740992) ((310 . 5625) (+ -1 -9007199254740990) -> -9007199254740991) ((311 . 5625) (+ 0 -9007199254740994) -> -9007199254740994) ((312 . 5625) (+ 0 -9007199254740993) -> -9007199254740993) ((313 . 5625) (+ 0 -9007199254740992) -> -9007199254740992) ((314 . 5625) (+ 0 -9007199254740991) -> -9007199254740991) ((315 . 5625) (+ 0 -9007199254740990) -> -9007199254740990) ((316 . 5625) (+ 1 -9007199254740994) -> -9007199254740993) ((317 . 5625) (+ 1 -9007199254740993) -> -9007199254740992) ((318 . 5625) (+ 1 -9007199254740992) -> -9007199254740991) ((319 . 5625) (+ 1 -9007199254740991) -> -9007199254740990) ((320 . 5625) (+ 1 -9007199254740990) -> -9007199254740989) ((321 . 5625) (+ 2 -9007199254740994) -> -9007199254740992) ((322 . 5625) (+ 2 -9007199254740993) -> -9007199254740991) ((323 . 5625) (+ 2 -9007199254740992) -> -9007199254740990) ((324 . 5625) (+ 2 -9007199254740991) -> -9007199254740989) ((325 . 5625) (+ 2 -9007199254740990) -> -9007199254740988) ((326 . 5625) (+ -2 12343) -> 12341) ((327 . 5625) (+ -2 12344) -> 12342) ((328 . 5625) (+ -2 12345) -> 12343) ((329 . 5625) (+ -2 12346) -> 12344) ((330 . 5625) (+ -2 12347) -> 12345) ((331 . 5625) (+ -1 12343) -> 12342) ((332 . 5625) (+ -1 12344) -> 12343) ((333 . 5625) (+ -1 12345) -> 12344) ((334 . 5625) (+ -1 12346) -> 12345) ((335 . 5625) (+ -1 12347) -> 12346) ((336 . 5625) (+ 0 12343) -> 12343) ((337 . 5625) (+ 0 12344) -> 12344) ((338 . 5625) (+ 0 12345) -> 12345) ((339 . 5625) (+ 0 12346) -> 12346) ((340 . 5625) (+ 0 12347) -> 12347) ((341 . 5625) (+ 1 12343) -> 12344) ((342 . 5625) (+ 1 12344) -> 12345) ((343 . 5625) (+ 1 12345) -> 12346) ((344 . 5625) (+ 1 12346) -> 12347) ((345 . 5625) (+ 1 12347) -> 12348) ((346 . 5625) (+ 2 12343) -> 12345) ((347 . 5625) (+ 2 12344) -> 12346) ((348 . 5625) (+ 2 12345) -> 12347) ((349 . 5625) (+ 2 12346) -> 12348) ((350 . 5625) (+ 2 12347) -> 12349) ((351 . 5625) (+ -2 4294967294) -> 4294967292) ((352 . 5625) (+ -2 4294967295) -> 4294967293) ((353 . 5625) (+ -2 4294967296) -> 4294967294) ((354 . 5625) (+ -2 4294967297) -> 4294967295) ((355 . 5625) (+ -2 4294967298) -> 4294967296) ((356 . 5625) (+ -1 4294967294) -> 4294967293) ((357 . 5625) (+ -1 4294967295) -> 4294967294) ((358 . 5625) (+ -1 4294967296) -> 4294967295) ((359 . 5625) (+ -1 4294967297) -> 4294967296) ((360 . 5625) (+ -1 4294967298) -> 4294967297) ((361 . 5625) (+ 0 4294967294) -> 4294967294) ((362 . 5625) (+ 0 4294967295) -> 4294967295) ((363 . 5625) (+ 0 4294967296) -> 4294967296) ((364 . 5625) (+ 0 4294967297) -> 4294967297) ((365 . 5625) (+ 0 4294967298) -> 4294967298) ((366 . 5625) (+ 1 4294967294) -> 4294967295) ((367 . 5625) (+ 1 4294967295) -> 4294967296) ((368 . 5625) (+ 1 4294967296) -> 4294967297) ((369 . 5625) (+ 1 4294967297) -> 4294967298) ((370 . 5625) (+ 1 4294967298) -> 4294967299) ((371 . 5625) (+ 2 4294967294) -> 4294967296) ((372 . 5625) (+ 2 4294967295) -> 4294967297) ((373 . 5625) (+ 2 4294967296) -> 4294967298) ((374 . 5625) (+ 2 4294967297) -> 4294967299) ((375 . 5625) (+ 2 4294967298) -> 4294967300) ((376 . 5625) (+ -1 -2) -> -3) ((377 . 5625) (+ -1 -1) -> -2) ((378 . 5625) (+ -1 0) -> -1) ((379 . 5625) (+ -1 1) -> 0) ((380 . 5625) (+ -1 2) -> 1) ((381 . 5625) (+ 0 -2) -> -2) ((382 . 5625) (+ 0 -1) -> -1) ((383 . 5625) (+ 0 0) -> 0) ((384 . 5625) (+ 0 1) -> 1) ((385 . 5625) (+ 0 2) -> 2) ((386 . 5625) (+ 1 -2) -> -1) ((387 . 5625) (+ 1 -1) -> 0) ((388 . 5625) (+ 1 0) -> 1) ((389 . 5625) (+ 1 1) -> 2) ((390 . 5625) (+ 1 2) -> 3) ((391 . 5625) (+ 2 -2) -> 0) ((392 . 5625) (+ 2 -1) -> 1) ((393 . 5625) (+ 2 0) -> 2) ((394 . 5625) (+ 2 1) -> 3) ((395 . 5625) (+ 2 2) -> 4) ((396 . 5625) (+ 3 -2) -> 1) ((397 . 5625) (+ 3 -1) -> 2) ((398 . 5625) (+ 3 0) -> 3) ((399 . 5625) (+ 3 1) -> 4) ((400 . 5625) (+ 3 2) -> 5) ((401 . 5625) (+ -1 -1) -> -2) ((402 . 5625) (+ -1 0) -> -1) ((403 . 5625) (+ -1 1) -> 0) ((404 . 5625) (+ -1 2) -> 1) ((405 . 5625) (+ -1 3) -> 2) ((406 . 5625) (+ 0 -1) -> -1) ((407 . 5625) (+ 0 0) -> 0) ((408 . 5625) (+ 0 1) -> 1) ((409 . 5625) (+ 0 2) -> 2) ((410 . 5625) (+ 0 3) -> 3) ((411 . 5625) (+ 1 -1) -> 0) ((412 . 5625) (+ 1 0) -> 1) ((413 . 5625) (+ 1 1) -> 2) ((414 . 5625) (+ 1 2) -> 3) ((415 . 5625) (+ 1 3) -> 4) ((416 . 5625) (+ 2 -1) -> 1) ((417 . 5625) (+ 2 0) -> 2) ((418 . 5625) (+ 2 1) -> 3) ((419 . 5625) (+ 2 2) -> 4) ((420 . 5625) (+ 2 3) -> 5) ((421 . 5625) (+ 3 -1) -> 2) ((422 . 5625) (+ 3 0) -> 3) ((423 . 5625) (+ 3 1) -> 4) ((424 . 5625) (+ 3 2) -> 5) ((425 . 5625) (+ 3 3) -> 6) ((426 . 5625) (+ -1 -3) -> -4) ((427 . 5625) (+ -1 -2) -> -3) ((428 . 5625) (+ -1 -1) -> -2) ((429 . 5625) (+ -1 0) -> -1) ((430 . 5625) (+ -1 1) -> 0) ((431 . 5625) (+ 0 -3) -> -3) ((432 . 5625) (+ 0 -2) -> -2) ((433 . 5625) (+ 0 -1) -> -1) ((434 . 5625) (+ 0 0) -> 0) ((435 . 5625) (+ 0 1) -> 1) ((436 . 5625) (+ 1 -3) -> -2) ((437 . 5625) (+ 1 -2) -> -1) ((438 . 5625) (+ 1 -1) -> 0) ((439 . 5625) (+ 1 0) -> 1) ((440 . 5625) (+ 1 1) -> 2) ((441 . 5625) (+ 2 -3) -> -1) ((442 . 5625) (+ 2 -2) -> 0) ((443 . 5625) (+ 2 -1) -> 1) ((444 . 5625) (+ 2 0) -> 2) ((445 . 5625) (+ 2 1) -> 3) ((446 . 5625) (+ 3 -3) -> 0) ((447 . 5625) (+ 3 -2) -> 1) ((448 . 5625) (+ 3 -1) -> 2) ((449 . 5625) (+ 3 0) -> 3) ((450 . 5625) (+ 3 1) -> 4) ((451 . 5625) (+ -1 0) -> -1) ((452 . 5625) (+ -1 1) -> 0) ((453 . 5625) (+ -1 2) -> 1) ((454 . 5625) (+ -1 3) -> 2) ((455 . 5625) (+ -1 4) -> 3) ((456 . 5625) (+ 0 0) -> 0) ((457 . 5625) (+ 0 1) -> 1) ((458 . 5625) (+ 0 2) -> 2) ((459 . 5625) (+ 0 3) -> 3) ((460 . 5625) (+ 0 4) -> 4) ((461 . 5625) (+ 1 0) -> 1) ((462 . 5625) (+ 1 1) -> 2) ((463 . 5625) (+ 1 2) -> 3) ((464 . 5625) (+ 1 3) -> 4) ((465 . 5625) (+ 1 4) -> 5) ((466 . 5625) (+ 2 0) -> 2) ((467 . 5625) (+ 2 1) -> 3) ((468 . 5625) (+ 2 2) -> 4) ((469 . 5625) (+ 2 3) -> 5) ((470 . 5625) (+ 2 4) -> 6) ((471 . 5625) (+ 3 0) -> 3) ((472 . 5625) (+ 3 1) -> 4) ((473 . 5625) (+ 3 2) -> 5) ((474 . 5625) (+ 3 3) -> 6) ((475 . 5625) (+ 3 4) -> 7) ((476 . 5625) (+ -1 -4) -> -5) ((477 . 5625) (+ -1 -3) -> -4) ((478 . 5625) (+ -1 -2) -> -3) ((479 . 5625) (+ -1 -1) -> -2) ((480 . 5625) (+ -1 0) -> -1) ((481 . 5625) (+ 0 -4) -> -4) ((482 . 5625) (+ 0 -3) -> -3) ((483 . 5625) (+ 0 -2) -> -2) ((484 . 5625) (+ 0 -1) -> -1) ((485 . 5625) (+ 0 0) -> 0) ((486 . 5625) (+ 1 -4) -> -3) ((487 . 5625) (+ 1 -3) -> -2) ((488 . 5625) (+ 1 -2) -> -1) ((489 . 5625) (+ 1 -1) -> 0) ((490 . 5625) (+ 1 0) -> 1) ((491 . 5625) (+ 2 -4) -> -2) ((492 . 5625) (+ 2 -3) -> -1) ((493 . 5625) (+ 2 -2) -> 0) ((494 . 5625) (+ 2 -1) -> 1) ((495 . 5625) (+ 2 0) -> 2) ((496 . 5625) (+ 3 -4) -> -1) ((497 . 5625) (+ 3 -3) -> 0) ((498 . 5625) (+ 3 -2) -> 1) ((499 . 5625) (+ 3 -1) -> 2) ((500 . 5625) (+ 3 0) -> 3) ((501 . 5625) (+ -1 1073741821) -> 1073741820) ((502 . 5625) (+ -1 1073741822) -> 1073741821) ((503 . 5625) (+ -1 1073741823) -> 1073741822) ((504 . 5625) (+ -1 1073741824) -> 1073741823) ((505 . 5625) (+ -1 1073741825) -> 1073741824) ((506 . 5625) (+ 0 1073741821) -> 1073741821) ((507 . 5625) (+ 0 1073741822) -> 1073741822) ((508 . 5625) (+ 0 1073741823) -> 1073741823) ((509 . 5625) (+ 0 1073741824) -> 1073741824) ((510 . 5625) (+ 0 1073741825) -> 1073741825) ((511 . 5625) (+ 1 1073741821) -> 1073741822) ((512 . 5625) (+ 1 1073741822) -> 1073741823) ((513 . 5625) (+ 1 1073741823) -> 1073741824) ((514 . 5625) (+ 1 1073741824) -> 1073741825) ((515 . 5625) (+ 1 1073741825) -> 1073741826) ((516 . 5625) (+ 2 1073741821) -> 1073741823) ((517 . 5625) (+ 2 1073741822) -> 1073741824) ((518 . 5625) (+ 2 1073741823) -> 1073741825) ((519 . 5625) (+ 2 1073741824) -> 1073741826) ((520 . 5625) (+ 2 1073741825) -> 1073741827) ((521 . 5625) (+ 3 1073741821) -> 1073741824) ((522 . 5625) (+ 3 1073741822) -> 1073741825) ((523 . 5625) (+ 3 1073741823) -> 1073741826) ((524 . 5625) (+ 3 1073741824) -> 1073741827) ((525 . 5625) (+ 3 1073741825) -> 1073741828) ((526 . 5625) (+ -1 -1073741826) -> -1073741827) ((527 . 5625) (+ -1 -1073741825) -> -1073741826) ((528 . 5625) (+ -1 -1073741824) -> -1073741825) ((529 . 5625) (+ -1 -1073741823) -> -1073741824) ((530 . 5625) (+ -1 -1073741822) -> -1073741823) ((531 . 5625) (+ 0 -1073741826) -> -1073741826) ((532 . 5625) (+ 0 -1073741825) -> -1073741825) ((533 . 5625) (+ 0 -1073741824) -> -1073741824) ((534 . 5625) (+ 0 -1073741823) -> -1073741823) ((535 . 5625) (+ 0 -1073741822) -> -1073741822) ((536 . 5625) (+ 1 -1073741826) -> -1073741825) ((537 . 5625) (+ 1 -1073741825) -> -1073741824) ((538 . 5625) (+ 1 -1073741824) -> -1073741823) ((539 . 5625) (+ 1 -1073741823) -> -1073741822) ((540 . 5625) (+ 1 -1073741822) -> -1073741821) ((541 . 5625) (+ 2 -1073741826) -> -1073741824) ((542 . 5625) (+ 2 -1073741825) -> -1073741823) ((543 . 5625) (+ 2 -1073741824) -> -1073741822) ((544 . 5625) (+ 2 -1073741823) -> -1073741821) ((545 . 5625) (+ 2 -1073741822) -> -1073741820) ((546 . 5625) (+ 3 -1073741826) -> -1073741823) ((547 . 5625) (+ 3 -1073741825) -> -1073741822) ((548 . 5625) (+ 3 -1073741824) -> -1073741821) ((549 . 5625) (+ 3 -1073741823) -> -1073741820) ((550 . 5625) (+ 3 -1073741822) -> -1073741819) ((551 . 5625) (+ -1 1073741822) -> 1073741821) ((552 . 5625) (+ -1 1073741823) -> 1073741822) ((553 . 5625) (+ -1 1073741824) -> 1073741823) ((554 . 5625) (+ -1 1073741825) -> 1073741824) ((555 . 5625) (+ -1 1073741826) -> 1073741825) ((556 . 5625) (+ 0 1073741822) -> 1073741822) ((557 . 5625) (+ 0 1073741823) -> 1073741823) ((558 . 5625) (+ 0 1073741824) -> 1073741824) ((559 . 5625) (+ 0 1073741825) -> 1073741825) ((560 . 5625) (+ 0 1073741826) -> 1073741826) ((561 . 5625) (+ 1 1073741822) -> 1073741823) ((562 . 5625) (+ 1 1073741823) -> 1073741824) ((563 . 5625) (+ 1 1073741824) -> 1073741825) ((564 . 5625) (+ 1 1073741825) -> 1073741826) ((565 . 5625) (+ 1 1073741826) -> 1073741827) ((566 . 5625) (+ 2 1073741822) -> 1073741824) ((567 . 5625) (+ 2 1073741823) -> 1073741825) ((568 . 5625) (+ 2 1073741824) -> 1073741826) ((569 . 5625) (+ 2 1073741825) -> 1073741827) ((570 . 5625) (+ 2 1073741826) -> 1073741828) ((571 . 5625) (+ 3 1073741822) -> 1073741825) ((572 . 5625) (+ 3 1073741823) -> 1073741826) ((573 . 5625) (+ 3 1073741824) -> 1073741827) ((574 . 5625) (+ 3 1073741825) -> 1073741828) ((575 . 5625) (+ 3 1073741826) -> 1073741829) ((576 . 5625) (+ -1 -1073741827) -> -1073741828) ((577 . 5625) (+ -1 -1073741826) -> -1073741827) ((578 . 5625) (+ -1 -1073741825) -> -1073741826) ((579 . 5625) (+ -1 -1073741824) -> -1073741825) ((580 . 5625) (+ -1 -1073741823) -> -1073741824) ((581 . 5625) (+ 0 -1073741827) -> -1073741827) ((582 . 5625) (+ 0 -1073741826) -> -1073741826) ((583 . 5625) (+ 0 -1073741825) -> -1073741825) ((584 . 5625) (+ 0 -1073741824) -> -1073741824) ((585 . 5625) (+ 0 -1073741823) -> -1073741823) ((586 . 5625) (+ 1 -1073741827) -> -1073741826) ((587 . 5625) (+ 1 -1073741826) -> -1073741825) ((588 . 5625) (+ 1 -1073741825) -> -1073741824) ((589 . 5625) (+ 1 -1073741824) -> -1073741823) ((590 . 5625) (+ 1 -1073741823) -> -1073741822) ((591 . 5625) (+ 2 -1073741827) -> -1073741825) ((592 . 5625) (+ 2 -1073741826) -> -1073741824) ((593 . 5625) (+ 2 -1073741825) -> -1073741823) ((594 . 5625) (+ 2 -1073741824) -> -1073741822) ((595 . 5625) (+ 2 -1073741823) -> -1073741821) ((596 . 5625) (+ 3 -1073741827) -> -1073741824) ((597 . 5625) (+ 3 -1073741826) -> -1073741823) ((598 . 5625) (+ 3 -1073741825) -> -1073741822) ((599 . 5625) (+ 3 -1073741824) -> -1073741821) ((600 . 5625) (+ 3 -1073741823) -> -1073741820) ((601 . 5625) (+ -1 1103515243) -> 1103515242) ((602 . 5625) (+ -1 1103515244) -> 1103515243) ((603 . 5625) (+ -1 1103515245) -> 1103515244) ((604 . 5625) (+ -1 1103515246) -> 1103515245) ((605 . 5625) (+ -1 1103515247) -> 1103515246) ((606 . 5625) (+ 0 1103515243) -> 1103515243) ((607 . 5625) (+ 0 1103515244) -> 1103515244) ((608 . 5625) (+ 0 1103515245) -> 1103515245) ((609 . 5625) (+ 0 1103515246) -> 1103515246) ((610 . 5625) (+ 0 1103515247) -> 1103515247) ((611 . 5625) (+ 1 1103515243) -> 1103515244) ((612 . 5625) (+ 1 1103515244) -> 1103515245) ((613 . 5625) (+ 1 1103515245) -> 1103515246) ((614 . 5625) (+ 1 1103515246) -> 1103515247) ((615 . 5625) (+ 1 1103515247) -> 1103515248) ((616 . 5625) (+ 2 1103515243) -> 1103515245) ((617 . 5625) (+ 2 1103515244) -> 1103515246) ((618 . 5625) (+ 2 1103515245) -> 1103515247) ((619 . 5625) (+ 2 1103515246) -> 1103515248) ((620 . 5625) (+ 2 1103515247) -> 1103515249) ((621 . 5625) (+ 3 1103515243) -> 1103515246) ((622 . 5625) (+ 3 1103515244) -> 1103515247) ((623 . 5625) (+ 3 1103515245) -> 1103515248) ((624 . 5625) (+ 3 1103515246) -> 1103515249) ((625 . 5625) (+ 3 1103515247) -> 1103515250) ((626 . 5625) (+ -1 631629063) -> 631629062) ((627 . 5625) (+ -1 631629064) -> 631629063) ((628 . 5625) (+ -1 631629065) -> 631629064) ((629 . 5625) (+ -1 631629066) -> 631629065) ((630 . 5625) (+ -1 631629067) -> 631629066) ((631 . 5625) (+ 0 631629063) -> 631629063) ((632 . 5625) (+ 0 631629064) -> 631629064) ((633 . 5625) (+ 0 631629065) -> 631629065) ((634 . 5625) (+ 0 631629066) -> 631629066) ((635 . 5625) (+ 0 631629067) -> 631629067) ((636 . 5625) (+ 1 631629063) -> 631629064) ((637 . 5625) (+ 1 631629064) -> 631629065) ((638 . 5625) (+ 1 631629065) -> 631629066) ((639 . 5625) (+ 1 631629066) -> 631629067) ((640 . 5625) (+ 1 631629067) -> 631629068) ((641 . 5625) (+ 2 631629063) -> 631629065) ((642 . 5625) (+ 2 631629064) -> 631629066) ((643 . 5625) (+ 2 631629065) -> 631629067) ((644 . 5625) (+ 2 631629066) -> 631629068) ((645 . 5625) (+ 2 631629067) -> 631629069) ((646 . 5625) (+ 3 631629063) -> 631629066) ((647 . 5625) (+ 3 631629064) -> 631629067) ((648 . 5625) (+ 3 631629065) -> 631629068) ((649 . 5625) (+ 3 631629066) -> 631629069) ((650 . 5625) (+ 3 631629067) -> 631629070) ((651 . 5625) (+ -1 9007199254740990) -> 9007199254740989) ((652 . 5625) (+ -1 9007199254740991) -> 9007199254740990) ((653 . 5625) (+ -1 9007199254740992) -> 9007199254740991) ((654 . 5625) (+ -1 9007199254740993) -> 9007199254740992) ((655 . 5625) (+ -1 9007199254740994) -> 9007199254740993) ((656 . 5625) (+ 0 9007199254740990) -> 9007199254740990) ((657 . 5625) (+ 0 9007199254740991) -> 9007199254740991) ((658 . 5625) (+ 0 9007199254740992) -> 9007199254740992) ((659 . 5625) (+ 0 9007199254740993) -> 9007199254740993) ((660 . 5625) (+ 0 9007199254740994) -> 9007199254740994) ((661 . 5625) (+ 1 9007199254740990) -> 9007199254740991) ((662 . 5625) (+ 1 9007199254740991) -> 9007199254740992) ((663 . 5625) (+ 1 9007199254740992) -> 9007199254740993) ((664 . 5625) (+ 1 9007199254740993) -> 9007199254740994) ((665 . 5625) (+ 1 9007199254740994) -> 9007199254740995) ((666 . 5625) (+ 2 9007199254740990) -> 9007199254740992) ((667 . 5625) (+ 2 9007199254740991) -> 9007199254740993) ((668 . 5625) (+ 2 9007199254740992) -> 9007199254740994) ((669 . 5625) (+ 2 9007199254740993) -> 9007199254740995) ((670 . 5625) (+ 2 9007199254740994) -> 9007199254740996) ((671 . 5625) (+ 3 9007199254740990) -> 9007199254740993) ((672 . 5625) (+ 3 9007199254740991) -> 9007199254740994) ((673 . 5625) (+ 3 9007199254740992) -> 9007199254740995) ((674 . 5625) (+ 3 9007199254740993) -> 9007199254740996) ((675 . 5625) (+ 3 9007199254740994) -> 9007199254740997) ((676 . 5625) (+ -1 -9007199254740994) -> -9007199254740995) ((677 . 5625) (+ -1 -9007199254740993) -> -9007199254740994) ((678 . 5625) (+ -1 -9007199254740992) -> -9007199254740993) ((679 . 5625) (+ -1 -9007199254740991) -> -9007199254740992) ((680 . 5625) (+ -1 -9007199254740990) -> -9007199254740991) ((681 . 5625) (+ 0 -9007199254740994) -> -9007199254740994) ((682 . 5625) (+ 0 -9007199254740993) -> -9007199254740993) ((683 . 5625) (+ 0 -9007199254740992) -> -9007199254740992) ((684 . 5625) (+ 0 -9007199254740991) -> -9007199254740991) ((685 . 5625) (+ 0 -9007199254740990) -> -9007199254740990) ((686 . 5625) (+ 1 -9007199254740994) -> -9007199254740993) ((687 . 5625) (+ 1 -9007199254740993) -> -9007199254740992) ((688 . 5625) (+ 1 -9007199254740992) -> -9007199254740991) ((689 . 5625) (+ 1 -9007199254740991) -> -9007199254740990) ((690 . 5625) (+ 1 -9007199254740990) -> -9007199254740989) ((691 . 5625) (+ 2 -9007199254740994) -> -9007199254740992) ((692 . 5625) (+ 2 -9007199254740993) -> -9007199254740991) ((693 . 5625) (+ 2 -9007199254740992) -> -9007199254740990) ((694 . 5625) (+ 2 -9007199254740991) -> -9007199254740989) ((695 . 5625) (+ 2 -9007199254740990) -> -9007199254740988) ((696 . 5625) (+ 3 -9007199254740994) -> -9007199254740991) ((697 . 5625) (+ 3 -9007199254740993) -> -9007199254740990) ((698 . 5625) (+ 3 -9007199254740992) -> -9007199254740989) ((699 . 5625) (+ 3 -9007199254740991) -> -9007199254740988) ((700 . 5625) (+ 3 -9007199254740990) -> -9007199254740987) ((701 . 5625) (+ -1 12343) -> 12342) ((702 . 5625) (+ -1 12344) -> 12343) ((703 . 5625) (+ -1 12345) -> 12344) ((704 . 5625) (+ -1 12346) -> 12345) ((705 . 5625) (+ -1 12347) -> 12346) ((706 . 5625) (+ 0 12343) -> 12343) ((707 . 5625) (+ 0 12344) -> 12344) ((708 . 5625) (+ 0 12345) -> 12345) ((709 . 5625) (+ 0 12346) -> 12346) ((710 . 5625) (+ 0 12347) -> 12347) ((711 . 5625) (+ 1 12343) -> 12344) ((712 . 5625) (+ 1 12344) -> 12345) ((713 . 5625) (+ 1 12345) -> 12346) ((714 . 5625) (+ 1 12346) -> 12347) ((715 . 5625) (+ 1 12347) -> 12348) ((716 . 5625) (+ 2 12343) -> 12345) ((717 . 5625) (+ 2 12344) -> 12346) ((718 . 5625) (+ 2 12345) -> 12347) ((719 . 5625) (+ 2 12346) -> 12348) ((720 . 5625) (+ 2 12347) -> 12349) ((721 . 5625) (+ 3 12343) -> 12346) ((722 . 5625) (+ 3 12344) -> 12347) ((723 . 5625) (+ 3 12345) -> 12348) ((724 . 5625) (+ 3 12346) -> 12349) ((725 . 5625) (+ 3 12347) -> 12350) ((726 . 5625) (+ -1 4294967294) -> 4294967293) ((727 . 5625) (+ -1 4294967295) -> 4294967294) ((728 . 5625) (+ -1 4294967296) -> 4294967295) ((729 . 5625) (+ -1 4294967297) -> 4294967296) ((730 . 5625) (+ -1 4294967298) -> 4294967297) ((731 . 5625) (+ 0 4294967294) -> 4294967294) ((732 . 5625) (+ 0 4294967295) -> 4294967295) ((733 . 5625) (+ 0 4294967296) -> 4294967296) ((734 . 5625) (+ 0 4294967297) -> 4294967297) ((735 . 5625) (+ 0 4294967298) -> 4294967298) ((736 . 5625) (+ 1 4294967294) -> 4294967295) ((737 . 5625) (+ 1 4294967295) -> 4294967296) ((738 . 5625) (+ 1 4294967296) -> 4294967297) ((739 . 5625) (+ 1 4294967297) -> 4294967298) ((740 . 5625) (+ 1 4294967298) -> 4294967299) ((741 . 5625) (+ 2 4294967294) -> 4294967296) ((742 . 5625) (+ 2 4294967295) -> 4294967297) ((743 . 5625) (+ 2 4294967296) -> 4294967298) ((744 . 5625) (+ 2 4294967297) -> 4294967299) ((745 . 5625) (+ 2 4294967298) -> 4294967300) ((746 . 5625) (+ 3 4294967294) -> 4294967297) ((747 . 5625) (+ 3 4294967295) -> 4294967298) ((748 . 5625) (+ 3 4294967296) -> 4294967299) ((749 . 5625) (+ 3 4294967297) -> 4294967300) ((750 . 5625) (+ 3 4294967298) -> 4294967301) ((751 . 5625) (+ -3 -2) -> -5) ((752 . 5625) (+ -3 -1) -> -4) ((753 . 5625) (+ -3 0) -> -3) ((754 . 5625) (+ -3 1) -> -2) ((755 . 5625) (+ -3 2) -> -1) ((756 . 5625) (+ -2 -2) -> -4) ((757 . 5625) (+ -2 -1) -> -3) ((758 . 5625) (+ -2 0) -> -2) ((759 . 5625) (+ -2 1) -> -1) ((760 . 5625) (+ -2 2) -> 0) ((761 . 5625) (+ -1 -2) -> -3) ((762 . 5625) (+ -1 -1) -> -2) ((763 . 5625) (+ -1 0) -> -1) ((764 . 5625) (+ -1 1) -> 0) ((765 . 5625) (+ -1 2) -> 1) ((766 . 5625) (+ 0 -2) -> -2) ((767 . 5625) (+ 0 -1) -> -1) ((768 . 5625) (+ 0 0) -> 0) ((769 . 5625) (+ 0 1) -> 1) ((770 . 5625) (+ 0 2) -> 2) ((771 . 5625) (+ 1 -2) -> -1) ((772 . 5625) (+ 1 -1) -> 0) ((773 . 5625) (+ 1 0) -> 1) ((774 . 5625) (+ 1 1) -> 2) ((775 . 5625) (+ 1 2) -> 3) ((776 . 5625) (+ -3 -1) -> -4) ((777 . 5625) (+ -3 0) -> -3) ((778 . 5625) (+ -3 1) -> -2) ((779 . 5625) (+ -3 2) -> -1) ((780 . 5625) (+ -3 3) -> 0) ((781 . 5625) (+ -2 -1) -> -3) ((782 . 5625) (+ -2 0) -> -2) ((783 . 5625) (+ -2 1) -> -1) ((784 . 5625) (+ -2 2) -> 0) ((785 . 5625) (+ -2 3) -> 1) ((786 . 5625) (+ -1 -1) -> -2) ((787 . 5625) (+ -1 0) -> -1) ((788 . 5625) (+ -1 1) -> 0) ((789 . 5625) (+ -1 2) -> 1) ((790 . 5625) (+ -1 3) -> 2) ((791 . 5625) (+ 0 -1) -> -1) ((792 . 5625) (+ 0 0) -> 0) ((793 . 5625) (+ 0 1) -> 1) ((794 . 5625) (+ 0 2) -> 2) ((795 . 5625) (+ 0 3) -> 3) ((796 . 5625) (+ 1 -1) -> 0) ((797 . 5625) (+ 1 0) -> 1) ((798 . 5625) (+ 1 1) -> 2) ((799 . 5625) (+ 1 2) -> 3) ((800 . 5625) (+ 1 3) -> 4) ((801 . 5625) (+ -3 -3) -> -6) ((802 . 5625) (+ -3 -2) -> -5) ((803 . 5625) (+ -3 -1) -> -4) ((804 . 5625) (+ -3 0) -> -3) ((805 . 5625) (+ -3 1) -> -2) ((806 . 5625) (+ -2 -3) -> -5) ((807 . 5625) (+ -2 -2) -> -4) ((808 . 5625) (+ -2 -1) -> -3) ((809 . 5625) (+ -2 0) -> -2) ((810 . 5625) (+ -2 1) -> -1) ((811 . 5625) (+ -1 -3) -> -4) ((812 . 5625) (+ -1 -2) -> -3) ((813 . 5625) (+ -1 -1) -> -2) ((814 . 5625) (+ -1 0) -> -1) ((815 . 5625) (+ -1 1) -> 0) ((816 . 5625) (+ 0 -3) -> -3) ((817 . 5625) (+ 0 -2) -> -2) ((818 . 5625) (+ 0 -1) -> -1) ((819 . 5625) (+ 0 0) -> 0) ((820 . 5625) (+ 0 1) -> 1) ((821 . 5625) (+ 1 -3) -> -2) ((822 . 5625) (+ 1 -2) -> -1) ((823 . 5625) (+ 1 -1) -> 0) ((824 . 5625) (+ 1 0) -> 1) ((825 . 5625) (+ 1 1) -> 2) ((826 . 5625) (+ -3 0) -> -3) ((827 . 5625) (+ -3 1) -> -2) ((828 . 5625) (+ -3 2) -> -1) ((829 . 5625) (+ -3 3) -> 0) ((830 . 5625) (+ -3 4) -> 1) ((831 . 5625) (+ -2 0) -> -2) ((832 . 5625) (+ -2 1) -> -1) ((833 . 5625) (+ -2 2) -> 0) ((834 . 5625) (+ -2 3) -> 1) ((835 . 5625) (+ -2 4) -> 2) ((836 . 5625) (+ -1 0) -> -1) ((837 . 5625) (+ -1 1) -> 0) ((838 . 5625) (+ -1 2) -> 1) ((839 . 5625) (+ -1 3) -> 2) ((840 . 5625) (+ -1 4) -> 3) ((841 . 5625) (+ 0 0) -> 0) ((842 . 5625) (+ 0 1) -> 1) ((843 . 5625) (+ 0 2) -> 2) ((844 . 5625) (+ 0 3) -> 3) ((845 . 5625) (+ 0 4) -> 4) ((846 . 5625) (+ 1 0) -> 1) ((847 . 5625) (+ 1 1) -> 2) ((848 . 5625) (+ 1 2) -> 3) ((849 . 5625) (+ 1 3) -> 4) ((850 . 5625) (+ 1 4) -> 5) ((851 . 5625) (+ -3 -4) -> -7) ((852 . 5625) (+ -3 -3) -> -6) ((853 . 5625) (+ -3 -2) -> -5) ((854 . 5625) (+ -3 -1) -> -4) ((855 . 5625) (+ -3 0) -> -3) ((856 . 5625) (+ -2 -4) -> -6) ((857 . 5625) (+ -2 -3) -> -5) ((858 . 5625) (+ -2 -2) -> -4) ((859 . 5625) (+ -2 -1) -> -3) ((860 . 5625) (+ -2 0) -> -2) ((861 . 5625) (+ -1 -4) -> -5) ((862 . 5625) (+ -1 -3) -> -4) ((863 . 5625) (+ -1 -2) -> -3) ((864 . 5625) (+ -1 -1) -> -2) ((865 . 5625) (+ -1 0) -> -1) ((866 . 5625) (+ 0 -4) -> -4) ((867 . 5625) (+ 0 -3) -> -3) ((868 . 5625) (+ 0 -2) -> -2) ((869 . 5625) (+ 0 -1) -> -1) ((870 . 5625) (+ 0 0) -> 0) ((871 . 5625) (+ 1 -4) -> -3) ((872 . 5625) (+ 1 -3) -> -2) ((873 . 5625) (+ 1 -2) -> -1) ((874 . 5625) (+ 1 -1) -> 0) ((875 . 5625) (+ 1 0) -> 1) ((876 . 5625) (+ -3 1073741821) -> 1073741818) ((877 . 5625) (+ -3 1073741822) -> 1073741819) ((878 . 5625) (+ -3 1073741823) -> 1073741820) ((879 . 5625) (+ -3 1073741824) -> 1073741821) ((880 . 5625) (+ -3 1073741825) -> 1073741822) ((881 . 5625) (+ -2 1073741821) -> 1073741819) ((882 . 5625) (+ -2 1073741822) -> 1073741820) ((883 . 5625) (+ -2 1073741823) -> 1073741821) ((884 . 5625) (+ -2 1073741824) -> 1073741822) ((885 . 5625) (+ -2 1073741825) -> 1073741823) ((886 . 5625) (+ -1 1073741821) -> 1073741820) ((887 . 5625) (+ -1 1073741822) -> 1073741821) ((888 . 5625) (+ -1 1073741823) -> 1073741822) ((889 . 5625) (+ -1 1073741824) -> 1073741823) ((890 . 5625) (+ -1 1073741825) -> 1073741824) ((891 . 5625) (+ 0 1073741821) -> 1073741821) ((892 . 5625) (+ 0 1073741822) -> 1073741822) ((893 . 5625) (+ 0 1073741823) -> 1073741823) ((894 . 5625) (+ 0 1073741824) -> 1073741824) ((895 . 5625) (+ 0 1073741825) -> 1073741825) ((896 . 5625) (+ 1 1073741821) -> 1073741822) ((897 . 5625) (+ 1 1073741822) -> 1073741823) ((898 . 5625) (+ 1 1073741823) -> 1073741824) ((899 . 5625) (+ 1 1073741824) -> 1073741825) ((900 . 5625) (+ 1 1073741825) -> 1073741826) ((901 . 5625) (+ -3 -1073741826) -> -1073741829) ((902 . 5625) (+ -3 -1073741825) -> -1073741828) ((903 . 5625) (+ -3 -1073741824) -> -1073741827) ((904 . 5625) (+ -3 -1073741823) -> -1073741826) ((905 . 5625) (+ -3 -1073741822) -> -1073741825) ((906 . 5625) (+ -2 -1073741826) -> -1073741828) ((907 . 5625) (+ -2 -1073741825) -> -1073741827) ((908 . 5625) (+ -2 -1073741824) -> -1073741826) ((909 . 5625) (+ -2 -1073741823) -> -1073741825) ((910 . 5625) (+ -2 -1073741822) -> -1073741824) ((911 . 5625) (+ -1 -1073741826) -> -1073741827) ((912 . 5625) (+ -1 -1073741825) -> -1073741826) ((913 . 5625) (+ -1 -1073741824) -> -1073741825) ((914 . 5625) (+ -1 -1073741823) -> -1073741824) ((915 . 5625) (+ -1 -1073741822) -> -1073741823) ((916 . 5625) (+ 0 -1073741826) -> -1073741826) ((917 . 5625) (+ 0 -1073741825) -> -1073741825) ((918 . 5625) (+ 0 -1073741824) -> -1073741824) ((919 . 5625) (+ 0 -1073741823) -> -1073741823) ((920 . 5625) (+ 0 -1073741822) -> -1073741822) ((921 . 5625) (+ 1 -1073741826) -> -1073741825) ((922 . 5625) (+ 1 -1073741825) -> -1073741824) ((923 . 5625) (+ 1 -1073741824) -> -1073741823) ((924 . 5625) (+ 1 -1073741823) -> -1073741822) ((925 . 5625) (+ 1 -1073741822) -> -1073741821) ((926 . 5625) (+ -3 1073741822) -> 1073741819) ((927 . 5625) (+ -3 1073741823) -> 1073741820) ((928 . 5625) (+ -3 1073741824) -> 1073741821) ((929 . 5625) (+ -3 1073741825) -> 1073741822) ((930 . 5625) (+ -3 1073741826) -> 1073741823) ((931 . 5625) (+ -2 1073741822) -> 1073741820) ((932 . 5625) (+ -2 1073741823) -> 1073741821) ((933 . 5625) (+ -2 1073741824) -> 1073741822) ((934 . 5625) (+ -2 1073741825) -> 1073741823) ((935 . 5625) (+ -2 1073741826) -> 1073741824) ((936 . 5625) (+ -1 1073741822) -> 1073741821) ((937 . 5625) (+ -1 1073741823) -> 1073741822) ((938 . 5625) (+ -1 1073741824) -> 1073741823) ((939 . 5625) (+ -1 1073741825) -> 1073741824) ((940 . 5625) (+ -1 1073741826) -> 1073741825) ((941 . 5625) (+ 0 1073741822) -> 1073741822) ((942 . 5625) (+ 0 1073741823) -> 1073741823) ((943 . 5625) (+ 0 1073741824) -> 1073741824) ((944 . 5625) (+ 0 1073741825) -> 1073741825) ((945 . 5625) (+ 0 1073741826) -> 1073741826) ((946 . 5625) (+ 1 1073741822) -> 1073741823) ((947 . 5625) (+ 1 1073741823) -> 1073741824) ((948 . 5625) (+ 1 1073741824) -> 1073741825) ((949 . 5625) (+ 1 1073741825) -> 1073741826) ((950 . 5625) (+ 1 1073741826) -> 1073741827) ((951 . 5625) (+ -3 -1073741827) -> -1073741830) ((952 . 5625) (+ -3 -1073741826) -> -1073741829) ((953 . 5625) (+ -3 -1073741825) -> -1073741828) ((954 . 5625) (+ -3 -1073741824) -> -1073741827) ((955 . 5625) (+ -3 -1073741823) -> -1073741826) ((956 . 5625) (+ -2 -1073741827) -> -1073741829) ((957 . 5625) (+ -2 -1073741826) -> -1073741828) ((958 . 5625) (+ -2 -1073741825) -> -1073741827) ((959 . 5625) (+ -2 -1073741824) -> -1073741826) ((960 . 5625) (+ -2 -1073741823) -> -1073741825) ((961 . 5625) (+ -1 -1073741827) -> -1073741828) ((962 . 5625) (+ -1 -1073741826) -> -1073741827) ((963 . 5625) (+ -1 -1073741825) -> -1073741826) ((964 . 5625) (+ -1 -1073741824) -> -1073741825) ((965 . 5625) (+ -1 -1073741823) -> -1073741824) ((966 . 5625) (+ 0 -1073741827) -> -1073741827) ((967 . 5625) (+ 0 -1073741826) -> -1073741826) ((968 . 5625) (+ 0 -1073741825) -> -1073741825) ((969 . 5625) (+ 0 -1073741824) -> -1073741824) ((970 . 5625) (+ 0 -1073741823) -> -1073741823) ((971 . 5625) (+ 1 -1073741827) -> -1073741826) ((972 . 5625) (+ 1 -1073741826) -> -1073741825) ((973 . 5625) (+ 1 -1073741825) -> -1073741824) ((974 . 5625) (+ 1 -1073741824) -> -1073741823) ((975 . 5625) (+ 1 -1073741823) -> -1073741822) ((976 . 5625) (+ -3 1103515243) -> 1103515240) ((977 . 5625) (+ -3 1103515244) -> 1103515241) ((978 . 5625) (+ -3 1103515245) -> 1103515242) ((979 . 5625) (+ -3 1103515246) -> 1103515243) ((980 . 5625) (+ -3 1103515247) -> 1103515244) ((981 . 5625) (+ -2 1103515243) -> 1103515241) ((982 . 5625) (+ -2 1103515244) -> 1103515242) ((983 . 5625) (+ -2 1103515245) -> 1103515243) ((984 . 5625) (+ -2 1103515246) -> 1103515244) ((985 . 5625) (+ -2 1103515247) -> 1103515245) ((986 . 5625) (+ -1 1103515243) -> 1103515242) ((987 . 5625) (+ -1 1103515244) -> 1103515243) ((988 . 5625) (+ -1 1103515245) -> 1103515244) ((989 . 5625) (+ -1 1103515246) -> 1103515245) ((990 . 5625) (+ -1 1103515247) -> 1103515246) ((991 . 5625) (+ 0 1103515243) -> 1103515243) ((992 . 5625) (+ 0 1103515244) -> 1103515244) ((993 . 5625) (+ 0 1103515245) -> 1103515245) ((994 . 5625) (+ 0 1103515246) -> 1103515246) ((995 . 5625) (+ 0 1103515247) -> 1103515247) ((996 . 5625) (+ 1 1103515243) -> 1103515244) ((997 . 5625) (+ 1 1103515244) -> 1103515245) ((998 . 5625) (+ 1 1103515245) -> 1103515246) ((999 . 5625) (+ 1 1103515246) -> 1103515247) ((1000 . 5625) (+ 1 1103515247) -> 1103515248) ((1001 . 5625) (+ -3 631629063) -> 631629060) ((1002 . 5625) (+ -3 631629064) -> 631629061) ((1003 . 5625) (+ -3 631629065) -> 631629062) ((1004 . 5625) (+ -3 631629066) -> 631629063) ((1005 . 5625) (+ -3 631629067) -> 631629064) ((1006 . 5625) (+ -2 631629063) -> 631629061) ((1007 . 5625) (+ -2 631629064) -> 631629062) ((1008 . 5625) (+ -2 631629065) -> 631629063) ((1009 . 5625) (+ -2 631629066) -> 631629064) ((1010 . 5625) (+ -2 631629067) -> 631629065) ((1011 . 5625) (+ -1 631629063) -> 631629062) ((1012 . 5625) (+ -1 631629064) -> 631629063) ((1013 . 5625) (+ -1 631629065) -> 631629064) ((1014 . 5625) (+ -1 631629066) -> 631629065) ((1015 . 5625) (+ -1 631629067) -> 631629066) ((1016 . 5625) (+ 0 631629063) -> 631629063) ((1017 . 5625) (+ 0 631629064) -> 631629064) ((1018 . 5625) (+ 0 631629065) -> 631629065) ((1019 . 5625) (+ 0 631629066) -> 631629066) ((1020 . 5625) (+ 0 631629067) -> 631629067) ((1021 . 5625) (+ 1 631629063) -> 631629064) ((1022 . 5625) (+ 1 631629064) -> 631629065) ((1023 . 5625) (+ 1 631629065) -> 631629066) ((1024 . 5625) (+ 1 631629066) -> 631629067) ((1025 . 5625) (+ 1 631629067) -> 631629068) ((1026 . 5625) (+ -3 9007199254740990) -> 9007199254740987) ((1027 . 5625) (+ -3 9007199254740991) -> 9007199254740988) ((1028 . 5625) (+ -3 9007199254740992) -> 9007199254740989) ((1029 . 5625) (+ -3 9007199254740993) -> 9007199254740990) ((1030 . 5625) (+ -3 9007199254740994) -> 9007199254740991) ((1031 . 5625) (+ -2 9007199254740990) -> 9007199254740988) ((1032 . 5625) (+ -2 9007199254740991) -> 9007199254740989) ((1033 . 5625) (+ -2 9007199254740992) -> 9007199254740990) ((1034 . 5625) (+ -2 9007199254740993) -> 9007199254740991) ((1035 . 5625) (+ -2 9007199254740994) -> 9007199254740992) ((1036 . 5625) (+ -1 9007199254740990) -> 9007199254740989) ((1037 . 5625) (+ -1 9007199254740991) -> 9007199254740990) ((1038 . 5625) (+ -1 9007199254740992) -> 9007199254740991) ((1039 . 5625) (+ -1 9007199254740993) -> 9007199254740992) ((1040 . 5625) (+ -1 9007199254740994) -> 9007199254740993) ((1041 . 5625) (+ 0 9007199254740990) -> 9007199254740990) ((1042 . 5625) (+ 0 9007199254740991) -> 9007199254740991) ((1043 . 5625) (+ 0 9007199254740992) -> 9007199254740992) ((1044 . 5625) (+ 0 9007199254740993) -> 9007199254740993) ((1045 . 5625) (+ 0 9007199254740994) -> 9007199254740994) ((1046 . 5625) (+ 1 9007199254740990) -> 9007199254740991) ((1047 . 5625) (+ 1 9007199254740991) -> 9007199254740992) ((1048 . 5625) (+ 1 9007199254740992) -> 9007199254740993) ((1049 . 5625) (+ 1 9007199254740993) -> 9007199254740994) ((1050 . 5625) (+ 1 9007199254740994) -> 9007199254740995) ((1051 . 5625) (+ -3 -9007199254740994) -> -9007199254740997) ((1052 . 5625) (+ -3 -9007199254740993) -> -9007199254740996) ((1053 . 5625) (+ -3 -9007199254740992) -> -9007199254740995) ((1054 . 5625) (+ -3 -9007199254740991) -> -9007199254740994) ((1055 . 5625) (+ -3 -9007199254740990) -> -9007199254740993) ((1056 . 5625) (+ -2 -9007199254740994) -> -9007199254740996) ((1057 . 5625) (+ -2 -9007199254740993) -> -9007199254740995) ((1058 . 5625) (+ -2 -9007199254740992) -> -9007199254740994) ((1059 . 5625) (+ -2 -9007199254740991) -> -9007199254740993) ((1060 . 5625) (+ -2 -9007199254740990) -> -9007199254740992) ((1061 . 5625) (+ -1 -9007199254740994) -> -9007199254740995) ((1062 . 5625) (+ -1 -9007199254740993) -> -9007199254740994) ((1063 . 5625) (+ -1 -9007199254740992) -> -9007199254740993) ((1064 . 5625) (+ -1 -9007199254740991) -> -9007199254740992) ((1065 . 5625) (+ -1 -9007199254740990) -> -9007199254740991) ((1066 . 5625) (+ 0 -9007199254740994) -> -9007199254740994) ((1067 . 5625) (+ 0 -9007199254740993) -> -9007199254740993) ((1068 . 5625) (+ 0 -9007199254740992) -> -9007199254740992) ((1069 . 5625) (+ 0 -9007199254740991) -> -9007199254740991) ((1070 . 5625) (+ 0 -9007199254740990) -> -9007199254740990) ((1071 . 5625) (+ 1 -9007199254740994) -> -9007199254740993) ((1072 . 5625) (+ 1 -9007199254740993) -> -9007199254740992) ((1073 . 5625) (+ 1 -9007199254740992) -> -9007199254740991) ((1074 . 5625) (+ 1 -9007199254740991) -> -9007199254740990) ((1075 . 5625) (+ 1 -9007199254740990) -> -9007199254740989) ((1076 . 5625) (+ -3 12343) -> 12340) ((1077 . 5625) (+ -3 12344) -> 12341) ((1078 . 5625) (+ -3 12345) -> 12342) ((1079 . 5625) (+ -3 12346) -> 12343) ((1080 . 5625) (+ -3 12347) -> 12344) ((1081 . 5625) (+ -2 12343) -> 12341) ((1082 . 5625) (+ -2 12344) -> 12342) ((1083 . 5625) (+ -2 12345) -> 12343) ((1084 . 5625) (+ -2 12346) -> 12344) ((1085 . 5625) (+ -2 12347) -> 12345) ((1086 . 5625) (+ -1 12343) -> 12342) ((1087 . 5625) (+ -1 12344) -> 12343) ((1088 . 5625) (+ -1 12345) -> 12344) ((1089 . 5625) (+ -1 12346) -> 12345) ((1090 . 5625) (+ -1 12347) -> 12346) ((1091 . 5625) (+ 0 12343) -> 12343) ((1092 . 5625) (+ 0 12344) -> 12344) ((1093 . 5625) (+ 0 12345) -> 12345) ((1094 . 5625) (+ 0 12346) -> 12346) ((1095 . 5625) (+ 0 12347) -> 12347) ((1096 . 5625) (+ 1 12343) -> 12344) ((1097 . 5625) (+ 1 12344) -> 12345) ((1098 . 5625) (+ 1 12345) -> 12346) ((1099 . 5625) (+ 1 12346) -> 12347) ((1100 . 5625) (+ 1 12347) -> 12348) ((1101 . 5625) (+ -3 4294967294) -> 4294967291) ((1102 . 5625) (+ -3 4294967295) -> 4294967292) ((1103 . 5625) (+ -3 4294967296) -> 4294967293) ((1104 . 5625) (+ -3 4294967297) -> 4294967294) ((1105 . 5625) (+ -3 4294967298) -> 4294967295) ((1106 . 5625) (+ -2 4294967294) -> 4294967292) ((1107 . 5625) (+ -2 4294967295) -> 4294967293) ((1108 . 5625) (+ -2 4294967296) -> 4294967294) ((1109 . 5625) (+ -2 4294967297) -> 4294967295) ((1110 . 5625) (+ -2 4294967298) -> 4294967296) ((1111 . 5625) (+ -1 4294967294) -> 4294967293) ((1112 . 5625) (+ -1 4294967295) -> 4294967294) ((1113 . 5625) (+ -1 4294967296) -> 4294967295) ((1114 . 5625) (+ -1 4294967297) -> 4294967296) ((1115 . 5625) (+ -1 4294967298) -> 4294967297) ((1116 . 5625) (+ 0 4294967294) -> 4294967294) ((1117 . 5625) (+ 0 4294967295) -> 4294967295) ((1118 . 5625) (+ 0 4294967296) -> 4294967296) ((1119 . 5625) (+ 0 4294967297) -> 4294967297) ((1120 . 5625) (+ 0 4294967298) -> 4294967298) ((1121 . 5625) (+ 1 4294967294) -> 4294967295) ((1122 . 5625) (+ 1 4294967295) -> 4294967296) ((1123 . 5625) (+ 1 4294967296) -> 4294967297) ((1124 . 5625) (+ 1 4294967297) -> 4294967298) ((1125 . 5625) (+ 1 4294967298) -> 4294967299) ((1126 . 5625) (+ 0 -2) -> -2) ((1127 . 5625) (+ 0 -1) -> -1) ((1128 . 5625) (+ 0 0) -> 0) ((1129 . 5625) (+ 0 1) -> 1) ((1130 . 5625) (+ 0 2) -> 2) ((1131 . 5625) (+ 1 -2) -> -1) ((1132 . 5625) (+ 1 -1) -> 0) ((1133 . 5625) (+ 1 0) -> 1) ((1134 . 5625) (+ 1 1) -> 2) ((1135 . 5625) (+ 1 2) -> 3) ((1136 . 5625) (+ 2 -2) -> 0) ((1137 . 5625) (+ 2 -1) -> 1) ((1138 . 5625) (+ 2 0) -> 2) ((1139 . 5625) (+ 2 1) -> 3) ((1140 . 5625) (+ 2 2) -> 4) ((1141 . 5625) (+ 3 -2) -> 1) ((1142 . 5625) (+ 3 -1) -> 2) ((1143 . 5625) (+ 3 0) -> 3) ((1144 . 5625) (+ 3 1) -> 4) ((1145 . 5625) (+ 3 2) -> 5) ((1146 . 5625) (+ 4 -2) -> 2) ((1147 . 5625) (+ 4 -1) -> 3) ((1148 . 5625) (+ 4 0) -> 4) ((1149 . 5625) (+ 4 1) -> 5) ((1150 . 5625) (+ 4 2) -> 6) ((1151 . 5625) (+ 0 -1) -> -1) ((1152 . 5625) (+ 0 0) -> 0) ((1153 . 5625) (+ 0 1) -> 1) ((1154 . 5625) (+ 0 2) -> 2) ((1155 . 5625) (+ 0 3) -> 3) ((1156 . 5625) (+ 1 -1) -> 0) ((1157 . 5625) (+ 1 0) -> 1) ((1158 . 5625) (+ 1 1) -> 2) ((1159 . 5625) (+ 1 2) -> 3) ((1160 . 5625) (+ 1 3) -> 4) ((1161 . 5625) (+ 2 -1) -> 1) ((1162 . 5625) (+ 2 0) -> 2) ((1163 . 5625) (+ 2 1) -> 3) ((1164 . 5625) (+ 2 2) -> 4) ((1165 . 5625) (+ 2 3) -> 5) ((1166 . 5625) (+ 3 -1) -> 2) ((1167 . 5625) (+ 3 0) -> 3) ((1168 . 5625) (+ 3 1) -> 4) ((1169 . 5625) (+ 3 2) -> 5) ((1170 . 5625) (+ 3 3) -> 6) ((1171 . 5625) (+ 4 -1) -> 3) ((1172 . 5625) (+ 4 0) -> 4) ((1173 . 5625) (+ 4 1) -> 5) ((1174 . 5625) (+ 4 2) -> 6) ((1175 . 5625) (+ 4 3) -> 7) ((1176 . 5625) (+ 0 -3) -> -3) ((1177 . 5625) (+ 0 -2) -> -2) ((1178 . 5625) (+ 0 -1) -> -1) ((1179 . 5625) (+ 0 0) -> 0) ((1180 . 5625) (+ 0 1) -> 1) ((1181 . 5625) (+ 1 -3) -> -2) ((1182 . 5625) (+ 1 -2) -> -1) ((1183 . 5625) (+ 1 -1) -> 0) ((1184 . 5625) (+ 1 0) -> 1) ((1185 . 5625) (+ 1 1) -> 2) ((1186 . 5625) (+ 2 -3) -> -1) ((1187 . 5625) (+ 2 -2) -> 0) ((1188 . 5625) (+ 2 -1) -> 1) ((1189 . 5625) (+ 2 0) -> 2) ((1190 . 5625) (+ 2 1) -> 3) ((1191 . 5625) (+ 3 -3) -> 0) ((1192 . 5625) (+ 3 -2) -> 1) ((1193 . 5625) (+ 3 -1) -> 2) ((1194 . 5625) (+ 3 0) -> 3) ((1195 . 5625) (+ 3 1) -> 4) ((1196 . 5625) (+ 4 -3) -> 1) ((1197 . 5625) (+ 4 -2) -> 2) ((1198 . 5625) (+ 4 -1) -> 3) ((1199 . 5625) (+ 4 0) -> 4) ((1200 . 5625) (+ 4 1) -> 5) ((1201 . 5625) (+ 0 0) -> 0) ((1202 . 5625) (+ 0 1) -> 1) ((1203 . 5625) (+ 0 2) -> 2) ((1204 . 5625) (+ 0 3) -> 3) ((1205 . 5625) (+ 0 4) -> 4) ((1206 . 5625) (+ 1 0) -> 1) ((1207 . 5625) (+ 1 1) -> 2) ((1208 . 5625) (+ 1 2) -> 3) ((1209 . 5625) (+ 1 3) -> 4) ((1210 . 5625) (+ 1 4) -> 5) ((1211 . 5625) (+ 2 0) -> 2) ((1212 . 5625) (+ 2 1) -> 3) ((1213 . 5625) (+ 2 2) -> 4) ((1214 . 5625) (+ 2 3) -> 5) ((1215 . 5625) (+ 2 4) -> 6) ((1216 . 5625) (+ 3 0) -> 3) ((1217 . 5625) (+ 3 1) -> 4) ((1218 . 5625) (+ 3 2) -> 5) ((1219 . 5625) (+ 3 3) -> 6) ((1220 . 5625) (+ 3 4) -> 7) ((1221 . 5625) (+ 4 0) -> 4) ((1222 . 5625) (+ 4 1) -> 5) ((1223 . 5625) (+ 4 2) -> 6) ((1224 . 5625) (+ 4 3) -> 7) ((1225 . 5625) (+ 4 4) -> 8) ((1226 . 5625) (+ 0 -4) -> -4) ((1227 . 5625) (+ 0 -3) -> -3) ((1228 . 5625) (+ 0 -2) -> -2) ((1229 . 5625) (+ 0 -1) -> -1) ((1230 . 5625) (+ 0 0) -> 0) ((1231 . 5625) (+ 1 -4) -> -3) ((1232 . 5625) (+ 1 -3) -> -2) ((1233 . 5625) (+ 1 -2) -> -1) ((1234 . 5625) (+ 1 -1) -> 0) ((1235 . 5625) (+ 1 0) -> 1) ((1236 . 5625) (+ 2 -4) -> -2) ((1237 . 5625) (+ 2 -3) -> -1) ((1238 . 5625) (+ 2 -2) -> 0) ((1239 . 5625) (+ 2 -1) -> 1) ((1240 . 5625) (+ 2 0) -> 2) ((1241 . 5625) (+ 3 -4) -> -1) ((1242 . 5625) (+ 3 -3) -> 0) ((1243 . 5625) (+ 3 -2) -> 1) ((1244 . 5625) (+ 3 -1) -> 2) ((1245 . 5625) (+ 3 0) -> 3) ((1246 . 5625) (+ 4 -4) -> 0) ((1247 . 5625) (+ 4 -3) -> 1) ((1248 . 5625) (+ 4 -2) -> 2) ((1249 . 5625) (+ 4 -1) -> 3) ((1250 . 5625) (+ 4 0) -> 4) ((1251 . 5625) (+ 0 1073741821) -> 1073741821) ((1252 . 5625) (+ 0 1073741822) -> 1073741822) ((1253 . 5625) (+ 0 1073741823) -> 1073741823) ((1254 . 5625) (+ 0 1073741824) -> 1073741824) ((1255 . 5625) (+ 0 1073741825) -> 1073741825) ((1256 . 5625) (+ 1 1073741821) -> 1073741822) ((1257 . 5625) (+ 1 1073741822) -> 1073741823) ((1258 . 5625) (+ 1 1073741823) -> 1073741824) ((1259 . 5625) (+ 1 1073741824) -> 1073741825) ((1260 . 5625) (+ 1 1073741825) -> 1073741826) ((1261 . 5625) (+ 2 1073741821) -> 1073741823) ((1262 . 5625) (+ 2 1073741822) -> 1073741824) ((1263 . 5625) (+ 2 1073741823) -> 1073741825) ((1264 . 5625) (+ 2 1073741824) -> 1073741826) ((1265 . 5625) (+ 2 1073741825) -> 1073741827) ((1266 . 5625) (+ 3 1073741821) -> 1073741824) ((1267 . 5625) (+ 3 1073741822) -> 1073741825) ((1268 . 5625) (+ 3 1073741823) -> 1073741826) ((1269 . 5625) (+ 3 1073741824) -> 1073741827) ((1270 . 5625) (+ 3 1073741825) -> 1073741828) ((1271 . 5625) (+ 4 1073741821) -> 1073741825) ((1272 . 5625) (+ 4 1073741822) -> 1073741826) ((1273 . 5625) (+ 4 1073741823) -> 1073741827) ((1274 . 5625) (+ 4 1073741824) -> 1073741828) ((1275 . 5625) (+ 4 1073741825) -> 1073741829) ((1276 . 5625) (+ 0 -1073741826) -> -1073741826) ((1277 . 5625) (+ 0 -1073741825) -> -1073741825) ((1278 . 5625) (+ 0 -1073741824) -> -1073741824) ((1279 . 5625) (+ 0 -1073741823) -> -1073741823) ((1280 . 5625) (+ 0 -1073741822) -> -1073741822) ((1281 . 5625) (+ 1 -1073741826) -> -1073741825) ((1282 . 5625) (+ 1 -1073741825) -> -1073741824) ((1283 . 5625) (+ 1 -1073741824) -> -1073741823) ((1284 . 5625) (+ 1 -1073741823) -> -1073741822) ((1285 . 5625) (+ 1 -1073741822) -> -1073741821) ((1286 . 5625) (+ 2 -1073741826) -> -1073741824) ((1287 . 5625) (+ 2 -1073741825) -> -1073741823) ((1288 . 5625) (+ 2 -1073741824) -> -1073741822) ((1289 . 5625) (+ 2 -1073741823) -> -1073741821) ((1290 . 5625) (+ 2 -1073741822) -> -1073741820) ((1291 . 5625) (+ 3 -1073741826) -> -1073741823) ((1292 . 5625) (+ 3 -1073741825) -> -1073741822) ((1293 . 5625) (+ 3 -1073741824) -> -1073741821) ((1294 . 5625) (+ 3 -1073741823) -> -1073741820) ((1295 . 5625) (+ 3 -1073741822) -> -1073741819) ((1296 . 5625) (+ 4 -1073741826) -> -1073741822) ((1297 . 5625) (+ 4 -1073741825) -> -1073741821) ((1298 . 5625) (+ 4 -1073741824) -> -1073741820) ((1299 . 5625) (+ 4 -1073741823) -> -1073741819) ((1300 . 5625) (+ 4 -1073741822) -> -1073741818) ((1301 . 5625) (+ 0 1073741822) -> 1073741822) ((1302 . 5625) (+ 0 1073741823) -> 1073741823) ((1303 . 5625) (+ 0 1073741824) -> 1073741824) ((1304 . 5625) (+ 0 1073741825) -> 1073741825) ((1305 . 5625) (+ 0 1073741826) -> 1073741826) ((1306 . 5625) (+ 1 1073741822) -> 1073741823) ((1307 . 5625) (+ 1 1073741823) -> 1073741824) ((1308 . 5625) (+ 1 1073741824) -> 1073741825) ((1309 . 5625) (+ 1 1073741825) -> 1073741826) ((1310 . 5625) (+ 1 1073741826) -> 1073741827) ((1311 . 5625) (+ 2 1073741822) -> 1073741824) ((1312 . 5625) (+ 2 1073741823) -> 1073741825) ((1313 . 5625) (+ 2 1073741824) -> 1073741826) ((1314 . 5625) (+ 2 1073741825) -> 1073741827) ((1315 . 5625) (+ 2 1073741826) -> 1073741828) ((1316 . 5625) (+ 3 1073741822) -> 1073741825) ((1317 . 5625) (+ 3 1073741823) -> 1073741826) ((1318 . 5625) (+ 3 1073741824) -> 1073741827) ((1319 . 5625) (+ 3 1073741825) -> 1073741828) ((1320 . 5625) (+ 3 1073741826) -> 1073741829) ((1321 . 5625) (+ 4 1073741822) -> 1073741826) ((1322 . 5625) (+ 4 1073741823) -> 1073741827) ((1323 . 5625) (+ 4 1073741824) -> 1073741828) ((1324 . 5625) (+ 4 1073741825) -> 1073741829) ((1325 . 5625) (+ 4 1073741826) -> 1073741830) ((1326 . 5625) (+ 0 -1073741827) -> -1073741827) ((1327 . 5625) (+ 0 -1073741826) -> -1073741826) ((1328 . 5625) (+ 0 -1073741825) -> -1073741825) ((1329 . 5625) (+ 0 -1073741824) -> -1073741824) ((1330 . 5625) (+ 0 -1073741823) -> -1073741823) ((1331 . 5625) (+ 1 -1073741827) -> -1073741826) ((1332 . 5625) (+ 1 -1073741826) -> -1073741825) ((1333 . 5625) (+ 1 -1073741825) -> -1073741824) ((1334 . 5625) (+ 1 -1073741824) -> -1073741823) ((1335 . 5625) (+ 1 -1073741823) -> -1073741822) ((1336 . 5625) (+ 2 -1073741827) -> -1073741825) ((1337 . 5625) (+ 2 -1073741826) -> -1073741824) ((1338 . 5625) (+ 2 -1073741825) -> -1073741823) ((1339 . 5625) (+ 2 -1073741824) -> -1073741822) ((1340 . 5625) (+ 2 -1073741823) -> -1073741821) ((1341 . 5625) (+ 3 -1073741827) -> -1073741824) ((1342 . 5625) (+ 3 -1073741826) -> -1073741823) ((1343 . 5625) (+ 3 -1073741825) -> -1073741822) ((1344 . 5625) (+ 3 -1073741824) -> -1073741821) ((1345 . 5625) (+ 3 -1073741823) -> -1073741820) ((1346 . 5625) (+ 4 -1073741827) -> -1073741823) ((1347 . 5625) (+ 4 -1073741826) -> -1073741822) ((1348 . 5625) (+ 4 -1073741825) -> -1073741821) ((1349 . 5625) (+ 4 -1073741824) -> -1073741820) ((1350 . 5625) (+ 4 -1073741823) -> -1073741819) ((1351 . 5625) (+ 0 1103515243) -> 1103515243) ((1352 . 5625) (+ 0 1103515244) -> 1103515244) ((1353 . 5625) (+ 0 1103515245) -> 1103515245) ((1354 . 5625) (+ 0 1103515246) -> 1103515246) ((1355 . 5625) (+ 0 1103515247) -> 1103515247) ((1356 . 5625) (+ 1 1103515243) -> 1103515244) ((1357 . 5625) (+ 1 1103515244) -> 1103515245) ((1358 . 5625) (+ 1 1103515245) -> 1103515246) ((1359 . 5625) (+ 1 1103515246) -> 1103515247) ((1360 . 5625) (+ 1 1103515247) -> 1103515248) ((1361 . 5625) (+ 2 1103515243) -> 1103515245) ((1362 . 5625) (+ 2 1103515244) -> 1103515246) ((1363 . 5625) (+ 2 1103515245) -> 1103515247) ((1364 . 5625) (+ 2 1103515246) -> 1103515248) ((1365 . 5625) (+ 2 1103515247) -> 1103515249) ((1366 . 5625) (+ 3 1103515243) -> 1103515246) ((1367 . 5625) (+ 3 1103515244) -> 1103515247) ((1368 . 5625) (+ 3 1103515245) -> 1103515248) ((1369 . 5625) (+ 3 1103515246) -> 1103515249) ((1370 . 5625) (+ 3 1103515247) -> 1103515250) ((1371 . 5625) (+ 4 1103515243) -> 1103515247) ((1372 . 5625) (+ 4 1103515244) -> 1103515248) ((1373 . 5625) (+ 4 1103515245) -> 1103515249) ((1374 . 5625) (+ 4 1103515246) -> 1103515250) ((1375 . 5625) (+ 4 1103515247) -> 1103515251) ((1376 . 5625) (+ 0 631629063) -> 631629063) ((1377 . 5625) (+ 0 631629064) -> 631629064) ((1378 . 5625) (+ 0 631629065) -> 631629065) ((1379 . 5625) (+ 0 631629066) -> 631629066) ((1380 . 5625) (+ 0 631629067) -> 631629067) ((1381 . 5625) (+ 1 631629063) -> 631629064) ((1382 . 5625) (+ 1 631629064) -> 631629065) ((1383 . 5625) (+ 1 631629065) -> 631629066) ((1384 . 5625) (+ 1 631629066) -> 631629067) ((1385 . 5625) (+ 1 631629067) -> 631629068) ((1386 . 5625) (+ 2 631629063) -> 631629065) ((1387 . 5625) (+ 2 631629064) -> 631629066) ((1388 . 5625) (+ 2 631629065) -> 631629067) ((1389 . 5625) (+ 2 631629066) -> 631629068) ((1390 . 5625) (+ 2 631629067) -> 631629069) ((1391 . 5625) (+ 3 631629063) -> 631629066) ((1392 . 5625) (+ 3 631629064) -> 631629067) ((1393 . 5625) (+ 3 631629065) -> 631629068) ((1394 . 5625) (+ 3 631629066) -> 631629069) ((1395 . 5625) (+ 3 631629067) -> 631629070) ((1396 . 5625) (+ 4 631629063) -> 631629067) ((1397 . 5625) (+ 4 631629064) -> 631629068) ((1398 . 5625) (+ 4 631629065) -> 631629069) ((1399 . 5625) (+ 4 631629066) -> 631629070) ((1400 . 5625) (+ 4 631629067) -> 631629071) ((1401 . 5625) (+ 0 9007199254740990) -> 9007199254740990) ((1402 . 5625) (+ 0 9007199254740991) -> 9007199254740991) ((1403 . 5625) (+ 0 9007199254740992) -> 9007199254740992) ((1404 . 5625) (+ 0 9007199254740993) -> 9007199254740993) ((1405 . 5625) (+ 0 9007199254740994) -> 9007199254740994) ((1406 . 5625) (+ 1 9007199254740990) -> 9007199254740991) ((1407 . 5625) (+ 1 9007199254740991) -> 9007199254740992) ((1408 . 5625) (+ 1 9007199254740992) -> 9007199254740993) ((1409 . 5625) (+ 1 9007199254740993) -> 9007199254740994) ((1410 . 5625) (+ 1 9007199254740994) -> 9007199254740995) ((1411 . 5625) (+ 2 9007199254740990) -> 9007199254740992) ((1412 . 5625) (+ 2 9007199254740991) -> 9007199254740993) ((1413 . 5625) (+ 2 9007199254740992) -> 9007199254740994) ((1414 . 5625) (+ 2 9007199254740993) -> 9007199254740995) ((1415 . 5625) (+ 2 9007199254740994) -> 9007199254740996) ((1416 . 5625) (+ 3 9007199254740990) -> 9007199254740993) ((1417 . 5625) (+ 3 9007199254740991) -> 9007199254740994) ((1418 . 5625) (+ 3 9007199254740992) -> 9007199254740995) ((1419 . 5625) (+ 3 9007199254740993) -> 9007199254740996) ((1420 . 5625) (+ 3 9007199254740994) -> 9007199254740997) ((1421 . 5625) (+ 4 9007199254740990) -> 9007199254740994) ((1422 . 5625) (+ 4 9007199254740991) -> 9007199254740995) ((1423 . 5625) (+ 4 9007199254740992) -> 9007199254740996) ((1424 . 5625) (+ 4 9007199254740993) -> 9007199254740997) ((1425 . 5625) (+ 4 9007199254740994) -> 9007199254740998) ((1426 . 5625) (+ 0 -9007199254740994) -> -9007199254740994) ((1427 . 5625) (+ 0 -9007199254740993) -> -9007199254740993) ((1428 . 5625) (+ 0 -9007199254740992) -> -9007199254740992) ((1429 . 5625) (+ 0 -9007199254740991) -> -9007199254740991) ((1430 . 5625) (+ 0 -9007199254740990) -> -9007199254740990) ((1431 . 5625) (+ 1 -9007199254740994) -> -9007199254740993) ((1432 . 5625) (+ 1 -9007199254740993) -> -9007199254740992) ((1433 . 5625) (+ 1 -9007199254740992) -> -9007199254740991) ((1434 . 5625) (+ 1 -9007199254740991) -> -9007199254740990) ((1435 . 5625) (+ 1 -9007199254740990) -> -9007199254740989) ((1436 . 5625) (+ 2 -9007199254740994) -> -9007199254740992) ((1437 . 5625) (+ 2 -9007199254740993) -> -9007199254740991) ((1438 . 5625) (+ 2 -9007199254740992) -> -9007199254740990) ((1439 . 5625) (+ 2 -9007199254740991) -> -9007199254740989) ((1440 . 5625) (+ 2 -9007199254740990) -> -9007199254740988) ((1441 . 5625) (+ 3 -9007199254740994) -> -9007199254740991) ((1442 . 5625) (+ 3 -9007199254740993) -> -9007199254740990) ((1443 . 5625) (+ 3 -9007199254740992) -> -9007199254740989) ((1444 . 5625) (+ 3 -9007199254740991) -> -9007199254740988) ((1445 . 5625) (+ 3 -9007199254740990) -> -9007199254740987) ((1446 . 5625) (+ 4 -9007199254740994) -> -9007199254740990) ((1447 . 5625) (+ 4 -9007199254740993) -> -9007199254740989) ((1448 . 5625) (+ 4 -9007199254740992) -> -9007199254740988) ((1449 . 5625) (+ 4 -9007199254740991) -> -9007199254740987) ((1450 . 5625) (+ 4 -9007199254740990) -> -9007199254740986) ((1451 . 5625) (+ 0 12343) -> 12343) ((1452 . 5625) (+ 0 12344) -> 12344) ((1453 . 5625) (+ 0 12345) -> 12345) ((1454 . 5625) (+ 0 12346) -> 12346) ((1455 . 5625) (+ 0 12347) -> 12347) ((1456 . 5625) (+ 1 12343) -> 12344) ((1457 . 5625) (+ 1 12344) -> 12345) ((1458 . 5625) (+ 1 12345) -> 12346) ((1459 . 5625) (+ 1 12346) -> 12347) ((1460 . 5625) (+ 1 12347) -> 12348) ((1461 . 5625) (+ 2 12343) -> 12345) ((1462 . 5625) (+ 2 12344) -> 12346) ((1463 . 5625) (+ 2 12345) -> 12347) ((1464 . 5625) (+ 2 12346) -> 12348) ((1465 . 5625) (+ 2 12347) -> 12349) ((1466 . 5625) (+ 3 12343) -> 12346) ((1467 . 5625) (+ 3 12344) -> 12347) ((1468 . 5625) (+ 3 12345) -> 12348) ((1469 . 5625) (+ 3 12346) -> 12349) ((1470 . 5625) (+ 3 12347) -> 12350) ((1471 . 5625) (+ 4 12343) -> 12347) ((1472 . 5625) (+ 4 12344) -> 12348) ((1473 . 5625) (+ 4 12345) -> 12349) ((1474 . 5625) (+ 4 12346) -> 12350) ((1475 . 5625) (+ 4 12347) -> 12351) ((1476 . 5625) (+ 0 4294967294) -> 4294967294) ((1477 . 5625) (+ 0 4294967295) -> 4294967295) ((1478 . 5625) (+ 0 4294967296) -> 4294967296) ((1479 . 5625) (+ 0 4294967297) -> 4294967297) ((1480 . 5625) (+ 0 4294967298) -> 4294967298) ((1481 . 5625) (+ 1 4294967294) -> 4294967295) ((1482 . 5625) (+ 1 4294967295) -> 4294967296) ((1483 . 5625) (+ 1 4294967296) -> 4294967297) ((1484 . 5625) (+ 1 4294967297) -> 4294967298) ((1485 . 5625) (+ 1 4294967298) -> 4294967299) ((1486 . 5625) (+ 2 4294967294) -> 4294967296) ((1487 . 5625) (+ 2 4294967295) -> 4294967297) ((1488 . 5625) (+ 2 4294967296) -> 4294967298) ((1489 . 5625) (+ 2 4294967297) -> 4294967299) ((1490 . 5625) (+ 2 4294967298) -> 4294967300) ((1491 . 5625) (+ 3 4294967294) -> 4294967297) ((1492 . 5625) (+ 3 4294967295) -> 4294967298) ((1493 . 5625) (+ 3 4294967296) -> 4294967299) ((1494 . 5625) (+ 3 4294967297) -> 4294967300) ((1495 . 5625) (+ 3 4294967298) -> 4294967301) ((1496 . 5625) (+ 4 4294967294) -> 4294967298) ((1497 . 5625) (+ 4 4294967295) -> 4294967299) ((1498 . 5625) (+ 4 4294967296) -> 4294967300) ((1499 . 5625) (+ 4 4294967297) -> 4294967301) ((1500 . 5625) (+ 4 4294967298) -> 4294967302) ((1501 . 5625) (+ -4 -2) -> -6) ((1502 . 5625) (+ -4 -1) -> -5) ((1503 . 5625) (+ -4 0) -> -4) ((1504 . 5625) (+ -4 1) -> -3) ((1505 . 5625) (+ -4 2) -> -2) ((1506 . 5625) (+ -3 -2) -> -5) ((1507 . 5625) (+ -3 -1) -> -4) ((1508 . 5625) (+ -3 0) -> -3) ((1509 . 5625) (+ -3 1) -> -2) ((1510 . 5625) (+ -3 2) -> -1) ((1511 . 5625) (+ -2 -2) -> -4) ((1512 . 5625) (+ -2 -1) -> -3) ((1513 . 5625) (+ -2 0) -> -2) ((1514 . 5625) (+ -2 1) -> -1) ((1515 . 5625) (+ -2 2) -> 0) ((1516 . 5625) (+ -1 -2) -> -3) ((1517 . 5625) (+ -1 -1) -> -2) ((1518 . 5625) (+ -1 0) -> -1) ((1519 . 5625) (+ -1 1) -> 0) ((1520 . 5625) (+ -1 2) -> 1) ((1521 . 5625) (+ 0 -2) -> -2) ((1522 . 5625) (+ 0 -1) -> -1) ((1523 . 5625) (+ 0 0) -> 0) ((1524 . 5625) (+ 0 1) -> 1) ((1525 . 5625) (+ 0 2) -> 2) ((1526 . 5625) (+ -4 -1) -> -5) ((1527 . 5625) (+ -4 0) -> -4) ((1528 . 5625) (+ -4 1) -> -3) ((1529 . 5625) (+ -4 2) -> -2) ((1530 . 5625) (+ -4 3) -> -1) ((1531 . 5625) (+ -3 -1) -> -4) ((1532 . 5625) (+ -3 0) -> -3) ((1533 . 5625) (+ -3 1) -> -2) ((1534 . 5625) (+ -3 2) -> -1) ((1535 . 5625) (+ -3 3) -> 0) ((1536 . 5625) (+ -2 -1) -> -3) ((1537 . 5625) (+ -2 0) -> -2) ((1538 . 5625) (+ -2 1) -> -1) ((1539 . 5625) (+ -2 2) -> 0) ((1540 . 5625) (+ -2 3) -> 1) ((1541 . 5625) (+ -1 -1) -> -2) ((1542 . 5625) (+ -1 0) -> -1) ((1543 . 5625) (+ -1 1) -> 0) ((1544 . 5625) (+ -1 2) -> 1) ((1545 . 5625) (+ -1 3) -> 2) ((1546 . 5625) (+ 0 -1) -> -1) ((1547 . 5625) (+ 0 0) -> 0) ((1548 . 5625) (+ 0 1) -> 1) ((1549 . 5625) (+ 0 2) -> 2) ((1550 . 5625) (+ 0 3) -> 3) ((1551 . 5625) (+ -4 -3) -> -7) ((1552 . 5625) (+ -4 -2) -> -6) ((1553 . 5625) (+ -4 -1) -> -5) ((1554 . 5625) (+ -4 0) -> -4) ((1555 . 5625) (+ -4 1) -> -3) ((1556 . 5625) (+ -3 -3) -> -6) ((1557 . 5625) (+ -3 -2) -> -5) ((1558 . 5625) (+ -3 -1) -> -4) ((1559 . 5625) (+ -3 0) -> -3) ((1560 . 5625) (+ -3 1) -> -2) ((1561 . 5625) (+ -2 -3) -> -5) ((1562 . 5625) (+ -2 -2) -> -4) ((1563 . 5625) (+ -2 -1) -> -3) ((1564 . 5625) (+ -2 0) -> -2) ((1565 . 5625) (+ -2 1) -> -1) ((1566 . 5625) (+ -1 -3) -> -4) ((1567 . 5625) (+ -1 -2) -> -3) ((1568 . 5625) (+ -1 -1) -> -2) ((1569 . 5625) (+ -1 0) -> -1) ((1570 . 5625) (+ -1 1) -> 0) ((1571 . 5625) (+ 0 -3) -> -3) ((1572 . 5625) (+ 0 -2) -> -2) ((1573 . 5625) (+ 0 -1) -> -1) ((1574 . 5625) (+ 0 0) -> 0) ((1575 . 5625) (+ 0 1) -> 1) ((1576 . 5625) (+ -4 0) -> -4) ((1577 . 5625) (+ -4 1) -> -3) ((1578 . 5625) (+ -4 2) -> -2) ((1579 . 5625) (+ -4 3) -> -1) ((1580 . 5625) (+ -4 4) -> 0) ((1581 . 5625) (+ -3 0) -> -3) ((1582 . 5625) (+ -3 1) -> -2) ((1583 . 5625) (+ -3 2) -> -1) ((1584 . 5625) (+ -3 3) -> 0) ((1585 . 5625) (+ -3 4) -> 1) ((1586 . 5625) (+ -2 0) -> -2) ((1587 . 5625) (+ -2 1) -> -1) ((1588 . 5625) (+ -2 2) -> 0) ((1589 . 5625) (+ -2 3) -> 1) ((1590 . 5625) (+ -2 4) -> 2) ((1591 . 5625) (+ -1 0) -> -1) ((1592 . 5625) (+ -1 1) -> 0) ((1593 . 5625) (+ -1 2) -> 1) ((1594 . 5625) (+ -1 3) -> 2) ((1595 . 5625) (+ -1 4) -> 3) ((1596 . 5625) (+ 0 0) -> 0) ((1597 . 5625) (+ 0 1) -> 1) ((1598 . 5625) (+ 0 2) -> 2) ((1599 . 5625) (+ 0 3) -> 3) ((1600 . 5625) (+ 0 4) -> 4) ((1601 . 5625) (+ -4 -4) -> -8) ((1602 . 5625) (+ -4 -3) -> -7) ((1603 . 5625) (+ -4 -2) -> -6) ((1604 . 5625) (+ -4 -1) -> -5) ((1605 . 5625) (+ -4 0) -> -4) ((1606 . 5625) (+ -3 -4) -> -7) ((1607 . 5625) (+ -3 -3) -> -6) ((1608 . 5625) (+ -3 -2) -> -5) ((1609 . 5625) (+ -3 -1) -> -4) ((1610 . 5625) (+ -3 0) -> -3) ((1611 . 5625) (+ -2 -4) -> -6) ((1612 . 5625) (+ -2 -3) -> -5) ((1613 . 5625) (+ -2 -2) -> -4) ((1614 . 5625) (+ -2 -1) -> -3) ((1615 . 5625) (+ -2 0) -> -2) ((1616 . 5625) (+ -1 -4) -> -5) ((1617 . 5625) (+ -1 -3) -> -4) ((1618 . 5625) (+ -1 -2) -> -3) ((1619 . 5625) (+ -1 -1) -> -2) ((1620 . 5625) (+ -1 0) -> -1) ((1621 . 5625) (+ 0 -4) -> -4) ((1622 . 5625) (+ 0 -3) -> -3) ((1623 . 5625) (+ 0 -2) -> -2) ((1624 . 5625) (+ 0 -1) -> -1) ((1625 . 5625) (+ 0 0) -> 0) ((1626 . 5625) (+ -4 1073741821) -> 1073741817) ((1627 . 5625) (+ -4 1073741822) -> 1073741818) ((1628 . 5625) (+ -4 1073741823) -> 1073741819) ((1629 . 5625) (+ -4 1073741824) -> 1073741820) ((1630 . 5625) (+ -4 1073741825) -> 1073741821) ((1631 . 5625) (+ -3 1073741821) -> 1073741818) ((1632 . 5625) (+ -3 1073741822) -> 1073741819) ((1633 . 5625) (+ -3 1073741823) -> 1073741820) ((1634 . 5625) (+ -3 1073741824) -> 1073741821) ((1635 . 5625) (+ -3 1073741825) -> 1073741822) ((1636 . 5625) (+ -2 1073741821) -> 1073741819) ((1637 . 5625) (+ -2 1073741822) -> 1073741820) ((1638 . 5625) (+ -2 1073741823) -> 1073741821) ((1639 . 5625) (+ -2 1073741824) -> 1073741822) ((1640 . 5625) (+ -2 1073741825) -> 1073741823) ((1641 . 5625) (+ -1 1073741821) -> 1073741820) ((1642 . 5625) (+ -1 1073741822) -> 1073741821) ((1643 . 5625) (+ -1 1073741823) -> 1073741822) ((1644 . 5625) (+ -1 1073741824) -> 1073741823) ((1645 . 5625) (+ -1 1073741825) -> 1073741824) ((1646 . 5625) (+ 0 1073741821) -> 1073741821) ((1647 . 5625) (+ 0 1073741822) -> 1073741822) ((1648 . 5625) (+ 0 1073741823) -> 1073741823) ((1649 . 5625) (+ 0 1073741824) -> 1073741824) ((1650 . 5625) (+ 0 1073741825) -> 1073741825) ((1651 . 5625) (+ -4 -1073741826) -> -1073741830) ((1652 . 5625) (+ -4 -1073741825) -> -1073741829) ((1653 . 5625) (+ -4 -1073741824) -> -1073741828) ((1654 . 5625) (+ -4 -1073741823) -> -1073741827) ((1655 . 5625) (+ -4 -1073741822) -> -1073741826) ((1656 . 5625) (+ -3 -1073741826) -> -1073741829) ((1657 . 5625) (+ -3 -1073741825) -> -1073741828) ((1658 . 5625) (+ -3 -1073741824) -> -1073741827) ((1659 . 5625) (+ -3 -1073741823) -> -1073741826) ((1660 . 5625) (+ -3 -1073741822) -> -1073741825) ((1661 . 5625) (+ -2 -1073741826) -> -1073741828) ((1662 . 5625) (+ -2 -1073741825) -> -1073741827) ((1663 . 5625) (+ -2 -1073741824) -> -1073741826) ((1664 . 5625) (+ -2 -1073741823) -> -1073741825) ((1665 . 5625) (+ -2 -1073741822) -> -1073741824) ((1666 . 5625) (+ -1 -1073741826) -> -1073741827) ((1667 . 5625) (+ -1 -1073741825) -> -1073741826) ((1668 . 5625) (+ -1 -1073741824) -> -1073741825) ((1669 . 5625) (+ -1 -1073741823) -> -1073741824) ((1670 . 5625) (+ -1 -1073741822) -> -1073741823) ((1671 . 5625) (+ 0 -1073741826) -> -1073741826) ((1672 . 5625) (+ 0 -1073741825) -> -1073741825) ((1673 . 5625) (+ 0 -1073741824) -> -1073741824) ((1674 . 5625) (+ 0 -1073741823) -> -1073741823) ((1675 . 5625) (+ 0 -1073741822) -> -1073741822) ((1676 . 5625) (+ -4 1073741822) -> 1073741818) ((1677 . 5625) (+ -4 1073741823) -> 1073741819) ((1678 . 5625) (+ -4 1073741824) -> 1073741820) ((1679 . 5625) (+ -4 1073741825) -> 1073741821) ((1680 . 5625) (+ -4 1073741826) -> 1073741822) ((1681 . 5625) (+ -3 1073741822) -> 1073741819) ((1682 . 5625) (+ -3 1073741823) -> 1073741820) ((1683 . 5625) (+ -3 1073741824) -> 1073741821) ((1684 . 5625) (+ -3 1073741825) -> 1073741822) ((1685 . 5625) (+ -3 1073741826) -> 1073741823) ((1686 . 5625) (+ -2 1073741822) -> 1073741820) ((1687 . 5625) (+ -2 1073741823) -> 1073741821) ((1688 . 5625) (+ -2 1073741824) -> 1073741822) ((1689 . 5625) (+ -2 1073741825) -> 1073741823) ((1690 . 5625) (+ -2 1073741826) -> 1073741824) ((1691 . 5625) (+ -1 1073741822) -> 1073741821) ((1692 . 5625) (+ -1 1073741823) -> 1073741822) ((1693 . 5625) (+ -1 1073741824) -> 1073741823) ((1694 . 5625) (+ -1 1073741825) -> 1073741824) ((1695 . 5625) (+ -1 1073741826) -> 1073741825) ((1696 . 5625) (+ 0 1073741822) -> 1073741822) ((1697 . 5625) (+ 0 1073741823) -> 1073741823) ((1698 . 5625) (+ 0 1073741824) -> 1073741824) ((1699 . 5625) (+ 0 1073741825) -> 1073741825) ((1700 . 5625) (+ 0 1073741826) -> 1073741826) ((1701 . 5625) (+ -4 -1073741827) -> -1073741831) ((1702 . 5625) (+ -4 -1073741826) -> -1073741830) ((1703 . 5625) (+ -4 -1073741825) -> -1073741829) ((1704 . 5625) (+ -4 -1073741824) -> -1073741828) ((1705 . 5625) (+ -4 -1073741823) -> -1073741827) ((1706 . 5625) (+ -3 -1073741827) -> -1073741830) ((1707 . 5625) (+ -3 -1073741826) -> -1073741829) ((1708 . 5625) (+ -3 -1073741825) -> -1073741828) ((1709 . 5625) (+ -3 -1073741824) -> -1073741827) ((1710 . 5625) (+ -3 -1073741823) -> -1073741826) ((1711 . 5625) (+ -2 -1073741827) -> -1073741829) ((1712 . 5625) (+ -2 -1073741826) -> -1073741828) ((1713 . 5625) (+ -2 -1073741825) -> -1073741827) ((1714 . 5625) (+ -2 -1073741824) -> -1073741826) ((1715 . 5625) (+ -2 -1073741823) -> -1073741825) ((1716 . 5625) (+ -1 -1073741827) -> -1073741828) ((1717 . 5625) (+ -1 -1073741826) -> -1073741827) ((1718 . 5625) (+ -1 -1073741825) -> -1073741826) ((1719 . 5625) (+ -1 -1073741824) -> -1073741825) ((1720 . 5625) (+ -1 -1073741823) -> -1073741824) ((1721 . 5625) (+ 0 -1073741827) -> -1073741827) ((1722 . 5625) (+ 0 -1073741826) -> -1073741826) ((1723 . 5625) (+ 0 -1073741825) -> -1073741825) ((1724 . 5625) (+ 0 -1073741824) -> -1073741824) ((1725 . 5625) (+ 0 -1073741823) -> -1073741823) ((1726 . 5625) (+ -4 1103515243) -> 1103515239) ((1727 . 5625) (+ -4 1103515244) -> 1103515240) ((1728 . 5625) (+ -4 1103515245) -> 1103515241) ((1729 . 5625) (+ -4 1103515246) -> 1103515242) ((1730 . 5625) (+ -4 1103515247) -> 1103515243) ((1731 . 5625) (+ -3 1103515243) -> 1103515240) ((1732 . 5625) (+ -3 1103515244) -> 1103515241) ((1733 . 5625) (+ -3 1103515245) -> 1103515242) ((1734 . 5625) (+ -3 1103515246) -> 1103515243) ((1735 . 5625) (+ -3 1103515247) -> 1103515244) ((1736 . 5625) (+ -2 1103515243) -> 1103515241) ((1737 . 5625) (+ -2 1103515244) -> 1103515242) ((1738 . 5625) (+ -2 1103515245) -> 1103515243) ((1739 . 5625) (+ -2 1103515246) -> 1103515244) ((1740 . 5625) (+ -2 1103515247) -> 1103515245) ((1741 . 5625) (+ -1 1103515243) -> 1103515242) ((1742 . 5625) (+ -1 1103515244) -> 1103515243) ((1743 . 5625) (+ -1 1103515245) -> 1103515244) ((1744 . 5625) (+ -1 1103515246) -> 1103515245) ((1745 . 5625) (+ -1 1103515247) -> 1103515246) ((1746 . 5625) (+ 0 1103515243) -> 1103515243) ((1747 . 5625) (+ 0 1103515244) -> 1103515244) ((1748 . 5625) (+ 0 1103515245) -> 1103515245) ((1749 . 5625) (+ 0 1103515246) -> 1103515246) ((1750 . 5625) (+ 0 1103515247) -> 1103515247) ((1751 . 5625) (+ -4 631629063) -> 631629059) ((1752 . 5625) (+ -4 631629064) -> 631629060) ((1753 . 5625) (+ -4 631629065) -> 631629061) ((1754 . 5625) (+ -4 631629066) -> 631629062) ((1755 . 5625) (+ -4 631629067) -> 631629063) ((1756 . 5625) (+ -3 631629063) -> 631629060) ((1757 . 5625) (+ -3 631629064) -> 631629061) ((1758 . 5625) (+ -3 631629065) -> 631629062) ((1759 . 5625) (+ -3 631629066) -> 631629063) ((1760 . 5625) (+ -3 631629067) -> 631629064) ((1761 . 5625) (+ -2 631629063) -> 631629061) ((1762 . 5625) (+ -2 631629064) -> 631629062) ((1763 . 5625) (+ -2 631629065) -> 631629063) ((1764 . 5625) (+ -2 631629066) -> 631629064) ((1765 . 5625) (+ -2 631629067) -> 631629065) ((1766 . 5625) (+ -1 631629063) -> 631629062) ((1767 . 5625) (+ -1 631629064) -> 631629063) ((1768 . 5625) (+ -1 631629065) -> 631629064) ((1769 . 5625) (+ -1 631629066) -> 631629065) ((1770 . 5625) (+ -1 631629067) -> 631629066) ((1771 . 5625) (+ 0 631629063) -> 631629063) ((1772 . 5625) (+ 0 631629064) -> 631629064) ((1773 . 5625) (+ 0 631629065) -> 631629065) ((1774 . 5625) (+ 0 631629066) -> 631629066) ((1775 . 5625) (+ 0 631629067) -> 631629067) ((1776 . 5625) (+ -4 9007199254740990) -> 9007199254740986) ((1777 . 5625) (+ -4 9007199254740991) -> 9007199254740987) ((1778 . 5625) (+ -4 9007199254740992) -> 9007199254740988) ((1779 . 5625) (+ -4 9007199254740993) -> 9007199254740989) ((1780 . 5625) (+ -4 9007199254740994) -> 9007199254740990) ((1781 . 5625) (+ -3 9007199254740990) -> 9007199254740987) ((1782 . 5625) (+ -3 9007199254740991) -> 9007199254740988) ((1783 . 5625) (+ -3 9007199254740992) -> 9007199254740989) ((1784 . 5625) (+ -3 9007199254740993) -> 9007199254740990) ((1785 . 5625) (+ -3 9007199254740994) -> 9007199254740991) ((1786 . 5625) (+ -2 9007199254740990) -> 9007199254740988) ((1787 . 5625) (+ -2 9007199254740991) -> 9007199254740989) ((1788 . 5625) (+ -2 9007199254740992) -> 9007199254740990) ((1789 . 5625) (+ -2 9007199254740993) -> 9007199254740991) ((1790 . 5625) (+ -2 9007199254740994) -> 9007199254740992) ((1791 . 5625) (+ -1 9007199254740990) -> 9007199254740989) ((1792 . 5625) (+ -1 9007199254740991) -> 9007199254740990) ((1793 . 5625) (+ -1 9007199254740992) -> 9007199254740991) ((1794 . 5625) (+ -1 9007199254740993) -> 9007199254740992) ((1795 . 5625) (+ -1 9007199254740994) -> 9007199254740993) ((1796 . 5625) (+ 0 9007199254740990) -> 9007199254740990) ((1797 . 5625) (+ 0 9007199254740991) -> 9007199254740991) ((1798 . 5625) (+ 0 9007199254740992) -> 9007199254740992) ((1799 . 5625) (+ 0 9007199254740993) -> 9007199254740993) ((1800 . 5625) (+ 0 9007199254740994) -> 9007199254740994) ((1801 . 5625) (+ -4 -9007199254740994) -> -9007199254740998) ((1802 . 5625) (+ -4 -9007199254740993) -> -9007199254740997) ((1803 . 5625) (+ -4 -9007199254740992) -> -9007199254740996) ((1804 . 5625) (+ -4 -9007199254740991) -> -9007199254740995) ((1805 . 5625) (+ -4 -9007199254740990) -> -9007199254740994) ((1806 . 5625) (+ -3 -9007199254740994) -> -9007199254740997) ((1807 . 5625) (+ -3 -9007199254740993) -> -9007199254740996) ((1808 . 5625) (+ -3 -9007199254740992) -> -9007199254740995) ((1809 . 5625) (+ -3 -9007199254740991) -> -9007199254740994) ((1810 . 5625) (+ -3 -9007199254740990) -> -9007199254740993) ((1811 . 5625) (+ -2 -9007199254740994) -> -9007199254740996) ((1812 . 5625) (+ -2 -9007199254740993) -> -9007199254740995) ((1813 . 5625) (+ -2 -9007199254740992) -> -9007199254740994) ((1814 . 5625) (+ -2 -9007199254740991) -> -9007199254740993) ((1815 . 5625) (+ -2 -9007199254740990) -> -9007199254740992) ((1816 . 5625) (+ -1 -9007199254740994) -> -9007199254740995) ((1817 . 5625) (+ -1 -9007199254740993) -> -9007199254740994) ((1818 . 5625) (+ -1 -9007199254740992) -> -9007199254740993) ((1819 . 5625) (+ -1 -9007199254740991) -> -9007199254740992) ((1820 . 5625) (+ -1 -9007199254740990) -> -9007199254740991) ((1821 . 5625) (+ 0 -9007199254740994) -> -9007199254740994) ((1822 . 5625) (+ 0 -9007199254740993) -> -9007199254740993) ((1823 . 5625) (+ 0 -9007199254740992) -> -9007199254740992) ((1824 . 5625) (+ 0 -9007199254740991) -> -9007199254740991) ((1825 . 5625) (+ 0 -9007199254740990) -> -9007199254740990) ((1826 . 5625) (+ -4 12343) -> 12339) ((1827 . 5625) (+ -4 12344) -> 12340) ((1828 . 5625) (+ -4 12345) -> 12341) ((1829 . 5625) (+ -4 12346) -> 12342) ((1830 . 5625) (+ -4 12347) -> 12343) ((1831 . 5625) (+ -3 12343) -> 12340) ((1832 . 5625) (+ -3 12344) -> 12341) ((1833 . 5625) (+ -3 12345) -> 12342) ((1834 . 5625) (+ -3 12346) -> 12343) ((1835 . 5625) (+ -3 12347) -> 12344) ((1836 . 5625) (+ -2 12343) -> 12341) ((1837 . 5625) (+ -2 12344) -> 12342) ((1838 . 5625) (+ -2 12345) -> 12343) ((1839 . 5625) (+ -2 12346) -> 12344) ((1840 . 5625) (+ -2 12347) -> 12345) ((1841 . 5625) (+ -1 12343) -> 12342) ((1842 . 5625) (+ -1 12344) -> 12343) ((1843 . 5625) (+ -1 12345) -> 12344) ((1844 . 5625) (+ -1 12346) -> 12345) ((1845 . 5625) (+ -1 12347) -> 12346) ((1846 . 5625) (+ 0 12343) -> 12343) ((1847 . 5625) (+ 0 12344) -> 12344) ((1848 . 5625) (+ 0 12345) -> 12345) ((1849 . 5625) (+ 0 12346) -> 12346) ((1850 . 5625) (+ 0 12347) -> 12347) ((1851 . 5625) (+ -4 4294967294) -> 4294967290) ((1852 . 5625) (+ -4 4294967295) -> 4294967291) ((1853 . 5625) (+ -4 4294967296) -> 4294967292) ((1854 . 5625) (+ -4 4294967297) -> 4294967293) ((1855 . 5625) (+ -4 4294967298) -> 4294967294) ((1856 . 5625) (+ -3 4294967294) -> 4294967291) ((1857 . 5625) (+ -3 4294967295) -> 4294967292) ((1858 . 5625) (+ -3 4294967296) -> 4294967293) ((1859 . 5625) (+ -3 4294967297) -> 4294967294) ((1860 . 5625) (+ -3 4294967298) -> 4294967295) ((1861 . 5625) (+ -2 4294967294) -> 4294967292) ((1862 . 5625) (+ -2 4294967295) -> 4294967293) ((1863 . 5625) (+ -2 4294967296) -> 4294967294) ((1864 . 5625) (+ -2 4294967297) -> 4294967295) ((1865 . 5625) (+ -2 4294967298) -> 4294967296) ((1866 . 5625) (+ -1 4294967294) -> 4294967293) ((1867 . 5625) (+ -1 4294967295) -> 4294967294) ((1868 . 5625) (+ -1 4294967296) -> 4294967295) ((1869 . 5625) (+ -1 4294967297) -> 4294967296) ((1870 . 5625) (+ -1 4294967298) -> 4294967297) ((1871 . 5625) (+ 0 4294967294) -> 4294967294) ((1872 . 5625) (+ 0 4294967295) -> 4294967295) ((1873 . 5625) (+ 0 4294967296) -> 4294967296) ((1874 . 5625) (+ 0 4294967297) -> 4294967297) ((1875 . 5625) (+ 0 4294967298) -> 4294967298) ((1876 . 5625) (+ 1073741821 -2) -> 1073741819) ((1877 . 5625) (+ 1073741821 -1) -> 1073741820) ((1878 . 5625) (+ 1073741821 0) -> 1073741821) ((1879 . 5625) (+ 1073741821 1) -> 1073741822) ((1880 . 5625) (+ 1073741821 2) -> 1073741823) ((1881 . 5625) (+ 1073741822 -2) -> 1073741820) ((1882 . 5625) (+ 1073741822 -1) -> 1073741821) ((1883 . 5625) (+ 1073741822 0) -> 1073741822) ((1884 . 5625) (+ 1073741822 1) -> 1073741823) ((1885 . 5625) (+ 1073741822 2) -> 1073741824) ((1886 . 5625) (+ 1073741823 -2) -> 1073741821) ((1887 . 5625) (+ 1073741823 -1) -> 1073741822) ((1888 . 5625) (+ 1073741823 0) -> 1073741823) ((1889 . 5625) (+ 1073741823 1) -> 1073741824) ((1890 . 5625) (+ 1073741823 2) -> 1073741825) ((1891 . 5625) (+ 1073741824 -2) -> 1073741822) ((1892 . 5625) (+ 1073741824 -1) -> 1073741823) ((1893 . 5625) (+ 1073741824 0) -> 1073741824) ((1894 . 5625) (+ 1073741824 1) -> 1073741825) ((1895 . 5625) (+ 1073741824 2) -> 1073741826) ((1896 . 5625) (+ 1073741825 -2) -> 1073741823) ((1897 . 5625) (+ 1073741825 -1) -> 1073741824) ((1898 . 5625) (+ 1073741825 0) -> 1073741825) ((1899 . 5625) (+ 1073741825 1) -> 1073741826) ((1900 . 5625) (+ 1073741825 2) -> 1073741827) ((1901 . 5625) (+ 1073741821 -1) -> 1073741820) ((1902 . 5625) (+ 1073741821 0) -> 1073741821) ((1903 . 5625) (+ 1073741821 1) -> 1073741822) ((1904 . 5625) (+ 1073741821 2) -> 1073741823) ((1905 . 5625) (+ 1073741821 3) -> 1073741824) ((1906 . 5625) (+ 1073741822 -1) -> 1073741821) ((1907 . 5625) (+ 1073741822 0) -> 1073741822) ((1908 . 5625) (+ 1073741822 1) -> 1073741823) ((1909 . 5625) (+ 1073741822 2) -> 1073741824) ((1910 . 5625) (+ 1073741822 3) -> 1073741825) ((1911 . 5625) (+ 1073741823 -1) -> 1073741822) ((1912 . 5625) (+ 1073741823 0) -> 1073741823) ((1913 . 5625) (+ 1073741823 1) -> 1073741824) ((1914 . 5625) (+ 1073741823 2) -> 1073741825) ((1915 . 5625) (+ 1073741823 3) -> 1073741826) ((1916 . 5625) (+ 1073741824 -1) -> 1073741823) ((1917 . 5625) (+ 1073741824 0) -> 1073741824) ((1918 . 5625) (+ 1073741824 1) -> 1073741825) ((1919 . 5625) (+ 1073741824 2) -> 1073741826) ((1920 . 5625) (+ 1073741824 3) -> 1073741827) ((1921 . 5625) (+ 1073741825 -1) -> 1073741824) ((1922 . 5625) (+ 1073741825 0) -> 1073741825) ((1923 . 5625) (+ 1073741825 1) -> 1073741826) ((1924 . 5625) (+ 1073741825 2) -> 1073741827) ((1925 . 5625) (+ 1073741825 3) -> 1073741828) ((1926 . 5625) (+ 1073741821 -3) -> 1073741818) ((1927 . 5625) (+ 1073741821 -2) -> 1073741819) ((1928 . 5625) (+ 1073741821 -1) -> 1073741820) ((1929 . 5625) (+ 1073741821 0) -> 1073741821) ((1930 . 5625) (+ 1073741821 1) -> 1073741822) ((1931 . 5625) (+ 1073741822 -3) -> 1073741819) ((1932 . 5625) (+ 1073741822 -2) -> 1073741820) ((1933 . 5625) (+ 1073741822 -1) -> 1073741821) ((1934 . 5625) (+ 1073741822 0) -> 1073741822) ((1935 . 5625) (+ 1073741822 1) -> 1073741823) ((1936 . 5625) (+ 1073741823 -3) -> 1073741820) ((1937 . 5625) (+ 1073741823 -2) -> 1073741821) ((1938 . 5625) (+ 1073741823 -1) -> 1073741822) ((1939 . 5625) (+ 1073741823 0) -> 1073741823) ((1940 . 5625) (+ 1073741823 1) -> 1073741824) ((1941 . 5625) (+ 1073741824 -3) -> 1073741821) ((1942 . 5625) (+ 1073741824 -2) -> 1073741822) ((1943 . 5625) (+ 1073741824 -1) -> 1073741823) ((1944 . 5625) (+ 1073741824 0) -> 1073741824) ((1945 . 5625) (+ 1073741824 1) -> 1073741825) ((1946 . 5625) (+ 1073741825 -3) -> 1073741822) ((1947 . 5625) (+ 1073741825 -2) -> 1073741823) ((1948 . 5625) (+ 1073741825 -1) -> 1073741824) ((1949 . 5625) (+ 1073741825 0) -> 1073741825) ((1950 . 5625) (+ 1073741825 1) -> 1073741826) ((1951 . 5625) (+ 1073741821 0) -> 1073741821) ((1952 . 5625) (+ 1073741821 1) -> 1073741822) ((1953 . 5625) (+ 1073741821 2) -> 1073741823) ((1954 . 5625) (+ 1073741821 3) -> 1073741824) ((1955 . 5625) (+ 1073741821 4) -> 1073741825) ((1956 . 5625) (+ 1073741822 0) -> 1073741822) ((1957 . 5625) (+ 1073741822 1) -> 1073741823) ((1958 . 5625) (+ 1073741822 2) -> 1073741824) ((1959 . 5625) (+ 1073741822 3) -> 1073741825) ((1960 . 5625) (+ 1073741822 4) -> 1073741826) ((1961 . 5625) (+ 1073741823 0) -> 1073741823) ((1962 . 5625) (+ 1073741823 1) -> 1073741824) ((1963 . 5625) (+ 1073741823 2) -> 1073741825) ((1964 . 5625) (+ 1073741823 3) -> 1073741826) ((1965 . 5625) (+ 1073741823 4) -> 1073741827) ((1966 . 5625) (+ 1073741824 0) -> 1073741824) ((1967 . 5625) (+ 1073741824 1) -> 1073741825) ((1968 . 5625) (+ 1073741824 2) -> 1073741826) ((1969 . 5625) (+ 1073741824 3) -> 1073741827) ((1970 . 5625) (+ 1073741824 4) -> 1073741828) ((1971 . 5625) (+ 1073741825 0) -> 1073741825) ((1972 . 5625) (+ 1073741825 1) -> 1073741826) ((1973 . 5625) (+ 1073741825 2) -> 1073741827) ((1974 . 5625) (+ 1073741825 3) -> 1073741828) ((1975 . 5625) (+ 1073741825 4) -> 1073741829) ((1976 . 5625) (+ 1073741821 -4) -> 1073741817) ((1977 . 5625) (+ 1073741821 -3) -> 1073741818) ((1978 . 5625) (+ 1073741821 -2) -> 1073741819) ((1979 . 5625) (+ 1073741821 -1) -> 1073741820) ((1980 . 5625) (+ 1073741821 0) -> 1073741821) ((1981 . 5625) (+ 1073741822 -4) -> 1073741818) ((1982 . 5625) (+ 1073741822 -3) -> 1073741819) ((1983 . 5625) (+ 1073741822 -2) -> 1073741820) ((1984 . 5625) (+ 1073741822 -1) -> 1073741821) ((1985 . 5625) (+ 1073741822 0) -> 1073741822) ((1986 . 5625) (+ 1073741823 -4) -> 1073741819) ((1987 . 5625) (+ 1073741823 -3) -> 1073741820) ((1988 . 5625) (+ 1073741823 -2) -> 1073741821) ((1989 . 5625) (+ 1073741823 -1) -> 1073741822) ((1990 . 5625) (+ 1073741823 0) -> 1073741823) ((1991 . 5625) (+ 1073741824 -4) -> 1073741820) ((1992 . 5625) (+ 1073741824 -3) -> 1073741821) ((1993 . 5625) (+ 1073741824 -2) -> 1073741822) ((1994 . 5625) (+ 1073741824 -1) -> 1073741823) ((1995 . 5625) (+ 1073741824 0) -> 1073741824) ((1996 . 5625) (+ 1073741825 -4) -> 1073741821) ((1997 . 5625) (+ 1073741825 -3) -> 1073741822) ((1998 . 5625) (+ 1073741825 -2) -> 1073741823) ((1999 . 5625) (+ 1073741825 -1) -> 1073741824) ((2000 . 5625) (+ 1073741825 0) -> 1073741825) ((2001 . 5625) (+ 1073741821 1073741821) -> 2147483642) ((2002 . 5625) (+ 1073741821 1073741822) -> 2147483643) ((2003 . 5625) (+ 1073741821 1073741823) -> 2147483644) ((2004 . 5625) (+ 1073741821 1073741824) -> 2147483645) ((2005 . 5625) (+ 1073741821 1073741825) -> 2147483646) ((2006 . 5625) (+ 1073741822 1073741821) -> 2147483643) ((2007 . 5625) (+ 1073741822 1073741822) -> 2147483644) ((2008 . 5625) (+ 1073741822 1073741823) -> 2147483645) ((2009 . 5625) (+ 1073741822 1073741824) -> 2147483646) ((2010 . 5625) (+ 1073741822 1073741825) -> 2147483647) ((2011 . 5625) (+ 1073741823 1073741821) -> 2147483644) ((2012 . 5625) (+ 1073741823 1073741822) -> 2147483645) ((2013 . 5625) (+ 1073741823 1073741823) -> 2147483646) ((2014 . 5625) (+ 1073741823 1073741824) -> 2147483647) ((2015 . 5625) (+ 1073741823 1073741825) -> 2147483648) ((2016 . 5625) (+ 1073741824 1073741821) -> 2147483645) ((2017 . 5625) (+ 1073741824 1073741822) -> 2147483646) ((2018 . 5625) (+ 1073741824 1073741823) -> 2147483647) ((2019 . 5625) (+ 1073741824 1073741824) -> 2147483648) ((2020 . 5625) (+ 1073741824 1073741825) -> 2147483649) ((2021 . 5625) (+ 1073741825 1073741821) -> 2147483646) ((2022 . 5625) (+ 1073741825 1073741822) -> 2147483647) ((2023 . 5625) (+ 1073741825 1073741823) -> 2147483648) ((2024 . 5625) (+ 1073741825 1073741824) -> 2147483649) ((2025 . 5625) (+ 1073741825 1073741825) -> 2147483650) ((2026 . 5625) (+ 1073741821 -1073741826) -> -5) ((2027 . 5625) (+ 1073741821 -1073741825) -> -4) ((2028 . 5625) (+ 1073741821 -1073741824) -> -3) ((2029 . 5625) (+ 1073741821 -1073741823) -> -2) ((2030 . 5625) (+ 1073741821 -1073741822) -> -1) ((2031 . 5625) (+ 1073741822 -1073741826) -> -4) ((2032 . 5625) (+ 1073741822 -1073741825) -> -3) ((2033 . 5625) (+ 1073741822 -1073741824) -> -2) ((2034 . 5625) (+ 1073741822 -1073741823) -> -1) ((2035 . 5625) (+ 1073741822 -1073741822) -> 0) ((2036 . 5625) (+ 1073741823 -1073741826) -> -3) ((2037 . 5625) (+ 1073741823 -1073741825) -> -2) ((2038 . 5625) (+ 1073741823 -1073741824) -> -1) ((2039 . 5625) (+ 1073741823 -1073741823) -> 0) ((2040 . 5625) (+ 1073741823 -1073741822) -> 1) ((2041 . 5625) (+ 1073741824 -1073741826) -> -2) ((2042 . 5625) (+ 1073741824 -1073741825) -> -1) ((2043 . 5625) (+ 1073741824 -1073741824) -> 0) ((2044 . 5625) (+ 1073741824 -1073741823) -> 1) ((2045 . 5625) (+ 1073741824 -1073741822) -> 2) ((2046 . 5625) (+ 1073741825 -1073741826) -> -1) ((2047 . 5625) (+ 1073741825 -1073741825) -> 0) ((2048 . 5625) (+ 1073741825 -1073741824) -> 1) ((2049 . 5625) (+ 1073741825 -1073741823) -> 2) ((2050 . 5625) (+ 1073741825 -1073741822) -> 3) ((2051 . 5625) (+ 1073741821 1073741822) -> 2147483643) ((2052 . 5625) (+ 1073741821 1073741823) -> 2147483644) ((2053 . 5625) (+ 1073741821 1073741824) -> 2147483645) ((2054 . 5625) (+ 1073741821 1073741825) -> 2147483646) ((2055 . 5625) (+ 1073741821 1073741826) -> 2147483647) ((2056 . 5625) (+ 1073741822 1073741822) -> 2147483644) ((2057 . 5625) (+ 1073741822 1073741823) -> 2147483645) ((2058 . 5625) (+ 1073741822 1073741824) -> 2147483646) ((2059 . 5625) (+ 1073741822 1073741825) -> 2147483647) ((2060 . 5625) (+ 1073741822 1073741826) -> 2147483648) ((2061 . 5625) (+ 1073741823 1073741822) -> 2147483645) ((2062 . 5625) (+ 1073741823 1073741823) -> 2147483646) ((2063 . 5625) (+ 1073741823 1073741824) -> 2147483647) ((2064 . 5625) (+ 1073741823 1073741825) -> 2147483648) ((2065 . 5625) (+ 1073741823 1073741826) -> 2147483649) ((2066 . 5625) (+ 1073741824 1073741822) -> 2147483646) ((2067 . 5625) (+ 1073741824 1073741823) -> 2147483647) ((2068 . 5625) (+ 1073741824 1073741824) -> 2147483648) ((2069 . 5625) (+ 1073741824 1073741825) -> 2147483649) ((2070 . 5625) (+ 1073741824 1073741826) -> 2147483650) ((2071 . 5625) (+ 1073741825 1073741822) -> 2147483647) ((2072 . 5625) (+ 1073741825 1073741823) -> 2147483648) ((2073 . 5625) (+ 1073741825 1073741824) -> 2147483649) ((2074 . 5625) (+ 1073741825 1073741825) -> 2147483650) ((2075 . 5625) (+ 1073741825 1073741826) -> 2147483651) ((2076 . 5625) (+ 1073741821 -1073741827) -> -6) ((2077 . 5625) (+ 1073741821 -1073741826) -> -5) ((2078 . 5625) (+ 1073741821 -1073741825) -> -4) ((2079 . 5625) (+ 1073741821 -1073741824) -> -3) ((2080 . 5625) (+ 1073741821 -1073741823) -> -2) ((2081 . 5625) (+ 1073741822 -1073741827) -> -5) ((2082 . 5625) (+ 1073741822 -1073741826) -> -4) ((2083 . 5625) (+ 1073741822 -1073741825) -> -3) ((2084 . 5625) (+ 1073741822 -1073741824) -> -2) ((2085 . 5625) (+ 1073741822 -1073741823) -> -1) ((2086 . 5625) (+ 1073741823 -1073741827) -> -4) ((2087 . 5625) (+ 1073741823 -1073741826) -> -3) ((2088 . 5625) (+ 1073741823 -1073741825) -> -2) ((2089 . 5625) (+ 1073741823 -1073741824) -> -1) ((2090 . 5625) (+ 1073741823 -1073741823) -> 0) ((2091 . 5625) (+ 1073741824 -1073741827) -> -3) ((2092 . 5625) (+ 1073741824 -1073741826) -> -2) ((2093 . 5625) (+ 1073741824 -1073741825) -> -1) ((2094 . 5625) (+ 1073741824 -1073741824) -> 0) ((2095 . 5625) (+ 1073741824 -1073741823) -> 1) ((2096 . 5625) (+ 1073741825 -1073741827) -> -2) ((2097 . 5625) (+ 1073741825 -1073741826) -> -1) ((2098 . 5625) (+ 1073741825 -1073741825) -> 0) ((2099 . 5625) (+ 1073741825 -1073741824) -> 1) ((2100 . 5625) (+ 1073741825 -1073741823) -> 2) ((2101 . 5625) (+ 1073741821 1103515243) -> 2177257064) ((2102 . 5625) (+ 1073741821 1103515244) -> 2177257065) ((2103 . 5625) (+ 1073741821 1103515245) -> 2177257066) ((2104 . 5625) (+ 1073741821 1103515246) -> 2177257067) ((2105 . 5625) (+ 1073741821 1103515247) -> 2177257068) ((2106 . 5625) (+ 1073741822 1103515243) -> 2177257065) ((2107 . 5625) (+ 1073741822 1103515244) -> 2177257066) ((2108 . 5625) (+ 1073741822 1103515245) -> 2177257067) ((2109 . 5625) (+ 1073741822 1103515246) -> 2177257068) ((2110 . 5625) (+ 1073741822 1103515247) -> 2177257069) ((2111 . 5625) (+ 1073741823 1103515243) -> 2177257066) ((2112 . 5625) (+ 1073741823 1103515244) -> 2177257067) ((2113 . 5625) (+ 1073741823 1103515245) -> 2177257068) ((2114 . 5625) (+ 1073741823 1103515246) -> 2177257069) ((2115 . 5625) (+ 1073741823 1103515247) -> 2177257070) ((2116 . 5625) (+ 1073741824 1103515243) -> 2177257067) ((2117 . 5625) (+ 1073741824 1103515244) -> 2177257068) ((2118 . 5625) (+ 1073741824 1103515245) -> 2177257069) ((2119 . 5625) (+ 1073741824 1103515246) -> 2177257070) ((2120 . 5625) (+ 1073741824 1103515247) -> 2177257071) ((2121 . 5625) (+ 1073741825 1103515243) -> 2177257068) ((2122 . 5625) (+ 1073741825 1103515244) -> 2177257069) ((2123 . 5625) (+ 1073741825 1103515245) -> 2177257070) ((2124 . 5625) (+ 1073741825 1103515246) -> 2177257071) ((2125 . 5625) (+ 1073741825 1103515247) -> 2177257072) ((2126 . 5625) (+ 1073741821 631629063) -> 1705370884) ((2127 . 5625) (+ 1073741821 631629064) -> 1705370885) ((2128 . 5625) (+ 1073741821 631629065) -> 1705370886) ((2129 . 5625) (+ 1073741821 631629066) -> 1705370887) ((2130 . 5625) (+ 1073741821 631629067) -> 1705370888) ((2131 . 5625) (+ 1073741822 631629063) -> 1705370885) ((2132 . 5625) (+ 1073741822 631629064) -> 1705370886) ((2133 . 5625) (+ 1073741822 631629065) -> 1705370887) ((2134 . 5625) (+ 1073741822 631629066) -> 1705370888) ((2135 . 5625) (+ 1073741822 631629067) -> 1705370889) ((2136 . 5625) (+ 1073741823 631629063) -> 1705370886) ((2137 . 5625) (+ 1073741823 631629064) -> 1705370887) ((2138 . 5625) (+ 1073741823 631629065) -> 1705370888) ((2139 . 5625) (+ 1073741823 631629066) -> 1705370889) ((2140 . 5625) (+ 1073741823 631629067) -> 1705370890) ((2141 . 5625) (+ 1073741824 631629063) -> 1705370887) ((2142 . 5625) (+ 1073741824 631629064) -> 1705370888) ((2143 . 5625) (+ 1073741824 631629065) -> 1705370889) ((2144 . 5625) (+ 1073741824 631629066) -> 1705370890) ((2145 . 5625) (+ 1073741824 631629067) -> 1705370891) ((2146 . 5625) (+ 1073741825 631629063) -> 1705370888) ((2147 . 5625) (+ 1073741825 631629064) -> 1705370889) ((2148 . 5625) (+ 1073741825 631629065) -> 1705370890) ((2149 . 5625) (+ 1073741825 631629066) -> 1705370891) ((2150 . 5625) (+ 1073741825 631629067) -> 1705370892) ((2151 . 5625) (+ 1073741821 9007199254740990) -> 9007200328482811) ((2152 . 5625) (+ 1073741821 9007199254740991) -> 9007200328482812) ((2153 . 5625) (+ 1073741821 9007199254740992) -> 9007200328482813) ((2154 . 5625) (+ 1073741821 9007199254740993) -> 9007200328482814) ((2155 . 5625) (+ 1073741821 9007199254740994) -> 9007200328482815) ((2156 . 5625) (+ 1073741822 9007199254740990) -> 9007200328482812) ((2157 . 5625) (+ 1073741822 9007199254740991) -> 9007200328482813) ((2158 . 5625) (+ 1073741822 9007199254740992) -> 9007200328482814) ((2159 . 5625) (+ 1073741822 9007199254740993) -> 9007200328482815) ((2160 . 5625) (+ 1073741822 9007199254740994) -> 9007200328482816) ((2161 . 5625) (+ 1073741823 9007199254740990) -> 9007200328482813) ((2162 . 5625) (+ 1073741823 9007199254740991) -> 9007200328482814) ((2163 . 5625) (+ 1073741823 9007199254740992) -> 9007200328482815) ((2164 . 5625) (+ 1073741823 9007199254740993) -> 9007200328482816) ((2165 . 5625) (+ 1073741823 9007199254740994) -> 9007200328482817) ((2166 . 5625) (+ 1073741824 9007199254740990) -> 9007200328482814) ((2167 . 5625) (+ 1073741824 9007199254740991) -> 9007200328482815) ((2168 . 5625) (+ 1073741824 9007199254740992) -> 9007200328482816) ((2169 . 5625) (+ 1073741824 9007199254740993) -> 9007200328482817) ((2170 . 5625) (+ 1073741824 9007199254740994) -> 9007200328482818) ((2171 . 5625) (+ 1073741825 9007199254740990) -> 9007200328482815) ((2172 . 5625) (+ 1073741825 9007199254740991) -> 9007200328482816) ((2173 . 5625) (+ 1073741825 9007199254740992) -> 9007200328482817) ((2174 . 5625) (+ 1073741825 9007199254740993) -> 9007200328482818) ((2175 . 5625) (+ 1073741825 9007199254740994) -> 9007200328482819) ((2176 . 5625) (+ 1073741821 -9007199254740994) -> -9007198180999173) ((2177 . 5625) (+ 1073741821 -9007199254740993) -> -9007198180999172) ((2178 . 5625) (+ 1073741821 -9007199254740992) -> -9007198180999171) ((2179 . 5625) (+ 1073741821 -9007199254740991) -> -9007198180999170) ((2180 . 5625) (+ 1073741821 -9007199254740990) -> -9007198180999169) ((2181 . 5625) (+ 1073741822 -9007199254740994) -> -9007198180999172) ((2182 . 5625) (+ 1073741822 -9007199254740993) -> -9007198180999171) ((2183 . 5625) (+ 1073741822 -9007199254740992) -> -9007198180999170) ((2184 . 5625) (+ 1073741822 -9007199254740991) -> -9007198180999169) ((2185 . 5625) (+ 1073741822 -9007199254740990) -> -9007198180999168) ((2186 . 5625) (+ 1073741823 -9007199254740994) -> -9007198180999171) ((2187 . 5625) (+ 1073741823 -9007199254740993) -> -9007198180999170) ((2188 . 5625) (+ 1073741823 -9007199254740992) -> -9007198180999169) ((2189 . 5625) (+ 1073741823 -9007199254740991) -> -9007198180999168) ((2190 . 5625) (+ 1073741823 -9007199254740990) -> -9007198180999167) ((2191 . 5625) (+ 1073741824 -9007199254740994) -> -9007198180999170) ((2192 . 5625) (+ 1073741824 -9007199254740993) -> -9007198180999169) ((2193 . 5625) (+ 1073741824 -9007199254740992) -> -9007198180999168) ((2194 . 5625) (+ 1073741824 -9007199254740991) -> -9007198180999167) ((2195 . 5625) (+ 1073741824 -9007199254740990) -> -9007198180999166) ((2196 . 5625) (+ 1073741825 -9007199254740994) -> -9007198180999169) ((2197 . 5625) (+ 1073741825 -9007199254740993) -> -9007198180999168) ((2198 . 5625) (+ 1073741825 -9007199254740992) -> -9007198180999167) ((2199 . 5625) (+ 1073741825 -9007199254740991) -> -9007198180999166) ((2200 . 5625) (+ 1073741825 -9007199254740990) -> -9007198180999165) ((2201 . 5625) (+ 1073741821 12343) -> 1073754164) ((2202 . 5625) (+ 1073741821 12344) -> 1073754165) ((2203 . 5625) (+ 1073741821 12345) -> 1073754166) ((2204 . 5625) (+ 1073741821 12346) -> 1073754167) ((2205 . 5625) (+ 1073741821 12347) -> 1073754168) ((2206 . 5625) (+ 1073741822 12343) -> 1073754165) ((2207 . 5625) (+ 1073741822 12344) -> 1073754166) ((2208 . 5625) (+ 1073741822 12345) -> 1073754167) ((2209 . 5625) (+ 1073741822 12346) -> 1073754168) ((2210 . 5625) (+ 1073741822 12347) -> 1073754169) ((2211 . 5625) (+ 1073741823 12343) -> 1073754166) ((2212 . 5625) (+ 1073741823 12344) -> 1073754167) ((2213 . 5625) (+ 1073741823 12345) -> 1073754168) ((2214 . 5625) (+ 1073741823 12346) -> 1073754169) ((2215 . 5625) (+ 1073741823 12347) -> 1073754170) ((2216 . 5625) (+ 1073741824 12343) -> 1073754167) ((2217 . 5625) (+ 1073741824 12344) -> 1073754168) ((2218 . 5625) (+ 1073741824 12345) -> 1073754169) ((2219 . 5625) (+ 1073741824 12346) -> 1073754170) ((2220 . 5625) (+ 1073741824 12347) -> 1073754171) ((2221 . 5625) (+ 1073741825 12343) -> 1073754168) ((2222 . 5625) (+ 1073741825 12344) -> 1073754169) ((2223 . 5625) (+ 1073741825 12345) -> 1073754170) ((2224 . 5625) (+ 1073741825 12346) -> 1073754171) ((2225 . 5625) (+ 1073741825 12347) -> 1073754172) ((2226 . 5625) (+ 1073741821 4294967294) -> 5368709115) ((2227 . 5625) (+ 1073741821 4294967295) -> 5368709116) ((2228 . 5625) (+ 1073741821 4294967296) -> 5368709117) ((2229 . 5625) (+ 1073741821 4294967297) -> 5368709118) ((2230 . 5625) (+ 1073741821 4294967298) -> 5368709119) ((2231 . 5625) (+ 1073741822 4294967294) -> 5368709116) ((2232 . 5625) (+ 1073741822 4294967295) -> 5368709117) ((2233 . 5625) (+ 1073741822 4294967296) -> 5368709118) ((2234 . 5625) (+ 1073741822 4294967297) -> 5368709119) ((2235 . 5625) (+ 1073741822 4294967298) -> 5368709120) ((2236 . 5625) (+ 1073741823 4294967294) -> 5368709117) ((2237 . 5625) (+ 1073741823 4294967295) -> 5368709118) ((2238 . 5625) (+ 1073741823 4294967296) -> 5368709119) ((2239 . 5625) (+ 1073741823 4294967297) -> 5368709120) ((2240 . 5625) (+ 1073741823 4294967298) -> 5368709121) ((2241 . 5625) (+ 1073741824 4294967294) -> 5368709118) ((2242 . 5625) (+ 1073741824 4294967295) -> 5368709119) ((2243 . 5625) (+ 1073741824 4294967296) -> 5368709120) ((2244 . 5625) (+ 1073741824 4294967297) -> 5368709121) ((2245 . 5625) (+ 1073741824 4294967298) -> 5368709122) ((2246 . 5625) (+ 1073741825 4294967294) -> 5368709119) ((2247 . 5625) (+ 1073741825 4294967295) -> 5368709120) ((2248 . 5625) (+ 1073741825 4294967296) -> 5368709121) ((2249 . 5625) (+ 1073741825 4294967297) -> 5368709122) ((2250 . 5625) (+ 1073741825 4294967298) -> 5368709123) ((2251 . 5625) (+ -1073741826 -2) -> -1073741828) ((2252 . 5625) (+ -1073741826 -1) -> -1073741827) ((2253 . 5625) (+ -1073741826 0) -> -1073741826) ((2254 . 5625) (+ -1073741826 1) -> -1073741825) ((2255 . 5625) (+ -1073741826 2) -> -1073741824) ((2256 . 5625) (+ -1073741825 -2) -> -1073741827) ((2257 . 5625) (+ -1073741825 -1) -> -1073741826) ((2258 . 5625) (+ -1073741825 0) -> -1073741825) ((2259 . 5625) (+ -1073741825 1) -> -1073741824) ((2260 . 5625) (+ -1073741825 2) -> -1073741823) ((2261 . 5625) (+ -1073741824 -2) -> -1073741826) ((2262 . 5625) (+ -1073741824 -1) -> -1073741825) ((2263 . 5625) (+ -1073741824 0) -> -1073741824) ((2264 . 5625) (+ -1073741824 1) -> -1073741823) ((2265 . 5625) (+ -1073741824 2) -> -1073741822) ((2266 . 5625) (+ -1073741823 -2) -> -1073741825) ((2267 . 5625) (+ -1073741823 -1) -> -1073741824) ((2268 . 5625) (+ -1073741823 0) -> -1073741823) ((2269 . 5625) (+ -1073741823 1) -> -1073741822) ((2270 . 5625) (+ -1073741823 2) -> -1073741821) ((2271 . 5625) (+ -1073741822 -2) -> -1073741824) ((2272 . 5625) (+ -1073741822 -1) -> -1073741823) ((2273 . 5625) (+ -1073741822 0) -> -1073741822) ((2274 . 5625) (+ -1073741822 1) -> -1073741821) ((2275 . 5625) (+ -1073741822 2) -> -1073741820) ((2276 . 5625) (+ -1073741826 -1) -> -1073741827) ((2277 . 5625) (+ -1073741826 0) -> -1073741826) ((2278 . 5625) (+ -1073741826 1) -> -1073741825) ((2279 . 5625) (+ -1073741826 2) -> -1073741824) ((2280 . 5625) (+ -1073741826 3) -> -1073741823) ((2281 . 5625) (+ -1073741825 -1) -> -1073741826) ((2282 . 5625) (+ -1073741825 0) -> -1073741825) ((2283 . 5625) (+ -1073741825 1) -> -1073741824) ((2284 . 5625) (+ -1073741825 2) -> -1073741823) ((2285 . 5625) (+ -1073741825 3) -> -1073741822) ((2286 . 5625) (+ -1073741824 -1) -> -1073741825) ((2287 . 5625) (+ -1073741824 0) -> -1073741824) ((2288 . 5625) (+ -1073741824 1) -> -1073741823) ((2289 . 5625) (+ -1073741824 2) -> -1073741822) ((2290 . 5625) (+ -1073741824 3) -> -1073741821) ((2291 . 5625) (+ -1073741823 -1) -> -1073741824) ((2292 . 5625) (+ -1073741823 0) -> -1073741823) ((2293 . 5625) (+ -1073741823 1) -> -1073741822) ((2294 . 5625) (+ -1073741823 2) -> -1073741821) ((2295 . 5625) (+ -1073741823 3) -> -1073741820) ((2296 . 5625) (+ -1073741822 -1) -> -1073741823) ((2297 . 5625) (+ -1073741822 0) -> -1073741822) ((2298 . 5625) (+ -1073741822 1) -> -1073741821) ((2299 . 5625) (+ -1073741822 2) -> -1073741820) ((2300 . 5625) (+ -1073741822 3) -> -1073741819) ((2301 . 5625) (+ -1073741826 -3) -> -1073741829) ((2302 . 5625) (+ -1073741826 -2) -> -1073741828) ((2303 . 5625) (+ -1073741826 -1) -> -1073741827) ((2304 . 5625) (+ -1073741826 0) -> -1073741826) ((2305 . 5625) (+ -1073741826 1) -> -1073741825) ((2306 . 5625) (+ -1073741825 -3) -> -1073741828) ((2307 . 5625) (+ -1073741825 -2) -> -1073741827) ((2308 . 5625) (+ -1073741825 -1) -> -1073741826) ((2309 . 5625) (+ -1073741825 0) -> -1073741825) ((2310 . 5625) (+ -1073741825 1) -> -1073741824) ((2311 . 5625) (+ -1073741824 -3) -> -1073741827) ((2312 . 5625) (+ -1073741824 -2) -> -1073741826) ((2313 . 5625) (+ -1073741824 -1) -> -1073741825) ((2314 . 5625) (+ -1073741824 0) -> -1073741824) ((2315 . 5625) (+ -1073741824 1) -> -1073741823) ((2316 . 5625) (+ -1073741823 -3) -> -1073741826) ((2317 . 5625) (+ -1073741823 -2) -> -1073741825) ((2318 . 5625) (+ -1073741823 -1) -> -1073741824) ((2319 . 5625) (+ -1073741823 0) -> -1073741823) ((2320 . 5625) (+ -1073741823 1) -> -1073741822) ((2321 . 5625) (+ -1073741822 -3) -> -1073741825) ((2322 . 5625) (+ -1073741822 -2) -> -1073741824) ((2323 . 5625) (+ -1073741822 -1) -> -1073741823) ((2324 . 5625) (+ -1073741822 0) -> -1073741822) ((2325 . 5625) (+ -1073741822 1) -> -1073741821) ((2326 . 5625) (+ -1073741826 0) -> -1073741826) ((2327 . 5625) (+ -1073741826 1) -> -1073741825) ((2328 . 5625) (+ -1073741826 2) -> -1073741824) ((2329 . 5625) (+ -1073741826 3) -> -1073741823) ((2330 . 5625) (+ -1073741826 4) -> -1073741822) ((2331 . 5625) (+ -1073741825 0) -> -1073741825) ((2332 . 5625) (+ -1073741825 1) -> -1073741824) ((2333 . 5625) (+ -1073741825 2) -> -1073741823) ((2334 . 5625) (+ -1073741825 3) -> -1073741822) ((2335 . 5625) (+ -1073741825 4) -> -1073741821) ((2336 . 5625) (+ -1073741824 0) -> -1073741824) ((2337 . 5625) (+ -1073741824 1) -> -1073741823) ((2338 . 5625) (+ -1073741824 2) -> -1073741822) ((2339 . 5625) (+ -1073741824 3) -> -1073741821) ((2340 . 5625) (+ -1073741824 4) -> -1073741820) ((2341 . 5625) (+ -1073741823 0) -> -1073741823) ((2342 . 5625) (+ -1073741823 1) -> -1073741822) ((2343 . 5625) (+ -1073741823 2) -> -1073741821) ((2344 . 5625) (+ -1073741823 3) -> -1073741820) ((2345 . 5625) (+ -1073741823 4) -> -1073741819) ((2346 . 5625) (+ -1073741822 0) -> -1073741822) ((2347 . 5625) (+ -1073741822 1) -> -1073741821) ((2348 . 5625) (+ -1073741822 2) -> -1073741820) ((2349 . 5625) (+ -1073741822 3) -> -1073741819) ((2350 . 5625) (+ -1073741822 4) -> -1073741818) ((2351 . 5625) (+ -1073741826 -4) -> -1073741830) ((2352 . 5625) (+ -1073741826 -3) -> -1073741829) ((2353 . 5625) (+ -1073741826 -2) -> -1073741828) ((2354 . 5625) (+ -1073741826 -1) -> -1073741827) ((2355 . 5625) (+ -1073741826 0) -> -1073741826) ((2356 . 5625) (+ -1073741825 -4) -> -1073741829) ((2357 . 5625) (+ -1073741825 -3) -> -1073741828) ((2358 . 5625) (+ -1073741825 -2) -> -1073741827) ((2359 . 5625) (+ -1073741825 -1) -> -1073741826) ((2360 . 5625) (+ -1073741825 0) -> -1073741825) ((2361 . 5625) (+ -1073741824 -4) -> -1073741828) ((2362 . 5625) (+ -1073741824 -3) -> -1073741827) ((2363 . 5625) (+ -1073741824 -2) -> -1073741826) ((2364 . 5625) (+ -1073741824 -1) -> -1073741825) ((2365 . 5625) (+ -1073741824 0) -> -1073741824) ((2366 . 5625) (+ -1073741823 -4) -> -1073741827) ((2367 . 5625) (+ -1073741823 -3) -> -1073741826) ((2368 . 5625) (+ -1073741823 -2) -> -1073741825) ((2369 . 5625) (+ -1073741823 -1) -> -1073741824) ((2370 . 5625) (+ -1073741823 0) -> -1073741823) ((2371 . 5625) (+ -1073741822 -4) -> -1073741826) ((2372 . 5625) (+ -1073741822 -3) -> -1073741825) ((2373 . 5625) (+ -1073741822 -2) -> -1073741824) ((2374 . 5625) (+ -1073741822 -1) -> -1073741823) ((2375 . 5625) (+ -1073741822 0) -> -1073741822) ((2376 . 5625) (+ -1073741826 1073741821) -> -5) ((2377 . 5625) (+ -1073741826 1073741822) -> -4) ((2378 . 5625) (+ -1073741826 1073741823) -> -3) ((2379 . 5625) (+ -1073741826 1073741824) -> -2) ((2380 . 5625) (+ -1073741826 1073741825) -> -1) ((2381 . 5625) (+ -1073741825 1073741821) -> -4) ((2382 . 5625) (+ -1073741825 1073741822) -> -3) ((2383 . 5625) (+ -1073741825 1073741823) -> -2) ((2384 . 5625) (+ -1073741825 1073741824) -> -1) ((2385 . 5625) (+ -1073741825 1073741825) -> 0) ((2386 . 5625) (+ -1073741824 1073741821) -> -3) ((2387 . 5625) (+ -1073741824 1073741822) -> -2) ((2388 . 5625) (+ -1073741824 1073741823) -> -1) ((2389 . 5625) (+ -1073741824 1073741824) -> 0) ((2390 . 5625) (+ -1073741824 1073741825) -> 1) ((2391 . 5625) (+ -1073741823 1073741821) -> -2) ((2392 . 5625) (+ -1073741823 1073741822) -> -1) ((2393 . 5625) (+ -1073741823 1073741823) -> 0) ((2394 . 5625) (+ -1073741823 1073741824) -> 1) ((2395 . 5625) (+ -1073741823 1073741825) -> 2) ((2396 . 5625) (+ -1073741822 1073741821) -> -1) ((2397 . 5625) (+ -1073741822 1073741822) -> 0) ((2398 . 5625) (+ -1073741822 1073741823) -> 1) ((2399 . 5625) (+ -1073741822 1073741824) -> 2) ((2400 . 5625) (+ -1073741822 1073741825) -> 3) ((2401 . 5625) (+ -1073741826 -1073741826) -> -2147483652) ((2402 . 5625) (+ -1073741826 -1073741825) -> -2147483651) ((2403 . 5625) (+ -1073741826 -1073741824) -> -2147483650) ((2404 . 5625) (+ -1073741826 -1073741823) -> -2147483649) ((2405 . 5625) (+ -1073741826 -1073741822) -> -2147483648) ((2406 . 5625) (+ -1073741825 -1073741826) -> -2147483651) ((2407 . 5625) (+ -1073741825 -1073741825) -> -2147483650) ((2408 . 5625) (+ -1073741825 -1073741824) -> -2147483649) ((2409 . 5625) (+ -1073741825 -1073741823) -> -2147483648) ((2410 . 5625) (+ -1073741825 -1073741822) -> -2147483647) ((2411 . 5625) (+ -1073741824 -1073741826) -> -2147483650) ((2412 . 5625) (+ -1073741824 -1073741825) -> -2147483649) ((2413 . 5625) (+ -1073741824 -1073741824) -> -2147483648) ((2414 . 5625) (+ -1073741824 -1073741823) -> -2147483647) ((2415 . 5625) (+ -1073741824 -1073741822) -> -2147483646) ((2416 . 5625) (+ -1073741823 -1073741826) -> -2147483649) ((2417 . 5625) (+ -1073741823 -1073741825) -> -2147483648) ((2418 . 5625) (+ -1073741823 -1073741824) -> -2147483647) ((2419 . 5625) (+ -1073741823 -1073741823) -> -2147483646) ((2420 . 5625) (+ -1073741823 -1073741822) -> -2147483645) ((2421 . 5625) (+ -1073741822 -1073741826) -> -2147483648) ((2422 . 5625) (+ -1073741822 -1073741825) -> -2147483647) ((2423 . 5625) (+ -1073741822 -1073741824) -> -2147483646) ((2424 . 5625) (+ -1073741822 -1073741823) -> -2147483645) ((2425 . 5625) (+ -1073741822 -1073741822) -> -2147483644) ((2426 . 5625) (+ -1073741826 1073741822) -> -4) ((2427 . 5625) (+ -1073741826 1073741823) -> -3) ((2428 . 5625) (+ -1073741826 1073741824) -> -2) ((2429 . 5625) (+ -1073741826 1073741825) -> -1) ((2430 . 5625) (+ -1073741826 1073741826) -> 0) ((2431 . 5625) (+ -1073741825 1073741822) -> -3) ((2432 . 5625) (+ -1073741825 1073741823) -> -2) ((2433 . 5625) (+ -1073741825 1073741824) -> -1) ((2434 . 5625) (+ -1073741825 1073741825) -> 0) ((2435 . 5625) (+ -1073741825 1073741826) -> 1) ((2436 . 5625) (+ -1073741824 1073741822) -> -2) ((2437 . 5625) (+ -1073741824 1073741823) -> -1) ((2438 . 5625) (+ -1073741824 1073741824) -> 0) ((2439 . 5625) (+ -1073741824 1073741825) -> 1) ((2440 . 5625) (+ -1073741824 1073741826) -> 2) ((2441 . 5625) (+ -1073741823 1073741822) -> -1) ((2442 . 5625) (+ -1073741823 1073741823) -> 0) ((2443 . 5625) (+ -1073741823 1073741824) -> 1) ((2444 . 5625) (+ -1073741823 1073741825) -> 2) ((2445 . 5625) (+ -1073741823 1073741826) -> 3) ((2446 . 5625) (+ -1073741822 1073741822) -> 0) ((2447 . 5625) (+ -1073741822 1073741823) -> 1) ((2448 . 5625) (+ -1073741822 1073741824) -> 2) ((2449 . 5625) (+ -1073741822 1073741825) -> 3) ((2450 . 5625) (+ -1073741822 1073741826) -> 4) ((2451 . 5625) (+ -1073741826 -1073741827) -> -2147483653) ((2452 . 5625) (+ -1073741826 -1073741826) -> -2147483652) ((2453 . 5625) (+ -1073741826 -1073741825) -> -2147483651) ((2454 . 5625) (+ -1073741826 -1073741824) -> -2147483650) ((2455 . 5625) (+ -1073741826 -1073741823) -> -2147483649) ((2456 . 5625) (+ -1073741825 -1073741827) -> -2147483652) ((2457 . 5625) (+ -1073741825 -1073741826) -> -2147483651) ((2458 . 5625) (+ -1073741825 -1073741825) -> -2147483650) ((2459 . 5625) (+ -1073741825 -1073741824) -> -2147483649) ((2460 . 5625) (+ -1073741825 -1073741823) -> -2147483648) ((2461 . 5625) (+ -1073741824 -1073741827) -> -2147483651) ((2462 . 5625) (+ -1073741824 -1073741826) -> -2147483650) ((2463 . 5625) (+ -1073741824 -1073741825) -> -2147483649) ((2464 . 5625) (+ -1073741824 -1073741824) -> -2147483648) ((2465 . 5625) (+ -1073741824 -1073741823) -> -2147483647) ((2466 . 5625) (+ -1073741823 -1073741827) -> -2147483650) ((2467 . 5625) (+ -1073741823 -1073741826) -> -2147483649) ((2468 . 5625) (+ -1073741823 -1073741825) -> -2147483648) ((2469 . 5625) (+ -1073741823 -1073741824) -> -2147483647) ((2470 . 5625) (+ -1073741823 -1073741823) -> -2147483646) ((2471 . 5625) (+ -1073741822 -1073741827) -> -2147483649) ((2472 . 5625) (+ -1073741822 -1073741826) -> -2147483648) ((2473 . 5625) (+ -1073741822 -1073741825) -> -2147483647) ((2474 . 5625) (+ -1073741822 -1073741824) -> -2147483646) ((2475 . 5625) (+ -1073741822 -1073741823) -> -2147483645) ((2476 . 5625) (+ -1073741826 1103515243) -> 29773417) ((2477 . 5625) (+ -1073741826 1103515244) -> 29773418) ((2478 . 5625) (+ -1073741826 1103515245) -> 29773419) ((2479 . 5625) (+ -1073741826 1103515246) -> 29773420) ((2480 . 5625) (+ -1073741826 1103515247) -> 29773421) ((2481 . 5625) (+ -1073741825 1103515243) -> 29773418) ((2482 . 5625) (+ -1073741825 1103515244) -> 29773419) ((2483 . 5625) (+ -1073741825 1103515245) -> 29773420) ((2484 . 5625) (+ -1073741825 1103515246) -> 29773421) ((2485 . 5625) (+ -1073741825 1103515247) -> 29773422) ((2486 . 5625) (+ -1073741824 1103515243) -> 29773419) ((2487 . 5625) (+ -1073741824 1103515244) -> 29773420) ((2488 . 5625) (+ -1073741824 1103515245) -> 29773421) ((2489 . 5625) (+ -1073741824 1103515246) -> 29773422) ((2490 . 5625) (+ -1073741824 1103515247) -> 29773423) ((2491 . 5625) (+ -1073741823 1103515243) -> 29773420) ((2492 . 5625) (+ -1073741823 1103515244) -> 29773421) ((2493 . 5625) (+ -1073741823 1103515245) -> 29773422) ((2494 . 5625) (+ -1073741823 1103515246) -> 29773423) ((2495 . 5625) (+ -1073741823 1103515247) -> 29773424) ((2496 . 5625) (+ -1073741822 1103515243) -> 29773421) ((2497 . 5625) (+ -1073741822 1103515244) -> 29773422) ((2498 . 5625) (+ -1073741822 1103515245) -> 29773423) ((2499 . 5625) (+ -1073741822 1103515246) -> 29773424) ((2500 . 5625) (+ -1073741822 1103515247) -> 29773425) ((2501 . 5625) (+ -1073741826 631629063) -> -442112763) ((2502 . 5625) (+ -1073741826 631629064) -> -442112762) ((2503 . 5625) (+ -1073741826 631629065) -> -442112761) ((2504 . 5625) (+ -1073741826 631629066) -> -442112760) ((2505 . 5625) (+ -1073741826 631629067) -> -442112759) ((2506 . 5625) (+ -1073741825 631629063) -> -442112762) ((2507 . 5625) (+ -1073741825 631629064) -> -442112761) ((2508 . 5625) (+ -1073741825 631629065) -> -442112760) ((2509 . 5625) (+ -1073741825 631629066) -> -442112759) ((2510 . 5625) (+ -1073741825 631629067) -> -442112758) ((2511 . 5625) (+ -1073741824 631629063) -> -442112761) ((2512 . 5625) (+ -1073741824 631629064) -> -442112760) ((2513 . 5625) (+ -1073741824 631629065) -> -442112759) ((2514 . 5625) (+ -1073741824 631629066) -> -442112758) ((2515 . 5625) (+ -1073741824 631629067) -> -442112757) ((2516 . 5625) (+ -1073741823 631629063) -> -442112760) ((2517 . 5625) (+ -1073741823 631629064) -> -442112759) ((2518 . 5625) (+ -1073741823 631629065) -> -442112758) ((2519 . 5625) (+ -1073741823 631629066) -> -442112757) ((2520 . 5625) (+ -1073741823 631629067) -> -442112756) ((2521 . 5625) (+ -1073741822 631629063) -> -442112759) ((2522 . 5625) (+ -1073741822 631629064) -> -442112758) ((2523 . 5625) (+ -1073741822 631629065) -> -442112757) ((2524 . 5625) (+ -1073741822 631629066) -> -442112756) ((2525 . 5625) (+ -1073741822 631629067) -> -442112755) ((2526 . 5625) (+ -1073741826 9007199254740990) -> 9007198180999164) ((2527 . 5625) (+ -1073741826 9007199254740991) -> 9007198180999165) ((2528 . 5625) (+ -1073741826 9007199254740992) -> 9007198180999166) ((2529 . 5625) (+ -1073741826 9007199254740993) -> 9007198180999167) ((2530 . 5625) (+ -1073741826 9007199254740994) -> 9007198180999168) ((2531 . 5625) (+ -1073741825 9007199254740990) -> 9007198180999165) ((2532 . 5625) (+ -1073741825 9007199254740991) -> 9007198180999166) ((2533 . 5625) (+ -1073741825 9007199254740992) -> 9007198180999167) ((2534 . 5625) (+ -1073741825 9007199254740993) -> 9007198180999168) ((2535 . 5625) (+ -1073741825 9007199254740994) -> 9007198180999169) ((2536 . 5625) (+ -1073741824 9007199254740990) -> 9007198180999166) ((2537 . 5625) (+ -1073741824 9007199254740991) -> 9007198180999167) ((2538 . 5625) (+ -1073741824 9007199254740992) -> 9007198180999168) ((2539 . 5625) (+ -1073741824 9007199254740993) -> 9007198180999169) ((2540 . 5625) (+ -1073741824 9007199254740994) -> 9007198180999170) ((2541 . 5625) (+ -1073741823 9007199254740990) -> 9007198180999167) ((2542 . 5625) (+ -1073741823 9007199254740991) -> 9007198180999168) ((2543 . 5625) (+ -1073741823 9007199254740992) -> 9007198180999169) ((2544 . 5625) (+ -1073741823 9007199254740993) -> 9007198180999170) ((2545 . 5625) (+ -1073741823 9007199254740994) -> 9007198180999171) ((2546 . 5625) (+ -1073741822 9007199254740990) -> 9007198180999168) ((2547 . 5625) (+ -1073741822 9007199254740991) -> 9007198180999169) ((2548 . 5625) (+ -1073741822 9007199254740992) -> 9007198180999170) ((2549 . 5625) (+ -1073741822 9007199254740993) -> 9007198180999171) ((2550 . 5625) (+ -1073741822 9007199254740994) -> 9007198180999172) ((2551 . 5625) (+ -1073741826 -9007199254740994) -> -9007200328482820) ((2552 . 5625) (+ -1073741826 -9007199254740993) -> -9007200328482819) ((2553 . 5625) (+ -1073741826 -9007199254740992) -> -9007200328482818) ((2554 . 5625) (+ -1073741826 -9007199254740991) -> -9007200328482817) ((2555 . 5625) (+ -1073741826 -9007199254740990) -> -9007200328482816) ((2556 . 5625) (+ -1073741825 -9007199254740994) -> -9007200328482819) ((2557 . 5625) (+ -1073741825 -9007199254740993) -> -9007200328482818) ((2558 . 5625) (+ -1073741825 -9007199254740992) -> -9007200328482817) ((2559 . 5625) (+ -1073741825 -9007199254740991) -> -9007200328482816) ((2560 . 5625) (+ -1073741825 -9007199254740990) -> -9007200328482815) ((2561 . 5625) (+ -1073741824 -9007199254740994) -> -9007200328482818) ((2562 . 5625) (+ -1073741824 -9007199254740993) -> -9007200328482817) ((2563 . 5625) (+ -1073741824 -9007199254740992) -> -9007200328482816) ((2564 . 5625) (+ -1073741824 -9007199254740991) -> -9007200328482815) ((2565 . 5625) (+ -1073741824 -9007199254740990) -> -9007200328482814) ((2566 . 5625) (+ -1073741823 -9007199254740994) -> -9007200328482817) ((2567 . 5625) (+ -1073741823 -9007199254740993) -> -9007200328482816) ((2568 . 5625) (+ -1073741823 -9007199254740992) -> -9007200328482815) ((2569 . 5625) (+ -1073741823 -9007199254740991) -> -9007200328482814) ((2570 . 5625) (+ -1073741823 -9007199254740990) -> -9007200328482813) ((2571 . 5625) (+ -1073741822 -9007199254740994) -> -9007200328482816) ((2572 . 5625) (+ -1073741822 -9007199254740993) -> -9007200328482815) ((2573 . 5625) (+ -1073741822 -9007199254740992) -> -9007200328482814) ((2574 . 5625) (+ -1073741822 -9007199254740991) -> -9007200328482813) ((2575 . 5625) (+ -1073741822 -9007199254740990) -> -9007200328482812) ((2576 . 5625) (+ -1073741826 12343) -> -1073729483) ((2577 . 5625) (+ -1073741826 12344) -> -1073729482) ((2578 . 5625) (+ -1073741826 12345) -> -1073729481) ((2579 . 5625) (+ -1073741826 12346) -> -1073729480) ((2580 . 5625) (+ -1073741826 12347) -> -1073729479) ((2581 . 5625) (+ -1073741825 12343) -> -1073729482) ((2582 . 5625) (+ -1073741825 12344) -> -1073729481) ((2583 . 5625) (+ -1073741825 12345) -> -1073729480) ((2584 . 5625) (+ -1073741825 12346) -> -1073729479) ((2585 . 5625) (+ -1073741825 12347) -> -1073729478) ((2586 . 5625) (+ -1073741824 12343) -> -1073729481) ((2587 . 5625) (+ -1073741824 12344) -> -1073729480) ((2588 . 5625) (+ -1073741824 12345) -> -1073729479) ((2589 . 5625) (+ -1073741824 12346) -> -1073729478) ((2590 . 5625) (+ -1073741824 12347) -> -1073729477) ((2591 . 5625) (+ -1073741823 12343) -> -1073729480) ((2592 . 5625) (+ -1073741823 12344) -> -1073729479) ((2593 . 5625) (+ -1073741823 12345) -> -1073729478) ((2594 . 5625) (+ -1073741823 12346) -> -1073729477) ((2595 . 5625) (+ -1073741823 12347) -> -1073729476) ((2596 . 5625) (+ -1073741822 12343) -> -1073729479) ((2597 . 5625) (+ -1073741822 12344) -> -1073729478) ((2598 . 5625) (+ -1073741822 12345) -> -1073729477) ((2599 . 5625) (+ -1073741822 12346) -> -1073729476) ((2600 . 5625) (+ -1073741822 12347) -> -1073729475) ((2601 . 5625) (+ -1073741826 4294967294) -> 3221225468) ((2602 . 5625) (+ -1073741826 4294967295) -> 3221225469) ((2603 . 5625) (+ -1073741826 4294967296) -> 3221225470) ((2604 . 5625) (+ -1073741826 4294967297) -> 3221225471) ((2605 . 5625) (+ -1073741826 4294967298) -> 3221225472) ((2606 . 5625) (+ -1073741825 4294967294) -> 3221225469) ((2607 . 5625) (+ -1073741825 4294967295) -> 3221225470) ((2608 . 5625) (+ -1073741825 4294967296) -> 3221225471) ((2609 . 5625) (+ -1073741825 4294967297) -> 3221225472) ((2610 . 5625) (+ -1073741825 4294967298) -> 3221225473) ((2611 . 5625) (+ -1073741824 4294967294) -> 3221225470) ((2612 . 5625) (+ -1073741824 4294967295) -> 3221225471) ((2613 . 5625) (+ -1073741824 4294967296) -> 3221225472) ((2614 . 5625) (+ -1073741824 4294967297) -> 3221225473) ((2615 . 5625) (+ -1073741824 4294967298) -> 3221225474) ((2616 . 5625) (+ -1073741823 4294967294) -> 3221225471) ((2617 . 5625) (+ -1073741823 4294967295) -> 3221225472) ((2618 . 5625) (+ -1073741823 4294967296) -> 3221225473) ((2619 . 5625) (+ -1073741823 4294967297) -> 3221225474) ((2620 . 5625) (+ -1073741823 4294967298) -> 3221225475) ((2621 . 5625) (+ -1073741822 4294967294) -> 3221225472) ((2622 . 5625) (+ -1073741822 4294967295) -> 3221225473) ((2623 . 5625) (+ -1073741822 4294967296) -> 3221225474) ((2624 . 5625) (+ -1073741822 4294967297) -> 3221225475) ((2625 . 5625) (+ -1073741822 4294967298) -> 3221225476) ((2626 . 5625) (+ 1073741822 -2) -> 1073741820) ((2627 . 5625) (+ 1073741822 -1) -> 1073741821) ((2628 . 5625) (+ 1073741822 0) -> 1073741822) ((2629 . 5625) (+ 1073741822 1) -> 1073741823) ((2630 . 5625) (+ 1073741822 2) -> 1073741824) ((2631 . 5625) (+ 1073741823 -2) -> 1073741821) ((2632 . 5625) (+ 1073741823 -1) -> 1073741822) ((2633 . 5625) (+ 1073741823 0) -> 1073741823) ((2634 . 5625) (+ 1073741823 1) -> 1073741824) ((2635 . 5625) (+ 1073741823 2) -> 1073741825) ((2636 . 5625) (+ 1073741824 -2) -> 1073741822) ((2637 . 5625) (+ 1073741824 -1) -> 1073741823) ((2638 . 5625) (+ 1073741824 0) -> 1073741824) ((2639 . 5625) (+ 1073741824 1) -> 1073741825) ((2640 . 5625) (+ 1073741824 2) -> 1073741826) ((2641 . 5625) (+ 1073741825 -2) -> 1073741823) ((2642 . 5625) (+ 1073741825 -1) -> 1073741824) ((2643 . 5625) (+ 1073741825 0) -> 1073741825) ((2644 . 5625) (+ 1073741825 1) -> 1073741826) ((2645 . 5625) (+ 1073741825 2) -> 1073741827) ((2646 . 5625) (+ 1073741826 -2) -> 1073741824) ((2647 . 5625) (+ 1073741826 -1) -> 1073741825) ((2648 . 5625) (+ 1073741826 0) -> 1073741826) ((2649 . 5625) (+ 1073741826 1) -> 1073741827) ((2650 . 5625) (+ 1073741826 2) -> 1073741828) ((2651 . 5625) (+ 1073741822 -1) -> 1073741821) ((2652 . 5625) (+ 1073741822 0) -> 1073741822) ((2653 . 5625) (+ 1073741822 1) -> 1073741823) ((2654 . 5625) (+ 1073741822 2) -> 1073741824) ((2655 . 5625) (+ 1073741822 3) -> 1073741825) ((2656 . 5625) (+ 1073741823 -1) -> 1073741822) ((2657 . 5625) (+ 1073741823 0) -> 1073741823) ((2658 . 5625) (+ 1073741823 1) -> 1073741824) ((2659 . 5625) (+ 1073741823 2) -> 1073741825) ((2660 . 5625) (+ 1073741823 3) -> 1073741826) ((2661 . 5625) (+ 1073741824 -1) -> 1073741823) ((2662 . 5625) (+ 1073741824 0) -> 1073741824) ((2663 . 5625) (+ 1073741824 1) -> 1073741825) ((2664 . 5625) (+ 1073741824 2) -> 1073741826) ((2665 . 5625) (+ 1073741824 3) -> 1073741827) ((2666 . 5625) (+ 1073741825 -1) -> 1073741824) ((2667 . 5625) (+ 1073741825 0) -> 1073741825) ((2668 . 5625) (+ 1073741825 1) -> 1073741826) ((2669 . 5625) (+ 1073741825 2) -> 1073741827) ((2670 . 5625) (+ 1073741825 3) -> 1073741828) ((2671 . 5625) (+ 1073741826 -1) -> 1073741825) ((2672 . 5625) (+ 1073741826 0) -> 1073741826) ((2673 . 5625) (+ 1073741826 1) -> 1073741827) ((2674 . 5625) (+ 1073741826 2) -> 1073741828) ((2675 . 5625) (+ 1073741826 3) -> 1073741829) ((2676 . 5625) (+ 1073741822 -3) -> 1073741819) ((2677 . 5625) (+ 1073741822 -2) -> 1073741820) ((2678 . 5625) (+ 1073741822 -1) -> 1073741821) ((2679 . 5625) (+ 1073741822 0) -> 1073741822) ((2680 . 5625) (+ 1073741822 1) -> 1073741823) ((2681 . 5625) (+ 1073741823 -3) -> 1073741820) ((2682 . 5625) (+ 1073741823 -2) -> 1073741821) ((2683 . 5625) (+ 1073741823 -1) -> 1073741822) ((2684 . 5625) (+ 1073741823 0) -> 1073741823) ((2685 . 5625) (+ 1073741823 1) -> 1073741824) ((2686 . 5625) (+ 1073741824 -3) -> 1073741821) ((2687 . 5625) (+ 1073741824 -2) -> 1073741822) ((2688 . 5625) (+ 1073741824 -1) -> 1073741823) ((2689 . 5625) (+ 1073741824 0) -> 1073741824) ((2690 . 5625) (+ 1073741824 1) -> 1073741825) ((2691 . 5625) (+ 1073741825 -3) -> 1073741822) ((2692 . 5625) (+ 1073741825 -2) -> 1073741823) ((2693 . 5625) (+ 1073741825 -1) -> 1073741824) ((2694 . 5625) (+ 1073741825 0) -> 1073741825) ((2695 . 5625) (+ 1073741825 1) -> 1073741826) ((2696 . 5625) (+ 1073741826 -3) -> 1073741823) ((2697 . 5625) (+ 1073741826 -2) -> 1073741824) ((2698 . 5625) (+ 1073741826 -1) -> 1073741825) ((2699 . 5625) (+ 1073741826 0) -> 1073741826) ((2700 . 5625) (+ 1073741826 1) -> 1073741827) ((2701 . 5625) (+ 1073741822 0) -> 1073741822) ((2702 . 5625) (+ 1073741822 1) -> 1073741823) ((2703 . 5625) (+ 1073741822 2) -> 1073741824) ((2704 . 5625) (+ 1073741822 3) -> 1073741825) ((2705 . 5625) (+ 1073741822 4) -> 1073741826) ((2706 . 5625) (+ 1073741823 0) -> 1073741823) ((2707 . 5625) (+ 1073741823 1) -> 1073741824) ((2708 . 5625) (+ 1073741823 2) -> 1073741825) ((2709 . 5625) (+ 1073741823 3) -> 1073741826) ((2710 . 5625) (+ 1073741823 4) -> 1073741827) ((2711 . 5625) (+ 1073741824 0) -> 1073741824) ((2712 . 5625) (+ 1073741824 1) -> 1073741825) ((2713 . 5625) (+ 1073741824 2) -> 1073741826) ((2714 . 5625) (+ 1073741824 3) -> 1073741827) ((2715 . 5625) (+ 1073741824 4) -> 1073741828) ((2716 . 5625) (+ 1073741825 0) -> 1073741825) ((2717 . 5625) (+ 1073741825 1) -> 1073741826) ((2718 . 5625) (+ 1073741825 2) -> 1073741827) ((2719 . 5625) (+ 1073741825 3) -> 1073741828) ((2720 . 5625) (+ 1073741825 4) -> 1073741829) ((2721 . 5625) (+ 1073741826 0) -> 1073741826) ((2722 . 5625) (+ 1073741826 1) -> 1073741827) ((2723 . 5625) (+ 1073741826 2) -> 1073741828) ((2724 . 5625) (+ 1073741826 3) -> 1073741829) ((2725 . 5625) (+ 1073741826 4) -> 1073741830) ((2726 . 5625) (+ 1073741822 -4) -> 1073741818) ((2727 . 5625) (+ 1073741822 -3) -> 1073741819) ((2728 . 5625) (+ 1073741822 -2) -> 1073741820) ((2729 . 5625) (+ 1073741822 -1) -> 1073741821) ((2730 . 5625) (+ 1073741822 0) -> 1073741822) ((2731 . 5625) (+ 1073741823 -4) -> 1073741819) ((2732 . 5625) (+ 1073741823 -3) -> 1073741820) ((2733 . 5625) (+ 1073741823 -2) -> 1073741821) ((2734 . 5625) (+ 1073741823 -1) -> 1073741822) ((2735 . 5625) (+ 1073741823 0) -> 1073741823) ((2736 . 5625) (+ 1073741824 -4) -> 1073741820) ((2737 . 5625) (+ 1073741824 -3) -> 1073741821) ((2738 . 5625) (+ 1073741824 -2) -> 1073741822) ((2739 . 5625) (+ 1073741824 -1) -> 1073741823) ((2740 . 5625) (+ 1073741824 0) -> 1073741824) ((2741 . 5625) (+ 1073741825 -4) -> 1073741821) ((2742 . 5625) (+ 1073741825 -3) -> 1073741822) ((2743 . 5625) (+ 1073741825 -2) -> 1073741823) ((2744 . 5625) (+ 1073741825 -1) -> 1073741824) ((2745 . 5625) (+ 1073741825 0) -> 1073741825) ((2746 . 5625) (+ 1073741826 -4) -> 1073741822) ((2747 . 5625) (+ 1073741826 -3) -> 1073741823) ((2748 . 5625) (+ 1073741826 -2) -> 1073741824) ((2749 . 5625) (+ 1073741826 -1) -> 1073741825) ((2750 . 5625) (+ 1073741826 0) -> 1073741826) ((2751 . 5625) (+ 1073741822 1073741821) -> 2147483643) ((2752 . 5625) (+ 1073741822 1073741822) -> 2147483644) ((2753 . 5625) (+ 1073741822 1073741823) -> 2147483645) ((2754 . 5625) (+ 1073741822 1073741824) -> 2147483646) ((2755 . 5625) (+ 1073741822 1073741825) -> 2147483647) ((2756 . 5625) (+ 1073741823 1073741821) -> 2147483644) ((2757 . 5625) (+ 1073741823 1073741822) -> 2147483645) ((2758 . 5625) (+ 1073741823 1073741823) -> 2147483646) ((2759 . 5625) (+ 1073741823 1073741824) -> 2147483647) ((2760 . 5625) (+ 1073741823 1073741825) -> 2147483648) ((2761 . 5625) (+ 1073741824 1073741821) -> 2147483645) ((2762 . 5625) (+ 1073741824 1073741822) -> 2147483646) ((2763 . 5625) (+ 1073741824 1073741823) -> 2147483647) ((2764 . 5625) (+ 1073741824 1073741824) -> 2147483648) ((2765 . 5625) (+ 1073741824 1073741825) -> 2147483649) ((2766 . 5625) (+ 1073741825 1073741821) -> 2147483646) ((2767 . 5625) (+ 1073741825 1073741822) -> 2147483647) ((2768 . 5625) (+ 1073741825 1073741823) -> 2147483648) ((2769 . 5625) (+ 1073741825 1073741824) -> 2147483649) ((2770 . 5625) (+ 1073741825 1073741825) -> 2147483650) ((2771 . 5625) (+ 1073741826 1073741821) -> 2147483647) ((2772 . 5625) (+ 1073741826 1073741822) -> 2147483648) ((2773 . 5625) (+ 1073741826 1073741823) -> 2147483649) ((2774 . 5625) (+ 1073741826 1073741824) -> 2147483650) ((2775 . 5625) (+ 1073741826 1073741825) -> 2147483651) ((2776 . 5625) (+ 1073741822 -1073741826) -> -4) ((2777 . 5625) (+ 1073741822 -1073741825) -> -3) ((2778 . 5625) (+ 1073741822 -1073741824) -> -2) ((2779 . 5625) (+ 1073741822 -1073741823) -> -1) ((2780 . 5625) (+ 1073741822 -1073741822) -> 0) ((2781 . 5625) (+ 1073741823 -1073741826) -> -3) ((2782 . 5625) (+ 1073741823 -1073741825) -> -2) ((2783 . 5625) (+ 1073741823 -1073741824) -> -1) ((2784 . 5625) (+ 1073741823 -1073741823) -> 0) ((2785 . 5625) (+ 1073741823 -1073741822) -> 1) ((2786 . 5625) (+ 1073741824 -1073741826) -> -2) ((2787 . 5625) (+ 1073741824 -1073741825) -> -1) ((2788 . 5625) (+ 1073741824 -1073741824) -> 0) ((2789 . 5625) (+ 1073741824 -1073741823) -> 1) ((2790 . 5625) (+ 1073741824 -1073741822) -> 2) ((2791 . 5625) (+ 1073741825 -1073741826) -> -1) ((2792 . 5625) (+ 1073741825 -1073741825) -> 0) ((2793 . 5625) (+ 1073741825 -1073741824) -> 1) ((2794 . 5625) (+ 1073741825 -1073741823) -> 2) ((2795 . 5625) (+ 1073741825 -1073741822) -> 3) ((2796 . 5625) (+ 1073741826 -1073741826) -> 0) ((2797 . 5625) (+ 1073741826 -1073741825) -> 1) ((2798 . 5625) (+ 1073741826 -1073741824) -> 2) ((2799 . 5625) (+ 1073741826 -1073741823) -> 3) ((2800 . 5625) (+ 1073741826 -1073741822) -> 4) ((2801 . 5625) (+ 1073741822 1073741822) -> 2147483644) ((2802 . 5625) (+ 1073741822 1073741823) -> 2147483645) ((2803 . 5625) (+ 1073741822 1073741824) -> 2147483646) ((2804 . 5625) (+ 1073741822 1073741825) -> 2147483647) ((2805 . 5625) (+ 1073741822 1073741826) -> 2147483648) ((2806 . 5625) (+ 1073741823 1073741822) -> 2147483645) ((2807 . 5625) (+ 1073741823 1073741823) -> 2147483646) ((2808 . 5625) (+ 1073741823 1073741824) -> 2147483647) ((2809 . 5625) (+ 1073741823 1073741825) -> 2147483648) ((2810 . 5625) (+ 1073741823 1073741826) -> 2147483649) ((2811 . 5625) (+ 1073741824 1073741822) -> 2147483646) ((2812 . 5625) (+ 1073741824 1073741823) -> 2147483647) ((2813 . 5625) (+ 1073741824 1073741824) -> 2147483648) ((2814 . 5625) (+ 1073741824 1073741825) -> 2147483649) ((2815 . 5625) (+ 1073741824 1073741826) -> 2147483650) ((2816 . 5625) (+ 1073741825 1073741822) -> 2147483647) ((2817 . 5625) (+ 1073741825 1073741823) -> 2147483648) ((2818 . 5625) (+ 1073741825 1073741824) -> 2147483649) ((2819 . 5625) (+ 1073741825 1073741825) -> 2147483650) ((2820 . 5625) (+ 1073741825 1073741826) -> 2147483651) ((2821 . 5625) (+ 1073741826 1073741822) -> 2147483648) ((2822 . 5625) (+ 1073741826 1073741823) -> 2147483649) ((2823 . 5625) (+ 1073741826 1073741824) -> 2147483650) ((2824 . 5625) (+ 1073741826 1073741825) -> 2147483651) ((2825 . 5625) (+ 1073741826 1073741826) -> 2147483652) ((2826 . 5625) (+ 1073741822 -1073741827) -> -5) ((2827 . 5625) (+ 1073741822 -1073741826) -> -4) ((2828 . 5625) (+ 1073741822 -1073741825) -> -3) ((2829 . 5625) (+ 1073741822 -1073741824) -> -2) ((2830 . 5625) (+ 1073741822 -1073741823) -> -1) ((2831 . 5625) (+ 1073741823 -1073741827) -> -4) ((2832 . 5625) (+ 1073741823 -1073741826) -> -3) ((2833 . 5625) (+ 1073741823 -1073741825) -> -2) ((2834 . 5625) (+ 1073741823 -1073741824) -> -1) ((2835 . 5625) (+ 1073741823 -1073741823) -> 0) ((2836 . 5625) (+ 1073741824 -1073741827) -> -3) ((2837 . 5625) (+ 1073741824 -1073741826) -> -2) ((2838 . 5625) (+ 1073741824 -1073741825) -> -1) ((2839 . 5625) (+ 1073741824 -1073741824) -> 0) ((2840 . 5625) (+ 1073741824 -1073741823) -> 1) ((2841 . 5625) (+ 1073741825 -1073741827) -> -2) ((2842 . 5625) (+ 1073741825 -1073741826) -> -1) ((2843 . 5625) (+ 1073741825 -1073741825) -> 0) ((2844 . 5625) (+ 1073741825 -1073741824) -> 1) ((2845 . 5625) (+ 1073741825 -1073741823) -> 2) ((2846 . 5625) (+ 1073741826 -1073741827) -> -1) ((2847 . 5625) (+ 1073741826 -1073741826) -> 0) ((2848 . 5625) (+ 1073741826 -1073741825) -> 1) ((2849 . 5625) (+ 1073741826 -1073741824) -> 2) ((2850 . 5625) (+ 1073741826 -1073741823) -> 3) ((2851 . 5625) (+ 1073741822 1103515243) -> 2177257065) ((2852 . 5625) (+ 1073741822 1103515244) -> 2177257066) ((2853 . 5625) (+ 1073741822 1103515245) -> 2177257067) ((2854 . 5625) (+ 1073741822 1103515246) -> 2177257068) ((2855 . 5625) (+ 1073741822 1103515247) -> 2177257069) ((2856 . 5625) (+ 1073741823 1103515243) -> 2177257066) ((2857 . 5625) (+ 1073741823 1103515244) -> 2177257067) ((2858 . 5625) (+ 1073741823 1103515245) -> 2177257068) ((2859 . 5625) (+ 1073741823 1103515246) -> 2177257069) ((2860 . 5625) (+ 1073741823 1103515247) -> 2177257070) ((2861 . 5625) (+ 1073741824 1103515243) -> 2177257067) ((2862 . 5625) (+ 1073741824 1103515244) -> 2177257068) ((2863 . 5625) (+ 1073741824 1103515245) -> 2177257069) ((2864 . 5625) (+ 1073741824 1103515246) -> 2177257070) ((2865 . 5625) (+ 1073741824 1103515247) -> 2177257071) ((2866 . 5625) (+ 1073741825 1103515243) -> 2177257068) ((2867 . 5625) (+ 1073741825 1103515244) -> 2177257069) ((2868 . 5625) (+ 1073741825 1103515245) -> 2177257070) ((2869 . 5625) (+ 1073741825 1103515246) -> 2177257071) ((2870 . 5625) (+ 1073741825 1103515247) -> 2177257072) ((2871 . 5625) (+ 1073741826 1103515243) -> 2177257069) ((2872 . 5625) (+ 1073741826 1103515244) -> 2177257070) ((2873 . 5625) (+ 1073741826 1103515245) -> 2177257071) ((2874 . 5625) (+ 1073741826 1103515246) -> 2177257072) ((2875 . 5625) (+ 1073741826 1103515247) -> 2177257073) ((2876 . 5625) (+ 1073741822 631629063) -> 1705370885) ((2877 . 5625) (+ 1073741822 631629064) -> 1705370886) ((2878 . 5625) (+ 1073741822 631629065) -> 1705370887) ((2879 . 5625) (+ 1073741822 631629066) -> 1705370888) ((2880 . 5625) (+ 1073741822 631629067) -> 1705370889) ((2881 . 5625) (+ 1073741823 631629063) -> 1705370886) ((2882 . 5625) (+ 1073741823 631629064) -> 1705370887) ((2883 . 5625) (+ 1073741823 631629065) -> 1705370888) ((2884 . 5625) (+ 1073741823 631629066) -> 1705370889) ((2885 . 5625) (+ 1073741823 631629067) -> 1705370890) ((2886 . 5625) (+ 1073741824 631629063) -> 1705370887) ((2887 . 5625) (+ 1073741824 631629064) -> 1705370888) ((2888 . 5625) (+ 1073741824 631629065) -> 1705370889) ((2889 . 5625) (+ 1073741824 631629066) -> 1705370890) ((2890 . 5625) (+ 1073741824 631629067) -> 1705370891) ((2891 . 5625) (+ 1073741825 631629063) -> 1705370888) ((2892 . 5625) (+ 1073741825 631629064) -> 1705370889) ((2893 . 5625) (+ 1073741825 631629065) -> 1705370890) ((2894 . 5625) (+ 1073741825 631629066) -> 1705370891) ((2895 . 5625) (+ 1073741825 631629067) -> 1705370892) ((2896 . 5625) (+ 1073741826 631629063) -> 1705370889) ((2897 . 5625) (+ 1073741826 631629064) -> 1705370890) ((2898 . 5625) (+ 1073741826 631629065) -> 1705370891) ((2899 . 5625) (+ 1073741826 631629066) -> 1705370892) ((2900 . 5625) (+ 1073741826 631629067) -> 1705370893) ((2901 . 5625) (+ 1073741822 9007199254740990) -> 9007200328482812) ((2902 . 5625) (+ 1073741822 9007199254740991) -> 9007200328482813) ((2903 . 5625) (+ 1073741822 9007199254740992) -> 9007200328482814) ((2904 . 5625) (+ 1073741822 9007199254740993) -> 9007200328482815) ((2905 . 5625) (+ 1073741822 9007199254740994) -> 9007200328482816) ((2906 . 5625) (+ 1073741823 9007199254740990) -> 9007200328482813) ((2907 . 5625) (+ 1073741823 9007199254740991) -> 9007200328482814) ((2908 . 5625) (+ 1073741823 9007199254740992) -> 9007200328482815) ((2909 . 5625) (+ 1073741823 9007199254740993) -> 9007200328482816) ((2910 . 5625) (+ 1073741823 9007199254740994) -> 9007200328482817) ((2911 . 5625) (+ 1073741824 9007199254740990) -> 9007200328482814) ((2912 . 5625) (+ 1073741824 9007199254740991) -> 9007200328482815) ((2913 . 5625) (+ 1073741824 9007199254740992) -> 9007200328482816) ((2914 . 5625) (+ 1073741824 9007199254740993) -> 9007200328482817) ((2915 . 5625) (+ 1073741824 9007199254740994) -> 9007200328482818) ((2916 . 5625) (+ 1073741825 9007199254740990) -> 9007200328482815) ((2917 . 5625) (+ 1073741825 9007199254740991) -> 9007200328482816) ((2918 . 5625) (+ 1073741825 9007199254740992) -> 9007200328482817) ((2919 . 5625) (+ 1073741825 9007199254740993) -> 9007200328482818) ((2920 . 5625) (+ 1073741825 9007199254740994) -> 9007200328482819) ((2921 . 5625) (+ 1073741826 9007199254740990) -> 9007200328482816) ((2922 . 5625) (+ 1073741826 9007199254740991) -> 9007200328482817) ((2923 . 5625) (+ 1073741826 9007199254740992) -> 9007200328482818) ((2924 . 5625) (+ 1073741826 9007199254740993) -> 9007200328482819) ((2925 . 5625) (+ 1073741826 9007199254740994) -> 9007200328482820) ((2926 . 5625) (+ 1073741822 -9007199254740994) -> -9007198180999172) ((2927 . 5625) (+ 1073741822 -9007199254740993) -> -9007198180999171) ((2928 . 5625) (+ 1073741822 -9007199254740992) -> -9007198180999170) ((2929 . 5625) (+ 1073741822 -9007199254740991) -> -9007198180999169) ((2930 . 5625) (+ 1073741822 -9007199254740990) -> -9007198180999168) ((2931 . 5625) (+ 1073741823 -9007199254740994) -> -9007198180999171) ((2932 . 5625) (+ 1073741823 -9007199254740993) -> -9007198180999170) ((2933 . 5625) (+ 1073741823 -9007199254740992) -> -9007198180999169) ((2934 . 5625) (+ 1073741823 -9007199254740991) -> -9007198180999168) ((2935 . 5625) (+ 1073741823 -9007199254740990) -> -9007198180999167) ((2936 . 5625) (+ 1073741824 -9007199254740994) -> -9007198180999170) ((2937 . 5625) (+ 1073741824 -9007199254740993) -> -9007198180999169) ((2938 . 5625) (+ 1073741824 -9007199254740992) -> -9007198180999168) ((2939 . 5625) (+ 1073741824 -9007199254740991) -> -9007198180999167) ((2940 . 5625) (+ 1073741824 -9007199254740990) -> -9007198180999166) ((2941 . 5625) (+ 1073741825 -9007199254740994) -> -9007198180999169) ((2942 . 5625) (+ 1073741825 -9007199254740993) -> -9007198180999168) ((2943 . 5625) (+ 1073741825 -9007199254740992) -> -9007198180999167) ((2944 . 5625) (+ 1073741825 -9007199254740991) -> -9007198180999166) ((2945 . 5625) (+ 1073741825 -9007199254740990) -> -9007198180999165) ((2946 . 5625) (+ 1073741826 -9007199254740994) -> -9007198180999168) ((2947 . 5625) (+ 1073741826 -9007199254740993) -> -9007198180999167) ((2948 . 5625) (+ 1073741826 -9007199254740992) -> -9007198180999166) ((2949 . 5625) (+ 1073741826 -9007199254740991) -> -9007198180999165) ((2950 . 5625) (+ 1073741826 -9007199254740990) -> -9007198180999164) ((2951 . 5625) (+ 1073741822 12343) -> 1073754165) ((2952 . 5625) (+ 1073741822 12344) -> 1073754166) ((2953 . 5625) (+ 1073741822 12345) -> 1073754167) ((2954 . 5625) (+ 1073741822 12346) -> 1073754168) ((2955 . 5625) (+ 1073741822 12347) -> 1073754169) ((2956 . 5625) (+ 1073741823 12343) -> 1073754166) ((2957 . 5625) (+ 1073741823 12344) -> 1073754167) ((2958 . 5625) (+ 1073741823 12345) -> 1073754168) ((2959 . 5625) (+ 1073741823 12346) -> 1073754169) ((2960 . 5625) (+ 1073741823 12347) -> 1073754170) ((2961 . 5625) (+ 1073741824 12343) -> 1073754167) ((2962 . 5625) (+ 1073741824 12344) -> 1073754168) ((2963 . 5625) (+ 1073741824 12345) -> 1073754169) ((2964 . 5625) (+ 1073741824 12346) -> 1073754170) ((2965 . 5625) (+ 1073741824 12347) -> 1073754171) ((2966 . 5625) (+ 1073741825 12343) -> 1073754168) ((2967 . 5625) (+ 1073741825 12344) -> 1073754169) ((2968 . 5625) (+ 1073741825 12345) -> 1073754170) ((2969 . 5625) (+ 1073741825 12346) -> 1073754171) ((2970 . 5625) (+ 1073741825 12347) -> 1073754172) ((2971 . 5625) (+ 1073741826 12343) -> 1073754169) ((2972 . 5625) (+ 1073741826 12344) -> 1073754170) ((2973 . 5625) (+ 1073741826 12345) -> 1073754171) ((2974 . 5625) (+ 1073741826 12346) -> 1073754172) ((2975 . 5625) (+ 1073741826 12347) -> 1073754173) ((2976 . 5625) (+ 1073741822 4294967294) -> 5368709116) ((2977 . 5625) (+ 1073741822 4294967295) -> 5368709117) ((2978 . 5625) (+ 1073741822 4294967296) -> 5368709118) ((2979 . 5625) (+ 1073741822 4294967297) -> 5368709119) ((2980 . 5625) (+ 1073741822 4294967298) -> 5368709120) ((2981 . 5625) (+ 1073741823 4294967294) -> 5368709117) ((2982 . 5625) (+ 1073741823 4294967295) -> 5368709118) ((2983 . 5625) (+ 1073741823 4294967296) -> 5368709119) ((2984 . 5625) (+ 1073741823 4294967297) -> 5368709120) ((2985 . 5625) (+ 1073741823 4294967298) -> 5368709121) ((2986 . 5625) (+ 1073741824 4294967294) -> 5368709118) ((2987 . 5625) (+ 1073741824 4294967295) -> 5368709119) ((2988 . 5625) (+ 1073741824 4294967296) -> 5368709120) ((2989 . 5625) (+ 1073741824 4294967297) -> 5368709121) ((2990 . 5625) (+ 1073741824 4294967298) -> 5368709122) ((2991 . 5625) (+ 1073741825 4294967294) -> 5368709119) ((2992 . 5625) (+ 1073741825 4294967295) -> 5368709120) ((2993 . 5625) (+ 1073741825 4294967296) -> 5368709121) ((2994 . 5625) (+ 1073741825 4294967297) -> 5368709122) ((2995 . 5625) (+ 1073741825 4294967298) -> 5368709123) ((2996 . 5625) (+ 1073741826 4294967294) -> 5368709120) ((2997 . 5625) (+ 1073741826 4294967295) -> 5368709121) ((2998 . 5625) (+ 1073741826 4294967296) -> 5368709122) ((2999 . 5625) (+ 1073741826 4294967297) -> 5368709123) ((3000 . 5625) (+ 1073741826 4294967298) -> 5368709124) ((3001 . 5625) (+ -1073741827 -2) -> -1073741829) ((3002 . 5625) (+ -1073741827 -1) -> -1073741828) ((3003 . 5625) (+ -1073741827 0) -> -1073741827) ((3004 . 5625) (+ -1073741827 1) -> -1073741826) ((3005 . 5625) (+ -1073741827 2) -> -1073741825) ((3006 . 5625) (+ -1073741826 -2) -> -1073741828) ((3007 . 5625) (+ -1073741826 -1) -> -1073741827) ((3008 . 5625) (+ -1073741826 0) -> -1073741826) ((3009 . 5625) (+ -1073741826 1) -> -1073741825) ((3010 . 5625) (+ -1073741826 2) -> -1073741824) ((3011 . 5625) (+ -1073741825 -2) -> -1073741827) ((3012 . 5625) (+ -1073741825 -1) -> -1073741826) ((3013 . 5625) (+ -1073741825 0) -> -1073741825) ((3014 . 5625) (+ -1073741825 1) -> -1073741824) ((3015 . 5625) (+ -1073741825 2) -> -1073741823) ((3016 . 5625) (+ -1073741824 -2) -> -1073741826) ((3017 . 5625) (+ -1073741824 -1) -> -1073741825) ((3018 . 5625) (+ -1073741824 0) -> -1073741824) ((3019 . 5625) (+ -1073741824 1) -> -1073741823) ((3020 . 5625) (+ -1073741824 2) -> -1073741822) ((3021 . 5625) (+ -1073741823 -2) -> -1073741825) ((3022 . 5625) (+ -1073741823 -1) -> -1073741824) ((3023 . 5625) (+ -1073741823 0) -> -1073741823) ((3024 . 5625) (+ -1073741823 1) -> -1073741822) ((3025 . 5625) (+ -1073741823 2) -> -1073741821) ((3026 . 5625) (+ -1073741827 -1) -> -1073741828) ((3027 . 5625) (+ -1073741827 0) -> -1073741827) ((3028 . 5625) (+ -1073741827 1) -> -1073741826) ((3029 . 5625) (+ -1073741827 2) -> -1073741825) ((3030 . 5625) (+ -1073741827 3) -> -1073741824) ((3031 . 5625) (+ -1073741826 -1) -> -1073741827) ((3032 . 5625) (+ -1073741826 0) -> -1073741826) ((3033 . 5625) (+ -1073741826 1) -> -1073741825) ((3034 . 5625) (+ -1073741826 2) -> -1073741824) ((3035 . 5625) (+ -1073741826 3) -> -1073741823) ((3036 . 5625) (+ -1073741825 -1) -> -1073741826) ((3037 . 5625) (+ -1073741825 0) -> -1073741825) ((3038 . 5625) (+ -1073741825 1) -> -1073741824) ((3039 . 5625) (+ -1073741825 2) -> -1073741823) ((3040 . 5625) (+ -1073741825 3) -> -1073741822) ((3041 . 5625) (+ -1073741824 -1) -> -1073741825) ((3042 . 5625) (+ -1073741824 0) -> -1073741824) ((3043 . 5625) (+ -1073741824 1) -> -1073741823) ((3044 . 5625) (+ -1073741824 2) -> -1073741822) ((3045 . 5625) (+ -1073741824 3) -> -1073741821) ((3046 . 5625) (+ -1073741823 -1) -> -1073741824) ((3047 . 5625) (+ -1073741823 0) -> -1073741823) ((3048 . 5625) (+ -1073741823 1) -> -1073741822) ((3049 . 5625) (+ -1073741823 2) -> -1073741821) ((3050 . 5625) (+ -1073741823 3) -> -1073741820) ((3051 . 5625) (+ -1073741827 -3) -> -1073741830) ((3052 . 5625) (+ -1073741827 -2) -> -1073741829) ((3053 . 5625) (+ -1073741827 -1) -> -1073741828) ((3054 . 5625) (+ -1073741827 0) -> -1073741827) ((3055 . 5625) (+ -1073741827 1) -> -1073741826) ((3056 . 5625) (+ -1073741826 -3) -> -1073741829) ((3057 . 5625) (+ -1073741826 -2) -> -1073741828) ((3058 . 5625) (+ -1073741826 -1) -> -1073741827) ((3059 . 5625) (+ -1073741826 0) -> -1073741826) ((3060 . 5625) (+ -1073741826 1) -> -1073741825) ((3061 . 5625) (+ -1073741825 -3) -> -1073741828) ((3062 . 5625) (+ -1073741825 -2) -> -1073741827) ((3063 . 5625) (+ -1073741825 -1) -> -1073741826) ((3064 . 5625) (+ -1073741825 0) -> -1073741825) ((3065 . 5625) (+ -1073741825 1) -> -1073741824) ((3066 . 5625) (+ -1073741824 -3) -> -1073741827) ((3067 . 5625) (+ -1073741824 -2) -> -1073741826) ((3068 . 5625) (+ -1073741824 -1) -> -1073741825) ((3069 . 5625) (+ -1073741824 0) -> -1073741824) ((3070 . 5625) (+ -1073741824 1) -> -1073741823) ((3071 . 5625) (+ -1073741823 -3) -> -1073741826) ((3072 . 5625) (+ -1073741823 -2) -> -1073741825) ((3073 . 5625) (+ -1073741823 -1) -> -1073741824) ((3074 . 5625) (+ -1073741823 0) -> -1073741823) ((3075 . 5625) (+ -1073741823 1) -> -1073741822) ((3076 . 5625) (+ -1073741827 0) -> -1073741827) ((3077 . 5625) (+ -1073741827 1) -> -1073741826) ((3078 . 5625) (+ -1073741827 2) -> -1073741825) ((3079 . 5625) (+ -1073741827 3) -> -1073741824) ((3080 . 5625) (+ -1073741827 4) -> -1073741823) ((3081 . 5625) (+ -1073741826 0) -> -1073741826) ((3082 . 5625) (+ -1073741826 1) -> -1073741825) ((3083 . 5625) (+ -1073741826 2) -> -1073741824) ((3084 . 5625) (+ -1073741826 3) -> -1073741823) ((3085 . 5625) (+ -1073741826 4) -> -1073741822) ((3086 . 5625) (+ -1073741825 0) -> -1073741825) ((3087 . 5625) (+ -1073741825 1) -> -1073741824) ((3088 . 5625) (+ -1073741825 2) -> -1073741823) ((3089 . 5625) (+ -1073741825 3) -> -1073741822) ((3090 . 5625) (+ -1073741825 4) -> -1073741821) ((3091 . 5625) (+ -1073741824 0) -> -1073741824) ((3092 . 5625) (+ -1073741824 1) -> -1073741823) ((3093 . 5625) (+ -1073741824 2) -> -1073741822) ((3094 . 5625) (+ -1073741824 3) -> -1073741821) ((3095 . 5625) (+ -1073741824 4) -> -1073741820) ((3096 . 5625) (+ -1073741823 0) -> -1073741823) ((3097 . 5625) (+ -1073741823 1) -> -1073741822) ((3098 . 5625) (+ -1073741823 2) -> -1073741821) ((3099 . 5625) (+ -1073741823 3) -> -1073741820) ((3100 . 5625) (+ -1073741823 4) -> -1073741819) ((3101 . 5625) (+ -1073741827 -4) -> -1073741831) ((3102 . 5625) (+ -1073741827 -3) -> -1073741830) ((3103 . 5625) (+ -1073741827 -2) -> -1073741829) ((3104 . 5625) (+ -1073741827 -1) -> -1073741828) ((3105 . 5625) (+ -1073741827 0) -> -1073741827) ((3106 . 5625) (+ -1073741826 -4) -> -1073741830) ((3107 . 5625) (+ -1073741826 -3) -> -1073741829) ((3108 . 5625) (+ -1073741826 -2) -> -1073741828) ((3109 . 5625) (+ -1073741826 -1) -> -1073741827) ((3110 . 5625) (+ -1073741826 0) -> -1073741826) ((3111 . 5625) (+ -1073741825 -4) -> -1073741829) ((3112 . 5625) (+ -1073741825 -3) -> -1073741828) ((3113 . 5625) (+ -1073741825 -2) -> -1073741827) ((3114 . 5625) (+ -1073741825 -1) -> -1073741826) ((3115 . 5625) (+ -1073741825 0) -> -1073741825) ((3116 . 5625) (+ -1073741824 -4) -> -1073741828) ((3117 . 5625) (+ -1073741824 -3) -> -1073741827) ((3118 . 5625) (+ -1073741824 -2) -> -1073741826) ((3119 . 5625) (+ -1073741824 -1) -> -1073741825) ((3120 . 5625) (+ -1073741824 0) -> -1073741824) ((3121 . 5625) (+ -1073741823 -4) -> -1073741827) ((3122 . 5625) (+ -1073741823 -3) -> -1073741826) ((3123 . 5625) (+ -1073741823 -2) -> -1073741825) ((3124 . 5625) (+ -1073741823 -1) -> -1073741824) ((3125 . 5625) (+ -1073741823 0) -> -1073741823) ((3126 . 5625) (+ -1073741827 1073741821) -> -6) ((3127 . 5625) (+ -1073741827 1073741822) -> -5) ((3128 . 5625) (+ -1073741827 1073741823) -> -4) ((3129 . 5625) (+ -1073741827 1073741824) -> -3) ((3130 . 5625) (+ -1073741827 1073741825) -> -2) ((3131 . 5625) (+ -1073741826 1073741821) -> -5) ((3132 . 5625) (+ -1073741826 1073741822) -> -4) ((3133 . 5625) (+ -1073741826 1073741823) -> -3) ((3134 . 5625) (+ -1073741826 1073741824) -> -2) ((3135 . 5625) (+ -1073741826 1073741825) -> -1) ((3136 . 5625) (+ -1073741825 1073741821) -> -4) ((3137 . 5625) (+ -1073741825 1073741822) -> -3) ((3138 . 5625) (+ -1073741825 1073741823) -> -2) ((3139 . 5625) (+ -1073741825 1073741824) -> -1) ((3140 . 5625) (+ -1073741825 1073741825) -> 0) ((3141 . 5625) (+ -1073741824 1073741821) -> -3) ((3142 . 5625) (+ -1073741824 1073741822) -> -2) ((3143 . 5625) (+ -1073741824 1073741823) -> -1) ((3144 . 5625) (+ -1073741824 1073741824) -> 0) ((3145 . 5625) (+ -1073741824 1073741825) -> 1) ((3146 . 5625) (+ -1073741823 1073741821) -> -2) ((3147 . 5625) (+ -1073741823 1073741822) -> -1) ((3148 . 5625) (+ -1073741823 1073741823) -> 0) ((3149 . 5625) (+ -1073741823 1073741824) -> 1) ((3150 . 5625) (+ -1073741823 1073741825) -> 2) ((3151 . 5625) (+ -1073741827 -1073741826) -> -2147483653) ((3152 . 5625) (+ -1073741827 -1073741825) -> -2147483652) ((3153 . 5625) (+ -1073741827 -1073741824) -> -2147483651) ((3154 . 5625) (+ -1073741827 -1073741823) -> -2147483650) ((3155 . 5625) (+ -1073741827 -1073741822) -> -2147483649) ((3156 . 5625) (+ -1073741826 -1073741826) -> -2147483652) ((3157 . 5625) (+ -1073741826 -1073741825) -> -2147483651) ((3158 . 5625) (+ -1073741826 -1073741824) -> -2147483650) ((3159 . 5625) (+ -1073741826 -1073741823) -> -2147483649) ((3160 . 5625) (+ -1073741826 -1073741822) -> -2147483648) ((3161 . 5625) (+ -1073741825 -1073741826) -> -2147483651) ((3162 . 5625) (+ -1073741825 -1073741825) -> -2147483650) ((3163 . 5625) (+ -1073741825 -1073741824) -> -2147483649) ((3164 . 5625) (+ -1073741825 -1073741823) -> -2147483648) ((3165 . 5625) (+ -1073741825 -1073741822) -> -2147483647) ((3166 . 5625) (+ -1073741824 -1073741826) -> -2147483650) ((3167 . 5625) (+ -1073741824 -1073741825) -> -2147483649) ((3168 . 5625) (+ -1073741824 -1073741824) -> -2147483648) ((3169 . 5625) (+ -1073741824 -1073741823) -> -2147483647) ((3170 . 5625) (+ -1073741824 -1073741822) -> -2147483646) ((3171 . 5625) (+ -1073741823 -1073741826) -> -2147483649) ((3172 . 5625) (+ -1073741823 -1073741825) -> -2147483648) ((3173 . 5625) (+ -1073741823 -1073741824) -> -2147483647) ((3174 . 5625) (+ -1073741823 -1073741823) -> -2147483646) ((3175 . 5625) (+ -1073741823 -1073741822) -> -2147483645) ((3176 . 5625) (+ -1073741827 1073741822) -> -5) ((3177 . 5625) (+ -1073741827 1073741823) -> -4) ((3178 . 5625) (+ -1073741827 1073741824) -> -3) ((3179 . 5625) (+ -1073741827 1073741825) -> -2) ((3180 . 5625) (+ -1073741827 1073741826) -> -1) ((3181 . 5625) (+ -1073741826 1073741822) -> -4) ((3182 . 5625) (+ -1073741826 1073741823) -> -3) ((3183 . 5625) (+ -1073741826 1073741824) -> -2) ((3184 . 5625) (+ -1073741826 1073741825) -> -1) ((3185 . 5625) (+ -1073741826 1073741826) -> 0) ((3186 . 5625) (+ -1073741825 1073741822) -> -3) ((3187 . 5625) (+ -1073741825 1073741823) -> -2) ((3188 . 5625) (+ -1073741825 1073741824) -> -1) ((3189 . 5625) (+ -1073741825 1073741825) -> 0) ((3190 . 5625) (+ -1073741825 1073741826) -> 1) ((3191 . 5625) (+ -1073741824 1073741822) -> -2) ((3192 . 5625) (+ -1073741824 1073741823) -> -1) ((3193 . 5625) (+ -1073741824 1073741824) -> 0) ((3194 . 5625) (+ -1073741824 1073741825) -> 1) ((3195 . 5625) (+ -1073741824 1073741826) -> 2) ((3196 . 5625) (+ -1073741823 1073741822) -> -1) ((3197 . 5625) (+ -1073741823 1073741823) -> 0) ((3198 . 5625) (+ -1073741823 1073741824) -> 1) ((3199 . 5625) (+ -1073741823 1073741825) -> 2) ((3200 . 5625) (+ -1073741823 1073741826) -> 3) ((3201 . 5625) (+ -1073741827 -1073741827) -> -2147483654) ((3202 . 5625) (+ -1073741827 -1073741826) -> -2147483653) ((3203 . 5625) (+ -1073741827 -1073741825) -> -2147483652) ((3204 . 5625) (+ -1073741827 -1073741824) -> -2147483651) ((3205 . 5625) (+ -1073741827 -1073741823) -> -2147483650) ((3206 . 5625) (+ -1073741826 -1073741827) -> -2147483653) ((3207 . 5625) (+ -1073741826 -1073741826) -> -2147483652) ((3208 . 5625) (+ -1073741826 -1073741825) -> -2147483651) ((3209 . 5625) (+ -1073741826 -1073741824) -> -2147483650) ((3210 . 5625) (+ -1073741826 -1073741823) -> -2147483649) ((3211 . 5625) (+ -1073741825 -1073741827) -> -2147483652) ((3212 . 5625) (+ -1073741825 -1073741826) -> -2147483651) ((3213 . 5625) (+ -1073741825 -1073741825) -> -2147483650) ((3214 . 5625) (+ -1073741825 -1073741824) -> -2147483649) ((3215 . 5625) (+ -1073741825 -1073741823) -> -2147483648) ((3216 . 5625) (+ -1073741824 -1073741827) -> -2147483651) ((3217 . 5625) (+ -1073741824 -1073741826) -> -2147483650) ((3218 . 5625) (+ -1073741824 -1073741825) -> -2147483649) ((3219 . 5625) (+ -1073741824 -1073741824) -> -2147483648) ((3220 . 5625) (+ -1073741824 -1073741823) -> -2147483647) ((3221 . 5625) (+ -1073741823 -1073741827) -> -2147483650) ((3222 . 5625) (+ -1073741823 -1073741826) -> -2147483649) ((3223 . 5625) (+ -1073741823 -1073741825) -> -2147483648) ((3224 . 5625) (+ -1073741823 -1073741824) -> -2147483647) ((3225 . 5625) (+ -1073741823 -1073741823) -> -2147483646) ((3226 . 5625) (+ -1073741827 1103515243) -> 29773416) ((3227 . 5625) (+ -1073741827 1103515244) -> 29773417) ((3228 . 5625) (+ -1073741827 1103515245) -> 29773418) ((3229 . 5625) (+ -1073741827 1103515246) -> 29773419) ((3230 . 5625) (+ -1073741827 1103515247) -> 29773420) ((3231 . 5625) (+ -1073741826 1103515243) -> 29773417) ((3232 . 5625) (+ -1073741826 1103515244) -> 29773418) ((3233 . 5625) (+ -1073741826 1103515245) -> 29773419) ((3234 . 5625) (+ -1073741826 1103515246) -> 29773420) ((3235 . 5625) (+ -1073741826 1103515247) -> 29773421) ((3236 . 5625) (+ -1073741825 1103515243) -> 29773418) ((3237 . 5625) (+ -1073741825 1103515244) -> 29773419) ((3238 . 5625) (+ -1073741825 1103515245) -> 29773420) ((3239 . 5625) (+ -1073741825 1103515246) -> 29773421) ((3240 . 5625) (+ -1073741825 1103515247) -> 29773422) ((3241 . 5625) (+ -1073741824 1103515243) -> 29773419) ((3242 . 5625) (+ -1073741824 1103515244) -> 29773420) ((3243 . 5625) (+ -1073741824 1103515245) -> 29773421) ((3244 . 5625) (+ -1073741824 1103515246) -> 29773422) ((3245 . 5625) (+ -1073741824 1103515247) -> 29773423) ((3246 . 5625) (+ -1073741823 1103515243) -> 29773420) ((3247 . 5625) (+ -1073741823 1103515244) -> 29773421) ((3248 . 5625) (+ -1073741823 1103515245) -> 29773422) ((3249 . 5625) (+ -1073741823 1103515246) -> 29773423) ((3250 . 5625) (+ -1073741823 1103515247) -> 29773424) ((3251 . 5625) (+ -1073741827 631629063) -> -442112764) ((3252 . 5625) (+ -1073741827 631629064) -> -442112763) ((3253 . 5625) (+ -1073741827 631629065) -> -442112762) ((3254 . 5625) (+ -1073741827 631629066) -> -442112761) ((3255 . 5625) (+ -1073741827 631629067) -> -442112760) ((3256 . 5625) (+ -1073741826 631629063) -> -442112763) ((3257 . 5625) (+ -1073741826 631629064) -> -442112762) ((3258 . 5625) (+ -1073741826 631629065) -> -442112761) ((3259 . 5625) (+ -1073741826 631629066) -> -442112760) ((3260 . 5625) (+ -1073741826 631629067) -> -442112759) ((3261 . 5625) (+ -1073741825 631629063) -> -442112762) ((3262 . 5625) (+ -1073741825 631629064) -> -442112761) ((3263 . 5625) (+ -1073741825 631629065) -> -442112760) ((3264 . 5625) (+ -1073741825 631629066) -> -442112759) ((3265 . 5625) (+ -1073741825 631629067) -> -442112758) ((3266 . 5625) (+ -1073741824 631629063) -> -442112761) ((3267 . 5625) (+ -1073741824 631629064) -> -442112760) ((3268 . 5625) (+ -1073741824 631629065) -> -442112759) ((3269 . 5625) (+ -1073741824 631629066) -> -442112758) ((3270 . 5625) (+ -1073741824 631629067) -> -442112757) ((3271 . 5625) (+ -1073741823 631629063) -> -442112760) ((3272 . 5625) (+ -1073741823 631629064) -> -442112759) ((3273 . 5625) (+ -1073741823 631629065) -> -442112758) ((3274 . 5625) (+ -1073741823 631629066) -> -442112757) ((3275 . 5625) (+ -1073741823 631629067) -> -442112756) ((3276 . 5625) (+ -1073741827 9007199254740990) -> 9007198180999163) ((3277 . 5625) (+ -1073741827 9007199254740991) -> 9007198180999164) ((3278 . 5625) (+ -1073741827 9007199254740992) -> 9007198180999165) ((3279 . 5625) (+ -1073741827 9007199254740993) -> 9007198180999166) ((3280 . 5625) (+ -1073741827 9007199254740994) -> 9007198180999167) ((3281 . 5625) (+ -1073741826 9007199254740990) -> 9007198180999164) ((3282 . 5625) (+ -1073741826 9007199254740991) -> 9007198180999165) ((3283 . 5625) (+ -1073741826 9007199254740992) -> 9007198180999166) ((3284 . 5625) (+ -1073741826 9007199254740993) -> 9007198180999167) ((3285 . 5625) (+ -1073741826 9007199254740994) -> 9007198180999168) ((3286 . 5625) (+ -1073741825 9007199254740990) -> 9007198180999165) ((3287 . 5625) (+ -1073741825 9007199254740991) -> 9007198180999166) ((3288 . 5625) (+ -1073741825 9007199254740992) -> 9007198180999167) ((3289 . 5625) (+ -1073741825 9007199254740993) -> 9007198180999168) ((3290 . 5625) (+ -1073741825 9007199254740994) -> 9007198180999169) ((3291 . 5625) (+ -1073741824 9007199254740990) -> 9007198180999166) ((3292 . 5625) (+ -1073741824 9007199254740991) -> 9007198180999167) ((3293 . 5625) (+ -1073741824 9007199254740992) -> 9007198180999168) ((3294 . 5625) (+ -1073741824 9007199254740993) -> 9007198180999169) ((3295 . 5625) (+ -1073741824 9007199254740994) -> 9007198180999170) ((3296 . 5625) (+ -1073741823 9007199254740990) -> 9007198180999167) ((3297 . 5625) (+ -1073741823 9007199254740991) -> 9007198180999168) ((3298 . 5625) (+ -1073741823 9007199254740992) -> 9007198180999169) ((3299 . 5625) (+ -1073741823 9007199254740993) -> 9007198180999170) ((3300 . 5625) (+ -1073741823 9007199254740994) -> 9007198180999171) ((3301 . 5625) (+ -1073741827 -9007199254740994) -> -9007200328482821) ((3302 . 5625) (+ -1073741827 -9007199254740993) -> -9007200328482820) ((3303 . 5625) (+ -1073741827 -9007199254740992) -> -9007200328482819) ((3304 . 5625) (+ -1073741827 -9007199254740991) -> -9007200328482818) ((3305 . 5625) (+ -1073741827 -9007199254740990) -> -9007200328482817) ((3306 . 5625) (+ -1073741826 -9007199254740994) -> -9007200328482820) ((3307 . 5625) (+ -1073741826 -9007199254740993) -> -9007200328482819) ((3308 . 5625) (+ -1073741826 -9007199254740992) -> -9007200328482818) ((3309 . 5625) (+ -1073741826 -9007199254740991) -> -9007200328482817) ((3310 . 5625) (+ -1073741826 -9007199254740990) -> -9007200328482816) ((3311 . 5625) (+ -1073741825 -9007199254740994) -> -9007200328482819) ((3312 . 5625) (+ -1073741825 -9007199254740993) -> -9007200328482818) ((3313 . 5625) (+ -1073741825 -9007199254740992) -> -9007200328482817) ((3314 . 5625) (+ -1073741825 -9007199254740991) -> -9007200328482816) ((3315 . 5625) (+ -1073741825 -9007199254740990) -> -9007200328482815) ((3316 . 5625) (+ -1073741824 -9007199254740994) -> -9007200328482818) ((3317 . 5625) (+ -1073741824 -9007199254740993) -> -9007200328482817) ((3318 . 5625) (+ -1073741824 -9007199254740992) -> -9007200328482816) ((3319 . 5625) (+ -1073741824 -9007199254740991) -> -9007200328482815) ((3320 . 5625) (+ -1073741824 -9007199254740990) -> -9007200328482814) ((3321 . 5625) (+ -1073741823 -9007199254740994) -> -9007200328482817) ((3322 . 5625) (+ -1073741823 -9007199254740993) -> -9007200328482816) ((3323 . 5625) (+ -1073741823 -9007199254740992) -> -9007200328482815) ((3324 . 5625) (+ -1073741823 -9007199254740991) -> -9007200328482814) ((3325 . 5625) (+ -1073741823 -9007199254740990) -> -9007200328482813) ((3326 . 5625) (+ -1073741827 12343) -> -1073729484) ((3327 . 5625) (+ -1073741827 12344) -> -1073729483) ((3328 . 5625) (+ -1073741827 12345) -> -1073729482) ((3329 . 5625) (+ -1073741827 12346) -> -1073729481) ((3330 . 5625) (+ -1073741827 12347) -> -1073729480) ((3331 . 5625) (+ -1073741826 12343) -> -1073729483) ((3332 . 5625) (+ -1073741826 12344) -> -1073729482) ((3333 . 5625) (+ -1073741826 12345) -> -1073729481) ((3334 . 5625) (+ -1073741826 12346) -> -1073729480) ((3335 . 5625) (+ -1073741826 12347) -> -1073729479) ((3336 . 5625) (+ -1073741825 12343) -> -1073729482) ((3337 . 5625) (+ -1073741825 12344) -> -1073729481) ((3338 . 5625) (+ -1073741825 12345) -> -1073729480) ((3339 . 5625) (+ -1073741825 12346) -> -1073729479) ((3340 . 5625) (+ -1073741825 12347) -> -1073729478) ((3341 . 5625) (+ -1073741824 12343) -> -1073729481) ((3342 . 5625) (+ -1073741824 12344) -> -1073729480) ((3343 . 5625) (+ -1073741824 12345) -> -1073729479) ((3344 . 5625) (+ -1073741824 12346) -> -1073729478) ((3345 . 5625) (+ -1073741824 12347) -> -1073729477) ((3346 . 5625) (+ -1073741823 12343) -> -1073729480) ((3347 . 5625) (+ -1073741823 12344) -> -1073729479) ((3348 . 5625) (+ -1073741823 12345) -> -1073729478) ((3349 . 5625) (+ -1073741823 12346) -> -1073729477) ((3350 . 5625) (+ -1073741823 12347) -> -1073729476) ((3351 . 5625) (+ -1073741827 4294967294) -> 3221225467) ((3352 . 5625) (+ -1073741827 4294967295) -> 3221225468) ((3353 . 5625) (+ -1073741827 4294967296) -> 3221225469) ((3354 . 5625) (+ -1073741827 4294967297) -> 3221225470) ((3355 . 5625) (+ -1073741827 4294967298) -> 3221225471) ((3356 . 5625) (+ -1073741826 4294967294) -> 3221225468) ((3357 . 5625) (+ -1073741826 4294967295) -> 3221225469) ((3358 . 5625) (+ -1073741826 4294967296) -> 3221225470) ((3359 . 5625) (+ -1073741826 4294967297) -> 3221225471) ((3360 . 5625) (+ -1073741826 4294967298) -> 3221225472) ((3361 . 5625) (+ -1073741825 4294967294) -> 3221225469) ((3362 . 5625) (+ -1073741825 4294967295) -> 3221225470) ((3363 . 5625) (+ -1073741825 4294967296) -> 3221225471) ((3364 . 5625) (+ -1073741825 4294967297) -> 3221225472) ((3365 . 5625) (+ -1073741825 4294967298) -> 3221225473) ((3366 . 5625) (+ -1073741824 4294967294) -> 3221225470) ((3367 . 5625) (+ -1073741824 4294967295) -> 3221225471) ((3368 . 5625) (+ -1073741824 4294967296) -> 3221225472) ((3369 . 5625) (+ -1073741824 4294967297) -> 3221225473) ((3370 . 5625) (+ -1073741824 4294967298) -> 3221225474) ((3371 . 5625) (+ -1073741823 4294967294) -> 3221225471) ((3372 . 5625) (+ -1073741823 4294967295) -> 3221225472) ((3373 . 5625) (+ -1073741823 4294967296) -> 3221225473) ((3374 . 5625) (+ -1073741823 4294967297) -> 3221225474) ((3375 . 5625) (+ -1073741823 4294967298) -> 3221225475) ((3376 . 5625) (+ 1103515243 -2) -> 1103515241) ((3377 . 5625) (+ 1103515243 -1) -> 1103515242) ((3378 . 5625) (+ 1103515243 0) -> 1103515243) ((3379 . 5625) (+ 1103515243 1) -> 1103515244) ((3380 . 5625) (+ 1103515243 2) -> 1103515245) ((3381 . 5625) (+ 1103515244 -2) -> 1103515242) ((3382 . 5625) (+ 1103515244 -1) -> 1103515243) ((3383 . 5625) (+ 1103515244 0) -> 1103515244) ((3384 . 5625) (+ 1103515244 1) -> 1103515245) ((3385 . 5625) (+ 1103515244 2) -> 1103515246) ((3386 . 5625) (+ 1103515245 -2) -> 1103515243) ((3387 . 5625) (+ 1103515245 -1) -> 1103515244) ((3388 . 5625) (+ 1103515245 0) -> 1103515245) ((3389 . 5625) (+ 1103515245 1) -> 1103515246) ((3390 . 5625) (+ 1103515245 2) -> 1103515247) ((3391 . 5625) (+ 1103515246 -2) -> 1103515244) ((3392 . 5625) (+ 1103515246 -1) -> 1103515245) ((3393 . 5625) (+ 1103515246 0) -> 1103515246) ((3394 . 5625) (+ 1103515246 1) -> 1103515247) ((3395 . 5625) (+ 1103515246 2) -> 1103515248) ((3396 . 5625) (+ 1103515247 -2) -> 1103515245) ((3397 . 5625) (+ 1103515247 -1) -> 1103515246) ((3398 . 5625) (+ 1103515247 0) -> 1103515247) ((3399 . 5625) (+ 1103515247 1) -> 1103515248) ((3400 . 5625) (+ 1103515247 2) -> 1103515249) ((3401 . 5625) (+ 1103515243 -1) -> 1103515242) ((3402 . 5625) (+ 1103515243 0) -> 1103515243) ((3403 . 5625) (+ 1103515243 1) -> 1103515244) ((3404 . 5625) (+ 1103515243 2) -> 1103515245) ((3405 . 5625) (+ 1103515243 3) -> 1103515246) ((3406 . 5625) (+ 1103515244 -1) -> 1103515243) ((3407 . 5625) (+ 1103515244 0) -> 1103515244) ((3408 . 5625) (+ 1103515244 1) -> 1103515245) ((3409 . 5625) (+ 1103515244 2) -> 1103515246) ((3410 . 5625) (+ 1103515244 3) -> 1103515247) ((3411 . 5625) (+ 1103515245 -1) -> 1103515244) ((3412 . 5625) (+ 1103515245 0) -> 1103515245) ((3413 . 5625) (+ 1103515245 1) -> 1103515246) ((3414 . 5625) (+ 1103515245 2) -> 1103515247) ((3415 . 5625) (+ 1103515245 3) -> 1103515248) ((3416 . 5625) (+ 1103515246 -1) -> 1103515245) ((3417 . 5625) (+ 1103515246 0) -> 1103515246) ((3418 . 5625) (+ 1103515246 1) -> 1103515247) ((3419 . 5625) (+ 1103515246 2) -> 1103515248) ((3420 . 5625) (+ 1103515246 3) -> 1103515249) ((3421 . 5625) (+ 1103515247 -1) -> 1103515246) ((3422 . 5625) (+ 1103515247 0) -> 1103515247) ((3423 . 5625) (+ 1103515247 1) -> 1103515248) ((3424 . 5625) (+ 1103515247 2) -> 1103515249) ((3425 . 5625) (+ 1103515247 3) -> 1103515250) ((3426 . 5625) (+ 1103515243 -3) -> 1103515240) ((3427 . 5625) (+ 1103515243 -2) -> 1103515241) ((3428 . 5625) (+ 1103515243 -1) -> 1103515242) ((3429 . 5625) (+ 1103515243 0) -> 1103515243) ((3430 . 5625) (+ 1103515243 1) -> 1103515244) ((3431 . 5625) (+ 1103515244 -3) -> 1103515241) ((3432 . 5625) (+ 1103515244 -2) -> 1103515242) ((3433 . 5625) (+ 1103515244 -1) -> 1103515243) ((3434 . 5625) (+ 1103515244 0) -> 1103515244) ((3435 . 5625) (+ 1103515244 1) -> 1103515245) ((3436 . 5625) (+ 1103515245 -3) -> 1103515242) ((3437 . 5625) (+ 1103515245 -2) -> 1103515243) ((3438 . 5625) (+ 1103515245 -1) -> 1103515244) ((3439 . 5625) (+ 1103515245 0) -> 1103515245) ((3440 . 5625) (+ 1103515245 1) -> 1103515246) ((3441 . 5625) (+ 1103515246 -3) -> 1103515243) ((3442 . 5625) (+ 1103515246 -2) -> 1103515244) ((3443 . 5625) (+ 1103515246 -1) -> 1103515245) ((3444 . 5625) (+ 1103515246 0) -> 1103515246) ((3445 . 5625) (+ 1103515246 1) -> 1103515247) ((3446 . 5625) (+ 1103515247 -3) -> 1103515244) ((3447 . 5625) (+ 1103515247 -2) -> 1103515245) ((3448 . 5625) (+ 1103515247 -1) -> 1103515246) ((3449 . 5625) (+ 1103515247 0) -> 1103515247) ((3450 . 5625) (+ 1103515247 1) -> 1103515248) ((3451 . 5625) (+ 1103515243 0) -> 1103515243) ((3452 . 5625) (+ 1103515243 1) -> 1103515244) ((3453 . 5625) (+ 1103515243 2) -> 1103515245) ((3454 . 5625) (+ 1103515243 3) -> 1103515246) ((3455 . 5625) (+ 1103515243 4) -> 1103515247) ((3456 . 5625) (+ 1103515244 0) -> 1103515244) ((3457 . 5625) (+ 1103515244 1) -> 1103515245) ((3458 . 5625) (+ 1103515244 2) -> 1103515246) ((3459 . 5625) (+ 1103515244 3) -> 1103515247) ((3460 . 5625) (+ 1103515244 4) -> 1103515248) ((3461 . 5625) (+ 1103515245 0) -> 1103515245) ((3462 . 5625) (+ 1103515245 1) -> 1103515246) ((3463 . 5625) (+ 1103515245 2) -> 1103515247) ((3464 . 5625) (+ 1103515245 3) -> 1103515248) ((3465 . 5625) (+ 1103515245 4) -> 1103515249) ((3466 . 5625) (+ 1103515246 0) -> 1103515246) ((3467 . 5625) (+ 1103515246 1) -> 1103515247) ((3468 . 5625) (+ 1103515246 2) -> 1103515248) ((3469 . 5625) (+ 1103515246 3) -> 1103515249) ((3470 . 5625) (+ 1103515246 4) -> 1103515250) ((3471 . 5625) (+ 1103515247 0) -> 1103515247) ((3472 . 5625) (+ 1103515247 1) -> 1103515248) ((3473 . 5625) (+ 1103515247 2) -> 1103515249) ((3474 . 5625) (+ 1103515247 3) -> 1103515250) ((3475 . 5625) (+ 1103515247 4) -> 1103515251) ((3476 . 5625) (+ 1103515243 -4) -> 1103515239) ((3477 . 5625) (+ 1103515243 -3) -> 1103515240) ((3478 . 5625) (+ 1103515243 -2) -> 1103515241) ((3479 . 5625) (+ 1103515243 -1) -> 1103515242) ((3480 . 5625) (+ 1103515243 0) -> 1103515243) ((3481 . 5625) (+ 1103515244 -4) -> 1103515240) ((3482 . 5625) (+ 1103515244 -3) -> 1103515241) ((3483 . 5625) (+ 1103515244 -2) -> 1103515242) ((3484 . 5625) (+ 1103515244 -1) -> 1103515243) ((3485 . 5625) (+ 1103515244 0) -> 1103515244) ((3486 . 5625) (+ 1103515245 -4) -> 1103515241) ((3487 . 5625) (+ 1103515245 -3) -> 1103515242) ((3488 . 5625) (+ 1103515245 -2) -> 1103515243) ((3489 . 5625) (+ 1103515245 -1) -> 1103515244) ((3490 . 5625) (+ 1103515245 0) -> 1103515245) ((3491 . 5625) (+ 1103515246 -4) -> 1103515242) ((3492 . 5625) (+ 1103515246 -3) -> 1103515243) ((3493 . 5625) (+ 1103515246 -2) -> 1103515244) ((3494 . 5625) (+ 1103515246 -1) -> 1103515245) ((3495 . 5625) (+ 1103515246 0) -> 1103515246) ((3496 . 5625) (+ 1103515247 -4) -> 1103515243) ((3497 . 5625) (+ 1103515247 -3) -> 1103515244) ((3498 . 5625) (+ 1103515247 -2) -> 1103515245) ((3499 . 5625) (+ 1103515247 -1) -> 1103515246) ((3500 . 5625) (+ 1103515247 0) -> 1103515247) ((3501 . 5625) (+ 1103515243 1073741821) -> 2177257064) ((3502 . 5625) (+ 1103515243 1073741822) -> 2177257065) ((3503 . 5625) (+ 1103515243 1073741823) -> 2177257066) ((3504 . 5625) (+ 1103515243 1073741824) -> 2177257067) ((3505 . 5625) (+ 1103515243 1073741825) -> 2177257068) ((3506 . 5625) (+ 1103515244 1073741821) -> 2177257065) ((3507 . 5625) (+ 1103515244 1073741822) -> 2177257066) ((3508 . 5625) (+ 1103515244 1073741823) -> 2177257067) ((3509 . 5625) (+ 1103515244 1073741824) -> 2177257068) ((3510 . 5625) (+ 1103515244 1073741825) -> 2177257069) ((3511 . 5625) (+ 1103515245 1073741821) -> 2177257066) ((3512 . 5625) (+ 1103515245 1073741822) -> 2177257067) ((3513 . 5625) (+ 1103515245 1073741823) -> 2177257068) ((3514 . 5625) (+ 1103515245 1073741824) -> 2177257069) ((3515 . 5625) (+ 1103515245 1073741825) -> 2177257070) ((3516 . 5625) (+ 1103515246 1073741821) -> 2177257067) ((3517 . 5625) (+ 1103515246 1073741822) -> 2177257068) ((3518 . 5625) (+ 1103515246 1073741823) -> 2177257069) ((3519 . 5625) (+ 1103515246 1073741824) -> 2177257070) ((3520 . 5625) (+ 1103515246 1073741825) -> 2177257071) ((3521 . 5625) (+ 1103515247 1073741821) -> 2177257068) ((3522 . 5625) (+ 1103515247 1073741822) -> 2177257069) ((3523 . 5625) (+ 1103515247 1073741823) -> 2177257070) ((3524 . 5625) (+ 1103515247 1073741824) -> 2177257071) ((3525 . 5625) (+ 1103515247 1073741825) -> 2177257072) ((3526 . 5625) (+ 1103515243 -1073741826) -> 29773417) ((3527 . 5625) (+ 1103515243 -1073741825) -> 29773418) ((3528 . 5625) (+ 1103515243 -1073741824) -> 29773419) ((3529 . 5625) (+ 1103515243 -1073741823) -> 29773420) ((3530 . 5625) (+ 1103515243 -1073741822) -> 29773421) ((3531 . 5625) (+ 1103515244 -1073741826) -> 29773418) ((3532 . 5625) (+ 1103515244 -1073741825) -> 29773419) ((3533 . 5625) (+ 1103515244 -1073741824) -> 29773420) ((3534 . 5625) (+ 1103515244 -1073741823) -> 29773421) ((3535 . 5625) (+ 1103515244 -1073741822) -> 29773422) ((3536 . 5625) (+ 1103515245 -1073741826) -> 29773419) ((3537 . 5625) (+ 1103515245 -1073741825) -> 29773420) ((3538 . 5625) (+ 1103515245 -1073741824) -> 29773421) ((3539 . 5625) (+ 1103515245 -1073741823) -> 29773422) ((3540 . 5625) (+ 1103515245 -1073741822) -> 29773423) ((3541 . 5625) (+ 1103515246 -1073741826) -> 29773420) ((3542 . 5625) (+ 1103515246 -1073741825) -> 29773421) ((3543 . 5625) (+ 1103515246 -1073741824) -> 29773422) ((3544 . 5625) (+ 1103515246 -1073741823) -> 29773423) ((3545 . 5625) (+ 1103515246 -1073741822) -> 29773424) ((3546 . 5625) (+ 1103515247 -1073741826) -> 29773421) ((3547 . 5625) (+ 1103515247 -1073741825) -> 29773422) ((3548 . 5625) (+ 1103515247 -1073741824) -> 29773423) ((3549 . 5625) (+ 1103515247 -1073741823) -> 29773424) ((3550 . 5625) (+ 1103515247 -1073741822) -> 29773425) ((3551 . 5625) (+ 1103515243 1073741822) -> 2177257065) ((3552 . 5625) (+ 1103515243 1073741823) -> 2177257066) ((3553 . 5625) (+ 1103515243 1073741824) -> 2177257067) ((3554 . 5625) (+ 1103515243 1073741825) -> 2177257068) ((3555 . 5625) (+ 1103515243 1073741826) -> 2177257069) ((3556 . 5625) (+ 1103515244 1073741822) -> 2177257066) ((3557 . 5625) (+ 1103515244 1073741823) -> 2177257067) ((3558 . 5625) (+ 1103515244 1073741824) -> 2177257068) ((3559 . 5625) (+ 1103515244 1073741825) -> 2177257069) ((3560 . 5625) (+ 1103515244 1073741826) -> 2177257070) ((3561 . 5625) (+ 1103515245 1073741822) -> 2177257067) ((3562 . 5625) (+ 1103515245 1073741823) -> 2177257068) ((3563 . 5625) (+ 1103515245 1073741824) -> 2177257069) ((3564 . 5625) (+ 1103515245 1073741825) -> 2177257070) ((3565 . 5625) (+ 1103515245 1073741826) -> 2177257071) ((3566 . 5625) (+ 1103515246 1073741822) -> 2177257068) ((3567 . 5625) (+ 1103515246 1073741823) -> 2177257069) ((3568 . 5625) (+ 1103515246 1073741824) -> 2177257070) ((3569 . 5625) (+ 1103515246 1073741825) -> 2177257071) ((3570 . 5625) (+ 1103515246 1073741826) -> 2177257072) ((3571 . 5625) (+ 1103515247 1073741822) -> 2177257069) ((3572 . 5625) (+ 1103515247 1073741823) -> 2177257070) ((3573 . 5625) (+ 1103515247 1073741824) -> 2177257071) ((3574 . 5625) (+ 1103515247 1073741825) -> 2177257072) ((3575 . 5625) (+ 1103515247 1073741826) -> 2177257073) ((3576 . 5625) (+ 1103515243 -1073741827) -> 29773416) ((3577 . 5625) (+ 1103515243 -1073741826) -> 29773417) ((3578 . 5625) (+ 1103515243 -1073741825) -> 29773418) ((3579 . 5625) (+ 1103515243 -1073741824) -> 29773419) ((3580 . 5625) (+ 1103515243 -1073741823) -> 29773420) ((3581 . 5625) (+ 1103515244 -1073741827) -> 29773417) ((3582 . 5625) (+ 1103515244 -1073741826) -> 29773418) ((3583 . 5625) (+ 1103515244 -1073741825) -> 29773419) ((3584 . 5625) (+ 1103515244 -1073741824) -> 29773420) ((3585 . 5625) (+ 1103515244 -1073741823) -> 29773421) ((3586 . 5625) (+ 1103515245 -1073741827) -> 29773418) ((3587 . 5625) (+ 1103515245 -1073741826) -> 29773419) ((3588 . 5625) (+ 1103515245 -1073741825) -> 29773420) ((3589 . 5625) (+ 1103515245 -1073741824) -> 29773421) ((3590 . 5625) (+ 1103515245 -1073741823) -> 29773422) ((3591 . 5625) (+ 1103515246 -1073741827) -> 29773419) ((3592 . 5625) (+ 1103515246 -1073741826) -> 29773420) ((3593 . 5625) (+ 1103515246 -1073741825) -> 29773421) ((3594 . 5625) (+ 1103515246 -1073741824) -> 29773422) ((3595 . 5625) (+ 1103515246 -1073741823) -> 29773423) ((3596 . 5625) (+ 1103515247 -1073741827) -> 29773420) ((3597 . 5625) (+ 1103515247 -1073741826) -> 29773421) ((3598 . 5625) (+ 1103515247 -1073741825) -> 29773422) ((3599 . 5625) (+ 1103515247 -1073741824) -> 29773423) ((3600 . 5625) (+ 1103515247 -1073741823) -> 29773424) ((3601 . 5625) (+ 1103515243 1103515243) -> 2207030486) ((3602 . 5625) (+ 1103515243 1103515244) -> 2207030487) ((3603 . 5625) (+ 1103515243 1103515245) -> 2207030488) ((3604 . 5625) (+ 1103515243 1103515246) -> 2207030489) ((3605 . 5625) (+ 1103515243 1103515247) -> 2207030490) ((3606 . 5625) (+ 1103515244 1103515243) -> 2207030487) ((3607 . 5625) (+ 1103515244 1103515244) -> 2207030488) ((3608 . 5625) (+ 1103515244 1103515245) -> 2207030489) ((3609 . 5625) (+ 1103515244 1103515246) -> 2207030490) ((3610 . 5625) (+ 1103515244 1103515247) -> 2207030491) ((3611 . 5625) (+ 1103515245 1103515243) -> 2207030488) ((3612 . 5625) (+ 1103515245 1103515244) -> 2207030489) ((3613 . 5625) (+ 1103515245 1103515245) -> 2207030490) ((3614 . 5625) (+ 1103515245 1103515246) -> 2207030491) ((3615 . 5625) (+ 1103515245 1103515247) -> 2207030492) ((3616 . 5625) (+ 1103515246 1103515243) -> 2207030489) ((3617 . 5625) (+ 1103515246 1103515244) -> 2207030490) ((3618 . 5625) (+ 1103515246 1103515245) -> 2207030491) ((3619 . 5625) (+ 1103515246 1103515246) -> 2207030492) ((3620 . 5625) (+ 1103515246 1103515247) -> 2207030493) ((3621 . 5625) (+ 1103515247 1103515243) -> 2207030490) ((3622 . 5625) (+ 1103515247 1103515244) -> 2207030491) ((3623 . 5625) (+ 1103515247 1103515245) -> 2207030492) ((3624 . 5625) (+ 1103515247 1103515246) -> 2207030493) ((3625 . 5625) (+ 1103515247 1103515247) -> 2207030494) ((3626 . 5625) (+ 1103515243 631629063) -> 1735144306) ((3627 . 5625) (+ 1103515243 631629064) -> 1735144307) ((3628 . 5625) (+ 1103515243 631629065) -> 1735144308) ((3629 . 5625) (+ 1103515243 631629066) -> 1735144309) ((3630 . 5625) (+ 1103515243 631629067) -> 1735144310) ((3631 . 5625) (+ 1103515244 631629063) -> 1735144307) ((3632 . 5625) (+ 1103515244 631629064) -> 1735144308) ((3633 . 5625) (+ 1103515244 631629065) -> 1735144309) ((3634 . 5625) (+ 1103515244 631629066) -> 1735144310) ((3635 . 5625) (+ 1103515244 631629067) -> 1735144311) ((3636 . 5625) (+ 1103515245 631629063) -> 1735144308) ((3637 . 5625) (+ 1103515245 631629064) -> 1735144309) ((3638 . 5625) (+ 1103515245 631629065) -> 1735144310) ((3639 . 5625) (+ 1103515245 631629066) -> 1735144311) ((3640 . 5625) (+ 1103515245 631629067) -> 1735144312) ((3641 . 5625) (+ 1103515246 631629063) -> 1735144309) ((3642 . 5625) (+ 1103515246 631629064) -> 1735144310) ((3643 . 5625) (+ 1103515246 631629065) -> 1735144311) ((3644 . 5625) (+ 1103515246 631629066) -> 1735144312) ((3645 . 5625) (+ 1103515246 631629067) -> 1735144313) ((3646 . 5625) (+ 1103515247 631629063) -> 1735144310) ((3647 . 5625) (+ 1103515247 631629064) -> 1735144311) ((3648 . 5625) (+ 1103515247 631629065) -> 1735144312) ((3649 . 5625) (+ 1103515247 631629066) -> 1735144313) ((3650 . 5625) (+ 1103515247 631629067) -> 1735144314) ((3651 . 5625) (+ 1103515243 9007199254740990) -> 9007200358256233) ((3652 . 5625) (+ 1103515243 9007199254740991) -> 9007200358256234) ((3653 . 5625) (+ 1103515243 9007199254740992) -> 9007200358256235) ((3654 . 5625) (+ 1103515243 9007199254740993) -> 9007200358256236) ((3655 . 5625) (+ 1103515243 9007199254740994) -> 9007200358256237) ((3656 . 5625) (+ 1103515244 9007199254740990) -> 9007200358256234) ((3657 . 5625) (+ 1103515244 9007199254740991) -> 9007200358256235) ((3658 . 5625) (+ 1103515244 9007199254740992) -> 9007200358256236) ((3659 . 5625) (+ 1103515244 9007199254740993) -> 9007200358256237) ((3660 . 5625) (+ 1103515244 9007199254740994) -> 9007200358256238) ((3661 . 5625) (+ 1103515245 9007199254740990) -> 9007200358256235) ((3662 . 5625) (+ 1103515245 9007199254740991) -> 9007200358256236) ((3663 . 5625) (+ 1103515245 9007199254740992) -> 9007200358256237) ((3664 . 5625) (+ 1103515245 9007199254740993) -> 9007200358256238) ((3665 . 5625) (+ 1103515245 9007199254740994) -> 9007200358256239) ((3666 . 5625) (+ 1103515246 9007199254740990) -> 9007200358256236) ((3667 . 5625) (+ 1103515246 9007199254740991) -> 9007200358256237) ((3668 . 5625) (+ 1103515246 9007199254740992) -> 9007200358256238) ((3669 . 5625) (+ 1103515246 9007199254740993) -> 9007200358256239) ((3670 . 5625) (+ 1103515246 9007199254740994) -> 9007200358256240) ((3671 . 5625) (+ 1103515247 9007199254740990) -> 9007200358256237) ((3672 . 5625) (+ 1103515247 9007199254740991) -> 9007200358256238) ((3673 . 5625) (+ 1103515247 9007199254740992) -> 9007200358256239) ((3674 . 5625) (+ 1103515247 9007199254740993) -> 9007200358256240) ((3675 . 5625) (+ 1103515247 9007199254740994) -> 9007200358256241) ((3676 . 5625) (+ 1103515243 -9007199254740994) -> -9007198151225751) ((3677 . 5625) (+ 1103515243 -9007199254740993) -> -9007198151225750) ((3678 . 5625) (+ 1103515243 -9007199254740992) -> -9007198151225749) ((3679 . 5625) (+ 1103515243 -9007199254740991) -> -9007198151225748) ((3680 . 5625) (+ 1103515243 -9007199254740990) -> -9007198151225747) ((3681 . 5625) (+ 1103515244 -9007199254740994) -> -9007198151225750) ((3682 . 5625) (+ 1103515244 -9007199254740993) -> -9007198151225749) ((3683 . 5625) (+ 1103515244 -9007199254740992) -> -9007198151225748) ((3684 . 5625) (+ 1103515244 -9007199254740991) -> -9007198151225747) ((3685 . 5625) (+ 1103515244 -9007199254740990) -> -9007198151225746) ((3686 . 5625) (+ 1103515245 -9007199254740994) -> -9007198151225749) ((3687 . 5625) (+ 1103515245 -9007199254740993) -> -9007198151225748) ((3688 . 5625) (+ 1103515245 -9007199254740992) -> -9007198151225747) ((3689 . 5625) (+ 1103515245 -9007199254740991) -> -9007198151225746) ((3690 . 5625) (+ 1103515245 -9007199254740990) -> -9007198151225745) ((3691 . 5625) (+ 1103515246 -9007199254740994) -> -9007198151225748) ((3692 . 5625) (+ 1103515246 -9007199254740993) -> -9007198151225747) ((3693 . 5625) (+ 1103515246 -9007199254740992) -> -9007198151225746) ((3694 . 5625) (+ 1103515246 -9007199254740991) -> -9007198151225745) ((3695 . 5625) (+ 1103515246 -9007199254740990) -> -9007198151225744) ((3696 . 5625) (+ 1103515247 -9007199254740994) -> -9007198151225747) ((3697 . 5625) (+ 1103515247 -9007199254740993) -> -9007198151225746) ((3698 . 5625) (+ 1103515247 -9007199254740992) -> -9007198151225745) ((3699 . 5625) (+ 1103515247 -9007199254740991) -> -9007198151225744) ((3700 . 5625) (+ 1103515247 -9007199254740990) -> -9007198151225743) ((3701 . 5625) (+ 1103515243 12343) -> 1103527586) ((3702 . 5625) (+ 1103515243 12344) -> 1103527587) ((3703 . 5625) (+ 1103515243 12345) -> 1103527588) ((3704 . 5625) (+ 1103515243 12346) -> 1103527589) ((3705 . 5625) (+ 1103515243 12347) -> 1103527590) ((3706 . 5625) (+ 1103515244 12343) -> 1103527587) ((3707 . 5625) (+ 1103515244 12344) -> 1103527588) ((3708 . 5625) (+ 1103515244 12345) -> 1103527589) ((3709 . 5625) (+ 1103515244 12346) -> 1103527590) ((3710 . 5625) (+ 1103515244 12347) -> 1103527591) ((3711 . 5625) (+ 1103515245 12343) -> 1103527588) ((3712 . 5625) (+ 1103515245 12344) -> 1103527589) ((3713 . 5625) (+ 1103515245 12345) -> 1103527590) ((3714 . 5625) (+ 1103515245 12346) -> 1103527591) ((3715 . 5625) (+ 1103515245 12347) -> 1103527592) ((3716 . 5625) (+ 1103515246 12343) -> 1103527589) ((3717 . 5625) (+ 1103515246 12344) -> 1103527590) ((3718 . 5625) (+ 1103515246 12345) -> 1103527591) ((3719 . 5625) (+ 1103515246 12346) -> 1103527592) ((3720 . 5625) (+ 1103515246 12347) -> 1103527593) ((3721 . 5625) (+ 1103515247 12343) -> 1103527590) ((3722 . 5625) (+ 1103515247 12344) -> 1103527591) ((3723 . 5625) (+ 1103515247 12345) -> 1103527592) ((3724 . 5625) (+ 1103515247 12346) -> 1103527593) ((3725 . 5625) (+ 1103515247 12347) -> 1103527594) ((3726 . 5625) (+ 1103515243 4294967294) -> 5398482537) ((3727 . 5625) (+ 1103515243 4294967295) -> 5398482538) ((3728 . 5625) (+ 1103515243 4294967296) -> 5398482539) ((3729 . 5625) (+ 1103515243 4294967297) -> 5398482540) ((3730 . 5625) (+ 1103515243 4294967298) -> 5398482541) ((3731 . 5625) (+ 1103515244 4294967294) -> 5398482538) ((3732 . 5625) (+ 1103515244 4294967295) -> 5398482539) ((3733 . 5625) (+ 1103515244 4294967296) -> 5398482540) ((3734 . 5625) (+ 1103515244 4294967297) -> 5398482541) ((3735 . 5625) (+ 1103515244 4294967298) -> 5398482542) ((3736 . 5625) (+ 1103515245 4294967294) -> 5398482539) ((3737 . 5625) (+ 1103515245 4294967295) -> 5398482540) ((3738 . 5625) (+ 1103515245 4294967296) -> 5398482541) ((3739 . 5625) (+ 1103515245 4294967297) -> 5398482542) ((3740 . 5625) (+ 1103515245 4294967298) -> 5398482543) ((3741 . 5625) (+ 1103515246 4294967294) -> 5398482540) ((3742 . 5625) (+ 1103515246 4294967295) -> 5398482541) ((3743 . 5625) (+ 1103515246 4294967296) -> 5398482542) ((3744 . 5625) (+ 1103515246 4294967297) -> 5398482543) ((3745 . 5625) (+ 1103515246 4294967298) -> 5398482544) ((3746 . 5625) (+ 1103515247 4294967294) -> 5398482541) ((3747 . 5625) (+ 1103515247 4294967295) -> 5398482542) ((3748 . 5625) (+ 1103515247 4294967296) -> 5398482543) ((3749 . 5625) (+ 1103515247 4294967297) -> 5398482544) ((3750 . 5625) (+ 1103515247 4294967298) -> 5398482545) ((3751 . 5625) (+ 631629063 -2) -> 631629061) ((3752 . 5625) (+ 631629063 -1) -> 631629062) ((3753 . 5625) (+ 631629063 0) -> 631629063) ((3754 . 5625) (+ 631629063 1) -> 631629064) ((3755 . 5625) (+ 631629063 2) -> 631629065) ((3756 . 5625) (+ 631629064 -2) -> 631629062) ((3757 . 5625) (+ 631629064 -1) -> 631629063) ((3758 . 5625) (+ 631629064 0) -> 631629064) ((3759 . 5625) (+ 631629064 1) -> 631629065) ((3760 . 5625) (+ 631629064 2) -> 631629066) ((3761 . 5625) (+ 631629065 -2) -> 631629063) ((3762 . 5625) (+ 631629065 -1) -> 631629064) ((3763 . 5625) (+ 631629065 0) -> 631629065) ((3764 . 5625) (+ 631629065 1) -> 631629066) ((3765 . 5625) (+ 631629065 2) -> 631629067) ((3766 . 5625) (+ 631629066 -2) -> 631629064) ((3767 . 5625) (+ 631629066 -1) -> 631629065) ((3768 . 5625) (+ 631629066 0) -> 631629066) ((3769 . 5625) (+ 631629066 1) -> 631629067) ((3770 . 5625) (+ 631629066 2) -> 631629068) ((3771 . 5625) (+ 631629067 -2) -> 631629065) ((3772 . 5625) (+ 631629067 -1) -> 631629066) ((3773 . 5625) (+ 631629067 0) -> 631629067) ((3774 . 5625) (+ 631629067 1) -> 631629068) ((3775 . 5625) (+ 631629067 2) -> 631629069) ((3776 . 5625) (+ 631629063 -1) -> 631629062) ((3777 . 5625) (+ 631629063 0) -> 631629063) ((3778 . 5625) (+ 631629063 1) -> 631629064) ((3779 . 5625) (+ 631629063 2) -> 631629065) ((3780 . 5625) (+ 631629063 3) -> 631629066) ((3781 . 5625) (+ 631629064 -1) -> 631629063) ((3782 . 5625) (+ 631629064 0) -> 631629064) ((3783 . 5625) (+ 631629064 1) -> 631629065) ((3784 . 5625) (+ 631629064 2) -> 631629066) ((3785 . 5625) (+ 631629064 3) -> 631629067) ((3786 . 5625) (+ 631629065 -1) -> 631629064) ((3787 . 5625) (+ 631629065 0) -> 631629065) ((3788 . 5625) (+ 631629065 1) -> 631629066) ((3789 . 5625) (+ 631629065 2) -> 631629067) ((3790 . 5625) (+ 631629065 3) -> 631629068) ((3791 . 5625) (+ 631629066 -1) -> 631629065) ((3792 . 5625) (+ 631629066 0) -> 631629066) ((3793 . 5625) (+ 631629066 1) -> 631629067) ((3794 . 5625) (+ 631629066 2) -> 631629068) ((3795 . 5625) (+ 631629066 3) -> 631629069) ((3796 . 5625) (+ 631629067 -1) -> 631629066) ((3797 . 5625) (+ 631629067 0) -> 631629067) ((3798 . 5625) (+ 631629067 1) -> 631629068) ((3799 . 5625) (+ 631629067 2) -> 631629069) ((3800 . 5625) (+ 631629067 3) -> 631629070) ((3801 . 5625) (+ 631629063 -3) -> 631629060) ((3802 . 5625) (+ 631629063 -2) -> 631629061) ((3803 . 5625) (+ 631629063 -1) -> 631629062) ((3804 . 5625) (+ 631629063 0) -> 631629063) ((3805 . 5625) (+ 631629063 1) -> 631629064) ((3806 . 5625) (+ 631629064 -3) -> 631629061) ((3807 . 5625) (+ 631629064 -2) -> 631629062) ((3808 . 5625) (+ 631629064 -1) -> 631629063) ((3809 . 5625) (+ 631629064 0) -> 631629064) ((3810 . 5625) (+ 631629064 1) -> 631629065) ((3811 . 5625) (+ 631629065 -3) -> 631629062) ((3812 . 5625) (+ 631629065 -2) -> 631629063) ((3813 . 5625) (+ 631629065 -1) -> 631629064) ((3814 . 5625) (+ 631629065 0) -> 631629065) ((3815 . 5625) (+ 631629065 1) -> 631629066) ((3816 . 5625) (+ 631629066 -3) -> 631629063) ((3817 . 5625) (+ 631629066 -2) -> 631629064) ((3818 . 5625) (+ 631629066 -1) -> 631629065) ((3819 . 5625) (+ 631629066 0) -> 631629066) ((3820 . 5625) (+ 631629066 1) -> 631629067) ((3821 . 5625) (+ 631629067 -3) -> 631629064) ((3822 . 5625) (+ 631629067 -2) -> 631629065) ((3823 . 5625) (+ 631629067 -1) -> 631629066) ((3824 . 5625) (+ 631629067 0) -> 631629067) ((3825 . 5625) (+ 631629067 1) -> 631629068) ((3826 . 5625) (+ 631629063 0) -> 631629063) ((3827 . 5625) (+ 631629063 1) -> 631629064) ((3828 . 5625) (+ 631629063 2) -> 631629065) ((3829 . 5625) (+ 631629063 3) -> 631629066) ((3830 . 5625) (+ 631629063 4) -> 631629067) ((3831 . 5625) (+ 631629064 0) -> 631629064) ((3832 . 5625) (+ 631629064 1) -> 631629065) ((3833 . 5625) (+ 631629064 2) -> 631629066) ((3834 . 5625) (+ 631629064 3) -> 631629067) ((3835 . 5625) (+ 631629064 4) -> 631629068) ((3836 . 5625) (+ 631629065 0) -> 631629065) ((3837 . 5625) (+ 631629065 1) -> 631629066) ((3838 . 5625) (+ 631629065 2) -> 631629067) ((3839 . 5625) (+ 631629065 3) -> 631629068) ((3840 . 5625) (+ 631629065 4) -> 631629069) ((3841 . 5625) (+ 631629066 0) -> 631629066) ((3842 . 5625) (+ 631629066 1) -> 631629067) ((3843 . 5625) (+ 631629066 2) -> 631629068) ((3844 . 5625) (+ 631629066 3) -> 631629069) ((3845 . 5625) (+ 631629066 4) -> 631629070) ((3846 . 5625) (+ 631629067 0) -> 631629067) ((3847 . 5625) (+ 631629067 1) -> 631629068) ((3848 . 5625) (+ 631629067 2) -> 631629069) ((3849 . 5625) (+ 631629067 3) -> 631629070) ((3850 . 5625) (+ 631629067 4) -> 631629071) ((3851 . 5625) (+ 631629063 -4) -> 631629059) ((3852 . 5625) (+ 631629063 -3) -> 631629060) ((3853 . 5625) (+ 631629063 -2) -> 631629061) ((3854 . 5625) (+ 631629063 -1) -> 631629062) ((3855 . 5625) (+ 631629063 0) -> 631629063) ((3856 . 5625) (+ 631629064 -4) -> 631629060) ((3857 . 5625) (+ 631629064 -3) -> 631629061) ((3858 . 5625) (+ 631629064 -2) -> 631629062) ((3859 . 5625) (+ 631629064 -1) -> 631629063) ((3860 . 5625) (+ 631629064 0) -> 631629064) ((3861 . 5625) (+ 631629065 -4) -> 631629061) ((3862 . 5625) (+ 631629065 -3) -> 631629062) ((3863 . 5625) (+ 631629065 -2) -> 631629063) ((3864 . 5625) (+ 631629065 -1) -> 631629064) ((3865 . 5625) (+ 631629065 0) -> 631629065) ((3866 . 5625) (+ 631629066 -4) -> 631629062) ((3867 . 5625) (+ 631629066 -3) -> 631629063) ((3868 . 5625) (+ 631629066 -2) -> 631629064) ((3869 . 5625) (+ 631629066 -1) -> 631629065) ((3870 . 5625) (+ 631629066 0) -> 631629066) ((3871 . 5625) (+ 631629067 -4) -> 631629063) ((3872 . 5625) (+ 631629067 -3) -> 631629064) ((3873 . 5625) (+ 631629067 -2) -> 631629065) ((3874 . 5625) (+ 631629067 -1) -> 631629066) ((3875 . 5625) (+ 631629067 0) -> 631629067) ((3876 . 5625) (+ 631629063 1073741821) -> 1705370884) ((3877 . 5625) (+ 631629063 1073741822) -> 1705370885) ((3878 . 5625) (+ 631629063 1073741823) -> 1705370886) ((3879 . 5625) (+ 631629063 1073741824) -> 1705370887) ((3880 . 5625) (+ 631629063 1073741825) -> 1705370888) ((3881 . 5625) (+ 631629064 1073741821) -> 1705370885) ((3882 . 5625) (+ 631629064 1073741822) -> 1705370886) ((3883 . 5625) (+ 631629064 1073741823) -> 1705370887) ((3884 . 5625) (+ 631629064 1073741824) -> 1705370888) ((3885 . 5625) (+ 631629064 1073741825) -> 1705370889) ((3886 . 5625) (+ 631629065 1073741821) -> 1705370886) ((3887 . 5625) (+ 631629065 1073741822) -> 1705370887) ((3888 . 5625) (+ 631629065 1073741823) -> 1705370888) ((3889 . 5625) (+ 631629065 1073741824) -> 1705370889) ((3890 . 5625) (+ 631629065 1073741825) -> 1705370890) ((3891 . 5625) (+ 631629066 1073741821) -> 1705370887) ((3892 . 5625) (+ 631629066 1073741822) -> 1705370888) ((3893 . 5625) (+ 631629066 1073741823) -> 1705370889) ((3894 . 5625) (+ 631629066 1073741824) -> 1705370890) ((3895 . 5625) (+ 631629066 1073741825) -> 1705370891) ((3896 . 5625) (+ 631629067 1073741821) -> 1705370888) ((3897 . 5625) (+ 631629067 1073741822) -> 1705370889) ((3898 . 5625) (+ 631629067 1073741823) -> 1705370890) ((3899 . 5625) (+ 631629067 1073741824) -> 1705370891) ((3900 . 5625) (+ 631629067 1073741825) -> 1705370892) ((3901 . 5625) (+ 631629063 -1073741826) -> -442112763) ((3902 . 5625) (+ 631629063 -1073741825) -> -442112762) ((3903 . 5625) (+ 631629063 -1073741824) -> -442112761) ((3904 . 5625) (+ 631629063 -1073741823) -> -442112760) ((3905 . 5625) (+ 631629063 -1073741822) -> -442112759) ((3906 . 5625) (+ 631629064 -1073741826) -> -442112762) ((3907 . 5625) (+ 631629064 -1073741825) -> -442112761) ((3908 . 5625) (+ 631629064 -1073741824) -> -442112760) ((3909 . 5625) (+ 631629064 -1073741823) -> -442112759) ((3910 . 5625) (+ 631629064 -1073741822) -> -442112758) ((3911 . 5625) (+ 631629065 -1073741826) -> -442112761) ((3912 . 5625) (+ 631629065 -1073741825) -> -442112760) ((3913 . 5625) (+ 631629065 -1073741824) -> -442112759) ((3914 . 5625) (+ 631629065 -1073741823) -> -442112758) ((3915 . 5625) (+ 631629065 -1073741822) -> -442112757) ((3916 . 5625) (+ 631629066 -1073741826) -> -442112760) ((3917 . 5625) (+ 631629066 -1073741825) -> -442112759) ((3918 . 5625) (+ 631629066 -1073741824) -> -442112758) ((3919 . 5625) (+ 631629066 -1073741823) -> -442112757) ((3920 . 5625) (+ 631629066 -1073741822) -> -442112756) ((3921 . 5625) (+ 631629067 -1073741826) -> -442112759) ((3922 . 5625) (+ 631629067 -1073741825) -> -442112758) ((3923 . 5625) (+ 631629067 -1073741824) -> -442112757) ((3924 . 5625) (+ 631629067 -1073741823) -> -442112756) ((3925 . 5625) (+ 631629067 -1073741822) -> -442112755) ((3926 . 5625) (+ 631629063 1073741822) -> 1705370885) ((3927 . 5625) (+ 631629063 1073741823) -> 1705370886) ((3928 . 5625) (+ 631629063 1073741824) -> 1705370887) ((3929 . 5625) (+ 631629063 1073741825) -> 1705370888) ((3930 . 5625) (+ 631629063 1073741826) -> 1705370889) ((3931 . 5625) (+ 631629064 1073741822) -> 1705370886) ((3932 . 5625) (+ 631629064 1073741823) -> 1705370887) ((3933 . 5625) (+ 631629064 1073741824) -> 1705370888) ((3934 . 5625) (+ 631629064 1073741825) -> 1705370889) ((3935 . 5625) (+ 631629064 1073741826) -> 1705370890) ((3936 . 5625) (+ 631629065 1073741822) -> 1705370887) ((3937 . 5625) (+ 631629065 1073741823) -> 1705370888) ((3938 . 5625) (+ 631629065 1073741824) -> 1705370889) ((3939 . 5625) (+ 631629065 1073741825) -> 1705370890) ((3940 . 5625) (+ 631629065 1073741826) -> 1705370891) ((3941 . 5625) (+ 631629066 1073741822) -> 1705370888) ((3942 . 5625) (+ 631629066 1073741823) -> 1705370889) ((3943 . 5625) (+ 631629066 1073741824) -> 1705370890) ((3944 . 5625) (+ 631629066 1073741825) -> 1705370891) ((3945 . 5625) (+ 631629066 1073741826) -> 1705370892) ((3946 . 5625) (+ 631629067 1073741822) -> 1705370889) ((3947 . 5625) (+ 631629067 1073741823) -> 1705370890) ((3948 . 5625) (+ 631629067 1073741824) -> 1705370891) ((3949 . 5625) (+ 631629067 1073741825) -> 1705370892) ((3950 . 5625) (+ 631629067 1073741826) -> 1705370893) ((3951 . 5625) (+ 631629063 -1073741827) -> -442112764) ((3952 . 5625) (+ 631629063 -1073741826) -> -442112763) ((3953 . 5625) (+ 631629063 -1073741825) -> -442112762) ((3954 . 5625) (+ 631629063 -1073741824) -> -442112761) ((3955 . 5625) (+ 631629063 -1073741823) -> -442112760) ((3956 . 5625) (+ 631629064 -1073741827) -> -442112763) ((3957 . 5625) (+ 631629064 -1073741826) -> -442112762) ((3958 . 5625) (+ 631629064 -1073741825) -> -442112761) ((3959 . 5625) (+ 631629064 -1073741824) -> -442112760) ((3960 . 5625) (+ 631629064 -1073741823) -> -442112759) ((3961 . 5625) (+ 631629065 -1073741827) -> -442112762) ((3962 . 5625) (+ 631629065 -1073741826) -> -442112761) ((3963 . 5625) (+ 631629065 -1073741825) -> -442112760) ((3964 . 5625) (+ 631629065 -1073741824) -> -442112759) ((3965 . 5625) (+ 631629065 -1073741823) -> -442112758) ((3966 . 5625) (+ 631629066 -1073741827) -> -442112761) ((3967 . 5625) (+ 631629066 -1073741826) -> -442112760) ((3968 . 5625) (+ 631629066 -1073741825) -> -442112759) ((3969 . 5625) (+ 631629066 -1073741824) -> -442112758) ((3970 . 5625) (+ 631629066 -1073741823) -> -442112757) ((3971 . 5625) (+ 631629067 -1073741827) -> -442112760) ((3972 . 5625) (+ 631629067 -1073741826) -> -442112759) ((3973 . 5625) (+ 631629067 -1073741825) -> -442112758) ((3974 . 5625) (+ 631629067 -1073741824) -> -442112757) ((3975 . 5625) (+ 631629067 -1073741823) -> -442112756) ((3976 . 5625) (+ 631629063 1103515243) -> 1735144306) ((3977 . 5625) (+ 631629063 1103515244) -> 1735144307) ((3978 . 5625) (+ 631629063 1103515245) -> 1735144308) ((3979 . 5625) (+ 631629063 1103515246) -> 1735144309) ((3980 . 5625) (+ 631629063 1103515247) -> 1735144310) ((3981 . 5625) (+ 631629064 1103515243) -> 1735144307) ((3982 . 5625) (+ 631629064 1103515244) -> 1735144308) ((3983 . 5625) (+ 631629064 1103515245) -> 1735144309) ((3984 . 5625) (+ 631629064 1103515246) -> 1735144310) ((3985 . 5625) (+ 631629064 1103515247) -> 1735144311) ((3986 . 5625) (+ 631629065 1103515243) -> 1735144308) ((3987 . 5625) (+ 631629065 1103515244) -> 1735144309) ((3988 . 5625) (+ 631629065 1103515245) -> 1735144310) ((3989 . 5625) (+ 631629065 1103515246) -> 1735144311) ((3990 . 5625) (+ 631629065 1103515247) -> 1735144312) ((3991 . 5625) (+ 631629066 1103515243) -> 1735144309) ((3992 . 5625) (+ 631629066 1103515244) -> 1735144310) ((3993 . 5625) (+ 631629066 1103515245) -> 1735144311) ((3994 . 5625) (+ 631629066 1103515246) -> 1735144312) ((3995 . 5625) (+ 631629066 1103515247) -> 1735144313) ((3996 . 5625) (+ 631629067 1103515243) -> 1735144310) ((3997 . 5625) (+ 631629067 1103515244) -> 1735144311) ((3998 . 5625) (+ 631629067 1103515245) -> 1735144312) ((3999 . 5625) (+ 631629067 1103515246) -> 1735144313) ((4000 . 5625) (+ 631629067 1103515247) -> 1735144314) ((4001 . 5625) (+ 631629063 631629063) -> 1263258126) ((4002 . 5625) (+ 631629063 631629064) -> 1263258127) ((4003 . 5625) (+ 631629063 631629065) -> 1263258128) ((4004 . 5625) (+ 631629063 631629066) -> 1263258129) ((4005 . 5625) (+ 631629063 631629067) -> 1263258130) ((4006 . 5625) (+ 631629064 631629063) -> 1263258127) ((4007 . 5625) (+ 631629064 631629064) -> 1263258128) ((4008 . 5625) (+ 631629064 631629065) -> 1263258129) ((4009 . 5625) (+ 631629064 631629066) -> 1263258130) ((4010 . 5625) (+ 631629064 631629067) -> 1263258131) ((4011 . 5625) (+ 631629065 631629063) -> 1263258128) ((4012 . 5625) (+ 631629065 631629064) -> 1263258129) ((4013 . 5625) (+ 631629065 631629065) -> 1263258130) ((4014 . 5625) (+ 631629065 631629066) -> 1263258131) ((4015 . 5625) (+ 631629065 631629067) -> 1263258132) ((4016 . 5625) (+ 631629066 631629063) -> 1263258129) ((4017 . 5625) (+ 631629066 631629064) -> 1263258130) ((4018 . 5625) (+ 631629066 631629065) -> 1263258131) ((4019 . 5625) (+ 631629066 631629066) -> 1263258132) ((4020 . 5625) (+ 631629066 631629067) -> 1263258133) ((4021 . 5625) (+ 631629067 631629063) -> 1263258130) ((4022 . 5625) (+ 631629067 631629064) -> 1263258131) ((4023 . 5625) (+ 631629067 631629065) -> 1263258132) ((4024 . 5625) (+ 631629067 631629066) -> 1263258133) ((4025 . 5625) (+ 631629067 631629067) -> 1263258134) ((4026 . 5625) (+ 631629063 9007199254740990) -> 9007199886370053) ((4027 . 5625) (+ 631629063 9007199254740991) -> 9007199886370054) ((4028 . 5625) (+ 631629063 9007199254740992) -> 9007199886370055) ((4029 . 5625) (+ 631629063 9007199254740993) -> 9007199886370056) ((4030 . 5625) (+ 631629063 9007199254740994) -> 9007199886370057) ((4031 . 5625) (+ 631629064 9007199254740990) -> 9007199886370054) ((4032 . 5625) (+ 631629064 9007199254740991) -> 9007199886370055) ((4033 . 5625) (+ 631629064 9007199254740992) -> 9007199886370056) ((4034 . 5625) (+ 631629064 9007199254740993) -> 9007199886370057) ((4035 . 5625) (+ 631629064 9007199254740994) -> 9007199886370058) ((4036 . 5625) (+ 631629065 9007199254740990) -> 9007199886370055) ((4037 . 5625) (+ 631629065 9007199254740991) -> 9007199886370056) ((4038 . 5625) (+ 631629065 9007199254740992) -> 9007199886370057) ((4039 . 5625) (+ 631629065 9007199254740993) -> 9007199886370058) ((4040 . 5625) (+ 631629065 9007199254740994) -> 9007199886370059) ((4041 . 5625) (+ 631629066 9007199254740990) -> 9007199886370056) ((4042 . 5625) (+ 631629066 9007199254740991) -> 9007199886370057) ((4043 . 5625) (+ 631629066 9007199254740992) -> 9007199886370058) ((4044 . 5625) (+ 631629066 9007199254740993) -> 9007199886370059) ((4045 . 5625) (+ 631629066 9007199254740994) -> 9007199886370060) ((4046 . 5625) (+ 631629067 9007199254740990) -> 9007199886370057) ((4047 . 5625) (+ 631629067 9007199254740991) -> 9007199886370058) ((4048 . 5625) (+ 631629067 9007199254740992) -> 9007199886370059) ((4049 . 5625) (+ 631629067 9007199254740993) -> 9007199886370060) ((4050 . 5625) (+ 631629067 9007199254740994) -> 9007199886370061) ((4051 . 5625) (+ 631629063 -9007199254740994) -> -9007198623111931) ((4052 . 5625) (+ 631629063 -9007199254740993) -> -9007198623111930) ((4053 . 5625) (+ 631629063 -9007199254740992) -> -9007198623111929) ((4054 . 5625) (+ 631629063 -9007199254740991) -> -9007198623111928) ((4055 . 5625) (+ 631629063 -9007199254740990) -> -9007198623111927) ((4056 . 5625) (+ 631629064 -9007199254740994) -> -9007198623111930) ((4057 . 5625) (+ 631629064 -9007199254740993) -> -9007198623111929) ((4058 . 5625) (+ 631629064 -9007199254740992) -> -9007198623111928) ((4059 . 5625) (+ 631629064 -9007199254740991) -> -9007198623111927) ((4060 . 5625) (+ 631629064 -9007199254740990) -> -9007198623111926) ((4061 . 5625) (+ 631629065 -9007199254740994) -> -9007198623111929) ((4062 . 5625) (+ 631629065 -9007199254740993) -> -9007198623111928) ((4063 . 5625) (+ 631629065 -9007199254740992) -> -9007198623111927) ((4064 . 5625) (+ 631629065 -9007199254740991) -> -9007198623111926) ((4065 . 5625) (+ 631629065 -9007199254740990) -> -9007198623111925) ((4066 . 5625) (+ 631629066 -9007199254740994) -> -9007198623111928) ((4067 . 5625) (+ 631629066 -9007199254740993) -> -9007198623111927) ((4068 . 5625) (+ 631629066 -9007199254740992) -> -9007198623111926) ((4069 . 5625) (+ 631629066 -9007199254740991) -> -9007198623111925) ((4070 . 5625) (+ 631629066 -9007199254740990) -> -9007198623111924) ((4071 . 5625) (+ 631629067 -9007199254740994) -> -9007198623111927) ((4072 . 5625) (+ 631629067 -9007199254740993) -> -9007198623111926) ((4073 . 5625) (+ 631629067 -9007199254740992) -> -9007198623111925) ((4074 . 5625) (+ 631629067 -9007199254740991) -> -9007198623111924) ((4075 . 5625) (+ 631629067 -9007199254740990) -> -9007198623111923) ((4076 . 5625) (+ 631629063 12343) -> 631641406) ((4077 . 5625) (+ 631629063 12344) -> 631641407) ((4078 . 5625) (+ 631629063 12345) -> 631641408) ((4079 . 5625) (+ 631629063 12346) -> 631641409) ((4080 . 5625) (+ 631629063 12347) -> 631641410) ((4081 . 5625) (+ 631629064 12343) -> 631641407) ((4082 . 5625) (+ 631629064 12344) -> 631641408) ((4083 . 5625) (+ 631629064 12345) -> 631641409) ((4084 . 5625) (+ 631629064 12346) -> 631641410) ((4085 . 5625) (+ 631629064 12347) -> 631641411) ((4086 . 5625) (+ 631629065 12343) -> 631641408) ((4087 . 5625) (+ 631629065 12344) -> 631641409) ((4088 . 5625) (+ 631629065 12345) -> 631641410) ((4089 . 5625) (+ 631629065 12346) -> 631641411) ((4090 . 5625) (+ 631629065 12347) -> 631641412) ((4091 . 5625) (+ 631629066 12343) -> 631641409) ((4092 . 5625) (+ 631629066 12344) -> 631641410) ((4093 . 5625) (+ 631629066 12345) -> 631641411) ((4094 . 5625) (+ 631629066 12346) -> 631641412) ((4095 . 5625) (+ 631629066 12347) -> 631641413) ((4096 . 5625) (+ 631629067 12343) -> 631641410) ((4097 . 5625) (+ 631629067 12344) -> 631641411) ((4098 . 5625) (+ 631629067 12345) -> 631641412) ((4099 . 5625) (+ 631629067 12346) -> 631641413) ((4100 . 5625) (+ 631629067 12347) -> 631641414) ((4101 . 5625) (+ 631629063 4294967294) -> 4926596357) ((4102 . 5625) (+ 631629063 4294967295) -> 4926596358) ((4103 . 5625) (+ 631629063 4294967296) -> 4926596359) ((4104 . 5625) (+ 631629063 4294967297) -> 4926596360) ((4105 . 5625) (+ 631629063 4294967298) -> 4926596361) ((4106 . 5625) (+ 631629064 4294967294) -> 4926596358) ((4107 . 5625) (+ 631629064 4294967295) -> 4926596359) ((4108 . 5625) (+ 631629064 4294967296) -> 4926596360) ((4109 . 5625) (+ 631629064 4294967297) -> 4926596361) ((4110 . 5625) (+ 631629064 4294967298) -> 4926596362) ((4111 . 5625) (+ 631629065 4294967294) -> 4926596359) ((4112 . 5625) (+ 631629065 4294967295) -> 4926596360) ((4113 . 5625) (+ 631629065 4294967296) -> 4926596361) ((4114 . 5625) (+ 631629065 4294967297) -> 4926596362) ((4115 . 5625) (+ 631629065 4294967298) -> 4926596363) ((4116 . 5625) (+ 631629066 4294967294) -> 4926596360) ((4117 . 5625) (+ 631629066 4294967295) -> 4926596361) ((4118 . 5625) (+ 631629066 4294967296) -> 4926596362) ((4119 . 5625) (+ 631629066 4294967297) -> 4926596363) ((4120 . 5625) (+ 631629066 4294967298) -> 4926596364) ((4121 . 5625) (+ 631629067 4294967294) -> 4926596361) ((4122 . 5625) (+ 631629067 4294967295) -> 4926596362) ((4123 . 5625) (+ 631629067 4294967296) -> 4926596363) ((4124 . 5625) (+ 631629067 4294967297) -> 4926596364) ((4125 . 5625) (+ 631629067 4294967298) -> 4926596365) ((4126 . 5625) (+ 9007199254740990 -2) -> 9007199254740988) ((4127 . 5625) (+ 9007199254740990 -1) -> 9007199254740989) ((4128 . 5625) (+ 9007199254740990 0) -> 9007199254740990) ((4129 . 5625) (+ 9007199254740990 1) -> 9007199254740991) ((4130 . 5625) (+ 9007199254740990 2) -> 9007199254740992) ((4131 . 5625) (+ 9007199254740991 -2) -> 9007199254740989) ((4132 . 5625) (+ 9007199254740991 -1) -> 9007199254740990) ((4133 . 5625) (+ 9007199254740991 0) -> 9007199254740991) ((4134 . 5625) (+ 9007199254740991 1) -> 9007199254740992) ((4135 . 5625) (+ 9007199254740991 2) -> 9007199254740993) ((4136 . 5625) (+ 9007199254740992 -2) -> 9007199254740990) ((4137 . 5625) (+ 9007199254740992 -1) -> 9007199254740991) ((4138 . 5625) (+ 9007199254740992 0) -> 9007199254740992) ((4139 . 5625) (+ 9007199254740992 1) -> 9007199254740993) ((4140 . 5625) (+ 9007199254740992 2) -> 9007199254740994) ((4141 . 5625) (+ 9007199254740993 -2) -> 9007199254740991) ((4142 . 5625) (+ 9007199254740993 -1) -> 9007199254740992) ((4143 . 5625) (+ 9007199254740993 0) -> 9007199254740993) ((4144 . 5625) (+ 9007199254740993 1) -> 9007199254740994) ((4145 . 5625) (+ 9007199254740993 2) -> 9007199254740995) ((4146 . 5625) (+ 9007199254740994 -2) -> 9007199254740992) ((4147 . 5625) (+ 9007199254740994 -1) -> 9007199254740993) ((4148 . 5625) (+ 9007199254740994 0) -> 9007199254740994) ((4149 . 5625) (+ 9007199254740994 1) -> 9007199254740995) ((4150 . 5625) (+ 9007199254740994 2) -> 9007199254740996) ((4151 . 5625) (+ 9007199254740990 -1) -> 9007199254740989) ((4152 . 5625) (+ 9007199254740990 0) -> 9007199254740990) ((4153 . 5625) (+ 9007199254740990 1) -> 9007199254740991) ((4154 . 5625) (+ 9007199254740990 2) -> 9007199254740992) ((4155 . 5625) (+ 9007199254740990 3) -> 9007199254740993) ((4156 . 5625) (+ 9007199254740991 -1) -> 9007199254740990) ((4157 . 5625) (+ 9007199254740991 0) -> 9007199254740991) ((4158 . 5625) (+ 9007199254740991 1) -> 9007199254740992) ((4159 . 5625) (+ 9007199254740991 2) -> 9007199254740993) ((4160 . 5625) (+ 9007199254740991 3) -> 9007199254740994) ((4161 . 5625) (+ 9007199254740992 -1) -> 9007199254740991) ((4162 . 5625) (+ 9007199254740992 0) -> 9007199254740992) ((4163 . 5625) (+ 9007199254740992 1) -> 9007199254740993) ((4164 . 5625) (+ 9007199254740992 2) -> 9007199254740994) ((4165 . 5625) (+ 9007199254740992 3) -> 9007199254740995) ((4166 . 5625) (+ 9007199254740993 -1) -> 9007199254740992) ((4167 . 5625) (+ 9007199254740993 0) -> 9007199254740993) ((4168 . 5625) (+ 9007199254740993 1) -> 9007199254740994) ((4169 . 5625) (+ 9007199254740993 2) -> 9007199254740995) ((4170 . 5625) (+ 9007199254740993 3) -> 9007199254740996) ((4171 . 5625) (+ 9007199254740994 -1) -> 9007199254740993) ((4172 . 5625) (+ 9007199254740994 0) -> 9007199254740994) ((4173 . 5625) (+ 9007199254740994 1) -> 9007199254740995) ((4174 . 5625) (+ 9007199254740994 2) -> 9007199254740996) ((4175 . 5625) (+ 9007199254740994 3) -> 9007199254740997) ((4176 . 5625) (+ 9007199254740990 -3) -> 9007199254740987) ((4177 . 5625) (+ 9007199254740990 -2) -> 9007199254740988) ((4178 . 5625) (+ 9007199254740990 -1) -> 9007199254740989) ((4179 . 5625) (+ 9007199254740990 0) -> 9007199254740990) ((4180 . 5625) (+ 9007199254740990 1) -> 9007199254740991) ((4181 . 5625) (+ 9007199254740991 -3) -> 9007199254740988) ((4182 . 5625) (+ 9007199254740991 -2) -> 9007199254740989) ((4183 . 5625) (+ 9007199254740991 -1) -> 9007199254740990) ((4184 . 5625) (+ 9007199254740991 0) -> 9007199254740991) ((4185 . 5625) (+ 9007199254740991 1) -> 9007199254740992) ((4186 . 5625) (+ 9007199254740992 -3) -> 9007199254740989) ((4187 . 5625) (+ 9007199254740992 -2) -> 9007199254740990) ((4188 . 5625) (+ 9007199254740992 -1) -> 9007199254740991) ((4189 . 5625) (+ 9007199254740992 0) -> 9007199254740992) ((4190 . 5625) (+ 9007199254740992 1) -> 9007199254740993) ((4191 . 5625) (+ 9007199254740993 -3) -> 9007199254740990) ((4192 . 5625) (+ 9007199254740993 -2) -> 9007199254740991) ((4193 . 5625) (+ 9007199254740993 -1) -> 9007199254740992) ((4194 . 5625) (+ 9007199254740993 0) -> 9007199254740993) ((4195 . 5625) (+ 9007199254740993 1) -> 9007199254740994) ((4196 . 5625) (+ 9007199254740994 -3) -> 9007199254740991) ((4197 . 5625) (+ 9007199254740994 -2) -> 9007199254740992) ((4198 . 5625) (+ 9007199254740994 -1) -> 9007199254740993) ((4199 . 5625) (+ 9007199254740994 0) -> 9007199254740994) ((4200 . 5625) (+ 9007199254740994 1) -> 9007199254740995) ((4201 . 5625) (+ 9007199254740990 0) -> 9007199254740990) ((4202 . 5625) (+ 9007199254740990 1) -> 9007199254740991) ((4203 . 5625) (+ 9007199254740990 2) -> 9007199254740992) ((4204 . 5625) (+ 9007199254740990 3) -> 9007199254740993) ((4205 . 5625) (+ 9007199254740990 4) -> 9007199254740994) ((4206 . 5625) (+ 9007199254740991 0) -> 9007199254740991) ((4207 . 5625) (+ 9007199254740991 1) -> 9007199254740992) ((4208 . 5625) (+ 9007199254740991 2) -> 9007199254740993) ((4209 . 5625) (+ 9007199254740991 3) -> 9007199254740994) ((4210 . 5625) (+ 9007199254740991 4) -> 9007199254740995) ((4211 . 5625) (+ 9007199254740992 0) -> 9007199254740992) ((4212 . 5625) (+ 9007199254740992 1) -> 9007199254740993) ((4213 . 5625) (+ 9007199254740992 2) -> 9007199254740994) ((4214 . 5625) (+ 9007199254740992 3) -> 9007199254740995) ((4215 . 5625) (+ 9007199254740992 4) -> 9007199254740996) ((4216 . 5625) (+ 9007199254740993 0) -> 9007199254740993) ((4217 . 5625) (+ 9007199254740993 1) -> 9007199254740994) ((4218 . 5625) (+ 9007199254740993 2) -> 9007199254740995) ((4219 . 5625) (+ 9007199254740993 3) -> 9007199254740996) ((4220 . 5625) (+ 9007199254740993 4) -> 9007199254740997) ((4221 . 5625) (+ 9007199254740994 0) -> 9007199254740994) ((4222 . 5625) (+ 9007199254740994 1) -> 9007199254740995) ((4223 . 5625) (+ 9007199254740994 2) -> 9007199254740996) ((4224 . 5625) (+ 9007199254740994 3) -> 9007199254740997) ((4225 . 5625) (+ 9007199254740994 4) -> 9007199254740998) ((4226 . 5625) (+ 9007199254740990 -4) -> 9007199254740986) ((4227 . 5625) (+ 9007199254740990 -3) -> 9007199254740987) ((4228 . 5625) (+ 9007199254740990 -2) -> 9007199254740988) ((4229 . 5625) (+ 9007199254740990 -1) -> 9007199254740989) ((4230 . 5625) (+ 9007199254740990 0) -> 9007199254740990) ((4231 . 5625) (+ 9007199254740991 -4) -> 9007199254740987) ((4232 . 5625) (+ 9007199254740991 -3) -> 9007199254740988) ((4233 . 5625) (+ 9007199254740991 -2) -> 9007199254740989) ((4234 . 5625) (+ 9007199254740991 -1) -> 9007199254740990) ((4235 . 5625) (+ 9007199254740991 0) -> 9007199254740991) ((4236 . 5625) (+ 9007199254740992 -4) -> 9007199254740988) ((4237 . 5625) (+ 9007199254740992 -3) -> 9007199254740989) ((4238 . 5625) (+ 9007199254740992 -2) -> 9007199254740990) ((4239 . 5625) (+ 9007199254740992 -1) -> 9007199254740991) ((4240 . 5625) (+ 9007199254740992 0) -> 9007199254740992) ((4241 . 5625) (+ 9007199254740993 -4) -> 9007199254740989) ((4242 . 5625) (+ 9007199254740993 -3) -> 9007199254740990) ((4243 . 5625) (+ 9007199254740993 -2) -> 9007199254740991) ((4244 . 5625) (+ 9007199254740993 -1) -> 9007199254740992) ((4245 . 5625) (+ 9007199254740993 0) -> 9007199254740993) ((4246 . 5625) (+ 9007199254740994 -4) -> 9007199254740990) ((4247 . 5625) (+ 9007199254740994 -3) -> 9007199254740991) ((4248 . 5625) (+ 9007199254740994 -2) -> 9007199254740992) ((4249 . 5625) (+ 9007199254740994 -1) -> 9007199254740993) ((4250 . 5625) (+ 9007199254740994 0) -> 9007199254740994) ((4251 . 5625) (+ 9007199254740990 1073741821) -> 9007200328482811) ((4252 . 5625) (+ 9007199254740990 1073741822) -> 9007200328482812) ((4253 . 5625) (+ 9007199254740990 1073741823) -> 9007200328482813) ((4254 . 5625) (+ 9007199254740990 1073741824) -> 9007200328482814) ((4255 . 5625) (+ 9007199254740990 1073741825) -> 9007200328482815) ((4256 . 5625) (+ 9007199254740991 1073741821) -> 9007200328482812) ((4257 . 5625) (+ 9007199254740991 1073741822) -> 9007200328482813) ((4258 . 5625) (+ 9007199254740991 1073741823) -> 9007200328482814) ((4259 . 5625) (+ 9007199254740991 1073741824) -> 9007200328482815) ((4260 . 5625) (+ 9007199254740991 1073741825) -> 9007200328482816) ((4261 . 5625) (+ 9007199254740992 1073741821) -> 9007200328482813) ((4262 . 5625) (+ 9007199254740992 1073741822) -> 9007200328482814) ((4263 . 5625) (+ 9007199254740992 1073741823) -> 9007200328482815) ((4264 . 5625) (+ 9007199254740992 1073741824) -> 9007200328482816) ((4265 . 5625) (+ 9007199254740992 1073741825) -> 9007200328482817) ((4266 . 5625) (+ 9007199254740993 1073741821) -> 9007200328482814) ((4267 . 5625) (+ 9007199254740993 1073741822) -> 9007200328482815) ((4268 . 5625) (+ 9007199254740993 1073741823) -> 9007200328482816) ((4269 . 5625) (+ 9007199254740993 1073741824) -> 9007200328482817) ((4270 . 5625) (+ 9007199254740993 1073741825) -> 9007200328482818) ((4271 . 5625) (+ 9007199254740994 1073741821) -> 9007200328482815) ((4272 . 5625) (+ 9007199254740994 1073741822) -> 9007200328482816) ((4273 . 5625) (+ 9007199254740994 1073741823) -> 9007200328482817) ((4274 . 5625) (+ 9007199254740994 1073741824) -> 9007200328482818) ((4275 . 5625) (+ 9007199254740994 1073741825) -> 9007200328482819) ((4276 . 5625) (+ 9007199254740990 -1073741826) -> 9007198180999164) ((4277 . 5625) (+ 9007199254740990 -1073741825) -> 9007198180999165) ((4278 . 5625) (+ 9007199254740990 -1073741824) -> 9007198180999166) ((4279 . 5625) (+ 9007199254740990 -1073741823) -> 9007198180999167) ((4280 . 5625) (+ 9007199254740990 -1073741822) -> 9007198180999168) ((4281 . 5625) (+ 9007199254740991 -1073741826) -> 9007198180999165) ((4282 . 5625) (+ 9007199254740991 -1073741825) -> 9007198180999166) ((4283 . 5625) (+ 9007199254740991 -1073741824) -> 9007198180999167) ((4284 . 5625) (+ 9007199254740991 -1073741823) -> 9007198180999168) ((4285 . 5625) (+ 9007199254740991 -1073741822) -> 9007198180999169) ((4286 . 5625) (+ 9007199254740992 -1073741826) -> 9007198180999166) ((4287 . 5625) (+ 9007199254740992 -1073741825) -> 9007198180999167) ((4288 . 5625) (+ 9007199254740992 -1073741824) -> 9007198180999168) ((4289 . 5625) (+ 9007199254740992 -1073741823) -> 9007198180999169) ((4290 . 5625) (+ 9007199254740992 -1073741822) -> 9007198180999170) ((4291 . 5625) (+ 9007199254740993 -1073741826) -> 9007198180999167) ((4292 . 5625) (+ 9007199254740993 -1073741825) -> 9007198180999168) ((4293 . 5625) (+ 9007199254740993 -1073741824) -> 9007198180999169) ((4294 . 5625) (+ 9007199254740993 -1073741823) -> 9007198180999170) ((4295 . 5625) (+ 9007199254740993 -1073741822) -> 9007198180999171) ((4296 . 5625) (+ 9007199254740994 -1073741826) -> 9007198180999168) ((4297 . 5625) (+ 9007199254740994 -1073741825) -> 9007198180999169) ((4298 . 5625) (+ 9007199254740994 -1073741824) -> 9007198180999170) ((4299 . 5625) (+ 9007199254740994 -1073741823) -> 9007198180999171) ((4300 . 5625) (+ 9007199254740994 -1073741822) -> 9007198180999172) ((4301 . 5625) (+ 9007199254740990 1073741822) -> 9007200328482812) ((4302 . 5625) (+ 9007199254740990 1073741823) -> 9007200328482813) ((4303 . 5625) (+ 9007199254740990 1073741824) -> 9007200328482814) ((4304 . 5625) (+ 9007199254740990 1073741825) -> 9007200328482815) ((4305 . 5625) (+ 9007199254740990 1073741826) -> 9007200328482816) ((4306 . 5625) (+ 9007199254740991 1073741822) -> 9007200328482813) ((4307 . 5625) (+ 9007199254740991 1073741823) -> 9007200328482814) ((4308 . 5625) (+ 9007199254740991 1073741824) -> 9007200328482815) ((4309 . 5625) (+ 9007199254740991 1073741825) -> 9007200328482816) ((4310 . 5625) (+ 9007199254740991 1073741826) -> 9007200328482817) ((4311 . 5625) (+ 9007199254740992 1073741822) -> 9007200328482814) ((4312 . 5625) (+ 9007199254740992 1073741823) -> 9007200328482815) ((4313 . 5625) (+ 9007199254740992 1073741824) -> 9007200328482816) ((4314 . 5625) (+ 9007199254740992 1073741825) -> 9007200328482817) ((4315 . 5625) (+ 9007199254740992 1073741826) -> 9007200328482818) ((4316 . 5625) (+ 9007199254740993 1073741822) -> 9007200328482815) ((4317 . 5625) (+ 9007199254740993 1073741823) -> 9007200328482816) ((4318 . 5625) (+ 9007199254740993 1073741824) -> 9007200328482817) ((4319 . 5625) (+ 9007199254740993 1073741825) -> 9007200328482818) ((4320 . 5625) (+ 9007199254740993 1073741826) -> 9007200328482819) ((4321 . 5625) (+ 9007199254740994 1073741822) -> 9007200328482816) ((4322 . 5625) (+ 9007199254740994 1073741823) -> 9007200328482817) ((4323 . 5625) (+ 9007199254740994 1073741824) -> 9007200328482818) ((4324 . 5625) (+ 9007199254740994 1073741825) -> 9007200328482819) ((4325 . 5625) (+ 9007199254740994 1073741826) -> 9007200328482820) ((4326 . 5625) (+ 9007199254740990 -1073741827) -> 9007198180999163) ((4327 . 5625) (+ 9007199254740990 -1073741826) -> 9007198180999164) ((4328 . 5625) (+ 9007199254740990 -1073741825) -> 9007198180999165) ((4329 . 5625) (+ 9007199254740990 -1073741824) -> 9007198180999166) ((4330 . 5625) (+ 9007199254740990 -1073741823) -> 9007198180999167) ((4331 . 5625) (+ 9007199254740991 -1073741827) -> 9007198180999164) ((4332 . 5625) (+ 9007199254740991 -1073741826) -> 9007198180999165) ((4333 . 5625) (+ 9007199254740991 -1073741825) -> 9007198180999166) ((4334 . 5625) (+ 9007199254740991 -1073741824) -> 9007198180999167) ((4335 . 5625) (+ 9007199254740991 -1073741823) -> 9007198180999168) ((4336 . 5625) (+ 9007199254740992 -1073741827) -> 9007198180999165) ((4337 . 5625) (+ 9007199254740992 -1073741826) -> 9007198180999166) ((4338 . 5625) (+ 9007199254740992 -1073741825) -> 9007198180999167) ((4339 . 5625) (+ 9007199254740992 -1073741824) -> 9007198180999168) ((4340 . 5625) (+ 9007199254740992 -1073741823) -> 9007198180999169) ((4341 . 5625) (+ 9007199254740993 -1073741827) -> 9007198180999166) ((4342 . 5625) (+ 9007199254740993 -1073741826) -> 9007198180999167) ((4343 . 5625) (+ 9007199254740993 -1073741825) -> 9007198180999168) ((4344 . 5625) (+ 9007199254740993 -1073741824) -> 9007198180999169) ((4345 . 5625) (+ 9007199254740993 -1073741823) -> 9007198180999170) ((4346 . 5625) (+ 9007199254740994 -1073741827) -> 9007198180999167) ((4347 . 5625) (+ 9007199254740994 -1073741826) -> 9007198180999168) ((4348 . 5625) (+ 9007199254740994 -1073741825) -> 9007198180999169) ((4349 . 5625) (+ 9007199254740994 -1073741824) -> 9007198180999170) ((4350 . 5625) (+ 9007199254740994 -1073741823) -> 9007198180999171) ((4351 . 5625) (+ 9007199254740990 1103515243) -> 9007200358256233) ((4352 . 5625) (+ 9007199254740990 1103515244) -> 9007200358256234) ((4353 . 5625) (+ 9007199254740990 1103515245) -> 9007200358256235) ((4354 . 5625) (+ 9007199254740990 1103515246) -> 9007200358256236) ((4355 . 5625) (+ 9007199254740990 1103515247) -> 9007200358256237) ((4356 . 5625) (+ 9007199254740991 1103515243) -> 9007200358256234) ((4357 . 5625) (+ 9007199254740991 1103515244) -> 9007200358256235) ((4358 . 5625) (+ 9007199254740991 1103515245) -> 9007200358256236) ((4359 . 5625) (+ 9007199254740991 1103515246) -> 9007200358256237) ((4360 . 5625) (+ 9007199254740991 1103515247) -> 9007200358256238) ((4361 . 5625) (+ 9007199254740992 1103515243) -> 9007200358256235) ((4362 . 5625) (+ 9007199254740992 1103515244) -> 9007200358256236) ((4363 . 5625) (+ 9007199254740992 1103515245) -> 9007200358256237) ((4364 . 5625) (+ 9007199254740992 1103515246) -> 9007200358256238) ((4365 . 5625) (+ 9007199254740992 1103515247) -> 9007200358256239) ((4366 . 5625) (+ 9007199254740993 1103515243) -> 9007200358256236) ((4367 . 5625) (+ 9007199254740993 1103515244) -> 9007200358256237) ((4368 . 5625) (+ 9007199254740993 1103515245) -> 9007200358256238) ((4369 . 5625) (+ 9007199254740993 1103515246) -> 9007200358256239) ((4370 . 5625) (+ 9007199254740993 1103515247) -> 9007200358256240) ((4371 . 5625) (+ 9007199254740994 1103515243) -> 9007200358256237) ((4372 . 5625) (+ 9007199254740994 1103515244) -> 9007200358256238) ((4373 . 5625) (+ 9007199254740994 1103515245) -> 9007200358256239) ((4374 . 5625) (+ 9007199254740994 1103515246) -> 9007200358256240) ((4375 . 5625) (+ 9007199254740994 1103515247) -> 9007200358256241) ((4376 . 5625) (+ 9007199254740990 631629063) -> 9007199886370053) ((4377 . 5625) (+ 9007199254740990 631629064) -> 9007199886370054) ((4378 . 5625) (+ 9007199254740990 631629065) -> 9007199886370055) ((4379 . 5625) (+ 9007199254740990 631629066) -> 9007199886370056) ((4380 . 5625) (+ 9007199254740990 631629067) -> 9007199886370057) ((4381 . 5625) (+ 9007199254740991 631629063) -> 9007199886370054) ((4382 . 5625) (+ 9007199254740991 631629064) -> 9007199886370055) ((4383 . 5625) (+ 9007199254740991 631629065) -> 9007199886370056) ((4384 . 5625) (+ 9007199254740991 631629066) -> 9007199886370057) ((4385 . 5625) (+ 9007199254740991 631629067) -> 9007199886370058) ((4386 . 5625) (+ 9007199254740992 631629063) -> 9007199886370055) ((4387 . 5625) (+ 9007199254740992 631629064) -> 9007199886370056) ((4388 . 5625) (+ 9007199254740992 631629065) -> 9007199886370057) ((4389 . 5625) (+ 9007199254740992 631629066) -> 9007199886370058) ((4390 . 5625) (+ 9007199254740992 631629067) -> 9007199886370059) ((4391 . 5625) (+ 9007199254740993 631629063) -> 9007199886370056) ((4392 . 5625) (+ 9007199254740993 631629064) -> 9007199886370057) ((4393 . 5625) (+ 9007199254740993 631629065) -> 9007199886370058) ((4394 . 5625) (+ 9007199254740993 631629066) -> 9007199886370059) ((4395 . 5625) (+ 9007199254740993 631629067) -> 9007199886370060) ((4396 . 5625) (+ 9007199254740994 631629063) -> 9007199886370057) ((4397 . 5625) (+ 9007199254740994 631629064) -> 9007199886370058) ((4398 . 5625) (+ 9007199254740994 631629065) -> 9007199886370059) ((4399 . 5625) (+ 9007199254740994 631629066) -> 9007199886370060) ((4400 . 5625) (+ 9007199254740994 631629067) -> 9007199886370061) ((4401 . 5625) (+ 9007199254740990 9007199254740990) -> 18014398509481980) ((4402 . 5625) (+ 9007199254740990 9007199254740991) -> 18014398509481981) ((4403 . 5625) (+ 9007199254740990 9007199254740992) -> 18014398509481982) ((4404 . 5625) (+ 9007199254740990 9007199254740993) -> 18014398509481983) ((4405 . 5625) (+ 9007199254740990 9007199254740994) -> 18014398509481984) ((4406 . 5625) (+ 9007199254740991 9007199254740990) -> 18014398509481981) ((4407 . 5625) (+ 9007199254740991 9007199254740991) -> 18014398509481982) ((4408 . 5625) (+ 9007199254740991 9007199254740992) -> 18014398509481983) ((4409 . 5625) (+ 9007199254740991 9007199254740993) -> 18014398509481984) ((4410 . 5625) (+ 9007199254740991 9007199254740994) -> 18014398509481985) ((4411 . 5625) (+ 9007199254740992 9007199254740990) -> 18014398509481982) ((4412 . 5625) (+ 9007199254740992 9007199254740991) -> 18014398509481983) ((4413 . 5625) (+ 9007199254740992 9007199254740992) -> 18014398509481984) ((4414 . 5625) (+ 9007199254740992 9007199254740993) -> 18014398509481985) ((4415 . 5625) (+ 9007199254740992 9007199254740994) -> 18014398509481986) ((4416 . 5625) (+ 9007199254740993 9007199254740990) -> 18014398509481983) ((4417 . 5625) (+ 9007199254740993 9007199254740991) -> 18014398509481984) ((4418 . 5625) (+ 9007199254740993 9007199254740992) -> 18014398509481985) ((4419 . 5625) (+ 9007199254740993 9007199254740993) -> 18014398509481986) ((4420 . 5625) (+ 9007199254740993 9007199254740994) -> 18014398509481987) ((4421 . 5625) (+ 9007199254740994 9007199254740990) -> 18014398509481984) ((4422 . 5625) (+ 9007199254740994 9007199254740991) -> 18014398509481985) ((4423 . 5625) (+ 9007199254740994 9007199254740992) -> 18014398509481986) ((4424 . 5625) (+ 9007199254740994 9007199254740993) -> 18014398509481987) ((4425 . 5625) (+ 9007199254740994 9007199254740994) -> 18014398509481988) ((4426 . 5625) (+ 9007199254740990 -9007199254740994) -> -4) ((4427 . 5625) (+ 9007199254740990 -9007199254740993) -> -3) ((4428 . 5625) (+ 9007199254740990 -9007199254740992) -> -2) ((4429 . 5625) (+ 9007199254740990 -9007199254740991) -> -1) ((4430 . 5625) (+ 9007199254740990 -9007199254740990) -> 0) ((4431 . 5625) (+ 9007199254740991 -9007199254740994) -> -3) ((4432 . 5625) (+ 9007199254740991 -9007199254740993) -> -2) ((4433 . 5625) (+ 9007199254740991 -9007199254740992) -> -1) ((4434 . 5625) (+ 9007199254740991 -9007199254740991) -> 0) ((4435 . 5625) (+ 9007199254740991 -9007199254740990) -> 1) ((4436 . 5625) (+ 9007199254740992 -9007199254740994) -> -2) ((4437 . 5625) (+ 9007199254740992 -9007199254740993) -> -1) ((4438 . 5625) (+ 9007199254740992 -9007199254740992) -> 0) ((4439 . 5625) (+ 9007199254740992 -9007199254740991) -> 1) ((4440 . 5625) (+ 9007199254740992 -9007199254740990) -> 2) ((4441 . 5625) (+ 9007199254740993 -9007199254740994) -> -1) ((4442 . 5625) (+ 9007199254740993 -9007199254740993) -> 0) ((4443 . 5625) (+ 9007199254740993 -9007199254740992) -> 1) ((4444 . 5625) (+ 9007199254740993 -9007199254740991) -> 2) ((4445 . 5625) (+ 9007199254740993 -9007199254740990) -> 3) ((4446 . 5625) (+ 9007199254740994 -9007199254740994) -> 0) ((4447 . 5625) (+ 9007199254740994 -9007199254740993) -> 1) ((4448 . 5625) (+ 9007199254740994 -9007199254740992) -> 2) ((4449 . 5625) (+ 9007199254740994 -9007199254740991) -> 3) ((4450 . 5625) (+ 9007199254740994 -9007199254740990) -> 4) ((4451 . 5625) (+ 9007199254740990 12343) -> 9007199254753333) ((4452 . 5625) (+ 9007199254740990 12344) -> 9007199254753334) ((4453 . 5625) (+ 9007199254740990 12345) -> 9007199254753335) ((4454 . 5625) (+ 9007199254740990 12346) -> 9007199254753336) ((4455 . 5625) (+ 9007199254740990 12347) -> 9007199254753337) ((4456 . 5625) (+ 9007199254740991 12343) -> 9007199254753334) ((4457 . 5625) (+ 9007199254740991 12344) -> 9007199254753335) ((4458 . 5625) (+ 9007199254740991 12345) -> 9007199254753336) ((4459 . 5625) (+ 9007199254740991 12346) -> 9007199254753337) ((4460 . 5625) (+ 9007199254740991 12347) -> 9007199254753338) ((4461 . 5625) (+ 9007199254740992 12343) -> 9007199254753335) ((4462 . 5625) (+ 9007199254740992 12344) -> 9007199254753336) ((4463 . 5625) (+ 9007199254740992 12345) -> 9007199254753337) ((4464 . 5625) (+ 9007199254740992 12346) -> 9007199254753338) ((4465 . 5625) (+ 9007199254740992 12347) -> 9007199254753339) ((4466 . 5625) (+ 9007199254740993 12343) -> 9007199254753336) ((4467 . 5625) (+ 9007199254740993 12344) -> 9007199254753337) ((4468 . 5625) (+ 9007199254740993 12345) -> 9007199254753338) ((4469 . 5625) (+ 9007199254740993 12346) -> 9007199254753339) ((4470 . 5625) (+ 9007199254740993 12347) -> 9007199254753340) ((4471 . 5625) (+ 9007199254740994 12343) -> 9007199254753337) ((4472 . 5625) (+ 9007199254740994 12344) -> 9007199254753338) ((4473 . 5625) (+ 9007199254740994 12345) -> 9007199254753339) ((4474 . 5625) (+ 9007199254740994 12346) -> 9007199254753340) ((4475 . 5625) (+ 9007199254740994 12347) -> 9007199254753341) ((4476 . 5625) (+ 9007199254740990 4294967294) -> 9007203549708284) ((4477 . 5625) (+ 9007199254740990 4294967295) -> 9007203549708285) ((4478 . 5625) (+ 9007199254740990 4294967296) -> 9007203549708286) ((4479 . 5625) (+ 9007199254740990 4294967297) -> 9007203549708287) ((4480 . 5625) (+ 9007199254740990 4294967298) -> 9007203549708288) ((4481 . 5625) (+ 9007199254740991 4294967294) -> 9007203549708285) ((4482 . 5625) (+ 9007199254740991 4294967295) -> 9007203549708286) ((4483 . 5625) (+ 9007199254740991 4294967296) -> 9007203549708287) ((4484 . 5625) (+ 9007199254740991 4294967297) -> 9007203549708288) ((4485 . 5625) (+ 9007199254740991 4294967298) -> 9007203549708289) ((4486 . 5625) (+ 9007199254740992 4294967294) -> 9007203549708286) ((4487 . 5625) (+ 9007199254740992 4294967295) -> 9007203549708287) ((4488 . 5625) (+ 9007199254740992 4294967296) -> 9007203549708288) ((4489 . 5625) (+ 9007199254740992 4294967297) -> 9007203549708289) ((4490 . 5625) (+ 9007199254740992 4294967298) -> 9007203549708290) ((4491 . 5625) (+ 9007199254740993 4294967294) -> 9007203549708287) ((4492 . 5625) (+ 9007199254740993 4294967295) -> 9007203549708288) ((4493 . 5625) (+ 9007199254740993 4294967296) -> 9007203549708289) ((4494 . 5625) (+ 9007199254740993 4294967297) -> 9007203549708290) ((4495 . 5625) (+ 9007199254740993 4294967298) -> 9007203549708291) ((4496 . 5625) (+ 9007199254740994 4294967294) -> 9007203549708288) ((4497 . 5625) (+ 9007199254740994 4294967295) -> 9007203549708289) ((4498 . 5625) (+ 9007199254740994 4294967296) -> 9007203549708290) ((4499 . 5625) (+ 9007199254740994 4294967297) -> 9007203549708291) ((4500 . 5625) (+ 9007199254740994 4294967298) -> 9007203549708292) ((4501 . 5625) (+ -9007199254740994 -2) -> -9007199254740996) ((4502 . 5625) (+ -9007199254740994 -1) -> -9007199254740995) ((4503 . 5625) (+ -9007199254740994 0) -> -9007199254740994) ((4504 . 5625) (+ -9007199254740994 1) -> -9007199254740993) ((4505 . 5625) (+ -9007199254740994 2) -> -9007199254740992) ((4506 . 5625) (+ -9007199254740993 -2) -> -9007199254740995) ((4507 . 5625) (+ -9007199254740993 -1) -> -9007199254740994) ((4508 . 5625) (+ -9007199254740993 0) -> -9007199254740993) ((4509 . 5625) (+ -9007199254740993 1) -> -9007199254740992) ((4510 . 5625) (+ -9007199254740993 2) -> -9007199254740991) ((4511 . 5625) (+ -9007199254740992 -2) -> -9007199254740994) ((4512 . 5625) (+ -9007199254740992 -1) -> -9007199254740993) ((4513 . 5625) (+ -9007199254740992 0) -> -9007199254740992) ((4514 . 5625) (+ -9007199254740992 1) -> -9007199254740991) ((4515 . 5625) (+ -9007199254740992 2) -> -9007199254740990) ((4516 . 5625) (+ -9007199254740991 -2) -> -9007199254740993) ((4517 . 5625) (+ -9007199254740991 -1) -> -9007199254740992) ((4518 . 5625) (+ -9007199254740991 0) -> -9007199254740991) ((4519 . 5625) (+ -9007199254740991 1) -> -9007199254740990) ((4520 . 5625) (+ -9007199254740991 2) -> -9007199254740989) ((4521 . 5625) (+ -9007199254740990 -2) -> -9007199254740992) ((4522 . 5625) (+ -9007199254740990 -1) -> -9007199254740991) ((4523 . 5625) (+ -9007199254740990 0) -> -9007199254740990) ((4524 . 5625) (+ -9007199254740990 1) -> -9007199254740989) ((4525 . 5625) (+ -9007199254740990 2) -> -9007199254740988) ((4526 . 5625) (+ -9007199254740994 -1) -> -9007199254740995) ((4527 . 5625) (+ -9007199254740994 0) -> -9007199254740994) ((4528 . 5625) (+ -9007199254740994 1) -> -9007199254740993) ((4529 . 5625) (+ -9007199254740994 2) -> -9007199254740992) ((4530 . 5625) (+ -9007199254740994 3) -> -9007199254740991) ((4531 . 5625) (+ -9007199254740993 -1) -> -9007199254740994) ((4532 . 5625) (+ -9007199254740993 0) -> -9007199254740993) ((4533 . 5625) (+ -9007199254740993 1) -> -9007199254740992) ((4534 . 5625) (+ -9007199254740993 2) -> -9007199254740991) ((4535 . 5625) (+ -9007199254740993 3) -> -9007199254740990) ((4536 . 5625) (+ -9007199254740992 -1) -> -9007199254740993) ((4537 . 5625) (+ -9007199254740992 0) -> -9007199254740992) ((4538 . 5625) (+ -9007199254740992 1) -> -9007199254740991) ((4539 . 5625) (+ -9007199254740992 2) -> -9007199254740990) ((4540 . 5625) (+ -9007199254740992 3) -> -9007199254740989) ((4541 . 5625) (+ -9007199254740991 -1) -> -9007199254740992) ((4542 . 5625) (+ -9007199254740991 0) -> -9007199254740991) ((4543 . 5625) (+ -9007199254740991 1) -> -9007199254740990) ((4544 . 5625) (+ -9007199254740991 2) -> -9007199254740989) ((4545 . 5625) (+ -9007199254740991 3) -> -9007199254740988) ((4546 . 5625) (+ -9007199254740990 -1) -> -9007199254740991) ((4547 . 5625) (+ -9007199254740990 0) -> -9007199254740990) ((4548 . 5625) (+ -9007199254740990 1) -> -9007199254740989) ((4549 . 5625) (+ -9007199254740990 2) -> -9007199254740988) ((4550 . 5625) (+ -9007199254740990 3) -> -9007199254740987) ((4551 . 5625) (+ -9007199254740994 -3) -> -9007199254740997) ((4552 . 5625) (+ -9007199254740994 -2) -> -9007199254740996) ((4553 . 5625) (+ -9007199254740994 -1) -> -9007199254740995) ((4554 . 5625) (+ -9007199254740994 0) -> -9007199254740994) ((4555 . 5625) (+ -9007199254740994 1) -> -9007199254740993) ((4556 . 5625) (+ -9007199254740993 -3) -> -9007199254740996) ((4557 . 5625) (+ -9007199254740993 -2) -> -9007199254740995) ((4558 . 5625) (+ -9007199254740993 -1) -> -9007199254740994) ((4559 . 5625) (+ -9007199254740993 0) -> -9007199254740993) ((4560 . 5625) (+ -9007199254740993 1) -> -9007199254740992) ((4561 . 5625) (+ -9007199254740992 -3) -> -9007199254740995) ((4562 . 5625) (+ -9007199254740992 -2) -> -9007199254740994) ((4563 . 5625) (+ -9007199254740992 -1) -> -9007199254740993) ((4564 . 5625) (+ -9007199254740992 0) -> -9007199254740992) ((4565 . 5625) (+ -9007199254740992 1) -> -9007199254740991) ((4566 . 5625) (+ -9007199254740991 -3) -> -9007199254740994) ((4567 . 5625) (+ -9007199254740991 -2) -> -9007199254740993) ((4568 . 5625) (+ -9007199254740991 -1) -> -9007199254740992) ((4569 . 5625) (+ -9007199254740991 0) -> -9007199254740991) ((4570 . 5625) (+ -9007199254740991 1) -> -9007199254740990) ((4571 . 5625) (+ -9007199254740990 -3) -> -9007199254740993) ((4572 . 5625) (+ -9007199254740990 -2) -> -9007199254740992) ((4573 . 5625) (+ -9007199254740990 -1) -> -9007199254740991) ((4574 . 5625) (+ -9007199254740990 0) -> -9007199254740990) ((4575 . 5625) (+ -9007199254740990 1) -> -9007199254740989) ((4576 . 5625) (+ -9007199254740994 0) -> -9007199254740994) ((4577 . 5625) (+ -9007199254740994 1) -> -9007199254740993) ((4578 . 5625) (+ -9007199254740994 2) -> -9007199254740992) ((4579 . 5625) (+ -9007199254740994 3) -> -9007199254740991) ((4580 . 5625) (+ -9007199254740994 4) -> -9007199254740990) ((4581 . 5625) (+ -9007199254740993 0) -> -9007199254740993) ((4582 . 5625) (+ -9007199254740993 1) -> -9007199254740992) ((4583 . 5625) (+ -9007199254740993 2) -> -9007199254740991) ((4584 . 5625) (+ -9007199254740993 3) -> -9007199254740990) ((4585 . 5625) (+ -9007199254740993 4) -> -9007199254740989) ((4586 . 5625) (+ -9007199254740992 0) -> -9007199254740992) ((4587 . 5625) (+ -9007199254740992 1) -> -9007199254740991) ((4588 . 5625) (+ -9007199254740992 2) -> -9007199254740990) ((4589 . 5625) (+ -9007199254740992 3) -> -9007199254740989) ((4590 . 5625) (+ -9007199254740992 4) -> -9007199254740988) ((4591 . 5625) (+ -9007199254740991 0) -> -9007199254740991) ((4592 . 5625) (+ -9007199254740991 1) -> -9007199254740990) ((4593 . 5625) (+ -9007199254740991 2) -> -9007199254740989) ((4594 . 5625) (+ -9007199254740991 3) -> -9007199254740988) ((4595 . 5625) (+ -9007199254740991 4) -> -9007199254740987) ((4596 . 5625) (+ -9007199254740990 0) -> -9007199254740990) ((4597 . 5625) (+ -9007199254740990 1) -> -9007199254740989) ((4598 . 5625) (+ -9007199254740990 2) -> -9007199254740988) ((4599 . 5625) (+ -9007199254740990 3) -> -9007199254740987) ((4600 . 5625) (+ -9007199254740990 4) -> -9007199254740986) ((4601 . 5625) (+ -9007199254740994 -4) -> -9007199254740998) ((4602 . 5625) (+ -9007199254740994 -3) -> -9007199254740997) ((4603 . 5625) (+ -9007199254740994 -2) -> -9007199254740996) ((4604 . 5625) (+ -9007199254740994 -1) -> -9007199254740995) ((4605 . 5625) (+ -9007199254740994 0) -> -9007199254740994) ((4606 . 5625) (+ -9007199254740993 -4) -> -9007199254740997) ((4607 . 5625) (+ -9007199254740993 -3) -> -9007199254740996) ((4608 . 5625) (+ -9007199254740993 -2) -> -9007199254740995) ((4609 . 5625) (+ -9007199254740993 -1) -> -9007199254740994) ((4610 . 5625) (+ -9007199254740993 0) -> -9007199254740993) ((4611 . 5625) (+ -9007199254740992 -4) -> -9007199254740996) ((4612 . 5625) (+ -9007199254740992 -3) -> -9007199254740995) ((4613 . 5625) (+ -9007199254740992 -2) -> -9007199254740994) ((4614 . 5625) (+ -9007199254740992 -1) -> -9007199254740993) ((4615 . 5625) (+ -9007199254740992 0) -> -9007199254740992) ((4616 . 5625) (+ -9007199254740991 -4) -> -9007199254740995) ((4617 . 5625) (+ -9007199254740991 -3) -> -9007199254740994) ((4618 . 5625) (+ -9007199254740991 -2) -> -9007199254740993) ((4619 . 5625) (+ -9007199254740991 -1) -> -9007199254740992) ((4620 . 5625) (+ -9007199254740991 0) -> -9007199254740991) ((4621 . 5625) (+ -9007199254740990 -4) -> -9007199254740994) ((4622 . 5625) (+ -9007199254740990 -3) -> -9007199254740993) ((4623 . 5625) (+ -9007199254740990 -2) -> -9007199254740992) ((4624 . 5625) (+ -9007199254740990 -1) -> -9007199254740991) ((4625 . 5625) (+ -9007199254740990 0) -> -9007199254740990) ((4626 . 5625) (+ -9007199254740994 1073741821) -> -9007198180999173) ((4627 . 5625) (+ -9007199254740994 1073741822) -> -9007198180999172) ((4628 . 5625) (+ -9007199254740994 1073741823) -> -9007198180999171) ((4629 . 5625) (+ -9007199254740994 1073741824) -> -9007198180999170) ((4630 . 5625) (+ -9007199254740994 1073741825) -> -9007198180999169) ((4631 . 5625) (+ -9007199254740993 1073741821) -> -9007198180999172) ((4632 . 5625) (+ -9007199254740993 1073741822) -> -9007198180999171) ((4633 . 5625) (+ -9007199254740993 1073741823) -> -9007198180999170) ((4634 . 5625) (+ -9007199254740993 1073741824) -> -9007198180999169) ((4635 . 5625) (+ -9007199254740993 1073741825) -> -9007198180999168) ((4636 . 5625) (+ -9007199254740992 1073741821) -> -9007198180999171) ((4637 . 5625) (+ -9007199254740992 1073741822) -> -9007198180999170) ((4638 . 5625) (+ -9007199254740992 1073741823) -> -9007198180999169) ((4639 . 5625) (+ -9007199254740992 1073741824) -> -9007198180999168) ((4640 . 5625) (+ -9007199254740992 1073741825) -> -9007198180999167) ((4641 . 5625) (+ -9007199254740991 1073741821) -> -9007198180999170) ((4642 . 5625) (+ -9007199254740991 1073741822) -> -9007198180999169) ((4643 . 5625) (+ -9007199254740991 1073741823) -> -9007198180999168) ((4644 . 5625) (+ -9007199254740991 1073741824) -> -9007198180999167) ((4645 . 5625) (+ -9007199254740991 1073741825) -> -9007198180999166) ((4646 . 5625) (+ -9007199254740990 1073741821) -> -9007198180999169) ((4647 . 5625) (+ -9007199254740990 1073741822) -> -9007198180999168) ((4648 . 5625) (+ -9007199254740990 1073741823) -> -9007198180999167) ((4649 . 5625) (+ -9007199254740990 1073741824) -> -9007198180999166) ((4650 . 5625) (+ -9007199254740990 1073741825) -> -9007198180999165) ((4651 . 5625) (+ -9007199254740994 -1073741826) -> -9007200328482820) ((4652 . 5625) (+ -9007199254740994 -1073741825) -> -9007200328482819) ((4653 . 5625) (+ -9007199254740994 -1073741824) -> -9007200328482818) ((4654 . 5625) (+ -9007199254740994 -1073741823) -> -9007200328482817) ((4655 . 5625) (+ -9007199254740994 -1073741822) -> -9007200328482816) ((4656 . 5625) (+ -9007199254740993 -1073741826) -> -9007200328482819) ((4657 . 5625) (+ -9007199254740993 -1073741825) -> -9007200328482818) ((4658 . 5625) (+ -9007199254740993 -1073741824) -> -9007200328482817) ((4659 . 5625) (+ -9007199254740993 -1073741823) -> -9007200328482816) ((4660 . 5625) (+ -9007199254740993 -1073741822) -> -9007200328482815) ((4661 . 5625) (+ -9007199254740992 -1073741826) -> -9007200328482818) ((4662 . 5625) (+ -9007199254740992 -1073741825) -> -9007200328482817) ((4663 . 5625) (+ -9007199254740992 -1073741824) -> -9007200328482816) ((4664 . 5625) (+ -9007199254740992 -1073741823) -> -9007200328482815) ((4665 . 5625) (+ -9007199254740992 -1073741822) -> -9007200328482814) ((4666 . 5625) (+ -9007199254740991 -1073741826) -> -9007200328482817) ((4667 . 5625) (+ -9007199254740991 -1073741825) -> -9007200328482816) ((4668 . 5625) (+ -9007199254740991 -1073741824) -> -9007200328482815) ((4669 . 5625) (+ -9007199254740991 -1073741823) -> -9007200328482814) ((4670 . 5625) (+ -9007199254740991 -1073741822) -> -9007200328482813) ((4671 . 5625) (+ -9007199254740990 -1073741826) -> -9007200328482816) ((4672 . 5625) (+ -9007199254740990 -1073741825) -> -9007200328482815) ((4673 . 5625) (+ -9007199254740990 -1073741824) -> -9007200328482814) ((4674 . 5625) (+ -9007199254740990 -1073741823) -> -9007200328482813) ((4675 . 5625) (+ -9007199254740990 -1073741822) -> -9007200328482812) ((4676 . 5625) (+ -9007199254740994 1073741822) -> -9007198180999172) ((4677 . 5625) (+ -9007199254740994 1073741823) -> -9007198180999171) ((4678 . 5625) (+ -9007199254740994 1073741824) -> -9007198180999170) ((4679 . 5625) (+ -9007199254740994 1073741825) -> -9007198180999169) ((4680 . 5625) (+ -9007199254740994 1073741826) -> -9007198180999168) ((4681 . 5625) (+ -9007199254740993 1073741822) -> -9007198180999171) ((4682 . 5625) (+ -9007199254740993 1073741823) -> -9007198180999170) ((4683 . 5625) (+ -9007199254740993 1073741824) -> -9007198180999169) ((4684 . 5625) (+ -9007199254740993 1073741825) -> -9007198180999168) ((4685 . 5625) (+ -9007199254740993 1073741826) -> -9007198180999167) ((4686 . 5625) (+ -9007199254740992 1073741822) -> -9007198180999170) ((4687 . 5625) (+ -9007199254740992 1073741823) -> -9007198180999169) ((4688 . 5625) (+ -9007199254740992 1073741824) -> -9007198180999168) ((4689 . 5625) (+ -9007199254740992 1073741825) -> -9007198180999167) ((4690 . 5625) (+ -9007199254740992 1073741826) -> -9007198180999166) ((4691 . 5625) (+ -9007199254740991 1073741822) -> -9007198180999169) ((4692 . 5625) (+ -9007199254740991 1073741823) -> -9007198180999168) ((4693 . 5625) (+ -9007199254740991 1073741824) -> -9007198180999167) ((4694 . 5625) (+ -9007199254740991 1073741825) -> -9007198180999166) ((4695 . 5625) (+ -9007199254740991 1073741826) -> -9007198180999165) ((4696 . 5625) (+ -9007199254740990 1073741822) -> -9007198180999168) ((4697 . 5625) (+ -9007199254740990 1073741823) -> -9007198180999167) ((4698 . 5625) (+ -9007199254740990 1073741824) -> -9007198180999166) ((4699 . 5625) (+ -9007199254740990 1073741825) -> -9007198180999165) ((4700 . 5625) (+ -9007199254740990 1073741826) -> -9007198180999164) ((4701 . 5625) (+ -9007199254740994 -1073741827) -> -9007200328482821) ((4702 . 5625) (+ -9007199254740994 -1073741826) -> -9007200328482820) ((4703 . 5625) (+ -9007199254740994 -1073741825) -> -9007200328482819) ((4704 . 5625) (+ -9007199254740994 -1073741824) -> -9007200328482818) ((4705 . 5625) (+ -9007199254740994 -1073741823) -> -9007200328482817) ((4706 . 5625) (+ -9007199254740993 -1073741827) -> -9007200328482820) ((4707 . 5625) (+ -9007199254740993 -1073741826) -> -9007200328482819) ((4708 . 5625) (+ -9007199254740993 -1073741825) -> -9007200328482818) ((4709 . 5625) (+ -9007199254740993 -1073741824) -> -9007200328482817) ((4710 . 5625) (+ -9007199254740993 -1073741823) -> -9007200328482816) ((4711 . 5625) (+ -9007199254740992 -1073741827) -> -9007200328482819) ((4712 . 5625) (+ -9007199254740992 -1073741826) -> -9007200328482818) ((4713 . 5625) (+ -9007199254740992 -1073741825) -> -9007200328482817) ((4714 . 5625) (+ -9007199254740992 -1073741824) -> -9007200328482816) ((4715 . 5625) (+ -9007199254740992 -1073741823) -> -9007200328482815) ((4716 . 5625) (+ -9007199254740991 -1073741827) -> -9007200328482818) ((4717 . 5625) (+ -9007199254740991 -1073741826) -> -9007200328482817) ((4718 . 5625) (+ -9007199254740991 -1073741825) -> -9007200328482816) ((4719 . 5625) (+ -9007199254740991 -1073741824) -> -9007200328482815) ((4720 . 5625) (+ -9007199254740991 -1073741823) -> -9007200328482814) ((4721 . 5625) (+ -9007199254740990 -1073741827) -> -9007200328482817) ((4722 . 5625) (+ -9007199254740990 -1073741826) -> -9007200328482816) ((4723 . 5625) (+ -9007199254740990 -1073741825) -> -9007200328482815) ((4724 . 5625) (+ -9007199254740990 -1073741824) -> -9007200328482814) ((4725 . 5625) (+ -9007199254740990 -1073741823) -> -9007200328482813) ((4726 . 5625) (+ -9007199254740994 1103515243) -> -9007198151225751) ((4727 . 5625) (+ -9007199254740994 1103515244) -> -9007198151225750) ((4728 . 5625) (+ -9007199254740994 1103515245) -> -9007198151225749) ((4729 . 5625) (+ -9007199254740994 1103515246) -> -9007198151225748) ((4730 . 5625) (+ -9007199254740994 1103515247) -> -9007198151225747) ((4731 . 5625) (+ -9007199254740993 1103515243) -> -9007198151225750) ((4732 . 5625) (+ -9007199254740993 1103515244) -> -9007198151225749) ((4733 . 5625) (+ -9007199254740993 1103515245) -> -9007198151225748) ((4734 . 5625) (+ -9007199254740993 1103515246) -> -9007198151225747) ((4735 . 5625) (+ -9007199254740993 1103515247) -> -9007198151225746) ((4736 . 5625) (+ -9007199254740992 1103515243) -> -9007198151225749) ((4737 . 5625) (+ -9007199254740992 1103515244) -> -9007198151225748) ((4738 . 5625) (+ -9007199254740992 1103515245) -> -9007198151225747) ((4739 . 5625) (+ -9007199254740992 1103515246) -> -9007198151225746) ((4740 . 5625) (+ -9007199254740992 1103515247) -> -9007198151225745) ((4741 . 5625) (+ -9007199254740991 1103515243) -> -9007198151225748) ((4742 . 5625) (+ -9007199254740991 1103515244) -> -9007198151225747) ((4743 . 5625) (+ -9007199254740991 1103515245) -> -9007198151225746) ((4744 . 5625) (+ -9007199254740991 1103515246) -> -9007198151225745) ((4745 . 5625) (+ -9007199254740991 1103515247) -> -9007198151225744) ((4746 . 5625) (+ -9007199254740990 1103515243) -> -9007198151225747) ((4747 . 5625) (+ -9007199254740990 1103515244) -> -9007198151225746) ((4748 . 5625) (+ -9007199254740990 1103515245) -> -9007198151225745) ((4749 . 5625) (+ -9007199254740990 1103515246) -> -9007198151225744) ((4750 . 5625) (+ -9007199254740990 1103515247) -> -9007198151225743) ((4751 . 5625) (+ -9007199254740994 631629063) -> -9007198623111931) ((4752 . 5625) (+ -9007199254740994 631629064) -> -9007198623111930) ((4753 . 5625) (+ -9007199254740994 631629065) -> -9007198623111929) ((4754 . 5625) (+ -9007199254740994 631629066) -> -9007198623111928) ((4755 . 5625) (+ -9007199254740994 631629067) -> -9007198623111927) ((4756 . 5625) (+ -9007199254740993 631629063) -> -9007198623111930) ((4757 . 5625) (+ -9007199254740993 631629064) -> -9007198623111929) ((4758 . 5625) (+ -9007199254740993 631629065) -> -9007198623111928) ((4759 . 5625) (+ -9007199254740993 631629066) -> -9007198623111927) ((4760 . 5625) (+ -9007199254740993 631629067) -> -9007198623111926) ((4761 . 5625) (+ -9007199254740992 631629063) -> -9007198623111929) ((4762 . 5625) (+ -9007199254740992 631629064) -> -9007198623111928) ((4763 . 5625) (+ -9007199254740992 631629065) -> -9007198623111927) ((4764 . 5625) (+ -9007199254740992 631629066) -> -9007198623111926) ((4765 . 5625) (+ -9007199254740992 631629067) -> -9007198623111925) ((4766 . 5625) (+ -9007199254740991 631629063) -> -9007198623111928) ((4767 . 5625) (+ -9007199254740991 631629064) -> -9007198623111927) ((4768 . 5625) (+ -9007199254740991 631629065) -> -9007198623111926) ((4769 . 5625) (+ -9007199254740991 631629066) -> -9007198623111925) ((4770 . 5625) (+ -9007199254740991 631629067) -> -9007198623111924) ((4771 . 5625) (+ -9007199254740990 631629063) -> -9007198623111927) ((4772 . 5625) (+ -9007199254740990 631629064) -> -9007198623111926) ((4773 . 5625) (+ -9007199254740990 631629065) -> -9007198623111925) ((4774 . 5625) (+ -9007199254740990 631629066) -> -9007198623111924) ((4775 . 5625) (+ -9007199254740990 631629067) -> -9007198623111923) ((4776 . 5625) (+ -9007199254740994 9007199254740990) -> -4) ((4777 . 5625) (+ -9007199254740994 9007199254740991) -> -3) ((4778 . 5625) (+ -9007199254740994 9007199254740992) -> -2) ((4779 . 5625) (+ -9007199254740994 9007199254740993) -> -1) ((4780 . 5625) (+ -9007199254740994 9007199254740994) -> 0) ((4781 . 5625) (+ -9007199254740993 9007199254740990) -> -3) ((4782 . 5625) (+ -9007199254740993 9007199254740991) -> -2) ((4783 . 5625) (+ -9007199254740993 9007199254740992) -> -1) ((4784 . 5625) (+ -9007199254740993 9007199254740993) -> 0) ((4785 . 5625) (+ -9007199254740993 9007199254740994) -> 1) ((4786 . 5625) (+ -9007199254740992 9007199254740990) -> -2) ((4787 . 5625) (+ -9007199254740992 9007199254740991) -> -1) ((4788 . 5625) (+ -9007199254740992 9007199254740992) -> 0) ((4789 . 5625) (+ -9007199254740992 9007199254740993) -> 1) ((4790 . 5625) (+ -9007199254740992 9007199254740994) -> 2) ((4791 . 5625) (+ -9007199254740991 9007199254740990) -> -1) ((4792 . 5625) (+ -9007199254740991 9007199254740991) -> 0) ((4793 . 5625) (+ -9007199254740991 9007199254740992) -> 1) ((4794 . 5625) (+ -9007199254740991 9007199254740993) -> 2) ((4795 . 5625) (+ -9007199254740991 9007199254740994) -> 3) ((4796 . 5625) (+ -9007199254740990 9007199254740990) -> 0) ((4797 . 5625) (+ -9007199254740990 9007199254740991) -> 1) ((4798 . 5625) (+ -9007199254740990 9007199254740992) -> 2) ((4799 . 5625) (+ -9007199254740990 9007199254740993) -> 3) ((4800 . 5625) (+ -9007199254740990 9007199254740994) -> 4) ((4801 . 5625) (+ -9007199254740994 -9007199254740994) -> -18014398509481988) ((4802 . 5625) (+ -9007199254740994 -9007199254740993) -> -18014398509481987) ((4803 . 5625) (+ -9007199254740994 -9007199254740992) -> -18014398509481986) ((4804 . 5625) (+ -9007199254740994 -9007199254740991) -> -18014398509481985) ((4805 . 5625) (+ -9007199254740994 -9007199254740990) -> -18014398509481984) ((4806 . 5625) (+ -9007199254740993 -9007199254740994) -> -18014398509481987) ((4807 . 5625) (+ -9007199254740993 -9007199254740993) -> -18014398509481986) ((4808 . 5625) (+ -9007199254740993 -9007199254740992) -> -18014398509481985) ((4809 . 5625) (+ -9007199254740993 -9007199254740991) -> -18014398509481984) ((4810 . 5625) (+ -9007199254740993 -9007199254740990) -> -18014398509481983) ((4811 . 5625) (+ -9007199254740992 -9007199254740994) -> -18014398509481986) ((4812 . 5625) (+ -9007199254740992 -9007199254740993) -> -18014398509481985) ((4813 . 5625) (+ -9007199254740992 -9007199254740992) -> -18014398509481984) ((4814 . 5625) (+ -9007199254740992 -9007199254740991) -> -18014398509481983) ((4815 . 5625) (+ -9007199254740992 -9007199254740990) -> -18014398509481982) ((4816 . 5625) (+ -9007199254740991 -9007199254740994) -> -18014398509481985) ((4817 . 5625) (+ -9007199254740991 -9007199254740993) -> -18014398509481984) ((4818 . 5625) (+ -9007199254740991 -9007199254740992) -> -18014398509481983) ((4819 . 5625) (+ -9007199254740991 -9007199254740991) -> -18014398509481982) ((4820 . 5625) (+ -9007199254740991 -9007199254740990) -> -18014398509481981) ((4821 . 5625) (+ -9007199254740990 -9007199254740994) -> -18014398509481984) ((4822 . 5625) (+ -9007199254740990 -9007199254740993) -> -18014398509481983) ((4823 . 5625) (+ -9007199254740990 -9007199254740992) -> -18014398509481982) ((4824 . 5625) (+ -9007199254740990 -9007199254740991) -> -18014398509481981) ((4825 . 5625) (+ -9007199254740990 -9007199254740990) -> -18014398509481980) ((4826 . 5625) (+ -9007199254740994 12343) -> -9007199254728651) ((4827 . 5625) (+ -9007199254740994 12344) -> -9007199254728650) ((4828 . 5625) (+ -9007199254740994 12345) -> -9007199254728649) ((4829 . 5625) (+ -9007199254740994 12346) -> -9007199254728648) ((4830 . 5625) (+ -9007199254740994 12347) -> -9007199254728647) ((4831 . 5625) (+ -9007199254740993 12343) -> -9007199254728650) ((4832 . 5625) (+ -9007199254740993 12344) -> -9007199254728649) ((4833 . 5625) (+ -9007199254740993 12345) -> -9007199254728648) ((4834 . 5625) (+ -9007199254740993 12346) -> -9007199254728647) ((4835 . 5625) (+ -9007199254740993 12347) -> -9007199254728646) ((4836 . 5625) (+ -9007199254740992 12343) -> -9007199254728649) ((4837 . 5625) (+ -9007199254740992 12344) -> -9007199254728648) ((4838 . 5625) (+ -9007199254740992 12345) -> -9007199254728647) ((4839 . 5625) (+ -9007199254740992 12346) -> -9007199254728646) ((4840 . 5625) (+ -9007199254740992 12347) -> -9007199254728645) ((4841 . 5625) (+ -9007199254740991 12343) -> -9007199254728648) ((4842 . 5625) (+ -9007199254740991 12344) -> -9007199254728647) ((4843 . 5625) (+ -9007199254740991 12345) -> -9007199254728646) ((4844 . 5625) (+ -9007199254740991 12346) -> -9007199254728645) ((4845 . 5625) (+ -9007199254740991 12347) -> -9007199254728644) ((4846 . 5625) (+ -9007199254740990 12343) -> -9007199254728647) ((4847 . 5625) (+ -9007199254740990 12344) -> -9007199254728646) ((4848 . 5625) (+ -9007199254740990 12345) -> -9007199254728645) ((4849 . 5625) (+ -9007199254740990 12346) -> -9007199254728644) ((4850 . 5625) (+ -9007199254740990 12347) -> -9007199254728643) ((4851 . 5625) (+ -9007199254740994 4294967294) -> -9007194959773700) ((4852 . 5625) (+ -9007199254740994 4294967295) -> -9007194959773699) ((4853 . 5625) (+ -9007199254740994 4294967296) -> -9007194959773698) ((4854 . 5625) (+ -9007199254740994 4294967297) -> -9007194959773697) ((4855 . 5625) (+ -9007199254740994 4294967298) -> -9007194959773696) ((4856 . 5625) (+ -9007199254740993 4294967294) -> -9007194959773699) ((4857 . 5625) (+ -9007199254740993 4294967295) -> -9007194959773698) ((4858 . 5625) (+ -9007199254740993 4294967296) -> -9007194959773697) ((4859 . 5625) (+ -9007199254740993 4294967297) -> -9007194959773696) ((4860 . 5625) (+ -9007199254740993 4294967298) -> -9007194959773695) ((4861 . 5625) (+ -9007199254740992 4294967294) -> -9007194959773698) ((4862 . 5625) (+ -9007199254740992 4294967295) -> -9007194959773697) ((4863 . 5625) (+ -9007199254740992 4294967296) -> -9007194959773696) ((4864 . 5625) (+ -9007199254740992 4294967297) -> -9007194959773695) ((4865 . 5625) (+ -9007199254740992 4294967298) -> -9007194959773694) ((4866 . 5625) (+ -9007199254740991 4294967294) -> -9007194959773697) ((4867 . 5625) (+ -9007199254740991 4294967295) -> -9007194959773696) ((4868 . 5625) (+ -9007199254740991 4294967296) -> -9007194959773695) ((4869 . 5625) (+ -9007199254740991 4294967297) -> -9007194959773694) ((4870 . 5625) (+ -9007199254740991 4294967298) -> -9007194959773693) ((4871 . 5625) (+ -9007199254740990 4294967294) -> -9007194959773696) ((4872 . 5625) (+ -9007199254740990 4294967295) -> -9007194959773695) ((4873 . 5625) (+ -9007199254740990 4294967296) -> -9007194959773694) ((4874 . 5625) (+ -9007199254740990 4294967297) -> -9007194959773693) ((4875 . 5625) (+ -9007199254740990 4294967298) -> -9007194959773692) ((4876 . 5625) (+ 12343 -2) -> 12341) ((4877 . 5625) (+ 12343 -1) -> 12342) ((4878 . 5625) (+ 12343 0) -> 12343) ((4879 . 5625) (+ 12343 1) -> 12344) ((4880 . 5625) (+ 12343 2) -> 12345) ((4881 . 5625) (+ 12344 -2) -> 12342) ((4882 . 5625) (+ 12344 -1) -> 12343) ((4883 . 5625) (+ 12344 0) -> 12344) ((4884 . 5625) (+ 12344 1) -> 12345) ((4885 . 5625) (+ 12344 2) -> 12346) ((4886 . 5625) (+ 12345 -2) -> 12343) ((4887 . 5625) (+ 12345 -1) -> 12344) ((4888 . 5625) (+ 12345 0) -> 12345) ((4889 . 5625) (+ 12345 1) -> 12346) ((4890 . 5625) (+ 12345 2) -> 12347) ((4891 . 5625) (+ 12346 -2) -> 12344) ((4892 . 5625) (+ 12346 -1) -> 12345) ((4893 . 5625) (+ 12346 0) -> 12346) ((4894 . 5625) (+ 12346 1) -> 12347) ((4895 . 5625) (+ 12346 2) -> 12348) ((4896 . 5625) (+ 12347 -2) -> 12345) ((4897 . 5625) (+ 12347 -1) -> 12346) ((4898 . 5625) (+ 12347 0) -> 12347) ((4899 . 5625) (+ 12347 1) -> 12348) ((4900 . 5625) (+ 12347 2) -> 12349) ((4901 . 5625) (+ 12343 -1) -> 12342) ((4902 . 5625) (+ 12343 0) -> 12343) ((4903 . 5625) (+ 12343 1) -> 12344) ((4904 . 5625) (+ 12343 2) -> 12345) ((4905 . 5625) (+ 12343 3) -> 12346) ((4906 . 5625) (+ 12344 -1) -> 12343) ((4907 . 5625) (+ 12344 0) -> 12344) ((4908 . 5625) (+ 12344 1) -> 12345) ((4909 . 5625) (+ 12344 2) -> 12346) ((4910 . 5625) (+ 12344 3) -> 12347) ((4911 . 5625) (+ 12345 -1) -> 12344) ((4912 . 5625) (+ 12345 0) -> 12345) ((4913 . 5625) (+ 12345 1) -> 12346) ((4914 . 5625) (+ 12345 2) -> 12347) ((4915 . 5625) (+ 12345 3) -> 12348) ((4916 . 5625) (+ 12346 -1) -> 12345) ((4917 . 5625) (+ 12346 0) -> 12346) ((4918 . 5625) (+ 12346 1) -> 12347) ((4919 . 5625) (+ 12346 2) -> 12348) ((4920 . 5625) (+ 12346 3) -> 12349) ((4921 . 5625) (+ 12347 -1) -> 12346) ((4922 . 5625) (+ 12347 0) -> 12347) ((4923 . 5625) (+ 12347 1) -> 12348) ((4924 . 5625) (+ 12347 2) -> 12349) ((4925 . 5625) (+ 12347 3) -> 12350) ((4926 . 5625) (+ 12343 -3) -> 12340) ((4927 . 5625) (+ 12343 -2) -> 12341) ((4928 . 5625) (+ 12343 -1) -> 12342) ((4929 . 5625) (+ 12343 0) -> 12343) ((4930 . 5625) (+ 12343 1) -> 12344) ((4931 . 5625) (+ 12344 -3) -> 12341) ((4932 . 5625) (+ 12344 -2) -> 12342) ((4933 . 5625) (+ 12344 -1) -> 12343) ((4934 . 5625) (+ 12344 0) -> 12344) ((4935 . 5625) (+ 12344 1) -> 12345) ((4936 . 5625) (+ 12345 -3) -> 12342) ((4937 . 5625) (+ 12345 -2) -> 12343) ((4938 . 5625) (+ 12345 -1) -> 12344) ((4939 . 5625) (+ 12345 0) -> 12345) ((4940 . 5625) (+ 12345 1) -> 12346) ((4941 . 5625) (+ 12346 -3) -> 12343) ((4942 . 5625) (+ 12346 -2) -> 12344) ((4943 . 5625) (+ 12346 -1) -> 12345) ((4944 . 5625) (+ 12346 0) -> 12346) ((4945 . 5625) (+ 12346 1) -> 12347) ((4946 . 5625) (+ 12347 -3) -> 12344) ((4947 . 5625) (+ 12347 -2) -> 12345) ((4948 . 5625) (+ 12347 -1) -> 12346) ((4949 . 5625) (+ 12347 0) -> 12347) ((4950 . 5625) (+ 12347 1) -> 12348) ((4951 . 5625) (+ 12343 0) -> 12343) ((4952 . 5625) (+ 12343 1) -> 12344) ((4953 . 5625) (+ 12343 2) -> 12345) ((4954 . 5625) (+ 12343 3) -> 12346) ((4955 . 5625) (+ 12343 4) -> 12347) ((4956 . 5625) (+ 12344 0) -> 12344) ((4957 . 5625) (+ 12344 1) -> 12345) ((4958 . 5625) (+ 12344 2) -> 12346) ((4959 . 5625) (+ 12344 3) -> 12347) ((4960 . 5625) (+ 12344 4) -> 12348) ((4961 . 5625) (+ 12345 0) -> 12345) ((4962 . 5625) (+ 12345 1) -> 12346) ((4963 . 5625) (+ 12345 2) -> 12347) ((4964 . 5625) (+ 12345 3) -> 12348) ((4965 . 5625) (+ 12345 4) -> 12349) ((4966 . 5625) (+ 12346 0) -> 12346) ((4967 . 5625) (+ 12346 1) -> 12347) ((4968 . 5625) (+ 12346 2) -> 12348) ((4969 . 5625) (+ 12346 3) -> 12349) ((4970 . 5625) (+ 12346 4) -> 12350) ((4971 . 5625) (+ 12347 0) -> 12347) ((4972 . 5625) (+ 12347 1) -> 12348) ((4973 . 5625) (+ 12347 2) -> 12349) ((4974 . 5625) (+ 12347 3) -> 12350) ((4975 . 5625) (+ 12347 4) -> 12351) ((4976 . 5625) (+ 12343 -4) -> 12339) ((4977 . 5625) (+ 12343 -3) -> 12340) ((4978 . 5625) (+ 12343 -2) -> 12341) ((4979 . 5625) (+ 12343 -1) -> 12342) ((4980 . 5625) (+ 12343 0) -> 12343) ((4981 . 5625) (+ 12344 -4) -> 12340) ((4982 . 5625) (+ 12344 -3) -> 12341) ((4983 . 5625) (+ 12344 -2) -> 12342) ((4984 . 5625) (+ 12344 -1) -> 12343) ((4985 . 5625) (+ 12344 0) -> 12344) ((4986 . 5625) (+ 12345 -4) -> 12341) ((4987 . 5625) (+ 12345 -3) -> 12342) ((4988 . 5625) (+ 12345 -2) -> 12343) ((4989 . 5625) (+ 12345 -1) -> 12344) ((4990 . 5625) (+ 12345 0) -> 12345) ((4991 . 5625) (+ 12346 -4) -> 12342) ((4992 . 5625) (+ 12346 -3) -> 12343) ((4993 . 5625) (+ 12346 -2) -> 12344) ((4994 . 5625) (+ 12346 -1) -> 12345) ((4995 . 5625) (+ 12346 0) -> 12346) ((4996 . 5625) (+ 12347 -4) -> 12343) ((4997 . 5625) (+ 12347 -3) -> 12344) ((4998 . 5625) (+ 12347 -2) -> 12345) ((4999 . 5625) (+ 12347 -1) -> 12346) ((5000 . 5625) (+ 12347 0) -> 12347) ((5001 . 5625) (+ 12343 1073741821) -> 1073754164) ((5002 . 5625) (+ 12343 1073741822) -> 1073754165) ((5003 . 5625) (+ 12343 1073741823) -> 1073754166) ((5004 . 5625) (+ 12343 1073741824) -> 1073754167) ((5005 . 5625) (+ 12343 1073741825) -> 1073754168) ((5006 . 5625) (+ 12344 1073741821) -> 1073754165) ((5007 . 5625) (+ 12344 1073741822) -> 1073754166) ((5008 . 5625) (+ 12344 1073741823) -> 1073754167) ((5009 . 5625) (+ 12344 1073741824) -> 1073754168) ((5010 . 5625) (+ 12344 1073741825) -> 1073754169) ((5011 . 5625) (+ 12345 1073741821) -> 1073754166) ((5012 . 5625) (+ 12345 1073741822) -> 1073754167) ((5013 . 5625) (+ 12345 1073741823) -> 1073754168) ((5014 . 5625) (+ 12345 1073741824) -> 1073754169) ((5015 . 5625) (+ 12345 1073741825) -> 1073754170) ((5016 . 5625) (+ 12346 1073741821) -> 1073754167) ((5017 . 5625) (+ 12346 1073741822) -> 1073754168) ((5018 . 5625) (+ 12346 1073741823) -> 1073754169) ((5019 . 5625) (+ 12346 1073741824) -> 1073754170) ((5020 . 5625) (+ 12346 1073741825) -> 1073754171) ((5021 . 5625) (+ 12347 1073741821) -> 1073754168) ((5022 . 5625) (+ 12347 1073741822) -> 1073754169) ((5023 . 5625) (+ 12347 1073741823) -> 1073754170) ((5024 . 5625) (+ 12347 1073741824) -> 1073754171) ((5025 . 5625) (+ 12347 1073741825) -> 1073754172) ((5026 . 5625) (+ 12343 -1073741826) -> -1073729483) ((5027 . 5625) (+ 12343 -1073741825) -> -1073729482) ((5028 . 5625) (+ 12343 -1073741824) -> -1073729481) ((5029 . 5625) (+ 12343 -1073741823) -> -1073729480) ((5030 . 5625) (+ 12343 -1073741822) -> -1073729479) ((5031 . 5625) (+ 12344 -1073741826) -> -1073729482) ((5032 . 5625) (+ 12344 -1073741825) -> -1073729481) ((5033 . 5625) (+ 12344 -1073741824) -> -1073729480) ((5034 . 5625) (+ 12344 -1073741823) -> -1073729479) ((5035 . 5625) (+ 12344 -1073741822) -> -1073729478) ((5036 . 5625) (+ 12345 -1073741826) -> -1073729481) ((5037 . 5625) (+ 12345 -1073741825) -> -1073729480) ((5038 . 5625) (+ 12345 -1073741824) -> -1073729479) ((5039 . 5625) (+ 12345 -1073741823) -> -1073729478) ((5040 . 5625) (+ 12345 -1073741822) -> -1073729477) ((5041 . 5625) (+ 12346 -1073741826) -> -1073729480) ((5042 . 5625) (+ 12346 -1073741825) -> -1073729479) ((5043 . 5625) (+ 12346 -1073741824) -> -1073729478) ((5044 . 5625) (+ 12346 -1073741823) -> -1073729477) ((5045 . 5625) (+ 12346 -1073741822) -> -1073729476) ((5046 . 5625) (+ 12347 -1073741826) -> -1073729479) ((5047 . 5625) (+ 12347 -1073741825) -> -1073729478) ((5048 . 5625) (+ 12347 -1073741824) -> -1073729477) ((5049 . 5625) (+ 12347 -1073741823) -> -1073729476) ((5050 . 5625) (+ 12347 -1073741822) -> -1073729475) ((5051 . 5625) (+ 12343 1073741822) -> 1073754165) ((5052 . 5625) (+ 12343 1073741823) -> 1073754166) ((5053 . 5625) (+ 12343 1073741824) -> 1073754167) ((5054 . 5625) (+ 12343 1073741825) -> 1073754168) ((5055 . 5625) (+ 12343 1073741826) -> 1073754169) ((5056 . 5625) (+ 12344 1073741822) -> 1073754166) ((5057 . 5625) (+ 12344 1073741823) -> 1073754167) ((5058 . 5625) (+ 12344 1073741824) -> 1073754168) ((5059 . 5625) (+ 12344 1073741825) -> 1073754169) ((5060 . 5625) (+ 12344 1073741826) -> 1073754170) ((5061 . 5625) (+ 12345 1073741822) -> 1073754167) ((5062 . 5625) (+ 12345 1073741823) -> 1073754168) ((5063 . 5625) (+ 12345 1073741824) -> 1073754169) ((5064 . 5625) (+ 12345 1073741825) -> 1073754170) ((5065 . 5625) (+ 12345 1073741826) -> 1073754171) ((5066 . 5625) (+ 12346 1073741822) -> 1073754168) ((5067 . 5625) (+ 12346 1073741823) -> 1073754169) ((5068 . 5625) (+ 12346 1073741824) -> 1073754170) ((5069 . 5625) (+ 12346 1073741825) -> 1073754171) ((5070 . 5625) (+ 12346 1073741826) -> 1073754172) ((5071 . 5625) (+ 12347 1073741822) -> 1073754169) ((5072 . 5625) (+ 12347 1073741823) -> 1073754170) ((5073 . 5625) (+ 12347 1073741824) -> 1073754171) ((5074 . 5625) (+ 12347 1073741825) -> 1073754172) ((5075 . 5625) (+ 12347 1073741826) -> 1073754173) ((5076 . 5625) (+ 12343 -1073741827) -> -1073729484) ((5077 . 5625) (+ 12343 -1073741826) -> -1073729483) ((5078 . 5625) (+ 12343 -1073741825) -> -1073729482) ((5079 . 5625) (+ 12343 -1073741824) -> -1073729481) ((5080 . 5625) (+ 12343 -1073741823) -> -1073729480) ((5081 . 5625) (+ 12344 -1073741827) -> -1073729483) ((5082 . 5625) (+ 12344 -1073741826) -> -1073729482) ((5083 . 5625) (+ 12344 -1073741825) -> -1073729481) ((5084 . 5625) (+ 12344 -1073741824) -> -1073729480) ((5085 . 5625) (+ 12344 -1073741823) -> -1073729479) ((5086 . 5625) (+ 12345 -1073741827) -> -1073729482) ((5087 . 5625) (+ 12345 -1073741826) -> -1073729481) ((5088 . 5625) (+ 12345 -1073741825) -> -1073729480) ((5089 . 5625) (+ 12345 -1073741824) -> -1073729479) ((5090 . 5625) (+ 12345 -1073741823) -> -1073729478) ((5091 . 5625) (+ 12346 -1073741827) -> -1073729481) ((5092 . 5625) (+ 12346 -1073741826) -> -1073729480) ((5093 . 5625) (+ 12346 -1073741825) -> -1073729479) ((5094 . 5625) (+ 12346 -1073741824) -> -1073729478) ((5095 . 5625) (+ 12346 -1073741823) -> -1073729477) ((5096 . 5625) (+ 12347 -1073741827) -> -1073729480) ((5097 . 5625) (+ 12347 -1073741826) -> -1073729479) ((5098 . 5625) (+ 12347 -1073741825) -> -1073729478) ((5099 . 5625) (+ 12347 -1073741824) -> -1073729477) ((5100 . 5625) (+ 12347 -1073741823) -> -1073729476) ((5101 . 5625) (+ 12343 1103515243) -> 1103527586) ((5102 . 5625) (+ 12343 1103515244) -> 1103527587) ((5103 . 5625) (+ 12343 1103515245) -> 1103527588) ((5104 . 5625) (+ 12343 1103515246) -> 1103527589) ((5105 . 5625) (+ 12343 1103515247) -> 1103527590) ((5106 . 5625) (+ 12344 1103515243) -> 1103527587) ((5107 . 5625) (+ 12344 1103515244) -> 1103527588) ((5108 . 5625) (+ 12344 1103515245) -> 1103527589) ((5109 . 5625) (+ 12344 1103515246) -> 1103527590) ((5110 . 5625) (+ 12344 1103515247) -> 1103527591) ((5111 . 5625) (+ 12345 1103515243) -> 1103527588) ((5112 . 5625) (+ 12345 1103515244) -> 1103527589) ((5113 . 5625) (+ 12345 1103515245) -> 1103527590) ((5114 . 5625) (+ 12345 1103515246) -> 1103527591) ((5115 . 5625) (+ 12345 1103515247) -> 1103527592) ((5116 . 5625) (+ 12346 1103515243) -> 1103527589) ((5117 . 5625) (+ 12346 1103515244) -> 1103527590) ((5118 . 5625) (+ 12346 1103515245) -> 1103527591) ((5119 . 5625) (+ 12346 1103515246) -> 1103527592) ((5120 . 5625) (+ 12346 1103515247) -> 1103527593) ((5121 . 5625) (+ 12347 1103515243) -> 1103527590) ((5122 . 5625) (+ 12347 1103515244) -> 1103527591) ((5123 . 5625) (+ 12347 1103515245) -> 1103527592) ((5124 . 5625) (+ 12347 1103515246) -> 1103527593) ((5125 . 5625) (+ 12347 1103515247) -> 1103527594) ((5126 . 5625) (+ 12343 631629063) -> 631641406) ((5127 . 5625) (+ 12343 631629064) -> 631641407) ((5128 . 5625) (+ 12343 631629065) -> 631641408) ((5129 . 5625) (+ 12343 631629066) -> 631641409) ((5130 . 5625) (+ 12343 631629067) -> 631641410) ((5131 . 5625) (+ 12344 631629063) -> 631641407) ((5132 . 5625) (+ 12344 631629064) -> 631641408) ((5133 . 5625) (+ 12344 631629065) -> 631641409) ((5134 . 5625) (+ 12344 631629066) -> 631641410) ((5135 . 5625) (+ 12344 631629067) -> 631641411) ((5136 . 5625) (+ 12345 631629063) -> 631641408) ((5137 . 5625) (+ 12345 631629064) -> 631641409) ((5138 . 5625) (+ 12345 631629065) -> 631641410) ((5139 . 5625) (+ 12345 631629066) -> 631641411) ((5140 . 5625) (+ 12345 631629067) -> 631641412) ((5141 . 5625) (+ 12346 631629063) -> 631641409) ((5142 . 5625) (+ 12346 631629064) -> 631641410) ((5143 . 5625) (+ 12346 631629065) -> 631641411) ((5144 . 5625) (+ 12346 631629066) -> 631641412) ((5145 . 5625) (+ 12346 631629067) -> 631641413) ((5146 . 5625) (+ 12347 631629063) -> 631641410) ((5147 . 5625) (+ 12347 631629064) -> 631641411) ((5148 . 5625) (+ 12347 631629065) -> 631641412) ((5149 . 5625) (+ 12347 631629066) -> 631641413) ((5150 . 5625) (+ 12347 631629067) -> 631641414) ((5151 . 5625) (+ 12343 9007199254740990) -> 9007199254753333) ((5152 . 5625) (+ 12343 9007199254740991) -> 9007199254753334) ((5153 . 5625) (+ 12343 9007199254740992) -> 9007199254753335) ((5154 . 5625) (+ 12343 9007199254740993) -> 9007199254753336) ((5155 . 5625) (+ 12343 9007199254740994) -> 9007199254753337) ((5156 . 5625) (+ 12344 9007199254740990) -> 9007199254753334) ((5157 . 5625) (+ 12344 9007199254740991) -> 9007199254753335) ((5158 . 5625) (+ 12344 9007199254740992) -> 9007199254753336) ((5159 . 5625) (+ 12344 9007199254740993) -> 9007199254753337) ((5160 . 5625) (+ 12344 9007199254740994) -> 9007199254753338) ((5161 . 5625) (+ 12345 9007199254740990) -> 9007199254753335) ((5162 . 5625) (+ 12345 9007199254740991) -> 9007199254753336) ((5163 . 5625) (+ 12345 9007199254740992) -> 9007199254753337) ((5164 . 5625) (+ 12345 9007199254740993) -> 9007199254753338) ((5165 . 5625) (+ 12345 9007199254740994) -> 9007199254753339) ((5166 . 5625) (+ 12346 9007199254740990) -> 9007199254753336) ((5167 . 5625) (+ 12346 9007199254740991) -> 9007199254753337) ((5168 . 5625) (+ 12346 9007199254740992) -> 9007199254753338) ((5169 . 5625) (+ 12346 9007199254740993) -> 9007199254753339) ((5170 . 5625) (+ 12346 9007199254740994) -> 9007199254753340) ((5171 . 5625) (+ 12347 9007199254740990) -> 9007199254753337) ((5172 . 5625) (+ 12347 9007199254740991) -> 9007199254753338) ((5173 . 5625) (+ 12347 9007199254740992) -> 9007199254753339) ((5174 . 5625) (+ 12347 9007199254740993) -> 9007199254753340) ((5175 . 5625) (+ 12347 9007199254740994) -> 9007199254753341) ((5176 . 5625) (+ 12343 -9007199254740994) -> -9007199254728651) ((5177 . 5625) (+ 12343 -9007199254740993) -> -9007199254728650) ((5178 . 5625) (+ 12343 -9007199254740992) -> -9007199254728649) ((5179 . 5625) (+ 12343 -9007199254740991) -> -9007199254728648) ((5180 . 5625) (+ 12343 -9007199254740990) -> -9007199254728647) ((5181 . 5625) (+ 12344 -9007199254740994) -> -9007199254728650) ((5182 . 5625) (+ 12344 -9007199254740993) -> -9007199254728649) ((5183 . 5625) (+ 12344 -9007199254740992) -> -9007199254728648) ((5184 . 5625) (+ 12344 -9007199254740991) -> -9007199254728647) ((5185 . 5625) (+ 12344 -9007199254740990) -> -9007199254728646) ((5186 . 5625) (+ 12345 -9007199254740994) -> -9007199254728649) ((5187 . 5625) (+ 12345 -9007199254740993) -> -9007199254728648) ((5188 . 5625) (+ 12345 -9007199254740992) -> -9007199254728647) ((5189 . 5625) (+ 12345 -9007199254740991) -> -9007199254728646) ((5190 . 5625) (+ 12345 -9007199254740990) -> -9007199254728645) ((5191 . 5625) (+ 12346 -9007199254740994) -> -9007199254728648) ((5192 . 5625) (+ 12346 -9007199254740993) -> -9007199254728647) ((5193 . 5625) (+ 12346 -9007199254740992) -> -9007199254728646) ((5194 . 5625) (+ 12346 -9007199254740991) -> -9007199254728645) ((5195 . 5625) (+ 12346 -9007199254740990) -> -9007199254728644) ((5196 . 5625) (+ 12347 -9007199254740994) -> -9007199254728647) ((5197 . 5625) (+ 12347 -9007199254740993) -> -9007199254728646) ((5198 . 5625) (+ 12347 -9007199254740992) -> -9007199254728645) ((5199 . 5625) (+ 12347 -9007199254740991) -> -9007199254728644) ((5200 . 5625) (+ 12347 -9007199254740990) -> -9007199254728643) ((5201 . 5625) (+ 12343 12343) -> 24686) ((5202 . 5625) (+ 12343 12344) -> 24687) ((5203 . 5625) (+ 12343 12345) -> 24688) ((5204 . 5625) (+ 12343 12346) -> 24689) ((5205 . 5625) (+ 12343 12347) -> 24690) ((5206 . 5625) (+ 12344 12343) -> 24687) ((5207 . 5625) (+ 12344 12344) -> 24688) ((5208 . 5625) (+ 12344 12345) -> 24689) ((5209 . 5625) (+ 12344 12346) -> 24690) ((5210 . 5625) (+ 12344 12347) -> 24691) ((5211 . 5625) (+ 12345 12343) -> 24688) ((5212 . 5625) (+ 12345 12344) -> 24689) ((5213 . 5625) (+ 12345 12345) -> 24690) ((5214 . 5625) (+ 12345 12346) -> 24691) ((5215 . 5625) (+ 12345 12347) -> 24692) ((5216 . 5625) (+ 12346 12343) -> 24689) ((5217 . 5625) (+ 12346 12344) -> 24690) ((5218 . 5625) (+ 12346 12345) -> 24691) ((5219 . 5625) (+ 12346 12346) -> 24692) ((5220 . 5625) (+ 12346 12347) -> 24693) ((5221 . 5625) (+ 12347 12343) -> 24690) ((5222 . 5625) (+ 12347 12344) -> 24691) ((5223 . 5625) (+ 12347 12345) -> 24692) ((5224 . 5625) (+ 12347 12346) -> 24693) ((5225 . 5625) (+ 12347 12347) -> 24694) ((5226 . 5625) (+ 12343 4294967294) -> 4294979637) ((5227 . 5625) (+ 12343 4294967295) -> 4294979638) ((5228 . 5625) (+ 12343 4294967296) -> 4294979639) ((5229 . 5625) (+ 12343 4294967297) -> 4294979640) ((5230 . 5625) (+ 12343 4294967298) -> 4294979641) ((5231 . 5625) (+ 12344 4294967294) -> 4294979638) ((5232 . 5625) (+ 12344 4294967295) -> 4294979639) ((5233 . 5625) (+ 12344 4294967296) -> 4294979640) ((5234 . 5625) (+ 12344 4294967297) -> 4294979641) ((5235 . 5625) (+ 12344 4294967298) -> 4294979642) ((5236 . 5625) (+ 12345 4294967294) -> 4294979639) ((5237 . 5625) (+ 12345 4294967295) -> 4294979640) ((5238 . 5625) (+ 12345 4294967296) -> 4294979641) ((5239 . 5625) (+ 12345 4294967297) -> 4294979642) ((5240 . 5625) (+ 12345 4294967298) -> 4294979643) ((5241 . 5625) (+ 12346 4294967294) -> 4294979640) ((5242 . 5625) (+ 12346 4294967295) -> 4294979641) ((5243 . 5625) (+ 12346 4294967296) -> 4294979642) ((5244 . 5625) (+ 12346 4294967297) -> 4294979643) ((5245 . 5625) (+ 12346 4294967298) -> 4294979644) ((5246 . 5625) (+ 12347 4294967294) -> 4294979641) ((5247 . 5625) (+ 12347 4294967295) -> 4294979642) ((5248 . 5625) (+ 12347 4294967296) -> 4294979643) ((5249 . 5625) (+ 12347 4294967297) -> 4294979644) ((5250 . 5625) (+ 12347 4294967298) -> 4294979645) ((5251 . 5625) (+ 4294967294 -2) -> 4294967292) ((5252 . 5625) (+ 4294967294 -1) -> 4294967293) ((5253 . 5625) (+ 4294967294 0) -> 4294967294) ((5254 . 5625) (+ 4294967294 1) -> 4294967295) ((5255 . 5625) (+ 4294967294 2) -> 4294967296) ((5256 . 5625) (+ 4294967295 -2) -> 4294967293) ((5257 . 5625) (+ 4294967295 -1) -> 4294967294) ((5258 . 5625) (+ 4294967295 0) -> 4294967295) ((5259 . 5625) (+ 4294967295 1) -> 4294967296) ((5260 . 5625) (+ 4294967295 2) -> 4294967297) ((5261 . 5625) (+ 4294967296 -2) -> 4294967294) ((5262 . 5625) (+ 4294967296 -1) -> 4294967295) ((5263 . 5625) (+ 4294967296 0) -> 4294967296) ((5264 . 5625) (+ 4294967296 1) -> 4294967297) ((5265 . 5625) (+ 4294967296 2) -> 4294967298) ((5266 . 5625) (+ 4294967297 -2) -> 4294967295) ((5267 . 5625) (+ 4294967297 -1) -> 4294967296) ((5268 . 5625) (+ 4294967297 0) -> 4294967297) ((5269 . 5625) (+ 4294967297 1) -> 4294967298) ((5270 . 5625) (+ 4294967297 2) -> 4294967299) ((5271 . 5625) (+ 4294967298 -2) -> 4294967296) ((5272 . 5625) (+ 4294967298 -1) -> 4294967297) ((5273 . 5625) (+ 4294967298 0) -> 4294967298) ((5274 . 5625) (+ 4294967298 1) -> 4294967299) ((5275 . 5625) (+ 4294967298 2) -> 4294967300) ((5276 . 5625) (+ 4294967294 -1) -> 4294967293) ((5277 . 5625) (+ 4294967294 0) -> 4294967294) ((5278 . 5625) (+ 4294967294 1) -> 4294967295) ((5279 . 5625) (+ 4294967294 2) -> 4294967296) ((5280 . 5625) (+ 4294967294 3) -> 4294967297) ((5281 . 5625) (+ 4294967295 -1) -> 4294967294) ((5282 . 5625) (+ 4294967295 0) -> 4294967295) ((5283 . 5625) (+ 4294967295 1) -> 4294967296) ((5284 . 5625) (+ 4294967295 2) -> 4294967297) ((5285 . 5625) (+ 4294967295 3) -> 4294967298) ((5286 . 5625) (+ 4294967296 -1) -> 4294967295) ((5287 . 5625) (+ 4294967296 0) -> 4294967296) ((5288 . 5625) (+ 4294967296 1) -> 4294967297) ((5289 . 5625) (+ 4294967296 2) -> 4294967298) ((5290 . 5625) (+ 4294967296 3) -> 4294967299) ((5291 . 5625) (+ 4294967297 -1) -> 4294967296) ((5292 . 5625) (+ 4294967297 0) -> 4294967297) ((5293 . 5625) (+ 4294967297 1) -> 4294967298) ((5294 . 5625) (+ 4294967297 2) -> 4294967299) ((5295 . 5625) (+ 4294967297 3) -> 4294967300) ((5296 . 5625) (+ 4294967298 -1) -> 4294967297) ((5297 . 5625) (+ 4294967298 0) -> 4294967298) ((5298 . 5625) (+ 4294967298 1) -> 4294967299) ((5299 . 5625) (+ 4294967298 2) -> 4294967300) ((5300 . 5625) (+ 4294967298 3) -> 4294967301) ((5301 . 5625) (+ 4294967294 -3) -> 4294967291) ((5302 . 5625) (+ 4294967294 -2) -> 4294967292) ((5303 . 5625) (+ 4294967294 -1) -> 4294967293) ((5304 . 5625) (+ 4294967294 0) -> 4294967294) ((5305 . 5625) (+ 4294967294 1) -> 4294967295) ((5306 . 5625) (+ 4294967295 -3) -> 4294967292) ((5307 . 5625) (+ 4294967295 -2) -> 4294967293) ((5308 . 5625) (+ 4294967295 -1) -> 4294967294) ((5309 . 5625) (+ 4294967295 0) -> 4294967295) ((5310 . 5625) (+ 4294967295 1) -> 4294967296) ((5311 . 5625) (+ 4294967296 -3) -> 4294967293) ((5312 . 5625) (+ 4294967296 -2) -> 4294967294) ((5313 . 5625) (+ 4294967296 -1) -> 4294967295) ((5314 . 5625) (+ 4294967296 0) -> 4294967296) ((5315 . 5625) (+ 4294967296 1) -> 4294967297) ((5316 . 5625) (+ 4294967297 -3) -> 4294967294) ((5317 . 5625) (+ 4294967297 -2) -> 4294967295) ((5318 . 5625) (+ 4294967297 -1) -> 4294967296) ((5319 . 5625) (+ 4294967297 0) -> 4294967297) ((5320 . 5625) (+ 4294967297 1) -> 4294967298) ((5321 . 5625) (+ 4294967298 -3) -> 4294967295) ((5322 . 5625) (+ 4294967298 -2) -> 4294967296) ((5323 . 5625) (+ 4294967298 -1) -> 4294967297) ((5324 . 5625) (+ 4294967298 0) -> 4294967298) ((5325 . 5625) (+ 4294967298 1) -> 4294967299) ((5326 . 5625) (+ 4294967294 0) -> 4294967294) ((5327 . 5625) (+ 4294967294 1) -> 4294967295) ((5328 . 5625) (+ 4294967294 2) -> 4294967296) ((5329 . 5625) (+ 4294967294 3) -> 4294967297) ((5330 . 5625) (+ 4294967294 4) -> 4294967298) ((5331 . 5625) (+ 4294967295 0) -> 4294967295) ((5332 . 5625) (+ 4294967295 1) -> 4294967296) ((5333 . 5625) (+ 4294967295 2) -> 4294967297) ((5334 . 5625) (+ 4294967295 3) -> 4294967298) ((5335 . 5625) (+ 4294967295 4) -> 4294967299) ((5336 . 5625) (+ 4294967296 0) -> 4294967296) ((5337 . 5625) (+ 4294967296 1) -> 4294967297) ((5338 . 5625) (+ 4294967296 2) -> 4294967298) ((5339 . 5625) (+ 4294967296 3) -> 4294967299) ((5340 . 5625) (+ 4294967296 4) -> 4294967300) ((5341 . 5625) (+ 4294967297 0) -> 4294967297) ((5342 . 5625) (+ 4294967297 1) -> 4294967298) ((5343 . 5625) (+ 4294967297 2) -> 4294967299) ((5344 . 5625) (+ 4294967297 3) -> 4294967300) ((5345 . 5625) (+ 4294967297 4) -> 4294967301) ((5346 . 5625) (+ 4294967298 0) -> 4294967298) ((5347 . 5625) (+ 4294967298 1) -> 4294967299) ((5348 . 5625) (+ 4294967298 2) -> 4294967300) ((5349 . 5625) (+ 4294967298 3) -> 4294967301) ((5350 . 5625) (+ 4294967298 4) -> 4294967302) ((5351 . 5625) (+ 4294967294 -4) -> 4294967290) ((5352 . 5625) (+ 4294967294 -3) -> 4294967291) ((5353 . 5625) (+ 4294967294 -2) -> 4294967292) ((5354 . 5625) (+ 4294967294 -1) -> 4294967293) ((5355 . 5625) (+ 4294967294 0) -> 4294967294) ((5356 . 5625) (+ 4294967295 -4) -> 4294967291) ((5357 . 5625) (+ 4294967295 -3) -> 4294967292) ((5358 . 5625) (+ 4294967295 -2) -> 4294967293) ((5359 . 5625) (+ 4294967295 -1) -> 4294967294) ((5360 . 5625) (+ 4294967295 0) -> 4294967295) ((5361 . 5625) (+ 4294967296 -4) -> 4294967292) ((5362 . 5625) (+ 4294967296 -3) -> 4294967293) ((5363 . 5625) (+ 4294967296 -2) -> 4294967294) ((5364 . 5625) (+ 4294967296 -1) -> 4294967295) ((5365 . 5625) (+ 4294967296 0) -> 4294967296) ((5366 . 5625) (+ 4294967297 -4) -> 4294967293) ((5367 . 5625) (+ 4294967297 -3) -> 4294967294) ((5368 . 5625) (+ 4294967297 -2) -> 4294967295) ((5369 . 5625) (+ 4294967297 -1) -> 4294967296) ((5370 . 5625) (+ 4294967297 0) -> 4294967297) ((5371 . 5625) (+ 4294967298 -4) -> 4294967294) ((5372 . 5625) (+ 4294967298 -3) -> 4294967295) ((5373 . 5625) (+ 4294967298 -2) -> 4294967296) ((5374 . 5625) (+ 4294967298 -1) -> 4294967297) ((5375 . 5625) (+ 4294967298 0) -> 4294967298) ((5376 . 5625) (+ 4294967294 1073741821) -> 5368709115) ((5377 . 5625) (+ 4294967294 1073741822) -> 5368709116) ((5378 . 5625) (+ 4294967294 1073741823) -> 5368709117) ((5379 . 5625) (+ 4294967294 1073741824) -> 5368709118) ((5380 . 5625) (+ 4294967294 1073741825) -> 5368709119) ((5381 . 5625) (+ 4294967295 1073741821) -> 5368709116) ((5382 . 5625) (+ 4294967295 1073741822) -> 5368709117) ((5383 . 5625) (+ 4294967295 1073741823) -> 5368709118) ((5384 . 5625) (+ 4294967295 1073741824) -> 5368709119) ((5385 . 5625) (+ 4294967295 1073741825) -> 5368709120) ((5386 . 5625) (+ 4294967296 1073741821) -> 5368709117) ((5387 . 5625) (+ 4294967296 1073741822) -> 5368709118) ((5388 . 5625) (+ 4294967296 1073741823) -> 5368709119) ((5389 . 5625) (+ 4294967296 1073741824) -> 5368709120) ((5390 . 5625) (+ 4294967296 1073741825) -> 5368709121) ((5391 . 5625) (+ 4294967297 1073741821) -> 5368709118) ((5392 . 5625) (+ 4294967297 1073741822) -> 5368709119) ((5393 . 5625) (+ 4294967297 1073741823) -> 5368709120) ((5394 . 5625) (+ 4294967297 1073741824) -> 5368709121) ((5395 . 5625) (+ 4294967297 1073741825) -> 5368709122) ((5396 . 5625) (+ 4294967298 1073741821) -> 5368709119) ((5397 . 5625) (+ 4294967298 1073741822) -> 5368709120) ((5398 . 5625) (+ 4294967298 1073741823) -> 5368709121) ((5399 . 5625) (+ 4294967298 1073741824) -> 5368709122) ((5400 . 5625) (+ 4294967298 1073741825) -> 5368709123) ((5401 . 5625) (+ 4294967294 -1073741826) -> 3221225468) ((5402 . 5625) (+ 4294967294 -1073741825) -> 3221225469) ((5403 . 5625) (+ 4294967294 -1073741824) -> 3221225470) ((5404 . 5625) (+ 4294967294 -1073741823) -> 3221225471) ((5405 . 5625) (+ 4294967294 -1073741822) -> 3221225472) ((5406 . 5625) (+ 4294967295 -1073741826) -> 3221225469) ((5407 . 5625) (+ 4294967295 -1073741825) -> 3221225470) ((5408 . 5625) (+ 4294967295 -1073741824) -> 3221225471) ((5409 . 5625) (+ 4294967295 -1073741823) -> 3221225472) ((5410 . 5625) (+ 4294967295 -1073741822) -> 3221225473) ((5411 . 5625) (+ 4294967296 -1073741826) -> 3221225470) ((5412 . 5625) (+ 4294967296 -1073741825) -> 3221225471) ((5413 . 5625) (+ 4294967296 -1073741824) -> 3221225472) ((5414 . 5625) (+ 4294967296 -1073741823) -> 3221225473) ((5415 . 5625) (+ 4294967296 -1073741822) -> 3221225474) ((5416 . 5625) (+ 4294967297 -1073741826) -> 3221225471) ((5417 . 5625) (+ 4294967297 -1073741825) -> 3221225472) ((5418 . 5625) (+ 4294967297 -1073741824) -> 3221225473) ((5419 . 5625) (+ 4294967297 -1073741823) -> 3221225474) ((5420 . 5625) (+ 4294967297 -1073741822) -> 3221225475) ((5421 . 5625) (+ 4294967298 -1073741826) -> 3221225472) ((5422 . 5625) (+ 4294967298 -1073741825) -> 3221225473) ((5423 . 5625) (+ 4294967298 -1073741824) -> 3221225474) ((5424 . 5625) (+ 4294967298 -1073741823) -> 3221225475) ((5425 . 5625) (+ 4294967298 -1073741822) -> 3221225476) ((5426 . 5625) (+ 4294967294 1073741822) -> 5368709116) ((5427 . 5625) (+ 4294967294 1073741823) -> 5368709117) ((5428 . 5625) (+ 4294967294 1073741824) -> 5368709118) ((5429 . 5625) (+ 4294967294 1073741825) -> 5368709119) ((5430 . 5625) (+ 4294967294 1073741826) -> 5368709120) ((5431 . 5625) (+ 4294967295 1073741822) -> 5368709117) ((5432 . 5625) (+ 4294967295 1073741823) -> 5368709118) ((5433 . 5625) (+ 4294967295 1073741824) -> 5368709119) ((5434 . 5625) (+ 4294967295 1073741825) -> 5368709120) ((5435 . 5625) (+ 4294967295 1073741826) -> 5368709121) ((5436 . 5625) (+ 4294967296 1073741822) -> 5368709118) ((5437 . 5625) (+ 4294967296 1073741823) -> 5368709119) ((5438 . 5625) (+ 4294967296 1073741824) -> 5368709120) ((5439 . 5625) (+ 4294967296 1073741825) -> 5368709121) ((5440 . 5625) (+ 4294967296 1073741826) -> 5368709122) ((5441 . 5625) (+ 4294967297 1073741822) -> 5368709119) ((5442 . 5625) (+ 4294967297 1073741823) -> 5368709120) ((5443 . 5625) (+ 4294967297 1073741824) -> 5368709121) ((5444 . 5625) (+ 4294967297 1073741825) -> 5368709122) ((5445 . 5625) (+ 4294967297 1073741826) -> 5368709123) ((5446 . 5625) (+ 4294967298 1073741822) -> 5368709120) ((5447 . 5625) (+ 4294967298 1073741823) -> 5368709121) ((5448 . 5625) (+ 4294967298 1073741824) -> 5368709122) ((5449 . 5625) (+ 4294967298 1073741825) -> 5368709123) ((5450 . 5625) (+ 4294967298 1073741826) -> 5368709124) ((5451 . 5625) (+ 4294967294 -1073741827) -> 3221225467) ((5452 . 5625) (+ 4294967294 -1073741826) -> 3221225468) ((5453 . 5625) (+ 4294967294 -1073741825) -> 3221225469) ((5454 . 5625) (+ 4294967294 -1073741824) -> 3221225470) ((5455 . 5625) (+ 4294967294 -1073741823) -> 3221225471) ((5456 . 5625) (+ 4294967295 -1073741827) -> 3221225468) ((5457 . 5625) (+ 4294967295 -1073741826) -> 3221225469) ((5458 . 5625) (+ 4294967295 -1073741825) -> 3221225470) ((5459 . 5625) (+ 4294967295 -1073741824) -> 3221225471) ((5460 . 5625) (+ 4294967295 -1073741823) -> 3221225472) ((5461 . 5625) (+ 4294967296 -1073741827) -> 3221225469) ((5462 . 5625) (+ 4294967296 -1073741826) -> 3221225470) ((5463 . 5625) (+ 4294967296 -1073741825) -> 3221225471) ((5464 . 5625) (+ 4294967296 -1073741824) -> 3221225472) ((5465 . 5625) (+ 4294967296 -1073741823) -> 3221225473) ((5466 . 5625) (+ 4294967297 -1073741827) -> 3221225470) ((5467 . 5625) (+ 4294967297 -1073741826) -> 3221225471) ((5468 . 5625) (+ 4294967297 -1073741825) -> 3221225472) ((5469 . 5625) (+ 4294967297 -1073741824) -> 3221225473) ((5470 . 5625) (+ 4294967297 -1073741823) -> 3221225474) ((5471 . 5625) (+ 4294967298 -1073741827) -> 3221225471) ((5472 . 5625) (+ 4294967298 -1073741826) -> 3221225472) ((5473 . 5625) (+ 4294967298 -1073741825) -> 3221225473) ((5474 . 5625) (+ 4294967298 -1073741824) -> 3221225474) ((5475 . 5625) (+ 4294967298 -1073741823) -> 3221225475) ((5476 . 5625) (+ 4294967294 1103515243) -> 5398482537) ((5477 . 5625) (+ 4294967294 1103515244) -> 5398482538) ((5478 . 5625) (+ 4294967294 1103515245) -> 5398482539) ((5479 . 5625) (+ 4294967294 1103515246) -> 5398482540) ((5480 . 5625) (+ 4294967294 1103515247) -> 5398482541) ((5481 . 5625) (+ 4294967295 1103515243) -> 5398482538) ((5482 . 5625) (+ 4294967295 1103515244) -> 5398482539) ((5483 . 5625) (+ 4294967295 1103515245) -> 5398482540) ((5484 . 5625) (+ 4294967295 1103515246) -> 5398482541) ((5485 . 5625) (+ 4294967295 1103515247) -> 5398482542) ((5486 . 5625) (+ 4294967296 1103515243) -> 5398482539) ((5487 . 5625) (+ 4294967296 1103515244) -> 5398482540) ((5488 . 5625) (+ 4294967296 1103515245) -> 5398482541) ((5489 . 5625) (+ 4294967296 1103515246) -> 5398482542) ((5490 . 5625) (+ 4294967296 1103515247) -> 5398482543) ((5491 . 5625) (+ 4294967297 1103515243) -> 5398482540) ((5492 . 5625) (+ 4294967297 1103515244) -> 5398482541) ((5493 . 5625) (+ 4294967297 1103515245) -> 5398482542) ((5494 . 5625) (+ 4294967297 1103515246) -> 5398482543) ((5495 . 5625) (+ 4294967297 1103515247) -> 5398482544) ((5496 . 5625) (+ 4294967298 1103515243) -> 5398482541) ((5497 . 5625) (+ 4294967298 1103515244) -> 5398482542) ((5498 . 5625) (+ 4294967298 1103515245) -> 5398482543) ((5499 . 5625) (+ 4294967298 1103515246) -> 5398482544) ((5500 . 5625) (+ 4294967298 1103515247) -> 5398482545) ((5501 . 5625) (+ 4294967294 631629063) -> 4926596357) ((5502 . 5625) (+ 4294967294 631629064) -> 4926596358) ((5503 . 5625) (+ 4294967294 631629065) -> 4926596359) ((5504 . 5625) (+ 4294967294 631629066) -> 4926596360) ((5505 . 5625) (+ 4294967294 631629067) -> 4926596361) ((5506 . 5625) (+ 4294967295 631629063) -> 4926596358) ((5507 . 5625) (+ 4294967295 631629064) -> 4926596359) ((5508 . 5625) (+ 4294967295 631629065) -> 4926596360) ((5509 . 5625) (+ 4294967295 631629066) -> 4926596361) ((5510 . 5625) (+ 4294967295 631629067) -> 4926596362) ((5511 . 5625) (+ 4294967296 631629063) -> 4926596359) ((5512 . 5625) (+ 4294967296 631629064) -> 4926596360) ((5513 . 5625) (+ 4294967296 631629065) -> 4926596361) ((5514 . 5625) (+ 4294967296 631629066) -> 4926596362) ((5515 . 5625) (+ 4294967296 631629067) -> 4926596363) ((5516 . 5625) (+ 4294967297 631629063) -> 4926596360) ((5517 . 5625) (+ 4294967297 631629064) -> 4926596361) ((5518 . 5625) (+ 4294967297 631629065) -> 4926596362) ((5519 . 5625) (+ 4294967297 631629066) -> 4926596363) ((5520 . 5625) (+ 4294967297 631629067) -> 4926596364) ((5521 . 5625) (+ 4294967298 631629063) -> 4926596361) ((5522 . 5625) (+ 4294967298 631629064) -> 4926596362) ((5523 . 5625) (+ 4294967298 631629065) -> 4926596363) ((5524 . 5625) (+ 4294967298 631629066) -> 4926596364) ((5525 . 5625) (+ 4294967298 631629067) -> 4926596365) ((5526 . 5625) (+ 4294967294 9007199254740990) -> 9007203549708284) ((5527 . 5625) (+ 4294967294 9007199254740991) -> 9007203549708285) ((5528 . 5625) (+ 4294967294 9007199254740992) -> 9007203549708286) ((5529 . 5625) (+ 4294967294 9007199254740993) -> 9007203549708287) ((5530 . 5625) (+ 4294967294 9007199254740994) -> 9007203549708288) ((5531 . 5625) (+ 4294967295 9007199254740990) -> 9007203549708285) ((5532 . 5625) (+ 4294967295 9007199254740991) -> 9007203549708286) ((5533 . 5625) (+ 4294967295 9007199254740992) -> 9007203549708287) ((5534 . 5625) (+ 4294967295 9007199254740993) -> 9007203549708288) ((5535 . 5625) (+ 4294967295 9007199254740994) -> 9007203549708289) ((5536 . 5625) (+ 4294967296 9007199254740990) -> 9007203549708286) ((5537 . 5625) (+ 4294967296 9007199254740991) -> 9007203549708287) ((5538 . 5625) (+ 4294967296 9007199254740992) -> 9007203549708288) ((5539 . 5625) (+ 4294967296 9007199254740993) -> 9007203549708289) ((5540 . 5625) (+ 4294967296 9007199254740994) -> 9007203549708290) ((5541 . 5625) (+ 4294967297 9007199254740990) -> 9007203549708287) ((5542 . 5625) (+ 4294967297 9007199254740991) -> 9007203549708288) ((5543 . 5625) (+ 4294967297 9007199254740992) -> 9007203549708289) ((5544 . 5625) (+ 4294967297 9007199254740993) -> 9007203549708290) ((5545 . 5625) (+ 4294967297 9007199254740994) -> 9007203549708291) ((5546 . 5625) (+ 4294967298 9007199254740990) -> 9007203549708288) ((5547 . 5625) (+ 4294967298 9007199254740991) -> 9007203549708289) ((5548 . 5625) (+ 4294967298 9007199254740992) -> 9007203549708290) ((5549 . 5625) (+ 4294967298 9007199254740993) -> 9007203549708291) ((5550 . 5625) (+ 4294967298 9007199254740994) -> 9007203549708292) ((5551 . 5625) (+ 4294967294 -9007199254740994) -> -9007194959773700) ((5552 . 5625) (+ 4294967294 -9007199254740993) -> -9007194959773699) ((5553 . 5625) (+ 4294967294 -9007199254740992) -> -9007194959773698) ((5554 . 5625) (+ 4294967294 -9007199254740991) -> -9007194959773697) ((5555 . 5625) (+ 4294967294 -9007199254740990) -> -9007194959773696) ((5556 . 5625) (+ 4294967295 -9007199254740994) -> -9007194959773699) ((5557 . 5625) (+ 4294967295 -9007199254740993) -> -9007194959773698) ((5558 . 5625) (+ 4294967295 -9007199254740992) -> -9007194959773697) ((5559 . 5625) (+ 4294967295 -9007199254740991) -> -9007194959773696) ((5560 . 5625) (+ 4294967295 -9007199254740990) -> -9007194959773695) ((5561 . 5625) (+ 4294967296 -9007199254740994) -> -9007194959773698) ((5562 . 5625) (+ 4294967296 -9007199254740993) -> -9007194959773697) ((5563 . 5625) (+ 4294967296 -9007199254740992) -> -9007194959773696) ((5564 . 5625) (+ 4294967296 -9007199254740991) -> -9007194959773695) ((5565 . 5625) (+ 4294967296 -9007199254740990) -> -9007194959773694) ((5566 . 5625) (+ 4294967297 -9007199254740994) -> -9007194959773697) ((5567 . 5625) (+ 4294967297 -9007199254740993) -> -9007194959773696) ((5568 . 5625) (+ 4294967297 -9007199254740992) -> -9007194959773695) ((5569 . 5625) (+ 4294967297 -9007199254740991) -> -9007194959773694) ((5570 . 5625) (+ 4294967297 -9007199254740990) -> -9007194959773693) ((5571 . 5625) (+ 4294967298 -9007199254740994) -> -9007194959773696) ((5572 . 5625) (+ 4294967298 -9007199254740993) -> -9007194959773695) ((5573 . 5625) (+ 4294967298 -9007199254740992) -> -9007194959773694) ((5574 . 5625) (+ 4294967298 -9007199254740991) -> -9007194959773693) ((5575 . 5625) (+ 4294967298 -9007199254740990) -> -9007194959773692) ((5576 . 5625) (+ 4294967294 12343) -> 4294979637) ((5577 . 5625) (+ 4294967294 12344) -> 4294979638) ((5578 . 5625) (+ 4294967294 12345) -> 4294979639) ((5579 . 5625) (+ 4294967294 12346) -> 4294979640) ((5580 . 5625) (+ 4294967294 12347) -> 4294979641) ((5581 . 5625) (+ 4294967295 12343) -> 4294979638) ((5582 . 5625) (+ 4294967295 12344) -> 4294979639) ((5583 . 5625) (+ 4294967295 12345) -> 4294979640) ((5584 . 5625) (+ 4294967295 12346) -> 4294979641) ((5585 . 5625) (+ 4294967295 12347) -> 4294979642) ((5586 . 5625) (+ 4294967296 12343) -> 4294979639) ((5587 . 5625) (+ 4294967296 12344) -> 4294979640) ((5588 . 5625) (+ 4294967296 12345) -> 4294979641) ((5589 . 5625) (+ 4294967296 12346) -> 4294979642) ((5590 . 5625) (+ 4294967296 12347) -> 4294979643) ((5591 . 5625) (+ 4294967297 12343) -> 4294979640) ((5592 . 5625) (+ 4294967297 12344) -> 4294979641) ((5593 . 5625) (+ 4294967297 12345) -> 4294979642) ((5594 . 5625) (+ 4294967297 12346) -> 4294979643) ((5595 . 5625) (+ 4294967297 12347) -> 4294979644) ((5596 . 5625) (+ 4294967298 12343) -> 4294979641) ((5597 . 5625) (+ 4294967298 12344) -> 4294979642) ((5598 . 5625) (+ 4294967298 12345) -> 4294979643) ((5599 . 5625) (+ 4294967298 12346) -> 4294979644) ((5600 . 5625) (+ 4294967298 12347) -> 4294979645) ((5601 . 5625) (+ 4294967294 4294967294) -> 8589934588) ((5602 . 5625) (+ 4294967294 4294967295) -> 8589934589) ((5603 . 5625) (+ 4294967294 4294967296) -> 8589934590) ((5604 . 5625) (+ 4294967294 4294967297) -> 8589934591) ((5605 . 5625) (+ 4294967294 4294967298) -> 8589934592) ((5606 . 5625) (+ 4294967295 4294967294) -> 8589934589) ((5607 . 5625) (+ 4294967295 4294967295) -> 8589934590) ((5608 . 5625) (+ 4294967295 4294967296) -> 8589934591) ((5609 . 5625) (+ 4294967295 4294967297) -> 8589934592) ((5610 . 5625) (+ 4294967295 4294967298) -> 8589934593) ((5611 . 5625) (+ 4294967296 4294967294) -> 8589934590) ((5612 . 5625) (+ 4294967296 4294967295) -> 8589934591) ((5613 . 5625) (+ 4294967296 4294967296) -> 8589934592) ((5614 . 5625) (+ 4294967296 4294967297) -> 8589934593) ((5615 . 5625) (+ 4294967296 4294967298) -> 8589934594) ((5616 . 5625) (+ 4294967297 4294967294) -> 8589934591) ((5617 . 5625) (+ 4294967297 4294967295) -> 8589934592) ((5618 . 5625) (+ 4294967297 4294967296) -> 8589934593) ((5619 . 5625) (+ 4294967297 4294967297) -> 8589934594) ((5620 . 5625) (+ 4294967297 4294967298) -> 8589934595) ((5621 . 5625) (+ 4294967298 4294967294) -> 8589934592) ((5622 . 5625) (+ 4294967298 4294967295) -> 8589934593) ((5623 . 5625) (+ 4294967298 4294967296) -> 8589934594) ((5624 . 5625) (+ 4294967298 4294967297) -> 8589934595) ((5625 . 5625) (+ 4294967298 4294967298) -> 8589934596) ((1 . 5625) (- -2 -2) -> 0) ((2 . 5625) (- -2 -1) -> -1) ((3 . 5625) (- -2 0) -> -2) ((4 . 5625) (- -2 1) -> -3) ((5 . 5625) (- -2 2) -> -4) ((6 . 5625) (- -1 -2) -> 1) ((7 . 5625) (- -1 -1) -> 0) ((8 . 5625) (- -1 0) -> -1) ((9 . 5625) (- -1 1) -> -2) ((10 . 5625) (- -1 2) -> -3) ((11 . 5625) (- 0 -2) -> 2) ((12 . 5625) (- 0 -1) -> 1) ((13 . 5625) (- 0 0) -> 0) ((14 . 5625) (- 0 1) -> -1) ((15 . 5625) (- 0 2) -> -2) ((16 . 5625) (- 1 -2) -> 3) ((17 . 5625) (- 1 -1) -> 2) ((18 . 5625) (- 1 0) -> 1) ((19 . 5625) (- 1 1) -> 0) ((20 . 5625) (- 1 2) -> -1) ((21 . 5625) (- 2 -2) -> 4) ((22 . 5625) (- 2 -1) -> 3) ((23 . 5625) (- 2 0) -> 2) ((24 . 5625) (- 2 1) -> 1) ((25 . 5625) (- 2 2) -> 0) ((26 . 5625) (- -2 -1) -> -1) ((27 . 5625) (- -2 0) -> -2) ((28 . 5625) (- -2 1) -> -3) ((29 . 5625) (- -2 2) -> -4) ((30 . 5625) (- -2 3) -> -5) ((31 . 5625) (- -1 -1) -> 0) ((32 . 5625) (- -1 0) -> -1) ((33 . 5625) (- -1 1) -> -2) ((34 . 5625) (- -1 2) -> -3) ((35 . 5625) (- -1 3) -> -4) ((36 . 5625) (- 0 -1) -> 1) ((37 . 5625) (- 0 0) -> 0) ((38 . 5625) (- 0 1) -> -1) ((39 . 5625) (- 0 2) -> -2) ((40 . 5625) (- 0 3) -> -3) ((41 . 5625) (- 1 -1) -> 2) ((42 . 5625) (- 1 0) -> 1) ((43 . 5625) (- 1 1) -> 0) ((44 . 5625) (- 1 2) -> -1) ((45 . 5625) (- 1 3) -> -2) ((46 . 5625) (- 2 -1) -> 3) ((47 . 5625) (- 2 0) -> 2) ((48 . 5625) (- 2 1) -> 1) ((49 . 5625) (- 2 2) -> 0) ((50 . 5625) (- 2 3) -> -1) ((51 . 5625) (- -2 -3) -> 1) ((52 . 5625) (- -2 -2) -> 0) ((53 . 5625) (- -2 -1) -> -1) ((54 . 5625) (- -2 0) -> -2) ((55 . 5625) (- -2 1) -> -3) ((56 . 5625) (- -1 -3) -> 2) ((57 . 5625) (- -1 -2) -> 1) ((58 . 5625) (- -1 -1) -> 0) ((59 . 5625) (- -1 0) -> -1) ((60 . 5625) (- -1 1) -> -2) ((61 . 5625) (- 0 -3) -> 3) ((62 . 5625) (- 0 -2) -> 2) ((63 . 5625) (- 0 -1) -> 1) ((64 . 5625) (- 0 0) -> 0) ((65 . 5625) (- 0 1) -> -1) ((66 . 5625) (- 1 -3) -> 4) ((67 . 5625) (- 1 -2) -> 3) ((68 . 5625) (- 1 -1) -> 2) ((69 . 5625) (- 1 0) -> 1) ((70 . 5625) (- 1 1) -> 0) ((71 . 5625) (- 2 -3) -> 5) ((72 . 5625) (- 2 -2) -> 4) ((73 . 5625) (- 2 -1) -> 3) ((74 . 5625) (- 2 0) -> 2) ((75 . 5625) (- 2 1) -> 1) ((76 . 5625) (- -2 0) -> -2) ((77 . 5625) (- -2 1) -> -3) ((78 . 5625) (- -2 2) -> -4) ((79 . 5625) (- -2 3) -> -5) ((80 . 5625) (- -2 4) -> -6) ((81 . 5625) (- -1 0) -> -1) ((82 . 5625) (- -1 1) -> -2) ((83 . 5625) (- -1 2) -> -3) ((84 . 5625) (- -1 3) -> -4) ((85 . 5625) (- -1 4) -> -5) ((86 . 5625) (- 0 0) -> 0) ((87 . 5625) (- 0 1) -> -1) ((88 . 5625) (- 0 2) -> -2) ((89 . 5625) (- 0 3) -> -3) ((90 . 5625) (- 0 4) -> -4) ((91 . 5625) (- 1 0) -> 1) ((92 . 5625) (- 1 1) -> 0) ((93 . 5625) (- 1 2) -> -1) ((94 . 5625) (- 1 3) -> -2) ((95 . 5625) (- 1 4) -> -3) ((96 . 5625) (- 2 0) -> 2) ((97 . 5625) (- 2 1) -> 1) ((98 . 5625) (- 2 2) -> 0) ((99 . 5625) (- 2 3) -> -1) ((100 . 5625) (- 2 4) -> -2) ((101 . 5625) (- -2 -4) -> 2) ((102 . 5625) (- -2 -3) -> 1) ((103 . 5625) (- -2 -2) -> 0) ((104 . 5625) (- -2 -1) -> -1) ((105 . 5625) (- -2 0) -> -2) ((106 . 5625) (- -1 -4) -> 3) ((107 . 5625) (- -1 -3) -> 2) ((108 . 5625) (- -1 -2) -> 1) ((109 . 5625) (- -1 -1) -> 0) ((110 . 5625) (- -1 0) -> -1) ((111 . 5625) (- 0 -4) -> 4) ((112 . 5625) (- 0 -3) -> 3) ((113 . 5625) (- 0 -2) -> 2) ((114 . 5625) (- 0 -1) -> 1) ((115 . 5625) (- 0 0) -> 0) ((116 . 5625) (- 1 -4) -> 5) ((117 . 5625) (- 1 -3) -> 4) ((118 . 5625) (- 1 -2) -> 3) ((119 . 5625) (- 1 -1) -> 2) ((120 . 5625) (- 1 0) -> 1) ((121 . 5625) (- 2 -4) -> 6) ((122 . 5625) (- 2 -3) -> 5) ((123 . 5625) (- 2 -2) -> 4) ((124 . 5625) (- 2 -1) -> 3) ((125 . 5625) (- 2 0) -> 2) ((126 . 5625) (- -2 1073741821) -> -1073741823) ((127 . 5625) (- -2 1073741822) -> -1073741824) ((128 . 5625) (- -2 1073741823) -> -1073741825) ((129 . 5625) (- -2 1073741824) -> -1073741826) ((130 . 5625) (- -2 1073741825) -> -1073741827) ((131 . 5625) (- -1 1073741821) -> -1073741822) ((132 . 5625) (- -1 1073741822) -> -1073741823) ((133 . 5625) (- -1 1073741823) -> -1073741824) ((134 . 5625) (- -1 1073741824) -> -1073741825) ((135 . 5625) (- -1 1073741825) -> -1073741826) ((136 . 5625) (- 0 1073741821) -> -1073741821) ((137 . 5625) (- 0 1073741822) -> -1073741822) ((138 . 5625) (- 0 1073741823) -> -1073741823) ((139 . 5625) (- 0 1073741824) -> -1073741824) ((140 . 5625) (- 0 1073741825) -> -1073741825) ((141 . 5625) (- 1 1073741821) -> -1073741820) ((142 . 5625) (- 1 1073741822) -> -1073741821) ((143 . 5625) (- 1 1073741823) -> -1073741822) ((144 . 5625) (- 1 1073741824) -> -1073741823) ((145 . 5625) (- 1 1073741825) -> -1073741824) ((146 . 5625) (- 2 1073741821) -> -1073741819) ((147 . 5625) (- 2 1073741822) -> -1073741820) ((148 . 5625) (- 2 1073741823) -> -1073741821) ((149 . 5625) (- 2 1073741824) -> -1073741822) ((150 . 5625) (- 2 1073741825) -> -1073741823) ((151 . 5625) (- -2 -1073741826) -> 1073741824) ((152 . 5625) (- -2 -1073741825) -> 1073741823) ((153 . 5625) (- -2 -1073741824) -> 1073741822) ((154 . 5625) (- -2 -1073741823) -> 1073741821) ((155 . 5625) (- -2 -1073741822) -> 1073741820) ((156 . 5625) (- -1 -1073741826) -> 1073741825) ((157 . 5625) (- -1 -1073741825) -> 1073741824) ((158 . 5625) (- -1 -1073741824) -> 1073741823) ((159 . 5625) (- -1 -1073741823) -> 1073741822) ((160 . 5625) (- -1 -1073741822) -> 1073741821) ((161 . 5625) (- 0 -1073741826) -> 1073741826) ((162 . 5625) (- 0 -1073741825) -> 1073741825) ((163 . 5625) (- 0 -1073741824) -> 1073741824) ((164 . 5625) (- 0 -1073741823) -> 1073741823) ((165 . 5625) (- 0 -1073741822) -> 1073741822) ((166 . 5625) (- 1 -1073741826) -> 1073741827) ((167 . 5625) (- 1 -1073741825) -> 1073741826) ((168 . 5625) (- 1 -1073741824) -> 1073741825) ((169 . 5625) (- 1 -1073741823) -> 1073741824) ((170 . 5625) (- 1 -1073741822) -> 1073741823) ((171 . 5625) (- 2 -1073741826) -> 1073741828) ((172 . 5625) (- 2 -1073741825) -> 1073741827) ((173 . 5625) (- 2 -1073741824) -> 1073741826) ((174 . 5625) (- 2 -1073741823) -> 1073741825) ((175 . 5625) (- 2 -1073741822) -> 1073741824) ((176 . 5625) (- -2 1073741822) -> -1073741824) ((177 . 5625) (- -2 1073741823) -> -1073741825) ((178 . 5625) (- -2 1073741824) -> -1073741826) ((179 . 5625) (- -2 1073741825) -> -1073741827) ((180 . 5625) (- -2 1073741826) -> -1073741828) ((181 . 5625) (- -1 1073741822) -> -1073741823) ((182 . 5625) (- -1 1073741823) -> -1073741824) ((183 . 5625) (- -1 1073741824) -> -1073741825) ((184 . 5625) (- -1 1073741825) -> -1073741826) ((185 . 5625) (- -1 1073741826) -> -1073741827) ((186 . 5625) (- 0 1073741822) -> -1073741822) ((187 . 5625) (- 0 1073741823) -> -1073741823) ((188 . 5625) (- 0 1073741824) -> -1073741824) ((189 . 5625) (- 0 1073741825) -> -1073741825) ((190 . 5625) (- 0 1073741826) -> -1073741826) ((191 . 5625) (- 1 1073741822) -> -1073741821) ((192 . 5625) (- 1 1073741823) -> -1073741822) ((193 . 5625) (- 1 1073741824) -> -1073741823) ((194 . 5625) (- 1 1073741825) -> -1073741824) ((195 . 5625) (- 1 1073741826) -> -1073741825) ((196 . 5625) (- 2 1073741822) -> -1073741820) ((197 . 5625) (- 2 1073741823) -> -1073741821) ((198 . 5625) (- 2 1073741824) -> -1073741822) ((199 . 5625) (- 2 1073741825) -> -1073741823) ((200 . 5625) (- 2 1073741826) -> -1073741824) ((201 . 5625) (- -2 -1073741827) -> 1073741825) ((202 . 5625) (- -2 -1073741826) -> 1073741824) ((203 . 5625) (- -2 -1073741825) -> 1073741823) ((204 . 5625) (- -2 -1073741824) -> 1073741822) ((205 . 5625) (- -2 -1073741823) -> 1073741821) ((206 . 5625) (- -1 -1073741827) -> 1073741826) ((207 . 5625) (- -1 -1073741826) -> 1073741825) ((208 . 5625) (- -1 -1073741825) -> 1073741824) ((209 . 5625) (- -1 -1073741824) -> 1073741823) ((210 . 5625) (- -1 -1073741823) -> 1073741822) ((211 . 5625) (- 0 -1073741827) -> 1073741827) ((212 . 5625) (- 0 -1073741826) -> 1073741826) ((213 . 5625) (- 0 -1073741825) -> 1073741825) ((214 . 5625) (- 0 -1073741824) -> 1073741824) ((215 . 5625) (- 0 -1073741823) -> 1073741823) ((216 . 5625) (- 1 -1073741827) -> 1073741828) ((217 . 5625) (- 1 -1073741826) -> 1073741827) ((218 . 5625) (- 1 -1073741825) -> 1073741826) ((219 . 5625) (- 1 -1073741824) -> 1073741825) ((220 . 5625) (- 1 -1073741823) -> 1073741824) ((221 . 5625) (- 2 -1073741827) -> 1073741829) ((222 . 5625) (- 2 -1073741826) -> 1073741828) ((223 . 5625) (- 2 -1073741825) -> 1073741827) ((224 . 5625) (- 2 -1073741824) -> 1073741826) ((225 . 5625) (- 2 -1073741823) -> 1073741825) ((226 . 5625) (- -2 1103515243) -> -1103515245) ((227 . 5625) (- -2 1103515244) -> -1103515246) ((228 . 5625) (- -2 1103515245) -> -1103515247) ((229 . 5625) (- -2 1103515246) -> -1103515248) ((230 . 5625) (- -2 1103515247) -> -1103515249) ((231 . 5625) (- -1 1103515243) -> -1103515244) ((232 . 5625) (- -1 1103515244) -> -1103515245) ((233 . 5625) (- -1 1103515245) -> -1103515246) ((234 . 5625) (- -1 1103515246) -> -1103515247) ((235 . 5625) (- -1 1103515247) -> -1103515248) ((236 . 5625) (- 0 1103515243) -> -1103515243) ((237 . 5625) (- 0 1103515244) -> -1103515244) ((238 . 5625) (- 0 1103515245) -> -1103515245) ((239 . 5625) (- 0 1103515246) -> -1103515246) ((240 . 5625) (- 0 1103515247) -> -1103515247) ((241 . 5625) (- 1 1103515243) -> -1103515242) ((242 . 5625) (- 1 1103515244) -> -1103515243) ((243 . 5625) (- 1 1103515245) -> -1103515244) ((244 . 5625) (- 1 1103515246) -> -1103515245) ((245 . 5625) (- 1 1103515247) -> -1103515246) ((246 . 5625) (- 2 1103515243) -> -1103515241) ((247 . 5625) (- 2 1103515244) -> -1103515242) ((248 . 5625) (- 2 1103515245) -> -1103515243) ((249 . 5625) (- 2 1103515246) -> -1103515244) ((250 . 5625) (- 2 1103515247) -> -1103515245) ((251 . 5625) (- -2 631629063) -> -631629065) ((252 . 5625) (- -2 631629064) -> -631629066) ((253 . 5625) (- -2 631629065) -> -631629067) ((254 . 5625) (- -2 631629066) -> -631629068) ((255 . 5625) (- -2 631629067) -> -631629069) ((256 . 5625) (- -1 631629063) -> -631629064) ((257 . 5625) (- -1 631629064) -> -631629065) ((258 . 5625) (- -1 631629065) -> -631629066) ((259 . 5625) (- -1 631629066) -> -631629067) ((260 . 5625) (- -1 631629067) -> -631629068) ((261 . 5625) (- 0 631629063) -> -631629063) ((262 . 5625) (- 0 631629064) -> -631629064) ((263 . 5625) (- 0 631629065) -> -631629065) ((264 . 5625) (- 0 631629066) -> -631629066) ((265 . 5625) (- 0 631629067) -> -631629067) ((266 . 5625) (- 1 631629063) -> -631629062) ((267 . 5625) (- 1 631629064) -> -631629063) ((268 . 5625) (- 1 631629065) -> -631629064) ((269 . 5625) (- 1 631629066) -> -631629065) ((270 . 5625) (- 1 631629067) -> -631629066) ((271 . 5625) (- 2 631629063) -> -631629061) ((272 . 5625) (- 2 631629064) -> -631629062) ((273 . 5625) (- 2 631629065) -> -631629063) ((274 . 5625) (- 2 631629066) -> -631629064) ((275 . 5625) (- 2 631629067) -> -631629065) ((276 . 5625) (- -2 9007199254740990) -> -9007199254740992) ((277 . 5625) (- -2 9007199254740991) -> -9007199254740993) ((278 . 5625) (- -2 9007199254740992) -> -9007199254740994) ((279 . 5625) (- -2 9007199254740993) -> -9007199254740995) ((280 . 5625) (- -2 9007199254740994) -> -9007199254740996) ((281 . 5625) (- -1 9007199254740990) -> -9007199254740991) ((282 . 5625) (- -1 9007199254740991) -> -9007199254740992) ((283 . 5625) (- -1 9007199254740992) -> -9007199254740993) ((284 . 5625) (- -1 9007199254740993) -> -9007199254740994) ((285 . 5625) (- -1 9007199254740994) -> -9007199254740995) ((286 . 5625) (- 0 9007199254740990) -> -9007199254740990) ((287 . 5625) (- 0 9007199254740991) -> -9007199254740991) ((288 . 5625) (- 0 9007199254740992) -> -9007199254740992) ((289 . 5625) (- 0 9007199254740993) -> -9007199254740993) ((290 . 5625) (- 0 9007199254740994) -> -9007199254740994) ((291 . 5625) (- 1 9007199254740990) -> -9007199254740989) ((292 . 5625) (- 1 9007199254740991) -> -9007199254740990) ((293 . 5625) (- 1 9007199254740992) -> -9007199254740991) ((294 . 5625) (- 1 9007199254740993) -> -9007199254740992) ((295 . 5625) (- 1 9007199254740994) -> -9007199254740993) ((296 . 5625) (- 2 9007199254740990) -> -9007199254740988) ((297 . 5625) (- 2 9007199254740991) -> -9007199254740989) ((298 . 5625) (- 2 9007199254740992) -> -9007199254740990) ((299 . 5625) (- 2 9007199254740993) -> -9007199254740991) ((300 . 5625) (- 2 9007199254740994) -> -9007199254740992) ((301 . 5625) (- -2 -9007199254740994) -> 9007199254740992) ((302 . 5625) (- -2 -9007199254740993) -> 9007199254740991) ((303 . 5625) (- -2 -9007199254740992) -> 9007199254740990) ((304 . 5625) (- -2 -9007199254740991) -> 9007199254740989) ((305 . 5625) (- -2 -9007199254740990) -> 9007199254740988) ((306 . 5625) (- -1 -9007199254740994) -> 9007199254740993) ((307 . 5625) (- -1 -9007199254740993) -> 9007199254740992) ((308 . 5625) (- -1 -9007199254740992) -> 9007199254740991) ((309 . 5625) (- -1 -9007199254740991) -> 9007199254740990) ((310 . 5625) (- -1 -9007199254740990) -> 9007199254740989) ((311 . 5625) (- 0 -9007199254740994) -> 9007199254740994) ((312 . 5625) (- 0 -9007199254740993) -> 9007199254740993) ((313 . 5625) (- 0 -9007199254740992) -> 9007199254740992) ((314 . 5625) (- 0 -9007199254740991) -> 9007199254740991) ((315 . 5625) (- 0 -9007199254740990) -> 9007199254740990) ((316 . 5625) (- 1 -9007199254740994) -> 9007199254740995) ((317 . 5625) (- 1 -9007199254740993) -> 9007199254740994) ((318 . 5625) (- 1 -9007199254740992) -> 9007199254740993) ((319 . 5625) (- 1 -9007199254740991) -> 9007199254740992) ((320 . 5625) (- 1 -9007199254740990) -> 9007199254740991) ((321 . 5625) (- 2 -9007199254740994) -> 9007199254740996) ((322 . 5625) (- 2 -9007199254740993) -> 9007199254740995) ((323 . 5625) (- 2 -9007199254740992) -> 9007199254740994) ((324 . 5625) (- 2 -9007199254740991) -> 9007199254740993) ((325 . 5625) (- 2 -9007199254740990) -> 9007199254740992) ((326 . 5625) (- -2 12343) -> -12345) ((327 . 5625) (- -2 12344) -> -12346) ((328 . 5625) (- -2 12345) -> -12347) ((329 . 5625) (- -2 12346) -> -12348) ((330 . 5625) (- -2 12347) -> -12349) ((331 . 5625) (- -1 12343) -> -12344) ((332 . 5625) (- -1 12344) -> -12345) ((333 . 5625) (- -1 12345) -> -12346) ((334 . 5625) (- -1 12346) -> -12347) ((335 . 5625) (- -1 12347) -> -12348) ((336 . 5625) (- 0 12343) -> -12343) ((337 . 5625) (- 0 12344) -> -12344) ((338 . 5625) (- 0 12345) -> -12345) ((339 . 5625) (- 0 12346) -> -12346) ((340 . 5625) (- 0 12347) -> -12347) ((341 . 5625) (- 1 12343) -> -12342) ((342 . 5625) (- 1 12344) -> -12343) ((343 . 5625) (- 1 12345) -> -12344) ((344 . 5625) (- 1 12346) -> -12345) ((345 . 5625) (- 1 12347) -> -12346) ((346 . 5625) (- 2 12343) -> -12341) ((347 . 5625) (- 2 12344) -> -12342) ((348 . 5625) (- 2 12345) -> -12343) ((349 . 5625) (- 2 12346) -> -12344) ((350 . 5625) (- 2 12347) -> -12345) ((351 . 5625) (- -2 4294967294) -> -4294967296) ((352 . 5625) (- -2 4294967295) -> -4294967297) ((353 . 5625) (- -2 4294967296) -> -4294967298) ((354 . 5625) (- -2 4294967297) -> -4294967299) ((355 . 5625) (- -2 4294967298) -> -4294967300) ((356 . 5625) (- -1 4294967294) -> -4294967295) ((357 . 5625) (- -1 4294967295) -> -4294967296) ((358 . 5625) (- -1 4294967296) -> -4294967297) ((359 . 5625) (- -1 4294967297) -> -4294967298) ((360 . 5625) (- -1 4294967298) -> -4294967299) ((361 . 5625) (- 0 4294967294) -> -4294967294) ((362 . 5625) (- 0 4294967295) -> -4294967295) ((363 . 5625) (- 0 4294967296) -> -4294967296) ((364 . 5625) (- 0 4294967297) -> -4294967297) ((365 . 5625) (- 0 4294967298) -> -4294967298) ((366 . 5625) (- 1 4294967294) -> -4294967293) ((367 . 5625) (- 1 4294967295) -> -4294967294) ((368 . 5625) (- 1 4294967296) -> -4294967295) ((369 . 5625) (- 1 4294967297) -> -4294967296) ((370 . 5625) (- 1 4294967298) -> -4294967297) ((371 . 5625) (- 2 4294967294) -> -4294967292) ((372 . 5625) (- 2 4294967295) -> -4294967293) ((373 . 5625) (- 2 4294967296) -> -4294967294) ((374 . 5625) (- 2 4294967297) -> -4294967295) ((375 . 5625) (- 2 4294967298) -> -4294967296) ((376 . 5625) (- -1 -2) -> 1) ((377 . 5625) (- -1 -1) -> 0) ((378 . 5625) (- -1 0) -> -1) ((379 . 5625) (- -1 1) -> -2) ((380 . 5625) (- -1 2) -> -3) ((381 . 5625) (- 0 -2) -> 2) ((382 . 5625) (- 0 -1) -> 1) ((383 . 5625) (- 0 0) -> 0) ((384 . 5625) (- 0 1) -> -1) ((385 . 5625) (- 0 2) -> -2) ((386 . 5625) (- 1 -2) -> 3) ((387 . 5625) (- 1 -1) -> 2) ((388 . 5625) (- 1 0) -> 1) ((389 . 5625) (- 1 1) -> 0) ((390 . 5625) (- 1 2) -> -1) ((391 . 5625) (- 2 -2) -> 4) ((392 . 5625) (- 2 -1) -> 3) ((393 . 5625) (- 2 0) -> 2) ((394 . 5625) (- 2 1) -> 1) ((395 . 5625) (- 2 2) -> 0) ((396 . 5625) (- 3 -2) -> 5) ((397 . 5625) (- 3 -1) -> 4) ((398 . 5625) (- 3 0) -> 3) ((399 . 5625) (- 3 1) -> 2) ((400 . 5625) (- 3 2) -> 1) ((401 . 5625) (- -1 -1) -> 0) ((402 . 5625) (- -1 0) -> -1) ((403 . 5625) (- -1 1) -> -2) ((404 . 5625) (- -1 2) -> -3) ((405 . 5625) (- -1 3) -> -4) ((406 . 5625) (- 0 -1) -> 1) ((407 . 5625) (- 0 0) -> 0) ((408 . 5625) (- 0 1) -> -1) ((409 . 5625) (- 0 2) -> -2) ((410 . 5625) (- 0 3) -> -3) ((411 . 5625) (- 1 -1) -> 2) ((412 . 5625) (- 1 0) -> 1) ((413 . 5625) (- 1 1) -> 0) ((414 . 5625) (- 1 2) -> -1) ((415 . 5625) (- 1 3) -> -2) ((416 . 5625) (- 2 -1) -> 3) ((417 . 5625) (- 2 0) -> 2) ((418 . 5625) (- 2 1) -> 1) ((419 . 5625) (- 2 2) -> 0) ((420 . 5625) (- 2 3) -> -1) ((421 . 5625) (- 3 -1) -> 4) ((422 . 5625) (- 3 0) -> 3) ((423 . 5625) (- 3 1) -> 2) ((424 . 5625) (- 3 2) -> 1) ((425 . 5625) (- 3 3) -> 0) ((426 . 5625) (- -1 -3) -> 2) ((427 . 5625) (- -1 -2) -> 1) ((428 . 5625) (- -1 -1) -> 0) ((429 . 5625) (- -1 0) -> -1) ((430 . 5625) (- -1 1) -> -2) ((431 . 5625) (- 0 -3) -> 3) ((432 . 5625) (- 0 -2) -> 2) ((433 . 5625) (- 0 -1) -> 1) ((434 . 5625) (- 0 0) -> 0) ((435 . 5625) (- 0 1) -> -1) ((436 . 5625) (- 1 -3) -> 4) ((437 . 5625) (- 1 -2) -> 3) ((438 . 5625) (- 1 -1) -> 2) ((439 . 5625) (- 1 0) -> 1) ((440 . 5625) (- 1 1) -> 0) ((441 . 5625) (- 2 -3) -> 5) ((442 . 5625) (- 2 -2) -> 4) ((443 . 5625) (- 2 -1) -> 3) ((444 . 5625) (- 2 0) -> 2) ((445 . 5625) (- 2 1) -> 1) ((446 . 5625) (- 3 -3) -> 6) ((447 . 5625) (- 3 -2) -> 5) ((448 . 5625) (- 3 -1) -> 4) ((449 . 5625) (- 3 0) -> 3) ((450 . 5625) (- 3 1) -> 2) ((451 . 5625) (- -1 0) -> -1) ((452 . 5625) (- -1 1) -> -2) ((453 . 5625) (- -1 2) -> -3) ((454 . 5625) (- -1 3) -> -4) ((455 . 5625) (- -1 4) -> -5) ((456 . 5625) (- 0 0) -> 0) ((457 . 5625) (- 0 1) -> -1) ((458 . 5625) (- 0 2) -> -2) ((459 . 5625) (- 0 3) -> -3) ((460 . 5625) (- 0 4) -> -4) ((461 . 5625) (- 1 0) -> 1) ((462 . 5625) (- 1 1) -> 0) ((463 . 5625) (- 1 2) -> -1) ((464 . 5625) (- 1 3) -> -2) ((465 . 5625) (- 1 4) -> -3) ((466 . 5625) (- 2 0) -> 2) ((467 . 5625) (- 2 1) -> 1) ((468 . 5625) (- 2 2) -> 0) ((469 . 5625) (- 2 3) -> -1) ((470 . 5625) (- 2 4) -> -2) ((471 . 5625) (- 3 0) -> 3) ((472 . 5625) (- 3 1) -> 2) ((473 . 5625) (- 3 2) -> 1) ((474 . 5625) (- 3 3) -> 0) ((475 . 5625) (- 3 4) -> -1) ((476 . 5625) (- -1 -4) -> 3) ((477 . 5625) (- -1 -3) -> 2) ((478 . 5625) (- -1 -2) -> 1) ((479 . 5625) (- -1 -1) -> 0) ((480 . 5625) (- -1 0) -> -1) ((481 . 5625) (- 0 -4) -> 4) ((482 . 5625) (- 0 -3) -> 3) ((483 . 5625) (- 0 -2) -> 2) ((484 . 5625) (- 0 -1) -> 1) ((485 . 5625) (- 0 0) -> 0) ((486 . 5625) (- 1 -4) -> 5) ((487 . 5625) (- 1 -3) -> 4) ((488 . 5625) (- 1 -2) -> 3) ((489 . 5625) (- 1 -1) -> 2) ((490 . 5625) (- 1 0) -> 1) ((491 . 5625) (- 2 -4) -> 6) ((492 . 5625) (- 2 -3) -> 5) ((493 . 5625) (- 2 -2) -> 4) ((494 . 5625) (- 2 -1) -> 3) ((495 . 5625) (- 2 0) -> 2) ((496 . 5625) (- 3 -4) -> 7) ((497 . 5625) (- 3 -3) -> 6) ((498 . 5625) (- 3 -2) -> 5) ((499 . 5625) (- 3 -1) -> 4) ((500 . 5625) (- 3 0) -> 3) ((501 . 5625) (- -1 1073741821) -> -1073741822) ((502 . 5625) (- -1 1073741822) -> -1073741823) ((503 . 5625) (- -1 1073741823) -> -1073741824) ((504 . 5625) (- -1 1073741824) -> -1073741825) ((505 . 5625) (- -1 1073741825) -> -1073741826) ((506 . 5625) (- 0 1073741821) -> -1073741821) ((507 . 5625) (- 0 1073741822) -> -1073741822) ((508 . 5625) (- 0 1073741823) -> -1073741823) ((509 . 5625) (- 0 1073741824) -> -1073741824) ((510 . 5625) (- 0 1073741825) -> -1073741825) ((511 . 5625) (- 1 1073741821) -> -1073741820) ((512 . 5625) (- 1 1073741822) -> -1073741821) ((513 . 5625) (- 1 1073741823) -> -1073741822) ((514 . 5625) (- 1 1073741824) -> -1073741823) ((515 . 5625) (- 1 1073741825) -> -1073741824) ((516 . 5625) (- 2 1073741821) -> -1073741819) ((517 . 5625) (- 2 1073741822) -> -1073741820) ((518 . 5625) (- 2 1073741823) -> -1073741821) ((519 . 5625) (- 2 1073741824) -> -1073741822) ((520 . 5625) (- 2 1073741825) -> -1073741823) ((521 . 5625) (- 3 1073741821) -> -1073741818) ((522 . 5625) (- 3 1073741822) -> -1073741819) ((523 . 5625) (- 3 1073741823) -> -1073741820) ((524 . 5625) (- 3 1073741824) -> -1073741821) ((525 . 5625) (- 3 1073741825) -> -1073741822) ((526 . 5625) (- -1 -1073741826) -> 1073741825) ((527 . 5625) (- -1 -1073741825) -> 1073741824) ((528 . 5625) (- -1 -1073741824) -> 1073741823) ((529 . 5625) (- -1 -1073741823) -> 1073741822) ((530 . 5625) (- -1 -1073741822) -> 1073741821) ((531 . 5625) (- 0 -1073741826) -> 1073741826) ((532 . 5625) (- 0 -1073741825) -> 1073741825) ((533 . 5625) (- 0 -1073741824) -> 1073741824) ((534 . 5625) (- 0 -1073741823) -> 1073741823) ((535 . 5625) (- 0 -1073741822) -> 1073741822) ((536 . 5625) (- 1 -1073741826) -> 1073741827) ((537 . 5625) (- 1 -1073741825) -> 1073741826) ((538 . 5625) (- 1 -1073741824) -> 1073741825) ((539 . 5625) (- 1 -1073741823) -> 1073741824) ((540 . 5625) (- 1 -1073741822) -> 1073741823) ((541 . 5625) (- 2 -1073741826) -> 1073741828) ((542 . 5625) (- 2 -1073741825) -> 1073741827) ((543 . 5625) (- 2 -1073741824) -> 1073741826) ((544 . 5625) (- 2 -1073741823) -> 1073741825) ((545 . 5625) (- 2 -1073741822) -> 1073741824) ((546 . 5625) (- 3 -1073741826) -> 1073741829) ((547 . 5625) (- 3 -1073741825) -> 1073741828) ((548 . 5625) (- 3 -1073741824) -> 1073741827) ((549 . 5625) (- 3 -1073741823) -> 1073741826) ((550 . 5625) (- 3 -1073741822) -> 1073741825) ((551 . 5625) (- -1 1073741822) -> -1073741823) ((552 . 5625) (- -1 1073741823) -> -1073741824) ((553 . 5625) (- -1 1073741824) -> -1073741825) ((554 . 5625) (- -1 1073741825) -> -1073741826) ((555 . 5625) (- -1 1073741826) -> -1073741827) ((556 . 5625) (- 0 1073741822) -> -1073741822) ((557 . 5625) (- 0 1073741823) -> -1073741823) ((558 . 5625) (- 0 1073741824) -> -1073741824) ((559 . 5625) (- 0 1073741825) -> -1073741825) ((560 . 5625) (- 0 1073741826) -> -1073741826) ((561 . 5625) (- 1 1073741822) -> -1073741821) ((562 . 5625) (- 1 1073741823) -> -1073741822) ((563 . 5625) (- 1 1073741824) -> -1073741823) ((564 . 5625) (- 1 1073741825) -> -1073741824) ((565 . 5625) (- 1 1073741826) -> -1073741825) ((566 . 5625) (- 2 1073741822) -> -1073741820) ((567 . 5625) (- 2 1073741823) -> -1073741821) ((568 . 5625) (- 2 1073741824) -> -1073741822) ((569 . 5625) (- 2 1073741825) -> -1073741823) ((570 . 5625) (- 2 1073741826) -> -1073741824) ((571 . 5625) (- 3 1073741822) -> -1073741819) ((572 . 5625) (- 3 1073741823) -> -1073741820) ((573 . 5625) (- 3 1073741824) -> -1073741821) ((574 . 5625) (- 3 1073741825) -> -1073741822) ((575 . 5625) (- 3 1073741826) -> -1073741823) ((576 . 5625) (- -1 -1073741827) -> 1073741826) ((577 . 5625) (- -1 -1073741826) -> 1073741825) ((578 . 5625) (- -1 -1073741825) -> 1073741824) ((579 . 5625) (- -1 -1073741824) -> 1073741823) ((580 . 5625) (- -1 -1073741823) -> 1073741822) ((581 . 5625) (- 0 -1073741827) -> 1073741827) ((582 . 5625) (- 0 -1073741826) -> 1073741826) ((583 . 5625) (- 0 -1073741825) -> 1073741825) ((584 . 5625) (- 0 -1073741824) -> 1073741824) ((585 . 5625) (- 0 -1073741823) -> 1073741823) ((586 . 5625) (- 1 -1073741827) -> 1073741828) ((587 . 5625) (- 1 -1073741826) -> 1073741827) ((588 . 5625) (- 1 -1073741825) -> 1073741826) ((589 . 5625) (- 1 -1073741824) -> 1073741825) ((590 . 5625) (- 1 -1073741823) -> 1073741824) ((591 . 5625) (- 2 -1073741827) -> 1073741829) ((592 . 5625) (- 2 -1073741826) -> 1073741828) ((593 . 5625) (- 2 -1073741825) -> 1073741827) ((594 . 5625) (- 2 -1073741824) -> 1073741826) ((595 . 5625) (- 2 -1073741823) -> 1073741825) ((596 . 5625) (- 3 -1073741827) -> 1073741830) ((597 . 5625) (- 3 -1073741826) -> 1073741829) ((598 . 5625) (- 3 -1073741825) -> 1073741828) ((599 . 5625) (- 3 -1073741824) -> 1073741827) ((600 . 5625) (- 3 -1073741823) -> 1073741826) ((601 . 5625) (- -1 1103515243) -> -1103515244) ((602 . 5625) (- -1 1103515244) -> -1103515245) ((603 . 5625) (- -1 1103515245) -> -1103515246) ((604 . 5625) (- -1 1103515246) -> -1103515247) ((605 . 5625) (- -1 1103515247) -> -1103515248) ((606 . 5625) (- 0 1103515243) -> -1103515243) ((607 . 5625) (- 0 1103515244) -> -1103515244) ((608 . 5625) (- 0 1103515245) -> -1103515245) ((609 . 5625) (- 0 1103515246) -> -1103515246) ((610 . 5625) (- 0 1103515247) -> -1103515247) ((611 . 5625) (- 1 1103515243) -> -1103515242) ((612 . 5625) (- 1 1103515244) -> -1103515243) ((613 . 5625) (- 1 1103515245) -> -1103515244) ((614 . 5625) (- 1 1103515246) -> -1103515245) ((615 . 5625) (- 1 1103515247) -> -1103515246) ((616 . 5625) (- 2 1103515243) -> -1103515241) ((617 . 5625) (- 2 1103515244) -> -1103515242) ((618 . 5625) (- 2 1103515245) -> -1103515243) ((619 . 5625) (- 2 1103515246) -> -1103515244) ((620 . 5625) (- 2 1103515247) -> -1103515245) ((621 . 5625) (- 3 1103515243) -> -1103515240) ((622 . 5625) (- 3 1103515244) -> -1103515241) ((623 . 5625) (- 3 1103515245) -> -1103515242) ((624 . 5625) (- 3 1103515246) -> -1103515243) ((625 . 5625) (- 3 1103515247) -> -1103515244) ((626 . 5625) (- -1 631629063) -> -631629064) ((627 . 5625) (- -1 631629064) -> -631629065) ((628 . 5625) (- -1 631629065) -> -631629066) ((629 . 5625) (- -1 631629066) -> -631629067) ((630 . 5625) (- -1 631629067) -> -631629068) ((631 . 5625) (- 0 631629063) -> -631629063) ((632 . 5625) (- 0 631629064) -> -631629064) ((633 . 5625) (- 0 631629065) -> -631629065) ((634 . 5625) (- 0 631629066) -> -631629066) ((635 . 5625) (- 0 631629067) -> -631629067) ((636 . 5625) (- 1 631629063) -> -631629062) ((637 . 5625) (- 1 631629064) -> -631629063) ((638 . 5625) (- 1 631629065) -> -631629064) ((639 . 5625) (- 1 631629066) -> -631629065) ((640 . 5625) (- 1 631629067) -> -631629066) ((641 . 5625) (- 2 631629063) -> -631629061) ((642 . 5625) (- 2 631629064) -> -631629062) ((643 . 5625) (- 2 631629065) -> -631629063) ((644 . 5625) (- 2 631629066) -> -631629064) ((645 . 5625) (- 2 631629067) -> -631629065) ((646 . 5625) (- 3 631629063) -> -631629060) ((647 . 5625) (- 3 631629064) -> -631629061) ((648 . 5625) (- 3 631629065) -> -631629062) ((649 . 5625) (- 3 631629066) -> -631629063) ((650 . 5625) (- 3 631629067) -> -631629064) ((651 . 5625) (- -1 9007199254740990) -> -9007199254740991) ((652 . 5625) (- -1 9007199254740991) -> -9007199254740992) ((653 . 5625) (- -1 9007199254740992) -> -9007199254740993) ((654 . 5625) (- -1 9007199254740993) -> -9007199254740994) ((655 . 5625) (- -1 9007199254740994) -> -9007199254740995) ((656 . 5625) (- 0 9007199254740990) -> -9007199254740990) ((657 . 5625) (- 0 9007199254740991) -> -9007199254740991) ((658 . 5625) (- 0 9007199254740992) -> -9007199254740992) ((659 . 5625) (- 0 9007199254740993) -> -9007199254740993) ((660 . 5625) (- 0 9007199254740994) -> -9007199254740994) ((661 . 5625) (- 1 9007199254740990) -> -9007199254740989) ((662 . 5625) (- 1 9007199254740991) -> -9007199254740990) ((663 . 5625) (- 1 9007199254740992) -> -9007199254740991) ((664 . 5625) (- 1 9007199254740993) -> -9007199254740992) ((665 . 5625) (- 1 9007199254740994) -> -9007199254740993) ((666 . 5625) (- 2 9007199254740990) -> -9007199254740988) ((667 . 5625) (- 2 9007199254740991) -> -9007199254740989) ((668 . 5625) (- 2 9007199254740992) -> -9007199254740990) ((669 . 5625) (- 2 9007199254740993) -> -9007199254740991) ((670 . 5625) (- 2 9007199254740994) -> -9007199254740992) ((671 . 5625) (- 3 9007199254740990) -> -9007199254740987) ((672 . 5625) (- 3 9007199254740991) -> -9007199254740988) ((673 . 5625) (- 3 9007199254740992) -> -9007199254740989) ((674 . 5625) (- 3 9007199254740993) -> -9007199254740990) ((675 . 5625) (- 3 9007199254740994) -> -9007199254740991) ((676 . 5625) (- -1 -9007199254740994) -> 9007199254740993) ((677 . 5625) (- -1 -9007199254740993) -> 9007199254740992) ((678 . 5625) (- -1 -9007199254740992) -> 9007199254740991) ((679 . 5625) (- -1 -9007199254740991) -> 9007199254740990) ((680 . 5625) (- -1 -9007199254740990) -> 9007199254740989) ((681 . 5625) (- 0 -9007199254740994) -> 9007199254740994) ((682 . 5625) (- 0 -9007199254740993) -> 9007199254740993) ((683 . 5625) (- 0 -9007199254740992) -> 9007199254740992) ((684 . 5625) (- 0 -9007199254740991) -> 9007199254740991) ((685 . 5625) (- 0 -9007199254740990) -> 9007199254740990) ((686 . 5625) (- 1 -9007199254740994) -> 9007199254740995) ((687 . 5625) (- 1 -9007199254740993) -> 9007199254740994) ((688 . 5625) (- 1 -9007199254740992) -> 9007199254740993) ((689 . 5625) (- 1 -9007199254740991) -> 9007199254740992) ((690 . 5625) (- 1 -9007199254740990) -> 9007199254740991) ((691 . 5625) (- 2 -9007199254740994) -> 9007199254740996) ((692 . 5625) (- 2 -9007199254740993) -> 9007199254740995) ((693 . 5625) (- 2 -9007199254740992) -> 9007199254740994) ((694 . 5625) (- 2 -9007199254740991) -> 9007199254740993) ((695 . 5625) (- 2 -9007199254740990) -> 9007199254740992) ((696 . 5625) (- 3 -9007199254740994) -> 9007199254740997) ((697 . 5625) (- 3 -9007199254740993) -> 9007199254740996) ((698 . 5625) (- 3 -9007199254740992) -> 9007199254740995) ((699 . 5625) (- 3 -9007199254740991) -> 9007199254740994) ((700 . 5625) (- 3 -9007199254740990) -> 9007199254740993) ((701 . 5625) (- -1 12343) -> -12344) ((702 . 5625) (- -1 12344) -> -12345) ((703 . 5625) (- -1 12345) -> -12346) ((704 . 5625) (- -1 12346) -> -12347) ((705 . 5625) (- -1 12347) -> -12348) ((706 . 5625) (- 0 12343) -> -12343) ((707 . 5625) (- 0 12344) -> -12344) ((708 . 5625) (- 0 12345) -> -12345) ((709 . 5625) (- 0 12346) -> -12346) ((710 . 5625) (- 0 12347) -> -12347) ((711 . 5625) (- 1 12343) -> -12342) ((712 . 5625) (- 1 12344) -> -12343) ((713 . 5625) (- 1 12345) -> -12344) ((714 . 5625) (- 1 12346) -> -12345) ((715 . 5625) (- 1 12347) -> -12346) ((716 . 5625) (- 2 12343) -> -12341) ((717 . 5625) (- 2 12344) -> -12342) ((718 . 5625) (- 2 12345) -> -12343) ((719 . 5625) (- 2 12346) -> -12344) ((720 . 5625) (- 2 12347) -> -12345) ((721 . 5625) (- 3 12343) -> -12340) ((722 . 5625) (- 3 12344) -> -12341) ((723 . 5625) (- 3 12345) -> -12342) ((724 . 5625) (- 3 12346) -> -12343) ((725 . 5625) (- 3 12347) -> -12344) ((726 . 5625) (- -1 4294967294) -> -4294967295) ((727 . 5625) (- -1 4294967295) -> -4294967296) ((728 . 5625) (- -1 4294967296) -> -4294967297) ((729 . 5625) (- -1 4294967297) -> -4294967298) ((730 . 5625) (- -1 4294967298) -> -4294967299) ((731 . 5625) (- 0 4294967294) -> -4294967294) ((732 . 5625) (- 0 4294967295) -> -4294967295) ((733 . 5625) (- 0 4294967296) -> -4294967296) ((734 . 5625) (- 0 4294967297) -> -4294967297) ((735 . 5625) (- 0 4294967298) -> -4294967298) ((736 . 5625) (- 1 4294967294) -> -4294967293) ((737 . 5625) (- 1 4294967295) -> -4294967294) ((738 . 5625) (- 1 4294967296) -> -4294967295) ((739 . 5625) (- 1 4294967297) -> -4294967296) ((740 . 5625) (- 1 4294967298) -> -4294967297) ((741 . 5625) (- 2 4294967294) -> -4294967292) ((742 . 5625) (- 2 4294967295) -> -4294967293) ((743 . 5625) (- 2 4294967296) -> -4294967294) ((744 . 5625) (- 2 4294967297) -> -4294967295) ((745 . 5625) (- 2 4294967298) -> -4294967296) ((746 . 5625) (- 3 4294967294) -> -4294967291) ((747 . 5625) (- 3 4294967295) -> -4294967292) ((748 . 5625) (- 3 4294967296) -> -4294967293) ((749 . 5625) (- 3 4294967297) -> -4294967294) ((750 . 5625) (- 3 4294967298) -> -4294967295) ((751 . 5625) (- -3 -2) -> -1) ((752 . 5625) (- -3 -1) -> -2) ((753 . 5625) (- -3 0) -> -3) ((754 . 5625) (- -3 1) -> -4) ((755 . 5625) (- -3 2) -> -5) ((756 . 5625) (- -2 -2) -> 0) ((757 . 5625) (- -2 -1) -> -1) ((758 . 5625) (- -2 0) -> -2) ((759 . 5625) (- -2 1) -> -3) ((760 . 5625) (- -2 2) -> -4) ((761 . 5625) (- -1 -2) -> 1) ((762 . 5625) (- -1 -1) -> 0) ((763 . 5625) (- -1 0) -> -1) ((764 . 5625) (- -1 1) -> -2) ((765 . 5625) (- -1 2) -> -3) ((766 . 5625) (- 0 -2) -> 2) ((767 . 5625) (- 0 -1) -> 1) ((768 . 5625) (- 0 0) -> 0) ((769 . 5625) (- 0 1) -> -1) ((770 . 5625) (- 0 2) -> -2) ((771 . 5625) (- 1 -2) -> 3) ((772 . 5625) (- 1 -1) -> 2) ((773 . 5625) (- 1 0) -> 1) ((774 . 5625) (- 1 1) -> 0) ((775 . 5625) (- 1 2) -> -1) ((776 . 5625) (- -3 -1) -> -2) ((777 . 5625) (- -3 0) -> -3) ((778 . 5625) (- -3 1) -> -4) ((779 . 5625) (- -3 2) -> -5) ((780 . 5625) (- -3 3) -> -6) ((781 . 5625) (- -2 -1) -> -1) ((782 . 5625) (- -2 0) -> -2) ((783 . 5625) (- -2 1) -> -3) ((784 . 5625) (- -2 2) -> -4) ((785 . 5625) (- -2 3) -> -5) ((786 . 5625) (- -1 -1) -> 0) ((787 . 5625) (- -1 0) -> -1) ((788 . 5625) (- -1 1) -> -2) ((789 . 5625) (- -1 2) -> -3) ((790 . 5625) (- -1 3) -> -4) ((791 . 5625) (- 0 -1) -> 1) ((792 . 5625) (- 0 0) -> 0) ((793 . 5625) (- 0 1) -> -1) ((794 . 5625) (- 0 2) -> -2) ((795 . 5625) (- 0 3) -> -3) ((796 . 5625) (- 1 -1) -> 2) ((797 . 5625) (- 1 0) -> 1) ((798 . 5625) (- 1 1) -> 0) ((799 . 5625) (- 1 2) -> -1) ((800 . 5625) (- 1 3) -> -2) ((801 . 5625) (- -3 -3) -> 0) ((802 . 5625) (- -3 -2) -> -1) ((803 . 5625) (- -3 -1) -> -2) ((804 . 5625) (- -3 0) -> -3) ((805 . 5625) (- -3 1) -> -4) ((806 . 5625) (- -2 -3) -> 1) ((807 . 5625) (- -2 -2) -> 0) ((808 . 5625) (- -2 -1) -> -1) ((809 . 5625) (- -2 0) -> -2) ((810 . 5625) (- -2 1) -> -3) ((811 . 5625) (- -1 -3) -> 2) ((812 . 5625) (- -1 -2) -> 1) ((813 . 5625) (- -1 -1) -> 0) ((814 . 5625) (- -1 0) -> -1) ((815 . 5625) (- -1 1) -> -2) ((816 . 5625) (- 0 -3) -> 3) ((817 . 5625) (- 0 -2) -> 2) ((818 . 5625) (- 0 -1) -> 1) ((819 . 5625) (- 0 0) -> 0) ((820 . 5625) (- 0 1) -> -1) ((821 . 5625) (- 1 -3) -> 4) ((822 . 5625) (- 1 -2) -> 3) ((823 . 5625) (- 1 -1) -> 2) ((824 . 5625) (- 1 0) -> 1) ((825 . 5625) (- 1 1) -> 0) ((826 . 5625) (- -3 0) -> -3) ((827 . 5625) (- -3 1) -> -4) ((828 . 5625) (- -3 2) -> -5) ((829 . 5625) (- -3 3) -> -6) ((830 . 5625) (- -3 4) -> -7) ((831 . 5625) (- -2 0) -> -2) ((832 . 5625) (- -2 1) -> -3) ((833 . 5625) (- -2 2) -> -4) ((834 . 5625) (- -2 3) -> -5) ((835 . 5625) (- -2 4) -> -6) ((836 . 5625) (- -1 0) -> -1) ((837 . 5625) (- -1 1) -> -2) ((838 . 5625) (- -1 2) -> -3) ((839 . 5625) (- -1 3) -> -4) ((840 . 5625) (- -1 4) -> -5) ((841 . 5625) (- 0 0) -> 0) ((842 . 5625) (- 0 1) -> -1) ((843 . 5625) (- 0 2) -> -2) ((844 . 5625) (- 0 3) -> -3) ((845 . 5625) (- 0 4) -> -4) ((846 . 5625) (- 1 0) -> 1) ((847 . 5625) (- 1 1) -> 0) ((848 . 5625) (- 1 2) -> -1) ((849 . 5625) (- 1 3) -> -2) ((850 . 5625) (- 1 4) -> -3) ((851 . 5625) (- -3 -4) -> 1) ((852 . 5625) (- -3 -3) -> 0) ((853 . 5625) (- -3 -2) -> -1) ((854 . 5625) (- -3 -1) -> -2) ((855 . 5625) (- -3 0) -> -3) ((856 . 5625) (- -2 -4) -> 2) ((857 . 5625) (- -2 -3) -> 1) ((858 . 5625) (- -2 -2) -> 0) ((859 . 5625) (- -2 -1) -> -1) ((860 . 5625) (- -2 0) -> -2) ((861 . 5625) (- -1 -4) -> 3) ((862 . 5625) (- -1 -3) -> 2) ((863 . 5625) (- -1 -2) -> 1) ((864 . 5625) (- -1 -1) -> 0) ((865 . 5625) (- -1 0) -> -1) ((866 . 5625) (- 0 -4) -> 4) ((867 . 5625) (- 0 -3) -> 3) ((868 . 5625) (- 0 -2) -> 2) ((869 . 5625) (- 0 -1) -> 1) ((870 . 5625) (- 0 0) -> 0) ((871 . 5625) (- 1 -4) -> 5) ((872 . 5625) (- 1 -3) -> 4) ((873 . 5625) (- 1 -2) -> 3) ((874 . 5625) (- 1 -1) -> 2) ((875 . 5625) (- 1 0) -> 1) ((876 . 5625) (- -3 1073741821) -> -1073741824) ((877 . 5625) (- -3 1073741822) -> -1073741825) ((878 . 5625) (- -3 1073741823) -> -1073741826) ((879 . 5625) (- -3 1073741824) -> -1073741827) ((880 . 5625) (- -3 1073741825) -> -1073741828) ((881 . 5625) (- -2 1073741821) -> -1073741823) ((882 . 5625) (- -2 1073741822) -> -1073741824) ((883 . 5625) (- -2 1073741823) -> -1073741825) ((884 . 5625) (- -2 1073741824) -> -1073741826) ((885 . 5625) (- -2 1073741825) -> -1073741827) ((886 . 5625) (- -1 1073741821) -> -1073741822) ((887 . 5625) (- -1 1073741822) -> -1073741823) ((888 . 5625) (- -1 1073741823) -> -1073741824) ((889 . 5625) (- -1 1073741824) -> -1073741825) ((890 . 5625) (- -1 1073741825) -> -1073741826) ((891 . 5625) (- 0 1073741821) -> -1073741821) ((892 . 5625) (- 0 1073741822) -> -1073741822) ((893 . 5625) (- 0 1073741823) -> -1073741823) ((894 . 5625) (- 0 1073741824) -> -1073741824) ((895 . 5625) (- 0 1073741825) -> -1073741825) ((896 . 5625) (- 1 1073741821) -> -1073741820) ((897 . 5625) (- 1 1073741822) -> -1073741821) ((898 . 5625) (- 1 1073741823) -> -1073741822) ((899 . 5625) (- 1 1073741824) -> -1073741823) ((900 . 5625) (- 1 1073741825) -> -1073741824) ((901 . 5625) (- -3 -1073741826) -> 1073741823) ((902 . 5625) (- -3 -1073741825) -> 1073741822) ((903 . 5625) (- -3 -1073741824) -> 1073741821) ((904 . 5625) (- -3 -1073741823) -> 1073741820) ((905 . 5625) (- -3 -1073741822) -> 1073741819) ((906 . 5625) (- -2 -1073741826) -> 1073741824) ((907 . 5625) (- -2 -1073741825) -> 1073741823) ((908 . 5625) (- -2 -1073741824) -> 1073741822) ((909 . 5625) (- -2 -1073741823) -> 1073741821) ((910 . 5625) (- -2 -1073741822) -> 1073741820) ((911 . 5625) (- -1 -1073741826) -> 1073741825) ((912 . 5625) (- -1 -1073741825) -> 1073741824) ((913 . 5625) (- -1 -1073741824) -> 1073741823) ((914 . 5625) (- -1 -1073741823) -> 1073741822) ((915 . 5625) (- -1 -1073741822) -> 1073741821) ((916 . 5625) (- 0 -1073741826) -> 1073741826) ((917 . 5625) (- 0 -1073741825) -> 1073741825) ((918 . 5625) (- 0 -1073741824) -> 1073741824) ((919 . 5625) (- 0 -1073741823) -> 1073741823) ((920 . 5625) (- 0 -1073741822) -> 1073741822) ((921 . 5625) (- 1 -1073741826) -> 1073741827) ((922 . 5625) (- 1 -1073741825) -> 1073741826) ((923 . 5625) (- 1 -1073741824) -> 1073741825) ((924 . 5625) (- 1 -1073741823) -> 1073741824) ((925 . 5625) (- 1 -1073741822) -> 1073741823) ((926 . 5625) (- -3 1073741822) -> -1073741825) ((927 . 5625) (- -3 1073741823) -> -1073741826) ((928 . 5625) (- -3 1073741824) -> -1073741827) ((929 . 5625) (- -3 1073741825) -> -1073741828) ((930 . 5625) (- -3 1073741826) -> -1073741829) ((931 . 5625) (- -2 1073741822) -> -1073741824) ((932 . 5625) (- -2 1073741823) -> -1073741825) ((933 . 5625) (- -2 1073741824) -> -1073741826) ((934 . 5625) (- -2 1073741825) -> -1073741827) ((935 . 5625) (- -2 1073741826) -> -1073741828) ((936 . 5625) (- -1 1073741822) -> -1073741823) ((937 . 5625) (- -1 1073741823) -> -1073741824) ((938 . 5625) (- -1 1073741824) -> -1073741825) ((939 . 5625) (- -1 1073741825) -> -1073741826) ((940 . 5625) (- -1 1073741826) -> -1073741827) ((941 . 5625) (- 0 1073741822) -> -1073741822) ((942 . 5625) (- 0 1073741823) -> -1073741823) ((943 . 5625) (- 0 1073741824) -> -1073741824) ((944 . 5625) (- 0 1073741825) -> -1073741825) ((945 . 5625) (- 0 1073741826) -> -1073741826) ((946 . 5625) (- 1 1073741822) -> -1073741821) ((947 . 5625) (- 1 1073741823) -> -1073741822) ((948 . 5625) (- 1 1073741824) -> -1073741823) ((949 . 5625) (- 1 1073741825) -> -1073741824) ((950 . 5625) (- 1 1073741826) -> -1073741825) ((951 . 5625) (- -3 -1073741827) -> 1073741824) ((952 . 5625) (- -3 -1073741826) -> 1073741823) ((953 . 5625) (- -3 -1073741825) -> 1073741822) ((954 . 5625) (- -3 -1073741824) -> 1073741821) ((955 . 5625) (- -3 -1073741823) -> 1073741820) ((956 . 5625) (- -2 -1073741827) -> 1073741825) ((957 . 5625) (- -2 -1073741826) -> 1073741824) ((958 . 5625) (- -2 -1073741825) -> 1073741823) ((959 . 5625) (- -2 -1073741824) -> 1073741822) ((960 . 5625) (- -2 -1073741823) -> 1073741821) ((961 . 5625) (- -1 -1073741827) -> 1073741826) ((962 . 5625) (- -1 -1073741826) -> 1073741825) ((963 . 5625) (- -1 -1073741825) -> 1073741824) ((964 . 5625) (- -1 -1073741824) -> 1073741823) ((965 . 5625) (- -1 -1073741823) -> 1073741822) ((966 . 5625) (- 0 -1073741827) -> 1073741827) ((967 . 5625) (- 0 -1073741826) -> 1073741826) ((968 . 5625) (- 0 -1073741825) -> 1073741825) ((969 . 5625) (- 0 -1073741824) -> 1073741824) ((970 . 5625) (- 0 -1073741823) -> 1073741823) ((971 . 5625) (- 1 -1073741827) -> 1073741828) ((972 . 5625) (- 1 -1073741826) -> 1073741827) ((973 . 5625) (- 1 -1073741825) -> 1073741826) ((974 . 5625) (- 1 -1073741824) -> 1073741825) ((975 . 5625) (- 1 -1073741823) -> 1073741824) ((976 . 5625) (- -3 1103515243) -> -1103515246) ((977 . 5625) (- -3 1103515244) -> -1103515247) ((978 . 5625) (- -3 1103515245) -> -1103515248) ((979 . 5625) (- -3 1103515246) -> -1103515249) ((980 . 5625) (- -3 1103515247) -> -1103515250) ((981 . 5625) (- -2 1103515243) -> -1103515245) ((982 . 5625) (- -2 1103515244) -> -1103515246) ((983 . 5625) (- -2 1103515245) -> -1103515247) ((984 . 5625) (- -2 1103515246) -> -1103515248) ((985 . 5625) (- -2 1103515247) -> -1103515249) ((986 . 5625) (- -1 1103515243) -> -1103515244) ((987 . 5625) (- -1 1103515244) -> -1103515245) ((988 . 5625) (- -1 1103515245) -> -1103515246) ((989 . 5625) (- -1 1103515246) -> -1103515247) ((990 . 5625) (- -1 1103515247) -> -1103515248) ((991 . 5625) (- 0 1103515243) -> -1103515243) ((992 . 5625) (- 0 1103515244) -> -1103515244) ((993 . 5625) (- 0 1103515245) -> -1103515245) ((994 . 5625) (- 0 1103515246) -> -1103515246) ((995 . 5625) (- 0 1103515247) -> -1103515247) ((996 . 5625) (- 1 1103515243) -> -1103515242) ((997 . 5625) (- 1 1103515244) -> -1103515243) ((998 . 5625) (- 1 1103515245) -> -1103515244) ((999 . 5625) (- 1 1103515246) -> -1103515245) ((1000 . 5625) (- 1 1103515247) -> -1103515246) ((1001 . 5625) (- -3 631629063) -> -631629066) ((1002 . 5625) (- -3 631629064) -> -631629067) ((1003 . 5625) (- -3 631629065) -> -631629068) ((1004 . 5625) (- -3 631629066) -> -631629069) ((1005 . 5625) (- -3 631629067) -> -631629070) ((1006 . 5625) (- -2 631629063) -> -631629065) ((1007 . 5625) (- -2 631629064) -> -631629066) ((1008 . 5625) (- -2 631629065) -> -631629067) ((1009 . 5625) (- -2 631629066) -> -631629068) ((1010 . 5625) (- -2 631629067) -> -631629069) ((1011 . 5625) (- -1 631629063) -> -631629064) ((1012 . 5625) (- -1 631629064) -> -631629065) ((1013 . 5625) (- -1 631629065) -> -631629066) ((1014 . 5625) (- -1 631629066) -> -631629067) ((1015 . 5625) (- -1 631629067) -> -631629068) ((1016 . 5625) (- 0 631629063) -> -631629063) ((1017 . 5625) (- 0 631629064) -> -631629064) ((1018 . 5625) (- 0 631629065) -> -631629065) ((1019 . 5625) (- 0 631629066) -> -631629066) ((1020 . 5625) (- 0 631629067) -> -631629067) ((1021 . 5625) (- 1 631629063) -> -631629062) ((1022 . 5625) (- 1 631629064) -> -631629063) ((1023 . 5625) (- 1 631629065) -> -631629064) ((1024 . 5625) (- 1 631629066) -> -631629065) ((1025 . 5625) (- 1 631629067) -> -631629066) ((1026 . 5625) (- -3 9007199254740990) -> -9007199254740993) ((1027 . 5625) (- -3 9007199254740991) -> -9007199254740994) ((1028 . 5625) (- -3 9007199254740992) -> -9007199254740995) ((1029 . 5625) (- -3 9007199254740993) -> -9007199254740996) ((1030 . 5625) (- -3 9007199254740994) -> -9007199254740997) ((1031 . 5625) (- -2 9007199254740990) -> -9007199254740992) ((1032 . 5625) (- -2 9007199254740991) -> -9007199254740993) ((1033 . 5625) (- -2 9007199254740992) -> -9007199254740994) ((1034 . 5625) (- -2 9007199254740993) -> -9007199254740995) ((1035 . 5625) (- -2 9007199254740994) -> -9007199254740996) ((1036 . 5625) (- -1 9007199254740990) -> -9007199254740991) ((1037 . 5625) (- -1 9007199254740991) -> -9007199254740992) ((1038 . 5625) (- -1 9007199254740992) -> -9007199254740993) ((1039 . 5625) (- -1 9007199254740993) -> -9007199254740994) ((1040 . 5625) (- -1 9007199254740994) -> -9007199254740995) ((1041 . 5625) (- 0 9007199254740990) -> -9007199254740990) ((1042 . 5625) (- 0 9007199254740991) -> -9007199254740991) ((1043 . 5625) (- 0 9007199254740992) -> -9007199254740992) ((1044 . 5625) (- 0 9007199254740993) -> -9007199254740993) ((1045 . 5625) (- 0 9007199254740994) -> -9007199254740994) ((1046 . 5625) (- 1 9007199254740990) -> -9007199254740989) ((1047 . 5625) (- 1 9007199254740991) -> -9007199254740990) ((1048 . 5625) (- 1 9007199254740992) -> -9007199254740991) ((1049 . 5625) (- 1 9007199254740993) -> -9007199254740992) ((1050 . 5625) (- 1 9007199254740994) -> -9007199254740993) ((1051 . 5625) (- -3 -9007199254740994) -> 9007199254740991) ((1052 . 5625) (- -3 -9007199254740993) -> 9007199254740990) ((1053 . 5625) (- -3 -9007199254740992) -> 9007199254740989) ((1054 . 5625) (- -3 -9007199254740991) -> 9007199254740988) ((1055 . 5625) (- -3 -9007199254740990) -> 9007199254740987) ((1056 . 5625) (- -2 -9007199254740994) -> 9007199254740992) ((1057 . 5625) (- -2 -9007199254740993) -> 9007199254740991) ((1058 . 5625) (- -2 -9007199254740992) -> 9007199254740990) ((1059 . 5625) (- -2 -9007199254740991) -> 9007199254740989) ((1060 . 5625) (- -2 -9007199254740990) -> 9007199254740988) ((1061 . 5625) (- -1 -9007199254740994) -> 9007199254740993) ((1062 . 5625) (- -1 -9007199254740993) -> 9007199254740992) ((1063 . 5625) (- -1 -9007199254740992) -> 9007199254740991) ((1064 . 5625) (- -1 -9007199254740991) -> 9007199254740990) ((1065 . 5625) (- -1 -9007199254740990) -> 9007199254740989) ((1066 . 5625) (- 0 -9007199254740994) -> 9007199254740994) ((1067 . 5625) (- 0 -9007199254740993) -> 9007199254740993) ((1068 . 5625) (- 0 -9007199254740992) -> 9007199254740992) ((1069 . 5625) (- 0 -9007199254740991) -> 9007199254740991) ((1070 . 5625) (- 0 -9007199254740990) -> 9007199254740990) ((1071 . 5625) (- 1 -9007199254740994) -> 9007199254740995) ((1072 . 5625) (- 1 -9007199254740993) -> 9007199254740994) ((1073 . 5625) (- 1 -9007199254740992) -> 9007199254740993) ((1074 . 5625) (- 1 -9007199254740991) -> 9007199254740992) ((1075 . 5625) (- 1 -9007199254740990) -> 9007199254740991) ((1076 . 5625) (- -3 12343) -> -12346) ((1077 . 5625) (- -3 12344) -> -12347) ((1078 . 5625) (- -3 12345) -> -12348) ((1079 . 5625) (- -3 12346) -> -12349) ((1080 . 5625) (- -3 12347) -> -12350) ((1081 . 5625) (- -2 12343) -> -12345) ((1082 . 5625) (- -2 12344) -> -12346) ((1083 . 5625) (- -2 12345) -> -12347) ((1084 . 5625) (- -2 12346) -> -12348) ((1085 . 5625) (- -2 12347) -> -12349) ((1086 . 5625) (- -1 12343) -> -12344) ((1087 . 5625) (- -1 12344) -> -12345) ((1088 . 5625) (- -1 12345) -> -12346) ((1089 . 5625) (- -1 12346) -> -12347) ((1090 . 5625) (- -1 12347) -> -12348) ((1091 . 5625) (- 0 12343) -> -12343) ((1092 . 5625) (- 0 12344) -> -12344) ((1093 . 5625) (- 0 12345) -> -12345) ((1094 . 5625) (- 0 12346) -> -12346) ((1095 . 5625) (- 0 12347) -> -12347) ((1096 . 5625) (- 1 12343) -> -12342) ((1097 . 5625) (- 1 12344) -> -12343) ((1098 . 5625) (- 1 12345) -> -12344) ((1099 . 5625) (- 1 12346) -> -12345) ((1100 . 5625) (- 1 12347) -> -12346) ((1101 . 5625) (- -3 4294967294) -> -4294967297) ((1102 . 5625) (- -3 4294967295) -> -4294967298) ((1103 . 5625) (- -3 4294967296) -> -4294967299) ((1104 . 5625) (- -3 4294967297) -> -4294967300) ((1105 . 5625) (- -3 4294967298) -> -4294967301) ((1106 . 5625) (- -2 4294967294) -> -4294967296) ((1107 . 5625) (- -2 4294967295) -> -4294967297) ((1108 . 5625) (- -2 4294967296) -> -4294967298) ((1109 . 5625) (- -2 4294967297) -> -4294967299) ((1110 . 5625) (- -2 4294967298) -> -4294967300) ((1111 . 5625) (- -1 4294967294) -> -4294967295) ((1112 . 5625) (- -1 4294967295) -> -4294967296) ((1113 . 5625) (- -1 4294967296) -> -4294967297) ((1114 . 5625) (- -1 4294967297) -> -4294967298) ((1115 . 5625) (- -1 4294967298) -> -4294967299) ((1116 . 5625) (- 0 4294967294) -> -4294967294) ((1117 . 5625) (- 0 4294967295) -> -4294967295) ((1118 . 5625) (- 0 4294967296) -> -4294967296) ((1119 . 5625) (- 0 4294967297) -> -4294967297) ((1120 . 5625) (- 0 4294967298) -> -4294967298) ((1121 . 5625) (- 1 4294967294) -> -4294967293) ((1122 . 5625) (- 1 4294967295) -> -4294967294) ((1123 . 5625) (- 1 4294967296) -> -4294967295) ((1124 . 5625) (- 1 4294967297) -> -4294967296) ((1125 . 5625) (- 1 4294967298) -> -4294967297) ((1126 . 5625) (- 0 -2) -> 2) ((1127 . 5625) (- 0 -1) -> 1) ((1128 . 5625) (- 0 0) -> 0) ((1129 . 5625) (- 0 1) -> -1) ((1130 . 5625) (- 0 2) -> -2) ((1131 . 5625) (- 1 -2) -> 3) ((1132 . 5625) (- 1 -1) -> 2) ((1133 . 5625) (- 1 0) -> 1) ((1134 . 5625) (- 1 1) -> 0) ((1135 . 5625) (- 1 2) -> -1) ((1136 . 5625) (- 2 -2) -> 4) ((1137 . 5625) (- 2 -1) -> 3) ((1138 . 5625) (- 2 0) -> 2) ((1139 . 5625) (- 2 1) -> 1) ((1140 . 5625) (- 2 2) -> 0) ((1141 . 5625) (- 3 -2) -> 5) ((1142 . 5625) (- 3 -1) -> 4) ((1143 . 5625) (- 3 0) -> 3) ((1144 . 5625) (- 3 1) -> 2) ((1145 . 5625) (- 3 2) -> 1) ((1146 . 5625) (- 4 -2) -> 6) ((1147 . 5625) (- 4 -1) -> 5) ((1148 . 5625) (- 4 0) -> 4) ((1149 . 5625) (- 4 1) -> 3) ((1150 . 5625) (- 4 2) -> 2) ((1151 . 5625) (- 0 -1) -> 1) ((1152 . 5625) (- 0 0) -> 0) ((1153 . 5625) (- 0 1) -> -1) ((1154 . 5625) (- 0 2) -> -2) ((1155 . 5625) (- 0 3) -> -3) ((1156 . 5625) (- 1 -1) -> 2) ((1157 . 5625) (- 1 0) -> 1) ((1158 . 5625) (- 1 1) -> 0) ((1159 . 5625) (- 1 2) -> -1) ((1160 . 5625) (- 1 3) -> -2) ((1161 . 5625) (- 2 -1) -> 3) ((1162 . 5625) (- 2 0) -> 2) ((1163 . 5625) (- 2 1) -> 1) ((1164 . 5625) (- 2 2) -> 0) ((1165 . 5625) (- 2 3) -> -1) ((1166 . 5625) (- 3 -1) -> 4) ((1167 . 5625) (- 3 0) -> 3) ((1168 . 5625) (- 3 1) -> 2) ((1169 . 5625) (- 3 2) -> 1) ((1170 . 5625) (- 3 3) -> 0) ((1171 . 5625) (- 4 -1) -> 5) ((1172 . 5625) (- 4 0) -> 4) ((1173 . 5625) (- 4 1) -> 3) ((1174 . 5625) (- 4 2) -> 2) ((1175 . 5625) (- 4 3) -> 1) ((1176 . 5625) (- 0 -3) -> 3) ((1177 . 5625) (- 0 -2) -> 2) ((1178 . 5625) (- 0 -1) -> 1) ((1179 . 5625) (- 0 0) -> 0) ((1180 . 5625) (- 0 1) -> -1) ((1181 . 5625) (- 1 -3) -> 4) ((1182 . 5625) (- 1 -2) -> 3) ((1183 . 5625) (- 1 -1) -> 2) ((1184 . 5625) (- 1 0) -> 1) ((1185 . 5625) (- 1 1) -> 0) ((1186 . 5625) (- 2 -3) -> 5) ((1187 . 5625) (- 2 -2) -> 4) ((1188 . 5625) (- 2 -1) -> 3) ((1189 . 5625) (- 2 0) -> 2) ((1190 . 5625) (- 2 1) -> 1) ((1191 . 5625) (- 3 -3) -> 6) ((1192 . 5625) (- 3 -2) -> 5) ((1193 . 5625) (- 3 -1) -> 4) ((1194 . 5625) (- 3 0) -> 3) ((1195 . 5625) (- 3 1) -> 2) ((1196 . 5625) (- 4 -3) -> 7) ((1197 . 5625) (- 4 -2) -> 6) ((1198 . 5625) (- 4 -1) -> 5) ((1199 . 5625) (- 4 0) -> 4) ((1200 . 5625) (- 4 1) -> 3) ((1201 . 5625) (- 0 0) -> 0) ((1202 . 5625) (- 0 1) -> -1) ((1203 . 5625) (- 0 2) -> -2) ((1204 . 5625) (- 0 3) -> -3) ((1205 . 5625) (- 0 4) -> -4) ((1206 . 5625) (- 1 0) -> 1) ((1207 . 5625) (- 1 1) -> 0) ((1208 . 5625) (- 1 2) -> -1) ((1209 . 5625) (- 1 3) -> -2) ((1210 . 5625) (- 1 4) -> -3) ((1211 . 5625) (- 2 0) -> 2) ((1212 . 5625) (- 2 1) -> 1) ((1213 . 5625) (- 2 2) -> 0) ((1214 . 5625) (- 2 3) -> -1) ((1215 . 5625) (- 2 4) -> -2) ((1216 . 5625) (- 3 0) -> 3) ((1217 . 5625) (- 3 1) -> 2) ((1218 . 5625) (- 3 2) -> 1) ((1219 . 5625) (- 3 3) -> 0) ((1220 . 5625) (- 3 4) -> -1) ((1221 . 5625) (- 4 0) -> 4) ((1222 . 5625) (- 4 1) -> 3) ((1223 . 5625) (- 4 2) -> 2) ((1224 . 5625) (- 4 3) -> 1) ((1225 . 5625) (- 4 4) -> 0) ((1226 . 5625) (- 0 -4) -> 4) ((1227 . 5625) (- 0 -3) -> 3) ((1228 . 5625) (- 0 -2) -> 2) ((1229 . 5625) (- 0 -1) -> 1) ((1230 . 5625) (- 0 0) -> 0) ((1231 . 5625) (- 1 -4) -> 5) ((1232 . 5625) (- 1 -3) -> 4) ((1233 . 5625) (- 1 -2) -> 3) ((1234 . 5625) (- 1 -1) -> 2) ((1235 . 5625) (- 1 0) -> 1) ((1236 . 5625) (- 2 -4) -> 6) ((1237 . 5625) (- 2 -3) -> 5) ((1238 . 5625) (- 2 -2) -> 4) ((1239 . 5625) (- 2 -1) -> 3) ((1240 . 5625) (- 2 0) -> 2) ((1241 . 5625) (- 3 -4) -> 7) ((1242 . 5625) (- 3 -3) -> 6) ((1243 . 5625) (- 3 -2) -> 5) ((1244 . 5625) (- 3 -1) -> 4) ((1245 . 5625) (- 3 0) -> 3) ((1246 . 5625) (- 4 -4) -> 8) ((1247 . 5625) (- 4 -3) -> 7) ((1248 . 5625) (- 4 -2) -> 6) ((1249 . 5625) (- 4 -1) -> 5) ((1250 . 5625) (- 4 0) -> 4) ((1251 . 5625) (- 0 1073741821) -> -1073741821) ((1252 . 5625) (- 0 1073741822) -> -1073741822) ((1253 . 5625) (- 0 1073741823) -> -1073741823) ((1254 . 5625) (- 0 1073741824) -> -1073741824) ((1255 . 5625) (- 0 1073741825) -> -1073741825) ((1256 . 5625) (- 1 1073741821) -> -1073741820) ((1257 . 5625) (- 1 1073741822) -> -1073741821) ((1258 . 5625) (- 1 1073741823) -> -1073741822) ((1259 . 5625) (- 1 1073741824) -> -1073741823) ((1260 . 5625) (- 1 1073741825) -> -1073741824) ((1261 . 5625) (- 2 1073741821) -> -1073741819) ((1262 . 5625) (- 2 1073741822) -> -1073741820) ((1263 . 5625) (- 2 1073741823) -> -1073741821) ((1264 . 5625) (- 2 1073741824) -> -1073741822) ((1265 . 5625) (- 2 1073741825) -> -1073741823) ((1266 . 5625) (- 3 1073741821) -> -1073741818) ((1267 . 5625) (- 3 1073741822) -> -1073741819) ((1268 . 5625) (- 3 1073741823) -> -1073741820) ((1269 . 5625) (- 3 1073741824) -> -1073741821) ((1270 . 5625) (- 3 1073741825) -> -1073741822) ((1271 . 5625) (- 4 1073741821) -> -1073741817) ((1272 . 5625) (- 4 1073741822) -> -1073741818) ((1273 . 5625) (- 4 1073741823) -> -1073741819) ((1274 . 5625) (- 4 1073741824) -> -1073741820) ((1275 . 5625) (- 4 1073741825) -> -1073741821) ((1276 . 5625) (- 0 -1073741826) -> 1073741826) ((1277 . 5625) (- 0 -1073741825) -> 1073741825) ((1278 . 5625) (- 0 -1073741824) -> 1073741824) ((1279 . 5625) (- 0 -1073741823) -> 1073741823) ((1280 . 5625) (- 0 -1073741822) -> 1073741822) ((1281 . 5625) (- 1 -1073741826) -> 1073741827) ((1282 . 5625) (- 1 -1073741825) -> 1073741826) ((1283 . 5625) (- 1 -1073741824) -> 1073741825) ((1284 . 5625) (- 1 -1073741823) -> 1073741824) ((1285 . 5625) (- 1 -1073741822) -> 1073741823) ((1286 . 5625) (- 2 -1073741826) -> 1073741828) ((1287 . 5625) (- 2 -1073741825) -> 1073741827) ((1288 . 5625) (- 2 -1073741824) -> 1073741826) ((1289 . 5625) (- 2 -1073741823) -> 1073741825) ((1290 . 5625) (- 2 -1073741822) -> 1073741824) ((1291 . 5625) (- 3 -1073741826) -> 1073741829) ((1292 . 5625) (- 3 -1073741825) -> 1073741828) ((1293 . 5625) (- 3 -1073741824) -> 1073741827) ((1294 . 5625) (- 3 -1073741823) -> 1073741826) ((1295 . 5625) (- 3 -1073741822) -> 1073741825) ((1296 . 5625) (- 4 -1073741826) -> 1073741830) ((1297 . 5625) (- 4 -1073741825) -> 1073741829) ((1298 . 5625) (- 4 -1073741824) -> 1073741828) ((1299 . 5625) (- 4 -1073741823) -> 1073741827) ((1300 . 5625) (- 4 -1073741822) -> 1073741826) ((1301 . 5625) (- 0 1073741822) -> -1073741822) ((1302 . 5625) (- 0 1073741823) -> -1073741823) ((1303 . 5625) (- 0 1073741824) -> -1073741824) ((1304 . 5625) (- 0 1073741825) -> -1073741825) ((1305 . 5625) (- 0 1073741826) -> -1073741826) ((1306 . 5625) (- 1 1073741822) -> -1073741821) ((1307 . 5625) (- 1 1073741823) -> -1073741822) ((1308 . 5625) (- 1 1073741824) -> -1073741823) ((1309 . 5625) (- 1 1073741825) -> -1073741824) ((1310 . 5625) (- 1 1073741826) -> -1073741825) ((1311 . 5625) (- 2 1073741822) -> -1073741820) ((1312 . 5625) (- 2 1073741823) -> -1073741821) ((1313 . 5625) (- 2 1073741824) -> -1073741822) ((1314 . 5625) (- 2 1073741825) -> -1073741823) ((1315 . 5625) (- 2 1073741826) -> -1073741824) ((1316 . 5625) (- 3 1073741822) -> -1073741819) ((1317 . 5625) (- 3 1073741823) -> -1073741820) ((1318 . 5625) (- 3 1073741824) -> -1073741821) ((1319 . 5625) (- 3 1073741825) -> -1073741822) ((1320 . 5625) (- 3 1073741826) -> -1073741823) ((1321 . 5625) (- 4 1073741822) -> -1073741818) ((1322 . 5625) (- 4 1073741823) -> -1073741819) ((1323 . 5625) (- 4 1073741824) -> -1073741820) ((1324 . 5625) (- 4 1073741825) -> -1073741821) ((1325 . 5625) (- 4 1073741826) -> -1073741822) ((1326 . 5625) (- 0 -1073741827) -> 1073741827) ((1327 . 5625) (- 0 -1073741826) -> 1073741826) ((1328 . 5625) (- 0 -1073741825) -> 1073741825) ((1329 . 5625) (- 0 -1073741824) -> 1073741824) ((1330 . 5625) (- 0 -1073741823) -> 1073741823) ((1331 . 5625) (- 1 -1073741827) -> 1073741828) ((1332 . 5625) (- 1 -1073741826) -> 1073741827) ((1333 . 5625) (- 1 -1073741825) -> 1073741826) ((1334 . 5625) (- 1 -1073741824) -> 1073741825) ((1335 . 5625) (- 1 -1073741823) -> 1073741824) ((1336 . 5625) (- 2 -1073741827) -> 1073741829) ((1337 . 5625) (- 2 -1073741826) -> 1073741828) ((1338 . 5625) (- 2 -1073741825) -> 1073741827) ((1339 . 5625) (- 2 -1073741824) -> 1073741826) ((1340 . 5625) (- 2 -1073741823) -> 1073741825) ((1341 . 5625) (- 3 -1073741827) -> 1073741830) ((1342 . 5625) (- 3 -1073741826) -> 1073741829) ((1343 . 5625) (- 3 -1073741825) -> 1073741828) ((1344 . 5625) (- 3 -1073741824) -> 1073741827) ((1345 . 5625) (- 3 -1073741823) -> 1073741826) ((1346 . 5625) (- 4 -1073741827) -> 1073741831) ((1347 . 5625) (- 4 -1073741826) -> 1073741830) ((1348 . 5625) (- 4 -1073741825) -> 1073741829) ((1349 . 5625) (- 4 -1073741824) -> 1073741828) ((1350 . 5625) (- 4 -1073741823) -> 1073741827) ((1351 . 5625) (- 0 1103515243) -> -1103515243) ((1352 . 5625) (- 0 1103515244) -> -1103515244) ((1353 . 5625) (- 0 1103515245) -> -1103515245) ((1354 . 5625) (- 0 1103515246) -> -1103515246) ((1355 . 5625) (- 0 1103515247) -> -1103515247) ((1356 . 5625) (- 1 1103515243) -> -1103515242) ((1357 . 5625) (- 1 1103515244) -> -1103515243) ((1358 . 5625) (- 1 1103515245) -> -1103515244) ((1359 . 5625) (- 1 1103515246) -> -1103515245) ((1360 . 5625) (- 1 1103515247) -> -1103515246) ((1361 . 5625) (- 2 1103515243) -> -1103515241) ((1362 . 5625) (- 2 1103515244) -> -1103515242) ((1363 . 5625) (- 2 1103515245) -> -1103515243) ((1364 . 5625) (- 2 1103515246) -> -1103515244) ((1365 . 5625) (- 2 1103515247) -> -1103515245) ((1366 . 5625) (- 3 1103515243) -> -1103515240) ((1367 . 5625) (- 3 1103515244) -> -1103515241) ((1368 . 5625) (- 3 1103515245) -> -1103515242) ((1369 . 5625) (- 3 1103515246) -> -1103515243) ((1370 . 5625) (- 3 1103515247) -> -1103515244) ((1371 . 5625) (- 4 1103515243) -> -1103515239) ((1372 . 5625) (- 4 1103515244) -> -1103515240) ((1373 . 5625) (- 4 1103515245) -> -1103515241) ((1374 . 5625) (- 4 1103515246) -> -1103515242) ((1375 . 5625) (- 4 1103515247) -> -1103515243) ((1376 . 5625) (- 0 631629063) -> -631629063) ((1377 . 5625) (- 0 631629064) -> -631629064) ((1378 . 5625) (- 0 631629065) -> -631629065) ((1379 . 5625) (- 0 631629066) -> -631629066) ((1380 . 5625) (- 0 631629067) -> -631629067) ((1381 . 5625) (- 1 631629063) -> -631629062) ((1382 . 5625) (- 1 631629064) -> -631629063) ((1383 . 5625) (- 1 631629065) -> -631629064) ((1384 . 5625) (- 1 631629066) -> -631629065) ((1385 . 5625) (- 1 631629067) -> -631629066) ((1386 . 5625) (- 2 631629063) -> -631629061) ((1387 . 5625) (- 2 631629064) -> -631629062) ((1388 . 5625) (- 2 631629065) -> -631629063) ((1389 . 5625) (- 2 631629066) -> -631629064) ((1390 . 5625) (- 2 631629067) -> -631629065) ((1391 . 5625) (- 3 631629063) -> -631629060) ((1392 . 5625) (- 3 631629064) -> -631629061) ((1393 . 5625) (- 3 631629065) -> -631629062) ((1394 . 5625) (- 3 631629066) -> -631629063) ((1395 . 5625) (- 3 631629067) -> -631629064) ((1396 . 5625) (- 4 631629063) -> -631629059) ((1397 . 5625) (- 4 631629064) -> -631629060) ((1398 . 5625) (- 4 631629065) -> -631629061) ((1399 . 5625) (- 4 631629066) -> -631629062) ((1400 . 5625) (- 4 631629067) -> -631629063) ((1401 . 5625) (- 0 9007199254740990) -> -9007199254740990) ((1402 . 5625) (- 0 9007199254740991) -> -9007199254740991) ((1403 . 5625) (- 0 9007199254740992) -> -9007199254740992) ((1404 . 5625) (- 0 9007199254740993) -> -9007199254740993) ((1405 . 5625) (- 0 9007199254740994) -> -9007199254740994) ((1406 . 5625) (- 1 9007199254740990) -> -9007199254740989) ((1407 . 5625) (- 1 9007199254740991) -> -9007199254740990) ((1408 . 5625) (- 1 9007199254740992) -> -9007199254740991) ((1409 . 5625) (- 1 9007199254740993) -> -9007199254740992) ((1410 . 5625) (- 1 9007199254740994) -> -9007199254740993) ((1411 . 5625) (- 2 9007199254740990) -> -9007199254740988) ((1412 . 5625) (- 2 9007199254740991) -> -9007199254740989) ((1413 . 5625) (- 2 9007199254740992) -> -9007199254740990) ((1414 . 5625) (- 2 9007199254740993) -> -9007199254740991) ((1415 . 5625) (- 2 9007199254740994) -> -9007199254740992) ((1416 . 5625) (- 3 9007199254740990) -> -9007199254740987) ((1417 . 5625) (- 3 9007199254740991) -> -9007199254740988) ((1418 . 5625) (- 3 9007199254740992) -> -9007199254740989) ((1419 . 5625) (- 3 9007199254740993) -> -9007199254740990) ((1420 . 5625) (- 3 9007199254740994) -> -9007199254740991) ((1421 . 5625) (- 4 9007199254740990) -> -9007199254740986) ((1422 . 5625) (- 4 9007199254740991) -> -9007199254740987) ((1423 . 5625) (- 4 9007199254740992) -> -9007199254740988) ((1424 . 5625) (- 4 9007199254740993) -> -9007199254740989) ((1425 . 5625) (- 4 9007199254740994) -> -9007199254740990) ((1426 . 5625) (- 0 -9007199254740994) -> 9007199254740994) ((1427 . 5625) (- 0 -9007199254740993) -> 9007199254740993) ((1428 . 5625) (- 0 -9007199254740992) -> 9007199254740992) ((1429 . 5625) (- 0 -9007199254740991) -> 9007199254740991) ((1430 . 5625) (- 0 -9007199254740990) -> 9007199254740990) ((1431 . 5625) (- 1 -9007199254740994) -> 9007199254740995) ((1432 . 5625) (- 1 -9007199254740993) -> 9007199254740994) ((1433 . 5625) (- 1 -9007199254740992) -> 9007199254740993) ((1434 . 5625) (- 1 -9007199254740991) -> 9007199254740992) ((1435 . 5625) (- 1 -9007199254740990) -> 9007199254740991) ((1436 . 5625) (- 2 -9007199254740994) -> 9007199254740996) ((1437 . 5625) (- 2 -9007199254740993) -> 9007199254740995) ((1438 . 5625) (- 2 -9007199254740992) -> 9007199254740994) ((1439 . 5625) (- 2 -9007199254740991) -> 9007199254740993) ((1440 . 5625) (- 2 -9007199254740990) -> 9007199254740992) ((1441 . 5625) (- 3 -9007199254740994) -> 9007199254740997) ((1442 . 5625) (- 3 -9007199254740993) -> 9007199254740996) ((1443 . 5625) (- 3 -9007199254740992) -> 9007199254740995) ((1444 . 5625) (- 3 -9007199254740991) -> 9007199254740994) ((1445 . 5625) (- 3 -9007199254740990) -> 9007199254740993) ((1446 . 5625) (- 4 -9007199254740994) -> 9007199254740998) ((1447 . 5625) (- 4 -9007199254740993) -> 9007199254740997) ((1448 . 5625) (- 4 -9007199254740992) -> 9007199254740996) ((1449 . 5625) (- 4 -9007199254740991) -> 9007199254740995) ((1450 . 5625) (- 4 -9007199254740990) -> 9007199254740994) ((1451 . 5625) (- 0 12343) -> -12343) ((1452 . 5625) (- 0 12344) -> -12344) ((1453 . 5625) (- 0 12345) -> -12345) ((1454 . 5625) (- 0 12346) -> -12346) ((1455 . 5625) (- 0 12347) -> -12347) ((1456 . 5625) (- 1 12343) -> -12342) ((1457 . 5625) (- 1 12344) -> -12343) ((1458 . 5625) (- 1 12345) -> -12344) ((1459 . 5625) (- 1 12346) -> -12345) ((1460 . 5625) (- 1 12347) -> -12346) ((1461 . 5625) (- 2 12343) -> -12341) ((1462 . 5625) (- 2 12344) -> -12342) ((1463 . 5625) (- 2 12345) -> -12343) ((1464 . 5625) (- 2 12346) -> -12344) ((1465 . 5625) (- 2 12347) -> -12345) ((1466 . 5625) (- 3 12343) -> -12340) ((1467 . 5625) (- 3 12344) -> -12341) ((1468 . 5625) (- 3 12345) -> -12342) ((1469 . 5625) (- 3 12346) -> -12343) ((1470 . 5625) (- 3 12347) -> -12344) ((1471 . 5625) (- 4 12343) -> -12339) ((1472 . 5625) (- 4 12344) -> -12340) ((1473 . 5625) (- 4 12345) -> -12341) ((1474 . 5625) (- 4 12346) -> -12342) ((1475 . 5625) (- 4 12347) -> -12343) ((1476 . 5625) (- 0 4294967294) -> -4294967294) ((1477 . 5625) (- 0 4294967295) -> -4294967295) ((1478 . 5625) (- 0 4294967296) -> -4294967296) ((1479 . 5625) (- 0 4294967297) -> -4294967297) ((1480 . 5625) (- 0 4294967298) -> -4294967298) ((1481 . 5625) (- 1 4294967294) -> -4294967293) ((1482 . 5625) (- 1 4294967295) -> -4294967294) ((1483 . 5625) (- 1 4294967296) -> -4294967295) ((1484 . 5625) (- 1 4294967297) -> -4294967296) ((1485 . 5625) (- 1 4294967298) -> -4294967297) ((1486 . 5625) (- 2 4294967294) -> -4294967292) ((1487 . 5625) (- 2 4294967295) -> -4294967293) ((1488 . 5625) (- 2 4294967296) -> -4294967294) ((1489 . 5625) (- 2 4294967297) -> -4294967295) ((1490 . 5625) (- 2 4294967298) -> -4294967296) ((1491 . 5625) (- 3 4294967294) -> -4294967291) ((1492 . 5625) (- 3 4294967295) -> -4294967292) ((1493 . 5625) (- 3 4294967296) -> -4294967293) ((1494 . 5625) (- 3 4294967297) -> -4294967294) ((1495 . 5625) (- 3 4294967298) -> -4294967295) ((1496 . 5625) (- 4 4294967294) -> -4294967290) ((1497 . 5625) (- 4 4294967295) -> -4294967291) ((1498 . 5625) (- 4 4294967296) -> -4294967292) ((1499 . 5625) (- 4 4294967297) -> -4294967293) ((1500 . 5625) (- 4 4294967298) -> -4294967294) ((1501 . 5625) (- -4 -2) -> -2) ((1502 . 5625) (- -4 -1) -> -3) ((1503 . 5625) (- -4 0) -> -4) ((1504 . 5625) (- -4 1) -> -5) ((1505 . 5625) (- -4 2) -> -6) ((1506 . 5625) (- -3 -2) -> -1) ((1507 . 5625) (- -3 -1) -> -2) ((1508 . 5625) (- -3 0) -> -3) ((1509 . 5625) (- -3 1) -> -4) ((1510 . 5625) (- -3 2) -> -5) ((1511 . 5625) (- -2 -2) -> 0) ((1512 . 5625) (- -2 -1) -> -1) ((1513 . 5625) (- -2 0) -> -2) ((1514 . 5625) (- -2 1) -> -3) ((1515 . 5625) (- -2 2) -> -4) ((1516 . 5625) (- -1 -2) -> 1) ((1517 . 5625) (- -1 -1) -> 0) ((1518 . 5625) (- -1 0) -> -1) ((1519 . 5625) (- -1 1) -> -2) ((1520 . 5625) (- -1 2) -> -3) ((1521 . 5625) (- 0 -2) -> 2) ((1522 . 5625) (- 0 -1) -> 1) ((1523 . 5625) (- 0 0) -> 0) ((1524 . 5625) (- 0 1) -> -1) ((1525 . 5625) (- 0 2) -> -2) ((1526 . 5625) (- -4 -1) -> -3) ((1527 . 5625) (- -4 0) -> -4) ((1528 . 5625) (- -4 1) -> -5) ((1529 . 5625) (- -4 2) -> -6) ((1530 . 5625) (- -4 3) -> -7) ((1531 . 5625) (- -3 -1) -> -2) ((1532 . 5625) (- -3 0) -> -3) ((1533 . 5625) (- -3 1) -> -4) ((1534 . 5625) (- -3 2) -> -5) ((1535 . 5625) (- -3 3) -> -6) ((1536 . 5625) (- -2 -1) -> -1) ((1537 . 5625) (- -2 0) -> -2) ((1538 . 5625) (- -2 1) -> -3) ((1539 . 5625) (- -2 2) -> -4) ((1540 . 5625) (- -2 3) -> -5) ((1541 . 5625) (- -1 -1) -> 0) ((1542 . 5625) (- -1 0) -> -1) ((1543 . 5625) (- -1 1) -> -2) ((1544 . 5625) (- -1 2) -> -3) ((1545 . 5625) (- -1 3) -> -4) ((1546 . 5625) (- 0 -1) -> 1) ((1547 . 5625) (- 0 0) -> 0) ((1548 . 5625) (- 0 1) -> -1) ((1549 . 5625) (- 0 2) -> -2) ((1550 . 5625) (- 0 3) -> -3) ((1551 . 5625) (- -4 -3) -> -1) ((1552 . 5625) (- -4 -2) -> -2) ((1553 . 5625) (- -4 -1) -> -3) ((1554 . 5625) (- -4 0) -> -4) ((1555 . 5625) (- -4 1) -> -5) ((1556 . 5625) (- -3 -3) -> 0) ((1557 . 5625) (- -3 -2) -> -1) ((1558 . 5625) (- -3 -1) -> -2) ((1559 . 5625) (- -3 0) -> -3) ((1560 . 5625) (- -3 1) -> -4) ((1561 . 5625) (- -2 -3) -> 1) ((1562 . 5625) (- -2 -2) -> 0) ((1563 . 5625) (- -2 -1) -> -1) ((1564 . 5625) (- -2 0) -> -2) ((1565 . 5625) (- -2 1) -> -3) ((1566 . 5625) (- -1 -3) -> 2) ((1567 . 5625) (- -1 -2) -> 1) ((1568 . 5625) (- -1 -1) -> 0) ((1569 . 5625) (- -1 0) -> -1) ((1570 . 5625) (- -1 1) -> -2) ((1571 . 5625) (- 0 -3) -> 3) ((1572 . 5625) (- 0 -2) -> 2) ((1573 . 5625) (- 0 -1) -> 1) ((1574 . 5625) (- 0 0) -> 0) ((1575 . 5625) (- 0 1) -> -1) ((1576 . 5625) (- -4 0) -> -4) ((1577 . 5625) (- -4 1) -> -5) ((1578 . 5625) (- -4 2) -> -6) ((1579 . 5625) (- -4 3) -> -7) ((1580 . 5625) (- -4 4) -> -8) ((1581 . 5625) (- -3 0) -> -3) ((1582 . 5625) (- -3 1) -> -4) ((1583 . 5625) (- -3 2) -> -5) ((1584 . 5625) (- -3 3) -> -6) ((1585 . 5625) (- -3 4) -> -7) ((1586 . 5625) (- -2 0) -> -2) ((1587 . 5625) (- -2 1) -> -3) ((1588 . 5625) (- -2 2) -> -4) ((1589 . 5625) (- -2 3) -> -5) ((1590 . 5625) (- -2 4) -> -6) ((1591 . 5625) (- -1 0) -> -1) ((1592 . 5625) (- -1 1) -> -2) ((1593 . 5625) (- -1 2) -> -3) ((1594 . 5625) (- -1 3) -> -4) ((1595 . 5625) (- -1 4) -> -5) ((1596 . 5625) (- 0 0) -> 0) ((1597 . 5625) (- 0 1) -> -1) ((1598 . 5625) (- 0 2) -> -2) ((1599 . 5625) (- 0 3) -> -3) ((1600 . 5625) (- 0 4) -> -4) ((1601 . 5625) (- -4 -4) -> 0) ((1602 . 5625) (- -4 -3) -> -1) ((1603 . 5625) (- -4 -2) -> -2) ((1604 . 5625) (- -4 -1) -> -3) ((1605 . 5625) (- -4 0) -> -4) ((1606 . 5625) (- -3 -4) -> 1) ((1607 . 5625) (- -3 -3) -> 0) ((1608 . 5625) (- -3 -2) -> -1) ((1609 . 5625) (- -3 -1) -> -2) ((1610 . 5625) (- -3 0) -> -3) ((1611 . 5625) (- -2 -4) -> 2) ((1612 . 5625) (- -2 -3) -> 1) ((1613 . 5625) (- -2 -2) -> 0) ((1614 . 5625) (- -2 -1) -> -1) ((1615 . 5625) (- -2 0) -> -2) ((1616 . 5625) (- -1 -4) -> 3) ((1617 . 5625) (- -1 -3) -> 2) ((1618 . 5625) (- -1 -2) -> 1) ((1619 . 5625) (- -1 -1) -> 0) ((1620 . 5625) (- -1 0) -> -1) ((1621 . 5625) (- 0 -4) -> 4) ((1622 . 5625) (- 0 -3) -> 3) ((1623 . 5625) (- 0 -2) -> 2) ((1624 . 5625) (- 0 -1) -> 1) ((1625 . 5625) (- 0 0) -> 0) ((1626 . 5625) (- -4 1073741821) -> -1073741825) ((1627 . 5625) (- -4 1073741822) -> -1073741826) ((1628 . 5625) (- -4 1073741823) -> -1073741827) ((1629 . 5625) (- -4 1073741824) -> -1073741828) ((1630 . 5625) (- -4 1073741825) -> -1073741829) ((1631 . 5625) (- -3 1073741821) -> -1073741824) ((1632 . 5625) (- -3 1073741822) -> -1073741825) ((1633 . 5625) (- -3 1073741823) -> -1073741826) ((1634 . 5625) (- -3 1073741824) -> -1073741827) ((1635 . 5625) (- -3 1073741825) -> -1073741828) ((1636 . 5625) (- -2 1073741821) -> -1073741823) ((1637 . 5625) (- -2 1073741822) -> -1073741824) ((1638 . 5625) (- -2 1073741823) -> -1073741825) ((1639 . 5625) (- -2 1073741824) -> -1073741826) ((1640 . 5625) (- -2 1073741825) -> -1073741827) ((1641 . 5625) (- -1 1073741821) -> -1073741822) ((1642 . 5625) (- -1 1073741822) -> -1073741823) ((1643 . 5625) (- -1 1073741823) -> -1073741824) ((1644 . 5625) (- -1 1073741824) -> -1073741825) ((1645 . 5625) (- -1 1073741825) -> -1073741826) ((1646 . 5625) (- 0 1073741821) -> -1073741821) ((1647 . 5625) (- 0 1073741822) -> -1073741822) ((1648 . 5625) (- 0 1073741823) -> -1073741823) ((1649 . 5625) (- 0 1073741824) -> -1073741824) ((1650 . 5625) (- 0 1073741825) -> -1073741825) ((1651 . 5625) (- -4 -1073741826) -> 1073741822) ((1652 . 5625) (- -4 -1073741825) -> 1073741821) ((1653 . 5625) (- -4 -1073741824) -> 1073741820) ((1654 . 5625) (- -4 -1073741823) -> 1073741819) ((1655 . 5625) (- -4 -1073741822) -> 1073741818) ((1656 . 5625) (- -3 -1073741826) -> 1073741823) ((1657 . 5625) (- -3 -1073741825) -> 1073741822) ((1658 . 5625) (- -3 -1073741824) -> 1073741821) ((1659 . 5625) (- -3 -1073741823) -> 1073741820) ((1660 . 5625) (- -3 -1073741822) -> 1073741819) ((1661 . 5625) (- -2 -1073741826) -> 1073741824) ((1662 . 5625) (- -2 -1073741825) -> 1073741823) ((1663 . 5625) (- -2 -1073741824) -> 1073741822) ((1664 . 5625) (- -2 -1073741823) -> 1073741821) ((1665 . 5625) (- -2 -1073741822) -> 1073741820) ((1666 . 5625) (- -1 -1073741826) -> 1073741825) ((1667 . 5625) (- -1 -1073741825) -> 1073741824) ((1668 . 5625) (- -1 -1073741824) -> 1073741823) ((1669 . 5625) (- -1 -1073741823) -> 1073741822) ((1670 . 5625) (- -1 -1073741822) -> 1073741821) ((1671 . 5625) (- 0 -1073741826) -> 1073741826) ((1672 . 5625) (- 0 -1073741825) -> 1073741825) ((1673 . 5625) (- 0 -1073741824) -> 1073741824) ((1674 . 5625) (- 0 -1073741823) -> 1073741823) ((1675 . 5625) (- 0 -1073741822) -> 1073741822) ((1676 . 5625) (- -4 1073741822) -> -1073741826) ((1677 . 5625) (- -4 1073741823) -> -1073741827) ((1678 . 5625) (- -4 1073741824) -> -1073741828) ((1679 . 5625) (- -4 1073741825) -> -1073741829) ((1680 . 5625) (- -4 1073741826) -> -1073741830) ((1681 . 5625) (- -3 1073741822) -> -1073741825) ((1682 . 5625) (- -3 1073741823) -> -1073741826) ((1683 . 5625) (- -3 1073741824) -> -1073741827) ((1684 . 5625) (- -3 1073741825) -> -1073741828) ((1685 . 5625) (- -3 1073741826) -> -1073741829) ((1686 . 5625) (- -2 1073741822) -> -1073741824) ((1687 . 5625) (- -2 1073741823) -> -1073741825) ((1688 . 5625) (- -2 1073741824) -> -1073741826) ((1689 . 5625) (- -2 1073741825) -> -1073741827) ((1690 . 5625) (- -2 1073741826) -> -1073741828) ((1691 . 5625) (- -1 1073741822) -> -1073741823) ((1692 . 5625) (- -1 1073741823) -> -1073741824) ((1693 . 5625) (- -1 1073741824) -> -1073741825) ((1694 . 5625) (- -1 1073741825) -> -1073741826) ((1695 . 5625) (- -1 1073741826) -> -1073741827) ((1696 . 5625) (- 0 1073741822) -> -1073741822) ((1697 . 5625) (- 0 1073741823) -> -1073741823) ((1698 . 5625) (- 0 1073741824) -> -1073741824) ((1699 . 5625) (- 0 1073741825) -> -1073741825) ((1700 . 5625) (- 0 1073741826) -> -1073741826) ((1701 . 5625) (- -4 -1073741827) -> 1073741823) ((1702 . 5625) (- -4 -1073741826) -> 1073741822) ((1703 . 5625) (- -4 -1073741825) -> 1073741821) ((1704 . 5625) (- -4 -1073741824) -> 1073741820) ((1705 . 5625) (- -4 -1073741823) -> 1073741819) ((1706 . 5625) (- -3 -1073741827) -> 1073741824) ((1707 . 5625) (- -3 -1073741826) -> 1073741823) ((1708 . 5625) (- -3 -1073741825) -> 1073741822) ((1709 . 5625) (- -3 -1073741824) -> 1073741821) ((1710 . 5625) (- -3 -1073741823) -> 1073741820) ((1711 . 5625) (- -2 -1073741827) -> 1073741825) ((1712 . 5625) (- -2 -1073741826) -> 1073741824) ((1713 . 5625) (- -2 -1073741825) -> 1073741823) ((1714 . 5625) (- -2 -1073741824) -> 1073741822) ((1715 . 5625) (- -2 -1073741823) -> 1073741821) ((1716 . 5625) (- -1 -1073741827) -> 1073741826) ((1717 . 5625) (- -1 -1073741826) -> 1073741825) ((1718 . 5625) (- -1 -1073741825) -> 1073741824) ((1719 . 5625) (- -1 -1073741824) -> 1073741823) ((1720 . 5625) (- -1 -1073741823) -> 1073741822) ((1721 . 5625) (- 0 -1073741827) -> 1073741827) ((1722 . 5625) (- 0 -1073741826) -> 1073741826) ((1723 . 5625) (- 0 -1073741825) -> 1073741825) ((1724 . 5625) (- 0 -1073741824) -> 1073741824) ((1725 . 5625) (- 0 -1073741823) -> 1073741823) ((1726 . 5625) (- -4 1103515243) -> -1103515247) ((1727 . 5625) (- -4 1103515244) -> -1103515248) ((1728 . 5625) (- -4 1103515245) -> -1103515249) ((1729 . 5625) (- -4 1103515246) -> -1103515250) ((1730 . 5625) (- -4 1103515247) -> -1103515251) ((1731 . 5625) (- -3 1103515243) -> -1103515246) ((1732 . 5625) (- -3 1103515244) -> -1103515247) ((1733 . 5625) (- -3 1103515245) -> -1103515248) ((1734 . 5625) (- -3 1103515246) -> -1103515249) ((1735 . 5625) (- -3 1103515247) -> -1103515250) ((1736 . 5625) (- -2 1103515243) -> -1103515245) ((1737 . 5625) (- -2 1103515244) -> -1103515246) ((1738 . 5625) (- -2 1103515245) -> -1103515247) ((1739 . 5625) (- -2 1103515246) -> -1103515248) ((1740 . 5625) (- -2 1103515247) -> -1103515249) ((1741 . 5625) (- -1 1103515243) -> -1103515244) ((1742 . 5625) (- -1 1103515244) -> -1103515245) ((1743 . 5625) (- -1 1103515245) -> -1103515246) ((1744 . 5625) (- -1 1103515246) -> -1103515247) ((1745 . 5625) (- -1 1103515247) -> -1103515248) ((1746 . 5625) (- 0 1103515243) -> -1103515243) ((1747 . 5625) (- 0 1103515244) -> -1103515244) ((1748 . 5625) (- 0 1103515245) -> -1103515245) ((1749 . 5625) (- 0 1103515246) -> -1103515246) ((1750 . 5625) (- 0 1103515247) -> -1103515247) ((1751 . 5625) (- -4 631629063) -> -631629067) ((1752 . 5625) (- -4 631629064) -> -631629068) ((1753 . 5625) (- -4 631629065) -> -631629069) ((1754 . 5625) (- -4 631629066) -> -631629070) ((1755 . 5625) (- -4 631629067) -> -631629071) ((1756 . 5625) (- -3 631629063) -> -631629066) ((1757 . 5625) (- -3 631629064) -> -631629067) ((1758 . 5625) (- -3 631629065) -> -631629068) ((1759 . 5625) (- -3 631629066) -> -631629069) ((1760 . 5625) (- -3 631629067) -> -631629070) ((1761 . 5625) (- -2 631629063) -> -631629065) ((1762 . 5625) (- -2 631629064) -> -631629066) ((1763 . 5625) (- -2 631629065) -> -631629067) ((1764 . 5625) (- -2 631629066) -> -631629068) ((1765 . 5625) (- -2 631629067) -> -631629069) ((1766 . 5625) (- -1 631629063) -> -631629064) ((1767 . 5625) (- -1 631629064) -> -631629065) ((1768 . 5625) (- -1 631629065) -> -631629066) ((1769 . 5625) (- -1 631629066) -> -631629067) ((1770 . 5625) (- -1 631629067) -> -631629068) ((1771 . 5625) (- 0 631629063) -> -631629063) ((1772 . 5625) (- 0 631629064) -> -631629064) ((1773 . 5625) (- 0 631629065) -> -631629065) ((1774 . 5625) (- 0 631629066) -> -631629066) ((1775 . 5625) (- 0 631629067) -> -631629067) ((1776 . 5625) (- -4 9007199254740990) -> -9007199254740994) ((1777 . 5625) (- -4 9007199254740991) -> -9007199254740995) ((1778 . 5625) (- -4 9007199254740992) -> -9007199254740996) ((1779 . 5625) (- -4 9007199254740993) -> -9007199254740997) ((1780 . 5625) (- -4 9007199254740994) -> -9007199254740998) ((1781 . 5625) (- -3 9007199254740990) -> -9007199254740993) ((1782 . 5625) (- -3 9007199254740991) -> -9007199254740994) ((1783 . 5625) (- -3 9007199254740992) -> -9007199254740995) ((1784 . 5625) (- -3 9007199254740993) -> -9007199254740996) ((1785 . 5625) (- -3 9007199254740994) -> -9007199254740997) ((1786 . 5625) (- -2 9007199254740990) -> -9007199254740992) ((1787 . 5625) (- -2 9007199254740991) -> -9007199254740993) ((1788 . 5625) (- -2 9007199254740992) -> -9007199254740994) ((1789 . 5625) (- -2 9007199254740993) -> -9007199254740995) ((1790 . 5625) (- -2 9007199254740994) -> -9007199254740996) ((1791 . 5625) (- -1 9007199254740990) -> -9007199254740991) ((1792 . 5625) (- -1 9007199254740991) -> -9007199254740992) ((1793 . 5625) (- -1 9007199254740992) -> -9007199254740993) ((1794 . 5625) (- -1 9007199254740993) -> -9007199254740994) ((1795 . 5625) (- -1 9007199254740994) -> -9007199254740995) ((1796 . 5625) (- 0 9007199254740990) -> -9007199254740990) ((1797 . 5625) (- 0 9007199254740991) -> -9007199254740991) ((1798 . 5625) (- 0 9007199254740992) -> -9007199254740992) ((1799 . 5625) (- 0 9007199254740993) -> -9007199254740993) ((1800 . 5625) (- 0 9007199254740994) -> -9007199254740994) ((1801 . 5625) (- -4 -9007199254740994) -> 9007199254740990) ((1802 . 5625) (- -4 -9007199254740993) -> 9007199254740989) ((1803 . 5625) (- -4 -9007199254740992) -> 9007199254740988) ((1804 . 5625) (- -4 -9007199254740991) -> 9007199254740987) ((1805 . 5625) (- -4 -9007199254740990) -> 9007199254740986) ((1806 . 5625) (- -3 -9007199254740994) -> 9007199254740991) ((1807 . 5625) (- -3 -9007199254740993) -> 9007199254740990) ((1808 . 5625) (- -3 -9007199254740992) -> 9007199254740989) ((1809 . 5625) (- -3 -9007199254740991) -> 9007199254740988) ((1810 . 5625) (- -3 -9007199254740990) -> 9007199254740987) ((1811 . 5625) (- -2 -9007199254740994) -> 9007199254740992) ((1812 . 5625) (- -2 -9007199254740993) -> 9007199254740991) ((1813 . 5625) (- -2 -9007199254740992) -> 9007199254740990) ((1814 . 5625) (- -2 -9007199254740991) -> 9007199254740989) ((1815 . 5625) (- -2 -9007199254740990) -> 9007199254740988) ((1816 . 5625) (- -1 -9007199254740994) -> 9007199254740993) ((1817 . 5625) (- -1 -9007199254740993) -> 9007199254740992) ((1818 . 5625) (- -1 -9007199254740992) -> 9007199254740991) ((1819 . 5625) (- -1 -9007199254740991) -> 9007199254740990) ((1820 . 5625) (- -1 -9007199254740990) -> 9007199254740989) ((1821 . 5625) (- 0 -9007199254740994) -> 9007199254740994) ((1822 . 5625) (- 0 -9007199254740993) -> 9007199254740993) ((1823 . 5625) (- 0 -9007199254740992) -> 9007199254740992) ((1824 . 5625) (- 0 -9007199254740991) -> 9007199254740991) ((1825 . 5625) (- 0 -9007199254740990) -> 9007199254740990) ((1826 . 5625) (- -4 12343) -> -12347) ((1827 . 5625) (- -4 12344) -> -12348) ((1828 . 5625) (- -4 12345) -> -12349) ((1829 . 5625) (- -4 12346) -> -12350) ((1830 . 5625) (- -4 12347) -> -12351) ((1831 . 5625) (- -3 12343) -> -12346) ((1832 . 5625) (- -3 12344) -> -12347) ((1833 . 5625) (- -3 12345) -> -12348) ((1834 . 5625) (- -3 12346) -> -12349) ((1835 . 5625) (- -3 12347) -> -12350) ((1836 . 5625) (- -2 12343) -> -12345) ((1837 . 5625) (- -2 12344) -> -12346) ((1838 . 5625) (- -2 12345) -> -12347) ((1839 . 5625) (- -2 12346) -> -12348) ((1840 . 5625) (- -2 12347) -> -12349) ((1841 . 5625) (- -1 12343) -> -12344) ((1842 . 5625) (- -1 12344) -> -12345) ((1843 . 5625) (- -1 12345) -> -12346) ((1844 . 5625) (- -1 12346) -> -12347) ((1845 . 5625) (- -1 12347) -> -12348) ((1846 . 5625) (- 0 12343) -> -12343) ((1847 . 5625) (- 0 12344) -> -12344) ((1848 . 5625) (- 0 12345) -> -12345) ((1849 . 5625) (- 0 12346) -> -12346) ((1850 . 5625) (- 0 12347) -> -12347) ((1851 . 5625) (- -4 4294967294) -> -4294967298) ((1852 . 5625) (- -4 4294967295) -> -4294967299) ((1853 . 5625) (- -4 4294967296) -> -4294967300) ((1854 . 5625) (- -4 4294967297) -> -4294967301) ((1855 . 5625) (- -4 4294967298) -> -4294967302) ((1856 . 5625) (- -3 4294967294) -> -4294967297) ((1857 . 5625) (- -3 4294967295) -> -4294967298) ((1858 . 5625) (- -3 4294967296) -> -4294967299) ((1859 . 5625) (- -3 4294967297) -> -4294967300) ((1860 . 5625) (- -3 4294967298) -> -4294967301) ((1861 . 5625) (- -2 4294967294) -> -4294967296) ((1862 . 5625) (- -2 4294967295) -> -4294967297) ((1863 . 5625) (- -2 4294967296) -> -4294967298) ((1864 . 5625) (- -2 4294967297) -> -4294967299) ((1865 . 5625) (- -2 4294967298) -> -4294967300) ((1866 . 5625) (- -1 4294967294) -> -4294967295) ((1867 . 5625) (- -1 4294967295) -> -4294967296) ((1868 . 5625) (- -1 4294967296) -> -4294967297) ((1869 . 5625) (- -1 4294967297) -> -4294967298) ((1870 . 5625) (- -1 4294967298) -> -4294967299) ((1871 . 5625) (- 0 4294967294) -> -4294967294) ((1872 . 5625) (- 0 4294967295) -> -4294967295) ((1873 . 5625) (- 0 4294967296) -> -4294967296) ((1874 . 5625) (- 0 4294967297) -> -4294967297) ((1875 . 5625) (- 0 4294967298) -> -4294967298) ((1876 . 5625) (- 1073741821 -2) -> 1073741823) ((1877 . 5625) (- 1073741821 -1) -> 1073741822) ((1878 . 5625) (- 1073741821 0) -> 1073741821) ((1879 . 5625) (- 1073741821 1) -> 1073741820) ((1880 . 5625) (- 1073741821 2) -> 1073741819) ((1881 . 5625) (- 1073741822 -2) -> 1073741824) ((1882 . 5625) (- 1073741822 -1) -> 1073741823) ((1883 . 5625) (- 1073741822 0) -> 1073741822) ((1884 . 5625) (- 1073741822 1) -> 1073741821) ((1885 . 5625) (- 1073741822 2) -> 1073741820) ((1886 . 5625) (- 1073741823 -2) -> 1073741825) ((1887 . 5625) (- 1073741823 -1) -> 1073741824) ((1888 . 5625) (- 1073741823 0) -> 1073741823) ((1889 . 5625) (- 1073741823 1) -> 1073741822) ((1890 . 5625) (- 1073741823 2) -> 1073741821) ((1891 . 5625) (- 1073741824 -2) -> 1073741826) ((1892 . 5625) (- 1073741824 -1) -> 1073741825) ((1893 . 5625) (- 1073741824 0) -> 1073741824) ((1894 . 5625) (- 1073741824 1) -> 1073741823) ((1895 . 5625) (- 1073741824 2) -> 1073741822) ((1896 . 5625) (- 1073741825 -2) -> 1073741827) ((1897 . 5625) (- 1073741825 -1) -> 1073741826) ((1898 . 5625) (- 1073741825 0) -> 1073741825) ((1899 . 5625) (- 1073741825 1) -> 1073741824) ((1900 . 5625) (- 1073741825 2) -> 1073741823) ((1901 . 5625) (- 1073741821 -1) -> 1073741822) ((1902 . 5625) (- 1073741821 0) -> 1073741821) ((1903 . 5625) (- 1073741821 1) -> 1073741820) ((1904 . 5625) (- 1073741821 2) -> 1073741819) ((1905 . 5625) (- 1073741821 3) -> 1073741818) ((1906 . 5625) (- 1073741822 -1) -> 1073741823) ((1907 . 5625) (- 1073741822 0) -> 1073741822) ((1908 . 5625) (- 1073741822 1) -> 1073741821) ((1909 . 5625) (- 1073741822 2) -> 1073741820) ((1910 . 5625) (- 1073741822 3) -> 1073741819) ((1911 . 5625) (- 1073741823 -1) -> 1073741824) ((1912 . 5625) (- 1073741823 0) -> 1073741823) ((1913 . 5625) (- 1073741823 1) -> 1073741822) ((1914 . 5625) (- 1073741823 2) -> 1073741821) ((1915 . 5625) (- 1073741823 3) -> 1073741820) ((1916 . 5625) (- 1073741824 -1) -> 1073741825) ((1917 . 5625) (- 1073741824 0) -> 1073741824) ((1918 . 5625) (- 1073741824 1) -> 1073741823) ((1919 . 5625) (- 1073741824 2) -> 1073741822) ((1920 . 5625) (- 1073741824 3) -> 1073741821) ((1921 . 5625) (- 1073741825 -1) -> 1073741826) ((1922 . 5625) (- 1073741825 0) -> 1073741825) ((1923 . 5625) (- 1073741825 1) -> 1073741824) ((1924 . 5625) (- 1073741825 2) -> 1073741823) ((1925 . 5625) (- 1073741825 3) -> 1073741822) ((1926 . 5625) (- 1073741821 -3) -> 1073741824) ((1927 . 5625) (- 1073741821 -2) -> 1073741823) ((1928 . 5625) (- 1073741821 -1) -> 1073741822) ((1929 . 5625) (- 1073741821 0) -> 1073741821) ((1930 . 5625) (- 1073741821 1) -> 1073741820) ((1931 . 5625) (- 1073741822 -3) -> 1073741825) ((1932 . 5625) (- 1073741822 -2) -> 1073741824) ((1933 . 5625) (- 1073741822 -1) -> 1073741823) ((1934 . 5625) (- 1073741822 0) -> 1073741822) ((1935 . 5625) (- 1073741822 1) -> 1073741821) ((1936 . 5625) (- 1073741823 -3) -> 1073741826) ((1937 . 5625) (- 1073741823 -2) -> 1073741825) ((1938 . 5625) (- 1073741823 -1) -> 1073741824) ((1939 . 5625) (- 1073741823 0) -> 1073741823) ((1940 . 5625) (- 1073741823 1) -> 1073741822) ((1941 . 5625) (- 1073741824 -3) -> 1073741827) ((1942 . 5625) (- 1073741824 -2) -> 1073741826) ((1943 . 5625) (- 1073741824 -1) -> 1073741825) ((1944 . 5625) (- 1073741824 0) -> 1073741824) ((1945 . 5625) (- 1073741824 1) -> 1073741823) ((1946 . 5625) (- 1073741825 -3) -> 1073741828) ((1947 . 5625) (- 1073741825 -2) -> 1073741827) ((1948 . 5625) (- 1073741825 -1) -> 1073741826) ((1949 . 5625) (- 1073741825 0) -> 1073741825) ((1950 . 5625) (- 1073741825 1) -> 1073741824) ((1951 . 5625) (- 1073741821 0) -> 1073741821) ((1952 . 5625) (- 1073741821 1) -> 1073741820) ((1953 . 5625) (- 1073741821 2) -> 1073741819) ((1954 . 5625) (- 1073741821 3) -> 1073741818) ((1955 . 5625) (- 1073741821 4) -> 1073741817) ((1956 . 5625) (- 1073741822 0) -> 1073741822) ((1957 . 5625) (- 1073741822 1) -> 1073741821) ((1958 . 5625) (- 1073741822 2) -> 1073741820) ((1959 . 5625) (- 1073741822 3) -> 1073741819) ((1960 . 5625) (- 1073741822 4) -> 1073741818) ((1961 . 5625) (- 1073741823 0) -> 1073741823) ((1962 . 5625) (- 1073741823 1) -> 1073741822) ((1963 . 5625) (- 1073741823 2) -> 1073741821) ((1964 . 5625) (- 1073741823 3) -> 1073741820) ((1965 . 5625) (- 1073741823 4) -> 1073741819) ((1966 . 5625) (- 1073741824 0) -> 1073741824) ((1967 . 5625) (- 1073741824 1) -> 1073741823) ((1968 . 5625) (- 1073741824 2) -> 1073741822) ((1969 . 5625) (- 1073741824 3) -> 1073741821) ((1970 . 5625) (- 1073741824 4) -> 1073741820) ((1971 . 5625) (- 1073741825 0) -> 1073741825) ((1972 . 5625) (- 1073741825 1) -> 1073741824) ((1973 . 5625) (- 1073741825 2) -> 1073741823) ((1974 . 5625) (- 1073741825 3) -> 1073741822) ((1975 . 5625) (- 1073741825 4) -> 1073741821) ((1976 . 5625) (- 1073741821 -4) -> 1073741825) ((1977 . 5625) (- 1073741821 -3) -> 1073741824) ((1978 . 5625) (- 1073741821 -2) -> 1073741823) ((1979 . 5625) (- 1073741821 -1) -> 1073741822) ((1980 . 5625) (- 1073741821 0) -> 1073741821) ((1981 . 5625) (- 1073741822 -4) -> 1073741826) ((1982 . 5625) (- 1073741822 -3) -> 1073741825) ((1983 . 5625) (- 1073741822 -2) -> 1073741824) ((1984 . 5625) (- 1073741822 -1) -> 1073741823) ((1985 . 5625) (- 1073741822 0) -> 1073741822) ((1986 . 5625) (- 1073741823 -4) -> 1073741827) ((1987 . 5625) (- 1073741823 -3) -> 1073741826) ((1988 . 5625) (- 1073741823 -2) -> 1073741825) ((1989 . 5625) (- 1073741823 -1) -> 1073741824) ((1990 . 5625) (- 1073741823 0) -> 1073741823) ((1991 . 5625) (- 1073741824 -4) -> 1073741828) ((1992 . 5625) (- 1073741824 -3) -> 1073741827) ((1993 . 5625) (- 1073741824 -2) -> 1073741826) ((1994 . 5625) (- 1073741824 -1) -> 1073741825) ((1995 . 5625) (- 1073741824 0) -> 1073741824) ((1996 . 5625) (- 1073741825 -4) -> 1073741829) ((1997 . 5625) (- 1073741825 -3) -> 1073741828) ((1998 . 5625) (- 1073741825 -2) -> 1073741827) ((1999 . 5625) (- 1073741825 -1) -> 1073741826) ((2000 . 5625) (- 1073741825 0) -> 1073741825) ((2001 . 5625) (- 1073741821 1073741821) -> 0) ((2002 . 5625) (- 1073741821 1073741822) -> -1) ((2003 . 5625) (- 1073741821 1073741823) -> -2) ((2004 . 5625) (- 1073741821 1073741824) -> -3) ((2005 . 5625) (- 1073741821 1073741825) -> -4) ((2006 . 5625) (- 1073741822 1073741821) -> 1) ((2007 . 5625) (- 1073741822 1073741822) -> 0) ((2008 . 5625) (- 1073741822 1073741823) -> -1) ((2009 . 5625) (- 1073741822 1073741824) -> -2) ((2010 . 5625) (- 1073741822 1073741825) -> -3) ((2011 . 5625) (- 1073741823 1073741821) -> 2) ((2012 . 5625) (- 1073741823 1073741822) -> 1) ((2013 . 5625) (- 1073741823 1073741823) -> 0) ((2014 . 5625) (- 1073741823 1073741824) -> -1) ((2015 . 5625) (- 1073741823 1073741825) -> -2) ((2016 . 5625) (- 1073741824 1073741821) -> 3) ((2017 . 5625) (- 1073741824 1073741822) -> 2) ((2018 . 5625) (- 1073741824 1073741823) -> 1) ((2019 . 5625) (- 1073741824 1073741824) -> 0) ((2020 . 5625) (- 1073741824 1073741825) -> -1) ((2021 . 5625) (- 1073741825 1073741821) -> 4) ((2022 . 5625) (- 1073741825 1073741822) -> 3) ((2023 . 5625) (- 1073741825 1073741823) -> 2) ((2024 . 5625) (- 1073741825 1073741824) -> 1) ((2025 . 5625) (- 1073741825 1073741825) -> 0) ((2026 . 5625) (- 1073741821 -1073741826) -> 2147483647) ((2027 . 5625) (- 1073741821 -1073741825) -> 2147483646) ((2028 . 5625) (- 1073741821 -1073741824) -> 2147483645) ((2029 . 5625) (- 1073741821 -1073741823) -> 2147483644) ((2030 . 5625) (- 1073741821 -1073741822) -> 2147483643) ((2031 . 5625) (- 1073741822 -1073741826) -> 2147483648) ((2032 . 5625) (- 1073741822 -1073741825) -> 2147483647) ((2033 . 5625) (- 1073741822 -1073741824) -> 2147483646) ((2034 . 5625) (- 1073741822 -1073741823) -> 2147483645) ((2035 . 5625) (- 1073741822 -1073741822) -> 2147483644) ((2036 . 5625) (- 1073741823 -1073741826) -> 2147483649) ((2037 . 5625) (- 1073741823 -1073741825) -> 2147483648) ((2038 . 5625) (- 1073741823 -1073741824) -> 2147483647) ((2039 . 5625) (- 1073741823 -1073741823) -> 2147483646) ((2040 . 5625) (- 1073741823 -1073741822) -> 2147483645) ((2041 . 5625) (- 1073741824 -1073741826) -> 2147483650) ((2042 . 5625) (- 1073741824 -1073741825) -> 2147483649) ((2043 . 5625) (- 1073741824 -1073741824) -> 2147483648) ((2044 . 5625) (- 1073741824 -1073741823) -> 2147483647) ((2045 . 5625) (- 1073741824 -1073741822) -> 2147483646) ((2046 . 5625) (- 1073741825 -1073741826) -> 2147483651) ((2047 . 5625) (- 1073741825 -1073741825) -> 2147483650) ((2048 . 5625) (- 1073741825 -1073741824) -> 2147483649) ((2049 . 5625) (- 1073741825 -1073741823) -> 2147483648) ((2050 . 5625) (- 1073741825 -1073741822) -> 2147483647) ((2051 . 5625) (- 1073741821 1073741822) -> -1) ((2052 . 5625) (- 1073741821 1073741823) -> -2) ((2053 . 5625) (- 1073741821 1073741824) -> -3) ((2054 . 5625) (- 1073741821 1073741825) -> -4) ((2055 . 5625) (- 1073741821 1073741826) -> -5) ((2056 . 5625) (- 1073741822 1073741822) -> 0) ((2057 . 5625) (- 1073741822 1073741823) -> -1) ((2058 . 5625) (- 1073741822 1073741824) -> -2) ((2059 . 5625) (- 1073741822 1073741825) -> -3) ((2060 . 5625) (- 1073741822 1073741826) -> -4) ((2061 . 5625) (- 1073741823 1073741822) -> 1) ((2062 . 5625) (- 1073741823 1073741823) -> 0) ((2063 . 5625) (- 1073741823 1073741824) -> -1) ((2064 . 5625) (- 1073741823 1073741825) -> -2) ((2065 . 5625) (- 1073741823 1073741826) -> -3) ((2066 . 5625) (- 1073741824 1073741822) -> 2) ((2067 . 5625) (- 1073741824 1073741823) -> 1) ((2068 . 5625) (- 1073741824 1073741824) -> 0) ((2069 . 5625) (- 1073741824 1073741825) -> -1) ((2070 . 5625) (- 1073741824 1073741826) -> -2) ((2071 . 5625) (- 1073741825 1073741822) -> 3) ((2072 . 5625) (- 1073741825 1073741823) -> 2) ((2073 . 5625) (- 1073741825 1073741824) -> 1) ((2074 . 5625) (- 1073741825 1073741825) -> 0) ((2075 . 5625) (- 1073741825 1073741826) -> -1) ((2076 . 5625) (- 1073741821 -1073741827) -> 2147483648) ((2077 . 5625) (- 1073741821 -1073741826) -> 2147483647) ((2078 . 5625) (- 1073741821 -1073741825) -> 2147483646) ((2079 . 5625) (- 1073741821 -1073741824) -> 2147483645) ((2080 . 5625) (- 1073741821 -1073741823) -> 2147483644) ((2081 . 5625) (- 1073741822 -1073741827) -> 2147483649) ((2082 . 5625) (- 1073741822 -1073741826) -> 2147483648) ((2083 . 5625) (- 1073741822 -1073741825) -> 2147483647) ((2084 . 5625) (- 1073741822 -1073741824) -> 2147483646) ((2085 . 5625) (- 1073741822 -1073741823) -> 2147483645) ((2086 . 5625) (- 1073741823 -1073741827) -> 2147483650) ((2087 . 5625) (- 1073741823 -1073741826) -> 2147483649) ((2088 . 5625) (- 1073741823 -1073741825) -> 2147483648) ((2089 . 5625) (- 1073741823 -1073741824) -> 2147483647) ((2090 . 5625) (- 1073741823 -1073741823) -> 2147483646) ((2091 . 5625) (- 1073741824 -1073741827) -> 2147483651) ((2092 . 5625) (- 1073741824 -1073741826) -> 2147483650) ((2093 . 5625) (- 1073741824 -1073741825) -> 2147483649) ((2094 . 5625) (- 1073741824 -1073741824) -> 2147483648) ((2095 . 5625) (- 1073741824 -1073741823) -> 2147483647) ((2096 . 5625) (- 1073741825 -1073741827) -> 2147483652) ((2097 . 5625) (- 1073741825 -1073741826) -> 2147483651) ((2098 . 5625) (- 1073741825 -1073741825) -> 2147483650) ((2099 . 5625) (- 1073741825 -1073741824) -> 2147483649) ((2100 . 5625) (- 1073741825 -1073741823) -> 2147483648) ((2101 . 5625) (- 1073741821 1103515243) -> -29773422) ((2102 . 5625) (- 1073741821 1103515244) -> -29773423) ((2103 . 5625) (- 1073741821 1103515245) -> -29773424) ((2104 . 5625) (- 1073741821 1103515246) -> -29773425) ((2105 . 5625) (- 1073741821 1103515247) -> -29773426) ((2106 . 5625) (- 1073741822 1103515243) -> -29773421) ((2107 . 5625) (- 1073741822 1103515244) -> -29773422) ((2108 . 5625) (- 1073741822 1103515245) -> -29773423) ((2109 . 5625) (- 1073741822 1103515246) -> -29773424) ((2110 . 5625) (- 1073741822 1103515247) -> -29773425) ((2111 . 5625) (- 1073741823 1103515243) -> -29773420) ((2112 . 5625) (- 1073741823 1103515244) -> -29773421) ((2113 . 5625) (- 1073741823 1103515245) -> -29773422) ((2114 . 5625) (- 1073741823 1103515246) -> -29773423) ((2115 . 5625) (- 1073741823 1103515247) -> -29773424) ((2116 . 5625) (- 1073741824 1103515243) -> -29773419) ((2117 . 5625) (- 1073741824 1103515244) -> -29773420) ((2118 . 5625) (- 1073741824 1103515245) -> -29773421) ((2119 . 5625) (- 1073741824 1103515246) -> -29773422) ((2120 . 5625) (- 1073741824 1103515247) -> -29773423) ((2121 . 5625) (- 1073741825 1103515243) -> -29773418) ((2122 . 5625) (- 1073741825 1103515244) -> -29773419) ((2123 . 5625) (- 1073741825 1103515245) -> -29773420) ((2124 . 5625) (- 1073741825 1103515246) -> -29773421) ((2125 . 5625) (- 1073741825 1103515247) -> -29773422) ((2126 . 5625) (- 1073741821 631629063) -> 442112758) ((2127 . 5625) (- 1073741821 631629064) -> 442112757) ((2128 . 5625) (- 1073741821 631629065) -> 442112756) ((2129 . 5625) (- 1073741821 631629066) -> 442112755) ((2130 . 5625) (- 1073741821 631629067) -> 442112754) ((2131 . 5625) (- 1073741822 631629063) -> 442112759) ((2132 . 5625) (- 1073741822 631629064) -> 442112758) ((2133 . 5625) (- 1073741822 631629065) -> 442112757) ((2134 . 5625) (- 1073741822 631629066) -> 442112756) ((2135 . 5625) (- 1073741822 631629067) -> 442112755) ((2136 . 5625) (- 1073741823 631629063) -> 442112760) ((2137 . 5625) (- 1073741823 631629064) -> 442112759) ((2138 . 5625) (- 1073741823 631629065) -> 442112758) ((2139 . 5625) (- 1073741823 631629066) -> 442112757) ((2140 . 5625) (- 1073741823 631629067) -> 442112756) ((2141 . 5625) (- 1073741824 631629063) -> 442112761) ((2142 . 5625) (- 1073741824 631629064) -> 442112760) ((2143 . 5625) (- 1073741824 631629065) -> 442112759) ((2144 . 5625) (- 1073741824 631629066) -> 442112758) ((2145 . 5625) (- 1073741824 631629067) -> 442112757) ((2146 . 5625) (- 1073741825 631629063) -> 442112762) ((2147 . 5625) (- 1073741825 631629064) -> 442112761) ((2148 . 5625) (- 1073741825 631629065) -> 442112760) ((2149 . 5625) (- 1073741825 631629066) -> 442112759) ((2150 . 5625) (- 1073741825 631629067) -> 442112758) ((2151 . 5625) (- 1073741821 9007199254740990) -> -9007198180999169) ((2152 . 5625) (- 1073741821 9007199254740991) -> -9007198180999170) ((2153 . 5625) (- 1073741821 9007199254740992) -> -9007198180999171) ((2154 . 5625) (- 1073741821 9007199254740993) -> -9007198180999172) ((2155 . 5625) (- 1073741821 9007199254740994) -> -9007198180999173) ((2156 . 5625) (- 1073741822 9007199254740990) -> -9007198180999168) ((2157 . 5625) (- 1073741822 9007199254740991) -> -9007198180999169) ((2158 . 5625) (- 1073741822 9007199254740992) -> -9007198180999170) ((2159 . 5625) (- 1073741822 9007199254740993) -> -9007198180999171) ((2160 . 5625) (- 1073741822 9007199254740994) -> -9007198180999172) ((2161 . 5625) (- 1073741823 9007199254740990) -> -9007198180999167) ((2162 . 5625) (- 1073741823 9007199254740991) -> -9007198180999168) ((2163 . 5625) (- 1073741823 9007199254740992) -> -9007198180999169) ((2164 . 5625) (- 1073741823 9007199254740993) -> -9007198180999170) ((2165 . 5625) (- 1073741823 9007199254740994) -> -9007198180999171) ((2166 . 5625) (- 1073741824 9007199254740990) -> -9007198180999166) ((2167 . 5625) (- 1073741824 9007199254740991) -> -9007198180999167) ((2168 . 5625) (- 1073741824 9007199254740992) -> -9007198180999168) ((2169 . 5625) (- 1073741824 9007199254740993) -> -9007198180999169) ((2170 . 5625) (- 1073741824 9007199254740994) -> -9007198180999170) ((2171 . 5625) (- 1073741825 9007199254740990) -> -9007198180999165) ((2172 . 5625) (- 1073741825 9007199254740991) -> -9007198180999166) ((2173 . 5625) (- 1073741825 9007199254740992) -> -9007198180999167) ((2174 . 5625) (- 1073741825 9007199254740993) -> -9007198180999168) ((2175 . 5625) (- 1073741825 9007199254740994) -> -9007198180999169) ((2176 . 5625) (- 1073741821 -9007199254740994) -> 9007200328482815) ((2177 . 5625) (- 1073741821 -9007199254740993) -> 9007200328482814) ((2178 . 5625) (- 1073741821 -9007199254740992) -> 9007200328482813) ((2179 . 5625) (- 1073741821 -9007199254740991) -> 9007200328482812) ((2180 . 5625) (- 1073741821 -9007199254740990) -> 9007200328482811) ((2181 . 5625) (- 1073741822 -9007199254740994) -> 9007200328482816) ((2182 . 5625) (- 1073741822 -9007199254740993) -> 9007200328482815) ((2183 . 5625) (- 1073741822 -9007199254740992) -> 9007200328482814) ((2184 . 5625) (- 1073741822 -9007199254740991) -> 9007200328482813) ((2185 . 5625) (- 1073741822 -9007199254740990) -> 9007200328482812) ((2186 . 5625) (- 1073741823 -9007199254740994) -> 9007200328482817) ((2187 . 5625) (- 1073741823 -9007199254740993) -> 9007200328482816) ((2188 . 5625) (- 1073741823 -9007199254740992) -> 9007200328482815) ((2189 . 5625) (- 1073741823 -9007199254740991) -> 9007200328482814) ((2190 . 5625) (- 1073741823 -9007199254740990) -> 9007200328482813) ((2191 . 5625) (- 1073741824 -9007199254740994) -> 9007200328482818) ((2192 . 5625) (- 1073741824 -9007199254740993) -> 9007200328482817) ((2193 . 5625) (- 1073741824 -9007199254740992) -> 9007200328482816) ((2194 . 5625) (- 1073741824 -9007199254740991) -> 9007200328482815) ((2195 . 5625) (- 1073741824 -9007199254740990) -> 9007200328482814) ((2196 . 5625) (- 1073741825 -9007199254740994) -> 9007200328482819) ((2197 . 5625) (- 1073741825 -9007199254740993) -> 9007200328482818) ((2198 . 5625) (- 1073741825 -9007199254740992) -> 9007200328482817) ((2199 . 5625) (- 1073741825 -9007199254740991) -> 9007200328482816) ((2200 . 5625) (- 1073741825 -9007199254740990) -> 9007200328482815) ((2201 . 5625) (- 1073741821 12343) -> 1073729478) ((2202 . 5625) (- 1073741821 12344) -> 1073729477) ((2203 . 5625) (- 1073741821 12345) -> 1073729476) ((2204 . 5625) (- 1073741821 12346) -> 1073729475) ((2205 . 5625) (- 1073741821 12347) -> 1073729474) ((2206 . 5625) (- 1073741822 12343) -> 1073729479) ((2207 . 5625) (- 1073741822 12344) -> 1073729478) ((2208 . 5625) (- 1073741822 12345) -> 1073729477) ((2209 . 5625) (- 1073741822 12346) -> 1073729476) ((2210 . 5625) (- 1073741822 12347) -> 1073729475) ((2211 . 5625) (- 1073741823 12343) -> 1073729480) ((2212 . 5625) (- 1073741823 12344) -> 1073729479) ((2213 . 5625) (- 1073741823 12345) -> 1073729478) ((2214 . 5625) (- 1073741823 12346) -> 1073729477) ((2215 . 5625) (- 1073741823 12347) -> 1073729476) ((2216 . 5625) (- 1073741824 12343) -> 1073729481) ((2217 . 5625) (- 1073741824 12344) -> 1073729480) ((2218 . 5625) (- 1073741824 12345) -> 1073729479) ((2219 . 5625) (- 1073741824 12346) -> 1073729478) ((2220 . 5625) (- 1073741824 12347) -> 1073729477) ((2221 . 5625) (- 1073741825 12343) -> 1073729482) ((2222 . 5625) (- 1073741825 12344) -> 1073729481) ((2223 . 5625) (- 1073741825 12345) -> 1073729480) ((2224 . 5625) (- 1073741825 12346) -> 1073729479) ((2225 . 5625) (- 1073741825 12347) -> 1073729478) ((2226 . 5625) (- 1073741821 4294967294) -> -3221225473) ((2227 . 5625) (- 1073741821 4294967295) -> -3221225474) ((2228 . 5625) (- 1073741821 4294967296) -> -3221225475) ((2229 . 5625) (- 1073741821 4294967297) -> -3221225476) ((2230 . 5625) (- 1073741821 4294967298) -> -3221225477) ((2231 . 5625) (- 1073741822 4294967294) -> -3221225472) ((2232 . 5625) (- 1073741822 4294967295) -> -3221225473) ((2233 . 5625) (- 1073741822 4294967296) -> -3221225474) ((2234 . 5625) (- 1073741822 4294967297) -> -3221225475) ((2235 . 5625) (- 1073741822 4294967298) -> -3221225476) ((2236 . 5625) (- 1073741823 4294967294) -> -3221225471) ((2237 . 5625) (- 1073741823 4294967295) -> -3221225472) ((2238 . 5625) (- 1073741823 4294967296) -> -3221225473) ((2239 . 5625) (- 1073741823 4294967297) -> -3221225474) ((2240 . 5625) (- 1073741823 4294967298) -> -3221225475) ((2241 . 5625) (- 1073741824 4294967294) -> -3221225470) ((2242 . 5625) (- 1073741824 4294967295) -> -3221225471) ((2243 . 5625) (- 1073741824 4294967296) -> -3221225472) ((2244 . 5625) (- 1073741824 4294967297) -> -3221225473) ((2245 . 5625) (- 1073741824 4294967298) -> -3221225474) ((2246 . 5625) (- 1073741825 4294967294) -> -3221225469) ((2247 . 5625) (- 1073741825 4294967295) -> -3221225470) ((2248 . 5625) (- 1073741825 4294967296) -> -3221225471) ((2249 . 5625) (- 1073741825 4294967297) -> -3221225472) ((2250 . 5625) (- 1073741825 4294967298) -> -3221225473) ((2251 . 5625) (- -1073741826 -2) -> -1073741824) ((2252 . 5625) (- -1073741826 -1) -> -1073741825) ((2253 . 5625) (- -1073741826 0) -> -1073741826) ((2254 . 5625) (- -1073741826 1) -> -1073741827) ((2255 . 5625) (- -1073741826 2) -> -1073741828) ((2256 . 5625) (- -1073741825 -2) -> -1073741823) ((2257 . 5625) (- -1073741825 -1) -> -1073741824) ((2258 . 5625) (- -1073741825 0) -> -1073741825) ((2259 . 5625) (- -1073741825 1) -> -1073741826) ((2260 . 5625) (- -1073741825 2) -> -1073741827) ((2261 . 5625) (- -1073741824 -2) -> -1073741822) ((2262 . 5625) (- -1073741824 -1) -> -1073741823) ((2263 . 5625) (- -1073741824 0) -> -1073741824) ((2264 . 5625) (- -1073741824 1) -> -1073741825) ((2265 . 5625) (- -1073741824 2) -> -1073741826) ((2266 . 5625) (- -1073741823 -2) -> -1073741821) ((2267 . 5625) (- -1073741823 -1) -> -1073741822) ((2268 . 5625) (- -1073741823 0) -> -1073741823) ((2269 . 5625) (- -1073741823 1) -> -1073741824) ((2270 . 5625) (- -1073741823 2) -> -1073741825) ((2271 . 5625) (- -1073741822 -2) -> -1073741820) ((2272 . 5625) (- -1073741822 -1) -> -1073741821) ((2273 . 5625) (- -1073741822 0) -> -1073741822) ((2274 . 5625) (- -1073741822 1) -> -1073741823) ((2275 . 5625) (- -1073741822 2) -> -1073741824) ((2276 . 5625) (- -1073741826 -1) -> -1073741825) ((2277 . 5625) (- -1073741826 0) -> -1073741826) ((2278 . 5625) (- -1073741826 1) -> -1073741827) ((2279 . 5625) (- -1073741826 2) -> -1073741828) ((2280 . 5625) (- -1073741826 3) -> -1073741829) ((2281 . 5625) (- -1073741825 -1) -> -1073741824) ((2282 . 5625) (- -1073741825 0) -> -1073741825) ((2283 . 5625) (- -1073741825 1) -> -1073741826) ((2284 . 5625) (- -1073741825 2) -> -1073741827) ((2285 . 5625) (- -1073741825 3) -> -1073741828) ((2286 . 5625) (- -1073741824 -1) -> -1073741823) ((2287 . 5625) (- -1073741824 0) -> -1073741824) ((2288 . 5625) (- -1073741824 1) -> -1073741825) ((2289 . 5625) (- -1073741824 2) -> -1073741826) ((2290 . 5625) (- -1073741824 3) -> -1073741827) ((2291 . 5625) (- -1073741823 -1) -> -1073741822) ((2292 . 5625) (- -1073741823 0) -> -1073741823) ((2293 . 5625) (- -1073741823 1) -> -1073741824) ((2294 . 5625) (- -1073741823 2) -> -1073741825) ((2295 . 5625) (- -1073741823 3) -> -1073741826) ((2296 . 5625) (- -1073741822 -1) -> -1073741821) ((2297 . 5625) (- -1073741822 0) -> -1073741822) ((2298 . 5625) (- -1073741822 1) -> -1073741823) ((2299 . 5625) (- -1073741822 2) -> -1073741824) ((2300 . 5625) (- -1073741822 3) -> -1073741825) ((2301 . 5625) (- -1073741826 -3) -> -1073741823) ((2302 . 5625) (- -1073741826 -2) -> -1073741824) ((2303 . 5625) (- -1073741826 -1) -> -1073741825) ((2304 . 5625) (- -1073741826 0) -> -1073741826) ((2305 . 5625) (- -1073741826 1) -> -1073741827) ((2306 . 5625) (- -1073741825 -3) -> -1073741822) ((2307 . 5625) (- -1073741825 -2) -> -1073741823) ((2308 . 5625) (- -1073741825 -1) -> -1073741824) ((2309 . 5625) (- -1073741825 0) -> -1073741825) ((2310 . 5625) (- -1073741825 1) -> -1073741826) ((2311 . 5625) (- -1073741824 -3) -> -1073741821) ((2312 . 5625) (- -1073741824 -2) -> -1073741822) ((2313 . 5625) (- -1073741824 -1) -> -1073741823) ((2314 . 5625) (- -1073741824 0) -> -1073741824) ((2315 . 5625) (- -1073741824 1) -> -1073741825) ((2316 . 5625) (- -1073741823 -3) -> -1073741820) ((2317 . 5625) (- -1073741823 -2) -> -1073741821) ((2318 . 5625) (- -1073741823 -1) -> -1073741822) ((2319 . 5625) (- -1073741823 0) -> -1073741823) ((2320 . 5625) (- -1073741823 1) -> -1073741824) ((2321 . 5625) (- -1073741822 -3) -> -1073741819) ((2322 . 5625) (- -1073741822 -2) -> -1073741820) ((2323 . 5625) (- -1073741822 -1) -> -1073741821) ((2324 . 5625) (- -1073741822 0) -> -1073741822) ((2325 . 5625) (- -1073741822 1) -> -1073741823) ((2326 . 5625) (- -1073741826 0) -> -1073741826) ((2327 . 5625) (- -1073741826 1) -> -1073741827) ((2328 . 5625) (- -1073741826 2) -> -1073741828) ((2329 . 5625) (- -1073741826 3) -> -1073741829) ((2330 . 5625) (- -1073741826 4) -> -1073741830) ((2331 . 5625) (- -1073741825 0) -> -1073741825) ((2332 . 5625) (- -1073741825 1) -> -1073741826) ((2333 . 5625) (- -1073741825 2) -> -1073741827) ((2334 . 5625) (- -1073741825 3) -> -1073741828) ((2335 . 5625) (- -1073741825 4) -> -1073741829) ((2336 . 5625) (- -1073741824 0) -> -1073741824) ((2337 . 5625) (- -1073741824 1) -> -1073741825) ((2338 . 5625) (- -1073741824 2) -> -1073741826) ((2339 . 5625) (- -1073741824 3) -> -1073741827) ((2340 . 5625) (- -1073741824 4) -> -1073741828) ((2341 . 5625) (- -1073741823 0) -> -1073741823) ((2342 . 5625) (- -1073741823 1) -> -1073741824) ((2343 . 5625) (- -1073741823 2) -> -1073741825) ((2344 . 5625) (- -1073741823 3) -> -1073741826) ((2345 . 5625) (- -1073741823 4) -> -1073741827) ((2346 . 5625) (- -1073741822 0) -> -1073741822) ((2347 . 5625) (- -1073741822 1) -> -1073741823) ((2348 . 5625) (- -1073741822 2) -> -1073741824) ((2349 . 5625) (- -1073741822 3) -> -1073741825) ((2350 . 5625) (- -1073741822 4) -> -1073741826) ((2351 . 5625) (- -1073741826 -4) -> -1073741822) ((2352 . 5625) (- -1073741826 -3) -> -1073741823) ((2353 . 5625) (- -1073741826 -2) -> -1073741824) ((2354 . 5625) (- -1073741826 -1) -> -1073741825) ((2355 . 5625) (- -1073741826 0) -> -1073741826) ((2356 . 5625) (- -1073741825 -4) -> -1073741821) ((2357 . 5625) (- -1073741825 -3) -> -1073741822) ((2358 . 5625) (- -1073741825 -2) -> -1073741823) ((2359 . 5625) (- -1073741825 -1) -> -1073741824) ((2360 . 5625) (- -1073741825 0) -> -1073741825) ((2361 . 5625) (- -1073741824 -4) -> -1073741820) ((2362 . 5625) (- -1073741824 -3) -> -1073741821) ((2363 . 5625) (- -1073741824 -2) -> -1073741822) ((2364 . 5625) (- -1073741824 -1) -> -1073741823) ((2365 . 5625) (- -1073741824 0) -> -1073741824) ((2366 . 5625) (- -1073741823 -4) -> -1073741819) ((2367 . 5625) (- -1073741823 -3) -> -1073741820) ((2368 . 5625) (- -1073741823 -2) -> -1073741821) ((2369 . 5625) (- -1073741823 -1) -> -1073741822) ((2370 . 5625) (- -1073741823 0) -> -1073741823) ((2371 . 5625) (- -1073741822 -4) -> -1073741818) ((2372 . 5625) (- -1073741822 -3) -> -1073741819) ((2373 . 5625) (- -1073741822 -2) -> -1073741820) ((2374 . 5625) (- -1073741822 -1) -> -1073741821) ((2375 . 5625) (- -1073741822 0) -> -1073741822) ((2376 . 5625) (- -1073741826 1073741821) -> -2147483647) ((2377 . 5625) (- -1073741826 1073741822) -> -2147483648) ((2378 . 5625) (- -1073741826 1073741823) -> -2147483649) ((2379 . 5625) (- -1073741826 1073741824) -> -2147483650) ((2380 . 5625) (- -1073741826 1073741825) -> -2147483651) ((2381 . 5625) (- -1073741825 1073741821) -> -2147483646) ((2382 . 5625) (- -1073741825 1073741822) -> -2147483647) ((2383 . 5625) (- -1073741825 1073741823) -> -2147483648) ((2384 . 5625) (- -1073741825 1073741824) -> -2147483649) ((2385 . 5625) (- -1073741825 1073741825) -> -2147483650) ((2386 . 5625) (- -1073741824 1073741821) -> -2147483645) ((2387 . 5625) (- -1073741824 1073741822) -> -2147483646) ((2388 . 5625) (- -1073741824 1073741823) -> -2147483647) ((2389 . 5625) (- -1073741824 1073741824) -> -2147483648) ((2390 . 5625) (- -1073741824 1073741825) -> -2147483649) ((2391 . 5625) (- -1073741823 1073741821) -> -2147483644) ((2392 . 5625) (- -1073741823 1073741822) -> -2147483645) ((2393 . 5625) (- -1073741823 1073741823) -> -2147483646) ((2394 . 5625) (- -1073741823 1073741824) -> -2147483647) ((2395 . 5625) (- -1073741823 1073741825) -> -2147483648) ((2396 . 5625) (- -1073741822 1073741821) -> -2147483643) ((2397 . 5625) (- -1073741822 1073741822) -> -2147483644) ((2398 . 5625) (- -1073741822 1073741823) -> -2147483645) ((2399 . 5625) (- -1073741822 1073741824) -> -2147483646) ((2400 . 5625) (- -1073741822 1073741825) -> -2147483647) ((2401 . 5625) (- -1073741826 -1073741826) -> 0) ((2402 . 5625) (- -1073741826 -1073741825) -> -1) ((2403 . 5625) (- -1073741826 -1073741824) -> -2) ((2404 . 5625) (- -1073741826 -1073741823) -> -3) ((2405 . 5625) (- -1073741826 -1073741822) -> -4) ((2406 . 5625) (- -1073741825 -1073741826) -> 1) ((2407 . 5625) (- -1073741825 -1073741825) -> 0) ((2408 . 5625) (- -1073741825 -1073741824) -> -1) ((2409 . 5625) (- -1073741825 -1073741823) -> -2) ((2410 . 5625) (- -1073741825 -1073741822) -> -3) ((2411 . 5625) (- -1073741824 -1073741826) -> 2) ((2412 . 5625) (- -1073741824 -1073741825) -> 1) ((2413 . 5625) (- -1073741824 -1073741824) -> 0) ((2414 . 5625) (- -1073741824 -1073741823) -> -1) ((2415 . 5625) (- -1073741824 -1073741822) -> -2) ((2416 . 5625) (- -1073741823 -1073741826) -> 3) ((2417 . 5625) (- -1073741823 -1073741825) -> 2) ((2418 . 5625) (- -1073741823 -1073741824) -> 1) ((2419 . 5625) (- -1073741823 -1073741823) -> 0) ((2420 . 5625) (- -1073741823 -1073741822) -> -1) ((2421 . 5625) (- -1073741822 -1073741826) -> 4) ((2422 . 5625) (- -1073741822 -1073741825) -> 3) ((2423 . 5625) (- -1073741822 -1073741824) -> 2) ((2424 . 5625) (- -1073741822 -1073741823) -> 1) ((2425 . 5625) (- -1073741822 -1073741822) -> 0) ((2426 . 5625) (- -1073741826 1073741822) -> -2147483648) ((2427 . 5625) (- -1073741826 1073741823) -> -2147483649) ((2428 . 5625) (- -1073741826 1073741824) -> -2147483650) ((2429 . 5625) (- -1073741826 1073741825) -> -2147483651) ((2430 . 5625) (- -1073741826 1073741826) -> -2147483652) ((2431 . 5625) (- -1073741825 1073741822) -> -2147483647) ((2432 . 5625) (- -1073741825 1073741823) -> -2147483648) ((2433 . 5625) (- -1073741825 1073741824) -> -2147483649) ((2434 . 5625) (- -1073741825 1073741825) -> -2147483650) ((2435 . 5625) (- -1073741825 1073741826) -> -2147483651) ((2436 . 5625) (- -1073741824 1073741822) -> -2147483646) ((2437 . 5625) (- -1073741824 1073741823) -> -2147483647) ((2438 . 5625) (- -1073741824 1073741824) -> -2147483648) ((2439 . 5625) (- -1073741824 1073741825) -> -2147483649) ((2440 . 5625) (- -1073741824 1073741826) -> -2147483650) ((2441 . 5625) (- -1073741823 1073741822) -> -2147483645) ((2442 . 5625) (- -1073741823 1073741823) -> -2147483646) ((2443 . 5625) (- -1073741823 1073741824) -> -2147483647) ((2444 . 5625) (- -1073741823 1073741825) -> -2147483648) ((2445 . 5625) (- -1073741823 1073741826) -> -2147483649) ((2446 . 5625) (- -1073741822 1073741822) -> -2147483644) ((2447 . 5625) (- -1073741822 1073741823) -> -2147483645) ((2448 . 5625) (- -1073741822 1073741824) -> -2147483646) ((2449 . 5625) (- -1073741822 1073741825) -> -2147483647) ((2450 . 5625) (- -1073741822 1073741826) -> -2147483648) ((2451 . 5625) (- -1073741826 -1073741827) -> 1) ((2452 . 5625) (- -1073741826 -1073741826) -> 0) ((2453 . 5625) (- -1073741826 -1073741825) -> -1) ((2454 . 5625) (- -1073741826 -1073741824) -> -2) ((2455 . 5625) (- -1073741826 -1073741823) -> -3) ((2456 . 5625) (- -1073741825 -1073741827) -> 2) ((2457 . 5625) (- -1073741825 -1073741826) -> 1) ((2458 . 5625) (- -1073741825 -1073741825) -> 0) ((2459 . 5625) (- -1073741825 -1073741824) -> -1) ((2460 . 5625) (- -1073741825 -1073741823) -> -2) ((2461 . 5625) (- -1073741824 -1073741827) -> 3) ((2462 . 5625) (- -1073741824 -1073741826) -> 2) ((2463 . 5625) (- -1073741824 -1073741825) -> 1) ((2464 . 5625) (- -1073741824 -1073741824) -> 0) ((2465 . 5625) (- -1073741824 -1073741823) -> -1) ((2466 . 5625) (- -1073741823 -1073741827) -> 4) ((2467 . 5625) (- -1073741823 -1073741826) -> 3) ((2468 . 5625) (- -1073741823 -1073741825) -> 2) ((2469 . 5625) (- -1073741823 -1073741824) -> 1) ((2470 . 5625) (- -1073741823 -1073741823) -> 0) ((2471 . 5625) (- -1073741822 -1073741827) -> 5) ((2472 . 5625) (- -1073741822 -1073741826) -> 4) ((2473 . 5625) (- -1073741822 -1073741825) -> 3) ((2474 . 5625) (- -1073741822 -1073741824) -> 2) ((2475 . 5625) (- -1073741822 -1073741823) -> 1) ((2476 . 5625) (- -1073741826 1103515243) -> -2177257069) ((2477 . 5625) (- -1073741826 1103515244) -> -2177257070) ((2478 . 5625) (- -1073741826 1103515245) -> -2177257071) ((2479 . 5625) (- -1073741826 1103515246) -> -2177257072) ((2480 . 5625) (- -1073741826 1103515247) -> -2177257073) ((2481 . 5625) (- -1073741825 1103515243) -> -2177257068) ((2482 . 5625) (- -1073741825 1103515244) -> -2177257069) ((2483 . 5625) (- -1073741825 1103515245) -> -2177257070) ((2484 . 5625) (- -1073741825 1103515246) -> -2177257071) ((2485 . 5625) (- -1073741825 1103515247) -> -2177257072) ((2486 . 5625) (- -1073741824 1103515243) -> -2177257067) ((2487 . 5625) (- -1073741824 1103515244) -> -2177257068) ((2488 . 5625) (- -1073741824 1103515245) -> -2177257069) ((2489 . 5625) (- -1073741824 1103515246) -> -2177257070) ((2490 . 5625) (- -1073741824 1103515247) -> -2177257071) ((2491 . 5625) (- -1073741823 1103515243) -> -2177257066) ((2492 . 5625) (- -1073741823 1103515244) -> -2177257067) ((2493 . 5625) (- -1073741823 1103515245) -> -2177257068) ((2494 . 5625) (- -1073741823 1103515246) -> -2177257069) ((2495 . 5625) (- -1073741823 1103515247) -> -2177257070) ((2496 . 5625) (- -1073741822 1103515243) -> -2177257065) ((2497 . 5625) (- -1073741822 1103515244) -> -2177257066) ((2498 . 5625) (- -1073741822 1103515245) -> -2177257067) ((2499 . 5625) (- -1073741822 1103515246) -> -2177257068) ((2500 . 5625) (- -1073741822 1103515247) -> -2177257069) ((2501 . 5625) (- -1073741826 631629063) -> -1705370889) ((2502 . 5625) (- -1073741826 631629064) -> -1705370890) ((2503 . 5625) (- -1073741826 631629065) -> -1705370891) ((2504 . 5625) (- -1073741826 631629066) -> -1705370892) ((2505 . 5625) (- -1073741826 631629067) -> -1705370893) ((2506 . 5625) (- -1073741825 631629063) -> -1705370888) ((2507 . 5625) (- -1073741825 631629064) -> -1705370889) ((2508 . 5625) (- -1073741825 631629065) -> -1705370890) ((2509 . 5625) (- -1073741825 631629066) -> -1705370891) ((2510 . 5625) (- -1073741825 631629067) -> -1705370892) ((2511 . 5625) (- -1073741824 631629063) -> -1705370887) ((2512 . 5625) (- -1073741824 631629064) -> -1705370888) ((2513 . 5625) (- -1073741824 631629065) -> -1705370889) ((2514 . 5625) (- -1073741824 631629066) -> -1705370890) ((2515 . 5625) (- -1073741824 631629067) -> -1705370891) ((2516 . 5625) (- -1073741823 631629063) -> -1705370886) ((2517 . 5625) (- -1073741823 631629064) -> -1705370887) ((2518 . 5625) (- -1073741823 631629065) -> -1705370888) ((2519 . 5625) (- -1073741823 631629066) -> -1705370889) ((2520 . 5625) (- -1073741823 631629067) -> -1705370890) ((2521 . 5625) (- -1073741822 631629063) -> -1705370885) ((2522 . 5625) (- -1073741822 631629064) -> -1705370886) ((2523 . 5625) (- -1073741822 631629065) -> -1705370887) ((2524 . 5625) (- -1073741822 631629066) -> -1705370888) ((2525 . 5625) (- -1073741822 631629067) -> -1705370889) ((2526 . 5625) (- -1073741826 9007199254740990) -> -9007200328482816) ((2527 . 5625) (- -1073741826 9007199254740991) -> -9007200328482817) ((2528 . 5625) (- -1073741826 9007199254740992) -> -9007200328482818) ((2529 . 5625) (- -1073741826 9007199254740993) -> -9007200328482819) ((2530 . 5625) (- -1073741826 9007199254740994) -> -9007200328482820) ((2531 . 5625) (- -1073741825 9007199254740990) -> -9007200328482815) ((2532 . 5625) (- -1073741825 9007199254740991) -> -9007200328482816) ((2533 . 5625) (- -1073741825 9007199254740992) -> -9007200328482817) ((2534 . 5625) (- -1073741825 9007199254740993) -> -9007200328482818) ((2535 . 5625) (- -1073741825 9007199254740994) -> -9007200328482819) ((2536 . 5625) (- -1073741824 9007199254740990) -> -9007200328482814) ((2537 . 5625) (- -1073741824 9007199254740991) -> -9007200328482815) ((2538 . 5625) (- -1073741824 9007199254740992) -> -9007200328482816) ((2539 . 5625) (- -1073741824 9007199254740993) -> -9007200328482817) ((2540 . 5625) (- -1073741824 9007199254740994) -> -9007200328482818) ((2541 . 5625) (- -1073741823 9007199254740990) -> -9007200328482813) ((2542 . 5625) (- -1073741823 9007199254740991) -> -9007200328482814) ((2543 . 5625) (- -1073741823 9007199254740992) -> -9007200328482815) ((2544 . 5625) (- -1073741823 9007199254740993) -> -9007200328482816) ((2545 . 5625) (- -1073741823 9007199254740994) -> -9007200328482817) ((2546 . 5625) (- -1073741822 9007199254740990) -> -9007200328482812) ((2547 . 5625) (- -1073741822 9007199254740991) -> -9007200328482813) ((2548 . 5625) (- -1073741822 9007199254740992) -> -9007200328482814) ((2549 . 5625) (- -1073741822 9007199254740993) -> -9007200328482815) ((2550 . 5625) (- -1073741822 9007199254740994) -> -9007200328482816) ((2551 . 5625) (- -1073741826 -9007199254740994) -> 9007198180999168) ((2552 . 5625) (- -1073741826 -9007199254740993) -> 9007198180999167) ((2553 . 5625) (- -1073741826 -9007199254740992) -> 9007198180999166) ((2554 . 5625) (- -1073741826 -9007199254740991) -> 9007198180999165) ((2555 . 5625) (- -1073741826 -9007199254740990) -> 9007198180999164) ((2556 . 5625) (- -1073741825 -9007199254740994) -> 9007198180999169) ((2557 . 5625) (- -1073741825 -9007199254740993) -> 9007198180999168) ((2558 . 5625) (- -1073741825 -9007199254740992) -> 9007198180999167) ((2559 . 5625) (- -1073741825 -9007199254740991) -> 9007198180999166) ((2560 . 5625) (- -1073741825 -9007199254740990) -> 9007198180999165) ((2561 . 5625) (- -1073741824 -9007199254740994) -> 9007198180999170) ((2562 . 5625) (- -1073741824 -9007199254740993) -> 9007198180999169) ((2563 . 5625) (- -1073741824 -9007199254740992) -> 9007198180999168) ((2564 . 5625) (- -1073741824 -9007199254740991) -> 9007198180999167) ((2565 . 5625) (- -1073741824 -9007199254740990) -> 9007198180999166) ((2566 . 5625) (- -1073741823 -9007199254740994) -> 9007198180999171) ((2567 . 5625) (- -1073741823 -9007199254740993) -> 9007198180999170) ((2568 . 5625) (- -1073741823 -9007199254740992) -> 9007198180999169) ((2569 . 5625) (- -1073741823 -9007199254740991) -> 9007198180999168) ((2570 . 5625) (- -1073741823 -9007199254740990) -> 9007198180999167) ((2571 . 5625) (- -1073741822 -9007199254740994) -> 9007198180999172) ((2572 . 5625) (- -1073741822 -9007199254740993) -> 9007198180999171) ((2573 . 5625) (- -1073741822 -9007199254740992) -> 9007198180999170) ((2574 . 5625) (- -1073741822 -9007199254740991) -> 9007198180999169) ((2575 . 5625) (- -1073741822 -9007199254740990) -> 9007198180999168) ((2576 . 5625) (- -1073741826 12343) -> -1073754169) ((2577 . 5625) (- -1073741826 12344) -> -1073754170) ((2578 . 5625) (- -1073741826 12345) -> -1073754171) ((2579 . 5625) (- -1073741826 12346) -> -1073754172) ((2580 . 5625) (- -1073741826 12347) -> -1073754173) ((2581 . 5625) (- -1073741825 12343) -> -1073754168) ((2582 . 5625) (- -1073741825 12344) -> -1073754169) ((2583 . 5625) (- -1073741825 12345) -> -1073754170) ((2584 . 5625) (- -1073741825 12346) -> -1073754171) ((2585 . 5625) (- -1073741825 12347) -> -1073754172) ((2586 . 5625) (- -1073741824 12343) -> -1073754167) ((2587 . 5625) (- -1073741824 12344) -> -1073754168) ((2588 . 5625) (- -1073741824 12345) -> -1073754169) ((2589 . 5625) (- -1073741824 12346) -> -1073754170) ((2590 . 5625) (- -1073741824 12347) -> -1073754171) ((2591 . 5625) (- -1073741823 12343) -> -1073754166) ((2592 . 5625) (- -1073741823 12344) -> -1073754167) ((2593 . 5625) (- -1073741823 12345) -> -1073754168) ((2594 . 5625) (- -1073741823 12346) -> -1073754169) ((2595 . 5625) (- -1073741823 12347) -> -1073754170) ((2596 . 5625) (- -1073741822 12343) -> -1073754165) ((2597 . 5625) (- -1073741822 12344) -> -1073754166) ((2598 . 5625) (- -1073741822 12345) -> -1073754167) ((2599 . 5625) (- -1073741822 12346) -> -1073754168) ((2600 . 5625) (- -1073741822 12347) -> -1073754169) ((2601 . 5625) (- -1073741826 4294967294) -> -5368709120) ((2602 . 5625) (- -1073741826 4294967295) -> -5368709121) ((2603 . 5625) (- -1073741826 4294967296) -> -5368709122) ((2604 . 5625) (- -1073741826 4294967297) -> -5368709123) ((2605 . 5625) (- -1073741826 4294967298) -> -5368709124) ((2606 . 5625) (- -1073741825 4294967294) -> -5368709119) ((2607 . 5625) (- -1073741825 4294967295) -> -5368709120) ((2608 . 5625) (- -1073741825 4294967296) -> -5368709121) ((2609 . 5625) (- -1073741825 4294967297) -> -5368709122) ((2610 . 5625) (- -1073741825 4294967298) -> -5368709123) ((2611 . 5625) (- -1073741824 4294967294) -> -5368709118) ((2612 . 5625) (- -1073741824 4294967295) -> -5368709119) ((2613 . 5625) (- -1073741824 4294967296) -> -5368709120) ((2614 . 5625) (- -1073741824 4294967297) -> -5368709121) ((2615 . 5625) (- -1073741824 4294967298) -> -5368709122) ((2616 . 5625) (- -1073741823 4294967294) -> -5368709117) ((2617 . 5625) (- -1073741823 4294967295) -> -5368709118) ((2618 . 5625) (- -1073741823 4294967296) -> -5368709119) ((2619 . 5625) (- -1073741823 4294967297) -> -5368709120) ((2620 . 5625) (- -1073741823 4294967298) -> -5368709121) ((2621 . 5625) (- -1073741822 4294967294) -> -5368709116) ((2622 . 5625) (- -1073741822 4294967295) -> -5368709117) ((2623 . 5625) (- -1073741822 4294967296) -> -5368709118) ((2624 . 5625) (- -1073741822 4294967297) -> -5368709119) ((2625 . 5625) (- -1073741822 4294967298) -> -5368709120) ((2626 . 5625) (- 1073741822 -2) -> 1073741824) ((2627 . 5625) (- 1073741822 -1) -> 1073741823) ((2628 . 5625) (- 1073741822 0) -> 1073741822) ((2629 . 5625) (- 1073741822 1) -> 1073741821) ((2630 . 5625) (- 1073741822 2) -> 1073741820) ((2631 . 5625) (- 1073741823 -2) -> 1073741825) ((2632 . 5625) (- 1073741823 -1) -> 1073741824) ((2633 . 5625) (- 1073741823 0) -> 1073741823) ((2634 . 5625) (- 1073741823 1) -> 1073741822) ((2635 . 5625) (- 1073741823 2) -> 1073741821) ((2636 . 5625) (- 1073741824 -2) -> 1073741826) ((2637 . 5625) (- 1073741824 -1) -> 1073741825) ((2638 . 5625) (- 1073741824 0) -> 1073741824) ((2639 . 5625) (- 1073741824 1) -> 1073741823) ((2640 . 5625) (- 1073741824 2) -> 1073741822) ((2641 . 5625) (- 1073741825 -2) -> 1073741827) ((2642 . 5625) (- 1073741825 -1) -> 1073741826) ((2643 . 5625) (- 1073741825 0) -> 1073741825) ((2644 . 5625) (- 1073741825 1) -> 1073741824) ((2645 . 5625) (- 1073741825 2) -> 1073741823) ((2646 . 5625) (- 1073741826 -2) -> 1073741828) ((2647 . 5625) (- 1073741826 -1) -> 1073741827) ((2648 . 5625) (- 1073741826 0) -> 1073741826) ((2649 . 5625) (- 1073741826 1) -> 1073741825) ((2650 . 5625) (- 1073741826 2) -> 1073741824) ((2651 . 5625) (- 1073741822 -1) -> 1073741823) ((2652 . 5625) (- 1073741822 0) -> 1073741822) ((2653 . 5625) (- 1073741822 1) -> 1073741821) ((2654 . 5625) (- 1073741822 2) -> 1073741820) ((2655 . 5625) (- 1073741822 3) -> 1073741819) ((2656 . 5625) (- 1073741823 -1) -> 1073741824) ((2657 . 5625) (- 1073741823 0) -> 1073741823) ((2658 . 5625) (- 1073741823 1) -> 1073741822) ((2659 . 5625) (- 1073741823 2) -> 1073741821) ((2660 . 5625) (- 1073741823 3) -> 1073741820) ((2661 . 5625) (- 1073741824 -1) -> 1073741825) ((2662 . 5625) (- 1073741824 0) -> 1073741824) ((2663 . 5625) (- 1073741824 1) -> 1073741823) ((2664 . 5625) (- 1073741824 2) -> 1073741822) ((2665 . 5625) (- 1073741824 3) -> 1073741821) ((2666 . 5625) (- 1073741825 -1) -> 1073741826) ((2667 . 5625) (- 1073741825 0) -> 1073741825) ((2668 . 5625) (- 1073741825 1) -> 1073741824) ((2669 . 5625) (- 1073741825 2) -> 1073741823) ((2670 . 5625) (- 1073741825 3) -> 1073741822) ((2671 . 5625) (- 1073741826 -1) -> 1073741827) ((2672 . 5625) (- 1073741826 0) -> 1073741826) ((2673 . 5625) (- 1073741826 1) -> 1073741825) ((2674 . 5625) (- 1073741826 2) -> 1073741824) ((2675 . 5625) (- 1073741826 3) -> 1073741823) ((2676 . 5625) (- 1073741822 -3) -> 1073741825) ((2677 . 5625) (- 1073741822 -2) -> 1073741824) ((2678 . 5625) (- 1073741822 -1) -> 1073741823) ((2679 . 5625) (- 1073741822 0) -> 1073741822) ((2680 . 5625) (- 1073741822 1) -> 1073741821) ((2681 . 5625) (- 1073741823 -3) -> 1073741826) ((2682 . 5625) (- 1073741823 -2) -> 1073741825) ((2683 . 5625) (- 1073741823 -1) -> 1073741824) ((2684 . 5625) (- 1073741823 0) -> 1073741823) ((2685 . 5625) (- 1073741823 1) -> 1073741822) ((2686 . 5625) (- 1073741824 -3) -> 1073741827) ((2687 . 5625) (- 1073741824 -2) -> 1073741826) ((2688 . 5625) (- 1073741824 -1) -> 1073741825) ((2689 . 5625) (- 1073741824 0) -> 1073741824) ((2690 . 5625) (- 1073741824 1) -> 1073741823) ((2691 . 5625) (- 1073741825 -3) -> 1073741828) ((2692 . 5625) (- 1073741825 -2) -> 1073741827) ((2693 . 5625) (- 1073741825 -1) -> 1073741826) ((2694 . 5625) (- 1073741825 0) -> 1073741825) ((2695 . 5625) (- 1073741825 1) -> 1073741824) ((2696 . 5625) (- 1073741826 -3) -> 1073741829) ((2697 . 5625) (- 1073741826 -2) -> 1073741828) ((2698 . 5625) (- 1073741826 -1) -> 1073741827) ((2699 . 5625) (- 1073741826 0) -> 1073741826) ((2700 . 5625) (- 1073741826 1) -> 1073741825) ((2701 . 5625) (- 1073741822 0) -> 1073741822) ((2702 . 5625) (- 1073741822 1) -> 1073741821) ((2703 . 5625) (- 1073741822 2) -> 1073741820) ((2704 . 5625) (- 1073741822 3) -> 1073741819) ((2705 . 5625) (- 1073741822 4) -> 1073741818) ((2706 . 5625) (- 1073741823 0) -> 1073741823) ((2707 . 5625) (- 1073741823 1) -> 1073741822) ((2708 . 5625) (- 1073741823 2) -> 1073741821) ((2709 . 5625) (- 1073741823 3) -> 1073741820) ((2710 . 5625) (- 1073741823 4) -> 1073741819) ((2711 . 5625) (- 1073741824 0) -> 1073741824) ((2712 . 5625) (- 1073741824 1) -> 1073741823) ((2713 . 5625) (- 1073741824 2) -> 1073741822) ((2714 . 5625) (- 1073741824 3) -> 1073741821) ((2715 . 5625) (- 1073741824 4) -> 1073741820) ((2716 . 5625) (- 1073741825 0) -> 1073741825) ((2717 . 5625) (- 1073741825 1) -> 1073741824) ((2718 . 5625) (- 1073741825 2) -> 1073741823) ((2719 . 5625) (- 1073741825 3) -> 1073741822) ((2720 . 5625) (- 1073741825 4) -> 1073741821) ((2721 . 5625) (- 1073741826 0) -> 1073741826) ((2722 . 5625) (- 1073741826 1) -> 1073741825) ((2723 . 5625) (- 1073741826 2) -> 1073741824) ((2724 . 5625) (- 1073741826 3) -> 1073741823) ((2725 . 5625) (- 1073741826 4) -> 1073741822) ((2726 . 5625) (- 1073741822 -4) -> 1073741826) ((2727 . 5625) (- 1073741822 -3) -> 1073741825) ((2728 . 5625) (- 1073741822 -2) -> 1073741824) ((2729 . 5625) (- 1073741822 -1) -> 1073741823) ((2730 . 5625) (- 1073741822 0) -> 1073741822) ((2731 . 5625) (- 1073741823 -4) -> 1073741827) ((2732 . 5625) (- 1073741823 -3) -> 1073741826) ((2733 . 5625) (- 1073741823 -2) -> 1073741825) ((2734 . 5625) (- 1073741823 -1) -> 1073741824) ((2735 . 5625) (- 1073741823 0) -> 1073741823) ((2736 . 5625) (- 1073741824 -4) -> 1073741828) ((2737 . 5625) (- 1073741824 -3) -> 1073741827) ((2738 . 5625) (- 1073741824 -2) -> 1073741826) ((2739 . 5625) (- 1073741824 -1) -> 1073741825) ((2740 . 5625) (- 1073741824 0) -> 1073741824) ((2741 . 5625) (- 1073741825 -4) -> 1073741829) ((2742 . 5625) (- 1073741825 -3) -> 1073741828) ((2743 . 5625) (- 1073741825 -2) -> 1073741827) ((2744 . 5625) (- 1073741825 -1) -> 1073741826) ((2745 . 5625) (- 1073741825 0) -> 1073741825) ((2746 . 5625) (- 1073741826 -4) -> 1073741830) ((2747 . 5625) (- 1073741826 -3) -> 1073741829) ((2748 . 5625) (- 1073741826 -2) -> 1073741828) ((2749 . 5625) (- 1073741826 -1) -> 1073741827) ((2750 . 5625) (- 1073741826 0) -> 1073741826) ((2751 . 5625) (- 1073741822 1073741821) -> 1) ((2752 . 5625) (- 1073741822 1073741822) -> 0) ((2753 . 5625) (- 1073741822 1073741823) -> -1) ((2754 . 5625) (- 1073741822 1073741824) -> -2) ((2755 . 5625) (- 1073741822 1073741825) -> -3) ((2756 . 5625) (- 1073741823 1073741821) -> 2) ((2757 . 5625) (- 1073741823 1073741822) -> 1) ((2758 . 5625) (- 1073741823 1073741823) -> 0) ((2759 . 5625) (- 1073741823 1073741824) -> -1) ((2760 . 5625) (- 1073741823 1073741825) -> -2) ((2761 . 5625) (- 1073741824 1073741821) -> 3) ((2762 . 5625) (- 1073741824 1073741822) -> 2) ((2763 . 5625) (- 1073741824 1073741823) -> 1) ((2764 . 5625) (- 1073741824 1073741824) -> 0) ((2765 . 5625) (- 1073741824 1073741825) -> -1) ((2766 . 5625) (- 1073741825 1073741821) -> 4) ((2767 . 5625) (- 1073741825 1073741822) -> 3) ((2768 . 5625) (- 1073741825 1073741823) -> 2) ((2769 . 5625) (- 1073741825 1073741824) -> 1) ((2770 . 5625) (- 1073741825 1073741825) -> 0) ((2771 . 5625) (- 1073741826 1073741821) -> 5) ((2772 . 5625) (- 1073741826 1073741822) -> 4) ((2773 . 5625) (- 1073741826 1073741823) -> 3) ((2774 . 5625) (- 1073741826 1073741824) -> 2) ((2775 . 5625) (- 1073741826 1073741825) -> 1) ((2776 . 5625) (- 1073741822 -1073741826) -> 2147483648) ((2777 . 5625) (- 1073741822 -1073741825) -> 2147483647) ((2778 . 5625) (- 1073741822 -1073741824) -> 2147483646) ((2779 . 5625) (- 1073741822 -1073741823) -> 2147483645) ((2780 . 5625) (- 1073741822 -1073741822) -> 2147483644) ((2781 . 5625) (- 1073741823 -1073741826) -> 2147483649) ((2782 . 5625) (- 1073741823 -1073741825) -> 2147483648) ((2783 . 5625) (- 1073741823 -1073741824) -> 2147483647) ((2784 . 5625) (- 1073741823 -1073741823) -> 2147483646) ((2785 . 5625) (- 1073741823 -1073741822) -> 2147483645) ((2786 . 5625) (- 1073741824 -1073741826) -> 2147483650) ((2787 . 5625) (- 1073741824 -1073741825) -> 2147483649) ((2788 . 5625) (- 1073741824 -1073741824) -> 2147483648) ((2789 . 5625) (- 1073741824 -1073741823) -> 2147483647) ((2790 . 5625) (- 1073741824 -1073741822) -> 2147483646) ((2791 . 5625) (- 1073741825 -1073741826) -> 2147483651) ((2792 . 5625) (- 1073741825 -1073741825) -> 2147483650) ((2793 . 5625) (- 1073741825 -1073741824) -> 2147483649) ((2794 . 5625) (- 1073741825 -1073741823) -> 2147483648) ((2795 . 5625) (- 1073741825 -1073741822) -> 2147483647) ((2796 . 5625) (- 1073741826 -1073741826) -> 2147483652) ((2797 . 5625) (- 1073741826 -1073741825) -> 2147483651) ((2798 . 5625) (- 1073741826 -1073741824) -> 2147483650) ((2799 . 5625) (- 1073741826 -1073741823) -> 2147483649) ((2800 . 5625) (- 1073741826 -1073741822) -> 2147483648) ((2801 . 5625) (- 1073741822 1073741822) -> 0) ((2802 . 5625) (- 1073741822 1073741823) -> -1) ((2803 . 5625) (- 1073741822 1073741824) -> -2) ((2804 . 5625) (- 1073741822 1073741825) -> -3) ((2805 . 5625) (- 1073741822 1073741826) -> -4) ((2806 . 5625) (- 1073741823 1073741822) -> 1) ((2807 . 5625) (- 1073741823 1073741823) -> 0) ((2808 . 5625) (- 1073741823 1073741824) -> -1) ((2809 . 5625) (- 1073741823 1073741825) -> -2) ((2810 . 5625) (- 1073741823 1073741826) -> -3) ((2811 . 5625) (- 1073741824 1073741822) -> 2) ((2812 . 5625) (- 1073741824 1073741823) -> 1) ((2813 . 5625) (- 1073741824 1073741824) -> 0) ((2814 . 5625) (- 1073741824 1073741825) -> -1) ((2815 . 5625) (- 1073741824 1073741826) -> -2) ((2816 . 5625) (- 1073741825 1073741822) -> 3) ((2817 . 5625) (- 1073741825 1073741823) -> 2) ((2818 . 5625) (- 1073741825 1073741824) -> 1) ((2819 . 5625) (- 1073741825 1073741825) -> 0) ((2820 . 5625) (- 1073741825 1073741826) -> -1) ((2821 . 5625) (- 1073741826 1073741822) -> 4) ((2822 . 5625) (- 1073741826 1073741823) -> 3) ((2823 . 5625) (- 1073741826 1073741824) -> 2) ((2824 . 5625) (- 1073741826 1073741825) -> 1) ((2825 . 5625) (- 1073741826 1073741826) -> 0) ((2826 . 5625) (- 1073741822 -1073741827) -> 2147483649) ((2827 . 5625) (- 1073741822 -1073741826) -> 2147483648) ((2828 . 5625) (- 1073741822 -1073741825) -> 2147483647) ((2829 . 5625) (- 1073741822 -1073741824) -> 2147483646) ((2830 . 5625) (- 1073741822 -1073741823) -> 2147483645) ((2831 . 5625) (- 1073741823 -1073741827) -> 2147483650) ((2832 . 5625) (- 1073741823 -1073741826) -> 2147483649) ((2833 . 5625) (- 1073741823 -1073741825) -> 2147483648) ((2834 . 5625) (- 1073741823 -1073741824) -> 2147483647) ((2835 . 5625) (- 1073741823 -1073741823) -> 2147483646) ((2836 . 5625) (- 1073741824 -1073741827) -> 2147483651) ((2837 . 5625) (- 1073741824 -1073741826) -> 2147483650) ((2838 . 5625) (- 1073741824 -1073741825) -> 2147483649) ((2839 . 5625) (- 1073741824 -1073741824) -> 2147483648) ((2840 . 5625) (- 1073741824 -1073741823) -> 2147483647) ((2841 . 5625) (- 1073741825 -1073741827) -> 2147483652) ((2842 . 5625) (- 1073741825 -1073741826) -> 2147483651) ((2843 . 5625) (- 1073741825 -1073741825) -> 2147483650) ((2844 . 5625) (- 1073741825 -1073741824) -> 2147483649) ((2845 . 5625) (- 1073741825 -1073741823) -> 2147483648) ((2846 . 5625) (- 1073741826 -1073741827) -> 2147483653) ((2847 . 5625) (- 1073741826 -1073741826) -> 2147483652) ((2848 . 5625) (- 1073741826 -1073741825) -> 2147483651) ((2849 . 5625) (- 1073741826 -1073741824) -> 2147483650) ((2850 . 5625) (- 1073741826 -1073741823) -> 2147483649) ((2851 . 5625) (- 1073741822 1103515243) -> -29773421) ((2852 . 5625) (- 1073741822 1103515244) -> -29773422) ((2853 . 5625) (- 1073741822 1103515245) -> -29773423) ((2854 . 5625) (- 1073741822 1103515246) -> -29773424) ((2855 . 5625) (- 1073741822 1103515247) -> -29773425) ((2856 . 5625) (- 1073741823 1103515243) -> -29773420) ((2857 . 5625) (- 1073741823 1103515244) -> -29773421) ((2858 . 5625) (- 1073741823 1103515245) -> -29773422) ((2859 . 5625) (- 1073741823 1103515246) -> -29773423) ((2860 . 5625) (- 1073741823 1103515247) -> -29773424) ((2861 . 5625) (- 1073741824 1103515243) -> -29773419) ((2862 . 5625) (- 1073741824 1103515244) -> -29773420) ((2863 . 5625) (- 1073741824 1103515245) -> -29773421) ((2864 . 5625) (- 1073741824 1103515246) -> -29773422) ((2865 . 5625) (- 1073741824 1103515247) -> -29773423) ((2866 . 5625) (- 1073741825 1103515243) -> -29773418) ((2867 . 5625) (- 1073741825 1103515244) -> -29773419) ((2868 . 5625) (- 1073741825 1103515245) -> -29773420) ((2869 . 5625) (- 1073741825 1103515246) -> -29773421) ((2870 . 5625) (- 1073741825 1103515247) -> -29773422) ((2871 . 5625) (- 1073741826 1103515243) -> -29773417) ((2872 . 5625) (- 1073741826 1103515244) -> -29773418) ((2873 . 5625) (- 1073741826 1103515245) -> -29773419) ((2874 . 5625) (- 1073741826 1103515246) -> -29773420) ((2875 . 5625) (- 1073741826 1103515247) -> -29773421) ((2876 . 5625) (- 1073741822 631629063) -> 442112759) ((2877 . 5625) (- 1073741822 631629064) -> 442112758) ((2878 . 5625) (- 1073741822 631629065) -> 442112757) ((2879 . 5625) (- 1073741822 631629066) -> 442112756) ((2880 . 5625) (- 1073741822 631629067) -> 442112755) ((2881 . 5625) (- 1073741823 631629063) -> 442112760) ((2882 . 5625) (- 1073741823 631629064) -> 442112759) ((2883 . 5625) (- 1073741823 631629065) -> 442112758) ((2884 . 5625) (- 1073741823 631629066) -> 442112757) ((2885 . 5625) (- 1073741823 631629067) -> 442112756) ((2886 . 5625) (- 1073741824 631629063) -> 442112761) ((2887 . 5625) (- 1073741824 631629064) -> 442112760) ((2888 . 5625) (- 1073741824 631629065) -> 442112759) ((2889 . 5625) (- 1073741824 631629066) -> 442112758) ((2890 . 5625) (- 1073741824 631629067) -> 442112757) ((2891 . 5625) (- 1073741825 631629063) -> 442112762) ((2892 . 5625) (- 1073741825 631629064) -> 442112761) ((2893 . 5625) (- 1073741825 631629065) -> 442112760) ((2894 . 5625) (- 1073741825 631629066) -> 442112759) ((2895 . 5625) (- 1073741825 631629067) -> 442112758) ((2896 . 5625) (- 1073741826 631629063) -> 442112763) ((2897 . 5625) (- 1073741826 631629064) -> 442112762) ((2898 . 5625) (- 1073741826 631629065) -> 442112761) ((2899 . 5625) (- 1073741826 631629066) -> 442112760) ((2900 . 5625) (- 1073741826 631629067) -> 442112759) ((2901 . 5625) (- 1073741822 9007199254740990) -> -9007198180999168) ((2902 . 5625) (- 1073741822 9007199254740991) -> -9007198180999169) ((2903 . 5625) (- 1073741822 9007199254740992) -> -9007198180999170) ((2904 . 5625) (- 1073741822 9007199254740993) -> -9007198180999171) ((2905 . 5625) (- 1073741822 9007199254740994) -> -9007198180999172) ((2906 . 5625) (- 1073741823 9007199254740990) -> -9007198180999167) ((2907 . 5625) (- 1073741823 9007199254740991) -> -9007198180999168) ((2908 . 5625) (- 1073741823 9007199254740992) -> -9007198180999169) ((2909 . 5625) (- 1073741823 9007199254740993) -> -9007198180999170) ((2910 . 5625) (- 1073741823 9007199254740994) -> -9007198180999171) ((2911 . 5625) (- 1073741824 9007199254740990) -> -9007198180999166) ((2912 . 5625) (- 1073741824 9007199254740991) -> -9007198180999167) ((2913 . 5625) (- 1073741824 9007199254740992) -> -9007198180999168) ((2914 . 5625) (- 1073741824 9007199254740993) -> -9007198180999169) ((2915 . 5625) (- 1073741824 9007199254740994) -> -9007198180999170) ((2916 . 5625) (- 1073741825 9007199254740990) -> -9007198180999165) ((2917 . 5625) (- 1073741825 9007199254740991) -> -9007198180999166) ((2918 . 5625) (- 1073741825 9007199254740992) -> -9007198180999167) ((2919 . 5625) (- 1073741825 9007199254740993) -> -9007198180999168) ((2920 . 5625) (- 1073741825 9007199254740994) -> -9007198180999169) ((2921 . 5625) (- 1073741826 9007199254740990) -> -9007198180999164) ((2922 . 5625) (- 1073741826 9007199254740991) -> -9007198180999165) ((2923 . 5625) (- 1073741826 9007199254740992) -> -9007198180999166) ((2924 . 5625) (- 1073741826 9007199254740993) -> -9007198180999167) ((2925 . 5625) (- 1073741826 9007199254740994) -> -9007198180999168) ((2926 . 5625) (- 1073741822 -9007199254740994) -> 9007200328482816) ((2927 . 5625) (- 1073741822 -9007199254740993) -> 9007200328482815) ((2928 . 5625) (- 1073741822 -9007199254740992) -> 9007200328482814) ((2929 . 5625) (- 1073741822 -9007199254740991) -> 9007200328482813) ((2930 . 5625) (- 1073741822 -9007199254740990) -> 9007200328482812) ((2931 . 5625) (- 1073741823 -9007199254740994) -> 9007200328482817) ((2932 . 5625) (- 1073741823 -9007199254740993) -> 9007200328482816) ((2933 . 5625) (- 1073741823 -9007199254740992) -> 9007200328482815) ((2934 . 5625) (- 1073741823 -9007199254740991) -> 9007200328482814) ((2935 . 5625) (- 1073741823 -9007199254740990) -> 9007200328482813) ((2936 . 5625) (- 1073741824 -9007199254740994) -> 9007200328482818) ((2937 . 5625) (- 1073741824 -9007199254740993) -> 9007200328482817) ((2938 . 5625) (- 1073741824 -9007199254740992) -> 9007200328482816) ((2939 . 5625) (- 1073741824 -9007199254740991) -> 9007200328482815) ((2940 . 5625) (- 1073741824 -9007199254740990) -> 9007200328482814) ((2941 . 5625) (- 1073741825 -9007199254740994) -> 9007200328482819) ((2942 . 5625) (- 1073741825 -9007199254740993) -> 9007200328482818) ((2943 . 5625) (- 1073741825 -9007199254740992) -> 9007200328482817) ((2944 . 5625) (- 1073741825 -9007199254740991) -> 9007200328482816) ((2945 . 5625) (- 1073741825 -9007199254740990) -> 9007200328482815) ((2946 . 5625) (- 1073741826 -9007199254740994) -> 9007200328482820) ((2947 . 5625) (- 1073741826 -9007199254740993) -> 9007200328482819) ((2948 . 5625) (- 1073741826 -9007199254740992) -> 9007200328482818) ((2949 . 5625) (- 1073741826 -9007199254740991) -> 9007200328482817) ((2950 . 5625) (- 1073741826 -9007199254740990) -> 9007200328482816) ((2951 . 5625) (- 1073741822 12343) -> 1073729479) ((2952 . 5625) (- 1073741822 12344) -> 1073729478) ((2953 . 5625) (- 1073741822 12345) -> 1073729477) ((2954 . 5625) (- 1073741822 12346) -> 1073729476) ((2955 . 5625) (- 1073741822 12347) -> 1073729475) ((2956 . 5625) (- 1073741823 12343) -> 1073729480) ((2957 . 5625) (- 1073741823 12344) -> 1073729479) ((2958 . 5625) (- 1073741823 12345) -> 1073729478) ((2959 . 5625) (- 1073741823 12346) -> 1073729477) ((2960 . 5625) (- 1073741823 12347) -> 1073729476) ((2961 . 5625) (- 1073741824 12343) -> 1073729481) ((2962 . 5625) (- 1073741824 12344) -> 1073729480) ((2963 . 5625) (- 1073741824 12345) -> 1073729479) ((2964 . 5625) (- 1073741824 12346) -> 1073729478) ((2965 . 5625) (- 1073741824 12347) -> 1073729477) ((2966 . 5625) (- 1073741825 12343) -> 1073729482) ((2967 . 5625) (- 1073741825 12344) -> 1073729481) ((2968 . 5625) (- 1073741825 12345) -> 1073729480) ((2969 . 5625) (- 1073741825 12346) -> 1073729479) ((2970 . 5625) (- 1073741825 12347) -> 1073729478) ((2971 . 5625) (- 1073741826 12343) -> 1073729483) ((2972 . 5625) (- 1073741826 12344) -> 1073729482) ((2973 . 5625) (- 1073741826 12345) -> 1073729481) ((2974 . 5625) (- 1073741826 12346) -> 1073729480) ((2975 . 5625) (- 1073741826 12347) -> 1073729479) ((2976 . 5625) (- 1073741822 4294967294) -> -3221225472) ((2977 . 5625) (- 1073741822 4294967295) -> -3221225473) ((2978 . 5625) (- 1073741822 4294967296) -> -3221225474) ((2979 . 5625) (- 1073741822 4294967297) -> -3221225475) ((2980 . 5625) (- 1073741822 4294967298) -> -3221225476) ((2981 . 5625) (- 1073741823 4294967294) -> -3221225471) ((2982 . 5625) (- 1073741823 4294967295) -> -3221225472) ((2983 . 5625) (- 1073741823 4294967296) -> -3221225473) ((2984 . 5625) (- 1073741823 4294967297) -> -3221225474) ((2985 . 5625) (- 1073741823 4294967298) -> -3221225475) ((2986 . 5625) (- 1073741824 4294967294) -> -3221225470) ((2987 . 5625) (- 1073741824 4294967295) -> -3221225471) ((2988 . 5625) (- 1073741824 4294967296) -> -3221225472) ((2989 . 5625) (- 1073741824 4294967297) -> -3221225473) ((2990 . 5625) (- 1073741824 4294967298) -> -3221225474) ((2991 . 5625) (- 1073741825 4294967294) -> -3221225469) ((2992 . 5625) (- 1073741825 4294967295) -> -3221225470) ((2993 . 5625) (- 1073741825 4294967296) -> -3221225471) ((2994 . 5625) (- 1073741825 4294967297) -> -3221225472) ((2995 . 5625) (- 1073741825 4294967298) -> -3221225473) ((2996 . 5625) (- 1073741826 4294967294) -> -3221225468) ((2997 . 5625) (- 1073741826 4294967295) -> -3221225469) ((2998 . 5625) (- 1073741826 4294967296) -> -3221225470) ((2999 . 5625) (- 1073741826 4294967297) -> -3221225471) ((3000 . 5625) (- 1073741826 4294967298) -> -3221225472) ((3001 . 5625) (- -1073741827 -2) -> -1073741825) ((3002 . 5625) (- -1073741827 -1) -> -1073741826) ((3003 . 5625) (- -1073741827 0) -> -1073741827) ((3004 . 5625) (- -1073741827 1) -> -1073741828) ((3005 . 5625) (- -1073741827 2) -> -1073741829) ((3006 . 5625) (- -1073741826 -2) -> -1073741824) ((3007 . 5625) (- -1073741826 -1) -> -1073741825) ((3008 . 5625) (- -1073741826 0) -> -1073741826) ((3009 . 5625) (- -1073741826 1) -> -1073741827) ((3010 . 5625) (- -1073741826 2) -> -1073741828) ((3011 . 5625) (- -1073741825 -2) -> -1073741823) ((3012 . 5625) (- -1073741825 -1) -> -1073741824) ((3013 . 5625) (- -1073741825 0) -> -1073741825) ((3014 . 5625) (- -1073741825 1) -> -1073741826) ((3015 . 5625) (- -1073741825 2) -> -1073741827) ((3016 . 5625) (- -1073741824 -2) -> -1073741822) ((3017 . 5625) (- -1073741824 -1) -> -1073741823) ((3018 . 5625) (- -1073741824 0) -> -1073741824) ((3019 . 5625) (- -1073741824 1) -> -1073741825) ((3020 . 5625) (- -1073741824 2) -> -1073741826) ((3021 . 5625) (- -1073741823 -2) -> -1073741821) ((3022 . 5625) (- -1073741823 -1) -> -1073741822) ((3023 . 5625) (- -1073741823 0) -> -1073741823) ((3024 . 5625) (- -1073741823 1) -> -1073741824) ((3025 . 5625) (- -1073741823 2) -> -1073741825) ((3026 . 5625) (- -1073741827 -1) -> -1073741826) ((3027 . 5625) (- -1073741827 0) -> -1073741827) ((3028 . 5625) (- -1073741827 1) -> -1073741828) ((3029 . 5625) (- -1073741827 2) -> -1073741829) ((3030 . 5625) (- -1073741827 3) -> -1073741830) ((3031 . 5625) (- -1073741826 -1) -> -1073741825) ((3032 . 5625) (- -1073741826 0) -> -1073741826) ((3033 . 5625) (- -1073741826 1) -> -1073741827) ((3034 . 5625) (- -1073741826 2) -> -1073741828) ((3035 . 5625) (- -1073741826 3) -> -1073741829) ((3036 . 5625) (- -1073741825 -1) -> -1073741824) ((3037 . 5625) (- -1073741825 0) -> -1073741825) ((3038 . 5625) (- -1073741825 1) -> -1073741826) ((3039 . 5625) (- -1073741825 2) -> -1073741827) ((3040 . 5625) (- -1073741825 3) -> -1073741828) ((3041 . 5625) (- -1073741824 -1) -> -1073741823) ((3042 . 5625) (- -1073741824 0) -> -1073741824) ((3043 . 5625) (- -1073741824 1) -> -1073741825) ((3044 . 5625) (- -1073741824 2) -> -1073741826) ((3045 . 5625) (- -1073741824 3) -> -1073741827) ((3046 . 5625) (- -1073741823 -1) -> -1073741822) ((3047 . 5625) (- -1073741823 0) -> -1073741823) ((3048 . 5625) (- -1073741823 1) -> -1073741824) ((3049 . 5625) (- -1073741823 2) -> -1073741825) ((3050 . 5625) (- -1073741823 3) -> -1073741826) ((3051 . 5625) (- -1073741827 -3) -> -1073741824) ((3052 . 5625) (- -1073741827 -2) -> -1073741825) ((3053 . 5625) (- -1073741827 -1) -> -1073741826) ((3054 . 5625) (- -1073741827 0) -> -1073741827) ((3055 . 5625) (- -1073741827 1) -> -1073741828) ((3056 . 5625) (- -1073741826 -3) -> -1073741823) ((3057 . 5625) (- -1073741826 -2) -> -1073741824) ((3058 . 5625) (- -1073741826 -1) -> -1073741825) ((3059 . 5625) (- -1073741826 0) -> -1073741826) ((3060 . 5625) (- -1073741826 1) -> -1073741827) ((3061 . 5625) (- -1073741825 -3) -> -1073741822) ((3062 . 5625) (- -1073741825 -2) -> -1073741823) ((3063 . 5625) (- -1073741825 -1) -> -1073741824) ((3064 . 5625) (- -1073741825 0) -> -1073741825) ((3065 . 5625) (- -1073741825 1) -> -1073741826) ((3066 . 5625) (- -1073741824 -3) -> -1073741821) ((3067 . 5625) (- -1073741824 -2) -> -1073741822) ((3068 . 5625) (- -1073741824 -1) -> -1073741823) ((3069 . 5625) (- -1073741824 0) -> -1073741824) ((3070 . 5625) (- -1073741824 1) -> -1073741825) ((3071 . 5625) (- -1073741823 -3) -> -1073741820) ((3072 . 5625) (- -1073741823 -2) -> -1073741821) ((3073 . 5625) (- -1073741823 -1) -> -1073741822) ((3074 . 5625) (- -1073741823 0) -> -1073741823) ((3075 . 5625) (- -1073741823 1) -> -1073741824) ((3076 . 5625) (- -1073741827 0) -> -1073741827) ((3077 . 5625) (- -1073741827 1) -> -1073741828) ((3078 . 5625) (- -1073741827 2) -> -1073741829) ((3079 . 5625) (- -1073741827 3) -> -1073741830) ((3080 . 5625) (- -1073741827 4) -> -1073741831) ((3081 . 5625) (- -1073741826 0) -> -1073741826) ((3082 . 5625) (- -1073741826 1) -> -1073741827) ((3083 . 5625) (- -1073741826 2) -> -1073741828) ((3084 . 5625) (- -1073741826 3) -> -1073741829) ((3085 . 5625) (- -1073741826 4) -> -1073741830) ((3086 . 5625) (- -1073741825 0) -> -1073741825) ((3087 . 5625) (- -1073741825 1) -> -1073741826) ((3088 . 5625) (- -1073741825 2) -> -1073741827) ((3089 . 5625) (- -1073741825 3) -> -1073741828) ((3090 . 5625) (- -1073741825 4) -> -1073741829) ((3091 . 5625) (- -1073741824 0) -> -1073741824) ((3092 . 5625) (- -1073741824 1) -> -1073741825) ((3093 . 5625) (- -1073741824 2) -> -1073741826) ((3094 . 5625) (- -1073741824 3) -> -1073741827) ((3095 . 5625) (- -1073741824 4) -> -1073741828) ((3096 . 5625) (- -1073741823 0) -> -1073741823) ((3097 . 5625) (- -1073741823 1) -> -1073741824) ((3098 . 5625) (- -1073741823 2) -> -1073741825) ((3099 . 5625) (- -1073741823 3) -> -1073741826) ((3100 . 5625) (- -1073741823 4) -> -1073741827) ((3101 . 5625) (- -1073741827 -4) -> -1073741823) ((3102 . 5625) (- -1073741827 -3) -> -1073741824) ((3103 . 5625) (- -1073741827 -2) -> -1073741825) ((3104 . 5625) (- -1073741827 -1) -> -1073741826) ((3105 . 5625) (- -1073741827 0) -> -1073741827) ((3106 . 5625) (- -1073741826 -4) -> -1073741822) ((3107 . 5625) (- -1073741826 -3) -> -1073741823) ((3108 . 5625) (- -1073741826 -2) -> -1073741824) ((3109 . 5625) (- -1073741826 -1) -> -1073741825) ((3110 . 5625) (- -1073741826 0) -> -1073741826) ((3111 . 5625) (- -1073741825 -4) -> -1073741821) ((3112 . 5625) (- -1073741825 -3) -> -1073741822) ((3113 . 5625) (- -1073741825 -2) -> -1073741823) ((3114 . 5625) (- -1073741825 -1) -> -1073741824) ((3115 . 5625) (- -1073741825 0) -> -1073741825) ((3116 . 5625) (- -1073741824 -4) -> -1073741820) ((3117 . 5625) (- -1073741824 -3) -> -1073741821) ((3118 . 5625) (- -1073741824 -2) -> -1073741822) ((3119 . 5625) (- -1073741824 -1) -> -1073741823) ((3120 . 5625) (- -1073741824 0) -> -1073741824) ((3121 . 5625) (- -1073741823 -4) -> -1073741819) ((3122 . 5625) (- -1073741823 -3) -> -1073741820) ((3123 . 5625) (- -1073741823 -2) -> -1073741821) ((3124 . 5625) (- -1073741823 -1) -> -1073741822) ((3125 . 5625) (- -1073741823 0) -> -1073741823) ((3126 . 5625) (- -1073741827 1073741821) -> -2147483648) ((3127 . 5625) (- -1073741827 1073741822) -> -2147483649) ((3128 . 5625) (- -1073741827 1073741823) -> -2147483650) ((3129 . 5625) (- -1073741827 1073741824) -> -2147483651) ((3130 . 5625) (- -1073741827 1073741825) -> -2147483652) ((3131 . 5625) (- -1073741826 1073741821) -> -2147483647) ((3132 . 5625) (- -1073741826 1073741822) -> -2147483648) ((3133 . 5625) (- -1073741826 1073741823) -> -2147483649) ((3134 . 5625) (- -1073741826 1073741824) -> -2147483650) ((3135 . 5625) (- -1073741826 1073741825) -> -2147483651) ((3136 . 5625) (- -1073741825 1073741821) -> -2147483646) ((3137 . 5625) (- -1073741825 1073741822) -> -2147483647) ((3138 . 5625) (- -1073741825 1073741823) -> -2147483648) ((3139 . 5625) (- -1073741825 1073741824) -> -2147483649) ((3140 . 5625) (- -1073741825 1073741825) -> -2147483650) ((3141 . 5625) (- -1073741824 1073741821) -> -2147483645) ((3142 . 5625) (- -1073741824 1073741822) -> -2147483646) ((3143 . 5625) (- -1073741824 1073741823) -> -2147483647) ((3144 . 5625) (- -1073741824 1073741824) -> -2147483648) ((3145 . 5625) (- -1073741824 1073741825) -> -2147483649) ((3146 . 5625) (- -1073741823 1073741821) -> -2147483644) ((3147 . 5625) (- -1073741823 1073741822) -> -2147483645) ((3148 . 5625) (- -1073741823 1073741823) -> -2147483646) ((3149 . 5625) (- -1073741823 1073741824) -> -2147483647) ((3150 . 5625) (- -1073741823 1073741825) -> -2147483648) ((3151 . 5625) (- -1073741827 -1073741826) -> -1) ((3152 . 5625) (- -1073741827 -1073741825) -> -2) ((3153 . 5625) (- -1073741827 -1073741824) -> -3) ((3154 . 5625) (- -1073741827 -1073741823) -> -4) ((3155 . 5625) (- -1073741827 -1073741822) -> -5) ((3156 . 5625) (- -1073741826 -1073741826) -> 0) ((3157 . 5625) (- -1073741826 -1073741825) -> -1) ((3158 . 5625) (- -1073741826 -1073741824) -> -2) ((3159 . 5625) (- -1073741826 -1073741823) -> -3) ((3160 . 5625) (- -1073741826 -1073741822) -> -4) ((3161 . 5625) (- -1073741825 -1073741826) -> 1) ((3162 . 5625) (- -1073741825 -1073741825) -> 0) ((3163 . 5625) (- -1073741825 -1073741824) -> -1) ((3164 . 5625) (- -1073741825 -1073741823) -> -2) ((3165 . 5625) (- -1073741825 -1073741822) -> -3) ((3166 . 5625) (- -1073741824 -1073741826) -> 2) ((3167 . 5625) (- -1073741824 -1073741825) -> 1) ((3168 . 5625) (- -1073741824 -1073741824) -> 0) ((3169 . 5625) (- -1073741824 -1073741823) -> -1) ((3170 . 5625) (- -1073741824 -1073741822) -> -2) ((3171 . 5625) (- -1073741823 -1073741826) -> 3) ((3172 . 5625) (- -1073741823 -1073741825) -> 2) ((3173 . 5625) (- -1073741823 -1073741824) -> 1) ((3174 . 5625) (- -1073741823 -1073741823) -> 0) ((3175 . 5625) (- -1073741823 -1073741822) -> -1) ((3176 . 5625) (- -1073741827 1073741822) -> -2147483649) ((3177 . 5625) (- -1073741827 1073741823) -> -2147483650) ((3178 . 5625) (- -1073741827 1073741824) -> -2147483651) ((3179 . 5625) (- -1073741827 1073741825) -> -2147483652) ((3180 . 5625) (- -1073741827 1073741826) -> -2147483653) ((3181 . 5625) (- -1073741826 1073741822) -> -2147483648) ((3182 . 5625) (- -1073741826 1073741823) -> -2147483649) ((3183 . 5625) (- -1073741826 1073741824) -> -2147483650) ((3184 . 5625) (- -1073741826 1073741825) -> -2147483651) ((3185 . 5625) (- -1073741826 1073741826) -> -2147483652) ((3186 . 5625) (- -1073741825 1073741822) -> -2147483647) ((3187 . 5625) (- -1073741825 1073741823) -> -2147483648) ((3188 . 5625) (- -1073741825 1073741824) -> -2147483649) ((3189 . 5625) (- -1073741825 1073741825) -> -2147483650) ((3190 . 5625) (- -1073741825 1073741826) -> -2147483651) ((3191 . 5625) (- -1073741824 1073741822) -> -2147483646) ((3192 . 5625) (- -1073741824 1073741823) -> -2147483647) ((3193 . 5625) (- -1073741824 1073741824) -> -2147483648) ((3194 . 5625) (- -1073741824 1073741825) -> -2147483649) ((3195 . 5625) (- -1073741824 1073741826) -> -2147483650) ((3196 . 5625) (- -1073741823 1073741822) -> -2147483645) ((3197 . 5625) (- -1073741823 1073741823) -> -2147483646) ((3198 . 5625) (- -1073741823 1073741824) -> -2147483647) ((3199 . 5625) (- -1073741823 1073741825) -> -2147483648) ((3200 . 5625) (- -1073741823 1073741826) -> -2147483649) ((3201 . 5625) (- -1073741827 -1073741827) -> 0) ((3202 . 5625) (- -1073741827 -1073741826) -> -1) ((3203 . 5625) (- -1073741827 -1073741825) -> -2) ((3204 . 5625) (- -1073741827 -1073741824) -> -3) ((3205 . 5625) (- -1073741827 -1073741823) -> -4) ((3206 . 5625) (- -1073741826 -1073741827) -> 1) ((3207 . 5625) (- -1073741826 -1073741826) -> 0) ((3208 . 5625) (- -1073741826 -1073741825) -> -1) ((3209 . 5625) (- -1073741826 -1073741824) -> -2) ((3210 . 5625) (- -1073741826 -1073741823) -> -3) ((3211 . 5625) (- -1073741825 -1073741827) -> 2) ((3212 . 5625) (- -1073741825 -1073741826) -> 1) ((3213 . 5625) (- -1073741825 -1073741825) -> 0) ((3214 . 5625) (- -1073741825 -1073741824) -> -1) ((3215 . 5625) (- -1073741825 -1073741823) -> -2) ((3216 . 5625) (- -1073741824 -1073741827) -> 3) ((3217 . 5625) (- -1073741824 -1073741826) -> 2) ((3218 . 5625) (- -1073741824 -1073741825) -> 1) ((3219 . 5625) (- -1073741824 -1073741824) -> 0) ((3220 . 5625) (- -1073741824 -1073741823) -> -1) ((3221 . 5625) (- -1073741823 -1073741827) -> 4) ((3222 . 5625) (- -1073741823 -1073741826) -> 3) ((3223 . 5625) (- -1073741823 -1073741825) -> 2) ((3224 . 5625) (- -1073741823 -1073741824) -> 1) ((3225 . 5625) (- -1073741823 -1073741823) -> 0) ((3226 . 5625) (- -1073741827 1103515243) -> -2177257070) ((3227 . 5625) (- -1073741827 1103515244) -> -2177257071) ((3228 . 5625) (- -1073741827 1103515245) -> -2177257072) ((3229 . 5625) (- -1073741827 1103515246) -> -2177257073) ((3230 . 5625) (- -1073741827 1103515247) -> -2177257074) ((3231 . 5625) (- -1073741826 1103515243) -> -2177257069) ((3232 . 5625) (- -1073741826 1103515244) -> -2177257070) ((3233 . 5625) (- -1073741826 1103515245) -> -2177257071) ((3234 . 5625) (- -1073741826 1103515246) -> -2177257072) ((3235 . 5625) (- -1073741826 1103515247) -> -2177257073) ((3236 . 5625) (- -1073741825 1103515243) -> -2177257068) ((3237 . 5625) (- -1073741825 1103515244) -> -2177257069) ((3238 . 5625) (- -1073741825 1103515245) -> -2177257070) ((3239 . 5625) (- -1073741825 1103515246) -> -2177257071) ((3240 . 5625) (- -1073741825 1103515247) -> -2177257072) ((3241 . 5625) (- -1073741824 1103515243) -> -2177257067) ((3242 . 5625) (- -1073741824 1103515244) -> -2177257068) ((3243 . 5625) (- -1073741824 1103515245) -> -2177257069) ((3244 . 5625) (- -1073741824 1103515246) -> -2177257070) ((3245 . 5625) (- -1073741824 1103515247) -> -2177257071) ((3246 . 5625) (- -1073741823 1103515243) -> -2177257066) ((3247 . 5625) (- -1073741823 1103515244) -> -2177257067) ((3248 . 5625) (- -1073741823 1103515245) -> -2177257068) ((3249 . 5625) (- -1073741823 1103515246) -> -2177257069) ((3250 . 5625) (- -1073741823 1103515247) -> -2177257070) ((3251 . 5625) (- -1073741827 631629063) -> -1705370890) ((3252 . 5625) (- -1073741827 631629064) -> -1705370891) ((3253 . 5625) (- -1073741827 631629065) -> -1705370892) ((3254 . 5625) (- -1073741827 631629066) -> -1705370893) ((3255 . 5625) (- -1073741827 631629067) -> -1705370894) ((3256 . 5625) (- -1073741826 631629063) -> -1705370889) ((3257 . 5625) (- -1073741826 631629064) -> -1705370890) ((3258 . 5625) (- -1073741826 631629065) -> -1705370891) ((3259 . 5625) (- -1073741826 631629066) -> -1705370892) ((3260 . 5625) (- -1073741826 631629067) -> -1705370893) ((3261 . 5625) (- -1073741825 631629063) -> -1705370888) ((3262 . 5625) (- -1073741825 631629064) -> -1705370889) ((3263 . 5625) (- -1073741825 631629065) -> -1705370890) ((3264 . 5625) (- -1073741825 631629066) -> -1705370891) ((3265 . 5625) (- -1073741825 631629067) -> -1705370892) ((3266 . 5625) (- -1073741824 631629063) -> -1705370887) ((3267 . 5625) (- -1073741824 631629064) -> -1705370888) ((3268 . 5625) (- -1073741824 631629065) -> -1705370889) ((3269 . 5625) (- -1073741824 631629066) -> -1705370890) ((3270 . 5625) (- -1073741824 631629067) -> -1705370891) ((3271 . 5625) (- -1073741823 631629063) -> -1705370886) ((3272 . 5625) (- -1073741823 631629064) -> -1705370887) ((3273 . 5625) (- -1073741823 631629065) -> -1705370888) ((3274 . 5625) (- -1073741823 631629066) -> -1705370889) ((3275 . 5625) (- -1073741823 631629067) -> -1705370890) ((3276 . 5625) (- -1073741827 9007199254740990) -> -9007200328482817) ((3277 . 5625) (- -1073741827 9007199254740991) -> -9007200328482818) ((3278 . 5625) (- -1073741827 9007199254740992) -> -9007200328482819) ((3279 . 5625) (- -1073741827 9007199254740993) -> -9007200328482820) ((3280 . 5625) (- -1073741827 9007199254740994) -> -9007200328482821) ((3281 . 5625) (- -1073741826 9007199254740990) -> -9007200328482816) ((3282 . 5625) (- -1073741826 9007199254740991) -> -9007200328482817) ((3283 . 5625) (- -1073741826 9007199254740992) -> -9007200328482818) ((3284 . 5625) (- -1073741826 9007199254740993) -> -9007200328482819) ((3285 . 5625) (- -1073741826 9007199254740994) -> -9007200328482820) ((3286 . 5625) (- -1073741825 9007199254740990) -> -9007200328482815) ((3287 . 5625) (- -1073741825 9007199254740991) -> -9007200328482816) ((3288 . 5625) (- -1073741825 9007199254740992) -> -9007200328482817) ((3289 . 5625) (- -1073741825 9007199254740993) -> -9007200328482818) ((3290 . 5625) (- -1073741825 9007199254740994) -> -9007200328482819) ((3291 . 5625) (- -1073741824 9007199254740990) -> -9007200328482814) ((3292 . 5625) (- -1073741824 9007199254740991) -> -9007200328482815) ((3293 . 5625) (- -1073741824 9007199254740992) -> -9007200328482816) ((3294 . 5625) (- -1073741824 9007199254740993) -> -9007200328482817) ((3295 . 5625) (- -1073741824 9007199254740994) -> -9007200328482818) ((3296 . 5625) (- -1073741823 9007199254740990) -> -9007200328482813) ((3297 . 5625) (- -1073741823 9007199254740991) -> -9007200328482814) ((3298 . 5625) (- -1073741823 9007199254740992) -> -9007200328482815) ((3299 . 5625) (- -1073741823 9007199254740993) -> -9007200328482816) ((3300 . 5625) (- -1073741823 9007199254740994) -> -9007200328482817) ((3301 . 5625) (- -1073741827 -9007199254740994) -> 9007198180999167) ((3302 . 5625) (- -1073741827 -9007199254740993) -> 9007198180999166) ((3303 . 5625) (- -1073741827 -9007199254740992) -> 9007198180999165) ((3304 . 5625) (- -1073741827 -9007199254740991) -> 9007198180999164) ((3305 . 5625) (- -1073741827 -9007199254740990) -> 9007198180999163) ((3306 . 5625) (- -1073741826 -9007199254740994) -> 9007198180999168) ((3307 . 5625) (- -1073741826 -9007199254740993) -> 9007198180999167) ((3308 . 5625) (- -1073741826 -9007199254740992) -> 9007198180999166) ((3309 . 5625) (- -1073741826 -9007199254740991) -> 9007198180999165) ((3310 . 5625) (- -1073741826 -9007199254740990) -> 9007198180999164) ((3311 . 5625) (- -1073741825 -9007199254740994) -> 9007198180999169) ((3312 . 5625) (- -1073741825 -9007199254740993) -> 9007198180999168) ((3313 . 5625) (- -1073741825 -9007199254740992) -> 9007198180999167) ((3314 . 5625) (- -1073741825 -9007199254740991) -> 9007198180999166) ((3315 . 5625) (- -1073741825 -9007199254740990) -> 9007198180999165) ((3316 . 5625) (- -1073741824 -9007199254740994) -> 9007198180999170) ((3317 . 5625) (- -1073741824 -9007199254740993) -> 9007198180999169) ((3318 . 5625) (- -1073741824 -9007199254740992) -> 9007198180999168) ((3319 . 5625) (- -1073741824 -9007199254740991) -> 9007198180999167) ((3320 . 5625) (- -1073741824 -9007199254740990) -> 9007198180999166) ((3321 . 5625) (- -1073741823 -9007199254740994) -> 9007198180999171) ((3322 . 5625) (- -1073741823 -9007199254740993) -> 9007198180999170) ((3323 . 5625) (- -1073741823 -9007199254740992) -> 9007198180999169) ((3324 . 5625) (- -1073741823 -9007199254740991) -> 9007198180999168) ((3325 . 5625) (- -1073741823 -9007199254740990) -> 9007198180999167) ((3326 . 5625) (- -1073741827 12343) -> -1073754170) ((3327 . 5625) (- -1073741827 12344) -> -1073754171) ((3328 . 5625) (- -1073741827 12345) -> -1073754172) ((3329 . 5625) (- -1073741827 12346) -> -1073754173) ((3330 . 5625) (- -1073741827 12347) -> -1073754174) ((3331 . 5625) (- -1073741826 12343) -> -1073754169) ((3332 . 5625) (- -1073741826 12344) -> -1073754170) ((3333 . 5625) (- -1073741826 12345) -> -1073754171) ((3334 . 5625) (- -1073741826 12346) -> -1073754172) ((3335 . 5625) (- -1073741826 12347) -> -1073754173) ((3336 . 5625) (- -1073741825 12343) -> -1073754168) ((3337 . 5625) (- -1073741825 12344) -> -1073754169) ((3338 . 5625) (- -1073741825 12345) -> -1073754170) ((3339 . 5625) (- -1073741825 12346) -> -1073754171) ((3340 . 5625) (- -1073741825 12347) -> -1073754172) ((3341 . 5625) (- -1073741824 12343) -> -1073754167) ((3342 . 5625) (- -1073741824 12344) -> -1073754168) ((3343 . 5625) (- -1073741824 12345) -> -1073754169) ((3344 . 5625) (- -1073741824 12346) -> -1073754170) ((3345 . 5625) (- -1073741824 12347) -> -1073754171) ((3346 . 5625) (- -1073741823 12343) -> -1073754166) ((3347 . 5625) (- -1073741823 12344) -> -1073754167) ((3348 . 5625) (- -1073741823 12345) -> -1073754168) ((3349 . 5625) (- -1073741823 12346) -> -1073754169) ((3350 . 5625) (- -1073741823 12347) -> -1073754170) ((3351 . 5625) (- -1073741827 4294967294) -> -5368709121) ((3352 . 5625) (- -1073741827 4294967295) -> -5368709122) ((3353 . 5625) (- -1073741827 4294967296) -> -5368709123) ((3354 . 5625) (- -1073741827 4294967297) -> -5368709124) ((3355 . 5625) (- -1073741827 4294967298) -> -5368709125) ((3356 . 5625) (- -1073741826 4294967294) -> -5368709120) ((3357 . 5625) (- -1073741826 4294967295) -> -5368709121) ((3358 . 5625) (- -1073741826 4294967296) -> -5368709122) ((3359 . 5625) (- -1073741826 4294967297) -> -5368709123) ((3360 . 5625) (- -1073741826 4294967298) -> -5368709124) ((3361 . 5625) (- -1073741825 4294967294) -> -5368709119) ((3362 . 5625) (- -1073741825 4294967295) -> -5368709120) ((3363 . 5625) (- -1073741825 4294967296) -> -5368709121) ((3364 . 5625) (- -1073741825 4294967297) -> -5368709122) ((3365 . 5625) (- -1073741825 4294967298) -> -5368709123) ((3366 . 5625) (- -1073741824 4294967294) -> -5368709118) ((3367 . 5625) (- -1073741824 4294967295) -> -5368709119) ((3368 . 5625) (- -1073741824 4294967296) -> -5368709120) ((3369 . 5625) (- -1073741824 4294967297) -> -5368709121) ((3370 . 5625) (- -1073741824 4294967298) -> -5368709122) ((3371 . 5625) (- -1073741823 4294967294) -> -5368709117) ((3372 . 5625) (- -1073741823 4294967295) -> -5368709118) ((3373 . 5625) (- -1073741823 4294967296) -> -5368709119) ((3374 . 5625) (- -1073741823 4294967297) -> -5368709120) ((3375 . 5625) (- -1073741823 4294967298) -> -5368709121) ((3376 . 5625) (- 1103515243 -2) -> 1103515245) ((3377 . 5625) (- 1103515243 -1) -> 1103515244) ((3378 . 5625) (- 1103515243 0) -> 1103515243) ((3379 . 5625) (- 1103515243 1) -> 1103515242) ((3380 . 5625) (- 1103515243 2) -> 1103515241) ((3381 . 5625) (- 1103515244 -2) -> 1103515246) ((3382 . 5625) (- 1103515244 -1) -> 1103515245) ((3383 . 5625) (- 1103515244 0) -> 1103515244) ((3384 . 5625) (- 1103515244 1) -> 1103515243) ((3385 . 5625) (- 1103515244 2) -> 1103515242) ((3386 . 5625) (- 1103515245 -2) -> 1103515247) ((3387 . 5625) (- 1103515245 -1) -> 1103515246) ((3388 . 5625) (- 1103515245 0) -> 1103515245) ((3389 . 5625) (- 1103515245 1) -> 1103515244) ((3390 . 5625) (- 1103515245 2) -> 1103515243) ((3391 . 5625) (- 1103515246 -2) -> 1103515248) ((3392 . 5625) (- 1103515246 -1) -> 1103515247) ((3393 . 5625) (- 1103515246 0) -> 1103515246) ((3394 . 5625) (- 1103515246 1) -> 1103515245) ((3395 . 5625) (- 1103515246 2) -> 1103515244) ((3396 . 5625) (- 1103515247 -2) -> 1103515249) ((3397 . 5625) (- 1103515247 -1) -> 1103515248) ((3398 . 5625) (- 1103515247 0) -> 1103515247) ((3399 . 5625) (- 1103515247 1) -> 1103515246) ((3400 . 5625) (- 1103515247 2) -> 1103515245) ((3401 . 5625) (- 1103515243 -1) -> 1103515244) ((3402 . 5625) (- 1103515243 0) -> 1103515243) ((3403 . 5625) (- 1103515243 1) -> 1103515242) ((3404 . 5625) (- 1103515243 2) -> 1103515241) ((3405 . 5625) (- 1103515243 3) -> 1103515240) ((3406 . 5625) (- 1103515244 -1) -> 1103515245) ((3407 . 5625) (- 1103515244 0) -> 1103515244) ((3408 . 5625) (- 1103515244 1) -> 1103515243) ((3409 . 5625) (- 1103515244 2) -> 1103515242) ((3410 . 5625) (- 1103515244 3) -> 1103515241) ((3411 . 5625) (- 1103515245 -1) -> 1103515246) ((3412 . 5625) (- 1103515245 0) -> 1103515245) ((3413 . 5625) (- 1103515245 1) -> 1103515244) ((3414 . 5625) (- 1103515245 2) -> 1103515243) ((3415 . 5625) (- 1103515245 3) -> 1103515242) ((3416 . 5625) (- 1103515246 -1) -> 1103515247) ((3417 . 5625) (- 1103515246 0) -> 1103515246) ((3418 . 5625) (- 1103515246 1) -> 1103515245) ((3419 . 5625) (- 1103515246 2) -> 1103515244) ((3420 . 5625) (- 1103515246 3) -> 1103515243) ((3421 . 5625) (- 1103515247 -1) -> 1103515248) ((3422 . 5625) (- 1103515247 0) -> 1103515247) ((3423 . 5625) (- 1103515247 1) -> 1103515246) ((3424 . 5625) (- 1103515247 2) -> 1103515245) ((3425 . 5625) (- 1103515247 3) -> 1103515244) ((3426 . 5625) (- 1103515243 -3) -> 1103515246) ((3427 . 5625) (- 1103515243 -2) -> 1103515245) ((3428 . 5625) (- 1103515243 -1) -> 1103515244) ((3429 . 5625) (- 1103515243 0) -> 1103515243) ((3430 . 5625) (- 1103515243 1) -> 1103515242) ((3431 . 5625) (- 1103515244 -3) -> 1103515247) ((3432 . 5625) (- 1103515244 -2) -> 1103515246) ((3433 . 5625) (- 1103515244 -1) -> 1103515245) ((3434 . 5625) (- 1103515244 0) -> 1103515244) ((3435 . 5625) (- 1103515244 1) -> 1103515243) ((3436 . 5625) (- 1103515245 -3) -> 1103515248) ((3437 . 5625) (- 1103515245 -2) -> 1103515247) ((3438 . 5625) (- 1103515245 -1) -> 1103515246) ((3439 . 5625) (- 1103515245 0) -> 1103515245) ((3440 . 5625) (- 1103515245 1) -> 1103515244) ((3441 . 5625) (- 1103515246 -3) -> 1103515249) ((3442 . 5625) (- 1103515246 -2) -> 1103515248) ((3443 . 5625) (- 1103515246 -1) -> 1103515247) ((3444 . 5625) (- 1103515246 0) -> 1103515246) ((3445 . 5625) (- 1103515246 1) -> 1103515245) ((3446 . 5625) (- 1103515247 -3) -> 1103515250) ((3447 . 5625) (- 1103515247 -2) -> 1103515249) ((3448 . 5625) (- 1103515247 -1) -> 1103515248) ((3449 . 5625) (- 1103515247 0) -> 1103515247) ((3450 . 5625) (- 1103515247 1) -> 1103515246) ((3451 . 5625) (- 1103515243 0) -> 1103515243) ((3452 . 5625) (- 1103515243 1) -> 1103515242) ((3453 . 5625) (- 1103515243 2) -> 1103515241) ((3454 . 5625) (- 1103515243 3) -> 1103515240) ((3455 . 5625) (- 1103515243 4) -> 1103515239) ((3456 . 5625) (- 1103515244 0) -> 1103515244) ((3457 . 5625) (- 1103515244 1) -> 1103515243) ((3458 . 5625) (- 1103515244 2) -> 1103515242) ((3459 . 5625) (- 1103515244 3) -> 1103515241) ((3460 . 5625) (- 1103515244 4) -> 1103515240) ((3461 . 5625) (- 1103515245 0) -> 1103515245) ((3462 . 5625) (- 1103515245 1) -> 1103515244) ((3463 . 5625) (- 1103515245 2) -> 1103515243) ((3464 . 5625) (- 1103515245 3) -> 1103515242) ((3465 . 5625) (- 1103515245 4) -> 1103515241) ((3466 . 5625) (- 1103515246 0) -> 1103515246) ((3467 . 5625) (- 1103515246 1) -> 1103515245) ((3468 . 5625) (- 1103515246 2) -> 1103515244) ((3469 . 5625) (- 1103515246 3) -> 1103515243) ((3470 . 5625) (- 1103515246 4) -> 1103515242) ((3471 . 5625) (- 1103515247 0) -> 1103515247) ((3472 . 5625) (- 1103515247 1) -> 1103515246) ((3473 . 5625) (- 1103515247 2) -> 1103515245) ((3474 . 5625) (- 1103515247 3) -> 1103515244) ((3475 . 5625) (- 1103515247 4) -> 1103515243) ((3476 . 5625) (- 1103515243 -4) -> 1103515247) ((3477 . 5625) (- 1103515243 -3) -> 1103515246) ((3478 . 5625) (- 1103515243 -2) -> 1103515245) ((3479 . 5625) (- 1103515243 -1) -> 1103515244) ((3480 . 5625) (- 1103515243 0) -> 1103515243) ((3481 . 5625) (- 1103515244 -4) -> 1103515248) ((3482 . 5625) (- 1103515244 -3) -> 1103515247) ((3483 . 5625) (- 1103515244 -2) -> 1103515246) ((3484 . 5625) (- 1103515244 -1) -> 1103515245) ((3485 . 5625) (- 1103515244 0) -> 1103515244) ((3486 . 5625) (- 1103515245 -4) -> 1103515249) ((3487 . 5625) (- 1103515245 -3) -> 1103515248) ((3488 . 5625) (- 1103515245 -2) -> 1103515247) ((3489 . 5625) (- 1103515245 -1) -> 1103515246) ((3490 . 5625) (- 1103515245 0) -> 1103515245) ((3491 . 5625) (- 1103515246 -4) -> 1103515250) ((3492 . 5625) (- 1103515246 -3) -> 1103515249) ((3493 . 5625) (- 1103515246 -2) -> 1103515248) ((3494 . 5625) (- 1103515246 -1) -> 1103515247) ((3495 . 5625) (- 1103515246 0) -> 1103515246) ((3496 . 5625) (- 1103515247 -4) -> 1103515251) ((3497 . 5625) (- 1103515247 -3) -> 1103515250) ((3498 . 5625) (- 1103515247 -2) -> 1103515249) ((3499 . 5625) (- 1103515247 -1) -> 1103515248) ((3500 . 5625) (- 1103515247 0) -> 1103515247) ((3501 . 5625) (- 1103515243 1073741821) -> 29773422) ((3502 . 5625) (- 1103515243 1073741822) -> 29773421) ((3503 . 5625) (- 1103515243 1073741823) -> 29773420) ((3504 . 5625) (- 1103515243 1073741824) -> 29773419) ((3505 . 5625) (- 1103515243 1073741825) -> 29773418) ((3506 . 5625) (- 1103515244 1073741821) -> 29773423) ((3507 . 5625) (- 1103515244 1073741822) -> 29773422) ((3508 . 5625) (- 1103515244 1073741823) -> 29773421) ((3509 . 5625) (- 1103515244 1073741824) -> 29773420) ((3510 . 5625) (- 1103515244 1073741825) -> 29773419) ((3511 . 5625) (- 1103515245 1073741821) -> 29773424) ((3512 . 5625) (- 1103515245 1073741822) -> 29773423) ((3513 . 5625) (- 1103515245 1073741823) -> 29773422) ((3514 . 5625) (- 1103515245 1073741824) -> 29773421) ((3515 . 5625) (- 1103515245 1073741825) -> 29773420) ((3516 . 5625) (- 1103515246 1073741821) -> 29773425) ((3517 . 5625) (- 1103515246 1073741822) -> 29773424) ((3518 . 5625) (- 1103515246 1073741823) -> 29773423) ((3519 . 5625) (- 1103515246 1073741824) -> 29773422) ((3520 . 5625) (- 1103515246 1073741825) -> 29773421) ((3521 . 5625) (- 1103515247 1073741821) -> 29773426) ((3522 . 5625) (- 1103515247 1073741822) -> 29773425) ((3523 . 5625) (- 1103515247 1073741823) -> 29773424) ((3524 . 5625) (- 1103515247 1073741824) -> 29773423) ((3525 . 5625) (- 1103515247 1073741825) -> 29773422) ((3526 . 5625) (- 1103515243 -1073741826) -> 2177257069) ((3527 . 5625) (- 1103515243 -1073741825) -> 2177257068) ((3528 . 5625) (- 1103515243 -1073741824) -> 2177257067) ((3529 . 5625) (- 1103515243 -1073741823) -> 2177257066) ((3530 . 5625) (- 1103515243 -1073741822) -> 2177257065) ((3531 . 5625) (- 1103515244 -1073741826) -> 2177257070) ((3532 . 5625) (- 1103515244 -1073741825) -> 2177257069) ((3533 . 5625) (- 1103515244 -1073741824) -> 2177257068) ((3534 . 5625) (- 1103515244 -1073741823) -> 2177257067) ((3535 . 5625) (- 1103515244 -1073741822) -> 2177257066) ((3536 . 5625) (- 1103515245 -1073741826) -> 2177257071) ((3537 . 5625) (- 1103515245 -1073741825) -> 2177257070) ((3538 . 5625) (- 1103515245 -1073741824) -> 2177257069) ((3539 . 5625) (- 1103515245 -1073741823) -> 2177257068) ((3540 . 5625) (- 1103515245 -1073741822) -> 2177257067) ((3541 . 5625) (- 1103515246 -1073741826) -> 2177257072) ((3542 . 5625) (- 1103515246 -1073741825) -> 2177257071) ((3543 . 5625) (- 1103515246 -1073741824) -> 2177257070) ((3544 . 5625) (- 1103515246 -1073741823) -> 2177257069) ((3545 . 5625) (- 1103515246 -1073741822) -> 2177257068) ((3546 . 5625) (- 1103515247 -1073741826) -> 2177257073) ((3547 . 5625) (- 1103515247 -1073741825) -> 2177257072) ((3548 . 5625) (- 1103515247 -1073741824) -> 2177257071) ((3549 . 5625) (- 1103515247 -1073741823) -> 2177257070) ((3550 . 5625) (- 1103515247 -1073741822) -> 2177257069) ((3551 . 5625) (- 1103515243 1073741822) -> 29773421) ((3552 . 5625) (- 1103515243 1073741823) -> 29773420) ((3553 . 5625) (- 1103515243 1073741824) -> 29773419) ((3554 . 5625) (- 1103515243 1073741825) -> 29773418) ((3555 . 5625) (- 1103515243 1073741826) -> 29773417) ((3556 . 5625) (- 1103515244 1073741822) -> 29773422) ((3557 . 5625) (- 1103515244 1073741823) -> 29773421) ((3558 . 5625) (- 1103515244 1073741824) -> 29773420) ((3559 . 5625) (- 1103515244 1073741825) -> 29773419) ((3560 . 5625) (- 1103515244 1073741826) -> 29773418) ((3561 . 5625) (- 1103515245 1073741822) -> 29773423) ((3562 . 5625) (- 1103515245 1073741823) -> 29773422) ((3563 . 5625) (- 1103515245 1073741824) -> 29773421) ((3564 . 5625) (- 1103515245 1073741825) -> 29773420) ((3565 . 5625) (- 1103515245 1073741826) -> 29773419) ((3566 . 5625) (- 1103515246 1073741822) -> 29773424) ((3567 . 5625) (- 1103515246 1073741823) -> 29773423) ((3568 . 5625) (- 1103515246 1073741824) -> 29773422) ((3569 . 5625) (- 1103515246 1073741825) -> 29773421) ((3570 . 5625) (- 1103515246 1073741826) -> 29773420) ((3571 . 5625) (- 1103515247 1073741822) -> 29773425) ((3572 . 5625) (- 1103515247 1073741823) -> 29773424) ((3573 . 5625) (- 1103515247 1073741824) -> 29773423) ((3574 . 5625) (- 1103515247 1073741825) -> 29773422) ((3575 . 5625) (- 1103515247 1073741826) -> 29773421) ((3576 . 5625) (- 1103515243 -1073741827) -> 2177257070) ((3577 . 5625) (- 1103515243 -1073741826) -> 2177257069) ((3578 . 5625) (- 1103515243 -1073741825) -> 2177257068) ((3579 . 5625) (- 1103515243 -1073741824) -> 2177257067) ((3580 . 5625) (- 1103515243 -1073741823) -> 2177257066) ((3581 . 5625) (- 1103515244 -1073741827) -> 2177257071) ((3582 . 5625) (- 1103515244 -1073741826) -> 2177257070) ((3583 . 5625) (- 1103515244 -1073741825) -> 2177257069) ((3584 . 5625) (- 1103515244 -1073741824) -> 2177257068) ((3585 . 5625) (- 1103515244 -1073741823) -> 2177257067) ((3586 . 5625) (- 1103515245 -1073741827) -> 2177257072) ((3587 . 5625) (- 1103515245 -1073741826) -> 2177257071) ((3588 . 5625) (- 1103515245 -1073741825) -> 2177257070) ((3589 . 5625) (- 1103515245 -1073741824) -> 2177257069) ((3590 . 5625) (- 1103515245 -1073741823) -> 2177257068) ((3591 . 5625) (- 1103515246 -1073741827) -> 2177257073) ((3592 . 5625) (- 1103515246 -1073741826) -> 2177257072) ((3593 . 5625) (- 1103515246 -1073741825) -> 2177257071) ((3594 . 5625) (- 1103515246 -1073741824) -> 2177257070) ((3595 . 5625) (- 1103515246 -1073741823) -> 2177257069) ((3596 . 5625) (- 1103515247 -1073741827) -> 2177257074) ((3597 . 5625) (- 1103515247 -1073741826) -> 2177257073) ((3598 . 5625) (- 1103515247 -1073741825) -> 2177257072) ((3599 . 5625) (- 1103515247 -1073741824) -> 2177257071) ((3600 . 5625) (- 1103515247 -1073741823) -> 2177257070) ((3601 . 5625) (- 1103515243 1103515243) -> 0) ((3602 . 5625) (- 1103515243 1103515244) -> -1) ((3603 . 5625) (- 1103515243 1103515245) -> -2) ((3604 . 5625) (- 1103515243 1103515246) -> -3) ((3605 . 5625) (- 1103515243 1103515247) -> -4) ((3606 . 5625) (- 1103515244 1103515243) -> 1) ((3607 . 5625) (- 1103515244 1103515244) -> 0) ((3608 . 5625) (- 1103515244 1103515245) -> -1) ((3609 . 5625) (- 1103515244 1103515246) -> -2) ((3610 . 5625) (- 1103515244 1103515247) -> -3) ((3611 . 5625) (- 1103515245 1103515243) -> 2) ((3612 . 5625) (- 1103515245 1103515244) -> 1) ((3613 . 5625) (- 1103515245 1103515245) -> 0) ((3614 . 5625) (- 1103515245 1103515246) -> -1) ((3615 . 5625) (- 1103515245 1103515247) -> -2) ((3616 . 5625) (- 1103515246 1103515243) -> 3) ((3617 . 5625) (- 1103515246 1103515244) -> 2) ((3618 . 5625) (- 1103515246 1103515245) -> 1) ((3619 . 5625) (- 1103515246 1103515246) -> 0) ((3620 . 5625) (- 1103515246 1103515247) -> -1) ((3621 . 5625) (- 1103515247 1103515243) -> 4) ((3622 . 5625) (- 1103515247 1103515244) -> 3) ((3623 . 5625) (- 1103515247 1103515245) -> 2) ((3624 . 5625) (- 1103515247 1103515246) -> 1) ((3625 . 5625) (- 1103515247 1103515247) -> 0) ((3626 . 5625) (- 1103515243 631629063) -> 471886180) ((3627 . 5625) (- 1103515243 631629064) -> 471886179) ((3628 . 5625) (- 1103515243 631629065) -> 471886178) ((3629 . 5625) (- 1103515243 631629066) -> 471886177) ((3630 . 5625) (- 1103515243 631629067) -> 471886176) ((3631 . 5625) (- 1103515244 631629063) -> 471886181) ((3632 . 5625) (- 1103515244 631629064) -> 471886180) ((3633 . 5625) (- 1103515244 631629065) -> 471886179) ((3634 . 5625) (- 1103515244 631629066) -> 471886178) ((3635 . 5625) (- 1103515244 631629067) -> 471886177) ((3636 . 5625) (- 1103515245 631629063) -> 471886182) ((3637 . 5625) (- 1103515245 631629064) -> 471886181) ((3638 . 5625) (- 1103515245 631629065) -> 471886180) ((3639 . 5625) (- 1103515245 631629066) -> 471886179) ((3640 . 5625) (- 1103515245 631629067) -> 471886178) ((3641 . 5625) (- 1103515246 631629063) -> 471886183) ((3642 . 5625) (- 1103515246 631629064) -> 471886182) ((3643 . 5625) (- 1103515246 631629065) -> 471886181) ((3644 . 5625) (- 1103515246 631629066) -> 471886180) ((3645 . 5625) (- 1103515246 631629067) -> 471886179) ((3646 . 5625) (- 1103515247 631629063) -> 471886184) ((3647 . 5625) (- 1103515247 631629064) -> 471886183) ((3648 . 5625) (- 1103515247 631629065) -> 471886182) ((3649 . 5625) (- 1103515247 631629066) -> 471886181) ((3650 . 5625) (- 1103515247 631629067) -> 471886180) ((3651 . 5625) (- 1103515243 9007199254740990) -> -9007198151225747) ((3652 . 5625) (- 1103515243 9007199254740991) -> -9007198151225748) ((3653 . 5625) (- 1103515243 9007199254740992) -> -9007198151225749) ((3654 . 5625) (- 1103515243 9007199254740993) -> -9007198151225750) ((3655 . 5625) (- 1103515243 9007199254740994) -> -9007198151225751) ((3656 . 5625) (- 1103515244 9007199254740990) -> -9007198151225746) ((3657 . 5625) (- 1103515244 9007199254740991) -> -9007198151225747) ((3658 . 5625) (- 1103515244 9007199254740992) -> -9007198151225748) ((3659 . 5625) (- 1103515244 9007199254740993) -> -9007198151225749) ((3660 . 5625) (- 1103515244 9007199254740994) -> -9007198151225750) ((3661 . 5625) (- 1103515245 9007199254740990) -> -9007198151225745) ((3662 . 5625) (- 1103515245 9007199254740991) -> -9007198151225746) ((3663 . 5625) (- 1103515245 9007199254740992) -> -9007198151225747) ((3664 . 5625) (- 1103515245 9007199254740993) -> -9007198151225748) ((3665 . 5625) (- 1103515245 9007199254740994) -> -9007198151225749) ((3666 . 5625) (- 1103515246 9007199254740990) -> -9007198151225744) ((3667 . 5625) (- 1103515246 9007199254740991) -> -9007198151225745) ((3668 . 5625) (- 1103515246 9007199254740992) -> -9007198151225746) ((3669 . 5625) (- 1103515246 9007199254740993) -> -9007198151225747) ((3670 . 5625) (- 1103515246 9007199254740994) -> -9007198151225748) ((3671 . 5625) (- 1103515247 9007199254740990) -> -9007198151225743) ((3672 . 5625) (- 1103515247 9007199254740991) -> -9007198151225744) ((3673 . 5625) (- 1103515247 9007199254740992) -> -9007198151225745) ((3674 . 5625) (- 1103515247 9007199254740993) -> -9007198151225746) ((3675 . 5625) (- 1103515247 9007199254740994) -> -9007198151225747) ((3676 . 5625) (- 1103515243 -9007199254740994) -> 9007200358256237) ((3677 . 5625) (- 1103515243 -9007199254740993) -> 9007200358256236) ((3678 . 5625) (- 1103515243 -9007199254740992) -> 9007200358256235) ((3679 . 5625) (- 1103515243 -9007199254740991) -> 9007200358256234) ((3680 . 5625) (- 1103515243 -9007199254740990) -> 9007200358256233) ((3681 . 5625) (- 1103515244 -9007199254740994) -> 9007200358256238) ((3682 . 5625) (- 1103515244 -9007199254740993) -> 9007200358256237) ((3683 . 5625) (- 1103515244 -9007199254740992) -> 9007200358256236) ((3684 . 5625) (- 1103515244 -9007199254740991) -> 9007200358256235) ((3685 . 5625) (- 1103515244 -9007199254740990) -> 9007200358256234) ((3686 . 5625) (- 1103515245 -9007199254740994) -> 9007200358256239) ((3687 . 5625) (- 1103515245 -9007199254740993) -> 9007200358256238) ((3688 . 5625) (- 1103515245 -9007199254740992) -> 9007200358256237) ((3689 . 5625) (- 1103515245 -9007199254740991) -> 9007200358256236) ((3690 . 5625) (- 1103515245 -9007199254740990) -> 9007200358256235) ((3691 . 5625) (- 1103515246 -9007199254740994) -> 9007200358256240) ((3692 . 5625) (- 1103515246 -9007199254740993) -> 9007200358256239) ((3693 . 5625) (- 1103515246 -9007199254740992) -> 9007200358256238) ((3694 . 5625) (- 1103515246 -9007199254740991) -> 9007200358256237) ((3695 . 5625) (- 1103515246 -9007199254740990) -> 9007200358256236) ((3696 . 5625) (- 1103515247 -9007199254740994) -> 9007200358256241) ((3697 . 5625) (- 1103515247 -9007199254740993) -> 9007200358256240) ((3698 . 5625) (- 1103515247 -9007199254740992) -> 9007200358256239) ((3699 . 5625) (- 1103515247 -9007199254740991) -> 9007200358256238) ((3700 . 5625) (- 1103515247 -9007199254740990) -> 9007200358256237) ((3701 . 5625) (- 1103515243 12343) -> 1103502900) ((3702 . 5625) (- 1103515243 12344) -> 1103502899) ((3703 . 5625) (- 1103515243 12345) -> 1103502898) ((3704 . 5625) (- 1103515243 12346) -> 1103502897) ((3705 . 5625) (- 1103515243 12347) -> 1103502896) ((3706 . 5625) (- 1103515244 12343) -> 1103502901) ((3707 . 5625) (- 1103515244 12344) -> 1103502900) ((3708 . 5625) (- 1103515244 12345) -> 1103502899) ((3709 . 5625) (- 1103515244 12346) -> 1103502898) ((3710 . 5625) (- 1103515244 12347) -> 1103502897) ((3711 . 5625) (- 1103515245 12343) -> 1103502902) ((3712 . 5625) (- 1103515245 12344) -> 1103502901) ((3713 . 5625) (- 1103515245 12345) -> 1103502900) ((3714 . 5625) (- 1103515245 12346) -> 1103502899) ((3715 . 5625) (- 1103515245 12347) -> 1103502898) ((3716 . 5625) (- 1103515246 12343) -> 1103502903) ((3717 . 5625) (- 1103515246 12344) -> 1103502902) ((3718 . 5625) (- 1103515246 12345) -> 1103502901) ((3719 . 5625) (- 1103515246 12346) -> 1103502900) ((3720 . 5625) (- 1103515246 12347) -> 1103502899) ((3721 . 5625) (- 1103515247 12343) -> 1103502904) ((3722 . 5625) (- 1103515247 12344) -> 1103502903) ((3723 . 5625) (- 1103515247 12345) -> 1103502902) ((3724 . 5625) (- 1103515247 12346) -> 1103502901) ((3725 . 5625) (- 1103515247 12347) -> 1103502900) ((3726 . 5625) (- 1103515243 4294967294) -> -3191452051) ((3727 . 5625) (- 1103515243 4294967295) -> -3191452052) ((3728 . 5625) (- 1103515243 4294967296) -> -3191452053) ((3729 . 5625) (- 1103515243 4294967297) -> -3191452054) ((3730 . 5625) (- 1103515243 4294967298) -> -3191452055) ((3731 . 5625) (- 1103515244 4294967294) -> -3191452050) ((3732 . 5625) (- 1103515244 4294967295) -> -3191452051) ((3733 . 5625) (- 1103515244 4294967296) -> -3191452052) ((3734 . 5625) (- 1103515244 4294967297) -> -3191452053) ((3735 . 5625) (- 1103515244 4294967298) -> -3191452054) ((3736 . 5625) (- 1103515245 4294967294) -> -3191452049) ((3737 . 5625) (- 1103515245 4294967295) -> -3191452050) ((3738 . 5625) (- 1103515245 4294967296) -> -3191452051) ((3739 . 5625) (- 1103515245 4294967297) -> -3191452052) ((3740 . 5625) (- 1103515245 4294967298) -> -3191452053) ((3741 . 5625) (- 1103515246 4294967294) -> -3191452048) ((3742 . 5625) (- 1103515246 4294967295) -> -3191452049) ((3743 . 5625) (- 1103515246 4294967296) -> -3191452050) ((3744 . 5625) (- 1103515246 4294967297) -> -3191452051) ((3745 . 5625) (- 1103515246 4294967298) -> -3191452052) ((3746 . 5625) (- 1103515247 4294967294) -> -3191452047) ((3747 . 5625) (- 1103515247 4294967295) -> -3191452048) ((3748 . 5625) (- 1103515247 4294967296) -> -3191452049) ((3749 . 5625) (- 1103515247 4294967297) -> -3191452050) ((3750 . 5625) (- 1103515247 4294967298) -> -3191452051) ((3751 . 5625) (- 631629063 -2) -> 631629065) ((3752 . 5625) (- 631629063 -1) -> 631629064) ((3753 . 5625) (- 631629063 0) -> 631629063) ((3754 . 5625) (- 631629063 1) -> 631629062) ((3755 . 5625) (- 631629063 2) -> 631629061) ((3756 . 5625) (- 631629064 -2) -> 631629066) ((3757 . 5625) (- 631629064 -1) -> 631629065) ((3758 . 5625) (- 631629064 0) -> 631629064) ((3759 . 5625) (- 631629064 1) -> 631629063) ((3760 . 5625) (- 631629064 2) -> 631629062) ((3761 . 5625) (- 631629065 -2) -> 631629067) ((3762 . 5625) (- 631629065 -1) -> 631629066) ((3763 . 5625) (- 631629065 0) -> 631629065) ((3764 . 5625) (- 631629065 1) -> 631629064) ((3765 . 5625) (- 631629065 2) -> 631629063) ((3766 . 5625) (- 631629066 -2) -> 631629068) ((3767 . 5625) (- 631629066 -1) -> 631629067) ((3768 . 5625) (- 631629066 0) -> 631629066) ((3769 . 5625) (- 631629066 1) -> 631629065) ((3770 . 5625) (- 631629066 2) -> 631629064) ((3771 . 5625) (- 631629067 -2) -> 631629069) ((3772 . 5625) (- 631629067 -1) -> 631629068) ((3773 . 5625) (- 631629067 0) -> 631629067) ((3774 . 5625) (- 631629067 1) -> 631629066) ((3775 . 5625) (- 631629067 2) -> 631629065) ((3776 . 5625) (- 631629063 -1) -> 631629064) ((3777 . 5625) (- 631629063 0) -> 631629063) ((3778 . 5625) (- 631629063 1) -> 631629062) ((3779 . 5625) (- 631629063 2) -> 631629061) ((3780 . 5625) (- 631629063 3) -> 631629060) ((3781 . 5625) (- 631629064 -1) -> 631629065) ((3782 . 5625) (- 631629064 0) -> 631629064) ((3783 . 5625) (- 631629064 1) -> 631629063) ((3784 . 5625) (- 631629064 2) -> 631629062) ((3785 . 5625) (- 631629064 3) -> 631629061) ((3786 . 5625) (- 631629065 -1) -> 631629066) ((3787 . 5625) (- 631629065 0) -> 631629065) ((3788 . 5625) (- 631629065 1) -> 631629064) ((3789 . 5625) (- 631629065 2) -> 631629063) ((3790 . 5625) (- 631629065 3) -> 631629062) ((3791 . 5625) (- 631629066 -1) -> 631629067) ((3792 . 5625) (- 631629066 0) -> 631629066) ((3793 . 5625) (- 631629066 1) -> 631629065) ((3794 . 5625) (- 631629066 2) -> 631629064) ((3795 . 5625) (- 631629066 3) -> 631629063) ((3796 . 5625) (- 631629067 -1) -> 631629068) ((3797 . 5625) (- 631629067 0) -> 631629067) ((3798 . 5625) (- 631629067 1) -> 631629066) ((3799 . 5625) (- 631629067 2) -> 631629065) ((3800 . 5625) (- 631629067 3) -> 631629064) ((3801 . 5625) (- 631629063 -3) -> 631629066) ((3802 . 5625) (- 631629063 -2) -> 631629065) ((3803 . 5625) (- 631629063 -1) -> 631629064) ((3804 . 5625) (- 631629063 0) -> 631629063) ((3805 . 5625) (- 631629063 1) -> 631629062) ((3806 . 5625) (- 631629064 -3) -> 631629067) ((3807 . 5625) (- 631629064 -2) -> 631629066) ((3808 . 5625) (- 631629064 -1) -> 631629065) ((3809 . 5625) (- 631629064 0) -> 631629064) ((3810 . 5625) (- 631629064 1) -> 631629063) ((3811 . 5625) (- 631629065 -3) -> 631629068) ((3812 . 5625) (- 631629065 -2) -> 631629067) ((3813 . 5625) (- 631629065 -1) -> 631629066) ((3814 . 5625) (- 631629065 0) -> 631629065) ((3815 . 5625) (- 631629065 1) -> 631629064) ((3816 . 5625) (- 631629066 -3) -> 631629069) ((3817 . 5625) (- 631629066 -2) -> 631629068) ((3818 . 5625) (- 631629066 -1) -> 631629067) ((3819 . 5625) (- 631629066 0) -> 631629066) ((3820 . 5625) (- 631629066 1) -> 631629065) ((3821 . 5625) (- 631629067 -3) -> 631629070) ((3822 . 5625) (- 631629067 -2) -> 631629069) ((3823 . 5625) (- 631629067 -1) -> 631629068) ((3824 . 5625) (- 631629067 0) -> 631629067) ((3825 . 5625) (- 631629067 1) -> 631629066) ((3826 . 5625) (- 631629063 0) -> 631629063) ((3827 . 5625) (- 631629063 1) -> 631629062) ((3828 . 5625) (- 631629063 2) -> 631629061) ((3829 . 5625) (- 631629063 3) -> 631629060) ((3830 . 5625) (- 631629063 4) -> 631629059) ((3831 . 5625) (- 631629064 0) -> 631629064) ((3832 . 5625) (- 631629064 1) -> 631629063) ((3833 . 5625) (- 631629064 2) -> 631629062) ((3834 . 5625) (- 631629064 3) -> 631629061) ((3835 . 5625) (- 631629064 4) -> 631629060) ((3836 . 5625) (- 631629065 0) -> 631629065) ((3837 . 5625) (- 631629065 1) -> 631629064) ((3838 . 5625) (- 631629065 2) -> 631629063) ((3839 . 5625) (- 631629065 3) -> 631629062) ((3840 . 5625) (- 631629065 4) -> 631629061) ((3841 . 5625) (- 631629066 0) -> 631629066) ((3842 . 5625) (- 631629066 1) -> 631629065) ((3843 . 5625) (- 631629066 2) -> 631629064) ((3844 . 5625) (- 631629066 3) -> 631629063) ((3845 . 5625) (- 631629066 4) -> 631629062) ((3846 . 5625) (- 631629067 0) -> 631629067) ((3847 . 5625) (- 631629067 1) -> 631629066) ((3848 . 5625) (- 631629067 2) -> 631629065) ((3849 . 5625) (- 631629067 3) -> 631629064) ((3850 . 5625) (- 631629067 4) -> 631629063) ((3851 . 5625) (- 631629063 -4) -> 631629067) ((3852 . 5625) (- 631629063 -3) -> 631629066) ((3853 . 5625) (- 631629063 -2) -> 631629065) ((3854 . 5625) (- 631629063 -1) -> 631629064) ((3855 . 5625) (- 631629063 0) -> 631629063) ((3856 . 5625) (- 631629064 -4) -> 631629068) ((3857 . 5625) (- 631629064 -3) -> 631629067) ((3858 . 5625) (- 631629064 -2) -> 631629066) ((3859 . 5625) (- 631629064 -1) -> 631629065) ((3860 . 5625) (- 631629064 0) -> 631629064) ((3861 . 5625) (- 631629065 -4) -> 631629069) ((3862 . 5625) (- 631629065 -3) -> 631629068) ((3863 . 5625) (- 631629065 -2) -> 631629067) ((3864 . 5625) (- 631629065 -1) -> 631629066) ((3865 . 5625) (- 631629065 0) -> 631629065) ((3866 . 5625) (- 631629066 -4) -> 631629070) ((3867 . 5625) (- 631629066 -3) -> 631629069) ((3868 . 5625) (- 631629066 -2) -> 631629068) ((3869 . 5625) (- 631629066 -1) -> 631629067) ((3870 . 5625) (- 631629066 0) -> 631629066) ((3871 . 5625) (- 631629067 -4) -> 631629071) ((3872 . 5625) (- 631629067 -3) -> 631629070) ((3873 . 5625) (- 631629067 -2) -> 631629069) ((3874 . 5625) (- 631629067 -1) -> 631629068) ((3875 . 5625) (- 631629067 0) -> 631629067) ((3876 . 5625) (- 631629063 1073741821) -> -442112758) ((3877 . 5625) (- 631629063 1073741822) -> -442112759) ((3878 . 5625) (- 631629063 1073741823) -> -442112760) ((3879 . 5625) (- 631629063 1073741824) -> -442112761) ((3880 . 5625) (- 631629063 1073741825) -> -442112762) ((3881 . 5625) (- 631629064 1073741821) -> -442112757) ((3882 . 5625) (- 631629064 1073741822) -> -442112758) ((3883 . 5625) (- 631629064 1073741823) -> -442112759) ((3884 . 5625) (- 631629064 1073741824) -> -442112760) ((3885 . 5625) (- 631629064 1073741825) -> -442112761) ((3886 . 5625) (- 631629065 1073741821) -> -442112756) ((3887 . 5625) (- 631629065 1073741822) -> -442112757) ((3888 . 5625) (- 631629065 1073741823) -> -442112758) ((3889 . 5625) (- 631629065 1073741824) -> -442112759) ((3890 . 5625) (- 631629065 1073741825) -> -442112760) ((3891 . 5625) (- 631629066 1073741821) -> -442112755) ((3892 . 5625) (- 631629066 1073741822) -> -442112756) ((3893 . 5625) (- 631629066 1073741823) -> -442112757) ((3894 . 5625) (- 631629066 1073741824) -> -442112758) ((3895 . 5625) (- 631629066 1073741825) -> -442112759) ((3896 . 5625) (- 631629067 1073741821) -> -442112754) ((3897 . 5625) (- 631629067 1073741822) -> -442112755) ((3898 . 5625) (- 631629067 1073741823) -> -442112756) ((3899 . 5625) (- 631629067 1073741824) -> -442112757) ((3900 . 5625) (- 631629067 1073741825) -> -442112758) ((3901 . 5625) (- 631629063 -1073741826) -> 1705370889) ((3902 . 5625) (- 631629063 -1073741825) -> 1705370888) ((3903 . 5625) (- 631629063 -1073741824) -> 1705370887) ((3904 . 5625) (- 631629063 -1073741823) -> 1705370886) ((3905 . 5625) (- 631629063 -1073741822) -> 1705370885) ((3906 . 5625) (- 631629064 -1073741826) -> 1705370890) ((3907 . 5625) (- 631629064 -1073741825) -> 1705370889) ((3908 . 5625) (- 631629064 -1073741824) -> 1705370888) ((3909 . 5625) (- 631629064 -1073741823) -> 1705370887) ((3910 . 5625) (- 631629064 -1073741822) -> 1705370886) ((3911 . 5625) (- 631629065 -1073741826) -> 1705370891) ((3912 . 5625) (- 631629065 -1073741825) -> 1705370890) ((3913 . 5625) (- 631629065 -1073741824) -> 1705370889) ((3914 . 5625) (- 631629065 -1073741823) -> 1705370888) ((3915 . 5625) (- 631629065 -1073741822) -> 1705370887) ((3916 . 5625) (- 631629066 -1073741826) -> 1705370892) ((3917 . 5625) (- 631629066 -1073741825) -> 1705370891) ((3918 . 5625) (- 631629066 -1073741824) -> 1705370890) ((3919 . 5625) (- 631629066 -1073741823) -> 1705370889) ((3920 . 5625) (- 631629066 -1073741822) -> 1705370888) ((3921 . 5625) (- 631629067 -1073741826) -> 1705370893) ((3922 . 5625) (- 631629067 -1073741825) -> 1705370892) ((3923 . 5625) (- 631629067 -1073741824) -> 1705370891) ((3924 . 5625) (- 631629067 -1073741823) -> 1705370890) ((3925 . 5625) (- 631629067 -1073741822) -> 1705370889) ((3926 . 5625) (- 631629063 1073741822) -> -442112759) ((3927 . 5625) (- 631629063 1073741823) -> -442112760) ((3928 . 5625) (- 631629063 1073741824) -> -442112761) ((3929 . 5625) (- 631629063 1073741825) -> -442112762) ((3930 . 5625) (- 631629063 1073741826) -> -442112763) ((3931 . 5625) (- 631629064 1073741822) -> -442112758) ((3932 . 5625) (- 631629064 1073741823) -> -442112759) ((3933 . 5625) (- 631629064 1073741824) -> -442112760) ((3934 . 5625) (- 631629064 1073741825) -> -442112761) ((3935 . 5625) (- 631629064 1073741826) -> -442112762) ((3936 . 5625) (- 631629065 1073741822) -> -442112757) ((3937 . 5625) (- 631629065 1073741823) -> -442112758) ((3938 . 5625) (- 631629065 1073741824) -> -442112759) ((3939 . 5625) (- 631629065 1073741825) -> -442112760) ((3940 . 5625) (- 631629065 1073741826) -> -442112761) ((3941 . 5625) (- 631629066 1073741822) -> -442112756) ((3942 . 5625) (- 631629066 1073741823) -> -442112757) ((3943 . 5625) (- 631629066 1073741824) -> -442112758) ((3944 . 5625) (- 631629066 1073741825) -> -442112759) ((3945 . 5625) (- 631629066 1073741826) -> -442112760) ((3946 . 5625) (- 631629067 1073741822) -> -442112755) ((3947 . 5625) (- 631629067 1073741823) -> -442112756) ((3948 . 5625) (- 631629067 1073741824) -> -442112757) ((3949 . 5625) (- 631629067 1073741825) -> -442112758) ((3950 . 5625) (- 631629067 1073741826) -> -442112759) ((3951 . 5625) (- 631629063 -1073741827) -> 1705370890) ((3952 . 5625) (- 631629063 -1073741826) -> 1705370889) ((3953 . 5625) (- 631629063 -1073741825) -> 1705370888) ((3954 . 5625) (- 631629063 -1073741824) -> 1705370887) ((3955 . 5625) (- 631629063 -1073741823) -> 1705370886) ((3956 . 5625) (- 631629064 -1073741827) -> 1705370891) ((3957 . 5625) (- 631629064 -1073741826) -> 1705370890) ((3958 . 5625) (- 631629064 -1073741825) -> 1705370889) ((3959 . 5625) (- 631629064 -1073741824) -> 1705370888) ((3960 . 5625) (- 631629064 -1073741823) -> 1705370887) ((3961 . 5625) (- 631629065 -1073741827) -> 1705370892) ((3962 . 5625) (- 631629065 -1073741826) -> 1705370891) ((3963 . 5625) (- 631629065 -1073741825) -> 1705370890) ((3964 . 5625) (- 631629065 -1073741824) -> 1705370889) ((3965 . 5625) (- 631629065 -1073741823) -> 1705370888) ((3966 . 5625) (- 631629066 -1073741827) -> 1705370893) ((3967 . 5625) (- 631629066 -1073741826) -> 1705370892) ((3968 . 5625) (- 631629066 -1073741825) -> 1705370891) ((3969 . 5625) (- 631629066 -1073741824) -> 1705370890) ((3970 . 5625) (- 631629066 -1073741823) -> 1705370889) ((3971 . 5625) (- 631629067 -1073741827) -> 1705370894) ((3972 . 5625) (- 631629067 -1073741826) -> 1705370893) ((3973 . 5625) (- 631629067 -1073741825) -> 1705370892) ((3974 . 5625) (- 631629067 -1073741824) -> 1705370891) ((3975 . 5625) (- 631629067 -1073741823) -> 1705370890) ((3976 . 5625) (- 631629063 1103515243) -> -471886180) ((3977 . 5625) (- 631629063 1103515244) -> -471886181) ((3978 . 5625) (- 631629063 1103515245) -> -471886182) ((3979 . 5625) (- 631629063 1103515246) -> -471886183) ((3980 . 5625) (- 631629063 1103515247) -> -471886184) ((3981 . 5625) (- 631629064 1103515243) -> -471886179) ((3982 . 5625) (- 631629064 1103515244) -> -471886180) ((3983 . 5625) (- 631629064 1103515245) -> -471886181) ((3984 . 5625) (- 631629064 1103515246) -> -471886182) ((3985 . 5625) (- 631629064 1103515247) -> -471886183) ((3986 . 5625) (- 631629065 1103515243) -> -471886178) ((3987 . 5625) (- 631629065 1103515244) -> -471886179) ((3988 . 5625) (- 631629065 1103515245) -> -471886180) ((3989 . 5625) (- 631629065 1103515246) -> -471886181) ((3990 . 5625) (- 631629065 1103515247) -> -471886182) ((3991 . 5625) (- 631629066 1103515243) -> -471886177) ((3992 . 5625) (- 631629066 1103515244) -> -471886178) ((3993 . 5625) (- 631629066 1103515245) -> -471886179) ((3994 . 5625) (- 631629066 1103515246) -> -471886180) ((3995 . 5625) (- 631629066 1103515247) -> -471886181) ((3996 . 5625) (- 631629067 1103515243) -> -471886176) ((3997 . 5625) (- 631629067 1103515244) -> -471886177) ((3998 . 5625) (- 631629067 1103515245) -> -471886178) ((3999 . 5625) (- 631629067 1103515246) -> -471886179) ((4000 . 5625) (- 631629067 1103515247) -> -471886180) ((4001 . 5625) (- 631629063 631629063) -> 0) ((4002 . 5625) (- 631629063 631629064) -> -1) ((4003 . 5625) (- 631629063 631629065) -> -2) ((4004 . 5625) (- 631629063 631629066) -> -3) ((4005 . 5625) (- 631629063 631629067) -> -4) ((4006 . 5625) (- 631629064 631629063) -> 1) ((4007 . 5625) (- 631629064 631629064) -> 0) ((4008 . 5625) (- 631629064 631629065) -> -1) ((4009 . 5625) (- 631629064 631629066) -> -2) ((4010 . 5625) (- 631629064 631629067) -> -3) ((4011 . 5625) (- 631629065 631629063) -> 2) ((4012 . 5625) (- 631629065 631629064) -> 1) ((4013 . 5625) (- 631629065 631629065) -> 0) ((4014 . 5625) (- 631629065 631629066) -> -1) ((4015 . 5625) (- 631629065 631629067) -> -2) ((4016 . 5625) (- 631629066 631629063) -> 3) ((4017 . 5625) (- 631629066 631629064) -> 2) ((4018 . 5625) (- 631629066 631629065) -> 1) ((4019 . 5625) (- 631629066 631629066) -> 0) ((4020 . 5625) (- 631629066 631629067) -> -1) ((4021 . 5625) (- 631629067 631629063) -> 4) ((4022 . 5625) (- 631629067 631629064) -> 3) ((4023 . 5625) (- 631629067 631629065) -> 2) ((4024 . 5625) (- 631629067 631629066) -> 1) ((4025 . 5625) (- 631629067 631629067) -> 0) ((4026 . 5625) (- 631629063 9007199254740990) -> -9007198623111927) ((4027 . 5625) (- 631629063 9007199254740991) -> -9007198623111928) ((4028 . 5625) (- 631629063 9007199254740992) -> -9007198623111929) ((4029 . 5625) (- 631629063 9007199254740993) -> -9007198623111930) ((4030 . 5625) (- 631629063 9007199254740994) -> -9007198623111931) ((4031 . 5625) (- 631629064 9007199254740990) -> -9007198623111926) ((4032 . 5625) (- 631629064 9007199254740991) -> -9007198623111927) ((4033 . 5625) (- 631629064 9007199254740992) -> -9007198623111928) ((4034 . 5625) (- 631629064 9007199254740993) -> -9007198623111929) ((4035 . 5625) (- 631629064 9007199254740994) -> -9007198623111930) ((4036 . 5625) (- 631629065 9007199254740990) -> -9007198623111925) ((4037 . 5625) (- 631629065 9007199254740991) -> -9007198623111926) ((4038 . 5625) (- 631629065 9007199254740992) -> -9007198623111927) ((4039 . 5625) (- 631629065 9007199254740993) -> -9007198623111928) ((4040 . 5625) (- 631629065 9007199254740994) -> -9007198623111929) ((4041 . 5625) (- 631629066 9007199254740990) -> -9007198623111924) ((4042 . 5625) (- 631629066 9007199254740991) -> -9007198623111925) ((4043 . 5625) (- 631629066 9007199254740992) -> -9007198623111926) ((4044 . 5625) (- 631629066 9007199254740993) -> -9007198623111927) ((4045 . 5625) (- 631629066 9007199254740994) -> -9007198623111928) ((4046 . 5625) (- 631629067 9007199254740990) -> -9007198623111923) ((4047 . 5625) (- 631629067 9007199254740991) -> -9007198623111924) ((4048 . 5625) (- 631629067 9007199254740992) -> -9007198623111925) ((4049 . 5625) (- 631629067 9007199254740993) -> -9007198623111926) ((4050 . 5625) (- 631629067 9007199254740994) -> -9007198623111927) ((4051 . 5625) (- 631629063 -9007199254740994) -> 9007199886370057) ((4052 . 5625) (- 631629063 -9007199254740993) -> 9007199886370056) ((4053 . 5625) (- 631629063 -9007199254740992) -> 9007199886370055) ((4054 . 5625) (- 631629063 -9007199254740991) -> 9007199886370054) ((4055 . 5625) (- 631629063 -9007199254740990) -> 9007199886370053) ((4056 . 5625) (- 631629064 -9007199254740994) -> 9007199886370058) ((4057 . 5625) (- 631629064 -9007199254740993) -> 9007199886370057) ((4058 . 5625) (- 631629064 -9007199254740992) -> 9007199886370056) ((4059 . 5625) (- 631629064 -9007199254740991) -> 9007199886370055) ((4060 . 5625) (- 631629064 -9007199254740990) -> 9007199886370054) ((4061 . 5625) (- 631629065 -9007199254740994) -> 9007199886370059) ((4062 . 5625) (- 631629065 -9007199254740993) -> 9007199886370058) ((4063 . 5625) (- 631629065 -9007199254740992) -> 9007199886370057) ((4064 . 5625) (- 631629065 -9007199254740991) -> 9007199886370056) ((4065 . 5625) (- 631629065 -9007199254740990) -> 9007199886370055) ((4066 . 5625) (- 631629066 -9007199254740994) -> 9007199886370060) ((4067 . 5625) (- 631629066 -9007199254740993) -> 9007199886370059) ((4068 . 5625) (- 631629066 -9007199254740992) -> 9007199886370058) ((4069 . 5625) (- 631629066 -9007199254740991) -> 9007199886370057) ((4070 . 5625) (- 631629066 -9007199254740990) -> 9007199886370056) ((4071 . 5625) (- 631629067 -9007199254740994) -> 9007199886370061) ((4072 . 5625) (- 631629067 -9007199254740993) -> 9007199886370060) ((4073 . 5625) (- 631629067 -9007199254740992) -> 9007199886370059) ((4074 . 5625) (- 631629067 -9007199254740991) -> 9007199886370058) ((4075 . 5625) (- 631629067 -9007199254740990) -> 9007199886370057) ((4076 . 5625) (- 631629063 12343) -> 631616720) ((4077 . 5625) (- 631629063 12344) -> 631616719) ((4078 . 5625) (- 631629063 12345) -> 631616718) ((4079 . 5625) (- 631629063 12346) -> 631616717) ((4080 . 5625) (- 631629063 12347) -> 631616716) ((4081 . 5625) (- 631629064 12343) -> 631616721) ((4082 . 5625) (- 631629064 12344) -> 631616720) ((4083 . 5625) (- 631629064 12345) -> 631616719) ((4084 . 5625) (- 631629064 12346) -> 631616718) ((4085 . 5625) (- 631629064 12347) -> 631616717) ((4086 . 5625) (- 631629065 12343) -> 631616722) ((4087 . 5625) (- 631629065 12344) -> 631616721) ((4088 . 5625) (- 631629065 12345) -> 631616720) ((4089 . 5625) (- 631629065 12346) -> 631616719) ((4090 . 5625) (- 631629065 12347) -> 631616718) ((4091 . 5625) (- 631629066 12343) -> 631616723) ((4092 . 5625) (- 631629066 12344) -> 631616722) ((4093 . 5625) (- 631629066 12345) -> 631616721) ((4094 . 5625) (- 631629066 12346) -> 631616720) ((4095 . 5625) (- 631629066 12347) -> 631616719) ((4096 . 5625) (- 631629067 12343) -> 631616724) ((4097 . 5625) (- 631629067 12344) -> 631616723) ((4098 . 5625) (- 631629067 12345) -> 631616722) ((4099 . 5625) (- 631629067 12346) -> 631616721) ((4100 . 5625) (- 631629067 12347) -> 631616720) ((4101 . 5625) (- 631629063 4294967294) -> -3663338231) ((4102 . 5625) (- 631629063 4294967295) -> -3663338232) ((4103 . 5625) (- 631629063 4294967296) -> -3663338233) ((4104 . 5625) (- 631629063 4294967297) -> -3663338234) ((4105 . 5625) (- 631629063 4294967298) -> -3663338235) ((4106 . 5625) (- 631629064 4294967294) -> -3663338230) ((4107 . 5625) (- 631629064 4294967295) -> -3663338231) ((4108 . 5625) (- 631629064 4294967296) -> -3663338232) ((4109 . 5625) (- 631629064 4294967297) -> -3663338233) ((4110 . 5625) (- 631629064 4294967298) -> -3663338234) ((4111 . 5625) (- 631629065 4294967294) -> -3663338229) ((4112 . 5625) (- 631629065 4294967295) -> -3663338230) ((4113 . 5625) (- 631629065 4294967296) -> -3663338231) ((4114 . 5625) (- 631629065 4294967297) -> -3663338232) ((4115 . 5625) (- 631629065 4294967298) -> -3663338233) ((4116 . 5625) (- 631629066 4294967294) -> -3663338228) ((4117 . 5625) (- 631629066 4294967295) -> -3663338229) ((4118 . 5625) (- 631629066 4294967296) -> -3663338230) ((4119 . 5625) (- 631629066 4294967297) -> -3663338231) ((4120 . 5625) (- 631629066 4294967298) -> -3663338232) ((4121 . 5625) (- 631629067 4294967294) -> -3663338227) ((4122 . 5625) (- 631629067 4294967295) -> -3663338228) ((4123 . 5625) (- 631629067 4294967296) -> -3663338229) ((4124 . 5625) (- 631629067 4294967297) -> -3663338230) ((4125 . 5625) (- 631629067 4294967298) -> -3663338231) ((4126 . 5625) (- 9007199254740990 -2) -> 9007199254740992) ((4127 . 5625) (- 9007199254740990 -1) -> 9007199254740991) ((4128 . 5625) (- 9007199254740990 0) -> 9007199254740990) ((4129 . 5625) (- 9007199254740990 1) -> 9007199254740989) ((4130 . 5625) (- 9007199254740990 2) -> 9007199254740988) ((4131 . 5625) (- 9007199254740991 -2) -> 9007199254740993) ((4132 . 5625) (- 9007199254740991 -1) -> 9007199254740992) ((4133 . 5625) (- 9007199254740991 0) -> 9007199254740991) ((4134 . 5625) (- 9007199254740991 1) -> 9007199254740990) ((4135 . 5625) (- 9007199254740991 2) -> 9007199254740989) ((4136 . 5625) (- 9007199254740992 -2) -> 9007199254740994) ((4137 . 5625) (- 9007199254740992 -1) -> 9007199254740993) ((4138 . 5625) (- 9007199254740992 0) -> 9007199254740992) ((4139 . 5625) (- 9007199254740992 1) -> 9007199254740991) ((4140 . 5625) (- 9007199254740992 2) -> 9007199254740990) ((4141 . 5625) (- 9007199254740993 -2) -> 9007199254740995) ((4142 . 5625) (- 9007199254740993 -1) -> 9007199254740994) ((4143 . 5625) (- 9007199254740993 0) -> 9007199254740993) ((4144 . 5625) (- 9007199254740993 1) -> 9007199254740992) ((4145 . 5625) (- 9007199254740993 2) -> 9007199254740991) ((4146 . 5625) (- 9007199254740994 -2) -> 9007199254740996) ((4147 . 5625) (- 9007199254740994 -1) -> 9007199254740995) ((4148 . 5625) (- 9007199254740994 0) -> 9007199254740994) ((4149 . 5625) (- 9007199254740994 1) -> 9007199254740993) ((4150 . 5625) (- 9007199254740994 2) -> 9007199254740992) ((4151 . 5625) (- 9007199254740990 -1) -> 9007199254740991) ((4152 . 5625) (- 9007199254740990 0) -> 9007199254740990) ((4153 . 5625) (- 9007199254740990 1) -> 9007199254740989) ((4154 . 5625) (- 9007199254740990 2) -> 9007199254740988) ((4155 . 5625) (- 9007199254740990 3) -> 9007199254740987) ((4156 . 5625) (- 9007199254740991 -1) -> 9007199254740992) ((4157 . 5625) (- 9007199254740991 0) -> 9007199254740991) ((4158 . 5625) (- 9007199254740991 1) -> 9007199254740990) ((4159 . 5625) (- 9007199254740991 2) -> 9007199254740989) ((4160 . 5625) (- 9007199254740991 3) -> 9007199254740988) ((4161 . 5625) (- 9007199254740992 -1) -> 9007199254740993) ((4162 . 5625) (- 9007199254740992 0) -> 9007199254740992) ((4163 . 5625) (- 9007199254740992 1) -> 9007199254740991) ((4164 . 5625) (- 9007199254740992 2) -> 9007199254740990) ((4165 . 5625) (- 9007199254740992 3) -> 9007199254740989) ((4166 . 5625) (- 9007199254740993 -1) -> 9007199254740994) ((4167 . 5625) (- 9007199254740993 0) -> 9007199254740993) ((4168 . 5625) (- 9007199254740993 1) -> 9007199254740992) ((4169 . 5625) (- 9007199254740993 2) -> 9007199254740991) ((4170 . 5625) (- 9007199254740993 3) -> 9007199254740990) ((4171 . 5625) (- 9007199254740994 -1) -> 9007199254740995) ((4172 . 5625) (- 9007199254740994 0) -> 9007199254740994) ((4173 . 5625) (- 9007199254740994 1) -> 9007199254740993) ((4174 . 5625) (- 9007199254740994 2) -> 9007199254740992) ((4175 . 5625) (- 9007199254740994 3) -> 9007199254740991) ((4176 . 5625) (- 9007199254740990 -3) -> 9007199254740993) ((4177 . 5625) (- 9007199254740990 -2) -> 9007199254740992) ((4178 . 5625) (- 9007199254740990 -1) -> 9007199254740991) ((4179 . 5625) (- 9007199254740990 0) -> 9007199254740990) ((4180 . 5625) (- 9007199254740990 1) -> 9007199254740989) ((4181 . 5625) (- 9007199254740991 -3) -> 9007199254740994) ((4182 . 5625) (- 9007199254740991 -2) -> 9007199254740993) ((4183 . 5625) (- 9007199254740991 -1) -> 9007199254740992) ((4184 . 5625) (- 9007199254740991 0) -> 9007199254740991) ((4185 . 5625) (- 9007199254740991 1) -> 9007199254740990) ((4186 . 5625) (- 9007199254740992 -3) -> 9007199254740995) ((4187 . 5625) (- 9007199254740992 -2) -> 9007199254740994) ((4188 . 5625) (- 9007199254740992 -1) -> 9007199254740993) ((4189 . 5625) (- 9007199254740992 0) -> 9007199254740992) ((4190 . 5625) (- 9007199254740992 1) -> 9007199254740991) ((4191 . 5625) (- 9007199254740993 -3) -> 9007199254740996) ((4192 . 5625) (- 9007199254740993 -2) -> 9007199254740995) ((4193 . 5625) (- 9007199254740993 -1) -> 9007199254740994) ((4194 . 5625) (- 9007199254740993 0) -> 9007199254740993) ((4195 . 5625) (- 9007199254740993 1) -> 9007199254740992) ((4196 . 5625) (- 9007199254740994 -3) -> 9007199254740997) ((4197 . 5625) (- 9007199254740994 -2) -> 9007199254740996) ((4198 . 5625) (- 9007199254740994 -1) -> 9007199254740995) ((4199 . 5625) (- 9007199254740994 0) -> 9007199254740994) ((4200 . 5625) (- 9007199254740994 1) -> 9007199254740993) ((4201 . 5625) (- 9007199254740990 0) -> 9007199254740990) ((4202 . 5625) (- 9007199254740990 1) -> 9007199254740989) ((4203 . 5625) (- 9007199254740990 2) -> 9007199254740988) ((4204 . 5625) (- 9007199254740990 3) -> 9007199254740987) ((4205 . 5625) (- 9007199254740990 4) -> 9007199254740986) ((4206 . 5625) (- 9007199254740991 0) -> 9007199254740991) ((4207 . 5625) (- 9007199254740991 1) -> 9007199254740990) ((4208 . 5625) (- 9007199254740991 2) -> 9007199254740989) ((4209 . 5625) (- 9007199254740991 3) -> 9007199254740988) ((4210 . 5625) (- 9007199254740991 4) -> 9007199254740987) ((4211 . 5625) (- 9007199254740992 0) -> 9007199254740992) ((4212 . 5625) (- 9007199254740992 1) -> 9007199254740991) ((4213 . 5625) (- 9007199254740992 2) -> 9007199254740990) ((4214 . 5625) (- 9007199254740992 3) -> 9007199254740989) ((4215 . 5625) (- 9007199254740992 4) -> 9007199254740988) ((4216 . 5625) (- 9007199254740993 0) -> 9007199254740993) ((4217 . 5625) (- 9007199254740993 1) -> 9007199254740992) ((4218 . 5625) (- 9007199254740993 2) -> 9007199254740991) ((4219 . 5625) (- 9007199254740993 3) -> 9007199254740990) ((4220 . 5625) (- 9007199254740993 4) -> 9007199254740989) ((4221 . 5625) (- 9007199254740994 0) -> 9007199254740994) ((4222 . 5625) (- 9007199254740994 1) -> 9007199254740993) ((4223 . 5625) (- 9007199254740994 2) -> 9007199254740992) ((4224 . 5625) (- 9007199254740994 3) -> 9007199254740991) ((4225 . 5625) (- 9007199254740994 4) -> 9007199254740990) ((4226 . 5625) (- 9007199254740990 -4) -> 9007199254740994) ((4227 . 5625) (- 9007199254740990 -3) -> 9007199254740993) ((4228 . 5625) (- 9007199254740990 -2) -> 9007199254740992) ((4229 . 5625) (- 9007199254740990 -1) -> 9007199254740991) ((4230 . 5625) (- 9007199254740990 0) -> 9007199254740990) ((4231 . 5625) (- 9007199254740991 -4) -> 9007199254740995) ((4232 . 5625) (- 9007199254740991 -3) -> 9007199254740994) ((4233 . 5625) (- 9007199254740991 -2) -> 9007199254740993) ((4234 . 5625) (- 9007199254740991 -1) -> 9007199254740992) ((4235 . 5625) (- 9007199254740991 0) -> 9007199254740991) ((4236 . 5625) (- 9007199254740992 -4) -> 9007199254740996) ((4237 . 5625) (- 9007199254740992 -3) -> 9007199254740995) ((4238 . 5625) (- 9007199254740992 -2) -> 9007199254740994) ((4239 . 5625) (- 9007199254740992 -1) -> 9007199254740993) ((4240 . 5625) (- 9007199254740992 0) -> 9007199254740992) ((4241 . 5625) (- 9007199254740993 -4) -> 9007199254740997) ((4242 . 5625) (- 9007199254740993 -3) -> 9007199254740996) ((4243 . 5625) (- 9007199254740993 -2) -> 9007199254740995) ((4244 . 5625) (- 9007199254740993 -1) -> 9007199254740994) ((4245 . 5625) (- 9007199254740993 0) -> 9007199254740993) ((4246 . 5625) (- 9007199254740994 -4) -> 9007199254740998) ((4247 . 5625) (- 9007199254740994 -3) -> 9007199254740997) ((4248 . 5625) (- 9007199254740994 -2) -> 9007199254740996) ((4249 . 5625) (- 9007199254740994 -1) -> 9007199254740995) ((4250 . 5625) (- 9007199254740994 0) -> 9007199254740994) ((4251 . 5625) (- 9007199254740990 1073741821) -> 9007198180999169) ((4252 . 5625) (- 9007199254740990 1073741822) -> 9007198180999168) ((4253 . 5625) (- 9007199254740990 1073741823) -> 9007198180999167) ((4254 . 5625) (- 9007199254740990 1073741824) -> 9007198180999166) ((4255 . 5625) (- 9007199254740990 1073741825) -> 9007198180999165) ((4256 . 5625) (- 9007199254740991 1073741821) -> 9007198180999170) ((4257 . 5625) (- 9007199254740991 1073741822) -> 9007198180999169) ((4258 . 5625) (- 9007199254740991 1073741823) -> 9007198180999168) ((4259 . 5625) (- 9007199254740991 1073741824) -> 9007198180999167) ((4260 . 5625) (- 9007199254740991 1073741825) -> 9007198180999166) ((4261 . 5625) (- 9007199254740992 1073741821) -> 9007198180999171) ((4262 . 5625) (- 9007199254740992 1073741822) -> 9007198180999170) ((4263 . 5625) (- 9007199254740992 1073741823) -> 9007198180999169) ((4264 . 5625) (- 9007199254740992 1073741824) -> 9007198180999168) ((4265 . 5625) (- 9007199254740992 1073741825) -> 9007198180999167) ((4266 . 5625) (- 9007199254740993 1073741821) -> 9007198180999172) ((4267 . 5625) (- 9007199254740993 1073741822) -> 9007198180999171) ((4268 . 5625) (- 9007199254740993 1073741823) -> 9007198180999170) ((4269 . 5625) (- 9007199254740993 1073741824) -> 9007198180999169) ((4270 . 5625) (- 9007199254740993 1073741825) -> 9007198180999168) ((4271 . 5625) (- 9007199254740994 1073741821) -> 9007198180999173) ((4272 . 5625) (- 9007199254740994 1073741822) -> 9007198180999172) ((4273 . 5625) (- 9007199254740994 1073741823) -> 9007198180999171) ((4274 . 5625) (- 9007199254740994 1073741824) -> 9007198180999170) ((4275 . 5625) (- 9007199254740994 1073741825) -> 9007198180999169) ((4276 . 5625) (- 9007199254740990 -1073741826) -> 9007200328482816) ((4277 . 5625) (- 9007199254740990 -1073741825) -> 9007200328482815) ((4278 . 5625) (- 9007199254740990 -1073741824) -> 9007200328482814) ((4279 . 5625) (- 9007199254740990 -1073741823) -> 9007200328482813) ((4280 . 5625) (- 9007199254740990 -1073741822) -> 9007200328482812) ((4281 . 5625) (- 9007199254740991 -1073741826) -> 9007200328482817) ((4282 . 5625) (- 9007199254740991 -1073741825) -> 9007200328482816) ((4283 . 5625) (- 9007199254740991 -1073741824) -> 9007200328482815) ((4284 . 5625) (- 9007199254740991 -1073741823) -> 9007200328482814) ((4285 . 5625) (- 9007199254740991 -1073741822) -> 9007200328482813) ((4286 . 5625) (- 9007199254740992 -1073741826) -> 9007200328482818) ((4287 . 5625) (- 9007199254740992 -1073741825) -> 9007200328482817) ((4288 . 5625) (- 9007199254740992 -1073741824) -> 9007200328482816) ((4289 . 5625) (- 9007199254740992 -1073741823) -> 9007200328482815) ((4290 . 5625) (- 9007199254740992 -1073741822) -> 9007200328482814) ((4291 . 5625) (- 9007199254740993 -1073741826) -> 9007200328482819) ((4292 . 5625) (- 9007199254740993 -1073741825) -> 9007200328482818) ((4293 . 5625) (- 9007199254740993 -1073741824) -> 9007200328482817) ((4294 . 5625) (- 9007199254740993 -1073741823) -> 9007200328482816) ((4295 . 5625) (- 9007199254740993 -1073741822) -> 9007200328482815) ((4296 . 5625) (- 9007199254740994 -1073741826) -> 9007200328482820) ((4297 . 5625) (- 9007199254740994 -1073741825) -> 9007200328482819) ((4298 . 5625) (- 9007199254740994 -1073741824) -> 9007200328482818) ((4299 . 5625) (- 9007199254740994 -1073741823) -> 9007200328482817) ((4300 . 5625) (- 9007199254740994 -1073741822) -> 9007200328482816) ((4301 . 5625) (- 9007199254740990 1073741822) -> 9007198180999168) ((4302 . 5625) (- 9007199254740990 1073741823) -> 9007198180999167) ((4303 . 5625) (- 9007199254740990 1073741824) -> 9007198180999166) ((4304 . 5625) (- 9007199254740990 1073741825) -> 9007198180999165) ((4305 . 5625) (- 9007199254740990 1073741826) -> 9007198180999164) ((4306 . 5625) (- 9007199254740991 1073741822) -> 9007198180999169) ((4307 . 5625) (- 9007199254740991 1073741823) -> 9007198180999168) ((4308 . 5625) (- 9007199254740991 1073741824) -> 9007198180999167) ((4309 . 5625) (- 9007199254740991 1073741825) -> 9007198180999166) ((4310 . 5625) (- 9007199254740991 1073741826) -> 9007198180999165) ((4311 . 5625) (- 9007199254740992 1073741822) -> 9007198180999170) ((4312 . 5625) (- 9007199254740992 1073741823) -> 9007198180999169) ((4313 . 5625) (- 9007199254740992 1073741824) -> 9007198180999168) ((4314 . 5625) (- 9007199254740992 1073741825) -> 9007198180999167) ((4315 . 5625) (- 9007199254740992 1073741826) -> 9007198180999166) ((4316 . 5625) (- 9007199254740993 1073741822) -> 9007198180999171) ((4317 . 5625) (- 9007199254740993 1073741823) -> 9007198180999170) ((4318 . 5625) (- 9007199254740993 1073741824) -> 9007198180999169) ((4319 . 5625) (- 9007199254740993 1073741825) -> 9007198180999168) ((4320 . 5625) (- 9007199254740993 1073741826) -> 9007198180999167) ((4321 . 5625) (- 9007199254740994 1073741822) -> 9007198180999172) ((4322 . 5625) (- 9007199254740994 1073741823) -> 9007198180999171) ((4323 . 5625) (- 9007199254740994 1073741824) -> 9007198180999170) ((4324 . 5625) (- 9007199254740994 1073741825) -> 9007198180999169) ((4325 . 5625) (- 9007199254740994 1073741826) -> 9007198180999168) ((4326 . 5625) (- 9007199254740990 -1073741827) -> 9007200328482817) ((4327 . 5625) (- 9007199254740990 -1073741826) -> 9007200328482816) ((4328 . 5625) (- 9007199254740990 -1073741825) -> 9007200328482815) ((4329 . 5625) (- 9007199254740990 -1073741824) -> 9007200328482814) ((4330 . 5625) (- 9007199254740990 -1073741823) -> 9007200328482813) ((4331 . 5625) (- 9007199254740991 -1073741827) -> 9007200328482818) ((4332 . 5625) (- 9007199254740991 -1073741826) -> 9007200328482817) ((4333 . 5625) (- 9007199254740991 -1073741825) -> 9007200328482816) ((4334 . 5625) (- 9007199254740991 -1073741824) -> 9007200328482815) ((4335 . 5625) (- 9007199254740991 -1073741823) -> 9007200328482814) ((4336 . 5625) (- 9007199254740992 -1073741827) -> 9007200328482819) ((4337 . 5625) (- 9007199254740992 -1073741826) -> 9007200328482818) ((4338 . 5625) (- 9007199254740992 -1073741825) -> 9007200328482817) ((4339 . 5625) (- 9007199254740992 -1073741824) -> 9007200328482816) ((4340 . 5625) (- 9007199254740992 -1073741823) -> 9007200328482815) ((4341 . 5625) (- 9007199254740993 -1073741827) -> 9007200328482820) ((4342 . 5625) (- 9007199254740993 -1073741826) -> 9007200328482819) ((4343 . 5625) (- 9007199254740993 -1073741825) -> 9007200328482818) ((4344 . 5625) (- 9007199254740993 -1073741824) -> 9007200328482817) ((4345 . 5625) (- 9007199254740993 -1073741823) -> 9007200328482816) ((4346 . 5625) (- 9007199254740994 -1073741827) -> 9007200328482821) ((4347 . 5625) (- 9007199254740994 -1073741826) -> 9007200328482820) ((4348 . 5625) (- 9007199254740994 -1073741825) -> 9007200328482819) ((4349 . 5625) (- 9007199254740994 -1073741824) -> 9007200328482818) ((4350 . 5625) (- 9007199254740994 -1073741823) -> 9007200328482817) ((4351 . 5625) (- 9007199254740990 1103515243) -> 9007198151225747) ((4352 . 5625) (- 9007199254740990 1103515244) -> 9007198151225746) ((4353 . 5625) (- 9007199254740990 1103515245) -> 9007198151225745) ((4354 . 5625) (- 9007199254740990 1103515246) -> 9007198151225744) ((4355 . 5625) (- 9007199254740990 1103515247) -> 9007198151225743) ((4356 . 5625) (- 9007199254740991 1103515243) -> 9007198151225748) ((4357 . 5625) (- 9007199254740991 1103515244) -> 9007198151225747) ((4358 . 5625) (- 9007199254740991 1103515245) -> 9007198151225746) ((4359 . 5625) (- 9007199254740991 1103515246) -> 9007198151225745) ((4360 . 5625) (- 9007199254740991 1103515247) -> 9007198151225744) ((4361 . 5625) (- 9007199254740992 1103515243) -> 9007198151225749) ((4362 . 5625) (- 9007199254740992 1103515244) -> 9007198151225748) ((4363 . 5625) (- 9007199254740992 1103515245) -> 9007198151225747) ((4364 . 5625) (- 9007199254740992 1103515246) -> 9007198151225746) ((4365 . 5625) (- 9007199254740992 1103515247) -> 9007198151225745) ((4366 . 5625) (- 9007199254740993 1103515243) -> 9007198151225750) ((4367 . 5625) (- 9007199254740993 1103515244) -> 9007198151225749) ((4368 . 5625) (- 9007199254740993 1103515245) -> 9007198151225748) ((4369 . 5625) (- 9007199254740993 1103515246) -> 9007198151225747) ((4370 . 5625) (- 9007199254740993 1103515247) -> 9007198151225746) ((4371 . 5625) (- 9007199254740994 1103515243) -> 9007198151225751) ((4372 . 5625) (- 9007199254740994 1103515244) -> 9007198151225750) ((4373 . 5625) (- 9007199254740994 1103515245) -> 9007198151225749) ((4374 . 5625) (- 9007199254740994 1103515246) -> 9007198151225748) ((4375 . 5625) (- 9007199254740994 1103515247) -> 9007198151225747) ((4376 . 5625) (- 9007199254740990 631629063) -> 9007198623111927) ((4377 . 5625) (- 9007199254740990 631629064) -> 9007198623111926) ((4378 . 5625) (- 9007199254740990 631629065) -> 9007198623111925) ((4379 . 5625) (- 9007199254740990 631629066) -> 9007198623111924) ((4380 . 5625) (- 9007199254740990 631629067) -> 9007198623111923) ((4381 . 5625) (- 9007199254740991 631629063) -> 9007198623111928) ((4382 . 5625) (- 9007199254740991 631629064) -> 9007198623111927) ((4383 . 5625) (- 9007199254740991 631629065) -> 9007198623111926) ((4384 . 5625) (- 9007199254740991 631629066) -> 9007198623111925) ((4385 . 5625) (- 9007199254740991 631629067) -> 9007198623111924) ((4386 . 5625) (- 9007199254740992 631629063) -> 9007198623111929) ((4387 . 5625) (- 9007199254740992 631629064) -> 9007198623111928) ((4388 . 5625) (- 9007199254740992 631629065) -> 9007198623111927) ((4389 . 5625) (- 9007199254740992 631629066) -> 9007198623111926) ((4390 . 5625) (- 9007199254740992 631629067) -> 9007198623111925) ((4391 . 5625) (- 9007199254740993 631629063) -> 9007198623111930) ((4392 . 5625) (- 9007199254740993 631629064) -> 9007198623111929) ((4393 . 5625) (- 9007199254740993 631629065) -> 9007198623111928) ((4394 . 5625) (- 9007199254740993 631629066) -> 9007198623111927) ((4395 . 5625) (- 9007199254740993 631629067) -> 9007198623111926) ((4396 . 5625) (- 9007199254740994 631629063) -> 9007198623111931) ((4397 . 5625) (- 9007199254740994 631629064) -> 9007198623111930) ((4398 . 5625) (- 9007199254740994 631629065) -> 9007198623111929) ((4399 . 5625) (- 9007199254740994 631629066) -> 9007198623111928) ((4400 . 5625) (- 9007199254740994 631629067) -> 9007198623111927) ((4401 . 5625) (- 9007199254740990 9007199254740990) -> 0) ((4402 . 5625) (- 9007199254740990 9007199254740991) -> -1) ((4403 . 5625) (- 9007199254740990 9007199254740992) -> -2) ((4404 . 5625) (- 9007199254740990 9007199254740993) -> -3) ((4405 . 5625) (- 9007199254740990 9007199254740994) -> -4) ((4406 . 5625) (- 9007199254740991 9007199254740990) -> 1) ((4407 . 5625) (- 9007199254740991 9007199254740991) -> 0) ((4408 . 5625) (- 9007199254740991 9007199254740992) -> -1) ((4409 . 5625) (- 9007199254740991 9007199254740993) -> -2) ((4410 . 5625) (- 9007199254740991 9007199254740994) -> -3) ((4411 . 5625) (- 9007199254740992 9007199254740990) -> 2) ((4412 . 5625) (- 9007199254740992 9007199254740991) -> 1) ((4413 . 5625) (- 9007199254740992 9007199254740992) -> 0) ((4414 . 5625) (- 9007199254740992 9007199254740993) -> -1) ((4415 . 5625) (- 9007199254740992 9007199254740994) -> -2) ((4416 . 5625) (- 9007199254740993 9007199254740990) -> 3) ((4417 . 5625) (- 9007199254740993 9007199254740991) -> 2) ((4418 . 5625) (- 9007199254740993 9007199254740992) -> 1) ((4419 . 5625) (- 9007199254740993 9007199254740993) -> 0) ((4420 . 5625) (- 9007199254740993 9007199254740994) -> -1) ((4421 . 5625) (- 9007199254740994 9007199254740990) -> 4) ((4422 . 5625) (- 9007199254740994 9007199254740991) -> 3) ((4423 . 5625) (- 9007199254740994 9007199254740992) -> 2) ((4424 . 5625) (- 9007199254740994 9007199254740993) -> 1) ((4425 . 5625) (- 9007199254740994 9007199254740994) -> 0) ((4426 . 5625) (- 9007199254740990 -9007199254740994) -> 18014398509481984) ((4427 . 5625) (- 9007199254740990 -9007199254740993) -> 18014398509481983) ((4428 . 5625) (- 9007199254740990 -9007199254740992) -> 18014398509481982) ((4429 . 5625) (- 9007199254740990 -9007199254740991) -> 18014398509481981) ((4430 . 5625) (- 9007199254740990 -9007199254740990) -> 18014398509481980) ((4431 . 5625) (- 9007199254740991 -9007199254740994) -> 18014398509481985) ((4432 . 5625) (- 9007199254740991 -9007199254740993) -> 18014398509481984) ((4433 . 5625) (- 9007199254740991 -9007199254740992) -> 18014398509481983) ((4434 . 5625) (- 9007199254740991 -9007199254740991) -> 18014398509481982) ((4435 . 5625) (- 9007199254740991 -9007199254740990) -> 18014398509481981) ((4436 . 5625) (- 9007199254740992 -9007199254740994) -> 18014398509481986) ((4437 . 5625) (- 9007199254740992 -9007199254740993) -> 18014398509481985) ((4438 . 5625) (- 9007199254740992 -9007199254740992) -> 18014398509481984) ((4439 . 5625) (- 9007199254740992 -9007199254740991) -> 18014398509481983) ((4440 . 5625) (- 9007199254740992 -9007199254740990) -> 18014398509481982) ((4441 . 5625) (- 9007199254740993 -9007199254740994) -> 18014398509481987) ((4442 . 5625) (- 9007199254740993 -9007199254740993) -> 18014398509481986) ((4443 . 5625) (- 9007199254740993 -9007199254740992) -> 18014398509481985) ((4444 . 5625) (- 9007199254740993 -9007199254740991) -> 18014398509481984) ((4445 . 5625) (- 9007199254740993 -9007199254740990) -> 18014398509481983) ((4446 . 5625) (- 9007199254740994 -9007199254740994) -> 18014398509481988) ((4447 . 5625) (- 9007199254740994 -9007199254740993) -> 18014398509481987) ((4448 . 5625) (- 9007199254740994 -9007199254740992) -> 18014398509481986) ((4449 . 5625) (- 9007199254740994 -9007199254740991) -> 18014398509481985) ((4450 . 5625) (- 9007199254740994 -9007199254740990) -> 18014398509481984) ((4451 . 5625) (- 9007199254740990 12343) -> 9007199254728647) ((4452 . 5625) (- 9007199254740990 12344) -> 9007199254728646) ((4453 . 5625) (- 9007199254740990 12345) -> 9007199254728645) ((4454 . 5625) (- 9007199254740990 12346) -> 9007199254728644) ((4455 . 5625) (- 9007199254740990 12347) -> 9007199254728643) ((4456 . 5625) (- 9007199254740991 12343) -> 9007199254728648) ((4457 . 5625) (- 9007199254740991 12344) -> 9007199254728647) ((4458 . 5625) (- 9007199254740991 12345) -> 9007199254728646) ((4459 . 5625) (- 9007199254740991 12346) -> 9007199254728645) ((4460 . 5625) (- 9007199254740991 12347) -> 9007199254728644) ((4461 . 5625) (- 9007199254740992 12343) -> 9007199254728649) ((4462 . 5625) (- 9007199254740992 12344) -> 9007199254728648) ((4463 . 5625) (- 9007199254740992 12345) -> 9007199254728647) ((4464 . 5625) (- 9007199254740992 12346) -> 9007199254728646) ((4465 . 5625) (- 9007199254740992 12347) -> 9007199254728645) ((4466 . 5625) (- 9007199254740993 12343) -> 9007199254728650) ((4467 . 5625) (- 9007199254740993 12344) -> 9007199254728649) ((4468 . 5625) (- 9007199254740993 12345) -> 9007199254728648) ((4469 . 5625) (- 9007199254740993 12346) -> 9007199254728647) ((4470 . 5625) (- 9007199254740993 12347) -> 9007199254728646) ((4471 . 5625) (- 9007199254740994 12343) -> 9007199254728651) ((4472 . 5625) (- 9007199254740994 12344) -> 9007199254728650) ((4473 . 5625) (- 9007199254740994 12345) -> 9007199254728649) ((4474 . 5625) (- 9007199254740994 12346) -> 9007199254728648) ((4475 . 5625) (- 9007199254740994 12347) -> 9007199254728647) ((4476 . 5625) (- 9007199254740990 4294967294) -> 9007194959773696) ((4477 . 5625) (- 9007199254740990 4294967295) -> 9007194959773695) ((4478 . 5625) (- 9007199254740990 4294967296) -> 9007194959773694) ((4479 . 5625) (- 9007199254740990 4294967297) -> 9007194959773693) ((4480 . 5625) (- 9007199254740990 4294967298) -> 9007194959773692) ((4481 . 5625) (- 9007199254740991 4294967294) -> 9007194959773697) ((4482 . 5625) (- 9007199254740991 4294967295) -> 9007194959773696) ((4483 . 5625) (- 9007199254740991 4294967296) -> 9007194959773695) ((4484 . 5625) (- 9007199254740991 4294967297) -> 9007194959773694) ((4485 . 5625) (- 9007199254740991 4294967298) -> 9007194959773693) ((4486 . 5625) (- 9007199254740992 4294967294) -> 9007194959773698) ((4487 . 5625) (- 9007199254740992 4294967295) -> 9007194959773697) ((4488 . 5625) (- 9007199254740992 4294967296) -> 9007194959773696) ((4489 . 5625) (- 9007199254740992 4294967297) -> 9007194959773695) ((4490 . 5625) (- 9007199254740992 4294967298) -> 9007194959773694) ((4491 . 5625) (- 9007199254740993 4294967294) -> 9007194959773699) ((4492 . 5625) (- 9007199254740993 4294967295) -> 9007194959773698) ((4493 . 5625) (- 9007199254740993 4294967296) -> 9007194959773697) ((4494 . 5625) (- 9007199254740993 4294967297) -> 9007194959773696) ((4495 . 5625) (- 9007199254740993 4294967298) -> 9007194959773695) ((4496 . 5625) (- 9007199254740994 4294967294) -> 9007194959773700) ((4497 . 5625) (- 9007199254740994 4294967295) -> 9007194959773699) ((4498 . 5625) (- 9007199254740994 4294967296) -> 9007194959773698) ((4499 . 5625) (- 9007199254740994 4294967297) -> 9007194959773697) ((4500 . 5625) (- 9007199254740994 4294967298) -> 9007194959773696) ((4501 . 5625) (- -9007199254740994 -2) -> -9007199254740992) ((4502 . 5625) (- -9007199254740994 -1) -> -9007199254740993) ((4503 . 5625) (- -9007199254740994 0) -> -9007199254740994) ((4504 . 5625) (- -9007199254740994 1) -> -9007199254740995) ((4505 . 5625) (- -9007199254740994 2) -> -9007199254740996) ((4506 . 5625) (- -9007199254740993 -2) -> -9007199254740991) ((4507 . 5625) (- -9007199254740993 -1) -> -9007199254740992) ((4508 . 5625) (- -9007199254740993 0) -> -9007199254740993) ((4509 . 5625) (- -9007199254740993 1) -> -9007199254740994) ((4510 . 5625) (- -9007199254740993 2) -> -9007199254740995) ((4511 . 5625) (- -9007199254740992 -2) -> -9007199254740990) ((4512 . 5625) (- -9007199254740992 -1) -> -9007199254740991) ((4513 . 5625) (- -9007199254740992 0) -> -9007199254740992) ((4514 . 5625) (- -9007199254740992 1) -> -9007199254740993) ((4515 . 5625) (- -9007199254740992 2) -> -9007199254740994) ((4516 . 5625) (- -9007199254740991 -2) -> -9007199254740989) ((4517 . 5625) (- -9007199254740991 -1) -> -9007199254740990) ((4518 . 5625) (- -9007199254740991 0) -> -9007199254740991) ((4519 . 5625) (- -9007199254740991 1) -> -9007199254740992) ((4520 . 5625) (- -9007199254740991 2) -> -9007199254740993) ((4521 . 5625) (- -9007199254740990 -2) -> -9007199254740988) ((4522 . 5625) (- -9007199254740990 -1) -> -9007199254740989) ((4523 . 5625) (- -9007199254740990 0) -> -9007199254740990) ((4524 . 5625) (- -9007199254740990 1) -> -9007199254740991) ((4525 . 5625) (- -9007199254740990 2) -> -9007199254740992) ((4526 . 5625) (- -9007199254740994 -1) -> -9007199254740993) ((4527 . 5625) (- -9007199254740994 0) -> -9007199254740994) ((4528 . 5625) (- -9007199254740994 1) -> -9007199254740995) ((4529 . 5625) (- -9007199254740994 2) -> -9007199254740996) ((4530 . 5625) (- -9007199254740994 3) -> -9007199254740997) ((4531 . 5625) (- -9007199254740993 -1) -> -9007199254740992) ((4532 . 5625) (- -9007199254740993 0) -> -9007199254740993) ((4533 . 5625) (- -9007199254740993 1) -> -9007199254740994) ((4534 . 5625) (- -9007199254740993 2) -> -9007199254740995) ((4535 . 5625) (- -9007199254740993 3) -> -9007199254740996) ((4536 . 5625) (- -9007199254740992 -1) -> -9007199254740991) ((4537 . 5625) (- -9007199254740992 0) -> -9007199254740992) ((4538 . 5625) (- -9007199254740992 1) -> -9007199254740993) ((4539 . 5625) (- -9007199254740992 2) -> -9007199254740994) ((4540 . 5625) (- -9007199254740992 3) -> -9007199254740995) ((4541 . 5625) (- -9007199254740991 -1) -> -9007199254740990) ((4542 . 5625) (- -9007199254740991 0) -> -9007199254740991) ((4543 . 5625) (- -9007199254740991 1) -> -9007199254740992) ((4544 . 5625) (- -9007199254740991 2) -> -9007199254740993) ((4545 . 5625) (- -9007199254740991 3) -> -9007199254740994) ((4546 . 5625) (- -9007199254740990 -1) -> -9007199254740989) ((4547 . 5625) (- -9007199254740990 0) -> -9007199254740990) ((4548 . 5625) (- -9007199254740990 1) -> -9007199254740991) ((4549 . 5625) (- -9007199254740990 2) -> -9007199254740992) ((4550 . 5625) (- -9007199254740990 3) -> -9007199254740993) ((4551 . 5625) (- -9007199254740994 -3) -> -9007199254740991) ((4552 . 5625) (- -9007199254740994 -2) -> -9007199254740992) ((4553 . 5625) (- -9007199254740994 -1) -> -9007199254740993) ((4554 . 5625) (- -9007199254740994 0) -> -9007199254740994) ((4555 . 5625) (- -9007199254740994 1) -> -9007199254740995) ((4556 . 5625) (- -9007199254740993 -3) -> -9007199254740990) ((4557 . 5625) (- -9007199254740993 -2) -> -9007199254740991) ((4558 . 5625) (- -9007199254740993 -1) -> -9007199254740992) ((4559 . 5625) (- -9007199254740993 0) -> -9007199254740993) ((4560 . 5625) (- -9007199254740993 1) -> -9007199254740994) ((4561 . 5625) (- -9007199254740992 -3) -> -9007199254740989) ((4562 . 5625) (- -9007199254740992 -2) -> -9007199254740990) ((4563 . 5625) (- -9007199254740992 -1) -> -9007199254740991) ((4564 . 5625) (- -9007199254740992 0) -> -9007199254740992) ((4565 . 5625) (- -9007199254740992 1) -> -9007199254740993) ((4566 . 5625) (- -9007199254740991 -3) -> -9007199254740988) ((4567 . 5625) (- -9007199254740991 -2) -> -9007199254740989) ((4568 . 5625) (- -9007199254740991 -1) -> -9007199254740990) ((4569 . 5625) (- -9007199254740991 0) -> -9007199254740991) ((4570 . 5625) (- -9007199254740991 1) -> -9007199254740992) ((4571 . 5625) (- -9007199254740990 -3) -> -9007199254740987) ((4572 . 5625) (- -9007199254740990 -2) -> -9007199254740988) ((4573 . 5625) (- -9007199254740990 -1) -> -9007199254740989) ((4574 . 5625) (- -9007199254740990 0) -> -9007199254740990) ((4575 . 5625) (- -9007199254740990 1) -> -9007199254740991) ((4576 . 5625) (- -9007199254740994 0) -> -9007199254740994) ((4577 . 5625) (- -9007199254740994 1) -> -9007199254740995) ((4578 . 5625) (- -9007199254740994 2) -> -9007199254740996) ((4579 . 5625) (- -9007199254740994 3) -> -9007199254740997) ((4580 . 5625) (- -9007199254740994 4) -> -9007199254740998) ((4581 . 5625) (- -9007199254740993 0) -> -9007199254740993) ((4582 . 5625) (- -9007199254740993 1) -> -9007199254740994) ((4583 . 5625) (- -9007199254740993 2) -> -9007199254740995) ((4584 . 5625) (- -9007199254740993 3) -> -9007199254740996) ((4585 . 5625) (- -9007199254740993 4) -> -9007199254740997) ((4586 . 5625) (- -9007199254740992 0) -> -9007199254740992) ((4587 . 5625) (- -9007199254740992 1) -> -9007199254740993) ((4588 . 5625) (- -9007199254740992 2) -> -9007199254740994) ((4589 . 5625) (- -9007199254740992 3) -> -9007199254740995) ((4590 . 5625) (- -9007199254740992 4) -> -9007199254740996) ((4591 . 5625) (- -9007199254740991 0) -> -9007199254740991) ((4592 . 5625) (- -9007199254740991 1) -> -9007199254740992) ((4593 . 5625) (- -9007199254740991 2) -> -9007199254740993) ((4594 . 5625) (- -9007199254740991 3) -> -9007199254740994) ((4595 . 5625) (- -9007199254740991 4) -> -9007199254740995) ((4596 . 5625) (- -9007199254740990 0) -> -9007199254740990) ((4597 . 5625) (- -9007199254740990 1) -> -9007199254740991) ((4598 . 5625) (- -9007199254740990 2) -> -9007199254740992) ((4599 . 5625) (- -9007199254740990 3) -> -9007199254740993) ((4600 . 5625) (- -9007199254740990 4) -> -9007199254740994) ((4601 . 5625) (- -9007199254740994 -4) -> -9007199254740990) ((4602 . 5625) (- -9007199254740994 -3) -> -9007199254740991) ((4603 . 5625) (- -9007199254740994 -2) -> -9007199254740992) ((4604 . 5625) (- -9007199254740994 -1) -> -9007199254740993) ((4605 . 5625) (- -9007199254740994 0) -> -9007199254740994) ((4606 . 5625) (- -9007199254740993 -4) -> -9007199254740989) ((4607 . 5625) (- -9007199254740993 -3) -> -9007199254740990) ((4608 . 5625) (- -9007199254740993 -2) -> -9007199254740991) ((4609 . 5625) (- -9007199254740993 -1) -> -9007199254740992) ((4610 . 5625) (- -9007199254740993 0) -> -9007199254740993) ((4611 . 5625) (- -9007199254740992 -4) -> -9007199254740988) ((4612 . 5625) (- -9007199254740992 -3) -> -9007199254740989) ((4613 . 5625) (- -9007199254740992 -2) -> -9007199254740990) ((4614 . 5625) (- -9007199254740992 -1) -> -9007199254740991) ((4615 . 5625) (- -9007199254740992 0) -> -9007199254740992) ((4616 . 5625) (- -9007199254740991 -4) -> -9007199254740987) ((4617 . 5625) (- -9007199254740991 -3) -> -9007199254740988) ((4618 . 5625) (- -9007199254740991 -2) -> -9007199254740989) ((4619 . 5625) (- -9007199254740991 -1) -> -9007199254740990) ((4620 . 5625) (- -9007199254740991 0) -> -9007199254740991) ((4621 . 5625) (- -9007199254740990 -4) -> -9007199254740986) ((4622 . 5625) (- -9007199254740990 -3) -> -9007199254740987) ((4623 . 5625) (- -9007199254740990 -2) -> -9007199254740988) ((4624 . 5625) (- -9007199254740990 -1) -> -9007199254740989) ((4625 . 5625) (- -9007199254740990 0) -> -9007199254740990) ((4626 . 5625) (- -9007199254740994 1073741821) -> -9007200328482815) ((4627 . 5625) (- -9007199254740994 1073741822) -> -9007200328482816) ((4628 . 5625) (- -9007199254740994 1073741823) -> -9007200328482817) ((4629 . 5625) (- -9007199254740994 1073741824) -> -9007200328482818) ((4630 . 5625) (- -9007199254740994 1073741825) -> -9007200328482819) ((4631 . 5625) (- -9007199254740993 1073741821) -> -9007200328482814) ((4632 . 5625) (- -9007199254740993 1073741822) -> -9007200328482815) ((4633 . 5625) (- -9007199254740993 1073741823) -> -9007200328482816) ((4634 . 5625) (- -9007199254740993 1073741824) -> -9007200328482817) ((4635 . 5625) (- -9007199254740993 1073741825) -> -9007200328482818) ((4636 . 5625) (- -9007199254740992 1073741821) -> -9007200328482813) ((4637 . 5625) (- -9007199254740992 1073741822) -> -9007200328482814) ((4638 . 5625) (- -9007199254740992 1073741823) -> -9007200328482815) ((4639 . 5625) (- -9007199254740992 1073741824) -> -9007200328482816) ((4640 . 5625) (- -9007199254740992 1073741825) -> -9007200328482817) ((4641 . 5625) (- -9007199254740991 1073741821) -> -9007200328482812) ((4642 . 5625) (- -9007199254740991 1073741822) -> -9007200328482813) ((4643 . 5625) (- -9007199254740991 1073741823) -> -9007200328482814) ((4644 . 5625) (- -9007199254740991 1073741824) -> -9007200328482815) ((4645 . 5625) (- -9007199254740991 1073741825) -> -9007200328482816) ((4646 . 5625) (- -9007199254740990 1073741821) -> -9007200328482811) ((4647 . 5625) (- -9007199254740990 1073741822) -> -9007200328482812) ((4648 . 5625) (- -9007199254740990 1073741823) -> -9007200328482813) ((4649 . 5625) (- -9007199254740990 1073741824) -> -9007200328482814) ((4650 . 5625) (- -9007199254740990 1073741825) -> -9007200328482815) ((4651 . 5625) (- -9007199254740994 -1073741826) -> -9007198180999168) ((4652 . 5625) (- -9007199254740994 -1073741825) -> -9007198180999169) ((4653 . 5625) (- -9007199254740994 -1073741824) -> -9007198180999170) ((4654 . 5625) (- -9007199254740994 -1073741823) -> -9007198180999171) ((4655 . 5625) (- -9007199254740994 -1073741822) -> -9007198180999172) ((4656 . 5625) (- -9007199254740993 -1073741826) -> -9007198180999167) ((4657 . 5625) (- -9007199254740993 -1073741825) -> -9007198180999168) ((4658 . 5625) (- -9007199254740993 -1073741824) -> -9007198180999169) ((4659 . 5625) (- -9007199254740993 -1073741823) -> -9007198180999170) ((4660 . 5625) (- -9007199254740993 -1073741822) -> -9007198180999171) ((4661 . 5625) (- -9007199254740992 -1073741826) -> -9007198180999166) ((4662 . 5625) (- -9007199254740992 -1073741825) -> -9007198180999167) ((4663 . 5625) (- -9007199254740992 -1073741824) -> -9007198180999168) ((4664 . 5625) (- -9007199254740992 -1073741823) -> -9007198180999169) ((4665 . 5625) (- -9007199254740992 -1073741822) -> -9007198180999170) ((4666 . 5625) (- -9007199254740991 -1073741826) -> -9007198180999165) ((4667 . 5625) (- -9007199254740991 -1073741825) -> -9007198180999166) ((4668 . 5625) (- -9007199254740991 -1073741824) -> -9007198180999167) ((4669 . 5625) (- -9007199254740991 -1073741823) -> -9007198180999168) ((4670 . 5625) (- -9007199254740991 -1073741822) -> -9007198180999169) ((4671 . 5625) (- -9007199254740990 -1073741826) -> -9007198180999164) ((4672 . 5625) (- -9007199254740990 -1073741825) -> -9007198180999165) ((4673 . 5625) (- -9007199254740990 -1073741824) -> -9007198180999166) ((4674 . 5625) (- -9007199254740990 -1073741823) -> -9007198180999167) ((4675 . 5625) (- -9007199254740990 -1073741822) -> -9007198180999168) ((4676 . 5625) (- -9007199254740994 1073741822) -> -9007200328482816) ((4677 . 5625) (- -9007199254740994 1073741823) -> -9007200328482817) ((4678 . 5625) (- -9007199254740994 1073741824) -> -9007200328482818) ((4679 . 5625) (- -9007199254740994 1073741825) -> -9007200328482819) ((4680 . 5625) (- -9007199254740994 1073741826) -> -9007200328482820) ((4681 . 5625) (- -9007199254740993 1073741822) -> -9007200328482815) ((4682 . 5625) (- -9007199254740993 1073741823) -> -9007200328482816) ((4683 . 5625) (- -9007199254740993 1073741824) -> -9007200328482817) ((4684 . 5625) (- -9007199254740993 1073741825) -> -9007200328482818) ((4685 . 5625) (- -9007199254740993 1073741826) -> -9007200328482819) ((4686 . 5625) (- -9007199254740992 1073741822) -> -9007200328482814) ((4687 . 5625) (- -9007199254740992 1073741823) -> -9007200328482815) ((4688 . 5625) (- -9007199254740992 1073741824) -> -9007200328482816) ((4689 . 5625) (- -9007199254740992 1073741825) -> -9007200328482817) ((4690 . 5625) (- -9007199254740992 1073741826) -> -9007200328482818) ((4691 . 5625) (- -9007199254740991 1073741822) -> -9007200328482813) ((4692 . 5625) (- -9007199254740991 1073741823) -> -9007200328482814) ((4693 . 5625) (- -9007199254740991 1073741824) -> -9007200328482815) ((4694 . 5625) (- -9007199254740991 1073741825) -> -9007200328482816) ((4695 . 5625) (- -9007199254740991 1073741826) -> -9007200328482817) ((4696 . 5625) (- -9007199254740990 1073741822) -> -9007200328482812) ((4697 . 5625) (- -9007199254740990 1073741823) -> -9007200328482813) ((4698 . 5625) (- -9007199254740990 1073741824) -> -9007200328482814) ((4699 . 5625) (- -9007199254740990 1073741825) -> -9007200328482815) ((4700 . 5625) (- -9007199254740990 1073741826) -> -9007200328482816) ((4701 . 5625) (- -9007199254740994 -1073741827) -> -9007198180999167) ((4702 . 5625) (- -9007199254740994 -1073741826) -> -9007198180999168) ((4703 . 5625) (- -9007199254740994 -1073741825) -> -9007198180999169) ((4704 . 5625) (- -9007199254740994 -1073741824) -> -9007198180999170) ((4705 . 5625) (- -9007199254740994 -1073741823) -> -9007198180999171) ((4706 . 5625) (- -9007199254740993 -1073741827) -> -9007198180999166) ((4707 . 5625) (- -9007199254740993 -1073741826) -> -9007198180999167) ((4708 . 5625) (- -9007199254740993 -1073741825) -> -9007198180999168) ((4709 . 5625) (- -9007199254740993 -1073741824) -> -9007198180999169) ((4710 . 5625) (- -9007199254740993 -1073741823) -> -9007198180999170) ((4711 . 5625) (- -9007199254740992 -1073741827) -> -9007198180999165) ((4712 . 5625) (- -9007199254740992 -1073741826) -> -9007198180999166) ((4713 . 5625) (- -9007199254740992 -1073741825) -> -9007198180999167) ((4714 . 5625) (- -9007199254740992 -1073741824) -> -9007198180999168) ((4715 . 5625) (- -9007199254740992 -1073741823) -> -9007198180999169) ((4716 . 5625) (- -9007199254740991 -1073741827) -> -9007198180999164) ((4717 . 5625) (- -9007199254740991 -1073741826) -> -9007198180999165) ((4718 . 5625) (- -9007199254740991 -1073741825) -> -9007198180999166) ((4719 . 5625) (- -9007199254740991 -1073741824) -> -9007198180999167) ((4720 . 5625) (- -9007199254740991 -1073741823) -> -9007198180999168) ((4721 . 5625) (- -9007199254740990 -1073741827) -> -9007198180999163) ((4722 . 5625) (- -9007199254740990 -1073741826) -> -9007198180999164) ((4723 . 5625) (- -9007199254740990 -1073741825) -> -9007198180999165) ((4724 . 5625) (- -9007199254740990 -1073741824) -> -9007198180999166) ((4725 . 5625) (- -9007199254740990 -1073741823) -> -9007198180999167) ((4726 . 5625) (- -9007199254740994 1103515243) -> -9007200358256237) ((4727 . 5625) (- -9007199254740994 1103515244) -> -9007200358256238) ((4728 . 5625) (- -9007199254740994 1103515245) -> -9007200358256239) ((4729 . 5625) (- -9007199254740994 1103515246) -> -9007200358256240) ((4730 . 5625) (- -9007199254740994 1103515247) -> -9007200358256241) ((4731 . 5625) (- -9007199254740993 1103515243) -> -9007200358256236) ((4732 . 5625) (- -9007199254740993 1103515244) -> -9007200358256237) ((4733 . 5625) (- -9007199254740993 1103515245) -> -9007200358256238) ((4734 . 5625) (- -9007199254740993 1103515246) -> -9007200358256239) ((4735 . 5625) (- -9007199254740993 1103515247) -> -9007200358256240) ((4736 . 5625) (- -9007199254740992 1103515243) -> -9007200358256235) ((4737 . 5625) (- -9007199254740992 1103515244) -> -9007200358256236) ((4738 . 5625) (- -9007199254740992 1103515245) -> -9007200358256237) ((4739 . 5625) (- -9007199254740992 1103515246) -> -9007200358256238) ((4740 . 5625) (- -9007199254740992 1103515247) -> -9007200358256239) ((4741 . 5625) (- -9007199254740991 1103515243) -> -9007200358256234) ((4742 . 5625) (- -9007199254740991 1103515244) -> -9007200358256235) ((4743 . 5625) (- -9007199254740991 1103515245) -> -9007200358256236) ((4744 . 5625) (- -9007199254740991 1103515246) -> -9007200358256237) ((4745 . 5625) (- -9007199254740991 1103515247) -> -9007200358256238) ((4746 . 5625) (- -9007199254740990 1103515243) -> -9007200358256233) ((4747 . 5625) (- -9007199254740990 1103515244) -> -9007200358256234) ((4748 . 5625) (- -9007199254740990 1103515245) -> -9007200358256235) ((4749 . 5625) (- -9007199254740990 1103515246) -> -9007200358256236) ((4750 . 5625) (- -9007199254740990 1103515247) -> -9007200358256237) ((4751 . 5625) (- -9007199254740994 631629063) -> -9007199886370057) ((4752 . 5625) (- -9007199254740994 631629064) -> -9007199886370058) ((4753 . 5625) (- -9007199254740994 631629065) -> -9007199886370059) ((4754 . 5625) (- -9007199254740994 631629066) -> -9007199886370060) ((4755 . 5625) (- -9007199254740994 631629067) -> -9007199886370061) ((4756 . 5625) (- -9007199254740993 631629063) -> -9007199886370056) ((4757 . 5625) (- -9007199254740993 631629064) -> -9007199886370057) ((4758 . 5625) (- -9007199254740993 631629065) -> -9007199886370058) ((4759 . 5625) (- -9007199254740993 631629066) -> -9007199886370059) ((4760 . 5625) (- -9007199254740993 631629067) -> -9007199886370060) ((4761 . 5625) (- -9007199254740992 631629063) -> -9007199886370055) ((4762 . 5625) (- -9007199254740992 631629064) -> -9007199886370056) ((4763 . 5625) (- -9007199254740992 631629065) -> -9007199886370057) ((4764 . 5625) (- -9007199254740992 631629066) -> -9007199886370058) ((4765 . 5625) (- -9007199254740992 631629067) -> -9007199886370059) ((4766 . 5625) (- -9007199254740991 631629063) -> -9007199886370054) ((4767 . 5625) (- -9007199254740991 631629064) -> -9007199886370055) ((4768 . 5625) (- -9007199254740991 631629065) -> -9007199886370056) ((4769 . 5625) (- -9007199254740991 631629066) -> -9007199886370057) ((4770 . 5625) (- -9007199254740991 631629067) -> -9007199886370058) ((4771 . 5625) (- -9007199254740990 631629063) -> -9007199886370053) ((4772 . 5625) (- -9007199254740990 631629064) -> -9007199886370054) ((4773 . 5625) (- -9007199254740990 631629065) -> -9007199886370055) ((4774 . 5625) (- -9007199254740990 631629066) -> -9007199886370056) ((4775 . 5625) (- -9007199254740990 631629067) -> -9007199886370057) ((4776 . 5625) (- -9007199254740994 9007199254740990) -> -18014398509481984) ((4777 . 5625) (- -9007199254740994 9007199254740991) -> -18014398509481985) ((4778 . 5625) (- -9007199254740994 9007199254740992) -> -18014398509481986) ((4779 . 5625) (- -9007199254740994 9007199254740993) -> -18014398509481987) ((4780 . 5625) (- -9007199254740994 9007199254740994) -> -18014398509481988) ((4781 . 5625) (- -9007199254740993 9007199254740990) -> -18014398509481983) ((4782 . 5625) (- -9007199254740993 9007199254740991) -> -18014398509481984) ((4783 . 5625) (- -9007199254740993 9007199254740992) -> -18014398509481985) ((4784 . 5625) (- -9007199254740993 9007199254740993) -> -18014398509481986) ((4785 . 5625) (- -9007199254740993 9007199254740994) -> -18014398509481987) ((4786 . 5625) (- -9007199254740992 9007199254740990) -> -18014398509481982) ((4787 . 5625) (- -9007199254740992 9007199254740991) -> -18014398509481983) ((4788 . 5625) (- -9007199254740992 9007199254740992) -> -18014398509481984) ((4789 . 5625) (- -9007199254740992 9007199254740993) -> -18014398509481985) ((4790 . 5625) (- -9007199254740992 9007199254740994) -> -18014398509481986) ((4791 . 5625) (- -9007199254740991 9007199254740990) -> -18014398509481981) ((4792 . 5625) (- -9007199254740991 9007199254740991) -> -18014398509481982) ((4793 . 5625) (- -9007199254740991 9007199254740992) -> -18014398509481983) ((4794 . 5625) (- -9007199254740991 9007199254740993) -> -18014398509481984) ((4795 . 5625) (- -9007199254740991 9007199254740994) -> -18014398509481985) ((4796 . 5625) (- -9007199254740990 9007199254740990) -> -18014398509481980) ((4797 . 5625) (- -9007199254740990 9007199254740991) -> -18014398509481981) ((4798 . 5625) (- -9007199254740990 9007199254740992) -> -18014398509481982) ((4799 . 5625) (- -9007199254740990 9007199254740993) -> -18014398509481983) ((4800 . 5625) (- -9007199254740990 9007199254740994) -> -18014398509481984) ((4801 . 5625) (- -9007199254740994 -9007199254740994) -> 0) ((4802 . 5625) (- -9007199254740994 -9007199254740993) -> -1) ((4803 . 5625) (- -9007199254740994 -9007199254740992) -> -2) ((4804 . 5625) (- -9007199254740994 -9007199254740991) -> -3) ((4805 . 5625) (- -9007199254740994 -9007199254740990) -> -4) ((4806 . 5625) (- -9007199254740993 -9007199254740994) -> 1) ((4807 . 5625) (- -9007199254740993 -9007199254740993) -> 0) ((4808 . 5625) (- -9007199254740993 -9007199254740992) -> -1) ((4809 . 5625) (- -9007199254740993 -9007199254740991) -> -2) ((4810 . 5625) (- -9007199254740993 -9007199254740990) -> -3) ((4811 . 5625) (- -9007199254740992 -9007199254740994) -> 2) ((4812 . 5625) (- -9007199254740992 -9007199254740993) -> 1) ((4813 . 5625) (- -9007199254740992 -9007199254740992) -> 0) ((4814 . 5625) (- -9007199254740992 -9007199254740991) -> -1) ((4815 . 5625) (- -9007199254740992 -9007199254740990) -> -2) ((4816 . 5625) (- -9007199254740991 -9007199254740994) -> 3) ((4817 . 5625) (- -9007199254740991 -9007199254740993) -> 2) ((4818 . 5625) (- -9007199254740991 -9007199254740992) -> 1) ((4819 . 5625) (- -9007199254740991 -9007199254740991) -> 0) ((4820 . 5625) (- -9007199254740991 -9007199254740990) -> -1) ((4821 . 5625) (- -9007199254740990 -9007199254740994) -> 4) ((4822 . 5625) (- -9007199254740990 -9007199254740993) -> 3) ((4823 . 5625) (- -9007199254740990 -9007199254740992) -> 2) ((4824 . 5625) (- -9007199254740990 -9007199254740991) -> 1) ((4825 . 5625) (- -9007199254740990 -9007199254740990) -> 0) ((4826 . 5625) (- -9007199254740994 12343) -> -9007199254753337) ((4827 . 5625) (- -9007199254740994 12344) -> -9007199254753338) ((4828 . 5625) (- -9007199254740994 12345) -> -9007199254753339) ((4829 . 5625) (- -9007199254740994 12346) -> -9007199254753340) ((4830 . 5625) (- -9007199254740994 12347) -> -9007199254753341) ((4831 . 5625) (- -9007199254740993 12343) -> -9007199254753336) ((4832 . 5625) (- -9007199254740993 12344) -> -9007199254753337) ((4833 . 5625) (- -9007199254740993 12345) -> -9007199254753338) ((4834 . 5625) (- -9007199254740993 12346) -> -9007199254753339) ((4835 . 5625) (- -9007199254740993 12347) -> -9007199254753340) ((4836 . 5625) (- -9007199254740992 12343) -> -9007199254753335) ((4837 . 5625) (- -9007199254740992 12344) -> -9007199254753336) ((4838 . 5625) (- -9007199254740992 12345) -> -9007199254753337) ((4839 . 5625) (- -9007199254740992 12346) -> -9007199254753338) ((4840 . 5625) (- -9007199254740992 12347) -> -9007199254753339) ((4841 . 5625) (- -9007199254740991 12343) -> -9007199254753334) ((4842 . 5625) (- -9007199254740991 12344) -> -9007199254753335) ((4843 . 5625) (- -9007199254740991 12345) -> -9007199254753336) ((4844 . 5625) (- -9007199254740991 12346) -> -9007199254753337) ((4845 . 5625) (- -9007199254740991 12347) -> -9007199254753338) ((4846 . 5625) (- -9007199254740990 12343) -> -9007199254753333) ((4847 . 5625) (- -9007199254740990 12344) -> -9007199254753334) ((4848 . 5625) (- -9007199254740990 12345) -> -9007199254753335) ((4849 . 5625) (- -9007199254740990 12346) -> -9007199254753336) ((4850 . 5625) (- -9007199254740990 12347) -> -9007199254753337) ((4851 . 5625) (- -9007199254740994 4294967294) -> -9007203549708288) ((4852 . 5625) (- -9007199254740994 4294967295) -> -9007203549708289) ((4853 . 5625) (- -9007199254740994 4294967296) -> -9007203549708290) ((4854 . 5625) (- -9007199254740994 4294967297) -> -9007203549708291) ((4855 . 5625) (- -9007199254740994 4294967298) -> -9007203549708292) ((4856 . 5625) (- -9007199254740993 4294967294) -> -9007203549708287) ((4857 . 5625) (- -9007199254740993 4294967295) -> -9007203549708288) ((4858 . 5625) (- -9007199254740993 4294967296) -> -9007203549708289) ((4859 . 5625) (- -9007199254740993 4294967297) -> -9007203549708290) ((4860 . 5625) (- -9007199254740993 4294967298) -> -9007203549708291) ((4861 . 5625) (- -9007199254740992 4294967294) -> -9007203549708286) ((4862 . 5625) (- -9007199254740992 4294967295) -> -9007203549708287) ((4863 . 5625) (- -9007199254740992 4294967296) -> -9007203549708288) ((4864 . 5625) (- -9007199254740992 4294967297) -> -9007203549708289) ((4865 . 5625) (- -9007199254740992 4294967298) -> -9007203549708290) ((4866 . 5625) (- -9007199254740991 4294967294) -> -9007203549708285) ((4867 . 5625) (- -9007199254740991 4294967295) -> -9007203549708286) ((4868 . 5625) (- -9007199254740991 4294967296) -> -9007203549708287) ((4869 . 5625) (- -9007199254740991 4294967297) -> -9007203549708288) ((4870 . 5625) (- -9007199254740991 4294967298) -> -9007203549708289) ((4871 . 5625) (- -9007199254740990 4294967294) -> -9007203549708284) ((4872 . 5625) (- -9007199254740990 4294967295) -> -9007203549708285) ((4873 . 5625) (- -9007199254740990 4294967296) -> -9007203549708286) ((4874 . 5625) (- -9007199254740990 4294967297) -> -9007203549708287) ((4875 . 5625) (- -9007199254740990 4294967298) -> -9007203549708288) ((4876 . 5625) (- 12343 -2) -> 12345) ((4877 . 5625) (- 12343 -1) -> 12344) ((4878 . 5625) (- 12343 0) -> 12343) ((4879 . 5625) (- 12343 1) -> 12342) ((4880 . 5625) (- 12343 2) -> 12341) ((4881 . 5625) (- 12344 -2) -> 12346) ((4882 . 5625) (- 12344 -1) -> 12345) ((4883 . 5625) (- 12344 0) -> 12344) ((4884 . 5625) (- 12344 1) -> 12343) ((4885 . 5625) (- 12344 2) -> 12342) ((4886 . 5625) (- 12345 -2) -> 12347) ((4887 . 5625) (- 12345 -1) -> 12346) ((4888 . 5625) (- 12345 0) -> 12345) ((4889 . 5625) (- 12345 1) -> 12344) ((4890 . 5625) (- 12345 2) -> 12343) ((4891 . 5625) (- 12346 -2) -> 12348) ((4892 . 5625) (- 12346 -1) -> 12347) ((4893 . 5625) (- 12346 0) -> 12346) ((4894 . 5625) (- 12346 1) -> 12345) ((4895 . 5625) (- 12346 2) -> 12344) ((4896 . 5625) (- 12347 -2) -> 12349) ((4897 . 5625) (- 12347 -1) -> 12348) ((4898 . 5625) (- 12347 0) -> 12347) ((4899 . 5625) (- 12347 1) -> 12346) ((4900 . 5625) (- 12347 2) -> 12345) ((4901 . 5625) (- 12343 -1) -> 12344) ((4902 . 5625) (- 12343 0) -> 12343) ((4903 . 5625) (- 12343 1) -> 12342) ((4904 . 5625) (- 12343 2) -> 12341) ((4905 . 5625) (- 12343 3) -> 12340) ((4906 . 5625) (- 12344 -1) -> 12345) ((4907 . 5625) (- 12344 0) -> 12344) ((4908 . 5625) (- 12344 1) -> 12343) ((4909 . 5625) (- 12344 2) -> 12342) ((4910 . 5625) (- 12344 3) -> 12341) ((4911 . 5625) (- 12345 -1) -> 12346) ((4912 . 5625) (- 12345 0) -> 12345) ((4913 . 5625) (- 12345 1) -> 12344) ((4914 . 5625) (- 12345 2) -> 12343) ((4915 . 5625) (- 12345 3) -> 12342) ((4916 . 5625) (- 12346 -1) -> 12347) ((4917 . 5625) (- 12346 0) -> 12346) ((4918 . 5625) (- 12346 1) -> 12345) ((4919 . 5625) (- 12346 2) -> 12344) ((4920 . 5625) (- 12346 3) -> 12343) ((4921 . 5625) (- 12347 -1) -> 12348) ((4922 . 5625) (- 12347 0) -> 12347) ((4923 . 5625) (- 12347 1) -> 12346) ((4924 . 5625) (- 12347 2) -> 12345) ((4925 . 5625) (- 12347 3) -> 12344) ((4926 . 5625) (- 12343 -3) -> 12346) ((4927 . 5625) (- 12343 -2) -> 12345) ((4928 . 5625) (- 12343 -1) -> 12344) ((4929 . 5625) (- 12343 0) -> 12343) ((4930 . 5625) (- 12343 1) -> 12342) ((4931 . 5625) (- 12344 -3) -> 12347) ((4932 . 5625) (- 12344 -2) -> 12346) ((4933 . 5625) (- 12344 -1) -> 12345) ((4934 . 5625) (- 12344 0) -> 12344) ((4935 . 5625) (- 12344 1) -> 12343) ((4936 . 5625) (- 12345 -3) -> 12348) ((4937 . 5625) (- 12345 -2) -> 12347) ((4938 . 5625) (- 12345 -1) -> 12346) ((4939 . 5625) (- 12345 0) -> 12345) ((4940 . 5625) (- 12345 1) -> 12344) ((4941 . 5625) (- 12346 -3) -> 12349) ((4942 . 5625) (- 12346 -2) -> 12348) ((4943 . 5625) (- 12346 -1) -> 12347) ((4944 . 5625) (- 12346 0) -> 12346) ((4945 . 5625) (- 12346 1) -> 12345) ((4946 . 5625) (- 12347 -3) -> 12350) ((4947 . 5625) (- 12347 -2) -> 12349) ((4948 . 5625) (- 12347 -1) -> 12348) ((4949 . 5625) (- 12347 0) -> 12347) ((4950 . 5625) (- 12347 1) -> 12346) ((4951 . 5625) (- 12343 0) -> 12343) ((4952 . 5625) (- 12343 1) -> 12342) ((4953 . 5625) (- 12343 2) -> 12341) ((4954 . 5625) (- 12343 3) -> 12340) ((4955 . 5625) (- 12343 4) -> 12339) ((4956 . 5625) (- 12344 0) -> 12344) ((4957 . 5625) (- 12344 1) -> 12343) ((4958 . 5625) (- 12344 2) -> 12342) ((4959 . 5625) (- 12344 3) -> 12341) ((4960 . 5625) (- 12344 4) -> 12340) ((4961 . 5625) (- 12345 0) -> 12345) ((4962 . 5625) (- 12345 1) -> 12344) ((4963 . 5625) (- 12345 2) -> 12343) ((4964 . 5625) (- 12345 3) -> 12342) ((4965 . 5625) (- 12345 4) -> 12341) ((4966 . 5625) (- 12346 0) -> 12346) ((4967 . 5625) (- 12346 1) -> 12345) ((4968 . 5625) (- 12346 2) -> 12344) ((4969 . 5625) (- 12346 3) -> 12343) ((4970 . 5625) (- 12346 4) -> 12342) ((4971 . 5625) (- 12347 0) -> 12347) ((4972 . 5625) (- 12347 1) -> 12346) ((4973 . 5625) (- 12347 2) -> 12345) ((4974 . 5625) (- 12347 3) -> 12344) ((4975 . 5625) (- 12347 4) -> 12343) ((4976 . 5625) (- 12343 -4) -> 12347) ((4977 . 5625) (- 12343 -3) -> 12346) ((4978 . 5625) (- 12343 -2) -> 12345) ((4979 . 5625) (- 12343 -1) -> 12344) ((4980 . 5625) (- 12343 0) -> 12343) ((4981 . 5625) (- 12344 -4) -> 12348) ((4982 . 5625) (- 12344 -3) -> 12347) ((4983 . 5625) (- 12344 -2) -> 12346) ((4984 . 5625) (- 12344 -1) -> 12345) ((4985 . 5625) (- 12344 0) -> 12344) ((4986 . 5625) (- 12345 -4) -> 12349) ((4987 . 5625) (- 12345 -3) -> 12348) ((4988 . 5625) (- 12345 -2) -> 12347) ((4989 . 5625) (- 12345 -1) -> 12346) ((4990 . 5625) (- 12345 0) -> 12345) ((4991 . 5625) (- 12346 -4) -> 12350) ((4992 . 5625) (- 12346 -3) -> 12349) ((4993 . 5625) (- 12346 -2) -> 12348) ((4994 . 5625) (- 12346 -1) -> 12347) ((4995 . 5625) (- 12346 0) -> 12346) ((4996 . 5625) (- 12347 -4) -> 12351) ((4997 . 5625) (- 12347 -3) -> 12350) ((4998 . 5625) (- 12347 -2) -> 12349) ((4999 . 5625) (- 12347 -1) -> 12348) ((5000 . 5625) (- 12347 0) -> 12347) ((5001 . 5625) (- 12343 1073741821) -> -1073729478) ((5002 . 5625) (- 12343 1073741822) -> -1073729479) ((5003 . 5625) (- 12343 1073741823) -> -1073729480) ((5004 . 5625) (- 12343 1073741824) -> -1073729481) ((5005 . 5625) (- 12343 1073741825) -> -1073729482) ((5006 . 5625) (- 12344 1073741821) -> -1073729477) ((5007 . 5625) (- 12344 1073741822) -> -1073729478) ((5008 . 5625) (- 12344 1073741823) -> -1073729479) ((5009 . 5625) (- 12344 1073741824) -> -1073729480) ((5010 . 5625) (- 12344 1073741825) -> -1073729481) ((5011 . 5625) (- 12345 1073741821) -> -1073729476) ((5012 . 5625) (- 12345 1073741822) -> -1073729477) ((5013 . 5625) (- 12345 1073741823) -> -1073729478) ((5014 . 5625) (- 12345 1073741824) -> -1073729479) ((5015 . 5625) (- 12345 1073741825) -> -1073729480) ((5016 . 5625) (- 12346 1073741821) -> -1073729475) ((5017 . 5625) (- 12346 1073741822) -> -1073729476) ((5018 . 5625) (- 12346 1073741823) -> -1073729477) ((5019 . 5625) (- 12346 1073741824) -> -1073729478) ((5020 . 5625) (- 12346 1073741825) -> -1073729479) ((5021 . 5625) (- 12347 1073741821) -> -1073729474) ((5022 . 5625) (- 12347 1073741822) -> -1073729475) ((5023 . 5625) (- 12347 1073741823) -> -1073729476) ((5024 . 5625) (- 12347 1073741824) -> -1073729477) ((5025 . 5625) (- 12347 1073741825) -> -1073729478) ((5026 . 5625) (- 12343 -1073741826) -> 1073754169) ((5027 . 5625) (- 12343 -1073741825) -> 1073754168) ((5028 . 5625) (- 12343 -1073741824) -> 1073754167) ((5029 . 5625) (- 12343 -1073741823) -> 1073754166) ((5030 . 5625) (- 12343 -1073741822) -> 1073754165) ((5031 . 5625) (- 12344 -1073741826) -> 1073754170) ((5032 . 5625) (- 12344 -1073741825) -> 1073754169) ((5033 . 5625) (- 12344 -1073741824) -> 1073754168) ((5034 . 5625) (- 12344 -1073741823) -> 1073754167) ((5035 . 5625) (- 12344 -1073741822) -> 1073754166) ((5036 . 5625) (- 12345 -1073741826) -> 1073754171) ((5037 . 5625) (- 12345 -1073741825) -> 1073754170) ((5038 . 5625) (- 12345 -1073741824) -> 1073754169) ((5039 . 5625) (- 12345 -1073741823) -> 1073754168) ((5040 . 5625) (- 12345 -1073741822) -> 1073754167) ((5041 . 5625) (- 12346 -1073741826) -> 1073754172) ((5042 . 5625) (- 12346 -1073741825) -> 1073754171) ((5043 . 5625) (- 12346 -1073741824) -> 1073754170) ((5044 . 5625) (- 12346 -1073741823) -> 1073754169) ((5045 . 5625) (- 12346 -1073741822) -> 1073754168) ((5046 . 5625) (- 12347 -1073741826) -> 1073754173) ((5047 . 5625) (- 12347 -1073741825) -> 1073754172) ((5048 . 5625) (- 12347 -1073741824) -> 1073754171) ((5049 . 5625) (- 12347 -1073741823) -> 1073754170) ((5050 . 5625) (- 12347 -1073741822) -> 1073754169) ((5051 . 5625) (- 12343 1073741822) -> -1073729479) ((5052 . 5625) (- 12343 1073741823) -> -1073729480) ((5053 . 5625) (- 12343 1073741824) -> -1073729481) ((5054 . 5625) (- 12343 1073741825) -> -1073729482) ((5055 . 5625) (- 12343 1073741826) -> -1073729483) ((5056 . 5625) (- 12344 1073741822) -> -1073729478) ((5057 . 5625) (- 12344 1073741823) -> -1073729479) ((5058 . 5625) (- 12344 1073741824) -> -1073729480) ((5059 . 5625) (- 12344 1073741825) -> -1073729481) ((5060 . 5625) (- 12344 1073741826) -> -1073729482) ((5061 . 5625) (- 12345 1073741822) -> -1073729477) ((5062 . 5625) (- 12345 1073741823) -> -1073729478) ((5063 . 5625) (- 12345 1073741824) -> -1073729479) ((5064 . 5625) (- 12345 1073741825) -> -1073729480) ((5065 . 5625) (- 12345 1073741826) -> -1073729481) ((5066 . 5625) (- 12346 1073741822) -> -1073729476) ((5067 . 5625) (- 12346 1073741823) -> -1073729477) ((5068 . 5625) (- 12346 1073741824) -> -1073729478) ((5069 . 5625) (- 12346 1073741825) -> -1073729479) ((5070 . 5625) (- 12346 1073741826) -> -1073729480) ((5071 . 5625) (- 12347 1073741822) -> -1073729475) ((5072 . 5625) (- 12347 1073741823) -> -1073729476) ((5073 . 5625) (- 12347 1073741824) -> -1073729477) ((5074 . 5625) (- 12347 1073741825) -> -1073729478) ((5075 . 5625) (- 12347 1073741826) -> -1073729479) ((5076 . 5625) (- 12343 -1073741827) -> 1073754170) ((5077 . 5625) (- 12343 -1073741826) -> 1073754169) ((5078 . 5625) (- 12343 -1073741825) -> 1073754168) ((5079 . 5625) (- 12343 -1073741824) -> 1073754167) ((5080 . 5625) (- 12343 -1073741823) -> 1073754166) ((5081 . 5625) (- 12344 -1073741827) -> 1073754171) ((5082 . 5625) (- 12344 -1073741826) -> 1073754170) ((5083 . 5625) (- 12344 -1073741825) -> 1073754169) ((5084 . 5625) (- 12344 -1073741824) -> 1073754168) ((5085 . 5625) (- 12344 -1073741823) -> 1073754167) ((5086 . 5625) (- 12345 -1073741827) -> 1073754172) ((5087 . 5625) (- 12345 -1073741826) -> 1073754171) ((5088 . 5625) (- 12345 -1073741825) -> 1073754170) ((5089 . 5625) (- 12345 -1073741824) -> 1073754169) ((5090 . 5625) (- 12345 -1073741823) -> 1073754168) ((5091 . 5625) (- 12346 -1073741827) -> 1073754173) ((5092 . 5625) (- 12346 -1073741826) -> 1073754172) ((5093 . 5625) (- 12346 -1073741825) -> 1073754171) ((5094 . 5625) (- 12346 -1073741824) -> 1073754170) ((5095 . 5625) (- 12346 -1073741823) -> 1073754169) ((5096 . 5625) (- 12347 -1073741827) -> 1073754174) ((5097 . 5625) (- 12347 -1073741826) -> 1073754173) ((5098 . 5625) (- 12347 -1073741825) -> 1073754172) ((5099 . 5625) (- 12347 -1073741824) -> 1073754171) ((5100 . 5625) (- 12347 -1073741823) -> 1073754170) ((5101 . 5625) (- 12343 1103515243) -> -1103502900) ((5102 . 5625) (- 12343 1103515244) -> -1103502901) ((5103 . 5625) (- 12343 1103515245) -> -1103502902) ((5104 . 5625) (- 12343 1103515246) -> -1103502903) ((5105 . 5625) (- 12343 1103515247) -> -1103502904) ((5106 . 5625) (- 12344 1103515243) -> -1103502899) ((5107 . 5625) (- 12344 1103515244) -> -1103502900) ((5108 . 5625) (- 12344 1103515245) -> -1103502901) ((5109 . 5625) (- 12344 1103515246) -> -1103502902) ((5110 . 5625) (- 12344 1103515247) -> -1103502903) ((5111 . 5625) (- 12345 1103515243) -> -1103502898) ((5112 . 5625) (- 12345 1103515244) -> -1103502899) ((5113 . 5625) (- 12345 1103515245) -> -1103502900) ((5114 . 5625) (- 12345 1103515246) -> -1103502901) ((5115 . 5625) (- 12345 1103515247) -> -1103502902) ((5116 . 5625) (- 12346 1103515243) -> -1103502897) ((5117 . 5625) (- 12346 1103515244) -> -1103502898) ((5118 . 5625) (- 12346 1103515245) -> -1103502899) ((5119 . 5625) (- 12346 1103515246) -> -1103502900) ((5120 . 5625) (- 12346 1103515247) -> -1103502901) ((5121 . 5625) (- 12347 1103515243) -> -1103502896) ((5122 . 5625) (- 12347 1103515244) -> -1103502897) ((5123 . 5625) (- 12347 1103515245) -> -1103502898) ((5124 . 5625) (- 12347 1103515246) -> -1103502899) ((5125 . 5625) (- 12347 1103515247) -> -1103502900) ((5126 . 5625) (- 12343 631629063) -> -631616720) ((5127 . 5625) (- 12343 631629064) -> -631616721) ((5128 . 5625) (- 12343 631629065) -> -631616722) ((5129 . 5625) (- 12343 631629066) -> -631616723) ((5130 . 5625) (- 12343 631629067) -> -631616724) ((5131 . 5625) (- 12344 631629063) -> -631616719) ((5132 . 5625) (- 12344 631629064) -> -631616720) ((5133 . 5625) (- 12344 631629065) -> -631616721) ((5134 . 5625) (- 12344 631629066) -> -631616722) ((5135 . 5625) (- 12344 631629067) -> -631616723) ((5136 . 5625) (- 12345 631629063) -> -631616718) ((5137 . 5625) (- 12345 631629064) -> -631616719) ((5138 . 5625) (- 12345 631629065) -> -631616720) ((5139 . 5625) (- 12345 631629066) -> -631616721) ((5140 . 5625) (- 12345 631629067) -> -631616722) ((5141 . 5625) (- 12346 631629063) -> -631616717) ((5142 . 5625) (- 12346 631629064) -> -631616718) ((5143 . 5625) (- 12346 631629065) -> -631616719) ((5144 . 5625) (- 12346 631629066) -> -631616720) ((5145 . 5625) (- 12346 631629067) -> -631616721) ((5146 . 5625) (- 12347 631629063) -> -631616716) ((5147 . 5625) (- 12347 631629064) -> -631616717) ((5148 . 5625) (- 12347 631629065) -> -631616718) ((5149 . 5625) (- 12347 631629066) -> -631616719) ((5150 . 5625) (- 12347 631629067) -> -631616720) ((5151 . 5625) (- 12343 9007199254740990) -> -9007199254728647) ((5152 . 5625) (- 12343 9007199254740991) -> -9007199254728648) ((5153 . 5625) (- 12343 9007199254740992) -> -9007199254728649) ((5154 . 5625) (- 12343 9007199254740993) -> -9007199254728650) ((5155 . 5625) (- 12343 9007199254740994) -> -9007199254728651) ((5156 . 5625) (- 12344 9007199254740990) -> -9007199254728646) ((5157 . 5625) (- 12344 9007199254740991) -> -9007199254728647) ((5158 . 5625) (- 12344 9007199254740992) -> -9007199254728648) ((5159 . 5625) (- 12344 9007199254740993) -> -9007199254728649) ((5160 . 5625) (- 12344 9007199254740994) -> -9007199254728650) ((5161 . 5625) (- 12345 9007199254740990) -> -9007199254728645) ((5162 . 5625) (- 12345 9007199254740991) -> -9007199254728646) ((5163 . 5625) (- 12345 9007199254740992) -> -9007199254728647) ((5164 . 5625) (- 12345 9007199254740993) -> -9007199254728648) ((5165 . 5625) (- 12345 9007199254740994) -> -9007199254728649) ((5166 . 5625) (- 12346 9007199254740990) -> -9007199254728644) ((5167 . 5625) (- 12346 9007199254740991) -> -9007199254728645) ((5168 . 5625) (- 12346 9007199254740992) -> -9007199254728646) ((5169 . 5625) (- 12346 9007199254740993) -> -9007199254728647) ((5170 . 5625) (- 12346 9007199254740994) -> -9007199254728648) ((5171 . 5625) (- 12347 9007199254740990) -> -9007199254728643) ((5172 . 5625) (- 12347 9007199254740991) -> -9007199254728644) ((5173 . 5625) (- 12347 9007199254740992) -> -9007199254728645) ((5174 . 5625) (- 12347 9007199254740993) -> -9007199254728646) ((5175 . 5625) (- 12347 9007199254740994) -> -9007199254728647) ((5176 . 5625) (- 12343 -9007199254740994) -> 9007199254753337) ((5177 . 5625) (- 12343 -9007199254740993) -> 9007199254753336) ((5178 . 5625) (- 12343 -9007199254740992) -> 9007199254753335) ((5179 . 5625) (- 12343 -9007199254740991) -> 9007199254753334) ((5180 . 5625) (- 12343 -9007199254740990) -> 9007199254753333) ((5181 . 5625) (- 12344 -9007199254740994) -> 9007199254753338) ((5182 . 5625) (- 12344 -9007199254740993) -> 9007199254753337) ((5183 . 5625) (- 12344 -9007199254740992) -> 9007199254753336) ((5184 . 5625) (- 12344 -9007199254740991) -> 9007199254753335) ((5185 . 5625) (- 12344 -9007199254740990) -> 9007199254753334) ((5186 . 5625) (- 12345 -9007199254740994) -> 9007199254753339) ((5187 . 5625) (- 12345 -9007199254740993) -> 9007199254753338) ((5188 . 5625) (- 12345 -9007199254740992) -> 9007199254753337) ((5189 . 5625) (- 12345 -9007199254740991) -> 9007199254753336) ((5190 . 5625) (- 12345 -9007199254740990) -> 9007199254753335) ((5191 . 5625) (- 12346 -9007199254740994) -> 9007199254753340) ((5192 . 5625) (- 12346 -9007199254740993) -> 9007199254753339) ((5193 . 5625) (- 12346 -9007199254740992) -> 9007199254753338) ((5194 . 5625) (- 12346 -9007199254740991) -> 9007199254753337) ((5195 . 5625) (- 12346 -9007199254740990) -> 9007199254753336) ((5196 . 5625) (- 12347 -9007199254740994) -> 9007199254753341) ((5197 . 5625) (- 12347 -9007199254740993) -> 9007199254753340) ((5198 . 5625) (- 12347 -9007199254740992) -> 9007199254753339) ((5199 . 5625) (- 12347 -9007199254740991) -> 9007199254753338) ((5200 . 5625) (- 12347 -9007199254740990) -> 9007199254753337) ((5201 . 5625) (- 12343 12343) -> 0) ((5202 . 5625) (- 12343 12344) -> -1) ((5203 . 5625) (- 12343 12345) -> -2) ((5204 . 5625) (- 12343 12346) -> -3) ((5205 . 5625) (- 12343 12347) -> -4) ((5206 . 5625) (- 12344 12343) -> 1) ((5207 . 5625) (- 12344 12344) -> 0) ((5208 . 5625) (- 12344 12345) -> -1) ((5209 . 5625) (- 12344 12346) -> -2) ((5210 . 5625) (- 12344 12347) -> -3) ((5211 . 5625) (- 12345 12343) -> 2) ((5212 . 5625) (- 12345 12344) -> 1) ((5213 . 5625) (- 12345 12345) -> 0) ((5214 . 5625) (- 12345 12346) -> -1) ((5215 . 5625) (- 12345 12347) -> -2) ((5216 . 5625) (- 12346 12343) -> 3) ((5217 . 5625) (- 12346 12344) -> 2) ((5218 . 5625) (- 12346 12345) -> 1) ((5219 . 5625) (- 12346 12346) -> 0) ((5220 . 5625) (- 12346 12347) -> -1) ((5221 . 5625) (- 12347 12343) -> 4) ((5222 . 5625) (- 12347 12344) -> 3) ((5223 . 5625) (- 12347 12345) -> 2) ((5224 . 5625) (- 12347 12346) -> 1) ((5225 . 5625) (- 12347 12347) -> 0) ((5226 . 5625) (- 12343 4294967294) -> -4294954951) ((5227 . 5625) (- 12343 4294967295) -> -4294954952) ((5228 . 5625) (- 12343 4294967296) -> -4294954953) ((5229 . 5625) (- 12343 4294967297) -> -4294954954) ((5230 . 5625) (- 12343 4294967298) -> -4294954955) ((5231 . 5625) (- 12344 4294967294) -> -4294954950) ((5232 . 5625) (- 12344 4294967295) -> -4294954951) ((5233 . 5625) (- 12344 4294967296) -> -4294954952) ((5234 . 5625) (- 12344 4294967297) -> -4294954953) ((5235 . 5625) (- 12344 4294967298) -> -4294954954) ((5236 . 5625) (- 12345 4294967294) -> -4294954949) ((5237 . 5625) (- 12345 4294967295) -> -4294954950) ((5238 . 5625) (- 12345 4294967296) -> -4294954951) ((5239 . 5625) (- 12345 4294967297) -> -4294954952) ((5240 . 5625) (- 12345 4294967298) -> -4294954953) ((5241 . 5625) (- 12346 4294967294) -> -4294954948) ((5242 . 5625) (- 12346 4294967295) -> -4294954949) ((5243 . 5625) (- 12346 4294967296) -> -4294954950) ((5244 . 5625) (- 12346 4294967297) -> -4294954951) ((5245 . 5625) (- 12346 4294967298) -> -4294954952) ((5246 . 5625) (- 12347 4294967294) -> -4294954947) ((5247 . 5625) (- 12347 4294967295) -> -4294954948) ((5248 . 5625) (- 12347 4294967296) -> -4294954949) ((5249 . 5625) (- 12347 4294967297) -> -4294954950) ((5250 . 5625) (- 12347 4294967298) -> -4294954951) ((5251 . 5625) (- 4294967294 -2) -> 4294967296) ((5252 . 5625) (- 4294967294 -1) -> 4294967295) ((5253 . 5625) (- 4294967294 0) -> 4294967294) ((5254 . 5625) (- 4294967294 1) -> 4294967293) ((5255 . 5625) (- 4294967294 2) -> 4294967292) ((5256 . 5625) (- 4294967295 -2) -> 4294967297) ((5257 . 5625) (- 4294967295 -1) -> 4294967296) ((5258 . 5625) (- 4294967295 0) -> 4294967295) ((5259 . 5625) (- 4294967295 1) -> 4294967294) ((5260 . 5625) (- 4294967295 2) -> 4294967293) ((5261 . 5625) (- 4294967296 -2) -> 4294967298) ((5262 . 5625) (- 4294967296 -1) -> 4294967297) ((5263 . 5625) (- 4294967296 0) -> 4294967296) ((5264 . 5625) (- 4294967296 1) -> 4294967295) ((5265 . 5625) (- 4294967296 2) -> 4294967294) ((5266 . 5625) (- 4294967297 -2) -> 4294967299) ((5267 . 5625) (- 4294967297 -1) -> 4294967298) ((5268 . 5625) (- 4294967297 0) -> 4294967297) ((5269 . 5625) (- 4294967297 1) -> 4294967296) ((5270 . 5625) (- 4294967297 2) -> 4294967295) ((5271 . 5625) (- 4294967298 -2) -> 4294967300) ((5272 . 5625) (- 4294967298 -1) -> 4294967299) ((5273 . 5625) (- 4294967298 0) -> 4294967298) ((5274 . 5625) (- 4294967298 1) -> 4294967297) ((5275 . 5625) (- 4294967298 2) -> 4294967296) ((5276 . 5625) (- 4294967294 -1) -> 4294967295) ((5277 . 5625) (- 4294967294 0) -> 4294967294) ((5278 . 5625) (- 4294967294 1) -> 4294967293) ((5279 . 5625) (- 4294967294 2) -> 4294967292) ((5280 . 5625) (- 4294967294 3) -> 4294967291) ((5281 . 5625) (- 4294967295 -1) -> 4294967296) ((5282 . 5625) (- 4294967295 0) -> 4294967295) ((5283 . 5625) (- 4294967295 1) -> 4294967294) ((5284 . 5625) (- 4294967295 2) -> 4294967293) ((5285 . 5625) (- 4294967295 3) -> 4294967292) ((5286 . 5625) (- 4294967296 -1) -> 4294967297) ((5287 . 5625) (- 4294967296 0) -> 4294967296) ((5288 . 5625) (- 4294967296 1) -> 4294967295) ((5289 . 5625) (- 4294967296 2) -> 4294967294) ((5290 . 5625) (- 4294967296 3) -> 4294967293) ((5291 . 5625) (- 4294967297 -1) -> 4294967298) ((5292 . 5625) (- 4294967297 0) -> 4294967297) ((5293 . 5625) (- 4294967297 1) -> 4294967296) ((5294 . 5625) (- 4294967297 2) -> 4294967295) ((5295 . 5625) (- 4294967297 3) -> 4294967294) ((5296 . 5625) (- 4294967298 -1) -> 4294967299) ((5297 . 5625) (- 4294967298 0) -> 4294967298) ((5298 . 5625) (- 4294967298 1) -> 4294967297) ((5299 . 5625) (- 4294967298 2) -> 4294967296) ((5300 . 5625) (- 4294967298 3) -> 4294967295) ((5301 . 5625) (- 4294967294 -3) -> 4294967297) ((5302 . 5625) (- 4294967294 -2) -> 4294967296) ((5303 . 5625) (- 4294967294 -1) -> 4294967295) ((5304 . 5625) (- 4294967294 0) -> 4294967294) ((5305 . 5625) (- 4294967294 1) -> 4294967293) ((5306 . 5625) (- 4294967295 -3) -> 4294967298) ((5307 . 5625) (- 4294967295 -2) -> 4294967297) ((5308 . 5625) (- 4294967295 -1) -> 4294967296) ((5309 . 5625) (- 4294967295 0) -> 4294967295) ((5310 . 5625) (- 4294967295 1) -> 4294967294) ((5311 . 5625) (- 4294967296 -3) -> 4294967299) ((5312 . 5625) (- 4294967296 -2) -> 4294967298) ((5313 . 5625) (- 4294967296 -1) -> 4294967297) ((5314 . 5625) (- 4294967296 0) -> 4294967296) ((5315 . 5625) (- 4294967296 1) -> 4294967295) ((5316 . 5625) (- 4294967297 -3) -> 4294967300) ((5317 . 5625) (- 4294967297 -2) -> 4294967299) ((5318 . 5625) (- 4294967297 -1) -> 4294967298) ((5319 . 5625) (- 4294967297 0) -> 4294967297) ((5320 . 5625) (- 4294967297 1) -> 4294967296) ((5321 . 5625) (- 4294967298 -3) -> 4294967301) ((5322 . 5625) (- 4294967298 -2) -> 4294967300) ((5323 . 5625) (- 4294967298 -1) -> 4294967299) ((5324 . 5625) (- 4294967298 0) -> 4294967298) ((5325 . 5625) (- 4294967298 1) -> 4294967297) ((5326 . 5625) (- 4294967294 0) -> 4294967294) ((5327 . 5625) (- 4294967294 1) -> 4294967293) ((5328 . 5625) (- 4294967294 2) -> 4294967292) ((5329 . 5625) (- 4294967294 3) -> 4294967291) ((5330 . 5625) (- 4294967294 4) -> 4294967290) ((5331 . 5625) (- 4294967295 0) -> 4294967295) ((5332 . 5625) (- 4294967295 1) -> 4294967294) ((5333 . 5625) (- 4294967295 2) -> 4294967293) ((5334 . 5625) (- 4294967295 3) -> 4294967292) ((5335 . 5625) (- 4294967295 4) -> 4294967291) ((5336 . 5625) (- 4294967296 0) -> 4294967296) ((5337 . 5625) (- 4294967296 1) -> 4294967295) ((5338 . 5625) (- 4294967296 2) -> 4294967294) ((5339 . 5625) (- 4294967296 3) -> 4294967293) ((5340 . 5625) (- 4294967296 4) -> 4294967292) ((5341 . 5625) (- 4294967297 0) -> 4294967297) ((5342 . 5625) (- 4294967297 1) -> 4294967296) ((5343 . 5625) (- 4294967297 2) -> 4294967295) ((5344 . 5625) (- 4294967297 3) -> 4294967294) ((5345 . 5625) (- 4294967297 4) -> 4294967293) ((5346 . 5625) (- 4294967298 0) -> 4294967298) ((5347 . 5625) (- 4294967298 1) -> 4294967297) ((5348 . 5625) (- 4294967298 2) -> 4294967296) ((5349 . 5625) (- 4294967298 3) -> 4294967295) ((5350 . 5625) (- 4294967298 4) -> 4294967294) ((5351 . 5625) (- 4294967294 -4) -> 4294967298) ((5352 . 5625) (- 4294967294 -3) -> 4294967297) ((5353 . 5625) (- 4294967294 -2) -> 4294967296) ((5354 . 5625) (- 4294967294 -1) -> 4294967295) ((5355 . 5625) (- 4294967294 0) -> 4294967294) ((5356 . 5625) (- 4294967295 -4) -> 4294967299) ((5357 . 5625) (- 4294967295 -3) -> 4294967298) ((5358 . 5625) (- 4294967295 -2) -> 4294967297) ((5359 . 5625) (- 4294967295 -1) -> 4294967296) ((5360 . 5625) (- 4294967295 0) -> 4294967295) ((5361 . 5625) (- 4294967296 -4) -> 4294967300) ((5362 . 5625) (- 4294967296 -3) -> 4294967299) ((5363 . 5625) (- 4294967296 -2) -> 4294967298) ((5364 . 5625) (- 4294967296 -1) -> 4294967297) ((5365 . 5625) (- 4294967296 0) -> 4294967296) ((5366 . 5625) (- 4294967297 -4) -> 4294967301) ((5367 . 5625) (- 4294967297 -3) -> 4294967300) ((5368 . 5625) (- 4294967297 -2) -> 4294967299) ((5369 . 5625) (- 4294967297 -1) -> 4294967298) ((5370 . 5625) (- 4294967297 0) -> 4294967297) ((5371 . 5625) (- 4294967298 -4) -> 4294967302) ((5372 . 5625) (- 4294967298 -3) -> 4294967301) ((5373 . 5625) (- 4294967298 -2) -> 4294967300) ((5374 . 5625) (- 4294967298 -1) -> 4294967299) ((5375 . 5625) (- 4294967298 0) -> 4294967298) ((5376 . 5625) (- 4294967294 1073741821) -> 3221225473) ((5377 . 5625) (- 4294967294 1073741822) -> 3221225472) ((5378 . 5625) (- 4294967294 1073741823) -> 3221225471) ((5379 . 5625) (- 4294967294 1073741824) -> 3221225470) ((5380 . 5625) (- 4294967294 1073741825) -> 3221225469) ((5381 . 5625) (- 4294967295 1073741821) -> 3221225474) ((5382 . 5625) (- 4294967295 1073741822) -> 3221225473) ((5383 . 5625) (- 4294967295 1073741823) -> 3221225472) ((5384 . 5625) (- 4294967295 1073741824) -> 3221225471) ((5385 . 5625) (- 4294967295 1073741825) -> 3221225470) ((5386 . 5625) (- 4294967296 1073741821) -> 3221225475) ((5387 . 5625) (- 4294967296 1073741822) -> 3221225474) ((5388 . 5625) (- 4294967296 1073741823) -> 3221225473) ((5389 . 5625) (- 4294967296 1073741824) -> 3221225472) ((5390 . 5625) (- 4294967296 1073741825) -> 3221225471) ((5391 . 5625) (- 4294967297 1073741821) -> 3221225476) ((5392 . 5625) (- 4294967297 1073741822) -> 3221225475) ((5393 . 5625) (- 4294967297 1073741823) -> 3221225474) ((5394 . 5625) (- 4294967297 1073741824) -> 3221225473) ((5395 . 5625) (- 4294967297 1073741825) -> 3221225472) ((5396 . 5625) (- 4294967298 1073741821) -> 3221225477) ((5397 . 5625) (- 4294967298 1073741822) -> 3221225476) ((5398 . 5625) (- 4294967298 1073741823) -> 3221225475) ((5399 . 5625) (- 4294967298 1073741824) -> 3221225474) ((5400 . 5625) (- 4294967298 1073741825) -> 3221225473) ((5401 . 5625) (- 4294967294 -1073741826) -> 5368709120) ((5402 . 5625) (- 4294967294 -1073741825) -> 5368709119) ((5403 . 5625) (- 4294967294 -1073741824) -> 5368709118) ((5404 . 5625) (- 4294967294 -1073741823) -> 5368709117) ((5405 . 5625) (- 4294967294 -1073741822) -> 5368709116) ((5406 . 5625) (- 4294967295 -1073741826) -> 5368709121) ((5407 . 5625) (- 4294967295 -1073741825) -> 5368709120) ((5408 . 5625) (- 4294967295 -1073741824) -> 5368709119) ((5409 . 5625) (- 4294967295 -1073741823) -> 5368709118) ((5410 . 5625) (- 4294967295 -1073741822) -> 5368709117) ((5411 . 5625) (- 4294967296 -1073741826) -> 5368709122) ((5412 . 5625) (- 4294967296 -1073741825) -> 5368709121) ((5413 . 5625) (- 4294967296 -1073741824) -> 5368709120) ((5414 . 5625) (- 4294967296 -1073741823) -> 5368709119) ((5415 . 5625) (- 4294967296 -1073741822) -> 5368709118) ((5416 . 5625) (- 4294967297 -1073741826) -> 5368709123) ((5417 . 5625) (- 4294967297 -1073741825) -> 5368709122) ((5418 . 5625) (- 4294967297 -1073741824) -> 5368709121) ((5419 . 5625) (- 4294967297 -1073741823) -> 5368709120) ((5420 . 5625) (- 4294967297 -1073741822) -> 5368709119) ((5421 . 5625) (- 4294967298 -1073741826) -> 5368709124) ((5422 . 5625) (- 4294967298 -1073741825) -> 5368709123) ((5423 . 5625) (- 4294967298 -1073741824) -> 5368709122) ((5424 . 5625) (- 4294967298 -1073741823) -> 5368709121) ((5425 . 5625) (- 4294967298 -1073741822) -> 5368709120) ((5426 . 5625) (- 4294967294 1073741822) -> 3221225472) ((5427 . 5625) (- 4294967294 1073741823) -> 3221225471) ((5428 . 5625) (- 4294967294 1073741824) -> 3221225470) ((5429 . 5625) (- 4294967294 1073741825) -> 3221225469) ((5430 . 5625) (- 4294967294 1073741826) -> 3221225468) ((5431 . 5625) (- 4294967295 1073741822) -> 3221225473) ((5432 . 5625) (- 4294967295 1073741823) -> 3221225472) ((5433 . 5625) (- 4294967295 1073741824) -> 3221225471) ((5434 . 5625) (- 4294967295 1073741825) -> 3221225470) ((5435 . 5625) (- 4294967295 1073741826) -> 3221225469) ((5436 . 5625) (- 4294967296 1073741822) -> 3221225474) ((5437 . 5625) (- 4294967296 1073741823) -> 3221225473) ((5438 . 5625) (- 4294967296 1073741824) -> 3221225472) ((5439 . 5625) (- 4294967296 1073741825) -> 3221225471) ((5440 . 5625) (- 4294967296 1073741826) -> 3221225470) ((5441 . 5625) (- 4294967297 1073741822) -> 3221225475) ((5442 . 5625) (- 4294967297 1073741823) -> 3221225474) ((5443 . 5625) (- 4294967297 1073741824) -> 3221225473) ((5444 . 5625) (- 4294967297 1073741825) -> 3221225472) ((5445 . 5625) (- 4294967297 1073741826) -> 3221225471) ((5446 . 5625) (- 4294967298 1073741822) -> 3221225476) ((5447 . 5625) (- 4294967298 1073741823) -> 3221225475) ((5448 . 5625) (- 4294967298 1073741824) -> 3221225474) ((5449 . 5625) (- 4294967298 1073741825) -> 3221225473) ((5450 . 5625) (- 4294967298 1073741826) -> 3221225472) ((5451 . 5625) (- 4294967294 -1073741827) -> 5368709121) ((5452 . 5625) (- 4294967294 -1073741826) -> 5368709120) ((5453 . 5625) (- 4294967294 -1073741825) -> 5368709119) ((5454 . 5625) (- 4294967294 -1073741824) -> 5368709118) ((5455 . 5625) (- 4294967294 -1073741823) -> 5368709117) ((5456 . 5625) (- 4294967295 -1073741827) -> 5368709122) ((5457 . 5625) (- 4294967295 -1073741826) -> 5368709121) ((5458 . 5625) (- 4294967295 -1073741825) -> 5368709120) ((5459 . 5625) (- 4294967295 -1073741824) -> 5368709119) ((5460 . 5625) (- 4294967295 -1073741823) -> 5368709118) ((5461 . 5625) (- 4294967296 -1073741827) -> 5368709123) ((5462 . 5625) (- 4294967296 -1073741826) -> 5368709122) ((5463 . 5625) (- 4294967296 -1073741825) -> 5368709121) ((5464 . 5625) (- 4294967296 -1073741824) -> 5368709120) ((5465 . 5625) (- 4294967296 -1073741823) -> 5368709119) ((5466 . 5625) (- 4294967297 -1073741827) -> 5368709124) ((5467 . 5625) (- 4294967297 -1073741826) -> 5368709123) ((5468 . 5625) (- 4294967297 -1073741825) -> 5368709122) ((5469 . 5625) (- 4294967297 -1073741824) -> 5368709121) ((5470 . 5625) (- 4294967297 -1073741823) -> 5368709120) ((5471 . 5625) (- 4294967298 -1073741827) -> 5368709125) ((5472 . 5625) (- 4294967298 -1073741826) -> 5368709124) ((5473 . 5625) (- 4294967298 -1073741825) -> 5368709123) ((5474 . 5625) (- 4294967298 -1073741824) -> 5368709122) ((5475 . 5625) (- 4294967298 -1073741823) -> 5368709121) ((5476 . 5625) (- 4294967294 1103515243) -> 3191452051) ((5477 . 5625) (- 4294967294 1103515244) -> 3191452050) ((5478 . 5625) (- 4294967294 1103515245) -> 3191452049) ((5479 . 5625) (- 4294967294 1103515246) -> 3191452048) ((5480 . 5625) (- 4294967294 1103515247) -> 3191452047) ((5481 . 5625) (- 4294967295 1103515243) -> 3191452052) ((5482 . 5625) (- 4294967295 1103515244) -> 3191452051) ((5483 . 5625) (- 4294967295 1103515245) -> 3191452050) ((5484 . 5625) (- 4294967295 1103515246) -> 3191452049) ((5485 . 5625) (- 4294967295 1103515247) -> 3191452048) ((5486 . 5625) (- 4294967296 1103515243) -> 3191452053) ((5487 . 5625) (- 4294967296 1103515244) -> 3191452052) ((5488 . 5625) (- 4294967296 1103515245) -> 3191452051) ((5489 . 5625) (- 4294967296 1103515246) -> 3191452050) ((5490 . 5625) (- 4294967296 1103515247) -> 3191452049) ((5491 . 5625) (- 4294967297 1103515243) -> 3191452054) ((5492 . 5625) (- 4294967297 1103515244) -> 3191452053) ((5493 . 5625) (- 4294967297 1103515245) -> 3191452052) ((5494 . 5625) (- 4294967297 1103515246) -> 3191452051) ((5495 . 5625) (- 4294967297 1103515247) -> 3191452050) ((5496 . 5625) (- 4294967298 1103515243) -> 3191452055) ((5497 . 5625) (- 4294967298 1103515244) -> 3191452054) ((5498 . 5625) (- 4294967298 1103515245) -> 3191452053) ((5499 . 5625) (- 4294967298 1103515246) -> 3191452052) ((5500 . 5625) (- 4294967298 1103515247) -> 3191452051) ((5501 . 5625) (- 4294967294 631629063) -> 3663338231) ((5502 . 5625) (- 4294967294 631629064) -> 3663338230) ((5503 . 5625) (- 4294967294 631629065) -> 3663338229) ((5504 . 5625) (- 4294967294 631629066) -> 3663338228) ((5505 . 5625) (- 4294967294 631629067) -> 3663338227) ((5506 . 5625) (- 4294967295 631629063) -> 3663338232) ((5507 . 5625) (- 4294967295 631629064) -> 3663338231) ((5508 . 5625) (- 4294967295 631629065) -> 3663338230) ((5509 . 5625) (- 4294967295 631629066) -> 3663338229) ((5510 . 5625) (- 4294967295 631629067) -> 3663338228) ((5511 . 5625) (- 4294967296 631629063) -> 3663338233) ((5512 . 5625) (- 4294967296 631629064) -> 3663338232) ((5513 . 5625) (- 4294967296 631629065) -> 3663338231) ((5514 . 5625) (- 4294967296 631629066) -> 3663338230) ((5515 . 5625) (- 4294967296 631629067) -> 3663338229) ((5516 . 5625) (- 4294967297 631629063) -> 3663338234) ((5517 . 5625) (- 4294967297 631629064) -> 3663338233) ((5518 . 5625) (- 4294967297 631629065) -> 3663338232) ((5519 . 5625) (- 4294967297 631629066) -> 3663338231) ((5520 . 5625) (- 4294967297 631629067) -> 3663338230) ((5521 . 5625) (- 4294967298 631629063) -> 3663338235) ((5522 . 5625) (- 4294967298 631629064) -> 3663338234) ((5523 . 5625) (- 4294967298 631629065) -> 3663338233) ((5524 . 5625) (- 4294967298 631629066) -> 3663338232) ((5525 . 5625) (- 4294967298 631629067) -> 3663338231) ((5526 . 5625) (- 4294967294 9007199254740990) -> -9007194959773696) ((5527 . 5625) (- 4294967294 9007199254740991) -> -9007194959773697) ((5528 . 5625) (- 4294967294 9007199254740992) -> -9007194959773698) ((5529 . 5625) (- 4294967294 9007199254740993) -> -9007194959773699) ((5530 . 5625) (- 4294967294 9007199254740994) -> -9007194959773700) ((5531 . 5625) (- 4294967295 9007199254740990) -> -9007194959773695) ((5532 . 5625) (- 4294967295 9007199254740991) -> -9007194959773696) ((5533 . 5625) (- 4294967295 9007199254740992) -> -9007194959773697) ((5534 . 5625) (- 4294967295 9007199254740993) -> -9007194959773698) ((5535 . 5625) (- 4294967295 9007199254740994) -> -9007194959773699) ((5536 . 5625) (- 4294967296 9007199254740990) -> -9007194959773694) ((5537 . 5625) (- 4294967296 9007199254740991) -> -9007194959773695) ((5538 . 5625) (- 4294967296 9007199254740992) -> -9007194959773696) ((5539 . 5625) (- 4294967296 9007199254740993) -> -9007194959773697) ((5540 . 5625) (- 4294967296 9007199254740994) -> -9007194959773698) ((5541 . 5625) (- 4294967297 9007199254740990) -> -9007194959773693) ((5542 . 5625) (- 4294967297 9007199254740991) -> -9007194959773694) ((5543 . 5625) (- 4294967297 9007199254740992) -> -9007194959773695) ((5544 . 5625) (- 4294967297 9007199254740993) -> -9007194959773696) ((5545 . 5625) (- 4294967297 9007199254740994) -> -9007194959773697) ((5546 . 5625) (- 4294967298 9007199254740990) -> -9007194959773692) ((5547 . 5625) (- 4294967298 9007199254740991) -> -9007194959773693) ((5548 . 5625) (- 4294967298 9007199254740992) -> -9007194959773694) ((5549 . 5625) (- 4294967298 9007199254740993) -> -9007194959773695) ((5550 . 5625) (- 4294967298 9007199254740994) -> -9007194959773696) ((5551 . 5625) (- 4294967294 -9007199254740994) -> 9007203549708288) ((5552 . 5625) (- 4294967294 -9007199254740993) -> 9007203549708287) ((5553 . 5625) (- 4294967294 -9007199254740992) -> 9007203549708286) ((5554 . 5625) (- 4294967294 -9007199254740991) -> 9007203549708285) ((5555 . 5625) (- 4294967294 -9007199254740990) -> 9007203549708284) ((5556 . 5625) (- 4294967295 -9007199254740994) -> 9007203549708289) ((5557 . 5625) (- 4294967295 -9007199254740993) -> 9007203549708288) ((5558 . 5625) (- 4294967295 -9007199254740992) -> 9007203549708287) ((5559 . 5625) (- 4294967295 -9007199254740991) -> 9007203549708286) ((5560 . 5625) (- 4294967295 -9007199254740990) -> 9007203549708285) ((5561 . 5625) (- 4294967296 -9007199254740994) -> 9007203549708290) ((5562 . 5625) (- 4294967296 -9007199254740993) -> 9007203549708289) ((5563 . 5625) (- 4294967296 -9007199254740992) -> 9007203549708288) ((5564 . 5625) (- 4294967296 -9007199254740991) -> 9007203549708287) ((5565 . 5625) (- 4294967296 -9007199254740990) -> 9007203549708286) ((5566 . 5625) (- 4294967297 -9007199254740994) -> 9007203549708291) ((5567 . 5625) (- 4294967297 -9007199254740993) -> 9007203549708290) ((5568 . 5625) (- 4294967297 -9007199254740992) -> 9007203549708289) ((5569 . 5625) (- 4294967297 -9007199254740991) -> 9007203549708288) ((5570 . 5625) (- 4294967297 -9007199254740990) -> 9007203549708287) ((5571 . 5625) (- 4294967298 -9007199254740994) -> 9007203549708292) ((5572 . 5625) (- 4294967298 -9007199254740993) -> 9007203549708291) ((5573 . 5625) (- 4294967298 -9007199254740992) -> 9007203549708290) ((5574 . 5625) (- 4294967298 -9007199254740991) -> 9007203549708289) ((5575 . 5625) (- 4294967298 -9007199254740990) -> 9007203549708288) ((5576 . 5625) (- 4294967294 12343) -> 4294954951) ((5577 . 5625) (- 4294967294 12344) -> 4294954950) ((5578 . 5625) (- 4294967294 12345) -> 4294954949) ((5579 . 5625) (- 4294967294 12346) -> 4294954948) ((5580 . 5625) (- 4294967294 12347) -> 4294954947) ((5581 . 5625) (- 4294967295 12343) -> 4294954952) ((5582 . 5625) (- 4294967295 12344) -> 4294954951) ((5583 . 5625) (- 4294967295 12345) -> 4294954950) ((5584 . 5625) (- 4294967295 12346) -> 4294954949) ((5585 . 5625) (- 4294967295 12347) -> 4294954948) ((5586 . 5625) (- 4294967296 12343) -> 4294954953) ((5587 . 5625) (- 4294967296 12344) -> 4294954952) ((5588 . 5625) (- 4294967296 12345) -> 4294954951) ((5589 . 5625) (- 4294967296 12346) -> 4294954950) ((5590 . 5625) (- 4294967296 12347) -> 4294954949) ((5591 . 5625) (- 4294967297 12343) -> 4294954954) ((5592 . 5625) (- 4294967297 12344) -> 4294954953) ((5593 . 5625) (- 4294967297 12345) -> 4294954952) ((5594 . 5625) (- 4294967297 12346) -> 4294954951) ((5595 . 5625) (- 4294967297 12347) -> 4294954950) ((5596 . 5625) (- 4294967298 12343) -> 4294954955) ((5597 . 5625) (- 4294967298 12344) -> 4294954954) ((5598 . 5625) (- 4294967298 12345) -> 4294954953) ((5599 . 5625) (- 4294967298 12346) -> 4294954952) ((5600 . 5625) (- 4294967298 12347) -> 4294954951) ((5601 . 5625) (- 4294967294 4294967294) -> 0) ((5602 . 5625) (- 4294967294 4294967295) -> -1) ((5603 . 5625) (- 4294967294 4294967296) -> -2) ((5604 . 5625) (- 4294967294 4294967297) -> -3) ((5605 . 5625) (- 4294967294 4294967298) -> -4) ((5606 . 5625) (- 4294967295 4294967294) -> 1) ((5607 . 5625) (- 4294967295 4294967295) -> 0) ((5608 . 5625) (- 4294967295 4294967296) -> -1) ((5609 . 5625) (- 4294967295 4294967297) -> -2) ((5610 . 5625) (- 4294967295 4294967298) -> -3) ((5611 . 5625) (- 4294967296 4294967294) -> 2) ((5612 . 5625) (- 4294967296 4294967295) -> 1) ((5613 . 5625) (- 4294967296 4294967296) -> 0) ((5614 . 5625) (- 4294967296 4294967297) -> -1) ((5615 . 5625) (- 4294967296 4294967298) -> -2) ((5616 . 5625) (- 4294967297 4294967294) -> 3) ((5617 . 5625) (- 4294967297 4294967295) -> 2) ((5618 . 5625) (- 4294967297 4294967296) -> 1) ((5619 . 5625) (- 4294967297 4294967297) -> 0) ((5620 . 5625) (- 4294967297 4294967298) -> -1) ((5621 . 5625) (- 4294967298 4294967294) -> 4) ((5622 . 5625) (- 4294967298 4294967295) -> 3) ((5623 . 5625) (- 4294967298 4294967296) -> 2) ((5624 . 5625) (- 4294967298 4294967297) -> 1) ((5625 . 5625) (- 4294967298 4294967298) -> 0) ((1 . 5625) (* -2 -2) -> 4) ((2 . 5625) (* -2 -1) -> 2) ((3 . 5625) (* -2 0) -> 0) ((4 . 5625) (* -2 1) -> -2) ((5 . 5625) (* -2 2) -> -4) ((6 . 5625) (* -1 -2) -> 2) ((7 . 5625) (* -1 -1) -> 1) ((8 . 5625) (* -1 0) -> 0) ((9 . 5625) (* -1 1) -> -1) ((10 . 5625) (* -1 2) -> -2) ((11 . 5625) (* 0 -2) -> 0) ((12 . 5625) (* 0 -1) -> 0) ((13 . 5625) (* 0 0) -> 0) ((14 . 5625) (* 0 1) -> 0) ((15 . 5625) (* 0 2) -> 0) ((16 . 5625) (* 1 -2) -> -2) ((17 . 5625) (* 1 -1) -> -1) ((18 . 5625) (* 1 0) -> 0) ((19 . 5625) (* 1 1) -> 1) ((20 . 5625) (* 1 2) -> 2) ((21 . 5625) (* 2 -2) -> -4) ((22 . 5625) (* 2 -1) -> -2) ((23 . 5625) (* 2 0) -> 0) ((24 . 5625) (* 2 1) -> 2) ((25 . 5625) (* 2 2) -> 4) ((26 . 5625) (* -2 -1) -> 2) ((27 . 5625) (* -2 0) -> 0) ((28 . 5625) (* -2 1) -> -2) ((29 . 5625) (* -2 2) -> -4) ((30 . 5625) (* -2 3) -> -6) ((31 . 5625) (* -1 -1) -> 1) ((32 . 5625) (* -1 0) -> 0) ((33 . 5625) (* -1 1) -> -1) ((34 . 5625) (* -1 2) -> -2) ((35 . 5625) (* -1 3) -> -3) ((36 . 5625) (* 0 -1) -> 0) ((37 . 5625) (* 0 0) -> 0) ((38 . 5625) (* 0 1) -> 0) ((39 . 5625) (* 0 2) -> 0) ((40 . 5625) (* 0 3) -> 0) ((41 . 5625) (* 1 -1) -> -1) ((42 . 5625) (* 1 0) -> 0) ((43 . 5625) (* 1 1) -> 1) ((44 . 5625) (* 1 2) -> 2) ((45 . 5625) (* 1 3) -> 3) ((46 . 5625) (* 2 -1) -> -2) ((47 . 5625) (* 2 0) -> 0) ((48 . 5625) (* 2 1) -> 2) ((49 . 5625) (* 2 2) -> 4) ((50 . 5625) (* 2 3) -> 6) ((51 . 5625) (* -2 -3) -> 6) ((52 . 5625) (* -2 -2) -> 4) ((53 . 5625) (* -2 -1) -> 2) ((54 . 5625) (* -2 0) -> 0) ((55 . 5625) (* -2 1) -> -2) ((56 . 5625) (* -1 -3) -> 3) ((57 . 5625) (* -1 -2) -> 2) ((58 . 5625) (* -1 -1) -> 1) ((59 . 5625) (* -1 0) -> 0) ((60 . 5625) (* -1 1) -> -1) ((61 . 5625) (* 0 -3) -> 0) ((62 . 5625) (* 0 -2) -> 0) ((63 . 5625) (* 0 -1) -> 0) ((64 . 5625) (* 0 0) -> 0) ((65 . 5625) (* 0 1) -> 0) ((66 . 5625) (* 1 -3) -> -3) ((67 . 5625) (* 1 -2) -> -2) ((68 . 5625) (* 1 -1) -> -1) ((69 . 5625) (* 1 0) -> 0) ((70 . 5625) (* 1 1) -> 1) ((71 . 5625) (* 2 -3) -> -6) ((72 . 5625) (* 2 -2) -> -4) ((73 . 5625) (* 2 -1) -> -2) ((74 . 5625) (* 2 0) -> 0) ((75 . 5625) (* 2 1) -> 2) ((76 . 5625) (* -2 0) -> 0) ((77 . 5625) (* -2 1) -> -2) ((78 . 5625) (* -2 2) -> -4) ((79 . 5625) (* -2 3) -> -6) ((80 . 5625) (* -2 4) -> -8) ((81 . 5625) (* -1 0) -> 0) ((82 . 5625) (* -1 1) -> -1) ((83 . 5625) (* -1 2) -> -2) ((84 . 5625) (* -1 3) -> -3) ((85 . 5625) (* -1 4) -> -4) ((86 . 5625) (* 0 0) -> 0) ((87 . 5625) (* 0 1) -> 0) ((88 . 5625) (* 0 2) -> 0) ((89 . 5625) (* 0 3) -> 0) ((90 . 5625) (* 0 4) -> 0) ((91 . 5625) (* 1 0) -> 0) ((92 . 5625) (* 1 1) -> 1) ((93 . 5625) (* 1 2) -> 2) ((94 . 5625) (* 1 3) -> 3) ((95 . 5625) (* 1 4) -> 4) ((96 . 5625) (* 2 0) -> 0) ((97 . 5625) (* 2 1) -> 2) ((98 . 5625) (* 2 2) -> 4) ((99 . 5625) (* 2 3) -> 6) ((100 . 5625) (* 2 4) -> 8) ((101 . 5625) (* -2 -4) -> 8) ((102 . 5625) (* -2 -3) -> 6) ((103 . 5625) (* -2 -2) -> 4) ((104 . 5625) (* -2 -1) -> 2) ((105 . 5625) (* -2 0) -> 0) ((106 . 5625) (* -1 -4) -> 4) ((107 . 5625) (* -1 -3) -> 3) ((108 . 5625) (* -1 -2) -> 2) ((109 . 5625) (* -1 -1) -> 1) ((110 . 5625) (* -1 0) -> 0) ((111 . 5625) (* 0 -4) -> 0) ((112 . 5625) (* 0 -3) -> 0) ((113 . 5625) (* 0 -2) -> 0) ((114 . 5625) (* 0 -1) -> 0) ((115 . 5625) (* 0 0) -> 0) ((116 . 5625) (* 1 -4) -> -4) ((117 . 5625) (* 1 -3) -> -3) ((118 . 5625) (* 1 -2) -> -2) ((119 . 5625) (* 1 -1) -> -1) ((120 . 5625) (* 1 0) -> 0) ((121 . 5625) (* 2 -4) -> -8) ((122 . 5625) (* 2 -3) -> -6) ((123 . 5625) (* 2 -2) -> -4) ((124 . 5625) (* 2 -1) -> -2) ((125 . 5625) (* 2 0) -> 0) ((126 . 5625) (* -2 1073741821) -> -2147483642) ((127 . 5625) (* -2 1073741822) -> -2147483644) ((128 . 5625) (* -2 1073741823) -> -2147483646) ((129 . 5625) (* -2 1073741824) -> -2147483648) ((130 . 5625) (* -2 1073741825) -> -2147483650) ((131 . 5625) (* -1 1073741821) -> -1073741821) ((132 . 5625) (* -1 1073741822) -> -1073741822) ((133 . 5625) (* -1 1073741823) -> -1073741823) ((134 . 5625) (* -1 1073741824) -> -1073741824) ((135 . 5625) (* -1 1073741825) -> -1073741825) ((136 . 5625) (* 0 1073741821) -> 0) ((137 . 5625) (* 0 1073741822) -> 0) ((138 . 5625) (* 0 1073741823) -> 0) ((139 . 5625) (* 0 1073741824) -> 0) ((140 . 5625) (* 0 1073741825) -> 0) ((141 . 5625) (* 1 1073741821) -> 1073741821) ((142 . 5625) (* 1 1073741822) -> 1073741822) ((143 . 5625) (* 1 1073741823) -> 1073741823) ((144 . 5625) (* 1 1073741824) -> 1073741824) ((145 . 5625) (* 1 1073741825) -> 1073741825) ((146 . 5625) (* 2 1073741821) -> 2147483642) ((147 . 5625) (* 2 1073741822) -> 2147483644) ((148 . 5625) (* 2 1073741823) -> 2147483646) ((149 . 5625) (* 2 1073741824) -> 2147483648) ((150 . 5625) (* 2 1073741825) -> 2147483650) ((151 . 5625) (* -2 -1073741826) -> 2147483652) ((152 . 5625) (* -2 -1073741825) -> 2147483650) ((153 . 5625) (* -2 -1073741824) -> 2147483648) ((154 . 5625) (* -2 -1073741823) -> 2147483646) ((155 . 5625) (* -2 -1073741822) -> 2147483644) ((156 . 5625) (* -1 -1073741826) -> 1073741826) ((157 . 5625) (* -1 -1073741825) -> 1073741825) ((158 . 5625) (* -1 -1073741824) -> 1073741824) ((159 . 5625) (* -1 -1073741823) -> 1073741823) ((160 . 5625) (* -1 -1073741822) -> 1073741822) ((161 . 5625) (* 0 -1073741826) -> 0) ((162 . 5625) (* 0 -1073741825) -> 0) ((163 . 5625) (* 0 -1073741824) -> 0) ((164 . 5625) (* 0 -1073741823) -> 0) ((165 . 5625) (* 0 -1073741822) -> 0) ((166 . 5625) (* 1 -1073741826) -> -1073741826) ((167 . 5625) (* 1 -1073741825) -> -1073741825) ((168 . 5625) (* 1 -1073741824) -> -1073741824) ((169 . 5625) (* 1 -1073741823) -> -1073741823) ((170 . 5625) (* 1 -1073741822) -> -1073741822) ((171 . 5625) (* 2 -1073741826) -> -2147483652) ((172 . 5625) (* 2 -1073741825) -> -2147483650) ((173 . 5625) (* 2 -1073741824) -> -2147483648) ((174 . 5625) (* 2 -1073741823) -> -2147483646) ((175 . 5625) (* 2 -1073741822) -> -2147483644) ((176 . 5625) (* -2 1073741822) -> -2147483644) ((177 . 5625) (* -2 1073741823) -> -2147483646) ((178 . 5625) (* -2 1073741824) -> -2147483648) ((179 . 5625) (* -2 1073741825) -> -2147483650) ((180 . 5625) (* -2 1073741826) -> -2147483652) ((181 . 5625) (* -1 1073741822) -> -1073741822) ((182 . 5625) (* -1 1073741823) -> -1073741823) ((183 . 5625) (* -1 1073741824) -> -1073741824) ((184 . 5625) (* -1 1073741825) -> -1073741825) ((185 . 5625) (* -1 1073741826) -> -1073741826) ((186 . 5625) (* 0 1073741822) -> 0) ((187 . 5625) (* 0 1073741823) -> 0) ((188 . 5625) (* 0 1073741824) -> 0) ((189 . 5625) (* 0 1073741825) -> 0) ((190 . 5625) (* 0 1073741826) -> 0) ((191 . 5625) (* 1 1073741822) -> 1073741822) ((192 . 5625) (* 1 1073741823) -> 1073741823) ((193 . 5625) (* 1 1073741824) -> 1073741824) ((194 . 5625) (* 1 1073741825) -> 1073741825) ((195 . 5625) (* 1 1073741826) -> 1073741826) ((196 . 5625) (* 2 1073741822) -> 2147483644) ((197 . 5625) (* 2 1073741823) -> 2147483646) ((198 . 5625) (* 2 1073741824) -> 2147483648) ((199 . 5625) (* 2 1073741825) -> 2147483650) ((200 . 5625) (* 2 1073741826) -> 2147483652) ((201 . 5625) (* -2 -1073741827) -> 2147483654) ((202 . 5625) (* -2 -1073741826) -> 2147483652) ((203 . 5625) (* -2 -1073741825) -> 2147483650) ((204 . 5625) (* -2 -1073741824) -> 2147483648) ((205 . 5625) (* -2 -1073741823) -> 2147483646) ((206 . 5625) (* -1 -1073741827) -> 1073741827) ((207 . 5625) (* -1 -1073741826) -> 1073741826) ((208 . 5625) (* -1 -1073741825) -> 1073741825) ((209 . 5625) (* -1 -1073741824) -> 1073741824) ((210 . 5625) (* -1 -1073741823) -> 1073741823) ((211 . 5625) (* 0 -1073741827) -> 0) ((212 . 5625) (* 0 -1073741826) -> 0) ((213 . 5625) (* 0 -1073741825) -> 0) ((214 . 5625) (* 0 -1073741824) -> 0) ((215 . 5625) (* 0 -1073741823) -> 0) ((216 . 5625) (* 1 -1073741827) -> -1073741827) ((217 . 5625) (* 1 -1073741826) -> -1073741826) ((218 . 5625) (* 1 -1073741825) -> -1073741825) ((219 . 5625) (* 1 -1073741824) -> -1073741824) ((220 . 5625) (* 1 -1073741823) -> -1073741823) ((221 . 5625) (* 2 -1073741827) -> -2147483654) ((222 . 5625) (* 2 -1073741826) -> -2147483652) ((223 . 5625) (* 2 -1073741825) -> -2147483650) ((224 . 5625) (* 2 -1073741824) -> -2147483648) ((225 . 5625) (* 2 -1073741823) -> -2147483646) ((226 . 5625) (* -2 1103515243) -> -2207030486) ((227 . 5625) (* -2 1103515244) -> -2207030488) ((228 . 5625) (* -2 1103515245) -> -2207030490) ((229 . 5625) (* -2 1103515246) -> -2207030492) ((230 . 5625) (* -2 1103515247) -> -2207030494) ((231 . 5625) (* -1 1103515243) -> -1103515243) ((232 . 5625) (* -1 1103515244) -> -1103515244) ((233 . 5625) (* -1 1103515245) -> -1103515245) ((234 . 5625) (* -1 1103515246) -> -1103515246) ((235 . 5625) (* -1 1103515247) -> -1103515247) ((236 . 5625) (* 0 1103515243) -> 0) ((237 . 5625) (* 0 1103515244) -> 0) ((238 . 5625) (* 0 1103515245) -> 0) ((239 . 5625) (* 0 1103515246) -> 0) ((240 . 5625) (* 0 1103515247) -> 0) ((241 . 5625) (* 1 1103515243) -> 1103515243) ((242 . 5625) (* 1 1103515244) -> 1103515244) ((243 . 5625) (* 1 1103515245) -> 1103515245) ((244 . 5625) (* 1 1103515246) -> 1103515246) ((245 . 5625) (* 1 1103515247) -> 1103515247) ((246 . 5625) (* 2 1103515243) -> 2207030486) ((247 . 5625) (* 2 1103515244) -> 2207030488) ((248 . 5625) (* 2 1103515245) -> 2207030490) ((249 . 5625) (* 2 1103515246) -> 2207030492) ((250 . 5625) (* 2 1103515247) -> 2207030494) ((251 . 5625) (* -2 631629063) -> -1263258126) ((252 . 5625) (* -2 631629064) -> -1263258128) ((253 . 5625) (* -2 631629065) -> -1263258130) ((254 . 5625) (* -2 631629066) -> -1263258132) ((255 . 5625) (* -2 631629067) -> -1263258134) ((256 . 5625) (* -1 631629063) -> -631629063) ((257 . 5625) (* -1 631629064) -> -631629064) ((258 . 5625) (* -1 631629065) -> -631629065) ((259 . 5625) (* -1 631629066) -> -631629066) ((260 . 5625) (* -1 631629067) -> -631629067) ((261 . 5625) (* 0 631629063) -> 0) ((262 . 5625) (* 0 631629064) -> 0) ((263 . 5625) (* 0 631629065) -> 0) ((264 . 5625) (* 0 631629066) -> 0) ((265 . 5625) (* 0 631629067) -> 0) ((266 . 5625) (* 1 631629063) -> 631629063) ((267 . 5625) (* 1 631629064) -> 631629064) ((268 . 5625) (* 1 631629065) -> 631629065) ((269 . 5625) (* 1 631629066) -> 631629066) ((270 . 5625) (* 1 631629067) -> 631629067) ((271 . 5625) (* 2 631629063) -> 1263258126) ((272 . 5625) (* 2 631629064) -> 1263258128) ((273 . 5625) (* 2 631629065) -> 1263258130) ((274 . 5625) (* 2 631629066) -> 1263258132) ((275 . 5625) (* 2 631629067) -> 1263258134) ((276 . 5625) (* -2 9007199254740990) -> -18014398509481980) ((277 . 5625) (* -2 9007199254740991) -> -18014398509481982) ((278 . 5625) (* -2 9007199254740992) -> -18014398509481984) ((279 . 5625) (* -2 9007199254740993) -> -18014398509481986) ((280 . 5625) (* -2 9007199254740994) -> -18014398509481988) ((281 . 5625) (* -1 9007199254740990) -> -9007199254740990) ((282 . 5625) (* -1 9007199254740991) -> -9007199254740991) ((283 . 5625) (* -1 9007199254740992) -> -9007199254740992) ((284 . 5625) (* -1 9007199254740993) -> -9007199254740993) ((285 . 5625) (* -1 9007199254740994) -> -9007199254740994) ((286 . 5625) (* 0 9007199254740990) -> 0) ((287 . 5625) (* 0 9007199254740991) -> 0) ((288 . 5625) (* 0 9007199254740992) -> 0) ((289 . 5625) (* 0 9007199254740993) -> 0) ((290 . 5625) (* 0 9007199254740994) -> 0) ((291 . 5625) (* 1 9007199254740990) -> 9007199254740990) ((292 . 5625) (* 1 9007199254740991) -> 9007199254740991) ((293 . 5625) (* 1 9007199254740992) -> 9007199254740992) ((294 . 5625) (* 1 9007199254740993) -> 9007199254740993) ((295 . 5625) (* 1 9007199254740994) -> 9007199254740994) ((296 . 5625) (* 2 9007199254740990) -> 18014398509481980) ((297 . 5625) (* 2 9007199254740991) -> 18014398509481982) ((298 . 5625) (* 2 9007199254740992) -> 18014398509481984) ((299 . 5625) (* 2 9007199254740993) -> 18014398509481986) ((300 . 5625) (* 2 9007199254740994) -> 18014398509481988) ((301 . 5625) (* -2 -9007199254740994) -> 18014398509481988) ((302 . 5625) (* -2 -9007199254740993) -> 18014398509481986) ((303 . 5625) (* -2 -9007199254740992) -> 18014398509481984) ((304 . 5625) (* -2 -9007199254740991) -> 18014398509481982) ((305 . 5625) (* -2 -9007199254740990) -> 18014398509481980) ((306 . 5625) (* -1 -9007199254740994) -> 9007199254740994) ((307 . 5625) (* -1 -9007199254740993) -> 9007199254740993) ((308 . 5625) (* -1 -9007199254740992) -> 9007199254740992) ((309 . 5625) (* -1 -9007199254740991) -> 9007199254740991) ((310 . 5625) (* -1 -9007199254740990) -> 9007199254740990) ((311 . 5625) (* 0 -9007199254740994) -> 0) ((312 . 5625) (* 0 -9007199254740993) -> 0) ((313 . 5625) (* 0 -9007199254740992) -> 0) ((314 . 5625) (* 0 -9007199254740991) -> 0) ((315 . 5625) (* 0 -9007199254740990) -> 0) ((316 . 5625) (* 1 -9007199254740994) -> -9007199254740994) ((317 . 5625) (* 1 -9007199254740993) -> -9007199254740993) ((318 . 5625) (* 1 -9007199254740992) -> -9007199254740992) ((319 . 5625) (* 1 -9007199254740991) -> -9007199254740991) ((320 . 5625) (* 1 -9007199254740990) -> -9007199254740990) ((321 . 5625) (* 2 -9007199254740994) -> -18014398509481988) ((322 . 5625) (* 2 -9007199254740993) -> -18014398509481986) ((323 . 5625) (* 2 -9007199254740992) -> -18014398509481984) ((324 . 5625) (* 2 -9007199254740991) -> -18014398509481982) ((325 . 5625) (* 2 -9007199254740990) -> -18014398509481980) ((326 . 5625) (* -2 12343) -> -24686) ((327 . 5625) (* -2 12344) -> -24688) ((328 . 5625) (* -2 12345) -> -24690) ((329 . 5625) (* -2 12346) -> -24692) ((330 . 5625) (* -2 12347) -> -24694) ((331 . 5625) (* -1 12343) -> -12343) ((332 . 5625) (* -1 12344) -> -12344) ((333 . 5625) (* -1 12345) -> -12345) ((334 . 5625) (* -1 12346) -> -12346) ((335 . 5625) (* -1 12347) -> -12347) ((336 . 5625) (* 0 12343) -> 0) ((337 . 5625) (* 0 12344) -> 0) ((338 . 5625) (* 0 12345) -> 0) ((339 . 5625) (* 0 12346) -> 0) ((340 . 5625) (* 0 12347) -> 0) ((341 . 5625) (* 1 12343) -> 12343) ((342 . 5625) (* 1 12344) -> 12344) ((343 . 5625) (* 1 12345) -> 12345) ((344 . 5625) (* 1 12346) -> 12346) ((345 . 5625) (* 1 12347) -> 12347) ((346 . 5625) (* 2 12343) -> 24686) ((347 . 5625) (* 2 12344) -> 24688) ((348 . 5625) (* 2 12345) -> 24690) ((349 . 5625) (* 2 12346) -> 24692) ((350 . 5625) (* 2 12347) -> 24694) ((351 . 5625) (* -2 4294967294) -> -8589934588) ((352 . 5625) (* -2 4294967295) -> -8589934590) ((353 . 5625) (* -2 4294967296) -> -8589934592) ((354 . 5625) (* -2 4294967297) -> -8589934594) ((355 . 5625) (* -2 4294967298) -> -8589934596) ((356 . 5625) (* -1 4294967294) -> -4294967294) ((357 . 5625) (* -1 4294967295) -> -4294967295) ((358 . 5625) (* -1 4294967296) -> -4294967296) ((359 . 5625) (* -1 4294967297) -> -4294967297) ((360 . 5625) (* -1 4294967298) -> -4294967298) ((361 . 5625) (* 0 4294967294) -> 0) ((362 . 5625) (* 0 4294967295) -> 0) ((363 . 5625) (* 0 4294967296) -> 0) ((364 . 5625) (* 0 4294967297) -> 0) ((365 . 5625) (* 0 4294967298) -> 0) ((366 . 5625) (* 1 4294967294) -> 4294967294) ((367 . 5625) (* 1 4294967295) -> 4294967295) ((368 . 5625) (* 1 4294967296) -> 4294967296) ((369 . 5625) (* 1 4294967297) -> 4294967297) ((370 . 5625) (* 1 4294967298) -> 4294967298) ((371 . 5625) (* 2 4294967294) -> 8589934588) ((372 . 5625) (* 2 4294967295) -> 8589934590) ((373 . 5625) (* 2 4294967296) -> 8589934592) ((374 . 5625) (* 2 4294967297) -> 8589934594) ((375 . 5625) (* 2 4294967298) -> 8589934596) ((376 . 5625) (* -1 -2) -> 2) ((377 . 5625) (* -1 -1) -> 1) ((378 . 5625) (* -1 0) -> 0) ((379 . 5625) (* -1 1) -> -1) ((380 . 5625) (* -1 2) -> -2) ((381 . 5625) (* 0 -2) -> 0) ((382 . 5625) (* 0 -1) -> 0) ((383 . 5625) (* 0 0) -> 0) ((384 . 5625) (* 0 1) -> 0) ((385 . 5625) (* 0 2) -> 0) ((386 . 5625) (* 1 -2) -> -2) ((387 . 5625) (* 1 -1) -> -1) ((388 . 5625) (* 1 0) -> 0) ((389 . 5625) (* 1 1) -> 1) ((390 . 5625) (* 1 2) -> 2) ((391 . 5625) (* 2 -2) -> -4) ((392 . 5625) (* 2 -1) -> -2) ((393 . 5625) (* 2 0) -> 0) ((394 . 5625) (* 2 1) -> 2) ((395 . 5625) (* 2 2) -> 4) ((396 . 5625) (* 3 -2) -> -6) ((397 . 5625) (* 3 -1) -> -3) ((398 . 5625) (* 3 0) -> 0) ((399 . 5625) (* 3 1) -> 3) ((400 . 5625) (* 3 2) -> 6) ((401 . 5625) (* -1 -1) -> 1) ((402 . 5625) (* -1 0) -> 0) ((403 . 5625) (* -1 1) -> -1) ((404 . 5625) (* -1 2) -> -2) ((405 . 5625) (* -1 3) -> -3) ((406 . 5625) (* 0 -1) -> 0) ((407 . 5625) (* 0 0) -> 0) ((408 . 5625) (* 0 1) -> 0) ((409 . 5625) (* 0 2) -> 0) ((410 . 5625) (* 0 3) -> 0) ((411 . 5625) (* 1 -1) -> -1) ((412 . 5625) (* 1 0) -> 0) ((413 . 5625) (* 1 1) -> 1) ((414 . 5625) (* 1 2) -> 2) ((415 . 5625) (* 1 3) -> 3) ((416 . 5625) (* 2 -1) -> -2) ((417 . 5625) (* 2 0) -> 0) ((418 . 5625) (* 2 1) -> 2) ((419 . 5625) (* 2 2) -> 4) ((420 . 5625) (* 2 3) -> 6) ((421 . 5625) (* 3 -1) -> -3) ((422 . 5625) (* 3 0) -> 0) ((423 . 5625) (* 3 1) -> 3) ((424 . 5625) (* 3 2) -> 6) ((425 . 5625) (* 3 3) -> 9) ((426 . 5625) (* -1 -3) -> 3) ((427 . 5625) (* -1 -2) -> 2) ((428 . 5625) (* -1 -1) -> 1) ((429 . 5625) (* -1 0) -> 0) ((430 . 5625) (* -1 1) -> -1) ((431 . 5625) (* 0 -3) -> 0) ((432 . 5625) (* 0 -2) -> 0) ((433 . 5625) (* 0 -1) -> 0) ((434 . 5625) (* 0 0) -> 0) ((435 . 5625) (* 0 1) -> 0) ((436 . 5625) (* 1 -3) -> -3) ((437 . 5625) (* 1 -2) -> -2) ((438 . 5625) (* 1 -1) -> -1) ((439 . 5625) (* 1 0) -> 0) ((440 . 5625) (* 1 1) -> 1) ((441 . 5625) (* 2 -3) -> -6) ((442 . 5625) (* 2 -2) -> -4) ((443 . 5625) (* 2 -1) -> -2) ((444 . 5625) (* 2 0) -> 0) ((445 . 5625) (* 2 1) -> 2) ((446 . 5625) (* 3 -3) -> -9) ((447 . 5625) (* 3 -2) -> -6) ((448 . 5625) (* 3 -1) -> -3) ((449 . 5625) (* 3 0) -> 0) ((450 . 5625) (* 3 1) -> 3) ((451 . 5625) (* -1 0) -> 0) ((452 . 5625) (* -1 1) -> -1) ((453 . 5625) (* -1 2) -> -2) ((454 . 5625) (* -1 3) -> -3) ((455 . 5625) (* -1 4) -> -4) ((456 . 5625) (* 0 0) -> 0) ((457 . 5625) (* 0 1) -> 0) ((458 . 5625) (* 0 2) -> 0) ((459 . 5625) (* 0 3) -> 0) ((460 . 5625) (* 0 4) -> 0) ((461 . 5625) (* 1 0) -> 0) ((462 . 5625) (* 1 1) -> 1) ((463 . 5625) (* 1 2) -> 2) ((464 . 5625) (* 1 3) -> 3) ((465 . 5625) (* 1 4) -> 4) ((466 . 5625) (* 2 0) -> 0) ((467 . 5625) (* 2 1) -> 2) ((468 . 5625) (* 2 2) -> 4) ((469 . 5625) (* 2 3) -> 6) ((470 . 5625) (* 2 4) -> 8) ((471 . 5625) (* 3 0) -> 0) ((472 . 5625) (* 3 1) -> 3) ((473 . 5625) (* 3 2) -> 6) ((474 . 5625) (* 3 3) -> 9) ((475 . 5625) (* 3 4) -> 12) ((476 . 5625) (* -1 -4) -> 4) ((477 . 5625) (* -1 -3) -> 3) ((478 . 5625) (* -1 -2) -> 2) ((479 . 5625) (* -1 -1) -> 1) ((480 . 5625) (* -1 0) -> 0) ((481 . 5625) (* 0 -4) -> 0) ((482 . 5625) (* 0 -3) -> 0) ((483 . 5625) (* 0 -2) -> 0) ((484 . 5625) (* 0 -1) -> 0) ((485 . 5625) (* 0 0) -> 0) ((486 . 5625) (* 1 -4) -> -4) ((487 . 5625) (* 1 -3) -> -3) ((488 . 5625) (* 1 -2) -> -2) ((489 . 5625) (* 1 -1) -> -1) ((490 . 5625) (* 1 0) -> 0) ((491 . 5625) (* 2 -4) -> -8) ((492 . 5625) (* 2 -3) -> -6) ((493 . 5625) (* 2 -2) -> -4) ((494 . 5625) (* 2 -1) -> -2) ((495 . 5625) (* 2 0) -> 0) ((496 . 5625) (* 3 -4) -> -12) ((497 . 5625) (* 3 -3) -> -9) ((498 . 5625) (* 3 -2) -> -6) ((499 . 5625) (* 3 -1) -> -3) ((500 . 5625) (* 3 0) -> 0) ((501 . 5625) (* -1 1073741821) -> -1073741821) ((502 . 5625) (* -1 1073741822) -> -1073741822) ((503 . 5625) (* -1 1073741823) -> -1073741823) ((504 . 5625) (* -1 1073741824) -> -1073741824) ((505 . 5625) (* -1 1073741825) -> -1073741825) ((506 . 5625) (* 0 1073741821) -> 0) ((507 . 5625) (* 0 1073741822) -> 0) ((508 . 5625) (* 0 1073741823) -> 0) ((509 . 5625) (* 0 1073741824) -> 0) ((510 . 5625) (* 0 1073741825) -> 0) ((511 . 5625) (* 1 1073741821) -> 1073741821) ((512 . 5625) (* 1 1073741822) -> 1073741822) ((513 . 5625) (* 1 1073741823) -> 1073741823) ((514 . 5625) (* 1 1073741824) -> 1073741824) ((515 . 5625) (* 1 1073741825) -> 1073741825) ((516 . 5625) (* 2 1073741821) -> 2147483642) ((517 . 5625) (* 2 1073741822) -> 2147483644) ((518 . 5625) (* 2 1073741823) -> 2147483646) ((519 . 5625) (* 2 1073741824) -> 2147483648) ((520 . 5625) (* 2 1073741825) -> 2147483650) ((521 . 5625) (* 3 1073741821) -> 3221225463) ((522 . 5625) (* 3 1073741822) -> 3221225466) ((523 . 5625) (* 3 1073741823) -> 3221225469) ((524 . 5625) (* 3 1073741824) -> 3221225472) ((525 . 5625) (* 3 1073741825) -> 3221225475) ((526 . 5625) (* -1 -1073741826) -> 1073741826) ((527 . 5625) (* -1 -1073741825) -> 1073741825) ((528 . 5625) (* -1 -1073741824) -> 1073741824) ((529 . 5625) (* -1 -1073741823) -> 1073741823) ((530 . 5625) (* -1 -1073741822) -> 1073741822) ((531 . 5625) (* 0 -1073741826) -> 0) ((532 . 5625) (* 0 -1073741825) -> 0) ((533 . 5625) (* 0 -1073741824) -> 0) ((534 . 5625) (* 0 -1073741823) -> 0) ((535 . 5625) (* 0 -1073741822) -> 0) ((536 . 5625) (* 1 -1073741826) -> -1073741826) ((537 . 5625) (* 1 -1073741825) -> -1073741825) ((538 . 5625) (* 1 -1073741824) -> -1073741824) ((539 . 5625) (* 1 -1073741823) -> -1073741823) ((540 . 5625) (* 1 -1073741822) -> -1073741822) ((541 . 5625) (* 2 -1073741826) -> -2147483652) ((542 . 5625) (* 2 -1073741825) -> -2147483650) ((543 . 5625) (* 2 -1073741824) -> -2147483648) ((544 . 5625) (* 2 -1073741823) -> -2147483646) ((545 . 5625) (* 2 -1073741822) -> -2147483644) ((546 . 5625) (* 3 -1073741826) -> -3221225478) ((547 . 5625) (* 3 -1073741825) -> -3221225475) ((548 . 5625) (* 3 -1073741824) -> -3221225472) ((549 . 5625) (* 3 -1073741823) -> -3221225469) ((550 . 5625) (* 3 -1073741822) -> -3221225466) ((551 . 5625) (* -1 1073741822) -> -1073741822) ((552 . 5625) (* -1 1073741823) -> -1073741823) ((553 . 5625) (* -1 1073741824) -> -1073741824) ((554 . 5625) (* -1 1073741825) -> -1073741825) ((555 . 5625) (* -1 1073741826) -> -1073741826) ((556 . 5625) (* 0 1073741822) -> 0) ((557 . 5625) (* 0 1073741823) -> 0) ((558 . 5625) (* 0 1073741824) -> 0) ((559 . 5625) (* 0 1073741825) -> 0) ((560 . 5625) (* 0 1073741826) -> 0) ((561 . 5625) (* 1 1073741822) -> 1073741822) ((562 . 5625) (* 1 1073741823) -> 1073741823) ((563 . 5625) (* 1 1073741824) -> 1073741824) ((564 . 5625) (* 1 1073741825) -> 1073741825) ((565 . 5625) (* 1 1073741826) -> 1073741826) ((566 . 5625) (* 2 1073741822) -> 2147483644) ((567 . 5625) (* 2 1073741823) -> 2147483646) ((568 . 5625) (* 2 1073741824) -> 2147483648) ((569 . 5625) (* 2 1073741825) -> 2147483650) ((570 . 5625) (* 2 1073741826) -> 2147483652) ((571 . 5625) (* 3 1073741822) -> 3221225466) ((572 . 5625) (* 3 1073741823) -> 3221225469) ((573 . 5625) (* 3 1073741824) -> 3221225472) ((574 . 5625) (* 3 1073741825) -> 3221225475) ((575 . 5625) (* 3 1073741826) -> 3221225478) ((576 . 5625) (* -1 -1073741827) -> 1073741827) ((577 . 5625) (* -1 -1073741826) -> 1073741826) ((578 . 5625) (* -1 -1073741825) -> 1073741825) ((579 . 5625) (* -1 -1073741824) -> 1073741824) ((580 . 5625) (* -1 -1073741823) -> 1073741823) ((581 . 5625) (* 0 -1073741827) -> 0) ((582 . 5625) (* 0 -1073741826) -> 0) ((583 . 5625) (* 0 -1073741825) -> 0) ((584 . 5625) (* 0 -1073741824) -> 0) ((585 . 5625) (* 0 -1073741823) -> 0) ((586 . 5625) (* 1 -1073741827) -> -1073741827) ((587 . 5625) (* 1 -1073741826) -> -1073741826) ((588 . 5625) (* 1 -1073741825) -> -1073741825) ((589 . 5625) (* 1 -1073741824) -> -1073741824) ((590 . 5625) (* 1 -1073741823) -> -1073741823) ((591 . 5625) (* 2 -1073741827) -> -2147483654) ((592 . 5625) (* 2 -1073741826) -> -2147483652) ((593 . 5625) (* 2 -1073741825) -> -2147483650) ((594 . 5625) (* 2 -1073741824) -> -2147483648) ((595 . 5625) (* 2 -1073741823) -> -2147483646) ((596 . 5625) (* 3 -1073741827) -> -3221225481) ((597 . 5625) (* 3 -1073741826) -> -3221225478) ((598 . 5625) (* 3 -1073741825) -> -3221225475) ((599 . 5625) (* 3 -1073741824) -> -3221225472) ((600 . 5625) (* 3 -1073741823) -> -3221225469) ((601 . 5625) (* -1 1103515243) -> -1103515243) ((602 . 5625) (* -1 1103515244) -> -1103515244) ((603 . 5625) (* -1 1103515245) -> -1103515245) ((604 . 5625) (* -1 1103515246) -> -1103515246) ((605 . 5625) (* -1 1103515247) -> -1103515247) ((606 . 5625) (* 0 1103515243) -> 0) ((607 . 5625) (* 0 1103515244) -> 0) ((608 . 5625) (* 0 1103515245) -> 0) ((609 . 5625) (* 0 1103515246) -> 0) ((610 . 5625) (* 0 1103515247) -> 0) ((611 . 5625) (* 1 1103515243) -> 1103515243) ((612 . 5625) (* 1 1103515244) -> 1103515244) ((613 . 5625) (* 1 1103515245) -> 1103515245) ((614 . 5625) (* 1 1103515246) -> 1103515246) ((615 . 5625) (* 1 1103515247) -> 1103515247) ((616 . 5625) (* 2 1103515243) -> 2207030486) ((617 . 5625) (* 2 1103515244) -> 2207030488) ((618 . 5625) (* 2 1103515245) -> 2207030490) ((619 . 5625) (* 2 1103515246) -> 2207030492) ((620 . 5625) (* 2 1103515247) -> 2207030494) ((621 . 5625) (* 3 1103515243) -> 3310545729) ((622 . 5625) (* 3 1103515244) -> 3310545732) ((623 . 5625) (* 3 1103515245) -> 3310545735) ((624 . 5625) (* 3 1103515246) -> 3310545738) ((625 . 5625) (* 3 1103515247) -> 3310545741) ((626 . 5625) (* -1 631629063) -> -631629063) ((627 . 5625) (* -1 631629064) -> -631629064) ((628 . 5625) (* -1 631629065) -> -631629065) ((629 . 5625) (* -1 631629066) -> -631629066) ((630 . 5625) (* -1 631629067) -> -631629067) ((631 . 5625) (* 0 631629063) -> 0) ((632 . 5625) (* 0 631629064) -> 0) ((633 . 5625) (* 0 631629065) -> 0) ((634 . 5625) (* 0 631629066) -> 0) ((635 . 5625) (* 0 631629067) -> 0) ((636 . 5625) (* 1 631629063) -> 631629063) ((637 . 5625) (* 1 631629064) -> 631629064) ((638 . 5625) (* 1 631629065) -> 631629065) ((639 . 5625) (* 1 631629066) -> 631629066) ((640 . 5625) (* 1 631629067) -> 631629067) ((641 . 5625) (* 2 631629063) -> 1263258126) ((642 . 5625) (* 2 631629064) -> 1263258128) ((643 . 5625) (* 2 631629065) -> 1263258130) ((644 . 5625) (* 2 631629066) -> 1263258132) ((645 . 5625) (* 2 631629067) -> 1263258134) ((646 . 5625) (* 3 631629063) -> 1894887189) ((647 . 5625) (* 3 631629064) -> 1894887192) ((648 . 5625) (* 3 631629065) -> 1894887195) ((649 . 5625) (* 3 631629066) -> 1894887198) ((650 . 5625) (* 3 631629067) -> 1894887201) ((651 . 5625) (* -1 9007199254740990) -> -9007199254740990) ((652 . 5625) (* -1 9007199254740991) -> -9007199254740991) ((653 . 5625) (* -1 9007199254740992) -> -9007199254740992) ((654 . 5625) (* -1 9007199254740993) -> -9007199254740993) ((655 . 5625) (* -1 9007199254740994) -> -9007199254740994) ((656 . 5625) (* 0 9007199254740990) -> 0) ((657 . 5625) (* 0 9007199254740991) -> 0) ((658 . 5625) (* 0 9007199254740992) -> 0) ((659 . 5625) (* 0 9007199254740993) -> 0) ((660 . 5625) (* 0 9007199254740994) -> 0) ((661 . 5625) (* 1 9007199254740990) -> 9007199254740990) ((662 . 5625) (* 1 9007199254740991) -> 9007199254740991) ((663 . 5625) (* 1 9007199254740992) -> 9007199254740992) ((664 . 5625) (* 1 9007199254740993) -> 9007199254740993) ((665 . 5625) (* 1 9007199254740994) -> 9007199254740994) ((666 . 5625) (* 2 9007199254740990) -> 18014398509481980) ((667 . 5625) (* 2 9007199254740991) -> 18014398509481982) ((668 . 5625) (* 2 9007199254740992) -> 18014398509481984) ((669 . 5625) (* 2 9007199254740993) -> 18014398509481986) ((670 . 5625) (* 2 9007199254740994) -> 18014398509481988) ((671 . 5625) (* 3 9007199254740990) -> 27021597764222970) ((672 . 5625) (* 3 9007199254740991) -> 27021597764222973) ((673 . 5625) (* 3 9007199254740992) -> 27021597764222976) ((674 . 5625) (* 3 9007199254740993) -> 27021597764222979) ((675 . 5625) (* 3 9007199254740994) -> 27021597764222982) ((676 . 5625) (* -1 -9007199254740994) -> 9007199254740994) ((677 . 5625) (* -1 -9007199254740993) -> 9007199254740993) ((678 . 5625) (* -1 -9007199254740992) -> 9007199254740992) ((679 . 5625) (* -1 -9007199254740991) -> 9007199254740991) ((680 . 5625) (* -1 -9007199254740990) -> 9007199254740990) ((681 . 5625) (* 0 -9007199254740994) -> 0) ((682 . 5625) (* 0 -9007199254740993) -> 0) ((683 . 5625) (* 0 -9007199254740992) -> 0) ((684 . 5625) (* 0 -9007199254740991) -> 0) ((685 . 5625) (* 0 -9007199254740990) -> 0) ((686 . 5625) (* 1 -9007199254740994) -> -9007199254740994) ((687 . 5625) (* 1 -9007199254740993) -> -9007199254740993) ((688 . 5625) (* 1 -9007199254740992) -> -9007199254740992) ((689 . 5625) (* 1 -9007199254740991) -> -9007199254740991) ((690 . 5625) (* 1 -9007199254740990) -> -9007199254740990) ((691 . 5625) (* 2 -9007199254740994) -> -18014398509481988) ((692 . 5625) (* 2 -9007199254740993) -> -18014398509481986) ((693 . 5625) (* 2 -9007199254740992) -> -18014398509481984) ((694 . 5625) (* 2 -9007199254740991) -> -18014398509481982) ((695 . 5625) (* 2 -9007199254740990) -> -18014398509481980) ((696 . 5625) (* 3 -9007199254740994) -> -27021597764222982) ((697 . 5625) (* 3 -9007199254740993) -> -27021597764222979) ((698 . 5625) (* 3 -9007199254740992) -> -27021597764222976) ((699 . 5625) (* 3 -9007199254740991) -> -27021597764222973) ((700 . 5625) (* 3 -9007199254740990) -> -27021597764222970) ((701 . 5625) (* -1 12343) -> -12343) ((702 . 5625) (* -1 12344) -> -12344) ((703 . 5625) (* -1 12345) -> -12345) ((704 . 5625) (* -1 12346) -> -12346) ((705 . 5625) (* -1 12347) -> -12347) ((706 . 5625) (* 0 12343) -> 0) ((707 . 5625) (* 0 12344) -> 0) ((708 . 5625) (* 0 12345) -> 0) ((709 . 5625) (* 0 12346) -> 0) ((710 . 5625) (* 0 12347) -> 0) ((711 . 5625) (* 1 12343) -> 12343) ((712 . 5625) (* 1 12344) -> 12344) ((713 . 5625) (* 1 12345) -> 12345) ((714 . 5625) (* 1 12346) -> 12346) ((715 . 5625) (* 1 12347) -> 12347) ((716 . 5625) (* 2 12343) -> 24686) ((717 . 5625) (* 2 12344) -> 24688) ((718 . 5625) (* 2 12345) -> 24690) ((719 . 5625) (* 2 12346) -> 24692) ((720 . 5625) (* 2 12347) -> 24694) ((721 . 5625) (* 3 12343) -> 37029) ((722 . 5625) (* 3 12344) -> 37032) ((723 . 5625) (* 3 12345) -> 37035) ((724 . 5625) (* 3 12346) -> 37038) ((725 . 5625) (* 3 12347) -> 37041) ((726 . 5625) (* -1 4294967294) -> -4294967294) ((727 . 5625) (* -1 4294967295) -> -4294967295) ((728 . 5625) (* -1 4294967296) -> -4294967296) ((729 . 5625) (* -1 4294967297) -> -4294967297) ((730 . 5625) (* -1 4294967298) -> -4294967298) ((731 . 5625) (* 0 4294967294) -> 0) ((732 . 5625) (* 0 4294967295) -> 0) ((733 . 5625) (* 0 4294967296) -> 0) ((734 . 5625) (* 0 4294967297) -> 0) ((735 . 5625) (* 0 4294967298) -> 0) ((736 . 5625) (* 1 4294967294) -> 4294967294) ((737 . 5625) (* 1 4294967295) -> 4294967295) ((738 . 5625) (* 1 4294967296) -> 4294967296) ((739 . 5625) (* 1 4294967297) -> 4294967297) ((740 . 5625) (* 1 4294967298) -> 4294967298) ((741 . 5625) (* 2 4294967294) -> 8589934588) ((742 . 5625) (* 2 4294967295) -> 8589934590) ((743 . 5625) (* 2 4294967296) -> 8589934592) ((744 . 5625) (* 2 4294967297) -> 8589934594) ((745 . 5625) (* 2 4294967298) -> 8589934596) ((746 . 5625) (* 3 4294967294) -> 12884901882) ((747 . 5625) (* 3 4294967295) -> 12884901885) ((748 . 5625) (* 3 4294967296) -> 12884901888) ((749 . 5625) (* 3 4294967297) -> 12884901891) ((750 . 5625) (* 3 4294967298) -> 12884901894) ((751 . 5625) (* -3 -2) -> 6) ((752 . 5625) (* -3 -1) -> 3) ((753 . 5625) (* -3 0) -> 0) ((754 . 5625) (* -3 1) -> -3) ((755 . 5625) (* -3 2) -> -6) ((756 . 5625) (* -2 -2) -> 4) ((757 . 5625) (* -2 -1) -> 2) ((758 . 5625) (* -2 0) -> 0) ((759 . 5625) (* -2 1) -> -2) ((760 . 5625) (* -2 2) -> -4) ((761 . 5625) (* -1 -2) -> 2) ((762 . 5625) (* -1 -1) -> 1) ((763 . 5625) (* -1 0) -> 0) ((764 . 5625) (* -1 1) -> -1) ((765 . 5625) (* -1 2) -> -2) ((766 . 5625) (* 0 -2) -> 0) ((767 . 5625) (* 0 -1) -> 0) ((768 . 5625) (* 0 0) -> 0) ((769 . 5625) (* 0 1) -> 0) ((770 . 5625) (* 0 2) -> 0) ((771 . 5625) (* 1 -2) -> -2) ((772 . 5625) (* 1 -1) -> -1) ((773 . 5625) (* 1 0) -> 0) ((774 . 5625) (* 1 1) -> 1) ((775 . 5625) (* 1 2) -> 2) ((776 . 5625) (* -3 -1) -> 3) ((777 . 5625) (* -3 0) -> 0) ((778 . 5625) (* -3 1) -> -3) ((779 . 5625) (* -3 2) -> -6) ((780 . 5625) (* -3 3) -> -9) ((781 . 5625) (* -2 -1) -> 2) ((782 . 5625) (* -2 0) -> 0) ((783 . 5625) (* -2 1) -> -2) ((784 . 5625) (* -2 2) -> -4) ((785 . 5625) (* -2 3) -> -6) ((786 . 5625) (* -1 -1) -> 1) ((787 . 5625) (* -1 0) -> 0) ((788 . 5625) (* -1 1) -> -1) ((789 . 5625) (* -1 2) -> -2) ((790 . 5625) (* -1 3) -> -3) ((791 . 5625) (* 0 -1) -> 0) ((792 . 5625) (* 0 0) -> 0) ((793 . 5625) (* 0 1) -> 0) ((794 . 5625) (* 0 2) -> 0) ((795 . 5625) (* 0 3) -> 0) ((796 . 5625) (* 1 -1) -> -1) ((797 . 5625) (* 1 0) -> 0) ((798 . 5625) (* 1 1) -> 1) ((799 . 5625) (* 1 2) -> 2) ((800 . 5625) (* 1 3) -> 3) ((801 . 5625) (* -3 -3) -> 9) ((802 . 5625) (* -3 -2) -> 6) ((803 . 5625) (* -3 -1) -> 3) ((804 . 5625) (* -3 0) -> 0) ((805 . 5625) (* -3 1) -> -3) ((806 . 5625) (* -2 -3) -> 6) ((807 . 5625) (* -2 -2) -> 4) ((808 . 5625) (* -2 -1) -> 2) ((809 . 5625) (* -2 0) -> 0) ((810 . 5625) (* -2 1) -> -2) ((811 . 5625) (* -1 -3) -> 3) ((812 . 5625) (* -1 -2) -> 2) ((813 . 5625) (* -1 -1) -> 1) ((814 . 5625) (* -1 0) -> 0) ((815 . 5625) (* -1 1) -> -1) ((816 . 5625) (* 0 -3) -> 0) ((817 . 5625) (* 0 -2) -> 0) ((818 . 5625) (* 0 -1) -> 0) ((819 . 5625) (* 0 0) -> 0) ((820 . 5625) (* 0 1) -> 0) ((821 . 5625) (* 1 -3) -> -3) ((822 . 5625) (* 1 -2) -> -2) ((823 . 5625) (* 1 -1) -> -1) ((824 . 5625) (* 1 0) -> 0) ((825 . 5625) (* 1 1) -> 1) ((826 . 5625) (* -3 0) -> 0) ((827 . 5625) (* -3 1) -> -3) ((828 . 5625) (* -3 2) -> -6) ((829 . 5625) (* -3 3) -> -9) ((830 . 5625) (* -3 4) -> -12) ((831 . 5625) (* -2 0) -> 0) ((832 . 5625) (* -2 1) -> -2) ((833 . 5625) (* -2 2) -> -4) ((834 . 5625) (* -2 3) -> -6) ((835 . 5625) (* -2 4) -> -8) ((836 . 5625) (* -1 0) -> 0) ((837 . 5625) (* -1 1) -> -1) ((838 . 5625) (* -1 2) -> -2) ((839 . 5625) (* -1 3) -> -3) ((840 . 5625) (* -1 4) -> -4) ((841 . 5625) (* 0 0) -> 0) ((842 . 5625) (* 0 1) -> 0) ((843 . 5625) (* 0 2) -> 0) ((844 . 5625) (* 0 3) -> 0) ((845 . 5625) (* 0 4) -> 0) ((846 . 5625) (* 1 0) -> 0) ((847 . 5625) (* 1 1) -> 1) ((848 . 5625) (* 1 2) -> 2) ((849 . 5625) (* 1 3) -> 3) ((850 . 5625) (* 1 4) -> 4) ((851 . 5625) (* -3 -4) -> 12) ((852 . 5625) (* -3 -3) -> 9) ((853 . 5625) (* -3 -2) -> 6) ((854 . 5625) (* -3 -1) -> 3) ((855 . 5625) (* -3 0) -> 0) ((856 . 5625) (* -2 -4) -> 8) ((857 . 5625) (* -2 -3) -> 6) ((858 . 5625) (* -2 -2) -> 4) ((859 . 5625) (* -2 -1) -> 2) ((860 . 5625) (* -2 0) -> 0) ((861 . 5625) (* -1 -4) -> 4) ((862 . 5625) (* -1 -3) -> 3) ((863 . 5625) (* -1 -2) -> 2) ((864 . 5625) (* -1 -1) -> 1) ((865 . 5625) (* -1 0) -> 0) ((866 . 5625) (* 0 -4) -> 0) ((867 . 5625) (* 0 -3) -> 0) ((868 . 5625) (* 0 -2) -> 0) ((869 . 5625) (* 0 -1) -> 0) ((870 . 5625) (* 0 0) -> 0) ((871 . 5625) (* 1 -4) -> -4) ((872 . 5625) (* 1 -3) -> -3) ((873 . 5625) (* 1 -2) -> -2) ((874 . 5625) (* 1 -1) -> -1) ((875 . 5625) (* 1 0) -> 0) ((876 . 5625) (* -3 1073741821) -> -3221225463) ((877 . 5625) (* -3 1073741822) -> -3221225466) ((878 . 5625) (* -3 1073741823) -> -3221225469) ((879 . 5625) (* -3 1073741824) -> -3221225472) ((880 . 5625) (* -3 1073741825) -> -3221225475) ((881 . 5625) (* -2 1073741821) -> -2147483642) ((882 . 5625) (* -2 1073741822) -> -2147483644) ((883 . 5625) (* -2 1073741823) -> -2147483646) ((884 . 5625) (* -2 1073741824) -> -2147483648) ((885 . 5625) (* -2 1073741825) -> -2147483650) ((886 . 5625) (* -1 1073741821) -> -1073741821) ((887 . 5625) (* -1 1073741822) -> -1073741822) ((888 . 5625) (* -1 1073741823) -> -1073741823) ((889 . 5625) (* -1 1073741824) -> -1073741824) ((890 . 5625) (* -1 1073741825) -> -1073741825) ((891 . 5625) (* 0 1073741821) -> 0) ((892 . 5625) (* 0 1073741822) -> 0) ((893 . 5625) (* 0 1073741823) -> 0) ((894 . 5625) (* 0 1073741824) -> 0) ((895 . 5625) (* 0 1073741825) -> 0) ((896 . 5625) (* 1 1073741821) -> 1073741821) ((897 . 5625) (* 1 1073741822) -> 1073741822) ((898 . 5625) (* 1 1073741823) -> 1073741823) ((899 . 5625) (* 1 1073741824) -> 1073741824) ((900 . 5625) (* 1 1073741825) -> 1073741825) ((901 . 5625) (* -3 -1073741826) -> 3221225478) ((902 . 5625) (* -3 -1073741825) -> 3221225475) ((903 . 5625) (* -3 -1073741824) -> 3221225472) ((904 . 5625) (* -3 -1073741823) -> 3221225469) ((905 . 5625) (* -3 -1073741822) -> 3221225466) ((906 . 5625) (* -2 -1073741826) -> 2147483652) ((907 . 5625) (* -2 -1073741825) -> 2147483650) ((908 . 5625) (* -2 -1073741824) -> 2147483648) ((909 . 5625) (* -2 -1073741823) -> 2147483646) ((910 . 5625) (* -2 -1073741822) -> 2147483644) ((911 . 5625) (* -1 -1073741826) -> 1073741826) ((912 . 5625) (* -1 -1073741825) -> 1073741825) ((913 . 5625) (* -1 -1073741824) -> 1073741824) ((914 . 5625) (* -1 -1073741823) -> 1073741823) ((915 . 5625) (* -1 -1073741822) -> 1073741822) ((916 . 5625) (* 0 -1073741826) -> 0) ((917 . 5625) (* 0 -1073741825) -> 0) ((918 . 5625) (* 0 -1073741824) -> 0) ((919 . 5625) (* 0 -1073741823) -> 0) ((920 . 5625) (* 0 -1073741822) -> 0) ((921 . 5625) (* 1 -1073741826) -> -1073741826) ((922 . 5625) (* 1 -1073741825) -> -1073741825) ((923 . 5625) (* 1 -1073741824) -> -1073741824) ((924 . 5625) (* 1 -1073741823) -> -1073741823) ((925 . 5625) (* 1 -1073741822) -> -1073741822) ((926 . 5625) (* -3 1073741822) -> -3221225466) ((927 . 5625) (* -3 1073741823) -> -3221225469) ((928 . 5625) (* -3 1073741824) -> -3221225472) ((929 . 5625) (* -3 1073741825) -> -3221225475) ((930 . 5625) (* -3 1073741826) -> -3221225478) ((931 . 5625) (* -2 1073741822) -> -2147483644) ((932 . 5625) (* -2 1073741823) -> -2147483646) ((933 . 5625) (* -2 1073741824) -> -2147483648) ((934 . 5625) (* -2 1073741825) -> -2147483650) ((935 . 5625) (* -2 1073741826) -> -2147483652) ((936 . 5625) (* -1 1073741822) -> -1073741822) ((937 . 5625) (* -1 1073741823) -> -1073741823) ((938 . 5625) (* -1 1073741824) -> -1073741824) ((939 . 5625) (* -1 1073741825) -> -1073741825) ((940 . 5625) (* -1 1073741826) -> -1073741826) ((941 . 5625) (* 0 1073741822) -> 0) ((942 . 5625) (* 0 1073741823) -> 0) ((943 . 5625) (* 0 1073741824) -> 0) ((944 . 5625) (* 0 1073741825) -> 0) ((945 . 5625) (* 0 1073741826) -> 0) ((946 . 5625) (* 1 1073741822) -> 1073741822) ((947 . 5625) (* 1 1073741823) -> 1073741823) ((948 . 5625) (* 1 1073741824) -> 1073741824) ((949 . 5625) (* 1 1073741825) -> 1073741825) ((950 . 5625) (* 1 1073741826) -> 1073741826) ((951 . 5625) (* -3 -1073741827) -> 3221225481) ((952 . 5625) (* -3 -1073741826) -> 3221225478) ((953 . 5625) (* -3 -1073741825) -> 3221225475) ((954 . 5625) (* -3 -1073741824) -> 3221225472) ((955 . 5625) (* -3 -1073741823) -> 3221225469) ((956 . 5625) (* -2 -1073741827) -> 2147483654) ((957 . 5625) (* -2 -1073741826) -> 2147483652) ((958 . 5625) (* -2 -1073741825) -> 2147483650) ((959 . 5625) (* -2 -1073741824) -> 2147483648) ((960 . 5625) (* -2 -1073741823) -> 2147483646) ((961 . 5625) (* -1 -1073741827) -> 1073741827) ((962 . 5625) (* -1 -1073741826) -> 1073741826) ((963 . 5625) (* -1 -1073741825) -> 1073741825) ((964 . 5625) (* -1 -1073741824) -> 1073741824) ((965 . 5625) (* -1 -1073741823) -> 1073741823) ((966 . 5625) (* 0 -1073741827) -> 0) ((967 . 5625) (* 0 -1073741826) -> 0) ((968 . 5625) (* 0 -1073741825) -> 0) ((969 . 5625) (* 0 -1073741824) -> 0) ((970 . 5625) (* 0 -1073741823) -> 0) ((971 . 5625) (* 1 -1073741827) -> -1073741827) ((972 . 5625) (* 1 -1073741826) -> -1073741826) ((973 . 5625) (* 1 -1073741825) -> -1073741825) ((974 . 5625) (* 1 -1073741824) -> -1073741824) ((975 . 5625) (* 1 -1073741823) -> -1073741823) ((976 . 5625) (* -3 1103515243) -> -3310545729) ((977 . 5625) (* -3 1103515244) -> -3310545732) ((978 . 5625) (* -3 1103515245) -> -3310545735) ((979 . 5625) (* -3 1103515246) -> -3310545738) ((980 . 5625) (* -3 1103515247) -> -3310545741) ((981 . 5625) (* -2 1103515243) -> -2207030486) ((982 . 5625) (* -2 1103515244) -> -2207030488) ((983 . 5625) (* -2 1103515245) -> -2207030490) ((984 . 5625) (* -2 1103515246) -> -2207030492) ((985 . 5625) (* -2 1103515247) -> -2207030494) ((986 . 5625) (* -1 1103515243) -> -1103515243) ((987 . 5625) (* -1 1103515244) -> -1103515244) ((988 . 5625) (* -1 1103515245) -> -1103515245) ((989 . 5625) (* -1 1103515246) -> -1103515246) ((990 . 5625) (* -1 1103515247) -> -1103515247) ((991 . 5625) (* 0 1103515243) -> 0) ((992 . 5625) (* 0 1103515244) -> 0) ((993 . 5625) (* 0 1103515245) -> 0) ((994 . 5625) (* 0 1103515246) -> 0) ((995 . 5625) (* 0 1103515247) -> 0) ((996 . 5625) (* 1 1103515243) -> 1103515243) ((997 . 5625) (* 1 1103515244) -> 1103515244) ((998 . 5625) (* 1 1103515245) -> 1103515245) ((999 . 5625) (* 1 1103515246) -> 1103515246) ((1000 . 5625) (* 1 1103515247) -> 1103515247) ((1001 . 5625) (* -3 631629063) -> -1894887189) ((1002 . 5625) (* -3 631629064) -> -1894887192) ((1003 . 5625) (* -3 631629065) -> -1894887195) ((1004 . 5625) (* -3 631629066) -> -1894887198) ((1005 . 5625) (* -3 631629067) -> -1894887201) ((1006 . 5625) (* -2 631629063) -> -1263258126) ((1007 . 5625) (* -2 631629064) -> -1263258128) ((1008 . 5625) (* -2 631629065) -> -1263258130) ((1009 . 5625) (* -2 631629066) -> -1263258132) ((1010 . 5625) (* -2 631629067) -> -1263258134) ((1011 . 5625) (* -1 631629063) -> -631629063) ((1012 . 5625) (* -1 631629064) -> -631629064) ((1013 . 5625) (* -1 631629065) -> -631629065) ((1014 . 5625) (* -1 631629066) -> -631629066) ((1015 . 5625) (* -1 631629067) -> -631629067) ((1016 . 5625) (* 0 631629063) -> 0) ((1017 . 5625) (* 0 631629064) -> 0) ((1018 . 5625) (* 0 631629065) -> 0) ((1019 . 5625) (* 0 631629066) -> 0) ((1020 . 5625) (* 0 631629067) -> 0) ((1021 . 5625) (* 1 631629063) -> 631629063) ((1022 . 5625) (* 1 631629064) -> 631629064) ((1023 . 5625) (* 1 631629065) -> 631629065) ((1024 . 5625) (* 1 631629066) -> 631629066) ((1025 . 5625) (* 1 631629067) -> 631629067) ((1026 . 5625) (* -3 9007199254740990) -> -27021597764222970) ((1027 . 5625) (* -3 9007199254740991) -> -27021597764222973) ((1028 . 5625) (* -3 9007199254740992) -> -27021597764222976) ((1029 . 5625) (* -3 9007199254740993) -> -27021597764222979) ((1030 . 5625) (* -3 9007199254740994) -> -27021597764222982) ((1031 . 5625) (* -2 9007199254740990) -> -18014398509481980) ((1032 . 5625) (* -2 9007199254740991) -> -18014398509481982) ((1033 . 5625) (* -2 9007199254740992) -> -18014398509481984) ((1034 . 5625) (* -2 9007199254740993) -> -18014398509481986) ((1035 . 5625) (* -2 9007199254740994) -> -18014398509481988) ((1036 . 5625) (* -1 9007199254740990) -> -9007199254740990) ((1037 . 5625) (* -1 9007199254740991) -> -9007199254740991) ((1038 . 5625) (* -1 9007199254740992) -> -9007199254740992) ((1039 . 5625) (* -1 9007199254740993) -> -9007199254740993) ((1040 . 5625) (* -1 9007199254740994) -> -9007199254740994) ((1041 . 5625) (* 0 9007199254740990) -> 0) ((1042 . 5625) (* 0 9007199254740991) -> 0) ((1043 . 5625) (* 0 9007199254740992) -> 0) ((1044 . 5625) (* 0 9007199254740993) -> 0) ((1045 . 5625) (* 0 9007199254740994) -> 0) ((1046 . 5625) (* 1 9007199254740990) -> 9007199254740990) ((1047 . 5625) (* 1 9007199254740991) -> 9007199254740991) ((1048 . 5625) (* 1 9007199254740992) -> 9007199254740992) ((1049 . 5625) (* 1 9007199254740993) -> 9007199254740993) ((1050 . 5625) (* 1 9007199254740994) -> 9007199254740994) ((1051 . 5625) (* -3 -9007199254740994) -> 27021597764222982) ((1052 . 5625) (* -3 -9007199254740993) -> 27021597764222979) ((1053 . 5625) (* -3 -9007199254740992) -> 27021597764222976) ((1054 . 5625) (* -3 -9007199254740991) -> 27021597764222973) ((1055 . 5625) (* -3 -9007199254740990) -> 27021597764222970) ((1056 . 5625) (* -2 -9007199254740994) -> 18014398509481988) ((1057 . 5625) (* -2 -9007199254740993) -> 18014398509481986) ((1058 . 5625) (* -2 -9007199254740992) -> 18014398509481984) ((1059 . 5625) (* -2 -9007199254740991) -> 18014398509481982) ((1060 . 5625) (* -2 -9007199254740990) -> 18014398509481980) ((1061 . 5625) (* -1 -9007199254740994) -> 9007199254740994) ((1062 . 5625) (* -1 -9007199254740993) -> 9007199254740993) ((1063 . 5625) (* -1 -9007199254740992) -> 9007199254740992) ((1064 . 5625) (* -1 -9007199254740991) -> 9007199254740991) ((1065 . 5625) (* -1 -9007199254740990) -> 9007199254740990) ((1066 . 5625) (* 0 -9007199254740994) -> 0) ((1067 . 5625) (* 0 -9007199254740993) -> 0) ((1068 . 5625) (* 0 -9007199254740992) -> 0) ((1069 . 5625) (* 0 -9007199254740991) -> 0) ((1070 . 5625) (* 0 -9007199254740990) -> 0) ((1071 . 5625) (* 1 -9007199254740994) -> -9007199254740994) ((1072 . 5625) (* 1 -9007199254740993) -> -9007199254740993) ((1073 . 5625) (* 1 -9007199254740992) -> -9007199254740992) ((1074 . 5625) (* 1 -9007199254740991) -> -9007199254740991) ((1075 . 5625) (* 1 -9007199254740990) -> -9007199254740990) ((1076 . 5625) (* -3 12343) -> -37029) ((1077 . 5625) (* -3 12344) -> -37032) ((1078 . 5625) (* -3 12345) -> -37035) ((1079 . 5625) (* -3 12346) -> -37038) ((1080 . 5625) (* -3 12347) -> -37041) ((1081 . 5625) (* -2 12343) -> -24686) ((1082 . 5625) (* -2 12344) -> -24688) ((1083 . 5625) (* -2 12345) -> -24690) ((1084 . 5625) (* -2 12346) -> -24692) ((1085 . 5625) (* -2 12347) -> -24694) ((1086 . 5625) (* -1 12343) -> -12343) ((1087 . 5625) (* -1 12344) -> -12344) ((1088 . 5625) (* -1 12345) -> -12345) ((1089 . 5625) (* -1 12346) -> -12346) ((1090 . 5625) (* -1 12347) -> -12347) ((1091 . 5625) (* 0 12343) -> 0) ((1092 . 5625) (* 0 12344) -> 0) ((1093 . 5625) (* 0 12345) -> 0) ((1094 . 5625) (* 0 12346) -> 0) ((1095 . 5625) (* 0 12347) -> 0) ((1096 . 5625) (* 1 12343) -> 12343) ((1097 . 5625) (* 1 12344) -> 12344) ((1098 . 5625) (* 1 12345) -> 12345) ((1099 . 5625) (* 1 12346) -> 12346) ((1100 . 5625) (* 1 12347) -> 12347) ((1101 . 5625) (* -3 4294967294) -> -12884901882) ((1102 . 5625) (* -3 4294967295) -> -12884901885) ((1103 . 5625) (* -3 4294967296) -> -12884901888) ((1104 . 5625) (* -3 4294967297) -> -12884901891) ((1105 . 5625) (* -3 4294967298) -> -12884901894) ((1106 . 5625) (* -2 4294967294) -> -8589934588) ((1107 . 5625) (* -2 4294967295) -> -8589934590) ((1108 . 5625) (* -2 4294967296) -> -8589934592) ((1109 . 5625) (* -2 4294967297) -> -8589934594) ((1110 . 5625) (* -2 4294967298) -> -8589934596) ((1111 . 5625) (* -1 4294967294) -> -4294967294) ((1112 . 5625) (* -1 4294967295) -> -4294967295) ((1113 . 5625) (* -1 4294967296) -> -4294967296) ((1114 . 5625) (* -1 4294967297) -> -4294967297) ((1115 . 5625) (* -1 4294967298) -> -4294967298) ((1116 . 5625) (* 0 4294967294) -> 0) ((1117 . 5625) (* 0 4294967295) -> 0) ((1118 . 5625) (* 0 4294967296) -> 0) ((1119 . 5625) (* 0 4294967297) -> 0) ((1120 . 5625) (* 0 4294967298) -> 0) ((1121 . 5625) (* 1 4294967294) -> 4294967294) ((1122 . 5625) (* 1 4294967295) -> 4294967295) ((1123 . 5625) (* 1 4294967296) -> 4294967296) ((1124 . 5625) (* 1 4294967297) -> 4294967297) ((1125 . 5625) (* 1 4294967298) -> 4294967298) ((1126 . 5625) (* 0 -2) -> 0) ((1127 . 5625) (* 0 -1) -> 0) ((1128 . 5625) (* 0 0) -> 0) ((1129 . 5625) (* 0 1) -> 0) ((1130 . 5625) (* 0 2) -> 0) ((1131 . 5625) (* 1 -2) -> -2) ((1132 . 5625) (* 1 -1) -> -1) ((1133 . 5625) (* 1 0) -> 0) ((1134 . 5625) (* 1 1) -> 1) ((1135 . 5625) (* 1 2) -> 2) ((1136 . 5625) (* 2 -2) -> -4) ((1137 . 5625) (* 2 -1) -> -2) ((1138 . 5625) (* 2 0) -> 0) ((1139 . 5625) (* 2 1) -> 2) ((1140 . 5625) (* 2 2) -> 4) ((1141 . 5625) (* 3 -2) -> -6) ((1142 . 5625) (* 3 -1) -> -3) ((1143 . 5625) (* 3 0) -> 0) ((1144 . 5625) (* 3 1) -> 3) ((1145 . 5625) (* 3 2) -> 6) ((1146 . 5625) (* 4 -2) -> -8) ((1147 . 5625) (* 4 -1) -> -4) ((1148 . 5625) (* 4 0) -> 0) ((1149 . 5625) (* 4 1) -> 4) ((1150 . 5625) (* 4 2) -> 8) ((1151 . 5625) (* 0 -1) -> 0) ((1152 . 5625) (* 0 0) -> 0) ((1153 . 5625) (* 0 1) -> 0) ((1154 . 5625) (* 0 2) -> 0) ((1155 . 5625) (* 0 3) -> 0) ((1156 . 5625) (* 1 -1) -> -1) ((1157 . 5625) (* 1 0) -> 0) ((1158 . 5625) (* 1 1) -> 1) ((1159 . 5625) (* 1 2) -> 2) ((1160 . 5625) (* 1 3) -> 3) ((1161 . 5625) (* 2 -1) -> -2) ((1162 . 5625) (* 2 0) -> 0) ((1163 . 5625) (* 2 1) -> 2) ((1164 . 5625) (* 2 2) -> 4) ((1165 . 5625) (* 2 3) -> 6) ((1166 . 5625) (* 3 -1) -> -3) ((1167 . 5625) (* 3 0) -> 0) ((1168 . 5625) (* 3 1) -> 3) ((1169 . 5625) (* 3 2) -> 6) ((1170 . 5625) (* 3 3) -> 9) ((1171 . 5625) (* 4 -1) -> -4) ((1172 . 5625) (* 4 0) -> 0) ((1173 . 5625) (* 4 1) -> 4) ((1174 . 5625) (* 4 2) -> 8) ((1175 . 5625) (* 4 3) -> 12) ((1176 . 5625) (* 0 -3) -> 0) ((1177 . 5625) (* 0 -2) -> 0) ((1178 . 5625) (* 0 -1) -> 0) ((1179 . 5625) (* 0 0) -> 0) ((1180 . 5625) (* 0 1) -> 0) ((1181 . 5625) (* 1 -3) -> -3) ((1182 . 5625) (* 1 -2) -> -2) ((1183 . 5625) (* 1 -1) -> -1) ((1184 . 5625) (* 1 0) -> 0) ((1185 . 5625) (* 1 1) -> 1) ((1186 . 5625) (* 2 -3) -> -6) ((1187 . 5625) (* 2 -2) -> -4) ((1188 . 5625) (* 2 -1) -> -2) ((1189 . 5625) (* 2 0) -> 0) ((1190 . 5625) (* 2 1) -> 2) ((1191 . 5625) (* 3 -3) -> -9) ((1192 . 5625) (* 3 -2) -> -6) ((1193 . 5625) (* 3 -1) -> -3) ((1194 . 5625) (* 3 0) -> 0) ((1195 . 5625) (* 3 1) -> 3) ((1196 . 5625) (* 4 -3) -> -12) ((1197 . 5625) (* 4 -2) -> -8) ((1198 . 5625) (* 4 -1) -> -4) ((1199 . 5625) (* 4 0) -> 0) ((1200 . 5625) (* 4 1) -> 4) ((1201 . 5625) (* 0 0) -> 0) ((1202 . 5625) (* 0 1) -> 0) ((1203 . 5625) (* 0 2) -> 0) ((1204 . 5625) (* 0 3) -> 0) ((1205 . 5625) (* 0 4) -> 0) ((1206 . 5625) (* 1 0) -> 0) ((1207 . 5625) (* 1 1) -> 1) ((1208 . 5625) (* 1 2) -> 2) ((1209 . 5625) (* 1 3) -> 3) ((1210 . 5625) (* 1 4) -> 4) ((1211 . 5625) (* 2 0) -> 0) ((1212 . 5625) (* 2 1) -> 2) ((1213 . 5625) (* 2 2) -> 4) ((1214 . 5625) (* 2 3) -> 6) ((1215 . 5625) (* 2 4) -> 8) ((1216 . 5625) (* 3 0) -> 0) ((1217 . 5625) (* 3 1) -> 3) ((1218 . 5625) (* 3 2) -> 6) ((1219 . 5625) (* 3 3) -> 9) ((1220 . 5625) (* 3 4) -> 12) ((1221 . 5625) (* 4 0) -> 0) ((1222 . 5625) (* 4 1) -> 4) ((1223 . 5625) (* 4 2) -> 8) ((1224 . 5625) (* 4 3) -> 12) ((1225 . 5625) (* 4 4) -> 16) ((1226 . 5625) (* 0 -4) -> 0) ((1227 . 5625) (* 0 -3) -> 0) ((1228 . 5625) (* 0 -2) -> 0) ((1229 . 5625) (* 0 -1) -> 0) ((1230 . 5625) (* 0 0) -> 0) ((1231 . 5625) (* 1 -4) -> -4) ((1232 . 5625) (* 1 -3) -> -3) ((1233 . 5625) (* 1 -2) -> -2) ((1234 . 5625) (* 1 -1) -> -1) ((1235 . 5625) (* 1 0) -> 0) ((1236 . 5625) (* 2 -4) -> -8) ((1237 . 5625) (* 2 -3) -> -6) ((1238 . 5625) (* 2 -2) -> -4) ((1239 . 5625) (* 2 -1) -> -2) ((1240 . 5625) (* 2 0) -> 0) ((1241 . 5625) (* 3 -4) -> -12) ((1242 . 5625) (* 3 -3) -> -9) ((1243 . 5625) (* 3 -2) -> -6) ((1244 . 5625) (* 3 -1) -> -3) ((1245 . 5625) (* 3 0) -> 0) ((1246 . 5625) (* 4 -4) -> -16) ((1247 . 5625) (* 4 -3) -> -12) ((1248 . 5625) (* 4 -2) -> -8) ((1249 . 5625) (* 4 -1) -> -4) ((1250 . 5625) (* 4 0) -> 0) ((1251 . 5625) (* 0 1073741821) -> 0) ((1252 . 5625) (* 0 1073741822) -> 0) ((1253 . 5625) (* 0 1073741823) -> 0) ((1254 . 5625) (* 0 1073741824) -> 0) ((1255 . 5625) (* 0 1073741825) -> 0) ((1256 . 5625) (* 1 1073741821) -> 1073741821) ((1257 . 5625) (* 1 1073741822) -> 1073741822) ((1258 . 5625) (* 1 1073741823) -> 1073741823) ((1259 . 5625) (* 1 1073741824) -> 1073741824) ((1260 . 5625) (* 1 1073741825) -> 1073741825) ((1261 . 5625) (* 2 1073741821) -> 2147483642) ((1262 . 5625) (* 2 1073741822) -> 2147483644) ((1263 . 5625) (* 2 1073741823) -> 2147483646) ((1264 . 5625) (* 2 1073741824) -> 2147483648) ((1265 . 5625) (* 2 1073741825) -> 2147483650) ((1266 . 5625) (* 3 1073741821) -> 3221225463) ((1267 . 5625) (* 3 1073741822) -> 3221225466) ((1268 . 5625) (* 3 1073741823) -> 3221225469) ((1269 . 5625) (* 3 1073741824) -> 3221225472) ((1270 . 5625) (* 3 1073741825) -> 3221225475) ((1271 . 5625) (* 4 1073741821) -> 4294967284) ((1272 . 5625) (* 4 1073741822) -> 4294967288) ((1273 . 5625) (* 4 1073741823) -> 4294967292) ((1274 . 5625) (* 4 1073741824) -> 4294967296) ((1275 . 5625) (* 4 1073741825) -> 4294967300) ((1276 . 5625) (* 0 -1073741826) -> 0) ((1277 . 5625) (* 0 -1073741825) -> 0) ((1278 . 5625) (* 0 -1073741824) -> 0) ((1279 . 5625) (* 0 -1073741823) -> 0) ((1280 . 5625) (* 0 -1073741822) -> 0) ((1281 . 5625) (* 1 -1073741826) -> -1073741826) ((1282 . 5625) (* 1 -1073741825) -> -1073741825) ((1283 . 5625) (* 1 -1073741824) -> -1073741824) ((1284 . 5625) (* 1 -1073741823) -> -1073741823) ((1285 . 5625) (* 1 -1073741822) -> -1073741822) ((1286 . 5625) (* 2 -1073741826) -> -2147483652) ((1287 . 5625) (* 2 -1073741825) -> -2147483650) ((1288 . 5625) (* 2 -1073741824) -> -2147483648) ((1289 . 5625) (* 2 -1073741823) -> -2147483646) ((1290 . 5625) (* 2 -1073741822) -> -2147483644) ((1291 . 5625) (* 3 -1073741826) -> -3221225478) ((1292 . 5625) (* 3 -1073741825) -> -3221225475) ((1293 . 5625) (* 3 -1073741824) -> -3221225472) ((1294 . 5625) (* 3 -1073741823) -> -3221225469) ((1295 . 5625) (* 3 -1073741822) -> -3221225466) ((1296 . 5625) (* 4 -1073741826) -> -4294967304) ((1297 . 5625) (* 4 -1073741825) -> -4294967300) ((1298 . 5625) (* 4 -1073741824) -> -4294967296) ((1299 . 5625) (* 4 -1073741823) -> -4294967292) ((1300 . 5625) (* 4 -1073741822) -> -4294967288) ((1301 . 5625) (* 0 1073741822) -> 0) ((1302 . 5625) (* 0 1073741823) -> 0) ((1303 . 5625) (* 0 1073741824) -> 0) ((1304 . 5625) (* 0 1073741825) -> 0) ((1305 . 5625) (* 0 1073741826) -> 0) ((1306 . 5625) (* 1 1073741822) -> 1073741822) ((1307 . 5625) (* 1 1073741823) -> 1073741823) ((1308 . 5625) (* 1 1073741824) -> 1073741824) ((1309 . 5625) (* 1 1073741825) -> 1073741825) ((1310 . 5625) (* 1 1073741826) -> 1073741826) ((1311 . 5625) (* 2 1073741822) -> 2147483644) ((1312 . 5625) (* 2 1073741823) -> 2147483646) ((1313 . 5625) (* 2 1073741824) -> 2147483648) ((1314 . 5625) (* 2 1073741825) -> 2147483650) ((1315 . 5625) (* 2 1073741826) -> 2147483652) ((1316 . 5625) (* 3 1073741822) -> 3221225466) ((1317 . 5625) (* 3 1073741823) -> 3221225469) ((1318 . 5625) (* 3 1073741824) -> 3221225472) ((1319 . 5625) (* 3 1073741825) -> 3221225475) ((1320 . 5625) (* 3 1073741826) -> 3221225478) ((1321 . 5625) (* 4 1073741822) -> 4294967288) ((1322 . 5625) (* 4 1073741823) -> 4294967292) ((1323 . 5625) (* 4 1073741824) -> 4294967296) ((1324 . 5625) (* 4 1073741825) -> 4294967300) ((1325 . 5625) (* 4 1073741826) -> 4294967304) ((1326 . 5625) (* 0 -1073741827) -> 0) ((1327 . 5625) (* 0 -1073741826) -> 0) ((1328 . 5625) (* 0 -1073741825) -> 0) ((1329 . 5625) (* 0 -1073741824) -> 0) ((1330 . 5625) (* 0 -1073741823) -> 0) ((1331 . 5625) (* 1 -1073741827) -> -1073741827) ((1332 . 5625) (* 1 -1073741826) -> -1073741826) ((1333 . 5625) (* 1 -1073741825) -> -1073741825) ((1334 . 5625) (* 1 -1073741824) -> -1073741824) ((1335 . 5625) (* 1 -1073741823) -> -1073741823) ((1336 . 5625) (* 2 -1073741827) -> -2147483654) ((1337 . 5625) (* 2 -1073741826) -> -2147483652) ((1338 . 5625) (* 2 -1073741825) -> -2147483650) ((1339 . 5625) (* 2 -1073741824) -> -2147483648) ((1340 . 5625) (* 2 -1073741823) -> -2147483646) ((1341 . 5625) (* 3 -1073741827) -> -3221225481) ((1342 . 5625) (* 3 -1073741826) -> -3221225478) ((1343 . 5625) (* 3 -1073741825) -> -3221225475) ((1344 . 5625) (* 3 -1073741824) -> -3221225472) ((1345 . 5625) (* 3 -1073741823) -> -3221225469) ((1346 . 5625) (* 4 -1073741827) -> -4294967308) ((1347 . 5625) (* 4 -1073741826) -> -4294967304) ((1348 . 5625) (* 4 -1073741825) -> -4294967300) ((1349 . 5625) (* 4 -1073741824) -> -4294967296) ((1350 . 5625) (* 4 -1073741823) -> -4294967292) ((1351 . 5625) (* 0 1103515243) -> 0) ((1352 . 5625) (* 0 1103515244) -> 0) ((1353 . 5625) (* 0 1103515245) -> 0) ((1354 . 5625) (* 0 1103515246) -> 0) ((1355 . 5625) (* 0 1103515247) -> 0) ((1356 . 5625) (* 1 1103515243) -> 1103515243) ((1357 . 5625) (* 1 1103515244) -> 1103515244) ((1358 . 5625) (* 1 1103515245) -> 1103515245) ((1359 . 5625) (* 1 1103515246) -> 1103515246) ((1360 . 5625) (* 1 1103515247) -> 1103515247) ((1361 . 5625) (* 2 1103515243) -> 2207030486) ((1362 . 5625) (* 2 1103515244) -> 2207030488) ((1363 . 5625) (* 2 1103515245) -> 2207030490) ((1364 . 5625) (* 2 1103515246) -> 2207030492) ((1365 . 5625) (* 2 1103515247) -> 2207030494) ((1366 . 5625) (* 3 1103515243) -> 3310545729) ((1367 . 5625) (* 3 1103515244) -> 3310545732) ((1368 . 5625) (* 3 1103515245) -> 3310545735) ((1369 . 5625) (* 3 1103515246) -> 3310545738) ((1370 . 5625) (* 3 1103515247) -> 3310545741) ((1371 . 5625) (* 4 1103515243) -> 4414060972) ((1372 . 5625) (* 4 1103515244) -> 4414060976) ((1373 . 5625) (* 4 1103515245) -> 4414060980) ((1374 . 5625) (* 4 1103515246) -> 4414060984) ((1375 . 5625) (* 4 1103515247) -> 4414060988) ((1376 . 5625) (* 0 631629063) -> 0) ((1377 . 5625) (* 0 631629064) -> 0) ((1378 . 5625) (* 0 631629065) -> 0) ((1379 . 5625) (* 0 631629066) -> 0) ((1380 . 5625) (* 0 631629067) -> 0) ((1381 . 5625) (* 1 631629063) -> 631629063) ((1382 . 5625) (* 1 631629064) -> 631629064) ((1383 . 5625) (* 1 631629065) -> 631629065) ((1384 . 5625) (* 1 631629066) -> 631629066) ((1385 . 5625) (* 1 631629067) -> 631629067) ((1386 . 5625) (* 2 631629063) -> 1263258126) ((1387 . 5625) (* 2 631629064) -> 1263258128) ((1388 . 5625) (* 2 631629065) -> 1263258130) ((1389 . 5625) (* 2 631629066) -> 1263258132) ((1390 . 5625) (* 2 631629067) -> 1263258134) ((1391 . 5625) (* 3 631629063) -> 1894887189) ((1392 . 5625) (* 3 631629064) -> 1894887192) ((1393 . 5625) (* 3 631629065) -> 1894887195) ((1394 . 5625) (* 3 631629066) -> 1894887198) ((1395 . 5625) (* 3 631629067) -> 1894887201) ((1396 . 5625) (* 4 631629063) -> 2526516252) ((1397 . 5625) (* 4 631629064) -> 2526516256) ((1398 . 5625) (* 4 631629065) -> 2526516260) ((1399 . 5625) (* 4 631629066) -> 2526516264) ((1400 . 5625) (* 4 631629067) -> 2526516268) ((1401 . 5625) (* 0 9007199254740990) -> 0) ((1402 . 5625) (* 0 9007199254740991) -> 0) ((1403 . 5625) (* 0 9007199254740992) -> 0) ((1404 . 5625) (* 0 9007199254740993) -> 0) ((1405 . 5625) (* 0 9007199254740994) -> 0) ((1406 . 5625) (* 1 9007199254740990) -> 9007199254740990) ((1407 . 5625) (* 1 9007199254740991) -> 9007199254740991) ((1408 . 5625) (* 1 9007199254740992) -> 9007199254740992) ((1409 . 5625) (* 1 9007199254740993) -> 9007199254740993) ((1410 . 5625) (* 1 9007199254740994) -> 9007199254740994) ((1411 . 5625) (* 2 9007199254740990) -> 18014398509481980) ((1412 . 5625) (* 2 9007199254740991) -> 18014398509481982) ((1413 . 5625) (* 2 9007199254740992) -> 18014398509481984) ((1414 . 5625) (* 2 9007199254740993) -> 18014398509481986) ((1415 . 5625) (* 2 9007199254740994) -> 18014398509481988) ((1416 . 5625) (* 3 9007199254740990) -> 27021597764222970) ((1417 . 5625) (* 3 9007199254740991) -> 27021597764222973) ((1418 . 5625) (* 3 9007199254740992) -> 27021597764222976) ((1419 . 5625) (* 3 9007199254740993) -> 27021597764222979) ((1420 . 5625) (* 3 9007199254740994) -> 27021597764222982) ((1421 . 5625) (* 4 9007199254740990) -> 36028797018963960) ((1422 . 5625) (* 4 9007199254740991) -> 36028797018963964) ((1423 . 5625) (* 4 9007199254740992) -> 36028797018963968) ((1424 . 5625) (* 4 9007199254740993) -> 36028797018963972) ((1425 . 5625) (* 4 9007199254740994) -> 36028797018963976) ((1426 . 5625) (* 0 -9007199254740994) -> 0) ((1427 . 5625) (* 0 -9007199254740993) -> 0) ((1428 . 5625) (* 0 -9007199254740992) -> 0) ((1429 . 5625) (* 0 -9007199254740991) -> 0) ((1430 . 5625) (* 0 -9007199254740990) -> 0) ((1431 . 5625) (* 1 -9007199254740994) -> -9007199254740994) ((1432 . 5625) (* 1 -9007199254740993) -> -9007199254740993) ((1433 . 5625) (* 1 -9007199254740992) -> -9007199254740992) ((1434 . 5625) (* 1 -9007199254740991) -> -9007199254740991) ((1435 . 5625) (* 1 -9007199254740990) -> -9007199254740990) ((1436 . 5625) (* 2 -9007199254740994) -> -18014398509481988) ((1437 . 5625) (* 2 -9007199254740993) -> -18014398509481986) ((1438 . 5625) (* 2 -9007199254740992) -> -18014398509481984) ((1439 . 5625) (* 2 -9007199254740991) -> -18014398509481982) ((1440 . 5625) (* 2 -9007199254740990) -> -18014398509481980) ((1441 . 5625) (* 3 -9007199254740994) -> -27021597764222982) ((1442 . 5625) (* 3 -9007199254740993) -> -27021597764222979) ((1443 . 5625) (* 3 -9007199254740992) -> -27021597764222976) ((1444 . 5625) (* 3 -9007199254740991) -> -27021597764222973) ((1445 . 5625) (* 3 -9007199254740990) -> -27021597764222970) ((1446 . 5625) (* 4 -9007199254740994) -> -36028797018963976) ((1447 . 5625) (* 4 -9007199254740993) -> -36028797018963972) ((1448 . 5625) (* 4 -9007199254740992) -> -36028797018963968) ((1449 . 5625) (* 4 -9007199254740991) -> -36028797018963964) ((1450 . 5625) (* 4 -9007199254740990) -> -36028797018963960) ((1451 . 5625) (* 0 12343) -> 0) ((1452 . 5625) (* 0 12344) -> 0) ((1453 . 5625) (* 0 12345) -> 0) ((1454 . 5625) (* 0 12346) -> 0) ((1455 . 5625) (* 0 12347) -> 0) ((1456 . 5625) (* 1 12343) -> 12343) ((1457 . 5625) (* 1 12344) -> 12344) ((1458 . 5625) (* 1 12345) -> 12345) ((1459 . 5625) (* 1 12346) -> 12346) ((1460 . 5625) (* 1 12347) -> 12347) ((1461 . 5625) (* 2 12343) -> 24686) ((1462 . 5625) (* 2 12344) -> 24688) ((1463 . 5625) (* 2 12345) -> 24690) ((1464 . 5625) (* 2 12346) -> 24692) ((1465 . 5625) (* 2 12347) -> 24694) ((1466 . 5625) (* 3 12343) -> 37029) ((1467 . 5625) (* 3 12344) -> 37032) ((1468 . 5625) (* 3 12345) -> 37035) ((1469 . 5625) (* 3 12346) -> 37038) ((1470 . 5625) (* 3 12347) -> 37041) ((1471 . 5625) (* 4 12343) -> 49372) ((1472 . 5625) (* 4 12344) -> 49376) ((1473 . 5625) (* 4 12345) -> 49380) ((1474 . 5625) (* 4 12346) -> 49384) ((1475 . 5625) (* 4 12347) -> 49388) ((1476 . 5625) (* 0 4294967294) -> 0) ((1477 . 5625) (* 0 4294967295) -> 0) ((1478 . 5625) (* 0 4294967296) -> 0) ((1479 . 5625) (* 0 4294967297) -> 0) ((1480 . 5625) (* 0 4294967298) -> 0) ((1481 . 5625) (* 1 4294967294) -> 4294967294) ((1482 . 5625) (* 1 4294967295) -> 4294967295) ((1483 . 5625) (* 1 4294967296) -> 4294967296) ((1484 . 5625) (* 1 4294967297) -> 4294967297) ((1485 . 5625) (* 1 4294967298) -> 4294967298) ((1486 . 5625) (* 2 4294967294) -> 8589934588) ((1487 . 5625) (* 2 4294967295) -> 8589934590) ((1488 . 5625) (* 2 4294967296) -> 8589934592) ((1489 . 5625) (* 2 4294967297) -> 8589934594) ((1490 . 5625) (* 2 4294967298) -> 8589934596) ((1491 . 5625) (* 3 4294967294) -> 12884901882) ((1492 . 5625) (* 3 4294967295) -> 12884901885) ((1493 . 5625) (* 3 4294967296) -> 12884901888) ((1494 . 5625) (* 3 4294967297) -> 12884901891) ((1495 . 5625) (* 3 4294967298) -> 12884901894) ((1496 . 5625) (* 4 4294967294) -> 17179869176) ((1497 . 5625) (* 4 4294967295) -> 17179869180) ((1498 . 5625) (* 4 4294967296) -> 17179869184) ((1499 . 5625) (* 4 4294967297) -> 17179869188) ((1500 . 5625) (* 4 4294967298) -> 17179869192) ((1501 . 5625) (* -4 -2) -> 8) ((1502 . 5625) (* -4 -1) -> 4) ((1503 . 5625) (* -4 0) -> 0) ((1504 . 5625) (* -4 1) -> -4) ((1505 . 5625) (* -4 2) -> -8) ((1506 . 5625) (* -3 -2) -> 6) ((1507 . 5625) (* -3 -1) -> 3) ((1508 . 5625) (* -3 0) -> 0) ((1509 . 5625) (* -3 1) -> -3) ((1510 . 5625) (* -3 2) -> -6) ((1511 . 5625) (* -2 -2) -> 4) ((1512 . 5625) (* -2 -1) -> 2) ((1513 . 5625) (* -2 0) -> 0) ((1514 . 5625) (* -2 1) -> -2) ((1515 . 5625) (* -2 2) -> -4) ((1516 . 5625) (* -1 -2) -> 2) ((1517 . 5625) (* -1 -1) -> 1) ((1518 . 5625) (* -1 0) -> 0) ((1519 . 5625) (* -1 1) -> -1) ((1520 . 5625) (* -1 2) -> -2) ((1521 . 5625) (* 0 -2) -> 0) ((1522 . 5625) (* 0 -1) -> 0) ((1523 . 5625) (* 0 0) -> 0) ((1524 . 5625) (* 0 1) -> 0) ((1525 . 5625) (* 0 2) -> 0) ((1526 . 5625) (* -4 -1) -> 4) ((1527 . 5625) (* -4 0) -> 0) ((1528 . 5625) (* -4 1) -> -4) ((1529 . 5625) (* -4 2) -> -8) ((1530 . 5625) (* -4 3) -> -12) ((1531 . 5625) (* -3 -1) -> 3) ((1532 . 5625) (* -3 0) -> 0) ((1533 . 5625) (* -3 1) -> -3) ((1534 . 5625) (* -3 2) -> -6) ((1535 . 5625) (* -3 3) -> -9) ((1536 . 5625) (* -2 -1) -> 2) ((1537 . 5625) (* -2 0) -> 0) ((1538 . 5625) (* -2 1) -> -2) ((1539 . 5625) (* -2 2) -> -4) ((1540 . 5625) (* -2 3) -> -6) ((1541 . 5625) (* -1 -1) -> 1) ((1542 . 5625) (* -1 0) -> 0) ((1543 . 5625) (* -1 1) -> -1) ((1544 . 5625) (* -1 2) -> -2) ((1545 . 5625) (* -1 3) -> -3) ((1546 . 5625) (* 0 -1) -> 0) ((1547 . 5625) (* 0 0) -> 0) ((1548 . 5625) (* 0 1) -> 0) ((1549 . 5625) (* 0 2) -> 0) ((1550 . 5625) (* 0 3) -> 0) ((1551 . 5625) (* -4 -3) -> 12) ((1552 . 5625) (* -4 -2) -> 8) ((1553 . 5625) (* -4 -1) -> 4) ((1554 . 5625) (* -4 0) -> 0) ((1555 . 5625) (* -4 1) -> -4) ((1556 . 5625) (* -3 -3) -> 9) ((1557 . 5625) (* -3 -2) -> 6) ((1558 . 5625) (* -3 -1) -> 3) ((1559 . 5625) (* -3 0) -> 0) ((1560 . 5625) (* -3 1) -> -3) ((1561 . 5625) (* -2 -3) -> 6) ((1562 . 5625) (* -2 -2) -> 4) ((1563 . 5625) (* -2 -1) -> 2) ((1564 . 5625) (* -2 0) -> 0) ((1565 . 5625) (* -2 1) -> -2) ((1566 . 5625) (* -1 -3) -> 3) ((1567 . 5625) (* -1 -2) -> 2) ((1568 . 5625) (* -1 -1) -> 1) ((1569 . 5625) (* -1 0) -> 0) ((1570 . 5625) (* -1 1) -> -1) ((1571 . 5625) (* 0 -3) -> 0) ((1572 . 5625) (* 0 -2) -> 0) ((1573 . 5625) (* 0 -1) -> 0) ((1574 . 5625) (* 0 0) -> 0) ((1575 . 5625) (* 0 1) -> 0) ((1576 . 5625) (* -4 0) -> 0) ((1577 . 5625) (* -4 1) -> -4) ((1578 . 5625) (* -4 2) -> -8) ((1579 . 5625) (* -4 3) -> -12) ((1580 . 5625) (* -4 4) -> -16) ((1581 . 5625) (* -3 0) -> 0) ((1582 . 5625) (* -3 1) -> -3) ((1583 . 5625) (* -3 2) -> -6) ((1584 . 5625) (* -3 3) -> -9) ((1585 . 5625) (* -3 4) -> -12) ((1586 . 5625) (* -2 0) -> 0) ((1587 . 5625) (* -2 1) -> -2) ((1588 . 5625) (* -2 2) -> -4) ((1589 . 5625) (* -2 3) -> -6) ((1590 . 5625) (* -2 4) -> -8) ((1591 . 5625) (* -1 0) -> 0) ((1592 . 5625) (* -1 1) -> -1) ((1593 . 5625) (* -1 2) -> -2) ((1594 . 5625) (* -1 3) -> -3) ((1595 . 5625) (* -1 4) -> -4) ((1596 . 5625) (* 0 0) -> 0) ((1597 . 5625) (* 0 1) -> 0) ((1598 . 5625) (* 0 2) -> 0) ((1599 . 5625) (* 0 3) -> 0) ((1600 . 5625) (* 0 4) -> 0) ((1601 . 5625) (* -4 -4) -> 16) ((1602 . 5625) (* -4 -3) -> 12) ((1603 . 5625) (* -4 -2) -> 8) ((1604 . 5625) (* -4 -1) -> 4) ((1605 . 5625) (* -4 0) -> 0) ((1606 . 5625) (* -3 -4) -> 12) ((1607 . 5625) (* -3 -3) -> 9) ((1608 . 5625) (* -3 -2) -> 6) ((1609 . 5625) (* -3 -1) -> 3) ((1610 . 5625) (* -3 0) -> 0) ((1611 . 5625) (* -2 -4) -> 8) ((1612 . 5625) (* -2 -3) -> 6) ((1613 . 5625) (* -2 -2) -> 4) ((1614 . 5625) (* -2 -1) -> 2) ((1615 . 5625) (* -2 0) -> 0) ((1616 . 5625) (* -1 -4) -> 4) ((1617 . 5625) (* -1 -3) -> 3) ((1618 . 5625) (* -1 -2) -> 2) ((1619 . 5625) (* -1 -1) -> 1) ((1620 . 5625) (* -1 0) -> 0) ((1621 . 5625) (* 0 -4) -> 0) ((1622 . 5625) (* 0 -3) -> 0) ((1623 . 5625) (* 0 -2) -> 0) ((1624 . 5625) (* 0 -1) -> 0) ((1625 . 5625) (* 0 0) -> 0) ((1626 . 5625) (* -4 1073741821) -> -4294967284) ((1627 . 5625) (* -4 1073741822) -> -4294967288) ((1628 . 5625) (* -4 1073741823) -> -4294967292) ((1629 . 5625) (* -4 1073741824) -> -4294967296) ((1630 . 5625) (* -4 1073741825) -> -4294967300) ((1631 . 5625) (* -3 1073741821) -> -3221225463) ((1632 . 5625) (* -3 1073741822) -> -3221225466) ((1633 . 5625) (* -3 1073741823) -> -3221225469) ((1634 . 5625) (* -3 1073741824) -> -3221225472) ((1635 . 5625) (* -3 1073741825) -> -3221225475) ((1636 . 5625) (* -2 1073741821) -> -2147483642) ((1637 . 5625) (* -2 1073741822) -> -2147483644) ((1638 . 5625) (* -2 1073741823) -> -2147483646) ((1639 . 5625) (* -2 1073741824) -> -2147483648) ((1640 . 5625) (* -2 1073741825) -> -2147483650) ((1641 . 5625) (* -1 1073741821) -> -1073741821) ((1642 . 5625) (* -1 1073741822) -> -1073741822) ((1643 . 5625) (* -1 1073741823) -> -1073741823) ((1644 . 5625) (* -1 1073741824) -> -1073741824) ((1645 . 5625) (* -1 1073741825) -> -1073741825) ((1646 . 5625) (* 0 1073741821) -> 0) ((1647 . 5625) (* 0 1073741822) -> 0) ((1648 . 5625) (* 0 1073741823) -> 0) ((1649 . 5625) (* 0 1073741824) -> 0) ((1650 . 5625) (* 0 1073741825) -> 0) ((1651 . 5625) (* -4 -1073741826) -> 4294967304) ((1652 . 5625) (* -4 -1073741825) -> 4294967300) ((1653 . 5625) (* -4 -1073741824) -> 4294967296) ((1654 . 5625) (* -4 -1073741823) -> 4294967292) ((1655 . 5625) (* -4 -1073741822) -> 4294967288) ((1656 . 5625) (* -3 -1073741826) -> 3221225478) ((1657 . 5625) (* -3 -1073741825) -> 3221225475) ((1658 . 5625) (* -3 -1073741824) -> 3221225472) ((1659 . 5625) (* -3 -1073741823) -> 3221225469) ((1660 . 5625) (* -3 -1073741822) -> 3221225466) ((1661 . 5625) (* -2 -1073741826) -> 2147483652) ((1662 . 5625) (* -2 -1073741825) -> 2147483650) ((1663 . 5625) (* -2 -1073741824) -> 2147483648) ((1664 . 5625) (* -2 -1073741823) -> 2147483646) ((1665 . 5625) (* -2 -1073741822) -> 2147483644) ((1666 . 5625) (* -1 -1073741826) -> 1073741826) ((1667 . 5625) (* -1 -1073741825) -> 1073741825) ((1668 . 5625) (* -1 -1073741824) -> 1073741824) ((1669 . 5625) (* -1 -1073741823) -> 1073741823) ((1670 . 5625) (* -1 -1073741822) -> 1073741822) ((1671 . 5625) (* 0 -1073741826) -> 0) ((1672 . 5625) (* 0 -1073741825) -> 0) ((1673 . 5625) (* 0 -1073741824) -> 0) ((1674 . 5625) (* 0 -1073741823) -> 0) ((1675 . 5625) (* 0 -1073741822) -> 0) ((1676 . 5625) (* -4 1073741822) -> -4294967288) ((1677 . 5625) (* -4 1073741823) -> -4294967292) ((1678 . 5625) (* -4 1073741824) -> -4294967296) ((1679 . 5625) (* -4 1073741825) -> -4294967300) ((1680 . 5625) (* -4 1073741826) -> -4294967304) ((1681 . 5625) (* -3 1073741822) -> -3221225466) ((1682 . 5625) (* -3 1073741823) -> -3221225469) ((1683 . 5625) (* -3 1073741824) -> -3221225472) ((1684 . 5625) (* -3 1073741825) -> -3221225475) ((1685 . 5625) (* -3 1073741826) -> -3221225478) ((1686 . 5625) (* -2 1073741822) -> -2147483644) ((1687 . 5625) (* -2 1073741823) -> -2147483646) ((1688 . 5625) (* -2 1073741824) -> -2147483648) ((1689 . 5625) (* -2 1073741825) -> -2147483650) ((1690 . 5625) (* -2 1073741826) -> -2147483652) ((1691 . 5625) (* -1 1073741822) -> -1073741822) ((1692 . 5625) (* -1 1073741823) -> -1073741823) ((1693 . 5625) (* -1 1073741824) -> -1073741824) ((1694 . 5625) (* -1 1073741825) -> -1073741825) ((1695 . 5625) (* -1 1073741826) -> -1073741826) ((1696 . 5625) (* 0 1073741822) -> 0) ((1697 . 5625) (* 0 1073741823) -> 0) ((1698 . 5625) (* 0 1073741824) -> 0) ((1699 . 5625) (* 0 1073741825) -> 0) ((1700 . 5625) (* 0 1073741826) -> 0) ((1701 . 5625) (* -4 -1073741827) -> 4294967308) ((1702 . 5625) (* -4 -1073741826) -> 4294967304) ((1703 . 5625) (* -4 -1073741825) -> 4294967300) ((1704 . 5625) (* -4 -1073741824) -> 4294967296) ((1705 . 5625) (* -4 -1073741823) -> 4294967292) ((1706 . 5625) (* -3 -1073741827) -> 3221225481) ((1707 . 5625) (* -3 -1073741826) -> 3221225478) ((1708 . 5625) (* -3 -1073741825) -> 3221225475) ((1709 . 5625) (* -3 -1073741824) -> 3221225472) ((1710 . 5625) (* -3 -1073741823) -> 3221225469) ((1711 . 5625) (* -2 -1073741827) -> 2147483654) ((1712 . 5625) (* -2 -1073741826) -> 2147483652) ((1713 . 5625) (* -2 -1073741825) -> 2147483650) ((1714 . 5625) (* -2 -1073741824) -> 2147483648) ((1715 . 5625) (* -2 -1073741823) -> 2147483646) ((1716 . 5625) (* -1 -1073741827) -> 1073741827) ((1717 . 5625) (* -1 -1073741826) -> 1073741826) ((1718 . 5625) (* -1 -1073741825) -> 1073741825) ((1719 . 5625) (* -1 -1073741824) -> 1073741824) ((1720 . 5625) (* -1 -1073741823) -> 1073741823) ((1721 . 5625) (* 0 -1073741827) -> 0) ((1722 . 5625) (* 0 -1073741826) -> 0) ((1723 . 5625) (* 0 -1073741825) -> 0) ((1724 . 5625) (* 0 -1073741824) -> 0) ((1725 . 5625) (* 0 -1073741823) -> 0) ((1726 . 5625) (* -4 1103515243) -> -4414060972) ((1727 . 5625) (* -4 1103515244) -> -4414060976) ((1728 . 5625) (* -4 1103515245) -> -4414060980) ((1729 . 5625) (* -4 1103515246) -> -4414060984) ((1730 . 5625) (* -4 1103515247) -> -4414060988) ((1731 . 5625) (* -3 1103515243) -> -3310545729) ((1732 . 5625) (* -3 1103515244) -> -3310545732) ((1733 . 5625) (* -3 1103515245) -> -3310545735) ((1734 . 5625) (* -3 1103515246) -> -3310545738) ((1735 . 5625) (* -3 1103515247) -> -3310545741) ((1736 . 5625) (* -2 1103515243) -> -2207030486) ((1737 . 5625) (* -2 1103515244) -> -2207030488) ((1738 . 5625) (* -2 1103515245) -> -2207030490) ((1739 . 5625) (* -2 1103515246) -> -2207030492) ((1740 . 5625) (* -2 1103515247) -> -2207030494) ((1741 . 5625) (* -1 1103515243) -> -1103515243) ((1742 . 5625) (* -1 1103515244) -> -1103515244) ((1743 . 5625) (* -1 1103515245) -> -1103515245) ((1744 . 5625) (* -1 1103515246) -> -1103515246) ((1745 . 5625) (* -1 1103515247) -> -1103515247) ((1746 . 5625) (* 0 1103515243) -> 0) ((1747 . 5625) (* 0 1103515244) -> 0) ((1748 . 5625) (* 0 1103515245) -> 0) ((1749 . 5625) (* 0 1103515246) -> 0) ((1750 . 5625) (* 0 1103515247) -> 0) ((1751 . 5625) (* -4 631629063) -> -2526516252) ((1752 . 5625) (* -4 631629064) -> -2526516256) ((1753 . 5625) (* -4 631629065) -> -2526516260) ((1754 . 5625) (* -4 631629066) -> -2526516264) ((1755 . 5625) (* -4 631629067) -> -2526516268) ((1756 . 5625) (* -3 631629063) -> -1894887189) ((1757 . 5625) (* -3 631629064) -> -1894887192) ((1758 . 5625) (* -3 631629065) -> -1894887195) ((1759 . 5625) (* -3 631629066) -> -1894887198) ((1760 . 5625) (* -3 631629067) -> -1894887201) ((1761 . 5625) (* -2 631629063) -> -1263258126) ((1762 . 5625) (* -2 631629064) -> -1263258128) ((1763 . 5625) (* -2 631629065) -> -1263258130) ((1764 . 5625) (* -2 631629066) -> -1263258132) ((1765 . 5625) (* -2 631629067) -> -1263258134) ((1766 . 5625) (* -1 631629063) -> -631629063) ((1767 . 5625) (* -1 631629064) -> -631629064) ((1768 . 5625) (* -1 631629065) -> -631629065) ((1769 . 5625) (* -1 631629066) -> -631629066) ((1770 . 5625) (* -1 631629067) -> -631629067) ((1771 . 5625) (* 0 631629063) -> 0) ((1772 . 5625) (* 0 631629064) -> 0) ((1773 . 5625) (* 0 631629065) -> 0) ((1774 . 5625) (* 0 631629066) -> 0) ((1775 . 5625) (* 0 631629067) -> 0) ((1776 . 5625) (* -4 9007199254740990) -> -36028797018963960) ((1777 . 5625) (* -4 9007199254740991) -> -36028797018963964) ((1778 . 5625) (* -4 9007199254740992) -> -36028797018963968) ((1779 . 5625) (* -4 9007199254740993) -> -36028797018963972) ((1780 . 5625) (* -4 9007199254740994) -> -36028797018963976) ((1781 . 5625) (* -3 9007199254740990) -> -27021597764222970) ((1782 . 5625) (* -3 9007199254740991) -> -27021597764222973) ((1783 . 5625) (* -3 9007199254740992) -> -27021597764222976) ((1784 . 5625) (* -3 9007199254740993) -> -27021597764222979) ((1785 . 5625) (* -3 9007199254740994) -> -27021597764222982) ((1786 . 5625) (* -2 9007199254740990) -> -18014398509481980) ((1787 . 5625) (* -2 9007199254740991) -> -18014398509481982) ((1788 . 5625) (* -2 9007199254740992) -> -18014398509481984) ((1789 . 5625) (* -2 9007199254740993) -> -18014398509481986) ((1790 . 5625) (* -2 9007199254740994) -> -18014398509481988) ((1791 . 5625) (* -1 9007199254740990) -> -9007199254740990) ((1792 . 5625) (* -1 9007199254740991) -> -9007199254740991) ((1793 . 5625) (* -1 9007199254740992) -> -9007199254740992) ((1794 . 5625) (* -1 9007199254740993) -> -9007199254740993) ((1795 . 5625) (* -1 9007199254740994) -> -9007199254740994) ((1796 . 5625) (* 0 9007199254740990) -> 0) ((1797 . 5625) (* 0 9007199254740991) -> 0) ((1798 . 5625) (* 0 9007199254740992) -> 0) ((1799 . 5625) (* 0 9007199254740993) -> 0) ((1800 . 5625) (* 0 9007199254740994) -> 0) ((1801 . 5625) (* -4 -9007199254740994) -> 36028797018963976) ((1802 . 5625) (* -4 -9007199254740993) -> 36028797018963972) ((1803 . 5625) (* -4 -9007199254740992) -> 36028797018963968) ((1804 . 5625) (* -4 -9007199254740991) -> 36028797018963964) ((1805 . 5625) (* -4 -9007199254740990) -> 36028797018963960) ((1806 . 5625) (* -3 -9007199254740994) -> 27021597764222982) ((1807 . 5625) (* -3 -9007199254740993) -> 27021597764222979) ((1808 . 5625) (* -3 -9007199254740992) -> 27021597764222976) ((1809 . 5625) (* -3 -9007199254740991) -> 27021597764222973) ((1810 . 5625) (* -3 -9007199254740990) -> 27021597764222970) ((1811 . 5625) (* -2 -9007199254740994) -> 18014398509481988) ((1812 . 5625) (* -2 -9007199254740993) -> 18014398509481986) ((1813 . 5625) (* -2 -9007199254740992) -> 18014398509481984) ((1814 . 5625) (* -2 -9007199254740991) -> 18014398509481982) ((1815 . 5625) (* -2 -9007199254740990) -> 18014398509481980) ((1816 . 5625) (* -1 -9007199254740994) -> 9007199254740994) ((1817 . 5625) (* -1 -9007199254740993) -> 9007199254740993) ((1818 . 5625) (* -1 -9007199254740992) -> 9007199254740992) ((1819 . 5625) (* -1 -9007199254740991) -> 9007199254740991) ((1820 . 5625) (* -1 -9007199254740990) -> 9007199254740990) ((1821 . 5625) (* 0 -9007199254740994) -> 0) ((1822 . 5625) (* 0 -9007199254740993) -> 0) ((1823 . 5625) (* 0 -9007199254740992) -> 0) ((1824 . 5625) (* 0 -9007199254740991) -> 0) ((1825 . 5625) (* 0 -9007199254740990) -> 0) ((1826 . 5625) (* -4 12343) -> -49372) ((1827 . 5625) (* -4 12344) -> -49376) ((1828 . 5625) (* -4 12345) -> -49380) ((1829 . 5625) (* -4 12346) -> -49384) ((1830 . 5625) (* -4 12347) -> -49388) ((1831 . 5625) (* -3 12343) -> -37029) ((1832 . 5625) (* -3 12344) -> -37032) ((1833 . 5625) (* -3 12345) -> -37035) ((1834 . 5625) (* -3 12346) -> -37038) ((1835 . 5625) (* -3 12347) -> -37041) ((1836 . 5625) (* -2 12343) -> -24686) ((1837 . 5625) (* -2 12344) -> -24688) ((1838 . 5625) (* -2 12345) -> -24690) ((1839 . 5625) (* -2 12346) -> -24692) ((1840 . 5625) (* -2 12347) -> -24694) ((1841 . 5625) (* -1 12343) -> -12343) ((1842 . 5625) (* -1 12344) -> -12344) ((1843 . 5625) (* -1 12345) -> -12345) ((1844 . 5625) (* -1 12346) -> -12346) ((1845 . 5625) (* -1 12347) -> -12347) ((1846 . 5625) (* 0 12343) -> 0) ((1847 . 5625) (* 0 12344) -> 0) ((1848 . 5625) (* 0 12345) -> 0) ((1849 . 5625) (* 0 12346) -> 0) ((1850 . 5625) (* 0 12347) -> 0) ((1851 . 5625) (* -4 4294967294) -> -17179869176) ((1852 . 5625) (* -4 4294967295) -> -17179869180) ((1853 . 5625) (* -4 4294967296) -> -17179869184) ((1854 . 5625) (* -4 4294967297) -> -17179869188) ((1855 . 5625) (* -4 4294967298) -> -17179869192) ((1856 . 5625) (* -3 4294967294) -> -12884901882) ((1857 . 5625) (* -3 4294967295) -> -12884901885) ((1858 . 5625) (* -3 4294967296) -> -12884901888) ((1859 . 5625) (* -3 4294967297) -> -12884901891) ((1860 . 5625) (* -3 4294967298) -> -12884901894) ((1861 . 5625) (* -2 4294967294) -> -8589934588) ((1862 . 5625) (* -2 4294967295) -> -8589934590) ((1863 . 5625) (* -2 4294967296) -> -8589934592) ((1864 . 5625) (* -2 4294967297) -> -8589934594) ((1865 . 5625) (* -2 4294967298) -> -8589934596) ((1866 . 5625) (* -1 4294967294) -> -4294967294) ((1867 . 5625) (* -1 4294967295) -> -4294967295) ((1868 . 5625) (* -1 4294967296) -> -4294967296) ((1869 . 5625) (* -1 4294967297) -> -4294967297) ((1870 . 5625) (* -1 4294967298) -> -4294967298) ((1871 . 5625) (* 0 4294967294) -> 0) ((1872 . 5625) (* 0 4294967295) -> 0) ((1873 . 5625) (* 0 4294967296) -> 0) ((1874 . 5625) (* 0 4294967297) -> 0) ((1875 . 5625) (* 0 4294967298) -> 0) ((1876 . 5625) (* 1073741821 -2) -> -2147483642) ((1877 . 5625) (* 1073741821 -1) -> -1073741821) ((1878 . 5625) (* 1073741821 0) -> 0) ((1879 . 5625) (* 1073741821 1) -> 1073741821) ((1880 . 5625) (* 1073741821 2) -> 2147483642) ((1881 . 5625) (* 1073741822 -2) -> -2147483644) ((1882 . 5625) (* 1073741822 -1) -> -1073741822) ((1883 . 5625) (* 1073741822 0) -> 0) ((1884 . 5625) (* 1073741822 1) -> 1073741822) ((1885 . 5625) (* 1073741822 2) -> 2147483644) ((1886 . 5625) (* 1073741823 -2) -> -2147483646) ((1887 . 5625) (* 1073741823 -1) -> -1073741823) ((1888 . 5625) (* 1073741823 0) -> 0) ((1889 . 5625) (* 1073741823 1) -> 1073741823) ((1890 . 5625) (* 1073741823 2) -> 2147483646) ((1891 . 5625) (* 1073741824 -2) -> -2147483648) ((1892 . 5625) (* 1073741824 -1) -> -1073741824) ((1893 . 5625) (* 1073741824 0) -> 0) ((1894 . 5625) (* 1073741824 1) -> 1073741824) ((1895 . 5625) (* 1073741824 2) -> 2147483648) ((1896 . 5625) (* 1073741825 -2) -> -2147483650) ((1897 . 5625) (* 1073741825 -1) -> -1073741825) ((1898 . 5625) (* 1073741825 0) -> 0) ((1899 . 5625) (* 1073741825 1) -> 1073741825) ((1900 . 5625) (* 1073741825 2) -> 2147483650) ((1901 . 5625) (* 1073741821 -1) -> -1073741821) ((1902 . 5625) (* 1073741821 0) -> 0) ((1903 . 5625) (* 1073741821 1) -> 1073741821) ((1904 . 5625) (* 1073741821 2) -> 2147483642) ((1905 . 5625) (* 1073741821 3) -> 3221225463) ((1906 . 5625) (* 1073741822 -1) -> -1073741822) ((1907 . 5625) (* 1073741822 0) -> 0) ((1908 . 5625) (* 1073741822 1) -> 1073741822) ((1909 . 5625) (* 1073741822 2) -> 2147483644) ((1910 . 5625) (* 1073741822 3) -> 3221225466) ((1911 . 5625) (* 1073741823 -1) -> -1073741823) ((1912 . 5625) (* 1073741823 0) -> 0) ((1913 . 5625) (* 1073741823 1) -> 1073741823) ((1914 . 5625) (* 1073741823 2) -> 2147483646) ((1915 . 5625) (* 1073741823 3) -> 3221225469) ((1916 . 5625) (* 1073741824 -1) -> -1073741824) ((1917 . 5625) (* 1073741824 0) -> 0) ((1918 . 5625) (* 1073741824 1) -> 1073741824) ((1919 . 5625) (* 1073741824 2) -> 2147483648) ((1920 . 5625) (* 1073741824 3) -> 3221225472) ((1921 . 5625) (* 1073741825 -1) -> -1073741825) ((1922 . 5625) (* 1073741825 0) -> 0) ((1923 . 5625) (* 1073741825 1) -> 1073741825) ((1924 . 5625) (* 1073741825 2) -> 2147483650) ((1925 . 5625) (* 1073741825 3) -> 3221225475) ((1926 . 5625) (* 1073741821 -3) -> -3221225463) ((1927 . 5625) (* 1073741821 -2) -> -2147483642) ((1928 . 5625) (* 1073741821 -1) -> -1073741821) ((1929 . 5625) (* 1073741821 0) -> 0) ((1930 . 5625) (* 1073741821 1) -> 1073741821) ((1931 . 5625) (* 1073741822 -3) -> -3221225466) ((1932 . 5625) (* 1073741822 -2) -> -2147483644) ((1933 . 5625) (* 1073741822 -1) -> -1073741822) ((1934 . 5625) (* 1073741822 0) -> 0) ((1935 . 5625) (* 1073741822 1) -> 1073741822) ((1936 . 5625) (* 1073741823 -3) -> -3221225469) ((1937 . 5625) (* 1073741823 -2) -> -2147483646) ((1938 . 5625) (* 1073741823 -1) -> -1073741823) ((1939 . 5625) (* 1073741823 0) -> 0) ((1940 . 5625) (* 1073741823 1) -> 1073741823) ((1941 . 5625) (* 1073741824 -3) -> -3221225472) ((1942 . 5625) (* 1073741824 -2) -> -2147483648) ((1943 . 5625) (* 1073741824 -1) -> -1073741824) ((1944 . 5625) (* 1073741824 0) -> 0) ((1945 . 5625) (* 1073741824 1) -> 1073741824) ((1946 . 5625) (* 1073741825 -3) -> -3221225475) ((1947 . 5625) (* 1073741825 -2) -> -2147483650) ((1948 . 5625) (* 1073741825 -1) -> -1073741825) ((1949 . 5625) (* 1073741825 0) -> 0) ((1950 . 5625) (* 1073741825 1) -> 1073741825) ((1951 . 5625) (* 1073741821 0) -> 0) ((1952 . 5625) (* 1073741821 1) -> 1073741821) ((1953 . 5625) (* 1073741821 2) -> 2147483642) ((1954 . 5625) (* 1073741821 3) -> 3221225463) ((1955 . 5625) (* 1073741821 4) -> 4294967284) ((1956 . 5625) (* 1073741822 0) -> 0) ((1957 . 5625) (* 1073741822 1) -> 1073741822) ((1958 . 5625) (* 1073741822 2) -> 2147483644) ((1959 . 5625) (* 1073741822 3) -> 3221225466) ((1960 . 5625) (* 1073741822 4) -> 4294967288) ((1961 . 5625) (* 1073741823 0) -> 0) ((1962 . 5625) (* 1073741823 1) -> 1073741823) ((1963 . 5625) (* 1073741823 2) -> 2147483646) ((1964 . 5625) (* 1073741823 3) -> 3221225469) ((1965 . 5625) (* 1073741823 4) -> 4294967292) ((1966 . 5625) (* 1073741824 0) -> 0) ((1967 . 5625) (* 1073741824 1) -> 1073741824) ((1968 . 5625) (* 1073741824 2) -> 2147483648) ((1969 . 5625) (* 1073741824 3) -> 3221225472) ((1970 . 5625) (* 1073741824 4) -> 4294967296) ((1971 . 5625) (* 1073741825 0) -> 0) ((1972 . 5625) (* 1073741825 1) -> 1073741825) ((1973 . 5625) (* 1073741825 2) -> 2147483650) ((1974 . 5625) (* 1073741825 3) -> 3221225475) ((1975 . 5625) (* 1073741825 4) -> 4294967300) ((1976 . 5625) (* 1073741821 -4) -> -4294967284) ((1977 . 5625) (* 1073741821 -3) -> -3221225463) ((1978 . 5625) (* 1073741821 -2) -> -2147483642) ((1979 . 5625) (* 1073741821 -1) -> -1073741821) ((1980 . 5625) (* 1073741821 0) -> 0) ((1981 . 5625) (* 1073741822 -4) -> -4294967288) ((1982 . 5625) (* 1073741822 -3) -> -3221225466) ((1983 . 5625) (* 1073741822 -2) -> -2147483644) ((1984 . 5625) (* 1073741822 -1) -> -1073741822) ((1985 . 5625) (* 1073741822 0) -> 0) ((1986 . 5625) (* 1073741823 -4) -> -4294967292) ((1987 . 5625) (* 1073741823 -3) -> -3221225469) ((1988 . 5625) (* 1073741823 -2) -> -2147483646) ((1989 . 5625) (* 1073741823 -1) -> -1073741823) ((1990 . 5625) (* 1073741823 0) -> 0) ((1991 . 5625) (* 1073741824 -4) -> -4294967296) ((1992 . 5625) (* 1073741824 -3) -> -3221225472) ((1993 . 5625) (* 1073741824 -2) -> -2147483648) ((1994 . 5625) (* 1073741824 -1) -> -1073741824) ((1995 . 5625) (* 1073741824 0) -> 0) ((1996 . 5625) (* 1073741825 -4) -> -4294967300) ((1997 . 5625) (* 1073741825 -3) -> -3221225475) ((1998 . 5625) (* 1073741825 -2) -> -2147483650) ((1999 . 5625) (* 1073741825 -1) -> -1073741825) ((2000 . 5625) (* 1073741825 0) -> 0) ((2001 . 5625) (* 1073741821 1073741821) -> 1152921498164396041) ((2002 . 5625) (* 1073741821 1073741822) -> 1152921499238137862) ((2003 . 5625) (* 1073741821 1073741823) -> 1152921500311879683) ((2004 . 5625) (* 1073741821 1073741824) -> 1152921501385621504) ((2005 . 5625) (* 1073741821 1073741825) -> 1152921502459363325) ((2006 . 5625) (* 1073741822 1073741821) -> 1152921499238137862) ((2007 . 5625) (* 1073741822 1073741822) -> 1152921500311879684) ((2008 . 5625) (* 1073741822 1073741823) -> 1152921501385621506) ((2009 . 5625) (* 1073741822 1073741824) -> 1152921502459363328) ((2010 . 5625) (* 1073741822 1073741825) -> 1152921503533105150) ((2011 . 5625) (* 1073741823 1073741821) -> 1152921500311879683) ((2012 . 5625) (* 1073741823 1073741822) -> 1152921501385621506) ((2013 . 5625) (* 1073741823 1073741823) -> 1152921502459363329) ((2014 . 5625) (* 1073741823 1073741824) -> 1152921503533105152) ((2015 . 5625) (* 1073741823 1073741825) -> 1152921504606846975) ((2016 . 5625) (* 1073741824 1073741821) -> 1152921501385621504) ((2017 . 5625) (* 1073741824 1073741822) -> 1152921502459363328) ((2018 . 5625) (* 1073741824 1073741823) -> 1152921503533105152) ((2019 . 5625) (* 1073741824 1073741824) -> 1152921504606846976) ((2020 . 5625) (* 1073741824 1073741825) -> 1152921505680588800) ((2021 . 5625) (* 1073741825 1073741821) -> 1152921502459363325) ((2022 . 5625) (* 1073741825 1073741822) -> 1152921503533105150) ((2023 . 5625) (* 1073741825 1073741823) -> 1152921504606846975) ((2024 . 5625) (* 1073741825 1073741824) -> 1152921505680588800) ((2025 . 5625) (* 1073741825 1073741825) -> 1152921506754330625) ((2026 . 5625) (* 1073741821 -1073741826) -> -1152921503533105146) ((2027 . 5625) (* 1073741821 -1073741825) -> -1152921502459363325) ((2028 . 5625) (* 1073741821 -1073741824) -> -1152921501385621504) ((2029 . 5625) (* 1073741821 -1073741823) -> -1152921500311879683) ((2030 . 5625) (* 1073741821 -1073741822) -> -1152921499238137862) ((2031 . 5625) (* 1073741822 -1073741826) -> -1152921504606846972) ((2032 . 5625) (* 1073741822 -1073741825) -> -1152921503533105150) ((2033 . 5625) (* 1073741822 -1073741824) -> -1152921502459363328) ((2034 . 5625) (* 1073741822 -1073741823) -> -1152921501385621506) ((2035 . 5625) (* 1073741822 -1073741822) -> -1152921500311879684) ((2036 . 5625) (* 1073741823 -1073741826) -> -1152921505680588798) ((2037 . 5625) (* 1073741823 -1073741825) -> -1152921504606846975) ((2038 . 5625) (* 1073741823 -1073741824) -> -1152921503533105152) ((2039 . 5625) (* 1073741823 -1073741823) -> -1152921502459363329) ((2040 . 5625) (* 1073741823 -1073741822) -> -1152921501385621506) ((2041 . 5625) (* 1073741824 -1073741826) -> -1152921506754330624) ((2042 . 5625) (* 1073741824 -1073741825) -> -1152921505680588800) ((2043 . 5625) (* 1073741824 -1073741824) -> -1152921504606846976) ((2044 . 5625) (* 1073741824 -1073741823) -> -1152921503533105152) ((2045 . 5625) (* 1073741824 -1073741822) -> -1152921502459363328) ((2046 . 5625) (* 1073741825 -1073741826) -> -1152921507828072450) ((2047 . 5625) (* 1073741825 -1073741825) -> -1152921506754330625) ((2048 . 5625) (* 1073741825 -1073741824) -> -1152921505680588800) ((2049 . 5625) (* 1073741825 -1073741823) -> -1152921504606846975) ((2050 . 5625) (* 1073741825 -1073741822) -> -1152921503533105150) ((2051 . 5625) (* 1073741821 1073741822) -> 1152921499238137862) ((2052 . 5625) (* 1073741821 1073741823) -> 1152921500311879683) ((2053 . 5625) (* 1073741821 1073741824) -> 1152921501385621504) ((2054 . 5625) (* 1073741821 1073741825) -> 1152921502459363325) ((2055 . 5625) (* 1073741821 1073741826) -> 1152921503533105146) ((2056 . 5625) (* 1073741822 1073741822) -> 1152921500311879684) ((2057 . 5625) (* 1073741822 1073741823) -> 1152921501385621506) ((2058 . 5625) (* 1073741822 1073741824) -> 1152921502459363328) ((2059 . 5625) (* 1073741822 1073741825) -> 1152921503533105150) ((2060 . 5625) (* 1073741822 1073741826) -> 1152921504606846972) ((2061 . 5625) (* 1073741823 1073741822) -> 1152921501385621506) ((2062 . 5625) (* 1073741823 1073741823) -> 1152921502459363329) ((2063 . 5625) (* 1073741823 1073741824) -> 1152921503533105152) ((2064 . 5625) (* 1073741823 1073741825) -> 1152921504606846975) ((2065 . 5625) (* 1073741823 1073741826) -> 1152921505680588798) ((2066 . 5625) (* 1073741824 1073741822) -> 1152921502459363328) ((2067 . 5625) (* 1073741824 1073741823) -> 1152921503533105152) ((2068 . 5625) (* 1073741824 1073741824) -> 1152921504606846976) ((2069 . 5625) (* 1073741824 1073741825) -> 1152921505680588800) ((2070 . 5625) (* 1073741824 1073741826) -> 1152921506754330624) ((2071 . 5625) (* 1073741825 1073741822) -> 1152921503533105150) ((2072 . 5625) (* 1073741825 1073741823) -> 1152921504606846975) ((2073 . 5625) (* 1073741825 1073741824) -> 1152921505680588800) ((2074 . 5625) (* 1073741825 1073741825) -> 1152921506754330625) ((2075 . 5625) (* 1073741825 1073741826) -> 1152921507828072450) ((2076 . 5625) (* 1073741821 -1073741827) -> -1152921504606846967) ((2077 . 5625) (* 1073741821 -1073741826) -> -1152921503533105146) ((2078 . 5625) (* 1073741821 -1073741825) -> -1152921502459363325) ((2079 . 5625) (* 1073741821 -1073741824) -> -1152921501385621504) ((2080 . 5625) (* 1073741821 -1073741823) -> -1152921500311879683) ((2081 . 5625) (* 1073741822 -1073741827) -> -1152921505680588794) ((2082 . 5625) (* 1073741822 -1073741826) -> -1152921504606846972) ((2083 . 5625) (* 1073741822 -1073741825) -> -1152921503533105150) ((2084 . 5625) (* 1073741822 -1073741824) -> -1152921502459363328) ((2085 . 5625) (* 1073741822 -1073741823) -> -1152921501385621506) ((2086 . 5625) (* 1073741823 -1073741827) -> -1152921506754330621) ((2087 . 5625) (* 1073741823 -1073741826) -> -1152921505680588798) ((2088 . 5625) (* 1073741823 -1073741825) -> -1152921504606846975) ((2089 . 5625) (* 1073741823 -1073741824) -> -1152921503533105152) ((2090 . 5625) (* 1073741823 -1073741823) -> -1152921502459363329) ((2091 . 5625) (* 1073741824 -1073741827) -> -1152921507828072448) ((2092 . 5625) (* 1073741824 -1073741826) -> -1152921506754330624) ((2093 . 5625) (* 1073741824 -1073741825) -> -1152921505680588800) ((2094 . 5625) (* 1073741824 -1073741824) -> -1152921504606846976) ((2095 . 5625) (* 1073741824 -1073741823) -> -1152921503533105152) ((2096 . 5625) (* 1073741825 -1073741827) -> -1152921508901814275) ((2097 . 5625) (* 1073741825 -1073741826) -> -1152921507828072450) ((2098 . 5625) (* 1073741825 -1073741825) -> -1152921506754330625) ((2099 . 5625) (* 1073741825 -1073741824) -> -1152921505680588800) ((2100 . 5625) (* 1073741825 -1073741823) -> -1152921504606846975) ((2101 . 5625) (* 1073741821 1103515243) -> 1184890466520077503) ((2102 . 5625) (* 1073741821 1103515244) -> 1184890467593819324) ((2103 . 5625) (* 1073741821 1103515245) -> 1184890468667561145) ((2104 . 5625) (* 1073741821 1103515246) -> 1184890469741302966) ((2105 . 5625) (* 1073741821 1103515247) -> 1184890470815044787) ((2106 . 5625) (* 1073741822 1103515243) -> 1184890467623592746) ((2107 . 5625) (* 1073741822 1103515244) -> 1184890468697334568) ((2108 . 5625) (* 1073741822 1103515245) -> 1184890469771076390) ((2109 . 5625) (* 1073741822 1103515246) -> 1184890470844818212) ((2110 . 5625) (* 1073741822 1103515247) -> 1184890471918560034) ((2111 . 5625) (* 1073741823 1103515243) -> 1184890468727107989) ((2112 . 5625) (* 1073741823 1103515244) -> 1184890469800849812) ((2113 . 5625) (* 1073741823 1103515245) -> 1184890470874591635) ((2114 . 5625) (* 1073741823 1103515246) -> 1184890471948333458) ((2115 . 5625) (* 1073741823 1103515247) -> 1184890473022075281) ((2116 . 5625) (* 1073741824 1103515243) -> 1184890469830623232) ((2117 . 5625) (* 1073741824 1103515244) -> 1184890470904365056) ((2118 . 5625) (* 1073741824 1103515245) -> 1184890471978106880) ((2119 . 5625) (* 1073741824 1103515246) -> 1184890473051848704) ((2120 . 5625) (* 1073741824 1103515247) -> 1184890474125590528) ((2121 . 5625) (* 1073741825 1103515243) -> 1184890470934138475) ((2122 . 5625) (* 1073741825 1103515244) -> 1184890472007880300) ((2123 . 5625) (* 1073741825 1103515245) -> 1184890473081622125) ((2124 . 5625) (* 1073741825 1103515246) -> 1184890474155363950) ((2125 . 5625) (* 1073741825 1103515247) -> 1184890475229105775) ((2126 . 5625) (* 1073741821 631629063) -> 678206540302143723) ((2127 . 5625) (* 1073741821 631629064) -> 678206541375885544) ((2128 . 5625) (* 1073741821 631629065) -> 678206542449627365) ((2129 . 5625) (* 1073741821 631629066) -> 678206543523369186) ((2130 . 5625) (* 1073741821 631629067) -> 678206544597111007) ((2131 . 5625) (* 1073741822 631629063) -> 678206540933772786) ((2132 . 5625) (* 1073741822 631629064) -> 678206542007514608) ((2133 . 5625) (* 1073741822 631629065) -> 678206543081256430) ((2134 . 5625) (* 1073741822 631629066) -> 678206544154998252) ((2135 . 5625) (* 1073741822 631629067) -> 678206545228740074) ((2136 . 5625) (* 1073741823 631629063) -> 678206541565401849) ((2137 . 5625) (* 1073741823 631629064) -> 678206542639143672) ((2138 . 5625) (* 1073741823 631629065) -> 678206543712885495) ((2139 . 5625) (* 1073741823 631629066) -> 678206544786627318) ((2140 . 5625) (* 1073741823 631629067) -> 678206545860369141) ((2141 . 5625) (* 1073741824 631629063) -> 678206542197030912) ((2142 . 5625) (* 1073741824 631629064) -> 678206543270772736) ((2143 . 5625) (* 1073741824 631629065) -> 678206544344514560) ((2144 . 5625) (* 1073741824 631629066) -> 678206545418256384) ((2145 . 5625) (* 1073741824 631629067) -> 678206546491998208) ((2146 . 5625) (* 1073741825 631629063) -> 678206542828659975) ((2147 . 5625) (* 1073741825 631629064) -> 678206543902401800) ((2148 . 5625) (* 1073741825 631629065) -> 678206544976143625) ((2149 . 5625) (* 1073741825 631629066) -> 678206546049885450) ((2150 . 5625) (* 1073741825 631629067) -> 678206547123627275) ((2151 . 5625) (* 1073741821 9007199254740990) -> 9671406529895433485942790) ((2152 . 5625) (* 1073741821 9007199254740991) -> 9671406529895434559684611) ((2153 . 5625) (* 1073741821 9007199254740992) -> 9671406529895435633426432) ((2154 . 5625) (* 1073741821 9007199254740993) -> 9671406529895436707168253) ((2155 . 5625) (* 1073741821 9007199254740994) -> 9671406529895437780910074) ((2156 . 5625) (* 1073741822 9007199254740990) -> 9671406538902632740683780) ((2157 . 5625) (* 1073741822 9007199254740991) -> 9671406538902633814425602) ((2158 . 5625) (* 1073741822 9007199254740992) -> 9671406538902634888167424) ((2159 . 5625) (* 1073741822 9007199254740993) -> 9671406538902635961909246) ((2160 . 5625) (* 1073741822 9007199254740994) -> 9671406538902637035651068) ((2161 . 5625) (* 1073741823 9007199254740990) -> 9671406547909831995424770) ((2162 . 5625) (* 1073741823 9007199254740991) -> 9671406547909833069166593) ((2163 . 5625) (* 1073741823 9007199254740992) -> 9671406547909834142908416) ((2164 . 5625) (* 1073741823 9007199254740993) -> 9671406547909835216650239) ((2165 . 5625) (* 1073741823 9007199254740994) -> 9671406547909836290392062) ((2166 . 5625) (* 1073741824 9007199254740990) -> 9671406556917031250165760) ((2167 . 5625) (* 1073741824 9007199254740991) -> 9671406556917032323907584) ((2168 . 5625) (* 1073741824 9007199254740992) -> 9671406556917033397649408) ((2169 . 5625) (* 1073741824 9007199254740993) -> 9671406556917034471391232) ((2170 . 5625) (* 1073741824 9007199254740994) -> 9671406556917035545133056) ((2171 . 5625) (* 1073741825 9007199254740990) -> 9671406565924230504906750) ((2172 . 5625) (* 1073741825 9007199254740991) -> 9671406565924231578648575) ((2173 . 5625) (* 1073741825 9007199254740992) -> 9671406565924232652390400) ((2174 . 5625) (* 1073741825 9007199254740993) -> 9671406565924233726132225) ((2175 . 5625) (* 1073741825 9007199254740994) -> 9671406565924234799874050) ((2176 . 5625) (* 1073741821 -9007199254740994) -> -9671406529895437780910074) ((2177 . 5625) (* 1073741821 -9007199254740993) -> -9671406529895436707168253) ((2178 . 5625) (* 1073741821 -9007199254740992) -> -9671406529895435633426432) ((2179 . 5625) (* 1073741821 -9007199254740991) -> -9671406529895434559684611) ((2180 . 5625) (* 1073741821 -9007199254740990) -> -9671406529895433485942790) ((2181 . 5625) (* 1073741822 -9007199254740994) -> -9671406538902637035651068) ((2182 . 5625) (* 1073741822 -9007199254740993) -> -9671406538902635961909246) ((2183 . 5625) (* 1073741822 -9007199254740992) -> -9671406538902634888167424) ((2184 . 5625) (* 1073741822 -9007199254740991) -> -9671406538902633814425602) ((2185 . 5625) (* 1073741822 -9007199254740990) -> -9671406538902632740683780) ((2186 . 5625) (* 1073741823 -9007199254740994) -> -9671406547909836290392062) ((2187 . 5625) (* 1073741823 -9007199254740993) -> -9671406547909835216650239) ((2188 . 5625) (* 1073741823 -9007199254740992) -> -9671406547909834142908416) ((2189 . 5625) (* 1073741823 -9007199254740991) -> -9671406547909833069166593) ((2190 . 5625) (* 1073741823 -9007199254740990) -> -9671406547909831995424770) ((2191 . 5625) (* 1073741824 -9007199254740994) -> -9671406556917035545133056) ((2192 . 5625) (* 1073741824 -9007199254740993) -> -9671406556917034471391232) ((2193 . 5625) (* 1073741824 -9007199254740992) -> -9671406556917033397649408) ((2194 . 5625) (* 1073741824 -9007199254740991) -> -9671406556917032323907584) ((2195 . 5625) (* 1073741824 -9007199254740990) -> -9671406556917031250165760) ((2196 . 5625) (* 1073741825 -9007199254740994) -> -9671406565924234799874050) ((2197 . 5625) (* 1073741825 -9007199254740993) -> -9671406565924233726132225) ((2198 . 5625) (* 1073741825 -9007199254740992) -> -9671406565924232652390400) ((2199 . 5625) (* 1073741825 -9007199254740991) -> -9671406565924231578648575) ((2200 . 5625) (* 1073741825 -9007199254740990) -> -9671406565924230504906750) ((2201 . 5625) (* 1073741821 12343) -> 13253195296603) ((2202 . 5625) (* 1073741821 12344) -> 13254269038424) ((2203 . 5625) (* 1073741821 12345) -> 13255342780245) ((2204 . 5625) (* 1073741821 12346) -> 13256416522066) ((2205 . 5625) (* 1073741821 12347) -> 13257490263887) ((2206 . 5625) (* 1073741822 12343) -> 13253195308946) ((2207 . 5625) (* 1073741822 12344) -> 13254269050768) ((2208 . 5625) (* 1073741822 12345) -> 13255342792590) ((2209 . 5625) (* 1073741822 12346) -> 13256416534412) ((2210 . 5625) (* 1073741822 12347) -> 13257490276234) ((2211 . 5625) (* 1073741823 12343) -> 13253195321289) ((2212 . 5625) (* 1073741823 12344) -> 13254269063112) ((2213 . 5625) (* 1073741823 12345) -> 13255342804935) ((2214 . 5625) (* 1073741823 12346) -> 13256416546758) ((2215 . 5625) (* 1073741823 12347) -> 13257490288581) ((2216 . 5625) (* 1073741824 12343) -> 13253195333632) ((2217 . 5625) (* 1073741824 12344) -> 13254269075456) ((2218 . 5625) (* 1073741824 12345) -> 13255342817280) ((2219 . 5625) (* 1073741824 12346) -> 13256416559104) ((2220 . 5625) (* 1073741824 12347) -> 13257490300928) ((2221 . 5625) (* 1073741825 12343) -> 13253195345975) ((2222 . 5625) (* 1073741825 12344) -> 13254269087800) ((2223 . 5625) (* 1073741825 12345) -> 13255342829625) ((2224 . 5625) (* 1073741825 12346) -> 13256416571450) ((2225 . 5625) (* 1073741825 12347) -> 13257490313275) ((2226 . 5625) (* 1073741821 4294967294) -> 4611686003395002374) ((2227 . 5625) (* 1073741821 4294967295) -> 4611686004468744195) ((2228 . 5625) (* 1073741821 4294967296) -> 4611686005542486016) ((2229 . 5625) (* 1073741821 4294967297) -> 4611686006616227837) ((2230 . 5625) (* 1073741821 4294967298) -> 4611686007689969658) ((2231 . 5625) (* 1073741822 4294967294) -> 4611686007689969668) ((2232 . 5625) (* 1073741822 4294967295) -> 4611686008763711490) ((2233 . 5625) (* 1073741822 4294967296) -> 4611686009837453312) ((2234 . 5625) (* 1073741822 4294967297) -> 4611686010911195134) ((2235 . 5625) (* 1073741822 4294967298) -> 4611686011984936956) ((2236 . 5625) (* 1073741823 4294967294) -> 4611686011984936962) ((2237 . 5625) (* 1073741823 4294967295) -> 4611686013058678785) ((2238 . 5625) (* 1073741823 4294967296) -> 4611686014132420608) ((2239 . 5625) (* 1073741823 4294967297) -> 4611686015206162431) ((2240 . 5625) (* 1073741823 4294967298) -> 4611686016279904254) ((2241 . 5625) (* 1073741824 4294967294) -> 4611686016279904256) ((2242 . 5625) (* 1073741824 4294967295) -> 4611686017353646080) ((2243 . 5625) (* 1073741824 4294967296) -> 4611686018427387904) ((2244 . 5625) (* 1073741824 4294967297) -> 4611686019501129728) ((2245 . 5625) (* 1073741824 4294967298) -> 4611686020574871552) ((2246 . 5625) (* 1073741825 4294967294) -> 4611686020574871550) ((2247 . 5625) (* 1073741825 4294967295) -> 4611686021648613375) ((2248 . 5625) (* 1073741825 4294967296) -> 4611686022722355200) ((2249 . 5625) (* 1073741825 4294967297) -> 4611686023796097025) ((2250 . 5625) (* 1073741825 4294967298) -> 4611686024869838850) ((2251 . 5625) (* -1073741826 -2) -> 2147483652) ((2252 . 5625) (* -1073741826 -1) -> 1073741826) ((2253 . 5625) (* -1073741826 0) -> 0) ((2254 . 5625) (* -1073741826 1) -> -1073741826) ((2255 . 5625) (* -1073741826 2) -> -2147483652) ((2256 . 5625) (* -1073741825 -2) -> 2147483650) ((2257 . 5625) (* -1073741825 -1) -> 1073741825) ((2258 . 5625) (* -1073741825 0) -> 0) ((2259 . 5625) (* -1073741825 1) -> -1073741825) ((2260 . 5625) (* -1073741825 2) -> -2147483650) ((2261 . 5625) (* -1073741824 -2) -> 2147483648) ((2262 . 5625) (* -1073741824 -1) -> 1073741824) ((2263 . 5625) (* -1073741824 0) -> 0) ((2264 . 5625) (* -1073741824 1) -> -1073741824) ((2265 . 5625) (* -1073741824 2) -> -2147483648) ((2266 . 5625) (* -1073741823 -2) -> 2147483646) ((2267 . 5625) (* -1073741823 -1) -> 1073741823) ((2268 . 5625) (* -1073741823 0) -> 0) ((2269 . 5625) (* -1073741823 1) -> -1073741823) ((2270 . 5625) (* -1073741823 2) -> -2147483646) ((2271 . 5625) (* -1073741822 -2) -> 2147483644) ((2272 . 5625) (* -1073741822 -1) -> 1073741822) ((2273 . 5625) (* -1073741822 0) -> 0) ((2274 . 5625) (* -1073741822 1) -> -1073741822) ((2275 . 5625) (* -1073741822 2) -> -2147483644) ((2276 . 5625) (* -1073741826 -1) -> 1073741826) ((2277 . 5625) (* -1073741826 0) -> 0) ((2278 . 5625) (* -1073741826 1) -> -1073741826) ((2279 . 5625) (* -1073741826 2) -> -2147483652) ((2280 . 5625) (* -1073741826 3) -> -3221225478) ((2281 . 5625) (* -1073741825 -1) -> 1073741825) ((2282 . 5625) (* -1073741825 0) -> 0) ((2283 . 5625) (* -1073741825 1) -> -1073741825) ((2284 . 5625) (* -1073741825 2) -> -2147483650) ((2285 . 5625) (* -1073741825 3) -> -3221225475) ((2286 . 5625) (* -1073741824 -1) -> 1073741824) ((2287 . 5625) (* -1073741824 0) -> 0) ((2288 . 5625) (* -1073741824 1) -> -1073741824) ((2289 . 5625) (* -1073741824 2) -> -2147483648) ((2290 . 5625) (* -1073741824 3) -> -3221225472) ((2291 . 5625) (* -1073741823 -1) -> 1073741823) ((2292 . 5625) (* -1073741823 0) -> 0) ((2293 . 5625) (* -1073741823 1) -> -1073741823) ((2294 . 5625) (* -1073741823 2) -> -2147483646) ((2295 . 5625) (* -1073741823 3) -> -3221225469) ((2296 . 5625) (* -1073741822 -1) -> 1073741822) ((2297 . 5625) (* -1073741822 0) -> 0) ((2298 . 5625) (* -1073741822 1) -> -1073741822) ((2299 . 5625) (* -1073741822 2) -> -2147483644) ((2300 . 5625) (* -1073741822 3) -> -3221225466) ((2301 . 5625) (* -1073741826 -3) -> 3221225478) ((2302 . 5625) (* -1073741826 -2) -> 2147483652) ((2303 . 5625) (* -1073741826 -1) -> 1073741826) ((2304 . 5625) (* -1073741826 0) -> 0) ((2305 . 5625) (* -1073741826 1) -> -1073741826) ((2306 . 5625) (* -1073741825 -3) -> 3221225475) ((2307 . 5625) (* -1073741825 -2) -> 2147483650) ((2308 . 5625) (* -1073741825 -1) -> 1073741825) ((2309 . 5625) (* -1073741825 0) -> 0) ((2310 . 5625) (* -1073741825 1) -> -1073741825) ((2311 . 5625) (* -1073741824 -3) -> 3221225472) ((2312 . 5625) (* -1073741824 -2) -> 2147483648) ((2313 . 5625) (* -1073741824 -1) -> 1073741824) ((2314 . 5625) (* -1073741824 0) -> 0) ((2315 . 5625) (* -1073741824 1) -> -1073741824) ((2316 . 5625) (* -1073741823 -3) -> 3221225469) ((2317 . 5625) (* -1073741823 -2) -> 2147483646) ((2318 . 5625) (* -1073741823 -1) -> 1073741823) ((2319 . 5625) (* -1073741823 0) -> 0) ((2320 . 5625) (* -1073741823 1) -> -1073741823) ((2321 . 5625) (* -1073741822 -3) -> 3221225466) ((2322 . 5625) (* -1073741822 -2) -> 2147483644) ((2323 . 5625) (* -1073741822 -1) -> 1073741822) ((2324 . 5625) (* -1073741822 0) -> 0) ((2325 . 5625) (* -1073741822 1) -> -1073741822) ((2326 . 5625) (* -1073741826 0) -> 0) ((2327 . 5625) (* -1073741826 1) -> -1073741826) ((2328 . 5625) (* -1073741826 2) -> -2147483652) ((2329 . 5625) (* -1073741826 3) -> -3221225478) ((2330 . 5625) (* -1073741826 4) -> -4294967304) ((2331 . 5625) (* -1073741825 0) -> 0) ((2332 . 5625) (* -1073741825 1) -> -1073741825) ((2333 . 5625) (* -1073741825 2) -> -2147483650) ((2334 . 5625) (* -1073741825 3) -> -3221225475) ((2335 . 5625) (* -1073741825 4) -> -4294967300) ((2336 . 5625) (* -1073741824 0) -> 0) ((2337 . 5625) (* -1073741824 1) -> -1073741824) ((2338 . 5625) (* -1073741824 2) -> -2147483648) ((2339 . 5625) (* -1073741824 3) -> -3221225472) ((2340 . 5625) (* -1073741824 4) -> -4294967296) ((2341 . 5625) (* -1073741823 0) -> 0) ((2342 . 5625) (* -1073741823 1) -> -1073741823) ((2343 . 5625) (* -1073741823 2) -> -2147483646) ((2344 . 5625) (* -1073741823 3) -> -3221225469) ((2345 . 5625) (* -1073741823 4) -> -4294967292) ((2346 . 5625) (* -1073741822 0) -> 0) ((2347 . 5625) (* -1073741822 1) -> -1073741822) ((2348 . 5625) (* -1073741822 2) -> -2147483644) ((2349 . 5625) (* -1073741822 3) -> -3221225466) ((2350 . 5625) (* -1073741822 4) -> -4294967288) ((2351 . 5625) (* -1073741826 -4) -> 4294967304) ((2352 . 5625) (* -1073741826 -3) -> 3221225478) ((2353 . 5625) (* -1073741826 -2) -> 2147483652) ((2354 . 5625) (* -1073741826 -1) -> 1073741826) ((2355 . 5625) (* -1073741826 0) -> 0) ((2356 . 5625) (* -1073741825 -4) -> 4294967300) ((2357 . 5625) (* -1073741825 -3) -> 3221225475) ((2358 . 5625) (* -1073741825 -2) -> 2147483650) ((2359 . 5625) (* -1073741825 -1) -> 1073741825) ((2360 . 5625) (* -1073741825 0) -> 0) ((2361 . 5625) (* -1073741824 -4) -> 4294967296) ((2362 . 5625) (* -1073741824 -3) -> 3221225472) ((2363 . 5625) (* -1073741824 -2) -> 2147483648) ((2364 . 5625) (* -1073741824 -1) -> 1073741824) ((2365 . 5625) (* -1073741824 0) -> 0) ((2366 . 5625) (* -1073741823 -4) -> 4294967292) ((2367 . 5625) (* -1073741823 -3) -> 3221225469) ((2368 . 5625) (* -1073741823 -2) -> 2147483646) ((2369 . 5625) (* -1073741823 -1) -> 1073741823) ((2370 . 5625) (* -1073741823 0) -> 0) ((2371 . 5625) (* -1073741822 -4) -> 4294967288) ((2372 . 5625) (* -1073741822 -3) -> 3221225466) ((2373 . 5625) (* -1073741822 -2) -> 2147483644) ((2374 . 5625) (* -1073741822 -1) -> 1073741822) ((2375 . 5625) (* -1073741822 0) -> 0) ((2376 . 5625) (* -1073741826 1073741821) -> -1152921503533105146) ((2377 . 5625) (* -1073741826 1073741822) -> -1152921504606846972) ((2378 . 5625) (* -1073741826 1073741823) -> -1152921505680588798) ((2379 . 5625) (* -1073741826 1073741824) -> -1152921506754330624) ((2380 . 5625) (* -1073741826 1073741825) -> -1152921507828072450) ((2381 . 5625) (* -1073741825 1073741821) -> -1152921502459363325) ((2382 . 5625) (* -1073741825 1073741822) -> -1152921503533105150) ((2383 . 5625) (* -1073741825 1073741823) -> -1152921504606846975) ((2384 . 5625) (* -1073741825 1073741824) -> -1152921505680588800) ((2385 . 5625) (* -1073741825 1073741825) -> -1152921506754330625) ((2386 . 5625) (* -1073741824 1073741821) -> -1152921501385621504) ((2387 . 5625) (* -1073741824 1073741822) -> -1152921502459363328) ((2388 . 5625) (* -1073741824 1073741823) -> -1152921503533105152) ((2389 . 5625) (* -1073741824 1073741824) -> -1152921504606846976) ((2390 . 5625) (* -1073741824 1073741825) -> -1152921505680588800) ((2391 . 5625) (* -1073741823 1073741821) -> -1152921500311879683) ((2392 . 5625) (* -1073741823 1073741822) -> -1152921501385621506) ((2393 . 5625) (* -1073741823 1073741823) -> -1152921502459363329) ((2394 . 5625) (* -1073741823 1073741824) -> -1152921503533105152) ((2395 . 5625) (* -1073741823 1073741825) -> -1152921504606846975) ((2396 . 5625) (* -1073741822 1073741821) -> -1152921499238137862) ((2397 . 5625) (* -1073741822 1073741822) -> -1152921500311879684) ((2398 . 5625) (* -1073741822 1073741823) -> -1152921501385621506) ((2399 . 5625) (* -1073741822 1073741824) -> -1152921502459363328) ((2400 . 5625) (* -1073741822 1073741825) -> -1152921503533105150) ((2401 . 5625) (* -1073741826 -1073741826) -> 1152921508901814276) ((2402 . 5625) (* -1073741826 -1073741825) -> 1152921507828072450) ((2403 . 5625) (* -1073741826 -1073741824) -> 1152921506754330624) ((2404 . 5625) (* -1073741826 -1073741823) -> 1152921505680588798) ((2405 . 5625) (* -1073741826 -1073741822) -> 1152921504606846972) ((2406 . 5625) (* -1073741825 -1073741826) -> 1152921507828072450) ((2407 . 5625) (* -1073741825 -1073741825) -> 1152921506754330625) ((2408 . 5625) (* -1073741825 -1073741824) -> 1152921505680588800) ((2409 . 5625) (* -1073741825 -1073741823) -> 1152921504606846975) ((2410 . 5625) (* -1073741825 -1073741822) -> 1152921503533105150) ((2411 . 5625) (* -1073741824 -1073741826) -> 1152921506754330624) ((2412 . 5625) (* -1073741824 -1073741825) -> 1152921505680588800) ((2413 . 5625) (* -1073741824 -1073741824) -> 1152921504606846976) ((2414 . 5625) (* -1073741824 -1073741823) -> 1152921503533105152) ((2415 . 5625) (* -1073741824 -1073741822) -> 1152921502459363328) ((2416 . 5625) (* -1073741823 -1073741826) -> 1152921505680588798) ((2417 . 5625) (* -1073741823 -1073741825) -> 1152921504606846975) ((2418 . 5625) (* -1073741823 -1073741824) -> 1152921503533105152) ((2419 . 5625) (* -1073741823 -1073741823) -> 1152921502459363329) ((2420 . 5625) (* -1073741823 -1073741822) -> 1152921501385621506) ((2421 . 5625) (* -1073741822 -1073741826) -> 1152921504606846972) ((2422 . 5625) (* -1073741822 -1073741825) -> 1152921503533105150) ((2423 . 5625) (* -1073741822 -1073741824) -> 1152921502459363328) ((2424 . 5625) (* -1073741822 -1073741823) -> 1152921501385621506) ((2425 . 5625) (* -1073741822 -1073741822) -> 1152921500311879684) ((2426 . 5625) (* -1073741826 1073741822) -> -1152921504606846972) ((2427 . 5625) (* -1073741826 1073741823) -> -1152921505680588798) ((2428 . 5625) (* -1073741826 1073741824) -> -1152921506754330624) ((2429 . 5625) (* -1073741826 1073741825) -> -1152921507828072450) ((2430 . 5625) (* -1073741826 1073741826) -> -1152921508901814276) ((2431 . 5625) (* -1073741825 1073741822) -> -1152921503533105150) ((2432 . 5625) (* -1073741825 1073741823) -> -1152921504606846975) ((2433 . 5625) (* -1073741825 1073741824) -> -1152921505680588800) ((2434 . 5625) (* -1073741825 1073741825) -> -1152921506754330625) ((2435 . 5625) (* -1073741825 1073741826) -> -1152921507828072450) ((2436 . 5625) (* -1073741824 1073741822) -> -1152921502459363328) ((2437 . 5625) (* -1073741824 1073741823) -> -1152921503533105152) ((2438 . 5625) (* -1073741824 1073741824) -> -1152921504606846976) ((2439 . 5625) (* -1073741824 1073741825) -> -1152921505680588800) ((2440 . 5625) (* -1073741824 1073741826) -> -1152921506754330624) ((2441 . 5625) (* -1073741823 1073741822) -> -1152921501385621506) ((2442 . 5625) (* -1073741823 1073741823) -> -1152921502459363329) ((2443 . 5625) (* -1073741823 1073741824) -> -1152921503533105152) ((2444 . 5625) (* -1073741823 1073741825) -> -1152921504606846975) ((2445 . 5625) (* -1073741823 1073741826) -> -1152921505680588798) ((2446 . 5625) (* -1073741822 1073741822) -> -1152921500311879684) ((2447 . 5625) (* -1073741822 1073741823) -> -1152921501385621506) ((2448 . 5625) (* -1073741822 1073741824) -> -1152921502459363328) ((2449 . 5625) (* -1073741822 1073741825) -> -1152921503533105150) ((2450 . 5625) (* -1073741822 1073741826) -> -1152921504606846972) ((2451 . 5625) (* -1073741826 -1073741827) -> 1152921509975556102) ((2452 . 5625) (* -1073741826 -1073741826) -> 1152921508901814276) ((2453 . 5625) (* -1073741826 -1073741825) -> 1152921507828072450) ((2454 . 5625) (* -1073741826 -1073741824) -> 1152921506754330624) ((2455 . 5625) (* -1073741826 -1073741823) -> 1152921505680588798) ((2456 . 5625) (* -1073741825 -1073741827) -> 1152921508901814275) ((2457 . 5625) (* -1073741825 -1073741826) -> 1152921507828072450) ((2458 . 5625) (* -1073741825 -1073741825) -> 1152921506754330625) ((2459 . 5625) (* -1073741825 -1073741824) -> 1152921505680588800) ((2460 . 5625) (* -1073741825 -1073741823) -> 1152921504606846975) ((2461 . 5625) (* -1073741824 -1073741827) -> 1152921507828072448) ((2462 . 5625) (* -1073741824 -1073741826) -> 1152921506754330624) ((2463 . 5625) (* -1073741824 -1073741825) -> 1152921505680588800) ((2464 . 5625) (* -1073741824 -1073741824) -> 1152921504606846976) ((2465 . 5625) (* -1073741824 -1073741823) -> 1152921503533105152) ((2466 . 5625) (* -1073741823 -1073741827) -> 1152921506754330621) ((2467 . 5625) (* -1073741823 -1073741826) -> 1152921505680588798) ((2468 . 5625) (* -1073741823 -1073741825) -> 1152921504606846975) ((2469 . 5625) (* -1073741823 -1073741824) -> 1152921503533105152) ((2470 . 5625) (* -1073741823 -1073741823) -> 1152921502459363329) ((2471 . 5625) (* -1073741822 -1073741827) -> 1152921505680588794) ((2472 . 5625) (* -1073741822 -1073741826) -> 1152921504606846972) ((2473 . 5625) (* -1073741822 -1073741825) -> 1152921503533105150) ((2474 . 5625) (* -1073741822 -1073741824) -> 1152921502459363328) ((2475 . 5625) (* -1073741822 -1073741823) -> 1152921501385621506) ((2476 . 5625) (* -1073741826 1103515243) -> -1184890472037653718) ((2477 . 5625) (* -1073741826 1103515244) -> -1184890473111395544) ((2478 . 5625) (* -1073741826 1103515245) -> -1184890474185137370) ((2479 . 5625) (* -1073741826 1103515246) -> -1184890475258879196) ((2480 . 5625) (* -1073741826 1103515247) -> -1184890476332621022) ((2481 . 5625) (* -1073741825 1103515243) -> -1184890470934138475) ((2482 . 5625) (* -1073741825 1103515244) -> -1184890472007880300) ((2483 . 5625) (* -1073741825 1103515245) -> -1184890473081622125) ((2484 . 5625) (* -1073741825 1103515246) -> -1184890474155363950) ((2485 . 5625) (* -1073741825 1103515247) -> -1184890475229105775) ((2486 . 5625) (* -1073741824 1103515243) -> -1184890469830623232) ((2487 . 5625) (* -1073741824 1103515244) -> -1184890470904365056) ((2488 . 5625) (* -1073741824 1103515245) -> -1184890471978106880) ((2489 . 5625) (* -1073741824 1103515246) -> -1184890473051848704) ((2490 . 5625) (* -1073741824 1103515247) -> -1184890474125590528) ((2491 . 5625) (* -1073741823 1103515243) -> -1184890468727107989) ((2492 . 5625) (* -1073741823 1103515244) -> -1184890469800849812) ((2493 . 5625) (* -1073741823 1103515245) -> -1184890470874591635) ((2494 . 5625) (* -1073741823 1103515246) -> -1184890471948333458) ((2495 . 5625) (* -1073741823 1103515247) -> -1184890473022075281) ((2496 . 5625) (* -1073741822 1103515243) -> -1184890467623592746) ((2497 . 5625) (* -1073741822 1103515244) -> -1184890468697334568) ((2498 . 5625) (* -1073741822 1103515245) -> -1184890469771076390) ((2499 . 5625) (* -1073741822 1103515246) -> -1184890470844818212) ((2500 . 5625) (* -1073741822 1103515247) -> -1184890471918560034) ((2501 . 5625) (* -1073741826 631629063) -> -678206543460289038) ((2502 . 5625) (* -1073741826 631629064) -> -678206544534030864) ((2503 . 5625) (* -1073741826 631629065) -> -678206545607772690) ((2504 . 5625) (* -1073741826 631629066) -> -678206546681514516) ((2505 . 5625) (* -1073741826 631629067) -> -678206547755256342) ((2506 . 5625) (* -1073741825 631629063) -> -678206542828659975) ((2507 . 5625) (* -1073741825 631629064) -> -678206543902401800) ((2508 . 5625) (* -1073741825 631629065) -> -678206544976143625) ((2509 . 5625) (* -1073741825 631629066) -> -678206546049885450) ((2510 . 5625) (* -1073741825 631629067) -> -678206547123627275) ((2511 . 5625) (* -1073741824 631629063) -> -678206542197030912) ((2512 . 5625) (* -1073741824 631629064) -> -678206543270772736) ((2513 . 5625) (* -1073741824 631629065) -> -678206544344514560) ((2514 . 5625) (* -1073741824 631629066) -> -678206545418256384) ((2515 . 5625) (* -1073741824 631629067) -> -678206546491998208) ((2516 . 5625) (* -1073741823 631629063) -> -678206541565401849) ((2517 . 5625) (* -1073741823 631629064) -> -678206542639143672) ((2518 . 5625) (* -1073741823 631629065) -> -678206543712885495) ((2519 . 5625) (* -1073741823 631629066) -> -678206544786627318) ((2520 . 5625) (* -1073741823 631629067) -> -678206545860369141) ((2521 . 5625) (* -1073741822 631629063) -> -678206540933772786) ((2522 . 5625) (* -1073741822 631629064) -> -678206542007514608) ((2523 . 5625) (* -1073741822 631629065) -> -678206543081256430) ((2524 . 5625) (* -1073741822 631629066) -> -678206544154998252) ((2525 . 5625) (* -1073741822 631629067) -> -678206545228740074) ((2526 . 5625) (* -1073741826 9007199254740990) -> -9671406574931429759647740) ((2527 . 5625) (* -1073741826 9007199254740991) -> -9671406574931430833389566) ((2528 . 5625) (* -1073741826 9007199254740992) -> -9671406574931431907131392) ((2529 . 5625) (* -1073741826 9007199254740993) -> -9671406574931432980873218) ((2530 . 5625) (* -1073741826 9007199254740994) -> -9671406574931434054615044) ((2531 . 5625) (* -1073741825 9007199254740990) -> -9671406565924230504906750) ((2532 . 5625) (* -1073741825 9007199254740991) -> -9671406565924231578648575) ((2533 . 5625) (* -1073741825 9007199254740992) -> -9671406565924232652390400) ((2534 . 5625) (* -1073741825 9007199254740993) -> -9671406565924233726132225) ((2535 . 5625) (* -1073741825 9007199254740994) -> -9671406565924234799874050) ((2536 . 5625) (* -1073741824 9007199254740990) -> -9671406556917031250165760) ((2537 . 5625) (* -1073741824 9007199254740991) -> -9671406556917032323907584) ((2538 . 5625) (* -1073741824 9007199254740992) -> -9671406556917033397649408) ((2539 . 5625) (* -1073741824 9007199254740993) -> -9671406556917034471391232) ((2540 . 5625) (* -1073741824 9007199254740994) -> -9671406556917035545133056) ((2541 . 5625) (* -1073741823 9007199254740990) -> -9671406547909831995424770) ((2542 . 5625) (* -1073741823 9007199254740991) -> -9671406547909833069166593) ((2543 . 5625) (* -1073741823 9007199254740992) -> -9671406547909834142908416) ((2544 . 5625) (* -1073741823 9007199254740993) -> -9671406547909835216650239) ((2545 . 5625) (* -1073741823 9007199254740994) -> -9671406547909836290392062) ((2546 . 5625) (* -1073741822 9007199254740990) -> -9671406538902632740683780) ((2547 . 5625) (* -1073741822 9007199254740991) -> -9671406538902633814425602) ((2548 . 5625) (* -1073741822 9007199254740992) -> -9671406538902634888167424) ((2549 . 5625) (* -1073741822 9007199254740993) -> -9671406538902635961909246) ((2550 . 5625) (* -1073741822 9007199254740994) -> -9671406538902637035651068) ((2551 . 5625) (* -1073741826 -9007199254740994) -> 9671406574931434054615044) ((2552 . 5625) (* -1073741826 -9007199254740993) -> 9671406574931432980873218) ((2553 . 5625) (* -1073741826 -9007199254740992) -> 9671406574931431907131392) ((2554 . 5625) (* -1073741826 -9007199254740991) -> 9671406574931430833389566) ((2555 . 5625) (* -1073741826 -9007199254740990) -> 9671406574931429759647740) ((2556 . 5625) (* -1073741825 -9007199254740994) -> 9671406565924234799874050) ((2557 . 5625) (* -1073741825 -9007199254740993) -> 9671406565924233726132225) ((2558 . 5625) (* -1073741825 -9007199254740992) -> 9671406565924232652390400) ((2559 . 5625) (* -1073741825 -9007199254740991) -> 9671406565924231578648575) ((2560 . 5625) (* -1073741825 -9007199254740990) -> 9671406565924230504906750) ((2561 . 5625) (* -1073741824 -9007199254740994) -> 9671406556917035545133056) ((2562 . 5625) (* -1073741824 -9007199254740993) -> 9671406556917034471391232) ((2563 . 5625) (* -1073741824 -9007199254740992) -> 9671406556917033397649408) ((2564 . 5625) (* -1073741824 -9007199254740991) -> 9671406556917032323907584) ((2565 . 5625) (* -1073741824 -9007199254740990) -> 9671406556917031250165760) ((2566 . 5625) (* -1073741823 -9007199254740994) -> 9671406547909836290392062) ((2567 . 5625) (* -1073741823 -9007199254740993) -> 9671406547909835216650239) ((2568 . 5625) (* -1073741823 -9007199254740992) -> 9671406547909834142908416) ((2569 . 5625) (* -1073741823 -9007199254740991) -> 9671406547909833069166593) ((2570 . 5625) (* -1073741823 -9007199254740990) -> 9671406547909831995424770) ((2571 . 5625) (* -1073741822 -9007199254740994) -> 9671406538902637035651068) ((2572 . 5625) (* -1073741822 -9007199254740993) -> 9671406538902635961909246) ((2573 . 5625) (* -1073741822 -9007199254740992) -> 9671406538902634888167424) ((2574 . 5625) (* -1073741822 -9007199254740991) -> 9671406538902633814425602) ((2575 . 5625) (* -1073741822 -9007199254740990) -> 9671406538902632740683780) ((2576 . 5625) (* -1073741826 12343) -> -13253195358318) ((2577 . 5625) (* -1073741826 12344) -> -13254269100144) ((2578 . 5625) (* -1073741826 12345) -> -13255342841970) ((2579 . 5625) (* -1073741826 12346) -> -13256416583796) ((2580 . 5625) (* -1073741826 12347) -> -13257490325622) ((2581 . 5625) (* -1073741825 12343) -> -13253195345975) ((2582 . 5625) (* -1073741825 12344) -> -13254269087800) ((2583 . 5625) (* -1073741825 12345) -> -13255342829625) ((2584 . 5625) (* -1073741825 12346) -> -13256416571450) ((2585 . 5625) (* -1073741825 12347) -> -13257490313275) ((2586 . 5625) (* -1073741824 12343) -> -13253195333632) ((2587 . 5625) (* -1073741824 12344) -> -13254269075456) ((2588 . 5625) (* -1073741824 12345) -> -13255342817280) ((2589 . 5625) (* -1073741824 12346) -> -13256416559104) ((2590 . 5625) (* -1073741824 12347) -> -13257490300928) ((2591 . 5625) (* -1073741823 12343) -> -13253195321289) ((2592 . 5625) (* -1073741823 12344) -> -13254269063112) ((2593 . 5625) (* -1073741823 12345) -> -13255342804935) ((2594 . 5625) (* -1073741823 12346) -> -13256416546758) ((2595 . 5625) (* -1073741823 12347) -> -13257490288581) ((2596 . 5625) (* -1073741822 12343) -> -13253195308946) ((2597 . 5625) (* -1073741822 12344) -> -13254269050768) ((2598 . 5625) (* -1073741822 12345) -> -13255342792590) ((2599 . 5625) (* -1073741822 12346) -> -13256416534412) ((2600 . 5625) (* -1073741822 12347) -> -13257490276234) ((2601 . 5625) (* -1073741826 4294967294) -> -4611686024869838844) ((2602 . 5625) (* -1073741826 4294967295) -> -4611686025943580670) ((2603 . 5625) (* -1073741826 4294967296) -> -4611686027017322496) ((2604 . 5625) (* -1073741826 4294967297) -> -4611686028091064322) ((2605 . 5625) (* -1073741826 4294967298) -> -4611686029164806148) ((2606 . 5625) (* -1073741825 4294967294) -> -4611686020574871550) ((2607 . 5625) (* -1073741825 4294967295) -> -4611686021648613375) ((2608 . 5625) (* -1073741825 4294967296) -> -4611686022722355200) ((2609 . 5625) (* -1073741825 4294967297) -> -4611686023796097025) ((2610 . 5625) (* -1073741825 4294967298) -> -4611686024869838850) ((2611 . 5625) (* -1073741824 4294967294) -> -4611686016279904256) ((2612 . 5625) (* -1073741824 4294967295) -> -4611686017353646080) ((2613 . 5625) (* -1073741824 4294967296) -> -4611686018427387904) ((2614 . 5625) (* -1073741824 4294967297) -> -4611686019501129728) ((2615 . 5625) (* -1073741824 4294967298) -> -4611686020574871552) ((2616 . 5625) (* -1073741823 4294967294) -> -4611686011984936962) ((2617 . 5625) (* -1073741823 4294967295) -> -4611686013058678785) ((2618 . 5625) (* -1073741823 4294967296) -> -4611686014132420608) ((2619 . 5625) (* -1073741823 4294967297) -> -4611686015206162431) ((2620 . 5625) (* -1073741823 4294967298) -> -4611686016279904254) ((2621 . 5625) (* -1073741822 4294967294) -> -4611686007689969668) ((2622 . 5625) (* -1073741822 4294967295) -> -4611686008763711490) ((2623 . 5625) (* -1073741822 4294967296) -> -4611686009837453312) ((2624 . 5625) (* -1073741822 4294967297) -> -4611686010911195134) ((2625 . 5625) (* -1073741822 4294967298) -> -4611686011984936956) ((2626 . 5625) (* 1073741822 -2) -> -2147483644) ((2627 . 5625) (* 1073741822 -1) -> -1073741822) ((2628 . 5625) (* 1073741822 0) -> 0) ((2629 . 5625) (* 1073741822 1) -> 1073741822) ((2630 . 5625) (* 1073741822 2) -> 2147483644) ((2631 . 5625) (* 1073741823 -2) -> -2147483646) ((2632 . 5625) (* 1073741823 -1) -> -1073741823) ((2633 . 5625) (* 1073741823 0) -> 0) ((2634 . 5625) (* 1073741823 1) -> 1073741823) ((2635 . 5625) (* 1073741823 2) -> 2147483646) ((2636 . 5625) (* 1073741824 -2) -> -2147483648) ((2637 . 5625) (* 1073741824 -1) -> -1073741824) ((2638 . 5625) (* 1073741824 0) -> 0) ((2639 . 5625) (* 1073741824 1) -> 1073741824) ((2640 . 5625) (* 1073741824 2) -> 2147483648) ((2641 . 5625) (* 1073741825 -2) -> -2147483650) ((2642 . 5625) (* 1073741825 -1) -> -1073741825) ((2643 . 5625) (* 1073741825 0) -> 0) ((2644 . 5625) (* 1073741825 1) -> 1073741825) ((2645 . 5625) (* 1073741825 2) -> 2147483650) ((2646 . 5625) (* 1073741826 -2) -> -2147483652) ((2647 . 5625) (* 1073741826 -1) -> -1073741826) ((2648 . 5625) (* 1073741826 0) -> 0) ((2649 . 5625) (* 1073741826 1) -> 1073741826) ((2650 . 5625) (* 1073741826 2) -> 2147483652) ((2651 . 5625) (* 1073741822 -1) -> -1073741822) ((2652 . 5625) (* 1073741822 0) -> 0) ((2653 . 5625) (* 1073741822 1) -> 1073741822) ((2654 . 5625) (* 1073741822 2) -> 2147483644) ((2655 . 5625) (* 1073741822 3) -> 3221225466) ((2656 . 5625) (* 1073741823 -1) -> -1073741823) ((2657 . 5625) (* 1073741823 0) -> 0) ((2658 . 5625) (* 1073741823 1) -> 1073741823) ((2659 . 5625) (* 1073741823 2) -> 2147483646) ((2660 . 5625) (* 1073741823 3) -> 3221225469) ((2661 . 5625) (* 1073741824 -1) -> -1073741824) ((2662 . 5625) (* 1073741824 0) -> 0) ((2663 . 5625) (* 1073741824 1) -> 1073741824) ((2664 . 5625) (* 1073741824 2) -> 2147483648) ((2665 . 5625) (* 1073741824 3) -> 3221225472) ((2666 . 5625) (* 1073741825 -1) -> -1073741825) ((2667 . 5625) (* 1073741825 0) -> 0) ((2668 . 5625) (* 1073741825 1) -> 1073741825) ((2669 . 5625) (* 1073741825 2) -> 2147483650) ((2670 . 5625) (* 1073741825 3) -> 3221225475) ((2671 . 5625) (* 1073741826 -1) -> -1073741826) ((2672 . 5625) (* 1073741826 0) -> 0) ((2673 . 5625) (* 1073741826 1) -> 1073741826) ((2674 . 5625) (* 1073741826 2) -> 2147483652) ((2675 . 5625) (* 1073741826 3) -> 3221225478) ((2676 . 5625) (* 1073741822 -3) -> -3221225466) ((2677 . 5625) (* 1073741822 -2) -> -2147483644) ((2678 . 5625) (* 1073741822 -1) -> -1073741822) ((2679 . 5625) (* 1073741822 0) -> 0) ((2680 . 5625) (* 1073741822 1) -> 1073741822) ((2681 . 5625) (* 1073741823 -3) -> -3221225469) ((2682 . 5625) (* 1073741823 -2) -> -2147483646) ((2683 . 5625) (* 1073741823 -1) -> -1073741823) ((2684 . 5625) (* 1073741823 0) -> 0) ((2685 . 5625) (* 1073741823 1) -> 1073741823) ((2686 . 5625) (* 1073741824 -3) -> -3221225472) ((2687 . 5625) (* 1073741824 -2) -> -2147483648) ((2688 . 5625) (* 1073741824 -1) -> -1073741824) ((2689 . 5625) (* 1073741824 0) -> 0) ((2690 . 5625) (* 1073741824 1) -> 1073741824) ((2691 . 5625) (* 1073741825 -3) -> -3221225475) ((2692 . 5625) (* 1073741825 -2) -> -2147483650) ((2693 . 5625) (* 1073741825 -1) -> -1073741825) ((2694 . 5625) (* 1073741825 0) -> 0) ((2695 . 5625) (* 1073741825 1) -> 1073741825) ((2696 . 5625) (* 1073741826 -3) -> -3221225478) ((2697 . 5625) (* 1073741826 -2) -> -2147483652) ((2698 . 5625) (* 1073741826 -1) -> -1073741826) ((2699 . 5625) (* 1073741826 0) -> 0) ((2700 . 5625) (* 1073741826 1) -> 1073741826) ((2701 . 5625) (* 1073741822 0) -> 0) ((2702 . 5625) (* 1073741822 1) -> 1073741822) ((2703 . 5625) (* 1073741822 2) -> 2147483644) ((2704 . 5625) (* 1073741822 3) -> 3221225466) ((2705 . 5625) (* 1073741822 4) -> 4294967288) ((2706 . 5625) (* 1073741823 0) -> 0) ((2707 . 5625) (* 1073741823 1) -> 1073741823) ((2708 . 5625) (* 1073741823 2) -> 2147483646) ((2709 . 5625) (* 1073741823 3) -> 3221225469) ((2710 . 5625) (* 1073741823 4) -> 4294967292) ((2711 . 5625) (* 1073741824 0) -> 0) ((2712 . 5625) (* 1073741824 1) -> 1073741824) ((2713 . 5625) (* 1073741824 2) -> 2147483648) ((2714 . 5625) (* 1073741824 3) -> 3221225472) ((2715 . 5625) (* 1073741824 4) -> 4294967296) ((2716 . 5625) (* 1073741825 0) -> 0) ((2717 . 5625) (* 1073741825 1) -> 1073741825) ((2718 . 5625) (* 1073741825 2) -> 2147483650) ((2719 . 5625) (* 1073741825 3) -> 3221225475) ((2720 . 5625) (* 1073741825 4) -> 4294967300) ((2721 . 5625) (* 1073741826 0) -> 0) ((2722 . 5625) (* 1073741826 1) -> 1073741826) ((2723 . 5625) (* 1073741826 2) -> 2147483652) ((2724 . 5625) (* 1073741826 3) -> 3221225478) ((2725 . 5625) (* 1073741826 4) -> 4294967304) ((2726 . 5625) (* 1073741822 -4) -> -4294967288) ((2727 . 5625) (* 1073741822 -3) -> -3221225466) ((2728 . 5625) (* 1073741822 -2) -> -2147483644) ((2729 . 5625) (* 1073741822 -1) -> -1073741822) ((2730 . 5625) (* 1073741822 0) -> 0) ((2731 . 5625) (* 1073741823 -4) -> -4294967292) ((2732 . 5625) (* 1073741823 -3) -> -3221225469) ((2733 . 5625) (* 1073741823 -2) -> -2147483646) ((2734 . 5625) (* 1073741823 -1) -> -1073741823) ((2735 . 5625) (* 1073741823 0) -> 0) ((2736 . 5625) (* 1073741824 -4) -> -4294967296) ((2737 . 5625) (* 1073741824 -3) -> -3221225472) ((2738 . 5625) (* 1073741824 -2) -> -2147483648) ((2739 . 5625) (* 1073741824 -1) -> -1073741824) ((2740 . 5625) (* 1073741824 0) -> 0) ((2741 . 5625) (* 1073741825 -4) -> -4294967300) ((2742 . 5625) (* 1073741825 -3) -> -3221225475) ((2743 . 5625) (* 1073741825 -2) -> -2147483650) ((2744 . 5625) (* 1073741825 -1) -> -1073741825) ((2745 . 5625) (* 1073741825 0) -> 0) ((2746 . 5625) (* 1073741826 -4) -> -4294967304) ((2747 . 5625) (* 1073741826 -3) -> -3221225478) ((2748 . 5625) (* 1073741826 -2) -> -2147483652) ((2749 . 5625) (* 1073741826 -1) -> -1073741826) ((2750 . 5625) (* 1073741826 0) -> 0) ((2751 . 5625) (* 1073741822 1073741821) -> 1152921499238137862) ((2752 . 5625) (* 1073741822 1073741822) -> 1152921500311879684) ((2753 . 5625) (* 1073741822 1073741823) -> 1152921501385621506) ((2754 . 5625) (* 1073741822 1073741824) -> 1152921502459363328) ((2755 . 5625) (* 1073741822 1073741825) -> 1152921503533105150) ((2756 . 5625) (* 1073741823 1073741821) -> 1152921500311879683) ((2757 . 5625) (* 1073741823 1073741822) -> 1152921501385621506) ((2758 . 5625) (* 1073741823 1073741823) -> 1152921502459363329) ((2759 . 5625) (* 1073741823 1073741824) -> 1152921503533105152) ((2760 . 5625) (* 1073741823 1073741825) -> 1152921504606846975) ((2761 . 5625) (* 1073741824 1073741821) -> 1152921501385621504) ((2762 . 5625) (* 1073741824 1073741822) -> 1152921502459363328) ((2763 . 5625) (* 1073741824 1073741823) -> 1152921503533105152) ((2764 . 5625) (* 1073741824 1073741824) -> 1152921504606846976) ((2765 . 5625) (* 1073741824 1073741825) -> 1152921505680588800) ((2766 . 5625) (* 1073741825 1073741821) -> 1152921502459363325) ((2767 . 5625) (* 1073741825 1073741822) -> 1152921503533105150) ((2768 . 5625) (* 1073741825 1073741823) -> 1152921504606846975) ((2769 . 5625) (* 1073741825 1073741824) -> 1152921505680588800) ((2770 . 5625) (* 1073741825 1073741825) -> 1152921506754330625) ((2771 . 5625) (* 1073741826 1073741821) -> 1152921503533105146) ((2772 . 5625) (* 1073741826 1073741822) -> 1152921504606846972) ((2773 . 5625) (* 1073741826 1073741823) -> 1152921505680588798) ((2774 . 5625) (* 1073741826 1073741824) -> 1152921506754330624) ((2775 . 5625) (* 1073741826 1073741825) -> 1152921507828072450) ((2776 . 5625) (* 1073741822 -1073741826) -> -1152921504606846972) ((2777 . 5625) (* 1073741822 -1073741825) -> -1152921503533105150) ((2778 . 5625) (* 1073741822 -1073741824) -> -1152921502459363328) ((2779 . 5625) (* 1073741822 -1073741823) -> -1152921501385621506) ((2780 . 5625) (* 1073741822 -1073741822) -> -1152921500311879684) ((2781 . 5625) (* 1073741823 -1073741826) -> -1152921505680588798) ((2782 . 5625) (* 1073741823 -1073741825) -> -1152921504606846975) ((2783 . 5625) (* 1073741823 -1073741824) -> -1152921503533105152) ((2784 . 5625) (* 1073741823 -1073741823) -> -1152921502459363329) ((2785 . 5625) (* 1073741823 -1073741822) -> -1152921501385621506) ((2786 . 5625) (* 1073741824 -1073741826) -> -1152921506754330624) ((2787 . 5625) (* 1073741824 -1073741825) -> -1152921505680588800) ((2788 . 5625) (* 1073741824 -1073741824) -> -1152921504606846976) ((2789 . 5625) (* 1073741824 -1073741823) -> -1152921503533105152) ((2790 . 5625) (* 1073741824 -1073741822) -> -1152921502459363328) ((2791 . 5625) (* 1073741825 -1073741826) -> -1152921507828072450) ((2792 . 5625) (* 1073741825 -1073741825) -> -1152921506754330625) ((2793 . 5625) (* 1073741825 -1073741824) -> -1152921505680588800) ((2794 . 5625) (* 1073741825 -1073741823) -> -1152921504606846975) ((2795 . 5625) (* 1073741825 -1073741822) -> -1152921503533105150) ((2796 . 5625) (* 1073741826 -1073741826) -> -1152921508901814276) ((2797 . 5625) (* 1073741826 -1073741825) -> -1152921507828072450) ((2798 . 5625) (* 1073741826 -1073741824) -> -1152921506754330624) ((2799 . 5625) (* 1073741826 -1073741823) -> -1152921505680588798) ((2800 . 5625) (* 1073741826 -1073741822) -> -1152921504606846972) ((2801 . 5625) (* 1073741822 1073741822) -> 1152921500311879684) ((2802 . 5625) (* 1073741822 1073741823) -> 1152921501385621506) ((2803 . 5625) (* 1073741822 1073741824) -> 1152921502459363328) ((2804 . 5625) (* 1073741822 1073741825) -> 1152921503533105150) ((2805 . 5625) (* 1073741822 1073741826) -> 1152921504606846972) ((2806 . 5625) (* 1073741823 1073741822) -> 1152921501385621506) ((2807 . 5625) (* 1073741823 1073741823) -> 1152921502459363329) ((2808 . 5625) (* 1073741823 1073741824) -> 1152921503533105152) ((2809 . 5625) (* 1073741823 1073741825) -> 1152921504606846975) ((2810 . 5625) (* 1073741823 1073741826) -> 1152921505680588798) ((2811 . 5625) (* 1073741824 1073741822) -> 1152921502459363328) ((2812 . 5625) (* 1073741824 1073741823) -> 1152921503533105152) ((2813 . 5625) (* 1073741824 1073741824) -> 1152921504606846976) ((2814 . 5625) (* 1073741824 1073741825) -> 1152921505680588800) ((2815 . 5625) (* 1073741824 1073741826) -> 1152921506754330624) ((2816 . 5625) (* 1073741825 1073741822) -> 1152921503533105150) ((2817 . 5625) (* 1073741825 1073741823) -> 1152921504606846975) ((2818 . 5625) (* 1073741825 1073741824) -> 1152921505680588800) ((2819 . 5625) (* 1073741825 1073741825) -> 1152921506754330625) ((2820 . 5625) (* 1073741825 1073741826) -> 1152921507828072450) ((2821 . 5625) (* 1073741826 1073741822) -> 1152921504606846972) ((2822 . 5625) (* 1073741826 1073741823) -> 1152921505680588798) ((2823 . 5625) (* 1073741826 1073741824) -> 1152921506754330624) ((2824 . 5625) (* 1073741826 1073741825) -> 1152921507828072450) ((2825 . 5625) (* 1073741826 1073741826) -> 1152921508901814276) ((2826 . 5625) (* 1073741822 -1073741827) -> -1152921505680588794) ((2827 . 5625) (* 1073741822 -1073741826) -> -1152921504606846972) ((2828 . 5625) (* 1073741822 -1073741825) -> -1152921503533105150) ((2829 . 5625) (* 1073741822 -1073741824) -> -1152921502459363328) ((2830 . 5625) (* 1073741822 -1073741823) -> -1152921501385621506) ((2831 . 5625) (* 1073741823 -1073741827) -> -1152921506754330621) ((2832 . 5625) (* 1073741823 -1073741826) -> -1152921505680588798) ((2833 . 5625) (* 1073741823 -1073741825) -> -1152921504606846975) ((2834 . 5625) (* 1073741823 -1073741824) -> -1152921503533105152) ((2835 . 5625) (* 1073741823 -1073741823) -> -1152921502459363329) ((2836 . 5625) (* 1073741824 -1073741827) -> -1152921507828072448) ((2837 . 5625) (* 1073741824 -1073741826) -> -1152921506754330624) ((2838 . 5625) (* 1073741824 -1073741825) -> -1152921505680588800) ((2839 . 5625) (* 1073741824 -1073741824) -> -1152921504606846976) ((2840 . 5625) (* 1073741824 -1073741823) -> -1152921503533105152) ((2841 . 5625) (* 1073741825 -1073741827) -> -1152921508901814275) ((2842 . 5625) (* 1073741825 -1073741826) -> -1152921507828072450) ((2843 . 5625) (* 1073741825 -1073741825) -> -1152921506754330625) ((2844 . 5625) (* 1073741825 -1073741824) -> -1152921505680588800) ((2845 . 5625) (* 1073741825 -1073741823) -> -1152921504606846975) ((2846 . 5625) (* 1073741826 -1073741827) -> -1152921509975556102) ((2847 . 5625) (* 1073741826 -1073741826) -> -1152921508901814276) ((2848 . 5625) (* 1073741826 -1073741825) -> -1152921507828072450) ((2849 . 5625) (* 1073741826 -1073741824) -> -1152921506754330624) ((2850 . 5625) (* 1073741826 -1073741823) -> -1152921505680588798) ((2851 . 5625) (* 1073741822 1103515243) -> 1184890467623592746) ((2852 . 5625) (* 1073741822 1103515244) -> 1184890468697334568) ((2853 . 5625) (* 1073741822 1103515245) -> 1184890469771076390) ((2854 . 5625) (* 1073741822 1103515246) -> 1184890470844818212) ((2855 . 5625) (* 1073741822 1103515247) -> 1184890471918560034) ((2856 . 5625) (* 1073741823 1103515243) -> 1184890468727107989) ((2857 . 5625) (* 1073741823 1103515244) -> 1184890469800849812) ((2858 . 5625) (* 1073741823 1103515245) -> 1184890470874591635) ((2859 . 5625) (* 1073741823 1103515246) -> 1184890471948333458) ((2860 . 5625) (* 1073741823 1103515247) -> 1184890473022075281) ((2861 . 5625) (* 1073741824 1103515243) -> 1184890469830623232) ((2862 . 5625) (* 1073741824 1103515244) -> 1184890470904365056) ((2863 . 5625) (* 1073741824 1103515245) -> 1184890471978106880) ((2864 . 5625) (* 1073741824 1103515246) -> 1184890473051848704) ((2865 . 5625) (* 1073741824 1103515247) -> 1184890474125590528) ((2866 . 5625) (* 1073741825 1103515243) -> 1184890470934138475) ((2867 . 5625) (* 1073741825 1103515244) -> 1184890472007880300) ((2868 . 5625) (* 1073741825 1103515245) -> 1184890473081622125) ((2869 . 5625) (* 1073741825 1103515246) -> 1184890474155363950) ((2870 . 5625) (* 1073741825 1103515247) -> 1184890475229105775) ((2871 . 5625) (* 1073741826 1103515243) -> 1184890472037653718) ((2872 . 5625) (* 1073741826 1103515244) -> 1184890473111395544) ((2873 . 5625) (* 1073741826 1103515245) -> 1184890474185137370) ((2874 . 5625) (* 1073741826 1103515246) -> 1184890475258879196) ((2875 . 5625) (* 1073741826 1103515247) -> 1184890476332621022) ((2876 . 5625) (* 1073741822 631629063) -> 678206540933772786) ((2877 . 5625) (* 1073741822 631629064) -> 678206542007514608) ((2878 . 5625) (* 1073741822 631629065) -> 678206543081256430) ((2879 . 5625) (* 1073741822 631629066) -> 678206544154998252) ((2880 . 5625) (* 1073741822 631629067) -> 678206545228740074) ((2881 . 5625) (* 1073741823 631629063) -> 678206541565401849) ((2882 . 5625) (* 1073741823 631629064) -> 678206542639143672) ((2883 . 5625) (* 1073741823 631629065) -> 678206543712885495) ((2884 . 5625) (* 1073741823 631629066) -> 678206544786627318) ((2885 . 5625) (* 1073741823 631629067) -> 678206545860369141) ((2886 . 5625) (* 1073741824 631629063) -> 678206542197030912) ((2887 . 5625) (* 1073741824 631629064) -> 678206543270772736) ((2888 . 5625) (* 1073741824 631629065) -> 678206544344514560) ((2889 . 5625) (* 1073741824 631629066) -> 678206545418256384) ((2890 . 5625) (* 1073741824 631629067) -> 678206546491998208) ((2891 . 5625) (* 1073741825 631629063) -> 678206542828659975) ((2892 . 5625) (* 1073741825 631629064) -> 678206543902401800) ((2893 . 5625) (* 1073741825 631629065) -> 678206544976143625) ((2894 . 5625) (* 1073741825 631629066) -> 678206546049885450) ((2895 . 5625) (* 1073741825 631629067) -> 678206547123627275) ((2896 . 5625) (* 1073741826 631629063) -> 678206543460289038) ((2897 . 5625) (* 1073741826 631629064) -> 678206544534030864) ((2898 . 5625) (* 1073741826 631629065) -> 678206545607772690) ((2899 . 5625) (* 1073741826 631629066) -> 678206546681514516) ((2900 . 5625) (* 1073741826 631629067) -> 678206547755256342) ((2901 . 5625) (* 1073741822 9007199254740990) -> 9671406538902632740683780) ((2902 . 5625) (* 1073741822 9007199254740991) -> 9671406538902633814425602) ((2903 . 5625) (* 1073741822 9007199254740992) -> 9671406538902634888167424) ((2904 . 5625) (* 1073741822 9007199254740993) -> 9671406538902635961909246) ((2905 . 5625) (* 1073741822 9007199254740994) -> 9671406538902637035651068) ((2906 . 5625) (* 1073741823 9007199254740990) -> 9671406547909831995424770) ((2907 . 5625) (* 1073741823 9007199254740991) -> 9671406547909833069166593) ((2908 . 5625) (* 1073741823 9007199254740992) -> 9671406547909834142908416) ((2909 . 5625) (* 1073741823 9007199254740993) -> 9671406547909835216650239) ((2910 . 5625) (* 1073741823 9007199254740994) -> 9671406547909836290392062) ((2911 . 5625) (* 1073741824 9007199254740990) -> 9671406556917031250165760) ((2912 . 5625) (* 1073741824 9007199254740991) -> 9671406556917032323907584) ((2913 . 5625) (* 1073741824 9007199254740992) -> 9671406556917033397649408) ((2914 . 5625) (* 1073741824 9007199254740993) -> 9671406556917034471391232) ((2915 . 5625) (* 1073741824 9007199254740994) -> 9671406556917035545133056) ((2916 . 5625) (* 1073741825 9007199254740990) -> 9671406565924230504906750) ((2917 . 5625) (* 1073741825 9007199254740991) -> 9671406565924231578648575) ((2918 . 5625) (* 1073741825 9007199254740992) -> 9671406565924232652390400) ((2919 . 5625) (* 1073741825 9007199254740993) -> 9671406565924233726132225) ((2920 . 5625) (* 1073741825 9007199254740994) -> 9671406565924234799874050) ((2921 . 5625) (* 1073741826 9007199254740990) -> 9671406574931429759647740) ((2922 . 5625) (* 1073741826 9007199254740991) -> 9671406574931430833389566) ((2923 . 5625) (* 1073741826 9007199254740992) -> 9671406574931431907131392) ((2924 . 5625) (* 1073741826 9007199254740993) -> 9671406574931432980873218) ((2925 . 5625) (* 1073741826 9007199254740994) -> 9671406574931434054615044) ((2926 . 5625) (* 1073741822 -9007199254740994) -> -9671406538902637035651068) ((2927 . 5625) (* 1073741822 -9007199254740993) -> -9671406538902635961909246) ((2928 . 5625) (* 1073741822 -9007199254740992) -> -9671406538902634888167424) ((2929 . 5625) (* 1073741822 -9007199254740991) -> -9671406538902633814425602) ((2930 . 5625) (* 1073741822 -9007199254740990) -> -9671406538902632740683780) ((2931 . 5625) (* 1073741823 -9007199254740994) -> -9671406547909836290392062) ((2932 . 5625) (* 1073741823 -9007199254740993) -> -9671406547909835216650239) ((2933 . 5625) (* 1073741823 -9007199254740992) -> -9671406547909834142908416) ((2934 . 5625) (* 1073741823 -9007199254740991) -> -9671406547909833069166593) ((2935 . 5625) (* 1073741823 -9007199254740990) -> -9671406547909831995424770) ((2936 . 5625) (* 1073741824 -9007199254740994) -> -9671406556917035545133056) ((2937 . 5625) (* 1073741824 -9007199254740993) -> -9671406556917034471391232) ((2938 . 5625) (* 1073741824 -9007199254740992) -> -9671406556917033397649408) ((2939 . 5625) (* 1073741824 -9007199254740991) -> -9671406556917032323907584) ((2940 . 5625) (* 1073741824 -9007199254740990) -> -9671406556917031250165760) ((2941 . 5625) (* 1073741825 -9007199254740994) -> -9671406565924234799874050) ((2942 . 5625) (* 1073741825 -9007199254740993) -> -9671406565924233726132225) ((2943 . 5625) (* 1073741825 -9007199254740992) -> -9671406565924232652390400) ((2944 . 5625) (* 1073741825 -9007199254740991) -> -9671406565924231578648575) ((2945 . 5625) (* 1073741825 -9007199254740990) -> -9671406565924230504906750) ((2946 . 5625) (* 1073741826 -9007199254740994) -> -9671406574931434054615044) ((2947 . 5625) (* 1073741826 -9007199254740993) -> -9671406574931432980873218) ((2948 . 5625) (* 1073741826 -9007199254740992) -> -9671406574931431907131392) ((2949 . 5625) (* 1073741826 -9007199254740991) -> -9671406574931430833389566) ((2950 . 5625) (* 1073741826 -9007199254740990) -> -9671406574931429759647740) ((2951 . 5625) (* 1073741822 12343) -> 13253195308946) ((2952 . 5625) (* 1073741822 12344) -> 13254269050768) ((2953 . 5625) (* 1073741822 12345) -> 13255342792590) ((2954 . 5625) (* 1073741822 12346) -> 13256416534412) ((2955 . 5625) (* 1073741822 12347) -> 13257490276234) ((2956 . 5625) (* 1073741823 12343) -> 13253195321289) ((2957 . 5625) (* 1073741823 12344) -> 13254269063112) ((2958 . 5625) (* 1073741823 12345) -> 13255342804935) ((2959 . 5625) (* 1073741823 12346) -> 13256416546758) ((2960 . 5625) (* 1073741823 12347) -> 13257490288581) ((2961 . 5625) (* 1073741824 12343) -> 13253195333632) ((2962 . 5625) (* 1073741824 12344) -> 13254269075456) ((2963 . 5625) (* 1073741824 12345) -> 13255342817280) ((2964 . 5625) (* 1073741824 12346) -> 13256416559104) ((2965 . 5625) (* 1073741824 12347) -> 13257490300928) ((2966 . 5625) (* 1073741825 12343) -> 13253195345975) ((2967 . 5625) (* 1073741825 12344) -> 13254269087800) ((2968 . 5625) (* 1073741825 12345) -> 13255342829625) ((2969 . 5625) (* 1073741825 12346) -> 13256416571450) ((2970 . 5625) (* 1073741825 12347) -> 13257490313275) ((2971 . 5625) (* 1073741826 12343) -> 13253195358318) ((2972 . 5625) (* 1073741826 12344) -> 13254269100144) ((2973 . 5625) (* 1073741826 12345) -> 13255342841970) ((2974 . 5625) (* 1073741826 12346) -> 13256416583796) ((2975 . 5625) (* 1073741826 12347) -> 13257490325622) ((2976 . 5625) (* 1073741822 4294967294) -> 4611686007689969668) ((2977 . 5625) (* 1073741822 4294967295) -> 4611686008763711490) ((2978 . 5625) (* 1073741822 4294967296) -> 4611686009837453312) ((2979 . 5625) (* 1073741822 4294967297) -> 4611686010911195134) ((2980 . 5625) (* 1073741822 4294967298) -> 4611686011984936956) ((2981 . 5625) (* 1073741823 4294967294) -> 4611686011984936962) ((2982 . 5625) (* 1073741823 4294967295) -> 4611686013058678785) ((2983 . 5625) (* 1073741823 4294967296) -> 4611686014132420608) ((2984 . 5625) (* 1073741823 4294967297) -> 4611686015206162431) ((2985 . 5625) (* 1073741823 4294967298) -> 4611686016279904254) ((2986 . 5625) (* 1073741824 4294967294) -> 4611686016279904256) ((2987 . 5625) (* 1073741824 4294967295) -> 4611686017353646080) ((2988 . 5625) (* 1073741824 4294967296) -> 4611686018427387904) ((2989 . 5625) (* 1073741824 4294967297) -> 4611686019501129728) ((2990 . 5625) (* 1073741824 4294967298) -> 4611686020574871552) ((2991 . 5625) (* 1073741825 4294967294) -> 4611686020574871550) ((2992 . 5625) (* 1073741825 4294967295) -> 4611686021648613375) ((2993 . 5625) (* 1073741825 4294967296) -> 4611686022722355200) ((2994 . 5625) (* 1073741825 4294967297) -> 4611686023796097025) ((2995 . 5625) (* 1073741825 4294967298) -> 4611686024869838850) ((2996 . 5625) (* 1073741826 4294967294) -> 4611686024869838844) ((2997 . 5625) (* 1073741826 4294967295) -> 4611686025943580670) ((2998 . 5625) (* 1073741826 4294967296) -> 4611686027017322496) ((2999 . 5625) (* 1073741826 4294967297) -> 4611686028091064322) ((3000 . 5625) (* 1073741826 4294967298) -> 4611686029164806148) ((3001 . 5625) (* -1073741827 -2) -> 2147483654) ((3002 . 5625) (* -1073741827 -1) -> 1073741827) ((3003 . 5625) (* -1073741827 0) -> 0) ((3004 . 5625) (* -1073741827 1) -> -1073741827) ((3005 . 5625) (* -1073741827 2) -> -2147483654) ((3006 . 5625) (* -1073741826 -2) -> 2147483652) ((3007 . 5625) (* -1073741826 -1) -> 1073741826) ((3008 . 5625) (* -1073741826 0) -> 0) ((3009 . 5625) (* -1073741826 1) -> -1073741826) ((3010 . 5625) (* -1073741826 2) -> -2147483652) ((3011 . 5625) (* -1073741825 -2) -> 2147483650) ((3012 . 5625) (* -1073741825 -1) -> 1073741825) ((3013 . 5625) (* -1073741825 0) -> 0) ((3014 . 5625) (* -1073741825 1) -> -1073741825) ((3015 . 5625) (* -1073741825 2) -> -2147483650) ((3016 . 5625) (* -1073741824 -2) -> 2147483648) ((3017 . 5625) (* -1073741824 -1) -> 1073741824) ((3018 . 5625) (* -1073741824 0) -> 0) ((3019 . 5625) (* -1073741824 1) -> -1073741824) ((3020 . 5625) (* -1073741824 2) -> -2147483648) ((3021 . 5625) (* -1073741823 -2) -> 2147483646) ((3022 . 5625) (* -1073741823 -1) -> 1073741823) ((3023 . 5625) (* -1073741823 0) -> 0) ((3024 . 5625) (* -1073741823 1) -> -1073741823) ((3025 . 5625) (* -1073741823 2) -> -2147483646) ((3026 . 5625) (* -1073741827 -1) -> 1073741827) ((3027 . 5625) (* -1073741827 0) -> 0) ((3028 . 5625) (* -1073741827 1) -> -1073741827) ((3029 . 5625) (* -1073741827 2) -> -2147483654) ((3030 . 5625) (* -1073741827 3) -> -3221225481) ((3031 . 5625) (* -1073741826 -1) -> 1073741826) ((3032 . 5625) (* -1073741826 0) -> 0) ((3033 . 5625) (* -1073741826 1) -> -1073741826) ((3034 . 5625) (* -1073741826 2) -> -2147483652) ((3035 . 5625) (* -1073741826 3) -> -3221225478) ((3036 . 5625) (* -1073741825 -1) -> 1073741825) ((3037 . 5625) (* -1073741825 0) -> 0) ((3038 . 5625) (* -1073741825 1) -> -1073741825) ((3039 . 5625) (* -1073741825 2) -> -2147483650) ((3040 . 5625) (* -1073741825 3) -> -3221225475) ((3041 . 5625) (* -1073741824 -1) -> 1073741824) ((3042 . 5625) (* -1073741824 0) -> 0) ((3043 . 5625) (* -1073741824 1) -> -1073741824) ((3044 . 5625) (* -1073741824 2) -> -2147483648) ((3045 . 5625) (* -1073741824 3) -> -3221225472) ((3046 . 5625) (* -1073741823 -1) -> 1073741823) ((3047 . 5625) (* -1073741823 0) -> 0) ((3048 . 5625) (* -1073741823 1) -> -1073741823) ((3049 . 5625) (* -1073741823 2) -> -2147483646) ((3050 . 5625) (* -1073741823 3) -> -3221225469) ((3051 . 5625) (* -1073741827 -3) -> 3221225481) ((3052 . 5625) (* -1073741827 -2) -> 2147483654) ((3053 . 5625) (* -1073741827 -1) -> 1073741827) ((3054 . 5625) (* -1073741827 0) -> 0) ((3055 . 5625) (* -1073741827 1) -> -1073741827) ((3056 . 5625) (* -1073741826 -3) -> 3221225478) ((3057 . 5625) (* -1073741826 -2) -> 2147483652) ((3058 . 5625) (* -1073741826 -1) -> 1073741826) ((3059 . 5625) (* -1073741826 0) -> 0) ((3060 . 5625) (* -1073741826 1) -> -1073741826) ((3061 . 5625) (* -1073741825 -3) -> 3221225475) ((3062 . 5625) (* -1073741825 -2) -> 2147483650) ((3063 . 5625) (* -1073741825 -1) -> 1073741825) ((3064 . 5625) (* -1073741825 0) -> 0) ((3065 . 5625) (* -1073741825 1) -> -1073741825) ((3066 . 5625) (* -1073741824 -3) -> 3221225472) ((3067 . 5625) (* -1073741824 -2) -> 2147483648) ((3068 . 5625) (* -1073741824 -1) -> 1073741824) ((3069 . 5625) (* -1073741824 0) -> 0) ((3070 . 5625) (* -1073741824 1) -> -1073741824) ((3071 . 5625) (* -1073741823 -3) -> 3221225469) ((3072 . 5625) (* -1073741823 -2) -> 2147483646) ((3073 . 5625) (* -1073741823 -1) -> 1073741823) ((3074 . 5625) (* -1073741823 0) -> 0) ((3075 . 5625) (* -1073741823 1) -> -1073741823) ((3076 . 5625) (* -1073741827 0) -> 0) ((3077 . 5625) (* -1073741827 1) -> -1073741827) ((3078 . 5625) (* -1073741827 2) -> -2147483654) ((3079 . 5625) (* -1073741827 3) -> -3221225481) ((3080 . 5625) (* -1073741827 4) -> -4294967308) ((3081 . 5625) (* -1073741826 0) -> 0) ((3082 . 5625) (* -1073741826 1) -> -1073741826) ((3083 . 5625) (* -1073741826 2) -> -2147483652) ((3084 . 5625) (* -1073741826 3) -> -3221225478) ((3085 . 5625) (* -1073741826 4) -> -4294967304) ((3086 . 5625) (* -1073741825 0) -> 0) ((3087 . 5625) (* -1073741825 1) -> -1073741825) ((3088 . 5625) (* -1073741825 2) -> -2147483650) ((3089 . 5625) (* -1073741825 3) -> -3221225475) ((3090 . 5625) (* -1073741825 4) -> -4294967300) ((3091 . 5625) (* -1073741824 0) -> 0) ((3092 . 5625) (* -1073741824 1) -> -1073741824) ((3093 . 5625) (* -1073741824 2) -> -2147483648) ((3094 . 5625) (* -1073741824 3) -> -3221225472) ((3095 . 5625) (* -1073741824 4) -> -4294967296) ((3096 . 5625) (* -1073741823 0) -> 0) ((3097 . 5625) (* -1073741823 1) -> -1073741823) ((3098 . 5625) (* -1073741823 2) -> -2147483646) ((3099 . 5625) (* -1073741823 3) -> -3221225469) ((3100 . 5625) (* -1073741823 4) -> -4294967292) ((3101 . 5625) (* -1073741827 -4) -> 4294967308) ((3102 . 5625) (* -1073741827 -3) -> 3221225481) ((3103 . 5625) (* -1073741827 -2) -> 2147483654) ((3104 . 5625) (* -1073741827 -1) -> 1073741827) ((3105 . 5625) (* -1073741827 0) -> 0) ((3106 . 5625) (* -1073741826 -4) -> 4294967304) ((3107 . 5625) (* -1073741826 -3) -> 3221225478) ((3108 . 5625) (* -1073741826 -2) -> 2147483652) ((3109 . 5625) (* -1073741826 -1) -> 1073741826) ((3110 . 5625) (* -1073741826 0) -> 0) ((3111 . 5625) (* -1073741825 -4) -> 4294967300) ((3112 . 5625) (* -1073741825 -3) -> 3221225475) ((3113 . 5625) (* -1073741825 -2) -> 2147483650) ((3114 . 5625) (* -1073741825 -1) -> 1073741825) ((3115 . 5625) (* -1073741825 0) -> 0) ((3116 . 5625) (* -1073741824 -4) -> 4294967296) ((3117 . 5625) (* -1073741824 -3) -> 3221225472) ((3118 . 5625) (* -1073741824 -2) -> 2147483648) ((3119 . 5625) (* -1073741824 -1) -> 1073741824) ((3120 . 5625) (* -1073741824 0) -> 0) ((3121 . 5625) (* -1073741823 -4) -> 4294967292) ((3122 . 5625) (* -1073741823 -3) -> 3221225469) ((3123 . 5625) (* -1073741823 -2) -> 2147483646) ((3124 . 5625) (* -1073741823 -1) -> 1073741823) ((3125 . 5625) (* -1073741823 0) -> 0) ((3126 . 5625) (* -1073741827 1073741821) -> -1152921504606846967) ((3127 . 5625) (* -1073741827 1073741822) -> -1152921505680588794) ((3128 . 5625) (* -1073741827 1073741823) -> -1152921506754330621) ((3129 . 5625) (* -1073741827 1073741824) -> -1152921507828072448) ((3130 . 5625) (* -1073741827 1073741825) -> -1152921508901814275) ((3131 . 5625) (* -1073741826 1073741821) -> -1152921503533105146) ((3132 . 5625) (* -1073741826 1073741822) -> -1152921504606846972) ((3133 . 5625) (* -1073741826 1073741823) -> -1152921505680588798) ((3134 . 5625) (* -1073741826 1073741824) -> -1152921506754330624) ((3135 . 5625) (* -1073741826 1073741825) -> -1152921507828072450) ((3136 . 5625) (* -1073741825 1073741821) -> -1152921502459363325) ((3137 . 5625) (* -1073741825 1073741822) -> -1152921503533105150) ((3138 . 5625) (* -1073741825 1073741823) -> -1152921504606846975) ((3139 . 5625) (* -1073741825 1073741824) -> -1152921505680588800) ((3140 . 5625) (* -1073741825 1073741825) -> -1152921506754330625) ((3141 . 5625) (* -1073741824 1073741821) -> -1152921501385621504) ((3142 . 5625) (* -1073741824 1073741822) -> -1152921502459363328) ((3143 . 5625) (* -1073741824 1073741823) -> -1152921503533105152) ((3144 . 5625) (* -1073741824 1073741824) -> -1152921504606846976) ((3145 . 5625) (* -1073741824 1073741825) -> -1152921505680588800) ((3146 . 5625) (* -1073741823 1073741821) -> -1152921500311879683) ((3147 . 5625) (* -1073741823 1073741822) -> -1152921501385621506) ((3148 . 5625) (* -1073741823 1073741823) -> -1152921502459363329) ((3149 . 5625) (* -1073741823 1073741824) -> -1152921503533105152) ((3150 . 5625) (* -1073741823 1073741825) -> -1152921504606846975) ((3151 . 5625) (* -1073741827 -1073741826) -> 1152921509975556102) ((3152 . 5625) (* -1073741827 -1073741825) -> 1152921508901814275) ((3153 . 5625) (* -1073741827 -1073741824) -> 1152921507828072448) ((3154 . 5625) (* -1073741827 -1073741823) -> 1152921506754330621) ((3155 . 5625) (* -1073741827 -1073741822) -> 1152921505680588794) ((3156 . 5625) (* -1073741826 -1073741826) -> 1152921508901814276) ((3157 . 5625) (* -1073741826 -1073741825) -> 1152921507828072450) ((3158 . 5625) (* -1073741826 -1073741824) -> 1152921506754330624) ((3159 . 5625) (* -1073741826 -1073741823) -> 1152921505680588798) ((3160 . 5625) (* -1073741826 -1073741822) -> 1152921504606846972) ((3161 . 5625) (* -1073741825 -1073741826) -> 1152921507828072450) ((3162 . 5625) (* -1073741825 -1073741825) -> 1152921506754330625) ((3163 . 5625) (* -1073741825 -1073741824) -> 1152921505680588800) ((3164 . 5625) (* -1073741825 -1073741823) -> 1152921504606846975) ((3165 . 5625) (* -1073741825 -1073741822) -> 1152921503533105150) ((3166 . 5625) (* -1073741824 -1073741826) -> 1152921506754330624) ((3167 . 5625) (* -1073741824 -1073741825) -> 1152921505680588800) ((3168 . 5625) (* -1073741824 -1073741824) -> 1152921504606846976) ((3169 . 5625) (* -1073741824 -1073741823) -> 1152921503533105152) ((3170 . 5625) (* -1073741824 -1073741822) -> 1152921502459363328) ((3171 . 5625) (* -1073741823 -1073741826) -> 1152921505680588798) ((3172 . 5625) (* -1073741823 -1073741825) -> 1152921504606846975) ((3173 . 5625) (* -1073741823 -1073741824) -> 1152921503533105152) ((3174 . 5625) (* -1073741823 -1073741823) -> 1152921502459363329) ((3175 . 5625) (* -1073741823 -1073741822) -> 1152921501385621506) ((3176 . 5625) (* -1073741827 1073741822) -> -1152921505680588794) ((3177 . 5625) (* -1073741827 1073741823) -> -1152921506754330621) ((3178 . 5625) (* -1073741827 1073741824) -> -1152921507828072448) ((3179 . 5625) (* -1073741827 1073741825) -> -1152921508901814275) ((3180 . 5625) (* -1073741827 1073741826) -> -1152921509975556102) ((3181 . 5625) (* -1073741826 1073741822) -> -1152921504606846972) ((3182 . 5625) (* -1073741826 1073741823) -> -1152921505680588798) ((3183 . 5625) (* -1073741826 1073741824) -> -1152921506754330624) ((3184 . 5625) (* -1073741826 1073741825) -> -1152921507828072450) ((3185 . 5625) (* -1073741826 1073741826) -> -1152921508901814276) ((3186 . 5625) (* -1073741825 1073741822) -> -1152921503533105150) ((3187 . 5625) (* -1073741825 1073741823) -> -1152921504606846975) ((3188 . 5625) (* -1073741825 1073741824) -> -1152921505680588800) ((3189 . 5625) (* -1073741825 1073741825) -> -1152921506754330625) ((3190 . 5625) (* -1073741825 1073741826) -> -1152921507828072450) ((3191 . 5625) (* -1073741824 1073741822) -> -1152921502459363328) ((3192 . 5625) (* -1073741824 1073741823) -> -1152921503533105152) ((3193 . 5625) (* -1073741824 1073741824) -> -1152921504606846976) ((3194 . 5625) (* -1073741824 1073741825) -> -1152921505680588800) ((3195 . 5625) (* -1073741824 1073741826) -> -1152921506754330624) ((3196 . 5625) (* -1073741823 1073741822) -> -1152921501385621506) ((3197 . 5625) (* -1073741823 1073741823) -> -1152921502459363329) ((3198 . 5625) (* -1073741823 1073741824) -> -1152921503533105152) ((3199 . 5625) (* -1073741823 1073741825) -> -1152921504606846975) ((3200 . 5625) (* -1073741823 1073741826) -> -1152921505680588798) ((3201 . 5625) (* -1073741827 -1073741827) -> 1152921511049297929) ((3202 . 5625) (* -1073741827 -1073741826) -> 1152921509975556102) ((3203 . 5625) (* -1073741827 -1073741825) -> 1152921508901814275) ((3204 . 5625) (* -1073741827 -1073741824) -> 1152921507828072448) ((3205 . 5625) (* -1073741827 -1073741823) -> 1152921506754330621) ((3206 . 5625) (* -1073741826 -1073741827) -> 1152921509975556102) ((3207 . 5625) (* -1073741826 -1073741826) -> 1152921508901814276) ((3208 . 5625) (* -1073741826 -1073741825) -> 1152921507828072450) ((3209 . 5625) (* -1073741826 -1073741824) -> 1152921506754330624) ((3210 . 5625) (* -1073741826 -1073741823) -> 1152921505680588798) ((3211 . 5625) (* -1073741825 -1073741827) -> 1152921508901814275) ((3212 . 5625) (* -1073741825 -1073741826) -> 1152921507828072450) ((3213 . 5625) (* -1073741825 -1073741825) -> 1152921506754330625) ((3214 . 5625) (* -1073741825 -1073741824) -> 1152921505680588800) ((3215 . 5625) (* -1073741825 -1073741823) -> 1152921504606846975) ((3216 . 5625) (* -1073741824 -1073741827) -> 1152921507828072448) ((3217 . 5625) (* -1073741824 -1073741826) -> 1152921506754330624) ((3218 . 5625) (* -1073741824 -1073741825) -> 1152921505680588800) ((3219 . 5625) (* -1073741824 -1073741824) -> 1152921504606846976) ((3220 . 5625) (* -1073741824 -1073741823) -> 1152921503533105152) ((3221 . 5625) (* -1073741823 -1073741827) -> 1152921506754330621) ((3222 . 5625) (* -1073741823 -1073741826) -> 1152921505680588798) ((3223 . 5625) (* -1073741823 -1073741825) -> 1152921504606846975) ((3224 . 5625) (* -1073741823 -1073741824) -> 1152921503533105152) ((3225 . 5625) (* -1073741823 -1073741823) -> 1152921502459363329) ((3226 . 5625) (* -1073741827 1103515243) -> -1184890473141168961) ((3227 . 5625) (* -1073741827 1103515244) -> -1184890474214910788) ((3228 . 5625) (* -1073741827 1103515245) -> -1184890475288652615) ((3229 . 5625) (* -1073741827 1103515246) -> -1184890476362394442) ((3230 . 5625) (* -1073741827 1103515247) -> -1184890477436136269) ((3231 . 5625) (* -1073741826 1103515243) -> -1184890472037653718) ((3232 . 5625) (* -1073741826 1103515244) -> -1184890473111395544) ((3233 . 5625) (* -1073741826 1103515245) -> -1184890474185137370) ((3234 . 5625) (* -1073741826 1103515246) -> -1184890475258879196) ((3235 . 5625) (* -1073741826 1103515247) -> -1184890476332621022) ((3236 . 5625) (* -1073741825 1103515243) -> -1184890470934138475) ((3237 . 5625) (* -1073741825 1103515244) -> -1184890472007880300) ((3238 . 5625) (* -1073741825 1103515245) -> -1184890473081622125) ((3239 . 5625) (* -1073741825 1103515246) -> -1184890474155363950) ((3240 . 5625) (* -1073741825 1103515247) -> -1184890475229105775) ((3241 . 5625) (* -1073741824 1103515243) -> -1184890469830623232) ((3242 . 5625) (* -1073741824 1103515244) -> -1184890470904365056) ((3243 . 5625) (* -1073741824 1103515245) -> -1184890471978106880) ((3244 . 5625) (* -1073741824 1103515246) -> -1184890473051848704) ((3245 . 5625) (* -1073741824 1103515247) -> -1184890474125590528) ((3246 . 5625) (* -1073741823 1103515243) -> -1184890468727107989) ((3247 . 5625) (* -1073741823 1103515244) -> -1184890469800849812) ((3248 . 5625) (* -1073741823 1103515245) -> -1184890470874591635) ((3249 . 5625) (* -1073741823 1103515246) -> -1184890471948333458) ((3250 . 5625) (* -1073741823 1103515247) -> -1184890473022075281) ((3251 . 5625) (* -1073741827 631629063) -> -678206544091918101) ((3252 . 5625) (* -1073741827 631629064) -> -678206545165659928) ((3253 . 5625) (* -1073741827 631629065) -> -678206546239401755) ((3254 . 5625) (* -1073741827 631629066) -> -678206547313143582) ((3255 . 5625) (* -1073741827 631629067) -> -678206548386885409) ((3256 . 5625) (* -1073741826 631629063) -> -678206543460289038) ((3257 . 5625) (* -1073741826 631629064) -> -678206544534030864) ((3258 . 5625) (* -1073741826 631629065) -> -678206545607772690) ((3259 . 5625) (* -1073741826 631629066) -> -678206546681514516) ((3260 . 5625) (* -1073741826 631629067) -> -678206547755256342) ((3261 . 5625) (* -1073741825 631629063) -> -678206542828659975) ((3262 . 5625) (* -1073741825 631629064) -> -678206543902401800) ((3263 . 5625) (* -1073741825 631629065) -> -678206544976143625) ((3264 . 5625) (* -1073741825 631629066) -> -678206546049885450) ((3265 . 5625) (* -1073741825 631629067) -> -678206547123627275) ((3266 . 5625) (* -1073741824 631629063) -> -678206542197030912) ((3267 . 5625) (* -1073741824 631629064) -> -678206543270772736) ((3268 . 5625) (* -1073741824 631629065) -> -678206544344514560) ((3269 . 5625) (* -1073741824 631629066) -> -678206545418256384) ((3270 . 5625) (* -1073741824 631629067) -> -678206546491998208) ((3271 . 5625) (* -1073741823 631629063) -> -678206541565401849) ((3272 . 5625) (* -1073741823 631629064) -> -678206542639143672) ((3273 . 5625) (* -1073741823 631629065) -> -678206543712885495) ((3274 . 5625) (* -1073741823 631629066) -> -678206544786627318) ((3275 . 5625) (* -1073741823 631629067) -> -678206545860369141) ((3276 . 5625) (* -1073741827 9007199254740990) -> -9671406583938629014388730) ((3277 . 5625) (* -1073741827 9007199254740991) -> -9671406583938630088130557) ((3278 . 5625) (* -1073741827 9007199254740992) -> -9671406583938631161872384) ((3279 . 5625) (* -1073741827 9007199254740993) -> -9671406583938632235614211) ((3280 . 5625) (* -1073741827 9007199254740994) -> -9671406583938633309356038) ((3281 . 5625) (* -1073741826 9007199254740990) -> -9671406574931429759647740) ((3282 . 5625) (* -1073741826 9007199254740991) -> -9671406574931430833389566) ((3283 . 5625) (* -1073741826 9007199254740992) -> -9671406574931431907131392) ((3284 . 5625) (* -1073741826 9007199254740993) -> -9671406574931432980873218) ((3285 . 5625) (* -1073741826 9007199254740994) -> -9671406574931434054615044) ((3286 . 5625) (* -1073741825 9007199254740990) -> -9671406565924230504906750) ((3287 . 5625) (* -1073741825 9007199254740991) -> -9671406565924231578648575) ((3288 . 5625) (* -1073741825 9007199254740992) -> -9671406565924232652390400) ((3289 . 5625) (* -1073741825 9007199254740993) -> -9671406565924233726132225) ((3290 . 5625) (* -1073741825 9007199254740994) -> -9671406565924234799874050) ((3291 . 5625) (* -1073741824 9007199254740990) -> -9671406556917031250165760) ((3292 . 5625) (* -1073741824 9007199254740991) -> -9671406556917032323907584) ((3293 . 5625) (* -1073741824 9007199254740992) -> -9671406556917033397649408) ((3294 . 5625) (* -1073741824 9007199254740993) -> -9671406556917034471391232) ((3295 . 5625) (* -1073741824 9007199254740994) -> -9671406556917035545133056) ((3296 . 5625) (* -1073741823 9007199254740990) -> -9671406547909831995424770) ((3297 . 5625) (* -1073741823 9007199254740991) -> -9671406547909833069166593) ((3298 . 5625) (* -1073741823 9007199254740992) -> -9671406547909834142908416) ((3299 . 5625) (* -1073741823 9007199254740993) -> -9671406547909835216650239) ((3300 . 5625) (* -1073741823 9007199254740994) -> -9671406547909836290392062) ((3301 . 5625) (* -1073741827 -9007199254740994) -> 9671406583938633309356038) ((3302 . 5625) (* -1073741827 -9007199254740993) -> 9671406583938632235614211) ((3303 . 5625) (* -1073741827 -9007199254740992) -> 9671406583938631161872384) ((3304 . 5625) (* -1073741827 -9007199254740991) -> 9671406583938630088130557) ((3305 . 5625) (* -1073741827 -9007199254740990) -> 9671406583938629014388730) ((3306 . 5625) (* -1073741826 -9007199254740994) -> 9671406574931434054615044) ((3307 . 5625) (* -1073741826 -9007199254740993) -> 9671406574931432980873218) ((3308 . 5625) (* -1073741826 -9007199254740992) -> 9671406574931431907131392) ((3309 . 5625) (* -1073741826 -9007199254740991) -> 9671406574931430833389566) ((3310 . 5625) (* -1073741826 -9007199254740990) -> 9671406574931429759647740) ((3311 . 5625) (* -1073741825 -9007199254740994) -> 9671406565924234799874050) ((3312 . 5625) (* -1073741825 -9007199254740993) -> 9671406565924233726132225) ((3313 . 5625) (* -1073741825 -9007199254740992) -> 9671406565924232652390400) ((3314 . 5625) (* -1073741825 -9007199254740991) -> 9671406565924231578648575) ((3315 . 5625) (* -1073741825 -9007199254740990) -> 9671406565924230504906750) ((3316 . 5625) (* -1073741824 -9007199254740994) -> 9671406556917035545133056) ((3317 . 5625) (* -1073741824 -9007199254740993) -> 9671406556917034471391232) ((3318 . 5625) (* -1073741824 -9007199254740992) -> 9671406556917033397649408) ((3319 . 5625) (* -1073741824 -9007199254740991) -> 9671406556917032323907584) ((3320 . 5625) (* -1073741824 -9007199254740990) -> 9671406556917031250165760) ((3321 . 5625) (* -1073741823 -9007199254740994) -> 9671406547909836290392062) ((3322 . 5625) (* -1073741823 -9007199254740993) -> 9671406547909835216650239) ((3323 . 5625) (* -1073741823 -9007199254740992) -> 9671406547909834142908416) ((3324 . 5625) (* -1073741823 -9007199254740991) -> 9671406547909833069166593) ((3325 . 5625) (* -1073741823 -9007199254740990) -> 9671406547909831995424770) ((3326 . 5625) (* -1073741827 12343) -> -13253195370661) ((3327 . 5625) (* -1073741827 12344) -> -13254269112488) ((3328 . 5625) (* -1073741827 12345) -> -13255342854315) ((3329 . 5625) (* -1073741827 12346) -> -13256416596142) ((3330 . 5625) (* -1073741827 12347) -> -13257490337969) ((3331 . 5625) (* -1073741826 12343) -> -13253195358318) ((3332 . 5625) (* -1073741826 12344) -> -13254269100144) ((3333 . 5625) (* -1073741826 12345) -> -13255342841970) ((3334 . 5625) (* -1073741826 12346) -> -13256416583796) ((3335 . 5625) (* -1073741826 12347) -> -13257490325622) ((3336 . 5625) (* -1073741825 12343) -> -13253195345975) ((3337 . 5625) (* -1073741825 12344) -> -13254269087800) ((3338 . 5625) (* -1073741825 12345) -> -13255342829625) ((3339 . 5625) (* -1073741825 12346) -> -13256416571450) ((3340 . 5625) (* -1073741825 12347) -> -13257490313275) ((3341 . 5625) (* -1073741824 12343) -> -13253195333632) ((3342 . 5625) (* -1073741824 12344) -> -13254269075456) ((3343 . 5625) (* -1073741824 12345) -> -13255342817280) ((3344 . 5625) (* -1073741824 12346) -> -13256416559104) ((3345 . 5625) (* -1073741824 12347) -> -13257490300928) ((3346 . 5625) (* -1073741823 12343) -> -13253195321289) ((3347 . 5625) (* -1073741823 12344) -> -13254269063112) ((3348 . 5625) (* -1073741823 12345) -> -13255342804935) ((3349 . 5625) (* -1073741823 12346) -> -13256416546758) ((3350 . 5625) (* -1073741823 12347) -> -13257490288581) ((3351 . 5625) (* -1073741827 4294967294) -> -4611686029164806138) ((3352 . 5625) (* -1073741827 4294967295) -> -4611686030238547965) ((3353 . 5625) (* -1073741827 4294967296) -> -4611686031312289792) ((3354 . 5625) (* -1073741827 4294967297) -> -4611686032386031619) ((3355 . 5625) (* -1073741827 4294967298) -> -4611686033459773446) ((3356 . 5625) (* -1073741826 4294967294) -> -4611686024869838844) ((3357 . 5625) (* -1073741826 4294967295) -> -4611686025943580670) ((3358 . 5625) (* -1073741826 4294967296) -> -4611686027017322496) ((3359 . 5625) (* -1073741826 4294967297) -> -4611686028091064322) ((3360 . 5625) (* -1073741826 4294967298) -> -4611686029164806148) ((3361 . 5625) (* -1073741825 4294967294) -> -4611686020574871550) ((3362 . 5625) (* -1073741825 4294967295) -> -4611686021648613375) ((3363 . 5625) (* -1073741825 4294967296) -> -4611686022722355200) ((3364 . 5625) (* -1073741825 4294967297) -> -4611686023796097025) ((3365 . 5625) (* -1073741825 4294967298) -> -4611686024869838850) ((3366 . 5625) (* -1073741824 4294967294) -> -4611686016279904256) ((3367 . 5625) (* -1073741824 4294967295) -> -4611686017353646080) ((3368 . 5625) (* -1073741824 4294967296) -> -4611686018427387904) ((3369 . 5625) (* -1073741824 4294967297) -> -4611686019501129728) ((3370 . 5625) (* -1073741824 4294967298) -> -4611686020574871552) ((3371 . 5625) (* -1073741823 4294967294) -> -4611686011984936962) ((3372 . 5625) (* -1073741823 4294967295) -> -4611686013058678785) ((3373 . 5625) (* -1073741823 4294967296) -> -4611686014132420608) ((3374 . 5625) (* -1073741823 4294967297) -> -4611686015206162431) ((3375 . 5625) (* -1073741823 4294967298) -> -4611686016279904254) ((3376 . 5625) (* 1103515243 -2) -> -2207030486) ((3377 . 5625) (* 1103515243 -1) -> -1103515243) ((3378 . 5625) (* 1103515243 0) -> 0) ((3379 . 5625) (* 1103515243 1) -> 1103515243) ((3380 . 5625) (* 1103515243 2) -> 2207030486) ((3381 . 5625) (* 1103515244 -2) -> -2207030488) ((3382 . 5625) (* 1103515244 -1) -> -1103515244) ((3383 . 5625) (* 1103515244 0) -> 0) ((3384 . 5625) (* 1103515244 1) -> 1103515244) ((3385 . 5625) (* 1103515244 2) -> 2207030488) ((3386 . 5625) (* 1103515245 -2) -> -2207030490) ((3387 . 5625) (* 1103515245 -1) -> -1103515245) ((3388 . 5625) (* 1103515245 0) -> 0) ((3389 . 5625) (* 1103515245 1) -> 1103515245) ((3390 . 5625) (* 1103515245 2) -> 2207030490) ((3391 . 5625) (* 1103515246 -2) -> -2207030492) ((3392 . 5625) (* 1103515246 -1) -> -1103515246) ((3393 . 5625) (* 1103515246 0) -> 0) ((3394 . 5625) (* 1103515246 1) -> 1103515246) ((3395 . 5625) (* 1103515246 2) -> 2207030492) ((3396 . 5625) (* 1103515247 -2) -> -2207030494) ((3397 . 5625) (* 1103515247 -1) -> -1103515247) ((3398 . 5625) (* 1103515247 0) -> 0) ((3399 . 5625) (* 1103515247 1) -> 1103515247) ((3400 . 5625) (* 1103515247 2) -> 2207030494) ((3401 . 5625) (* 1103515243 -1) -> -1103515243) ((3402 . 5625) (* 1103515243 0) -> 0) ((3403 . 5625) (* 1103515243 1) -> 1103515243) ((3404 . 5625) (* 1103515243 2) -> 2207030486) ((3405 . 5625) (* 1103515243 3) -> 3310545729) ((3406 . 5625) (* 1103515244 -1) -> -1103515244) ((3407 . 5625) (* 1103515244 0) -> 0) ((3408 . 5625) (* 1103515244 1) -> 1103515244) ((3409 . 5625) (* 1103515244 2) -> 2207030488) ((3410 . 5625) (* 1103515244 3) -> 3310545732) ((3411 . 5625) (* 1103515245 -1) -> -1103515245) ((3412 . 5625) (* 1103515245 0) -> 0) ((3413 . 5625) (* 1103515245 1) -> 1103515245) ((3414 . 5625) (* 1103515245 2) -> 2207030490) ((3415 . 5625) (* 1103515245 3) -> 3310545735) ((3416 . 5625) (* 1103515246 -1) -> -1103515246) ((3417 . 5625) (* 1103515246 0) -> 0) ((3418 . 5625) (* 1103515246 1) -> 1103515246) ((3419 . 5625) (* 1103515246 2) -> 2207030492) ((3420 . 5625) (* 1103515246 3) -> 3310545738) ((3421 . 5625) (* 1103515247 -1) -> -1103515247) ((3422 . 5625) (* 1103515247 0) -> 0) ((3423 . 5625) (* 1103515247 1) -> 1103515247) ((3424 . 5625) (* 1103515247 2) -> 2207030494) ((3425 . 5625) (* 1103515247 3) -> 3310545741) ((3426 . 5625) (* 1103515243 -3) -> -3310545729) ((3427 . 5625) (* 1103515243 -2) -> -2207030486) ((3428 . 5625) (* 1103515243 -1) -> -1103515243) ((3429 . 5625) (* 1103515243 0) -> 0) ((3430 . 5625) (* 1103515243 1) -> 1103515243) ((3431 . 5625) (* 1103515244 -3) -> -3310545732) ((3432 . 5625) (* 1103515244 -2) -> -2207030488) ((3433 . 5625) (* 1103515244 -1) -> -1103515244) ((3434 . 5625) (* 1103515244 0) -> 0) ((3435 . 5625) (* 1103515244 1) -> 1103515244) ((3436 . 5625) (* 1103515245 -3) -> -3310545735) ((3437 . 5625) (* 1103515245 -2) -> -2207030490) ((3438 . 5625) (* 1103515245 -1) -> -1103515245) ((3439 . 5625) (* 1103515245 0) -> 0) ((3440 . 5625) (* 1103515245 1) -> 1103515245) ((3441 . 5625) (* 1103515246 -3) -> -3310545738) ((3442 . 5625) (* 1103515246 -2) -> -2207030492) ((3443 . 5625) (* 1103515246 -1) -> -1103515246) ((3444 . 5625) (* 1103515246 0) -> 0) ((3445 . 5625) (* 1103515246 1) -> 1103515246) ((3446 . 5625) (* 1103515247 -3) -> -3310545741) ((3447 . 5625) (* 1103515247 -2) -> -2207030494) ((3448 . 5625) (* 1103515247 -1) -> -1103515247) ((3449 . 5625) (* 1103515247 0) -> 0) ((3450 . 5625) (* 1103515247 1) -> 1103515247) ((3451 . 5625) (* 1103515243 0) -> 0) ((3452 . 5625) (* 1103515243 1) -> 1103515243) ((3453 . 5625) (* 1103515243 2) -> 2207030486) ((3454 . 5625) (* 1103515243 3) -> 3310545729) ((3455 . 5625) (* 1103515243 4) -> 4414060972) ((3456 . 5625) (* 1103515244 0) -> 0) ((3457 . 5625) (* 1103515244 1) -> 1103515244) ((3458 . 5625) (* 1103515244 2) -> 2207030488) ((3459 . 5625) (* 1103515244 3) -> 3310545732) ((3460 . 5625) (* 1103515244 4) -> 4414060976) ((3461 . 5625) (* 1103515245 0) -> 0) ((3462 . 5625) (* 1103515245 1) -> 1103515245) ((3463 . 5625) (* 1103515245 2) -> 2207030490) ((3464 . 5625) (* 1103515245 3) -> 3310545735) ((3465 . 5625) (* 1103515245 4) -> 4414060980) ((3466 . 5625) (* 1103515246 0) -> 0) ((3467 . 5625) (* 1103515246 1) -> 1103515246) ((3468 . 5625) (* 1103515246 2) -> 2207030492) ((3469 . 5625) (* 1103515246 3) -> 3310545738) ((3470 . 5625) (* 1103515246 4) -> 4414060984) ((3471 . 5625) (* 1103515247 0) -> 0) ((3472 . 5625) (* 1103515247 1) -> 1103515247) ((3473 . 5625) (* 1103515247 2) -> 2207030494) ((3474 . 5625) (* 1103515247 3) -> 3310545741) ((3475 . 5625) (* 1103515247 4) -> 4414060988) ((3476 . 5625) (* 1103515243 -4) -> -4414060972) ((3477 . 5625) (* 1103515243 -3) -> -3310545729) ((3478 . 5625) (* 1103515243 -2) -> -2207030486) ((3479 . 5625) (* 1103515243 -1) -> -1103515243) ((3480 . 5625) (* 1103515243 0) -> 0) ((3481 . 5625) (* 1103515244 -4) -> -4414060976) ((3482 . 5625) (* 1103515244 -3) -> -3310545732) ((3483 . 5625) (* 1103515244 -2) -> -2207030488) ((3484 . 5625) (* 1103515244 -1) -> -1103515244) ((3485 . 5625) (* 1103515244 0) -> 0) ((3486 . 5625) (* 1103515245 -4) -> -4414060980) ((3487 . 5625) (* 1103515245 -3) -> -3310545735) ((3488 . 5625) (* 1103515245 -2) -> -2207030490) ((3489 . 5625) (* 1103515245 -1) -> -1103515245) ((3490 . 5625) (* 1103515245 0) -> 0) ((3491 . 5625) (* 1103515246 -4) -> -4414060984) ((3492 . 5625) (* 1103515246 -3) -> -3310545738) ((3493 . 5625) (* 1103515246 -2) -> -2207030492) ((3494 . 5625) (* 1103515246 -1) -> -1103515246) ((3495 . 5625) (* 1103515246 0) -> 0) ((3496 . 5625) (* 1103515247 -4) -> -4414060988) ((3497 . 5625) (* 1103515247 -3) -> -3310545741) ((3498 . 5625) (* 1103515247 -2) -> -2207030494) ((3499 . 5625) (* 1103515247 -1) -> -1103515247) ((3500 . 5625) (* 1103515247 0) -> 0) ((3501 . 5625) (* 1103515243 1073741821) -> 1184890466520077503) ((3502 . 5625) (* 1103515243 1073741822) -> 1184890467623592746) ((3503 . 5625) (* 1103515243 1073741823) -> 1184890468727107989) ((3504 . 5625) (* 1103515243 1073741824) -> 1184890469830623232) ((3505 . 5625) (* 1103515243 1073741825) -> 1184890470934138475) ((3506 . 5625) (* 1103515244 1073741821) -> 1184890467593819324) ((3507 . 5625) (* 1103515244 1073741822) -> 1184890468697334568) ((3508 . 5625) (* 1103515244 1073741823) -> 1184890469800849812) ((3509 . 5625) (* 1103515244 1073741824) -> 1184890470904365056) ((3510 . 5625) (* 1103515244 1073741825) -> 1184890472007880300) ((3511 . 5625) (* 1103515245 1073741821) -> 1184890468667561145) ((3512 . 5625) (* 1103515245 1073741822) -> 1184890469771076390) ((3513 . 5625) (* 1103515245 1073741823) -> 1184890470874591635) ((3514 . 5625) (* 1103515245 1073741824) -> 1184890471978106880) ((3515 . 5625) (* 1103515245 1073741825) -> 1184890473081622125) ((3516 . 5625) (* 1103515246 1073741821) -> 1184890469741302966) ((3517 . 5625) (* 1103515246 1073741822) -> 1184890470844818212) ((3518 . 5625) (* 1103515246 1073741823) -> 1184890471948333458) ((3519 . 5625) (* 1103515246 1073741824) -> 1184890473051848704) ((3520 . 5625) (* 1103515246 1073741825) -> 1184890474155363950) ((3521 . 5625) (* 1103515247 1073741821) -> 1184890470815044787) ((3522 . 5625) (* 1103515247 1073741822) -> 1184890471918560034) ((3523 . 5625) (* 1103515247 1073741823) -> 1184890473022075281) ((3524 . 5625) (* 1103515247 1073741824) -> 1184890474125590528) ((3525 . 5625) (* 1103515247 1073741825) -> 1184890475229105775) ((3526 . 5625) (* 1103515243 -1073741826) -> -1184890472037653718) ((3527 . 5625) (* 1103515243 -1073741825) -> -1184890470934138475) ((3528 . 5625) (* 1103515243 -1073741824) -> -1184890469830623232) ((3529 . 5625) (* 1103515243 -1073741823) -> -1184890468727107989) ((3530 . 5625) (* 1103515243 -1073741822) -> -1184890467623592746) ((3531 . 5625) (* 1103515244 -1073741826) -> -1184890473111395544) ((3532 . 5625) (* 1103515244 -1073741825) -> -1184890472007880300) ((3533 . 5625) (* 1103515244 -1073741824) -> -1184890470904365056) ((3534 . 5625) (* 1103515244 -1073741823) -> -1184890469800849812) ((3535 . 5625) (* 1103515244 -1073741822) -> -1184890468697334568) ((3536 . 5625) (* 1103515245 -1073741826) -> -1184890474185137370) ((3537 . 5625) (* 1103515245 -1073741825) -> -1184890473081622125) ((3538 . 5625) (* 1103515245 -1073741824) -> -1184890471978106880) ((3539 . 5625) (* 1103515245 -1073741823) -> -1184890470874591635) ((3540 . 5625) (* 1103515245 -1073741822) -> -1184890469771076390) ((3541 . 5625) (* 1103515246 -1073741826) -> -1184890475258879196) ((3542 . 5625) (* 1103515246 -1073741825) -> -1184890474155363950) ((3543 . 5625) (* 1103515246 -1073741824) -> -1184890473051848704) ((3544 . 5625) (* 1103515246 -1073741823) -> -1184890471948333458) ((3545 . 5625) (* 1103515246 -1073741822) -> -1184890470844818212) ((3546 . 5625) (* 1103515247 -1073741826) -> -1184890476332621022) ((3547 . 5625) (* 1103515247 -1073741825) -> -1184890475229105775) ((3548 . 5625) (* 1103515247 -1073741824) -> -1184890474125590528) ((3549 . 5625) (* 1103515247 -1073741823) -> -1184890473022075281) ((3550 . 5625) (* 1103515247 -1073741822) -> -1184890471918560034) ((3551 . 5625) (* 1103515243 1073741822) -> 1184890467623592746) ((3552 . 5625) (* 1103515243 1073741823) -> 1184890468727107989) ((3553 . 5625) (* 1103515243 1073741824) -> 1184890469830623232) ((3554 . 5625) (* 1103515243 1073741825) -> 1184890470934138475) ((3555 . 5625) (* 1103515243 1073741826) -> 1184890472037653718) ((3556 . 5625) (* 1103515244 1073741822) -> 1184890468697334568) ((3557 . 5625) (* 1103515244 1073741823) -> 1184890469800849812) ((3558 . 5625) (* 1103515244 1073741824) -> 1184890470904365056) ((3559 . 5625) (* 1103515244 1073741825) -> 1184890472007880300) ((3560 . 5625) (* 1103515244 1073741826) -> 1184890473111395544) ((3561 . 5625) (* 1103515245 1073741822) -> 1184890469771076390) ((3562 . 5625) (* 1103515245 1073741823) -> 1184890470874591635) ((3563 . 5625) (* 1103515245 1073741824) -> 1184890471978106880) ((3564 . 5625) (* 1103515245 1073741825) -> 1184890473081622125) ((3565 . 5625) (* 1103515245 1073741826) -> 1184890474185137370) ((3566 . 5625) (* 1103515246 1073741822) -> 1184890470844818212) ((3567 . 5625) (* 1103515246 1073741823) -> 1184890471948333458) ((3568 . 5625) (* 1103515246 1073741824) -> 1184890473051848704) ((3569 . 5625) (* 1103515246 1073741825) -> 1184890474155363950) ((3570 . 5625) (* 1103515246 1073741826) -> 1184890475258879196) ((3571 . 5625) (* 1103515247 1073741822) -> 1184890471918560034) ((3572 . 5625) (* 1103515247 1073741823) -> 1184890473022075281) ((3573 . 5625) (* 1103515247 1073741824) -> 1184890474125590528) ((3574 . 5625) (* 1103515247 1073741825) -> 1184890475229105775) ((3575 . 5625) (* 1103515247 1073741826) -> 1184890476332621022) ((3576 . 5625) (* 1103515243 -1073741827) -> -1184890473141168961) ((3577 . 5625) (* 1103515243 -1073741826) -> -1184890472037653718) ((3578 . 5625) (* 1103515243 -1073741825) -> -1184890470934138475) ((3579 . 5625) (* 1103515243 -1073741824) -> -1184890469830623232) ((3580 . 5625) (* 1103515243 -1073741823) -> -1184890468727107989) ((3581 . 5625) (* 1103515244 -1073741827) -> -1184890474214910788) ((3582 . 5625) (* 1103515244 -1073741826) -> -1184890473111395544) ((3583 . 5625) (* 1103515244 -1073741825) -> -1184890472007880300) ((3584 . 5625) (* 1103515244 -1073741824) -> -1184890470904365056) ((3585 . 5625) (* 1103515244 -1073741823) -> -1184890469800849812) ((3586 . 5625) (* 1103515245 -1073741827) -> -1184890475288652615) ((3587 . 5625) (* 1103515245 -1073741826) -> -1184890474185137370) ((3588 . 5625) (* 1103515245 -1073741825) -> -1184890473081622125) ((3589 . 5625) (* 1103515245 -1073741824) -> -1184890471978106880) ((3590 . 5625) (* 1103515245 -1073741823) -> -1184890470874591635) ((3591 . 5625) (* 1103515246 -1073741827) -> -1184890476362394442) ((3592 . 5625) (* 1103515246 -1073741826) -> -1184890475258879196) ((3593 . 5625) (* 1103515246 -1073741825) -> -1184890474155363950) ((3594 . 5625) (* 1103515246 -1073741824) -> -1184890473051848704) ((3595 . 5625) (* 1103515246 -1073741823) -> -1184890471948333458) ((3596 . 5625) (* 1103515247 -1073741827) -> -1184890477436136269) ((3597 . 5625) (* 1103515247 -1073741826) -> -1184890476332621022) ((3598 . 5625) (* 1103515247 -1073741825) -> -1184890475229105775) ((3599 . 5625) (* 1103515247 -1073741824) -> -1184890474125590528) ((3600 . 5625) (* 1103515247 -1073741823) -> -1184890473022075281) ((3601 . 5625) (* 1103515243 1103515243) -> 1217745891533349049) ((3602 . 5625) (* 1103515243 1103515244) -> 1217745892636864292) ((3603 . 5625) (* 1103515243 1103515245) -> 1217745893740379535) ((3604 . 5625) (* 1103515243 1103515246) -> 1217745894843894778) ((3605 . 5625) (* 1103515243 1103515247) -> 1217745895947410021) ((3606 . 5625) (* 1103515244 1103515243) -> 1217745892636864292) ((3607 . 5625) (* 1103515244 1103515244) -> 1217745893740379536) ((3608 . 5625) (* 1103515244 1103515245) -> 1217745894843894780) ((3609 . 5625) (* 1103515244 1103515246) -> 1217745895947410024) ((3610 . 5625) (* 1103515244 1103515247) -> 1217745897050925268) ((3611 . 5625) (* 1103515245 1103515243) -> 1217745893740379535) ((3612 . 5625) (* 1103515245 1103515244) -> 1217745894843894780) ((3613 . 5625) (* 1103515245 1103515245) -> 1217745895947410025) ((3614 . 5625) (* 1103515245 1103515246) -> 1217745897050925270) ((3615 . 5625) (* 1103515245 1103515247) -> 1217745898154440515) ((3616 . 5625) (* 1103515246 1103515243) -> 1217745894843894778) ((3617 . 5625) (* 1103515246 1103515244) -> 1217745895947410024) ((3618 . 5625) (* 1103515246 1103515245) -> 1217745897050925270) ((3619 . 5625) (* 1103515246 1103515246) -> 1217745898154440516) ((3620 . 5625) (* 1103515246 1103515247) -> 1217745899257955762) ((3621 . 5625) (* 1103515247 1103515243) -> 1217745895947410021) ((3622 . 5625) (* 1103515247 1103515244) -> 1217745897050925268) ((3623 . 5625) (* 1103515247 1103515245) -> 1217745898154440515) ((3624 . 5625) (* 1103515247 1103515246) -> 1217745899257955762) ((3625 . 5625) (* 1103515247 1103515247) -> 1217745900361471009) ((3626 . 5625) (* 1103515243 631629063) -> 697012298942307309) ((3627 . 5625) (* 1103515243 631629064) -> 697012300045822552) ((3628 . 5625) (* 1103515243 631629065) -> 697012301149337795) ((3629 . 5625) (* 1103515243 631629066) -> 697012302252853038) ((3630 . 5625) (* 1103515243 631629067) -> 697012303356368281) ((3631 . 5625) (* 1103515244 631629063) -> 697012299573936372) ((3632 . 5625) (* 1103515244 631629064) -> 697012300677451616) ((3633 . 5625) (* 1103515244 631629065) -> 697012301780966860) ((3634 . 5625) (* 1103515244 631629066) -> 697012302884482104) ((3635 . 5625) (* 1103515244 631629067) -> 697012303987997348) ((3636 . 5625) (* 1103515245 631629063) -> 697012300205565435) ((3637 . 5625) (* 1103515245 631629064) -> 697012301309080680) ((3638 . 5625) (* 1103515245 631629065) -> 697012302412595925) ((3639 . 5625) (* 1103515245 631629066) -> 697012303516111170) ((3640 . 5625) (* 1103515245 631629067) -> 697012304619626415) ((3641 . 5625) (* 1103515246 631629063) -> 697012300837194498) ((3642 . 5625) (* 1103515246 631629064) -> 697012301940709744) ((3643 . 5625) (* 1103515246 631629065) -> 697012303044224990) ((3644 . 5625) (* 1103515246 631629066) -> 697012304147740236) ((3645 . 5625) (* 1103515246 631629067) -> 697012305251255482) ((3646 . 5625) (* 1103515247 631629063) -> 697012301468823561) ((3647 . 5625) (* 1103515247 631629064) -> 697012302572338808) ((3648 . 5625) (* 1103515247 631629065) -> 697012303675854055) ((3649 . 5625) (* 1103515247 631629066) -> 697012304779369302) ((3650 . 5625) (* 1103515247 631629067) -> 697012305882884549) ((3651 . 5625) (* 1103515243 9007199254740990) -> 9939581674344922481910570) ((3652 . 5625) (* 1103515243 9007199254740991) -> 9939581674344923585425813) ((3653 . 5625) (* 1103515243 9007199254740992) -> 9939581674344924688941056) ((3654 . 5625) (* 1103515243 9007199254740993) -> 9939581674344925792456299) ((3655 . 5625) (* 1103515243 9007199254740994) -> 9939581674344926895971542) ((3656 . 5625) (* 1103515244 9007199254740990) -> 9939581683352121736651560) ((3657 . 5625) (* 1103515244 9007199254740991) -> 9939581683352122840166804) ((3658 . 5625) (* 1103515244 9007199254740992) -> 9939581683352123943682048) ((3659 . 5625) (* 1103515244 9007199254740993) -> 9939581683352125047197292) ((3660 . 5625) (* 1103515244 9007199254740994) -> 9939581683352126150712536) ((3661 . 5625) (* 1103515245 9007199254740990) -> 9939581692359320991392550) ((3662 . 5625) (* 1103515245 9007199254740991) -> 9939581692359322094907795) ((3663 . 5625) (* 1103515245 9007199254740992) -> 9939581692359323198423040) ((3664 . 5625) (* 1103515245 9007199254740993) -> 9939581692359324301938285) ((3665 . 5625) (* 1103515245 9007199254740994) -> 9939581692359325405453530) ((3666 . 5625) (* 1103515246 9007199254740990) -> 9939581701366520246133540) ((3667 . 5625) (* 1103515246 9007199254740991) -> 9939581701366521349648786) ((3668 . 5625) (* 1103515246 9007199254740992) -> 9939581701366522453164032) ((3669 . 5625) (* 1103515246 9007199254740993) -> 9939581701366523556679278) ((3670 . 5625) (* 1103515246 9007199254740994) -> 9939581701366524660194524) ((3671 . 5625) (* 1103515247 9007199254740990) -> 9939581710373719500874530) ((3672 . 5625) (* 1103515247 9007199254740991) -> 9939581710373720604389777) ((3673 . 5625) (* 1103515247 9007199254740992) -> 9939581710373721707905024) ((3674 . 5625) (* 1103515247 9007199254740993) -> 9939581710373722811420271) ((3675 . 5625) (* 1103515247 9007199254740994) -> 9939581710373723914935518) ((3676 . 5625) (* 1103515243 -9007199254740994) -> -9939581674344926895971542) ((3677 . 5625) (* 1103515243 -9007199254740993) -> -9939581674344925792456299) ((3678 . 5625) (* 1103515243 -9007199254740992) -> -9939581674344924688941056) ((3679 . 5625) (* 1103515243 -9007199254740991) -> -9939581674344923585425813) ((3680 . 5625) (* 1103515243 -9007199254740990) -> -9939581674344922481910570) ((3681 . 5625) (* 1103515244 -9007199254740994) -> -9939581683352126150712536) ((3682 . 5625) (* 1103515244 -9007199254740993) -> -9939581683352125047197292) ((3683 . 5625) (* 1103515244 -9007199254740992) -> -9939581683352123943682048) ((3684 . 5625) (* 1103515244 -9007199254740991) -> -9939581683352122840166804) ((3685 . 5625) (* 1103515244 -9007199254740990) -> -9939581683352121736651560) ((3686 . 5625) (* 1103515245 -9007199254740994) -> -9939581692359325405453530) ((3687 . 5625) (* 1103515245 -9007199254740993) -> -9939581692359324301938285) ((3688 . 5625) (* 1103515245 -9007199254740992) -> -9939581692359323198423040) ((3689 . 5625) (* 1103515245 -9007199254740991) -> -9939581692359322094907795) ((3690 . 5625) (* 1103515245 -9007199254740990) -> -9939581692359320991392550) ((3691 . 5625) (* 1103515246 -9007199254740994) -> -9939581701366524660194524) ((3692 . 5625) (* 1103515246 -9007199254740993) -> -9939581701366523556679278) ((3693 . 5625) (* 1103515246 -9007199254740992) -> -9939581701366522453164032) ((3694 . 5625) (* 1103515246 -9007199254740991) -> -9939581701366521349648786) ((3695 . 5625) (* 1103515246 -9007199254740990) -> -9939581701366520246133540) ((3696 . 5625) (* 1103515247 -9007199254740994) -> -9939581710373723914935518) ((3697 . 5625) (* 1103515247 -9007199254740993) -> -9939581710373722811420271) ((3698 . 5625) (* 1103515247 -9007199254740992) -> -9939581710373721707905024) ((3699 . 5625) (* 1103515247 -9007199254740991) -> -9939581710373720604389777) ((3700 . 5625) (* 1103515247 -9007199254740990) -> -9939581710373719500874530) ((3701 . 5625) (* 1103515243 12343) -> 13620688644349) ((3702 . 5625) (* 1103515243 12344) -> 13621792159592) ((3703 . 5625) (* 1103515243 12345) -> 13622895674835) ((3704 . 5625) (* 1103515243 12346) -> 13623999190078) ((3705 . 5625) (* 1103515243 12347) -> 13625102705321) ((3706 . 5625) (* 1103515244 12343) -> 13620688656692) ((3707 . 5625) (* 1103515244 12344) -> 13621792171936) ((3708 . 5625) (* 1103515244 12345) -> 13622895687180) ((3709 . 5625) (* 1103515244 12346) -> 13623999202424) ((3710 . 5625) (* 1103515244 12347) -> 13625102717668) ((3711 . 5625) (* 1103515245 12343) -> 13620688669035) ((3712 . 5625) (* 1103515245 12344) -> 13621792184280) ((3713 . 5625) (* 1103515245 12345) -> 13622895699525) ((3714 . 5625) (* 1103515245 12346) -> 13623999214770) ((3715 . 5625) (* 1103515245 12347) -> 13625102730015) ((3716 . 5625) (* 1103515246 12343) -> 13620688681378) ((3717 . 5625) (* 1103515246 12344) -> 13621792196624) ((3718 . 5625) (* 1103515246 12345) -> 13622895711870) ((3719 . 5625) (* 1103515246 12346) -> 13623999227116) ((3720 . 5625) (* 1103515246 12347) -> 13625102742362) ((3721 . 5625) (* 1103515247 12343) -> 13620688693721) ((3722 . 5625) (* 1103515247 12344) -> 13621792208968) ((3723 . 5625) (* 1103515247 12345) -> 13622895724215) ((3724 . 5625) (* 1103515247 12346) -> 13623999239462) ((3725 . 5625) (* 1103515247 12347) -> 13625102754709) ((3726 . 5625) (* 1103515243 4294967294) -> 4739561877115462442) ((3727 . 5625) (* 1103515243 4294967295) -> 4739561878218977685) ((3728 . 5625) (* 1103515243 4294967296) -> 4739561879322492928) ((3729 . 5625) (* 1103515243 4294967297) -> 4739561880426008171) ((3730 . 5625) (* 1103515243 4294967298) -> 4739561881529523414) ((3731 . 5625) (* 1103515244 4294967294) -> 4739561881410429736) ((3732 . 5625) (* 1103515244 4294967295) -> 4739561882513944980) ((3733 . 5625) (* 1103515244 4294967296) -> 4739561883617460224) ((3734 . 5625) (* 1103515244 4294967297) -> 4739561884720975468) ((3735 . 5625) (* 1103515244 4294967298) -> 4739561885824490712) ((3736 . 5625) (* 1103515245 4294967294) -> 4739561885705397030) ((3737 . 5625) (* 1103515245 4294967295) -> 4739561886808912275) ((3738 . 5625) (* 1103515245 4294967296) -> 4739561887912427520) ((3739 . 5625) (* 1103515245 4294967297) -> 4739561889015942765) ((3740 . 5625) (* 1103515245 4294967298) -> 4739561890119458010) ((3741 . 5625) (* 1103515246 4294967294) -> 4739561890000364324) ((3742 . 5625) (* 1103515246 4294967295) -> 4739561891103879570) ((3743 . 5625) (* 1103515246 4294967296) -> 4739561892207394816) ((3744 . 5625) (* 1103515246 4294967297) -> 4739561893310910062) ((3745 . 5625) (* 1103515246 4294967298) -> 4739561894414425308) ((3746 . 5625) (* 1103515247 4294967294) -> 4739561894295331618) ((3747 . 5625) (* 1103515247 4294967295) -> 4739561895398846865) ((3748 . 5625) (* 1103515247 4294967296) -> 4739561896502362112) ((3749 . 5625) (* 1103515247 4294967297) -> 4739561897605877359) ((3750 . 5625) (* 1103515247 4294967298) -> 4739561898709392606) ((3751 . 5625) (* 631629063 -2) -> -1263258126) ((3752 . 5625) (* 631629063 -1) -> -631629063) ((3753 . 5625) (* 631629063 0) -> 0) ((3754 . 5625) (* 631629063 1) -> 631629063) ((3755 . 5625) (* 631629063 2) -> 1263258126) ((3756 . 5625) (* 631629064 -2) -> -1263258128) ((3757 . 5625) (* 631629064 -1) -> -631629064) ((3758 . 5625) (* 631629064 0) -> 0) ((3759 . 5625) (* 631629064 1) -> 631629064) ((3760 . 5625) (* 631629064 2) -> 1263258128) ((3761 . 5625) (* 631629065 -2) -> -1263258130) ((3762 . 5625) (* 631629065 -1) -> -631629065) ((3763 . 5625) (* 631629065 0) -> 0) ((3764 . 5625) (* 631629065 1) -> 631629065) ((3765 . 5625) (* 631629065 2) -> 1263258130) ((3766 . 5625) (* 631629066 -2) -> -1263258132) ((3767 . 5625) (* 631629066 -1) -> -631629066) ((3768 . 5625) (* 631629066 0) -> 0) ((3769 . 5625) (* 631629066 1) -> 631629066) ((3770 . 5625) (* 631629066 2) -> 1263258132) ((3771 . 5625) (* 631629067 -2) -> -1263258134) ((3772 . 5625) (* 631629067 -1) -> -631629067) ((3773 . 5625) (* 631629067 0) -> 0) ((3774 . 5625) (* 631629067 1) -> 631629067) ((3775 . 5625) (* 631629067 2) -> 1263258134) ((3776 . 5625) (* 631629063 -1) -> -631629063) ((3777 . 5625) (* 631629063 0) -> 0) ((3778 . 5625) (* 631629063 1) -> 631629063) ((3779 . 5625) (* 631629063 2) -> 1263258126) ((3780 . 5625) (* 631629063 3) -> 1894887189) ((3781 . 5625) (* 631629064 -1) -> -631629064) ((3782 . 5625) (* 631629064 0) -> 0) ((3783 . 5625) (* 631629064 1) -> 631629064) ((3784 . 5625) (* 631629064 2) -> 1263258128) ((3785 . 5625) (* 631629064 3) -> 1894887192) ((3786 . 5625) (* 631629065 -1) -> -631629065) ((3787 . 5625) (* 631629065 0) -> 0) ((3788 . 5625) (* 631629065 1) -> 631629065) ((3789 . 5625) (* 631629065 2) -> 1263258130) ((3790 . 5625) (* 631629065 3) -> 1894887195) ((3791 . 5625) (* 631629066 -1) -> -631629066) ((3792 . 5625) (* 631629066 0) -> 0) ((3793 . 5625) (* 631629066 1) -> 631629066) ((3794 . 5625) (* 631629066 2) -> 1263258132) ((3795 . 5625) (* 631629066 3) -> 1894887198) ((3796 . 5625) (* 631629067 -1) -> -631629067) ((3797 . 5625) (* 631629067 0) -> 0) ((3798 . 5625) (* 631629067 1) -> 631629067) ((3799 . 5625) (* 631629067 2) -> 1263258134) ((3800 . 5625) (* 631629067 3) -> 1894887201) ((3801 . 5625) (* 631629063 -3) -> -1894887189) ((3802 . 5625) (* 631629063 -2) -> -1263258126) ((3803 . 5625) (* 631629063 -1) -> -631629063) ((3804 . 5625) (* 631629063 0) -> 0) ((3805 . 5625) (* 631629063 1) -> 631629063) ((3806 . 5625) (* 631629064 -3) -> -1894887192) ((3807 . 5625) (* 631629064 -2) -> -1263258128) ((3808 . 5625) (* 631629064 -1) -> -631629064) ((3809 . 5625) (* 631629064 0) -> 0) ((3810 . 5625) (* 631629064 1) -> 631629064) ((3811 . 5625) (* 631629065 -3) -> -1894887195) ((3812 . 5625) (* 631629065 -2) -> -1263258130) ((3813 . 5625) (* 631629065 -1) -> -631629065) ((3814 . 5625) (* 631629065 0) -> 0) ((3815 . 5625) (* 631629065 1) -> 631629065) ((3816 . 5625) (* 631629066 -3) -> -1894887198) ((3817 . 5625) (* 631629066 -2) -> -1263258132) ((3818 . 5625) (* 631629066 -1) -> -631629066) ((3819 . 5625) (* 631629066 0) -> 0) ((3820 . 5625) (* 631629066 1) -> 631629066) ((3821 . 5625) (* 631629067 -3) -> -1894887201) ((3822 . 5625) (* 631629067 -2) -> -1263258134) ((3823 . 5625) (* 631629067 -1) -> -631629067) ((3824 . 5625) (* 631629067 0) -> 0) ((3825 . 5625) (* 631629067 1) -> 631629067) ((3826 . 5625) (* 631629063 0) -> 0) ((3827 . 5625) (* 631629063 1) -> 631629063) ((3828 . 5625) (* 631629063 2) -> 1263258126) ((3829 . 5625) (* 631629063 3) -> 1894887189) ((3830 . 5625) (* 631629063 4) -> 2526516252) ((3831 . 5625) (* 631629064 0) -> 0) ((3832 . 5625) (* 631629064 1) -> 631629064) ((3833 . 5625) (* 631629064 2) -> 1263258128) ((3834 . 5625) (* 631629064 3) -> 1894887192) ((3835 . 5625) (* 631629064 4) -> 2526516256) ((3836 . 5625) (* 631629065 0) -> 0) ((3837 . 5625) (* 631629065 1) -> 631629065) ((3838 . 5625) (* 631629065 2) -> 1263258130) ((3839 . 5625) (* 631629065 3) -> 1894887195) ((3840 . 5625) (* 631629065 4) -> 2526516260) ((3841 . 5625) (* 631629066 0) -> 0) ((3842 . 5625) (* 631629066 1) -> 631629066) ((3843 . 5625) (* 631629066 2) -> 1263258132) ((3844 . 5625) (* 631629066 3) -> 1894887198) ((3845 . 5625) (* 631629066 4) -> 2526516264) ((3846 . 5625) (* 631629067 0) -> 0) ((3847 . 5625) (* 631629067 1) -> 631629067) ((3848 . 5625) (* 631629067 2) -> 1263258134) ((3849 . 5625) (* 631629067 3) -> 1894887201) ((3850 . 5625) (* 631629067 4) -> 2526516268) ((3851 . 5625) (* 631629063 -4) -> -2526516252) ((3852 . 5625) (* 631629063 -3) -> -1894887189) ((3853 . 5625) (* 631629063 -2) -> -1263258126) ((3854 . 5625) (* 631629063 -1) -> -631629063) ((3855 . 5625) (* 631629063 0) -> 0) ((3856 . 5625) (* 631629064 -4) -> -2526516256) ((3857 . 5625) (* 631629064 -3) -> -1894887192) ((3858 . 5625) (* 631629064 -2) -> -1263258128) ((3859 . 5625) (* 631629064 -1) -> -631629064) ((3860 . 5625) (* 631629064 0) -> 0) ((3861 . 5625) (* 631629065 -4) -> -2526516260) ((3862 . 5625) (* 631629065 -3) -> -1894887195) ((3863 . 5625) (* 631629065 -2) -> -1263258130) ((3864 . 5625) (* 631629065 -1) -> -631629065) ((3865 . 5625) (* 631629065 0) -> 0) ((3866 . 5625) (* 631629066 -4) -> -2526516264) ((3867 . 5625) (* 631629066 -3) -> -1894887198) ((3868 . 5625) (* 631629066 -2) -> -1263258132) ((3869 . 5625) (* 631629066 -1) -> -631629066) ((3870 . 5625) (* 631629066 0) -> 0) ((3871 . 5625) (* 631629067 -4) -> -2526516268) ((3872 . 5625) (* 631629067 -3) -> -1894887201) ((3873 . 5625) (* 631629067 -2) -> -1263258134) ((3874 . 5625) (* 631629067 -1) -> -631629067) ((3875 . 5625) (* 631629067 0) -> 0) ((3876 . 5625) (* 631629063 1073741821) -> 678206540302143723) ((3877 . 5625) (* 631629063 1073741822) -> 678206540933772786) ((3878 . 5625) (* 631629063 1073741823) -> 678206541565401849) ((3879 . 5625) (* 631629063 1073741824) -> 678206542197030912) ((3880 . 5625) (* 631629063 1073741825) -> 678206542828659975) ((3881 . 5625) (* 631629064 1073741821) -> 678206541375885544) ((3882 . 5625) (* 631629064 1073741822) -> 678206542007514608) ((3883 . 5625) (* 631629064 1073741823) -> 678206542639143672) ((3884 . 5625) (* 631629064 1073741824) -> 678206543270772736) ((3885 . 5625) (* 631629064 1073741825) -> 678206543902401800) ((3886 . 5625) (* 631629065 1073741821) -> 678206542449627365) ((3887 . 5625) (* 631629065 1073741822) -> 678206543081256430) ((3888 . 5625) (* 631629065 1073741823) -> 678206543712885495) ((3889 . 5625) (* 631629065 1073741824) -> 678206544344514560) ((3890 . 5625) (* 631629065 1073741825) -> 678206544976143625) ((3891 . 5625) (* 631629066 1073741821) -> 678206543523369186) ((3892 . 5625) (* 631629066 1073741822) -> 678206544154998252) ((3893 . 5625) (* 631629066 1073741823) -> 678206544786627318) ((3894 . 5625) (* 631629066 1073741824) -> 678206545418256384) ((3895 . 5625) (* 631629066 1073741825) -> 678206546049885450) ((3896 . 5625) (* 631629067 1073741821) -> 678206544597111007) ((3897 . 5625) (* 631629067 1073741822) -> 678206545228740074) ((3898 . 5625) (* 631629067 1073741823) -> 678206545860369141) ((3899 . 5625) (* 631629067 1073741824) -> 678206546491998208) ((3900 . 5625) (* 631629067 1073741825) -> 678206547123627275) ((3901 . 5625) (* 631629063 -1073741826) -> -678206543460289038) ((3902 . 5625) (* 631629063 -1073741825) -> -678206542828659975) ((3903 . 5625) (* 631629063 -1073741824) -> -678206542197030912) ((3904 . 5625) (* 631629063 -1073741823) -> -678206541565401849) ((3905 . 5625) (* 631629063 -1073741822) -> -678206540933772786) ((3906 . 5625) (* 631629064 -1073741826) -> -678206544534030864) ((3907 . 5625) (* 631629064 -1073741825) -> -678206543902401800) ((3908 . 5625) (* 631629064 -1073741824) -> -678206543270772736) ((3909 . 5625) (* 631629064 -1073741823) -> -678206542639143672) ((3910 . 5625) (* 631629064 -1073741822) -> -678206542007514608) ((3911 . 5625) (* 631629065 -1073741826) -> -678206545607772690) ((3912 . 5625) (* 631629065 -1073741825) -> -678206544976143625) ((3913 . 5625) (* 631629065 -1073741824) -> -678206544344514560) ((3914 . 5625) (* 631629065 -1073741823) -> -678206543712885495) ((3915 . 5625) (* 631629065 -1073741822) -> -678206543081256430) ((3916 . 5625) (* 631629066 -1073741826) -> -678206546681514516) ((3917 . 5625) (* 631629066 -1073741825) -> -678206546049885450) ((3918 . 5625) (* 631629066 -1073741824) -> -678206545418256384) ((3919 . 5625) (* 631629066 -1073741823) -> -678206544786627318) ((3920 . 5625) (* 631629066 -1073741822) -> -678206544154998252) ((3921 . 5625) (* 631629067 -1073741826) -> -678206547755256342) ((3922 . 5625) (* 631629067 -1073741825) -> -678206547123627275) ((3923 . 5625) (* 631629067 -1073741824) -> -678206546491998208) ((3924 . 5625) (* 631629067 -1073741823) -> -678206545860369141) ((3925 . 5625) (* 631629067 -1073741822) -> -678206545228740074) ((3926 . 5625) (* 631629063 1073741822) -> 678206540933772786) ((3927 . 5625) (* 631629063 1073741823) -> 678206541565401849) ((3928 . 5625) (* 631629063 1073741824) -> 678206542197030912) ((3929 . 5625) (* 631629063 1073741825) -> 678206542828659975) ((3930 . 5625) (* 631629063 1073741826) -> 678206543460289038) ((3931 . 5625) (* 631629064 1073741822) -> 678206542007514608) ((3932 . 5625) (* 631629064 1073741823) -> 678206542639143672) ((3933 . 5625) (* 631629064 1073741824) -> 678206543270772736) ((3934 . 5625) (* 631629064 1073741825) -> 678206543902401800) ((3935 . 5625) (* 631629064 1073741826) -> 678206544534030864) ((3936 . 5625) (* 631629065 1073741822) -> 678206543081256430) ((3937 . 5625) (* 631629065 1073741823) -> 678206543712885495) ((3938 . 5625) (* 631629065 1073741824) -> 678206544344514560) ((3939 . 5625) (* 631629065 1073741825) -> 678206544976143625) ((3940 . 5625) (* 631629065 1073741826) -> 678206545607772690) ((3941 . 5625) (* 631629066 1073741822) -> 678206544154998252) ((3942 . 5625) (* 631629066 1073741823) -> 678206544786627318) ((3943 . 5625) (* 631629066 1073741824) -> 678206545418256384) ((3944 . 5625) (* 631629066 1073741825) -> 678206546049885450) ((3945 . 5625) (* 631629066 1073741826) -> 678206546681514516) ((3946 . 5625) (* 631629067 1073741822) -> 678206545228740074) ((3947 . 5625) (* 631629067 1073741823) -> 678206545860369141) ((3948 . 5625) (* 631629067 1073741824) -> 678206546491998208) ((3949 . 5625) (* 631629067 1073741825) -> 678206547123627275) ((3950 . 5625) (* 631629067 1073741826) -> 678206547755256342) ((3951 . 5625) (* 631629063 -1073741827) -> -678206544091918101) ((3952 . 5625) (* 631629063 -1073741826) -> -678206543460289038) ((3953 . 5625) (* 631629063 -1073741825) -> -678206542828659975) ((3954 . 5625) (* 631629063 -1073741824) -> -678206542197030912) ((3955 . 5625) (* 631629063 -1073741823) -> -678206541565401849) ((3956 . 5625) (* 631629064 -1073741827) -> -678206545165659928) ((3957 . 5625) (* 631629064 -1073741826) -> -678206544534030864) ((3958 . 5625) (* 631629064 -1073741825) -> -678206543902401800) ((3959 . 5625) (* 631629064 -1073741824) -> -678206543270772736) ((3960 . 5625) (* 631629064 -1073741823) -> -678206542639143672) ((3961 . 5625) (* 631629065 -1073741827) -> -678206546239401755) ((3962 . 5625) (* 631629065 -1073741826) -> -678206545607772690) ((3963 . 5625) (* 631629065 -1073741825) -> -678206544976143625) ((3964 . 5625) (* 631629065 -1073741824) -> -678206544344514560) ((3965 . 5625) (* 631629065 -1073741823) -> -678206543712885495) ((3966 . 5625) (* 631629066 -1073741827) -> -678206547313143582) ((3967 . 5625) (* 631629066 -1073741826) -> -678206546681514516) ((3968 . 5625) (* 631629066 -1073741825) -> -678206546049885450) ((3969 . 5625) (* 631629066 -1073741824) -> -678206545418256384) ((3970 . 5625) (* 631629066 -1073741823) -> -678206544786627318) ((3971 . 5625) (* 631629067 -1073741827) -> -678206548386885409) ((3972 . 5625) (* 631629067 -1073741826) -> -678206547755256342) ((3973 . 5625) (* 631629067 -1073741825) -> -678206547123627275) ((3974 . 5625) (* 631629067 -1073741824) -> -678206546491998208) ((3975 . 5625) (* 631629067 -1073741823) -> -678206545860369141) ((3976 . 5625) (* 631629063 1103515243) -> 697012298942307309) ((3977 . 5625) (* 631629063 1103515244) -> 697012299573936372) ((3978 . 5625) (* 631629063 1103515245) -> 697012300205565435) ((3979 . 5625) (* 631629063 1103515246) -> 697012300837194498) ((3980 . 5625) (* 631629063 1103515247) -> 697012301468823561) ((3981 . 5625) (* 631629064 1103515243) -> 697012300045822552) ((3982 . 5625) (* 631629064 1103515244) -> 697012300677451616) ((3983 . 5625) (* 631629064 1103515245) -> 697012301309080680) ((3984 . 5625) (* 631629064 1103515246) -> 697012301940709744) ((3985 . 5625) (* 631629064 1103515247) -> 697012302572338808) ((3986 . 5625) (* 631629065 1103515243) -> 697012301149337795) ((3987 . 5625) (* 631629065 1103515244) -> 697012301780966860) ((3988 . 5625) (* 631629065 1103515245) -> 697012302412595925) ((3989 . 5625) (* 631629065 1103515246) -> 697012303044224990) ((3990 . 5625) (* 631629065 1103515247) -> 697012303675854055) ((3991 . 5625) (* 631629066 1103515243) -> 697012302252853038) ((3992 . 5625) (* 631629066 1103515244) -> 697012302884482104) ((3993 . 5625) (* 631629066 1103515245) -> 697012303516111170) ((3994 . 5625) (* 631629066 1103515246) -> 697012304147740236) ((3995 . 5625) (* 631629066 1103515247) -> 697012304779369302) ((3996 . 5625) (* 631629067 1103515243) -> 697012303356368281) ((3997 . 5625) (* 631629067 1103515244) -> 697012303987997348) ((3998 . 5625) (* 631629067 1103515245) -> 697012304619626415) ((3999 . 5625) (* 631629067 1103515246) -> 697012305251255482) ((4000 . 5625) (* 631629067 1103515247) -> 697012305882884549) ((4001 . 5625) (* 631629063 631629063) -> 398955273226257969) ((4002 . 5625) (* 631629063 631629064) -> 398955273857887032) ((4003 . 5625) (* 631629063 631629065) -> 398955274489516095) ((4004 . 5625) (* 631629063 631629066) -> 398955275121145158) ((4005 . 5625) (* 631629063 631629067) -> 398955275752774221) ((4006 . 5625) (* 631629064 631629063) -> 398955273857887032) ((4007 . 5625) (* 631629064 631629064) -> 398955274489516096) ((4008 . 5625) (* 631629064 631629065) -> 398955275121145160) ((4009 . 5625) (* 631629064 631629066) -> 398955275752774224) ((4010 . 5625) (* 631629064 631629067) -> 398955276384403288) ((4011 . 5625) (* 631629065 631629063) -> 398955274489516095) ((4012 . 5625) (* 631629065 631629064) -> 398955275121145160) ((4013 . 5625) (* 631629065 631629065) -> 398955275752774225) ((4014 . 5625) (* 631629065 631629066) -> 398955276384403290) ((4015 . 5625) (* 631629065 631629067) -> 398955277016032355) ((4016 . 5625) (* 631629066 631629063) -> 398955275121145158) ((4017 . 5625) (* 631629066 631629064) -> 398955275752774224) ((4018 . 5625) (* 631629066 631629065) -> 398955276384403290) ((4019 . 5625) (* 631629066 631629066) -> 398955277016032356) ((4020 . 5625) (* 631629066 631629067) -> 398955277647661422) ((4021 . 5625) (* 631629067 631629063) -> 398955275752774221) ((4022 . 5625) (* 631629067 631629064) -> 398955276384403288) ((4023 . 5625) (* 631629067 631629065) -> 398955277016032355) ((4024 . 5625) (* 631629067 631629066) -> 398955277647661422) ((4025 . 5625) (* 631629067 631629067) -> 398955278279290489) ((4026 . 5625) (* 631629063 9007199254740990) -> 5689208825526349821392370) ((4027 . 5625) (* 631629063 9007199254740991) -> 5689208825526350453021433) ((4028 . 5625) (* 631629063 9007199254740992) -> 5689208825526351084650496) ((4029 . 5625) (* 631629063 9007199254740993) -> 5689208825526351716279559) ((4030 . 5625) (* 631629063 9007199254740994) -> 5689208825526352347908622) ((4031 . 5625) (* 631629064 9007199254740990) -> 5689208834533549076133360) ((4032 . 5625) (* 631629064 9007199254740991) -> 5689208834533549707762424) ((4033 . 5625) (* 631629064 9007199254740992) -> 5689208834533550339391488) ((4034 . 5625) (* 631629064 9007199254740993) -> 5689208834533550971020552) ((4035 . 5625) (* 631629064 9007199254740994) -> 5689208834533551602649616) ((4036 . 5625) (* 631629065 9007199254740990) -> 5689208843540748330874350) ((4037 . 5625) (* 631629065 9007199254740991) -> 5689208843540748962503415) ((4038 . 5625) (* 631629065 9007199254740992) -> 5689208843540749594132480) ((4039 . 5625) (* 631629065 9007199254740993) -> 5689208843540750225761545) ((4040 . 5625) (* 631629065 9007199254740994) -> 5689208843540750857390610) ((4041 . 5625) (* 631629066 9007199254740990) -> 5689208852547947585615340) ((4042 . 5625) (* 631629066 9007199254740991) -> 5689208852547948217244406) ((4043 . 5625) (* 631629066 9007199254740992) -> 5689208852547948848873472) ((4044 . 5625) (* 631629066 9007199254740993) -> 5689208852547949480502538) ((4045 . 5625) (* 631629066 9007199254740994) -> 5689208852547950112131604) ((4046 . 5625) (* 631629067 9007199254740990) -> 5689208861555146840356330) ((4047 . 5625) (* 631629067 9007199254740991) -> 5689208861555147471985397) ((4048 . 5625) (* 631629067 9007199254740992) -> 5689208861555148103614464) ((4049 . 5625) (* 631629067 9007199254740993) -> 5689208861555148735243531) ((4050 . 5625) (* 631629067 9007199254740994) -> 5689208861555149366872598) ((4051 . 5625) (* 631629063 -9007199254740994) -> -5689208825526352347908622) ((4052 . 5625) (* 631629063 -9007199254740993) -> -5689208825526351716279559) ((4053 . 5625) (* 631629063 -9007199254740992) -> -5689208825526351084650496) ((4054 . 5625) (* 631629063 -9007199254740991) -> -5689208825526350453021433) ((4055 . 5625) (* 631629063 -9007199254740990) -> -5689208825526349821392370) ((4056 . 5625) (* 631629064 -9007199254740994) -> -5689208834533551602649616) ((4057 . 5625) (* 631629064 -9007199254740993) -> -5689208834533550971020552) ((4058 . 5625) (* 631629064 -9007199254740992) -> -5689208834533550339391488) ((4059 . 5625) (* 631629064 -9007199254740991) -> -5689208834533549707762424) ((4060 . 5625) (* 631629064 -9007199254740990) -> -5689208834533549076133360) ((4061 . 5625) (* 631629065 -9007199254740994) -> -5689208843540750857390610) ((4062 . 5625) (* 631629065 -9007199254740993) -> -5689208843540750225761545) ((4063 . 5625) (* 631629065 -9007199254740992) -> -5689208843540749594132480) ((4064 . 5625) (* 631629065 -9007199254740991) -> -5689208843540748962503415) ((4065 . 5625) (* 631629065 -9007199254740990) -> -5689208843540748330874350) ((4066 . 5625) (* 631629066 -9007199254740994) -> -5689208852547950112131604) ((4067 . 5625) (* 631629066 -9007199254740993) -> -5689208852547949480502538) ((4068 . 5625) (* 631629066 -9007199254740992) -> -5689208852547948848873472) ((4069 . 5625) (* 631629066 -9007199254740991) -> -5689208852547948217244406) ((4070 . 5625) (* 631629066 -9007199254740990) -> -5689208852547947585615340) ((4071 . 5625) (* 631629067 -9007199254740994) -> -5689208861555149366872598) ((4072 . 5625) (* 631629067 -9007199254740993) -> -5689208861555148735243531) ((4073 . 5625) (* 631629067 -9007199254740992) -> -5689208861555148103614464) ((4074 . 5625) (* 631629067 -9007199254740991) -> -5689208861555147471985397) ((4075 . 5625) (* 631629067 -9007199254740990) -> -5689208861555146840356330) ((4076 . 5625) (* 631629063 12343) -> 7796197524609) ((4077 . 5625) (* 631629063 12344) -> 7796829153672) ((4078 . 5625) (* 631629063 12345) -> 7797460782735) ((4079 . 5625) (* 631629063 12346) -> 7798092411798) ((4080 . 5625) (* 631629063 12347) -> 7798724040861) ((4081 . 5625) (* 631629064 12343) -> 7796197536952) ((4082 . 5625) (* 631629064 12344) -> 7796829166016) ((4083 . 5625) (* 631629064 12345) -> 7797460795080) ((4084 . 5625) (* 631629064 12346) -> 7798092424144) ((4085 . 5625) (* 631629064 12347) -> 7798724053208) ((4086 . 5625) (* 631629065 12343) -> 7796197549295) ((4087 . 5625) (* 631629065 12344) -> 7796829178360) ((4088 . 5625) (* 631629065 12345) -> 7797460807425) ((4089 . 5625) (* 631629065 12346) -> 7798092436490) ((4090 . 5625) (* 631629065 12347) -> 7798724065555) ((4091 . 5625) (* 631629066 12343) -> 7796197561638) ((4092 . 5625) (* 631629066 12344) -> 7796829190704) ((4093 . 5625) (* 631629066 12345) -> 7797460819770) ((4094 . 5625) (* 631629066 12346) -> 7798092448836) ((4095 . 5625) (* 631629066 12347) -> 7798724077902) ((4096 . 5625) (* 631629067 12343) -> 7796197573981) ((4097 . 5625) (* 631629067 12344) -> 7796829203048) ((4098 . 5625) (* 631629067 12345) -> 7797460832115) ((4099 . 5625) (* 631629067 12346) -> 7798092461182) ((4100 . 5625) (* 631629067 12347) -> 7798724090249) ((4101 . 5625) (* 631629063 4294967294) -> 2712826167524865522) ((4102 . 5625) (* 631629063 4294967295) -> 2712826168156494585) ((4103 . 5625) (* 631629063 4294967296) -> 2712826168788123648) ((4104 . 5625) (* 631629063 4294967297) -> 2712826169419752711) ((4105 . 5625) (* 631629063 4294967298) -> 2712826170051381774) ((4106 . 5625) (* 631629064 4294967294) -> 2712826171819832816) ((4107 . 5625) (* 631629064 4294967295) -> 2712826172451461880) ((4108 . 5625) (* 631629064 4294967296) -> 2712826173083090944) ((4109 . 5625) (* 631629064 4294967297) -> 2712826173714720008) ((4110 . 5625) (* 631629064 4294967298) -> 2712826174346349072) ((4111 . 5625) (* 631629065 4294967294) -> 2712826176114800110) ((4112 . 5625) (* 631629065 4294967295) -> 2712826176746429175) ((4113 . 5625) (* 631629065 4294967296) -> 2712826177378058240) ((4114 . 5625) (* 631629065 4294967297) -> 2712826178009687305) ((4115 . 5625) (* 631629065 4294967298) -> 2712826178641316370) ((4116 . 5625) (* 631629066 4294967294) -> 2712826180409767404) ((4117 . 5625) (* 631629066 4294967295) -> 2712826181041396470) ((4118 . 5625) (* 631629066 4294967296) -> 2712826181673025536) ((4119 . 5625) (* 631629066 4294967297) -> 2712826182304654602) ((4120 . 5625) (* 631629066 4294967298) -> 2712826182936283668) ((4121 . 5625) (* 631629067 4294967294) -> 2712826184704734698) ((4122 . 5625) (* 631629067 4294967295) -> 2712826185336363765) ((4123 . 5625) (* 631629067 4294967296) -> 2712826185967992832) ((4124 . 5625) (* 631629067 4294967297) -> 2712826186599621899) ((4125 . 5625) (* 631629067 4294967298) -> 2712826187231250966) ((4126 . 5625) (* 9007199254740990 -2) -> -18014398509481980) ((4127 . 5625) (* 9007199254740990 -1) -> -9007199254740990) ((4128 . 5625) (* 9007199254740990 0) -> 0) ((4129 . 5625) (* 9007199254740990 1) -> 9007199254740990) ((4130 . 5625) (* 9007199254740990 2) -> 18014398509481980) ((4131 . 5625) (* 9007199254740991 -2) -> -18014398509481982) ((4132 . 5625) (* 9007199254740991 -1) -> -9007199254740991) ((4133 . 5625) (* 9007199254740991 0) -> 0) ((4134 . 5625) (* 9007199254740991 1) -> 9007199254740991) ((4135 . 5625) (* 9007199254740991 2) -> 18014398509481982) ((4136 . 5625) (* 9007199254740992 -2) -> -18014398509481984) ((4137 . 5625) (* 9007199254740992 -1) -> -9007199254740992) ((4138 . 5625) (* 9007199254740992 0) -> 0) ((4139 . 5625) (* 9007199254740992 1) -> 9007199254740992) ((4140 . 5625) (* 9007199254740992 2) -> 18014398509481984) ((4141 . 5625) (* 9007199254740993 -2) -> -18014398509481986) ((4142 . 5625) (* 9007199254740993 -1) -> -9007199254740993) ((4143 . 5625) (* 9007199254740993 0) -> 0) ((4144 . 5625) (* 9007199254740993 1) -> 9007199254740993) ((4145 . 5625) (* 9007199254740993 2) -> 18014398509481986) ((4146 . 5625) (* 9007199254740994 -2) -> -18014398509481988) ((4147 . 5625) (* 9007199254740994 -1) -> -9007199254740994) ((4148 . 5625) (* 9007199254740994 0) -> 0) ((4149 . 5625) (* 9007199254740994 1) -> 9007199254740994) ((4150 . 5625) (* 9007199254740994 2) -> 18014398509481988) ((4151 . 5625) (* 9007199254740990 -1) -> -9007199254740990) ((4152 . 5625) (* 9007199254740990 0) -> 0) ((4153 . 5625) (* 9007199254740990 1) -> 9007199254740990) ((4154 . 5625) (* 9007199254740990 2) -> 18014398509481980) ((4155 . 5625) (* 9007199254740990 3) -> 27021597764222970) ((4156 . 5625) (* 9007199254740991 -1) -> -9007199254740991) ((4157 . 5625) (* 9007199254740991 0) -> 0) ((4158 . 5625) (* 9007199254740991 1) -> 9007199254740991) ((4159 . 5625) (* 9007199254740991 2) -> 18014398509481982) ((4160 . 5625) (* 9007199254740991 3) -> 27021597764222973) ((4161 . 5625) (* 9007199254740992 -1) -> -9007199254740992) ((4162 . 5625) (* 9007199254740992 0) -> 0) ((4163 . 5625) (* 9007199254740992 1) -> 9007199254740992) ((4164 . 5625) (* 9007199254740992 2) -> 18014398509481984) ((4165 . 5625) (* 9007199254740992 3) -> 27021597764222976) ((4166 . 5625) (* 9007199254740993 -1) -> -9007199254740993) ((4167 . 5625) (* 9007199254740993 0) -> 0) ((4168 . 5625) (* 9007199254740993 1) -> 9007199254740993) ((4169 . 5625) (* 9007199254740993 2) -> 18014398509481986) ((4170 . 5625) (* 9007199254740993 3) -> 27021597764222979) ((4171 . 5625) (* 9007199254740994 -1) -> -9007199254740994) ((4172 . 5625) (* 9007199254740994 0) -> 0) ((4173 . 5625) (* 9007199254740994 1) -> 9007199254740994) ((4174 . 5625) (* 9007199254740994 2) -> 18014398509481988) ((4175 . 5625) (* 9007199254740994 3) -> 27021597764222982) ((4176 . 5625) (* 9007199254740990 -3) -> -27021597764222970) ((4177 . 5625) (* 9007199254740990 -2) -> -18014398509481980) ((4178 . 5625) (* 9007199254740990 -1) -> -9007199254740990) ((4179 . 5625) (* 9007199254740990 0) -> 0) ((4180 . 5625) (* 9007199254740990 1) -> 9007199254740990) ((4181 . 5625) (* 9007199254740991 -3) -> -27021597764222973) ((4182 . 5625) (* 9007199254740991 -2) -> -18014398509481982) ((4183 . 5625) (* 9007199254740991 -1) -> -9007199254740991) ((4184 . 5625) (* 9007199254740991 0) -> 0) ((4185 . 5625) (* 9007199254740991 1) -> 9007199254740991) ((4186 . 5625) (* 9007199254740992 -3) -> -27021597764222976) ((4187 . 5625) (* 9007199254740992 -2) -> -18014398509481984) ((4188 . 5625) (* 9007199254740992 -1) -> -9007199254740992) ((4189 . 5625) (* 9007199254740992 0) -> 0) ((4190 . 5625) (* 9007199254740992 1) -> 9007199254740992) ((4191 . 5625) (* 9007199254740993 -3) -> -27021597764222979) ((4192 . 5625) (* 9007199254740993 -2) -> -18014398509481986) ((4193 . 5625) (* 9007199254740993 -1) -> -9007199254740993) ((4194 . 5625) (* 9007199254740993 0) -> 0) ((4195 . 5625) (* 9007199254740993 1) -> 9007199254740993) ((4196 . 5625) (* 9007199254740994 -3) -> -27021597764222982) ((4197 . 5625) (* 9007199254740994 -2) -> -18014398509481988) ((4198 . 5625) (* 9007199254740994 -1) -> -9007199254740994) ((4199 . 5625) (* 9007199254740994 0) -> 0) ((4200 . 5625) (* 9007199254740994 1) -> 9007199254740994) ((4201 . 5625) (* 9007199254740990 0) -> 0) ((4202 . 5625) (* 9007199254740990 1) -> 9007199254740990) ((4203 . 5625) (* 9007199254740990 2) -> 18014398509481980) ((4204 . 5625) (* 9007199254740990 3) -> 27021597764222970) ((4205 . 5625) (* 9007199254740990 4) -> 36028797018963960) ((4206 . 5625) (* 9007199254740991 0) -> 0) ((4207 . 5625) (* 9007199254740991 1) -> 9007199254740991) ((4208 . 5625) (* 9007199254740991 2) -> 18014398509481982) ((4209 . 5625) (* 9007199254740991 3) -> 27021597764222973) ((4210 . 5625) (* 9007199254740991 4) -> 36028797018963964) ((4211 . 5625) (* 9007199254740992 0) -> 0) ((4212 . 5625) (* 9007199254740992 1) -> 9007199254740992) ((4213 . 5625) (* 9007199254740992 2) -> 18014398509481984) ((4214 . 5625) (* 9007199254740992 3) -> 27021597764222976) ((4215 . 5625) (* 9007199254740992 4) -> 36028797018963968) ((4216 . 5625) (* 9007199254740993 0) -> 0) ((4217 . 5625) (* 9007199254740993 1) -> 9007199254740993) ((4218 . 5625) (* 9007199254740993 2) -> 18014398509481986) ((4219 . 5625) (* 9007199254740993 3) -> 27021597764222979) ((4220 . 5625) (* 9007199254740993 4) -> 36028797018963972) ((4221 . 5625) (* 9007199254740994 0) -> 0) ((4222 . 5625) (* 9007199254740994 1) -> 9007199254740994) ((4223 . 5625) (* 9007199254740994 2) -> 18014398509481988) ((4224 . 5625) (* 9007199254740994 3) -> 27021597764222982) ((4225 . 5625) (* 9007199254740994 4) -> 36028797018963976) ((4226 . 5625) (* 9007199254740990 -4) -> -36028797018963960) ((4227 . 5625) (* 9007199254740990 -3) -> -27021597764222970) ((4228 . 5625) (* 9007199254740990 -2) -> -18014398509481980) ((4229 . 5625) (* 9007199254740990 -1) -> -9007199254740990) ((4230 . 5625) (* 9007199254740990 0) -> 0) ((4231 . 5625) (* 9007199254740991 -4) -> -36028797018963964) ((4232 . 5625) (* 9007199254740991 -3) -> -27021597764222973) ((4233 . 5625) (* 9007199254740991 -2) -> -18014398509481982) ((4234 . 5625) (* 9007199254740991 -1) -> -9007199254740991) ((4235 . 5625) (* 9007199254740991 0) -> 0) ((4236 . 5625) (* 9007199254740992 -4) -> -36028797018963968) ((4237 . 5625) (* 9007199254740992 -3) -> -27021597764222976) ((4238 . 5625) (* 9007199254740992 -2) -> -18014398509481984) ((4239 . 5625) (* 9007199254740992 -1) -> -9007199254740992) ((4240 . 5625) (* 9007199254740992 0) -> 0) ((4241 . 5625) (* 9007199254740993 -4) -> -36028797018963972) ((4242 . 5625) (* 9007199254740993 -3) -> -27021597764222979) ((4243 . 5625) (* 9007199254740993 -2) -> -18014398509481986) ((4244 . 5625) (* 9007199254740993 -1) -> -9007199254740993) ((4245 . 5625) (* 9007199254740993 0) -> 0) ((4246 . 5625) (* 9007199254740994 -4) -> -36028797018963976) ((4247 . 5625) (* 9007199254740994 -3) -> -27021597764222982) ((4248 . 5625) (* 9007199254740994 -2) -> -18014398509481988) ((4249 . 5625) (* 9007199254740994 -1) -> -9007199254740994) ((4250 . 5625) (* 9007199254740994 0) -> 0) ((4251 . 5625) (* 9007199254740990 1073741821) -> 9671406529895433485942790) ((4252 . 5625) (* 9007199254740990 1073741822) -> 9671406538902632740683780) ((4253 . 5625) (* 9007199254740990 1073741823) -> 9671406547909831995424770) ((4254 . 5625) (* 9007199254740990 1073741824) -> 9671406556917031250165760) ((4255 . 5625) (* 9007199254740990 1073741825) -> 9671406565924230504906750) ((4256 . 5625) (* 9007199254740991 1073741821) -> 9671406529895434559684611) ((4257 . 5625) (* 9007199254740991 1073741822) -> 9671406538902633814425602) ((4258 . 5625) (* 9007199254740991 1073741823) -> 9671406547909833069166593) ((4259 . 5625) (* 9007199254740991 1073741824) -> 9671406556917032323907584) ((4260 . 5625) (* 9007199254740991 1073741825) -> 9671406565924231578648575) ((4261 . 5625) (* 9007199254740992 1073741821) -> 9671406529895435633426432) ((4262 . 5625) (* 9007199254740992 1073741822) -> 9671406538902634888167424) ((4263 . 5625) (* 9007199254740992 1073741823) -> 9671406547909834142908416) ((4264 . 5625) (* 9007199254740992 1073741824) -> 9671406556917033397649408) ((4265 . 5625) (* 9007199254740992 1073741825) -> 9671406565924232652390400) ((4266 . 5625) (* 9007199254740993 1073741821) -> 9671406529895436707168253) ((4267 . 5625) (* 9007199254740993 1073741822) -> 9671406538902635961909246) ((4268 . 5625) (* 9007199254740993 1073741823) -> 9671406547909835216650239) ((4269 . 5625) (* 9007199254740993 1073741824) -> 9671406556917034471391232) ((4270 . 5625) (* 9007199254740993 1073741825) -> 9671406565924233726132225) ((4271 . 5625) (* 9007199254740994 1073741821) -> 9671406529895437780910074) ((4272 . 5625) (* 9007199254740994 1073741822) -> 9671406538902637035651068) ((4273 . 5625) (* 9007199254740994 1073741823) -> 9671406547909836290392062) ((4274 . 5625) (* 9007199254740994 1073741824) -> 9671406556917035545133056) ((4275 . 5625) (* 9007199254740994 1073741825) -> 9671406565924234799874050) ((4276 . 5625) (* 9007199254740990 -1073741826) -> -9671406574931429759647740) ((4277 . 5625) (* 9007199254740990 -1073741825) -> -9671406565924230504906750) ((4278 . 5625) (* 9007199254740990 -1073741824) -> -9671406556917031250165760) ((4279 . 5625) (* 9007199254740990 -1073741823) -> -9671406547909831995424770) ((4280 . 5625) (* 9007199254740990 -1073741822) -> -9671406538902632740683780) ((4281 . 5625) (* 9007199254740991 -1073741826) -> -9671406574931430833389566) ((4282 . 5625) (* 9007199254740991 -1073741825) -> -9671406565924231578648575) ((4283 . 5625) (* 9007199254740991 -1073741824) -> -9671406556917032323907584) ((4284 . 5625) (* 9007199254740991 -1073741823) -> -9671406547909833069166593) ((4285 . 5625) (* 9007199254740991 -1073741822) -> -9671406538902633814425602) ((4286 . 5625) (* 9007199254740992 -1073741826) -> -9671406574931431907131392) ((4287 . 5625) (* 9007199254740992 -1073741825) -> -9671406565924232652390400) ((4288 . 5625) (* 9007199254740992 -1073741824) -> -9671406556917033397649408) ((4289 . 5625) (* 9007199254740992 -1073741823) -> -9671406547909834142908416) ((4290 . 5625) (* 9007199254740992 -1073741822) -> -9671406538902634888167424) ((4291 . 5625) (* 9007199254740993 -1073741826) -> -9671406574931432980873218) ((4292 . 5625) (* 9007199254740993 -1073741825) -> -9671406565924233726132225) ((4293 . 5625) (* 9007199254740993 -1073741824) -> -9671406556917034471391232) ((4294 . 5625) (* 9007199254740993 -1073741823) -> -9671406547909835216650239) ((4295 . 5625) (* 9007199254740993 -1073741822) -> -9671406538902635961909246) ((4296 . 5625) (* 9007199254740994 -1073741826) -> -9671406574931434054615044) ((4297 . 5625) (* 9007199254740994 -1073741825) -> -9671406565924234799874050) ((4298 . 5625) (* 9007199254740994 -1073741824) -> -9671406556917035545133056) ((4299 . 5625) (* 9007199254740994 -1073741823) -> -9671406547909836290392062) ((4300 . 5625) (* 9007199254740994 -1073741822) -> -9671406538902637035651068) ((4301 . 5625) (* 9007199254740990 1073741822) -> 9671406538902632740683780) ((4302 . 5625) (* 9007199254740990 1073741823) -> 9671406547909831995424770) ((4303 . 5625) (* 9007199254740990 1073741824) -> 9671406556917031250165760) ((4304 . 5625) (* 9007199254740990 1073741825) -> 9671406565924230504906750) ((4305 . 5625) (* 9007199254740990 1073741826) -> 9671406574931429759647740) ((4306 . 5625) (* 9007199254740991 1073741822) -> 9671406538902633814425602) ((4307 . 5625) (* 9007199254740991 1073741823) -> 9671406547909833069166593) ((4308 . 5625) (* 9007199254740991 1073741824) -> 9671406556917032323907584) ((4309 . 5625) (* 9007199254740991 1073741825) -> 9671406565924231578648575) ((4310 . 5625) (* 9007199254740991 1073741826) -> 9671406574931430833389566) ((4311 . 5625) (* 9007199254740992 1073741822) -> 9671406538902634888167424) ((4312 . 5625) (* 9007199254740992 1073741823) -> 9671406547909834142908416) ((4313 . 5625) (* 9007199254740992 1073741824) -> 9671406556917033397649408) ((4314 . 5625) (* 9007199254740992 1073741825) -> 9671406565924232652390400) ((4315 . 5625) (* 9007199254740992 1073741826) -> 9671406574931431907131392) ((4316 . 5625) (* 9007199254740993 1073741822) -> 9671406538902635961909246) ((4317 . 5625) (* 9007199254740993 1073741823) -> 9671406547909835216650239) ((4318 . 5625) (* 9007199254740993 1073741824) -> 9671406556917034471391232) ((4319 . 5625) (* 9007199254740993 1073741825) -> 9671406565924233726132225) ((4320 . 5625) (* 9007199254740993 1073741826) -> 9671406574931432980873218) ((4321 . 5625) (* 9007199254740994 1073741822) -> 9671406538902637035651068) ((4322 . 5625) (* 9007199254740994 1073741823) -> 9671406547909836290392062) ((4323 . 5625) (* 9007199254740994 1073741824) -> 9671406556917035545133056) ((4324 . 5625) (* 9007199254740994 1073741825) -> 9671406565924234799874050) ((4325 . 5625) (* 9007199254740994 1073741826) -> 9671406574931434054615044) ((4326 . 5625) (* 9007199254740990 -1073741827) -> -9671406583938629014388730) ((4327 . 5625) (* 9007199254740990 -1073741826) -> -9671406574931429759647740) ((4328 . 5625) (* 9007199254740990 -1073741825) -> -9671406565924230504906750) ((4329 . 5625) (* 9007199254740990 -1073741824) -> -9671406556917031250165760) ((4330 . 5625) (* 9007199254740990 -1073741823) -> -9671406547909831995424770) ((4331 . 5625) (* 9007199254740991 -1073741827) -> -9671406583938630088130557) ((4332 . 5625) (* 9007199254740991 -1073741826) -> -9671406574931430833389566) ((4333 . 5625) (* 9007199254740991 -1073741825) -> -9671406565924231578648575) ((4334 . 5625) (* 9007199254740991 -1073741824) -> -9671406556917032323907584) ((4335 . 5625) (* 9007199254740991 -1073741823) -> -9671406547909833069166593) ((4336 . 5625) (* 9007199254740992 -1073741827) -> -9671406583938631161872384) ((4337 . 5625) (* 9007199254740992 -1073741826) -> -9671406574931431907131392) ((4338 . 5625) (* 9007199254740992 -1073741825) -> -9671406565924232652390400) ((4339 . 5625) (* 9007199254740992 -1073741824) -> -9671406556917033397649408) ((4340 . 5625) (* 9007199254740992 -1073741823) -> -9671406547909834142908416) ((4341 . 5625) (* 9007199254740993 -1073741827) -> -9671406583938632235614211) ((4342 . 5625) (* 9007199254740993 -1073741826) -> -9671406574931432980873218) ((4343 . 5625) (* 9007199254740993 -1073741825) -> -9671406565924233726132225) ((4344 . 5625) (* 9007199254740993 -1073741824) -> -9671406556917034471391232) ((4345 . 5625) (* 9007199254740993 -1073741823) -> -9671406547909835216650239) ((4346 . 5625) (* 9007199254740994 -1073741827) -> -9671406583938633309356038) ((4347 . 5625) (* 9007199254740994 -1073741826) -> -9671406574931434054615044) ((4348 . 5625) (* 9007199254740994 -1073741825) -> -9671406565924234799874050) ((4349 . 5625) (* 9007199254740994 -1073741824) -> -9671406556917035545133056) ((4350 . 5625) (* 9007199254740994 -1073741823) -> -9671406547909836290392062) ((4351 . 5625) (* 9007199254740990 1103515243) -> 9939581674344922481910570) ((4352 . 5625) (* 9007199254740990 1103515244) -> 9939581683352121736651560) ((4353 . 5625) (* 9007199254740990 1103515245) -> 9939581692359320991392550) ((4354 . 5625) (* 9007199254740990 1103515246) -> 9939581701366520246133540) ((4355 . 5625) (* 9007199254740990 1103515247) -> 9939581710373719500874530) ((4356 . 5625) (* 9007199254740991 1103515243) -> 9939581674344923585425813) ((4357 . 5625) (* 9007199254740991 1103515244) -> 9939581683352122840166804) ((4358 . 5625) (* 9007199254740991 1103515245) -> 9939581692359322094907795) ((4359 . 5625) (* 9007199254740991 1103515246) -> 9939581701366521349648786) ((4360 . 5625) (* 9007199254740991 1103515247) -> 9939581710373720604389777) ((4361 . 5625) (* 9007199254740992 1103515243) -> 9939581674344924688941056) ((4362 . 5625) (* 9007199254740992 1103515244) -> 9939581683352123943682048) ((4363 . 5625) (* 9007199254740992 1103515245) -> 9939581692359323198423040) ((4364 . 5625) (* 9007199254740992 1103515246) -> 9939581701366522453164032) ((4365 . 5625) (* 9007199254740992 1103515247) -> 9939581710373721707905024) ((4366 . 5625) (* 9007199254740993 1103515243) -> 9939581674344925792456299) ((4367 . 5625) (* 9007199254740993 1103515244) -> 9939581683352125047197292) ((4368 . 5625) (* 9007199254740993 1103515245) -> 9939581692359324301938285) ((4369 . 5625) (* 9007199254740993 1103515246) -> 9939581701366523556679278) ((4370 . 5625) (* 9007199254740993 1103515247) -> 9939581710373722811420271) ((4371 . 5625) (* 9007199254740994 1103515243) -> 9939581674344926895971542) ((4372 . 5625) (* 9007199254740994 1103515244) -> 9939581683352126150712536) ((4373 . 5625) (* 9007199254740994 1103515245) -> 9939581692359325405453530) ((4374 . 5625) (* 9007199254740994 1103515246) -> 9939581701366524660194524) ((4375 . 5625) (* 9007199254740994 1103515247) -> 9939581710373723914935518) ((4376 . 5625) (* 9007199254740990 631629063) -> 5689208825526349821392370) ((4377 . 5625) (* 9007199254740990 631629064) -> 5689208834533549076133360) ((4378 . 5625) (* 9007199254740990 631629065) -> 5689208843540748330874350) ((4379 . 5625) (* 9007199254740990 631629066) -> 5689208852547947585615340) ((4380 . 5625) (* 9007199254740990 631629067) -> 5689208861555146840356330) ((4381 . 5625) (* 9007199254740991 631629063) -> 5689208825526350453021433) ((4382 . 5625) (* 9007199254740991 631629064) -> 5689208834533549707762424) ((4383 . 5625) (* 9007199254740991 631629065) -> 5689208843540748962503415) ((4384 . 5625) (* 9007199254740991 631629066) -> 5689208852547948217244406) ((4385 . 5625) (* 9007199254740991 631629067) -> 5689208861555147471985397) ((4386 . 5625) (* 9007199254740992 631629063) -> 5689208825526351084650496) ((4387 . 5625) (* 9007199254740992 631629064) -> 5689208834533550339391488) ((4388 . 5625) (* 9007199254740992 631629065) -> 5689208843540749594132480) ((4389 . 5625) (* 9007199254740992 631629066) -> 5689208852547948848873472) ((4390 . 5625) (* 9007199254740992 631629067) -> 5689208861555148103614464) ((4391 . 5625) (* 9007199254740993 631629063) -> 5689208825526351716279559) ((4392 . 5625) (* 9007199254740993 631629064) -> 5689208834533550971020552) ((4393 . 5625) (* 9007199254740993 631629065) -> 5689208843540750225761545) ((4394 . 5625) (* 9007199254740993 631629066) -> 5689208852547949480502538) ((4395 . 5625) (* 9007199254740993 631629067) -> 5689208861555148735243531) ((4396 . 5625) (* 9007199254740994 631629063) -> 5689208825526352347908622) ((4397 . 5625) (* 9007199254740994 631629064) -> 5689208834533551602649616) ((4398 . 5625) (* 9007199254740994 631629065) -> 5689208843540750857390610) ((4399 . 5625) (* 9007199254740994 631629066) -> 5689208852547950112131604) ((4400 . 5625) (* 9007199254740994 631629067) -> 5689208861555149366872598) ((4401 . 5625) (* 9007199254740990 9007199254740990) -> 81129638414606645666991986180100) ((4402 . 5625) (* 9007199254740990 9007199254740991) -> 81129638414606654674191240921090) ((4403 . 5625) (* 9007199254740990 9007199254740992) -> 81129638414606663681390495662080) ((4404 . 5625) (* 9007199254740990 9007199254740993) -> 81129638414606672688589750403070) ((4405 . 5625) (* 9007199254740990 9007199254740994) -> 81129638414606681695789005144060) ((4406 . 5625) (* 9007199254740991 9007199254740990) -> 81129638414606654674191240921090) ((4407 . 5625) (* 9007199254740991 9007199254740991) -> 81129638414606663681390495662081) ((4408 . 5625) (* 9007199254740991 9007199254740992) -> 81129638414606672688589750403072) ((4409 . 5625) (* 9007199254740991 9007199254740993) -> 81129638414606681695789005144063) ((4410 . 5625) (* 9007199254740991 9007199254740994) -> 81129638414606690702988259885054) ((4411 . 5625) (* 9007199254740992 9007199254740990) -> 81129638414606663681390495662080) ((4412 . 5625) (* 9007199254740992 9007199254740991) -> 81129638414606672688589750403072) ((4413 . 5625) (* 9007199254740992 9007199254740992) -> 81129638414606681695789005144064) ((4414 . 5625) (* 9007199254740992 9007199254740993) -> 81129638414606690702988259885056) ((4415 . 5625) (* 9007199254740992 9007199254740994) -> 81129638414606699710187514626048) ((4416 . 5625) (* 9007199254740993 9007199254740990) -> 81129638414606672688589750403070) ((4417 . 5625) (* 9007199254740993 9007199254740991) -> 81129638414606681695789005144063) ((4418 . 5625) (* 9007199254740993 9007199254740992) -> 81129638414606690702988259885056) ((4419 . 5625) (* 9007199254740993 9007199254740993) -> 81129638414606699710187514626049) ((4420 . 5625) (* 9007199254740993 9007199254740994) -> 81129638414606708717386769367042) ((4421 . 5625) (* 9007199254740994 9007199254740990) -> 81129638414606681695789005144060) ((4422 . 5625) (* 9007199254740994 9007199254740991) -> 81129638414606690702988259885054) ((4423 . 5625) (* 9007199254740994 9007199254740992) -> 81129638414606699710187514626048) ((4424 . 5625) (* 9007199254740994 9007199254740993) -> 81129638414606708717386769367042) ((4425 . 5625) (* 9007199254740994 9007199254740994) -> 81129638414606717724586024108036) ((4426 . 5625) (* 9007199254740990 -9007199254740994) -> -81129638414606681695789005144060) ((4427 . 5625) (* 9007199254740990 -9007199254740993) -> -81129638414606672688589750403070) ((4428 . 5625) (* 9007199254740990 -9007199254740992) -> -81129638414606663681390495662080) ((4429 . 5625) (* 9007199254740990 -9007199254740991) -> -81129638414606654674191240921090) ((4430 . 5625) (* 9007199254740990 -9007199254740990) -> -81129638414606645666991986180100) ((4431 . 5625) (* 9007199254740991 -9007199254740994) -> -81129638414606690702988259885054) ((4432 . 5625) (* 9007199254740991 -9007199254740993) -> -81129638414606681695789005144063) ((4433 . 5625) (* 9007199254740991 -9007199254740992) -> -81129638414606672688589750403072) ((4434 . 5625) (* 9007199254740991 -9007199254740991) -> -81129638414606663681390495662081) ((4435 . 5625) (* 9007199254740991 -9007199254740990) -> -81129638414606654674191240921090) ((4436 . 5625) (* 9007199254740992 -9007199254740994) -> -81129638414606699710187514626048) ((4437 . 5625) (* 9007199254740992 -9007199254740993) -> -81129638414606690702988259885056) ((4438 . 5625) (* 9007199254740992 -9007199254740992) -> -81129638414606681695789005144064) ((4439 . 5625) (* 9007199254740992 -9007199254740991) -> -81129638414606672688589750403072) ((4440 . 5625) (* 9007199254740992 -9007199254740990) -> -81129638414606663681390495662080) ((4441 . 5625) (* 9007199254740993 -9007199254740994) -> -81129638414606708717386769367042) ((4442 . 5625) (* 9007199254740993 -9007199254740993) -> -81129638414606699710187514626049) ((4443 . 5625) (* 9007199254740993 -9007199254740992) -> -81129638414606690702988259885056) ((4444 . 5625) (* 9007199254740993 -9007199254740991) -> -81129638414606681695789005144063) ((4445 . 5625) (* 9007199254740993 -9007199254740990) -> -81129638414606672688589750403070) ((4446 . 5625) (* 9007199254740994 -9007199254740994) -> -81129638414606717724586024108036) ((4447 . 5625) (* 9007199254740994 -9007199254740993) -> -81129638414606708717386769367042) ((4448 . 5625) (* 9007199254740994 -9007199254740992) -> -81129638414606699710187514626048) ((4449 . 5625) (* 9007199254740994 -9007199254740991) -> -81129638414606690702988259885054) ((4450 . 5625) (* 9007199254740994 -9007199254740990) -> -81129638414606681695789005144060) ((4451 . 5625) (* 9007199254740990 12343) -> 111175860401268039570) ((4452 . 5625) (* 9007199254740990 12344) -> 111184867600522780560) ((4453 . 5625) (* 9007199254740990 12345) -> 111193874799777521550) ((4454 . 5625) (* 9007199254740990 12346) -> 111202881999032262540) ((4455 . 5625) (* 9007199254740990 12347) -> 111211889198287003530) ((4456 . 5625) (* 9007199254740991 12343) -> 111175860401268051913) ((4457 . 5625) (* 9007199254740991 12344) -> 111184867600522792904) ((4458 . 5625) (* 9007199254740991 12345) -> 111193874799777533895) ((4459 . 5625) (* 9007199254740991 12346) -> 111202881999032274886) ((4460 . 5625) (* 9007199254740991 12347) -> 111211889198287015877) ((4461 . 5625) (* 9007199254740992 12343) -> 111175860401268064256) ((4462 . 5625) (* 9007199254740992 12344) -> 111184867600522805248) ((4463 . 5625) (* 9007199254740992 12345) -> 111193874799777546240) ((4464 . 5625) (* 9007199254740992 12346) -> 111202881999032287232) ((4465 . 5625) (* 9007199254740992 12347) -> 111211889198287028224) ((4466 . 5625) (* 9007199254740993 12343) -> 111175860401268076599) ((4467 . 5625) (* 9007199254740993 12344) -> 111184867600522817592) ((4468 . 5625) (* 9007199254740993 12345) -> 111193874799777558585) ((4469 . 5625) (* 9007199254740993 12346) -> 111202881999032299578) ((4470 . 5625) (* 9007199254740993 12347) -> 111211889198287040571) ((4471 . 5625) (* 9007199254740994 12343) -> 111175860401268088942) ((4472 . 5625) (* 9007199254740994 12344) -> 111184867600522829936) ((4473 . 5625) (* 9007199254740994 12345) -> 111193874799777570930) ((4474 . 5625) (* 9007199254740994 12346) -> 111202881999032311924) ((4475 . 5625) (* 9007199254740994 12347) -> 111211889198287052918) ((4476 . 5625) (* 9007199254740990 4294967294) -> 38685626209653726491181060) ((4477 . 5625) (* 9007199254740990 4294967295) -> 38685626218660925745922050) ((4478 . 5625) (* 9007199254740990 4294967296) -> 38685626227668125000663040) ((4479 . 5625) (* 9007199254740990 4294967297) -> 38685626236675324255404030) ((4480 . 5625) (* 9007199254740990 4294967298) -> 38685626245682523510145020) ((4481 . 5625) (* 9007199254740991 4294967294) -> 38685626209653730786148354) ((4482 . 5625) (* 9007199254740991 4294967295) -> 38685626218660930040889345) ((4483 . 5625) (* 9007199254740991 4294967296) -> 38685626227668129295630336) ((4484 . 5625) (* 9007199254740991 4294967297) -> 38685626236675328550371327) ((4485 . 5625) (* 9007199254740991 4294967298) -> 38685626245682527805112318) ((4486 . 5625) (* 9007199254740992 4294967294) -> 38685626209653735081115648) ((4487 . 5625) (* 9007199254740992 4294967295) -> 38685626218660934335856640) ((4488 . 5625) (* 9007199254740992 4294967296) -> 38685626227668133590597632) ((4489 . 5625) (* 9007199254740992 4294967297) -> 38685626236675332845338624) ((4490 . 5625) (* 9007199254740992 4294967298) -> 38685626245682532100079616) ((4491 . 5625) (* 9007199254740993 4294967294) -> 38685626209653739376082942) ((4492 . 5625) (* 9007199254740993 4294967295) -> 38685626218660938630823935) ((4493 . 5625) (* 9007199254740993 4294967296) -> 38685626227668137885564928) ((4494 . 5625) (* 9007199254740993 4294967297) -> 38685626236675337140305921) ((4495 . 5625) (* 9007199254740993 4294967298) -> 38685626245682536395046914) ((4496 . 5625) (* 9007199254740994 4294967294) -> 38685626209653743671050236) ((4497 . 5625) (* 9007199254740994 4294967295) -> 38685626218660942925791230) ((4498 . 5625) (* 9007199254740994 4294967296) -> 38685626227668142180532224) ((4499 . 5625) (* 9007199254740994 4294967297) -> 38685626236675341435273218) ((4500 . 5625) (* 9007199254740994 4294967298) -> 38685626245682540690014212) ((4501 . 5625) (* -9007199254740994 -2) -> 18014398509481988) ((4502 . 5625) (* -9007199254740994 -1) -> 9007199254740994) ((4503 . 5625) (* -9007199254740994 0) -> 0) ((4504 . 5625) (* -9007199254740994 1) -> -9007199254740994) ((4505 . 5625) (* -9007199254740994 2) -> -18014398509481988) ((4506 . 5625) (* -9007199254740993 -2) -> 18014398509481986) ((4507 . 5625) (* -9007199254740993 -1) -> 9007199254740993) ((4508 . 5625) (* -9007199254740993 0) -> 0) ((4509 . 5625) (* -9007199254740993 1) -> -9007199254740993) ((4510 . 5625) (* -9007199254740993 2) -> -18014398509481986) ((4511 . 5625) (* -9007199254740992 -2) -> 18014398509481984) ((4512 . 5625) (* -9007199254740992 -1) -> 9007199254740992) ((4513 . 5625) (* -9007199254740992 0) -> 0) ((4514 . 5625) (* -9007199254740992 1) -> -9007199254740992) ((4515 . 5625) (* -9007199254740992 2) -> -18014398509481984) ((4516 . 5625) (* -9007199254740991 -2) -> 18014398509481982) ((4517 . 5625) (* -9007199254740991 -1) -> 9007199254740991) ((4518 . 5625) (* -9007199254740991 0) -> 0) ((4519 . 5625) (* -9007199254740991 1) -> -9007199254740991) ((4520 . 5625) (* -9007199254740991 2) -> -18014398509481982) ((4521 . 5625) (* -9007199254740990 -2) -> 18014398509481980) ((4522 . 5625) (* -9007199254740990 -1) -> 9007199254740990) ((4523 . 5625) (* -9007199254740990 0) -> 0) ((4524 . 5625) (* -9007199254740990 1) -> -9007199254740990) ((4525 . 5625) (* -9007199254740990 2) -> -18014398509481980) ((4526 . 5625) (* -9007199254740994 -1) -> 9007199254740994) ((4527 . 5625) (* -9007199254740994 0) -> 0) ((4528 . 5625) (* -9007199254740994 1) -> -9007199254740994) ((4529 . 5625) (* -9007199254740994 2) -> -18014398509481988) ((4530 . 5625) (* -9007199254740994 3) -> -27021597764222982) ((4531 . 5625) (* -9007199254740993 -1) -> 9007199254740993) ((4532 . 5625) (* -9007199254740993 0) -> 0) ((4533 . 5625) (* -9007199254740993 1) -> -9007199254740993) ((4534 . 5625) (* -9007199254740993 2) -> -18014398509481986) ((4535 . 5625) (* -9007199254740993 3) -> -27021597764222979) ((4536 . 5625) (* -9007199254740992 -1) -> 9007199254740992) ((4537 . 5625) (* -9007199254740992 0) -> 0) ((4538 . 5625) (* -9007199254740992 1) -> -9007199254740992) ((4539 . 5625) (* -9007199254740992 2) -> -18014398509481984) ((4540 . 5625) (* -9007199254740992 3) -> -27021597764222976) ((4541 . 5625) (* -9007199254740991 -1) -> 9007199254740991) ((4542 . 5625) (* -9007199254740991 0) -> 0) ((4543 . 5625) (* -9007199254740991 1) -> -9007199254740991) ((4544 . 5625) (* -9007199254740991 2) -> -18014398509481982) ((4545 . 5625) (* -9007199254740991 3) -> -27021597764222973) ((4546 . 5625) (* -9007199254740990 -1) -> 9007199254740990) ((4547 . 5625) (* -9007199254740990 0) -> 0) ((4548 . 5625) (* -9007199254740990 1) -> -9007199254740990) ((4549 . 5625) (* -9007199254740990 2) -> -18014398509481980) ((4550 . 5625) (* -9007199254740990 3) -> -27021597764222970) ((4551 . 5625) (* -9007199254740994 -3) -> 27021597764222982) ((4552 . 5625) (* -9007199254740994 -2) -> 18014398509481988) ((4553 . 5625) (* -9007199254740994 -1) -> 9007199254740994) ((4554 . 5625) (* -9007199254740994 0) -> 0) ((4555 . 5625) (* -9007199254740994 1) -> -9007199254740994) ((4556 . 5625) (* -9007199254740993 -3) -> 27021597764222979) ((4557 . 5625) (* -9007199254740993 -2) -> 18014398509481986) ((4558 . 5625) (* -9007199254740993 -1) -> 9007199254740993) ((4559 . 5625) (* -9007199254740993 0) -> 0) ((4560 . 5625) (* -9007199254740993 1) -> -9007199254740993) ((4561 . 5625) (* -9007199254740992 -3) -> 27021597764222976) ((4562 . 5625) (* -9007199254740992 -2) -> 18014398509481984) ((4563 . 5625) (* -9007199254740992 -1) -> 9007199254740992) ((4564 . 5625) (* -9007199254740992 0) -> 0) ((4565 . 5625) (* -9007199254740992 1) -> -9007199254740992) ((4566 . 5625) (* -9007199254740991 -3) -> 27021597764222973) ((4567 . 5625) (* -9007199254740991 -2) -> 18014398509481982) ((4568 . 5625) (* -9007199254740991 -1) -> 9007199254740991) ((4569 . 5625) (* -9007199254740991 0) -> 0) ((4570 . 5625) (* -9007199254740991 1) -> -9007199254740991) ((4571 . 5625) (* -9007199254740990 -3) -> 27021597764222970) ((4572 . 5625) (* -9007199254740990 -2) -> 18014398509481980) ((4573 . 5625) (* -9007199254740990 -1) -> 9007199254740990) ((4574 . 5625) (* -9007199254740990 0) -> 0) ((4575 . 5625) (* -9007199254740990 1) -> -9007199254740990) ((4576 . 5625) (* -9007199254740994 0) -> 0) ((4577 . 5625) (* -9007199254740994 1) -> -9007199254740994) ((4578 . 5625) (* -9007199254740994 2) -> -18014398509481988) ((4579 . 5625) (* -9007199254740994 3) -> -27021597764222982) ((4580 . 5625) (* -9007199254740994 4) -> -36028797018963976) ((4581 . 5625) (* -9007199254740993 0) -> 0) ((4582 . 5625) (* -9007199254740993 1) -> -9007199254740993) ((4583 . 5625) (* -9007199254740993 2) -> -18014398509481986) ((4584 . 5625) (* -9007199254740993 3) -> -27021597764222979) ((4585 . 5625) (* -9007199254740993 4) -> -36028797018963972) ((4586 . 5625) (* -9007199254740992 0) -> 0) ((4587 . 5625) (* -9007199254740992 1) -> -9007199254740992) ((4588 . 5625) (* -9007199254740992 2) -> -18014398509481984) ((4589 . 5625) (* -9007199254740992 3) -> -27021597764222976) ((4590 . 5625) (* -9007199254740992 4) -> -36028797018963968) ((4591 . 5625) (* -9007199254740991 0) -> 0) ((4592 . 5625) (* -9007199254740991 1) -> -9007199254740991) ((4593 . 5625) (* -9007199254740991 2) -> -18014398509481982) ((4594 . 5625) (* -9007199254740991 3) -> -27021597764222973) ((4595 . 5625) (* -9007199254740991 4) -> -36028797018963964) ((4596 . 5625) (* -9007199254740990 0) -> 0) ((4597 . 5625) (* -9007199254740990 1) -> -9007199254740990) ((4598 . 5625) (* -9007199254740990 2) -> -18014398509481980) ((4599 . 5625) (* -9007199254740990 3) -> -27021597764222970) ((4600 . 5625) (* -9007199254740990 4) -> -36028797018963960) ((4601 . 5625) (* -9007199254740994 -4) -> 36028797018963976) ((4602 . 5625) (* -9007199254740994 -3) -> 27021597764222982) ((4603 . 5625) (* -9007199254740994 -2) -> 18014398509481988) ((4604 . 5625) (* -9007199254740994 -1) -> 9007199254740994) ((4605 . 5625) (* -9007199254740994 0) -> 0) ((4606 . 5625) (* -9007199254740993 -4) -> 36028797018963972) ((4607 . 5625) (* -9007199254740993 -3) -> 27021597764222979) ((4608 . 5625) (* -9007199254740993 -2) -> 18014398509481986) ((4609 . 5625) (* -9007199254740993 -1) -> 9007199254740993) ((4610 . 5625) (* -9007199254740993 0) -> 0) ((4611 . 5625) (* -9007199254740992 -4) -> 36028797018963968) ((4612 . 5625) (* -9007199254740992 -3) -> 27021597764222976) ((4613 . 5625) (* -9007199254740992 -2) -> 18014398509481984) ((4614 . 5625) (* -9007199254740992 -1) -> 9007199254740992) ((4615 . 5625) (* -9007199254740992 0) -> 0) ((4616 . 5625) (* -9007199254740991 -4) -> 36028797018963964) ((4617 . 5625) (* -9007199254740991 -3) -> 27021597764222973) ((4618 . 5625) (* -9007199254740991 -2) -> 18014398509481982) ((4619 . 5625) (* -9007199254740991 -1) -> 9007199254740991) ((4620 . 5625) (* -9007199254740991 0) -> 0) ((4621 . 5625) (* -9007199254740990 -4) -> 36028797018963960) ((4622 . 5625) (* -9007199254740990 -3) -> 27021597764222970) ((4623 . 5625) (* -9007199254740990 -2) -> 18014398509481980) ((4624 . 5625) (* -9007199254740990 -1) -> 9007199254740990) ((4625 . 5625) (* -9007199254740990 0) -> 0) ((4626 . 5625) (* -9007199254740994 1073741821) -> -9671406529895437780910074) ((4627 . 5625) (* -9007199254740994 1073741822) -> -9671406538902637035651068) ((4628 . 5625) (* -9007199254740994 1073741823) -> -9671406547909836290392062) ((4629 . 5625) (* -9007199254740994 1073741824) -> -9671406556917035545133056) ((4630 . 5625) (* -9007199254740994 1073741825) -> -9671406565924234799874050) ((4631 . 5625) (* -9007199254740993 1073741821) -> -9671406529895436707168253) ((4632 . 5625) (* -9007199254740993 1073741822) -> -9671406538902635961909246) ((4633 . 5625) (* -9007199254740993 1073741823) -> -9671406547909835216650239) ((4634 . 5625) (* -9007199254740993 1073741824) -> -9671406556917034471391232) ((4635 . 5625) (* -9007199254740993 1073741825) -> -9671406565924233726132225) ((4636 . 5625) (* -9007199254740992 1073741821) -> -9671406529895435633426432) ((4637 . 5625) (* -9007199254740992 1073741822) -> -9671406538902634888167424) ((4638 . 5625) (* -9007199254740992 1073741823) -> -9671406547909834142908416) ((4639 . 5625) (* -9007199254740992 1073741824) -> -9671406556917033397649408) ((4640 . 5625) (* -9007199254740992 1073741825) -> -9671406565924232652390400) ((4641 . 5625) (* -9007199254740991 1073741821) -> -9671406529895434559684611) ((4642 . 5625) (* -9007199254740991 1073741822) -> -9671406538902633814425602) ((4643 . 5625) (* -9007199254740991 1073741823) -> -9671406547909833069166593) ((4644 . 5625) (* -9007199254740991 1073741824) -> -9671406556917032323907584) ((4645 . 5625) (* -9007199254740991 1073741825) -> -9671406565924231578648575) ((4646 . 5625) (* -9007199254740990 1073741821) -> -9671406529895433485942790) ((4647 . 5625) (* -9007199254740990 1073741822) -> -9671406538902632740683780) ((4648 . 5625) (* -9007199254740990 1073741823) -> -9671406547909831995424770) ((4649 . 5625) (* -9007199254740990 1073741824) -> -9671406556917031250165760) ((4650 . 5625) (* -9007199254740990 1073741825) -> -9671406565924230504906750) ((4651 . 5625) (* -9007199254740994 -1073741826) -> 9671406574931434054615044) ((4652 . 5625) (* -9007199254740994 -1073741825) -> 9671406565924234799874050) ((4653 . 5625) (* -9007199254740994 -1073741824) -> 9671406556917035545133056) ((4654 . 5625) (* -9007199254740994 -1073741823) -> 9671406547909836290392062) ((4655 . 5625) (* -9007199254740994 -1073741822) -> 9671406538902637035651068) ((4656 . 5625) (* -9007199254740993 -1073741826) -> 9671406574931432980873218) ((4657 . 5625) (* -9007199254740993 -1073741825) -> 9671406565924233726132225) ((4658 . 5625) (* -9007199254740993 -1073741824) -> 9671406556917034471391232) ((4659 . 5625) (* -9007199254740993 -1073741823) -> 9671406547909835216650239) ((4660 . 5625) (* -9007199254740993 -1073741822) -> 9671406538902635961909246) ((4661 . 5625) (* -9007199254740992 -1073741826) -> 9671406574931431907131392) ((4662 . 5625) (* -9007199254740992 -1073741825) -> 9671406565924232652390400) ((4663 . 5625) (* -9007199254740992 -1073741824) -> 9671406556917033397649408) ((4664 . 5625) (* -9007199254740992 -1073741823) -> 9671406547909834142908416) ((4665 . 5625) (* -9007199254740992 -1073741822) -> 9671406538902634888167424) ((4666 . 5625) (* -9007199254740991 -1073741826) -> 9671406574931430833389566) ((4667 . 5625) (* -9007199254740991 -1073741825) -> 9671406565924231578648575) ((4668 . 5625) (* -9007199254740991 -1073741824) -> 9671406556917032323907584) ((4669 . 5625) (* -9007199254740991 -1073741823) -> 9671406547909833069166593) ((4670 . 5625) (* -9007199254740991 -1073741822) -> 9671406538902633814425602) ((4671 . 5625) (* -9007199254740990 -1073741826) -> 9671406574931429759647740) ((4672 . 5625) (* -9007199254740990 -1073741825) -> 9671406565924230504906750) ((4673 . 5625) (* -9007199254740990 -1073741824) -> 9671406556917031250165760) ((4674 . 5625) (* -9007199254740990 -1073741823) -> 9671406547909831995424770) ((4675 . 5625) (* -9007199254740990 -1073741822) -> 9671406538902632740683780) ((4676 . 5625) (* -9007199254740994 1073741822) -> -9671406538902637035651068) ((4677 . 5625) (* -9007199254740994 1073741823) -> -9671406547909836290392062) ((4678 . 5625) (* -9007199254740994 1073741824) -> -9671406556917035545133056) ((4679 . 5625) (* -9007199254740994 1073741825) -> -9671406565924234799874050) ((4680 . 5625) (* -9007199254740994 1073741826) -> -9671406574931434054615044) ((4681 . 5625) (* -9007199254740993 1073741822) -> -9671406538902635961909246) ((4682 . 5625) (* -9007199254740993 1073741823) -> -9671406547909835216650239) ((4683 . 5625) (* -9007199254740993 1073741824) -> -9671406556917034471391232) ((4684 . 5625) (* -9007199254740993 1073741825) -> -9671406565924233726132225) ((4685 . 5625) (* -9007199254740993 1073741826) -> -9671406574931432980873218) ((4686 . 5625) (* -9007199254740992 1073741822) -> -9671406538902634888167424) ((4687 . 5625) (* -9007199254740992 1073741823) -> -9671406547909834142908416) ((4688 . 5625) (* -9007199254740992 1073741824) -> -9671406556917033397649408) ((4689 . 5625) (* -9007199254740992 1073741825) -> -9671406565924232652390400) ((4690 . 5625) (* -9007199254740992 1073741826) -> -9671406574931431907131392) ((4691 . 5625) (* -9007199254740991 1073741822) -> -9671406538902633814425602) ((4692 . 5625) (* -9007199254740991 1073741823) -> -9671406547909833069166593) ((4693 . 5625) (* -9007199254740991 1073741824) -> -9671406556917032323907584) ((4694 . 5625) (* -9007199254740991 1073741825) -> -9671406565924231578648575) ((4695 . 5625) (* -9007199254740991 1073741826) -> -9671406574931430833389566) ((4696 . 5625) (* -9007199254740990 1073741822) -> -9671406538902632740683780) ((4697 . 5625) (* -9007199254740990 1073741823) -> -9671406547909831995424770) ((4698 . 5625) (* -9007199254740990 1073741824) -> -9671406556917031250165760) ((4699 . 5625) (* -9007199254740990 1073741825) -> -9671406565924230504906750) ((4700 . 5625) (* -9007199254740990 1073741826) -> -9671406574931429759647740) ((4701 . 5625) (* -9007199254740994 -1073741827) -> 9671406583938633309356038) ((4702 . 5625) (* -9007199254740994 -1073741826) -> 9671406574931434054615044) ((4703 . 5625) (* -9007199254740994 -1073741825) -> 9671406565924234799874050) ((4704 . 5625) (* -9007199254740994 -1073741824) -> 9671406556917035545133056) ((4705 . 5625) (* -9007199254740994 -1073741823) -> 9671406547909836290392062) ((4706 . 5625) (* -9007199254740993 -1073741827) -> 9671406583938632235614211) ((4707 . 5625) (* -9007199254740993 -1073741826) -> 9671406574931432980873218) ((4708 . 5625) (* -9007199254740993 -1073741825) -> 9671406565924233726132225) ((4709 . 5625) (* -9007199254740993 -1073741824) -> 9671406556917034471391232) ((4710 . 5625) (* -9007199254740993 -1073741823) -> 9671406547909835216650239) ((4711 . 5625) (* -9007199254740992 -1073741827) -> 9671406583938631161872384) ((4712 . 5625) (* -9007199254740992 -1073741826) -> 9671406574931431907131392) ((4713 . 5625) (* -9007199254740992 -1073741825) -> 9671406565924232652390400) ((4714 . 5625) (* -9007199254740992 -1073741824) -> 9671406556917033397649408) ((4715 . 5625) (* -9007199254740992 -1073741823) -> 9671406547909834142908416) ((4716 . 5625) (* -9007199254740991 -1073741827) -> 9671406583938630088130557) ((4717 . 5625) (* -9007199254740991 -1073741826) -> 9671406574931430833389566) ((4718 . 5625) (* -9007199254740991 -1073741825) -> 9671406565924231578648575) ((4719 . 5625) (* -9007199254740991 -1073741824) -> 9671406556917032323907584) ((4720 . 5625) (* -9007199254740991 -1073741823) -> 9671406547909833069166593) ((4721 . 5625) (* -9007199254740990 -1073741827) -> 9671406583938629014388730) ((4722 . 5625) (* -9007199254740990 -1073741826) -> 9671406574931429759647740) ((4723 . 5625) (* -9007199254740990 -1073741825) -> 9671406565924230504906750) ((4724 . 5625) (* -9007199254740990 -1073741824) -> 9671406556917031250165760) ((4725 . 5625) (* -9007199254740990 -1073741823) -> 9671406547909831995424770) ((4726 . 5625) (* -9007199254740994 1103515243) -> -9939581674344926895971542) ((4727 . 5625) (* -9007199254740994 1103515244) -> -9939581683352126150712536) ((4728 . 5625) (* -9007199254740994 1103515245) -> -9939581692359325405453530) ((4729 . 5625) (* -9007199254740994 1103515246) -> -9939581701366524660194524) ((4730 . 5625) (* -9007199254740994 1103515247) -> -9939581710373723914935518) ((4731 . 5625) (* -9007199254740993 1103515243) -> -9939581674344925792456299) ((4732 . 5625) (* -9007199254740993 1103515244) -> -9939581683352125047197292) ((4733 . 5625) (* -9007199254740993 1103515245) -> -9939581692359324301938285) ((4734 . 5625) (* -9007199254740993 1103515246) -> -9939581701366523556679278) ((4735 . 5625) (* -9007199254740993 1103515247) -> -9939581710373722811420271) ((4736 . 5625) (* -9007199254740992 1103515243) -> -9939581674344924688941056) ((4737 . 5625) (* -9007199254740992 1103515244) -> -9939581683352123943682048) ((4738 . 5625) (* -9007199254740992 1103515245) -> -9939581692359323198423040) ((4739 . 5625) (* -9007199254740992 1103515246) -> -9939581701366522453164032) ((4740 . 5625) (* -9007199254740992 1103515247) -> -9939581710373721707905024) ((4741 . 5625) (* -9007199254740991 1103515243) -> -9939581674344923585425813) ((4742 . 5625) (* -9007199254740991 1103515244) -> -9939581683352122840166804) ((4743 . 5625) (* -9007199254740991 1103515245) -> -9939581692359322094907795) ((4744 . 5625) (* -9007199254740991 1103515246) -> -9939581701366521349648786) ((4745 . 5625) (* -9007199254740991 1103515247) -> -9939581710373720604389777) ((4746 . 5625) (* -9007199254740990 1103515243) -> -9939581674344922481910570) ((4747 . 5625) (* -9007199254740990 1103515244) -> -9939581683352121736651560) ((4748 . 5625) (* -9007199254740990 1103515245) -> -9939581692359320991392550) ((4749 . 5625) (* -9007199254740990 1103515246) -> -9939581701366520246133540) ((4750 . 5625) (* -9007199254740990 1103515247) -> -9939581710373719500874530) ((4751 . 5625) (* -9007199254740994 631629063) -> -5689208825526352347908622) ((4752 . 5625) (* -9007199254740994 631629064) -> -5689208834533551602649616) ((4753 . 5625) (* -9007199254740994 631629065) -> -5689208843540750857390610) ((4754 . 5625) (* -9007199254740994 631629066) -> -5689208852547950112131604) ((4755 . 5625) (* -9007199254740994 631629067) -> -5689208861555149366872598) ((4756 . 5625) (* -9007199254740993 631629063) -> -5689208825526351716279559) ((4757 . 5625) (* -9007199254740993 631629064) -> -5689208834533550971020552) ((4758 . 5625) (* -9007199254740993 631629065) -> -5689208843540750225761545) ((4759 . 5625) (* -9007199254740993 631629066) -> -5689208852547949480502538) ((4760 . 5625) (* -9007199254740993 631629067) -> -5689208861555148735243531) ((4761 . 5625) (* -9007199254740992 631629063) -> -5689208825526351084650496) ((4762 . 5625) (* -9007199254740992 631629064) -> -5689208834533550339391488) ((4763 . 5625) (* -9007199254740992 631629065) -> -5689208843540749594132480) ((4764 . 5625) (* -9007199254740992 631629066) -> -5689208852547948848873472) ((4765 . 5625) (* -9007199254740992 631629067) -> -5689208861555148103614464) ((4766 . 5625) (* -9007199254740991 631629063) -> -5689208825526350453021433) ((4767 . 5625) (* -9007199254740991 631629064) -> -5689208834533549707762424) ((4768 . 5625) (* -9007199254740991 631629065) -> -5689208843540748962503415) ((4769 . 5625) (* -9007199254740991 631629066) -> -5689208852547948217244406) ((4770 . 5625) (* -9007199254740991 631629067) -> -5689208861555147471985397) ((4771 . 5625) (* -9007199254740990 631629063) -> -5689208825526349821392370) ((4772 . 5625) (* -9007199254740990 631629064) -> -5689208834533549076133360) ((4773 . 5625) (* -9007199254740990 631629065) -> -5689208843540748330874350) ((4774 . 5625) (* -9007199254740990 631629066) -> -5689208852547947585615340) ((4775 . 5625) (* -9007199254740990 631629067) -> -5689208861555146840356330) ((4776 . 5625) (* -9007199254740994 9007199254740990) -> -81129638414606681695789005144060) ((4777 . 5625) (* -9007199254740994 9007199254740991) -> -81129638414606690702988259885054) ((4778 . 5625) (* -9007199254740994 9007199254740992) -> -81129638414606699710187514626048) ((4779 . 5625) (* -9007199254740994 9007199254740993) -> -81129638414606708717386769367042) ((4780 . 5625) (* -9007199254740994 9007199254740994) -> -81129638414606717724586024108036) ((4781 . 5625) (* -9007199254740993 9007199254740990) -> -81129638414606672688589750403070) ((4782 . 5625) (* -9007199254740993 9007199254740991) -> -81129638414606681695789005144063) ((4783 . 5625) (* -9007199254740993 9007199254740992) -> -81129638414606690702988259885056) ((4784 . 5625) (* -9007199254740993 9007199254740993) -> -81129638414606699710187514626049) ((4785 . 5625) (* -9007199254740993 9007199254740994) -> -81129638414606708717386769367042) ((4786 . 5625) (* -9007199254740992 9007199254740990) -> -81129638414606663681390495662080) ((4787 . 5625) (* -9007199254740992 9007199254740991) -> -81129638414606672688589750403072) ((4788 . 5625) (* -9007199254740992 9007199254740992) -> -81129638414606681695789005144064) ((4789 . 5625) (* -9007199254740992 9007199254740993) -> -81129638414606690702988259885056) ((4790 . 5625) (* -9007199254740992 9007199254740994) -> -81129638414606699710187514626048) ((4791 . 5625) (* -9007199254740991 9007199254740990) -> -81129638414606654674191240921090) ((4792 . 5625) (* -9007199254740991 9007199254740991) -> -81129638414606663681390495662081) ((4793 . 5625) (* -9007199254740991 9007199254740992) -> -81129638414606672688589750403072) ((4794 . 5625) (* -9007199254740991 9007199254740993) -> -81129638414606681695789005144063) ((4795 . 5625) (* -9007199254740991 9007199254740994) -> -81129638414606690702988259885054) ((4796 . 5625) (* -9007199254740990 9007199254740990) -> -81129638414606645666991986180100) ((4797 . 5625) (* -9007199254740990 9007199254740991) -> -81129638414606654674191240921090) ((4798 . 5625) (* -9007199254740990 9007199254740992) -> -81129638414606663681390495662080) ((4799 . 5625) (* -9007199254740990 9007199254740993) -> -81129638414606672688589750403070) ((4800 . 5625) (* -9007199254740990 9007199254740994) -> -81129638414606681695789005144060) ((4801 . 5625) (* -9007199254740994 -9007199254740994) -> 81129638414606717724586024108036) ((4802 . 5625) (* -9007199254740994 -9007199254740993) -> 81129638414606708717386769367042) ((4803 . 5625) (* -9007199254740994 -9007199254740992) -> 81129638414606699710187514626048) ((4804 . 5625) (* -9007199254740994 -9007199254740991) -> 81129638414606690702988259885054) ((4805 . 5625) (* -9007199254740994 -9007199254740990) -> 81129638414606681695789005144060) ((4806 . 5625) (* -9007199254740993 -9007199254740994) -> 81129638414606708717386769367042) ((4807 . 5625) (* -9007199254740993 -9007199254740993) -> 81129638414606699710187514626049) ((4808 . 5625) (* -9007199254740993 -9007199254740992) -> 81129638414606690702988259885056) ((4809 . 5625) (* -9007199254740993 -9007199254740991) -> 81129638414606681695789005144063) ((4810 . 5625) (* -9007199254740993 -9007199254740990) -> 81129638414606672688589750403070) ((4811 . 5625) (* -9007199254740992 -9007199254740994) -> 81129638414606699710187514626048) ((4812 . 5625) (* -9007199254740992 -9007199254740993) -> 81129638414606690702988259885056) ((4813 . 5625) (* -9007199254740992 -9007199254740992) -> 81129638414606681695789005144064) ((4814 . 5625) (* -9007199254740992 -9007199254740991) -> 81129638414606672688589750403072) ((4815 . 5625) (* -9007199254740992 -9007199254740990) -> 81129638414606663681390495662080) ((4816 . 5625) (* -9007199254740991 -9007199254740994) -> 81129638414606690702988259885054) ((4817 . 5625) (* -9007199254740991 -9007199254740993) -> 81129638414606681695789005144063) ((4818 . 5625) (* -9007199254740991 -9007199254740992) -> 81129638414606672688589750403072) ((4819 . 5625) (* -9007199254740991 -9007199254740991) -> 81129638414606663681390495662081) ((4820 . 5625) (* -9007199254740991 -9007199254740990) -> 81129638414606654674191240921090) ((4821 . 5625) (* -9007199254740990 -9007199254740994) -> 81129638414606681695789005144060) ((4822 . 5625) (* -9007199254740990 -9007199254740993) -> 81129638414606672688589750403070) ((4823 . 5625) (* -9007199254740990 -9007199254740992) -> 81129638414606663681390495662080) ((4824 . 5625) (* -9007199254740990 -9007199254740991) -> 81129638414606654674191240921090) ((4825 . 5625) (* -9007199254740990 -9007199254740990) -> 81129638414606645666991986180100) ((4826 . 5625) (* -9007199254740994 12343) -> -111175860401268088942) ((4827 . 5625) (* -9007199254740994 12344) -> -111184867600522829936) ((4828 . 5625) (* -9007199254740994 12345) -> -111193874799777570930) ((4829 . 5625) (* -9007199254740994 12346) -> -111202881999032311924) ((4830 . 5625) (* -9007199254740994 12347) -> -111211889198287052918) ((4831 . 5625) (* -9007199254740993 12343) -> -111175860401268076599) ((4832 . 5625) (* -9007199254740993 12344) -> -111184867600522817592) ((4833 . 5625) (* -9007199254740993 12345) -> -111193874799777558585) ((4834 . 5625) (* -9007199254740993 12346) -> -111202881999032299578) ((4835 . 5625) (* -9007199254740993 12347) -> -111211889198287040571) ((4836 . 5625) (* -9007199254740992 12343) -> -111175860401268064256) ((4837 . 5625) (* -9007199254740992 12344) -> -111184867600522805248) ((4838 . 5625) (* -9007199254740992 12345) -> -111193874799777546240) ((4839 . 5625) (* -9007199254740992 12346) -> -111202881999032287232) ((4840 . 5625) (* -9007199254740992 12347) -> -111211889198287028224) ((4841 . 5625) (* -9007199254740991 12343) -> -111175860401268051913) ((4842 . 5625) (* -9007199254740991 12344) -> -111184867600522792904) ((4843 . 5625) (* -9007199254740991 12345) -> -111193874799777533895) ((4844 . 5625) (* -9007199254740991 12346) -> -111202881999032274886) ((4845 . 5625) (* -9007199254740991 12347) -> -111211889198287015877) ((4846 . 5625) (* -9007199254740990 12343) -> -111175860401268039570) ((4847 . 5625) (* -9007199254740990 12344) -> -111184867600522780560) ((4848 . 5625) (* -9007199254740990 12345) -> -111193874799777521550) ((4849 . 5625) (* -9007199254740990 12346) -> -111202881999032262540) ((4850 . 5625) (* -9007199254740990 12347) -> -111211889198287003530) ((4851 . 5625) (* -9007199254740994 4294967294) -> -38685626209653743671050236) ((4852 . 5625) (* -9007199254740994 4294967295) -> -38685626218660942925791230) ((4853 . 5625) (* -9007199254740994 4294967296) -> -38685626227668142180532224) ((4854 . 5625) (* -9007199254740994 4294967297) -> -38685626236675341435273218) ((4855 . 5625) (* -9007199254740994 4294967298) -> -38685626245682540690014212) ((4856 . 5625) (* -9007199254740993 4294967294) -> -38685626209653739376082942) ((4857 . 5625) (* -9007199254740993 4294967295) -> -38685626218660938630823935) ((4858 . 5625) (* -9007199254740993 4294967296) -> -38685626227668137885564928) ((4859 . 5625) (* -9007199254740993 4294967297) -> -38685626236675337140305921) ((4860 . 5625) (* -9007199254740993 4294967298) -> -38685626245682536395046914) ((4861 . 5625) (* -9007199254740992 4294967294) -> -38685626209653735081115648) ((4862 . 5625) (* -9007199254740992 4294967295) -> -38685626218660934335856640) ((4863 . 5625) (* -9007199254740992 4294967296) -> -38685626227668133590597632) ((4864 . 5625) (* -9007199254740992 4294967297) -> -38685626236675332845338624) ((4865 . 5625) (* -9007199254740992 4294967298) -> -38685626245682532100079616) ((4866 . 5625) (* -9007199254740991 4294967294) -> -38685626209653730786148354) ((4867 . 5625) (* -9007199254740991 4294967295) -> -38685626218660930040889345) ((4868 . 5625) (* -9007199254740991 4294967296) -> -38685626227668129295630336) ((4869 . 5625) (* -9007199254740991 4294967297) -> -38685626236675328550371327) ((4870 . 5625) (* -9007199254740991 4294967298) -> -38685626245682527805112318) ((4871 . 5625) (* -9007199254740990 4294967294) -> -38685626209653726491181060) ((4872 . 5625) (* -9007199254740990 4294967295) -> -38685626218660925745922050) ((4873 . 5625) (* -9007199254740990 4294967296) -> -38685626227668125000663040) ((4874 . 5625) (* -9007199254740990 4294967297) -> -38685626236675324255404030) ((4875 . 5625) (* -9007199254740990 4294967298) -> -38685626245682523510145020) ((4876 . 5625) (* 12343 -2) -> -24686) ((4877 . 5625) (* 12343 -1) -> -12343) ((4878 . 5625) (* 12343 0) -> 0) ((4879 . 5625) (* 12343 1) -> 12343) ((4880 . 5625) (* 12343 2) -> 24686) ((4881 . 5625) (* 12344 -2) -> -24688) ((4882 . 5625) (* 12344 -1) -> -12344) ((4883 . 5625) (* 12344 0) -> 0) ((4884 . 5625) (* 12344 1) -> 12344) ((4885 . 5625) (* 12344 2) -> 24688) ((4886 . 5625) (* 12345 -2) -> -24690) ((4887 . 5625) (* 12345 -1) -> -12345) ((4888 . 5625) (* 12345 0) -> 0) ((4889 . 5625) (* 12345 1) -> 12345) ((4890 . 5625) (* 12345 2) -> 24690) ((4891 . 5625) (* 12346 -2) -> -24692) ((4892 . 5625) (* 12346 -1) -> -12346) ((4893 . 5625) (* 12346 0) -> 0) ((4894 . 5625) (* 12346 1) -> 12346) ((4895 . 5625) (* 12346 2) -> 24692) ((4896 . 5625) (* 12347 -2) -> -24694) ((4897 . 5625) (* 12347 -1) -> -12347) ((4898 . 5625) (* 12347 0) -> 0) ((4899 . 5625) (* 12347 1) -> 12347) ((4900 . 5625) (* 12347 2) -> 24694) ((4901 . 5625) (* 12343 -1) -> -12343) ((4902 . 5625) (* 12343 0) -> 0) ((4903 . 5625) (* 12343 1) -> 12343) ((4904 . 5625) (* 12343 2) -> 24686) ((4905 . 5625) (* 12343 3) -> 37029) ((4906 . 5625) (* 12344 -1) -> -12344) ((4907 . 5625) (* 12344 0) -> 0) ((4908 . 5625) (* 12344 1) -> 12344) ((4909 . 5625) (* 12344 2) -> 24688) ((4910 . 5625) (* 12344 3) -> 37032) ((4911 . 5625) (* 12345 -1) -> -12345) ((4912 . 5625) (* 12345 0) -> 0) ((4913 . 5625) (* 12345 1) -> 12345) ((4914 . 5625) (* 12345 2) -> 24690) ((4915 . 5625) (* 12345 3) -> 37035) ((4916 . 5625) (* 12346 -1) -> -12346) ((4917 . 5625) (* 12346 0) -> 0) ((4918 . 5625) (* 12346 1) -> 12346) ((4919 . 5625) (* 12346 2) -> 24692) ((4920 . 5625) (* 12346 3) -> 37038) ((4921 . 5625) (* 12347 -1) -> -12347) ((4922 . 5625) (* 12347 0) -> 0) ((4923 . 5625) (* 12347 1) -> 12347) ((4924 . 5625) (* 12347 2) -> 24694) ((4925 . 5625) (* 12347 3) -> 37041) ((4926 . 5625) (* 12343 -3) -> -37029) ((4927 . 5625) (* 12343 -2) -> -24686) ((4928 . 5625) (* 12343 -1) -> -12343) ((4929 . 5625) (* 12343 0) -> 0) ((4930 . 5625) (* 12343 1) -> 12343) ((4931 . 5625) (* 12344 -3) -> -37032) ((4932 . 5625) (* 12344 -2) -> -24688) ((4933 . 5625) (* 12344 -1) -> -12344) ((4934 . 5625) (* 12344 0) -> 0) ((4935 . 5625) (* 12344 1) -> 12344) ((4936 . 5625) (* 12345 -3) -> -37035) ((4937 . 5625) (* 12345 -2) -> -24690) ((4938 . 5625) (* 12345 -1) -> -12345) ((4939 . 5625) (* 12345 0) -> 0) ((4940 . 5625) (* 12345 1) -> 12345) ((4941 . 5625) (* 12346 -3) -> -37038) ((4942 . 5625) (* 12346 -2) -> -24692) ((4943 . 5625) (* 12346 -1) -> -12346) ((4944 . 5625) (* 12346 0) -> 0) ((4945 . 5625) (* 12346 1) -> 12346) ((4946 . 5625) (* 12347 -3) -> -37041) ((4947 . 5625) (* 12347 -2) -> -24694) ((4948 . 5625) (* 12347 -1) -> -12347) ((4949 . 5625) (* 12347 0) -> 0) ((4950 . 5625) (* 12347 1) -> 12347) ((4951 . 5625) (* 12343 0) -> 0) ((4952 . 5625) (* 12343 1) -> 12343) ((4953 . 5625) (* 12343 2) -> 24686) ((4954 . 5625) (* 12343 3) -> 37029) ((4955 . 5625) (* 12343 4) -> 49372) ((4956 . 5625) (* 12344 0) -> 0) ((4957 . 5625) (* 12344 1) -> 12344) ((4958 . 5625) (* 12344 2) -> 24688) ((4959 . 5625) (* 12344 3) -> 37032) ((4960 . 5625) (* 12344 4) -> 49376) ((4961 . 5625) (* 12345 0) -> 0) ((4962 . 5625) (* 12345 1) -> 12345) ((4963 . 5625) (* 12345 2) -> 24690) ((4964 . 5625) (* 12345 3) -> 37035) ((4965 . 5625) (* 12345 4) -> 49380) ((4966 . 5625) (* 12346 0) -> 0) ((4967 . 5625) (* 12346 1) -> 12346) ((4968 . 5625) (* 12346 2) -> 24692) ((4969 . 5625) (* 12346 3) -> 37038) ((4970 . 5625) (* 12346 4) -> 49384) ((4971 . 5625) (* 12347 0) -> 0) ((4972 . 5625) (* 12347 1) -> 12347) ((4973 . 5625) (* 12347 2) -> 24694) ((4974 . 5625) (* 12347 3) -> 37041) ((4975 . 5625) (* 12347 4) -> 49388) ((4976 . 5625) (* 12343 -4) -> -49372) ((4977 . 5625) (* 12343 -3) -> -37029) ((4978 . 5625) (* 12343 -2) -> -24686) ((4979 . 5625) (* 12343 -1) -> -12343) ((4980 . 5625) (* 12343 0) -> 0) ((4981 . 5625) (* 12344 -4) -> -49376) ((4982 . 5625) (* 12344 -3) -> -37032) ((4983 . 5625) (* 12344 -2) -> -24688) ((4984 . 5625) (* 12344 -1) -> -12344) ((4985 . 5625) (* 12344 0) -> 0) ((4986 . 5625) (* 12345 -4) -> -49380) ((4987 . 5625) (* 12345 -3) -> -37035) ((4988 . 5625) (* 12345 -2) -> -24690) ((4989 . 5625) (* 12345 -1) -> -12345) ((4990 . 5625) (* 12345 0) -> 0) ((4991 . 5625) (* 12346 -4) -> -49384) ((4992 . 5625) (* 12346 -3) -> -37038) ((4993 . 5625) (* 12346 -2) -> -24692) ((4994 . 5625) (* 12346 -1) -> -12346) ((4995 . 5625) (* 12346 0) -> 0) ((4996 . 5625) (* 12347 -4) -> -49388) ((4997 . 5625) (* 12347 -3) -> -37041) ((4998 . 5625) (* 12347 -2) -> -24694) ((4999 . 5625) (* 12347 -1) -> -12347) ((5000 . 5625) (* 12347 0) -> 0) ((5001 . 5625) (* 12343 1073741821) -> 13253195296603) ((5002 . 5625) (* 12343 1073741822) -> 13253195308946) ((5003 . 5625) (* 12343 1073741823) -> 13253195321289) ((5004 . 5625) (* 12343 1073741824) -> 13253195333632) ((5005 . 5625) (* 12343 1073741825) -> 13253195345975) ((5006 . 5625) (* 12344 1073741821) -> 13254269038424) ((5007 . 5625) (* 12344 1073741822) -> 13254269050768) ((5008 . 5625) (* 12344 1073741823) -> 13254269063112) ((5009 . 5625) (* 12344 1073741824) -> 13254269075456) ((5010 . 5625) (* 12344 1073741825) -> 13254269087800) ((5011 . 5625) (* 12345 1073741821) -> 13255342780245) ((5012 . 5625) (* 12345 1073741822) -> 13255342792590) ((5013 . 5625) (* 12345 1073741823) -> 13255342804935) ((5014 . 5625) (* 12345 1073741824) -> 13255342817280) ((5015 . 5625) (* 12345 1073741825) -> 13255342829625) ((5016 . 5625) (* 12346 1073741821) -> 13256416522066) ((5017 . 5625) (* 12346 1073741822) -> 13256416534412) ((5018 . 5625) (* 12346 1073741823) -> 13256416546758) ((5019 . 5625) (* 12346 1073741824) -> 13256416559104) ((5020 . 5625) (* 12346 1073741825) -> 13256416571450) ((5021 . 5625) (* 12347 1073741821) -> 13257490263887) ((5022 . 5625) (* 12347 1073741822) -> 13257490276234) ((5023 . 5625) (* 12347 1073741823) -> 13257490288581) ((5024 . 5625) (* 12347 1073741824) -> 13257490300928) ((5025 . 5625) (* 12347 1073741825) -> 13257490313275) ((5026 . 5625) (* 12343 -1073741826) -> -13253195358318) ((5027 . 5625) (* 12343 -1073741825) -> -13253195345975) ((5028 . 5625) (* 12343 -1073741824) -> -13253195333632) ((5029 . 5625) (* 12343 -1073741823) -> -13253195321289) ((5030 . 5625) (* 12343 -1073741822) -> -13253195308946) ((5031 . 5625) (* 12344 -1073741826) -> -13254269100144) ((5032 . 5625) (* 12344 -1073741825) -> -13254269087800) ((5033 . 5625) (* 12344 -1073741824) -> -13254269075456) ((5034 . 5625) (* 12344 -1073741823) -> -13254269063112) ((5035 . 5625) (* 12344 -1073741822) -> -13254269050768) ((5036 . 5625) (* 12345 -1073741826) -> -13255342841970) ((5037 . 5625) (* 12345 -1073741825) -> -13255342829625) ((5038 . 5625) (* 12345 -1073741824) -> -13255342817280) ((5039 . 5625) (* 12345 -1073741823) -> -13255342804935) ((5040 . 5625) (* 12345 -1073741822) -> -13255342792590) ((5041 . 5625) (* 12346 -1073741826) -> -13256416583796) ((5042 . 5625) (* 12346 -1073741825) -> -13256416571450) ((5043 . 5625) (* 12346 -1073741824) -> -13256416559104) ((5044 . 5625) (* 12346 -1073741823) -> -13256416546758) ((5045 . 5625) (* 12346 -1073741822) -> -13256416534412) ((5046 . 5625) (* 12347 -1073741826) -> -13257490325622) ((5047 . 5625) (* 12347 -1073741825) -> -13257490313275) ((5048 . 5625) (* 12347 -1073741824) -> -13257490300928) ((5049 . 5625) (* 12347 -1073741823) -> -13257490288581) ((5050 . 5625) (* 12347 -1073741822) -> -13257490276234) ((5051 . 5625) (* 12343 1073741822) -> 13253195308946) ((5052 . 5625) (* 12343 1073741823) -> 13253195321289) ((5053 . 5625) (* 12343 1073741824) -> 13253195333632) ((5054 . 5625) (* 12343 1073741825) -> 13253195345975) ((5055 . 5625) (* 12343 1073741826) -> 13253195358318) ((5056 . 5625) (* 12344 1073741822) -> 13254269050768) ((5057 . 5625) (* 12344 1073741823) -> 13254269063112) ((5058 . 5625) (* 12344 1073741824) -> 13254269075456) ((5059 . 5625) (* 12344 1073741825) -> 13254269087800) ((5060 . 5625) (* 12344 1073741826) -> 13254269100144) ((5061 . 5625) (* 12345 1073741822) -> 13255342792590) ((5062 . 5625) (* 12345 1073741823) -> 13255342804935) ((5063 . 5625) (* 12345 1073741824) -> 13255342817280) ((5064 . 5625) (* 12345 1073741825) -> 13255342829625) ((5065 . 5625) (* 12345 1073741826) -> 13255342841970) ((5066 . 5625) (* 12346 1073741822) -> 13256416534412) ((5067 . 5625) (* 12346 1073741823) -> 13256416546758) ((5068 . 5625) (* 12346 1073741824) -> 13256416559104) ((5069 . 5625) (* 12346 1073741825) -> 13256416571450) ((5070 . 5625) (* 12346 1073741826) -> 13256416583796) ((5071 . 5625) (* 12347 1073741822) -> 13257490276234) ((5072 . 5625) (* 12347 1073741823) -> 13257490288581) ((5073 . 5625) (* 12347 1073741824) -> 13257490300928) ((5074 . 5625) (* 12347 1073741825) -> 13257490313275) ((5075 . 5625) (* 12347 1073741826) -> 13257490325622) ((5076 . 5625) (* 12343 -1073741827) -> -13253195370661) ((5077 . 5625) (* 12343 -1073741826) -> -13253195358318) ((5078 . 5625) (* 12343 -1073741825) -> -13253195345975) ((5079 . 5625) (* 12343 -1073741824) -> -13253195333632) ((5080 . 5625) (* 12343 -1073741823) -> -13253195321289) ((5081 . 5625) (* 12344 -1073741827) -> -13254269112488) ((5082 . 5625) (* 12344 -1073741826) -> -13254269100144) ((5083 . 5625) (* 12344 -1073741825) -> -13254269087800) ((5084 . 5625) (* 12344 -1073741824) -> -13254269075456) ((5085 . 5625) (* 12344 -1073741823) -> -13254269063112) ((5086 . 5625) (* 12345 -1073741827) -> -13255342854315) ((5087 . 5625) (* 12345 -1073741826) -> -13255342841970) ((5088 . 5625) (* 12345 -1073741825) -> -13255342829625) ((5089 . 5625) (* 12345 -1073741824) -> -13255342817280) ((5090 . 5625) (* 12345 -1073741823) -> -13255342804935) ((5091 . 5625) (* 12346 -1073741827) -> -13256416596142) ((5092 . 5625) (* 12346 -1073741826) -> -13256416583796) ((5093 . 5625) (* 12346 -1073741825) -> -13256416571450) ((5094 . 5625) (* 12346 -1073741824) -> -13256416559104) ((5095 . 5625) (* 12346 -1073741823) -> -13256416546758) ((5096 . 5625) (* 12347 -1073741827) -> -13257490337969) ((5097 . 5625) (* 12347 -1073741826) -> -13257490325622) ((5098 . 5625) (* 12347 -1073741825) -> -13257490313275) ((5099 . 5625) (* 12347 -1073741824) -> -13257490300928) ((5100 . 5625) (* 12347 -1073741823) -> -13257490288581) ((5101 . 5625) (* 12343 1103515243) -> 13620688644349) ((5102 . 5625) (* 12343 1103515244) -> 13620688656692) ((5103 . 5625) (* 12343 1103515245) -> 13620688669035) ((5104 . 5625) (* 12343 1103515246) -> 13620688681378) ((5105 . 5625) (* 12343 1103515247) -> 13620688693721) ((5106 . 5625) (* 12344 1103515243) -> 13621792159592) ((5107 . 5625) (* 12344 1103515244) -> 13621792171936) ((5108 . 5625) (* 12344 1103515245) -> 13621792184280) ((5109 . 5625) (* 12344 1103515246) -> 13621792196624) ((5110 . 5625) (* 12344 1103515247) -> 13621792208968) ((5111 . 5625) (* 12345 1103515243) -> 13622895674835) ((5112 . 5625) (* 12345 1103515244) -> 13622895687180) ((5113 . 5625) (* 12345 1103515245) -> 13622895699525) ((5114 . 5625) (* 12345 1103515246) -> 13622895711870) ((5115 . 5625) (* 12345 1103515247) -> 13622895724215) ((5116 . 5625) (* 12346 1103515243) -> 13623999190078) ((5117 . 5625) (* 12346 1103515244) -> 13623999202424) ((5118 . 5625) (* 12346 1103515245) -> 13623999214770) ((5119 . 5625) (* 12346 1103515246) -> 13623999227116) ((5120 . 5625) (* 12346 1103515247) -> 13623999239462) ((5121 . 5625) (* 12347 1103515243) -> 13625102705321) ((5122 . 5625) (* 12347 1103515244) -> 13625102717668) ((5123 . 5625) (* 12347 1103515245) -> 13625102730015) ((5124 . 5625) (* 12347 1103515246) -> 13625102742362) ((5125 . 5625) (* 12347 1103515247) -> 13625102754709) ((5126 . 5625) (* 12343 631629063) -> 7796197524609) ((5127 . 5625) (* 12343 631629064) -> 7796197536952) ((5128 . 5625) (* 12343 631629065) -> 7796197549295) ((5129 . 5625) (* 12343 631629066) -> 7796197561638) ((5130 . 5625) (* 12343 631629067) -> 7796197573981) ((5131 . 5625) (* 12344 631629063) -> 7796829153672) ((5132 . 5625) (* 12344 631629064) -> 7796829166016) ((5133 . 5625) (* 12344 631629065) -> 7796829178360) ((5134 . 5625) (* 12344 631629066) -> 7796829190704) ((5135 . 5625) (* 12344 631629067) -> 7796829203048) ((5136 . 5625) (* 12345 631629063) -> 7797460782735) ((5137 . 5625) (* 12345 631629064) -> 7797460795080) ((5138 . 5625) (* 12345 631629065) -> 7797460807425) ((5139 . 5625) (* 12345 631629066) -> 7797460819770) ((5140 . 5625) (* 12345 631629067) -> 7797460832115) ((5141 . 5625) (* 12346 631629063) -> 7798092411798) ((5142 . 5625) (* 12346 631629064) -> 7798092424144) ((5143 . 5625) (* 12346 631629065) -> 7798092436490) ((5144 . 5625) (* 12346 631629066) -> 7798092448836) ((5145 . 5625) (* 12346 631629067) -> 7798092461182) ((5146 . 5625) (* 12347 631629063) -> 7798724040861) ((5147 . 5625) (* 12347 631629064) -> 7798724053208) ((5148 . 5625) (* 12347 631629065) -> 7798724065555) ((5149 . 5625) (* 12347 631629066) -> 7798724077902) ((5150 . 5625) (* 12347 631629067) -> 7798724090249) ((5151 . 5625) (* 12343 9007199254740990) -> 111175860401268039570) ((5152 . 5625) (* 12343 9007199254740991) -> 111175860401268051913) ((5153 . 5625) (* 12343 9007199254740992) -> 111175860401268064256) ((5154 . 5625) (* 12343 9007199254740993) -> 111175860401268076599) ((5155 . 5625) (* 12343 9007199254740994) -> 111175860401268088942) ((5156 . 5625) (* 12344 9007199254740990) -> 111184867600522780560) ((5157 . 5625) (* 12344 9007199254740991) -> 111184867600522792904) ((5158 . 5625) (* 12344 9007199254740992) -> 111184867600522805248) ((5159 . 5625) (* 12344 9007199254740993) -> 111184867600522817592) ((5160 . 5625) (* 12344 9007199254740994) -> 111184867600522829936) ((5161 . 5625) (* 12345 9007199254740990) -> 111193874799777521550) ((5162 . 5625) (* 12345 9007199254740991) -> 111193874799777533895) ((5163 . 5625) (* 12345 9007199254740992) -> 111193874799777546240) ((5164 . 5625) (* 12345 9007199254740993) -> 111193874799777558585) ((5165 . 5625) (* 12345 9007199254740994) -> 111193874799777570930) ((5166 . 5625) (* 12346 9007199254740990) -> 111202881999032262540) ((5167 . 5625) (* 12346 9007199254740991) -> 111202881999032274886) ((5168 . 5625) (* 12346 9007199254740992) -> 111202881999032287232) ((5169 . 5625) (* 12346 9007199254740993) -> 111202881999032299578) ((5170 . 5625) (* 12346 9007199254740994) -> 111202881999032311924) ((5171 . 5625) (* 12347 9007199254740990) -> 111211889198287003530) ((5172 . 5625) (* 12347 9007199254740991) -> 111211889198287015877) ((5173 . 5625) (* 12347 9007199254740992) -> 111211889198287028224) ((5174 . 5625) (* 12347 9007199254740993) -> 111211889198287040571) ((5175 . 5625) (* 12347 9007199254740994) -> 111211889198287052918) ((5176 . 5625) (* 12343 -9007199254740994) -> -111175860401268088942) ((5177 . 5625) (* 12343 -9007199254740993) -> -111175860401268076599) ((5178 . 5625) (* 12343 -9007199254740992) -> -111175860401268064256) ((5179 . 5625) (* 12343 -9007199254740991) -> -111175860401268051913) ((5180 . 5625) (* 12343 -9007199254740990) -> -111175860401268039570) ((5181 . 5625) (* 12344 -9007199254740994) -> -111184867600522829936) ((5182 . 5625) (* 12344 -9007199254740993) -> -111184867600522817592) ((5183 . 5625) (* 12344 -9007199254740992) -> -111184867600522805248) ((5184 . 5625) (* 12344 -9007199254740991) -> -111184867600522792904) ((5185 . 5625) (* 12344 -9007199254740990) -> -111184867600522780560) ((5186 . 5625) (* 12345 -9007199254740994) -> -111193874799777570930) ((5187 . 5625) (* 12345 -9007199254740993) -> -111193874799777558585) ((5188 . 5625) (* 12345 -9007199254740992) -> -111193874799777546240) ((5189 . 5625) (* 12345 -9007199254740991) -> -111193874799777533895) ((5190 . 5625) (* 12345 -9007199254740990) -> -111193874799777521550) ((5191 . 5625) (* 12346 -9007199254740994) -> -111202881999032311924) ((5192 . 5625) (* 12346 -9007199254740993) -> -111202881999032299578) ((5193 . 5625) (* 12346 -9007199254740992) -> -111202881999032287232) ((5194 . 5625) (* 12346 -9007199254740991) -> -111202881999032274886) ((5195 . 5625) (* 12346 -9007199254740990) -> -111202881999032262540) ((5196 . 5625) (* 12347 -9007199254740994) -> -111211889198287052918) ((5197 . 5625) (* 12347 -9007199254740993) -> -111211889198287040571) ((5198 . 5625) (* 12347 -9007199254740992) -> -111211889198287028224) ((5199 . 5625) (* 12347 -9007199254740991) -> -111211889198287015877) ((5200 . 5625) (* 12347 -9007199254740990) -> -111211889198287003530) ((5201 . 5625) (* 12343 12343) -> 152349649) ((5202 . 5625) (* 12343 12344) -> 152361992) ((5203 . 5625) (* 12343 12345) -> 152374335) ((5204 . 5625) (* 12343 12346) -> 152386678) ((5205 . 5625) (* 12343 12347) -> 152399021) ((5206 . 5625) (* 12344 12343) -> 152361992) ((5207 . 5625) (* 12344 12344) -> 152374336) ((5208 . 5625) (* 12344 12345) -> 152386680) ((5209 . 5625) (* 12344 12346) -> 152399024) ((5210 . 5625) (* 12344 12347) -> 152411368) ((5211 . 5625) (* 12345 12343) -> 152374335) ((5212 . 5625) (* 12345 12344) -> 152386680) ((5213 . 5625) (* 12345 12345) -> 152399025) ((5214 . 5625) (* 12345 12346) -> 152411370) ((5215 . 5625) (* 12345 12347) -> 152423715) ((5216 . 5625) (* 12346 12343) -> 152386678) ((5217 . 5625) (* 12346 12344) -> 152399024) ((5218 . 5625) (* 12346 12345) -> 152411370) ((5219 . 5625) (* 12346 12346) -> 152423716) ((5220 . 5625) (* 12346 12347) -> 152436062) ((5221 . 5625) (* 12347 12343) -> 152399021) ((5222 . 5625) (* 12347 12344) -> 152411368) ((5223 . 5625) (* 12347 12345) -> 152423715) ((5224 . 5625) (* 12347 12346) -> 152436062) ((5225 . 5625) (* 12347 12347) -> 152448409) ((5226 . 5625) (* 12343 4294967294) -> 53012781309842) ((5227 . 5625) (* 12343 4294967295) -> 53012781322185) ((5228 . 5625) (* 12343 4294967296) -> 53012781334528) ((5229 . 5625) (* 12343 4294967297) -> 53012781346871) ((5230 . 5625) (* 12343 4294967298) -> 53012781359214) ((5231 . 5625) (* 12344 4294967294) -> 53017076277136) ((5232 . 5625) (* 12344 4294967295) -> 53017076289480) ((5233 . 5625) (* 12344 4294967296) -> 53017076301824) ((5234 . 5625) (* 12344 4294967297) -> 53017076314168) ((5235 . 5625) (* 12344 4294967298) -> 53017076326512) ((5236 . 5625) (* 12345 4294967294) -> 53021371244430) ((5237 . 5625) (* 12345 4294967295) -> 53021371256775) ((5238 . 5625) (* 12345 4294967296) -> 53021371269120) ((5239 . 5625) (* 12345 4294967297) -> 53021371281465) ((5240 . 5625) (* 12345 4294967298) -> 53021371293810) ((5241 . 5625) (* 12346 4294967294) -> 53025666211724) ((5242 . 5625) (* 12346 4294967295) -> 53025666224070) ((5243 . 5625) (* 12346 4294967296) -> 53025666236416) ((5244 . 5625) (* 12346 4294967297) -> 53025666248762) ((5245 . 5625) (* 12346 4294967298) -> 53025666261108) ((5246 . 5625) (* 12347 4294967294) -> 53029961179018) ((5247 . 5625) (* 12347 4294967295) -> 53029961191365) ((5248 . 5625) (* 12347 4294967296) -> 53029961203712) ((5249 . 5625) (* 12347 4294967297) -> 53029961216059) ((5250 . 5625) (* 12347 4294967298) -> 53029961228406) ((5251 . 5625) (* 4294967294 -2) -> -8589934588) ((5252 . 5625) (* 4294967294 -1) -> -4294967294) ((5253 . 5625) (* 4294967294 0) -> 0) ((5254 . 5625) (* 4294967294 1) -> 4294967294) ((5255 . 5625) (* 4294967294 2) -> 8589934588) ((5256 . 5625) (* 4294967295 -2) -> -8589934590) ((5257 . 5625) (* 4294967295 -1) -> -4294967295) ((5258 . 5625) (* 4294967295 0) -> 0) ((5259 . 5625) (* 4294967295 1) -> 4294967295) ((5260 . 5625) (* 4294967295 2) -> 8589934590) ((5261 . 5625) (* 4294967296 -2) -> -8589934592) ((5262 . 5625) (* 4294967296 -1) -> -4294967296) ((5263 . 5625) (* 4294967296 0) -> 0) ((5264 . 5625) (* 4294967296 1) -> 4294967296) ((5265 . 5625) (* 4294967296 2) -> 8589934592) ((5266 . 5625) (* 4294967297 -2) -> -8589934594) ((5267 . 5625) (* 4294967297 -1) -> -4294967297) ((5268 . 5625) (* 4294967297 0) -> 0) ((5269 . 5625) (* 4294967297 1) -> 4294967297) ((5270 . 5625) (* 4294967297 2) -> 8589934594) ((5271 . 5625) (* 4294967298 -2) -> -8589934596) ((5272 . 5625) (* 4294967298 -1) -> -4294967298) ((5273 . 5625) (* 4294967298 0) -> 0) ((5274 . 5625) (* 4294967298 1) -> 4294967298) ((5275 . 5625) (* 4294967298 2) -> 8589934596) ((5276 . 5625) (* 4294967294 -1) -> -4294967294) ((5277 . 5625) (* 4294967294 0) -> 0) ((5278 . 5625) (* 4294967294 1) -> 4294967294) ((5279 . 5625) (* 4294967294 2) -> 8589934588) ((5280 . 5625) (* 4294967294 3) -> 12884901882) ((5281 . 5625) (* 4294967295 -1) -> -4294967295) ((5282 . 5625) (* 4294967295 0) -> 0) ((5283 . 5625) (* 4294967295 1) -> 4294967295) ((5284 . 5625) (* 4294967295 2) -> 8589934590) ((5285 . 5625) (* 4294967295 3) -> 12884901885) ((5286 . 5625) (* 4294967296 -1) -> -4294967296) ((5287 . 5625) (* 4294967296 0) -> 0) ((5288 . 5625) (* 4294967296 1) -> 4294967296) ((5289 . 5625) (* 4294967296 2) -> 8589934592) ((5290 . 5625) (* 4294967296 3) -> 12884901888) ((5291 . 5625) (* 4294967297 -1) -> -4294967297) ((5292 . 5625) (* 4294967297 0) -> 0) ((5293 . 5625) (* 4294967297 1) -> 4294967297) ((5294 . 5625) (* 4294967297 2) -> 8589934594) ((5295 . 5625) (* 4294967297 3) -> 12884901891) ((5296 . 5625) (* 4294967298 -1) -> -4294967298) ((5297 . 5625) (* 4294967298 0) -> 0) ((5298 . 5625) (* 4294967298 1) -> 4294967298) ((5299 . 5625) (* 4294967298 2) -> 8589934596) ((5300 . 5625) (* 4294967298 3) -> 12884901894) ((5301 . 5625) (* 4294967294 -3) -> -12884901882) ((5302 . 5625) (* 4294967294 -2) -> -8589934588) ((5303 . 5625) (* 4294967294 -1) -> -4294967294) ((5304 . 5625) (* 4294967294 0) -> 0) ((5305 . 5625) (* 4294967294 1) -> 4294967294) ((5306 . 5625) (* 4294967295 -3) -> -12884901885) ((5307 . 5625) (* 4294967295 -2) -> -8589934590) ((5308 . 5625) (* 4294967295 -1) -> -4294967295) ((5309 . 5625) (* 4294967295 0) -> 0) ((5310 . 5625) (* 4294967295 1) -> 4294967295) ((5311 . 5625) (* 4294967296 -3) -> -12884901888) ((5312 . 5625) (* 4294967296 -2) -> -8589934592) ((5313 . 5625) (* 4294967296 -1) -> -4294967296) ((5314 . 5625) (* 4294967296 0) -> 0) ((5315 . 5625) (* 4294967296 1) -> 4294967296) ((5316 . 5625) (* 4294967297 -3) -> -12884901891) ((5317 . 5625) (* 4294967297 -2) -> -8589934594) ((5318 . 5625) (* 4294967297 -1) -> -4294967297) ((5319 . 5625) (* 4294967297 0) -> 0) ((5320 . 5625) (* 4294967297 1) -> 4294967297) ((5321 . 5625) (* 4294967298 -3) -> -12884901894) ((5322 . 5625) (* 4294967298 -2) -> -8589934596) ((5323 . 5625) (* 4294967298 -1) -> -4294967298) ((5324 . 5625) (* 4294967298 0) -> 0) ((5325 . 5625) (* 4294967298 1) -> 4294967298) ((5326 . 5625) (* 4294967294 0) -> 0) ((5327 . 5625) (* 4294967294 1) -> 4294967294) ((5328 . 5625) (* 4294967294 2) -> 8589934588) ((5329 . 5625) (* 4294967294 3) -> 12884901882) ((5330 . 5625) (* 4294967294 4) -> 17179869176) ((5331 . 5625) (* 4294967295 0) -> 0) ((5332 . 5625) (* 4294967295 1) -> 4294967295) ((5333 . 5625) (* 4294967295 2) -> 8589934590) ((5334 . 5625) (* 4294967295 3) -> 12884901885) ((5335 . 5625) (* 4294967295 4) -> 17179869180) ((5336 . 5625) (* 4294967296 0) -> 0) ((5337 . 5625) (* 4294967296 1) -> 4294967296) ((5338 . 5625) (* 4294967296 2) -> 8589934592) ((5339 . 5625) (* 4294967296 3) -> 12884901888) ((5340 . 5625) (* 4294967296 4) -> 17179869184) ((5341 . 5625) (* 4294967297 0) -> 0) ((5342 . 5625) (* 4294967297 1) -> 4294967297) ((5343 . 5625) (* 4294967297 2) -> 8589934594) ((5344 . 5625) (* 4294967297 3) -> 12884901891) ((5345 . 5625) (* 4294967297 4) -> 17179869188) ((5346 . 5625) (* 4294967298 0) -> 0) ((5347 . 5625) (* 4294967298 1) -> 4294967298) ((5348 . 5625) (* 4294967298 2) -> 8589934596) ((5349 . 5625) (* 4294967298 3) -> 12884901894) ((5350 . 5625) (* 4294967298 4) -> 17179869192) ((5351 . 5625) (* 4294967294 -4) -> -17179869176) ((5352 . 5625) (* 4294967294 -3) -> -12884901882) ((5353 . 5625) (* 4294967294 -2) -> -8589934588) ((5354 . 5625) (* 4294967294 -1) -> -4294967294) ((5355 . 5625) (* 4294967294 0) -> 0) ((5356 . 5625) (* 4294967295 -4) -> -17179869180) ((5357 . 5625) (* 4294967295 -3) -> -12884901885) ((5358 . 5625) (* 4294967295 -2) -> -8589934590) ((5359 . 5625) (* 4294967295 -1) -> -4294967295) ((5360 . 5625) (* 4294967295 0) -> 0) ((5361 . 5625) (* 4294967296 -4) -> -17179869184) ((5362 . 5625) (* 4294967296 -3) -> -12884901888) ((5363 . 5625) (* 4294967296 -2) -> -8589934592) ((5364 . 5625) (* 4294967296 -1) -> -4294967296) ((5365 . 5625) (* 4294967296 0) -> 0) ((5366 . 5625) (* 4294967297 -4) -> -17179869188) ((5367 . 5625) (* 4294967297 -3) -> -12884901891) ((5368 . 5625) (* 4294967297 -2) -> -8589934594) ((5369 . 5625) (* 4294967297 -1) -> -4294967297) ((5370 . 5625) (* 4294967297 0) -> 0) ((5371 . 5625) (* 4294967298 -4) -> -17179869192) ((5372 . 5625) (* 4294967298 -3) -> -12884901894) ((5373 . 5625) (* 4294967298 -2) -> -8589934596) ((5374 . 5625) (* 4294967298 -1) -> -4294967298) ((5375 . 5625) (* 4294967298 0) -> 0) ((5376 . 5625) (* 4294967294 1073741821) -> 4611686003395002374) ((5377 . 5625) (* 4294967294 1073741822) -> 4611686007689969668) ((5378 . 5625) (* 4294967294 1073741823) -> 4611686011984936962) ((5379 . 5625) (* 4294967294 1073741824) -> 4611686016279904256) ((5380 . 5625) (* 4294967294 1073741825) -> 4611686020574871550) ((5381 . 5625) (* 4294967295 1073741821) -> 4611686004468744195) ((5382 . 5625) (* 4294967295 1073741822) -> 4611686008763711490) ((5383 . 5625) (* 4294967295 1073741823) -> 4611686013058678785) ((5384 . 5625) (* 4294967295 1073741824) -> 4611686017353646080) ((5385 . 5625) (* 4294967295 1073741825) -> 4611686021648613375) ((5386 . 5625) (* 4294967296 1073741821) -> 4611686005542486016) ((5387 . 5625) (* 4294967296 1073741822) -> 4611686009837453312) ((5388 . 5625) (* 4294967296 1073741823) -> 4611686014132420608) ((5389 . 5625) (* 4294967296 1073741824) -> 4611686018427387904) ((5390 . 5625) (* 4294967296 1073741825) -> 4611686022722355200) ((5391 . 5625) (* 4294967297 1073741821) -> 4611686006616227837) ((5392 . 5625) (* 4294967297 1073741822) -> 4611686010911195134) ((5393 . 5625) (* 4294967297 1073741823) -> 4611686015206162431) ((5394 . 5625) (* 4294967297 1073741824) -> 4611686019501129728) ((5395 . 5625) (* 4294967297 1073741825) -> 4611686023796097025) ((5396 . 5625) (* 4294967298 1073741821) -> 4611686007689969658) ((5397 . 5625) (* 4294967298 1073741822) -> 4611686011984936956) ((5398 . 5625) (* 4294967298 1073741823) -> 4611686016279904254) ((5399 . 5625) (* 4294967298 1073741824) -> 4611686020574871552) ((5400 . 5625) (* 4294967298 1073741825) -> 4611686024869838850) ((5401 . 5625) (* 4294967294 -1073741826) -> -4611686024869838844) ((5402 . 5625) (* 4294967294 -1073741825) -> -4611686020574871550) ((5403 . 5625) (* 4294967294 -1073741824) -> -4611686016279904256) ((5404 . 5625) (* 4294967294 -1073741823) -> -4611686011984936962) ((5405 . 5625) (* 4294967294 -1073741822) -> -4611686007689969668) ((5406 . 5625) (* 4294967295 -1073741826) -> -4611686025943580670) ((5407 . 5625) (* 4294967295 -1073741825) -> -4611686021648613375) ((5408 . 5625) (* 4294967295 -1073741824) -> -4611686017353646080) ((5409 . 5625) (* 4294967295 -1073741823) -> -4611686013058678785) ((5410 . 5625) (* 4294967295 -1073741822) -> -4611686008763711490) ((5411 . 5625) (* 4294967296 -1073741826) -> -4611686027017322496) ((5412 . 5625) (* 4294967296 -1073741825) -> -4611686022722355200) ((5413 . 5625) (* 4294967296 -1073741824) -> -4611686018427387904) ((5414 . 5625) (* 4294967296 -1073741823) -> -4611686014132420608) ((5415 . 5625) (* 4294967296 -1073741822) -> -4611686009837453312) ((5416 . 5625) (* 4294967297 -1073741826) -> -4611686028091064322) ((5417 . 5625) (* 4294967297 -1073741825) -> -4611686023796097025) ((5418 . 5625) (* 4294967297 -1073741824) -> -4611686019501129728) ((5419 . 5625) (* 4294967297 -1073741823) -> -4611686015206162431) ((5420 . 5625) (* 4294967297 -1073741822) -> -4611686010911195134) ((5421 . 5625) (* 4294967298 -1073741826) -> -4611686029164806148) ((5422 . 5625) (* 4294967298 -1073741825) -> -4611686024869838850) ((5423 . 5625) (* 4294967298 -1073741824) -> -4611686020574871552) ((5424 . 5625) (* 4294967298 -1073741823) -> -4611686016279904254) ((5425 . 5625) (* 4294967298 -1073741822) -> -4611686011984936956) ((5426 . 5625) (* 4294967294 1073741822) -> 4611686007689969668) ((5427 . 5625) (* 4294967294 1073741823) -> 4611686011984936962) ((5428 . 5625) (* 4294967294 1073741824) -> 4611686016279904256) ((5429 . 5625) (* 4294967294 1073741825) -> 4611686020574871550) ((5430 . 5625) (* 4294967294 1073741826) -> 4611686024869838844) ((5431 . 5625) (* 4294967295 1073741822) -> 4611686008763711490) ((5432 . 5625) (* 4294967295 1073741823) -> 4611686013058678785) ((5433 . 5625) (* 4294967295 1073741824) -> 4611686017353646080) ((5434 . 5625) (* 4294967295 1073741825) -> 4611686021648613375) ((5435 . 5625) (* 4294967295 1073741826) -> 4611686025943580670) ((5436 . 5625) (* 4294967296 1073741822) -> 4611686009837453312) ((5437 . 5625) (* 4294967296 1073741823) -> 4611686014132420608) ((5438 . 5625) (* 4294967296 1073741824) -> 4611686018427387904) ((5439 . 5625) (* 4294967296 1073741825) -> 4611686022722355200) ((5440 . 5625) (* 4294967296 1073741826) -> 4611686027017322496) ((5441 . 5625) (* 4294967297 1073741822) -> 4611686010911195134) ((5442 . 5625) (* 4294967297 1073741823) -> 4611686015206162431) ((5443 . 5625) (* 4294967297 1073741824) -> 4611686019501129728) ((5444 . 5625) (* 4294967297 1073741825) -> 4611686023796097025) ((5445 . 5625) (* 4294967297 1073741826) -> 4611686028091064322) ((5446 . 5625) (* 4294967298 1073741822) -> 4611686011984936956) ((5447 . 5625) (* 4294967298 1073741823) -> 4611686016279904254) ((5448 . 5625) (* 4294967298 1073741824) -> 4611686020574871552) ((5449 . 5625) (* 4294967298 1073741825) -> 4611686024869838850) ((5450 . 5625) (* 4294967298 1073741826) -> 4611686029164806148) ((5451 . 5625) (* 4294967294 -1073741827) -> -4611686029164806138) ((5452 . 5625) (* 4294967294 -1073741826) -> -4611686024869838844) ((5453 . 5625) (* 4294967294 -1073741825) -> -4611686020574871550) ((5454 . 5625) (* 4294967294 -1073741824) -> -4611686016279904256) ((5455 . 5625) (* 4294967294 -1073741823) -> -4611686011984936962) ((5456 . 5625) (* 4294967295 -1073741827) -> -4611686030238547965) ((5457 . 5625) (* 4294967295 -1073741826) -> -4611686025943580670) ((5458 . 5625) (* 4294967295 -1073741825) -> -4611686021648613375) ((5459 . 5625) (* 4294967295 -1073741824) -> -4611686017353646080) ((5460 . 5625) (* 4294967295 -1073741823) -> -4611686013058678785) ((5461 . 5625) (* 4294967296 -1073741827) -> -4611686031312289792) ((5462 . 5625) (* 4294967296 -1073741826) -> -4611686027017322496) ((5463 . 5625) (* 4294967296 -1073741825) -> -4611686022722355200) ((5464 . 5625) (* 4294967296 -1073741824) -> -4611686018427387904) ((5465 . 5625) (* 4294967296 -1073741823) -> -4611686014132420608) ((5466 . 5625) (* 4294967297 -1073741827) -> -4611686032386031619) ((5467 . 5625) (* 4294967297 -1073741826) -> -4611686028091064322) ((5468 . 5625) (* 4294967297 -1073741825) -> -4611686023796097025) ((5469 . 5625) (* 4294967297 -1073741824) -> -4611686019501129728) ((5470 . 5625) (* 4294967297 -1073741823) -> -4611686015206162431) ((5471 . 5625) (* 4294967298 -1073741827) -> -4611686033459773446) ((5472 . 5625) (* 4294967298 -1073741826) -> -4611686029164806148) ((5473 . 5625) (* 4294967298 -1073741825) -> -4611686024869838850) ((5474 . 5625) (* 4294967298 -1073741824) -> -4611686020574871552) ((5475 . 5625) (* 4294967298 -1073741823) -> -4611686016279904254) ((5476 . 5625) (* 4294967294 1103515243) -> 4739561877115462442) ((5477 . 5625) (* 4294967294 1103515244) -> 4739561881410429736) ((5478 . 5625) (* 4294967294 1103515245) -> 4739561885705397030) ((5479 . 5625) (* 4294967294 1103515246) -> 4739561890000364324) ((5480 . 5625) (* 4294967294 1103515247) -> 4739561894295331618) ((5481 . 5625) (* 4294967295 1103515243) -> 4739561878218977685) ((5482 . 5625) (* 4294967295 1103515244) -> 4739561882513944980) ((5483 . 5625) (* 4294967295 1103515245) -> 4739561886808912275) ((5484 . 5625) (* 4294967295 1103515246) -> 4739561891103879570) ((5485 . 5625) (* 4294967295 1103515247) -> 4739561895398846865) ((5486 . 5625) (* 4294967296 1103515243) -> 4739561879322492928) ((5487 . 5625) (* 4294967296 1103515244) -> 4739561883617460224) ((5488 . 5625) (* 4294967296 1103515245) -> 4739561887912427520) ((5489 . 5625) (* 4294967296 1103515246) -> 4739561892207394816) ((5490 . 5625) (* 4294967296 1103515247) -> 4739561896502362112) ((5491 . 5625) (* 4294967297 1103515243) -> 4739561880426008171) ((5492 . 5625) (* 4294967297 1103515244) -> 4739561884720975468) ((5493 . 5625) (* 4294967297 1103515245) -> 4739561889015942765) ((5494 . 5625) (* 4294967297 1103515246) -> 4739561893310910062) ((5495 . 5625) (* 4294967297 1103515247) -> 4739561897605877359) ((5496 . 5625) (* 4294967298 1103515243) -> 4739561881529523414) ((5497 . 5625) (* 4294967298 1103515244) -> 4739561885824490712) ((5498 . 5625) (* 4294967298 1103515245) -> 4739561890119458010) ((5499 . 5625) (* 4294967298 1103515246) -> 4739561894414425308) ((5500 . 5625) (* 4294967298 1103515247) -> 4739561898709392606) ((5501 . 5625) (* 4294967294 631629063) -> 2712826167524865522) ((5502 . 5625) (* 4294967294 631629064) -> 2712826171819832816) ((5503 . 5625) (* 4294967294 631629065) -> 2712826176114800110) ((5504 . 5625) (* 4294967294 631629066) -> 2712826180409767404) ((5505 . 5625) (* 4294967294 631629067) -> 2712826184704734698) ((5506 . 5625) (* 4294967295 631629063) -> 2712826168156494585) ((5507 . 5625) (* 4294967295 631629064) -> 2712826172451461880) ((5508 . 5625) (* 4294967295 631629065) -> 2712826176746429175) ((5509 . 5625) (* 4294967295 631629066) -> 2712826181041396470) ((5510 . 5625) (* 4294967295 631629067) -> 2712826185336363765) ((5511 . 5625) (* 4294967296 631629063) -> 2712826168788123648) ((5512 . 5625) (* 4294967296 631629064) -> 2712826173083090944) ((5513 . 5625) (* 4294967296 631629065) -> 2712826177378058240) ((5514 . 5625) (* 4294967296 631629066) -> 2712826181673025536) ((5515 . 5625) (* 4294967296 631629067) -> 2712826185967992832) ((5516 . 5625) (* 4294967297 631629063) -> 2712826169419752711) ((5517 . 5625) (* 4294967297 631629064) -> 2712826173714720008) ((5518 . 5625) (* 4294967297 631629065) -> 2712826178009687305) ((5519 . 5625) (* 4294967297 631629066) -> 2712826182304654602) ((5520 . 5625) (* 4294967297 631629067) -> 2712826186599621899) ((5521 . 5625) (* 4294967298 631629063) -> 2712826170051381774) ((5522 . 5625) (* 4294967298 631629064) -> 2712826174346349072) ((5523 . 5625) (* 4294967298 631629065) -> 2712826178641316370) ((5524 . 5625) (* 4294967298 631629066) -> 2712826182936283668) ((5525 . 5625) (* 4294967298 631629067) -> 2712826187231250966) ((5526 . 5625) (* 4294967294 9007199254740990) -> 38685626209653726491181060) ((5527 . 5625) (* 4294967294 9007199254740991) -> 38685626209653730786148354) ((5528 . 5625) (* 4294967294 9007199254740992) -> 38685626209653735081115648) ((5529 . 5625) (* 4294967294 9007199254740993) -> 38685626209653739376082942) ((5530 . 5625) (* 4294967294 9007199254740994) -> 38685626209653743671050236) ((5531 . 5625) (* 4294967295 9007199254740990) -> 38685626218660925745922050) ((5532 . 5625) (* 4294967295 9007199254740991) -> 38685626218660930040889345) ((5533 . 5625) (* 4294967295 9007199254740992) -> 38685626218660934335856640) ((5534 . 5625) (* 4294967295 9007199254740993) -> 38685626218660938630823935) ((5535 . 5625) (* 4294967295 9007199254740994) -> 38685626218660942925791230) ((5536 . 5625) (* 4294967296 9007199254740990) -> 38685626227668125000663040) ((5537 . 5625) (* 4294967296 9007199254740991) -> 38685626227668129295630336) ((5538 . 5625) (* 4294967296 9007199254740992) -> 38685626227668133590597632) ((5539 . 5625) (* 4294967296 9007199254740993) -> 38685626227668137885564928) ((5540 . 5625) (* 4294967296 9007199254740994) -> 38685626227668142180532224) ((5541 . 5625) (* 4294967297 9007199254740990) -> 38685626236675324255404030) ((5542 . 5625) (* 4294967297 9007199254740991) -> 38685626236675328550371327) ((5543 . 5625) (* 4294967297 9007199254740992) -> 38685626236675332845338624) ((5544 . 5625) (* 4294967297 9007199254740993) -> 38685626236675337140305921) ((5545 . 5625) (* 4294967297 9007199254740994) -> 38685626236675341435273218) ((5546 . 5625) (* 4294967298 9007199254740990) -> 38685626245682523510145020) ((5547 . 5625) (* 4294967298 9007199254740991) -> 38685626245682527805112318) ((5548 . 5625) (* 4294967298 9007199254740992) -> 38685626245682532100079616) ((5549 . 5625) (* 4294967298 9007199254740993) -> 38685626245682536395046914) ((5550 . 5625) (* 4294967298 9007199254740994) -> 38685626245682540690014212) ((5551 . 5625) (* 4294967294 -9007199254740994) -> -38685626209653743671050236) ((5552 . 5625) (* 4294967294 -9007199254740993) -> -38685626209653739376082942) ((5553 . 5625) (* 4294967294 -9007199254740992) -> -38685626209653735081115648) ((5554 . 5625) (* 4294967294 -9007199254740991) -> -38685626209653730786148354) ((5555 . 5625) (* 4294967294 -9007199254740990) -> -38685626209653726491181060) ((5556 . 5625) (* 4294967295 -9007199254740994) -> -38685626218660942925791230) ((5557 . 5625) (* 4294967295 -9007199254740993) -> -38685626218660938630823935) ((5558 . 5625) (* 4294967295 -9007199254740992) -> -38685626218660934335856640) ((5559 . 5625) (* 4294967295 -9007199254740991) -> -38685626218660930040889345) ((5560 . 5625) (* 4294967295 -9007199254740990) -> -38685626218660925745922050) ((5561 . 5625) (* 4294967296 -9007199254740994) -> -38685626227668142180532224) ((5562 . 5625) (* 4294967296 -9007199254740993) -> -38685626227668137885564928) ((5563 . 5625) (* 4294967296 -9007199254740992) -> -38685626227668133590597632) ((5564 . 5625) (* 4294967296 -9007199254740991) -> -38685626227668129295630336) ((5565 . 5625) (* 4294967296 -9007199254740990) -> -38685626227668125000663040) ((5566 . 5625) (* 4294967297 -9007199254740994) -> -38685626236675341435273218) ((5567 . 5625) (* 4294967297 -9007199254740993) -> -38685626236675337140305921) ((5568 . 5625) (* 4294967297 -9007199254740992) -> -38685626236675332845338624) ((5569 . 5625) (* 4294967297 -9007199254740991) -> -38685626236675328550371327) ((5570 . 5625) (* 4294967297 -9007199254740990) -> -38685626236675324255404030) ((5571 . 5625) (* 4294967298 -9007199254740994) -> -38685626245682540690014212) ((5572 . 5625) (* 4294967298 -9007199254740993) -> -38685626245682536395046914) ((5573 . 5625) (* 4294967298 -9007199254740992) -> -38685626245682532100079616) ((5574 . 5625) (* 4294967298 -9007199254740991) -> -38685626245682527805112318) ((5575 . 5625) (* 4294967298 -9007199254740990) -> -38685626245682523510145020) ((5576 . 5625) (* 4294967294 12343) -> 53012781309842) ((5577 . 5625) (* 4294967294 12344) -> 53017076277136) ((5578 . 5625) (* 4294967294 12345) -> 53021371244430) ((5579 . 5625) (* 4294967294 12346) -> 53025666211724) ((5580 . 5625) (* 4294967294 12347) -> 53029961179018) ((5581 . 5625) (* 4294967295 12343) -> 53012781322185) ((5582 . 5625) (* 4294967295 12344) -> 53017076289480) ((5583 . 5625) (* 4294967295 12345) -> 53021371256775) ((5584 . 5625) (* 4294967295 12346) -> 53025666224070) ((5585 . 5625) (* 4294967295 12347) -> 53029961191365) ((5586 . 5625) (* 4294967296 12343) -> 53012781334528) ((5587 . 5625) (* 4294967296 12344) -> 53017076301824) ((5588 . 5625) (* 4294967296 12345) -> 53021371269120) ((5589 . 5625) (* 4294967296 12346) -> 53025666236416) ((5590 . 5625) (* 4294967296 12347) -> 53029961203712) ((5591 . 5625) (* 4294967297 12343) -> 53012781346871) ((5592 . 5625) (* 4294967297 12344) -> 53017076314168) ((5593 . 5625) (* 4294967297 12345) -> 53021371281465) ((5594 . 5625) (* 4294967297 12346) -> 53025666248762) ((5595 . 5625) (* 4294967297 12347) -> 53029961216059) ((5596 . 5625) (* 4294967298 12343) -> 53012781359214) ((5597 . 5625) (* 4294967298 12344) -> 53017076326512) ((5598 . 5625) (* 4294967298 12345) -> 53021371293810) ((5599 . 5625) (* 4294967298 12346) -> 53025666261108) ((5600 . 5625) (* 4294967298 12347) -> 53029961228406) ((5601 . 5625) (* 4294967294 4294967294) -> 18446744056529682436) ((5602 . 5625) (* 4294967294 4294967295) -> 18446744060824649730) ((5603 . 5625) (* 4294967294 4294967296) -> 18446744065119617024) ((5604 . 5625) (* 4294967294 4294967297) -> 18446744069414584318) ((5605 . 5625) (* 4294967294 4294967298) -> 18446744073709551612) ((5606 . 5625) (* 4294967295 4294967294) -> 18446744060824649730) ((5607 . 5625) (* 4294967295 4294967295) -> 18446744065119617025) ((5608 . 5625) (* 4294967295 4294967296) -> 18446744069414584320) ((5609 . 5625) (* 4294967295 4294967297) -> 18446744073709551615) ((5610 . 5625) (* 4294967295 4294967298) -> 18446744078004518910) ((5611 . 5625) (* 4294967296 4294967294) -> 18446744065119617024) ((5612 . 5625) (* 4294967296 4294967295) -> 18446744069414584320) ((5613 . 5625) (* 4294967296 4294967296) -> 18446744073709551616) ((5614 . 5625) (* 4294967296 4294967297) -> 18446744078004518912) ((5615 . 5625) (* 4294967296 4294967298) -> 18446744082299486208) ((5616 . 5625) (* 4294967297 4294967294) -> 18446744069414584318) ((5617 . 5625) (* 4294967297 4294967295) -> 18446744073709551615) ((5618 . 5625) (* 4294967297 4294967296) -> 18446744078004518912) ((5619 . 5625) (* 4294967297 4294967297) -> 18446744082299486209) ((5620 . 5625) (* 4294967297 4294967298) -> 18446744086594453506) ((5621 . 5625) (* 4294967298 4294967294) -> 18446744073709551612) ((5622 . 5625) (* 4294967298 4294967295) -> 18446744078004518910) ((5623 . 5625) (* 4294967298 4294967296) -> 18446744082299486208) ((5624 . 5625) (* 4294967298 4294967297) -> 18446744086594453506) ((5625 . 5625) (* 4294967298 4294967298) -> 18446744090889420804) ((1 . 5625) (/ -2 -2) -> 1) ((2 . 5625) (/ -2 -1) -> 2) ((3 . 5625) (/ -2 0) -> "division by zero") ((4 . 5625) (/ -2 1) -> -2) ((5 . 5625) (/ -2 2) -> -1) ((6 . 5625) (/ -1 -2) -> 1/2) ((7 . 5625) (/ -1 -1) -> 1) ((8 . 5625) (/ -1 0) -> "division by zero") ((9 . 5625) (/ -1 1) -> -1) ((10 . 5625) (/ -1 2) -> -1/2) ((11 . 5625) (/ 0 -2) -> 0) ((12 . 5625) (/ 0 -1) -> 0) ((13 . 5625) (/ 0 0) -> "division by zero") ((14 . 5625) (/ 0 1) -> 0) ((15 . 5625) (/ 0 2) -> 0) ((16 . 5625) (/ 1 -2) -> -1/2) ((17 . 5625) (/ 1 -1) -> -1) ((18 . 5625) (/ 1 0) -> "division by zero") ((19 . 5625) (/ 1 1) -> 1) ((20 . 5625) (/ 1 2) -> 1/2) ((21 . 5625) (/ 2 -2) -> -1) ((22 . 5625) (/ 2 -1) -> -2) ((23 . 5625) (/ 2 0) -> "division by zero") ((24 . 5625) (/ 2 1) -> 2) ((25 . 5625) (/ 2 2) -> 1) ((26 . 5625) (/ -2 -1) -> 2) ((27 . 5625) (/ -2 0) -> "division by zero") ((28 . 5625) (/ -2 1) -> -2) ((29 . 5625) (/ -2 2) -> -1) ((30 . 5625) (/ -2 3) -> -2/3) ((31 . 5625) (/ -1 -1) -> 1) ((32 . 5625) (/ -1 0) -> "division by zero") ((33 . 5625) (/ -1 1) -> -1) ((34 . 5625) (/ -1 2) -> -1/2) ((35 . 5625) (/ -1 3) -> -1/3) ((36 . 5625) (/ 0 -1) -> 0) ((37 . 5625) (/ 0 0) -> "division by zero") ((38 . 5625) (/ 0 1) -> 0) ((39 . 5625) (/ 0 2) -> 0) ((40 . 5625) (/ 0 3) -> 0) ((41 . 5625) (/ 1 -1) -> -1) ((42 . 5625) (/ 1 0) -> "division by zero") ((43 . 5625) (/ 1 1) -> 1) ((44 . 5625) (/ 1 2) -> 1/2) ((45 . 5625) (/ 1 3) -> 1/3) ((46 . 5625) (/ 2 -1) -> -2) ((47 . 5625) (/ 2 0) -> "division by zero") ((48 . 5625) (/ 2 1) -> 2) ((49 . 5625) (/ 2 2) -> 1) ((50 . 5625) (/ 2 3) -> 2/3) ((51 . 5625) (/ -2 -3) -> 2/3) ((52 . 5625) (/ -2 -2) -> 1) ((53 . 5625) (/ -2 -1) -> 2) ((54 . 5625) (/ -2 0) -> "division by zero") ((55 . 5625) (/ -2 1) -> -2) ((56 . 5625) (/ -1 -3) -> 1/3) ((57 . 5625) (/ -1 -2) -> 1/2) ((58 . 5625) (/ -1 -1) -> 1) ((59 . 5625) (/ -1 0) -> "division by zero") ((60 . 5625) (/ -1 1) -> -1) ((61 . 5625) (/ 0 -3) -> 0) ((62 . 5625) (/ 0 -2) -> 0) ((63 . 5625) (/ 0 -1) -> 0) ((64 . 5625) (/ 0 0) -> "division by zero") ((65 . 5625) (/ 0 1) -> 0) ((66 . 5625) (/ 1 -3) -> -1/3) ((67 . 5625) (/ 1 -2) -> -1/2) ((68 . 5625) (/ 1 -1) -> -1) ((69 . 5625) (/ 1 0) -> "division by zero") ((70 . 5625) (/ 1 1) -> 1) ((71 . 5625) (/ 2 -3) -> -2/3) ((72 . 5625) (/ 2 -2) -> -1) ((73 . 5625) (/ 2 -1) -> -2) ((74 . 5625) (/ 2 0) -> "division by zero") ((75 . 5625) (/ 2 1) -> 2) ((76 . 5625) (/ -2 0) -> "division by zero") ((77 . 5625) (/ -2 1) -> -2) ((78 . 5625) (/ -2 2) -> -1) ((79 . 5625) (/ -2 3) -> -2/3) ((80 . 5625) (/ -2 4) -> -1/2) ((81 . 5625) (/ -1 0) -> "division by zero") ((82 . 5625) (/ -1 1) -> -1) ((83 . 5625) (/ -1 2) -> -1/2) ((84 . 5625) (/ -1 3) -> -1/3) ((85 . 5625) (/ -1 4) -> -1/4) ((86 . 5625) (/ 0 0) -> "division by zero") ((87 . 5625) (/ 0 1) -> 0) ((88 . 5625) (/ 0 2) -> 0) ((89 . 5625) (/ 0 3) -> 0) ((90 . 5625) (/ 0 4) -> 0) ((91 . 5625) (/ 1 0) -> "division by zero") ((92 . 5625) (/ 1 1) -> 1) ((93 . 5625) (/ 1 2) -> 1/2) ((94 . 5625) (/ 1 3) -> 1/3) ((95 . 5625) (/ 1 4) -> 1/4) ((96 . 5625) (/ 2 0) -> "division by zero") ((97 . 5625) (/ 2 1) -> 2) ((98 . 5625) (/ 2 2) -> 1) ((99 . 5625) (/ 2 3) -> 2/3) ((100 . 5625) (/ 2 4) -> 1/2) ((101 . 5625) (/ -2 -4) -> 1/2) ((102 . 5625) (/ -2 -3) -> 2/3) ((103 . 5625) (/ -2 -2) -> 1) ((104 . 5625) (/ -2 -1) -> 2) ((105 . 5625) (/ -2 0) -> "division by zero") ((106 . 5625) (/ -1 -4) -> 1/4) ((107 . 5625) (/ -1 -3) -> 1/3) ((108 . 5625) (/ -1 -2) -> 1/2) ((109 . 5625) (/ -1 -1) -> 1) ((110 . 5625) (/ -1 0) -> "division by zero") ((111 . 5625) (/ 0 -4) -> 0) ((112 . 5625) (/ 0 -3) -> 0) ((113 . 5625) (/ 0 -2) -> 0) ((114 . 5625) (/ 0 -1) -> 0) ((115 . 5625) (/ 0 0) -> "division by zero") ((116 . 5625) (/ 1 -4) -> -1/4) ((117 . 5625) (/ 1 -3) -> -1/3) ((118 . 5625) (/ 1 -2) -> -1/2) ((119 . 5625) (/ 1 -1) -> -1) ((120 . 5625) (/ 1 0) -> "division by zero") ((121 . 5625) (/ 2 -4) -> -1/2) ((122 . 5625) (/ 2 -3) -> -2/3) ((123 . 5625) (/ 2 -2) -> -1) ((124 . 5625) (/ 2 -1) -> -2) ((125 . 5625) (/ 2 0) -> "division by zero") ((126 . 5625) (/ -2 1073741821) -> -2/1073741821) ((127 . 5625) (/ -2 1073741822) -> -1/536870911) ((128 . 5625) (/ -2 1073741823) -> -2/1073741823) ((129 . 5625) (/ -2 1073741824) -> -1/536870912) ((130 . 5625) (/ -2 1073741825) -> -2/1073741825) ((131 . 5625) (/ -1 1073741821) -> -1/1073741821) ((132 . 5625) (/ -1 1073741822) -> -1/1073741822) ((133 . 5625) (/ -1 1073741823) -> -1/1073741823) ((134 . 5625) (/ -1 1073741824) -> -1/1073741824) ((135 . 5625) (/ -1 1073741825) -> -1/1073741825) ((136 . 5625) (/ 0 1073741821) -> 0) ((137 . 5625) (/ 0 1073741822) -> 0) ((138 . 5625) (/ 0 1073741823) -> 0) ((139 . 5625) (/ 0 1073741824) -> 0) ((140 . 5625) (/ 0 1073741825) -> 0) ((141 . 5625) (/ 1 1073741821) -> 1/1073741821) ((142 . 5625) (/ 1 1073741822) -> 1/1073741822) ((143 . 5625) (/ 1 1073741823) -> 1/1073741823) ((144 . 5625) (/ 1 1073741824) -> 1/1073741824) ((145 . 5625) (/ 1 1073741825) -> 1/1073741825) ((146 . 5625) (/ 2 1073741821) -> 2/1073741821) ((147 . 5625) (/ 2 1073741822) -> 1/536870911) ((148 . 5625) (/ 2 1073741823) -> 2/1073741823) ((149 . 5625) (/ 2 1073741824) -> 1/536870912) ((150 . 5625) (/ 2 1073741825) -> 2/1073741825) ((151 . 5625) (/ -2 -1073741826) -> 1/536870913) ((152 . 5625) (/ -2 -1073741825) -> 2/1073741825) ((153 . 5625) (/ -2 -1073741824) -> 1/536870912) ((154 . 5625) (/ -2 -1073741823) -> 2/1073741823) ((155 . 5625) (/ -2 -1073741822) -> 1/536870911) ((156 . 5625) (/ -1 -1073741826) -> 1/1073741826) ((157 . 5625) (/ -1 -1073741825) -> 1/1073741825) ((158 . 5625) (/ -1 -1073741824) -> 1/1073741824) ((159 . 5625) (/ -1 -1073741823) -> 1/1073741823) ((160 . 5625) (/ -1 -1073741822) -> 1/1073741822) ((161 . 5625) (/ 0 -1073741826) -> 0) ((162 . 5625) (/ 0 -1073741825) -> 0) ((163 . 5625) (/ 0 -1073741824) -> 0) ((164 . 5625) (/ 0 -1073741823) -> 0) ((165 . 5625) (/ 0 -1073741822) -> 0) ((166 . 5625) (/ 1 -1073741826) -> -1/1073741826) ((167 . 5625) (/ 1 -1073741825) -> -1/1073741825) ((168 . 5625) (/ 1 -1073741824) -> -1/1073741824) ((169 . 5625) (/ 1 -1073741823) -> -1/1073741823) ((170 . 5625) (/ 1 -1073741822) -> -1/1073741822) ((171 . 5625) (/ 2 -1073741826) -> -1/536870913) ((172 . 5625) (/ 2 -1073741825) -> -2/1073741825) ((173 . 5625) (/ 2 -1073741824) -> -1/536870912) ((174 . 5625) (/ 2 -1073741823) -> -2/1073741823) ((175 . 5625) (/ 2 -1073741822) -> -1/536870911) ((176 . 5625) (/ -2 1073741822) -> -1/536870911) ((177 . 5625) (/ -2 1073741823) -> -2/1073741823) ((178 . 5625) (/ -2 1073741824) -> -1/536870912) ((179 . 5625) (/ -2 1073741825) -> -2/1073741825) ((180 . 5625) (/ -2 1073741826) -> -1/536870913) ((181 . 5625) (/ -1 1073741822) -> -1/1073741822) ((182 . 5625) (/ -1 1073741823) -> -1/1073741823) ((183 . 5625) (/ -1 1073741824) -> -1/1073741824) ((184 . 5625) (/ -1 1073741825) -> -1/1073741825) ((185 . 5625) (/ -1 1073741826) -> -1/1073741826) ((186 . 5625) (/ 0 1073741822) -> 0) ((187 . 5625) (/ 0 1073741823) -> 0) ((188 . 5625) (/ 0 1073741824) -> 0) ((189 . 5625) (/ 0 1073741825) -> 0) ((190 . 5625) (/ 0 1073741826) -> 0) ((191 . 5625) (/ 1 1073741822) -> 1/1073741822) ((192 . 5625) (/ 1 1073741823) -> 1/1073741823) ((193 . 5625) (/ 1 1073741824) -> 1/1073741824) ((194 . 5625) (/ 1 1073741825) -> 1/1073741825) ((195 . 5625) (/ 1 1073741826) -> 1/1073741826) ((196 . 5625) (/ 2 1073741822) -> 1/536870911) ((197 . 5625) (/ 2 1073741823) -> 2/1073741823) ((198 . 5625) (/ 2 1073741824) -> 1/536870912) ((199 . 5625) (/ 2 1073741825) -> 2/1073741825) ((200 . 5625) (/ 2 1073741826) -> 1/536870913) ((201 . 5625) (/ -2 -1073741827) -> 2/1073741827) ((202 . 5625) (/ -2 -1073741826) -> 1/536870913) ((203 . 5625) (/ -2 -1073741825) -> 2/1073741825) ((204 . 5625) (/ -2 -1073741824) -> 1/536870912) ((205 . 5625) (/ -2 -1073741823) -> 2/1073741823) ((206 . 5625) (/ -1 -1073741827) -> 1/1073741827) ((207 . 5625) (/ -1 -1073741826) -> 1/1073741826) ((208 . 5625) (/ -1 -1073741825) -> 1/1073741825) ((209 . 5625) (/ -1 -1073741824) -> 1/1073741824) ((210 . 5625) (/ -1 -1073741823) -> 1/1073741823) ((211 . 5625) (/ 0 -1073741827) -> 0) ((212 . 5625) (/ 0 -1073741826) -> 0) ((213 . 5625) (/ 0 -1073741825) -> 0) ((214 . 5625) (/ 0 -1073741824) -> 0) ((215 . 5625) (/ 0 -1073741823) -> 0) ((216 . 5625) (/ 1 -1073741827) -> -1/1073741827) ((217 . 5625) (/ 1 -1073741826) -> -1/1073741826) ((218 . 5625) (/ 1 -1073741825) -> -1/1073741825) ((219 . 5625) (/ 1 -1073741824) -> -1/1073741824) ((220 . 5625) (/ 1 -1073741823) -> -1/1073741823) ((221 . 5625) (/ 2 -1073741827) -> -2/1073741827) ((222 . 5625) (/ 2 -1073741826) -> -1/536870913) ((223 . 5625) (/ 2 -1073741825) -> -2/1073741825) ((224 . 5625) (/ 2 -1073741824) -> -1/536870912) ((225 . 5625) (/ 2 -1073741823) -> -2/1073741823) ((226 . 5625) (/ -2 1103515243) -> -2/1103515243) ((227 . 5625) (/ -2 1103515244) -> -1/551757622) ((228 . 5625) (/ -2 1103515245) -> -2/1103515245) ((229 . 5625) (/ -2 1103515246) -> -1/551757623) ((230 . 5625) (/ -2 1103515247) -> -2/1103515247) ((231 . 5625) (/ -1 1103515243) -> -1/1103515243) ((232 . 5625) (/ -1 1103515244) -> -1/1103515244) ((233 . 5625) (/ -1 1103515245) -> -1/1103515245) ((234 . 5625) (/ -1 1103515246) -> -1/1103515246) ((235 . 5625) (/ -1 1103515247) -> -1/1103515247) ((236 . 5625) (/ 0 1103515243) -> 0) ((237 . 5625) (/ 0 1103515244) -> 0) ((238 . 5625) (/ 0 1103515245) -> 0) ((239 . 5625) (/ 0 1103515246) -> 0) ((240 . 5625) (/ 0 1103515247) -> 0) ((241 . 5625) (/ 1 1103515243) -> 1/1103515243) ((242 . 5625) (/ 1 1103515244) -> 1/1103515244) ((243 . 5625) (/ 1 1103515245) -> 1/1103515245) ((244 . 5625) (/ 1 1103515246) -> 1/1103515246) ((245 . 5625) (/ 1 1103515247) -> 1/1103515247) ((246 . 5625) (/ 2 1103515243) -> 2/1103515243) ((247 . 5625) (/ 2 1103515244) -> 1/551757622) ((248 . 5625) (/ 2 1103515245) -> 2/1103515245) ((249 . 5625) (/ 2 1103515246) -> 1/551757623) ((250 . 5625) (/ 2 1103515247) -> 2/1103515247) ((251 . 5625) (/ -2 631629063) -> -2/631629063) ((252 . 5625) (/ -2 631629064) -> -1/315814532) ((253 . 5625) (/ -2 631629065) -> -2/631629065) ((254 . 5625) (/ -2 631629066) -> -1/315814533) ((255 . 5625) (/ -2 631629067) -> -2/631629067) ((256 . 5625) (/ -1 631629063) -> -1/631629063) ((257 . 5625) (/ -1 631629064) -> -1/631629064) ((258 . 5625) (/ -1 631629065) -> -1/631629065) ((259 . 5625) (/ -1 631629066) -> -1/631629066) ((260 . 5625) (/ -1 631629067) -> -1/631629067) ((261 . 5625) (/ 0 631629063) -> 0) ((262 . 5625) (/ 0 631629064) -> 0) ((263 . 5625) (/ 0 631629065) -> 0) ((264 . 5625) (/ 0 631629066) -> 0) ((265 . 5625) (/ 0 631629067) -> 0) ((266 . 5625) (/ 1 631629063) -> 1/631629063) ((267 . 5625) (/ 1 631629064) -> 1/631629064) ((268 . 5625) (/ 1 631629065) -> 1/631629065) ((269 . 5625) (/ 1 631629066) -> 1/631629066) ((270 . 5625) (/ 1 631629067) -> 1/631629067) ((271 . 5625) (/ 2 631629063) -> 2/631629063) ((272 . 5625) (/ 2 631629064) -> 1/315814532) ((273 . 5625) (/ 2 631629065) -> 2/631629065) ((274 . 5625) (/ 2 631629066) -> 1/315814533) ((275 . 5625) (/ 2 631629067) -> 2/631629067) ((276 . 5625) (/ -2 9007199254740990) -> -1/4503599627370495) ((277 . 5625) (/ -2 9007199254740991) -> -2/9007199254740991) ((278 . 5625) (/ -2 9007199254740992) -> -1/4503599627370496) ((279 . 5625) (/ -2 9007199254740993) -> -2/9007199254740993) ((280 . 5625) (/ -2 9007199254740994) -> -1/4503599627370497) ((281 . 5625) (/ -1 9007199254740990) -> -1/9007199254740990) ((282 . 5625) (/ -1 9007199254740991) -> -1/9007199254740991) ((283 . 5625) (/ -1 9007199254740992) -> -1/9007199254740992) ((284 . 5625) (/ -1 9007199254740993) -> -1/9007199254740993) ((285 . 5625) (/ -1 9007199254740994) -> -1/9007199254740994) ((286 . 5625) (/ 0 9007199254740990) -> 0) ((287 . 5625) (/ 0 9007199254740991) -> 0) ((288 . 5625) (/ 0 9007199254740992) -> 0) ((289 . 5625) (/ 0 9007199254740993) -> 0) ((290 . 5625) (/ 0 9007199254740994) -> 0) ((291 . 5625) (/ 1 9007199254740990) -> 1/9007199254740990) ((292 . 5625) (/ 1 9007199254740991) -> 1/9007199254740991) ((293 . 5625) (/ 1 9007199254740992) -> 1/9007199254740992) ((294 . 5625) (/ 1 9007199254740993) -> 1/9007199254740993) ((295 . 5625) (/ 1 9007199254740994) -> 1/9007199254740994) ((296 . 5625) (/ 2 9007199254740990) -> 1/4503599627370495) ((297 . 5625) (/ 2 9007199254740991) -> 2/9007199254740991) ((298 . 5625) (/ 2 9007199254740992) -> 1/4503599627370496) ((299 . 5625) (/ 2 9007199254740993) -> 2/9007199254740993) ((300 . 5625) (/ 2 9007199254740994) -> 1/4503599627370497) ((301 . 5625) (/ -2 -9007199254740994) -> 1/4503599627370497) ((302 . 5625) (/ -2 -9007199254740993) -> 2/9007199254740993) ((303 . 5625) (/ -2 -9007199254740992) -> 1/4503599627370496) ((304 . 5625) (/ -2 -9007199254740991) -> 2/9007199254740991) ((305 . 5625) (/ -2 -9007199254740990) -> 1/4503599627370495) ((306 . 5625) (/ -1 -9007199254740994) -> 1/9007199254740994) ((307 . 5625) (/ -1 -9007199254740993) -> 1/9007199254740993) ((308 . 5625) (/ -1 -9007199254740992) -> 1/9007199254740992) ((309 . 5625) (/ -1 -9007199254740991) -> 1/9007199254740991) ((310 . 5625) (/ -1 -9007199254740990) -> 1/9007199254740990) ((311 . 5625) (/ 0 -9007199254740994) -> 0) ((312 . 5625) (/ 0 -9007199254740993) -> 0) ((313 . 5625) (/ 0 -9007199254740992) -> 0) ((314 . 5625) (/ 0 -9007199254740991) -> 0) ((315 . 5625) (/ 0 -9007199254740990) -> 0) ((316 . 5625) (/ 1 -9007199254740994) -> -1/9007199254740994) ((317 . 5625) (/ 1 -9007199254740993) -> -1/9007199254740993) ((318 . 5625) (/ 1 -9007199254740992) -> -1/9007199254740992) ((319 . 5625) (/ 1 -9007199254740991) -> -1/9007199254740991) ((320 . 5625) (/ 1 -9007199254740990) -> -1/9007199254740990) ((321 . 5625) (/ 2 -9007199254740994) -> -1/4503599627370497) ((322 . 5625) (/ 2 -9007199254740993) -> -2/9007199254740993) ((323 . 5625) (/ 2 -9007199254740992) -> -1/4503599627370496) ((324 . 5625) (/ 2 -9007199254740991) -> -2/9007199254740991) ((325 . 5625) (/ 2 -9007199254740990) -> -1/4503599627370495) ((326 . 5625) (/ -2 12343) -> -2/12343) ((327 . 5625) (/ -2 12344) -> -1/6172) ((328 . 5625) (/ -2 12345) -> -2/12345) ((329 . 5625) (/ -2 12346) -> -1/6173) ((330 . 5625) (/ -2 12347) -> -2/12347) ((331 . 5625) (/ -1 12343) -> -1/12343) ((332 . 5625) (/ -1 12344) -> -1/12344) ((333 . 5625) (/ -1 12345) -> -1/12345) ((334 . 5625) (/ -1 12346) -> -1/12346) ((335 . 5625) (/ -1 12347) -> -1/12347) ((336 . 5625) (/ 0 12343) -> 0) ((337 . 5625) (/ 0 12344) -> 0) ((338 . 5625) (/ 0 12345) -> 0) ((339 . 5625) (/ 0 12346) -> 0) ((340 . 5625) (/ 0 12347) -> 0) ((341 . 5625) (/ 1 12343) -> 1/12343) ((342 . 5625) (/ 1 12344) -> 1/12344) ((343 . 5625) (/ 1 12345) -> 1/12345) ((344 . 5625) (/ 1 12346) -> 1/12346) ((345 . 5625) (/ 1 12347) -> 1/12347) ((346 . 5625) (/ 2 12343) -> 2/12343) ((347 . 5625) (/ 2 12344) -> 1/6172) ((348 . 5625) (/ 2 12345) -> 2/12345) ((349 . 5625) (/ 2 12346) -> 1/6173) ((350 . 5625) (/ 2 12347) -> 2/12347) ((351 . 5625) (/ -2 4294967294) -> -1/2147483647) ((352 . 5625) (/ -2 4294967295) -> -2/4294967295) ((353 . 5625) (/ -2 4294967296) -> -1/2147483648) ((354 . 5625) (/ -2 4294967297) -> -2/4294967297) ((355 . 5625) (/ -2 4294967298) -> -1/2147483649) ((356 . 5625) (/ -1 4294967294) -> -1/4294967294) ((357 . 5625) (/ -1 4294967295) -> -1/4294967295) ((358 . 5625) (/ -1 4294967296) -> -1/4294967296) ((359 . 5625) (/ -1 4294967297) -> -1/4294967297) ((360 . 5625) (/ -1 4294967298) -> -1/4294967298) ((361 . 5625) (/ 0 4294967294) -> 0) ((362 . 5625) (/ 0 4294967295) -> 0) ((363 . 5625) (/ 0 4294967296) -> 0) ((364 . 5625) (/ 0 4294967297) -> 0) ((365 . 5625) (/ 0 4294967298) -> 0) ((366 . 5625) (/ 1 4294967294) -> 1/4294967294) ((367 . 5625) (/ 1 4294967295) -> 1/4294967295) ((368 . 5625) (/ 1 4294967296) -> 1/4294967296) ((369 . 5625) (/ 1 4294967297) -> 1/4294967297) ((370 . 5625) (/ 1 4294967298) -> 1/4294967298) ((371 . 5625) (/ 2 4294967294) -> 1/2147483647) ((372 . 5625) (/ 2 4294967295) -> 2/4294967295) ((373 . 5625) (/ 2 4294967296) -> 1/2147483648) ((374 . 5625) (/ 2 4294967297) -> 2/4294967297) ((375 . 5625) (/ 2 4294967298) -> 1/2147483649) ((376 . 5625) (/ -1 -2) -> 1/2) ((377 . 5625) (/ -1 -1) -> 1) ((378 . 5625) (/ -1 0) -> "division by zero") ((379 . 5625) (/ -1 1) -> -1) ((380 . 5625) (/ -1 2) -> -1/2) ((381 . 5625) (/ 0 -2) -> 0) ((382 . 5625) (/ 0 -1) -> 0) ((383 . 5625) (/ 0 0) -> "division by zero") ((384 . 5625) (/ 0 1) -> 0) ((385 . 5625) (/ 0 2) -> 0) ((386 . 5625) (/ 1 -2) -> -1/2) ((387 . 5625) (/ 1 -1) -> -1) ((388 . 5625) (/ 1 0) -> "division by zero") ((389 . 5625) (/ 1 1) -> 1) ((390 . 5625) (/ 1 2) -> 1/2) ((391 . 5625) (/ 2 -2) -> -1) ((392 . 5625) (/ 2 -1) -> -2) ((393 . 5625) (/ 2 0) -> "division by zero") ((394 . 5625) (/ 2 1) -> 2) ((395 . 5625) (/ 2 2) -> 1) ((396 . 5625) (/ 3 -2) -> -3/2) ((397 . 5625) (/ 3 -1) -> -3) ((398 . 5625) (/ 3 0) -> "division by zero") ((399 . 5625) (/ 3 1) -> 3) ((400 . 5625) (/ 3 2) -> 3/2) ((401 . 5625) (/ -1 -1) -> 1) ((402 . 5625) (/ -1 0) -> "division by zero") ((403 . 5625) (/ -1 1) -> -1) ((404 . 5625) (/ -1 2) -> -1/2) ((405 . 5625) (/ -1 3) -> -1/3) ((406 . 5625) (/ 0 -1) -> 0) ((407 . 5625) (/ 0 0) -> "division by zero") ((408 . 5625) (/ 0 1) -> 0) ((409 . 5625) (/ 0 2) -> 0) ((410 . 5625) (/ 0 3) -> 0) ((411 . 5625) (/ 1 -1) -> -1) ((412 . 5625) (/ 1 0) -> "division by zero") ((413 . 5625) (/ 1 1) -> 1) ((414 . 5625) (/ 1 2) -> 1/2) ((415 . 5625) (/ 1 3) -> 1/3) ((416 . 5625) (/ 2 -1) -> -2) ((417 . 5625) (/ 2 0) -> "division by zero") ((418 . 5625) (/ 2 1) -> 2) ((419 . 5625) (/ 2 2) -> 1) ((420 . 5625) (/ 2 3) -> 2/3) ((421 . 5625) (/ 3 -1) -> -3) ((422 . 5625) (/ 3 0) -> "division by zero") ((423 . 5625) (/ 3 1) -> 3) ((424 . 5625) (/ 3 2) -> 3/2) ((425 . 5625) (/ 3 3) -> 1) ((426 . 5625) (/ -1 -3) -> 1/3) ((427 . 5625) (/ -1 -2) -> 1/2) ((428 . 5625) (/ -1 -1) -> 1) ((429 . 5625) (/ -1 0) -> "division by zero") ((430 . 5625) (/ -1 1) -> -1) ((431 . 5625) (/ 0 -3) -> 0) ((432 . 5625) (/ 0 -2) -> 0) ((433 . 5625) (/ 0 -1) -> 0) ((434 . 5625) (/ 0 0) -> "division by zero") ((435 . 5625) (/ 0 1) -> 0) ((436 . 5625) (/ 1 -3) -> -1/3) ((437 . 5625) (/ 1 -2) -> -1/2) ((438 . 5625) (/ 1 -1) -> -1) ((439 . 5625) (/ 1 0) -> "division by zero") ((440 . 5625) (/ 1 1) -> 1) ((441 . 5625) (/ 2 -3) -> -2/3) ((442 . 5625) (/ 2 -2) -> -1) ((443 . 5625) (/ 2 -1) -> -2) ((444 . 5625) (/ 2 0) -> "division by zero") ((445 . 5625) (/ 2 1) -> 2) ((446 . 5625) (/ 3 -3) -> -1) ((447 . 5625) (/ 3 -2) -> -3/2) ((448 . 5625) (/ 3 -1) -> -3) ((449 . 5625) (/ 3 0) -> "division by zero") ((450 . 5625) (/ 3 1) -> 3) ((451 . 5625) (/ -1 0) -> "division by zero") ((452 . 5625) (/ -1 1) -> -1) ((453 . 5625) (/ -1 2) -> -1/2) ((454 . 5625) (/ -1 3) -> -1/3) ((455 . 5625) (/ -1 4) -> -1/4) ((456 . 5625) (/ 0 0) -> "division by zero") ((457 . 5625) (/ 0 1) -> 0) ((458 . 5625) (/ 0 2) -> 0) ((459 . 5625) (/ 0 3) -> 0) ((460 . 5625) (/ 0 4) -> 0) ((461 . 5625) (/ 1 0) -> "division by zero") ((462 . 5625) (/ 1 1) -> 1) ((463 . 5625) (/ 1 2) -> 1/2) ((464 . 5625) (/ 1 3) -> 1/3) ((465 . 5625) (/ 1 4) -> 1/4) ((466 . 5625) (/ 2 0) -> "division by zero") ((467 . 5625) (/ 2 1) -> 2) ((468 . 5625) (/ 2 2) -> 1) ((469 . 5625) (/ 2 3) -> 2/3) ((470 . 5625) (/ 2 4) -> 1/2) ((471 . 5625) (/ 3 0) -> "division by zero") ((472 . 5625) (/ 3 1) -> 3) ((473 . 5625) (/ 3 2) -> 3/2) ((474 . 5625) (/ 3 3) -> 1) ((475 . 5625) (/ 3 4) -> 3/4) ((476 . 5625) (/ -1 -4) -> 1/4) ((477 . 5625) (/ -1 -3) -> 1/3) ((478 . 5625) (/ -1 -2) -> 1/2) ((479 . 5625) (/ -1 -1) -> 1) ((480 . 5625) (/ -1 0) -> "division by zero") ((481 . 5625) (/ 0 -4) -> 0) ((482 . 5625) (/ 0 -3) -> 0) ((483 . 5625) (/ 0 -2) -> 0) ((484 . 5625) (/ 0 -1) -> 0) ((485 . 5625) (/ 0 0) -> "division by zero") ((486 . 5625) (/ 1 -4) -> -1/4) ((487 . 5625) (/ 1 -3) -> -1/3) ((488 . 5625) (/ 1 -2) -> -1/2) ((489 . 5625) (/ 1 -1) -> -1) ((490 . 5625) (/ 1 0) -> "division by zero") ((491 . 5625) (/ 2 -4) -> -1/2) ((492 . 5625) (/ 2 -3) -> -2/3) ((493 . 5625) (/ 2 -2) -> -1) ((494 . 5625) (/ 2 -1) -> -2) ((495 . 5625) (/ 2 0) -> "division by zero") ((496 . 5625) (/ 3 -4) -> -3/4) ((497 . 5625) (/ 3 -3) -> -1) ((498 . 5625) (/ 3 -2) -> -3/2) ((499 . 5625) (/ 3 -1) -> -3) ((500 . 5625) (/ 3 0) -> "division by zero") ((501 . 5625) (/ -1 1073741821) -> -1/1073741821) ((502 . 5625) (/ -1 1073741822) -> -1/1073741822) ((503 . 5625) (/ -1 1073741823) -> -1/1073741823) ((504 . 5625) (/ -1 1073741824) -> -1/1073741824) ((505 . 5625) (/ -1 1073741825) -> -1/1073741825) ((506 . 5625) (/ 0 1073741821) -> 0) ((507 . 5625) (/ 0 1073741822) -> 0) ((508 . 5625) (/ 0 1073741823) -> 0) ((509 . 5625) (/ 0 1073741824) -> 0) ((510 . 5625) (/ 0 1073741825) -> 0) ((511 . 5625) (/ 1 1073741821) -> 1/1073741821) ((512 . 5625) (/ 1 1073741822) -> 1/1073741822) ((513 . 5625) (/ 1 1073741823) -> 1/1073741823) ((514 . 5625) (/ 1 1073741824) -> 1/1073741824) ((515 . 5625) (/ 1 1073741825) -> 1/1073741825) ((516 . 5625) (/ 2 1073741821) -> 2/1073741821) ((517 . 5625) (/ 2 1073741822) -> 1/536870911) ((518 . 5625) (/ 2 1073741823) -> 2/1073741823) ((519 . 5625) (/ 2 1073741824) -> 1/536870912) ((520 . 5625) (/ 2 1073741825) -> 2/1073741825) ((521 . 5625) (/ 3 1073741821) -> 3/1073741821) ((522 . 5625) (/ 3 1073741822) -> 3/1073741822) ((523 . 5625) (/ 3 1073741823) -> 1/357913941) ((524 . 5625) (/ 3 1073741824) -> 3/1073741824) ((525 . 5625) (/ 3 1073741825) -> 3/1073741825) ((526 . 5625) (/ -1 -1073741826) -> 1/1073741826) ((527 . 5625) (/ -1 -1073741825) -> 1/1073741825) ((528 . 5625) (/ -1 -1073741824) -> 1/1073741824) ((529 . 5625) (/ -1 -1073741823) -> 1/1073741823) ((530 . 5625) (/ -1 -1073741822) -> 1/1073741822) ((531 . 5625) (/ 0 -1073741826) -> 0) ((532 . 5625) (/ 0 -1073741825) -> 0) ((533 . 5625) (/ 0 -1073741824) -> 0) ((534 . 5625) (/ 0 -1073741823) -> 0) ((535 . 5625) (/ 0 -1073741822) -> 0) ((536 . 5625) (/ 1 -1073741826) -> -1/1073741826) ((537 . 5625) (/ 1 -1073741825) -> -1/1073741825) ((538 . 5625) (/ 1 -1073741824) -> -1/1073741824) ((539 . 5625) (/ 1 -1073741823) -> -1/1073741823) ((540 . 5625) (/ 1 -1073741822) -> -1/1073741822) ((541 . 5625) (/ 2 -1073741826) -> -1/536870913) ((542 . 5625) (/ 2 -1073741825) -> -2/1073741825) ((543 . 5625) (/ 2 -1073741824) -> -1/536870912) ((544 . 5625) (/ 2 -1073741823) -> -2/1073741823) ((545 . 5625) (/ 2 -1073741822) -> -1/536870911) ((546 . 5625) (/ 3 -1073741826) -> -1/357913942) ((547 . 5625) (/ 3 -1073741825) -> -3/1073741825) ((548 . 5625) (/ 3 -1073741824) -> -3/1073741824) ((549 . 5625) (/ 3 -1073741823) -> -1/357913941) ((550 . 5625) (/ 3 -1073741822) -> -3/1073741822) ((551 . 5625) (/ -1 1073741822) -> -1/1073741822) ((552 . 5625) (/ -1 1073741823) -> -1/1073741823) ((553 . 5625) (/ -1 1073741824) -> -1/1073741824) ((554 . 5625) (/ -1 1073741825) -> -1/1073741825) ((555 . 5625) (/ -1 1073741826) -> -1/1073741826) ((556 . 5625) (/ 0 1073741822) -> 0) ((557 . 5625) (/ 0 1073741823) -> 0) ((558 . 5625) (/ 0 1073741824) -> 0) ((559 . 5625) (/ 0 1073741825) -> 0) ((560 . 5625) (/ 0 1073741826) -> 0) ((561 . 5625) (/ 1 1073741822) -> 1/1073741822) ((562 . 5625) (/ 1 1073741823) -> 1/1073741823) ((563 . 5625) (/ 1 1073741824) -> 1/1073741824) ((564 . 5625) (/ 1 1073741825) -> 1/1073741825) ((565 . 5625) (/ 1 1073741826) -> 1/1073741826) ((566 . 5625) (/ 2 1073741822) -> 1/536870911) ((567 . 5625) (/ 2 1073741823) -> 2/1073741823) ((568 . 5625) (/ 2 1073741824) -> 1/536870912) ((569 . 5625) (/ 2 1073741825) -> 2/1073741825) ((570 . 5625) (/ 2 1073741826) -> 1/536870913) ((571 . 5625) (/ 3 1073741822) -> 3/1073741822) ((572 . 5625) (/ 3 1073741823) -> 1/357913941) ((573 . 5625) (/ 3 1073741824) -> 3/1073741824) ((574 . 5625) (/ 3 1073741825) -> 3/1073741825) ((575 . 5625) (/ 3 1073741826) -> 1/357913942) ((576 . 5625) (/ -1 -1073741827) -> 1/1073741827) ((577 . 5625) (/ -1 -1073741826) -> 1/1073741826) ((578 . 5625) (/ -1 -1073741825) -> 1/1073741825) ((579 . 5625) (/ -1 -1073741824) -> 1/1073741824) ((580 . 5625) (/ -1 -1073741823) -> 1/1073741823) ((581 . 5625) (/ 0 -1073741827) -> 0) ((582 . 5625) (/ 0 -1073741826) -> 0) ((583 . 5625) (/ 0 -1073741825) -> 0) ((584 . 5625) (/ 0 -1073741824) -> 0) ((585 . 5625) (/ 0 -1073741823) -> 0) ((586 . 5625) (/ 1 -1073741827) -> -1/1073741827) ((587 . 5625) (/ 1 -1073741826) -> -1/1073741826) ((588 . 5625) (/ 1 -1073741825) -> -1/1073741825) ((589 . 5625) (/ 1 -1073741824) -> -1/1073741824) ((590 . 5625) (/ 1 -1073741823) -> -1/1073741823) ((591 . 5625) (/ 2 -1073741827) -> -2/1073741827) ((592 . 5625) (/ 2 -1073741826) -> -1/536870913) ((593 . 5625) (/ 2 -1073741825) -> -2/1073741825) ((594 . 5625) (/ 2 -1073741824) -> -1/536870912) ((595 . 5625) (/ 2 -1073741823) -> -2/1073741823) ((596 . 5625) (/ 3 -1073741827) -> -3/1073741827) ((597 . 5625) (/ 3 -1073741826) -> -1/357913942) ((598 . 5625) (/ 3 -1073741825) -> -3/1073741825) ((599 . 5625) (/ 3 -1073741824) -> -3/1073741824) ((600 . 5625) (/ 3 -1073741823) -> -1/357913941) ((601 . 5625) (/ -1 1103515243) -> -1/1103515243) ((602 . 5625) (/ -1 1103515244) -> -1/1103515244) ((603 . 5625) (/ -1 1103515245) -> -1/1103515245) ((604 . 5625) (/ -1 1103515246) -> -1/1103515246) ((605 . 5625) (/ -1 1103515247) -> -1/1103515247) ((606 . 5625) (/ 0 1103515243) -> 0) ((607 . 5625) (/ 0 1103515244) -> 0) ((608 . 5625) (/ 0 1103515245) -> 0) ((609 . 5625) (/ 0 1103515246) -> 0) ((610 . 5625) (/ 0 1103515247) -> 0) ((611 . 5625) (/ 1 1103515243) -> 1/1103515243) ((612 . 5625) (/ 1 1103515244) -> 1/1103515244) ((613 . 5625) (/ 1 1103515245) -> 1/1103515245) ((614 . 5625) (/ 1 1103515246) -> 1/1103515246) ((615 . 5625) (/ 1 1103515247) -> 1/1103515247) ((616 . 5625) (/ 2 1103515243) -> 2/1103515243) ((617 . 5625) (/ 2 1103515244) -> 1/551757622) ((618 . 5625) (/ 2 1103515245) -> 2/1103515245) ((619 . 5625) (/ 2 1103515246) -> 1/551757623) ((620 . 5625) (/ 2 1103515247) -> 2/1103515247) ((621 . 5625) (/ 3 1103515243) -> 3/1103515243) ((622 . 5625) (/ 3 1103515244) -> 3/1103515244) ((623 . 5625) (/ 3 1103515245) -> 1/367838415) ((624 . 5625) (/ 3 1103515246) -> 3/1103515246) ((625 . 5625) (/ 3 1103515247) -> 3/1103515247) ((626 . 5625) (/ -1 631629063) -> -1/631629063) ((627 . 5625) (/ -1 631629064) -> -1/631629064) ((628 . 5625) (/ -1 631629065) -> -1/631629065) ((629 . 5625) (/ -1 631629066) -> -1/631629066) ((630 . 5625) (/ -1 631629067) -> -1/631629067) ((631 . 5625) (/ 0 631629063) -> 0) ((632 . 5625) (/ 0 631629064) -> 0) ((633 . 5625) (/ 0 631629065) -> 0) ((634 . 5625) (/ 0 631629066) -> 0) ((635 . 5625) (/ 0 631629067) -> 0) ((636 . 5625) (/ 1 631629063) -> 1/631629063) ((637 . 5625) (/ 1 631629064) -> 1/631629064) ((638 . 5625) (/ 1 631629065) -> 1/631629065) ((639 . 5625) (/ 1 631629066) -> 1/631629066) ((640 . 5625) (/ 1 631629067) -> 1/631629067) ((641 . 5625) (/ 2 631629063) -> 2/631629063) ((642 . 5625) (/ 2 631629064) -> 1/315814532) ((643 . 5625) (/ 2 631629065) -> 2/631629065) ((644 . 5625) (/ 2 631629066) -> 1/315814533) ((645 . 5625) (/ 2 631629067) -> 2/631629067) ((646 . 5625) (/ 3 631629063) -> 1/210543021) ((647 . 5625) (/ 3 631629064) -> 3/631629064) ((648 . 5625) (/ 3 631629065) -> 3/631629065) ((649 . 5625) (/ 3 631629066) -> 1/210543022) ((650 . 5625) (/ 3 631629067) -> 3/631629067) ((651 . 5625) (/ -1 9007199254740990) -> -1/9007199254740990) ((652 . 5625) (/ -1 9007199254740991) -> -1/9007199254740991) ((653 . 5625) (/ -1 9007199254740992) -> -1/9007199254740992) ((654 . 5625) (/ -1 9007199254740993) -> -1/9007199254740993) ((655 . 5625) (/ -1 9007199254740994) -> -1/9007199254740994) ((656 . 5625) (/ 0 9007199254740990) -> 0) ((657 . 5625) (/ 0 9007199254740991) -> 0) ((658 . 5625) (/ 0 9007199254740992) -> 0) ((659 . 5625) (/ 0 9007199254740993) -> 0) ((660 . 5625) (/ 0 9007199254740994) -> 0) ((661 . 5625) (/ 1 9007199254740990) -> 1/9007199254740990) ((662 . 5625) (/ 1 9007199254740991) -> 1/9007199254740991) ((663 . 5625) (/ 1 9007199254740992) -> 1/9007199254740992) ((664 . 5625) (/ 1 9007199254740993) -> 1/9007199254740993) ((665 . 5625) (/ 1 9007199254740994) -> 1/9007199254740994) ((666 . 5625) (/ 2 9007199254740990) -> 1/4503599627370495) ((667 . 5625) (/ 2 9007199254740991) -> 2/9007199254740991) ((668 . 5625) (/ 2 9007199254740992) -> 1/4503599627370496) ((669 . 5625) (/ 2 9007199254740993) -> 2/9007199254740993) ((670 . 5625) (/ 2 9007199254740994) -> 1/4503599627370497) ((671 . 5625) (/ 3 9007199254740990) -> 1/3002399751580330) ((672 . 5625) (/ 3 9007199254740991) -> 3/9007199254740991) ((673 . 5625) (/ 3 9007199254740992) -> 3/9007199254740992) ((674 . 5625) (/ 3 9007199254740993) -> 1/3002399751580331) ((675 . 5625) (/ 3 9007199254740994) -> 3/9007199254740994) ((676 . 5625) (/ -1 -9007199254740994) -> 1/9007199254740994) ((677 . 5625) (/ -1 -9007199254740993) -> 1/9007199254740993) ((678 . 5625) (/ -1 -9007199254740992) -> 1/9007199254740992) ((679 . 5625) (/ -1 -9007199254740991) -> 1/9007199254740991) ((680 . 5625) (/ -1 -9007199254740990) -> 1/9007199254740990) ((681 . 5625) (/ 0 -9007199254740994) -> 0) ((682 . 5625) (/ 0 -9007199254740993) -> 0) ((683 . 5625) (/ 0 -9007199254740992) -> 0) ((684 . 5625) (/ 0 -9007199254740991) -> 0) ((685 . 5625) (/ 0 -9007199254740990) -> 0) ((686 . 5625) (/ 1 -9007199254740994) -> -1/9007199254740994) ((687 . 5625) (/ 1 -9007199254740993) -> -1/9007199254740993) ((688 . 5625) (/ 1 -9007199254740992) -> -1/9007199254740992) ((689 . 5625) (/ 1 -9007199254740991) -> -1/9007199254740991) ((690 . 5625) (/ 1 -9007199254740990) -> -1/9007199254740990) ((691 . 5625) (/ 2 -9007199254740994) -> -1/4503599627370497) ((692 . 5625) (/ 2 -9007199254740993) -> -2/9007199254740993) ((693 . 5625) (/ 2 -9007199254740992) -> -1/4503599627370496) ((694 . 5625) (/ 2 -9007199254740991) -> -2/9007199254740991) ((695 . 5625) (/ 2 -9007199254740990) -> -1/4503599627370495) ((696 . 5625) (/ 3 -9007199254740994) -> -3/9007199254740994) ((697 . 5625) (/ 3 -9007199254740993) -> -1/3002399751580331) ((698 . 5625) (/ 3 -9007199254740992) -> -3/9007199254740992) ((699 . 5625) (/ 3 -9007199254740991) -> -3/9007199254740991) ((700 . 5625) (/ 3 -9007199254740990) -> -1/3002399751580330) ((701 . 5625) (/ -1 12343) -> -1/12343) ((702 . 5625) (/ -1 12344) -> -1/12344) ((703 . 5625) (/ -1 12345) -> -1/12345) ((704 . 5625) (/ -1 12346) -> -1/12346) ((705 . 5625) (/ -1 12347) -> -1/12347) ((706 . 5625) (/ 0 12343) -> 0) ((707 . 5625) (/ 0 12344) -> 0) ((708 . 5625) (/ 0 12345) -> 0) ((709 . 5625) (/ 0 12346) -> 0) ((710 . 5625) (/ 0 12347) -> 0) ((711 . 5625) (/ 1 12343) -> 1/12343) ((712 . 5625) (/ 1 12344) -> 1/12344) ((713 . 5625) (/ 1 12345) -> 1/12345) ((714 . 5625) (/ 1 12346) -> 1/12346) ((715 . 5625) (/ 1 12347) -> 1/12347) ((716 . 5625) (/ 2 12343) -> 2/12343) ((717 . 5625) (/ 2 12344) -> 1/6172) ((718 . 5625) (/ 2 12345) -> 2/12345) ((719 . 5625) (/ 2 12346) -> 1/6173) ((720 . 5625) (/ 2 12347) -> 2/12347) ((721 . 5625) (/ 3 12343) -> 3/12343) ((722 . 5625) (/ 3 12344) -> 3/12344) ((723 . 5625) (/ 3 12345) -> 1/4115) ((724 . 5625) (/ 3 12346) -> 3/12346) ((725 . 5625) (/ 3 12347) -> 3/12347) ((726 . 5625) (/ -1 4294967294) -> -1/4294967294) ((727 . 5625) (/ -1 4294967295) -> -1/4294967295) ((728 . 5625) (/ -1 4294967296) -> -1/4294967296) ((729 . 5625) (/ -1 4294967297) -> -1/4294967297) ((730 . 5625) (/ -1 4294967298) -> -1/4294967298) ((731 . 5625) (/ 0 4294967294) -> 0) ((732 . 5625) (/ 0 4294967295) -> 0) ((733 . 5625) (/ 0 4294967296) -> 0) ((734 . 5625) (/ 0 4294967297) -> 0) ((735 . 5625) (/ 0 4294967298) -> 0) ((736 . 5625) (/ 1 4294967294) -> 1/4294967294) ((737 . 5625) (/ 1 4294967295) -> 1/4294967295) ((738 . 5625) (/ 1 4294967296) -> 1/4294967296) ((739 . 5625) (/ 1 4294967297) -> 1/4294967297) ((740 . 5625) (/ 1 4294967298) -> 1/4294967298) ((741 . 5625) (/ 2 4294967294) -> 1/2147483647) ((742 . 5625) (/ 2 4294967295) -> 2/4294967295) ((743 . 5625) (/ 2 4294967296) -> 1/2147483648) ((744 . 5625) (/ 2 4294967297) -> 2/4294967297) ((745 . 5625) (/ 2 4294967298) -> 1/2147483649) ((746 . 5625) (/ 3 4294967294) -> 3/4294967294) ((747 . 5625) (/ 3 4294967295) -> 1/1431655765) ((748 . 5625) (/ 3 4294967296) -> 3/4294967296) ((749 . 5625) (/ 3 4294967297) -> 3/4294967297) ((750 . 5625) (/ 3 4294967298) -> 1/1431655766) ((751 . 5625) (/ -3 -2) -> 3/2) ((752 . 5625) (/ -3 -1) -> 3) ((753 . 5625) (/ -3 0) -> "division by zero") ((754 . 5625) (/ -3 1) -> -3) ((755 . 5625) (/ -3 2) -> -3/2) ((756 . 5625) (/ -2 -2) -> 1) ((757 . 5625) (/ -2 -1) -> 2) ((758 . 5625) (/ -2 0) -> "division by zero") ((759 . 5625) (/ -2 1) -> -2) ((760 . 5625) (/ -2 2) -> -1) ((761 . 5625) (/ -1 -2) -> 1/2) ((762 . 5625) (/ -1 -1) -> 1) ((763 . 5625) (/ -1 0) -> "division by zero") ((764 . 5625) (/ -1 1) -> -1) ((765 . 5625) (/ -1 2) -> -1/2) ((766 . 5625) (/ 0 -2) -> 0) ((767 . 5625) (/ 0 -1) -> 0) ((768 . 5625) (/ 0 0) -> "division by zero") ((769 . 5625) (/ 0 1) -> 0) ((770 . 5625) (/ 0 2) -> 0) ((771 . 5625) (/ 1 -2) -> -1/2) ((772 . 5625) (/ 1 -1) -> -1) ((773 . 5625) (/ 1 0) -> "division by zero") ((774 . 5625) (/ 1 1) -> 1) ((775 . 5625) (/ 1 2) -> 1/2) ((776 . 5625) (/ -3 -1) -> 3) ((777 . 5625) (/ -3 0) -> "division by zero") ((778 . 5625) (/ -3 1) -> -3) ((779 . 5625) (/ -3 2) -> -3/2) ((780 . 5625) (/ -3 3) -> -1) ((781 . 5625) (/ -2 -1) -> 2) ((782 . 5625) (/ -2 0) -> "division by zero") ((783 . 5625) (/ -2 1) -> -2) ((784 . 5625) (/ -2 2) -> -1) ((785 . 5625) (/ -2 3) -> -2/3) ((786 . 5625) (/ -1 -1) -> 1) ((787 . 5625) (/ -1 0) -> "division by zero") ((788 . 5625) (/ -1 1) -> -1) ((789 . 5625) (/ -1 2) -> -1/2) ((790 . 5625) (/ -1 3) -> -1/3) ((791 . 5625) (/ 0 -1) -> 0) ((792 . 5625) (/ 0 0) -> "division by zero") ((793 . 5625) (/ 0 1) -> 0) ((794 . 5625) (/ 0 2) -> 0) ((795 . 5625) (/ 0 3) -> 0) ((796 . 5625) (/ 1 -1) -> -1) ((797 . 5625) (/ 1 0) -> "division by zero") ((798 . 5625) (/ 1 1) -> 1) ((799 . 5625) (/ 1 2) -> 1/2) ((800 . 5625) (/ 1 3) -> 1/3) ((801 . 5625) (/ -3 -3) -> 1) ((802 . 5625) (/ -3 -2) -> 3/2) ((803 . 5625) (/ -3 -1) -> 3) ((804 . 5625) (/ -3 0) -> "division by zero") ((805 . 5625) (/ -3 1) -> -3) ((806 . 5625) (/ -2 -3) -> 2/3) ((807 . 5625) (/ -2 -2) -> 1) ((808 . 5625) (/ -2 -1) -> 2) ((809 . 5625) (/ -2 0) -> "division by zero") ((810 . 5625) (/ -2 1) -> -2) ((811 . 5625) (/ -1 -3) -> 1/3) ((812 . 5625) (/ -1 -2) -> 1/2) ((813 . 5625) (/ -1 -1) -> 1) ((814 . 5625) (/ -1 0) -> "division by zero") ((815 . 5625) (/ -1 1) -> -1) ((816 . 5625) (/ 0 -3) -> 0) ((817 . 5625) (/ 0 -2) -> 0) ((818 . 5625) (/ 0 -1) -> 0) ((819 . 5625) (/ 0 0) -> "division by zero") ((820 . 5625) (/ 0 1) -> 0) ((821 . 5625) (/ 1 -3) -> -1/3) ((822 . 5625) (/ 1 -2) -> -1/2) ((823 . 5625) (/ 1 -1) -> -1) ((824 . 5625) (/ 1 0) -> "division by zero") ((825 . 5625) (/ 1 1) -> 1) ((826 . 5625) (/ -3 0) -> "division by zero") ((827 . 5625) (/ -3 1) -> -3) ((828 . 5625) (/ -3 2) -> -3/2) ((829 . 5625) (/ -3 3) -> -1) ((830 . 5625) (/ -3 4) -> -3/4) ((831 . 5625) (/ -2 0) -> "division by zero") ((832 . 5625) (/ -2 1) -> -2) ((833 . 5625) (/ -2 2) -> -1) ((834 . 5625) (/ -2 3) -> -2/3) ((835 . 5625) (/ -2 4) -> -1/2) ((836 . 5625) (/ -1 0) -> "division by zero") ((837 . 5625) (/ -1 1) -> -1) ((838 . 5625) (/ -1 2) -> -1/2) ((839 . 5625) (/ -1 3) -> -1/3) ((840 . 5625) (/ -1 4) -> -1/4) ((841 . 5625) (/ 0 0) -> "division by zero") ((842 . 5625) (/ 0 1) -> 0) ((843 . 5625) (/ 0 2) -> 0) ((844 . 5625) (/ 0 3) -> 0) ((845 . 5625) (/ 0 4) -> 0) ((846 . 5625) (/ 1 0) -> "division by zero") ((847 . 5625) (/ 1 1) -> 1) ((848 . 5625) (/ 1 2) -> 1/2) ((849 . 5625) (/ 1 3) -> 1/3) ((850 . 5625) (/ 1 4) -> 1/4) ((851 . 5625) (/ -3 -4) -> 3/4) ((852 . 5625) (/ -3 -3) -> 1) ((853 . 5625) (/ -3 -2) -> 3/2) ((854 . 5625) (/ -3 -1) -> 3) ((855 . 5625) (/ -3 0) -> "division by zero") ((856 . 5625) (/ -2 -4) -> 1/2) ((857 . 5625) (/ -2 -3) -> 2/3) ((858 . 5625) (/ -2 -2) -> 1) ((859 . 5625) (/ -2 -1) -> 2) ((860 . 5625) (/ -2 0) -> "division by zero") ((861 . 5625) (/ -1 -4) -> 1/4) ((862 . 5625) (/ -1 -3) -> 1/3) ((863 . 5625) (/ -1 -2) -> 1/2) ((864 . 5625) (/ -1 -1) -> 1) ((865 . 5625) (/ -1 0) -> "division by zero") ((866 . 5625) (/ 0 -4) -> 0) ((867 . 5625) (/ 0 -3) -> 0) ((868 . 5625) (/ 0 -2) -> 0) ((869 . 5625) (/ 0 -1) -> 0) ((870 . 5625) (/ 0 0) -> "division by zero") ((871 . 5625) (/ 1 -4) -> -1/4) ((872 . 5625) (/ 1 -3) -> -1/3) ((873 . 5625) (/ 1 -2) -> -1/2) ((874 . 5625) (/ 1 -1) -> -1) ((875 . 5625) (/ 1 0) -> "division by zero") ((876 . 5625) (/ -3 1073741821) -> -3/1073741821) ((877 . 5625) (/ -3 1073741822) -> -3/1073741822) ((878 . 5625) (/ -3 1073741823) -> -1/357913941) ((879 . 5625) (/ -3 1073741824) -> -3/1073741824) ((880 . 5625) (/ -3 1073741825) -> -3/1073741825) ((881 . 5625) (/ -2 1073741821) -> -2/1073741821) ((882 . 5625) (/ -2 1073741822) -> -1/536870911) ((883 . 5625) (/ -2 1073741823) -> -2/1073741823) ((884 . 5625) (/ -2 1073741824) -> -1/536870912) ((885 . 5625) (/ -2 1073741825) -> -2/1073741825) ((886 . 5625) (/ -1 1073741821) -> -1/1073741821) ((887 . 5625) (/ -1 1073741822) -> -1/1073741822) ((888 . 5625) (/ -1 1073741823) -> -1/1073741823) ((889 . 5625) (/ -1 1073741824) -> -1/1073741824) ((890 . 5625) (/ -1 1073741825) -> -1/1073741825) ((891 . 5625) (/ 0 1073741821) -> 0) ((892 . 5625) (/ 0 1073741822) -> 0) ((893 . 5625) (/ 0 1073741823) -> 0) ((894 . 5625) (/ 0 1073741824) -> 0) ((895 . 5625) (/ 0 1073741825) -> 0) ((896 . 5625) (/ 1 1073741821) -> 1/1073741821) ((897 . 5625) (/ 1 1073741822) -> 1/1073741822) ((898 . 5625) (/ 1 1073741823) -> 1/1073741823) ((899 . 5625) (/ 1 1073741824) -> 1/1073741824) ((900 . 5625) (/ 1 1073741825) -> 1/1073741825) ((901 . 5625) (/ -3 -1073741826) -> 1/357913942) ((902 . 5625) (/ -3 -1073741825) -> 3/1073741825) ((903 . 5625) (/ -3 -1073741824) -> 3/1073741824) ((904 . 5625) (/ -3 -1073741823) -> 1/357913941) ((905 . 5625) (/ -3 -1073741822) -> 3/1073741822) ((906 . 5625) (/ -2 -1073741826) -> 1/536870913) ((907 . 5625) (/ -2 -1073741825) -> 2/1073741825) ((908 . 5625) (/ -2 -1073741824) -> 1/536870912) ((909 . 5625) (/ -2 -1073741823) -> 2/1073741823) ((910 . 5625) (/ -2 -1073741822) -> 1/536870911) ((911 . 5625) (/ -1 -1073741826) -> 1/1073741826) ((912 . 5625) (/ -1 -1073741825) -> 1/1073741825) ((913 . 5625) (/ -1 -1073741824) -> 1/1073741824) ((914 . 5625) (/ -1 -1073741823) -> 1/1073741823) ((915 . 5625) (/ -1 -1073741822) -> 1/1073741822) ((916 . 5625) (/ 0 -1073741826) -> 0) ((917 . 5625) (/ 0 -1073741825) -> 0) ((918 . 5625) (/ 0 -1073741824) -> 0) ((919 . 5625) (/ 0 -1073741823) -> 0) ((920 . 5625) (/ 0 -1073741822) -> 0) ((921 . 5625) (/ 1 -1073741826) -> -1/1073741826) ((922 . 5625) (/ 1 -1073741825) -> -1/1073741825) ((923 . 5625) (/ 1 -1073741824) -> -1/1073741824) ((924 . 5625) (/ 1 -1073741823) -> -1/1073741823) ((925 . 5625) (/ 1 -1073741822) -> -1/1073741822) ((926 . 5625) (/ -3 1073741822) -> -3/1073741822) ((927 . 5625) (/ -3 1073741823) -> -1/357913941) ((928 . 5625) (/ -3 1073741824) -> -3/1073741824) ((929 . 5625) (/ -3 1073741825) -> -3/1073741825) ((930 . 5625) (/ -3 1073741826) -> -1/357913942) ((931 . 5625) (/ -2 1073741822) -> -1/536870911) ((932 . 5625) (/ -2 1073741823) -> -2/1073741823) ((933 . 5625) (/ -2 1073741824) -> -1/536870912) ((934 . 5625) (/ -2 1073741825) -> -2/1073741825) ((935 . 5625) (/ -2 1073741826) -> -1/536870913) ((936 . 5625) (/ -1 1073741822) -> -1/1073741822) ((937 . 5625) (/ -1 1073741823) -> -1/1073741823) ((938 . 5625) (/ -1 1073741824) -> -1/1073741824) ((939 . 5625) (/ -1 1073741825) -> -1/1073741825) ((940 . 5625) (/ -1 1073741826) -> -1/1073741826) ((941 . 5625) (/ 0 1073741822) -> 0) ((942 . 5625) (/ 0 1073741823) -> 0) ((943 . 5625) (/ 0 1073741824) -> 0) ((944 . 5625) (/ 0 1073741825) -> 0) ((945 . 5625) (/ 0 1073741826) -> 0) ((946 . 5625) (/ 1 1073741822) -> 1/1073741822) ((947 . 5625) (/ 1 1073741823) -> 1/1073741823) ((948 . 5625) (/ 1 1073741824) -> 1/1073741824) ((949 . 5625) (/ 1 1073741825) -> 1/1073741825) ((950 . 5625) (/ 1 1073741826) -> 1/1073741826) ((951 . 5625) (/ -3 -1073741827) -> 3/1073741827) ((952 . 5625) (/ -3 -1073741826) -> 1/357913942) ((953 . 5625) (/ -3 -1073741825) -> 3/1073741825) ((954 . 5625) (/ -3 -1073741824) -> 3/1073741824) ((955 . 5625) (/ -3 -1073741823) -> 1/357913941) ((956 . 5625) (/ -2 -1073741827) -> 2/1073741827) ((957 . 5625) (/ -2 -1073741826) -> 1/536870913) ((958 . 5625) (/ -2 -1073741825) -> 2/1073741825) ((959 . 5625) (/ -2 -1073741824) -> 1/536870912) ((960 . 5625) (/ -2 -1073741823) -> 2/1073741823) ((961 . 5625) (/ -1 -1073741827) -> 1/1073741827) ((962 . 5625) (/ -1 -1073741826) -> 1/1073741826) ((963 . 5625) (/ -1 -1073741825) -> 1/1073741825) ((964 . 5625) (/ -1 -1073741824) -> 1/1073741824) ((965 . 5625) (/ -1 -1073741823) -> 1/1073741823) ((966 . 5625) (/ 0 -1073741827) -> 0) ((967 . 5625) (/ 0 -1073741826) -> 0) ((968 . 5625) (/ 0 -1073741825) -> 0) ((969 . 5625) (/ 0 -1073741824) -> 0) ((970 . 5625) (/ 0 -1073741823) -> 0) ((971 . 5625) (/ 1 -1073741827) -> -1/1073741827) ((972 . 5625) (/ 1 -1073741826) -> -1/1073741826) ((973 . 5625) (/ 1 -1073741825) -> -1/1073741825) ((974 . 5625) (/ 1 -1073741824) -> -1/1073741824) ((975 . 5625) (/ 1 -1073741823) -> -1/1073741823) ((976 . 5625) (/ -3 1103515243) -> -3/1103515243) ((977 . 5625) (/ -3 1103515244) -> -3/1103515244) ((978 . 5625) (/ -3 1103515245) -> -1/367838415) ((979 . 5625) (/ -3 1103515246) -> -3/1103515246) ((980 . 5625) (/ -3 1103515247) -> -3/1103515247) ((981 . 5625) (/ -2 1103515243) -> -2/1103515243) ((982 . 5625) (/ -2 1103515244) -> -1/551757622) ((983 . 5625) (/ -2 1103515245) -> -2/1103515245) ((984 . 5625) (/ -2 1103515246) -> -1/551757623) ((985 . 5625) (/ -2 1103515247) -> -2/1103515247) ((986 . 5625) (/ -1 1103515243) -> -1/1103515243) ((987 . 5625) (/ -1 1103515244) -> -1/1103515244) ((988 . 5625) (/ -1 1103515245) -> -1/1103515245) ((989 . 5625) (/ -1 1103515246) -> -1/1103515246) ((990 . 5625) (/ -1 1103515247) -> -1/1103515247) ((991 . 5625) (/ 0 1103515243) -> 0) ((992 . 5625) (/ 0 1103515244) -> 0) ((993 . 5625) (/ 0 1103515245) -> 0) ((994 . 5625) (/ 0 1103515246) -> 0) ((995 . 5625) (/ 0 1103515247) -> 0) ((996 . 5625) (/ 1 1103515243) -> 1/1103515243) ((997 . 5625) (/ 1 1103515244) -> 1/1103515244) ((998 . 5625) (/ 1 1103515245) -> 1/1103515245) ((999 . 5625) (/ 1 1103515246) -> 1/1103515246) ((1000 . 5625) (/ 1 1103515247) -> 1/1103515247) ((1001 . 5625) (/ -3 631629063) -> -1/210543021) ((1002 . 5625) (/ -3 631629064) -> -3/631629064) ((1003 . 5625) (/ -3 631629065) -> -3/631629065) ((1004 . 5625) (/ -3 631629066) -> -1/210543022) ((1005 . 5625) (/ -3 631629067) -> -3/631629067) ((1006 . 5625) (/ -2 631629063) -> -2/631629063) ((1007 . 5625) (/ -2 631629064) -> -1/315814532) ((1008 . 5625) (/ -2 631629065) -> -2/631629065) ((1009 . 5625) (/ -2 631629066) -> -1/315814533) ((1010 . 5625) (/ -2 631629067) -> -2/631629067) ((1011 . 5625) (/ -1 631629063) -> -1/631629063) ((1012 . 5625) (/ -1 631629064) -> -1/631629064) ((1013 . 5625) (/ -1 631629065) -> -1/631629065) ((1014 . 5625) (/ -1 631629066) -> -1/631629066) ((1015 . 5625) (/ -1 631629067) -> -1/631629067) ((1016 . 5625) (/ 0 631629063) -> 0) ((1017 . 5625) (/ 0 631629064) -> 0) ((1018 . 5625) (/ 0 631629065) -> 0) ((1019 . 5625) (/ 0 631629066) -> 0) ((1020 . 5625) (/ 0 631629067) -> 0) ((1021 . 5625) (/ 1 631629063) -> 1/631629063) ((1022 . 5625) (/ 1 631629064) -> 1/631629064) ((1023 . 5625) (/ 1 631629065) -> 1/631629065) ((1024 . 5625) (/ 1 631629066) -> 1/631629066) ((1025 . 5625) (/ 1 631629067) -> 1/631629067) ((1026 . 5625) (/ -3 9007199254740990) -> -1/3002399751580330) ((1027 . 5625) (/ -3 9007199254740991) -> -3/9007199254740991) ((1028 . 5625) (/ -3 9007199254740992) -> -3/9007199254740992) ((1029 . 5625) (/ -3 9007199254740993) -> -1/3002399751580331) ((1030 . 5625) (/ -3 9007199254740994) -> -3/9007199254740994) ((1031 . 5625) (/ -2 9007199254740990) -> -1/4503599627370495) ((1032 . 5625) (/ -2 9007199254740991) -> -2/9007199254740991) ((1033 . 5625) (/ -2 9007199254740992) -> -1/4503599627370496) ((1034 . 5625) (/ -2 9007199254740993) -> -2/9007199254740993) ((1035 . 5625) (/ -2 9007199254740994) -> -1/4503599627370497) ((1036 . 5625) (/ -1 9007199254740990) -> -1/9007199254740990) ((1037 . 5625) (/ -1 9007199254740991) -> -1/9007199254740991) ((1038 . 5625) (/ -1 9007199254740992) -> -1/9007199254740992) ((1039 . 5625) (/ -1 9007199254740993) -> -1/9007199254740993) ((1040 . 5625) (/ -1 9007199254740994) -> -1/9007199254740994) ((1041 . 5625) (/ 0 9007199254740990) -> 0) ((1042 . 5625) (/ 0 9007199254740991) -> 0) ((1043 . 5625) (/ 0 9007199254740992) -> 0) ((1044 . 5625) (/ 0 9007199254740993) -> 0) ((1045 . 5625) (/ 0 9007199254740994) -> 0) ((1046 . 5625) (/ 1 9007199254740990) -> 1/9007199254740990) ((1047 . 5625) (/ 1 9007199254740991) -> 1/9007199254740991) ((1048 . 5625) (/ 1 9007199254740992) -> 1/9007199254740992) ((1049 . 5625) (/ 1 9007199254740993) -> 1/9007199254740993) ((1050 . 5625) (/ 1 9007199254740994) -> 1/9007199254740994) ((1051 . 5625) (/ -3 -9007199254740994) -> 3/9007199254740994) ((1052 . 5625) (/ -3 -9007199254740993) -> 1/3002399751580331) ((1053 . 5625) (/ -3 -9007199254740992) -> 3/9007199254740992) ((1054 . 5625) (/ -3 -9007199254740991) -> 3/9007199254740991) ((1055 . 5625) (/ -3 -9007199254740990) -> 1/3002399751580330) ((1056 . 5625) (/ -2 -9007199254740994) -> 1/4503599627370497) ((1057 . 5625) (/ -2 -9007199254740993) -> 2/9007199254740993) ((1058 . 5625) (/ -2 -9007199254740992) -> 1/4503599627370496) ((1059 . 5625) (/ -2 -9007199254740991) -> 2/9007199254740991) ((1060 . 5625) (/ -2 -9007199254740990) -> 1/4503599627370495) ((1061 . 5625) (/ -1 -9007199254740994) -> 1/9007199254740994) ((1062 . 5625) (/ -1 -9007199254740993) -> 1/9007199254740993) ((1063 . 5625) (/ -1 -9007199254740992) -> 1/9007199254740992) ((1064 . 5625) (/ -1 -9007199254740991) -> 1/9007199254740991) ((1065 . 5625) (/ -1 -9007199254740990) -> 1/9007199254740990) ((1066 . 5625) (/ 0 -9007199254740994) -> 0) ((1067 . 5625) (/ 0 -9007199254740993) -> 0) ((1068 . 5625) (/ 0 -9007199254740992) -> 0) ((1069 . 5625) (/ 0 -9007199254740991) -> 0) ((1070 . 5625) (/ 0 -9007199254740990) -> 0) ((1071 . 5625) (/ 1 -9007199254740994) -> -1/9007199254740994) ((1072 . 5625) (/ 1 -9007199254740993) -> -1/9007199254740993) ((1073 . 5625) (/ 1 -9007199254740992) -> -1/9007199254740992) ((1074 . 5625) (/ 1 -9007199254740991) -> -1/9007199254740991) ((1075 . 5625) (/ 1 -9007199254740990) -> -1/9007199254740990) ((1076 . 5625) (/ -3 12343) -> -3/12343) ((1077 . 5625) (/ -3 12344) -> -3/12344) ((1078 . 5625) (/ -3 12345) -> -1/4115) ((1079 . 5625) (/ -3 12346) -> -3/12346) ((1080 . 5625) (/ -3 12347) -> -3/12347) ((1081 . 5625) (/ -2 12343) -> -2/12343) ((1082 . 5625) (/ -2 12344) -> -1/6172) ((1083 . 5625) (/ -2 12345) -> -2/12345) ((1084 . 5625) (/ -2 12346) -> -1/6173) ((1085 . 5625) (/ -2 12347) -> -2/12347) ((1086 . 5625) (/ -1 12343) -> -1/12343) ((1087 . 5625) (/ -1 12344) -> -1/12344) ((1088 . 5625) (/ -1 12345) -> -1/12345) ((1089 . 5625) (/ -1 12346) -> -1/12346) ((1090 . 5625) (/ -1 12347) -> -1/12347) ((1091 . 5625) (/ 0 12343) -> 0) ((1092 . 5625) (/ 0 12344) -> 0) ((1093 . 5625) (/ 0 12345) -> 0) ((1094 . 5625) (/ 0 12346) -> 0) ((1095 . 5625) (/ 0 12347) -> 0) ((1096 . 5625) (/ 1 12343) -> 1/12343) ((1097 . 5625) (/ 1 12344) -> 1/12344) ((1098 . 5625) (/ 1 12345) -> 1/12345) ((1099 . 5625) (/ 1 12346) -> 1/12346) ((1100 . 5625) (/ 1 12347) -> 1/12347) ((1101 . 5625) (/ -3 4294967294) -> -3/4294967294) ((1102 . 5625) (/ -3 4294967295) -> -1/1431655765) ((1103 . 5625) (/ -3 4294967296) -> -3/4294967296) ((1104 . 5625) (/ -3 4294967297) -> -3/4294967297) ((1105 . 5625) (/ -3 4294967298) -> -1/1431655766) ((1106 . 5625) (/ -2 4294967294) -> -1/2147483647) ((1107 . 5625) (/ -2 4294967295) -> -2/4294967295) ((1108 . 5625) (/ -2 4294967296) -> -1/2147483648) ((1109 . 5625) (/ -2 4294967297) -> -2/4294967297) ((1110 . 5625) (/ -2 4294967298) -> -1/2147483649) ((1111 . 5625) (/ -1 4294967294) -> -1/4294967294) ((1112 . 5625) (/ -1 4294967295) -> -1/4294967295) ((1113 . 5625) (/ -1 4294967296) -> -1/4294967296) ((1114 . 5625) (/ -1 4294967297) -> -1/4294967297) ((1115 . 5625) (/ -1 4294967298) -> -1/4294967298) ((1116 . 5625) (/ 0 4294967294) -> 0) ((1117 . 5625) (/ 0 4294967295) -> 0) ((1118 . 5625) (/ 0 4294967296) -> 0) ((1119 . 5625) (/ 0 4294967297) -> 0) ((1120 . 5625) (/ 0 4294967298) -> 0) ((1121 . 5625) (/ 1 4294967294) -> 1/4294967294) ((1122 . 5625) (/ 1 4294967295) -> 1/4294967295) ((1123 . 5625) (/ 1 4294967296) -> 1/4294967296) ((1124 . 5625) (/ 1 4294967297) -> 1/4294967297) ((1125 . 5625) (/ 1 4294967298) -> 1/4294967298) ((1126 . 5625) (/ 0 -2) -> 0) ((1127 . 5625) (/ 0 -1) -> 0) ((1128 . 5625) (/ 0 0) -> "division by zero") ((1129 . 5625) (/ 0 1) -> 0) ((1130 . 5625) (/ 0 2) -> 0) ((1131 . 5625) (/ 1 -2) -> -1/2) ((1132 . 5625) (/ 1 -1) -> -1) ((1133 . 5625) (/ 1 0) -> "division by zero") ((1134 . 5625) (/ 1 1) -> 1) ((1135 . 5625) (/ 1 2) -> 1/2) ((1136 . 5625) (/ 2 -2) -> -1) ((1137 . 5625) (/ 2 -1) -> -2) ((1138 . 5625) (/ 2 0) -> "division by zero") ((1139 . 5625) (/ 2 1) -> 2) ((1140 . 5625) (/ 2 2) -> 1) ((1141 . 5625) (/ 3 -2) -> -3/2) ((1142 . 5625) (/ 3 -1) -> -3) ((1143 . 5625) (/ 3 0) -> "division by zero") ((1144 . 5625) (/ 3 1) -> 3) ((1145 . 5625) (/ 3 2) -> 3/2) ((1146 . 5625) (/ 4 -2) -> -2) ((1147 . 5625) (/ 4 -1) -> -4) ((1148 . 5625) (/ 4 0) -> "division by zero") ((1149 . 5625) (/ 4 1) -> 4) ((1150 . 5625) (/ 4 2) -> 2) ((1151 . 5625) (/ 0 -1) -> 0) ((1152 . 5625) (/ 0 0) -> "division by zero") ((1153 . 5625) (/ 0 1) -> 0) ((1154 . 5625) (/ 0 2) -> 0) ((1155 . 5625) (/ 0 3) -> 0) ((1156 . 5625) (/ 1 -1) -> -1) ((1157 . 5625) (/ 1 0) -> "division by zero") ((1158 . 5625) (/ 1 1) -> 1) ((1159 . 5625) (/ 1 2) -> 1/2) ((1160 . 5625) (/ 1 3) -> 1/3) ((1161 . 5625) (/ 2 -1) -> -2) ((1162 . 5625) (/ 2 0) -> "division by zero") ((1163 . 5625) (/ 2 1) -> 2) ((1164 . 5625) (/ 2 2) -> 1) ((1165 . 5625) (/ 2 3) -> 2/3) ((1166 . 5625) (/ 3 -1) -> -3) ((1167 . 5625) (/ 3 0) -> "division by zero") ((1168 . 5625) (/ 3 1) -> 3) ((1169 . 5625) (/ 3 2) -> 3/2) ((1170 . 5625) (/ 3 3) -> 1) ((1171 . 5625) (/ 4 -1) -> -4) ((1172 . 5625) (/ 4 0) -> "division by zero") ((1173 . 5625) (/ 4 1) -> 4) ((1174 . 5625) (/ 4 2) -> 2) ((1175 . 5625) (/ 4 3) -> 4/3) ((1176 . 5625) (/ 0 -3) -> 0) ((1177 . 5625) (/ 0 -2) -> 0) ((1178 . 5625) (/ 0 -1) -> 0) ((1179 . 5625) (/ 0 0) -> "division by zero") ((1180 . 5625) (/ 0 1) -> 0) ((1181 . 5625) (/ 1 -3) -> -1/3) ((1182 . 5625) (/ 1 -2) -> -1/2) ((1183 . 5625) (/ 1 -1) -> -1) ((1184 . 5625) (/ 1 0) -> "division by zero") ((1185 . 5625) (/ 1 1) -> 1) ((1186 . 5625) (/ 2 -3) -> -2/3) ((1187 . 5625) (/ 2 -2) -> -1) ((1188 . 5625) (/ 2 -1) -> -2) ((1189 . 5625) (/ 2 0) -> "division by zero") ((1190 . 5625) (/ 2 1) -> 2) ((1191 . 5625) (/ 3 -3) -> -1) ((1192 . 5625) (/ 3 -2) -> -3/2) ((1193 . 5625) (/ 3 -1) -> -3) ((1194 . 5625) (/ 3 0) -> "division by zero") ((1195 . 5625) (/ 3 1) -> 3) ((1196 . 5625) (/ 4 -3) -> -4/3) ((1197 . 5625) (/ 4 -2) -> -2) ((1198 . 5625) (/ 4 -1) -> -4) ((1199 . 5625) (/ 4 0) -> "division by zero") ((1200 . 5625) (/ 4 1) -> 4) ((1201 . 5625) (/ 0 0) -> "division by zero") ((1202 . 5625) (/ 0 1) -> 0) ((1203 . 5625) (/ 0 2) -> 0) ((1204 . 5625) (/ 0 3) -> 0) ((1205 . 5625) (/ 0 4) -> 0) ((1206 . 5625) (/ 1 0) -> "division by zero") ((1207 . 5625) (/ 1 1) -> 1) ((1208 . 5625) (/ 1 2) -> 1/2) ((1209 . 5625) (/ 1 3) -> 1/3) ((1210 . 5625) (/ 1 4) -> 1/4) ((1211 . 5625) (/ 2 0) -> "division by zero") ((1212 . 5625) (/ 2 1) -> 2) ((1213 . 5625) (/ 2 2) -> 1) ((1214 . 5625) (/ 2 3) -> 2/3) ((1215 . 5625) (/ 2 4) -> 1/2) ((1216 . 5625) (/ 3 0) -> "division by zero") ((1217 . 5625) (/ 3 1) -> 3) ((1218 . 5625) (/ 3 2) -> 3/2) ((1219 . 5625) (/ 3 3) -> 1) ((1220 . 5625) (/ 3 4) -> 3/4) ((1221 . 5625) (/ 4 0) -> "division by zero") ((1222 . 5625) (/ 4 1) -> 4) ((1223 . 5625) (/ 4 2) -> 2) ((1224 . 5625) (/ 4 3) -> 4/3) ((1225 . 5625) (/ 4 4) -> 1) ((1226 . 5625) (/ 0 -4) -> 0) ((1227 . 5625) (/ 0 -3) -> 0) ((1228 . 5625) (/ 0 -2) -> 0) ((1229 . 5625) (/ 0 -1) -> 0) ((1230 . 5625) (/ 0 0) -> "division by zero") ((1231 . 5625) (/ 1 -4) -> -1/4) ((1232 . 5625) (/ 1 -3) -> -1/3) ((1233 . 5625) (/ 1 -2) -> -1/2) ((1234 . 5625) (/ 1 -1) -> -1) ((1235 . 5625) (/ 1 0) -> "division by zero") ((1236 . 5625) (/ 2 -4) -> -1/2) ((1237 . 5625) (/ 2 -3) -> -2/3) ((1238 . 5625) (/ 2 -2) -> -1) ((1239 . 5625) (/ 2 -1) -> -2) ((1240 . 5625) (/ 2 0) -> "division by zero") ((1241 . 5625) (/ 3 -4) -> -3/4) ((1242 . 5625) (/ 3 -3) -> -1) ((1243 . 5625) (/ 3 -2) -> -3/2) ((1244 . 5625) (/ 3 -1) -> -3) ((1245 . 5625) (/ 3 0) -> "division by zero") ((1246 . 5625) (/ 4 -4) -> -1) ((1247 . 5625) (/ 4 -3) -> -4/3) ((1248 . 5625) (/ 4 -2) -> -2) ((1249 . 5625) (/ 4 -1) -> -4) ((1250 . 5625) (/ 4 0) -> "division by zero") ((1251 . 5625) (/ 0 1073741821) -> 0) ((1252 . 5625) (/ 0 1073741822) -> 0) ((1253 . 5625) (/ 0 1073741823) -> 0) ((1254 . 5625) (/ 0 1073741824) -> 0) ((1255 . 5625) (/ 0 1073741825) -> 0) ((1256 . 5625) (/ 1 1073741821) -> 1/1073741821) ((1257 . 5625) (/ 1 1073741822) -> 1/1073741822) ((1258 . 5625) (/ 1 1073741823) -> 1/1073741823) ((1259 . 5625) (/ 1 1073741824) -> 1/1073741824) ((1260 . 5625) (/ 1 1073741825) -> 1/1073741825) ((1261 . 5625) (/ 2 1073741821) -> 2/1073741821) ((1262 . 5625) (/ 2 1073741822) -> 1/536870911) ((1263 . 5625) (/ 2 1073741823) -> 2/1073741823) ((1264 . 5625) (/ 2 1073741824) -> 1/536870912) ((1265 . 5625) (/ 2 1073741825) -> 2/1073741825) ((1266 . 5625) (/ 3 1073741821) -> 3/1073741821) ((1267 . 5625) (/ 3 1073741822) -> 3/1073741822) ((1268 . 5625) (/ 3 1073741823) -> 1/357913941) ((1269 . 5625) (/ 3 1073741824) -> 3/1073741824) ((1270 . 5625) (/ 3 1073741825) -> 3/1073741825) ((1271 . 5625) (/ 4 1073741821) -> 4/1073741821) ((1272 . 5625) (/ 4 1073741822) -> 2/536870911) ((1273 . 5625) (/ 4 1073741823) -> 4/1073741823) ((1274 . 5625) (/ 4 1073741824) -> 1/268435456) ((1275 . 5625) (/ 4 1073741825) -> 4/1073741825) ((1276 . 5625) (/ 0 -1073741826) -> 0) ((1277 . 5625) (/ 0 -1073741825) -> 0) ((1278 . 5625) (/ 0 -1073741824) -> 0) ((1279 . 5625) (/ 0 -1073741823) -> 0) ((1280 . 5625) (/ 0 -1073741822) -> 0) ((1281 . 5625) (/ 1 -1073741826) -> -1/1073741826) ((1282 . 5625) (/ 1 -1073741825) -> -1/1073741825) ((1283 . 5625) (/ 1 -1073741824) -> -1/1073741824) ((1284 . 5625) (/ 1 -1073741823) -> -1/1073741823) ((1285 . 5625) (/ 1 -1073741822) -> -1/1073741822) ((1286 . 5625) (/ 2 -1073741826) -> -1/536870913) ((1287 . 5625) (/ 2 -1073741825) -> -2/1073741825) ((1288 . 5625) (/ 2 -1073741824) -> -1/536870912) ((1289 . 5625) (/ 2 -1073741823) -> -2/1073741823) ((1290 . 5625) (/ 2 -1073741822) -> -1/536870911) ((1291 . 5625) (/ 3 -1073741826) -> -1/357913942) ((1292 . 5625) (/ 3 -1073741825) -> -3/1073741825) ((1293 . 5625) (/ 3 -1073741824) -> -3/1073741824) ((1294 . 5625) (/ 3 -1073741823) -> -1/357913941) ((1295 . 5625) (/ 3 -1073741822) -> -3/1073741822) ((1296 . 5625) (/ 4 -1073741826) -> -2/536870913) ((1297 . 5625) (/ 4 -1073741825) -> -4/1073741825) ((1298 . 5625) (/ 4 -1073741824) -> -1/268435456) ((1299 . 5625) (/ 4 -1073741823) -> -4/1073741823) ((1300 . 5625) (/ 4 -1073741822) -> -2/536870911) ((1301 . 5625) (/ 0 1073741822) -> 0) ((1302 . 5625) (/ 0 1073741823) -> 0) ((1303 . 5625) (/ 0 1073741824) -> 0) ((1304 . 5625) (/ 0 1073741825) -> 0) ((1305 . 5625) (/ 0 1073741826) -> 0) ((1306 . 5625) (/ 1 1073741822) -> 1/1073741822) ((1307 . 5625) (/ 1 1073741823) -> 1/1073741823) ((1308 . 5625) (/ 1 1073741824) -> 1/1073741824) ((1309 . 5625) (/ 1 1073741825) -> 1/1073741825) ((1310 . 5625) (/ 1 1073741826) -> 1/1073741826) ((1311 . 5625) (/ 2 1073741822) -> 1/536870911) ((1312 . 5625) (/ 2 1073741823) -> 2/1073741823) ((1313 . 5625) (/ 2 1073741824) -> 1/536870912) ((1314 . 5625) (/ 2 1073741825) -> 2/1073741825) ((1315 . 5625) (/ 2 1073741826) -> 1/536870913) ((1316 . 5625) (/ 3 1073741822) -> 3/1073741822) ((1317 . 5625) (/ 3 1073741823) -> 1/357913941) ((1318 . 5625) (/ 3 1073741824) -> 3/1073741824) ((1319 . 5625) (/ 3 1073741825) -> 3/1073741825) ((1320 . 5625) (/ 3 1073741826) -> 1/357913942) ((1321 . 5625) (/ 4 1073741822) -> 2/536870911) ((1322 . 5625) (/ 4 1073741823) -> 4/1073741823) ((1323 . 5625) (/ 4 1073741824) -> 1/268435456) ((1324 . 5625) (/ 4 1073741825) -> 4/1073741825) ((1325 . 5625) (/ 4 1073741826) -> 2/536870913) ((1326 . 5625) (/ 0 -1073741827) -> 0) ((1327 . 5625) (/ 0 -1073741826) -> 0) ((1328 . 5625) (/ 0 -1073741825) -> 0) ((1329 . 5625) (/ 0 -1073741824) -> 0) ((1330 . 5625) (/ 0 -1073741823) -> 0) ((1331 . 5625) (/ 1 -1073741827) -> -1/1073741827) ((1332 . 5625) (/ 1 -1073741826) -> -1/1073741826) ((1333 . 5625) (/ 1 -1073741825) -> -1/1073741825) ((1334 . 5625) (/ 1 -1073741824) -> -1/1073741824) ((1335 . 5625) (/ 1 -1073741823) -> -1/1073741823) ((1336 . 5625) (/ 2 -1073741827) -> -2/1073741827) ((1337 . 5625) (/ 2 -1073741826) -> -1/536870913) ((1338 . 5625) (/ 2 -1073741825) -> -2/1073741825) ((1339 . 5625) (/ 2 -1073741824) -> -1/536870912) ((1340 . 5625) (/ 2 -1073741823) -> -2/1073741823) ((1341 . 5625) (/ 3 -1073741827) -> -3/1073741827) ((1342 . 5625) (/ 3 -1073741826) -> -1/357913942) ((1343 . 5625) (/ 3 -1073741825) -> -3/1073741825) ((1344 . 5625) (/ 3 -1073741824) -> -3/1073741824) ((1345 . 5625) (/ 3 -1073741823) -> -1/357913941) ((1346 . 5625) (/ 4 -1073741827) -> -4/1073741827) ((1347 . 5625) (/ 4 -1073741826) -> -2/536870913) ((1348 . 5625) (/ 4 -1073741825) -> -4/1073741825) ((1349 . 5625) (/ 4 -1073741824) -> -1/268435456) ((1350 . 5625) (/ 4 -1073741823) -> -4/1073741823) ((1351 . 5625) (/ 0 1103515243) -> 0) ((1352 . 5625) (/ 0 1103515244) -> 0) ((1353 . 5625) (/ 0 1103515245) -> 0) ((1354 . 5625) (/ 0 1103515246) -> 0) ((1355 . 5625) (/ 0 1103515247) -> 0) ((1356 . 5625) (/ 1 1103515243) -> 1/1103515243) ((1357 . 5625) (/ 1 1103515244) -> 1/1103515244) ((1358 . 5625) (/ 1 1103515245) -> 1/1103515245) ((1359 . 5625) (/ 1 1103515246) -> 1/1103515246) ((1360 . 5625) (/ 1 1103515247) -> 1/1103515247) ((1361 . 5625) (/ 2 1103515243) -> 2/1103515243) ((1362 . 5625) (/ 2 1103515244) -> 1/551757622) ((1363 . 5625) (/ 2 1103515245) -> 2/1103515245) ((1364 . 5625) (/ 2 1103515246) -> 1/551757623) ((1365 . 5625) (/ 2 1103515247) -> 2/1103515247) ((1366 . 5625) (/ 3 1103515243) -> 3/1103515243) ((1367 . 5625) (/ 3 1103515244) -> 3/1103515244) ((1368 . 5625) (/ 3 1103515245) -> 1/367838415) ((1369 . 5625) (/ 3 1103515246) -> 3/1103515246) ((1370 . 5625) (/ 3 1103515247) -> 3/1103515247) ((1371 . 5625) (/ 4 1103515243) -> 4/1103515243) ((1372 . 5625) (/ 4 1103515244) -> 1/275878811) ((1373 . 5625) (/ 4 1103515245) -> 4/1103515245) ((1374 . 5625) (/ 4 1103515246) -> 2/551757623) ((1375 . 5625) (/ 4 1103515247) -> 4/1103515247) ((1376 . 5625) (/ 0 631629063) -> 0) ((1377 . 5625) (/ 0 631629064) -> 0) ((1378 . 5625) (/ 0 631629065) -> 0) ((1379 . 5625) (/ 0 631629066) -> 0) ((1380 . 5625) (/ 0 631629067) -> 0) ((1381 . 5625) (/ 1 631629063) -> 1/631629063) ((1382 . 5625) (/ 1 631629064) -> 1/631629064) ((1383 . 5625) (/ 1 631629065) -> 1/631629065) ((1384 . 5625) (/ 1 631629066) -> 1/631629066) ((1385 . 5625) (/ 1 631629067) -> 1/631629067) ((1386 . 5625) (/ 2 631629063) -> 2/631629063) ((1387 . 5625) (/ 2 631629064) -> 1/315814532) ((1388 . 5625) (/ 2 631629065) -> 2/631629065) ((1389 . 5625) (/ 2 631629066) -> 1/315814533) ((1390 . 5625) (/ 2 631629067) -> 2/631629067) ((1391 . 5625) (/ 3 631629063) -> 1/210543021) ((1392 . 5625) (/ 3 631629064) -> 3/631629064) ((1393 . 5625) (/ 3 631629065) -> 3/631629065) ((1394 . 5625) (/ 3 631629066) -> 1/210543022) ((1395 . 5625) (/ 3 631629067) -> 3/631629067) ((1396 . 5625) (/ 4 631629063) -> 4/631629063) ((1397 . 5625) (/ 4 631629064) -> 1/157907266) ((1398 . 5625) (/ 4 631629065) -> 4/631629065) ((1399 . 5625) (/ 4 631629066) -> 2/315814533) ((1400 . 5625) (/ 4 631629067) -> 4/631629067) ((1401 . 5625) (/ 0 9007199254740990) -> 0) ((1402 . 5625) (/ 0 9007199254740991) -> 0) ((1403 . 5625) (/ 0 9007199254740992) -> 0) ((1404 . 5625) (/ 0 9007199254740993) -> 0) ((1405 . 5625) (/ 0 9007199254740994) -> 0) ((1406 . 5625) (/ 1 9007199254740990) -> 1/9007199254740990) ((1407 . 5625) (/ 1 9007199254740991) -> 1/9007199254740991) ((1408 . 5625) (/ 1 9007199254740992) -> 1/9007199254740992) ((1409 . 5625) (/ 1 9007199254740993) -> 1/9007199254740993) ((1410 . 5625) (/ 1 9007199254740994) -> 1/9007199254740994) ((1411 . 5625) (/ 2 9007199254740990) -> 1/4503599627370495) ((1412 . 5625) (/ 2 9007199254740991) -> 2/9007199254740991) ((1413 . 5625) (/ 2 9007199254740992) -> 1/4503599627370496) ((1414 . 5625) (/ 2 9007199254740993) -> 2/9007199254740993) ((1415 . 5625) (/ 2 9007199254740994) -> 1/4503599627370497) ((1416 . 5625) (/ 3 9007199254740990) -> 1/3002399751580330) ((1417 . 5625) (/ 3 9007199254740991) -> 3/9007199254740991) ((1418 . 5625) (/ 3 9007199254740992) -> 3/9007199254740992) ((1419 . 5625) (/ 3 9007199254740993) -> 1/3002399751580331) ((1420 . 5625) (/ 3 9007199254740994) -> 3/9007199254740994) ((1421 . 5625) (/ 4 9007199254740990) -> 2/4503599627370495) ((1422 . 5625) (/ 4 9007199254740991) -> 4/9007199254740991) ((1423 . 5625) (/ 4 9007199254740992) -> 1/2251799813685248) ((1424 . 5625) (/ 4 9007199254740993) -> 4/9007199254740993) ((1425 . 5625) (/ 4 9007199254740994) -> 2/4503599627370497) ((1426 . 5625) (/ 0 -9007199254740994) -> 0) ((1427 . 5625) (/ 0 -9007199254740993) -> 0) ((1428 . 5625) (/ 0 -9007199254740992) -> 0) ((1429 . 5625) (/ 0 -9007199254740991) -> 0) ((1430 . 5625) (/ 0 -9007199254740990) -> 0) ((1431 . 5625) (/ 1 -9007199254740994) -> -1/9007199254740994) ((1432 . 5625) (/ 1 -9007199254740993) -> -1/9007199254740993) ((1433 . 5625) (/ 1 -9007199254740992) -> -1/9007199254740992) ((1434 . 5625) (/ 1 -9007199254740991) -> -1/9007199254740991) ((1435 . 5625) (/ 1 -9007199254740990) -> -1/9007199254740990) ((1436 . 5625) (/ 2 -9007199254740994) -> -1/4503599627370497) ((1437 . 5625) (/ 2 -9007199254740993) -> -2/9007199254740993) ((1438 . 5625) (/ 2 -9007199254740992) -> -1/4503599627370496) ((1439 . 5625) (/ 2 -9007199254740991) -> -2/9007199254740991) ((1440 . 5625) (/ 2 -9007199254740990) -> -1/4503599627370495) ((1441 . 5625) (/ 3 -9007199254740994) -> -3/9007199254740994) ((1442 . 5625) (/ 3 -9007199254740993) -> -1/3002399751580331) ((1443 . 5625) (/ 3 -9007199254740992) -> -3/9007199254740992) ((1444 . 5625) (/ 3 -9007199254740991) -> -3/9007199254740991) ((1445 . 5625) (/ 3 -9007199254740990) -> -1/3002399751580330) ((1446 . 5625) (/ 4 -9007199254740994) -> -2/4503599627370497) ((1447 . 5625) (/ 4 -9007199254740993) -> -4/9007199254740993) ((1448 . 5625) (/ 4 -9007199254740992) -> -1/2251799813685248) ((1449 . 5625) (/ 4 -9007199254740991) -> -4/9007199254740991) ((1450 . 5625) (/ 4 -9007199254740990) -> -2/4503599627370495) ((1451 . 5625) (/ 0 12343) -> 0) ((1452 . 5625) (/ 0 12344) -> 0) ((1453 . 5625) (/ 0 12345) -> 0) ((1454 . 5625) (/ 0 12346) -> 0) ((1455 . 5625) (/ 0 12347) -> 0) ((1456 . 5625) (/ 1 12343) -> 1/12343) ((1457 . 5625) (/ 1 12344) -> 1/12344) ((1458 . 5625) (/ 1 12345) -> 1/12345) ((1459 . 5625) (/ 1 12346) -> 1/12346) ((1460 . 5625) (/ 1 12347) -> 1/12347) ((1461 . 5625) (/ 2 12343) -> 2/12343) ((1462 . 5625) (/ 2 12344) -> 1/6172) ((1463 . 5625) (/ 2 12345) -> 2/12345) ((1464 . 5625) (/ 2 12346) -> 1/6173) ((1465 . 5625) (/ 2 12347) -> 2/12347) ((1466 . 5625) (/ 3 12343) -> 3/12343) ((1467 . 5625) (/ 3 12344) -> 3/12344) ((1468 . 5625) (/ 3 12345) -> 1/4115) ((1469 . 5625) (/ 3 12346) -> 3/12346) ((1470 . 5625) (/ 3 12347) -> 3/12347) ((1471 . 5625) (/ 4 12343) -> 4/12343) ((1472 . 5625) (/ 4 12344) -> 1/3086) ((1473 . 5625) (/ 4 12345) -> 4/12345) ((1474 . 5625) (/ 4 12346) -> 2/6173) ((1475 . 5625) (/ 4 12347) -> 4/12347) ((1476 . 5625) (/ 0 4294967294) -> 0) ((1477 . 5625) (/ 0 4294967295) -> 0) ((1478 . 5625) (/ 0 4294967296) -> 0) ((1479 . 5625) (/ 0 4294967297) -> 0) ((1480 . 5625) (/ 0 4294967298) -> 0) ((1481 . 5625) (/ 1 4294967294) -> 1/4294967294) ((1482 . 5625) (/ 1 4294967295) -> 1/4294967295) ((1483 . 5625) (/ 1 4294967296) -> 1/4294967296) ((1484 . 5625) (/ 1 4294967297) -> 1/4294967297) ((1485 . 5625) (/ 1 4294967298) -> 1/4294967298) ((1486 . 5625) (/ 2 4294967294) -> 1/2147483647) ((1487 . 5625) (/ 2 4294967295) -> 2/4294967295) ((1488 . 5625) (/ 2 4294967296) -> 1/2147483648) ((1489 . 5625) (/ 2 4294967297) -> 2/4294967297) ((1490 . 5625) (/ 2 4294967298) -> 1/2147483649) ((1491 . 5625) (/ 3 4294967294) -> 3/4294967294) ((1492 . 5625) (/ 3 4294967295) -> 1/1431655765) ((1493 . 5625) (/ 3 4294967296) -> 3/4294967296) ((1494 . 5625) (/ 3 4294967297) -> 3/4294967297) ((1495 . 5625) (/ 3 4294967298) -> 1/1431655766) ((1496 . 5625) (/ 4 4294967294) -> 2/2147483647) ((1497 . 5625) (/ 4 4294967295) -> 4/4294967295) ((1498 . 5625) (/ 4 4294967296) -> 1/1073741824) ((1499 . 5625) (/ 4 4294967297) -> 4/4294967297) ((1500 . 5625) (/ 4 4294967298) -> 2/2147483649) ((1501 . 5625) (/ -4 -2) -> 2) ((1502 . 5625) (/ -4 -1) -> 4) ((1503 . 5625) (/ -4 0) -> "division by zero") ((1504 . 5625) (/ -4 1) -> -4) ((1505 . 5625) (/ -4 2) -> -2) ((1506 . 5625) (/ -3 -2) -> 3/2) ((1507 . 5625) (/ -3 -1) -> 3) ((1508 . 5625) (/ -3 0) -> "division by zero") ((1509 . 5625) (/ -3 1) -> -3) ((1510 . 5625) (/ -3 2) -> -3/2) ((1511 . 5625) (/ -2 -2) -> 1) ((1512 . 5625) (/ -2 -1) -> 2) ((1513 . 5625) (/ -2 0) -> "division by zero") ((1514 . 5625) (/ -2 1) -> -2) ((1515 . 5625) (/ -2 2) -> -1) ((1516 . 5625) (/ -1 -2) -> 1/2) ((1517 . 5625) (/ -1 -1) -> 1) ((1518 . 5625) (/ -1 0) -> "division by zero") ((1519 . 5625) (/ -1 1) -> -1) ((1520 . 5625) (/ -1 2) -> -1/2) ((1521 . 5625) (/ 0 -2) -> 0) ((1522 . 5625) (/ 0 -1) -> 0) ((1523 . 5625) (/ 0 0) -> "division by zero") ((1524 . 5625) (/ 0 1) -> 0) ((1525 . 5625) (/ 0 2) -> 0) ((1526 . 5625) (/ -4 -1) -> 4) ((1527 . 5625) (/ -4 0) -> "division by zero") ((1528 . 5625) (/ -4 1) -> -4) ((1529 . 5625) (/ -4 2) -> -2) ((1530 . 5625) (/ -4 3) -> -4/3) ((1531 . 5625) (/ -3 -1) -> 3) ((1532 . 5625) (/ -3 0) -> "division by zero") ((1533 . 5625) (/ -3 1) -> -3) ((1534 . 5625) (/ -3 2) -> -3/2) ((1535 . 5625) (/ -3 3) -> -1) ((1536 . 5625) (/ -2 -1) -> 2) ((1537 . 5625) (/ -2 0) -> "division by zero") ((1538 . 5625) (/ -2 1) -> -2) ((1539 . 5625) (/ -2 2) -> -1) ((1540 . 5625) (/ -2 3) -> -2/3) ((1541 . 5625) (/ -1 -1) -> 1) ((1542 . 5625) (/ -1 0) -> "division by zero") ((1543 . 5625) (/ -1 1) -> -1) ((1544 . 5625) (/ -1 2) -> -1/2) ((1545 . 5625) (/ -1 3) -> -1/3) ((1546 . 5625) (/ 0 -1) -> 0) ((1547 . 5625) (/ 0 0) -> "division by zero") ((1548 . 5625) (/ 0 1) -> 0) ((1549 . 5625) (/ 0 2) -> 0) ((1550 . 5625) (/ 0 3) -> 0) ((1551 . 5625) (/ -4 -3) -> 4/3) ((1552 . 5625) (/ -4 -2) -> 2) ((1553 . 5625) (/ -4 -1) -> 4) ((1554 . 5625) (/ -4 0) -> "division by zero") ((1555 . 5625) (/ -4 1) -> -4) ((1556 . 5625) (/ -3 -3) -> 1) ((1557 . 5625) (/ -3 -2) -> 3/2) ((1558 . 5625) (/ -3 -1) -> 3) ((1559 . 5625) (/ -3 0) -> "division by zero") ((1560 . 5625) (/ -3 1) -> -3) ((1561 . 5625) (/ -2 -3) -> 2/3) ((1562 . 5625) (/ -2 -2) -> 1) ((1563 . 5625) (/ -2 -1) -> 2) ((1564 . 5625) (/ -2 0) -> "division by zero") ((1565 . 5625) (/ -2 1) -> -2) ((1566 . 5625) (/ -1 -3) -> 1/3) ((1567 . 5625) (/ -1 -2) -> 1/2) ((1568 . 5625) (/ -1 -1) -> 1) ((1569 . 5625) (/ -1 0) -> "division by zero") ((1570 . 5625) (/ -1 1) -> -1) ((1571 . 5625) (/ 0 -3) -> 0) ((1572 . 5625) (/ 0 -2) -> 0) ((1573 . 5625) (/ 0 -1) -> 0) ((1574 . 5625) (/ 0 0) -> "division by zero") ((1575 . 5625) (/ 0 1) -> 0) ((1576 . 5625) (/ -4 0) -> "division by zero") ((1577 . 5625) (/ -4 1) -> -4) ((1578 . 5625) (/ -4 2) -> -2) ((1579 . 5625) (/ -4 3) -> -4/3) ((1580 . 5625) (/ -4 4) -> -1) ((1581 . 5625) (/ -3 0) -> "division by zero") ((1582 . 5625) (/ -3 1) -> -3) ((1583 . 5625) (/ -3 2) -> -3/2) ((1584 . 5625) (/ -3 3) -> -1) ((1585 . 5625) (/ -3 4) -> -3/4) ((1586 . 5625) (/ -2 0) -> "division by zero") ((1587 . 5625) (/ -2 1) -> -2) ((1588 . 5625) (/ -2 2) -> -1) ((1589 . 5625) (/ -2 3) -> -2/3) ((1590 . 5625) (/ -2 4) -> -1/2) ((1591 . 5625) (/ -1 0) -> "division by zero") ((1592 . 5625) (/ -1 1) -> -1) ((1593 . 5625) (/ -1 2) -> -1/2) ((1594 . 5625) (/ -1 3) -> -1/3) ((1595 . 5625) (/ -1 4) -> -1/4) ((1596 . 5625) (/ 0 0) -> "division by zero") ((1597 . 5625) (/ 0 1) -> 0) ((1598 . 5625) (/ 0 2) -> 0) ((1599 . 5625) (/ 0 3) -> 0) ((1600 . 5625) (/ 0 4) -> 0) ((1601 . 5625) (/ -4 -4) -> 1) ((1602 . 5625) (/ -4 -3) -> 4/3) ((1603 . 5625) (/ -4 -2) -> 2) ((1604 . 5625) (/ -4 -1) -> 4) ((1605 . 5625) (/ -4 0) -> "division by zero") ((1606 . 5625) (/ -3 -4) -> 3/4) ((1607 . 5625) (/ -3 -3) -> 1) ((1608 . 5625) (/ -3 -2) -> 3/2) ((1609 . 5625) (/ -3 -1) -> 3) ((1610 . 5625) (/ -3 0) -> "division by zero") ((1611 . 5625) (/ -2 -4) -> 1/2) ((1612 . 5625) (/ -2 -3) -> 2/3) ((1613 . 5625) (/ -2 -2) -> 1) ((1614 . 5625) (/ -2 -1) -> 2) ((1615 . 5625) (/ -2 0) -> "division by zero") ((1616 . 5625) (/ -1 -4) -> 1/4) ((1617 . 5625) (/ -1 -3) -> 1/3) ((1618 . 5625) (/ -1 -2) -> 1/2) ((1619 . 5625) (/ -1 -1) -> 1) ((1620 . 5625) (/ -1 0) -> "division by zero") ((1621 . 5625) (/ 0 -4) -> 0) ((1622 . 5625) (/ 0 -3) -> 0) ((1623 . 5625) (/ 0 -2) -> 0) ((1624 . 5625) (/ 0 -1) -> 0) ((1625 . 5625) (/ 0 0) -> "division by zero") ((1626 . 5625) (/ -4 1073741821) -> -4/1073741821) ((1627 . 5625) (/ -4 1073741822) -> -2/536870911) ((1628 . 5625) (/ -4 1073741823) -> -4/1073741823) ((1629 . 5625) (/ -4 1073741824) -> -1/268435456) ((1630 . 5625) (/ -4 1073741825) -> -4/1073741825) ((1631 . 5625) (/ -3 1073741821) -> -3/1073741821) ((1632 . 5625) (/ -3 1073741822) -> -3/1073741822) ((1633 . 5625) (/ -3 1073741823) -> -1/357913941) ((1634 . 5625) (/ -3 1073741824) -> -3/1073741824) ((1635 . 5625) (/ -3 1073741825) -> -3/1073741825) ((1636 . 5625) (/ -2 1073741821) -> -2/1073741821) ((1637 . 5625) (/ -2 1073741822) -> -1/536870911) ((1638 . 5625) (/ -2 1073741823) -> -2/1073741823) ((1639 . 5625) (/ -2 1073741824) -> -1/536870912) ((1640 . 5625) (/ -2 1073741825) -> -2/1073741825) ((1641 . 5625) (/ -1 1073741821) -> -1/1073741821) ((1642 . 5625) (/ -1 1073741822) -> -1/1073741822) ((1643 . 5625) (/ -1 1073741823) -> -1/1073741823) ((1644 . 5625) (/ -1 1073741824) -> -1/1073741824) ((1645 . 5625) (/ -1 1073741825) -> -1/1073741825) ((1646 . 5625) (/ 0 1073741821) -> 0) ((1647 . 5625) (/ 0 1073741822) -> 0) ((1648 . 5625) (/ 0 1073741823) -> 0) ((1649 . 5625) (/ 0 1073741824) -> 0) ((1650 . 5625) (/ 0 1073741825) -> 0) ((1651 . 5625) (/ -4 -1073741826) -> 2/536870913) ((1652 . 5625) (/ -4 -1073741825) -> 4/1073741825) ((1653 . 5625) (/ -4 -1073741824) -> 1/268435456) ((1654 . 5625) (/ -4 -1073741823) -> 4/1073741823) ((1655 . 5625) (/ -4 -1073741822) -> 2/536870911) ((1656 . 5625) (/ -3 -1073741826) -> 1/357913942) ((1657 . 5625) (/ -3 -1073741825) -> 3/1073741825) ((1658 . 5625) (/ -3 -1073741824) -> 3/1073741824) ((1659 . 5625) (/ -3 -1073741823) -> 1/357913941) ((1660 . 5625) (/ -3 -1073741822) -> 3/1073741822) ((1661 . 5625) (/ -2 -1073741826) -> 1/536870913) ((1662 . 5625) (/ -2 -1073741825) -> 2/1073741825) ((1663 . 5625) (/ -2 -1073741824) -> 1/536870912) ((1664 . 5625) (/ -2 -1073741823) -> 2/1073741823) ((1665 . 5625) (/ -2 -1073741822) -> 1/536870911) ((1666 . 5625) (/ -1 -1073741826) -> 1/1073741826) ((1667 . 5625) (/ -1 -1073741825) -> 1/1073741825) ((1668 . 5625) (/ -1 -1073741824) -> 1/1073741824) ((1669 . 5625) (/ -1 -1073741823) -> 1/1073741823) ((1670 . 5625) (/ -1 -1073741822) -> 1/1073741822) ((1671 . 5625) (/ 0 -1073741826) -> 0) ((1672 . 5625) (/ 0 -1073741825) -> 0) ((1673 . 5625) (/ 0 -1073741824) -> 0) ((1674 . 5625) (/ 0 -1073741823) -> 0) ((1675 . 5625) (/ 0 -1073741822) -> 0) ((1676 . 5625) (/ -4 1073741822) -> -2/536870911) ((1677 . 5625) (/ -4 1073741823) -> -4/1073741823) ((1678 . 5625) (/ -4 1073741824) -> -1/268435456) ((1679 . 5625) (/ -4 1073741825) -> -4/1073741825) ((1680 . 5625) (/ -4 1073741826) -> -2/536870913) ((1681 . 5625) (/ -3 1073741822) -> -3/1073741822) ((1682 . 5625) (/ -3 1073741823) -> -1/357913941) ((1683 . 5625) (/ -3 1073741824) -> -3/1073741824) ((1684 . 5625) (/ -3 1073741825) -> -3/1073741825) ((1685 . 5625) (/ -3 1073741826) -> -1/357913942) ((1686 . 5625) (/ -2 1073741822) -> -1/536870911) ((1687 . 5625) (/ -2 1073741823) -> -2/1073741823) ((1688 . 5625) (/ -2 1073741824) -> -1/536870912) ((1689 . 5625) (/ -2 1073741825) -> -2/1073741825) ((1690 . 5625) (/ -2 1073741826) -> -1/536870913) ((1691 . 5625) (/ -1 1073741822) -> -1/1073741822) ((1692 . 5625) (/ -1 1073741823) -> -1/1073741823) ((1693 . 5625) (/ -1 1073741824) -> -1/1073741824) ((1694 . 5625) (/ -1 1073741825) -> -1/1073741825) ((1695 . 5625) (/ -1 1073741826) -> -1/1073741826) ((1696 . 5625) (/ 0 1073741822) -> 0) ((1697 . 5625) (/ 0 1073741823) -> 0) ((1698 . 5625) (/ 0 1073741824) -> 0) ((1699 . 5625) (/ 0 1073741825) -> 0) ((1700 . 5625) (/ 0 1073741826) -> 0) ((1701 . 5625) (/ -4 -1073741827) -> 4/1073741827) ((1702 . 5625) (/ -4 -1073741826) -> 2/536870913) ((1703 . 5625) (/ -4 -1073741825) -> 4/1073741825) ((1704 . 5625) (/ -4 -1073741824) -> 1/268435456) ((1705 . 5625) (/ -4 -1073741823) -> 4/1073741823) ((1706 . 5625) (/ -3 -1073741827) -> 3/1073741827) ((1707 . 5625) (/ -3 -1073741826) -> 1/357913942) ((1708 . 5625) (/ -3 -1073741825) -> 3/1073741825) ((1709 . 5625) (/ -3 -1073741824) -> 3/1073741824) ((1710 . 5625) (/ -3 -1073741823) -> 1/357913941) ((1711 . 5625) (/ -2 -1073741827) -> 2/1073741827) ((1712 . 5625) (/ -2 -1073741826) -> 1/536870913) ((1713 . 5625) (/ -2 -1073741825) -> 2/1073741825) ((1714 . 5625) (/ -2 -1073741824) -> 1/536870912) ((1715 . 5625) (/ -2 -1073741823) -> 2/1073741823) ((1716 . 5625) (/ -1 -1073741827) -> 1/1073741827) ((1717 . 5625) (/ -1 -1073741826) -> 1/1073741826) ((1718 . 5625) (/ -1 -1073741825) -> 1/1073741825) ((1719 . 5625) (/ -1 -1073741824) -> 1/1073741824) ((1720 . 5625) (/ -1 -1073741823) -> 1/1073741823) ((1721 . 5625) (/ 0 -1073741827) -> 0) ((1722 . 5625) (/ 0 -1073741826) -> 0) ((1723 . 5625) (/ 0 -1073741825) -> 0) ((1724 . 5625) (/ 0 -1073741824) -> 0) ((1725 . 5625) (/ 0 -1073741823) -> 0) ((1726 . 5625) (/ -4 1103515243) -> -4/1103515243) ((1727 . 5625) (/ -4 1103515244) -> -1/275878811) ((1728 . 5625) (/ -4 1103515245) -> -4/1103515245) ((1729 . 5625) (/ -4 1103515246) -> -2/551757623) ((1730 . 5625) (/ -4 1103515247) -> -4/1103515247) ((1731 . 5625) (/ -3 1103515243) -> -3/1103515243) ((1732 . 5625) (/ -3 1103515244) -> -3/1103515244) ((1733 . 5625) (/ -3 1103515245) -> -1/367838415) ((1734 . 5625) (/ -3 1103515246) -> -3/1103515246) ((1735 . 5625) (/ -3 1103515247) -> -3/1103515247) ((1736 . 5625) (/ -2 1103515243) -> -2/1103515243) ((1737 . 5625) (/ -2 1103515244) -> -1/551757622) ((1738 . 5625) (/ -2 1103515245) -> -2/1103515245) ((1739 . 5625) (/ -2 1103515246) -> -1/551757623) ((1740 . 5625) (/ -2 1103515247) -> -2/1103515247) ((1741 . 5625) (/ -1 1103515243) -> -1/1103515243) ((1742 . 5625) (/ -1 1103515244) -> -1/1103515244) ((1743 . 5625) (/ -1 1103515245) -> -1/1103515245) ((1744 . 5625) (/ -1 1103515246) -> -1/1103515246) ((1745 . 5625) (/ -1 1103515247) -> -1/1103515247) ((1746 . 5625) (/ 0 1103515243) -> 0) ((1747 . 5625) (/ 0 1103515244) -> 0) ((1748 . 5625) (/ 0 1103515245) -> 0) ((1749 . 5625) (/ 0 1103515246) -> 0) ((1750 . 5625) (/ 0 1103515247) -> 0) ((1751 . 5625) (/ -4 631629063) -> -4/631629063) ((1752 . 5625) (/ -4 631629064) -> -1/157907266) ((1753 . 5625) (/ -4 631629065) -> -4/631629065) ((1754 . 5625) (/ -4 631629066) -> -2/315814533) ((1755 . 5625) (/ -4 631629067) -> -4/631629067) ((1756 . 5625) (/ -3 631629063) -> -1/210543021) ((1757 . 5625) (/ -3 631629064) -> -3/631629064) ((1758 . 5625) (/ -3 631629065) -> -3/631629065) ((1759 . 5625) (/ -3 631629066) -> -1/210543022) ((1760 . 5625) (/ -3 631629067) -> -3/631629067) ((1761 . 5625) (/ -2 631629063) -> -2/631629063) ((1762 . 5625) (/ -2 631629064) -> -1/315814532) ((1763 . 5625) (/ -2 631629065) -> -2/631629065) ((1764 . 5625) (/ -2 631629066) -> -1/315814533) ((1765 . 5625) (/ -2 631629067) -> -2/631629067) ((1766 . 5625) (/ -1 631629063) -> -1/631629063) ((1767 . 5625) (/ -1 631629064) -> -1/631629064) ((1768 . 5625) (/ -1 631629065) -> -1/631629065) ((1769 . 5625) (/ -1 631629066) -> -1/631629066) ((1770 . 5625) (/ -1 631629067) -> -1/631629067) ((1771 . 5625) (/ 0 631629063) -> 0) ((1772 . 5625) (/ 0 631629064) -> 0) ((1773 . 5625) (/ 0 631629065) -> 0) ((1774 . 5625) (/ 0 631629066) -> 0) ((1775 . 5625) (/ 0 631629067) -> 0) ((1776 . 5625) (/ -4 9007199254740990) -> -2/4503599627370495) ((1777 . 5625) (/ -4 9007199254740991) -> -4/9007199254740991) ((1778 . 5625) (/ -4 9007199254740992) -> -1/2251799813685248) ((1779 . 5625) (/ -4 9007199254740993) -> -4/9007199254740993) ((1780 . 5625) (/ -4 9007199254740994) -> -2/4503599627370497) ((1781 . 5625) (/ -3 9007199254740990) -> -1/3002399751580330) ((1782 . 5625) (/ -3 9007199254740991) -> -3/9007199254740991) ((1783 . 5625) (/ -3 9007199254740992) -> -3/9007199254740992) ((1784 . 5625) (/ -3 9007199254740993) -> -1/3002399751580331) ((1785 . 5625) (/ -3 9007199254740994) -> -3/9007199254740994) ((1786 . 5625) (/ -2 9007199254740990) -> -1/4503599627370495) ((1787 . 5625) (/ -2 9007199254740991) -> -2/9007199254740991) ((1788 . 5625) (/ -2 9007199254740992) -> -1/4503599627370496) ((1789 . 5625) (/ -2 9007199254740993) -> -2/9007199254740993) ((1790 . 5625) (/ -2 9007199254740994) -> -1/4503599627370497) ((1791 . 5625) (/ -1 9007199254740990) -> -1/9007199254740990) ((1792 . 5625) (/ -1 9007199254740991) -> -1/9007199254740991) ((1793 . 5625) (/ -1 9007199254740992) -> -1/9007199254740992) ((1794 . 5625) (/ -1 9007199254740993) -> -1/9007199254740993) ((1795 . 5625) (/ -1 9007199254740994) -> -1/9007199254740994) ((1796 . 5625) (/ 0 9007199254740990) -> 0) ((1797 . 5625) (/ 0 9007199254740991) -> 0) ((1798 . 5625) (/ 0 9007199254740992) -> 0) ((1799 . 5625) (/ 0 9007199254740993) -> 0) ((1800 . 5625) (/ 0 9007199254740994) -> 0) ((1801 . 5625) (/ -4 -9007199254740994) -> 2/4503599627370497) ((1802 . 5625) (/ -4 -9007199254740993) -> 4/9007199254740993) ((1803 . 5625) (/ -4 -9007199254740992) -> 1/2251799813685248) ((1804 . 5625) (/ -4 -9007199254740991) -> 4/9007199254740991) ((1805 . 5625) (/ -4 -9007199254740990) -> 2/4503599627370495) ((1806 . 5625) (/ -3 -9007199254740994) -> 3/9007199254740994) ((1807 . 5625) (/ -3 -9007199254740993) -> 1/3002399751580331) ((1808 . 5625) (/ -3 -9007199254740992) -> 3/9007199254740992) ((1809 . 5625) (/ -3 -9007199254740991) -> 3/9007199254740991) ((1810 . 5625) (/ -3 -9007199254740990) -> 1/3002399751580330) ((1811 . 5625) (/ -2 -9007199254740994) -> 1/4503599627370497) ((1812 . 5625) (/ -2 -9007199254740993) -> 2/9007199254740993) ((1813 . 5625) (/ -2 -9007199254740992) -> 1/4503599627370496) ((1814 . 5625) (/ -2 -9007199254740991) -> 2/9007199254740991) ((1815 . 5625) (/ -2 -9007199254740990) -> 1/4503599627370495) ((1816 . 5625) (/ -1 -9007199254740994) -> 1/9007199254740994) ((1817 . 5625) (/ -1 -9007199254740993) -> 1/9007199254740993) ((1818 . 5625) (/ -1 -9007199254740992) -> 1/9007199254740992) ((1819 . 5625) (/ -1 -9007199254740991) -> 1/9007199254740991) ((1820 . 5625) (/ -1 -9007199254740990) -> 1/9007199254740990) ((1821 . 5625) (/ 0 -9007199254740994) -> 0) ((1822 . 5625) (/ 0 -9007199254740993) -> 0) ((1823 . 5625) (/ 0 -9007199254740992) -> 0) ((1824 . 5625) (/ 0 -9007199254740991) -> 0) ((1825 . 5625) (/ 0 -9007199254740990) -> 0) ((1826 . 5625) (/ -4 12343) -> -4/12343) ((1827 . 5625) (/ -4 12344) -> -1/3086) ((1828 . 5625) (/ -4 12345) -> -4/12345) ((1829 . 5625) (/ -4 12346) -> -2/6173) ((1830 . 5625) (/ -4 12347) -> -4/12347) ((1831 . 5625) (/ -3 12343) -> -3/12343) ((1832 . 5625) (/ -3 12344) -> -3/12344) ((1833 . 5625) (/ -3 12345) -> -1/4115) ((1834 . 5625) (/ -3 12346) -> -3/12346) ((1835 . 5625) (/ -3 12347) -> -3/12347) ((1836 . 5625) (/ -2 12343) -> -2/12343) ((1837 . 5625) (/ -2 12344) -> -1/6172) ((1838 . 5625) (/ -2 12345) -> -2/12345) ((1839 . 5625) (/ -2 12346) -> -1/6173) ((1840 . 5625) (/ -2 12347) -> -2/12347) ((1841 . 5625) (/ -1 12343) -> -1/12343) ((1842 . 5625) (/ -1 12344) -> -1/12344) ((1843 . 5625) (/ -1 12345) -> -1/12345) ((1844 . 5625) (/ -1 12346) -> -1/12346) ((1845 . 5625) (/ -1 12347) -> -1/12347) ((1846 . 5625) (/ 0 12343) -> 0) ((1847 . 5625) (/ 0 12344) -> 0) ((1848 . 5625) (/ 0 12345) -> 0) ((1849 . 5625) (/ 0 12346) -> 0) ((1850 . 5625) (/ 0 12347) -> 0) ((1851 . 5625) (/ -4 4294967294) -> -2/2147483647) ((1852 . 5625) (/ -4 4294967295) -> -4/4294967295) ((1853 . 5625) (/ -4 4294967296) -> -1/1073741824) ((1854 . 5625) (/ -4 4294967297) -> -4/4294967297) ((1855 . 5625) (/ -4 4294967298) -> -2/2147483649) ((1856 . 5625) (/ -3 4294967294) -> -3/4294967294) ((1857 . 5625) (/ -3 4294967295) -> -1/1431655765) ((1858 . 5625) (/ -3 4294967296) -> -3/4294967296) ((1859 . 5625) (/ -3 4294967297) -> -3/4294967297) ((1860 . 5625) (/ -3 4294967298) -> -1/1431655766) ((1861 . 5625) (/ -2 4294967294) -> -1/2147483647) ((1862 . 5625) (/ -2 4294967295) -> -2/4294967295) ((1863 . 5625) (/ -2 4294967296) -> -1/2147483648) ((1864 . 5625) (/ -2 4294967297) -> -2/4294967297) ((1865 . 5625) (/ -2 4294967298) -> -1/2147483649) ((1866 . 5625) (/ -1 4294967294) -> -1/4294967294) ((1867 . 5625) (/ -1 4294967295) -> -1/4294967295) ((1868 . 5625) (/ -1 4294967296) -> -1/4294967296) ((1869 . 5625) (/ -1 4294967297) -> -1/4294967297) ((1870 . 5625) (/ -1 4294967298) -> -1/4294967298) ((1871 . 5625) (/ 0 4294967294) -> 0) ((1872 . 5625) (/ 0 4294967295) -> 0) ((1873 . 5625) (/ 0 4294967296) -> 0) ((1874 . 5625) (/ 0 4294967297) -> 0) ((1875 . 5625) (/ 0 4294967298) -> 0) ((1876 . 5625) (/ 1073741821 -2) -> -1073741821/2) ((1877 . 5625) (/ 1073741821 -1) -> -1073741821) ((1878 . 5625) (/ 1073741821 0) -> "division by zero") ((1879 . 5625) (/ 1073741821 1) -> 1073741821) ((1880 . 5625) (/ 1073741821 2) -> 1073741821/2) ((1881 . 5625) (/ 1073741822 -2) -> -536870911) ((1882 . 5625) (/ 1073741822 -1) -> -1073741822) ((1883 . 5625) (/ 1073741822 0) -> "division by zero") ((1884 . 5625) (/ 1073741822 1) -> 1073741822) ((1885 . 5625) (/ 1073741822 2) -> 536870911) ((1886 . 5625) (/ 1073741823 -2) -> -1073741823/2) ((1887 . 5625) (/ 1073741823 -1) -> -1073741823) ((1888 . 5625) (/ 1073741823 0) -> "division by zero") ((1889 . 5625) (/ 1073741823 1) -> 1073741823) ((1890 . 5625) (/ 1073741823 2) -> 1073741823/2) ((1891 . 5625) (/ 1073741824 -2) -> -536870912) ((1892 . 5625) (/ 1073741824 -1) -> -1073741824) ((1893 . 5625) (/ 1073741824 0) -> "division by zero") ((1894 . 5625) (/ 1073741824 1) -> 1073741824) ((1895 . 5625) (/ 1073741824 2) -> 536870912) ((1896 . 5625) (/ 1073741825 -2) -> -1073741825/2) ((1897 . 5625) (/ 1073741825 -1) -> -1073741825) ((1898 . 5625) (/ 1073741825 0) -> "division by zero") ((1899 . 5625) (/ 1073741825 1) -> 1073741825) ((1900 . 5625) (/ 1073741825 2) -> 1073741825/2) ((1901 . 5625) (/ 1073741821 -1) -> -1073741821) ((1902 . 5625) (/ 1073741821 0) -> "division by zero") ((1903 . 5625) (/ 1073741821 1) -> 1073741821) ((1904 . 5625) (/ 1073741821 2) -> 1073741821/2) ((1905 . 5625) (/ 1073741821 3) -> 1073741821/3) ((1906 . 5625) (/ 1073741822 -1) -> -1073741822) ((1907 . 5625) (/ 1073741822 0) -> "division by zero") ((1908 . 5625) (/ 1073741822 1) -> 1073741822) ((1909 . 5625) (/ 1073741822 2) -> 536870911) ((1910 . 5625) (/ 1073741822 3) -> 1073741822/3) ((1911 . 5625) (/ 1073741823 -1) -> -1073741823) ((1912 . 5625) (/ 1073741823 0) -> "division by zero") ((1913 . 5625) (/ 1073741823 1) -> 1073741823) ((1914 . 5625) (/ 1073741823 2) -> 1073741823/2) ((1915 . 5625) (/ 1073741823 3) -> 357913941) ((1916 . 5625) (/ 1073741824 -1) -> -1073741824) ((1917 . 5625) (/ 1073741824 0) -> "division by zero") ((1918 . 5625) (/ 1073741824 1) -> 1073741824) ((1919 . 5625) (/ 1073741824 2) -> 536870912) ((1920 . 5625) (/ 1073741824 3) -> 1073741824/3) ((1921 . 5625) (/ 1073741825 -1) -> -1073741825) ((1922 . 5625) (/ 1073741825 0) -> "division by zero") ((1923 . 5625) (/ 1073741825 1) -> 1073741825) ((1924 . 5625) (/ 1073741825 2) -> 1073741825/2) ((1925 . 5625) (/ 1073741825 3) -> 1073741825/3) ((1926 . 5625) (/ 1073741821 -3) -> -1073741821/3) ((1927 . 5625) (/ 1073741821 -2) -> -1073741821/2) ((1928 . 5625) (/ 1073741821 -1) -> -1073741821) ((1929 . 5625) (/ 1073741821 0) -> "division by zero") ((1930 . 5625) (/ 1073741821 1) -> 1073741821) ((1931 . 5625) (/ 1073741822 -3) -> -1073741822/3) ((1932 . 5625) (/ 1073741822 -2) -> -536870911) ((1933 . 5625) (/ 1073741822 -1) -> -1073741822) ((1934 . 5625) (/ 1073741822 0) -> "division by zero") ((1935 . 5625) (/ 1073741822 1) -> 1073741822) ((1936 . 5625) (/ 1073741823 -3) -> -357913941) ((1937 . 5625) (/ 1073741823 -2) -> -1073741823/2) ((1938 . 5625) (/ 1073741823 -1) -> -1073741823) ((1939 . 5625) (/ 1073741823 0) -> "division by zero") ((1940 . 5625) (/ 1073741823 1) -> 1073741823) ((1941 . 5625) (/ 1073741824 -3) -> -1073741824/3) ((1942 . 5625) (/ 1073741824 -2) -> -536870912) ((1943 . 5625) (/ 1073741824 -1) -> -1073741824) ((1944 . 5625) (/ 1073741824 0) -> "division by zero") ((1945 . 5625) (/ 1073741824 1) -> 1073741824) ((1946 . 5625) (/ 1073741825 -3) -> -1073741825/3) ((1947 . 5625) (/ 1073741825 -2) -> -1073741825/2) ((1948 . 5625) (/ 1073741825 -1) -> -1073741825) ((1949 . 5625) (/ 1073741825 0) -> "division by zero") ((1950 . 5625) (/ 1073741825 1) -> 1073741825) ((1951 . 5625) (/ 1073741821 0) -> "division by zero") ((1952 . 5625) (/ 1073741821 1) -> 1073741821) ((1953 . 5625) (/ 1073741821 2) -> 1073741821/2) ((1954 . 5625) (/ 1073741821 3) -> 1073741821/3) ((1955 . 5625) (/ 1073741821 4) -> 1073741821/4) ((1956 . 5625) (/ 1073741822 0) -> "division by zero") ((1957 . 5625) (/ 1073741822 1) -> 1073741822) ((1958 . 5625) (/ 1073741822 2) -> 536870911) ((1959 . 5625) (/ 1073741822 3) -> 1073741822/3) ((1960 . 5625) (/ 1073741822 4) -> 536870911/2) ((1961 . 5625) (/ 1073741823 0) -> "division by zero") ((1962 . 5625) (/ 1073741823 1) -> 1073741823) ((1963 . 5625) (/ 1073741823 2) -> 1073741823/2) ((1964 . 5625) (/ 1073741823 3) -> 357913941) ((1965 . 5625) (/ 1073741823 4) -> 1073741823/4) ((1966 . 5625) (/ 1073741824 0) -> "division by zero") ((1967 . 5625) (/ 1073741824 1) -> 1073741824) ((1968 . 5625) (/ 1073741824 2) -> 536870912) ((1969 . 5625) (/ 1073741824 3) -> 1073741824/3) ((1970 . 5625) (/ 1073741824 4) -> 268435456) ((1971 . 5625) (/ 1073741825 0) -> "division by zero") ((1972 . 5625) (/ 1073741825 1) -> 1073741825) ((1973 . 5625) (/ 1073741825 2) -> 1073741825/2) ((1974 . 5625) (/ 1073741825 3) -> 1073741825/3) ((1975 . 5625) (/ 1073741825 4) -> 1073741825/4) ((1976 . 5625) (/ 1073741821 -4) -> -1073741821/4) ((1977 . 5625) (/ 1073741821 -3) -> -1073741821/3) ((1978 . 5625) (/ 1073741821 -2) -> -1073741821/2) ((1979 . 5625) (/ 1073741821 -1) -> -1073741821) ((1980 . 5625) (/ 1073741821 0) -> "division by zero") ((1981 . 5625) (/ 1073741822 -4) -> -536870911/2) ((1982 . 5625) (/ 1073741822 -3) -> -1073741822/3) ((1983 . 5625) (/ 1073741822 -2) -> -536870911) ((1984 . 5625) (/ 1073741822 -1) -> -1073741822) ((1985 . 5625) (/ 1073741822 0) -> "division by zero") ((1986 . 5625) (/ 1073741823 -4) -> -1073741823/4) ((1987 . 5625) (/ 1073741823 -3) -> -357913941) ((1988 . 5625) (/ 1073741823 -2) -> -1073741823/2) ((1989 . 5625) (/ 1073741823 -1) -> -1073741823) ((1990 . 5625) (/ 1073741823 0) -> "division by zero") ((1991 . 5625) (/ 1073741824 -4) -> -268435456) ((1992 . 5625) (/ 1073741824 -3) -> -1073741824/3) ((1993 . 5625) (/ 1073741824 -2) -> -536870912) ((1994 . 5625) (/ 1073741824 -1) -> -1073741824) ((1995 . 5625) (/ 1073741824 0) -> "division by zero") ((1996 . 5625) (/ 1073741825 -4) -> -1073741825/4) ((1997 . 5625) (/ 1073741825 -3) -> -1073741825/3) ((1998 . 5625) (/ 1073741825 -2) -> -1073741825/2) ((1999 . 5625) (/ 1073741825 -1) -> -1073741825) ((2000 . 5625) (/ 1073741825 0) -> "division by zero") ((2001 . 5625) (/ 1073741821 1073741821) -> 1) ((2002 . 5625) (/ 1073741821 1073741822) -> 1073741821/1073741822) ((2003 . 5625) (/ 1073741821 1073741823) -> 1073741821/1073741823) ((2004 . 5625) (/ 1073741821 1073741824) -> 1073741821/1073741824) ((2005 . 5625) (/ 1073741821 1073741825) -> 1073741821/1073741825) ((2006 . 5625) (/ 1073741822 1073741821) -> 1073741822/1073741821) ((2007 . 5625) (/ 1073741822 1073741822) -> 1) ((2008 . 5625) (/ 1073741822 1073741823) -> 1073741822/1073741823) ((2009 . 5625) (/ 1073741822 1073741824) -> 536870911/536870912) ((2010 . 5625) (/ 1073741822 1073741825) -> 1073741822/1073741825) ((2011 . 5625) (/ 1073741823 1073741821) -> 1073741823/1073741821) ((2012 . 5625) (/ 1073741823 1073741822) -> 1073741823/1073741822) ((2013 . 5625) (/ 1073741823 1073741823) -> 1) ((2014 . 5625) (/ 1073741823 1073741824) -> 1073741823/1073741824) ((2015 . 5625) (/ 1073741823 1073741825) -> 1073741823/1073741825) ((2016 . 5625) (/ 1073741824 1073741821) -> 1073741824/1073741821) ((2017 . 5625) (/ 1073741824 1073741822) -> 536870912/536870911) ((2018 . 5625) (/ 1073741824 1073741823) -> 1073741824/1073741823) ((2019 . 5625) (/ 1073741824 1073741824) -> 1) ((2020 . 5625) (/ 1073741824 1073741825) -> 1073741824/1073741825) ((2021 . 5625) (/ 1073741825 1073741821) -> 1073741825/1073741821) ((2022 . 5625) (/ 1073741825 1073741822) -> 1073741825/1073741822) ((2023 . 5625) (/ 1073741825 1073741823) -> 1073741825/1073741823) ((2024 . 5625) (/ 1073741825 1073741824) -> 1073741825/1073741824) ((2025 . 5625) (/ 1073741825 1073741825) -> 1) ((2026 . 5625) (/ 1073741821 -1073741826) -> -1073741821/1073741826) ((2027 . 5625) (/ 1073741821 -1073741825) -> -1073741821/1073741825) ((2028 . 5625) (/ 1073741821 -1073741824) -> -1073741821/1073741824) ((2029 . 5625) (/ 1073741821 -1073741823) -> -1073741821/1073741823) ((2030 . 5625) (/ 1073741821 -1073741822) -> -1073741821/1073741822) ((2031 . 5625) (/ 1073741822 -1073741826) -> -536870911/536870913) ((2032 . 5625) (/ 1073741822 -1073741825) -> -1073741822/1073741825) ((2033 . 5625) (/ 1073741822 -1073741824) -> -536870911/536870912) ((2034 . 5625) (/ 1073741822 -1073741823) -> -1073741822/1073741823) ((2035 . 5625) (/ 1073741822 -1073741822) -> -1) ((2036 . 5625) (/ 1073741823 -1073741826) -> -357913941/357913942) ((2037 . 5625) (/ 1073741823 -1073741825) -> -1073741823/1073741825) ((2038 . 5625) (/ 1073741823 -1073741824) -> -1073741823/1073741824) ((2039 . 5625) (/ 1073741823 -1073741823) -> -1) ((2040 . 5625) (/ 1073741823 -1073741822) -> -1073741823/1073741822) ((2041 . 5625) (/ 1073741824 -1073741826) -> -536870912/536870913) ((2042 . 5625) (/ 1073741824 -1073741825) -> -1073741824/1073741825) ((2043 . 5625) (/ 1073741824 -1073741824) -> -1) ((2044 . 5625) (/ 1073741824 -1073741823) -> -1073741824/1073741823) ((2045 . 5625) (/ 1073741824 -1073741822) -> -536870912/536870911) ((2046 . 5625) (/ 1073741825 -1073741826) -> -1073741825/1073741826) ((2047 . 5625) (/ 1073741825 -1073741825) -> -1) ((2048 . 5625) (/ 1073741825 -1073741824) -> -1073741825/1073741824) ((2049 . 5625) (/ 1073741825 -1073741823) -> -1073741825/1073741823) ((2050 . 5625) (/ 1073741825 -1073741822) -> -1073741825/1073741822) ((2051 . 5625) (/ 1073741821 1073741822) -> 1073741821/1073741822) ((2052 . 5625) (/ 1073741821 1073741823) -> 1073741821/1073741823) ((2053 . 5625) (/ 1073741821 1073741824) -> 1073741821/1073741824) ((2054 . 5625) (/ 1073741821 1073741825) -> 1073741821/1073741825) ((2055 . 5625) (/ 1073741821 1073741826) -> 1073741821/1073741826) ((2056 . 5625) (/ 1073741822 1073741822) -> 1) ((2057 . 5625) (/ 1073741822 1073741823) -> 1073741822/1073741823) ((2058 . 5625) (/ 1073741822 1073741824) -> 536870911/536870912) ((2059 . 5625) (/ 1073741822 1073741825) -> 1073741822/1073741825) ((2060 . 5625) (/ 1073741822 1073741826) -> 536870911/536870913) ((2061 . 5625) (/ 1073741823 1073741822) -> 1073741823/1073741822) ((2062 . 5625) (/ 1073741823 1073741823) -> 1) ((2063 . 5625) (/ 1073741823 1073741824) -> 1073741823/1073741824) ((2064 . 5625) (/ 1073741823 1073741825) -> 1073741823/1073741825) ((2065 . 5625) (/ 1073741823 1073741826) -> 357913941/357913942) ((2066 . 5625) (/ 1073741824 1073741822) -> 536870912/536870911) ((2067 . 5625) (/ 1073741824 1073741823) -> 1073741824/1073741823) ((2068 . 5625) (/ 1073741824 1073741824) -> 1) ((2069 . 5625) (/ 1073741824 1073741825) -> 1073741824/1073741825) ((2070 . 5625) (/ 1073741824 1073741826) -> 536870912/536870913) ((2071 . 5625) (/ 1073741825 1073741822) -> 1073741825/1073741822) ((2072 . 5625) (/ 1073741825 1073741823) -> 1073741825/1073741823) ((2073 . 5625) (/ 1073741825 1073741824) -> 1073741825/1073741824) ((2074 . 5625) (/ 1073741825 1073741825) -> 1) ((2075 . 5625) (/ 1073741825 1073741826) -> 1073741825/1073741826) ((2076 . 5625) (/ 1073741821 -1073741827) -> -1073741821/1073741827) ((2077 . 5625) (/ 1073741821 -1073741826) -> -1073741821/1073741826) ((2078 . 5625) (/ 1073741821 -1073741825) -> -1073741821/1073741825) ((2079 . 5625) (/ 1073741821 -1073741824) -> -1073741821/1073741824) ((2080 . 5625) (/ 1073741821 -1073741823) -> -1073741821/1073741823) ((2081 . 5625) (/ 1073741822 -1073741827) -> -1073741822/1073741827) ((2082 . 5625) (/ 1073741822 -1073741826) -> -536870911/536870913) ((2083 . 5625) (/ 1073741822 -1073741825) -> -1073741822/1073741825) ((2084 . 5625) (/ 1073741822 -1073741824) -> -536870911/536870912) ((2085 . 5625) (/ 1073741822 -1073741823) -> -1073741822/1073741823) ((2086 . 5625) (/ 1073741823 -1073741827) -> -1073741823/1073741827) ((2087 . 5625) (/ 1073741823 -1073741826) -> -357913941/357913942) ((2088 . 5625) (/ 1073741823 -1073741825) -> -1073741823/1073741825) ((2089 . 5625) (/ 1073741823 -1073741824) -> -1073741823/1073741824) ((2090 . 5625) (/ 1073741823 -1073741823) -> -1) ((2091 . 5625) (/ 1073741824 -1073741827) -> -1073741824/1073741827) ((2092 . 5625) (/ 1073741824 -1073741826) -> -536870912/536870913) ((2093 . 5625) (/ 1073741824 -1073741825) -> -1073741824/1073741825) ((2094 . 5625) (/ 1073741824 -1073741824) -> -1) ((2095 . 5625) (/ 1073741824 -1073741823) -> -1073741824/1073741823) ((2096 . 5625) (/ 1073741825 -1073741827) -> -1073741825/1073741827) ((2097 . 5625) (/ 1073741825 -1073741826) -> -1073741825/1073741826) ((2098 . 5625) (/ 1073741825 -1073741825) -> -1) ((2099 . 5625) (/ 1073741825 -1073741824) -> -1073741825/1073741824) ((2100 . 5625) (/ 1073741825 -1073741823) -> -1073741825/1073741823) ((2101 . 5625) (/ 1073741821 1103515243) -> 1073741821/1103515243) ((2102 . 5625) (/ 1073741821 1103515244) -> 1073741821/1103515244) ((2103 . 5625) (/ 1073741821 1103515245) -> 1073741821/1103515245) ((2104 . 5625) (/ 1073741821 1103515246) -> 1073741821/1103515246) ((2105 . 5625) (/ 1073741821 1103515247) -> 1073741821/1103515247) ((2106 . 5625) (/ 1073741822 1103515243) -> 1073741822/1103515243) ((2107 . 5625) (/ 1073741822 1103515244) -> 536870911/551757622) ((2108 . 5625) (/ 1073741822 1103515245) -> 1073741822/1103515245) ((2109 . 5625) (/ 1073741822 1103515246) -> 536870911/551757623) ((2110 . 5625) (/ 1073741822 1103515247) -> 1073741822/1103515247) ((2111 . 5625) (/ 1073741823 1103515243) -> 1073741823/1103515243) ((2112 . 5625) (/ 1073741823 1103515244) -> 1073741823/1103515244) ((2113 . 5625) (/ 1073741823 1103515245) -> 17043521/17516115) ((2114 . 5625) (/ 1073741823 1103515246) -> 34636833/35597266) ((2115 . 5625) (/ 1073741823 1103515247) -> 1073741823/1103515247) ((2116 . 5625) (/ 1073741824 1103515243) -> 1073741824/1103515243) ((2117 . 5625) (/ 1073741824 1103515244) -> 268435456/275878811) ((2118 . 5625) (/ 1073741824 1103515245) -> 1073741824/1103515245) ((2119 . 5625) (/ 1073741824 1103515246) -> 536870912/551757623) ((2120 . 5625) (/ 1073741824 1103515247) -> 1073741824/1103515247) ((2121 . 5625) (/ 1073741825 1103515243) -> 1073741825/1103515243) ((2122 . 5625) (/ 1073741825 1103515244) -> 82595525/84885788) ((2123 . 5625) (/ 1073741825 1103515245) -> 214748365/220703049) ((2124 . 5625) (/ 1073741825 1103515246) -> 26188825/26915006) ((2125 . 5625) (/ 1073741825 1103515247) -> 1073741825/1103515247) ((2126 . 5625) (/ 1073741821 631629063) -> 1073741821/631629063) ((2127 . 5625) (/ 1073741821 631629064) -> 1073741821/631629064) ((2128 . 5625) (/ 1073741821 631629065) -> 1073741821/631629065) ((2129 . 5625) (/ 1073741821 631629066) -> 1073741821/631629066) ((2130 . 5625) (/ 1073741821 631629067) -> 1073741821/631629067) ((2131 . 5625) (/ 1073741822 631629063) -> 1073741822/631629063) ((2132 . 5625) (/ 1073741822 631629064) -> 536870911/315814532) ((2133 . 5625) (/ 1073741822 631629065) -> 1073741822/631629065) ((2134 . 5625) (/ 1073741822 631629066) -> 536870911/315814533) ((2135 . 5625) (/ 1073741822 631629067) -> 1073741822/631629067) ((2136 . 5625) (/ 1073741823 631629063) -> 119304647/70181007) ((2137 . 5625) (/ 1073741823 631629064) -> 97612893/57420824) ((2138 . 5625) (/ 1073741823 631629065) -> 1073741823/631629065) ((2139 . 5625) (/ 1073741823 631629066) -> 357913941/210543022) ((2140 . 5625) (/ 1073741823 631629067) -> 1073741823/631629067) ((2141 . 5625) (/ 1073741824 631629063) -> 1073741824/631629063) ((2142 . 5625) (/ 1073741824 631629064) -> 134217728/78953633) ((2143 . 5625) (/ 1073741824 631629065) -> 1073741824/631629065) ((2144 . 5625) (/ 1073741824 631629066) -> 536870912/315814533) ((2145 . 5625) (/ 1073741824 631629067) -> 1073741824/631629067) ((2146 . 5625) (/ 1073741825 631629063) -> 82595525/48586851) ((2147 . 5625) (/ 1073741825 631629064) -> 1073741825/631629064) ((2148 . 5625) (/ 1073741825 631629065) -> 214748365/126325813) ((2149 . 5625) (/ 1073741825 631629066) -> 1073741825/631629066) ((2150 . 5625) (/ 1073741825 631629067) -> 26188825/15405587) ((2151 . 5625) (/ 1073741821 9007199254740990) -> 1073741821/9007199254740990) ((2152 . 5625) (/ 1073741821 9007199254740991) -> 1073741821/9007199254740991) ((2153 . 5625) (/ 1073741821 9007199254740992) -> 1073741821/9007199254740992) ((2154 . 5625) (/ 1073741821 9007199254740993) -> 1073741821/9007199254740993) ((2155 . 5625) (/ 1073741821 9007199254740994) -> 1073741821/9007199254740994) ((2156 . 5625) (/ 1073741822 9007199254740990) -> 536870911/4503599627370495) ((2157 . 5625) (/ 1073741822 9007199254740991) -> 1073741822/9007199254740991) ((2158 . 5625) (/ 1073741822 9007199254740992) -> 536870911/4503599627370496) ((2159 . 5625) (/ 1073741822 9007199254740993) -> 1073741822/9007199254740993) ((2160 . 5625) (/ 1073741822 9007199254740994) -> 536870911/4503599627370497) ((2161 . 5625) (/ 1073741823 9007199254740990) -> 357913941/3002399751580330) ((2162 . 5625) (/ 1073741823 9007199254740991) -> 1073741823/9007199254740991) ((2163 . 5625) (/ 1073741823 9007199254740992) -> 1073741823/9007199254740992) ((2164 . 5625) (/ 1073741823 9007199254740993) -> 357913941/3002399751580331) ((2165 . 5625) (/ 1073741823 9007199254740994) -> 1073741823/9007199254740994) ((2166 . 5625) (/ 1073741824 9007199254740990) -> 536870912/4503599627370495) ((2167 . 5625) (/ 1073741824 9007199254740991) -> 1073741824/9007199254740991) ((2168 . 5625) (/ 1073741824 9007199254740992) -> 1/8388608) ((2169 . 5625) (/ 1073741824 9007199254740993) -> 1073741824/9007199254740993) ((2170 . 5625) (/ 1073741824 9007199254740994) -> 536870912/4503599627370497) ((2171 . 5625) (/ 1073741825 9007199254740990) -> 214748365/1801439850948198) ((2172 . 5625) (/ 1073741825 9007199254740991) -> 1073741825/9007199254740991) ((2173 . 5625) (/ 1073741825 9007199254740992) -> 1073741825/9007199254740992) ((2174 . 5625) (/ 1073741825 9007199254740993) -> 1073741825/9007199254740993) ((2175 . 5625) (/ 1073741825 9007199254740994) -> 1073741825/9007199254740994) ((2176 . 5625) (/ 1073741821 -9007199254740994) -> -1073741821/9007199254740994) ((2177 . 5625) (/ 1073741821 -9007199254740993) -> -1073741821/9007199254740993) ((2178 . 5625) (/ 1073741821 -9007199254740992) -> -1073741821/9007199254740992) ((2179 . 5625) (/ 1073741821 -9007199254740991) -> -1073741821/9007199254740991) ((2180 . 5625) (/ 1073741821 -9007199254740990) -> -1073741821/9007199254740990) ((2181 . 5625) (/ 1073741822 -9007199254740994) -> -536870911/4503599627370497) ((2182 . 5625) (/ 1073741822 -9007199254740993) -> -1073741822/9007199254740993) ((2183 . 5625) (/ 1073741822 -9007199254740992) -> -536870911/4503599627370496) ((2184 . 5625) (/ 1073741822 -9007199254740991) -> -1073741822/9007199254740991) ((2185 . 5625) (/ 1073741822 -9007199254740990) -> -536870911/4503599627370495) ((2186 . 5625) (/ 1073741823 -9007199254740994) -> -1073741823/9007199254740994) ((2187 . 5625) (/ 1073741823 -9007199254740993) -> -357913941/3002399751580331) ((2188 . 5625) (/ 1073741823 -9007199254740992) -> -1073741823/9007199254740992) ((2189 . 5625) (/ 1073741823 -9007199254740991) -> -1073741823/9007199254740991) ((2190 . 5625) (/ 1073741823 -9007199254740990) -> -357913941/3002399751580330) ((2191 . 5625) (/ 1073741824 -9007199254740994) -> -536870912/4503599627370497) ((2192 . 5625) (/ 1073741824 -9007199254740993) -> -1073741824/9007199254740993) ((2193 . 5625) (/ 1073741824 -9007199254740992) -> -1/8388608) ((2194 . 5625) (/ 1073741824 -9007199254740991) -> -1073741824/9007199254740991) ((2195 . 5625) (/ 1073741824 -9007199254740990) -> -536870912/4503599627370495) ((2196 . 5625) (/ 1073741825 -9007199254740994) -> -1073741825/9007199254740994) ((2197 . 5625) (/ 1073741825 -9007199254740993) -> -1073741825/9007199254740993) ((2198 . 5625) (/ 1073741825 -9007199254740992) -> -1073741825/9007199254740992) ((2199 . 5625) (/ 1073741825 -9007199254740991) -> -1073741825/9007199254740991) ((2200 . 5625) (/ 1073741825 -9007199254740990) -> -214748365/1801439850948198) ((2201 . 5625) (/ 1073741821 12343) -> 1073741821/12343) ((2202 . 5625) (/ 1073741821 12344) -> 1073741821/12344) ((2203 . 5625) (/ 1073741821 12345) -> 1073741821/12345) ((2204 . 5625) (/ 1073741821 12346) -> 1073741821/12346) ((2205 . 5625) (/ 1073741821 12347) -> 1073741821/12347) ((2206 . 5625) (/ 1073741822 12343) -> 1073741822/12343) ((2207 . 5625) (/ 1073741822 12344) -> 536870911/6172) ((2208 . 5625) (/ 1073741822 12345) -> 1073741822/12345) ((2209 . 5625) (/ 1073741822 12346) -> 536870911/6173) ((2210 . 5625) (/ 1073741822 12347) -> 1073741822/12347) ((2211 . 5625) (/ 1073741823 12343) -> 1073741823/12343) ((2212 . 5625) (/ 1073741823 12344) -> 1073741823/12344) ((2213 . 5625) (/ 1073741823 12345) -> 357913941/4115) ((2214 . 5625) (/ 1073741823 12346) -> 1073741823/12346) ((2215 . 5625) (/ 1073741823 12347) -> 1073741823/12347) ((2216 . 5625) (/ 1073741824 12343) -> 1073741824/12343) ((2217 . 5625) (/ 1073741824 12344) -> 134217728/1543) ((2218 . 5625) (/ 1073741824 12345) -> 1073741824/12345) ((2219 . 5625) (/ 1073741824 12346) -> 536870912/6173) ((2220 . 5625) (/ 1073741824 12347) -> 1073741824/12347) ((2221 . 5625) (/ 1073741825 12343) -> 1073741825/12343) ((2222 . 5625) (/ 1073741825 12344) -> 1073741825/12344) ((2223 . 5625) (/ 1073741825 12345) -> 214748365/2469) ((2224 . 5625) (/ 1073741825 12346) -> 1073741825/12346) ((2225 . 5625) (/ 1073741825 12347) -> 1073741825/12347) ((2226 . 5625) (/ 1073741821 4294967294) -> 1073741821/4294967294) ((2227 . 5625) (/ 1073741821 4294967295) -> 1073741821/4294967295) ((2228 . 5625) (/ 1073741821 4294967296) -> 1073741821/4294967296) ((2229 . 5625) (/ 1073741821 4294967297) -> 1073741821/4294967297) ((2230 . 5625) (/ 1073741821 4294967298) -> 1073741821/4294967298) ((2231 . 5625) (/ 1073741822 4294967294) -> 536870911/2147483647) ((2232 . 5625) (/ 1073741822 4294967295) -> 1073741822/4294967295) ((2233 . 5625) (/ 1073741822 4294967296) -> 536870911/2147483648) ((2234 . 5625) (/ 1073741822 4294967297) -> 1073741822/4294967297) ((2235 . 5625) (/ 1073741822 4294967298) -> 536870911/2147483649) ((2236 . 5625) (/ 1073741823 4294967294) -> 1073741823/4294967294) ((2237 . 5625) (/ 1073741823 4294967295) -> 357913941/1431655765) ((2238 . 5625) (/ 1073741823 4294967296) -> 1073741823/4294967296) ((2239 . 5625) (/ 1073741823 4294967297) -> 1073741823/4294967297) ((2240 . 5625) (/ 1073741823 4294967298) -> 357913941/1431655766) ((2241 . 5625) (/ 1073741824 4294967294) -> 536870912/2147483647) ((2242 . 5625) (/ 1073741824 4294967295) -> 1073741824/4294967295) ((2243 . 5625) (/ 1073741824 4294967296) -> 1/4) ((2244 . 5625) (/ 1073741824 4294967297) -> 1073741824/4294967297) ((2245 . 5625) (/ 1073741824 4294967298) -> 536870912/2147483649) ((2246 . 5625) (/ 1073741825 4294967294) -> 1073741825/4294967294) ((2247 . 5625) (/ 1073741825 4294967295) -> 214748365/858993459) ((2248 . 5625) (/ 1073741825 4294967296) -> 1073741825/4294967296) ((2249 . 5625) (/ 1073741825 4294967297) -> 1073741825/4294967297) ((2250 . 5625) (/ 1073741825 4294967298) -> 1073741825/4294967298) ((2251 . 5625) (/ -1073741826 -2) -> 536870913) ((2252 . 5625) (/ -1073741826 -1) -> 1073741826) ((2253 . 5625) (/ -1073741826 0) -> "division by zero") ((2254 . 5625) (/ -1073741826 1) -> -1073741826) ((2255 . 5625) (/ -1073741826 2) -> -536870913) ((2256 . 5625) (/ -1073741825 -2) -> 1073741825/2) ((2257 . 5625) (/ -1073741825 -1) -> 1073741825) ((2258 . 5625) (/ -1073741825 0) -> "division by zero") ((2259 . 5625) (/ -1073741825 1) -> -1073741825) ((2260 . 5625) (/ -1073741825 2) -> -1073741825/2) ((2261 . 5625) (/ -1073741824 -2) -> 536870912) ((2262 . 5625) (/ -1073741824 -1) -> 1073741824) ((2263 . 5625) (/ -1073741824 0) -> "division by zero") ((2264 . 5625) (/ -1073741824 1) -> -1073741824) ((2265 . 5625) (/ -1073741824 2) -> -536870912) ((2266 . 5625) (/ -1073741823 -2) -> 1073741823/2) ((2267 . 5625) (/ -1073741823 -1) -> 1073741823) ((2268 . 5625) (/ -1073741823 0) -> "division by zero") ((2269 . 5625) (/ -1073741823 1) -> -1073741823) ((2270 . 5625) (/ -1073741823 2) -> -1073741823/2) ((2271 . 5625) (/ -1073741822 -2) -> 536870911) ((2272 . 5625) (/ -1073741822 -1) -> 1073741822) ((2273 . 5625) (/ -1073741822 0) -> "division by zero") ((2274 . 5625) (/ -1073741822 1) -> -1073741822) ((2275 . 5625) (/ -1073741822 2) -> -536870911) ((2276 . 5625) (/ -1073741826 -1) -> 1073741826) ((2277 . 5625) (/ -1073741826 0) -> "division by zero") ((2278 . 5625) (/ -1073741826 1) -> -1073741826) ((2279 . 5625) (/ -1073741826 2) -> -536870913) ((2280 . 5625) (/ -1073741826 3) -> -357913942) ((2281 . 5625) (/ -1073741825 -1) -> 1073741825) ((2282 . 5625) (/ -1073741825 0) -> "division by zero") ((2283 . 5625) (/ -1073741825 1) -> -1073741825) ((2284 . 5625) (/ -1073741825 2) -> -1073741825/2) ((2285 . 5625) (/ -1073741825 3) -> -1073741825/3) ((2286 . 5625) (/ -1073741824 -1) -> 1073741824) ((2287 . 5625) (/ -1073741824 0) -> "division by zero") ((2288 . 5625) (/ -1073741824 1) -> -1073741824) ((2289 . 5625) (/ -1073741824 2) -> -536870912) ((2290 . 5625) (/ -1073741824 3) -> -1073741824/3) ((2291 . 5625) (/ -1073741823 -1) -> 1073741823) ((2292 . 5625) (/ -1073741823 0) -> "division by zero") ((2293 . 5625) (/ -1073741823 1) -> -1073741823) ((2294 . 5625) (/ -1073741823 2) -> -1073741823/2) ((2295 . 5625) (/ -1073741823 3) -> -357913941) ((2296 . 5625) (/ -1073741822 -1) -> 1073741822) ((2297 . 5625) (/ -1073741822 0) -> "division by zero") ((2298 . 5625) (/ -1073741822 1) -> -1073741822) ((2299 . 5625) (/ -1073741822 2) -> -536870911) ((2300 . 5625) (/ -1073741822 3) -> -1073741822/3) ((2301 . 5625) (/ -1073741826 -3) -> 357913942) ((2302 . 5625) (/ -1073741826 -2) -> 536870913) ((2303 . 5625) (/ -1073741826 -1) -> 1073741826) ((2304 . 5625) (/ -1073741826 0) -> "division by zero") ((2305 . 5625) (/ -1073741826 1) -> -1073741826) ((2306 . 5625) (/ -1073741825 -3) -> 1073741825/3) ((2307 . 5625) (/ -1073741825 -2) -> 1073741825/2) ((2308 . 5625) (/ -1073741825 -1) -> 1073741825) ((2309 . 5625) (/ -1073741825 0) -> "division by zero") ((2310 . 5625) (/ -1073741825 1) -> -1073741825) ((2311 . 5625) (/ -1073741824 -3) -> 1073741824/3) ((2312 . 5625) (/ -1073741824 -2) -> 536870912) ((2313 . 5625) (/ -1073741824 -1) -> 1073741824) ((2314 . 5625) (/ -1073741824 0) -> "division by zero") ((2315 . 5625) (/ -1073741824 1) -> -1073741824) ((2316 . 5625) (/ -1073741823 -3) -> 357913941) ((2317 . 5625) (/ -1073741823 -2) -> 1073741823/2) ((2318 . 5625) (/ -1073741823 -1) -> 1073741823) ((2319 . 5625) (/ -1073741823 0) -> "division by zero") ((2320 . 5625) (/ -1073741823 1) -> -1073741823) ((2321 . 5625) (/ -1073741822 -3) -> 1073741822/3) ((2322 . 5625) (/ -1073741822 -2) -> 536870911) ((2323 . 5625) (/ -1073741822 -1) -> 1073741822) ((2324 . 5625) (/ -1073741822 0) -> "division by zero") ((2325 . 5625) (/ -1073741822 1) -> -1073741822) ((2326 . 5625) (/ -1073741826 0) -> "division by zero") ((2327 . 5625) (/ -1073741826 1) -> -1073741826) ((2328 . 5625) (/ -1073741826 2) -> -536870913) ((2329 . 5625) (/ -1073741826 3) -> -357913942) ((2330 . 5625) (/ -1073741826 4) -> -536870913/2) ((2331 . 5625) (/ -1073741825 0) -> "division by zero") ((2332 . 5625) (/ -1073741825 1) -> -1073741825) ((2333 . 5625) (/ -1073741825 2) -> -1073741825/2) ((2334 . 5625) (/ -1073741825 3) -> -1073741825/3) ((2335 . 5625) (/ -1073741825 4) -> -1073741825/4) ((2336 . 5625) (/ -1073741824 0) -> "division by zero") ((2337 . 5625) (/ -1073741824 1) -> -1073741824) ((2338 . 5625) (/ -1073741824 2) -> -536870912) ((2339 . 5625) (/ -1073741824 3) -> -1073741824/3) ((2340 . 5625) (/ -1073741824 4) -> -268435456) ((2341 . 5625) (/ -1073741823 0) -> "division by zero") ((2342 . 5625) (/ -1073741823 1) -> -1073741823) ((2343 . 5625) (/ -1073741823 2) -> -1073741823/2) ((2344 . 5625) (/ -1073741823 3) -> -357913941) ((2345 . 5625) (/ -1073741823 4) -> -1073741823/4) ((2346 . 5625) (/ -1073741822 0) -> "division by zero") ((2347 . 5625) (/ -1073741822 1) -> -1073741822) ((2348 . 5625) (/ -1073741822 2) -> -536870911) ((2349 . 5625) (/ -1073741822 3) -> -1073741822/3) ((2350 . 5625) (/ -1073741822 4) -> -536870911/2) ((2351 . 5625) (/ -1073741826 -4) -> 536870913/2) ((2352 . 5625) (/ -1073741826 -3) -> 357913942) ((2353 . 5625) (/ -1073741826 -2) -> 536870913) ((2354 . 5625) (/ -1073741826 -1) -> 1073741826) ((2355 . 5625) (/ -1073741826 0) -> "division by zero") ((2356 . 5625) (/ -1073741825 -4) -> 1073741825/4) ((2357 . 5625) (/ -1073741825 -3) -> 1073741825/3) ((2358 . 5625) (/ -1073741825 -2) -> 1073741825/2) ((2359 . 5625) (/ -1073741825 -1) -> 1073741825) ((2360 . 5625) (/ -1073741825 0) -> "division by zero") ((2361 . 5625) (/ -1073741824 -4) -> 268435456) ((2362 . 5625) (/ -1073741824 -3) -> 1073741824/3) ((2363 . 5625) (/ -1073741824 -2) -> 536870912) ((2364 . 5625) (/ -1073741824 -1) -> 1073741824) ((2365 . 5625) (/ -1073741824 0) -> "division by zero") ((2366 . 5625) (/ -1073741823 -4) -> 1073741823/4) ((2367 . 5625) (/ -1073741823 -3) -> 357913941) ((2368 . 5625) (/ -1073741823 -2) -> 1073741823/2) ((2369 . 5625) (/ -1073741823 -1) -> 1073741823) ((2370 . 5625) (/ -1073741823 0) -> "division by zero") ((2371 . 5625) (/ -1073741822 -4) -> 536870911/2) ((2372 . 5625) (/ -1073741822 -3) -> 1073741822/3) ((2373 . 5625) (/ -1073741822 -2) -> 536870911) ((2374 . 5625) (/ -1073741822 -1) -> 1073741822) ((2375 . 5625) (/ -1073741822 0) -> "division by zero") ((2376 . 5625) (/ -1073741826 1073741821) -> -1073741826/1073741821) ((2377 . 5625) (/ -1073741826 1073741822) -> -536870913/536870911) ((2378 . 5625) (/ -1073741826 1073741823) -> -357913942/357913941) ((2379 . 5625) (/ -1073741826 1073741824) -> -536870913/536870912) ((2380 . 5625) (/ -1073741826 1073741825) -> -1073741826/1073741825) ((2381 . 5625) (/ -1073741825 1073741821) -> -1073741825/1073741821) ((2382 . 5625) (/ -1073741825 1073741822) -> -1073741825/1073741822) ((2383 . 5625) (/ -1073741825 1073741823) -> -1073741825/1073741823) ((2384 . 5625) (/ -1073741825 1073741824) -> -1073741825/1073741824) ((2385 . 5625) (/ -1073741825 1073741825) -> -1) ((2386 . 5625) (/ -1073741824 1073741821) -> -1073741824/1073741821) ((2387 . 5625) (/ -1073741824 1073741822) -> -536870912/536870911) ((2388 . 5625) (/ -1073741824 1073741823) -> -1073741824/1073741823) ((2389 . 5625) (/ -1073741824 1073741824) -> -1) ((2390 . 5625) (/ -1073741824 1073741825) -> -1073741824/1073741825) ((2391 . 5625) (/ -1073741823 1073741821) -> -1073741823/1073741821) ((2392 . 5625) (/ -1073741823 1073741822) -> -1073741823/1073741822) ((2393 . 5625) (/ -1073741823 1073741823) -> -1) ((2394 . 5625) (/ -1073741823 1073741824) -> -1073741823/1073741824) ((2395 . 5625) (/ -1073741823 1073741825) -> -1073741823/1073741825) ((2396 . 5625) (/ -1073741822 1073741821) -> -1073741822/1073741821) ((2397 . 5625) (/ -1073741822 1073741822) -> -1) ((2398 . 5625) (/ -1073741822 1073741823) -> -1073741822/1073741823) ((2399 . 5625) (/ -1073741822 1073741824) -> -536870911/536870912) ((2400 . 5625) (/ -1073741822 1073741825) -> -1073741822/1073741825) ((2401 . 5625) (/ -1073741826 -1073741826) -> 1) ((2402 . 5625) (/ -1073741826 -1073741825) -> 1073741826/1073741825) ((2403 . 5625) (/ -1073741826 -1073741824) -> 536870913/536870912) ((2404 . 5625) (/ -1073741826 -1073741823) -> 357913942/357913941) ((2405 . 5625) (/ -1073741826 -1073741822) -> 536870913/536870911) ((2406 . 5625) (/ -1073741825 -1073741826) -> 1073741825/1073741826) ((2407 . 5625) (/ -1073741825 -1073741825) -> 1) ((2408 . 5625) (/ -1073741825 -1073741824) -> 1073741825/1073741824) ((2409 . 5625) (/ -1073741825 -1073741823) -> 1073741825/1073741823) ((2410 . 5625) (/ -1073741825 -1073741822) -> 1073741825/1073741822) ((2411 . 5625) (/ -1073741824 -1073741826) -> 536870912/536870913) ((2412 . 5625) (/ -1073741824 -1073741825) -> 1073741824/1073741825) ((2413 . 5625) (/ -1073741824 -1073741824) -> 1) ((2414 . 5625) (/ -1073741824 -1073741823) -> 1073741824/1073741823) ((2415 . 5625) (/ -1073741824 -1073741822) -> 536870912/536870911) ((2416 . 5625) (/ -1073741823 -1073741826) -> 357913941/357913942) ((2417 . 5625) (/ -1073741823 -1073741825) -> 1073741823/1073741825) ((2418 . 5625) (/ -1073741823 -1073741824) -> 1073741823/1073741824) ((2419 . 5625) (/ -1073741823 -1073741823) -> 1) ((2420 . 5625) (/ -1073741823 -1073741822) -> 1073741823/1073741822) ((2421 . 5625) (/ -1073741822 -1073741826) -> 536870911/536870913) ((2422 . 5625) (/ -1073741822 -1073741825) -> 1073741822/1073741825) ((2423 . 5625) (/ -1073741822 -1073741824) -> 536870911/536870912) ((2424 . 5625) (/ -1073741822 -1073741823) -> 1073741822/1073741823) ((2425 . 5625) (/ -1073741822 -1073741822) -> 1) ((2426 . 5625) (/ -1073741826 1073741822) -> -536870913/536870911) ((2427 . 5625) (/ -1073741826 1073741823) -> -357913942/357913941) ((2428 . 5625) (/ -1073741826 1073741824) -> -536870913/536870912) ((2429 . 5625) (/ -1073741826 1073741825) -> -1073741826/1073741825) ((2430 . 5625) (/ -1073741826 1073741826) -> -1) ((2431 . 5625) (/ -1073741825 1073741822) -> -1073741825/1073741822) ((2432 . 5625) (/ -1073741825 1073741823) -> -1073741825/1073741823) ((2433 . 5625) (/ -1073741825 1073741824) -> -1073741825/1073741824) ((2434 . 5625) (/ -1073741825 1073741825) -> -1) ((2435 . 5625) (/ -1073741825 1073741826) -> -1073741825/1073741826) ((2436 . 5625) (/ -1073741824 1073741822) -> -536870912/536870911) ((2437 . 5625) (/ -1073741824 1073741823) -> -1073741824/1073741823) ((2438 . 5625) (/ -1073741824 1073741824) -> -1) ((2439 . 5625) (/ -1073741824 1073741825) -> -1073741824/1073741825) ((2440 . 5625) (/ -1073741824 1073741826) -> -536870912/536870913) ((2441 . 5625) (/ -1073741823 1073741822) -> -1073741823/1073741822) ((2442 . 5625) (/ -1073741823 1073741823) -> -1) ((2443 . 5625) (/ -1073741823 1073741824) -> -1073741823/1073741824) ((2444 . 5625) (/ -1073741823 1073741825) -> -1073741823/1073741825) ((2445 . 5625) (/ -1073741823 1073741826) -> -357913941/357913942) ((2446 . 5625) (/ -1073741822 1073741822) -> -1) ((2447 . 5625) (/ -1073741822 1073741823) -> -1073741822/1073741823) ((2448 . 5625) (/ -1073741822 1073741824) -> -536870911/536870912) ((2449 . 5625) (/ -1073741822 1073741825) -> -1073741822/1073741825) ((2450 . 5625) (/ -1073741822 1073741826) -> -536870911/536870913) ((2451 . 5625) (/ -1073741826 -1073741827) -> 1073741826/1073741827) ((2452 . 5625) (/ -1073741826 -1073741826) -> 1) ((2453 . 5625) (/ -1073741826 -1073741825) -> 1073741826/1073741825) ((2454 . 5625) (/ -1073741826 -1073741824) -> 536870913/536870912) ((2455 . 5625) (/ -1073741826 -1073741823) -> 357913942/357913941) ((2456 . 5625) (/ -1073741825 -1073741827) -> 1073741825/1073741827) ((2457 . 5625) (/ -1073741825 -1073741826) -> 1073741825/1073741826) ((2458 . 5625) (/ -1073741825 -1073741825) -> 1) ((2459 . 5625) (/ -1073741825 -1073741824) -> 1073741825/1073741824) ((2460 . 5625) (/ -1073741825 -1073741823) -> 1073741825/1073741823) ((2461 . 5625) (/ -1073741824 -1073741827) -> 1073741824/1073741827) ((2462 . 5625) (/ -1073741824 -1073741826) -> 536870912/536870913) ((2463 . 5625) (/ -1073741824 -1073741825) -> 1073741824/1073741825) ((2464 . 5625) (/ -1073741824 -1073741824) -> 1) ((2465 . 5625) (/ -1073741824 -1073741823) -> 1073741824/1073741823) ((2466 . 5625) (/ -1073741823 -1073741827) -> 1073741823/1073741827) ((2467 . 5625) (/ -1073741823 -1073741826) -> 357913941/357913942) ((2468 . 5625) (/ -1073741823 -1073741825) -> 1073741823/1073741825) ((2469 . 5625) (/ -1073741823 -1073741824) -> 1073741823/1073741824) ((2470 . 5625) (/ -1073741823 -1073741823) -> 1) ((2471 . 5625) (/ -1073741822 -1073741827) -> 1073741822/1073741827) ((2472 . 5625) (/ -1073741822 -1073741826) -> 536870911/536870913) ((2473 . 5625) (/ -1073741822 -1073741825) -> 1073741822/1073741825) ((2474 . 5625) (/ -1073741822 -1073741824) -> 536870911/536870912) ((2475 . 5625) (/ -1073741822 -1073741823) -> 1073741822/1073741823) ((2476 . 5625) (/ -1073741826 1103515243) -> -1073741826/1103515243) ((2477 . 5625) (/ -1073741826 1103515244) -> -536870913/551757622) ((2478 . 5625) (/ -1073741826 1103515245) -> -357913942/367838415) ((2479 . 5625) (/ -1073741826 1103515246) -> -536870913/551757623) ((2480 . 5625) (/ -1073741826 1103515247) -> -1073741826/1103515247) ((2481 . 5625) (/ -1073741825 1103515243) -> -1073741825/1103515243) ((2482 . 5625) (/ -1073741825 1103515244) -> -82595525/84885788) ((2483 . 5625) (/ -1073741825 1103515245) -> -214748365/220703049) ((2484 . 5625) (/ -1073741825 1103515246) -> -26188825/26915006) ((2485 . 5625) (/ -1073741825 1103515247) -> -1073741825/1103515247) ((2486 . 5625) (/ -1073741824 1103515243) -> -1073741824/1103515243) ((2487 . 5625) (/ -1073741824 1103515244) -> -268435456/275878811) ((2488 . 5625) (/ -1073741824 1103515245) -> -1073741824/1103515245) ((2489 . 5625) (/ -1073741824 1103515246) -> -536870912/551757623) ((2490 . 5625) (/ -1073741824 1103515247) -> -1073741824/1103515247) ((2491 . 5625) (/ -1073741823 1103515243) -> -1073741823/1103515243) ((2492 . 5625) (/ -1073741823 1103515244) -> -1073741823/1103515244) ((2493 . 5625) (/ -1073741823 1103515245) -> -17043521/17516115) ((2494 . 5625) (/ -1073741823 1103515246) -> -34636833/35597266) ((2495 . 5625) (/ -1073741823 1103515247) -> -1073741823/1103515247) ((2496 . 5625) (/ -1073741822 1103515243) -> -1073741822/1103515243) ((2497 . 5625) (/ -1073741822 1103515244) -> -536870911/551757622) ((2498 . 5625) (/ -1073741822 1103515245) -> -1073741822/1103515245) ((2499 . 5625) (/ -1073741822 1103515246) -> -536870911/551757623) ((2500 . 5625) (/ -1073741822 1103515247) -> -1073741822/1103515247) ((2501 . 5625) (/ -1073741826 631629063) -> -357913942/210543021) ((2502 . 5625) (/ -1073741826 631629064) -> -536870913/315814532) ((2503 . 5625) (/ -1073741826 631629065) -> -1073741826/631629065) ((2504 . 5625) (/ -1073741826 631629066) -> -178956971/105271511) ((2505 . 5625) (/ -1073741826 631629067) -> -1073741826/631629067) ((2506 . 5625) (/ -1073741825 631629063) -> -82595525/48586851) ((2507 . 5625) (/ -1073741825 631629064) -> -1073741825/631629064) ((2508 . 5625) (/ -1073741825 631629065) -> -214748365/126325813) ((2509 . 5625) (/ -1073741825 631629066) -> -1073741825/631629066) ((2510 . 5625) (/ -1073741825 631629067) -> -26188825/15405587) ((2511 . 5625) (/ -1073741824 631629063) -> -1073741824/631629063) ((2512 . 5625) (/ -1073741824 631629064) -> -134217728/78953633) ((2513 . 5625) (/ -1073741824 631629065) -> -1073741824/631629065) ((2514 . 5625) (/ -1073741824 631629066) -> -536870912/315814533) ((2515 . 5625) (/ -1073741824 631629067) -> -1073741824/631629067) ((2516 . 5625) (/ -1073741823 631629063) -> -119304647/70181007) ((2517 . 5625) (/ -1073741823 631629064) -> -97612893/57420824) ((2518 . 5625) (/ -1073741823 631629065) -> -1073741823/631629065) ((2519 . 5625) (/ -1073741823 631629066) -> -357913941/210543022) ((2520 . 5625) (/ -1073741823 631629067) -> -1073741823/631629067) ((2521 . 5625) (/ -1073741822 631629063) -> -1073741822/631629063) ((2522 . 5625) (/ -1073741822 631629064) -> -536870911/315814532) ((2523 . 5625) (/ -1073741822 631629065) -> -1073741822/631629065) ((2524 . 5625) (/ -1073741822 631629066) -> -536870911/315814533) ((2525 . 5625) (/ -1073741822 631629067) -> -1073741822/631629067) ((2526 . 5625) (/ -1073741826 9007199254740990) -> -178956971/1501199875790165) ((2527 . 5625) (/ -1073741826 9007199254740991) -> -1073741826/9007199254740991) ((2528 . 5625) (/ -1073741826 9007199254740992) -> -536870913/4503599627370496) ((2529 . 5625) (/ -1073741826 9007199254740993) -> -357913942/3002399751580331) ((2530 . 5625) (/ -1073741826 9007199254740994) -> -536870913/4503599627370497) ((2531 . 5625) (/ -1073741825 9007199254740990) -> -214748365/1801439850948198) ((2532 . 5625) (/ -1073741825 9007199254740991) -> -1073741825/9007199254740991) ((2533 . 5625) (/ -1073741825 9007199254740992) -> -1073741825/9007199254740992) ((2534 . 5625) (/ -1073741825 9007199254740993) -> -1073741825/9007199254740993) ((2535 . 5625) (/ -1073741825 9007199254740994) -> -1073741825/9007199254740994) ((2536 . 5625) (/ -1073741824 9007199254740990) -> -536870912/4503599627370495) ((2537 . 5625) (/ -1073741824 9007199254740991) -> -1073741824/9007199254740991) ((2538 . 5625) (/ -1073741824 9007199254740992) -> -1/8388608) ((2539 . 5625) (/ -1073741824 9007199254740993) -> -1073741824/9007199254740993) ((2540 . 5625) (/ -1073741824 9007199254740994) -> -536870912/4503599627370497) ((2541 . 5625) (/ -1073741823 9007199254740990) -> -357913941/3002399751580330) ((2542 . 5625) (/ -1073741823 9007199254740991) -> -1073741823/9007199254740991) ((2543 . 5625) (/ -1073741823 9007199254740992) -> -1073741823/9007199254740992) ((2544 . 5625) (/ -1073741823 9007199254740993) -> -357913941/3002399751580331) ((2545 . 5625) (/ -1073741823 9007199254740994) -> -1073741823/9007199254740994) ((2546 . 5625) (/ -1073741822 9007199254740990) -> -536870911/4503599627370495) ((2547 . 5625) (/ -1073741822 9007199254740991) -> -1073741822/9007199254740991) ((2548 . 5625) (/ -1073741822 9007199254740992) -> -536870911/4503599627370496) ((2549 . 5625) (/ -1073741822 9007199254740993) -> -1073741822/9007199254740993) ((2550 . 5625) (/ -1073741822 9007199254740994) -> -536870911/4503599627370497) ((2551 . 5625) (/ -1073741826 -9007199254740994) -> 536870913/4503599627370497) ((2552 . 5625) (/ -1073741826 -9007199254740993) -> 357913942/3002399751580331) ((2553 . 5625) (/ -1073741826 -9007199254740992) -> 536870913/4503599627370496) ((2554 . 5625) (/ -1073741826 -9007199254740991) -> 1073741826/9007199254740991) ((2555 . 5625) (/ -1073741826 -9007199254740990) -> 178956971/1501199875790165) ((2556 . 5625) (/ -1073741825 -9007199254740994) -> 1073741825/9007199254740994) ((2557 . 5625) (/ -1073741825 -9007199254740993) -> 1073741825/9007199254740993) ((2558 . 5625) (/ -1073741825 -9007199254740992) -> 1073741825/9007199254740992) ((2559 . 5625) (/ -1073741825 -9007199254740991) -> 1073741825/9007199254740991) ((2560 . 5625) (/ -1073741825 -9007199254740990) -> 214748365/1801439850948198) ((2561 . 5625) (/ -1073741824 -9007199254740994) -> 536870912/4503599627370497) ((2562 . 5625) (/ -1073741824 -9007199254740993) -> 1073741824/9007199254740993) ((2563 . 5625) (/ -1073741824 -9007199254740992) -> 1/8388608) ((2564 . 5625) (/ -1073741824 -9007199254740991) -> 1073741824/9007199254740991) ((2565 . 5625) (/ -1073741824 -9007199254740990) -> 536870912/4503599627370495) ((2566 . 5625) (/ -1073741823 -9007199254740994) -> 1073741823/9007199254740994) ((2567 . 5625) (/ -1073741823 -9007199254740993) -> 357913941/3002399751580331) ((2568 . 5625) (/ -1073741823 -9007199254740992) -> 1073741823/9007199254740992) ((2569 . 5625) (/ -1073741823 -9007199254740991) -> 1073741823/9007199254740991) ((2570 . 5625) (/ -1073741823 -9007199254740990) -> 357913941/3002399751580330) ((2571 . 5625) (/ -1073741822 -9007199254740994) -> 536870911/4503599627370497) ((2572 . 5625) (/ -1073741822 -9007199254740993) -> 1073741822/9007199254740993) ((2573 . 5625) (/ -1073741822 -9007199254740992) -> 536870911/4503599627370496) ((2574 . 5625) (/ -1073741822 -9007199254740991) -> 1073741822/9007199254740991) ((2575 . 5625) (/ -1073741822 -9007199254740990) -> 536870911/4503599627370495) ((2576 . 5625) (/ -1073741826 12343) -> -1073741826/12343) ((2577 . 5625) (/ -1073741826 12344) -> -536870913/6172) ((2578 . 5625) (/ -1073741826 12345) -> -357913942/4115) ((2579 . 5625) (/ -1073741826 12346) -> -536870913/6173) ((2580 . 5625) (/ -1073741826 12347) -> -1073741826/12347) ((2581 . 5625) (/ -1073741825 12343) -> -1073741825/12343) ((2582 . 5625) (/ -1073741825 12344) -> -1073741825/12344) ((2583 . 5625) (/ -1073741825 12345) -> -214748365/2469) ((2584 . 5625) (/ -1073741825 12346) -> -1073741825/12346) ((2585 . 5625) (/ -1073741825 12347) -> -1073741825/12347) ((2586 . 5625) (/ -1073741824 12343) -> -1073741824/12343) ((2587 . 5625) (/ -1073741824 12344) -> -134217728/1543) ((2588 . 5625) (/ -1073741824 12345) -> -1073741824/12345) ((2589 . 5625) (/ -1073741824 12346) -> -536870912/6173) ((2590 . 5625) (/ -1073741824 12347) -> -1073741824/12347) ((2591 . 5625) (/ -1073741823 12343) -> -1073741823/12343) ((2592 . 5625) (/ -1073741823 12344) -> -1073741823/12344) ((2593 . 5625) (/ -1073741823 12345) -> -357913941/4115) ((2594 . 5625) (/ -1073741823 12346) -> -1073741823/12346) ((2595 . 5625) (/ -1073741823 12347) -> -1073741823/12347) ((2596 . 5625) (/ -1073741822 12343) -> -1073741822/12343) ((2597 . 5625) (/ -1073741822 12344) -> -536870911/6172) ((2598 . 5625) (/ -1073741822 12345) -> -1073741822/12345) ((2599 . 5625) (/ -1073741822 12346) -> -536870911/6173) ((2600 . 5625) (/ -1073741822 12347) -> -1073741822/12347) ((2601 . 5625) (/ -1073741826 4294967294) -> -536870913/2147483647) ((2602 . 5625) (/ -1073741826 4294967295) -> -357913942/1431655765) ((2603 . 5625) (/ -1073741826 4294967296) -> -536870913/2147483648) ((2604 . 5625) (/ -1073741826 4294967297) -> -1073741826/4294967297) ((2605 . 5625) (/ -1073741826 4294967298) -> -178956971/715827883) ((2606 . 5625) (/ -1073741825 4294967294) -> -1073741825/4294967294) ((2607 . 5625) (/ -1073741825 4294967295) -> -214748365/858993459) ((2608 . 5625) (/ -1073741825 4294967296) -> -1073741825/4294967296) ((2609 . 5625) (/ -1073741825 4294967297) -> -1073741825/4294967297) ((2610 . 5625) (/ -1073741825 4294967298) -> -1073741825/4294967298) ((2611 . 5625) (/ -1073741824 4294967294) -> -536870912/2147483647) ((2612 . 5625) (/ -1073741824 4294967295) -> -1073741824/4294967295) ((2613 . 5625) (/ -1073741824 4294967296) -> -1/4) ((2614 . 5625) (/ -1073741824 4294967297) -> -1073741824/4294967297) ((2615 . 5625) (/ -1073741824 4294967298) -> -536870912/2147483649) ((2616 . 5625) (/ -1073741823 4294967294) -> -1073741823/4294967294) ((2617 . 5625) (/ -1073741823 4294967295) -> -357913941/1431655765) ((2618 . 5625) (/ -1073741823 4294967296) -> -1073741823/4294967296) ((2619 . 5625) (/ -1073741823 4294967297) -> -1073741823/4294967297) ((2620 . 5625) (/ -1073741823 4294967298) -> -357913941/1431655766) ((2621 . 5625) (/ -1073741822 4294967294) -> -536870911/2147483647) ((2622 . 5625) (/ -1073741822 4294967295) -> -1073741822/4294967295) ((2623 . 5625) (/ -1073741822 4294967296) -> -536870911/2147483648) ((2624 . 5625) (/ -1073741822 4294967297) -> -1073741822/4294967297) ((2625 . 5625) (/ -1073741822 4294967298) -> -536870911/2147483649) ((2626 . 5625) (/ 1073741822 -2) -> -536870911) ((2627 . 5625) (/ 1073741822 -1) -> -1073741822) ((2628 . 5625) (/ 1073741822 0) -> "division by zero") ((2629 . 5625) (/ 1073741822 1) -> 1073741822) ((2630 . 5625) (/ 1073741822 2) -> 536870911) ((2631 . 5625) (/ 1073741823 -2) -> -1073741823/2) ((2632 . 5625) (/ 1073741823 -1) -> -1073741823) ((2633 . 5625) (/ 1073741823 0) -> "division by zero") ((2634 . 5625) (/ 1073741823 1) -> 1073741823) ((2635 . 5625) (/ 1073741823 2) -> 1073741823/2) ((2636 . 5625) (/ 1073741824 -2) -> -536870912) ((2637 . 5625) (/ 1073741824 -1) -> -1073741824) ((2638 . 5625) (/ 1073741824 0) -> "division by zero") ((2639 . 5625) (/ 1073741824 1) -> 1073741824) ((2640 . 5625) (/ 1073741824 2) -> 536870912) ((2641 . 5625) (/ 1073741825 -2) -> -1073741825/2) ((2642 . 5625) (/ 1073741825 -1) -> -1073741825) ((2643 . 5625) (/ 1073741825 0) -> "division by zero") ((2644 . 5625) (/ 1073741825 1) -> 1073741825) ((2645 . 5625) (/ 1073741825 2) -> 1073741825/2) ((2646 . 5625) (/ 1073741826 -2) -> -536870913) ((2647 . 5625) (/ 1073741826 -1) -> -1073741826) ((2648 . 5625) (/ 1073741826 0) -> "division by zero") ((2649 . 5625) (/ 1073741826 1) -> 1073741826) ((2650 . 5625) (/ 1073741826 2) -> 536870913) ((2651 . 5625) (/ 1073741822 -1) -> -1073741822) ((2652 . 5625) (/ 1073741822 0) -> "division by zero") ((2653 . 5625) (/ 1073741822 1) -> 1073741822) ((2654 . 5625) (/ 1073741822 2) -> 536870911) ((2655 . 5625) (/ 1073741822 3) -> 1073741822/3) ((2656 . 5625) (/ 1073741823 -1) -> -1073741823) ((2657 . 5625) (/ 1073741823 0) -> "division by zero") ((2658 . 5625) (/ 1073741823 1) -> 1073741823) ((2659 . 5625) (/ 1073741823 2) -> 1073741823/2) ((2660 . 5625) (/ 1073741823 3) -> 357913941) ((2661 . 5625) (/ 1073741824 -1) -> -1073741824) ((2662 . 5625) (/ 1073741824 0) -> "division by zero") ((2663 . 5625) (/ 1073741824 1) -> 1073741824) ((2664 . 5625) (/ 1073741824 2) -> 536870912) ((2665 . 5625) (/ 1073741824 3) -> 1073741824/3) ((2666 . 5625) (/ 1073741825 -1) -> -1073741825) ((2667 . 5625) (/ 1073741825 0) -> "division by zero") ((2668 . 5625) (/ 1073741825 1) -> 1073741825) ((2669 . 5625) (/ 1073741825 2) -> 1073741825/2) ((2670 . 5625) (/ 1073741825 3) -> 1073741825/3) ((2671 . 5625) (/ 1073741826 -1) -> -1073741826) ((2672 . 5625) (/ 1073741826 0) -> "division by zero") ((2673 . 5625) (/ 1073741826 1) -> 1073741826) ((2674 . 5625) (/ 1073741826 2) -> 536870913) ((2675 . 5625) (/ 1073741826 3) -> 357913942) ((2676 . 5625) (/ 1073741822 -3) -> -1073741822/3) ((2677 . 5625) (/ 1073741822 -2) -> -536870911) ((2678 . 5625) (/ 1073741822 -1) -> -1073741822) ((2679 . 5625) (/ 1073741822 0) -> "division by zero") ((2680 . 5625) (/ 1073741822 1) -> 1073741822) ((2681 . 5625) (/ 1073741823 -3) -> -357913941) ((2682 . 5625) (/ 1073741823 -2) -> -1073741823/2) ((2683 . 5625) (/ 1073741823 -1) -> -1073741823) ((2684 . 5625) (/ 1073741823 0) -> "division by zero") ((2685 . 5625) (/ 1073741823 1) -> 1073741823) ((2686 . 5625) (/ 1073741824 -3) -> -1073741824/3) ((2687 . 5625) (/ 1073741824 -2) -> -536870912) ((2688 . 5625) (/ 1073741824 -1) -> -1073741824) ((2689 . 5625) (/ 1073741824 0) -> "division by zero") ((2690 . 5625) (/ 1073741824 1) -> 1073741824) ((2691 . 5625) (/ 1073741825 -3) -> -1073741825/3) ((2692 . 5625) (/ 1073741825 -2) -> -1073741825/2) ((2693 . 5625) (/ 1073741825 -1) -> -1073741825) ((2694 . 5625) (/ 1073741825 0) -> "division by zero") ((2695 . 5625) (/ 1073741825 1) -> 1073741825) ((2696 . 5625) (/ 1073741826 -3) -> -357913942) ((2697 . 5625) (/ 1073741826 -2) -> -536870913) ((2698 . 5625) (/ 1073741826 -1) -> -1073741826) ((2699 . 5625) (/ 1073741826 0) -> "division by zero") ((2700 . 5625) (/ 1073741826 1) -> 1073741826) ((2701 . 5625) (/ 1073741822 0) -> "division by zero") ((2702 . 5625) (/ 1073741822 1) -> 1073741822) ((2703 . 5625) (/ 1073741822 2) -> 536870911) ((2704 . 5625) (/ 1073741822 3) -> 1073741822/3) ((2705 . 5625) (/ 1073741822 4) -> 536870911/2) ((2706 . 5625) (/ 1073741823 0) -> "division by zero") ((2707 . 5625) (/ 1073741823 1) -> 1073741823) ((2708 . 5625) (/ 1073741823 2) -> 1073741823/2) ((2709 . 5625) (/ 1073741823 3) -> 357913941) ((2710 . 5625) (/ 1073741823 4) -> 1073741823/4) ((2711 . 5625) (/ 1073741824 0) -> "division by zero") ((2712 . 5625) (/ 1073741824 1) -> 1073741824) ((2713 . 5625) (/ 1073741824 2) -> 536870912) ((2714 . 5625) (/ 1073741824 3) -> 1073741824/3) ((2715 . 5625) (/ 1073741824 4) -> 268435456) ((2716 . 5625) (/ 1073741825 0) -> "division by zero") ((2717 . 5625) (/ 1073741825 1) -> 1073741825) ((2718 . 5625) (/ 1073741825 2) -> 1073741825/2) ((2719 . 5625) (/ 1073741825 3) -> 1073741825/3) ((2720 . 5625) (/ 1073741825 4) -> 1073741825/4) ((2721 . 5625) (/ 1073741826 0) -> "division by zero") ((2722 . 5625) (/ 1073741826 1) -> 1073741826) ((2723 . 5625) (/ 1073741826 2) -> 536870913) ((2724 . 5625) (/ 1073741826 3) -> 357913942) ((2725 . 5625) (/ 1073741826 4) -> 536870913/2) ((2726 . 5625) (/ 1073741822 -4) -> -536870911/2) ((2727 . 5625) (/ 1073741822 -3) -> -1073741822/3) ((2728 . 5625) (/ 1073741822 -2) -> -536870911) ((2729 . 5625) (/ 1073741822 -1) -> -1073741822) ((2730 . 5625) (/ 1073741822 0) -> "division by zero") ((2731 . 5625) (/ 1073741823 -4) -> -1073741823/4) ((2732 . 5625) (/ 1073741823 -3) -> -357913941) ((2733 . 5625) (/ 1073741823 -2) -> -1073741823/2) ((2734 . 5625) (/ 1073741823 -1) -> -1073741823) ((2735 . 5625) (/ 1073741823 0) -> "division by zero") ((2736 . 5625) (/ 1073741824 -4) -> -268435456) ((2737 . 5625) (/ 1073741824 -3) -> -1073741824/3) ((2738 . 5625) (/ 1073741824 -2) -> -536870912) ((2739 . 5625) (/ 1073741824 -1) -> -1073741824) ((2740 . 5625) (/ 1073741824 0) -> "division by zero") ((2741 . 5625) (/ 1073741825 -4) -> -1073741825/4) ((2742 . 5625) (/ 1073741825 -3) -> -1073741825/3) ((2743 . 5625) (/ 1073741825 -2) -> -1073741825/2) ((2744 . 5625) (/ 1073741825 -1) -> -1073741825) ((2745 . 5625) (/ 1073741825 0) -> "division by zero") ((2746 . 5625) (/ 1073741826 -4) -> -536870913/2) ((2747 . 5625) (/ 1073741826 -3) -> -357913942) ((2748 . 5625) (/ 1073741826 -2) -> -536870913) ((2749 . 5625) (/ 1073741826 -1) -> -1073741826) ((2750 . 5625) (/ 1073741826 0) -> "division by zero") ((2751 . 5625) (/ 1073741822 1073741821) -> 1073741822/1073741821) ((2752 . 5625) (/ 1073741822 1073741822) -> 1) ((2753 . 5625) (/ 1073741822 1073741823) -> 1073741822/1073741823) ((2754 . 5625) (/ 1073741822 1073741824) -> 536870911/536870912) ((2755 . 5625) (/ 1073741822 1073741825) -> 1073741822/1073741825) ((2756 . 5625) (/ 1073741823 1073741821) -> 1073741823/1073741821) ((2757 . 5625) (/ 1073741823 1073741822) -> 1073741823/1073741822) ((2758 . 5625) (/ 1073741823 1073741823) -> 1) ((2759 . 5625) (/ 1073741823 1073741824) -> 1073741823/1073741824) ((2760 . 5625) (/ 1073741823 1073741825) -> 1073741823/1073741825) ((2761 . 5625) (/ 1073741824 1073741821) -> 1073741824/1073741821) ((2762 . 5625) (/ 1073741824 1073741822) -> 536870912/536870911) ((2763 . 5625) (/ 1073741824 1073741823) -> 1073741824/1073741823) ((2764 . 5625) (/ 1073741824 1073741824) -> 1) ((2765 . 5625) (/ 1073741824 1073741825) -> 1073741824/1073741825) ((2766 . 5625) (/ 1073741825 1073741821) -> 1073741825/1073741821) ((2767 . 5625) (/ 1073741825 1073741822) -> 1073741825/1073741822) ((2768 . 5625) (/ 1073741825 1073741823) -> 1073741825/1073741823) ((2769 . 5625) (/ 1073741825 1073741824) -> 1073741825/1073741824) ((2770 . 5625) (/ 1073741825 1073741825) -> 1) ((2771 . 5625) (/ 1073741826 1073741821) -> 1073741826/1073741821) ((2772 . 5625) (/ 1073741826 1073741822) -> 536870913/536870911) ((2773 . 5625) (/ 1073741826 1073741823) -> 357913942/357913941) ((2774 . 5625) (/ 1073741826 1073741824) -> 536870913/536870912) ((2775 . 5625) (/ 1073741826 1073741825) -> 1073741826/1073741825) ((2776 . 5625) (/ 1073741822 -1073741826) -> -536870911/536870913) ((2777 . 5625) (/ 1073741822 -1073741825) -> -1073741822/1073741825) ((2778 . 5625) (/ 1073741822 -1073741824) -> -536870911/536870912) ((2779 . 5625) (/ 1073741822 -1073741823) -> -1073741822/1073741823) ((2780 . 5625) (/ 1073741822 -1073741822) -> -1) ((2781 . 5625) (/ 1073741823 -1073741826) -> -357913941/357913942) ((2782 . 5625) (/ 1073741823 -1073741825) -> -1073741823/1073741825) ((2783 . 5625) (/ 1073741823 -1073741824) -> -1073741823/1073741824) ((2784 . 5625) (/ 1073741823 -1073741823) -> -1) ((2785 . 5625) (/ 1073741823 -1073741822) -> -1073741823/1073741822) ((2786 . 5625) (/ 1073741824 -1073741826) -> -536870912/536870913) ((2787 . 5625) (/ 1073741824 -1073741825) -> -1073741824/1073741825) ((2788 . 5625) (/ 1073741824 -1073741824) -> -1) ((2789 . 5625) (/ 1073741824 -1073741823) -> -1073741824/1073741823) ((2790 . 5625) (/ 1073741824 -1073741822) -> -536870912/536870911) ((2791 . 5625) (/ 1073741825 -1073741826) -> -1073741825/1073741826) ((2792 . 5625) (/ 1073741825 -1073741825) -> -1) ((2793 . 5625) (/ 1073741825 -1073741824) -> -1073741825/1073741824) ((2794 . 5625) (/ 1073741825 -1073741823) -> -1073741825/1073741823) ((2795 . 5625) (/ 1073741825 -1073741822) -> -1073741825/1073741822) ((2796 . 5625) (/ 1073741826 -1073741826) -> -1) ((2797 . 5625) (/ 1073741826 -1073741825) -> -1073741826/1073741825) ((2798 . 5625) (/ 1073741826 -1073741824) -> -536870913/536870912) ((2799 . 5625) (/ 1073741826 -1073741823) -> -357913942/357913941) ((2800 . 5625) (/ 1073741826 -1073741822) -> -536870913/536870911) ((2801 . 5625) (/ 1073741822 1073741822) -> 1) ((2802 . 5625) (/ 1073741822 1073741823) -> 1073741822/1073741823) ((2803 . 5625) (/ 1073741822 1073741824) -> 536870911/536870912) ((2804 . 5625) (/ 1073741822 1073741825) -> 1073741822/1073741825) ((2805 . 5625) (/ 1073741822 1073741826) -> 536870911/536870913) ((2806 . 5625) (/ 1073741823 1073741822) -> 1073741823/1073741822) ((2807 . 5625) (/ 1073741823 1073741823) -> 1) ((2808 . 5625) (/ 1073741823 1073741824) -> 1073741823/1073741824) ((2809 . 5625) (/ 1073741823 1073741825) -> 1073741823/1073741825) ((2810 . 5625) (/ 1073741823 1073741826) -> 357913941/357913942) ((2811 . 5625) (/ 1073741824 1073741822) -> 536870912/536870911) ((2812 . 5625) (/ 1073741824 1073741823) -> 1073741824/1073741823) ((2813 . 5625) (/ 1073741824 1073741824) -> 1) ((2814 . 5625) (/ 1073741824 1073741825) -> 1073741824/1073741825) ((2815 . 5625) (/ 1073741824 1073741826) -> 536870912/536870913) ((2816 . 5625) (/ 1073741825 1073741822) -> 1073741825/1073741822) ((2817 . 5625) (/ 1073741825 1073741823) -> 1073741825/1073741823) ((2818 . 5625) (/ 1073741825 1073741824) -> 1073741825/1073741824) ((2819 . 5625) (/ 1073741825 1073741825) -> 1) ((2820 . 5625) (/ 1073741825 1073741826) -> 1073741825/1073741826) ((2821 . 5625) (/ 1073741826 1073741822) -> 536870913/536870911) ((2822 . 5625) (/ 1073741826 1073741823) -> 357913942/357913941) ((2823 . 5625) (/ 1073741826 1073741824) -> 536870913/536870912) ((2824 . 5625) (/ 1073741826 1073741825) -> 1073741826/1073741825) ((2825 . 5625) (/ 1073741826 1073741826) -> 1) ((2826 . 5625) (/ 1073741822 -1073741827) -> -1073741822/1073741827) ((2827 . 5625) (/ 1073741822 -1073741826) -> -536870911/536870913) ((2828 . 5625) (/ 1073741822 -1073741825) -> -1073741822/1073741825) ((2829 . 5625) (/ 1073741822 -1073741824) -> -536870911/536870912) ((2830 . 5625) (/ 1073741822 -1073741823) -> -1073741822/1073741823) ((2831 . 5625) (/ 1073741823 -1073741827) -> -1073741823/1073741827) ((2832 . 5625) (/ 1073741823 -1073741826) -> -357913941/357913942) ((2833 . 5625) (/ 1073741823 -1073741825) -> -1073741823/1073741825) ((2834 . 5625) (/ 1073741823 -1073741824) -> -1073741823/1073741824) ((2835 . 5625) (/ 1073741823 -1073741823) -> -1) ((2836 . 5625) (/ 1073741824 -1073741827) -> -1073741824/1073741827) ((2837 . 5625) (/ 1073741824 -1073741826) -> -536870912/536870913) ((2838 . 5625) (/ 1073741824 -1073741825) -> -1073741824/1073741825) ((2839 . 5625) (/ 1073741824 -1073741824) -> -1) ((2840 . 5625) (/ 1073741824 -1073741823) -> -1073741824/1073741823) ((2841 . 5625) (/ 1073741825 -1073741827) -> -1073741825/1073741827) ((2842 . 5625) (/ 1073741825 -1073741826) -> -1073741825/1073741826) ((2843 . 5625) (/ 1073741825 -1073741825) -> -1) ((2844 . 5625) (/ 1073741825 -1073741824) -> -1073741825/1073741824) ((2845 . 5625) (/ 1073741825 -1073741823) -> -1073741825/1073741823) ((2846 . 5625) (/ 1073741826 -1073741827) -> -1073741826/1073741827) ((2847 . 5625) (/ 1073741826 -1073741826) -> -1) ((2848 . 5625) (/ 1073741826 -1073741825) -> -1073741826/1073741825) ((2849 . 5625) (/ 1073741826 -1073741824) -> -536870913/536870912) ((2850 . 5625) (/ 1073741826 -1073741823) -> -357913942/357913941) ((2851 . 5625) (/ 1073741822 1103515243) -> 1073741822/1103515243) ((2852 . 5625) (/ 1073741822 1103515244) -> 536870911/551757622) ((2853 . 5625) (/ 1073741822 1103515245) -> 1073741822/1103515245) ((2854 . 5625) (/ 1073741822 1103515246) -> 536870911/551757623) ((2855 . 5625) (/ 1073741822 1103515247) -> 1073741822/1103515247) ((2856 . 5625) (/ 1073741823 1103515243) -> 1073741823/1103515243) ((2857 . 5625) (/ 1073741823 1103515244) -> 1073741823/1103515244) ((2858 . 5625) (/ 1073741823 1103515245) -> 17043521/17516115) ((2859 . 5625) (/ 1073741823 1103515246) -> 34636833/35597266) ((2860 . 5625) (/ 1073741823 1103515247) -> 1073741823/1103515247) ((2861 . 5625) (/ 1073741824 1103515243) -> 1073741824/1103515243) ((2862 . 5625) (/ 1073741824 1103515244) -> 268435456/275878811) ((2863 . 5625) (/ 1073741824 1103515245) -> 1073741824/1103515245) ((2864 . 5625) (/ 1073741824 1103515246) -> 536870912/551757623) ((2865 . 5625) (/ 1073741824 1103515247) -> 1073741824/1103515247) ((2866 . 5625) (/ 1073741825 1103515243) -> 1073741825/1103515243) ((2867 . 5625) (/ 1073741825 1103515244) -> 82595525/84885788) ((2868 . 5625) (/ 1073741825 1103515245) -> 214748365/220703049) ((2869 . 5625) (/ 1073741825 1103515246) -> 26188825/26915006) ((2870 . 5625) (/ 1073741825 1103515247) -> 1073741825/1103515247) ((2871 . 5625) (/ 1073741826 1103515243) -> 1073741826/1103515243) ((2872 . 5625) (/ 1073741826 1103515244) -> 536870913/551757622) ((2873 . 5625) (/ 1073741826 1103515245) -> 357913942/367838415) ((2874 . 5625) (/ 1073741826 1103515246) -> 536870913/551757623) ((2875 . 5625) (/ 1073741826 1103515247) -> 1073741826/1103515247) ((2876 . 5625) (/ 1073741822 631629063) -> 1073741822/631629063) ((2877 . 5625) (/ 1073741822 631629064) -> 536870911/315814532) ((2878 . 5625) (/ 1073741822 631629065) -> 1073741822/631629065) ((2879 . 5625) (/ 1073741822 631629066) -> 536870911/315814533) ((2880 . 5625) (/ 1073741822 631629067) -> 1073741822/631629067) ((2881 . 5625) (/ 1073741823 631629063) -> 119304647/70181007) ((2882 . 5625) (/ 1073741823 631629064) -> 97612893/57420824) ((2883 . 5625) (/ 1073741823 631629065) -> 1073741823/631629065) ((2884 . 5625) (/ 1073741823 631629066) -> 357913941/210543022) ((2885 . 5625) (/ 1073741823 631629067) -> 1073741823/631629067) ((2886 . 5625) (/ 1073741824 631629063) -> 1073741824/631629063) ((2887 . 5625) (/ 1073741824 631629064) -> 134217728/78953633) ((2888 . 5625) (/ 1073741824 631629065) -> 1073741824/631629065) ((2889 . 5625) (/ 1073741824 631629066) -> 536870912/315814533) ((2890 . 5625) (/ 1073741824 631629067) -> 1073741824/631629067) ((2891 . 5625) (/ 1073741825 631629063) -> 82595525/48586851) ((2892 . 5625) (/ 1073741825 631629064) -> 1073741825/631629064) ((2893 . 5625) (/ 1073741825 631629065) -> 214748365/126325813) ((2894 . 5625) (/ 1073741825 631629066) -> 1073741825/631629066) ((2895 . 5625) (/ 1073741825 631629067) -> 26188825/15405587) ((2896 . 5625) (/ 1073741826 631629063) -> 357913942/210543021) ((2897 . 5625) (/ 1073741826 631629064) -> 536870913/315814532) ((2898 . 5625) (/ 1073741826 631629065) -> 1073741826/631629065) ((2899 . 5625) (/ 1073741826 631629066) -> 178956971/105271511) ((2900 . 5625) (/ 1073741826 631629067) -> 1073741826/631629067) ((2901 . 5625) (/ 1073741822 9007199254740990) -> 536870911/4503599627370495) ((2902 . 5625) (/ 1073741822 9007199254740991) -> 1073741822/9007199254740991) ((2903 . 5625) (/ 1073741822 9007199254740992) -> 536870911/4503599627370496) ((2904 . 5625) (/ 1073741822 9007199254740993) -> 1073741822/9007199254740993) ((2905 . 5625) (/ 1073741822 9007199254740994) -> 536870911/4503599627370497) ((2906 . 5625) (/ 1073741823 9007199254740990) -> 357913941/3002399751580330) ((2907 . 5625) (/ 1073741823 9007199254740991) -> 1073741823/9007199254740991) ((2908 . 5625) (/ 1073741823 9007199254740992) -> 1073741823/9007199254740992) ((2909 . 5625) (/ 1073741823 9007199254740993) -> 357913941/3002399751580331) ((2910 . 5625) (/ 1073741823 9007199254740994) -> 1073741823/9007199254740994) ((2911 . 5625) (/ 1073741824 9007199254740990) -> 536870912/4503599627370495) ((2912 . 5625) (/ 1073741824 9007199254740991) -> 1073741824/9007199254740991) ((2913 . 5625) (/ 1073741824 9007199254740992) -> 1/8388608) ((2914 . 5625) (/ 1073741824 9007199254740993) -> 1073741824/9007199254740993) ((2915 . 5625) (/ 1073741824 9007199254740994) -> 536870912/4503599627370497) ((2916 . 5625) (/ 1073741825 9007199254740990) -> 214748365/1801439850948198) ((2917 . 5625) (/ 1073741825 9007199254740991) -> 1073741825/9007199254740991) ((2918 . 5625) (/ 1073741825 9007199254740992) -> 1073741825/9007199254740992) ((2919 . 5625) (/ 1073741825 9007199254740993) -> 1073741825/9007199254740993) ((2920 . 5625) (/ 1073741825 9007199254740994) -> 1073741825/9007199254740994) ((2921 . 5625) (/ 1073741826 9007199254740990) -> 178956971/1501199875790165) ((2922 . 5625) (/ 1073741826 9007199254740991) -> 1073741826/9007199254740991) ((2923 . 5625) (/ 1073741826 9007199254740992) -> 536870913/4503599627370496) ((2924 . 5625) (/ 1073741826 9007199254740993) -> 357913942/3002399751580331) ((2925 . 5625) (/ 1073741826 9007199254740994) -> 536870913/4503599627370497) ((2926 . 5625) (/ 1073741822 -9007199254740994) -> -536870911/4503599627370497) ((2927 . 5625) (/ 1073741822 -9007199254740993) -> -1073741822/9007199254740993) ((2928 . 5625) (/ 1073741822 -9007199254740992) -> -536870911/4503599627370496) ((2929 . 5625) (/ 1073741822 -9007199254740991) -> -1073741822/9007199254740991) ((2930 . 5625) (/ 1073741822 -9007199254740990) -> -536870911/4503599627370495) ((2931 . 5625) (/ 1073741823 -9007199254740994) -> -1073741823/9007199254740994) ((2932 . 5625) (/ 1073741823 -9007199254740993) -> -357913941/3002399751580331) ((2933 . 5625) (/ 1073741823 -9007199254740992) -> -1073741823/9007199254740992) ((2934 . 5625) (/ 1073741823 -9007199254740991) -> -1073741823/9007199254740991) ((2935 . 5625) (/ 1073741823 -9007199254740990) -> -357913941/3002399751580330) ((2936 . 5625) (/ 1073741824 -9007199254740994) -> -536870912/4503599627370497) ((2937 . 5625) (/ 1073741824 -9007199254740993) -> -1073741824/9007199254740993) ((2938 . 5625) (/ 1073741824 -9007199254740992) -> -1/8388608) ((2939 . 5625) (/ 1073741824 -9007199254740991) -> -1073741824/9007199254740991) ((2940 . 5625) (/ 1073741824 -9007199254740990) -> -536870912/4503599627370495) ((2941 . 5625) (/ 1073741825 -9007199254740994) -> -1073741825/9007199254740994) ((2942 . 5625) (/ 1073741825 -9007199254740993) -> -1073741825/9007199254740993) ((2943 . 5625) (/ 1073741825 -9007199254740992) -> -1073741825/9007199254740992) ((2944 . 5625) (/ 1073741825 -9007199254740991) -> -1073741825/9007199254740991) ((2945 . 5625) (/ 1073741825 -9007199254740990) -> -214748365/1801439850948198) ((2946 . 5625) (/ 1073741826 -9007199254740994) -> -536870913/4503599627370497) ((2947 . 5625) (/ 1073741826 -9007199254740993) -> -357913942/3002399751580331) ((2948 . 5625) (/ 1073741826 -9007199254740992) -> -536870913/4503599627370496) ((2949 . 5625) (/ 1073741826 -9007199254740991) -> -1073741826/9007199254740991) ((2950 . 5625) (/ 1073741826 -9007199254740990) -> -178956971/1501199875790165) ((2951 . 5625) (/ 1073741822 12343) -> 1073741822/12343) ((2952 . 5625) (/ 1073741822 12344) -> 536870911/6172) ((2953 . 5625) (/ 1073741822 12345) -> 1073741822/12345) ((2954 . 5625) (/ 1073741822 12346) -> 536870911/6173) ((2955 . 5625) (/ 1073741822 12347) -> 1073741822/12347) ((2956 . 5625) (/ 1073741823 12343) -> 1073741823/12343) ((2957 . 5625) (/ 1073741823 12344) -> 1073741823/12344) ((2958 . 5625) (/ 1073741823 12345) -> 357913941/4115) ((2959 . 5625) (/ 1073741823 12346) -> 1073741823/12346) ((2960 . 5625) (/ 1073741823 12347) -> 1073741823/12347) ((2961 . 5625) (/ 1073741824 12343) -> 1073741824/12343) ((2962 . 5625) (/ 1073741824 12344) -> 134217728/1543) ((2963 . 5625) (/ 1073741824 12345) -> 1073741824/12345) ((2964 . 5625) (/ 1073741824 12346) -> 536870912/6173) ((2965 . 5625) (/ 1073741824 12347) -> 1073741824/12347) ((2966 . 5625) (/ 1073741825 12343) -> 1073741825/12343) ((2967 . 5625) (/ 1073741825 12344) -> 1073741825/12344) ((2968 . 5625) (/ 1073741825 12345) -> 214748365/2469) ((2969 . 5625) (/ 1073741825 12346) -> 1073741825/12346) ((2970 . 5625) (/ 1073741825 12347) -> 1073741825/12347) ((2971 . 5625) (/ 1073741826 12343) -> 1073741826/12343) ((2972 . 5625) (/ 1073741826 12344) -> 536870913/6172) ((2973 . 5625) (/ 1073741826 12345) -> 357913942/4115) ((2974 . 5625) (/ 1073741826 12346) -> 536870913/6173) ((2975 . 5625) (/ 1073741826 12347) -> 1073741826/12347) ((2976 . 5625) (/ 1073741822 4294967294) -> 536870911/2147483647) ((2977 . 5625) (/ 1073741822 4294967295) -> 1073741822/4294967295) ((2978 . 5625) (/ 1073741822 4294967296) -> 536870911/2147483648) ((2979 . 5625) (/ 1073741822 4294967297) -> 1073741822/4294967297) ((2980 . 5625) (/ 1073741822 4294967298) -> 536870911/2147483649) ((2981 . 5625) (/ 1073741823 4294967294) -> 1073741823/4294967294) ((2982 . 5625) (/ 1073741823 4294967295) -> 357913941/1431655765) ((2983 . 5625) (/ 1073741823 4294967296) -> 1073741823/4294967296) ((2984 . 5625) (/ 1073741823 4294967297) -> 1073741823/4294967297) ((2985 . 5625) (/ 1073741823 4294967298) -> 357913941/1431655766) ((2986 . 5625) (/ 1073741824 4294967294) -> 536870912/2147483647) ((2987 . 5625) (/ 1073741824 4294967295) -> 1073741824/4294967295) ((2988 . 5625) (/ 1073741824 4294967296) -> 1/4) ((2989 . 5625) (/ 1073741824 4294967297) -> 1073741824/4294967297) ((2990 . 5625) (/ 1073741824 4294967298) -> 536870912/2147483649) ((2991 . 5625) (/ 1073741825 4294967294) -> 1073741825/4294967294) ((2992 . 5625) (/ 1073741825 4294967295) -> 214748365/858993459) ((2993 . 5625) (/ 1073741825 4294967296) -> 1073741825/4294967296) ((2994 . 5625) (/ 1073741825 4294967297) -> 1073741825/4294967297) ((2995 . 5625) (/ 1073741825 4294967298) -> 1073741825/4294967298) ((2996 . 5625) (/ 1073741826 4294967294) -> 536870913/2147483647) ((2997 . 5625) (/ 1073741826 4294967295) -> 357913942/1431655765) ((2998 . 5625) (/ 1073741826 4294967296) -> 536870913/2147483648) ((2999 . 5625) (/ 1073741826 4294967297) -> 1073741826/4294967297) ((3000 . 5625) (/ 1073741826 4294967298) -> 178956971/715827883) ((3001 . 5625) (/ -1073741827 -2) -> 1073741827/2) ((3002 . 5625) (/ -1073741827 -1) -> 1073741827) ((3003 . 5625) (/ -1073741827 0) -> "division by zero") ((3004 . 5625) (/ -1073741827 1) -> -1073741827) ((3005 . 5625) (/ -1073741827 2) -> -1073741827/2) ((3006 . 5625) (/ -1073741826 -2) -> 536870913) ((3007 . 5625) (/ -1073741826 -1) -> 1073741826) ((3008 . 5625) (/ -1073741826 0) -> "division by zero") ((3009 . 5625) (/ -1073741826 1) -> -1073741826) ((3010 . 5625) (/ -1073741826 2) -> -536870913) ((3011 . 5625) (/ -1073741825 -2) -> 1073741825/2) ((3012 . 5625) (/ -1073741825 -1) -> 1073741825) ((3013 . 5625) (/ -1073741825 0) -> "division by zero") ((3014 . 5625) (/ -1073741825 1) -> -1073741825) ((3015 . 5625) (/ -1073741825 2) -> -1073741825/2) ((3016 . 5625) (/ -1073741824 -2) -> 536870912) ((3017 . 5625) (/ -1073741824 -1) -> 1073741824) ((3018 . 5625) (/ -1073741824 0) -> "division by zero") ((3019 . 5625) (/ -1073741824 1) -> -1073741824) ((3020 . 5625) (/ -1073741824 2) -> -536870912) ((3021 . 5625) (/ -1073741823 -2) -> 1073741823/2) ((3022 . 5625) (/ -1073741823 -1) -> 1073741823) ((3023 . 5625) (/ -1073741823 0) -> "division by zero") ((3024 . 5625) (/ -1073741823 1) -> -1073741823) ((3025 . 5625) (/ -1073741823 2) -> -1073741823/2) ((3026 . 5625) (/ -1073741827 -1) -> 1073741827) ((3027 . 5625) (/ -1073741827 0) -> "division by zero") ((3028 . 5625) (/ -1073741827 1) -> -1073741827) ((3029 . 5625) (/ -1073741827 2) -> -1073741827/2) ((3030 . 5625) (/ -1073741827 3) -> -1073741827/3) ((3031 . 5625) (/ -1073741826 -1) -> 1073741826) ((3032 . 5625) (/ -1073741826 0) -> "division by zero") ((3033 . 5625) (/ -1073741826 1) -> -1073741826) ((3034 . 5625) (/ -1073741826 2) -> -536870913) ((3035 . 5625) (/ -1073741826 3) -> -357913942) ((3036 . 5625) (/ -1073741825 -1) -> 1073741825) ((3037 . 5625) (/ -1073741825 0) -> "division by zero") ((3038 . 5625) (/ -1073741825 1) -> -1073741825) ((3039 . 5625) (/ -1073741825 2) -> -1073741825/2) ((3040 . 5625) (/ -1073741825 3) -> -1073741825/3) ((3041 . 5625) (/ -1073741824 -1) -> 1073741824) ((3042 . 5625) (/ -1073741824 0) -> "division by zero") ((3043 . 5625) (/ -1073741824 1) -> -1073741824) ((3044 . 5625) (/ -1073741824 2) -> -536870912) ((3045 . 5625) (/ -1073741824 3) -> -1073741824/3) ((3046 . 5625) (/ -1073741823 -1) -> 1073741823) ((3047 . 5625) (/ -1073741823 0) -> "division by zero") ((3048 . 5625) (/ -1073741823 1) -> -1073741823) ((3049 . 5625) (/ -1073741823 2) -> -1073741823/2) ((3050 . 5625) (/ -1073741823 3) -> -357913941) ((3051 . 5625) (/ -1073741827 -3) -> 1073741827/3) ((3052 . 5625) (/ -1073741827 -2) -> 1073741827/2) ((3053 . 5625) (/ -1073741827 -1) -> 1073741827) ((3054 . 5625) (/ -1073741827 0) -> "division by zero") ((3055 . 5625) (/ -1073741827 1) -> -1073741827) ((3056 . 5625) (/ -1073741826 -3) -> 357913942) ((3057 . 5625) (/ -1073741826 -2) -> 536870913) ((3058 . 5625) (/ -1073741826 -1) -> 1073741826) ((3059 . 5625) (/ -1073741826 0) -> "division by zero") ((3060 . 5625) (/ -1073741826 1) -> -1073741826) ((3061 . 5625) (/ -1073741825 -3) -> 1073741825/3) ((3062 . 5625) (/ -1073741825 -2) -> 1073741825/2) ((3063 . 5625) (/ -1073741825 -1) -> 1073741825) ((3064 . 5625) (/ -1073741825 0) -> "division by zero") ((3065 . 5625) (/ -1073741825 1) -> -1073741825) ((3066 . 5625) (/ -1073741824 -3) -> 1073741824/3) ((3067 . 5625) (/ -1073741824 -2) -> 536870912) ((3068 . 5625) (/ -1073741824 -1) -> 1073741824) ((3069 . 5625) (/ -1073741824 0) -> "division by zero") ((3070 . 5625) (/ -1073741824 1) -> -1073741824) ((3071 . 5625) (/ -1073741823 -3) -> 357913941) ((3072 . 5625) (/ -1073741823 -2) -> 1073741823/2) ((3073 . 5625) (/ -1073741823 -1) -> 1073741823) ((3074 . 5625) (/ -1073741823 0) -> "division by zero") ((3075 . 5625) (/ -1073741823 1) -> -1073741823) ((3076 . 5625) (/ -1073741827 0) -> "division by zero") ((3077 . 5625) (/ -1073741827 1) -> -1073741827) ((3078 . 5625) (/ -1073741827 2) -> -1073741827/2) ((3079 . 5625) (/ -1073741827 3) -> -1073741827/3) ((3080 . 5625) (/ -1073741827 4) -> -1073741827/4) ((3081 . 5625) (/ -1073741826 0) -> "division by zero") ((3082 . 5625) (/ -1073741826 1) -> -1073741826) ((3083 . 5625) (/ -1073741826 2) -> -536870913) ((3084 . 5625) (/ -1073741826 3) -> -357913942) ((3085 . 5625) (/ -1073741826 4) -> -536870913/2) ((3086 . 5625) (/ -1073741825 0) -> "division by zero") ((3087 . 5625) (/ -1073741825 1) -> -1073741825) ((3088 . 5625) (/ -1073741825 2) -> -1073741825/2) ((3089 . 5625) (/ -1073741825 3) -> -1073741825/3) ((3090 . 5625) (/ -1073741825 4) -> -1073741825/4) ((3091 . 5625) (/ -1073741824 0) -> "division by zero") ((3092 . 5625) (/ -1073741824 1) -> -1073741824) ((3093 . 5625) (/ -1073741824 2) -> -536870912) ((3094 . 5625) (/ -1073741824 3) -> -1073741824/3) ((3095 . 5625) (/ -1073741824 4) -> -268435456) ((3096 . 5625) (/ -1073741823 0) -> "division by zero") ((3097 . 5625) (/ -1073741823 1) -> -1073741823) ((3098 . 5625) (/ -1073741823 2) -> -1073741823/2) ((3099 . 5625) (/ -1073741823 3) -> -357913941) ((3100 . 5625) (/ -1073741823 4) -> -1073741823/4) ((3101 . 5625) (/ -1073741827 -4) -> 1073741827/4) ((3102 . 5625) (/ -1073741827 -3) -> 1073741827/3) ((3103 . 5625) (/ -1073741827 -2) -> 1073741827/2) ((3104 . 5625) (/ -1073741827 -1) -> 1073741827) ((3105 . 5625) (/ -1073741827 0) -> "division by zero") ((3106 . 5625) (/ -1073741826 -4) -> 536870913/2) ((3107 . 5625) (/ -1073741826 -3) -> 357913942) ((3108 . 5625) (/ -1073741826 -2) -> 536870913) ((3109 . 5625) (/ -1073741826 -1) -> 1073741826) ((3110 . 5625) (/ -1073741826 0) -> "division by zero") ((3111 . 5625) (/ -1073741825 -4) -> 1073741825/4) ((3112 . 5625) (/ -1073741825 -3) -> 1073741825/3) ((3113 . 5625) (/ -1073741825 -2) -> 1073741825/2) ((3114 . 5625) (/ -1073741825 -1) -> 1073741825) ((3115 . 5625) (/ -1073741825 0) -> "division by zero") ((3116 . 5625) (/ -1073741824 -4) -> 268435456) ((3117 . 5625) (/ -1073741824 -3) -> 1073741824/3) ((3118 . 5625) (/ -1073741824 -2) -> 536870912) ((3119 . 5625) (/ -1073741824 -1) -> 1073741824) ((3120 . 5625) (/ -1073741824 0) -> "division by zero") ((3121 . 5625) (/ -1073741823 -4) -> 1073741823/4) ((3122 . 5625) (/ -1073741823 -3) -> 357913941) ((3123 . 5625) (/ -1073741823 -2) -> 1073741823/2) ((3124 . 5625) (/ -1073741823 -1) -> 1073741823) ((3125 . 5625) (/ -1073741823 0) -> "division by zero") ((3126 . 5625) (/ -1073741827 1073741821) -> -1073741827/1073741821) ((3127 . 5625) (/ -1073741827 1073741822) -> -1073741827/1073741822) ((3128 . 5625) (/ -1073741827 1073741823) -> -1073741827/1073741823) ((3129 . 5625) (/ -1073741827 1073741824) -> -1073741827/1073741824) ((3130 . 5625) (/ -1073741827 1073741825) -> -1073741827/1073741825) ((3131 . 5625) (/ -1073741826 1073741821) -> -1073741826/1073741821) ((3132 . 5625) (/ -1073741826 1073741822) -> -536870913/536870911) ((3133 . 5625) (/ -1073741826 1073741823) -> -357913942/357913941) ((3134 . 5625) (/ -1073741826 1073741824) -> -536870913/536870912) ((3135 . 5625) (/ -1073741826 1073741825) -> -1073741826/1073741825) ((3136 . 5625) (/ -1073741825 1073741821) -> -1073741825/1073741821) ((3137 . 5625) (/ -1073741825 1073741822) -> -1073741825/1073741822) ((3138 . 5625) (/ -1073741825 1073741823) -> -1073741825/1073741823) ((3139 . 5625) (/ -1073741825 1073741824) -> -1073741825/1073741824) ((3140 . 5625) (/ -1073741825 1073741825) -> -1) ((3141 . 5625) (/ -1073741824 1073741821) -> -1073741824/1073741821) ((3142 . 5625) (/ -1073741824 1073741822) -> -536870912/536870911) ((3143 . 5625) (/ -1073741824 1073741823) -> -1073741824/1073741823) ((3144 . 5625) (/ -1073741824 1073741824) -> -1) ((3145 . 5625) (/ -1073741824 1073741825) -> -1073741824/1073741825) ((3146 . 5625) (/ -1073741823 1073741821) -> -1073741823/1073741821) ((3147 . 5625) (/ -1073741823 1073741822) -> -1073741823/1073741822) ((3148 . 5625) (/ -1073741823 1073741823) -> -1) ((3149 . 5625) (/ -1073741823 1073741824) -> -1073741823/1073741824) ((3150 . 5625) (/ -1073741823 1073741825) -> -1073741823/1073741825) ((3151 . 5625) (/ -1073741827 -1073741826) -> 1073741827/1073741826) ((3152 . 5625) (/ -1073741827 -1073741825) -> 1073741827/1073741825) ((3153 . 5625) (/ -1073741827 -1073741824) -> 1073741827/1073741824) ((3154 . 5625) (/ -1073741827 -1073741823) -> 1073741827/1073741823) ((3155 . 5625) (/ -1073741827 -1073741822) -> 1073741827/1073741822) ((3156 . 5625) (/ -1073741826 -1073741826) -> 1) ((3157 . 5625) (/ -1073741826 -1073741825) -> 1073741826/1073741825) ((3158 . 5625) (/ -1073741826 -1073741824) -> 536870913/536870912) ((3159 . 5625) (/ -1073741826 -1073741823) -> 357913942/357913941) ((3160 . 5625) (/ -1073741826 -1073741822) -> 536870913/536870911) ((3161 . 5625) (/ -1073741825 -1073741826) -> 1073741825/1073741826) ((3162 . 5625) (/ -1073741825 -1073741825) -> 1) ((3163 . 5625) (/ -1073741825 -1073741824) -> 1073741825/1073741824) ((3164 . 5625) (/ -1073741825 -1073741823) -> 1073741825/1073741823) ((3165 . 5625) (/ -1073741825 -1073741822) -> 1073741825/1073741822) ((3166 . 5625) (/ -1073741824 -1073741826) -> 536870912/536870913) ((3167 . 5625) (/ -1073741824 -1073741825) -> 1073741824/1073741825) ((3168 . 5625) (/ -1073741824 -1073741824) -> 1) ((3169 . 5625) (/ -1073741824 -1073741823) -> 1073741824/1073741823) ((3170 . 5625) (/ -1073741824 -1073741822) -> 536870912/536870911) ((3171 . 5625) (/ -1073741823 -1073741826) -> 357913941/357913942) ((3172 . 5625) (/ -1073741823 -1073741825) -> 1073741823/1073741825) ((3173 . 5625) (/ -1073741823 -1073741824) -> 1073741823/1073741824) ((3174 . 5625) (/ -1073741823 -1073741823) -> 1) ((3175 . 5625) (/ -1073741823 -1073741822) -> 1073741823/1073741822) ((3176 . 5625) (/ -1073741827 1073741822) -> -1073741827/1073741822) ((3177 . 5625) (/ -1073741827 1073741823) -> -1073741827/1073741823) ((3178 . 5625) (/ -1073741827 1073741824) -> -1073741827/1073741824) ((3179 . 5625) (/ -1073741827 1073741825) -> -1073741827/1073741825) ((3180 . 5625) (/ -1073741827 1073741826) -> -1073741827/1073741826) ((3181 . 5625) (/ -1073741826 1073741822) -> -536870913/536870911) ((3182 . 5625) (/ -1073741826 1073741823) -> -357913942/357913941) ((3183 . 5625) (/ -1073741826 1073741824) -> -536870913/536870912) ((3184 . 5625) (/ -1073741826 1073741825) -> -1073741826/1073741825) ((3185 . 5625) (/ -1073741826 1073741826) -> -1) ((3186 . 5625) (/ -1073741825 1073741822) -> -1073741825/1073741822) ((3187 . 5625) (/ -1073741825 1073741823) -> -1073741825/1073741823) ((3188 . 5625) (/ -1073741825 1073741824) -> -1073741825/1073741824) ((3189 . 5625) (/ -1073741825 1073741825) -> -1) ((3190 . 5625) (/ -1073741825 1073741826) -> -1073741825/1073741826) ((3191 . 5625) (/ -1073741824 1073741822) -> -536870912/536870911) ((3192 . 5625) (/ -1073741824 1073741823) -> -1073741824/1073741823) ((3193 . 5625) (/ -1073741824 1073741824) -> -1) ((3194 . 5625) (/ -1073741824 1073741825) -> -1073741824/1073741825) ((3195 . 5625) (/ -1073741824 1073741826) -> -536870912/536870913) ((3196 . 5625) (/ -1073741823 1073741822) -> -1073741823/1073741822) ((3197 . 5625) (/ -1073741823 1073741823) -> -1) ((3198 . 5625) (/ -1073741823 1073741824) -> -1073741823/1073741824) ((3199 . 5625) (/ -1073741823 1073741825) -> -1073741823/1073741825) ((3200 . 5625) (/ -1073741823 1073741826) -> -357913941/357913942) ((3201 . 5625) (/ -1073741827 -1073741827) -> 1) ((3202 . 5625) (/ -1073741827 -1073741826) -> 1073741827/1073741826) ((3203 . 5625) (/ -1073741827 -1073741825) -> 1073741827/1073741825) ((3204 . 5625) (/ -1073741827 -1073741824) -> 1073741827/1073741824) ((3205 . 5625) (/ -1073741827 -1073741823) -> 1073741827/1073741823) ((3206 . 5625) (/ -1073741826 -1073741827) -> 1073741826/1073741827) ((3207 . 5625) (/ -1073741826 -1073741826) -> 1) ((3208 . 5625) (/ -1073741826 -1073741825) -> 1073741826/1073741825) ((3209 . 5625) (/ -1073741826 -1073741824) -> 536870913/536870912) ((3210 . 5625) (/ -1073741826 -1073741823) -> 357913942/357913941) ((3211 . 5625) (/ -1073741825 -1073741827) -> 1073741825/1073741827) ((3212 . 5625) (/ -1073741825 -1073741826) -> 1073741825/1073741826) ((3213 . 5625) (/ -1073741825 -1073741825) -> 1) ((3214 . 5625) (/ -1073741825 -1073741824) -> 1073741825/1073741824) ((3215 . 5625) (/ -1073741825 -1073741823) -> 1073741825/1073741823) ((3216 . 5625) (/ -1073741824 -1073741827) -> 1073741824/1073741827) ((3217 . 5625) (/ -1073741824 -1073741826) -> 536870912/536870913) ((3218 . 5625) (/ -1073741824 -1073741825) -> 1073741824/1073741825) ((3219 . 5625) (/ -1073741824 -1073741824) -> 1) ((3220 . 5625) (/ -1073741824 -1073741823) -> 1073741824/1073741823) ((3221 . 5625) (/ -1073741823 -1073741827) -> 1073741823/1073741827) ((3222 . 5625) (/ -1073741823 -1073741826) -> 357913941/357913942) ((3223 . 5625) (/ -1073741823 -1073741825) -> 1073741823/1073741825) ((3224 . 5625) (/ -1073741823 -1073741824) -> 1073741823/1073741824) ((3225 . 5625) (/ -1073741823 -1073741823) -> 1) ((3226 . 5625) (/ -1073741827 1103515243) -> -1073741827/1103515243) ((3227 . 5625) (/ -1073741827 1103515244) -> -1073741827/1103515244) ((3228 . 5625) (/ -1073741827 1103515245) -> -1073741827/1103515245) ((3229 . 5625) (/ -1073741827 1103515246) -> -1073741827/1103515246) ((3230 . 5625) (/ -1073741827 1103515247) -> -1073741827/1103515247) ((3231 . 5625) (/ -1073741826 1103515243) -> -1073741826/1103515243) ((3232 . 5625) (/ -1073741826 1103515244) -> -536870913/551757622) ((3233 . 5625) (/ -1073741826 1103515245) -> -357913942/367838415) ((3234 . 5625) (/ -1073741826 1103515246) -> -536870913/551757623) ((3235 . 5625) (/ -1073741826 1103515247) -> -1073741826/1103515247) ((3236 . 5625) (/ -1073741825 1103515243) -> -1073741825/1103515243) ((3237 . 5625) (/ -1073741825 1103515244) -> -82595525/84885788) ((3238 . 5625) (/ -1073741825 1103515245) -> -214748365/220703049) ((3239 . 5625) (/ -1073741825 1103515246) -> -26188825/26915006) ((3240 . 5625) (/ -1073741825 1103515247) -> -1073741825/1103515247) ((3241 . 5625) (/ -1073741824 1103515243) -> -1073741824/1103515243) ((3242 . 5625) (/ -1073741824 1103515244) -> -268435456/275878811) ((3243 . 5625) (/ -1073741824 1103515245) -> -1073741824/1103515245) ((3244 . 5625) (/ -1073741824 1103515246) -> -536870912/551757623) ((3245 . 5625) (/ -1073741824 1103515247) -> -1073741824/1103515247) ((3246 . 5625) (/ -1073741823 1103515243) -> -1073741823/1103515243) ((3247 . 5625) (/ -1073741823 1103515244) -> -1073741823/1103515244) ((3248 . 5625) (/ -1073741823 1103515245) -> -17043521/17516115) ((3249 . 5625) (/ -1073741823 1103515246) -> -34636833/35597266) ((3250 . 5625) (/ -1073741823 1103515247) -> -1073741823/1103515247) ((3251 . 5625) (/ -1073741827 631629063) -> -1073741827/631629063) ((3252 . 5625) (/ -1073741827 631629064) -> -1073741827/631629064) ((3253 . 5625) (/ -1073741827 631629065) -> -1073741827/631629065) ((3254 . 5625) (/ -1073741827 631629066) -> -1073741827/631629066) ((3255 . 5625) (/ -1073741827 631629067) -> -1073741827/631629067) ((3256 . 5625) (/ -1073741826 631629063) -> -357913942/210543021) ((3257 . 5625) (/ -1073741826 631629064) -> -536870913/315814532) ((3258 . 5625) (/ -1073741826 631629065) -> -1073741826/631629065) ((3259 . 5625) (/ -1073741826 631629066) -> -178956971/105271511) ((3260 . 5625) (/ -1073741826 631629067) -> -1073741826/631629067) ((3261 . 5625) (/ -1073741825 631629063) -> -82595525/48586851) ((3262 . 5625) (/ -1073741825 631629064) -> -1073741825/631629064) ((3263 . 5625) (/ -1073741825 631629065) -> -214748365/126325813) ((3264 . 5625) (/ -1073741825 631629066) -> -1073741825/631629066) ((3265 . 5625) (/ -1073741825 631629067) -> -26188825/15405587) ((3266 . 5625) (/ -1073741824 631629063) -> -1073741824/631629063) ((3267 . 5625) (/ -1073741824 631629064) -> -134217728/78953633) ((3268 . 5625) (/ -1073741824 631629065) -> -1073741824/631629065) ((3269 . 5625) (/ -1073741824 631629066) -> -536870912/315814533) ((3270 . 5625) (/ -1073741824 631629067) -> -1073741824/631629067) ((3271 . 5625) (/ -1073741823 631629063) -> -119304647/70181007) ((3272 . 5625) (/ -1073741823 631629064) -> -97612893/57420824) ((3273 . 5625) (/ -1073741823 631629065) -> -1073741823/631629065) ((3274 . 5625) (/ -1073741823 631629066) -> -357913941/210543022) ((3275 . 5625) (/ -1073741823 631629067) -> -1073741823/631629067) ((3276 . 5625) (/ -1073741827 9007199254740990) -> -1073741827/9007199254740990) ((3277 . 5625) (/ -1073741827 9007199254740991) -> -1073741827/9007199254740991) ((3278 . 5625) (/ -1073741827 9007199254740992) -> -1073741827/9007199254740992) ((3279 . 5625) (/ -1073741827 9007199254740993) -> -1073741827/9007199254740993) ((3280 . 5625) (/ -1073741827 9007199254740994) -> -1073741827/9007199254740994) ((3281 . 5625) (/ -1073741826 9007199254740990) -> -178956971/1501199875790165) ((3282 . 5625) (/ -1073741826 9007199254740991) -> -1073741826/9007199254740991) ((3283 . 5625) (/ -1073741826 9007199254740992) -> -536870913/4503599627370496) ((3284 . 5625) (/ -1073741826 9007199254740993) -> -357913942/3002399751580331) ((3285 . 5625) (/ -1073741826 9007199254740994) -> -536870913/4503599627370497) ((3286 . 5625) (/ -1073741825 9007199254740990) -> -214748365/1801439850948198) ((3287 . 5625) (/ -1073741825 9007199254740991) -> -1073741825/9007199254740991) ((3288 . 5625) (/ -1073741825 9007199254740992) -> -1073741825/9007199254740992) ((3289 . 5625) (/ -1073741825 9007199254740993) -> -1073741825/9007199254740993) ((3290 . 5625) (/ -1073741825 9007199254740994) -> -1073741825/9007199254740994) ((3291 . 5625) (/ -1073741824 9007199254740990) -> -536870912/4503599627370495) ((3292 . 5625) (/ -1073741824 9007199254740991) -> -1073741824/9007199254740991) ((3293 . 5625) (/ -1073741824 9007199254740992) -> -1/8388608) ((3294 . 5625) (/ -1073741824 9007199254740993) -> -1073741824/9007199254740993) ((3295 . 5625) (/ -1073741824 9007199254740994) -> -536870912/4503599627370497) ((3296 . 5625) (/ -1073741823 9007199254740990) -> -357913941/3002399751580330) ((3297 . 5625) (/ -1073741823 9007199254740991) -> -1073741823/9007199254740991) ((3298 . 5625) (/ -1073741823 9007199254740992) -> -1073741823/9007199254740992) ((3299 . 5625) (/ -1073741823 9007199254740993) -> -357913941/3002399751580331) ((3300 . 5625) (/ -1073741823 9007199254740994) -> -1073741823/9007199254740994) ((3301 . 5625) (/ -1073741827 -9007199254740994) -> 1073741827/9007199254740994) ((3302 . 5625) (/ -1073741827 -9007199254740993) -> 1073741827/9007199254740993) ((3303 . 5625) (/ -1073741827 -9007199254740992) -> 1073741827/9007199254740992) ((3304 . 5625) (/ -1073741827 -9007199254740991) -> 1073741827/9007199254740991) ((3305 . 5625) (/ -1073741827 -9007199254740990) -> 1073741827/9007199254740990) ((3306 . 5625) (/ -1073741826 -9007199254740994) -> 536870913/4503599627370497) ((3307 . 5625) (/ -1073741826 -9007199254740993) -> 357913942/3002399751580331) ((3308 . 5625) (/ -1073741826 -9007199254740992) -> 536870913/4503599627370496) ((3309 . 5625) (/ -1073741826 -9007199254740991) -> 1073741826/9007199254740991) ((3310 . 5625) (/ -1073741826 -9007199254740990) -> 178956971/1501199875790165) ((3311 . 5625) (/ -1073741825 -9007199254740994) -> 1073741825/9007199254740994) ((3312 . 5625) (/ -1073741825 -9007199254740993) -> 1073741825/9007199254740993) ((3313 . 5625) (/ -1073741825 -9007199254740992) -> 1073741825/9007199254740992) ((3314 . 5625) (/ -1073741825 -9007199254740991) -> 1073741825/9007199254740991) ((3315 . 5625) (/ -1073741825 -9007199254740990) -> 214748365/1801439850948198) ((3316 . 5625) (/ -1073741824 -9007199254740994) -> 536870912/4503599627370497) ((3317 . 5625) (/ -1073741824 -9007199254740993) -> 1073741824/9007199254740993) ((3318 . 5625) (/ -1073741824 -9007199254740992) -> 1/8388608) ((3319 . 5625) (/ -1073741824 -9007199254740991) -> 1073741824/9007199254740991) ((3320 . 5625) (/ -1073741824 -9007199254740990) -> 536870912/4503599627370495) ((3321 . 5625) (/ -1073741823 -9007199254740994) -> 1073741823/9007199254740994) ((3322 . 5625) (/ -1073741823 -9007199254740993) -> 357913941/3002399751580331) ((3323 . 5625) (/ -1073741823 -9007199254740992) -> 1073741823/9007199254740992) ((3324 . 5625) (/ -1073741823 -9007199254740991) -> 1073741823/9007199254740991) ((3325 . 5625) (/ -1073741823 -9007199254740990) -> 357913941/3002399751580330) ((3326 . 5625) (/ -1073741827 12343) -> -1073741827/12343) ((3327 . 5625) (/ -1073741827 12344) -> -1073741827/12344) ((3328 . 5625) (/ -1073741827 12345) -> -1073741827/12345) ((3329 . 5625) (/ -1073741827 12346) -> -1073741827/12346) ((3330 . 5625) (/ -1073741827 12347) -> -1073741827/12347) ((3331 . 5625) (/ -1073741826 12343) -> -1073741826/12343) ((3332 . 5625) (/ -1073741826 12344) -> -536870913/6172) ((3333 . 5625) (/ -1073741826 12345) -> -357913942/4115) ((3334 . 5625) (/ -1073741826 12346) -> -536870913/6173) ((3335 . 5625) (/ -1073741826 12347) -> -1073741826/12347) ((3336 . 5625) (/ -1073741825 12343) -> -1073741825/12343) ((3337 . 5625) (/ -1073741825 12344) -> -1073741825/12344) ((3338 . 5625) (/ -1073741825 12345) -> -214748365/2469) ((3339 . 5625) (/ -1073741825 12346) -> -1073741825/12346) ((3340 . 5625) (/ -1073741825 12347) -> -1073741825/12347) ((3341 . 5625) (/ -1073741824 12343) -> -1073741824/12343) ((3342 . 5625) (/ -1073741824 12344) -> -134217728/1543) ((3343 . 5625) (/ -1073741824 12345) -> -1073741824/12345) ((3344 . 5625) (/ -1073741824 12346) -> -536870912/6173) ((3345 . 5625) (/ -1073741824 12347) -> -1073741824/12347) ((3346 . 5625) (/ -1073741823 12343) -> -1073741823/12343) ((3347 . 5625) (/ -1073741823 12344) -> -1073741823/12344) ((3348 . 5625) (/ -1073741823 12345) -> -357913941/4115) ((3349 . 5625) (/ -1073741823 12346) -> -1073741823/12346) ((3350 . 5625) (/ -1073741823 12347) -> -1073741823/12347) ((3351 . 5625) (/ -1073741827 4294967294) -> -1073741827/4294967294) ((3352 . 5625) (/ -1073741827 4294967295) -> -1073741827/4294967295) ((3353 . 5625) (/ -1073741827 4294967296) -> -1073741827/4294967296) ((3354 . 5625) (/ -1073741827 4294967297) -> -1073741827/4294967297) ((3355 . 5625) (/ -1073741827 4294967298) -> -1073741827/4294967298) ((3356 . 5625) (/ -1073741826 4294967294) -> -536870913/2147483647) ((3357 . 5625) (/ -1073741826 4294967295) -> -357913942/1431655765) ((3358 . 5625) (/ -1073741826 4294967296) -> -536870913/2147483648) ((3359 . 5625) (/ -1073741826 4294967297) -> -1073741826/4294967297) ((3360 . 5625) (/ -1073741826 4294967298) -> -178956971/715827883) ((3361 . 5625) (/ -1073741825 4294967294) -> -1073741825/4294967294) ((3362 . 5625) (/ -1073741825 4294967295) -> -214748365/858993459) ((3363 . 5625) (/ -1073741825 4294967296) -> -1073741825/4294967296) ((3364 . 5625) (/ -1073741825 4294967297) -> -1073741825/4294967297) ((3365 . 5625) (/ -1073741825 4294967298) -> -1073741825/4294967298) ((3366 . 5625) (/ -1073741824 4294967294) -> -536870912/2147483647) ((3367 . 5625) (/ -1073741824 4294967295) -> -1073741824/4294967295) ((3368 . 5625) (/ -1073741824 4294967296) -> -1/4) ((3369 . 5625) (/ -1073741824 4294967297) -> -1073741824/4294967297) ((3370 . 5625) (/ -1073741824 4294967298) -> -536870912/2147483649) ((3371 . 5625) (/ -1073741823 4294967294) -> -1073741823/4294967294) ((3372 . 5625) (/ -1073741823 4294967295) -> -357913941/1431655765) ((3373 . 5625) (/ -1073741823 4294967296) -> -1073741823/4294967296) ((3374 . 5625) (/ -1073741823 4294967297) -> -1073741823/4294967297) ((3375 . 5625) (/ -1073741823 4294967298) -> -357913941/1431655766) ((3376 . 5625) (/ 1103515243 -2) -> -1103515243/2) ((3377 . 5625) (/ 1103515243 -1) -> -1103515243) ((3378 . 5625) (/ 1103515243 0) -> "division by zero") ((3379 . 5625) (/ 1103515243 1) -> 1103515243) ((3380 . 5625) (/ 1103515243 2) -> 1103515243/2) ((3381 . 5625) (/ 1103515244 -2) -> -551757622) ((3382 . 5625) (/ 1103515244 -1) -> -1103515244) ((3383 . 5625) (/ 1103515244 0) -> "division by zero") ((3384 . 5625) (/ 1103515244 1) -> 1103515244) ((3385 . 5625) (/ 1103515244 2) -> 551757622) ((3386 . 5625) (/ 1103515245 -2) -> -1103515245/2) ((3387 . 5625) (/ 1103515245 -1) -> -1103515245) ((3388 . 5625) (/ 1103515245 0) -> "division by zero") ((3389 . 5625) (/ 1103515245 1) -> 1103515245) ((3390 . 5625) (/ 1103515245 2) -> 1103515245/2) ((3391 . 5625) (/ 1103515246 -2) -> -551757623) ((3392 . 5625) (/ 1103515246 -1) -> -1103515246) ((3393 . 5625) (/ 1103515246 0) -> "division by zero") ((3394 . 5625) (/ 1103515246 1) -> 1103515246) ((3395 . 5625) (/ 1103515246 2) -> 551757623) ((3396 . 5625) (/ 1103515247 -2) -> -1103515247/2) ((3397 . 5625) (/ 1103515247 -1) -> -1103515247) ((3398 . 5625) (/ 1103515247 0) -> "division by zero") ((3399 . 5625) (/ 1103515247 1) -> 1103515247) ((3400 . 5625) (/ 1103515247 2) -> 1103515247/2) ((3401 . 5625) (/ 1103515243 -1) -> -1103515243) ((3402 . 5625) (/ 1103515243 0) -> "division by zero") ((3403 . 5625) (/ 1103515243 1) -> 1103515243) ((3404 . 5625) (/ 1103515243 2) -> 1103515243/2) ((3405 . 5625) (/ 1103515243 3) -> 1103515243/3) ((3406 . 5625) (/ 1103515244 -1) -> -1103515244) ((3407 . 5625) (/ 1103515244 0) -> "division by zero") ((3408 . 5625) (/ 1103515244 1) -> 1103515244) ((3409 . 5625) (/ 1103515244 2) -> 551757622) ((3410 . 5625) (/ 1103515244 3) -> 1103515244/3) ((3411 . 5625) (/ 1103515245 -1) -> -1103515245) ((3412 . 5625) (/ 1103515245 0) -> "division by zero") ((3413 . 5625) (/ 1103515245 1) -> 1103515245) ((3414 . 5625) (/ 1103515245 2) -> 1103515245/2) ((3415 . 5625) (/ 1103515245 3) -> 367838415) ((3416 . 5625) (/ 1103515246 -1) -> -1103515246) ((3417 . 5625) (/ 1103515246 0) -> "division by zero") ((3418 . 5625) (/ 1103515246 1) -> 1103515246) ((3419 . 5625) (/ 1103515246 2) -> 551757623) ((3420 . 5625) (/ 1103515246 3) -> 1103515246/3) ((3421 . 5625) (/ 1103515247 -1) -> -1103515247) ((3422 . 5625) (/ 1103515247 0) -> "division by zero") ((3423 . 5625) (/ 1103515247 1) -> 1103515247) ((3424 . 5625) (/ 1103515247 2) -> 1103515247/2) ((3425 . 5625) (/ 1103515247 3) -> 1103515247/3) ((3426 . 5625) (/ 1103515243 -3) -> -1103515243/3) ((3427 . 5625) (/ 1103515243 -2) -> -1103515243/2) ((3428 . 5625) (/ 1103515243 -1) -> -1103515243) ((3429 . 5625) (/ 1103515243 0) -> "division by zero") ((3430 . 5625) (/ 1103515243 1) -> 1103515243) ((3431 . 5625) (/ 1103515244 -3) -> -1103515244/3) ((3432 . 5625) (/ 1103515244 -2) -> -551757622) ((3433 . 5625) (/ 1103515244 -1) -> -1103515244) ((3434 . 5625) (/ 1103515244 0) -> "division by zero") ((3435 . 5625) (/ 1103515244 1) -> 1103515244) ((3436 . 5625) (/ 1103515245 -3) -> -367838415) ((3437 . 5625) (/ 1103515245 -2) -> -1103515245/2) ((3438 . 5625) (/ 1103515245 -1) -> -1103515245) ((3439 . 5625) (/ 1103515245 0) -> "division by zero") ((3440 . 5625) (/ 1103515245 1) -> 1103515245) ((3441 . 5625) (/ 1103515246 -3) -> -1103515246/3) ((3442 . 5625) (/ 1103515246 -2) -> -551757623) ((3443 . 5625) (/ 1103515246 -1) -> -1103515246) ((3444 . 5625) (/ 1103515246 0) -> "division by zero") ((3445 . 5625) (/ 1103515246 1) -> 1103515246) ((3446 . 5625) (/ 1103515247 -3) -> -1103515247/3) ((3447 . 5625) (/ 1103515247 -2) -> -1103515247/2) ((3448 . 5625) (/ 1103515247 -1) -> -1103515247) ((3449 . 5625) (/ 1103515247 0) -> "division by zero") ((3450 . 5625) (/ 1103515247 1) -> 1103515247) ((3451 . 5625) (/ 1103515243 0) -> "division by zero") ((3452 . 5625) (/ 1103515243 1) -> 1103515243) ((3453 . 5625) (/ 1103515243 2) -> 1103515243/2) ((3454 . 5625) (/ 1103515243 3) -> 1103515243/3) ((3455 . 5625) (/ 1103515243 4) -> 1103515243/4) ((3456 . 5625) (/ 1103515244 0) -> "division by zero") ((3457 . 5625) (/ 1103515244 1) -> 1103515244) ((3458 . 5625) (/ 1103515244 2) -> 551757622) ((3459 . 5625) (/ 1103515244 3) -> 1103515244/3) ((3460 . 5625) (/ 1103515244 4) -> 275878811) ((3461 . 5625) (/ 1103515245 0) -> "division by zero") ((3462 . 5625) (/ 1103515245 1) -> 1103515245) ((3463 . 5625) (/ 1103515245 2) -> 1103515245/2) ((3464 . 5625) (/ 1103515245 3) -> 367838415) ((3465 . 5625) (/ 1103515245 4) -> 1103515245/4) ((3466 . 5625) (/ 1103515246 0) -> "division by zero") ((3467 . 5625) (/ 1103515246 1) -> 1103515246) ((3468 . 5625) (/ 1103515246 2) -> 551757623) ((3469 . 5625) (/ 1103515246 3) -> 1103515246/3) ((3470 . 5625) (/ 1103515246 4) -> 551757623/2) ((3471 . 5625) (/ 1103515247 0) -> "division by zero") ((3472 . 5625) (/ 1103515247 1) -> 1103515247) ((3473 . 5625) (/ 1103515247 2) -> 1103515247/2) ((3474 . 5625) (/ 1103515247 3) -> 1103515247/3) ((3475 . 5625) (/ 1103515247 4) -> 1103515247/4) ((3476 . 5625) (/ 1103515243 -4) -> -1103515243/4) ((3477 . 5625) (/ 1103515243 -3) -> -1103515243/3) ((3478 . 5625) (/ 1103515243 -2) -> -1103515243/2) ((3479 . 5625) (/ 1103515243 -1) -> -1103515243) ((3480 . 5625) (/ 1103515243 0) -> "division by zero") ((3481 . 5625) (/ 1103515244 -4) -> -275878811) ((3482 . 5625) (/ 1103515244 -3) -> -1103515244/3) ((3483 . 5625) (/ 1103515244 -2) -> -551757622) ((3484 . 5625) (/ 1103515244 -1) -> -1103515244) ((3485 . 5625) (/ 1103515244 0) -> "division by zero") ((3486 . 5625) (/ 1103515245 -4) -> -1103515245/4) ((3487 . 5625) (/ 1103515245 -3) -> -367838415) ((3488 . 5625) (/ 1103515245 -2) -> -1103515245/2) ((3489 . 5625) (/ 1103515245 -1) -> -1103515245) ((3490 . 5625) (/ 1103515245 0) -> "division by zero") ((3491 . 5625) (/ 1103515246 -4) -> -551757623/2) ((3492 . 5625) (/ 1103515246 -3) -> -1103515246/3) ((3493 . 5625) (/ 1103515246 -2) -> -551757623) ((3494 . 5625) (/ 1103515246 -1) -> -1103515246) ((3495 . 5625) (/ 1103515246 0) -> "division by zero") ((3496 . 5625) (/ 1103515247 -4) -> -1103515247/4) ((3497 . 5625) (/ 1103515247 -3) -> -1103515247/3) ((3498 . 5625) (/ 1103515247 -2) -> -1103515247/2) ((3499 . 5625) (/ 1103515247 -1) -> -1103515247) ((3500 . 5625) (/ 1103515247 0) -> "division by zero") ((3501 . 5625) (/ 1103515243 1073741821) -> 1103515243/1073741821) ((3502 . 5625) (/ 1103515243 1073741822) -> 1103515243/1073741822) ((3503 . 5625) (/ 1103515243 1073741823) -> 1103515243/1073741823) ((3504 . 5625) (/ 1103515243 1073741824) -> 1103515243/1073741824) ((3505 . 5625) (/ 1103515243 1073741825) -> 1103515243/1073741825) ((3506 . 5625) (/ 1103515244 1073741821) -> 1103515244/1073741821) ((3507 . 5625) (/ 1103515244 1073741822) -> 551757622/536870911) ((3508 . 5625) (/ 1103515244 1073741823) -> 1103515244/1073741823) ((3509 . 5625) (/ 1103515244 1073741824) -> 275878811/268435456) ((3510 . 5625) (/ 1103515244 1073741825) -> 84885788/82595525) ((3511 . 5625) (/ 1103515245 1073741821) -> 1103515245/1073741821) ((3512 . 5625) (/ 1103515245 1073741822) -> 1103515245/1073741822) ((3513 . 5625) (/ 1103515245 1073741823) -> 17516115/17043521) ((3514 . 5625) (/ 1103515245 1073741824) -> 1103515245/1073741824) ((3515 . 5625) (/ 1103515245 1073741825) -> 220703049/214748365) ((3516 . 5625) (/ 1103515246 1073741821) -> 1103515246/1073741821) ((3517 . 5625) (/ 1103515246 1073741822) -> 551757623/536870911) ((3518 . 5625) (/ 1103515246 1073741823) -> 35597266/34636833) ((3519 . 5625) (/ 1103515246 1073741824) -> 551757623/536870912) ((3520 . 5625) (/ 1103515246 1073741825) -> 26915006/26188825) ((3521 . 5625) (/ 1103515247 1073741821) -> 1103515247/1073741821) ((3522 . 5625) (/ 1103515247 1073741822) -> 1103515247/1073741822) ((3523 . 5625) (/ 1103515247 1073741823) -> 1103515247/1073741823) ((3524 . 5625) (/ 1103515247 1073741824) -> 1103515247/1073741824) ((3525 . 5625) (/ 1103515247 1073741825) -> 1103515247/1073741825) ((3526 . 5625) (/ 1103515243 -1073741826) -> -1103515243/1073741826) ((3527 . 5625) (/ 1103515243 -1073741825) -> -1103515243/1073741825) ((3528 . 5625) (/ 1103515243 -1073741824) -> -1103515243/1073741824) ((3529 . 5625) (/ 1103515243 -1073741823) -> -1103515243/1073741823) ((3530 . 5625) (/ 1103515243 -1073741822) -> -1103515243/1073741822) ((3531 . 5625) (/ 1103515244 -1073741826) -> -551757622/536870913) ((3532 . 5625) (/ 1103515244 -1073741825) -> -84885788/82595525) ((3533 . 5625) (/ 1103515244 -1073741824) -> -275878811/268435456) ((3534 . 5625) (/ 1103515244 -1073741823) -> -1103515244/1073741823) ((3535 . 5625) (/ 1103515244 -1073741822) -> -551757622/536870911) ((3536 . 5625) (/ 1103515245 -1073741826) -> -367838415/357913942) ((3537 . 5625) (/ 1103515245 -1073741825) -> -220703049/214748365) ((3538 . 5625) (/ 1103515245 -1073741824) -> -1103515245/1073741824) ((3539 . 5625) (/ 1103515245 -1073741823) -> -17516115/17043521) ((3540 . 5625) (/ 1103515245 -1073741822) -> -1103515245/1073741822) ((3541 . 5625) (/ 1103515246 -1073741826) -> -551757623/536870913) ((3542 . 5625) (/ 1103515246 -1073741825) -> -26915006/26188825) ((3543 . 5625) (/ 1103515246 -1073741824) -> -551757623/536870912) ((3544 . 5625) (/ 1103515246 -1073741823) -> -35597266/34636833) ((3545 . 5625) (/ 1103515246 -1073741822) -> -551757623/536870911) ((3546 . 5625) (/ 1103515247 -1073741826) -> -1103515247/1073741826) ((3547 . 5625) (/ 1103515247 -1073741825) -> -1103515247/1073741825) ((3548 . 5625) (/ 1103515247 -1073741824) -> -1103515247/1073741824) ((3549 . 5625) (/ 1103515247 -1073741823) -> -1103515247/1073741823) ((3550 . 5625) (/ 1103515247 -1073741822) -> -1103515247/1073741822) ((3551 . 5625) (/ 1103515243 1073741822) -> 1103515243/1073741822) ((3552 . 5625) (/ 1103515243 1073741823) -> 1103515243/1073741823) ((3553 . 5625) (/ 1103515243 1073741824) -> 1103515243/1073741824) ((3554 . 5625) (/ 1103515243 1073741825) -> 1103515243/1073741825) ((3555 . 5625) (/ 1103515243 1073741826) -> 1103515243/1073741826) ((3556 . 5625) (/ 1103515244 1073741822) -> 551757622/536870911) ((3557 . 5625) (/ 1103515244 1073741823) -> 1103515244/1073741823) ((3558 . 5625) (/ 1103515244 1073741824) -> 275878811/268435456) ((3559 . 5625) (/ 1103515244 1073741825) -> 84885788/82595525) ((3560 . 5625) (/ 1103515244 1073741826) -> 551757622/536870913) ((3561 . 5625) (/ 1103515245 1073741822) -> 1103515245/1073741822) ((3562 . 5625) (/ 1103515245 1073741823) -> 17516115/17043521) ((3563 . 5625) (/ 1103515245 1073741824) -> 1103515245/1073741824) ((3564 . 5625) (/ 1103515245 1073741825) -> 220703049/214748365) ((3565 . 5625) (/ 1103515245 1073741826) -> 367838415/357913942) ((3566 . 5625) (/ 1103515246 1073741822) -> 551757623/536870911) ((3567 . 5625) (/ 1103515246 1073741823) -> 35597266/34636833) ((3568 . 5625) (/ 1103515246 1073741824) -> 551757623/536870912) ((3569 . 5625) (/ 1103515246 1073741825) -> 26915006/26188825) ((3570 . 5625) (/ 1103515246 1073741826) -> 551757623/536870913) ((3571 . 5625) (/ 1103515247 1073741822) -> 1103515247/1073741822) ((3572 . 5625) (/ 1103515247 1073741823) -> 1103515247/1073741823) ((3573 . 5625) (/ 1103515247 1073741824) -> 1103515247/1073741824) ((3574 . 5625) (/ 1103515247 1073741825) -> 1103515247/1073741825) ((3575 . 5625) (/ 1103515247 1073741826) -> 1103515247/1073741826) ((3576 . 5625) (/ 1103515243 -1073741827) -> -1103515243/1073741827) ((3577 . 5625) (/ 1103515243 -1073741826) -> -1103515243/1073741826) ((3578 . 5625) (/ 1103515243 -1073741825) -> -1103515243/1073741825) ((3579 . 5625) (/ 1103515243 -1073741824) -> -1103515243/1073741824) ((3580 . 5625) (/ 1103515243 -1073741823) -> -1103515243/1073741823) ((3581 . 5625) (/ 1103515244 -1073741827) -> -1103515244/1073741827) ((3582 . 5625) (/ 1103515244 -1073741826) -> -551757622/536870913) ((3583 . 5625) (/ 1103515244 -1073741825) -> -84885788/82595525) ((3584 . 5625) (/ 1103515244 -1073741824) -> -275878811/268435456) ((3585 . 5625) (/ 1103515244 -1073741823) -> -1103515244/1073741823) ((3586 . 5625) (/ 1103515245 -1073741827) -> -1103515245/1073741827) ((3587 . 5625) (/ 1103515245 -1073741826) -> -367838415/357913942) ((3588 . 5625) (/ 1103515245 -1073741825) -> -220703049/214748365) ((3589 . 5625) (/ 1103515245 -1073741824) -> -1103515245/1073741824) ((3590 . 5625) (/ 1103515245 -1073741823) -> -17516115/17043521) ((3591 . 5625) (/ 1103515246 -1073741827) -> -1103515246/1073741827) ((3592 . 5625) (/ 1103515246 -1073741826) -> -551757623/536870913) ((3593 . 5625) (/ 1103515246 -1073741825) -> -26915006/26188825) ((3594 . 5625) (/ 1103515246 -1073741824) -> -551757623/536870912) ((3595 . 5625) (/ 1103515246 -1073741823) -> -35597266/34636833) ((3596 . 5625) (/ 1103515247 -1073741827) -> -1103515247/1073741827) ((3597 . 5625) (/ 1103515247 -1073741826) -> -1103515247/1073741826) ((3598 . 5625) (/ 1103515247 -1073741825) -> -1103515247/1073741825) ((3599 . 5625) (/ 1103515247 -1073741824) -> -1103515247/1073741824) ((3600 . 5625) (/ 1103515247 -1073741823) -> -1103515247/1073741823) ((3601 . 5625) (/ 1103515243 1103515243) -> 1) ((3602 . 5625) (/ 1103515243 1103515244) -> 1103515243/1103515244) ((3603 . 5625) (/ 1103515243 1103515245) -> 1103515243/1103515245) ((3604 . 5625) (/ 1103515243 1103515246) -> 1103515243/1103515246) ((3605 . 5625) (/ 1103515243 1103515247) -> 1103515243/1103515247) ((3606 . 5625) (/ 1103515244 1103515243) -> 1103515244/1103515243) ((3607 . 5625) (/ 1103515244 1103515244) -> 1) ((3608 . 5625) (/ 1103515244 1103515245) -> 1103515244/1103515245) ((3609 . 5625) (/ 1103515244 1103515246) -> 551757622/551757623) ((3610 . 5625) (/ 1103515244 1103515247) -> 1103515244/1103515247) ((3611 . 5625) (/ 1103515245 1103515243) -> 1103515245/1103515243) ((3612 . 5625) (/ 1103515245 1103515244) -> 1103515245/1103515244) ((3613 . 5625) (/ 1103515245 1103515245) -> 1) ((3614 . 5625) (/ 1103515245 1103515246) -> 1103515245/1103515246) ((3615 . 5625) (/ 1103515245 1103515247) -> 1103515245/1103515247) ((3616 . 5625) (/ 1103515246 1103515243) -> 1103515246/1103515243) ((3617 . 5625) (/ 1103515246 1103515244) -> 551757623/551757622) ((3618 . 5625) (/ 1103515246 1103515245) -> 1103515246/1103515245) ((3619 . 5625) (/ 1103515246 1103515246) -> 1) ((3620 . 5625) (/ 1103515246 1103515247) -> 1103515246/1103515247) ((3621 . 5625) (/ 1103515247 1103515243) -> 1103515247/1103515243) ((3622 . 5625) (/ 1103515247 1103515244) -> 1103515247/1103515244) ((3623 . 5625) (/ 1103515247 1103515245) -> 1103515247/1103515245) ((3624 . 5625) (/ 1103515247 1103515246) -> 1103515247/1103515246) ((3625 . 5625) (/ 1103515247 1103515247) -> 1) ((3626 . 5625) (/ 1103515243 631629063) -> 1103515243/631629063) ((3627 . 5625) (/ 1103515243 631629064) -> 1103515243/631629064) ((3628 . 5625) (/ 1103515243 631629065) -> 1103515243/631629065) ((3629 . 5625) (/ 1103515243 631629066) -> 1103515243/631629066) ((3630 . 5625) (/ 1103515243 631629067) -> 1103515243/631629067) ((3631 . 5625) (/ 1103515244 631629063) -> 84885788/48586851) ((3632 . 5625) (/ 1103515244 631629064) -> 275878811/157907266) ((3633 . 5625) (/ 1103515244 631629065) -> 1103515244/631629065) ((3634 . 5625) (/ 1103515244 631629066) -> 551757622/315814533) ((3635 . 5625) (/ 1103515244 631629067) -> 1103515244/631629067) ((3636 . 5625) (/ 1103515245 631629063) -> 40870935/23393669) ((3637 . 5625) (/ 1103515245 631629064) -> 1103515245/631629064) ((3638 . 5625) (/ 1103515245 631629065) -> 220703049/126325813) ((3639 . 5625) (/ 1103515245 631629066) -> 367838415/210543022) ((3640 . 5625) (/ 1103515245 631629067) -> 1103515245/631629067) ((3641 . 5625) (/ 1103515246 631629063) -> 1103515246/631629063) ((3642 . 5625) (/ 1103515246 631629064) -> 551757623/315814532) ((3643 . 5625) (/ 1103515246 631629065) -> 1103515246/631629065) ((3644 . 5625) (/ 1103515246 631629066) -> 551757623/315814533) ((3645 . 5625) (/ 1103515246 631629067) -> 26915006/15405587) ((3646 . 5625) (/ 1103515247 631629063) -> 1103515247/631629063) ((3647 . 5625) (/ 1103515247 631629064) -> 1103515247/631629064) ((3648 . 5625) (/ 1103515247 631629065) -> 1103515247/631629065) ((3649 . 5625) (/ 1103515247 631629066) -> 1103515247/631629066) ((3650 . 5625) (/ 1103515247 631629067) -> 1103515247/631629067) ((3651 . 5625) (/ 1103515243 9007199254740990) -> 1103515243/9007199254740990) ((3652 . 5625) (/ 1103515243 9007199254740991) -> 1103515243/9007199254740991) ((3653 . 5625) (/ 1103515243 9007199254740992) -> 1103515243/9007199254740992) ((3654 . 5625) (/ 1103515243 9007199254740993) -> 1103515243/9007199254740993) ((3655 . 5625) (/ 1103515243 9007199254740994) -> 1103515243/9007199254740994) ((3656 . 5625) (/ 1103515244 9007199254740990) -> 551757622/4503599627370495) ((3657 . 5625) (/ 1103515244 9007199254740991) -> 1103515244/9007199254740991) ((3658 . 5625) (/ 1103515244 9007199254740992) -> 275878811/2251799813685248) ((3659 . 5625) (/ 1103515244 9007199254740993) -> 1103515244/9007199254740993) ((3660 . 5625) (/ 1103515244 9007199254740994) -> 551757622/4503599627370497) ((3661 . 5625) (/ 1103515245 9007199254740990) -> 73567683/600479950316066) ((3662 . 5625) (/ 1103515245 9007199254740991) -> 1103515245/9007199254740991) ((3663 . 5625) (/ 1103515245 9007199254740992) -> 1103515245/9007199254740992) ((3664 . 5625) (/ 1103515245 9007199254740993) -> 367838415/3002399751580331) ((3665 . 5625) (/ 1103515245 9007199254740994) -> 1103515245/9007199254740994) ((3666 . 5625) (/ 1103515246 9007199254740990) -> 551757623/4503599627370495) ((3667 . 5625) (/ 1103515246 9007199254740991) -> 1103515246/9007199254740991) ((3668 . 5625) (/ 1103515246 9007199254740992) -> 551757623/4503599627370496) ((3669 . 5625) (/ 1103515246 9007199254740993) -> 1103515246/9007199254740993) ((3670 . 5625) (/ 1103515246 9007199254740994) -> 551757623/4503599627370497) ((3671 . 5625) (/ 1103515247 9007199254740990) -> 1103515247/9007199254740990) ((3672 . 5625) (/ 1103515247 9007199254740991) -> 1103515247/9007199254740991) ((3673 . 5625) (/ 1103515247 9007199254740992) -> 1103515247/9007199254740992) ((3674 . 5625) (/ 1103515247 9007199254740993) -> 1103515247/9007199254740993) ((3675 . 5625) (/ 1103515247 9007199254740994) -> 1103515247/9007199254740994) ((3676 . 5625) (/ 1103515243 -9007199254740994) -> -1103515243/9007199254740994) ((3677 . 5625) (/ 1103515243 -9007199254740993) -> -1103515243/9007199254740993) ((3678 . 5625) (/ 1103515243 -9007199254740992) -> -1103515243/9007199254740992) ((3679 . 5625) (/ 1103515243 -9007199254740991) -> -1103515243/9007199254740991) ((3680 . 5625) (/ 1103515243 -9007199254740990) -> -1103515243/9007199254740990) ((3681 . 5625) (/ 1103515244 -9007199254740994) -> -551757622/4503599627370497) ((3682 . 5625) (/ 1103515244 -9007199254740993) -> -1103515244/9007199254740993) ((3683 . 5625) (/ 1103515244 -9007199254740992) -> -275878811/2251799813685248) ((3684 . 5625) (/ 1103515244 -9007199254740991) -> -1103515244/9007199254740991) ((3685 . 5625) (/ 1103515244 -9007199254740990) -> -551757622/4503599627370495) ((3686 . 5625) (/ 1103515245 -9007199254740994) -> -1103515245/9007199254740994) ((3687 . 5625) (/ 1103515245 -9007199254740993) -> -367838415/3002399751580331) ((3688 . 5625) (/ 1103515245 -9007199254740992) -> -1103515245/9007199254740992) ((3689 . 5625) (/ 1103515245 -9007199254740991) -> -1103515245/9007199254740991) ((3690 . 5625) (/ 1103515245 -9007199254740990) -> -73567683/600479950316066) ((3691 . 5625) (/ 1103515246 -9007199254740994) -> -551757623/4503599627370497) ((3692 . 5625) (/ 1103515246 -9007199254740993) -> -1103515246/9007199254740993) ((3693 . 5625) (/ 1103515246 -9007199254740992) -> -551757623/4503599627370496) ((3694 . 5625) (/ 1103515246 -9007199254740991) -> -1103515246/9007199254740991) ((3695 . 5625) (/ 1103515246 -9007199254740990) -> -551757623/4503599627370495) ((3696 . 5625) (/ 1103515247 -9007199254740994) -> -1103515247/9007199254740994) ((3697 . 5625) (/ 1103515247 -9007199254740993) -> -1103515247/9007199254740993) ((3698 . 5625) (/ 1103515247 -9007199254740992) -> -1103515247/9007199254740992) ((3699 . 5625) (/ 1103515247 -9007199254740991) -> -1103515247/9007199254740991) ((3700 . 5625) (/ 1103515247 -9007199254740990) -> -1103515247/9007199254740990) ((3701 . 5625) (/ 1103515243 12343) -> 1103515243/12343) ((3702 . 5625) (/ 1103515243 12344) -> 1103515243/12344) ((3703 . 5625) (/ 1103515243 12345) -> 1103515243/12345) ((3704 . 5625) (/ 1103515243 12346) -> 1103515243/12346) ((3705 . 5625) (/ 1103515243 12347) -> 1103515243/12347) ((3706 . 5625) (/ 1103515244 12343) -> 1103515244/12343) ((3707 . 5625) (/ 1103515244 12344) -> 275878811/3086) ((3708 . 5625) (/ 1103515244 12345) -> 1103515244/12345) ((3709 . 5625) (/ 1103515244 12346) -> 551757622/6173) ((3710 . 5625) (/ 1103515244 12347) -> 1103515244/12347) ((3711 . 5625) (/ 1103515245 12343) -> 1103515245/12343) ((3712 . 5625) (/ 1103515245 12344) -> 1103515245/12344) ((3713 . 5625) (/ 1103515245 12345) -> 73567683/823) ((3714 . 5625) (/ 1103515245 12346) -> 1103515245/12346) ((3715 . 5625) (/ 1103515245 12347) -> 1103515245/12347) ((3716 . 5625) (/ 1103515246 12343) -> 1103515246/12343) ((3717 . 5625) (/ 1103515246 12344) -> 551757623/6172) ((3718 . 5625) (/ 1103515246 12345) -> 1103515246/12345) ((3719 . 5625) (/ 1103515246 12346) -> 551757623/6173) ((3720 . 5625) (/ 1103515246 12347) -> 1103515246/12347) ((3721 . 5625) (/ 1103515247 12343) -> 1103515247/12343) ((3722 . 5625) (/ 1103515247 12344) -> 1103515247/12344) ((3723 . 5625) (/ 1103515247 12345) -> 1103515247/12345) ((3724 . 5625) (/ 1103515247 12346) -> 1103515247/12346) ((3725 . 5625) (/ 1103515247 12347) -> 1103515247/12347) ((3726 . 5625) (/ 1103515243 4294967294) -> 1103515243/4294967294) ((3727 . 5625) (/ 1103515243 4294967295) -> 1103515243/4294967295) ((3728 . 5625) (/ 1103515243 4294967296) -> 1103515243/4294967296) ((3729 . 5625) (/ 1103515243 4294967297) -> 1103515243/4294967297) ((3730 . 5625) (/ 1103515243 4294967298) -> 1103515243/4294967298) ((3731 . 5625) (/ 1103515244 4294967294) -> 551757622/2147483647) ((3732 . 5625) (/ 1103515244 4294967295) -> 1103515244/4294967295) ((3733 . 5625) (/ 1103515244 4294967296) -> 275878811/1073741824) ((3734 . 5625) (/ 1103515244 4294967297) -> 1103515244/4294967297) ((3735 . 5625) (/ 1103515244 4294967298) -> 551757622/2147483649) ((3736 . 5625) (/ 1103515245 4294967294) -> 1103515245/4294967294) ((3737 . 5625) (/ 1103515245 4294967295) -> 73567683/286331153) ((3738 . 5625) (/ 1103515245 4294967296) -> 1103515245/4294967296) ((3739 . 5625) (/ 1103515245 4294967297) -> 1103515245/4294967297) ((3740 . 5625) (/ 1103515245 4294967298) -> 367838415/1431655766) ((3741 . 5625) (/ 1103515246 4294967294) -> 551757623/2147483647) ((3742 . 5625) (/ 1103515246 4294967295) -> 1103515246/4294967295) ((3743 . 5625) (/ 1103515246 4294967296) -> 551757623/2147483648) ((3744 . 5625) (/ 1103515246 4294967297) -> 1103515246/4294967297) ((3745 . 5625) (/ 1103515246 4294967298) -> 551757623/2147483649) ((3746 . 5625) (/ 1103515247 4294967294) -> 1103515247/4294967294) ((3747 . 5625) (/ 1103515247 4294967295) -> 1103515247/4294967295) ((3748 . 5625) (/ 1103515247 4294967296) -> 1103515247/4294967296) ((3749 . 5625) (/ 1103515247 4294967297) -> 1103515247/4294967297) ((3750 . 5625) (/ 1103515247 4294967298) -> 1103515247/4294967298) ((3751 . 5625) (/ 631629063 -2) -> -631629063/2) ((3752 . 5625) (/ 631629063 -1) -> -631629063) ((3753 . 5625) (/ 631629063 0) -> "division by zero") ((3754 . 5625) (/ 631629063 1) -> 631629063) ((3755 . 5625) (/ 631629063 2) -> 631629063/2) ((3756 . 5625) (/ 631629064 -2) -> -315814532) ((3757 . 5625) (/ 631629064 -1) -> -631629064) ((3758 . 5625) (/ 631629064 0) -> "division by zero") ((3759 . 5625) (/ 631629064 1) -> 631629064) ((3760 . 5625) (/ 631629064 2) -> 315814532) ((3761 . 5625) (/ 631629065 -2) -> -631629065/2) ((3762 . 5625) (/ 631629065 -1) -> -631629065) ((3763 . 5625) (/ 631629065 0) -> "division by zero") ((3764 . 5625) (/ 631629065 1) -> 631629065) ((3765 . 5625) (/ 631629065 2) -> 631629065/2) ((3766 . 5625) (/ 631629066 -2) -> -315814533) ((3767 . 5625) (/ 631629066 -1) -> -631629066) ((3768 . 5625) (/ 631629066 0) -> "division by zero") ((3769 . 5625) (/ 631629066 1) -> 631629066) ((3770 . 5625) (/ 631629066 2) -> 315814533) ((3771 . 5625) (/ 631629067 -2) -> -631629067/2) ((3772 . 5625) (/ 631629067 -1) -> -631629067) ((3773 . 5625) (/ 631629067 0) -> "division by zero") ((3774 . 5625) (/ 631629067 1) -> 631629067) ((3775 . 5625) (/ 631629067 2) -> 631629067/2) ((3776 . 5625) (/ 631629063 -1) -> -631629063) ((3777 . 5625) (/ 631629063 0) -> "division by zero") ((3778 . 5625) (/ 631629063 1) -> 631629063) ((3779 . 5625) (/ 631629063 2) -> 631629063/2) ((3780 . 5625) (/ 631629063 3) -> 210543021) ((3781 . 5625) (/ 631629064 -1) -> -631629064) ((3782 . 5625) (/ 631629064 0) -> "division by zero") ((3783 . 5625) (/ 631629064 1) -> 631629064) ((3784 . 5625) (/ 631629064 2) -> 315814532) ((3785 . 5625) (/ 631629064 3) -> 631629064/3) ((3786 . 5625) (/ 631629065 -1) -> -631629065) ((3787 . 5625) (/ 631629065 0) -> "division by zero") ((3788 . 5625) (/ 631629065 1) -> 631629065) ((3789 . 5625) (/ 631629065 2) -> 631629065/2) ((3790 . 5625) (/ 631629065 3) -> 631629065/3) ((3791 . 5625) (/ 631629066 -1) -> -631629066) ((3792 . 5625) (/ 631629066 0) -> "division by zero") ((3793 . 5625) (/ 631629066 1) -> 631629066) ((3794 . 5625) (/ 631629066 2) -> 315814533) ((3795 . 5625) (/ 631629066 3) -> 210543022) ((3796 . 5625) (/ 631629067 -1) -> -631629067) ((3797 . 5625) (/ 631629067 0) -> "division by zero") ((3798 . 5625) (/ 631629067 1) -> 631629067) ((3799 . 5625) (/ 631629067 2) -> 631629067/2) ((3800 . 5625) (/ 631629067 3) -> 631629067/3) ((3801 . 5625) (/ 631629063 -3) -> -210543021) ((3802 . 5625) (/ 631629063 -2) -> -631629063/2) ((3803 . 5625) (/ 631629063 -1) -> -631629063) ((3804 . 5625) (/ 631629063 0) -> "division by zero") ((3805 . 5625) (/ 631629063 1) -> 631629063) ((3806 . 5625) (/ 631629064 -3) -> -631629064/3) ((3807 . 5625) (/ 631629064 -2) -> -315814532) ((3808 . 5625) (/ 631629064 -1) -> -631629064) ((3809 . 5625) (/ 631629064 0) -> "division by zero") ((3810 . 5625) (/ 631629064 1) -> 631629064) ((3811 . 5625) (/ 631629065 -3) -> -631629065/3) ((3812 . 5625) (/ 631629065 -2) -> -631629065/2) ((3813 . 5625) (/ 631629065 -1) -> -631629065) ((3814 . 5625) (/ 631629065 0) -> "division by zero") ((3815 . 5625) (/ 631629065 1) -> 631629065) ((3816 . 5625) (/ 631629066 -3) -> -210543022) ((3817 . 5625) (/ 631629066 -2) -> -315814533) ((3818 . 5625) (/ 631629066 -1) -> -631629066) ((3819 . 5625) (/ 631629066 0) -> "division by zero") ((3820 . 5625) (/ 631629066 1) -> 631629066) ((3821 . 5625) (/ 631629067 -3) -> -631629067/3) ((3822 . 5625) (/ 631629067 -2) -> -631629067/2) ((3823 . 5625) (/ 631629067 -1) -> -631629067) ((3824 . 5625) (/ 631629067 0) -> "division by zero") ((3825 . 5625) (/ 631629067 1) -> 631629067) ((3826 . 5625) (/ 631629063 0) -> "division by zero") ((3827 . 5625) (/ 631629063 1) -> 631629063) ((3828 . 5625) (/ 631629063 2) -> 631629063/2) ((3829 . 5625) (/ 631629063 3) -> 210543021) ((3830 . 5625) (/ 631629063 4) -> 631629063/4) ((3831 . 5625) (/ 631629064 0) -> "division by zero") ((3832 . 5625) (/ 631629064 1) -> 631629064) ((3833 . 5625) (/ 631629064 2) -> 315814532) ((3834 . 5625) (/ 631629064 3) -> 631629064/3) ((3835 . 5625) (/ 631629064 4) -> 157907266) ((3836 . 5625) (/ 631629065 0) -> "division by zero") ((3837 . 5625) (/ 631629065 1) -> 631629065) ((3838 . 5625) (/ 631629065 2) -> 631629065/2) ((3839 . 5625) (/ 631629065 3) -> 631629065/3) ((3840 . 5625) (/ 631629065 4) -> 631629065/4) ((3841 . 5625) (/ 631629066 0) -> "division by zero") ((3842 . 5625) (/ 631629066 1) -> 631629066) ((3843 . 5625) (/ 631629066 2) -> 315814533) ((3844 . 5625) (/ 631629066 3) -> 210543022) ((3845 . 5625) (/ 631629066 4) -> 315814533/2) ((3846 . 5625) (/ 631629067 0) -> "division by zero") ((3847 . 5625) (/ 631629067 1) -> 631629067) ((3848 . 5625) (/ 631629067 2) -> 631629067/2) ((3849 . 5625) (/ 631629067 3) -> 631629067/3) ((3850 . 5625) (/ 631629067 4) -> 631629067/4) ((3851 . 5625) (/ 631629063 -4) -> -631629063/4) ((3852 . 5625) (/ 631629063 -3) -> -210543021) ((3853 . 5625) (/ 631629063 -2) -> -631629063/2) ((3854 . 5625) (/ 631629063 -1) -> -631629063) ((3855 . 5625) (/ 631629063 0) -> "division by zero") ((3856 . 5625) (/ 631629064 -4) -> -157907266) ((3857 . 5625) (/ 631629064 -3) -> -631629064/3) ((3858 . 5625) (/ 631629064 -2) -> -315814532) ((3859 . 5625) (/ 631629064 -1) -> -631629064) ((3860 . 5625) (/ 631629064 0) -> "division by zero") ((3861 . 5625) (/ 631629065 -4) -> -631629065/4) ((3862 . 5625) (/ 631629065 -3) -> -631629065/3) ((3863 . 5625) (/ 631629065 -2) -> -631629065/2) ((3864 . 5625) (/ 631629065 -1) -> -631629065) ((3865 . 5625) (/ 631629065 0) -> "division by zero") ((3866 . 5625) (/ 631629066 -4) -> -315814533/2) ((3867 . 5625) (/ 631629066 -3) -> -210543022) ((3868 . 5625) (/ 631629066 -2) -> -315814533) ((3869 . 5625) (/ 631629066 -1) -> -631629066) ((3870 . 5625) (/ 631629066 0) -> "division by zero") ((3871 . 5625) (/ 631629067 -4) -> -631629067/4) ((3872 . 5625) (/ 631629067 -3) -> -631629067/3) ((3873 . 5625) (/ 631629067 -2) -> -631629067/2) ((3874 . 5625) (/ 631629067 -1) -> -631629067) ((3875 . 5625) (/ 631629067 0) -> "division by zero") ((3876 . 5625) (/ 631629063 1073741821) -> 631629063/1073741821) ((3877 . 5625) (/ 631629063 1073741822) -> 631629063/1073741822) ((3878 . 5625) (/ 631629063 1073741823) -> 70181007/119304647) ((3879 . 5625) (/ 631629063 1073741824) -> 631629063/1073741824) ((3880 . 5625) (/ 631629063 1073741825) -> 48586851/82595525) ((3881 . 5625) (/ 631629064 1073741821) -> 631629064/1073741821) ((3882 . 5625) (/ 631629064 1073741822) -> 315814532/536870911) ((3883 . 5625) (/ 631629064 1073741823) -> 57420824/97612893) ((3884 . 5625) (/ 631629064 1073741824) -> 78953633/134217728) ((3885 . 5625) (/ 631629064 1073741825) -> 631629064/1073741825) ((3886 . 5625) (/ 631629065 1073741821) -> 631629065/1073741821) ((3887 . 5625) (/ 631629065 1073741822) -> 631629065/1073741822) ((3888 . 5625) (/ 631629065 1073741823) -> 631629065/1073741823) ((3889 . 5625) (/ 631629065 1073741824) -> 631629065/1073741824) ((3890 . 5625) (/ 631629065 1073741825) -> 126325813/214748365) ((3891 . 5625) (/ 631629066 1073741821) -> 631629066/1073741821) ((3892 . 5625) (/ 631629066 1073741822) -> 315814533/536870911) ((3893 . 5625) (/ 631629066 1073741823) -> 210543022/357913941) ((3894 . 5625) (/ 631629066 1073741824) -> 315814533/536870912) ((3895 . 5625) (/ 631629066 1073741825) -> 631629066/1073741825) ((3896 . 5625) (/ 631629067 1073741821) -> 631629067/1073741821) ((3897 . 5625) (/ 631629067 1073741822) -> 631629067/1073741822) ((3898 . 5625) (/ 631629067 1073741823) -> 631629067/1073741823) ((3899 . 5625) (/ 631629067 1073741824) -> 631629067/1073741824) ((3900 . 5625) (/ 631629067 1073741825) -> 15405587/26188825) ((3901 . 5625) (/ 631629063 -1073741826) -> -210543021/357913942) ((3902 . 5625) (/ 631629063 -1073741825) -> -48586851/82595525) ((3903 . 5625) (/ 631629063 -1073741824) -> -631629063/1073741824) ((3904 . 5625) (/ 631629063 -1073741823) -> -70181007/119304647) ((3905 . 5625) (/ 631629063 -1073741822) -> -631629063/1073741822) ((3906 . 5625) (/ 631629064 -1073741826) -> -315814532/536870913) ((3907 . 5625) (/ 631629064 -1073741825) -> -631629064/1073741825) ((3908 . 5625) (/ 631629064 -1073741824) -> -78953633/134217728) ((3909 . 5625) (/ 631629064 -1073741823) -> -57420824/97612893) ((3910 . 5625) (/ 631629064 -1073741822) -> -315814532/536870911) ((3911 . 5625) (/ 631629065 -1073741826) -> -631629065/1073741826) ((3912 . 5625) (/ 631629065 -1073741825) -> -126325813/214748365) ((3913 . 5625) (/ 631629065 -1073741824) -> -631629065/1073741824) ((3914 . 5625) (/ 631629065 -1073741823) -> -631629065/1073741823) ((3915 . 5625) (/ 631629065 -1073741822) -> -631629065/1073741822) ((3916 . 5625) (/ 631629066 -1073741826) -> -105271511/178956971) ((3917 . 5625) (/ 631629066 -1073741825) -> -631629066/1073741825) ((3918 . 5625) (/ 631629066 -1073741824) -> -315814533/536870912) ((3919 . 5625) (/ 631629066 -1073741823) -> -210543022/357913941) ((3920 . 5625) (/ 631629066 -1073741822) -> -315814533/536870911) ((3921 . 5625) (/ 631629067 -1073741826) -> -631629067/1073741826) ((3922 . 5625) (/ 631629067 -1073741825) -> -15405587/26188825) ((3923 . 5625) (/ 631629067 -1073741824) -> -631629067/1073741824) ((3924 . 5625) (/ 631629067 -1073741823) -> -631629067/1073741823) ((3925 . 5625) (/ 631629067 -1073741822) -> -631629067/1073741822) ((3926 . 5625) (/ 631629063 1073741822) -> 631629063/1073741822) ((3927 . 5625) (/ 631629063 1073741823) -> 70181007/119304647) ((3928 . 5625) (/ 631629063 1073741824) -> 631629063/1073741824) ((3929 . 5625) (/ 631629063 1073741825) -> 48586851/82595525) ((3930 . 5625) (/ 631629063 1073741826) -> 210543021/357913942) ((3931 . 5625) (/ 631629064 1073741822) -> 315814532/536870911) ((3932 . 5625) (/ 631629064 1073741823) -> 57420824/97612893) ((3933 . 5625) (/ 631629064 1073741824) -> 78953633/134217728) ((3934 . 5625) (/ 631629064 1073741825) -> 631629064/1073741825) ((3935 . 5625) (/ 631629064 1073741826) -> 315814532/536870913) ((3936 . 5625) (/ 631629065 1073741822) -> 631629065/1073741822) ((3937 . 5625) (/ 631629065 1073741823) -> 631629065/1073741823) ((3938 . 5625) (/ 631629065 1073741824) -> 631629065/1073741824) ((3939 . 5625) (/ 631629065 1073741825) -> 126325813/214748365) ((3940 . 5625) (/ 631629065 1073741826) -> 631629065/1073741826) ((3941 . 5625) (/ 631629066 1073741822) -> 315814533/536870911) ((3942 . 5625) (/ 631629066 1073741823) -> 210543022/357913941) ((3943 . 5625) (/ 631629066 1073741824) -> 315814533/536870912) ((3944 . 5625) (/ 631629066 1073741825) -> 631629066/1073741825) ((3945 . 5625) (/ 631629066 1073741826) -> 105271511/178956971) ((3946 . 5625) (/ 631629067 1073741822) -> 631629067/1073741822) ((3947 . 5625) (/ 631629067 1073741823) -> 631629067/1073741823) ((3948 . 5625) (/ 631629067 1073741824) -> 631629067/1073741824) ((3949 . 5625) (/ 631629067 1073741825) -> 15405587/26188825) ((3950 . 5625) (/ 631629067 1073741826) -> 631629067/1073741826) ((3951 . 5625) (/ 631629063 -1073741827) -> -631629063/1073741827) ((3952 . 5625) (/ 631629063 -1073741826) -> -210543021/357913942) ((3953 . 5625) (/ 631629063 -1073741825) -> -48586851/82595525) ((3954 . 5625) (/ 631629063 -1073741824) -> -631629063/1073741824) ((3955 . 5625) (/ 631629063 -1073741823) -> -70181007/119304647) ((3956 . 5625) (/ 631629064 -1073741827) -> -631629064/1073741827) ((3957 . 5625) (/ 631629064 -1073741826) -> -315814532/536870913) ((3958 . 5625) (/ 631629064 -1073741825) -> -631629064/1073741825) ((3959 . 5625) (/ 631629064 -1073741824) -> -78953633/134217728) ((3960 . 5625) (/ 631629064 -1073741823) -> -57420824/97612893) ((3961 . 5625) (/ 631629065 -1073741827) -> -631629065/1073741827) ((3962 . 5625) (/ 631629065 -1073741826) -> -631629065/1073741826) ((3963 . 5625) (/ 631629065 -1073741825) -> -126325813/214748365) ((3964 . 5625) (/ 631629065 -1073741824) -> -631629065/1073741824) ((3965 . 5625) (/ 631629065 -1073741823) -> -631629065/1073741823) ((3966 . 5625) (/ 631629066 -1073741827) -> -631629066/1073741827) ((3967 . 5625) (/ 631629066 -1073741826) -> -105271511/178956971) ((3968 . 5625) (/ 631629066 -1073741825) -> -631629066/1073741825) ((3969 . 5625) (/ 631629066 -1073741824) -> -315814533/536870912) ((3970 . 5625) (/ 631629066 -1073741823) -> -210543022/357913941) ((3971 . 5625) (/ 631629067 -1073741827) -> -631629067/1073741827) ((3972 . 5625) (/ 631629067 -1073741826) -> -631629067/1073741826) ((3973 . 5625) (/ 631629067 -1073741825) -> -15405587/26188825) ((3974 . 5625) (/ 631629067 -1073741824) -> -631629067/1073741824) ((3975 . 5625) (/ 631629067 -1073741823) -> -631629067/1073741823) ((3976 . 5625) (/ 631629063 1103515243) -> 631629063/1103515243) ((3977 . 5625) (/ 631629063 1103515244) -> 48586851/84885788) ((3978 . 5625) (/ 631629063 1103515245) -> 23393669/40870935) ((3979 . 5625) (/ 631629063 1103515246) -> 631629063/1103515246) ((3980 . 5625) (/ 631629063 1103515247) -> 631629063/1103515247) ((3981 . 5625) (/ 631629064 1103515243) -> 631629064/1103515243) ((3982 . 5625) (/ 631629064 1103515244) -> 157907266/275878811) ((3983 . 5625) (/ 631629064 1103515245) -> 631629064/1103515245) ((3984 . 5625) (/ 631629064 1103515246) -> 315814532/551757623) ((3985 . 5625) (/ 631629064 1103515247) -> 631629064/1103515247) ((3986 . 5625) (/ 631629065 1103515243) -> 631629065/1103515243) ((3987 . 5625) (/ 631629065 1103515244) -> 631629065/1103515244) ((3988 . 5625) (/ 631629065 1103515245) -> 126325813/220703049) ((3989 . 5625) (/ 631629065 1103515246) -> 631629065/1103515246) ((3990 . 5625) (/ 631629065 1103515247) -> 631629065/1103515247) ((3991 . 5625) (/ 631629066 1103515243) -> 631629066/1103515243) ((3992 . 5625) (/ 631629066 1103515244) -> 315814533/551757622) ((3993 . 5625) (/ 631629066 1103515245) -> 210543022/367838415) ((3994 . 5625) (/ 631629066 1103515246) -> 315814533/551757623) ((3995 . 5625) (/ 631629066 1103515247) -> 631629066/1103515247) ((3996 . 5625) (/ 631629067 1103515243) -> 631629067/1103515243) ((3997 . 5625) (/ 631629067 1103515244) -> 631629067/1103515244) ((3998 . 5625) (/ 631629067 1103515245) -> 631629067/1103515245) ((3999 . 5625) (/ 631629067 1103515246) -> 15405587/26915006) ((4000 . 5625) (/ 631629067 1103515247) -> 631629067/1103515247) ((4001 . 5625) (/ 631629063 631629063) -> 1) ((4002 . 5625) (/ 631629063 631629064) -> 631629063/631629064) ((4003 . 5625) (/ 631629063 631629065) -> 631629063/631629065) ((4004 . 5625) (/ 631629063 631629066) -> 210543021/210543022) ((4005 . 5625) (/ 631629063 631629067) -> 631629063/631629067) ((4006 . 5625) (/ 631629064 631629063) -> 631629064/631629063) ((4007 . 5625) (/ 631629064 631629064) -> 1) ((4008 . 5625) (/ 631629064 631629065) -> 631629064/631629065) ((4009 . 5625) (/ 631629064 631629066) -> 315814532/315814533) ((4010 . 5625) (/ 631629064 631629067) -> 631629064/631629067) ((4011 . 5625) (/ 631629065 631629063) -> 631629065/631629063) ((4012 . 5625) (/ 631629065 631629064) -> 631629065/631629064) ((4013 . 5625) (/ 631629065 631629065) -> 1) ((4014 . 5625) (/ 631629065 631629066) -> 631629065/631629066) ((4015 . 5625) (/ 631629065 631629067) -> 631629065/631629067) ((4016 . 5625) (/ 631629066 631629063) -> 210543022/210543021) ((4017 . 5625) (/ 631629066 631629064) -> 315814533/315814532) ((4018 . 5625) (/ 631629066 631629065) -> 631629066/631629065) ((4019 . 5625) (/ 631629066 631629066) -> 1) ((4020 . 5625) (/ 631629066 631629067) -> 631629066/631629067) ((4021 . 5625) (/ 631629067 631629063) -> 631629067/631629063) ((4022 . 5625) (/ 631629067 631629064) -> 631629067/631629064) ((4023 . 5625) (/ 631629067 631629065) -> 631629067/631629065) ((4024 . 5625) (/ 631629067 631629066) -> 631629067/631629066) ((4025 . 5625) (/ 631629067 631629067) -> 1) ((4026 . 5625) (/ 631629063 9007199254740990) -> 210543021/3002399751580330) ((4027 . 5625) (/ 631629063 9007199254740991) -> 631629063/9007199254740991) ((4028 . 5625) (/ 631629063 9007199254740992) -> 631629063/9007199254740992) ((4029 . 5625) (/ 631629063 9007199254740993) -> 210543021/3002399751580331) ((4030 . 5625) (/ 631629063 9007199254740994) -> 631629063/9007199254740994) ((4031 . 5625) (/ 631629064 9007199254740990) -> 315814532/4503599627370495) ((4032 . 5625) (/ 631629064 9007199254740991) -> 631629064/9007199254740991) ((4033 . 5625) (/ 631629064 9007199254740992) -> 78953633/1125899906842624) ((4034 . 5625) (/ 631629064 9007199254740993) -> 631629064/9007199254740993) ((4035 . 5625) (/ 631629064 9007199254740994) -> 315814532/4503599627370497) ((4036 . 5625) (/ 631629065 9007199254740990) -> 126325813/1801439850948198) ((4037 . 5625) (/ 631629065 9007199254740991) -> 631629065/9007199254740991) ((4038 . 5625) (/ 631629065 9007199254740992) -> 631629065/9007199254740992) ((4039 . 5625) (/ 631629065 9007199254740993) -> 631629065/9007199254740993) ((4040 . 5625) (/ 631629065 9007199254740994) -> 631629065/9007199254740994) ((4041 . 5625) (/ 631629066 9007199254740990) -> 105271511/1501199875790165) ((4042 . 5625) (/ 631629066 9007199254740991) -> 631629066/9007199254740991) ((4043 . 5625) (/ 631629066 9007199254740992) -> 315814533/4503599627370496) ((4044 . 5625) (/ 631629066 9007199254740993) -> 210543022/3002399751580331) ((4045 . 5625) (/ 631629066 9007199254740994) -> 315814533/4503599627370497) ((4046 . 5625) (/ 631629067 9007199254740990) -> 631629067/9007199254740990) ((4047 . 5625) (/ 631629067 9007199254740991) -> 631629067/9007199254740991) ((4048 . 5625) (/ 631629067 9007199254740992) -> 631629067/9007199254740992) ((4049 . 5625) (/ 631629067 9007199254740993) -> 631629067/9007199254740993) ((4050 . 5625) (/ 631629067 9007199254740994) -> 37154651/529835250278882) ((4051 . 5625) (/ 631629063 -9007199254740994) -> -631629063/9007199254740994) ((4052 . 5625) (/ 631629063 -9007199254740993) -> -210543021/3002399751580331) ((4053 . 5625) (/ 631629063 -9007199254740992) -> -631629063/9007199254740992) ((4054 . 5625) (/ 631629063 -9007199254740991) -> -631629063/9007199254740991) ((4055 . 5625) (/ 631629063 -9007199254740990) -> -210543021/3002399751580330) ((4056 . 5625) (/ 631629064 -9007199254740994) -> -315814532/4503599627370497) ((4057 . 5625) (/ 631629064 -9007199254740993) -> -631629064/9007199254740993) ((4058 . 5625) (/ 631629064 -9007199254740992) -> -78953633/1125899906842624) ((4059 . 5625) (/ 631629064 -9007199254740991) -> -631629064/9007199254740991) ((4060 . 5625) (/ 631629064 -9007199254740990) -> -315814532/4503599627370495) ((4061 . 5625) (/ 631629065 -9007199254740994) -> -631629065/9007199254740994) ((4062 . 5625) (/ 631629065 -9007199254740993) -> -631629065/9007199254740993) ((4063 . 5625) (/ 631629065 -9007199254740992) -> -631629065/9007199254740992) ((4064 . 5625) (/ 631629065 -9007199254740991) -> -631629065/9007199254740991) ((4065 . 5625) (/ 631629065 -9007199254740990) -> -126325813/1801439850948198) ((4066 . 5625) (/ 631629066 -9007199254740994) -> -315814533/4503599627370497) ((4067 . 5625) (/ 631629066 -9007199254740993) -> -210543022/3002399751580331) ((4068 . 5625) (/ 631629066 -9007199254740992) -> -315814533/4503599627370496) ((4069 . 5625) (/ 631629066 -9007199254740991) -> -631629066/9007199254740991) ((4070 . 5625) (/ 631629066 -9007199254740990) -> -105271511/1501199875790165) ((4071 . 5625) (/ 631629067 -9007199254740994) -> -37154651/529835250278882) ((4072 . 5625) (/ 631629067 -9007199254740993) -> -631629067/9007199254740993) ((4073 . 5625) (/ 631629067 -9007199254740992) -> -631629067/9007199254740992) ((4074 . 5625) (/ 631629067 -9007199254740991) -> -631629067/9007199254740991) ((4075 . 5625) (/ 631629067 -9007199254740990) -> -631629067/9007199254740990) ((4076 . 5625) (/ 631629063 12343) -> 631629063/12343) ((4077 . 5625) (/ 631629063 12344) -> 631629063/12344) ((4078 . 5625) (/ 631629063 12345) -> 210543021/4115) ((4079 . 5625) (/ 631629063 12346) -> 631629063/12346) ((4080 . 5625) (/ 631629063 12347) -> 631629063/12347) ((4081 . 5625) (/ 631629064 12343) -> 631629064/12343) ((4082 . 5625) (/ 631629064 12344) -> 78953633/1543) ((4083 . 5625) (/ 631629064 12345) -> 631629064/12345) ((4084 . 5625) (/ 631629064 12346) -> 315814532/6173) ((4085 . 5625) (/ 631629064 12347) -> 631629064/12347) ((4086 . 5625) (/ 631629065 12343) -> 631629065/12343) ((4087 . 5625) (/ 631629065 12344) -> 631629065/12344) ((4088 . 5625) (/ 631629065 12345) -> 126325813/2469) ((4089 . 5625) (/ 631629065 12346) -> 631629065/12346) ((4090 . 5625) (/ 631629065 12347) -> 631629065/12347) ((4091 . 5625) (/ 631629066 12343) -> 631629066/12343) ((4092 . 5625) (/ 631629066 12344) -> 315814533/6172) ((4093 . 5625) (/ 631629066 12345) -> 210543022/4115) ((4094 . 5625) (/ 631629066 12346) -> 315814533/6173) ((4095 . 5625) (/ 631629066 12347) -> 631629066/12347) ((4096 . 5625) (/ 631629067 12343) -> 631629067/12343) ((4097 . 5625) (/ 631629067 12344) -> 631629067/12344) ((4098 . 5625) (/ 631629067 12345) -> 631629067/12345) ((4099 . 5625) (/ 631629067 12346) -> 631629067/12346) ((4100 . 5625) (/ 631629067 12347) -> 631629067/12347) ((4101 . 5625) (/ 631629063 4294967294) -> 631629063/4294967294) ((4102 . 5625) (/ 631629063 4294967295) -> 210543021/1431655765) ((4103 . 5625) (/ 631629063 4294967296) -> 631629063/4294967296) ((4104 . 5625) (/ 631629063 4294967297) -> 631629063/4294967297) ((4105 . 5625) (/ 631629063 4294967298) -> 210543021/1431655766) ((4106 . 5625) (/ 631629064 4294967294) -> 315814532/2147483647) ((4107 . 5625) (/ 631629064 4294967295) -> 631629064/4294967295) ((4108 . 5625) (/ 631629064 4294967296) -> 78953633/536870912) ((4109 . 5625) (/ 631629064 4294967297) -> 631629064/4294967297) ((4110 . 5625) (/ 631629064 4294967298) -> 315814532/2147483649) ((4111 . 5625) (/ 631629065 4294967294) -> 631629065/4294967294) ((4112 . 5625) (/ 631629065 4294967295) -> 126325813/858993459) ((4113 . 5625) (/ 631629065 4294967296) -> 631629065/4294967296) ((4114 . 5625) (/ 631629065 4294967297) -> 631629065/4294967297) ((4115 . 5625) (/ 631629065 4294967298) -> 631629065/4294967298) ((4116 . 5625) (/ 631629066 4294967294) -> 315814533/2147483647) ((4117 . 5625) (/ 631629066 4294967295) -> 210543022/1431655765) ((4118 . 5625) (/ 631629066 4294967296) -> 315814533/2147483648) ((4119 . 5625) (/ 631629066 4294967297) -> 631629066/4294967297) ((4120 . 5625) (/ 631629066 4294967298) -> 105271511/715827883) ((4121 . 5625) (/ 631629067 4294967294) -> 631629067/4294967294) ((4122 . 5625) (/ 631629067 4294967295) -> 37154651/252645135) ((4123 . 5625) (/ 631629067 4294967296) -> 631629067/4294967296) ((4124 . 5625) (/ 631629067 4294967297) -> 631629067/4294967297) ((4125 . 5625) (/ 631629067 4294967298) -> 631629067/4294967298) ((4126 . 5625) (/ 9007199254740990 -2) -> -4503599627370495) ((4127 . 5625) (/ 9007199254740990 -1) -> -9007199254740990) ((4128 . 5625) (/ 9007199254740990 0) -> "division by zero") ((4129 . 5625) (/ 9007199254740990 1) -> 9007199254740990) ((4130 . 5625) (/ 9007199254740990 2) -> 4503599627370495) ((4131 . 5625) (/ 9007199254740991 -2) -> -9007199254740991/2) ((4132 . 5625) (/ 9007199254740991 -1) -> -9007199254740991) ((4133 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4134 . 5625) (/ 9007199254740991 1) -> 9007199254740991) ((4135 . 5625) (/ 9007199254740991 2) -> 9007199254740991/2) ((4136 . 5625) (/ 9007199254740992 -2) -> -4503599627370496) ((4137 . 5625) (/ 9007199254740992 -1) -> -9007199254740992) ((4138 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4139 . 5625) (/ 9007199254740992 1) -> 9007199254740992) ((4140 . 5625) (/ 9007199254740992 2) -> 4503599627370496) ((4141 . 5625) (/ 9007199254740993 -2) -> -9007199254740993/2) ((4142 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4143 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4144 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4145 . 5625) (/ 9007199254740993 2) -> 9007199254740993/2) ((4146 . 5625) (/ 9007199254740994 -2) -> -4503599627370497) ((4147 . 5625) (/ 9007199254740994 -1) -> -9007199254740994) ((4148 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4149 . 5625) (/ 9007199254740994 1) -> 9007199254740994) ((4150 . 5625) (/ 9007199254740994 2) -> 4503599627370497) ((4151 . 5625) (/ 9007199254740990 -1) -> -9007199254740990) ((4152 . 5625) (/ 9007199254740990 0) -> "division by zero") ((4153 . 5625) (/ 9007199254740990 1) -> 9007199254740990) ((4154 . 5625) (/ 9007199254740990 2) -> 4503599627370495) ((4155 . 5625) (/ 9007199254740990 3) -> 3002399751580330) ((4156 . 5625) (/ 9007199254740991 -1) -> -9007199254740991) ((4157 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4158 . 5625) (/ 9007199254740991 1) -> 9007199254740991) ((4159 . 5625) (/ 9007199254740991 2) -> 9007199254740991/2) ((4160 . 5625) (/ 9007199254740991 3) -> 9007199254740991/3) ((4161 . 5625) (/ 9007199254740992 -1) -> -9007199254740992) ((4162 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4163 . 5625) (/ 9007199254740992 1) -> 9007199254740992) ((4164 . 5625) (/ 9007199254740992 2) -> 4503599627370496) ((4165 . 5625) (/ 9007199254740992 3) -> 9007199254740992/3) ((4166 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4167 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4168 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4169 . 5625) (/ 9007199254740993 2) -> 9007199254740993/2) ((4170 . 5625) (/ 9007199254740993 3) -> 3002399751580331) ((4171 . 5625) (/ 9007199254740994 -1) -> -9007199254740994) ((4172 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4173 . 5625) (/ 9007199254740994 1) -> 9007199254740994) ((4174 . 5625) (/ 9007199254740994 2) -> 4503599627370497) ((4175 . 5625) (/ 9007199254740994 3) -> 9007199254740994/3) ((4176 . 5625) (/ 9007199254740990 -3) -> -3002399751580330) ((4177 . 5625) (/ 9007199254740990 -2) -> -4503599627370495) ((4178 . 5625) (/ 9007199254740990 -1) -> -9007199254740990) ((4179 . 5625) (/ 9007199254740990 0) -> "division by zero") ((4180 . 5625) (/ 9007199254740990 1) -> 9007199254740990) ((4181 . 5625) (/ 9007199254740991 -3) -> -9007199254740991/3) ((4182 . 5625) (/ 9007199254740991 -2) -> -9007199254740991/2) ((4183 . 5625) (/ 9007199254740991 -1) -> -9007199254740991) ((4184 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4185 . 5625) (/ 9007199254740991 1) -> 9007199254740991) ((4186 . 5625) (/ 9007199254740992 -3) -> -9007199254740992/3) ((4187 . 5625) (/ 9007199254740992 -2) -> -4503599627370496) ((4188 . 5625) (/ 9007199254740992 -1) -> -9007199254740992) ((4189 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4190 . 5625) (/ 9007199254740992 1) -> 9007199254740992) ((4191 . 5625) (/ 9007199254740993 -3) -> -3002399751580331) ((4192 . 5625) (/ 9007199254740993 -2) -> -9007199254740993/2) ((4193 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4194 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4195 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4196 . 5625) (/ 9007199254740994 -3) -> -9007199254740994/3) ((4197 . 5625) (/ 9007199254740994 -2) -> -4503599627370497) ((4198 . 5625) (/ 9007199254740994 -1) -> -9007199254740994) ((4199 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4200 . 5625) (/ 9007199254740994 1) -> 9007199254740994) ((4201 . 5625) (/ 9007199254740990 0) -> "division by zero") ((4202 . 5625) (/ 9007199254740990 1) -> 9007199254740990) ((4203 . 5625) (/ 9007199254740990 2) -> 4503599627370495) ((4204 . 5625) (/ 9007199254740990 3) -> 3002399751580330) ((4205 . 5625) (/ 9007199254740990 4) -> 4503599627370495/2) ((4206 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4207 . 5625) (/ 9007199254740991 1) -> 9007199254740991) ((4208 . 5625) (/ 9007199254740991 2) -> 9007199254740991/2) ((4209 . 5625) (/ 9007199254740991 3) -> 9007199254740991/3) ((4210 . 5625) (/ 9007199254740991 4) -> 9007199254740991/4) ((4211 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4212 . 5625) (/ 9007199254740992 1) -> 9007199254740992) ((4213 . 5625) (/ 9007199254740992 2) -> 4503599627370496) ((4214 . 5625) (/ 9007199254740992 3) -> 9007199254740992/3) ((4215 . 5625) (/ 9007199254740992 4) -> 2251799813685248) ((4216 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4217 . 5625) (/ 9007199254740993 1) -> 9007199254740993) ((4218 . 5625) (/ 9007199254740993 2) -> 9007199254740993/2) ((4219 . 5625) (/ 9007199254740993 3) -> 3002399751580331) ((4220 . 5625) (/ 9007199254740993 4) -> 9007199254740993/4) ((4221 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4222 . 5625) (/ 9007199254740994 1) -> 9007199254740994) ((4223 . 5625) (/ 9007199254740994 2) -> 4503599627370497) ((4224 . 5625) (/ 9007199254740994 3) -> 9007199254740994/3) ((4225 . 5625) (/ 9007199254740994 4) -> 4503599627370497/2) ((4226 . 5625) (/ 9007199254740990 -4) -> -4503599627370495/2) ((4227 . 5625) (/ 9007199254740990 -3) -> -3002399751580330) ((4228 . 5625) (/ 9007199254740990 -2) -> -4503599627370495) ((4229 . 5625) (/ 9007199254740990 -1) -> -9007199254740990) ((4230 . 5625) (/ 9007199254740990 0) -> "division by zero") ((4231 . 5625) (/ 9007199254740991 -4) -> -9007199254740991/4) ((4232 . 5625) (/ 9007199254740991 -3) -> -9007199254740991/3) ((4233 . 5625) (/ 9007199254740991 -2) -> -9007199254740991/2) ((4234 . 5625) (/ 9007199254740991 -1) -> -9007199254740991) ((4235 . 5625) (/ 9007199254740991 0) -> "division by zero") ((4236 . 5625) (/ 9007199254740992 -4) -> -2251799813685248) ((4237 . 5625) (/ 9007199254740992 -3) -> -9007199254740992/3) ((4238 . 5625) (/ 9007199254740992 -2) -> -4503599627370496) ((4239 . 5625) (/ 9007199254740992 -1) -> -9007199254740992) ((4240 . 5625) (/ 9007199254740992 0) -> "division by zero") ((4241 . 5625) (/ 9007199254740993 -4) -> -9007199254740993/4) ((4242 . 5625) (/ 9007199254740993 -3) -> -3002399751580331) ((4243 . 5625) (/ 9007199254740993 -2) -> -9007199254740993/2) ((4244 . 5625) (/ 9007199254740993 -1) -> -9007199254740993) ((4245 . 5625) (/ 9007199254740993 0) -> "division by zero") ((4246 . 5625) (/ 9007199254740994 -4) -> -4503599627370497/2) ((4247 . 5625) (/ 9007199254740994 -3) -> -9007199254740994/3) ((4248 . 5625) (/ 9007199254740994 -2) -> -4503599627370497) ((4249 . 5625) (/ 9007199254740994 -1) -> -9007199254740994) ((4250 . 5625) (/ 9007199254740994 0) -> "division by zero") ((4251 . 5625) (/ 9007199254740990 1073741821) -> 9007199254740990/1073741821) ((4252 . 5625) (/ 9007199254740990 1073741822) -> 4503599627370495/536870911) ((4253 . 5625) (/ 9007199254740990 1073741823) -> 3002399751580330/357913941) ((4254 . 5625) (/ 9007199254740990 1073741824) -> 4503599627370495/536870912) ((4255 . 5625) (/ 9007199254740990 1073741825) -> 1801439850948198/214748365) ((4256 . 5625) (/ 9007199254740991 1073741821) -> 9007199254740991/1073741821) ((4257 . 5625) (/ 9007199254740991 1073741822) -> 9007199254740991/1073741822) ((4258 . 5625) (/ 9007199254740991 1073741823) -> 9007199254740991/1073741823) ((4259 . 5625) (/ 9007199254740991 1073741824) -> 9007199254740991/1073741824) ((4260 . 5625) (/ 9007199254740991 1073741825) -> 9007199254740991/1073741825) ((4261 . 5625) (/ 9007199254740992 1073741821) -> 9007199254740992/1073741821) ((4262 . 5625) (/ 9007199254740992 1073741822) -> 4503599627370496/536870911) ((4263 . 5625) (/ 9007199254740992 1073741823) -> 9007199254740992/1073741823) ((4264 . 5625) (/ 9007199254740992 1073741824) -> 8388608) ((4265 . 5625) (/ 9007199254740992 1073741825) -> 9007199254740992/1073741825) ((4266 . 5625) (/ 9007199254740993 1073741821) -> 9007199254740993/1073741821) ((4267 . 5625) (/ 9007199254740993 1073741822) -> 9007199254740993/1073741822) ((4268 . 5625) (/ 9007199254740993 1073741823) -> 3002399751580331/357913941) ((4269 . 5625) (/ 9007199254740993 1073741824) -> 9007199254740993/1073741824) ((4270 . 5625) (/ 9007199254740993 1073741825) -> 9007199254740993/1073741825) ((4271 . 5625) (/ 9007199254740994 1073741821) -> 9007199254740994/1073741821) ((4272 . 5625) (/ 9007199254740994 1073741822) -> 4503599627370497/536870911) ((4273 . 5625) (/ 9007199254740994 1073741823) -> 9007199254740994/1073741823) ((4274 . 5625) (/ 9007199254740994 1073741824) -> 4503599627370497/536870912) ((4275 . 5625) (/ 9007199254740994 1073741825) -> 9007199254740994/1073741825) ((4276 . 5625) (/ 9007199254740990 -1073741826) -> -1501199875790165/178956971) ((4277 . 5625) (/ 9007199254740990 -1073741825) -> -1801439850948198/214748365) ((4278 . 5625) (/ 9007199254740990 -1073741824) -> -4503599627370495/536870912) ((4279 . 5625) (/ 9007199254740990 -1073741823) -> -3002399751580330/357913941) ((4280 . 5625) (/ 9007199254740990 -1073741822) -> -4503599627370495/536870911) ((4281 . 5625) (/ 9007199254740991 -1073741826) -> -9007199254740991/1073741826) ((4282 . 5625) (/ 9007199254740991 -1073741825) -> -9007199254740991/1073741825) ((4283 . 5625) (/ 9007199254740991 -1073741824) -> -9007199254740991/1073741824) ((4284 . 5625) (/ 9007199254740991 -1073741823) -> -9007199254740991/1073741823) ((4285 . 5625) (/ 9007199254740991 -1073741822) -> -9007199254740991/1073741822) ((4286 . 5625) (/ 9007199254740992 -1073741826) -> -4503599627370496/536870913) ((4287 . 5625) (/ 9007199254740992 -1073741825) -> -9007199254740992/1073741825) ((4288 . 5625) (/ 9007199254740992 -1073741824) -> -8388608) ((4289 . 5625) (/ 9007199254740992 -1073741823) -> -9007199254740992/1073741823) ((4290 . 5625) (/ 9007199254740992 -1073741822) -> -4503599627370496/536870911) ((4291 . 5625) (/ 9007199254740993 -1073741826) -> -3002399751580331/357913942) ((4292 . 5625) (/ 9007199254740993 -1073741825) -> -9007199254740993/1073741825) ((4293 . 5625) (/ 9007199254740993 -1073741824) -> -9007199254740993/1073741824) ((4294 . 5625) (/ 9007199254740993 -1073741823) -> -3002399751580331/357913941) ((4295 . 5625) (/ 9007199254740993 -1073741822) -> -9007199254740993/1073741822) ((4296 . 5625) (/ 9007199254740994 -1073741826) -> -4503599627370497/536870913) ((4297 . 5625) (/ 9007199254740994 -1073741825) -> -9007199254740994/1073741825) ((4298 . 5625) (/ 9007199254740994 -1073741824) -> -4503599627370497/536870912) ((4299 . 5625) (/ 9007199254740994 -1073741823) -> -9007199254740994/1073741823) ((4300 . 5625) (/ 9007199254740994 -1073741822) -> -4503599627370497/536870911) ((4301 . 5625) (/ 9007199254740990 1073741822) -> 4503599627370495/536870911) ((4302 . 5625) (/ 9007199254740990 1073741823) -> 3002399751580330/357913941) ((4303 . 5625) (/ 9007199254740990 1073741824) -> 4503599627370495/536870912) ((4304 . 5625) (/ 9007199254740990 1073741825) -> 1801439850948198/214748365) ((4305 . 5625) (/ 9007199254740990 1073741826) -> 1501199875790165/178956971) ((4306 . 5625) (/ 9007199254740991 1073741822) -> 9007199254740991/1073741822) ((4307 . 5625) (/ 9007199254740991 1073741823) -> 9007199254740991/1073741823) ((4308 . 5625) (/ 9007199254740991 1073741824) -> 9007199254740991/1073741824) ((4309 . 5625) (/ 9007199254740991 1073741825) -> 9007199254740991/1073741825) ((4310 . 5625) (/ 9007199254740991 1073741826) -> 9007199254740991/1073741826) ((4311 . 5625) (/ 9007199254740992 1073741822) -> 4503599627370496/536870911) ((4312 . 5625) (/ 9007199254740992 1073741823) -> 9007199254740992/1073741823) ((4313 . 5625) (/ 9007199254740992 1073741824) -> 8388608) ((4314 . 5625) (/ 9007199254740992 1073741825) -> 9007199254740992/1073741825) ((4315 . 5625) (/ 9007199254740992 1073741826) -> 4503599627370496/536870913) ((4316 . 5625) (/ 9007199254740993 1073741822) -> 9007199254740993/1073741822) ((4317 . 5625) (/ 9007199254740993 1073741823) -> 3002399751580331/357913941) ((4318 . 5625) (/ 9007199254740993 1073741824) -> 9007199254740993/1073741824) ((4319 . 5625) (/ 9007199254740993 1073741825) -> 9007199254740993/1073741825) ((4320 . 5625) (/ 9007199254740993 1073741826) -> 3002399751580331/357913942) ((4321 . 5625) (/ 9007199254740994 1073741822) -> 4503599627370497/536870911) ((4322 . 5625) (/ 9007199254740994 1073741823) -> 9007199254740994/1073741823) ((4323 . 5625) (/ 9007199254740994 1073741824) -> 4503599627370497/536870912) ((4324 . 5625) (/ 9007199254740994 1073741825) -> 9007199254740994/1073741825) ((4325 . 5625) (/ 9007199254740994 1073741826) -> 4503599627370497/536870913) ((4326 . 5625) (/ 9007199254740990 -1073741827) -> -9007199254740990/1073741827) ((4327 . 5625) (/ 9007199254740990 -1073741826) -> -1501199875790165/178956971) ((4328 . 5625) (/ 9007199254740990 -1073741825) -> -1801439850948198/214748365) ((4329 . 5625) (/ 9007199254740990 -1073741824) -> -4503599627370495/536870912) ((4330 . 5625) (/ 9007199254740990 -1073741823) -> -3002399751580330/357913941) ((4331 . 5625) (/ 9007199254740991 -1073741827) -> -9007199254740991/1073741827) ((4332 . 5625) (/ 9007199254740991 -1073741826) -> -9007199254740991/1073741826) ((4333 . 5625) (/ 9007199254740991 -1073741825) -> -9007199254740991/1073741825) ((4334 . 5625) (/ 9007199254740991 -1073741824) -> -9007199254740991/1073741824) ((4335 . 5625) (/ 9007199254740991 -1073741823) -> -9007199254740991/1073741823) ((4336 . 5625) (/ 9007199254740992 -1073741827) -> -9007199254740992/1073741827) ((4337 . 5625) (/ 9007199254740992 -1073741826) -> -4503599627370496/536870913) ((4338 . 5625) (/ 9007199254740992 -1073741825) -> -9007199254740992/1073741825) ((4339 . 5625) (/ 9007199254740992 -1073741824) -> -8388608) ((4340 . 5625) (/ 9007199254740992 -1073741823) -> -9007199254740992/1073741823) ((4341 . 5625) (/ 9007199254740993 -1073741827) -> -9007199254740993/1073741827) ((4342 . 5625) (/ 9007199254740993 -1073741826) -> -3002399751580331/357913942) ((4343 . 5625) (/ 9007199254740993 -1073741825) -> -9007199254740993/1073741825) ((4344 . 5625) (/ 9007199254740993 -1073741824) -> -9007199254740993/1073741824) ((4345 . 5625) (/ 9007199254740993 -1073741823) -> -3002399751580331/357913941) ((4346 . 5625) (/ 9007199254740994 -1073741827) -> -9007199254740994/1073741827) ((4347 . 5625) (/ 9007199254740994 -1073741826) -> -4503599627370497/536870913) ((4348 . 5625) (/ 9007199254740994 -1073741825) -> -9007199254740994/1073741825) ((4349 . 5625) (/ 9007199254740994 -1073741824) -> -4503599627370497/536870912) ((4350 . 5625) (/ 9007199254740994 -1073741823) -> -9007199254740994/1073741823) ((4351 . 5625) (/ 9007199254740990 1103515243) -> 9007199254740990/1103515243) ((4352 . 5625) (/ 9007199254740990 1103515244) -> 4503599627370495/551757622) ((4353 . 5625) (/ 9007199254740990 1103515245) -> 600479950316066/73567683) ((4354 . 5625) (/ 9007199254740990 1103515246) -> 4503599627370495/551757623) ((4355 . 5625) (/ 9007199254740990 1103515247) -> 9007199254740990/1103515247) ((4356 . 5625) (/ 9007199254740991 1103515243) -> 9007199254740991/1103515243) ((4357 . 5625) (/ 9007199254740991 1103515244) -> 9007199254740991/1103515244) ((4358 . 5625) (/ 9007199254740991 1103515245) -> 9007199254740991/1103515245) ((4359 . 5625) (/ 9007199254740991 1103515246) -> 9007199254740991/1103515246) ((4360 . 5625) (/ 9007199254740991 1103515247) -> 9007199254740991/1103515247) ((4361 . 5625) (/ 9007199254740992 1103515243) -> 9007199254740992/1103515243) ((4362 . 5625) (/ 9007199254740992 1103515244) -> 2251799813685248/275878811) ((4363 . 5625) (/ 9007199254740992 1103515245) -> 9007199254740992/1103515245) ((4364 . 5625) (/ 9007199254740992 1103515246) -> 4503599627370496/551757623) ((4365 . 5625) (/ 9007199254740992 1103515247) -> 9007199254740992/1103515247) ((4366 . 5625) (/ 9007199254740993 1103515243) -> 9007199254740993/1103515243) ((4367 . 5625) (/ 9007199254740993 1103515244) -> 9007199254740993/1103515244) ((4368 . 5625) (/ 9007199254740993 1103515245) -> 3002399751580331/367838415) ((4369 . 5625) (/ 9007199254740993 1103515246) -> 9007199254740993/1103515246) ((4370 . 5625) (/ 9007199254740993 1103515247) -> 9007199254740993/1103515247) ((4371 . 5625) (/ 9007199254740994 1103515243) -> 9007199254740994/1103515243) ((4372 . 5625) (/ 9007199254740994 1103515244) -> 4503599627370497/551757622) ((4373 . 5625) (/ 9007199254740994 1103515245) -> 9007199254740994/1103515245) ((4374 . 5625) (/ 9007199254740994 1103515246) -> 4503599627370497/551757623) ((4375 . 5625) (/ 9007199254740994 1103515247) -> 9007199254740994/1103515247) ((4376 . 5625) (/ 9007199254740990 631629063) -> 3002399751580330/210543021) ((4377 . 5625) (/ 9007199254740990 631629064) -> 4503599627370495/315814532) ((4378 . 5625) (/ 9007199254740990 631629065) -> 1801439850948198/126325813) ((4379 . 5625) (/ 9007199254740990 631629066) -> 1501199875790165/105271511) ((4380 . 5625) (/ 9007199254740990 631629067) -> 9007199254740990/631629067) ((4381 . 5625) (/ 9007199254740991 631629063) -> 9007199254740991/631629063) ((4382 . 5625) (/ 9007199254740991 631629064) -> 9007199254740991/631629064) ((4383 . 5625) (/ 9007199254740991 631629065) -> 9007199254740991/631629065) ((4384 . 5625) (/ 9007199254740991 631629066) -> 9007199254740991/631629066) ((4385 . 5625) (/ 9007199254740991 631629067) -> 9007199254740991/631629067) ((4386 . 5625) (/ 9007199254740992 631629063) -> 9007199254740992/631629063) ((4387 . 5625) (/ 9007199254740992 631629064) -> 1125899906842624/78953633) ((4388 . 5625) (/ 9007199254740992 631629065) -> 9007199254740992/631629065) ((4389 . 5625) (/ 9007199254740992 631629066) -> 4503599627370496/315814533) ((4390 . 5625) (/ 9007199254740992 631629067) -> 9007199254740992/631629067) ((4391 . 5625) (/ 9007199254740993 631629063) -> 3002399751580331/210543021) ((4392 . 5625) (/ 9007199254740993 631629064) -> 9007199254740993/631629064) ((4393 . 5625) (/ 9007199254740993 631629065) -> 9007199254740993/631629065) ((4394 . 5625) (/ 9007199254740993 631629066) -> 3002399751580331/210543022) ((4395 . 5625) (/ 9007199254740993 631629067) -> 9007199254740993/631629067) ((4396 . 5625) (/ 9007199254740994 631629063) -> 9007199254740994/631629063) ((4397 . 5625) (/ 9007199254740994 631629064) -> 4503599627370497/315814532) ((4398 . 5625) (/ 9007199254740994 631629065) -> 9007199254740994/631629065) ((4399 . 5625) (/ 9007199254740994 631629066) -> 4503599627370497/315814533) ((4400 . 5625) (/ 9007199254740994 631629067) -> 529835250278882/37154651) ((4401 . 5625) (/ 9007199254740990 9007199254740990) -> 1) ((4402 . 5625) (/ 9007199254740990 9007199254740991) -> 9007199254740990/9007199254740991) ((4403 . 5625) (/ 9007199254740990 9007199254740992) -> 4503599627370495/4503599627370496) ((4404 . 5625) (/ 9007199254740990 9007199254740993) -> 3002399751580330/3002399751580331) ((4405 . 5625) (/ 9007199254740990 9007199254740994) -> 4503599627370495/4503599627370497) ((4406 . 5625) (/ 9007199254740991 9007199254740990) -> 9007199254740991/9007199254740990) ((4407 . 5625) (/ 9007199254740991 9007199254740991) -> 1) ((4408 . 5625) (/ 9007199254740991 9007199254740992) -> 9007199254740991/9007199254740992) ((4409 . 5625) (/ 9007199254740991 9007199254740993) -> 9007199254740991/9007199254740993) ((4410 . 5625) (/ 9007199254740991 9007199254740994) -> 9007199254740991/9007199254740994) ((4411 . 5625) (/ 9007199254740992 9007199254740990) -> 4503599627370496/4503599627370495) ((4412 . 5625) (/ 9007199254740992 9007199254740991) -> 9007199254740992/9007199254740991) ((4413 . 5625) (/ 9007199254740992 9007199254740992) -> 1) ((4414 . 5625) (/ 9007199254740992 9007199254740993) -> 9007199254740992/9007199254740993) ((4415 . 5625) (/ 9007199254740992 9007199254740994) -> 4503599627370496/4503599627370497) ((4416 . 5625) (/ 9007199254740993 9007199254740990) -> 3002399751580331/3002399751580330) ((4417 . 5625) (/ 9007199254740993 9007199254740991) -> 9007199254740993/9007199254740991) ((4418 . 5625) (/ 9007199254740993 9007199254740992) -> 9007199254740993/9007199254740992) ((4419 . 5625) (/ 9007199254740993 9007199254740993) -> 1) ((4420 . 5625) (/ 9007199254740993 9007199254740994) -> 9007199254740993/9007199254740994) ((4421 . 5625) (/ 9007199254740994 9007199254740990) -> 4503599627370497/4503599627370495) ((4422 . 5625) (/ 9007199254740994 9007199254740991) -> 9007199254740994/9007199254740991) ((4423 . 5625) (/ 9007199254740994 9007199254740992) -> 4503599627370497/4503599627370496) ((4424 . 5625) (/ 9007199254740994 9007199254740993) -> 9007199254740994/9007199254740993) ((4425 . 5625) (/ 9007199254740994 9007199254740994) -> 1) ((4426 . 5625) (/ 9007199254740990 -9007199254740994) -> -4503599627370495/4503599627370497) ((4427 . 5625) (/ 9007199254740990 -9007199254740993) -> -3002399751580330/3002399751580331) ((4428 . 5625) (/ 9007199254740990 -9007199254740992) -> -4503599627370495/4503599627370496) ((4429 . 5625) (/ 9007199254740990 -9007199254740991) -> -9007199254740990/9007199254740991) ((4430 . 5625) (/ 9007199254740990 -9007199254740990) -> -1) ((4431 . 5625) (/ 9007199254740991 -9007199254740994) -> -9007199254740991/9007199254740994) ((4432 . 5625) (/ 9007199254740991 -9007199254740993) -> -9007199254740991/9007199254740993) ((4433 . 5625) (/ 9007199254740991 -9007199254740992) -> -9007199254740991/9007199254740992) ((4434 . 5625) (/ 9007199254740991 -9007199254740991) -> -1) ((4435 . 5625) (/ 9007199254740991 -9007199254740990) -> -9007199254740991/9007199254740990) ((4436 . 5625) (/ 9007199254740992 -9007199254740994) -> -4503599627370496/4503599627370497) ((4437 . 5625) (/ 9007199254740992 -9007199254740993) -> -9007199254740992/9007199254740993) ((4438 . 5625) (/ 9007199254740992 -9007199254740992) -> -1) ((4439 . 5625) (/ 9007199254740992 -9007199254740991) -> -9007199254740992/9007199254740991) ((4440 . 5625) (/ 9007199254740992 -9007199254740990) -> -4503599627370496/4503599627370495) ((4441 . 5625) (/ 9007199254740993 -9007199254740994) -> -9007199254740993/9007199254740994) ((4442 . 5625) (/ 9007199254740993 -9007199254740993) -> -1) ((4443 . 5625) (/ 9007199254740993 -9007199254740992) -> -9007199254740993/9007199254740992) ((4444 . 5625) (/ 9007199254740993 -9007199254740991) -> -9007199254740993/9007199254740991) ((4445 . 5625) (/ 9007199254740993 -9007199254740990) -> -3002399751580331/3002399751580330) ((4446 . 5625) (/ 9007199254740994 -9007199254740994) -> -1) ((4447 . 5625) (/ 9007199254740994 -9007199254740993) -> -9007199254740994/9007199254740993) ((4448 . 5625) (/ 9007199254740994 -9007199254740992) -> -4503599627370497/4503599627370496) ((4449 . 5625) (/ 9007199254740994 -9007199254740991) -> -9007199254740994/9007199254740991) ((4450 . 5625) (/ 9007199254740994 -9007199254740990) -> -4503599627370497/4503599627370495) ((4451 . 5625) (/ 9007199254740990 12343) -> 9007199254740990/12343) ((4452 . 5625) (/ 9007199254740990 12344) -> 4503599627370495/6172) ((4453 . 5625) (/ 9007199254740990 12345) -> 600479950316066/823) ((4454 . 5625) (/ 9007199254740990 12346) -> 4503599627370495/6173) ((4455 . 5625) (/ 9007199254740990 12347) -> 9007199254740990/12347) ((4456 . 5625) (/ 9007199254740991 12343) -> 9007199254740991/12343) ((4457 . 5625) (/ 9007199254740991 12344) -> 9007199254740991/12344) ((4458 . 5625) (/ 9007199254740991 12345) -> 9007199254740991/12345) ((4459 . 5625) (/ 9007199254740991 12346) -> 9007199254740991/12346) ((4460 . 5625) (/ 9007199254740991 12347) -> 9007199254740991/12347) ((4461 . 5625) (/ 9007199254740992 12343) -> 9007199254740992/12343) ((4462 . 5625) (/ 9007199254740992 12344) -> 1125899906842624/1543) ((4463 . 5625) (/ 9007199254740992 12345) -> 9007199254740992/12345) ((4464 . 5625) (/ 9007199254740992 12346) -> 4503599627370496/6173) ((4465 . 5625) (/ 9007199254740992 12347) -> 9007199254740992/12347) ((4466 . 5625) (/ 9007199254740993 12343) -> 9007199254740993/12343) ((4467 . 5625) (/ 9007199254740993 12344) -> 9007199254740993/12344) ((4468 . 5625) (/ 9007199254740993 12345) -> 3002399751580331/4115) ((4469 . 5625) (/ 9007199254740993 12346) -> 9007199254740993/12346) ((4470 . 5625) (/ 9007199254740993 12347) -> 9007199254740993/12347) ((4471 . 5625) (/ 9007199254740994 12343) -> 9007199254740994/12343) ((4472 . 5625) (/ 9007199254740994 12344) -> 4503599627370497/6172) ((4473 . 5625) (/ 9007199254740994 12345) -> 9007199254740994/12345) ((4474 . 5625) (/ 9007199254740994 12346) -> 4503599627370497/6173) ((4475 . 5625) (/ 9007199254740994 12347) -> 9007199254740994/12347) ((4476 . 5625) (/ 9007199254740990 4294967294) -> 4503599627370495/2147483647) ((4477 . 5625) (/ 9007199254740990 4294967295) -> 600479950316066/286331153) ((4478 . 5625) (/ 9007199254740990 4294967296) -> 4503599627370495/2147483648) ((4479 . 5625) (/ 9007199254740990 4294967297) -> 9007199254740990/4294967297) ((4480 . 5625) (/ 9007199254740990 4294967298) -> 1501199875790165/715827883) ((4481 . 5625) (/ 9007199254740991 4294967294) -> 9007199254740991/4294967294) ((4482 . 5625) (/ 9007199254740991 4294967295) -> 9007199254740991/4294967295) ((4483 . 5625) (/ 9007199254740991 4294967296) -> 9007199254740991/4294967296) ((4484 . 5625) (/ 9007199254740991 4294967297) -> 9007199254740991/4294967297) ((4485 . 5625) (/ 9007199254740991 4294967298) -> 9007199254740991/4294967298) ((4486 . 5625) (/ 9007199254740992 4294967294) -> 4503599627370496/2147483647) ((4487 . 5625) (/ 9007199254740992 4294967295) -> 9007199254740992/4294967295) ((4488 . 5625) (/ 9007199254740992 4294967296) -> 2097152) ((4489 . 5625) (/ 9007199254740992 4294967297) -> 9007199254740992/4294967297) ((4490 . 5625) (/ 9007199254740992 4294967298) -> 4503599627370496/2147483649) ((4491 . 5625) (/ 9007199254740993 4294967294) -> 9007199254740993/4294967294) ((4492 . 5625) (/ 9007199254740993 4294967295) -> 3002399751580331/1431655765) ((4493 . 5625) (/ 9007199254740993 4294967296) -> 9007199254740993/4294967296) ((4494 . 5625) (/ 9007199254740993 4294967297) -> 9007199254740993/4294967297) ((4495 . 5625) (/ 9007199254740993 4294967298) -> 3002399751580331/1431655766) ((4496 . 5625) (/ 9007199254740994 4294967294) -> 4503599627370497/2147483647) ((4497 . 5625) (/ 9007199254740994 4294967295) -> 529835250278882/252645135) ((4498 . 5625) (/ 9007199254740994 4294967296) -> 4503599627370497/2147483648) ((4499 . 5625) (/ 9007199254740994 4294967297) -> 9007199254740994/4294967297) ((4500 . 5625) (/ 9007199254740994 4294967298) -> 4503599627370497/2147483649) ((4501 . 5625) (/ -9007199254740994 -2) -> 4503599627370497) ((4502 . 5625) (/ -9007199254740994 -1) -> 9007199254740994) ((4503 . 5625) (/ -9007199254740994 0) -> "division by zero") ((4504 . 5625) (/ -9007199254740994 1) -> -9007199254740994) ((4505 . 5625) (/ -9007199254740994 2) -> -4503599627370497) ((4506 . 5625) (/ -9007199254740993 -2) -> 9007199254740993/2) ((4507 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4508 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4509 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4510 . 5625) (/ -9007199254740993 2) -> -9007199254740993/2) ((4511 . 5625) (/ -9007199254740992 -2) -> 4503599627370496) ((4512 . 5625) (/ -9007199254740992 -1) -> 9007199254740992) ((4513 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4514 . 5625) (/ -9007199254740992 1) -> -9007199254740992) ((4515 . 5625) (/ -9007199254740992 2) -> -4503599627370496) ((4516 . 5625) (/ -9007199254740991 -2) -> 9007199254740991/2) ((4517 . 5625) (/ -9007199254740991 -1) -> 9007199254740991) ((4518 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4519 . 5625) (/ -9007199254740991 1) -> -9007199254740991) ((4520 . 5625) (/ -9007199254740991 2) -> -9007199254740991/2) ((4521 . 5625) (/ -9007199254740990 -2) -> 4503599627370495) ((4522 . 5625) (/ -9007199254740990 -1) -> 9007199254740990) ((4523 . 5625) (/ -9007199254740990 0) -> "division by zero") ((4524 . 5625) (/ -9007199254740990 1) -> -9007199254740990) ((4525 . 5625) (/ -9007199254740990 2) -> -4503599627370495) ((4526 . 5625) (/ -9007199254740994 -1) -> 9007199254740994) ((4527 . 5625) (/ -9007199254740994 0) -> "division by zero") ((4528 . 5625) (/ -9007199254740994 1) -> -9007199254740994) ((4529 . 5625) (/ -9007199254740994 2) -> -4503599627370497) ((4530 . 5625) (/ -9007199254740994 3) -> -9007199254740994/3) ((4531 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4532 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4533 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4534 . 5625) (/ -9007199254740993 2) -> -9007199254740993/2) ((4535 . 5625) (/ -9007199254740993 3) -> -3002399751580331) ((4536 . 5625) (/ -9007199254740992 -1) -> 9007199254740992) ((4537 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4538 . 5625) (/ -9007199254740992 1) -> -9007199254740992) ((4539 . 5625) (/ -9007199254740992 2) -> -4503599627370496) ((4540 . 5625) (/ -9007199254740992 3) -> -9007199254740992/3) ((4541 . 5625) (/ -9007199254740991 -1) -> 9007199254740991) ((4542 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4543 . 5625) (/ -9007199254740991 1) -> -9007199254740991) ((4544 . 5625) (/ -9007199254740991 2) -> -9007199254740991/2) ((4545 . 5625) (/ -9007199254740991 3) -> -9007199254740991/3) ((4546 . 5625) (/ -9007199254740990 -1) -> 9007199254740990) ((4547 . 5625) (/ -9007199254740990 0) -> "division by zero") ((4548 . 5625) (/ -9007199254740990 1) -> -9007199254740990) ((4549 . 5625) (/ -9007199254740990 2) -> -4503599627370495) ((4550 . 5625) (/ -9007199254740990 3) -> -3002399751580330) ((4551 . 5625) (/ -9007199254740994 -3) -> 9007199254740994/3) ((4552 . 5625) (/ -9007199254740994 -2) -> 4503599627370497) ((4553 . 5625) (/ -9007199254740994 -1) -> 9007199254740994) ((4554 . 5625) (/ -9007199254740994 0) -> "division by zero") ((4555 . 5625) (/ -9007199254740994 1) -> -9007199254740994) ((4556 . 5625) (/ -9007199254740993 -3) -> 3002399751580331) ((4557 . 5625) (/ -9007199254740993 -2) -> 9007199254740993/2) ((4558 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4559 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4560 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4561 . 5625) (/ -9007199254740992 -3) -> 9007199254740992/3) ((4562 . 5625) (/ -9007199254740992 -2) -> 4503599627370496) ((4563 . 5625) (/ -9007199254740992 -1) -> 9007199254740992) ((4564 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4565 . 5625) (/ -9007199254740992 1) -> -9007199254740992) ((4566 . 5625) (/ -9007199254740991 -3) -> 9007199254740991/3) ((4567 . 5625) (/ -9007199254740991 -2) -> 9007199254740991/2) ((4568 . 5625) (/ -9007199254740991 -1) -> 9007199254740991) ((4569 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4570 . 5625) (/ -9007199254740991 1) -> -9007199254740991) ((4571 . 5625) (/ -9007199254740990 -3) -> 3002399751580330) ((4572 . 5625) (/ -9007199254740990 -2) -> 4503599627370495) ((4573 . 5625) (/ -9007199254740990 -1) -> 9007199254740990) ((4574 . 5625) (/ -9007199254740990 0) -> "division by zero") ((4575 . 5625) (/ -9007199254740990 1) -> -9007199254740990) ((4576 . 5625) (/ -9007199254740994 0) -> "division by zero") ((4577 . 5625) (/ -9007199254740994 1) -> -9007199254740994) ((4578 . 5625) (/ -9007199254740994 2) -> -4503599627370497) ((4579 . 5625) (/ -9007199254740994 3) -> -9007199254740994/3) ((4580 . 5625) (/ -9007199254740994 4) -> -4503599627370497/2) ((4581 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4582 . 5625) (/ -9007199254740993 1) -> -9007199254740993) ((4583 . 5625) (/ -9007199254740993 2) -> -9007199254740993/2) ((4584 . 5625) (/ -9007199254740993 3) -> -3002399751580331) ((4585 . 5625) (/ -9007199254740993 4) -> -9007199254740993/4) ((4586 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4587 . 5625) (/ -9007199254740992 1) -> -9007199254740992) ((4588 . 5625) (/ -9007199254740992 2) -> -4503599627370496) ((4589 . 5625) (/ -9007199254740992 3) -> -9007199254740992/3) ((4590 . 5625) (/ -9007199254740992 4) -> -2251799813685248) ((4591 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4592 . 5625) (/ -9007199254740991 1) -> -9007199254740991) ((4593 . 5625) (/ -9007199254740991 2) -> -9007199254740991/2) ((4594 . 5625) (/ -9007199254740991 3) -> -9007199254740991/3) ((4595 . 5625) (/ -9007199254740991 4) -> -9007199254740991/4) ((4596 . 5625) (/ -9007199254740990 0) -> "division by zero") ((4597 . 5625) (/ -9007199254740990 1) -> -9007199254740990) ((4598 . 5625) (/ -9007199254740990 2) -> -4503599627370495) ((4599 . 5625) (/ -9007199254740990 3) -> -3002399751580330) ((4600 . 5625) (/ -9007199254740990 4) -> -4503599627370495/2) ((4601 . 5625) (/ -9007199254740994 -4) -> 4503599627370497/2) ((4602 . 5625) (/ -9007199254740994 -3) -> 9007199254740994/3) ((4603 . 5625) (/ -9007199254740994 -2) -> 4503599627370497) ((4604 . 5625) (/ -9007199254740994 -1) -> 9007199254740994) ((4605 . 5625) (/ -9007199254740994 0) -> "division by zero") ((4606 . 5625) (/ -9007199254740993 -4) -> 9007199254740993/4) ((4607 . 5625) (/ -9007199254740993 -3) -> 3002399751580331) ((4608 . 5625) (/ -9007199254740993 -2) -> 9007199254740993/2) ((4609 . 5625) (/ -9007199254740993 -1) -> 9007199254740993) ((4610 . 5625) (/ -9007199254740993 0) -> "division by zero") ((4611 . 5625) (/ -9007199254740992 -4) -> 2251799813685248) ((4612 . 5625) (/ -9007199254740992 -3) -> 9007199254740992/3) ((4613 . 5625) (/ -9007199254740992 -2) -> 4503599627370496) ((4614 . 5625) (/ -9007199254740992 -1) -> 9007199254740992) ((4615 . 5625) (/ -9007199254740992 0) -> "division by zero") ((4616 . 5625) (/ -9007199254740991 -4) -> 9007199254740991/4) ((4617 . 5625) (/ -9007199254740991 -3) -> 9007199254740991/3) ((4618 . 5625) (/ -9007199254740991 -2) -> 9007199254740991/2) ((4619 . 5625) (/ -9007199254740991 -1) -> 9007199254740991) ((4620 . 5625) (/ -9007199254740991 0) -> "division by zero") ((4621 . 5625) (/ -9007199254740990 -4) -> 4503599627370495/2) ((4622 . 5625) (/ -9007199254740990 -3) -> 3002399751580330) ((4623 . 5625) (/ -9007199254740990 -2) -> 4503599627370495) ((4624 . 5625) (/ -9007199254740990 -1) -> 9007199254740990) ((4625 . 5625) (/ -9007199254740990 0) -> "division by zero") ((4626 . 5625) (/ -9007199254740994 1073741821) -> -9007199254740994/1073741821) ((4627 . 5625) (/ -9007199254740994 1073741822) -> -4503599627370497/536870911) ((4628 . 5625) (/ -9007199254740994 1073741823) -> -9007199254740994/1073741823) ((4629 . 5625) (/ -9007199254740994 1073741824) -> -4503599627370497/536870912) ((4630 . 5625) (/ -9007199254740994 1073741825) -> -9007199254740994/1073741825) ((4631 . 5625) (/ -9007199254740993 1073741821) -> -9007199254740993/1073741821) ((4632 . 5625) (/ -9007199254740993 1073741822) -> -9007199254740993/1073741822) ((4633 . 5625) (/ -9007199254740993 1073741823) -> -3002399751580331/357913941) ((4634 . 5625) (/ -9007199254740993 1073741824) -> -9007199254740993/1073741824) ((4635 . 5625) (/ -9007199254740993 1073741825) -> -9007199254740993/1073741825) ((4636 . 5625) (/ -9007199254740992 1073741821) -> -9007199254740992/1073741821) ((4637 . 5625) (/ -9007199254740992 1073741822) -> -4503599627370496/536870911) ((4638 . 5625) (/ -9007199254740992 1073741823) -> -9007199254740992/1073741823) ((4639 . 5625) (/ -9007199254740992 1073741824) -> -8388608) ((4640 . 5625) (/ -9007199254740992 1073741825) -> -9007199254740992/1073741825) ((4641 . 5625) (/ -9007199254740991 1073741821) -> -9007199254740991/1073741821) ((4642 . 5625) (/ -9007199254740991 1073741822) -> -9007199254740991/1073741822) ((4643 . 5625) (/ -9007199254740991 1073741823) -> -9007199254740991/1073741823) ((4644 . 5625) (/ -9007199254740991 1073741824) -> -9007199254740991/1073741824) ((4645 . 5625) (/ -9007199254740991 1073741825) -> -9007199254740991/1073741825) ((4646 . 5625) (/ -9007199254740990 1073741821) -> -9007199254740990/1073741821) ((4647 . 5625) (/ -9007199254740990 1073741822) -> -4503599627370495/536870911) ((4648 . 5625) (/ -9007199254740990 1073741823) -> -3002399751580330/357913941) ((4649 . 5625) (/ -9007199254740990 1073741824) -> -4503599627370495/536870912) ((4650 . 5625) (/ -9007199254740990 1073741825) -> -1801439850948198/214748365) ((4651 . 5625) (/ -9007199254740994 -1073741826) -> 4503599627370497/536870913) ((4652 . 5625) (/ -9007199254740994 -1073741825) -> 9007199254740994/1073741825) ((4653 . 5625) (/ -9007199254740994 -1073741824) -> 4503599627370497/536870912) ((4654 . 5625) (/ -9007199254740994 -1073741823) -> 9007199254740994/1073741823) ((4655 . 5625) (/ -9007199254740994 -1073741822) -> 4503599627370497/536870911) ((4656 . 5625) (/ -9007199254740993 -1073741826) -> 3002399751580331/357913942) ((4657 . 5625) (/ -9007199254740993 -1073741825) -> 9007199254740993/1073741825) ((4658 . 5625) (/ -9007199254740993 -1073741824) -> 9007199254740993/1073741824) ((4659 . 5625) (/ -9007199254740993 -1073741823) -> 3002399751580331/357913941) ((4660 . 5625) (/ -9007199254740993 -1073741822) -> 9007199254740993/1073741822) ((4661 . 5625) (/ -9007199254740992 -1073741826) -> 4503599627370496/536870913) ((4662 . 5625) (/ -9007199254740992 -1073741825) -> 9007199254740992/1073741825) ((4663 . 5625) (/ -9007199254740992 -1073741824) -> 8388608) ((4664 . 5625) (/ -9007199254740992 -1073741823) -> 9007199254740992/1073741823) ((4665 . 5625) (/ -9007199254740992 -1073741822) -> 4503599627370496/536870911) ((4666 . 5625) (/ -9007199254740991 -1073741826) -> 9007199254740991/1073741826) ((4667 . 5625) (/ -9007199254740991 -1073741825) -> 9007199254740991/1073741825) ((4668 . 5625) (/ -9007199254740991 -1073741824) -> 9007199254740991/1073741824) ((4669 . 5625) (/ -9007199254740991 -1073741823) -> 9007199254740991/1073741823) ((4670 . 5625) (/ -9007199254740991 -1073741822) -> 9007199254740991/1073741822) ((4671 . 5625) (/ -9007199254740990 -1073741826) -> 1501199875790165/178956971) ((4672 . 5625) (/ -9007199254740990 -1073741825) -> 1801439850948198/214748365) ((4673 . 5625) (/ -9007199254740990 -1073741824) -> 4503599627370495/536870912) ((4674 . 5625) (/ -9007199254740990 -1073741823) -> 3002399751580330/357913941) ((4675 . 5625) (/ -9007199254740990 -1073741822) -> 4503599627370495/536870911) ((4676 . 5625) (/ -9007199254740994 1073741822) -> -4503599627370497/536870911) ((4677 . 5625) (/ -9007199254740994 1073741823) -> -9007199254740994/1073741823) ((4678 . 5625) (/ -9007199254740994 1073741824) -> -4503599627370497/536870912) ((4679 . 5625) (/ -9007199254740994 1073741825) -> -9007199254740994/1073741825) ((4680 . 5625) (/ -9007199254740994 1073741826) -> -4503599627370497/536870913) ((4681 . 5625) (/ -9007199254740993 1073741822) -> -9007199254740993/1073741822) ((4682 . 5625) (/ -9007199254740993 1073741823) -> -3002399751580331/357913941) ((4683 . 5625) (/ -9007199254740993 1073741824) -> -9007199254740993/1073741824) ((4684 . 5625) (/ -9007199254740993 1073741825) -> -9007199254740993/1073741825) ((4685 . 5625) (/ -9007199254740993 1073741826) -> -3002399751580331/357913942) ((4686 . 5625) (/ -9007199254740992 1073741822) -> -4503599627370496/536870911) ((4687 . 5625) (/ -9007199254740992 1073741823) -> -9007199254740992/1073741823) ((4688 . 5625) (/ -9007199254740992 1073741824) -> -8388608) ((4689 . 5625) (/ -9007199254740992 1073741825) -> -9007199254740992/1073741825) ((4690 . 5625) (/ -9007199254740992 1073741826) -> -4503599627370496/536870913) ((4691 . 5625) (/ -9007199254740991 1073741822) -> -9007199254740991/1073741822) ((4692 . 5625) (/ -9007199254740991 1073741823) -> -9007199254740991/1073741823) ((4693 . 5625) (/ -9007199254740991 1073741824) -> -9007199254740991/1073741824) ((4694 . 5625) (/ -9007199254740991 1073741825) -> -9007199254740991/1073741825) ((4695 . 5625) (/ -9007199254740991 1073741826) -> -9007199254740991/1073741826) ((4696 . 5625) (/ -9007199254740990 1073741822) -> -4503599627370495/536870911) ((4697 . 5625) (/ -9007199254740990 1073741823) -> -3002399751580330/357913941) ((4698 . 5625) (/ -9007199254740990 1073741824) -> -4503599627370495/536870912) ((4699 . 5625) (/ -9007199254740990 1073741825) -> -1801439850948198/214748365) ((4700 . 5625) (/ -9007199254740990 1073741826) -> -1501199875790165/178956971) ((4701 . 5625) (/ -9007199254740994 -1073741827) -> 9007199254740994/1073741827) ((4702 . 5625) (/ -9007199254740994 -1073741826) -> 4503599627370497/536870913) ((4703 . 5625) (/ -9007199254740994 -1073741825) -> 9007199254740994/1073741825) ((4704 . 5625) (/ -9007199254740994 -1073741824) -> 4503599627370497/536870912) ((4705 . 5625) (/ -9007199254740994 -1073741823) -> 9007199254740994/1073741823) ((4706 . 5625) (/ -9007199254740993 -1073741827) -> 9007199254740993/1073741827) ((4707 . 5625) (/ -9007199254740993 -1073741826) -> 3002399751580331/357913942) ((4708 . 5625) (/ -9007199254740993 -1073741825) -> 9007199254740993/1073741825) ((4709 . 5625) (/ -9007199254740993 -1073741824) -> 9007199254740993/1073741824) ((4710 . 5625) (/ -9007199254740993 -1073741823) -> 3002399751580331/357913941) ((4711 . 5625) (/ -9007199254740992 -1073741827) -> 9007199254740992/1073741827) ((4712 . 5625) (/ -9007199254740992 -1073741826) -> 4503599627370496/536870913) ((4713 . 5625) (/ -9007199254740992 -1073741825) -> 9007199254740992/1073741825) ((4714 . 5625) (/ -9007199254740992 -1073741824) -> 8388608) ((4715 . 5625) (/ -9007199254740992 -1073741823) -> 9007199254740992/1073741823) ((4716 . 5625) (/ -9007199254740991 -1073741827) -> 9007199254740991/1073741827) ((4717 . 5625) (/ -9007199254740991 -1073741826) -> 9007199254740991/1073741826) ((4718 . 5625) (/ -9007199254740991 -1073741825) -> 9007199254740991/1073741825) ((4719 . 5625) (/ -9007199254740991 -1073741824) -> 9007199254740991/1073741824) ((4720 . 5625) (/ -9007199254740991 -1073741823) -> 9007199254740991/1073741823) ((4721 . 5625) (/ -9007199254740990 -1073741827) -> 9007199254740990/1073741827) ((4722 . 5625) (/ -9007199254740990 -1073741826) -> 1501199875790165/178956971) ((4723 . 5625) (/ -9007199254740990 -1073741825) -> 1801439850948198/214748365) ((4724 . 5625) (/ -9007199254740990 -1073741824) -> 4503599627370495/536870912) ((4725 . 5625) (/ -9007199254740990 -1073741823) -> 3002399751580330/357913941) ((4726 . 5625) (/ -9007199254740994 1103515243) -> -9007199254740994/1103515243) ((4727 . 5625) (/ -9007199254740994 1103515244) -> -4503599627370497/551757622) ((4728 . 5625) (/ -9007199254740994 1103515245) -> -9007199254740994/1103515245) ((4729 . 5625) (/ -9007199254740994 1103515246) -> -4503599627370497/551757623) ((4730 . 5625) (/ -9007199254740994 1103515247) -> -9007199254740994/1103515247) ((4731 . 5625) (/ -9007199254740993 1103515243) -> -9007199254740993/1103515243) ((4732 . 5625) (/ -9007199254740993 1103515244) -> -9007199254740993/1103515244) ((4733 . 5625) (/ -9007199254740993 1103515245) -> -3002399751580331/367838415) ((4734 . 5625) (/ -9007199254740993 1103515246) -> -9007199254740993/1103515246) ((4735 . 5625) (/ -9007199254740993 1103515247) -> -9007199254740993/1103515247) ((4736 . 5625) (/ -9007199254740992 1103515243) -> -9007199254740992/1103515243) ((4737 . 5625) (/ -9007199254740992 1103515244) -> -2251799813685248/275878811) ((4738 . 5625) (/ -9007199254740992 1103515245) -> -9007199254740992/1103515245) ((4739 . 5625) (/ -9007199254740992 1103515246) -> -4503599627370496/551757623) ((4740 . 5625) (/ -9007199254740992 1103515247) -> -9007199254740992/1103515247) ((4741 . 5625) (/ -9007199254740991 1103515243) -> -9007199254740991/1103515243) ((4742 . 5625) (/ -9007199254740991 1103515244) -> -9007199254740991/1103515244) ((4743 . 5625) (/ -9007199254740991 1103515245) -> -9007199254740991/1103515245) ((4744 . 5625) (/ -9007199254740991 1103515246) -> -9007199254740991/1103515246) ((4745 . 5625) (/ -9007199254740991 1103515247) -> -9007199254740991/1103515247) ((4746 . 5625) (/ -9007199254740990 1103515243) -> -9007199254740990/1103515243) ((4747 . 5625) (/ -9007199254740990 1103515244) -> -4503599627370495/551757622) ((4748 . 5625) (/ -9007199254740990 1103515245) -> -600479950316066/73567683) ((4749 . 5625) (/ -9007199254740990 1103515246) -> -4503599627370495/551757623) ((4750 . 5625) (/ -9007199254740990 1103515247) -> -9007199254740990/1103515247) ((4751 . 5625) (/ -9007199254740994 631629063) -> -9007199254740994/631629063) ((4752 . 5625) (/ -9007199254740994 631629064) -> -4503599627370497/315814532) ((4753 . 5625) (/ -9007199254740994 631629065) -> -9007199254740994/631629065) ((4754 . 5625) (/ -9007199254740994 631629066) -> -4503599627370497/315814533) ((4755 . 5625) (/ -9007199254740994 631629067) -> -529835250278882/37154651) ((4756 . 5625) (/ -9007199254740993 631629063) -> -3002399751580331/210543021) ((4757 . 5625) (/ -9007199254740993 631629064) -> -9007199254740993/631629064) ((4758 . 5625) (/ -9007199254740993 631629065) -> -9007199254740993/631629065) ((4759 . 5625) (/ -9007199254740993 631629066) -> -3002399751580331/210543022) ((4760 . 5625) (/ -9007199254740993 631629067) -> -9007199254740993/631629067) ((4761 . 5625) (/ -9007199254740992 631629063) -> -9007199254740992/631629063) ((4762 . 5625) (/ -9007199254740992 631629064) -> -1125899906842624/78953633) ((4763 . 5625) (/ -9007199254740992 631629065) -> -9007199254740992/631629065) ((4764 . 5625) (/ -9007199254740992 631629066) -> -4503599627370496/315814533) ((4765 . 5625) (/ -9007199254740992 631629067) -> -9007199254740992/631629067) ((4766 . 5625) (/ -9007199254740991 631629063) -> -9007199254740991/631629063) ((4767 . 5625) (/ -9007199254740991 631629064) -> -9007199254740991/631629064) ((4768 . 5625) (/ -9007199254740991 631629065) -> -9007199254740991/631629065) ((4769 . 5625) (/ -9007199254740991 631629066) -> -9007199254740991/631629066) ((4770 . 5625) (/ -9007199254740991 631629067) -> -9007199254740991/631629067) ((4771 . 5625) (/ -9007199254740990 631629063) -> -3002399751580330/210543021) ((4772 . 5625) (/ -9007199254740990 631629064) -> -4503599627370495/315814532) ((4773 . 5625) (/ -9007199254740990 631629065) -> -1801439850948198/126325813) ((4774 . 5625) (/ -9007199254740990 631629066) -> -1501199875790165/105271511) ((4775 . 5625) (/ -9007199254740990 631629067) -> -9007199254740990/631629067) ((4776 . 5625) (/ -9007199254740994 9007199254740990) -> -4503599627370497/4503599627370495) ((4777 . 5625) (/ -9007199254740994 9007199254740991) -> -9007199254740994/9007199254740991) ((4778 . 5625) (/ -9007199254740994 9007199254740992) -> -4503599627370497/4503599627370496) ((4779 . 5625) (/ -9007199254740994 9007199254740993) -> -9007199254740994/9007199254740993) ((4780 . 5625) (/ -9007199254740994 9007199254740994) -> -1) ((4781 . 5625) (/ -9007199254740993 9007199254740990) -> -3002399751580331/3002399751580330) ((4782 . 5625) (/ -9007199254740993 9007199254740991) -> -9007199254740993/9007199254740991) ((4783 . 5625) (/ -9007199254740993 9007199254740992) -> -9007199254740993/9007199254740992) ((4784 . 5625) (/ -9007199254740993 9007199254740993) -> -1) ((4785 . 5625) (/ -9007199254740993 9007199254740994) -> -9007199254740993/9007199254740994) ((4786 . 5625) (/ -9007199254740992 9007199254740990) -> -4503599627370496/4503599627370495) ((4787 . 5625) (/ -9007199254740992 9007199254740991) -> -9007199254740992/9007199254740991) ((4788 . 5625) (/ -9007199254740992 9007199254740992) -> -1) ((4789 . 5625) (/ -9007199254740992 9007199254740993) -> -9007199254740992/9007199254740993) ((4790 . 5625) (/ -9007199254740992 9007199254740994) -> -4503599627370496/4503599627370497) ((4791 . 5625) (/ -9007199254740991 9007199254740990) -> -9007199254740991/9007199254740990) ((4792 . 5625) (/ -9007199254740991 9007199254740991) -> -1) ((4793 . 5625) (/ -9007199254740991 9007199254740992) -> -9007199254740991/9007199254740992) ((4794 . 5625) (/ -9007199254740991 9007199254740993) -> -9007199254740991/9007199254740993) ((4795 . 5625) (/ -9007199254740991 9007199254740994) -> -9007199254740991/9007199254740994) ((4796 . 5625) (/ -9007199254740990 9007199254740990) -> -1) ((4797 . 5625) (/ -9007199254740990 9007199254740991) -> -9007199254740990/9007199254740991) ((4798 . 5625) (/ -9007199254740990 9007199254740992) -> -4503599627370495/4503599627370496) ((4799 . 5625) (/ -9007199254740990 9007199254740993) -> -3002399751580330/3002399751580331) ((4800 . 5625) (/ -9007199254740990 9007199254740994) -> -4503599627370495/4503599627370497) ((4801 . 5625) (/ -9007199254740994 -9007199254740994) -> 1) ((4802 . 5625) (/ -9007199254740994 -9007199254740993) -> 9007199254740994/9007199254740993) ((4803 . 5625) (/ -9007199254740994 -9007199254740992) -> 4503599627370497/4503599627370496) ((4804 . 5625) (/ -9007199254740994 -9007199254740991) -> 9007199254740994/9007199254740991) ((4805 . 5625) (/ -9007199254740994 -9007199254740990) -> 4503599627370497/4503599627370495) ((4806 . 5625) (/ -9007199254740993 -9007199254740994) -> 9007199254740993/9007199254740994) ((4807 . 5625) (/ -9007199254740993 -9007199254740993) -> 1) ((4808 . 5625) (/ -9007199254740993 -9007199254740992) -> 9007199254740993/9007199254740992) ((4809 . 5625) (/ -9007199254740993 -9007199254740991) -> 9007199254740993/9007199254740991) ((4810 . 5625) (/ -9007199254740993 -9007199254740990) -> 3002399751580331/3002399751580330) ((4811 . 5625) (/ -9007199254740992 -9007199254740994) -> 4503599627370496/4503599627370497) ((4812 . 5625) (/ -9007199254740992 -9007199254740993) -> 9007199254740992/9007199254740993) ((4813 . 5625) (/ -9007199254740992 -9007199254740992) -> 1) ((4814 . 5625) (/ -9007199254740992 -9007199254740991) -> 9007199254740992/9007199254740991) ((4815 . 5625) (/ -9007199254740992 -9007199254740990) -> 4503599627370496/4503599627370495) ((4816 . 5625) (/ -9007199254740991 -9007199254740994) -> 9007199254740991/9007199254740994) ((4817 . 5625) (/ -9007199254740991 -9007199254740993) -> 9007199254740991/9007199254740993) ((4818 . 5625) (/ -9007199254740991 -9007199254740992) -> 9007199254740991/9007199254740992) ((4819 . 5625) (/ -9007199254740991 -9007199254740991) -> 1) ((4820 . 5625) (/ -9007199254740991 -9007199254740990) -> 9007199254740991/9007199254740990) ((4821 . 5625) (/ -9007199254740990 -9007199254740994) -> 4503599627370495/4503599627370497) ((4822 . 5625) (/ -9007199254740990 -9007199254740993) -> 3002399751580330/3002399751580331) ((4823 . 5625) (/ -9007199254740990 -9007199254740992) -> 4503599627370495/4503599627370496) ((4824 . 5625) (/ -9007199254740990 -9007199254740991) -> 9007199254740990/9007199254740991) ((4825 . 5625) (/ -9007199254740990 -9007199254740990) -> 1) ((4826 . 5625) (/ -9007199254740994 12343) -> -9007199254740994/12343) ((4827 . 5625) (/ -9007199254740994 12344) -> -4503599627370497/6172) ((4828 . 5625) (/ -9007199254740994 12345) -> -9007199254740994/12345) ((4829 . 5625) (/ -9007199254740994 12346) -> -4503599627370497/6173) ((4830 . 5625) (/ -9007199254740994 12347) -> -9007199254740994/12347) ((4831 . 5625) (/ -9007199254740993 12343) -> -9007199254740993/12343) ((4832 . 5625) (/ -9007199254740993 12344) -> -9007199254740993/12344) ((4833 . 5625) (/ -9007199254740993 12345) -> -3002399751580331/4115) ((4834 . 5625) (/ -9007199254740993 12346) -> -9007199254740993/12346) ((4835 . 5625) (/ -9007199254740993 12347) -> -9007199254740993/12347) ((4836 . 5625) (/ -9007199254740992 12343) -> -9007199254740992/12343) ((4837 . 5625) (/ -9007199254740992 12344) -> -1125899906842624/1543) ((4838 . 5625) (/ -9007199254740992 12345) -> -9007199254740992/12345) ((4839 . 5625) (/ -9007199254740992 12346) -> -4503599627370496/6173) ((4840 . 5625) (/ -9007199254740992 12347) -> -9007199254740992/12347) ((4841 . 5625) (/ -9007199254740991 12343) -> -9007199254740991/12343) ((4842 . 5625) (/ -9007199254740991 12344) -> -9007199254740991/12344) ((4843 . 5625) (/ -9007199254740991 12345) -> -9007199254740991/12345) ((4844 . 5625) (/ -9007199254740991 12346) -> -9007199254740991/12346) ((4845 . 5625) (/ -9007199254740991 12347) -> -9007199254740991/12347) ((4846 . 5625) (/ -9007199254740990 12343) -> -9007199254740990/12343) ((4847 . 5625) (/ -9007199254740990 12344) -> -4503599627370495/6172) ((4848 . 5625) (/ -9007199254740990 12345) -> -600479950316066/823) ((4849 . 5625) (/ -9007199254740990 12346) -> -4503599627370495/6173) ((4850 . 5625) (/ -9007199254740990 12347) -> -9007199254740990/12347) ((4851 . 5625) (/ -9007199254740994 4294967294) -> -4503599627370497/2147483647) ((4852 . 5625) (/ -9007199254740994 4294967295) -> -529835250278882/252645135) ((4853 . 5625) (/ -9007199254740994 4294967296) -> -4503599627370497/2147483648) ((4854 . 5625) (/ -9007199254740994 4294967297) -> -9007199254740994/4294967297) ((4855 . 5625) (/ -9007199254740994 4294967298) -> -4503599627370497/2147483649) ((4856 . 5625) (/ -9007199254740993 4294967294) -> -9007199254740993/4294967294) ((4857 . 5625) (/ -9007199254740993 4294967295) -> -3002399751580331/1431655765) ((4858 . 5625) (/ -9007199254740993 4294967296) -> -9007199254740993/4294967296) ((4859 . 5625) (/ -9007199254740993 4294967297) -> -9007199254740993/4294967297) ((4860 . 5625) (/ -9007199254740993 4294967298) -> -3002399751580331/1431655766) ((4861 . 5625) (/ -9007199254740992 4294967294) -> -4503599627370496/2147483647) ((4862 . 5625) (/ -9007199254740992 4294967295) -> -9007199254740992/4294967295) ((4863 . 5625) (/ -9007199254740992 4294967296) -> -2097152) ((4864 . 5625) (/ -9007199254740992 4294967297) -> -9007199254740992/4294967297) ((4865 . 5625) (/ -9007199254740992 4294967298) -> -4503599627370496/2147483649) ((4866 . 5625) (/ -9007199254740991 4294967294) -> -9007199254740991/4294967294) ((4867 . 5625) (/ -9007199254740991 4294967295) -> -9007199254740991/4294967295) ((4868 . 5625) (/ -9007199254740991 4294967296) -> -9007199254740991/4294967296) ((4869 . 5625) (/ -9007199254740991 4294967297) -> -9007199254740991/4294967297) ((4870 . 5625) (/ -9007199254740991 4294967298) -> -9007199254740991/4294967298) ((4871 . 5625) (/ -9007199254740990 4294967294) -> -4503599627370495/2147483647) ((4872 . 5625) (/ -9007199254740990 4294967295) -> -600479950316066/286331153) ((4873 . 5625) (/ -9007199254740990 4294967296) -> -4503599627370495/2147483648) ((4874 . 5625) (/ -9007199254740990 4294967297) -> -9007199254740990/4294967297) ((4875 . 5625) (/ -9007199254740990 4294967298) -> -1501199875790165/715827883) ((4876 . 5625) (/ 12343 -2) -> -12343/2) ((4877 . 5625) (/ 12343 -1) -> -12343) ((4878 . 5625) (/ 12343 0) -> "division by zero") ((4879 . 5625) (/ 12343 1) -> 12343) ((4880 . 5625) (/ 12343 2) -> 12343/2) ((4881 . 5625) (/ 12344 -2) -> -6172) ((4882 . 5625) (/ 12344 -1) -> -12344) ((4883 . 5625) (/ 12344 0) -> "division by zero") ((4884 . 5625) (/ 12344 1) -> 12344) ((4885 . 5625) (/ 12344 2) -> 6172) ((4886 . 5625) (/ 12345 -2) -> -12345/2) ((4887 . 5625) (/ 12345 -1) -> -12345) ((4888 . 5625) (/ 12345 0) -> "division by zero") ((4889 . 5625) (/ 12345 1) -> 12345) ((4890 . 5625) (/ 12345 2) -> 12345/2) ((4891 . 5625) (/ 12346 -2) -> -6173) ((4892 . 5625) (/ 12346 -1) -> -12346) ((4893 . 5625) (/ 12346 0) -> "division by zero") ((4894 . 5625) (/ 12346 1) -> 12346) ((4895 . 5625) (/ 12346 2) -> 6173) ((4896 . 5625) (/ 12347 -2) -> -12347/2) ((4897 . 5625) (/ 12347 -1) -> -12347) ((4898 . 5625) (/ 12347 0) -> "division by zero") ((4899 . 5625) (/ 12347 1) -> 12347) ((4900 . 5625) (/ 12347 2) -> 12347/2) ((4901 . 5625) (/ 12343 -1) -> -12343) ((4902 . 5625) (/ 12343 0) -> "division by zero") ((4903 . 5625) (/ 12343 1) -> 12343) ((4904 . 5625) (/ 12343 2) -> 12343/2) ((4905 . 5625) (/ 12343 3) -> 12343/3) ((4906 . 5625) (/ 12344 -1) -> -12344) ((4907 . 5625) (/ 12344 0) -> "division by zero") ((4908 . 5625) (/ 12344 1) -> 12344) ((4909 . 5625) (/ 12344 2) -> 6172) ((4910 . 5625) (/ 12344 3) -> 12344/3) ((4911 . 5625) (/ 12345 -1) -> -12345) ((4912 . 5625) (/ 12345 0) -> "division by zero") ((4913 . 5625) (/ 12345 1) -> 12345) ((4914 . 5625) (/ 12345 2) -> 12345/2) ((4915 . 5625) (/ 12345 3) -> 4115) ((4916 . 5625) (/ 12346 -1) -> -12346) ((4917 . 5625) (/ 12346 0) -> "division by zero") ((4918 . 5625) (/ 12346 1) -> 12346) ((4919 . 5625) (/ 12346 2) -> 6173) ((4920 . 5625) (/ 12346 3) -> 12346/3) ((4921 . 5625) (/ 12347 -1) -> -12347) ((4922 . 5625) (/ 12347 0) -> "division by zero") ((4923 . 5625) (/ 12347 1) -> 12347) ((4924 . 5625) (/ 12347 2) -> 12347/2) ((4925 . 5625) (/ 12347 3) -> 12347/3) ((4926 . 5625) (/ 12343 -3) -> -12343/3) ((4927 . 5625) (/ 12343 -2) -> -12343/2) ((4928 . 5625) (/ 12343 -1) -> -12343) ((4929 . 5625) (/ 12343 0) -> "division by zero") ((4930 . 5625) (/ 12343 1) -> 12343) ((4931 . 5625) (/ 12344 -3) -> -12344/3) ((4932 . 5625) (/ 12344 -2) -> -6172) ((4933 . 5625) (/ 12344 -1) -> -12344) ((4934 . 5625) (/ 12344 0) -> "division by zero") ((4935 . 5625) (/ 12344 1) -> 12344) ((4936 . 5625) (/ 12345 -3) -> -4115) ((4937 . 5625) (/ 12345 -2) -> -12345/2) ((4938 . 5625) (/ 12345 -1) -> -12345) ((4939 . 5625) (/ 12345 0) -> "division by zero") ((4940 . 5625) (/ 12345 1) -> 12345) ((4941 . 5625) (/ 12346 -3) -> -12346/3) ((4942 . 5625) (/ 12346 -2) -> -6173) ((4943 . 5625) (/ 12346 -1) -> -12346) ((4944 . 5625) (/ 12346 0) -> "division by zero") ((4945 . 5625) (/ 12346 1) -> 12346) ((4946 . 5625) (/ 12347 -3) -> -12347/3) ((4947 . 5625) (/ 12347 -2) -> -12347/2) ((4948 . 5625) (/ 12347 -1) -> -12347) ((4949 . 5625) (/ 12347 0) -> "division by zero") ((4950 . 5625) (/ 12347 1) -> 12347) ((4951 . 5625) (/ 12343 0) -> "division by zero") ((4952 . 5625) (/ 12343 1) -> 12343) ((4953 . 5625) (/ 12343 2) -> 12343/2) ((4954 . 5625) (/ 12343 3) -> 12343/3) ((4955 . 5625) (/ 12343 4) -> 12343/4) ((4956 . 5625) (/ 12344 0) -> "division by zero") ((4957 . 5625) (/ 12344 1) -> 12344) ((4958 . 5625) (/ 12344 2) -> 6172) ((4959 . 5625) (/ 12344 3) -> 12344/3) ((4960 . 5625) (/ 12344 4) -> 3086) ((4961 . 5625) (/ 12345 0) -> "division by zero") ((4962 . 5625) (/ 12345 1) -> 12345) ((4963 . 5625) (/ 12345 2) -> 12345/2) ((4964 . 5625) (/ 12345 3) -> 4115) ((4965 . 5625) (/ 12345 4) -> 12345/4) ((4966 . 5625) (/ 12346 0) -> "division by zero") ((4967 . 5625) (/ 12346 1) -> 12346) ((4968 . 5625) (/ 12346 2) -> 6173) ((4969 . 5625) (/ 12346 3) -> 12346/3) ((4970 . 5625) (/ 12346 4) -> 6173/2) ((4971 . 5625) (/ 12347 0) -> "division by zero") ((4972 . 5625) (/ 12347 1) -> 12347) ((4973 . 5625) (/ 12347 2) -> 12347/2) ((4974 . 5625) (/ 12347 3) -> 12347/3) ((4975 . 5625) (/ 12347 4) -> 12347/4) ((4976 . 5625) (/ 12343 -4) -> -12343/4) ((4977 . 5625) (/ 12343 -3) -> -12343/3) ((4978 . 5625) (/ 12343 -2) -> -12343/2) ((4979 . 5625) (/ 12343 -1) -> -12343) ((4980 . 5625) (/ 12343 0) -> "division by zero") ((4981 . 5625) (/ 12344 -4) -> -3086) ((4982 . 5625) (/ 12344 -3) -> -12344/3) ((4983 . 5625) (/ 12344 -2) -> -6172) ((4984 . 5625) (/ 12344 -1) -> -12344) ((4985 . 5625) (/ 12344 0) -> "division by zero") ((4986 . 5625) (/ 12345 -4) -> -12345/4) ((4987 . 5625) (/ 12345 -3) -> -4115) ((4988 . 5625) (/ 12345 -2) -> -12345/2) ((4989 . 5625) (/ 12345 -1) -> -12345) ((4990 . 5625) (/ 12345 0) -> "division by zero") ((4991 . 5625) (/ 12346 -4) -> -6173/2) ((4992 . 5625) (/ 12346 -3) -> -12346/3) ((4993 . 5625) (/ 12346 -2) -> -6173) ((4994 . 5625) (/ 12346 -1) -> -12346) ((4995 . 5625) (/ 12346 0) -> "division by zero") ((4996 . 5625) (/ 12347 -4) -> -12347/4) ((4997 . 5625) (/ 12347 -3) -> -12347/3) ((4998 . 5625) (/ 12347 -2) -> -12347/2) ((4999 . 5625) (/ 12347 -1) -> -12347) ((5000 . 5625) (/ 12347 0) -> "division by zero") ((5001 . 5625) (/ 12343 1073741821) -> 12343/1073741821) ((5002 . 5625) (/ 12343 1073741822) -> 12343/1073741822) ((5003 . 5625) (/ 12343 1073741823) -> 12343/1073741823) ((5004 . 5625) (/ 12343 1073741824) -> 12343/1073741824) ((5005 . 5625) (/ 12343 1073741825) -> 12343/1073741825) ((5006 . 5625) (/ 12344 1073741821) -> 12344/1073741821) ((5007 . 5625) (/ 12344 1073741822) -> 6172/536870911) ((5008 . 5625) (/ 12344 1073741823) -> 12344/1073741823) ((5009 . 5625) (/ 12344 1073741824) -> 1543/134217728) ((5010 . 5625) (/ 12344 1073741825) -> 12344/1073741825) ((5011 . 5625) (/ 12345 1073741821) -> 12345/1073741821) ((5012 . 5625) (/ 12345 1073741822) -> 12345/1073741822) ((5013 . 5625) (/ 12345 1073741823) -> 4115/357913941) ((5014 . 5625) (/ 12345 1073741824) -> 12345/1073741824) ((5015 . 5625) (/ 12345 1073741825) -> 2469/214748365) ((5016 . 5625) (/ 12346 1073741821) -> 12346/1073741821) ((5017 . 5625) (/ 12346 1073741822) -> 6173/536870911) ((5018 . 5625) (/ 12346 1073741823) -> 12346/1073741823) ((5019 . 5625) (/ 12346 1073741824) -> 6173/536870912) ((5020 . 5625) (/ 12346 1073741825) -> 12346/1073741825) ((5021 . 5625) (/ 12347 1073741821) -> 12347/1073741821) ((5022 . 5625) (/ 12347 1073741822) -> 12347/1073741822) ((5023 . 5625) (/ 12347 1073741823) -> 12347/1073741823) ((5024 . 5625) (/ 12347 1073741824) -> 12347/1073741824) ((5025 . 5625) (/ 12347 1073741825) -> 12347/1073741825) ((5026 . 5625) (/ 12343 -1073741826) -> -12343/1073741826) ((5027 . 5625) (/ 12343 -1073741825) -> -12343/1073741825) ((5028 . 5625) (/ 12343 -1073741824) -> -12343/1073741824) ((5029 . 5625) (/ 12343 -1073741823) -> -12343/1073741823) ((5030 . 5625) (/ 12343 -1073741822) -> -12343/1073741822) ((5031 . 5625) (/ 12344 -1073741826) -> -6172/536870913) ((5032 . 5625) (/ 12344 -1073741825) -> -12344/1073741825) ((5033 . 5625) (/ 12344 -1073741824) -> -1543/134217728) ((5034 . 5625) (/ 12344 -1073741823) -> -12344/1073741823) ((5035 . 5625) (/ 12344 -1073741822) -> -6172/536870911) ((5036 . 5625) (/ 12345 -1073741826) -> -4115/357913942) ((5037 . 5625) (/ 12345 -1073741825) -> -2469/214748365) ((5038 . 5625) (/ 12345 -1073741824) -> -12345/1073741824) ((5039 . 5625) (/ 12345 -1073741823) -> -4115/357913941) ((5040 . 5625) (/ 12345 -1073741822) -> -12345/1073741822) ((5041 . 5625) (/ 12346 -1073741826) -> -6173/536870913) ((5042 . 5625) (/ 12346 -1073741825) -> -12346/1073741825) ((5043 . 5625) (/ 12346 -1073741824) -> -6173/536870912) ((5044 . 5625) (/ 12346 -1073741823) -> -12346/1073741823) ((5045 . 5625) (/ 12346 -1073741822) -> -6173/536870911) ((5046 . 5625) (/ 12347 -1073741826) -> -12347/1073741826) ((5047 . 5625) (/ 12347 -1073741825) -> -12347/1073741825) ((5048 . 5625) (/ 12347 -1073741824) -> -12347/1073741824) ((5049 . 5625) (/ 12347 -1073741823) -> -12347/1073741823) ((5050 . 5625) (/ 12347 -1073741822) -> -12347/1073741822) ((5051 . 5625) (/ 12343 1073741822) -> 12343/1073741822) ((5052 . 5625) (/ 12343 1073741823) -> 12343/1073741823) ((5053 . 5625) (/ 12343 1073741824) -> 12343/1073741824) ((5054 . 5625) (/ 12343 1073741825) -> 12343/1073741825) ((5055 . 5625) (/ 12343 1073741826) -> 12343/1073741826) ((5056 . 5625) (/ 12344 1073741822) -> 6172/536870911) ((5057 . 5625) (/ 12344 1073741823) -> 12344/1073741823) ((5058 . 5625) (/ 12344 1073741824) -> 1543/134217728) ((5059 . 5625) (/ 12344 1073741825) -> 12344/1073741825) ((5060 . 5625) (/ 12344 1073741826) -> 6172/536870913) ((5061 . 5625) (/ 12345 1073741822) -> 12345/1073741822) ((5062 . 5625) (/ 12345 1073741823) -> 4115/357913941) ((5063 . 5625) (/ 12345 1073741824) -> 12345/1073741824) ((5064 . 5625) (/ 12345 1073741825) -> 2469/214748365) ((5065 . 5625) (/ 12345 1073741826) -> 4115/357913942) ((5066 . 5625) (/ 12346 1073741822) -> 6173/536870911) ((5067 . 5625) (/ 12346 1073741823) -> 12346/1073741823) ((5068 . 5625) (/ 12346 1073741824) -> 6173/536870912) ((5069 . 5625) (/ 12346 1073741825) -> 12346/1073741825) ((5070 . 5625) (/ 12346 1073741826) -> 6173/536870913) ((5071 . 5625) (/ 12347 1073741822) -> 12347/1073741822) ((5072 . 5625) (/ 12347 1073741823) -> 12347/1073741823) ((5073 . 5625) (/ 12347 1073741824) -> 12347/1073741824) ((5074 . 5625) (/ 12347 1073741825) -> 12347/1073741825) ((5075 . 5625) (/ 12347 1073741826) -> 12347/1073741826) ((5076 . 5625) (/ 12343 -1073741827) -> -12343/1073741827) ((5077 . 5625) (/ 12343 -1073741826) -> -12343/1073741826) ((5078 . 5625) (/ 12343 -1073741825) -> -12343/1073741825) ((5079 . 5625) (/ 12343 -1073741824) -> -12343/1073741824) ((5080 . 5625) (/ 12343 -1073741823) -> -12343/1073741823) ((5081 . 5625) (/ 12344 -1073741827) -> -12344/1073741827) ((5082 . 5625) (/ 12344 -1073741826) -> -6172/536870913) ((5083 . 5625) (/ 12344 -1073741825) -> -12344/1073741825) ((5084 . 5625) (/ 12344 -1073741824) -> -1543/134217728) ((5085 . 5625) (/ 12344 -1073741823) -> -12344/1073741823) ((5086 . 5625) (/ 12345 -1073741827) -> -12345/1073741827) ((5087 . 5625) (/ 12345 -1073741826) -> -4115/357913942) ((5088 . 5625) (/ 12345 -1073741825) -> -2469/214748365) ((5089 . 5625) (/ 12345 -1073741824) -> -12345/1073741824) ((5090 . 5625) (/ 12345 -1073741823) -> -4115/357913941) ((5091 . 5625) (/ 12346 -1073741827) -> -12346/1073741827) ((5092 . 5625) (/ 12346 -1073741826) -> -6173/536870913) ((5093 . 5625) (/ 12346 -1073741825) -> -12346/1073741825) ((5094 . 5625) (/ 12346 -1073741824) -> -6173/536870912) ((5095 . 5625) (/ 12346 -1073741823) -> -12346/1073741823) ((5096 . 5625) (/ 12347 -1073741827) -> -12347/1073741827) ((5097 . 5625) (/ 12347 -1073741826) -> -12347/1073741826) ((5098 . 5625) (/ 12347 -1073741825) -> -12347/1073741825) ((5099 . 5625) (/ 12347 -1073741824) -> -12347/1073741824) ((5100 . 5625) (/ 12347 -1073741823) -> -12347/1073741823) ((5101 . 5625) (/ 12343 1103515243) -> 12343/1103515243) ((5102 . 5625) (/ 12343 1103515244) -> 12343/1103515244) ((5103 . 5625) (/ 12343 1103515245) -> 12343/1103515245) ((5104 . 5625) (/ 12343 1103515246) -> 12343/1103515246) ((5105 . 5625) (/ 12343 1103515247) -> 12343/1103515247) ((5106 . 5625) (/ 12344 1103515243) -> 12344/1103515243) ((5107 . 5625) (/ 12344 1103515244) -> 3086/275878811) ((5108 . 5625) (/ 12344 1103515245) -> 12344/1103515245) ((5109 . 5625) (/ 12344 1103515246) -> 6172/551757623) ((5110 . 5625) (/ 12344 1103515247) -> 12344/1103515247) ((5111 . 5625) (/ 12345 1103515243) -> 12345/1103515243) ((5112 . 5625) (/ 12345 1103515244) -> 12345/1103515244) ((5113 . 5625) (/ 12345 1103515245) -> 823/73567683) ((5114 . 5625) (/ 12345 1103515246) -> 12345/1103515246) ((5115 . 5625) (/ 12345 1103515247) -> 12345/1103515247) ((5116 . 5625) (/ 12346 1103515243) -> 12346/1103515243) ((5117 . 5625) (/ 12346 1103515244) -> 6173/551757622) ((5118 . 5625) (/ 12346 1103515245) -> 12346/1103515245) ((5119 . 5625) (/ 12346 1103515246) -> 6173/551757623) ((5120 . 5625) (/ 12346 1103515247) -> 12346/1103515247) ((5121 . 5625) (/ 12347 1103515243) -> 12347/1103515243) ((5122 . 5625) (/ 12347 1103515244) -> 12347/1103515244) ((5123 . 5625) (/ 12347 1103515245) -> 12347/1103515245) ((5124 . 5625) (/ 12347 1103515246) -> 12347/1103515246) ((5125 . 5625) (/ 12347 1103515247) -> 12347/1103515247) ((5126 . 5625) (/ 12343 631629063) -> 12343/631629063) ((5127 . 5625) (/ 12343 631629064) -> 12343/631629064) ((5128 . 5625) (/ 12343 631629065) -> 12343/631629065) ((5129 . 5625) (/ 12343 631629066) -> 12343/631629066) ((5130 . 5625) (/ 12343 631629067) -> 12343/631629067) ((5131 . 5625) (/ 12344 631629063) -> 12344/631629063) ((5132 . 5625) (/ 12344 631629064) -> 1543/78953633) ((5133 . 5625) (/ 12344 631629065) -> 12344/631629065) ((5134 . 5625) (/ 12344 631629066) -> 6172/315814533) ((5135 . 5625) (/ 12344 631629067) -> 12344/631629067) ((5136 . 5625) (/ 12345 631629063) -> 4115/210543021) ((5137 . 5625) (/ 12345 631629064) -> 12345/631629064) ((5138 . 5625) (/ 12345 631629065) -> 2469/126325813) ((5139 . 5625) (/ 12345 631629066) -> 4115/210543022) ((5140 . 5625) (/ 12345 631629067) -> 12345/631629067) ((5141 . 5625) (/ 12346 631629063) -> 12346/631629063) ((5142 . 5625) (/ 12346 631629064) -> 6173/315814532) ((5143 . 5625) (/ 12346 631629065) -> 12346/631629065) ((5144 . 5625) (/ 12346 631629066) -> 6173/315814533) ((5145 . 5625) (/ 12346 631629067) -> 12346/631629067) ((5146 . 5625) (/ 12347 631629063) -> 12347/631629063) ((5147 . 5625) (/ 12347 631629064) -> 12347/631629064) ((5148 . 5625) (/ 12347 631629065) -> 12347/631629065) ((5149 . 5625) (/ 12347 631629066) -> 12347/631629066) ((5150 . 5625) (/ 12347 631629067) -> 12347/631629067) ((5151 . 5625) (/ 12343 9007199254740990) -> 12343/9007199254740990) ((5152 . 5625) (/ 12343 9007199254740991) -> 12343/9007199254740991) ((5153 . 5625) (/ 12343 9007199254740992) -> 12343/9007199254740992) ((5154 . 5625) (/ 12343 9007199254740993) -> 12343/9007199254740993) ((5155 . 5625) (/ 12343 9007199254740994) -> 12343/9007199254740994) ((5156 . 5625) (/ 12344 9007199254740990) -> 6172/4503599627370495) ((5157 . 5625) (/ 12344 9007199254740991) -> 12344/9007199254740991) ((5158 . 5625) (/ 12344 9007199254740992) -> 1543/1125899906842624) ((5159 . 5625) (/ 12344 9007199254740993) -> 12344/9007199254740993) ((5160 . 5625) (/ 12344 9007199254740994) -> 6172/4503599627370497) ((5161 . 5625) (/ 12345 9007199254740990) -> 823/600479950316066) ((5162 . 5625) (/ 12345 9007199254740991) -> 12345/9007199254740991) ((5163 . 5625) (/ 12345 9007199254740992) -> 12345/9007199254740992) ((5164 . 5625) (/ 12345 9007199254740993) -> 4115/3002399751580331) ((5165 . 5625) (/ 12345 9007199254740994) -> 12345/9007199254740994) ((5166 . 5625) (/ 12346 9007199254740990) -> 6173/4503599627370495) ((5167 . 5625) (/ 12346 9007199254740991) -> 12346/9007199254740991) ((5168 . 5625) (/ 12346 9007199254740992) -> 6173/4503599627370496) ((5169 . 5625) (/ 12346 9007199254740993) -> 12346/9007199254740993) ((5170 . 5625) (/ 12346 9007199254740994) -> 6173/4503599627370497) ((5171 . 5625) (/ 12347 9007199254740990) -> 12347/9007199254740990) ((5172 . 5625) (/ 12347 9007199254740991) -> 12347/9007199254740991) ((5173 . 5625) (/ 12347 9007199254740992) -> 12347/9007199254740992) ((5174 . 5625) (/ 12347 9007199254740993) -> 12347/9007199254740993) ((5175 . 5625) (/ 12347 9007199254740994) -> 12347/9007199254740994) ((5176 . 5625) (/ 12343 -9007199254740994) -> -12343/9007199254740994) ((5177 . 5625) (/ 12343 -9007199254740993) -> -12343/9007199254740993) ((5178 . 5625) (/ 12343 -9007199254740992) -> -12343/9007199254740992) ((5179 . 5625) (/ 12343 -9007199254740991) -> -12343/9007199254740991) ((5180 . 5625) (/ 12343 -9007199254740990) -> -12343/9007199254740990) ((5181 . 5625) (/ 12344 -9007199254740994) -> -6172/4503599627370497) ((5182 . 5625) (/ 12344 -9007199254740993) -> -12344/9007199254740993) ((5183 . 5625) (/ 12344 -9007199254740992) -> -1543/1125899906842624) ((5184 . 5625) (/ 12344 -9007199254740991) -> -12344/9007199254740991) ((5185 . 5625) (/ 12344 -9007199254740990) -> -6172/4503599627370495) ((5186 . 5625) (/ 12345 -9007199254740994) -> -12345/9007199254740994) ((5187 . 5625) (/ 12345 -9007199254740993) -> -4115/3002399751580331) ((5188 . 5625) (/ 12345 -9007199254740992) -> -12345/9007199254740992) ((5189 . 5625) (/ 12345 -9007199254740991) -> -12345/9007199254740991) ((5190 . 5625) (/ 12345 -9007199254740990) -> -823/600479950316066) ((5191 . 5625) (/ 12346 -9007199254740994) -> -6173/4503599627370497) ((5192 . 5625) (/ 12346 -9007199254740993) -> -12346/9007199254740993) ((5193 . 5625) (/ 12346 -9007199254740992) -> -6173/4503599627370496) ((5194 . 5625) (/ 12346 -9007199254740991) -> -12346/9007199254740991) ((5195 . 5625) (/ 12346 -9007199254740990) -> -6173/4503599627370495) ((5196 . 5625) (/ 12347 -9007199254740994) -> -12347/9007199254740994) ((5197 . 5625) (/ 12347 -9007199254740993) -> -12347/9007199254740993) ((5198 . 5625) (/ 12347 -9007199254740992) -> -12347/9007199254740992) ((5199 . 5625) (/ 12347 -9007199254740991) -> -12347/9007199254740991) ((5200 . 5625) (/ 12347 -9007199254740990) -> -12347/9007199254740990) ((5201 . 5625) (/ 12343 12343) -> 1) ((5202 . 5625) (/ 12343 12344) -> 12343/12344) ((5203 . 5625) (/ 12343 12345) -> 12343/12345) ((5204 . 5625) (/ 12343 12346) -> 12343/12346) ((5205 . 5625) (/ 12343 12347) -> 12343/12347) ((5206 . 5625) (/ 12344 12343) -> 12344/12343) ((5207 . 5625) (/ 12344 12344) -> 1) ((5208 . 5625) (/ 12344 12345) -> 12344/12345) ((5209 . 5625) (/ 12344 12346) -> 6172/6173) ((5210 . 5625) (/ 12344 12347) -> 12344/12347) ((5211 . 5625) (/ 12345 12343) -> 12345/12343) ((5212 . 5625) (/ 12345 12344) -> 12345/12344) ((5213 . 5625) (/ 12345 12345) -> 1) ((5214 . 5625) (/ 12345 12346) -> 12345/12346) ((5215 . 5625) (/ 12345 12347) -> 12345/12347) ((5216 . 5625) (/ 12346 12343) -> 12346/12343) ((5217 . 5625) (/ 12346 12344) -> 6173/6172) ((5218 . 5625) (/ 12346 12345) -> 12346/12345) ((5219 . 5625) (/ 12346 12346) -> 1) ((5220 . 5625) (/ 12346 12347) -> 12346/12347) ((5221 . 5625) (/ 12347 12343) -> 12347/12343) ((5222 . 5625) (/ 12347 12344) -> 12347/12344) ((5223 . 5625) (/ 12347 12345) -> 12347/12345) ((5224 . 5625) (/ 12347 12346) -> 12347/12346) ((5225 . 5625) (/ 12347 12347) -> 1) ((5226 . 5625) (/ 12343 4294967294) -> 12343/4294967294) ((5227 . 5625) (/ 12343 4294967295) -> 12343/4294967295) ((5228 . 5625) (/ 12343 4294967296) -> 12343/4294967296) ((5229 . 5625) (/ 12343 4294967297) -> 12343/4294967297) ((5230 . 5625) (/ 12343 4294967298) -> 12343/4294967298) ((5231 . 5625) (/ 12344 4294967294) -> 6172/2147483647) ((5232 . 5625) (/ 12344 4294967295) -> 12344/4294967295) ((5233 . 5625) (/ 12344 4294967296) -> 1543/536870912) ((5234 . 5625) (/ 12344 4294967297) -> 12344/4294967297) ((5235 . 5625) (/ 12344 4294967298) -> 6172/2147483649) ((5236 . 5625) (/ 12345 4294967294) -> 12345/4294967294) ((5237 . 5625) (/ 12345 4294967295) -> 823/286331153) ((5238 . 5625) (/ 12345 4294967296) -> 12345/4294967296) ((5239 . 5625) (/ 12345 4294967297) -> 12345/4294967297) ((5240 . 5625) (/ 12345 4294967298) -> 4115/1431655766) ((5241 . 5625) (/ 12346 4294967294) -> 6173/2147483647) ((5242 . 5625) (/ 12346 4294967295) -> 12346/4294967295) ((5243 . 5625) (/ 12346 4294967296) -> 6173/2147483648) ((5244 . 5625) (/ 12346 4294967297) -> 12346/4294967297) ((5245 . 5625) (/ 12346 4294967298) -> 6173/2147483649) ((5246 . 5625) (/ 12347 4294967294) -> 12347/4294967294) ((5247 . 5625) (/ 12347 4294967295) -> 12347/4294967295) ((5248 . 5625) (/ 12347 4294967296) -> 12347/4294967296) ((5249 . 5625) (/ 12347 4294967297) -> 12347/4294967297) ((5250 . 5625) (/ 12347 4294967298) -> 12347/4294967298) ((5251 . 5625) (/ 4294967294 -2) -> -2147483647) ((5252 . 5625) (/ 4294967294 -1) -> -4294967294) ((5253 . 5625) (/ 4294967294 0) -> "division by zero") ((5254 . 5625) (/ 4294967294 1) -> 4294967294) ((5255 . 5625) (/ 4294967294 2) -> 2147483647) ((5256 . 5625) (/ 4294967295 -2) -> -4294967295/2) ((5257 . 5625) (/ 4294967295 -1) -> -4294967295) ((5258 . 5625) (/ 4294967295 0) -> "division by zero") ((5259 . 5625) (/ 4294967295 1) -> 4294967295) ((5260 . 5625) (/ 4294967295 2) -> 4294967295/2) ((5261 . 5625) (/ 4294967296 -2) -> -2147483648) ((5262 . 5625) (/ 4294967296 -1) -> -4294967296) ((5263 . 5625) (/ 4294967296 0) -> "division by zero") ((5264 . 5625) (/ 4294967296 1) -> 4294967296) ((5265 . 5625) (/ 4294967296 2) -> 2147483648) ((5266 . 5625) (/ 4294967297 -2) -> -4294967297/2) ((5267 . 5625) (/ 4294967297 -1) -> -4294967297) ((5268 . 5625) (/ 4294967297 0) -> "division by zero") ((5269 . 5625) (/ 4294967297 1) -> 4294967297) ((5270 . 5625) (/ 4294967297 2) -> 4294967297/2) ((5271 . 5625) (/ 4294967298 -2) -> -2147483649) ((5272 . 5625) (/ 4294967298 -1) -> -4294967298) ((5273 . 5625) (/ 4294967298 0) -> "division by zero") ((5274 . 5625) (/ 4294967298 1) -> 4294967298) ((5275 . 5625) (/ 4294967298 2) -> 2147483649) ((5276 . 5625) (/ 4294967294 -1) -> -4294967294) ((5277 . 5625) (/ 4294967294 0) -> "division by zero") ((5278 . 5625) (/ 4294967294 1) -> 4294967294) ((5279 . 5625) (/ 4294967294 2) -> 2147483647) ((5280 . 5625) (/ 4294967294 3) -> 4294967294/3) ((5281 . 5625) (/ 4294967295 -1) -> -4294967295) ((5282 . 5625) (/ 4294967295 0) -> "division by zero") ((5283 . 5625) (/ 4294967295 1) -> 4294967295) ((5284 . 5625) (/ 4294967295 2) -> 4294967295/2) ((5285 . 5625) (/ 4294967295 3) -> 1431655765) ((5286 . 5625) (/ 4294967296 -1) -> -4294967296) ((5287 . 5625) (/ 4294967296 0) -> "division by zero") ((5288 . 5625) (/ 4294967296 1) -> 4294967296) ((5289 . 5625) (/ 4294967296 2) -> 2147483648) ((5290 . 5625) (/ 4294967296 3) -> 4294967296/3) ((5291 . 5625) (/ 4294967297 -1) -> -4294967297) ((5292 . 5625) (/ 4294967297 0) -> "division by zero") ((5293 . 5625) (/ 4294967297 1) -> 4294967297) ((5294 . 5625) (/ 4294967297 2) -> 4294967297/2) ((5295 . 5625) (/ 4294967297 3) -> 4294967297/3) ((5296 . 5625) (/ 4294967298 -1) -> -4294967298) ((5297 . 5625) (/ 4294967298 0) -> "division by zero") ((5298 . 5625) (/ 4294967298 1) -> 4294967298) ((5299 . 5625) (/ 4294967298 2) -> 2147483649) ((5300 . 5625) (/ 4294967298 3) -> 1431655766) ((5301 . 5625) (/ 4294967294 -3) -> -4294967294/3) ((5302 . 5625) (/ 4294967294 -2) -> -2147483647) ((5303 . 5625) (/ 4294967294 -1) -> -4294967294) ((5304 . 5625) (/ 4294967294 0) -> "division by zero") ((5305 . 5625) (/ 4294967294 1) -> 4294967294) ((5306 . 5625) (/ 4294967295 -3) -> -1431655765) ((5307 . 5625) (/ 4294967295 -2) -> -4294967295/2) ((5308 . 5625) (/ 4294967295 -1) -> -4294967295) ((5309 . 5625) (/ 4294967295 0) -> "division by zero") ((5310 . 5625) (/ 4294967295 1) -> 4294967295) ((5311 . 5625) (/ 4294967296 -3) -> -4294967296/3) ((5312 . 5625) (/ 4294967296 -2) -> -2147483648) ((5313 . 5625) (/ 4294967296 -1) -> -4294967296) ((5314 . 5625) (/ 4294967296 0) -> "division by zero") ((5315 . 5625) (/ 4294967296 1) -> 4294967296) ((5316 . 5625) (/ 4294967297 -3) -> -4294967297/3) ((5317 . 5625) (/ 4294967297 -2) -> -4294967297/2) ((5318 . 5625) (/ 4294967297 -1) -> -4294967297) ((5319 . 5625) (/ 4294967297 0) -> "division by zero") ((5320 . 5625) (/ 4294967297 1) -> 4294967297) ((5321 . 5625) (/ 4294967298 -3) -> -1431655766) ((5322 . 5625) (/ 4294967298 -2) -> -2147483649) ((5323 . 5625) (/ 4294967298 -1) -> -4294967298) ((5324 . 5625) (/ 4294967298 0) -> "division by zero") ((5325 . 5625) (/ 4294967298 1) -> 4294967298) ((5326 . 5625) (/ 4294967294 0) -> "division by zero") ((5327 . 5625) (/ 4294967294 1) -> 4294967294) ((5328 . 5625) (/ 4294967294 2) -> 2147483647) ((5329 . 5625) (/ 4294967294 3) -> 4294967294/3) ((5330 . 5625) (/ 4294967294 4) -> 2147483647/2) ((5331 . 5625) (/ 4294967295 0) -> "division by zero") ((5332 . 5625) (/ 4294967295 1) -> 4294967295) ((5333 . 5625) (/ 4294967295 2) -> 4294967295/2) ((5334 . 5625) (/ 4294967295 3) -> 1431655765) ((5335 . 5625) (/ 4294967295 4) -> 4294967295/4) ((5336 . 5625) (/ 4294967296 0) -> "division by zero") ((5337 . 5625) (/ 4294967296 1) -> 4294967296) ((5338 . 5625) (/ 4294967296 2) -> 2147483648) ((5339 . 5625) (/ 4294967296 3) -> 4294967296/3) ((5340 . 5625) (/ 4294967296 4) -> 1073741824) ((5341 . 5625) (/ 4294967297 0) -> "division by zero") ((5342 . 5625) (/ 4294967297 1) -> 4294967297) ((5343 . 5625) (/ 4294967297 2) -> 4294967297/2) ((5344 . 5625) (/ 4294967297 3) -> 4294967297/3) ((5345 . 5625) (/ 4294967297 4) -> 4294967297/4) ((5346 . 5625) (/ 4294967298 0) -> "division by zero") ((5347 . 5625) (/ 4294967298 1) -> 4294967298) ((5348 . 5625) (/ 4294967298 2) -> 2147483649) ((5349 . 5625) (/ 4294967298 3) -> 1431655766) ((5350 . 5625) (/ 4294967298 4) -> 2147483649/2) ((5351 . 5625) (/ 4294967294 -4) -> -2147483647/2) ((5352 . 5625) (/ 4294967294 -3) -> -4294967294/3) ((5353 . 5625) (/ 4294967294 -2) -> -2147483647) ((5354 . 5625) (/ 4294967294 -1) -> -4294967294) ((5355 . 5625) (/ 4294967294 0) -> "division by zero") ((5356 . 5625) (/ 4294967295 -4) -> -4294967295/4) ((5357 . 5625) (/ 4294967295 -3) -> -1431655765) ((5358 . 5625) (/ 4294967295 -2) -> -4294967295/2) ((5359 . 5625) (/ 4294967295 -1) -> -4294967295) ((5360 . 5625) (/ 4294967295 0) -> "division by zero") ((5361 . 5625) (/ 4294967296 -4) -> -1073741824) ((5362 . 5625) (/ 4294967296 -3) -> -4294967296/3) ((5363 . 5625) (/ 4294967296 -2) -> -2147483648) ((5364 . 5625) (/ 4294967296 -1) -> -4294967296) ((5365 . 5625) (/ 4294967296 0) -> "division by zero") ((5366 . 5625) (/ 4294967297 -4) -> -4294967297/4) ((5367 . 5625) (/ 4294967297 -3) -> -4294967297/3) ((5368 . 5625) (/ 4294967297 -2) -> -4294967297/2) ((5369 . 5625) (/ 4294967297 -1) -> -4294967297) ((5370 . 5625) (/ 4294967297 0) -> "division by zero") ((5371 . 5625) (/ 4294967298 -4) -> -2147483649/2) ((5372 . 5625) (/ 4294967298 -3) -> -1431655766) ((5373 . 5625) (/ 4294967298 -2) -> -2147483649) ((5374 . 5625) (/ 4294967298 -1) -> -4294967298) ((5375 . 5625) (/ 4294967298 0) -> "division by zero") ((5376 . 5625) (/ 4294967294 1073741821) -> 4294967294/1073741821) ((5377 . 5625) (/ 4294967294 1073741822) -> 2147483647/536870911) ((5378 . 5625) (/ 4294967294 1073741823) -> 4294967294/1073741823) ((5379 . 5625) (/ 4294967294 1073741824) -> 2147483647/536870912) ((5380 . 5625) (/ 4294967294 1073741825) -> 4294967294/1073741825) ((5381 . 5625) (/ 4294967295 1073741821) -> 4294967295/1073741821) ((5382 . 5625) (/ 4294967295 1073741822) -> 4294967295/1073741822) ((5383 . 5625) (/ 4294967295 1073741823) -> 1431655765/357913941) ((5384 . 5625) (/ 4294967295 1073741824) -> 4294967295/1073741824) ((5385 . 5625) (/ 4294967295 1073741825) -> 858993459/214748365) ((5386 . 5625) (/ 4294967296 1073741821) -> 4294967296/1073741821) ((5387 . 5625) (/ 4294967296 1073741822) -> 2147483648/536870911) ((5388 . 5625) (/ 4294967296 1073741823) -> 4294967296/1073741823) ((5389 . 5625) (/ 4294967296 1073741824) -> 4) ((5390 . 5625) (/ 4294967296 1073741825) -> 4294967296/1073741825) ((5391 . 5625) (/ 4294967297 1073741821) -> 4294967297/1073741821) ((5392 . 5625) (/ 4294967297 1073741822) -> 4294967297/1073741822) ((5393 . 5625) (/ 4294967297 1073741823) -> 4294967297/1073741823) ((5394 . 5625) (/ 4294967297 1073741824) -> 4294967297/1073741824) ((5395 . 5625) (/ 4294967297 1073741825) -> 4294967297/1073741825) ((5396 . 5625) (/ 4294967298 1073741821) -> 4294967298/1073741821) ((5397 . 5625) (/ 4294967298 1073741822) -> 2147483649/536870911) ((5398 . 5625) (/ 4294967298 1073741823) -> 1431655766/357913941) ((5399 . 5625) (/ 4294967298 1073741824) -> 2147483649/536870912) ((5400 . 5625) (/ 4294967298 1073741825) -> 4294967298/1073741825) ((5401 . 5625) (/ 4294967294 -1073741826) -> -2147483647/536870913) ((5402 . 5625) (/ 4294967294 -1073741825) -> -4294967294/1073741825) ((5403 . 5625) (/ 4294967294 -1073741824) -> -2147483647/536870912) ((5404 . 5625) (/ 4294967294 -1073741823) -> -4294967294/1073741823) ((5405 . 5625) (/ 4294967294 -1073741822) -> -2147483647/536870911) ((5406 . 5625) (/ 4294967295 -1073741826) -> -1431655765/357913942) ((5407 . 5625) (/ 4294967295 -1073741825) -> -858993459/214748365) ((5408 . 5625) (/ 4294967295 -1073741824) -> -4294967295/1073741824) ((5409 . 5625) (/ 4294967295 -1073741823) -> -1431655765/357913941) ((5410 . 5625) (/ 4294967295 -1073741822) -> -4294967295/1073741822) ((5411 . 5625) (/ 4294967296 -1073741826) -> -2147483648/536870913) ((5412 . 5625) (/ 4294967296 -1073741825) -> -4294967296/1073741825) ((5413 . 5625) (/ 4294967296 -1073741824) -> -4) ((5414 . 5625) (/ 4294967296 -1073741823) -> -4294967296/1073741823) ((5415 . 5625) (/ 4294967296 -1073741822) -> -2147483648/536870911) ((5416 . 5625) (/ 4294967297 -1073741826) -> -4294967297/1073741826) ((5417 . 5625) (/ 4294967297 -1073741825) -> -4294967297/1073741825) ((5418 . 5625) (/ 4294967297 -1073741824) -> -4294967297/1073741824) ((5419 . 5625) (/ 4294967297 -1073741823) -> -4294967297/1073741823) ((5420 . 5625) (/ 4294967297 -1073741822) -> -4294967297/1073741822) ((5421 . 5625) (/ 4294967298 -1073741826) -> -715827883/178956971) ((5422 . 5625) (/ 4294967298 -1073741825) -> -4294967298/1073741825) ((5423 . 5625) (/ 4294967298 -1073741824) -> -2147483649/536870912) ((5424 . 5625) (/ 4294967298 -1073741823) -> -1431655766/357913941) ((5425 . 5625) (/ 4294967298 -1073741822) -> -2147483649/536870911) ((5426 . 5625) (/ 4294967294 1073741822) -> 2147483647/536870911) ((5427 . 5625) (/ 4294967294 1073741823) -> 4294967294/1073741823) ((5428 . 5625) (/ 4294967294 1073741824) -> 2147483647/536870912) ((5429 . 5625) (/ 4294967294 1073741825) -> 4294967294/1073741825) ((5430 . 5625) (/ 4294967294 1073741826) -> 2147483647/536870913) ((5431 . 5625) (/ 4294967295 1073741822) -> 4294967295/1073741822) ((5432 . 5625) (/ 4294967295 1073741823) -> 1431655765/357913941) ((5433 . 5625) (/ 4294967295 1073741824) -> 4294967295/1073741824) ((5434 . 5625) (/ 4294967295 1073741825) -> 858993459/214748365) ((5435 . 5625) (/ 4294967295 1073741826) -> 1431655765/357913942) ((5436 . 5625) (/ 4294967296 1073741822) -> 2147483648/536870911) ((5437 . 5625) (/ 4294967296 1073741823) -> 4294967296/1073741823) ((5438 . 5625) (/ 4294967296 1073741824) -> 4) ((5439 . 5625) (/ 4294967296 1073741825) -> 4294967296/1073741825) ((5440 . 5625) (/ 4294967296 1073741826) -> 2147483648/536870913) ((5441 . 5625) (/ 4294967297 1073741822) -> 4294967297/1073741822) ((5442 . 5625) (/ 4294967297 1073741823) -> 4294967297/1073741823) ((5443 . 5625) (/ 4294967297 1073741824) -> 4294967297/1073741824) ((5444 . 5625) (/ 4294967297 1073741825) -> 4294967297/1073741825) ((5445 . 5625) (/ 4294967297 1073741826) -> 4294967297/1073741826) ((5446 . 5625) (/ 4294967298 1073741822) -> 2147483649/536870911) ((5447 . 5625) (/ 4294967298 1073741823) -> 1431655766/357913941) ((5448 . 5625) (/ 4294967298 1073741824) -> 2147483649/536870912) ((5449 . 5625) (/ 4294967298 1073741825) -> 4294967298/1073741825) ((5450 . 5625) (/ 4294967298 1073741826) -> 715827883/178956971) ((5451 . 5625) (/ 4294967294 -1073741827) -> -4294967294/1073741827) ((5452 . 5625) (/ 4294967294 -1073741826) -> -2147483647/536870913) ((5453 . 5625) (/ 4294967294 -1073741825) -> -4294967294/1073741825) ((5454 . 5625) (/ 4294967294 -1073741824) -> -2147483647/536870912) ((5455 . 5625) (/ 4294967294 -1073741823) -> -4294967294/1073741823) ((5456 . 5625) (/ 4294967295 -1073741827) -> -4294967295/1073741827) ((5457 . 5625) (/ 4294967295 -1073741826) -> -1431655765/357913942) ((5458 . 5625) (/ 4294967295 -1073741825) -> -858993459/214748365) ((5459 . 5625) (/ 4294967295 -1073741824) -> -4294967295/1073741824) ((5460 . 5625) (/ 4294967295 -1073741823) -> -1431655765/357913941) ((5461 . 5625) (/ 4294967296 -1073741827) -> -4294967296/1073741827) ((5462 . 5625) (/ 4294967296 -1073741826) -> -2147483648/536870913) ((5463 . 5625) (/ 4294967296 -1073741825) -> -4294967296/1073741825) ((5464 . 5625) (/ 4294967296 -1073741824) -> -4) ((5465 . 5625) (/ 4294967296 -1073741823) -> -4294967296/1073741823) ((5466 . 5625) (/ 4294967297 -1073741827) -> -4294967297/1073741827) ((5467 . 5625) (/ 4294967297 -1073741826) -> -4294967297/1073741826) ((5468 . 5625) (/ 4294967297 -1073741825) -> -4294967297/1073741825) ((5469 . 5625) (/ 4294967297 -1073741824) -> -4294967297/1073741824) ((5470 . 5625) (/ 4294967297 -1073741823) -> -4294967297/1073741823) ((5471 . 5625) (/ 4294967298 -1073741827) -> -4294967298/1073741827) ((5472 . 5625) (/ 4294967298 -1073741826) -> -715827883/178956971) ((5473 . 5625) (/ 4294967298 -1073741825) -> -4294967298/1073741825) ((5474 . 5625) (/ 4294967298 -1073741824) -> -2147483649/536870912) ((5475 . 5625) (/ 4294967298 -1073741823) -> -1431655766/357913941) ((5476 . 5625) (/ 4294967294 1103515243) -> 4294967294/1103515243) ((5477 . 5625) (/ 4294967294 1103515244) -> 2147483647/551757622) ((5478 . 5625) (/ 4294967294 1103515245) -> 4294967294/1103515245) ((5479 . 5625) (/ 4294967294 1103515246) -> 2147483647/551757623) ((5480 . 5625) (/ 4294967294 1103515247) -> 4294967294/1103515247) ((5481 . 5625) (/ 4294967295 1103515243) -> 4294967295/1103515243) ((5482 . 5625) (/ 4294967295 1103515244) -> 4294967295/1103515244) ((5483 . 5625) (/ 4294967295 1103515245) -> 286331153/73567683) ((5484 . 5625) (/ 4294967295 1103515246) -> 4294967295/1103515246) ((5485 . 5625) (/ 4294967295 1103515247) -> 4294967295/1103515247) ((5486 . 5625) (/ 4294967296 1103515243) -> 4294967296/1103515243) ((5487 . 5625) (/ 4294967296 1103515244) -> 1073741824/275878811) ((5488 . 5625) (/ 4294967296 1103515245) -> 4294967296/1103515245) ((5489 . 5625) (/ 4294967296 1103515246) -> 2147483648/551757623) ((5490 . 5625) (/ 4294967296 1103515247) -> 4294967296/1103515247) ((5491 . 5625) (/ 4294967297 1103515243) -> 4294967297/1103515243) ((5492 . 5625) (/ 4294967297 1103515244) -> 4294967297/1103515244) ((5493 . 5625) (/ 4294967297 1103515245) -> 4294967297/1103515245) ((5494 . 5625) (/ 4294967297 1103515246) -> 4294967297/1103515246) ((5495 . 5625) (/ 4294967297 1103515247) -> 4294967297/1103515247) ((5496 . 5625) (/ 4294967298 1103515243) -> 4294967298/1103515243) ((5497 . 5625) (/ 4294967298 1103515244) -> 2147483649/551757622) ((5498 . 5625) (/ 4294967298 1103515245) -> 1431655766/367838415) ((5499 . 5625) (/ 4294967298 1103515246) -> 2147483649/551757623) ((5500 . 5625) (/ 4294967298 1103515247) -> 4294967298/1103515247) ((5501 . 5625) (/ 4294967294 631629063) -> 4294967294/631629063) ((5502 . 5625) (/ 4294967294 631629064) -> 2147483647/315814532) ((5503 . 5625) (/ 4294967294 631629065) -> 4294967294/631629065) ((5504 . 5625) (/ 4294967294 631629066) -> 2147483647/315814533) ((5505 . 5625) (/ 4294967294 631629067) -> 4294967294/631629067) ((5506 . 5625) (/ 4294967295 631629063) -> 1431655765/210543021) ((5507 . 5625) (/ 4294967295 631629064) -> 4294967295/631629064) ((5508 . 5625) (/ 4294967295 631629065) -> 858993459/126325813) ((5509 . 5625) (/ 4294967295 631629066) -> 1431655765/210543022) ((5510 . 5625) (/ 4294967295 631629067) -> 252645135/37154651) ((5511 . 5625) (/ 4294967296 631629063) -> 4294967296/631629063) ((5512 . 5625) (/ 4294967296 631629064) -> 536870912/78953633) ((5513 . 5625) (/ 4294967296 631629065) -> 4294967296/631629065) ((5514 . 5625) (/ 4294967296 631629066) -> 2147483648/315814533) ((5515 . 5625) (/ 4294967296 631629067) -> 4294967296/631629067) ((5516 . 5625) (/ 4294967297 631629063) -> 4294967297/631629063) ((5517 . 5625) (/ 4294967297 631629064) -> 4294967297/631629064) ((5518 . 5625) (/ 4294967297 631629065) -> 4294967297/631629065) ((5519 . 5625) (/ 4294967297 631629066) -> 4294967297/631629066) ((5520 . 5625) (/ 4294967297 631629067) -> 4294967297/631629067) ((5521 . 5625) (/ 4294967298 631629063) -> 1431655766/210543021) ((5522 . 5625) (/ 4294967298 631629064) -> 2147483649/315814532) ((5523 . 5625) (/ 4294967298 631629065) -> 4294967298/631629065) ((5524 . 5625) (/ 4294967298 631629066) -> 715827883/105271511) ((5525 . 5625) (/ 4294967298 631629067) -> 4294967298/631629067) ((5526 . 5625) (/ 4294967294 9007199254740990) -> 2147483647/4503599627370495) ((5527 . 5625) (/ 4294967294 9007199254740991) -> 4294967294/9007199254740991) ((5528 . 5625) (/ 4294967294 9007199254740992) -> 2147483647/4503599627370496) ((5529 . 5625) (/ 4294967294 9007199254740993) -> 4294967294/9007199254740993) ((5530 . 5625) (/ 4294967294 9007199254740994) -> 2147483647/4503599627370497) ((5531 . 5625) (/ 4294967295 9007199254740990) -> 286331153/600479950316066) ((5532 . 5625) (/ 4294967295 9007199254740991) -> 4294967295/9007199254740991) ((5533 . 5625) (/ 4294967295 9007199254740992) -> 4294967295/9007199254740992) ((5534 . 5625) (/ 4294967295 9007199254740993) -> 1431655765/3002399751580331) ((5535 . 5625) (/ 4294967295 9007199254740994) -> 252645135/529835250278882) ((5536 . 5625) (/ 4294967296 9007199254740990) -> 2147483648/4503599627370495) ((5537 . 5625) (/ 4294967296 9007199254740991) -> 4294967296/9007199254740991) ((5538 . 5625) (/ 4294967296 9007199254740992) -> 1/2097152) ((5539 . 5625) (/ 4294967296 9007199254740993) -> 4294967296/9007199254740993) ((5540 . 5625) (/ 4294967296 9007199254740994) -> 2147483648/4503599627370497) ((5541 . 5625) (/ 4294967297 9007199254740990) -> 4294967297/9007199254740990) ((5542 . 5625) (/ 4294967297 9007199254740991) -> 4294967297/9007199254740991) ((5543 . 5625) (/ 4294967297 9007199254740992) -> 4294967297/9007199254740992) ((5544 . 5625) (/ 4294967297 9007199254740993) -> 4294967297/9007199254740993) ((5545 . 5625) (/ 4294967297 9007199254740994) -> 4294967297/9007199254740994) ((5546 . 5625) (/ 4294967298 9007199254740990) -> 715827883/1501199875790165) ((5547 . 5625) (/ 4294967298 9007199254740991) -> 4294967298/9007199254740991) ((5548 . 5625) (/ 4294967298 9007199254740992) -> 2147483649/4503599627370496) ((5549 . 5625) (/ 4294967298 9007199254740993) -> 1431655766/3002399751580331) ((5550 . 5625) (/ 4294967298 9007199254740994) -> 2147483649/4503599627370497) ((5551 . 5625) (/ 4294967294 -9007199254740994) -> -2147483647/4503599627370497) ((5552 . 5625) (/ 4294967294 -9007199254740993) -> -4294967294/9007199254740993) ((5553 . 5625) (/ 4294967294 -9007199254740992) -> -2147483647/4503599627370496) ((5554 . 5625) (/ 4294967294 -9007199254740991) -> -4294967294/9007199254740991) ((5555 . 5625) (/ 4294967294 -9007199254740990) -> -2147483647/4503599627370495) ((5556 . 5625) (/ 4294967295 -9007199254740994) -> -252645135/529835250278882) ((5557 . 5625) (/ 4294967295 -9007199254740993) -> -1431655765/3002399751580331) ((5558 . 5625) (/ 4294967295 -9007199254740992) -> -4294967295/9007199254740992) ((5559 . 5625) (/ 4294967295 -9007199254740991) -> -4294967295/9007199254740991) ((5560 . 5625) (/ 4294967295 -9007199254740990) -> -286331153/600479950316066) ((5561 . 5625) (/ 4294967296 -9007199254740994) -> -2147483648/4503599627370497) ((5562 . 5625) (/ 4294967296 -9007199254740993) -> -4294967296/9007199254740993) ((5563 . 5625) (/ 4294967296 -9007199254740992) -> -1/2097152) ((5564 . 5625) (/ 4294967296 -9007199254740991) -> -4294967296/9007199254740991) ((5565 . 5625) (/ 4294967296 -9007199254740990) -> -2147483648/4503599627370495) ((5566 . 5625) (/ 4294967297 -9007199254740994) -> -4294967297/9007199254740994) ((5567 . 5625) (/ 4294967297 -9007199254740993) -> -4294967297/9007199254740993) ((5568 . 5625) (/ 4294967297 -9007199254740992) -> -4294967297/9007199254740992) ((5569 . 5625) (/ 4294967297 -9007199254740991) -> -4294967297/9007199254740991) ((5570 . 5625) (/ 4294967297 -9007199254740990) -> -4294967297/9007199254740990) ((5571 . 5625) (/ 4294967298 -9007199254740994) -> -2147483649/4503599627370497) ((5572 . 5625) (/ 4294967298 -9007199254740993) -> -1431655766/3002399751580331) ((5573 . 5625) (/ 4294967298 -9007199254740992) -> -2147483649/4503599627370496) ((5574 . 5625) (/ 4294967298 -9007199254740991) -> -4294967298/9007199254740991) ((5575 . 5625) (/ 4294967298 -9007199254740990) -> -715827883/1501199875790165) ((5576 . 5625) (/ 4294967294 12343) -> 4294967294/12343) ((5577 . 5625) (/ 4294967294 12344) -> 2147483647/6172) ((5578 . 5625) (/ 4294967294 12345) -> 4294967294/12345) ((5579 . 5625) (/ 4294967294 12346) -> 2147483647/6173) ((5580 . 5625) (/ 4294967294 12347) -> 4294967294/12347) ((5581 . 5625) (/ 4294967295 12343) -> 4294967295/12343) ((5582 . 5625) (/ 4294967295 12344) -> 4294967295/12344) ((5583 . 5625) (/ 4294967295 12345) -> 286331153/823) ((5584 . 5625) (/ 4294967295 12346) -> 4294967295/12346) ((5585 . 5625) (/ 4294967295 12347) -> 4294967295/12347) ((5586 . 5625) (/ 4294967296 12343) -> 4294967296/12343) ((5587 . 5625) (/ 4294967296 12344) -> 536870912/1543) ((5588 . 5625) (/ 4294967296 12345) -> 4294967296/12345) ((5589 . 5625) (/ 4294967296 12346) -> 2147483648/6173) ((5590 . 5625) (/ 4294967296 12347) -> 4294967296/12347) ((5591 . 5625) (/ 4294967297 12343) -> 4294967297/12343) ((5592 . 5625) (/ 4294967297 12344) -> 4294967297/12344) ((5593 . 5625) (/ 4294967297 12345) -> 4294967297/12345) ((5594 . 5625) (/ 4294967297 12346) -> 4294967297/12346) ((5595 . 5625) (/ 4294967297 12347) -> 4294967297/12347) ((5596 . 5625) (/ 4294967298 12343) -> 4294967298/12343) ((5597 . 5625) (/ 4294967298 12344) -> 2147483649/6172) ((5598 . 5625) (/ 4294967298 12345) -> 1431655766/4115) ((5599 . 5625) (/ 4294967298 12346) -> 2147483649/6173) ((5600 . 5625) (/ 4294967298 12347) -> 4294967298/12347) ((5601 . 5625) (/ 4294967294 4294967294) -> 1) ((5602 . 5625) (/ 4294967294 4294967295) -> 4294967294/4294967295) ((5603 . 5625) (/ 4294967294 4294967296) -> 2147483647/2147483648) ((5604 . 5625) (/ 4294967294 4294967297) -> 4294967294/4294967297) ((5605 . 5625) (/ 4294967294 4294967298) -> 2147483647/2147483649) ((5606 . 5625) (/ 4294967295 4294967294) -> 4294967295/4294967294) ((5607 . 5625) (/ 4294967295 4294967295) -> 1) ((5608 . 5625) (/ 4294967295 4294967296) -> 4294967295/4294967296) ((5609 . 5625) (/ 4294967295 4294967297) -> 4294967295/4294967297) ((5610 . 5625) (/ 4294967295 4294967298) -> 1431655765/1431655766) ((5611 . 5625) (/ 4294967296 4294967294) -> 2147483648/2147483647) ((5612 . 5625) (/ 4294967296 4294967295) -> 4294967296/4294967295) ((5613 . 5625) (/ 4294967296 4294967296) -> 1) ((5614 . 5625) (/ 4294967296 4294967297) -> 4294967296/4294967297) ((5615 . 5625) (/ 4294967296 4294967298) -> 2147483648/2147483649) ((5616 . 5625) (/ 4294967297 4294967294) -> 4294967297/4294967294) ((5617 . 5625) (/ 4294967297 4294967295) -> 4294967297/4294967295) ((5618 . 5625) (/ 4294967297 4294967296) -> 4294967297/4294967296) ((5619 . 5625) (/ 4294967297 4294967297) -> 1) ((5620 . 5625) (/ 4294967297 4294967298) -> 4294967297/4294967298) ((5621 . 5625) (/ 4294967298 4294967294) -> 2147483649/2147483647) ((5622 . 5625) (/ 4294967298 4294967295) -> 1431655766/1431655765) ((5623 . 5625) (/ 4294967298 4294967296) -> 2147483649/2147483648) ((5624 . 5625) (/ 4294967298 4294967297) -> 4294967298/4294967297) ((5625 . 5625) (/ 4294967298 4294967298) -> 1) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/module-static-eval-compiled.scm�������������������������������������������������0000644�0001750�0001750�00000000457�13370655400�022077� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; test eval in statically compiled code (eval '(import (chicken memory representation))) (assert (eval '(= 1 (block-ref #(1) 0)))) (module static (foo) (import scheme (chicken memory representation)) (define (foo x) (block-ref x 0))) (eval '(import static)) (assert (eval '(= 99 (foo #(99))))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/r7rs-tests.scm������������������������������������������������������������������0000644�0001750�0001750�00000014706�13370655400�016645� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; R7RS Tests (import (only (chicken port) with-input-from-string with-output-to-string) (chicken condition)) ;; Copied from R4RS tests (define cur-section '()) (define errs '()) (define (SECTION . args) (newline) (write (cons 'SECTION args)) (newline) (newline) (set! cur-section args) #t) (define (record-error e) (set! errs (cons (list cur-section e) errs))) (define (test expect fun . args) (write (cons fun args)) (display " ==> ") (let ((res (if (procedure? fun) (apply fun args) (car args)))) (write res) (newline) (if (equal? expect res) #t (begin (record-error (list res expect (cons fun args))) (display " BUT EXPECTED ") (write expect) (newline) #f)))) (define (test-error expected? fun . args) (write (cons fun args)) (newline) (handle-exceptions exn (or (expected? exn) (begin (record-error (list exn expected? (cons fun args))) (display " EXPECTED A DIFFERENT ERROR") (newline) #f)) (apply fun args) (display " EXPECTED AN ERROR BUT DIDN'T GET ONE") #f)) (define (report-errs) (newline) (if (null? errs) (display "Passed all tests") (begin (display "errors were:") (newline) (display "(SECTION (got expected (call)))") (newline) (for-each (lambda (l) (write l) (newline)) errs) (exit 1))) (newline)) (SECTION 4 2 1) ;; cond clause with only <test> (test 1 (lambda () (cond (1)))) (test 'foo (lambda () (cond ('foo)))) ;; case with => clause (test "a" (lambda () (case 'a ((a) => symbol->string)))) (test "a" (lambda () (case 'a (else => symbol->string)))) (test-error condition? (lambda () (case 'a ((a) =>)))) (test-error condition? (lambda () (case 'a (else =>)))) (SECTION 4 2 5) ;; make-promise test (test #t promise? (make-promise 1)) (test #t promise? (make-promise (lambda _ 'foo))) (test #t promise? (make-promise (make-promise 1))) (test 1 force (make-promise 1)) (test #t procedure? (force (make-promise (lambda _ 1)))) (test 1 force (make-promise (make-promise 1))) ;; delay/force/delay-force (test #t promise? (delay 1)) (test #t promise? (delay (delay 1))) (test 1 force 1) (test force force (force (delay force))) (test 3 force (delay (+ 1 2))) ; pp. 18 (let ((p (delay (+ 1 2)))) (test '(3 3) list (force p) (force p))) (let () ; pp. 19 (define integers (letrec ((next (lambda (n) (delay (cons n (next (+ n 1))))))) (next 0))) (define head (lambda (stream) (car (force stream)))) (define tail (lambda (stream) (cdr (force stream)))) (test 0 head integers) (test 0 head integers) (test 1 head (tail integers)) (test 2 head (tail (tail integers)))) (let () ; later on pp. 19 (define count 0) (define p (delay (begin (set! count (+ count 1)) (if (> count x) count (force p))))) (define x 5) (test #t promise? p) (test 6 force p) (test #t promise? p) (set! x 10) (test 6 force p)) (test #t promise? (delay-force 1)) (test 1 force (delay-force 1)) (test 6 force (delay-force (+ 1 2 3))) (test #t promise? (delay-force (delay 1))) ;; delayed MVs (call-with-values (lambda () (force (delay (values 1 2 3)))) (lambda mv (test '(1 2 3) #f mv))) (call-with-values (lambda () (force (delay-force (values 4 5 6)))) (lambda mv (test '(4 5 6) #f mv))) (call-with-values (lambda () (force (delay (values)))) (lambda mv (test '() #f mv))) (SECTION 5 3) (test '(1 2) (lambda () (define-values (a b) (values 1 2)) (list a b))) (test '(1 (2)) (lambda () (define-values (a . b) (values 1 2)) (list a b))) (test '((1 2)) (lambda () (define-values a (values 1 2)) (list a))) (test 'ok ; Just tests that no error is thrown. (lambda () (define-values () (values)) 'ok)) (SECTION 6 6) (define (integer->named-char x) (with-output-to-string (lambda () (write (integer->char x))))) (test "#\\alarm" integer->named-char #x07) (test "#\\backspace" integer->named-char #x08) (test "#\\delete" integer->named-char #x7f) (test "#\\escape" integer->named-char #x1b) (test "#\\newline" integer->named-char #x0a) (test "#\\null" integer->named-char #x00) (test "#\\return" integer->named-char #x0d) (test "#\\space" integer->named-char #x20) (test "#\\tab" integer->named-char #x09) (SECTION 6 7) ;; We try to avoid using the very constructs that we are testing here, ;; hence the slightly cumbersome string construction of <x> -> "\"\\<x>\"" (define (read-escaped-string x) (with-input-from-string (string-append (string #\" #\\) x (string #\")) read)) (define (escaped-char x) (string-ref (read-escaped-string x) 0)) (test #\alarm escaped-char "a") (test #\backspace escaped-char "b") (test #\tab escaped-char "t") (test #\newline escaped-char "n") (test #\return escaped-char "r") (test #\" escaped-char "\"") (test #\\ escaped-char "\\") (test #\| escaped-char "|") ;; *ONE* line ending following a backslash escape, along with any ;; preceding or trailing intraline whitespace is collapsed and ignored. (test #\E escaped-char (string-append (string #\newline) " END")) ;; This also works with CR instead of LF... (test #\E escaped-char (string-append (string #\return) " END")) ;; And CRLF, too (test #\E escaped-char (string-append (string #\return) (string #\newline) " END")) (test #\E escaped-char (string-append " " (string #\newline) "END")) (test #\E escaped-char (string-append " " (string #\newline) "END")) (test #\E escaped-char (string-append " " (string #\newline) " END")) ;; But not more than one! (test #\newline escaped-char (string-append " " (string #\newline) " " (string #\newline) " END")) ;; CR and LF both counted (test #\newline escaped-char (string-append " " (string #\return) " " (string #\newline) " END")) ;; Tabs count as intraline whitespace too (test #\E escaped-char (string-append (string #\tab) (string #\newline) (string #\tab) " END")) ;; Edge case (test "" read-escaped-string (string-append " " (string #\newline) " ")) ;; NOT YET (is ambiguous with existing \xNN syntax in CHICKEN) #;(test #\tab escaped-char "x9;") #;(test #\tab escaped-char "x09;") (SECTION 6 8) ;; Symbols are implicitly quoted inside self-evaluating vectors. ;; This is not as clear from draft 9 as it could be. (test '#(0 (2 2 2 2) "Anna") #f #(0 (2 2 2 2) "Anna")) (test #t vector? '#(0 (a b) c)) (test #t vector? #(0 (a b) c)) (test '#(0 (a b) c d #(1 2 (e) f) g) #f #(0 (a b) c d #(1 2 (e) f) g)) (report-errs) ����������������������������������������������������������chicken-5.1.0/tests/r5rs_pitfalls.scm���������������������������������������������������������������0000644�0001750�0001750�00000023536�13213463160�017376� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; r5rs_pitfalls.scm ;; ;; This program attempts to test a Scheme implementation's conformance ;; to various subtle edge-cases and consequences of the R5RS Scheme standard. ;; Code was collected from public forums, and is hereby placed in the public domain. ;; ;; (define-syntax should-be (syntax-rules () ((_ test-id value expression) (let ((return-value expression)) (if (not (equal? return-value value)) (for-each (lambda (v) (display v)) `("Failure: " test-id ", expected '" value "', got '" ,return-value "'." #\newline)) (for-each (lambda (v) (display v)) '("Passed: " test-id #\newline))))))) (define call/cc call-with-current-continuation) ;; Section 1: Proper letrec implementation ;;Credits to Al Petrofsky ;; In thread: ;; defines in letrec body ;; http://groups.google.com/groups?selm=87bsoq0wfk.fsf%40app.dial.idiom.com (should-be 1.1 0 (let ((cont #f)) (letrec ((x (call-with-current-continuation (lambda (c) (set! cont c) 0))) (y (call-with-current-continuation (lambda (c) (set! cont c) 0)))) (if cont (let ((c cont)) (set! cont #f) (set! x 1) (set! y 1) (c 0)) (+ x y))))) ;;Credits to Al Petrofsky ;; In thread: ;; Widespread bug (arguably) in letrec when an initializer returns twice ;; http://groups.google.com/groups?selm=87d793aacz.fsf_-_%40app.dial.idiom.com (should-be 1.2 #t (letrec ((x (call/cc list)) (y (call/cc list))) (cond ((procedure? x) (x (pair? y))) ((procedure? y) (y (pair? x)))) (let ((x (car x)) (y (car y))) (and (call/cc x) (call/cc y) (call/cc x))))) ;;Credits to Alan Bawden ;; In thread: ;; LETREC + CALL/CC = SET! even in a limited setting ;; http://groups.google.com/groups?selm=19890302162742.4.ALAN%40PIGPEN.AI.MIT.EDU (should-be 1.3 #t (letrec ((x (call-with-current-continuation (lambda (c) (list #T c))))) (if (car x) ((cadr x) (list #F (lambda () x))) (eq? x ((cadr x)))))) ;; Section 2: Proper call/cc and procedure application ;;Credits to Al Petrofsky, (and a wink to Matthias Blume) ;; In thread: ;; Widespread bug in handling (call/cc (lambda (c) (0 (c 1)))) => 1 ;; http://groups.google.com/groups?selm=87g00y4b6l.fsf%40radish.petrofsky.org (should-be 2.1 1 (call/cc (lambda (c) (0 (c 1))))) ;; Section 3: Hygienic macros ;; Eli Barzilay ;; In thread: ;; R5RS macros... ;; http://groups.google.com/groups?selm=skitsdqjq3.fsf%40tulare.cs.cornell.edu (should-be 3.1 4 (let-syntax ((foo (syntax-rules () ((_ expr) (+ expr 1))))) (let ((+ *)) (foo 3)))) ;; Al Petrofsky again ;; In thread: ;; Buggy use of begin in r5rs cond and case macros. ;; http://groups.google.com/groups?selm=87bse3bznr.fsf%40radish.petrofsky.org (should-be 3.2 2 (let-syntax ((foo (syntax-rules () ((_ var) (define var 1))))) (let ((x 2)) (begin (define foo +)) (cond (else (foo x))) x))) ;;Al Petrofsky ;; In thread: ;; An Advanced syntax-rules Primer for the Mildly Insane ;; http://groups.google.com/groups?selm=87it8db0um.fsf@radish.petrofsky.org (should-be 3.3 1 (let ((x 1)) (let-syntax ((foo (syntax-rules () ((_ y) (let-syntax ((bar (syntax-rules () ((_) (let ((x 2)) y))))) (bar)))))) (foo x)))) ;; Al Petrofsky ;; Contributed directly (should-be 3.4 1 (let-syntax ((x (syntax-rules ()))) 1)) ;; Setion 4: No identifiers are reserved ;;(Brian M. Moore) ;; In thread: ;; shadowing syntatic keywords, bug in MIT Scheme? ;; http://groups.google.com/groups?selm=6e6n88%248qf%241%40news.cc.ukans.edu (should-be 4.1 '(x) ((lambda lambda lambda) 'x)) (should-be 4.2 '(1 2 3) ((lambda (begin) (begin 1 2 3)) (lambda lambda lambda))) (should-be 4.3 #f (let ((quote -)) (eqv? '1 1))) ;; Section 5: #f/() distinctness ;; Scott Miller (should-be 5.1 #f (eq? #f '())) (should-be 5.2 #f (eqv? #f '())) (should-be 5.3 #f (equal? #f '())) ;; Section 6: string->symbol case sensitivity ;; Jens Axel S?gaard ;; In thread: ;; Symbols in DrScheme - bug? ;; http://groups.google.com/groups?selm=3be55b4f%240%24358%24edfadb0f%40dspool01.news.tele.dk (should-be 6.1 #f (eq? (string->symbol "f") (string->symbol "F"))) ;; Section 7: First class continuations ;; Scott Miller ;; No newsgroup posting associated. The gist of this test and 7.2 ;; is that once captured, a continuation should be unmodified by the ;; invocation of other continuations. This test determines that this is ;; the case by capturing a continuation and setting it aside in a temporary ;; variable while it invokes that and another continuation, trying to ;; side effect the first continuation. This test case was developed when ;; testing SISC 1.7's lazy CallFrame unzipping code. (define r #f) (define a #f) (define b #f) (define c #f) (define i 0) (should-be 7.1 28 (let () (set! r (+ 1 (+ 2 (+ 3 (call/cc (lambda (k) (set! a k) 4)))) (+ 5 (+ 6 (call/cc (lambda (k) (set! b k) 7)))))) (if (not c) (set! c a)) (set! i (+ i 1)) (case i ((1) (a 5)) ((2) (b 8)) ((3) (a 6)) ((4) (c 4))) r)) ;; Same test, but in reverse order (define r #f) (define a #f) (define b #f) (define c #f) (define i 0) (should-be 7.2 28 (let () (set! r (+ 1 (+ 2 (+ 3 (call/cc (lambda (k) (set! a k) 4)))) (+ 5 (+ 6 (call/cc (lambda (k) (set! b k) 7)))))) (if (not c) (set! c a)) (set! i (+ i 1)) (case i ((1) (b 8)) ((2) (a 5)) ((3) (b 7)) ((4) (c 4))) r)) ;; Credits to Matthias Radestock ;; Another test case used to test SISC's lazy CallFrame routines. (should-be 7.3 '((-1 4 5 3) (4 -1 5 3) (-1 5 4 3) (5 -1 4 3) (4 5 -1 3) (5 4 -1 3)) (let ((k1 #f) (k2 #f) (k3 #f) (state 0)) (define (identity x) x) (define (fn) ((identity (if (= state 0) (call/cc (lambda (k) (set! k1 k) +)) +)) (identity (if (= state 0) (call/cc (lambda (k) (set! k2 k) 1)) 1)) (identity (if (= state 0) (call/cc (lambda (k) (set! k3 k) 2)) 2)))) (define (check states) (set! state 0) (let* ((res '()) (r (fn))) (set! res (cons r res)) (if (null? states) res (begin (set! state (car states)) (set! states (cdr states)) (case state ((1) (k3 4)) ((2) (k2 2)) ((3) (k1 -))))))) (map check '((1 2 3) (1 3 2) (2 1 3) (2 3 1) (3 1 2) (3 2 1))))) ;; Modification of the yin-yang puzzle so that it terminates and produces ;; a value as a result. (Scott G. Miller) (should-be 7.4 '(10 9 8 7 6 5 4 3 2 1 0) (let ((x '()) (y 0)) (call/cc (lambda (escape) (let* ((yin ((lambda (foo) (set! x (cons y x)) (if (= y 10) (escape x) (begin (set! y 0) foo))) (call/cc (lambda (bar) bar)))) (yang ((lambda (foo) (set! y (+ y 1)) foo) (call/cc (lambda (baz) baz))))) (yin yang)))))) ;; Miscellaneous ;;Al Petrofsky ;; In thread: ;; R5RS Implementors Pitfalls ;; http://groups.google.com/groups?selm=871zemtmd4.fsf@app.dial.idiom.com (should-be 8.1 -1 (let - ((n (- 1))) n)) (should-be 8.2 '(1 2 3 4 1 2 3 4 5) (let ((ls (list 1 2 3 4))) (append ls ls '(5)))) ;; This example actually illustrates a bug in R5RS. If a Scheme system ;; follows the letter of the standard, 1 should be returned, but ;; the general agreement is that 2 should instead be returned. ;; The reason is that in R5RS, let-syntax always introduces new scope, thus ;; in the following test, the let-syntax breaks the definition section ;; and begins the expression section of the let. ;; ;; The general agreement by the implementors in 1998 was that the following ;; should be possible, but isn't: ;; ;; (define ---) ;; (let-syntax (---) ;; (define ---) ;; (define ---)) ;; (define ---) ;; ;; Scheme systems based on the Portable syntax-case expander by Dybvig ;; and Waddell do allow the above, and thus often violate the letter of ;; R5RS. In such systems, the following will produce a local scope: ;; ;; (define ---) ;; (let-syntax ((a ---)) ;; (let () ;; (define ---) ;; (define ---))) ;; (define ---) ;; ;; Credits to Matthias Radestock and thanks to R. Kent Dybvig for the ;; explanation and background (should-be 8.3 1 (let ((x 1)) (let-syntax ((foo (syntax-rules () ((_) 2)))) (define x (foo)) 3) x)) ;;Not really an error to fail this (Matthias Radestock) ;;If this returns (0 1 0), your map isn't call/cc safe, but is probably ;;tail-recursive. If its (0 0 0), the opposite is true. (let ((result (let () (define executed-k #f) (define cont #f) (define res1 #f) (define res2 #f) (set! res1 (map (lambda (x) (if (= x 0) (call/cc (lambda (k) (set! cont k) 0)) 0)) '(1 0 2))) (if (not executed-k) (begin (set! executed-k #t) (set! res2 res1) (cont 1))) res2))) (if (equal? result '(0 0 0)) (display "Map is call/cc safe, but probably not tail recursive or inefficient.") (display "Map is not call/cc safe, but probably tail recursive and efficient.")) (newline)) ������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/repository-path-default.scm�����������������������������������������������������0000644�0001750�0001750�00000000275�13370655400�021377� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import (chicken platform)) (include "test.scm") (print (repository-path)) (test-assert "(repository-path) contains something by default" (= 1 (length (repository-path)))) (test-exit) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/runtests.bat��������������������������������������������������������������������0000644�0001750�0001750�00000054306�13502227553�016464� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������@echo off @rem runtests.bat - run CHICKEN testsuite on cmd.exe with mingw setlocal enableextensions set TEST_DIR=%cd% set CHICKEN=..\%PROGRAM_PREFIX%chicken%PROGRAM_SUFFIX% set CHICKEN_PROFILE=..\%PROGRAM_PREFIX%chicken-profile%PROGRAM_SUFFIX% set CHICKEN_INSTALL_REPOSITORY=%TEST_DIR%\test-repository set CHICKEN_REPOSITORY_PATH=%TEST_DIR%\..;%CHICKEN_INSTALL_REPOSITORY% set PATH=%TEST_DIR%\..;%PATH% rem Increase this when tests start failing on "inexplicable" diffs set FCBUFSIZE=500 set TYPESDB=..\types.db set COMPILE_OPTIONS=-v -compiler %CHICKEN% -I%TEST_DIR%/.. -L%TEST_DIR%/.. -include-path %TEST_DIR%/.. -libdir %TEST_DIR%/.. set compile=..\%PROGRAM_PREFIX%csc%PROGRAM_SUFFIX% %COMPILE_OPTIONS% -o a.out -types %TYPESDB% -ignore-repository set compile_r=..\%PROGRAM_PREFIX%csc%PROGRAM_SUFFIX% %COMPILE_OPTIONS% -o a.out set compile_s=..\%PROGRAM_PREFIX%csc%PROGRAM_SUFFIX% %COMPILE_OPTIONS% -s -types %TYPESDB% -ignore-repository set interpret=..\%PROGRAM_PREFIX%csi%PROGRAM_SUFFIX% -n -include-path %TEST_DIR%/.. del /f /q /s *.exe *.so *.o *.obj *.out *.import.* ..\foo.import.* %CHICKEN_INSTALL_REPOSITORY% rmdir /q /s %CHICKEN_INSTALL_REPOSITORY% mkdir %CHICKEN_INSTALL_REPOSITORY% copy %TYPESDB% %CHICKEN_INSTALL_REPOSITORY% echo ======================================== repository search path ... setlocal set "CHICKEN_REPOSITORY_PATH=" %interpret% -s repository-path-default.scm if errorlevel 1 exit /b 1 endlocal %compile_s% sample-module.scm -j sample-module if errorlevel 1 exit /b 1 copy sample-module.so %CHICKEN_INSTALL_REPOSITORY% copy sample-module.import.scm %CHICKEN_INSTALL_REPOSITORY% %interpret% -s repository-path.scm "%TEST_DIR%\.." "%TEST_DIR%\test-repository" if errorlevel 1 exit /b 1 echo ======================================== types.db consistency ... %interpret% -s types-db-consistency.scm %TYPESDB% if errorlevel 1 exit /b 1 echo ======================================== version tests ... %compile% version-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== compiler tests ... %compile% compiler-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo "======================================== csc tests ..." %interpret% -s csc-tests.scm if errorlevel 1 exit /b 1 echo ======================================== compiler inlining tests ... %compile% inlining-tests.scm -optimize-level 3 if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== compiler message tests ... %compile% -analyze-only messages-test.scm 2>messages.out if errorlevel 1 exit /b 1 fc /lb%FCBUFSIZE% /w messages.expected messages.out if errorlevel 1 exit /b 1 echo ======================================== optimizer tests ... %compile% clustering-tests.scm -clustering if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== profiler tests ... %compile% null.scm -profile -profile-name TEST.profile if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %CHICKEN_PROFILE% TEST.profile if errorlevel 1 exit /b 1 echo ======================================== scrutiny tests ... %compile% scrutinizer-tests.scm -analyze-only %compile% typematch-tests.scm -specialize -w if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile% test-scrutinizer-message-format.scm -A -specialize 2>scrutinizer-message-format.out rem this is expected to fail, so no errorlevel check %compile% scrutiny-tests.scm -A 2>scrutiny.out if errorlevel 1 exit /b 1 %compile% scrutiny-tests-2.scm -A 2>scrutiny-2.out if errorlevel 1 exit /b 1 %compile% specialization-tests.scm -A -specialize 2>specialization.out if errorlevel 1 exit /b 1 rem Replace foo123 -> fooXX so gensyms don't trigger failures %compile% redact-gensyms.scm -o redact-gensyms if errorlevel 1 exit /b 1 redact-gensyms "tmp,g,scm:,a,b" < scrutinizer-message-format.out > scrutinizer-message-format.redacted if errorlevel 1 exit /b 1 redact-gensyms < scrutiny-2.out > scrutiny-2.redacted if errorlevel 1 exit /b 1 redact-gensyms < scrutiny.out > scrutiny.redacted if errorlevel 1 exit /b 1 redact-gensyms < specialization.out > specialization.redacted if errorlevel 1 exit /b 1 fc /lb%FCBUFSIZE% /w scrutinizer-message-format.expected scrutinizer-message-format.redacted if errorlevel 1 exit /b 1 fc /lb%FCBUFSIZE% /w scrutiny.expected scrutiny.redacted if errorlevel 1 exit /b 1 fc /lb%FCBUFSIZE% /w scrutiny-2.expected scrutiny-2.redacted if errorlevel 1 exit /b 1 fc /lb%FCBUFSIZE% /w specialization.expected specialization.redacted if errorlevel 1 exit /b 1 %compile% scrutiny-tests-3.scm -specialize -block if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile% scrutiny-tests-strict.scm -strict-types -specialize if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== specialization tests ... del /f /q foo.types foo.import.* %compile% specialization-test-1.scm -emit-types-file foo.types -specialize -debug ox -emit-import-library foo if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile% specialization-test-2.scm -types foo.types -types specialization-test-2.types -specialize -debug ox if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 del /f /q foo.types foo.import.* echo ======================================== specialization benchmark ... %compile% fft.scm -O2 -local -d0 -disable-interrupts -b -o fft1.out if errorlevel 1 exit /b 1 %compile% fft.scm -O2 -local -specialize -debug x -d0 -disable-interrupts -b -o fft2.out -specialize if errorlevel 1 exit /b 1 echo normal: fft1.out 1000 7 if errorlevel 1 exit /b 1 echo specialized: fft2.out 1000 7 if errorlevel 1 exit /b 1 echo ======================================== unboxing benchmark ... %compile% fft.scm -O2 -local -d0 -disable-interrupts -b -o fft1.out if errorlevel 1 exit /b 1 %compile% fft.scm -O4 -debug x -d0 -disable-interrupts -b -o fft2.out if errorlevel 1 exit /b 1 echo normal: fft1.out 1000 7 if errorlevel 1 exit /b 1 echo unboxing: fft2.out 1000 7 if errorlevel 1 exit /b 1 echo ======================================== callback tests ... %compile% -extend c-id-valid.scm callback-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 a.out twice if errorlevel 1 ( echo double-return from callback failed as it should. ) else ( echo double-return from callback didn't fail exit /b 1 ) echo ======================================== runtime tests ... %interpret% -s apply-test.scm if errorlevel 1 exit /b 1 %compile% apply-test.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 a.out -:A10k if errorlevel 1 ( echo apply test with limited temp stack failed as it should. ) else ( echo apply test with limited temp stack didn't fail exit /b 1 ) %compile% test-gc-hooks.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== library tests ... %interpret% -s library-tests.scm if errorlevel 1 exit /b 1 %compile% -specialize library-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %interpret% -s records-and-setters-test.scm if errorlevel 1 exit /b 1 %compile% records-and-setters-test.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== reader tests ... %interpret% -s reader-tests.scm if errorlevel 1 exit /b 1 echo ======================================== dynamic-wind tests ... %interpret% -s dwindtst.scm >dwindtst.out if errorlevel 1 exit /b 1 fc /lb%FCBUFSIZE% /w dwindtst.expected dwindtst.out if errorlevel 1 exit /b 1 %compile% dwindtst.scm if errorlevel 1 exit /b 1 a.out >dwindtst.out if errorlevel 1 exit /b 1 fc /lb%FCBUFSIZE% /w dwindtst.expected dwindtst.out if errorlevel 1 exit /b 1 echo ======================================== lolevel tests ... %interpret% -s lolevel-tests.scm if errorlevel 1 exit /b 1 %compile% lolevel-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== arithmetic tests ... %interpret% -D check -s arithmetic-test.scm if errorlevel 1 exit /b 1 echo ======================================== pretty-printer tests ... %interpret% -s pp-test.scm if errorlevel 1 exit /b 1 echo ======================================== evaluation environment tests ... %interpret% -s environment-tests.scm if errorlevel 1 exit /b 1 echo ======================================== syntax tests ... %interpret% -s syntax-tests.scm if errorlevel 1 exit /b 1 echo ======================================== syntax tests (compiled) ... %compile% syntax-tests.scm a.out if errorlevel 1 exit /b 1 echo ======================================== syntax tests (v2, compiled) ... %compile% syntax-tests-2.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== meta-syntax tests ... %interpret% -bnq meta-syntax-test.scm -e "(import foo)" -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))" -e "(import test-import-syntax-for-syntax)" -e "(assert (equal? '(1) (test)))" -e "(import test-begin-for-syntax)" -e "(assert (equal? '(1) (test)))" if errorlevel 1 exit /b 1 %compile_s% meta-syntax-test.scm -j foo if errorlevel 1 exit /b 1 %compile_s% foo.import.scm if errorlevel 1 exit /b 1 %interpret% -bnq -e "(require-library meta-syntax-test)" -e "(import foo)" -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))" -e "(import test-import-syntax-for-syntax)" -e "(assert (equal? '(1) (test)))" -e "(import test-begin-for-syntax)" -e "(assert (equal? '(1) (test)))" if errorlevel 1 exit /b 1 echo ======================================== reexport tests ... %interpret% -bnq reexport-tests.scm if errorlevel 1 exit /b 1 %compile% reexport-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 del /f /q reexport-m*.import* %compile_s% reexport-m1.scm -J if errorlevel 1 exit /b 1 %compile_s% reexport-m1.import.scm if errorlevel 1 exit /b 1 %interpret% -s reexport-m2.scm if errorlevel 1 exit /b 1 %compile% reexport-m2.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile_s% reexport-m3.scm -J if errorlevel 1 exit /b 1 %compile_s% reexport-m4.scm -J if errorlevel 1 exit /b 1 %compile_s% reexport-m5.scm -J if errorlevel 1 exit /b 1 %compile_s% reexport-m6.scm -J if errorlevel 1 exit /b 1 %compile% reexport-tests-2.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== functor tests ... %interpret% -bnq simple-functors-test.scm if errorlevel 1 exit /b 1 %compile% simple-functors-test.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %interpret% -bnq functor-tests.scm if errorlevel 1 exit /b 1 %compile% functor-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile% -s square-functor.scm -J if errorlevel 1 exit /b 1 %compile% -s square-functor.import.scm if errorlevel 1 exit /b 1 %interpret% -bnq use-square-functor.scm if errorlevel 1 exit /b 1 %compile% use-square-functor.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile% -s use-square-functor.scm -J if errorlevel 1 exit /b 1 %interpret% -nqe "(require-library use-square-functor)" -e "(import sf1)" -e "(import sf2)" if errorlevel 1 exit /b 1 del /f /q sf1.import.* sf2.import.* lst.import.* mod.import.* echo ======================================== compiler syntax tests ... %compile% compiler-syntax-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== import tests ... %interpret% -bnq import-tests.scm if errorlevel 1 exit /b 1 echo ======================================== import library tests ... del /f /q ..\foo.import.* foo.import.* %compile% import-library-test1.scm -emit-import-library foo if errorlevel 1 exit /b 1 %interpret% -s import-library-test2.scm if errorlevel 1 exit /b 1 %compile_s% foo.import.scm -o foo.import.so if errorlevel 1 exit /b 1 %interpret% -s import-library-test2.scm if errorlevel 1 exit /b 1 %compile% import-library-test2.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 del /f /q foo.import.* echo ======================================== optionals test ... %interpret% -s test-optional.scm if errorlevel 1 exit /b 1 %compile% test-optional.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== syntax tests (matchable) ... %interpret% matchable.scm -s match-test.scm if errorlevel 1 exit /b 1 echo ======================================== syntax tests (loopy-loop) ... %interpret% -s loopy-test.scm if errorlevel 1 exit /b 1 echo ======================================== r4rstest ... echo (expect mult-float-print-test to fail) %interpret% -e "(set! ##sys#procedure->string (constantly \"#<procedure>\"))" -i -s r4rstest.scm >r4rstest.out if errorlevel 1 exit /b 1 type r4rstest.out echo ======================================== syntax tests (r5rs_pitfalls) ... echo (expect two failures) %interpret% -i -s r5rs_pitfalls.scm if errorlevel 1 exit /b 1 echo "======================================== r7rs tests ..." echo (expect two failures) %interpret% -i -s r7rs-tests.scm if errorlevel 1 exit /b 1 echo ======================================== module tests ... %interpret% -include-path %TEST_DIR%/.. -s module-tests.scm if errorlevel 1 exit /b 1 %interpret% -include-path %TEST_DIR%/.. -s module-tests-2.scm if errorlevel 1 exit /b 1 echo ======================================== module tests (command line options) ... set module="test" %compile% test.scm -w -A -j %module% -module %module% if errorlevel 1 exit /b 1 %interpret% -e "(import-syntax %module%)" if errorlevel 1 exit /b 1 del /f /q %module%.import.scm echo ======================================== module tests (compiled) ... %compile% module-tests-compiled.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile% module-static-eval-compiled.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile% -static module-static-eval-compiled.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== module tests (chained) ... del /f /q m*.import.* test-chained-modules.so %interpret% -bnq test-chained-modules.scm if errorlevel 1 exit /b 1 %compile_s% test-chained-modules.scm -j m3 if errorlevel 1 exit /b 1 %compile_s% m3.import.scm if errorlevel 1 exit /b 1 %interpret% -bn test-chained-modules.so if errorlevel 1 exit /b 1 %interpret% -bn test-chained-modules.so -e "(import m3) (s3)" if errorlevel 1 exit /b 1 echo ======================================== module tests (ec) ... del /f /q ec.so ec.import.* %interpret% -bqn ec.scm ec-tests.scm if errorlevel 1 exit /b 1 %compile_s% ec.scm -emit-import-library ec -o ec.so if errorlevel 1 exit /b 1 %compile_s% ec.import.scm -o ec.import.so if errorlevel 1 exit /b 1 %interpret% -bnq ec.so ec-tests.scm rem %compile% ec-tests.scm rem a.out # takes ages to compile echo ======================================== module tests (static link) ... %compile_r% -static -unit sample-module -J -c sample-module.scm -o sample-module.obj if errorlevel 1 exit /b 1 move sample-module.link %CHICKEN_INSTALL_REPOSITORY% move sample-module.import.scm %CHICKEN_INSTALL_REPOSITORY% move sample-module.obj %CHICKEN_INSTALL_REPOSITORY% %compile_r% -static module-static-link.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== port tests ... %interpret% -s port-tests.scm if errorlevel 1 exit /b 1 echo ======================================== fixnum tests ... %compile% fixnum-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile% -unsafe fixnum-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo"======================================== random number tests ... %interpret% -s random-tests.scm if errorlevel 1 exit /b 1 echo ======================================== string-^>number tests ... %interpret% -s numbers-string-conversion-tests.scm if errorlevel 1 exit /b 1 %compile% -specialize numbers-string-conversion-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== basic numeric ops tests ... %interpret% -s numbers-test.scm if errorlevel 1 exit /b 1 %compile% -specialize numbers-test.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== Alex Shinns numeric ops tests ... %interpret% -s numbers-test-ashinn.scm if errorlevel 1 exit /b 1 %compile% -specialize numbers-test-ashinn.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== Gauche numeric ops tests ... %interpret% -s numbers-test-gauche.scm if errorlevel 1 exit /b 1 %compile% -specialize numbers-test-gauche.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== srfi-4 tests ... %interpret% -s srfi-4-tests.scm if errorlevel 1 exit /b 1 echo ======================================== condition tests ... %interpret% -s condition-tests.scm if errorlevel 1 exit /b 1 echo ======================================== data-structures tests ... %interpret% -s data-structures-tests.scm if errorlevel 1 exit /b 1 echo ======================================== path tests ... %interpret% -bnq path-tests.scm if errorlevel 1 exit /b 1 echo ======================================== srfi-45 tests ... %interpret% -s srfi-45-tests.scm if errorlevel 1 exit /b 1 echo ======================================== posix tests ... %compile% posix-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== file access tests ... %interpret% -s file-access-tests.scm / if errorlevel 1 exit /b 1 %interpret% -s file-access-tests.scm \ if errorlevel 1 exit /b 1 echo ======================================== find-files tests ... %interpret% -bnq test-find-files.scm if errorlevel 1 exit /b 1 echo "======================================== record-renaming tests ..." %interpret% -bnq record-rename-test.scm if errorlevel 1 exit /b 1 echo ======================================== regular expression tests ... %interpret% -bnq test-irregex.scm if errorlevel 1 exit /b 1 %interpret% -bnq test-glob.scm if errorlevel 1 exit /b 1 echo ======================================== compiler/nursery stress test ... for %%s in (100000 120000 200000 250000 300000 350000 400000 450000 500000) do ( echo %%s %CHICKEN% -ignore-repository ..\port.scm -:s%%s -output-file tmp.c -include-path %TEST_DIR%/.. if errorlevel 1 exit /b 1 ) echo ======================================== heap literal stress test ... %compile% heap-literal-stress-test.scm if errorlevel 1 exit /b 1 for %%s in (100000 120000 200000 250000 300000 350000 400000 450000 500000) do ( echo %%s a.out -:hi%%s if errorlevel 1 exit /b 1 ) echo ======================================== symbol-GC tests ... %compile% symbolgc-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== finalizer tests ... %interpret% -s test-finalizers.scm if errorlevel 1 exit /b 1 %compile% test-finalizers.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== finalizer tests (2) ... %compile% finalizer-error-test.scm if errorlevel 1 exit /b 1 a.out -:hg101 if errorlevel 1 exit /b 1 %compile% test-finalizers-2.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== locative stress test ... %compile% locative-stress-test.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== syntax-rules stress test ... %interpret% -bnq syntax-rule-stress-test.scm echo "======================================== include test ..." mkdir a\b echo > a\b\ok.scm echo '(include "a/b/ok.scm")' > a\b\include.scm %compile% -analyze-only a\b\include.scm if errorlevel 1 exit /b 1 echo '(include "b/ok.scm")' > a\b\include.scm %compile% -analyze-only a\b\include.scm -include-path a if errorlevel 1 exit /b 1 echo '(include-relative "ok.scm")' > a\b\include.scm %compile% -analyze-only a\b\include.scm if errorlevel 1 exit /b 1 echo '(include-relative "b/ok.scm")' > a\include.scm %compile% -analyze-only a\include.scm if errorlevel 1 exit /b 1 echo '(include-relative "b/ok.scm")' > a\b\include.scm %compile% -analyze-only a\b\include.scm -include-path a if errorlevel 1 exit /b 1 del /f /s /q a echo "======================================== executable tests ..." %compile% executable-tests.scm if errorlevel 1 exit /b 1 a.out %TEST_DIR%\a.out if errorlevel 1 exit /b 1 echo ======================================== embedding (1) ... %compile% embedded1.c if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== embedding (2) ... %compile% -e embedded2.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== embedding (3) ... %compile% -e embedded3.c embedded4.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== linking tests ... %compile_r% -unit reverser reverser\tags\1.0\reverser.scm -J -c -o reverser.obj %compile_r% -link reverser linking-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile_r% -link reverser linking-tests.scm -static if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 move reverser.obj %CHICKEN_INSTALL_REPOSITORY% move reverser.import.scm %CHICKEN_INSTALL_REPOSITORY% %compile_r% -link reverser linking-tests.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 %compile_r% -link reverser linking-tests.scm -static if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 echo ======================================== private repository test ... del /f /s /q tmp mkdir tmp %compile% private-repository-test.scm -private-repository -o tmp\xxx if errorlevel 1 exit /b 1 tmp\xxx %CD%\tmp set PATH=%CD%\tmp;%PATH% xxx %CD%\tmp rem this may crash, if the PATH contains a non-matching libchicken.dll on Windows: set PATH=%PATH%;%CD%\tmp xxx %CD%\tmp echo ======================================== multiple return values tests ... %interpret% -s multiple-values.scm if errorlevel 1 exit /b 1 %compile% multiple-values.scm if errorlevel 1 exit /b 1 a.out if errorlevel 1 exit /b 1 rem echo ======================================== reinstall tests rem currently disabled for windows echo ======================================== done. ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/module-tests-2.scm��������������������������������������������������������������0000644�0001750�0001750�00000004305�13370655400�017366� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; module-tests-2.scm (module oo (output-of) (import scheme chicken.port) (define-syntax output-of (syntax-rules () ((_ exp) (with-output-to-string (lambda () exp))))) ) (module mscheme (lambda) (import (rename scheme (lambda s:lambda)) (chicken module)) (reexport (except scheme lambda)) (define-syntax lambda (syntax-rules () ((_ llist . body) (let ((results #f)) (s:lambda llist (if results (apply values results) (call-with-values (s:lambda () . body) (s:lambda rs (set! results rs) (apply values rs))))))))) ) (module m (f1 f2) (import mscheme) (define (f1) (display 'f1) (newline) 'f1) (define f2 (lambda () (display 'f2) (newline) 'f2)) ) (module mtest () (import scheme m (chicken base) oo) (assert (string=? "f1\n" (output-of (f1)))) (assert (string=? "f1\n" (output-of (f1)))) (assert (string=? "f2\n" (output-of (f2)))) (assert (string=? "" (output-of (f2))))) ;;; (module m1 (lambda f1 f2) (import (rename scheme (lambda s:lambda))) (define-syntax lambda (syntax-rules () ((_ llist . body) (s:lambda llist (display 'llist) (newline) . body)))) (define (f1) ; should use standard lambda (display 'f1) (newline)) (define f2 (lambda (x) ; should be our lambda (display 'f2) (newline))) ) (module mtest2 (f3 f4) (import (except scheme lambda) m1 (chicken base) oo) (define (f3) ; standard lambda (display 'f3) (newline)) (define f4 ; our lambda (lambda (x) (display 'f4) (newline))) (assert (string=? "f1\n" (output-of (f1)))) (assert (string=? "(x)\nf2\n" (output-of (f2 'yes)))) (assert (string=? "f3\n" (output-of (f3)))) (assert (string=? "(x)\nf4\n" (output-of (f4 'yes))))) (module m2 () (import m1) ((lambda () (f1)))) ; should use new lambda (but should be folded by compiler) ;;; local define should work even with redefined define (module m3 () (import (rename scheme (define s:define))) (import (only (chicken base) assert)) (define-syntax define (syntax-rules () ((_) (display 'oink)))) (define) (let () (define a 1) (assert (= a 1))) (define) (newline)) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/numbers-test-ashinn.scm���������������������������������������������������������0000644�0001750�0001750�00000013226�13370655400�020512� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(include "test.scm") (import (chicken bitwise)) (current-test-epsilon 0) ;; We want exact comparisons by default ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; run tests (test-begin "numbers (Alex Shinn's tests)") (test-group "basic cases, fixnum base" (test-equal (expt 0 0) 1) (test-equal (expt 2 0) 1) (test-equal (expt 2 1) 2) (test-equal (expt 2 2) 4) (test-equal (expt 3 2) 9) (test-equal (expt 3 2.0) 9.0) (parameterize ((current-test-epsilon 0.001)) (test-equal (expt 3 2.1) 10.0451) (test-equal (expt 3 0.1) 1.1161) (test-equal (expt 3 -1) (/ 1 3)) (test-equal (expt 3 -2) (/ 1 9)) (test-equal (expt 3 -2.1) 0.09955))) (test-group "basic cases, flonum base" (test-equal (expt 0.0 0) 1.0) (test-equal (expt 3.14 0) 1.0) (test-equal (expt 3.14 1) 3.14) (test-equal (expt 3.14 2) 9.8596) (test-equal (expt 3.14 2.0) 9.8596) (parameterize ((current-test-epsilon 0.001)) (test-equal (expt 3.14 2.1) 11.0548) (test-equal (expt 3.14 0.1) 1.1212) (test-equal (expt 3.14 -1) 0.31847) (test-equal (expt 3.14 -2) 0.10142) (test-equal (expt 3.14 -2.1) 0.090458))) (test-group "overflows into bignums" (test-equal (expt 2 30) 1073741824) (test-equal (expt 2 31) 2147483648) (test-equal (expt 2 32) 4294967296) (test-equal (expt 2 62) 4611686018427387904) (test-equal (expt 2 63) 9223372036854775808) (test-equal (expt 2 64) 18446744073709551616)) (define (one-followed-by-n-zeros n) (string->number (string-append "1" (make-string n #\0)))) (test-group "bug reported on the chicken list" (test-equal (expt 10 100) (one-followed-by-n-zeros 100))) (test-group "bignum base" (test-equal (expt (one-followed-by-n-zeros 100) 0) 1) (parameterize ((current-test-epsilon 0.001)) (test-equal (expt (one-followed-by-n-zeros 100) 1) (one-followed-by-n-zeros 100)) (test-equal (expt (one-followed-by-n-zeros 100) 2) (one-followed-by-n-zeros 200)) (test-equal (expt (one-followed-by-n-zeros 100) 0.1) 10000000000.0))) (define (real-approx= expected result) (cond ((zero? result) (< (abs expected) (current-test-epsilon))) ((zero? expected) (< (abs result) (current-test-epsilon))) (else (< (min (abs (- 1 (/ expected result))) (abs (- 1 (/ result expected)))) (current-test-epsilon))))) ;; test-equal? doesn't work on compnums (define (test-equal/comp? a b) (and (real-approx= (real-part a) (real-part b)) (real-approx= (imag-part a) (imag-part b)))) (test-group "e^(pi*i) = -1" (parameterize ((current-test-epsilon 0.001) (current-test-comparator test-equal/comp?)) (test-equal (expt (exp 1) (* (acos -1) (sqrt -1))) -1.0))) (test-group "rational rounding" (test-equal (round (/ 9 10)) 1) (test-equal (round (/ 6 10)) 1) (test-equal (round (/ 5 10)) 0) (test-equal (round (/ 1 10)) 0) (test-equal (round (/ 0 10)) 0) (test-equal (round (/ -1 10)) 0) (test-equal (round (/ -5 10)) 0) (test-equal (round (/ -6 10)) -1) (test-equal (round (/ -9 10)) -1) (test-equal (round (/ (expt 10 10000) (+ (expt 10 10000) 1))) 1) (test-equal (round (/ (+ 1 (expt 10 10000)) (expt 10 100))) (expt 10 9900))) (test-group "srfi-33" (test-equal (bitwise-and #b0 #b1) 0) (test-equal (bitwise-and #b1 #b1) 1) (test-equal (bitwise-and #b1 #b10) 0) (test-equal (bitwise-and #b11 #b10) #b10) (test-equal (bitwise-and #b101 #b111) #b101) (test-equal (bitwise-and -1 #b111) #b111) (test-equal (bitwise-and -2 #b111) #b110) (test-equal (bitwise-and -4290775858 1694076839) 3769478) (test-equal (bitwise-and -193073517 1689392892) 1680869008) ;; (test-equal (bitwise-ior 1694076839 -4290775858) -2600468497) ;; (test-equal (bitwise-ior -193073517 1689392892) -184549633) ;; (test-equal (bitwise-xor 1694076839 -4290775858) -2604237975) ;; (test-equal (bitwise-xor -193073517 1689392892) -1865418641) (test-equal (arithmetic-shift 1 0) 1) (test-equal (arithmetic-shift 1 1) 2) (test-equal (arithmetic-shift 1 2) 4) (test-equal (arithmetic-shift 1 3) 8) (test-equal (arithmetic-shift 1 4) 16) (test-equal (arithmetic-shift 1 31) (expt 2 31)) (test-equal (arithmetic-shift 1 32) (expt 2 32)) (test-equal (arithmetic-shift 1 33) (expt 2 33)) (test-equal (arithmetic-shift 1 63) (expt 2 63)) (test-equal (arithmetic-shift 1 64) (expt 2 64)) (test-equal (arithmetic-shift 1 65) (expt 2 65)) (test-equal (arithmetic-shift 1 127) (expt 2 127)) (test-equal (arithmetic-shift 1 128) (expt 2 128)) (test-equal (arithmetic-shift 1 129) (expt 2 129)) (test-equal (arithmetic-shift 11829675785914119 8) 3028397001194014464) (test-equal (arithmetic-shift -1 0) -1) (test-equal (arithmetic-shift -1 1) -2) (test-equal (arithmetic-shift -1 2) -4) (test-equal (arithmetic-shift -1 3) -8) (test-equal (arithmetic-shift -1 4) -16) (test-equal (arithmetic-shift -1 31) (- (expt 2 31))) (test-equal (arithmetic-shift -1 32) (- (expt 2 32))) (test-equal (arithmetic-shift -1 33) (- (expt 2 33))) (test-equal (arithmetic-shift -1 63) (- (expt 2 63))) (test-equal (arithmetic-shift -1 64) (- (expt 2 64))) (test-equal (arithmetic-shift -1 65) (- (expt 2 65))) (test-equal (arithmetic-shift -1 127) (- (expt 2 127))) (test-equal (arithmetic-shift -1 128) (- (expt 2 128))) (test-equal (arithmetic-shift -1 129) (- (expt 2 129))) (test-equal (arithmetic-shift 1 -63) 0) (test-equal (arithmetic-shift 1 -64) 0) (test-equal (arithmetic-shift 1 -65) 0) (test-equal (arithmetic-shift #x100000000000000010000000000000000 64) #x1000000000000000100000000000000000000000000000000) (test-assert (not (bit->boolean 1 64))) (test-assert (bit->boolean #x10000000000000000 64))) (test-end) (test-exit) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/locative-stress-test.scm��������������������������������������������������������0000644�0001750�0001750�00000003142�13370655400�020704� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; locative-stress-test.scm - by Kon Lovett (declare (usual-integrations)) (import (chicken fixnum) (only (chicken process-context) command-line-arguments)) ;(set-gc-report! #t) #> long *ptrs[10]; /*#define check(n) ptrs[n] = o##n; if(!C_in_stackp((C_word)o##n) && !C_in_fromspacep((C_word)o##n)) C_dbg_hook(0);*/ #define check(n) long fill_10(long i, long *o0, long *o1, long *o2, long *o3, long *o4, long *o5, long *o6, long *o7, long *o8, long *o9) { check(0) check(1) check(2) check(3) check(4) check(5) check(6) check(7) check(8) check(9) *o0=*o1=*o2=*o3=*o4=*o5=*o6=*o7=*o8=*o9=i; return i; } <# (define fill-10! (foreign-lambda long "fill_10" long (c-pointer long) (c-pointer long) (c-pointer long) (c-pointer long) (c-pointer long) (c-pointer long) (c-pointer long) (c-pointer long) (c-pointer long) (c-pointer long))) (define (make-list n x) (list-tabulate n (lambda _ x))) (define (list-tabulate n proc) (let loop ((i 0)) (if (fx>= i n) '() (cons (proc i) (loop (fx+ i 1)))))) (let* ((el 1) (expected (make-list 10 el))) (let loop ((i (string->number (optional (command-line-arguments) "100000")))) (unless (eq? i 0) (let-location ((o0 long) (o1 long) (o2 long) (o3 long) (o4 long) (o5 long) (o6 long) (o7 long) (o8 long) (o9 long)) (fill-10! el #$o0 #$o1 #$o2 #$o3 #$o4 #$o5 #$o6 #$o7 #$o8 #$o9) (let ((result (list o0 o1 o2 o3 o4 o5 o6 o7 o8 o9))) (if (not (equal? result expected)) (error "strange values: " result) (loop (fx- i 1)))))))) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tests/fixnum-tests.scm����������������������������������������������������������������0000644�0001750�0001750�00000001734�13370655400�017253� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(import (chicken platform) (chicken fixnum)) (define (fxo+ x y) (##core#inline "C_i_o_fixnum_plus" x y)) (define (fxo- x y) (##core#inline "C_i_o_fixnum_difference" x y)) (define-syntax assert ;; compiling with -unsafe disables the original assert (ir-macro-transformer (lambda (e inj cmp) (apply (lambda (f) `(if (not ,f) (error "assert" ',f))) (cdr e))))) (assert (= 4 (fxo+ 2 2))) (assert (= -26 (fxo+ 74 -100))) (assert (= 1073741823 (fxo+ #x3ffffffe 1))) (assert (if (feature? #:64bit) (not (fxo+ #x3fffffffffffffff 1)) (not (fxo+ #x3fffffff 1)))) (assert (= 4 (fxo- 6 2))) (assert (= -4 (fxo- 1000 1004))) (assert (= 2004 (fxo- 1000 -1004))) (assert (if (feature? #:64bit) (= -4611686018427387904 (fxo- (- #x3fffffffffffffff) 1)) (= -1073741824 (fxo- (- #x3fffffff) 1)))) (assert (if (feature? #:64bit) (not (fxo- (- #x3fffffffffffffff) 2)) (not (fxo- (- #x3fffffff) 2)))) (assert (= (modulo -3 4) (fxmod -3 4))) ������������������������������������chicken-5.1.0/chicken-profile.c���������������������������������������������������������������������0000644�0001750�0001750�00000462221�13502227770�016151� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken-profile.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken-profile.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -output-file chicken-profile.c uses: library eval expand file posix internal data-structures */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_file_toplevel) C_externimport void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_posix_toplevel) C_externimport void C_ccall C_posix_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[93]; static double C_possibly_force_alignment; C_noret_decl(f_1250) static void C_ccall f_1250(C_word c,C_word *av) C_noret; C_noret_decl(f_1253) static void C_ccall f_1253(C_word c,C_word *av) C_noret; C_noret_decl(f_1256) static void C_ccall f_1256(C_word c,C_word *av) C_noret; C_noret_decl(f_1259) static void C_ccall f_1259(C_word c,C_word *av) C_noret; C_noret_decl(f_1262) static void C_ccall f_1262(C_word c,C_word *av) C_noret; C_noret_decl(f_1265) static void C_ccall f_1265(C_word c,C_word *av) C_noret; C_noret_decl(f_1268) static void C_ccall f_1268(C_word c,C_word *av) C_noret; C_noret_decl(f_1271) static void C_ccall f_1271(C_word c,C_word *av) C_noret; C_noret_decl(f_1381) static void C_fcall f_1381(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1399) static void C_ccall f_1399(C_word c,C_word *av) C_noret; C_noret_decl(f_1891) static void C_fcall f_1891(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1899) static void C_fcall f_1899(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1906) static void C_ccall f_1906(C_word c,C_word *av) C_noret; C_noret_decl(f_1920) static void C_ccall f_1920(C_word c,C_word *av) C_noret; C_noret_decl(f_2558) static void C_fcall f_2558(C_word t0) C_noret; C_noret_decl(f_2562) static void C_ccall f_2562(C_word c,C_word *av) C_noret; C_noret_decl(f_2569) static void C_ccall f_2569(C_word c,C_word *av) C_noret; C_noret_decl(f_2605) static void C_fcall f_2605(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2615) static void C_fcall f_2615(C_word t0,C_word t1) C_noret; C_noret_decl(f_2622) static void C_ccall f_2622(C_word c,C_word *av) C_noret; C_noret_decl(f_2625) static void C_ccall f_2625(C_word c,C_word *av) C_noret; C_noret_decl(f_2638) static void C_ccall f_2638(C_word c,C_word *av) C_noret; C_noret_decl(f_2640) static void C_ccall f_2640(C_word c,C_word *av) C_noret; C_noret_decl(f_2645) static void C_ccall f_2645(C_word c,C_word *av) C_noret; C_noret_decl(f_2649) static void C_ccall f_2649(C_word c,C_word *av) C_noret; C_noret_decl(f_2655) static void C_fcall f_2655(C_word t0,C_word t1) C_noret; C_noret_decl(f_2674) static void C_fcall f_2674(C_word t0,C_word t1) C_noret; C_noret_decl(f_2678) static void C_ccall f_2678(C_word c,C_word *av) C_noret; C_noret_decl(f_2694) static void C_ccall f_2694(C_word c,C_word *av) C_noret; C_noret_decl(f_2697) static void C_ccall f_2697(C_word c,C_word *av) C_noret; C_noret_decl(f_2715) static void C_ccall f_2715(C_word c,C_word *av) C_noret; C_noret_decl(f_2722) static void C_ccall f_2722(C_word c,C_word *av) C_noret; C_noret_decl(f_2730) static void C_ccall f_2730(C_word c,C_word *av) C_noret; C_noret_decl(f_2737) static void C_ccall f_2737(C_word c,C_word *av) C_noret; C_noret_decl(f_2752) static void C_ccall f_2752(C_word c,C_word *av) C_noret; C_noret_decl(f_2788) static void C_ccall f_2788(C_word c,C_word *av) C_noret; C_noret_decl(f_2794) static void C_fcall f_2794(C_word t0,C_word t1) C_noret; C_noret_decl(f_2819) static void C_ccall f_2819(C_word c,C_word *av) C_noret; C_noret_decl(f_2853) static void C_ccall f_2853(C_word c,C_word *av) C_noret; C_noret_decl(f_2882) static void C_ccall f_2882(C_word c,C_word *av) C_noret; C_noret_decl(f_2910) static void C_ccall f_2910(C_word c,C_word *av) C_noret; C_noret_decl(f_2918) static void C_ccall f_2918(C_word c,C_word *av) C_noret; C_noret_decl(f_2922) static void C_ccall f_2922(C_word c,C_word *av) C_noret; C_noret_decl(f_2936) static void C_fcall f_2936(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2948) static void C_ccall f_2948(C_word c,C_word *av) C_noret; C_noret_decl(f_2970) static void C_ccall f_2970(C_word c,C_word *av) C_noret; C_noret_decl(f_2974) static void C_ccall f_2974(C_word c,C_word *av) C_noret; C_noret_decl(f_2978) static void C_ccall f_2978(C_word c,C_word *av) C_noret; C_noret_decl(f_2994) static void C_ccall f_2994(C_word c,C_word *av) C_noret; C_noret_decl(f_2998) static void C_ccall f_2998(C_word c,C_word *av) C_noret; C_noret_decl(f_3001) static void C_ccall f_3001(C_word c,C_word *av) C_noret; C_noret_decl(f_3007) static void C_ccall f_3007(C_word c,C_word *av) C_noret; C_noret_decl(f_3010) static void C_ccall f_3010(C_word c,C_word *av) C_noret; C_noret_decl(f_3015) static void C_ccall f_3015(C_word c,C_word *av) C_noret; C_noret_decl(f_3024) static void C_ccall f_3024(C_word c,C_word *av) C_noret; C_noret_decl(f_3026) static void C_fcall f_3026(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3036) static void C_ccall f_3036(C_word c,C_word *av) C_noret; C_noret_decl(f_3043) static void C_ccall f_3043(C_word c,C_word *av) C_noret; C_noret_decl(f_3065) static void C_ccall f_3065(C_word c,C_word *av) C_noret; C_noret_decl(f_3080) static void C_ccall f_3080(C_word c,C_word *av) C_noret; C_noret_decl(f_3082) static void C_fcall f_3082(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3092) static void C_fcall f_3092(C_word t0,C_word t1) C_noret; C_noret_decl(f_3143) static void C_ccall f_3143(C_word c,C_word *av) C_noret; C_noret_decl(f_3162) static void C_ccall f_3162(C_word c,C_word *av) C_noret; C_noret_decl(f_3209) static void C_fcall f_3209(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3213) static void C_ccall f_3213(C_word c,C_word *av) C_noret; C_noret_decl(f_3220) static void C_ccall f_3220(C_word c,C_word *av) C_noret; C_noret_decl(f_3228) static void C_ccall f_3228(C_word c,C_word *av) C_noret; C_noret_decl(f_3232) static void C_ccall f_3232(C_word c,C_word *av) C_noret; C_noret_decl(f_3240) static void C_ccall f_3240(C_word c,C_word *av) C_noret; C_noret_decl(f_3244) static void C_ccall f_3244(C_word c,C_word *av) C_noret; C_noret_decl(f_3256) static void C_ccall f_3256(C_word c,C_word *av) C_noret; C_noret_decl(f_3264) static void C_ccall f_3264(C_word c,C_word *av) C_noret; C_noret_decl(f_3270) static void C_ccall f_3270(C_word c,C_word *av) C_noret; C_noret_decl(f_3273) static void C_ccall f_3273(C_word c,C_word *av) C_noret; C_noret_decl(f_3283) static void C_ccall f_3283(C_word c,C_word *av) C_noret; C_noret_decl(f_3286) static void C_ccall f_3286(C_word c,C_word *av) C_noret; C_noret_decl(f_3289) static void C_fcall f_3289(C_word t0,C_word t1) C_noret; C_noret_decl(f_3314) static void C_ccall f_3314(C_word c,C_word *av) C_noret; C_noret_decl(f_3318) static void C_ccall f_3318(C_word c,C_word *av) C_noret; C_noret_decl(f_3322) static void C_ccall f_3322(C_word c,C_word *av) C_noret; C_noret_decl(f_3326) static void C_ccall f_3326(C_word c,C_word *av) C_noret; C_noret_decl(f_3330) static void C_ccall f_3330(C_word c,C_word *av) C_noret; C_noret_decl(f_3334) static void C_ccall f_3334(C_word c,C_word *av) C_noret; C_noret_decl(f_3340) static void C_ccall f_3340(C_word c,C_word *av) C_noret; C_noret_decl(f_3356) static void C_ccall f_3356(C_word c,C_word *av) C_noret; C_noret_decl(f_3362) static void C_ccall f_3362(C_word c,C_word *av) C_noret; C_noret_decl(f_3371) static void C_ccall f_3371(C_word c,C_word *av) C_noret; C_noret_decl(f_3380) static void C_ccall f_3380(C_word c,C_word *av) C_noret; C_noret_decl(f_3382) static void C_ccall f_3382(C_word c,C_word *av) C_noret; C_noret_decl(f_3390) static void C_ccall f_3390(C_word c,C_word *av) C_noret; C_noret_decl(f_3403) static void C_ccall f_3403(C_word c,C_word *av) C_noret; C_noret_decl(f_3405) static void C_fcall f_3405(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3412) static void C_fcall f_3412(C_word t0,C_word t1) C_noret; C_noret_decl(f_3438) static void C_ccall f_3438(C_word c,C_word *av) C_noret; C_noret_decl(f_3468) static void C_ccall f_3468(C_word c,C_word *av) C_noret; C_noret_decl(f_3471) static void C_ccall f_3471(C_word c,C_word *av) C_noret; C_noret_decl(f_3479) static void C_fcall f_3479(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3489) static void C_ccall f_3489(C_word c,C_word *av) C_noret; C_noret_decl(f_3504) static void C_ccall f_3504(C_word c,C_word *av) C_noret; C_noret_decl(f_3515) static void C_ccall f_3515(C_word c,C_word *av) C_noret; C_noret_decl(f_3525) static void C_fcall f_3525(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3549) static void C_fcall f_3549(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3578) static void C_ccall f_3578(C_word c,C_word *av) C_noret; C_noret_decl(f_3589) static void C_fcall f_3589(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3618) static void C_ccall f_3618(C_word c,C_word *av) C_noret; C_noret_decl(f_3637) static void C_fcall f_3637(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3672) static void C_ccall f_3672(C_word c,C_word *av) C_noret; C_noret_decl(f_3680) static void C_fcall f_3680(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3705) static void C_ccall f_3705(C_word c,C_word *av) C_noret; C_noret_decl(f_3717) static void C_ccall f_3717(C_word c,C_word *av) C_noret; C_noret_decl(f_3728) static void C_ccall f_3728(C_word c,C_word *av) C_noret; C_noret_decl(f_3732) static void C_ccall f_3732(C_word c,C_word *av) C_noret; C_noret_decl(f_3741) static void C_fcall f_3741(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3759) static void C_ccall f_3759(C_word c,C_word *av) C_noret; C_noret_decl(f_3766) static void C_fcall f_3766(C_word t0,C_word t1) C_noret; C_noret_decl(f_3779) static void C_ccall f_3779(C_word c,C_word *av) C_noret; C_noret_decl(f_3795) static void C_ccall f_3795(C_word c,C_word *av) C_noret; C_noret_decl(f_3797) static void C_fcall f_3797(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3822) static void C_ccall f_3822(C_word c,C_word *av) C_noret; C_noret_decl(f_3831) static void C_fcall f_3831(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3852) static void C_ccall f_3852(C_word c,C_word *av) C_noret; C_noret_decl(f_3860) static void C_ccall f_3860(C_word c,C_word *av) C_noret; C_noret_decl(f_3869) static void C_ccall f_3869(C_word c,C_word *av) C_noret; C_noret_decl(f_3880) static void C_ccall f_3880(C_word c,C_word *av) C_noret; C_noret_decl(f_3886) static void C_ccall f_3886(C_word c,C_word *av) C_noret; C_noret_decl(f_3890) static void C_ccall f_3890(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(va4314) static void C_fcall va4314(C_word t0,C_word t1) C_noret; C_noret_decl(trf_1381) static void C_ccall trf_1381(C_word c,C_word *av) C_noret; static void C_ccall trf_1381(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1381(t0,t1,t2);} C_noret_decl(trf_1891) static void C_ccall trf_1891(C_word c,C_word *av) C_noret; static void C_ccall trf_1891(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1891(t0,t1,t2);} C_noret_decl(trf_1899) static void C_ccall trf_1899(C_word c,C_word *av) C_noret; static void C_ccall trf_1899(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1899(t0,t1,t2,t3);} C_noret_decl(trf_2558) static void C_ccall trf_2558(C_word c,C_word *av) C_noret; static void C_ccall trf_2558(C_word c,C_word *av){ C_word t0=av[0]; f_2558(t0);} C_noret_decl(trf_2605) static void C_ccall trf_2605(C_word c,C_word *av) C_noret; static void C_ccall trf_2605(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2605(t0,t1,t2);} C_noret_decl(trf_2615) static void C_ccall trf_2615(C_word c,C_word *av) C_noret; static void C_ccall trf_2615(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2615(t0,t1);} C_noret_decl(trf_2655) static void C_ccall trf_2655(C_word c,C_word *av) C_noret; static void C_ccall trf_2655(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2655(t0,t1);} C_noret_decl(trf_2674) static void C_ccall trf_2674(C_word c,C_word *av) C_noret; static void C_ccall trf_2674(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2674(t0,t1);} C_noret_decl(trf_2794) static void C_ccall trf_2794(C_word c,C_word *av) C_noret; static void C_ccall trf_2794(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2794(t0,t1);} C_noret_decl(trf_2936) static void C_ccall trf_2936(C_word c,C_word *av) C_noret; static void C_ccall trf_2936(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2936(t0,t1,t2);} C_noret_decl(trf_3026) static void C_ccall trf_3026(C_word c,C_word *av) C_noret; static void C_ccall trf_3026(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3026(t0,t1,t2);} C_noret_decl(trf_3082) static void C_ccall trf_3082(C_word c,C_word *av) C_noret; static void C_ccall trf_3082(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3082(t0,t1,t2,t3);} C_noret_decl(trf_3092) static void C_ccall trf_3092(C_word c,C_word *av) C_noret; static void C_ccall trf_3092(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3092(t0,t1);} C_noret_decl(trf_3209) static void C_ccall trf_3209(C_word c,C_word *av) C_noret; static void C_ccall trf_3209(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3209(t0,t1,t2);} C_noret_decl(trf_3289) static void C_ccall trf_3289(C_word c,C_word *av) C_noret; static void C_ccall trf_3289(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3289(t0,t1);} C_noret_decl(trf_3405) static void C_ccall trf_3405(C_word c,C_word *av) C_noret; static void C_ccall trf_3405(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3405(t0,t1,t2,t3,t4);} C_noret_decl(trf_3412) static void C_ccall trf_3412(C_word c,C_word *av) C_noret; static void C_ccall trf_3412(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3412(t0,t1);} C_noret_decl(trf_3479) static void C_ccall trf_3479(C_word c,C_word *av) C_noret; static void C_ccall trf_3479(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3479(t0,t1,t2);} C_noret_decl(trf_3525) static void C_ccall trf_3525(C_word c,C_word *av) C_noret; static void C_ccall trf_3525(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3525(t0,t1,t2,t3);} C_noret_decl(trf_3549) static void C_ccall trf_3549(C_word c,C_word *av) C_noret; static void C_ccall trf_3549(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3549(t0,t1,t2,t3);} C_noret_decl(trf_3589) static void C_ccall trf_3589(C_word c,C_word *av) C_noret; static void C_ccall trf_3589(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3589(t0,t1,t2,t3);} C_noret_decl(trf_3637) static void C_ccall trf_3637(C_word c,C_word *av) C_noret; static void C_ccall trf_3637(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3637(t0,t1,t2);} C_noret_decl(trf_3680) static void C_ccall trf_3680(C_word c,C_word *av) C_noret; static void C_ccall trf_3680(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3680(t0,t1,t2);} C_noret_decl(trf_3741) static void C_ccall trf_3741(C_word c,C_word *av) C_noret; static void C_ccall trf_3741(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3741(t0,t1,t2);} C_noret_decl(trf_3766) static void C_ccall trf_3766(C_word c,C_word *av) C_noret; static void C_ccall trf_3766(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3766(t0,t1);} C_noret_decl(trf_3797) static void C_ccall trf_3797(C_word c,C_word *av) C_noret; static void C_ccall trf_3797(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3797(t0,t1,t2);} C_noret_decl(trf_3831) static void C_ccall trf_3831(C_word c,C_word *av) C_noret; static void C_ccall trf_3831(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3831(t0,t1,t2,t3);} C_noret_decl(trva4314) static void C_ccall trva4314(C_word c,C_word *av) C_noret; static void C_ccall trva4314(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; va4314(t0,t1);} /* k1248 */ static void C_ccall f_1250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1250,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1253,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1251 in k1248 */ static void C_ccall f_1253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1253,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1256,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k1254 in k1251 in k1248 */ static void C_ccall f_1256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1256,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1259,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_file_toplevel(2,av2);}} /* k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_1259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1259,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1262,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_1262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1262,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1265,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_1265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1265,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1268,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_1268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,7)))){ C_save_and_reclaim((void *)f_1268,2,av);} a=C_alloc(11); t2=C_a_i_provide(&a,1,lf[0]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1271,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:29: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[91]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[91]+1); av2[1]=t3; av2[2]=lf[92]; av2[3]=lf[92]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=C_SCHEME_END_OF_LIST; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_1271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_1271,2,av);} a=C_alloc(24); t2=C_mutate(&lf[1] /* (set! main#take ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1381,tmp=(C_word)a,a+=2,tmp)); t3=lf[2] /* main#file */ =C_SCHEME_FALSE;; t4=lf[3] /* main#no-unused */ =C_SCHEME_FALSE;; t5=lf[4] /* main#seconds-digits */ =C_fix(3);; t6=lf[5] /* main#average-digits */ =C_fix(3);; t7=lf[6] /* main#percent-digits */ =C_fix(3);; t8=lf[7] /* main#top */ =C_fix(0);; t9=C_mutate(&lf[8] /* (set! main#print-usage ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2558,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate(&lf[16] /* (set! main#sort-by-calls ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2819,tmp=(C_word)a,a+=2,tmp)); t11=C_mutate(&lf[17] /* (set! main#sort-by-time ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2853,tmp=(C_word)a,a+=2,tmp)); t12=C_mutate(&lf[18] /* (set! main#sort-by-avg ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2882,tmp=(C_word)a,a+=2,tmp)); t13=C_mutate(&lf[19] /* (set! main#sort-by-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2910,tmp=(C_word)a,a+=2,tmp)); t14=C_mutate(&lf[22] /* (set! main#sort-by ...) */,C_retrieve2(lf[17],C_text("main#sort-by-time"))); t15=C_mutate(&lf[23] /* (set! main#read-profile ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2994,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate(&lf[32] /* (set! main#format-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3143,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate(&lf[35] /* (set! main#format-real ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3209,tmp=(C_word)a,a+=2,tmp)); t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3880,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3890,a[2]=t18,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:262: chicken.process-context#command-line-arguments */ t20=C_fast_retrieve(lf[90]);{ C_word *av2=av; av2[0]=t20; av2[1]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} /* main#take in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_1381(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_1381,3,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1399,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); t9=C_fixnum_difference(t3,C_fix(1)); /* mini-srfi-1.scm:56: take */ t11=t6; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}} /* k1397 in main#take in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_1399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1399,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* foldr281 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_1891(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_1891,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1899,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1920,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g286 in foldr281 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_1899(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1899,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1906,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:131: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k1904 in g286 in foldr281 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_1906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1906,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k1918 in foldr281 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_1920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1920,2,av);} /* mini-srfi-1.scm:131: g286 */ t2=((C_word*)t0)[2]; f_1899(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* main#print-usage in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_2558(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(27,0,2)))){ C_save_and_reclaim_args((void *)trf_2558,1,t1);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2562,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2569,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,lf[11],C_SCHEME_END_OF_LIST); t5=C_a_i_cons(&a,2,C_retrieve2(lf[6],C_text("main#percent-digits")),t4); t6=C_a_i_cons(&a,2,lf[12],t5); t7=C_a_i_cons(&a,2,C_retrieve2(lf[5],C_text("main#average-digits")),t6); t8=C_a_i_cons(&a,2,lf[13],t7); t9=C_a_i_cons(&a,2,C_retrieve2(lf[4],C_text("main#seconds-digits")),t8); t10=C_a_i_cons(&a,2,lf[14],t9); /* chicken-profile.scm:29: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word av2[3]; av2[0]=*((C_word*)lf[15]+1); av2[1]=t3; av2[2]=t10; tp(3,av2);}} /* k2560 in main#print-usage in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2562,2,av);} /* chicken-profile.scm:76: chicken.base#exit */ t2=C_fast_retrieve(lf[9]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(64); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2567 in main#print-usage in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2569,2,av);} /* chicken-profile.scm:55: scheme#display */ t2=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_2605(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,0,2)))){ C_save_and_reclaim_args((void *)trf_2605,3,t0,t1,t2);} a=C_alloc(24); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2615,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[2],C_text("main#file")))){ t4=t3; f_2615(t4,C_SCHEME_UNDEFINED);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2622,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:84: chicken.file#glob */ t5=C_fast_retrieve(lf[68]);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[69]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} else{ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2655,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t12=t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2674,a[2]=t4,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2697,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); if(C_truep((C_truep(C_i_equalp(t4,lf[73]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[74]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[75]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ /* chicken-profile.scm:104: print-usage */ f_2558(t13);} else{ if(C_truep(C_i_string_equal_p(t4,lf[76]))){ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2715,a[2]=t13,tmp=(C_word)a,a+=3,tmp); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2722,a[2]=t14,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:106: chicken.platform#chicken-version */ t16=C_fast_retrieve(lf[78]);{ C_word av2[2]; av2[0]=t16; av2[1]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ if(C_truep(C_u_i_string_equal_p(t4,lf[79]))){ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2730,a[2]=t13,tmp=(C_word)a,a+=3,tmp); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2737,a[2]=t14,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:109: chicken.platform#chicken-version */ t16=C_fast_retrieve(lf[78]);{ C_word av2[2]; av2[0]=t16; av2[1]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} else{ if(C_truep(C_u_i_string_equal_p(t4,lf[80]))){ t14=lf[3] /* main#no-unused */ =C_SCHEME_TRUE;; /* chicken-profile.scm:122: loop */ t18=t1; t19=((C_word*)t7)[1]; t1=t18; t2=t19; goto loop;} else{ if(C_truep(C_u_i_string_equal_p(t4,lf[81]))){ t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2752,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); /* chicken-profile.scm:112: next-number */ t15=t10; f_2674(t15,t14);} else{ if(C_truep(C_u_i_string_equal_p(t4,lf[82]))){ t14=C_mutate(&lf[22] /* (set! main#sort-by ...) */,C_retrieve2(lf[16],C_text("main#sort-by-calls"))); /* chicken-profile.scm:122: loop */ t18=t1; t19=((C_word*)t7)[1]; t1=t18; t2=t19; goto loop;} else{ if(C_truep(C_u_i_string_equal_p(t4,lf[83]))){ t14=C_mutate(&lf[22] /* (set! main#sort-by ...) */,C_retrieve2(lf[17],C_text("main#sort-by-time"))); /* chicken-profile.scm:122: loop */ t18=t1; t19=((C_word*)t7)[1]; t1=t18; t2=t19; goto loop;} else{ if(C_truep(C_u_i_string_equal_p(t4,lf[84]))){ t14=C_mutate(&lf[22] /* (set! main#sort-by ...) */,C_retrieve2(lf[18],C_text("main#sort-by-avg"))); /* chicken-profile.scm:122: loop */ t18=t1; t19=((C_word*)t7)[1]; t1=t18; t2=t19; goto loop;} else{ if(C_truep(C_u_i_string_equal_p(t4,lf[85]))){ t14=C_mutate(&lf[22] /* (set! main#sort-by ...) */,C_retrieve2(lf[19],C_text("main#sort-by-name"))); /* chicken-profile.scm:122: loop */ t18=t1; t19=((C_word*)t7)[1]; t1=t18; t2=t19; goto loop;} else{ if(C_truep(C_u_i_string_equal_p(t4,lf[86]))){ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2788,a[2]=t13,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:117: next-arg */ t15=((C_word*)t9)[1]; f_2655(t15,t14);} else{ t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2794,a[2]=t13,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t7,tmp=(C_word)a,a+=7,tmp); t15=C_block_size(t4); if(C_truep(C_fixnum_greaterp(t15,C_fix(1)))){ t16=C_i_string_ref(t4,C_fix(0)); t17=t14; f_2794(t17,C_u_i_char_equalp(C_make_character(45),t16));} else{ t16=t14; f_2794(t16,C_SCHEME_FALSE);}}}}}}}}}}}}} /* k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_2615(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_2615,2,t0,t1);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3270,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:205: chicken.base#print */ t4=*((C_word*)lf[51]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[63]; av2[3]=C_retrieve2(lf[2],C_text("main#file")); av2[4]=lf[64]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2620 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_2622,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2625,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t1))){ /* chicken-profile.scm:86: chicken.base#error */ t3=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[66]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2638,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2640,tmp=(C_word)a,a+=2,tmp); /* chicken-profile.scm:87: chicken.sort#sort */ t5=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k2623 in k2620 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2625,2,av);} t2=C_mutate(&lf[2] /* (set! main#file ...) */,t1); t3=((C_word*)t0)[2]; f_2615(t3,t2);} /* k2636 in k2620 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2638,2,av);} t2=C_i_car(t1); t3=C_mutate(&lf[2] /* (set! main#file ...) */,t2); t4=((C_word*)t0)[2]; f_2615(t4,t3);} /* a2639 in k2620 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2640,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2645,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:89: chicken.file.posix#file-modification-time */ t5=C_fast_retrieve(lf[67]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2643 in a2639 in k2620 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2645,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2649,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:90: chicken.file.posix#file-modification-time */ t4=C_fast_retrieve(lf[67]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2647 in k2643 in a2639 in k2620 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2649,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_integer_greaterp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* next-arg in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_2655(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_2655,2,t0,t1);} if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[2])[1]))){ /* chicken-profile.scm:96: chicken.base#error */ t2=*((C_word*)lf[65]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[70]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* next-number in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_2674(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_2674,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2678,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2694,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:101: next-arg */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2655(t4,t3);} /* k2676 in next-number in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2678,2,av);} if(C_truep(t1)){ if(C_truep(C_i_greaterp(t1,C_fix(0)))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* chicken-profile.scm:102: chicken.base#error */ t2=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[71]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} else{ /* chicken-profile.scm:102: chicken.base#error */ t2=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[71]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k2692 in next-number in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2694,2,av);} /* chicken-profile.scm:101: scheme#string->number */ t2=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2695 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2697,2,av);} /* chicken-profile.scm:122: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2605(t2,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k2713 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2715,2,av);} /* chicken-profile.scm:107: chicken.base#exit */ t2=C_fast_retrieve(lf[9]);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2720 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2722,2,av);} /* chicken-profile.scm:106: chicken.base#print */ t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[77]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2728 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2730,2,av);} /* chicken-profile.scm:110: chicken.base#exit */ t2=C_fast_retrieve(lf[9]);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2735 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2737,2,av);} /* chicken-profile.scm:109: chicken.base#print */ t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2750 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2752,2,av);} t2=C_mutate(&lf[7] /* (set! main#top ...) */,t1); /* chicken-profile.scm:122: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2605(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k2786 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2788,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=t1; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2936,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_string_length(t3); t6=C_eqp(t5,C_fix(3)); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2970,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:159: arg-digit */ t8=t4; f_2936(t8,t7,C_fix(0));} else{ /* chicken-profile.scm:162: chicken.base#error */ t7=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=lf[88]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k2792 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_2794(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_2794,2,t0,t1);} if(C_truep(t1)){ /* chicken-profile.scm:119: chicken.base#error */ t2=*((C_word*)lf[65]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[89]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ if(C_truep(C_retrieve2(lf[2],C_text("main#file")))){ /* chicken-profile.scm:120: print-usage */ f_2558(((C_word*)t0)[2]);} else{ t2=C_mutate(&lf[2] /* (set! main#file ...) */,((C_word*)t0)[3]); /* chicken-profile.scm:122: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_2605(t3,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);}}} /* main#sort-by-calls in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2819,4,av);} t4=t2; t5=C_i_cadr(t4); t6=t3; t7=C_i_cadr(t6); if(C_truep(C_i_eqvp(t5,t7))){ t8=t2; t9=C_i_caddr(t8); t10=t3; t11=C_i_caddr(t10); t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=C_i_greaterp(t9,t11); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=(C_truep(t5)?(C_truep(t7)?C_i_greaterp(t5,t7):C_SCHEME_TRUE):C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* main#sort-by-time in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2853,4,av);} t4=t2; t5=C_i_caddr(t4); t6=t3; t7=C_i_caddr(t6); if(C_truep(C_i_nequalp(t5,t7))){ t8=t2; t9=C_i_cadr(t8); t10=t3; t11=C_i_cadr(t10); t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=C_i_greaterp(t9,t11); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_greaterp(t5,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* main#sort-by-avg in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2882,4,av);} t4=C_i_cadddr(t2); t5=C_i_cadddr(t3); if(C_truep(C_i_eqvp(t4,t5))){ t6=t2; t7=C_i_caddr(t6); t8=t3; t9=C_i_caddr(t8); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=C_i_greaterp(t7,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_greaterp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* main#sort-by-name in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2910,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2918,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t2); /* chicken-profile.scm:146: scheme#symbol->string */ t6=*((C_word*)lf[21]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2916 in main#sort-by-name in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2918(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2918,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2922,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_i_car(t4); /* chicken-profile.scm:146: scheme#symbol->string */ t6=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2920 in k2916 in main#sort-by-name in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2922,2,av);} /* chicken-profile.scm:146: scheme#string<? */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* arg-digit in k2786 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_2936(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_2936,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_string_ref(((C_word*)t0)[2],t2); t4=C_fix(C_character_code(t3)); t5=C_a_i_fixnum_difference(&a,2,t4,C_fix(48)); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2948,a[2]=t1,a[3]=t5,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* chicken-profile.scm:154: scheme#<= */{ C_word av2[5]; av2[0]=0; av2[1]=t6; av2[2]=C_fix(0); av2[3]=t5; av2[4]=C_fix(9); C_less_or_equal_p(5,av2);}} /* k2946 in arg-digit in k2786 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2948,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(C_i_integer_equalp(((C_word*)t0)[3],C_fix(9)))?C_fix(8):((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* chicken-profile.scm:156: chicken.base#error */ t2=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[87]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k2968 in k2786 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2970,2,av);} a=C_alloc(4); t2=C_mutate(&lf[4] /* (set! main#seconds-digits ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2974,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:160: arg-digit */ t4=((C_word*)t0)[3]; f_2936(t4,t3,C_fix(1));} /* k2972 in k2968 in k2786 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2974,2,av);} a=C_alloc(3); t2=C_mutate(&lf[5] /* (set! main#average-digits ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2978,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:161: arg-digit */ t4=((C_word*)t0)[3]; f_2936(t4,t3,C_fix(2));} /* k2976 in k2972 in k2968 in k2786 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2978,2,av);} t2=C_mutate(&lf[6] /* (set! main#percent-digits ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_2994,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2998,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:165: scheme#make-vector */ t3=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(3001); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_2998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2998,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3001,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:169: scheme#read */ t4=*((C_word*)lf[26]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3001,2,av);} a=C_alloc(9); t2=C_i_symbolp(t1); t3=(C_truep(t2)?t1:lf[24]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3007,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3024,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_symbolp(t1))){ /* chicken-profile.scm:171: scheme#read */ t7=*((C_word*)lf[26]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=t1; f_3024(2,av2);}}} /* k3005 in k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_3007,2,av);} a=C_alloc(10); t2=C_SCHEME_END_OF_LIST; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3010,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3015,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:179: chicken.internal#hash-table-for-each */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[25]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[25]+1); av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k3008 in k3005 in k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3010,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a3014 in k3005 in k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_3015,4,av);} a=C_alloc(6); t4=((C_word*)((C_word*)t0)[2])[1]; t5=C_a_i_cons(&a,2,t2,t3); t6=C_a_i_cons(&a,2,t5,t4); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k3022 in k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3024,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3026,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_3026(t5,((C_word*)t0)[3],t1);} /* doloop637 in k3022 in k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3026(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){ C_save_and_reclaim_args((void *)trf_3026,3,t0,t1,t2);} a=C_alloc(17); if(C_truep(C_eofp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3036,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=t2; t5=C_i_car(t4); t6=t5; t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3065,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t6,a[6]=t9,a[7]=t10,tmp=(C_word)a,a+=8,tmp); t12=t2; t13=C_i_car(t12); /* chicken-profile.scm:176: chicken.internal#hash-table-ref */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[30]); C_word av2[4]; av2[0]=*((C_word*)lf[30]+1); av2[1]=t11; av2[2]=((C_word*)t0)[3]; av2[3]=t13; tp(4,av2);}}} /* k3034 in doloop637 in k3022 in k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3036,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3043,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:171: scheme#read */ t3=*((C_word*)lf[26]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3041 in k3034 in doloop637 in k3022 in k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3043,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_3026(t2,((C_word*)t0)[3],t1);} /* k3063 in doloop637 in k3022 in k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_3065,2,av);} a=C_alloc(12); t2=(C_truep(t1)?t1:lf[27]); t3=C_i_cdr(((C_word*)t0)[2]); t4=C_SCHEME_UNDEFINED; t5=C_i_check_list_2(t3,lf[28]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3080,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3082,a[2]=((C_word*)t0)[6],a[3]=t8,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_3082(t10,t6,t2,t3);} /* k3078 in k3063 in doloop637 in k3022 in k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3080,2,av);} /* chicken-profile.scm:173: chicken.internal#hash-table-set! */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[29]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[29]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; tp(5,av2);}} /* map-loop642 in k3063 in doloop637 in k3022 in k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3082(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(39,0,2)))){ C_save_and_reclaim_args((void *)trf_3082,4,t0,t1,t2,t3);} a=C_alloc(39); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3092,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); if(C_truep(t7)){ if(C_truep(t8)){ t9=C_s_a_i_plus(&a,2,t7,t8); t10=t6; f_3092(t10,C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST));} else{ t9=t6; f_3092(t9,C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_END_OF_LIST));}} else{ t9=t6; f_3092(t9,C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_END_OF_LIST));}} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k3090 in map-loop642 in k3063 in doloop637 in k3022 in k2999 in k2996 in main#read-profile in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3092(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3092,2,t0,t1);} t2=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t1); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t4=C_slot(((C_word*)t0)[3],C_fix(1)); t5=C_slot(((C_word*)t0)[4],C_fix(1)); t6=((C_word*)((C_word*)t0)[5])[1]; f_3082(t6,((C_word*)t0)[6],t4,t5);} /* main#format-string in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_3143,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+5); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_make_character(32):C_i_car(t9)); t12=C_i_nullp(t9); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t14=C_i_string_length(t2); t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3162,a[2]=t7,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t16=C_fixnum_difference(t3,t14); t17=C_i_fixnum_max(C_fix(0),t16); /* chicken-profile.scm:187: scheme#make-string */ t18=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t18; av2[1]=t15; av2[2]=t17; av2[3]=t11; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} /* k3160 in main#format-string in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3162,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3]; /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[33]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[33]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t2; tp(4,av2);}} else{ t2=((C_word*)t0)[3]; /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[33]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[33]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t1; tp(4,av2);}}} /* main#format-real in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3209(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_3209,3,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3213,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3264,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:193: scheme#truncate */ t6=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3211 in main#format-real in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3213,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3220,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[40]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[40]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_fix(10); tp(4,av2);}} /* k3218 in k3211 in main#format-real in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(48,c,2)))){ C_save_and_reclaim((void *)f_3220,2,av);} a=C_alloc(48); t2=t1; t3=C_i_greaterp(((C_word*)t0)[2],C_fix(0)); t4=(C_truep(t3)?lf[36]:lf[37]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3228,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3232,a[2]=((C_word*)t0)[2],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3240,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3244,a[2]=t8,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va4314,a[2]=t9,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t11=t10; va4314(t11,C_s_a_i_minus(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]));} /* k3226 in k3218 in k3211 in main#format-real in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3228,2,av);} /* chicken-profile.scm:194: scheme#string-append */ t2=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3230 in k3218 in k3211 in main#format-real in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_3232,2,av);} a=C_alloc(29); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* chicken-profile.scm:197: scheme#substring */ t3=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=C_fix(1); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3238 in k3218 in k3211 in main#format-real in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3240,2,av);} /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[40]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[40]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(10); tp(4,av2);}} /* k3242 in k3218 in k3211 in main#format-real in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3244,2,av);} /* chicken-profile.scm:199: scheme#inexact->exact */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3254 */ static void C_ccall f_3256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_3256,2,av);} a=C_alloc(33); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); /* chicken-profile.scm:200: scheme#truncate */ t3=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3262 in main#format-real in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3264,2,av);} /* chicken-profile.scm:193: scheme#inexact->exact */ t2=*((C_word*)lf[41]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3270,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3273,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-profile.scm:206: scheme#with-input-from-file */ t3=C_fast_retrieve(lf[62]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[2],C_text("main#file")); av2[3]=C_retrieve2(lf[23],C_text("main#read-profile")); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_3273,2,av);} a=C_alloc(10); t2=C_i_car(t1); t3=t2; t4=C_u_i_cdr(t1); t5=C_i_check_list_2(t4,lf[45]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3283,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3831,a[2]=t3,a[3]=t8,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_3831(t10,t6,t4,C_fix(0));} /* k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_3283,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3286,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3741,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3795,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3797,a[2]=t6,a[3]=t11,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_3797(t13,t9,((C_word*)t0)[3]);} /* k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_3286,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3289,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3728,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_length(((C_word*)t3)[1]); /* chicken-profile.scm:230: scheme#< */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=C_fix(0); av2[3]=C_retrieve2(lf[7],C_text("main#top")); av2[4]=t6; C_lessp(5,av2);}} /* k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3289(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,0,3)))){ C_save_and_reclaim_args((void *)trf_3289,2,t0,t1);} a=C_alloc(19); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3356,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t5,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_retrieve2(lf[3],C_text("main#no-unused")))){ t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3717,tmp=(C_word)a,a+=2,tmp); t8=t7; t9=((C_word*)((C_word*)t0)[2])[1]; t10=C_i_check_list_2(t9,lf[59]); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1891,a[2]=t8,a[3]=t12,tmp=(C_word)a,a+=4,tmp)); t14=((C_word*)t12)[1]; f_1891(t14,t6,t9);} else{ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_3356(2,av2);}}} /* k3312 in map-loop775 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3314,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3318,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_not(((C_word*)t0)[6]))){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=lf[57]; f_3318(2,av2);}} else{ /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[40]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[40]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_fix(10); tp(4,av2);}}} /* k3316 in k3312 in map-loop775 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_3318,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3322,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3340,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[56]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[56]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=C_fix(1000); tp(4,av2);}} /* k3320 in k3316 in k3312 in map-loop775 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_3322,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3334,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[56]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[56]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; av2[3]=C_fix(1000); tp(4,av2);}} /* k3324 in k3320 in k3316 in k3312 in map-loop775 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 in ... */ static void C_ccall f_3326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3326,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3330,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-profile.scm:241: format-real */ f_3209(t3,((C_word*)t0)[6],C_retrieve2(lf[6],C_text("main#percent-digits")));} /* k3328 in k3324 in k3320 in k3316 in k3312 in map-loop775 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in ... */ static void C_ccall f_3330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_3330,2,av);} a=C_alloc(15); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list5(&a,5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3332 in k3320 in k3316 in k3312 in map-loop775 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 in ... */ static void C_ccall f_3334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3334,2,av);} /* chicken-profile.scm:240: format-real */ f_3209(((C_word*)t0)[2],t1,C_retrieve2(lf[5],C_text("main#average-digits")));} /* k3338 in k3316 in k3312 in map-loop775 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3340,2,av);} /* chicken-profile.scm:239: format-real */ f_3209(((C_word*)t0)[2],t1,C_retrieve2(lf[4],C_text("main#seconds-digits")));} /* k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_3356,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[28]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3362,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3680,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_3680(t7,t3,t1);} /* k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(36,c,3)))){ C_save_and_reclaim((void *)f_3362,2,av);} a=C_alloc(36); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_a_i_list5(&a,5,lf[46],lf[47],lf[48],lf[49],lf[50]); t4=t3; t5=C_a_i_list5(&a,5,C_SCHEME_FALSE,C_SCHEME_TRUE,C_SCHEME_TRUE,C_SCHEME_TRUE,C_SCHEME_TRUE); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3371,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[55]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[55]+1); av2[1]=t7; av2[2]=C_fix(2); av2[3]=C_make_character(32); tp(4,av2);}} /* k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,c,4)))){ C_save_and_reclaim((void *)f_3371,2,av);} a=C_alloc(30); t2=t1; t3=C_a_i_list5(&a,5,C_fix(0),C_fix(0),C_fix(0),C_fix(0),C_fix(0)); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3380,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3549,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1]; f_3549(t9,t5,t4,t3);} /* k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_3380,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3382,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3468,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* chicken-profile.scm:256: print-row */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; f_3382(3,av2);}} /* print-row in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,5)))){ C_save_and_reclaim((void *)f_3382,3,av);} a=C_alloc(20); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3390,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_retrieve2(lf[32],C_text("main#format-string")); t9=C_i_check_list_2(t2,lf[28]); t10=C_i_check_list_2(((C_word*)t0)[2],lf[28]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3403,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3405,a[2]=t6,a[3]=t13,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_3405(t15,t11,t2,((C_word*)t0)[2],((C_word*)t0)[4]);} /* k3388 in print-row in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 in ... */ static void C_ccall f_3390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3390,2,av);} /* chicken-profile.scm:255: chicken.base#print */ t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3401 in print-row in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 in ... */ static void C_ccall f_3403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3403,2,av);} /* chicken-profile.scm:255: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[52]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop899 in print-row in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 in ... */ static void C_fcall f_3405(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_3405,5,t0,t1,t2,t3,t4);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3412,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=t1,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_pairp(t2))){ t6=C_i_pairp(t3); t7=t5; f_3412(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} else{ t6=t5; f_3412(t6,C_SCHEME_FALSE);}} /* k3410 in map-loop899 in print-row in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in ... */ static void C_fcall f_3412(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_3412,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3438,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_slot(((C_word*)t0)[3],C_fix(0)); t4=C_slot(((C_word*)t0)[4],C_fix(0)); t5=C_slot(((C_word*)t0)[5],C_fix(0)); /* chicken-profile.scm:255: g905 */ t6=((C_word*)t0)[8];{ C_word av2[5]; av2[0]=t6; av2[1]=t2; av2[2]=t3; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t2=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[9],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3436 in k3410 in map-loop899 in print-row in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in ... */ static void C_ccall f_3438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3438,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=C_slot(((C_word*)t0)[4],C_fix(1)); t7=C_slot(((C_word*)t0)[5],C_fix(1)); t8=((C_word*)((C_word*)t0)[6])[1]; f_3405(t8,((C_word*)t0)[7],t5,t6,t7);} /* k3466 in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_3468,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3471,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3504,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_check_list_2(((C_word*)t0)[5],lf[45]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3515,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3525,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1]; f_3525(t9,t5,((C_word*)t0)[5],C_fix(0));} /* k3469 in k3466 in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 in ... */ static void C_ccall f_3471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3471,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=C_i_check_list_2(t3,lf[53]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3479,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_3479(t8,((C_word*)t0)[4],t3);} /* for-each-loop888 in k3469 in k3466 in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in ... */ static void C_fcall f_3479(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3479,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3489,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-profile.scm:260: g889 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3487 in for-each-loop888 in k3469 in k3466 in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in ... */ static void C_ccall f_3489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3489,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3479(t3,((C_word*)t0)[4],t2);} /* k3502 in k3466 in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 in ... */ static void C_ccall f_3504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3504,2,av);} /* chicken-profile.scm:257: chicken.base#print */ t2=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3513 in k3466 in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 in ... */ static void C_ccall f_3515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){ C_save_and_reclaim((void *)f_3515,2,av);} a=C_alloc(39); t2=C_i_length(((C_word*)t0)[2]); t3=C_a_i_fixnum_difference(&a,2,t2,C_fix(1)); t4=C_s_a_u_i_integer_times(&a,2,C_fix(2),t3); t5=C_s_a_i_plus(&a,2,t1,t4); /* chicken-profile.scm:257: scheme#make-string */ t6=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=t5; av2[3]=C_make_character(45); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* foldl938 in k3466 in k3378 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 in ... */ static void C_fcall f_3525(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){ C_save_and_reclaim_args((void *)trf_3525,4,t0,t1,t2,t3);} a=C_alloc(29); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=C_slot(t2,C_fix(0)); t6=C_s_a_i_plus(&a,2,t3,t5); t8=t1; t9=t4; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* foldl815 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3549(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,0,3)))){ C_save_and_reclaim_args((void *)trf_3549,4,t0,t1,t2,t3);} a=C_alloc(28); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3672,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(0)); t8=t6; t9=t3; t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t11=t10; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=((C_word*)t12)[1]; t14=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t15=t14; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=((C_word*)t16)[1]; t18=C_i_check_list_2(t7,lf[28]); t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3578,a[2]=t9,a[3]=t12,a[4]=t13,a[5]=t8,tmp=(C_word)a,a+=6,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3637,a[2]=t16,a[3]=t21,a[4]=t17,tmp=(C_word)a,a+=5,tmp)); t23=((C_word*)t21)[1]; f_3637(t23,t19,t7);} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k3576 in foldl815 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_3578,2,av);} a=C_alloc(7); t2=C_i_check_list_2(t1,lf[28]); t3=C_i_check_list_2(((C_word*)t0)[2],lf[28]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3589,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_3589(t7,((C_word*)t0)[5],t1,((C_word*)t0)[2]);} /* map-loop828 in k3576 in foldl815 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 in ... */ static void C_fcall f_3589(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3589,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3618,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* chicken-profile.scm:251: g834 */ t9=*((C_word*)lf[54]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=t7; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k3616 in map-loop828 in k3576 in foldl815 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in ... */ static void C_ccall f_3618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3618,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=C_slot(((C_word*)t0)[4],C_fix(1)); t7=((C_word*)((C_word*)t0)[5])[1]; f_3589(t7,((C_word*)t0)[6],t5,t6);} /* map-loop849 in foldl815 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3637(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_3637,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_string_length(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3670 in foldl815 in k3369 in k3360 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3672,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_3549(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* map-loop775 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3680(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_3680,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3705,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=C_i_cadr(t4); t7=t6; t8=C_i_caddr(t4); t9=t8; t10=C_i_cadddr(t4); t11=t10; t12=C_i_cddddr(t4); t13=C_i_car(t12); t14=t13; t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3314,a[2]=t5,a[3]=t14,a[4]=t11,a[5]=t9,a[6]=t7,tmp=(C_word)a,a+=7,tmp); t16=C_i_car(t4); /* chicken-profile.scm:237: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[58]); C_word av2[3]; av2[0]=*((C_word*)lf[58]+1); av2[1]=t15; av2[2]=t16; tp(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3703 in map-loop775 in k3354 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3705,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3680(t6,((C_word*)t0)[5],t5);} /* a3716 in k3287 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3717,3,av);} t3=C_i_cadr(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_greaterp(t3,C_fix(0)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3726 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3728,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3732,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:231: take */ f_1381(t2,((C_word*)((C_word*)t0)[2])[1],C_retrieve2(lf[7],C_text("main#top")));} else{ t2=((C_word*)t0)[3]; f_3289(t2,C_SCHEME_UNDEFINED);}} /* k3730 in k3726 in k3284 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3732,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_3289(t3,t2);} /* g743 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3741(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3741,3,t0,t1,t2);} a=C_alloc(6); t3=t2; t4=C_i_cadr(t3); t5=t2; t6=C_i_caddr(t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3759,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t7,tmp=(C_word)a,a+=6,tmp); if(C_truep(t4)){ if(C_truep(C_i_greaterp(t4,C_fix(0)))){ /* ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[56]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[56]+1); av2[1]=t8; av2[2]=t7; av2[3]=t4; tp(4,av2);}} else{ t9=t8;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_3759(2,av2);}}} else{ t9=t8;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_3759(2,av2);}}} /* k3757 in g743 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3759,2,av);} a=C_alloc(8); t2=(C_truep(t1)?t1:C_fix(0)); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3766,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_greaterp(((C_word*)t0)[4],C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3779,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[56]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[56]+1); av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} else{ t5=t4; f_3766(t5,C_SCHEME_FALSE);}} /* k3764 in k3757 in g743 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3766(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3766,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=t1; t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); /* chicken-profile.scm:219: scheme#append */ t4=*((C_word*)lf[60]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=C_a_i_list2(&a,2,((C_word*)t0)[2],C_fix(0)); /* chicken-profile.scm:219: scheme#append */ t3=*((C_word*)lf[60]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k3777 in k3757 in g743 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ C_save_and_reclaim((void *)f_3779,2,av);} a=C_alloc(33); t2=((C_word*)t0)[2]; f_3766(t2,C_s_a_i_times(&a,2,t1,C_fix(100)));} /* k3793 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3795,2,av);} /* chicken-profile.scm:217: chicken.sort#sort */ t2=C_fast_retrieve(lf[61]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_retrieve2(lf[22],C_text("main#sort-by")); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop737 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3797(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3797,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3822,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-profile.scm:217: g743 */ t5=((C_word*)t0)[4]; f_3741(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3820 in map-loop737 in k3281 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3822,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3797(t6,((C_word*)t0)[5],t5);} /* foldl719 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall f_3831(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_3831,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=C_eqp(((C_word*)t0)[2],lf[24]); t7=(C_truep(t6)?(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3860,tmp=(C_word)a,a+=2,tmp):(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3869,tmp=(C_word)a,a+=2,tmp)); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3852,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t9=C_slot(t2,C_fix(0)); /* chicken-profile.scm:213: g726 */ t10=t7;{ C_word av2[4]; av2[0]=t10; av2[1]=t8; av2[2]=t3; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k3850 in foldl719 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3852,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_3831(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* f_3860 in foldl719 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3860,4,av);} t4=C_i_caddr(t3); /* chicken-profile.scm:214: scheme#max */ t5=*((C_word*)lf[54]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* f_3869 in foldl719 in k3271 in k3268 in k2613 in loop in k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_3869,4,av);} a=C_alloc(29); t4=C_i_caddr(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_s_a_i_plus(&a,2,t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k3878 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3880,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3886,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.base#implicit-exit-handler */ t3=C_fast_retrieve(lf[44]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3884 in k3878 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3886,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3888 in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_ccall f_3890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3890,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2605,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_2605(t5,((C_word*)t0)[2],t1);} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(300))){ C_save(t1); C_rereclaim2(300*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,93); lf[0]=C_h_intern(&lf[0],5, C_text("main#")); lf[9]=C_h_intern(&lf[9],17, C_text("chicken.base#exit")); lf[10]=C_h_intern(&lf[10],14, C_text("scheme#display")); lf[11]=C_decode_literal(C_heaptop,C_text("\376B\000\001\242)\012 -no-unused remove procedures that are never called\012 -top " "N display only the top N entries\012 -help s" "how this text and exit\012 -version show version and exit\012 -releas" "e show release number and exit\012\012 FILENAME defaults to the `PROF" "ILE.<number>\047, selecting the one with\012 the highest modification time, in case mu" "ltiple profiles exist.\012")); lf[12]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[13]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[14]=C_decode_literal(C_heaptop,C_text("\376B\000\001\321Usage: chicken-profile [OPTION ...] [FILENAME ...]\012\012 -sort-by-calls " " sort output by call frequency\012 -sort-by-time sort output by proc" "edure execution time\012 -sort-by-avg sort output by average procedure" " execution time\012 -sort-by-name sort output alphabetically by procedu" "re name\012 -decimals DDD set number of decimals for seconds, average a" "nd\012 percent columns (three digits, default: ")); lf[15]=C_h_intern(&lf[15],21, C_text("##sys#print-to-string")); lf[20]=C_h_intern(&lf[20],15, C_text("scheme#string<\077")); lf[21]=C_h_intern(&lf[21],21, C_text("scheme#symbol->string")); lf[24]=C_h_intern(&lf[24],12, C_text("instrumented")); lf[25]=C_h_intern(&lf[25],36, C_text("chicken.internal#hash-table-for-each")); lf[26]=C_h_intern(&lf[26],11, C_text("scheme#read")); lf[27]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\001\000\000\000\000\376\003\000\000\002\376\377\001\000\000\000\000\376\377\016")); lf[28]=C_h_intern(&lf[28],3, C_text("map")); lf[29]=C_h_intern(&lf[29],32, C_text("chicken.internal#hash-table-set!")); lf[30]=C_h_intern(&lf[30],31, C_text("chicken.internal#hash-table-ref")); lf[31]=C_h_intern(&lf[31],18, C_text("scheme#make-vector")); lf[33]=C_h_intern(&lf[33],19, C_text("##sys#string-append")); lf[34]=C_h_intern(&lf[34],18, C_text("scheme#make-string")); lf[36]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[37]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[38]=C_h_intern(&lf[38],20, C_text("scheme#string-append")); lf[39]=C_h_intern(&lf[39],16, C_text("scheme#substring")); lf[40]=C_h_intern(&lf[40],20, C_text("##sys#number->string")); lf[41]=C_h_intern(&lf[41],21, C_text("scheme#inexact->exact")); lf[42]=C_h_intern(&lf[42],15, C_text("scheme#truncate")); lf[43]=C_h_intern(&lf[43],11, C_text("scheme#expt")); lf[44]=C_h_intern(&lf[44],34, C_text("chicken.base#implicit-exit-handler")); lf[45]=C_h_intern(&lf[45],5, C_text("foldl")); lf[46]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011procedure")); lf[47]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005calls")); lf[48]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007seconds")); lf[49]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007average")); lf[50]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007percent")); lf[51]=C_h_intern(&lf[51],18, C_text("chicken.base#print")); lf[52]=C_h_intern(&lf[52],33, C_text("chicken.string#string-intersperse")); lf[53]=C_h_intern(&lf[53],8, C_text("for-each")); lf[54]=C_h_intern(&lf[54],10, C_text("scheme#max")); lf[55]=C_h_intern(&lf[55],17, C_text("##sys#make-string")); lf[56]=C_h_intern(&lf[56],9, C_text("##sys#/-2")); lf[57]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010overflow")); lf[58]=C_h_intern(&lf[58],20, C_text("##sys#symbol->string")); lf[59]=C_h_intern(&lf[59],5, C_text("foldr")); lf[60]=C_h_intern(&lf[60],13, C_text("scheme#append")); lf[61]=C_h_intern(&lf[61],17, C_text("chicken.sort#sort")); lf[62]=C_h_intern(&lf[62],27, C_text("scheme#with-input-from-file")); lf[63]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011reading `")); lf[64]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\047 ...\012")); lf[65]=C_h_intern(&lf[65],18, C_text("chicken.base#error")); lf[66]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021no PROFILEs found")); lf[67]=C_h_intern(&lf[67],41, C_text("chicken.file.posix#file-modification-time")); lf[68]=C_h_intern(&lf[68],17, C_text("chicken.file#glob")); lf[69]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011PROFILE.\052")); lf[70]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032missing argument to option")); lf[71]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032invalid argument to option")); lf[72]=C_h_intern(&lf[72],21, C_text("scheme#string->number")); lf[73]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-h")); lf[74]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-help")); lf[75]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006--help")); lf[76]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-version")); lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032chicken-profile - Version ")); lf[78]=C_h_intern(&lf[78],32, C_text("chicken.platform#chicken-version")); lf[79]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-release")); lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012-no-unused")); lf[81]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004-top")); lf[82]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016-sort-by-calls")); lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015-sort-by-time")); lf[84]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014-sort-by-avg")); lf[85]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015-sort-by-name")); lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011-decimals")); lf[87]=C_decode_literal(C_heaptop,C_text("\376B\000\000$invalid argument to -decimals option")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\000$invalid argument to -decimals option")); lf[89]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016invalid option")); lf[90]=C_h_intern(&lf[90],46, C_text("chicken.process-context#command-line-arguments")); lf[91]=C_h_intern(&lf[91],30, C_text("##sys#register-compiled-module")); lf[92]=C_h_intern(&lf[92],4, C_text("main")); C_register_lf2(lf,93,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1250,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* va4314 in k3218 in k3211 in main#format-real in k1269 in k1266 in k1263 in k1260 in k1257 in k1254 in k1251 in k1248 */ static void C_fcall va4314(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(33,0,3)))){ C_save_and_reclaim_args((void *)trva4314,2,t0,t1);} a=C_alloc(33); t2=C_s_a_i_minus(&a,2,t1,C_fix(-1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3256,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-profile.scm:201: scheme#expt */ t5=*((C_word*)lf[43]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=C_fix(10); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[130] = { {C_text("f_1250:chicken_2dprofile_2escm"),(void*)f_1250}, {C_text("f_1253:chicken_2dprofile_2escm"),(void*)f_1253}, {C_text("f_1256:chicken_2dprofile_2escm"),(void*)f_1256}, {C_text("f_1259:chicken_2dprofile_2escm"),(void*)f_1259}, {C_text("f_1262:chicken_2dprofile_2escm"),(void*)f_1262}, {C_text("f_1265:chicken_2dprofile_2escm"),(void*)f_1265}, {C_text("f_1268:chicken_2dprofile_2escm"),(void*)f_1268}, {C_text("f_1271:chicken_2dprofile_2escm"),(void*)f_1271}, {C_text("f_1381:chicken_2dprofile_2escm"),(void*)f_1381}, {C_text("f_1399:chicken_2dprofile_2escm"),(void*)f_1399}, {C_text("f_1891:chicken_2dprofile_2escm"),(void*)f_1891}, {C_text("f_1899:chicken_2dprofile_2escm"),(void*)f_1899}, {C_text("f_1906:chicken_2dprofile_2escm"),(void*)f_1906}, {C_text("f_1920:chicken_2dprofile_2escm"),(void*)f_1920}, {C_text("f_2558:chicken_2dprofile_2escm"),(void*)f_2558}, {C_text("f_2562:chicken_2dprofile_2escm"),(void*)f_2562}, {C_text("f_2569:chicken_2dprofile_2escm"),(void*)f_2569}, {C_text("f_2605:chicken_2dprofile_2escm"),(void*)f_2605}, {C_text("f_2615:chicken_2dprofile_2escm"),(void*)f_2615}, {C_text("f_2622:chicken_2dprofile_2escm"),(void*)f_2622}, {C_text("f_2625:chicken_2dprofile_2escm"),(void*)f_2625}, {C_text("f_2638:chicken_2dprofile_2escm"),(void*)f_2638}, {C_text("f_2640:chicken_2dprofile_2escm"),(void*)f_2640}, {C_text("f_2645:chicken_2dprofile_2escm"),(void*)f_2645}, {C_text("f_2649:chicken_2dprofile_2escm"),(void*)f_2649}, {C_text("f_2655:chicken_2dprofile_2escm"),(void*)f_2655}, {C_text("f_2674:chicken_2dprofile_2escm"),(void*)f_2674}, {C_text("f_2678:chicken_2dprofile_2escm"),(void*)f_2678}, {C_text("f_2694:chicken_2dprofile_2escm"),(void*)f_2694}, {C_text("f_2697:chicken_2dprofile_2escm"),(void*)f_2697}, {C_text("f_2715:chicken_2dprofile_2escm"),(void*)f_2715}, {C_text("f_2722:chicken_2dprofile_2escm"),(void*)f_2722}, {C_text("f_2730:chicken_2dprofile_2escm"),(void*)f_2730}, {C_text("f_2737:chicken_2dprofile_2escm"),(void*)f_2737}, {C_text("f_2752:chicken_2dprofile_2escm"),(void*)f_2752}, {C_text("f_2788:chicken_2dprofile_2escm"),(void*)f_2788}, {C_text("f_2794:chicken_2dprofile_2escm"),(void*)f_2794}, {C_text("f_2819:chicken_2dprofile_2escm"),(void*)f_2819}, {C_text("f_2853:chicken_2dprofile_2escm"),(void*)f_2853}, {C_text("f_2882:chicken_2dprofile_2escm"),(void*)f_2882}, {C_text("f_2910:chicken_2dprofile_2escm"),(void*)f_2910}, {C_text("f_2918:chicken_2dprofile_2escm"),(void*)f_2918}, {C_text("f_2922:chicken_2dprofile_2escm"),(void*)f_2922}, {C_text("f_2936:chicken_2dprofile_2escm"),(void*)f_2936}, {C_text("f_2948:chicken_2dprofile_2escm"),(void*)f_2948}, {C_text("f_2970:chicken_2dprofile_2escm"),(void*)f_2970}, {C_text("f_2974:chicken_2dprofile_2escm"),(void*)f_2974}, {C_text("f_2978:chicken_2dprofile_2escm"),(void*)f_2978}, {C_text("f_2994:chicken_2dprofile_2escm"),(void*)f_2994}, {C_text("f_2998:chicken_2dprofile_2escm"),(void*)f_2998}, {C_text("f_3001:chicken_2dprofile_2escm"),(void*)f_3001}, {C_text("f_3007:chicken_2dprofile_2escm"),(void*)f_3007}, {C_text("f_3010:chicken_2dprofile_2escm"),(void*)f_3010}, {C_text("f_3015:chicken_2dprofile_2escm"),(void*)f_3015}, {C_text("f_3024:chicken_2dprofile_2escm"),(void*)f_3024}, {C_text("f_3026:chicken_2dprofile_2escm"),(void*)f_3026}, {C_text("f_3036:chicken_2dprofile_2escm"),(void*)f_3036}, {C_text("f_3043:chicken_2dprofile_2escm"),(void*)f_3043}, {C_text("f_3065:chicken_2dprofile_2escm"),(void*)f_3065}, {C_text("f_3080:chicken_2dprofile_2escm"),(void*)f_3080}, {C_text("f_3082:chicken_2dprofile_2escm"),(void*)f_3082}, {C_text("f_3092:chicken_2dprofile_2escm"),(void*)f_3092}, {C_text("f_3143:chicken_2dprofile_2escm"),(void*)f_3143}, {C_text("f_3162:chicken_2dprofile_2escm"),(void*)f_3162}, {C_text("f_3209:chicken_2dprofile_2escm"),(void*)f_3209}, {C_text("f_3213:chicken_2dprofile_2escm"),(void*)f_3213}, {C_text("f_3220:chicken_2dprofile_2escm"),(void*)f_3220}, {C_text("f_3228:chicken_2dprofile_2escm"),(void*)f_3228}, {C_text("f_3232:chicken_2dprofile_2escm"),(void*)f_3232}, {C_text("f_3240:chicken_2dprofile_2escm"),(void*)f_3240}, {C_text("f_3244:chicken_2dprofile_2escm"),(void*)f_3244}, {C_text("f_3256:chicken_2dprofile_2escm"),(void*)f_3256}, {C_text("f_3264:chicken_2dprofile_2escm"),(void*)f_3264}, {C_text("f_3270:chicken_2dprofile_2escm"),(void*)f_3270}, {C_text("f_3273:chicken_2dprofile_2escm"),(void*)f_3273}, {C_text("f_3283:chicken_2dprofile_2escm"),(void*)f_3283}, {C_text("f_3286:chicken_2dprofile_2escm"),(void*)f_3286}, {C_text("f_3289:chicken_2dprofile_2escm"),(void*)f_3289}, {C_text("f_3314:chicken_2dprofile_2escm"),(void*)f_3314}, {C_text("f_3318:chicken_2dprofile_2escm"),(void*)f_3318}, {C_text("f_3322:chicken_2dprofile_2escm"),(void*)f_3322}, {C_text("f_3326:chicken_2dprofile_2escm"),(void*)f_3326}, {C_text("f_3330:chicken_2dprofile_2escm"),(void*)f_3330}, {C_text("f_3334:chicken_2dprofile_2escm"),(void*)f_3334}, {C_text("f_3340:chicken_2dprofile_2escm"),(void*)f_3340}, {C_text("f_3356:chicken_2dprofile_2escm"),(void*)f_3356}, {C_text("f_3362:chicken_2dprofile_2escm"),(void*)f_3362}, {C_text("f_3371:chicken_2dprofile_2escm"),(void*)f_3371}, {C_text("f_3380:chicken_2dprofile_2escm"),(void*)f_3380}, {C_text("f_3382:chicken_2dprofile_2escm"),(void*)f_3382}, {C_text("f_3390:chicken_2dprofile_2escm"),(void*)f_3390}, {C_text("f_3403:chicken_2dprofile_2escm"),(void*)f_3403}, {C_text("f_3405:chicken_2dprofile_2escm"),(void*)f_3405}, {C_text("f_3412:chicken_2dprofile_2escm"),(void*)f_3412}, {C_text("f_3438:chicken_2dprofile_2escm"),(void*)f_3438}, {C_text("f_3468:chicken_2dprofile_2escm"),(void*)f_3468}, {C_text("f_3471:chicken_2dprofile_2escm"),(void*)f_3471}, {C_text("f_3479:chicken_2dprofile_2escm"),(void*)f_3479}, {C_text("f_3489:chicken_2dprofile_2escm"),(void*)f_3489}, {C_text("f_3504:chicken_2dprofile_2escm"),(void*)f_3504}, {C_text("f_3515:chicken_2dprofile_2escm"),(void*)f_3515}, {C_text("f_3525:chicken_2dprofile_2escm"),(void*)f_3525}, {C_text("f_3549:chicken_2dprofile_2escm"),(void*)f_3549}, {C_text("f_3578:chicken_2dprofile_2escm"),(void*)f_3578}, {C_text("f_3589:chicken_2dprofile_2escm"),(void*)f_3589}, {C_text("f_3618:chicken_2dprofile_2escm"),(void*)f_3618}, {C_text("f_3637:chicken_2dprofile_2escm"),(void*)f_3637}, {C_text("f_3672:chicken_2dprofile_2escm"),(void*)f_3672}, {C_text("f_3680:chicken_2dprofile_2escm"),(void*)f_3680}, {C_text("f_3705:chicken_2dprofile_2escm"),(void*)f_3705}, {C_text("f_3717:chicken_2dprofile_2escm"),(void*)f_3717}, {C_text("f_3728:chicken_2dprofile_2escm"),(void*)f_3728}, {C_text("f_3732:chicken_2dprofile_2escm"),(void*)f_3732}, {C_text("f_3741:chicken_2dprofile_2escm"),(void*)f_3741}, {C_text("f_3759:chicken_2dprofile_2escm"),(void*)f_3759}, {C_text("f_3766:chicken_2dprofile_2escm"),(void*)f_3766}, {C_text("f_3779:chicken_2dprofile_2escm"),(void*)f_3779}, {C_text("f_3795:chicken_2dprofile_2escm"),(void*)f_3795}, {C_text("f_3797:chicken_2dprofile_2escm"),(void*)f_3797}, {C_text("f_3822:chicken_2dprofile_2escm"),(void*)f_3822}, {C_text("f_3831:chicken_2dprofile_2escm"),(void*)f_3831}, {C_text("f_3852:chicken_2dprofile_2escm"),(void*)f_3852}, {C_text("f_3860:chicken_2dprofile_2escm"),(void*)f_3860}, {C_text("f_3869:chicken_2dprofile_2escm"),(void*)f_3869}, {C_text("f_3880:chicken_2dprofile_2escm"),(void*)f_3880}, {C_text("f_3886:chicken_2dprofile_2escm"),(void*)f_3886}, {C_text("f_3890:chicken_2dprofile_2escm"),(void*)f_3890}, {C_text("toplevel:chicken_2dprofile_2escm"),(void*)C_toplevel}, {C_text("va4314:chicken_2dprofile_2escm"),(void*)va4314}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: main#partition o|hiding unexported module binding: main#span o|hiding unexported module binding: main#take o|hiding unexported module binding: main#drop o|hiding unexported module binding: main#split-at o|hiding unexported module binding: main#append-map o|hiding unexported module binding: main#every o|hiding unexported module binding: main#any o|hiding unexported module binding: main#cons* o|hiding unexported module binding: main#concatenate o|hiding unexported module binding: main#delete o|hiding unexported module binding: main#first o|hiding unexported module binding: main#second o|hiding unexported module binding: main#third o|hiding unexported module binding: main#fourth o|hiding unexported module binding: main#fifth o|hiding unexported module binding: main#delete-duplicates o|hiding unexported module binding: main#alist-cons o|hiding unexported module binding: main#filter o|hiding unexported module binding: main#filter-map o|hiding unexported module binding: main#remove o|hiding unexported module binding: main#unzip1 o|hiding unexported module binding: main#last o|hiding unexported module binding: main#list-index o|hiding unexported module binding: main#lset-adjoin/eq? o|hiding unexported module binding: main#lset-difference/eq? o|hiding unexported module binding: main#lset-union/eq? o|hiding unexported module binding: main#lset-intersection/eq? o|hiding unexported module binding: main#list-tabulate o|hiding unexported module binding: main#lset<=/eq? o|hiding unexported module binding: main#lset=/eq? o|hiding unexported module binding: main#length+ o|hiding unexported module binding: main#find o|hiding unexported module binding: main#find-tail o|hiding unexported module binding: main#iota o|hiding unexported module binding: main#make-list o|hiding unexported module binding: main#posq o|hiding unexported module binding: main#posv o|hiding unexported module binding: main#symbol-table-size o|hiding unexported module binding: main#sort-by o|hiding unexported module binding: main#file o|hiding unexported module binding: main#no-unused o|hiding unexported module binding: main#seconds-digits o|hiding unexported module binding: main#average-digits o|hiding unexported module binding: main#percent-digits o|hiding unexported module binding: main#top o|hiding unexported module binding: main#print-usage o|hiding unexported module binding: main#run o|hiding unexported module binding: main#sort-by-calls o|hiding unexported module binding: main#sort-by-time o|hiding unexported module binding: main#sort-by-avg o|hiding unexported module binding: main#sort-by-name o|hiding unexported module binding: main#set-decimals o|hiding unexported module binding: main#make-symbol-table o|hiding unexported module binding: main#read-profile o|hiding unexported module binding: main#format-string o|hiding unexported module binding: main#format-real o|hiding unexported module binding: main#write-profile S|applied compiler syntax: S| scheme#for-each 1 S| chicken.base#foldl 6 S| scheme#map 9 S| chicken.base#foldr 3 o|eliminated procedure checks: 64 o|folded constant expression: (scheme#char->integer (quote #\0)) o|specializations: o| 1 (scheme#* integer integer) o| 1 (scheme#make-string fixnum char) o| 4 (scheme#/ * *) o| 3 (scheme#number->string *) o| 2 (scheme#string-append string string) o| 1 (scheme#= fixnum fixnum) o| 1 (scheme#= integer integer) o| 2 (scheme#- fixnum fixnum) o| 1 (scheme#char=? char char) o| 1 (scheme#string-ref string fixnum) o| 1 (scheme#> fixnum fixnum) o| 1 (scheme#string-length string) o| 8 (scheme#string=? string string) o| 1 (scheme#> integer integer) o| 3 (scheme#eqv? * *) o| 6 (##sys#check-list (or pair list) *) o| 24 (scheme#cdr pair) o| 7 (scheme#car pair) (o e)|safe calls: 418 (o e)|assignments to immediate values: 5 o|dropping redundant toplevel assignment: main#sort-by o|removed side-effect free assignment to unused variable: main#partition o|removed side-effect free assignment to unused variable: main#span o|inlining procedure: k1383 o|inlining procedure: k1383 o|removed side-effect free assignment to unused variable: main#drop o|removed side-effect free assignment to unused variable: main#split-at o|removed side-effect free assignment to unused variable: main#append-map o|inlining procedure: k1653 o|inlining procedure: k1653 o|inlining procedure: k1684 o|inlining procedure: k1684 o|removed side-effect free assignment to unused variable: main#cons* o|removed side-effect free assignment to unused variable: main#concatenate o|removed side-effect free assignment to unused variable: main#delete-duplicates o|inlining procedure: k1901 o|inlining procedure: k1901 o|inlining procedure: k1893 o|inlining procedure: k1893 o|removed side-effect free assignment to unused variable: main#filter-map o|removed side-effect free assignment to unused variable: main#remove o|removed side-effect free assignment to unused variable: main#unzip1 o|removed side-effect free assignment to unused variable: main#last o|removed side-effect free assignment to unused variable: main#list-index o|removed side-effect free assignment to unused variable: main#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: main#lset-difference/eq? o|removed side-effect free assignment to unused variable: main#lset-union/eq? o|removed side-effect free assignment to unused variable: main#lset-intersection/eq? o|inlining procedure: k2292 o|inlining procedure: k2292 o|removed side-effect free assignment to unused variable: main#lset<=/eq? o|removed side-effect free assignment to unused variable: main#lset=/eq? o|removed side-effect free assignment to unused variable: main#length+ o|removed side-effect free assignment to unused variable: main#find o|removed side-effect free assignment to unused variable: main#find-tail o|removed side-effect free assignment to unused variable: main#iota o|removed side-effect free assignment to unused variable: main#make-list o|removed side-effect free assignment to unused variable: main#posq o|removed side-effect free assignment to unused variable: main#posv o|inlining procedure: k2827 o|inlining procedure: "(chicken-profile.scm:128) main#third" o|inlining procedure: "(chicken-profile.scm:128) main#third" o|inlining procedure: k2827 o|inlining procedure: k2846 o|inlining procedure: k2846 o|inlining procedure: "(chicken-profile.scm:126) main#second" o|inlining procedure: "(chicken-profile.scm:125) main#second" o|inlining procedure: k2861 o|inlining procedure: "(chicken-profile.scm:135) main#second" o|inlining procedure: "(chicken-profile.scm:135) main#second" o|inlining procedure: k2861 o|inlining procedure: "(chicken-profile.scm:133) main#third" o|inlining procedure: "(chicken-profile.scm:132) main#third" o|inlining procedure: k2890 o|inlining procedure: "(chicken-profile.scm:142) main#third" o|inlining procedure: "(chicken-profile.scm:142) main#third" o|inlining procedure: k2890 o|inlining procedure: "(chicken-profile.scm:146) main#first" o|inlining procedure: "(chicken-profile.scm:146) main#first" o|contracted procedure: "(chicken-profile.scm:181) main#alist-cons" o|inlining procedure: k3028 o|inlining procedure: k3028 o|inlining procedure: k3084 o|contracted procedure: "(chicken-profile.scm:175) g648658" o|inlining procedure: k3054 o|inlining procedure: k3054 o|inlining procedure: k3084 o|inlining procedure: "(chicken-profile.scm:176) main#first" o|inlining procedure: "(chicken-profile.scm:174) main#first" o|contracted procedure: "(chicken-profile.scm:168) main#make-symbol-table" o|substituted constant variable: main#symbol-table-size o|inlining procedure: k3163 o|inlining procedure: k3163 o|contracted procedure: "(chicken-profile.scm:262) main#run" o|inlining procedure: k2607 o|contracted procedure: "(chicken-profile.scm:91) main#write-profile" o|inlining procedure: k3407 o|inlining procedure: k3407 o|inlining procedure: k3457 o|inlining procedure: k3457 o|inlining procedure: k3481 o|inlining procedure: k3481 o|substituted constant variable: spacing807 o|substituted constant variable: a3523 o|inlining procedure: k3527 o|inlining procedure: k3527 o|substituted constant variable: g937940 o|inlining procedure: k3551 o|contracted procedure: "(chicken-profile.scm:249) g822823" o|inlining procedure: k3591 o|inlining procedure: k3591 o|inlining procedure: k3639 o|inlining procedure: k3639 o|inlining procedure: k3551 o|substituted constant variable: spacing807 o|substituted constant variable: spacing807 o|substituted constant variable: a3678 o|inlining procedure: k3682 o|contracted procedure: "(chicken-profile.scm:232) g781790" o|substituted constant variable: a3336 o|substituted constant variable: a3342 o|inlining procedure: "(chicken-profile.scm:237) main#first" o|contracted procedure: "(chicken-profile.scm:236) main#fifth" o|contracted procedure: "(chicken-profile.scm:235) main#fourth" o|inlining procedure: "(chicken-profile.scm:234) main#third" o|inlining procedure: "(chicken-profile.scm:233) main#second" o|inlining procedure: k3682 o|inlining procedure: "(chicken-profile.scm:243) main#second" o|inlining procedure: k3767 o|inlining procedure: k3767 o|inlining procedure: k3782 o|inlining procedure: k3782 o|inlining procedure: "(chicken-profile.scm:222) main#third" o|inlining procedure: "(chicken-profile.scm:221) main#second" o|inlining procedure: k3799 o|inlining procedure: k3799 o|inlining procedure: k3833 o|inlining procedure: "(chicken-profile.scm:214) main#third" o|inlining procedure: "(chicken-profile.scm:215) main#third" o|inlining procedure: k3833 o|substituted constant variable: g718721 o|inlining procedure: k2623 o|inlining procedure: k2623 o|inlining procedure: "(chicken-profile.scm:87) main#first" o|inlining procedure: k2657 o|inlining procedure: k2657 o|inlining procedure: k2679 o|inlining procedure: k2679 o|inlining procedure: k2607 o|inlining procedure: k2707 o|inlining procedure: k2707 o|substituted constant variable: a2727 o|substituted constant variable: a2742 o|inlining procedure: k2738 o|inlining procedure: k2738 o|substituted constant variable: a2748 o|substituted constant variable: a2757 o|inlining procedure: k2753 o|inlining procedure: k2753 o|substituted constant variable: a2763 o|substituted constant variable: a2769 o|inlining procedure: k2765 o|inlining procedure: k2765 o|substituted constant variable: a2775 o|substituted constant variable: a2781 o|inlining procedure: k2777 o|contracted procedure: "(chicken-profile.scm:117) main#set-decimals" o|substituted constant variable: a2942 o|inlining procedure: k2943 o|substituted constant variable: a2953 o|inlining procedure: k2943 o|inlining procedure: k2961 o|inlining procedure: k2961 o|substituted constant variable: a2986 o|inlining procedure: k2777 o|inlining procedure: k2798 o|inlining procedure: k2798 o|substituted constant variable: a2811 o|substituted constant variable: a2808 o|substituted constant variable: a2816 o|replaced variables: 255 o|removed binding forms: 139 o|substituted constant variable: r13843903 o|removed side-effect free assignment to unused variable: main#every o|removed side-effect free assignment to unused variable: main#any o|removed side-effect free assignment to unused variable: main#first o|removed side-effect free assignment to unused variable: main#second o|removed side-effect free assignment to unused variable: main#third o|removed side-effect free assignment to unused variable: main#list-tabulate o|removed side-effect free assignment to unused variable: main#symbol-table-size o|substituted constant variable: r28473928 o|substituted constant variable: r30553987 o|substituted constant variable: r34584005 o|substituted constant variable: a3517 o|converted assignments to bindings: (print-row885) o|contracted procedure: "(chicken-profile.scm:243) main#filter" o|substituted constant variable: r18943912 o|substituted constant variable: r37684040 o|substituted constant variable: r37684040 o|substituted constant variable: r37834043 o|inlining procedure: k2695 o|inlining procedure: k2695 o|inlining procedure: k2695 o|inlining procedure: k2695 o|inlining procedure: k2695 o|inlining procedure: k2695 o|converted assignments to bindings: (arg-digit626) o|inlining procedure: k2695 o|simplifications: ((let . 2)) o|replaced variables: 44 o|removed binding forms: 297 o|replaced variables: 10 o|removed binding forms: 74 o|inlining procedure: k3109 o|inlining procedure: k3109 o|inlining procedure: k2682 o|replaced variables: 23 o|removed binding forms: 7 o|substituted constant variable: r31104197 o|substituted constant variable: r31104198 o|substituted constant variable: r26834223 o|removed binding forms: 23 o|removed conditional forms: 1 o|removed binding forms: 3 o|simplifications: ((if . 15) (##core#call . 193)) o| call simplifications: o| scheme#member o| scheme#string=? o| ##sys#size o| chicken.fixnum#fx> o| scheme#string-ref o| scheme#char->integer o| scheme#<= o| scheme#eq? 2 o| scheme#< o| scheme#cddddr o| scheme#not o| scheme#list 9 o| scheme#length 2 o| scheme#- o| scheme#* 2 o| scheme#null? 7 o| scheme#string-length 3 o| chicken.fixnum#fxmax o| scheme#symbol? 2 o| scheme#eof-object? o| scheme#cdr 4 o| ##sys#check-list 12 o| scheme#pair? 15 o| scheme#+ 5 o| ##sys#setslot 6 o| ##sys#slot 36 o| scheme#cadddr 3 o| scheme#= o| scheme#cadr 7 o| scheme#caddr 10 o| scheme#> 11 o| chicken.fixnum#fx<= o| scheme#car 13 o| chicken.fixnum#fx- 2 o| scheme#cons 27 o|contracted procedure: k1386 o|contracted procedure: k1393 o|contracted procedure: k1403 o|contracted procedure: k2595 o|contracted procedure: k2591 o|contracted procedure: k2587 o|contracted procedure: k2583 o|contracted procedure: k2579 o|contracted procedure: k2575 o|contracted procedure: k2571 o|contracted procedure: k2821 o|contracted procedure: k2824 o|contracted procedure: k2836 o|contracted procedure: k2840 o|contracted procedure: k2855 o|contracted procedure: k2858 o|contracted procedure: k2864 o|contracted procedure: k2871 o|contracted procedure: k2875 o|contracted procedure: k2884 o|contracted procedure: k2887 o|contracted procedure: k2899 o|contracted procedure: k2903 o|contracted procedure: k2924 o|contracted procedure: k2928 o|contracted procedure: k3139 o|contracted procedure: k3002 o|contracted procedure: k1878 o|contracted procedure: k3031 o|contracted procedure: k3045 o|contracted procedure: k3049 o|contracted procedure: k3066 o|contracted procedure: k3069 o|contracted procedure: k3072 o|contracted procedure: k3075 o|contracted procedure: k3123 o|contracted procedure: k3087 o|contracted procedure: k3093 o|contracted procedure: k3101 o|contracted procedure: k3105 o|contracted procedure: k3113 o|contracted procedure: k3117 o|contracted procedure: k3109 o|contracted procedure: k3130 o|contracted procedure: k3133 o|contracted procedure: k3202 o|contracted procedure: k3145 o|contracted procedure: k3196 o|contracted procedure: k3148 o|contracted procedure: k3190 o|contracted procedure: k3151 o|contracted procedure: k3184 o|contracted procedure: k3154 o|contracted procedure: k3157 o|contracted procedure: k3181 o|contracted procedure: k3177 o|contracted procedure: k3257 o|contracted procedure: k3222 o|contracted procedure: k3234 o|contracted procedure: k3246 o|contracted procedure: k2610 o|contracted procedure: k3274 o|contracted procedure: k3278 o|contracted procedure: k3291 o|contracted procedure: k3357 o|contracted procedure: k3363 o|contracted procedure: k3366 o|contracted procedure: k3372 o|contracted procedure: k3375 o|contracted procedure: k3392 o|contracted procedure: k3395 o|contracted procedure: k3398 o|contracted procedure: k3413 o|contracted procedure: k3416 o|contracted procedure: k3424 o|contracted procedure: k3428 o|contracted procedure: k3432 o|contracted procedure: k3440 o|contracted procedure: k3444 o|contracted procedure: k3448 o|contracted procedure: k3454 o|contracted procedure: k3460 o|contracted procedure: k3472 o|contracted procedure: k3484 o|contracted procedure: k3494 o|contracted procedure: k3498 o|contracted procedure: k3510 o|contracted procedure: k3520 o|contracted procedure: k3506 o|contracted procedure: k3530 o|contracted procedure: k3537 o|contracted procedure: k3545 o|contracted procedure: k3541 o|contracted procedure: k3554 o|contracted procedure: k3561 o|contracted procedure: k3674 o|contracted procedure: k3567 o|contracted procedure: k3570 o|contracted procedure: k3573 o|contracted procedure: k3579 o|contracted procedure: k3582 o|contracted procedure: k3630 o|contracted procedure: k3594 o|contracted procedure: k3597 o|contracted procedure: k3600 o|contracted procedure: k3608 o|contracted procedure: k3612 o|contracted procedure: k3620 o|contracted procedure: k3624 o|contracted procedure: k3642 o|contracted procedure: k3664 o|contracted procedure: k3660 o|contracted procedure: k3645 o|contracted procedure: k3648 o|contracted procedure: k3656 o|contracted procedure: k3685 o|contracted procedure: k3688 o|contracted procedure: k3691 o|contracted procedure: k3699 o|contracted procedure: k3707 o|contracted procedure: k3296 o|contracted procedure: k3299 o|contracted procedure: k3302 o|contracted procedure: k3343 o|contracted procedure: k3351 o|contracted procedure: k1833 o|contracted procedure: k3723 o|contracted procedure: k1884 o|contracted procedure: k1896 o|contracted procedure: k1914 o|contracted procedure: k1922 o|contracted procedure: k3734 o|contracted procedure: k3738 o|contracted procedure: k3747 o|contracted procedure: k3750 o|contracted procedure: k3760 o|inlining procedure: k3753 o|inlining procedure: k3753 o|contracted procedure: k3770 o|contracted procedure: k3785 o|contracted procedure: k3802 o|contracted procedure: k3805 o|contracted procedure: k3808 o|contracted procedure: k3816 o|contracted procedure: k3824 o|contracted procedure: k3836 o|contracted procedure: k3843 o|contracted procedure: k3857 o|contracted procedure: k3847 o|contracted procedure: k3866 o|contracted procedure: k3875 o|contracted procedure: k3854 o|contracted procedure: k2626 o|inlining procedure: k2623 o|contracted procedure: k2650 o|contracted procedure: k2660 o|contracted procedure: k2666 o|contracted procedure: k2670 o|contracted procedure: k2682 o|contracted procedure: k2701 o|contracted procedure: k2710 o|contracted procedure: k2958 o|contracted procedure: k2939 o|contracted procedure: k2983 o|contracted procedure: k2964 o|contracted procedure: k2813 o|contracted procedure: k2805 o|contracted procedure: k3892 o|contracted procedure: k3896 o|contracted procedure: k3900 o|simplifications: ((if . 1) (##core#call . 2) (let . 23)) o| call simplifications: o| scheme#- 2 o|removed binding forms: 167 o|contracted procedure: k3250 o|substituted constant variable: r3893 o|substituted constant variable: r3897 o|substituted constant variable: r3893 o|substituted constant variable: r3897 o|substituted constant variable: r3901 o|replaced variables: 92 o|removed binding forms: 2 o|inlining procedure: k3018 o|removed binding forms: 57 o|contracted procedure: k3305 o|removed binding forms: 2 o|replaced variables: 5 o|removed binding forms: 1 x|eliminated type checks: x| C_i_check_list_2: 1 o|customizable procedures: (k2792 arg-digit626 next-number594 main#print-usage loop581 next-arg593 k2613 foldl719723 g743752 map-loop737766 k3764 k3287 foldr281284 g286287 main#format-real map-loop775798 map-loop849866 map-loop828873 foldl815819 foldl938942 for-each-loop888949 k3410 map-loop899920 va4314 k3090 map-loop642668 doloop637638 main#take) o|calls to known targets: 69 o|identified direct recursive calls: f_1381 1 o|identified direct recursive calls: f_3525 1 o|identified direct recursive calls: f_3637 1 o|identified direct recursive calls: f_1891 1 o|identified direct recursive calls: f_2605 5 o|fast box initializations: 14 o|fast global references: 28 o|fast global assignments: 28 o|dropping unused closure argument: f_1381 o|dropping unused closure argument: f_2558 o|dropping unused closure argument: f_3209 */ /* end of file */ �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/user-pass.scm�������������������������������������������������������������������������0000644�0001750�0001750�00000003737�13502227553�015373� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; user-pass.scm - User compilation passes ; ; Copyright (c) 2008-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit user-pass)) (module chicken.compiler.user-pass (user-options-pass user-read-pass user-preprocessor-pass user-pass user-post-analysis-pass) (import scheme chicken.base) (define user-options-pass (make-parameter #f)) (define user-read-pass (make-parameter #f)) (define user-preprocessor-pass (make-parameter #f)) (define user-pass (make-parameter #f)) (define user-post-analysis-pass (make-parameter #f))) ���������������������������������chicken-5.1.0/common-declarations.scm���������������������������������������������������������������0000644�0001750�0001750�00000004021�13502227553�017372� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; common-declarations.scm - settings for core libraries ; ; Copyright (c) 2011-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (usual-integrations)) (cond-expand (debugbuild (define-syntax d (syntax-rules () ((_ arg ...) (when (##sys#debug-mode?) (print arg ...)))))) (else (begin (declare (safe-globals) (no-bound-checks)) (define-syntax d (syntax-rules () ((_ . _) (void))))))) (define-syntax define-alias (syntax-rules () ((_ new old) (define-syntax new (syntax-rules ___ () ((_ args ___) (old args ___))))))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/csi.c���������������������������������������������������������������������������������0000644�0001750�0001750�00002257273�13502227777�013707� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from csi.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: csi.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -output-file csi.c uses: library eval expand extras file internal pathname port posix repl data-structures */ #include "chicken.h" #include <signal.h> #if defined(HAVE_DIRECT_H) # include <direct.h> #else # define _getcwd(buf, len) NULL #endif static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_file_toplevel) C_externimport void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_port_toplevel) C_externimport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_posix_toplevel) C_externimport void C_ccall C_posix_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_repl_toplevel) C_externimport void C_ccall C_repl_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[404]; static double C_possibly_force_alignment; /* from k3941 */ C_regparm static C_word C_fcall stub712(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_data_pointer_or_null(C_a0); int t1=(int )C_unfix(C_a1); C_r=C_mpointer(&C_a,(void*)_getcwd(t0,t1)); return C_r;} C_noret_decl(f9399) static void C_ccall f9399(C_word c,C_word *av) C_noret; C_noret_decl(f9440) static void C_ccall f9440(C_word c,C_word *av) C_noret; C_noret_decl(f9458) static void C_ccall f9458(C_word c,C_word *av) C_noret; C_noret_decl(f9462) static void C_ccall f9462(C_word c,C_word *av) C_noret; C_noret_decl(f_2516) static void C_ccall f_2516(C_word c,C_word *av) C_noret; C_noret_decl(f_2519) static void C_ccall f_2519(C_word c,C_word *av) C_noret; C_noret_decl(f_2522) static void C_ccall f_2522(C_word c,C_word *av) C_noret; C_noret_decl(f_2525) static void C_ccall f_2525(C_word c,C_word *av) C_noret; C_noret_decl(f_2528) static void C_ccall f_2528(C_word c,C_word *av) C_noret; C_noret_decl(f_2531) static void C_ccall f_2531(C_word c,C_word *av) C_noret; C_noret_decl(f_2534) static void C_ccall f_2534(C_word c,C_word *av) C_noret; C_noret_decl(f_2537) static void C_ccall f_2537(C_word c,C_word *av) C_noret; C_noret_decl(f_2540) static void C_ccall f_2540(C_word c,C_word *av) C_noret; C_noret_decl(f_2543) static void C_ccall f_2543(C_word c,C_word *av) C_noret; C_noret_decl(f_2546) static void C_ccall f_2546(C_word c,C_word *av) C_noret; C_noret_decl(f_2549) static void C_ccall f_2549(C_word c,C_word *av) C_noret; C_noret_decl(f_3047) static void C_fcall f_3047(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3060) static void C_ccall f_3060(C_word c,C_word *av) C_noret; C_noret_decl(f_3074) static void C_ccall f_3074(C_word c,C_word *av) C_noret; C_noret_decl(f_3122) static void C_fcall f_3122(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3136) static void C_ccall f_3136(C_word c,C_word *av) C_noret; C_noret_decl(f_3149) static void C_ccall f_3149(C_word c,C_word *av) C_noret; C_noret_decl(f_3839) static void C_ccall f_3839(C_word c,C_word *av) C_noret; C_noret_decl(f_3844) static void C_ccall f_3844(C_word c,C_word *av) C_noret; C_noret_decl(f_3847) static void C_fcall f_3847(C_word t0,C_word t1) C_noret; C_noret_decl(f_3853) static void C_ccall f_3853(C_word c,C_word *av) C_noret; C_noret_decl(f_3856) static void C_ccall f_3856(C_word c,C_word *av) C_noret; C_noret_decl(f_3863) static void C_ccall f_3863(C_word c,C_word *av) C_noret; C_noret_decl(f_3887) static void C_ccall f_3887(C_word c,C_word *av) C_noret; C_noret_decl(f_3902) static void C_ccall f_3902(C_word c,C_word *av) C_noret; C_noret_decl(f_3916) static void C_ccall f_3916(C_word c,C_word *av) C_noret; C_noret_decl(f_3929) static void C_ccall f_3929(C_word c,C_word *av) C_noret; C_noret_decl(f_3948) static void C_fcall f_3948(C_word t0,C_word t1) C_noret; C_noret_decl(f_3955) static void C_ccall f_3955(C_word c,C_word *av) C_noret; C_noret_decl(f_3958) static void C_ccall f_3958(C_word c,C_word *av) C_noret; C_noret_decl(f_3964) static void C_ccall f_3964(C_word c,C_word *av) C_noret; C_noret_decl(f_3977) static void C_fcall f_3977(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3990) static void C_ccall f_3990(C_word c,C_word *av) C_noret; C_noret_decl(f_3999) static void C_fcall f_3999(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4003) static void C_ccall f_4003(C_word c,C_word *av) C_noret; C_noret_decl(f_4015) static void C_ccall f_4015(C_word c,C_word *av) C_noret; C_noret_decl(f_4024) static void C_ccall f_4024(C_word c,C_word *av) C_noret; C_noret_decl(f_4027) static void C_ccall f_4027(C_word c,C_word *av) C_noret; C_noret_decl(f_4034) static void C_ccall f_4034(C_word c,C_word *av) C_noret; C_noret_decl(f_4038) static void C_ccall f_4038(C_word c,C_word *av) C_noret; C_noret_decl(f_4041) static void C_ccall f_4041(C_word c,C_word *av) C_noret; C_noret_decl(f_4047) static void C_ccall f_4047(C_word c,C_word *av) C_noret; C_noret_decl(f_4054) static void C_ccall f_4054(C_word c,C_word *av) C_noret; C_noret_decl(f_4056) static void C_fcall f_4056(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4066) static void C_ccall f_4066(C_word c,C_word *av) C_noret; C_noret_decl(f_4069) static void C_ccall f_4069(C_word c,C_word *av) C_noret; C_noret_decl(f_4083) static void C_ccall f_4083(C_word c,C_word *av) C_noret; C_noret_decl(f_4106) static void C_fcall f_4106(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4116) static void C_fcall f_4116(C_word t0,C_word t1) C_noret; C_noret_decl(f_4130) static void C_ccall f_4130(C_word c,C_word *av) C_noret; C_noret_decl(f_4161) static void C_fcall f_4161(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4174) static void C_ccall f_4174(C_word c,C_word *av) C_noret; C_noret_decl(f_4177) static void C_ccall f_4177(C_word c,C_word *av) C_noret; C_noret_decl(f_4180) static void C_ccall f_4180(C_word c,C_word *av) C_noret; C_noret_decl(f_4183) static void C_ccall f_4183(C_word c,C_word *av) C_noret; C_noret_decl(f_4186) static void C_ccall f_4186(C_word c,C_word *av) C_noret; C_noret_decl(f_4195) static void C_ccall f_4195(C_word c,C_word *av) C_noret; C_noret_decl(f_4205) static void C_fcall f_4205(C_word t0,C_word t1) C_noret; C_noret_decl(f_4209) static void C_ccall f_4209(C_word c,C_word *av) C_noret; C_noret_decl(f_4232) static void C_ccall f_4232(C_word c,C_word *av) C_noret; C_noret_decl(f_4249) static void C_ccall f_4249(C_word c,C_word *av) C_noret; C_noret_decl(f_4261) static void C_ccall f_4261(C_word c,C_word *av) C_noret; C_noret_decl(f_4269) static void C_ccall f_4269(C_word c,C_word *av) C_noret; C_noret_decl(f_4272) static void C_ccall f_4272(C_word c,C_word *av) C_noret; C_noret_decl(f_4284) static void C_ccall f_4284(C_word c,C_word *av) C_noret; C_noret_decl(f_4291) static void C_ccall f_4291(C_word c,C_word *av) C_noret; C_noret_decl(f_4297) static void C_ccall f_4297(C_word c,C_word *av) C_noret; C_noret_decl(f_4317) static C_word C_fcall f_4317(C_word *a,C_word t0,C_word t1); C_noret_decl(f_4347) static void C_ccall f_4347(C_word c,C_word *av) C_noret; C_noret_decl(f_4363) static void C_fcall f_4363(C_word t0,C_word t1) C_noret; C_noret_decl(f_4380) static void C_ccall f_4380(C_word c,C_word *av) C_noret; C_noret_decl(f_4395) static void C_ccall f_4395(C_word c,C_word *av) C_noret; C_noret_decl(f_4398) static void C_ccall f_4398(C_word c,C_word *av) C_noret; C_noret_decl(f_4405) static void C_ccall f_4405(C_word c,C_word *av) C_noret; C_noret_decl(f_4409) static void C_ccall f_4409(C_word c,C_word *av) C_noret; C_noret_decl(f_4418) static void C_ccall f_4418(C_word c,C_word *av) C_noret; C_noret_decl(f_4421) static void C_ccall f_4421(C_word c,C_word *av) C_noret; C_noret_decl(f_4424) static void C_ccall f_4424(C_word c,C_word *av) C_noret; C_noret_decl(f_4436) static void C_ccall f_4436(C_word c,C_word *av) C_noret; C_noret_decl(f_4439) static void C_ccall f_4439(C_word c,C_word *av) C_noret; C_noret_decl(f_4451) static void C_ccall f_4451(C_word c,C_word *av) C_noret; C_noret_decl(f_4454) static void C_ccall f_4454(C_word c,C_word *av) C_noret; C_noret_decl(f_4466) static void C_ccall f_4466(C_word c,C_word *av) C_noret; C_noret_decl(f_4469) static void C_ccall f_4469(C_word c,C_word *av) C_noret; C_noret_decl(f_4472) static void C_ccall f_4472(C_word c,C_word *av) C_noret; C_noret_decl(f_4475) static void C_ccall f_4475(C_word c,C_word *av) C_noret; C_noret_decl(f_4505) static void C_ccall f_4505(C_word c,C_word *av) C_noret; C_noret_decl(f_4508) static void C_ccall f_4508(C_word c,C_word *av) C_noret; C_noret_decl(f_4513) static void C_fcall f_4513(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4523) static void C_ccall f_4523(C_word c,C_word *av) C_noret; C_noret_decl(f_4538) static void C_ccall f_4538(C_word c,C_word *av) C_noret; C_noret_decl(f_4547) static void C_ccall f_4547(C_word c,C_word *av) C_noret; C_noret_decl(f_4548) static void C_fcall f_4548(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4554) static void C_ccall f_4554(C_word c,C_word *av) C_noret; C_noret_decl(f_4558) static void C_ccall f_4558(C_word c,C_word *av) C_noret; C_noret_decl(f_4564) static void C_ccall f_4564(C_word c,C_word *av) C_noret; C_noret_decl(f_4569) static void C_fcall f_4569(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4579) static void C_ccall f_4579(C_word c,C_word *av) C_noret; C_noret_decl(f_4594) static void C_ccall f_4594(C_word c,C_word *av) C_noret; C_noret_decl(f_4603) static void C_ccall f_4603(C_word c,C_word *av) C_noret; C_noret_decl(f_4608) static void C_ccall f_4608(C_word c,C_word *av) C_noret; C_noret_decl(f_4612) static void C_ccall f_4612(C_word c,C_word *av) C_noret; C_noret_decl(f_4617) static void C_ccall f_4617(C_word c,C_word *av) C_noret; C_noret_decl(f_4623) static void C_ccall f_4623(C_word c,C_word *av) C_noret; C_noret_decl(f_4627) static void C_ccall f_4627(C_word c,C_word *av) C_noret; C_noret_decl(f_4634) static void C_ccall f_4634(C_word c,C_word *av) C_noret; C_noret_decl(f_4636) static void C_ccall f_4636(C_word c,C_word *av) C_noret; C_noret_decl(f_4640) static void C_ccall f_4640(C_word c,C_word *av) C_noret; C_noret_decl(f_4655) static void C_ccall f_4655(C_word c,C_word *av) C_noret; C_noret_decl(f_4671) static void C_ccall f_4671(C_word c,C_word *av) C_noret; C_noret_decl(f_4689) static void C_ccall f_4689(C_word c,C_word *av) C_noret; C_noret_decl(f_4693) static void C_ccall f_4693(C_word c,C_word *av) C_noret; C_noret_decl(f_4700) static void C_ccall f_4700(C_word c,C_word *av) C_noret; C_noret_decl(f_4709) static void C_ccall f_4709(C_word c,C_word *av) C_noret; C_noret_decl(f_4721) static void C_ccall f_4721(C_word c,C_word *av) C_noret; C_noret_decl(f_4733) static void C_ccall f_4733(C_word c,C_word *av) C_noret; C_noret_decl(f_4745) static void C_ccall f_4745(C_word c,C_word *av) C_noret; C_noret_decl(f_4752) static void C_ccall f_4752(C_word c,C_word *av) C_noret; C_noret_decl(f_4765) static void C_ccall f_4765(C_word c,C_word *av) C_noret; C_noret_decl(f_4774) static void C_ccall f_4774(C_word c,C_word *av) C_noret; C_noret_decl(f_4777) static void C_ccall f_4777(C_word c,C_word *av) C_noret; C_noret_decl(f_4780) static void C_ccall f_4780(C_word c,C_word *av) C_noret; C_noret_decl(f_4793) static void C_ccall f_4793(C_word c,C_word *av) C_noret; C_noret_decl(f_4815) static void C_ccall f_4815(C_word c,C_word *av) C_noret; C_noret_decl(f_4820) static void C_fcall f_4820(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4830) static void C_ccall f_4830(C_word c,C_word *av) C_noret; C_noret_decl(f_4844) static void C_ccall f_4844(C_word c,C_word *av) C_noret; C_noret_decl(f_4890) static void C_ccall f_4890(C_word c,C_word *av) C_noret; C_noret_decl(f_4896) static void C_ccall f_4896(C_word c,C_word *av) C_noret; C_noret_decl(f_4900) static void C_ccall f_4900(C_word c,C_word *av) C_noret; C_noret_decl(f_4916) static void C_ccall f_4916(C_word c,C_word *av) C_noret; C_noret_decl(f_4922) static void C_ccall f_4922(C_word c,C_word *av) C_noret; C_noret_decl(f_4936) static void C_ccall f_4936(C_word c,C_word *av) C_noret; C_noret_decl(f_4939) static void C_ccall f_4939(C_word c,C_word *av) C_noret; C_noret_decl(f_4945) static void C_ccall f_4945(C_word c,C_word *av) C_noret; C_noret_decl(f_4948) static void C_ccall f_4948(C_word c,C_word *av) C_noret; C_noret_decl(f_4956) static void C_fcall f_4956(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4981) static void C_ccall f_4981(C_word c,C_word *av) C_noret; C_noret_decl(f_4990) static void C_ccall f_4990(C_word c,C_word *av) C_noret; C_noret_decl(f_4996) static void C_ccall f_4996(C_word c,C_word *av) C_noret; C_noret_decl(f_5002) static void C_ccall f_5002(C_word c,C_word *av) C_noret; C_noret_decl(f_5008) static void C_ccall f_5008(C_word c,C_word *av) C_noret; C_noret_decl(f_5014) static void C_ccall f_5014(C_word c,C_word *av) C_noret; C_noret_decl(f_5022) static void C_ccall f_5022(C_word c,C_word *av) C_noret; C_noret_decl(f_5024) static void C_fcall f_5024(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5041) static void C_ccall f_5041(C_word c,C_word *av) C_noret; C_noret_decl(f_5047) static void C_ccall f_5047(C_word c,C_word *av) C_noret; C_noret_decl(f_5053) static void C_ccall f_5053(C_word c,C_word *av) C_noret; C_noret_decl(f_5061) static void C_ccall f_5061(C_word c,C_word *av) C_noret; C_noret_decl(f_5062) static void C_fcall f_5062(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5070) static void C_fcall f_5070(C_word t0,C_word t1) C_noret; C_noret_decl(f_5072) static void C_ccall f_5072(C_word c,C_word *av) C_noret; C_noret_decl(f_5076) static void C_ccall f_5076(C_word c,C_word *av) C_noret; C_noret_decl(f_5079) static void C_ccall f_5079(C_word c,C_word *av) C_noret; C_noret_decl(f_5082) static void C_ccall f_5082(C_word c,C_word *av) C_noret; C_noret_decl(f_5084) static void C_fcall f_5084(C_word t0,C_word t1) C_noret; C_noret_decl(f_5092) static void C_ccall f_5092(C_word c,C_word *av) C_noret; C_noret_decl(f_5100) static void C_ccall f_5100(C_word c,C_word *av) C_noret; C_noret_decl(f_5103) static void C_ccall f_5103(C_word c,C_word *av) C_noret; C_noret_decl(f_5104) static void C_fcall f_5104(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5108) static void C_ccall f_5108(C_word c,C_word *av) C_noret; C_noret_decl(f_5118) static void C_fcall f_5118(C_word t0,C_word t1) C_noret; C_noret_decl(f_5127) static void C_ccall f_5127(C_word c,C_word *av) C_noret; C_noret_decl(f_5135) static void C_ccall f_5135(C_word c,C_word *av) C_noret; C_noret_decl(f_5150) static void C_ccall f_5150(C_word c,C_word *av) C_noret; C_noret_decl(f_5153) static void C_ccall f_5153(C_word c,C_word *av) C_noret; C_noret_decl(f_5156) static void C_ccall f_5156(C_word c,C_word *av) C_noret; C_noret_decl(f_5159) static void C_ccall f_5159(C_word c,C_word *av) C_noret; C_noret_decl(f_5166) static void C_ccall f_5166(C_word c,C_word *av) C_noret; C_noret_decl(f_5174) static void C_ccall f_5174(C_word c,C_word *av) C_noret; C_noret_decl(f_5178) static void C_ccall f_5178(C_word c,C_word *av) C_noret; C_noret_decl(f_5182) static void C_ccall f_5182(C_word c,C_word *av) C_noret; C_noret_decl(f_5186) static void C_ccall f_5186(C_word c,C_word *av) C_noret; C_noret_decl(f_5190) static void C_ccall f_5190(C_word c,C_word *av) C_noret; C_noret_decl(f_5194) static void C_ccall f_5194(C_word c,C_word *av) C_noret; C_noret_decl(f_5198) static void C_ccall f_5198(C_word c,C_word *av) C_noret; C_noret_decl(f_5202) static void C_ccall f_5202(C_word c,C_word *av) C_noret; C_noret_decl(f_5230) static void C_ccall f_5230(C_word c,C_word *av) C_noret; C_noret_decl(f_5242) static void C_ccall f_5242(C_word c,C_word *av) C_noret; C_noret_decl(f_5245) static void C_ccall f_5245(C_word c,C_word *av) C_noret; C_noret_decl(f_5247) static void C_fcall f_5247(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5257) static void C_ccall f_5257(C_word c,C_word *av) C_noret; C_noret_decl(f_5278) static void C_ccall f_5278(C_word c,C_word *av) C_noret; C_noret_decl(f_5280) static void C_fcall f_5280(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5305) static void C_ccall f_5305(C_word c,C_word *av) C_noret; C_noret_decl(f_5325) static C_word C_fcall f_5325(C_word t0,C_word t1); C_noret_decl(f_5360) static C_word C_fcall f_5360(C_word t0); C_noret_decl(f_5390) static void C_ccall f_5390(C_word c,C_word *av) C_noret; C_noret_decl(f_5392) static void C_fcall f_5392(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5398) static void C_ccall f_5398(C_word c,C_word *av) C_noret; C_noret_decl(f_5405) static void C_ccall f_5405(C_word c,C_word *av) C_noret; C_noret_decl(f_5410) static void C_fcall f_5410(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5433) static void C_ccall f_5433(C_word c,C_word *av) C_noret; C_noret_decl(f_5442) static void C_fcall f_5442(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5452) static void C_ccall f_5452(C_word c,C_word *av) C_noret; C_noret_decl(f_5455) static void C_ccall f_5455(C_word c,C_word *av) C_noret; C_noret_decl(f_5484) static void C_ccall f_5484(C_word c,C_word *av) C_noret; C_noret_decl(f_5512) static void C_ccall f_5512(C_word c,C_word *av) C_noret; C_noret_decl(f_5527) static void C_ccall f_5527(C_word c,C_word *av) C_noret; C_noret_decl(f_5530) static void C_ccall f_5530(C_word c,C_word *av) C_noret; C_noret_decl(f_5533) static void C_ccall f_5533(C_word c,C_word *av) C_noret; C_noret_decl(f_5599) static void C_ccall f_5599(C_word c,C_word *av) C_noret; C_noret_decl(f_5605) static void C_ccall f_5605(C_word c,C_word *av) C_noret; C_noret_decl(f_5696) static void C_ccall f_5696(C_word c,C_word *av) C_noret; C_noret_decl(f_5703) static void C_ccall f_5703(C_word c,C_word *av) C_noret; C_noret_decl(f_5712) static void C_ccall f_5712(C_word c,C_word *av) C_noret; C_noret_decl(f_5715) static void C_ccall f_5715(C_word c,C_word *av) C_noret; C_noret_decl(f_5727) static void C_ccall f_5727(C_word c,C_word *av) C_noret; C_noret_decl(f_5732) static void C_fcall f_5732(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5742) static void C_ccall f_5742(C_word c,C_word *av) C_noret; C_noret_decl(f_5745) static void C_ccall f_5745(C_word c,C_word *av) C_noret; C_noret_decl(f_5748) static void C_ccall f_5748(C_word c,C_word *av) C_noret; C_noret_decl(f_5757) static void C_ccall f_5757(C_word c,C_word *av) C_noret; C_noret_decl(f_5777) static void C_ccall f_5777(C_word c,C_word *av) C_noret; C_noret_decl(f_5780) static void C_ccall f_5780(C_word c,C_word *av) C_noret; C_noret_decl(f_5783) static void C_ccall f_5783(C_word c,C_word *av) C_noret; C_noret_decl(f_5795) static void C_fcall f_5795(C_word t0,C_word t1) C_noret; C_noret_decl(f_5798) static void C_ccall f_5798(C_word c,C_word *av) C_noret; C_noret_decl(f_5807) static void C_fcall f_5807(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5838) static void C_ccall f_5838(C_word c,C_word *av) C_noret; C_noret_decl(f_5902) static void C_ccall f_5902(C_word c,C_word *av) C_noret; C_noret_decl(f_5906) static void C_ccall f_5906(C_word c,C_word *av) C_noret; C_noret_decl(f_5912) static void C_ccall f_5912(C_word c,C_word *av) C_noret; C_noret_decl(f_5931) static void C_ccall f_5931(C_word c,C_word *av) C_noret; C_noret_decl(f_5940) static void C_ccall f_5940(C_word c,C_word *av) C_noret; C_noret_decl(f_5947) static void C_ccall f_5947(C_word c,C_word *av) C_noret; C_noret_decl(f_6064) static void C_ccall f_6064(C_word c,C_word *av) C_noret; C_noret_decl(f_6070) static void C_ccall f_6070(C_word c,C_word *av) C_noret; C_noret_decl(f_6076) static void C_ccall f_6076(C_word c,C_word *av) C_noret; C_noret_decl(f_6089) static void C_ccall f_6089(C_word c,C_word *av) C_noret; C_noret_decl(f_6101) static void C_ccall f_6101(C_word c,C_word *av) C_noret; C_noret_decl(f_6104) static void C_ccall f_6104(C_word c,C_word *av) C_noret; C_noret_decl(f_6115) static void C_fcall f_6115(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6123) static void C_fcall f_6123(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6144) static void C_ccall f_6144(C_word c,C_word *av) C_noret; C_noret_decl(f_6153) static void C_fcall f_6153(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6163) static void C_ccall f_6163(C_word c,C_word *av) C_noret; C_noret_decl(f_6198) static void C_ccall f_6198(C_word c,C_word *av) C_noret; C_noret_decl(f_6199) static void C_fcall f_6199(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6203) static void C_ccall f_6203(C_word c,C_word *av) C_noret; C_noret_decl(f_6212) static void C_fcall f_6212(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6222) static void C_ccall f_6222(C_word c,C_word *av) C_noret; C_noret_decl(f_6235) static void C_ccall f_6235(C_word c,C_word *av) C_noret; C_noret_decl(f_6240) static void C_ccall f_6240(C_word c,C_word *av) C_noret; C_noret_decl(f_6267) static void C_fcall f_6267(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6277) static void C_ccall f_6277(C_word c,C_word *av) C_noret; C_noret_decl(f_6304) static void C_ccall f_6304(C_word c,C_word *av) C_noret; C_noret_decl(f_6308) static void C_fcall f_6308(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6322) static void C_fcall f_6322(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6330) static void C_ccall f_6330(C_word c,C_word *av) C_noret; C_noret_decl(f_6343) static void C_ccall f_6343(C_word c,C_word *av) C_noret; C_noret_decl(f_6349) static void C_fcall f_6349(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6374) static void C_ccall f_6374(C_word c,C_word *av) C_noret; C_noret_decl(f_6387) static void C_ccall f_6387(C_word c,C_word *av) C_noret; C_noret_decl(f_6414) static void C_ccall f_6414(C_word c,C_word *av) C_noret; C_noret_decl(f_6422) static void C_ccall f_6422(C_word c,C_word *av) C_noret; C_noret_decl(f_6431) static void C_fcall f_6431(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6433) static void C_fcall f_6433(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6436) static void C_fcall f_6436(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6458) static void C_ccall f_6458(C_word c,C_word *av) C_noret; C_noret_decl(f_6465) static void C_ccall f_6465(C_word c,C_word *av) C_noret; C_noret_decl(f_6482) static void C_ccall f_6482(C_word c,C_word *av) C_noret; C_noret_decl(f_6501) static void C_fcall f_6501(C_word t0,C_word t1) C_noret; C_noret_decl(f_6511) static void C_ccall f_6511(C_word c,C_word *av) C_noret; C_noret_decl(f_6539) static void C_fcall f_6539(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6544) static void C_fcall f_6544(C_word t0,C_word t1) C_noret; C_noret_decl(f_6579) static void C_fcall f_6579(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6582) static void C_fcall f_6582(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6586) static void C_ccall f_6586(C_word c,C_word *av) C_noret; C_noret_decl(f_6602) static void C_ccall f_6602(C_word c,C_word *av) C_noret; C_noret_decl(f_6614) static void C_fcall f_6614(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6624) static void C_ccall f_6624(C_word c,C_word *av) C_noret; C_noret_decl(f_6627) static void C_ccall f_6627(C_word c,C_word *av) C_noret; C_noret_decl(f_6630) static void C_ccall f_6630(C_word c,C_word *av) C_noret; C_noret_decl(f_6633) static void C_ccall f_6633(C_word c,C_word *av) C_noret; C_noret_decl(f_6636) static void C_ccall f_6636(C_word c,C_word *av) C_noret; C_noret_decl(f_6639) static void C_ccall f_6639(C_word c,C_word *av) C_noret; C_noret_decl(f_6648) static void C_fcall f_6648(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6661) static void C_ccall f_6661(C_word c,C_word *av) C_noret; C_noret_decl(f_6664) static void C_ccall f_6664(C_word c,C_word *av) C_noret; C_noret_decl(f_6699) static void C_fcall f_6699(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6733) static void C_fcall f_6733(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6743) static void C_ccall f_6743(C_word c,C_word *av) C_noret; C_noret_decl(f_6753) static void C_ccall f_6753(C_word c,C_word *av) C_noret; C_noret_decl(f_6756) static void C_ccall f_6756(C_word c,C_word *av) C_noret; C_noret_decl(f_6771) static void C_ccall f_6771(C_word c,C_word *av) C_noret; C_noret_decl(f_6775) static void C_ccall f_6775(C_word c,C_word *av) C_noret; C_noret_decl(f_6782) static void C_ccall f_6782(C_word c,C_word *av) C_noret; C_noret_decl(f_6784) static void C_fcall f_6784(C_word t0,C_word t1) C_noret; C_noret_decl(f_6787) static void C_fcall f_6787(C_word t0,C_word t1) C_noret; C_noret_decl(f_6793) static void C_ccall f_6793(C_word c,C_word *av) C_noret; C_noret_decl(f_6810) static void C_fcall f_6810(C_word t0,C_word t1) C_noret; C_noret_decl(f_6819) static void C_fcall f_6819(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6850) static void C_ccall f_6850(C_word c,C_word *av) C_noret; C_noret_decl(f_6853) static void C_ccall f_6853(C_word c,C_word *av) C_noret; C_noret_decl(f_6856) static void C_ccall f_6856(C_word c,C_word *av) C_noret; C_noret_decl(f_6859) static void C_ccall f_6859(C_word c,C_word *av) C_noret; C_noret_decl(f_6862) static void C_ccall f_6862(C_word c,C_word *av) C_noret; C_noret_decl(f_6865) static void C_ccall f_6865(C_word c,C_word *av) C_noret; C_noret_decl(f_6868) static void C_ccall f_6868(C_word c,C_word *av) C_noret; C_noret_decl(f_6871) static void C_ccall f_6871(C_word c,C_word *av) C_noret; C_noret_decl(f_6874) static void C_ccall f_6874(C_word c,C_word *av) C_noret; C_noret_decl(f_6877) static void C_ccall f_6877(C_word c,C_word *av) C_noret; C_noret_decl(f_6880) static void C_ccall f_6880(C_word c,C_word *av) C_noret; C_noret_decl(f_6893) static void C_fcall f_6893(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6903) static void C_ccall f_6903(C_word c,C_word *av) C_noret; C_noret_decl(f_6908) static void C_fcall f_6908(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6921) static void C_ccall f_6921(C_word c,C_word *av) C_noret; C_noret_decl(f_6924) static void C_ccall f_6924(C_word c,C_word *av) C_noret; C_noret_decl(f_6927) static void C_ccall f_6927(C_word c,C_word *av) C_noret; C_noret_decl(f_6930) static void C_ccall f_6930(C_word c,C_word *av) C_noret; C_noret_decl(f_6933) static void C_ccall f_6933(C_word c,C_word *av) C_noret; C_noret_decl(f_6967) static void C_fcall f_6967(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6977) static void C_ccall f_6977(C_word c,C_word *av) C_noret; C_noret_decl(f_7011) static void C_ccall f_7011(C_word c,C_word *av) C_noret; C_noret_decl(f_7014) static void C_ccall f_7014(C_word c,C_word *av) C_noret; C_noret_decl(f_7028) static void C_fcall f_7028(C_word t0,C_word t1) C_noret; C_noret_decl(f_7069) static void C_fcall f_7069(C_word t0,C_word t1) C_noret; C_noret_decl(f_7126) static void C_fcall f_7126(C_word t0,C_word t1) C_noret; C_noret_decl(f_7128) static void C_fcall f_7128(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7139) static void C_ccall f_7139(C_word c,C_word *av) C_noret; C_noret_decl(f_7159) static void C_ccall f_7159(C_word c,C_word *av) C_noret; C_noret_decl(f_7162) static void C_fcall f_7162(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7166) static void C_ccall f_7166(C_word c,C_word *av) C_noret; C_noret_decl(f_7169) static void C_ccall f_7169(C_word c,C_word *av) C_noret; C_noret_decl(f_7181) static void C_fcall f_7181(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7206) static void C_ccall f_7206(C_word c,C_word *av) C_noret; C_noret_decl(f_7215) static void C_fcall f_7215(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7221) static void C_fcall f_7221(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7231) static void C_ccall f_7231(C_word c,C_word *av) C_noret; C_noret_decl(f_7243) static void C_ccall f_7243(C_word c,C_word *av) C_noret; C_noret_decl(f_7246) static void C_ccall f_7246(C_word c,C_word *av) C_noret; C_noret_decl(f_7249) static void C_ccall f_7249(C_word c,C_word *av) C_noret; C_noret_decl(f_7252) static void C_ccall f_7252(C_word c,C_word *av) C_noret; C_noret_decl(f_7255) static void C_ccall f_7255(C_word c,C_word *av) C_noret; C_noret_decl(f_7291) static void C_ccall f_7291(C_word c,C_word *av) C_noret; C_noret_decl(f_7298) static void C_ccall f_7298(C_word c,C_word *av) C_noret; C_noret_decl(f_7300) static void C_fcall f_7300(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7310) static void C_ccall f_7310(C_word c,C_word *av) C_noret; C_noret_decl(f_7353) static void C_ccall f_7353(C_word c,C_word *av) C_noret; C_noret_decl(f_7358) static void C_fcall f_7358(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7364) static void C_fcall f_7364(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7376) static void C_fcall f_7376(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7413) static void C_fcall f_7413(C_word t0,C_word t1) C_noret; C_noret_decl(f_7419) static void C_fcall f_7419(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7441) static void C_fcall f_7441(C_word t0,C_word t1) C_noret; C_noret_decl(f_7455) static void C_ccall f_7455(C_word c,C_word *av) C_noret; C_noret_decl(f_7476) static void C_ccall f_7476(C_word c,C_word *av) C_noret; C_noret_decl(f_7480) static void C_ccall f_7480(C_word c,C_word *av) C_noret; C_noret_decl(f_7484) static void C_fcall f_7484(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7523) static void C_ccall f_7523(C_word c,C_word *av) C_noret; C_noret_decl(f_7531) static void C_ccall f_7531(C_word c,C_word *av) C_noret; C_noret_decl(f_7562) static C_word C_fcall f_7562(C_word t0); C_noret_decl(f_7592) static void C_ccall f_7592(C_word c,C_word *av) C_noret; C_noret_decl(f_7595) static void C_ccall f_7595(C_word c,C_word *av) C_noret; C_noret_decl(f_7598) static void C_ccall f_7598(C_word c,C_word *av) C_noret; C_noret_decl(f_7601) static void C_ccall f_7601(C_word c,C_word *av) C_noret; C_noret_decl(f_7604) static void C_fcall f_7604(C_word t0,C_word t1) C_noret; C_noret_decl(f_7607) static void C_ccall f_7607(C_word c,C_word *av) C_noret; C_noret_decl(f_7610) static void C_fcall f_7610(C_word t0,C_word t1) C_noret; C_noret_decl(f_7613) static void C_ccall f_7613(C_word c,C_word *av) C_noret; C_noret_decl(f_7616) static void C_fcall f_7616(C_word t0,C_word t1) C_noret; C_noret_decl(f_7622) static void C_ccall f_7622(C_word c,C_word *av) C_noret; C_noret_decl(f_7628) static void C_ccall f_7628(C_word c,C_word *av) C_noret; C_noret_decl(f_7630) static void C_fcall f_7630(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7636) static void C_fcall f_7636(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7644) static void C_fcall f_7644(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7665) static void C_ccall f_7665(C_word c,C_word *av) C_noret; C_noret_decl(f_7681) static void C_ccall f_7681(C_word c,C_word *av) C_noret; C_noret_decl(f_7684) static void C_ccall f_7684(C_word c,C_word *av) C_noret; C_noret_decl(f_7687) static void C_ccall f_7687(C_word c,C_word *av) C_noret; C_noret_decl(f_7690) static void C_ccall f_7690(C_word c,C_word *av) C_noret; C_noret_decl(f_7696) static void C_ccall f_7696(C_word c,C_word *av) C_noret; C_noret_decl(f_7705) static void C_ccall f_7705(C_word c,C_word *av) C_noret; C_noret_decl(f_7727) static void C_ccall f_7727(C_word c,C_word *av) C_noret; C_noret_decl(f_7742) static void C_fcall f_7742(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7749) static void C_ccall f_7749(C_word c,C_word *av) C_noret; C_noret_decl(f_7756) static void C_ccall f_7756(C_word c,C_word *av) C_noret; C_noret_decl(f_7758) static void C_fcall f_7758(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7768) static void C_ccall f_7768(C_word c,C_word *av) C_noret; C_noret_decl(f_7775) static void C_ccall f_7775(C_word c,C_word *av) C_noret; C_noret_decl(f_7779) static void C_ccall f_7779(C_word c,C_word *av) C_noret; C_noret_decl(f_7781) static void C_ccall f_7781(C_word c,C_word *av) C_noret; C_noret_decl(f_7789) static void C_ccall f_7789(C_word c,C_word *av) C_noret; C_noret_decl(f_7799) static void C_ccall f_7799(C_word c,C_word *av) C_noret; C_noret_decl(f_7802) static void C_ccall f_7802(C_word c,C_word *av) C_noret; C_noret_decl(f_7805) static void C_fcall f_7805(C_word t0,C_word t1) C_noret; C_noret_decl(f_7808) static void C_ccall f_7808(C_word c,C_word *av) C_noret; C_noret_decl(f_7811) static void C_fcall f_7811(C_word t0,C_word t1) C_noret; C_noret_decl(f_7814) static void C_ccall f_7814(C_word c,C_word *av) C_noret; C_noret_decl(f_7817) static void C_ccall f_7817(C_word c,C_word *av) C_noret; C_noret_decl(f_7823) static void C_ccall f_7823(C_word c,C_word *av) C_noret; C_noret_decl(f_7826) static void C_ccall f_7826(C_word c,C_word *av) C_noret; C_noret_decl(f_7832) static void C_ccall f_7832(C_word c,C_word *av) C_noret; C_noret_decl(f_7835) static void C_ccall f_7835(C_word c,C_word *av) C_noret; C_noret_decl(f_7841) static void C_ccall f_7841(C_word c,C_word *av) C_noret; C_noret_decl(f_7845) static void C_ccall f_7845(C_word c,C_word *av) C_noret; C_noret_decl(f_7848) static void C_ccall f_7848(C_word c,C_word *av) C_noret; C_noret_decl(f_7851) static void C_ccall f_7851(C_word c,C_word *av) C_noret; C_noret_decl(f_7854) static void C_ccall f_7854(C_word c,C_word *av) C_noret; C_noret_decl(f_7857) static void C_ccall f_7857(C_word c,C_word *av) C_noret; C_noret_decl(f_7860) static void C_ccall f_7860(C_word c,C_word *av) C_noret; C_noret_decl(f_7863) static void C_ccall f_7863(C_word c,C_word *av) C_noret; C_noret_decl(f_7866) static void C_ccall f_7866(C_word c,C_word *av) C_noret; C_noret_decl(f_7869) static void C_ccall f_7869(C_word c,C_word *av) C_noret; C_noret_decl(f_7872) static void C_fcall f_7872(C_word t0,C_word t1) C_noret; C_noret_decl(f_7877) static void C_fcall f_7877(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7905) static void C_ccall f_7905(C_word c,C_word *av) C_noret; C_noret_decl(f_7934) static void C_ccall f_7934(C_word c,C_word *av) C_noret; C_noret_decl(f_7946) static void C_ccall f_7946(C_word c,C_word *av) C_noret; C_noret_decl(f_7961) static void C_ccall f_7961(C_word c,C_word *av) C_noret; C_noret_decl(f_7980) static void C_ccall f_7980(C_word c,C_word *av) C_noret; C_noret_decl(f_7990) static void C_ccall f_7990(C_word c,C_word *av) C_noret; C_noret_decl(f_8005) static void C_ccall f_8005(C_word c,C_word *av) C_noret; C_noret_decl(f_8015) static void C_ccall f_8015(C_word c,C_word *av) C_noret; C_noret_decl(f_8025) static void C_ccall f_8025(C_word c,C_word *av) C_noret; C_noret_decl(f_8036) static void C_ccall f_8036(C_word c,C_word *av) C_noret; C_noret_decl(f_8040) static void C_ccall f_8040(C_word c,C_word *av) C_noret; C_noret_decl(f_8047) static void C_ccall f_8047(C_word c,C_word *av) C_noret; C_noret_decl(f_8049) static void C_ccall f_8049(C_word c,C_word *av) C_noret; C_noret_decl(f_8077) static void C_ccall f_8077(C_word c,C_word *av) C_noret; C_noret_decl(f_8081) static void C_ccall f_8081(C_word c,C_word *av) C_noret; C_noret_decl(f_8087) static void C_ccall f_8087(C_word c,C_word *av) C_noret; C_noret_decl(f_8090) static void C_ccall f_8090(C_word c,C_word *av) C_noret; C_noret_decl(f_8093) static void C_ccall f_8093(C_word c,C_word *av) C_noret; C_noret_decl(f_8096) static void C_ccall f_8096(C_word c,C_word *av) C_noret; C_noret_decl(f_8101) static void C_fcall f_8101(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8114) static void C_ccall f_8114(C_word c,C_word *av) C_noret; C_noret_decl(f_8117) static void C_ccall f_8117(C_word c,C_word *av) C_noret; C_noret_decl(f_8132) static void C_ccall f_8132(C_word c,C_word *av) C_noret; C_noret_decl(f_8151) static void C_ccall f_8151(C_word c,C_word *av) C_noret; C_noret_decl(f_8163) static void C_ccall f_8163(C_word c,C_word *av) C_noret; C_noret_decl(f_8177) static void C_ccall f_8177(C_word c,C_word *av) C_noret; C_noret_decl(f_8180) static void C_ccall f_8180(C_word c,C_word *av) C_noret; C_noret_decl(f_8183) static void C_ccall f_8183(C_word c,C_word *av) C_noret; C_noret_decl(f_8186) static void C_ccall f_8186(C_word c,C_word *av) C_noret; C_noret_decl(f_8189) static void C_ccall f_8189(C_word c,C_word *av) C_noret; C_noret_decl(f_8198) static void C_ccall f_8198(C_word c,C_word *av) C_noret; C_noret_decl(f_8201) static void C_ccall f_8201(C_word c,C_word *av) C_noret; C_noret_decl(f_8210) static void C_ccall f_8210(C_word c,C_word *av) C_noret; C_noret_decl(f_8213) static void C_ccall f_8213(C_word c,C_word *av) C_noret; C_noret_decl(f_8277) static void C_ccall f_8277(C_word c,C_word *av) C_noret; C_noret_decl(f_8284) static void C_ccall f_8284(C_word c,C_word *av) C_noret; C_noret_decl(f_8290) static void C_ccall f_8290(C_word c,C_word *av) C_noret; C_noret_decl(f_8297) static void C_ccall f_8297(C_word c,C_word *av) C_noret; C_noret_decl(f_8303) static void C_ccall f_8303(C_word c,C_word *av) C_noret; C_noret_decl(f_8305) static void C_fcall f_8305(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8330) static void C_ccall f_8330(C_word c,C_word *av) C_noret; C_noret_decl(f_8339) static void C_fcall f_8339(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8364) static void C_ccall f_8364(C_word c,C_word *av) C_noret; C_noret_decl(f_8373) static void C_fcall f_8373(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8383) static void C_ccall f_8383(C_word c,C_word *av) C_noret; C_noret_decl(f_8396) static void C_fcall f_8396(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8406) static void C_ccall f_8406(C_word c,C_word *av) C_noret; C_noret_decl(f_8419) static void C_fcall f_8419(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8429) static void C_ccall f_8429(C_word c,C_word *av) C_noret; C_noret_decl(f_8443) static void C_ccall f_8443(C_word c,C_word *av) C_noret; C_noret_decl(f_8446) static void C_ccall f_8446(C_word c,C_word *av) C_noret; C_noret_decl(f_8449) static void C_ccall f_8449(C_word c,C_word *av) C_noret; C_noret_decl(f_8458) static void C_ccall f_8458(C_word c,C_word *av) C_noret; C_noret_decl(f_8461) static void C_ccall f_8461(C_word c,C_word *av) C_noret; C_noret_decl(f_8471) static void C_ccall f_8471(C_word c,C_word *av) C_noret; C_noret_decl(f_8478) static void C_ccall f_8478(C_word c,C_word *av) C_noret; C_noret_decl(f_8488) static void C_ccall f_8488(C_word c,C_word *av) C_noret; C_noret_decl(f_8494) static void C_ccall f_8494(C_word c,C_word *av) C_noret; C_noret_decl(f_8497) static void C_ccall f_8497(C_word c,C_word *av) C_noret; C_noret_decl(f_8502) static void C_fcall f_8502(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8527) static void C_ccall f_8527(C_word c,C_word *av) C_noret; C_noret_decl(f_8538) static void C_ccall f_8538(C_word c,C_word *av) C_noret; C_noret_decl(f_8547) static void C_ccall f_8547(C_word c,C_word *av) C_noret; C_noret_decl(f_8553) static void C_ccall f_8553(C_word c,C_word *av) C_noret; C_noret_decl(f_8556) static void C_ccall f_8556(C_word c,C_word *av) C_noret; C_noret_decl(f_8559) static void C_ccall f_8559(C_word c,C_word *av) C_noret; C_noret_decl(f_8562) static void C_ccall f_8562(C_word c,C_word *av) C_noret; C_noret_decl(f_8571) static void C_ccall f_8571(C_word c,C_word *av) C_noret; C_noret_decl(f_8636) static void C_ccall f_8636(C_word c,C_word *av) C_noret; C_noret_decl(f_8649) static void C_ccall f_8649(C_word c,C_word *av) C_noret; C_noret_decl(f_8653) static void C_ccall f_8653(C_word c,C_word *av) C_noret; C_noret_decl(f_8657) static void C_ccall f_8657(C_word c,C_word *av) C_noret; C_noret_decl(f_8663) static void C_ccall f_8663(C_word c,C_word *av) C_noret; C_noret_decl(f_8669) static void C_ccall f_8669(C_word c,C_word *av) C_noret; C_noret_decl(f_8671) static void C_ccall f_8671(C_word c,C_word *av) C_noret; C_noret_decl(f_8677) static void C_ccall f_8677(C_word c,C_word *av) C_noret; C_noret_decl(f_8681) static void C_ccall f_8681(C_word c,C_word *av) C_noret; C_noret_decl(f_8690) static void C_ccall f_8690(C_word c,C_word *av) C_noret; C_noret_decl(f_8696) static void C_ccall f_8696(C_word c,C_word *av) C_noret; C_noret_decl(f_8700) static void C_fcall f_8700(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8704) static void C_ccall f_8704(C_word c,C_word *av) C_noret; C_noret_decl(f_8717) static void C_ccall f_8717(C_word c,C_word *av) C_noret; C_noret_decl(f_8719) static void C_ccall f_8719(C_word c,C_word *av) C_noret; C_noret_decl(f_8727) static void C_ccall f_8727(C_word c,C_word *av) C_noret; C_noret_decl(f_8730) static void C_ccall f_8730(C_word c,C_word *av) C_noret; C_noret_decl(f_8737) static void C_ccall f_8737(C_word c,C_word *av) C_noret; C_noret_decl(f_8741) static void C_ccall f_8741(C_word c,C_word *av) C_noret; C_noret_decl(f_8750) static void C_ccall f_8750(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_3047) static void C_ccall trf_3047(C_word c,C_word *av) C_noret; static void C_ccall trf_3047(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3047(t0,t1,t2);} C_noret_decl(trf_3122) static void C_ccall trf_3122(C_word c,C_word *av) C_noret; static void C_ccall trf_3122(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3122(t0,t1,t2);} C_noret_decl(trf_3847) static void C_ccall trf_3847(C_word c,C_word *av) C_noret; static void C_ccall trf_3847(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3847(t0,t1);} C_noret_decl(trf_3948) static void C_ccall trf_3948(C_word c,C_word *av) C_noret; static void C_ccall trf_3948(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3948(t0,t1);} C_noret_decl(trf_3977) static void C_ccall trf_3977(C_word c,C_word *av) C_noret; static void C_ccall trf_3977(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3977(t0,t1,t2);} C_noret_decl(trf_3999) static void C_ccall trf_3999(C_word c,C_word *av) C_noret; static void C_ccall trf_3999(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3999(t0,t1,t2);} C_noret_decl(trf_4056) static void C_ccall trf_4056(C_word c,C_word *av) C_noret; static void C_ccall trf_4056(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4056(t0,t1,t2);} C_noret_decl(trf_4106) static void C_ccall trf_4106(C_word c,C_word *av) C_noret; static void C_ccall trf_4106(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4106(t0,t1,t2);} C_noret_decl(trf_4116) static void C_ccall trf_4116(C_word c,C_word *av) C_noret; static void C_ccall trf_4116(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4116(t0,t1);} C_noret_decl(trf_4161) static void C_ccall trf_4161(C_word c,C_word *av) C_noret; static void C_ccall trf_4161(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4161(t0,t1,t2);} C_noret_decl(trf_4205) static void C_ccall trf_4205(C_word c,C_word *av) C_noret; static void C_ccall trf_4205(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4205(t0,t1);} C_noret_decl(trf_4363) static void C_ccall trf_4363(C_word c,C_word *av) C_noret; static void C_ccall trf_4363(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4363(t0,t1);} C_noret_decl(trf_4513) static void C_ccall trf_4513(C_word c,C_word *av) C_noret; static void C_ccall trf_4513(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4513(t0,t1,t2);} C_noret_decl(trf_4548) static void C_ccall trf_4548(C_word c,C_word *av) C_noret; static void C_ccall trf_4548(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4548(t0,t1,t2);} C_noret_decl(trf_4569) static void C_ccall trf_4569(C_word c,C_word *av) C_noret; static void C_ccall trf_4569(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4569(t0,t1,t2);} C_noret_decl(trf_4820) static void C_ccall trf_4820(C_word c,C_word *av) C_noret; static void C_ccall trf_4820(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4820(t0,t1,t2);} C_noret_decl(trf_4956) static void C_ccall trf_4956(C_word c,C_word *av) C_noret; static void C_ccall trf_4956(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4956(t0,t1,t2);} C_noret_decl(trf_5024) static void C_ccall trf_5024(C_word c,C_word *av) C_noret; static void C_ccall trf_5024(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5024(t0,t1,t2,t3);} C_noret_decl(trf_5062) static void C_ccall trf_5062(C_word c,C_word *av) C_noret; static void C_ccall trf_5062(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5062(t0,t1,t2);} C_noret_decl(trf_5070) static void C_ccall trf_5070(C_word c,C_word *av) C_noret; static void C_ccall trf_5070(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5070(t0,t1);} C_noret_decl(trf_5084) static void C_ccall trf_5084(C_word c,C_word *av) C_noret; static void C_ccall trf_5084(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5084(t0,t1);} C_noret_decl(trf_5104) static void C_ccall trf_5104(C_word c,C_word *av) C_noret; static void C_ccall trf_5104(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5104(t0,t1,t2);} C_noret_decl(trf_5118) static void C_ccall trf_5118(C_word c,C_word *av) C_noret; static void C_ccall trf_5118(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5118(t0,t1);} C_noret_decl(trf_5247) static void C_ccall trf_5247(C_word c,C_word *av) C_noret; static void C_ccall trf_5247(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5247(t0,t1,t2);} C_noret_decl(trf_5280) static void C_ccall trf_5280(C_word c,C_word *av) C_noret; static void C_ccall trf_5280(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5280(t0,t1,t2);} C_noret_decl(trf_5392) static void C_ccall trf_5392(C_word c,C_word *av) C_noret; static void C_ccall trf_5392(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5392(t0,t1,t2,t3);} C_noret_decl(trf_5410) static void C_ccall trf_5410(C_word c,C_word *av) C_noret; static void C_ccall trf_5410(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5410(t0,t1,t2);} C_noret_decl(trf_5442) static void C_ccall trf_5442(C_word c,C_word *av) C_noret; static void C_ccall trf_5442(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5442(t0,t1,t2,t3);} C_noret_decl(trf_5732) static void C_ccall trf_5732(C_word c,C_word *av) C_noret; static void C_ccall trf_5732(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5732(t0,t1,t2);} C_noret_decl(trf_5795) static void C_ccall trf_5795(C_word c,C_word *av) C_noret; static void C_ccall trf_5795(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5795(t0,t1);} C_noret_decl(trf_5807) static void C_ccall trf_5807(C_word c,C_word *av) C_noret; static void C_ccall trf_5807(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5807(t0,t1,t2,t3);} C_noret_decl(trf_6115) static void C_ccall trf_6115(C_word c,C_word *av) C_noret; static void C_ccall trf_6115(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6115(t0,t1,t2);} C_noret_decl(trf_6123) static void C_ccall trf_6123(C_word c,C_word *av) C_noret; static void C_ccall trf_6123(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6123(t0,t1,t2);} C_noret_decl(trf_6153) static void C_ccall trf_6153(C_word c,C_word *av) C_noret; static void C_ccall trf_6153(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6153(t0,t1,t2);} C_noret_decl(trf_6199) static void C_ccall trf_6199(C_word c,C_word *av) C_noret; static void C_ccall trf_6199(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6199(t0,t1,t2);} C_noret_decl(trf_6212) static void C_ccall trf_6212(C_word c,C_word *av) C_noret; static void C_ccall trf_6212(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6212(t0,t1,t2);} C_noret_decl(trf_6267) static void C_ccall trf_6267(C_word c,C_word *av) C_noret; static void C_ccall trf_6267(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6267(t0,t1,t2);} C_noret_decl(trf_6308) static void C_ccall trf_6308(C_word c,C_word *av) C_noret; static void C_ccall trf_6308(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6308(t0,t1,t2);} C_noret_decl(trf_6322) static void C_ccall trf_6322(C_word c,C_word *av) C_noret; static void C_ccall trf_6322(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6322(t0,t1,t2);} C_noret_decl(trf_6349) static void C_ccall trf_6349(C_word c,C_word *av) C_noret; static void C_ccall trf_6349(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6349(t0,t1,t2);} C_noret_decl(trf_6431) static void C_ccall trf_6431(C_word c,C_word *av) C_noret; static void C_ccall trf_6431(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6431(t0,t1,t2);} C_noret_decl(trf_6433) static void C_ccall trf_6433(C_word c,C_word *av) C_noret; static void C_ccall trf_6433(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6433(t0,t1,t2,t3);} C_noret_decl(trf_6436) static void C_ccall trf_6436(C_word c,C_word *av) C_noret; static void C_ccall trf_6436(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6436(t0,t1,t2);} C_noret_decl(trf_6501) static void C_ccall trf_6501(C_word c,C_word *av) C_noret; static void C_ccall trf_6501(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6501(t0,t1);} C_noret_decl(trf_6539) static void C_ccall trf_6539(C_word c,C_word *av) C_noret; static void C_ccall trf_6539(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6539(t0,t1,t2);} C_noret_decl(trf_6544) static void C_ccall trf_6544(C_word c,C_word *av) C_noret; static void C_ccall trf_6544(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6544(t0,t1);} C_noret_decl(trf_6579) static void C_ccall trf_6579(C_word c,C_word *av) C_noret; static void C_ccall trf_6579(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_6579(t0,t1,t2,t3,t4);} C_noret_decl(trf_6582) static void C_ccall trf_6582(C_word c,C_word *av) C_noret; static void C_ccall trf_6582(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_6582(t0,t1,t2,t3,t4);} C_noret_decl(trf_6614) static void C_ccall trf_6614(C_word c,C_word *av) C_noret; static void C_ccall trf_6614(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6614(t0,t1,t2);} C_noret_decl(trf_6648) static void C_ccall trf_6648(C_word c,C_word *av) C_noret; static void C_ccall trf_6648(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6648(t0,t1,t2,t3);} C_noret_decl(trf_6699) static void C_ccall trf_6699(C_word c,C_word *av) C_noret; static void C_ccall trf_6699(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6699(t0,t1,t2,t3);} C_noret_decl(trf_6733) static void C_ccall trf_6733(C_word c,C_word *av) C_noret; static void C_ccall trf_6733(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6733(t0,t1,t2);} C_noret_decl(trf_6784) static void C_ccall trf_6784(C_word c,C_word *av) C_noret; static void C_ccall trf_6784(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6784(t0,t1);} C_noret_decl(trf_6787) static void C_ccall trf_6787(C_word c,C_word *av) C_noret; static void C_ccall trf_6787(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6787(t0,t1);} C_noret_decl(trf_6810) static void C_ccall trf_6810(C_word c,C_word *av) C_noret; static void C_ccall trf_6810(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6810(t0,t1);} C_noret_decl(trf_6819) static void C_ccall trf_6819(C_word c,C_word *av) C_noret; static void C_ccall trf_6819(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6819(t0,t1,t2,t3);} C_noret_decl(trf_6893) static void C_ccall trf_6893(C_word c,C_word *av) C_noret; static void C_ccall trf_6893(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6893(t0,t1,t2,t3);} C_noret_decl(trf_6908) static void C_ccall trf_6908(C_word c,C_word *av) C_noret; static void C_ccall trf_6908(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6908(t0,t1,t2,t3);} C_noret_decl(trf_6967) static void C_ccall trf_6967(C_word c,C_word *av) C_noret; static void C_ccall trf_6967(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6967(t0,t1,t2,t3);} C_noret_decl(trf_7028) static void C_ccall trf_7028(C_word c,C_word *av) C_noret; static void C_ccall trf_7028(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7028(t0,t1);} C_noret_decl(trf_7069) static void C_ccall trf_7069(C_word c,C_word *av) C_noret; static void C_ccall trf_7069(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7069(t0,t1);} C_noret_decl(trf_7126) static void C_ccall trf_7126(C_word c,C_word *av) C_noret; static void C_ccall trf_7126(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7126(t0,t1);} C_noret_decl(trf_7128) static void C_ccall trf_7128(C_word c,C_word *av) C_noret; static void C_ccall trf_7128(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7128(t0,t1,t2);} C_noret_decl(trf_7162) static void C_ccall trf_7162(C_word c,C_word *av) C_noret; static void C_ccall trf_7162(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7162(t0,t1,t2);} C_noret_decl(trf_7181) static void C_ccall trf_7181(C_word c,C_word *av) C_noret; static void C_ccall trf_7181(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7181(t0,t1,t2);} C_noret_decl(trf_7215) static void C_ccall trf_7215(C_word c,C_word *av) C_noret; static void C_ccall trf_7215(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7215(t0,t1,t2,t3);} C_noret_decl(trf_7221) static void C_ccall trf_7221(C_word c,C_word *av) C_noret; static void C_ccall trf_7221(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7221(t0,t1,t2,t3);} C_noret_decl(trf_7300) static void C_ccall trf_7300(C_word c,C_word *av) C_noret; static void C_ccall trf_7300(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7300(t0,t1,t2,t3);} C_noret_decl(trf_7358) static void C_ccall trf_7358(C_word c,C_word *av) C_noret; static void C_ccall trf_7358(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7358(t0,t1,t2);} C_noret_decl(trf_7364) static void C_ccall trf_7364(C_word c,C_word *av) C_noret; static void C_ccall trf_7364(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7364(t0,t1,t2);} C_noret_decl(trf_7376) static void C_ccall trf_7376(C_word c,C_word *av) C_noret; static void C_ccall trf_7376(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7376(t0,t1,t2);} C_noret_decl(trf_7413) static void C_ccall trf_7413(C_word c,C_word *av) C_noret; static void C_ccall trf_7413(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7413(t0,t1);} C_noret_decl(trf_7419) static void C_ccall trf_7419(C_word c,C_word *av) C_noret; static void C_ccall trf_7419(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7419(t0,t1,t2);} C_noret_decl(trf_7441) static void C_ccall trf_7441(C_word c,C_word *av) C_noret; static void C_ccall trf_7441(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7441(t0,t1);} C_noret_decl(trf_7484) static void C_ccall trf_7484(C_word c,C_word *av) C_noret; static void C_ccall trf_7484(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7484(t0,t1,t2);} C_noret_decl(trf_7604) static void C_ccall trf_7604(C_word c,C_word *av) C_noret; static void C_ccall trf_7604(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7604(t0,t1);} C_noret_decl(trf_7610) static void C_ccall trf_7610(C_word c,C_word *av) C_noret; static void C_ccall trf_7610(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7610(t0,t1);} C_noret_decl(trf_7616) static void C_ccall trf_7616(C_word c,C_word *av) C_noret; static void C_ccall trf_7616(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7616(t0,t1);} C_noret_decl(trf_7630) static void C_ccall trf_7630(C_word c,C_word *av) C_noret; static void C_ccall trf_7630(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7630(t0,t1,t2);} C_noret_decl(trf_7636) static void C_ccall trf_7636(C_word c,C_word *av) C_noret; static void C_ccall trf_7636(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7636(t0,t1,t2);} C_noret_decl(trf_7644) static void C_ccall trf_7644(C_word c,C_word *av) C_noret; static void C_ccall trf_7644(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7644(t0,t1,t2);} C_noret_decl(trf_7742) static void C_ccall trf_7742(C_word c,C_word *av) C_noret; static void C_ccall trf_7742(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7742(t0,t1,t2);} C_noret_decl(trf_7758) static void C_ccall trf_7758(C_word c,C_word *av) C_noret; static void C_ccall trf_7758(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7758(t0,t1,t2);} C_noret_decl(trf_7805) static void C_ccall trf_7805(C_word c,C_word *av) C_noret; static void C_ccall trf_7805(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7805(t0,t1);} C_noret_decl(trf_7811) static void C_ccall trf_7811(C_word c,C_word *av) C_noret; static void C_ccall trf_7811(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7811(t0,t1);} C_noret_decl(trf_7872) static void C_ccall trf_7872(C_word c,C_word *av) C_noret; static void C_ccall trf_7872(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7872(t0,t1);} C_noret_decl(trf_7877) static void C_ccall trf_7877(C_word c,C_word *av) C_noret; static void C_ccall trf_7877(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7877(t0,t1,t2);} C_noret_decl(trf_8101) static void C_ccall trf_8101(C_word c,C_word *av) C_noret; static void C_ccall trf_8101(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8101(t0,t1,t2);} C_noret_decl(trf_8305) static void C_ccall trf_8305(C_word c,C_word *av) C_noret; static void C_ccall trf_8305(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8305(t0,t1,t2);} C_noret_decl(trf_8339) static void C_ccall trf_8339(C_word c,C_word *av) C_noret; static void C_ccall trf_8339(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8339(t0,t1,t2);} C_noret_decl(trf_8373) static void C_ccall trf_8373(C_word c,C_word *av) C_noret; static void C_ccall trf_8373(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8373(t0,t1,t2);} C_noret_decl(trf_8396) static void C_ccall trf_8396(C_word c,C_word *av) C_noret; static void C_ccall trf_8396(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8396(t0,t1,t2);} C_noret_decl(trf_8419) static void C_ccall trf_8419(C_word c,C_word *av) C_noret; static void C_ccall trf_8419(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8419(t0,t1,t2);} C_noret_decl(trf_8502) static void C_ccall trf_8502(C_word c,C_word *av) C_noret; static void C_ccall trf_8502(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8502(t0,t1,t2);} C_noret_decl(trf_8700) static void C_ccall trf_8700(C_word c,C_word *av) C_noret; static void C_ccall trf_8700(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8700(t0,t1,t2);} /* f9399 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f9399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f9399,2,av);} /* csi.scm:1093: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[89]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[83]+1); tp(4,av2);}} /* f9440 in k8161 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in ... */ static void C_ccall f9440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f9440,2,av);} /* csi.scm:145: chicken.base#print */ t2=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[314]; av2[3]=t1; av2[4]=lf[315]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* f9458 in k8441 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in ... */ static void C_ccall f9458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f9458,2,av);} /* csi.scm:1044: chicken.base#case-sensitive */ t2=C_fast_retrieve(lf[324]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f9462 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in ... */ static void C_ccall f9462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f9462,2,av);} /* csi.scm:145: chicken.base#print */ t2=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[314]; av2[3]=t1; av2[4]=lf[315]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k2514 */ static void C_ccall f_2516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2516,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2519,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k2517 in k2514 */ static void C_ccall f_2519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2519,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2522,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k2520 in k2517 in k2514 */ static void C_ccall f_2522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2522,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2525,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_2525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2525,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2528,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_file_toplevel(2,av2);}} /* k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_2528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2528,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2531,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_2531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2531,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2534,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_2534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2534,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2537,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_port_toplevel(2,av2);}} /* k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_2537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2537,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2540,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_2540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2540,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2543,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_repl_toplevel(2,av2);}} /* k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_2543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2543,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2546,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_2546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,7)))){ C_save_and_reclaim((void *)f_2546,2,av);} a=C_alloc(11); t2=C_a_i_provide(&a,1,lf[0]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2549,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:44: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[401]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[401]+1); av2[1]=t3; av2[2]=lf[402]; av2[3]=lf[402]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[403]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_2549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2549,2,av);} a=C_alloc(6); t2=C_mutate(&lf[1] /* (set! chicken.csi#constant680 ...) */,lf[2]); t3=C_set_block_item(lf[3] /* ##sys#repl-print-length-limit */,0,C_fix(2048)); t4=C_a_i_cons(&a,2,lf[4],C_fast_retrieve(lf[5])); t5=C_mutate((C_word*)lf[5]+1 /* (set! ##sys#features ...) */,t4); t6=C_set_block_item(lf[6] /* ##sys#notices-enabled */,0,C_SCHEME_TRUE); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3839,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:82: chicken.base#make-parameter */ t8=C_fast_retrieve(lf[400]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* loop in loop in k8275 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in ... */ static void C_fcall f_3047(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3047,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3060,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:106: test */ t5=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}} /* k3058 in loop in loop in k8275 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in ... */ static void C_ccall f_3060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3060,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:107: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3047(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3074,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:109: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_3047(t7,t4,t6);}} /* k3072 in k3058 in loop in loop in k8275 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in ... */ static void C_ccall f_3074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3074,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k8275 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in ... */ static void C_fcall f_3122(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){ C_save_and_reclaim_args((void *)trf_3122,3,t0,t1,t2);} a=C_alloc(17); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3136,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3149,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=t4; t10=((C_word*)t0)[3]; t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3047,a[2]=t12,a[3]=t10,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_3047(t14,t8,t6);}} /* k3134 in loop in k8275 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in ... */ static void C_ccall f_3136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3136,2,av);} a=C_alloc(3); t2=C_i_equalp(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?((C_word*)t0)[4]:C_a_i_cons(&a,2,((C_word*)t0)[5],t1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3147 in loop in k8275 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in ... */ static void C_ccall f_3149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3149,2,av);} /* mini-srfi-1.scm:123: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3122(t2,((C_word*)t0)[3],t1);} /* k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_3839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3839,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[7]+1 /* (set! chicken.csi#editor-command ...) */,t1); t3=lf[8] /* chicken.csi#selected-frame */ =C_SCHEME_FALSE;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3844,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:86: chicken.process-context#get-environment-variable */ t5=C_fast_retrieve(lf[23]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[399]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_3844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3844,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3847,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t2; f_3847(t3,t1);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8741,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:87: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[23]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[398]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_3847(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3847,2,t0,t1);} a=C_alloc(7); t2=C_mutate(&lf[9] /* (set! chicken.csi#default-editor ...) */,t1); t3=C_mutate(&lf[10] /* (set! chicken.csi#dirseparator? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3887,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate(&lf[12] /* (set! chicken.csi#chop-separator ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3902,tmp=(C_word)a,a+=2,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3929,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[394]); C_word av2[4]; av2[0]=*((C_word*)lf[394]+1); av2[1]=t5; av2[2]=C_fix(256); av2[3]=C_make_character(32); tp(4,av2);}} /* k3851 in k8492 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in ... */ static void C_ccall f_3853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3853,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3856,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3863,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,lf[354],C_SCHEME_END_OF_LIST); t5=C_a_i_cons(&a,2,C_retrieve2(lf[1],C_text("chicken.csi#constant680")),t4); t6=C_a_i_cons(&a,2,lf[355],t5); /* csi.scm:44: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[356]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[356]+1); av2[1]=t3; av2[2]=t6; tp(3,av2);}} /* k3854 in k3851 in k8492 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in ... */ static void C_ccall f_3856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3856,2,av);} /* csi.scm:122: scheme#display */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[353]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3861 in k3851 in k8492 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in ... */ static void C_ccall f_3863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3863,2,av);} /* csi.scm:117: scheme#display */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.csi#dirseparator? in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_3887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3887,3,av);} if(C_truep(*((C_word*)lf[11]+1))){ t3=C_i_char_equalp(t2,C_make_character(92)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?t3:C_i_char_equalp(t2,C_make_character(47))); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_char_equalp(t2,C_make_character(47)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.csi#chop-separator in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_3902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_3902,3,av);} a=C_alloc(10); t3=C_block_size(t2); t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1)); t5=C_i_string_ref(t2,t4); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3916,a[2]=t1,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnum_greaterp(t4,C_fix(0)))){ /* csi.scm:159: dirseparator? */ t7=C_retrieve2(lf[10],C_text("chicken.csi#dirseparator\077"));{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t5; f_3887(3,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_3916(2,av2);}}} /* k3914 in chicken.csi#chop-separator in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_3916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3916,2,av);} if(C_truep(t1)){ /* csi.scm:160: substring */ t2=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_3929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(49,c,3)))){ C_save_and_reclaim((void *)f_3929,2,av);} a=C_alloc(49); t2=t1; t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3948,tmp=(C_word)a,a+=2,tmp); t4=C_mutate(&lf[17] /* (set! chicken.csi#lookup-script-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3999,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t5=C_SCHEME_UNDEFINED; t6=C_a_i_vector(&a,32,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5,t5); t7=C_mutate(&lf[25] /* (set! chicken.csi#history-list ...) */,t6); t8=lf[26] /* chicken.csi#history-count */ =C_fix(1);; t9=C_fast_retrieve(lf[27]); t10=C_mutate(&lf[28] /* (set! chicken.csi#history-add ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4106,a[2]=t9,tmp=(C_word)a,a+=3,tmp)); t11=C_mutate(&lf[30] /* (set! chicken.csi#history-ref ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4205,tmp=(C_word)a,a+=2,tmp)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4272,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8719,tmp=(C_word)a,a+=2,tmp); /* csi.scm:247: chicken.repl#repl-prompt */ t14=C_fast_retrieve(lf[393]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t12; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} /* addext in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_3948(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3948,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3955,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csi.scm:170: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[14]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3953 in addext in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_3955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3955,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3958,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[2]; /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=t3; av2[3]=lf[16]; tp(4,av2);}}} /* k3956 in k3953 in addext in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_3958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3958,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3964,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:173: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[14]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3962 in k3956 in k3953 in addext in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_3964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3964,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_3977(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3977,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3990,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_subchar(((C_word*)t0)[4],t2); /* csi.scm:178: proc */ t5=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* k3988 in loop in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_3990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3990,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* csi.scm:179: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_3977(t3,((C_word*)t0)[2],t2);}} /* chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_3999(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3999,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4003,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* csi.scm:181: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[23]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[24]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4003,2,av);} a=C_alloc(7); t2=t1; t3=C_block_size(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t3,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4015,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t5=C_i_string_ref(((C_word*)t0)[2],C_fix(0)); /* csi.scm:183: dirseparator? */ t6=C_retrieve2(lf[10],C_text("chicken.csi#dirseparator\077"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; f_3887(3,av2);}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_4015,2,av);} a=C_alloc(15); if(C_truep(t1)){ /* csi.scm:183: addext */ f_3948(((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_retrieve2(lf[10],C_text("chicken.csi#dirseparator\077")); t4=((C_word*)t0)[4]; t5=C_block_size(t4); t6=t5; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3977,a[2]=t6,a[3]=t8,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_3977(t10,t2,C_fix(0));}} /* k4022 in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_4024,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4027,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_bytevector(&a,1,C_fix(3)); t4=(C_truep(((C_word*)t0)[5])?C_i_foreign_block_argumentp(((C_word*)t0)[5]):C_SCHEME_FALSE); t5=C_fix(256); t6=stub712(t3,t4,t5); /* csi.scm:168: ##sys#peek-nonnull-c-string */ t7=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4041,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* csi.scm:187: addext */ f_3948(t2,((C_word*)t0)[4]);}} /* k4025 in k4022 in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4027,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4034,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4038,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csi.scm:186: chop-separator */ t4=C_retrieve2(lf[12],C_text("chicken.csi#chop-separator"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t1; f_3902(3,av2);}} /* k4032 in k4025 in k4022 in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4034,2,av);} /* csi.scm:186: addext */ f_3948(((C_word*)t0)[3],t1);} /* k4036 in k4025 in k4022 in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4038,2,av);} /* csi.scm:186: scheme#string-append */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[19]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4039 in k4022 in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4041,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4047,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[5]; /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=lf[22]; av2[3]=t3; tp(4,av2);}}} /* k4045 in k4039 in k4022 in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4047,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4054,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csi.scm:190: ##sys#split-path */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[21]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[21]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k4052 in k4045 in k4039 in k4022 in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_4054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4054,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4056,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_4056(t5,((C_word*)t0)[4],t1);} /* loop in k4052 in k4045 in k4039 in k4022 in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_fcall f_4056(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_4056,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4066,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4083,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=C_slot(t2,C_fix(0)); /* csi.scm:192: chop-separator */ t6=C_retrieve2(lf[12],C_text("chicken.csi#chop-separator"));{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; f_3902(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4064 in loop in k4052 in k4045 in k4039 in k4022 in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_4066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4066,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4069,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csi.scm:193: addext */ f_3948(t2,t1);} /* k4067 in k4064 in loop in k4052 in k4045 in k4039 in k4022 in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_4069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4069,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[3],C_fix(1)); /* csi.scm:194: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_4056(t3,((C_word*)t0)[2],t2);}} /* k4081 in loop in k4052 in k4045 in k4039 in k4022 in k4013 in k4001 in chicken.csi#lookup-script-file in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_4083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4083,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* chicken.csi#history-add in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_4106(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_4106,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_nullp(t2); t4=(C_truep(t3)?*((C_word*)lf[29]+1):C_slot(t2,C_fix(0))); t5=t4; t6=C_block_size(C_retrieve2(lf[25],C_text("chicken.csi#history-list"))); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4116,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_greater_or_equal_p(C_retrieve2(lf[26],C_text("chicken.csi#history-count")),t6))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4130,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=C_fixnum_times(C_fix(2),t6); /* csi.scm:209: vector-resize */ t10=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t10; av2[1]=t8; av2[2]=C_retrieve2(lf[25],C_text("chicken.csi#history-list")); av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t8=t7; f_4116(t8,C_SCHEME_UNDEFINED);}} /* k4114 in chicken.csi#history-add in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_4116(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_4116,2,t0,t1);} t2=C_i_vector_set(C_retrieve2(lf[25],C_text("chicken.csi#history-list")),C_retrieve2(lf[26],C_text("chicken.csi#history-count")),((C_word*)t0)[2]); t3=C_fixnum_plus(C_retrieve2(lf[26],C_text("chicken.csi#history-count")),C_fix(1)); t4=lf[26] /* chicken.csi#history-count */ =t3;; t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4128 in chicken.csi#history-add in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4130,2,av);} t2=C_mutate(&lf[25] /* (set! chicken.csi#history-list ...) */,t1); t3=((C_word*)t0)[2]; f_4116(t3,t2);} /* doloop769 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_4161(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_4161,3,t0,t1,t2);} a=C_alloc(6); t3=t2; t4=C_retrieve2(lf[26],C_text("chicken.csi#history-count")); if(C_truep(C_fixnum_greater_or_equal_p(t3,C_retrieve2(lf[26],C_text("chicken.csi#history-count"))))){ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=*((C_word*)lf[83]+1); t6=*((C_word*)lf[83]+1); t7=C_i_check_port_2(*((C_word*)lf[83]+1),C_fix(2),C_SCHEME_TRUE,lf[84]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4174,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* csi.scm:222: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]); C_word av2[4]; av2[0]=*((C_word*)lf[89]+1); av2[1]=t8; av2[2]=C_make_character(35); av2[3]=*((C_word*)lf[83]+1); tp(4,av2);}}} /* k4172 in doloop769 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4174,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4177,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csi.scm:222: ##sys#print */ t3=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4175 in k4172 in doloop769 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4177,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4180,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csi.scm:222: ##sys#print */ t3=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[88]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4178 in k4175 in k4172 in doloop769 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_4180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4180,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4183,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4195,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:223: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[87]+1); av2[1]=t2; av2[2]=C_fix(80); av2[3]=t3; tp(4,av2);}} /* k4181 in k4178 in k4175 in k4172 in doloop769 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_4183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4183,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4186,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csi.scm:227: newline */ t3=*((C_word*)lf[85]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4184 in k4181 in k4178 in k4175 in k4172 in doloop769 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_4186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4186,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4161(t3,((C_word*)t0)[4],t2);} /* a4194 in k4178 in k4175 in k4172 in doloop769 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_4195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4195,2,av);} t2=C_i_vector_ref(C_retrieve2(lf[25],C_text("chicken.csi#history-list")),((C_word*)t0)[2]); /* csi.scm:226: ##sys#print */ t3=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[83]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* chicken.csi#history-ref in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_4205(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_4205,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4209,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:230: scheme#inexact->exact */ t4=*((C_word*)lf[33]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4207 in chicken.csi#history-ref in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4209,2,av);} t2=C_fixnum_greaterp(t1,C_fix(0)); t3=(C_truep(t2)?C_fixnum_less_or_equal_p(t1,C_retrieve2(lf[26],C_text("chicken.csi#history-count"))):C_SCHEME_FALSE); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_vector_ref(C_retrieve2(lf[25],C_text("chicken.csi#history-list")),t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* csi.scm:233: ##sys#error */ t4=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[32]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* ##sys#user-read-hook in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_4232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4232,4,av);} a=C_alloc(3); t4=C_i_char_equalp(C_make_character(41),t2); t5=(C_truep(t4)?t4:C_u_i_char_whitespacep(t2)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4249,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=C_fixnum_difference(C_retrieve2(lf[26],C_text("chicken.csi#history-count")),C_fix(1)); /* csi.scm:242: history-ref */ f_4205(t6,t7);} else{ /* csi.scm:243: old-hook */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}} /* k4247 in ##sys#user-read-hook in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in ... */ static void C_ccall f_4249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4249,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[276],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#sharp-number-hook in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_4261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4261,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4269,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csi.scm:245: history-ref */ f_4205(t4,t3);} /* k4267 in ##sys#sharp-number-hook in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in ... */ static void C_ccall f_4269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4269,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[276],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_4272,2,av);} a=C_alloc(18); t2=C_set_block_item(lf[34] /* ##sys#break-on-error */,0,C_SCHEME_FALSE); t3=C_fast_retrieve(lf[35]); t4=C_mutate((C_word*)lf[35]+1 /* (set! ##sys#read-prompt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4284,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=lf[38] /* chicken.csi#command-table */ =C_SCHEME_END_OF_LIST;; t6=C_mutate((C_word*)lf[39]+1 /* (set! chicken.csi#toplevel-command ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4297,tmp=(C_word)a,a+=2,tmp)); t7=C_fast_retrieve(lf[41]); t8=C_fast_retrieve(lf[42]); t9=C_fast_retrieve(lf[43]); t10=C_fast_retrieve(lf[44]); t11=C_fast_retrieve(lf[45]); t12=*((C_word*)lf[46]+1); t13=C_mutate(&lf[47] /* (set! chicken.csi#csi-eval ...) */,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4347,a[2]=t11,a[3]=t10,a[4]=t9,a[5]=t8,a[6]=t7,a[7]=t12,tmp=(C_word)a,a+=8,tmp)); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4916,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t15=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8677,tmp=(C_word)a,a+=2,tmp); /* csi.scm:416: toplevel-command */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[39]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[39]+1); av2[1]=t14; av2[2]=lf[386]; av2[3]=t15; av2[4]=lf[387]; tp(5,av2);}} /* ##sys#read-prompt-hook in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4284,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4291,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=C_i_tty_forcedp(); if(C_truep(t3)){ if(C_truep(t3)){ /* csi.scm:269: old */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ /* csi.scm:262: ##sys#tty-port? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[36]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[36]+1); av2[1]=t2; av2[2]=*((C_word*)lf[37]+1); tp(3,av2);}}} /* k4289 in ##sys#read-prompt-hook in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4291,2,av);} if(C_truep(t1)){ /* csi.scm:269: old */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.csi#toplevel-command in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,2)))){ C_save_and_reclaim((void*)f_4297,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_check_symbol_2(t2,lf[40]); t9=(C_truep(t7)?C_i_check_string_2(t7,lf[40]):C_SCHEME_UNDEFINED); t10=C_i_assq(t2,C_retrieve2(lf[38],C_text("chicken.csi#command-table"))); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4317,a[2]=t3,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t12=( /* csi.scm:276: g834 */ f_4317(C_a_i(&a,6),t11,t10) ); t13=t1;{ C_word *av2=av; av2[0]=t13; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t11=C_a_i_list3(&a,3,t2,t3,t7); t12=C_a_i_cons(&a,2,t11,C_retrieve2(lf[38],C_text("chicken.csi#command-table"))); t13=C_mutate(&lf[38] /* (set! chicken.csi#command-table ...) */,t12); t14=t1;{ C_word *av2=av; av2[0]=t14; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} /* g834 in chicken.csi#toplevel-command in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static C_word C_fcall f_4317(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); return(C_i_set_cdr(t1,t2));} /* chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_4347,3,av);} a=C_alloc(10); if(C_truep(C_eofp(t2))){ /* csi.scm:295: chicken.base#exit */ t3=C_fast_retrieve(lf[48]);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4363,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(0)); t5=t3; f_4363(t5,C_eqp(lf[110],t4));} else{ t4=t3; f_4363(t4,C_SCHEME_FALSE);}}} /* k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_4363(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_4363,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=C_i_cadr(((C_word*)t0)[2]); t3=C_i_assq(t2,C_retrieve2(lf[38],C_text("chicken.csi#command-table"))); if(C_truep(t3)){ t4=((C_word*)t0)[3]; t5=C_i_cadr(t3); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4380,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csi.scm:300: g867 */ t7=t5;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)C_fast_retrieve_proc(t7))(2,av2);}} else{ t4=C_eqp(t2,lf[49]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4395,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* csi.scm:307: read */ t6=*((C_word*)lf[51]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_eqp(t2,lf[52]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4418,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csi.scm:311: read */ t7=*((C_word*)lf[51]+1);{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_eqp(t2,lf[54]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4436,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:316: read */ t8=*((C_word*)lf[51]+1);{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_eqp(t2,lf[56]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4451,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:320: read */ t9=*((C_word*)lf[51]+1);{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=C_eqp(t2,lf[58]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4466,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:324: read */ t10=*((C_word*)lf[51]+1);{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_eqp(t2,lf[59]); if(C_truep(t9)){ /* csi.scm:329: report */ t10=C_retrieve2(lf[60],C_text("chicken.csi#report")); f_5062(t10,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);} else{ t10=C_eqp(t2,lf[61]); if(C_truep(t10)){ /* csi.scm:330: chicken.repl#quit */ t11=C_fast_retrieve(lf[62]);{ C_word av2[2]; av2[0]=t11; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_eqp(t2,lf[63]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4505,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4538,a[2]=((C_word*)t0)[6],a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* csi.scm:332: read-line */ t14=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ t12=C_eqp(t2,lf[65]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4547,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4594,a[2]=((C_word*)t0)[6],a[3]=t13,tmp=(C_word)a,a+=4,tmp); /* csi.scm:336: read-line */ t15=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t13=C_eqp(t2,lf[69]); if(C_truep(t13)){ t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4603,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:340: read */ t15=*((C_word*)lf[51]+1);{ C_word av2[2]; av2[0]=t15; av2[1]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} else{ t14=C_eqp(t2,lf[73]); if(C_truep(t14)){ if(C_truep(C_fast_retrieve(lf[74]))){ t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4655,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t16=C_a_i_list1(&a,1,C_fast_retrieve(lf[74])); /* csi.scm:346: history-add */ t17=C_retrieve2(lf[28],C_text("chicken.csi#history-add")); f_4106(t17,t15,t16);} else{ t15=C_SCHEME_UNDEFINED; t16=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t16; av2[1]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}} else{ t15=C_eqp(t2,lf[75]); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4671,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4689,a[2]=t16,tmp=(C_word)a,a+=3,tmp); t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4693,a[2]=t17,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* csi.scm:351: editor-command */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[7]); C_word av2[2]; av2[0]=*((C_word*)lf[7]+1); av2[1]=t18; tp(2,av2);}} else{ t16=C_eqp(t2,lf[80]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4709,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t18=*((C_word*)lf[29]+1); /* csi.scm:215: scheme#vector-fill! */ t19=*((C_word*)lf[81]+1);{ C_word av2[4]; av2[0]=t19; av2[1]=t17; av2[2]=C_retrieve2(lf[25],C_text("chicken.csi#history-list")); av2[3]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t19+1)))(4,av2);}} else{ t17=C_eqp(t2,lf[82]); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4721,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t19=C_SCHEME_UNDEFINED; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4161,a[2]=t20,tmp=(C_word)a,a+=3,tmp)); t22=((C_word*)t20)[1]; f_4161(t22,t18,C_fix(1));} else{ t18=C_eqp(t2,lf[90]); if(C_truep(t18)){ t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4733,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:362: show-frameinfo */ f_6784(t19,C_retrieve2(lf[8],C_text("chicken.csi#selected-frame")));} else{ t19=C_eqp(t2,lf[92]); if(C_truep(t19)){ t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4745,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4752,a[2]=t20,tmp=(C_word)a,a+=3,tmp); /* csi.scm:365: read */ t22=*((C_word*)lf[51]+1);{ C_word av2[2]; av2[0]=t22; av2[1]=t21; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ t20=C_eqp(t2,lf[96]); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4765,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:368: read */ t22=*((C_word*)lf[51]+1);{ C_word av2[2]; av2[0]=t22; av2[1]=t21; ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} else{ t21=C_eqp(t2,lf[104]); if(C_truep(t21)){ t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4774,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:370: read-line */ t23=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t23; av2[1]=t22; ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} else{ t22=C_eqp(t2,lf[105]); if(C_truep(t22)){ t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4793,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:375: display */ t24=*((C_word*)lf[93]+1);{ C_word av2[3]; av2[0]=t24; av2[1]=t23; av2[2]=lf[108]; ((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} else{ t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4844,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:406: printf */ t24=*((C_word*)lf[76]+1);{ C_word av2[4]; av2[0]=t24; av2[1]=t23; av2[2]=lf[109]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t24+1)))(4,av2);}}}}}}}}}}}}}}}}}}}}}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4890,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4896,a[2]=((C_word*)t0)[9],tmp=(C_word)a,a+=3,tmp); /* csi.scm:409: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}}} /* k4378 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4380,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4393 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_4395,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4398,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4405,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4409,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:308: expand */ t5=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k4396 in k4393 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4398,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4403 in k4393 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4405,2,av);} /* csi.scm:308: pretty-print */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4407 in k4393 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4409,2,av);} /* csi.scm:308: chicken.syntax#strip-syntax */ t2=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4416 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4418,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4421,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:312: eval */ t3=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4419 in k4416 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4421,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4424,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:313: pretty-print */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4422 in k4419 in k4416 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4424,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4434 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4436,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4439,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:317: eval */ t3=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4437 in k4434 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4439,2,av);} /* csi.scm:318: describe */ t2=C_retrieve2(lf[55],C_text("chicken.csi#describe")); f_5392(t2,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k4449 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4451,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4454,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:321: eval */ t3=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4452 in k4449 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4454,2,av);} /* csi.scm:322: dump */ f_6431(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k4464 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4466,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4469,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:325: read */ t4=*((C_word*)lf[51]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4467 in k4464 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4469,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4472,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:326: eval */ t4=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4470 in k4467 in k4464 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4472,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4475,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:327: eval */ t4=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4473 in k4470 in k4467 in k4464 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_4475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4475,2,av);} a=C_alloc(3); /* csi.scm:328: dump */ f_6431(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* k4503 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4505,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4508,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4513,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_4513(t6,t2,t1);} /* k4506 in k4503 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4508,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop892 in k4503 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_4513(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4513,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4523,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:333: g893 */ t5=*((C_word*)lf[64]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4521 in for-each-loop892 in k4503 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4523,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4513(t3,((C_word*)t0)[4],t2);} /* k4536 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4538,2,av);} /* csi.scm:332: string-split */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4545 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_4547,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4548,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4564,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4569,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_4569(t7,t3,t1);} /* g912 in k4545 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_4548(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_4548,3,t0,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4554,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:337: g927 */ t4=((C_word*)t0)[3];{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=lf[68]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* a4553 in g912 in k4545 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4554,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4558,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csi.scm:337: pretty-print */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4556 in a4553 in g912 in k4545 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_4558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4558,2,av);} /* csi.scm:337: chicken.base#print* */ t2=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[67]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4562 in k4545 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4564,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop911 in k4545 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_4569(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4569,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4579,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:337: g912 */ t5=((C_word*)t0)[3]; f_4548(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4577 in for-each-loop911 in k4545 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4579,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4569(t3,((C_word*)t0)[4],t2);} /* k4592 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4594,2,av);} /* csi.scm:336: string-split */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4601 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4603,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4608,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4636,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:341: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a4607 in k4601 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4608,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4612,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csi.scm:341: ##sys#start-timer */ t3=*((C_word*)lf[72]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4610 in a4607 in k4601 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4612,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4617,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4623,tmp=(C_word)a,a+=2,tmp); /* csi.scm:341: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a4616 in k4610 in a4607 in k4601 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_4617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4617,2,av);} /* csi.scm:341: eval */ t2=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a4622 in k4610 in a4607 in k4601 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_4623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +7,c,2)))){ C_save_and_reclaim((void*)f_4623,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+7); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4627,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4634,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:341: ##sys#stop-timer */ t5=*((C_word*)lf[71]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4625 in a4622 in k4610 in a4607 in k4601 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_4627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4627,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; C_apply_values(3,av2);}} /* k4632 in a4622 in k4610 in a4607 in k4601 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_4634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4634,2,av);} /* csi.scm:341: ##sys#display-times */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[70]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[70]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* a4635 in k4601 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_4636,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4640,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csi.scm:342: history-add */ t4=C_retrieve2(lf[28],C_text("chicken.csi#history-add")); f_4106(t4,t3,t2);} /* k4638 in a4635 in k4601 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4640,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}} /* k4653 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4655,2,av);} /* csi.scm:347: describe */ t2=C_retrieve2(lf[55],C_text("chicken.csi#describe")); f_5392(t2,((C_word*)t0)[2],C_fast_retrieve(lf[74]),C_SCHEME_END_OF_LIST);} /* k4669 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4671,2,av);} t2=C_eqp(t1,C_fix(0)); if(C_truep(C_i_not(t2))){ /* csi.scm:354: printf */ t3=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[77]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4687 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4689,2,av);} /* csi.scm:349: chicken.process#system */ t2=C_fast_retrieve(lf[78]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4691 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4693,2,av);} a=C_alloc(4); t2=(C_truep(t1)?t1:C_retrieve2(lf[9],C_text("chicken.csi#default-editor"))); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4700,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* csi.scm:352: read-line */ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k4698 in k4691 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4700,2,av);} /* csi.scm:350: scheme#string-append */ t2=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[79]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4707 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4709,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4719 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4721,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4731 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4733,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4743 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4745,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4750 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4752,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=t1; t4=C_i_numberp(t3); t5=C_i_not(t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7069,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ t7=t6; f_7069(t7,t5);} else{ t7=C_i_not(C_fast_retrieve(lf[95])); if(C_truep(t7)){ t8=t6; f_7069(t8,t7);} else{ t8=C_fixnum_lessp(t3,C_fix(0)); if(C_truep(t8)){ t9=t6; f_7069(t9,t8);} else{ t9=C_i_length(C_fast_retrieve(lf[95])); t10=t6; f_7069(t10,C_fixnum_greater_or_equal_p(t3,t9));}}}} /* k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4765,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=C_fast_retrieve(lf[95]); t4=(C_truep(C_fast_retrieve(lf[95]))?C_fast_retrieve(lf[95]):C_SCHEME_END_OF_LIST); t5=t4; t6=C_i_length(t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7126,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_symbolp(t1))){ t8=t7; f_7126(t8,C_slot(t1,C_fix(1)));} else{ if(C_truep(C_i_stringp(t1))){ t8=t7; f_7126(t8,t1);} else{ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7353,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* csi.scm:866: display */ t9=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=lf[103]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}} /* k4772 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4774,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4777,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:371: chicken.process#system */ t3=C_fast_retrieve(lf[78]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4775 in k4772 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4777,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4780,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_list1(&a,1,t2); /* csi.scm:372: history-add */ t5=C_retrieve2(lf[28],C_text("chicken.csi#history-add")); f_4106(t5,t3,t4);} /* k4778 in k4775 in k4772 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4780,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4791 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4793,2,av);} a=C_alloc(8); t2=C_retrieve2(lf[38],C_text("chicken.csi#command-table")); t3=C_i_check_list_2(C_retrieve2(lf[38],C_text("chicken.csi#command-table")),lf[100]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4815,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4820,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_4820(t8,t4,C_retrieve2(lf[38],C_text("chicken.csi#command-table")));} /* k4813 in k4791 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4815,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop958 in k4791 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_4820(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4820,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4830,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_caddr(t4); if(C_truep(t5)){ /* csi.scm:401: chicken.base#print */ t6=*((C_word*)lf[106]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=C_make_character(32); av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=C_u_i_car(t4); /* csi.scm:402: chicken.base#print */ t7=*((C_word*)lf[106]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t3; av2[2]=lf[107]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4828 in for-each-loop958 in k4791 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4830,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4820(t3,((C_word*)t0)[4],t2);} /* k4842 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4844,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4889 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4890,2,av);} /* csi.scm:409: eval */ t2=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a4895 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_4896,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4900,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csi.scm:410: history-add */ t4=C_retrieve2(lf[28],C_text("chicken.csi#history-add")); f_4106(t4,t3,t2);} /* k4898 in a4895 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4900,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}} /* k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_4916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4916,2,av);} a=C_alloc(9); t2=C_fast_retrieve(lf[111]); t3=C_fast_retrieve(lf[112]); t4=C_fast_retrieve(lf[113]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5061,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[379]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_INSTALL_PREFIX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_4922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_4922,2,av);} a=C_alloc(14); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4945,a[2]=t5,a[3]=t6,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4990,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:443: scheme#call-with-current-continuation */ t9=*((C_word*)lf[376]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k4934 in map-loop998 in k4946 in k4943 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_4936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4936,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4939,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:441: scheme#write */ t4=*((C_word*)lf[179]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4937 in k4934 in map-loop998 in k4946 in k4943 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_4939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4939,2,av);} /* csi.scm:442: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[371]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4943 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_4945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4945,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4948,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csi.scm:443: g1021 */ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k4946 in k4943 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_4948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4948,2,av);} a=C_alloc(7); t2=C_i_check_list_2(t1,lf[138]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4956,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_4956(t6,((C_word*)t0)[4],t1);} /* map-loop998 in k4946 in k4943 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_fcall f_4956(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_4956,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4981,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; if(C_truep(C_i_stringp(t6))){ t7=t5;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4936,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* csi.scm:440: chicken.base#open-output-string */ t8=C_fast_retrieve(lf[372]);{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4979 in map-loop998 in k4946 in k4943 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_4981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4981,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4956(t6,((C_word*)t0)[5],t5);} /* a4989 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_4990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4990,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4996,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5008,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:443: chicken.condition#with-exception-handler */ t5=C_fast_retrieve(lf[375]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a4995 in a4989 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_4996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4996,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5002,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:443: k1018 */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a5001 in a4995 in a4989 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_5002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5002,2,av);} /* csi.scm:443: ##sys#error */ t2=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[373]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a5007 in a4989 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_5008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5008,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5014,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5047,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:443: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a5013 in a5007 in a4989 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_5014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5014,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5022,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csi.scm:444: scheme#read */ t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5020 in a5013 in a5007 in a4989 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_5022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5022,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5024,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_5024(t5,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* doloop1025 in k5020 in a5013 in a5007 in a4989 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_fcall f_5024(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_5024,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eofp(t2))){ /* csi.scm:446: scheme#reverse */ t4=*((C_word*)lf[374]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5041,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* csi.scm:444: scheme#read */ t5=*((C_word*)lf[51]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k5039 in doloop1025 in k5020 in a5013 in a5007 in a4989 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_5041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5041,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)((C_word*)t0)[4])[1]; f_5024(t3,((C_word*)t0)[5],t1,t2);} /* a5046 in a5007 in a4989 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_5047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_5047,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5053,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:443: k1018 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a5052 in a5046 in a5007 in a4989 in k4920 in k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_5053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5053,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_5061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5061,2,av);} a=C_alloc(9); t2=t1; t3=C_mutate(&lf[60] /* (set! chicken.csi#report ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5062,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp)); t4=C_mutate(&lf[144] /* (set! chicken.csi#bytevector-data ...) */,lf[145]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5390,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); /* csi.scm:557: scheme#make-vector */ t6=*((C_word*)lf[378]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_fix(37); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_5062(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_5062,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5070,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=t3; f_5070(t5,C_u_i_car(t4));} else{ t4=t3; f_5070(t4,*((C_word*)lf[83]+1));}} /* k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_5070(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_5070,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5072,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csi.scm:459: with-output-to-port */ t3=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[6]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_5072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5072,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5076,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* csi.scm:461: chicken.gc#gc */ t3=C_fast_retrieve(lf[143]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_5076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5076,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5079,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csi.scm:462: ##sys#symbol-table-info */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[142]); C_word *av2=av; av2[0]=*((C_word*)lf[142]+1); av2[1]=t2; tp(2,av2);}} /* k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_5079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5079,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5082,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* csi.scm:463: chicken.gc#memory-statistics */ t4=C_fast_retrieve(lf[141]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_5082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_5082,2,av);} a=C_alloc(14); t2=t1; t3=C_mk_bool(C_interrupts_enabled); t4=C_mk_bool(C_heap_size_is_fixed); t5=C_mk_bool(C_STACK_GROWS_DOWNWARD); t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5084,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5100,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t4,a[7]=t5,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=t6,a[11]=((C_word*)t0)[6],tmp=(C_word)a,a+=12,tmp); /* csi.scm:468: printf */ t8=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[140]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* shorten in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_fcall f_5084(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_5084,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5092,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=C_fixnum_times(t2,C_fix(100)); /* csi.scm:467: scheme#truncate */ t5=*((C_word*)lf[114]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5090 in shorten in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_5092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5092,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fixnum_divide(t1,C_fix(100)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_5100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_5100,2,av);} a=C_alloc(28); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5103,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_fast_retrieve(lf[137]); t8=C_fast_retrieve(lf[5]); t9=C_i_check_list_2(C_fast_retrieve(lf[5]),lf[138]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5278,a[2]=((C_word*)t0)[11],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5280,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_5280(t14,t10,C_fast_retrieve(lf[5]));} /* k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_5103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_5103,2,av);} a=C_alloc(22); t2=C_fix(0); t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5104,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_check_list_2(t1,lf[100]); t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5150,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5247,a[2]=t8,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_5247(t10,t6,t1);} /* g1088 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_fcall f_5104(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_5104,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5108,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* csi.scm:473: printf */ t4=*((C_word*)lf[76]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[117]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5106 in g1088 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_5108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(70,c,2)))){ C_save_and_reclaim((void *)f_5108,2,av);} a=C_alloc(70); t2=C_i_string_length(((C_word*)t0)[2]); t3=C_a_i_fixnum_difference(&a,2,C_fix(16),t2); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)((C_word*)t0)[3])[1]; t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_s_a_i_plus(&a,2,t5,C_fix(1))); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5118,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t8=((C_word*)t4)[1]; if(C_truep(C_fixnum_less_or_equal_p(t8,C_fix(0)))){ t9=((C_word*)((C_word*)t0)[3])[1]; t10=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_s_a_i_plus(&a,2,t9,C_fix(1))); t11=C_fixnum_plus(((C_word*)t4)[1],C_fix(18)); t12=C_set_block_item(t4,0,t11); t13=t7; f_5118(t13,t12);} else{ t9=t7; f_5118(t9,C_SCHEME_UNDEFINED);}} /* k5116 in k5106 in g1088 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_fcall f_5118(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_5118,2,t0,t1);} a=C_alloc(4); t2=((C_word*)((C_word*)t0)[2])[1]; if(C_truep(C_fixnum_greater_or_equal_p(t2,C_fix(3)))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5127,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:481: scheme#display */ t4=*((C_word*)lf[93]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[115]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5135,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csi.scm:484: scheme#make-string */ t4=*((C_word*)lf[116]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_make_character(32); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k5125 in k5116 in k5106 in g1088 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_ccall f_5127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5127,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_fix(0)); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5133 in k5116 in k5106 in g1088 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_ccall f_5135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5135,2,av);} /* csi.scm:484: scheme#display */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_5150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_5150,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5153,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5166,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t2,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* csi.scm:502: chicken.platform#machine-type */ t4=C_fast_retrieve(lf[136]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5151 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_5153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5153,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5156,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:521: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[89]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[83]+1); tp(4,av2);}} /* k5154 in k5151 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_5156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5156,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5159,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* csi.scm:522: scheme#display */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[118]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5157 in k5154 in k5151 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_ccall f_5159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5159,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_5166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5166,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5245,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* csi.scm:503: chicken.platform#feature? */ t4=C_fast_retrieve(lf[134]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[135]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5172 in k5243 in k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_ccall f_5174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_5174,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5178,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* csi.scm:505: chicken.platform#software-version */ t4=C_fast_retrieve(lf[132]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5176 in k5172 in k5243 in k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_ccall f_5178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_5178,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5182,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* csi.scm:506: chicken.platform#build-platform */ t4=C_fast_retrieve(lf[131]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5180 in k5176 in k5172 in k5243 in k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in ... */ static void C_ccall f_5182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_5182,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_5186,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); /* csi.scm:508: chicken.platform#installation-repository */ t4=C_fast_retrieve(lf[130]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5184 in k5180 in k5176 in k5172 in k5243 in k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in ... */ static void C_ccall f_5186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_5186,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_5190,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t2,a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* csi.scm:509: chicken.platform#repository-path */ t4=C_fast_retrieve(lf[129]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5188 in k5184 in k5180 in k5176 in k5172 in k5243 in k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in ... */ static void C_ccall f_5190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_5190,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_5194,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=t2,a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],tmp=(C_word)a,a+=17,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5242,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:511: chicken.base#keyword-style */ t5=C_fast_retrieve(lf[128]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k5192 in k5188 in k5184 in k5180 in k5176 in k5172 in k5243 in k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in ... */ static void C_ccall f_5194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_5194,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_5198,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=t2,a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp); t4=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); /* csi.scm:512: shorten */ f_5084(t3,t4);} /* k5196 in k5192 in k5188 in k5184 in k5180 in k5176 in k5172 in k5243 in k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in ... */ static void C_ccall f_5198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_5198,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_5202,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=t2,a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp); t4=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); /* csi.scm:513: shorten */ f_5084(t3,t4);} /* k5200 in k5196 in k5192 in k5188 in k5184 in k5180 in k5176 in k5172 in k5243 in k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in ... */ static void C_ccall f_5202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ C_save_and_reclaim((void *)f_5202,2,av);} a=C_alloc(20); t2=t1; t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); t4=t3; t5=C_i_vector_ref(((C_word*)t0)[3],C_fix(0)); t6=t5; t7=(C_truep(((C_word*)t0)[4])?lf[121]:lf[122]); t8=t7; t9=C_i_vector_ref(((C_word*)t0)[3],C_fix(1)); t10=t9; t11=C_i_vector_ref(((C_word*)t0)[3],C_fix(2)); t12=t11; t13=(C_truep(((C_word*)t0)[5])?lf[123]:lf[124]); t14=t13; t15=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_5230,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[14],a[11]=((C_word*)t0)[15],a[12]=((C_word*)t0)[16],a[13]=t2,a[14]=t4,a[15]=t6,a[16]=t8,a[17]=t10,a[18]=t12,a[19]=t14,tmp=(C_word)a,a+=20,tmp); /* csi.scm:520: argv */ t16=((C_word*)t0)[17];{ C_word *av2=av; av2[0]=t16; av2[1]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} /* k5228 in k5200 in k5196 in k5192 in k5188 in k5184 in k5180 in k5176 in k5172 in k5243 in k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in ... */ static void C_ccall f_5230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,21)))){ C_save_and_reclaim((void *)f_5230,2,av);} /* csi.scm:486: printf */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 22) { av2=av; } else { av2=C_alloc(22); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[125]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; av2[8]=((C_word*)t0)[8]; av2[9]=((C_word*)t0)[9]; av2[10]=((C_word*)t0)[10]; av2[11]=C_fast_retrieve(lf[126]); av2[12]=((C_word*)t0)[11]; av2[13]=((C_word*)t0)[12]; av2[14]=((C_word*)t0)[13]; av2[15]=((C_word*)t0)[14]; av2[16]=((C_word*)t0)[15]; av2[17]=((C_word*)t0)[16]; av2[18]=((C_word*)t0)[17]; av2[19]=((C_word*)t0)[18]; av2[20]=((C_word*)t0)[19]; av2[21]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(22,av2);}} /* k5240 in k5188 in k5184 in k5180 in k5176 in k5172 in k5243 in k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in ... */ static void C_ccall f_5242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5242,2,av);} /* csi.scm:511: scheme#symbol->string */ t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5243 in k5164 in k5148 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_5245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_5245,2,av);} a=C_alloc(12); t2=(C_truep(t1)?lf[119]:lf[120]); t3=t2; t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* csi.scm:504: chicken.platform#software-type */ t5=C_fast_retrieve(lf[133]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* for-each-loop1087 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_fcall f_5247(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_5247,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5257,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:471: g1088 */ t5=((C_word*)t0)[3]; f_5104(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5255 in for-each-loop1087 in k5101 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_5257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5257,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5247(t3,((C_word*)t0)[4],t2);} /* k5276 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_5278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5278,2,av);} /* csi.scm:469: sort */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=*((C_word*)lf[139]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1061 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_fcall f_5280(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_5280,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5305,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:469: g1067 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5303 in map-loop1061 in k5098 in k5080 in k5077 in k5074 in a5071 in k5068 in chicken.csi#report in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_5305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5305,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5280(t6,((C_word*)t0)[5],t5);} /* lp in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static C_word C_fcall f_5325(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t3=t1; t4=C_u_i_cdr(t3); if(C_truep(C_i_pairp(t4))){ t5=C_u_i_cdr(t4); t6=C_i_cdr(t2); t7=C_eqp(t5,t6); if(C_truep(t7)){ return(t7);} else{ t9=t5; t10=t6; t1=t9; t2=t10; goto loop;}} else{ return(C_SCHEME_FALSE);}} else{ return(C_SCHEME_FALSE);}} /* lp in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static C_word C_fcall f_5360(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check; loop:{} t2=C_i_pairp(t1); if(C_truep(C_i_not(t2))){ return(C_SCHEME_FALSE);} else{ t3=C_i_car(t1); t4=C_eqp(t1,t3); if(C_truep(t4)){ return(t4);} else{ t5=t1; t6=C_u_i_cdr(t5); t8=t6; t1=t8; goto loop;}}} /* k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_5390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,6)))){ C_save_and_reclaim((void *)f_5390,2,av);} a=C_alloc(28); t2=C_mutate(&lf[146] /* (set! chicken.csi#describer-table ...) */,t1); t3=*((C_word*)lf[147]+1); t4=*((C_word*)lf[148]+1); t5=*((C_word*)lf[149]+1); t6=C_mutate(&lf[55] /* (set! chicken.csi#describe ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5392,a[2]=t5,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp)); t7=C_mutate((C_word*)lf[239]+1 /* (set! chicken.csi#set-describer! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6422,tmp=(C_word)a,a+=2,tmp)); t8=C_mutate(&lf[57] /* (set! chicken.csi#dump ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6431,tmp=(C_word)a,a+=2,tmp)); t9=C_mutate(&lf[214] /* (set! chicken.csi#hexdump ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6579,tmp=(C_word)a,a+=2,tmp)); t10=C_mutate(&lf[91] /* (set! chicken.csi#show-frameinfo ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6784,tmp=(C_word)a,a+=2,tmp)); t11=C_establish_signal_handler(C_fix((C_word)SIGINT),C_fix((C_word)SIGINT)); t12=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8671,tmp=(C_word)a,a+=2,tmp); t13=C_i_setslot(C_fast_retrieve(lf[258]),C_fix((C_word)SIGINT),t12); t14=C_mutate(&lf[259] /* (set! chicken.csi#member* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7358,tmp=(C_word)a,a+=2,tmp)); t15=C_mutate(&lf[260] /* (set! chicken.csi#canonicalize-args ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7413,tmp=(C_word)a,a+=2,tmp)); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8663,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t17=t16; t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7592,a[2]=t17,tmp=(C_word)a,a+=3,tmp); t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8657,a[2]=t18,tmp=(C_word)a,a+=3,tmp); /* csi.scm:974: chicken.process-context#get-environment-variable */ t20=C_fast_retrieve(lf[23]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t20; av2[1]=t19; av2[2]=lf[377]; ((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}} /* chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_5392(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,0,6)))){ C_save_and_reclaim_args((void *)trf_5392,4,t0,t1,t2,t3);} a=C_alloc(17); t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[83]+1):C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5398,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5530,a[2]=t1,a[3]=t2,a[4]=t6,a[5]=t7,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_permanentp(t2))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6414,a[2]=t8,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* csi.scm:591: ##sys#block-address */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[238]); C_word av2[3]; av2[0]=*((C_word*)lf[238]+1); av2[1]=t9; av2[2]=t2; tp(3,av2);}} else{ t9=t8;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_5530(2,av2);}}} /* descseq in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_5398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5398,6,av);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5527,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* csi.scm:568: plen */ t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} /* k5403 in k5525 in descseq in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_5405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_5405,2,av);} a=C_alloc(10); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5410,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_5410(t5,((C_word*)t0)[7],C_fix(0));} /* loop1 in k5403 in k5525 in descseq in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_fcall f_5410(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_5410,3,t0,t1,t2);} a=C_alloc(10); t3=C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_fixnum_greater_or_equal_p(t2,C_fix(40)))){ t4=C_fixnum_difference(((C_word*)t0)[2],t2); /* csi.scm:573: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[151]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5433,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t1,tmp=(C_word)a,a+=10,tmp); t5=C_fixnum_plus(((C_word*)t0)[4],t2); /* csi.scm:575: pref */ t6=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[7]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}}} /* k5431 in loop1 in k5403 in k5525 in descseq in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_5433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_5433,2,av);} a=C_alloc(12); t2=t1; t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[3],t3); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5442,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=t6,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp)); t8=((C_word*)t6)[1]; f_5442(t8,((C_word*)t0)[9],C_fix(1),t4);} /* loop2 in k5431 in loop1 in k5403 in k5525 in descseq in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_fcall f_5442(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_5442,4,t0,t1,t2,t3);} a=C_alloc(12); if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5452,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5484,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* csi.scm:578: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]); C_word av2[4]; av2[0]=*((C_word*)lf[87]+1); av2[1]=t4; av2[2]=C_fix(1000); av2[3]=t5; tp(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5512,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[7],a[6]=t1,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* csi.scm:588: pref */ t5=((C_word*)t0)[8];{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}} /* k5450 in loop2 in k5431 in loop1 in k5403 in k5525 in descseq in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_5452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_5452,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5455,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_greaterp(((C_word*)t0)[3],C_fix(1)))){ t3=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t4=C_eqp(((C_word*)t0)[3],C_fix(2)); if(C_truep(t4)){ /* csi.scm:583: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[152]; av2[4]=t3; av2[5]=lf[153]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ /* csi.scm:583: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[152]; av2[4]=t3; av2[5]=lf[154]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} else{ /* csi.scm:586: scheme#newline */ t3=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k5453 in k5450 in loop2 in k5431 in loop1 in k5403 in k5525 in descseq in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_5455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5455,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[3]); /* csi.scm:587: loop1 */ t3=((C_word*)((C_word*)t0)[4])[1]; f_5410(t3,((C_word*)t0)[5],t2);} /* a5483 in loop2 in k5431 in loop1 in k5403 in k5525 in descseq in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_5484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5484,2,av);} /* csi.scm:581: fprintf */ t2=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[155]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k5510 in loop2 in k5431 in loop1 in k5403 in k5525 in descseq in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_5512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5512,2,av);} t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* csi.scm:588: loop2 */ t5=((C_word*)((C_word*)t0)[5])[1]; f_5442(t5,((C_word*)t0)[6],t3,t4);} else{ /* csi.scm:589: loop2 */ t3=((C_word*)((C_word*)t0)[5])[1]; f_5442(t3,((C_word*)t0)[6],((C_word*)t0)[3],((C_word*)t0)[7]);}} /* k5525 in descseq in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_5527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_5527,2,av);} a=C_alloc(8); t2=C_fixnum_difference(t1,((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5405,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[7])){ /* csi.scm:569: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[156]; av2[4]=((C_word*)t0)[7]; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_5405(2,av2);}}} /* k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_5530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,7)))){ C_save_and_reclaim((void *)f_5530,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5533,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_charp(((C_word*)t0)[3]))){ t3=C_fix(C_character_code(((C_word*)t0)[3])); /* csi.scm:594: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[157]; av2[4]=((C_word*)t0)[3]; av2[5]=t3; av2[6]=t3; av2[7]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}} else{ switch(((C_word*)t0)[3]){ case C_SCHEME_TRUE: /* csi.scm:595: fprintf */ t3=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[158]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);} case C_SCHEME_FALSE: /* csi.scm:596: fprintf */ t3=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[159]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);} default: if(C_truep(C_i_nullp(((C_word*)t0)[3]))){ /* csi.scm:597: fprintf */ t3=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[160]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ if(C_truep(C_eofp(((C_word*)t0)[3]))){ /* csi.scm:598: fprintf */ t3=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[161]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=*((C_word*)lf[29]+1); t4=C_eqp(*((C_word*)lf[29]+1),((C_word*)t0)[3]); if(C_truep(t4)){ /* csi.scm:599: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[162]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ if(C_truep(C_fixnump(((C_word*)t0)[3]))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5599,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csi.scm:601: fprintf */ t6=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=lf[164]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[3]; av2[7]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(8,av2);}} else{ if(C_truep(C_i_bignump(((C_word*)t0)[3]))){ /* csi.scm:607: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[165]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[3]; av2[7]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}} else{ if(C_truep(C_unboundvaluep(((C_word*)t0)[3]))){ /* csi.scm:610: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[166]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ if(C_truep(C_i_flonump(((C_word*)t0)[3]))){ /* csi.scm:611: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[167]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){ /* csi.scm:612: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[168]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ if(C_truep(C_i_cplxnump(((C_word*)t0)[3]))){ if(C_truep(C_i_exactp(((C_word*)t0)[3]))){ /* csi.scm:613: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[169]; av2[4]=lf[170]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ /* csi.scm:613: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[169]; av2[4]=lf[171]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}} else{ if(C_truep(C_i_numberp(((C_word*)t0)[3]))){ /* csi.scm:615: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[172]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[3]))){ /* csi.scm:616: descseq */ t5=((C_word*)t0)[5];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=lf[173]; av2[3]=*((C_word*)lf[174]+1); av2[4]=((C_word*)t0)[6]; av2[5]=C_fix(0); f_5398(6,av2);}} else{ if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){ /* csi.scm:617: descseq */ t5=((C_word*)t0)[5];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=lf[175]; av2[3]=*((C_word*)lf[174]+1); av2[4]=*((C_word*)lf[176]+1); av2[5]=C_fix(0); f_5398(6,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5696,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* csi.scm:618: chicken.keyword#keyword? */ t6=C_fast_retrieve(lf[236]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}}}}}}}}}}}}} /* k5531 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_5533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5533,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5597 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_5599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_5599,2,av);} a=C_alloc(3); t2=C_make_character(C_unfix(((C_word*)t0)[2])); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5605,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fixnum_lessp(((C_word*)t0)[2],C_fix(65536)))){ /* csi.scm:604: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[163]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* csi.scm:605: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[89]+1); av2[1]=((C_word*)t0)[3]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[83]+1); tp(4,av2);}}} /* k5603 in k5597 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_5605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5605,2,av);} /* csi.scm:605: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[89]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[83]+1); tp(4,av2);}} /* k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_5696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_5696,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5703,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:620: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[178]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[178]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5712,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5783,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:622: ##sys#symbol-has-toplevel-binding? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[187]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[187]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} else{ t2=((C_word*)t0)[4]; t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5325,tmp=(C_word)a,a+=2,tmp); t4=( f_5325(t2,t2) ); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5795,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5; f_5795(t6,t4);} else{ t6=((C_word*)t0)[4]; t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5360,tmp=(C_word)a,a+=2,tmp); t8=t5; f_5795(t8,( f_5360(t6) ));}}}} /* k5701 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_5703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5703,2,av);} /* csi.scm:619: fprintf */ t2=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[177]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5710 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_5712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5712,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5715,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5780,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* csi.scm:625: ##sys#interned-symbol? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[185]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[185]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k5713 in k5710 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_5715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5715,2,av);} a=C_alloc(5); t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=t2; if(C_truep(C_i_nullp(t3))){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5727,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* csi.scm:629: scheme#display */ t5=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[181]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k5725 in k5713 in k5710 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_5727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5727,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5732,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_5732(t5,((C_word*)t0)[3],((C_word*)t0)[4]);} /* doloop1200 in k5725 in k5713 in k5710 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_fcall f_5732(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_5732,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5742,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=C_i_car(t2); /* csi.scm:632: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[180]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k5740 in doloop1200 in k5725 in k5713 in k5710 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_5742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_5742,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5745,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5757,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* csi.scm:633: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[87]+1); av2[1]=t2; av2[2]=C_fix(1000); av2[3]=t3; tp(4,av2);}} /* k5743 in k5740 in doloop1200 in k5725 in k5713 in k5710 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_5745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5745,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5748,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csi.scm:637: scheme#newline */ t3=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5746 in k5743 in k5740 in doloop1200 in k5725 in k5713 in k5710 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_5748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5748,2,av);} t2=C_i_cddr(((C_word*)t0)[2]); t3=((C_word*)((C_word*)t0)[3])[1]; f_5732(t3,((C_word*)t0)[4],t2);} /* a5756 in k5740 in doloop1200 in k5725 in k5713 in k5710 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_5757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5757,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* csi.scm:636: scheme#write */ t3=*((C_word*)lf[179]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5775 in k5778 in k5710 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_5777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5777,2,av);} /* csi.scm:624: fprintf */ t2=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[184]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k5778 in k5710 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_5780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5780,2,av);} a=C_alloc(5); t2=(C_truep(t1)?lf[182]:lf[183]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5777,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* csi.scm:626: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[178]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[178]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k5781 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_5783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5783,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_5712(2,av2);}} else{ /* csi.scm:623: scheme#display */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[186]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_fcall f_5795(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ C_save_and_reclaim_args((void *)trf_5795,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5798,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csi.scm:639: fprintf */ t3=*((C_word*)lf[150]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[191]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ if(C_truep(C_i_listp(((C_word*)t0)[2]))){ /* csi.scm:649: descseq */ t2=((C_word*)t0)[5];{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[192]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[7]; av2[5]=C_fix(0); f_5398(6,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); /* csi.scm:650: fprintf */ t6=*((C_word*)lf[150]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[193]; av2[4]=t3; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ if(C_truep(C_i_closurep(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5902,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5906,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:654: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[196]); C_word av2[4]; av2[0]=*((C_word*)lf[196]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5912,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csi.scm:656: chicken.base#port? */ t3=C_fast_retrieve(lf[235]);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}}} /* k5796 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_5798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5798,2,av);} a=C_alloc(9); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5807,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_5807(t6,((C_word*)t0)[4],((C_word*)t0)[2],t2);} /* loop-print in k5796 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_fcall f_5807(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_5807,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_not_pair_p(t2); t5=(C_truep(t4)?t4:C_i_nullp(t2)); if(C_truep(t5)){ /* csi.scm:643: printf */ t6=*((C_word*)lf[76]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t1; av2[2]=lf[188]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=C_i_car(t2); if(C_truep(C_i_memq(t6,t3))){ /* csi.scm:645: fprintf */ t7=*((C_word*)lf[150]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[189]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=t2; t8=C_u_i_car(t7); t9=C_i_memq(t8,t3); if(C_truep(C_i_not(t9))){ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5838,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t11=t2; t12=C_u_i_car(t11); /* csi.scm:647: fprintf */ t13=*((C_word*)lf[150]+1);{ C_word av2[5]; av2[0]=t13; av2[1]=t10; av2[2]=((C_word*)t0)[2]; av2[3]=lf[190]; av2[4]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} else{ t10=C_SCHEME_UNDEFINED; t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}} /* k5836 in loop-print in k5796 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_5838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5838,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]); /* csi.scm:648: loop-print */ t7=((C_word*)((C_word*)t0)[4])[1]; f_5807(t7,((C_word*)t0)[5],t3,t6);} /* k5900 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_5902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5902,2,av);} /* csi.scm:653: descseq */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=*((C_word*)lf[174]+1); av2[4]=*((C_word*)lf[176]+1); av2[5]=C_fix(1); f_5398(6,av2);}} /* k5904 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_5906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5906,2,av);} /* csi.scm:654: sprintf */ t2=*((C_word*)lf[194]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[195]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_5912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5912,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=(C_truep(t2)?lf[197]:lf[198]); t4=t3; t5=C_slot(((C_word*)t0)[2],C_fix(7)); t6=t5; t7=C_slot(((C_word*)t0)[2],C_fix(3)); t8=t7; t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5931,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=t6,a[6]=t8,tmp=(C_word)a,a+=7,tmp); /* csi.scm:662: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[196]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[196]+1); av2[1]=t9; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5940,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csi.scm:663: ##sys#locative? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[234]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[234]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}} /* k5929 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_5931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5931,2,av);} /* csi.scm:657: fprintf */ t2=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[199]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; av2[7]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} /* k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_5940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5940,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5947,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csi.scm:665: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[196]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[196]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); tp(4,av2);}} else{ if(C_truep(C_anypointerp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6064,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csi.scm:680: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[196]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[196]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6070,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csi.scm:681: ##sys#bytevector? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[233]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[233]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}}} /* k5945 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_5947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5947,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[2],C_fix(2)); switch(t3){ case C_fix(0): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[201]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(1): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[202]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(2): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[203]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(3): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[204]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(4): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[205]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(5): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[206]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(6): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[207]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(7): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[208]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(8): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[209]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(9): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[210]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(10): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[211]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} case C_fix(11): /* csi.scm:664: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=lf[212]; ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);} default: t4=C_SCHEME_UNDEFINED; /* csi.scm:664: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[200]; av2[4]=t1; av2[5]=t2; av2[6]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}}} /* k6062 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_6064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6064,2,av);} /* csi.scm:680: fprintf */ t2=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[213]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_6070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,6)))){ C_save_and_reclaim((void *)f_6070,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_block_size(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6076,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* csi.scm:683: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=lf[216]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ if(C_truep(C_lambdainfop(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6089,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csi.scm:686: ##sys#lambda-info->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[218]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[218]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} else{ if(C_truep(C_i_structurep(((C_word*)t0)[2],lf[219]))){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6101,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_eqp(t2,C_fix(1)); t5=(C_truep(t4)?lf[222]:lf[223]); t6=C_slot(((C_word*)t0)[2],C_fix(3)); /* csi.scm:689: fprintf */ t7=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t7; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[224]; av2[4]=t2; av2[5]=t5; av2[6]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}} else{ if(C_truep(C_i_structurep(((C_word*)t0)[2],lf[225]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6198,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t3=C_slot(((C_word*)t0)[2],C_fix(1)); /* csi.scm:703: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[228]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ if(C_truep(C_structurep(((C_word*)t0)[2]))){ t2=C_slot(((C_word*)t0)[2],C_fix(0)); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6304,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* csi.scm:719: chicken.internal#hash-table-ref */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[231]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[231]+1); av2[1]=t4; av2[2]=C_retrieve2(lf[146],C_text("chicken.csi#describer-table")); av2[3]=t3; tp(4,av2);}} else{ /* csi.scm:726: fprintf */ t2=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[232]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}}}}} /* k6074 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_6076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6076,2,av);} /* csi.scm:684: hexdump */ f_6579(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],*((C_word*)lf[215]+1),((C_word*)t0)[5]);} /* k6087 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_6089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6089,2,av);} /* csi.scm:686: fprintf */ t2=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[217]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6099 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_6101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_6101,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6104,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_slot(((C_word*)t0)[2],C_fix(4)); /* csi.scm:691: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[221]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6102 in k6099 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_6104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_6104,2,av);} a=C_alloc(8); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=t2; t4=C_block_size(t3); t5=t4; t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6115,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_6115(t9,((C_word*)t0)[4],C_fix(0));} /* doloop1238 in k6102 in k6099 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_fcall f_6115(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_6115,3,t0,t1,t2);} a=C_alloc(14); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6123,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=C_slot(((C_word*)t0)[4],t2); t5=C_i_check_list_2(t4,lf[100]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6144,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6153,a[2]=t8,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_6153(t10,t6,t4);}} /* g1244 in doloop1238 in k6102 in k6099 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_fcall f_6123(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_6123,3,t0,t1,t2);} t3=C_slot(t2,C_fix(0)); t4=C_slot(t2,C_fix(1)); /* csi.scm:699: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[220]; av2[4]=t3; av2[5]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k6142 in doloop1238 in k6102 in k6099 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_ccall f_6144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6144,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6115(t3,((C_word*)t0)[4],t2);} /* for-each-loop1243 in doloop1238 in k6102 in k6099 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_fcall f_6153(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6153,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6163,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:697: g1244 */ t5=((C_word*)t0)[3]; f_6123(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6161 in for-each-loop1243 in doloop1238 in k6102 in k6099 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_ccall f_6163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6163,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6153(t3,((C_word*)t0)[4],t2);} /* k6196 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_6198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6198,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6199,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=C_i_check_list_2(t3,lf[100]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6267,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_6267(t8,((C_word*)t0)[4],t3);} /* g1266 in k6196 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_fcall f_6199(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_6199,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6203,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* csi.scm:706: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[227]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6201 in g1266 in k6196 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_6203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6203,2,av);} a=C_alloc(7); t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6212,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_6212(t6,((C_word*)t0)[5],t2);} /* loop in k6201 in g1266 in k6196 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_fcall f_6212(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_6212,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6222,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_caar(t2); t5=C_eqp(((C_word*)t0)[3],t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6235,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6240,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csi.scm:710: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]); C_word av2[4]; av2[0]=*((C_word*)lf[87]+1); av2[1]=t6; av2[2]=C_fix(100); av2[3]=t7; tp(4,av2);}} else{ t6=C_i_cddr(t2); /* csi.scm:715: loop */ t9=t1; t10=t6; t1=t9; t2=t10; goto loop;}}} /* k6220 in loop in k6201 in g1266 in k6196 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_ccall f_6222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6222,2,av);} t2=C_i_cddr(((C_word*)t0)[2]); /* csi.scm:715: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6212(t3,((C_word*)t0)[4],t2);} /* k6233 in loop in k6201 in g1266 in k6196 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_ccall f_6235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6235,2,av);} /* csi.scm:714: scheme#newline */ t2=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a6239 in loop in k6201 in g1266 in k6196 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_ccall f_6240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6240,2,av);} t2=C_i_cdar(((C_word*)t0)[2]); t3=C_i_cadr(((C_word*)t0)[2]); /* csi.scm:713: fprintf */ t4=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[226]; av2[4]=t2; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* for-each-loop1265 in k6196 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_fcall f_6267(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6267,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6277,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:704: g1266 */ t5=((C_word*)t0)[3]; f_6199(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6275 in for-each-loop1265 in k6196 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_6277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6277,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6267(t3,((C_word*)t0)[4],t2);} /* k6302 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_6304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6304,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6308,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:719: g1295 */ t3=t2; f_6308(t3,((C_word*)t0)[4],t1);} else{ t2=C_i_assq(((C_word*)t0)[5],C_retrieve2(lf[144],C_text("chicken.csi#bytevector-data"))); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6322,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp); /* csi.scm:719: g1306 */ t4=t3; f_6322(t4,((C_word*)t0)[4],t2);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6387,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=C_slot(((C_word*)t0)[2],C_fix(0)); /* csi.scm:724: fprintf */ t5=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[230]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* g1295 in k6302 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_fcall f_6308(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_6308,3,t0,t1,t2);} /* csi.scm:719: g1303 */ t3=t2;{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* g1306 in k6302 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_fcall f_6322(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,3)))){ C_save_and_reclaim_args((void *)trf_6322,3,t0,t1,t2);} a=C_alloc(19); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6330,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_cdr(t2); t9=C_i_check_list_2(t8,lf[138]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6343,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6349,a[2]=t6,a[3]=t12,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_6349(t14,t10,t8);} /* k6328 in g1306 in k6302 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_6330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6330,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* k6341 in g1306 in k6302 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_6343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6343,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,C_fix(0)); /* csi.scm:722: scheme#append */ t3=*((C_word*)lf[229]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* map-loop1311 in g1306 in k6302 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_fcall f_6349(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6349,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6374,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:722: g1317 */ t5=*((C_word*)lf[53]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6372 in map-loop1311 in g1306 in k6302 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_ccall f_6374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6374,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6349(t6,((C_word*)t0)[5],t5);} /* k6385 in k6302 in k6068 in k5938 in k5910 in k5793 in k5694 in k5528 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_6387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6387,2,av);} /* csi.scm:725: descseq */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_SCHEME_FALSE; av2[3]=*((C_word*)lf[174]+1); av2[4]=*((C_word*)lf[176]+1); av2[5]=C_fix(1); f_5398(6,av2);}} /* k6412 in chicken.csi#describe in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_6414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6414,2,av);} /* csi.scm:591: fprintf */ t2=*((C_word*)lf[150]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[237]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.csi#set-describer! in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_6422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6422,4,av);} t4=C_i_check_symbol_2(t2,lf[240]); /* csi.scm:731: chicken.internal#hash-table-set! */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[241]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[241]+1); av2[1]=t1; av2[2]=C_retrieve2(lf[146],C_text("chicken.csi#describer-table")); av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* chicken.csi#dump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_6431(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_6431,3,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6433,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6539,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6544,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ /* csi.scm:738: def-len1350 */ t7=t6; f_6544(t7,t1);} else{ t7=C_i_car(t3); t8=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t8))){ /* csi.scm:738: def-out1351 */ t9=t5; f_6539(t9,t1,t7);} else{ t9=C_i_car(t8); t10=C_u_i_cdr(t8); /* csi.scm:738: body1348 */ t11=t4; f_6433(t11,t1,t7,t9);}}} /* body1348 in chicken.csi#dump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_fcall f_6433(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_6433,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6436,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_immp(((C_word*)t0)[2]))){ /* csi.scm:742: ##sys#error */ t5=*((C_word*)lf[31]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=lf[243]; av2[3]=lf[244]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6458,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* csi.scm:743: ##sys#bytevector? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[233]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[233]+1); av2[1]=t5; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}} /* bestlen in body1348 in chicken.csi#dump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_fcall f_6436(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_6436,3,t0,t1,t2);} if(C_truep(((C_word*)t0)[2])){ /* csi.scm:741: scheme#min */ t3=*((C_word*)lf[242]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6456 in body1348 in chicken.csi#dump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_6458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_6458,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6465,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_block_size(((C_word*)t0)[3]); /* csi.scm:743: bestlen */ t4=((C_word*)t0)[5]; f_6436(t4,t2,t3);} else{ if(C_truep(C_i_stringp(((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6482,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_block_size(((C_word*)t0)[3]); /* csi.scm:744: bestlen */ t4=((C_word*)t0)[5]; f_6436(t4,t2,t3);} else{ t2=C_immp(((C_word*)t0)[3]); t3=C_i_not(t2); t4=(C_truep(t3)?C_anypointerp(((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t4)){ /* csi.scm:746: hexdump */ f_6579(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(32),*((C_word*)lf[245]+1),((C_word*)t0)[4]);} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6501,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_structurep(((C_word*)t0)[3]))){ t6=C_slot(((C_word*)t0)[3],C_fix(0)); t7=t5; f_6501(t7,C_i_assq(t6,C_retrieve2(lf[144],C_text("chicken.csi#bytevector-data"))));} else{ t6=t5; f_6501(t6,C_SCHEME_FALSE);}}}}} /* k6463 in k6456 in body1348 in chicken.csi#dump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_6465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6465,2,av);} /* csi.scm:743: hexdump */ f_6579(((C_word*)t0)[2],((C_word*)t0)[3],t1,*((C_word*)lf[215]+1),((C_word*)t0)[4]);} /* k6480 in k6456 in body1348 in chicken.csi#dump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_6482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6482,2,av);} /* csi.scm:744: hexdump */ f_6579(((C_word*)t0)[2],((C_word*)t0)[3],t1,*((C_word*)lf[215]+1),((C_word*)t0)[4]);} /* k6499 in k6456 in body1348 in chicken.csi#dump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_fcall f_6501(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_6501,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6511,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_block_size(t3); /* csi.scm:749: bestlen */ t6=((C_word*)t0)[5]; f_6436(t6,t4,t5);} else{ /* csi.scm:750: ##sys#error */ t2=*((C_word*)lf[31]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[243]; av2[3]=lf[246]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k6509 in k6499 in k6456 in body1348 in chicken.csi#dump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_6511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6511,2,av);} /* csi.scm:749: hexdump */ f_6579(((C_word*)t0)[2],((C_word*)t0)[3],t1,*((C_word*)lf[215]+1),((C_word*)t0)[4]);} /* def-out1351 in chicken.csi#dump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_fcall f_6539(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_6539,3,t0,t1,t2);} /* csi.scm:738: body1348 */ t3=((C_word*)t0)[2]; f_6433(t3,t1,t2,*((C_word*)lf[83]+1));} /* def-len1350 in chicken.csi#dump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_fcall f_6544(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_6544,2,t0,t1);} /* csi.scm:738: def-out1351 */ t2=((C_word*)t0)[2]; f_6539(t2,t1,C_SCHEME_FALSE);} /* chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_6579(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,6)))){ C_save_and_reclaim_args((void *)trf_6579,5,t1,t2,t3,t4,t5);} a=C_alloc(12); t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6582,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6614,a[2]=t3,a[3]=t8,a[4]=t5,a[5]=t4,a[6]=t2,a[7]=t6,tmp=(C_word)a,a+=8,tmp)); t10=((C_word*)t8)[1]; f_6614(t10,t1,C_fix(0));} /* justify in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_fcall f_6582(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_6582,5,t1,t2,t3,t4,t5);} a=C_alloc(5); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6586,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[247]); C_word av2[4]; av2[0]=*((C_word*)lf[247]+1); av2[1]=t6; av2[2]=t2; av2[3]=t4; tp(4,av2);}} /* k6584 in justify in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_6586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6586,2,av);} a=C_alloc(4); t2=t1; t3=C_block_size(t2); if(C_truep(C_fixnum_lessp(t3,((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6602,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_difference(((C_word*)t0)[2],t3); /* csi.scm:763: make-string */ t6=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6600 in k6584 in justify in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_6602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6602,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_fcall f_6614(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ C_save_and_reclaim_args((void *)trf_6614,3,t0,t1,t2);} a=C_alloc(14); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6624,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6782,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csi.scm:768: justify */ f_6582(t4,t2,C_fix(4),C_fix(10),C_make_character(32));}} /* k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_6624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6624,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6627,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* ##sys#write-char/port */ t3=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(58); av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_6627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_6627,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6630,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6699,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_6699(t6,t2,C_fix(0),((C_word*)t0)[2]);} /* k6628 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_6630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6630,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6633,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* ##sys#write-char/port */ t3=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6631 in k6628 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_6633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_6633,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6636,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6648,a[2]=((C_word*)t0)[6],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_6648(t6,t2,C_fix(0),((C_word*)t0)[2]);} /* k6634 in k6631 in k6628 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_6636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6636,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6639,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* ##sys#write-char/port */ t3=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6637 in k6634 in k6631 in k6628 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_6639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6639,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(16)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6614(t3,((C_word*)t0)[4],t2);} /* doloop1397 in k6631 in k6628 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_fcall f_6648(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_6648,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_fixnum_greater_or_equal_p(t2,C_fix(16)); t5=(C_truep(t4)?t4:C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2])); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6661,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* csi.scm:785: ref */ t7=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[6]; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* k6659 in doloop1397 in k6631 in k6628 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_6661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6661,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6664,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_fixnum_greater_or_equal_p(t1,C_fix(32)); t4=(C_truep(t3)?C_fixnum_lessp(t1,C_fix(128)):C_SCHEME_FALSE); if(C_truep(t4)){ t5=C_make_character(C_unfix(t1)); /* ##sys#write-char/port */ t6=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=t5; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ /* ##sys#write-char/port */ t5=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=C_make_character(46); av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k6662 in k6659 in doloop1397 in k6631 in k6628 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_6664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6664,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_6648(t4,((C_word*)t0)[5],t2,t3);} /* doloop1396 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_fcall f_6699(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_6699,4,t0,t1,t2,t3);} a=C_alloc(10); t4=C_fixnum_greater_or_equal_p(t2,C_fix(16)); t5=(C_truep(t4)?t4:C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2])); if(C_truep(t5)){ if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]))){ t6=C_fixnum_modulo(((C_word*)t0)[2],C_fix(16)); t7=C_eqp(t6,C_fix(0)); if(C_truep(t7)){ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=C_fixnum_difference(C_fix(16),t6); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6733,a[2]=t10,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_6733(t12,t1,t8);}} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6753,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* ##sys#write-char/port */ t7=C_fast_retrieve(lf[248]);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* doloop1405 in doloop1396 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_fcall f_6733(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_6733,3,t0,t1,t2);} a=C_alloc(5); t3=C_eqp(t2,C_fix(0)); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6743,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* csi.scm:778: display */ t5=*((C_word*)lf[93]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=lf[249]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k6741 in doloop1405 in doloop1396 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_6743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6743,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6733(t3,((C_word*)t0)[4],t2);} /* k6751 in doloop1396 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_6753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_6753,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6756,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6771,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6775,a[2]=((C_word*)t0)[7],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* csi.scm:780: ref */ t5=((C_word*)t0)[8];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} /* k6754 in k6751 in doloop1396 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_6756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6756,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_6699(t4,((C_word*)t0)[5],t2,t3);} /* k6769 in k6751 in doloop1396 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_6771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6771,2,av);} /* csi.scm:780: display */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6773 in k6751 in doloop1396 in k6625 in k6622 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_6775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6775,2,av);} /* csi.scm:780: justify */ f_6582(((C_word*)t0)[3],t1,C_fix(2),C_fix(16),C_make_character(48));} /* k6780 in doloop1386 in chicken.csi#hexdump in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_6782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6782,2,av);} /* csi.scm:768: display */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_6784(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_6784,2,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6787,tmp=(C_word)a,a+=2,tmp); t4=C_fast_retrieve(lf[95]); t5=(C_truep(C_fast_retrieve(lf[95]))?C_fast_retrieve(lf[95]):C_SCHEME_END_OF_LIST); t6=t5; t7=C_i_length(t6); t8=t7; t9=t2; t10=(C_truep(C_u_i_memq(t9,t6))?t2:C_SCHEME_FALSE); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6810,a[2]=t8,a[3]=t3,a[4]=t1,a[5]=t6,tmp=(C_word)a,a+=6,tmp); if(C_truep(t10)){ t12=t11; f_6810(t12,t10);} else{ if(C_truep(C_fixnum_greaterp(t8,C_fix(0)))){ t12=C_fixnum_difference(t8,C_fix(1)); t13=t11; f_6810(t13,C_i_list_ref(t6,t12));} else{ t12=t11; f_6810(t12,C_SCHEME_FALSE);}}} /* prin1 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_fcall f_6787(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_6787,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6793,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:799: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[87]); C_word av2[4]; av2[0]=*((C_word*)lf[87]+1); av2[1]=t1; av2[2]=C_fix(100); av2[3]=t3; tp(4,av2);}} /* a6792 in prin1 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_6793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6793,2,av);} /* csi.scm:802: ##sys#print */ t2=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[83]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_fcall f_6810(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_6810,2,t0,t1);} a=C_alloc(6); t2=C_mutate(&lf[8] /* (set! chicken.csi#selected-frame ...) */,t1); t3=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6819,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_6819(t7,((C_word*)t0)[4],((C_word*)t0)[5],t3);} /* doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_fcall f_6819(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_6819,4,t0,t1,t2,t3);} a=C_alloc(14); if(C_truep(C_i_nullp(t2))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=C_eqp(C_retrieve2(lf[8],C_text("chicken.csi#selected-frame")),t5); t7=t6; t8=C_slot(t5,C_fix(1)); t9=t8; t10=C_slot(t5,C_fix(2)); t11=t10; t12=C_i_structurep(t11,lf[98]); t13=t12; t14=(C_truep(t13)?C_slot(t11,C_fix(1)):t11); t15=t14; t16=*((C_word*)lf[83]+1); t17=*((C_word*)lf[83]+1); t18=C_i_check_port_2(*((C_word*)lf[83]+1),C_fix(2),C_SCHEME_TRUE,lf[84]); t19=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6850,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t7,a[7]=t13,a[8]=((C_word*)t0)[3],a[9]=t11,a[10]=t9,a[11]=t15,a[12]=t16,a[13]=t5,tmp=(C_word)a,a+=14,tmp); if(C_truep(t7)){ /* csi.scm:818: ##sys#print */ t20=*((C_word*)lf[86]+1);{ C_word av2[5]; av2[0]=t20; av2[1]=t19; av2[2]=C_make_character(42); av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[83]+1); ((C_proc)(void*)(*((C_word*)t20+1)))(5,av2);}} else{ /* csi.scm:818: ##sys#print */ t20=*((C_word*)lf[86]+1);{ C_word av2[5]; av2[0]=t20; av2[1]=t19; av2[2]=C_make_character(32); av2[3]=C_SCHEME_FALSE; av2[4]=t16; ((C_proc)(void*)(*((C_word*)t20+1)))(5,av2);}}}} /* k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_6850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_6850,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6853,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); /* csi.scm:818: ##sys#print */ t3=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_6853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_6853,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); /* csi.scm:818: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[89]+1); av2[1]=t2; av2[2]=C_make_character(58); av2[3]=((C_word*)t0)[12]; tp(4,av2);}} /* k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_6856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_6856,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6859,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7028,a[2]=t2,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[7])){ t4=C_slot(((C_word*)t0)[9],C_fix(2)); t5=t3; f_7028(t5,C_i_pairp(t4));} else{ t4=t3; f_7028(t4,C_SCHEME_FALSE);}} /* k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_6859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_6859,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6862,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); /* csi.scm:818: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[89]+1); av2[1]=t2; av2[2]=C_make_character(9); av2[3]=((C_word*)t0)[12]; tp(4,av2);}} /* k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_6862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_6862,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); t3=C_slot(((C_word*)t0)[13],C_fix(0)); /* csi.scm:818: ##sys#print */ t4=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_6865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_6865,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6868,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* csi.scm:818: ##sys#print */ t3=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[254]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_6868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_6868,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6871,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)t0)[11])){ t3=*((C_word*)lf[83]+1); t4=*((C_word*)lf[83]+1); t5=C_i_check_port_2(*((C_word*)lf[83]+1),C_fix(2),C_SCHEME_TRUE,lf[84]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7011,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp); /* csi.scm:823: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[89]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[89]+1); av2[1]=t6; av2[2]=C_make_character(91); av2[3]=*((C_word*)lf[83]+1); tp(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6871(2,av2);}}} /* k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_ccall f_6871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_6871,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6874,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[10])){ /* csi.scm:824: prin1 */ f_6787(t2,((C_word*)t0)[10]);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6874(2,av2);}}} /* k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_ccall f_6874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_6874,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6877,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* csi.scm:825: newline */ t3=*((C_word*)lf[85]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in ... */ static void C_ccall f_6877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_6877,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6880,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(C_truep(((C_word*)t0)[6])?((C_word*)t0)[7]:C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6893,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp); t5=C_slot(((C_word*)t0)[9],C_fix(2)); t6=C_slot(((C_word*)t0)[9],C_fix(3)); t7=C_i_check_list_2(t5,lf[100]); t8=C_i_check_list_2(t6,lf[100]); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6967,a[2]=t10,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_6967(t12,t2,t5,t6);} else{ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t7=((C_word*)((C_word*)t0)[4])[1]; f_6819(t7,((C_word*)t0)[5],t5,t6);}} /* k6878 in k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in ... */ static void C_ccall f_6880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6880,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t5=((C_word*)((C_word*)t0)[4])[1]; f_6819(t5,((C_word*)t0)[5],t3,t4);} /* g1480 in k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in ... */ static void C_fcall f_6893(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6893,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6903,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* csi.scm:830: display */ t5=*((C_word*)lf[93]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[252]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k6901 in g1480 in k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in ... */ static void C_ccall f_6903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_6903,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6908,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_6908(t5,((C_word*)t0)[4],C_fix(0),((C_word*)t0)[5]);} /* doloop1493 in k6901 in g1480 in k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in ... */ static void C_fcall f_6908(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_6908,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_nullp(t3))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=*((C_word*)lf[83]+1); t5=*((C_word*)lf[83]+1); t6=C_i_check_port_2(*((C_word*)lf[83]+1),C_fix(2),C_SCHEME_TRUE,lf[84]); t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6921,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=t4,tmp=(C_word)a,a+=9,tmp); /* csi.scm:834: ##sys#print */ t8=*((C_word*)lf[86]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=lf[251]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[83]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} /* k6919 in doloop1493 in k6901 in g1480 in k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in ... */ static void C_ccall f_6921(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_6921,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6924,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_i_car(((C_word*)t0)[3]); /* csi.scm:834: ##sys#print */ t4=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6922 in k6919 in doloop1493 in k6901 in g1480 in k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in ... */ static void C_ccall f_6924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_6924,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6927,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* csi.scm:834: ##sys#print */ t3=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[250]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6925 in k6922 in k6919 in doloop1493 in k6901 in g1480 in k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in ... */ static void C_ccall f_6927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6927,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6930,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_slot(((C_word*)t0)[6],((C_word*)t0)[2]); /* csi.scm:835: prin1 */ f_6787(t2,t3);} /* k6928 in k6925 in k6922 in k6919 in doloop1493 in k6901 in g1480 in k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in ... */ static void C_ccall f_6930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6930,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csi.scm:836: newline */ t3=*((C_word*)lf[85]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6931 in k6928 in k6925 in k6922 in k6919 in doloop1493 in k6901 in g1480 in k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in ... */ static void C_ccall f_6933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6933,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=((C_word*)((C_word*)t0)[4])[1]; f_6908(t5,((C_word*)t0)[5],t2,t4);} /* for-each-loop1479 in k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in ... */ static void C_fcall f_6967(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_6967,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6977,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* csi.scm:827: g1480 */ t9=((C_word*)t0)[3]; f_6893(t9,t6,t7,t8);} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k6975 in for-each-loop1479 in k6875 in k6872 in k6869 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in ... */ static void C_ccall f_6977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6977,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_6967(t4,((C_word*)t0)[5],t2,t3);} /* k7009 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_ccall f_7011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_7011,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7014,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:823: ##sys#print */ t3=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7012 in k7009 in k6866 in k6863 in k6860 in k6857 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_ccall f_7014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7014,2,av);} /* csi.scm:823: ##sys#print */ t2=*((C_word*)lf[86]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[253]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7026 in k6854 in k6851 in k6848 in doloop1442 in k6808 in chicken.csi#show-frameinfo in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_fcall f_7028(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_7028,2,t0,t1);} if(C_truep(t1)){ /* csi.scm:818: ##sys#print */ t2=*((C_word*)lf[86]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[255]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ /* csi.scm:818: ##sys#print */ t2=*((C_word*)lf[86]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[256]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k7067 in k4750 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_7069(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_7069,2,t0,t1);} if(C_truep(t1)){ /* csi.scm:847: display */ t2=*((C_word*)lf[93]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[94]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_i_length(C_fast_retrieve(lf[95])); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=C_fixnum_difference(t2,t3); t5=C_i_list_ref(C_fast_retrieve(lf[95]),t4); t6=C_mutate(&lf[8] /* (set! chicken.csi#selected-frame ...) */,t5); /* csi.scm:853: show-frameinfo */ f_6784(((C_word*)t0)[2],C_retrieve2(lf[8],C_text("chicken.csi#selected-frame")));}} /* k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_7126(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_7126,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7128,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7159,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* csi.scm:874: call/cc */ t5=*((C_word*)lf[102]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* compare in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_fcall f_7128(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_7128,3,t0,t1,t2);} a=C_alloc(4); t3=C_slot(t2,C_fix(1)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7139,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=C_i_string_length(((C_word*)t0)[2]); t6=C_i_string_length(t3); t7=C_i_fixnum_min(t5,t6); /* csi.scm:872: scheme#substring */ t8=*((C_word*)lf[13]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t4; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} /* k7137 in compare in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_7139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7139,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_string_equal_p(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_7159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_7159,3,av);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7162,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7181,a[2]=t3,a[3]=t5,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_7181(t7,t1,((C_word*)t0)[4]);} /* fail in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_fcall f_7162(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7162,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7166,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csi.scm:877: display */ t4=*((C_word*)lf[93]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7164 in fail in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_7166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7166,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7169,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:878: newline */ t3=*((C_word*)lf[85]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7167 in k7164 in fail in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_7169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7169,2,av);} t2=*((C_word*)lf[29]+1); /* csi.scm:879: return */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[29]+1); ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_fcall f_7181(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ C_save_and_reclaim_args((void *)trf_7181,3,t0,t1,t2);} a=C_alloc(20); if(C_truep(C_i_nullp(t2))){ /* csi.scm:881: fail */ t3=((C_word*)t0)[2]; f_7162(t3,t1,lf[97]);} else{ t3=C_i_car(t2); t4=C_eqp(C_retrieve2(lf[8],C_text("chicken.csi#selected-frame")),t3); t5=C_slot(t3,C_fix(2)); t6=C_i_structurep(t5,lf[98]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7206,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t8=(C_truep(t4)?t6:C_SCHEME_FALSE); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7215,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t10=C_slot(t5,C_fix(2)); t11=C_slot(t5,C_fix(3)); t12=C_i_check_list_2(t10,lf[100]); t13=C_i_check_list_2(t11,lf[100]); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7291,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7300,a[2]=t16,a[3]=t9,tmp=(C_word)a,a+=4,tmp)); t18=((C_word*)t16)[1]; f_7300(t18,t14,t10,t11);} else{ t9=t2; t10=C_u_i_cdr(t9); t19=t1; t20=t10; t1=t19; t2=t20; goto loop;}}} /* k7204 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_7206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7206,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)((C_word*)t0)[3])[1]; f_7181(t4,((C_word*)t0)[4],t3);} /* g1577 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_fcall f_7215(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_7215,4,t0,t1,t2,t3);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7221,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_7221(t7,t1,C_fix(0),t2);} /* doloop1590 in g1577 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_fcall f_7221(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_7221,4,t0,t1,t2,t3);} a=C_alloc(15); if(C_truep(C_i_nullp(t3))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7231,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7243,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t3,a[7]=((C_word*)t0)[2],a[8]=t1,tmp=(C_word)a,a+=9,tmp); t6=C_i_car(t3); /* csi.scm:893: compare */ t7=((C_word*)t0)[5]; f_7128(t7,t5,t6);}} /* k7229 in doloop1590 in g1577 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_7231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7231,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=((C_word*)((C_word*)t0)[4])[1]; f_7221(t5,((C_word*)t0)[5],t2,t4);} /* k7241 in doloop1590 in g1577 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_7243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7243,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7246,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* csi.scm:894: display */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[99]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t3=((C_word*)t0)[6]; t4=C_u_i_cdr(t3); t5=((C_word*)((C_word*)t0)[7])[1]; f_7221(t5,((C_word*)t0)[8],t2,t4);}} /* k7244 in k7241 in doloop1590 in g1577 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_7246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7246,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7249,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[6]; t4=C_u_i_car(t3); /* csi.scm:895: display */ t5=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7247 in k7244 in k7241 in doloop1590 in g1577 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_7249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7249,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7252,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csi.scm:896: newline */ t3=*((C_word*)lf[85]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7250 in k7247 in k7244 in k7241 in doloop1590 in g1577 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_7252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7252,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7255,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_slot(((C_word*)t0)[2],((C_word*)t0)[3]); t4=C_a_i_list1(&a,1,t3); /* csi.scm:897: history-add */ t5=C_retrieve2(lf[28],C_text("chicken.csi#history-add")); f_4106(t5,t2,t4);} /* k7253 in k7250 in k7247 in k7244 in k7241 in doloop1590 in g1577 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_7255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7255,2,av);} t2=C_slot(((C_word*)t0)[2],((C_word*)t0)[3]); /* csi.scm:898: return */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k7289 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_7291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7291,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7298,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:901: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=lf[101]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k7296 in k7289 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_7298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7298,2,av);} /* csi.scm:901: fail */ t2=((C_word*)t0)[2]; f_7162(t2,((C_word*)t0)[3],t1);} /* for-each-loop1576 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_fcall f_7300(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7300,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7310,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* csi.scm:888: g1577 */ t9=((C_word*)t0)[3]; f_7215(t9,t6,t7,t8);} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k7308 in for-each-loop1576 in doloop1562 in a7158 in k7124 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_7310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7310,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_7300(t4,((C_word*)t0)[5],t2,t3);} /* k7351 in k4763 in k4361 in chicken.csi#csi-eval in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_7353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7353,2,av);} t2=((C_word*)t0)[2]; f_7126(t2,C_SCHEME_FALSE);} /* chicken.csi#member* in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_7358(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7358,3,t1,t2,t3);} a=C_alloc(6); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7364,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_7364(t7,t1,t3);} /* loop in chicken.csi#member* in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_fcall f_7364(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_7364,3,t0,t1,t2);} a=C_alloc(7); if(C_truep(C_i_pairp(t2))){ t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7376,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_7376(t6,t1,((C_word*)t0)[3]);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* find in loop in chicken.csi#member* in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_fcall f_7376(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_7376,3,t0,t1,t2);} if(C_truep(C_i_nullp(t2))){ t3=C_i_cdr(((C_word*)t0)[2]); /* csi.scm:925: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_7364(t4,t1,t3);} else{ t3=C_i_car(t2); t4=C_i_car(((C_word*)t0)[2]); if(C_truep(C_i_equalp(t3,t4))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t2; t6=C_u_i_cdr(t5); /* csi.scm:927: find */ t8=t1; t9=t6; t1=t8; t2=t9; goto loop;}}} /* chicken.csi#canonicalize-args in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_7413(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7413,2,t1,t2);} a=C_alloc(5); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7419,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_7419(t6,t1,t2);} /* loop in chicken.csi#canonicalize-args in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_fcall f_7419(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7419,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; if(C_truep((C_truep(C_i_equalp(t4,lf[261]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[262]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[263]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[264]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[265]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7441,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t6=C_block_size(t4); if(C_truep(C_fixnum_greaterp(t6,C_fix(2)))){ t7=C_subchar(t4,C_fix(0)); if(C_truep(C_i_char_equalp(C_make_character(45),t7))){ t8=C_i_member(t4,lf[268]); t9=t5; f_7441(t9,C_i_not(t8));} else{ t8=t5; f_7441(t8,C_SCHEME_FALSE);}} else{ t7=t5; f_7441(t7,C_SCHEME_FALSE);}}}} /* k7439 in loop in chicken.csi#canonicalize-args in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_fcall f_7441(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_7441,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=C_subchar(((C_word*)t0)[2],C_fix(1)); if(C_truep(C_i_char_equalp(C_make_character(58),t2))){ t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* csi.scm:949: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_7419(t5,((C_word*)t0)[5],t4);} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7455,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7523,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:950: scheme#substring */ t5=*((C_word*)lf[13]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7531,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* csi.scm:954: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_7419(t5,t2,t4);}} /* k7453 in k7439 in loop in chicken.csi#canonicalize-args in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_7455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_7455,2,av);} a=C_alloc(19); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7562,tmp=(C_word)a,a+=2,tmp); t3=( f_7562(t1) ); if(C_truep(t3)){ t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7476,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7484,a[2]=t6,a[3]=t10,a[4]=t7,tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_7484(t12,t8,t1);} else{ /* csi.scm:953: ##sys#error */ t4=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[266]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k7474 in k7453 in k7439 in loop in chicken.csi#canonicalize-args in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_7476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7476,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7480,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* csi.scm:952: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_7419(t6,t3,t5);} /* k7478 in k7474 in k7453 in k7439 in loop in chicken.csi#canonicalize-args in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_7480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7480,2,av);} /* csi.scm:952: scheme#append */ t2=*((C_word*)lf[229]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1687 in k7453 in k7439 in loop in chicken.csi#canonicalize-args in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_fcall f_7484(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7484,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_string(&a,2,C_make_character(45),t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7521 in k7439 in loop in chicken.csi#canonicalize-args in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_7523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7523,2,av);} /* ##sys#string->list */ t2=C_fast_retrieve(lf[267]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7529 in k7439 in loop in chicken.csi#canonicalize-args in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_7531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7531,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k7453 in k7439 in loop in chicken.csi#canonicalize-args in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static C_word C_fcall f_7562(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} t2=C_i_nullp(t1); if(C_truep(t2)){ return(t2);} else{ t3=C_i_car(t1); if(C_truep((C_truep(C_eqp(t3,C_make_character(107)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(115)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(118)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(104)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(68)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(101)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(105)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(82)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(98)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(110)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(113)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(119)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(45)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(73)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(112)))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,C_make_character(80)))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))))))))))))){ t4=t1; t5=C_u_i_cdr(t4); t7=t5; t1=t7; goto loop;} else{ return(C_SCHEME_FALSE);}}} /* k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_7592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7592,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7595,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8653,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:975: chicken.process-context#command-line-arguments */ t5=C_fast_retrieve(lf[299]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_7595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7595,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7598,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csi.scm:977: member* */ f_7358(t4,lf[369],((C_word*)t3)[1]);} /* k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in ... */ static void C_ccall f_7598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7598,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7601,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* csi.scm:978: member* */ f_7358(t3,lf[368],((C_word*)((C_word*)t0)[2])[1]);} /* k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in ... */ static void C_ccall f_7601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_7601,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7604,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8553,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_cdr(t2); t6=C_i_pairp(t5); t7=C_i_not(t6); if(C_truep(t7)){ if(C_truep(t7)){ /* csi.scm:983: ##sys#error */ t8=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t4; av2[2]=lf[366]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t8=t4;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_8553(2,av2);}}} else{ t8=C_i_cadr(t2); t9=C_i_string_length(t8); t10=C_eqp(t9,C_fix(0)); if(C_truep(t10)){ if(C_truep(t10)){ /* csi.scm:983: ##sys#error */ t11=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t4; av2[2]=lf[366]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t11=t4;{ C_word *av2=av; av2[0]=t11; av2[1]=C_SCHEME_UNDEFINED; f_8553(2,av2);}}} else{ t11=C_u_i_cdr(t2); t12=C_u_i_car(t11); t13=C_i_string_ref(t12,C_fix(0)); if(C_truep(C_u_i_char_equalp(C_make_character(45),t13))){ /* csi.scm:983: ##sys#error */ t14=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t4; av2[2]=lf[366]; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} else{ t14=t4;{ C_word *av2=av; av2[0]=t14; av2[1]=C_SCHEME_UNDEFINED; f_8553(2,av2);}}}}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8636,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8649,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csi.scm:993: canonicalize-args */ f_7413(t5,((C_word*)t0)[5]);}} /* k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_fcall f_7604(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7604,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7607,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csi.scm:996: member* */ f_7358(t2,lf[363],((C_word*)((C_word*)t0)[2])[1]);} /* k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_7607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7607,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7610,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[3])){ t4=t3; f_7610(t4,((C_word*)t0)[3]);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8547,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:997: member* */ f_7358(t4,lf[362],((C_word*)((C_word*)t0)[2])[1]);}} /* k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_fcall f_7610(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_7610,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7613,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* csi.scm:998: member* */ f_7358(t3,lf[361],((C_word*)((C_word*)t0)[2])[1]);} /* k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_7613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7613,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7616,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[4])){ t3=t2; f_7616(t3,((C_word*)t0)[4]);} else{ if(C_truep(t1)){ t3=t1; t4=t2; f_7616(t4,t3);} else{ t3=t2; f_7616(t3,((C_word*)t0)[6]);}}} /* k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_fcall f_7616(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){ C_save_and_reclaim_args((void *)trf_7616,2,t0,t1);} a=C_alloc(20); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_retrieve2(lf[12],C_text("chicken.csi#chop-separator")); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7622,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=t5,a[10]=t7,a[11]=t6,tmp=(C_word)a,a+=12,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8538,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1002: chicken.process-context#get-environment-variable */ t10=C_fast_retrieve(lf[23]);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=lf[360]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_7622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_7622,2,av);} a=C_alloc(17); t2=C_i_check_list_2(t1,lf[138]); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7628,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8502,a[2]=((C_word*)t0)[9],a[3]=t5,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_8502(t7,t3,t1);} /* k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_ccall f_7628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_7628,2,av);} a=C_alloc(24); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7630,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp)); t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7742,tmp=(C_word)a,a+=2,tmp)); t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7799,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=t2,a[11]=t4,tmp=(C_word)a,a+=12,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8494,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1027: member* */ f_7358(t10,lf[358],((C_word*)((C_word*)t0)[2])[1]);} /* collect-options in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_fcall f_7630(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7630,3,t0,t1,t2);} a=C_alloc(6); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7636,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_7636(t6,t1,((C_word*)((C_word*)t0)[2])[1]);} /* loop in collect-options in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in ... */ static void C_fcall f_7636(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_7636,3,t0,t1,t2);} a=C_alloc(4); t3=C_i_member(((C_word*)t0)[2],t2); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7644,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1005: g1861 */ t5=t4; f_7644(t5,t1,t3);} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* g1861 in loop in collect-options in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in ... */ static void C_fcall f_7644(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_7644,3,t0,t1,t2);} a=C_alloc(4); t3=C_i_cdr(t2); if(C_truep(C_i_nullp(t3))){ /* csi.scm:1008: ##sys#error */ t4=*((C_word*)lf[31]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t1; av2[2]=lf[270]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=C_i_cadr(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7665,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); t9=C_u_i_cdr(t8); /* csi.scm:1009: loop */ t10=((C_word*)((C_word*)t0)[3])[1]; f_7636(t10,t6,t9);}} /* k7663 in g1861 in loop in collect-options in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in ... */ static void C_ccall f_7665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7665,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7679 in k8149 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in ... */ static void C_ccall f_7681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_7681,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7684,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=C_a_i_list2(&a,2,t1,lf[311]); /* csi.scm:1013: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[308]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_retrieve2(lf[1],C_text("chicken.csi#constant680")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_7684(2,av2);}}} /* k7682 in k7679 in k8149 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in ... */ static void C_ccall f_7684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7684,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7687,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csi.scm:1015: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[23]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[310]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7685 in k7682 in k7679 in k8149 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_7687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_7687,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=C_i_string_equal_p(t2,lf[307]); if(C_truep(C_i_not(t4))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7727,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t6=C_retrieve2(lf[1],C_text("chicken.csi#constant680")); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t5; av2[2]=lf[309]; av2[3]=C_retrieve2(lf[1],C_text("chicken.csi#constant680")); tp(4,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_7690(2,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_7690(2,av2);}}} /* k7688 in k7685 in k7682 in k7679 in k8149 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in ... */ static void C_ccall f_7690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7690,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[3])){ /* csi.scm:1018: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[14]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_7696(2,av2);}}} /* k7694 in k7688 in k7685 in k7682 in k7679 in k8149 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in ... */ static void C_ccall f_7696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7696,2,av);} a=C_alloc(4); if(C_truep(t1)){ /* csi.scm:1019: scheme#load */ t2=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7705,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ /* csi.scm:1020: chicken.file#file-exists? */ t3=C_fast_retrieve(lf[14]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k7703 in k7694 in k7688 in k7685 in k7682 in k7679 in k8149 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in ... */ static void C_ccall f_7705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7705,2,av);} if(C_truep(t1)){ /* csi.scm:1021: scheme#load */ t2=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7725 in k7685 in k7682 in k7679 in k8149 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in ... */ static void C_ccall f_7727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7727,2,av);} /* csi.scm:1017: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[308]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* evalstring in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_fcall f_7742(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7742,3,t1,t2,t3);} a=C_alloc(6); t4=C_i_nullp(t3); t5=(C_truep(t4)?(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7789,tmp=(C_word)a,a+=2,tmp):C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7749,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csi.scm:1023: chicken.base#open-input-string */ t8=C_fast_retrieve(lf[272]);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k7747 in evalstring in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in ... */ static void C_ccall f_7749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7749,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7756,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csi.scm:1024: scheme#read */ t4=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7754 in k7747 in evalstring in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in ... */ static void C_ccall f_7756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7756,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7758,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_7758(t5,((C_word*)t0)[4],t1);} /* doloop1891 in k7754 in k7747 in evalstring in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in ... */ static void C_fcall f_7758(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_7758,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_eofp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7768,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7779,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7781,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1026: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t4; av2[2]=t5; av2[3]=*((C_word*)lf[271]+1); C_call_with_values(4,av2);}}} /* k7766 in doloop1891 in k7754 in k7747 in evalstring in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in ... */ static void C_ccall f_7768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7768,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7775,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1024: scheme#read */ t3=*((C_word*)lf[51]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7773 in k7766 in doloop1891 in k7754 in k7747 in evalstring in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in ... */ static void C_ccall f_7775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7775,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_7758(t2,((C_word*)t0)[3],t1);} /* k7777 in doloop1891 in k7754 in k7747 in evalstring in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in ... */ static void C_ccall f_7779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7779,2,av);} /* csi.scm:1026: rec */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a7780 in doloop1891 in k7754 in k7747 in evalstring in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in ... */ static void C_ccall f_7781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7781,2,av);} /* csi.scm:1026: scheme#eval */ t2=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f_7789 in evalstring in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in ... */ static void C_ccall f_7789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7789,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[29]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_ccall f_7799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_7799,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7802,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(C_i_member(lf[352],((C_word*)((C_word*)t0)[6])[1]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8488,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9462,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csi.scm:145: chicken.platform#chicken-version */ t6=C_fast_retrieve(lf[316]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7802(2,av2);}}} /* k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in ... */ static void C_ccall f_7802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_7802,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7805,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(C_i_member(lf[350],((C_word*)((C_word*)t0)[6])[1]))){ t3=C_set_block_item(lf[351] /* ##sys#setup-mode */,0,C_SCHEME_TRUE); t4=t2; f_7805(t4,t3);} else{ t3=t2; f_7805(t3,C_SCHEME_UNDEFINED);}} /* k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in ... */ static void C_fcall f_7805(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_7805,2,t0,t1);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(C_i_member(lf[349],((C_word*)((C_word*)t0)[6])[1]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8471,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8478,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1036: chicken.platform#chicken-version */ t5=C_fast_retrieve(lf[316]);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7808(2,av2);}}} /* k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in ... */ static void C_ccall f_7808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_7808,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7811,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8458,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1038: member* */ f_7358(t3,lf[348],((C_word*)((C_word*)t0)[6])[1]);} /* k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in ... */ static void C_fcall f_7811(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_7811,2,t0,t1);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7814,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8443,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1041: member* */ f_7358(t3,lf[345],((C_word*)((C_word*)t0)[6])[1]);} /* k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in ... */ static void C_ccall f_7814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7814,2,av);} a=C_alloc(13); t2=C_fast_retrieve(lf[273]); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7817,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); /* csi.scm:1045: collect-options */ t4=((C_word*)((C_word*)t0)[11])[1]; f_7630(t4,t3,lf[342]);} /* k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in ... */ static void C_ccall f_7817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_7817,2,av);} a=C_alloc(18); t2=C_i_check_list_2(t1,lf[100]); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7823,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8419,a[2]=t5,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_8419(t7,t3,t1);} /* k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in ... */ static void C_ccall f_7823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7823,2,av);} a=C_alloc(13); t2=C_fast_retrieve(lf[273]); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); /* csi.scm:1046: collect-options */ t4=((C_word*)((C_word*)t0)[11])[1]; f_7630(t4,t3,lf[341]);} /* k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in ... */ static void C_ccall f_7826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_7826,2,av);} a=C_alloc(18); t2=C_i_check_list_2(t1,lf[100]); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7832,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8396,a[2]=t5,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_8396(t7,t3,t1);} /* k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in ... */ static void C_ccall f_7832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7832,2,av);} a=C_alloc(13); t2=C_fast_retrieve(lf[274]); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); /* csi.scm:1047: collect-options */ t4=((C_word*)((C_word*)t0)[11])[1]; f_7630(t4,t3,lf[340]);} /* k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in ... */ static void C_ccall f_7835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_7835,2,av);} a=C_alloc(18); t2=C_i_check_list_2(t1,lf[100]); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7841,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8373,a[2]=t5,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_8373(t7,t3,t1);} /* k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in ... */ static void C_ccall f_7841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){ C_save_and_reclaim((void *)f_7841,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7845,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8277,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_retrieve2(lf[12],C_text("chicken.csi#chop-separator")); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8284,a[2]=t3,a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[11],a[5]=t6,a[6]=t8,a[7]=t7,tmp=(C_word)a,a+=8,tmp); /* csi.scm:1050: collect-options */ t10=((C_word*)((C_word*)t0)[11])[1]; f_7630(t10,t9,lf[339]);} /* k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in ... */ static void C_ccall f_7845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7845,2,av);} a=C_alloc(9); t2=C_mutate((C_word*)lf[126]+1 /* (set! ##sys#include-pathnames ...) */,t1); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7848,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[9])){ t4=C_i_cdr(((C_word*)t0)[9]); t5=C_i_pairp(t4); if(C_truep(C_i_not(t5))){ /* csi.scm:1057: ##sys#error */ t6=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=lf[331]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t6=C_i_cadr(((C_word*)t0)[9]); if(C_truep(C_i_string_equal_p(lf[332],t6))){ /* csi.scm:1059: chicken.base#keyword-style */ t7=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t3; av2[2]=lf[333]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t7=C_u_i_cdr(((C_word*)t0)[9]); t8=C_u_i_car(t7); if(C_truep(C_i_string_equal_p(lf[334],t8))){ /* csi.scm:1061: chicken.base#keyword-style */ t9=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t3; av2[2]=lf[323]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t9=C_u_i_cdr(((C_word*)t0)[9]); t10=C_u_i_car(t9); if(C_truep(C_i_string_equal_p(lf[335],t10))){ /* csi.scm:1063: chicken.base#keyword-style */ t11=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t3; av2[2]=lf[336]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t11=t3;{ C_word *av2=av; av2[0]=t11; av2[1]=C_SCHEME_UNDEFINED; f_7848(2,av2);}}}}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_7848(2,av2);}}} /* k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in ... */ static void C_ccall f_7848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_7848,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8210,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1064: member* */ f_7358(t3,lf[330],((C_word*)((C_word*)t0)[6])[1]);} /* k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in ... */ static void C_ccall f_7851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_7851,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7854,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8198,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1067: member* */ f_7358(t3,lf[328],((C_word*)((C_word*)t0)[6])[1]);} /* k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in ... */ static void C_ccall f_7854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_7854,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8177,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1070: member* */ f_7358(t3,lf[326],((C_word*)((C_word*)t0)[6])[1]);} /* k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in ... */ static void C_ccall f_7857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_7857,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_a_i_cons(&a,2,lf[319],C_fast_retrieve(lf[320])); /* csi.scm:1079: scheme#eval */ t4=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in ... */ static void C_ccall f_7860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_7860,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7863,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_a_i_cons(&a,2,lf[289],C_fast_retrieve(lf[318])); /* csi.scm:1080: scheme#eval */ t4=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in ... */ static void C_ccall f_7863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_7863,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7866,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[8])){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7866(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8163,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1082: chicken.load#load-verbose */ t4=C_fast_retrieve(lf[317]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in ... */ static void C_ccall f_7866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_7866,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7869,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8151,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csi.scm:1084: member* */ f_7358(t3,lf[313],((C_word*)((C_word*)t0)[6])[1]);} /* k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in ... */ static void C_ccall f_7869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7869,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7872,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[2])){ t3=C_set_block_item(lf[6] /* ##sys#notices-enabled */,0,C_SCHEME_FALSE); t4=t2; f_7872(t4,t3);} else{ t3=t2; f_7872(t3,C_SCHEME_UNDEFINED);}} /* k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in ... */ static void C_fcall f_7872(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_7872,2,t0,t1);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7877,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_7877(t5,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);} /* doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in ... */ static void C_fcall f_7877(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){ C_save_and_reclaim_args((void *)trf_7877,3,t0,t1,t2);} a=C_alloc(17); t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); if(C_truep(C_i_nullp(((C_word*)t3)[1]))){ if(C_truep(((C_word*)t0)[2])){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_fast_retrieve(lf[275]); t5=C_mutate((C_word*)lf[275]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4232,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[277]+1 /* (set! ##sys#sharp-number-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4261,tmp=(C_word)a,a+=2,tmp)); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9399,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1092: chicken.repl#repl */ t8=C_fast_retrieve(lf[278]);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=C_retrieve2(lf[47],C_text("chicken.csi#csi-eval")); ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} else{ t4=C_i_car(((C_word*)t3)[1]); t5=C_i_member(t4,lf[279]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7905,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t7=C_i_cdr(((C_word*)t3)[1]); t20=t1; t21=t7; t1=t20; t2=t21; goto loop;} else{ if(C_truep((C_truep(C_i_equalp(t4,lf[280]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[281]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[282]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[283]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[284]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[285]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[286]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))))){ t7=C_i_cdr(((C_word*)t3)[1]); t8=C_set_block_item(t3,0,t7); t9=C_i_cdr(((C_word*)t3)[1]); t20=t1; t21=t9; t1=t20; t2=t21; goto loop;} else{ t7=C_i_string_equal_p(lf[287],t4); t8=(C_truep(t7)?t7:C_u_i_string_equal_p(lf[288],t4)); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7934,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7946,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=C_i_cadr(((C_word*)t3)[1]); /* csi.scm:1099: scheme#string->symbol */ t12=*((C_word*)lf[290]+1);{ C_word av2[3]; av2[0]=t12; av2[1]=t10; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t9=C_u_i_string_equal_p(lf[291],t4); t10=(C_truep(t9)?t9:C_u_i_string_equal_p(lf[292],t4)); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7961,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t12=C_i_cadr(((C_word*)t3)[1]); /* csi.scm:1102: evalstring */ f_7742(t11,t12,C_SCHEME_END_OF_LIST);} else{ t11=C_u_i_string_equal_p(lf[293],t4); t12=(C_truep(t11)?t11:C_u_i_string_equal_p(lf[294],t4)); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7980,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t14=C_i_cadr(((C_word*)t3)[1]); t15=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7990,tmp=(C_word)a,a+=2,tmp); /* csi.scm:1105: evalstring */ f_7742(t13,t14,C_a_i_list(&a,1,t15));} else{ t13=C_u_i_string_equal_p(lf[296],t4); t14=(C_truep(t13)?t13:C_u_i_string_equal_p(lf[297],t4)); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8005,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t16=C_i_cadr(((C_word*)t3)[1]); t17=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8015,tmp=(C_word)a,a+=2,tmp); /* csi.scm:1108: evalstring */ f_7742(t15,t16,C_a_i_list(&a,1,t17));} else{ t15=(C_truep(((C_word*)t0)[5])?C_i_car(((C_word*)t0)[5]):C_SCHEME_FALSE); t16=t15; t17=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8025,a[2]=t16,a[3]=t6,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_equalp(lf[301],t16))){ t18=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8077,tmp=(C_word)a,a+=2,tmp); /* csi.scm:1112: scheme#load */ t19=*((C_word*)lf[64]+1);{ C_word av2[4]; av2[0]=t19; av2[1]=t17; av2[2]=t4; av2[3]=t18; ((C_proc)(void*)(*((C_word*)t19+1)))(4,av2);}} else{ /* csi.scm:1112: scheme#load */ t18=*((C_word*)lf[64]+1);{ C_word av2[4]; av2[0]=t18; av2[1]=t17; av2[2]=t4; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}}}}}}}}}} /* k7903 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_7905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7905,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=((C_word*)((C_word*)t0)[3])[1]; f_7877(t3,((C_word*)t0)[4],t2);} /* k7932 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_7934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7934,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=((C_word*)((C_word*)t0)[3])[1]; f_7877(t5,((C_word*)t0)[4],t4);} /* k7944 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_7946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7946,2,av);} a=C_alloc(6); t2=C_a_i_list(&a,2,lf[289],t1); /* csi.scm:1099: scheme#eval */ t3=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7959 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_7961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7961,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=((C_word*)((C_word*)t0)[3])[1]; f_7877(t5,((C_word*)t0)[4],t4);} /* k7978 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_7980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7980,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=((C_word*)((C_word*)t0)[3])[1]; f_7877(t5,((C_word*)t0)[4],t4);} /* a7989 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_7990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_7990,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3;{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[295]+1); av2[3]=*((C_word*)lf[106]+1); av2[4]=t2; C_apply(5,av2);}} /* k8003 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_8005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8005,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=((C_word*)((C_word*)t0)[3])[1]; f_7877(t5,((C_word*)t0)[4],t4);} /* a8014 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_8015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_8015,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3;{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[295]+1); av2[3]=C_fast_retrieve(lf[45]); av2[4]=t2; C_apply(5,av2);}} /* k8023 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_8025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_8025,2,av);} a=C_alloc(4); if(C_truep(C_i_equalp(lf[298],((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8036,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8049,tmp=(C_word)a,a+=2,tmp); /* csi.scm:1129: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); t3=((C_word*)((C_word*)t0)[5])[1]; f_7877(t3,((C_word*)t0)[6],t2);}} /* a8035 in k8023 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in ... */ static void C_ccall f_8036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8036,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8040,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1129: scheme#eval */ t3=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[300]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8038 in a8035 in k8023 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in ... */ static void C_ccall f_8040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8040,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8047,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1129: chicken.process-context#command-line-arguments */ t4=C_fast_retrieve(lf[299]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8045 in k8038 in a8035 in k8023 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in ... */ static void C_ccall f_8047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8047,2,av);} /* csi.scm:1129: g2063 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a8048 in k8023 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in ... */ static void C_ccall f_8049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_8049,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); if(C_truep(C_fixnump(t4))){ /* csi.scm:1131: chicken.base#exit */ t5=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* csi.scm:1131: chicken.base#exit */ t5=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* f_8077 in doloop1851 in k7870 in k7867 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in ... */ static void C_ccall f_8077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_8077,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8081,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8132,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1116: chicken.port#with-output-to-string */ t5=C_fast_retrieve(lf[306]);{ C_word *av2=av; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8079 */ static void C_ccall f_8081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_8081,2,av);} a=C_alloc(6); t2=t1; t3=C_block_size(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8087,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* csi.scm:1118: chicken.base#flush-output */ t6=*((C_word*)lf[305]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[83]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8085 in k8079 */ static void C_ccall f_8087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8087,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8090,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csi.scm:1119: scheme#display */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[304]; av2[3]=*((C_word*)lf[302]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8088 in k8085 in k8079 */ static void C_ccall f_8090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_8090,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8093,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8101,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_8101(t6,t2,C_fix(0));} /* k8091 in k8088 in k8085 in k8079 */ static void C_ccall f_8093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8093,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8096,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:1126: scheme#newline */ t3=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[302]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8094 in k8091 in k8088 in k8085 in k8079 */ static void C_ccall f_8096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8096,2,av);} /* csi.scm:1127: scheme#eval */ t2=*((C_word*)lf[53]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* doloop2052 in k8088 in k8085 in k8079 */ static void C_fcall f_8101(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_8101,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_string_ref(((C_word*)t0)[3],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8114,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* ##sys#write-char/port */ t6=C_fast_retrieve(lf[248]);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=*((C_word*)lf[302]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k8112 in doloop2052 in k8088 in k8085 in k8079 */ static void C_ccall f_8114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_8114,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8117,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_u_i_char_equalp(C_make_character(10),((C_word*)t0)[5]))){ /* csi.scm:1125: scheme#display */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[303]; av2[3]=*((C_word*)lf[302]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t4=((C_word*)((C_word*)t0)[3])[1]; f_8101(t4,((C_word*)t0)[4],t3);}} /* k8115 in k8112 in doloop2052 in k8088 in k8085 in k8079 */ static void C_ccall f_8117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8117,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8101(t3,((C_word*)t0)[4],t2);} /* a8131 */ static void C_ccall f_8132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8132,2,av);} t2=C_fast_retrieve(lf[45]); /* csi.scm:1116: g2049 */ t3=C_fast_retrieve(lf[45]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8149 in k7864 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in ... */ static void C_ccall f_8151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8151,2,av);} a=C_alloc(3); t2=(C_truep(t1)?t1:(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:((C_word*)t0)[3])); if(C_truep(t2)){ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7869(2,av2);}} else{ t3=((C_word*)t0)[4]; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7681,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:1012: chicken.platform#system-config-directory */ t5=C_fast_retrieve(lf[312]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k8161 in k7861 in k7858 in k7855 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in ... */ static void C_ccall f_8163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8163,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9440,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:145: chicken.platform#chicken-version */ t4=C_fast_retrieve(lf[316]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8175 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in ... */ static void C_ccall f_8177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8177,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8180,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_8180(2,av2);}} else{ /* csi.scm:1071: scheme#display */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[325]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_7857(2,av2);}}} /* k8178 in k8175 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in ... */ static void C_ccall f_8180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8180,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8183,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:1072: chicken.base#case-sensitive */ t3=C_fast_retrieve(lf[324]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8181 in k8178 in k8175 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in ... */ static void C_ccall f_8183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8183,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8186,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:1073: chicken.base#keyword-style */ t3=C_fast_retrieve(lf[128]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[323]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8184 in k8181 in k8178 in k8175 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in ... */ static void C_ccall f_8186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8186,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8189,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:1074: chicken.base#parentheses-synonyms */ t3=C_fast_retrieve(lf[322]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8187 in k8184 in k8181 in k8178 in k8175 in k7852 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in ... */ static void C_ccall f_8189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8189,2,av);} /* csi.scm:1075: chicken.base#symbol-escape */ t2=C_fast_retrieve(lf[321]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8196 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in ... */ static void C_ccall f_8198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8198,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8201,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* csi.scm:1069: chicken.base#symbol-escape */ t3=C_fast_retrieve(lf[321]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* csi.scm:1068: scheme#display */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[327]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_7854(2,av2);}}} /* k8199 in k8196 in k7849 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in ... */ static void C_ccall f_8201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8201,2,av);} /* csi.scm:1069: chicken.base#symbol-escape */ t2=C_fast_retrieve(lf[321]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8208 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in ... */ static void C_ccall f_8210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8210,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8213,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ /* csi.scm:1066: chicken.base#parentheses-synonyms */ t3=C_fast_retrieve(lf[322]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* csi.scm:1065: scheme#display */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[329]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_7851(2,av2);}}} /* k8211 in k8208 in k7846 in k7843 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in ... */ static void C_ccall f_8213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8213,2,av);} /* csi.scm:1066: chicken.base#parentheses-synonyms */ t2=C_fast_retrieve(lf[322]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8275 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in ... */ static void C_ccall f_8277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_8277,2,av);} a=C_alloc(6); t2=*((C_word*)lf[337]+1); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3122,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_3122(t6,((C_word*)t0)[2],t1);} /* k8282 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in ... */ static void C_ccall f_8284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_8284,2,av);} a=C_alloc(13); t2=C_i_check_list_2(t1,lf[138]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8339,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_8339(t7,t3,t1);} /* k8288 in k8282 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in ... */ static void C_ccall f_8290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_8290,2,av);} a=C_alloc(13); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_retrieve2(lf[12],C_text("chicken.csi#chop-separator")); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8297,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t5,a[6]=t7,a[7]=t6,tmp=(C_word)a,a+=8,tmp); /* csi.scm:1051: collect-options */ t9=((C_word*)((C_word*)t0)[4])[1]; f_7630(t9,t8,lf[338]);} /* k8295 in k8288 in k8282 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in ... */ static void C_ccall f_8297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_8297,2,av);} a=C_alloc(13); t2=C_i_check_list_2(t1,lf[138]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8303,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8305,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_8305(t7,t3,t1);} /* k8301 in k8295 in k8288 in k8282 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in ... */ static void C_ccall f_8303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8303,2,av);} /* csi.scm:1050: scheme#append */ t2=*((C_word*)lf[229]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=C_fast_retrieve(lf[126]); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* map-loop1951 in k8295 in k8288 in k8282 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in ... */ static void C_fcall f_8305(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8305,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8330,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:1051: g1957 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8328 in map-loop1951 in k8295 in k8288 in k8282 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in ... */ static void C_ccall f_8330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8330,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8305(t6,((C_word*)t0)[5],t5);} /* map-loop1925 in k8282 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in ... */ static void C_fcall f_8339(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8339,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8364,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:1050: g1931 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8362 in map-loop1925 in k8282 in k7839 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in ... */ static void C_ccall f_8364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8364,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8339(t6,((C_word*)t0)[5],t5);} /* for-each-loop1843 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in ... */ static void C_fcall f_8373(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8373,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8383,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:1047: g1844 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8381 in for-each-loop1843 in k7833 in k7830 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in ... */ static void C_ccall f_8383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8383,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8373(t3,((C_word*)t0)[4],t2);} /* for-each-loop1833 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in ... */ static void C_fcall f_8396(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8396,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8406,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:1046: g1834 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8404 in for-each-loop1833 in k7824 in k7821 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in ... */ static void C_ccall f_8406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8406,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8396(t3,((C_word*)t0)[4],t2);} /* for-each-loop1823 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in ... */ static void C_fcall f_8419(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8419,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8429,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:1045: g1824 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8427 in for-each-loop1823 in k7815 in k7812 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in ... */ static void C_ccall f_8429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8429,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8419(t3,((C_word*)t0)[4],t2);} /* k8441 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in ... */ static void C_ccall f_8443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_8443,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8446,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f9458,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:1043: chicken.platform#register-feature! */ t4=C_fast_retrieve(lf[273]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[343]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* csi.scm:1042: scheme#display */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[344]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_7814(2,av2);}}} /* k8444 in k8441 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in ... */ static void C_ccall f_8446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8446,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8449,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:1043: chicken.platform#register-feature! */ t3=C_fast_retrieve(lf[273]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[343]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8447 in k8444 in k8441 in k7809 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in ... */ static void C_ccall f_8449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8449,2,av);} /* csi.scm:1044: chicken.base#case-sensitive */ t2=C_fast_retrieve(lf[324]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8456 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in ... */ static void C_ccall f_8458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8458,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8461,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ t3=C_set_block_item(lf[346] /* ##sys#warnings-enabled */,0,C_SCHEME_FALSE); t4=((C_word*)t0)[2]; f_7811(t4,t3);} else{ /* csi.scm:1039: scheme#display */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[347]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} else{ t2=((C_word*)t0)[2]; f_7811(t2,C_SCHEME_UNDEFINED);}} /* k8459 in k8456 in k7806 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in ... */ static void C_ccall f_8461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8461,2,av);} t2=C_set_block_item(lf[346] /* ##sys#warnings-enabled */,0,C_SCHEME_FALSE); t3=((C_word*)t0)[2]; f_7811(t3,t2);} /* k8469 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in ... */ static void C_ccall f_8471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8471,2,av);} /* csi.scm:1037: chicken.base#exit */ t2=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8476 in k7803 in k7800 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in ... */ static void C_ccall f_8478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8478,2,av);} /* csi.scm:1036: chicken.base#print */ t2=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8486 in k7797 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in ... */ static void C_ccall f_8488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8488,2,av);} /* csi.scm:1032: chicken.base#exit */ t2=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8492 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_ccall f_8494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_8494,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8497,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3853,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:96: scheme#display */ t5=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[357]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_7799(2,av2);}}} /* k8495 in k8492 in k7626 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in ... */ static void C_ccall f_8497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8497,2,av);} /* csi.scm:1029: chicken.base#exit */ t2=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* map-loop1791 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in ... */ static void C_fcall f_8502(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8502,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8527,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csi.scm:1000: g1797 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8525 in map-loop1791 in k7620 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in ... */ static void C_ccall f_8527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8527,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8502(t6,((C_word*)t0)[5],t5);} /* k8536 in k7614 in k7611 in k7608 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in ... */ static void C_ccall f_8538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8538,2,av);} if(C_truep(t1)){ t2=t1; /* csi.scm:1001: ##sys#split-path */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[21]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[21]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t2; tp(3,av2);}} else{ /* csi.scm:1001: ##sys#split-path */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[21]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[21]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[359]; tp(3,av2);}}} /* k8545 in k7605 in k7602 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_8547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8547,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_7610(t3,t2);} else{ t2=((C_word*)t0)[2]; f_7610(t2,((C_word*)t0)[3]);}} /* k8551 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_8553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8553,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8556,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[2]); /* csi.scm:984: chicken.process-context#program-name */ t4=C_fast_retrieve(lf[365]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k8554 in k8551 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in ... */ static void C_ccall f_8556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8556,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8559,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_u_i_cdr(((C_word*)t0)[2]); t4=C_u_i_cdr(t3); /* csi.scm:985: chicken.process-context#command-line-arguments */ t5=C_fast_retrieve(lf[299]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8557 in k8554 in k8551 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in ... */ static void C_ccall f_8559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8559,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8562,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csi.scm:987: chicken.platform#register-feature! */ t3=C_fast_retrieve(lf[273]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[364]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8560 in k8557 in k8554 in k8551 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in ... */ static void C_ccall f_8562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8562,2,av);} a=C_alloc(4); t2=C_u_i_cdr(((C_word*)t0)[2]); t3=C_i_set_i_slot(t2,C_fix(1),C_SCHEME_END_OF_LIST); if(C_truep(*((C_word*)lf[11]+1))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8571,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=C_i_cadr(((C_word*)t0)[2]); /* csi.scm:990: lookup-script-file */ t6=C_retrieve2(lf[17],C_text("chicken.csi#lookup-script-file")); f_3999(t6,t4,t5);} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3]; f_7604(t5,t4);}} /* k8569 in k8560 in k8557 in k8554 in k8551 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in ... */ static void C_ccall f_8571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8571,2,av);} if(C_truep(t1)){ t2=C_u_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_7604(t3,C_i_set_car(t2,t1));} else{ t2=((C_word*)t0)[3]; f_7604(t2,C_SCHEME_FALSE);}} /* k8634 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_8636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8636,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_member(lf[367],((C_word*)((C_word*)t0)[2])[1]); t4=((C_word*)t0)[3]; f_7604(t4,(C_truep(t3)?C_i_set_cdr(t3,C_SCHEME_END_OF_LIST):C_SCHEME_FALSE));} /* k8647 in k7599 in k7596 in k7593 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in ... */ static void C_ccall f_8649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8649,2,av);} /* csi.scm:993: scheme#append */ t2=*((C_word*)lf[229]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k8651 in k7590 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_8653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8653,2,av);} /* csi.scm:975: canonicalize-args */ f_7413(((C_word*)t0)[2],t1);} /* k8655 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8657,2,av);} a=C_alloc(4); t2=(C_truep(t1)?t1:lf[370]); t3=((C_word*)t0)[2]; t4=t2; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4922,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* csi.scm:436: chicken.base#open-input-string */ t6=C_fast_retrieve(lf[272]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8661 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8663,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8669,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.base#implicit-exit-handler */ t3=C_fast_retrieve(lf[269]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8667 in k8661 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_8669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8669,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a8670 in k5388 in k5059 in k4914 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8671,3,av);} /* csi.scm:916: ##sys#user-interrupt-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[257]); C_word *av2=av; av2[0]=*((C_word*)lf[257]+1); av2[1]=t1; tp(2,av2);}} /* a8676 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8677,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8681,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csi.scm:420: scheme#read */ t3=*((C_word*)lf[51]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8679 in a8676 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_8681,2,av);} a=C_alloc(7); t2=t1; if(C_truep(C_i_not(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8690,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:422: ##sys#switch-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[381]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[381]+1); av2[1]=t3; av2[2]=C_SCHEME_FALSE; tp(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8696,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8717,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csi.scm:424: ##sys#resolve-module-name */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[385]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[385]+1); av2[1]=t4; av2[2]=t2; av2[3]=C_SCHEME_FALSE; tp(4,av2);}}} /* k8688 in k8679 in a8676 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8690,2,av);} /* csi.scm:423: printf */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[380]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8694 in k8679 in a8676 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8696,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8700,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:421: g989 */ t3=t2; f_8700(t3,((C_word*)t0)[3],t1);} else{ /* csi.scm:429: printf */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[383]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* g989 in k8694 in k8679 in a8676 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_fcall f_8700(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_8700,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8704,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csi.scm:426: ##sys#switch-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[381]); C_word av2[3]; av2[0]=*((C_word*)lf[381]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k8702 in g989 in k8694 in k8679 in a8676 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 in ... */ static void C_ccall f_8704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8704,2,av);} /* csi.scm:427: printf */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[382]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k8715 in k8679 in a8676 in k4270 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8717,2,av);} /* csi.scm:424: ##sys#find-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[384]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[384]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; tp(4,av2);}} /* a8718 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8719,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8727,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csi.scm:251: ##sys#current-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[392]); C_word *av2=av; av2[0]=*((C_word*)lf[392]+1); av2[1]=t2; tp(2,av2);}} /* k8725 in a8718 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8727,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8730,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8737,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csi.scm:253: ##sys#module-name */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[390]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[390]+1); av2[1]=t3; av2[2]=t1; tp(3,av2);}} else{ /* csi.scm:250: sprintf */ t3=*((C_word*)lf[194]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[388]; av2[3]=lf[391]; av2[4]=C_retrieve2(lf[26],C_text("chicken.csi#history-count")); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k8728 in k8725 in a8718 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8730,2,av);} /* csi.scm:250: sprintf */ t2=*((C_word*)lf[194]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[388]; av2[3]=t1; av2[4]=C_retrieve2(lf[26],C_text("chicken.csi#history-count")); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8735 in k8725 in a8718 in k3927 in k3845 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8737,2,av);} /* csi.scm:253: sprintf */ t2=*((C_word*)lf[194]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[389]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k8739 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8741,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_3847(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8750,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csi.scm:88: chicken.process-context#get-environment-variable */ t3=C_fast_retrieve(lf[23]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[397]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k8748 in k8739 in k3842 in k3837 in k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in k2514 */ static void C_ccall f_8750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8750,2,av);} t2=((C_word*)t0)[2]; f_3847(t2,(C_truep(t1)?lf[395]:lf[396]));} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1952))){ C_save(t1); C_rereclaim2(1952*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,404); lf[0]=C_h_intern(&lf[0],12, C_text("chicken.csi#")); lf[2]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005csirc")); lf[3]=C_h_intern(&lf[3],29, C_text("##sys#repl-print-length-limit")); lf[4]=C_h_intern_kw(&lf[4],3, C_text("csi")); lf[5]=C_h_intern(&lf[5],14, C_text("##sys#features")); lf[6]=C_h_intern(&lf[6],21, C_text("##sys#notices-enabled")); lf[7]=C_h_intern(&lf[7],26, C_text("chicken.csi#editor-command")); lf[11]=C_h_intern(&lf[11],22, C_text("##sys#windows-platform")); lf[13]=C_h_intern(&lf[13],16, C_text("scheme#substring")); lf[14]=C_h_intern(&lf[14],25, C_text("chicken.file#file-exists\077")); lf[15]=C_h_intern(&lf[15],19, C_text("##sys#string-append")); lf[16]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.bat")); lf[18]=C_h_intern(&lf[18],20, C_text("scheme#string-append")); lf[19]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[20]=C_h_intern(&lf[20],27, C_text("##sys#peek-nonnull-c-string")); lf[21]=C_h_intern(&lf[21],16, C_text("##sys#split-path")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[23]=C_h_intern(&lf[23],48, C_text("chicken.process-context#get-environment-variable")); lf[24]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004PATH")); lf[27]=C_h_intern(&lf[27],26, C_text("chicken.base#vector-resize")); lf[29]=C_h_intern(&lf[29],21, C_text("##sys#undefined-value")); lf[31]=C_h_intern(&lf[31],11, C_text("##sys#error")); lf[32]=C_decode_literal(C_heaptop,C_text("\376B\000\000 history entry index out of range")); lf[33]=C_h_intern(&lf[33],21, C_text("scheme#inexact->exact")); lf[34]=C_h_intern(&lf[34],20, C_text("##sys#break-on-error")); lf[35]=C_h_intern(&lf[35],22, C_text("##sys#read-prompt-hook")); lf[36]=C_h_intern(&lf[36],15, C_text("##sys#tty-port\077")); lf[37]=C_h_intern(&lf[37],20, C_text("##sys#standard-input")); lf[39]=C_h_intern(&lf[39],28, C_text("chicken.csi#toplevel-command")); lf[40]=C_h_intern(&lf[40],16, C_text("toplevel-command")); lf[41]=C_h_intern(&lf[41],25, C_text("chicken.load#load-noisily")); lf[42]=C_h_intern(&lf[42],20, C_text("chicken.io#read-line")); lf[43]=C_h_intern(&lf[43],27, C_text("chicken.string#string-split")); lf[44]=C_h_intern(&lf[44],21, C_text("chicken.syntax#expand")); lf[45]=C_h_intern(&lf[45],33, C_text("chicken.pretty-print#pretty-print")); lf[46]=C_h_intern(&lf[46],13, C_text("scheme#values")); lf[48]=C_h_intern(&lf[48],17, C_text("chicken.base#exit")); lf[49]=C_h_intern(&lf[49],1, C_text("x")); lf[50]=C_h_intern(&lf[50],27, C_text("chicken.syntax#strip-syntax")); lf[51]=C_h_intern(&lf[51],11, C_text("scheme#read")); lf[52]=C_h_intern(&lf[52],1, C_text("p")); lf[53]=C_h_intern(&lf[53],11, C_text("scheme#eval")); lf[54]=C_h_intern(&lf[54],1, C_text("d")); lf[56]=C_h_intern(&lf[56],2, C_text("du")); lf[58]=C_h_intern(&lf[58],3, C_text("dur")); lf[59]=C_h_intern(&lf[59],1, C_text("r")); lf[61]=C_h_intern(&lf[61],1, C_text("q")); lf[62]=C_h_intern(&lf[62],17, C_text("chicken.repl#quit")); lf[63]=C_h_intern(&lf[63],1, C_text("l")); lf[64]=C_h_intern(&lf[64],11, C_text("scheme#load")); lf[65]=C_h_intern(&lf[65],2, C_text("ln")); lf[66]=C_h_intern(&lf[66],19, C_text("chicken.base#print\052")); lf[67]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004==> ")); lf[68]=C_h_intern_kw(&lf[68],7, C_text("printer")); lf[69]=C_h_intern(&lf[69],1, C_text("t")); lf[70]=C_h_intern(&lf[70],19, C_text("##sys#display-times")); lf[71]=C_h_intern(&lf[71],16, C_text("##sys#stop-timer")); lf[72]=C_h_intern(&lf[72],17, C_text("##sys#start-timer")); lf[73]=C_h_intern(&lf[73],3, C_text("exn")); lf[74]=C_h_intern(&lf[74],20, C_text("##sys#last-exception")); lf[75]=C_h_intern(&lf[75],1, C_text("e")); lf[76]=C_h_intern(&lf[76],21, C_text("chicken.format#printf")); lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000,editor returned with non-zero exit status ~a")); lf[78]=C_h_intern(&lf[78],22, C_text("chicken.process#system")); lf[79]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[80]=C_h_intern(&lf[80],2, C_text("ch")); lf[81]=C_h_intern(&lf[81],19, C_text("scheme#vector-fill!")); lf[82]=C_h_intern(&lf[82],1, C_text("h")); lf[83]=C_h_intern(&lf[83],21, C_text("##sys#standard-output")); lf[84]=C_h_intern(&lf[84],6, C_text("printf")); lf[85]=C_h_intern(&lf[85],14, C_text("scheme#newline")); lf[86]=C_h_intern(&lf[86],11, C_text("##sys#print")); lf[87]=C_h_intern(&lf[87],29, C_text("##sys#with-print-length-limit")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[89]=C_h_intern(&lf[89],18, C_text("##sys#write-char-0")); lf[90]=C_h_intern(&lf[90],1, C_text("c")); lf[92]=C_h_intern(&lf[92],1, C_text("f")); lf[93]=C_h_intern(&lf[93],14, C_text("scheme#display")); lf[94]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016no such frame\012")); lf[95]=C_h_intern(&lf[95],28, C_text("##sys#repl-recent-call-chain")); lf[96]=C_h_intern(&lf[96],1, C_text("g")); lf[97]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027no environment in frame")); lf[98]=C_h_intern(&lf[98],9, C_text("frameinfo")); lf[99]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012; getting ")); lf[100]=C_h_intern(&lf[100],8, C_text("for-each")); lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022no such variable: ")); lf[102]=C_h_intern(&lf[102],20, C_text("chicken.base#call/cc")); lf[103]=C_decode_literal(C_heaptop,C_text("\376B\000\000#string or symbol required for `,g\047\012")); lf[104]=C_h_intern(&lf[104],1, C_text("s")); lf[105]=C_h_intern(&lf[105],1, C_text("\077")); lf[106]=C_h_intern(&lf[106],18, C_text("chicken.base#print")); lf[107]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ,")); lf[108]=C_decode_literal(C_heaptop,C_text("\376B\000\003\266Toplevel commands:\012\012 ,\077 Show this text\012 ,p EXP Pr" "etty print evaluated expression EXP\012 ,d EXP Describe result of evalua" "ted expression EXP\012 ,du EXP Dump data of expression EXP\012 ,dur EXP N " " Dump range\012 ,q Quit interpreter\012 ,l FILENAME ... Load one " "or more files\012 ,ln FILENAME ... Load one or more files and print result of each" " top-level expression\012 ,r Show system information\012 ,h " " Show history of expression results\012 ,ch Clear history of expre" "ssion results\012 ,e FILENAME Run external editor\012 ,s TEXT ... Execute " "shell-command\012 ,exn Describe last exception\012 ,c Show" " call-chain of most recent error\012 ,f N Select frame N\012 ,g NAME " " Get variable NAME from current frame\012 ,t EXP Evaluate form and " "print elapsed time\012 ,x EXP Pretty print expanded expression EXP\012")); lf[109]=C_decode_literal(C_heaptop,C_text("\376B\000\0005undefined toplevel command ~s - enter `,\077\047 for help~%")); lf[110]=C_h_intern(&lf[110],7, C_text("unquote")); lf[111]=C_h_intern(&lf[111],17, C_text("chicken.sort#sort")); lf[112]=C_h_intern(&lf[112],32, C_text("chicken.port#with-output-to-port")); lf[113]=C_h_intern(&lf[113],28, C_text("chicken.process-context#argv")); lf[114]=C_h_intern(&lf[114],15, C_text("scheme#truncate")); lf[115]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[116]=C_h_intern(&lf[116],18, C_text("scheme#make-string")); lf[117]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 ~a")); lf[118]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027interrupts are enabled\012")); lf[119]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(64-bit)")); lf[120]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[121]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 (fixed)")); lf[122]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[123]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010downward")); lf[124]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006upward")); lf[125]=C_decode_literal(C_heaptop,C_text("\376B\000\002\354~%~%~\012 Machine type: \011~A ~A~%~\012 Soft" "ware type: \011~A~%~\012 Software version:\011~A~%~\012 " " Build platform: \011~A~%~\012 Installation prefix:\011~A~%~\012 " " Extension installation location:\011~A~%~\012 Extension p" "ath: \011~A~%~\012 Include path: \011~A~%~\012 Keywo" "rd style: \011~A~%~\012 Symbol-table load:\011~S~% ~\012 " " Avg bucket length:\011~S~% ~\012 Total symbol count:\011~S~%~\012" " Memory:\011heap size is ~S bytes~A with ~S bytes currently in us" "e~%~ \012 nursery size is ~S bytes, stack grows ~A~%~\012 " " Command line: \011~S~%")); lf[126]=C_h_intern(&lf[126],23, C_text("##sys#include-pathnames")); lf[127]=C_h_intern(&lf[127],21, C_text("scheme#symbol->string")); lf[128]=C_h_intern(&lf[128],26, C_text("chicken.base#keyword-style")); lf[129]=C_h_intern(&lf[129],32, C_text("chicken.platform#repository-path")); lf[130]=C_h_intern(&lf[130],40, C_text("chicken.platform#installation-repository")); lf[131]=C_h_intern(&lf[131],31, C_text("chicken.platform#build-platform")); lf[132]=C_h_intern(&lf[132],33, C_text("chicken.platform#software-version")); lf[133]=C_h_intern(&lf[133],30, C_text("chicken.platform#software-type")); lf[134]=C_h_intern(&lf[134],25, C_text("chicken.platform#feature\077")); lf[135]=C_h_intern_kw(&lf[135],5, C_text("64bit")); lf[136]=C_h_intern(&lf[136],29, C_text("chicken.platform#machine-type")); lf[137]=C_h_intern(&lf[137],31, C_text("chicken.keyword#keyword->string")); lf[138]=C_h_intern(&lf[138],3, C_text("map")); lf[139]=C_h_intern(&lf[139],15, C_text("scheme#string<\077")); lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015Features:~%~%")); lf[141]=C_h_intern(&lf[141],28, C_text("chicken.gc#memory-statistics")); lf[142]=C_h_intern(&lf[142],23, C_text("##sys#symbol-table-info")); lf[143]=C_h_intern(&lf[143],13, C_text("chicken.gc#gc")); lf[145]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001u8vector\376\003\000\000\002\376B\000\000\030vector of unsigned bytes\376\003\000\000\002\376\001\000\000\017\001u8vector-le" "ngth\376\003\000\000\002\376\001\000\000\014\001u8vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001s8vector\376\003\000\000\002\376B\000\000\026vector of signed" " bytes\376\003\000\000\002\376\001\000\000\017\001s8vector-length\376\003\000\000\002\376\001\000\000\014\001s8vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001u16vec" "tor\376\003\000\000\002\376B\000\000\037vector of unsigned 16-bit words\376\003\000\000\002\376\001\000\000\020\001u16vector-length\376\003\000\000\002\376\001\000\000" "\015\001u16vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001s16vector\376\003\000\000\002\376B\000\000\035vector of signed 16-bit wor" "ds\376\003\000\000\002\376\001\000\000\020\001s16vector-length\376\003\000\000\002\376\001\000\000\015\001s16vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001u32vecto" "r\376\003\000\000\002\376B\000\000\037vector of unsigned 32-bit words\376\003\000\000\002\376\001\000\000\020\001u32vector-length\376\003\000\000\002\376\001\000\000\015\001" "u32vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001s32vector\376\003\000\000\002\376B\000\000\035vector of signed 32-bit words" "\376\003\000\000\002\376\001\000\000\020\001s32vector-length\376\003\000\000\002\376\001\000\000\015\001s32vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001u64vector\376" "\003\000\000\002\376B\000\000\037vector of unsigned 64-bit words\376\003\000\000\002\376\001\000\000\020\001u64vector-length\376\003\000\000\002\376\001\000\000\015\001u6" "4vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001s64vector\376\003\000\000\002\376B\000\000\035vector of signed 64-bit words\376\003" "\000\000\002\376\001\000\000\020\001s64vector-length\376\003\000\000\002\376\001\000\000\015\001s64vector-ref\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001f32vector\376\003\000" "\000\002\376B\000\000\027vector of 32-bit floats\376\003\000\000\002\376\001\000\000\020\001f32vector-length\376\003\000\000\002\376\001\000\000\015\001f32vector-re" "f\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001f64vector\376\003\000\000\002\376B\000\000\027vector of 64-bit floats\376\003\000\000\002\376\001\000\000\020\001f64vect" "or-length\376\003\000\000\002\376\001\000\000\015\001f64vector-ref\376\377\016\376\377\016")); lf[147]=C_h_intern(&lf[147],13, C_text("scheme#length")); lf[148]=C_h_intern(&lf[148],15, C_text("scheme#list-ref")); lf[149]=C_h_intern(&lf[149],17, C_text("scheme#string-ref")); lf[150]=C_h_intern(&lf[150],22, C_text("chicken.format#fprintf")); lf[151]=C_decode_literal(C_heaptop,C_text("\376B\000\000 ~% (~A elements not displayed)~%")); lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000.\011(followed by ~A identical instance~a)~% ...~%")); lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[154]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001s")); lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007 ~S: ~S")); lf[156]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021~A of length ~S~%")); lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000$character ~S, code: ~S, #x~X, #o~O~%")); lf[158]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016boolean true~%")); lf[159]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017boolean false~%")); lf[160]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014empty list~%")); lf[161]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024end-of-file object~%")); lf[162]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024unspecified object~%")); lf[163]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016, character ~S")); lf[164]=C_decode_literal(C_heaptop,C_text("\376B\000\0002exact immediate integer ~S~% #x~X~% #o~O~% #b~B")); lf[165]=C_decode_literal(C_heaptop,C_text("\376B\000\0000exact large integer ~S~% #x~X~% #o~O~% #b~B~%")); lf[166]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017unbound value~%")); lf[167]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034inexact rational number ~S~%")); lf[168]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020exact ratio ~S~%")); lf[169]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026~A complex number ~S~%")); lf[170]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005exact")); lf[171]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007inexact")); lf[172]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013number ~S~%")); lf[173]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006string")); lf[174]=C_h_intern(&lf[174],10, C_text("##sys#size")); lf[175]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006vector")); lf[176]=C_h_intern(&lf[176],10, C_text("##sys#slot")); lf[177]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035keyword symbol with name ~s~%")); lf[178]=C_h_intern(&lf[178],20, C_text("##sys#symbol->string")); lf[179]=C_h_intern(&lf[179],12, C_text("scheme#write")); lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005 ~s\011")); lf[181]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020 \012properties:\012\012")); lf[182]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[183]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013uninterned ")); lf[184]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027~asymbol with name ~S~%")); lf[185]=C_h_intern(&lf[185],22, C_text("##sys#interned-symbol\077")); lf[186]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010unbound ")); lf[187]=C_h_intern(&lf[187],34, C_text("##sys#symbol-has-toplevel-binding\077")); lf[188]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005eol~%")); lf[189]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012(circle)~%")); lf[190]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006~S -> ")); lf[191]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024circular structure: ")); lf[192]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004list")); lf[193]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036pair with car ~S~%and cdr ~S~%")); lf[194]=C_h_intern(&lf[194],22, C_text("chicken.format#sprintf")); lf[195]=C_decode_literal(C_heaptop,C_text("\376B\000\000 procedure with code pointer 0x~X")); lf[196]=C_h_intern(&lf[196],27, C_text("##sys#peek-unsigned-integer")); lf[197]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005input")); lf[198]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006output")); lf[199]=C_decode_literal(C_heaptop,C_text("\376B\000\0005~A port of type ~A with name ~S and file pointer ~X~%")); lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000/locative~% pointer ~X~% index ~A~% type ~A~%")); lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004slot")); lf[202]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004char")); lf[203]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010u8vector")); lf[204]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010s8vector")); lf[205]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011u16vector")); lf[206]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011s16vector")); lf[207]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011u32vector")); lf[208]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011s32vector")); lf[209]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011u64vector")); lf[210]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011s64vector")); lf[211]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011f32vector")); lf[212]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011f64vector")); lf[213]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024machine pointer ~X~%")); lf[215]=C_h_intern(&lf[215],10, C_text("##sys#byte")); lf[216]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022blob of size ~S:~%")); lf[217]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030lambda information: ~s~%")); lf[218]=C_h_intern(&lf[218],25, C_text("##sys#lambda-info->string")); lf[219]=C_h_intern(&lf[219],10, C_text("hash-table")); lf[220]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013 ~S\011-> ~S~%")); lf[221]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025 hash function: ~a~%")); lf[222]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[223]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001s")); lf[224]=C_decode_literal(C_heaptop,C_text("\376B\000\000:hash-table with ~S element~a~% comparison procedure: ~A~%")); lf[225]=C_h_intern(&lf[225],9, C_text("condition")); lf[226]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007\011~s: ~s")); lf[227]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005 ~s~%")); lf[228]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017condition: ~s~%")); lf[229]=C_h_intern(&lf[229],13, C_text("scheme#append")); lf[230]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031structure of type `~S\047:~%")); lf[231]=C_h_intern(&lf[231],31, C_text("chicken.internal#hash-table-ref")); lf[232]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020unknown object~%")); lf[233]=C_h_intern(&lf[233],17, C_text("##sys#bytevector\077")); lf[234]=C_h_intern(&lf[234],15, C_text("##sys#locative\077")); lf[235]=C_h_intern(&lf[235],18, C_text("chicken.base#port\077")); lf[236]=C_h_intern(&lf[236],24, C_text("chicken.keyword#keyword\077")); lf[237]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034statically allocated (0x~X) ")); lf[238]=C_h_intern(&lf[238],19, C_text("##sys#block-address")); lf[239]=C_h_intern(&lf[239],26, C_text("chicken.csi#set-describer!")); lf[240]=C_h_intern(&lf[240],14, C_text("set-describer!")); lf[241]=C_h_intern(&lf[241],32, C_text("chicken.internal#hash-table-set!")); lf[242]=C_h_intern(&lf[242],10, C_text("scheme#min")); lf[243]=C_h_intern(&lf[243],4, C_text("dump")); lf[244]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034cannot dump immediate object")); lf[245]=C_h_intern(&lf[245],15, C_text("##sys#peek-byte")); lf[246]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022cannot dump object")); lf[247]=C_h_intern(&lf[247],20, C_text("##sys#number->string")); lf[248]=C_h_intern(&lf[248],21, C_text("##sys#write-char/port")); lf[249]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 ")); lf[250]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004:\011 ")); lf[251]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[252]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 ---\012")); lf[253]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002] ")); lf[254]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\011 ")); lf[255]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002[]")); lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[257]=C_h_intern(&lf[257],25, C_text("##sys#user-interrupt-hook")); lf[258]=C_h_intern(&lf[258],19, C_text("##sys#signal-vector")); lf[261]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-s")); lf[262]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003-ss")); lf[263]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007-script")); lf[264]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003-sx")); lf[265]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002--")); lf[266]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016invalid option")); lf[267]=C_h_intern(&lf[267],18, C_text("##sys#string->list")); lf[268]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\003-ss\376\003\000\000\002\376B\000\000\003-sx\376\003\000\000\002\376B\000\000\007-script\376\003\000\000\002\376B\000\000\010-version\376\003\000\000\002\376B\000\000\005-help\376\003\000\000" "\002\376B\000\000\006--help\376\003\000\000\002\376B\000\000\010-feature\376\003\000\000\002\376B\000\000\013-no-feature\376\003\000\000\002\376B\000\000\005-eval\376\003\000\000\002\376B\000\000\021-cas" "e-insensitive\376\003\000\000\002\376B\000\000\016-keyword-style\376\003\000\000\002\376B\000\000\030-no-parentheses-synonyms\376\003\000\000\002\376B\000\000" "\021-no-symbol-escape\376\003\000\000\002\376B\000\000\014-r5rs-syntax\376\003\000\000\002\376B\000\000\013-setup-mode\376\003\000\000\002\376B\000\000\022-require-" "extension\376\003\000\000\002\376B\000\000\006-batch\376\003\000\000\002\376B\000\000\006-quiet\376\003\000\000\002\376B\000\000\014-no-warnings\376\003\000\000\002\376B\000\000\010-no-ini" "t\376\003\000\000\002\376B\000\000\015-include-path\376\003\000\000\002\376B\000\000\010-release\376\003\000\000\002\376B\000\000\006-print\376\003\000\000\002\376B\000\000\015-pretty-prin" "t\376\003\000\000\002\376B\000\000\002--\376\377\016")); lf[269]=C_h_intern(&lf[269],34, C_text("chicken.base#implicit-exit-handler")); lf[270]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047missing argument to command-line option")); lf[271]=C_h_intern(&lf[271],10, C_text("##sys#list")); lf[272]=C_h_intern(&lf[272],30, C_text("chicken.base#open-input-string")); lf[273]=C_h_intern(&lf[273],34, C_text("chicken.platform#register-feature!")); lf[274]=C_h_intern(&lf[274],36, C_text("chicken.platform#unregister-feature!")); lf[275]=C_h_intern(&lf[275],20, C_text("##sys#user-read-hook")); lf[276]=C_h_intern(&lf[276],5, C_text("quote")); lf[277]=C_h_intern(&lf[277],23, C_text("##sys#sharp-number-hook")); lf[278]=C_h_intern(&lf[278],17, C_text("chicken.repl#repl")); lf[279]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\002--\376\003\000\000\002\376B\000\000\002-b\376\003\000\000\002\376B\000\000\006-batch\376\003\000\000\002\376B\000\000\002-q\376\003\000\000\002\376B\000\000\006-quiet\376\003\000\000\002\376B\000\000\002-n" "\376\003\000\000\002\376B\000\000\010-no-init\376\003\000\000\002\376B\000\000\002-w\376\003\000\000\002\376B\000\000\014-no-warnings\376\003\000\000\002\376B\000\000\002-i\376\003\000\000\002\376B\000\000\021-case-" "insensitive\376\003\000\000\002\376B\000\000\030-no-parentheses-synonyms\376\003\000\000\002\376B\000\000\021-no-symbol-escape\376\003\000\000\002\376B\000" "\000\014-r5rs-syntax\376\003\000\000\002\376B\000\000\013-setup-mode\376\003\000\000\002\376B\000\000\003-ss\376\003\000\000\002\376B\000\000\003-sx\376\003\000\000\002\376B\000\000\002-s\376\003\000\000\002\376B" "\000\000\007-script\376\377\016")); lf[280]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-D")); lf[281]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-feature")); lf[282]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-I")); lf[283]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015-include-path")); lf[284]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-K")); lf[285]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016-keyword-style")); lf[286]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013-no-feature")); lf[287]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-R")); lf[288]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022-require-extension")); lf[289]=C_h_intern(&lf[289],6, C_text("import")); lf[290]=C_h_intern(&lf[290],21, C_text("scheme#string->symbol")); lf[291]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-e")); lf[292]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-eval")); lf[293]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-p")); lf[294]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006-print")); lf[295]=C_h_intern(&lf[295],15, C_text("scheme#for-each")); lf[296]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-P")); lf[297]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015-pretty-print")); lf[298]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003-ss")); lf[299]=C_h_intern(&lf[299],46, C_text("chicken.process-context#command-line-arguments")); lf[300]=C_h_intern(&lf[300],4, C_text("main")); lf[301]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003-sx")); lf[302]=C_h_intern(&lf[302],20, C_text("##sys#standard-error")); lf[303]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002; ")); lf[304]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\012; ")); lf[305]=C_h_intern(&lf[305],25, C_text("chicken.base#flush-output")); lf[306]=C_h_intern(&lf[306],34, C_text("chicken.port#with-output-to-string")); lf[307]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[308]=C_h_intern(&lf[308],30, C_text("chicken.pathname#make-pathname")); lf[309]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[310]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004HOME")); lf[311]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007chicken")); lf[312]=C_h_intern(&lf[312],40, C_text("chicken.platform#system-config-directory")); lf[313]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\002-n\376\003\000\000\002\376B\000\000\010-no-init\376\377\016")); lf[314]=C_decode_literal(C_heaptop,C_text("\376B\000\000KCHICKEN\012(c) 2008-2019, The CHICKEN Team\012(c) 2000-2007, Felix L. Winkelmann\012" )); lf[315]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[316]=C_h_intern(&lf[316],32, C_text("chicken.platform#chicken-version")); lf[317]=C_h_intern(&lf[317],25, C_text("chicken.load#load-verbose")); lf[318]=C_h_intern(&lf[318],32, C_text("chicken.internal#default-imports")); lf[319]=C_h_intern(&lf[319],17, C_text("import-for-syntax")); lf[320]=C_h_intern(&lf[320],39, C_text("chicken.internal#default-syntax-imports")); lf[321]=C_h_intern(&lf[321],26, C_text("chicken.base#symbol-escape")); lf[322]=C_h_intern(&lf[322],33, C_text("chicken.base#parentheses-synonyms")); lf[323]=C_h_intern_kw(&lf[323],4, C_text("none")); lf[324]=C_h_intern(&lf[324],27, C_text("chicken.base#case-sensitive")); lf[325]=C_decode_literal(C_heaptop,C_text("\376B\000\000/Disabled the CHICKEN extensions to R5RS syntax\012")); lf[326]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\014-r5rs-syntax\376\377\016")); lf[327]=C_decode_literal(C_heaptop,C_text("\376B\000\000%Disabled support for escaped symbols\012")); lf[328]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\021-no-symbol-escape\376\377\016")); lf[329]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052Disabled support for parentheses synonyms\012")); lf[330]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\030-no-parentheses-synonyms\376\377\016")); lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000+missing argument to `-keyword-style\047 option")); lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006prefix")); lf[333]=C_h_intern_kw(&lf[333],6, C_text("prefix")); lf[334]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004none")); lf[335]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006suffix")); lf[336]=C_h_intern_kw(&lf[336],6, C_text("suffix")); lf[337]=C_h_intern(&lf[337],15, C_text("scheme#string=\077")); lf[338]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-I")); lf[339]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015-include-path")); lf[340]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013-no-feature")); lf[341]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-D")); lf[342]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-feature")); lf[343]=C_h_intern(&lf[343],16, C_text("case-insensitive")); lf[344]=C_decode_literal(C_heaptop,C_text("\376B\000\000-Identifiers and symbols are case insensitive\012")); lf[345]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\002-i\376\003\000\000\002\376B\000\000\021-case-insensitive\376\377\016")); lf[346]=C_h_intern(&lf[346],22, C_text("##sys#warnings-enabled")); lf[347]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026Warnings are disabled\012")); lf[348]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\002-w\376\003\000\000\002\376B\000\000\014-no-warnings\376\377\016")); lf[349]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-release")); lf[350]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013-setup-mode")); lf[351]=C_h_intern(&lf[351],16, C_text("##sys#setup-mode")); lf[352]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-version")); lf[353]=C_decode_literal(C_heaptop,C_text("\376B\000\004e -b -batch terminate after command-line processing\012 " " -w -no-warnings disable all warnings\012 -K -keyword-style STY" "LE enable alternative keyword-syntax\012 (pr" "efix, suffix or none)\012 -no-parentheses-synonyms disables list delimiter " "synonyms\012 -no-symbol-escape disables support for escaped symbols\012" " -r5rs-syntax disables the CHICKEN extensions to\012 " " R5RS syntax\012 -s -script PATHNAME use csi as" " interpreter for Scheme scripts\012 -ss PATHNAME same as `-s\047, " "but invoke `main\047 procedure\012 -sx PATHNAME same as `-s\047, but " "print each expression\012 as it is evaluated\012 " " -setup-mode prefer the current directory when locating extensi" "ons\012 -R -require-extension NAME require extension and import before\012 " " executing code\012 -I -include-path PATHNAME ad" "d PATHNAME to include path\012 -- ignore all followin" "g options\012")); lf[354]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 \047\012")); lf[355]=C_decode_literal(C_heaptop,C_text("\376B\000\000D -n -no-init do not load initialization file ` ")); lf[356]=C_h_intern(&lf[356],21, C_text("##sys#print-to-string")); lf[357]=C_decode_literal(C_heaptop,C_text("\376B\000\003.usage: csi [OPTION ...] [FILENAME ...]\012\012 `csi\047 is the CHICKEN interpreter." "\012 \012 FILENAME is a Scheme source file name with optional extension. OPTION may " "be\012 one of the following:\012\012 -h -help display this text " "and exit\012 -version display version and exit\012 -rel" "ease print release number and exit\012 -i -case-insensitive " " enable case-insensitive reading\012 -e -eval EXPRESSION evaluate" " given expression\012 -p -print EXPRESSION evaluate and print result(s)" "\012 -P -pretty-print EXPRESSION evaluate and print result(s) prettily\012 -D " " -feature SYMBOL register feature identifier\012 -no-feature SYMBO" "L disable built-in feature identifier\012 -q -quiet d" "o not print banner\012")); lf[358]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\002-h\376\003\000\000\002\376B\000\000\005-help\376\003\000\000\002\376B\000\000\006--help\376\377\016")); lf[359]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[360]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024CHICKEN_INCLUDE_PATH")); lf[361]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\002-q\376\003\000\000\002\376B\000\000\006-quiet\376\377\016")); lf[362]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\002-b\376\003\000\000\002\376B\000\000\006-batch\376\377\016")); lf[363]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\002-e\376\003\000\000\002\376B\000\000\002-p\376\003\000\000\002\376B\000\000\002-P\376\003\000\000\002\376B\000\000\005-eval\376\003\000\000\002\376B\000\000\006-print\376\003\000\000\002\376B\000\000\015-pr" "etty-print\376\377\016")); lf[364]=C_h_intern(&lf[364],14, C_text("chicken-script")); lf[365]=C_h_intern(&lf[365],36, C_text("chicken.process-context#program-name")); lf[366]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042missing or invalid script argument")); lf[367]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002--")); lf[368]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\003-ss\376\003\000\000\002\376B\000\000\003-sx\376\003\000\000\002\376B\000\000\002-s\376\003\000\000\002\376B\000\000\007-script\376\377\016")); lf[369]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\002-K\376\003\000\000\002\376B\000\000\016-keyword-style\376\377\016")); lf[370]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[371]=C_h_intern(&lf[371],30, C_text("chicken.base#get-output-string")); lf[372]=C_h_intern(&lf[372],31, C_text("chicken.base#open-output-string")); lf[373]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025invalid option syntax")); lf[374]=C_h_intern(&lf[374],14, C_text("scheme#reverse")); lf[375]=C_h_intern(&lf[375],40, C_text("chicken.condition#with-exception-handler")); lf[376]=C_h_intern(&lf[376],37, C_text("scheme#call-with-current-continuation")); lf[377]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013CSI_OPTIONS")); lf[378]=C_h_intern(&lf[378],18, C_text("scheme#make-vector")); lf[379]=C_h_intern(&lf[379],19, C_text("##sys#peek-c-string")); lf[380]=C_decode_literal(C_heaptop,C_text("\376B\000\000(; resetting current module to toplevel~%")); lf[381]=C_h_intern(&lf[381],19, C_text("##sys#switch-module")); lf[382]=C_decode_literal(C_heaptop,C_text("\376B\000\000$; switching current module to `~a\047~%")); lf[383]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027undefined module `~a\047~%")); lf[384]=C_h_intern(&lf[384],17, C_text("##sys#find-module")); lf[385]=C_h_intern(&lf[385],25, C_text("##sys#resolve-module-name")); lf[386]=C_h_intern(&lf[386],1, C_text("m")); lf[387]=C_decode_literal(C_heaptop,C_text("\376B\000\0005,m MODULE switch to module with name `MODULE\047")); lf[388]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010#;~A~A> ")); lf[389]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003~a:")); lf[390]=C_h_intern(&lf[390],17, C_text("##sys#module-name")); lf[391]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[392]=C_h_intern(&lf[392],20, C_text("##sys#current-module")); lf[393]=C_h_intern(&lf[393],24, C_text("chicken.repl#repl-prompt")); lf[394]=C_h_intern(&lf[394],17, C_text("##sys#make-string")); lf[395]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013emacsclient")); lf[396]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002vi")); lf[397]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005EMACS")); lf[398]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006VISUAL")); lf[399]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006EDITOR")); lf[400]=C_h_intern(&lf[400],27, C_text("chicken.base#make-parameter")); lf[401]=C_h_intern(&lf[401],30, C_text("##sys#register-compiled-module")); lf[402]=C_h_intern(&lf[402],11, C_text("chicken.csi")); lf[403]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001editor-command\376\001\000\000\032\001chicken.csi#editor-command\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001to" "plevel-command\376\001\000\000\034\001chicken.csi#toplevel-command\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001set-describer!\376\001" "\000\000\032\001chicken.csi#set-describer!\376\377\016")); C_register_lf2(lf,404,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2516,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[502] = { {C_text("f9399:csi_2escm"),(void*)f9399}, {C_text("f9440:csi_2escm"),(void*)f9440}, {C_text("f9458:csi_2escm"),(void*)f9458}, {C_text("f9462:csi_2escm"),(void*)f9462}, {C_text("f_2516:csi_2escm"),(void*)f_2516}, {C_text("f_2519:csi_2escm"),(void*)f_2519}, {C_text("f_2522:csi_2escm"),(void*)f_2522}, {C_text("f_2525:csi_2escm"),(void*)f_2525}, {C_text("f_2528:csi_2escm"),(void*)f_2528}, {C_text("f_2531:csi_2escm"),(void*)f_2531}, {C_text("f_2534:csi_2escm"),(void*)f_2534}, {C_text("f_2537:csi_2escm"),(void*)f_2537}, {C_text("f_2540:csi_2escm"),(void*)f_2540}, {C_text("f_2543:csi_2escm"),(void*)f_2543}, {C_text("f_2546:csi_2escm"),(void*)f_2546}, {C_text("f_2549:csi_2escm"),(void*)f_2549}, {C_text("f_3047:csi_2escm"),(void*)f_3047}, {C_text("f_3060:csi_2escm"),(void*)f_3060}, {C_text("f_3074:csi_2escm"),(void*)f_3074}, {C_text("f_3122:csi_2escm"),(void*)f_3122}, {C_text("f_3136:csi_2escm"),(void*)f_3136}, {C_text("f_3149:csi_2escm"),(void*)f_3149}, {C_text("f_3839:csi_2escm"),(void*)f_3839}, {C_text("f_3844:csi_2escm"),(void*)f_3844}, {C_text("f_3847:csi_2escm"),(void*)f_3847}, {C_text("f_3853:csi_2escm"),(void*)f_3853}, {C_text("f_3856:csi_2escm"),(void*)f_3856}, {C_text("f_3863:csi_2escm"),(void*)f_3863}, {C_text("f_3887:csi_2escm"),(void*)f_3887}, {C_text("f_3902:csi_2escm"),(void*)f_3902}, {C_text("f_3916:csi_2escm"),(void*)f_3916}, {C_text("f_3929:csi_2escm"),(void*)f_3929}, {C_text("f_3948:csi_2escm"),(void*)f_3948}, {C_text("f_3955:csi_2escm"),(void*)f_3955}, {C_text("f_3958:csi_2escm"),(void*)f_3958}, {C_text("f_3964:csi_2escm"),(void*)f_3964}, {C_text("f_3977:csi_2escm"),(void*)f_3977}, {C_text("f_3990:csi_2escm"),(void*)f_3990}, {C_text("f_3999:csi_2escm"),(void*)f_3999}, {C_text("f_4003:csi_2escm"),(void*)f_4003}, {C_text("f_4015:csi_2escm"),(void*)f_4015}, {C_text("f_4024:csi_2escm"),(void*)f_4024}, {C_text("f_4027:csi_2escm"),(void*)f_4027}, {C_text("f_4034:csi_2escm"),(void*)f_4034}, {C_text("f_4038:csi_2escm"),(void*)f_4038}, {C_text("f_4041:csi_2escm"),(void*)f_4041}, {C_text("f_4047:csi_2escm"),(void*)f_4047}, {C_text("f_4054:csi_2escm"),(void*)f_4054}, {C_text("f_4056:csi_2escm"),(void*)f_4056}, {C_text("f_4066:csi_2escm"),(void*)f_4066}, {C_text("f_4069:csi_2escm"),(void*)f_4069}, {C_text("f_4083:csi_2escm"),(void*)f_4083}, {C_text("f_4106:csi_2escm"),(void*)f_4106}, {C_text("f_4116:csi_2escm"),(void*)f_4116}, {C_text("f_4130:csi_2escm"),(void*)f_4130}, {C_text("f_4161:csi_2escm"),(void*)f_4161}, {C_text("f_4174:csi_2escm"),(void*)f_4174}, {C_text("f_4177:csi_2escm"),(void*)f_4177}, {C_text("f_4180:csi_2escm"),(void*)f_4180}, {C_text("f_4183:csi_2escm"),(void*)f_4183}, {C_text("f_4186:csi_2escm"),(void*)f_4186}, {C_text("f_4195:csi_2escm"),(void*)f_4195}, {C_text("f_4205:csi_2escm"),(void*)f_4205}, {C_text("f_4209:csi_2escm"),(void*)f_4209}, {C_text("f_4232:csi_2escm"),(void*)f_4232}, {C_text("f_4249:csi_2escm"),(void*)f_4249}, {C_text("f_4261:csi_2escm"),(void*)f_4261}, {C_text("f_4269:csi_2escm"),(void*)f_4269}, {C_text("f_4272:csi_2escm"),(void*)f_4272}, {C_text("f_4284:csi_2escm"),(void*)f_4284}, {C_text("f_4291:csi_2escm"),(void*)f_4291}, {C_text("f_4297:csi_2escm"),(void*)f_4297}, {C_text("f_4317:csi_2escm"),(void*)f_4317}, {C_text("f_4347:csi_2escm"),(void*)f_4347}, {C_text("f_4363:csi_2escm"),(void*)f_4363}, {C_text("f_4380:csi_2escm"),(void*)f_4380}, {C_text("f_4395:csi_2escm"),(void*)f_4395}, {C_text("f_4398:csi_2escm"),(void*)f_4398}, {C_text("f_4405:csi_2escm"),(void*)f_4405}, {C_text("f_4409:csi_2escm"),(void*)f_4409}, {C_text("f_4418:csi_2escm"),(void*)f_4418}, {C_text("f_4421:csi_2escm"),(void*)f_4421}, {C_text("f_4424:csi_2escm"),(void*)f_4424}, {C_text("f_4436:csi_2escm"),(void*)f_4436}, {C_text("f_4439:csi_2escm"),(void*)f_4439}, {C_text("f_4451:csi_2escm"),(void*)f_4451}, {C_text("f_4454:csi_2escm"),(void*)f_4454}, {C_text("f_4466:csi_2escm"),(void*)f_4466}, {C_text("f_4469:csi_2escm"),(void*)f_4469}, {C_text("f_4472:csi_2escm"),(void*)f_4472}, {C_text("f_4475:csi_2escm"),(void*)f_4475}, {C_text("f_4505:csi_2escm"),(void*)f_4505}, {C_text("f_4508:csi_2escm"),(void*)f_4508}, {C_text("f_4513:csi_2escm"),(void*)f_4513}, {C_text("f_4523:csi_2escm"),(void*)f_4523}, {C_text("f_4538:csi_2escm"),(void*)f_4538}, {C_text("f_4547:csi_2escm"),(void*)f_4547}, {C_text("f_4548:csi_2escm"),(void*)f_4548}, {C_text("f_4554:csi_2escm"),(void*)f_4554}, {C_text("f_4558:csi_2escm"),(void*)f_4558}, {C_text("f_4564:csi_2escm"),(void*)f_4564}, {C_text("f_4569:csi_2escm"),(void*)f_4569}, {C_text("f_4579:csi_2escm"),(void*)f_4579}, {C_text("f_4594:csi_2escm"),(void*)f_4594}, {C_text("f_4603:csi_2escm"),(void*)f_4603}, {C_text("f_4608:csi_2escm"),(void*)f_4608}, {C_text("f_4612:csi_2escm"),(void*)f_4612}, {C_text("f_4617:csi_2escm"),(void*)f_4617}, {C_text("f_4623:csi_2escm"),(void*)f_4623}, {C_text("f_4627:csi_2escm"),(void*)f_4627}, {C_text("f_4634:csi_2escm"),(void*)f_4634}, {C_text("f_4636:csi_2escm"),(void*)f_4636}, {C_text("f_4640:csi_2escm"),(void*)f_4640}, {C_text("f_4655:csi_2escm"),(void*)f_4655}, {C_text("f_4671:csi_2escm"),(void*)f_4671}, {C_text("f_4689:csi_2escm"),(void*)f_4689}, {C_text("f_4693:csi_2escm"),(void*)f_4693}, {C_text("f_4700:csi_2escm"),(void*)f_4700}, {C_text("f_4709:csi_2escm"),(void*)f_4709}, {C_text("f_4721:csi_2escm"),(void*)f_4721}, {C_text("f_4733:csi_2escm"),(void*)f_4733}, {C_text("f_4745:csi_2escm"),(void*)f_4745}, {C_text("f_4752:csi_2escm"),(void*)f_4752}, {C_text("f_4765:csi_2escm"),(void*)f_4765}, {C_text("f_4774:csi_2escm"),(void*)f_4774}, {C_text("f_4777:csi_2escm"),(void*)f_4777}, {C_text("f_4780:csi_2escm"),(void*)f_4780}, {C_text("f_4793:csi_2escm"),(void*)f_4793}, {C_text("f_4815:csi_2escm"),(void*)f_4815}, {C_text("f_4820:csi_2escm"),(void*)f_4820}, {C_text("f_4830:csi_2escm"),(void*)f_4830}, {C_text("f_4844:csi_2escm"),(void*)f_4844}, {C_text("f_4890:csi_2escm"),(void*)f_4890}, {C_text("f_4896:csi_2escm"),(void*)f_4896}, {C_text("f_4900:csi_2escm"),(void*)f_4900}, {C_text("f_4916:csi_2escm"),(void*)f_4916}, {C_text("f_4922:csi_2escm"),(void*)f_4922}, {C_text("f_4936:csi_2escm"),(void*)f_4936}, {C_text("f_4939:csi_2escm"),(void*)f_4939}, {C_text("f_4945:csi_2escm"),(void*)f_4945}, {C_text("f_4948:csi_2escm"),(void*)f_4948}, {C_text("f_4956:csi_2escm"),(void*)f_4956}, {C_text("f_4981:csi_2escm"),(void*)f_4981}, {C_text("f_4990:csi_2escm"),(void*)f_4990}, {C_text("f_4996:csi_2escm"),(void*)f_4996}, {C_text("f_5002:csi_2escm"),(void*)f_5002}, {C_text("f_5008:csi_2escm"),(void*)f_5008}, {C_text("f_5014:csi_2escm"),(void*)f_5014}, {C_text("f_5022:csi_2escm"),(void*)f_5022}, {C_text("f_5024:csi_2escm"),(void*)f_5024}, {C_text("f_5041:csi_2escm"),(void*)f_5041}, {C_text("f_5047:csi_2escm"),(void*)f_5047}, {C_text("f_5053:csi_2escm"),(void*)f_5053}, {C_text("f_5061:csi_2escm"),(void*)f_5061}, {C_text("f_5062:csi_2escm"),(void*)f_5062}, {C_text("f_5070:csi_2escm"),(void*)f_5070}, {C_text("f_5072:csi_2escm"),(void*)f_5072}, {C_text("f_5076:csi_2escm"),(void*)f_5076}, {C_text("f_5079:csi_2escm"),(void*)f_5079}, {C_text("f_5082:csi_2escm"),(void*)f_5082}, {C_text("f_5084:csi_2escm"),(void*)f_5084}, {C_text("f_5092:csi_2escm"),(void*)f_5092}, {C_text("f_5100:csi_2escm"),(void*)f_5100}, {C_text("f_5103:csi_2escm"),(void*)f_5103}, {C_text("f_5104:csi_2escm"),(void*)f_5104}, {C_text("f_5108:csi_2escm"),(void*)f_5108}, {C_text("f_5118:csi_2escm"),(void*)f_5118}, {C_text("f_5127:csi_2escm"),(void*)f_5127}, {C_text("f_5135:csi_2escm"),(void*)f_5135}, {C_text("f_5150:csi_2escm"),(void*)f_5150}, {C_text("f_5153:csi_2escm"),(void*)f_5153}, {C_text("f_5156:csi_2escm"),(void*)f_5156}, {C_text("f_5159:csi_2escm"),(void*)f_5159}, {C_text("f_5166:csi_2escm"),(void*)f_5166}, {C_text("f_5174:csi_2escm"),(void*)f_5174}, {C_text("f_5178:csi_2escm"),(void*)f_5178}, {C_text("f_5182:csi_2escm"),(void*)f_5182}, {C_text("f_5186:csi_2escm"),(void*)f_5186}, {C_text("f_5190:csi_2escm"),(void*)f_5190}, {C_text("f_5194:csi_2escm"),(void*)f_5194}, {C_text("f_5198:csi_2escm"),(void*)f_5198}, {C_text("f_5202:csi_2escm"),(void*)f_5202}, {C_text("f_5230:csi_2escm"),(void*)f_5230}, {C_text("f_5242:csi_2escm"),(void*)f_5242}, {C_text("f_5245:csi_2escm"),(void*)f_5245}, {C_text("f_5247:csi_2escm"),(void*)f_5247}, {C_text("f_5257:csi_2escm"),(void*)f_5257}, {C_text("f_5278:csi_2escm"),(void*)f_5278}, {C_text("f_5280:csi_2escm"),(void*)f_5280}, {C_text("f_5305:csi_2escm"),(void*)f_5305}, {C_text("f_5325:csi_2escm"),(void*)f_5325}, {C_text("f_5360:csi_2escm"),(void*)f_5360}, {C_text("f_5390:csi_2escm"),(void*)f_5390}, {C_text("f_5392:csi_2escm"),(void*)f_5392}, {C_text("f_5398:csi_2escm"),(void*)f_5398}, {C_text("f_5405:csi_2escm"),(void*)f_5405}, {C_text("f_5410:csi_2escm"),(void*)f_5410}, {C_text("f_5433:csi_2escm"),(void*)f_5433}, {C_text("f_5442:csi_2escm"),(void*)f_5442}, {C_text("f_5452:csi_2escm"),(void*)f_5452}, {C_text("f_5455:csi_2escm"),(void*)f_5455}, {C_text("f_5484:csi_2escm"),(void*)f_5484}, {C_text("f_5512:csi_2escm"),(void*)f_5512}, {C_text("f_5527:csi_2escm"),(void*)f_5527}, {C_text("f_5530:csi_2escm"),(void*)f_5530}, {C_text("f_5533:csi_2escm"),(void*)f_5533}, {C_text("f_5599:csi_2escm"),(void*)f_5599}, {C_text("f_5605:csi_2escm"),(void*)f_5605}, {C_text("f_5696:csi_2escm"),(void*)f_5696}, {C_text("f_5703:csi_2escm"),(void*)f_5703}, {C_text("f_5712:csi_2escm"),(void*)f_5712}, {C_text("f_5715:csi_2escm"),(void*)f_5715}, {C_text("f_5727:csi_2escm"),(void*)f_5727}, {C_text("f_5732:csi_2escm"),(void*)f_5732}, {C_text("f_5742:csi_2escm"),(void*)f_5742}, {C_text("f_5745:csi_2escm"),(void*)f_5745}, {C_text("f_5748:csi_2escm"),(void*)f_5748}, {C_text("f_5757:csi_2escm"),(void*)f_5757}, {C_text("f_5777:csi_2escm"),(void*)f_5777}, {C_text("f_5780:csi_2escm"),(void*)f_5780}, {C_text("f_5783:csi_2escm"),(void*)f_5783}, {C_text("f_5795:csi_2escm"),(void*)f_5795}, {C_text("f_5798:csi_2escm"),(void*)f_5798}, {C_text("f_5807:csi_2escm"),(void*)f_5807}, {C_text("f_5838:csi_2escm"),(void*)f_5838}, {C_text("f_5902:csi_2escm"),(void*)f_5902}, {C_text("f_5906:csi_2escm"),(void*)f_5906}, {C_text("f_5912:csi_2escm"),(void*)f_5912}, {C_text("f_5931:csi_2escm"),(void*)f_5931}, {C_text("f_5940:csi_2escm"),(void*)f_5940}, {C_text("f_5947:csi_2escm"),(void*)f_5947}, {C_text("f_6064:csi_2escm"),(void*)f_6064}, {C_text("f_6070:csi_2escm"),(void*)f_6070}, {C_text("f_6076:csi_2escm"),(void*)f_6076}, {C_text("f_6089:csi_2escm"),(void*)f_6089}, {C_text("f_6101:csi_2escm"),(void*)f_6101}, {C_text("f_6104:csi_2escm"),(void*)f_6104}, {C_text("f_6115:csi_2escm"),(void*)f_6115}, {C_text("f_6123:csi_2escm"),(void*)f_6123}, {C_text("f_6144:csi_2escm"),(void*)f_6144}, {C_text("f_6153:csi_2escm"),(void*)f_6153}, {C_text("f_6163:csi_2escm"),(void*)f_6163}, {C_text("f_6198:csi_2escm"),(void*)f_6198}, {C_text("f_6199:csi_2escm"),(void*)f_6199}, {C_text("f_6203:csi_2escm"),(void*)f_6203}, {C_text("f_6212:csi_2escm"),(void*)f_6212}, {C_text("f_6222:csi_2escm"),(void*)f_6222}, {C_text("f_6235:csi_2escm"),(void*)f_6235}, {C_text("f_6240:csi_2escm"),(void*)f_6240}, {C_text("f_6267:csi_2escm"),(void*)f_6267}, {C_text("f_6277:csi_2escm"),(void*)f_6277}, {C_text("f_6304:csi_2escm"),(void*)f_6304}, {C_text("f_6308:csi_2escm"),(void*)f_6308}, {C_text("f_6322:csi_2escm"),(void*)f_6322}, {C_text("f_6330:csi_2escm"),(void*)f_6330}, {C_text("f_6343:csi_2escm"),(void*)f_6343}, {C_text("f_6349:csi_2escm"),(void*)f_6349}, {C_text("f_6374:csi_2escm"),(void*)f_6374}, {C_text("f_6387:csi_2escm"),(void*)f_6387}, {C_text("f_6414:csi_2escm"),(void*)f_6414}, {C_text("f_6422:csi_2escm"),(void*)f_6422}, {C_text("f_6431:csi_2escm"),(void*)f_6431}, {C_text("f_6433:csi_2escm"),(void*)f_6433}, {C_text("f_6436:csi_2escm"),(void*)f_6436}, {C_text("f_6458:csi_2escm"),(void*)f_6458}, {C_text("f_6465:csi_2escm"),(void*)f_6465}, {C_text("f_6482:csi_2escm"),(void*)f_6482}, {C_text("f_6501:csi_2escm"),(void*)f_6501}, {C_text("f_6511:csi_2escm"),(void*)f_6511}, {C_text("f_6539:csi_2escm"),(void*)f_6539}, {C_text("f_6544:csi_2escm"),(void*)f_6544}, {C_text("f_6579:csi_2escm"),(void*)f_6579}, {C_text("f_6582:csi_2escm"),(void*)f_6582}, {C_text("f_6586:csi_2escm"),(void*)f_6586}, {C_text("f_6602:csi_2escm"),(void*)f_6602}, {C_text("f_6614:csi_2escm"),(void*)f_6614}, {C_text("f_6624:csi_2escm"),(void*)f_6624}, {C_text("f_6627:csi_2escm"),(void*)f_6627}, {C_text("f_6630:csi_2escm"),(void*)f_6630}, {C_text("f_6633:csi_2escm"),(void*)f_6633}, {C_text("f_6636:csi_2escm"),(void*)f_6636}, {C_text("f_6639:csi_2escm"),(void*)f_6639}, {C_text("f_6648:csi_2escm"),(void*)f_6648}, {C_text("f_6661:csi_2escm"),(void*)f_6661}, {C_text("f_6664:csi_2escm"),(void*)f_6664}, {C_text("f_6699:csi_2escm"),(void*)f_6699}, {C_text("f_6733:csi_2escm"),(void*)f_6733}, {C_text("f_6743:csi_2escm"),(void*)f_6743}, {C_text("f_6753:csi_2escm"),(void*)f_6753}, {C_text("f_6756:csi_2escm"),(void*)f_6756}, {C_text("f_6771:csi_2escm"),(void*)f_6771}, {C_text("f_6775:csi_2escm"),(void*)f_6775}, {C_text("f_6782:csi_2escm"),(void*)f_6782}, {C_text("f_6784:csi_2escm"),(void*)f_6784}, {C_text("f_6787:csi_2escm"),(void*)f_6787}, {C_text("f_6793:csi_2escm"),(void*)f_6793}, {C_text("f_6810:csi_2escm"),(void*)f_6810}, {C_text("f_6819:csi_2escm"),(void*)f_6819}, {C_text("f_6850:csi_2escm"),(void*)f_6850}, {C_text("f_6853:csi_2escm"),(void*)f_6853}, {C_text("f_6856:csi_2escm"),(void*)f_6856}, {C_text("f_6859:csi_2escm"),(void*)f_6859}, {C_text("f_6862:csi_2escm"),(void*)f_6862}, {C_text("f_6865:csi_2escm"),(void*)f_6865}, {C_text("f_6868:csi_2escm"),(void*)f_6868}, {C_text("f_6871:csi_2escm"),(void*)f_6871}, {C_text("f_6874:csi_2escm"),(void*)f_6874}, {C_text("f_6877:csi_2escm"),(void*)f_6877}, {C_text("f_6880:csi_2escm"),(void*)f_6880}, {C_text("f_6893:csi_2escm"),(void*)f_6893}, {C_text("f_6903:csi_2escm"),(void*)f_6903}, {C_text("f_6908:csi_2escm"),(void*)f_6908}, {C_text("f_6921:csi_2escm"),(void*)f_6921}, {C_text("f_6924:csi_2escm"),(void*)f_6924}, {C_text("f_6927:csi_2escm"),(void*)f_6927}, {C_text("f_6930:csi_2escm"),(void*)f_6930}, {C_text("f_6933:csi_2escm"),(void*)f_6933}, {C_text("f_6967:csi_2escm"),(void*)f_6967}, {C_text("f_6977:csi_2escm"),(void*)f_6977}, {C_text("f_7011:csi_2escm"),(void*)f_7011}, {C_text("f_7014:csi_2escm"),(void*)f_7014}, {C_text("f_7028:csi_2escm"),(void*)f_7028}, {C_text("f_7069:csi_2escm"),(void*)f_7069}, {C_text("f_7126:csi_2escm"),(void*)f_7126}, {C_text("f_7128:csi_2escm"),(void*)f_7128}, {C_text("f_7139:csi_2escm"),(void*)f_7139}, {C_text("f_7159:csi_2escm"),(void*)f_7159}, {C_text("f_7162:csi_2escm"),(void*)f_7162}, {C_text("f_7166:csi_2escm"),(void*)f_7166}, {C_text("f_7169:csi_2escm"),(void*)f_7169}, {C_text("f_7181:csi_2escm"),(void*)f_7181}, {C_text("f_7206:csi_2escm"),(void*)f_7206}, {C_text("f_7215:csi_2escm"),(void*)f_7215}, {C_text("f_7221:csi_2escm"),(void*)f_7221}, {C_text("f_7231:csi_2escm"),(void*)f_7231}, {C_text("f_7243:csi_2escm"),(void*)f_7243}, {C_text("f_7246:csi_2escm"),(void*)f_7246}, {C_text("f_7249:csi_2escm"),(void*)f_7249}, {C_text("f_7252:csi_2escm"),(void*)f_7252}, {C_text("f_7255:csi_2escm"),(void*)f_7255}, {C_text("f_7291:csi_2escm"),(void*)f_7291}, {C_text("f_7298:csi_2escm"),(void*)f_7298}, {C_text("f_7300:csi_2escm"),(void*)f_7300}, {C_text("f_7310:csi_2escm"),(void*)f_7310}, {C_text("f_7353:csi_2escm"),(void*)f_7353}, {C_text("f_7358:csi_2escm"),(void*)f_7358}, {C_text("f_7364:csi_2escm"),(void*)f_7364}, {C_text("f_7376:csi_2escm"),(void*)f_7376}, {C_text("f_7413:csi_2escm"),(void*)f_7413}, {C_text("f_7419:csi_2escm"),(void*)f_7419}, {C_text("f_7441:csi_2escm"),(void*)f_7441}, {C_text("f_7455:csi_2escm"),(void*)f_7455}, {C_text("f_7476:csi_2escm"),(void*)f_7476}, {C_text("f_7480:csi_2escm"),(void*)f_7480}, {C_text("f_7484:csi_2escm"),(void*)f_7484}, {C_text("f_7523:csi_2escm"),(void*)f_7523}, {C_text("f_7531:csi_2escm"),(void*)f_7531}, {C_text("f_7562:csi_2escm"),(void*)f_7562}, {C_text("f_7592:csi_2escm"),(void*)f_7592}, {C_text("f_7595:csi_2escm"),(void*)f_7595}, {C_text("f_7598:csi_2escm"),(void*)f_7598}, {C_text("f_7601:csi_2escm"),(void*)f_7601}, {C_text("f_7604:csi_2escm"),(void*)f_7604}, {C_text("f_7607:csi_2escm"),(void*)f_7607}, {C_text("f_7610:csi_2escm"),(void*)f_7610}, {C_text("f_7613:csi_2escm"),(void*)f_7613}, {C_text("f_7616:csi_2escm"),(void*)f_7616}, {C_text("f_7622:csi_2escm"),(void*)f_7622}, {C_text("f_7628:csi_2escm"),(void*)f_7628}, {C_text("f_7630:csi_2escm"),(void*)f_7630}, {C_text("f_7636:csi_2escm"),(void*)f_7636}, {C_text("f_7644:csi_2escm"),(void*)f_7644}, {C_text("f_7665:csi_2escm"),(void*)f_7665}, {C_text("f_7681:csi_2escm"),(void*)f_7681}, {C_text("f_7684:csi_2escm"),(void*)f_7684}, {C_text("f_7687:csi_2escm"),(void*)f_7687}, {C_text("f_7690:csi_2escm"),(void*)f_7690}, {C_text("f_7696:csi_2escm"),(void*)f_7696}, {C_text("f_7705:csi_2escm"),(void*)f_7705}, {C_text("f_7727:csi_2escm"),(void*)f_7727}, {C_text("f_7742:csi_2escm"),(void*)f_7742}, {C_text("f_7749:csi_2escm"),(void*)f_7749}, {C_text("f_7756:csi_2escm"),(void*)f_7756}, {C_text("f_7758:csi_2escm"),(void*)f_7758}, {C_text("f_7768:csi_2escm"),(void*)f_7768}, {C_text("f_7775:csi_2escm"),(void*)f_7775}, {C_text("f_7779:csi_2escm"),(void*)f_7779}, {C_text("f_7781:csi_2escm"),(void*)f_7781}, {C_text("f_7789:csi_2escm"),(void*)f_7789}, {C_text("f_7799:csi_2escm"),(void*)f_7799}, {C_text("f_7802:csi_2escm"),(void*)f_7802}, {C_text("f_7805:csi_2escm"),(void*)f_7805}, {C_text("f_7808:csi_2escm"),(void*)f_7808}, {C_text("f_7811:csi_2escm"),(void*)f_7811}, {C_text("f_7814:csi_2escm"),(void*)f_7814}, {C_text("f_7817:csi_2escm"),(void*)f_7817}, {C_text("f_7823:csi_2escm"),(void*)f_7823}, {C_text("f_7826:csi_2escm"),(void*)f_7826}, {C_text("f_7832:csi_2escm"),(void*)f_7832}, {C_text("f_7835:csi_2escm"),(void*)f_7835}, {C_text("f_7841:csi_2escm"),(void*)f_7841}, {C_text("f_7845:csi_2escm"),(void*)f_7845}, {C_text("f_7848:csi_2escm"),(void*)f_7848}, {C_text("f_7851:csi_2escm"),(void*)f_7851}, {C_text("f_7854:csi_2escm"),(void*)f_7854}, {C_text("f_7857:csi_2escm"),(void*)f_7857}, {C_text("f_7860:csi_2escm"),(void*)f_7860}, {C_text("f_7863:csi_2escm"),(void*)f_7863}, {C_text("f_7866:csi_2escm"),(void*)f_7866}, {C_text("f_7869:csi_2escm"),(void*)f_7869}, {C_text("f_7872:csi_2escm"),(void*)f_7872}, {C_text("f_7877:csi_2escm"),(void*)f_7877}, {C_text("f_7905:csi_2escm"),(void*)f_7905}, {C_text("f_7934:csi_2escm"),(void*)f_7934}, {C_text("f_7946:csi_2escm"),(void*)f_7946}, {C_text("f_7961:csi_2escm"),(void*)f_7961}, {C_text("f_7980:csi_2escm"),(void*)f_7980}, {C_text("f_7990:csi_2escm"),(void*)f_7990}, {C_text("f_8005:csi_2escm"),(void*)f_8005}, {C_text("f_8015:csi_2escm"),(void*)f_8015}, {C_text("f_8025:csi_2escm"),(void*)f_8025}, {C_text("f_8036:csi_2escm"),(void*)f_8036}, {C_text("f_8040:csi_2escm"),(void*)f_8040}, {C_text("f_8047:csi_2escm"),(void*)f_8047}, {C_text("f_8049:csi_2escm"),(void*)f_8049}, {C_text("f_8077:csi_2escm"),(void*)f_8077}, {C_text("f_8081:csi_2escm"),(void*)f_8081}, {C_text("f_8087:csi_2escm"),(void*)f_8087}, {C_text("f_8090:csi_2escm"),(void*)f_8090}, {C_text("f_8093:csi_2escm"),(void*)f_8093}, {C_text("f_8096:csi_2escm"),(void*)f_8096}, {C_text("f_8101:csi_2escm"),(void*)f_8101}, {C_text("f_8114:csi_2escm"),(void*)f_8114}, {C_text("f_8117:csi_2escm"),(void*)f_8117}, {C_text("f_8132:csi_2escm"),(void*)f_8132}, {C_text("f_8151:csi_2escm"),(void*)f_8151}, {C_text("f_8163:csi_2escm"),(void*)f_8163}, {C_text("f_8177:csi_2escm"),(void*)f_8177}, {C_text("f_8180:csi_2escm"),(void*)f_8180}, {C_text("f_8183:csi_2escm"),(void*)f_8183}, {C_text("f_8186:csi_2escm"),(void*)f_8186}, {C_text("f_8189:csi_2escm"),(void*)f_8189}, {C_text("f_8198:csi_2escm"),(void*)f_8198}, {C_text("f_8201:csi_2escm"),(void*)f_8201}, {C_text("f_8210:csi_2escm"),(void*)f_8210}, {C_text("f_8213:csi_2escm"),(void*)f_8213}, {C_text("f_8277:csi_2escm"),(void*)f_8277}, {C_text("f_8284:csi_2escm"),(void*)f_8284}, {C_text("f_8290:csi_2escm"),(void*)f_8290}, {C_text("f_8297:csi_2escm"),(void*)f_8297}, {C_text("f_8303:csi_2escm"),(void*)f_8303}, {C_text("f_8305:csi_2escm"),(void*)f_8305}, {C_text("f_8330:csi_2escm"),(void*)f_8330}, {C_text("f_8339:csi_2escm"),(void*)f_8339}, {C_text("f_8364:csi_2escm"),(void*)f_8364}, {C_text("f_8373:csi_2escm"),(void*)f_8373}, {C_text("f_8383:csi_2escm"),(void*)f_8383}, {C_text("f_8396:csi_2escm"),(void*)f_8396}, {C_text("f_8406:csi_2escm"),(void*)f_8406}, {C_text("f_8419:csi_2escm"),(void*)f_8419}, {C_text("f_8429:csi_2escm"),(void*)f_8429}, {C_text("f_8443:csi_2escm"),(void*)f_8443}, {C_text("f_8446:csi_2escm"),(void*)f_8446}, {C_text("f_8449:csi_2escm"),(void*)f_8449}, {C_text("f_8458:csi_2escm"),(void*)f_8458}, {C_text("f_8461:csi_2escm"),(void*)f_8461}, {C_text("f_8471:csi_2escm"),(void*)f_8471}, {C_text("f_8478:csi_2escm"),(void*)f_8478}, {C_text("f_8488:csi_2escm"),(void*)f_8488}, {C_text("f_8494:csi_2escm"),(void*)f_8494}, {C_text("f_8497:csi_2escm"),(void*)f_8497}, {C_text("f_8502:csi_2escm"),(void*)f_8502}, {C_text("f_8527:csi_2escm"),(void*)f_8527}, {C_text("f_8538:csi_2escm"),(void*)f_8538}, {C_text("f_8547:csi_2escm"),(void*)f_8547}, {C_text("f_8553:csi_2escm"),(void*)f_8553}, {C_text("f_8556:csi_2escm"),(void*)f_8556}, {C_text("f_8559:csi_2escm"),(void*)f_8559}, {C_text("f_8562:csi_2escm"),(void*)f_8562}, {C_text("f_8571:csi_2escm"),(void*)f_8571}, {C_text("f_8636:csi_2escm"),(void*)f_8636}, {C_text("f_8649:csi_2escm"),(void*)f_8649}, {C_text("f_8653:csi_2escm"),(void*)f_8653}, {C_text("f_8657:csi_2escm"),(void*)f_8657}, {C_text("f_8663:csi_2escm"),(void*)f_8663}, {C_text("f_8669:csi_2escm"),(void*)f_8669}, {C_text("f_8671:csi_2escm"),(void*)f_8671}, {C_text("f_8677:csi_2escm"),(void*)f_8677}, {C_text("f_8681:csi_2escm"),(void*)f_8681}, {C_text("f_8690:csi_2escm"),(void*)f_8690}, {C_text("f_8696:csi_2escm"),(void*)f_8696}, {C_text("f_8700:csi_2escm"),(void*)f_8700}, {C_text("f_8704:csi_2escm"),(void*)f_8704}, {C_text("f_8717:csi_2escm"),(void*)f_8717}, {C_text("f_8719:csi_2escm"),(void*)f_8719}, {C_text("f_8727:csi_2escm"),(void*)f_8727}, {C_text("f_8730:csi_2escm"),(void*)f_8730}, {C_text("f_8737:csi_2escm"),(void*)f_8737}, {C_text("f_8741:csi_2escm"),(void*)f_8741}, {C_text("f_8750:csi_2escm"),(void*)f_8750}, {C_text("toplevel:csi_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.csi#constant193 o|hiding unexported module binding: chicken.csi#partition o|hiding unexported module binding: chicken.csi#span o|hiding unexported module binding: chicken.csi#take o|hiding unexported module binding: chicken.csi#drop o|hiding unexported module binding: chicken.csi#split-at o|hiding unexported module binding: chicken.csi#append-map o|hiding unexported module binding: chicken.csi#every o|hiding unexported module binding: chicken.csi#any o|hiding unexported module binding: chicken.csi#cons* o|hiding unexported module binding: chicken.csi#concatenate o|hiding unexported module binding: chicken.csi#delete o|hiding unexported module binding: chicken.csi#first o|hiding unexported module binding: chicken.csi#second o|hiding unexported module binding: chicken.csi#third o|hiding unexported module binding: chicken.csi#fourth o|hiding unexported module binding: chicken.csi#fifth o|hiding unexported module binding: chicken.csi#delete-duplicates o|hiding unexported module binding: chicken.csi#alist-cons o|hiding unexported module binding: chicken.csi#filter o|hiding unexported module binding: chicken.csi#filter-map o|hiding unexported module binding: chicken.csi#remove o|hiding unexported module binding: chicken.csi#unzip1 o|hiding unexported module binding: chicken.csi#last o|hiding unexported module binding: chicken.csi#list-index o|hiding unexported module binding: chicken.csi#lset-adjoin/eq? o|hiding unexported module binding: chicken.csi#lset-difference/eq? o|hiding unexported module binding: chicken.csi#lset-union/eq? o|hiding unexported module binding: chicken.csi#lset-intersection/eq? o|hiding unexported module binding: chicken.csi#list-tabulate o|hiding unexported module binding: chicken.csi#lset<=/eq? o|hiding unexported module binding: chicken.csi#lset=/eq? o|hiding unexported module binding: chicken.csi#length+ o|hiding unexported module binding: chicken.csi#find o|hiding unexported module binding: chicken.csi#find-tail o|hiding unexported module binding: chicken.csi#iota o|hiding unexported module binding: chicken.csi#make-list o|hiding unexported module binding: chicken.csi#posq o|hiding unexported module binding: chicken.csi#posv o|hiding unexported module binding: chicken.csi#constant680 o|hiding unexported module binding: chicken.csi#selected-frame o|hiding unexported module binding: chicken.csi#default-editor o|hiding unexported module binding: chicken.csi#print-usage o|hiding unexported module binding: chicken.csi#print-banner o|hiding unexported module binding: chicken.csi#dirseparator? o|hiding unexported module binding: chicken.csi#chop-separator o|hiding unexported module binding: chicken.csi#lookup-script-file o|hiding unexported module binding: chicken.csi#history-list o|hiding unexported module binding: chicken.csi#history-count o|hiding unexported module binding: chicken.csi#history-add o|hiding unexported module binding: chicken.csi#history-clear o|hiding unexported module binding: chicken.csi#history-show o|hiding unexported module binding: chicken.csi#history-ref o|hiding unexported module binding: chicken.csi#register-repl-history! o|hiding unexported module binding: chicken.csi#tty-input? o|hiding unexported module binding: chicken.csi#command-table o|hiding unexported module binding: chicken.csi#csi-eval o|hiding unexported module binding: chicken.csi#parse-option-string o|hiding unexported module binding: chicken.csi#report o|hiding unexported module binding: chicken.csi#bytevector-data o|hiding unexported module binding: chicken.csi#circular-list? o|hiding unexported module binding: chicken.csi#improper-pairs? o|hiding unexported module binding: chicken.csi#describer-table o|hiding unexported module binding: chicken.csi#describe o|hiding unexported module binding: chicken.csi#dump o|hiding unexported module binding: chicken.csi#hexdump o|hiding unexported module binding: chicken.csi#show-frameinfo o|hiding unexported module binding: chicken.csi#select-frame o|hiding unexported module binding: chicken.csi#copy-from-frame o|hiding unexported module binding: chicken.csi#defhandler o|hiding unexported module binding: chicken.csi#member* o|hiding unexported module binding: chicken.csi#constant1665 o|hiding unexported module binding: chicken.csi#constant1671 o|hiding unexported module binding: chicken.csi#canonicalize-args o|hiding unexported module binding: chicken.csi#findall o|hiding unexported module binding: chicken.csi#constant1735 o|hiding unexported module binding: chicken.csi#constant1743 o|hiding unexported module binding: chicken.csi#run S|applied compiler syntax: S| scheme#for-each 11 S| chicken.format#printf 4 S| chicken.base#foldl 3 S| scheme#map 10 S| chicken.base#foldr 3 o|eliminated procedure checks: 161 o|eliminated procedure checks: 1 o|specializations: o| 1 (scheme#string-length string) o| 7 (scheme#string=? string string) o| 1 (scheme#set-cdr! pair *) o| 2 (scheme#cddr (pair * pair)) o| 2 (scheme#char=? char char) o| 3 (scheme#cadr (pair * pair)) o| 1 (scheme#min fixnum fixnum) o| 1 (scheme#memq * list) o| 1 (scheme#number->string * *) o| 2 (chicken.base#add1 *) o| 1 (scheme#- fixnum fixnum) o| 1 (scheme#/ * *) o| 1 (scheme#current-output-port) o| 2 (scheme#zero? integer) o| 31 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 4 (##sys#check-output-port * * *) o| 1 (scheme#> fixnum fixnum) o| 5 (scheme#string-append string string) o| 1 (scheme#make-string fixnum) o| 1 (chicken.base#sub1 fixnum) o| 1 (scheme#eqv? * *) o| 6 (##sys#check-list (or pair list) *) o| 40 (scheme#cdr pair) o| 14 (scheme#car pair) (o e)|safe calls: 1002 (o e)|assignments to immediate values: 5 o|removed side-effect free assignment to unused variable: chicken.csi#partition o|removed side-effect free assignment to unused variable: chicken.csi#span o|removed side-effect free assignment to unused variable: chicken.csi#drop o|removed side-effect free assignment to unused variable: chicken.csi#split-at o|removed side-effect free assignment to unused variable: chicken.csi#append-map o|inlining procedure: k2932 o|inlining procedure: k2932 o|inlining procedure: k2963 o|inlining procedure: k2963 o|removed side-effect free assignment to unused variable: chicken.csi#cons* o|removed side-effect free assignment to unused variable: chicken.csi#concatenate o|removed side-effect free assignment to unused variable: chicken.csi#first o|removed side-effect free assignment to unused variable: chicken.csi#second o|removed side-effect free assignment to unused variable: chicken.csi#third o|removed side-effect free assignment to unused variable: chicken.csi#fourth o|removed side-effect free assignment to unused variable: chicken.csi#fifth o|removed side-effect free assignment to unused variable: chicken.csi#alist-cons o|inlining procedure: k3180 o|inlining procedure: k3180 o|inlining procedure: k3172 o|inlining procedure: k3172 o|removed side-effect free assignment to unused variable: chicken.csi#filter-map o|removed side-effect free assignment to unused variable: chicken.csi#remove o|removed side-effect free assignment to unused variable: chicken.csi#unzip1 o|removed side-effect free assignment to unused variable: chicken.csi#last o|removed side-effect free assignment to unused variable: chicken.csi#list-index o|removed side-effect free assignment to unused variable: chicken.csi#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: chicken.csi#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.csi#lset-union/eq? o|removed side-effect free assignment to unused variable: chicken.csi#lset-intersection/eq? o|inlining procedure: k3571 o|inlining procedure: k3571 o|removed side-effect free assignment to unused variable: chicken.csi#lset<=/eq? o|removed side-effect free assignment to unused variable: chicken.csi#lset=/eq? o|removed side-effect free assignment to unused variable: chicken.csi#length+ o|removed side-effect free assignment to unused variable: chicken.csi#find o|removed side-effect free assignment to unused variable: chicken.csi#find-tail o|removed side-effect free assignment to unused variable: chicken.csi#iota o|removed side-effect free assignment to unused variable: chicken.csi#make-list o|removed side-effect free assignment to unused variable: chicken.csi#posq o|removed side-effect free assignment to unused variable: chicken.csi#posv o|substituted constant variable: chicken.csi#constant193 o|inlining procedure: k3892 o|inlining procedure: k3892 o|inlining procedure: k3911 o|inlining procedure: k3911 o|inlining procedure: k3950 o|inlining procedure: k3950 o|substituted constant variable: a3966 o|inlining procedure: k4004 o|inlining procedure: k4019 o|contracted procedure: "(csi.scm:185) _getcwd709" o|inlining procedure: k4019 o|inlining procedure: k4058 o|inlining procedure: k4058 o|substituted constant variable: a4089 o|contracted procedure: "(csi.scm:184) string-index720" o|inlining procedure: k3979 o|inlining procedure: k3979 o|inlining procedure: k4004 o|substituted constant variable: a4099 o|inlining procedure: k4163 o|propagated global variable: out772775 ##sys#standard-output o|substituted constant variable: a4170 o|substituted constant variable: a4171 o|inlining procedure: k4163 o|propagated global variable: out772775 ##sys#standard-output o|inlining procedure: k4210 o|inlining procedure: k4210 o|inlining procedure: k4286 o|inlining procedure: k4286 o|contracted procedure: "(csi.scm:269) chicken.csi#tty-input?" o|inlining procedure: k4276 o|inlining procedure: k4276 o|inlining procedure: k4311 o|inlining procedure: k4311 o|inlining procedure: k4349 o|inlining procedure: k4349 o|inlining procedure: k4370 o|contracted procedure: "(csi.scm:299) g864865" o|inlining procedure: k4370 o|inlining procedure: k4410 o|inlining procedure: k4410 o|consed rest parameter at call site: "(csi.scm:318) chicken.csi#describe" 2 o|inlining procedure: k4443 o|consed rest parameter at call site: "(csi.scm:322) chicken.csi#dump" 2 o|inlining procedure: k4443 o|consed rest parameter at call site: "(csi.scm:328) chicken.csi#dump" 2 o|inlining procedure: k4479 o|consed rest parameter at call site: "(csi.scm:329) chicken.csi#report" 1 o|inlining procedure: k4479 o|inlining procedure: k4497 o|inlining procedure: k4515 o|inlining procedure: k4515 o|inlining procedure: k4497 o|inlining procedure: k4571 o|inlining procedure: k4571 o|inlining procedure: k4595 o|inlining procedure: k4595 o|inlining procedure: k4650 o|consed rest parameter at call site: "(csi.scm:347) chicken.csi#describe" 2 o|inlining procedure: k4650 o|inlining procedure: k4663 o|inlining procedure: k4663 o|contracted procedure: "(csi.scm:356) chicken.csi#history-clear" o|inlining procedure: k4713 o|inlining procedure: k4713 o|inlining procedure: k4737 o|inlining procedure: k4737 o|inlining procedure: k4766 o|inlining procedure: k4766 o|inlining procedure: k4822 o|contracted procedure: "(csi.scm:397) g959966" o|inlining procedure: k4799 o|inlining procedure: k4799 o|inlining procedure: k4822 o|propagated global variable: g965967 chicken.csi#command-table o|substituted constant variable: a4849 o|substituted constant variable: a4851 o|substituted constant variable: a4853 o|substituted constant variable: a4855 o|substituted constant variable: a4857 o|substituted constant variable: a4859 o|substituted constant variable: a4861 o|substituted constant variable: a4863 o|substituted constant variable: a4865 o|substituted constant variable: a4867 o|substituted constant variable: a4869 o|substituted constant variable: a4871 o|substituted constant variable: a4873 o|substituted constant variable: a4875 o|substituted constant variable: a4877 o|substituted constant variable: a4879 o|substituted constant variable: a4881 o|substituted constant variable: a4883 o|substituted constant variable: a4885 o|merged explicitly consed rest parameter: port1046 o|substituted constant variable: a5093 o|substituted constant variable: a5112 o|inlining procedure: k5119 o|inlining procedure: k5119 o|inlining procedure: k5157 o|inlining procedure: k5157 o|inlining procedure: k5249 o|inlining procedure: k5249 o|inlining procedure: k5282 o|inlining procedure: k5282 o|propagated global variable: g10731077 ##sys#features o|merged explicitly consed rest parameter: rest11551157 o|inlining procedure: k5415 o|inlining procedure: k5415 o|inlining procedure: k5444 o|inlining procedure: k5474 o|inlining procedure: k5474 o|inlining procedure: k5444 o|inlining procedure: k5531 o|inlining procedure: k5531 o|inlining procedure: k5555 o|inlining procedure: k5555 o|inlining procedure: k5573 o|inlining procedure: k5573 o|inlining procedure: k5591 o|inlining procedure: k5591 o|inlining procedure: k5624 o|inlining procedure: k5624 o|inlining procedure: k5639 o|inlining procedure: k5639 o|inlining procedure: k5658 o|inlining procedure: k5658 o|inlining procedure: k5664 o|inlining procedure: k5664 o|inlining procedure: k5682 o|inlining procedure: k5682 o|inlining procedure: k5704 o|inlining procedure: k5734 o|inlining procedure: k5734 o|inlining procedure: k5704 o|inlining procedure: k5809 o|inlining procedure: k5809 o|inlining procedure: k5830 o|inlining procedure: k5830 o|inlining procedure: k5865 o|inlining procedure: k5865 o|inlining procedure: k5887 o|inlining procedure: k5887 o|inlining procedure: k5935 o|inlining procedure: k5956 o|inlining procedure: k5956 o|inlining procedure: k5968 o|inlining procedure: k5968 o|inlining procedure: k5980 o|inlining procedure: k5980 o|inlining procedure: k5992 o|inlining procedure: k5992 o|inlining procedure: k6004 o|inlining procedure: k6004 o|inlining procedure: k6016 o|inlining procedure: k6016 o|substituted constant variable: a6029 o|substituted constant variable: a6031 o|substituted constant variable: a6033 o|substituted constant variable: a6035 o|substituted constant variable: a6037 o|substituted constant variable: a6039 o|substituted constant variable: a6041 o|substituted constant variable: a6043 o|substituted constant variable: a6045 o|substituted constant variable: a6047 o|substituted constant variable: a6049 o|substituted constant variable: a6051 o|inlining procedure: k5935 o|inlining procedure: k6065 o|inlining procedure: k6065 o|inlining procedure: k6090 o|inlining procedure: k6117 o|inlining procedure: k6117 o|inlining procedure: k6155 o|inlining procedure: k6155 o|inlining procedure: k6090 o|inlining procedure: k6214 o|inlining procedure: k6214 o|inlining procedure: k6269 o|inlining procedure: k6269 o|inlining procedure: k6293 o|inlining procedure: k6351 o|inlining procedure: k6351 o|inlining procedure: k6319 o|inlining procedure: k6319 o|inlining procedure: k6293 o|contracted procedure: "(csi.scm:638) chicken.csi#improper-pairs?" o|inlining procedure: k5362 o|inlining procedure: k5362 o|contracted procedure: "(csi.scm:638) chicken.csi#circular-list?" o|inlining procedure: k5327 o|inlining procedure: k5347 o|inlining procedure: k5347 o|inlining procedure: k5327 o|merged explicitly consed rest parameter: len-out1345 o|inlining procedure: k6438 o|inlining procedure: k6438 o|inlining procedure: k6444 o|inlining procedure: k6444 o|inlining procedure: k6470 o|inlining procedure: k6470 o|inlining procedure: k6496 o|inlining procedure: k6496 o|inlining procedure: k6549 o|inlining procedure: k6549 o|inlining procedure: k6590 o|inlining procedure: k6590 o|inlining procedure: k6616 o|inlining procedure: k6616 o|inlining procedure: k6650 o|inlining procedure: k6650 o|inlining procedure: k6701 o|inlining procedure: k6719 o|inlining procedure: k6719 o|inlining procedure: k6735 o|inlining procedure: k6735 o|inlining procedure: k6701 o|inlining procedure: k6821 o|propagated global variable: out14571460 ##sys#standard-output o|substituted constant variable: a6846 o|substituted constant variable: a6847 o|inlining procedure: k6821 o|inlining procedure: k6895 o|inlining procedure: k6895 o|inlining procedure: k6910 o|propagated global variable: out14971500 ##sys#standard-output o|substituted constant variable: a6917 o|substituted constant variable: a6918 o|inlining procedure: k6910 o|propagated global variable: out14971500 ##sys#standard-output o|inlining procedure: k6969 o|inlining procedure: k6969 o|propagated global variable: out14691472 ##sys#standard-output o|substituted constant variable: a7007 o|substituted constant variable: a7008 o|propagated global variable: out14691472 ##sys#standard-output o|inlining procedure: k7023 o|inlining procedure: k7023 o|inlining procedure: k7037 o|propagated global variable: out14571460 ##sys#standard-output o|inlining procedure: k7037 o|inlining procedure: k7043 o|inlining procedure: k7043 o|propagated global variable: tmp14381440 ##sys#repl-recent-call-chain o|propagated global variable: tmp14381440 ##sys#repl-recent-call-chain o|inlining procedure: k7061 o|inlining procedure: k7061 o|inlining procedure: k7095 o|inlining procedure: k7095 o|inlining procedure: k7152 o|inlining procedure: k7183 o|inlining procedure: k7183 o|inlining procedure: k7223 o|inlining procedure: k7223 o|inlining procedure: k7302 o|inlining procedure: k7302 o|inlining procedure: k7152 o|inlining procedure: k7345 o|inlining procedure: k7345 o|propagated global variable: tmp15481550 ##sys#repl-recent-call-chain o|propagated global variable: tmp15481550 ##sys#repl-recent-call-chain o|inlining procedure: k7366 o|inlining procedure: k7378 o|inlining procedure: k7378 o|inlining procedure: k7366 o|inlining procedure: k7421 o|inlining procedure: k7421 o|inlining procedure: k7436 o|inlining procedure: k7456 o|inlining procedure: k7486 o|contracted procedure: "(csi.scm:952) g16931702" o|inlining procedure: k7486 o|inlining procedure: k7456 o|contracted procedure: "(csi.scm:951) chicken.csi#findall" o|substituted constant variable: chicken.csi#constant1665 o|inlining procedure: k7567 o|inlining procedure: k7567 o|inlining procedure: k7436 o|inlining procedure: k7537 o|substituted constant variable: chicken.csi#constant1671 o|inlining procedure: k7537 o|contracted procedure: "(csi.scm:1133) chicken.csi#run" o|inlining procedure: k7646 o|inlining procedure: k7646 o|inlining procedure: k7641 o|inlining procedure: k7641 o|merged explicitly consed rest parameter: rest18811883 o|inlining procedure: k7760 o|inlining procedure: k7760 o|inlining procedure: k7879 o|contracted procedure: "(csi.scm:1091) chicken.csi#register-repl-history!" o|inlining procedure: k4234 o|inlining procedure: k4234 o|inlining procedure: k7879 o|inlining procedure: k7913 o|inlining procedure: k7913 o|substituted constant variable: a7954 o|inlining procedure: k7951 o|consed rest parameter at call site: "(csi.scm:1102) evalstring1820" 2 o|inlining procedure: k7951 o|substituted constant variable: a7973 o|consed rest parameter at call site: "(csi.scm:1105) evalstring1820" 2 o|substituted constant variable: a7998 o|inlining procedure: k7995 o|consed rest parameter at call site: "(csi.scm:1108) evalstring1820" 2 o|inlining procedure: k7995 o|inlining procedure: k8058 o|inlining procedure: k8058 o|inlining procedure: k8071 o|inlining procedure: k8103 o|inlining procedure: k8103 o|substituted constant variable: a8125 o|propagated global variable: g20492050 chicken.pretty-print#pretty-print o|inlining procedure: k8071 o|substituted constant variable: a8140 o|substituted constant variable: a8142 o|substituted constant variable: a8144 o|substituted constant variable: a8146 o|substituted constant variable: chicken.csi#constant1743 o|substituted constant variable: chicken.csi#constant1735 o|contracted procedure: "(csi.scm:1085) loadinit1819" o|inlining procedure: k7691 o|inlining procedure: k7691 o|inlining procedure: k7715 o|substituted constant variable: a7728 o|inlining procedure: k7715 o|inlining procedure: k8158 o|inlining procedure: k8158 o|inlining procedure: k8199 o|inlining procedure: k8199 o|inlining procedure: k8211 o|inlining procedure: k8211 o|inlining procedure: k8220 o|inlining procedure: k8220 o|inlining procedure: k8238 o|inlining procedure: k8238 o|contracted procedure: "(csi.scm:1049) chicken.csi#delete-duplicates" o|inlining procedure: k3124 o|inlining procedure: k3124 o|contracted procedure: "(mini-srfi-1.scm:123) chicken.csi#delete" o|inlining procedure: k3049 o|inlining procedure: k3049 o|inlining procedure: k8307 o|inlining procedure: k8307 o|inlining procedure: k8341 o|inlining procedure: k8341 o|inlining procedure: k8375 o|inlining procedure: k8375 o|inlining procedure: k8398 o|inlining procedure: k8398 o|inlining procedure: k8421 o|inlining procedure: k8421 o|inlining procedure: k8459 o|inlining procedure: k8459 o|contracted procedure: "(csi.scm:1028) chicken.csi#print-usage" o|inlining procedure: k8504 o|inlining procedure: k8504 o|inlining procedure: k8539 o|inlining procedure: k8539 o|inlining procedure: k8542 o|inlining procedure: k8542 o|inlining procedure: k8548 o|inlining procedure: k8548 o|inlining procedure: k8566 o|inlining procedure: k8566 o|substituted constant variable: a8586 o|inlining procedure: k8606 o|inlining procedure: k8606 o|substituted constant variable: a8609 o|inlining procedure: k8640 o|inlining procedure: k8640 o|contracted procedure: "(csi.scm:974) chicken.csi#parse-option-string" o|inlining procedure: k4958 o|contracted procedure: "(csi.scm:437) g10041013" o|inlining procedure: k4928 o|inlining procedure: k4928 o|inlining procedure: k4958 o|inlining procedure: k5026 o|inlining procedure: k5026 o|inlining procedure: k8682 o|inlining procedure: k8682 o|inlining procedure: k8728 o|inlining procedure: k8728 o|substituted constant variable: a8738 o|inlining procedure: k8742 o|inlining procedure: k8742 o|replaced variables: 958 o|removed binding forms: 394 o|removed side-effect free assignment to unused variable: chicken.csi#constant193 o|removed side-effect free assignment to unused variable: chicken.csi#every o|removed side-effect free assignment to unused variable: chicken.csi#any o|removed side-effect free assignment to unused variable: chicken.csi#filter o|removed side-effect free assignment to unused variable: chicken.csi#list-tabulate o|substituted constant variable: int711716 o|substituted constant variable: r40598783 o|substituted constant variable: r39808784 o|substituted constant variable: r40058786 o|contracted procedure: "(csi.scm:359) chicken.csi#history-show" o|propagated global variable: out772775 ##sys#standard-output o|contracted procedure: "(csi.scm:365) chicken.csi#select-frame" o|contracted procedure: "(csi.scm:368) chicken.csi#copy-from-frame" o|converted assignments to bindings: (fail1563) o|converted assignments to bindings: (compare1558) o|substituted constant variable: r73468988 o|converted assignments to bindings: (shorten1055) o|substituted constant variable: r54758850 o|substituted constant variable: r54758850 o|substituted constant variable: r54758852 o|substituted constant variable: r54758852 o|inlining procedure: k5603 o|inlining procedure: k5531 o|substituted constant variable: r56598875 o|substituted constant variable: r56598875 o|substituted constant variable: r56598877 o|substituted constant variable: r56598877 o|inlining procedure: k5531 o|removed call to pure procedure with unused result: "(csi.scm:652) ##sys#size" o|substituted constant variable: r59578896 o|substituted constant variable: r59578896 o|inlining procedure: k5956 o|inlining procedure: k5956 o|substituted constant variable: r59698900 o|inlining procedure: k5956 o|inlining procedure: k5956 o|substituted constant variable: r59818902 o|inlining procedure: k5956 o|inlining procedure: k5956 o|substituted constant variable: r59938904 o|inlining procedure: k5956 o|inlining procedure: k5956 o|substituted constant variable: r60058906 o|inlining procedure: k5956 o|inlining procedure: k5956 o|substituted constant variable: r60178908 o|inlining procedure: k5956 o|inlining procedure: k5956 o|substituted constant variable: r53638929 o|substituted constant variable: r53288934 o|converted assignments to bindings: (descseq1163) o|converted assignments to bindings: (bestlen1364) o|converted assignments to bindings: (justify1387) o|propagated global variable: out14571460 ##sys#standard-output o|propagated global variable: out14971500 ##sys#standard-output o|propagated global variable: out14691472 ##sys#standard-output o|substituted constant variable: r70248965 o|substituted constant variable: r70248965 o|substituted constant variable: r70248967 o|substituted constant variable: r70248967 o|substituted constant variable: r70388969 o|substituted constant variable: r70388969 o|substituted constant variable: r70388971 o|substituted constant variable: r70388971 o|substituted constant variable: r70448974 o|converted assignments to bindings: (prin11435) o|substituted constant variable: r73678992 o|removed side-effect free assignment to unused variable: chicken.csi#constant1665 o|removed side-effect free assignment to unused variable: chicken.csi#constant1671 o|substituted constant variable: r74228993 o|substituted constant variable: clist1722 o|substituted constant variable: r75389004 o|removed side-effect free assignment to unused variable: chicken.csi#constant1735 o|removed side-effect free assignment to unused variable: chicken.csi#constant1743 o|substituted constant variable: r76429008 o|substituted constant variable: r80599023 o|substituted constant variable: r80599023 o|substituted constant variable: r80729029 o|substituted constant variable: r80729029 o|substituted constant variable: r77169034 o|substituted constant variable: r85409085 o|substituted constant variable: r85409085 o|substituted constant variable: r86419096 o|substituted constant variable: r87299107 o|substituted constant variable: r87299107 o|converted assignments to bindings: (addext719) o|simplifications: ((let . 8)) o|replaced variables: 25 o|removed binding forms: 981 o|inlining procedure: k3889 o|inlining procedure: k7204 o|contracted procedure: k5893 o|inlining procedure: k6220 o|inlining procedure: k7888 o|inlining procedure: k7903 o|inlining procedure: k7903 o|inlining procedure: k7903 o|inlining procedure: k7903 o|inlining procedure: k7903 o|inlining procedure: k7903 o|inlining procedure: k7903 o|inlining procedure: k8115 o|inlining procedure: k7703 o|inlining procedure: "(csi.scm:1083) chicken.csi#print-banner" o|inlining procedure: k8444 o|inlining procedure: "(csi.scm:1031) chicken.csi#print-banner" o|inlining procedure: k8597 o|inlining procedure: k8597 o|inlining procedure: k8597 o|replaced variables: 12 o|removed binding forms: 105 o|removed side-effect free assignment to unused variable: chicken.csi#print-banner o|substituted constant variable: r38909312 o|substituted constant variable: r38909312 o|substituted constant variable: r38909312 o|inlining procedure: k4289 o|substituted constant variable: r59579175 o|substituted constant variable: r59579177 o|substituted constant variable: r59579179 o|substituted constant variable: r59579181 o|substituted constant variable: r59579183 o|substituted constant variable: r59579185 o|substituted constant variable: r59579187 o|substituted constant variable: r59579189 o|substituted constant variable: r59579191 o|substituted constant variable: r59579193 o|substituted constant variable: r59579195 o|substituted constant variable: r77049437 o|replaced variables: 2 o|removed binding forms: 26 o|removed conditional forms: 2 o|replaced variables: 1 o|removed binding forms: 16 o|simplifications: ((let . 1)) o|removed binding forms: 1 o|simplifications: ((if . 41) (##core#call . 549)) o| call simplifications: o| scheme#make-vector o| scheme#set-car! o| ##sys#cons 2 o| scheme#char-whitespace? o| ##sys#list 3 o| chicken.base#void o| scheme#member 9 o| scheme#string->list o| scheme#string o| scheme#equal? 4 o| chicken.fixnum#fxmod o| scheme#write-char 7 o| ##sys#immediate? 2 o| ##sys#permanent? o| scheme#char? o| chicken.base#fixnum? 2 o| chicken.base#bignum? o| chicken.base#flonum? o| chicken.base#ratnum? o| chicken.base#cplxnum? o| scheme#vector? o| scheme#list? o| scheme#procedure? o| ##sys#pointer? 2 o| ##sys#generic-structure? 2 o| scheme#cdr 19 o| scheme#caar o| scheme#cdar o| chicken.fixnum#fx= 3 o| chicken.base#atom? o| scheme#memq 3 o| scheme#cddr 3 o| scheme#exact? o| scheme#integer->char 2 o| scheme#char->integer o| ##sys#setslot 9 o| scheme#<= o| scheme#+ o| scheme#* o| ##sys#/-2 o| scheme#eof-object? 4 o| scheme#caddr o| scheme#symbol? 2 o| scheme#string? 4 o| ##sys#structure? 4 o| ##sys#check-list 17 o| scheme#string-length 4 o| chicken.fixnum#fxmin o| scheme#string=? 6 o| scheme#number? 2 o| chicken.fixnum#fx< 4 o| scheme#length 4 o| chicken.fixnum#fx- 11 o| scheme#list-ref 2 o| scheme#>= 2 o| scheme#eq? 44 o| scheme#not 11 o| scheme#apply 5 o| ##sys#call-with-values 6 o| ##sys#apply 2 o| scheme#cadr 13 o| scheme#car 21 o| ##sys#check-symbol 2 o| ##sys#check-string o| scheme#assq 4 o| scheme#cons 25 o| scheme#list 11 o| scheme#set-cdr! 2 o| chicken.fixnum#fx<= o| scheme#vector-ref 8 o| scheme#null? 24 o| ##sys#void 20 o| chicken.fixnum#fx* o| scheme#vector-set! o| chicken.fixnum#fx>= 15 o| chicken.fixnum#fx+ 20 o| scheme#pair? 31 o| ##sys#slot 86 o| ##sys#foreign-block-argument o| ##sys#foreign-fixnum-argument o| ##sys#size 12 o| scheme#string-ref 4 o| chicken.fixnum#fx> 6 o| scheme#char=? 6 o|contracted procedure: k3832 o|contracted procedure: k3889 o|contracted procedure: k3905 o|contracted procedure: k3908 o|contracted procedure: k3920 o|contracted procedure: k4096 o|contracted procedure: k4007 o|contracted procedure: k3937 o|contracted procedure: k3941 o|contracted procedure: k4061 o|contracted procedure: k4077 o|contracted procedure: k4086 o|contracted procedure: k3970 o|contracted procedure: k3982 o|contracted procedure: k3995 o|contracted procedure: k4092 o|contracted procedure: k4101 o|contracted procedure: k4135 o|contracted procedure: k4108 o|contracted procedure: k4111 o|contracted procedure: k4117 o|contracted procedure: k4121 o|contracted procedure: k4124 o|contracted procedure: k4132 o|contracted procedure: k4222 o|contracted procedure: k4213 o|contracted procedure: k4340 o|contracted procedure: k4299 o|contracted procedure: k4302 o|contracted procedure: k4305 o|contracted procedure: k4308 o|contracted procedure: k4323 o|contracted procedure: k4334 o|contracted procedure: k4330 o|contracted procedure: k4352 o|contracted procedure: k4364 o|contracted procedure: k4367 o|contracted procedure: k4375 o|contracted procedure: k4390 o|contracted procedure: k4413 o|contracted procedure: k4431 o|contracted procedure: k4446 o|contracted procedure: k4461 o|contracted procedure: k4482 o|contracted procedure: k4491 o|contracted procedure: k4500 o|contracted procedure: k4518 o|contracted procedure: k4528 o|contracted procedure: k4532 o|contracted procedure: k4542 o|contracted procedure: k4574 o|contracted procedure: k4584 o|contracted procedure: k4588 o|contracted procedure: k4598 o|contracted procedure: k4647 o|contracted procedure: k4660 o|contracted procedure: k4666 o|contracted procedure: k4682 o|contracted procedure: k4675 o|contracted procedure: k4694 o|contracted procedure: k4704 o|contracted procedure: k4151 o|propagated global variable: r4152 ##sys#undefined-value o|contracted procedure: k4716 o|contracted procedure: k4166 o|propagated global variable: g9872 chicken.csi#history-count o|contracted procedure: k4191 o|contracted procedure: k4201 o|contracted procedure: k4728 o|contracted procedure: k4740 o|contracted procedure: k7112 o|contracted procedure: k7064 o|contracted procedure: k7085 o|contracted procedure: k7089 o|contracted procedure: k7081 o|contracted procedure: k7074 o|contracted procedure: k7092 o|contracted procedure: k7098 o|contracted procedure: k7108 o|contracted procedure: k4756 o|contracted procedure: k7118 o|contracted procedure: k7121 o|contracted procedure: k7130 o|contracted procedure: k7145 o|contracted procedure: k7149 o|contracted procedure: k7141 o|contracted procedure: k7174 o|propagated global variable: r7175 ##sys#undefined-value o|contracted procedure: k7186 o|contracted procedure: k7192 o|contracted procedure: k7195 o|contracted procedure: k7198 o|contracted procedure: k7201 o|contracted procedure: k7212 o|contracted procedure: k7226 o|contracted procedure: k7236 o|contracted procedure: k7260 o|contracted procedure: k7268 o|contracted procedure: k7264 o|contracted procedure: k7274 o|contracted procedure: k7277 o|contracted procedure: k7280 o|contracted procedure: k7283 o|contracted procedure: k7286 o|contracted procedure: k7330 o|contracted procedure: k7305 o|contracted procedure: k7315 o|contracted procedure: k7319 o|contracted procedure: k7323 o|contracted procedure: k7327 o|contracted procedure: k7339 o|contracted procedure: k7348 o|contracted procedure: k4769 o|contracted procedure: k4782 o|contracted procedure: k4788 o|contracted procedure: k4810 o|contracted procedure: k4825 o|contracted procedure: k4835 o|contracted procedure: k4839 o|contracted procedure: k4796 o|propagated global variable: g965967 chicken.csi#command-table o|contracted procedure: k4904 o|contracted procedure: k4911 o|contracted procedure: k5095 o|contracted procedure: k5109 o|contracted procedure: k5122 o|substituted constant variable: g9884 o|contracted procedure: k5136 o|substituted constant variable: g9886 o|contracted procedure: k5142 o|contracted procedure: k5145 o|contracted procedure: k5168 o|contracted procedure: k5204 o|contracted procedure: k5208 o|contracted procedure: k5212 o|contracted procedure: k5216 o|contracted procedure: k5220 o|contracted procedure: k5224 o|contracted procedure: k5232 o|contracted procedure: k5236 o|contracted procedure: k5252 o|contracted procedure: k5262 o|contracted procedure: k5266 o|contracted procedure: k5270 o|contracted procedure: k5273 o|contracted procedure: k5285 o|contracted procedure: k5288 o|contracted procedure: k5291 o|contracted procedure: k5299 o|contracted procedure: k5307 o|propagated global variable: g10731077 ##sys#features o|contracted procedure: k5313 o|contracted procedure: k6415 o|contracted procedure: k5394 o|contracted procedure: k5400 o|contracted procedure: k5412 o|contracted procedure: k5421 o|contracted procedure: k5428 o|contracted procedure: k5514 o|contracted procedure: k5438 o|contracted procedure: k5447 o|contracted procedure: k5460 o|contracted procedure: k5463 o|contracted procedure: k5470 o|contracted procedure: k5477 o|contracted procedure: k5492 o|contracted procedure: k5499 o|contracted procedure: k5503 o|contracted procedure: k5518 o|contracted procedure: k5537 o|contracted procedure: k5540 o|contracted procedure: k5549 o|contracted procedure: k5558 o|contracted procedure: k5567 o|contracted procedure: k5576 o|contracted procedure: k6402 o|contracted procedure: k5585 o|propagated global variable: r6403 ##sys#undefined-value o|contracted procedure: k5594 o|contracted procedure: k5600 o|contracted procedure: k5609 o|contracted procedure: k5618 o|contracted procedure: k5633 o|contracted procedure: k5642 o|contracted procedure: k5651 o|contracted procedure: k5661 o|contracted procedure: k5667 o|contracted procedure: k5676 o|contracted procedure: k5685 o|contracted procedure: k5707 o|contracted procedure: k5716 o|contracted procedure: k5722 o|contracted procedure: k5737 o|contracted procedure: k5753 o|contracted procedure: k5763 o|contracted procedure: k5767 o|contracted procedure: k5771 o|contracted procedure: k5803 o|contracted procedure: k5812 o|contracted procedure: k5815 o|contracted procedure: k5859 o|contracted procedure: k5824 o|contracted procedure: k5853 o|contracted procedure: k5833 o|contracted procedure: k5845 o|contracted procedure: k5868 o|contracted procedure: k5877 o|contracted procedure: k5890 o|contracted procedure: k5932 o|contracted procedure: k5917 o|contracted procedure: k5921 o|contracted procedure: k5925 o|contracted procedure: k5949 o|contracted procedure: k5953 o|contracted procedure: k5959 o|contracted procedure: k5965 o|contracted procedure: k5971 o|contracted procedure: k5977 o|contracted procedure: k5983 o|contracted procedure: k5989 o|contracted procedure: k5995 o|contracted procedure: k6001 o|contracted procedure: k6007 o|contracted procedure: k6013 o|contracted procedure: k6019 o|contracted procedure: k6025 o|contracted procedure: k6055 o|contracted procedure: k6071 o|contracted procedure: k6093 o|contracted procedure: k6096 o|contracted procedure: k6105 o|contracted procedure: k6108 o|contracted procedure: k6120 o|contracted procedure: k6129 o|contracted procedure: k6133 o|contracted procedure: k6136 o|contracted procedure: k6139 o|contracted procedure: k6149 o|contracted procedure: k6158 o|contracted procedure: k6168 o|contracted procedure: k6172 o|contracted procedure: k6176 o|contracted procedure: k6187 o|contracted procedure: k6180 o|contracted procedure: k6184 o|contracted procedure: k6193 o|contracted procedure: k6208 o|contracted procedure: k6217 o|contracted procedure: k6227 o|contracted procedure: k6254 o|contracted procedure: k6230 o|contracted procedure: k6246 o|contracted procedure: k6250 o|contracted procedure: k62279354 o|contracted procedure: k6257 o|contracted procedure: k6260 o|contracted procedure: k6272 o|contracted procedure: k6282 o|contracted procedure: k6286 o|contracted procedure: k6290 o|contracted procedure: k6296 o|contracted procedure: k6299 o|contracted procedure: k6316 o|contracted procedure: k6332 o|contracted procedure: k6335 o|contracted procedure: k6338 o|contracted procedure: k6345 o|contracted procedure: k6354 o|contracted procedure: k6357 o|contracted procedure: k6360 o|contracted procedure: k6368 o|contracted procedure: k6376 o|contracted procedure: k6392 o|contracted procedure: k5384 o|contracted procedure: k5365 o|contracted procedure: k5380 o|contracted procedure: k5368 o|contracted procedure: k5330 o|contracted procedure: k5337 o|contracted procedure: k5341 o|contracted procedure: k5344 o|contracted procedure: k6405 o|contracted procedure: k6424 o|contracted procedure: k6447 o|contracted procedure: k6467 o|contracted procedure: k6473 o|contracted procedure: k6484 o|contracted procedure: k6536 o|contracted procedure: k6529 o|contracted procedure: k6490 o|contracted procedure: k6502 o|contracted procedure: k6513 o|contracted procedure: k6519 o|contracted procedure: k6526 o|contracted procedure: k6552 o|contracted procedure: k6558 o|contracted procedure: k6565 o|contracted procedure: k6571 o|contracted procedure: k6587 o|contracted procedure: k6593 o|contracted procedure: k6605 o|contracted procedure: k6619 o|contracted procedure: k6644 o|contracted procedure: k6653 o|contracted procedure: k6656 o|contracted procedure: k6669 o|contracted procedure: k6673 o|contracted procedure: k6689 o|contracted procedure: k6676 o|contracted procedure: k6683 o|contracted procedure: k6704 o|contracted procedure: k6707 o|contracted procedure: k6713 o|contracted procedure: k6716 o|contracted procedure: k6722 o|contracted procedure: k6729 o|contracted procedure: k6738 o|contracted procedure: k6748 o|contracted procedure: k6761 o|contracted procedure: k6765 o|contracted procedure: k6798 o|contracted procedure: k6801 o|contracted procedure: k6805 o|contracted procedure: k6815 o|contracted procedure: k6824 o|contracted procedure: k6827 o|contracted procedure: k6830 o|contracted procedure: k6833 o|contracted procedure: k6836 o|contracted procedure: k6839 o|contracted procedure: k6842 o|contracted procedure: k6887 o|contracted procedure: k6890 o|contracted procedure: k6898 o|contracted procedure: k6913 o|contracted procedure: k6938 o|contracted procedure: k6944 o|contracted procedure: k6948 o|contracted procedure: k6951 o|contracted procedure: k6954 o|contracted procedure: k6957 o|contracted procedure: k6960 o|contracted procedure: k6997 o|contracted procedure: k6972 o|contracted procedure: k6982 o|contracted procedure: k6986 o|contracted procedure: k6990 o|contracted procedure: k6994 o|contracted procedure: k7019 o|contracted procedure: k7033 o|contracted procedure: k7046 o|contracted procedure: k7053 o|contracted procedure: k7354 o|contracted procedure: k7369 o|contracted procedure: k7381 o|contracted procedure: k7388 o|contracted procedure: k7403 o|contracted procedure: k7407 o|contracted procedure: k7394 o|contracted procedure: k7424 o|contracted procedure: k7427 o|contracted procedure: k7433 o|contracted procedure: k7445 o|contracted procedure: k7466 o|contracted procedure: k7489 o|contracted procedure: k7511 o|contracted procedure: k7507 o|contracted procedure: k7492 o|contracted procedure: k7495 o|contracted procedure: k7503 o|contracted procedure: k7564 o|contracted procedure: k7582 o|contracted procedure: k7573 o|contracted procedure: k7552 o|contracted procedure: k7534 o|contracted procedure: k7540 o|contracted procedure: k7547 o|contracted procedure: k7617 o|contracted procedure: k7623 o|contracted procedure: k7638 o|contracted procedure: k7670 o|contracted procedure: k7649 o|contracted procedure: k7659 o|contracted procedure: k7786 o|contracted procedure: k7744 o|contracted procedure: k7763 o|contracted procedure: k7818 o|contracted procedure: k7827 o|contracted procedure: k7836 o|contracted procedure: k7882 o|contracted procedure: k4237 o|contracted procedure: k4240 o|contracted procedure: k4251 o|contracted procedure: k7897 o|contracted procedure: k7900 o|contracted procedure: k7910 o|contracted procedure: k79109404 o|contracted procedure: k7916 o|contracted procedure: k7920 o|contracted procedure: k79109408 o|contracted procedure: k7926 o|contracted procedure: k7929 o|contracted procedure: k7936 o|contracted procedure: k79109412 o|contracted procedure: k7940 o|contracted procedure: k7948 o|contracted procedure: k7956 o|contracted procedure: k7963 o|contracted procedure: k79109416 o|contracted procedure: k7967 o|contracted procedure: k7975 o|contracted procedure: k7982 o|contracted procedure: k79109420 o|contracted procedure: k7986 o|contracted procedure: k8000 o|contracted procedure: k8007 o|contracted procedure: k79109424 o|contracted procedure: k8011 o|contracted procedure: k8020 o|contracted procedure: k8029 o|contracted procedure: k8064 o|contracted procedure: k8051 o|contracted procedure: k8061 o|contracted procedure: k79109428 o|contracted procedure: k8074 o|contracted procedure: k8082 o|contracted procedure: k8106 o|contracted procedure: k8109 o|contracted procedure: k8122 o|contracted procedure: k81229432 o|contracted procedure: k8152 o|contracted procedure: k7731 o|contracted procedure: k7718 o|contracted procedure: k7738 o|contracted procedure: k8168 o|contracted procedure: k8172 o|contracted procedure: k8271 o|contracted procedure: k8267 o|contracted procedure: k8223 o|contracted procedure: k8263 o|contracted procedure: k8232 o|contracted procedure: k8241 o|contracted procedure: k8250 o|contracted procedure: k3127 o|contracted procedure: k3130 o|contracted procedure: k3140 o|contracted procedure: k3052 o|contracted procedure: k3078 o|contracted procedure: k8279 o|contracted procedure: k8285 o|contracted procedure: k8292 o|contracted procedure: k8298 o|contracted procedure: k8310 o|contracted procedure: k8313 o|contracted procedure: k8316 o|contracted procedure: k8324 o|contracted procedure: k8332 o|contracted procedure: k8344 o|contracted procedure: k8347 o|contracted procedure: k8350 o|contracted procedure: k8358 o|contracted procedure: k8366 o|contracted procedure: k8378 o|contracted procedure: k8388 o|contracted procedure: k8392 o|contracted procedure: k8401 o|contracted procedure: k8411 o|contracted procedure: k8415 o|contracted procedure: k8424 o|contracted procedure: k8434 o|contracted procedure: k8438 o|contracted procedure: k8466 o|contracted procedure: k8479 o|contracted procedure: k8483 o|contracted procedure: k3873 o|contracted procedure: k3869 o|contracted procedure: k3865 o|contracted procedure: k8507 o|contracted procedure: k8510 o|contracted procedure: k8513 o|contracted procedure: k8521 o|contracted procedure: k8529 o|contracted procedure: k8563 o|contracted procedure: k8581 o|contracted procedure: k8591 o|contracted procedure: k8630 o|contracted procedure: k8626 o|contracted procedure: k8594 o|contracted procedure: k8622 o|contracted procedure: k8618 o|contracted procedure: k8603 o|contracted procedure: k8611 o|contracted procedure: k8637 o|contracted procedure: k8658 o|contracted procedure: k4923 o|contracted procedure: k4949 o|contracted procedure: k4961 o|contracted procedure: k4964 o|contracted procedure: k4967 o|contracted procedure: k4975 o|contracted procedure: k4983 o|contracted procedure: k4931 o|contracted procedure: k5029 o|contracted procedure: k5043 o|contracted procedure: k8685 o|contracted procedure: k8752 o|contracted procedure: k8756 o|contracted procedure: k8760 o|simplifications: ((if . 3) (let . 120)) o|removed binding forms: 500 o|inlining procedure: k7229 o|inlining procedure: k6878 o|substituted constant variable: r8753 o|substituted constant variable: r8757 o|substituted constant variable: r8753 o|substituted constant variable: r8757 o|substituted constant variable: r8761 o|replaced variables: 214 o|removed binding forms: 2 o|simplifications: ((if . 1)) o|removed binding forms: 91 o|direct leaf routine/allocation: g834835 6 o|direct leaf routine/allocation: lp1138 0 o|direct leaf routine/allocation: lp1124 0 o|direct leaf routine/allocation: loop1723 0 o|contracted procedure: "(csi.scm:276) k4311" o|contracted procedure: k5790 o|converted assignments to bindings: (lp1138) o|converted assignments to bindings: (lp1124) o|contracted procedure: k7459 o|converted assignments to bindings: (loop1723) o|simplifications: ((let . 3)) o|removed binding forms: 3 o|replaced variables: 2 o|removed binding forms: 1 o|customizable procedures: (k3845 g989990 doloop10251026 map-loop9981031 chicken.csi#canonicalize-args chicken.csi#lookup-script-file k7602 k7608 k7614 map-loop17911811 k7803 k7809 for-each-loop18231904 for-each-loop18331911 for-each-loop18431918 map-loop19251942 collect-options1818 map-loop19511968 loop354 loop374 chicken.csi#member* k7870 doloop20522053 evalstring1820 doloop18511998 chicken.csi#history-ref doloop18911892 g18611862 loop1853 k7439 map-loop16871712 loop1675 find1654 loop1651 k6808 k7026 g14801488 for-each-loop14791509 prin11435 doloop14931494 doloop14421448 justify1387 doloop13961398 doloop14051406 doloop13971413 doloop13861394 def-len13501372 def-out13511370 body13481357 k6499 bestlen1364 k5793 g13061307 map-loop13111328 g12951296 g12661273 for-each-loop12651282 loop1276 g12441251 for-each-loop12431254 doloop12381239 chicken.csi#hexdump loop-print1213 doloop12001201 loop21183 loop11173 k5068 map-loop10611078 g10881095 for-each-loop10871109 shorten1055 k5116 k4361 for-each-loop958970 k7124 g15771585 for-each-loop15761600 compare1558 doloop15901591 doloop15621567 fail1563 k7067 chicken.csi#show-frameinfo doloop769770 chicken.csi#history-add g912919 for-each-loop911931 for-each-loop892902 chicken.csi#report chicken.csi#dump chicken.csi#describe k4114 loop727 loop746 addext719) o|calls to known targets: 260 o|identified direct recursive calls: f_7181 1 o|identified direct recursive calls: f_5325 1 o|identified direct recursive calls: f_6212 1 o|identified direct recursive calls: f_5360 1 o|identified direct recursive calls: f_7376 1 o|identified direct recursive calls: f_7562 1 o|identified direct recursive calls: f_7484 1 o|unused rest argument: _1889 f_7789 o|identified direct recursive calls: f_7877 2 o|fast box initializations: 49 o|fast global references: 77 o|fast global assignments: 26 o|dropping unused closure argument: f_3948 o|dropping unused closure argument: f_4205 o|dropping unused closure argument: f_5084 o|dropping unused closure argument: f_5325 o|dropping unused closure argument: f_5360 o|dropping unused closure argument: f_6431 o|dropping unused closure argument: f_6579 o|dropping unused closure argument: f_6582 o|dropping unused closure argument: f_6784 o|dropping unused closure argument: f_6787 o|dropping unused closure argument: f_7358 o|dropping unused closure argument: f_7413 o|dropping unused closure argument: f_7562 o|dropping unused closure argument: f_7742 */ /* end of file */ �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.time.posix.import.scm���������������������������������������������������������0000644�0001750�0001750�00000001334�13502227762�020455� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.time.posix.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.time.posix 'posix (scheme#list) '((seconds->utc-time . chicken.time.posix#seconds->utc-time) (utc-time->seconds . chicken.time.posix#utc-time->seconds) (seconds->local-time . chicken.time.posix#seconds->local-time) (seconds->string . chicken.time.posix#seconds->string) (local-time->seconds . chicken.time.posix#local-time->seconds) (string->time . chicken.time.posix#string->time) (time->string . chicken.time.posix#time->string) (local-timezone-abbreviation . chicken.time.posix#local-timezone-abbreviation)) (scheme#list) (scheme#list)) ;; END OF FILE ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/csc.c���������������������������������������������������������������������������������0000644�0001750�0001750�00002262010�13502227776�013661� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from csc.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: csc.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -output-file csc.c uses: library eval expand file extras pathname posix data-structures */ #include "chicken.h" #ifndef STATICBUILD # define STATIC_CHICKEN 0 #else # define STATIC_CHICKEN 1 #endif #ifndef DEBUGBUILD # define DEBUG_CHICKEN 0 #else # define DEBUG_CHICKEN 1 #endif static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_file_toplevel) C_externimport void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_posix_toplevel) C_externimport void C_ccall C_posix_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[442]; static double C_possibly_force_alignment; C_noret_decl(f8584) static void C_ccall f8584(C_word c,C_word *av) C_noret; C_noret_decl(f8590) static void C_ccall f8590(C_word c,C_word *av) C_noret; C_noret_decl(f8594) static void C_ccall f8594(C_word c,C_word *av) C_noret; C_noret_decl(f8616) static void C_ccall f8616(C_word c,C_word *av) C_noret; C_noret_decl(f8662) static void C_ccall f8662(C_word c,C_word *av) C_noret; C_noret_decl(f_2266) static void C_ccall f_2266(C_word c,C_word *av) C_noret; C_noret_decl(f_2269) static void C_ccall f_2269(C_word c,C_word *av) C_noret; C_noret_decl(f_2272) static void C_ccall f_2272(C_word c,C_word *av) C_noret; C_noret_decl(f_2275) static void C_ccall f_2275(C_word c,C_word *av) C_noret; C_noret_decl(f_2278) static void C_ccall f_2278(C_word c,C_word *av) C_noret; C_noret_decl(f_2281) static void C_ccall f_2281(C_word c,C_word *av) C_noret; C_noret_decl(f_2284) static void C_ccall f_2284(C_word c,C_word *av) C_noret; C_noret_decl(f_2287) static void C_ccall f_2287(C_word c,C_word *av) C_noret; C_noret_decl(f_2290) static void C_ccall f_2290(C_word c,C_word *av) C_noret; C_noret_decl(f_2296) static void C_ccall f_2296(C_word c,C_word *av) C_noret; C_noret_decl(f_2302) static void C_ccall f_2302(C_word c,C_word *av) C_noret; C_noret_decl(f_2306) static void C_ccall f_2306(C_word c,C_word *av) C_noret; C_noret_decl(f_2310) static void C_ccall f_2310(C_word c,C_word *av) C_noret; C_noret_decl(f_2314) static void C_ccall f_2314(C_word c,C_word *av) C_noret; C_noret_decl(f_2318) static void C_ccall f_2318(C_word c,C_word *av) C_noret; C_noret_decl(f_2322) static void C_ccall f_2322(C_word c,C_word *av) C_noret; C_noret_decl(f_2326) static void C_ccall f_2326(C_word c,C_word *av) C_noret; C_noret_decl(f_2330) static void C_ccall f_2330(C_word c,C_word *av) C_noret; C_noret_decl(f_2334) static void C_ccall f_2334(C_word c,C_word *av) C_noret; C_noret_decl(f_2338) static void C_ccall f_2338(C_word c,C_word *av) C_noret; C_noret_decl(f_2342) static void C_ccall f_2342(C_word c,C_word *av) C_noret; C_noret_decl(f_2346) static void C_ccall f_2346(C_word c,C_word *av) C_noret; C_noret_decl(f_2350) static void C_ccall f_2350(C_word c,C_word *av) C_noret; C_noret_decl(f_2354) static void C_ccall f_2354(C_word c,C_word *av) C_noret; C_noret_decl(f_2362) static void C_ccall f_2362(C_word c,C_word *av) C_noret; C_noret_decl(f_2366) static void C_ccall f_2366(C_word c,C_word *av) C_noret; C_noret_decl(f_2370) static void C_ccall f_2370(C_word c,C_word *av) C_noret; C_noret_decl(f_2374) static void C_ccall f_2374(C_word c,C_word *av) C_noret; C_noret_decl(f_2378) static void C_ccall f_2378(C_word c,C_word *av) C_noret; C_noret_decl(f_2382) static void C_ccall f_2382(C_word c,C_word *av) C_noret; C_noret_decl(f_2386) static void C_ccall f_2386(C_word c,C_word *av) C_noret; C_noret_decl(f_2390) static void C_ccall f_2390(C_word c,C_word *av) C_noret; C_noret_decl(f_2394) static void C_ccall f_2394(C_word c,C_word *av) C_noret; C_noret_decl(f_2398) static void C_ccall f_2398(C_word c,C_word *av) C_noret; C_noret_decl(f_2402) static void C_ccall f_2402(C_word c,C_word *av) C_noret; C_noret_decl(f_2406) static void C_ccall f_2406(C_word c,C_word *av) C_noret; C_noret_decl(f_2410) static void C_ccall f_2410(C_word c,C_word *av) C_noret; C_noret_decl(f_2414) static void C_ccall f_2414(C_word c,C_word *av) C_noret; C_noret_decl(f_2418) static void C_ccall f_2418(C_word c,C_word *av) C_noret; C_noret_decl(f_2422) static void C_ccall f_2422(C_word c,C_word *av) C_noret; C_noret_decl(f_2426) static void C_ccall f_2426(C_word c,C_word *av) C_noret; C_noret_decl(f_2430) static void C_ccall f_2430(C_word c,C_word *av) C_noret; C_noret_decl(f_2434) static void C_ccall f_2434(C_word c,C_word *av) C_noret; C_noret_decl(f_2503) static void C_ccall f_2503(C_word c,C_word *av) C_noret; C_noret_decl(f_2506) static void C_ccall f_2506(C_word c,C_word *av) C_noret; C_noret_decl(f_2941) static void C_fcall f_2941(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2947) static void C_fcall f_2947(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2961) static void C_ccall f_2961(C_word c,C_word *av) C_noret; C_noret_decl(f_3003) static void C_fcall f_3003(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3016) static void C_ccall f_3016(C_word c,C_word *av) C_noret; C_noret_decl(f_3030) static void C_ccall f_3030(C_word c,C_word *av) C_noret; C_noret_decl(f_3078) static void C_fcall f_3078(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3092) static void C_ccall f_3092(C_word c,C_word *av) C_noret; C_noret_decl(f_3105) static void C_ccall f_3105(C_word c,C_word *av) C_noret; C_noret_decl(f_3126) static void C_fcall f_3126(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3134) static void C_fcall f_3134(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3141) static void C_ccall f_3141(C_word c,C_word *av) C_noret; C_noret_decl(f_3155) static void C_ccall f_3155(C_word c,C_word *av) C_noret; C_noret_decl(f_3170) static void C_fcall f_3170(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3178) static void C_fcall f_3178(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3182) static void C_ccall f_3182(C_word c,C_word *av) C_noret; C_noret_decl(f_3186) static C_word C_fcall f_3186(C_word *a,C_word t0,C_word t1); C_noret_decl(f_3204) static void C_ccall f_3204(C_word c,C_word *av) C_noret; C_noret_decl(f_3283) static C_word C_fcall f_3283(C_word t0); C_noret_decl(f_3383) static void C_fcall f_3383(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3405) static void C_ccall f_3405(C_word c,C_word *av) C_noret; C_noret_decl(f_3416) static void C_ccall f_3416(C_word c,C_word *av) C_noret; C_noret_decl(f_3788) static void C_ccall f_3788(C_word c,C_word *av) C_noret; C_noret_decl(f_3814) static void C_ccall f_3814(C_word c,C_word *av) C_noret; C_noret_decl(f_3817) static void C_fcall f_3817(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3824) static void C_ccall f_3824(C_word c,C_word *av) C_noret; C_noret_decl(f_3827) static void C_ccall f_3827(C_word c,C_word *av) C_noret; C_noret_decl(f_3830) static void C_ccall f_3830(C_word c,C_word *av) C_noret; C_noret_decl(f_3833) static void C_ccall f_3833(C_word c,C_word *av) C_noret; C_noret_decl(f_3840) static void C_ccall f_3840(C_word c,C_word *av) C_noret; C_noret_decl(f_3844) static void C_ccall f_3844(C_word c,C_word *av) C_noret; C_noret_decl(f_3848) static void C_ccall f_3848(C_word c,C_word *av) C_noret; C_noret_decl(f_3866) static void C_ccall f_3866(C_word c,C_word *av) C_noret; C_noret_decl(f_3874) static void C_ccall f_3874(C_word c,C_word *av) C_noret; C_noret_decl(f_3878) static void C_ccall f_3878(C_word c,C_word *av) C_noret; C_noret_decl(f_3880) static void C_ccall f_3880(C_word c,C_word *av) C_noret; C_noret_decl(f_3888) static void C_ccall f_3888(C_word c,C_word *av) C_noret; C_noret_decl(f_3896) static void C_ccall f_3896(C_word c,C_word *av) C_noret; C_noret_decl(f_3900) static void C_ccall f_3900(C_word c,C_word *av) C_noret; C_noret_decl(f_3904) static void C_ccall f_3904(C_word c,C_word *av) C_noret; C_noret_decl(f_3908) static void C_ccall f_3908(C_word c,C_word *av) C_noret; C_noret_decl(f_3912) static void C_ccall f_3912(C_word c,C_word *av) C_noret; C_noret_decl(f_3916) static void C_ccall f_3916(C_word c,C_word *av) C_noret; C_noret_decl(f_3929) static void C_ccall f_3929(C_word c,C_word *av) C_noret; C_noret_decl(f_3933) static void C_ccall f_3933(C_word c,C_word *av) C_noret; C_noret_decl(f_3938) static void C_fcall f_3938(C_word t0,C_word t1) C_noret; C_noret_decl(f_3941) static void C_fcall f_3941(C_word t0) C_noret; C_noret_decl(f_3949) static void C_ccall f_3949(C_word c,C_word *av) C_noret; C_noret_decl(f_3984) static void C_ccall f_3984(C_word c,C_word *av) C_noret; C_noret_decl(f_3988) static void C_ccall f_3988(C_word c,C_word *av) C_noret; C_noret_decl(f_3993) static void C_ccall f_3993(C_word c,C_word *av) C_noret; C_noret_decl(f_3998) static void C_ccall f_3998(C_word c,C_word *av) C_noret; C_noret_decl(f_4005) static void C_ccall f_4005(C_word c,C_word *av) C_noret; C_noret_decl(f_4035) static void C_ccall f_4035(C_word c,C_word *av) C_noret; C_noret_decl(f_4049) static void C_ccall f_4049(C_word c,C_word *av) C_noret; C_noret_decl(f_4053) static void C_ccall f_4053(C_word c,C_word *av) C_noret; C_noret_decl(f_4069) static void C_ccall f_4069(C_word c,C_word *av) C_noret; C_noret_decl(f_4088) static void C_ccall f_4088(C_word c,C_word *av) C_noret; C_noret_decl(f_4103) static void C_fcall f_4103(C_word t0,C_word t1) C_noret; C_noret_decl(f_4107) static void C_fcall f_4107(C_word t0,C_word t1) C_noret; C_noret_decl(f_4111) static void C_ccall f_4111(C_word c,C_word *av) C_noret; C_noret_decl(f_4114) static void C_ccall f_4114(C_word c,C_word *av) C_noret; C_noret_decl(f_4127) static void C_ccall f_4127(C_word c,C_word *av) C_noret; C_noret_decl(f_4132) static void C_fcall f_4132(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4157) static void C_ccall f_4157(C_word c,C_word *av) C_noret; C_noret_decl(f_4177) static void C_ccall f_4177(C_word c,C_word *av) C_noret; C_noret_decl(f_4185) static void C_ccall f_4185(C_word c,C_word *av) C_noret; C_noret_decl(f_4189) static void C_ccall f_4189(C_word c,C_word *av) C_noret; C_noret_decl(f_4193) static void C_ccall f_4193(C_word c,C_word *av) C_noret; C_noret_decl(f_4209) static void C_ccall f_4209(C_word c,C_word *av) C_noret; C_noret_decl(f_4216) static void C_ccall f_4216(C_word c,C_word *av) C_noret; C_noret_decl(f_4226) static void C_fcall f_4226(C_word t0) C_noret; C_noret_decl(f_4238) static void C_ccall f_4238(C_word c,C_word *av) C_noret; C_noret_decl(f_4242) static void C_ccall f_4242(C_word c,C_word *av) C_noret; C_noret_decl(f_4245) static void C_ccall f_4245(C_word c,C_word *av) C_noret; C_noret_decl(f_4248) static void C_ccall f_4248(C_word c,C_word *av) C_noret; C_noret_decl(f_4251) static void C_ccall f_4251(C_word c,C_word *av) C_noret; C_noret_decl(f_4254) static void C_ccall f_4254(C_word c,C_word *av) C_noret; C_noret_decl(f_4260) static void C_ccall f_4260(C_word c,C_word *av) C_noret; C_noret_decl(f_4266) static void C_ccall f_4266(C_word c,C_word *av) C_noret; C_noret_decl(f_4278) static void C_ccall f_4278(C_word c,C_word *av) C_noret; C_noret_decl(f_4288) static void C_ccall f_4288(C_word c,C_word *av) C_noret; C_noret_decl(f_4292) static void C_ccall f_4292(C_word c,C_word *av) C_noret; C_noret_decl(f_4298) static void C_ccall f_4298(C_word c,C_word *av) C_noret; C_noret_decl(f_4310) static void C_ccall f_4310(C_word c,C_word *av) C_noret; C_noret_decl(f_4317) static void C_ccall f_4317(C_word c,C_word *av) C_noret; C_noret_decl(f_4350) static void C_fcall f_4350(C_word t0,C_word t1) C_noret; C_noret_decl(f_4355) static void C_ccall f_4355(C_word c,C_word *av) C_noret; C_noret_decl(f_4357) static void C_fcall f_4357(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4383) static void C_fcall f_4383(C_word t0,C_word t1) C_noret; C_noret_decl(f_4388) static void C_ccall f_4388(C_word c,C_word *av) C_noret; C_noret_decl(f_4392) static void C_ccall f_4392(C_word c,C_word *av) C_noret; C_noret_decl(f_4396) static void C_ccall f_4396(C_word c,C_word *av) C_noret; C_noret_decl(f_4413) static void C_fcall f_4413(C_word t0,C_word t1) C_noret; C_noret_decl(f_4429) static void C_fcall f_4429(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4440) static void C_ccall f_4440(C_word c,C_word *av) C_noret; C_noret_decl(f_4444) static void C_ccall f_4444(C_word c,C_word *av) C_noret; C_noret_decl(f_4447) static void C_ccall f_4447(C_word c,C_word *av) C_noret; C_noret_decl(f_4450) static void C_ccall f_4450(C_word c,C_word *av) C_noret; C_noret_decl(f_4456) static void C_ccall f_4456(C_word c,C_word *av) C_noret; C_noret_decl(f_4462) static void C_fcall f_4462(C_word t0,C_word t1) C_noret; C_noret_decl(f_4465) static void C_ccall f_4465(C_word c,C_word *av) C_noret; C_noret_decl(f_4477) static void C_ccall f_4477(C_word c,C_word *av) C_noret; C_noret_decl(f_4480) static void C_ccall f_4480(C_word c,C_word *av) C_noret; C_noret_decl(f_4483) static void C_ccall f_4483(C_word c,C_word *av) C_noret; C_noret_decl(f_4486) static void C_ccall f_4486(C_word c,C_word *av) C_noret; C_noret_decl(f_4489) static void C_ccall f_4489(C_word c,C_word *av) C_noret; C_noret_decl(f_4492) static void C_ccall f_4492(C_word c,C_word *av) C_noret; C_noret_decl(f_4499) static void C_ccall f_4499(C_word c,C_word *av) C_noret; C_noret_decl(f_4505) static void C_ccall f_4505(C_word c,C_word *av) C_noret; C_noret_decl(f_4508) static void C_ccall f_4508(C_word c,C_word *av) C_noret; C_noret_decl(f_4511) static void C_ccall f_4511(C_word c,C_word *av) C_noret; C_noret_decl(f_4514) static void C_ccall f_4514(C_word c,C_word *av) C_noret; C_noret_decl(f_4517) static void C_ccall f_4517(C_word c,C_word *av) C_noret; C_noret_decl(f_4520) static void C_ccall f_4520(C_word c,C_word *av) C_noret; C_noret_decl(f_4527) static void C_ccall f_4527(C_word c,C_word *av) C_noret; C_noret_decl(f_4531) static void C_ccall f_4531(C_word c,C_word *av) C_noret; C_noret_decl(f_4549) static void C_ccall f_4549(C_word c,C_word *av) C_noret; C_noret_decl(f_4553) static void C_ccall f_4553(C_word c,C_word *av) C_noret; C_noret_decl(f_4559) static void C_ccall f_4559(C_word c,C_word *av) C_noret; C_noret_decl(f_4566) static void C_ccall f_4566(C_word c,C_word *av) C_noret; C_noret_decl(f_4583) static void C_ccall f_4583(C_word c,C_word *av) C_noret; C_noret_decl(f_4593) static void C_ccall f_4593(C_word c,C_word *av) C_noret; C_noret_decl(f_4597) static void C_ccall f_4597(C_word c,C_word *av) C_noret; C_noret_decl(f_4606) static void C_fcall f_4606(C_word t0,C_word t1) C_noret; C_noret_decl(f_4609) static void C_fcall f_4609(C_word t0,C_word t1) C_noret; C_noret_decl(f_4616) static void C_ccall f_4616(C_word c,C_word *av) C_noret; C_noret_decl(f_4633) static void C_ccall f_4633(C_word c,C_word *av) C_noret; C_noret_decl(f_4636) static void C_ccall f_4636(C_word c,C_word *av) C_noret; C_noret_decl(f_4639) static void C_ccall f_4639(C_word c,C_word *av) C_noret; C_noret_decl(f_4642) static void C_ccall f_4642(C_word c,C_word *av) C_noret; C_noret_decl(f_4652) static void C_ccall f_4652(C_word c,C_word *av) C_noret; C_noret_decl(f_4659) static void C_ccall f_4659(C_word c,C_word *av) C_noret; C_noret_decl(f_4666) static void C_ccall f_4666(C_word c,C_word *av) C_noret; C_noret_decl(f_4670) static void C_ccall f_4670(C_word c,C_word *av) C_noret; C_noret_decl(f_4677) static void C_ccall f_4677(C_word c,C_word *av) C_noret; C_noret_decl(f_4680) static void C_ccall f_4680(C_word c,C_word *av) C_noret; C_noret_decl(f_4692) static void C_ccall f_4692(C_word c,C_word *av) C_noret; C_noret_decl(f_4704) static void C_ccall f_4704(C_word c,C_word *av) C_noret; C_noret_decl(f_4711) static void C_ccall f_4711(C_word c,C_word *av) C_noret; C_noret_decl(f_4720) static void C_ccall f_4720(C_word c,C_word *av) C_noret; C_noret_decl(f_4727) static void C_ccall f_4727(C_word c,C_word *av) C_noret; C_noret_decl(f_4733) static void C_ccall f_4733(C_word c,C_word *av) C_noret; C_noret_decl(f_4736) static void C_ccall f_4736(C_word c,C_word *av) C_noret; C_noret_decl(f_4739) static void C_ccall f_4739(C_word c,C_word *av) C_noret; C_noret_decl(f_4742) static void C_ccall f_4742(C_word c,C_word *av) C_noret; C_noret_decl(f_4799) static void C_ccall f_4799(C_word c,C_word *av) C_noret; C_noret_decl(f_4811) static void C_ccall f_4811(C_word c,C_word *av) C_noret; C_noret_decl(f_4823) static void C_ccall f_4823(C_word c,C_word *av) C_noret; C_noret_decl(f_4835) static void C_ccall f_4835(C_word c,C_word *av) C_noret; C_noret_decl(f_4858) static void C_fcall f_4858(C_word t0,C_word t1) C_noret; C_noret_decl(f_4861) static void C_ccall f_4861(C_word c,C_word *av) C_noret; C_noret_decl(f_4873) static void C_ccall f_4873(C_word c,C_word *av) C_noret; C_noret_decl(f_4963) static void C_ccall f_4963(C_word c,C_word *av) C_noret; C_noret_decl(f_4966) static void C_ccall f_4966(C_word c,C_word *av) C_noret; C_noret_decl(f_4970) static void C_ccall f_4970(C_word c,C_word *av) C_noret; C_noret_decl(f_4978) static void C_ccall f_4978(C_word c,C_word *av) C_noret; C_noret_decl(f_4995) static void C_ccall f_4995(C_word c,C_word *av) C_noret; C_noret_decl(f_5015) static void C_ccall f_5015(C_word c,C_word *av) C_noret; C_noret_decl(f_5018) static void C_ccall f_5018(C_word c,C_word *av) C_noret; C_noret_decl(f_5084) static void C_ccall f_5084(C_word c,C_word *av) C_noret; C_noret_decl(f_5088) static void C_ccall f_5088(C_word c,C_word *av) C_noret; C_noret_decl(f_5104) static void C_ccall f_5104(C_word c,C_word *av) C_noret; C_noret_decl(f_5115) static void C_ccall f_5115(C_word c,C_word *av) C_noret; C_noret_decl(f_5131) static void C_ccall f_5131(C_word c,C_word *av) C_noret; C_noret_decl(f_5152) static void C_ccall f_5152(C_word c,C_word *av) C_noret; C_noret_decl(f_5162) static void C_ccall f_5162(C_word c,C_word *av) C_noret; C_noret_decl(f_5172) static void C_ccall f_5172(C_word c,C_word *av) C_noret; C_noret_decl(f_5182) static void C_ccall f_5182(C_word c,C_word *av) C_noret; C_noret_decl(f_5192) static void C_ccall f_5192(C_word c,C_word *av) C_noret; C_noret_decl(f_5202) static void C_ccall f_5202(C_word c,C_word *av) C_noret; C_noret_decl(f_5212) static void C_ccall f_5212(C_word c,C_word *av) C_noret; C_noret_decl(f_5222) static void C_ccall f_5222(C_word c,C_word *av) C_noret; C_noret_decl(f_5232) static void C_ccall f_5232(C_word c,C_word *av) C_noret; C_noret_decl(f_5242) static void C_ccall f_5242(C_word c,C_word *av) C_noret; C_noret_decl(f_5251) static void C_ccall f_5251(C_word c,C_word *av) C_noret; C_noret_decl(f_5254) static void C_ccall f_5254(C_word c,C_word *av) C_noret; C_noret_decl(f_5266) static void C_ccall f_5266(C_word c,C_word *av) C_noret; C_noret_decl(f_5293) static void C_fcall f_5293(C_word t0,C_word t1) C_noret; C_noret_decl(f_5317) static void C_ccall f_5317(C_word c,C_word *av) C_noret; C_noret_decl(f_5334) static void C_ccall f_5334(C_word c,C_word *av) C_noret; C_noret_decl(f_5351) static void C_ccall f_5351(C_word c,C_word *av) C_noret; C_noret_decl(f_5368) static void C_ccall f_5368(C_word c,C_word *av) C_noret; C_noret_decl(f_5385) static void C_ccall f_5385(C_word c,C_word *av) C_noret; C_noret_decl(f_5389) static void C_ccall f_5389(C_word c,C_word *av) C_noret; C_noret_decl(f_5406) static void C_ccall f_5406(C_word c,C_word *av) C_noret; C_noret_decl(f_5410) static void C_ccall f_5410(C_word c,C_word *av) C_noret; C_noret_decl(f_5418) static void C_ccall f_5418(C_word c,C_word *av) C_noret; C_noret_decl(f_5432) static void C_ccall f_5432(C_word c,C_word *av) C_noret; C_noret_decl(f_5445) static void C_ccall f_5445(C_word c,C_word *av) C_noret; C_noret_decl(f_5449) static void C_ccall f_5449(C_word c,C_word *av) C_noret; C_noret_decl(f_5457) static void C_ccall f_5457(C_word c,C_word *av) C_noret; C_noret_decl(f_5470) static void C_ccall f_5470(C_word c,C_word *av) C_noret; C_noret_decl(f_5484) static void C_fcall f_5484(C_word t0,C_word t1) C_noret; C_noret_decl(f_5488) static void C_ccall f_5488(C_word c,C_word *av) C_noret; C_noret_decl(f_5496) static void C_ccall f_5496(C_word c,C_word *av) C_noret; C_noret_decl(f_5500) static void C_ccall f_5500(C_word c,C_word *av) C_noret; C_noret_decl(f_5525) static void C_ccall f_5525(C_word c,C_word *av) C_noret; C_noret_decl(f_5528) static void C_ccall f_5528(C_word c,C_word *av) C_noret; C_noret_decl(f_5545) static void C_ccall f_5545(C_word c,C_word *av) C_noret; C_noret_decl(f_5548) static void C_ccall f_5548(C_word c,C_word *av) C_noret; C_noret_decl(f_5566) static void C_ccall f_5566(C_word c,C_word *av) C_noret; C_noret_decl(f_5573) static void C_ccall f_5573(C_word c,C_word *av) C_noret; C_noret_decl(f_5576) static void C_fcall f_5576(C_word t0,C_word t1) C_noret; C_noret_decl(f_5579) static void C_fcall f_5579(C_word t0,C_word t1) C_noret; C_noret_decl(f_5586) static C_word C_fcall f_5586(C_word *a,C_word t0,C_word t1); C_noret_decl(f_5616) static void C_ccall f_5616(C_word c,C_word *av) C_noret; C_noret_decl(f_5619) static void C_ccall f_5619(C_word c,C_word *av) C_noret; C_noret_decl(f_5633) static void C_fcall f_5633(C_word t0,C_word t1) C_noret; C_noret_decl(f_5642) static void C_fcall f_5642(C_word t0,C_word t1) C_noret; C_noret_decl(f_5652) static void C_ccall f_5652(C_word c,C_word *av) C_noret; C_noret_decl(f_5656) static void C_ccall f_5656(C_word c,C_word *av) C_noret; C_noret_decl(f_5679) static void C_ccall f_5679(C_word c,C_word *av) C_noret; C_noret_decl(f_5683) static void C_ccall f_5683(C_word c,C_word *av) C_noret; C_noret_decl(f_5710) static void C_ccall f_5710(C_word c,C_word *av) C_noret; C_noret_decl(f_5724) static void C_ccall f_5724(C_word c,C_word *av) C_noret; C_noret_decl(f_5734) static void C_fcall f_5734(C_word t0,C_word t1) C_noret; C_noret_decl(f_5738) static void C_ccall f_5738(C_word c,C_word *av) C_noret; C_noret_decl(f_5761) static void C_ccall f_5761(C_word c,C_word *av) C_noret; C_noret_decl(f_5778) static void C_ccall f_5778(C_word c,C_word *av) C_noret; C_noret_decl(f_5780) static void C_fcall f_5780(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5805) static void C_ccall f_5805(C_word c,C_word *av) C_noret; C_noret_decl(f_5819) static void C_ccall f_5819(C_word c,C_word *av) C_noret; C_noret_decl(f_5823) static void C_ccall f_5823(C_word c,C_word *av) C_noret; C_noret_decl(f_5840) static void C_ccall f_5840(C_word c,C_word *av) C_noret; C_noret_decl(f_5852) static void C_ccall f_5852(C_word c,C_word *av) C_noret; C_noret_decl(f_5857) static void C_ccall f_5857(C_word c,C_word *av) C_noret; C_noret_decl(f_5863) static void C_ccall f_5863(C_word c,C_word *av) C_noret; C_noret_decl(f_5874) static void C_ccall f_5874(C_word c,C_word *av) C_noret; C_noret_decl(f_5888) static void C_ccall f_5888(C_word c,C_word *av) C_noret; C_noret_decl(f_5902) static void C_ccall f_5902(C_word c,C_word *av) C_noret; C_noret_decl(f_5915) static void C_fcall f_5915(C_word t0,C_word t1) C_noret; C_noret_decl(f_5920) static void C_ccall f_5920(C_word c,C_word *av) C_noret; C_noret_decl(f_5939) static void C_ccall f_5939(C_word c,C_word *av) C_noret; C_noret_decl(f_5951) static void C_fcall f_5951(C_word t0,C_word t1) C_noret; C_noret_decl(f_5955) static void C_ccall f_5955(C_word c,C_word *av) C_noret; C_noret_decl(f_5963) static void C_ccall f_5963(C_word c,C_word *av) C_noret; C_noret_decl(f_5972) static void C_ccall f_5972(C_word c,C_word *av) C_noret; C_noret_decl(f_5978) static void C_ccall f_5978(C_word c,C_word *av) C_noret; C_noret_decl(f_6008) static void C_ccall f_6008(C_word c,C_word *av) C_noret; C_noret_decl(f_6215) static void C_ccall f_6215(C_word c,C_word *av) C_noret; C_noret_decl(f_6218) static void C_ccall f_6218(C_word c,C_word *av) C_noret; C_noret_decl(f_6221) static void C_ccall f_6221(C_word c,C_word *av) C_noret; C_noret_decl(f_6224) static void C_fcall f_6224(C_word t0,C_word t1) C_noret; C_noret_decl(f_6228) static void C_ccall f_6228(C_word c,C_word *av) C_noret; C_noret_decl(f_6232) static void C_ccall f_6232(C_word c,C_word *av) C_noret; C_noret_decl(f_6251) static void C_ccall f_6251(C_word c,C_word *av) C_noret; C_noret_decl(f_6255) static void C_ccall f_6255(C_word c,C_word *av) C_noret; C_noret_decl(f_6259) static void C_ccall f_6259(C_word c,C_word *av) C_noret; C_noret_decl(f_6263) static void C_ccall f_6263(C_word c,C_word *av) C_noret; C_noret_decl(f_6267) static void C_ccall f_6267(C_word c,C_word *av) C_noret; C_noret_decl(f_6271) static void C_fcall f_6271(C_word t0,C_word t1) C_noret; C_noret_decl(f_6282) static void C_ccall f_6282(C_word c,C_word *av) C_noret; C_noret_decl(f_6288) static void C_ccall f_6288(C_word c,C_word *av) C_noret; C_noret_decl(f_6290) static void C_fcall f_6290(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6315) static void C_ccall f_6315(C_word c,C_word *av) C_noret; C_noret_decl(f_6326) static void C_fcall f_6326(C_word t0,C_word t1) C_noret; C_noret_decl(f_6336) static void C_fcall f_6336(C_word t0,C_word t1) C_noret; C_noret_decl(f_6343) static void C_ccall f_6343(C_word c,C_word *av) C_noret; C_noret_decl(f_6357) static void C_ccall f_6357(C_word c,C_word *av) C_noret; C_noret_decl(f_6386) static void C_fcall f_6386(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6396) static void C_ccall f_6396(C_word c,C_word *av) C_noret; C_noret_decl(f_6411) static void C_fcall f_6411(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6415) static void C_ccall f_6415(C_word c,C_word *av) C_noret; C_noret_decl(f_6418) static void C_ccall f_6418(C_word c,C_word *av) C_noret; C_noret_decl(f_6421) static void C_ccall f_6421(C_word c,C_word *av) C_noret; C_noret_decl(f_6433) static void C_ccall f_6433(C_word c,C_word *av) C_noret; C_noret_decl(f_6445) static void C_ccall f_6445(C_word c,C_word *av) C_noret; C_noret_decl(f_6449) static void C_ccall f_6449(C_word c,C_word *av) C_noret; C_noret_decl(f_6453) static void C_fcall f_6453(C_word t0,C_word t1) C_noret; C_noret_decl(f_6457) static void C_ccall f_6457(C_word c,C_word *av) C_noret; C_noret_decl(f_6468) static void C_ccall f_6468(C_word c,C_word *av) C_noret; C_noret_decl(f_6497) static void C_ccall f_6497(C_word c,C_word *av) C_noret; C_noret_decl(f_6500) static void C_fcall f_6500(C_word t0,C_word t1) C_noret; C_noret_decl(f_6501) static void C_fcall f_6501(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6505) static void C_ccall f_6505(C_word c,C_word *av) C_noret; C_noret_decl(f_6508) static void C_ccall f_6508(C_word c,C_word *av) C_noret; C_noret_decl(f_6520) static void C_ccall f_6520(C_word c,C_word *av) C_noret; C_noret_decl(f_6528) static void C_ccall f_6528(C_word c,C_word *av) C_noret; C_noret_decl(f_6532) static void C_ccall f_6532(C_word c,C_word *av) C_noret; C_noret_decl(f_6538) static void C_ccall f_6538(C_word c,C_word *av) C_noret; C_noret_decl(f_6542) static void C_ccall f_6542(C_word c,C_word *av) C_noret; C_noret_decl(f_6551) static void C_ccall f_6551(C_word c,C_word *av) C_noret; C_noret_decl(f_6559) static void C_fcall f_6559(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6569) static void C_ccall f_6569(C_word c,C_word *av) C_noret; C_noret_decl(f_6582) static void C_fcall f_6582(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6592) static void C_ccall f_6592(C_word c,C_word *av) C_noret; C_noret_decl(f_6607) static void C_ccall f_6607(C_word c,C_word *av) C_noret; C_noret_decl(f_6609) static void C_fcall f_6609(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6619) static void C_ccall f_6619(C_word c,C_word *av) C_noret; C_noret_decl(f_6633) static void C_fcall f_6633(C_word t0,C_word t1) C_noret; C_noret_decl(f_6636) static void C_ccall f_6636(C_word c,C_word *av) C_noret; C_noret_decl(f_6639) static void C_ccall f_6639(C_word c,C_word *av) C_noret; C_noret_decl(f_6651) static void C_ccall f_6651(C_word c,C_word *av) C_noret; C_noret_decl(f_6658) static void C_ccall f_6658(C_word c,C_word *av) C_noret; C_noret_decl(f_6660) static void C_fcall f_6660(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6670) static void C_ccall f_6670(C_word c,C_word *av) C_noret; C_noret_decl(f_6683) static void C_fcall f_6683(C_word t0) C_noret; C_noret_decl(f_6694) static void C_ccall f_6694(C_word c,C_word *av) C_noret; C_noret_decl(f_6700) static void C_ccall f_6700(C_word c,C_word *av) C_noret; C_noret_decl(f_6702) static void C_fcall f_6702(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6727) static void C_ccall f_6727(C_word c,C_word *av) C_noret; C_noret_decl(f_6741) static void C_ccall f_6741(C_word c,C_word *av) C_noret; C_noret_decl(f_6750) static void C_ccall f_6750(C_word c,C_word *av) C_noret; C_noret_decl(f_6753) static void C_ccall f_6753(C_word c,C_word *av) C_noret; C_noret_decl(f_6756) static void C_ccall f_6756(C_word c,C_word *av) C_noret; C_noret_decl(f_6759) static void C_ccall f_6759(C_word c,C_word *av) C_noret; C_noret_decl(f_6765) static void C_ccall f_6765(C_word c,C_word *av) C_noret; C_noret_decl(f_6773) static void C_fcall f_6773(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6783) static void C_ccall f_6783(C_word c,C_word *av) C_noret; C_noret_decl(f_6800) static void C_ccall f_6800(C_word c,C_word *av) C_noret; C_noret_decl(f_6810) static void C_ccall f_6810(C_word c,C_word *av) C_noret; C_noret_decl(f_6814) static void C_ccall f_6814(C_word c,C_word *av) C_noret; C_noret_decl(f_6818) static void C_ccall f_6818(C_word c,C_word *av) C_noret; C_noret_decl(f_6822) static void C_ccall f_6822(C_word c,C_word *av) C_noret; C_noret_decl(f_6826) static void C_ccall f_6826(C_word c,C_word *av) C_noret; C_noret_decl(f_6829) static void C_ccall f_6829(C_word c,C_word *av) C_noret; C_noret_decl(f_6839) static void C_ccall f_6839(C_word c,C_word *av) C_noret; C_noret_decl(f_6846) static void C_ccall f_6846(C_word c,C_word *av) C_noret; C_noret_decl(f_6851) static void C_ccall f_6851(C_word c,C_word *av) C_noret; C_noret_decl(f_6855) static void C_ccall f_6855(C_word c,C_word *av) C_noret; C_noret_decl(f_6863) static void C_ccall f_6863(C_word c,C_word *av) C_noret; C_noret_decl(f_6871) static void C_ccall f_6871(C_word c,C_word *av) C_noret; C_noret_decl(f_6875) static void C_ccall f_6875(C_word c,C_word *av) C_noret; C_noret_decl(f_6879) static void C_ccall f_6879(C_word c,C_word *av) C_noret; C_noret_decl(f_6884) static void C_ccall f_6884(C_word c,C_word *av) C_noret; C_noret_decl(f_6886) static void C_fcall f_6886(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6911) static void C_ccall f_6911(C_word c,C_word *av) C_noret; C_noret_decl(f_6927) static void C_ccall f_6927(C_word c,C_word *av) C_noret; C_noret_decl(f_6930) static void C_ccall f_6930(C_word c,C_word *av) C_noret; C_noret_decl(f_6937) static void C_ccall f_6937(C_word c,C_word *av) C_noret; C_noret_decl(f_6951) static void C_ccall f_6951(C_word c,C_word *av) C_noret; C_noret_decl(f_6966) static void C_ccall f_6966(C_word c,C_word *av) C_noret; C_noret_decl(f_6974) static void C_fcall f_6974(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6999) static void C_ccall f_6999(C_word c,C_word *av) C_noret; C_noret_decl(f_7008) static void C_fcall f_7008(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7033) static void C_ccall f_7033(C_word c,C_word *av) C_noret; C_noret_decl(f_7045) static void C_fcall f_7045(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7059) static void C_ccall f_7059(C_word c,C_word *av) C_noret; C_noret_decl(f_7065) static void C_fcall f_7065(C_word t0,C_word t1) C_noret; C_noret_decl(f_7068) static void C_ccall f_7068(C_word c,C_word *av) C_noret; C_noret_decl(f_7071) static void C_ccall f_7071(C_word c,C_word *av) C_noret; C_noret_decl(f_7078) static void C_ccall f_7078(C_word c,C_word *av) C_noret; C_noret_decl(f_7082) static void C_ccall f_7082(C_word c,C_word *av) C_noret; C_noret_decl(f_7091) static void C_ccall f_7091(C_word c,C_word *av) C_noret; C_noret_decl(f_7170) static void C_fcall f_7170(C_word t0) C_noret; C_noret_decl(f_7181) static void C_ccall f_7181(C_word c,C_word *av) C_noret; C_noret_decl(f_7187) static void C_ccall f_7187(C_word c,C_word *av) C_noret; C_noret_decl(f_7189) static void C_fcall f_7189(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7214) static void C_ccall f_7214(C_word c,C_word *av) C_noret; C_noret_decl(f_7223) static void C_fcall f_7223(C_word t0) C_noret; C_noret_decl(f_7231) static void C_ccall f_7231(C_word c,C_word *av) C_noret; C_noret_decl(f_7235) static void C_ccall f_7235(C_word c,C_word *av) C_noret; C_noret_decl(f_7258) static void C_ccall f_7258(C_word c,C_word *av) C_noret; C_noret_decl(f_7268) static void C_ccall f_7268(C_word c,C_word *av) C_noret; C_noret_decl(f_7272) static void C_ccall f_7272(C_word c,C_word *av) C_noret; C_noret_decl(f_7276) static void C_ccall f_7276(C_word c,C_word *av) C_noret; C_noret_decl(f_7278) static void C_fcall f_7278(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7301) static void C_ccall f_7301(C_word c,C_word *av) C_noret; C_noret_decl(f_7306) static void C_fcall f_7306(C_word t0,C_word t1) C_noret; C_noret_decl(f_7313) static void C_ccall f_7313(C_word c,C_word *av) C_noret; C_noret_decl(f_7321) static void C_fcall f_7321(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7330) static void C_fcall f_7330(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7347) static void C_ccall f_7347(C_word c,C_word *av) C_noret; C_noret_decl(f_7355) static void C_ccall f_7355(C_word c,C_word *av) C_noret; C_noret_decl(f_7362) static void C_ccall f_7362(C_word c,C_word *av) C_noret; C_noret_decl(f_7368) static void C_ccall f_7368(C_word c,C_word *av) C_noret; C_noret_decl(f_7373) static void C_ccall f_7373(C_word c,C_word *av) C_noret; C_noret_decl(f_7385) static void C_ccall f_7385(C_word c,C_word *av) C_noret; C_noret_decl(f_7396) static void C_ccall f_7396(C_word c,C_word *av) C_noret; C_noret_decl(f_7399) static void C_ccall f_7399(C_word c,C_word *av) C_noret; C_noret_decl(f_7402) static void C_ccall f_7402(C_word c,C_word *av) C_noret; C_noret_decl(f_7405) static void C_ccall f_7405(C_word c,C_word *av) C_noret; C_noret_decl(f_7422) static void C_ccall f_7422(C_word c,C_word *av) C_noret; C_noret_decl(f_7425) static void C_ccall f_7425(C_word c,C_word *av) C_noret; C_noret_decl(f_7428) static void C_ccall f_7428(C_word c,C_word *av) C_noret; C_noret_decl(f_7431) static void C_ccall f_7431(C_word c,C_word *av) C_noret; C_noret_decl(f_7447) static void C_ccall f_7447(C_word c,C_word *av) C_noret; C_noret_decl(f_7451) static void C_fcall f_7451(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7459) static void C_ccall f_7459(C_word c,C_word *av) C_noret; C_noret_decl(f_7467) static void C_fcall f_7467(C_word t0,C_word t1) C_noret; C_noret_decl(f_7475) static void C_ccall f_7475(C_word c,C_word *av) C_noret; C_noret_decl(f_7480) static void C_ccall f_7480(C_word c,C_word *av) C_noret; C_noret_decl(f_7484) static void C_ccall f_7484(C_word c,C_word *av) C_noret; C_noret_decl(f_7503) static void C_ccall f_7503(C_word c,C_word *av) C_noret; C_noret_decl(f_7509) static void C_ccall f_7509(C_word c,C_word *av) C_noret; C_noret_decl(f_7512) static void C_ccall f_7512(C_word c,C_word *av) C_noret; C_noret_decl(f_7515) static void C_ccall f_7515(C_word c,C_word *av) C_noret; C_noret_decl(f_7518) static void C_ccall f_7518(C_word c,C_word *av) C_noret; C_noret_decl(f_7521) static void C_ccall f_7521(C_word c,C_word *av) C_noret; C_noret_decl(f_7525) static void C_ccall f_7525(C_word c,C_word *av) C_noret; C_noret_decl(f_7529) static void C_ccall f_7529(C_word c,C_word *av) C_noret; C_noret_decl(f_7533) static void C_ccall f_7533(C_word c,C_word *av) C_noret; C_noret_decl(f_7539) static void C_ccall f_7539(C_word c,C_word *av) C_noret; C_noret_decl(f_7544) static void C_ccall f_7544(C_word c,C_word *av) C_noret; C_noret_decl(f_7552) static void C_ccall f_7552(C_word c,C_word *av) C_noret; C_noret_decl(f_7570) static void C_ccall f_7570(C_word c,C_word *av) C_noret; C_noret_decl(f_7576) static void C_ccall f_7576(C_word c,C_word *av) C_noret; C_noret_decl(f_7580) static void C_ccall f_7580(C_word c,C_word *av) C_noret; C_noret_decl(f_7584) static void C_ccall f_7584(C_word c,C_word *av) C_noret; C_noret_decl(f_7588) static void C_ccall f_7588(C_word c,C_word *av) C_noret; C_noret_decl(f_7595) static void C_fcall f_7595(C_word t0,C_word t1) C_noret; C_noret_decl(f_7599) static void C_ccall f_7599(C_word c,C_word *av) C_noret; C_noret_decl(f_7602) static void C_ccall f_7602(C_word c,C_word *av) C_noret; C_noret_decl(f_7618) static void C_ccall f_7618(C_word c,C_word *av) C_noret; C_noret_decl(f_7621) static void C_ccall f_7621(C_word c,C_word *av) C_noret; C_noret_decl(f_7629) static void C_fcall f_7629(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7654) static void C_ccall f_7654(C_word c,C_word *av) C_noret; C_noret_decl(f_7663) static void C_fcall f_7663(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7688) static void C_ccall f_7688(C_word c,C_word *av) C_noret; C_noret_decl(f_7705) static void C_ccall f_7705(C_word c,C_word *av) C_noret; C_noret_decl(f_7725) static void C_ccall f_7725(C_word c,C_word *av) C_noret; C_noret_decl(f_7729) static void C_ccall f_7729(C_word c,C_word *av) C_noret; C_noret_decl(f_7754) static void C_ccall f_7754(C_word c,C_word *av) C_noret; C_noret_decl(f_7772) static void C_ccall f_7772(C_word c,C_word *av) C_noret; C_noret_decl(f_7776) static void C_ccall f_7776(C_word c,C_word *av) C_noret; C_noret_decl(f_7783) static void C_ccall f_7783(C_word c,C_word *av) C_noret; C_noret_decl(f_7787) static void C_ccall f_7787(C_word c,C_word *av) C_noret; C_noret_decl(f_7791) static void C_ccall f_7791(C_word c,C_word *av) C_noret; C_noret_decl(f_7795) static void C_ccall f_7795(C_word c,C_word *av) C_noret; C_noret_decl(f_7806) static void C_ccall f_7806(C_word c,C_word *av) C_noret; C_noret_decl(f_7809) static void C_ccall f_7809(C_word c,C_word *av) C_noret; C_noret_decl(f_7816) static void C_ccall f_7816(C_word c,C_word *av) C_noret; C_noret_decl(f_7821) static void C_ccall f_7821(C_word c,C_word *av) C_noret; C_noret_decl(f_7826) static void C_ccall f_7826(C_word c,C_word *av) C_noret; C_noret_decl(f_7830) static void C_ccall f_7830(C_word c,C_word *av) C_noret; C_noret_decl(f_7834) static void C_ccall f_7834(C_word c,C_word *av) C_noret; C_noret_decl(f_7841) static void C_ccall f_7841(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_2941) static void C_ccall trf_2941(C_word c,C_word *av) C_noret; static void C_ccall trf_2941(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2941(t0,t1,t2);} C_noret_decl(trf_2947) static void C_ccall trf_2947(C_word c,C_word *av) C_noret; static void C_ccall trf_2947(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2947(t0,t1,t2,t3);} C_noret_decl(trf_3003) static void C_ccall trf_3003(C_word c,C_word *av) C_noret; static void C_ccall trf_3003(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3003(t0,t1,t2);} C_noret_decl(trf_3078) static void C_ccall trf_3078(C_word c,C_word *av) C_noret; static void C_ccall trf_3078(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3078(t0,t1,t2);} C_noret_decl(trf_3126) static void C_ccall trf_3126(C_word c,C_word *av) C_noret; static void C_ccall trf_3126(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3126(t0,t1,t2);} C_noret_decl(trf_3134) static void C_ccall trf_3134(C_word c,C_word *av) C_noret; static void C_ccall trf_3134(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3134(t0,t1,t2,t3);} C_noret_decl(trf_3170) static void C_ccall trf_3170(C_word c,C_word *av) C_noret; static void C_ccall trf_3170(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3170(t0,t1,t2);} C_noret_decl(trf_3178) static void C_ccall trf_3178(C_word c,C_word *av) C_noret; static void C_ccall trf_3178(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3178(t0,t1,t2,t3);} C_noret_decl(trf_3383) static void C_ccall trf_3383(C_word c,C_word *av) C_noret; static void C_ccall trf_3383(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3383(t0,t1,t2,t3);} C_noret_decl(trf_3817) static void C_ccall trf_3817(C_word c,C_word *av) C_noret; static void C_ccall trf_3817(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3817(t0,t1,t2);} C_noret_decl(trf_3938) static void C_ccall trf_3938(C_word c,C_word *av) C_noret; static void C_ccall trf_3938(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3938(t0,t1);} C_noret_decl(trf_3941) static void C_ccall trf_3941(C_word c,C_word *av) C_noret; static void C_ccall trf_3941(C_word c,C_word *av){ C_word t0=av[0]; f_3941(t0);} C_noret_decl(trf_4103) static void C_ccall trf_4103(C_word c,C_word *av) C_noret; static void C_ccall trf_4103(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4103(t0,t1);} C_noret_decl(trf_4107) static void C_ccall trf_4107(C_word c,C_word *av) C_noret; static void C_ccall trf_4107(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4107(t0,t1);} C_noret_decl(trf_4132) static void C_ccall trf_4132(C_word c,C_word *av) C_noret; static void C_ccall trf_4132(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4132(t0,t1,t2);} C_noret_decl(trf_4226) static void C_ccall trf_4226(C_word c,C_word *av) C_noret; static void C_ccall trf_4226(C_word c,C_word *av){ C_word t0=av[0]; f_4226(t0);} C_noret_decl(trf_4350) static void C_ccall trf_4350(C_word c,C_word *av) C_noret; static void C_ccall trf_4350(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4350(t0,t1);} C_noret_decl(trf_4357) static void C_ccall trf_4357(C_word c,C_word *av) C_noret; static void C_ccall trf_4357(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4357(t0,t1,t2,t3);} C_noret_decl(trf_4383) static void C_ccall trf_4383(C_word c,C_word *av) C_noret; static void C_ccall trf_4383(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4383(t0,t1);} C_noret_decl(trf_4413) static void C_ccall trf_4413(C_word c,C_word *av) C_noret; static void C_ccall trf_4413(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4413(t0,t1);} C_noret_decl(trf_4429) static void C_ccall trf_4429(C_word c,C_word *av) C_noret; static void C_ccall trf_4429(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4429(t0,t1,t2);} C_noret_decl(trf_4462) static void C_ccall trf_4462(C_word c,C_word *av) C_noret; static void C_ccall trf_4462(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4462(t0,t1);} C_noret_decl(trf_4606) static void C_ccall trf_4606(C_word c,C_word *av) C_noret; static void C_ccall trf_4606(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4606(t0,t1);} C_noret_decl(trf_4609) static void C_ccall trf_4609(C_word c,C_word *av) C_noret; static void C_ccall trf_4609(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4609(t0,t1);} C_noret_decl(trf_4858) static void C_ccall trf_4858(C_word c,C_word *av) C_noret; static void C_ccall trf_4858(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4858(t0,t1);} C_noret_decl(trf_5293) static void C_ccall trf_5293(C_word c,C_word *av) C_noret; static void C_ccall trf_5293(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5293(t0,t1);} C_noret_decl(trf_5484) static void C_ccall trf_5484(C_word c,C_word *av) C_noret; static void C_ccall trf_5484(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5484(t0,t1);} C_noret_decl(trf_5576) static void C_ccall trf_5576(C_word c,C_word *av) C_noret; static void C_ccall trf_5576(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5576(t0,t1);} C_noret_decl(trf_5579) static void C_ccall trf_5579(C_word c,C_word *av) C_noret; static void C_ccall trf_5579(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5579(t0,t1);} C_noret_decl(trf_5633) static void C_ccall trf_5633(C_word c,C_word *av) C_noret; static void C_ccall trf_5633(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5633(t0,t1);} C_noret_decl(trf_5642) static void C_ccall trf_5642(C_word c,C_word *av) C_noret; static void C_ccall trf_5642(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5642(t0,t1);} C_noret_decl(trf_5734) static void C_ccall trf_5734(C_word c,C_word *av) C_noret; static void C_ccall trf_5734(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5734(t0,t1);} C_noret_decl(trf_5780) static void C_ccall trf_5780(C_word c,C_word *av) C_noret; static void C_ccall trf_5780(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5780(t0,t1,t2);} C_noret_decl(trf_5915) static void C_ccall trf_5915(C_word c,C_word *av) C_noret; static void C_ccall trf_5915(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5915(t0,t1);} C_noret_decl(trf_5951) static void C_ccall trf_5951(C_word c,C_word *av) C_noret; static void C_ccall trf_5951(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5951(t0,t1);} C_noret_decl(trf_6224) static void C_ccall trf_6224(C_word c,C_word *av) C_noret; static void C_ccall trf_6224(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6224(t0,t1);} C_noret_decl(trf_6271) static void C_ccall trf_6271(C_word c,C_word *av) C_noret; static void C_ccall trf_6271(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6271(t0,t1);} C_noret_decl(trf_6290) static void C_ccall trf_6290(C_word c,C_word *av) C_noret; static void C_ccall trf_6290(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6290(t0,t1,t2);} C_noret_decl(trf_6326) static void C_ccall trf_6326(C_word c,C_word *av) C_noret; static void C_ccall trf_6326(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6326(t0,t1);} C_noret_decl(trf_6336) static void C_ccall trf_6336(C_word c,C_word *av) C_noret; static void C_ccall trf_6336(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6336(t0,t1);} C_noret_decl(trf_6386) static void C_ccall trf_6386(C_word c,C_word *av) C_noret; static void C_ccall trf_6386(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6386(t0,t1,t2);} C_noret_decl(trf_6411) static void C_ccall trf_6411(C_word c,C_word *av) C_noret; static void C_ccall trf_6411(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6411(t0,t1,t2);} C_noret_decl(trf_6453) static void C_ccall trf_6453(C_word c,C_word *av) C_noret; static void C_ccall trf_6453(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6453(t0,t1);} C_noret_decl(trf_6500) static void C_ccall trf_6500(C_word c,C_word *av) C_noret; static void C_ccall trf_6500(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6500(t0,t1);} C_noret_decl(trf_6501) static void C_ccall trf_6501(C_word c,C_word *av) C_noret; static void C_ccall trf_6501(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6501(t0,t1,t2);} C_noret_decl(trf_6559) static void C_ccall trf_6559(C_word c,C_word *av) C_noret; static void C_ccall trf_6559(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6559(t0,t1,t2);} C_noret_decl(trf_6582) static void C_ccall trf_6582(C_word c,C_word *av) C_noret; static void C_ccall trf_6582(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6582(t0,t1,t2);} C_noret_decl(trf_6609) static void C_ccall trf_6609(C_word c,C_word *av) C_noret; static void C_ccall trf_6609(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6609(t0,t1,t2);} C_noret_decl(trf_6633) static void C_ccall trf_6633(C_word c,C_word *av) C_noret; static void C_ccall trf_6633(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6633(t0,t1);} C_noret_decl(trf_6660) static void C_ccall trf_6660(C_word c,C_word *av) C_noret; static void C_ccall trf_6660(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6660(t0,t1,t2);} C_noret_decl(trf_6683) static void C_ccall trf_6683(C_word c,C_word *av) C_noret; static void C_ccall trf_6683(C_word c,C_word *av){ C_word t0=av[0]; f_6683(t0);} C_noret_decl(trf_6702) static void C_ccall trf_6702(C_word c,C_word *av) C_noret; static void C_ccall trf_6702(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6702(t0,t1,t2);} C_noret_decl(trf_6773) static void C_ccall trf_6773(C_word c,C_word *av) C_noret; static void C_ccall trf_6773(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6773(t0,t1,t2);} C_noret_decl(trf_6886) static void C_ccall trf_6886(C_word c,C_word *av) C_noret; static void C_ccall trf_6886(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6886(t0,t1,t2);} C_noret_decl(trf_6974) static void C_ccall trf_6974(C_word c,C_word *av) C_noret; static void C_ccall trf_6974(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6974(t0,t1,t2);} C_noret_decl(trf_7008) static void C_ccall trf_7008(C_word c,C_word *av) C_noret; static void C_ccall trf_7008(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7008(t0,t1,t2);} C_noret_decl(trf_7045) static void C_ccall trf_7045(C_word c,C_word *av) C_noret; static void C_ccall trf_7045(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7045(t0,t1,t2,t3);} C_noret_decl(trf_7065) static void C_ccall trf_7065(C_word c,C_word *av) C_noret; static void C_ccall trf_7065(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7065(t0,t1);} C_noret_decl(trf_7170) static void C_ccall trf_7170(C_word c,C_word *av) C_noret; static void C_ccall trf_7170(C_word c,C_word *av){ C_word t0=av[0]; f_7170(t0);} C_noret_decl(trf_7189) static void C_ccall trf_7189(C_word c,C_word *av) C_noret; static void C_ccall trf_7189(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7189(t0,t1,t2);} C_noret_decl(trf_7223) static void C_ccall trf_7223(C_word c,C_word *av) C_noret; static void C_ccall trf_7223(C_word c,C_word *av){ C_word t0=av[0]; f_7223(t0);} C_noret_decl(trf_7278) static void C_ccall trf_7278(C_word c,C_word *av) C_noret; static void C_ccall trf_7278(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7278(t0,t1,t2);} C_noret_decl(trf_7306) static void C_ccall trf_7306(C_word c,C_word *av) C_noret; static void C_ccall trf_7306(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7306(t0,t1);} C_noret_decl(trf_7321) static void C_ccall trf_7321(C_word c,C_word *av) C_noret; static void C_ccall trf_7321(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7321(t0,t1,t2);} C_noret_decl(trf_7330) static void C_ccall trf_7330(C_word c,C_word *av) C_noret; static void C_ccall trf_7330(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7330(t0,t1,t2);} C_noret_decl(trf_7451) static void C_ccall trf_7451(C_word c,C_word *av) C_noret; static void C_ccall trf_7451(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7451(t0,t1,t2);} C_noret_decl(trf_7467) static void C_ccall trf_7467(C_word c,C_word *av) C_noret; static void C_ccall trf_7467(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7467(t0,t1);} C_noret_decl(trf_7595) static void C_ccall trf_7595(C_word c,C_word *av) C_noret; static void C_ccall trf_7595(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7595(t0,t1);} C_noret_decl(trf_7629) static void C_ccall trf_7629(C_word c,C_word *av) C_noret; static void C_ccall trf_7629(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7629(t0,t1,t2);} C_noret_decl(trf_7663) static void C_ccall trf_7663(C_word c,C_word *av) C_noret; static void C_ccall trf_7663(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7663(t0,t1,t2);} /* f8584 in k6925 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f8584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8584,2,av);} /* csc.scm:998: chicken.file#file-exists? */ t2=C_fast_retrieve(lf[131]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f8590 in k4506 in k4503 in k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in ... */ static void C_ccall f8590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f8590,2,av);} /* csc.scm:598: ##sys#print */ t2=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* f8594 in k4506 in k4503 in k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in ... */ static void C_ccall f8594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f8594,2,av);} /* csc.scm:598: ##sys#print */ t2=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* f8616 in k4634 in k4631 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f8616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f8616,2,av);} /* csc.scm:567: chicken.base#exit */ t2=C_fast_retrieve(lf[41]);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f8662 in k4506 in k4503 in k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in ... */ static void C_ccall f8662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f8662,2,av);} /* csc.scm:92: chicken.process#qs */ t2=C_fast_retrieve(lf[51]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2264 */ static void C_ccall f_2266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2266,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2269,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k2267 in k2264 */ static void C_ccall f_2269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2269,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2272,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k2270 in k2267 in k2264 */ static void C_ccall f_2272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2272,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2275,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_file_toplevel(2,av2);}} /* k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2275,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2278,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2278,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2281,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2281,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2284,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2284,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2287,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,7)))){ C_save_and_reclaim((void *)f_2287,2,av);} a=C_alloc(11); t2=C_a_i_provide(&a,1,lf[0]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2290,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:28: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[440]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[440]+1); av2[1]=t3; av2[2]=lf[441]; av2[3]=lf[441]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=C_SCHEME_END_OF_LIST; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2290,2,av);} a=C_alloc(3); t2=C_mutate(&lf[1] /* (set! main#staticbuild ...) */,C_mk_bool(STATIC_CHICKEN)); t3=C_mutate(&lf[2] /* (set! main#debugbuild ...) */,C_mk_bool(DEBUG_CHICKEN)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2296,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:43: chicken.platform#feature? */ t5=C_fast_retrieve(lf[428]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[429]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2296,2,av);} a=C_alloc(6); t2=lf[3] /* main#cross-chicken */ =t1;; t3=lf[4] /* main#binary-version */ =C_fix((C_word)C_BINARY_VERSION);; t4=lf[5] /* main#major-version */ =C_fix((C_word)C_MAJOR_VERSION);; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2302,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_TARGET_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2302,2,av);} a=C_alloc(6); t2=C_mutate(&lf[6] /* (set! main#default-cc ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2306,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2306,2,av);} a=C_alloc(6); t2=C_mutate(&lf[7] /* (set! main#default-cxx ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2310,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2310,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2314,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_CFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2314,2,av);} a=C_alloc(6); t2=C_mutate(&lf[8] /* (set! main#default-cflags ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2318,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_LDFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2318,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2322,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM_EXECUTABLE_OPTIONS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2322,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2326,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM_FILE_OPTIONS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2326,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2330,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_MORE_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2330,2,av);} a=C_alloc(6); t2=C_mutate(&lf[9] /* (set! main#default-libs ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2334,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2334,2,av);} a=C_alloc(6); t2=C_mutate(&lf[10] /* (set! main#default-libdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2338,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_RUN_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2338,2,av);} a=C_alloc(6); t2=C_mutate(&lf[11] /* (set! main#default-runlibdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2342,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_STATIC_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 */ static void C_ccall f_2342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2342,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2346,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INCLUDE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in k2264 in ... */ static void C_ccall f_2346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2346,2,av);} a=C_alloc(6); t2=C_mutate(&lf[12] /* (set! main#default-incdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2350,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in k2267 in ... */ static void C_ccall f_2350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2350,2,av);} a=C_alloc(6); t2=C_mutate(&lf[13] /* (set! main#default-bindir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2354,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in k2270 in ... */ static void C_ccall f_2354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2354,2,av);} a=C_alloc(3); t2=C_mutate(&lf[14] /* (set! main#default-sharedir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7841,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:63: chicken.platform#software-type */ t4=C_fast_retrieve(lf[219]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in ... */ static void C_ccall f_2362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2362,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2366,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in ... */ static void C_ccall f_2366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2366,2,av);} a=C_alloc(9); t2=C_mutate(&lf[13] /* (set! main#default-bindir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2370,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7834,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_CSC_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in ... */ static void C_ccall f_2370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2370,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2374,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7830,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CSI_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in ... */ static void C_ccall f_2374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2374,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2378,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7826,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CHICKEN_DO_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in ... */ static void C_ccall f_2378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2378,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2382,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIBRARIAN); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in ... */ static void C_ccall f_2382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2382,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2386,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIBRARIAN_FLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in ... */ static void C_ccall f_2386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2386,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2390,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_EGG_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in ... */ static void C_ccall f_2390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2390,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2394,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in ... */ static void C_ccall f_2394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2394,2,av);} a=C_alloc(6); t2=C_mutate(&lf[17] /* (set! main#host-libdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2398,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in ... */ static void C_ccall f_2398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2398,2,av);} a=C_alloc(6); t2=C_mutate(&lf[18] /* (set! main#host-bindir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2402,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_INCLUDE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in ... */ static void C_ccall f_2402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2402,2,av);} a=C_alloc(6); t2=C_mutate(&lf[19] /* (set! main#host-incdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2406,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in ... */ static void C_ccall f_2406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2406,2,av);} a=C_alloc(6); t2=C_mutate(&lf[20] /* (set! main#host-sharedir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2410,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_MORE_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in ... */ static void C_ccall f_2410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2410,2,av);} a=C_alloc(6); t2=C_mutate(&lf[21] /* (set! main#host-libs ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2414,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in ... */ static void C_ccall f_2414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2414,2,av);} a=C_alloc(6); t2=C_mutate(&lf[22] /* (set! main#host-cflags ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2418,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LDFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in ... */ static void C_ccall f_2418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2418,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2422,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in ... */ static void C_ccall f_2422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2422,2,av);} a=C_alloc(6); t2=C_mutate(&lf[23] /* (set! main#host-cc ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2426,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in ... */ static void C_ccall f_2426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2426,2,av);} a=C_alloc(6); t2=C_mutate(&lf[24] /* (set! main#host-cxx ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2430,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7821,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_retrieve2(lf[4],C_text("main#binary-version")); /* ##sys#fixnum->string */ t6=C_fast_retrieve(lf[436]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=C_retrieve2(lf[4],C_text("main#binary-version")); av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in ... */ static void C_ccall f_2430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2430,2,av);} a=C_alloc(6); t2=C_mutate(&lf[25] /* (set! main#target-repo ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2434,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7816,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_retrieve2(lf[4],C_text("main#binary-version")); /* ##sys#fixnum->string */ t6=C_fast_retrieve(lf[436]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=C_retrieve2(lf[4],C_text("main#binary-version")); av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in ... */ static void C_ccall f_2434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2434,2,av);} a=C_alloc(3); t2=C_mutate(&lf[26] /* (set! main#target-run-repo ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2503,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:120: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[162]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[434]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in ... */ static void C_ccall f_2503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2503,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2506,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_2506(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7806,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:121: chicken.platform#system-cache-directory */ t4=C_fast_retrieve(lf[433]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in ... */ static void C_ccall f_2506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_2506,2,av);} a=C_alloc(8); t2=C_mutate(&lf[27] /* (set! main#cons* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2941,tmp=(C_word)a,a+=2,tmp)); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3788,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_MORE_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* main#cons* in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in ... */ static void C_fcall f_2941(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_2941,3,t1,t2,t3);} a=C_alloc(5); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2947,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_2947(t7,t1,t2,t3);} /* loop in main#cons* in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in ... */ static void C_fcall f_2947(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_2947,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2961,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t3); t6=t3; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:95: loop */ t9=t4; t10=t5; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* k2959 in loop in main#cons* in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in ... */ static void C_ccall f_2961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2961,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in loop in k7057 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_fcall f_3003(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3003,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3016,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:106: test */ t5=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}} /* k3014 in loop in loop in k7057 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_3016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3016,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:107: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3003(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3030,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:109: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_3003(t7,t4,t6);}} /* k3028 in k3014 in loop in loop in k7057 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in ... */ static void C_ccall f_3030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3030,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k7057 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_fcall f_3078(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){ C_save_and_reclaim_args((void *)trf_3078,3,t0,t1,t2);} a=C_alloc(17); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3092,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3105,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=t4; t10=((C_word*)t0)[3]; t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3003,a[2]=t12,a[3]=t10,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_3003(t14,t8,t6);}} /* k3090 in loop in k7057 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_3092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3092,2,av);} a=C_alloc(3); t2=C_i_equalp(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?((C_word*)t0)[4]:C_a_i_cons(&a,2,((C_word*)t0)[5],t1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3103 in loop in k7057 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_3105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3105,2,av);} /* mini-srfi-1.scm:123: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3078(t2,((C_word*)t0)[3],t1);} /* foldr457 in foldl563 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_fcall f_3126(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_3126,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3134,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3155,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g462 in foldr457 in foldl563 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_fcall f_3134(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3134,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3141,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:131: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k3139 in g462 in foldr457 in foldl563 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_3141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3141,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3153 in foldr457 in foldl563 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_3155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3155,2,av);} /* mini-srfi-1.scm:131: g462 */ t2=((C_word*)t0)[2]; f_3134(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* foldr475 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_fcall f_3170(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_3170,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3178,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3204,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g480 in foldr475 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_fcall f_3178(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3178,4,t0,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3182,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:135: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k3180 in g480 in foldr475 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_3182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3182,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3186,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* mini-srfi-1.scm:135: g490 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* mini-srfi-1.scm:135: g490 */ f_3186(C_a_i(&a,3),t2,t1) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g490 in k3180 in g480 in foldr475 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static C_word C_fcall f_3186(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));} /* k3202 in foldr475 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_3204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3204,2,av);} /* mini-srfi-1.scm:134: g480 */ t2=((C_word*)t0)[2]; f_3178(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in k4557 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static C_word C_fcall f_3283(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} t2=C_i_cdr(t1); if(C_truep(C_i_nullp(t2))){ t3=t1; t4=C_u_i_car(t3); return(t4);} else{ t3=t1; t4=C_u_i_cdr(t3); t6=t4; t1=t6; goto loop;}} /* foldl563 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_fcall f_3383(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_3383,4,t0,t1,t2,t3);} a=C_alloc(14); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3416,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(0)); t8=t3; t9=t7; t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3405,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=t10; t12=C_i_check_list_2(t8,lf[392]); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3126,a[2]=t11,a[3]=t14,tmp=(C_word)a,a+=4,tmp)); t16=((C_word*)t14)[1]; f_3126(t16,t6,t8);} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a3404 in foldl563 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_3405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3405,3,av);} t3=C_i_memq(t2,((C_word*)t0)[2]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3414 in foldl563 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_3416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3416,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_3383(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in ... */ static void C_ccall f_3788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3788,2,av);} a=C_alloc(3); t2=C_mutate(&lf[21] /* (set! main#host-libs ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7795,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:67: chicken.platform#software-version */ t4=C_fast_retrieve(lf[247]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in ... */ static void C_ccall f_3814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_3814,2,av);} a=C_alloc(5); t2=C_mutate(&lf[36] /* (set! main#elf ...) */,C_u_i_memq(t1,lf[37])); t3=C_mutate(&lf[38] /* (set! main#stop ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3817,tmp=(C_word)a,a+=2,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3844,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:79: chicken.process-context#command-line-arguments */ t5=C_fast_retrieve(lf[430]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* main#stop in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in ... */ static void C_fcall f_3817(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_3817,3,t1,t2,t3);} a=C_alloc(13); t4=*((C_word*)lf[39]+1); t5=*((C_word*)lf[39]+1); t6=C_i_check_port_2(*((C_word*)lf[39]+1),C_fix(2),C_SCHEME_TRUE,lf[40]); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3824,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3840,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* ##sys#peek-c-string */ t9=*((C_word*)lf[46]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t8; av2[2]=C_mpointer(&a,(void*)C_CSC_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k3822 in main#stop in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in ... */ static void C_ccall f_3824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3824,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3827,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csc.scm:76: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[45]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3825 in k3822 in main#stop in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in ... */ static void C_ccall f_3827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_3827,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3830,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[43]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; C_apply(6,av2);}} /* k3828 in k3825 in k3822 in main#stop in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in ... */ static void C_ccall f_3830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3830,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3833,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:76: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[42]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[42]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k3831 in k3828 in k3825 in k3822 in main#stop in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in ... */ static void C_ccall f_3833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3833,2,av);} /* csc.scm:77: chicken.base#exit */ t2=C_fast_retrieve(lf[41]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(64); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3838 in main#stop in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in ... */ static void C_ccall f_3840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3840,2,av);} /* csc.scm:76: ##sys#print */ t2=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in ... */ static void C_ccall f_3844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3844,2,av);} a=C_alloc(3); t2=C_mutate(&lf[47] /* (set! main#arguments ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3848,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:80: chicken.platform#feature? */ t4=C_fast_retrieve(lf[428]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[429]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in ... */ static void C_ccall f_3848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_3848,2,av);} a=C_alloc(16); t2=lf[3] /* main#cross-chicken */ =t1;; t3=C_i_not(C_retrieve2(lf[3],C_text("main#cross-chicken"))); t4=(C_truep(t3)?t3:C_i_member(lf[48],C_retrieve2(lf[47],C_text("main#arguments")))); t5=C_mutate(&lf[49] /* (set! main#host-mode ...) */,t4); t6=C_mutate(&lf[50] /* (set! main#quotewrap ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3866,tmp=(C_word)a,a+=2,tmp)); t7=C_mutate(&lf[54] /* (set! main#quotewrap-no-slash-trans ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3880,tmp=(C_word)a,a+=2,tmp)); t8=(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))?C_retrieve2(lf[20],C_text("main#host-sharedir")):C_retrieve2(lf[14],C_text("main#default-sharedir"))); t9=C_mutate(&lf[55] /* (set! main#home ...) */,t8); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3896,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7772,a[2]=t10,tmp=(C_word)a,a+=3,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7776,a[2]=t11,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t13=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t13; av2[1]=t12; av2[2]=C_mpointer(&a,(void*)C_CHICKEN_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} /* main#quotewrap in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in ... */ static void C_ccall f_3866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3866,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3874,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3878,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* csc.scm:89: chicken.pathname#normalize-pathname */ t5=C_fast_retrieve(lf[53]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3872 in main#quotewrap in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in ... */ static void C_ccall f_3874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3874,2,av);} /* csc.scm:89: chicken.process#qs */ t2=C_fast_retrieve(lf[51]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3876 in main#quotewrap in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in ... */ static void C_ccall f_3878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3878,2,av);} if(C_truep(C_mk_bool(C_WINDOWS_SHELL))){ /* csc.scm:85: chicken.string#string-translate */ t2=C_fast_retrieve(lf[52]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_make_character(92); av2[4]=C_make_character(47); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=t1; /* csc.scm:89: chicken.process#qs */ t3=C_fast_retrieve(lf[51]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* main#quotewrap-no-slash-trans in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in ... */ static void C_ccall f_3880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3880,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3888,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csc.scm:92: chicken.pathname#normalize-pathname */ t4=C_fast_retrieve(lf[53]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3886 in main#quotewrap-no-slash-trans in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in ... */ static void C_ccall f_3888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3888,2,av);} /* csc.scm:92: chicken.process#qs */ t2=C_fast_retrieve(lf[51]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in ... */ static void C_ccall f_3896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3896,2,av);} a=C_alloc(3); t2=C_mutate(&lf[56] /* (set! main#translator ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3900,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ t4=C_retrieve2(lf[23],C_text("main#host-cc")); t5=C_retrieve2(lf[23],C_text("main#host-cc")); /* csc.scm:100: quotewrap */ t6=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=C_retrieve2(lf[23],C_text("main#host-cc")); f_3866(3,av2);}} else{ t4=C_retrieve2(lf[6],C_text("main#default-cc")); t5=C_retrieve2(lf[6],C_text("main#default-cc")); /* csc.scm:100: quotewrap */ t6=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=C_retrieve2(lf[6],C_text("main#default-cc")); f_3866(3,av2);}}} /* k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in ... */ static void C_ccall f_3900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3900,2,av);} a=C_alloc(3); t2=C_mutate(&lf[57] /* (set! main#compiler ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3904,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ t4=C_retrieve2(lf[24],C_text("main#host-cxx")); t5=C_retrieve2(lf[24],C_text("main#host-cxx")); /* csc.scm:101: quotewrap */ t6=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=C_retrieve2(lf[24],C_text("main#host-cxx")); f_3866(3,av2);}} else{ t4=C_retrieve2(lf[7],C_text("main#default-cxx")); t5=C_retrieve2(lf[7],C_text("main#default-cxx")); /* csc.scm:101: quotewrap */ t6=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=C_retrieve2(lf[7],C_text("main#default-cxx")); f_3866(3,av2);}}} /* k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in ... */ static void C_ccall f_3904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3904,2,av);} a=C_alloc(9); t2=C_mutate(&lf[58] /* (set! main#c++-compiler ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3908,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7754,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ /* ##sys#peek-c-string */ t5=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_RC_COMPILER); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t5=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_TARGET_RC_COMPILER); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in ... */ static void C_ccall f_3908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3908,2,av);} a=C_alloc(3); t2=C_mutate(&lf[59] /* (set! main#rc-compiler ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3912,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ t4=C_retrieve2(lf[23],C_text("main#host-cc")); t5=C_retrieve2(lf[23],C_text("main#host-cc")); /* csc.scm:103: quotewrap */ t6=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=C_retrieve2(lf[23],C_text("main#host-cc")); f_3866(3,av2);}} else{ t4=C_retrieve2(lf[6],C_text("main#default-cc")); t5=C_retrieve2(lf[6],C_text("main#default-cc")); /* csc.scm:103: quotewrap */ t6=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=C_retrieve2(lf[6],C_text("main#default-cc")); f_3866(3,av2);}}} /* k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in ... */ static void C_ccall f_3912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3912,2,av);} a=C_alloc(3); t2=C_mutate(&lf[60] /* (set! main#linker ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3916,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ t4=C_retrieve2(lf[24],C_text("main#host-cxx")); t5=C_retrieve2(lf[24],C_text("main#host-cxx")); /* csc.scm:104: quotewrap */ t6=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=C_retrieve2(lf[24],C_text("main#host-cxx")); f_3866(3,av2);}} else{ t4=C_retrieve2(lf[7],C_text("main#default-cxx")); t5=C_retrieve2(lf[7],C_text("main#default-cxx")); /* csc.scm:104: quotewrap */ t6=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=C_retrieve2(lf[7],C_text("main#default-cxx")); f_3866(3,av2);}}} /* k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in ... */ static void C_ccall f_3916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3916,2,av);} a=C_alloc(3); t2=C_mutate(&lf[61] /* (set! main#c++-linker ...) */,t1); t3=(C_truep(C_retrieve2(lf[29],C_text("main#mingw")))?lf[62]:lf[63]); t4=C_mutate(&lf[64] /* (set! main#object-extension ...) */,t3); t5=C_mutate(&lf[65] /* (set! main#library-extension ...) */,lf[66]); t6=C_mutate(&lf[67] /* (set! main#executable-extension ...) */,lf[68]); t7=C_mutate(&lf[69] /* (set! main#shared-library-extension ...) */,C_fast_retrieve(lf[70])); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3929,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:111: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[186]+1); av2[1]=t8; av2[2]=lf[427]; av2[3]=C_retrieve2(lf[64],C_text("main#object-extension")); tp(4,av2);}} /* k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in ... */ static void C_ccall f_3929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3929,2,av);} a=C_alloc(3); t2=C_mutate(&lf[71] /* (set! main#static-object-extension ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3933,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:112: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[186]+1); av2[1]=t3; av2[2]=lf[426]; av2[3]=C_retrieve2(lf[65],C_text("main#library-extension")); tp(4,av2);}} /* k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in ... */ static void C_ccall f_3933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3933,2,av);} a=C_alloc(3); t2=C_mutate(&lf[72] /* (set! main#static-library-extension ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3938,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_retrieve2(lf[29],C_text("main#mingw")); if(C_truep(C_retrieve2(lf[29],C_text("main#mingw")))){ t5=C_retrieve2(lf[29],C_text("main#mingw")); t6=t3; f_3938(t6,(C_truep(C_retrieve2(lf[29],C_text("main#mingw")))?lf[424]:lf[425]));} else{ t5=C_retrieve2(lf[33],C_text("main#cygwin")); t6=t3; f_3938(t6,(C_truep(C_retrieve2(lf[33],C_text("main#cygwin")))?lf[424]:lf[425]));}} /* k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in ... */ static void C_fcall f_3938(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3938,2,t0,t1);} a=C_alloc(5); t2=C_mutate(&lf[73] /* (set! main#pic-options ...) */,t1); t3=lf[74] /* main#generate-manifest */ =C_SCHEME_FALSE;; t4=C_mutate(&lf[75] /* (set! main#libchicken ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3941,tmp=(C_word)a,a+=2,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3988,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ t6=C_retrieve2(lf[22],C_text("main#host-cflags")); t7=C_retrieve2(lf[22],C_text("main#host-cflags")); /* csc.scm:132: chicken.string#string-split */ t8=C_fast_retrieve(lf[240]);{ C_word av2[3]; av2[0]=t8; av2[1]=t5; av2[2]=C_retrieve2(lf[22],C_text("main#host-cflags")); ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t6=C_retrieve2(lf[8],C_text("main#default-cflags")); t7=C_retrieve2(lf[8],C_text("main#default-cflags")); /* csc.scm:132: chicken.string#string-split */ t8=C_fast_retrieve(lf[240]);{ C_word av2[3]; av2[0]=t8; av2[1]=t5; av2[2]=C_retrieve2(lf[8],C_text("main#default-cflags")); ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* main#libchicken in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in ... */ static void C_fcall f_3941(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3941,1,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3949,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_not(C_retrieve2(lf[49],C_text("main#host-mode"))))){ /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIB_NAME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t3=*((C_word*)lf[46]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_NAME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k3947 in main#libchicken in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in ... */ static void C_ccall f_3949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3949,2,av);} /* csc.scm:118: scheme#string-append */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[77]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3982 in main#linker-libraries in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_3984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3984,2,av);} /* csc.scm:129: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[106],C_text("main#library-dir")); av2[3]=t1; av2[4]=C_retrieve2(lf[65],C_text("main#library-extension")); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in ... */ static void C_ccall f_3988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3988,2,av);} a=C_alloc(9); t2=C_mutate(&lf[78] /* (set! main#default-compilation-optimization-options ...) */,t1); t3=C_mutate(&lf[79] /* (set! main#best-compilation-optimization-options ...) */,C_retrieve2(lf[78],C_text("main#default-compilation-optimization-options"))); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3993,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7729,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ /* ##sys#peek-c-string */ t6=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LDFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t6=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_TARGET_LDFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in ... */ static void C_ccall f_3993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3993,2,av);} a=C_alloc(9); t2=C_mutate(&lf[80] /* (set! main#default-linking-optimization-options ...) */,t1); t3=C_mutate(&lf[81] /* (set! main#best-linking-optimization-options ...) */,C_retrieve2(lf[80],C_text("main#default-linking-optimization-options"))); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3998,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; f_3998(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7725,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_TARGET_FEATURES); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in ... */ static void C_ccall f_3998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3998,2,av);} a=C_alloc(3); t2=C_mutate(&lf[82] /* (set! main#extra-features ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4005,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#string->list */ t4=C_fast_retrieve(lf[149]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[423]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in ... */ static void C_ccall f_4005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4005,2,av);} a=C_alloc(6); t2=C_mutate(&lf[83] /* (set! main#short-options ...) */,t1); t3=lf[84] /* main#scheme-files */ =C_SCHEME_END_OF_LIST;; t4=lf[85] /* main#c-files */ =C_SCHEME_END_OF_LIST;; t5=lf[86] /* main#rc-files */ =C_SCHEME_END_OF_LIST;; t6=lf[87] /* main#generated-c-files */ =C_SCHEME_END_OF_LIST;; t7=lf[88] /* main#generated-rc-files */ =C_SCHEME_END_OF_LIST;; t8=lf[89] /* main#object-files */ =C_SCHEME_END_OF_LIST;; t9=lf[90] /* main#generated-object-files */ =C_SCHEME_END_OF_LIST;; t10=lf[91] /* main#transient-link-files */ =C_SCHEME_END_OF_LIST;; t11=lf[92] /* main#linked-extensions */ =C_SCHEME_END_OF_LIST;; t12=lf[93] /* main#cpp-mode */ =C_SCHEME_FALSE;; t13=lf[94] /* main#objc-mode */ =C_SCHEME_FALSE;; t14=lf[95] /* main#embedded */ =C_SCHEME_FALSE;; t15=lf[96] /* main#inquiry-only */ =C_SCHEME_FALSE;; t16=lf[97] /* main#show-cflags */ =C_SCHEME_FALSE;; t17=lf[98] /* main#show-ldflags */ =C_SCHEME_FALSE;; t18=lf[99] /* main#show-libs */ =C_SCHEME_FALSE;; t19=lf[100] /* main#dry-run */ =C_SCHEME_FALSE;; t20=lf[101] /* main#gui */ =C_SCHEME_FALSE;; t21=lf[102] /* main#deployed */ =C_SCHEME_FALSE;; t22=lf[103] /* main#rpath */ =C_SCHEME_FALSE;; t23=lf[104] /* main#ignore-repository */ =C_SCHEME_FALSE;; t24=lf[105] /* main#show-debugging-help */ =C_SCHEME_FALSE;; t25=(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))?C_retrieve2(lf[17],C_text("main#host-libdir")):C_retrieve2(lf[10],C_text("main#default-libdir"))); t26=C_mutate(&lf[106] /* (set! main#library-dir ...) */,t25); t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4035,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ /* ##sys#peek-c-string */ t28=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t28; av2[1]=t27; av2[2]=C_mpointer(&a,(void*)C_INSTALL_MORE_STATIC_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t28+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t28=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t28; av2[1]=t27; av2[2]=C_mpointer(&a,(void*)C_TARGET_MORE_STATIC_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t28+1)))(4,av2);}}} /* k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in ... */ static void C_ccall f_4035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4035,2,av);} a=C_alloc(9); t2=C_mutate(&lf[107] /* (set! main#extra-libraries ...) */,t1); t3=(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))?C_retrieve2(lf[21],C_text("main#host-libs")):C_retrieve2(lf[9],C_text("main#default-libs"))); t4=C_mutate(&lf[108] /* (set! main#extra-shared-libraries ...) */,t3); t5=lf[109] /* main#translate-options */ =C_SCHEME_END_OF_LIST;; t6=(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))?C_retrieve2(lf[19],C_text("main#host-incdir")):C_retrieve2(lf[12],C_text("main#default-incdir"))); t7=C_i_member(t6,lf[110]); t8=C_i_not(t7); t9=(C_truep(t8)?t6:C_SCHEME_FALSE); t10=C_mutate(&lf[111] /* (set! main#include-dir ...) */,t9); t11=lf[112] /* main#compile-options */ =C_SCHEME_END_OF_LIST;; t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4088,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7595,a[2]=t12,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[111],C_text("main#include-dir")))){ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7705,a[2]=t13,tmp=(C_word)a,a+=3,tmp); /* csc.scm:245: chicken.string#conc */ t15=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=t14; av2[2]=lf[422]; av2[3]=C_retrieve2(lf[111],C_text("main#include-dir")); ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t14=t13; f_7595(t14,C_SCHEME_END_OF_LIST);}} /* k4047 in main#linker-libraries in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_4049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4049,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4051 in main#linker-libraries in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_4053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4053,2,av);} /* csc.scm:229: scheme#string-append */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[140]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4067 in main#linker-libraries in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_4069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4069,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in ... */ static void C_ccall f_4088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,c,4)))){ C_save_and_reclaim((void *)f_4088,2,av);} a=C_alloc(30); t2=C_mutate(&lf[113] /* (set! main#builtin-compile-options ...) */,t1); t3=lf[114] /* main#translation-optimization-options */ =C_SCHEME_END_OF_LIST;; t4=C_mutate(&lf[115] /* (set! main#compilation-optimization-options ...) */,C_retrieve2(lf[78],C_text("main#default-compilation-optimization-options"))); t5=C_mutate(&lf[116] /* (set! main#linking-optimization-options ...) */,C_retrieve2(lf[80],C_text("main#default-linking-optimization-options"))); t6=lf[117] /* main#link-options */ =C_SCHEME_END_OF_LIST;; t7=lf[118] /* main#target-filename */ =C_SCHEME_FALSE;; t8=lf[119] /* main#verbose */ =C_SCHEME_FALSE;; t9=lf[120] /* main#keep-files */ =C_SCHEME_FALSE;; t10=lf[121] /* main#translate-only */ =C_SCHEME_FALSE;; t11=lf[122] /* main#compile-only */ =C_SCHEME_FALSE;; t12=lf[123] /* main#to-stdout */ =C_SCHEME_FALSE;; t13=lf[124] /* main#shared */ =C_SCHEME_FALSE;; t14=lf[125] /* main#static */ =C_SCHEME_FALSE;; t15=C_mutate(&lf[126] /* (set! main#repo-path ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4226,tmp=(C_word)a,a+=2,tmp)); t16=C_mutate(&lf[128] /* (set! main#find-object-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4238,tmp=(C_word)a,a+=2,tmp)); t17=C_mutate(&lf[133] /* (set! main#compiler-options ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6683,tmp=(C_word)a,a+=2,tmp)); t18=C_mutate(&lf[138] /* (set! main#linker-options ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7170,tmp=(C_word)a,a+=2,tmp)); t19=C_mutate(&lf[139] /* (set! main#linker-libraries ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7223,tmp=(C_word)a,a+=2,tmp)); t20=C_mutate(&lf[141] /* (set! main#constant1663 ...) */,lf[142]); t21=C_mutate(&lf[143] /* (set! main#string-any ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7321,tmp=(C_word)a,a+=2,tmp)); t22=C_mutate(&lf[134] /* (set! main#quote-option ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7355,tmp=(C_word)a,a+=2,tmp)); t23=lf[150] /* main#last-exit-code */ =C_SCHEME_FALSE;; t24=C_mutate(&lf[151] /* (set! main#command ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7467,tmp=(C_word)a,a+=2,tmp)); t25=C_mutate(&lf[164] /* (set! main#$delete-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7480,tmp=(C_word)a,a+=2,tmp)); t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7570,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7580,a[2]=t26,tmp=(C_word)a,a+=3,tmp); t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7584,a[2]=t27,tmp=(C_word)a,a+=3,tmp); t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7588,a[2]=t28,tmp=(C_word)a,a+=3,tmp); /* csc.scm:1138: chicken.process-context#get-environment-variable */ t30=C_fast_retrieve(lf[162]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t30; av2[1]=t29; av2[2]=lf[418]; ((C_proc)(void*)(*((C_word*)t30+1)))(3,av2);}} /* k4101 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_fcall f_4103(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_4103,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4107,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[102],C_text("main#deployed")))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4177,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:273: chicken.platform#software-version */ t5=C_fast_retrieve(lf[247]);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3; f_4107(t4,C_SCHEME_END_OF_LIST);}} /* k4105 in k4101 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_fcall f_4107(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_4107,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4111,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csc.scm:276: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[162]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[242]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4109 in k4105 in k4101 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_4111,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4114,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=t2; t4=t1; t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4127,a[2]=t7,a[3]=t8,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* csc.scm:278: chicken.string#string-split */ t10=C_fast_retrieve(lf[240]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=t4; av2[3]=lf[241]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ /* csc.scm:259: scheme#append */ t3=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k4112 in k4109 in k4105 in k4101 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_4114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4114,2,av);} /* csc.scm:259: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4125 in k4109 in k4105 in k4101 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_4127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4127,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4132,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_4132(t5,((C_word*)t0)[4],t1);} /* map-loop941 in k4125 in k4109 in k4105 in k4101 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_fcall f_4132(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_4132,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4157,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:278: g964 */ t5=*((C_word*)lf[76]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[239]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4155 in map-loop941 in k4125 in k4109 in k4105 in k4101 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_4157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4157,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4132(t6,((C_word*)t0)[5],t5);} /* k4175 in k4101 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4177,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_4107(t2,(C_truep((C_truep(C_eqp(t1,lf[243]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[244]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[245]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))?C_a_i_list1(&a,1,lf[246]):C_SCHEME_END_OF_LIST));} /* k4183 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_4185,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4189,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4193,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[102],C_text("main#deployed")))){ /* csc.scm:263: chicken.string#conc */ t5=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=lf[249]; av2[3]=lf[250]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ t5=C_retrieve2(lf[17],C_text("main#host-libdir")); t6=C_retrieve2(lf[17],C_text("main#host-libdir")); /* csc.scm:263: chicken.string#conc */ t7=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=lf[249]; av2[3]=C_retrieve2(lf[17],C_text("main#host-libdir")); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t5=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_TARGET_RUN_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k4187 in k4183 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4189,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; f_4103(t2,C_a_i_list2(&a,2,((C_word*)t0)[3],t1));} /* k4191 in k4183 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4193,2,av);} /* csc.scm:263: chicken.string#conc */ t2=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[249]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4207 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4209,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_4103(t2,C_a_i_list1(&a,1,t1));} /* k4214 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4216,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_4103(t2,C_a_i_list1(&a,1,t1));} /* main#repo-path in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_fcall f_4226(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_4226,1,t1);} if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ /* csc.scm:295: chicken.platform#repository-path */ t2=C_fast_retrieve(lf[127]);{ C_word av2[2]; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=t1; t3=C_SCHEME_END_OF_LIST; if(C_truep(C_i_nullp(t3))){ t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=C_retrieve2(lf[25],C_text("main#target-repo")); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t3); t5=t2;{ C_word av2[2]; av2[0]=t5; av2[1]=(C_truep(t4)?C_retrieve2(lf[26],C_text("main#target-run-repo")):C_retrieve2(lf[25],C_text("main#target-repo"))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_ccall f_4238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4238,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4242,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csc.scm:299: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=t2; av2[4]=C_retrieve2(lf[64],C_text("main#object-extension")); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4240 in main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_4242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4242,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4245,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:300: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)t0)[3]; av2[4]=C_retrieve2(lf[65],C_text("main#library-extension")); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4243 in k4240 in main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_4245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4245,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4248,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* csc.scm:302: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)t0)[4]; av2[4]=C_retrieve2(lf[72],C_text("main#static-library-extension")); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4246 in k4243 in k4240 in main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4248,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4251,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* csc.scm:303: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)t0)[5]; av2[4]=C_retrieve2(lf[71],C_text("main#static-object-extension")); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4249 in k4246 in k4243 in k4240 in main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4251,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4254,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* csc.scm:304: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[131]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4252 in k4249 in k4246 in k4243 in k4240 in main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4254,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4260,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* csc.scm:305: chicken.file#file-exists? */ t3=C_fast_retrieve(lf[131]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k4258 in k4252 in k4249 in k4246 in k4243 in k4240 in main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_4260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4260,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4266,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_eqp(C_fast_retrieve(lf[130]),C_SCHEME_TRUE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4298,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* csc.scm:307: chicken.file#file-exists? */ t5=C_fast_retrieve(lf[131]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_4266(2,av2);}}}} /* k4264 in k4258 in k4252 in k4249 in k4246 in k4243 in k4240 in main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_ccall f_4266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4266,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_not(C_retrieve2(lf[104],C_text("main#ignore-repository"))))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4278,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4292,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csc.scm:310: repo-path */ f_4226(t3);} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} /* k4276 in k4264 in k4258 in k4252 in k4249 in k4246 in k4243 in k4240 in main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_4278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4278,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4288,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:311: repo-path */ f_4226(t2);}} /* k4286 in k4276 in k4264 in k4258 in k4252 in k4249 in k4246 in k4243 in k4240 in main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_4288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4288,2,av);} /* csc.scm:311: chicken.load#find-file */ t2=C_fast_retrieve(lf[129]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4290 in k4264 in k4258 in k4252 in k4249 in k4246 in k4243 in k4240 in main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_4292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4292,2,av);} /* csc.scm:310: chicken.load#find-file */ t2=C_fast_retrieve(lf[129]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4296 in k4258 in k4252 in k4249 in k4246 in k4243 in k4240 in main#find-object-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_ccall f_4298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4298,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_4266(2,av2);}} else{ /* csc.scm:308: chicken.file#file-exists? */ t2=C_fast_retrieve(lf[131]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k4308 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_4310,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4317,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_cons(&a,2,lf[257],C_SCHEME_END_OF_LIST); t4=C_a_i_cons(&a,2,t1,t3); t5=C_a_i_cons(&a,2,lf[258],t4); t6=C_a_i_cons(&a,2,t1,t5); t7=C_a_i_cons(&a,2,lf[259],t6); t8=C_a_i_cons(&a,2,t1,t7); t9=C_a_i_cons(&a,2,lf[260],t8); /* csc.scm:28: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[214]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[214]+1); av2[1]=t2; av2[2]=t9; tp(3,av2);}} /* k4315 in k4308 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4317,2,av);} /* csc.scm:318: chicken.base#print */ t2=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* t-options in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_fcall f_4350(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_4350,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4355,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csc.scm:530: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[109],C_text("main#translate-options")); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k4353 in t-options in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_4355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4355,2,av);} t2=C_mutate(&lf[109] /* (set! main#translate-options ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* check in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_fcall f_4357(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_4357,4,t1,t2,t3,t4);} a=C_alloc(3); t5=C_i_length(t3); if(C_truep(C_i_nullp(t4))){ if(C_truep(C_i_greater_or_equalp(t5,C_fix(1)))){ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* csc.scm:534: stop */ f_3817(t1,lf[168],C_a_i_list(&a,1,t2));}} else{ t6=C_i_car(t4); if(C_truep(C_i_greater_or_equalp(t5,t6))){ t7=C_SCHEME_UNDEFINED; t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* csc.scm:534: stop */ f_3817(t1,lf[168],C_a_i_list(&a,1,t2));}}} /* shared-build in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_fcall f_4383(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_4383,2,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4388,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csc.scm:537: cons* */ f_2941(t3,lf[173],C_a_i_list(&a,2,lf[174],C_retrieve2(lf[109],C_text("main#translate-options"))));} /* k4386 in shared-build in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_4388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4388,2,av);} a=C_alloc(4); t2=C_mutate(&lf[109] /* (set! main#translate-options ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4392,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:538: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[73],C_text("main#pic-options")); av2[3]=lf[172]; av2[4]=C_retrieve2(lf[112],C_text("main#compile-options")); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4390 in k4386 in shared-build in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4392,2,av);} a=C_alloc(3); t2=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4396,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[31],C_text("main#osx")))){ if(C_truep(((C_word*)t0)[3])){ /* csc.scm:540: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[169]; av2[3]=C_retrieve2(lf[117],C_text("main#link-options")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* csc.scm:540: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[170]; av2[3]=C_retrieve2(lf[117],C_text("main#link-options")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} else{ /* csc.scm:540: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[171]; av2[3]=C_retrieve2(lf[117],C_text("main#link-options")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k4394 in k4390 in k4386 in shared-build in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4396,2,av);} t2=C_mutate(&lf[117] /* (set! main#link-options ...) */,t1); t3=lf[124] /* main#shared */ =C_SCHEME_TRUE;; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* generate-target-filename in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_fcall f_4413(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_4413,2,t1,t2);} if(C_truep(C_retrieve2(lf[124],C_text("main#shared")))){ t3=C_retrieve2(lf[69],C_text("main#shared-library-extension")); t4=C_retrieve2(lf[69],C_text("main#shared-library-extension")); /* csc.scm:550: chicken.pathname#pathname-replace-extension */ t5=C_fast_retrieve(lf[175]);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=C_retrieve2(lf[69],C_text("main#shared-library-extension")); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ if(C_truep(C_retrieve2(lf[122],C_text("main#compile-only")))){ t3=C_retrieve2(lf[64],C_text("main#object-extension")); t4=C_retrieve2(lf[64],C_text("main#object-extension")); /* csc.scm:550: chicken.pathname#pathname-replace-extension */ t5=C_fast_retrieve(lf[175]);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=C_retrieve2(lf[64],C_text("main#object-extension")); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=C_retrieve2(lf[67],C_text("main#executable-extension")); t4=C_retrieve2(lf[67],C_text("main#executable-extension")); /* csc.scm:550: chicken.pathname#pathname-replace-extension */ t5=C_fast_retrieve(lf[175]);{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=C_retrieve2(lf[67],C_text("main#executable-extension")); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_fcall f_4429(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_4429,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4440,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csc.scm:559: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[112],C_text("main#compile-options")); av2[3]=C_retrieve2(lf[113],C_text("main#builtin-compile-options")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4677,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t7,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t4,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); /* csc.scm:607: scheme#string->symbol */ t9=*((C_word*)lf[416]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_4440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4440,2,av);} a=C_alloc(13); t2=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4444,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4670,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4103,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[36],C_text("main#elf")))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4185,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* csc.scm:262: chicken.string#conc */ t8=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[251]; av2[3]=C_retrieve2(lf[106],C_text("main#library-dir")); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ if(C_truep(C_retrieve2(lf[35],C_text("main#aix")))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4209,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* csc.scm:270: chicken.string#conc */ t8=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=lf[252]; av2[3]=C_retrieve2(lf[106],C_text("main#library-dir")); av2[4]=lf[253]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4216,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* csc.scm:272: chicken.string#conc */ t8=C_fast_retrieve(lf[248]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[254]; av2[3]=C_retrieve2(lf[106],C_text("main#library-dir")); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}} /* k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_4444,2,av);} a=C_alloc(10); t2=C_mutate(&lf[117] /* (set! main#link-options ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[96],C_text("main#inquiry-only")))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4633,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[97],C_text("main#show-cflags")))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4666,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:563: compiler-options */ f_6683(t5);} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_4633(2,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_4447(2,av2);}}} /* k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_4447,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4450,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(C_retrieve2(lf[84],C_text("main#scheme-files"))))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4559,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_i_nullp(C_retrieve2(lf[85],C_text("main#c-files"))); t5=(C_truep(t4)?C_i_nullp(C_retrieve2(lf[89],C_text("main#object-files"))):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4583,a[2]=t3,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[105],C_text("main#show-debugging-help")))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4593,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4597,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* csc.scm:574: cons* */ f_2941(t8,C_retrieve2(lf[56],C_text("main#translator")),C_a_i_list(&a,2,lf[221],C_retrieve2(lf[109],C_text("main#translate-options"))));} else{ /* csc.scm:575: stop */ f_3817(t3,lf[220],C_SCHEME_END_OF_LIST);}} else{ t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_4559(2,av2);}}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4606,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(C_truep(C_retrieve2(lf[124],C_text("main#shared")))?C_i_not(C_retrieve2(lf[95],C_text("main#embedded"))):C_SCHEME_FALSE); if(C_truep(t4)){ t5=C_a_i_cons(&a,2,lf[236],C_retrieve2(lf[109],C_text("main#translate-options"))); t6=C_mutate(&lf[109] /* (set! main#translate-options ...) */,t5); t7=t3; f_4606(t7,t6);} else{ t5=t3; f_4606(t5,C_SCHEME_UNDEFINED);}}} /* k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_4450,2,av);} a=C_alloc(18); if(C_truep(C_retrieve2(lf[121],C_text("main#translate-only")))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4456,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=t2; t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6411,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_retrieve2(lf[85],C_text("main#c-files")); t8=C_i_check_list_2(C_retrieve2(lf[85],C_text("main#c-files")),lf[176]); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6497,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6660,a[2]=t11,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t13=((C_word*)t11)[1]; f_6660(t13,t9,C_retrieve2(lf[85],C_text("main#c-files")));}} /* k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_4456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_4456,2,av);} a=C_alloc(15); if(C_truep(C_retrieve2(lf[122],C_text("main#compile-only")))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4462,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_pairp(C_retrieve2(lf[92],C_text("main#linked-extensions"))))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4549,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4553,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_retrieve2(lf[128],C_text("main#find-object-file")); t6=C_retrieve2(lf[92],C_text("main#linked-extensions")); t7=C_retrieve2(lf[92],C_text("main#linked-extensions")); t8=C_i_noop2(C_retrieve2(lf[92],C_text("main#linked-extensions")),C_SCHEME_UNDEFINED); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3170,a[2]=t5,a[3]=t10,tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_3170(t12,t4,C_retrieve2(lf[92],C_text("main#linked-extensions")));} else{ t3=t2; f_4462(t3,C_SCHEME_UNDEFINED);}}} /* k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_fcall f_4462(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_4462,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4465,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_member(C_retrieve2(lf[118],C_text("main#target-filename")),C_retrieve2(lf[84],C_text("main#scheme-files"))))){ t3=*((C_word*)lf[39]+1); t4=*((C_word*)lf[39]+1); t5=C_i_check_port_2(*((C_word*)lf[39]+1),C_fix(2),C_SCHEME_TRUE,lf[40]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4477,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* csc.scm:594: ##sys#print */ t7=*((C_word*)lf[44]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=lf[204]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[39]+1); ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4465(2,av2);}}} /* k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_4465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_4465,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6741,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_retrieve2(lf[89],C_text("main#object-files")); t5=C_retrieve2(lf[90],C_text("main#generated-object-files")); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7045,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_7045(t9,t3,C_retrieve2(lf[89],C_text("main#object-files")),C_retrieve2(lf[89],C_text("main#object-files")));} /* k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_4477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4477,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4480,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:594: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[118],C_text("main#target-filename")); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_4480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4480,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4483,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:594: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[203]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_4483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4483,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4486,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:594: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[118],C_text("main#target-filename")); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_4486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4486,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4489,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:594: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[202]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_4489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4489,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4492,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:594: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[42]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[42]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_4492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4492,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4499,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:598: chicken.base#open-output-string */ t3=C_fast_retrieve(lf[181]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in ... */ static void C_ccall f_4499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4499,2,av);} a=C_alloc(5); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[177]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4505,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_mk_bool(C_WINDOWS_SHELL))){ /* csc.scm:598: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[200]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* csc.scm:598: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[201]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k4503 in k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in ... */ static void C_ccall f_4505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4505,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4508,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csc.scm:598: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[42]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[42]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4506 in k4503 in k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in ... */ static void C_ccall f_4508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_4508,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4511,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_mk_bool(C_WINDOWS_SHELL))){ t3=C_retrieve2(lf[54],C_text("main#quotewrap-no-slash-trans")); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f8590,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=t4; t6=C_retrieve2(lf[118],C_text("main#target-filename")); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8662,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* csc.scm:92: chicken.pathname#normalize-pathname */ t8=C_fast_retrieve(lf[53]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=C_retrieve2(lf[118],C_text("main#target-filename")); ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=C_retrieve2(lf[50],C_text("main#quotewrap")); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f8594,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csc.scm:598: g1071 */ t5=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[118],C_text("main#target-filename")); f_3866(3,av2);}}} /* k4509 in k4506 in k4503 in k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in ... */ static void C_ccall f_4511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4511,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csc.scm:598: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[42]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[42]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4512 in k4509 in k4506 in k4503 in k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in ... */ static void C_ccall f_4514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_4514,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4517,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(C_truep(C_mk_bool(C_WINDOWS_SHELL))?C_retrieve2(lf[54],C_text("main#quotewrap-no-slash-trans")):C_retrieve2(lf[50],C_text("main#quotewrap"))); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4527,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4531,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* csc.scm:602: scheme#string-append */ t7=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=C_retrieve2(lf[118],C_text("main#target-filename")); av2[3]=lf[199]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k4515 in k4512 in k4509 in k4506 in k4503 in k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in ... */ static void C_ccall f_4517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4517,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4520,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:598: chicken.base#get-output-string */ t3=C_fast_retrieve(lf[178]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4518 in k4515 in k4512 in k4509 in k4506 in k4503 in k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in ... */ static void C_ccall f_4520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4520,2,av);} /* csc.scm:597: command */ f_7467(((C_word*)t0)[2],t1);} /* k4525 in k4512 in k4509 in k4506 in k4503 in k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in ... */ static void C_ccall f_4527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4527,2,av);} /* csc.scm:598: ##sys#print */ t2=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4529 in k4512 in k4509 in k4506 in k4503 in k4497 in k4490 in k4487 in k4484 in k4481 in k4478 in k4475 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in ... */ static void C_ccall f_4531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4531,2,av);} /* csc.scm:598: g1073 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4547 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_ccall f_4549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4549,2,av);} t2=C_mutate(&lf[89] /* (set! main#object-files ...) */,t1); t3=((C_word*)t0)[2]; f_4462(t3,t2);} /* k4551 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_ccall f_4553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4553,2,av);} /* csc.scm:592: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_retrieve2(lf[89],C_text("main#object-files")); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4557 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4559,2,av);} a=C_alloc(5); if(C_truep(C_retrieve2(lf[118],C_text("main#target-filename")))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_4450(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4566,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_nullp(C_retrieve2(lf[85],C_text("main#c-files"))); t4=(C_truep(t3)?C_retrieve2(lf[89],C_text("main#object-files")):C_retrieve2(lf[85],C_text("main#c-files"))); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3283,tmp=(C_word)a,a+=2,tmp); t6=( f_3283(t4) ); /* csc.scm:578: generate-target-filename */ f_4413(t2,t6);}} /* k4564 in k4557 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_4566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4566,2,av);} t2=C_mutate(&lf[118] /* (set! main#target-filename ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_4450(2,av2);}} /* k4581 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4583,2,av);} /* csc.scm:575: stop */ f_3817(((C_word*)t0)[2],lf[220],C_SCHEME_END_OF_LIST);} /* k4591 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4593,2,av);} /* csc.scm:572: command */ f_7467(((C_word*)t0)[2],t1);} /* k4595 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4597,2,av);} /* csc.scm:573: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[136]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_fcall f_4606(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4606,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4609,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[118],C_text("main#target-filename")))){ t3=t2; f_4609(t3,C_SCHEME_UNDEFINED);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4616,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_retrieve2(lf[84],C_text("main#scheme-files")); t5=C_i_car(C_retrieve2(lf[84],C_text("main#scheme-files"))); /* csc.scm:585: generate-target-filename */ f_4413(t3,t5);}} /* k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_fcall f_4609(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4609,2,t0,t1);} a=C_alloc(5); t2=C_retrieve2(lf[84],C_text("main#scheme-files")); t3=C_i_check_list_2(C_retrieve2(lf[84],C_text("main#scheme-files")),lf[176]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6386,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_6386(t7,((C_word*)t0)[2],C_retrieve2(lf[84],C_text("main#scheme-files")));} /* k4614 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_4616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4616,2,av);} t2=C_mutate(&lf[118] /* (set! main#target-filename ...) */,t1); t3=((C_word*)t0)[2]; f_4609(t3,t2);} /* k4631 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4633,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4636,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[98],C_text("main#show-ldflags")))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4659,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csc.scm:564: linker-options */ f_7170(t3);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4636(2,av2);}}} /* k4634 in k4631 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4636,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4639,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[99],C_text("main#show-libs")))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4652,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csc.scm:565: linker-libraries */ f_7223(t3);} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8616,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:566: scheme#newline */ t4=*((C_word*)lf[237]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k4637 in k4634 in k4631 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_4639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4639,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4642,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:566: scheme#newline */ t3=*((C_word*)lf[237]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4640 in k4637 in k4634 in k4631 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_ccall f_4642(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4642,2,av);} /* csc.scm:567: chicken.base#exit */ t2=C_fast_retrieve(lf[41]);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4650 in k4634 in k4631 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_4652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4652,2,av);} /* csc.scm:565: chicken.base#print* */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_make_character(32); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4657 in k4631 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4659,2,av);} /* csc.scm:564: chicken.base#print* */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_make_character(32); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4664 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4666,2,av);} /* csc.scm:563: chicken.base#print* */ t2=*((C_word*)lf[238]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_make_character(32); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4668 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4670,2,av);} /* csc.scm:560: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[117],C_text("main#link-options")); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_4677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_4677,2,av);} a=C_alloc(20); t2=t1; t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4680,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_eqp(t3,lf[255]); t6=(C_truep(t5)?t5:C_eqp(t3,lf[256])); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4692,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t8=t7; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4310,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t10=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=C_mpointer(&a,(void*)C_CSC_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t7=C_eqp(t3,lf[261]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4704,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4711,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* csc.scm:613: chicken.platform#chicken-version */ t10=C_fast_retrieve(lf[262]);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t8=C_eqp(t3,lf[263]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4720,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4727,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* csc.scm:616: chicken.base#open-output-string */ t11=C_fast_retrieve(lf[181]);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t9=C_eqp(t3,lf[265]); if(C_truep(t9)){ t10=lf[93] /* main#cpp-mode */ =C_SCHEME_TRUE;; if(C_truep(C_retrieve2(lf[31],C_text("main#osx")))){ t11=C_a_i_cons(&a,2,lf[266],C_retrieve2(lf[112],C_text("main#compile-options"))); t12=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t11); /* csc.scm:847: loop */ t13=((C_word*)((C_word*)t0)[2])[1]; f_4429(t13,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ /* csc.scm:847: loop */ t11=((C_word*)((C_word*)t0)[2])[1]; f_4429(t11,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);}} else{ t10=C_eqp(t3,lf[267]); if(C_truep(t10)){ t11=lf[94] /* main#objc-mode */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t12=((C_word*)((C_word*)t0)[2])[1]; f_4429(t12,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t11=C_eqp(t3,lf[268]); if(C_truep(t11)){ t12=C_a_i_cons(&a,2,lf[269],C_retrieve2(lf[109],C_text("main#translate-options"))); t13=C_mutate(&lf[109] /* (set! main#translate-options ...) */,t12); t14=lf[125] /* main#static */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t15=((C_word*)((C_word*)t0)[2])[1]; f_4429(t15,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t12=C_eqp(t3,lf[270]); if(C_truep(t12)){ t13=lf[96] /* main#inquiry-only */ =C_SCHEME_TRUE;; t14=lf[97] /* main#show-cflags */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t15=((C_word*)((C_word*)t0)[2])[1]; f_4429(t15,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t13=C_eqp(t3,lf[271]); if(C_truep(t13)){ t14=lf[96] /* main#inquiry-only */ =C_SCHEME_TRUE;; t15=lf[98] /* main#show-ldflags */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t16=((C_word*)((C_word*)t0)[2])[1]; f_4429(t16,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t14=C_eqp(t3,lf[272]); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4799,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:632: chicken.base#print */ t16=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t16; av2[1]=t15; av2[2]=C_retrieve2(lf[57],C_text("main#compiler")); ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t15=C_eqp(t3,lf[273]); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4811,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:633: chicken.base#print */ t17=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t17; av2[1]=t16; av2[2]=C_retrieve2(lf[58],C_text("main#c++-compiler")); ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}} else{ t16=C_eqp(t3,lf[274]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4823,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:634: chicken.base#print */ t18=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t18; av2[1]=t17; av2[2]=C_retrieve2(lf[60],C_text("main#linker")); ((C_proc)(void*)(*((C_word*)t18+1)))(3,av2);}} else{ t17=C_eqp(t3,lf[275]); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4835,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:635: chicken.base#print */ t19=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t19; av2[1]=t18; av2[2]=C_retrieve2(lf[55],C_text("main#home")); ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}} else{ t18=C_eqp(t3,lf[276]); if(C_truep(t18)){ t19=lf[96] /* main#inquiry-only */ =C_SCHEME_TRUE;; t20=lf[99] /* main#show-libs */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t21=((C_word*)((C_word*)t0)[2])[1]; f_4429(t21,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t19=C_eqp(t3,lf[277]); t20=(C_truep(t19)?t19:C_eqp(t3,lf[278])); if(C_truep(t20)){ t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4858,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_numberp(C_retrieve2(lf[119],C_text("main#verbose"))))){ t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4873,a[2]=t21,tmp=(C_word)a,a+=3,tmp); /* csc.scm:641: cons* */ f_2941(t22,lf[281],C_a_i_list(&a,2,lf[282],C_retrieve2(lf[112],C_text("main#compile-options"))));} else{ t22=t21; f_4858(t22,C_SCHEME_UNDEFINED);}} else{ t21=C_eqp(t3,lf[283]); t22=(C_truep(t21)?t21:C_eqp(t3,lf[284])); if(C_truep(t22)){ t23=C_a_i_cons(&a,2,lf[285],C_retrieve2(lf[112],C_text("main#compile-options"))); t24=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t23); /* csc.scm:649: t-options */ f_4350(t4,C_a_i_list(&a,1,lf[286]));} else{ t23=C_eqp(t3,lf[287]); t24=(C_truep(t23)?t23:C_eqp(t3,lf[288])); if(C_truep(t24)){ t25=lf[121] /* main#translate-only */ =C_SCHEME_TRUE;; /* csc.scm:652: t-options */ f_4350(t4,C_a_i_list(&a,1,lf[289]));} else{ t25=C_eqp(t3,lf[290]); t26=(C_truep(t25)?t25:C_eqp(t3,lf[291])); if(C_truep(t26)){ t27=lf[121] /* main#translate-only */ =C_SCHEME_TRUE;; /* csc.scm:655: t-options */ f_4350(t4,C_a_i_list(&a,1,lf[292]));} else{ t27=C_eqp(t3,lf[293]); if(C_truep(t27)){ t28=lf[120] /* main#keep-files */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t29=((C_word*)((C_word*)t0)[2])[1]; f_4429(t29,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t28=C_eqp(t3,lf[294]); if(C_truep(t28)){ t29=lf[122] /* main#compile-only */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t30=((C_word*)((C_word*)t0)[2])[1]; f_4429(t30,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t29=C_eqp(t3,lf[295]); if(C_truep(t29)){ t30=lf[121] /* main#translate-only */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t31=((C_word*)((C_word*)t0)[2])[1]; f_4429(t31,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t30=C_eqp(t3,lf[296]); t31=(C_truep(t30)?t30:C_eqp(t3,lf[297])); if(C_truep(t31)){ t32=lf[95] /* main#embedded */ =C_SCHEME_TRUE;; t33=C_a_i_cons(&a,2,lf[298],C_retrieve2(lf[112],C_text("main#compile-options"))); t34=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t33); /* csc.scm:847: loop */ t35=((C_word*)((C_word*)t0)[2])[1]; f_4429(t35,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t32=C_eqp(t3,lf[299]); if(C_truep(t32)){ t33=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4963,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csc.scm:663: check */ f_4357(t33,t2,((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);} else{ t33=C_eqp(t3,lf[302]); if(C_truep(t33)){ t34=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4995,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:669: check */ f_4357(t34,t2,((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);} else{ t34=C_eqp(t3,lf[303]); t35=(C_truep(t34)?t34:C_eqp(t3,lf[304])); if(C_truep(t35)){ t36=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5015,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* csc.scm:673: check */ f_4357(t36,t2,((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);} else{ t36=C_eqp(t3,lf[306]); if(C_truep(t36)){ t37=C_a_i_cons(&a,2,lf[307],C_retrieve2(lf[112],C_text("main#compile-options"))); t38=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t37); /* csc.scm:847: loop */ t39=((C_word*)((C_word*)t0)[2])[1]; f_4429(t39,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t37=C_eqp(t3,lf[308]); if(C_truep(t37)){ t38=lf[104] /* main#ignore-repository */ =C_SCHEME_TRUE;; /* csc.scm:680: t-options */ f_4350(t4,C_a_i_list(&a,1,((C_word*)t0)[7]));} else{ t38=C_eqp(t3,lf[309]); if(C_truep(t38)){ t39=C_set_block_item(lf[130] /* ##sys#setup-mode */,0,C_SCHEME_TRUE); /* csc.scm:683: t-options */ f_4350(t4,C_a_i_list(&a,1,((C_word*)t0)[7]));} else{ t39=C_eqp(t3,lf[310]); if(C_truep(t39)){ t40=lf[74] /* main#generate-manifest */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t41=((C_word*)((C_word*)t0)[2])[1]; f_4429(t41,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t40=C_eqp(t3,lf[311]); if(C_truep(t40)){ t41=lf[101] /* main#gui */ =C_SCHEME_TRUE;; t42=C_a_i_cons(&a,2,lf[312],C_retrieve2(lf[112],C_text("main#compile-options"))); t43=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t42); if(C_truep(C_retrieve2(lf[29],C_text("main#mingw")))){ t44=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5088,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csc.scm:691: chicken.pathname#make-pathname */ t45=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t45; av2[1]=t44; av2[2]=C_retrieve2(lf[20],C_text("main#host-sharedir")); av2[3]=lf[317]; av2[4]=C_retrieve2(lf[64],C_text("main#object-extension")); ((C_proc)(void*)(*((C_word*)t45+1)))(5,av2);}} else{ /* csc.scm:847: loop */ t44=((C_word*)((C_word*)t0)[2])[1]; f_4429(t44,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);}} else{ t41=C_eqp(t3,lf[318]); if(C_truep(t41)){ t42=lf[102] /* main#deployed */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t43=((C_word*)((C_word*)t0)[2])[1]; f_4429(t43,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t42=C_eqp(t3,lf[319]); if(C_truep(t42)){ t43=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5104,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:701: check */ f_4357(t43,t2,((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);} else{ t43=C_eqp(t3,lf[321]); t44=(C_truep(t43)?t43:C_eqp(t3,lf[322])); if(C_truep(t44)){ t45=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5131,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:706: check */ f_4357(t45,t2,((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);} else{ t45=C_eqp(t3,lf[323]); t46=(C_truep(t45)?t45:C_eqp(t3,lf[324])); if(C_truep(t46)){ t47=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5152,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:710: cons* */ f_2941(t47,lf[325],C_a_i_list(&a,2,lf[326],((C_word*)((C_word*)t0)[4])[1]));} else{ t47=C_eqp(t3,lf[327]); if(C_truep(t47)){ t48=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5162,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:711: cons* */ f_2941(t48,lf[328],C_a_i_list(&a,2,lf[329],((C_word*)((C_word*)t0)[4])[1]));} else{ t48=C_eqp(t3,lf[330]); if(C_truep(t48)){ t49=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5172,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:712: cons* */ f_2941(t49,lf[331],C_a_i_list(&a,2,lf[332],((C_word*)((C_word*)t0)[4])[1]));} else{ t49=C_eqp(t3,lf[333]); if(C_truep(t49)){ t50=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5182,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:713: cons* */ f_2941(t50,lf[334],C_a_i_list(&a,2,lf[335],((C_word*)((C_word*)t0)[4])[1]));} else{ t50=C_eqp(t3,lf[336]); if(C_truep(t50)){ t51=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5192,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:714: cons* */ f_2941(t51,lf[337],C_a_i_list(&a,2,lf[338],((C_word*)((C_word*)t0)[4])[1]));} else{ t51=C_eqp(t3,lf[339]); if(C_truep(t51)){ t52=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5202,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:716: cons* */ f_2941(t52,lf[340],C_a_i_list(&a,2,lf[341],((C_word*)((C_word*)t0)[4])[1]));} else{ t52=C_eqp(t3,lf[342]); if(C_truep(t52)){ t53=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5212,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:717: cons* */ f_2941(t53,lf[343],C_a_i_list(&a,2,lf[344],((C_word*)((C_word*)t0)[4])[1]));} else{ t53=C_eqp(t3,lf[345]); if(C_truep(t53)){ t54=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5222,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:718: cons* */ f_2941(t54,lf[346],C_a_i_list(&a,2,lf[347],((C_word*)((C_word*)t0)[4])[1]));} else{ t54=C_eqp(t3,lf[348]); if(C_truep(t54)){ t55=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5232,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:719: cons* */ f_2941(t55,lf[349],C_a_i_list(&a,2,lf[350],((C_word*)((C_word*)t0)[4])[1]));} else{ t55=C_eqp(t3,lf[351]); if(C_truep(t55)){ t56=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5242,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:720: cons* */ f_2941(t56,lf[352],C_a_i_list(&a,2,lf[353],((C_word*)((C_word*)t0)[4])[1]));} else{ t56=C_eqp(t3,lf[354]); if(C_truep(t56)){ t57=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5251,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* csc.scm:722: check */ f_4357(t57,t2,((C_word*)((C_word*)t0)[4])[1],C_SCHEME_END_OF_LIST);} else{ t57=C_eqp(t3,lf[355]); if(C_truep(t57)){ t58=lf[119] /* main#verbose */ =C_SCHEME_TRUE;; t59=lf[100] /* main#dry-run */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t60=((C_word*)((C_word*)t0)[2])[1]; f_4429(t60,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t58=C_eqp(t3,lf[356]); t59=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5293,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[6],a[9]=t2,a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); if(C_truep(t58)){ t60=t59; f_5293(t60,t58);} else{ t60=C_eqp(t3,lf[414]); t61=t59; f_5293(t61,(C_truep(t60)?t60:C_eqp(t3,lf[415])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} /* k4678 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4680,2,av);} /* csc.scm:847: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_4429(t2,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k4690 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4692,2,av);} /* csc.scm:611: chicken.base#exit */ t2=C_fast_retrieve(lf[41]);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4702 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4704,2,av);} /* csc.scm:614: chicken.base#exit */ t2=C_fast_retrieve(lf[41]);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4709 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4711,2,av);} /* csc.scm:613: chicken.base#print */ t2=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4718 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4720,2,av);} /* csc.scm:617: chicken.base#exit */ t2=C_fast_retrieve(lf[41]);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4725 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_4727,2,av);} a=C_alloc(5); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[177]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4733,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* csc.scm:616: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=C_retrieve2(lf[56],C_text("main#translator")); av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k4731 in k4725 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_4733,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4736,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csc.scm:616: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[42]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[42]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4734 in k4731 in k4725 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4736,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4739,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:616: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[264]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4737 in k4734 in k4731 in k4725 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_4739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4739,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4742,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:616: chicken.base#get-output-string */ t3=C_fast_retrieve(lf[178]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4740 in k4737 in k4734 in k4731 in k4725 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_ccall f_4742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4742,2,av);} /* csc.scm:616: chicken.process#system */ t2=C_fast_retrieve(lf[156]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4797 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4799,2,av);} /* csc.scm:632: chicken.base#exit */ t2=C_fast_retrieve(lf[41]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4809 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4811,2,av);} /* csc.scm:633: chicken.base#exit */ t2=C_fast_retrieve(lf[41]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4821 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4823,2,av);} /* csc.scm:634: chicken.base#exit */ t2=C_fast_retrieve(lf[41]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4833 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4835,2,av);} /* csc.scm:635: chicken.base#exit */ t2=C_fast_retrieve(lf[41]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4856 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_fcall f_4858(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_4858,2,t0,t1);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4861,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csc.scm:643: t-options */ f_4350(t2,C_a_i_list(&a,1,lf[279]));} /* k4859 in k4856 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4861,2,av);} if(C_truep(C_retrieve2(lf[119],C_text("main#verbose")))){ t2=lf[119] /* main#verbose */ =C_fix(2);; /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4429(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t2=lf[119] /* main#verbose */ =C_SCHEME_TRUE;; /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4429(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);}} /* k4871 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4873,2,av);} a=C_alloc(3); t2=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t1); t3=C_a_i_cons(&a,2,lf[280],C_retrieve2(lf[117],C_text("main#link-options"))); t4=C_mutate(&lf[117] /* (set! main#link-options ...) */,t3); t5=((C_word*)t0)[2]; f_4858(t5,t4);} /* k4961 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_4963,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4966,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:664: t-options */ f_4350(t2,C_a_i_list(&a,2,lf[301],t3));} /* k4964 in k4961 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_4966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4966,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4970,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4978,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:666: chicken.string#string-split */ t5=C_fast_retrieve(lf[240]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[300]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k4968 in k4964 in k4961 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4970,2,av);} t2=C_mutate(&lf[92] /* (set! main#linked-extensions ...) */,t1); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); /* csc.scm:847: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_4429(t5,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k4976 in k4964 in k4961 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_4978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4978,2,av);} /* csc.scm:666: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[92],C_text("main#linked-extensions")); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4993 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_4995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4995,2,av);} t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(&lf[106] /* (set! main#library-dir ...) */,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); /* csc.scm:847: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_4429(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5013 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5015,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5018,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:674: t-options */ f_4350(t2,C_a_i_list(&a,2,lf[305],t3));} /* k5016 in k5013 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5018,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:847: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4429(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5082 in k5086 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5084,2,av);} t2=C_mutate(&lf[117] /* (set! main#link-options ...) */,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4429(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k5086 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_5088,2,av);} a=C_alloc(20); t2=C_a_i_cons(&a,2,t1,C_retrieve2(lf[89],C_text("main#object-files"))); t3=C_mutate(&lf[89] /* (set! main#object-files ...) */,t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5084,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csc.scm:696: cons* */ f_2941(t4,lf[313],C_a_i_list(&a,4,lf[314],lf[315],lf[316],C_retrieve2(lf[117],C_text("main#link-options"))));} /* k5102 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_5104,2,av);} a=C_alloc(11); if(C_truep(C_retrieve2(lf[31],C_text("main#osx")))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5115,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:703: cons* */ f_2941(t2,lf[320],C_a_i_list(&a,2,t3,C_retrieve2(lf[117],C_text("main#link-options"))));} else{ t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:847: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4429(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);}} /* k5113 in k5102 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5115,2,av);} t2=C_mutate(&lf[117] /* (set! main#link-options ...) */,t1); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); /* csc.scm:847: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_4429(t5,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5129 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5131,2,av);} t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); t5=C_mutate(&lf[118] /* (set! main#target-filename ...) */,t2); /* csc.scm:847: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_4429(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5150 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5152,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5160 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5162,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5170 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5172,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5180 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5182,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5190 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5192,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5200 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5202,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5210 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5212,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5220 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5222,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5230 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5232,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5240 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5242,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5249 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_5251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5251,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5254,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:723: t-options */ f_4350(t2,C_a_i_list(&a,2,((C_word*)t0)[6],t3));} /* k5252 in k5249 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5254,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5266,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* ##sys#string->list */ t4=C_fast_retrieve(lf[149]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5264 in k5252 in k5249 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_5266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5266,2,av);} if(C_truep(C_u_i_memq(C_make_character(104),t1))){ t2=lf[105] /* main#show-debugging-help */ =C_SCHEME_TRUE;; t3=lf[121] /* main#translate-only */ =C_SCHEME_TRUE;; t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); /* csc.scm:847: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_4429(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} else{ t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:847: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4429(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);}} /* k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_fcall f_5293(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_5293,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ /* csc.scm:732: shared-build */ f_4383(((C_word*)t0)[3],C_SCHEME_FALSE);} else{ t2=C_eqp(((C_word*)t0)[4],lf[357]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[358])); if(C_truep(t3)){ /* csc.scm:734: shared-build */ f_4383(((C_word*)t0)[3],C_SCHEME_TRUE);} else{ t4=C_eqp(((C_word*)t0)[4],lf[359]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5317,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* csc.scm:736: check */ f_4357(t5,((C_word*)t0)[9],((C_word*)((C_word*)t0)[5])[1],C_SCHEME_END_OF_LIST);} else{ t5=C_eqp(((C_word*)t0)[4],lf[360]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5334,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* csc.scm:740: check */ f_4357(t6,((C_word*)t0)[9],((C_word*)((C_word*)t0)[5])[1],C_SCHEME_END_OF_LIST);} else{ t6=C_eqp(((C_word*)t0)[4],lf[361]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5351,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* csc.scm:744: check */ f_4357(t7,((C_word*)t0)[9],((C_word*)((C_word*)t0)[5])[1],C_SCHEME_END_OF_LIST);} else{ t7=C_eqp(((C_word*)t0)[4],lf[362]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5368,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* csc.scm:748: check */ f_4357(t8,((C_word*)t0)[9],((C_word*)((C_word*)t0)[5])[1],C_SCHEME_END_OF_LIST);} else{ t8=C_eqp(((C_word*)t0)[4],lf[363]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5385,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* csc.scm:752: check */ f_4357(t9,((C_word*)t0)[9],((C_word*)((C_word*)t0)[5])[1],C_SCHEME_END_OF_LIST);} else{ t9=C_eqp(((C_word*)t0)[4],lf[365]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5406,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* csc.scm:755: check */ f_4357(t10,((C_word*)t0)[9],((C_word*)((C_word*)t0)[5])[1],C_SCHEME_END_OF_LIST);} else{ t10=C_eqp(((C_word*)t0)[4],lf[366]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5432,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t12=C_a_i_list1(&a,1,lf[367]); /* csc.scm:759: scheme#append */ t13=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t13; av2[1]=t11; av2[2]=C_retrieve2(lf[117],C_text("main#link-options")); av2[3]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} else{ t11=C_eqp(((C_word*)t0)[4],lf[368]); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5445,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* csc.scm:761: check */ f_4357(t12,((C_word*)t0)[9],((C_word*)((C_word*)t0)[5])[1],C_SCHEME_END_OF_LIST);} else{ t12=C_eqp(((C_word*)t0)[4],lf[369]); if(C_truep(t12)){ t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5470,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* csc.scm:765: check */ f_4357(t13,((C_word*)t0)[9],((C_word*)((C_word*)t0)[5])[1],C_SCHEME_END_OF_LIST);} else{ t13=C_eqp(((C_word*)t0)[4],lf[374]); if(C_truep(t13)){ /* csc.scm:847: loop */ t14=((C_word*)((C_word*)t0)[6])[1]; f_4429(t14,((C_word*)t0)[7],((C_word*)((C_word*)t0)[5])[1]);} else{ t14=C_eqp(((C_word*)t0)[4],lf[375]); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5525,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); /* csc.scm:773: check */ f_4357(t15,((C_word*)t0)[9],((C_word*)((C_word*)t0)[5])[1],C_SCHEME_END_OF_LIST);} else{ t15=C_eqp(((C_word*)t0)[4],lf[377]); if(C_truep(t15)){ t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5545,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); /* csc.scm:777: check */ f_4357(t16,((C_word*)t0)[9],((C_word*)((C_word*)t0)[5])[1],C_SCHEME_END_OF_LIST);} else{ t16=C_eqp(((C_word*)t0)[4],lf[379]); if(C_truep(t16)){ t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5566,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* csc.scm:781: scheme#append */ t18=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t18; av2[1]=t17; av2[2]=C_retrieve2(lf[84],C_text("main#scheme-files")); av2[3]=lf[381]; ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} else{ t17=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5576,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t18=C_eqp(((C_word*)t0)[9],lf[413]); if(C_truep(t18)){ t19=lf[123] /* main#to-stdout */ =C_SCHEME_TRUE;; t20=lf[121] /* main#translate-only */ =C_SCHEME_TRUE;; t21=t17; f_5576(t21,t20);} else{ t19=t17; f_5576(t19,C_SCHEME_UNDEFINED);}}}}}}}}}}}}}}}}} /* k5315 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5317,2,av);} t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(&lf[56] /* (set! main#translator ...) */,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); /* csc.scm:847: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_4429(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5332 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5334,2,av);} t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(&lf[57] /* (set! main#compiler ...) */,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); /* csc.scm:847: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_4429(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5349 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5351,2,av);} t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(&lf[58] /* (set! main#c++-compiler ...) */,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); /* csc.scm:847: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_4429(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5366 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5368,2,av);} t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(&lf[60] /* (set! main#linker ...) */,t2); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); /* csc.scm:847: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_4429(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5383 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_5385,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5389,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t4=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:753: cons* */ f_2941(t2,lf[364],C_a_i_list(&a,2,t3,t4));} /* k5387 in k5383 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_5389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5389,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5404 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5406,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5410,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5418,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:756: chicken.string#string-split */ t5=C_fast_retrieve(lf[240]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5408 in k5404 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_5410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5410,2,av);} t2=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t1); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); /* csc.scm:847: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_4429(t5,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5416 in k5404 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_5418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5418,2,av);} /* csc.scm:756: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[112],C_text("main#compile-options")); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5430 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5432,2,av);} t2=C_mutate(&lf[117] /* (set! main#link-options ...) */,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4429(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k5443 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5445,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5449,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5457,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:762: chicken.string#string-split */ t5=C_fast_retrieve(lf[240]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5447 in k5443 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_5449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5449,2,av);} t2=C_mutate(&lf[117] /* (set! main#link-options ...) */,t1); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); /* csc.scm:847: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_4429(t5,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5455 in k5443 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_5457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5457,2,av);} /* csc.scm:762: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[117],C_text("main#link-options")); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5468 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5470,2,av);} a=C_alloc(8); t2=C_i_car(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(&lf[103] /* (set! main#rpath ...) */,t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5484,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5500,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:767: chicken.platform#build-platform */ t6=C_fast_retrieve(lf[373]);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k5482 in k5468 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_fcall f_5484(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_5484,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5488,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5496,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csc.scm:769: scheme#string-append */ t4=*((C_word*)lf[76]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[370]; av2[3]=C_retrieve2(lf[103],C_text("main#rpath")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:847: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4429(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);}} /* k5486 in k5482 in k5468 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_5488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5488,2,av);} t2=C_mutate(&lf[117] /* (set! main#link-options ...) */,t1); t3=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); /* csc.scm:847: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_4429(t5,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5494 in k5482 in k5468 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_5496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5496,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* csc.scm:769: scheme#append */ t3=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[117],C_text("main#link-options")); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5498 in k5468 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_5500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5500,2,av);} if(C_truep((C_truep(C_eqp(t1,lf[371]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[372]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t2=C_i_not(C_retrieve2(lf[29],C_text("main#mingw"))); t3=((C_word*)t0)[2]; f_5484(t3,(C_truep(t2)?C_i_not(C_retrieve2(lf[31],C_text("main#osx"))):C_SCHEME_FALSE));} else{ t2=((C_word*)t0)[2]; f_5484(t2,C_SCHEME_FALSE);}} /* k5523 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5525,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5528,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:774: t-options */ f_4350(t2,C_a_i_list(&a,2,lf[376],t3));} /* k5526 in k5523 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_5528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5528,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:847: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4429(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5543 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5545,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5548,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:778: t-options */ f_4350(t2,C_a_i_list(&a,2,lf[378],t3));} /* k5546 in k5543 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_5548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5548,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:847: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4429(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5564 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_5566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5566,2,av);} a=C_alloc(5); t2=C_mutate(&lf[84] /* (set! main#scheme-files ...) */,t1); if(C_truep(C_retrieve2(lf[118],C_text("main#target-filename")))){ /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4429(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5573,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csc.scm:783: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; av2[3]=lf[380]; av2[4]=C_retrieve2(lf[67],C_text("main#executable-extension")); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k5571 in k5564 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_5573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5573,2,av);} t2=C_mutate(&lf[118] /* (set! main#target-filename ...) */,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4429(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_fcall f_5576(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_5576,2,t0,t1);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5579,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep((C_truep(C_eqp(((C_word*)t0)[2],lf[411]))?C_SCHEME_TRUE:(C_truep(C_eqp(((C_word*)t0)[2],lf[412]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t3=C_mutate(&lf[115] /* (set! main#compilation-optimization-options ...) */,C_retrieve2(lf[79],C_text("main#best-compilation-optimization-options"))); t4=C_mutate(&lf[116] /* (set! main#linking-optimization-options ...) */,C_retrieve2(lf[81],C_text("main#best-linking-optimization-options"))); t5=t2; f_5579(t5,t4);} else{ t3=t2; f_5579(t3,C_SCHEME_UNDEFINED);}} /* k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_fcall f_5579(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_5579,2,t0,t1);} a=C_alloc(12); t2=C_i_assq(((C_word*)t0)[2],lf[382]); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5586,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=( /* csc.scm:791: g1218 */ f_5586(C_a_i(&a,3),t3,t2) ); /* csc.scm:847: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_4429(t5,((C_word*)t0)[5],((C_word*)((C_word*)t0)[3])[1]);} else{ if(C_truep(C_i_memq(((C_word*)t0)[2],lf[383]))){ /* csc.scm:792: t-options */ f_4350(((C_word*)t0)[7],C_a_i_list(&a,1,((C_word*)t0)[8]));} else{ if(C_truep(C_i_memq(((C_word*)t0)[2],lf[384]))){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5616,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); /* csc.scm:794: check */ f_4357(t3,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],C_SCHEME_END_OF_LIST);} else{ t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5633,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); t4=C_block_size(((C_word*)t0)[8]); if(C_truep(C_fixnum_greaterp(t4,C_fix(2)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6008,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:797: scheme#substring */ t6=*((C_word*)lf[389]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[8]; av2[3]=C_fix(0); av2[4]=C_fix(2); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=t3; f_5633(t5,C_SCHEME_FALSE);}}}}} /* g1218 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static C_word C_fcall f_5586(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check;{} t2=C_i_cadr(t1); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); return(t4);} /* k5614 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_5616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5616,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5619,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); /* csc.scm:795: t-options */ f_4350(t2,C_a_i_list(&a,2,((C_word*)t0)[6],t3));} /* k5617 in k5614 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_ccall f_5619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5619,2,av);} t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* csc.scm:847: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4429(t4,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_fcall f_5633(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_5633,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ /* csc.scm:798: t-options */ f_4350(((C_word*)t0)[3],C_a_i_list(&a,1,((C_word*)t0)[4]));} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5642,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_block_size(((C_word*)t0)[4]); if(C_truep(C_fixnum_greaterp(t3,C_fix(1)))){ t4=C_i_string_ref(((C_word*)t0)[4],C_fix(0)); t5=t2; f_5642(t5,C_u_i_char_equalp(C_make_character(45),t4));} else{ t4=t2; f_5642(t4,C_SCHEME_FALSE);}}} /* k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_fcall f_5642(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_5642,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=C_i_string_ref(((C_word*)t0)[2],C_fix(1)); if(C_truep(C_u_i_char_equalp(C_make_character(76),t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5652,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t4=C_i_string_ref(((C_word*)t0)[2],C_fix(2)); if(C_truep(C_u_i_char_whitespacep(t4))){ /* csc.scm:803: chicken.base#error */ t5=*((C_word*)lf[385]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[386]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t3;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_5652(2,av2);}}} else{ t3=C_i_string_ref(((C_word*)t0)[2],C_fix(1)); if(C_truep(C_u_i_char_equalp(C_make_character(73),t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5679,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t5=C_i_string_ref(((C_word*)t0)[2],C_fix(2)); if(C_truep(C_u_i_char_whitespacep(t5))){ /* csc.scm:807: chicken.base#error */ t6=*((C_word*)lf[385]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=lf[387]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_5679(2,av2);}}} else{ t4=C_i_string_ref(((C_word*)t0)[2],C_fix(1)); if(C_truep(C_u_i_char_equalp(C_make_character(68),t4))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5710,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* csc.scm:810: scheme#substring */ t6=*((C_word*)lf[389]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(2); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t5=C_i_string_ref(((C_word*)t0)[2],C_fix(1)); if(C_truep(C_u_i_char_equalp(C_make_character(70),t5))){ if(C_truep(C_retrieve2(lf[31],C_text("main#osx")))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5724,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t7=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:813: scheme#append */ t8=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=C_retrieve2(lf[112],C_text("main#compile-options")); av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ /* csc.scm:847: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_4429(t6,((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1]);}} else{ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5734,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t7=C_block_size(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t7,C_fix(3)))){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5840,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* csc.scm:814: scheme#substring */ t9=*((C_word*)lf[389]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); av2[4]=C_fix(4); ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t8=t6; f_5734(t8,C_SCHEME_FALSE);}}}}}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5852,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* csc.scm:823: chicken.file#file-exists? */ t3=C_fast_retrieve(lf[131]);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k5650 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_5652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_5652,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5656,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_list1(&a,1,((C_word*)t0)[5]); /* csc.scm:804: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=C_retrieve2(lf[117],C_text("main#link-options")); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5654 in k5650 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_5656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5656,2,av);} t2=C_mutate(&lf[117] /* (set! main#link-options ...) */,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4429(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k5677 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_5679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_5679,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_list1(&a,1,((C_word*)t0)[5]); /* csc.scm:808: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=C_retrieve2(lf[112],C_text("main#compile-options")); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5681 in k5677 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_5683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5683,2,av);} t2=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4429(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k5708 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_5710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5710,2,av);} a=C_alloc(6); /* csc.scm:810: t-options */ f_4350(((C_word*)t0)[3],C_a_i_list(&a,2,lf[388],t1));} /* k5722 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_5724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5724,2,av);} t2=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4429(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_fcall f_5734(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_5734,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5738,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_list1(&a,1,((C_word*)t0)[5]); /* csc.scm:815: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=C_retrieve2(lf[117],C_text("main#link-options")); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=C_block_size(((C_word*)t0)[5]); if(C_truep(C_fixnum_greaterp(t2,C_fix(2)))){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5823,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* ##sys#string->list */ t4=C_fast_retrieve(lf[149]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* csc.scm:822: stop */ f_3817(((C_word*)t0)[6],lf[393],C_a_i_list(&a,1,((C_word*)t0)[7]));}}} /* k5736 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_5738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5738,2,av);} t2=C_mutate(&lf[117] /* (set! main#link-options ...) */,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_4429(t3,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]);} /* k5759 in k5817 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_5761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5761,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); /* csc.scm:847: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_4429(t3,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);} /* k5776 in k5817 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_5778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5778,2,av);} /* csc.scm:820: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1235 in k5817 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_fcall f_5780(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_5780,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5805,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_a_i_string(&a,1,t4); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]); C_word av2[4]; av2[0]=*((C_word*)lf[186]+1); av2[1]=t3; av2[2]=lf[390]; av2[3]=t5; tp(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5803 in map-loop1235 in k5817 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_5805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5805,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_5780(t6,((C_word*)t0)[5],t5);} /* k5817 in k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_5819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_5819,2,av);} a=C_alloc(21); if(C_truep(C_i_nullp(t1))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5778,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5780,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_5780(t11,t7,((C_word*)t0)[5]);} else{ /* csc.scm:821: stop */ f_3817(((C_word*)t0)[6],lf[391],C_a_i_list(&a,1,((C_word*)t0)[7]));}} /* k5821 in k5732 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_5823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_5823,2,av);} a=C_alloc(16); t2=C_i_cdr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5819,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t5=C_a_i_list(&a,1,C_retrieve2(lf[83],C_text("main#short-options"))); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3383,a[2]=t7,tmp=(C_word)a,a+=3,tmp)); t9=((C_word*)t7)[1]; f_3383(t9,t4,t5,t3);} /* k5838 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_5840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5840,2,av);} t2=((C_word*)t0)[2]; f_5734(t2,C_u_i_string_equal_p(lf[394],t1));} /* k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_5852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_5852,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5857,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5863,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:824: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5972,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[186]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=lf[409]; tp(4,av2);}}} /* a5856 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_5857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5857,2,av);} /* csc.scm:824: chicken.pathname#decompose-pathname */ t2=C_fast_retrieve(lf[395]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a5862 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_5863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5863,5,av);} a=C_alloc(7); if(C_truep(C_i_not(t4))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5874,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:826: scheme#append */ t7=*((C_word*)lf[137]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t5; av2[2]=C_retrieve2(lf[84],C_text("main#scheme-files")); av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ if(C_truep((C_truep(C_i_equalp(t4,lf[396]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[397]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5888,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:828: scheme#append */ t7=*((C_word*)lf[137]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t5; av2[2]=C_retrieve2(lf[85],C_text("main#c-files")); av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ if(C_truep(C_i_string_ci_equal_p(t4,lf[398]))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5902,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:830: scheme#append */ t7=*((C_word*)lf[137]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t5; av2[2]=C_retrieve2(lf[86],C_text("main#rc-files")); av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ if(C_truep((C_truep(C_i_equalp(t4,lf[399]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[400]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[401]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[402]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[403]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5915,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[31],C_text("main#osx")))){ t6=C_a_i_cons(&a,2,lf[404],C_retrieve2(lf[112],C_text("main#compile-options"))); t7=C_mutate(&lf[112] /* (set! main#compile-options ...) */,t6); t8=t5; f_5915(t8,t7);} else{ t6=t5; f_5915(t6,C_SCHEME_UNDEFINED);}} else{ if(C_truep((C_truep(C_i_equalp(t4,lf[405]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[406]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t4,lf[407]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ t5=lf[94] /* main#objc-mode */ =C_SCHEME_TRUE;; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5939,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* csc.scm:837: scheme#append */ t8=*((C_word*)lf[137]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t6; av2[2]=C_retrieve2(lf[85],C_text("main#c-files")); av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t5=C_retrieve2(lf[64],C_text("main#object-extension")); t6=C_u_i_string_equal_p(t4,C_retrieve2(lf[64],C_text("main#object-extension"))); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5951,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(t6)){ t8=t7; f_5951(t8,t6);} else{ t8=C_retrieve2(lf[65],C_text("main#library-extension")); t9=t7; f_5951(t9,C_u_i_string_equal_p(t4,C_retrieve2(lf[65],C_text("main#library-extension"))));}}}}}}} /* k5872 in a5862 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_5874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5874,2,av);} t2=C_mutate(&lf[84] /* (set! main#scheme-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5886 in a5862 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_5888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5888,2,av);} t2=C_mutate(&lf[85] /* (set! main#c-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5900 in a5862 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_5902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5902,2,av);} t2=C_mutate(&lf[86] /* (set! main#rc-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5913 in a5862 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_fcall f_5915(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_5915,2,t0,t1);} a=C_alloc(6); t2=lf[93] /* main#cpp-mode */ =C_SCHEME_TRUE;; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5920,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_a_i_list1(&a,1,((C_word*)t0)[3]); /* csc.scm:834: scheme#append */ t5=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=C_retrieve2(lf[85],C_text("main#c-files")); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5918 in k5913 in a5862 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_5920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5920,2,av);} t2=C_mutate(&lf[85] /* (set! main#c-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5937 in a5862 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_5939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5939,2,av);} t2=C_mutate(&lf[85] /* (set! main#c-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5949 in a5862 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_fcall f_5951(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_5951,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5955,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_list1(&a,1,((C_word*)t0)[3]); /* csc.scm:840: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=C_retrieve2(lf[89],C_text("main#object-files")); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5963,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_a_i_list1(&a,1,((C_word*)t0)[3]); /* csc.scm:841: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=C_retrieve2(lf[84],C_text("main#scheme-files")); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k5953 in k5949 in a5862 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_5955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5955,2,av);} t2=C_mutate(&lf[89] /* (set! main#object-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5961 in k5949 in a5862 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_5963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5963,2,av);} t2=C_mutate(&lf[84] /* (set! main#scheme-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5970 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_5972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5972,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5978,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* csc.scm:844: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[131]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5976 in k5970 in k5850 in k5640 in k5631 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_5978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5978,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); /* csc.scm:847: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_4429(t4,((C_word*)t0)[5],((C_word*)((C_word*)t0)[3])[1]);} else{ /* csc.scm:846: stop */ f_3817(((C_word*)t0)[6],lf[408],C_a_i_list(&a,1,((C_word*)t0)[7]));}} /* k6006 in k5577 in k5574 in k5291 in k4675 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_6008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6008,2,av);} t2=((C_word*)t0)[2]; f_5633(t2,C_u_i_string_equal_p(lf[410],t1));} /* k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_6215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_6215,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6218,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_member(t2,C_retrieve2(lf[85],C_text("main#c-files"))))){ /* csc.scm:864: stop */ f_3817(t3,lf[232],C_a_i_list(&a,2,((C_word*)t0)[3],t2));} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6218(2,av2);}}} /* k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_6218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_6218,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6221,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6255,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6259,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6263,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:868: quotewrap */ t6=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; f_3866(3,av2);}} /* k6219 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_6221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6221,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6224,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(C_truep(C_retrieve2(lf[125],C_text("main#static")))?C_retrieve2(lf[122],C_text("main#compile-only")):C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6251,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csc.scm:893: chicken.pathname#pathname-replace-extension */ t5=C_fast_retrieve(lf[175]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=lf[222]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t2; f_6224(t4,C_SCHEME_UNDEFINED);}} /* k6222 in k6219 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_fcall f_6224(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_6224,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6228,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_list1(&a,1,((C_word*)t0)[3]); /* csc.scm:895: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_retrieve2(lf[85],C_text("main#c-files")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6226 in k6222 in k6219 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_6228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6228,2,av);} a=C_alloc(6); t2=C_mutate(&lf[85] /* (set! main#c-files ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6232,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_a_i_list1(&a,1,((C_word*)t0)[3]); /* csc.scm:896: scheme#append */ t5=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_retrieve2(lf[87],C_text("main#generated-c-files")); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k6230 in k6226 in k6222 in k6219 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_6232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6232,2,av);} t2=C_mutate(&lf[87] /* (set! main#generated-c-files ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6249 in k6219 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_6251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6251,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_retrieve2(lf[91],C_text("main#transient-link-files"))); t3=C_mutate(&lf[91] /* (set! main#transient-link-files ...) */,t2); t4=((C_word*)t0)[2]; f_6224(t4,t3);} /* k6253 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_6255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6255,2,av);} /* csc.scm:866: command */ f_7467(((C_word*)t0)[2],t1);} /* k6257 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_6259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6259,2,av);} /* csc.scm:867: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[136]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[223]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6261 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_6263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6263,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6267,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6271,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[123],C_text("main#to-stdout")))){ t5=t4; f_6271(t5,lf[230]);} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6357,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:872: quotewrap */ t6=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; f_3866(3,av2);}}} /* k6265 in k6261 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_6267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6267,2,av);} a=C_alloc(6); /* csc.scm:868: cons* */ f_2941(((C_word*)t0)[2],C_retrieve2(lf[56],C_text("main#translator")),C_a_i_list(&a,2,((C_word*)t0)[3],t1));} /* k6269 in k6261 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_fcall f_6271(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){ C_save_and_reclaim_args((void *)trf_6271,2,t0,t1);} a=C_alloc(20); t2=t1; t3=(C_truep(C_i_debug_modep())?lf[224]:C_SCHEME_END_OF_LIST); t4=t3; t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=C_retrieve2(lf[134],C_text("main#quote-option")); t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6282,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=t7,a[6]=t9,a[7]=t8,tmp=(C_word)a,a+=8,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6326,a[2]=t10,tmp=(C_word)a,a+=3,tmp); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6336,a[2]=t11,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[125],C_text("main#static")))){ t13=C_i_member(lf[229],C_retrieve2(lf[109],C_text("main#translate-options"))); t14=t12; f_6336(t14,C_i_not(t13));} else{ t13=t12; f_6336(t13,C_SCHEME_FALSE);}} /* k6280 in k6269 in k6261 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_6282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_6282,2,av);} a=C_alloc(13); t2=C_i_check_list_2(t1,lf[135]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6288,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6290,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_6290(t7,t3,t1);} /* k6286 in k6280 in k6269 in k6261 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_6288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6288,2,av);} /* csc.scm:869: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop1316 in k6280 in k6269 in k6261 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_fcall f_6290(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6290,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6315,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:876: g1322 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6313 in map-loop1316 in k6280 in k6269 in k6261 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in ... */ static void C_ccall f_6315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6315,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6290(t6,((C_word*)t0)[5],t5);} /* k6324 in k6269 in k6261 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_fcall f_6326(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){ C_save_and_reclaim_args((void *)trf_6326,2,t0,t1);} if(C_truep(C_retrieve2(lf[93],C_text("main#cpp-mode")))){ /* csc.scm:877: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[82],C_text("main#extra-features")); av2[3]=C_retrieve2(lf[109],C_text("main#translate-options")); av2[4]=t1; av2[5]=lf[225]; av2[6]=C_retrieve2(lf[114],C_text("main#translation-optimization-options")); ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} else{ if(C_truep(C_retrieve2(lf[94],C_text("main#objc-mode")))){ /* csc.scm:877: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[82],C_text("main#extra-features")); av2[3]=C_retrieve2(lf[109],C_text("main#translate-options")); av2[4]=t1; av2[5]=lf[226]; av2[6]=C_retrieve2(lf[114],C_text("main#translation-optimization-options")); ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} else{ /* csc.scm:877: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[82],C_text("main#extra-features")); av2[3]=C_retrieve2(lf[109],C_text("main#translate-options")); av2[4]=t1; av2[5]=C_SCHEME_END_OF_LIST; av2[6]=C_retrieve2(lf[114],C_text("main#translation-optimization-options")); ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}}} /* k6334 in k6269 in k6261 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_fcall f_6336(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_6336,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6343,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:884: chicken.pathname#pathname-replace-extension */ t3=C_fast_retrieve(lf[175]);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[228]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_6326(t2,C_SCHEME_END_OF_LIST);}} /* k6341 in k6334 in k6269 in k6261 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_6343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_6343,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; f_6326(t2,C_a_i_list2(&a,2,lf[227],t1));} /* k6355 in k6261 in k6216 in k6213 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_6357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_6357,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; f_6271(t2,C_a_i_list(&a,2,lf[231],t1));} /* for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_fcall f_6386(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_6386,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6396,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_length(C_retrieve2(lf[84],C_text("main#scheme-files"))); t8=C_eqp(C_fix(1),t7); t9=(C_truep(t8)?C_retrieve2(lf[118],C_text("main#target-filename")):t6); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6215,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[93],C_text("main#cpp-mode")))){ /* csc.scm:858: chicken.pathname#pathname-replace-extension */ t11=C_fast_retrieve(lf[175]);{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=t9; av2[3]=lf[233]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ if(C_truep(C_retrieve2(lf[94],C_text("main#objc-mode")))){ /* csc.scm:858: chicken.pathname#pathname-replace-extension */ t11=C_fast_retrieve(lf[175]);{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=t9; av2[3]=lf[234]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ /* csc.scm:858: chicken.pathname#pathname-replace-extension */ t11=C_fast_retrieve(lf[175]);{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=t9; av2[3]=lf[235]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6394 in for-each-loop1295 in k4607 in k4604 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_6396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6396,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6386(t3,((C_word*)t0)[4],t2);} /* g1359 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_fcall f_6411(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_6411,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6415,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_retrieve2(lf[122],C_text("main#compile-only")))){ if(C_truep(C_retrieve2(lf[118],C_text("main#target-filename")))){ t4=C_i_length(C_retrieve2(lf[85],C_text("main#c-files"))); t5=C_eqp(C_fix(1),t4); if(C_truep(t5)){ t6=t3;{ C_word av2[2]; av2[0]=t6; av2[1]=C_retrieve2(lf[118],C_text("main#target-filename")); f_6415(2,av2);}} else{ /* csc.scm:910: chicken.pathname#pathname-replace-extension */ t6=C_fast_retrieve(lf[175]);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t2; av2[3]=C_retrieve2(lf[64],C_text("main#object-extension")); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} else{ /* csc.scm:910: chicken.pathname#pathname-replace-extension */ t4=C_fast_retrieve(lf[175]);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_retrieve2(lf[64],C_text("main#object-extension")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} else{ /* csc.scm:910: chicken.pathname#pathname-replace-extension */ t4=C_fast_retrieve(lf[175]);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_retrieve2(lf[64],C_text("main#object-extension")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k6413 in g1359 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_ccall f_6415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_6415,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6418,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_member(t2,C_retrieve2(lf[89],C_text("main#object-files"))))){ /* csc.scm:912: stop */ f_3817(t3,lf[210],C_a_i_list(&a,2,((C_word*)t0)[4],t2));} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6418(2,av2);}}} /* k6416 in k6413 in g1359 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_6418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6418,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6421,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6433,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(C_truep(C_retrieve2(lf[93],C_text("main#cpp-mode")))?C_retrieve2(lf[58],C_text("main#c++-compiler")):C_retrieve2(lf[57],C_text("main#compiler"))); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6445,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* csc.scm:918: quotewrap */ t7=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[5]; f_3866(3,av2);}} /* k6419 in k6416 in k6413 in g1359 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_6421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_6421,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_retrieve2(lf[90],C_text("main#generated-object-files"))); t3=C_mutate(&lf[90] /* (set! main#generated-object-files ...) */,t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k6431 in k6416 in k6413 in g1359 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_6433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6433,2,av);} /* csc.scm:914: command */ f_7467(((C_word*)t0)[2],t1);} /* k6443 in k6416 in k6413 in g1359 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_6445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6445,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6449,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6468,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:919: quotewrap */ t5=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; f_3866(3,av2);}} /* k6447 in k6443 in k6416 in k6413 in g1359 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_6449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6449,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6453,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_retrieve2(lf[93],C_text("main#cpp-mode")))){ t4=C_i_string_equal_p(lf[206],C_retrieve2(lf[58],C_text("main#c++-compiler"))); t5=t3; f_6453(t5,(C_truep(t4)?lf[207]:lf[208]));} else{ t4=t3; f_6453(t4,lf[208]);}} /* k6451 in k6447 in k6443 in k6416 in k6413 in g1359 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_fcall f_6453(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_6453,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6457,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* csc.scm:924: compiler-options */ f_6683(t3);} /* k6455 in k6451 in k6447 in k6443 in k6416 in k6413 in g1359 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_6457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_6457,2,av);} a=C_alloc(18); t2=C_a_i_list6(&a,6,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],lf[205],((C_word*)t0)[5],t1); /* csc.scm:915: chicken.string#string-intersperse */ t3=C_fast_retrieve(lf[136]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[6]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6466 in k6443 in k6416 in k6413 in g1359 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_6468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6468,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[186]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[209]; av2[3]=t1; tp(4,av2);}} /* k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_6497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_6497,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6500,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6633,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[74],C_text("main#generate-manifest")))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6658,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:928: chicken.platform#software-type */ t5=C_fast_retrieve(lf[219]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t3; f_6633(t4,C_SCHEME_FALSE);}} /* k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_fcall f_6500(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_6500,2,t0,t1);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6501,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_retrieve2(lf[86],C_text("main#rc-files")); t4=C_i_check_list_2(C_retrieve2(lf[86],C_text("main#rc-files")),lf[176]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6538,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6609,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_6609(t9,t5,C_retrieve2(lf[86],C_text("main#rc-files")));} /* g1369 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_fcall f_6501(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_6501,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6505,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csc.scm:935: scheme#string-append */ t4=*((C_word*)lf[76]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[211]; av2[4]=C_retrieve2(lf[64],C_text("main#object-extension")); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k6503 in g1369 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_6505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6505,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6508,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6520,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6528,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csc.scm:938: quotewrap */ t6=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; f_3866(3,av2);}} /* k6506 in k6503 in g1369 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_6508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_6508,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_retrieve2(lf[90],C_text("main#generated-object-files"))); t3=C_mutate(&lf[90] /* (set! main#generated-object-files ...) */,t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k6518 in k6503 in g1369 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_6520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6520,2,av);} /* csc.scm:936: command */ f_7467(((C_word*)t0)[2],t1);} /* k6526 in k6503 in g1369 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_6528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6528,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6532,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csc.scm:938: quotewrap */ t4=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; f_3866(3,av2);}} /* k6530 in k6526 in k6503 in g1369 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_6532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_6532,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,C_retrieve2(lf[59],C_text("main#rc-compiler")),((C_word*)t0)[2],t1); /* csc.scm:937: chicken.string#string-intersperse */ t3=C_fast_retrieve(lf[136]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6536 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_6538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6538,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6542,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6607,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csc.scm:942: scheme#reverse */ t4=*((C_word*)lf[190]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6540 in k6536 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_6542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6542,2,av);} a=C_alloc(9); t2=C_mutate(&lf[89] /* (set! main#object-files ...) */,t1); if(C_truep(C_retrieve2(lf[120],C_text("main#keep-files")))){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_retrieve2(lf[164],C_text("main#$delete-file")); t4=C_retrieve2(lf[87],C_text("main#generated-c-files")); t5=C_i_check_list_2(C_retrieve2(lf[87],C_text("main#generated-c-files")),lf[176]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6551,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6582,a[2]=t8,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_6582(t10,t6,C_retrieve2(lf[87],C_text("main#generated-c-files")));}} /* k6549 in k6540 in k6536 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_6551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6551,2,av);} a=C_alloc(6); t2=C_retrieve2(lf[164],C_text("main#$delete-file")); t3=C_retrieve2(lf[88],C_text("main#generated-rc-files")); t4=C_i_check_list_2(C_retrieve2(lf[88],C_text("main#generated-rc-files")),lf[176]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6559,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_6559(t8,((C_word*)t0)[2],C_retrieve2(lf[88],C_text("main#generated-rc-files")));} /* for-each-loop1428 in k6549 in k6540 in k6536 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_fcall f_6559(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6559,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6569,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:945: g1429 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6567 in for-each-loop1428 in k6549 in k6540 in k6536 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_6569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6569,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6559(t3,((C_word*)t0)[4],t2);} /* for-each-loop1411 in k6540 in k6536 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_fcall f_6582(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6582,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6592,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:944: g1412 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6590 in for-each-loop1411 in k6540 in k6536 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_6592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6592,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6582(t3,((C_word*)t0)[4],t2);} /* k6605 in k6536 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_6607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6607,2,av);} /* csc.scm:942: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_retrieve2(lf[89],C_text("main#object-files")); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop1368 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_fcall f_6609(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6609,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6619,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:933: g1369 */ t5=((C_word*)t0)[3]; f_6501(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6617 in for-each-loop1368 in k6498 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_6619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6619,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6609(t3,((C_word*)t0)[4],t2);} /* k6631 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_fcall f_6633(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_6633,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6636,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:929: chicken.pathname#pathname-replace-extension */ t3=C_fast_retrieve(lf[175]);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=C_retrieve2(lf[118],C_text("main#target-filename")); av2[3]=lf[218]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=((C_word*)t0)[2]; f_6500(t2,C_SCHEME_UNDEFINED);}} /* k6634 in k6631 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in ... */ static void C_ccall f_6636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6636,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6639,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6651,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csc.scm:930: chicken.pathname#pathname-file */ t5=C_fast_retrieve(lf[217]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[118],C_text("main#target-filename")); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6637 in k6634 in k6631 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_6639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_6639,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_retrieve2(lf[86],C_text("main#rc-files"))); t3=C_mutate(&lf[86] /* (set! main#rc-files ...) */,t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],C_retrieve2(lf[88],C_text("main#generated-rc-files"))); t5=C_mutate(&lf[88] /* (set! main#generated-rc-files ...) */,t4); t6=((C_word*)t0)[3]; f_6500(t6,t5);} /* k6649 in k6634 in k6631 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_6651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6651,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=t1; t4=((C_word*)t0)[3]; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7539,a[2]=t3,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_retrieve2(lf[119],C_text("main#verbose")))){ /* csc.scm:1112: chicken.base#print */ t6=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=lf[216]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_7539(2,av2);}}} /* k6656 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_ccall f_6658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6658,2,av);} t2=((C_word*)t0)[2]; f_6633(t2,C_eqp(lf[15],t1));} /* for-each-loop1358 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_fcall f_6660(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6660,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6670,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:904: g1359 */ t5=((C_word*)t0)[3]; f_6411(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6668 in for-each-loop1358 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_ccall f_6670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6670,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6660(t3,((C_word*)t0)[4],t2);} /* main#compiler-options in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_fcall f_6683(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_6683,1,t1);} a=C_alloc(11); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=C_retrieve2(lf[134],C_text("main#quote-option")); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6694,a[2]=t1,a[3]=t4,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* csc.scm:950: scheme#append */ t8=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=C_retrieve2(lf[115],C_text("main#compilation-optimization-options")); av2[3]=C_retrieve2(lf[112],C_text("main#compile-options")); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k6692 in main#compiler-options in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_6694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_6694,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[135]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6700,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6702,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_6702(t7,t3,t1);} /* k6698 in k6692 in main#compiler-options in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_6700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6700,2,av);} /* csc.scm:948: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[136]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* map-loop1451 in k6692 in main#compiler-options in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_fcall f_6702(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6702,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6727,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:949: g1457 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6725 in map-loop1451 in k6692 in main#compiler-options in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_6727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6727,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6702(t6,((C_word*)t0)[5],t5);} /* k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_ccall f_6741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_6741,2,av);} a=C_alloc(16); t2=C_mutate(&lf[89] /* (set! main#object-files ...) */,t1); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_retrieve2(lf[50],C_text("main#quotewrap")); t8=C_retrieve2(lf[89],C_text("main#object-files")); t9=C_i_check_list_2(C_retrieve2(lf[89],C_text("main#object-files")),lf[135]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6750,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6886,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_6886(t14,t10,C_retrieve2(lf[89],C_text("main#object-files")));} /* k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_6750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6750,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6753,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csc.scm:961: quotewrap */ t4=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[118],C_text("main#target-filename")); f_3866(3,av2);}} /* k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_6753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_6753,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6756,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6851,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6855,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(C_truep(C_retrieve2(lf[93],C_text("main#cpp-mode")))?C_retrieve2(lf[61],C_text("main#c++-linker")):C_retrieve2(lf[60],C_text("main#linker"))); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6863,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6871,a[2]=t8,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6884,a[2]=t9,tmp=(C_word)a,a+=3,tmp); /* csc.scm:969: quotewrap */ t11=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=C_retrieve2(lf[118],C_text("main#target-filename")); f_3866(3,av2);}} /* k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_6756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_6756,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6759,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(C_truep(C_retrieve2(lf[31],C_text("main#osx")))?C_retrieve2(lf[49],C_text("main#host-mode")):C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6800,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6810,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6814,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* ##sys#peek-c-string */ t7=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=C_mpointer(&a,(void*)C_INSTALL_POSTINSTALL_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_6759(2,av2);}}} /* k6757 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_6759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6759,2,av);} a=C_alloc(4); if(C_truep(C_retrieve2(lf[120],C_text("main#keep-files")))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_retrieve2(lf[164],C_text("main#$delete-file")); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6765,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csc.scm:990: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_retrieve2(lf[90],C_text("main#generated-object-files")); av2[3]=C_retrieve2(lf[91],C_text("main#transient-link-files")); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k6763 in k6757 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in ... */ static void C_ccall f_6765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6765,2,av);} a=C_alloc(6); t2=C_i_check_list_2(t1,lf[176]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6773,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_6773(t6,((C_word*)t0)[3],t1);} /* for-each-loop1513 in k6763 in k6757 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in ... */ static void C_fcall f_6773(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6773,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6783,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:989: g1514 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6781 in for-each-loop1513 in k6763 in k6757 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in ... */ static void C_ccall f_6783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6783,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6773(t3,((C_word*)t0)[4],t2);} /* k6798 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_6800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6800,2,av);} a=C_alloc(4); if(C_truep(C_retrieve2(lf[101],C_text("main#gui")))){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7503,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* csc.scm:1107: chicken.base#open-output-string */ t5=C_fast_retrieve(lf[181]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_6759(2,av2);}}} /* k6808 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_6810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6810,2,av);} /* csc.scm:973: command */ f_7467(((C_word*)t0)[2],t1);} /* k6812 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_6814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6814,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6818,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:975: libchicken */ f_3941(t3);} /* k6816 in k6812 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in ... */ static void C_ccall f_6818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6818,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6822,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6826,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6846,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:977: libchicken */ f_3941(t5);} /* k6820 in k6816 in k6812 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in ... */ static void C_ccall f_6822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_6822,2,av);} /* csc.scm:974: scheme#string-append */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[182]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[183]; av2[6]=t1; av2[7]=lf[184]; av2[8]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k6824 in k6816 in k6812 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in ... */ static void C_ccall f_6826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_6826,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6829,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[102],C_text("main#deployed")))){ /* csc.scm:979: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[185]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6839,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ t5=C_retrieve2(lf[17],C_text("main#host-libdir")); t6=C_retrieve2(lf[17],C_text("main#host-libdir")); /* csc.scm:980: chicken.pathname#make-pathname */ t7=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=C_retrieve2(lf[17],C_text("main#host-libdir")); av2[3]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t5=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_TARGET_RUN_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k6827 in k6824 in k6816 in k6812 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in ... */ static void C_ccall f_6829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6829,2,av);} /* csc.scm:976: quotewrap */ t2=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_3866(3,av2);}} /* k6837 in k6824 in k6816 in k6812 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in ... */ static void C_ccall f_6839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6839,2,av);} /* csc.scm:980: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6844 in k6816 in k6812 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in ... */ static void C_ccall f_6846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6846,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[186]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[187]; tp(4,av2);}} /* k6849 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_6851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6851,2,av);} /* csc.scm:963: command */ f_7467(((C_word*)t0)[2],t1);} /* k6853 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_6855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6855,2,av);} /* csc.scm:964: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[136]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6861 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_6863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6863,2,av);} a=C_alloc(3); /* csc.scm:965: cons* */ f_2941(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* k6869 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_6871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6871,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6875,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* csc.scm:970: linker-options */ f_7170(t3);} /* k6873 in k6869 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_6875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6875,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6879,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* csc.scm:971: linker-libraries */ f_7223(t3);} /* k6877 in k6873 in k6869 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in ... */ static void C_ccall f_6879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6879,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); /* csc.scm:967: scheme#append */ t3=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k6882 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_6884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6884,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[186]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[188]; av2[3]=t1; tp(4,av2);}} /* map-loop1479 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_fcall f_6886(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6886,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6911,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:960: g1485 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6909 in map-loop1479 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_6911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6911,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6886(t6,((C_word*)t0)[5],t5);} /* k6925 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_6927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6927,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6930,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fast_retrieve(lf[130]))){ /* csc.scm:997: chicken.string#string-chomp */ t3=C_fast_retrieve(lf[196]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=lf[197]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t1; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f8584,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:998: chicken.pathname#make-pathname */ t5=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_FALSE; av2[3]=t3; av2[4]=lf[195]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k6928 in k6925 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_6930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_6930,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6937,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:998: chicken.pathname#make-pathname */ t3=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_SCHEME_FALSE; av2[3]=t1; av2[4]=lf[195]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6935 in k6928 in k6925 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_6937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6937,2,av);} /* csc.scm:998: chicken.file#file-exists? */ t2=C_fast_retrieve(lf[131]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6949 in map-loop1542 in k6964 in k7089 in k7066 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in ... */ static void C_ccall f_6951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6951,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* csc.scm:1002: stop */ f_3817(((C_word*)t0)[2],lf[192],C_a_i_list(&a,1,((C_word*)t0)[3]));}} /* k6964 in k7089 in k7066 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_6966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6966,2,av);} a=C_alloc(7); t2=C_i_check_list_2(t1,lf[135]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6974,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_6974(t6,((C_word*)t0)[4],t1);} /* map-loop1542 in k6964 in k7089 in k7066 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in ... */ static void C_fcall f_6974(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_6974,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6999,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6951,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* csc.scm:1001: find-object-file */ t8=C_retrieve2(lf[128],C_text("main#find-object-file"));{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t6; f_4238(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6997 in map-loop1542 in k6964 in k7089 in k7066 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in ... */ static void C_ccall f_6999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6999,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6974(t6,((C_word*)t0)[5],t5);} /* map-loop1565 in k7089 in k7066 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_fcall f_7008(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7008,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7033,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:1003: g1571 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7031 in map-loop1565 in k7089 in k7066 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in ... */ static void C_ccall f_7033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7033,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7008(t6,((C_word*)t0)[5],t5);} /* loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in ... */ static void C_fcall f_7045(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7045,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7059,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* csc.scm:1006: scheme#reverse */ t5=*((C_word*)lf[190]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=C_retrieve2(lf[125],C_text("main#static")); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7065,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_retrieve2(lf[125],C_text("main#static")))){ t6=t5; f_7065(t6,C_retrieve2(lf[125],C_text("main#static")));} else{ t6=C_i_car(t2); t7=C_i_member(t6,((C_word*)t0)[3]); t8=t5; f_7065(t8,C_i_not(t7));}}} /* k7057 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_7059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7059,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=*((C_word*)lf[189]+1); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3078,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_3078(t7,t2,t1);} /* k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_fcall f_7065(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_7065,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7068,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_car(((C_word*)t0)[5]); t4=t2; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6927,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* csc.scm:995: chicken.pathname#pathname-strip-extension */ t6=C_fast_retrieve(lf[198]);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t2=C_i_cdr(((C_word*)t0)[5]); t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]); /* csc.scm:1013: loop */ t6=((C_word*)((C_word*)t0)[2])[1]; f_7045(t6,((C_word*)t0)[3],t2,t5);}} /* k7066 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_7068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_7068,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7071,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t1)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7091,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* csc.scm:1010: scheme#with-input-from-file */ t4=C_fast_retrieve(lf[193]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t1; av2[3]=*((C_word*)lf[194]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; f_7071(2,av2);}}} /* k7069 in k7066 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_7071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7071,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7078,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[5]; t5=C_u_i_cdr(t4); /* csc.scm:1012: scheme#append */ t6=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t2; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k7076 in k7069 in k7066 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in ... */ static void C_ccall f_7078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7078,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7082,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* csc.scm:1012: scheme#append */ t4=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7080 in k7076 in k7069 in k7066 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in ... */ static void C_ccall f_7082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7082,2,av);} /* csc.scm:1012: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7045(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k7089 in k7066 in k7063 in loop in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_7091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_7091,2,av);} a=C_alloc(23); t2=((C_word*)t0)[2]; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=C_fast_retrieve(lf[191]); t12=C_i_check_list_2(t1,lf[135]); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6966,a[2]=t5,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7008,a[2]=t9,a[3]=t15,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_7008(t17,t13,t1);} /* main#linker-options in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_fcall f_7170(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_7170,1,t1);} a=C_alloc(11); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=C_retrieve2(lf[134],C_text("main#quote-option")); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7181,a[2]=t1,a[3]=t4,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* csc.scm:1027: scheme#append */ t8=*((C_word*)lf[137]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=C_retrieve2(lf[116],C_text("main#linking-optimization-options")); av2[3]=C_retrieve2(lf[117],C_text("main#link-options")); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k7179 in main#linker-options in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7181,2,av);} a=C_alloc(11); t2=C_i_check_list_2(t1,lf[135]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7187,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7189,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_7189(t7,t3,t1);} /* k7185 in k7179 in main#linker-options in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_7187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7187,2,av);} /* csc.scm:1025: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[136]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* map-loop1635 in k7179 in main#linker-options in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_fcall f_7189(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7189,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7214,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:1026: g1641 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7212 in map-loop1635 in k7179 in main#linker-options in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_7214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7214,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7189(t6,((C_word*)t0)[5],t5);} /* main#linker-libraries in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_fcall f_7223(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_7223,1,t1);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7231,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7235,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[125],C_text("main#static")))){ t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4069,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=t5; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3984,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* csc.scm:129: libchicken */ f_3941(t7);} else{ t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4049,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4053,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[49],C_text("main#host-mode")))){ /* ##sys#peek-c-string */ t7=*((C_word*)lf[46]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_NAME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ /* ##sys#peek-c-string */ t7=*((C_word*)lf[46]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIB_NAME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} /* k7229 in main#linker-libraries in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7231,2,av);} /* csc.scm:1030: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[136]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7233 in main#linker-libraries in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7235,2,av);} a=C_alloc(3); t2=(C_truep(C_retrieve2(lf[125],C_text("main#static")))?C_a_i_list1(&a,1,C_retrieve2(lf[107],C_text("main#extra-libraries"))):C_a_i_list1(&a,1,C_retrieve2(lf[108],C_text("main#extra-shared-libraries")))); /* csc.scm:1031: scheme#append */ t3=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k7256 in k7366 in k7360 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_7258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7258,2,av);} a=C_alloc(3); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7268,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* csc.scm:1056: chicken.string#string-translate* */ t3=C_fast_retrieve(lf[146]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=t1; av2[3]=lf[147]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=t1; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7266 in k7256 in k7366 in k7360 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_7268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7268,2,av);} /* csc.scm:1056: scheme#string-append */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[144]; av2[3]=t1; av2[4]=lf[145]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7270 in k7366 in k7360 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_7272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7272,2,av);} /* ##sys#list->string */ t2=C_fast_retrieve(lf[148]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7274 in k7366 in k7360 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_7276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7276,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7278,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_7278(t5,((C_word*)t0)[3],t1);} /* fold in k7274 in k7366 in k7360 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_fcall f_7278(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7278,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; if(C_truep(C_i_memq(t4,C_retrieve2(lf[141],C_text("main#constant1663"))))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7301,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* csc.scm:1051: fold */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7306,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_u_i_char_whitespacep(t4))){ t6=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); t7=t5; f_7306(t7,t6);} else{ t6=t5; f_7306(t6,C_SCHEME_UNDEFINED);}}}} /* k7299 in fold in k7274 in k7366 in k7360 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_7301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7301,2,av);} a=C_alloc(6); /* csc.scm:1051: cons* */ f_2941(((C_word*)t0)[2],C_make_character(92),C_a_i_list(&a,2,((C_word*)t0)[3],t1));} /* k7304 in fold in k7274 in k7366 in k7360 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_fcall f_7306(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7306,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7313,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* csc.scm:1054: fold */ t5=((C_word*)((C_word*)t0)[5])[1]; f_7278(t5,t2,t4);} /* k7311 in k7304 in fold in k7274 in k7366 in k7360 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_7313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7313,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* main#string-any in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_fcall f_7321(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_7321,3,t1,t2,t3);} a=C_alloc(8); t4=C_i_string_length(t3); t5=t4; t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7330,a[2]=t3,a[3]=t5,a[4]=t2,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_7330(t9,t1,C_fix(0));} /* lp in main#string-any in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_fcall f_7330(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_7330,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_string_ref(((C_word*)t0)[2],t2); t4=t2; t5=C_a_i_fixnum_plus(&a,2,t4,C_fix(1)); if(C_truep(C_i_integer_equalp(t5,((C_word*)t0)[3]))){ /* csc.scm:1065: criteria */ t6=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t6; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7347,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* csc.scm:1066: criteria */ t7=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} /* k7345 in lp in main#string-any in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_7347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7347,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* csc.scm:1067: lp */ t2=((C_word*)((C_word*)t0)[3])[1]; f_7330(t2,((C_word*)t0)[2],((C_word*)t0)[4]);}} /* main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_ccall f_7355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7355,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7362,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7385,tmp=(C_word)a,a+=2,tmp); /* csc.scm:1070: string-any */ f_7321(t3,t4,t2);} /* k7360 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7362,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7368,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7373,tmp=(C_word)a,a+=2,tmp); /* csc.scm:1071: string-any */ f_7321(t2,t3,((C_word*)t0)[2]);}} /* k7366 in k7360 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_7368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7368,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7258,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7272,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7276,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* ##sys#string->list */ t9=C_fast_retrieve(lf[149]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a7372 in k7360 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_7373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7373,3,av);} t3=C_u_i_char_whitespacep(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?t3:C_i_memq(t2,C_retrieve2(lf[141],C_text("main#constant1663")))); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a7384 in main#quote-option in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7385,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_char_equalp(C_make_character(34),t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7394 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7396,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7399,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[119],C_text("main#verbose")))){ /* csc.scm:1087: chicken.base#print */ t4=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_7399(2,av2);}}} /* k7397 in k7394 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_7399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7399,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7402,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[100],C_text("main#dry-run")))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_fix(0); f_7402(2,av2);}} else{ /* csc.scm:1088: chicken.process#system */ t3=C_fast_retrieve(lf[156]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k7400 in k7397 in k7394 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_7402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_7402,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7405,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_eqp(t2,C_fix(0)); if(C_truep(t4)){ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_7405(2,av2);}} else{ t5=*((C_word*)lf[152]+1); t6=*((C_word*)lf[152]+1); t7=C_i_check_port_2(*((C_word*)lf[152]+1),C_fix(2),C_SCHEME_TRUE,lf[153]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7422,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* csc.scm:1090: ##sys#print */ t9=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=lf[155]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[152]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* k7403 in k7400 in k7397 in k7394 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_7405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7405,2,av);} t2=C_eqp(((C_word*)t0)[2],C_fix(0)); if(C_truep(t2)){ t3=lf[150] /* main#last-exit-code */ =C_fix(0);; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_retrieve2(lf[150],C_text("main#last-exit-code")); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=lf[150] /* main#last-exit-code */ =C_fix(1);; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_retrieve2(lf[150],C_text("main#last-exit-code")); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7420 in k7400 in k7397 in k7394 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_7422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7422,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7425,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csc.scm:1090: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7423 in k7420 in k7400 in k7397 in k7394 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in ... */ static void C_ccall f_7425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7425,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7428,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csc.scm:1090: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[154]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7426 in k7423 in k7420 in k7400 in k7397 in k7394 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in ... */ static void C_ccall f_7428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_7428,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7431,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* csc.scm:1090: ##sys#print */ t3=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7429 in k7426 in k7423 in k7420 in k7400 in k7397 in k7394 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in ... */ static void C_ccall f_7431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7431,2,av);} /* csc.scm:1090: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[42]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[42]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k7445 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7447,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7451,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:1080: g1719 */ t3=t2; f_7451(t3,((C_word*)t0)[3],t1);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; f_7396(2,av2);}}} /* g1719 in k7445 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_fcall f_7451(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7451,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7459,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* csc.scm:1085: chicken.process#qs */ t4=C_fast_retrieve(lf[51]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7457 in g1719 in k7445 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_7459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7459,2,av);} /* csc.scm:1084: scheme#string-append */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[160]; av2[3]=t1; av2[4]=lf[161]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_fcall f_7467(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_7467,2,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7475,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=t2; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7396,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_mk_bool(C_WINDOWS_SHELL))){ /* csc.scm:1081: scheme#string-append */ t7=*((C_word*)lf[76]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=lf[158]; av2[3]=t5; av2[4]=lf[159]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7447,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[31],C_text("main#osx")))){ /* csc.scm:1082: chicken.process-context#get-environment-variable */ t8=C_fast_retrieve(lf[162]);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[163]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t8=t7;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_7447(2,av2);}}}} /* k7473 in main#command in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7475,2,av);} if(C_truep(C_i_zerop(t1))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* csc.scm:1097: chicken.base#exit */ t2=C_fast_retrieve(lf[41]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[150],C_text("main#last-exit-code")); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* main#$delete-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_ccall f_7480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7480,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7484,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[119],C_text("main#verbose")))){ /* csc.scm:1101: chicken.base#print */ t4=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[166]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ if(C_truep(C_retrieve2(lf[100],C_text("main#dry-run")))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* csc.scm:1102: chicken.file#delete-file */ t4=C_fast_retrieve(lf[165]);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}} /* k7482 in main#$delete-file in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7484,2,av);} if(C_truep(C_retrieve2(lf[100],C_text("main#dry-run")))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* csc.scm:1102: chicken.file#delete-file */ t2=C_fast_retrieve(lf[165]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k7501 in k6798 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in ... */ static void C_ccall f_7503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_7503,2,av);} a=C_alloc(6); t2=t1; t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[177]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7509,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* csc.scm:1107: ##sys#print */ t6=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[180]; av2[3]=C_SCHEME_FALSE; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7507 in k7501 in k6798 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in ... */ static void C_ccall f_7509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7509,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7533,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* csc.scm:1108: quotewrap */ t4=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; f_3866(3,av2);}} /* k7510 in k7507 in k7501 in k6798 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in ... */ static void C_ccall f_7512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7512,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7515,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* csc.scm:1107: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[42]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[42]+1); av2[1]=t2; av2[2]=C_make_character(32); av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k7513 in k7510 in k7507 in k7501 in k6798 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in ... */ static void C_ccall f_7515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7515,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7518,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7525,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7529,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* csc.scm:1109: chicken.pathname#make-pathname */ t5=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_retrieve2(lf[55],C_text("main#home")); av2[3]=lf[179]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7516 in k7513 in k7510 in k7507 in k7501 in k6798 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in ... */ static void C_ccall f_7518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7518,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7521,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:1107: chicken.base#get-output-string */ t3=C_fast_retrieve(lf[178]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7519 in k7516 in k7513 in k7510 in k7507 in k7501 in k6798 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in ... */ static void C_ccall f_7521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7521,2,av);} /* csc.scm:1106: command */ f_7467(((C_word*)t0)[2],t1);} /* k7523 in k7513 in k7510 in k7507 in k7501 in k6798 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in ... */ static void C_ccall f_7525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7525,2,av);} /* csc.scm:1107: ##sys#print */ t2=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7527 in k7513 in k7510 in k7507 in k7501 in k6798 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in ... */ static void C_ccall f_7529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7529,2,av);} /* csc.scm:1109: quotewrap */ t2=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_3866(3,av2);}} /* k7531 in k7507 in k7501 in k6798 in k6754 in k6751 in k6748 in k6739 in k4463 in k4460 in k4454 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in ... */ static void C_ccall f_7533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7533,2,av);} /* csc.scm:1107: ##sys#print */ t2=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7537 in k6649 in k6634 in k6631 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in ... */ static void C_ccall f_7539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7539,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7544,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:1113: scheme#with-output-to-file */ t3=C_fast_retrieve(lf[215]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a7543 in k7537 in k6649 in k6634 in k6631 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in ... */ static void C_ccall f_7544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_7544,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7552,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=C_a_i_cons(&a,2,lf[212],C_SCHEME_END_OF_LIST); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],t3); t5=C_a_i_cons(&a,2,lf[213],t4); /* csc.scm:28: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[214]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[214]+1); av2[1]=t2; av2[2]=t5; tp(3,av2);}} /* k7550 in a7543 in k7537 in k6649 in k6634 in k6631 in k6495 in k4448 in k4445 in k4442 in k4438 in loop in k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in ... */ static void C_ccall f_7552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7552,2,av);} /* csc.scm:1115: chicken.base#print */ t2=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7568 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_ccall f_7570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7570,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7576,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.base#implicit-exit-handler */ t3=C_fast_retrieve(lf[167]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7574 in k7568 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7576,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7578 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_ccall f_7580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(25,c,5)))){ C_save_and_reclaim((void *)f_7580,2,av);} a=C_alloc(25); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4350,tmp=(C_word)a,a+=2,tmp)); t11=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4357,tmp=(C_word)a,a+=2,tmp)); t12=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4383,tmp=(C_word)a,a+=2,tmp)); t13=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4413,tmp=(C_word)a,a+=2,tmp)); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4429,a[2]=t9,a[3]=t15,a[4]=t3,a[5]=t5,a[6]=t7,tmp=(C_word)a,a+=7,tmp)); t17=((C_word*)t15)[1]; f_4429(t17,((C_word*)t0)[2],t1);} /* k7582 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_ccall f_7584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7584,2,av);} /* csc.scm:1137: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_retrieve2(lf[47],C_text("main#arguments")); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7586 in k4086 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_ccall f_7588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7588,2,av);} if(C_truep(t1)){ t2=t1; /* csc.scm:1138: chicken.string#string-split */ t3=C_fast_retrieve(lf[240]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* csc.scm:1138: chicken.string#string-split */ t2=C_fast_retrieve(lf[240]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[417]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k7593 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in ... */ static void C_fcall f_7595(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7595,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7599,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* csc.scm:246: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[162]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[421]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7597 in k7593 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in ... */ static void C_ccall f_7599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_7599,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7602,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t1)){ t3=t2; t4=t1; t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=C_retrieve2(lf[50],C_text("main#quotewrap")); t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7618,a[2]=t7,a[3]=t8,a[4]=t3,a[5]=t11,a[6]=t13,a[7]=t12,tmp=(C_word)a,a+=8,tmp); /* csc.scm:248: chicken.string#string-split */ t15=C_fast_retrieve(lf[240]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t15; av2[1]=t14; av2[2]=t4; av2[3]=lf[420]; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ /* csc.scm:244: scheme#append */ t3=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k7600 in k7597 in k7593 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7602,2,av);} /* csc.scm:244: scheme#append */ t2=*((C_word*)lf[137]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7616 in k7597 in k7593 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in ... */ static void C_ccall f_7618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_7618,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7621,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7663,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_7663(t6,t2,t1);} /* k7619 in k7616 in k7597 in k7593 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_ccall f_7621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7621,2,av);} a=C_alloc(7); t2=C_i_check_list_2(t1,lf[135]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7629,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_7629(t6,((C_word*)t0)[4],t1);} /* map-loop862 in k7619 in k7616 in k7597 in k7593 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_fcall f_7629(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7629,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7654,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:248: g885 */ t5=*((C_word*)lf[76]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[419]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7652 in map-loop862 in k7619 in k7616 in k7597 in k7593 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in ... */ static void C_ccall f_7654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7654,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7629(t6,((C_word*)t0)[5],t5);} /* map-loop889 in k7616 in k7597 in k7593 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in ... */ static void C_fcall f_7663(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7663,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7688,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* csc.scm:248: g895 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7686 in map-loop889 in k7616 in k7597 in k7593 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in ... */ static void C_ccall f_7688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7688,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7663(t6,((C_word*)t0)[5],t5);} /* k7703 in k4033 in k4003 in k3996 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in ... */ static void C_ccall f_7705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7705,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_7595(t2,C_a_i_list1(&a,1,t1));} /* k7723 in k3991 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in ... */ static void C_ccall f_7725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7725,2,av);} /* csc.scm:143: chicken.string#string-split */ t2=C_fast_retrieve(lf[240]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7727 in k3986 in k3936 in k3931 in k3927 in k3914 in k3910 in k3906 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in ... */ static void C_ccall f_7729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7729,2,av);} /* csc.scm:138: chicken.string#string-split */ t2=C_fast_retrieve(lf[240]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7752 in k3902 in k3898 in k3894 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in ... */ static void C_ccall f_7754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7754,2,av);} /* csc.scm:102: quotewrap */ t2=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_3866(3,av2);}} /* k7770 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in ... */ static void C_ccall f_7772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7772,2,av);} /* csc.scm:98: quotewrap */ t2=C_retrieve2(lf[50],C_text("main#quotewrap"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_3866(3,av2);}} /* k7774 in k3846 in k3842 in k3812 in k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in ... */ static void C_ccall f_7776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7776,2,av);} /* csc.scm:98: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[18],C_text("main#host-bindir")); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7781 in k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in ... */ static void C_ccall f_7783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7783,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[34]); t3=lf[35] /* main#aix */ =t2;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3814,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:73: chicken.platform#software-version */ t5=C_fast_retrieve(lf[247]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7785 in k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in ... */ static void C_ccall f_7787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7787,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[32]); t3=lf[33] /* main#cygwin */ =t2;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7783,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:70: chicken.platform#build-platform */ t5=C_fast_retrieve(lf[373]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7789 in k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in ... */ static void C_ccall f_7791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7791,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[30]); t3=lf[31] /* main#osx */ =t2;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7787,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:69: chicken.platform#software-version */ t5=C_fast_retrieve(lf[247]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7793 in k3786 in k2504 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in ... */ static void C_ccall f_7795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7795,2,av);} a=C_alloc(3); t2=C_eqp(t1,lf[28]); t3=lf[29] /* main#mingw */ =t2;; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7791,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* csc.scm:68: chicken.platform#software-version */ t5=C_fast_retrieve(lf[247]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7804 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in ... */ static void C_ccall f_7806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7806,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7809,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t1; /* egg-environment.scm:121: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=lf[431]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* egg-environment.scm:122: chicken.process-context#current-directory */ t3=C_fast_retrieve(lf[432]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7807 in k7804 in k2501 in k2432 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in ... */ static void C_ccall f_7809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7809,2,av);} /* egg-environment.scm:121: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[431]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7814 in k2428 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in ... */ static void C_ccall f_7816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7816,2,av);} /* egg-environment.scm:97: scheme#string-append */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[11],C_text("main#default-runlibdir")); av2[3]=lf[435]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7819 in k2424 in k2420 in k2416 in k2412 in k2408 in k2404 in k2400 in k2396 in k2392 in k2388 in k2384 in k2380 in k2376 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in ... */ static void C_ccall f_7821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7821,2,av);} /* egg-environment.scm:94: scheme#string-append */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[10],C_text("main#default-libdir")); av2[3]=lf[437]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7824 in k2372 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in ... */ static void C_ccall f_7826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7826,2,av);} /* egg-environment.scm:77: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[132]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[13],C_text("main#default-bindir")); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7828 in k2368 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in ... */ static void C_ccall f_7830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7830,2,av);} /* egg-environment.scm:74: scheme#string-append */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[13],C_text("main#default-bindir")); av2[3]=lf[438]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7832 in k2364 in k2360 in k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in ... */ static void C_ccall f_7834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7834,2,av);} /* egg-environment.scm:71: scheme#string-append */ t2=*((C_word*)lf[76]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[13],C_text("main#default-bindir")); av2[3]=lf[439]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7839 in k2352 in k2348 in k2344 in k2340 in k2336 in k2332 in k2328 in k2324 in k2320 in k2316 in k2312 in k2308 in k2304 in k2300 in k2294 in k2288 in k2285 in k2282 in k2279 in k2276 in k2273 in ... */ static void C_ccall f_7841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7841,2,av);} a=C_alloc(6); t2=C_eqp(t1,lf[15]); t3=(C_truep(t2)?C_mk_bool(C_WINDOWS_SHELL):lf[16]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2362,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_INSTALL_PREFIX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2205))){ C_save(t1); C_rereclaim2(2205*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,442); lf[0]=C_h_intern(&lf[0],5, C_text("main#")); lf[15]=C_h_intern(&lf[15],7, C_text("windows")); lf[16]=C_h_intern(&lf[16],4, C_text("unix")); lf[28]=C_h_intern(&lf[28],7, C_text("mingw32")); lf[30]=C_h_intern(&lf[30],6, C_text("macosx")); lf[32]=C_h_intern(&lf[32],6, C_text("cygwin")); lf[34]=C_h_intern(&lf[34],3, C_text("aix")); lf[37]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001linux\376\003\000\000\002\376\001\000\000\006\001netbsd\376\003\000\000\002\376\001\000\000\007\001freebsd\376\003\000\000\002\376\001\000\000\007\001solaris\376\003\000\000\002\376\001\000\000\007\001" "openbsd\376\003\000\000\002\376\001\000\000\004\001hurd\376\003\000\000\002\376\001\000\000\005\001haiku\376\377\016")); lf[39]=C_h_intern(&lf[39],20, C_text("##sys#standard-error")); lf[40]=C_h_intern(&lf[40],7, C_text("fprintf")); lf[41]=C_h_intern(&lf[41],17, C_text("chicken.base#exit")); lf[42]=C_h_intern(&lf[42],18, C_text("##sys#write-char-0")); lf[43]=C_h_intern(&lf[43],22, C_text("chicken.format#fprintf")); lf[44]=C_h_intern(&lf[44],11, C_text("##sys#print")); lf[45]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[46]=C_h_intern(&lf[46],19, C_text("##sys#peek-c-string")); lf[48]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-host")); lf[51]=C_h_intern(&lf[51],18, C_text("chicken.process#qs")); lf[52]=C_h_intern(&lf[52],31, C_text("chicken.string#string-translate")); lf[53]=C_h_intern(&lf[53],35, C_text("chicken.pathname#normalize-pathname")); lf[62]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003obj")); lf[63]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001o")); lf[66]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001a")); lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[70]=C_h_intern(&lf[70],28, C_text("##sys#load-dynamic-extension")); lf[76]=C_h_intern(&lf[76],20, C_text("scheme#string-append")); lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lib")); lf[110]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\014/usr/include\376\003\000\000\002\376B\000\000\000\376\377\016")); lf[127]=C_h_intern(&lf[127],32, C_text("chicken.platform#repository-path")); lf[129]=C_h_intern(&lf[129],22, C_text("chicken.load#find-file")); lf[130]=C_h_intern(&lf[130],16, C_text("##sys#setup-mode")); lf[131]=C_h_intern(&lf[131],25, C_text("chicken.file#file-exists\077")); lf[132]=C_h_intern(&lf[132],30, C_text("chicken.pathname#make-pathname")); lf[135]=C_h_intern(&lf[135],3, C_text("map")); lf[136]=C_h_intern(&lf[136],33, C_text("chicken.string#string-intersperse")); lf[137]=C_h_intern(&lf[137],13, C_text("scheme#append")); lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-l")); lf[142]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000#\376\377\016")); lf[144]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[145]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[146]=C_h_intern(&lf[146],32, C_text("chicken.string#string-translate\052")); lf[147]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376B\000\000\001\042\376B\000\000\002\134\042\376\377\016")); lf[148]=C_h_intern(&lf[148],18, C_text("##sys#list->string")); lf[149]=C_h_intern(&lf[149],18, C_text("##sys#string->list")); lf[152]=C_h_intern(&lf[152],21, C_text("##sys#standard-output")); lf[153]=C_h_intern(&lf[153],6, C_text("printf")); lf[154]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000;\012Error: shell command terminated with non-zero exit status ")); lf[156]=C_h_intern(&lf[156],22, C_text("chicken.process#system")); lf[157]=C_h_intern(&lf[157],18, C_text("chicken.base#print")); lf[158]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[159]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[160]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037/usr/bin/env DYLD_LIBRARY_PATH=")); lf[161]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[162]=C_h_intern(&lf[162],48, C_text("chicken.process-context#get-environment-variable")); lf[163]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021DYLD_LIBRARY_PATH")); lf[165]=C_h_intern(&lf[165],24, C_text("chicken.file#delete-file")); lf[166]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003rm ")); lf[167]=C_h_intern(&lf[167],34, C_text("chicken.base#implicit-exit-handler")); lf[168]=C_decode_literal(C_heaptop,C_text("\376B\000\000#not enough arguments to option `~A\047")); lf[169]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\013-dynamiclib\376\377\016")); lf[170]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\007-bundle\376\003\000\000\002\376B\000\000\034-headerpad_max_install_names\376\377\016")); lf[171]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\007-shared\376\377\016")); lf[172]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\012-DC_SHARED\376\377\016")); lf[173]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-feature")); lf[174]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026chicken-compile-shared")); lf[175]=C_h_intern(&lf[175],43, C_text("chicken.pathname#pathname-replace-extension")); lf[176]=C_h_intern(&lf[176],8, C_text("for-each")); lf[177]=C_h_intern(&lf[177],6, C_text("format")); lf[178]=C_h_intern(&lf[178],30, C_text("chicken.base#get-output-string")); lf[179]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005mac.r")); lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\000 /Developer/Tools/Rez -t APPL -o ")); lf[181]=C_h_intern(&lf[181],31, C_text("chicken.base#open-output-string")); lf[182]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 -change ")); lf[183]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.dylib ")); lf[184]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[185]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020@executable_path")); lf[186]=C_h_intern(&lf[186],19, C_text("##sys#string-append")); lf[187]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006.dylib")); lf[188]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003-o ")); lf[189]=C_h_intern(&lf[189],15, C_text("scheme#string=\077")); lf[190]=C_h_intern(&lf[190],14, C_text("scheme#reverse")); lf[191]=C_h_intern(&lf[191],23, C_text("chicken.string#->string")); lf[192]=C_decode_literal(C_heaptop,C_text("\376B\000\000#could not find linked extension: ~A")); lf[193]=C_h_intern(&lf[193],27, C_text("scheme#with-input-from-file")); lf[194]=C_h_intern(&lf[194],11, C_text("scheme#read")); lf[195]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004link")); lf[196]=C_h_intern(&lf[196],27, C_text("chicken.string#string-chomp")); lf[197]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.static")); lf[198]=C_h_intern(&lf[198],41, C_text("chicken.pathname#pathname-strip-extension")); lf[199]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.old")); lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004move")); lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002mv")); lf[202]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005.old\047")); lf[203]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030\047 - renaming source to `")); lf[204]=C_decode_literal(C_heaptop,C_text("\376B\000\0001Warning: output file will overwrite source file `")); lf[205]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-c")); lf[206]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003g++")); lf[207]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022-Wno-write-strings")); lf[208]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[209]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003-o ")); lf[210]=C_decode_literal(C_heaptop,C_text("\376B\000\000Pobject file generated from `~a\047 will overwrite explicitly given object file" " `~a\047")); lf[211]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[212]=C_decode_literal(C_heaptop,C_text("\376B\000\001\232\042\042 type=\042\042win32\042\042/>\134r\134n\042\012 \042 <ms_asmv2:trustInfo xmlns:ms_asmv2=\042\042urn:sche" "mas-microsoft-com:asm.v2\042\042>\134r\134n\042\012 \042 <ms_asmv2:security>\134r\134n\042\012 \042 <ms_as" "mv2:requestedPrivileges>\134r\134n\042\012 \042 <ms_asmv2:requestedExecutionLevel level" "=\042\042asInvoker\042\042 uiAccess=\042\042false\042\042/>\134r\134n\042\012 \042 </ms_asmv2:requestedPrivileges" ">\134r\134n\042\012 \042 </ms_asmv2:security>\134r\134n\042\012 \042 </ms_asmv2:trustInfo>\134r\134n\042\012 \042</ass" "embly>\134r\134n\042\012END")); lf[213]=C_decode_literal(C_heaptop,C_text("\376B\000\001\0031 24 MOVEABLE PURE\012BEGIN\012 \042<\077xml version=\042\0421.0\042\042 encoding=\042\042UTF-8\042\042 standa" "lone=\042\042yes\042\042\077>\134r\134n\042\012 \042<assembly xmlns=\042\042urn:schemas-microsoft-com:asm.v1\042\042 mani" "festVersion=\042\0421.0\042\042>\134r\134n\042\012 \042 <assemblyIdentity version=\042\0421.0.0.0\042\042 processorAr" "chitecture=\042\042\052\042\042 name=\042\042")); lf[214]=C_h_intern(&lf[214],21, C_text("##sys#print-to-string")); lf[215]=C_h_intern(&lf[215],26, C_text("scheme#with-output-to-file")); lf[216]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013generating ")); lf[217]=C_h_intern(&lf[217],30, C_text("chicken.pathname#pathname-file")); lf[218]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002rc")); lf[219]=C_h_intern(&lf[219],30, C_text("chicken.platform#software-type")); lf[220]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031no source files specified")); lf[221]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011bogus.scm")); lf[222]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004link")); lf[223]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[224]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\003-:d\376\377\016")); lf[225]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\010-feature\376\003\000\000\002\376B\000\000\025chicken-scheme-to-c++\376\377\016")); lf[226]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\010-feature\376\003\000\000\002\376B\000\000\026chicken-scheme-to-objc\376\377\016")); lf[227]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017-emit-link-file")); lf[228]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004link")); lf[229]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017-emit-link-file")); lf[230]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\012-to-stdout\376\377\016")); lf[231]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014-output-file")); lf[232]=C_decode_literal(C_heaptop,C_text("\376B\000\000KC file generated from `~a\047 will overwrite explicitly given source file `~a\047" )); lf[233]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003cpp")); lf[234]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001m")); lf[235]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001c")); lf[236]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-dynamic")); lf[237]=C_h_intern(&lf[237],14, C_text("scheme#newline")); lf[238]=C_h_intern(&lf[238],19, C_text("chicken.base#print\052")); lf[239]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-L")); lf[240]=C_h_intern(&lf[240],27, C_text("chicken.string#string-split")); lf[241]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002:;")); lf[242]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026CHICKEN_C_LIBRARY_PATH")); lf[243]=C_h_intern(&lf[243],7, C_text("freebsd")); lf[244]=C_h_intern(&lf[244],7, C_text("openbsd")); lf[245]=C_h_intern(&lf[245],6, C_text("netbsd")); lf[246]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015-Wl,-z,origin")); lf[247]=C_h_intern(&lf[247],33, C_text("chicken.platform#software-version")); lf[248]=C_h_intern(&lf[248],19, C_text("chicken.string#conc")); lf[249]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006-Wl,-R")); lf[250]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007$ORIGIN")); lf[251]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-L")); lf[252]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007-Wl,-R\042")); lf[253]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[254]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-L")); lf[255]=C_h_intern(&lf[255],5, C_text("-help")); lf[256]=C_h_intern(&lf[256],6, C_text("--help")); lf[257]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\047.\012")); lf[258]=C_decode_literal(C_heaptop,C_text("\376B\000)X\047 is a driver program for the CHICKEN compiler. Files given on the\012 comman" "d line are translated, compiled or linked as needed.\012\012 FILENAME is a Scheme sou" "rce file name with optional extension or a\012 C/C++/Objective-C source, object or" " library file name with extension. OPTION\012 may be one of the following:\012\012 Gene" "ral options:\012\012 -h -help display this text and exit\012 " "-v -verbose show compiler notes and tool-invocations\012 -vv " " display information about translation\012 " " progress\012 -vvv display informa" "tion about all compilation\012 stages\012 -versi" "on display Scheme compiler version and exit\012 -release " " display release number and exit\012\012 File and pathname option" "s:\012\012 -o -output-file FILENAME specifies target executable name\012 -I -" "include-path PATHNAME specifies alternative path for included\012 " " files\012 -to-stdout write compiler t" "o stdout (implies -t)\012 -s -shared -dynamic generate dynamically lo" "adable shared object\012 file\012\012 Language option" "s:\012\012 -D -DSYMBOL -feature SYMBOL register feature identifier\012 -no-featu" "re SYMBOL disable builtin feature identifier\012 -c++ " " compile via a C++ source file (.cpp) \012 -objc " " compile via Objective-C source file (.m)\012\012 Syntax related options:\012\012 -i" " -case-insensitive don\047t preserve case of read symbols \012 -K -key" "word-style STYLE enable alternative keyword-syntax\012 " " (prefix, suffix or none)\012 -no-parentheses-synonyms disabl" "es list delimiter synonyms\012 -no-symbol-escape disables support f" "or escaped symbols\012 -r5rs-syntax disables the CHICKEN exten" "sions to\012 R5RS syntax\012 -compile-syntax " " macros are made available at run-time\012 -j -emit-import-library MO" "DULE write compile-time module information into\012 " " separate file\012 -J -emit-all-import-libraries emit import-libraries for a" "ll defined modules\012 -no-module-registration do not generate module reg" "istration code\012 -no-compiler-syntax disable expansion of compiler-" "macros\012 -m -module NAME wrap compiled code in a module\012\012 Tran" "slation options:\012\012 -x -explicit-use do not use units `library\047 " "and `eval\047 by\012 default\012 -P -check-syntax " " stop compilation after macro-expansion\012 -A -analyze-only " " stop compilation after first analysis pass\012\012 Debugging options:\012\012 -w " " -no-warnings disable warnings\012 -d0 -d1 -d2 -d3 -debug-level NU" "MBER\012 set level of available debugging informa" "tion\012 -no-trace disable rudimentary debugging informatio" "n\012 -debug-info enable debug-information in compiled code f" "or use\012 with an external debugger\012 -profil" "e executable emits profiling information \012 -accumulate-" "profile executable emits profiling information in\012 " " append mode\012 -profile-name FILENAME name of the gene" "rated profile information\012 file\012 -consult-" "types-file FILENAME load additional type database\012\012 Optimization options:\012\012 " " -O -O0 -O1 -O2 -O3 -O4 -O5 -optimize-level NUMBER\012 " " enable certain sets of optimization options\012 -optimize-leaf-routines " " enable leaf routine optimization\012 -no-usual-integrations standa" "rd procedures may be redefined\012 -u -unsafe disable safety" " checks\012 -local assume globals are only modified in c" "urrent\012 file\012 -b -block " " enable block-compilation\012 -disable-interrupts disable interrupt" "s in compiled code\012 -f -fixnum-arithmetic assume all numbers are fix" "nums\012 -disable-stack-overflow-checks disables detection of stack-overflows\012 " " -inline enable inlining\012 -inline-limit LIMIT " " set inlining threshold\012 -inline-global enable cross-modul" "e inlining\012 -specialize perform type-based specialization " "of primitive calls\012 -oi -emit-inline-file FILENAME generate file with globall" "y inlinable\012 procedures (implies -inline -loc" "al)\012 -consult-inline-file FILENAME explicitly load inline file\012 -ot -emi" "t-types-file FILENAME write type-declaration information into file\012 -no-argc-" "checks disable argument count checks\012 -no-bound-checks " " disable bound variable checks\012 -no-procedure-checks disable " "procedure call checks\012 -no-procedure-checks-for-usual-bindings\012 " " disable procedure call checks only for usual\012 " " bindings\012 -no-procedure-checks-for-toplevel-bindings\012 " " disable procedure call checks for toplevel\012 " " bindings\012 -strict-types assu" "me variable do not change their type\012 -clustering combine " "groups of local procedures into dispatch\012 lo" "op\012 -lfa2 perform additional lightweight flow-analys" "is pass\012\012 Configuration options:\012\012 -unit NAME compile fi" "le as a library unit\012 -uses NAME declare library unit as " "used.\012 -heap-size NUMBER specifies heap-size of compiled executa" "ble\012 -nursery NUMBER -stack-size NUMBER\012 s" "pecifies nursery size of compiled\012 executable\012" " -X -extend FILENAME load file before compilation commences\012 -p" "relude EXPRESSION add expression to beginning of source file\012 -pos" "tlude EXPRESSION add expression to end of source file\012 -prologue FI" "LENAME include file before main source file\012 -epilogue FILENAME " " include file after main source file\012\012 -e -embedded " " compile as embedded\012 (don\047t generate `main" "()\047)\012 -gui compile as GUI application\012 -link NAM" "E link extension with compiled executable\012 " " (implies -uses)\012 -R -require-extension NAME require ext" "ension and import in compiled\012 code\012 -dll " "-library compile multiple units into a dynamic\012 " " library\012 -libdir DIRECTORY override director" "y for runtime library\012\012 Options to other passes:\012\012 -C OPTION " " pass option to C compiler\012 -L OPTION pass option t" "o linker\012 -I<DIR> pass \134\042-I<DIR>\134\042 to C compiler\012 " " (add include path)\012 -L<DIR> " " pass \134\042-L<DIR>\134\042 to linker\012 (add library" " path)\012 -k keep intermediate files\012 -c " " stop after compilation to object files\012 -t " " stop after translation to C\012 -cc COMPILER se" "lect other C compiler than the default\012 -cxx COMPILER select" " other C++ compiler than the default\012 -ld COMPILER select o" "ther linker than the default \012 -static link with stati" "c CHICKEN libraries and\012 extensions (if possi" "ble)\012 -F<DIR> pass \134\042-F<DIR>\134\042 to C compiler\012 " " (add framework header path on Mac OS X)\012 -framewor" "k NAME passed to linker on Mac OS X\012 -rpath PATHNAME " " add directory to runtime library search path\012 -Wl,... " " pass linker options\012 -strip strip resulting bin" "ary\012\012 Inquiry options:\012\012 -home show home-directory " "(where support files go)\012 -cflags show required C-comp" "iler flags and exit\012 -ldflags show required linker flag" "s and exit\012 -libs show required libraries and exit\012 " " -cc-name show name of default C compiler used\012 -cxx-" "name show name of default C++ compiler used\012 -ld-name " " show name of default linker used\012 -dry-run " " just show commands executed, don\047t run them\012 " " (implies `-v\047)\012\012 Obscure options:\012\012 -debug MODES d" "isplay debugging output for the given modes\012 -compiler PATHNAME u" "se other compiler than default `chicken\047\012 -raw do n" "ot generate implicit init- and exit code\012 -emit-external-prototypes-first\012 " " emit prototypes for callbacks before foreign\012 " " declarations\012 -regenerate-import-libraries " " emit import libraries even when unchanged\012 -ignore-repository do" " not refer to repository for extensions\012 -keep-shadowed-macros do no" "t remove shadowed macro\012 -host compile for host when" " configured for\012 cross-compiling\012 -private" "-repository load extensions from executable path\012 -deployed " " link support file to be used from a deployed \012 " " executable (sets `rpath\047 accordingly, if supported\012 " " on this platform)\012 -no-elevation emb" "ed manifest on Windows to supress elevation\012 " "warnings for programs named `install\047 or `setup\047\012\012 Options can be collapsed if " "unambiguous, so\012\012 -vkfO\012\012 is the same as\012\012 -v -k -fixnum-arithmetic -opti" "mize\012\012 The contents of the environment variable CSC_OPTIONS are implicitly pass" "ed to\012 every invocation of `")); lf[259]=C_decode_literal(C_heaptop,C_text("\376B\000\000! [OPTION ...] [FILENAME ...]\012\012 `")); lf[260]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007Usage: ")); lf[261]=C_h_intern(&lf[261],8, C_text("-release")); lf[262]=C_h_intern(&lf[262],32, C_text("chicken.platform#chicken-version")); lf[263]=C_h_intern(&lf[263],8, C_text("-version")); lf[264]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 -version")); lf[265]=C_h_intern(&lf[265],4, C_text("-c++")); lf[266]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017-no-cpp-precomp")); lf[267]=C_h_intern(&lf[267],5, C_text("-objc")); lf[268]=C_h_intern(&lf[268],7, C_text("-static")); lf[269]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007-static")); lf[270]=C_h_intern(&lf[270],7, C_text("-cflags")); lf[271]=C_h_intern(&lf[271],8, C_text("-ldflags")); lf[272]=C_h_intern(&lf[272],8, C_text("-cc-name")); lf[273]=C_h_intern(&lf[273],9, C_text("-cxx-name")); lf[274]=C_h_intern(&lf[274],8, C_text("-ld-name")); lf[275]=C_h_intern(&lf[275],5, C_text("-home")); lf[276]=C_h_intern(&lf[276],5, C_text("-libs")); lf[277]=C_h_intern(&lf[277],2, C_text("-v")); lf[278]=C_h_intern(&lf[278],8, C_text("-verbose")); lf[279]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-verbose")); lf[280]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-v")); lf[281]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-v")); lf[282]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-Q")); lf[283]=C_h_intern(&lf[283],2, C_text("-w")); lf[284]=C_h_intern(&lf[284],12, C_text("-no-warnings")); lf[285]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-w")); lf[286]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014-no-warnings")); lf[287]=C_h_intern(&lf[287],2, C_text("-A")); lf[288]=C_h_intern(&lf[288],13, C_text("-analyze-only")); lf[289]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015-analyze-only")); lf[290]=C_h_intern(&lf[290],2, C_text("-P")); lf[291]=C_h_intern(&lf[291],13, C_text("-check-syntax")); lf[292]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015-check-syntax")); lf[293]=C_h_intern(&lf[293],2, C_text("-k")); lf[294]=C_h_intern(&lf[294],2, C_text("-c")); lf[295]=C_h_intern(&lf[295],2, C_text("-t")); lf[296]=C_h_intern(&lf[296],2, C_text("-e")); lf[297]=C_h_intern(&lf[297],9, C_text("-embedded")); lf[298]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014-DC_EMBEDDED")); lf[299]=C_h_intern(&lf[299],5, C_text("-link")); lf[300]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[301]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-uses")); lf[302]=C_h_intern(&lf[302],7, C_text("-libdir")); lf[303]=C_h_intern(&lf[303],18, C_text("-require-extension")); lf[304]=C_h_intern(&lf[304],2, C_text("-R")); lf[305]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022-require-extension")); lf[306]=C_h_intern(&lf[306],19, C_text("-private-repository")); lf[307]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026-DC_PRIVATE_REPOSITORY")); lf[308]=C_h_intern(&lf[308],18, C_text("-ignore-repository")); lf[309]=C_h_intern(&lf[309],11, C_text("-setup-mode")); lf[310]=C_h_intern(&lf[310],13, C_text("-no-elevation")); lf[311]=C_h_intern(&lf[311],4, C_text("-gui")); lf[312]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007-DC_GUI")); lf[313]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012-lkernel32")); lf[314]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-luser32")); lf[315]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007-lgdi32")); lf[316]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011-mwindows")); lf[317]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012chicken.rc")); lf[318]=C_h_intern(&lf[318],9, C_text("-deployed")); lf[319]=C_h_intern(&lf[319],10, C_text("-framework")); lf[320]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012-framework")); lf[321]=C_h_intern(&lf[321],2, C_text("-o")); lf[322]=C_h_intern(&lf[322],12, C_text("-output-file")); lf[323]=C_h_intern(&lf[323],2, C_text("-O")); lf[324]=C_h_intern(&lf[324],3, C_text("-O1")); lf[325]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017-optimize-level")); lf[326]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0011")); lf[327]=C_h_intern(&lf[327],3, C_text("-O0")); lf[328]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017-optimize-level")); lf[329]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0010")); lf[330]=C_h_intern(&lf[330],3, C_text("-O2")); lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017-optimize-level")); lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0012")); lf[333]=C_h_intern(&lf[333],3, C_text("-O3")); lf[334]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017-optimize-level")); lf[335]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0013")); lf[336]=C_h_intern(&lf[336],3, C_text("-O4")); lf[337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017-optimize-level")); lf[338]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0014")); lf[339]=C_h_intern(&lf[339],3, C_text("-O5")); lf[340]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017-optimize-level")); lf[341]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0015")); lf[342]=C_h_intern(&lf[342],3, C_text("-d0")); lf[343]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014-debug-level")); lf[344]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0010")); lf[345]=C_h_intern(&lf[345],3, C_text("-d1")); lf[346]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014-debug-level")); lf[347]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0011")); lf[348]=C_h_intern(&lf[348],3, C_text("-d2")); lf[349]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014-debug-level")); lf[350]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0012")); lf[351]=C_h_intern(&lf[351],3, C_text("-d3")); lf[352]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014-debug-level")); lf[353]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0013")); lf[354]=C_h_intern(&lf[354],6, C_text("-debug")); lf[355]=C_h_intern(&lf[355],8, C_text("-dry-run")); lf[356]=C_h_intern(&lf[356],2, C_text("-s")); lf[357]=C_h_intern(&lf[357],4, C_text("-dll")); lf[358]=C_h_intern(&lf[358],8, C_text("-library")); lf[359]=C_h_intern(&lf[359],9, C_text("-compiler")); lf[360]=C_h_intern(&lf[360],3, C_text("-cc")); lf[361]=C_h_intern(&lf[361],4, C_text("-cxx")); lf[362]=C_h_intern(&lf[362],3, C_text("-ld")); lf[363]=C_h_intern(&lf[363],2, C_text("-I")); lf[364]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015-include-path")); lf[365]=C_h_intern(&lf[365],2, C_text("-C")); lf[366]=C_h_intern(&lf[366],6, C_text("-strip")); lf[367]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-s")); lf[368]=C_h_intern(&lf[368],2, C_text("-L")); lf[369]=C_h_intern(&lf[369],6, C_text("-rpath")); lf[370]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006-Wl,-R")); lf[371]=C_h_intern(&lf[371],3, C_text("gnu")); lf[372]=C_h_intern(&lf[372],5, C_text("clang")); lf[373]=C_h_intern(&lf[373],31, C_text("chicken.platform#build-platform")); lf[374]=C_h_intern(&lf[374],5, C_text("-host")); lf[375]=C_h_intern(&lf[375],3, C_text("-oi")); lf[376]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021-emit-inline-file")); lf[377]=C_h_intern(&lf[377],3, C_text("-ot")); lf[378]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020-emit-types-file")); lf[379]=C_h_intern(&lf[379],1, C_text("-")); lf[380]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001a")); lf[381]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\001-\376\377\016")); lf[382]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001-h\376\003\000\000\002\376B\000\000\005-help\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001-s\376\003\000\000\002\376B\000\000\007-shared\376\377\016\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\002\001-m\376\003\000\000\002\376B\000\000\007-module\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001-P\376\003\000\000\002\376B\000\000\015-check-syntax\376\377\016\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\002\001-f\376\003\000\000\002\376B\000\000\022-fixnum-arithmetic\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001-D\376\003\000\000\002\376B\000\000\010-featur" "e\376\377\016\376\003\000\000\002\376\003\000\000\002\376\016\000\000\002\376\377\001\000\000\000\000\376\377\001\377\377\377\377\376\003\000\000\002\376B\000\000\021-case-insensitive\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001-" "K\376\003\000\000\002\376B\000\000\016-keyword-style\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001-X\376\003\000\000\002\376B\000\000\007-extend\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\002\001-J\376\003\000\000\002\376B\000\000\032-emit-all-import-libraries\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001-N\376\003\000\000\002\376B\000\000\027-no-modul" "e-registration\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001-x\376\003\000\000\002\376B\000\000\015-explicit-use\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001-u\376" "\003\000\000\002\376B\000\000\007-unsafe\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001-j\376\003\000\000\002\376B\000\000\024-emit-import-library\376\377\016\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\002\001-b\376\003\000\000\002\376B\000\000\006-block\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001-types\376\003\000\000\002\376B\000\000\023-consult-types-file\376\377" "\016\376\377\016")); lf[383]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\015\001-explicit-use\376\003\000\000\002\376\001\000\000\011\001-no-trace\376\003\000\000\002\376\001\000\000\014\001-no-warnings\376\003\000\000\002\376\001\000\000\026\001-n" "o-usual-integrations\376\003\000\000\002\376\001\000\000\027\001-optimize-leaf-routines\376\003\000\000\002\376\001\000\000\007\001-unsafe\376\003\000\000\002\376\001\000" "\000\006\001-block\376\003\000\000\002\376\001\000\000\023\001-disable-interrupts\376\003\000\000\002\376\001\000\000\022\001-fixnum-arithmetic\376\003\000\000\002\376\001\000\000\012\001-" "to-stdout\376\003\000\000\002\376\001\000\000\010\001-profile\376\003\000\000\002\376\001\000\000\004\001-raw\376\003\000\000\002\376\001\000\000\023\001-accumulate-profile\376\003\000\000\002\376\001" "\000\000\015\001-check-syntax\376\003\000\000\002\376\001\000\000\021\001-case-insensitive\376\003\000\000\002\376\001\000\000\007\001-shared\376\003\000\000\002\376\001\000\000\017\001-compi" "le-syntax\376\003\000\000\002\376\001\000\000\017\001-no-lambda-info\376\003\000\000\002\376\001\000\000\010\001-dynamic\376\003\000\000\002\376\001\000\000\036\001-disable-stack-" "overflow-checks\376\003\000\000\002\376\001\000\000\006\001-local\376\003\000\000\002\376\001\000\000\037\001-emit-external-prototypes-first\376\003\000\000\002\376" "\001\000\000\007\001-inline\376\003\000\000\002\376\001\000\000\010\001-release\376\003\000\000\002\376\001\000\000\015\001-analyze-only\376\003\000\000\002\376\001\000\000\025\001-keep-shadowed" "-macros\376\003\000\000\002\376\001\000\000\016\001-inline-global\376\003\000\000\002\376\001\000\000\022\001-ignore-repository\376\003\000\000\002\376\001\000\000\021\001-no-symb" "ol-escape\376\003\000\000\002\376\001\000\000\030\001-no-parentheses-synonyms\376\003\000\000\002\376\001\000\000\014\001-r5rs-syntax\376\003\000\000\002\376\001\000\000\017\001-n" "o-argc-checks\376\003\000\000\002\376\001\000\000\020\001-no-bound-checks\376\003\000\000\002\376\001\000\000\024\001-no-procedure-checks\376\003\000\000\002\376\001\000\000" "\023\001-no-compiler-syntax\376\003\000\000\002\376\001\000\000\032\001-emit-all-import-libraries\376\003\000\000\002\376\001\000\000\015\001-no-elevati" "on\376\003\000\000\002\376\001\000\000\027\001-no-module-registration\376\003\000\000\002\376\001\000\000\047\001-no-procedure-checks-for-usual-bi" "ndings\376\003\000\000\002\376\001\000\000\034\001-regenerate-import-libraries\376\003\000\000\002\376\001\000\000\013\001-specialize\376\003\000\000\002\376\001\000\000\015\001-s" "trict-types\376\003\000\000\002\376\001\000\000\013\001-clustering\376\003\000\000\002\376\001\000\000\005\001-lfa2\376\003\000\000\002\376\001\000\000\013\001-debug-info\376\003\000\000\002\376\001\000\000" "\052\001-no-procedure-checks-for-toplevel-bindings\376\377\016")); lf[384]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001-debug\376\003\000\000\002\376\001\000\000\012\001-heap-size\376\003\000\000\002\376\001\000\000\010\001-nursery\376\003\000\000\002\376\001\000\000\013\001-stack-size\376" "\003\000\000\002\376\001\000\000\011\001-compiler\376\003\000\000\002\376\001\000\000\005\001-unit\376\003\000\000\002\376\001\000\000\005\001-uses\376\003\000\000\002\376\001\000\000\016\001-keyword-style\376\003\000\000" "\002\376\001\000\000\017\001-optimize-level\376\003\000\000\002\376\001\000\000\015\001-include-path\376\003\000\000\002\376\001\000\000\016\001-database-size\376\003\000\000\002\376\001\000\000" "\007\001-extend\376\003\000\000\002\376\001\000\000\010\001-prelude\376\003\000\000\002\376\001\000\000\011\001-postlude\376\003\000\000\002\376\001\000\000\011\001-prologue\376\003\000\000\002\376\001\000\000\011\001-" "epilogue\376\003\000\000\002\376\001\000\000\017\001-emit-link-file\376\003\000\000\002\376\001\000\000\015\001-inline-limit\376\003\000\000\002\376\001\000\000\015\001-profile-na" "me\376\003\000\000\002\376\001\000\000\021\001-emit-inline-file\376\003\000\000\002\376\001\000\000\024\001-consult-inline-file\376\003\000\000\002\376\001\000\000\020\001-emit-ty" "pes-file\376\003\000\000\002\376\001\000\000\023\001-consult-types-file\376\003\000\000\002\376\001\000\000\010\001-feature\376\003\000\000\002\376\001\000\000\014\001-debug-level" "\376\003\000\000\002\376\001\000\000\024\001-emit-import-library\376\003\000\000\002\376\001\000\000\007\001-module\376\003\000\000\002\376\001\000\000\005\001-link\376\003\000\000\002\376\001\000\000\013\001-no-" "feature\376\377\016")); lf[385]=C_h_intern(&lf[385],18, C_text("chicken.base#error")); lf[386]=C_decode_literal(C_heaptop,C_text("\376B\000\000-bad -L argument, <DIR> starts with whitespace")); lf[387]=C_decode_literal(C_heaptop,C_text("\376B\000\000-bad -I argument: <DIR> starts with whitespace")); lf[388]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-feature")); lf[389]=C_h_intern(&lf[389],16, C_text("scheme#substring")); lf[390]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001-")); lf[391]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid option `~A\047")); lf[392]=C_h_intern(&lf[392],5, C_text("foldr")); lf[393]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid option `~A\047")); lf[394]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004-Wl,")); lf[395]=C_h_intern(&lf[395],35, C_text("chicken.pathname#decompose-pathname")); lf[396]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001h")); lf[397]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001c")); lf[398]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002rc")); lf[399]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003cpp")); lf[400]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001C")); lf[401]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002cc")); lf[402]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003cxx")); lf[403]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003hpp")); lf[404]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017-no-cpp-precomp")); lf[405]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001m")); lf[406]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001M")); lf[407]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002mm")); lf[408]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030file `~A\047 does not exist")); lf[409]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004.scm")); lf[410]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-:")); lf[411]=C_h_intern(&lf[411],15, C_text("-optimize-level")); lf[412]=C_h_intern(&lf[412],15, C_text("-benchmark-mode")); lf[413]=C_h_intern(&lf[413],10, C_text("-to-stdout")); lf[414]=C_h_intern(&lf[414],7, C_text("-shared")); lf[415]=C_h_intern(&lf[415],8, C_text("-dynamic")); lf[416]=C_h_intern(&lf[416],21, C_text("scheme#string->symbol")); lf[417]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[418]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013CSC_OPTIONS")); lf[419]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-I")); lf[420]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002:;")); lf[421]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026CHICKEN_C_INCLUDE_PATH")); lf[422]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-I")); lf[423]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030PHhsfiENxubvwAOeWkctgSJM")); lf[424]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\005-DPIC\376\377\016")); lf[425]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\005-fPIC\376\003\000\000\002\376B\000\000\005-DPIC\376\377\016")); lf[426]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007static.")); lf[427]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007static.")); lf[428]=C_h_intern(&lf[428],25, C_text("chicken.platform#feature\077")); lf[429]=C_h_intern_kw(&lf[429],13, C_text("cross-chicken")); lf[430]=C_h_intern(&lf[430],46, C_text("chicken.process-context#command-line-arguments")); lf[431]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017chicken-install")); lf[432]=C_h_intern(&lf[432],41, C_text("chicken.process-context#current-directory")); lf[433]=C_h_intern(&lf[433],39, C_text("chicken.platform#system-cache-directory")); lf[434]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021CHICKEN_EGG_CACHE")); lf[435]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011/chicken/")); lf[436]=C_h_intern(&lf[436],20, C_text("##sys#fixnum->string")); lf[437]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011/chicken/")); lf[438]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[439]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[440]=C_h_intern(&lf[440],30, C_text("##sys#register-compiled-module")); lf[441]=C_h_intern(&lf[441],4, C_text("main")); C_register_lf2(lf,442,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2266,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[480] = { {C_text("f8584:csc_2escm"),(void*)f8584}, {C_text("f8590:csc_2escm"),(void*)f8590}, {C_text("f8594:csc_2escm"),(void*)f8594}, {C_text("f8616:csc_2escm"),(void*)f8616}, {C_text("f8662:csc_2escm"),(void*)f8662}, {C_text("f_2266:csc_2escm"),(void*)f_2266}, {C_text("f_2269:csc_2escm"),(void*)f_2269}, {C_text("f_2272:csc_2escm"),(void*)f_2272}, {C_text("f_2275:csc_2escm"),(void*)f_2275}, {C_text("f_2278:csc_2escm"),(void*)f_2278}, {C_text("f_2281:csc_2escm"),(void*)f_2281}, {C_text("f_2284:csc_2escm"),(void*)f_2284}, {C_text("f_2287:csc_2escm"),(void*)f_2287}, {C_text("f_2290:csc_2escm"),(void*)f_2290}, {C_text("f_2296:csc_2escm"),(void*)f_2296}, {C_text("f_2302:csc_2escm"),(void*)f_2302}, {C_text("f_2306:csc_2escm"),(void*)f_2306}, {C_text("f_2310:csc_2escm"),(void*)f_2310}, {C_text("f_2314:csc_2escm"),(void*)f_2314}, {C_text("f_2318:csc_2escm"),(void*)f_2318}, {C_text("f_2322:csc_2escm"),(void*)f_2322}, {C_text("f_2326:csc_2escm"),(void*)f_2326}, {C_text("f_2330:csc_2escm"),(void*)f_2330}, {C_text("f_2334:csc_2escm"),(void*)f_2334}, {C_text("f_2338:csc_2escm"),(void*)f_2338}, {C_text("f_2342:csc_2escm"),(void*)f_2342}, {C_text("f_2346:csc_2escm"),(void*)f_2346}, {C_text("f_2350:csc_2escm"),(void*)f_2350}, {C_text("f_2354:csc_2escm"),(void*)f_2354}, {C_text("f_2362:csc_2escm"),(void*)f_2362}, {C_text("f_2366:csc_2escm"),(void*)f_2366}, {C_text("f_2370:csc_2escm"),(void*)f_2370}, {C_text("f_2374:csc_2escm"),(void*)f_2374}, {C_text("f_2378:csc_2escm"),(void*)f_2378}, {C_text("f_2382:csc_2escm"),(void*)f_2382}, {C_text("f_2386:csc_2escm"),(void*)f_2386}, {C_text("f_2390:csc_2escm"),(void*)f_2390}, {C_text("f_2394:csc_2escm"),(void*)f_2394}, {C_text("f_2398:csc_2escm"),(void*)f_2398}, {C_text("f_2402:csc_2escm"),(void*)f_2402}, {C_text("f_2406:csc_2escm"),(void*)f_2406}, {C_text("f_2410:csc_2escm"),(void*)f_2410}, {C_text("f_2414:csc_2escm"),(void*)f_2414}, {C_text("f_2418:csc_2escm"),(void*)f_2418}, {C_text("f_2422:csc_2escm"),(void*)f_2422}, {C_text("f_2426:csc_2escm"),(void*)f_2426}, {C_text("f_2430:csc_2escm"),(void*)f_2430}, {C_text("f_2434:csc_2escm"),(void*)f_2434}, {C_text("f_2503:csc_2escm"),(void*)f_2503}, {C_text("f_2506:csc_2escm"),(void*)f_2506}, {C_text("f_2941:csc_2escm"),(void*)f_2941}, {C_text("f_2947:csc_2escm"),(void*)f_2947}, {C_text("f_2961:csc_2escm"),(void*)f_2961}, {C_text("f_3003:csc_2escm"),(void*)f_3003}, {C_text("f_3016:csc_2escm"),(void*)f_3016}, {C_text("f_3030:csc_2escm"),(void*)f_3030}, {C_text("f_3078:csc_2escm"),(void*)f_3078}, {C_text("f_3092:csc_2escm"),(void*)f_3092}, {C_text("f_3105:csc_2escm"),(void*)f_3105}, {C_text("f_3126:csc_2escm"),(void*)f_3126}, {C_text("f_3134:csc_2escm"),(void*)f_3134}, {C_text("f_3141:csc_2escm"),(void*)f_3141}, {C_text("f_3155:csc_2escm"),(void*)f_3155}, {C_text("f_3170:csc_2escm"),(void*)f_3170}, {C_text("f_3178:csc_2escm"),(void*)f_3178}, {C_text("f_3182:csc_2escm"),(void*)f_3182}, {C_text("f_3186:csc_2escm"),(void*)f_3186}, {C_text("f_3204:csc_2escm"),(void*)f_3204}, {C_text("f_3283:csc_2escm"),(void*)f_3283}, {C_text("f_3383:csc_2escm"),(void*)f_3383}, {C_text("f_3405:csc_2escm"),(void*)f_3405}, {C_text("f_3416:csc_2escm"),(void*)f_3416}, {C_text("f_3788:csc_2escm"),(void*)f_3788}, {C_text("f_3814:csc_2escm"),(void*)f_3814}, {C_text("f_3817:csc_2escm"),(void*)f_3817}, {C_text("f_3824:csc_2escm"),(void*)f_3824}, {C_text("f_3827:csc_2escm"),(void*)f_3827}, {C_text("f_3830:csc_2escm"),(void*)f_3830}, {C_text("f_3833:csc_2escm"),(void*)f_3833}, {C_text("f_3840:csc_2escm"),(void*)f_3840}, {C_text("f_3844:csc_2escm"),(void*)f_3844}, {C_text("f_3848:csc_2escm"),(void*)f_3848}, {C_text("f_3866:csc_2escm"),(void*)f_3866}, {C_text("f_3874:csc_2escm"),(void*)f_3874}, {C_text("f_3878:csc_2escm"),(void*)f_3878}, {C_text("f_3880:csc_2escm"),(void*)f_3880}, {C_text("f_3888:csc_2escm"),(void*)f_3888}, {C_text("f_3896:csc_2escm"),(void*)f_3896}, {C_text("f_3900:csc_2escm"),(void*)f_3900}, {C_text("f_3904:csc_2escm"),(void*)f_3904}, {C_text("f_3908:csc_2escm"),(void*)f_3908}, {C_text("f_3912:csc_2escm"),(void*)f_3912}, {C_text("f_3916:csc_2escm"),(void*)f_3916}, {C_text("f_3929:csc_2escm"),(void*)f_3929}, {C_text("f_3933:csc_2escm"),(void*)f_3933}, {C_text("f_3938:csc_2escm"),(void*)f_3938}, {C_text("f_3941:csc_2escm"),(void*)f_3941}, {C_text("f_3949:csc_2escm"),(void*)f_3949}, {C_text("f_3984:csc_2escm"),(void*)f_3984}, {C_text("f_3988:csc_2escm"),(void*)f_3988}, {C_text("f_3993:csc_2escm"),(void*)f_3993}, {C_text("f_3998:csc_2escm"),(void*)f_3998}, {C_text("f_4005:csc_2escm"),(void*)f_4005}, {C_text("f_4035:csc_2escm"),(void*)f_4035}, {C_text("f_4049:csc_2escm"),(void*)f_4049}, {C_text("f_4053:csc_2escm"),(void*)f_4053}, {C_text("f_4069:csc_2escm"),(void*)f_4069}, {C_text("f_4088:csc_2escm"),(void*)f_4088}, {C_text("f_4103:csc_2escm"),(void*)f_4103}, {C_text("f_4107:csc_2escm"),(void*)f_4107}, {C_text("f_4111:csc_2escm"),(void*)f_4111}, {C_text("f_4114:csc_2escm"),(void*)f_4114}, {C_text("f_4127:csc_2escm"),(void*)f_4127}, {C_text("f_4132:csc_2escm"),(void*)f_4132}, {C_text("f_4157:csc_2escm"),(void*)f_4157}, {C_text("f_4177:csc_2escm"),(void*)f_4177}, {C_text("f_4185:csc_2escm"),(void*)f_4185}, {C_text("f_4189:csc_2escm"),(void*)f_4189}, {C_text("f_4193:csc_2escm"),(void*)f_4193}, {C_text("f_4209:csc_2escm"),(void*)f_4209}, {C_text("f_4216:csc_2escm"),(void*)f_4216}, {C_text("f_4226:csc_2escm"),(void*)f_4226}, {C_text("f_4238:csc_2escm"),(void*)f_4238}, {C_text("f_4242:csc_2escm"),(void*)f_4242}, {C_text("f_4245:csc_2escm"),(void*)f_4245}, {C_text("f_4248:csc_2escm"),(void*)f_4248}, {C_text("f_4251:csc_2escm"),(void*)f_4251}, {C_text("f_4254:csc_2escm"),(void*)f_4254}, {C_text("f_4260:csc_2escm"),(void*)f_4260}, {C_text("f_4266:csc_2escm"),(void*)f_4266}, {C_text("f_4278:csc_2escm"),(void*)f_4278}, {C_text("f_4288:csc_2escm"),(void*)f_4288}, {C_text("f_4292:csc_2escm"),(void*)f_4292}, {C_text("f_4298:csc_2escm"),(void*)f_4298}, {C_text("f_4310:csc_2escm"),(void*)f_4310}, {C_text("f_4317:csc_2escm"),(void*)f_4317}, {C_text("f_4350:csc_2escm"),(void*)f_4350}, {C_text("f_4355:csc_2escm"),(void*)f_4355}, {C_text("f_4357:csc_2escm"),(void*)f_4357}, {C_text("f_4383:csc_2escm"),(void*)f_4383}, {C_text("f_4388:csc_2escm"),(void*)f_4388}, {C_text("f_4392:csc_2escm"),(void*)f_4392}, {C_text("f_4396:csc_2escm"),(void*)f_4396}, {C_text("f_4413:csc_2escm"),(void*)f_4413}, {C_text("f_4429:csc_2escm"),(void*)f_4429}, {C_text("f_4440:csc_2escm"),(void*)f_4440}, {C_text("f_4444:csc_2escm"),(void*)f_4444}, {C_text("f_4447:csc_2escm"),(void*)f_4447}, {C_text("f_4450:csc_2escm"),(void*)f_4450}, {C_text("f_4456:csc_2escm"),(void*)f_4456}, {C_text("f_4462:csc_2escm"),(void*)f_4462}, {C_text("f_4465:csc_2escm"),(void*)f_4465}, {C_text("f_4477:csc_2escm"),(void*)f_4477}, {C_text("f_4480:csc_2escm"),(void*)f_4480}, {C_text("f_4483:csc_2escm"),(void*)f_4483}, {C_text("f_4486:csc_2escm"),(void*)f_4486}, {C_text("f_4489:csc_2escm"),(void*)f_4489}, {C_text("f_4492:csc_2escm"),(void*)f_4492}, {C_text("f_4499:csc_2escm"),(void*)f_4499}, {C_text("f_4505:csc_2escm"),(void*)f_4505}, {C_text("f_4508:csc_2escm"),(void*)f_4508}, {C_text("f_4511:csc_2escm"),(void*)f_4511}, {C_text("f_4514:csc_2escm"),(void*)f_4514}, {C_text("f_4517:csc_2escm"),(void*)f_4517}, {C_text("f_4520:csc_2escm"),(void*)f_4520}, {C_text("f_4527:csc_2escm"),(void*)f_4527}, {C_text("f_4531:csc_2escm"),(void*)f_4531}, {C_text("f_4549:csc_2escm"),(void*)f_4549}, {C_text("f_4553:csc_2escm"),(void*)f_4553}, {C_text("f_4559:csc_2escm"),(void*)f_4559}, {C_text("f_4566:csc_2escm"),(void*)f_4566}, {C_text("f_4583:csc_2escm"),(void*)f_4583}, {C_text("f_4593:csc_2escm"),(void*)f_4593}, {C_text("f_4597:csc_2escm"),(void*)f_4597}, {C_text("f_4606:csc_2escm"),(void*)f_4606}, {C_text("f_4609:csc_2escm"),(void*)f_4609}, {C_text("f_4616:csc_2escm"),(void*)f_4616}, {C_text("f_4633:csc_2escm"),(void*)f_4633}, {C_text("f_4636:csc_2escm"),(void*)f_4636}, {C_text("f_4639:csc_2escm"),(void*)f_4639}, {C_text("f_4642:csc_2escm"),(void*)f_4642}, {C_text("f_4652:csc_2escm"),(void*)f_4652}, {C_text("f_4659:csc_2escm"),(void*)f_4659}, {C_text("f_4666:csc_2escm"),(void*)f_4666}, {C_text("f_4670:csc_2escm"),(void*)f_4670}, {C_text("f_4677:csc_2escm"),(void*)f_4677}, {C_text("f_4680:csc_2escm"),(void*)f_4680}, {C_text("f_4692:csc_2escm"),(void*)f_4692}, {C_text("f_4704:csc_2escm"),(void*)f_4704}, {C_text("f_4711:csc_2escm"),(void*)f_4711}, {C_text("f_4720:csc_2escm"),(void*)f_4720}, {C_text("f_4727:csc_2escm"),(void*)f_4727}, {C_text("f_4733:csc_2escm"),(void*)f_4733}, {C_text("f_4736:csc_2escm"),(void*)f_4736}, {C_text("f_4739:csc_2escm"),(void*)f_4739}, {C_text("f_4742:csc_2escm"),(void*)f_4742}, {C_text("f_4799:csc_2escm"),(void*)f_4799}, {C_text("f_4811:csc_2escm"),(void*)f_4811}, {C_text("f_4823:csc_2escm"),(void*)f_4823}, {C_text("f_4835:csc_2escm"),(void*)f_4835}, {C_text("f_4858:csc_2escm"),(void*)f_4858}, {C_text("f_4861:csc_2escm"),(void*)f_4861}, {C_text("f_4873:csc_2escm"),(void*)f_4873}, {C_text("f_4963:csc_2escm"),(void*)f_4963}, {C_text("f_4966:csc_2escm"),(void*)f_4966}, {C_text("f_4970:csc_2escm"),(void*)f_4970}, {C_text("f_4978:csc_2escm"),(void*)f_4978}, {C_text("f_4995:csc_2escm"),(void*)f_4995}, {C_text("f_5015:csc_2escm"),(void*)f_5015}, {C_text("f_5018:csc_2escm"),(void*)f_5018}, {C_text("f_5084:csc_2escm"),(void*)f_5084}, {C_text("f_5088:csc_2escm"),(void*)f_5088}, {C_text("f_5104:csc_2escm"),(void*)f_5104}, {C_text("f_5115:csc_2escm"),(void*)f_5115}, {C_text("f_5131:csc_2escm"),(void*)f_5131}, {C_text("f_5152:csc_2escm"),(void*)f_5152}, {C_text("f_5162:csc_2escm"),(void*)f_5162}, {C_text("f_5172:csc_2escm"),(void*)f_5172}, {C_text("f_5182:csc_2escm"),(void*)f_5182}, {C_text("f_5192:csc_2escm"),(void*)f_5192}, {C_text("f_5202:csc_2escm"),(void*)f_5202}, {C_text("f_5212:csc_2escm"),(void*)f_5212}, {C_text("f_5222:csc_2escm"),(void*)f_5222}, {C_text("f_5232:csc_2escm"),(void*)f_5232}, {C_text("f_5242:csc_2escm"),(void*)f_5242}, {C_text("f_5251:csc_2escm"),(void*)f_5251}, {C_text("f_5254:csc_2escm"),(void*)f_5254}, {C_text("f_5266:csc_2escm"),(void*)f_5266}, {C_text("f_5293:csc_2escm"),(void*)f_5293}, {C_text("f_5317:csc_2escm"),(void*)f_5317}, {C_text("f_5334:csc_2escm"),(void*)f_5334}, {C_text("f_5351:csc_2escm"),(void*)f_5351}, {C_text("f_5368:csc_2escm"),(void*)f_5368}, {C_text("f_5385:csc_2escm"),(void*)f_5385}, {C_text("f_5389:csc_2escm"),(void*)f_5389}, {C_text("f_5406:csc_2escm"),(void*)f_5406}, {C_text("f_5410:csc_2escm"),(void*)f_5410}, {C_text("f_5418:csc_2escm"),(void*)f_5418}, {C_text("f_5432:csc_2escm"),(void*)f_5432}, {C_text("f_5445:csc_2escm"),(void*)f_5445}, {C_text("f_5449:csc_2escm"),(void*)f_5449}, {C_text("f_5457:csc_2escm"),(void*)f_5457}, {C_text("f_5470:csc_2escm"),(void*)f_5470}, {C_text("f_5484:csc_2escm"),(void*)f_5484}, {C_text("f_5488:csc_2escm"),(void*)f_5488}, {C_text("f_5496:csc_2escm"),(void*)f_5496}, {C_text("f_5500:csc_2escm"),(void*)f_5500}, {C_text("f_5525:csc_2escm"),(void*)f_5525}, {C_text("f_5528:csc_2escm"),(void*)f_5528}, {C_text("f_5545:csc_2escm"),(void*)f_5545}, {C_text("f_5548:csc_2escm"),(void*)f_5548}, {C_text("f_5566:csc_2escm"),(void*)f_5566}, {C_text("f_5573:csc_2escm"),(void*)f_5573}, {C_text("f_5576:csc_2escm"),(void*)f_5576}, {C_text("f_5579:csc_2escm"),(void*)f_5579}, {C_text("f_5586:csc_2escm"),(void*)f_5586}, {C_text("f_5616:csc_2escm"),(void*)f_5616}, {C_text("f_5619:csc_2escm"),(void*)f_5619}, {C_text("f_5633:csc_2escm"),(void*)f_5633}, {C_text("f_5642:csc_2escm"),(void*)f_5642}, {C_text("f_5652:csc_2escm"),(void*)f_5652}, {C_text("f_5656:csc_2escm"),(void*)f_5656}, {C_text("f_5679:csc_2escm"),(void*)f_5679}, {C_text("f_5683:csc_2escm"),(void*)f_5683}, {C_text("f_5710:csc_2escm"),(void*)f_5710}, {C_text("f_5724:csc_2escm"),(void*)f_5724}, {C_text("f_5734:csc_2escm"),(void*)f_5734}, {C_text("f_5738:csc_2escm"),(void*)f_5738}, {C_text("f_5761:csc_2escm"),(void*)f_5761}, {C_text("f_5778:csc_2escm"),(void*)f_5778}, {C_text("f_5780:csc_2escm"),(void*)f_5780}, {C_text("f_5805:csc_2escm"),(void*)f_5805}, {C_text("f_5819:csc_2escm"),(void*)f_5819}, {C_text("f_5823:csc_2escm"),(void*)f_5823}, {C_text("f_5840:csc_2escm"),(void*)f_5840}, {C_text("f_5852:csc_2escm"),(void*)f_5852}, {C_text("f_5857:csc_2escm"),(void*)f_5857}, {C_text("f_5863:csc_2escm"),(void*)f_5863}, {C_text("f_5874:csc_2escm"),(void*)f_5874}, {C_text("f_5888:csc_2escm"),(void*)f_5888}, {C_text("f_5902:csc_2escm"),(void*)f_5902}, {C_text("f_5915:csc_2escm"),(void*)f_5915}, {C_text("f_5920:csc_2escm"),(void*)f_5920}, {C_text("f_5939:csc_2escm"),(void*)f_5939}, {C_text("f_5951:csc_2escm"),(void*)f_5951}, {C_text("f_5955:csc_2escm"),(void*)f_5955}, {C_text("f_5963:csc_2escm"),(void*)f_5963}, {C_text("f_5972:csc_2escm"),(void*)f_5972}, {C_text("f_5978:csc_2escm"),(void*)f_5978}, {C_text("f_6008:csc_2escm"),(void*)f_6008}, {C_text("f_6215:csc_2escm"),(void*)f_6215}, {C_text("f_6218:csc_2escm"),(void*)f_6218}, {C_text("f_6221:csc_2escm"),(void*)f_6221}, {C_text("f_6224:csc_2escm"),(void*)f_6224}, {C_text("f_6228:csc_2escm"),(void*)f_6228}, {C_text("f_6232:csc_2escm"),(void*)f_6232}, {C_text("f_6251:csc_2escm"),(void*)f_6251}, {C_text("f_6255:csc_2escm"),(void*)f_6255}, {C_text("f_6259:csc_2escm"),(void*)f_6259}, {C_text("f_6263:csc_2escm"),(void*)f_6263}, {C_text("f_6267:csc_2escm"),(void*)f_6267}, {C_text("f_6271:csc_2escm"),(void*)f_6271}, {C_text("f_6282:csc_2escm"),(void*)f_6282}, {C_text("f_6288:csc_2escm"),(void*)f_6288}, {C_text("f_6290:csc_2escm"),(void*)f_6290}, {C_text("f_6315:csc_2escm"),(void*)f_6315}, {C_text("f_6326:csc_2escm"),(void*)f_6326}, {C_text("f_6336:csc_2escm"),(void*)f_6336}, {C_text("f_6343:csc_2escm"),(void*)f_6343}, {C_text("f_6357:csc_2escm"),(void*)f_6357}, {C_text("f_6386:csc_2escm"),(void*)f_6386}, {C_text("f_6396:csc_2escm"),(void*)f_6396}, {C_text("f_6411:csc_2escm"),(void*)f_6411}, {C_text("f_6415:csc_2escm"),(void*)f_6415}, {C_text("f_6418:csc_2escm"),(void*)f_6418}, {C_text("f_6421:csc_2escm"),(void*)f_6421}, {C_text("f_6433:csc_2escm"),(void*)f_6433}, {C_text("f_6445:csc_2escm"),(void*)f_6445}, {C_text("f_6449:csc_2escm"),(void*)f_6449}, {C_text("f_6453:csc_2escm"),(void*)f_6453}, {C_text("f_6457:csc_2escm"),(void*)f_6457}, {C_text("f_6468:csc_2escm"),(void*)f_6468}, {C_text("f_6497:csc_2escm"),(void*)f_6497}, {C_text("f_6500:csc_2escm"),(void*)f_6500}, {C_text("f_6501:csc_2escm"),(void*)f_6501}, {C_text("f_6505:csc_2escm"),(void*)f_6505}, {C_text("f_6508:csc_2escm"),(void*)f_6508}, {C_text("f_6520:csc_2escm"),(void*)f_6520}, {C_text("f_6528:csc_2escm"),(void*)f_6528}, {C_text("f_6532:csc_2escm"),(void*)f_6532}, {C_text("f_6538:csc_2escm"),(void*)f_6538}, {C_text("f_6542:csc_2escm"),(void*)f_6542}, {C_text("f_6551:csc_2escm"),(void*)f_6551}, {C_text("f_6559:csc_2escm"),(void*)f_6559}, {C_text("f_6569:csc_2escm"),(void*)f_6569}, {C_text("f_6582:csc_2escm"),(void*)f_6582}, {C_text("f_6592:csc_2escm"),(void*)f_6592}, {C_text("f_6607:csc_2escm"),(void*)f_6607}, {C_text("f_6609:csc_2escm"),(void*)f_6609}, {C_text("f_6619:csc_2escm"),(void*)f_6619}, {C_text("f_6633:csc_2escm"),(void*)f_6633}, {C_text("f_6636:csc_2escm"),(void*)f_6636}, {C_text("f_6639:csc_2escm"),(void*)f_6639}, {C_text("f_6651:csc_2escm"),(void*)f_6651}, {C_text("f_6658:csc_2escm"),(void*)f_6658}, {C_text("f_6660:csc_2escm"),(void*)f_6660}, {C_text("f_6670:csc_2escm"),(void*)f_6670}, {C_text("f_6683:csc_2escm"),(void*)f_6683}, {C_text("f_6694:csc_2escm"),(void*)f_6694}, {C_text("f_6700:csc_2escm"),(void*)f_6700}, {C_text("f_6702:csc_2escm"),(void*)f_6702}, {C_text("f_6727:csc_2escm"),(void*)f_6727}, {C_text("f_6741:csc_2escm"),(void*)f_6741}, {C_text("f_6750:csc_2escm"),(void*)f_6750}, {C_text("f_6753:csc_2escm"),(void*)f_6753}, {C_text("f_6756:csc_2escm"),(void*)f_6756}, {C_text("f_6759:csc_2escm"),(void*)f_6759}, {C_text("f_6765:csc_2escm"),(void*)f_6765}, {C_text("f_6773:csc_2escm"),(void*)f_6773}, {C_text("f_6783:csc_2escm"),(void*)f_6783}, {C_text("f_6800:csc_2escm"),(void*)f_6800}, {C_text("f_6810:csc_2escm"),(void*)f_6810}, {C_text("f_6814:csc_2escm"),(void*)f_6814}, {C_text("f_6818:csc_2escm"),(void*)f_6818}, {C_text("f_6822:csc_2escm"),(void*)f_6822}, {C_text("f_6826:csc_2escm"),(void*)f_6826}, {C_text("f_6829:csc_2escm"),(void*)f_6829}, {C_text("f_6839:csc_2escm"),(void*)f_6839}, {C_text("f_6846:csc_2escm"),(void*)f_6846}, {C_text("f_6851:csc_2escm"),(void*)f_6851}, {C_text("f_6855:csc_2escm"),(void*)f_6855}, {C_text("f_6863:csc_2escm"),(void*)f_6863}, {C_text("f_6871:csc_2escm"),(void*)f_6871}, {C_text("f_6875:csc_2escm"),(void*)f_6875}, {C_text("f_6879:csc_2escm"),(void*)f_6879}, {C_text("f_6884:csc_2escm"),(void*)f_6884}, {C_text("f_6886:csc_2escm"),(void*)f_6886}, {C_text("f_6911:csc_2escm"),(void*)f_6911}, {C_text("f_6927:csc_2escm"),(void*)f_6927}, {C_text("f_6930:csc_2escm"),(void*)f_6930}, {C_text("f_6937:csc_2escm"),(void*)f_6937}, {C_text("f_6951:csc_2escm"),(void*)f_6951}, {C_text("f_6966:csc_2escm"),(void*)f_6966}, {C_text("f_6974:csc_2escm"),(void*)f_6974}, {C_text("f_6999:csc_2escm"),(void*)f_6999}, {C_text("f_7008:csc_2escm"),(void*)f_7008}, {C_text("f_7033:csc_2escm"),(void*)f_7033}, {C_text("f_7045:csc_2escm"),(void*)f_7045}, {C_text("f_7059:csc_2escm"),(void*)f_7059}, {C_text("f_7065:csc_2escm"),(void*)f_7065}, {C_text("f_7068:csc_2escm"),(void*)f_7068}, {C_text("f_7071:csc_2escm"),(void*)f_7071}, {C_text("f_7078:csc_2escm"),(void*)f_7078}, {C_text("f_7082:csc_2escm"),(void*)f_7082}, {C_text("f_7091:csc_2escm"),(void*)f_7091}, {C_text("f_7170:csc_2escm"),(void*)f_7170}, {C_text("f_7181:csc_2escm"),(void*)f_7181}, {C_text("f_7187:csc_2escm"),(void*)f_7187}, {C_text("f_7189:csc_2escm"),(void*)f_7189}, {C_text("f_7214:csc_2escm"),(void*)f_7214}, {C_text("f_7223:csc_2escm"),(void*)f_7223}, {C_text("f_7231:csc_2escm"),(void*)f_7231}, {C_text("f_7235:csc_2escm"),(void*)f_7235}, {C_text("f_7258:csc_2escm"),(void*)f_7258}, {C_text("f_7268:csc_2escm"),(void*)f_7268}, {C_text("f_7272:csc_2escm"),(void*)f_7272}, {C_text("f_7276:csc_2escm"),(void*)f_7276}, {C_text("f_7278:csc_2escm"),(void*)f_7278}, {C_text("f_7301:csc_2escm"),(void*)f_7301}, {C_text("f_7306:csc_2escm"),(void*)f_7306}, {C_text("f_7313:csc_2escm"),(void*)f_7313}, {C_text("f_7321:csc_2escm"),(void*)f_7321}, {C_text("f_7330:csc_2escm"),(void*)f_7330}, {C_text("f_7347:csc_2escm"),(void*)f_7347}, {C_text("f_7355:csc_2escm"),(void*)f_7355}, {C_text("f_7362:csc_2escm"),(void*)f_7362}, {C_text("f_7368:csc_2escm"),(void*)f_7368}, {C_text("f_7373:csc_2escm"),(void*)f_7373}, {C_text("f_7385:csc_2escm"),(void*)f_7385}, {C_text("f_7396:csc_2escm"),(void*)f_7396}, {C_text("f_7399:csc_2escm"),(void*)f_7399}, {C_text("f_7402:csc_2escm"),(void*)f_7402}, {C_text("f_7405:csc_2escm"),(void*)f_7405}, {C_text("f_7422:csc_2escm"),(void*)f_7422}, {C_text("f_7425:csc_2escm"),(void*)f_7425}, {C_text("f_7428:csc_2escm"),(void*)f_7428}, {C_text("f_7431:csc_2escm"),(void*)f_7431}, {C_text("f_7447:csc_2escm"),(void*)f_7447}, {C_text("f_7451:csc_2escm"),(void*)f_7451}, {C_text("f_7459:csc_2escm"),(void*)f_7459}, {C_text("f_7467:csc_2escm"),(void*)f_7467}, {C_text("f_7475:csc_2escm"),(void*)f_7475}, {C_text("f_7480:csc_2escm"),(void*)f_7480}, {C_text("f_7484:csc_2escm"),(void*)f_7484}, {C_text("f_7503:csc_2escm"),(void*)f_7503}, {C_text("f_7509:csc_2escm"),(void*)f_7509}, {C_text("f_7512:csc_2escm"),(void*)f_7512}, {C_text("f_7515:csc_2escm"),(void*)f_7515}, {C_text("f_7518:csc_2escm"),(void*)f_7518}, {C_text("f_7521:csc_2escm"),(void*)f_7521}, {C_text("f_7525:csc_2escm"),(void*)f_7525}, {C_text("f_7529:csc_2escm"),(void*)f_7529}, {C_text("f_7533:csc_2escm"),(void*)f_7533}, {C_text("f_7539:csc_2escm"),(void*)f_7539}, {C_text("f_7544:csc_2escm"),(void*)f_7544}, {C_text("f_7552:csc_2escm"),(void*)f_7552}, {C_text("f_7570:csc_2escm"),(void*)f_7570}, {C_text("f_7576:csc_2escm"),(void*)f_7576}, {C_text("f_7580:csc_2escm"),(void*)f_7580}, {C_text("f_7584:csc_2escm"),(void*)f_7584}, {C_text("f_7588:csc_2escm"),(void*)f_7588}, {C_text("f_7595:csc_2escm"),(void*)f_7595}, {C_text("f_7599:csc_2escm"),(void*)f_7599}, {C_text("f_7602:csc_2escm"),(void*)f_7602}, {C_text("f_7618:csc_2escm"),(void*)f_7618}, {C_text("f_7621:csc_2escm"),(void*)f_7621}, {C_text("f_7629:csc_2escm"),(void*)f_7629}, {C_text("f_7654:csc_2escm"),(void*)f_7654}, {C_text("f_7663:csc_2escm"),(void*)f_7663}, {C_text("f_7688:csc_2escm"),(void*)f_7688}, {C_text("f_7705:csc_2escm"),(void*)f_7705}, {C_text("f_7725:csc_2escm"),(void*)f_7725}, {C_text("f_7729:csc_2escm"),(void*)f_7729}, {C_text("f_7754:csc_2escm"),(void*)f_7754}, {C_text("f_7772:csc_2escm"),(void*)f_7772}, {C_text("f_7776:csc_2escm"),(void*)f_7776}, {C_text("f_7783:csc_2escm"),(void*)f_7783}, {C_text("f_7787:csc_2escm"),(void*)f_7787}, {C_text("f_7791:csc_2escm"),(void*)f_7791}, {C_text("f_7795:csc_2escm"),(void*)f_7795}, {C_text("f_7806:csc_2escm"),(void*)f_7806}, {C_text("f_7809:csc_2escm"),(void*)f_7809}, {C_text("f_7816:csc_2escm"),(void*)f_7816}, {C_text("f_7821:csc_2escm"),(void*)f_7821}, {C_text("f_7826:csc_2escm"),(void*)f_7826}, {C_text("f_7830:csc_2escm"),(void*)f_7830}, {C_text("f_7834:csc_2escm"),(void*)f_7834}, {C_text("f_7841:csc_2escm"),(void*)f_7841}, {C_text("toplevel:csc_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: main#staticbuild o|hiding unexported module binding: main#debugbuild o|hiding unexported module binding: main#cross-chicken o|hiding unexported module binding: main#binary-version o|hiding unexported module binding: main#major-version o|hiding unexported module binding: main#default-cc o|hiding unexported module binding: main#default-cxx o|hiding unexported module binding: main#default-install-program o|hiding unexported module binding: main#default-cflags o|hiding unexported module binding: main#default-ldflags o|hiding unexported module binding: main#default-install-program-executable-flags o|hiding unexported module binding: main#default-install-program-data-flags o|hiding unexported module binding: main#default-libs o|hiding unexported module binding: main#default-libdir o|hiding unexported module binding: main#default-runlibdir o|hiding unexported module binding: main#default-slibdir o|hiding unexported module binding: main#default-incdir o|hiding unexported module binding: main#default-bindir o|hiding unexported module binding: main#default-sharedir o|hiding unexported module binding: main#default-platform o|hiding unexported module binding: main#default-prefix o|hiding unexported module binding: main#default-bindir o|hiding unexported module binding: main#default-csc o|hiding unexported module binding: main#default-csi o|hiding unexported module binding: main#default-builder o|hiding unexported module binding: main#target-librarian o|hiding unexported module binding: main#target-librarian-options o|hiding unexported module binding: main#host-repo o|hiding unexported module binding: main#host-libdir o|hiding unexported module binding: main#host-bindir o|hiding unexported module binding: main#host-incdir o|hiding unexported module binding: main#host-sharedir o|hiding unexported module binding: main#host-libs o|hiding unexported module binding: main#host-cflags o|hiding unexported module binding: main#host-ldflags o|hiding unexported module binding: main#host-cc o|hiding unexported module binding: main#host-cxx o|hiding unexported module binding: main#target-repo o|hiding unexported module binding: main#target-run-repo o|hiding unexported module binding: main#+egg-info-extension+ o|hiding unexported module binding: main#+version-file+ o|hiding unexported module binding: main#+timestamp-file+ o|hiding unexported module binding: main#+status-file+ o|hiding unexported module binding: main#+egg-extension+ o|hiding unexported module binding: main#validate-environment o|hiding unexported module binding: main#destination-repository o|hiding unexported module binding: main#probe-dir o|hiding unexported module binding: main#cache-directory o|hiding unexported module binding: main#partition o|hiding unexported module binding: main#span o|hiding unexported module binding: main#take o|hiding unexported module binding: main#drop o|hiding unexported module binding: main#split-at o|hiding unexported module binding: main#append-map o|hiding unexported module binding: main#every o|hiding unexported module binding: main#any o|hiding unexported module binding: main#cons* o|hiding unexported module binding: main#concatenate o|hiding unexported module binding: main#delete o|hiding unexported module binding: main#first o|hiding unexported module binding: main#second o|hiding unexported module binding: main#third o|hiding unexported module binding: main#fourth o|hiding unexported module binding: main#fifth o|hiding unexported module binding: main#delete-duplicates o|hiding unexported module binding: main#alist-cons o|hiding unexported module binding: main#filter o|hiding unexported module binding: main#filter-map o|hiding unexported module binding: main#remove o|hiding unexported module binding: main#unzip1 o|hiding unexported module binding: main#last o|hiding unexported module binding: main#list-index o|hiding unexported module binding: main#lset-adjoin/eq? o|hiding unexported module binding: main#lset-difference/eq? o|hiding unexported module binding: main#lset-union/eq? o|hiding unexported module binding: main#lset-intersection/eq? o|hiding unexported module binding: main#list-tabulate o|hiding unexported module binding: main#lset<=/eq? o|hiding unexported module binding: main#lset=/eq? o|hiding unexported module binding: main#length+ o|hiding unexported module binding: main#find o|hiding unexported module binding: main#find-tail o|hiding unexported module binding: main#iota o|hiding unexported module binding: main#make-list o|hiding unexported module binding: main#posq o|hiding unexported module binding: main#posv o|hiding unexported module binding: main#host-libs o|hiding unexported module binding: main#TARGET_CC o|hiding unexported module binding: main#windows o|hiding unexported module binding: main#mingw o|hiding unexported module binding: main#osx o|hiding unexported module binding: main#cygwin o|hiding unexported module binding: main#aix o|hiding unexported module binding: main#elf o|hiding unexported module binding: main#stop o|hiding unexported module binding: main#arguments o|hiding unexported module binding: main#cross-chicken o|hiding unexported module binding: main#host-mode o|hiding unexported module binding: main#back-slash->forward-slash o|hiding unexported module binding: main#quotewrap o|hiding unexported module binding: main#quotewrap-no-slash-trans o|hiding unexported module binding: main#home o|hiding unexported module binding: main#translator o|hiding unexported module binding: main#compiler o|hiding unexported module binding: main#c++-compiler o|hiding unexported module binding: main#rc-compiler o|hiding unexported module binding: main#linker o|hiding unexported module binding: main#c++-linker o|hiding unexported module binding: main#object-extension o|hiding unexported module binding: main#library-extension o|hiding unexported module binding: main#link-output-flag o|hiding unexported module binding: main#executable-extension o|hiding unexported module binding: main#compile-output-flag o|hiding unexported module binding: main#shared-library-extension o|hiding unexported module binding: main#static-object-extension o|hiding unexported module binding: main#static-library-extension o|hiding unexported module binding: main#default-translation-optimization-options o|hiding unexported module binding: main#pic-options o|hiding unexported module binding: main#generate-manifest o|hiding unexported module binding: main#libchicken o|hiding unexported module binding: main#dynamic-libchicken o|hiding unexported module binding: main#default-library o|hiding unexported module binding: main#default-compilation-optimization-options o|hiding unexported module binding: main#best-compilation-optimization-options o|hiding unexported module binding: main#default-linking-optimization-options o|hiding unexported module binding: main#best-linking-optimization-options o|hiding unexported module binding: main#extra-features o|hiding unexported module binding: main#constant807 o|hiding unexported module binding: main#constant810 o|hiding unexported module binding: main#constant814 o|hiding unexported module binding: main#short-options o|hiding unexported module binding: main#scheme-files o|hiding unexported module binding: main#c-files o|hiding unexported module binding: main#rc-files o|hiding unexported module binding: main#generated-c-files o|hiding unexported module binding: main#generated-rc-files o|hiding unexported module binding: main#object-files o|hiding unexported module binding: main#generated-object-files o|hiding unexported module binding: main#transient-link-files o|hiding unexported module binding: main#linked-extensions o|hiding unexported module binding: main#cpp-mode o|hiding unexported module binding: main#objc-mode o|hiding unexported module binding: main#embedded o|hiding unexported module binding: main#inquiry-only o|hiding unexported module binding: main#show-cflags o|hiding unexported module binding: main#show-ldflags o|hiding unexported module binding: main#show-libs o|hiding unexported module binding: main#dry-run o|hiding unexported module binding: main#gui o|hiding unexported module binding: main#deployed o|hiding unexported module binding: main#rpath o|hiding unexported module binding: main#ignore-repository o|hiding unexported module binding: main#show-debugging-help o|hiding unexported module binding: main#library-dir o|hiding unexported module binding: main#extra-libraries o|hiding unexported module binding: main#extra-shared-libraries o|hiding unexported module binding: main#default-library-files o|hiding unexported module binding: main#library-files o|hiding unexported module binding: main#shared-library-files o|hiding unexported module binding: main#translate-options o|hiding unexported module binding: main#include-dir o|hiding unexported module binding: main#compile-options o|hiding unexported module binding: main#builtin-compile-options o|hiding unexported module binding: main#compile-only-flag o|hiding unexported module binding: main#translation-optimization-options o|hiding unexported module binding: main#compilation-optimization-options o|hiding unexported module binding: main#linking-optimization-options o|hiding unexported module binding: main#link-options o|hiding unexported module binding: main#builtin-link-options o|hiding unexported module binding: main#target-filename o|hiding unexported module binding: main#verbose o|hiding unexported module binding: main#keep-files o|hiding unexported module binding: main#translate-only o|hiding unexported module binding: main#compile-only o|hiding unexported module binding: main#to-stdout o|hiding unexported module binding: main#shared o|hiding unexported module binding: main#static o|hiding unexported module binding: main#repo-path o|hiding unexported module binding: main#find-object-file o|hiding unexported module binding: main#usage o|hiding unexported module binding: main#run o|hiding unexported module binding: main#run-translation o|hiding unexported module binding: main#run-compilation o|hiding unexported module binding: main#compiler-options o|hiding unexported module binding: main#run-linking o|hiding unexported module binding: main#collect-linked-objects o|hiding unexported module binding: main#copy-files o|hiding unexported module binding: main#linker-options o|hiding unexported module binding: main#linker-libraries o|hiding unexported module binding: main#constant1663 o|hiding unexported module binding: main#cleanup o|hiding unexported module binding: main#string-any o|hiding unexported module binding: main#quote-option o|hiding unexported module binding: main#last-exit-code o|hiding unexported module binding: main#$system o|hiding unexported module binding: main#command o|hiding unexported module binding: main#$delete-file o|hiding unexported module binding: main#rez o|hiding unexported module binding: main#create-win-manifest S|applied compiler syntax: S| chicken.format#printf 1 S| scheme#for-each 6 S| chicken.format#sprintf 4 S| chicken.format#fprintf 2 S| chicken.base#foldl 3 S| scheme#map 13 S| chicken.base#foldr 3 o|eliminated procedure checks: 150 o|specializations: o| 1 (scheme#zero? *) o| 2 (scheme#zero? integer) o| 1 (scheme#= integer integer) o| 1 (scheme#+ fixnum fixnum) o| 1 (##sys#debug-mode?) o| 2 (scheme#= fixnum fixnum) o| 5 (scheme#string-append string string) o| 5 (scheme#char=? char char) o| 7 (scheme#string-ref string fixnum) o| 4 (scheme#string=? string string) o| 4 (scheme#> fixnum fixnum) o| 4 (scheme#string-length string) o| 1 (scheme#memv (or symbol keyword procedure eof null fixnum char boolean) list) o| 71 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 7 (##sys#check-output-port * * *) o| 2 (chicken.base#current-error-port) o| 4 (scheme#memq * list) o| 1 (scheme#eqv? * *) o| 6 (##sys#check-list (or pair list) *) o| 26 (scheme#cdr pair) o| 8 (scheme#car pair) o| 2 (scheme#number->string fixnum) (o e)|safe calls: 813 (o e)|assignments to immediate values: 25 o|removed side-effect free assignment to unused variable: main#default-install-program o|removed side-effect free assignment to unused variable: main#default-ldflags o|removed side-effect free assignment to unused variable: main#default-install-program-executable-flags o|removed side-effect free assignment to unused variable: main#default-install-program-data-flags o|removed side-effect free assignment to unused variable: main#default-slibdir o|removed side-effect free assignment to unused variable: main#default-platform o|removed side-effect free assignment to unused variable: main#default-prefix o|removed side-effect free assignment to unused variable: main#default-csc o|removed side-effect free assignment to unused variable: main#default-csi o|removed side-effect free assignment to unused variable: main#default-builder o|removed side-effect free assignment to unused variable: main#target-librarian o|removed side-effect free assignment to unused variable: main#target-librarian-options o|removed side-effect free assignment to unused variable: main#host-ldflags o|removed side-effect free assignment to unused variable: main#+egg-info-extension+ o|removed side-effect free assignment to unused variable: main#+version-file+ o|removed side-effect free assignment to unused variable: main#+timestamp-file+ o|removed side-effect free assignment to unused variable: main#+status-file+ o|removed side-effect free assignment to unused variable: main#+egg-extension+ o|removed side-effect free assignment to unused variable: main#validate-environment o|removed side-effect free assignment to unused variable: main#probe-dir o|removed side-effect free assignment to unused variable: main#cache-directory o|removed side-effect free assignment to unused variable: main#partition o|removed side-effect free assignment to unused variable: main#span o|removed side-effect free assignment to unused variable: main#drop o|removed side-effect free assignment to unused variable: main#split-at o|removed side-effect free assignment to unused variable: main#append-map o|inlining procedure: k2888 o|inlining procedure: k2888 o|inlining procedure: k2919 o|inlining procedure: k2919 o|merged explicitly consed rest parameter: xs406 o|inlining procedure: k2949 o|inlining procedure: k2949 o|removed side-effect free assignment to unused variable: main#concatenate o|removed side-effect free assignment to unused variable: main#second o|removed side-effect free assignment to unused variable: main#third o|removed side-effect free assignment to unused variable: main#fourth o|removed side-effect free assignment to unused variable: main#fifth o|removed side-effect free assignment to unused variable: main#alist-cons o|inlining procedure: k3136 o|inlining procedure: k3136 o|inlining procedure: k3128 o|inlining procedure: k3128 o|removed side-effect free assignment to unused variable: main#remove o|removed side-effect free assignment to unused variable: main#unzip1 o|removed side-effect free assignment to unused variable: main#list-index o|removed side-effect free assignment to unused variable: main#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: main#lset-union/eq? o|removed side-effect free assignment to unused variable: main#lset-intersection/eq? o|inlining procedure: k3527 o|inlining procedure: k3527 o|removed side-effect free assignment to unused variable: main#lset<=/eq? o|removed side-effect free assignment to unused variable: main#lset=/eq? o|removed side-effect free assignment to unused variable: main#length+ o|removed side-effect free assignment to unused variable: main#find o|removed side-effect free assignment to unused variable: main#find-tail o|removed side-effect free assignment to unused variable: main#iota o|removed side-effect free assignment to unused variable: main#make-list o|removed side-effect free assignment to unused variable: main#posq o|removed side-effect free assignment to unused variable: main#posv o|removed side-effect free assignment to unused variable: main#TARGET_CC o|removed side-effect free assignment to unused variable: main#windows o|substituted constant variable: a3815 o|merged explicitly consed rest parameter: args756 o|propagated global variable: out757760 ##sys#standard-error o|substituted constant variable: a3820 o|substituted constant variable: a3821 o|contracted procedure: "(csc.scm:89) main#back-slash->forward-slash" o|inlining procedure: k3859 o|inlining procedure: k3859 o|inlining procedure: k3947 o|inlining procedure: k3947 o|removed side-effect free assignment to unused variable: main#dynamic-libchicken o|substituted constant variable: main#default-translation-optimization-options o|inlining procedure: k4228 o|inlining procedure: k4228 o|contracted procedure: "(csc.scm:296) main#destination-repository" o|inlining procedure: k2467 o|inlining procedure: k2467 o|inlining procedure: k4255 o|inlining procedure: k4255 o|inlining procedure: k4267 o|inlining procedure: k4267 o|inlining procedure: k4279 o|inlining procedure: k4279 o|inlining procedure: k4299 o|inlining procedure: k4299 o|inlining procedure: k6704 o|inlining procedure: k6704 o|removed side-effect free assignment to unused variable: main#copy-files o|inlining procedure: k7191 o|inlining procedure: k7191 o|inlining procedure: k7237 o|inlining procedure: k7237 o|contracted procedure: "(csc.scm:1033) main#library-files" o|contracted procedure: "(csc.scm:231) main#default-library" o|contracted procedure: "(csc.scm:1034) main#shared-library-files" o|contracted procedure: "(csc.scm:232) main#default-library-files" o|inlining procedure: k4051 o|inlining procedure: k4051 o|substituted constant variable: a7336 o|inlining procedure: k7337 o|inlining procedure: k7337 o|inlining procedure: k7357 o|inlining procedure: k7357 o|contracted procedure: "(csc.scm:1074) main#cleanup" o|inlining procedure: k7259 o|inlining procedure: k7259 o|inlining procedure: k7280 o|inlining procedure: k7280 o|consed rest parameter at call site: "(csc.scm:1051) main#cons*" 2 o|inlining procedure: k7378 o|inlining procedure: k7378 o|inlining procedure: k7469 o|inlining procedure: k7469 o|contracted procedure: "(csc.scm:1096) main#$system" o|inlining procedure: k7407 o|inlining procedure: k7407 o|propagated global variable: out17231726 ##sys#standard-output o|substituted constant variable: a7418 o|substituted constant variable: a7419 o|propagated global variable: out17231726 ##sys#standard-output o|inlining procedure: k7448 o|inlining procedure: k7448 o|inlining procedure: k7485 o|inlining procedure: k7485 o|contracted procedure: "(csc.scm:1136) main#run" o|merged explicitly consed rest parameter: os1014 o|merged explicitly consed rest parameter: n1017 o|inlining procedure: k4359 o|inlining procedure: k4359 o|consed rest parameter at call site: "(csc.scm:534) main#stop" 2 o|inlining procedure: k4373 o|inlining procedure: k4373 o|inlining procedure: k4399 o|inlining procedure: k4399 o|consed rest parameter at call site: "(csc.scm:537) main#cons*" 2 o|inlining procedure: k4419 o|propagated global variable: r44207928 main#shared-library-extension o|inlining procedure: k4419 o|inlining procedure: k4431 o|inlining procedure: k4457 o|inlining procedure: k4457 o|contracted procedure: "(csc.scm:603) main#run-linking" o|inlining procedure: k6760 o|inlining procedure: k6760 o|inlining procedure: k6775 o|inlining procedure: k6775 o|inlining procedure: k6801 o|contracted procedure: "(csc.scm:987) main#rez" o|substituted constant variable: a7505 o|substituted constant variable: a7506 o|inlining procedure: k6801 o|inlining procedure: k6827 o|inlining procedure: k6827 o|inlining procedure: k6837 o|propagated global variable: r68387945 main#host-libdir o|inlining procedure: k6837 o|substituted constant variable: a6847 o|consed rest parameter at call site: "(csc.scm:965) main#cons*" 2 o|substituted constant variable: main#link-output-flag o|inlining procedure: k6888 o|inlining procedure: k6888 o|propagated global variable: g14911495 main#object-files o|contracted procedure: "(csc.scm:959) main#collect-linked-objects" o|inlining procedure: k7047 o|contracted procedure: "(csc.scm:1006) main#delete-duplicates" o|inlining procedure: k3080 o|inlining procedure: k3080 o|contracted procedure: "(mini-srfi-1.scm:123) main#delete" o|inlining procedure: k3005 o|inlining procedure: k3005 o|inlining procedure: k7047 o|contracted procedure: "(csc.scm:1010) locate-objects1535" o|inlining procedure: k6976 o|contracted procedure: "(csc.scm:1000) g15481557" o|inlining procedure: k6952 o|inlining procedure: k6952 o|consed rest parameter at call site: "(csc.scm:1002) main#stop" 2 o|inlining procedure: k6976 o|inlining procedure: k7010 o|inlining procedure: k7010 o|contracted procedure: "(csc.scm:1008) locate-link-file1534" o|propagated global variable: tmp16031605 main#static o|propagated global variable: tmp16031605 main#static o|propagated global variable: ofiles1532 main#object-files o|propagated global variable: ofiles1532 main#object-files o|propagated global variable: out10531056 ##sys#standard-error o|substituted constant variable: a4473 o|substituted constant variable: a4474 o|substituted constant variable: a4501 o|substituted constant variable: a4502 o|inlining procedure: k4540 o|inlining procedure: k4540 o|propagated global variable: out10531056 ##sys#standard-error o|contracted procedure: "(csc.scm:592) main#filter-map" o|propagated global variable: lst470 main#linked-extensions o|inlining procedure: k3183 o|inlining procedure: k3183 o|inlining procedure: k3172 o|inlining procedure: k3172 o|contracted procedure: "(csc.scm:588) main#run-compilation" o|substituted constant variable: main#compile-only-flag o|inlining procedure: k6458 o|inlining procedure: k6458 o|substituted constant variable: main#compile-output-flag o|consed rest parameter at call site: "(csc.scm:912) main#stop" 2 o|inlining procedure: k6481 o|substituted constant variable: a6487 o|inlining procedure: k6481 o|inlining procedure: k6543 o|inlining procedure: k6543 o|inlining procedure: k6561 o|inlining procedure: k6561 o|propagated global variable: g14351437 main#generated-rc-files o|inlining procedure: k6584 o|inlining procedure: k6584 o|propagated global variable: g14181420 main#generated-c-files o|inlining procedure: k6611 o|inlining procedure: k6611 o|propagated global variable: g13751399 main#rc-files o|contracted procedure: "(csc.scm:930) main#create-win-manifest" o|inlining procedure: k6662 o|inlining procedure: k6662 o|propagated global variable: g13651377 main#c-files o|inlining procedure: k4560 o|inlining procedure: k4560 o|contracted procedure: "(csc.scm:579) main#last" o|inlining procedure: k3285 o|inlining procedure: k3285 o|consed rest parameter at call site: "(csc.scm:575) main#stop" 2 o|inlining procedure: k4581 o|consed rest parameter at call site: "(csc.scm:575) main#stop" 2 o|consed rest parameter at call site: "(csc.scm:574) main#cons*" 2 o|inlining procedure: k4581 o|consed rest parameter at call site: "(csc.scm:575) main#stop" 2 o|contracted procedure: "(csc.scm:586) main#run-translation" o|inlining procedure: k6388 o|contracted procedure: "(csc.scm:853) g12961303" o|consed rest parameter at call site: "(csc.scm:868) main#cons*" 2 o|inlining procedure: k6292 o|inlining procedure: k6292 o|inlining procedure: k6328 o|inlining procedure: k6328 o|consed rest parameter at call site: "(csc.scm:864) main#stop" 2 o|inlining procedure: k6365 o|inlining procedure: k6365 o|substituted constant variable: a6374 o|inlining procedure: k6388 o|propagated global variable: g13021304 main#scheme-files o|contracted procedure: "(csc.scm:585) main#first" o|propagated global variable: x428 main#scheme-files o|contracted procedure: "(csc.scm:560) main#builtin-link-options" o|inlining procedure: k4112 o|contracted procedure: "(csc.scm:276) g936937" o|inlining procedure: k4134 o|contracted procedure: "(csc.scm:278) g947956" o|inlining procedure: k4134 o|inlining procedure: k4112 o|substituted constant variable: a4178 o|inlining procedure: k4191 o|inlining procedure: k4191 o|inlining procedure: k4200 o|inlining procedure: k4200 o|inlining procedure: k4431 o|contracted procedure: "(csc.scm:610) main#usage" o|inlining procedure: k4696 o|inlining procedure: k4696 o|substituted constant variable: a4729 o|substituted constant variable: a4730 o|inlining procedure: k4743 o|inlining procedure: k4743 o|inlining procedure: k4764 o|inlining procedure: k4764 o|inlining procedure: k4783 o|inlining procedure: k4783 o|inlining procedure: k4803 o|inlining procedure: k4803 o|inlining procedure: k4827 o|inlining procedure: k4827 o|inlining procedure: k4847 o|consed rest parameter at call site: "(csc.scm:643) t-options1009" 1 o|consed rest parameter at call site: "(csc.scm:641) main#cons*" 2 o|inlining procedure: k4847 o|consed rest parameter at call site: "(csc.scm:649) t-options1009" 1 o|inlining procedure: k4894 o|consed rest parameter at call site: "(csc.scm:652) t-options1009" 1 o|inlining procedure: k4894 o|consed rest parameter at call site: "(csc.scm:655) t-options1009" 1 o|inlining procedure: k4920 o|inlining procedure: k4920 o|inlining procedure: k4934 o|inlining procedure: k4934 o|inlining procedure: k4955 o|consed rest parameter at call site: "(csc.scm:664) t-options1009" 1 o|consed rest parameter at call site: "(csc.scm:663) check1010" 3 o|inlining procedure: k4955 o|consed rest parameter at call site: "(csc.scm:669) check1010" 3 o|inlining procedure: k5004 o|consed rest parameter at call site: "(csc.scm:674) t-options1009" 1 o|consed rest parameter at call site: "(csc.scm:673) check1010" 3 o|inlining procedure: k5004 o|contracted procedure: "(csc.scm:677) use-private-repository1012" o|inlining procedure: k5036 o|consed rest parameter at call site: "(csc.scm:680) t-options1009" 1 o|inlining procedure: k5036 o|consed rest parameter at call site: "(csc.scm:683) t-options1009" 1 o|inlining procedure: k5056 o|inlining procedure: k5056 o|inlining procedure: k5074 o|consed rest parameter at call site: "(csc.scm:696) main#cons*" 2 o|inlining procedure: k5074 o|inlining procedure: k5089 o|inlining procedure: k5089 o|consed rest parameter at call site: "(csc.scm:703) main#cons*" 2 o|consed rest parameter at call site: "(csc.scm:701) check1010" 3 o|inlining procedure: k5120 o|consed rest parameter at call site: "(csc.scm:706) check1010" 3 o|inlining procedure: k5120 o|consed rest parameter at call site: "(csc.scm:710) main#cons*" 2 o|inlining procedure: k5153 o|consed rest parameter at call site: "(csc.scm:711) main#cons*" 2 o|inlining procedure: k5153 o|consed rest parameter at call site: "(csc.scm:712) main#cons*" 2 o|inlining procedure: k5173 o|consed rest parameter at call site: "(csc.scm:713) main#cons*" 2 o|inlining procedure: k5173 o|consed rest parameter at call site: "(csc.scm:714) main#cons*" 2 o|inlining procedure: k5193 o|consed rest parameter at call site: "(csc.scm:716) main#cons*" 2 o|inlining procedure: k5193 o|consed rest parameter at call site: "(csc.scm:717) main#cons*" 2 o|inlining procedure: k5213 o|consed rest parameter at call site: "(csc.scm:718) main#cons*" 2 o|inlining procedure: k5213 o|consed rest parameter at call site: "(csc.scm:719) main#cons*" 2 o|inlining procedure: k5233 o|consed rest parameter at call site: "(csc.scm:720) main#cons*" 2 o|inlining procedure: k5233 o|substituted constant variable: a5262 o|consed rest parameter at call site: "(csc.scm:723) t-options1009" 1 o|consed rest parameter at call site: "(csc.scm:722) check1010" 3 o|inlining procedure: k5277 o|inlining procedure: k5277 o|inlining procedure: k5297 o|inlining procedure: k5297 o|consed rest parameter at call site: "(csc.scm:736) check1010" 3 o|inlining procedure: k5326 o|consed rest parameter at call site: "(csc.scm:740) check1010" 3 o|inlining procedure: k5326 o|consed rest parameter at call site: "(csc.scm:744) check1010" 3 o|inlining procedure: k5360 o|consed rest parameter at call site: "(csc.scm:748) check1010" 3 o|inlining procedure: k5360 o|consed rest parameter at call site: "(csc.scm:753) main#cons*" 2 o|consed rest parameter at call site: "(csc.scm:752) check1010" 3 o|inlining procedure: k5398 o|consed rest parameter at call site: "(csc.scm:755) check1010" 3 o|inlining procedure: k5398 o|inlining procedure: k5437 o|consed rest parameter at call site: "(csc.scm:761) check1010" 3 o|inlining procedure: k5437 o|substituted constant variable: a5501 o|inlining procedure: k5502 o|inlining procedure: k5502 o|consed rest parameter at call site: "(csc.scm:765) check1010" 3 o|inlining procedure: k5511 o|inlining procedure: k5511 o|consed rest parameter at call site: "(csc.scm:774) t-options1009" 1 o|consed rest parameter at call site: "(csc.scm:773) check1010" 3 o|inlining procedure: k5537 o|consed rest parameter at call site: "(csc.scm:778) t-options1009" 1 o|consed rest parameter at call site: "(csc.scm:777) check1010" 3 o|inlining procedure: k5537 o|inlining procedure: k5567 o|inlining procedure: k5567 o|inlining procedure: k5583 o|inlining procedure: k5583 o|consed rest parameter at call site: "(csc.scm:792) t-options1009" 1 o|inlining procedure: k5608 o|consed rest parameter at call site: "(csc.scm:795) t-options1009" 1 o|consed rest parameter at call site: "(csc.scm:794) check1010" 3 o|inlining procedure: k5608 o|consed rest parameter at call site: "(csc.scm:798) t-options1009" 1 o|inlining procedure: k5637 o|substituted constant variable: a5649 o|substituted constant variable: a5646 o|substituted constant variable: a5669 o|substituted constant variable: a5676 o|substituted constant variable: a5673 o|inlining procedure: k5670 o|substituted constant variable: a5696 o|inlining procedure: k5670 o|substituted constant variable: a5703 o|substituted constant variable: a5700 o|consed rest parameter at call site: "(csc.scm:810) t-options1009" 1 o|substituted constant variable: a5717 o|substituted constant variable: a5714 o|inlining procedure: k5711 o|inlining procedure: k5711 o|inlining procedure: k5743 o|inlining procedure: k5782 o|contracted procedure: "(csc.scm:820) g12411250" o|substituted constant variable: a5771 o|inlining procedure: k5782 o|consed rest parameter at call site: "(csc.scm:821) main#stop" 2 o|contracted procedure: "(csc.scm:818) main#lset-difference/eq?" o|inlining procedure: k3385 o|contracted procedure: "(mini-srfi-1.scm:164) g570571" o|inlining procedure: k3385 o|inlining procedure: k5743 o|consed rest parameter at call site: "(csc.scm:822) main#stop" 2 o|substituted constant variable: a5831 o|substituted constant variable: a5836 o|substituted constant variable: a5845 o|inlining procedure: k5637 o|inlining procedure: k5865 o|inlining procedure: k5865 o|inlining procedure: k5893 o|inlining procedure: k5893 o|inlining procedure: k5929 o|inlining procedure: k5929 o|inlining procedure: k5973 o|inlining procedure: k5973 o|consed rest parameter at call site: "(csc.scm:846) main#stop" 2 o|substituted constant variable: a5987 o|substituted constant variable: a5994 o|substituted constant variable: a5991 o|substituted constant variable: a5999 o|substituted constant variable: a6004 o|substituted constant variable: a6013 o|substituted constant variable: main#constant810 o|substituted constant variable: main#constant807 o|substituted constant variable: main#constant814 o|substituted constant variable: a6016 o|substituted constant variable: a6025 o|substituted constant variable: a6027 o|substituted constant variable: a6029 o|substituted constant variable: a6031 o|substituted constant variable: a6033 o|substituted constant variable: a6035 o|substituted constant variable: a6037 o|substituted constant variable: a6039 o|substituted constant variable: a6041 o|substituted constant variable: a6043 o|substituted constant variable: a6045 o|substituted constant variable: a6047 o|substituted constant variable: a6049 o|substituted constant variable: a6054 o|substituted constant variable: a6056 o|inlining procedure: k6060 o|inlining procedure: k6060 o|substituted constant variable: a6067 o|substituted constant variable: a6069 o|substituted constant variable: a6071 o|substituted constant variable: a6073 o|substituted constant variable: a6075 o|substituted constant variable: a6077 o|substituted constant variable: a6079 o|substituted constant variable: a6081 o|substituted constant variable: a6083 o|substituted constant variable: a6085 o|substituted constant variable: a6087 o|substituted constant variable: a6089 o|substituted constant variable: a6091 o|substituted constant variable: a6093 o|substituted constant variable: a6098 o|substituted constant variable: a6100 o|substituted constant variable: a6105 o|substituted constant variable: a6107 o|substituted constant variable: a6109 o|substituted constant variable: a6111 o|substituted constant variable: a6113 o|substituted constant variable: a6115 o|substituted constant variable: a6117 o|substituted constant variable: a6119 o|substituted constant variable: a6121 o|substituted constant variable: a6126 o|substituted constant variable: a6128 o|substituted constant variable: a6130 o|substituted constant variable: a6132 o|substituted constant variable: a6137 o|substituted constant variable: a6139 o|substituted constant variable: a6141 o|substituted constant variable: a6143 o|substituted constant variable: a6145 o|substituted constant variable: a6150 o|substituted constant variable: a6152 o|substituted constant variable: a6157 o|substituted constant variable: a6159 o|substituted constant variable: a6164 o|substituted constant variable: a6166 o|substituted constant variable: a6171 o|substituted constant variable: a6173 o|substituted constant variable: a6175 o|substituted constant variable: a6177 o|substituted constant variable: a6179 o|substituted constant variable: a6181 o|substituted constant variable: a6183 o|substituted constant variable: a6185 o|substituted constant variable: a6187 o|substituted constant variable: a6189 o|substituted constant variable: a6191 o|substituted constant variable: a6193 o|substituted constant variable: a6195 o|substituted constant variable: a6197 o|substituted constant variable: a6202 o|substituted constant variable: a6204 o|inlining procedure: k7589 o|inlining procedure: k7589 o|inlining procedure: k7600 o|contracted procedure: "(csc.scm:246) g857858" o|inlining procedure: k7631 o|contracted procedure: "(csc.scm:248) g868877" o|inlining procedure: k7631 o|inlining procedure: k7665 o|inlining procedure: k7665 o|inlining procedure: k7600 o|inlining procedure: k7727 o|inlining procedure: k7727 o|inlining procedure: k7737 o|propagated global variable: r77388132 main#host-cflags o|inlining procedure: k7737 o|propagated global variable: r77388134 main#default-cflags o|inlining procedure: k7740 o|inlining procedure: k7740 o|propagated global variable: r77418137 main#cygwin o|inlining procedure: k7744 o|propagated global variable: r77458138 main#host-cxx o|inlining procedure: k7744 o|propagated global variable: r77458140 main#default-cxx o|inlining procedure: k7748 o|propagated global variable: r77498142 main#host-cc o|inlining procedure: k7748 o|propagated global variable: r77498144 main#default-cc o|inlining procedure: k7752 o|inlining procedure: k7752 o|inlining procedure: k7762 o|propagated global variable: r77638150 main#host-cxx o|inlining procedure: k7762 o|propagated global variable: r77638152 main#default-cxx o|inlining procedure: k7766 o|propagated global variable: r77678154 main#host-cc o|inlining procedure: k7766 o|propagated global variable: r77678156 main#default-cc o|inlining procedure: k7807 o|inlining procedure: k7807 o|simplifications: ((if . 2)) o|replaced variables: 843 o|removed binding forms: 452 o|removed side-effect free assignment to unused variable: main#every o|removed side-effect free assignment to unused variable: main#any o|removed side-effect free assignment to unused variable: main#list-tabulate o|propagated global variable: out757760 ##sys#standard-error o|removed side-effect free assignment to unused variable: main#link-output-flag o|removed side-effect free assignment to unused variable: main#compile-output-flag o|removed side-effect free assignment to unused variable: main#default-translation-optimization-options o|removed side-effect free assignment to unused variable: main#constant807 o|removed side-effect free assignment to unused variable: main#constant810 o|removed side-effect free assignment to unused variable: main#constant814 o|removed side-effect free assignment to unused variable: main#compile-only-flag o|substituted constant variable: rest192194 o|substituted constant variable: mode193 o|folded constant expression: (scheme#eq? (quote target) (quote target)) o|substituted constant variable: r72817902 o|substituted constant variable: r74087908 o|substituted constant variable: r74087911 o|propagated global variable: out17231726 ##sys#standard-output o|substituted constant variable: r43747920 o|substituted constant variable: r43747920 o|inlining procedure: k4399 o|inlining procedure: k4399 o|substituted constant variable: r44007926 o|substituted constant variable: r44007926 o|inlining procedure: k4419 o|propagated global variable: r44208182 main#object-extension o|propagated global variable: r44208182 main#object-extension o|inlining procedure: k4419 o|propagated global variable: r44208184 main#executable-extension o|propagated global variable: r44208184 main#executable-extension o|substituted constant variable: a6880 o|propagated global variable: out10531056 ##sys#standard-error o|substituted constant variable: r45417963 o|substituted constant variable: r45417963 o|substituted constant variable: r45417965 o|substituted constant variable: r45417965 o|substituted constant variable: r31737970 o|propagated global variable: g476477 main#linked-extensions o|substituted constant variable: r64597972 o|substituted constant variable: a6464 o|substituted constant variable: r64827974 o|substituted constant variable: r63298002 o|substituted constant variable: r63298002 o|inlining procedure: k6328 o|inlining procedure: k6328 o|substituted constant variable: r63668006 o|substituted constant variable: r63668006 o|inlining procedure: k6365 o|inlining procedure: k6365 o|substituted constant variable: r41138015 o|substituted constant variable: r41138015 o|substituted constant variable: r41928017 o|substituted constant variable: r41928017 o|inlining procedure: k4191 o|propagated global variable: r41928252 main#host-libdir o|propagated global variable: r41928252 main#host-libdir o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|substituted constant variable: r55038081 o|inlining procedure: k4678 o|substituted constant variable: r55128083 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|inlining procedure: k4678 o|contracted procedure: "(mini-srfi-1.scm:166) main#filter" o|substituted constant variable: r31297863 o|inlining procedure: k4678 o|substituted constant variable: r75908118 o|substituted constant variable: r75908118 o|substituted constant variable: r76018126 o|substituted constant variable: r76018126 o|removed call to pure procedure with unused result: "(csc.scm:66) scheme#eq?" o|replaced variables: 51 o|removed binding forms: 921 o|removed conditional forms: 1 o|contracted procedure: k3791 o|contracted procedure: k2470 o|inlining procedure: k7482 o|inlining procedure: k6928 o|inlining procedure: k4533 o|propagated global variable: r45348588 main#quotewrap-no-slash-trans o|inlining procedure: k4533 o|propagated global variable: r45348592 main#quotewrap o|inlining procedure: k6475 o|inlining procedure: k6475 o|inlining procedure: k4637 o|inlining procedure: k4168 o|inlining procedure: k4168 o|removed call to pure procedure with unused result: "(csc.scm:66) chicken.platform#software-type" o|replaced variables: 24 o|removed binding forms: 206 o|contracted procedure: k7797 o|inlining procedure: k3872 o|substituted constant variable: r2471 o|substituted constant variable: r44008178 o|substituted constant variable: r44008180 o|inlining procedure: "(csc.scm:598) main#quotewrap-no-slash-trans" o|propagated global variable: str7778660 main#target-filename o|substituted constant variable: r64768598 o|substituted constant variable: r64768599 o|substituted constant variable: r63298234 o|substituted constant variable: r63298236 o|substituted constant variable: r63668238 o|substituted constant variable: r63668240 o|substituted constant variable: r41698621 o|simplifications: ((if . 1) (let . 1)) o|replaced variables: 7 o|removed binding forms: 29 o|removed conditional forms: 4 o|removed side-effect free assignment to unused variable: main#host-repo o|inlining procedure: k2464 o|replaced variables: 3 o|removed binding forms: 14 o|substituted constant variable: r24658701 o|removed binding forms: 4 o|removed conditional forms: 1 o|removed binding forms: 1 o|simplifications: ((if . 36) (##core#call . 387)) o| call simplifications: o| scheme#assq o| ##sys#call-with-values o| scheme#string-ci=? o| ##sys#size 4 o| chicken.fixnum#fx> 4 o| scheme#string o| scheme#cadr o| scheme#number? o| ##sys#list o| scheme#string=? o| scheme#member 10 o| scheme#cdr 20 o| scheme#equal? o| scheme#length 3 o| scheme#>= 2 o| scheme#char=? o| scheme#string->list 4 o| scheme#memq 5 o| scheme#char-whitespace? 4 o| scheme#list->string o| scheme#string-length o| scheme#string-ref o| scheme#list 31 o| ##sys#check-list 15 o| scheme#pair? 20 o| ##sys#setslot 10 o| ##sys#slot 48 o| scheme#eq? 83 o| scheme#not 11 o| ##sys#apply o| scheme#null? 14 o| scheme#car 29 o| scheme#cons 56 o|contracted procedure: k7835 o|contracted procedure: k2356 o|contracted procedure: k2952 o|contracted procedure: k2963 o|contracted procedure: k3795 o|contracted procedure: k3799 o|contracted procedure: k3803 o|contracted procedure: k3807 o|contracted procedure: k3850 o|contracted procedure: k3853 o|contracted procedure: k3890 o|contracted procedure: k3918 o|contracted procedure: k3950 o|contracted procedure: k4029 o|contracted procedure: k4037 o|contracted procedure: k4078 o|contracted procedure: k7710 o|contracted procedure: k7706 o|contracted procedure: k4081 o|contracted procedure: k2482 o|contracted procedure: k2464 o|contracted procedure: k4273 o|contracted procedure: k4293 o|contracted procedure: k6689 o|contracted procedure: k6695 o|contracted procedure: k6707 o|contracted procedure: k6710 o|contracted procedure: k6713 o|contracted procedure: k6721 o|contracted procedure: k6729 o|contracted procedure: k7176 o|contracted procedure: k7182 o|contracted procedure: k7194 o|contracted procedure: k7197 o|contracted procedure: k7200 o|contracted procedure: k7208 o|contracted procedure: k7216 o|contracted procedure: k7237 o|contracted procedure: k7323 o|contracted procedure: k7332 o|contracted procedure: k7283 o|contracted procedure: k7286 o|contracted procedure: k7292 o|contracted procedure: k7316 o|contracted procedure: k7375 o|contracted procedure: k7410 o|contracted procedure: k7414 o|contracted procedure: k4369 o|contracted procedure: k4376 o|inlining procedure: k4362 o|contracted procedure: k4373 o|inlining procedure: k4362 o|contracted procedure: k4434 o|contracted procedure: k6742 o|contracted procedure: k6745 o|contracted procedure: k6766 o|contracted procedure: k6778 o|contracted procedure: k6788 o|contracted procedure: k6792 o|contracted procedure: k6795 o|contracted procedure: k6857 o|contracted procedure: k6865 o|contracted procedure: k6891 o|contracted procedure: k6894 o|contracted procedure: k6897 o|contracted procedure: k6905 o|contracted procedure: k6913 o|propagated global variable: g14911495 main#object-files o|contracted procedure: k7050 o|contracted procedure: k3083 o|contracted procedure: k3086 o|contracted procedure: k3096 o|contracted procedure: k3008 o|contracted procedure: k3034 o|contracted procedure: k6944 o|contracted procedure: k6958 o|contracted procedure: k6961 o|contracted procedure: k6967 o|contracted procedure: k6979 o|contracted procedure: k6982 o|contracted procedure: k6985 o|contracted procedure: k6993 o|contracted procedure: k7001 o|contracted procedure: k7013 o|contracted procedure: k7016 o|contracted procedure: k7019 o|contracted procedure: k7027 o|contracted procedure: k7035 o|contracted procedure: k7093 o|contracted procedure: k7100 o|contracted procedure: k7104 o|contracted procedure: k7117 o|contracted procedure: k7113 o|contracted procedure: k4469 o|contracted procedure: k4522 o|contracted procedure: k4543 o|contracted procedure: k3163 o|contracted procedure: k3175 o|contracted procedure: k3198 o|contracted procedure: k3206 o|propagated global variable: g476477 main#linked-extensions o|contracted procedure: k6423 o|contracted procedure: k6427 o|contracted procedure: k6439 o|contracted procedure: k6435 o|contracted procedure: k6458 o|contracted procedure: k6469 o|contracted procedure: k6489 o|contracted procedure: k6475 o|contracted procedure: k6492 o|contracted procedure: k6510 o|contracted procedure: k6514 o|contracted procedure: k6522 o|contracted procedure: k6533 o|contracted procedure: k6546 o|contracted procedure: k6552 o|contracted procedure: k6564 o|contracted procedure: k6574 o|contracted procedure: k6578 o|propagated global variable: g14351437 main#generated-rc-files o|contracted procedure: k6587 o|contracted procedure: k6597 o|contracted procedure: k6601 o|propagated global variable: g14181420 main#generated-c-files o|contracted procedure: k6614 o|contracted procedure: k6624 o|contracted procedure: k6628 o|propagated global variable: g13751399 main#rc-files o|contracted procedure: k6641 o|contracted procedure: k6645 o|contracted procedure: k7562 o|contracted procedure: k7558 o|contracted procedure: k7554 o|contracted procedure: k6665 o|contracted procedure: k6675 o|contracted procedure: k6679 o|propagated global variable: g13651377 main#c-files o|contracted procedure: k4554 o|contracted procedure: k4575 o|contracted procedure: k4572 o|contracted procedure: k3298 o|contracted procedure: k3288 o|contracted procedure: k4598 o|contracted procedure: k4578 o|contracted procedure: k6379 o|contracted procedure: k6391 o|contracted procedure: k6401 o|contracted procedure: k6405 o|contracted procedure: k6376 o|contracted procedure: k6371 o|contracted procedure: k6210 o|contracted procedure: k6234 o|contracted procedure: k6238 o|contracted procedure: k6241 o|contracted procedure: k6245 o|contracted procedure: k6273 o|contracted procedure: k6277 o|contracted procedure: k6283 o|contracted procedure: k6295 o|contracted procedure: k6298 o|contracted procedure: k6301 o|contracted procedure: k6309 o|contracted procedure: k6317 o|contracted procedure: k6348 o|contracted procedure: k6358 o|propagated global variable: g13021304 main#scheme-files o|contracted procedure: k4618 o|contracted procedure: k4621 o|contracted procedure: k4625 o|contracted procedure: k4117 o|contracted procedure: k4137 o|contracted procedure: k4140 o|contracted procedure: k4143 o|contracted procedure: k4151 o|contracted procedure: k4159 o|contracted procedure: k4671 o|contracted procedure: k4684 o|contracted procedure: k4687 o|contracted procedure: k4343 o|contracted procedure: k4339 o|contracted procedure: k4335 o|contracted procedure: k4331 o|contracted procedure: k4327 o|contracted procedure: k4323 o|contracted procedure: k4319 o|contracted procedure: k4699 o|contracted procedure: k4715 o|contracted procedure: k4746 o|contracted procedure: k4754 o|contracted procedure: k4760 o|contracted procedure: k4767 o|contracted procedure: k4771 o|contracted procedure: k4778 o|contracted procedure: k4786 o|contracted procedure: k4794 o|contracted procedure: k4806 o|contracted procedure: k4818 o|contracted procedure: k4830 o|contracted procedure: k4842 o|contracted procedure: k4850 o|contracted procedure: k4853 o|contracted procedure: k4867 o|contracted procedure: k4875 o|contracted procedure: k4881 o|contracted procedure: k4884 o|contracted procedure: k4888 o|contracted procedure: k4897 o|contracted procedure: k4900 o|contracted procedure: k4910 o|contracted procedure: k4913 o|contracted procedure: k4923 o|contracted procedure: k4930 o|contracted procedure: k4937 o|contracted procedure: k4944 o|contracted procedure: k4947 o|contracted procedure: k4952 o|contracted procedure: k4958 o|contracted procedure: k4972 o|contracted procedure: k4980 o|contracted procedure: k4984 o|contracted procedure: k4990 o|contracted procedure: k4997 o|contracted procedure: k5001 o|contracted procedure: k5007 o|contracted procedure: k5010 o|contracted procedure: k5020 o|contracted procedure: k5024 o|contracted procedure: k5030 o|contracted procedure: k4409 o|contracted procedure: k5039 o|contracted procedure: k5049 o|contracted procedure: k5059 o|contracted procedure: k5066 o|contracted procedure: k5071 o|contracted procedure: k5078 o|contracted procedure: k5092 o|contracted procedure: k5099 o|contracted procedure: k5109 o|contracted procedure: k5117 o|contracted procedure: k5123 o|contracted procedure: k5126 o|contracted procedure: k5132 o|contracted procedure: k5136 o|contracted procedure: k5143 o|contracted procedure: k5146 o|contracted procedure: k5156 o|contracted procedure: k5166 o|contracted procedure: k5176 o|contracted procedure: k5186 o|contracted procedure: k5196 o|contracted procedure: k5206 o|contracted procedure: k5216 o|contracted procedure: k5226 o|contracted procedure: k5236 o|contracted procedure: k5246 o|contracted procedure: k5259 o|contracted procedure: k5270 o|contracted procedure: k5274 o|contracted procedure: k5280 o|contracted procedure: k5288 o|contracted procedure: k5300 o|contracted procedure: k5303 o|contracted procedure: k5312 o|contracted procedure: k5319 o|contracted procedure: k5323 o|contracted procedure: k5329 o|contracted procedure: k5336 o|contracted procedure: k5340 o|contracted procedure: k5346 o|contracted procedure: k5353 o|contracted procedure: k5357 o|contracted procedure: k5363 o|contracted procedure: k5370 o|contracted procedure: k5374 o|contracted procedure: k5380 o|contracted procedure: k5391 o|contracted procedure: k5395 o|contracted procedure: k5401 o|contracted procedure: k5412 o|contracted procedure: k5420 o|contracted procedure: k5426 o|contracted procedure: k5434 o|contracted procedure: k5440 o|contracted procedure: k5451 o|contracted procedure: k5459 o|contracted procedure: k5465 o|contracted procedure: k5472 o|contracted procedure: k5479 o|contracted procedure: k5490 o|contracted procedure: k5505 o|contracted procedure: k5514 o|contracted procedure: k5520 o|contracted procedure: k5530 o|contracted procedure: k5534 o|contracted procedure: k5540 o|contracted procedure: k5550 o|contracted procedure: k5554 o|contracted procedure: k5560 o|contracted procedure: k5580 o|contracted procedure: k5593 o|contracted procedure: k5589 o|contracted procedure: k5602 o|contracted procedure: k5611 o|contracted procedure: k5621 o|contracted procedure: k5625 o|contracted procedure: k5658 o|contracted procedure: k5661 o|contracted procedure: k5685 o|contracted procedure: k5688 o|contracted procedure: k5726 o|contracted procedure: k5740 o|contracted procedure: k5828 o|contracted procedure: k5746 o|contracted procedure: k5749 o|contracted procedure: k5755 o|contracted procedure: k5763 o|contracted procedure: k5785 o|contracted procedure: k5788 o|contracted procedure: k5791 o|contracted procedure: k5799 o|contracted procedure: k5807 o|contracted procedure: k5773 o|contracted procedure: k3388 o|contracted procedure: k3395 o|contracted procedure: k3418 o|contracted procedure: k3411 o|contracted procedure: k3119 o|contracted procedure: k3131 o|contracted procedure: k3149 o|contracted procedure: k3157 o|contracted procedure: k5842 o|contracted procedure: k5833 o|contracted procedure: k5868 o|contracted procedure: k5876 o|contracted procedure: k5882 o|contracted procedure: k5890 o|contracted procedure: k5896 o|contracted procedure: k5904 o|contracted procedure: k5910 o|contracted procedure: k5922 o|contracted procedure: k5926 o|contracted procedure: k5932 o|contracted procedure: k5941 o|contracted procedure: k5957 o|contracted procedure: k5965 o|contracted procedure: k5980 o|contracted procedure: k5996 o|contracted procedure: k5988 o|contracted procedure: k6010 o|contracted procedure: k6001 o|contracted procedure: k6019 o|contracted procedure: k6057 o|contracted procedure: k7605 o|contracted procedure: k7613 o|contracted procedure: k7622 o|contracted procedure: k7634 o|contracted procedure: k7637 o|contracted procedure: k7640 o|contracted procedure: k7648 o|contracted procedure: k7656 o|contracted procedure: k7668 o|contracted procedure: k7671 o|contracted procedure: k7674 o|contracted procedure: k7682 o|contracted procedure: k7690 o|contracted procedure: k7843 o|contracted procedure: k7847 o|contracted procedure: k7851 o|simplifications: ((if . 3) (let . 52)) o|removed binding forms: 359 o|inlining procedure: k5105 o|inlining procedure: k5105 o|inlining procedure: k5255 o|inlining procedure: k5255 o|inlining procedure: k5475 o|inlining procedure: k5475 o|substituted constant variable: r7844 o|substituted constant variable: r7848 o|substituted constant variable: r7844 o|substituted constant variable: r7848 o|substituted constant variable: r7852 o|simplifications: ((let . 2)) o|replaced variables: 76 o|removed binding forms: 1 o|inlining procedure: k4678 o|simplifications: ((if . 2)) o|removed binding forms: 53 o|removed binding forms: 1 o|direct leaf routine/allocation: g490491 3 o|direct leaf routine/allocation: loop530 0 o|direct leaf routine/allocation: g12181219 3 o|contracted procedure: k4568 o|converted assignments to bindings: (loop530) o|inlining procedure: "(csc.scm:791) k4678" o|simplifications: ((let . 1)) o|removed binding forms: 1 x|eliminated type checks: x| C_i_check_list_2: 1 o|customizable procedures: (k3936 k7593 map-loop889906 map-loop862913 k5291 k5574 k5577 k5631 k5640 k5949 k5913 k5732 foldr457460 g462463 foldl563567 map-loop12351253 k5482 shared-build1011 check1010 k4856 t-options1009 loop1033 k4101 k4105 map-loop941966 k4604 k4607 k6269 k6334 k6324 map-loop13161337 k6222 for-each-loop12951349 generate-target-filename1013 g13591376 for-each-loop13581389 k6631 k6498 g13691398 for-each-loop13681404 for-each-loop14111421 for-each-loop14281438 k6451 main#compiler-options foldr475478 g480481 k4460 k7063 map-loop15651582 map-loop15421589 loop1596 loop420 loop440 map-loop14791496 main#linker-options main#linker-libraries main#command for-each-loop15131523 main#stop g17191720 main#string-any k7304 fold1669 main#cons* lp1682 main#libchicken map-loop16351652 map-loop14511468 main#repo-path loop407) o|calls to known targets: 308 o|identified direct recursive calls: f_2947 1 o|identified direct recursive calls: f_7278 1 o|identified direct recursive calls: f_3170 1 o|identified direct recursive calls: f_3283 1 o|identified direct recursive calls: f_3126 1 o|fast box initializations: 30 o|fast global references: 413 o|fast global assignments: 202 o|dropping unused closure argument: f_2941 o|dropping unused closure argument: f_3283 o|dropping unused closure argument: f_3817 o|dropping unused closure argument: f_3941 o|dropping unused closure argument: f_4226 o|dropping unused closure argument: f_4350 o|dropping unused closure argument: f_4357 o|dropping unused closure argument: f_4383 o|dropping unused closure argument: f_4413 o|dropping unused closure argument: f_6683 o|dropping unused closure argument: f_7170 o|dropping unused closure argument: f_7223 o|dropping unused closure argument: f_7321 o|dropping unused closure argument: f_7467 */ /* end of file */ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/DEPRECATED����������������������������������������������������������������������������0000644�0001750�0001750�00000001245�13370655400�014257� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Deprecated functions and variables ================================== 5.0.0 - "bit->boolean" has been introduced temporarily to avoid users having to figure out why "bit-set?" uses a different argument order than the procedure with the same name that is specified in SRFI-33 and SRFI-60. This procedure will be replaced by the proper "bit-set?" in one of the next versions, together with a C level macro or function. See also: 45489c1b3d9fb20bacc91fa393ce7330dd61d22f "bit->boolean" expands into "C_u_i_bit_to_bool", "C_i_bit_to_bool" or "C_i_fixnum_bit_to_bool", which are all deprecated as well, but might be re-used in a future version of "bit-set?". �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/profiler.c����������������������������������������������������������������������������0000644�0001750�0001750�00000111636�13502230004�014712� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from profiler.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: profiler.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file profiler.c unit: profiler uses: library */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[25]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,6),40,97,51,50,56,41,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,13),40,97,51,51,55,32,46,32,97,114,103,115,41,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,112,114,111,102,105,108,101,45,105,110,102,111,32,115,105,122,101,32,102,105,108,101,110,97,109,101,41,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,115,101,116,45,112,114,111,102,105,108,101,45,105,110,102,111,45,118,101,99,116,111,114,33,32,118,101,99,32,105,32,120,41}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,112,114,111,102,105,108,101,45,101,110,116,114,121,32,105,110,100,101,120,32,118,101,99,41,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,112,114,111,102,105,108,101,45,101,120,105,116,32,105,110,100,101,120,32,118,101,99,41,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,49,53,49,32,105,41,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,51,56,32,103,49,52,53,41,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,6),40,97,53,48,48,41,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,102,105,110,105,115,104,45,112,114,111,102,105,108,101,41,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; /* from cpu-ms */ C_regparm static C_word C_fcall stub103(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_unsigned_int_to_num(&C_a,C_cpu_milliseconds()); return C_r;} #define return(x) C_cblock C_r = (C_mk_bool((x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub79(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word p=(C_word )(C_a0); C_return(ftell(C_port_file(p)) == 0); C_ret: #undef return return C_r;} C_noret_decl(f_288) static void C_ccall f_288(C_word c,C_word *av) C_noret; C_noret_decl(f_296) static void C_ccall f_296(C_word c,C_word *av) C_noret; C_noret_decl(f_300) static void C_ccall f_300(C_word c,C_word *av) C_noret; C_noret_decl(f_303) static void C_ccall f_303(C_word c,C_word *av) C_noret; C_noret_decl(f_315) static void C_ccall f_315(C_word c,C_word *av) C_noret; C_noret_decl(f_318) static void C_ccall f_318(C_word c,C_word *av) C_noret; C_noret_decl(f_321) static void C_ccall f_321(C_word c,C_word *av) C_noret; C_noret_decl(f_324) static void C_ccall f_324(C_word c,C_word *av) C_noret; C_noret_decl(f_329) static void C_ccall f_329(C_word c,C_word *av) C_noret; C_noret_decl(f_333) static void C_ccall f_333(C_word c,C_word *av) C_noret; C_noret_decl(f_338) static void C_ccall f_338(C_word c,C_word *av) C_noret; C_noret_decl(f_342) static void C_ccall f_342(C_word c,C_word *av) C_noret; C_noret_decl(f_356) static void C_ccall f_356(C_word c,C_word *av) C_noret; C_noret_decl(f_359) static void C_ccall f_359(C_word c,C_word *av) C_noret; C_noret_decl(f_372) static void C_ccall f_372(C_word c,C_word *av) C_noret; C_noret_decl(f_394) static void C_fcall f_394(C_word t0,C_word t1) C_noret; C_noret_decl(f_432) static void C_ccall f_432(C_word c,C_word *av) C_noret; C_noret_decl(f_492) static void C_ccall f_492(C_word c,C_word *av) C_noret; C_noret_decl(f_496) static void C_ccall f_496(C_word c,C_word *av) C_noret; C_noret_decl(f_501) static void C_ccall f_501(C_word c,C_word *av) C_noret; C_noret_decl(f_505) static void C_ccall f_505(C_word c,C_word *av) C_noret; C_noret_decl(f_515) static void C_fcall f_515(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_525) static void C_ccall f_525(C_word c,C_word *av) C_noret; C_noret_decl(f_528) static void C_ccall f_528(C_word c,C_word *av) C_noret; C_noret_decl(f_531) static void C_ccall f_531(C_word c,C_word *av) C_noret; C_noret_decl(f_534) static void C_ccall f_534(C_word c,C_word *av) C_noret; C_noret_decl(f_537) static void C_ccall f_537(C_word c,C_word *av) C_noret; C_noret_decl(f_540) static void C_ccall f_540(C_word c,C_word *av) C_noret; C_noret_decl(f_543) static void C_ccall f_543(C_word c,C_word *av) C_noret; C_noret_decl(f_546) static void C_ccall f_546(C_word c,C_word *av) C_noret; C_noret_decl(f_578) static void C_fcall f_578(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_588) static void C_ccall f_588(C_word c,C_word *av) C_noret; C_noret_decl(f_605) static void C_ccall f_605(C_word c,C_word *av) C_noret; C_noret_decl(C_profiler_toplevel) C_externexport void C_ccall C_profiler_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_394) static void C_ccall trf_394(C_word c,C_word *av) C_noret; static void C_ccall trf_394(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_394(t0,t1);} C_noret_decl(trf_515) static void C_ccall trf_515(C_word c,C_word *av) C_noret; static void C_ccall trf_515(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_515(t0,t1,t2);} C_noret_decl(trf_578) static void C_ccall trf_578(C_word c,C_word *av) C_noret; static void C_ccall trf_578(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_578(t0,t1,t2);} /* k286 */ static void C_ccall f_288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,5)))){ C_save_and_reclaim((void *)f_288,2,av);} a=C_alloc(25); t2=C_a_i_provide(&a,1,lf[0]); t3=lf[1] /* ##sys#profile-vector-list */ =C_SCHEME_END_OF_LIST;; t4=lf[2] /* ##sys#profile-name */ =C_SCHEME_FALSE;; t5=C_set_block_item(lf[3] /* ##sys#profile-append-mode */,0,C_SCHEME_FALSE); t6=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#register-profile-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_296,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[12]+1 /* (set! ##sys#set-profile-info-vector! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_359,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t8=*((C_word*)lf[13]+1); t9=C_mutate((C_word*)lf[14]+1 /* (set! ##sys#profile-entry ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_372,a[2]=t8,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp)); t10=C_mutate((C_word*)lf[15]+1 /* (set! ##sys#profile-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_432,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t11=*((C_word*)lf[16]+1); t12=C_mutate((C_word*)lf[6]+1 /* (set! ##sys#finish-profile ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_492,a[2]=t11,a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp)); t13=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t13; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} /* ##sys#register-profile-info in k286 */ static void C_ccall f_296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_296,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_300,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_315,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_stringp(t3))){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=t3; f_315(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_356,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_fix((C_word)C_getpid()); /* ##sys#fixnum->string */ t8=*((C_word*)lf[11]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_300(2,av2);}}} /* k298 in ##sys#register-profile-info in k286 */ static void C_ccall f_300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_300,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_303,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_fixnum_times(((C_word*)t0)[3],C_fix(5)); /* profiler.scm:74: scheme#make-vector */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k301 in k298 in ##sys#register-profile-info in k286 */ static void C_ccall f_303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_303,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,lf[1]); t3=C_mutate(&lf[1] /* (set! ##sys#profile-vector-list ...) */,t2); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k313 in ##sys#register-profile-info in k286 */ static void C_ccall f_315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_315,2,av);} a=C_alloc(3); t2=C_mutate(&lf[2] /* (set! ##sys#profile-name ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_318,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* profiler.scm:63: chicken.base#exit-handler */ t4=*((C_word*)lf[8]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k316 in k313 in ##sys#register-profile-info in k286 */ static void C_ccall f_318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_318,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_321,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* profiler.scm:64: chicken.base#implicit-exit-handler */ t4=*((C_word*)lf[7]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k319 in k316 in k313 in ##sys#register-profile-info in k286 */ static void C_ccall f_321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_321,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_324,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_338,a[2]=((C_word*)t0)[3],a[3]=((C_word)li1),tmp=(C_word)a,a+=4,tmp); /* profiler.scm:65: chicken.base#exit-handler */ t5=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k322 in k319 in k316 in k313 in ##sys#register-profile-info in k286 */ static void C_ccall f_324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_324,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_329,a[2]=((C_word*)t0)[2],a[3]=((C_word)li0),tmp=(C_word)a,a+=4,tmp); /* profiler.scm:69: chicken.base#implicit-exit-handler */ t3=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a328 in k322 in k319 in k316 in k313 in ##sys#register-profile-info in k286 */ static void C_ccall f_329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_329,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_333,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* profiler.scm:71: ##sys#finish-profile */ t3=*((C_word*)lf[6]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k331 in a328 in k322 in k319 in k316 in k313 in ##sys#register-profile-info in k286 */ static void C_ccall f_333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_333,2,av);} /* profiler.scm:72: oldieh */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a337 in k319 in k316 in k313 in ##sys#register-profile-info in k286 */ static void C_ccall f_338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_338,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_342,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* profiler.scm:67: ##sys#finish-profile */ t4=*((C_word*)lf[6]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k340 in a337 in k319 in k316 in k313 in ##sys#register-profile-info in k286 */ static void C_ccall f_342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_342,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}} /* k354 in ##sys#register-profile-info in k286 */ static void C_ccall f_356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_356,2,av);} /* ##sys#string-append */ t2=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[10]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* ##sys#set-profile-info-vector! in k286 */ static void C_ccall f_359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_359,5,av);} t5=C_fixnum_times(t3,C_fix(5)); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_setslot(t2,t5,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* ##sys#profile-entry in k286 */ static void C_ccall f_372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_372,4,av);} a=C_alloc(7); t4=C_fixnum_times(t2,C_fix(5)); t5=C_u_fixnum_plus(t4,C_fix(1)); t6=C_slot(t3,t5); t7=C_u_fixnum_plus(t4,C_fix(2)); t8=t7; t9=C_u_fixnum_plus(t4,C_fix(4)); t10=t9; t11=C_slot(t3,t10); t12=t11; t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_394,a[2]=t12,a[3]=t3,a[4]=t8,a[5]=t1,a[6]=t10,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_not(t6))){ t14=t13; f_394(t14,C_i_set_i_slot(t3,t5,C_SCHEME_FALSE));} else{ t14=C_eqp(((C_word*)t0)[2],t6); if(C_truep(t14)){ t15=t13; f_394(t15,C_i_set_i_slot(t3,t5,C_SCHEME_FALSE));} else{ t15=C_u_fixnum_plus(t6,C_fix(1)); t16=t13; f_394(t16,C_i_set_i_slot(t3,t5,t15));}}} /* k392 in ##sys#profile-entry in k286 */ static void C_fcall f_394(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,1)))){ C_save_and_reclaim_args((void *)trf_394,2,t0,t1);} a=C_alloc(8); t2=C_eqp(C_fix(0),((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_a_i_bytevector(&a,1,C_fix(6)); t4=stub103(t3); t5=C_i_setslot(((C_word*)t0)[3],((C_word*)t0)[4],t4); t6=C_u_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t7=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t7; av2[1]=C_i_set_i_slot(((C_word*)t0)[3],((C_word*)t0)[6],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=C_u_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t4=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_set_i_slot(((C_word*)t0)[3],((C_word*)t0)[6],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* ##sys#profile-exit in k286 */ static void C_ccall f_432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(66,c,1)))){ C_save_and_reclaim((void *)f_432,4,av);} a=C_alloc(66); t4=C_fixnum_times(t2,C_fix(5)); t5=C_u_fixnum_plus(t4,C_fix(2)); t6=C_u_fixnum_plus(t4,C_fix(3)); t7=C_u_fixnum_plus(t4,C_fix(4)); t8=C_slot(t3,t7); t9=C_u_fixnum_difference(t8,C_fix(1)); t10=C_i_set_i_slot(t3,t7,t9); t11=C_eqp(C_fix(0),t9); if(C_truep(t11)){ t12=C_slot(t3,t6); t13=C_eqp(t12,C_fix(0)); t14=(C_truep(t13)?C_fix(0):t12); t15=C_a_i_bytevector(&a,1,C_fix(6)); t16=stub103(t15); t17=C_slot(t3,t5); t18=C_s_a_i_minus(&a,2,t16,t17); t19=C_s_a_i_plus(&a,2,t14,t18); t20=t1;{ C_word *av2=av; av2[0]=t20; av2[1]=C_i_setslot(t3,t6,t19); ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} else{ t12=C_SCHEME_UNDEFINED; t13=t1;{ C_word *av2=av; av2[0]=t13; av2[1]=t12; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} /* ##sys#finish-profile in k286 */ static void C_ccall f_492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_492,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_496,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_debug_modep())){ /* profiler.scm:128: ##sys#print */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[23]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[24]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_496(2,av2);}}} /* k494 in ##sys#finish-profile in k286 */ static void C_ccall f_496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_496,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_501,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp); if(C_truep(*((C_word*)lf[3]+1))){ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[2]; av2[3]=t2; av2[4]=lf[21]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_501,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_505,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=*((C_word*)lf[18]+1); if(C_truep(stub79(C_SCHEME_UNDEFINED,*((C_word*)lf[18]+1)))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_605,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* profiler.scm:133: write */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[20]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_505(2,av2);}}} /* k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_505,2,av);} a=C_alloc(6); t2=lf[1]; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_578,a[2]=t4,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_578(t6,((C_word*)t0)[2],lf[1]);} /* doloop151 in for-each-loop138 in k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_fcall f_515(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_515,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_525,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* ##sys#write-char/port */ t4=*((C_word*)lf[17]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=C_make_character(40); av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k523 in doloop151 in for-each-loop138 in k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_525,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_528,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_slot(((C_word*)t0)[5],((C_word*)t0)[2]); /* profiler.scm:141: write */ t4=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k526 in k523 in doloop151 in for-each-loop138 in k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_528,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_531,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* ##sys#write-char/port */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(32); av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k529 in k526 in k523 in doloop151 in for-each-loop138 in k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_531,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_534,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_u_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t4=C_slot(((C_word*)t0)[5],t3); /* profiler.scm:143: write */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k532 in k529 in k526 in k523 in doloop151 in for-each-loop138 in k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_534,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_537,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* ##sys#write-char/port */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(32); av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k535 in k532 in k529 in k526 in k523 in doloop151 in for-each-loop138 in k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_537,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_540,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_u_fixnum_plus(((C_word*)t0)[2],C_fix(3)); t4=C_slot(((C_word*)t0)[5],t3); /* profiler.scm:145: write */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k538 in k535 in k532 in k529 in k526 in k523 in doloop151 in for-each-loop138 in k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_540,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* ##sys#write-char/port */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(41); av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k541 in k538 in k535 in k532 in k529 in k526 in k523 in doloop151 in for-each-loop138 in k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_543,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_546,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* ##sys#write-char/port */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k544 in k541 in k538 in k535 in k532 in k529 in k526 in k523 in doloop151 in for-each-loop138 in k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_546,2,av);} t2=C_u_fixnum_plus(((C_word*)t0)[2],C_fix(5)); t3=((C_word*)((C_word*)t0)[3])[1]; f_515(t3,((C_word*)t0)[4],t2);} /* for-each-loop138 in k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_fcall f_578(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_578,3,t0,t1,t2);} a=C_alloc(13); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_588,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=C_block_size(t5); t7=t6; t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_515,a[2]=t7,a[3]=t9,a[4]=t5,a[5]=((C_word)li6),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_515(t11,t3,C_fix(0));} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k586 in for-each-loop138 in k503 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_588,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_578(t3,((C_word*)t0)[4],t2);} /* k603 in a500 in k494 in ##sys#finish-profile in k286 */ static void C_ccall f_605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_605,2,av);} /* ##sys#write-char/port */ t2=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_profiler_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("profiler")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_profiler_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(147))){ C_save(t1); C_rereclaim2(147*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,25); lf[0]=C_h_intern(&lf[0],8, C_text("profiler")); lf[3]=C_h_intern(&lf[3],25, C_text("##sys#profile-append-mode")); lf[4]=C_h_intern(&lf[4],27, C_text("##sys#register-profile-info")); lf[5]=C_h_intern(&lf[5],18, C_text("scheme#make-vector")); lf[6]=C_h_intern(&lf[6],20, C_text("##sys#finish-profile")); lf[7]=C_h_intern(&lf[7],34, C_text("chicken.base#implicit-exit-handler")); lf[8]=C_h_intern(&lf[8],25, C_text("chicken.base#exit-handler")); lf[9]=C_h_intern(&lf[9],19, C_text("##sys#string-append")); lf[10]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010PROFILE.")); lf[11]=C_h_intern(&lf[11],20, C_text("##sys#fixnum->string")); lf[12]=C_h_intern(&lf[12],30, C_text("##sys#set-profile-info-vector!")); lf[13]=C_h_intern(&lf[13],35, C_text("chicken.fixnum#most-positive-fixnum")); lf[14]=C_h_intern(&lf[14],19, C_text("##sys#profile-entry")); lf[15]=C_h_intern(&lf[15],18, C_text("##sys#profile-exit")); lf[16]=C_h_intern(&lf[16],26, C_text("scheme#with-output-to-file")); lf[17]=C_h_intern(&lf[17],21, C_text("##sys#write-char/port")); lf[18]=C_h_intern(&lf[18],21, C_text("##sys#standard-output")); lf[19]=C_h_intern(&lf[19],12, C_text("scheme#write")); lf[20]=C_h_intern(&lf[20],12, C_text("instrumented")); lf[21]=C_h_intern_kw(&lf[21],6, C_text("append")); lf[22]=C_h_intern(&lf[22],11, C_text("##sys#print")); lf[23]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033[debug] writing profile...\012")); lf[24]=C_h_intern(&lf[24],20, C_text("##sys#standard-error")); C_register_lf2(lf,25,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_288,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[35] = { {C_text("f_288:profiler_2escm"),(void*)f_288}, {C_text("f_296:profiler_2escm"),(void*)f_296}, {C_text("f_300:profiler_2escm"),(void*)f_300}, {C_text("f_303:profiler_2escm"),(void*)f_303}, {C_text("f_315:profiler_2escm"),(void*)f_315}, {C_text("f_318:profiler_2escm"),(void*)f_318}, {C_text("f_321:profiler_2escm"),(void*)f_321}, {C_text("f_324:profiler_2escm"),(void*)f_324}, {C_text("f_329:profiler_2escm"),(void*)f_329}, {C_text("f_333:profiler_2escm"),(void*)f_333}, {C_text("f_338:profiler_2escm"),(void*)f_338}, {C_text("f_342:profiler_2escm"),(void*)f_342}, {C_text("f_356:profiler_2escm"),(void*)f_356}, {C_text("f_359:profiler_2escm"),(void*)f_359}, {C_text("f_372:profiler_2escm"),(void*)f_372}, {C_text("f_394:profiler_2escm"),(void*)f_394}, {C_text("f_432:profiler_2escm"),(void*)f_432}, {C_text("f_492:profiler_2escm"),(void*)f_492}, {C_text("f_496:profiler_2escm"),(void*)f_496}, {C_text("f_501:profiler_2escm"),(void*)f_501}, {C_text("f_505:profiler_2escm"),(void*)f_505}, {C_text("f_515:profiler_2escm"),(void*)f_515}, {C_text("f_525:profiler_2escm"),(void*)f_525}, {C_text("f_528:profiler_2escm"),(void*)f_528}, {C_text("f_531:profiler_2escm"),(void*)f_531}, {C_text("f_534:profiler_2escm"),(void*)f_534}, {C_text("f_537:profiler_2escm"),(void*)f_537}, {C_text("f_540:profiler_2escm"),(void*)f_540}, {C_text("f_543:profiler_2escm"),(void*)f_543}, {C_text("f_546:profiler_2escm"),(void*)f_546}, {C_text("f_578:profiler_2escm"),(void*)f_578}, {C_text("f_588:profiler_2escm"),(void*)f_588}, {C_text("f_605:profiler_2escm"),(void*)f_605}, {C_text("toplevel:profiler_2escm"),(void*)C_profiler_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* S|applied compiler syntax: S| scheme#for-each 1 o|eliminated procedure checks: 19 o|specializations: o| 1 (scheme#current-output-port) o| 1 (##sys#debug-mode?) o| 1 (scheme#string-append string string) o| 1 (scheme#number->string fixnum) (o e)|safe calls: 64 (o e)|assignments to immediate values: 1 o|substituted constant variable: a352 o|inlining procedure: "(profiler.scm:102) cpu-ms" o|inlining procedure: k416 o|inlining procedure: k416 o|inlining procedure: k452 o|inlining procedure: "(profiler.scm:117) cpu-ms" o|inlining procedure: k452 o|inlining procedure: k517 o|inlining procedure: k517 o|inlining procedure: k580 o|inlining procedure: k580 o|propagated global variable: g145148 ##sys#profile-vector-list o|contracted procedure: "(profiler.scm:132) empty-file?" o|propagated global variable: p7881 ##sys#standard-output o|inlining procedure: k610 o|inlining procedure: k610 o|replaced variables: 39 o|removed binding forms: 34 o|removed side-effect free assignment to unused variable: cpu-ms o|substituted constant variable: r417618 o|substituted constant variable: r417618 o|inlining procedure: k416 o|contracted procedure: "(profiler.scm:135) g139147" o|substituted constant variable: r611630 o|substituted constant variable: r611630 o|substituted constant variable: r611632 o|substituted constant variable: r611632 o|replaced variables: 3 o|removed binding forms: 44 o|inlining procedure: k412 o|substituted constant variable: r417634 o|removed binding forms: 11 o|contracted procedure: k477 o|contracted procedure: k600 o|simplifications: ((let . 1)) o|removed binding forms: 4 o|simplifications: ((if . 1) (##core#call . 55)) o| call simplifications: o| scheme#pair? o| ##sys#size o| chicken.fixnum#fx>= o| scheme#write-char 6 o| chicken.fixnum#fx- o| scheme#- o| scheme#+ o| ##sys#slot 10 o| scheme#not o| scheme#eq? 4 o| chicken.fixnum#fx+ 11 o| ##sys#setislot 5 o| ##sys#setslot 3 o| scheme#string? o| scheme#apply 3 o| chicken.fixnum#fx* 4 o| scheme#cons o|contracted procedure: k305 o|contracted procedure: k309 o|contracted procedure: k346 o|contracted procedure: k365 o|contracted procedure: k374 o|contracted procedure: k377 o|contracted procedure: k380 o|contracted procedure: k383 o|contracted procedure: k386 o|contracted procedure: k389 o|contracted procedure: k402 o|contracted procedure: k405 o|contracted procedure: k419 o|contracted procedure: k425 o|contracted procedure: k416 o|contracted procedure: k434 o|contracted procedure: k437 o|contracted procedure: k440 o|contracted procedure: k443 o|contracted procedure: k488 o|contracted procedure: k446 o|contracted procedure: k449 o|contracted procedure: k455 o|contracted procedure: k458 o|contracted procedure: k484 o|contracted procedure: k469 o|contracted procedure: k481 o|contracted procedure: k473 o|contracted procedure: k465 o|contracted procedure: k583 o|contracted procedure: k593 o|contracted procedure: k597 o|contracted procedure: k508 o|contracted procedure: k520 o|contracted procedure: k551 o|contracted procedure: k559 o|contracted procedure: k555 o|contracted procedure: k567 o|contracted procedure: k563 o|contracted procedure: k571 o|simplifications: ((let . 4)) o|removed binding forms: 40 o|inlining procedure: k395 o|inlining procedure: k395 o|replaced variables: 27 o|removed binding forms: 15 o|customizable procedures: (doloop151152 for-each-loop138163 k392) o|calls to known targets: 11 o|fast box initializations: 2 o|fast global references: 5 o|fast global assignments: 4 */ /* end of file */ ��������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.process.signal.import.scm�����������������������������������������������������0000644�0001750�0001750�00000004276�13502227762�021320� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.process.signal.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.process.signal 'posix (scheme#list) '((set-alarm! . chicken.process.signal#set-alarm!) (set-signal-handler! . chicken.process.signal#set-signal-handler!) (set-signal-mask! . chicken.process.signal#set-signal-mask!) (signal-handler . chicken.process.signal#signal-handler) (signal-mask . chicken.process.signal#signal-mask) (signal-mask! . chicken.process.signal#signal-mask!) (signal-masked? . chicken.process.signal#signal-masked?) (signal-unmask! . chicken.process.signal#signal-unmask!) (signal/abrt . chicken.process.signal#signal/abrt) (signal/alrm . chicken.process.signal#signal/alrm) (signal/break . chicken.process.signal#signal/break) (signal/bus . chicken.process.signal#signal/bus) (signal/chld . chicken.process.signal#signal/chld) (signal/cont . chicken.process.signal#signal/cont) (signal/fpe . chicken.process.signal#signal/fpe) (signal/hup . chicken.process.signal#signal/hup) (signal/ill . chicken.process.signal#signal/ill) (signal/int . chicken.process.signal#signal/int) (signal/io . chicken.process.signal#signal/io) (signal/kill . chicken.process.signal#signal/kill) (signal/pipe . chicken.process.signal#signal/pipe) (signal/prof . chicken.process.signal#signal/prof) (signal/quit . chicken.process.signal#signal/quit) (signal/segv . chicken.process.signal#signal/segv) (signal/stop . chicken.process.signal#signal/stop) (signal/term . chicken.process.signal#signal/term) (signal/trap . chicken.process.signal#signal/trap) (signal/tstp . chicken.process.signal#signal/tstp) (signal/urg . chicken.process.signal#signal/urg) (signal/usr1 . chicken.process.signal#signal/usr1) (signal/usr2 . chicken.process.signal#signal/usr2) (signal/vtalrm . chicken.process.signal#signal/vtalrm) (signal/winch . chicken.process.signal#signal/winch) (signal/xcpu . chicken.process.signal#signal/xcpu) (signal/xfsz . chicken.process.signal#signal/xfsz) (signals-list . chicken.process.signal#signals-list)) (scheme#list) (scheme#list)) ;; END OF FILE ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/Makefile.solaris����������������������������������������������������������������������0000644�0001750�0001750�00000011007�13502227553�016045� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.solaris - configuration for Solaris -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration ARCH ?= $(shell sh $(SRCDIR)/config-arch.sh) # default to gcc - use "make ... C_COMPILER=cc ..." to use SunPro CC export C_COMPILER ?= gcc export INSTALL_PROGRAM ?= ginstall # options ifeq ($(C_COMPILER),cc) ifneq (,$(filter-out x86 x86-64,$(ARCH))) # -xannotate=no is not supported on x86/x86-64 DISABLE_ANNOTATIONS=-xannotate=no else DISABLE_ANNOTATIONS= endif C_COMPILER_OPTIONS ?= -errtags -xdebugformat=stabs $(DISABLE_ANNOTATIONS) -DHAVE_CHICKEN_CONFIG_H else C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H endif ifdef DEBUGBUILD ifeq ($(C_COMPILER),cc) C_COMPILER_OPTIMIZATION_OPTIONS ?= -g +w else C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused endif else ifdef OPTIMIZE_FOR_SPEED ifeq ($(C_COMPILER),cc) C_COMPILER_OPTIMIZATION_OPTIONS += -g -xO4 else C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 -fomit-frame-pointer endif else ifeq ($(C_COMPILER),cc) C_COMPILER_OPTIMIZATION_OPTIONS += -g -xO3 else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer endif endif endif ifeq ($(C_COMPILER),cc) # Assuming 'cc' means SunW/SunStudio compiler LINKER_LINK_SHARED_LIBRARY_OPTIONS = -G $(DISABLE_ANNOTATIONS) LINKER_LINK_SHARED_DLOADABLE_OPTIONS = -G $(DISABLE_ANNOTATIONS) -R"$(RUNTIME_LINKER_PATH)" -L. LINKER_LINK_SHARED_PROGRAM_OPTIONS = -R"$(RUNTIME_LINKER_PATH)" else LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared LINKER_LINK_SHARED_DLOADABLE_OPTIONS = -shared -Wl,-R"$(RUNTIME_LINKER_PATH)" -Wl,-L. LINKER_LINK_SHARED_PROGRAM_OPTIONS = -Wl,-R"$(RUNTIME_LINKER_PATH)" endif LIBRARIES = -lsocket -lnsl -lm -ldl -lrt NEEDS_RELINKING = yes USES_SONAME = yes # special files CHICKEN_CONFIG_H = chicken-config.h # select default and internal settings include $(SRCDIR)/defaults.make chicken-config.h: chicken-defaults.h echo "/* END OF FILE */" >$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_DLFCN_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define HAVE_SIGACTION 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRLCAT 1" >>$@ echo "#define HAVE_STRLCPY 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_SETENV 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_ALLOCA_H 1" >>$@ echo "#define HAVE_ALLOCA 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_SYSEXITS_H 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/continuation.c������������������������������������������������������������������������0000644�0001750�0001750�00000026633�13502227772�015626� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from continuation.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: continuation.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file continuation.c -emit-import-library chicken.continuation unit: continuation uses: library */ #include "chicken.h" #define C_direct_continuation(dummy) t1 static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[11]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,99,111,110,116,105,110,117,97,116,105,111,110,35,99,111,110,116,105,110,117,97,116,105,111,110,45,99,97,112,116,117,114,101,32,112,114,111,99,41}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,99,111,110,116,105,110,117,97,116,105,111,110,35,99,111,110,116,105,110,117,97,116,105,111,110,63,32,120,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,20),67,95,99,111,110,116,105,110,117,97,116,105,111,110,95,103,114,97,102,116,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,20),67,95,99,111,110,116,105,110,117,97,116,105,111,110,95,103,114,97,102,116,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,99,111,110,116,105,110,117,97,116,105,111,110,35,99,111,110,116,105,110,117,97,116,105,111,110,45,103,114,97,102,116,32,107,32,116,104,117,110,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,20),67,95,99,111,110,116,105,110,117,97,116,105,111,110,95,103,114,97,102,116,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,6),40,97,50,54,55,41,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,99,111,110,116,105,110,117,97,116,105,111,110,35,99,111,110,116,105,110,117,97,116,105,111,110,45,114,101,116,117,114,110,32,107,32,46,32,118,97,108,115,41,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_208) static void C_ccall f_208(C_word c,C_word *av) C_noret; C_noret_decl(f_210) static void C_ccall f_210(C_word c,C_word *av) C_noret; C_noret_decl(f_220) static void C_ccall f_220(C_word c,C_word *av) C_noret; C_noret_decl(f_226) static void C_ccall f_226(C_word c,C_word *av) C_noret; C_noret_decl(f_236) static void C_ccall f_236(C_word c,C_word *av) C_noret; C_noret_decl(f_259) static void C_ccall f_259(C_word c,C_word *av) C_noret; C_noret_decl(f_268) static void C_ccall f_268(C_word c,C_word *av) C_noret; C_noret_decl(C_continuation_toplevel) C_externexport void C_ccall C_continuation_toplevel(C_word c,C_word *av) C_noret; /* k206 */ static void C_ccall f_208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){ C_save_and_reclaim((void *)f_208,2,av);} a=C_alloc(28); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate((C_word*)lf[2]+1 /* (set! chicken.continuation#continuation-capture ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_210,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[4]+1 /* (set! chicken.continuation#continuation? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_220,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[5]+1 /* (set! chicken.continuation#continuation-graft ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_226,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[8]+1 /* (set! chicken.continuation#continuation-return ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_259,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* chicken.continuation#continuation-capture in k206 */ static void C_ccall f_210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_210,3,av);} a=C_alloc(4); t3=*((C_word*)lf[3]+1); t4=C_direct_continuation(C_SCHEME_FALSE); t5=C_a_i_record3(&a,3,lf[0],t4,*((C_word*)lf[3]+1)); /* continuation.scm:46: proc */ t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* chicken.continuation#continuation? in k206 */ static void C_ccall f_220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_220,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_structurep(t2,lf[0]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.continuation#continuation-graft in k206 */ static void C_ccall f_226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_226,4,av);} a=C_alloc(8); t4=C_i_check_structure_2(t2,lf[0],lf[6]); t5=C_slot(t2,C_fix(2)); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_236,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=C_eqp(*((C_word*)lf[3]+1),t5); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_continuation_graft,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp); /* continuation.scm:53: g87 */ t9=t8;{ C_word *av2=av; av2[0]=t9; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}} else{ t8=C_i_length(*((C_word*)lf[3]+1)); t9=C_i_length(t5); t10=C_fixnum_difference(t8,t9); /* continuation.scm:55: ##sys#dynamic-unwind */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[7]+1); av2[1]=t6; av2[2]=t5; av2[3]=t10; tp(4,av2);}}} /* k234 in chicken.continuation#continuation-graft in k206 */ static void C_ccall f_236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_236,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_continuation_graft,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp); /* continuation.scm:53: g87 */ t3=t2;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* chicken.continuation#continuation-return in k206 */ static void C_ccall f_259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_259,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=C_i_check_structure_2(t2,lf[0],lf[9]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_continuation_graft,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_268,a[2]=t3,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp); /* continuation.scm:59: g94 */ t7=t5;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t1; av2[2]=t2; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} /* a267 in chicken.continuation#continuation-return in k206 */ static void C_ccall f_268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_268,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[10]+1); av2[3]=((C_word*)t0)[2]; C_apply(4,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_continuation_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("continuation")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_continuation_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(77))){ C_save(t1); C_rereclaim2(77*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,11); lf[0]=C_h_intern(&lf[0],12, C_text("continuation")); lf[1]=C_h_intern(&lf[1],21, C_text("chicken.continuation#")); lf[2]=C_h_intern(&lf[2],41, C_text("chicken.continuation#continuation-capture")); lf[3]=C_h_intern(&lf[3],19, C_text("##sys#dynamic-winds")); lf[4]=C_h_intern(&lf[4],34, C_text("chicken.continuation#continuation\077")); lf[5]=C_h_intern(&lf[5],39, C_text("chicken.continuation#continuation-graft")); lf[6]=C_h_intern(&lf[6],18, C_text("continuation-graft")); lf[7]=C_h_intern(&lf[7],20, C_text("##sys#dynamic-unwind")); lf[8]=C_h_intern(&lf[8],40, C_text("chicken.continuation#continuation-return")); lf[9]=C_h_intern(&lf[9],19, C_text("continuation-return")); lf[10]=C_h_intern(&lf[10],13, C_text("scheme#values")); C_register_lf2(lf,11,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_208,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[9] = { {C_text("f_208:continuation_2escm"),(void*)f_208}, {C_text("f_210:continuation_2escm"),(void*)f_210}, {C_text("f_220:continuation_2escm"),(void*)f_220}, {C_text("f_226:continuation_2escm"),(void*)f_226}, {C_text("f_236:continuation_2escm"),(void*)f_236}, {C_text("f_259:continuation_2escm"),(void*)f_259}, {C_text("f_268:continuation_2escm"),(void*)f_268}, {C_text("toplevel:continuation_2escm"),(void*)C_continuation_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.continuation#d o|hiding unexported module binding: chicken.continuation#define-alias o|eliminated procedure checks: 2 (o e)|safe calls: 6 o|safe globals: (chicken.continuation#continuation-return chicken.continuation#continuation-graft chicken.continuation#continuation? chicken.continuation#continuation-capture) o|propagated global variable: winds79 ##sys#dynamic-winds o|replaced variables: 9 o|removed binding forms: 8 o|inlining procedure: k234 o|removed binding forms: 9 o|removed binding forms: 2 o|simplifications: ((##core#call . 10)) o| call simplifications: o| scheme#apply o| ##sys#check-structure 2 o| ##sys#slot o| scheme#eq? o| scheme#length 2 o| chicken.fixnum#fx- o| ##sys#structure? o| ##sys#make-structure o|contracted procedure: k216 o|contracted procedure: k228 o|contracted procedure: k231 o|contracted procedure: k240 o|contracted procedure: k251 o|contracted procedure: k255 o|contracted procedure: k247 o|contracted procedure: k261 o|removed binding forms: 8 o|replaced variables: 4 o|removed binding forms: 2 */ /* end of file */ �����������������������������������������������������������������������������������������������������chicken-5.1.0/irregex.scm���������������������������������������������������������������������������0000644�0001750�0001750�00000021016�13502227553�015104� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; irregex.scm - container for irregex-core.scm ; ; Copyright (c) 2010-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit irregex) (no-procedure-checks) (fixnum)) (module chicken.irregex (;; Constructors, accessors and predicates irregex irregex? string->sre maybe-string->sre sre->irregex irregex-names irregex-num-submatches string->irregex ;; Chunking constructor make-irregex-chunker ;; Main API irregex-extract irregex-fold irregex-match irregex-match? irregex-search irregex-split irregex-replace irregex-replace/all ;; Chunked main API irregex-fold/chunked irregex-match/chunked irregex-search/chunked ;; Match extraction API irregex-match-data? irregex-match-names irregex-match-start-index irregex-match-end-index irregex-match-num-submatches irregex-match-substring irregex-match-valid-index? ;; Chunked match API irregex-match-start-chunk irregex-match-end-chunk irregex-match-subchunk ;; Utilities glob->sre sre->string irregex-opt irregex-quote) (import scheme chicken.base chicken.fixnum chicken.syntax chicken.type) (import-for-syntax chicken.fixnum) (include "common-declarations.scm") ;; These should probably be taken out of irregex upstream (declare (unused filter integer-log cset-size remove)) ;; Due to usual-integrations, find is the one from library.scm, ;; so find-tail is unused (it's only used in the "find" definition) (declare (unused find-tail)) ;; This is to silence an "always true" warning that we can't fix ;; because we don't want to needlessly change irregex-core. (declare (type (*allow-utf8-mode?* boolean))) (define-syntax build-cache (er-macro-transformer (lambda (x r c) ;; (build-cache N ARG FAIL) (let* ((n (cadr x)) (n2 (* n 2)) (arg (caddr x)) (fail (cadddr x)) (%cache (r 'cache)) (%index (r 'index)) (%arg (r 'arg)) (%let (r 'let)) (%let* (r 'let*)) (%if (r 'if)) (%fx+ (r 'fx+)) (%fxmod (r 'fxmod)) (%equal? (r 'equal?)) (%quote (r 'quote)) (%tmp (r 'tmp)) (%begin (r 'begin)) (cache (make-vector (add1 n2) #f))) (##sys#setslot cache n2 0) ; last slot: current index `(,%let* ((,%cache (,%quote ,cache)) ; we mutate a literal vector (,%arg ,arg)) ,(let fold ((i 0)) (if (fx>= i n) ;; this should be thread-safe: a context-switch can only ;; happen before this code and in the call to FAIL. `(,%let ((,%tmp ,fail) (,%index (##sys#slot ,%cache ,n2))) (##sys#setslot ,%cache ,%index ,%arg) (##sys#setslot ,%cache (,%fx+ ,%index 1) ,%tmp) (##sys#setislot ,%cache ,n2 (,%fxmod (,%fx+ ,%index 2) ,n2)) ,%tmp) `(,%if (,%equal? (##sys#slot ,%cache ,(* i 2)) ,%arg) (##sys#slot ,%cache ,(add1 (* i 2))) ,(fold (add1 i)))))))))) (declare (unused %%string-copy!)) (define-compiler-syntax %%string-copy! (syntax-rules () ((_ to tstart from fstart fend) (let ((x to) (y tstart) (z from) (u fstart) (v fend)) (##core#inline "C_substring_copy" z x u v y))))) (declare (unused %substring=?)) (define-compiler-syntax %substring=? (syntax-rules () ((_ a b start1 start2 len) (##core#inline "C_substring_compare" a b start1 start2 len)))) (define-compiler-syntax make-irregex (syntax-rules () ((_ dfa dfa/search nfa flags submatches lengths names) (##sys#make-structure 'regexp dfa dfa/search nfa flags submatches lengths names)))) (define-compiler-syntax make-irregex-match (syntax-rules () ((_ count names) (##sys#make-structure 'regexp-match (make-vector (* 4 (+ 2 count)) #f) ; #1: submatches names ; #2: (guess) #f ; #3: chunka #f)))) ; #4: fail (declare (unused reverse)) (define-compiler-syntax reverse (syntax-rules () ((_ lst) (##sys#fast-reverse lst)))) (declare (unused bit-shl)) (define-compiler-syntax bit-shl (syntax-rules () ((_ n i) (fxshl n i)))) (declare (unused bit-shr)) (define-compiler-syntax bit-shr (syntax-rules () ((_ n i) (fxshr n i)))) (declare (unused bit-not)) (define-compiler-syntax bit-not (syntax-rules () ((_ n) (fxnot n)))) (declare (unused bit-ior)) (define-compiler-syntax bit-ior (syntax-rules () ((_ a b) (fxior a b)))) (declare (unused bit-and)) (define-compiler-syntax bit-and (syntax-rules () ((_ a b) (fxand a b)))) (define-compiler-syntax match-vector-ref (syntax-rules () ((_ m i) (##sys#slot (##sys#slot m 1) i)))) (define-compiler-syntax match-vector-set! (syntax-rules () ((_ m i x) (##sys#setslot (##sys#slot m 1) i x)))) (declare (unused irregex-match-start-chunk-set!)) (define-compiler-syntax irregex-match-start-chunk-set! (syntax-rules () ((_ m n start) (vector-set! (##sys#slot m 1) (* n 4) start)))) (declare (unused irregex-match-start-index-set!)) (define-compiler-syntax irregex-match-start-index-set! (syntax-rules () ((_ m n start) (vector-set! (##sys#slot m 1) (+ 1 (* n 4)) start)))) (declare (unused irregex-match-end-chunk-set!)) (define-compiler-syntax irregex-match-end-chunk-set! (syntax-rules () ((_ m n end) (vector-set! (##sys#slot m 1) (+ 2 (* n 4)) end)))) (declare (unused irregex-match-end-index-set!)) (define-compiler-syntax irregex-match-end-index-set! (syntax-rules () ((_ m n end) (vector-set! (##sys#slot m 1) (+ 3 (* n 4)) end)))) (declare (unused irregex-match-chunk&index-from-tag-set!)) (define-compiler-syntax irregex-match-chunk&index-from-tag-set! (syntax-rules () ((_ m t chunk index) (begin (vector-set! (##sys#slot m 1) (+ 4 (* t 2)) chunk) (vector-set! (##sys#slot m 1) (+ 5 (* t 2)) index))))) (include "irregex-core.scm") (include "irregex-utils.scm") (define glob->sre (let ((list->string list->string) (string->list string->list)) (lambda (s) (##sys#check-string s 'glob->sre) (cons ': (let loop ((cs (string->list s)) (dir #t)) (if (null? cs) '() (let ((c (car cs)) (rest (cdr cs)) ) (cond ((char=? c #\*) (if dir `((or (: (~ ("./\\")) (* (~ ("/\\")))) (* (~ ("./\\")))) ,@(loop rest #f)) `((* (~ ("/\\"))) ,@(loop rest #f)))) ((char=? c #\?) (cons 'any (loop rest #f))) ((char=? c #\[) (let loop2 ((rest rest) (s '())) (cond ((not (pair? rest)) (error 'glob->sre "unexpected end of character class" s)) ((char=? #\] (car rest)) `(,(if (> (length s) 1) `(or ,@s) (car s)) ,@(loop (cdr rest) #f))) ((and (pair? (cdr rest)) (pair? (cddr rest)) (char=? #\- (cadr rest)) ) (loop2 (cdddr rest) (cons `(/ ,(car rest) ,(caddr rest)) s))) ((and (pair? (cdr rest)) (char=? #\- (car rest))) (loop2 (cddr rest) (cons `(~ ,(cadr rest)) s))) (else (loop2 (cdr rest) (cons (car rest) s)))))) (else (cons c (loop rest (memq c '(#\\ #\/))))))))))))) ) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/feathers.bat.in�����������������������������������������������������������������������0000644�0001750�0001750�00000003150�13502227553�015630� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������@echo off rem loader for feathers.tcl, the CHICKEN debugger rem rem Copyright (c) 2015-2019, The CHICKEN Team rem All rights reserved. rem rem Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following rem conditions are met: rem rem Redistributions of source code must retain the above copyright notice, this list of conditions and the following rem disclaimer. rem Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following rem disclaimer in the documentation and/or other materials provided with the distribution. rem Neither the name of the author nor the names of its contributors may be used to endorse or promote rem products derived from this software without specific prior written permission. rem rem THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS rem OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY rem AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR rem CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR rem CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR rem SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY rem THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR rem OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE rem POSSIBILITY OF SUCH DAMAGE. ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken-syntax.c����������������������������������������������������������������������0000644�0001750�0001750�00003046206�13502227771�016044� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken-syntax.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken-syntax.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file chicken-syntax.c unit: chicken-syntax uses: expand internal library */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[285]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,12),40,116,97,107,101,32,108,115,116,32,110,41,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,16),40,97,53,54,55,52,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,16),40,97,53,55,50,51,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,13),40,97,53,56,49,50,32,120,32,114,32,99,41,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,16),40,97,53,56,51,48,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,32,120,115,32,118,97,114,115,32,98,115,32,118,97,108,115,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,16),40,97,53,56,57,53,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,32,120,115,32,118,97,114,115,32,118,97,108,115,32,114,101,115,116,41}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,16),40,97,54,48,57,48,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,7),40,103,51,48,52,52,41,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,115,108,111,116,115,32,105,41,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,48,51,56,32,103,51,48,53,48,41,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,48,48,57,32,103,51,48,50,49,41,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,16),40,97,54,50,54,50,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,16),40,97,54,54,54,49,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,11),40,103,101,110,118,97,114,115,32,110,41,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,110,32,112,114,101,118,32,110,111,100,101,41,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,7),40,97,54,57,48,50,41,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,50,57,51,51,32,103,50,57,52,53,32,103,50,57,52,54,41,0,0,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,19),40,98,117,105,108,100,32,118,97,114,115,50,32,118,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,19),40,97,54,57,49,50,32,118,97,114,115,49,32,118,97,114,115,50,41,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,22),40,97,54,56,56,50,32,118,97,114,115,32,97,114,103,99,32,114,101,115,116,41,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,14),40,103,50,56,57,48,32,99,32,98,111,100,121,41,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,114,50,56,56,53,32,103,50,56,56,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,22),40,97,55,49,52,52,32,118,97,114,115,32,97,114,103,99,32,114,101,115,116,41,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,56,52,50,32,103,50,56,53,52,41,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,16),40,97,54,55,55,52,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,97,114,103,115,32,118,97,114,100,101,102,115,41,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,16),40,97,55,50,49,56,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,16),40,97,55,51,55,56,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,36),40,114,101,99,117,114,32,118,97,114,115,32,100,101,102,97,117,108,116,101,114,115,32,110,111,110,45,100,101,102,97,117,108,116,115,41,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,45),40,109,97,107,101,45,105,102,45,116,114,101,101,32,118,97,114,115,32,100,101,102,97,117,108,116,101,114,115,32,98,111,100,121,45,112,114,111,99,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,23),40,112,114,101,102,105,120,45,115,121,109,32,112,114,101,102,105,120,32,115,121,109,41,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,9),40,103,50,54,57,53,32,118,41,0,0,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,11),40,103,50,55,53,50,32,118,97,114,41,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,42),40,114,101,99,117,114,32,118,97,114,115,32,100,101,102,97,117,108,116,101,114,45,110,97,109,101,115,32,100,101,102,115,32,110,101,120,116,45,103,117,121,41,0,0,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,52,54,32,103,50,55,53,56,41,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,49,55,32,103,50,55,50,57,41,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,54,56,57,32,103,50,55,48,49,41,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,54,53,57,32,103,50,54,55,49,41,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,16),40,97,55,52,53,53,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,14),40,102,111,108,100,32,98,115,32,108,97,115,116,41,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,16),40,97,55,57,48,51,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,24),40,113,117,111,116,105,102,121,45,112,114,111,99,50,53,53,57,32,120,115,32,105,100,41}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,16),40,97,56,48,52,53,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,16),40,97,56,49,52,57,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,13),40,97,56,49,57,51,32,120,32,114,32,99,41,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,50,53,48,55,32,103,50,53,49,57,32,103,50,53,50,48,41,0,0,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,53,57,32,103,50,52,55,49,41,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,13),40,97,56,51,57,49,32,97,32,95,32,95,41,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,23),40,102,111,108,100,108,50,52,56,50,32,103,50,52,56,51,32,103,50,52,56,49,41,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,51,48,32,103,50,52,52,50,41,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,48,52,32,103,50,52,49,54,41,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,16),40,97,56,50,49,53,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,16),40,102,111,108,100,32,118,98,105,110,100,105,110,103,115,41}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,16),40,97,56,52,55,51,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,18),40,97,112,112,101,110,100,42,50,50,49,48,32,105,108,32,108,41,0,0,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,17),40,109,97,112,42,50,50,49,49,32,112,114,111,99,32,108,41,0,0,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,9),40,103,50,50,55,49,32,118,41,0,0,0,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,10),40,108,111,111,107,117,112,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,9),40,103,50,51,50,50,32,118,41,0,0,0,0,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,49,54,32,103,50,51,50,56,41,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,26),40,102,111,108,100,32,108,108,105,115,116,115,32,101,120,112,115,32,108,108,105,115,116,115,50,41,0,0,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,53,49,32,103,50,51,54,51,41,0,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,108,108,105,115,116,115,32,97,99,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,54,53,32,103,50,50,55,55,41,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,108,108,105,115,116,115,32,97,99,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,50,55,32,103,50,50,51,57,41,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,16),40,97,56,53,50,55,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,54,54,32,103,50,49,55,56,41,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,49,53,54,32,103,50,49,54,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,22),40,97,57,48,52,49,32,118,97,114,115,32,97,114,103,99,32,114,101,115,116,41,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,16),40,97,57,48,48,52,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,16),40,97,57,49,51,52,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,16),40,97,57,49,53,53,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,16),40,97,57,49,56,51,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,7),40,97,57,50,50,50,41,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,48),40,97,57,50,50,56,32,110,97,109,101,50,48,57,51,32,108,105,98,50,48,57,53,32,95,50,48,57,55,32,95,50,48,57,55,32,95,50,48,57,55,32,95,50,48,57,55,41}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,9),40,103,50,48,56,49,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,48,55,53,32,103,50,48,56,55,41,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,13),40,97,57,50,48,55,32,120,32,114,32,99,41,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,9),40,103,49,54,54,54,32,122,41,0,0,0,0,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,7),40,103,49,54,57,52,41,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,7),40,103,49,55,50,50,41,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,14),40,103,49,56,52,53,32,115,32,116,101,109,112,41,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,50,48,51,49,32,103,50,48,52,51,32,103,50,48,52,52,41,0,0,0,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,57,57,53,32,103,50,48,48,55,32,103,50,48,48,56,41,0,0,0,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,32),40,109,97,112,45,108,111,111,112,49,57,53,51,32,103,49,57,54,53,32,103,49,57,54,54,32,103,49,57,54,55,41}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,57,49,55,32,103,49,57,50,57,32,103,49,57,51,48,41,0,0,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,56,56,49,32,103,49,56,57,51,32,103,49,56,57,52,41,0,0,0,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,32),40,109,97,112,45,108,111,111,112,49,56,51,57,32,103,49,56,53,49,32,103,49,56,53,50,32,103,49,56,53,51,41}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,56,48,56,32,103,49,56,50,48,32,103,49,56,50,49,41,0,0,0,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,55,55,55,32,103,49,55,56,57,32,103,49,55,57,48,41,0,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,55,52,54,32,103,49,55,53,56,32,103,49,55,53,57,41,0,0,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,55,49,54,32,103,49,55,50,56,41,0,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,54,56,56,32,103,49,55,48,48,41,0,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,54,54,48,32,103,49,54,55,50,41,0,0,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,54,51,51,32,103,49,54,52,53,41,0,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,54,48,54,32,103,49,54,49,56,41,0,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,16),40,97,57,50,57,49,32,102,111,114,109,32,114,32,99,41}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,7),40,103,49,51,48,57,41,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,7),40,103,49,51,51,55,41,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,53,54,48,32,103,49,53,55,50,32,103,49,53,55,51,41,0,0,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,53,50,52,32,103,49,53,51,54,32,103,49,53,51,55,41,0,0,0,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,52,56,56,32,103,49,53,48,48,32,103,49,53,48,49,41,0,0,0,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,52,53,50,32,103,49,52,54,52,32,103,49,52,54,53,41,0,0,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,52,49,56,32,103,49,52,51,48,32,103,49,52,51,49,41,0,0,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,110,41}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,51,54,49,32,103,49,51,55,51,32,103,49,51,55,52,41,0,0,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,56,50,32,103,49,51,57,52,41,0,0,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,51,49,32,103,49,51,52,51,41,0,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,48,51,32,103,49,51,49,53,41,0,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,50,55,54,32,103,49,50,56,56,41,0,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,17),40,97,49,48,50,50,49,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,17),40,97,49,48,56,55,52,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,17),40,97,49,48,56,57,49,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,17),40,97,49,48,57,48,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,17),40,97,49,48,57,50,57,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,17),40,97,49,48,57,52,51,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,12),40,103,49,49,54,51,32,115,108,111,116,41,0,0,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,18),40,109,97,112,115,108,111,116,115,32,115,108,111,116,115,32,105,41,0,0,0,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,49,53,55,32,103,49,49,54,57,41,0,0,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,14),40,97,49,49,48,51,54,32,120,32,114,32,99,41,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,17),40,97,49,49,52,51,49,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,49,48,56,56,32,108,32,108,101,110,41}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,49,48,56,56,32,108,32,108,101,110,41}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,29),40,97,49,49,52,52,56,32,105,110,112,117,116,32,114,101,110,97,109,101,32,99,111,109,112,97,114,101,41,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,29),40,97,49,49,53,57,54,32,105,110,112,117,116,32,114,101,110,97,109,101,32,99,111,109,112,97,114,101,41,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,17),40,97,49,49,54,57,51,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,14),40,97,49,49,55,50,50,32,120,32,114,32,99,41,0,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,14),40,97,49,49,55,53,50,32,120,32,114,32,99,41,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,14),40,97,49,49,55,54,57,32,120,32,114,32,99,41,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,13),40,103,57,55,52,32,99,108,97,117,115,101,41,0,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,57,54,56,32,103,57,56,48,41,0,0,0,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,14),40,97,49,49,56,50,57,32,120,32,114,32,99,41,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,23),40,109,97,112,45,108,111,111,112,57,49,51,32,103,57,50,53,32,103,57,50,54,41,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,56,55,57,32,103,56,57,49,41,0,0,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,50,32,97,110,97,109,101,115,32,105,41}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,25),40,108,111,111,112,32,97,114,103,115,32,97,110,97,109,101,115,32,97,116,121,112,101,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,14),40,97,49,49,57,53,50,32,120,32,114,32,99,41,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,17),40,97,49,50,51,56,55,32,116,121,112,101,32,118,97,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,56,49,48,32,103,56,50,50,41,0,0,0,0,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,55,56,50,32,103,55,57,52,41,0,0,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,55,51,52,32,108,32,108,101,110,41,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,55,51,52,32,108,32,108,101,110,41,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,29),40,97,49,50,51,49,57,32,105,110,112,117,116,32,114,101,110,97,109,101,32,99,111,109,112,97,114,101,41,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,14),40,97,49,50,54,50,56,32,120,32,114,32,99,41,0,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,8),40,97,49,50,54,56,54,41}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,32),40,97,49,50,54,57,54,32,116,121,112,101,54,57,49,32,112,114,101,100,54,57,51,32,112,117,114,101,54,57,53,41}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,14),40,97,49,50,54,54,54,32,120,32,114,32,99,41,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,6),40,103,54,50,51,41,0,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,49,55,32,103,54,50,57,41,0,0,0,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,16),40,112,97,114,115,101,45,99,108,97,117,115,101,32,99,41}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,52,56,32,103,54,54,48,41,0,0,0,0,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,17),40,97,49,50,55,55,55,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,17),40,97,49,51,48,53,48,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_10000) static void C_fcall f_10000(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10048) static void C_fcall f_10048(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10073) static void C_ccall f_10073(C_word c,C_word *av) C_noret; C_noret_decl(f_10082) static void C_fcall f_10082(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10107) static void C_ccall f_10107(C_word c,C_word *av) C_noret; C_noret_decl(f_10116) static void C_fcall f_10116(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10141) static void C_ccall f_10141(C_word c,C_word *av) C_noret; C_noret_decl(f_10150) static void C_fcall f_10150(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10184) static void C_fcall f_10184(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10220) static void C_ccall f_10220(C_word c,C_word *av) C_noret; C_noret_decl(f_10222) static void C_ccall f_10222(C_word c,C_word *av) C_noret; C_noret_decl(f_10226) static void C_ccall f_10226(C_word c,C_word *av) C_noret; C_noret_decl(f_10240) static void C_ccall f_10240(C_word c,C_word *av) C_noret; C_noret_decl(f_10244) static void C_fcall f_10244(C_word t0,C_word t1) C_noret; C_noret_decl(f_10252) static void C_ccall f_10252(C_word c,C_word *av) C_noret; C_noret_decl(f_10255) static void C_ccall f_10255(C_word c,C_word *av) C_noret; C_noret_decl(f_10259) static void C_fcall f_10259(C_word t0,C_word t1) C_noret; C_noret_decl(f_10267) static void C_ccall f_10267(C_word c,C_word *av) C_noret; C_noret_decl(f_10270) static void C_ccall f_10270(C_word c,C_word *av) C_noret; C_noret_decl(f_10277) static void C_ccall f_10277(C_word c,C_word *av) C_noret; C_noret_decl(f_10301) static void C_ccall f_10301(C_word c,C_word *av) C_noret; C_noret_decl(f_10313) static void C_ccall f_10313(C_word c,C_word *av) C_noret; C_noret_decl(f_10317) static void C_ccall f_10317(C_word c,C_word *av) C_noret; C_noret_decl(f_10329) static void C_ccall f_10329(C_word c,C_word *av) C_noret; C_noret_decl(f_10339) static void C_fcall f_10339(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10387) static void C_fcall f_10387(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10445) static void C_ccall f_10445(C_word c,C_word *av) C_noret; C_noret_decl(f_10460) static void C_ccall f_10460(C_word c,C_word *av) C_noret; C_noret_decl(f_10464) static void C_ccall f_10464(C_word c,C_word *av) C_noret; C_noret_decl(f_10476) static void C_ccall f_10476(C_word c,C_word *av) C_noret; C_noret_decl(f_10486) static void C_fcall f_10486(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10534) static void C_fcall f_10534(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10590) static void C_ccall f_10590(C_word c,C_word *av) C_noret; C_noret_decl(f_10599) static void C_ccall f_10599(C_word c,C_word *av) C_noret; C_noret_decl(f_10606) static void C_ccall f_10606(C_word c,C_word *av) C_noret; C_noret_decl(f_10615) static void C_ccall f_10615(C_word c,C_word *av) C_noret; C_noret_decl(f_10617) static void C_fcall f_10617(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10667) static void C_fcall f_10667(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10681) static void C_ccall f_10681(C_word c,C_word *av) C_noret; C_noret_decl(f_10687) static void C_fcall f_10687(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10735) static void C_fcall f_10735(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10769) static void C_fcall f_10769(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10794) static void C_ccall f_10794(C_word c,C_word *av) C_noret; C_noret_decl(f_10803) static void C_fcall f_10803(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10828) static void C_ccall f_10828(C_word c,C_word *av) C_noret; C_noret_decl(f_10837) static void C_fcall f_10837(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10873) static void C_ccall f_10873(C_word c,C_word *av) C_noret; C_noret_decl(f_10875) static void C_ccall f_10875(C_word c,C_word *av) C_noret; C_noret_decl(f_10879) static void C_ccall f_10879(C_word c,C_word *av) C_noret; C_noret_decl(f_10890) static void C_ccall f_10890(C_word c,C_word *av) C_noret; C_noret_decl(f_10892) static void C_ccall f_10892(C_word c,C_word *av) C_noret; C_noret_decl(f_10896) static void C_ccall f_10896(C_word c,C_word *av) C_noret; C_noret_decl(f_10907) static void C_ccall f_10907(C_word c,C_word *av) C_noret; C_noret_decl(f_10909) static void C_ccall f_10909(C_word c,C_word *av) C_noret; C_noret_decl(f_10913) static void C_ccall f_10913(C_word c,C_word *av) C_noret; C_noret_decl(f_10928) static void C_ccall f_10928(C_word c,C_word *av) C_noret; C_noret_decl(f_10930) static void C_ccall f_10930(C_word c,C_word *av) C_noret; C_noret_decl(f_10942) static void C_ccall f_10942(C_word c,C_word *av) C_noret; C_noret_decl(f_10944) static void C_ccall f_10944(C_word c,C_word *av) C_noret; C_noret_decl(f_10948) static void C_ccall f_10948(C_word c,C_word *av) C_noret; C_noret_decl(f_10970) static void C_ccall f_10970(C_word c,C_word *av) C_noret; C_noret_decl(f_10985) static void C_fcall f_10985(C_word t0,C_word t1) C_noret; C_noret_decl(f_11035) static void C_ccall f_11035(C_word c,C_word *av) C_noret; C_noret_decl(f_11037) static void C_ccall f_11037(C_word c,C_word *av) C_noret; C_noret_decl(f_11041) static void C_ccall f_11041(C_word c,C_word *av) C_noret; C_noret_decl(f_11047) static void C_ccall f_11047(C_word c,C_word *av) C_noret; C_noret_decl(f_11050) static void C_ccall f_11050(C_word c,C_word *av) C_noret; C_noret_decl(f_11053) static void C_ccall f_11053(C_word c,C_word *av) C_noret; C_noret_decl(f_11059) static void C_ccall f_11059(C_word c,C_word *av) C_noret; C_noret_decl(f_11062) static void C_ccall f_11062(C_word c,C_word *av) C_noret; C_noret_decl(f_11065) static void C_ccall f_11065(C_word c,C_word *av) C_noret; C_noret_decl(f_11069) static void C_fcall f_11069(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11097) static void C_ccall f_11097(C_word c,C_word *av) C_noret; C_noret_decl(f_11129) static void C_ccall f_11129(C_word c,C_word *av) C_noret; C_noret_decl(f_11160) static void C_ccall f_11160(C_word c,C_word *av) C_noret; C_noret_decl(f_11162) static void C_fcall f_11162(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11178) static void C_ccall f_11178(C_word c,C_word *av) C_noret; C_noret_decl(f_11181) static void C_ccall f_11181(C_word c,C_word *av) C_noret; C_noret_decl(f_11184) static void C_ccall f_11184(C_word c,C_word *av) C_noret; C_noret_decl(f_11198) static void C_ccall f_11198(C_word c,C_word *av) C_noret; C_noret_decl(f_11210) static void C_ccall f_11210(C_word c,C_word *av) C_noret; C_noret_decl(f_11214) static void C_fcall f_11214(C_word t0,C_word t1) C_noret; C_noret_decl(f_11307) static void C_ccall f_11307(C_word c,C_word *av) C_noret; C_noret_decl(f_11311) static void C_ccall f_11311(C_word c,C_word *av) C_noret; C_noret_decl(f_11326) static void C_ccall f_11326(C_word c,C_word *av) C_noret; C_noret_decl(f_11346) static void C_ccall f_11346(C_word c,C_word *av) C_noret; C_noret_decl(f_11352) static void C_ccall f_11352(C_word c,C_word *av) C_noret; C_noret_decl(f_11372) static void C_ccall f_11372(C_word c,C_word *av) C_noret; C_noret_decl(f_11380) static void C_fcall f_11380(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11405) static void C_ccall f_11405(C_word c,C_word *av) C_noret; C_noret_decl(f_11415) static void C_ccall f_11415(C_word c,C_word *av) C_noret; C_noret_decl(f_11422) static void C_ccall f_11422(C_word c,C_word *av) C_noret; C_noret_decl(f_11426) static void C_ccall f_11426(C_word c,C_word *av) C_noret; C_noret_decl(f_11430) static void C_ccall f_11430(C_word c,C_word *av) C_noret; C_noret_decl(f_11432) static void C_ccall f_11432(C_word c,C_word *av) C_noret; C_noret_decl(f_11436) static void C_ccall f_11436(C_word c,C_word *av) C_noret; C_noret_decl(f_11447) static void C_ccall f_11447(C_word c,C_word *av) C_noret; C_noret_decl(f_11449) static void C_ccall f_11449(C_word c,C_word *av) C_noret; C_noret_decl(f_11459) static void C_ccall f_11459(C_word c,C_word *av) C_noret; C_noret_decl(f_11472) static void C_ccall f_11472(C_word c,C_word *av) C_noret; C_noret_decl(f_11488) static void C_ccall f_11488(C_word c,C_word *av) C_noret; C_noret_decl(f_11494) static void C_ccall f_11494(C_word c,C_word *av) C_noret; C_noret_decl(f_11497) static void C_ccall f_11497(C_word c,C_word *av) C_noret; C_noret_decl(f_11503) static void C_ccall f_11503(C_word c,C_word *av) C_noret; C_noret_decl(f_11512) static void C_fcall f_11512(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11519) static void C_ccall f_11519(C_word c,C_word *av) C_noret; C_noret_decl(f_11533) static void C_ccall f_11533(C_word c,C_word *av) C_noret; C_noret_decl(f_11544) static void C_ccall f_11544(C_word c,C_word *av) C_noret; C_noret_decl(f_11547) static void C_ccall f_11547(C_word c,C_word *av) C_noret; C_noret_decl(f_11553) static void C_ccall f_11553(C_word c,C_word *av) C_noret; C_noret_decl(f_11562) static void C_fcall f_11562(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11569) static void C_ccall f_11569(C_word c,C_word *av) C_noret; C_noret_decl(f_11583) static void C_ccall f_11583(C_word c,C_word *av) C_noret; C_noret_decl(f_11595) static void C_ccall f_11595(C_word c,C_word *av) C_noret; C_noret_decl(f_11597) static void C_ccall f_11597(C_word c,C_word *av) C_noret; C_noret_decl(f_11607) static void C_fcall f_11607(C_word t0,C_word t1) C_noret; C_noret_decl(f_11617) static void C_ccall f_11617(C_word c,C_word *av) C_noret; C_noret_decl(f_11631) static void C_fcall f_11631(C_word t0,C_word t1) C_noret; C_noret_decl(f_11644) static void C_ccall f_11644(C_word c,C_word *av) C_noret; C_noret_decl(f_11692) static void C_ccall f_11692(C_word c,C_word *av) C_noret; C_noret_decl(f_11694) static void C_ccall f_11694(C_word c,C_word *av) C_noret; C_noret_decl(f_11698) static void C_ccall f_11698(C_word c,C_word *av) C_noret; C_noret_decl(f_11705) static void C_ccall f_11705(C_word c,C_word *av) C_noret; C_noret_decl(f_11713) static void C_ccall f_11713(C_word c,C_word *av) C_noret; C_noret_decl(f_11721) static void C_ccall f_11721(C_word c,C_word *av) C_noret; C_noret_decl(f_11723) static void C_ccall f_11723(C_word c,C_word *av) C_noret; C_noret_decl(f_11727) static void C_ccall f_11727(C_word c,C_word *av) C_noret; C_noret_decl(f_11730) static void C_ccall f_11730(C_word c,C_word *av) C_noret; C_noret_decl(f_11751) static void C_ccall f_11751(C_word c,C_word *av) C_noret; C_noret_decl(f_11753) static void C_ccall f_11753(C_word c,C_word *av) C_noret; C_noret_decl(f_11757) static void C_ccall f_11757(C_word c,C_word *av) C_noret; C_noret_decl(f_11768) static void C_ccall f_11768(C_word c,C_word *av) C_noret; C_noret_decl(f_11770) static void C_ccall f_11770(C_word c,C_word *av) C_noret; C_noret_decl(f_11774) static void C_ccall f_11774(C_word c,C_word *av) C_noret; C_noret_decl(f_11783) static void C_ccall f_11783(C_word c,C_word *av) C_noret; C_noret_decl(f_11786) static void C_ccall f_11786(C_word c,C_word *av) C_noret; C_noret_decl(f_11789) static void C_ccall f_11789(C_word c,C_word *av) C_noret; C_noret_decl(f_11812) static void C_ccall f_11812(C_word c,C_word *av) C_noret; C_noret_decl(f_11828) static void C_ccall f_11828(C_word c,C_word *av) C_noret; C_noret_decl(f_11830) static void C_ccall f_11830(C_word c,C_word *av) C_noret; C_noret_decl(f_11834) static void C_ccall f_11834(C_word c,C_word *av) C_noret; C_noret_decl(f_11840) static void C_ccall f_11840(C_word c,C_word *av) C_noret; C_noret_decl(f_11843) static void C_ccall f_11843(C_word c,C_word *av) C_noret; C_noret_decl(f_11867) static void C_fcall f_11867(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11871) static void C_ccall f_11871(C_word c,C_word *av) C_noret; C_noret_decl(f_11878) static void C_ccall f_11878(C_word c,C_word *av) C_noret; C_noret_decl(f_11905) static void C_ccall f_11905(C_word c,C_word *av) C_noret; C_noret_decl(f_11907) static void C_fcall f_11907(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11932) static void C_ccall f_11932(C_word c,C_word *av) C_noret; C_noret_decl(f_11951) static void C_ccall f_11951(C_word c,C_word *av) C_noret; C_noret_decl(f_11953) static void C_ccall f_11953(C_word c,C_word *av) C_noret; C_noret_decl(f_11963) static void C_ccall f_11963(C_word c,C_word *av) C_noret; C_noret_decl(f_11972) static void C_ccall f_11972(C_word c,C_word *av) C_noret; C_noret_decl(f_11976) static void C_ccall f_11976(C_word c,C_word *av) C_noret; C_noret_decl(f_11979) static void C_ccall f_11979(C_word c,C_word *av) C_noret; C_noret_decl(f_11982) static void C_ccall f_11982(C_word c,C_word *av) C_noret; C_noret_decl(f_11985) static void C_ccall f_11985(C_word c,C_word *av) C_noret; C_noret_decl(f_11993) static void C_fcall f_11993(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_12003) static void C_ccall f_12003(C_word c,C_word *av) C_noret; C_noret_decl(f_12006) static void C_ccall f_12006(C_word c,C_word *av) C_noret; C_noret_decl(f_12012) static void C_ccall f_12012(C_word c,C_word *av) C_noret; C_noret_decl(f_12047) static void C_ccall f_12047(C_word c,C_word *av) C_noret; C_noret_decl(f_12049) static void C_fcall f_12049(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12107) static void C_ccall f_12107(C_word c,C_word *av) C_noret; C_noret_decl(f_12111) static void C_ccall f_12111(C_word c,C_word *av) C_noret; C_noret_decl(f_12144) static void C_ccall f_12144(C_word c,C_word *av) C_noret; C_noret_decl(f_12146) static void C_fcall f_12146(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12171) static void C_ccall f_12171(C_word c,C_word *av) C_noret; C_noret_decl(f_12188) static void C_ccall f_12188(C_word c,C_word *av) C_noret; C_noret_decl(f_12190) static void C_fcall f_12190(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12208) static void C_ccall f_12208(C_word c,C_word *av) C_noret; C_noret_decl(f_12244) static void C_fcall f_12244(C_word t0,C_word t1) C_noret; C_noret_decl(f_12261) static void C_ccall f_12261(C_word c,C_word *av) C_noret; C_noret_decl(f_12318) static void C_ccall f_12318(C_word c,C_word *av) C_noret; C_noret_decl(f_12320) static void C_ccall f_12320(C_word c,C_word *av) C_noret; C_noret_decl(f_12330) static void C_ccall f_12330(C_word c,C_word *av) C_noret; C_noret_decl(f_12347) static void C_ccall f_12347(C_word c,C_word *av) C_noret; C_noret_decl(f_12368) static void C_ccall f_12368(C_word c,C_word *av) C_noret; C_noret_decl(f_12378) static void C_ccall f_12378(C_word c,C_word *av) C_noret; C_noret_decl(f_12386) static void C_ccall f_12386(C_word c,C_word *av) C_noret; C_noret_decl(f_12388) static void C_ccall f_12388(C_word c,C_word *av) C_noret; C_noret_decl(f_12404) static void C_ccall f_12404(C_word c,C_word *av) C_noret; C_noret_decl(f_12414) static void C_fcall f_12414(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12448) static void C_fcall f_12448(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12492) static void C_ccall f_12492(C_word c,C_word *av) C_noret; C_noret_decl(f_12498) static void C_ccall f_12498(C_word c,C_word *av) C_noret; C_noret_decl(f_12501) static void C_ccall f_12501(C_word c,C_word *av) C_noret; C_noret_decl(f_12507) static void C_ccall f_12507(C_word c,C_word *av) C_noret; C_noret_decl(f_12516) static void C_fcall f_12516(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12523) static void C_ccall f_12523(C_word c,C_word *av) C_noret; C_noret_decl(f_12537) static void C_ccall f_12537(C_word c,C_word *av) C_noret; C_noret_decl(f_12548) static void C_ccall f_12548(C_word c,C_word *av) C_noret; C_noret_decl(f_12551) static void C_ccall f_12551(C_word c,C_word *av) C_noret; C_noret_decl(f_12557) static void C_ccall f_12557(C_word c,C_word *av) C_noret; C_noret_decl(f_12566) static void C_fcall f_12566(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12573) static void C_ccall f_12573(C_word c,C_word *av) C_noret; C_noret_decl(f_12585) static void C_fcall f_12585(C_word t0,C_word t1) C_noret; C_noret_decl(f_12596) static void C_ccall f_12596(C_word c,C_word *av) C_noret; C_noret_decl(f_12627) static void C_ccall f_12627(C_word c,C_word *av) C_noret; C_noret_decl(f_12629) static void C_ccall f_12629(C_word c,C_word *av) C_noret; C_noret_decl(f_12633) static void C_ccall f_12633(C_word c,C_word *av) C_noret; C_noret_decl(f_12649) static void C_ccall f_12649(C_word c,C_word *av) C_noret; C_noret_decl(f_12665) static void C_ccall f_12665(C_word c,C_word *av) C_noret; C_noret_decl(f_12667) static void C_ccall f_12667(C_word c,C_word *av) C_noret; C_noret_decl(f_12671) static void C_ccall f_12671(C_word c,C_word *av) C_noret; C_noret_decl(f_12680) static void C_ccall f_12680(C_word c,C_word *av) C_noret; C_noret_decl(f_12687) static void C_ccall f_12687(C_word c,C_word *av) C_noret; C_noret_decl(f_12695) static void C_ccall f_12695(C_word c,C_word *av) C_noret; C_noret_decl(f_12697) static void C_ccall f_12697(C_word c,C_word *av) C_noret; C_noret_decl(f_12722) static void C_ccall f_12722(C_word c,C_word *av) C_noret; C_noret_decl(f_12726) static void C_fcall f_12726(C_word t0,C_word t1) C_noret; C_noret_decl(f_12776) static void C_ccall f_12776(C_word c,C_word *av) C_noret; C_noret_decl(f_12778) static void C_ccall f_12778(C_word c,C_word *av) C_noret; C_noret_decl(f_12782) static void C_ccall f_12782(C_word c,C_word *av) C_noret; C_noret_decl(f_12785) static void C_ccall f_12785(C_word c,C_word *av) C_noret; C_noret_decl(f_12788) static void C_ccall f_12788(C_word c,C_word *av) C_noret; C_noret_decl(f_12791) static void C_ccall f_12791(C_word c,C_word *av) C_noret; C_noret_decl(f_12794) static void C_ccall f_12794(C_word c,C_word *av) C_noret; C_noret_decl(f_12797) static void C_ccall f_12797(C_word c,C_word *av) C_noret; C_noret_decl(f_12799) static void C_ccall f_12799(C_word c,C_word *av) C_noret; C_noret_decl(f_12803) static void C_fcall f_12803(C_word t0,C_word t1) C_noret; C_noret_decl(f_12806) static void C_fcall f_12806(C_word t0,C_word t1) C_noret; C_noret_decl(f_12809) static void C_fcall f_12809(C_word t0,C_word t1) C_noret; C_noret_decl(f_12834) static C_word C_fcall f_12834(C_word *a,C_word t0,C_word t1); C_noret_decl(f_12848) static void C_ccall f_12848(C_word c,C_word *av) C_noret; C_noret_decl(f_12850) static void C_fcall f_12850(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12929) static void C_ccall f_12929(C_word c,C_word *av) C_noret; C_noret_decl(f_12954) static void C_ccall f_12954(C_word c,C_word *av) C_noret; C_noret_decl(f_12961) static void C_ccall f_12961(C_word c,C_word *av) C_noret; C_noret_decl(f_12965) static void C_ccall f_12965(C_word c,C_word *av) C_noret; C_noret_decl(f_12985) static void C_fcall f_12985(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13010) static void C_ccall f_13010(C_word c,C_word *av) C_noret; C_noret_decl(f_13049) static void C_ccall f_13049(C_word c,C_word *av) C_noret; C_noret_decl(f_13051) static void C_ccall f_13051(C_word c,C_word *av) C_noret; C_noret_decl(f_13055) static void C_ccall f_13055(C_word c,C_word *av) C_noret; C_noret_decl(f_13058) static void C_ccall f_13058(C_word c,C_word *av) C_noret; C_noret_decl(f_13061) static void C_ccall f_13061(C_word c,C_word *av) C_noret; C_noret_decl(f_13072) static void C_ccall f_13072(C_word c,C_word *av) C_noret; C_noret_decl(f_4197) static void C_ccall f_4197(C_word c,C_word *av) C_noret; C_noret_decl(f_4200) static void C_ccall f_4200(C_word c,C_word *av) C_noret; C_noret_decl(f_4203) static void C_ccall f_4203(C_word c,C_word *av) C_noret; C_noret_decl(f_4313) static void C_fcall f_4313(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4331) static void C_ccall f_4331(C_word c,C_word *av) C_noret; C_noret_decl(f_4371) static void C_fcall f_4371(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4385) static void C_ccall f_4385(C_word c,C_word *av) C_noret; C_noret_decl(f_5485) static void C_ccall f_5485(C_word c,C_word *av) C_noret; C_noret_decl(f_5488) static void C_ccall f_5488(C_word c,C_word *av) C_noret; C_noret_decl(f_5491) static void C_ccall f_5491(C_word c,C_word *av) C_noret; C_noret_decl(f_5494) static void C_ccall f_5494(C_word c,C_word *av) C_noret; C_noret_decl(f_5498) static void C_ccall f_5498(C_word c,C_word *av) C_noret; C_noret_decl(f_5501) static void C_ccall f_5501(C_word c,C_word *av) C_noret; C_noret_decl(f_5504) static void C_ccall f_5504(C_word c,C_word *av) C_noret; C_noret_decl(f_5507) static void C_ccall f_5507(C_word c,C_word *av) C_noret; C_noret_decl(f_5510) static void C_ccall f_5510(C_word c,C_word *av) C_noret; C_noret_decl(f_5513) static void C_ccall f_5513(C_word c,C_word *av) C_noret; C_noret_decl(f_5516) static void C_ccall f_5516(C_word c,C_word *av) C_noret; C_noret_decl(f_5519) static void C_ccall f_5519(C_word c,C_word *av) C_noret; C_noret_decl(f_5523) static void C_ccall f_5523(C_word c,C_word *av) C_noret; C_noret_decl(f_5526) static void C_ccall f_5526(C_word c,C_word *av) C_noret; C_noret_decl(f_5529) static void C_ccall f_5529(C_word c,C_word *av) C_noret; C_noret_decl(f_5532) static void C_ccall f_5532(C_word c,C_word *av) C_noret; C_noret_decl(f_5535) static void C_ccall f_5535(C_word c,C_word *av) C_noret; C_noret_decl(f_5538) static void C_ccall f_5538(C_word c,C_word *av) C_noret; C_noret_decl(f_5541) static void C_ccall f_5541(C_word c,C_word *av) C_noret; C_noret_decl(f_5545) static void C_ccall f_5545(C_word c,C_word *av) C_noret; C_noret_decl(f_5548) static void C_ccall f_5548(C_word c,C_word *av) C_noret; C_noret_decl(f_5551) static void C_ccall f_5551(C_word c,C_word *av) C_noret; C_noret_decl(f_5554) static void C_ccall f_5554(C_word c,C_word *av) C_noret; C_noret_decl(f_5557) static void C_ccall f_5557(C_word c,C_word *av) C_noret; C_noret_decl(f_5560) static void C_ccall f_5560(C_word c,C_word *av) C_noret; C_noret_decl(f_5563) static void C_ccall f_5563(C_word c,C_word *av) C_noret; C_noret_decl(f_5566) static void C_ccall f_5566(C_word c,C_word *av) C_noret; C_noret_decl(f_5569) static void C_ccall f_5569(C_word c,C_word *av) C_noret; C_noret_decl(f_5572) static void C_ccall f_5572(C_word c,C_word *av) C_noret; C_noret_decl(f_5575) static void C_ccall f_5575(C_word c,C_word *av) C_noret; C_noret_decl(f_5578) static void C_ccall f_5578(C_word c,C_word *av) C_noret; C_noret_decl(f_5581) static void C_ccall f_5581(C_word c,C_word *av) C_noret; C_noret_decl(f_5584) static void C_ccall f_5584(C_word c,C_word *av) C_noret; C_noret_decl(f_5588) static void C_ccall f_5588(C_word c,C_word *av) C_noret; C_noret_decl(f_5591) static void C_ccall f_5591(C_word c,C_word *av) C_noret; C_noret_decl(f_5594) static void C_ccall f_5594(C_word c,C_word *av) C_noret; C_noret_decl(f_5597) static void C_ccall f_5597(C_word c,C_word *av) C_noret; C_noret_decl(f_5600) static void C_ccall f_5600(C_word c,C_word *av) C_noret; C_noret_decl(f_5603) static void C_ccall f_5603(C_word c,C_word *av) C_noret; C_noret_decl(f_5606) static void C_ccall f_5606(C_word c,C_word *av) C_noret; C_noret_decl(f_5609) static void C_ccall f_5609(C_word c,C_word *av) C_noret; C_noret_decl(f_5612) static void C_ccall f_5612(C_word c,C_word *av) C_noret; C_noret_decl(f_5615) static void C_ccall f_5615(C_word c,C_word *av) C_noret; C_noret_decl(f_5618) static void C_ccall f_5618(C_word c,C_word *av) C_noret; C_noret_decl(f_5621) static void C_ccall f_5621(C_word c,C_word *av) C_noret; C_noret_decl(f_5624) static void C_ccall f_5624(C_word c,C_word *av) C_noret; C_noret_decl(f_5627) static void C_ccall f_5627(C_word c,C_word *av) C_noret; C_noret_decl(f_5630) static void C_ccall f_5630(C_word c,C_word *av) C_noret; C_noret_decl(f_5633) static void C_ccall f_5633(C_word c,C_word *av) C_noret; C_noret_decl(f_5636) static void C_ccall f_5636(C_word c,C_word *av) C_noret; C_noret_decl(f_5639) static void C_ccall f_5639(C_word c,C_word *av) C_noret; C_noret_decl(f_5642) static void C_ccall f_5642(C_word c,C_word *av) C_noret; C_noret_decl(f_5645) static void C_ccall f_5645(C_word c,C_word *av) C_noret; C_noret_decl(f_5649) static void C_ccall f_5649(C_word c,C_word *av) C_noret; C_noret_decl(f_5652) static void C_ccall f_5652(C_word c,C_word *av) C_noret; C_noret_decl(f_5655) static void C_ccall f_5655(C_word c,C_word *av) C_noret; C_noret_decl(f_5659) static void C_ccall f_5659(C_word c,C_word *av) C_noret; C_noret_decl(f_5662) static void C_ccall f_5662(C_word c,C_word *av) C_noret; C_noret_decl(f_5665) static void C_ccall f_5665(C_word c,C_word *av) C_noret; C_noret_decl(f_5669) static void C_ccall f_5669(C_word c,C_word *av) C_noret; C_noret_decl(f_5673) static void C_ccall f_5673(C_word c,C_word *av) C_noret; C_noret_decl(f_5675) static void C_ccall f_5675(C_word c,C_word *av) C_noret; C_noret_decl(f_5679) static void C_ccall f_5679(C_word c,C_word *av) C_noret; C_noret_decl(f_5722) static void C_ccall f_5722(C_word c,C_word *av) C_noret; C_noret_decl(f_5724) static void C_ccall f_5724(C_word c,C_word *av) C_noret; C_noret_decl(f_5728) static void C_ccall f_5728(C_word c,C_word *av) C_noret; C_noret_decl(f_5739) static void C_ccall f_5739(C_word c,C_word *av) C_noret; C_noret_decl(f_5742) static void C_fcall f_5742(C_word t0,C_word t1) C_noret; C_noret_decl(f_5765) static void C_fcall f_5765(C_word t0,C_word t1) C_noret; C_noret_decl(f_5784) static void C_ccall f_5784(C_word c,C_word *av) C_noret; C_noret_decl(f_5794) static void C_ccall f_5794(C_word c,C_word *av) C_noret; C_noret_decl(f_5801) static void C_ccall f_5801(C_word c,C_word *av) C_noret; C_noret_decl(f_5811) static void C_ccall f_5811(C_word c,C_word *av) C_noret; C_noret_decl(f_5813) static void C_ccall f_5813(C_word c,C_word *av) C_noret; C_noret_decl(f_5821) static void C_ccall f_5821(C_word c,C_word *av) C_noret; C_noret_decl(f_5829) static void C_ccall f_5829(C_word c,C_word *av) C_noret; C_noret_decl(f_5831) static void C_ccall f_5831(C_word c,C_word *av) C_noret; C_noret_decl(f_5835) static void C_ccall f_5835(C_word c,C_word *av) C_noret; C_noret_decl(f_5894) static void C_ccall f_5894(C_word c,C_word *av) C_noret; C_noret_decl(f_5896) static void C_ccall f_5896(C_word c,C_word *av) C_noret; C_noret_decl(f_5900) static void C_ccall f_5900(C_word c,C_word *av) C_noret; C_noret_decl(f_5903) static void C_ccall f_5903(C_word c,C_word *av) C_noret; C_noret_decl(f_5906) static void C_ccall f_5906(C_word c,C_word *av) C_noret; C_noret_decl(f_5909) static void C_ccall f_5909(C_word c,C_word *av) C_noret; C_noret_decl(f_5916) static void C_fcall f_5916(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_5926) static void C_ccall f_5926(C_word c,C_word *av) C_noret; C_noret_decl(f_5929) static void C_ccall f_5929(C_word c,C_word *av) C_noret; C_noret_decl(f_5935) static void C_ccall f_5935(C_word c,C_word *av) C_noret; C_noret_decl(f_5946) static void C_ccall f_5946(C_word c,C_word *av) C_noret; C_noret_decl(f_5962) static void C_ccall f_5962(C_word c,C_word *av) C_noret; C_noret_decl(f_5972) static void C_ccall f_5972(C_word c,C_word *av) C_noret; C_noret_decl(f_5995) static void C_ccall f_5995(C_word c,C_word *av) C_noret; C_noret_decl(f_5998) static void C_ccall f_5998(C_word c,C_word *av) C_noret; C_noret_decl(f_6015) static void C_ccall f_6015(C_word c,C_word *av) C_noret; C_noret_decl(f_6021) static void C_ccall f_6021(C_word c,C_word *av) C_noret; C_noret_decl(f_6038) static void C_ccall f_6038(C_word c,C_word *av) C_noret; C_noret_decl(f_6061) static void C_ccall f_6061(C_word c,C_word *av) C_noret; C_noret_decl(f_6089) static void C_ccall f_6089(C_word c,C_word *av) C_noret; C_noret_decl(f_6091) static void C_ccall f_6091(C_word c,C_word *av) C_noret; C_noret_decl(f_6095) static void C_ccall f_6095(C_word c,C_word *av) C_noret; C_noret_decl(f_6098) static void C_ccall f_6098(C_word c,C_word *av) C_noret; C_noret_decl(f_6101) static void C_ccall f_6101(C_word c,C_word *av) C_noret; C_noret_decl(f_6104) static void C_ccall f_6104(C_word c,C_word *av) C_noret; C_noret_decl(f_6111) static void C_fcall f_6111(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_6121) static void C_ccall f_6121(C_word c,C_word *av) C_noret; C_noret_decl(f_6124) static void C_ccall f_6124(C_word c,C_word *av) C_noret; C_noret_decl(f_6130) static void C_ccall f_6130(C_word c,C_word *av) C_noret; C_noret_decl(f_6137) static void C_ccall f_6137(C_word c,C_word *av) C_noret; C_noret_decl(f_6153) static void C_ccall f_6153(C_word c,C_word *av) C_noret; C_noret_decl(f_6163) static void C_ccall f_6163(C_word c,C_word *av) C_noret; C_noret_decl(f_6186) static void C_ccall f_6186(C_word c,C_word *av) C_noret; C_noret_decl(f_6189) static void C_ccall f_6189(C_word c,C_word *av) C_noret; C_noret_decl(f_6206) static void C_ccall f_6206(C_word c,C_word *av) C_noret; C_noret_decl(f_6212) static void C_ccall f_6212(C_word c,C_word *av) C_noret; C_noret_decl(f_6261) static void C_ccall f_6261(C_word c,C_word *av) C_noret; C_noret_decl(f_6263) static void C_ccall f_6263(C_word c,C_word *av) C_noret; C_noret_decl(f_6267) static void C_ccall f_6267(C_word c,C_word *av) C_noret; C_noret_decl(f_6273) static void C_ccall f_6273(C_word c,C_word *av) C_noret; C_noret_decl(f_6276) static void C_ccall f_6276(C_word c,C_word *av) C_noret; C_noret_decl(f_6288) static void C_ccall f_6288(C_word c,C_word *av) C_noret; C_noret_decl(f_6291) static void C_ccall f_6291(C_word c,C_word *av) C_noret; C_noret_decl(f_6297) static void C_ccall f_6297(C_word c,C_word *av) C_noret; C_noret_decl(f_6300) static void C_ccall f_6300(C_word c,C_word *av) C_noret; C_noret_decl(f_6309) static void C_ccall f_6309(C_word c,C_word *av) C_noret; C_noret_decl(f_6340) static void C_ccall f_6340(C_word c,C_word *av) C_noret; C_noret_decl(f_6342) static void C_fcall f_6342(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6361) static void C_fcall f_6361(C_word t0,C_word t1) C_noret; C_noret_decl(f_6367) static void C_fcall f_6367(C_word t0,C_word t1) C_noret; C_noret_decl(f_6374) static void C_fcall f_6374(C_word t0,C_word t1) C_noret; C_noret_decl(f_6378) static void C_ccall f_6378(C_word c,C_word *av) C_noret; C_noret_decl(f_6382) static void C_fcall f_6382(C_word t0,C_word t1) C_noret; C_noret_decl(f_6386) static void C_ccall f_6386(C_word c,C_word *av) C_noret; C_noret_decl(f_6414) static void C_ccall f_6414(C_word c,C_word *av) C_noret; C_noret_decl(f_6435) static void C_ccall f_6435(C_word c,C_word *av) C_noret; C_noret_decl(f_6514) static void C_ccall f_6514(C_word c,C_word *av) C_noret; C_noret_decl(f_6557) static C_word C_fcall f_6557(C_word t0,C_word t1); C_noret_decl(f_6570) static void C_ccall f_6570(C_word c,C_word *av) C_noret; C_noret_decl(f_6572) static void C_fcall f_6572(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6610) static void C_fcall f_6610(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6645) static void C_ccall f_6645(C_word c,C_word *av) C_noret; C_noret_decl(f_6652) static void C_ccall f_6652(C_word c,C_word *av) C_noret; C_noret_decl(f_6656) static void C_ccall f_6656(C_word c,C_word *av) C_noret; C_noret_decl(f_6660) static void C_ccall f_6660(C_word c,C_word *av) C_noret; C_noret_decl(f_6662) static void C_ccall f_6662(C_word c,C_word *av) C_noret; C_noret_decl(f_6666) static void C_ccall f_6666(C_word c,C_word *av) C_noret; C_noret_decl(f_6680) static void C_ccall f_6680(C_word c,C_word *av) C_noret; C_noret_decl(f_6683) static void C_ccall f_6683(C_word c,C_word *av) C_noret; C_noret_decl(f_6686) static void C_ccall f_6686(C_word c,C_word *av) C_noret; C_noret_decl(f_6708) static void C_ccall f_6708(C_word c,C_word *av) C_noret; C_noret_decl(f_6715) static void C_ccall f_6715(C_word c,C_word *av) C_noret; C_noret_decl(f_6719) static void C_ccall f_6719(C_word c,C_word *av) C_noret; C_noret_decl(f_6730) static void C_ccall f_6730(C_word c,C_word *av) C_noret; C_noret_decl(f_6733) static void C_ccall f_6733(C_word c,C_word *av) C_noret; C_noret_decl(f_6736) static void C_ccall f_6736(C_word c,C_word *av) C_noret; C_noret_decl(f_6750) static void C_ccall f_6750(C_word c,C_word *av) C_noret; C_noret_decl(f_6757) static void C_ccall f_6757(C_word c,C_word *av) C_noret; C_noret_decl(f_6761) static void C_ccall f_6761(C_word c,C_word *av) C_noret; C_noret_decl(f_6773) static void C_ccall f_6773(C_word c,C_word *av) C_noret; C_noret_decl(f_6775) static void C_ccall f_6775(C_word c,C_word *av) C_noret; C_noret_decl(f_6779) static void C_ccall f_6779(C_word c,C_word *av) C_noret; C_noret_decl(f_6781) static void C_fcall f_6781(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6787) static void C_fcall f_6787(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6801) static void C_ccall f_6801(C_word c,C_word *av) C_noret; C_noret_decl(f_6805) static void C_ccall f_6805(C_word c,C_word *av) C_noret; C_noret_decl(f_6813) static void C_ccall f_6813(C_word c,C_word *av) C_noret; C_noret_decl(f_6816) static void C_ccall f_6816(C_word c,C_word *av) C_noret; C_noret_decl(f_6819) static void C_ccall f_6819(C_word c,C_word *av) C_noret; C_noret_decl(f_6822) static void C_ccall f_6822(C_word c,C_word *av) C_noret; C_noret_decl(f_6825) static void C_ccall f_6825(C_word c,C_word *av) C_noret; C_noret_decl(f_6828) static void C_ccall f_6828(C_word c,C_word *av) C_noret; C_noret_decl(f_6831) static void C_ccall f_6831(C_word c,C_word *av) C_noret; C_noret_decl(f_6834) static void C_ccall f_6834(C_word c,C_word *av) C_noret; C_noret_decl(f_6837) static void C_ccall f_6837(C_word c,C_word *av) C_noret; C_noret_decl(f_6840) static void C_ccall f_6840(C_word c,C_word *av) C_noret; C_noret_decl(f_6847) static void C_ccall f_6847(C_word c,C_word *av) C_noret; C_noret_decl(f_6863) static void C_ccall f_6863(C_word c,C_word *av) C_noret; C_noret_decl(f_6865) static void C_fcall f_6865(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6873) static void C_fcall f_6873(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6883) static void C_ccall f_6883(C_word c,C_word *av) C_noret; C_noret_decl(f_6887) static void C_ccall f_6887(C_word c,C_word *av) C_noret; C_noret_decl(f_6897) static void C_fcall f_6897(C_word t0,C_word t1) C_noret; C_noret_decl(f_6901) static void C_ccall f_6901(C_word c,C_word *av) C_noret; C_noret_decl(f_6903) static void C_ccall f_6903(C_word c,C_word *av) C_noret; C_noret_decl(f_6911) static void C_ccall f_6911(C_word c,C_word *av) C_noret; C_noret_decl(f_6913) static void C_ccall f_6913(C_word c,C_word *av) C_noret; C_noret_decl(f_6917) static void C_ccall f_6917(C_word c,C_word *av) C_noret; C_noret_decl(f_6939) static void C_ccall f_6939(C_word c,C_word *av) C_noret; C_noret_decl(f_6941) static void C_fcall f_6941(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6989) static void C_fcall f_6989(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7042) static void C_ccall f_7042(C_word c,C_word *av) C_noret; C_noret_decl(f_7053) static void C_ccall f_7053(C_word c,C_word *av) C_noret; C_noret_decl(f_7090) static void C_ccall f_7090(C_word c,C_word *av) C_noret; C_noret_decl(f_7118) static void C_ccall f_7118(C_word c,C_word *av) C_noret; C_noret_decl(f_7145) static void C_ccall f_7145(C_word c,C_word *av) C_noret; C_noret_decl(f_7155) static void C_ccall f_7155(C_word c,C_word *av) C_noret; C_noret_decl(f_7157) static void C_fcall f_7157(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7182) static void C_ccall f_7182(C_word c,C_word *av) C_noret; C_noret_decl(f_7217) static void C_ccall f_7217(C_word c,C_word *av) C_noret; C_noret_decl(f_7219) static void C_ccall f_7219(C_word c,C_word *av) C_noret; C_noret_decl(f_7223) static void C_ccall f_7223(C_word c,C_word *av) C_noret; C_noret_decl(f_7235) static void C_ccall f_7235(C_word c,C_word *av) C_noret; C_noret_decl(f_7238) static void C_ccall f_7238(C_word c,C_word *av) C_noret; C_noret_decl(f_7241) static void C_ccall f_7241(C_word c,C_word *av) C_noret; C_noret_decl(f_7244) static void C_ccall f_7244(C_word c,C_word *av) C_noret; C_noret_decl(f_7255) static void C_ccall f_7255(C_word c,C_word *av) C_noret; C_noret_decl(f_7257) static void C_fcall f_7257(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7283) static void C_ccall f_7283(C_word c,C_word *av) C_noret; C_noret_decl(f_7294) static void C_ccall f_7294(C_word c,C_word *av) C_noret; C_noret_decl(f_7377) static void C_ccall f_7377(C_word c,C_word *av) C_noret; C_noret_decl(f_7379) static void C_ccall f_7379(C_word c,C_word *av) C_noret; C_noret_decl(f_7383) static void C_ccall f_7383(C_word c,C_word *av) C_noret; C_noret_decl(f_7386) static void C_ccall f_7386(C_word c,C_word *av) C_noret; C_noret_decl(f_7416) static void C_ccall f_7416(C_word c,C_word *av) C_noret; C_noret_decl(f_7426) static void C_ccall f_7426(C_word c,C_word *av) C_noret; C_noret_decl(f_7454) static void C_ccall f_7454(C_word c,C_word *av) C_noret; C_noret_decl(f_7456) static void C_ccall f_7456(C_word c,C_word *av) C_noret; C_noret_decl(f_7460) static void C_ccall f_7460(C_word c,C_word *av) C_noret; C_noret_decl(f_7479) static void C_ccall f_7479(C_word c,C_word *av) C_noret; C_noret_decl(f_7483) static void C_ccall f_7483(C_word c,C_word *av) C_noret; C_noret_decl(f_7487) static void C_ccall f_7487(C_word c,C_word *av) C_noret; C_noret_decl(f_7489) static void C_fcall f_7489(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_7510) static void C_ccall f_7510(C_word c,C_word *av) C_noret; C_noret_decl(f_7528) static void C_ccall f_7528(C_word c,C_word *av) C_noret; C_noret_decl(f_7536) static void C_ccall f_7536(C_word c,C_word *av) C_noret; C_noret_decl(f_7540) static void C_ccall f_7540(C_word c,C_word *av) C_noret; C_noret_decl(f_7550) static void C_fcall f_7550(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_7556) static void C_fcall f_7556(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7570) static void C_ccall f_7570(C_word c,C_word *av) C_noret; C_noret_decl(f_7596) static void C_ccall f_7596(C_word c,C_word *av) C_noret; C_noret_decl(f_7620) static void C_ccall f_7620(C_word c,C_word *av) C_noret; C_noret_decl(f_7628) static void C_ccall f_7628(C_word c,C_word *av) C_noret; C_noret_decl(f_7636) static void C_ccall f_7636(C_word c,C_word *av) C_noret; C_noret_decl(f_7640) static void C_ccall f_7640(C_word c,C_word *av) C_noret; C_noret_decl(f_7643) static void C_ccall f_7643(C_word c,C_word *av) C_noret; C_noret_decl(f_7646) static void C_ccall f_7646(C_word c,C_word *av) C_noret; C_noret_decl(f_7655) static void C_ccall f_7655(C_word c,C_word *av) C_noret; C_noret_decl(f_7656) static void C_fcall f_7656(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7664) static void C_ccall f_7664(C_word c,C_word *av) C_noret; C_noret_decl(f_7668) static void C_ccall f_7668(C_word c,C_word *av) C_noret; C_noret_decl(f_7672) static void C_fcall f_7672(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7680) static void C_ccall f_7680(C_word c,C_word *av) C_noret; C_noret_decl(f_7686) static void C_ccall f_7686(C_word c,C_word *av) C_noret; C_noret_decl(f_7692) static void C_ccall f_7692(C_word c,C_word *av) C_noret; C_noret_decl(f_7695) static void C_ccall f_7695(C_word c,C_word *av) C_noret; C_noret_decl(f_7698) static void C_ccall f_7698(C_word c,C_word *av) C_noret; C_noret_decl(f_7702) static void C_fcall f_7702(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7710) static void C_ccall f_7710(C_word c,C_word *av) C_noret; C_noret_decl(f_7713) static void C_ccall f_7713(C_word c,C_word *av) C_noret; C_noret_decl(f_7716) static void C_ccall f_7716(C_word c,C_word *av) C_noret; C_noret_decl(f_7719) static void C_ccall f_7719(C_word c,C_word *av) C_noret; C_noret_decl(f_7726) static void C_ccall f_7726(C_word c,C_word *av) C_noret; C_noret_decl(f_7752) static void C_fcall f_7752(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7777) static void C_ccall f_7777(C_word c,C_word *av) C_noret; C_noret_decl(f_7786) static void C_fcall f_7786(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7820) static void C_fcall f_7820(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7845) static void C_ccall f_7845(C_word c,C_word *av) C_noret; C_noret_decl(f_7854) static void C_fcall f_7854(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7902) static void C_ccall f_7902(C_word c,C_word *av) C_noret; C_noret_decl(f_7904) static void C_ccall f_7904(C_word c,C_word *av) C_noret; C_noret_decl(f_7908) static void C_ccall f_7908(C_word c,C_word *av) C_noret; C_noret_decl(f_7918) static void C_fcall f_7918(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7945) static void C_ccall f_7945(C_word c,C_word *av) C_noret; C_noret_decl(f_7948) static void C_ccall f_7948(C_word c,C_word *av) C_noret; C_noret_decl(f_7963) static void C_ccall f_7963(C_word c,C_word *av) C_noret; C_noret_decl(f_7971) static void C_ccall f_7971(C_word c,C_word *av) C_noret; C_noret_decl(f_7980) static void C_ccall f_7980(C_word c,C_word *av) C_noret; C_noret_decl(f_7995) static void C_ccall f_7995(C_word c,C_word *av) C_noret; C_noret_decl(f_8005) static void C_ccall f_8005(C_word c,C_word *av) C_noret; C_noret_decl(f_8008) static void C_ccall f_8008(C_word c,C_word *av) C_noret; C_noret_decl(f_8024) static void C_ccall f_8024(C_word c,C_word *av) C_noret; C_noret_decl(f_8044) static void C_ccall f_8044(C_word c,C_word *av) C_noret; C_noret_decl(f_8046) static void C_ccall f_8046(C_word c,C_word *av) C_noret; C_noret_decl(f_8048) static void C_fcall f_8048(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8052) static void C_ccall f_8052(C_word c,C_word *av) C_noret; C_noret_decl(f_8061) static void C_fcall f_8061(C_word t0,C_word t1) C_noret; C_noret_decl(f_8064) static void C_ccall f_8064(C_word c,C_word *av) C_noret; C_noret_decl(f_8073) static void C_fcall f_8073(C_word t0,C_word t1) C_noret; C_noret_decl(f_8089) static void C_ccall f_8089(C_word c,C_word *av) C_noret; C_noret_decl(f_8093) static void C_ccall f_8093(C_word c,C_word *av) C_noret; C_noret_decl(f_8136) static void C_ccall f_8136(C_word c,C_word *av) C_noret; C_noret_decl(f_8148) static void C_ccall f_8148(C_word c,C_word *av) C_noret; C_noret_decl(f_8150) static void C_ccall f_8150(C_word c,C_word *av) C_noret; C_noret_decl(f_8154) static void C_ccall f_8154(C_word c,C_word *av) C_noret; C_noret_decl(f_8157) static void C_ccall f_8157(C_word c,C_word *av) C_noret; C_noret_decl(f_8176) static void C_ccall f_8176(C_word c,C_word *av) C_noret; C_noret_decl(f_8192) static void C_ccall f_8192(C_word c,C_word *av) C_noret; C_noret_decl(f_8194) static void C_ccall f_8194(C_word c,C_word *av) C_noret; C_noret_decl(f_8198) static void C_ccall f_8198(C_word c,C_word *av) C_noret; C_noret_decl(f_8201) static void C_ccall f_8201(C_word c,C_word *av) C_noret; C_noret_decl(f_8214) static void C_ccall f_8214(C_word c,C_word *av) C_noret; C_noret_decl(f_8216) static void C_ccall f_8216(C_word c,C_word *av) C_noret; C_noret_decl(f_8220) static void C_ccall f_8220(C_word c,C_word *av) C_noret; C_noret_decl(f_8234) static void C_ccall f_8234(C_word c,C_word *av) C_noret; C_noret_decl(f_8240) static void C_ccall f_8240(C_word c,C_word *av) C_noret; C_noret_decl(f_8262) static void C_ccall f_8262(C_word c,C_word *av) C_noret; C_noret_decl(f_8268) static void C_ccall f_8268(C_word c,C_word *av) C_noret; C_noret_decl(f_8272) static void C_ccall f_8272(C_word c,C_word *av) C_noret; C_noret_decl(f_8282) static void C_ccall f_8282(C_word c,C_word *av) C_noret; C_noret_decl(f_8284) static void C_fcall f_8284(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8313) static void C_ccall f_8313(C_word c,C_word *av) C_noret; C_noret_decl(f_8332) static void C_fcall f_8332(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8366) static void C_fcall f_8366(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8390) static void C_ccall f_8390(C_word c,C_word *av) C_noret; C_noret_decl(f_8392) static void C_ccall f_8392(C_word c,C_word *av) C_noret; C_noret_decl(f_8396) static void C_ccall f_8396(C_word c,C_word *av) C_noret; C_noret_decl(f_8402) static void C_fcall f_8402(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8436) static void C_fcall f_8436(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8472) static void C_ccall f_8472(C_word c,C_word *av) C_noret; C_noret_decl(f_8474) static void C_ccall f_8474(C_word c,C_word *av) C_noret; C_noret_decl(f_8478) static void C_ccall f_8478(C_word c,C_word *av) C_noret; C_noret_decl(f_8486) static void C_ccall f_8486(C_word c,C_word *av) C_noret; C_noret_decl(f_8491) static void C_fcall f_8491(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8516) static void C_ccall f_8516(C_word c,C_word *av) C_noret; C_noret_decl(f_8526) static void C_ccall f_8526(C_word c,C_word *av) C_noret; C_noret_decl(f_8528) static void C_ccall f_8528(C_word c,C_word *av) C_noret; C_noret_decl(f_8532) static void C_ccall f_8532(C_word c,C_word *av) C_noret; C_noret_decl(f_8538) static void C_ccall f_8538(C_word c,C_word *av) C_noret; C_noret_decl(f_8559) static void C_ccall f_8559(C_word c,C_word *av) C_noret; C_noret_decl(f_8566) static void C_ccall f_8566(C_word c,C_word *av) C_noret; C_noret_decl(f_8589) static void C_ccall f_8589(C_word c,C_word *av) C_noret; C_noret_decl(f_8593) static void C_ccall f_8593(C_word c,C_word *av) C_noret; C_noret_decl(f_8614) static void C_ccall f_8614(C_word c,C_word *av) C_noret; C_noret_decl(f_8617) static void C_ccall f_8617(C_word c,C_word *av) C_noret; C_noret_decl(f_8621) static void C_fcall f_8621(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8629) static void C_ccall f_8629(C_word c,C_word *av) C_noret; C_noret_decl(f_8633) static void C_ccall f_8633(C_word c,C_word *av) C_noret; C_noret_decl(f_8639) static void C_ccall f_8639(C_word c,C_word *av) C_noret; C_noret_decl(f_8640) static void C_ccall f_8640(C_word c,C_word *av) C_noret; C_noret_decl(f_8651) static void C_ccall f_8651(C_word c,C_word *av) C_noret; C_noret_decl(f_8666) static void C_ccall f_8666(C_word c,C_word *av) C_noret; C_noret_decl(f_8668) static void C_fcall f_8668(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8687) static void C_fcall f_8687(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8695) static void C_ccall f_8695(C_word c,C_word *av) C_noret; C_noret_decl(f_8701) static void C_ccall f_8701(C_word c,C_word *av) C_noret; C_noret_decl(f_8703) static void C_fcall f_8703(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8728) static void C_ccall f_8728(C_word c,C_word *av) C_noret; C_noret_decl(f_8741) static void C_fcall f_8741(C_word t0,C_word t1) C_noret; C_noret_decl(f_8752) static void C_ccall f_8752(C_word c,C_word *av) C_noret; C_noret_decl(f_8789) static void C_ccall f_8789(C_word c,C_word *av) C_noret; C_noret_decl(f_8817) static void C_fcall f_8817(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8851) static void C_fcall f_8851(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8882) static void C_ccall f_8882(C_word c,C_word *av) C_noret; C_noret_decl(f_8889) static void C_ccall f_8889(C_word c,C_word *av) C_noret; C_noret_decl(f_8895) static void C_fcall f_8895(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8920) static void C_ccall f_8920(C_word c,C_word *av) C_noret; C_noret_decl(f_8929) static void C_fcall f_8929(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8942) static void C_ccall f_8942(C_word c,C_word *av) C_noret; C_noret_decl(f_8967) static void C_fcall f_8967(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9003) static void C_ccall f_9003(C_word c,C_word *av) C_noret; C_noret_decl(f_9005) static void C_ccall f_9005(C_word c,C_word *av) C_noret; C_noret_decl(f_9009) static void C_ccall f_9009(C_word c,C_word *av) C_noret; C_noret_decl(f_9016) static void C_ccall f_9016(C_word c,C_word *av) C_noret; C_noret_decl(f_9020) static void C_ccall f_9020(C_word c,C_word *av) C_noret; C_noret_decl(f_9028) static void C_ccall f_9028(C_word c,C_word *av) C_noret; C_noret_decl(f_9042) static void C_ccall f_9042(C_word c,C_word *av) C_noret; C_noret_decl(f_9048) static void C_ccall f_9048(C_word c,C_word *av) C_noret; C_noret_decl(f_9055) static void C_ccall f_9055(C_word c,C_word *av) C_noret; C_noret_decl(f_9061) static void C_ccall f_9061(C_word c,C_word *av) C_noret; C_noret_decl(f_9074) static void C_fcall f_9074(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9108) static void C_fcall f_9108(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9118) static void C_ccall f_9118(C_word c,C_word *av) C_noret; C_noret_decl(f_9133) static void C_ccall f_9133(C_word c,C_word *av) C_noret; C_noret_decl(f_9135) static void C_ccall f_9135(C_word c,C_word *av) C_noret; C_noret_decl(f_9139) static void C_ccall f_9139(C_word c,C_word *av) C_noret; C_noret_decl(f_9154) static void C_ccall f_9154(C_word c,C_word *av) C_noret; C_noret_decl(f_9156) static void C_ccall f_9156(C_word c,C_word *av) C_noret; C_noret_decl(f_9160) static void C_ccall f_9160(C_word c,C_word *av) C_noret; C_noret_decl(f_9182) static void C_ccall f_9182(C_word c,C_word *av) C_noret; C_noret_decl(f_9184) static void C_ccall f_9184(C_word c,C_word *av) C_noret; C_noret_decl(f_9188) static void C_ccall f_9188(C_word c,C_word *av) C_noret; C_noret_decl(f_9206) static void C_ccall f_9206(C_word c,C_word *av) C_noret; C_noret_decl(f_9208) static void C_ccall f_9208(C_word c,C_word *av) C_noret; C_noret_decl(f_9217) static void C_fcall f_9217(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9223) static void C_ccall f_9223(C_word c,C_word *av) C_noret; C_noret_decl(f_9229) static void C_ccall f_9229(C_word c,C_word *av) C_noret; C_noret_decl(f_9243) static void C_ccall f_9243(C_word c,C_word *av) C_noret; C_noret_decl(f_9252) static void C_ccall f_9252(C_word c,C_word *av) C_noret; C_noret_decl(f_9254) static void C_fcall f_9254(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9279) static void C_ccall f_9279(C_word c,C_word *av) C_noret; C_noret_decl(f_9290) static void C_ccall f_9290(C_word c,C_word *av) C_noret; C_noret_decl(f_9292) static void C_ccall f_9292(C_word c,C_word *av) C_noret; C_noret_decl(f_9311) static void C_ccall f_9311(C_word c,C_word *av) C_noret; C_noret_decl(f_9319) static void C_ccall f_9319(C_word c,C_word *av) C_noret; C_noret_decl(f_9328) static void C_ccall f_9328(C_word c,C_word *av) C_noret; C_noret_decl(f_9334) static void C_ccall f_9334(C_word c,C_word *av) C_noret; C_noret_decl(f_9338) static void C_fcall f_9338(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9346) static void C_ccall f_9346(C_word c,C_word *av) C_noret; C_noret_decl(f_9352) static void C_ccall f_9352(C_word c,C_word *av) C_noret; C_noret_decl(f_9356) static void C_fcall f_9356(C_word t0,C_word t1) C_noret; C_noret_decl(f_9364) static void C_ccall f_9364(C_word c,C_word *av) C_noret; C_noret_decl(f_9367) static void C_ccall f_9367(C_word c,C_word *av) C_noret; C_noret_decl(f_9371) static void C_fcall f_9371(C_word t0,C_word t1) C_noret; C_noret_decl(f_9379) static void C_ccall f_9379(C_word c,C_word *av) C_noret; C_noret_decl(f_9382) static void C_ccall f_9382(C_word c,C_word *av) C_noret; C_noret_decl(f_9395) static void C_ccall f_9395(C_word c,C_word *av) C_noret; C_noret_decl(f_9412) static void C_ccall f_9412(C_word c,C_word *av) C_noret; C_noret_decl(f_9423) static void C_ccall f_9423(C_word c,C_word *av) C_noret; C_noret_decl(f_9471) static void C_ccall f_9471(C_word c,C_word *av) C_noret; C_noret_decl(f_9475) static void C_ccall f_9475(C_word c,C_word *av) C_noret; C_noret_decl(f_9487) static void C_ccall f_9487(C_word c,C_word *av) C_noret; C_noret_decl(f_9499) static void C_ccall f_9499(C_word c,C_word *av) C_noret; C_noret_decl(f_9501) static void C_fcall f_9501(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9549) static void C_fcall f_9549(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9597) static void C_fcall f_9597(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_9604) static void C_fcall f_9604(C_word t0,C_word t1) C_noret; C_noret_decl(f_9674) static C_word C_fcall f_9674(C_word *a,C_word t0,C_word t1,C_word t2,C_word t3); C_noret_decl(f_9692) static void C_ccall f_9692(C_word c,C_word *av) C_noret; C_noret_decl(f_9696) static void C_ccall f_9696(C_word c,C_word *av) C_noret; C_noret_decl(f_9712) static void C_ccall f_9712(C_word c,C_word *av) C_noret; C_noret_decl(f_9716) static void C_ccall f_9716(C_word c,C_word *av) C_noret; C_noret_decl(f_9728) static void C_ccall f_9728(C_word c,C_word *av) C_noret; C_noret_decl(f_9738) static void C_fcall f_9738(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9786) static void C_fcall f_9786(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9834) static void C_fcall f_9834(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_9841) static void C_fcall f_9841(C_word t0,C_word t1) C_noret; C_noret_decl(f_9904) static void C_fcall f_9904(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9952) static void C_fcall f_9952(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(C_chicken_2dsyntax_toplevel) C_externexport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_10000) static void C_ccall trf_10000(C_word c,C_word *av) C_noret; static void C_ccall trf_10000(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10000(t0,t1,t2,t3);} C_noret_decl(trf_10048) static void C_ccall trf_10048(C_word c,C_word *av) C_noret; static void C_ccall trf_10048(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10048(t0,t1,t2);} C_noret_decl(trf_10082) static void C_ccall trf_10082(C_word c,C_word *av) C_noret; static void C_ccall trf_10082(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10082(t0,t1,t2);} C_noret_decl(trf_10116) static void C_ccall trf_10116(C_word c,C_word *av) C_noret; static void C_ccall trf_10116(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10116(t0,t1,t2);} C_noret_decl(trf_10150) static void C_ccall trf_10150(C_word c,C_word *av) C_noret; static void C_ccall trf_10150(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10150(t0,t1,t2);} C_noret_decl(trf_10184) static void C_ccall trf_10184(C_word c,C_word *av) C_noret; static void C_ccall trf_10184(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10184(t0,t1,t2);} C_noret_decl(trf_10244) static void C_ccall trf_10244(C_word c,C_word *av) C_noret; static void C_ccall trf_10244(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10244(t0,t1);} C_noret_decl(trf_10259) static void C_ccall trf_10259(C_word c,C_word *av) C_noret; static void C_ccall trf_10259(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10259(t0,t1);} C_noret_decl(trf_10339) static void C_ccall trf_10339(C_word c,C_word *av) C_noret; static void C_ccall trf_10339(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10339(t0,t1,t2,t3);} C_noret_decl(trf_10387) static void C_ccall trf_10387(C_word c,C_word *av) C_noret; static void C_ccall trf_10387(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10387(t0,t1,t2,t3);} C_noret_decl(trf_10486) static void C_ccall trf_10486(C_word c,C_word *av) C_noret; static void C_ccall trf_10486(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10486(t0,t1,t2,t3);} C_noret_decl(trf_10534) static void C_ccall trf_10534(C_word c,C_word *av) C_noret; static void C_ccall trf_10534(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10534(t0,t1,t2,t3);} C_noret_decl(trf_10617) static void C_ccall trf_10617(C_word c,C_word *av) C_noret; static void C_ccall trf_10617(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10617(t0,t1,t2,t3);} C_noret_decl(trf_10667) static void C_ccall trf_10667(C_word c,C_word *av) C_noret; static void C_ccall trf_10667(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10667(t0,t1,t2);} C_noret_decl(trf_10687) static void C_ccall trf_10687(C_word c,C_word *av) C_noret; static void C_ccall trf_10687(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10687(t0,t1,t2,t3);} C_noret_decl(trf_10735) static void C_ccall trf_10735(C_word c,C_word *av) C_noret; static void C_ccall trf_10735(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10735(t0,t1,t2);} C_noret_decl(trf_10769) static void C_ccall trf_10769(C_word c,C_word *av) C_noret; static void C_ccall trf_10769(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10769(t0,t1,t2);} C_noret_decl(trf_10803) static void C_ccall trf_10803(C_word c,C_word *av) C_noret; static void C_ccall trf_10803(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10803(t0,t1,t2);} C_noret_decl(trf_10837) static void C_ccall trf_10837(C_word c,C_word *av) C_noret; static void C_ccall trf_10837(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10837(t0,t1,t2);} C_noret_decl(trf_10985) static void C_ccall trf_10985(C_word c,C_word *av) C_noret; static void C_ccall trf_10985(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10985(t0,t1);} C_noret_decl(trf_11069) static void C_ccall trf_11069(C_word c,C_word *av) C_noret; static void C_ccall trf_11069(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11069(t0,t1,t2);} C_noret_decl(trf_11162) static void C_ccall trf_11162(C_word c,C_word *av) C_noret; static void C_ccall trf_11162(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11162(t0,t1,t2,t3);} C_noret_decl(trf_11214) static void C_ccall trf_11214(C_word c,C_word *av) C_noret; static void C_ccall trf_11214(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11214(t0,t1);} C_noret_decl(trf_11380) static void C_ccall trf_11380(C_word c,C_word *av) C_noret; static void C_ccall trf_11380(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11380(t0,t1,t2);} C_noret_decl(trf_11512) static void C_ccall trf_11512(C_word c,C_word *av) C_noret; static void C_ccall trf_11512(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11512(t0,t1,t2,t3);} C_noret_decl(trf_11562) static void C_ccall trf_11562(C_word c,C_word *av) C_noret; static void C_ccall trf_11562(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11562(t0,t1,t2,t3);} C_noret_decl(trf_11607) static void C_ccall trf_11607(C_word c,C_word *av) C_noret; static void C_ccall trf_11607(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11607(t0,t1);} C_noret_decl(trf_11631) static void C_ccall trf_11631(C_word c,C_word *av) C_noret; static void C_ccall trf_11631(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11631(t0,t1);} C_noret_decl(trf_11867) static void C_ccall trf_11867(C_word c,C_word *av) C_noret; static void C_ccall trf_11867(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11867(t0,t1,t2);} C_noret_decl(trf_11907) static void C_ccall trf_11907(C_word c,C_word *av) C_noret; static void C_ccall trf_11907(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11907(t0,t1,t2);} C_noret_decl(trf_11993) static void C_ccall trf_11993(C_word c,C_word *av) C_noret; static void C_ccall trf_11993(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_11993(t0,t1,t2,t3,t4);} C_noret_decl(trf_12049) static void C_ccall trf_12049(C_word c,C_word *av) C_noret; static void C_ccall trf_12049(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12049(t0,t1,t2,t3);} C_noret_decl(trf_12146) static void C_ccall trf_12146(C_word c,C_word *av) C_noret; static void C_ccall trf_12146(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12146(t0,t1,t2);} C_noret_decl(trf_12190) static void C_ccall trf_12190(C_word c,C_word *av) C_noret; static void C_ccall trf_12190(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12190(t0,t1,t2,t3);} C_noret_decl(trf_12244) static void C_ccall trf_12244(C_word c,C_word *av) C_noret; static void C_ccall trf_12244(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12244(t0,t1);} C_noret_decl(trf_12414) static void C_ccall trf_12414(C_word c,C_word *av) C_noret; static void C_ccall trf_12414(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12414(t0,t1,t2);} C_noret_decl(trf_12448) static void C_ccall trf_12448(C_word c,C_word *av) C_noret; static void C_ccall trf_12448(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12448(t0,t1,t2);} C_noret_decl(trf_12516) static void C_ccall trf_12516(C_word c,C_word *av) C_noret; static void C_ccall trf_12516(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12516(t0,t1,t2,t3);} C_noret_decl(trf_12566) static void C_ccall trf_12566(C_word c,C_word *av) C_noret; static void C_ccall trf_12566(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12566(t0,t1,t2,t3);} C_noret_decl(trf_12585) static void C_ccall trf_12585(C_word c,C_word *av) C_noret; static void C_ccall trf_12585(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12585(t0,t1);} C_noret_decl(trf_12726) static void C_ccall trf_12726(C_word c,C_word *av) C_noret; static void C_ccall trf_12726(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12726(t0,t1);} C_noret_decl(trf_12803) static void C_ccall trf_12803(C_word c,C_word *av) C_noret; static void C_ccall trf_12803(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12803(t0,t1);} C_noret_decl(trf_12806) static void C_ccall trf_12806(C_word c,C_word *av) C_noret; static void C_ccall trf_12806(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12806(t0,t1);} C_noret_decl(trf_12809) static void C_ccall trf_12809(C_word c,C_word *av) C_noret; static void C_ccall trf_12809(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_12809(t0,t1);} C_noret_decl(trf_12850) static void C_ccall trf_12850(C_word c,C_word *av) C_noret; static void C_ccall trf_12850(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12850(t0,t1,t2);} C_noret_decl(trf_12985) static void C_ccall trf_12985(C_word c,C_word *av) C_noret; static void C_ccall trf_12985(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12985(t0,t1,t2);} C_noret_decl(trf_4313) static void C_ccall trf_4313(C_word c,C_word *av) C_noret; static void C_ccall trf_4313(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4313(t0,t1,t2);} C_noret_decl(trf_4371) static void C_ccall trf_4371(C_word c,C_word *av) C_noret; static void C_ccall trf_4371(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_4371(t0,t1,t2,t3,t4);} C_noret_decl(trf_5742) static void C_ccall trf_5742(C_word c,C_word *av) C_noret; static void C_ccall trf_5742(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5742(t0,t1);} C_noret_decl(trf_5765) static void C_ccall trf_5765(C_word c,C_word *av) C_noret; static void C_ccall trf_5765(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5765(t0,t1);} C_noret_decl(trf_5916) static void C_ccall trf_5916(C_word c,C_word *av) C_noret; static void C_ccall trf_5916(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_5916(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_6111) static void C_ccall trf_6111(C_word c,C_word *av) C_noret; static void C_ccall trf_6111(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_6111(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_6342) static void C_ccall trf_6342(C_word c,C_word *av) C_noret; static void C_ccall trf_6342(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6342(t0,t1,t2,t3);} C_noret_decl(trf_6361) static void C_ccall trf_6361(C_word c,C_word *av) C_noret; static void C_ccall trf_6361(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6361(t0,t1);} C_noret_decl(trf_6367) static void C_ccall trf_6367(C_word c,C_word *av) C_noret; static void C_ccall trf_6367(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6367(t0,t1);} C_noret_decl(trf_6374) static void C_ccall trf_6374(C_word c,C_word *av) C_noret; static void C_ccall trf_6374(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6374(t0,t1);} C_noret_decl(trf_6382) static void C_ccall trf_6382(C_word c,C_word *av) C_noret; static void C_ccall trf_6382(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6382(t0,t1);} C_noret_decl(trf_6572) static void C_ccall trf_6572(C_word c,C_word *av) C_noret; static void C_ccall trf_6572(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6572(t0,t1,t2);} C_noret_decl(trf_6610) static void C_ccall trf_6610(C_word c,C_word *av) C_noret; static void C_ccall trf_6610(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6610(t0,t1,t2);} C_noret_decl(trf_6781) static void C_ccall trf_6781(C_word c,C_word *av) C_noret; static void C_ccall trf_6781(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6781(t0,t1,t2);} C_noret_decl(trf_6787) static void C_ccall trf_6787(C_word c,C_word *av) C_noret; static void C_ccall trf_6787(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6787(t0,t1,t2);} C_noret_decl(trf_6865) static void C_ccall trf_6865(C_word c,C_word *av) C_noret; static void C_ccall trf_6865(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6865(t0,t1,t2);} C_noret_decl(trf_6873) static void C_ccall trf_6873(C_word c,C_word *av) C_noret; static void C_ccall trf_6873(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6873(t0,t1,t2,t3);} C_noret_decl(trf_6897) static void C_ccall trf_6897(C_word c,C_word *av) C_noret; static void C_ccall trf_6897(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6897(t0,t1);} C_noret_decl(trf_6941) static void C_ccall trf_6941(C_word c,C_word *av) C_noret; static void C_ccall trf_6941(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6941(t0,t1,t2,t3);} C_noret_decl(trf_6989) static void C_ccall trf_6989(C_word c,C_word *av) C_noret; static void C_ccall trf_6989(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6989(t0,t1,t2,t3);} C_noret_decl(trf_7157) static void C_ccall trf_7157(C_word c,C_word *av) C_noret; static void C_ccall trf_7157(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7157(t0,t1,t2);} C_noret_decl(trf_7257) static void C_ccall trf_7257(C_word c,C_word *av) C_noret; static void C_ccall trf_7257(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7257(t0,t1,t2,t3);} C_noret_decl(trf_7489) static void C_ccall trf_7489(C_word c,C_word *av) C_noret; static void C_ccall trf_7489(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_7489(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_7550) static void C_ccall trf_7550(C_word c,C_word *av) C_noret; static void C_ccall trf_7550(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_7550(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_7556) static void C_ccall trf_7556(C_word c,C_word *av) C_noret; static void C_ccall trf_7556(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_7556(t0,t1,t2,t3,t4);} C_noret_decl(trf_7656) static void C_ccall trf_7656(C_word c,C_word *av) C_noret; static void C_ccall trf_7656(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7656(t0,t1,t2);} C_noret_decl(trf_7672) static void C_ccall trf_7672(C_word c,C_word *av) C_noret; static void C_ccall trf_7672(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7672(t0,t1,t2);} C_noret_decl(trf_7702) static void C_ccall trf_7702(C_word c,C_word *av) C_noret; static void C_ccall trf_7702(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7702(t0,t1,t2);} C_noret_decl(trf_7752) static void C_ccall trf_7752(C_word c,C_word *av) C_noret; static void C_ccall trf_7752(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7752(t0,t1,t2);} C_noret_decl(trf_7786) static void C_ccall trf_7786(C_word c,C_word *av) C_noret; static void C_ccall trf_7786(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7786(t0,t1,t2);} C_noret_decl(trf_7820) static void C_ccall trf_7820(C_word c,C_word *av) C_noret; static void C_ccall trf_7820(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7820(t0,t1,t2);} C_noret_decl(trf_7854) static void C_ccall trf_7854(C_word c,C_word *av) C_noret; static void C_ccall trf_7854(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7854(t0,t1,t2);} C_noret_decl(trf_7918) static void C_ccall trf_7918(C_word c,C_word *av) C_noret; static void C_ccall trf_7918(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7918(t0,t1,t2,t3);} C_noret_decl(trf_8048) static void C_ccall trf_8048(C_word c,C_word *av) C_noret; static void C_ccall trf_8048(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8048(t0,t1,t2,t3);} C_noret_decl(trf_8061) static void C_ccall trf_8061(C_word c,C_word *av) C_noret; static void C_ccall trf_8061(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8061(t0,t1);} C_noret_decl(trf_8073) static void C_ccall trf_8073(C_word c,C_word *av) C_noret; static void C_ccall trf_8073(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8073(t0,t1);} C_noret_decl(trf_8284) static void C_ccall trf_8284(C_word c,C_word *av) C_noret; static void C_ccall trf_8284(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8284(t0,t1,t2,t3);} C_noret_decl(trf_8332) static void C_ccall trf_8332(C_word c,C_word *av) C_noret; static void C_ccall trf_8332(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8332(t0,t1,t2);} C_noret_decl(trf_8366) static void C_ccall trf_8366(C_word c,C_word *av) C_noret; static void C_ccall trf_8366(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8366(t0,t1,t2,t3);} C_noret_decl(trf_8402) static void C_ccall trf_8402(C_word c,C_word *av) C_noret; static void C_ccall trf_8402(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8402(t0,t1,t2);} C_noret_decl(trf_8436) static void C_ccall trf_8436(C_word c,C_word *av) C_noret; static void C_ccall trf_8436(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8436(t0,t1,t2);} C_noret_decl(trf_8491) static void C_ccall trf_8491(C_word c,C_word *av) C_noret; static void C_ccall trf_8491(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8491(t0,t1,t2);} C_noret_decl(trf_8621) static void C_ccall trf_8621(C_word c,C_word *av) C_noret; static void C_ccall trf_8621(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8621(t0,t1,t2);} C_noret_decl(trf_8668) static void C_ccall trf_8668(C_word c,C_word *av) C_noret; static void C_ccall trf_8668(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_8668(t0,t1,t2,t3,t4);} C_noret_decl(trf_8687) static void C_ccall trf_8687(C_word c,C_word *av) C_noret; static void C_ccall trf_8687(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8687(t0,t1,t2);} C_noret_decl(trf_8703) static void C_ccall trf_8703(C_word c,C_word *av) C_noret; static void C_ccall trf_8703(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8703(t0,t1,t2);} C_noret_decl(trf_8741) static void C_ccall trf_8741(C_word c,C_word *av) C_noret; static void C_ccall trf_8741(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8741(t0,t1);} C_noret_decl(trf_8817) static void C_ccall trf_8817(C_word c,C_word *av) C_noret; static void C_ccall trf_8817(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8817(t0,t1,t2);} C_noret_decl(trf_8851) static void C_ccall trf_8851(C_word c,C_word *av) C_noret; static void C_ccall trf_8851(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8851(t0,t1,t2,t3);} C_noret_decl(trf_8895) static void C_ccall trf_8895(C_word c,C_word *av) C_noret; static void C_ccall trf_8895(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8895(t0,t1,t2);} C_noret_decl(trf_8929) static void C_ccall trf_8929(C_word c,C_word *av) C_noret; static void C_ccall trf_8929(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8929(t0,t1,t2,t3);} C_noret_decl(trf_8967) static void C_ccall trf_8967(C_word c,C_word *av) C_noret; static void C_ccall trf_8967(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8967(t0,t1,t2);} C_noret_decl(trf_9074) static void C_ccall trf_9074(C_word c,C_word *av) C_noret; static void C_ccall trf_9074(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9074(t0,t1,t2);} C_noret_decl(trf_9108) static void C_ccall trf_9108(C_word c,C_word *av) C_noret; static void C_ccall trf_9108(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9108(t0,t1,t2);} C_noret_decl(trf_9217) static void C_ccall trf_9217(C_word c,C_word *av) C_noret; static void C_ccall trf_9217(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9217(t0,t1,t2);} C_noret_decl(trf_9254) static void C_ccall trf_9254(C_word c,C_word *av) C_noret; static void C_ccall trf_9254(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9254(t0,t1,t2);} C_noret_decl(trf_9338) static void C_ccall trf_9338(C_word c,C_word *av) C_noret; static void C_ccall trf_9338(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9338(t0,t1,t2);} C_noret_decl(trf_9356) static void C_ccall trf_9356(C_word c,C_word *av) C_noret; static void C_ccall trf_9356(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9356(t0,t1);} C_noret_decl(trf_9371) static void C_ccall trf_9371(C_word c,C_word *av) C_noret; static void C_ccall trf_9371(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9371(t0,t1);} C_noret_decl(trf_9501) static void C_ccall trf_9501(C_word c,C_word *av) C_noret; static void C_ccall trf_9501(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9501(t0,t1,t2,t3);} C_noret_decl(trf_9549) static void C_ccall trf_9549(C_word c,C_word *av) C_noret; static void C_ccall trf_9549(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9549(t0,t1,t2,t3);} C_noret_decl(trf_9597) static void C_ccall trf_9597(C_word c,C_word *av) C_noret; static void C_ccall trf_9597(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_9597(t0,t1,t2,t3,t4);} C_noret_decl(trf_9604) static void C_ccall trf_9604(C_word c,C_word *av) C_noret; static void C_ccall trf_9604(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9604(t0,t1);} C_noret_decl(trf_9738) static void C_ccall trf_9738(C_word c,C_word *av) C_noret; static void C_ccall trf_9738(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9738(t0,t1,t2,t3);} C_noret_decl(trf_9786) static void C_ccall trf_9786(C_word c,C_word *av) C_noret; static void C_ccall trf_9786(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9786(t0,t1,t2,t3);} C_noret_decl(trf_9834) static void C_ccall trf_9834(C_word c,C_word *av) C_noret; static void C_ccall trf_9834(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_9834(t0,t1,t2,t3,t4);} C_noret_decl(trf_9841) static void C_ccall trf_9841(C_word c,C_word *av) C_noret; static void C_ccall trf_9841(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9841(t0,t1);} C_noret_decl(trf_9904) static void C_ccall trf_9904(C_word c,C_word *av) C_noret; static void C_ccall trf_9904(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9904(t0,t1,t2,t3);} C_noret_decl(trf_9952) static void C_ccall trf_9952(C_word c,C_word *av) C_noret; static void C_ccall trf_9952(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9952(t0,t1,t2,t3);} /* map-loop1746 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_fcall f_10000(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_10000,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1716 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_fcall f_10048(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10048,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10073,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:496: g1722 */ t4=((C_word*)t0)[4]; f_9371(t4,t3);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10071 in map-loop1716 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_10073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10073,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10048(t6,((C_word*)t0)[5],t5);} /* map-loop1688 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_fcall f_10082(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10082,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10107,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:495: g1694 */ t4=((C_word*)t0)[4]; f_9356(t4,t3);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10105 in map-loop1688 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_10107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10107,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10082(t6,((C_word*)t0)[5],t5);} /* map-loop1660 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_fcall f_10116(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10116,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10141,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-syntax.scm:494: g1666 */ t5=((C_word*)t0)[4]; f_9338(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10139 in map-loop1660 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_10141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10141,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10116(t6,((C_word*)t0)[5],t5);} /* map-loop1633 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_fcall f_10150(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10150,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cadr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop1606 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_fcall f_10184(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10184,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10218 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in ... */ static void C_ccall f_10220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10220,2,av);} /* chicken-syntax.scm:448: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[181]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in ... */ static void C_ccall f_10222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10222,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10226,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:452: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[181]; av2[3]=t2; av2[4]=lf[182]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in ... */ static void C_ccall f_10226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_10226,2,av);} a=C_alloc(19); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=C_i_check_list_2(t3,lf[67]); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10240,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10837,a[2]=t9,a[3]=t14,a[4]=t10,a[5]=((C_word)li113),tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_10837(t16,t12,t3);} /* k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in ... */ static void C_ccall f_10240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_10240,2,av);} a=C_alloc(25); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10244,a[2]=((C_word*)t0)[2],a[3]=((C_word)li101),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10255,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10803,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li112),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_10803(t12,t8,((C_word*)t0)[5]);} /* g1309 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_fcall f_10244(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_10244,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10252,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:456: chicken.base#gensym */ t3=*((C_word*)lf[56]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10250 in g1309 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_10252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10252,2,av);} /* chicken-syntax.scm:456: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_ccall f_10255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_10255,2,av);} a=C_alloc(25); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10259,a[2]=((C_word*)t0)[2],a[3]=((C_word)li102),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10270,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10769,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li111),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_10769(t12,t8,((C_word*)t0)[6]);} /* g1337 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_fcall f_10259(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_10259,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10267,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:457: chicken.base#gensym */ t3=*((C_word*)lf[56]+1);{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10265 in g1337 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_ccall f_10267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10267,2,av);} /* chicken-syntax.scm:457: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_10270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ C_save_and_reclaim((void *)f_10270,2,av);} a=C_alloc(33); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10277,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=((C_word*)t0)[5]; t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10590,a[2]=t8,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=t6,a[7]=t7,tmp=(C_word)a,a+=8,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10735,a[2]=t11,a[3]=t15,a[4]=t12,a[5]=((C_word)li110),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_10735(t17,t13,((C_word*)t0)[6]);} /* k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_ccall f_10277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,4)))){ C_save_and_reclaim((void *)f_10277,2,av);} a=C_alloc(26); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10445,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_check_list_2(((C_word*)t0)[4],lf[67]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10460,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10534,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li106),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_10534(t13,t9,((C_word*)t0)[5],((C_word*)t0)[4]);} /* k10299 in k10443 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_10301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_10301,2,av);} a=C_alloc(27); t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t1); t3=C_a_i_cons(&a,2,lf[23],t2); t4=C_a_i_list(&a,4,lf[177],((C_word*)t0)[2],((C_word*)t0)[3],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k10311 in k10443 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_10313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_10313,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10317,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10329,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10339,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li103),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_10339(t12,t8,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k10315 in k10311 in k10443 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_10317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10317,2,av);} /* chicken-syntax.scm:458: ##sys#append */ t2=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k10327 in k10311 in k10443 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_10329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10329,2,av);} a=C_alloc(6); t2=C_a_i_list(&a,1,lf[163]); t3=C_a_i_list(&a,1,t2); /* chicken-syntax.scm:458: ##sys#append */ t4=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* map-loop1560 in k10311 in k10443 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_fcall f_10339(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_10339,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,3,lf[178],t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1524 in k10443 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_fcall f_10387(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_10387,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,3,lf[178],t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k10443 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_ccall f_10445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(36,c,4)))){ C_save_and_reclaim((void *)f_10445,2,av);} a=C_alloc(36); t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t1); t3=C_a_i_cons(&a,2,lf[23],t2); t4=t3; t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t6=C_a_i_cons(&a,2,lf[23],t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10301,a[2]=t4,a[3]=t7,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10313,a[2]=t8,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10387,a[2]=t11,a[3]=t15,a[4]=t12,a[5]=((C_word)li104),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_10387(t17,t13,((C_word*)t0)[7],((C_word*)t0)[5]);} /* k10458 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_ccall f_10460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_10460,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10464,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10476,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10486,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li105),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_10486(t12,t8,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k10462 in k10458 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_10464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10464,2,av);} /* chicken-syntax.scm:458: ##sys#append */ t2=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k10474 in k10458 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_10476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10476,2,av);} a=C_alloc(6); t2=C_a_i_list(&a,1,lf[163]); t3=C_a_i_list(&a,1,t2); /* chicken-syntax.scm:458: ##sys#append */ t4=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* map-loop1488 in k10458 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_fcall f_10486(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_10486,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,3,lf[178],t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1452 in k10275 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_fcall f_10534(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_10534,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,3,lf[178],t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k10588 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_ccall f_10590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_10590,2,av);} a=C_alloc(13); t2=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t3=C_i_check_list_2(t1,lf[67]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10599,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10687,a[2]=((C_word*)t0)[6],a[3]=t6,a[4]=((C_word*)t0)[7],a[5]=((C_word)li109),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_10687(t8,t4,((C_word*)t0)[2],t1);} /* k10597 in k10588 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_ccall f_10599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_10599,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[2]; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10606,a[2]=t7,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp); t9=C_u_i_length(((C_word*)t0)[4]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10667,a[2]=t11,a[3]=((C_word)li108),tmp=(C_word)a,a+=4,tmp)); t13=((C_word*)t11)[1]; f_10667(t13,t8,t9);} /* k10604 in k10597 in k10588 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_10606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_10606,2,av);} a=C_alloc(12); t2=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t3=C_i_check_list_2(t1,lf[67]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10615,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10617,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=((C_word*)t0)[6],a[5]=((C_word)li107),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_10617(t8,t4,((C_word*)t0)[2],t1);} /* k10613 in k10604 in k10597 in k10588 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_10615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10615,2,av);} /* chicken-syntax.scm:458: ##sys#append */ t2=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop1418 in k10604 in k10597 in k10588 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_fcall f_10617(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_10617,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* loop in k10597 in k10588 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_fcall f_10667(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10667,3,t0,t1,t2);} a=C_alloc(3); t3=C_eqp(t2,C_fix(0)); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10681,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_fixnum_difference(t2,C_fix(1)); /* chicken-syntax.scm:464: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* k10679 in loop in k10597 in k10588 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_10681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10681,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,C_SCHEME_FALSE,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop1361 in k10588 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_fcall f_10687(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_10687,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1382 in k10268 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_fcall f_10735(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10735,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cadr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop1331 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_fcall f_10769(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10769,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10794,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:457: g1337 */ t4=((C_word*)t0)[4]; f_10259(t4,t3);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10792 in map-loop1331 in k10253 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_ccall f_10794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10794,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10769(t6,((C_word*)t0)[5],t5);} /* map-loop1303 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_fcall f_10803(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_10803,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10828,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:456: g1309 */ t4=((C_word*)t0)[4]; f_10244(t4,t3);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10826 in map-loop1303 in k10238 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_10828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10828,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10803(t6,((C_word*)t0)[5],t5);} /* map-loop1276 in k10224 in a10221 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in ... */ static void C_fcall f_10837(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10837,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10871 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in ... */ static void C_ccall f_10873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10873,2,av);} /* chicken-syntax.scm:441: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[183]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10874 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in ... */ static void C_ccall f_10875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10875,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10879,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:445: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[183]; av2[3]=t2; av2[4]=lf[186]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10877 in a10874 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in ... */ static void C_ccall f_10879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_10879,2,av);} a=C_alloc(9); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[184],t2,*((C_word*)lf[185]+1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10888 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in ... */ static void C_ccall f_10890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10890,2,av);} /* chicken-syntax.scm:434: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[187]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10891 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in ... */ static void C_ccall f_10892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10892,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10896,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:438: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[187]; av2[3]=t2; av2[4]=lf[188]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10894 in a10891 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in ... */ static void C_ccall f_10896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_10896,2,av);} a=C_alloc(9); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[184],t2,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k10905 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in ... */ static void C_ccall f_10907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10907,2,av);} /* chicken-syntax.scm:426: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[189]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10908 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in ... */ static void C_ccall f_10909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10909,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10913,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:431: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[189]; av2[3]=t2; av2[4]=lf[191]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10911 in a10908 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in ... */ static void C_ccall f_10913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_10913,2,av);} a=C_alloc(15); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[23],C_SCHEME_END_OF_LIST,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,2,lf[190],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k10926 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in ... */ static void C_ccall f_10928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10928,2,av);} /* chicken-syntax.scm:420: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[192]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10929 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in ... */ static void C_ccall f_10930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10930,5,av);} a=C_alloc(3); t5=C_i_cdr(t2); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_cons(&a,2,lf[193],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k10940 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in ... */ static void C_ccall f_10942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10942,2,av);} /* chicken-syntax.scm:401: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[194]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a10943 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in ... */ static void C_ccall f_10944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_10944,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10948,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:406: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[194]; av2[3]=t2; av2[4]=lf[197]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k10946 in a10943 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in ... */ static void C_ccall f_10948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_10948,2,av);} a=C_alloc(15); t2=C_i_cddr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t2))){ t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t4); t6=C_a_i_cons(&a,2,lf[23],t5); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[28],t6,lf[195]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10970,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:410: ##sys#check-syntax */ t4=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[194]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[196]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k10968 in k10946 in a10943 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in ... */ static void C_ccall f_10970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10970,2,av);} a=C_alloc(6); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=C_i_caddr(((C_word*)t0)[2]); t5=t4; t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); t9=C_u_i_cdr(t8); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10985,a[2]=t3,a[3]=t5,a[4]=t9,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t3))){ t11=C_u_i_cdr(t3); t12=t10; f_10985(t12,C_i_nullp(t11));} else{ t11=t10; f_10985(t11,C_SCHEME_FALSE);}} /* k10983 in k10968 in k10946 in a10943 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in ... */ static void C_fcall f_10985(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,0,1)))){ C_save_and_reclaim_args((void *)trf_10985,2,t0,t1);} a=C_alloc(24); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_a_i_list(&a,2,t2,((C_word*)t0)[3]); t4=C_a_i_list(&a,1,t3); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]); t6=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t6; av2[1]=C_a_i_cons(&a,2,lf[37],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t2=C_a_i_list(&a,3,lf[23],C_SCHEME_END_OF_LIST,((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]); t4=C_a_i_cons(&a,2,lf[23],t3); t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[28],t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k11033 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in ... */ static void C_ccall f_11035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11035,2,av);} /* chicken-syntax.scm:329: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[198]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in ... */ static void C_ccall f_11037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11037,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11041,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:333: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[198]; av2[3]=t2; av2[4]=lf[208]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in ... */ static void C_ccall f_11041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11041,2,av);} a=C_alloc(7); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11047,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:335: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in ... */ static void C_ccall f_11047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_11047,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11050,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:336: scheme#symbol->string */ t4=*((C_word*)lf[118]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in ... */ static void C_ccall f_11050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_11050,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11053,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11415,a[2]=t3,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:337: ##sys#current-module */ t5=*((C_word*)lf[83]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in ... */ static void C_ccall f_11053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_11053,2,av);} a=C_alloc(9); t2=t1; t3=C_i_cddr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11059,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* chicken-syntax.scm:342: r */ t6=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[79]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in ... */ static void C_ccall f_11059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_11059,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11062,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:343: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[207]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in ... */ static void C_ccall f_11062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_11062,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11065,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:344: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[78]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in ... */ static void C_ccall f_11065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_11065,2,av);} a=C_alloc(28); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11069,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li120),tmp=(C_word)a,a+=5,tmp); t8=C_i_check_list_2(((C_word*)t0)[4],lf[67]); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11129,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=t2,a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11380,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li122),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_11380(t13,t9,((C_word*)t0)[4]);} /* g1163 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in ... */ static void C_fcall f_11069(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_11069,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_symbolp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11097,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=t2; t5=C_u_i_car(t4); /* chicken-syntax.scm:349: c */ t6=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t5; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ /* chicken-syntax.scm:355: chicken.syntax#syntax-error */ t3=*((C_word*)lf[58]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=lf[198]; av2[3]=lf[199]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} /* k11095 in g1163 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_ccall f_11097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11097,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_pairp(t3))){ t4=C_i_cadr(((C_word*)t0)[2]); if(C_truep(C_i_symbolp(t4))){ t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); if(C_truep(C_i_nullp(t7))){ t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_cadr(((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* chicken-syntax.scm:355: chicken.syntax#syntax-error */ t8=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=((C_word*)t0)[3]; av2[2]=lf[198]; av2[3]=lf[199]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} else{ /* chicken-syntax.scm:355: chicken.syntax#syntax-error */ t5=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[198]; av2[3]=lf[199]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ /* chicken-syntax.scm:355: chicken.syntax#syntax-error */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[198]; av2[3]=lf[199]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ /* chicken-syntax.scm:355: chicken.syntax#syntax-error */ t2=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[198]; av2[3]=lf[199]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in ... */ static void C_ccall f_11129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){ C_save_and_reclaim((void *)f_11129,2,av);} a=C_alloc(28); t2=t1; t3=C_a_i_list(&a,2,lf[38],((C_word*)t0)[2]); t4=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11352,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11372,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ t8=*((C_word*)lf[204]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[206]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k11158 in k11324 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_ccall f_11160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_11160,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,lf[29],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* mapslots in k11324 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_fcall f_11162(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_11162,4,t0,t1,t2,t3);} a=C_alloc(11); t4=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t4)){ t5=t2; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_i_car(t2); t6=C_i_symbolp(t5); t7=C_i_not(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11178,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=t8,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp); if(C_truep(t8)){ t10=C_i_cadr(t5); /* chicken-syntax.scm:373: scheme#symbol->string */ t11=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ /* chicken-syntax.scm:373: scheme#symbol->string */ t10=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}}} /* k11176 in mapslots in k11324 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_ccall f_11178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){ C_save_and_reclaim((void *)f_11178,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11181,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,tmp=(C_word)a,a+=12,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11311,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:374: scheme#string-append */ t5=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[10]; av2[3]=lf[202]; av2[4]=t2; av2[5]=lf[203]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k11179 in k11176 in mapslots in k11324 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_11181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_11181,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11184,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,tmp=(C_word)a,a+=11,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11307,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:375: scheme#string-append */ t5=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[10]; av2[3]=lf[201]; av2[4]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k11182 in k11179 in k11176 in mapslots in k11324 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_11184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(79,c,2)))){ C_save_and_reclaim((void *)f_11184,2,av);} a=C_alloc(79); t2=t1; t3=C_a_i_list(&a,2,lf[77],lf[200]); t4=C_a_i_list(&a,2,lf[38],((C_word*)t0)[2]); t5=C_a_i_list(&a,3,lf[71],lf[77],t4); t6=C_a_i_list(&a,2,lf[34],t5); t7=C_a_i_list(&a,4,lf[74],lf[77],((C_word*)t0)[3],lf[200]); t8=C_a_i_list(&a,4,lf[23],t3,t6,t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11210,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t11=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11214,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=t9,a[7]=((C_word*)t0)[9],a[8]=t2,a[9]=t10,tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[7])){ t12=t11; f_11214(t12,C_SCHEME_END_OF_LIST);} else{ t12=C_a_i_list(&a,3,((C_word*)t0)[9],((C_word*)t0)[10],t9); t13=t11; f_11214(t13,C_a_i_list(&a,1,t12));}} /* k11196 in k11208 in k11182 in k11179 in k11176 in mapslots in k11324 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_11198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11198,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k11208 in k11182 in k11179 in k11176 in mapslots in k11324 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_11210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_11210,2,av);} a=C_alloc(7); t2=C_a_i_cons(&a,2,lf[29],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11198,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* chicken-syntax.scm:399: mapslots */ t7=((C_word*)((C_word*)t0)[5])[1]; f_11162(t7,t4,t5,t6);} /* k11212 in k11182 in k11179 in k11176 in mapslots in k11324 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_fcall f_11214(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(66,0,3)))){ C_save_and_reclaim_args((void *)trf_11214,2,t0,t1);} a=C_alloc(66); if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_list(&a,1,lf[77]); t3=C_a_i_list(&a,2,lf[38],((C_word*)t0)[3]); t4=C_a_i_list(&a,3,lf[71],lf[77],t3); t5=C_a_i_list(&a,2,lf[34],t4); t6=C_a_i_list(&a,3,lf[72],lf[77],((C_word*)t0)[4]); t7=C_a_i_list(&a,4,lf[23],t2,t5,t6); t8=C_a_i_list(&a,3,((C_word*)t0)[5],t7,((C_word*)t0)[6]); t9=C_a_i_list(&a,3,((C_word*)t0)[7],((C_word*)t0)[8],t8); t10=C_a_i_list(&a,1,t9); /* chicken-syntax.scm:382: ##sys#append */ t11=*((C_word*)lf[55]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=((C_word*)t0)[9]; av2[2]=t1; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} else{ t2=C_a_i_list(&a,1,lf[77]); t3=C_a_i_list(&a,2,lf[38],((C_word*)t0)[3]); t4=C_a_i_list(&a,3,lf[71],lf[77],t3); t5=C_a_i_list(&a,2,lf[34],t4); t6=C_a_i_list(&a,3,lf[72],lf[77],((C_word*)t0)[4]); t7=C_a_i_list(&a,4,lf[23],t2,t5,t6); t8=C_a_i_list(&a,3,((C_word*)t0)[7],((C_word*)t0)[8],t7); t9=C_a_i_list(&a,1,t8); /* chicken-syntax.scm:382: ##sys#append */ t10=*((C_word*)lf[55]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=((C_word*)t0)[9]; av2[2]=t1; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* k11305 in k11179 in k11176 in mapslots in k11324 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_11307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11307,2,av);} /* chicken-syntax.scm:375: scheme#string->symbol */ t2=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11309 in k11176 in mapslots in k11324 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_11311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11311,2,av);} /* chicken-syntax.scm:374: scheme#string->symbol */ t2=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11324 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_11326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(52,c,4)))){ C_save_and_reclaim((void *)f_11326,2,av);} a=C_alloc(52); t2=C_a_i_list(&a,1,lf[77]); t3=C_a_i_list(&a,2,lf[38],((C_word*)t0)[2]); t4=C_a_i_list(&a,3,lf[70],lf[77],t3); t5=C_a_i_list(&a,3,lf[23],t2,t4); t6=C_a_i_list(&a,3,((C_word*)t0)[3],t1,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11160,a[2]=t7,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11162,a[2]=((C_word*)t0)[2],a[3]=t10,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[8],a[7]=((C_word)li121),tmp=(C_word)a,a+=8,tmp)); t12=((C_word*)t10)[1]; f_11162(t12,t8,((C_word*)t0)[9],C_fix(1));} /* k11344 in k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_11346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11346,2,av);} /* chicken-syntax.scm:366: scheme#string->symbol */ t2=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11350 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_ccall f_11352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(43,c,3)))){ C_save_and_reclaim((void *)f_11352,2,av);} a=C_alloc(43); t2=C_a_i_list(&a,2,lf[38],((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,lf[69],t3); t5=C_a_i_list(&a,3,lf[23],((C_word*)t0)[3],t4); t6=C_a_i_list(&a,3,((C_word*)t0)[4],t1,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t7,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11346,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* ##sys#string-append */ t10=*((C_word*)lf[204]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[8]; av2[3]=lf[205]; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k11370 in k11127 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_ccall f_11372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11372,2,av);} /* chicken-syntax.scm:361: scheme#string->symbol */ t2=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* map-loop1157 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in ... */ static void C_fcall f_11380(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11380,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11405,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-syntax.scm:346: g1163 */ t5=((C_word*)t0)[4]; f_11069(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11403 in map-loop1157 in k11063 in k11060 in k11057 in k11051 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_ccall f_11405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11405,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11380(t6,((C_word*)t0)[5],t5);} /* k11413 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in ... */ static void C_ccall f_11415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11415,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11422,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11426,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:339: ##sys#current-module */ t4=*((C_word*)lf[83]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_11053(2,av2);}}} /* k11420 in k11413 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in ... */ static void C_ccall f_11422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11422,2,av);} /* chicken-syntax.scm:338: chicken.base#symbol-append */ t2=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[81]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11424 in k11413 in k11048 in k11045 in k11039 in a11036 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in ... */ static void C_ccall f_11426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_11426,2,av);} /* chicken-syntax.scm:339: ##sys#module-name */ t2=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k11428 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in ... */ static void C_ccall f_11430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11430,2,av);} /* chicken-syntax.scm:321: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[209]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11431 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in ... */ static void C_ccall f_11432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11432,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11436,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:326: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[209]; av2[3]=t2; av2[4]=lf[211]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11434 in a11431 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in ... */ static void C_ccall f_11436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11436,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[210],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11445 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11447,2,av);} /* chicken-syntax.scm:307: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[212]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_11449,5,av);} a=C_alloc(14); t5=C_i_cdr(t2); t6=t5; t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11459,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t7))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11488,a[2]=t7,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11544,a[2]=t7,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=C_i_car(t7); /* chicken-syntax.scm:309: ##sys#list? */ t12=*((C_word*)lf[219]+1);{ C_word *av2=av; av2[0]=t12; av2[1]=t10; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t9=t8;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_11459(2,av2);}}} /* k11457 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 in ... */ static void C_ccall f_11459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11459,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=C_i_cdr(((C_word*)t0)[2]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11472,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:309: rename1091 */ t7=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[213]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ /* chicken-syntax.scm:309: chicken.internal.syntax-rules#syntax-rules-mismatch */ t2=*((C_word*)lf[214]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k11470 in k11457 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in ... */ static void C_ccall f_11472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_11472,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11486 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 in ... */ static void C_ccall f_11488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11488,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11494,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cdr(((C_word*)t0)[2]); /* chicken-syntax.scm:309: ##sys#list? */ t4=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_11459(2,av2);}}} /* k11492 in k11486 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in ... */ static void C_ccall f_11494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11494,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11497,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cdr(((C_word*)t0)[2]); /* chicken-syntax.scm:309: ##sys#length */ t4=*((C_word*)lf[218]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_11459(2,av2);}}} /* k11495 in k11492 in k11486 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in ... */ static void C_ccall f_11497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11497,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:309: ##sys#>= */ t4=*((C_word*)lf[217]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11501 in k11495 in k11492 in k11486 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in ... */ static void C_ccall f_11503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11503,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11512,a[2]=t4,a[3]=((C_word)li125),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_11512(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_11459(2,av2);}}} /* loop1088 in k11501 in k11495 in k11492 in k11486 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in ... */ static void C_fcall f_11512(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11512,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11519,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:309: ##sys#= */ t5=*((C_word*)lf[216]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k11517 in loop1088 in k11501 in k11495 in k11492 in k11486 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in ... */ static void C_ccall f_11519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11519,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_cdr(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11533,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:309: ##sys#+ */ t5=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k11531 in k11517 in loop1088 in k11501 in k11495 in k11492 in k11486 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in ... */ static void C_ccall f_11533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11533,2,av);} /* chicken-syntax.scm:309: loop1088 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11512(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k11542 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 in ... */ static void C_ccall f_11544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11544,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11547,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_car(((C_word*)t0)[2]); /* chicken-syntax.scm:309: ##sys#length */ t4=*((C_word*)lf[218]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_11488(2,av2);}}} /* k11545 in k11542 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in ... */ static void C_ccall f_11547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11547,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11553,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:309: ##sys#>= */ t4=*((C_word*)lf[217]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11551 in k11545 in k11542 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in ... */ static void C_ccall f_11553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11553,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11562,a[2]=t4,a[3]=((C_word)li126),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_11562(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_11488(2,av2);}}} /* loop1088 in k11551 in k11545 in k11542 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in ... */ static void C_fcall f_11562(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_11562,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11569,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:309: ##sys#= */ t5=*((C_word*)lf[216]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k11567 in loop1088 in k11551 in k11545 in k11542 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in ... */ static void C_ccall f_11569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11569,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_cdr(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11583,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:309: ##sys#+ */ t5=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k11581 in k11567 in loop1088 in k11551 in k11545 in k11542 in a11448 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in ... */ static void C_ccall f_11583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_11583,2,av);} /* chicken-syntax.scm:309: loop1088 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_11562(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k11593 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11595,2,av);} /* chicken-syntax.scm:299: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[220]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11596 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11597,5,av);} a=C_alloc(6); t5=C_i_cdr(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11607,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t6))){ t8=C_i_cdr(t6); t9=t7; f_11607(t9,C_eqp(t8,C_SCHEME_END_OF_LIST));} else{ t8=t7; f_11607(t8,C_SCHEME_FALSE);}} /* k11605 in a11596 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_11607(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11607,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11617,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:301: rename1057 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[221]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11631,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=C_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t3))){ t4=C_i_cdr(t3); t5=t2; f_11631(t5,C_eqp(t4,C_SCHEME_END_OF_LIST));} else{ t4=t2; f_11631(t4,C_SCHEME_FALSE);}} else{ t3=t2; f_11631(t3,C_SCHEME_FALSE);}}} /* k11615 in k11605 in a11596 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 in ... */ static void C_ccall f_11617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11617,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_END_OF_LIST); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11629 in k11605 in a11596 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 in ... */ static void C_fcall f_11631(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11631,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=C_i_cdr(((C_word*)t0)[2]); t5=C_i_car(t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11644,a[2]=t6,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:301: rename1057 */ t8=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[221]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* chicken-syntax.scm:301: chicken.internal.syntax-rules#syntax-rules-mismatch */ t2=*((C_word*)lf[214]+1);{ C_word av2[3]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k11642 in k11629 in k11605 in a11596 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in ... */ static void C_ccall f_11644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11644,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11690 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11692,2,av);} /* chicken-syntax.scm:288: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[222]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11693 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11694,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11698,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:292: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[222]; av2[3]=t2; av2[4]=lf[224]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11696 in a11693 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11698,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11705,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:293: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[223]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k11703 in k11696 in a11693 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11705,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11713,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:294: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[79]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11711 in k11703 in k11696 in a11693 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 in ... */ static void C_ccall f_11713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11713,2,av);} a=C_alloc(9); t2=C_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,t1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,2,((C_word*)t0)[4],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11719 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11721,2,av);} /* chicken-syntax.scm:280: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[223]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11722 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11723,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11727,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:284: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[223]; av2[3]=t2; av2[4]=lf[227]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11725 in a11722 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11727,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11730,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cdr(((C_word*)t0)[2]); t4=C_a_i_cons(&a,2,lf[29],t3); /* chicken-syntax.scm:285: ##sys#register-meta-expression */ t5=*((C_word*)lf[226]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t2; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11728 in k11725 in a11722 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11730,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,lf[29],t3); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,2,lf[225],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11749 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11751,2,av);} /* chicken-syntax.scm:272: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[228]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11752 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11753,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11757,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:277: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[228]; av2[3]=t2; av2[4]=lf[230]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11755 in a11752 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_11757,2,av);} a=C_alloc(6); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,2,lf[229],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11766 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11768,2,av);} /* chicken-syntax.scm:247: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[231]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11769 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11770,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11774,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:251: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[231]; av2[3]=t2; av2[4]=lf[239]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11772 in a11769 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11774,2,av);} a=C_alloc(5); t2=C_i_memq(lf[232],*((C_word*)lf[233]+1)); if(C_truep(C_i_not(t2))){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[234]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11783,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_i_cadr(((C_word*)t0)[3]); /* chicken-syntax.scm:254: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k11781 in k11772 in a11769 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11783,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11786,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:255: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[238]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11784 in k11781 in k11772 in a11769 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11786,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11789,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_caddr(((C_word*)t0)[4]); /* chicken-syntax.scm:256: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11787 in k11784 in k11781 in k11772 in a11769 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_11789,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=t2; t4=C_a_i_list(&a,2,((C_word*)t0)[2],lf[235]); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11812,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:262: chicken.compiler.scrutinizer#check-and-validate-type */ t7=*((C_word*)lf[237]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=t1; av2[3]=lf[231]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k11810 in k11787 in k11784 in k11781 in k11772 in a11769 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_11812,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list(&a,4,lf[236],((C_word*)t0)[3],((C_word*)t0)[4],t2); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,2,lf[225],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k11826 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11828,2,av);} /* chicken-syntax.scm:222: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[240]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11829 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_11830,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11834,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:226: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[240]; av2[3]=t2; av2[4]=lf[243]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k11832 in a11829 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11834,2,av);} a=C_alloc(5); t2=C_i_memq(lf[232],*((C_word*)lf[233]+1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11840,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:228: chicken.base#gensym */ t5=*((C_word*)lf[56]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11838 in k11832 in a11829 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11840,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11843,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:229: chicken.syntax#get-line-number */ t4=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11841 in k11838 in k11832 in a11829 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ C_save_and_reclaim((void *)f_11843,2,av);} a=C_alloc(33); t2=t1; t3=C_i_cadr(((C_word*)t0)[2]); t4=C_a_i_list(&a,2,((C_word*)t0)[3],t3); t5=C_a_i_list(&a,1,t4); t6=t5; t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11867,a[2]=((C_word*)t0)[4],a[3]=((C_word)li133),tmp=(C_word)a,a+=4,tmp); t12=((C_word*)t0)[2]; t13=C_u_i_cdr(t12); t14=C_u_i_cdr(t13); t15=C_i_check_list_2(t14,lf[67]); t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11905,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=t6,tmp=(C_word)a,a+=6,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11907,a[2]=t9,a[3]=t18,a[4]=t11,a[5]=t10,a[6]=((C_word)li134),tmp=(C_word)a,a+=7,tmp)); t20=((C_word*)t18)[1]; f_11907(t20,t16,t14);} /* g974 in k11841 in k11838 in k11832 in a11829 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_11867(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_11867,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11871,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* chicken-syntax.scm:235: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[39]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11869 in g974 in k11841 in k11838 in k11832 in a11829 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_11871,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11878,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_eqp(t1,lf[241]); if(C_truep(t3)){ t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_a_i_cons(&a,2,lf[29],t5); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list2(&a,2,lf[241],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ /* chicken-syntax.scm:240: chicken.compiler.scrutinizer#check-and-validate-type */ t4=*((C_word*)lf[237]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t1; av2[3]=lf[240]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=t1; t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_a_i_cons(&a,2,lf[29],t6); t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_list2(&a,2,t4,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* k11876 in k11869 in g974 in k11841 in k11838 in k11832 in a11829 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_11878,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,lf[29],t3); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list2(&a,2,t1,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k11903 in k11841 in k11838 in k11832 in a11829 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_11905,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_a_i_cons(&a,2,lf[242],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* map-loop968 in k11841 in k11838 in k11832 in a11829 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_11907(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11907,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11932,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-syntax.scm:234: g974 */ t5=((C_word*)t0)[4]; f_11867(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11930 in map-loop968 in k11841 in k11838 in k11832 in a11829 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_11932,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_11907(t6,((C_word*)t0)[5],t5);} /* k11949 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11951,2,av);} /* chicken-syntax.scm:158: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[244]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11953,5,av);} a=C_alloc(5); t5=C_i_memq(lf[232],*((C_word*)lf[233]+1)); if(C_truep(C_i_not(t5))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=lf[245]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11963,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:164: ##sys#check-syntax */ t7=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=lf[244]; av2[3]=t2; av2[4]=lf[253]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} /* k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_11963,2,av);} a=C_alloc(7); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=C_i_car(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11972,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:167: ##sys#globalize */ t7=*((C_word*)lf[252]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t5; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_11972,2,av);} a=C_alloc(8); t2=t1; t3=C_u_i_cdr(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11976,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:169: chicken.base#gensym */ t5=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11976,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11979,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* chicken-syntax.scm:170: ##sys#globalize */ t4=*((C_word*)lf[252]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_11979,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11982,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_i_cdddr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t4))){ t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); t8=C_u_i_car(t7); /* chicken-syntax.scm:171: chicken.syntax#strip-syntax */ t9=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t3; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_11982(2,av2);}}} /* k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_11982,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11985,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:172: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[79]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_11985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_11985,2,av);} a=C_alloc(13); t2=t1; t3=(C_truep(((C_word*)t0)[2])?C_i_cadddr(((C_word*)t0)[3]):C_i_caddr(((C_word*)t0)[3])); t4=t3; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11993,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[2],a[8]=t6,a[9]=((C_word*)t0)[7],a[10]=((C_word)li139),tmp=(C_word)a,a+=11,tmp)); t8=((C_word*)t6)[1]; f_11993(t8,((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_11993(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_11993,5,t0,t1,t2,t3,t4);} a=C_alloc(11); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12003,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t3,a[10]=t4,tmp=(C_word)a,a+=11,tmp); /* chicken-syntax.scm:176: scheme#reverse */ t6=*((C_word*)lf[57]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_i_car(t2); t6=t5; if(C_truep(C_i_symbolp(t6))){ t7=t2; t8=C_u_i_cdr(t7); t9=C_a_i_cons(&a,2,t6,t3); t10=C_a_i_cons(&a,2,lf[250],t4); /* chicken-syntax.scm:208: loop */ t12=t1; t13=t8; t14=t9; t15=t10; t1=t12; t2=t13; t3=t14; t4=t15; goto loop;} else{ t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12244,a[2]=t2,a[3]=t6,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[8],a[7]=t1,a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_listp(t6))){ t8=C_u_i_length(t6); t9=C_eqp(C_fix(2),t8); if(C_truep(t9)){ t10=C_i_car(t6); t11=t7; f_12244(t11,C_i_symbolp(t10));} else{ t10=t7; f_12244(t10,C_SCHEME_FALSE);}} else{ t8=t7; f_12244(t8,C_SCHEME_FALSE);}}}} /* k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_12003,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12006,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* chicken-syntax.scm:177: scheme#reverse */ t4=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_12006,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12188,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12190,a[2]=t5,a[3]=((C_word)li138),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_12190(t7,t3,((C_word*)t0)[10],C_fix(1));} /* k12010 in k12186 in k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in ... */ static void C_ccall f_12012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(44,c,4)))){ C_save_and_reclaim((void *)f_12012,2,av);} a=C_alloc(44); t2=C_a_i_list(&a,2,lf[246],((C_word*)t0)[2]); t3=C_a_i_list(&a,2,lf[247],((C_word*)t0)[2]); t4=C_a_i_list(&a,3,lf[193],t2,t3); t5=t4; t6=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t7=t6; t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12047,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t7,a[5]=((C_word*)t0)[6],a[6]=t5,tmp=(C_word)a,a+=7,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12049,a[2]=t10,a[3]=t14,a[4]=t11,a[5]=((C_word)li136),tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_12049(t16,t12,((C_word*)t0)[3],((C_word*)t0)[7]);} /* k12045 in k12010 in k12186 in k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in ... */ static void C_ccall f_12047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_12047,2,av);} a=C_alloc(27); t2=C_a_i_list(&a,3,lf[37],t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t2); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[29],((C_word*)t0)[6],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop913 in k12010 in k12186 in k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in ... */ static void C_fcall f_12049(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ C_save_and_reclaim_args((void *)trf_12049,4,t0,t1,t2,t3);} a=C_alloc(21); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,4,lf[175],t7,C_SCHEME_TRUE,t6); t9=C_a_i_list2(&a,2,t6,t8); t10=C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST); t11=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t10); t12=C_mutate(((C_word *)((C_word*)t0)[2])+1,t10); t13=C_slot(t2,C_fix(1)); t14=C_slot(t3,C_fix(1)); t16=t1; t17=t13; t18=t14; t1=t16; t2=t17; t3=t18; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k12105 in k12186 in k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in ... */ static void C_ccall f_12107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12107,2,av);} /* chicken-syntax.scm:184: ##sys#put! */ t2=*((C_word*)lf[248]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[249]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k12109 in k12186 in k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in ... */ static void C_ccall f_12111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_12111,2,av);} a=C_alloc(19); t2=t1; t3=(C_truep(((C_word*)t0)[2])?C_i_pairp(((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12144,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12146,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li137),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_12146(t13,t9,((C_word*)t0)[2]);} else{ t4=C_a_i_list1(&a,1,((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,((C_word*)t0)[4],t4); t6=C_a_i_list1(&a,1,t5); /* chicken-syntax.scm:186: ##sys#append */ t7=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k12142 in k12109 in k12186 in k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in ... */ static void C_ccall f_12144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_12144,2,av);} a=C_alloc(12); t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_a_i_list1(&a,1,t3); /* chicken-syntax.scm:186: ##sys#append */ t5=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* map-loop879 in k12109 in k12186 in k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in ... */ static void C_fcall f_12146(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_12146,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12171,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[237]+1); /* chicken-syntax.scm:192: g902 */ t6=*((C_word*)lf[237]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[244]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12169 in map-loop879 in k12109 in k12186 in k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in ... */ static void C_ccall f_12171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_12171,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12146(t6,((C_word*)t0)[5],t5);} /* k12186 in k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 in ... */ static void C_ccall f_12188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_12188,2,av);} a=C_alloc(21); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12012,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12107,a[2]=t4,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12111,a[2]=((C_word*)t0)[10],a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:187: ##sys#get */ t7=*((C_word*)lf[157]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[9]; av2[3]=lf[249]; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* loop2 in k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 in ... */ static void C_fcall f_12190(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_12190,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_a_i_vector1(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12208,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_i_cdr(t2); t8=C_fixnum_plus(t3,C_fix(1)); /* chicken-syntax.scm:183: loop2 */ t10=t6; t11=t7; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;}} /* k12206 in loop2 in k12004 in k12001 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in ... */ static void C_ccall f_12208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_12208,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12242 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12244(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){ C_save_and_reclaim_args((void *)trf_12244,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_i_car(((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12261,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t3,a[6]=t6,tmp=(C_word)a,a+=7,tmp); t8=C_i_cadr(((C_word*)t0)[3]); /* chicken-syntax.scm:214: chicken.compiler.scrutinizer#check-and-validate-type */ t9=*((C_word*)lf[237]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=lf[244]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* chicken-syntax.scm:218: chicken.syntax#syntax-error */ t2=*((C_word*)lf[58]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[7]; av2[2]=lf[244]; av2[3]=lf[251]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k12259 in k12242 in loop in k11983 in k11980 in k11977 in k11974 in k11970 in k11961 in a11952 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_12261,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* chicken-syntax.scm:210: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_11993(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* k12316 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12318,2,av);} /* chicken-syntax.scm:152: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[254]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_12320,5,av);} a=C_alloc(14); t5=C_i_cdr(t2); t6=t5; t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12330,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t7))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12492,a[2]=t7,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12548,a[2]=t7,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=C_i_car(t7); /* chicken-syntax.scm:154: ##sys#list? */ t12=*((C_word*)lf[219]+1);{ C_word *av2=av; av2[0]=t12; av2[1]=t10; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t9=t8;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_FALSE; f_12330(2,av2);}}} /* k12328 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_12330,2,av);} a=C_alloc(18); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=C_i_car(((C_word*)t0)[2]); t7=C_i_check_list_2(t6,lf[67]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12347,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12448,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li143),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_12448(t12,t8,t6);} else{ /* chicken-syntax.scm:154: chicken.internal.syntax-rules#syntax-rules-mismatch */ t2=*((C_word*)lf[214]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k12345 in k12328 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_12347,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_car(((C_word*)t0)[2]); t8=C_i_check_list_2(t7,lf[67]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12368,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12414,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li142),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_12414(t13,t9,t7);} /* k12366 in k12345 in k12328 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_12368,2,av);} a=C_alloc(7); t2=t1; t3=C_i_cdr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12378,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:154: rename737 */ t6=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[257]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k12376 in k12366 in k12345 in k12328 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_12378,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12386,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12388,a[2]=((C_word*)t0)[4],a[3]=((C_word)li141),tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:154: ##sys#map-n */ t5=*((C_word*)lf[256]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k12384 in k12376 in k12366 in k12345 in k12328 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_12386,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a12387 in k12376 in k12366 in k12345 in k12328 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12388,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12404,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:154: rename737 */ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=lf[255]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12402 in a12387 in k12376 in k12366 in k12345 in k12328 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_12404,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_a_i_cons(&a,2,t1,t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[2],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* map-loop810 in k12345 in k12328 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12414(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_12414,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cdr(t3); t5=C_i_car(t4); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); t9=C_slot(t2,C_fix(1)); t11=t1; t12=t9; t1=t11; t2=t12; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop782 in k12328 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12448(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_12448,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12490 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12492,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cdr(((C_word*)t0)[2]); /* chicken-syntax.scm:154: ##sys#list? */ t4=*((C_word*)lf[219]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_12330(2,av2);}}} /* k12496 in k12490 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12498,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cdr(((C_word*)t0)[2]); /* chicken-syntax.scm:154: ##sys#length */ t4=*((C_word*)lf[218]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_12330(2,av2);}}} /* k12499 in k12496 in k12490 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12501,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12507,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:154: ##sys#>= */ t4=*((C_word*)lf[217]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k12505 in k12499 in k12496 in k12490 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12507,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12516,a[2]=t4,a[3]=((C_word)li144),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_12516(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_12330(2,av2);}}} /* loop734 in k12505 in k12499 in k12496 in k12490 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12516(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_12516,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12523,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:154: ##sys#= */ t5=*((C_word*)lf[216]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k12521 in loop734 in k12505 in k12499 in k12496 in k12490 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12523,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_cdr(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12537,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:154: ##sys#+ */ t5=*((C_word*)lf[215]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k12535 in k12521 in loop734 in k12505 in k12499 in k12496 in k12490 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12537,2,av);} /* chicken-syntax.scm:154: loop734 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_12516(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k12546 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12548,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12551,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_car(((C_word*)t0)[2]); /* chicken-syntax.scm:154: ##sys#length */ t4=*((C_word*)lf[218]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_12492(2,av2);}}} /* k12549 in k12546 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12551,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12557,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:154: ##sys#>= */ t4=*((C_word*)lf[217]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k12555 in k12549 in k12546 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_12557,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_car(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12566,a[2]=t4,a[3]=((C_word)li145),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_12566(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_12492(2,av2);}}} /* loop734 in k12555 in k12549 in k12546 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12566(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_12566,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12573,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:154: ##sys#= */ t5=*((C_word*)lf[216]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k12571 in loop734 in k12555 in k12549 in k12546 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_12573,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_car(((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12585,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t2))){ t4=C_i_cdr(t2); if(C_truep(C_i_pairp(t4))){ t5=C_i_cdr(t4); t6=t3; f_12585(t6,C_eqp(t5,C_SCHEME_END_OF_LIST));} else{ t5=t3; f_12585(t5,C_SCHEME_FALSE);}} else{ t4=t3; f_12585(t4,C_SCHEME_FALSE);}}} /* k12583 in k12571 in loop734 in k12555 in k12549 in k12546 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12585(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_12585,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12596,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:154: ##sys#+ */ t5=*((C_word*)lf[215]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k12594 in k12583 in k12571 in loop734 in k12555 in k12549 in k12546 in a12319 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12596,2,av);} /* chicken-syntax.scm:154: loop734 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_12566(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k12625 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12627,2,av);} /* chicken-syntax.scm:141: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[255]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a12628 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12629,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12633,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:145: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[255]; av2[3]=t2; av2[4]=lf[258]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12631 in a12628 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_12633,2,av);} a=C_alloc(4); t2=C_i_memq(lf[232],*((C_word*)lf[233]+1)); if(C_truep(C_i_not(t2))){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_caddr(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12649,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(((C_word*)t0)[3]); /* chicken-syntax.scm:148: chicken.compiler.scrutinizer#check-and-validate-type */ t5=*((C_word*)lf[237]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=lf[255]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k12647 in k12631 in a12628 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_12649,2,av);} a=C_alloc(12); t2=C_i_caddr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,4,lf[175],t1,C_SCHEME_TRUE,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12663 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12665,2,av);} /* chicken-syntax.scm:118: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[259]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a12666 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12667,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12671,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:122: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[259]; av2[3]=t2; av2[4]=lf[266]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12669 in a12666 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12671,2,av);} a=C_alloc(4); t2=C_i_memq(lf[232],*((C_word*)lf[233]+1)); if(C_truep(C_i_not(t2))){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=lf[260]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12680,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_caddr(((C_word*)t0)[3]); /* chicken-syntax.scm:125: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k12678 in k12669 in a12666 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_12680,2,av);} a=C_alloc(11); t2=t1; t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_car(t4); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12687,a[2]=t2,a[3]=t5,a[4]=((C_word)li148),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12697,a[2]=t5,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word)li149),tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:129: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a12686 in k12678 in k12669 in a12666 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12687,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12695,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:132: chicken.syntax#strip-syntax */ t3=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k12693 in a12686 in k12678 in k12669 in a12666 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12695,2,av);} /* chicken-syntax.scm:130: chicken.compiler.scrutinizer#validate-type */ t2=*((C_word*)lf[261]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a12696 in k12678 in k12669 in a12666 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(30,c,5)))){ C_save_and_reclaim((void *)f_12697,5,av);} a=C_alloc(30); t5=t3; if(C_truep(C_i_not(t2))){ /* chicken-syntax.scm:134: chicken.syntax#syntax-error */ t6=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=lf[259]; av2[3]=lf[262]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t6=C_i_cdddr(((C_word*)t0)[4]); t7=C_a_i_cons(&a,2,((C_word*)t0)[3],t6); t8=C_a_i_cons(&a,2,((C_word*)t0)[2],t7); t9=C_a_i_list(&a,2,lf[263],t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12722,a[2]=t10,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12726,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t11,tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t13=C_a_i_list(&a,2,lf[265],((C_word*)t0)[2]); t14=t12; f_12726(t14,C_a_i_list(&a,1,t13));} else{ t13=t12; f_12726(t13,C_SCHEME_END_OF_LIST);}}} /* k12720 in a12696 in k12678 in k12669 in a12666 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_12722,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[193],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k12724 in a12696 in k12678 in k12669 in a12666 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12726(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_12726,2,t0,t1);} a=C_alloc(15); if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]); t3=C_a_i_list(&a,2,lf[264],t2); t4=C_a_i_list(&a,1,t3); /* chicken-syntax.scm:136: ##sys#append */ t5=*((C_word*)lf[55]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* chicken-syntax.scm:136: ##sys#append */ t2=*((C_word*)lf[55]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k12774 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_12776,2,av);} /* chicken-syntax.scm:76: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[269]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_12778,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12782,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:81: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[269]; av2[3]=t2; av2[4]=lf[278]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12782,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12785,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:82: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[277]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_12785,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12788,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:83: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[276]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_12788,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12791,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:84: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[275]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_12791,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12794,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:85: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[267]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12794,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12797,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* chicken-syntax.scm:86: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[241]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_12797,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12799,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li153),tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12929,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:98: r */ t5=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[274]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* parse-clause in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12799,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12803,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t4=C_i_car(t2); if(C_truep(C_i_symbolp(t4))){ t5=t2; t6=t3; f_12803(t6,C_u_i_car(t5));} else{ t5=t3; f_12803(t5,C_SCHEME_FALSE);}} /* k12801 in parse-clause in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12803(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_12803,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12806,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(t2)){ t4=t3; f_12806(t4,C_i_cadr(((C_word*)t0)[8]));} else{ t4=((C_word*)t0)[8]; t5=t3; f_12806(t5,C_u_i_car(t4));}} /* k12804 in k12801 in parse-clause in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12806(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,0,2)))){ C_save_and_reclaim_args((void *)trf_12806,2,t0,t1);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12809,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[7])){ t4=C_a_i_list(&a,2,((C_word*)t0)[7],((C_word*)t0)[8]); t5=C_a_i_list(&a,1,t4); t6=C_i_cddr(((C_word*)t0)[9]); t7=C_a_i_cons(&a,2,t5,t6); t8=t3; f_12809(t8,C_a_i_cons(&a,2,lf[37],t7));} else{ t4=((C_word*)t0)[9]; t5=C_u_i_cdr(t4); t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t5); t7=t3; f_12809(t7,C_a_i_cons(&a,2,lf[37],t6));}} /* k12807 in k12804 in k12801 in parse-clause in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12809(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,0,3)))){ C_save_and_reclaim_args((void *)trf_12809,2,t0,t1);} a=C_alloc(25); t2=t1; if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=C_a_i_list(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12834,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word)li151),tmp=(C_word)a,a+=5,tmp); t8=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12848,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12850,a[2]=t7,a[3]=t5,a[4]=t11,a[5]=t6,a[6]=((C_word)li152),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_12850(t13,t9,((C_word*)t0)[2]);}} /* g623 in k12807 in k12804 in k12801 in parse-clause in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static C_word C_fcall f_12834(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} t2=C_a_i_list(&a,2,lf[38],t1); return(C_a_i_list(&a,3,((C_word*)t0)[2],t2,((C_word*)t0)[3]));} /* k12846 in k12807 in k12804 in k12801 in parse-clause in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_12848,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,2,t3,((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* map-loop617 in k12807 in k12804 in k12801 in parse-clause in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12850(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){ C_save_and_reclaim_args((void *)trf_12850,3,t0,t1,t2);} a=C_alloc(18); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* chicken-syntax.scm:95: g623 */ f_12834(C_a_i(&a,15),((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k12927 in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(65,c,3)))){ C_save_and_reclaim((void *)f_12929,2,av);} a=C_alloc(65); t2=t1; t3=C_a_i_list(&a,2,lf[38],lf[270]); t4=C_a_i_list(&a,3,lf[70],((C_word*)t0)[2],t3); t5=C_a_i_list(&a,3,lf[271],((C_word*)t0)[2],C_fix(1)); t6=C_a_i_list(&a,3,((C_word*)t0)[3],t4,t5); t7=C_a_i_list(&a,2,((C_word*)t0)[4],t6); t8=C_a_i_list(&a,1,t7); t9=t8; t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t11=t10; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=((C_word*)t12)[1]; t14=((C_word*)t0)[5]; t15=C_i_cddr(((C_word*)t0)[6]); t16=C_i_check_list_2(t15,lf[67]); t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12954,a[2]=t9,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12985,a[2]=t12,a[3]=t19,a[4]=t14,a[5]=t13,a[6]=((C_word)li154),tmp=(C_word)a,a+=7,tmp)); t21=((C_word*)t19)[1]; f_12985(t21,t17,t15);} /* k12952 in k12927 in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_12954,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12961,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp); /* chicken-syntax.scm:103: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[273]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12959 in k12952 in k12927 in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_12961,2,av);} a=C_alloc(23); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12965,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_i_assq(((C_word*)t0)[7],((C_word*)t0)[8]))){ /* chicken-syntax.scm:103: ##sys#append */ t4=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=C_a_i_list(&a,2,lf[272],((C_word*)t0)[6]); t5=C_a_i_list(&a,2,((C_word*)t0)[7],t4); t6=C_a_i_list(&a,1,t5); /* chicken-syntax.scm:103: ##sys#append */ t7=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k12963 in k12959 in k12952 in k12927 in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_12965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_12965,2,av);} a=C_alloc(24); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list(&a,3,lf[37],((C_word*)t0)[3],t2); t4=C_i_cadr(((C_word*)t0)[4]); t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,4,((C_word*)t0)[6],((C_word*)t0)[7],t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* map-loop648 in k12927 in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_fcall f_12985(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_12985,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13010,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-syntax.scm:102: g654 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k13008 in map-loop648 in k12927 in k12795 in k12792 in k12789 in k12786 in k12783 in k12780 in a12777 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_13010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_13010,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_12985(t6,((C_word*)t0)[5],t5);} /* k13047 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_13049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_13049,2,av);} /* chicken-syntax.scm:55: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[274]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a13050 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_13051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_13051,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13055,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:60: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[274]; av2[3]=t2; av2[4]=lf[284]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k13053 in a13050 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_13055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_13055,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13058,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:61: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[283]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k13056 in k13053 in a13050 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_13058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_13058,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13061,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:62: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[282]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13059 in k13056 in k13053 in a13050 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_13061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_13061,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13072,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:63: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[279]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13070 in k13059 in k13056 in k13053 in a13050 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_13072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(114,c,1)))){ C_save_and_reclaim((void *)f_13072,2,av);} a=C_alloc(114); t2=C_a_i_list(&a,1,((C_word*)t0)[2]); t3=C_i_cadr(((C_word*)t0)[3]); t4=C_a_i_list(&a,1,t3); t5=C_i_caddr(((C_word*)t0)[3]); t6=C_a_i_list(&a,3,lf[23],C_SCHEME_END_OF_LIST,t5); t7=C_a_i_list(&a,2,((C_word*)t0)[2],t6); t8=C_a_i_list(&a,3,lf[23],t4,t7); t9=((C_word*)t0)[3]; t10=C_u_i_cdr(t9); t11=C_u_i_cdr(t10); t12=C_u_i_cdr(t11); t13=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t12); t14=C_a_i_cons(&a,2,lf[23],t13); t15=C_a_i_list(&a,3,lf[26],lf[27],((C_word*)t0)[4]); t16=C_a_i_list(&a,3,lf[23],C_SCHEME_END_OF_LIST,t15); t17=C_a_i_list(&a,2,((C_word*)t0)[2],t16); t18=C_a_i_list(&a,3,lf[23],((C_word*)t0)[4],t17); t19=C_a_i_list(&a,3,lf[28],t14,t18); t20=C_a_i_list(&a,3,lf[23],C_SCHEME_END_OF_LIST,t19); t21=C_a_i_list(&a,3,lf[281],t8,t20); t22=C_a_i_list(&a,3,lf[23],t2,t21); t23=C_a_i_list(&a,2,t1,t22); t24=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t24; av2[1]=C_a_i_list(&a,1,t23); ((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}} /* k4195 */ static void C_ccall f_4197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4197,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4200,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k4198 in k4195 */ static void C_ccall f_4200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4200,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4203,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k4201 in k4198 in k4195 */ static void C_ccall f_4203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_4203,2,av);} a=C_alloc(14); t2=C_a_i_provide(&a,1,lf[0]); t3=C_mutate(&lf[1] /* (set! take ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4313,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5485,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:53: ##sys#macro-environment */ t5=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* take in k4201 in k4198 in k4195 */ static void C_fcall f_4313(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_4313,3,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4331,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); t9=C_fixnum_difference(t3,C_fix(1)); /* mini-srfi-1.scm:56: take */ t11=t6; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}} /* k4329 in take in k4201 in k4198 in k4195 */ static void C_ccall f_4331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4331,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k6909 in a6902 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in ... */ static void C_fcall f_4371(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_4371,5,t0,t1,t2,t3,t4);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4385,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* mini-srfi-1.scm:67: scheme#reverse */ t6=*((C_word*)lf[57]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_fixnum_difference(t2,C_fix(1)); t6=C_i_car(t4); t7=C_a_i_cons(&a,2,t6,t3); t8=t4; t9=C_u_i_cdr(t8); /* mini-srfi-1.scm:68: loop */ t11=t1; t12=t5; t13=t7; t14=t9; t1=t11; t2=t12; t3=t13; t4=t14; goto loop;}} /* k4383 in loop in k6909 in a6902 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in ... */ static void C_ccall f_4385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4385,2,av);} /* mini-srfi-1.scm:67: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}} /* k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ C_save_and_reclaim((void *)f_5485,2,av);} a=C_alloc(17); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5488,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,lf[279],lf[280]); t5=C_a_i_list(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13049,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13051,a[2]=((C_word)li156),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:58: ##sys#er-transformer */ t9=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ C_save_and_reclaim((void *)f_5488,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5491,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,lf[267],lf[268]); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12776,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12778,a[2]=((C_word)li155),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:79: ##sys#er-transformer */ t8=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5491,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5494,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:110: chicken.internal#macro-subset */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5494,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[2]+1 /* (set! ##sys#chicken.condition-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5498,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:116: ##sys#macro-environment */ t4=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5498,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5501,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12665,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12667,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:120: ##sys#er-transformer */ t6=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5501,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5504,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12627,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12629,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:143: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5504,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5507,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12318,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12320,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:154: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5507,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5510,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11951,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11953,a[2]=((C_word)li140),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:160: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5510,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5513,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11828,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11830,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:224: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5513,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5516,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11768,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11770,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:249: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5516,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5519,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:265: chicken.internal#macro-subset */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5519,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#chicken.type-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5523,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:270: ##sys#macro-environment */ t4=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5523,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5526,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11751,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11753,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:275: ##sys#er-transformer */ t6=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5526,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5529,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11721,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11723,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:282: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5529,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5532,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11692,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11694,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:290: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5532,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5535,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11595,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11597,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:301: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5535,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5538,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11447,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11449,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:309: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 */ static void C_ccall f_5538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5538,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5541,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:313: chicken.internal#macro-subset */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in k4195 in ... */ static void C_ccall f_5541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5541,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#chicken.syntax-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5545,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:319: ##sys#macro-environment */ t4=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in k4198 in ... */ static void C_ccall f_5545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5545,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5548,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11430,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11432,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:324: ##sys#er-transformer */ t6=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in k4201 in ... */ static void C_ccall f_5548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5548,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5551,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11035,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11037,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:331: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in k5483 in ... */ static void C_ccall f_5551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5551,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5554,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10942,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10944,a[2]=((C_word)li119),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:404: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in k5486 in ... */ static void C_ccall f_5554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5554,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5557,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10928,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10930,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:422: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in k5489 in ... */ static void C_ccall f_5557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5557,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5560,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10907,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10909,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:429: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in k5492 in ... */ static void C_ccall f_5560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5560,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5563,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10890,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10892,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:436: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in k5496 in ... */ static void C_ccall f_5563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5563,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5566,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10873,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10875,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:443: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in k5499 in ... */ static void C_ccall f_5566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5566,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5569,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10220,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10222,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:450: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in k5502 in ... */ static void C_ccall f_5569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5569,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5572,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9290,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9292,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:482: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in ... */ static void C_ccall f_5572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5572,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5575,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9206,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9208,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:537: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in ... */ static void C_ccall f_5575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5575,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5578,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9182,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9184,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:549: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_ccall f_5578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5578,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5581,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9154,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9156,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:557: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_5581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5581,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5584,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9133,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9135,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:566: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_ccall f_5584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5584,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5588,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9003,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9005,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:574: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_ccall f_5588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5588,2,av);} a=C_alloc(10); t2=C_mutate((C_word*)lf[5]+1 /* (set! chicken.syntax#define-values-definition ...) */,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5591,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8526,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8528,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:591: ##sys#er-transformer */ t6=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_5591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5591,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5594,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8472,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8474,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:645: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_5594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5594,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5597,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8214,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8216,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:660: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_5597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5597,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5600,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8192,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8194,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:680: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_5600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ C_save_and_reclaim((void *)f_5600,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5603,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,lf[136],lf[137]); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8148,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8150,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:689: ##sys#er-transformer */ t8=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_ccall f_5603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5603,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5606,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8044,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8046,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:699: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_5606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5606,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5609,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7902,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7904,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:720: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_ccall f_5609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){ C_save_and_reclaim((void *)f_5609,2,av);} a=C_alloc(29); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5612,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,lf[109],lf[110]); t4=C_a_i_cons(&a,2,lf[92],lf[93]); t5=C_a_i_cons(&a,2,lf[94],lf[95]); t6=C_a_i_list(&a,3,t3,t4,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7454,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7456,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:827: ##sys#er-transformer */ t10=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_5612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){ C_save_and_reclaim((void *)f_5612,2,av);} a=C_alloc(29); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5615,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,lf[109],lf[110]); t4=C_a_i_cons(&a,2,lf[92],lf[93]); t5=C_a_i_cons(&a,2,lf[94],lf[95]); t6=C_a_i_list(&a,3,t3,t4,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7377,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7379,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:916: ##sys#er-transformer */ t10=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_ccall f_5615(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){ C_save_and_reclaim((void *)f_5615,2,av);} a=C_alloc(29); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5618,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,lf[109],lf[110]); t4=C_a_i_cons(&a,2,lf[92],lf[93]); t5=C_a_i_cons(&a,2,lf[94],lf[95]); t6=C_a_i_list(&a,3,t3,t4,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7217,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7219,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:944: ##sys#er-transformer */ t10=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_5618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,c,5)))){ C_save_and_reclaim((void *)f_5618,2,av);} a=C_alloc(41); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5621,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,lf[90],lf[91]); t4=C_a_i_cons(&a,2,lf[92],lf[93]); t5=C_a_i_cons(&a,2,lf[94],lf[95]); t6=C_a_i_cons(&a,2,lf[96],lf[97]); t7=C_a_i_cons(&a,2,lf[98],lf[99]); t8=C_a_i_list(&a,5,t3,t4,t5,t6,t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6773,a[2]=t2,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6775,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:981: ##sys#er-transformer */ t12=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t10; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in ... */ static void C_ccall f_5621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5621,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5624,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6660,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6662,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1044: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in ... */ static void C_ccall f_5624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5624,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5627,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6261,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6263,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1078: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_ccall f_5627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ C_save_and_reclaim((void *)f_5627,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5630,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,lf[52],lf[53]); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6089,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6091,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1159: ##sys#er-transformer */ t8=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_5630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ C_save_and_reclaim((void *)f_5630,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5633,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,lf[52],lf[53]); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5894,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5896,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1192: ##sys#er-transformer */ t8=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_5633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5633,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5636,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5829,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5831,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1233: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_5636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5636,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5639,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5811,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5813,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1250: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_5639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5639,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5642,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5722,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5724,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1259: ##sys#er-transformer */ t5=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_5642(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5642,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5645,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1279: chicken.internal#macro-subset */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in ... */ static void C_ccall f_5645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5645,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[6]+1 /* (set! ##sys#chicken.base-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5649,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1285: ##sys#macro-environment */ t4=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5647 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in ... */ static void C_ccall f_5649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_5649,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5652,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5673,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5675,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1289: ##sys#er-transformer */ t6=*((C_word*)lf[31]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5650 in k5647 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_5652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_5652,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5655,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1301: chicken.internal#macro-subset */ t3=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5653 in k5650 in k5647 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_5655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5655,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[7]+1 /* (set! ##sys#chicken.time-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5659,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1305: ##sys#macro-environment */ t4=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5657 in k5653 in k5650 in k5647 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_ccall f_5659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5659,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5662,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5669,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1314: chicken.internal#macro-subset */ t4=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t1; av2[3]=*((C_word*)lf[18]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5660 in k5657 in k5653 in k5650 in k5647 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in ... */ static void C_ccall f_5662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5662,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[8]+1 /* (set! ##sys#chicken-macro-environment ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5665,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1318: chicken.platform#register-feature! */ t4=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t4; av2[1]=t3; av2[2]=lf[10]; av2[3]=lf[11]; av2[4]=lf[12]; av2[5]=lf[13]; av2[6]=lf[14]; av2[7]=lf[15]; ((C_proc)(void*)(*((C_word*)t4+1)))(8,av2);}} /* k5663 in k5660 in k5657 in k5653 in k5650 in k5647 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in ... */ static void C_ccall f_5665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5665,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5667 in k5657 in k5653 in k5650 in k5647 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in ... */ static void C_ccall f_5669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5669,2,av);} /* chicken-syntax.scm:1310: scheme#append */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[2]+1); av2[3]=*((C_word*)lf[7]+1); av2[4]=*((C_word*)lf[3]+1); av2[5]=*((C_word*)lf[6]+1); av2[6]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k5671 in k5647 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_5673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5673,2,av);} /* chicken-syntax.scm:1287: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[21]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5674 in k5647 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_5675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5675,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5679,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1291: r */ t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[30]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5677 in a5674 in k5647 in k5643 in k5640 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_5679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(57,c,1)))){ C_save_and_reclaim((void *)f_5679,2,av);} a=C_alloc(57); t2=C_a_i_list(&a,1,lf[22]); t3=C_i_cdr(((C_word*)t0)[2]); t4=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t3); t5=C_a_i_cons(&a,2,lf[23],t4); t6=C_a_i_list(&a,1,lf[24]); t7=C_a_i_list(&a,2,lf[25],t6); t8=C_a_i_list(&a,3,lf[26],lf[27],t1); t9=C_a_i_list(&a,4,lf[23],t1,t7,t8); t10=C_a_i_list(&a,3,lf[28],t5,t9); t11=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t11; av2[1]=C_a_i_list(&a,3,lf[29],t2,t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* k5720 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_5722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5722,2,av);} /* chicken-syntax.scm:1257: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[32]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5723 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_5724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5724,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5728,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:1262: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[32]; av2[3]=t2; av2[4]=lf[46]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5726 in a5723 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in ... */ static void C_ccall f_5728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5728,2,av);} a=C_alloc(9); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_i_nullp(t6); t8=(C_truep(t7)?lf[33]:C_i_car(t6)); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5739,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t6,a[5]=t10,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:1266: r */ t12=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=lf[44]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* k5737 in k5726 in a5723 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in ... */ static void C_ccall f_5739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5739,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5742,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_stringp(((C_word*)((C_word*)t0)[5])[1]))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5794,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1268: chicken.syntax#get-line-number */ t5=*((C_word*)lf[43]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t3; f_5742(t4,C_SCHEME_UNDEFINED);}} /* k5740 in k5737 in k5726 in a5723 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_fcall f_5742(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,0,2)))){ C_save_and_reclaim_args((void *)trf_5742,2,t0,t1);} a=C_alloc(25); t2=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_list(&a,1,t2); t4=t3; t5=C_a_i_list(&a,2,lf[34],((C_word*)t0)[2]); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5765,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t8=C_u_i_cdr(((C_word*)t0)[5]); t9=t7; f_5765(t9,C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[6])[1],t8));} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5784,a[2]=t7,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1277: chicken.syntax#strip-syntax */ t9=*((C_word*)lf[39]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} /* k5763 in k5740 in k5737 in k5726 in a5723 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_fcall f_5765(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,0,1)))){ C_save_and_reclaim_args((void *)trf_5765,2,t0,t1);} a=C_alloc(24); t2=C_a_i_cons(&a,2,lf[35],t1); t3=C_a_i_list(&a,4,lf[36],((C_word*)t0)[2],((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5782 in k5740 in k5737 in k5726 in a5723 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_5784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_5784,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,2,lf[38],t1); t3=C_a_i_list(&a,1,t2); t4=((C_word*)t0)[2]; f_5765(t4,C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t3));} /* k5792 in k5737 in k5726 in a5723 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_5794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_5794,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5801,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1269: string-append */ t3=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[41]; av2[3]=t1; av2[4]=lf[42]; av2[5]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t2=((C_word*)t0)[3]; f_5742(t2,C_SCHEME_FALSE);}} /* k5799 in k5792 in k5737 in k5726 in a5723 in k5637 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_5801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5801,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_5742(t3,t2);} /* k5809 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_5811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5811,2,av);} /* chicken-syntax.scm:1247: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[47]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5812 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_5813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5813,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5821,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1252: r */ t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[48]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5819 in a5812 in k5634 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_5821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_5821,2,av);} a=C_alloc(3); t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5827 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_5829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5829,2,av);} /* chicken-syntax.scm:1231: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[49]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5830 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_5831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_5831,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5835,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1235: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[49]; av2[3]=t2; av2[4]=lf[51]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5833 in a5830 in k5631 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_5835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_5835,2,av);} a=C_alloc(24); t2=C_i_cadr(((C_word*)t0)[2]); if(C_truep(C_i_pairp(t2))){ t3=C_u_i_car(t2); t4=C_u_i_cdr(t2); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); t7=C_u_i_cdr(t6); t8=C_a_i_cons(&a,2,t4,t7); t9=C_a_i_cons(&a,2,lf[23],t8); t10=C_a_i_list(&a,2,t3,t9); t11=C_a_i_list(&a,1,t10); t12=C_u_i_car(t2); t13=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t13; av2[1]=C_a_i_list(&a,3,lf[50],t11,t12); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_cdr(t4); t6=C_a_i_cons(&a,2,t2,t5); t7=C_a_i_list(&a,1,t6); t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_list(&a,3,lf[50],t7,t2); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k5892 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_5894(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5894,2,av);} /* chicken-syntax.scm:1189: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[54]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_5896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5896,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5900,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:1194: r */ t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[52]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_5900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5900,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5903,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:1195: r */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[62]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_5903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5903,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5906,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:1196: r */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[61]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_5906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5906,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5909,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=C_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t4))){ /* chicken-syntax.scm:1198: chicken.syntax#syntax-error */ t5=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[54]; av2[3]=lf[60]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_5909(2,av2);}}} /* k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in ... */ static void C_ccall f_5909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,7)))){ C_save_and_reclaim((void *)f_5909,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5916,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li5),tmp=(C_word)a,a+=10,tmp)); t7=((C_word*)t5)[1]; f_5916(t7,((C_word*)t0)[8],t3,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in ... */ static void C_fcall f_5916(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_5916,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(12); if(C_truep(C_i_nullp(t2))){ t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5926,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=t5,tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:1201: scheme#reverse */ t8=*((C_word*)lf[57]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5995,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=t4,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); t8=C_i_car(t2); /* chicken-syntax.scm:1211: c */ t9=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[8]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} /* k5924 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_5926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5926,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5929,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:1202: scheme#reverse */ t4=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5927 in k5924 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_5929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_5929,2,av);} a=C_alloc(21); t2=t1; if(C_truep(((C_word*)t0)[2])){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5935,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5972,a[2]=((C_word*)t0)[7],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1204: chicken.base#gensym */ t5=*((C_word*)lf[56]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=C_u_i_cdr(t2); t5=C_a_i_cons(&a,2,t3,t4); t6=C_a_i_list(&a,3,lf[23],((C_word*)t0)[6],t5); t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[5],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k5933 in k5927 in k5924 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_ccall f_5935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5935,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5946,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:1205: ##sys#append */ t4=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5944 in k5933 in k5927 in k5924 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in ... */ static void C_ccall f_5946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_5946,2,av);} a=C_alloc(10); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5962,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t6=C_u_i_cdr(((C_word*)t0)[2]); t7=C_a_i_list(&a,1,((C_word*)t0)[6]); /* chicken-syntax.scm:1205: ##sys#append */ t8=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t5; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k5960 in k5944 in k5933 in k5927 in k5924 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in ... */ static void C_ccall f_5962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ C_save_and_reclaim((void *)f_5962,2,av);} a=C_alloc(24); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_a_i_list(&a,3,lf[23],((C_word*)t0)[4],t3); t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[6],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k5970 in k5927 in k5924 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_ccall f_5972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5972,2,av);} /* chicken-syntax.scm:1204: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5993 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_5995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_5995,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5998,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6015,a[2]=((C_word*)t0)[8],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1212: chicken.base#gensym */ t4=*((C_word*)lf[56]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); /* chicken-syntax.scm:1214: c */ t5=((C_word*)t0)[10];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[11]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k5996 in k5993 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_5998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_5998,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); /* chicken-syntax.scm:1213: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_5916(t6,((C_word*)t0)[6],t3,t4,((C_word*)t0)[7],t5,C_SCHEME_FALSE);} /* k6013 in k5993 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_6015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6015,2,av);} /* chicken-syntax.scm:1212: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6019 in k5993 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_6021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,6)))){ C_save_and_reclaim((void *)f_6021,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_nullp(t3))){ /* chicken-syntax.scm:1216: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_5916(t4,((C_word*)t0)[4],C_SCHEME_END_OF_LIST,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_TRUE);} else{ /* chicken-syntax.scm:1217: chicken.syntax#syntax-error */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=lf[54]; av2[3]=lf[59]; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6038,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6061,a[2]=((C_word*)t0)[9],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1222: chicken.base#gensym */ t4=*((C_word*)lf[56]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6036 in k6019 in k5993 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_ccall f_6038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,6)))){ C_save_and_reclaim((void *)f_6038,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_list2(&a,2,t1,t5); t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[3]); t8=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); /* chicken-syntax.scm:1223: loop */ t9=((C_word*)((C_word*)t0)[5])[1]; f_5916(t9,((C_word*)t0)[6],t3,((C_word*)t0)[7],t7,t8,C_SCHEME_FALSE);} /* k6059 in k6019 in k5993 in loop in k5907 in k5904 in k5901 in k5898 in a5895 in k5628 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_ccall f_6061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6061,2,av);} /* chicken-syntax.scm:1222: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6087 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_6089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6089,2,av);} /* chicken-syntax.scm:1156: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[63]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_6091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6091,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6095,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:1161: r */ t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[62]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_6095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6095,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6098,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:1162: r */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[61]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_6098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6098,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6101,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:1163: r */ t4=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[52]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_6101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_6101,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6104,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=C_i_cdr(((C_word*)t0)[2]); if(C_truep(C_i_nullp(t4))){ /* chicken-syntax.scm:1165: chicken.syntax#syntax-error */ t5=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[63]; av2[3]=lf[65]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_6104(2,av2);}}} /* k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_6104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,6)))){ C_save_and_reclaim((void *)f_6104,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6111,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li7),tmp=(C_word)a,a+=10,tmp)); t7=((C_word*)t5)[1]; f_6111(t7,((C_word*)t0)[8],t3,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* loop in k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in ... */ static void C_fcall f_6111(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_6111,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(11); if(C_truep(C_i_nullp(t2))){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6121,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:1168: scheme#reverse */ t7=*((C_word*)lf[57]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6186,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); t7=C_i_car(t2); /* chicken-syntax.scm:1177: c */ t8=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[8]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* k6119 in loop in k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in ... */ static void C_ccall f_6121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6121,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6124,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:1169: scheme#reverse */ t4=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6122 in k6119 in loop in k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_6124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_6124,2,av);} a=C_alloc(18); t2=t1; if(C_truep(((C_word*)t0)[2])){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6130,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6163,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1171: chicken.base#gensym */ t5=*((C_word*)lf[56]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=C_a_i_list(&a,2,lf[29],t3); t5=C_u_i_cdr(t2); t6=C_a_i_cons(&a,2,t4,t5); t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[23],((C_word*)t0)[5],t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k6128 in k6122 in k6119 in loop in k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_6130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6130,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6137,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:1172: ##sys#append */ t4=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6135 in k6128 in k6122 in k6119 in loop in k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_ccall f_6137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6137,2,av);} a=C_alloc(9); t2=t1; t3=C_i_car(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6153,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t6=C_u_i_cdr(((C_word*)t0)[2]); t7=C_a_i_list(&a,1,((C_word*)t0)[5]); /* chicken-syntax.scm:1172: ##sys#append */ t8=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t5; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k6151 in k6135 in k6128 in k6122 in k6119 in loop in k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in ... */ static void C_ccall f_6153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_6153,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[23],((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6161 in k6122 in k6119 in loop in k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_6163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6163,2,av);} /* chicken-syntax.scm:1171: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6184 in loop in k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in ... */ static void C_ccall f_6186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_6186,2,av);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6189,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6206,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1178: chicken.base#gensym */ t4=*((C_word*)lf[56]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6212,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t3=((C_word*)t0)[2]; t4=C_u_i_car(t3); /* chicken-syntax.scm:1180: c */ t5=((C_word*)t0)[9];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t2; av2[2]=((C_word*)t0)[10]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k6187 in k6184 in loop in k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_6189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_6189,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); /* chicken-syntax.scm:1179: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_6111(t6,((C_word*)t0)[6],t3,t4,t5,C_SCHEME_FALSE);} /* k6204 in k6184 in loop in k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_6206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6206,2,av);} /* chicken-syntax.scm:1178: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6210 in k6184 in loop in k6102 in k6099 in k6096 in k6093 in a6090 in k5625 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_6212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_6212,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); if(C_truep(C_i_nullp(t3))){ /* chicken-syntax.scm:1182: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6111(t4,((C_word*)t0)[4],C_SCHEME_END_OF_LIST,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_TRUE);} else{ /* chicken-syntax.scm:1183: chicken.syntax#syntax-error */ t4=*((C_word*)lf[58]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=lf[63]; av2[3]=lf[64]; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[6]); /* chicken-syntax.scm:1187: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_6111(t7,((C_word*)t0)[4],t3,((C_word*)t0)[5],t6,C_SCHEME_FALSE);}} /* k6259 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_ccall f_6261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6261,2,av);} /* chicken-syntax.scm:1075: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[66]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_ccall f_6263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6263,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6267,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:1080: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[66]; av2[3]=t2; av2[4]=lf[84]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_6267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6267,2,av);} a=C_alloc(7); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6273,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:1085: chicken.syntax#strip-syntax */ t5=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_6273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6273,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6645,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1086: ##sys#current-module */ t5=*((C_word*)lf[83]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_6276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_6276,2,av);} a=C_alloc(10); t2=t1; t3=C_i_caddr(((C_word*)t0)[2]); t4=t3; t5=C_i_cadddr(((C_word*)t0)[2]); t6=t5; t7=C_i_cddddr(((C_word*)t0)[2]); t8=t7; t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6288,a[2]=t4,a[3]=t8,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t6,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:1094: r */ t10=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=lf[79]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_6288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6288,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6291,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* chicken-syntax.scm:1095: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[78]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_6291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6291,2,av);} a=C_alloc(13); t2=t1; t3=C_i_cdr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6297,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t4,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t2,a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp); /* chicken-syntax.scm:1097: r */ t6=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[77]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in ... */ static void C_ccall f_6297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6297,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6300,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* chicken-syntax.scm:1098: r */ t4=((C_word*)t0)[12];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[76]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in ... */ static void C_ccall f_6300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_6300,2,av);} a=C_alloc(27); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t8=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6309,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=t2,a[13]=((C_word*)t0)[2],tmp=(C_word)a,a+=14,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6610,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li12),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_6610(t12,t8,((C_word*)t0)[2]);} /* k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_6309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(53,c,3)))){ C_save_and_reclaim((void *)f_6309,2,av);} a=C_alloc(53); t2=C_a_i_list(&a,2,lf[38],((C_word*)t0)[2]); t3=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t2); t4=t3; t5=C_a_i_list(&a,2,lf[38],((C_word*)t0)[2]); t6=t5; t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6557,a[2]=((C_word*)t0)[5],a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp); t12=C_i_check_list_2(t1,lf[67]); t13=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6570,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[2],a[8]=t4,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6572,a[2]=t11,a[3]=t9,a[4]=t15,a[5]=t10,a[6]=((C_word)li11),tmp=(C_word)a,a+=7,tmp)); t17=((C_word*)t15)[1]; f_6572(t17,t13,t1);} /* k6338 in k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_ccall f_6340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_6340,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,lf[29],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* loop in k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_fcall f_6342(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,3)))){ C_save_and_reclaim_args((void *)trf_6342,4,t0,t1,t2,t3);} a=C_alloc(19); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=C_i_cddr(t5); t7=C_i_pairp(t6); t8=t7; t9=(C_truep(t8)?C_i_caddr(t5):C_SCHEME_FALSE); t10=t9; t11=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6361,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=t3,a[6]=t1,a[7]=t2,a[8]=((C_word*)t0)[4],a[9]=t8,a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=t10,a[13]=((C_word*)t0)[7],a[14]=((C_word*)t0)[8],tmp=(C_word)a,a+=15,tmp); if(C_truep(C_i_pairp(t10))){ t12=C_u_i_cdr(t10); if(C_truep(C_i_pairp(t12))){ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6514,a[2]=t11,a[3]=t10,tmp=(C_word)a,a+=4,tmp); t14=C_u_i_car(t10); /* chicken-syntax.scm:1120: c */ t15=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t15; av2[1]=t13; av2[2]=lf[75]; av2[3]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} else{ t13=t11; f_6361(t13,C_SCHEME_FALSE);}} else{ t12=t11; f_6361(t12,C_SCHEME_FALSE);}}} /* k6359 in loop in k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in ... */ static void C_fcall f_6361(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(128,0,2)))){ C_save_and_reclaim_args((void *)trf_6361,2,t0,t1);} a=C_alloc(128); t2=t1; t3=C_a_i_list(&a,1,((C_word*)t0)[2]); t4=C_a_i_list(&a,2,lf[38],((C_word*)t0)[3]); t5=C_i_cadr(((C_word*)t0)[4]); t6=C_a_i_list(&a,2,lf[38],t5); t7=C_a_i_list(&a,4,lf[71],((C_word*)t0)[2],t4,t6); t8=C_a_i_list(&a,2,lf[34],t7); t9=C_a_i_list(&a,3,lf[72],((C_word*)t0)[2],((C_word*)t0)[5]); t10=C_a_i_list(&a,4,lf[23],t3,t8,t9); t11=t10; t12=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6367,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=t2,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=t11,tmp=(C_word)a,a+=14,tmp); if(C_truep(((C_word*)t0)[9])){ t13=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[14]); t14=C_a_i_list(&a,2,lf[38],((C_word*)t0)[3]); t15=C_a_i_list(&a,2,lf[38],t2); t16=C_a_i_list(&a,4,lf[71],((C_word*)t0)[2],t14,t15); t17=C_a_i_list(&a,2,lf[34],t16); t18=C_a_i_list(&a,4,lf[74],((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[14]); t19=t12; f_6367(t19,C_a_i_list(&a,4,lf[23],t13,t17,t18));} else{ t13=t12; f_6367(t13,C_SCHEME_FALSE);}} /* k6365 in k6359 in loop in k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in ... */ static void C_fcall f_6367(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ C_save_and_reclaim_args((void *)trf_6367,2,t0,t1);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6374,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); t4=C_u_i_cdr(((C_word*)t0)[8]); t5=C_u_i_car(t4); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6435,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[13],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[10],a[7]=t5,tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[7])){ t7=C_u_i_cdr(((C_word*)t0)[8]); t8=C_u_i_car(t7); /* chicken-syntax.scm:1141: c */ t9=((C_word*)t0)[9];{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=((C_word*)t0)[7]; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_6435(2,av2);}}} /* k6372 in k6365 in k6359 in loop in k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in ... */ static void C_fcall f_6374(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){ C_save_and_reclaim_args((void *)trf_6374,2,t0,t1);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6378,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6382,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ if(C_truep(((C_word*)t0)[7])){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6414,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=C_i_cadr(((C_word*)t0)[9]); /* chicken-syntax.scm:1146: c */ t7=((C_word*)t0)[10];{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=C_a_i_list(&a,3,((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[8]); t6=t4; f_6382(t6,C_a_i_list(&a,1,t5));}} else{ t5=t4; f_6382(t5,C_SCHEME_END_OF_LIST);}} /* k6376 in k6372 in k6365 in k6359 in loop in k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in ... */ static void C_ccall f_6378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6378,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6380 in k6372 in k6365 in k6359 in loop in k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in ... */ static void C_fcall f_6382(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,3)))){ C_save_and_reclaim_args((void *)trf_6382,2,t0,t1);} a=C_alloc(33); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6386,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); t6=((C_word*)t0)[4]; t7=C_s_a_i_plus(&a,2,t6,C_fix(1)); /* chicken-syntax.scm:1151: loop */ t8=((C_word*)((C_word*)t0)[5])[1]; f_6342(t8,t3,t5,t7);} /* k6384 in k6380 in k6372 in k6365 in k6359 in loop in k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in ... */ static void C_ccall f_6386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6386,2,av);} /* chicken-syntax.scm:1139: ##sys#append */ t2=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6412 in k6372 in k6365 in k6359 in loop in k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in ... */ static void C_ccall f_6414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_6414,2,av);} a=C_alloc(18); if(C_truep(C_i_not(t1))){ t2=C_a_i_list(&a,2,lf[73],lf[73]); t3=C_a_i_list(&a,3,t2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=((C_word*)t0)[4]; f_6382(t4,C_a_i_list(&a,1,t3));} else{ t2=((C_word*)t0)[4]; f_6382(t2,C_SCHEME_END_OF_LIST);}} /* k6433 in k6365 in k6359 in loop in k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in ... */ static void C_ccall f_6435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_6435,2,av);} a=C_alloc(18); if(C_truep(t1)){ t2=C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5]; f_6374(t3,C_a_i_list(&a,3,((C_word*)t0)[6],((C_word*)t0)[7],t2));} else{ t2=((C_word*)t0)[5]; f_6374(t2,C_a_i_list(&a,3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[3]));}} /* k6512 in loop in k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in ... */ static void C_ccall f_6514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6514,2,av);} t2=((C_word*)t0)[2]; f_6361(t2,(C_truep(t1)?C_i_cadr(((C_word*)t0)[3]):C_SCHEME_FALSE));} /* g3044 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static C_word C_fcall f_6557(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} if(C_truep(C_i_memq(t1,((C_word*)t0)[2]))){ t2=t1; return(t2);} else{ return(lf[68]);}} /* k6568 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_6570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(63,c,4)))){ C_save_and_reclaim((void *)f_6570,2,av);} a=C_alloc(63); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[69],t2); t4=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t3); t5=t4; t6=C_a_i_list(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]); t7=C_a_i_list(&a,2,lf[38],((C_word*)t0)[7]); t8=C_a_i_list(&a,3,lf[70],((C_word*)t0)[6],t7); t9=C_a_i_list(&a,3,((C_word*)t0)[3],t6,t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6340,a[2]=t10,a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6342,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t13,a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[12],a[9]=((C_word)li10),tmp=(C_word)a,a+=10,tmp)); t15=((C_word*)t13)[1]; f_6342(t15,t11,((C_word*)t0)[13],C_fix(1));} /* map-loop3038 in k6307 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_fcall f_6572(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_6572,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* chicken-syntax.scm:1106: g3044 */ f_6557(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop3009 in k6298 in k6295 in k6289 in k6286 in k6274 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_fcall f_6610(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_6610,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6643 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_6645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6645,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6652,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6656,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1088: ##sys#current-module */ t4=*((C_word*)lf[83]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_6276(2,av2);}}} /* k6650 in k6643 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_6652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6652,2,av);} /* chicken-syntax.scm:1087: chicken.base#symbol-append */ t2=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[81]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6654 in k6643 in k6271 in k6265 in a6262 in k5622 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_6656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6656,2,av);} /* chicken-syntax.scm:1088: ##sys#module-name */ t2=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6658 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in ... */ static void C_ccall f_6660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6660,2,av);} /* chicken-syntax.scm:1042: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[85]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in ... */ static void C_ccall f_6662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6662,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6666,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1046: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[85]; av2[3]=t2; av2[4]=lf[89]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_ccall f_6666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_6666,2,av);} a=C_alloc(8); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); if(C_truep(C_i_pairp(t3))){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6680,a[2]=t3,a[3]=t6,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t8=C_a_i_cons(&a,2,t3,t6); /* chicken-syntax.scm:1050: ##sys#check-syntax */ t9=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t7; av2[2]=lf[85]; av2[3]=t8; av2[4]=lf[87]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6730,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t8=C_a_i_cons(&a,2,t3,t6); /* chicken-syntax.scm:1063: ##sys#check-syntax */ t9=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t7; av2[2]=lf[85]; av2[3]=t8; av2[4]=lf[88]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} /* k6678 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_6680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6680,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_slot(((C_word*)t0)[2],C_fix(0)); /* chicken-syntax.scm:1053: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6681 in k6678 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_6683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_6683,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6686,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6708,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1054: ##sys#current-module */ t5=*((C_word*)lf[83]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6684 in k6681 in k6678 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_6686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_6686,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,2,lf[38],t1); t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,lf[23],t4); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[86],t2,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k6706 in k6681 in k6678 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_6708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6708,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6715,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6719,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1056: ##sys#current-module */ t4=*((C_word*)lf[83]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_6686(2,av2);}}} /* k6713 in k6706 in k6681 in k6678 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_6715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6715,2,av);} /* chicken-syntax.scm:1055: chicken.base#symbol-append */ t2=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[81]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6717 in k6706 in k6681 in k6678 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_6719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6719,2,av);} /* chicken-syntax.scm:1056: ##sys#module-name */ t2=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6728 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_6730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6730,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6733,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1064: chicken.syntax#strip-syntax */ t3=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6731 in k6728 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_6733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_6733,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6736,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6750,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:1065: ##sys#current-module */ t5=*((C_word*)lf[83]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6734 in k6731 in k6728 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_6736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_6736,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,2,lf[38],t1); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[86],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6748 in k6731 in k6728 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_6750(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6750,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6757,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6761,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:1067: ##sys#current-module */ t4=*((C_word*)lf[83]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_a_i_list(&a,2,lf[38],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[86],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6755 in k6748 in k6731 in k6728 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_6757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6757,2,av);} /* chicken-syntax.scm:1066: chicken.base#symbol-append */ t2=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[81]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6759 in k6748 in k6731 in k6728 in k6664 in a6661 in k5619 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_6761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6761,2,av);} /* chicken-syntax.scm:1067: ##sys#module-name */ t2=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6771 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in ... */ static void C_ccall f_6773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6773,2,av);} /* chicken-syntax.scm:974: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[100]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in ... */ static void C_ccall f_6775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_6775,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6779,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:983: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[100]; av2[3]=t2; av2[4]=lf[108]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in ... */ static void C_ccall f_6779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_6779,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6781,a[2]=((C_word*)t0)[2],a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6816,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_cdr(((C_word*)t0)[3]); t9=C_i_check_list_2(t8,lf[67]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7155,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7157,a[2]=t6,a[3]=t12,a[4]=t7,a[5]=((C_word)li26),tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_7157(t14,t10,t8);} /* genvars in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_fcall f_6781(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_6781,3,t0,t1,t2);} a=C_alloc(8); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6787,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li15),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_6787(t6,t1,C_fix(0));} /* loop in genvars in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_fcall f_6787(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_6787,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6801,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6813,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:988: chicken.base#gensym */ t5=*((C_word*)lf[56]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k6799 in loop in genvars in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_6801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6801,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6805,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* chicken-syntax.scm:988: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_6787(t5,t3,t4);} /* k6803 in k6799 in loop in genvars in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_6805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6805,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6811 in loop in genvars in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_6813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6813,2,av);} /* chicken-syntax.scm:988: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_ccall f_6816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6816,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6819,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:994: genvars */ t4=((C_word*)t0)[5]; f_6781(t4,t3,t2);} /* k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_6819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6819,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6822,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:995: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[106]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_6822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6822,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6825,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:996: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[105]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_6825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_6825,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6828,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* chicken-syntax.scm:997: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[90]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_6828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_6828,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6831,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:998: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[96]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_6831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6831,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6834,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,tmp=(C_word)a,a+=11,tmp); /* chicken-syntax.scm:999: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[92]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in ... */ static void C_ccall f_6834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6834,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6837,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* chicken-syntax.scm:1000: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[94]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in ... */ static void C_ccall f_6837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6837,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6840,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* chicken-syntax.scm:1001: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[98]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_ccall f_6840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_6840,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6847,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* chicken-syntax.scm:1003: scheme#append */ t4=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_6847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,3)))){ C_save_and_reclaim((void *)f_6847,2,av);} a=C_alloc(35); t2=t1; t3=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=C_a_i_list(&a,2,((C_word*)t0)[4],t3); t5=C_a_i_list(&a,1,t4); t6=t5; t7=((C_word*)t0)[5]; t8=C_u_i_cdr(t7); t9=C_i_check_list_2(t8,lf[101]); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6863,a[2]=t6,a[3]=((C_word*)t0)[6],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6865,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[13],a[11]=t12,a[12]=((C_word)li24),tmp=(C_word)a,a+=13,tmp)); t14=((C_word*)t12)[1]; f_6865(t14,t10,t8);} /* k6861 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_ccall f_6863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_6863,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,3,lf[37],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[23],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_fcall f_6865(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){ C_save_and_reclaim_args((void *)trf_6865,3,t0,t1,t2);} a=C_alloc(17); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6873,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word)li23),tmp=(C_word)a,a+=12,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7118,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=lf[104]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in ... */ static void C_fcall f_6873(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ C_save_and_reclaim_args((void *)trf_6873,4,t0,t1,t2,t3);} a=C_alloc(14); t4=C_i_car(t2); t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6883,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word)li22),tmp=(C_word)a,a+=14,tmp); /* chicken-syntax.scm:1008: ##sys#decompose-lambda-list */ t6=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in ... */ static void C_ccall f_6883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_6883,5,av);} a=C_alloc(17); t5=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_6887,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=t4,a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[11],a[16]=((C_word*)t0)[12],tmp=(C_word)a,a+=17,tmp); t6=C_i_car(((C_word*)t0)[5]); /* chicken-syntax.scm:1011: ##sys#check-syntax */ t7=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t5; av2[2]=lf[100]; av2[3]=t6; av2[4]=lf[102]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in ... */ static void C_ccall f_6887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_6887,2,av);} a=C_alloc(23); t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6897,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); if(C_truep(((C_word*)t0)[8])){ t4=C_eqp(t2,C_fix(0)); t5=t3; f_6897(t5,(C_truep(t4)?C_SCHEME_TRUE:C_a_i_list(&a,3,((C_word*)t0)[14],((C_word*)t0)[15],t2)));} else{ t4=t3; f_6897(t4,C_a_i_list(&a,3,((C_word*)t0)[16],((C_word*)t0)[15],t2));}} /* k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in ... */ static void C_fcall f_6897(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,4)))){ C_save_and_reclaim_args((void *)trf_6897,2,t0,t1);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6901,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6903,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li18),tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6913,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word)li21),tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:1018: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t3; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k6899 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in ... */ static void C_ccall f_6901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_6901,2,av);} a=C_alloc(12); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,4,lf[36],((C_word*)t0)[3],t1,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a6902 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in ... */ static void C_ccall f_6903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6903,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6911,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1019: take */ f_4313(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k6909 in a6902 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in ... */ static void C_ccall f_6911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_6911,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4371,a[2]=t4,a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_4371(t6,t2,((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t1);} /* a6912 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in ... */ static void C_ccall f_6913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_6913,4,av);} a=C_alloc(16); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6917,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6989,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t6,a[7]=((C_word*)t0)[7],a[8]=((C_word)li20),tmp=(C_word)a,a+=9,tmp)); t8=((C_word*)t6)[1]; f_6989(t8,t4,t3,((C_word*)t0)[8]);} /* k6915 in a6912 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in ... */ static void C_ccall f_6917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_6917,2,av);} a=C_alloc(17); t2=t1; if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[2]; t8=C_i_check_list_2(t7,lf[67]); t9=C_i_check_list_2(((C_word*)t0)[4],lf[67]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6939,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6941,a[2]=t5,a[3]=t12,a[4]=t6,a[5]=((C_word)li19),tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_6941(t14,t10,t7,((C_word*)t0)[4]);}} /* k6937 in k6915 in a6912 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in ... */ static void C_ccall f_6939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_6939,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[37],t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2933 in k6915 in a6912 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in ... */ static void C_fcall f_6941(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_6941,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list2(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* build in a6912 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in ... */ static void C_fcall f_6989(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_6989,4,t0,t1,t2,t3);} a=C_alloc(15); if(C_truep(C_i_nullp(t2))){ if(C_truep(((C_word*)t0)[2])){ t4=C_a_i_list(&a,2,((C_word*)t0)[2],t3); t5=C_a_i_list(&a,1,t4); t6=C_i_cdr(((C_word*)t0)[3]); t7=C_a_i_cons(&a,2,t5,t6); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_cons(&a,2,lf[37],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t4=C_i_cddr(((C_word*)t0)[3]); if(C_truep(C_i_nullp(t4))){ t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); t7=C_u_i_car(t6); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); t7=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t6); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_cons(&a,2,lf[37],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7042,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7090,a[2]=((C_word*)t0)[7],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:1026: chicken.base#gensym */ t6=*((C_word*)lf[56]+1);{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k7040 in build in a6912 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in ... */ static void C_ccall f_7042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){ C_save_and_reclaim((void *)f_7042,2,av);} a=C_alloc(34); t2=C_i_car(((C_word*)t0)[2]); t3=C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t4=C_a_i_list(&a,2,t2,t3); t5=C_a_i_list(&a,2,((C_word*)t0)[5],((C_word*)t0)[4]); t6=C_a_i_list(&a,2,t1,t5); t7=C_a_i_list(&a,2,t4,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7053,a[2]=((C_word*)t0)[6],a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); if(C_truep(C_i_pairp(t11))){ t12=((C_word*)t0)[2]; t13=C_u_i_cdr(t12); /* chicken-syntax.scm:1030: build */ t14=((C_word*)((C_word*)t0)[7])[1]; f_6989(t14,t9,t13,t1);} else{ /* chicken-syntax.scm:1031: build */ t12=((C_word*)((C_word*)t0)[7])[1]; f_6989(t12,t9,C_SCHEME_END_OF_LIST,t1);}} /* k7051 in k7040 in build in a6912 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in ... */ static void C_ccall f_7053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_7053,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7088 in build in a6912 in k6895 in k6885 in a6882 in g2890 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in ... */ static void C_ccall f_7090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7090,2,av);} /* chicken-syntax.scm:1026: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7116 in foldr2885 in k6845 in k6838 in k6835 in k6832 in k6829 in k6826 in k6823 in k6820 in k6817 in k6814 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in ... */ static void C_ccall f_7118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7118,2,av);} /* chicken-syntax.scm:1006: g2890 */ t2=((C_word*)t0)[2]; f_6873(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* a7144 in map-loop2842 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_7145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7145,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7153 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_ccall f_7155(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7155,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[107]+1); av2[3]=t1; C_apply(4,av2);}} /* map-loop2842 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_fcall f_7157(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_7157,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7182,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_car(t4); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7145,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:990: ##sys#decompose-lambda-list */ t7=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t3; av2[2]=t5; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7180 in map-loop2842 in k6777 in a6774 in k5616 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_7182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7182,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7157(t6,((C_word*)t0)[5],t5);} /* k7215 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_7217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7217,2,av);} /* chicken-syntax.scm:939: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[111]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7218 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_7219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7219,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7223,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:946: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[111]; av2[3]=t2; av2[4]=lf[113]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7221 in a7218 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in ... */ static void C_ccall f_7223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7223,2,av);} a=C_alloc(7); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=C_i_caddr(((C_word*)t0)[2]); t5=t4; t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); t9=C_u_i_cdr(t8); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7235,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t9,a[5]=((C_word*)t0)[4],a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:950: r */ t11=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=lf[109]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k7233 in k7221 in a7218 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in ... */ static void C_ccall f_7235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7235,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7238,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:951: r */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[92]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7236 in k7233 in k7221 in a7218 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_ccall f_7238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7238,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7241,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* chicken-syntax.scm:952: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[94]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7239 in k7236 in k7233 in k7221 in a7218 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_7241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7241,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7244,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:953: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[44]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7242 in k7239 in k7236 in k7233 in k7221 in a7218 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_7244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_7244,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7255,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7257,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t7,a[7]=((C_word*)t0)[8],a[8]=((C_word)li28),tmp=(C_word)a,a+=9,tmp)); t9=((C_word*)t7)[1]; f_7257(t9,t5,t1,((C_word*)t0)[9]);} /* k7253 in k7242 in k7239 in k7236 in k7233 in k7221 in a7218 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_7255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_7255,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k7242 in k7239 in k7236 in k7233 in k7221 in a7218 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_fcall f_7257(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_7257,4,t0,t1,t2,t3);} a=C_alloc(15); if(C_truep(C_i_nullp(t3))){ t4=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,lf[37],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t3); t5=t4; if(C_truep(C_i_pairp(t5))){ t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7283,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=t3,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:961: r */ t7=((C_word*)t0)[7];{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[112]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=C_a_i_list(&a,2,t5,t2); t7=C_a_i_list(&a,1,t6); t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[2]); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=C_a_i_cons(&a,2,lf[37],t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}} /* k7281 in loop in k7242 in k7239 in k7236 in k7233 in k7221 in a7218 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_7283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(76,c,3)))){ C_save_and_reclaim((void *)f_7283,2,av);} a=C_alloc(76); t2=C_u_i_car(((C_word*)t0)[2]); t3=C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t4=C_i_cadr(((C_word*)t0)[2]); t5=C_a_i_list(&a,2,((C_word*)t0)[5],((C_word*)t0)[4]); t6=C_a_i_list(&a,4,lf[36],t3,t4,t5); t7=C_a_i_list(&a,2,t2,t6); t8=C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t9=C_a_i_list(&a,2,lf[38],C_SCHEME_END_OF_LIST); t10=C_a_i_list(&a,2,((C_word*)t0)[6],((C_word*)t0)[4]); t11=C_a_i_list(&a,4,lf[36],t8,t9,t10); t12=C_a_i_list(&a,2,t1,t11); t13=C_a_i_list(&a,2,t7,t12); t14=t13; t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7294,a[2]=((C_word*)t0)[7],a[3]=t14,tmp=(C_word)a,a+=4,tmp); t16=((C_word*)t0)[8]; t17=C_u_i_cdr(t16); /* chicken-syntax.scm:968: loop */ t18=((C_word*)((C_word*)t0)[9])[1]; f_7257(t18,t15,t1,t17);} /* k7292 in k7281 in loop in k7242 in k7239 in k7236 in k7233 in k7221 in a7218 in k5613 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_7294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_7294,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7375 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_ccall f_7377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7377,2,av);} /* chicken-syntax.scm:911: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[114]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7378 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_ccall f_7379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7379,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7383,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:918: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[114]; av2[3]=t2; av2[4]=lf[115]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7381 in a7378 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_7383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7383,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7386,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:919: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[44]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7384 in k7381 in a7378 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in ... */ static void C_ccall f_7386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_7386,2,av);} a=C_alloc(16); t2=t1; t3=C_i_cadr(((C_word*)t0)[2]); t4=C_a_i_list(&a,2,t2,t3); t5=C_a_i_list(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7426,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t6,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:921: r */ t8=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[109]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k7414 in k7424 in k7384 in k7381 in a7378 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_ccall f_7416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_7416,2,av);} a=C_alloc(27); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,4,lf[36],((C_word*)t0)[3],((C_word*)t0)[4],t2); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[6],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7424 in k7384 in k7381 in a7378 in k5610 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in ... */ static void C_ccall f_7426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7426,2,av);} a=C_alloc(13); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=t2; t4=C_i_cddr(((C_word*)t0)[3]); t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7416,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t7,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:923: r */ t9=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=lf[92]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k7452 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_7454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7454,2,av);} /* chicken-syntax.scm:822: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[116]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_7456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7456,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7460,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:829: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[116]; av2[3]=t2; av2[4]=lf[126]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_ccall f_7460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,6)))){ C_save_and_reclaim((void *)f_7460,2,av);} a=C_alloc(12); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=C_i_caddr(((C_word*)t0)[2]); t5=t4; t6=((C_word*)t0)[2]; t7=C_u_i_cdr(t6); t8=C_u_i_cdr(t7); t9=C_u_i_cdr(t8); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7550,a[2]=((C_word*)t0)[3],a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7643,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t9,a[6]=((C_word*)t0)[4],a[7]=t10,tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:868: ##sys#check-syntax */ t12=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t11; av2[2]=lf[116]; av2[3]=t5; av2[4]=lf[125]; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} /* k7477 in k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_7479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7479,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7483,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:839: scheme#reverse */ t4=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7481 in k7477 in k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in ... */ static void C_ccall f_7483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7483,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7487,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:840: scheme#reverse */ t4=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7485 in k7481 in k7477 in k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in ... */ static void C_ccall f_7487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_7487,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7489,a[2]=t3,a[3]=((C_word)li36),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_7489(t5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} /* recur in k7485 in k7481 in k7477 in k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in ... */ static void C_fcall f_7489(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_7489,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_cdr(t2); t7=t6; t8=C_i_car(t3); t9=t8; t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7528,a[2]=t5,a[3]=t9,a[4]=t1,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[2],a[8]=t7,tmp=(C_word)a,a+=9,tmp); /* chicken-syntax.scm:845: scheme#reverse */ t11=*((C_word*)lf[57]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}} /* k7508 in k7534 in k7526 in recur in k7485 in k7481 in k7477 in k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in ... */ static void C_ccall f_7510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7510,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7526 in recur in k7485 in k7481 in k7477 in k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in ... */ static void C_ccall f_7528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_7528,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7536,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7540,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:846: scheme#reverse */ t5=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7534 in k7526 in recur in k7485 in k7481 in k7477 in k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_ccall f_7536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,5)))){ C_save_and_reclaim((void *)f_7536,2,av);} a=C_alloc(22); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list(&a,3,lf[23],((C_word*)t0)[3],t2); t4=C_a_i_list(&a,2,((C_word*)t0)[4],t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7510,a[2]=((C_word*)t0)[5],a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=((C_word*)t0)[6]; t8=C_u_i_cdr(t7); t9=((C_word*)t0)[7]; t10=C_u_i_cdr(t9); t11=((C_word*)t0)[6]; t12=C_u_i_car(t11); /* chicken-syntax.scm:847: recur */ t13=((C_word*)((C_word*)t0)[8])[1]; f_7489(t13,t6,((C_word*)t0)[9],t8,t10,t12);} /* k7538 in k7526 in recur in k7485 in k7481 in k7477 in k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in ... */ static void C_ccall f_7540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7540,2,av);} a=C_alloc(3); t2=C_i_car(((C_word*)t0)[2]); t3=C_a_i_list(&a,1,t2); /* chicken-syntax.scm:844: ##sys#append */ t4=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* make-if-tree in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_fcall f_7550(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_7550,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(9); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7556,a[2]=t4,a[3]=t5,a[4]=t7,a[5]=((C_word*)t0)[2],a[6]=((C_word)li31),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_7556(t9,t1,t2,t3,C_SCHEME_END_OF_LIST);} /* recur in make-if-tree in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in ... */ static void C_fcall f_7556(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_7556,5,t0,t1,t2,t3,t4);} a=C_alloc(10); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7570,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:858: scheme#reverse */ t6=*((C_word*)lf[57]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_i_car(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7640,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t6,a[5]=t1,a[6]=t2,a[7]=t4,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:860: r */ t8=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[109]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k7568 in recur in make-if-tree in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in ... */ static void C_ccall f_7570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7570,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7594 in k7618 in k7626 in k7634 in k7638 in recur in make-if-tree in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_7596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_7596,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,3,lf[37],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,4,lf[36],((C_word*)t0)[4],((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7618 in k7626 in k7634 in k7638 in recur in make-if-tree in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_7620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_7620,2,av);} a=C_alloc(27); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,2,((C_word*)t0)[2],t2); t4=C_a_i_list(&a,2,((C_word*)t0)[3],t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7596,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t7=((C_word*)t0)[7]; t8=C_u_i_cdr(t7); t9=((C_word*)t0)[8]; t10=C_u_i_cdr(t9); t11=C_a_i_cons(&a,2,((C_word*)t0)[9],((C_word*)t0)[10]); /* chicken-syntax.scm:864: recur */ t12=((C_word*)((C_word*)t0)[11])[1]; f_7556(t12,t6,t8,t10,t11);} /* k7626 in k7634 in k7638 in recur in make-if-tree in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_7628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ C_save_and_reclaim((void *)f_7628,2,av);} a=C_alloc(24); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,2,((C_word*)t0)[3],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7620,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* chicken-syntax.scm:863: r */ t6=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[94]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k7634 in k7638 in recur in make-if-tree in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_ccall f_7636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_7636,2,av);} a=C_alloc(15); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7628,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* chicken-syntax.scm:862: r */ t5=((C_word*)t0)[11];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[92]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7638 in recur in make-if-tree in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in ... */ static void C_ccall f_7640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_7640,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); t3=t2; t4=C_i_car(((C_word*)t0)[3]); t5=t4; t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7636,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); /* chicken-syntax.scm:861: scheme#reverse */ t7=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_7643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_7643,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7646,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* chicken-syntax.scm:869: ##sys#check-syntax */ t3=*((C_word*)lf[45]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[116]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[124]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in ... */ static void C_ccall f_7646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_7646,2,av);} a=C_alloc(21); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7655,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7854,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li40),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_7854(t11,t7,((C_word*)t0)[2]);} /* k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in ... */ static void C_ccall f_7655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_7655,2,av);} a=C_alloc(32); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7656,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7672,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li34),tmp=(C_word)a,a+=5,tmp); t9=C_i_check_list_2(t2,lf[67]); t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7686,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7820,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,a[6]=((C_word)li39),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_7820(t14,t10,t2);} /* prefix-sym in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_fcall f_7656(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_7656,3,t1,t2,t3);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7664,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7668,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:872: scheme#symbol->string */ t6=*((C_word*)lf[118]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k7662 in prefix-sym in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_7664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7664,2,av);} /* chicken-syntax.scm:872: scheme#string->symbol */ t2=*((C_word*)lf[117]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7666 in prefix-sym in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_7668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7668,2,av);} /* chicken-syntax.scm:872: scheme#string-append */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* g2695 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_fcall f_7672(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_7672,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7680,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:877: prefix-sym */ f_7656(t3,lf[119],t2);} /* k7678 in g2695 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_7680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7680,2,av);} /* chicken-syntax.scm:877: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_ccall f_7686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){ C_save_and_reclaim((void *)f_7686,2,av);} a=C_alloc(23); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7692,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7786,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li38),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_7786(t11,t7,((C_word*)t0)[9]);} /* k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_7692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_7692,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7695,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,tmp=(C_word)a,a+=11,tmp); /* chicken-syntax.scm:881: r */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[123]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in ... */ static void C_ccall f_7695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_7695,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7698,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* chicken-syntax.scm:884: r */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[122]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in ... */ static void C_ccall f_7698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,3)))){ C_save_and_reclaim((void *)f_7698,2,av);} a=C_alloc(31); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7702,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li35),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7713,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7752,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li37),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_7752(t12,t8,((C_word*)t0)[5]);} /* g2752 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_fcall f_7702(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_7702,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7710,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:886: prefix-sym */ f_7656(t3,lf[120],t2);} /* k7708 in g2752 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_7710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7710,2,av);} /* chicken-syntax.scm:886: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_ccall f_7713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_7713,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7716,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,tmp=(C_word)a,a+=12,tmp); t4=t3; t5=((C_word*)t0)[6]; t6=t2; t7=((C_word*)t0)[11]; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7479,a[2]=t4,a[3]=t5,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:838: scheme#reverse */ t9=*((C_word*)lf[57]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k7714 in k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_7716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_7716,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7719,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:891: make-if-tree */ t4=((C_word*)t0)[9]; f_7550(t4,t3,((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[6],((C_word*)t0)[2]);} /* k7717 in k7714 in k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in ... */ static void C_ccall f_7719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7719,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7726,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* chicken-syntax.scm:894: r */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[121]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7724 in k7717 in k7714 in k7711 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in ... */ static void C_ccall f_7726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ C_save_and_reclaim((void *)f_7726,2,av);} a=C_alloc(33); t2=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); t4=C_a_i_cons(&a,2,lf[23],t3); t5=C_a_i_list(&a,2,((C_word*)t0)[6],t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[7]); t7=C_a_i_cons(&a,2,t2,t6); t8=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_list(&a,3,t1,t7,((C_word*)t0)[9]); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* map-loop2746 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in ... */ static void C_fcall f_7752(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7752,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7777,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-syntax.scm:886: g2752 */ t5=((C_word*)t0)[4]; f_7702(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7775 in map-loop2746 in k7696 in k7693 in k7690 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in ... */ static void C_ccall f_7777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7777,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7752(t6,((C_word*)t0)[5],t5);} /* map-loop2717 in k7684 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_fcall f_7786(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_7786,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cadr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop2689 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in ... */ static void C_fcall f_7820(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7820,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7845,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-syntax.scm:877: g2695 */ t5=((C_word*)t0)[4]; f_7672(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7843 in map-loop2689 in k7653 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in ... */ static void C_ccall f_7845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7845,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7820(t6,((C_word*)t0)[5],t5);} /* map-loop2659 in k7644 in k7641 in k7458 in a7455 in k5607 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in ... */ static void C_fcall f_7854(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_7854,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7900 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_ccall f_7902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7902,2,av);} /* chicken-syntax.scm:718: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[127]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_ccall f_7904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_7904,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7908,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:722: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[127]; av2[3]=t2; av2[4]=lf[130]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7906 in a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_7908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_7908,2,av);} a=C_alloc(8); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_cdr(t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7918,a[2]=t5,a[3]=t7,a[4]=((C_word*)t0)[3],a[5]=((C_word)li42),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_7918(t9,((C_word*)t0)[4],t2,C_SCHEME_TRUE);} /* fold in k7906 in a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_fcall f_7918(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_7918,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(C_i_nullp(t2))){ t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[2]); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,lf[29],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=t2; t7=C_u_i_cdr(t6); t8=C_i_pairp(t5); if(C_truep(C_i_not(t8))){ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7945,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t7,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* chicken-syntax.scm:731: ##sys#check-syntax */ t10=*((C_word*)lf[45]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=lf[127]; av2[3]=t5; av2[4]=lf[128]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t9=C_i_cdr(t5); if(C_truep(C_i_nullp(t9))){ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7980,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t7,tmp=(C_word)a,a+=6,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8005,a[2]=((C_word*)t0)[4],a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:736: chicken.base#gensym */ t12=*((C_word*)lf[56]+1);{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8008,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:740: ##sys#check-syntax */ t11=*((C_word*)lf[45]+1);{ C_word av2[5]; av2[0]=t11; av2[1]=t10; av2[2]=lf[127]; av2[3]=t5; av2[4]=lf[129]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}}}} /* k7943 in fold in k7906 in a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_7945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_7945,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7948,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7971,a[2]=((C_word*)t0)[6],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:732: chicken.base#gensym */ t4=*((C_word*)lf[56]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7946 in k7943 in fold in k7906 in a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in ... */ static void C_ccall f_7948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_7948,2,av);} a=C_alloc(14); t2=t1; t3=C_a_i_list(&a,2,t2,((C_word*)t0)[2]); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7963,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:734: fold */ t7=((C_word*)((C_word*)t0)[4])[1]; f_7918(t7,t6,((C_word*)t0)[5],t2);} /* k7961 in k7946 in k7943 in fold in k7906 in a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in ... */ static void C_ccall f_7963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_7963,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,4,lf[36],((C_word*)t0)[2],t1,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k7969 in k7943 in fold in k7906 in a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in ... */ static void C_ccall f_7971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7971,2,av);} /* chicken-syntax.scm:732: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k7978 in fold in k7906 in a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_7980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_7980,2,av);} a=C_alloc(14); t2=t1; t3=C_u_i_car(((C_word*)t0)[2]); t4=C_a_i_list(&a,2,t2,t3); t5=C_a_i_list(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7995,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:738: fold */ t8=((C_word*)((C_word*)t0)[4])[1]; f_7918(t8,t7,((C_word*)t0)[5],t2);} /* k7993 in k7978 in fold in k7906 in a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in ... */ static void C_ccall f_7995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_7995,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,4,lf[36],((C_word*)t0)[2],t1,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8003 in fold in k7906 in a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_8005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8005,2,av);} /* chicken-syntax.scm:736: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8006 in fold in k7906 in a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_8008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_8008,2,av);} a=C_alloc(14); t2=C_u_i_car(((C_word*)t0)[2]); t3=C_i_cadr(((C_word*)t0)[2]); t4=C_a_i_list(&a,2,t2,t3); t5=C_a_i_list(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8024,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:743: fold */ t8=((C_word*)((C_word*)t0)[4])[1]; f_7918(t8,t7,((C_word*)t0)[5],t2);} /* k8022 in k8006 in fold in k7906 in a7903 in k5604 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in ... */ static void C_ccall f_8024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ C_save_and_reclaim((void *)f_8024,2,av);} a=C_alloc(21); t2=C_a_i_list(&a,4,lf[36],((C_word*)t0)[2],t1,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8042 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_8044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8044,2,av);} /* chicken-syntax.scm:697: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[131]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a8045 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_8046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_8046,5,av);} a=C_alloc(8); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8048,a[2]=t4,a[3]=t3,a[4]=((C_word)li44),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8136,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=C_i_cdr(t2); /* chicken-syntax.scm:716: quotify-proc */ t8=t5; f_8048(t8,t6,t7,lf[131]);} /* quotify-proc2559 in a8045 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_fcall f_8048(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_8048,4,t0,t1,t2,t3);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8052,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:703: ##sys#check-syntax */ t5=*((C_word*)lf[45]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=t2; av2[4]=lf[134]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k8050 in quotify-proc2559 in a8045 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_8052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_8052,2,av);} a=C_alloc(12); t2=C_i_car(((C_word*)t0)[2]); t3=C_i_pairp(t2); t4=(C_truep(t3)?C_u_i_car(t2):t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8061,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t2))){ t7=C_u_i_cdr(t2); t8=((C_word*)t0)[2]; t9=C_u_i_cdr(t8); t10=C_a_i_cons(&a,2,t7,t9); t11=t6; f_8061(t11,C_a_i_cons(&a,2,lf[23],t10));} else{ t7=t6; f_8061(t7,C_i_cadr(((C_word*)t0)[2]));}} /* k8059 in k8050 in quotify-proc2559 in a8045 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_fcall f_8061(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,2)))){ C_save_and_reclaim_args((void *)trf_8061,2,t0,t1);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8064,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_i_pairp(t2); t5=C_i_not(t4); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8073,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(t5)){ t7=t6; f_8073(t7,t5);} else{ t7=C_i_car(t2); t8=C_eqp(lf[23],t7); if(C_truep(C_i_not(t8))){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8089,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8093,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t9,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:711: r */ t11=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=lf[133]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t9=t6; f_8073(t9,C_SCHEME_FALSE);}}} /* k8062 in k8059 in k8050 in quotify-proc2559 in a8045 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_8064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8064,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8071 in k8059 in k8050 in quotify-proc2559 in a8045 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_fcall f_8073(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){ C_save_and_reclaim_args((void *)trf_8073,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ /* chicken-syntax.scm:712: chicken.syntax#syntax-error */ t2=*((C_word*)lf[58]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[131]; av2[3]=lf[132]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k8087 in k8059 in k8050 in quotify-proc2559 in a8045 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_8089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8089,2,av);} t2=((C_word*)t0)[2]; f_8073(t2,C_i_not(t1));} /* k8091 in k8059 in k8050 in quotify-proc2559 in a8045 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_8093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8093,2,av);} t2=C_u_i_car(((C_word*)t0)[2]); /* chicken-syntax.scm:711: c */ t3=((C_word*)t0)[3];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k8134 in a8045 in k5601 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_ccall f_8136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8136,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[135],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8146 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_ccall f_8148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8148,2,av);} /* chicken-syntax.scm:686: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[138]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a8149 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_ccall f_8150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_8150,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8154,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:691: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[138]; av2[3]=t2; av2[4]=lf[139]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k8152 in a8149 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_8154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8154,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8157,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:692: r */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[44]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8155 in k8152 in a8149 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_ccall f_8157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_8157,2,av);} a=C_alloc(15); t2=t1; t3=C_i_caddr(((C_word*)t0)[2]); t4=C_a_i_list(&a,3,lf[23],C_SCHEME_END_OF_LIST,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8176,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:695: r */ t7=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[136]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k8174 in k8155 in k8152 in a8149 in k5598 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_8176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ C_save_and_reclaim((void *)f_8176,2,av);} a=C_alloc(27); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list(&a,3,t1,((C_word*)t0)[3],t2); t4=C_a_i_list(&a,3,lf[23],((C_word*)t0)[3],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list(&a,3,lf[28],((C_word*)t0)[5],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8190 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_8192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8192,2,av);} /* chicken-syntax.scm:677: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[140]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a8193 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_8194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_8194,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8198,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:682: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[140]; av2[3]=t2; av2[4]=lf[143]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k8196 in a8193 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_ccall f_8198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_8198,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8201,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[2]); /* chicken-syntax.scm:683: chicken.internal#check-for-multiple-bindings */ t4=*((C_word*)lf[141]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[2]; av2[4]=lf[142]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k8199 in k8196 in a8193 in k5595 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_8201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8201,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[50],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8212 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_8214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8214,2,av);} /* chicken-syntax.scm:658: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[144]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_8216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_8216,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8220,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:662: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[144]; av2[3]=t2; av2[4]=lf[148]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_8220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_8220,2,av);} a=C_alloc(18); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=C_i_check_list_2(t3,lf[67]); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8234,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8436,a[2]=t9,a[3]=t14,a[4]=t10,a[5]=((C_word)li53),tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_8436(t16,t12,t3);} /* k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_ccall f_8234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_8234,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8240,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8402,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li52),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_8402(t11,t7,((C_word*)t0)[4]);} /* k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_8240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_8240,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[145]); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8262,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8366,a[2]=t10,a[3]=((C_word)li51),tmp=(C_word)a,a+=4,tmp)); t12=((C_word*)t10)[1]; f_8366(t12,t8,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);} /* k8260 in k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_ccall f_8262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_8262,2,av);} a=C_alloc(14); t2=C_i_check_list_2(t1,lf[67]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8268,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8332,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=((C_word*)t0)[7],a[5]=((C_word)li49),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_8332(t7,t3,t1);} /* k8266 in k8260 in k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_8268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_8268,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8272,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=*((C_word*)lf[146]+1); t9=C_i_check_list_2(((C_word*)t0)[3],lf[67]); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8282,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8284,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,a[6]=((C_word)li48),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_8284(t14,t10,((C_word*)t0)[5],((C_word*)t0)[3]);} /* k8270 in k8266 in k8260 in k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_ccall f_8272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8272,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[37],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k8280 in k8266 in k8260 in k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_ccall f_8282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8282,2,av);} /* chicken-syntax.scm:667: ##sys#append */ t2=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2507 in k8266 in k8260 in k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_fcall f_8284(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_8284,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8313,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t7=C_slot(t2,C_fix(0)); t8=C_slot(t3,C_fix(0)); /* chicken-syntax.scm:674: g2513 */ t9=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t9; av2[1]=t6; av2[2]=t7; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k8311 in map-loop2507 in k8266 in k8260 in k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_8313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8313,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=C_slot(((C_word*)t0)[4],C_fix(1)); t7=((C_word*)((C_word*)t0)[5])[1]; f_8284(t7,((C_word*)t0)[6],t5,t6);} /* map-loop2459 in k8260 in k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_fcall f_8332(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_8332,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_list(&a,2,t3,lf[147]); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* foldl2482 in k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_fcall f_8366(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,5)))){ C_save_and_reclaim_args((void *)trf_8366,4,t0,t1,t2,t3);} a=C_alloc(12); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8396,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(0)); t8=t6; t9=t3; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8390,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8392,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:670: ##sys#decompose-lambda-list */ t12=*((C_word*)lf[103]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t10; av2[2]=t7; av2[3]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k8388 in foldl2482 in k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_8390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8390,2,av);} /* chicken-syntax.scm:670: ##sys#append */ t2=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a8391 in foldl2482 in k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_8392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8392,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k8394 in foldl2482 in k8238 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_8396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8396,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_8366(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* map-loop2430 in k8232 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_fcall f_8402(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_8402,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cadr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop2404 in k8218 in a8215 in k5592 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_fcall f_8436(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_8436,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8470 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_8472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8472,2,av);} /* chicken-syntax.scm:643: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[149]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a8473 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_8474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_8474,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8478,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:647: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[149]; av2[3]=t2; av2[4]=lf[151]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k8476 in a8473 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_8478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_8478,2,av);} a=C_alloc(5); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8486,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:650: r */ t8=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[150]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k8484 in k8476 in a8473 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_8486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_8486,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8491,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=((C_word)li55),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_8491(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} /* fold in k8484 in k8476 in a8473 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_fcall f_8491(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_8491,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t3=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,lf[37],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=C_a_i_list(&a,1,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8516,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=t2; t8=C_u_i_cdr(t7); /* chicken-syntax.scm:655: fold */ t10=t6; t11=t8; t1=t10; t2=t11; goto loop;}} /* k8514 in fold in k8484 in k8476 in a8473 in k5589 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_8516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_8516,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8524 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_8526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8526,2,av);} /* chicken-syntax.scm:589: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[150]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_8528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_8528,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8532,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:593: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[150]; av2[3]=t2; av2[4]=lf[152]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_8532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,4)))){ C_save_and_reclaim((void *)f_8532,2,av);} a=C_alloc(33); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8538,a[2]=t8,a[3]=((C_word)li57),tmp=(C_word)a,a+=4,tmp); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8566,a[2]=t10,a[3]=((C_word)li58),tmp=(C_word)a,a+=4,tmp); t13=C_set_block_item(t8,0,t11); t14=C_set_block_item(t10,0,t12); t15=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t16=t15; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=((C_word*)t17)[1]; t19=C_i_check_list_2(t3,lf[67]); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8614,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=t10,a[7]=t8,tmp=(C_word)a,a+=8,tmp); t21=C_SCHEME_UNDEFINED; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8967,a[2]=t17,a[3]=t22,a[4]=t18,a[5]=((C_word)li68),tmp=(C_word)a,a+=6,tmp)); t24=((C_word*)t22)[1]; f_8967(t24,t20,t3);} /* append*2210 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_8538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_8538,4,av);} a=C_alloc(4); t4=C_i_pairp(t2); if(C_truep(C_i_not(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8559,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* chicken-syntax.scm:600: append* */ t10=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; av2[0]=t10; av2[1]=t7; av2[2]=t9; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* k8557 in append*2210 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_8559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8559,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map*2211 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_8566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_8566,4,av);} a=C_alloc(6); if(C_truep(C_i_nullp(t3))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_pairp(t3); if(C_truep(C_i_not(t4))){ /* chicken-syntax.scm:603: proc */ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8589,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t6=C_i_car(t3); /* chicken-syntax.scm:604: proc */ t7=t2;{ C_word *av2=av; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}} /* k8587 in map*2211 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_8589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_8589,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8593,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* chicken-syntax.scm:604: map* */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k8591 in k8587 in map*2211 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_ccall f_8593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8593,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_8614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_8614,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8617,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8929,a[2]=t5,a[3]=((C_word*)t0)[7],a[4]=((C_word)li67),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_8929(t7,t3,t2,C_SCHEME_END_OF_LIST);} /* k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_8617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_8617,2,av);} a=C_alloc(26); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8621,a[2]=((C_word*)t0)[2],a[3]=((C_word)li59),tmp=(C_word)a,a+=4,tmp); t8=C_i_check_list_2(t2,lf[67]); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8639,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8895,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li66),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_8895(t13,t9,t2);} /* g2271 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_fcall f_8621(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_8621,3,t0,t1,t2);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8629,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8633,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:615: chicken.base#gensym */ t5=*((C_word*)lf[56]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k8627 in g2271 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_8629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8629,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8631 in g2271 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_8633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8633,2,av);} /* chicken-syntax.scm:615: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_ccall f_8639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_8639,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8640,a[2]=t2,a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8651,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8851,a[2]=t6,a[3]=t3,a[4]=((C_word*)t0)[7],a[5]=((C_word)li65),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_8851(t8,t4,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} /* lookup in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_8640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8640,3,av);} t3=C_i_assq(t2,((C_word*)t0)[2]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_8651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_8651,2,av);} a=C_alloc(21); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8666,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8817,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li64),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_8817(t11,t7,((C_word*)t0)[7]);} /* k8664 in k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_ccall f_8666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_8666,2,av);} a=C_alloc(9); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8668,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word)li63),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_8668(t5,((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} /* fold in k8664 in k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_fcall f_8668(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){ C_save_and_reclaim_args((void *)trf_8668,5,t0,t1,t2,t3,t4);} a=C_alloc(22); if(C_truep(C_i_nullp(t2))){ t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8687,a[2]=((C_word*)t0)[2],a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp); t10=C_i_check_list_2(((C_word*)t0)[3],lf[67]); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8701,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8703,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,a[6]=((C_word)li62),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_8703(t15,t11,((C_word*)t0)[3]);} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8741,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t6=C_i_car(t4); if(C_truep(C_i_pairp(t6))){ t7=C_i_cdar(t4); t8=t5; f_8741(t8,C_i_nullp(t7));} else{ t7=t5; f_8741(t7,C_SCHEME_FALSE);}}} /* g2322 in fold in k8664 in k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_fcall f_8687(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_8687,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8695,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:630: lookup */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; f_8640(3,av2);}} /* k8693 in g2322 in fold in k8664 in k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_8695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8695,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8699 in fold in k8664 in k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_ccall f_8701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8701,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[37],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2316 in fold in k8664 in k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_fcall f_8703(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8703,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8728,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-syntax.scm:630: g2322 */ t5=((C_word*)t0)[4]; f_8687(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8726 in map-loop2316 in fold in k8664 in k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_8728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8728,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8703(t6,((C_word*)t0)[5],t5);} /* k8739 in fold in k8664 in k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_fcall f_8741(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_8741,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=C_i_caar(((C_word*)t0)[2]); t3=C_i_car(((C_word*)t0)[3]); t4=C_a_i_list(&a,2,t2,t3); t5=C_a_i_list(&a,1,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8752,a[2]=((C_word*)t0)[4],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_i_cdr(((C_word*)t0)[5]); t9=((C_word*)t0)[3]; t10=C_u_i_cdr(t9); t11=((C_word*)t0)[2]; t12=C_u_i_cdr(t11); /* chicken-syntax.scm:635: fold */ t13=((C_word*)((C_word*)t0)[6])[1]; f_8668(t13,t7,t8,t10,t12);} else{ t2=C_i_car(((C_word*)t0)[3]); t3=C_a_i_list(&a,3,lf[23],C_SCHEME_END_OF_LIST,t2); t4=t3; t5=((C_word*)t0)[2]; t6=C_u_i_car(t5); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8789,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t8=C_i_cdr(((C_word*)t0)[5]); t9=((C_word*)t0)[3]; t10=C_u_i_cdr(t9); t11=((C_word*)t0)[2]; t12=C_u_i_cdr(t11); /* chicken-syntax.scm:641: fold */ t13=((C_word*)((C_word*)t0)[6])[1]; f_8668(t13,t7,t8,t10,t12);}} /* k8750 in k8739 in fold in k8664 in k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_8752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_8752,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8787 in k8739 in fold in k8664 in k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_8789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_8789,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,3,lf[23],((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list(&a,3,lf[28],((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop2351 in k8649 in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_fcall f_8817(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_8817,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_cadr(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_fcall f_8851(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_8851,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ /* chicken-syntax.scm:619: scheme#reverse */ t4=*((C_word*)lf[57]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=C_i_car(t2); t5=C_i_pairp(t4); if(C_truep(C_i_not(t5))){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8882,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:622: lookup */ t7=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; f_8640(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8889,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:623: map* */ t7=((C_word*)((C_word*)t0)[4])[1];{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} /* k8880 in loop in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_ccall f_8882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8882,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* chicken-syntax.scm:624: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_8851(t5,((C_word*)t0)[5],t4,t2);} /* k8887 in loop in k8637 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_ccall f_8889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8889,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); /* chicken-syntax.scm:624: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_8851(t5,((C_word*)t0)[5],t4,t2);} /* map-loop2265 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_fcall f_8895(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_8895,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8920,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-syntax.scm:615: g2271 */ t5=((C_word*)t0)[4]; f_8621(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8918 in map-loop2265 in k8615 in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_8920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8920,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8895(t6,((C_word*)t0)[5],t5);} /* loop in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_fcall f_8929(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_8929,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8942,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_listp(t4))){ /* chicken-syntax.scm:611: scheme#append */ t6=*((C_word*)lf[16]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ if(C_truep(C_i_pairp(t4))){ /* chicken-syntax.scm:612: append* */ t6=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=C_a_i_cons(&a,2,t4,t3); t7=t2; t8=C_u_i_cdr(t7); /* chicken-syntax.scm:614: loop */ t10=t1; t11=t8; t12=t6; t1=t10; t2=t11; t3=t12; goto loop;}}}} /* k8940 in loop in k8612 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_ccall f_8942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8942,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken-syntax.scm:614: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_8929(t4,((C_word*)t0)[4],t3,t1);} /* map-loop2227 in k8530 in a8527 in k5586 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_fcall f_8967(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_8967,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9001 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_ccall f_9003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9003,2,av);} /* chicken-syntax.scm:572: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[153]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_ccall f_9005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9005,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9009,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:576: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[153]; av2[3]=t2; av2[4]=lf[159]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9007 in a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_9009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_9009,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9016,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9020,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(((C_word*)t0)[3]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9042,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:578: ##sys#decompose-lambda-list */ t6=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k9014 in k9007 in a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_9016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9016,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[29],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9018 in k9007 in a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_9020(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9020,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9028,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(((C_word*)t0)[3]); t5=C_i_caddr(((C_word*)t0)[3]); /* chicken-syntax.scm:587: ##sys#expand-multiple-values-assignment */ t6=*((C_word*)lf[146]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k9026 in k9018 in k9007 in a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_9028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_9028,2,av);} a=C_alloc(3); t2=C_a_i_list(&a,1,t1); /* chicken-syntax.scm:577: ##sys#append */ t3=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a9041 in k9007 in a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_9042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_9042,5,av);} a=C_alloc(10); t5=t2; t6=C_i_check_list_2(t5,lf[154]); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9061,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9108,a[2]=t9,a[3]=((C_word)li71),tmp=(C_word)a,a+=4,tmp)); t11=((C_word*)t9)[1]; f_9108(t11,t7,t5);} /* k9046 in for-each-loop2156 in a9041 in k9007 in a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_9048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9048,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9055,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:583: ##sys#current-module */ t4=*((C_word*)lf[83]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9053 in k9046 in for-each-loop2156 in a9041 in k9007 in a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_ccall f_9055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9055,2,av);} /* chicken-syntax.scm:583: ##sys#register-export */ t2=*((C_word*)lf[156]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k9059 in a9041 in k9007 in a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_9061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_9061,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=((C_word*)t0)[2]; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9074,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li70),tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_9074(t10,((C_word*)t0)[3],t6);} /* map-loop2166 in k9059 in a9041 in k9007 in a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_fcall f_9074(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_9074,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_list(&a,2,lf[155],t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* for-each-loop2156 in a9041 in k9007 in a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_fcall f_9108(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_9108,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9118,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9048,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:582: ##sys#get */ t7=*((C_word*)lf[157]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=t4; av2[3]=lf[158]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9116 in for-each-loop2156 in a9041 in k9007 in a9004 in k5582 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_9118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9118,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9108(t3,((C_word*)t0)[4],t2);} /* k9131 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_ccall f_9133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9133,2,av);} /* chicken-syntax.scm:564: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[160]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9134 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_ccall f_9135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9135,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9139,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:568: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[160]; av2[3]=t2; av2[4]=lf[161]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9137 in a9134 in k5579 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_ccall f_9139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9139,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); t3=C_i_caddr(((C_word*)t0)[2]); /* chicken-syntax.scm:569: ##sys#expand-multiple-values-assignment */ t4=*((C_word*)lf[146]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k9152 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_9154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9154,2,av);} /* chicken-syntax.scm:555: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[162]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9155 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_9156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9156,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9160,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:559: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[162]; av2[3]=t2; av2[4]=lf[164]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9158 in a9155 in k5576 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_ccall f_9160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_9160,2,av);} a=C_alloc(18); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list(&a,1,lf[163]); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=C_a_i_cons(&a,2,lf[29],t6); t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_list(&a,4,lf[36],t2,t3,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k9180 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_ccall f_9182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9182,2,av);} /* chicken-syntax.scm:547: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[165]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9183 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_ccall f_9184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9184,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9188,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:551: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[165]; av2[3]=t2; av2[4]=lf[166]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9186 in a9183 in k5573 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_9188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_9188,2,av);} a=C_alloc(12); t2=C_i_cadr(((C_word*)t0)[2]); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); t5=C_u_i_cdr(t4); t6=C_a_i_cons(&a,2,lf[29],t5); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list(&a,3,lf[36],t2,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k9204 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in ... */ static void C_ccall f_9206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9206,2,av);} /* chicken-syntax.scm:534: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[167]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9207 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in ... */ static void C_ccall f_9208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_9208,5,av);} a=C_alloc(22); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9217,a[2]=t3,a[3]=t4,a[4]=((C_word)li79),tmp=(C_word)a,a+=5,tmp); t10=C_i_cdr(t2); t11=C_i_check_list_2(t10,lf[67]); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9252,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9254,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,a[6]=((C_word)li80),tmp=(C_word)a,a+=7,tmp)); t16=((C_word*)t14)[1]; f_9254(t16,t12,t10);} /* g2081 in a9207 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_fcall f_9217(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,8)))){ C_save_and_reclaim_args((void *)trf_9217,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9223,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li77),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9229,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp); /* chicken-syntax.scm:541: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a9222 in g2081 in a9207 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_9223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9223,2,av);} /* chicken-syntax.scm:541: ##sys#decompose-import */ t2=*((C_word*)lf[168]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=lf[48]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* a9228 in g2081 in a9207 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_9229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=8) C_bad_argc_2(c,8,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9229,8,av);} a=C_alloc(4); t8=t3; if(C_truep(C_i_not(t8))){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=lf[169]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9243,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:544: chicken.internal#module-requirement */ t10=*((C_word*)lf[171]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} /* k9241 in a9228 in g2081 in a9207 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_ccall f_9243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_9243,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[170],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9250 in a9207 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_ccall f_9252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9252,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,lf[29],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop2075 in a9207 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_fcall f_9254(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9254,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9279,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-syntax.scm:540: g2081 */ t5=((C_word*)t0)[4]; f_9217(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9277 in map-loop2075 in a9207 in k5570 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_9279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9279,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9254(t6,((C_word*)t0)[5],t5);} /* k9288 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in ... */ static void C_ccall f_9290(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9290,2,av);} /* chicken-syntax.scm:480: ##sys#extend-macro-environment */ t2=*((C_word*)lf[20]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[172]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in k5505 in ... */ static void C_ccall f_9292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_9292,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9311,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* chicken-syntax.scm:488: ##sys#check-syntax */ t6=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=lf[172]; av2[3]=t2; av2[4]=lf[180]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in k5508 in ... */ static void C_ccall f_9311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_9311,2,av);} a=C_alloc(6); t2=C_i_cadr(((C_word*)t0)[2]); t3=t2; t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9319,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t6,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken-syntax.scm:491: r */ t8=((C_word*)t0)[3];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=lf[179]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in k5511 in ... */ static void C_ccall f_9319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_9319,2,av);} a=C_alloc(20); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9328,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10184,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li99),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_10184(t12,t8,((C_word*)t0)[2]);} /* k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in k5514 in ... */ static void C_ccall f_9328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_9328,2,av);} a=C_alloc(20); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9334,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10150,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li98),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_10150(t11,t7,((C_word*)t0)[6]);} /* k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in k5517 in ... */ static void C_ccall f_9334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_9334,2,av);} a=C_alloc(26); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9338,a[2]=((C_word*)t0)[2],a[3]=((C_word)li82),tmp=(C_word)a,a+=4,tmp); t8=C_i_check_list_2(((C_word*)t0)[3],lf[67]); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9352,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10116,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li97),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_10116(t13,t9,((C_word*)t0)[3]);} /* g1666 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_fcall f_9338(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_9338,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9346,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_symbolp(t2))){ /* chicken-syntax.scm:486: chicken.base#gensym */ t4=*((C_word*)lf[56]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ /* chicken-syntax.scm:487: chicken.base#gensym */ t4=*((C_word*)lf[56]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[173]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k9344 in g1666 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_9346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9346,2,av);} /* chicken-syntax.scm:494: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in k5521 in ... */ static void C_ccall f_9352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_9352,2,av);} a=C_alloc(27); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9356,a[2]=((C_word*)t0)[2],a[3]=((C_word)li83),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9367,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10082,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li96),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_10082(t12,t8,((C_word*)t0)[7]);} /* g1694 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_fcall f_9356(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_9356,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9364,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:495: chicken.base#gensym */ t3=*((C_word*)lf[56]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[174]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9362 in g1694 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_9364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9364,2,av);} /* chicken-syntax.scm:495: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in k5524 in ... */ static void C_ccall f_9367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_9367,2,av);} a=C_alloc(27); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9371,a[2]=((C_word*)t0)[2],a[3]=((C_word)li84),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9382,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10048,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li95),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_10048(t12,t8,((C_word*)t0)[8]);} /* g1722 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_fcall f_9371(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_9371,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9379,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* chicken-syntax.scm:496: chicken.base#gensym */ t3=*((C_word*)lf[56]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[44]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k9377 in g1722 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_9379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9379,2,av);} /* chicken-syntax.scm:496: r */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in k5527 in ... */ static void C_ccall f_9382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_9382,2,av);} a=C_alloc(22); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9395,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10000,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li94),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_10000(t12,t8,((C_word*)t0)[2],((C_word*)t0)[8]);} /* k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in k5530 in ... */ static void C_ccall f_9395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_9395,2,av);} a=C_alloc(22); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[67]); t8=C_i_check_list_2(((C_word*)t0)[3],lf[67]); t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9412,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t2,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9952,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li93),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_9952(t13,t9,((C_word*)t0)[2],((C_word*)t0)[3]);} /* k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_ccall f_9412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_9412,2,av);} a=C_alloc(23); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9423,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9904,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li92),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_9904(t11,t7,((C_word*)t0)[7],((C_word*)t0)[7]);} /* k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_ccall f_9423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(51,c,5)))){ C_save_and_reclaim((void *)f_9423,2,av);} a=C_alloc(51); t2=t1; t3=C_a_i_list(&a,4,lf[175],lf[176],C_SCHEME_TRUE,C_SCHEME_TRUE); t4=C_a_i_list(&a,2,((C_word*)t0)[2],t3); t5=C_a_i_list(&a,1,t4); t6=t5; t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9674,a[2]=((C_word*)t0)[2],a[3]=((C_word)li85),tmp=(C_word)a,a+=4,tmp); t12=C_i_check_list_2(((C_word*)t0)[3],lf[67]); t13=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9692,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[2],tmp=(C_word)a,a+=12,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9834,a[2]=t11,a[3]=t9,a[4]=t15,a[5]=t10,a[6]=((C_word)li91),tmp=(C_word)a,a+=7,tmp)); t17=((C_word*)t15)[1]; f_9834(t17,t13,((C_word*)t0)[9],((C_word*)t0)[8],((C_word*)t0)[3]);} /* k9469 in k9694 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_9471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){ C_save_and_reclaim((void *)f_9471,2,av);} a=C_alloc(28); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9475,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9487,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9549,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li87),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_9549(t12,t8,((C_word*)t0)[11],((C_word*)t0)[9]);} /* k9473 in k9469 in k9694 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_ccall f_9475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(63,c,1)))){ C_save_and_reclaim((void *)f_9475,2,av);} a=C_alloc(63); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[37],t2); t4=C_a_i_list(&a,3,lf[23],C_SCHEME_END_OF_LIST,t3); t5=C_a_i_list(&a,4,lf[177],((C_word*)t0)[3],((C_word*)t0)[4],t4); t6=C_a_i_list(&a,3,lf[37],((C_word*)t0)[5],t5); t7=C_a_i_list(&a,3,lf[37],((C_word*)t0)[6],t6); t8=C_a_i_list(&a,3,lf[37],((C_word*)t0)[7],t7); t9=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t9; av2[1]=C_a_i_list(&a,3,lf[37],((C_word*)t0)[9],t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* k9485 in k9469 in k9694 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_ccall f_9487(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_9487,2,av);} a=C_alloc(17); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9499,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9501,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li86),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_9501(t11,t7,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k9497 in k9485 in k9469 in k9694 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_ccall f_9499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9499,2,av);} /* chicken-syntax.scm:497: ##sys#append */ t2=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop2031 in k9485 in k9469 in k9694 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in ... */ static void C_fcall f_9501(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_9501,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,3,lf[178],t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1995 in k9469 in k9694 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_fcall f_9549(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_9549,4,t0,t1,t2,t3);} a=C_alloc(15); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,4,t6,t7,C_SCHEME_FALSE,C_SCHEME_TRUE); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1953 in k9694 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_fcall f_9597(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_9597,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9604,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=t1,a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_pairp(t2))){ t6=C_i_pairp(t3); t7=t5; f_9604(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} else{ t6=t5; f_9604(t6,C_SCHEME_FALSE);}} /* k9602 in map-loop1953 in k9694 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in ... */ static void C_fcall f_9604(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_9604,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(0)); t3=C_slot(((C_word*)t0)[3],C_fix(0)); t4=C_a_i_list(&a,1,t2); t5=C_a_i_list(&a,2,t3,t4); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_i_setslot(((C_word*)((C_word*)t0)[4])[1],C_fix(1),t6); t8=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6); t9=C_slot(((C_word*)t0)[2],C_fix(1)); t10=C_slot(((C_word*)t0)[5],C_fix(1)); t11=C_slot(((C_word*)t0)[3],C_fix(1)); t12=((C_word*)((C_word*)t0)[6])[1]; f_9597(t12,((C_word*)t0)[7],t9,t10,t11);} else{ t2=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[8],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g1845 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static C_word C_fcall f_9674(C_word *a,C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_stack_overflow_check;{} t4=C_a_i_list(&a,4,t1,t2,C_SCHEME_TRUE,C_SCHEME_FALSE); t5=C_a_i_list(&a,4,lf[36],((C_word*)t0)[2],t4,t2); return(C_a_i_list(&a,2,t3,t5));} /* k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_ccall f_9692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){ C_save_and_reclaim((void *)f_9692,2,av);} a=C_alloc(31); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9696,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9712,a[2]=t3,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9786,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li90),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_9786(t12,t8,((C_word*)t0)[10],((C_word*)t0)[8]);} /* k9694 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_ccall f_9696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(46,c,5)))){ C_save_and_reclaim((void *)f_9696,2,av);} a=C_alloc(46); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_cons(&a,2,lf[37],t2); t4=C_a_i_list(&a,3,lf[23],C_SCHEME_END_OF_LIST,t3); t5=t4; t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[3]); t7=C_a_i_cons(&a,2,lf[23],t6); t8=t7; t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9471,a[2]=t5,a[3]=t8,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9597,a[2]=t11,a[3]=t15,a[4]=t12,a[5]=((C_word)li88),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_9597(t17,t13,((C_word*)t0)[11],((C_word*)t0)[9],((C_word*)t0)[10]);} /* k9710 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_ccall f_9712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ C_save_and_reclaim((void *)f_9712,2,av);} a=C_alloc(21); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9716,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9728,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9738,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li89),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_9738(t12,t8,((C_word*)t0)[4],((C_word*)t0)[5]);} /* k9714 in k9710 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_9716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9716,2,av);} /* chicken-syntax.scm:497: ##sys#append */ t2=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k9726 in k9710 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_ccall f_9728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_9728,2,av);} a=C_alloc(12); t2=C_a_i_list(&a,3,lf[178],((C_word*)t0)[2],C_SCHEME_FALSE); t3=C_a_i_list(&a,1,t2); /* chicken-syntax.scm:497: ##sys#append */ t4=*((C_word*)lf[55]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* map-loop1917 in k9710 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in ... */ static void C_fcall f_9738(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_9738,4,t0,t1,t2,t3);} a=C_alloc(15); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,4,t6,t7,C_SCHEME_FALSE,C_SCHEME_TRUE); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1881 in k9690 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_fcall f_9786(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ C_save_and_reclaim_args((void *)trf_9786,4,t0,t1,t2,t3);} a=C_alloc(15); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,1,t6); t9=C_a_i_list(&a,3,lf[178],t7,t8); t10=C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST); t11=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t10); t12=C_mutate(((C_word *)((C_word*)t0)[2])+1,t10); t13=C_slot(t2,C_fix(1)); t14=C_slot(t3,C_fix(1)); t16=t1; t17=t13; t18=t14; t1=t16; t2=t17; t3=t18; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1839 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in ... */ static void C_fcall f_9834(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_9834,5,t0,t1,t2,t3,t4);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9841,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=t1,a[9]=((C_word*)t0)[5],tmp=(C_word)a,a+=10,tmp); if(C_truep(C_i_pairp(t2))){ t6=C_i_pairp(t3); t7=t5; f_9841(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} else{ t6=t5; f_9841(t6,C_SCHEME_FALSE);}} /* k9839 in map-loop1839 in k9421 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in ... */ static void C_fcall f_9841(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,4)))){ C_save_and_reclaim_args((void *)trf_9841,2,t0,t1);} a=C_alloc(33); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(0)); t3=C_slot(((C_word*)t0)[3],C_fix(0)); t4=C_slot(((C_word*)t0)[4],C_fix(0)); t5=( /* chicken-syntax.scm:512: g1845 */ f_9674(C_a_i(&a,30),((C_word*)t0)[5],t2,t3,t4) ); t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); t7=C_i_setslot(((C_word*)((C_word*)t0)[6])[1],C_fix(1),t6); t8=C_mutate(((C_word *)((C_word*)t0)[6])+1,t6); t9=C_slot(((C_word*)t0)[2],C_fix(1)); t10=C_slot(((C_word*)t0)[3],C_fix(1)); t11=C_slot(((C_word*)t0)[4],C_fix(1)); t12=((C_word*)((C_word*)t0)[7])[1]; f_9834(t12,((C_word*)t0)[8],t9,t10,t11);} else{ t2=((C_word*)t0)[8];{ C_word av2[2]; av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[9],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* map-loop1808 in k9410 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in ... */ static void C_fcall f_9904(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_9904,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* map-loop1777 in k9393 in k9380 in k9365 in k9350 in k9332 in k9326 in k9317 in k9309 in a9291 in k5567 in k5564 in k5561 in k5558 in k5555 in k5552 in k5549 in k5546 in k5543 in k5539 in k5536 in k5533 in ... */ static void C_fcall f_9952(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_9952,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_i_pairp(t2); t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_slot(t3,C_fix(0)); t8=C_a_i_list(&a,2,t6,t7); t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); t12=C_slot(t2,C_fix(1)); t13=C_slot(t3,C_fix(1)); t15=t1; t16=t12; t17=t13; t1=t15; t2=t16; t3=t17; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("chicken-syntax")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_chicken_2dsyntax_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2807))){ C_save(t1); C_rereclaim2(2807*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,285); lf[0]=C_h_intern(&lf[0],14, C_text("chicken-syntax")); lf[2]=C_h_intern(&lf[2],41, C_text("##sys#chicken.condition-macro-environment")); lf[3]=C_h_intern(&lf[3],36, C_text("##sys#chicken.type-macro-environment")); lf[4]=C_h_intern(&lf[4],38, C_text("##sys#chicken.syntax-macro-environment")); lf[5]=C_h_intern(&lf[5],39, C_text("chicken.syntax#define-values-definition")); lf[6]=C_h_intern(&lf[6],36, C_text("##sys#chicken.base-macro-environment")); lf[7]=C_h_intern(&lf[7],36, C_text("##sys#chicken.time-macro-environment")); lf[8]=C_h_intern(&lf[8],31, C_text("##sys#chicken-macro-environment")); lf[9]=C_h_intern(&lf[9],34, C_text("chicken.platform#register-feature!")); lf[10]=C_h_intern(&lf[10],6, C_text("srfi-8")); lf[11]=C_h_intern(&lf[11],7, C_text("srfi-11")); lf[12]=C_h_intern(&lf[12],7, C_text("srfi-15")); lf[13]=C_h_intern(&lf[13],7, C_text("srfi-16")); lf[14]=C_h_intern(&lf[14],7, C_text("srfi-26")); lf[15]=C_h_intern(&lf[15],7, C_text("srfi-31")); lf[16]=C_h_intern(&lf[16],13, C_text("scheme#append")); lf[17]=C_h_intern(&lf[17],29, C_text("chicken.internal#macro-subset")); lf[18]=C_h_intern(&lf[18],31, C_text("##sys#default-macro-environment")); lf[19]=C_h_intern(&lf[19],23, C_text("##sys#macro-environment")); lf[20]=C_h_intern(&lf[20],30, C_text("##sys#extend-macro-environment")); lf[21]=C_h_intern(&lf[21],4, C_text("time")); lf[22]=C_h_intern(&lf[22],17, C_text("##sys#start-timer")); lf[23]=C_h_intern(&lf[23],13, C_text("##core#lambda")); lf[24]=C_h_intern(&lf[24],16, C_text("##sys#stop-timer")); lf[25]=C_h_intern(&lf[25],19, C_text("##sys#display-times")); lf[26]=C_h_intern(&lf[26],11, C_text("##sys#apply")); lf[27]=C_h_intern(&lf[27],12, C_text("##sys#values")); lf[28]=C_h_intern(&lf[28],22, C_text("##sys#call-with-values")); lf[29]=C_h_intern(&lf[29],12, C_text("##core#begin")); lf[30]=C_h_intern(&lf[30],1, C_text("t")); lf[31]=C_h_intern(&lf[31],20, C_text("##sys#er-transformer")); lf[32]=C_h_intern(&lf[32],6, C_text("assert")); lf[33]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020assertion failed")); lf[34]=C_h_intern(&lf[34],12, C_text("##core#check")); lf[35]=C_h_intern(&lf[35],11, C_text("##sys#error")); lf[36]=C_h_intern(&lf[36],9, C_text("##core#if")); lf[37]=C_h_intern(&lf[37],10, C_text("##core#let")); lf[38]=C_h_intern(&lf[38],12, C_text("##core#quote")); lf[39]=C_h_intern(&lf[39],27, C_text("chicken.syntax#strip-syntax")); lf[40]=C_h_intern(&lf[40],20, C_text("scheme#string-append")); lf[41]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[42]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002) ")); lf[43]=C_h_intern(&lf[43],30, C_text("chicken.syntax#get-line-number")); lf[44]=C_h_intern(&lf[44],3, C_text("tmp")); lf[45]=C_h_intern(&lf[45],18, C_text("##sys#check-syntax")); lf[46]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[47]=C_h_intern(&lf[47],17, C_text("require-extension")); lf[48]=C_h_intern(&lf[48],6, C_text("import")); lf[49]=C_h_intern(&lf[49],3, C_text("rec")); lf[50]=C_h_intern(&lf[50],14, C_text("##core#letrec\052")); lf[51]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[52]=C_h_intern(&lf[52],5, C_text("apply")); lf[53]=C_h_intern(&lf[53],12, C_text("scheme#apply")); lf[54]=C_h_intern(&lf[54],4, C_text("cute")); lf[55]=C_h_intern(&lf[55],12, C_text("##sys#append")); lf[56]=C_h_intern(&lf[56],19, C_text("chicken.base#gensym")); lf[57]=C_h_intern(&lf[57],14, C_text("scheme#reverse")); lf[58]=C_h_intern(&lf[58],27, C_text("chicken.syntax#syntax-error")); lf[59]=C_decode_literal(C_heaptop,C_text("\376B\000\000+tail patterns after <...> are not supported")); lf[60]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047you need to supply at least a procedure")); lf[61]=C_h_intern(&lf[61],5, C_text("<...>")); lf[62]=C_h_intern(&lf[62],2, C_text("<>")); lf[63]=C_h_intern(&lf[63],3, C_text("cut")); lf[64]=C_decode_literal(C_heaptop,C_text("\376B\000\000+tail patterns after <...> are not supported")); lf[65]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047you need to supply at least a procedure")); lf[66]=C_h_intern(&lf[66],18, C_text("define-record-type")); lf[67]=C_h_intern(&lf[67],3, C_text("map")); lf[68]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[69]=C_h_intern(&lf[69],20, C_text("##sys#make-structure")); lf[70]=C_h_intern(&lf[70],16, C_text("##sys#structure\077")); lf[71]=C_h_intern(&lf[71],21, C_text("##sys#check-structure")); lf[72]=C_h_intern(&lf[72],15, C_text("##sys#block-ref")); lf[73]=C_h_intern(&lf[73],12, C_text("##sys#setter")); lf[74]=C_h_intern(&lf[74],16, C_text("##sys#block-set!")); lf[75]=C_h_intern(&lf[75],6, C_text("setter")); lf[76]=C_h_intern(&lf[76],1, C_text("y")); lf[77]=C_h_intern(&lf[77],1, C_text("x")); lf[78]=C_h_intern(&lf[78],31, C_text("chicken.base#getter-with-setter")); lf[79]=C_h_intern(&lf[79],6, C_text("define")); lf[80]=C_h_intern(&lf[80],26, C_text("chicken.base#symbol-append")); lf[81]=C_h_intern(&lf[81],1, C_text("#")); lf[82]=C_h_intern(&lf[82],17, C_text("##sys#module-name")); lf[83]=C_h_intern(&lf[83],20, C_text("##sys#current-module")); lf[84]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\000\000\000\002\376\001\000\000\010\001variable\376\377\001\000\000\000\001\376\003\000\000\002\376\001\000\000\010\001variabl" "e\376\001\000\000\001\001_")); lf[85]=C_h_intern(&lf[85],21, C_text("define-record-printer")); lf[86]=C_h_intern(&lf[86],29, C_text("##sys#register-record-printer")); lf[87]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\010\001variable\376\377\016\376\000\000\000\002\376\001\000\000\001\001_\376\377\001" "\000\000\000\001")); lf[88]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[89]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[90]=C_h_intern(&lf[90],2, C_text(">=")); lf[91]=C_h_intern(&lf[91],9, C_text("scheme#>=")); lf[92]=C_h_intern(&lf[92],3, C_text("car")); lf[93]=C_h_intern(&lf[93],10, C_text("scheme#car")); lf[94]=C_h_intern(&lf[94],3, C_text("cdr")); lf[95]=C_h_intern(&lf[95],10, C_text("scheme#cdr")); lf[96]=C_h_intern(&lf[96],3, C_text("eq\077")); lf[97]=C_h_intern(&lf[97],10, C_text("scheme#eq\077")); lf[98]=C_h_intern(&lf[98],6, C_text("length")); lf[99]=C_h_intern(&lf[99],13, C_text("scheme#length")); lf[100]=C_h_intern(&lf[100],11, C_text("case-lambda")); lf[101]=C_h_intern(&lf[101],5, C_text("foldr")); lf[102]=C_h_intern(&lf[102],11, C_text("lambda-list")); lf[103]=C_h_intern(&lf[103],27, C_text("##sys#decompose-lambda-list")); lf[104]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001##core#check\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001##sys#error\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001##core#immutab" "le\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001##core#quote\376\003\000\000\002\376B\000\0000no matching clause in call to \047case-lamb" "da\047 form\376\377\016\376\377\016\376\377\016\376\377\016")); lf[105]=C_h_intern(&lf[105],4, C_text("lvar")); lf[106]=C_h_intern(&lf[106],4, C_text("rvar")); lf[107]=C_h_intern(&lf[107],10, C_text("scheme#min")); lf[108]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[109]=C_h_intern(&lf[109],5, C_text("null\077")); lf[110]=C_h_intern(&lf[110],12, C_text("scheme#null\077")); lf[111]=C_h_intern(&lf[111],14, C_text("let-optionals\052")); lf[112]=C_h_intern(&lf[112],4, C_text("tmp2")); lf[113]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\004\001list\376\001\000\000\001\001_")); lf[114]=C_h_intern(&lf[114],8, C_text("optional")); lf[115]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\003\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001")); lf[116]=C_h_intern(&lf[116],13, C_text("let-optionals")); lf[117]=C_h_intern(&lf[117],21, C_text("scheme#string->symbol")); lf[118]=C_h_intern(&lf[118],21, C_text("scheme#symbol->string")); lf[119]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001%")); lf[120]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004def-")); lf[121]=C_h_intern(&lf[121],4, C_text("let\052")); lf[122]=C_h_intern(&lf[122],6, C_text("_%rest")); lf[123]=C_h_intern(&lf[123],4, C_text("body")); lf[124]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[125]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000")); lf[126]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[127]=C_h_intern(&lf[127],8, C_text("and-let\052")); lf[128]=C_h_intern(&lf[128],8, C_text("variable")); lf[129]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[130]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\001\000\000\001\001_")); lf[131]=C_h_intern(&lf[131],13, C_text("define-inline")); lf[132]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052invalid substitution form - must be lambda")); lf[133]=C_h_intern(&lf[133],6, C_text("lambda")); lf[134]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[135]=C_h_intern(&lf[135],20, C_text("##core#define-inline")); lf[136]=C_h_intern(&lf[136],8, C_text("list-ref")); lf[137]=C_h_intern(&lf[137],15, C_text("scheme#list-ref")); lf[138]=C_h_intern(&lf[138],9, C_text("nth-value")); lf[139]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[140]=C_h_intern(&lf[140],7, C_text("letrec\052")); lf[141]=C_h_intern(&lf[141],44, C_text("chicken.internal#check-for-multiple-bindings")); lf[142]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007letrec\052")); lf[143]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000" "\000\001")); lf[144]=C_h_intern(&lf[144],13, C_text("letrec-values")); lf[145]=C_h_intern(&lf[145],5, C_text("foldl")); lf[146]=C_h_intern(&lf[146],39, C_text("##sys#expand-multiple-values-assignment")); lf[147]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[148]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\013\001lambda-list\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\001\000\000\001\001_")); lf[149]=C_h_intern(&lf[149],11, C_text("let\052-values")); lf[150]=C_h_intern(&lf[150],10, C_text("let-values")); lf[151]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\004\001list\376\001\000\000\001\001_")); lf[152]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\004\001list\376\001\000\000\001\001_")); lf[153]=C_h_intern(&lf[153],13, C_text("define-values")); lf[154]=C_h_intern(&lf[154],8, C_text("for-each")); lf[155]=C_h_intern(&lf[155],33, C_text("##core#ensure-toplevel-definition")); lf[156]=C_h_intern(&lf[156],21, C_text("##sys#register-export")); lf[157]=C_h_intern(&lf[157],9, C_text("##sys#get")); lf[158]=C_h_intern(&lf[158],18, C_text("##core#macro-alias")); lf[159]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\013\001lambda-list\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[160]=C_h_intern(&lf[160],11, C_text("set!-values")); lf[161]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\013\001lambda-list\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[162]=C_h_intern(&lf[162],6, C_text("unless")); lf[163]=C_h_intern(&lf[163],16, C_text("##core#undefined")); lf[164]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\002")); lf[165]=C_h_intern(&lf[165],4, C_text("when")); lf[166]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\002")); lf[167]=C_h_intern(&lf[167],15, C_text("require-library")); lf[168]=C_h_intern(&lf[168],22, C_text("##sys#decompose-import")); lf[169]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[170]=C_h_intern(&lf[170],14, C_text("##core#require")); lf[171]=C_h_intern(&lf[171],35, C_text("chicken.internal#module-requirement")); lf[172]=C_h_intern(&lf[172],12, C_text("parameterize")); lf[173]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011parameter")); lf[174]=C_h_intern(&lf[174],5, C_text("saved")); lf[175]=C_h_intern(&lf[175],10, C_text("##core#the")); lf[176]=C_h_intern(&lf[176],7, C_text("boolean")); lf[177]=C_h_intern(&lf[177],18, C_text("##sys#dynamic-wind")); lf[178]=C_h_intern(&lf[178],11, C_text("##core#set!")); lf[179]=C_h_intern(&lf[179],8, C_text("convert\077")); lf[180]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\002")); lf[181]=C_h_intern(&lf[181],9, C_text("fluid-let")); lf[182]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\001\000\000\001\001_")); lf[183]=C_h_intern(&lf[183],16, C_text("include-relative")); lf[184]=C_h_intern(&lf[184],14, C_text("##core#include")); lf[185]=C_h_intern(&lf[185],29, C_text("##sys#current-source-filename")); lf[186]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\006\001string\376\377\016")); lf[187]=C_h_intern(&lf[187],7, C_text("include")); lf[188]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\006\001string\376\377\016")); lf[189]=C_h_intern(&lf[189],11, C_text("delay-force")); lf[190]=C_h_intern(&lf[190],18, C_text("##sys#make-promise")); lf[191]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[192]=C_h_intern(&lf[192],7, C_text("declare")); lf[193]=C_h_intern(&lf[193],14, C_text("##core#declare")); lf[194]=C_h_intern(&lf[194],7, C_text("receive")); lf[195]=C_h_intern(&lf[195],10, C_text("##sys#list")); lf[196]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\013\001lambda-list\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[197]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000")); lf[198]=C_h_intern(&lf[198],13, C_text("define-record")); lf[199]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032invalid slot specification")); lf[200]=C_h_intern(&lf[200],3, C_text("val")); lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001-")); lf[202]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001-")); lf[203]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-set!")); lf[204]=C_h_intern(&lf[204],19, C_text("##sys#string-append")); lf[205]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\077")); lf[206]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005make-")); lf[207]=C_h_intern(&lf[207],19, C_text("chicken.base#setter")); lf[208]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\001\000\000\001\001_")); lf[209]=C_h_intern(&lf[209],15, C_text("define-constant")); lf[210]=C_h_intern(&lf[210],22, C_text("##core#define-constant")); lf[211]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[212]=C_h_intern(&lf[212],19, C_text("let-compiler-syntax")); lf[213]=C_h_intern(&lf[213],26, C_text("##core#let-compiler-syntax")); lf[214]=C_h_intern(&lf[214],51, C_text("chicken.internal.syntax-rules#syntax-rules-mismatch")); lf[215]=C_h_intern(&lf[215],7, C_text("##sys#+")); lf[216]=C_h_intern(&lf[216],7, C_text("##sys#=")); lf[217]=C_h_intern(&lf[217],8, C_text("##sys#>=")); lf[218]=C_h_intern(&lf[218],12, C_text("##sys#length")); lf[219]=C_h_intern(&lf[219],11, C_text("##sys#list\077")); lf[220]=C_h_intern(&lf[220],22, C_text("define-compiler-syntax")); lf[221]=C_h_intern(&lf[221],29, C_text("##core#define-compiler-syntax")); lf[222]=C_h_intern(&lf[222],17, C_text("define-for-syntax")); lf[223]=C_h_intern(&lf[223],16, C_text("begin-for-syntax")); lf[224]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[225]=C_h_intern(&lf[225],26, C_text("##core#elaborationtimeonly")); lf[226]=C_h_intern(&lf[226],30, C_text("##sys#register-meta-expression")); lf[227]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000")); lf[228]=C_h_intern(&lf[228],6, C_text("syntax")); lf[229]=C_h_intern(&lf[229],13, C_text("##core#syntax")); lf[230]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[231]=C_h_intern(&lf[231],11, C_text("define-type")); lf[232]=C_h_intern_kw(&lf[232],9, C_text("compiling")); lf[233]=C_h_intern(&lf[233],14, C_text("##sys#features")); lf[234]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[235]=C_h_intern(&lf[235],28, C_text("##compiler#type-abbreviation")); lf[236]=C_h_intern(&lf[236],18, C_text("##sys#put/restore!")); lf[237]=C_h_intern(&lf[237],52, C_text("chicken.compiler.scrutinizer#check-and-validate-type")); lf[238]=C_h_intern(&lf[238],5, C_text("quote")); lf[239]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[240]=C_h_intern(&lf[240],17, C_text("compiler-typecase")); lf[241]=C_h_intern(&lf[241],4, C_text("else")); lf[242]=C_h_intern(&lf[242],15, C_text("##core#typecase")); lf[243]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001\376\377\001\000\000\000\001")); lf[244]=C_h_intern(&lf[244],21, C_text("define-specialization")); lf[245]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[246]=C_h_intern(&lf[246],6, C_text("inline")); lf[247]=C_h_intern(&lf[247],4, C_text("hide")); lf[248]=C_h_intern(&lf[248],10, C_text("##sys#put!")); lf[249]=C_h_intern(&lf[249],32, C_text("##compiler#local-specializations")); lf[250]=C_h_intern(&lf[250],1, C_text("\052")); lf[251]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027invalid argument syntax")); lf[252]=C_h_intern(&lf[252],15, C_text("##sys#globalize")); lf[253]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\003\376\001\000\000\001\001_\376" "\377\001\000\000\000\000\376\377\001\000\000\000\001")); lf[254]=C_h_intern(&lf[254],6, C_text("assume")); lf[255]=C_h_intern(&lf[255],3, C_text("the")); lf[256]=C_h_intern(&lf[256],11, C_text("##sys#map-n")); lf[257]=C_h_intern(&lf[257],3, C_text("let")); lf[258]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[259]=C_h_intern(&lf[259],1, C_text(":")); lf[260]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[261]=C_h_intern(&lf[261],42, C_text("chicken.compiler.scrutinizer#validate-type")); lf[262]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid type syntax")); lf[263]=C_h_intern(&lf[263],4, C_text("type")); lf[264]=C_h_intern(&lf[264],9, C_text("predicate")); lf[265]=C_h_intern(&lf[265],4, C_text("pure")); lf[266]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\006\001symbol\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[267]=C_h_intern(&lf[267],4, C_text("memv")); lf[268]=C_h_intern(&lf[268],11, C_text("scheme#memv")); lf[269]=C_h_intern(&lf[269],14, C_text("condition-case")); lf[270]=C_h_intern(&lf[270],9, C_text("condition")); lf[271]=C_h_intern(&lf[271],10, C_text("##sys#slot")); lf[272]=C_h_intern(&lf[272],24, C_text("chicken.condition#signal")); lf[273]=C_h_intern(&lf[273],4, C_text("cond")); lf[274]=C_h_intern(&lf[274],17, C_text("handle-exceptions")); lf[275]=C_h_intern(&lf[275],3, C_text("and")); lf[276]=C_h_intern(&lf[276],4, C_text("kvar")); lf[277]=C_h_intern(&lf[277],5, C_text("exvar")); lf[278]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); lf[279]=C_h_intern(&lf[279],30, C_text("call-with-current-continuation")); lf[280]=C_h_intern(&lf[280],37, C_text("scheme#call-with-current-continuation")); lf[281]=C_h_intern(&lf[281],40, C_text("chicken.condition#with-exception-handler")); lf[282]=C_h_intern(&lf[282],4, C_text("args")); lf[283]=C_h_intern(&lf[283],1, C_text("k")); lf[284]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\001\001_")); C_register_lf2(lf,285,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4197,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[664] = { {C_text("f_10000:chicken_2dsyntax_2escm"),(void*)f_10000}, {C_text("f_10048:chicken_2dsyntax_2escm"),(void*)f_10048}, {C_text("f_10073:chicken_2dsyntax_2escm"),(void*)f_10073}, {C_text("f_10082:chicken_2dsyntax_2escm"),(void*)f_10082}, {C_text("f_10107:chicken_2dsyntax_2escm"),(void*)f_10107}, {C_text("f_10116:chicken_2dsyntax_2escm"),(void*)f_10116}, {C_text("f_10141:chicken_2dsyntax_2escm"),(void*)f_10141}, {C_text("f_10150:chicken_2dsyntax_2escm"),(void*)f_10150}, {C_text("f_10184:chicken_2dsyntax_2escm"),(void*)f_10184}, {C_text("f_10220:chicken_2dsyntax_2escm"),(void*)f_10220}, {C_text("f_10222:chicken_2dsyntax_2escm"),(void*)f_10222}, {C_text("f_10226:chicken_2dsyntax_2escm"),(void*)f_10226}, {C_text("f_10240:chicken_2dsyntax_2escm"),(void*)f_10240}, {C_text("f_10244:chicken_2dsyntax_2escm"),(void*)f_10244}, {C_text("f_10252:chicken_2dsyntax_2escm"),(void*)f_10252}, {C_text("f_10255:chicken_2dsyntax_2escm"),(void*)f_10255}, {C_text("f_10259:chicken_2dsyntax_2escm"),(void*)f_10259}, {C_text("f_10267:chicken_2dsyntax_2escm"),(void*)f_10267}, {C_text("f_10270:chicken_2dsyntax_2escm"),(void*)f_10270}, {C_text("f_10277:chicken_2dsyntax_2escm"),(void*)f_10277}, {C_text("f_10301:chicken_2dsyntax_2escm"),(void*)f_10301}, {C_text("f_10313:chicken_2dsyntax_2escm"),(void*)f_10313}, {C_text("f_10317:chicken_2dsyntax_2escm"),(void*)f_10317}, {C_text("f_10329:chicken_2dsyntax_2escm"),(void*)f_10329}, {C_text("f_10339:chicken_2dsyntax_2escm"),(void*)f_10339}, {C_text("f_10387:chicken_2dsyntax_2escm"),(void*)f_10387}, {C_text("f_10445:chicken_2dsyntax_2escm"),(void*)f_10445}, {C_text("f_10460:chicken_2dsyntax_2escm"),(void*)f_10460}, {C_text("f_10464:chicken_2dsyntax_2escm"),(void*)f_10464}, {C_text("f_10476:chicken_2dsyntax_2escm"),(void*)f_10476}, {C_text("f_10486:chicken_2dsyntax_2escm"),(void*)f_10486}, {C_text("f_10534:chicken_2dsyntax_2escm"),(void*)f_10534}, {C_text("f_10590:chicken_2dsyntax_2escm"),(void*)f_10590}, {C_text("f_10599:chicken_2dsyntax_2escm"),(void*)f_10599}, {C_text("f_10606:chicken_2dsyntax_2escm"),(void*)f_10606}, {C_text("f_10615:chicken_2dsyntax_2escm"),(void*)f_10615}, {C_text("f_10617:chicken_2dsyntax_2escm"),(void*)f_10617}, {C_text("f_10667:chicken_2dsyntax_2escm"),(void*)f_10667}, {C_text("f_10681:chicken_2dsyntax_2escm"),(void*)f_10681}, {C_text("f_10687:chicken_2dsyntax_2escm"),(void*)f_10687}, {C_text("f_10735:chicken_2dsyntax_2escm"),(void*)f_10735}, {C_text("f_10769:chicken_2dsyntax_2escm"),(void*)f_10769}, {C_text("f_10794:chicken_2dsyntax_2escm"),(void*)f_10794}, {C_text("f_10803:chicken_2dsyntax_2escm"),(void*)f_10803}, {C_text("f_10828:chicken_2dsyntax_2escm"),(void*)f_10828}, {C_text("f_10837:chicken_2dsyntax_2escm"),(void*)f_10837}, {C_text("f_10873:chicken_2dsyntax_2escm"),(void*)f_10873}, {C_text("f_10875:chicken_2dsyntax_2escm"),(void*)f_10875}, {C_text("f_10879:chicken_2dsyntax_2escm"),(void*)f_10879}, {C_text("f_10890:chicken_2dsyntax_2escm"),(void*)f_10890}, {C_text("f_10892:chicken_2dsyntax_2escm"),(void*)f_10892}, {C_text("f_10896:chicken_2dsyntax_2escm"),(void*)f_10896}, {C_text("f_10907:chicken_2dsyntax_2escm"),(void*)f_10907}, {C_text("f_10909:chicken_2dsyntax_2escm"),(void*)f_10909}, {C_text("f_10913:chicken_2dsyntax_2escm"),(void*)f_10913}, {C_text("f_10928:chicken_2dsyntax_2escm"),(void*)f_10928}, {C_text("f_10930:chicken_2dsyntax_2escm"),(void*)f_10930}, {C_text("f_10942:chicken_2dsyntax_2escm"),(void*)f_10942}, {C_text("f_10944:chicken_2dsyntax_2escm"),(void*)f_10944}, {C_text("f_10948:chicken_2dsyntax_2escm"),(void*)f_10948}, {C_text("f_10970:chicken_2dsyntax_2escm"),(void*)f_10970}, {C_text("f_10985:chicken_2dsyntax_2escm"),(void*)f_10985}, {C_text("f_11035:chicken_2dsyntax_2escm"),(void*)f_11035}, {C_text("f_11037:chicken_2dsyntax_2escm"),(void*)f_11037}, {C_text("f_11041:chicken_2dsyntax_2escm"),(void*)f_11041}, {C_text("f_11047:chicken_2dsyntax_2escm"),(void*)f_11047}, {C_text("f_11050:chicken_2dsyntax_2escm"),(void*)f_11050}, {C_text("f_11053:chicken_2dsyntax_2escm"),(void*)f_11053}, {C_text("f_11059:chicken_2dsyntax_2escm"),(void*)f_11059}, {C_text("f_11062:chicken_2dsyntax_2escm"),(void*)f_11062}, {C_text("f_11065:chicken_2dsyntax_2escm"),(void*)f_11065}, {C_text("f_11069:chicken_2dsyntax_2escm"),(void*)f_11069}, {C_text("f_11097:chicken_2dsyntax_2escm"),(void*)f_11097}, {C_text("f_11129:chicken_2dsyntax_2escm"),(void*)f_11129}, {C_text("f_11160:chicken_2dsyntax_2escm"),(void*)f_11160}, {C_text("f_11162:chicken_2dsyntax_2escm"),(void*)f_11162}, {C_text("f_11178:chicken_2dsyntax_2escm"),(void*)f_11178}, {C_text("f_11181:chicken_2dsyntax_2escm"),(void*)f_11181}, {C_text("f_11184:chicken_2dsyntax_2escm"),(void*)f_11184}, {C_text("f_11198:chicken_2dsyntax_2escm"),(void*)f_11198}, {C_text("f_11210:chicken_2dsyntax_2escm"),(void*)f_11210}, {C_text("f_11214:chicken_2dsyntax_2escm"),(void*)f_11214}, {C_text("f_11307:chicken_2dsyntax_2escm"),(void*)f_11307}, {C_text("f_11311:chicken_2dsyntax_2escm"),(void*)f_11311}, {C_text("f_11326:chicken_2dsyntax_2escm"),(void*)f_11326}, {C_text("f_11346:chicken_2dsyntax_2escm"),(void*)f_11346}, {C_text("f_11352:chicken_2dsyntax_2escm"),(void*)f_11352}, {C_text("f_11372:chicken_2dsyntax_2escm"),(void*)f_11372}, {C_text("f_11380:chicken_2dsyntax_2escm"),(void*)f_11380}, {C_text("f_11405:chicken_2dsyntax_2escm"),(void*)f_11405}, {C_text("f_11415:chicken_2dsyntax_2escm"),(void*)f_11415}, {C_text("f_11422:chicken_2dsyntax_2escm"),(void*)f_11422}, {C_text("f_11426:chicken_2dsyntax_2escm"),(void*)f_11426}, {C_text("f_11430:chicken_2dsyntax_2escm"),(void*)f_11430}, {C_text("f_11432:chicken_2dsyntax_2escm"),(void*)f_11432}, {C_text("f_11436:chicken_2dsyntax_2escm"),(void*)f_11436}, {C_text("f_11447:chicken_2dsyntax_2escm"),(void*)f_11447}, {C_text("f_11449:chicken_2dsyntax_2escm"),(void*)f_11449}, {C_text("f_11459:chicken_2dsyntax_2escm"),(void*)f_11459}, {C_text("f_11472:chicken_2dsyntax_2escm"),(void*)f_11472}, {C_text("f_11488:chicken_2dsyntax_2escm"),(void*)f_11488}, {C_text("f_11494:chicken_2dsyntax_2escm"),(void*)f_11494}, {C_text("f_11497:chicken_2dsyntax_2escm"),(void*)f_11497}, {C_text("f_11503:chicken_2dsyntax_2escm"),(void*)f_11503}, {C_text("f_11512:chicken_2dsyntax_2escm"),(void*)f_11512}, {C_text("f_11519:chicken_2dsyntax_2escm"),(void*)f_11519}, {C_text("f_11533:chicken_2dsyntax_2escm"),(void*)f_11533}, {C_text("f_11544:chicken_2dsyntax_2escm"),(void*)f_11544}, {C_text("f_11547:chicken_2dsyntax_2escm"),(void*)f_11547}, {C_text("f_11553:chicken_2dsyntax_2escm"),(void*)f_11553}, {C_text("f_11562:chicken_2dsyntax_2escm"),(void*)f_11562}, {C_text("f_11569:chicken_2dsyntax_2escm"),(void*)f_11569}, {C_text("f_11583:chicken_2dsyntax_2escm"),(void*)f_11583}, {C_text("f_11595:chicken_2dsyntax_2escm"),(void*)f_11595}, {C_text("f_11597:chicken_2dsyntax_2escm"),(void*)f_11597}, {C_text("f_11607:chicken_2dsyntax_2escm"),(void*)f_11607}, {C_text("f_11617:chicken_2dsyntax_2escm"),(void*)f_11617}, {C_text("f_11631:chicken_2dsyntax_2escm"),(void*)f_11631}, {C_text("f_11644:chicken_2dsyntax_2escm"),(void*)f_11644}, {C_text("f_11692:chicken_2dsyntax_2escm"),(void*)f_11692}, {C_text("f_11694:chicken_2dsyntax_2escm"),(void*)f_11694}, {C_text("f_11698:chicken_2dsyntax_2escm"),(void*)f_11698}, {C_text("f_11705:chicken_2dsyntax_2escm"),(void*)f_11705}, {C_text("f_11713:chicken_2dsyntax_2escm"),(void*)f_11713}, {C_text("f_11721:chicken_2dsyntax_2escm"),(void*)f_11721}, {C_text("f_11723:chicken_2dsyntax_2escm"),(void*)f_11723}, {C_text("f_11727:chicken_2dsyntax_2escm"),(void*)f_11727}, {C_text("f_11730:chicken_2dsyntax_2escm"),(void*)f_11730}, {C_text("f_11751:chicken_2dsyntax_2escm"),(void*)f_11751}, {C_text("f_11753:chicken_2dsyntax_2escm"),(void*)f_11753}, {C_text("f_11757:chicken_2dsyntax_2escm"),(void*)f_11757}, {C_text("f_11768:chicken_2dsyntax_2escm"),(void*)f_11768}, {C_text("f_11770:chicken_2dsyntax_2escm"),(void*)f_11770}, {C_text("f_11774:chicken_2dsyntax_2escm"),(void*)f_11774}, {C_text("f_11783:chicken_2dsyntax_2escm"),(void*)f_11783}, {C_text("f_11786:chicken_2dsyntax_2escm"),(void*)f_11786}, {C_text("f_11789:chicken_2dsyntax_2escm"),(void*)f_11789}, {C_text("f_11812:chicken_2dsyntax_2escm"),(void*)f_11812}, {C_text("f_11828:chicken_2dsyntax_2escm"),(void*)f_11828}, {C_text("f_11830:chicken_2dsyntax_2escm"),(void*)f_11830}, {C_text("f_11834:chicken_2dsyntax_2escm"),(void*)f_11834}, {C_text("f_11840:chicken_2dsyntax_2escm"),(void*)f_11840}, {C_text("f_11843:chicken_2dsyntax_2escm"),(void*)f_11843}, {C_text("f_11867:chicken_2dsyntax_2escm"),(void*)f_11867}, {C_text("f_11871:chicken_2dsyntax_2escm"),(void*)f_11871}, {C_text("f_11878:chicken_2dsyntax_2escm"),(void*)f_11878}, {C_text("f_11905:chicken_2dsyntax_2escm"),(void*)f_11905}, {C_text("f_11907:chicken_2dsyntax_2escm"),(void*)f_11907}, {C_text("f_11932:chicken_2dsyntax_2escm"),(void*)f_11932}, {C_text("f_11951:chicken_2dsyntax_2escm"),(void*)f_11951}, {C_text("f_11953:chicken_2dsyntax_2escm"),(void*)f_11953}, {C_text("f_11963:chicken_2dsyntax_2escm"),(void*)f_11963}, {C_text("f_11972:chicken_2dsyntax_2escm"),(void*)f_11972}, {C_text("f_11976:chicken_2dsyntax_2escm"),(void*)f_11976}, {C_text("f_11979:chicken_2dsyntax_2escm"),(void*)f_11979}, {C_text("f_11982:chicken_2dsyntax_2escm"),(void*)f_11982}, {C_text("f_11985:chicken_2dsyntax_2escm"),(void*)f_11985}, {C_text("f_11993:chicken_2dsyntax_2escm"),(void*)f_11993}, {C_text("f_12003:chicken_2dsyntax_2escm"),(void*)f_12003}, {C_text("f_12006:chicken_2dsyntax_2escm"),(void*)f_12006}, {C_text("f_12012:chicken_2dsyntax_2escm"),(void*)f_12012}, {C_text("f_12047:chicken_2dsyntax_2escm"),(void*)f_12047}, {C_text("f_12049:chicken_2dsyntax_2escm"),(void*)f_12049}, {C_text("f_12107:chicken_2dsyntax_2escm"),(void*)f_12107}, {C_text("f_12111:chicken_2dsyntax_2escm"),(void*)f_12111}, {C_text("f_12144:chicken_2dsyntax_2escm"),(void*)f_12144}, {C_text("f_12146:chicken_2dsyntax_2escm"),(void*)f_12146}, {C_text("f_12171:chicken_2dsyntax_2escm"),(void*)f_12171}, {C_text("f_12188:chicken_2dsyntax_2escm"),(void*)f_12188}, {C_text("f_12190:chicken_2dsyntax_2escm"),(void*)f_12190}, {C_text("f_12208:chicken_2dsyntax_2escm"),(void*)f_12208}, {C_text("f_12244:chicken_2dsyntax_2escm"),(void*)f_12244}, {C_text("f_12261:chicken_2dsyntax_2escm"),(void*)f_12261}, {C_text("f_12318:chicken_2dsyntax_2escm"),(void*)f_12318}, {C_text("f_12320:chicken_2dsyntax_2escm"),(void*)f_12320}, {C_text("f_12330:chicken_2dsyntax_2escm"),(void*)f_12330}, {C_text("f_12347:chicken_2dsyntax_2escm"),(void*)f_12347}, {C_text("f_12368:chicken_2dsyntax_2escm"),(void*)f_12368}, {C_text("f_12378:chicken_2dsyntax_2escm"),(void*)f_12378}, {C_text("f_12386:chicken_2dsyntax_2escm"),(void*)f_12386}, {C_text("f_12388:chicken_2dsyntax_2escm"),(void*)f_12388}, {C_text("f_12404:chicken_2dsyntax_2escm"),(void*)f_12404}, {C_text("f_12414:chicken_2dsyntax_2escm"),(void*)f_12414}, {C_text("f_12448:chicken_2dsyntax_2escm"),(void*)f_12448}, {C_text("f_12492:chicken_2dsyntax_2escm"),(void*)f_12492}, {C_text("f_12498:chicken_2dsyntax_2escm"),(void*)f_12498}, {C_text("f_12501:chicken_2dsyntax_2escm"),(void*)f_12501}, {C_text("f_12507:chicken_2dsyntax_2escm"),(void*)f_12507}, {C_text("f_12516:chicken_2dsyntax_2escm"),(void*)f_12516}, {C_text("f_12523:chicken_2dsyntax_2escm"),(void*)f_12523}, {C_text("f_12537:chicken_2dsyntax_2escm"),(void*)f_12537}, {C_text("f_12548:chicken_2dsyntax_2escm"),(void*)f_12548}, {C_text("f_12551:chicken_2dsyntax_2escm"),(void*)f_12551}, {C_text("f_12557:chicken_2dsyntax_2escm"),(void*)f_12557}, {C_text("f_12566:chicken_2dsyntax_2escm"),(void*)f_12566}, {C_text("f_12573:chicken_2dsyntax_2escm"),(void*)f_12573}, {C_text("f_12585:chicken_2dsyntax_2escm"),(void*)f_12585}, {C_text("f_12596:chicken_2dsyntax_2escm"),(void*)f_12596}, {C_text("f_12627:chicken_2dsyntax_2escm"),(void*)f_12627}, {C_text("f_12629:chicken_2dsyntax_2escm"),(void*)f_12629}, {C_text("f_12633:chicken_2dsyntax_2escm"),(void*)f_12633}, {C_text("f_12649:chicken_2dsyntax_2escm"),(void*)f_12649}, {C_text("f_12665:chicken_2dsyntax_2escm"),(void*)f_12665}, {C_text("f_12667:chicken_2dsyntax_2escm"),(void*)f_12667}, {C_text("f_12671:chicken_2dsyntax_2escm"),(void*)f_12671}, {C_text("f_12680:chicken_2dsyntax_2escm"),(void*)f_12680}, {C_text("f_12687:chicken_2dsyntax_2escm"),(void*)f_12687}, {C_text("f_12695:chicken_2dsyntax_2escm"),(void*)f_12695}, {C_text("f_12697:chicken_2dsyntax_2escm"),(void*)f_12697}, {C_text("f_12722:chicken_2dsyntax_2escm"),(void*)f_12722}, {C_text("f_12726:chicken_2dsyntax_2escm"),(void*)f_12726}, {C_text("f_12776:chicken_2dsyntax_2escm"),(void*)f_12776}, {C_text("f_12778:chicken_2dsyntax_2escm"),(void*)f_12778}, {C_text("f_12782:chicken_2dsyntax_2escm"),(void*)f_12782}, {C_text("f_12785:chicken_2dsyntax_2escm"),(void*)f_12785}, {C_text("f_12788:chicken_2dsyntax_2escm"),(void*)f_12788}, {C_text("f_12791:chicken_2dsyntax_2escm"),(void*)f_12791}, {C_text("f_12794:chicken_2dsyntax_2escm"),(void*)f_12794}, {C_text("f_12797:chicken_2dsyntax_2escm"),(void*)f_12797}, {C_text("f_12799:chicken_2dsyntax_2escm"),(void*)f_12799}, {C_text("f_12803:chicken_2dsyntax_2escm"),(void*)f_12803}, {C_text("f_12806:chicken_2dsyntax_2escm"),(void*)f_12806}, {C_text("f_12809:chicken_2dsyntax_2escm"),(void*)f_12809}, {C_text("f_12834:chicken_2dsyntax_2escm"),(void*)f_12834}, {C_text("f_12848:chicken_2dsyntax_2escm"),(void*)f_12848}, {C_text("f_12850:chicken_2dsyntax_2escm"),(void*)f_12850}, {C_text("f_12929:chicken_2dsyntax_2escm"),(void*)f_12929}, {C_text("f_12954:chicken_2dsyntax_2escm"),(void*)f_12954}, {C_text("f_12961:chicken_2dsyntax_2escm"),(void*)f_12961}, {C_text("f_12965:chicken_2dsyntax_2escm"),(void*)f_12965}, {C_text("f_12985:chicken_2dsyntax_2escm"),(void*)f_12985}, {C_text("f_13010:chicken_2dsyntax_2escm"),(void*)f_13010}, {C_text("f_13049:chicken_2dsyntax_2escm"),(void*)f_13049}, {C_text("f_13051:chicken_2dsyntax_2escm"),(void*)f_13051}, {C_text("f_13055:chicken_2dsyntax_2escm"),(void*)f_13055}, {C_text("f_13058:chicken_2dsyntax_2escm"),(void*)f_13058}, {C_text("f_13061:chicken_2dsyntax_2escm"),(void*)f_13061}, {C_text("f_13072:chicken_2dsyntax_2escm"),(void*)f_13072}, {C_text("f_4197:chicken_2dsyntax_2escm"),(void*)f_4197}, {C_text("f_4200:chicken_2dsyntax_2escm"),(void*)f_4200}, {C_text("f_4203:chicken_2dsyntax_2escm"),(void*)f_4203}, {C_text("f_4313:chicken_2dsyntax_2escm"),(void*)f_4313}, {C_text("f_4331:chicken_2dsyntax_2escm"),(void*)f_4331}, {C_text("f_4371:chicken_2dsyntax_2escm"),(void*)f_4371}, {C_text("f_4385:chicken_2dsyntax_2escm"),(void*)f_4385}, {C_text("f_5485:chicken_2dsyntax_2escm"),(void*)f_5485}, {C_text("f_5488:chicken_2dsyntax_2escm"),(void*)f_5488}, {C_text("f_5491:chicken_2dsyntax_2escm"),(void*)f_5491}, {C_text("f_5494:chicken_2dsyntax_2escm"),(void*)f_5494}, {C_text("f_5498:chicken_2dsyntax_2escm"),(void*)f_5498}, {C_text("f_5501:chicken_2dsyntax_2escm"),(void*)f_5501}, {C_text("f_5504:chicken_2dsyntax_2escm"),(void*)f_5504}, {C_text("f_5507:chicken_2dsyntax_2escm"),(void*)f_5507}, {C_text("f_5510:chicken_2dsyntax_2escm"),(void*)f_5510}, {C_text("f_5513:chicken_2dsyntax_2escm"),(void*)f_5513}, {C_text("f_5516:chicken_2dsyntax_2escm"),(void*)f_5516}, {C_text("f_5519:chicken_2dsyntax_2escm"),(void*)f_5519}, {C_text("f_5523:chicken_2dsyntax_2escm"),(void*)f_5523}, {C_text("f_5526:chicken_2dsyntax_2escm"),(void*)f_5526}, {C_text("f_5529:chicken_2dsyntax_2escm"),(void*)f_5529}, {C_text("f_5532:chicken_2dsyntax_2escm"),(void*)f_5532}, {C_text("f_5535:chicken_2dsyntax_2escm"),(void*)f_5535}, {C_text("f_5538:chicken_2dsyntax_2escm"),(void*)f_5538}, {C_text("f_5541:chicken_2dsyntax_2escm"),(void*)f_5541}, {C_text("f_5545:chicken_2dsyntax_2escm"),(void*)f_5545}, {C_text("f_5548:chicken_2dsyntax_2escm"),(void*)f_5548}, {C_text("f_5551:chicken_2dsyntax_2escm"),(void*)f_5551}, {C_text("f_5554:chicken_2dsyntax_2escm"),(void*)f_5554}, {C_text("f_5557:chicken_2dsyntax_2escm"),(void*)f_5557}, {C_text("f_5560:chicken_2dsyntax_2escm"),(void*)f_5560}, {C_text("f_5563:chicken_2dsyntax_2escm"),(void*)f_5563}, {C_text("f_5566:chicken_2dsyntax_2escm"),(void*)f_5566}, {C_text("f_5569:chicken_2dsyntax_2escm"),(void*)f_5569}, {C_text("f_5572:chicken_2dsyntax_2escm"),(void*)f_5572}, {C_text("f_5575:chicken_2dsyntax_2escm"),(void*)f_5575}, {C_text("f_5578:chicken_2dsyntax_2escm"),(void*)f_5578}, {C_text("f_5581:chicken_2dsyntax_2escm"),(void*)f_5581}, {C_text("f_5584:chicken_2dsyntax_2escm"),(void*)f_5584}, {C_text("f_5588:chicken_2dsyntax_2escm"),(void*)f_5588}, {C_text("f_5591:chicken_2dsyntax_2escm"),(void*)f_5591}, {C_text("f_5594:chicken_2dsyntax_2escm"),(void*)f_5594}, {C_text("f_5597:chicken_2dsyntax_2escm"),(void*)f_5597}, {C_text("f_5600:chicken_2dsyntax_2escm"),(void*)f_5600}, {C_text("f_5603:chicken_2dsyntax_2escm"),(void*)f_5603}, {C_text("f_5606:chicken_2dsyntax_2escm"),(void*)f_5606}, {C_text("f_5609:chicken_2dsyntax_2escm"),(void*)f_5609}, {C_text("f_5612:chicken_2dsyntax_2escm"),(void*)f_5612}, {C_text("f_5615:chicken_2dsyntax_2escm"),(void*)f_5615}, {C_text("f_5618:chicken_2dsyntax_2escm"),(void*)f_5618}, {C_text("f_5621:chicken_2dsyntax_2escm"),(void*)f_5621}, {C_text("f_5624:chicken_2dsyntax_2escm"),(void*)f_5624}, {C_text("f_5627:chicken_2dsyntax_2escm"),(void*)f_5627}, {C_text("f_5630:chicken_2dsyntax_2escm"),(void*)f_5630}, {C_text("f_5633:chicken_2dsyntax_2escm"),(void*)f_5633}, {C_text("f_5636:chicken_2dsyntax_2escm"),(void*)f_5636}, {C_text("f_5639:chicken_2dsyntax_2escm"),(void*)f_5639}, {C_text("f_5642:chicken_2dsyntax_2escm"),(void*)f_5642}, {C_text("f_5645:chicken_2dsyntax_2escm"),(void*)f_5645}, {C_text("f_5649:chicken_2dsyntax_2escm"),(void*)f_5649}, {C_text("f_5652:chicken_2dsyntax_2escm"),(void*)f_5652}, {C_text("f_5655:chicken_2dsyntax_2escm"),(void*)f_5655}, {C_text("f_5659:chicken_2dsyntax_2escm"),(void*)f_5659}, {C_text("f_5662:chicken_2dsyntax_2escm"),(void*)f_5662}, {C_text("f_5665:chicken_2dsyntax_2escm"),(void*)f_5665}, {C_text("f_5669:chicken_2dsyntax_2escm"),(void*)f_5669}, {C_text("f_5673:chicken_2dsyntax_2escm"),(void*)f_5673}, {C_text("f_5675:chicken_2dsyntax_2escm"),(void*)f_5675}, {C_text("f_5679:chicken_2dsyntax_2escm"),(void*)f_5679}, {C_text("f_5722:chicken_2dsyntax_2escm"),(void*)f_5722}, {C_text("f_5724:chicken_2dsyntax_2escm"),(void*)f_5724}, {C_text("f_5728:chicken_2dsyntax_2escm"),(void*)f_5728}, {C_text("f_5739:chicken_2dsyntax_2escm"),(void*)f_5739}, {C_text("f_5742:chicken_2dsyntax_2escm"),(void*)f_5742}, {C_text("f_5765:chicken_2dsyntax_2escm"),(void*)f_5765}, {C_text("f_5784:chicken_2dsyntax_2escm"),(void*)f_5784}, {C_text("f_5794:chicken_2dsyntax_2escm"),(void*)f_5794}, {C_text("f_5801:chicken_2dsyntax_2escm"),(void*)f_5801}, {C_text("f_5811:chicken_2dsyntax_2escm"),(void*)f_5811}, {C_text("f_5813:chicken_2dsyntax_2escm"),(void*)f_5813}, {C_text("f_5821:chicken_2dsyntax_2escm"),(void*)f_5821}, {C_text("f_5829:chicken_2dsyntax_2escm"),(void*)f_5829}, {C_text("f_5831:chicken_2dsyntax_2escm"),(void*)f_5831}, {C_text("f_5835:chicken_2dsyntax_2escm"),(void*)f_5835}, {C_text("f_5894:chicken_2dsyntax_2escm"),(void*)f_5894}, {C_text("f_5896:chicken_2dsyntax_2escm"),(void*)f_5896}, {C_text("f_5900:chicken_2dsyntax_2escm"),(void*)f_5900}, {C_text("f_5903:chicken_2dsyntax_2escm"),(void*)f_5903}, {C_text("f_5906:chicken_2dsyntax_2escm"),(void*)f_5906}, {C_text("f_5909:chicken_2dsyntax_2escm"),(void*)f_5909}, {C_text("f_5916:chicken_2dsyntax_2escm"),(void*)f_5916}, {C_text("f_5926:chicken_2dsyntax_2escm"),(void*)f_5926}, {C_text("f_5929:chicken_2dsyntax_2escm"),(void*)f_5929}, {C_text("f_5935:chicken_2dsyntax_2escm"),(void*)f_5935}, {C_text("f_5946:chicken_2dsyntax_2escm"),(void*)f_5946}, {C_text("f_5962:chicken_2dsyntax_2escm"),(void*)f_5962}, {C_text("f_5972:chicken_2dsyntax_2escm"),(void*)f_5972}, {C_text("f_5995:chicken_2dsyntax_2escm"),(void*)f_5995}, {C_text("f_5998:chicken_2dsyntax_2escm"),(void*)f_5998}, {C_text("f_6015:chicken_2dsyntax_2escm"),(void*)f_6015}, {C_text("f_6021:chicken_2dsyntax_2escm"),(void*)f_6021}, {C_text("f_6038:chicken_2dsyntax_2escm"),(void*)f_6038}, {C_text("f_6061:chicken_2dsyntax_2escm"),(void*)f_6061}, {C_text("f_6089:chicken_2dsyntax_2escm"),(void*)f_6089}, {C_text("f_6091:chicken_2dsyntax_2escm"),(void*)f_6091}, {C_text("f_6095:chicken_2dsyntax_2escm"),(void*)f_6095}, {C_text("f_6098:chicken_2dsyntax_2escm"),(void*)f_6098}, {C_text("f_6101:chicken_2dsyntax_2escm"),(void*)f_6101}, {C_text("f_6104:chicken_2dsyntax_2escm"),(void*)f_6104}, {C_text("f_6111:chicken_2dsyntax_2escm"),(void*)f_6111}, {C_text("f_6121:chicken_2dsyntax_2escm"),(void*)f_6121}, {C_text("f_6124:chicken_2dsyntax_2escm"),(void*)f_6124}, {C_text("f_6130:chicken_2dsyntax_2escm"),(void*)f_6130}, {C_text("f_6137:chicken_2dsyntax_2escm"),(void*)f_6137}, {C_text("f_6153:chicken_2dsyntax_2escm"),(void*)f_6153}, {C_text("f_6163:chicken_2dsyntax_2escm"),(void*)f_6163}, {C_text("f_6186:chicken_2dsyntax_2escm"),(void*)f_6186}, {C_text("f_6189:chicken_2dsyntax_2escm"),(void*)f_6189}, {C_text("f_6206:chicken_2dsyntax_2escm"),(void*)f_6206}, {C_text("f_6212:chicken_2dsyntax_2escm"),(void*)f_6212}, {C_text("f_6261:chicken_2dsyntax_2escm"),(void*)f_6261}, {C_text("f_6263:chicken_2dsyntax_2escm"),(void*)f_6263}, {C_text("f_6267:chicken_2dsyntax_2escm"),(void*)f_6267}, {C_text("f_6273:chicken_2dsyntax_2escm"),(void*)f_6273}, {C_text("f_6276:chicken_2dsyntax_2escm"),(void*)f_6276}, {C_text("f_6288:chicken_2dsyntax_2escm"),(void*)f_6288}, {C_text("f_6291:chicken_2dsyntax_2escm"),(void*)f_6291}, {C_text("f_6297:chicken_2dsyntax_2escm"),(void*)f_6297}, {C_text("f_6300:chicken_2dsyntax_2escm"),(void*)f_6300}, {C_text("f_6309:chicken_2dsyntax_2escm"),(void*)f_6309}, {C_text("f_6340:chicken_2dsyntax_2escm"),(void*)f_6340}, {C_text("f_6342:chicken_2dsyntax_2escm"),(void*)f_6342}, {C_text("f_6361:chicken_2dsyntax_2escm"),(void*)f_6361}, {C_text("f_6367:chicken_2dsyntax_2escm"),(void*)f_6367}, {C_text("f_6374:chicken_2dsyntax_2escm"),(void*)f_6374}, {C_text("f_6378:chicken_2dsyntax_2escm"),(void*)f_6378}, {C_text("f_6382:chicken_2dsyntax_2escm"),(void*)f_6382}, {C_text("f_6386:chicken_2dsyntax_2escm"),(void*)f_6386}, {C_text("f_6414:chicken_2dsyntax_2escm"),(void*)f_6414}, {C_text("f_6435:chicken_2dsyntax_2escm"),(void*)f_6435}, {C_text("f_6514:chicken_2dsyntax_2escm"),(void*)f_6514}, {C_text("f_6557:chicken_2dsyntax_2escm"),(void*)f_6557}, {C_text("f_6570:chicken_2dsyntax_2escm"),(void*)f_6570}, {C_text("f_6572:chicken_2dsyntax_2escm"),(void*)f_6572}, {C_text("f_6610:chicken_2dsyntax_2escm"),(void*)f_6610}, {C_text("f_6645:chicken_2dsyntax_2escm"),(void*)f_6645}, {C_text("f_6652:chicken_2dsyntax_2escm"),(void*)f_6652}, {C_text("f_6656:chicken_2dsyntax_2escm"),(void*)f_6656}, {C_text("f_6660:chicken_2dsyntax_2escm"),(void*)f_6660}, {C_text("f_6662:chicken_2dsyntax_2escm"),(void*)f_6662}, {C_text("f_6666:chicken_2dsyntax_2escm"),(void*)f_6666}, {C_text("f_6680:chicken_2dsyntax_2escm"),(void*)f_6680}, {C_text("f_6683:chicken_2dsyntax_2escm"),(void*)f_6683}, {C_text("f_6686:chicken_2dsyntax_2escm"),(void*)f_6686}, {C_text("f_6708:chicken_2dsyntax_2escm"),(void*)f_6708}, {C_text("f_6715:chicken_2dsyntax_2escm"),(void*)f_6715}, {C_text("f_6719:chicken_2dsyntax_2escm"),(void*)f_6719}, {C_text("f_6730:chicken_2dsyntax_2escm"),(void*)f_6730}, {C_text("f_6733:chicken_2dsyntax_2escm"),(void*)f_6733}, {C_text("f_6736:chicken_2dsyntax_2escm"),(void*)f_6736}, {C_text("f_6750:chicken_2dsyntax_2escm"),(void*)f_6750}, {C_text("f_6757:chicken_2dsyntax_2escm"),(void*)f_6757}, {C_text("f_6761:chicken_2dsyntax_2escm"),(void*)f_6761}, {C_text("f_6773:chicken_2dsyntax_2escm"),(void*)f_6773}, {C_text("f_6775:chicken_2dsyntax_2escm"),(void*)f_6775}, {C_text("f_6779:chicken_2dsyntax_2escm"),(void*)f_6779}, {C_text("f_6781:chicken_2dsyntax_2escm"),(void*)f_6781}, {C_text("f_6787:chicken_2dsyntax_2escm"),(void*)f_6787}, {C_text("f_6801:chicken_2dsyntax_2escm"),(void*)f_6801}, {C_text("f_6805:chicken_2dsyntax_2escm"),(void*)f_6805}, {C_text("f_6813:chicken_2dsyntax_2escm"),(void*)f_6813}, {C_text("f_6816:chicken_2dsyntax_2escm"),(void*)f_6816}, {C_text("f_6819:chicken_2dsyntax_2escm"),(void*)f_6819}, {C_text("f_6822:chicken_2dsyntax_2escm"),(void*)f_6822}, {C_text("f_6825:chicken_2dsyntax_2escm"),(void*)f_6825}, {C_text("f_6828:chicken_2dsyntax_2escm"),(void*)f_6828}, {C_text("f_6831:chicken_2dsyntax_2escm"),(void*)f_6831}, {C_text("f_6834:chicken_2dsyntax_2escm"),(void*)f_6834}, {C_text("f_6837:chicken_2dsyntax_2escm"),(void*)f_6837}, {C_text("f_6840:chicken_2dsyntax_2escm"),(void*)f_6840}, {C_text("f_6847:chicken_2dsyntax_2escm"),(void*)f_6847}, {C_text("f_6863:chicken_2dsyntax_2escm"),(void*)f_6863}, {C_text("f_6865:chicken_2dsyntax_2escm"),(void*)f_6865}, {C_text("f_6873:chicken_2dsyntax_2escm"),(void*)f_6873}, {C_text("f_6883:chicken_2dsyntax_2escm"),(void*)f_6883}, {C_text("f_6887:chicken_2dsyntax_2escm"),(void*)f_6887}, {C_text("f_6897:chicken_2dsyntax_2escm"),(void*)f_6897}, {C_text("f_6901:chicken_2dsyntax_2escm"),(void*)f_6901}, {C_text("f_6903:chicken_2dsyntax_2escm"),(void*)f_6903}, {C_text("f_6911:chicken_2dsyntax_2escm"),(void*)f_6911}, {C_text("f_6913:chicken_2dsyntax_2escm"),(void*)f_6913}, {C_text("f_6917:chicken_2dsyntax_2escm"),(void*)f_6917}, {C_text("f_6939:chicken_2dsyntax_2escm"),(void*)f_6939}, {C_text("f_6941:chicken_2dsyntax_2escm"),(void*)f_6941}, {C_text("f_6989:chicken_2dsyntax_2escm"),(void*)f_6989}, {C_text("f_7042:chicken_2dsyntax_2escm"),(void*)f_7042}, {C_text("f_7053:chicken_2dsyntax_2escm"),(void*)f_7053}, {C_text("f_7090:chicken_2dsyntax_2escm"),(void*)f_7090}, {C_text("f_7118:chicken_2dsyntax_2escm"),(void*)f_7118}, {C_text("f_7145:chicken_2dsyntax_2escm"),(void*)f_7145}, {C_text("f_7155:chicken_2dsyntax_2escm"),(void*)f_7155}, {C_text("f_7157:chicken_2dsyntax_2escm"),(void*)f_7157}, {C_text("f_7182:chicken_2dsyntax_2escm"),(void*)f_7182}, {C_text("f_7217:chicken_2dsyntax_2escm"),(void*)f_7217}, {C_text("f_7219:chicken_2dsyntax_2escm"),(void*)f_7219}, {C_text("f_7223:chicken_2dsyntax_2escm"),(void*)f_7223}, {C_text("f_7235:chicken_2dsyntax_2escm"),(void*)f_7235}, {C_text("f_7238:chicken_2dsyntax_2escm"),(void*)f_7238}, {C_text("f_7241:chicken_2dsyntax_2escm"),(void*)f_7241}, {C_text("f_7244:chicken_2dsyntax_2escm"),(void*)f_7244}, {C_text("f_7255:chicken_2dsyntax_2escm"),(void*)f_7255}, {C_text("f_7257:chicken_2dsyntax_2escm"),(void*)f_7257}, {C_text("f_7283:chicken_2dsyntax_2escm"),(void*)f_7283}, {C_text("f_7294:chicken_2dsyntax_2escm"),(void*)f_7294}, {C_text("f_7377:chicken_2dsyntax_2escm"),(void*)f_7377}, {C_text("f_7379:chicken_2dsyntax_2escm"),(void*)f_7379}, {C_text("f_7383:chicken_2dsyntax_2escm"),(void*)f_7383}, {C_text("f_7386:chicken_2dsyntax_2escm"),(void*)f_7386}, {C_text("f_7416:chicken_2dsyntax_2escm"),(void*)f_7416}, {C_text("f_7426:chicken_2dsyntax_2escm"),(void*)f_7426}, {C_text("f_7454:chicken_2dsyntax_2escm"),(void*)f_7454}, {C_text("f_7456:chicken_2dsyntax_2escm"),(void*)f_7456}, {C_text("f_7460:chicken_2dsyntax_2escm"),(void*)f_7460}, {C_text("f_7479:chicken_2dsyntax_2escm"),(void*)f_7479}, {C_text("f_7483:chicken_2dsyntax_2escm"),(void*)f_7483}, {C_text("f_7487:chicken_2dsyntax_2escm"),(void*)f_7487}, {C_text("f_7489:chicken_2dsyntax_2escm"),(void*)f_7489}, {C_text("f_7510:chicken_2dsyntax_2escm"),(void*)f_7510}, {C_text("f_7528:chicken_2dsyntax_2escm"),(void*)f_7528}, {C_text("f_7536:chicken_2dsyntax_2escm"),(void*)f_7536}, {C_text("f_7540:chicken_2dsyntax_2escm"),(void*)f_7540}, {C_text("f_7550:chicken_2dsyntax_2escm"),(void*)f_7550}, {C_text("f_7556:chicken_2dsyntax_2escm"),(void*)f_7556}, {C_text("f_7570:chicken_2dsyntax_2escm"),(void*)f_7570}, {C_text("f_7596:chicken_2dsyntax_2escm"),(void*)f_7596}, {C_text("f_7620:chicken_2dsyntax_2escm"),(void*)f_7620}, {C_text("f_7628:chicken_2dsyntax_2escm"),(void*)f_7628}, {C_text("f_7636:chicken_2dsyntax_2escm"),(void*)f_7636}, {C_text("f_7640:chicken_2dsyntax_2escm"),(void*)f_7640}, {C_text("f_7643:chicken_2dsyntax_2escm"),(void*)f_7643}, {C_text("f_7646:chicken_2dsyntax_2escm"),(void*)f_7646}, {C_text("f_7655:chicken_2dsyntax_2escm"),(void*)f_7655}, {C_text("f_7656:chicken_2dsyntax_2escm"),(void*)f_7656}, {C_text("f_7664:chicken_2dsyntax_2escm"),(void*)f_7664}, {C_text("f_7668:chicken_2dsyntax_2escm"),(void*)f_7668}, {C_text("f_7672:chicken_2dsyntax_2escm"),(void*)f_7672}, {C_text("f_7680:chicken_2dsyntax_2escm"),(void*)f_7680}, {C_text("f_7686:chicken_2dsyntax_2escm"),(void*)f_7686}, {C_text("f_7692:chicken_2dsyntax_2escm"),(void*)f_7692}, {C_text("f_7695:chicken_2dsyntax_2escm"),(void*)f_7695}, {C_text("f_7698:chicken_2dsyntax_2escm"),(void*)f_7698}, {C_text("f_7702:chicken_2dsyntax_2escm"),(void*)f_7702}, {C_text("f_7710:chicken_2dsyntax_2escm"),(void*)f_7710}, {C_text("f_7713:chicken_2dsyntax_2escm"),(void*)f_7713}, {C_text("f_7716:chicken_2dsyntax_2escm"),(void*)f_7716}, {C_text("f_7719:chicken_2dsyntax_2escm"),(void*)f_7719}, {C_text("f_7726:chicken_2dsyntax_2escm"),(void*)f_7726}, {C_text("f_7752:chicken_2dsyntax_2escm"),(void*)f_7752}, {C_text("f_7777:chicken_2dsyntax_2escm"),(void*)f_7777}, {C_text("f_7786:chicken_2dsyntax_2escm"),(void*)f_7786}, {C_text("f_7820:chicken_2dsyntax_2escm"),(void*)f_7820}, {C_text("f_7845:chicken_2dsyntax_2escm"),(void*)f_7845}, {C_text("f_7854:chicken_2dsyntax_2escm"),(void*)f_7854}, {C_text("f_7902:chicken_2dsyntax_2escm"),(void*)f_7902}, {C_text("f_7904:chicken_2dsyntax_2escm"),(void*)f_7904}, {C_text("f_7908:chicken_2dsyntax_2escm"),(void*)f_7908}, {C_text("f_7918:chicken_2dsyntax_2escm"),(void*)f_7918}, {C_text("f_7945:chicken_2dsyntax_2escm"),(void*)f_7945}, {C_text("f_7948:chicken_2dsyntax_2escm"),(void*)f_7948}, {C_text("f_7963:chicken_2dsyntax_2escm"),(void*)f_7963}, {C_text("f_7971:chicken_2dsyntax_2escm"),(void*)f_7971}, {C_text("f_7980:chicken_2dsyntax_2escm"),(void*)f_7980}, {C_text("f_7995:chicken_2dsyntax_2escm"),(void*)f_7995}, {C_text("f_8005:chicken_2dsyntax_2escm"),(void*)f_8005}, {C_text("f_8008:chicken_2dsyntax_2escm"),(void*)f_8008}, {C_text("f_8024:chicken_2dsyntax_2escm"),(void*)f_8024}, {C_text("f_8044:chicken_2dsyntax_2escm"),(void*)f_8044}, {C_text("f_8046:chicken_2dsyntax_2escm"),(void*)f_8046}, {C_text("f_8048:chicken_2dsyntax_2escm"),(void*)f_8048}, {C_text("f_8052:chicken_2dsyntax_2escm"),(void*)f_8052}, {C_text("f_8061:chicken_2dsyntax_2escm"),(void*)f_8061}, {C_text("f_8064:chicken_2dsyntax_2escm"),(void*)f_8064}, {C_text("f_8073:chicken_2dsyntax_2escm"),(void*)f_8073}, {C_text("f_8089:chicken_2dsyntax_2escm"),(void*)f_8089}, {C_text("f_8093:chicken_2dsyntax_2escm"),(void*)f_8093}, {C_text("f_8136:chicken_2dsyntax_2escm"),(void*)f_8136}, {C_text("f_8148:chicken_2dsyntax_2escm"),(void*)f_8148}, {C_text("f_8150:chicken_2dsyntax_2escm"),(void*)f_8150}, {C_text("f_8154:chicken_2dsyntax_2escm"),(void*)f_8154}, {C_text("f_8157:chicken_2dsyntax_2escm"),(void*)f_8157}, {C_text("f_8176:chicken_2dsyntax_2escm"),(void*)f_8176}, {C_text("f_8192:chicken_2dsyntax_2escm"),(void*)f_8192}, {C_text("f_8194:chicken_2dsyntax_2escm"),(void*)f_8194}, {C_text("f_8198:chicken_2dsyntax_2escm"),(void*)f_8198}, {C_text("f_8201:chicken_2dsyntax_2escm"),(void*)f_8201}, {C_text("f_8214:chicken_2dsyntax_2escm"),(void*)f_8214}, {C_text("f_8216:chicken_2dsyntax_2escm"),(void*)f_8216}, {C_text("f_8220:chicken_2dsyntax_2escm"),(void*)f_8220}, {C_text("f_8234:chicken_2dsyntax_2escm"),(void*)f_8234}, {C_text("f_8240:chicken_2dsyntax_2escm"),(void*)f_8240}, {C_text("f_8262:chicken_2dsyntax_2escm"),(void*)f_8262}, {C_text("f_8268:chicken_2dsyntax_2escm"),(void*)f_8268}, {C_text("f_8272:chicken_2dsyntax_2escm"),(void*)f_8272}, {C_text("f_8282:chicken_2dsyntax_2escm"),(void*)f_8282}, {C_text("f_8284:chicken_2dsyntax_2escm"),(void*)f_8284}, {C_text("f_8313:chicken_2dsyntax_2escm"),(void*)f_8313}, {C_text("f_8332:chicken_2dsyntax_2escm"),(void*)f_8332}, {C_text("f_8366:chicken_2dsyntax_2escm"),(void*)f_8366}, {C_text("f_8390:chicken_2dsyntax_2escm"),(void*)f_8390}, {C_text("f_8392:chicken_2dsyntax_2escm"),(void*)f_8392}, {C_text("f_8396:chicken_2dsyntax_2escm"),(void*)f_8396}, {C_text("f_8402:chicken_2dsyntax_2escm"),(void*)f_8402}, {C_text("f_8436:chicken_2dsyntax_2escm"),(void*)f_8436}, {C_text("f_8472:chicken_2dsyntax_2escm"),(void*)f_8472}, {C_text("f_8474:chicken_2dsyntax_2escm"),(void*)f_8474}, {C_text("f_8478:chicken_2dsyntax_2escm"),(void*)f_8478}, {C_text("f_8486:chicken_2dsyntax_2escm"),(void*)f_8486}, {C_text("f_8491:chicken_2dsyntax_2escm"),(void*)f_8491}, {C_text("f_8516:chicken_2dsyntax_2escm"),(void*)f_8516}, {C_text("f_8526:chicken_2dsyntax_2escm"),(void*)f_8526}, {C_text("f_8528:chicken_2dsyntax_2escm"),(void*)f_8528}, {C_text("f_8532:chicken_2dsyntax_2escm"),(void*)f_8532}, {C_text("f_8538:chicken_2dsyntax_2escm"),(void*)f_8538}, {C_text("f_8559:chicken_2dsyntax_2escm"),(void*)f_8559}, {C_text("f_8566:chicken_2dsyntax_2escm"),(void*)f_8566}, {C_text("f_8589:chicken_2dsyntax_2escm"),(void*)f_8589}, {C_text("f_8593:chicken_2dsyntax_2escm"),(void*)f_8593}, {C_text("f_8614:chicken_2dsyntax_2escm"),(void*)f_8614}, {C_text("f_8617:chicken_2dsyntax_2escm"),(void*)f_8617}, {C_text("f_8621:chicken_2dsyntax_2escm"),(void*)f_8621}, {C_text("f_8629:chicken_2dsyntax_2escm"),(void*)f_8629}, {C_text("f_8633:chicken_2dsyntax_2escm"),(void*)f_8633}, {C_text("f_8639:chicken_2dsyntax_2escm"),(void*)f_8639}, {C_text("f_8640:chicken_2dsyntax_2escm"),(void*)f_8640}, {C_text("f_8651:chicken_2dsyntax_2escm"),(void*)f_8651}, {C_text("f_8666:chicken_2dsyntax_2escm"),(void*)f_8666}, {C_text("f_8668:chicken_2dsyntax_2escm"),(void*)f_8668}, {C_text("f_8687:chicken_2dsyntax_2escm"),(void*)f_8687}, {C_text("f_8695:chicken_2dsyntax_2escm"),(void*)f_8695}, {C_text("f_8701:chicken_2dsyntax_2escm"),(void*)f_8701}, {C_text("f_8703:chicken_2dsyntax_2escm"),(void*)f_8703}, {C_text("f_8728:chicken_2dsyntax_2escm"),(void*)f_8728}, {C_text("f_8741:chicken_2dsyntax_2escm"),(void*)f_8741}, {C_text("f_8752:chicken_2dsyntax_2escm"),(void*)f_8752}, {C_text("f_8789:chicken_2dsyntax_2escm"),(void*)f_8789}, {C_text("f_8817:chicken_2dsyntax_2escm"),(void*)f_8817}, {C_text("f_8851:chicken_2dsyntax_2escm"),(void*)f_8851}, {C_text("f_8882:chicken_2dsyntax_2escm"),(void*)f_8882}, {C_text("f_8889:chicken_2dsyntax_2escm"),(void*)f_8889}, {C_text("f_8895:chicken_2dsyntax_2escm"),(void*)f_8895}, {C_text("f_8920:chicken_2dsyntax_2escm"),(void*)f_8920}, {C_text("f_8929:chicken_2dsyntax_2escm"),(void*)f_8929}, {C_text("f_8942:chicken_2dsyntax_2escm"),(void*)f_8942}, {C_text("f_8967:chicken_2dsyntax_2escm"),(void*)f_8967}, {C_text("f_9003:chicken_2dsyntax_2escm"),(void*)f_9003}, {C_text("f_9005:chicken_2dsyntax_2escm"),(void*)f_9005}, {C_text("f_9009:chicken_2dsyntax_2escm"),(void*)f_9009}, {C_text("f_9016:chicken_2dsyntax_2escm"),(void*)f_9016}, {C_text("f_9020:chicken_2dsyntax_2escm"),(void*)f_9020}, {C_text("f_9028:chicken_2dsyntax_2escm"),(void*)f_9028}, {C_text("f_9042:chicken_2dsyntax_2escm"),(void*)f_9042}, {C_text("f_9048:chicken_2dsyntax_2escm"),(void*)f_9048}, {C_text("f_9055:chicken_2dsyntax_2escm"),(void*)f_9055}, {C_text("f_9061:chicken_2dsyntax_2escm"),(void*)f_9061}, {C_text("f_9074:chicken_2dsyntax_2escm"),(void*)f_9074}, {C_text("f_9108:chicken_2dsyntax_2escm"),(void*)f_9108}, {C_text("f_9118:chicken_2dsyntax_2escm"),(void*)f_9118}, {C_text("f_9133:chicken_2dsyntax_2escm"),(void*)f_9133}, {C_text("f_9135:chicken_2dsyntax_2escm"),(void*)f_9135}, {C_text("f_9139:chicken_2dsyntax_2escm"),(void*)f_9139}, {C_text("f_9154:chicken_2dsyntax_2escm"),(void*)f_9154}, {C_text("f_9156:chicken_2dsyntax_2escm"),(void*)f_9156}, {C_text("f_9160:chicken_2dsyntax_2escm"),(void*)f_9160}, {C_text("f_9182:chicken_2dsyntax_2escm"),(void*)f_9182}, {C_text("f_9184:chicken_2dsyntax_2escm"),(void*)f_9184}, {C_text("f_9188:chicken_2dsyntax_2escm"),(void*)f_9188}, {C_text("f_9206:chicken_2dsyntax_2escm"),(void*)f_9206}, {C_text("f_9208:chicken_2dsyntax_2escm"),(void*)f_9208}, {C_text("f_9217:chicken_2dsyntax_2escm"),(void*)f_9217}, {C_text("f_9223:chicken_2dsyntax_2escm"),(void*)f_9223}, {C_text("f_9229:chicken_2dsyntax_2escm"),(void*)f_9229}, {C_text("f_9243:chicken_2dsyntax_2escm"),(void*)f_9243}, {C_text("f_9252:chicken_2dsyntax_2escm"),(void*)f_9252}, {C_text("f_9254:chicken_2dsyntax_2escm"),(void*)f_9254}, {C_text("f_9279:chicken_2dsyntax_2escm"),(void*)f_9279}, {C_text("f_9290:chicken_2dsyntax_2escm"),(void*)f_9290}, {C_text("f_9292:chicken_2dsyntax_2escm"),(void*)f_9292}, {C_text("f_9311:chicken_2dsyntax_2escm"),(void*)f_9311}, {C_text("f_9319:chicken_2dsyntax_2escm"),(void*)f_9319}, {C_text("f_9328:chicken_2dsyntax_2escm"),(void*)f_9328}, {C_text("f_9334:chicken_2dsyntax_2escm"),(void*)f_9334}, {C_text("f_9338:chicken_2dsyntax_2escm"),(void*)f_9338}, {C_text("f_9346:chicken_2dsyntax_2escm"),(void*)f_9346}, {C_text("f_9352:chicken_2dsyntax_2escm"),(void*)f_9352}, {C_text("f_9356:chicken_2dsyntax_2escm"),(void*)f_9356}, {C_text("f_9364:chicken_2dsyntax_2escm"),(void*)f_9364}, {C_text("f_9367:chicken_2dsyntax_2escm"),(void*)f_9367}, {C_text("f_9371:chicken_2dsyntax_2escm"),(void*)f_9371}, {C_text("f_9379:chicken_2dsyntax_2escm"),(void*)f_9379}, {C_text("f_9382:chicken_2dsyntax_2escm"),(void*)f_9382}, {C_text("f_9395:chicken_2dsyntax_2escm"),(void*)f_9395}, {C_text("f_9412:chicken_2dsyntax_2escm"),(void*)f_9412}, {C_text("f_9423:chicken_2dsyntax_2escm"),(void*)f_9423}, {C_text("f_9471:chicken_2dsyntax_2escm"),(void*)f_9471}, {C_text("f_9475:chicken_2dsyntax_2escm"),(void*)f_9475}, {C_text("f_9487:chicken_2dsyntax_2escm"),(void*)f_9487}, {C_text("f_9499:chicken_2dsyntax_2escm"),(void*)f_9499}, {C_text("f_9501:chicken_2dsyntax_2escm"),(void*)f_9501}, {C_text("f_9549:chicken_2dsyntax_2escm"),(void*)f_9549}, {C_text("f_9597:chicken_2dsyntax_2escm"),(void*)f_9597}, {C_text("f_9604:chicken_2dsyntax_2escm"),(void*)f_9604}, {C_text("f_9674:chicken_2dsyntax_2escm"),(void*)f_9674}, {C_text("f_9692:chicken_2dsyntax_2escm"),(void*)f_9692}, {C_text("f_9696:chicken_2dsyntax_2escm"),(void*)f_9696}, {C_text("f_9712:chicken_2dsyntax_2escm"),(void*)f_9712}, {C_text("f_9716:chicken_2dsyntax_2escm"),(void*)f_9716}, {C_text("f_9728:chicken_2dsyntax_2escm"),(void*)f_9728}, {C_text("f_9738:chicken_2dsyntax_2escm"),(void*)f_9738}, {C_text("f_9786:chicken_2dsyntax_2escm"),(void*)f_9786}, {C_text("f_9834:chicken_2dsyntax_2escm"),(void*)f_9834}, {C_text("f_9841:chicken_2dsyntax_2escm"),(void*)f_9841}, {C_text("f_9904:chicken_2dsyntax_2escm"),(void*)f_9904}, {C_text("f_9952:chicken_2dsyntax_2escm"),(void*)f_9952}, {C_text("toplevel:chicken_2dsyntax_2escm"),(void*)C_chicken_2dsyntax_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* S|applied compiler syntax: S| scheme#for-each 1 S| ##sys#map 11 S| chicken.base#foldl 4 S| scheme#map 42 S| chicken.base#foldr 4 o|eliminated procedure checks: 736 o|specializations: o| 1 (chicken.base#add1 *) o| 1 (scheme#zero? integer) o| 2 (scheme#string-append string string) o| 14 (scheme#cddr (pair * pair)) o| 2 (scheme#length list) o| 1 (scheme#caddr (pair * (pair * pair))) o| 4 (scheme#cadr (pair * pair)) o| 4 (scheme#cdddr (pair * (pair * pair))) o| 1 (scheme#eqv? * *) o| 40 (##sys#check-list (or pair list) *) o| 69 (scheme#cdr pair) o| 24 (scheme#car pair) (o e)|safe calls: 1474 o|safe globals: (posv posq make-list iota find-tail find length+ lset=/eq? lset<=/eq? list-tabulate lset-intersection/eq? lset-union/eq? lset-difference/eq? lset-adjoin/eq? list-index last unzip1 remove filter-map filter alist-cons delete-duplicates fifth fourth third second first delete concatenate cons* any every append-map split-at drop take span partition) o|removed side-effect free assignment to unused variable: partition o|removed side-effect free assignment to unused variable: span o|inlining procedure: k4315 o|inlining procedure: k4315 o|removed side-effect free assignment to unused variable: drop o|removed side-effect free assignment to unused variable: append-map o|inlining procedure: k4585 o|inlining procedure: k4585 o|inlining procedure: k4616 o|inlining procedure: k4616 o|removed side-effect free assignment to unused variable: cons* o|removed side-effect free assignment to unused variable: concatenate o|removed side-effect free assignment to unused variable: first o|removed side-effect free assignment to unused variable: second o|removed side-effect free assignment to unused variable: third o|removed side-effect free assignment to unused variable: fourth o|removed side-effect free assignment to unused variable: fifth o|removed side-effect free assignment to unused variable: delete-duplicates o|removed side-effect free assignment to unused variable: alist-cons o|inlining procedure: k4833 o|inlining procedure: k4833 o|inlining procedure: k4825 o|inlining procedure: k4825 o|removed side-effect free assignment to unused variable: filter-map o|removed side-effect free assignment to unused variable: remove o|removed side-effect free assignment to unused variable: unzip1 o|removed side-effect free assignment to unused variable: last o|removed side-effect free assignment to unused variable: list-index o|removed side-effect free assignment to unused variable: lset-adjoin/eq? o|removed side-effect free assignment to unused variable: lset-difference/eq? o|removed side-effect free assignment to unused variable: lset-union/eq? o|removed side-effect free assignment to unused variable: lset-intersection/eq? o|inlining procedure: k5224 o|inlining procedure: k5224 o|removed side-effect free assignment to unused variable: lset<=/eq? o|removed side-effect free assignment to unused variable: lset=/eq? o|removed side-effect free assignment to unused variable: length+ o|removed side-effect free assignment to unused variable: find o|removed side-effect free assignment to unused variable: find-tail o|removed side-effect free assignment to unused variable: iota o|removed side-effect free assignment to unused variable: make-list o|removed side-effect free assignment to unused variable: posq o|removed side-effect free assignment to unused variable: posv o|inlining procedure: k5767 o|inlining procedure: k5767 o|inlining procedure: k5795 o|inlining procedure: k5795 o|inlining procedure: k5839 o|inlining procedure: k5839 o|inlining procedure: k5918 o|inlining procedure: k5918 o|inlining procedure: k6016 o|inlining procedure: k6016 o|inlining procedure: k6113 o|inlining procedure: k6113 o|inlining procedure: k6207 o|inlining procedure: k6207 o|inlining procedure: k6344 o|inlining procedure: k6344 o|inlining procedure: k6391 o|inlining procedure: k6391 o|inlining procedure: k6430 o|inlining procedure: k6430 o|inlining procedure: k6503 o|inlining procedure: k6503 o|inlining procedure: k6559 o|inlining procedure: k6559 o|inlining procedure: k6574 o|inlining procedure: k6574 o|inlining procedure: k6612 o|inlining procedure: k6612 o|inlining procedure: k6672 o|inlining procedure: k6672 o|inlining procedure: k6789 o|inlining procedure: k6789 o|contracted procedure: "(chicken-syntax.scm:1019) split-at" o|inlining procedure: k4373 o|inlining procedure: k4373 o|inlining procedure: k6918 o|inlining procedure: k6918 o|inlining procedure: k6943 o|inlining procedure: k6943 o|inlining procedure: k6991 o|inlining procedure: k7019 o|inlining procedure: k7019 o|inlining procedure: k6991 o|inlining procedure: k7051 o|inlining procedure: k7051 o|inlining procedure: k7091 o|inlining procedure: k7091 o|inlining procedure: k6867 o|inlining procedure: k6867 o|inlining procedure: k7159 o|contracted procedure: "(chicken-syntax.scm:989) g28482857" o|inlining procedure: k7159 o|inlining procedure: k7259 o|inlining procedure: k7259 o|removed unused formal parameters: (rename2643) o|inlining procedure: k7558 o|inlining procedure: k7558 o|removed unused parameter to known procedure: rename2643 "(chicken-syntax.scm:891) make-if-tree2623" o|contracted procedure: "(chicken-syntax.scm:889) make-default-procs2622" o|inlining procedure: k7491 o|inlining procedure: k7491 o|inlining procedure: k7754 o|inlining procedure: k7754 o|inlining procedure: k7788 o|inlining procedure: k7788 o|inlining procedure: k7822 o|inlining procedure: k7822 o|inlining procedure: k7856 o|inlining procedure: k7856 o|inlining procedure: k7920 o|inlining procedure: k7920 o|inlining procedure: k7972 o|inlining procedure: k7972 o|inlining procedure: k8062 o|inlining procedure: k8062 o|inlining procedure: k8077 o|inlining procedure: k8077 o|inlining procedure: k8286 o|inlining procedure: k8286 o|inlining procedure: k8334 o|contracted procedure: "(chicken-syntax.scm:668) g24652474" o|inlining procedure: k8334 o|inlining procedure: k8368 o|contracted procedure: "(chicken-syntax.scm:669) g24892490" o|inlining procedure: k8368 o|substituted constant variable: g24812484 o|inlining procedure: k8404 o|inlining procedure: k8404 o|inlining procedure: k8438 o|inlining procedure: k8438 o|inlining procedure: k8493 o|inlining procedure: k8493 o|inlining procedure: k8540 o|inlining procedure: k8540 o|inlining procedure: k8568 o|inlining procedure: k8568 o|inlining procedure: k8670 o|inlining procedure: k8705 o|inlining procedure: k8705 o|inlining procedure: k8670 o|inlining procedure: k8819 o|contracted procedure: "(chicken-syntax.scm:626) g23572366" o|inlining procedure: k8819 o|inlining procedure: k8853 o|inlining procedure: k8853 o|inlining procedure: k8897 o|inlining procedure: k8897 o|inlining procedure: k8931 o|inlining procedure: k8931 o|inlining procedure: k8954 o|inlining procedure: k8954 o|inlining procedure: k8969 o|inlining procedure: k8969 o|inlining procedure: k9076 o|contracted procedure: "(chicken-syntax.scm:585) g21722190" o|inlining procedure: k9076 o|inlining procedure: k9110 o|contracted procedure: "(chicken-syntax.scm:581) g21572179" o|inlining procedure: k9110 o|inlining procedure: k9231 o|inlining procedure: k9231 o|inlining procedure: k9256 o|inlining procedure: k9256 o|contracted procedure: "(chicken-syntax.scm:494) pname1598" o|inlining procedure: k9297 o|inlining procedure: k9297 o|removed unused formal parameters: (z1705) o|removed unused formal parameters: (z1733) o|inlining procedure: k9503 o|contracted procedure: "(chicken-syntax.scm:531) g20372047" o|inlining procedure: k9503 o|inlining procedure: k9551 o|contracted procedure: "(chicken-syntax.scm:529) g20012011" o|inlining procedure: k9551 o|inlining procedure: k9599 o|contracted procedure: "(chicken-syntax.scm:526) g19591970" o|inlining procedure: k9599 o|inlining procedure: k9649 o|inlining procedure: k9649 o|inlining procedure: k9740 o|contracted procedure: "(chicken-syntax.scm:519) g19231933" o|inlining procedure: k9740 o|inlining procedure: k9788 o|contracted procedure: "(chicken-syntax.scm:516) g18871897" o|inlining procedure: k9788 o|inlining procedure: k9836 o|inlining procedure: k9836 o|inlining procedure: k9886 o|inlining procedure: k9886 o|inlining procedure: k9906 o|inlining procedure: k9906 o|inlining procedure: k9954 o|inlining procedure: k9954 o|inlining procedure: k10002 o|inlining procedure: k10002 o|inlining procedure: k10050 o|removed unused parameter to known procedure: z1733 "(chicken-syntax.scm:496) g17221731" o|inlining procedure: k10050 o|inlining procedure: k10084 o|removed unused parameter to known procedure: z1705 "(chicken-syntax.scm:495) g16941703" o|inlining procedure: k10084 o|inlining procedure: k10118 o|inlining procedure: k10118 o|inlining procedure: k10152 o|inlining procedure: k10152 o|inlining procedure: k10186 o|inlining procedure: k10186 o|removed unused formal parameters: (x1320) o|removed unused formal parameters: (x1348) o|inlining procedure: k10341 o|contracted procedure: "(chicken-syntax.scm:476) g15661576" o|inlining procedure: k10341 o|inlining procedure: k10389 o|contracted procedure: "(chicken-syntax.scm:474) g15301540" o|inlining procedure: k10389 o|inlining procedure: k10488 o|contracted procedure: "(chicken-syntax.scm:469) g14941504" o|inlining procedure: k10488 o|inlining procedure: k10536 o|contracted procedure: "(chicken-syntax.scm:467) g14581468" o|inlining procedure: k10536 o|inlining procedure: k10619 o|inlining procedure: k10619 o|inlining procedure: k10669 o|inlining procedure: k10669 o|inlining procedure: k10689 o|inlining procedure: k10689 o|inlining procedure: k10737 o|inlining procedure: k10737 o|inlining procedure: k10771 o|removed unused parameter to known procedure: x1348 "(chicken-syntax.scm:457) g13371346" o|inlining procedure: k10771 o|inlining procedure: k10805 o|removed unused parameter to known procedure: x1320 "(chicken-syntax.scm:456) g13091318" o|inlining procedure: k10805 o|inlining procedure: k10839 o|inlining procedure: k10839 o|inlining procedure: k10949 o|inlining procedure: k10949 o|inlining procedure: k11071 o|inlining procedure: k11071 o|inlining procedure: k11092 o|inlining procedure: k11104 o|inlining procedure: k11104 o|inlining procedure: k11092 o|inlining procedure: k11164 o|inlining procedure: k11164 o|inlining procedure: k11224 o|inlining procedure: k11224 o|inlining procedure: k11313 o|inlining procedure: k11313 o|substituted constant variable: a11348 o|substituted constant variable: a11373 o|inlining procedure: k11382 o|inlining procedure: k11382 o|inlining procedure: k11454 o|inlining procedure: k11454 o|inlining procedure: k11483 o|inlining procedure: k11498 o|inlining procedure: k11514 o|inlining procedure: k11514 o|inlining procedure: k11498 o|inlining procedure: k11483 o|inlining procedure: k11548 o|inlining procedure: k11564 o|inlining procedure: k11564 o|inlining procedure: k11548 o|inlining procedure: k11602 o|inlining procedure: k11602 o|inlining procedure: k11666 o|inlining procedure: k11666 o|inlining procedure: k11775 o|inlining procedure: k11775 o|inlining procedure: k11888 o|inlining procedure: k11888 o|inlining procedure: k11909 o|inlining procedure: k11909 o|inlining procedure: k11955 o|inlining procedure: k11955 o|inlining procedure: k11995 o|inlining procedure: k12051 o|contracted procedure: "(chicken-syntax.scm:201) g919929" o|inlining procedure: k12051 o|inlining procedure: k12121 o|inlining procedure: k12148 o|contracted procedure: "(chicken-syntax.scm:192) g885894" o|propagated global variable: g902903 chicken.compiler.scrutinizer#check-and-validate-type o|inlining procedure: k12148 o|inlining procedure: k12121 o|inlining procedure: k12192 o|inlining procedure: k12192 o|inlining procedure: k11995 o|inlining procedure: k12239 o|inlining procedure: k12239 o|inlining procedure: k12276 o|inlining procedure: k12276 o|inlining procedure: k12325 o|inlining procedure: k12416 o|contracted procedure: "(chicken-syntax.scm:154) g816825" o|inlining procedure: k12416 o|inlining procedure: k12450 o|contracted procedure: "(chicken-syntax.scm:154) g788797" o|inlining procedure: k12450 o|inlining procedure: k12325 o|inlining procedure: k12487 o|inlining procedure: k12502 o|inlining procedure: k12518 o|inlining procedure: k12518 o|inlining procedure: k12502 o|inlining procedure: k12487 o|inlining procedure: k12552 o|inlining procedure: k12568 o|inlining procedure: k12568 o|inlining procedure: k12603 o|inlining procedure: k12603 o|inlining procedure: k12552 o|inlining procedure: k12634 o|inlining procedure: k12634 o|inlining procedure: k12672 o|inlining procedure: k12672 o|inlining procedure: k12699 o|inlining procedure: k12699 o|inlining procedure: k12728 o|inlining procedure: k12728 o|inlining procedure: k12810 o|inlining procedure: k12810 o|inlining procedure: k12852 o|inlining procedure: k12852 o|inlining procedure: k12967 o|inlining procedure: k12967 o|inlining procedure: k12987 o|inlining procedure: k12987 o|replaced variables: 1156 o|removed binding forms: 472 o|substituted constant variable: r431613149 o|removed side-effect free assignment to unused variable: every o|removed side-effect free assignment to unused variable: any o|removed side-effect free assignment to unused variable: filter o|removed side-effect free assignment to unused variable: list-tabulate o|substituted constant variable: r579613166 o|substituted constant variable: r634513177 o|substituted constant variable: r650413186 o|substituted constant variable: r656013188 o|substituted constant variable: r679013195 o|substituted constant variable: r709213211 o|substituted constant variable: r686813214 o|converted assignments to bindings: (genvars2834) o|substituted constant variable: r749213221 o|converted assignments to bindings: (make-if-tree2623) o|substituted constant variable: r807813246 o|substituted constant variable: r856913261 o|substituted constant variable: r923213283 o|substituted constant variable: r965013296 o|substituted constant variable: r988713304 o|substituted constant variable: r1067013331 o|substituted constant variable: r1110513349 o|substituted constant variable: r1109313350 o|substituted constant variable: r1149913369 o|substituted constant variable: r1148413370 o|substituted constant variable: r1154913374 o|substituted constant variable: r1166713378 o|substituted constant variable: r1177613379 o|substituted constant variable: r1195613385 o|substituted constant variable: r1219313396 o|substituted constant variable: r1227713402 o|substituted constant variable: r1250313413 o|substituted constant variable: r1248813414 o|substituted constant variable: r1260413419 o|substituted constant variable: r1255313420 o|substituted constant variable: r1267313423 o|substituted constant variable: r1272913429 o|substituted constant variable: r1272913429 o|substituted constant variable: r1296813435 o|substituted constant variable: r1296813435 o|converted assignments to bindings: (parse-clause597) o|simplifications: ((let . 3)) o|replaced variables: 20 o|removed binding forms: 1273 o|removed call to pure procedure with unused result: "(chicken-syntax.scm:496) ##sys#slot" o|removed call to pure procedure with unused result: "(chicken-syntax.scm:495) ##sys#slot" o|removed call to pure procedure with unused result: "(chicken-syntax.scm:457) ##sys#slot" o|removed call to pure procedure with unused result: "(chicken-syntax.scm:456) ##sys#slot" o|replaced variables: 31 o|removed binding forms: 60 o|removed call to pure procedure with unused result: "(chicken-syntax.scm:526) ##sys#slot" o|contracted procedure: k10075 o|contracted procedure: k10109 o|contracted procedure: k10796 o|contracted procedure: k10830 o|removed binding forms: 34 o|contracted procedure: k9636 o|removed binding forms: 5 o|removed binding forms: 1 o|simplifications: ((if . 26) (##core#call . 1219)) o| call simplifications: o| scheme#cdddr 2 o| chicken.fixnum#fx= o| scheme#vector o| ##sys#pair? 7 o| ##sys#eq? 7 o| ##sys#car 15 o| ##sys#cdr 22 o| scheme#symbol? 7 o| scheme#list? 2 o| scheme#cdar o| scheme#caar o| scheme#assq 2 o| scheme#apply o| scheme#eq? 5 o| ##sys#call-with-values 3 o| scheme#values o| chicken.fixnum#fx>= o| chicken.fixnum#fx+ 3 o| scheme#cadddr 2 o| scheme#cddddr o| ##sys#check-list 36 o| ##sys#setslot 50 o| ##sys#slot 194 o| scheme#memq 6 o| scheme#cddr 7 o| scheme#caddr 14 o| scheme#not 15 o| scheme#list 9 o| scheme#cadr 48 o| scheme#null? 29 o| scheme#string? o| scheme#pair? 95 o| scheme#cdr 19 o| ##sys#cons 141 o| ##sys#list 291 o| chicken.fixnum#fx<= 2 o| scheme#car 45 o| chicken.fixnum#fx- 4 o| scheme#cons 128 o|contracted procedure: k4318 o|contracted procedure: k4325 o|contracted procedure: k4335 o|contracted procedure: k5684 o|contracted procedure: k5716 o|contracted procedure: k5712 o|contracted procedure: k5692 o|contracted procedure: k5708 o|contracted procedure: k5700 o|contracted procedure: k5704 o|contracted procedure: k5696 o|contracted procedure: k5688 o|contracted procedure: k5729 o|contracted procedure: k5802 o|contracted procedure: k5734 o|contracted procedure: k5786 o|contracted procedure: k5747 o|contracted procedure: k5755 o|contracted procedure: k5759 o|contracted procedure: k5751 o|contracted procedure: k5770 o|contracted procedure: k5778 o|contracted procedure: k5767 o|contracted procedure: k5789 o|contracted procedure: k5823 o|contracted procedure: k5836 o|contracted procedure: k5842 o|contracted procedure: k5865 o|contracted procedure: k5861 o|contracted procedure: k5855 o|contracted procedure: k5849 o|contracted procedure: k5881 o|contracted procedure: k5877 o|contracted procedure: k6079 o|contracted procedure: k5888 o|contracted procedure: k5921 o|contracted procedure: k5956 o|contracted procedure: k5952 o|contracted procedure: k5948 o|contracted procedure: k5940 o|contracted procedure: k5966 o|contracted procedure: k5985 o|contracted procedure: k5981 o|contracted procedure: k5977 o|contracted procedure: k6005 o|contracted procedure: k6009 o|contracted procedure: k6025 o|contracted procedure: k6053 o|contracted procedure: k6045 o|contracted procedure: k6049 o|contracted procedure: k6065 o|contracted procedure: k6075 o|contracted procedure: k6068 o|contracted procedure: k6255 o|contracted procedure: k6083 o|contracted procedure: k6116 o|contracted procedure: k6147 o|contracted procedure: k6143 o|contracted procedure: k6139 o|contracted procedure: k6157 o|contracted procedure: k6178 o|contracted procedure: k6172 o|contracted procedure: k6168 o|contracted procedure: k6196 o|contracted procedure: k6200 o|contracted procedure: k6216 o|contracted procedure: k6233 o|contracted procedure: k6241 o|contracted procedure: k6251 o|contracted procedure: k6244 o|contracted procedure: k6268 o|contracted procedure: k6277 o|contracted procedure: k6280 o|contracted procedure: k6283 o|contracted procedure: k6292 o|contracted procedure: k6301 o|contracted procedure: k6304 o|contracted procedure: k6606 o|contracted procedure: k6318 o|contracted procedure: k6550 o|contracted procedure: k6554 o|contracted procedure: k6562 o|contracted procedure: k6565 o|contracted procedure: k6546 o|contracted procedure: k6542 o|contracted procedure: k6326 o|contracted procedure: k6530 o|contracted procedure: k6538 o|contracted procedure: k6534 o|contracted procedure: k6334 o|contracted procedure: k6330 o|contracted procedure: k6322 o|contracted procedure: k6314 o|contracted procedure: k6347 o|contracted procedure: k6350 o|contracted procedure: k6526 o|contracted procedure: k6353 o|contracted procedure: k6356 o|contracted procedure: k6473 o|contracted procedure: k6489 o|contracted procedure: k6497 o|contracted procedure: k6493 o|contracted procedure: k6485 o|contracted procedure: k6477 o|contracted procedure: k6481 o|contracted procedure: k6362 o|contracted procedure: k6397 o|contracted procedure: k6408 o|contracted procedure: k6404 o|contracted procedure: k6416 o|contracted procedure: k6423 o|contracted procedure: k6430 o|contracted procedure: k6449 o|contracted procedure: k6465 o|contracted procedure: k6469 o|contracted procedure: k6461 o|contracted procedure: k6453 o|contracted procedure: k6457 o|contracted procedure: k6500 o|contracted procedure: k6506 o|contracted procedure: k6577 o|contracted procedure: k6580 o|contracted procedure: k6583 o|contracted procedure: k6591 o|contracted procedure: k6599 o|contracted procedure: k6615 o|contracted procedure: k6637 o|contracted procedure: k6633 o|contracted procedure: k6618 o|contracted procedure: k6621 o|contracted procedure: k6629 o|contracted procedure: k6667 o|contracted procedure: k6675 o|contracted procedure: k6691 o|contracted procedure: k6703 o|contracted procedure: k6699 o|contracted procedure: k6695 o|contracted procedure: k6721 o|contracted procedure: k6725 o|contracted procedure: k6745 o|contracted procedure: k6741 o|contracted procedure: k6763 o|contracted procedure: k7191 o|contracted procedure: k7195 o|contracted procedure: k7199 o|contracted procedure: k7203 o|contracted procedure: k7207 o|contracted procedure: k6767 o|contracted procedure: k6792 o|contracted procedure: k6807 o|contracted procedure: k7128 o|contracted procedure: k7124 o|contracted procedure: k6853 o|contracted procedure: k6858 o|contracted procedure: k6849 o|contracted procedure: k6870 o|contracted procedure: k6879 o|contracted procedure: k6892 o|contracted procedure: k4376 o|contracted procedure: k4390 o|contracted procedure: k4400 o|contracted procedure: k4394 o|contracted procedure: k6921 o|contracted procedure: k6928 o|contracted procedure: k6931 o|contracted procedure: k6934 o|contracted procedure: k6982 o|contracted procedure: k6946 o|contracted procedure: k6972 o|contracted procedure: k6976 o|contracted procedure: k6968 o|contracted procedure: k6949 o|contracted procedure: k6952 o|contracted procedure: k6960 o|contracted procedure: k6964 o|contracted procedure: k6994 o|contracted procedure: k7016 o|contracted procedure: k7008 o|contracted procedure: k7012 o|contracted procedure: k7004 o|contracted procedure: k7037 o|contracted procedure: k7022 o|contracted procedure: k7031 o|contracted procedure: k7080 o|contracted procedure: k7084 o|contracted procedure: k7068 o|contracted procedure: k7076 o|contracted procedure: k7072 o|contracted procedure: k7047 o|contracted procedure: k7054 o|contracted procedure: k7094 o|contracted procedure: k7105 o|contracted procedure: k7112 o|contracted procedure: k7120 o|contracted procedure: k7132 o|contracted procedure: k7147 o|contracted procedure: k7150 o|contracted procedure: k7162 o|contracted procedure: k7165 o|contracted procedure: k7168 o|contracted procedure: k7176 o|contracted procedure: k7184 o|contracted procedure: k7141 o|contracted procedure: k7359 o|contracted procedure: k7363 o|contracted procedure: k7367 o|contracted procedure: k7211 o|contracted procedure: k7224 o|contracted procedure: k7227 o|contracted procedure: k7355 o|contracted procedure: k7249 o|contracted procedure: k7262 o|contracted procedure: k7269 o|contracted procedure: k7272 o|contracted procedure: k7278 o|contracted procedure: k7328 o|contracted procedure: k7332 o|contracted procedure: k7336 o|contracted procedure: k7324 o|contracted procedure: k7298 o|contracted procedure: k7310 o|contracted procedure: k7314 o|contracted procedure: k7318 o|contracted procedure: k7306 o|contracted procedure: k7302 o|contracted procedure: k7288 o|contracted procedure: k7351 o|contracted procedure: k7347 o|contracted procedure: k7343 o|contracted procedure: k7436 o|contracted procedure: k7440 o|contracted procedure: k7444 o|contracted procedure: k7371 o|contracted procedure: k7432 o|contracted procedure: k7428 o|contracted procedure: k7391 o|contracted procedure: k7399 o|contracted procedure: k7403 o|contracted procedure: k7417 o|contracted procedure: k7406 o|contracted procedure: k7410 o|contracted procedure: k7395 o|contracted procedure: k7888 o|contracted procedure: k7892 o|contracted procedure: k7896 o|contracted procedure: k7448 o|contracted procedure: k7461 o|contracted procedure: k7464 o|contracted procedure: k7561 o|contracted procedure: k7571 o|contracted procedure: k7578 o|contracted procedure: k7630 o|contracted procedure: k7582 o|contracted procedure: k7622 o|contracted procedure: k7606 o|contracted procedure: k7614 o|contracted procedure: k7610 o|contracted procedure: k7590 o|contracted procedure: k7586 o|contracted procedure: k7602 o|contracted procedure: k7647 o|contracted procedure: k7650 o|contracted procedure: k7669 o|contracted procedure: k7681 o|contracted procedure: k7687 o|contracted procedure: k7699 o|contracted procedure: k7732 o|contracted procedure: k7748 o|contracted procedure: k7744 o|contracted procedure: k7740 o|contracted procedure: k7736 o|contracted procedure: k7728 o|contracted procedure: k7494 o|contracted procedure: k7497 o|contracted procedure: k7518 o|contracted procedure: k7530 o|contracted procedure: k7522 o|contracted procedure: k7504 o|contracted procedure: k7546 o|contracted procedure: k7542 o|contracted procedure: k7757 o|contracted procedure: k7760 o|contracted procedure: k7763 o|contracted procedure: k7771 o|contracted procedure: k7779 o|contracted procedure: k7791 o|contracted procedure: k7813 o|contracted procedure: k7809 o|contracted procedure: k7794 o|contracted procedure: k7797 o|contracted procedure: k7805 o|contracted procedure: k7825 o|contracted procedure: k7828 o|contracted procedure: k7831 o|contracted procedure: k7839 o|contracted procedure: k7847 o|contracted procedure: k7859 o|contracted procedure: k7881 o|contracted procedure: k7877 o|contracted procedure: k7862 o|contracted procedure: k7865 o|contracted procedure: k7873 o|contracted procedure: k7909 o|contracted procedure: k7923 o|contracted procedure: k7930 o|contracted procedure: k7933 o|contracted procedure: k8038 o|contracted procedure: k7940 o|contracted procedure: k7965 o|contracted procedure: k7953 o|contracted procedure: k7957 o|contracted procedure: k8034 o|contracted procedure: k7975 o|contracted procedure: k7997 o|contracted procedure: k7985 o|contracted procedure: k7989 o|contracted procedure: k8030 o|contracted procedure: k8026 o|contracted procedure: k8014 o|contracted procedure: k8018 o|contracted procedure: k8053 o|contracted procedure: k8125 o|contracted procedure: k8056 o|contracted procedure: k8105 o|contracted procedure: k8068 o|contracted procedure: k8101 o|contracted procedure: k8097 o|contracted procedure: k8080 o|contracted procedure: k8108 o|contracted procedure: k8115 o|contracted procedure: k8138 o|contracted procedure: k8186 o|contracted procedure: k8142 o|contracted procedure: k8182 o|contracted procedure: k8162 o|contracted procedure: k8178 o|contracted procedure: k8170 o|contracted procedure: k8166 o|contracted procedure: k8208 o|contracted procedure: k8221 o|contracted procedure: k8226 o|contracted procedure: k8229 o|contracted procedure: k8235 o|contracted procedure: k8249 o|contracted procedure: k8257 o|contracted procedure: k8263 o|contracted procedure: k8245 o|contracted procedure: k8274 o|contracted procedure: k8277 o|contracted procedure: k8325 o|contracted procedure: k8289 o|contracted procedure: k8292 o|contracted procedure: k8295 o|contracted procedure: k8303 o|contracted procedure: k8307 o|contracted procedure: k8315 o|contracted procedure: k8319 o|contracted procedure: k8337 o|contracted procedure: k8359 o|contracted procedure: k8355 o|contracted procedure: k8340 o|contracted procedure: k8343 o|contracted procedure: k8351 o|contracted procedure: k8371 o|contracted procedure: k8378 o|contracted procedure: k8398 o|contracted procedure: k8407 o|contracted procedure: k8429 o|contracted procedure: k8425 o|contracted procedure: k8410 o|contracted procedure: k8413 o|contracted procedure: k8421 o|contracted procedure: k8441 o|contracted procedure: k8463 o|contracted procedure: k8459 o|contracted procedure: k8444 o|contracted procedure: k8447 o|contracted procedure: k8455 o|contracted procedure: k8479 o|contracted procedure: k8496 o|contracted procedure: k8503 o|contracted procedure: k8520 o|contracted procedure: k8510 o|contracted procedure: k8533 o|contracted procedure: k8563 o|contracted procedure: k8543 o|contracted procedure: k8553 o|contracted procedure: k8571 o|contracted procedure: k8601 o|contracted procedure: k8577 o|contracted procedure: k8597 o|contracted procedure: k8606 o|contracted procedure: k8609 o|contracted procedure: k8618 o|contracted procedure: k8634 o|contracted procedure: k8646 o|contracted procedure: k8656 o|contracted procedure: k8673 o|contracted procedure: k8684 o|contracted procedure: k8696 o|contracted procedure: k8680 o|contracted procedure: k8708 o|contracted procedure: k8711 o|contracted procedure: k8714 o|contracted procedure: k8722 o|contracted procedure: k8730 o|contracted procedure: k8766 o|contracted procedure: k8770 o|contracted procedure: k8762 o|contracted procedure: k8746 o|contracted procedure: k8754 o|contracted procedure: k8799 o|contracted procedure: k8777 o|contracted procedure: k8781 o|contracted procedure: k8791 o|contracted procedure: k8813 o|contracted procedure: k8802 o|contracted procedure: k8809 o|contracted procedure: k8822 o|contracted procedure: k8844 o|contracted procedure: k8840 o|contracted procedure: k8825 o|contracted procedure: k8828 o|contracted procedure: k8836 o|contracted procedure: k8856 o|contracted procedure: k8862 o|contracted procedure: k8891 o|contracted procedure: k8873 o|inlining procedure: k8865 o|inlining procedure: k8865 o|contracted procedure: k8900 o|contracted procedure: k8903 o|contracted procedure: k8906 o|contracted procedure: k8914 o|contracted procedure: k8922 o|contracted procedure: k8934 o|contracted procedure: k8937 o|contracted procedure: k8948 o|contracted procedure: k8957 o|inlining procedure: k8940 o|contracted procedure: k8972 o|contracted procedure: k8994 o|contracted procedure: k8990 o|contracted procedure: k8975 o|contracted procedure: k8978 o|contracted procedure: k8986 o|contracted procedure: k9022 o|contracted procedure: k9030 o|contracted procedure: k9034 o|contracted procedure: k9038 o|contracted procedure: k9056 o|contracted procedure: k9062 o|contracted procedure: k9079 o|contracted procedure: k9101 o|contracted procedure: k9097 o|contracted procedure: k9082 o|contracted procedure: k9085 o|contracted procedure: k9093 o|contracted procedure: k9113 o|contracted procedure: k9123 o|contracted procedure: k9127 o|contracted procedure: k9144 o|contracted procedure: k9148 o|contracted procedure: k9165 o|contracted procedure: k9169 o|contracted procedure: k9173 o|contracted procedure: k9193 o|contracted procedure: k9197 o|contracted procedure: k9214 o|contracted procedure: k9234 o|contracted procedure: k9244 o|contracted procedure: k9247 o|contracted procedure: k9259 o|contracted procedure: k9262 o|contracted procedure: k9265 o|contracted procedure: k9273 o|contracted procedure: k9281 o|contracted procedure: k9312 o|contracted procedure: k9320 o|contracted procedure: k9323 o|contracted procedure: k9329 o|contracted procedure: k9335 o|contracted procedure: k9300 o|contracted procedure: k9347 o|contracted procedure: k9353 o|contracted procedure: k9368 o|contracted procedure: k9387 o|contracted procedure: k9390 o|contracted procedure: k9401 o|contracted procedure: k9404 o|contracted procedure: k9407 o|contracted procedure: k9418 o|contracted procedure: k9900 o|contracted procedure: k9896 o|contracted procedure: k9429 o|contracted procedure: k9671 o|contracted procedure: k9684 o|contracted procedure: k9680 o|contracted procedure: k9687 o|contracted procedure: k9667 o|contracted procedure: k9663 o|contracted procedure: k9437 o|contracted procedure: k9659 o|contracted procedure: k9441 o|contracted procedure: k9457 o|contracted procedure: k9453 o|contracted procedure: k9449 o|contracted procedure: k9445 o|contracted procedure: k9433 o|contracted procedure: k9425 o|contracted procedure: k9414 o|contracted procedure: k9397 o|contracted procedure: k9477 o|contracted procedure: k9489 o|contracted procedure: k9542 o|contracted procedure: k9506 o|contracted procedure: k9532 o|contracted procedure: k9536 o|contracted procedure: k9528 o|contracted procedure: k9509 o|contracted procedure: k9512 o|contracted procedure: k9520 o|contracted procedure: k9524 o|contracted procedure: k9590 o|contracted procedure: k9554 o|contracted procedure: k9580 o|contracted procedure: k9584 o|contracted procedure: k9576 o|contracted procedure: k9557 o|contracted procedure: k9560 o|contracted procedure: k9568 o|contracted procedure: k9572 o|contracted procedure: k9605 o|contracted procedure: k9608 o|contracted procedure: k9616 o|contracted procedure: k9620 o|contracted procedure: k9624 o|contracted procedure: k9632 o|contracted procedure: k9640 o|contracted procedure: k9466 o|contracted procedure: k9646 o|contracted procedure: k9652 o|contracted procedure: k9698 o|contracted procedure: k9718 o|contracted procedure: k9734 o|contracted procedure: k9730 o|contracted procedure: k9779 o|contracted procedure: k9743 o|contracted procedure: k9769 o|contracted procedure: k9773 o|contracted procedure: k9765 o|contracted procedure: k9746 o|contracted procedure: k9749 o|contracted procedure: k9757 o|contracted procedure: k9761 o|contracted procedure: k9827 o|contracted procedure: k9791 o|contracted procedure: k9794 o|contracted procedure: k9797 o|contracted procedure: k9805 o|contracted procedure: k9809 o|contracted procedure: k9817 o|contracted procedure: k9821 o|contracted procedure: k9707 o|contracted procedure: k9842 o|contracted procedure: k9845 o|contracted procedure: k9853 o|contracted procedure: k9857 o|contracted procedure: k9861 o|contracted procedure: k9869 o|contracted procedure: k9873 o|contracted procedure: k9877 o|contracted procedure: k9883 o|contracted procedure: k9889 o|contracted procedure: k9945 o|contracted procedure: k9909 o|contracted procedure: k9935 o|contracted procedure: k9939 o|contracted procedure: k9931 o|contracted procedure: k9912 o|contracted procedure: k9915 o|contracted procedure: k9923 o|contracted procedure: k9927 o|contracted procedure: k9993 o|contracted procedure: k9957 o|contracted procedure: k9983 o|contracted procedure: k9987 o|contracted procedure: k9979 o|contracted procedure: k9960 o|contracted procedure: k9963 o|contracted procedure: k9971 o|contracted procedure: k9975 o|contracted procedure: k10041 o|contracted procedure: k10005 o|contracted procedure: k10031 o|contracted procedure: k10035 o|contracted procedure: k10027 o|contracted procedure: k10008 o|contracted procedure: k10011 o|contracted procedure: k10019 o|contracted procedure: k10023 o|contracted procedure: k10053 o|contracted procedure: k10056 o|contracted procedure: k10059 o|contracted procedure: k10067 o|contracted procedure: k10087 o|contracted procedure: k10090 o|contracted procedure: k10093 o|contracted procedure: k10101 o|contracted procedure: k10121 o|contracted procedure: k10124 o|contracted procedure: k10127 o|contracted procedure: k10135 o|contracted procedure: k10143 o|contracted procedure: k10155 o|contracted procedure: k10177 o|contracted procedure: k10173 o|contracted procedure: k10158 o|contracted procedure: k10161 o|contracted procedure: k10169 o|contracted procedure: k10189 o|contracted procedure: k10211 o|contracted procedure: k10207 o|contracted procedure: k10192 o|contracted procedure: k10195 o|contracted procedure: k10203 o|contracted procedure: k10227 o|contracted procedure: k10232 o|contracted procedure: k10235 o|contracted procedure: k10241 o|contracted procedure: k10256 o|contracted procedure: k10439 o|contracted procedure: k10283 o|contracted procedure: k10435 o|contracted procedure: k10287 o|contracted procedure: k10295 o|contracted procedure: k10291 o|contracted procedure: k10279 o|contracted procedure: k10303 o|contracted procedure: k10319 o|contracted procedure: k10335 o|contracted procedure: k10331 o|contracted procedure: k10380 o|contracted procedure: k10344 o|contracted procedure: k10370 o|contracted procedure: k10374 o|contracted procedure: k10366 o|contracted procedure: k10347 o|contracted procedure: k10350 o|contracted procedure: k10358 o|contracted procedure: k10362 o|contracted procedure: k10428 o|contracted procedure: k10392 o|contracted procedure: k10418 o|contracted procedure: k10422 o|contracted procedure: k10414 o|contracted procedure: k10395 o|contracted procedure: k10398 o|contracted procedure: k10406 o|contracted procedure: k10410 o|contracted procedure: k10447 o|contracted procedure: k10455 o|contracted procedure: k10466 o|contracted procedure: k10482 o|contracted procedure: k10478 o|contracted procedure: k10527 o|contracted procedure: k10491 o|contracted procedure: k10517 o|contracted procedure: k10521 o|contracted procedure: k10513 o|contracted procedure: k10494 o|contracted procedure: k10497 o|contracted procedure: k10505 o|contracted procedure: k10509 o|contracted procedure: k10575 o|contracted procedure: k10539 o|contracted procedure: k10565 o|contracted procedure: k10569 o|contracted procedure: k10561 o|contracted procedure: k10542 o|contracted procedure: k10545 o|contracted procedure: k10553 o|contracted procedure: k10557 o|contracted procedure: k10582 o|contracted procedure: k10585 o|contracted procedure: k10591 o|contracted procedure: k10594 o|contracted procedure: k10601 o|contracted procedure: k10607 o|contracted procedure: k10610 o|contracted procedure: k10658 o|contracted procedure: k10622 o|contracted procedure: k10648 o|contracted procedure: k10652 o|contracted procedure: k10644 o|contracted procedure: k10625 o|contracted procedure: k10628 o|contracted procedure: k10636 o|contracted procedure: k10640 o|contracted procedure: k10672 o|contracted procedure: k10683 o|contracted procedure: k10728 o|contracted procedure: k10692 o|contracted procedure: k10718 o|contracted procedure: k10722 o|contracted procedure: k10714 o|contracted procedure: k10695 o|contracted procedure: k10698 o|contracted procedure: k10706 o|contracted procedure: k10710 o|contracted procedure: k10740 o|contracted procedure: k10762 o|contracted procedure: k10758 o|contracted procedure: k10743 o|contracted procedure: k10746 o|contracted procedure: k10754 o|contracted procedure: k10774 o|contracted procedure: k10777 o|contracted procedure: k10780 o|contracted procedure: k10788 o|contracted procedure: k10808 o|contracted procedure: k10811 o|contracted procedure: k10814 o|contracted procedure: k10822 o|contracted procedure: k10842 o|contracted procedure: k10864 o|contracted procedure: k10860 o|contracted procedure: k10845 o|contracted procedure: k10848 o|contracted procedure: k10856 o|contracted procedure: k10884 o|contracted procedure: k10901 o|contracted procedure: k10922 o|contracted procedure: k10918 o|contracted procedure: k10936 o|contracted procedure: k11029 o|contracted procedure: k10952 o|contracted procedure: k10963 o|contracted procedure: k10959 o|contracted procedure: k10971 o|contracted procedure: k10974 o|contracted procedure: k11002 o|contracted procedure: k10998 o|contracted procedure: k10994 o|contracted procedure: k10990 o|contracted procedure: k11009 o|contracted procedure: k11017 o|contracted procedure: k11013 o|contracted procedure: k11020 o|contracted procedure: k11042 o|contracted procedure: k11054 o|contracted procedure: k11066 o|contracted procedure: k11074 o|contracted procedure: k11089 o|contracted procedure: k11101 o|contracted procedure: k11117 o|contracted procedure: k11107 o|inlining procedure: k11080 o|inlining procedure: k11080 o|inlining procedure: k11080 o|inlining procedure: k11080 o|inlining procedure: k11080 o|contracted procedure: k11124 o|contracted procedure: k11376 o|contracted procedure: k11138 o|contracted procedure: k11366 o|contracted procedure: k11362 o|contracted procedure: k11358 o|contracted procedure: k11354 o|contracted procedure: k11146 o|contracted procedure: k11332 o|contracted procedure: k11340 o|contracted procedure: k11336 o|contracted procedure: k11328 o|contracted procedure: k11154 o|contracted procedure: k11150 o|contracted procedure: k11142 o|contracted procedure: k11134 o|contracted procedure: k11167 o|contracted procedure: k11170 o|contracted procedure: k11320 o|contracted procedure: k11173 o|contracted procedure: k11285 o|contracted procedure: k11301 o|contracted procedure: k11297 o|contracted procedure: k11289 o|contracted procedure: k11293 o|contracted procedure: k11185 o|contracted procedure: k11192 o|contracted procedure: k11200 o|contracted procedure: k11204 o|contracted procedure: k11220 o|contracted procedure: k11216 o|contracted procedure: k11235 o|contracted procedure: k11251 o|contracted procedure: k11247 o|contracted procedure: k11239 o|contracted procedure: k11243 o|contracted procedure: k11231 o|contracted procedure: k11258 o|contracted procedure: k11274 o|contracted procedure: k11270 o|contracted procedure: k11262 o|contracted procedure: k11266 o|contracted procedure: k11281 o|contracted procedure: k11313 o|contracted procedure: k11385 o|contracted procedure: k11388 o|contracted procedure: k11391 o|contracted procedure: k11399 o|contracted procedure: k11407 o|contracted procedure: k11441 o|contracted procedure: k11451 o|contracted procedure: k11460 o|contracted procedure: k11463 o|contracted procedure: k11474 o|contracted procedure: k11480 o|contracted procedure: k11508 o|contracted procedure: k11527 o|contracted procedure: k11535 o|contracted procedure: k11539 o|contracted procedure: k11558 o|contracted procedure: k11577 o|contracted procedure: k11585 o|contracted procedure: k11589 o|contracted procedure: k11599 o|contracted procedure: k11608 o|contracted procedure: k11623 o|contracted procedure: k11619 o|contracted procedure: k11632 o|contracted procedure: k11654 o|contracted procedure: k11635 o|contracted procedure: k11650 o|contracted procedure: k11646 o|contracted procedure: k11660 o|contracted procedure: k11663 o|contracted procedure: k11669 o|contracted procedure: k11676 o|contracted procedure: k11679 o|contracted procedure: k11686 o|contracted procedure: k11715 o|contracted procedure: k11707 o|contracted procedure: k11735 o|contracted procedure: k11745 o|contracted procedure: k11741 o|contracted procedure: k11762 o|contracted procedure: k11822 o|contracted procedure: k11778 o|contracted procedure: k11798 o|contracted procedure: k11802 o|contracted procedure: k11806 o|contracted procedure: k11794 o|contracted procedure: k11814 o|contracted procedure: k11818 o|contracted procedure: k11835 o|contracted procedure: k11945 o|contracted procedure: k11941 o|contracted procedure: k11848 o|contracted procedure: k11864 o|contracted procedure: k11880 o|contracted procedure: k11885 o|contracted procedure: k11895 o|contracted procedure: k11900 o|contracted procedure: k11860 o|contracted procedure: k11856 o|contracted procedure: k11852 o|contracted procedure: k11912 o|contracted procedure: k11915 o|contracted procedure: k11918 o|contracted procedure: k11926 o|contracted procedure: k11934 o|contracted procedure: k12312 o|contracted procedure: k11958 o|contracted procedure: k11964 o|contracted procedure: k11967 o|contracted procedure: k11986 o|contracted procedure: k11998 o|contracted procedure: k12007 o|contracted procedure: k12097 o|contracted procedure: k12101 o|contracted procedure: k12017 o|contracted procedure: k12025 o|contracted procedure: k12033 o|contracted procedure: k12029 o|contracted procedure: k12021 o|contracted procedure: k12090 o|contracted procedure: k12054 o|contracted procedure: k12057 o|contracted procedure: k12060 o|contracted procedure: k12068 o|contracted procedure: k12072 o|contracted procedure: k12080 o|contracted procedure: k12084 o|contracted procedure: k12042 o|contracted procedure: k12117 o|contracted procedure: k12113 o|contracted procedure: k12124 o|contracted procedure: k12131 o|contracted procedure: k12139 o|contracted procedure: k12151 o|contracted procedure: k12154 o|contracted procedure: k12157 o|contracted procedure: k12165 o|contracted procedure: k12173 o|contracted procedure: k12195 o|contracted procedure: k12202 o|contracted procedure: k12210 o|contracted procedure: k12214 o|contracted procedure: k12217 o|contracted procedure: k12223 o|contracted procedure: k12232 o|contracted procedure: k12236 o|contracted procedure: k12267 o|contracted procedure: k12251 o|contracted procedure: k12255 o|contracted procedure: k12263 o|contracted procedure: k12273 o|contracted procedure: k12279 o|contracted procedure: k12286 o|contracted procedure: k12308 o|contracted procedure: k12297 o|contracted procedure: k12322 o|contracted procedure: k12331 o|contracted procedure: k12339 o|contracted procedure: k12342 o|contracted procedure: k12348 o|contracted procedure: k12360 o|contracted procedure: k12363 o|contracted procedure: k12369 o|contracted procedure: k12380 o|contracted procedure: k12410 o|contracted procedure: k12406 o|contracted procedure: k12398 o|contracted procedure: k12394 o|contracted procedure: k12419 o|contracted procedure: k12422 o|contracted procedure: k12425 o|contracted procedure: k12433 o|contracted procedure: k12441 o|contracted procedure: k12357 o|contracted procedure: k12453 o|contracted procedure: k12475 o|contracted procedure: k12471 o|contracted procedure: k12456 o|contracted procedure: k12459 o|contracted procedure: k12467 o|contracted procedure: k12484 o|contracted procedure: k12512 o|contracted procedure: k12531 o|contracted procedure: k12539 o|contracted procedure: k12543 o|contracted procedure: k12562 o|contracted procedure: k12580 o|contracted procedure: k12590 o|contracted procedure: k12597 o|contracted procedure: k12600 o|contracted procedure: k12606 o|contracted procedure: k12613 o|contracted procedure: k12617 o|contracted procedure: k12621 o|contracted procedure: k12659 o|contracted procedure: k12637 o|contracted procedure: k12651 o|contracted procedure: k12655 o|contracted procedure: k12766 o|contracted procedure: k12675 o|contracted procedure: k12702 o|contracted procedure: k12758 o|contracted procedure: k12754 o|contracted procedure: k12750 o|contracted procedure: k12716 o|contracted procedure: k12712 o|contracted procedure: k12739 o|contracted procedure: k12735 o|contracted procedure: k12728 o|contracted procedure: k12746 o|contracted procedure: k12762 o|contracted procedure: k13039 o|contracted procedure: k12770 o|contracted procedure: k12813 o|contracted procedure: k12831 o|contracted procedure: k12840 o|contracted procedure: k12843 o|contracted procedure: k12827 o|contracted procedure: k12823 o|contracted procedure: k12855 o|contracted procedure: k12858 o|contracted procedure: k12861 o|contracted procedure: k12869 o|contracted procedure: k12877 o|contracted procedure: k12899 o|contracted procedure: k12891 o|contracted procedure: k12895 o|contracted procedure: k12887 o|contracted procedure: k12906 o|contracted procedure: k12920 o|contracted procedure: k12915 o|contracted procedure: k13035 o|contracted procedure: k13027 o|contracted procedure: k13031 o|contracted procedure: k13023 o|contracted procedure: k13019 o|contracted procedure: k12939 o|contracted procedure: k12943 o|contracted procedure: k12946 o|contracted procedure: k12949 o|contracted procedure: k12955 o|contracted procedure: k12931 o|contracted procedure: k12935 o|contracted procedure: k12970 o|contracted procedure: k12981 o|contracted procedure: k12977 o|contracted procedure: k12967 o|contracted procedure: k12990 o|contracted procedure: k12993 o|contracted procedure: k12996 o|contracted procedure: k13004 o|contracted procedure: k13012 o|contracted procedure: k13146 o|contracted procedure: k13043 o|contracted procedure: k13078 o|contracted procedure: k13142 o|contracted procedure: k13126 o|contracted procedure: k13138 o|contracted procedure: k13134 o|contracted procedure: k13130 o|contracted procedure: k13086 o|contracted procedure: k13118 o|contracted procedure: k13098 o|contracted procedure: k13114 o|contracted procedure: k13110 o|contracted procedure: k13106 o|contracted procedure: k13102 o|contracted procedure: k13094 o|contracted procedure: k13090 o|contracted procedure: k13082 o|contracted procedure: k13074 o|contracted procedure: k13066 o|simplifications: ((let . 107)) o|removed binding forms: 1030 o|inlining procedure: k6734 o|substituted constant variable: r1108114654 o|substituted constant variable: r1108114655 o|substituted constant variable: r1108114656 o|substituted constant variable: r1108114657 o|inlining procedure: k11224 o|inlining procedure: k11224 o|inlining procedure: k11876 o|inlining procedure: k11876 o|inlining procedure: k12121 o|inlining procedure: k12121 o|simplifications: ((let . 1)) o|replaced variables: 357 o|removed binding forms: 2 o|removed conditional forms: 4 o|substituted constant variable: r1187714825 o|substituted constant variable: r1187714825 o|replaced variables: 2 o|removed binding forms: 244 o|contracted procedure: k9628 o|contracted procedure: k9813 o|contracted procedure: k12076 o|contracted procedure: k12437 o|replaced variables: 2 o|removed binding forms: 8 o|removed binding forms: 1 o|direct leaf routine/allocation: g30443053 0 o|direct leaf routine/allocation: g18451856 30 o|direct leaf routine/allocation: g623632 15 o|contracted procedure: "(chicken-syntax.scm:1106) k6595" o|contracted procedure: "(chicken-syntax.scm:512) k9865" o|contracted procedure: "(chicken-syntax.scm:95) k12873" o|removed binding forms: 3 o|customizable procedures: (map-loop648665 k12801 k12804 k12807 map-loop617638 k12724 k12583 loop734755 loop734771 map-loop782800 map-loop810828 k12242 loop855 loop2869 map-loop879904 map-loop913937 g974983 map-loop968990 k11605 k11629 loop10881109 loop10881120 g11631172 map-loop11571183 k11212 mapslots1193 k10983 map-loop12761293 g13091318 map-loop13031321 g13371346 map-loop13311349 map-loop13821399 map-loop13611406 loop1437 map-loop14181440 map-loop14521476 map-loop14881512 map-loop15241548 map-loop15601584 map-loop16061623 map-loop16331650 g16661675 map-loop16601678 g16941703 map-loop16881706 g17221731 map-loop17161734 map-loop17461765 map-loop17771796 map-loop18081827 k9839 map-loop18391866 map-loop18811905 map-loop19171941 k9602 map-loop19531980 map-loop19952019 map-loop20312055 g20812090 map-loop20752120 for-each-loop21562183 map-loop21662196 map-loop22272244 loop2252 g22712280 map-loop22652283 loop2293 map-loop23512369 k8739 fold2303 g23222331 map-loop23162334 fold2385 map-loop24042421 map-loop24302447 foldl24822486 map-loop24592498 map-loop25072526 quotify-proc25592561 k8059 k8071 fold2585 map-loop26592676 g26952704 map-loop26892707 map-loop27172734 g27522761 map-loop27462764 recur2629 make-if-tree2623 prefix-sym2683 recur2644 loop2812 map-loop28422863 genvars2834 foldr28852888 g28902891 k6895 build2910 map-loop29332952 loop122 loop2836 map-loop30093026 map-loop30383056 k6359 k6365 k6372 k6380 loop3063 loop3107 loop3137 k5740 k5763 take) o|calls to known targets: 254 o|identified direct recursive calls: f_4313 1 o|identified direct recursive calls: f_6572 1 o|identified direct recursive calls: f_6610 1 o|identified direct recursive calls: f_4371 1 o|identified direct recursive calls: f_6941 1 o|identified direct recursive calls: f_6865 1 o|identified direct recursive calls: f_7786 1 o|identified direct recursive calls: f_7854 1 o|identified direct recursive calls: f_8332 1 o|identified direct recursive calls: f_8402 1 o|identified direct recursive calls: f_8436 1 o|identified direct recursive calls: f_8491 1 o|identified direct recursive calls: f_8817 1 o|identified direct recursive calls: f_8929 1 o|identified direct recursive calls: f_8967 1 o|identified direct recursive calls: f_9074 1 o|identified direct recursive calls: f_9501 1 o|identified direct recursive calls: f_9549 1 o|identified direct recursive calls: f_9738 1 o|identified direct recursive calls: f_9786 1 o|identified direct recursive calls: f_9904 1 o|identified direct recursive calls: f_9952 1 o|identified direct recursive calls: f_10000 1 o|identified direct recursive calls: f_10150 1 o|identified direct recursive calls: f_10184 1 o|identified direct recursive calls: f_10339 1 o|identified direct recursive calls: f_10387 1 o|identified direct recursive calls: f_10486 1 o|identified direct recursive calls: f_10534 1 o|identified direct recursive calls: f_10617 1 o|identified direct recursive calls: f_10667 1 o|identified direct recursive calls: f_10687 1 o|identified direct recursive calls: f_10735 1 o|identified direct recursive calls: f_10837 1 o|identified direct recursive calls: f_12049 1 o|identified direct recursive calls: f_12190 1 o|identified direct recursive calls: f_11993 1 o|identified direct recursive calls: f_12414 1 o|identified direct recursive calls: f_12448 1 o|identified direct recursive calls: f_12850 1 o|fast box initializations: 77 o|fast global references: 2 o|fast global assignments: 1 o|dropping unused closure argument: f_4313 o|dropping unused closure argument: f_7656 */ /* end of file */ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/posixunix.c���������������������������������������������������������������������������0000644�0001750�0001750�00002546343�13502227763�015171� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from posix.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: posix.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file posixunix.c -feature platform-unix -emit-import-library chicken.errno -emit-import-library chicken.file.posix -emit-import-library chicken.time.posix -emit-import-library chicken.process -emit-import-library chicken.process.signal -emit-import-library chicken.process-context.posix -no-module-registration unit: posix uses: scheduler pathname extras port lolevel library */ #include "chicken.h" #include <signal.h> static int C_not_implemented(void); int C_not_implemented() { return -1; } static C_TLS struct stat C_statbuf; #define C_stat_type (C_statbuf.st_mode & S_IFMT) #define C_stat_perm (C_statbuf.st_mode & ~S_IFMT) #define C_u_i_stat(fn) C_fix(C_stat(C_c_string(fn), &C_statbuf)) #define C_u_i_fstat(fd) C_fix(fstat(C_unfix(fd), &C_statbuf)) #ifndef S_IFSOCK # define S_IFSOCK 0140000 #endif #ifndef S_IRUSR # define S_IRUSR S_IREAD #endif #ifndef S_IWUSR # define S_IWUSR S_IWRITE #endif #ifndef S_IXUSR # define S_IXUSR S_IEXEC #endif #ifndef S_IRGRP # define S_IRGRP S_IREAD #endif #ifndef S_IWGRP # define S_IWGRP S_IWRITE #endif #ifndef S_IXGRP # define S_IXGRP S_IEXEC #endif #ifndef S_IROTH # define S_IROTH S_IREAD #endif #ifndef S_IWOTH # define S_IWOTH S_IWRITE #endif #ifndef S_IXOTH # define S_IXOTH S_IEXEC #endif #define cpy_tmvec_to_tmstc08(ptm, v) \ ((ptm)->tm_sec = C_unfix(C_block_item((v), 0)), \ (ptm)->tm_min = C_unfix(C_block_item((v), 1)), \ (ptm)->tm_hour = C_unfix(C_block_item((v), 2)), \ (ptm)->tm_mday = C_unfix(C_block_item((v), 3)), \ (ptm)->tm_mon = C_unfix(C_block_item((v), 4)), \ (ptm)->tm_year = C_unfix(C_block_item((v), 5)), \ (ptm)->tm_wday = C_unfix(C_block_item((v), 6)), \ (ptm)->tm_yday = C_unfix(C_block_item((v), 7)), \ (ptm)->tm_isdst = (C_block_item((v), 8) != C_SCHEME_FALSE)) #define cpy_tmvec_to_tmstc9(ptm, v) \ (((struct tm *)ptm)->tm_gmtoff = -C_unfix(C_block_item((v), 9))) #define C_tm_set_08(v, tm) cpy_tmvec_to_tmstc08( (tm), (v) ) #define C_tm_set_9(v, tm) cpy_tmvec_to_tmstc9( (tm), (v) ) static struct tm * C_tm_set( C_word v, void *tm ) { C_tm_set_08( v, (struct tm *)tm ); #if defined(C_GNU_ENV) && !defined(__CYGWIN__) && !defined(__uClinux__) C_tm_set_9( v, (struct tm *)tm ); #endif return tm; } #define TIME_STRING_MAXLENGTH 255 static char C_time_string [TIME_STRING_MAXLENGTH + 1]; #undef TIME_STRING_MAXLENGTH #define C_strftime(v, f, tm) \ (strftime(C_time_string, sizeof(C_time_string), C_c_string(f), C_tm_set((v), (tm))) ? C_time_string : NULL) #define C_a_mktime(ptr, c, v, tm) C_int64_to_num(ptr, mktime(C_tm_set((v), C_data_pointer(tm)))) #define C_asctime(v, tm) (asctime(C_tm_set((v), (tm)))) #define C_fdopen(a, n, fd, m) C_mpointer(a, fdopen(C_unfix(fd), C_c_string(m))) #define C_dup(x) C_fix(dup(C_unfix(x))) #define C_dup2(x, y) C_fix(dup2(C_unfix(x), C_unfix(y))) #define C_set_file_ptr(port, ptr) (C_set_block_item(port, 0, (C_block_item(ptr, 0))), C_SCHEME_UNDEFINED) /* It is assumed that 'int' is-a 'long' */ #define C_ftell(a, n, p) C_int64_to_num(a, ftell(C_port_file(p))) #define C_fseek(p, n, w) C_mk_nbool(fseek(C_port_file(p), C_num_to_int64(n), C_unfix(w))) #define C_lseek(fd, o, w) C_fix(lseek(C_unfix(fd), C_num_to_int64(o), C_unfix(w))) #ifndef S_IFLNK #define S_IFLNK S_IFREG #endif #ifndef S_IFREG #define S_IFREG S_IFREG #endif #ifndef S_IFDIR #define S_IFDIR S_IFREG #endif #ifndef S_IFCHR #define S_IFCHR S_IFREG #endif #ifndef S_IFBLK #define S_IFBLK S_IFREG #endif #ifndef S_IFSOCK #define S_IFSOCK S_IFREG #endif #ifndef S_IFIFO #define S_IFIFO S_IFREG #endif static C_TLS int C_wait_status; #include <sys/time.h> #include <sys/wait.h> #include <sys/ioctl.h> #include <fcntl.h> #include <dirent.h> #include <pwd.h> #include <utime.h> #if defined(__sun) && defined(__SVR4) # include <sys/tty.h> # include <termios.h> #endif #include <sys/mman.h> #include <poll.h> #ifndef O_FSYNC # define O_FSYNC O_SYNC #endif #ifndef PIPE_BUF # ifdef __CYGWIN__ # define PIPE_BUF _POSIX_PIPE_BUF # else # define PIPE_BUF 1024 # endif #endif #ifndef O_BINARY # define O_BINARY 0 #endif #ifndef O_TEXT # define O_TEXT 0 #endif #ifndef MAP_FILE # define MAP_FILE 0 #endif #ifndef MAP_ANON # define MAP_ANON 0 #endif #ifndef FILENAME_MAX # define FILENAME_MAX 1024 #endif static C_TLS struct flock C_flock; static C_TLS DIR *temphandle; static C_TLS struct passwd *C_user; /* Android doesn't provide pw_gecos in the passwd struct */ #ifdef __ANDROID__ # define C_PW_GECOS ("") #else # define C_PW_GECOS (C_user->pw_gecos) #endif static C_TLS int C_pipefds[ 2 ]; static C_TLS time_t C_secs; static C_TLS struct timeval C_timeval; static C_TLS struct stat C_statbuf; #define C_fchdir(fd) C_fix(fchdir(C_unfix(fd))) #define open_binary_input_pipe(a, n, name) C_mpointer(a, popen(C_c_string(name), "r")) #define open_text_input_pipe(a, n, name) open_binary_input_pipe(a, n, name) #define open_binary_output_pipe(a, n, name) C_mpointer(a, popen(C_c_string(name), "w")) #define open_text_output_pipe(a, n, name) open_binary_output_pipe(a, n, name) #define close_pipe(p) C_fix(pclose(C_port_file(p))) #define C_fork fork #define C_waitpid(id, o) C_fix(waitpid(C_unfix(id), &C_wait_status, C_unfix(o))) #define C_getppid getppid #define C_kill(id, s) C_fix(kill(C_unfix(id), C_unfix(s))) #define C_getuid getuid #define C_getgid getgid #define C_geteuid geteuid #define C_getegid getegid #define C_chown(fn, u, g) C_fix(chown(C_c_string(fn), C_unfix(u), C_unfix(g))) #define C_fchown(fd, u, g) C_fix(fchown(C_unfix(fd), C_unfix(u), C_unfix(g))) #define C_chmod(fn, m) C_fix(chmod(C_c_string(fn), C_unfix(m))) #define C_fchmod(fd, m) C_fix(fchmod(C_unfix(fd), C_unfix(m))) #define C_setuid(id) C_fix(setuid(C_unfix(id))) #define C_setgid(id) C_fix(setgid(C_unfix(id))) #define C_seteuid(id) C_fix(seteuid(C_unfix(id))) #define C_setegid(id) C_fix(setegid(C_unfix(id))) #define C_setsid(dummy) C_fix(setsid()) #define C_setpgid(x, y) C_fix(setpgid(C_unfix(x), C_unfix(y))) #define C_getpgid(x) C_fix(getpgid(C_unfix(x))) #define C_symlink(o, n) C_fix(symlink(C_c_string(o), C_c_string(n))) #define C_do_readlink(f, b) C_fix(readlink(C_c_string(f), C_c_string(b), FILENAME_MAX)) #define C_getpwnam(n) C_mk_bool((C_user = getpwnam(C_c_string(n))) != NULL) #define C_getpwuid(u) C_mk_bool((C_user = getpwuid(C_unfix(u))) != NULL) #define C_pipe(d) C_fix(pipe(C_pipefds)) #define C_truncate(f, n) C_fix(truncate(C_c_string(f), C_num_to_int(n))) #define C_ftruncate(f, n) C_fix(ftruncate(C_unfix(f), C_num_to_int(n))) #define C_alarm alarm #define C_close(fd) C_fix(close(C_unfix(fd))) #define C_umask(m) C_fix(umask(C_unfix(m))) #define C_u_i_lstat(fn) C_fix(lstat(C_c_string(fn), &C_statbuf)) #define C_u_i_execvp(f,a) C_fix(execvp(C_c_string(f), (char *const *)C_c_pointer_vector_or_null(a))) #define C_u_i_execve(f,a,e) C_fix(execve(C_c_string(f), (char *const *)C_c_pointer_vector_or_null(a), (char *const *)C_c_pointer_vector_or_null(e))) #if defined(__FreeBSD__) || defined(C_MACOSX) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(__sgi__) || defined(sgi) || defined(__DragonFly__) || defined(__SUNPRO_C) static C_TLS int C_uw; # define C_WIFEXITED(n) (C_uw = C_unfix(n), C_mk_bool(WIFEXITED(C_uw))) # define C_WIFSIGNALED(n) (C_uw = C_unfix(n), C_mk_bool(WIFSIGNALED(C_uw))) # define C_WIFSTOPPED(n) (C_uw = C_unfix(n), C_mk_bool(WIFSTOPPED(C_uw))) # define C_WEXITSTATUS(n) (C_uw = C_unfix(n), C_fix(WEXITSTATUS(C_uw))) # define C_WTERMSIG(n) (C_uw = C_unfix(n), C_fix(WTERMSIG(C_uw))) # define C_WSTOPSIG(n) (C_uw = C_unfix(n), C_fix(WSTOPSIG(C_uw))) #else # define C_WIFEXITED(n) C_mk_bool(WIFEXITED(C_unfix(n))) # define C_WIFSIGNALED(n) C_mk_bool(WIFSIGNALED(C_unfix(n))) # define C_WIFSTOPPED(n) C_mk_bool(WIFSTOPPED(C_unfix(n))) # define C_WEXITSTATUS(n) C_fix(WEXITSTATUS(C_unfix(n))) # define C_WTERMSIG(n) C_fix(WTERMSIG(C_unfix(n))) # define C_WSTOPSIG(n) C_fix(WSTOPSIG(C_unfix(n))) #endif #ifdef __CYGWIN__ # define C_mkfifo(fn, m) C_fix(-1); #else # define C_mkfifo(fn, m) C_fix(mkfifo(C_c_string(fn), C_unfix(m))) #endif #define C_flock_setup(t, s, n) (C_flock.l_type = C_unfix(t), C_flock.l_start = C_num_to_int(s), C_flock.l_whence = SEEK_SET, C_flock.l_len = C_num_to_int(n), C_SCHEME_UNDEFINED) #define C_flock_test(p) (fcntl(fileno(C_port_file(p)), F_GETLK, &C_flock) >= 0 ? (C_flock.l_type == F_UNLCK ? C_fix(0) : C_fix(C_flock.l_pid)) : C_SCHEME_FALSE) #define C_flock_lock(p) C_fix(fcntl(fileno(C_port_file(p)), F_SETLK, &C_flock)) #define C_flock_lockw(p) C_fix(fcntl(fileno(C_port_file(p)), F_SETLKW, &C_flock)) static C_TLS sigset_t C_sigset; #define C_sigemptyset(d) (sigemptyset(&C_sigset), C_SCHEME_UNDEFINED) #define C_sigaddset(s) (sigaddset(&C_sigset, C_unfix(s)), C_SCHEME_UNDEFINED) #define C_sigdelset(s) (sigdelset(&C_sigset, C_unfix(s)), C_SCHEME_UNDEFINED) #define C_sigismember(s) C_mk_bool(sigismember(&C_sigset, C_unfix(s))) #define C_sigprocmask_set(d) C_fix(sigprocmask(SIG_SETMASK, &C_sigset, NULL)) #define C_sigprocmask_block(d) C_fix(sigprocmask(SIG_BLOCK, &C_sigset, NULL)) #define C_sigprocmask_unblock(d) C_fix(sigprocmask(SIG_UNBLOCK, &C_sigset, NULL)) #define C_sigprocmask_get(d) C_fix(sigprocmask(SIG_SETMASK, NULL, &C_sigset)) #define C_open(fn, fl, m) C_fix(open(C_c_string(fn), C_unfix(fl), C_unfix(m))) #define C_read(fd, b, n) C_fix(read(C_unfix(fd), C_data_pointer(b), C_unfix(n))) #define C_write(fd, b, n) C_fix(write(C_unfix(fd), C_data_pointer(b), C_unfix(n))) #define C_mkstemp(t) C_fix(mkstemp(C_c_string(t))) #define C_ctime(n) (C_secs = (n), ctime(&C_secs)) #if defined(__SVR4) || defined(C_MACOSX) || defined(__ANDROID__) || defined(_AIX) /* Seen here: http://lists.samba.org/archive/samba-technical/2002-November/025571.html */ static time_t C_timegm(struct tm *t) { time_t tl, tb; struct tm *tg; tl = mktime (t); if (tl == -1) { t->tm_hour--; tl = mktime (t); if (tl == -1) return -1; /* can't deal with output from strptime */ tl += 3600; } tg = gmtime (&tl); tg->tm_isdst = 0; tb = mktime (tg); if (tb == -1) { tg->tm_hour--; tb = mktime (tg); if (tb == -1) return -1; /* can't deal with output from gmtime */ tb += 3600; } return (tl - (tb - tl)); } #else #define C_timegm timegm #endif #define C_a_timegm(ptr, c, v, tm) C_int64_to_num(ptr, C_timegm(C_tm_set((v), C_data_pointer(tm)))) #ifdef __linux__ extern char *strptime(const char *s, const char *format, struct tm *tm); extern pid_t getpgid(pid_t pid); #endif /* tm_get could be in posix-common, but it's only used in here */ #define cpy_tmstc08_to_tmvec(v, ptm) \ (C_set_block_item((v), 0, C_fix(((struct tm *)ptm)->tm_sec)), \ C_set_block_item((v), 1, C_fix((ptm)->tm_min)), \ C_set_block_item((v), 2, C_fix((ptm)->tm_hour)), \ C_set_block_item((v), 3, C_fix((ptm)->tm_mday)), \ C_set_block_item((v), 4, C_fix((ptm)->tm_mon)), \ C_set_block_item((v), 5, C_fix((ptm)->tm_year)), \ C_set_block_item((v), 6, C_fix((ptm)->tm_wday)), \ C_set_block_item((v), 7, C_fix((ptm)->tm_yday)), \ C_set_block_item((v), 8, ((ptm)->tm_isdst ? C_SCHEME_TRUE : C_SCHEME_FALSE))) #define cpy_tmstc9_to_tmvec(v, ptm) \ (C_set_block_item((v), 9, C_fix(-(ptm)->tm_gmtoff))) #define C_tm_get_08(v, tm) cpy_tmstc08_to_tmvec( (v), (tm) ) #define C_tm_get_9(v, tm) cpy_tmstc9_to_tmvec( (v), (tm) ) static C_word C_tm_get( C_word v, void *tm ) { C_tm_get_08( v, (struct tm *)tm ); #if defined(C_GNU_ENV) && !defined(__CYGWIN__) && !defined(__uClinux__) C_tm_get_9( v, (struct tm *)tm ); #endif return v; } #define C_strptime(s, f, v, stm) \ (strptime(C_c_string(s), C_c_string(f), ((struct tm *)(stm))) ? C_tm_get((v), (stm)) : C_SCHEME_FALSE) static int set_file_mtime(char *filename, C_word atime, C_word mtime) { struct stat sb; struct utimbuf tb; /* Only lstat if needed */ if (atime == C_SCHEME_FALSE || mtime == C_SCHEME_FALSE) { if (lstat(filename, &sb) == -1) return -1; } if (atime == C_SCHEME_FALSE) { tb.actime = sb.st_atime; } else { tb.actime = C_num_to_int64(atime); } if (mtime == C_SCHEME_FALSE) { tb.modtime = sb.st_mtime; } else { tb.modtime = C_num_to_int64(mtime); } return utime(filename, &tb); } static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_scheduler_toplevel) C_externimport void C_ccall C_scheduler_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_port_toplevel) C_externimport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_lolevel_toplevel) C_externimport void C_ccall C_lolevel_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[493]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,115,121,115,116,101,109,32,99,109,100,41,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,115,121,115,116,101,109,42,32,115,116,114,41,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,8),40,103,50,53,54,32,99,41}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,50,53,48,32,103,50,54,50,41,0,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,113,115,32,115,116,114,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,112,111,115,105,120,45,101,114,114,111,114,32,116,121,112,101,32,108,111,99,32,109,115,103,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,115,116,97,116,32,102,105,108,101,32,108,105,110,107,32,101,114,114,32,108,111,99,41,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,115,116,97,116,32,102,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,101,116,45,102,105,108,101,45,112,101,114,109,105,115,115,105,111,110,115,33,32,102,32,112,41,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,109,111,100,105,102,105,99,97,116,105,111,110,45,116,105,109,101,32,102,41,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,97,99,99,101,115,115,45,116,105,109,101,32,102,41,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,99,104,97,110,103,101,45,116,105,109,101,32,102,41,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,101,116,45,102,105,108,101,45,116,105,109,101,115,33,32,102,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,115,105,122,101,32,102,41}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,101,116,45,102,105,108,101,45,111,119,110,101,114,33,32,102,32,117,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,101,116,45,102,105,108,101,45,103,114,111,117,112,33,32,102,32,103,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,116,121,112,101,32,102,105,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,114,101,103,117,108,97,114,45,102,105,108,101,63,32,102,105,108,101,41,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,121,109,98,111,108,105,99,45,108,105,110,107,63,32,102,105,108,101,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,98,108,111,99,107,45,100,101,118,105,99,101,63,32,102,105,108,101,41,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,99,104,97,114,97,99,116,101,114,45,100,101,118,105,99,101,63,32,102,105,108,101,41,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,102,111,63,32,102,105,108,101,41,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,111,99,107,101,116,63,32,102,105,108,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,100,105,114,101,99,116,111,114,121,63,32,102,105,108,101,41,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,57),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,115,101,116,45,102,105,108,101,45,112,111,115,105,116,105,111,110,33,32,112,111,114,116,32,112,111,115,32,46,32,119,104,101,110,99,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,16),40,109,111,100,101,32,105,110,112,32,109,32,108,111,99,41}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,20),40,99,104,101,99,107,32,108,111,99,32,102,100,32,105,110,112,32,114,41,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,111,112,101,110,45,105,110,112,117,116,45,102,105,108,101,42,32,102,100,32,46,32,109,41,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,111,112,101,110,45,111,117,116,112,117,116,45,102,105,108,101,42,32,102,100,32,46,32,109,41,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,112,111,114,116,45,62,102,105,108,101,110,111,32,112,111,114,116,41,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,100,117,112,108,105,99,97,116,101,45,102,105,108,101,110,111,32,111,108,100,32,46,32,110,101,119,41,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,50),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,117,114,114,101,110,116,45,112,114,111,99,101,115,115,45,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,42,32,102,100,41,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,45,104,111,111,107,32,100,105,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,16),67,95,100,101,99,111,100,101,95,115,101,99,111,110,100,115}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,99,104,101,99,107,45,116,105,109,101,45,118,101,99,116,111,114,32,108,111,99,32,116,109,41}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,115,101,99,111,110,100,115,45,62,108,111,99,97,108,45,116,105,109,101,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,115,101,99,111,110,100,115,45,62,117,116,99,45,116,105,109,101,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,115,101,99,111,110,100,115,45,62,115,116,114,105,110,103,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,108,111,99,97,108,45,116,105,109,101,45,62,115,101,99,111,110,100,115,32,116,109,41,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,116,105,109,101,45,62,115,116,114,105,110,103,32,116,109,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,53),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,101,116,45,115,105,103,110,97,108,45,104,97,110,100,108,101,114,33,32,115,105,103,32,112,114,111,99,41,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,115,108,101,101,112,32,110,41,0,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,7),40,97,51,56,57,48,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,24),40,97,51,56,57,54,32,101,112,105,100,32,101,110,111,114,109,32,101,99,111,100,101,41}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,119,97,105,116,32,46,32,97,114,103,115,41,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,7),40,97,51,57,54,53,41,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,11),40,97,51,57,53,57,32,101,120,110,41,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,57,57,51,32,115,108,32,105,41}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,10),40,116,109,112,49,50,53,50,53,41,0,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,7),40,97,52,48,51,57,41,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,15),40,116,109,112,50,50,53,50,54,32,97,114,103,115,41,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,7),40,97,51,57,55,52,41,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,9),40,97,51,57,53,51,32,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,61),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,108,105,115,116,45,62,99,45,115,116,114,105,110,103,45,98,117,102,102,101,114,32,115,116,114,105,110,103,45,108,105,115,116,32,99,111,110,118,101,114,116,32,108,111,99,41,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,49,48,49,50,32,105,41,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,102,114,101,101,45,99,45,115,116,114,105,110,103,45,98,117,102,102,101,114,32,98,117,102,102,101,114,45,97,114,114,97,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,7),40,103,49,48,50,53,41,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,48,50,52,41,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,99,104,101,99,107,45,101,110,118,105,114,111,110,109,101,110,116,45,108,105,115,116,32,108,115,116,32,108,111,99,41,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,7),40,110,111,112,32,120,41,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,7),40,97,52,49,54,55,41,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,11),40,97,52,49,54,49,32,101,120,110,41,0,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,48,54,56,32,103,49,48,56,48,41,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,7),40,97,52,49,56,56,41,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,7),40,97,52,50,54,57,41,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,14),40,97,52,50,54,51,32,46,32,97,114,103,115,41,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,7),40,97,52,49,56,50,41,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,9),40,97,52,49,53,53,32,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,77),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,99,97,108,108,45,119,105,116,104,45,101,120,101,99,45,97,114,103,115,32,108,111,99,32,102,105,108,101,110,97,109,101,32,97,114,103,99,111,110,118,32,97,114,103,108,105,115,116,32,101,110,118,108,105,115,116,32,112,114,111,99,41,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,21),40,99,104,101,99,107,32,108,111,99,32,99,109,100,32,105,110,112,32,114,41,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,111,112,101,110,45,105,110,112,117,116,45,112,105,112,101,32,99,109,100,32,46,32,109,41,0,0,0,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,111,112,101,110,45,111,117,116,112,117,116,45,112,105,112,101,32,99,109,100,32,46,32,109,41,0,0,0,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,99,108,111,115,101,45,105,110,112,117,116,45,112,105,112,101,32,112,111,114,116,41,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,99,108,111,115,101,45,111,117,116,112,117,116,45,112,105,112,101,32,112,111,114,116,41}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,7),40,97,52,52,51,50,41,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,17),40,97,52,52,52,51,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,7),40,97,52,52,51,55,41,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,7),40,97,52,52,53,50,41,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,112,105,112,101,32,99,109,100,32,116,104,117,110,107,32,46,32,109,111,100,101,41,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,7),40,97,52,52,54,54,41,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,17),40,97,52,52,55,50,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,99,97,108,108,45,119,105,116,104,45,111,117,116,112,117,116,45,112,105,112,101,32,99,109,100,32,112,114,111,99,32,46,32,109,111,100,101,41,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,7),40,97,52,52,57,48,41,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,17),40,97,52,52,57,54,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,99,97,108,108,45,119,105,116,104,45,105,110,112,117,116,45,112,105,112,101,32,99,109,100,32,112,114,111,99,32,46,32,109,111,100,101,41,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,7),40,97,52,53,49,52,41,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,17),40,97,52,53,50,53,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,7),40,97,52,53,49,57,41,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,7),40,97,52,53,51,52,41,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,112,105,112,101,32,99,109,100,32,116,104,117,110,107,32,46,32,109,111,100,101,41,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,102,105,108,101,45,110,111,110,98,108,111,99,107,105,110,103,33,32,102,100,49,50,54,55,41}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,102,105,108,101,45,115,101,108,101,99,116,45,111,110,101,32,105,110,116,49,50,55,50,41,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,99,111,110,116,114,111,108,32,102,100,32,99,109,100,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,111,112,101,110,32,102,105,108,101,110,97,109,101,32,102,108,97,103,115,32,46,32,109,111,100,101,41,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,99,108,111,115,101,32,102,100,41,0,0,0,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,114,101,97,100,32,102,100,32,115,105,122,101,32,46,32,98,117,102,102,101,114,41,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,119,114,105,116,101,32,102,100,32,98,117,102,102,101,114,32,46,32,115,105,122,101,41}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,109,107,115,116,101,109,112,32,116,101,109,112,108,97,116,101,41,0,0,0,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,51,54,54,32,102,100,115,114,108,41,0,0,0,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,51,54,55,32,102,100,115,119,108,41,0,0,0,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,14),40,108,112,32,105,32,114,101,115,32,102,100,115,41,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,14),40,108,112,32,105,32,114,101,115,32,102,100,115,41,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,115,101,108,101,99,116,32,102,100,115,114,32,102,100,115,119,32,46,32,116,105,109,101,111,117,116,41,0,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,99,114,101,97,116,101,45,112,105,112,101,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,52,56,48,32,103,49,52,56,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,101,116,45,115,105,103,110,97,108,45,109,97,115,107,33,32,115,105,103,115,41,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,105,103,110,97,108,45,109,97,115,107,101,100,63,32,115,105,103,41,0,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,105,103,110,97,108,45,109,97,115,107,33,32,115,105,103,41,0,0,0,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,105,103,110,97,108,45,117,110,109,97,115,107,33,32,115,105,103,41,0,0,0,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,60),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,117,115,101,114,45,105,110,102,111,114,109,97,116,105,111,110,32,117,115,101,114,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,117,114,114,101,110,116,45,117,115,101,114,45,110,97,109,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,59),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,117,114,114,101,110,116,45,101,102,102,101,99,116,105,118,101,45,117,115,101,114,45,110,97,109,101,41,0,0,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,99,104,111,119,110,32,108,111,99,32,102,32,117,105,100,32,103,105,100,41,0,0,0,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,99,114,101,97,116,101,45,115,101,115,115,105,111,110,41,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,99,114,101,97,116,101,45,115,121,109,98,111,108,105,99,45,108,105,110,107,32,111,108,100,32,110,101,119,41,0,0,0,0,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,114,101,97,100,45,115,121,109,98,111,108,105,99,45,108,105,110,107,32,102,110,97,109,101,32,108,111,99,97,116,105,111,110,41,0,0,0,0,0,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,7),40,97,53,53,52,50,41,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,32,99,111,109,112,111,110,101,110,116,115,32,114,101,115,117,108,116,41}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,55),40,97,53,53,52,56,32,98,97,115,101,45,111,114,105,103,105,110,32,98,97,115,101,45,100,105,114,101,99,116,111,114,121,32,100,105,114,101,99,116,111,114,121,45,99,111,109,112,111,110,101,110,116,115,41,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,114,101,97,100,45,115,121,109,98,111,108,105,99,45,108,105,110,107,32,102,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,108,105,110,107,32,111,108,100,32,110,101,119,41,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,8),40,114,101,97,100,121,63,41}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,7),40,102,101,116,99,104,41,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,7),40,97,53,56,51,56,41,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,7),40,97,53,56,54,51,41,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,7),40,97,53,56,55,53,41,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,7),40,97,53,56,57,49,41,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,110,32,109,32,115,116,97,114,116,41}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,25),40,97,53,57,48,54,32,112,111,114,116,32,110,32,100,101,115,116,32,115,116,97,114,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,11),40,97,54,48,49,48,32,112,111,115,41,0,0,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,7),40,97,54,48,48,48,41,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,28),40,97,54,48,53,54,32,110,101,120,116,32,108,105,110,101,32,102,117,108,108,45,108,105,110,101,63,41,0,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,15),40,97,53,57,56,50,32,112,32,108,105,109,105,116,41,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,12),40,97,54,49,48,49,32,112,111,114,116,41,0,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,99,117,115,116,111,109,45,105,110,112,117,116,45,112,111,114,116,32,108,111,99,32,110,97,109,32,102,100,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,18),40,112,111,107,101,49,55,54,49,32,115,116,114,32,108,101,110,41,0,0,0,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,11),40,97,54,50,55,55,32,115,116,114,41,0,0,0,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,7),40,97,54,50,56,51,41,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,7),40,97,54,50,57,57,41,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,12),40,102,95,54,51,48,56,32,115,116,114,41,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,114,101,109,32,115,116,97,114,116,32,108,101,110,41,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,12),40,102,95,54,51,50,51,32,115,116,114,41,0,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,99,117,115,116,111,109,45,111,117,116,112,117,116,45,112,111,114,116,32,108,111,99,32,110,97,109,32,102,100,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,116,114,117,110,99,97,116,101,32,102,110,97,109,101,32,111,102,102,41,0,0,0,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,21),40,115,101,116,117,112,32,112,111,114,116,32,97,114,103,115,32,108,111,99,41,0,0,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,18),40,101,114,114,32,109,115,103,32,108,111,99,107,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,108,111,99,107,32,112,111,114,116,32,46,32,97,114,103,115,41,0,0,0,0,0,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,108,111,99,107,47,98,108,111,99,107,105,110,103,32,112,111,114,116,32,46,32,97,114,103,115,41,0,0,0,0,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,116,101,115,116,45,108,111,99,107,32,112,111,114,116,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,7),40,97,54,54,56,49,41,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,102,105,108,101,45,117,110,108,111,99,107,32,108,111,99,107,41,0,0,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,102,105,108,101,46,112,111,115,105,120,35,99,114,101,97,116,101,45,102,105,102,111,32,102,110,97,109,101,32,46,32,109,111,100,101,41,0,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,115,116,114,105,110,103,45,62,116,105,109,101,32,116,105,109,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,117,116,99,45,116,105,109,101,45,62,115,101,99,111,110,100,115,32,116,109,41,0,0,0,0,0,0,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,116,105,109,101,46,112,111,115,105,120,35,108,111,99,97,108,45,116,105,109,101,122,111,110,101,45,97,98,98,114,101,118,105,97,116,105,111,110,41}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,46,115,105,103,110,97,108,35,115,101,116,45,97,108,97,114,109,33,32,105,110,116,49,57,50,52,41,0,0,0,0,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,14),40,102,95,54,56,55,51,32,116,104,117,110,107,41,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,7),40,97,54,56,54,52,41,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,7),40,97,54,56,53,56,41,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,102,111,114,107,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,9),40,97,54,57,51,54,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,25),40,97,54,57,51,57,32,112,114,103,32,97,114,103,98,117,102,32,101,110,118,98,117,102,41,0,0,0,0,0,0,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,101,120,101,99,117,116,101,32,102,105,108,101,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,7),40,97,55,48,48,54,41,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,112,114,111,99,101,115,115,45,119,97,105,116,45,105,109,112,108,32,112,105,100,32,110,111,104,97,110,103,41,0,0,0,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,112,97,114,101,110,116,45,112,114,111,99,101,115,115,45,105,100,41,0,0,0,0,0,0,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,115,105,103,110,97,108,32,105,100,32,46,32,115,105,103,41,0,0,0,0,0,0,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,115,104,101,108,108,45,99,111,109,109,97,110,100,41,0,0,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,114,117,110,32,102,32,46,32,97,114,103,115,41,0,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,7),40,97,55,49,52,50,41,0}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,17),40,97,55,49,52,56,32,95,32,102,108,103,32,99,111,100,41,0,0,0,0,0,0,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,8),40,102,95,55,49,50,56,41}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,44),40,109,97,107,101,45,111,110,45,99,108,111,115,101,32,108,111,99,32,112,105,100,32,99,108,115,118,101,99,32,105,100,120,32,105,100,120,97,32,105,100,120,98,41,0,0,0,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,7),40,97,55,49,55,49,41,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,11),40,97,55,49,55,55,32,105,32,111,41,0,0,0,0,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,18),40,110,101,101,100,101,100,45,112,105,112,101,32,112,111,114,116,41,0,0,0,0,0,0}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,26),40,99,111,110,110,101,99,116,45,112,97,114,101,110,116,32,112,105,112,101,32,112,111,114,116,41,0,0,0,0,0,0}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,31),40,99,111,110,110,101,99,116,45,99,104,105,108,100,32,112,105,112,101,32,112,111,114,116,32,115,116,100,102,100,41,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,14),40,115,119,97,112,112,101,100,45,101,110,100,115,41,0,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,7),40,97,55,50,52,54,41,0}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,43),40,115,112,97,119,110,32,99,109,100,32,97,114,103,115,32,101,110,118,32,115,116,100,111,117,116,102,32,115,116,100,105,110,102,32,115,116,100,101,114,114,102,41,0,0,0,0,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,39),40,105,110,112,117,116,45,112,111,114,116,32,108,111,99,32,99,109,100,32,112,105,112,101,32,115,116,100,102,32,111,110,45,99,108,111,115,101,41,0}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,40),40,111,117,116,112,117,116,45,112,111,114,116,32,108,111,99,32,99,109,100,32,112,105,112,101,32,115,116,100,102,32,111,110,45,99,108,111,115,101,41}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,7),40,97,55,50,57,54,41,0}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,34),40,97,55,51,48,50,32,105,110,112,105,112,101,32,111,117,116,112,105,112,101,32,101,114,114,112,105,112,101,32,112,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,68),40,99,104,105,99,107,101,110,46,112,111,115,105,120,35,112,114,111,99,101,115,115,45,105,109,112,108,32,108,111,99,32,99,109,100,32,97,114,103,115,32,101,110,118,32,115,116,100,111,117,116,102,32,115,116,100,105,110,102,32,115,116,100,101,114,114,102,41,0,0,0,0}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,7),40,103,50,49,50,48,41,0}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,49,49,57,41,0,0,0,0,0}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,15),40,99,104,107,115,116,114,108,115,116,32,108,115,116,41,0}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,7),40,97,55,51,57,55,41,0}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,34),40,37,112,114,111,99,101,115,115,32,108,111,99,32,101,114,114,63,32,99,109,100,32,97,114,103,115,32,101,110,118,32,107,41,0,0,0,0,0,0}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,15),40,97,55,52,52,49,32,105,32,111,32,112,32,101,41,0}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,32,99,109,100,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,42,32,99,109,100,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,46,112,111,115,105,120,35,115,101,116,45,114,111,111,116,45,100,105,114,101,99,116,111,114,121,33,32,100,105,114,41,0}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,35,112,114,111,99,101,115,115,45,115,112,97,119,110,32,46,32,95,41,0,0,0,0,0}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,101,114,114,110,111,35,101,114,114,110,111,41,0,0,0}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,11),40,97,55,54,50,55,32,112,105,100,41,0,0,0,0,0}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,16),40,97,55,54,52,53,32,112,105,100,32,112,103,105,100,41}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,7),40,97,55,54,54,55,41,0}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,10),40,97,55,54,55,48,32,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,7),40,97,55,54,56,54,41,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,10),40,97,55,54,56,57,32,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,7),40,97,55,55,48,53,41,0}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,10),40,97,55,55,48,56,32,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,7),40,97,55,55,50,52,41,0}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,10),40,97,55,55,50,55,32,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,115,105,103,115,32,109,97,115,107,41}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,7),40,97,55,55,52,51,41,0}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,11),40,97,55,55,55,51,32,115,105,103,41,0,0,0,0,0}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,14),40,97,55,55,56,50,32,46,32,114,101,115,116,41,0,0}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,10),40,97,55,56,48,55,32,117,109,41,0,0,0,0,0,0}; static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,12),40,97,55,56,49,51,32,112,111,114,116,41,0,0,0,0}; static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,9),40,97,55,56,53,48,32,102,41,0,0,0,0,0,0,0}; static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,9),40,97,55,56,53,54,32,102,41,0,0,0,0,0,0,0}; static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,9),40,97,55,56,54,50,32,102,41,0,0,0,0,0,0,0}; static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; /* from k7547 in chicken.process-context.posix#set-root-directory! in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ C_regparm static C_word C_fcall stub2190(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; char * t0=(char * )C_c_string(C_a0); C_r=C_fix((C_word)chroot(t0)); return C_r;} /* from chicken.process-context.posix#parent-process-id in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ C_regparm static C_word C_fcall stub1995(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_fix((C_word)C_getppid()); return C_r;} /* from k6831 */ C_regparm static C_word C_fcall stub1949(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_c_pointer_or_null(C_a0); C_r=C_fix((C_word)C_fflush(t0)); return C_r;} /* from fork */ C_regparm static C_word C_fcall stub1929(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_fix((C_word)C_fork()); return C_r;} /* from k6808 */ C_regparm static C_word C_fcall stub1925(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_fix((C_word)C_alarm(t0)); return C_r;} #define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub1921(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; #if !defined(__CYGWIN__) && !defined(__SVR4) && !defined(__uClinux__) && !defined(__hpux__) && !defined(_AIX) time_t clock = time(NULL); struct tm *ltm = C_localtime(&clock); char *z = ltm ? (char *)ltm->tm_zone : 0; #else char *z = (daylight ? tzname[1] : tzname[0]); #endif C_return(z); C_ret: #undef return return C_r;} /* from k6736 */ C_regparm static C_word C_fcall stub1894(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word t0=(C_word )(C_a0); C_word t1=(C_word )(C_a1); C_word t2=(C_word )(C_a2); void * t3=(void * )C_data_pointer_or_null(C_a3); C_r=((C_word)C_strptime(t0,t1,t2,t3)); return C_r;} /* from k5632 in k5628 in chicken.file.posix#file-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ C_regparm static C_word C_fcall stub1614(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; char * t0=(char * )C_c_string(C_a0); char * t1=(char * )C_c_string(C_a1); C_r=C_fix((C_word)link(t0,t1)); return C_r;} /* from a7667 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ C_regparm static C_word C_fcall stub1530(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_fix((C_word)C_getegid()); return C_r;} /* from a7686 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ C_regparm static C_word C_fcall stub1526(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_fix((C_word)C_getgid()); return C_r;} /* from a7705 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ C_regparm static C_word C_fcall stub1522(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_fix((C_word)C_geteuid()); return C_r;} /* from a7724 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ C_regparm static C_word C_fcall stub1518(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_fix((C_word)C_getuid()); return C_r;} #define return(x) C_cblock C_r = (C_mk_bool((x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub1452(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int i=(int )C_unfix(C_a0); void * p=(void * )C_data_pointer_or_null(C_a1); struct pollfd *fds = p; C_return(fds[i].revents & (POLLOUT|POLLERR|POLLHUP|POLLNVAL)); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_mk_bool((x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub1433(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int i=(int )C_unfix(C_a0); void * p=(void * )C_data_pointer_or_null(C_a1); struct pollfd *fds = p; C_return(fds[i].revents & (POLLIN|POLLERR|POLLHUP|POLLNVAL)); C_ret: #undef return return C_r;} /* from k4832 */ C_regparm static C_word C_fcall stub1408(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_data_pointer_or_null(C_a0); int t1=(int )C_unfix(C_a1); int t2=(int )C_unfix(C_a2); C_r=C_fix((C_word)poll(t0,t1,t2)); return C_r;} #define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub1393(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int i=(int )C_unfix(C_a0); int fd=(int )C_unfix(C_a1); void * p=(void * )C_data_pointer_or_null(C_a2); struct pollfd *fds = p; fds[i].fd = fd; fds[i].events = POLLOUT; C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub1376(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int i=(int )C_unfix(C_a0); int fd=(int )C_unfix(C_a1); void * p=(void * )C_data_pointer_or_null(C_a2); struct pollfd *fds = p; fds[i].fd = fd; fds[i].events = POLLIN; C_ret: #undef return return C_r;} /* from k4583 */ C_regparm static C_word C_fcall stub1280(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); int t1=(int )C_unfix(C_a1); long t2=(long )C_num_to_long(C_a2); C_r=C_fix((C_word)fcntl(t0,t1,t2)); return C_r;} /* from k4550 */ C_regparm static C_word C_fcall stub1273(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_fix((C_word)C_check_fd_ready(t0)); return C_r;} #define return(x) C_cblock C_r = (C_mk_bool((x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub1268(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int fd=(int )C_unfix(C_a0); int val = fcntl(fd, F_GETFL, 0); if(val == -1) C_return(0); C_return(fcntl(fd, F_SETFL, val | O_NONBLOCK) != -1); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_mpointer_or_false(&C_a,(void*)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub976(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word o=(C_word )(C_a0); char *ptr = C_malloc(C_header_size(o)); if (ptr != NULL) { C_memcpy(ptr, C_data_pointer(o), C_header_size(o)); } C_return(ptr); C_ret: #undef return return C_r;} /* from k3776 */ C_regparm static C_word C_fcall stub919(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word t0=(C_word )(C_a0); C_word t1=(C_word )(C_a1); void * t2=(void * )C_data_pointer_or_null(C_a2); C_r=C_mpointer(&C_a,(void*)C_strftime(t0,t1,t2)); return C_r;} /* from k3763 */ C_regparm static C_word C_fcall stub909(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word t0=(C_word )(C_a0); void * t1=(void * )C_data_pointer_or_null(C_a1); C_r=C_mpointer(&C_a,(void*)C_asctime(t0,t1)); return C_r;} /* from k3695 */ C_regparm static C_word C_fcall stub882(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_num_to_int(C_a0); C_r=C_mpointer(&C_a,(void*)C_ctime(t0)); return C_r;} /* from chicken.process-context.posix#current-process-id in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ C_regparm static C_word C_fcall stub826(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_fix((C_word)C_getpid()); return C_r;} /* from k3106 in k3100 in k3097 in k3085 in chicken.file.posix#set-file-times! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ C_regparm static C_word C_fcall stub707(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; char * t0=(char * )C_string_or_null(C_a0); C_word t1=(C_word )(C_a1); C_word t2=(C_word )(C_a2); C_r=C_fix((C_word)set_file_mtime(t0,t1,t2)); return C_r;} /* from k2936 */ C_regparm static C_word C_fcall stub633(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_mpointer(&C_a,(void*)strerror(t0)); return C_r;} C_noret_decl(f_2617) static void C_ccall f_2617(C_word c,C_word *av) C_noret; C_noret_decl(f_2620) static void C_ccall f_2620(C_word c,C_word *av) C_noret; C_noret_decl(f_2623) static void C_ccall f_2623(C_word c,C_word *av) C_noret; C_noret_decl(f_2626) static void C_ccall f_2626(C_word c,C_word *av) C_noret; C_noret_decl(f_2629) static void C_ccall f_2629(C_word c,C_word *av) C_noret; C_noret_decl(f_2632) static void C_ccall f_2632(C_word c,C_word *av) C_noret; C_noret_decl(f_2718) static void C_ccall f_2718(C_word c,C_word *av) C_noret; C_noret_decl(f_2731) static void C_ccall f_2731(C_word c,C_word *av) C_noret; C_noret_decl(f_2736) static void C_ccall f_2736(C_word c,C_word *av) C_noret; C_noret_decl(f_2740) static void C_ccall f_2740(C_word c,C_word *av) C_noret; C_noret_decl(f_2752) static void C_ccall f_2752(C_word c,C_word *av) C_noret; C_noret_decl(f_2756) static void C_ccall f_2756(C_word c,C_word *av) C_noret; C_noret_decl(f_2766) static void C_fcall f_2766(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2787) static void C_ccall f_2787(C_word c,C_word *av) C_noret; C_noret_decl(f_2790) static void C_ccall f_2790(C_word c,C_word *av) C_noret; C_noret_decl(f_2801) static void C_ccall f_2801(C_word c,C_word *av) C_noret; C_noret_decl(f_2807) static void C_fcall f_2807(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2832) static void C_ccall f_2832(C_word c,C_word *av) C_noret; C_noret_decl(f_2939) static void C_ccall f_2939(C_word c,C_word *av) C_noret; C_noret_decl(f_2943) static void C_ccall f_2943(C_word c,C_word *av) C_noret; C_noret_decl(f_2950) static void C_ccall f_2950(C_word c,C_word *av) C_noret; C_noret_decl(f_2954) static void C_ccall f_2954(C_word c,C_word *av) C_noret; C_noret_decl(f_2957) static void C_fcall f_2957(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2961) static void C_ccall f_2961(C_word c,C_word *av) C_noret; C_noret_decl(f_2982) static void C_ccall f_2982(C_word c,C_word *av) C_noret; C_noret_decl(f_2986) static void C_ccall f_2986(C_word c,C_word *av) C_noret; C_noret_decl(f_2995) static void C_ccall f_2995(C_word c,C_word *av) C_noret; C_noret_decl(f_3003) static void C_ccall f_3003(C_word c,C_word *av) C_noret; C_noret_decl(f_3010) static void C_ccall f_3010(C_word c,C_word *av) C_noret; C_noret_decl(f_3021) static void C_ccall f_3021(C_word c,C_word *av) C_noret; C_noret_decl(f_3025) static void C_ccall f_3025(C_word c,C_word *av) C_noret; C_noret_decl(f_3028) static void C_ccall f_3028(C_word c,C_word *av) C_noret; C_noret_decl(f_3046) static void C_ccall f_3046(C_word c,C_word *av) C_noret; C_noret_decl(f_3050) static void C_ccall f_3050(C_word c,C_word *av) C_noret; C_noret_decl(f_3060) static void C_ccall f_3060(C_word c,C_word *av) C_noret; C_noret_decl(f_3065) static void C_ccall f_3065(C_word c,C_word *av) C_noret; C_noret_decl(f_3069) static void C_ccall f_3069(C_word c,C_word *av) C_noret; C_noret_decl(f_3071) static void C_ccall f_3071(C_word c,C_word *av) C_noret; C_noret_decl(f_3075) static void C_ccall f_3075(C_word c,C_word *av) C_noret; C_noret_decl(f_3077) static void C_ccall f_3077(C_word c,C_word *av) C_noret; C_noret_decl(f_3081) static void C_ccall f_3081(C_word c,C_word *av) C_noret; C_noret_decl(f_3083) static void C_ccall f_3083(C_word c,C_word *av) C_noret; C_noret_decl(f_3087) static void C_ccall f_3087(C_word c,C_word *av) C_noret; C_noret_decl(f_3099) static void C_ccall f_3099(C_word c,C_word *av) C_noret; C_noret_decl(f_3102) static void C_ccall f_3102(C_word c,C_word *av) C_noret; C_noret_decl(f_3108) static void C_ccall f_3108(C_word c,C_word *av) C_noret; C_noret_decl(f_3118) static void C_ccall f_3118(C_word c,C_word *av) C_noret; C_noret_decl(f_3162) static void C_ccall f_3162(C_word c,C_word *av) C_noret; C_noret_decl(f_3166) static void C_ccall f_3166(C_word c,C_word *av) C_noret; C_noret_decl(f_3168) static void C_ccall f_3168(C_word c,C_word *av) C_noret; C_noret_decl(f_3174) static void C_ccall f_3174(C_word c,C_word *av) C_noret; C_noret_decl(f_3182) static void C_ccall f_3182(C_word c,C_word *av) C_noret; C_noret_decl(f_3186) static void C_ccall f_3186(C_word c,C_word *av) C_noret; C_noret_decl(f_3190) static void C_ccall f_3190(C_word c,C_word *av) C_noret; C_noret_decl(f_3192) static void C_ccall f_3192(C_word c,C_word *av) C_noret; C_noret_decl(f_3211) static void C_ccall f_3211(C_word c,C_word *av) C_noret; C_noret_decl(f_3279) static void C_ccall f_3279(C_word c,C_word *av) C_noret; C_noret_decl(f_3287) static void C_ccall f_3287(C_word c,C_word *av) C_noret; C_noret_decl(f_3289) static void C_ccall f_3289(C_word c,C_word *av) C_noret; C_noret_decl(f_3297) static void C_ccall f_3297(C_word c,C_word *av) C_noret; C_noret_decl(f_3299) static void C_ccall f_3299(C_word c,C_word *av) C_noret; C_noret_decl(f_3307) static void C_ccall f_3307(C_word c,C_word *av) C_noret; C_noret_decl(f_3309) static void C_ccall f_3309(C_word c,C_word *av) C_noret; C_noret_decl(f_3317) static void C_ccall f_3317(C_word c,C_word *av) C_noret; C_noret_decl(f_3319) static void C_ccall f_3319(C_word c,C_word *av) C_noret; C_noret_decl(f_3327) static void C_ccall f_3327(C_word c,C_word *av) C_noret; C_noret_decl(f_3329) static void C_ccall f_3329(C_word c,C_word *av) C_noret; C_noret_decl(f_3337) static void C_ccall f_3337(C_word c,C_word *av) C_noret; C_noret_decl(f_3339) static void C_ccall f_3339(C_word c,C_word *av) C_noret; C_noret_decl(f_3347) static void C_ccall f_3347(C_word c,C_word *av) C_noret; C_noret_decl(f_3352) static void C_ccall f_3352(C_word c,C_word *av) C_noret; C_noret_decl(f_3356) static void C_fcall f_3356(C_word t0,C_word t1) C_noret; C_noret_decl(f_3359) static void C_ccall f_3359(C_word c,C_word *av) C_noret; C_noret_decl(f_3362) static void C_ccall f_3362(C_word c,C_word *av) C_noret; C_noret_decl(f_3368) static void C_ccall f_3368(C_word c,C_word *av) C_noret; C_noret_decl(f_3374) static void C_ccall f_3374(C_word c,C_word *av) C_noret; C_noret_decl(f_3407) static void C_ccall f_3407(C_word c,C_word *av) C_noret; C_noret_decl(f_3435) static void C_fcall f_3435(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3443) static void C_ccall f_3443(C_word c,C_word *av) C_noret; C_noret_decl(f_3472) static void C_fcall f_3472(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3485) static void C_ccall f_3485(C_word c,C_word *av) C_noret; C_noret_decl(f_3491) static void C_ccall f_3491(C_word c,C_word *av) C_noret; C_noret_decl(f_3495) static void C_ccall f_3495(C_word c,C_word *av) C_noret; C_noret_decl(f_3503) static void C_ccall f_3503(C_word c,C_word *av) C_noret; C_noret_decl(f_3505) static void C_ccall f_3505(C_word c,C_word *av) C_noret; C_noret_decl(f_3509) static void C_ccall f_3509(C_word c,C_word *av) C_noret; C_noret_decl(f_3517) static void C_ccall f_3517(C_word c,C_word *av) C_noret; C_noret_decl(f_3519) static void C_ccall f_3519(C_word c,C_word *av) C_noret; C_noret_decl(f_3535) static void C_ccall f_3535(C_word c,C_word *av) C_noret; C_noret_decl(f_3544) static void C_ccall f_3544(C_word c,C_word *av) C_noret; C_noret_decl(f_3558) static void C_ccall f_3558(C_word c,C_word *av) C_noret; C_noret_decl(f_3564) static void C_ccall f_3564(C_word c,C_word *av) C_noret; C_noret_decl(f_3568) static void C_ccall f_3568(C_word c,C_word *av) C_noret; C_noret_decl(f_3571) static void C_fcall f_3571(C_word t0,C_word t1) C_noret; C_noret_decl(f_3574) static void C_ccall f_3574(C_word c,C_word *av) C_noret; C_noret_decl(f_3589) static void C_ccall f_3589(C_word c,C_word *av) C_noret; C_noret_decl(f_3591) static void C_ccall f_3591(C_word c,C_word *av) C_noret; C_noret_decl(f_3594) static void C_ccall f_3594(C_word c,C_word *av) C_noret; C_noret_decl(f_3598) static void C_ccall f_3598(C_word c,C_word *av) C_noret; C_noret_decl(f_3601) static void C_ccall f_3601(C_word c,C_word *av) C_noret; C_noret_decl(f_3610) static void C_ccall f_3610(C_word c,C_word *av) C_noret; C_noret_decl(f_3624) static void C_ccall f_3624(C_word c,C_word *av) C_noret; C_noret_decl(f_3627) static void C_fcall f_3627(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3646) static void C_ccall f_3646(C_word c,C_word *av) C_noret; C_noret_decl(f_3650) static void C_ccall f_3650(C_word c,C_word *av) C_noret; C_noret_decl(f_3653) static void C_ccall f_3653(C_word c,C_word *av) C_noret; C_noret_decl(f_3667) static void C_ccall f_3667(C_word c,C_word *av) C_noret; C_noret_decl(f_3671) static void C_ccall f_3671(C_word c,C_word *av) C_noret; C_noret_decl(f_3674) static void C_ccall f_3674(C_word c,C_word *av) C_noret; C_noret_decl(f_3699) static void C_ccall f_3699(C_word c,C_word *av) C_noret; C_noret_decl(f_3703) static void C_ccall f_3703(C_word c,C_word *av) C_noret; C_noret_decl(f_3706) static void C_ccall f_3706(C_word c,C_word *av) C_noret; C_noret_decl(f_3709) static void C_ccall f_3709(C_word c,C_word *av) C_noret; C_noret_decl(f_3737) static void C_ccall f_3737(C_word c,C_word *av) C_noret; C_noret_decl(f_3741) static void C_ccall f_3741(C_word c,C_word *av) C_noret; C_noret_decl(f_3745) static void C_ccall f_3745(C_word c,C_word *av) C_noret; C_noret_decl(f_3782) static void C_ccall f_3782(C_word c,C_word *av) C_noret; C_noret_decl(f_3789) static void C_ccall f_3789(C_word c,C_word *av) C_noret; C_noret_decl(f_3798) static void C_ccall f_3798(C_word c,C_word *av) C_noret; C_noret_decl(f_3808) static void C_ccall f_3808(C_word c,C_word *av) C_noret; C_noret_decl(f_3812) static void C_ccall f_3812(C_word c,C_word *av) C_noret; C_noret_decl(f_3815) static void C_ccall f_3815(C_word c,C_word *av) C_noret; C_noret_decl(f_3836) static void C_ccall f_3836(C_word c,C_word *av) C_noret; C_noret_decl(f_3844) static void C_ccall f_3844(C_word c,C_word *av) C_noret; C_noret_decl(f_3848) static void C_ccall f_3848(C_word c,C_word *av) C_noret; C_noret_decl(f_3859) static void C_ccall f_3859(C_word c,C_word *av) C_noret; C_noret_decl(f_3861) static void C_ccall f_3861(C_word c,C_word *av) C_noret; C_noret_decl(f_3865) static void C_ccall f_3865(C_word c,C_word *av) C_noret; C_noret_decl(f_3867) static void C_ccall f_3867(C_word c,C_word *av) C_noret; C_noret_decl(f_3886) static void C_ccall f_3886(C_word c,C_word *av) C_noret; C_noret_decl(f_3891) static void C_ccall f_3891(C_word c,C_word *av) C_noret; C_noret_decl(f_3897) static void C_ccall f_3897(C_word c,C_word *av) C_noret; C_noret_decl(f_3938) static void C_fcall f_3938(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3946) static void C_ccall f_3946(C_word c,C_word *av) C_noret; C_noret_decl(f_3949) static void C_ccall f_3949(C_word c,C_word *av) C_noret; C_noret_decl(f_3954) static void C_ccall f_3954(C_word c,C_word *av) C_noret; C_noret_decl(f_3960) static void C_ccall f_3960(C_word c,C_word *av) C_noret; C_noret_decl(f_3966) static void C_ccall f_3966(C_word c,C_word *av) C_noret; C_noret_decl(f_3970) static void C_ccall f_3970(C_word c,C_word *av) C_noret; C_noret_decl(f_3975) static void C_ccall f_3975(C_word c,C_word *av) C_noret; C_noret_decl(f_3977) static void C_fcall f_3977(C_word t0,C_word t1) C_noret; C_noret_decl(f_3981) static void C_ccall f_3981(C_word c,C_word *av) C_noret; C_noret_decl(f_3983) static void C_fcall f_3983(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3999) static void C_ccall f_3999(C_word c,C_word *av) C_noret; C_noret_decl(f_4005) static void C_ccall f_4005(C_word c,C_word *av) C_noret; C_noret_decl(f_4008) static void C_ccall f_4008(C_word c,C_word *av) C_noret; C_noret_decl(f_4024) static void C_ccall f_4024(C_word c,C_word *av) C_noret; C_noret_decl(f_4034) static void C_fcall f_4034(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4040) static void C_ccall f_4040(C_word c,C_word *av) C_noret; C_noret_decl(f_4051) static void C_ccall f_4051(C_word c,C_word *av) C_noret; C_noret_decl(f_4055) static void C_fcall f_4055(C_word t0,C_word t1) C_noret; C_noret_decl(f_4059) static void C_ccall f_4059(C_word c,C_word *av) C_noret; C_noret_decl(f_4064) static void C_fcall f_4064(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4074) static void C_ccall f_4074(C_word c,C_word *av) C_noret; C_noret_decl(f_4077) static void C_ccall f_4077(C_word c,C_word *av) C_noret; C_noret_decl(f_4089) static void C_fcall f_4089(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4094) static C_word C_fcall f_4094(C_word t0,C_word t1); C_noret_decl(f_4113) static C_word C_fcall f_4113(C_word t0,C_word t1); C_noret_decl(f_4136) static void C_ccall f_4136(C_word c,C_word *av) C_noret; C_noret_decl(f_4138) static void C_fcall f_4138(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_4142) static void C_ccall f_4142(C_word c,C_word *av) C_noret; C_noret_decl(f_4148) static void C_ccall f_4148(C_word c,C_word *av) C_noret; C_noret_decl(f_4151) static void C_ccall f_4151(C_word c,C_word *av) C_noret; C_noret_decl(f_4156) static void C_ccall f_4156(C_word c,C_word *av) C_noret; C_noret_decl(f_4162) static void C_ccall f_4162(C_word c,C_word *av) C_noret; C_noret_decl(f_4168) static void C_ccall f_4168(C_word c,C_word *av) C_noret; C_noret_decl(f_4172) static void C_ccall f_4172(C_word c,C_word *av) C_noret; C_noret_decl(f_4175) static void C_ccall f_4175(C_word c,C_word *av) C_noret; C_noret_decl(f_4183) static void C_ccall f_4183(C_word c,C_word *av) C_noret; C_noret_decl(f_4189) static void C_ccall f_4189(C_word c,C_word *av) C_noret; C_noret_decl(f_4193) static void C_fcall f_4193(C_word t0,C_word t1) C_noret; C_noret_decl(f_4200) static void C_ccall f_4200(C_word c,C_word *av) C_noret; C_noret_decl(f_4203) static void C_ccall f_4203(C_word c,C_word *av) C_noret; C_noret_decl(f_4207) static void C_ccall f_4207(C_word c,C_word *av) C_noret; C_noret_decl(f_4228) static void C_ccall f_4228(C_word c,C_word *av) C_noret; C_noret_decl(f_4230) static void C_fcall f_4230(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4255) static void C_ccall f_4255(C_word c,C_word *av) C_noret; C_noret_decl(f_4264) static void C_ccall f_4264(C_word c,C_word *av) C_noret; C_noret_decl(f_4270) static void C_ccall f_4270(C_word c,C_word *av) C_noret; C_noret_decl(f_4295) static void C_fcall f_4295(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4308) static void C_ccall f_4308(C_word c,C_word *av) C_noret; C_noret_decl(f_4314) static void C_ccall f_4314(C_word c,C_word *av) C_noret; C_noret_decl(f_4328) static void C_ccall f_4328(C_word c,C_word *av) C_noret; C_noret_decl(f_4335) static void C_ccall f_4335(C_word c,C_word *av) C_noret; C_noret_decl(f_4345) static void C_ccall f_4345(C_word c,C_word *av) C_noret; C_noret_decl(f_4354) static void C_ccall f_4354(C_word c,C_word *av) C_noret; C_noret_decl(f_4368) static void C_ccall f_4368(C_word c,C_word *av) C_noret; C_noret_decl(f_4375) static void C_ccall f_4375(C_word c,C_word *av) C_noret; C_noret_decl(f_4385) static void C_ccall f_4385(C_word c,C_word *av) C_noret; C_noret_decl(f_4394) static void C_ccall f_4394(C_word c,C_word *av) C_noret; C_noret_decl(f_4401) static void C_ccall f_4401(C_word c,C_word *av) C_noret; C_noret_decl(f_4409) static void C_ccall f_4409(C_word c,C_word *av) C_noret; C_noret_decl(f_4416) static void C_ccall f_4416(C_word c,C_word *av) C_noret; C_noret_decl(f_4424) static void C_ccall f_4424(C_word c,C_word *av) C_noret; C_noret_decl(f_4428) static void C_ccall f_4428(C_word c,C_word *av) C_noret; C_noret_decl(f_4433) static void C_ccall f_4433(C_word c,C_word *av) C_noret; C_noret_decl(f_4438) static void C_ccall f_4438(C_word c,C_word *av) C_noret; C_noret_decl(f_4444) static void C_ccall f_4444(C_word c,C_word *av) C_noret; C_noret_decl(f_4448) static void C_ccall f_4448(C_word c,C_word *av) C_noret; C_noret_decl(f_4453) static void C_ccall f_4453(C_word c,C_word *av) C_noret; C_noret_decl(f_4458) static void C_ccall f_4458(C_word c,C_word *av) C_noret; C_noret_decl(f_4462) static void C_ccall f_4462(C_word c,C_word *av) C_noret; C_noret_decl(f_4467) static void C_ccall f_4467(C_word c,C_word *av) C_noret; C_noret_decl(f_4473) static void C_ccall f_4473(C_word c,C_word *av) C_noret; C_noret_decl(f_4477) static void C_ccall f_4477(C_word c,C_word *av) C_noret; C_noret_decl(f_4482) static void C_ccall f_4482(C_word c,C_word *av) C_noret; C_noret_decl(f_4486) static void C_ccall f_4486(C_word c,C_word *av) C_noret; C_noret_decl(f_4491) static void C_ccall f_4491(C_word c,C_word *av) C_noret; C_noret_decl(f_4497) static void C_ccall f_4497(C_word c,C_word *av) C_noret; C_noret_decl(f_4501) static void C_ccall f_4501(C_word c,C_word *av) C_noret; C_noret_decl(f_4506) static void C_ccall f_4506(C_word c,C_word *av) C_noret; C_noret_decl(f_4510) static void C_ccall f_4510(C_word c,C_word *av) C_noret; C_noret_decl(f_4515) static void C_ccall f_4515(C_word c,C_word *av) C_noret; C_noret_decl(f_4520) static void C_ccall f_4520(C_word c,C_word *av) C_noret; C_noret_decl(f_4526) static void C_ccall f_4526(C_word c,C_word *av) C_noret; C_noret_decl(f_4530) static void C_ccall f_4530(C_word c,C_word *av) C_noret; C_noret_decl(f_4535) static void C_ccall f_4535(C_word c,C_word *av) C_noret; C_noret_decl(f_4540) static void C_ccall f_4540(C_word c,C_word *av) C_noret; C_noret_decl(f_4547) static void C_ccall f_4547(C_word c,C_word *av) C_noret; C_noret_decl(f_4587) static void C_ccall f_4587(C_word c,C_word *av) C_noret; C_noret_decl(f_4594) static void C_ccall f_4594(C_word c,C_word *av) C_noret; C_noret_decl(f_4597) static void C_ccall f_4597(C_word c,C_word *av) C_noret; C_noret_decl(f_4621) static void C_ccall f_4621(C_word c,C_word *av) C_noret; C_noret_decl(f_4625) static void C_fcall f_4625(C_word t0,C_word t1) C_noret; C_noret_decl(f_4631) static void C_ccall f_4631(C_word c,C_word *av) C_noret; C_noret_decl(f_4634) static void C_ccall f_4634(C_word c,C_word *av) C_noret; C_noret_decl(f_4638) static void C_ccall f_4638(C_word c,C_word *av) C_noret; C_noret_decl(f_4641) static void C_ccall f_4641(C_word c,C_word *av) C_noret; C_noret_decl(f_4653) static void C_ccall f_4653(C_word c,C_word *av) C_noret; C_noret_decl(f_4657) static void C_ccall f_4657(C_word c,C_word *av) C_noret; C_noret_decl(f_4662) static void C_ccall f_4662(C_word c,C_word *av) C_noret; C_noret_decl(f_4684) static void C_ccall f_4684(C_word c,C_word *av) C_noret; C_noret_decl(f_4688) static void C_ccall f_4688(C_word c,C_word *av) C_noret; C_noret_decl(f_4691) static void C_ccall f_4691(C_word c,C_word *av) C_noret; C_noret_decl(f_4694) static void C_ccall f_4694(C_word c,C_word *av) C_noret; C_noret_decl(f_4697) static void C_ccall f_4697(C_word c,C_word *av) C_noret; C_noret_decl(f_4700) static void C_ccall f_4700(C_word c,C_word *av) C_noret; C_noret_decl(f_4724) static void C_ccall f_4724(C_word c,C_word *av) C_noret; C_noret_decl(f_4728) static void C_ccall f_4728(C_word c,C_word *av) C_noret; C_noret_decl(f_4731) static void C_ccall f_4731(C_word c,C_word *av) C_noret; C_noret_decl(f_4734) static void C_fcall f_4734(C_word t0,C_word t1) C_noret; C_noret_decl(f_4737) static void C_ccall f_4737(C_word c,C_word *av) C_noret; C_noret_decl(f_4740) static void C_ccall f_4740(C_word c,C_word *av) C_noret; C_noret_decl(f_4761) static void C_ccall f_4761(C_word c,C_word *av) C_noret; C_noret_decl(f_4768) static void C_ccall f_4768(C_word c,C_word *av) C_noret; C_noret_decl(f_4774) static void C_ccall f_4774(C_word c,C_word *av) C_noret; C_noret_decl(f_4781) static void C_ccall f_4781(C_word c,C_word *av) C_noret; C_noret_decl(f_4793) static void C_ccall f_4793(C_word c,C_word *av) C_noret; C_noret_decl(f_4797) static void C_fcall f_4797(C_word t0,C_word t1) C_noret; C_noret_decl(f_4800) static void C_fcall f_4800(C_word t0,C_word t1) C_noret; C_noret_decl(f_4803) static void C_fcall f_4803(C_word t0,C_word t1) C_noret; C_noret_decl(f_4811) static void C_ccall f_4811(C_word c,C_word *av) C_noret; C_noret_decl(f_4814) static void C_ccall f_4814(C_word c,C_word *av) C_noret; C_noret_decl(f_4875) static void C_ccall f_4875(C_word c,C_word *av) C_noret; C_noret_decl(f_4878) static void C_ccall f_4878(C_word c,C_word *av) C_noret; C_noret_decl(f_4885) static void C_fcall f_4885(C_word t0,C_word t1) C_noret; C_noret_decl(f_4915) static void C_fcall f_4915(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_4944) static void C_fcall f_4944(C_word t0,C_word t1) C_noret; C_noret_decl(f_4974) static void C_fcall f_4974(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5003) static void C_fcall f_5003(C_word t0,C_word t1) C_noret; C_noret_decl(f_5035) static void C_fcall f_5035(C_word t0,C_word t1) C_noret; C_noret_decl(f_5042) static void C_ccall f_5042(C_word c,C_word *av) C_noret; C_noret_decl(f_5044) static C_word C_fcall f_5044(C_word t0,C_word t1,C_word t2); C_noret_decl(f_5086) static C_word C_fcall f_5086(C_word t0,C_word t1,C_word t2); C_noret_decl(f_5170) static void C_ccall f_5170(C_word c,C_word *av) C_noret; C_noret_decl(f_5177) static void C_ccall f_5177(C_word c,C_word *av) C_noret; C_noret_decl(f_5226) static void C_ccall f_5226(C_word c,C_word *av) C_noret; C_noret_decl(f_5235) static void C_ccall f_5235(C_word c,C_word *av) C_noret; C_noret_decl(f_5238) static void C_ccall f_5238(C_word c,C_word *av) C_noret; C_noret_decl(f_5250) static void C_fcall f_5250(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5260) static void C_ccall f_5260(C_word c,C_word *av) C_noret; C_noret_decl(f_5275) static void C_ccall f_5275(C_word c,C_word *av) C_noret; C_noret_decl(f_5277) static void C_ccall f_5277(C_word c,C_word *av) C_noret; C_noret_decl(f_5281) static void C_ccall f_5281(C_word c,C_word *av) C_noret; C_noret_decl(f_5283) static void C_ccall f_5283(C_word c,C_word *av) C_noret; C_noret_decl(f_5287) static void C_ccall f_5287(C_word c,C_word *av) C_noret; C_noret_decl(f_5299) static void C_ccall f_5299(C_word c,C_word *av) C_noret; C_noret_decl(f_5303) static void C_ccall f_5303(C_word c,C_word *av) C_noret; C_noret_decl(f_5317) static void C_ccall f_5317(C_word c,C_word *av) C_noret; C_noret_decl(f_5321) static void C_ccall f_5321(C_word c,C_word *av) C_noret; C_noret_decl(f_5325) static void C_ccall f_5325(C_word c,C_word *av) C_noret; C_noret_decl(f_5329) static void C_ccall f_5329(C_word c,C_word *av) C_noret; C_noret_decl(f_5331) static void C_ccall f_5331(C_word c,C_word *av) C_noret; C_noret_decl(f_5338) static void C_fcall f_5338(C_word t0,C_word t1) C_noret; C_noret_decl(f_5351) static void C_ccall f_5351(C_word c,C_word *av) C_noret; C_noret_decl(f_5355) static void C_ccall f_5355(C_word c,C_word *av) C_noret; C_noret_decl(f_5359) static void C_ccall f_5359(C_word c,C_word *av) C_noret; C_noret_decl(f_5363) static void C_ccall f_5363(C_word c,C_word *av) C_noret; C_noret_decl(f_5367) static void C_ccall f_5367(C_word c,C_word *av) C_noret; C_noret_decl(f_5377) static void C_ccall f_5377(C_word c,C_word *av) C_noret; C_noret_decl(f_5385) static void C_ccall f_5385(C_word c,C_word *av) C_noret; C_noret_decl(f_5393) static void C_ccall f_5393(C_word c,C_word *av) C_noret; C_noret_decl(f_5397) static void C_ccall f_5397(C_word c,C_word *av) C_noret; C_noret_decl(f_5399) static void C_ccall f_5399(C_word c,C_word *av) C_noret; C_noret_decl(f_5407) static void C_ccall f_5407(C_word c,C_word *av) C_noret; C_noret_decl(f_5411) static void C_ccall f_5411(C_word c,C_word *av) C_noret; C_noret_decl(f_5413) static void C_fcall f_5413(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5417) static void C_ccall f_5417(C_word c,C_word *av) C_noret; C_noret_decl(f_5420) static void C_ccall f_5420(C_word c,C_word *av) C_noret; C_noret_decl(f_5423) static void C_ccall f_5423(C_word c,C_word *av) C_noret; C_noret_decl(f_5435) static void C_ccall f_5435(C_word c,C_word *av) C_noret; C_noret_decl(f_5439) static void C_ccall f_5439(C_word c,C_word *av) C_noret; C_noret_decl(f_5455) static void C_ccall f_5455(C_word c,C_word *av) C_noret; C_noret_decl(f_5460) static void C_ccall f_5460(C_word c,C_word *av) C_noret; C_noret_decl(f_5464) static void C_ccall f_5464(C_word c,C_word *av) C_noret; C_noret_decl(f_5470) static void C_ccall f_5470(C_word c,C_word *av) C_noret; C_noret_decl(f_5477) static void C_ccall f_5477(C_word c,C_word *av) C_noret; C_noret_decl(f_5479) static void C_ccall f_5479(C_word c,C_word *av) C_noret; C_noret_decl(f_5500) static void C_ccall f_5500(C_word c,C_word *av) C_noret; C_noret_decl(f_5504) static void C_ccall f_5504(C_word c,C_word *av) C_noret; C_noret_decl(f_5508) static void C_ccall f_5508(C_word c,C_word *av) C_noret; C_noret_decl(f_5509) static void C_ccall f_5509(C_word c,C_word *av) C_noret; C_noret_decl(f_5514) static void C_ccall f_5514(C_word c,C_word *av) C_noret; C_noret_decl(f_5528) static void C_ccall f_5528(C_word c,C_word *av) C_noret; C_noret_decl(f_5543) static void C_ccall f_5543(C_word c,C_word *av) C_noret; C_noret_decl(f_5549) static void C_ccall f_5549(C_word c,C_word *av) C_noret; C_noret_decl(f_5557) static void C_ccall f_5557(C_word c,C_word *av) C_noret; C_noret_decl(f_5559) static void C_fcall f_5559(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5569) static void C_ccall f_5569(C_word c,C_word *av) C_noret; C_noret_decl(f_5575) static void C_ccall f_5575(C_word c,C_word *av) C_noret; C_noret_decl(f_5584) static void C_ccall f_5584(C_word c,C_word *av) C_noret; C_noret_decl(f_5587) static void C_ccall f_5587(C_word c,C_word *av) C_noret; C_noret_decl(f_5590) static void C_ccall f_5590(C_word c,C_word *av) C_noret; C_noret_decl(f_5596) static void C_ccall f_5596(C_word c,C_word *av) C_noret; C_noret_decl(f_5630) static void C_ccall f_5630(C_word c,C_word *av) C_noret; C_noret_decl(f_5634) static void C_ccall f_5634(C_word c,C_word *av) C_noret; C_noret_decl(f_5643) static void C_ccall f_5643(C_word c,C_word *av) C_noret; C_noret_decl(f_5663) static void C_ccall f_5663(C_word c,C_word *av) C_noret; C_noret_decl(f_5665) static void C_ccall f_5665(C_word c,C_word *av) C_noret; C_noret_decl(f_5693) static void C_ccall f_5693(C_word c,C_word *av) C_noret; C_noret_decl(f_5699) static void C_ccall f_5699(C_word c,C_word *av) C_noret; C_noret_decl(f_5700) static void C_fcall f_5700(C_word t0,C_word t1) C_noret; C_noret_decl(f_5704) static void C_ccall f_5704(C_word c,C_word *av) C_noret; C_noret_decl(f_5729) static C_word C_fcall f_5729(C_word t0); C_noret_decl(f_5737) static void C_fcall f_5737(C_word t0,C_word t1) C_noret; C_noret_decl(f_5743) static void C_ccall f_5743(C_word c,C_word *av) C_noret; C_noret_decl(f_5762) static void C_ccall f_5762(C_word c,C_word *av) C_noret; C_noret_decl(f_5765) static void C_ccall f_5765(C_word c,C_word *av) C_noret; C_noret_decl(f_5795) static void C_ccall f_5795(C_word c,C_word *av) C_noret; C_noret_decl(f_5798) static void C_ccall f_5798(C_word c,C_word *av) C_noret; C_noret_decl(f_5804) static void C_ccall f_5804(C_word c,C_word *av) C_noret; C_noret_decl(f_5833) static void C_ccall f_5833(C_word c,C_word *av) C_noret; C_noret_decl(f_5839) static void C_ccall f_5839(C_word c,C_word *av) C_noret; C_noret_decl(f_5843) static void C_ccall f_5843(C_word c,C_word *av) C_noret; C_noret_decl(f_5864) static void C_ccall f_5864(C_word c,C_word *av) C_noret; C_noret_decl(f_5876) static void C_ccall f_5876(C_word c,C_word *av) C_noret; C_noret_decl(f_5880) static void C_ccall f_5880(C_word c,C_word *av) C_noret; C_noret_decl(f_5892) static void C_ccall f_5892(C_word c,C_word *av) C_noret; C_noret_decl(f_5896) static void C_ccall f_5896(C_word c,C_word *av) C_noret; C_noret_decl(f_5907) static void C_ccall f_5907(C_word c,C_word *av) C_noret; C_noret_decl(f_5915) static void C_fcall f_5915(C_word t0,C_word t1) C_noret; C_noret_decl(f_5917) static void C_fcall f_5917(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5965) static void C_ccall f_5965(C_word c,C_word *av) C_noret; C_noret_decl(f_5983) static void C_ccall f_5983(C_word c,C_word *av) C_noret; C_noret_decl(f_5987) static void C_ccall f_5987(C_word c,C_word *av) C_noret; C_noret_decl(f_6001) static void C_ccall f_6001(C_word c,C_word *av) C_noret; C_noret_decl(f_6011) static void C_ccall f_6011(C_word c,C_word *av) C_noret; C_noret_decl(f_6031) static void C_ccall f_6031(C_word c,C_word *av) C_noret; C_noret_decl(f_6057) static void C_ccall f_6057(C_word c,C_word *av) C_noret; C_noret_decl(f_6102) static void C_ccall f_6102(C_word c,C_word *av) C_noret; C_noret_decl(f_6112) static void C_ccall f_6112(C_word c,C_word *av) C_noret; C_noret_decl(f_6178) static void C_ccall f_6178(C_word c,C_word *av) C_noret; C_noret_decl(f_6200) static void C_ccall f_6200(C_word c,C_word *av) C_noret; C_noret_decl(f_6201) static void C_ccall f_6201(C_word c,C_word *av) C_noret; C_noret_decl(f_6207) static void C_ccall f_6207(C_word c,C_word *av) C_noret; C_noret_decl(f_6226) static void C_ccall f_6226(C_word c,C_word *av) C_noret; C_noret_decl(f_6257) static void C_ccall f_6257(C_word c,C_word *av) C_noret; C_noret_decl(f_6267) static void C_fcall f_6267(C_word t0,C_word t1) C_noret; C_noret_decl(f_6272) static void C_ccall f_6272(C_word c,C_word *av) C_noret; C_noret_decl(f_6278) static void C_ccall f_6278(C_word c,C_word *av) C_noret; C_noret_decl(f_6284) static void C_ccall f_6284(C_word c,C_word *av) C_noret; C_noret_decl(f_6288) static void C_ccall f_6288(C_word c,C_word *av) C_noret; C_noret_decl(f_6300) static void C_ccall f_6300(C_word c,C_word *av) C_noret; C_noret_decl(f_6308) static void C_ccall f_6308(C_word c,C_word *av) C_noret; C_noret_decl(f_6322) static void C_ccall f_6322(C_word c,C_word *av) C_noret; C_noret_decl(f_6323) static void C_ccall f_6323(C_word c,C_word *av) C_noret; C_noret_decl(f_6340) static void C_fcall f_6340(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6350) static void C_ccall f_6350(C_word c,C_word *av) C_noret; C_noret_decl(f_6433) static void C_ccall f_6433(C_word c,C_word *av) C_noret; C_noret_decl(f_6437) static void C_ccall f_6437(C_word c,C_word *av) C_noret; C_noret_decl(f_6443) static void C_fcall f_6443(C_word t0,C_word t1) C_noret; C_noret_decl(f_6450) static void C_ccall f_6450(C_word c,C_word *av) C_noret; C_noret_decl(f_6457) static void C_ccall f_6457(C_word c,C_word *av) C_noret; C_noret_decl(f_6463) static void C_ccall f_6463(C_word c,C_word *av) C_noret; C_noret_decl(f_6467) static void C_ccall f_6467(C_word c,C_word *av) C_noret; C_noret_decl(f_6478) static void C_fcall f_6478(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6496) static void C_ccall f_6496(C_word c,C_word *av) C_noret; C_noret_decl(f_6499) static void C_ccall f_6499(C_word c,C_word *av) C_noret; C_noret_decl(f_6546) static void C_fcall f_6546(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6564) static void C_ccall f_6564(C_word c,C_word *av) C_noret; C_noret_decl(f_6570) static void C_ccall f_6570(C_word c,C_word *av) C_noret; C_noret_decl(f_6574) static void C_ccall f_6574(C_word c,C_word *av) C_noret; C_noret_decl(f_6595) static void C_ccall f_6595(C_word c,C_word *av) C_noret; C_noret_decl(f_6601) static void C_ccall f_6601(C_word c,C_word *av) C_noret; C_noret_decl(f_6605) static void C_ccall f_6605(C_word c,C_word *av) C_noret; C_noret_decl(f_6626) static void C_ccall f_6626(C_word c,C_word *av) C_noret; C_noret_decl(f_6630) static void C_ccall f_6630(C_word c,C_word *av) C_noret; C_noret_decl(f_6653) static void C_ccall f_6653(C_word c,C_word *av) C_noret; C_noret_decl(f_6682) static void C_ccall f_6682(C_word c,C_word *av) C_noret; C_noret_decl(f_6696) static void C_ccall f_6696(C_word c,C_word *av) C_noret; C_noret_decl(f_6703) static void C_fcall f_6703(C_word t0,C_word t1) C_noret; C_noret_decl(f_6706) static void C_ccall f_6706(C_word c,C_word *av) C_noret; C_noret_decl(f_6720) static void C_ccall f_6720(C_word c,C_word *av) C_noret; C_noret_decl(f_6742) static void C_ccall f_6742(C_word c,C_word *av) C_noret; C_noret_decl(f_6759) static void C_ccall f_6759(C_word c,C_word *av) C_noret; C_noret_decl(f_6763) static void C_ccall f_6763(C_word c,C_word *av) C_noret; C_noret_decl(f_6771) static void C_ccall f_6771(C_word c,C_word *av) C_noret; C_noret_decl(f_6779) static void C_ccall f_6779(C_word c,C_word *av) C_noret; C_noret_decl(f_6783) static void C_ccall f_6783(C_word c,C_word *av) C_noret; C_noret_decl(f_6787) static void C_ccall f_6787(C_word c,C_word *av) C_noret; C_noret_decl(f_6798) static void C_ccall f_6798(C_word c,C_word *av) C_noret; C_noret_decl(f_6805) static void C_ccall f_6805(C_word c,C_word *av) C_noret; C_noret_decl(f_6814) static void C_ccall f_6814(C_word c,C_word *av) C_noret; C_noret_decl(f_6845) static void C_ccall f_6845(C_word c,C_word *av) C_noret; C_noret_decl(f_6859) static void C_ccall f_6859(C_word c,C_word *av) C_noret; C_noret_decl(f_6865) static void C_ccall f_6865(C_word c,C_word *av) C_noret; C_noret_decl(f_6869) static void C_ccall f_6869(C_word c,C_word *av) C_noret; C_noret_decl(f_6873) static void C_ccall f_6873(C_word c,C_word *av) C_noret; C_noret_decl(f_6913) static void C_ccall f_6913(C_word c,C_word *av) C_noret; C_noret_decl(f_6937) static void C_ccall f_6937(C_word c,C_word *av) C_noret; C_noret_decl(f_6940) static void C_ccall f_6940(C_word c,C_word *av) C_noret; C_noret_decl(f_6991) static void C_fcall f_6991(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7007) static void C_ccall f_7007(C_word c,C_word *av) C_noret; C_noret_decl(f_7029) static void C_ccall f_7029(C_word c,C_word *av) C_noret; C_noret_decl(f_7032) static void C_ccall f_7032(C_word c,C_word *av) C_noret; C_noret_decl(f_7036) static void C_fcall f_7036(C_word t0,C_word t1) C_noret; C_noret_decl(f_7039) static void C_ccall f_7039(C_word c,C_word *av) C_noret; C_noret_decl(f_7042) static void C_ccall f_7042(C_word c,C_word *av) C_noret; C_noret_decl(f_7057) static void C_fcall f_7057(C_word t0) C_noret; C_noret_decl(f_7061) static void C_ccall f_7061(C_word c,C_word *av) C_noret; C_noret_decl(f_7072) static void C_ccall f_7072(C_word c,C_word *av) C_noret; C_noret_decl(f_7076) static void C_fcall f_7076(C_word t0,C_word t1) C_noret; C_noret_decl(f_7079) static void C_ccall f_7079(C_word c,C_word *av) C_noret; C_noret_decl(f_7098) static void C_ccall f_7098(C_word c,C_word *av) C_noret; C_noret_decl(f_7122) static void C_ccall f_7122(C_word c,C_word *av) C_noret; C_noret_decl(f_7126) static void C_fcall f_7126(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_7128) static void C_ccall f_7128(C_word c,C_word *av) C_noret; C_noret_decl(f_7143) static void C_ccall f_7143(C_word c,C_word *av) C_noret; C_noret_decl(f_7149) static void C_ccall f_7149(C_word c,C_word *av) C_noret; C_noret_decl(f_7163) static void C_fcall f_7163(C_word t0,C_word t1) C_noret; C_noret_decl(f_7172) static void C_ccall f_7172(C_word c,C_word *av) C_noret; C_noret_decl(f_7178) static void C_ccall f_7178(C_word c,C_word *av) C_noret; C_noret_decl(f_7183) static void C_fcall f_7183(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7194) static void C_ccall f_7194(C_word c,C_word *av) C_noret; C_noret_decl(f_7195) static void C_fcall f_7195(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7206) static void C_ccall f_7206(C_word c,C_word *av) C_noret; C_noret_decl(f_7210) static C_word C_fcall f_7210(C_word *a,C_word t0); C_noret_decl(f_7224) static void C_fcall f_7224(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_7228) static void C_ccall f_7228(C_word c,C_word *av) C_noret; C_noret_decl(f_7231) static void C_ccall f_7231(C_word c,C_word *av) C_noret; C_noret_decl(f_7234) static void C_ccall f_7234(C_word c,C_word *av) C_noret; C_noret_decl(f_7245) static void C_ccall f_7245(C_word c,C_word *av) C_noret; C_noret_decl(f_7247) static void C_ccall f_7247(C_word c,C_word *av) C_noret; C_noret_decl(f_7251) static void C_ccall f_7251(C_word c,C_word *av) C_noret; C_noret_decl(f_7254) static void C_ccall f_7254(C_word c,C_word *av) C_noret; C_noret_decl(f_7257) static void C_ccall f_7257(C_word c,C_word *av) C_noret; C_noret_decl(f_7269) static void C_fcall f_7269(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_7273) static void C_ccall f_7273(C_word c,C_word *av) C_noret; C_noret_decl(f_7280) static void C_fcall f_7280(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_7284) static void C_ccall f_7284(C_word c,C_word *av) C_noret; C_noret_decl(f_7291) static void C_fcall f_7291(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8) C_noret; C_noret_decl(f_7297) static void C_ccall f_7297(C_word c,C_word *av) C_noret; C_noret_decl(f_7303) static void C_ccall f_7303(C_word c,C_word *av) C_noret; C_noret_decl(f_7314) static void C_ccall f_7314(C_word c,C_word *av) C_noret; C_noret_decl(f_7318) static void C_ccall f_7318(C_word c,C_word *av) C_noret; C_noret_decl(f_7322) static void C_ccall f_7322(C_word c,C_word *av) C_noret; C_noret_decl(f_7326) static void C_ccall f_7326(C_word c,C_word *av) C_noret; C_noret_decl(f_7330) static void C_ccall f_7330(C_word c,C_word *av) C_noret; C_noret_decl(f_7334) static void C_ccall f_7334(C_word c,C_word *av) C_noret; C_noret_decl(f_7347) static void C_fcall f_7347(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_7349) static void C_fcall f_7349(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7354) static C_word C_fcall f_7354(C_word t0,C_word t1); C_noret_decl(f_7363) static C_word C_fcall f_7363(C_word t0,C_word t1); C_noret_decl(f_7390) static void C_ccall f_7390(C_word c,C_word *av) C_noret; C_noret_decl(f_7393) static void C_ccall f_7393(C_word c,C_word *av) C_noret; C_noret_decl(f_7398) static void C_ccall f_7398(C_word c,C_word *av) C_noret; C_noret_decl(f_7416) static void C_ccall f_7416(C_word c,C_word *av) C_noret; C_noret_decl(f_7418) static void C_ccall f_7418(C_word c,C_word *av) C_noret; C_noret_decl(f_7442) static void C_ccall f_7442(C_word c,C_word *av) C_noret; C_noret_decl(f_7484) static void C_ccall f_7484(C_word c,C_word *av) C_noret; C_noret_decl(f_7549) static void C_ccall f_7549(C_word c,C_word *av) C_noret; C_noret_decl(f_7554) static void C_ccall f_7554(C_word c,C_word *av) C_noret; C_noret_decl(f_7571) static void C_ccall f_7571(C_word c,C_word *av) C_noret; C_noret_decl(f_7573) static void C_ccall f_7573(C_word c,C_word *av) C_noret; C_noret_decl(f_7579) static void C_ccall f_7579(C_word c,C_word *av) C_noret; C_noret_decl(f_7628) static void C_ccall f_7628(C_word c,C_word *av) C_noret; C_noret_decl(f_7632) static void C_ccall f_7632(C_word c,C_word *av) C_noret; C_noret_decl(f_7635) static void C_ccall f_7635(C_word c,C_word *av) C_noret; C_noret_decl(f_7641) static void C_ccall f_7641(C_word c,C_word *av) C_noret; C_noret_decl(f_7646) static void C_ccall f_7646(C_word c,C_word *av) C_noret; C_noret_decl(f_7650) static void C_ccall f_7650(C_word c,C_word *av) C_noret; C_noret_decl(f_7653) static void C_ccall f_7653(C_word c,C_word *av) C_noret; C_noret_decl(f_7662) static void C_ccall f_7662(C_word c,C_word *av) C_noret; C_noret_decl(f_7668) static void C_ccall f_7668(C_word c,C_word *av) C_noret; C_noret_decl(f_7671) static void C_ccall f_7671(C_word c,C_word *av) C_noret; C_noret_decl(f_7681) static void C_ccall f_7681(C_word c,C_word *av) C_noret; C_noret_decl(f_7687) static void C_ccall f_7687(C_word c,C_word *av) C_noret; C_noret_decl(f_7690) static void C_ccall f_7690(C_word c,C_word *av) C_noret; C_noret_decl(f_7700) static void C_ccall f_7700(C_word c,C_word *av) C_noret; C_noret_decl(f_7706) static void C_ccall f_7706(C_word c,C_word *av) C_noret; C_noret_decl(f_7709) static void C_ccall f_7709(C_word c,C_word *av) C_noret; C_noret_decl(f_7719) static void C_ccall f_7719(C_word c,C_word *av) C_noret; C_noret_decl(f_7725) static void C_ccall f_7725(C_word c,C_word *av) C_noret; C_noret_decl(f_7728) static void C_ccall f_7728(C_word c,C_word *av) C_noret; C_noret_decl(f_7738) static void C_ccall f_7738(C_word c,C_word *av) C_noret; C_noret_decl(f_7744) static void C_ccall f_7744(C_word c,C_word *av) C_noret; C_noret_decl(f_7750) static void C_fcall f_7750(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7774) static void C_ccall f_7774(C_word c,C_word *av) C_noret; C_noret_decl(f_7778) static void C_ccall f_7778(C_word c,C_word *av) C_noret; C_noret_decl(f_7783) static void C_ccall f_7783(C_word c,C_word *av) C_noret; C_noret_decl(f_7790) static void C_ccall f_7790(C_word c,C_word *av) C_noret; C_noret_decl(f_7808) static void C_ccall f_7808(C_word c,C_word *av) C_noret; C_noret_decl(f_7812) static void C_ccall f_7812(C_word c,C_word *av) C_noret; C_noret_decl(f_7814) static void C_ccall f_7814(C_word c,C_word *av) C_noret; C_noret_decl(f_7818) static void C_ccall f_7818(C_word c,C_word *av) C_noret; C_noret_decl(f_7821) static void C_ccall f_7821(C_word c,C_word *av) C_noret; C_noret_decl(f_7830) static void C_ccall f_7830(C_word c,C_word *av) C_noret; C_noret_decl(f_7851) static void C_ccall f_7851(C_word c,C_word *av) C_noret; C_noret_decl(f_7855) static void C_ccall f_7855(C_word c,C_word *av) C_noret; C_noret_decl(f_7857) static void C_ccall f_7857(C_word c,C_word *av) C_noret; C_noret_decl(f_7861) static void C_ccall f_7861(C_word c,C_word *av) C_noret; C_noret_decl(f_7863) static void C_ccall f_7863(C_word c,C_word *av) C_noret; C_noret_decl(f_7867) static void C_ccall f_7867(C_word c,C_word *av) C_noret; C_noret_decl(C_posix_toplevel) C_externexport void C_ccall C_posix_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_2766) static void C_ccall trf_2766(C_word c,C_word *av) C_noret; static void C_ccall trf_2766(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2766(t0,t1,t2);} C_noret_decl(trf_2807) static void C_ccall trf_2807(C_word c,C_word *av) C_noret; static void C_ccall trf_2807(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2807(t0,t1,t2);} C_noret_decl(trf_2957) static void C_ccall trf_2957(C_word c,C_word *av) C_noret; static void C_ccall trf_2957(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2957(t0,t1,t2,t3,t4);} C_noret_decl(trf_3356) static void C_ccall trf_3356(C_word c,C_word *av) C_noret; static void C_ccall trf_3356(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3356(t0,t1);} C_noret_decl(trf_3435) static void C_ccall trf_3435(C_word c,C_word *av) C_noret; static void C_ccall trf_3435(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3435(t0,t1,t2,t3);} C_noret_decl(trf_3472) static void C_ccall trf_3472(C_word c,C_word *av) C_noret; static void C_ccall trf_3472(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3472(t0,t1,t2,t3,t4);} C_noret_decl(trf_3571) static void C_ccall trf_3571(C_word c,C_word *av) C_noret; static void C_ccall trf_3571(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3571(t0,t1);} C_noret_decl(trf_3627) static void C_ccall trf_3627(C_word c,C_word *av) C_noret; static void C_ccall trf_3627(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3627(t0,t1,t2);} C_noret_decl(trf_3938) static void C_ccall trf_3938(C_word c,C_word *av) C_noret; static void C_ccall trf_3938(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3938(t0,t1,t2,t3);} C_noret_decl(trf_3977) static void C_ccall trf_3977(C_word c,C_word *av) C_noret; static void C_ccall trf_3977(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3977(t0,t1);} C_noret_decl(trf_3983) static void C_ccall trf_3983(C_word c,C_word *av) C_noret; static void C_ccall trf_3983(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3983(t0,t1,t2,t3);} C_noret_decl(trf_4034) static void C_ccall trf_4034(C_word c,C_word *av) C_noret; static void C_ccall trf_4034(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4034(t0,t1,t2);} C_noret_decl(trf_4055) static void C_ccall trf_4055(C_word c,C_word *av) C_noret; static void C_ccall trf_4055(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4055(t0,t1);} C_noret_decl(trf_4064) static void C_ccall trf_4064(C_word c,C_word *av) C_noret; static void C_ccall trf_4064(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4064(t0,t1,t2);} C_noret_decl(trf_4089) static void C_ccall trf_4089(C_word c,C_word *av) C_noret; static void C_ccall trf_4089(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4089(t0,t1,t2);} C_noret_decl(trf_4138) static void C_ccall trf_4138(C_word c,C_word *av) C_noret; static void C_ccall trf_4138(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_4138(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_4193) static void C_ccall trf_4193(C_word c,C_word *av) C_noret; static void C_ccall trf_4193(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4193(t0,t1);} C_noret_decl(trf_4230) static void C_ccall trf_4230(C_word c,C_word *av) C_noret; static void C_ccall trf_4230(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4230(t0,t1,t2);} C_noret_decl(trf_4295) static void C_ccall trf_4295(C_word c,C_word *av) C_noret; static void C_ccall trf_4295(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_4295(t0,t1,t2,t3,t4);} C_noret_decl(trf_4625) static void C_ccall trf_4625(C_word c,C_word *av) C_noret; static void C_ccall trf_4625(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4625(t0,t1);} C_noret_decl(trf_4734) static void C_ccall trf_4734(C_word c,C_word *av) C_noret; static void C_ccall trf_4734(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4734(t0,t1);} C_noret_decl(trf_4797) static void C_ccall trf_4797(C_word c,C_word *av) C_noret; static void C_ccall trf_4797(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4797(t0,t1);} C_noret_decl(trf_4800) static void C_ccall trf_4800(C_word c,C_word *av) C_noret; static void C_ccall trf_4800(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4800(t0,t1);} C_noret_decl(trf_4803) static void C_ccall trf_4803(C_word c,C_word *av) C_noret; static void C_ccall trf_4803(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4803(t0,t1);} C_noret_decl(trf_4885) static void C_ccall trf_4885(C_word c,C_word *av) C_noret; static void C_ccall trf_4885(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4885(t0,t1);} C_noret_decl(trf_4915) static void C_ccall trf_4915(C_word c,C_word *av) C_noret; static void C_ccall trf_4915(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_4915(t0,t1,t2,t3,t4);} C_noret_decl(trf_4944) static void C_ccall trf_4944(C_word c,C_word *av) C_noret; static void C_ccall trf_4944(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4944(t0,t1);} C_noret_decl(trf_4974) static void C_ccall trf_4974(C_word c,C_word *av) C_noret; static void C_ccall trf_4974(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_4974(t0,t1,t2,t3,t4);} C_noret_decl(trf_5003) static void C_ccall trf_5003(C_word c,C_word *av) C_noret; static void C_ccall trf_5003(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5003(t0,t1);} C_noret_decl(trf_5035) static void C_ccall trf_5035(C_word c,C_word *av) C_noret; static void C_ccall trf_5035(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5035(t0,t1);} C_noret_decl(trf_5250) static void C_ccall trf_5250(C_word c,C_word *av) C_noret; static void C_ccall trf_5250(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5250(t0,t1,t2);} C_noret_decl(trf_5338) static void C_ccall trf_5338(C_word c,C_word *av) C_noret; static void C_ccall trf_5338(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5338(t0,t1);} C_noret_decl(trf_5413) static void C_ccall trf_5413(C_word c,C_word *av) C_noret; static void C_ccall trf_5413(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_5413(t0,t1,t2,t3,t4);} C_noret_decl(trf_5559) static void C_ccall trf_5559(C_word c,C_word *av) C_noret; static void C_ccall trf_5559(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5559(t0,t1,t2,t3);} C_noret_decl(trf_5700) static void C_ccall trf_5700(C_word c,C_word *av) C_noret; static void C_ccall trf_5700(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5700(t0,t1);} C_noret_decl(trf_5737) static void C_ccall trf_5737(C_word c,C_word *av) C_noret; static void C_ccall trf_5737(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5737(t0,t1);} C_noret_decl(trf_5915) static void C_ccall trf_5915(C_word c,C_word *av) C_noret; static void C_ccall trf_5915(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5915(t0,t1);} C_noret_decl(trf_5917) static void C_ccall trf_5917(C_word c,C_word *av) C_noret; static void C_ccall trf_5917(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_5917(t0,t1,t2,t3,t4);} C_noret_decl(trf_6267) static void C_ccall trf_6267(C_word c,C_word *av) C_noret; static void C_ccall trf_6267(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6267(t0,t1);} C_noret_decl(trf_6340) static void C_ccall trf_6340(C_word c,C_word *av) C_noret; static void C_ccall trf_6340(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_6340(t0,t1,t2,t3,t4);} C_noret_decl(trf_6443) static void C_ccall trf_6443(C_word c,C_word *av) C_noret; static void C_ccall trf_6443(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6443(t0,t1);} C_noret_decl(trf_6478) static void C_ccall trf_6478(C_word c,C_word *av) C_noret; static void C_ccall trf_6478(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6478(t0,t1,t2,t3);} C_noret_decl(trf_6546) static void C_ccall trf_6546(C_word c,C_word *av) C_noret; static void C_ccall trf_6546(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6546(t0,t1,t2,t3);} C_noret_decl(trf_6703) static void C_ccall trf_6703(C_word c,C_word *av) C_noret; static void C_ccall trf_6703(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6703(t0,t1);} C_noret_decl(trf_6991) static void C_ccall trf_6991(C_word c,C_word *av) C_noret; static void C_ccall trf_6991(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6991(t0,t1,t2);} C_noret_decl(trf_7036) static void C_ccall trf_7036(C_word c,C_word *av) C_noret; static void C_ccall trf_7036(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7036(t0,t1);} C_noret_decl(trf_7057) static void C_ccall trf_7057(C_word c,C_word *av) C_noret; static void C_ccall trf_7057(C_word c,C_word *av){ C_word t0=av[0]; f_7057(t0);} C_noret_decl(trf_7076) static void C_ccall trf_7076(C_word c,C_word *av) C_noret; static void C_ccall trf_7076(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7076(t0,t1);} C_noret_decl(trf_7126) static void C_ccall trf_7126(C_word c,C_word *av) C_noret; static void C_ccall trf_7126(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_7126(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_7163) static void C_ccall trf_7163(C_word c,C_word *av) C_noret; static void C_ccall trf_7163(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7163(t0,t1);} C_noret_decl(trf_7183) static void C_ccall trf_7183(C_word c,C_word *av) C_noret; static void C_ccall trf_7183(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7183(t0,t1,t2);} C_noret_decl(trf_7195) static void C_ccall trf_7195(C_word c,C_word *av) C_noret; static void C_ccall trf_7195(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7195(t0,t1,t2,t3);} C_noret_decl(trf_7224) static void C_ccall trf_7224(C_word c,C_word *av) C_noret; static void C_ccall trf_7224(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_7224(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_7269) static void C_ccall trf_7269(C_word c,C_word *av) C_noret; static void C_ccall trf_7269(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_7269(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_7280) static void C_ccall trf_7280(C_word c,C_word *av) C_noret; static void C_ccall trf_7280(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_7280(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_7291) static void C_ccall trf_7291(C_word c,C_word *av) C_noret; static void C_ccall trf_7291(C_word c,C_word *av){ C_word t0=av[8]; C_word t1=av[7]; C_word t2=av[6]; C_word t3=av[5]; C_word t4=av[4]; C_word t5=av[3]; C_word t6=av[2]; C_word t7=av[1]; C_word t8=av[0]; f_7291(t0,t1,t2,t3,t4,t5,t6,t7,t8);} C_noret_decl(trf_7347) static void C_ccall trf_7347(C_word c,C_word *av) C_noret; static void C_ccall trf_7347(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_7347(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_7349) static void C_ccall trf_7349(C_word c,C_word *av) C_noret; static void C_ccall trf_7349(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7349(t0,t1,t2);} C_noret_decl(trf_7750) static void C_ccall trf_7750(C_word c,C_word *av) C_noret; static void C_ccall trf_7750(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7750(t0,t1,t2,t3);} /* k2615 */ static void C_ccall f_2617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2617,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2620,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k2618 in k2615 */ static void C_ccall f_2620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2620,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2623,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k2621 in k2618 in k2615 */ static void C_ccall f_2623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2623,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2626,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_port_toplevel(2,av2);}} /* k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2626,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2629,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_lolevel_toplevel(2,av2);}} /* k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2629,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2632,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word t87; C_word t88; C_word t89; C_word t90; C_word t91; C_word t92; C_word t93; C_word t94; C_word t95; C_word t96; C_word t97; C_word t98; C_word t99; C_word t100; C_word t101; C_word t102; C_word t103; C_word t104; C_word t105; C_word t106; C_word t107; C_word t108; C_word t109; C_word t110; C_word t111; C_word t112; C_word t113; C_word t114; C_word t115; C_word t116; C_word t117; C_word t118; C_word t119; C_word t120; C_word t121; C_word t122; C_word t123; C_word t124; C_word t125; C_word t126; C_word t127; C_word t128; C_word t129; C_word t130; C_word t131; C_word t132; C_word t133; C_word t134; C_word t135; C_word t136; C_word t137; C_word t138; C_word t139; C_word t140; C_word t141; C_word t142; C_word t143; C_word t144; C_word t145; C_word t146; C_word t147; C_word t148; C_word t149; C_word t150; C_word t151; C_word t152; C_word t153; C_word t154; C_word t155; C_word t156; C_word t157; C_word t158; C_word t159; C_word t160; C_word t161; C_word t162; C_word t163; C_word t164; C_word t165; C_word t166; C_word t167; C_word t168; C_word t169; C_word t170; C_word t171; C_word t172; C_word t173; C_word t174; C_word t175; C_word t176; C_word t177; C_word t178; C_word t179; C_word t180; C_word t181; C_word t182; C_word t183; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(104,c,6)))){ C_save_and_reclaim((void *)f_2632,2,av);} a=C_alloc(104); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_set_block_item(lf[2] /* chicken.file.posix#create-fifo */,0,C_SCHEME_UNDEFINED); t5=C_set_block_item(lf[3] /* chicken.file.posix#create-symbolic-link */,0,C_SCHEME_UNDEFINED); t6=C_set_block_item(lf[4] /* chicken.file.posix#read-symbolic-link */,0,C_SCHEME_UNDEFINED); t7=C_set_block_item(lf[5] /* chicken.file.posix#duplicate-fileno */,0,C_SCHEME_UNDEFINED); t8=C_set_block_item(lf[6] /* chicken.file.posix#fcntl/dupfd */,0,C_SCHEME_UNDEFINED); t9=C_set_block_item(lf[7] /* chicken.file.posix#fcntl/getfd */,0,C_SCHEME_UNDEFINED); t10=C_set_block_item(lf[8] /* chicken.file.posix#fcntl/getfl */,0,C_SCHEME_UNDEFINED); t11=C_set_block_item(lf[9] /* chicken.file.posix#fcntl/setfd */,0,C_SCHEME_UNDEFINED); t12=C_set_block_item(lf[10] /* chicken.file.posix#fcntl/setfl */,0,C_SCHEME_UNDEFINED); t13=C_set_block_item(lf[11] /* chicken.file.posix#file-close */,0,C_SCHEME_UNDEFINED); t14=C_set_block_item(lf[12] /* chicken.file.posix#file-control */,0,C_SCHEME_UNDEFINED); t15=C_set_block_item(lf[13] /* chicken.file.posix#file-creation-mode */,0,C_SCHEME_UNDEFINED); t16=C_set_block_item(lf[14] /* chicken.file.posix#file-group */,0,C_SCHEME_UNDEFINED); t17=C_set_block_item(lf[15] /* chicken.file.posix#file-link */,0,C_SCHEME_UNDEFINED); t18=C_set_block_item(lf[16] /* chicken.file.posix#file-lock */,0,C_SCHEME_UNDEFINED); t19=C_set_block_item(lf[17] /* chicken.file.posix#file-lock/blocking */,0,C_SCHEME_UNDEFINED); t20=C_set_block_item(lf[18] /* chicken.file.posix#file-mkstemp */,0,C_SCHEME_UNDEFINED); t21=C_set_block_item(lf[19] /* chicken.file.posix#file-open */,0,C_SCHEME_UNDEFINED); t22=C_set_block_item(lf[20] /* chicken.file.posix#file-owner */,0,C_SCHEME_UNDEFINED); t23=C_set_block_item(lf[21] /* chicken.file.posix#file-permissions */,0,C_SCHEME_UNDEFINED); t24=C_set_block_item(lf[22] /* chicken.file.posix#file-position */,0,C_SCHEME_UNDEFINED); t25=C_set_block_item(lf[23] /* chicken.file.posix#file-read */,0,C_SCHEME_UNDEFINED); t26=C_set_block_item(lf[24] /* chicken.file.posix#file-select */,0,C_SCHEME_UNDEFINED); t27=C_set_block_item(lf[25] /* chicken.file.posix#file-test-lock */,0,C_SCHEME_UNDEFINED); t28=C_set_block_item(lf[26] /* chicken.file.posix#file-truncate */,0,C_SCHEME_UNDEFINED); t29=C_set_block_item(lf[27] /* chicken.file.posix#file-unlock */,0,C_SCHEME_UNDEFINED); t30=C_set_block_item(lf[28] /* chicken.file.posix#file-write */,0,C_SCHEME_UNDEFINED); t31=C_set_block_item(lf[29] /* chicken.file.posix#file-type */,0,C_SCHEME_UNDEFINED); t32=C_set_block_item(lf[30] /* chicken.file.posix#block-device? */,0,C_SCHEME_UNDEFINED); t33=C_set_block_item(lf[31] /* chicken.file.posix#character-device? */,0,C_SCHEME_UNDEFINED); t34=C_set_block_item(lf[32] /* chicken.file.posix#directory? */,0,C_SCHEME_UNDEFINED); t35=C_set_block_item(lf[33] /* chicken.file.posix#fifo? */,0,C_SCHEME_UNDEFINED); t36=C_set_block_item(lf[34] /* chicken.file.posix#regular-file? */,0,C_SCHEME_UNDEFINED); t37=C_set_block_item(lf[35] /* chicken.file.posix#socket? */,0,C_SCHEME_UNDEFINED); t38=C_set_block_item(lf[36] /* chicken.file.posix#symbolic-link? */,0,C_SCHEME_UNDEFINED); t39=C_set_block_item(lf[37] /* chicken.file.posix#fileno/stderr */,0,C_SCHEME_UNDEFINED); t40=C_set_block_item(lf[38] /* chicken.file.posix#fileno/stdin */,0,C_SCHEME_UNDEFINED); t41=C_set_block_item(lf[39] /* chicken.file.posix#fileno/stdout */,0,C_SCHEME_UNDEFINED); t42=C_set_block_item(lf[40] /* chicken.file.posix#open-input-file* */,0,C_SCHEME_UNDEFINED); t43=C_set_block_item(lf[41] /* chicken.file.posix#open-output-file* */,0,C_SCHEME_UNDEFINED); t44=C_set_block_item(lf[42] /* chicken.file.posix#open/append */,0,C_SCHEME_UNDEFINED); t45=C_set_block_item(lf[43] /* chicken.file.posix#open/binary */,0,C_SCHEME_UNDEFINED); t46=C_set_block_item(lf[44] /* chicken.file.posix#open/creat */,0,C_SCHEME_UNDEFINED); t47=C_set_block_item(lf[45] /* chicken.file.posix#open/excl */,0,C_SCHEME_UNDEFINED); t48=C_set_block_item(lf[46] /* chicken.file.posix#open/fsync */,0,C_SCHEME_UNDEFINED); t49=C_set_block_item(lf[47] /* chicken.file.posix#open/noctty */,0,C_SCHEME_UNDEFINED); t50=C_set_block_item(lf[48] /* chicken.file.posix#open/noinherit */,0,C_SCHEME_UNDEFINED); t51=C_set_block_item(lf[49] /* chicken.file.posix#open/nonblock */,0,C_SCHEME_UNDEFINED); t52=C_set_block_item(lf[50] /* chicken.file.posix#open/rdonly */,0,C_SCHEME_UNDEFINED); t53=C_set_block_item(lf[51] /* chicken.file.posix#open/rdwr */,0,C_SCHEME_UNDEFINED); t54=C_set_block_item(lf[52] /* chicken.file.posix#open/read */,0,C_SCHEME_UNDEFINED); t55=C_set_block_item(lf[53] /* chicken.file.posix#open/sync */,0,C_SCHEME_UNDEFINED); t56=C_set_block_item(lf[54] /* chicken.file.posix#open/text */,0,C_SCHEME_UNDEFINED); t57=C_set_block_item(lf[55] /* chicken.file.posix#open/trunc */,0,C_SCHEME_UNDEFINED); t58=C_set_block_item(lf[56] /* chicken.file.posix#open/write */,0,C_SCHEME_UNDEFINED); t59=C_set_block_item(lf[57] /* chicken.file.posix#open/wronly */,0,C_SCHEME_UNDEFINED); t60=C_set_block_item(lf[58] /* chicken.file.posix#perm/irgrp */,0,C_SCHEME_UNDEFINED); t61=C_set_block_item(lf[59] /* chicken.file.posix#perm/iroth */,0,C_SCHEME_UNDEFINED); t62=C_set_block_item(lf[60] /* chicken.file.posix#perm/irusr */,0,C_SCHEME_UNDEFINED); t63=C_set_block_item(lf[61] /* chicken.file.posix#perm/irwxg */,0,C_SCHEME_UNDEFINED); t64=C_set_block_item(lf[62] /* chicken.file.posix#perm/irwxo */,0,C_SCHEME_UNDEFINED); t65=C_set_block_item(lf[63] /* chicken.file.posix#perm/irwxu */,0,C_SCHEME_UNDEFINED); t66=C_set_block_item(lf[64] /* chicken.file.posix#perm/isgid */,0,C_SCHEME_UNDEFINED); t67=C_set_block_item(lf[65] /* chicken.file.posix#perm/isuid */,0,C_SCHEME_UNDEFINED); t68=C_set_block_item(lf[66] /* chicken.file.posix#perm/isvtx */,0,C_SCHEME_UNDEFINED); t69=C_set_block_item(lf[67] /* chicken.file.posix#perm/iwgrp */,0,C_SCHEME_UNDEFINED); t70=C_set_block_item(lf[68] /* chicken.file.posix#perm/iwoth */,0,C_SCHEME_UNDEFINED); t71=C_set_block_item(lf[69] /* chicken.file.posix#perm/iwusr */,0,C_SCHEME_UNDEFINED); t72=C_set_block_item(lf[70] /* chicken.file.posix#perm/ixgrp */,0,C_SCHEME_UNDEFINED); t73=C_set_block_item(lf[71] /* chicken.file.posix#perm/ixoth */,0,C_SCHEME_UNDEFINED); t74=C_set_block_item(lf[72] /* chicken.file.posix#perm/ixusr */,0,C_SCHEME_UNDEFINED); t75=C_set_block_item(lf[73] /* chicken.file.posix#port->fileno */,0,C_SCHEME_UNDEFINED); t76=C_set_block_item(lf[74] /* chicken.file.posix#seek/cur */,0,C_SCHEME_UNDEFINED); t77=C_set_block_item(lf[75] /* chicken.file.posix#seek/end */,0,C_SCHEME_UNDEFINED); t78=C_set_block_item(lf[76] /* chicken.file.posix#seek/set */,0,C_SCHEME_UNDEFINED); t79=C_set_block_item(lf[77] /* chicken.file.posix#set-file-position! */,0,C_SCHEME_UNDEFINED); t80=C_a_i_provide(&a,1,lf[78]); t81=C_set_block_item(lf[79] /* chicken.time.posix#seconds->utc-time */,0,C_SCHEME_UNDEFINED); t82=C_set_block_item(lf[80] /* chicken.time.posix#utc-time->seconds */,0,C_SCHEME_UNDEFINED); t83=C_set_block_item(lf[81] /* chicken.time.posix#seconds->local-time */,0,C_SCHEME_UNDEFINED); t84=C_set_block_item(lf[82] /* chicken.time.posix#seconds->string */,0,C_SCHEME_UNDEFINED); t85=C_set_block_item(lf[83] /* chicken.time.posix#local-time->seconds */,0,C_SCHEME_UNDEFINED); t86=C_set_block_item(lf[84] /* chicken.time.posix#string->time */,0,C_SCHEME_UNDEFINED); t87=C_set_block_item(lf[85] /* chicken.time.posix#time->string */,0,C_SCHEME_UNDEFINED); t88=C_set_block_item(lf[86] /* chicken.time.posix#local-timezone-abbreviation */,0,C_SCHEME_UNDEFINED); t89=C_a_i_provide(&a,1,lf[87]); t90=C_mutate((C_word*)lf[88]+1 /* (set! chicken.process#system ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2718,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t91=C_mutate((C_word*)lf[94]+1 /* (set! chicken.process#system* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2736,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t92=C_mutate((C_word*)lf[97]+1 /* (set! chicken.process#qs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2752,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t93=C_set_block_item(lf[107] /* chicken.process#process-execute */,0,C_SCHEME_UNDEFINED); t94=C_set_block_item(lf[108] /* chicken.process#process-fork */,0,C_SCHEME_UNDEFINED); t95=C_set_block_item(lf[109] /* chicken.process#process-run */,0,C_SCHEME_UNDEFINED); t96=C_set_block_item(lf[110] /* chicken.process#process-signal */,0,C_SCHEME_UNDEFINED); t97=C_set_block_item(lf[111] /* chicken.process#process-spawn */,0,C_SCHEME_UNDEFINED); t98=C_set_block_item(lf[112] /* chicken.process#process-wait */,0,C_SCHEME_UNDEFINED); t99=C_set_block_item(lf[113] /* chicken.process#call-with-input-pipe */,0,C_SCHEME_UNDEFINED); t100=C_set_block_item(lf[114] /* chicken.process#call-with-output-pipe */,0,C_SCHEME_UNDEFINED); t101=C_set_block_item(lf[115] /* chicken.process#close-input-pipe */,0,C_SCHEME_UNDEFINED); t102=C_set_block_item(lf[116] /* chicken.process#close-output-pipe */,0,C_SCHEME_UNDEFINED); t103=C_set_block_item(lf[117] /* chicken.process#create-pipe */,0,C_SCHEME_UNDEFINED); t104=C_set_block_item(lf[118] /* chicken.process#open-input-pipe */,0,C_SCHEME_UNDEFINED); t105=C_set_block_item(lf[119] /* chicken.process#open-output-pipe */,0,C_SCHEME_UNDEFINED); t106=C_set_block_item(lf[120] /* chicken.process#with-input-from-pipe */,0,C_SCHEME_UNDEFINED); t107=C_set_block_item(lf[121] /* chicken.process#with-output-to-pipe */,0,C_SCHEME_UNDEFINED); t108=C_set_block_item(lf[122] /* chicken.process#process */,0,C_SCHEME_UNDEFINED); t109=C_set_block_item(lf[123] /* chicken.process#process* */,0,C_SCHEME_UNDEFINED); t110=C_set_block_item(lf[124] /* chicken.process#process-sleep */,0,C_SCHEME_UNDEFINED); t111=C_set_block_item(lf[125] /* chicken.process#pipe/buf */,0,C_SCHEME_UNDEFINED); t112=C_set_block_item(lf[126] /* chicken.process#spawn/overlay */,0,C_SCHEME_UNDEFINED); t113=C_set_block_item(lf[127] /* chicken.process#spawn/wait */,0,C_SCHEME_UNDEFINED); t114=C_set_block_item(lf[128] /* chicken.process#spawn/nowait */,0,C_SCHEME_UNDEFINED); t115=C_set_block_item(lf[129] /* chicken.process#spawn/nowaito */,0,C_SCHEME_UNDEFINED); t116=C_set_block_item(lf[130] /* chicken.process#spawn/detach */,0,C_SCHEME_UNDEFINED); t117=C_a_i_provide(&a,1,lf[131]); t118=C_set_block_item(lf[132] /* chicken.process.signal#set-alarm! */,0,C_SCHEME_UNDEFINED); t119=C_set_block_item(lf[133] /* chicken.process.signal#set-signal-handler! */,0,C_SCHEME_UNDEFINED); t120=C_set_block_item(lf[134] /* chicken.process.signal#set-signal-mask! */,0,C_SCHEME_UNDEFINED); t121=C_set_block_item(lf[135] /* chicken.process.signal#signal-handler */,0,C_SCHEME_UNDEFINED); t122=C_set_block_item(lf[136] /* chicken.process.signal#signal-mask */,0,C_SCHEME_UNDEFINED); t123=C_set_block_item(lf[137] /* chicken.process.signal#signal-mask! */,0,C_SCHEME_UNDEFINED); t124=C_set_block_item(lf[138] /* chicken.process.signal#signal-masked? */,0,C_SCHEME_UNDEFINED); t125=C_set_block_item(lf[139] /* chicken.process.signal#signal-unmask! */,0,C_SCHEME_UNDEFINED); t126=C_set_block_item(lf[140] /* chicken.process.signal#signal/abrt */,0,C_SCHEME_UNDEFINED); t127=C_set_block_item(lf[141] /* chicken.process.signal#signal/alrm */,0,C_SCHEME_UNDEFINED); t128=C_set_block_item(lf[142] /* chicken.process.signal#signal/break */,0,C_SCHEME_UNDEFINED); t129=C_set_block_item(lf[143] /* chicken.process.signal#signal/bus */,0,C_SCHEME_UNDEFINED); t130=C_set_block_item(lf[144] /* chicken.process.signal#signal/chld */,0,C_SCHEME_UNDEFINED); t131=C_set_block_item(lf[145] /* chicken.process.signal#signal/cont */,0,C_SCHEME_UNDEFINED); t132=C_set_block_item(lf[146] /* chicken.process.signal#signal/fpe */,0,C_SCHEME_UNDEFINED); t133=C_set_block_item(lf[147] /* chicken.process.signal#signal/hup */,0,C_SCHEME_UNDEFINED); t134=C_set_block_item(lf[148] /* chicken.process.signal#signal/ill */,0,C_SCHEME_UNDEFINED); t135=C_set_block_item(lf[149] /* chicken.process.signal#signal/int */,0,C_SCHEME_UNDEFINED); t136=C_set_block_item(lf[150] /* chicken.process.signal#signal/io */,0,C_SCHEME_UNDEFINED); t137=C_set_block_item(lf[151] /* chicken.process.signal#signal/kill */,0,C_SCHEME_UNDEFINED); t138=C_set_block_item(lf[152] /* chicken.process.signal#signal/pipe */,0,C_SCHEME_UNDEFINED); t139=C_set_block_item(lf[153] /* chicken.process.signal#signal/prof */,0,C_SCHEME_UNDEFINED); t140=C_set_block_item(lf[154] /* chicken.process.signal#signal/quit */,0,C_SCHEME_UNDEFINED); t141=C_set_block_item(lf[155] /* chicken.process.signal#signal/segv */,0,C_SCHEME_UNDEFINED); t142=C_set_block_item(lf[156] /* chicken.process.signal#signal/stop */,0,C_SCHEME_UNDEFINED); t143=C_set_block_item(lf[157] /* chicken.process.signal#signal/term */,0,C_SCHEME_UNDEFINED); t144=C_set_block_item(lf[158] /* chicken.process.signal#signal/trap */,0,C_SCHEME_UNDEFINED); t145=C_set_block_item(lf[159] /* chicken.process.signal#signal/tstp */,0,C_SCHEME_UNDEFINED); t146=C_set_block_item(lf[160] /* chicken.process.signal#signal/urg */,0,C_SCHEME_UNDEFINED); t147=C_set_block_item(lf[161] /* chicken.process.signal#signal/usr1 */,0,C_SCHEME_UNDEFINED); t148=C_set_block_item(lf[162] /* chicken.process.signal#signal/usr2 */,0,C_SCHEME_UNDEFINED); t149=C_set_block_item(lf[163] /* chicken.process.signal#signal/vtalrm */,0,C_SCHEME_UNDEFINED); t150=C_set_block_item(lf[164] /* chicken.process.signal#signal/winch */,0,C_SCHEME_UNDEFINED); t151=C_set_block_item(lf[165] /* chicken.process.signal#signal/xcpu */,0,C_SCHEME_UNDEFINED); t152=C_set_block_item(lf[166] /* chicken.process.signal#signal/xfsz */,0,C_SCHEME_UNDEFINED); t153=C_set_block_item(lf[167] /* chicken.process.signal#signals-list */,0,C_SCHEME_UNDEFINED); t154=C_a_i_provide(&a,1,lf[168]); t155=C_set_block_item(lf[169] /* chicken.process-context.posix#change-directory* */,0,C_SCHEME_UNDEFINED); t156=C_set_block_item(lf[170] /* chicken.process-context.posix#set-root-directory! */,0,C_SCHEME_UNDEFINED); t157=C_set_block_item(lf[171] /* chicken.process-context.posix#current-effective-group-id */,0,C_SCHEME_UNDEFINED); t158=C_set_block_item(lf[172] /* chicken.process-context.posix#current-effective-user-id */,0,C_SCHEME_UNDEFINED); t159=C_set_block_item(lf[173] /* chicken.process-context.posix#current-group-id */,0,C_SCHEME_UNDEFINED); t160=C_set_block_item(lf[174] /* chicken.process-context.posix#current-user-id */,0,C_SCHEME_UNDEFINED); t161=C_set_block_item(lf[175] /* chicken.process-context.posix#current-process-id */,0,C_SCHEME_UNDEFINED); t162=C_set_block_item(lf[176] /* chicken.process-context.posix#parent-process-id */,0,C_SCHEME_UNDEFINED); t163=C_set_block_item(lf[177] /* chicken.process-context.posix#current-user-name */,0,C_SCHEME_UNDEFINED); t164=C_set_block_item(lf[178] /* chicken.process-context.posix#current-effective-user-name */,0,C_SCHEME_UNDEFINED); t165=C_set_block_item(lf[179] /* chicken.process-context.posix#create-session */,0,C_SCHEME_UNDEFINED); t166=C_set_block_item(lf[180] /* chicken.process-context.posix#process-group-id */,0,C_SCHEME_UNDEFINED); t167=C_set_block_item(lf[181] /* chicken.process-context.posix#user-information */,0,C_SCHEME_UNDEFINED); t168=C_a_i_provide(&a,1,lf[182]); t169=C_mutate(&lf[183] /* (set! chicken.posix#posix-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2939,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t170=C_mutate((C_word*)lf[186]+1 /* (set! ##sys#posix-error ...) */,lf[183]); t171=C_mutate(&lf[187] /* (set! chicken.posix#stat ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2957,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t172=C_mutate((C_word*)lf[194]+1 /* (set! chicken.file.posix#file-stat ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3003,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t173=C_mutate((C_word*)lf[196]+1 /* (set! chicken.file.posix#set-file-permissions! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3021,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t174=C_mutate((C_word*)lf[202]+1 /* (set! chicken.file.posix#file-modification-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3065,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t175=C_mutate((C_word*)lf[204]+1 /* (set! chicken.file.posix#file-access-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3071,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t176=C_mutate((C_word*)lf[206]+1 /* (set! chicken.file.posix#file-change-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3077,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t177=C_mutate((C_word*)lf[208]+1 /* (set! chicken.file.posix#set-file-times! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3083,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t178=C_mutate((C_word*)lf[213]+1 /* (set! chicken.file.posix#file-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3162,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t179=C_mutate((C_word*)lf[215]+1 /* (set! chicken.file.posix#set-file-owner! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3168,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t180=C_mutate((C_word*)lf[218]+1 /* (set! chicken.file.posix#set-file-group! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3174,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t181=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3182,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t182=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7863,a[2]=((C_word)li221),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:312: chicken.base#getter-with-setter */ t183=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t183; av2[1]=t181; av2[2]=t182; av2[3]=*((C_word*)lf[215]+1); av2[4]=lf[492]; ((C_proc)(void*)(*((C_word*)t183+1)))(5,av2);}} /* chicken.process#system in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2718,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[89]); t4=C_execute_shell_command(t2); if(C_truep(C_fixnum_lessp(t4,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2731,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix.scm:202: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[93]+1); av2[1]=t5; tp(2,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2729 in chicken.process#system in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2731,2,av);} /* posix.scm:203: ##sys#signal-hook */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[91]; av2[3]=lf[89]; av2[4]=lf[92]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* chicken.process#system* in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2736,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2740,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix.scm:209: system */ t4=*((C_word*)lf[88]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2738 in chicken.process#system* in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2740,2,av);} t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* posix.scm:211: ##sys#error */ t3=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[96]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* chicken.process#qs in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_2752,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2756,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* posix.scm:216: chicken.platform#software-version */ t5=*((C_word*)lf[106]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_car(t3); f_2756(2,av2);}}} /* k2754 in chicken.process#qs in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_2756,2,av);} a=C_alloc(18); t2=C_eqp(t1,lf[98]); t3=(C_truep(t2)?C_make_character(34):C_make_character(39)); t4=t3; t5=C_eqp(t1,lf[98]); t6=(C_truep(t5)?lf[99]:lf[100]); t7=t6; t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2766,a[2]=t4,a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=((C_word)li2),tmp=(C_word)a,a+=6,tmp); t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2787,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t10,a[5]=t12,a[6]=t11,tmp=(C_word)a,a+=7,tmp); /* ##sys#string->list */ t14=*((C_word*)lf[105]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t14; av2[1]=t13; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} /* g256 in k2754 in chicken.process#qs in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_2766(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,0,4)))){ C_save_and_reclaim_args((void *)trf_2766,3,t0,t1,t2);} a=C_alloc(2); if(C_truep(C_i_char_equalp(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=t2; if(C_truep(C_u_i_char_equalp(t3,C_make_character(0)))){ /* posix.scm:224: chicken.base#error */ t4=*((C_word*)lf[101]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=lf[102]; av2[3]=lf[103]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_string(&a,1,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k2785 in k2754 in chicken.process#qs in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_2787,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2790,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2807,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word)li3),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_2807(t6,t2,t1);} /* k2788 in k2785 in k2754 in chicken.process#qs in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2790,2,av);} a=C_alloc(7); t2=C_a_i_string(&a,1,((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2801,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t4; av2[2]=*((C_word*)lf[104]+1); av2[3]=t1; C_apply(4,av2);}} /* k2799 in k2788 in k2785 in k2754 in chicken.process#qs in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_2801,2,av);} a=C_alloc(2); t2=C_a_i_string(&a,1,((C_word*)t0)[2]); /* posix.scm:227: scheme#string-append */ t3=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* map-loop250 in k2785 in k2754 in chicken.process#qs in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_2807(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2807,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2832,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* posix.scm:220: g256 */ t5=((C_word*)t0)[4]; f_2766(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2830 in map-loop250 in k2785 in k2754 in chicken.process#qs in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2832,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_2807(t6,((C_word*)t0)[5],t5);} /* chicken.posix#posix-error in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +7,c,2)))){ C_save_and_reclaim((void*)f_2939,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+7); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2943,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t5,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* posix-common.scm:191: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[93]+1); av2[1]=t6; tp(2,av2);}} /* k2941 in chicken.posix#posix-error in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_2943,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2950,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2954,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=C_i_foreign_fixnum_argumentp(t1); t6=stub633(t4,t5); /* posix-common.scm:188: ##sys#peek-c-string */ t7=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k2948 in k2941 in chicken.posix#posix-error in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2950,2,av);}{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[90]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; av2[6]=((C_word*)t0)[5]; C_apply(7,av2);}} /* k2952 in k2941 in chicken.posix#posix-error in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2954,2,av);} /* posix-common.scm:192: string-append */ t2=*((C_word*)lf[104]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[184]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.posix#stat in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_2957(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_2957,5,t1,t2,t3,t4,t5);} a=C_alloc(12); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2961,a[2]=t4,a[3]=t1,a[4]=t5,a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnump(t2))){ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_u_i_fstat(t2); f_2961(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2982,a[2]=t6,a[3]=t2,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:235: chicken.base#port? */ t8=*((C_word*)lf[193]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k2959 in chicken.posix#stat in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2961,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ if(C_truep(((C_word*)t0)[2])){ /* posix-common.scm:246: posix-error */ t2=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[188]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[189]; av2[5]=((C_word*)t0)[5]; f_2939(6,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2980 in chicken.posix#stat in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_2982,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2986,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:235: chicken.file.posix#port->fileno */ t3=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2995,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:237: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[5]; tp(4,av2);}} else{ /* posix-common.scm:242: ##sys#signal-hook */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[191]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[192]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k2984 in k2980 in chicken.posix#stat in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2986,2,av);} t2=C_u_i_fstat(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_2961(2,av2);}} /* k2993 in k2980 in chicken.posix#stat in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_2995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2995,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_u_i_lstat(t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_2961(2,av2);}} else{ t2=C_u_i_stat(t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_2961(2,av2);}}} /* chicken.file.posix#file-stat in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +3,c,5)))){ C_save_and_reclaim((void*)f_3003,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+3); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3010,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:252: stat */ f_2957(t6,t2,t5,C_SCHEME_TRUE,lf[195]);} /* k3008 in chicken.file.posix#file-stat in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){ C_save_and_reclaim((void *)f_3010,2,av);} a=C_alloc(42); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_vector(&a,13,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_ino),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_mode),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_nlink),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_uid),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_gid),C_int64_to_num(&a,C_statbuf.st_size),C_int64_to_num(&a,C_statbuf.st_atime),C_int64_to_num(&a,C_statbuf.st_ctime),C_int64_to_num(&a,C_statbuf.st_mtime),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_dev),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_rdev),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_blksize),C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_blocks)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#set-file-permissions! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3021,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3025,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:261: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[201]+1); av2[1]=t4; av2[2]=t3; av2[3]=lf[197]; tp(4,av2);}} /* k3023 in chicken.file.posix#set-file-permissions! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_3025,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3028,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnump(((C_word*)t0)[3]))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_fchmod(((C_word*)t0)[3],((C_word*)t0)[4]); f_3028(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3046,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:263: chicken.base#port? */ t4=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k3026 in k3023 in chicken.file.posix#set-file-permissions! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_3028,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ /* posix-common.scm:272: posix-error */ t2=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[188]; av2[3]=lf[197]; av2[4]=lf[198]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2939(7,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3044 in k3023 in chicken.file.posix#set-file-permissions! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_3046,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3050,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:263: chicken.file.posix#port->fileno */ t3=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[4]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3060,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:266: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[197]; tp(4,av2);}} else{ /* posix-common.scm:268: ##sys#signal-hook */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[191]; av2[3]=lf[199]; av2[4]=lf[200]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k3048 in k3044 in k3023 in chicken.file.posix#set-file-permissions! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3050,2,av);} t2=C_fchmod(t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_3028(2,av2);}} /* k3058 in k3044 in k3023 in chicken.file.posix#set-file-permissions! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3060,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_chmod(t1,((C_word*)t0)[3]); f_3028(2,av2);}} /* chicken.file.posix#file-modification-time in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3065,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3069,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:276: stat */ f_2957(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[203]);} /* k3067 in chicken.file.posix#file-modification-time in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_3069,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_int64_to_num(&a,C_statbuf.st_mtime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#file-access-time in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3071,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3075,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:280: stat */ f_2957(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[205]);} /* k3073 in chicken.file.posix#file-access-time in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_3075,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_int64_to_num(&a,C_statbuf.st_atime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#file-change-time in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3077,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3081,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:284: stat */ f_2957(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[207]);} /* k3079 in chicken.file.posix#file-change-time in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_3081,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_int64_to_num(&a,C_statbuf.st_ctime); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#set-file-times! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_3083,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3087,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_nullp(t4))){ /* posix-common.scm:289: chicken.time#current-seconds */ t6=*((C_word*)lf[212]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_car(t4); f_3087(2,av2);}}} /* k3085 in chicken.file.posix#set-file-times! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3087,2,av);} a=C_alloc(7); t2=t1; t3=C_i_nullp(((C_word*)t0)[2]); t4=(C_truep(t3)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); t5=C_i_nullp(t4); t6=(C_truep(t5)?t2:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3099,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=t7,tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ /* posix-common.scm:290: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[211]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[211]+1); av2[1]=t10; av2[2]=t2; av2[3]=lf[209]; tp(4,av2);}} else{ t11=t10;{ C_word *av2=av; av2[0]=t11; av2[1]=C_SCHEME_UNDEFINED; f_3099(2,av2);}}} /* k3097 in k3085 in chicken.file.posix#set-file-times! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_3099,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3102,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[6])){ /* posix-common.scm:291: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[211]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[211]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[209]; tp(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_3102(2,av2);}}} /* k3100 in k3097 in k3085 in chicken.file.posix#set-file-times! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_3102,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3118,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=t2; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3108,a[2]=t3,a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t8=C_i_foreign_string_argumentp(t4); /* posix-common.scm:292: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t7; av2[2]=t8; tp(3,av2);}} else{ t8=t3;{ C_word *av2=av; av2[0]=t8; av2[1]=stub707(C_SCHEME_UNDEFINED,C_SCHEME_FALSE,t5,t6); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3106 in k3100 in k3097 in k3085 in chicken.file.posix#set-file-times! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3108,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=stub707(C_SCHEME_UNDEFINED,t1,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3116 in k3100 in k3097 in k3085 in chicken.file.posix#set-file-times! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_3118,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=lf[183]; av2[3]=lf[188]; av2[4]=lf[209]; av2[5]=lf[210]; av2[6]=((C_word*)t0)[3]; av2[7]=((C_word*)t0)[4]; C_apply(8,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.file.posix#file-size in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3162,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3166,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:301: stat */ f_2957(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[214]);} /* k3164 in chicken.file.posix#file-size in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_3166,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_int64_to_num(&a,C_statbuf.st_size); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#set-file-owner! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3168,4,av);} /* posix-common.scm:305: chown */ f_5413(t1,lf[217],t2,t3,C_fix(-1));} /* chicken.file.posix#set-file-group! in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3174,4,av);} /* posix-common.scm:309: chown */ f_5413(t1,lf[219],t2,C_fix(-1),t3);} /* k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3182,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[20]+1 /* (set! chicken.file.posix#file-owner ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3186,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7857,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:318: chicken.base#getter-with-setter */ t5=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[218]+1); av2[4]=lf[490]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3186,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[14]+1 /* (set! chicken.file.posix#file-group ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3190,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7851,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:324: chicken.base#getter-with-setter */ t5=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[196]+1); av2[4]=lf[488]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,4)))){ C_save_and_reclaim((void *)f_3190,2,av);} a=C_alloc(33); t2=C_mutate((C_word*)lf[21]+1 /* (set! chicken.file.posix#file-permissions ...) */,t1); t3=C_mutate((C_word*)lf[29]+1 /* (set! chicken.file.posix#file-type ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3192,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[34]+1 /* (set! chicken.file.posix#regular-file? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3279,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[36]+1 /* (set! chicken.file.posix#symbolic-link? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3289,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[30]+1 /* (set! chicken.file.posix#block-device? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3299,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[31]+1 /* (set! chicken.file.posix#character-device? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3309,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[33]+1 /* (set! chicken.file.posix#fifo? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3319,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[35]+1 /* (set! chicken.file.posix#socket? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3329,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[32]+1 /* (set! chicken.file.posix#directory? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3339,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t11=C_set_block_item(lf[76] /* chicken.file.posix#seek/set */,0,C_fix((C_word)SEEK_SET)); t12=C_set_block_item(lf[75] /* chicken.file.posix#seek/end */,0,C_fix((C_word)SEEK_END)); t13=C_set_block_item(lf[74] /* chicken.file.posix#seek/cur */,0,C_fix((C_word)SEEK_CUR)); t14=C_mutate((C_word*)lf[77]+1 /* (set! chicken.file.posix#set-file-position! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3352,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3407,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7814,a[2]=((C_word)li218),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:401: chicken.base#getter-with-setter */ t17=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t17; av2[1]=t15; av2[2]=t16; av2[3]=*((C_word*)lf[77]+1); av2[4]=lf[487]; ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} /* chicken.file.posix#file-type in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +3,c,5)))){ C_save_and_reclaim((void*)f_3192,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+3); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_i_nullp(t3); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_TRUE:C_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3211,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:333: stat */ f_2957(t12,t2,t5,t9,lf[227]);} /* k3209 in chicken.file.posix#file-type in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3211,2,av);} if(C_truep(t1)){ t2=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_stat_type); t3=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFREG)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=lf[220]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFLNK)); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=lf[221]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFDIR)); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=lf[222]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFCHR)); if(C_truep(t6)){ t7=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t7; av2[1]=lf[223]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFBLK)); if(C_truep(t7)){ t8=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t8; av2[1]=lf[224]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFIFO)); if(C_truep(t8)){ t9=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t9; av2[1]=lf[225]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_eqp(t2,C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)S_IFSOCK)); t10=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t10; av2[1]=(C_truep(t9)?lf[226]:lf[220]); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}}}}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.file.posix#regular-file? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3279,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3287,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:347: chicken.file.posix#file-type */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3285 in chicken.file.posix#regular-file? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3287,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[220],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#symbolic-link? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3289,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3297,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:351: chicken.file.posix#file-type */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3295 in chicken.file.posix#symbolic-link? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3297,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[221],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#block-device? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3299,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3307,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:355: chicken.file.posix#file-type */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3305 in chicken.file.posix#block-device? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3307,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[224],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#character-device? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3309,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3317,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:359: chicken.file.posix#file-type */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3315 in chicken.file.posix#character-device? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3317,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[223],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#fifo? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3319,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3327,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:363: chicken.file.posix#file-type */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3325 in chicken.file.posix#fifo? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3327,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[225],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#socket? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3329,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3337,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:367: chicken.file.posix#file-type */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3335 in chicken.file.posix#socket? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3337,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[226],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#directory? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3339,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3347,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:371: chicken.file.posix#file-type */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3345 in chicken.file.posix#directory? in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3347,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(lf[222],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#set-file-position! in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_3352,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+5); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3356,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t6=t4; t7=t5; f_3356(t7,C_u_i_car(t6));} else{ t6=t5; f_3356(t6,C_fix((C_word)SEEK_SET));}} /* k3354 in chicken.file.posix#set-file-position! in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_3356(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3356,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3359,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:387: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[228]; tp(4,av2);}} /* k3357 in k3354 in chicken.file.posix#set-file-position! in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3359,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3362,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:388: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[228]; tp(4,av2);}} /* k3360 in k3357 in k3354 in chicken.file.posix#set-file-position! in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_3362,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3368,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3374,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:389: chicken.base#port? */ t4=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3366 in k3360 in k3357 in k3354 in chicken.file.posix#set-file-position! in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_3368,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* posix-common.scm:398: posix-error */ t2=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[188]; av2[3]=lf[228]; av2[4]=lf[229]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2939(7,av2);}}} /* k3372 in k3360 in k3357 in k3354 in chicken.file.posix#set-file-position! in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3374,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(7)); t3=C_eqp(t2,lf[230]); if(C_truep(t3)){ t4=C_fseek(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); if(C_truep(t4)){ t5=C_i_set_i_slot(((C_word*)t0)[2],C_fix(6),C_SCHEME_FALSE); t6=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t6; av2[1]=t4; f_3368(2,av2);}} else{ t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_3368(2,av2);}}} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_3368(2,av2);}}} else{ if(C_truep(C_fixnump(((C_word*)t0)[2]))){ t2=C_lseek(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_3368(2,av2);}} else{ /* posix-common.scm:397: ##sys#signal-hook */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[191]; av2[3]=lf[228]; av2[4]=lf[231]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(45,c,6)))){ C_save_and_reclaim((void *)f_3407,2,av);} a=C_alloc(45); t2=C_mutate((C_word*)lf[22]+1 /* (set! chicken.file.posix#file-position ...) */,t1); t3=C_set_block_item(lf[38] /* chicken.file.posix#fileno/stdin */,0,C_fix((C_word)STDIN_FILENO)); t4=C_set_block_item(lf[39] /* chicken.file.posix#fileno/stdout */,0,C_fix((C_word)STDOUT_FILENO)); t5=C_set_block_item(lf[37] /* chicken.file.posix#fileno/stderr */,0,C_fix((C_word)STDERR_FILENO)); t6=C_set_block_item(lf[50] /* chicken.file.posix#open/rdonly */,0,C_fix((C_word)O_RDONLY)); t7=C_set_block_item(lf[57] /* chicken.file.posix#open/wronly */,0,C_fix((C_word)O_WRONLY)); t8=C_set_block_item(lf[51] /* chicken.file.posix#open/rdwr */,0,C_fix((C_word)O_RDWR)); t9=C_set_block_item(lf[52] /* chicken.file.posix#open/read */,0,C_fix((C_word)O_RDONLY)); t10=C_set_block_item(lf[56] /* chicken.file.posix#open/write */,0,C_fix((C_word)O_WRONLY)); t11=C_set_block_item(lf[44] /* chicken.file.posix#open/creat */,0,C_fix((C_word)O_CREAT)); t12=C_set_block_item(lf[42] /* chicken.file.posix#open/append */,0,C_fix((C_word)O_APPEND)); t13=C_set_block_item(lf[45] /* chicken.file.posix#open/excl */,0,C_fix((C_word)O_EXCL)); t14=C_set_block_item(lf[55] /* chicken.file.posix#open/trunc */,0,C_fix((C_word)O_TRUNC)); t15=C_set_block_item(lf[43] /* chicken.file.posix#open/binary */,0,C_fix((C_word)O_BINARY)); t16=C_set_block_item(lf[54] /* chicken.file.posix#open/text */,0,C_fix((C_word)O_TEXT)); t17=C_set_block_item(lf[60] /* chicken.file.posix#perm/irusr */,0,C_fix((C_word)S_IRUSR)); t18=C_set_block_item(lf[69] /* chicken.file.posix#perm/iwusr */,0,C_fix((C_word)S_IWUSR)); t19=C_set_block_item(lf[72] /* chicken.file.posix#perm/ixusr */,0,C_fix((C_word)S_IXUSR)); t20=C_set_block_item(lf[58] /* chicken.file.posix#perm/irgrp */,0,C_fix((C_word)S_IRGRP)); t21=C_set_block_item(lf[67] /* chicken.file.posix#perm/iwgrp */,0,C_fix((C_word)S_IWGRP)); t22=C_set_block_item(lf[70] /* chicken.file.posix#perm/ixgrp */,0,C_fix((C_word)S_IXGRP)); t23=C_set_block_item(lf[59] /* chicken.file.posix#perm/iroth */,0,C_fix((C_word)S_IROTH)); t24=C_set_block_item(lf[68] /* chicken.file.posix#perm/iwoth */,0,C_fix((C_word)S_IWOTH)); t25=C_set_block_item(lf[71] /* chicken.file.posix#perm/ixoth */,0,C_fix((C_word)S_IXOTH)); t26=C_set_block_item(lf[63] /* chicken.file.posix#perm/irwxu */,0,C_fix((C_word)S_IRUSR | S_IWUSR | S_IXUSR)); t27=C_set_block_item(lf[61] /* chicken.file.posix#perm/irwxg */,0,C_fix((C_word)S_IRGRP | S_IWGRP | S_IXGRP)); t28=C_set_block_item(lf[62] /* chicken.file.posix#perm/irwxo */,0,C_fix((C_word)S_IROTH | S_IWOTH | S_IXOTH)); t29=C_SCHEME_UNDEFINED; t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp); t31=C_SCHEME_UNDEFINED; t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp); t33=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3435,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t34=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3472,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate((C_word*)lf[40]+1 /* (set! chicken.file.posix#open-input-file* ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3491,a[2]=t32,a[3]=t30,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp)); t36=C_mutate((C_word*)lf[41]+1 /* (set! chicken.file.posix#open-output-file* ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3505,a[2]=t32,a[3]=t30,a[4]=((C_word)li28),tmp=(C_word)a,a+=5,tmp)); t37=C_mutate((C_word*)lf[73]+1 /* (set! chicken.file.posix#port->fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3519,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate((C_word*)lf[5]+1 /* (set! chicken.file.posix#duplicate-fileno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3564,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate((C_word*)lf[175]+1 /* (set! chicken.process-context.posix#current-process-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3591,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate((C_word*)lf[169]+1 /* (set! chicken.process-context.posix#change-directory* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3594,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t41=*((C_word*)lf[253]+1); t42=C_mutate((C_word*)lf[253]+1 /* (set! ##sys#change-directory-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3610,a[2]=t41,a[3]=((C_word)li33),tmp=(C_word)a,a+=4,tmp)); t43=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3624,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7783,a[2]=((C_word)li216),tmp=(C_word)a,a+=3,tmp); t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7808,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:560: chicken.base#getter-with-setter */ t46=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t46; av2[1]=t43; av2[2]=t44; av2[3]=t45; av2[4]=lf[483]; ((C_proc)(void*)(*((C_word*)t46+1)))(5,av2);}} /* mode in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_3435(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_3435,4,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3443,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t6=t3; t7=C_u_i_car(t6); t8=C_eqp(t7,lf[232]); if(C_truep(t8)){ if(C_truep(C_i_not(t2))){ /* posix-common.scm:482: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[190]+1); av2[1]=t1; av2[2]=lf[233]; av2[3]=t4; tp(4,av2);}} else{ /* posix-common.scm:486: ##sys#error */ t9=*((C_word*)lf[95]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t5; av2[2]=lf[234]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} else{ /* posix-common.scm:487: ##sys#error */ t9=*((C_word*)lf[95]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t5; av2[2]=lf[235]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} else{ if(C_truep(t2)){ /* posix-common.scm:482: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[190]+1); av2[1]=t1; av2[2]=lf[236]; av2[3]=t4; tp(4,av2);}} else{ /* posix-common.scm:482: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[190]+1); av2[1]=t1; av2[2]=lf[237]; av2[3]=t4; tp(4,av2);}}}} /* k3441 in mode in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3443,2,av);} /* posix-common.scm:482: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* check in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_3472(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_3472,5,t1,t2,t3,t4,t5);} a=C_alloc(4); if(C_truep(C_null_pointerp(t5))){ /* posix-common.scm:493: posix-error */ t6=lf[183];{ C_word av2[6]; av2[0]=t6; av2[1]=t1; av2[2]=lf[188]; av2[3]=t2; av2[4]=lf[238]; av2[5]=t3; f_2939(6,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3485,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ /* posix-common.scm:494: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[239]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[239]+1); av2[1]=t6; av2[2]=C_fix(1); av2[3]=*((C_word*)lf[240]+1); av2[4]=lf[241]; av2[5]=lf[230]; tp(6,av2);}} else{ /* posix-common.scm:494: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[239]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[239]+1); av2[1]=t6; av2[2]=C_fix(2); av2[3]=*((C_word*)lf[240]+1); av2[4]=lf[241]; av2[5]=lf[230]; tp(6,av2);}}}} /* k3483 in check in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3485,2,av);} t2=C_set_file_ptr(t1,((C_word*)t0)[2]); t3=t1; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.file.posix#open-input-file* in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_3491,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3495,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* posix-common.scm:499: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[242]; tp(4,av2);}} /* k3493 in chicken.file.posix#open-input-file* in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_3495,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:500: mode */ f_3435(t2,C_SCHEME_TRUE,((C_word*)t0)[6],lf[242]);} /* k3501 in k3493 in chicken.file.posix#open-input-file* in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_3503,2,av);} a=C_alloc(2); t2=C_fdopen(&a,2,((C_word*)t0)[2],t1); /* posix-common.scm:500: check */ f_3472(((C_word*)t0)[4],lf[242],((C_word*)t0)[2],C_SCHEME_TRUE,t2);} /* chicken.file.posix#open-output-file* in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_3505,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3509,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* posix-common.scm:503: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[243]; tp(4,av2);}} /* k3507 in chicken.file.posix#open-output-file* in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_3509,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3517,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:504: mode */ f_3435(t2,C_SCHEME_FALSE,((C_word*)t0)[6],lf[243]);} /* k3515 in k3507 in chicken.file.posix#open-output-file* in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_3517,2,av);} a=C_alloc(2); t2=C_fdopen(&a,2,((C_word*)t0)[2],t1); /* posix-common.scm:504: check */ f_3472(((C_word*)t0)[4],lf[243],((C_word*)t0)[2],C_SCHEME_FALSE,t2);} /* chicken.file.posix#port->fileno in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3519,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(0),C_SCHEME_TRUE,lf[244]); t5=C_slot(t2,C_fix(7)); t6=C_eqp(lf[226],t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3535,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:514: ##sys#port-data */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[245]+1); av2[1]=t7; av2[2]=t2; tp(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3558,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:515: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[248]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[248]+1); av2[1]=t7; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}}} /* k3533 in chicken.file.posix#port->fileno in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3535,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_slot(t1,C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3542 in k3556 in chicken.file.posix#port->fileno in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3544,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3556 in chicken.file.posix#port->fileno in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_3558,2,av);} a=C_alloc(4); t2=C_i_zerop(t1); if(C_truep(C_i_not(t2))){ t3=C_port_fileno(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3544,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ /* posix-common.scm:518: posix-error */ t5=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=lf[188]; av2[3]=lf[244]; av2[4]=lf[246]; av2[5]=((C_word*)t0)[2]; f_2939(6,av2);}} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ /* posix-common.scm:520: posix-error */ t3=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[191]; av2[3]=lf[244]; av2[4]=lf[247]; av2[5]=((C_word*)t0)[2]; f_2939(6,av2);}}} /* chicken.file.posix#duplicate-fileno in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_3564,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3568,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:524: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[249]; tp(4,av2);}} /* k3566 in chicken.file.posix#duplicate-fileno in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3568,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3571,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ t3=t2; f_3571(t3,C_dup(((C_word*)t0)[3]));} else{ t3=C_i_car(((C_word*)t0)[4]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3589,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:528: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[249]; tp(4,av2);}}} /* k3569 in k3566 in chicken.file.posix#duplicate-fileno in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_3571(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_3571,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3574,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posix-common.scm:531: posix-error */ t4=lf[183];{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=lf[188]; av2[3]=lf[249]; av2[4]=lf[250]; av2[5]=((C_word*)t0)[3]; f_2939(6,av2);}} else{ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3572 in k3569 in k3566 in chicken.file.posix#duplicate-fileno in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3574,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3587 in k3566 in chicken.file.posix#duplicate-fileno in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3589,2,av);} t2=((C_word*)t0)[2]; f_3571(t2,C_dup2(((C_word*)t0)[3],((C_word*)t0)[4]));} /* chicken.process-context.posix#current-process-id in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3591,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=stub826(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.process-context.posix#change-directory* in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3594,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3598,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:545: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[251]; tp(4,av2);}} /* k3596 in chicken.process-context.posix#change-directory* in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_3598,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3601,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_fchdir(((C_word*)t0)[3]); t4=C_eqp(C_fix(0),t3); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posix-common.scm:547: posix-error */ t5=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t2; av2[2]=lf[188]; av2[3]=lf[251]; av2[4]=lf[252]; av2[5]=((C_word*)t0)[3]; f_2939(6,av2);}}} /* k3599 in k3596 in chicken.process-context.posix#change-directory* in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3601,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#change-directory-hook in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3610,3,av);} if(C_truep(C_fixnump(t2))){ t3=*((C_word*)lf[169]+1); t4=*((C_word*)lf[169]+1); /* posix-common.scm:552: g833 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[169]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[169]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} else{ /* posix-common.scm:552: g833 */ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_3624,2,av);} a=C_alloc(32); t2=C_mutate((C_word*)lf[13]+1 /* (set! chicken.file.posix#file-creation-mode ...) */,t1); t3=C_mutate(&lf[254] /* (set! chicken.posix#decode-seconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_decode_seconds,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate(&lf[255] /* (set! chicken.posix#check-time-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3627,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[81]+1 /* (set! chicken.time.posix#seconds->local-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3646,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[79]+1 /* (set! chicken.time.posix#seconds->utc-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3667,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[82]+1 /* (set! chicken.time.posix#seconds->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3699,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t8=C_fix((C_word)sizeof(struct tm)); t9=C_mutate((C_word*)lf[83]+1 /* (set! chicken.time.posix#local-time->seconds ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3737,a[2]=t8,a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp)); t10=C_fix((C_word)sizeof(struct tm)); t11=C_mutate((C_word*)lf[85]+1 /* (set! chicken.time.posix#time->string ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3782,a[2]=t10,a[3]=((C_word)li40),tmp=(C_word)a,a+=4,tmp)); t12=C_mutate((C_word*)lf[133]+1 /* (set! chicken.process.signal#set-signal-handler! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3844,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3859,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7774,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:635: chicken.base#getter-with-setter */ t15=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=t13; av2[2]=t14; av2[3]=*((C_word*)lf[133]+1); av2[4]=lf[481]; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} /* chicken.posix#check-time-vector in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_3627(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_3627,3,t1,t2,t3);} t4=C_i_check_vector_2(t3,t2); t5=C_block_size(t3); if(C_truep(C_fixnum_lessp(t5,C_fix(10)))){ /* posix-common.scm:579: ##sys#error */ t6=*((C_word*)lf[95]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=lf[256]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* chicken.time.posix#seconds->local-time in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_3646,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3650,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:582: chicken.time#current-seconds */ t4=*((C_word*)lf[212]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_car(t2); f_3650(2,av2);}}} /* k3648 in chicken.time.posix#seconds->local-time in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3650,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3653,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:583: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[211]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[211]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[257]; tp(4,av2);}} /* k3651 in k3648 in chicken.time.posix#seconds->local-time in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3653,2,av);} /* posix-common.scm:584: decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(lf[254]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=lf[254]; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; tp(4,av2);}} /* chicken.time.posix#seconds->utc-time in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_3667,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3671,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:587: chicken.time#current-seconds */ t4=*((C_word*)lf[212]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_car(t2); f_3671(2,av2);}}} /* k3669 in chicken.time.posix#seconds->utc-time in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3671,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3674,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:588: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[211]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[211]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[258]; tp(4,av2);}} /* k3672 in k3669 in chicken.time.posix#seconds->utc-time in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3674,2,av);} /* posix-common.scm:589: decode-seconds */ {C_proc tp=(C_proc)C_fast_retrieve_proc(lf[254]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=lf[254]; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; tp(4,av2);}} /* chicken.time.posix#seconds->string in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_3699,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3703,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t2))){ /* posix-common.scm:593: chicken.time#current-seconds */ t4=*((C_word*)lf[212]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_car(t2); f_3703(2,av2);}}} /* k3701 in chicken.time.posix#seconds->string in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3703,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3706,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:594: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[211]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[211]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[260]; tp(4,av2);}} /* k3704 in k3701 in chicken.time.posix#seconds->string in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3706,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3709,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_bytevector(&a,1,C_fix(3)); t4=C_fix((C_word)sizeof(int) * CHAR_BIT); t5=C_i_foreign_ranged_integer_argumentp(((C_word*)t0)[3],t4); t6=stub882(t3,t5); /* posix-common.scm:592: ##sys#peek-c-string */ t7=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t2; av2[2]=t6; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k3707 in k3704 in k3701 in chicken.time.posix#seconds->string in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3709,2,av);} if(C_truep(t1)){ t2=C_block_size(t1); t3=C_fixnum_difference(t2,C_fix(1)); /* posix-common.scm:597: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[259]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[259]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); av2[4]=t3; tp(5,av2);}} else{ /* posix-common.scm:598: ##sys#error */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[260]; av2[3]=lf[261]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* chicken.time.posix#local-time->seconds in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3737,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3741,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:603: check-time-vector */ f_3627(t3,lf[262],t2);} /* k3739 in chicken.time.posix#local-time->seconds in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3741,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3745,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:604: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[264]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[264]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* k3743 in k3739 in chicken.time.posix#local-time->seconds in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_3745,2,av);} a=C_alloc(7); t2=C_a_mktime(&a,2,((C_word*)t0)[2],t1); if(C_truep(C_i_nequalp(C_fix(-1),t2))){ /* posix-common.scm:606: ##sys#error */ t3=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[262]; av2[3]=lf[263]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.time.posix#time->string in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_3782,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3789,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:614: check-time-vector */ f_3627(t7,lf[265],t2);} /* k3787 in chicken.time.posix#time->string in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3789,2,av);} a=C_alloc(9); if(C_truep(((C_word*)t0)[2])){ t2=C_i_check_string_2(((C_word*)t0)[2],lf[265]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3798,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3808,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:618: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=lf[265]; tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3815,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3836,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:620: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[264]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[264]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_make_character(0); tp(4,av2);}}} /* k3796 in k3787 in chicken.time.posix#time->string in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3798,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* posix-common.scm:619: ##sys#error */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[265]; av2[3]=lf[266]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k3806 in k3787 in chicken.time.posix#time->string in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3808,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3812,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:618: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[264]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[264]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* k3810 in k3806 in k3787 in chicken.time.posix#time->string in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3812,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_a_i_bytevector(&a,1,C_fix(3)); if(C_truep(t1)){ t4=C_i_foreign_block_argumentp(t1); t5=stub919(t3,t2,((C_word*)t0)[3],t4); /* posix-common.scm:611: ##sys#peek-c-string */ t6=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=t5; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=stub919(t3,t2,((C_word*)t0)[3],C_SCHEME_FALSE); /* posix-common.scm:611: ##sys#peek-c-string */ t5=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=t4; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k3813 in k3787 in chicken.time.posix#time->string in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3815,2,av);} if(C_truep(t1)){ t2=C_block_size(t1); t3=C_fixnum_difference(t2,C_fix(1)); /* posix-common.scm:622: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[259]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[259]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(0); av2[4]=t3; tp(5,av2);}} else{ /* posix-common.scm:623: ##sys#error */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[265]; av2[3]=lf[267]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k3834 in k3787 in chicken.time.posix#time->string in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3836,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_a_i_bytevector(&a,1,C_fix(3)); if(C_truep(t1)){ t4=C_i_foreign_block_argumentp(t1); t5=stub909(t3,t2,t4); /* posix-common.scm:610: ##sys#peek-c-string */ t6=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=t5; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t4=stub909(t3,t2,C_SCHEME_FALSE); /* posix-common.scm:610: ##sys#peek-c-string */ t5=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t4; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* chicken.process.signal#set-signal-handler! in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3844,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3848,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:630: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[201]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[269]; tp(4,av2);}} /* k3846 in chicken.process.signal#set-signal-handler! in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3848,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3]; t3=C_establish_signal_handler(((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_vector_set(*((C_word*)lf[268]+1),((C_word*)t0)[3],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_establish_signal_handler(((C_word*)t0)[3],C_SCHEME_FALSE); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_vector_set(*((C_word*)lf[268]+1),((C_word*)t0)[3],((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(170,c,8)))){ C_save_and_reclaim((void *)f_3859,2,av);} a=C_alloc(170); t2=C_mutate((C_word*)lf[135]+1 /* (set! chicken.process.signal#signal-handler ...) */,t1); t3=C_mutate((C_word*)lf[124]+1 /* (set! chicken.process#process-sleep ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3861,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[112]+1 /* (set! chicken.process#process-wait ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3867,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate(&lf[274] /* (set! chicken.posix#list->c-string-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3938,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate(&lf[276] /* (set! chicken.posix#free-c-string-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4055,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate(&lf[285] /* (set! chicken.posix#check-environment-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4089,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp)); t8=*((C_word*)lf[286]+1); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4136,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp); t10=C_mutate(&lf[287] /* (set! chicken.posix#call-with-exec-args ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4138,a[2]=t9,a[3]=t8,a[4]=((C_word)li69),tmp=(C_word)a,a+=5,tmp)); t11=C_set_block_item(lf[125] /* chicken.process#pipe/buf */,0,C_fix((C_word)PIPE_BUF)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4295,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp); t13=C_mutate((C_word*)lf[118]+1 /* (set! chicken.process#open-input-pipe ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4314,a[2]=t12,a[3]=((C_word)li71),tmp=(C_word)a,a+=4,tmp)); t14=C_mutate((C_word*)lf[119]+1 /* (set! chicken.process#open-output-pipe ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4354,a[2]=t12,a[3]=((C_word)li72),tmp=(C_word)a,a+=4,tmp)); t15=C_mutate((C_word*)lf[115]+1 /* (set! chicken.process#close-input-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4394,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[116]+1 /* (set! chicken.process#close-output-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4409,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[120]+1 /* (set! chicken.process#with-input-from-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4424,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[114]+1 /* (set! chicken.process#call-with-output-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4458,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[113]+1 /* (set! chicken.process#call-with-input-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4482,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[121]+1 /* (set! chicken.process#with-output-to-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4506,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[305]+1 /* (set! ##sys#file-nonblocking! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4540,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[306]+1 /* (set! ##sys#file-select-one ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4547,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp)); t23=C_set_block_item(lf[6] /* chicken.file.posix#fcntl/dupfd */,0,C_fix((C_word)F_DUPFD)); t24=C_set_block_item(lf[7] /* chicken.file.posix#fcntl/getfd */,0,C_fix((C_word)F_GETFD)); t25=C_set_block_item(lf[9] /* chicken.file.posix#fcntl/setfd */,0,C_fix((C_word)F_SETFD)); t26=C_set_block_item(lf[8] /* chicken.file.posix#fcntl/getfl */,0,C_fix((C_word)F_GETFL)); t27=C_set_block_item(lf[10] /* chicken.file.posix#fcntl/setfl */,0,C_fix((C_word)F_SETFL)); t28=C_set_block_item(lf[49] /* chicken.file.posix#open/nonblock */,0,C_fix((C_word)O_NONBLOCK)); t29=C_set_block_item(lf[47] /* chicken.file.posix#open/noctty */,0,C_fix((C_word)O_NOCTTY)); t30=C_set_block_item(lf[46] /* chicken.file.posix#open/fsync */,0,C_fix((C_word)O_FSYNC)); t31=C_set_block_item(lf[53] /* chicken.file.posix#open/sync */,0,C_fix((C_word)O_SYNC)); t32=C_set_block_item(lf[48] /* chicken.file.posix#open/noinherit */,0,C_fix(0)); t33=C_set_block_item(lf[126] /* chicken.process#spawn/overlay */,0,C_fix(0)); t34=C_set_block_item(lf[127] /* chicken.process#spawn/wait */,0,C_fix(0)); t35=C_set_block_item(lf[128] /* chicken.process#spawn/nowait */,0,C_fix(0)); t36=C_set_block_item(lf[129] /* chicken.process#spawn/nowaito */,0,C_fix(0)); t37=C_set_block_item(lf[130] /* chicken.process#spawn/detach */,0,C_fix(0)); t38=C_set_block_item(lf[66] /* chicken.file.posix#perm/isvtx */,0,C_fix((C_word)S_ISVTX)); t39=C_set_block_item(lf[65] /* chicken.file.posix#perm/isuid */,0,C_fix((C_word)S_ISUID)); t40=C_set_block_item(lf[64] /* chicken.file.posix#perm/isgid */,0,C_fix((C_word)S_ISGID)); t41=C_mutate((C_word*)lf[12]+1 /* (set! chicken.file.posix#file-control ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4587,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); t42=C_fix((C_word)S_IRUSR | S_IWUSR | S_IXUSR); t43=C_fix((C_word)S_IRGRP); t44=C_fix((C_word)S_IROTH); t45=C_u_fixnum_or(t43,t44); t46=C_u_fixnum_or(t42,t45); t47=C_mutate((C_word*)lf[19]+1 /* (set! chicken.file.posix#file-open ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4621,a[2]=t46,a[3]=((C_word)li94),tmp=(C_word)a,a+=4,tmp)); t48=C_mutate((C_word*)lf[11]+1 /* (set! chicken.file.posix#file-close ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4653,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate((C_word*)lf[23]+1 /* (set! chicken.file.posix#file-read ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4684,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate((C_word*)lf[28]+1 /* (set! chicken.file.posix#file-write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4724,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate((C_word*)lf[18]+1 /* (set! chicken.file.posix#file-mkstemp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4761,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate((C_word*)lf[24]+1 /* (set! chicken.file.posix#file-select ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4793,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate((C_word*)lf[117]+1 /* (set! chicken.process#create-pipe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5170,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp)); t54=C_set_block_item(lf[157] /* chicken.process.signal#signal/term */,0,C_fix((C_word)SIGTERM)); t55=C_set_block_item(lf[151] /* chicken.process.signal#signal/kill */,0,C_fix((C_word)SIGKILL)); t56=C_set_block_item(lf[149] /* chicken.process.signal#signal/int */,0,C_fix((C_word)SIGINT)); t57=C_set_block_item(lf[147] /* chicken.process.signal#signal/hup */,0,C_fix((C_word)SIGHUP)); t58=C_set_block_item(lf[146] /* chicken.process.signal#signal/fpe */,0,C_fix((C_word)SIGFPE)); t59=C_set_block_item(lf[148] /* chicken.process.signal#signal/ill */,0,C_fix((C_word)SIGILL)); t60=C_set_block_item(lf[155] /* chicken.process.signal#signal/segv */,0,C_fix((C_word)SIGSEGV)); t61=C_set_block_item(lf[140] /* chicken.process.signal#signal/abrt */,0,C_fix((C_word)SIGABRT)); t62=C_set_block_item(lf[158] /* chicken.process.signal#signal/trap */,0,C_fix((C_word)SIGTRAP)); t63=C_set_block_item(lf[154] /* chicken.process.signal#signal/quit */,0,C_fix((C_word)SIGQUIT)); t64=C_set_block_item(lf[141] /* chicken.process.signal#signal/alrm */,0,C_fix((C_word)SIGALRM)); t65=C_set_block_item(lf[163] /* chicken.process.signal#signal/vtalrm */,0,C_fix((C_word)SIGVTALRM)); t66=C_set_block_item(lf[153] /* chicken.process.signal#signal/prof */,0,C_fix((C_word)SIGPROF)); t67=C_set_block_item(lf[150] /* chicken.process.signal#signal/io */,0,C_fix((C_word)SIGIO)); t68=C_set_block_item(lf[160] /* chicken.process.signal#signal/urg */,0,C_fix((C_word)SIGURG)); t69=C_set_block_item(lf[144] /* chicken.process.signal#signal/chld */,0,C_fix((C_word)SIGCHLD)); t70=C_set_block_item(lf[145] /* chicken.process.signal#signal/cont */,0,C_fix((C_word)SIGCONT)); t71=C_set_block_item(lf[156] /* chicken.process.signal#signal/stop */,0,C_fix((C_word)SIGSTOP)); t72=C_set_block_item(lf[159] /* chicken.process.signal#signal/tstp */,0,C_fix((C_word)SIGTSTP)); t73=C_set_block_item(lf[152] /* chicken.process.signal#signal/pipe */,0,C_fix((C_word)SIGPIPE)); t74=C_set_block_item(lf[165] /* chicken.process.signal#signal/xcpu */,0,C_fix((C_word)SIGXCPU)); t75=C_set_block_item(lf[166] /* chicken.process.signal#signal/xfsz */,0,C_fix((C_word)SIGXFSZ)); t76=C_set_block_item(lf[161] /* chicken.process.signal#signal/usr1 */,0,C_fix((C_word)SIGUSR1)); t77=C_set_block_item(lf[162] /* chicken.process.signal#signal/usr2 */,0,C_fix((C_word)SIGUSR2)); t78=C_set_block_item(lf[164] /* chicken.process.signal#signal/winch */,0,C_fix((C_word)SIGWINCH)); t79=C_set_block_item(lf[143] /* chicken.process.signal#signal/bus */,0,C_fix((C_word)SIGBUS)); t80=C_set_block_item(lf[142] /* chicken.process.signal#signal/break */,0,C_fix(0)); t81=C_a_i_list(&a,26,*((C_word*)lf[157]+1),*((C_word*)lf[151]+1),*((C_word*)lf[149]+1),*((C_word*)lf[147]+1),*((C_word*)lf[146]+1),*((C_word*)lf[148]+1),*((C_word*)lf[155]+1),*((C_word*)lf[140]+1),*((C_word*)lf[158]+1),*((C_word*)lf[154]+1),*((C_word*)lf[141]+1),*((C_word*)lf[163]+1),*((C_word*)lf[153]+1),*((C_word*)lf[150]+1),*((C_word*)lf[160]+1),*((C_word*)lf[144]+1),*((C_word*)lf[145]+1),*((C_word*)lf[156]+1),*((C_word*)lf[159]+1),*((C_word*)lf[152]+1),*((C_word*)lf[165]+1),*((C_word*)lf[166]+1),*((C_word*)lf[161]+1),*((C_word*)lf[162]+1),*((C_word*)lf[164]+1),*((C_word*)lf[143]+1)); t82=C_mutate((C_word*)lf[167]+1 /* (set! chicken.process.signal#signals-list ...) */,t81); t83=C_mutate((C_word*)lf[134]+1 /* (set! chicken.process.signal#set-signal-mask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5226,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp)); t84=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5275,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t85=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7744,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:573: chicken.base#getter-with-setter */ t86=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t86; av2[1]=t84; av2[2]=t85; av2[3]=*((C_word*)lf[134]+1); av2[4]=lf[479]; ((C_proc)(void*)(*((C_word*)t86+1)))(5,av2);}} /* chicken.process#process-sleep in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3861,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3865,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:647: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[270]; tp(4,av2);}} /* k3863 in chicken.process#process-sleep in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3865,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_process_sleep(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.process#process-wait in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_3867,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=C_i_nullp(t2); t6=(C_truep(t5)?C_SCHEME_END_OF_LIST:C_i_cdr(t2)); t7=C_i_nullp(t6); t8=(C_truep(t7)?C_SCHEME_FALSE:C_i_car(t6)); t9=t8; t10=C_i_nullp(t6); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t6)); t12=(C_truep(t4)?t4:C_fix(-1)); t13=t12; t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3886,a[2]=t13,a[3]=t9,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:654: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t14; av2[2]=t13; av2[3]=lf[272]; tp(4,av2);}} /* k3884 in chicken.process#process-wait in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_3886,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3891,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3897,a[2]=((C_word*)t0)[2],a[3]=((C_word)li44),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:655: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a3890 in k3884 in chicken.process#process-wait in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3891,2,av);} /* posix-common.scm:655: process-wait-impl */ f_6991(t1,((C_word*)t0)[2],((C_word*)t0)[3]);} /* a3896 in k3884 in chicken.process#process-wait in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3897,5,av);} t5=C_eqp(t2,C_fix(-1)); if(C_truep(t5)){ /* posix-common.scm:657: posix-error */ t6=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=lf[91]; av2[3]=lf[272]; av2[4]=lf[273]; av2[5]=((C_word*)t0)[2]; f_2939(6,av2);}} else{ /* posix-common.scm:658: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; C_values(5,av2);}}} /* chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_3938(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_3938,4,t1,t2,t3,t4);} a=C_alloc(12); t5=C_i_check_list_2(t2,t4); t6=t2; t7=C_u_i_length(t6); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3946,a[2]=t1,a[3]=t7,a[4]=t4,a[5]=t3,a[6]=t2,tmp=(C_word)a,a+=7,tmp); t9=C_a_i_fixnum_plus(&a,2,t7,C_fix(1)); /* posix-common.scm:674: chicken.memory#make-pointer-vector */ t10=*((C_word*)lf[281]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t8; av2[2]=t9; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} /* k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_3946,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3949,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3954,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li53),tmp=(C_word)a,a+=8,tmp); /* posix-common.scm:676: scheme#call-with-current-continuation */ t5=*((C_word*)lf[280]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3947 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3949,2,av);} /* posix-common.scm:672: g988 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_3954,3,av);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3960,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li47),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3975,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word)li52),tmp=(C_word)a,a+=9,tmp); /* posix-common.scm:676: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[279]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a3959 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3960,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3966,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li46),tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:676: k985 */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a3965 in a3959 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3966,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3970,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:678: free-c-string-buffer */ f_4055(t2,((C_word*)t0)[3]);} /* k3968 in a3965 in a3959 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3970,2,av);} /* posix-common.scm:678: chicken.condition#signal */ t2=*((C_word*)lf[275]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a3974 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_3975,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3977,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li49),tmp=(C_word)a,a+=8,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4034,a[2]=((C_word*)t0)[7],a[3]=((C_word)li51),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4051,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* tmp12525 */ t5=t2; f_3977(t5,t4);} /* tmp12525 in a3974 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_3977(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_3977,2,t0,t1);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3981,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3983,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word)li48),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_3983(t6,t2,((C_word*)t0)[6],C_fix(0));} /* k3979 in tmp12525 in a3974 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3981,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* doloop993 in tmp12525 in a3974 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_3983(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_3983,4,t0,t1,t2,t3);} a=C_alloc(12); t4=C_i_nullp(t2); t5=(C_truep(t4)?t4:C_eqp(t3,((C_word*)t0)[2])); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_i_car(t2); t7=C_i_check_string_2(t6,((C_word*)t0)[3]); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3999,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4024,a[2]=t8,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t10=t2; t11=C_u_i_car(t10); /* posix-common.scm:687: convert */ t12=((C_word*)t0)[6];{ C_word av2[3]; av2[0]=t12; av2[1]=t9; av2[2]=t11; ((C_proc)C_fast_retrieve_proc(t12))(3,av2);}}} /* k3997 in doloop993 in tmp12525 in a3974 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_3999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_3999,2,av);} a=C_alloc(13); t2=C_a_i_bytevector(&a,1,C_fix(3)); t3=stub976(t2,t1); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4005,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t4,tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_4005(2,av2);}} else{ /* posix-common.scm:689: chicken.base#error */ t6=*((C_word*)lf[101]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=lf[278]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k4003 in k3997 in doloop993 in tmp12525 in a3974 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4005,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4008,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:690: chicken.memory#pointer-vector-set! */ t3=*((C_word*)lf[277]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4006 in k4003 in k3997 in doloop993 in tmp12525 in a3974 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4008,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t5=((C_word*)((C_word*)t0)[4])[1]; f_3983(t5,((C_word*)t0)[5],t3,t4);} /* k4022 in doloop993 in tmp12525 in a3974 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4024,2,av);} /* posix-common.scm:687: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* tmp22526 in a3974 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4034(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_4034,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4040,a[2]=t2,a[3]=((C_word)li50),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:676: k985 */ t4=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a4039 in tmp22526 in a3974 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4040,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k4049 in a3974 in a3953 in k3944 in chicken.posix#list->c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4051,2,av);} a=C_alloc(3); /* tmp22526 */ t2=((C_word*)t0)[2]; f_4034(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} /* chicken.posix#free-c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4055(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_4055,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4059,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:695: chicken.memory#pointer-vector-length */ t4=*((C_word*)lf[284]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4057 in chicken.posix#free-c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_4059,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4064,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li55),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_4064(t6,((C_word*)t0)[3],C_fix(0));} /* doloop1012 in k4057 in chicken.posix#free-c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4064(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4064,3,t0,t1,t2);} a=C_alloc(5); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4074,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:698: chicken.memory#pointer-vector-ref */ t5=*((C_word*)lf[283]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k4072 in doloop1012 in k4057 in chicken.posix#free-c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4074,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4077,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ /* posix-common.scm:699: chicken.memory#free */ t3=*((C_word*)lf[282]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t4=((C_word*)((C_word*)t0)[3])[1]; f_4064(t4,((C_word*)t0)[4],t3);}} /* k4075 in k4072 in doloop1012 in k4057 in chicken.posix#free-c-string-buffer in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4077,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_4064(t3,((C_word*)t0)[4],t2);} /* chicken.posix#check-environment-list in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4089(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_4089,3,t1,t2,t3);} a=C_alloc(8); t4=C_i_check_list_2(t2,t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4094,a[2]=t3,a[3]=((C_word)li57),tmp=(C_word)a,a+=4,tmp); t6=t2; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4113,a[2]=t5,a[3]=((C_word)li58),tmp=(C_word)a,a+=4,tmp); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=( f_4113(t7,t6) ); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* g1025 in chicken.posix#check-environment-list in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static C_word C_fcall f_4094(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check;{} t2=C_i_check_pair_2(t1,((C_word*)t0)[2]); t3=t1; t4=C_u_i_car(t3); t5=C_i_check_string_2(t4,((C_word*)t0)[2]); t6=t1; t7=C_u_i_cdr(t6); return(C_i_check_string_2(t7,((C_word*)t0)[2]));} /* for-each-loop1024 in chicken.posix#check-environment-list in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static C_word C_fcall f_4113(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=( /* posix-common.scm:704: g1025 */ f_4094(((C_word*)t0)[2],t2) ); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* nop in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4136,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4138(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_4138,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(10); t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4142,a[2]=t5,a[3]=t1,a[4]=t7,a[5]=t3,a[6]=t2,a[7]=t6,a[8]=((C_word*)t0)[2],a[9]=t4,tmp=(C_word)a,a+=10,tmp); /* posix-common.scm:715: pathname-strip-directory */ t9=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_4142,2,av);} a=C_alloc(11); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4148,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* posix-common.scm:717: list->c-string-buffer */ f_3938(t3,t2,((C_word*)t0)[9],((C_word*)t0)[6]);} /* k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_4148,2,av);} a=C_alloc(15); t2=t1; t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4151,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4156,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li68),tmp=(C_word)a,a+=10,tmp); /* posix-common.scm:720: scheme#call-with-current-continuation */ t7=*((C_word*)lf[280]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k4149 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4151,2,av);} /* posix-common.scm:715: g1060 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_4156,3,av);} a=C_alloc(17); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4162,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li62),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4183,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word)li67),tmp=(C_word)a,a+=11,tmp); /* posix-common.scm:720: chicken.condition#with-exception-handler */ t5=*((C_word*)lf[279]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a4161 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_4162,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4168,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li61),tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:720: k1057 */ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a4167 in a4161 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4168,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4172,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:722: free-c-string-buffer */ f_4055(t2,((C_word*)t0)[4]);} /* k4170 in a4167 in a4161 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4172,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4175,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ /* posix-common.scm:723: free-c-string-buffer */ f_4055(t2,((C_word*)((C_word*)t0)[4])[1]);} else{ /* posix-common.scm:724: chicken.condition#signal */ t3=*((C_word*)lf[275]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k4173 in k4170 in a4167 in a4161 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4175,2,av);} /* posix-common.scm:724: chicken.condition#signal */ t2=*((C_word*)lf[275]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a4182 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_4183,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4189,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word)li64),tmp=(C_word)a,a+=10,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4264,a[2]=((C_word*)t0)[9],a[3]=((C_word)li66),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:720: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a4188 in a4182 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_4189,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4193,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[7])){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4203,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* posix-common.scm:728: check-environment-list */ f_4089(t3,((C_word*)t0)[7],((C_word*)t0)[6]);} else{ t3=t2; f_4193(t3,C_SCHEME_UNDEFINED);}} /* k4191 in a4188 in a4182 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4193(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_4193,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4200,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posix-common.scm:734: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[190]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; tp(4,av2);}} /* k4198 in k4191 in a4188 in a4182 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4200,2,av);} /* posix-common.scm:734: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* k4201 in a4188 in a4182 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_4203,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4207,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[4]; t8=C_i_check_list_2(t7,lf[288]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4228,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4230,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li63),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_4230(t13,t9,t7);} /* k4205 in k4201 in a4188 in a4182 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4207,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_4193(t3,t2);} /* k4226 in k4201 in a4188 in a4182 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4228,2,av);} /* posix-common.scm:730: list->c-string-buffer */ f_3938(((C_word*)t0)[2],t1,((C_word*)t0)[3],((C_word*)t0)[4]);} /* map-loop1068 in k4201 in a4188 in a4182 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4230(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_4230,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4255,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_car(t4); t6=C_u_i_cdr(t4); /* posix-common.scm:731: scheme#string-append */ t7=*((C_word*)lf[104]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t3; av2[2]=t5; av2[3]=lf[289]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4253 in map-loop1068 in k4201 in a4188 in a4182 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4255,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_4230(t6,((C_word*)t0)[5],t5);} /* a4263 in a4182 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4264,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4270,a[2]=t2,a[3]=((C_word)li65),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:720: k1057 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a4269 in a4263 in a4182 in a4155 in k4146 in k4140 in chicken.posix#call-with-exec-args in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4270,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* check in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4295(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_4295,5,t1,t2,t3,t4,t5);} a=C_alloc(4); if(C_truep(C_null_pointerp(t5))){ /* posix-common.scm:746: posix-error */ t6=lf[183];{ C_word av2[6]; av2[0]=t6; av2[1]=t1; av2[2]=lf[188]; av2[3]=t2; av2[4]=lf[290]; av2[5]=t3; f_2939(6,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4308,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ /* posix-common.scm:747: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[239]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[239]+1); av2[1]=t6; av2[2]=C_fix(1); av2[3]=*((C_word*)lf[240]+1); av2[4]=lf[291]; av2[5]=lf[230]; tp(6,av2);}} else{ /* posix-common.scm:747: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[239]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[239]+1); av2[1]=t6; av2[2]=C_fix(2); av2[3]=*((C_word*)lf[240]+1); av2[4]=lf[291]; av2[5]=lf[230]; tp(6,av2);}}}} /* k4306 in check in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4308,2,av);} t2=C_set_file_ptr(t1,((C_word*)t0)[2]); t3=t1; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.process#open-input-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,3)))){ C_save_and_reclaim((void*)f_4314,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t4=C_i_check_string_2(t2,lf[292]); t5=C_i_pairp(t3); t6=(C_truep(t5)?C_slot(t3,C_fix(0)):lf[293]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4328,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=C_eqp(t6,lf[293]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4335,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:758: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[292]; tp(4,av2);}} else{ t9=C_eqp(t6,lf[294]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4345,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:759: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t10; av2[2]=t2; av2[3]=lf[292]; tp(4,av2);}} else{ /* posix-common.scm:743: ##sys#error */ t10=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=lf[295]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* k4326 in chicken.process#open-input-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4328,2,av);} /* posix-common.scm:754: check */ f_4295(((C_word*)t0)[3],lf[292],((C_word*)t0)[4],C_SCHEME_TRUE,t1);} /* k4333 in chicken.process#open-input-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_4335,2,av);} a=C_alloc(2); t2=open_text_input_pipe(&a,1,t1); /* posix-common.scm:754: check */ f_4295(((C_word*)t0)[3],lf[292],((C_word*)t0)[4],C_SCHEME_TRUE,t2);} /* k4343 in chicken.process#open-input-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_4345,2,av);} a=C_alloc(2); t2=open_binary_input_pipe(&a,1,t1); /* posix-common.scm:754: check */ f_4295(((C_word*)t0)[3],lf[292],((C_word*)t0)[4],C_SCHEME_TRUE,t2);} /* chicken.process#open-output-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,3)))){ C_save_and_reclaim((void*)f_4354,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t4=C_i_check_string_2(t2,lf[296]); t5=C_i_pairp(t3); t6=(C_truep(t5)?C_slot(t3,C_fix(0)):lf[293]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4368,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=C_eqp(t6,lf[293]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4375,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:769: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[296]; tp(4,av2);}} else{ t9=C_eqp(t6,lf[294]); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4385,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:770: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t10; av2[2]=t2; av2[3]=lf[296]; tp(4,av2);}} else{ /* posix-common.scm:743: ##sys#error */ t10=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=lf[295]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* k4366 in chicken.process#open-output-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4368,2,av);} /* posix-common.scm:765: check */ f_4295(((C_word*)t0)[3],lf[296],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} /* k4373 in chicken.process#open-output-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_4375,2,av);} a=C_alloc(2); t2=open_text_output_pipe(&a,1,t1); /* posix-common.scm:765: check */ f_4295(((C_word*)t0)[3],lf[296],((C_word*)t0)[4],C_SCHEME_FALSE,t2);} /* k4383 in chicken.process#open-output-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,5)))){ C_save_and_reclaim((void *)f_4385,2,av);} a=C_alloc(2); t2=open_binary_output_pipe(&a,1,t1); /* posix-common.scm:765: check */ f_4295(((C_word*)t0)[3],lf[296],((C_word*)t0)[4],C_SCHEME_FALSE,t2);} /* chicken.process#close-input-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_4394,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[297]); t5=close_pipe(t2); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4401,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_eqp(C_fix(-1),t5); if(C_truep(t7)){ /* posix-common.scm:777: posix-error */ t8=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t6; av2[2]=lf[188]; av2[3]=lf[297]; av2[4]=lf[298]; av2[5]=t2; f_2939(6,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k4399 in chicken.process#close-input-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4401,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.process#close-output-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_4409,3,av);} a=C_alloc(4); t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[299]); t5=close_pipe(t2); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4416,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_eqp(C_fix(-1),t5); if(C_truep(t7)){ /* posix-common.scm:784: posix-error */ t8=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t6; av2[2]=lf[188]; av2[3]=lf[299]; av2[4]=lf[300]; av2[5]=t2; f_2939(6,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k4414 in chicken.process#close-output-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4416,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.process#with-input-from-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_4424,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4428,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[118]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k4426 in chicken.process#with-input-from-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_4428,2,av);} a=C_alloc(19); t2=t1; t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4433,a[2]=t6,a[3]=t4,a[4]=((C_word)li75),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4438,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li77),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4453,a[2]=t4,a[3]=t6,a[4]=((C_word)li78),tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:790: ##sys#dynamic-wind */ t10=*((C_word*)lf[303]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=((C_word*)t0)[3]; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* a4432 in k4426 in chicken.process#with-input-from-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4433,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[301]+1)); t3=C_mutate((C_word*)lf[301]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4437 in k4426 in chicken.process#with-input-from-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4438,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4444,a[2]=((C_word*)t0)[2],a[3]=((C_word)li76),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:791: scheme#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; C_call_with_values(4,av2);}} /* a4443 in a4437 in k4426 in chicken.process#with-input-from-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4444,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4448,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:793: chicken.process#close-input-pipe */ t4=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4446 in a4443 in a4437 in k4426 in chicken.process#with-input-from-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4448,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[302]+1); av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* a4452 in k4426 in chicken.process#with-input-from-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4453,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[301]+1)); t3=C_mutate((C_word*)lf[301]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.process#call-with-output-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_4458,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4462,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[119]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k4460 in chicken.process#call-with-output-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4462,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4467,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li80),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4473,a[2]=t2,a[3]=((C_word)li81),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:799: scheme#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a4466 in k4460 in chicken.process#call-with-output-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4467,2,av);} /* posix-common.scm:800: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a4472 in k4460 in chicken.process#call-with-output-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4473,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4477,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:802: chicken.process#close-output-pipe */ t4=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4475 in a4472 in k4460 in chicken.process#call-with-output-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4477,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[302]+1); av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* chicken.process#call-with-input-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_4482,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4486,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[118]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k4484 in chicken.process#call-with-input-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_4486,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4491,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li83),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4497,a[2]=t2,a[3]=((C_word)li84),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:808: scheme#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a4490 in k4484 in chicken.process#call-with-input-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4491,2,av);} /* posix-common.scm:809: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a4496 in k4484 in chicken.process#call-with-input-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4497,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4501,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:811: chicken.process#close-input-pipe */ t4=*((C_word*)lf[115]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4499 in a4496 in k4484 in chicken.process#call-with-input-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4501,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[302]+1); av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* chicken.process#with-output-to-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_4506,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4510,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=*((C_word*)lf[119]+1); av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k4508 in chicken.process#with-output-to-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_4510,2,av);} a=C_alloc(19); t2=t1; t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4515,a[2]=t6,a[3]=t4,a[4]=((C_word)li86),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4520,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li88),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4535,a[2]=t4,a[3]=t6,a[4]=((C_word)li89),tmp=(C_word)a,a+=5,tmp); /* posix-common.scm:817: ##sys#dynamic-wind */ t10=*((C_word*)lf[303]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=((C_word*)t0)[3]; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* a4514 in k4508 in chicken.process#with-output-to-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4515,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[304]+1)); t3=C_mutate((C_word*)lf[304]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4519 in k4508 in chicken.process#with-output-to-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4520,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4526,a[2]=((C_word*)t0)[2],a[3]=((C_word)li87),tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:818: scheme#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; C_call_with_values(4,av2);}} /* a4525 in a4519 in k4508 in chicken.process#with-output-to-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_4526,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4530,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:820: chicken.process#close-output-pipe */ t4=*((C_word*)lf[116]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4528 in a4525 in a4519 in k4508 in chicken.process#with-output-to-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4530,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[302]+1); av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* a4534 in k4508 in chicken.process#with-output-to-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4535,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[304]+1)); t3=C_mutate((C_word*)lf[304]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#file-nonblocking! in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4540,3,av);} t3=C_i_foreign_fixnum_argumentp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=stub1268(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#file-select-one in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4547,3,av);} t3=C_i_foreign_fixnum_argumentp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=stub1273(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.file.posix#file-control in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_4587,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_fix(0):C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4594,a[2]=t2,a[3]=t3,a[4]=t7,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:339: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[201]+1); av2[1]=t8; av2[2]=t2; av2[3]=lf[307]; tp(4,av2);}} /* k4592 in chicken.file.posix#file-control in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4594,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4597,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:340: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[307]; tp(4,av2);}} /* k4595 in k4592 in chicken.file.posix#file-control in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4597,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_i_foreign_fixnum_argumentp(t2); t5=C_i_foreign_fixnum_argumentp(t3); t6=C_fix((C_word)sizeof(long) * CHAR_BIT); t7=C_i_foreign_ranged_integer_argumentp(((C_word*)t0)[4],t6); t8=stub1280(C_SCHEME_UNDEFINED,t4,t5,t7); t9=C_eqp(t8,C_fix(-1)); if(C_truep(t9)){ /* posixunix.scm:343: posix-error */ t10=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t10; av2[1]=((C_word*)t0)[5]; av2[2]=lf[188]; av2[3]=lf[307]; av2[4]=lf[308]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[3]; f_2939(7,av2);}} else{ t10=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t10; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* chicken.file.posix#file-open in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_4621,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+5); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4625,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t6=t4; t7=t5; f_4625(t7,C_u_i_car(t6));} else{ t6=t5; f_4625(t6,((C_word*)t0)[2]);}} /* k4623 in chicken.file.posix#file-open in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4625(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_4625,2,t0,t1);} a=C_alloc(6); t2=t1; t3=C_i_check_string_2(((C_word*)t0)[2],lf[309]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4631,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:351: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[201]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[309]; tp(4,av2);}} /* k4629 in k4623 in chicken.file.posix#file-open in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4631,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4634,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:352: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[309]; tp(4,av2);}} /* k4632 in k4629 in k4623 in chicken.file.posix#file-open in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4634,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4638,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:353: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[309]; tp(4,av2);}} /* k4636 in k4632 in k4629 in k4623 in chicken.file.posix#file-open in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_4638,2,av);} a=C_alloc(4); t2=C_open(t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4641,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_eqp(C_fix(-1),t2); if(C_truep(t4)){ /* posixunix.scm:355: posix-error */ t5=lf[183];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t5; av2[1]=t3; av2[2]=lf[188]; av2[3]=lf[309]; av2[4]=lf[310]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[2]; av2[7]=((C_word*)t0)[3]; f_2939(8,av2);}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k4639 in k4636 in k4632 in k4629 in k4623 in chicken.file.posix#file-open in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4641,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#file-close in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4653,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4657,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:360: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[312]; tp(4,av2);}} /* k4655 in chicken.file.posix#file-close in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_4657,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4662,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li95),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[3]; f_4662(2,av2);}} /* loop in k4655 in chicken.file.posix#file-close in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_4662,2,av);} t2=C_close(((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t3=C_eqp(C_fix((C_word)errno),C_fix((C_word)EINTR)); if(C_truep(t3)){ /* posixunix.scm:364: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[311]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[311]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[3])[1]; tp(3,av2);}} else{ /* posixunix.scm:366: posix-error */ t4=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=lf[188]; av2[3]=lf[312]; av2[4]=lf[313]; av2[5]=((C_word*)t0)[2]; f_2939(6,av2);}}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* chicken.file.posix#file-read in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_4684,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4688,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:370: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[201]+1); av2[1]=t5; av2[2]=t2; av2[3]=lf[314]; tp(4,av2);}} /* k4686 in chicken.file.posix#file-read in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4688,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4691,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:371: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[314]; tp(4,av2);}} /* k4689 in k4686 in chicken.file.posix#file-read in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4691,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4694,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_car(t3); f_4694(2,av2);}} else{ /* posixunix.scm:372: scheme#make-string */ t3=*((C_word*)lf[317]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k4692 in k4689 in k4686 in chicken.file.posix#file-read in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_4694,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4697,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_blockp(t2))){ if(C_truep(C_byteblockp(t2))){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_4697(2,av2);}} else{ /* posixunix.scm:374: ##sys#signal-hook */ t4=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[191]; av2[3]=lf[314]; av2[4]=lf[316]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} else{ /* posixunix.scm:374: ##sys#signal-hook */ t4=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[191]; av2[3]=lf[314]; av2[4]=lf[316]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} /* k4695 in k4692 in k4689 in k4686 in chicken.file.posix#file-read in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,6)))){ C_save_and_reclaim((void *)f_4697,2,av);} a=C_alloc(11); t2=C_read(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4700,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_eqp(C_fix(-1),t2); if(C_truep(t4)){ /* posixunix.scm:377: posix-error */ t5=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=lf[188]; av2[3]=lf[314]; av2[4]=lf[315]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[4]; f_2939(7,av2);}} else{ t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k4698 in k4695 in k4692 in k4689 in k4686 in chicken.file.posix#file-read in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_4700,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#file-write in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_4724,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4728,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:382: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[201]+1); av2[1]=t5; av2[2]=t2; av2[3]=lf[318]; tp(4,av2);}} /* k4726 in chicken.file.posix#file-write in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_4728,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4731,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_blockp(((C_word*)t0)[3]))){ if(C_truep(C_byteblockp(((C_word*)t0)[3]))){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4731(2,av2);}} else{ /* posixunix.scm:384: ##sys#signal-hook */ t3=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[191]; av2[3]=lf[318]; av2[4]=lf[320]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} else{ /* posixunix.scm:384: ##sys#signal-hook */ t3=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[191]; av2[3]=lf[318]; av2[4]=lf[320]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k4729 in k4726 in chicken.file.posix#file-write in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4731,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4734,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=t2; f_4734(t4,C_u_i_car(t3));} else{ t3=t2; f_4734(t3,C_block_size(((C_word*)t0)[3]));}} /* k4732 in k4729 in k4726 in chicken.file.posix#file-write in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4734(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_4734,2,t0,t1);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4737,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:386: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[318]; tp(4,av2);}} /* k4735 in k4732 in k4729 in k4726 in chicken.file.posix#file-write in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_4737,2,av);} a=C_alloc(4); t2=C_write(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4740,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_eqp(C_fix(-1),t2); if(C_truep(t4)){ /* posixunix.scm:389: posix-error */ t5=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=lf[188]; av2[3]=lf[318]; av2[4]=lf[319]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[4]; f_2939(7,av2);}} else{ t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k4738 in k4735 in k4732 in k4729 in k4726 in chicken.file.posix#file-write in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4740,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#file-mkstemp in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_4761,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[321]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4768,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:395: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[321]; tp(4,av2);}} /* k4766 in chicken.file.posix#file-mkstemp in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_4768,2,av);} a=C_alloc(6); t2=t1; t3=C_mkstemp(t2); t4=C_block_size(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4774,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t7=C_eqp(C_fix(-1),t3); if(C_truep(t7)){ /* posixunix.scm:399: posix-error */ t8=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t6; av2[2]=lf[188]; av2[3]=lf[321]; av2[4]=lf[322]; av2[5]=((C_word*)t0)[3]; f_2939(6,av2);}} else{ t8=t6;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_4774(2,av2);}}} /* k4772 in k4766 in chicken.file.posix#file-mkstemp in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_4774,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4781,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_fixnum_difference(((C_word*)t0)[4],C_fix(1)); /* posixunix.scm:400: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[259]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[259]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(0); av2[4]=t3; tp(5,av2);}} /* k4779 in k4772 in k4766 in chicken.file.posix#file-mkstemp in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4781,2,av);} /* posixunix.scm:400: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_values(4,av2);}} /* chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_4793,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+5); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4797,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t6=t4; t7=t5; f_4797(t7,C_u_i_car(t6));} else{ t6=t5; f_4797(t6,C_SCHEME_FALSE);}} /* k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4797(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_4797,2,t0,t1);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4800,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_not(((C_word*)t0)[3]))){ t4=t3; f_4800(t4,C_SCHEME_END_OF_LIST);} else{ if(C_truep(C_fixnump(((C_word*)t0)[3]))){ t4=t3; f_4800(t4,C_a_i_list1(&a,1,((C_word*)t0)[3]));} else{ t4=C_i_check_list_2(((C_word*)t0)[3],lf[323]); t5=((C_word*)t0)[3]; t6=t3; f_4800(t6,t5);}}} /* k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4800(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_4800,2,t0,t1);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4803,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_not(((C_word*)t0)[4]))){ t4=t3; f_4803(t4,C_SCHEME_END_OF_LIST);} else{ if(C_truep(C_fixnump(((C_word*)t0)[4]))){ t4=t3; f_4803(t4,C_a_i_list1(&a,1,((C_word*)t0)[4]));} else{ t4=C_i_check_list_2(((C_word*)t0)[4],lf[323]); t5=((C_word*)t0)[4]; t6=t3; f_4803(t6,t5);}}} /* k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4803(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_4803,2,t0,t1);} a=C_alloc(10); t2=t1; t3=C_u_i_length(((C_word*)t0)[2]); t4=C_u_i_length(t2); t5=C_fixnum_plus(t3,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4811,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=t6,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); t8=C_fix((C_word)sizeof(struct pollfd)); t9=C_fixnum_times(t6,t8); /* posixunix.scm:419: ##sys#make-blob */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[327]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[327]+1); av2[1]=t7; av2[2]=t9; tp(3,av2);}} /* k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_4811,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4814,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)t0)[9])){ /* posixunix.scm:421: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[211]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[211]+1); av2[1]=t3; av2[2]=((C_word*)t0)[9]; tp(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_4814(2,av2);}}} /* k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_4814,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5086,a[2]=((C_word*)t0)[2],a[3]=((C_word)li100),tmp=(C_word)a,a+=4,tmp); t3=( f_5086(t2,C_fix(0),((C_word*)t0)[3]) ); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5044,a[2]=((C_word*)t0)[2],a[3]=((C_word)li101),tmp=(C_word)a,a+=4,tmp); t5=( f_5044(t4,((C_word*)t0)[4],((C_word*)t0)[5]) ); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5035,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[10])){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5042,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:435: scheme#max */ t8=*((C_word*)lf[326]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=C_fix(0); av2[3]=((C_word*)t0)[10]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t7=t6; f_5035(t7,C_fix(-1));}} /* k4873 in k5033 in k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_4875,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4878,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4915,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=((C_word)li102),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_4915(t7,t3,((C_word*)t0)[6],C_SCHEME_END_OF_LIST,((C_word*)t0)[7]);} /* k4876 in k4873 in k5033 in k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_4878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_4878,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4885,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[4])){ if(C_truep(C_fixnump(((C_word*)t0)[4]))){ t4=C_i_memq(((C_word*)t0)[4],((C_word*)t0)[5]); t5=t3; f_4885(t5,(C_truep(t4)?((C_word*)t0)[4]:C_SCHEME_FALSE));} else{ t4=t3; f_4885(t4,((C_word*)t0)[5]);}} else{ t4=t3; f_4885(t4,C_SCHEME_FALSE);}} /* k4883 in k4876 in k4873 in k5033 in k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_fcall f_4885(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_4885,2,t0,t1);} if(C_truep(((C_word*)t0)[2])){ if(C_truep(C_fixnump(((C_word*)t0)[2]))){ if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)t0)[3]))){ t2=((C_word*)t0)[2]; /* posixunix.scm:456: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=t2; C_values(4,av2);}} else{ /* posixunix.scm:456: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} else{ /* posixunix.scm:456: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; C_values(4,av2);}}} else{ /* posixunix.scm:456: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} /* lp in k4873 in k5033 in k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4915(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_4915,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_nullp(t4))){ /* posixunix.scm:449: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[325]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[325]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4944,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t6=t2; t7=C_i_foreign_fixnum_argumentp(t6); if(C_truep(((C_word*)t0)[3])){ t8=C_i_foreign_block_argumentp(((C_word*)t0)[3]); t9=t5; f_4944(t9,stub1452(C_SCHEME_UNDEFINED,t7,t8));} else{ t8=t5; f_4944(t8,stub1452(C_SCHEME_UNDEFINED,t7,C_SCHEME_FALSE));}}} /* k4942 in lp in k4873 in k5033 in k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_fcall f_4944(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_4944,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_i_car(((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[4]); t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); /* posixunix.scm:454: lp */ t7=((C_word*)((C_word*)t0)[5])[1]; f_4915(t7,((C_word*)t0)[6],t2,t4,t6);} else{ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_i_cdr(((C_word*)t0)[3]); /* posixunix.scm:455: lp */ t4=((C_word*)((C_word*)t0)[5])[1]; f_4915(t4,((C_word*)t0)[6],t2,((C_word*)t0)[4],t3);}} /* lp in k5033 in k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_4974(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_4974,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_nullp(t4))){ /* posixunix.scm:441: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[325]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[325]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5003,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t6=t2; t7=C_i_foreign_fixnum_argumentp(t6); if(C_truep(((C_word*)t0)[3])){ t8=C_i_foreign_block_argumentp(((C_word*)t0)[3]); t9=t5; f_5003(t9,stub1433(C_SCHEME_UNDEFINED,t7,t8));} else{ t8=t5; f_5003(t8,stub1433(C_SCHEME_UNDEFINED,t7,C_SCHEME_FALSE));}}} /* k5001 in lp in k5033 in k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_5003(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_5003,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_i_car(((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[4]); t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); /* posixunix.scm:446: lp */ t7=((C_word*)((C_word*)t0)[5])[1]; f_4974(t7,((C_word*)t0)[6],t2,t4,t6);} else{ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_i_cdr(((C_word*)t0)[3]); /* posixunix.scm:447: lp */ t4=((C_word*)((C_word*)t0)[5])[1]; f_4974(t4,((C_word*)t0)[6],t2,((C_word*)t0)[4],t3);}} /* k5033 in k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_5035(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,6)))){ C_save_and_reclaim_args((void *)trf_5035,2,t0,t1);} a=C_alloc(15); t2=(C_truep(((C_word*)t0)[2])?C_i_foreign_block_argumentp(((C_word*)t0)[2]):C_SCHEME_FALSE); t3=C_i_foreign_fixnum_argumentp(((C_word*)t0)[3]); t4=C_i_foreign_fixnum_argumentp(t1); t5=stub1408(C_SCHEME_UNDEFINED,t2,t3,t4); if(C_truep(C_fixnum_lessp(t5,C_fix(0)))){ /* posixunix.scm:437: posix-error */ t6=lf[183];{ C_word av2[7]; av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=lf[188]; av2[3]=lf[323]; av2[4]=lf[324]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; f_2939(7,av2);}} else{ t6=C_eqp(t5,C_fix(0)); if(C_truep(t6)){ t7=C_i_pairp(((C_word*)t0)[5]); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_SCHEME_FALSE); if(C_truep(C_i_pairp(((C_word*)t0)[6]))){ /* posixunix.scm:438: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t8; av2[3]=C_SCHEME_END_OF_LIST; C_values(4,av2);}} else{ /* posixunix.scm:438: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t8; av2[3]=C_SCHEME_FALSE; C_values(4,av2);}}} else{ t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4875,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4974,a[2]=t9,a[3]=((C_word*)t0)[2],a[4]=((C_word)li103),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_4974(t11,t7,C_fix(0),C_SCHEME_END_OF_LIST,((C_word*)t0)[9]);}}} /* k5040 in k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ C_save_and_reclaim((void *)f_5042,2,av);} a=C_alloc(33); t2=((C_word*)t0)[2]; f_5035(t2,C_s_a_i_times(&a,2,t1,C_fix(1000)));} /* doloop1367 in k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static C_word C_fcall f_5044(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; return(t3);} else{ t3=C_i_car(t2); t4=t1; t5=C_i_foreign_fixnum_argumentp(t4); t6=C_i_foreign_fixnum_argumentp(t3); if(C_truep(((C_word*)t0)[2])){ t7=C_i_foreign_block_argumentp(((C_word*)t0)[2]); t8=stub1393(C_SCHEME_UNDEFINED,t5,t6,t7); t9=C_fixnum_plus(t1,C_fix(1)); t10=t2; t11=C_u_i_cdr(t10); t13=t9; t14=t11; t1=t13; t2=t14; goto loop;} else{ t7=stub1393(C_SCHEME_UNDEFINED,t5,t6,C_SCHEME_FALSE); t8=C_fixnum_plus(t1,C_fix(1)); t9=t2; t10=C_u_i_cdr(t9); t13=t8; t14=t10; t1=t13; t2=t14; goto loop;}}} /* doloop1366 in k4812 in k4809 in k4801 in k4798 in k4795 in chicken.file.posix#file-select in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static C_word C_fcall f_5086(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; return(t3);} else{ t3=C_i_car(t2); t4=t1; t5=C_i_foreign_fixnum_argumentp(t4); t6=C_i_foreign_fixnum_argumentp(t3); if(C_truep(((C_word*)t0)[2])){ t7=C_i_foreign_block_argumentp(((C_word*)t0)[2]); t8=stub1376(C_SCHEME_UNDEFINED,t5,t6,t7); t9=C_fixnum_plus(t1,C_fix(1)); t10=t2; t11=C_u_i_cdr(t10); t13=t9; t14=t11; t1=t13; t2=t14; goto loop;} else{ t7=stub1376(C_SCHEME_UNDEFINED,t5,t6,C_SCHEME_FALSE); t8=C_fixnum_plus(t1,C_fix(1)); t9=t2; t10=C_u_i_cdr(t9); t13=t8; t14=t10; t1=t13; t2=t14; goto loop;}}} /* chicken.process#create-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,4)))){ C_save_and_reclaim((void*)f_5170,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5177,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_pipe(C_SCHEME_FALSE); if(C_truep(C_fixnum_lessp(t6,C_fix(0)))){ /* posixunix.scm:469: posix-error */ t7=lf[183];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=lf[188]; av2[3]=lf[328]; av2[4]=lf[329]; f_2939(5,av2);}} else{ /* posixunix.scm:470: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=C_fix((C_word)C_pipefds[ 0 ]); av2[3]=C_fix((C_word)C_pipefds[ 1 ]); C_values(4,av2);}}} /* k5175 in chicken.process#create-pipe in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5177,2,av);} /* posixunix.scm:470: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix((C_word)C_pipefds[ 0 ]); av2[3]=C_fix((C_word)C_pipefds[ 1 ]); C_values(4,av2);}} /* chicken.process.signal#set-signal-mask! in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5226,3,av);} a=C_alloc(9); t3=C_i_check_list_2(t2,lf[330]); t4=C_sigemptyset(C_fix(0)); t5=t2; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5238,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5250,a[2]=t8,a[3]=((C_word)li106),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_5250(t10,t6,t5);} /* k5233 in for-each-loop1480 in chicken.process.signal#set-signal-mask! in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5235,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_sigaddset(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5236 in chicken.process.signal#set-signal-mask! in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5238,2,av);} t2=C_sigprocmask_set(C_fix(0)); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posixunix.scm:570: posix-error */ t3=lf[183];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[91]; av2[3]=lf[330]; av2[4]=lf[331]; f_2939(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* for-each-loop1480 in chicken.process.signal#set-signal-mask! in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_5250(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_5250,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5260,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5235,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:566: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[201]+1); av2[1]=t7; av2[2]=t6; av2[3]=lf[330]; tp(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5258 in for-each-loop1480 in chicken.process.signal#set-signal-mask! in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5260,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_5250(t3,((C_word*)t0)[4],t2);} /* k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_5275,2,av);} a=C_alloc(18); t2=C_mutate((C_word*)lf[136]+1 /* (set! chicken.process.signal#signal-mask ...) */,t1); t3=C_mutate((C_word*)lf[138]+1 /* (set! chicken.process.signal#signal-masked? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5277,a[2]=((C_word)li108),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[137]+1 /* (set! chicken.process.signal#signal-mask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5283,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[139]+1 /* (set! chicken.process.signal#signal-unmask! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5299,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5317,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7725,a[2]=((C_word)li211),tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7728,a[2]=((C_word)li212),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:611: chicken.base#getter-with-setter */ t9=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t6; av2[2]=t7; av2[3]=t8; av2[4]=lf[478]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* chicken.process.signal#signal-masked? in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5277,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5281,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:587: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[332]; tp(4,av2);}} /* k5279 in chicken.process.signal#signal-masked? in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5281,2,av);} t2=C_sigprocmask_get(C_fix(0)); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_sigismember(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.process.signal#signal-mask! in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5283,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5287,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:593: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[333]; tp(4,av2);}} /* k5285 in chicken.process.signal#signal-mask! in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5287,2,av);} t2=C_sigemptyset(C_fix(0)); t3=C_sigaddset(((C_word*)t0)[2]); t4=C_sigprocmask_block(C_fix(0)); if(C_truep(C_fixnum_lessp(t4,C_fix(0)))){ /* posixunix.scm:597: posix-error */ t5=lf[183];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[91]; av2[3]=lf[333]; av2[4]=lf[334]; f_2939(5,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* chicken.process.signal#signal-unmask! in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5299,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5303,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:601: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[335]; tp(4,av2);}} /* k5301 in chicken.process.signal#signal-unmask! in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5303,2,av);} t2=C_sigemptyset(C_fix(0)); t3=C_sigaddset(((C_word*)t0)[2]); t4=C_sigprocmask_unblock(C_fix(0)); if(C_truep(C_fixnum_lessp(t4,C_fix(0)))){ /* posixunix.scm:605: posix-error */ t5=lf[183];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[91]; av2[3]=lf[335]; av2[4]=lf[336]; f_2939(5,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5317,2,av);} a=C_alloc(9); t2=C_mutate((C_word*)lf[174]+1 /* (set! chicken.process-context.posix#current-user-id ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5321,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7706,a[2]=((C_word)li209),tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7709,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:620: chicken.base#getter-with-setter */ t6=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=lf[475]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5321,2,av);} a=C_alloc(9); t2=C_mutate((C_word*)lf[172]+1 /* (set! chicken.process-context.posix#current-effective-user-id ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5325,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7687,a[2]=((C_word)li207),tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7690,a[2]=((C_word)li208),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:630: chicken.base#getter-with-setter */ t6=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=lf[472]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5325,2,av);} a=C_alloc(9); t2=C_mutate((C_word*)lf[173]+1 /* (set! chicken.process-context.posix#current-group-id ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5329,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7668,a[2]=((C_word)li205),tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7671,a[2]=((C_word)li206),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:639: chicken.base#getter-with-setter */ t6=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=t5; av2[4]=lf[469]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,6)))){ C_save_and_reclaim((void *)f_5329,2,av);} a=C_alloc(24); t2=C_mutate((C_word*)lf[171]+1 /* (set! chicken.process-context.posix#current-effective-group-id ...) */,t1); t3=C_mutate((C_word*)lf[181]+1 /* (set! chicken.process-context.posix#user-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5331,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[177]+1 /* (set! chicken.process-context.posix#current-user-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5385,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[178]+1 /* (set! chicken.process-context.posix#current-effective-user-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5399,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate(&lf[216] /* (set! chicken.posix#chown ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5413,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[179]+1 /* (set! chicken.process-context.posix#create-session ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5460,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp)); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5477,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7628,a[2]=((C_word)li203),tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7646,a[2]=((C_word)li204),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:710: chicken.base#getter-with-setter */ t11=*((C_word*)lf[465]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; av2[4]=lf[466]; ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} /* chicken.process-context.posix#user-information in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_5331,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5338,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnump(t2))){ t8=t7; f_5338(t8,C_getpwuid(t2));} else{ t8=C_i_check_string_2(t2,lf[340]); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5377,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:662: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[340]; tp(4,av2);}}} /* k5336 in chicken.process-context.posix#user-information in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_5338(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_5338,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(C_truep(((C_word*)t0)[2])?*((C_word*)lf[337]+1):*((C_word*)lf[338]+1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5351,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* ##sys#peek-nonnull-c-string */ t5=*((C_word*)lf[339]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_user->pw_name); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5349 in k5336 in chicken.process-context.posix#user-information in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_5351,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* ##sys#peek-nonnull-c-string */ t4=*((C_word*)lf[339]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_user->pw_passwd); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5353 in k5349 in k5336 in chicken.process-context.posix#user-information in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5355,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5359,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* ##sys#peek-nonnull-c-string */ t4=*((C_word*)lf[339]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_PW_GECOS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5357 in k5353 in k5349 in k5336 in chicken.process-context.posix#user-information in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_5359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_5359,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5363,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_user->pw_dir); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5361 in k5357 in k5353 in k5349 in k5336 in chicken.process-context.posix#user-information in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_5363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_5363,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5367,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_user->pw_shell); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k5365 in k5361 in k5357 in k5353 in k5349 in k5336 in chicken.process-context.posix#user-information in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_5367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_5367,2,av);} /* posixunix.scm:663: g1548 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; av2[4]=C_fix((C_word)C_user->pw_uid); av2[5]=C_fix((C_word)C_user->pw_gid); av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; av2[8]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k5375 in chicken.process-context.posix#user-information in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5377,2,av);} t2=((C_word*)t0)[2]; f_5338(t2,C_getpwnam(t1));} /* chicken.process-context.posix#current-user-name in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5385,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5393,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5397,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:676: chicken.process-context.posix#current-user-id */ t4=*((C_word*)lf[174]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5391 in chicken.process-context.posix#current-user-name in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5393,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5395 in chicken.process-context.posix#current-user-name in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5397,2,av);} /* posixunix.scm:675: chicken.process-context.posix#user-information */ t2=*((C_word*)lf[181]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.process-context.posix#current-effective-user-name in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5399,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5407,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5411,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:681: chicken.process-context.posix#current-effective-user-id */ t4=*((C_word*)lf[172]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5405 in chicken.process-context.posix#current-effective-user-name in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5407,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_car(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5409 in chicken.process-context.posix#current-effective-user-name in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5411,2,av);} /* posixunix.scm:680: chicken.process-context.posix#user-information */ t2=*((C_word*)lf[181]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.posix#chown in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_5413(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_5413,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5417,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* posixunix.scm:685: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[201]+1); av2[1]=t6; av2[2]=t4; av2[3]=t2; tp(4,av2);}} /* k5415 in chicken.posix#chown in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5417,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5420,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* posixunix.scm:686: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k5418 in k5415 in chicken.posix#chown in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_5420,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5423,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5435,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* posixunix.scm:688: chicken.base#port? */ t4=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5421 in k5418 in k5415 in chicken.posix#chown in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_5423,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ /* posixunix.scm:699: posix-error */ t2=lf[183];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[188]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[341]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; f_2939(8,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5433 in k5418 in k5415 in chicken.posix#chown in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5435,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5439,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:689: chicken.file.posix#port->fileno */ t3=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ if(C_truep(C_fixnump(((C_word*)t0)[5]))){ t2=C_fchown(((C_word*)t0)[5],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_5423(2,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5455,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:694: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; tp(4,av2);}} else{ /* posixunix.scm:695: ##sys#signal-hook */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[191]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[342]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}}} /* k5437 in k5433 in k5418 in k5415 in chicken.posix#chown in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_5439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5439,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fchown(t1,((C_word*)t0)[3],((C_word*)t0)[4]); f_5423(2,av2);}} /* k5453 in k5433 in k5418 in k5415 in chicken.posix#chown in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_5455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5455,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_chown(t1,((C_word*)t0)[3],((C_word*)t0)[4]); f_5423(2,av2);}} /* chicken.process-context.posix#create-session in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5460,2,av);} a=C_alloc(7); t2=C_setsid(C_SCHEME_FALSE); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5464,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5470,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:705: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[93]+1); av2[1]=t4; tp(2,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5462 in chicken.process-context.posix#create-session in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5464,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5468 in chicken.process-context.posix#create-session in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5470,2,av);} /* posixunix.scm:706: ##sys#error */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[343]; av2[3]=lf[344]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5477,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[180]+1 /* (set! chicken.process-context.posix#process-group-id ...) */,t1); t3=C_mutate((C_word*)lf[3]+1 /* (set! chicken.file.posix#create-symbolic-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5479,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5508,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=C_fixnum_plus(C_fix((C_word)FILENAME_MAX),C_fix(1)); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[264]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[264]+1); av2[1]=t4; av2[2]=t5; av2[3]=C_make_character(32); tp(4,av2);}} /* chicken.file.posix#create-symbolic-link in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5479,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[345]); t5=C_i_check_string_2(t3,lf[345]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5500,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:735: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[190]+1); av2[1]=t6; av2[2]=t2; av2[3]=lf[345]; tp(4,av2);}} /* k5498 in chicken.file.posix#create-symbolic-link in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5500,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5504,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:736: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=lf[345]; tp(4,av2);}} /* k5502 in k5498 in chicken.file.posix#create-symbolic-link in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5504,2,av);} t2=C_symlink(((C_word*)t0)[2],t1); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posixunix.scm:738: posix-error */ t3=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[188]; av2[3]=lf[346]; av2[4]=lf[347]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; f_2939(7,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word t87; C_word t88; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(149,c,9)))){ C_save_and_reclaim((void *)f_5508,2,av);} a=C_alloc(149); t2=t1; t3=C_mutate((C_word*)lf[348]+1 /* (set! ##sys#read-symbolic-link ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5509,a[2]=t2,a[3]=((C_word)li117),tmp=(C_word)a,a+=4,tmp)); t4=C_mutate((C_word*)lf[4]+1 /* (set! chicken.file.posix#read-symbolic-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5528,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[15]+1 /* (set! chicken.file.posix#file-link ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5643,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[362]+1 /* (set! ##sys#custom-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5665,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[376]+1 /* (set! ##sys#custom-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6178,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[26]+1 /* (set! chicken.file.posix#file-truncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6433,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp)); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6478,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp)); t14=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6546,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[16]+1 /* (set! chicken.file.posix#file-lock ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6564,a[2]=t12,a[3]=t10,a[4]=((C_word)li151),tmp=(C_word)a,a+=5,tmp)); t16=C_mutate((C_word*)lf[17]+1 /* (set! chicken.file.posix#file-lock/blocking ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6595,a[2]=t12,a[3]=t10,a[4]=((C_word)li153),tmp=(C_word)a,a+=5,tmp)); t17=C_mutate((C_word*)lf[25]+1 /* (set! chicken.file.posix#file-test-lock ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6626,a[2]=t12,a[3]=t10,a[4]=((C_word)li154),tmp=(C_word)a,a+=5,tmp)); t18=C_mutate((C_word*)lf[27]+1 /* (set! chicken.file.posix#file-unlock ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6653,a[2]=((C_word)li156),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[2]+1 /* (set! chicken.file.posix#create-fifo ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6696,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp)); t20=C_fix((C_word)sizeof(struct tm)); t21=C_mutate((C_word*)lf[84]+1 /* (set! chicken.time.posix#string->time ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6742,a[2]=t20,a[3]=((C_word)li158),tmp=(C_word)a,a+=4,tmp)); t22=C_fix((C_word)sizeof(struct tm)); t23=C_mutate((C_word*)lf[80]+1 /* (set! chicken.time.posix#utc-time->seconds ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6779,a[2]=t22,a[3]=((C_word)li159),tmp=(C_word)a,a+=4,tmp)); t24=C_mutate((C_word*)lf[86]+1 /* (set! chicken.time.posix#local-timezone-abbreviation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6798,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate((C_word*)lf[132]+1 /* (set! chicken.process.signal#set-alarm! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6805,a[2]=((C_word)li161),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate((C_word*)lf[108]+1 /* (set! chicken.process#process-fork ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6814,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate((C_word*)lf[107]+1 /* (set! chicken.process#process-execute ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6913,a[2]=((C_word)li168),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate(&lf[271] /* (set! chicken.posix#process-wait-impl ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6991,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate((C_word*)lf[176]+1 /* (set! chicken.process-context.posix#parent-process-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7029,a[2]=((C_word)li171),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate((C_word*)lf[110]+1 /* (set! chicken.process#process-signal ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7032,a[2]=((C_word)li172),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate(&lf[407] /* (set! chicken.posix#shell-command ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7057,a[2]=((C_word)li173),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate((C_word*)lf[109]+1 /* (set! chicken.process#process-run ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7072,a[2]=((C_word)li174),tmp=(C_word)a,a+=3,tmp)); t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7126,a[2]=((C_word)li178),tmp=(C_word)a,a+=3,tmp); t34=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7163,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp); t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7183,a[2]=((C_word)li182),tmp=(C_word)a,a+=3,tmp); t36=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7195,a[2]=((C_word)li183),tmp=(C_word)a,a+=3,tmp); t37=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7210,a[2]=((C_word)li184),tmp=(C_word)a,a+=3,tmp); t38=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7224,a[2]=t37,a[3]=t36,a[4]=t34,a[5]=((C_word)li186),tmp=(C_word)a,a+=6,tmp); t39=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7269,a[2]=t35,a[3]=((C_word)li187),tmp=(C_word)a,a+=4,tmp); t40=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7280,a[2]=t35,a[3]=((C_word)li188),tmp=(C_word)a,a+=4,tmp); t41=C_mutate(&lf[413] /* (set! chicken.posix#process-impl ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7291,a[2]=t38,a[3]=t39,a[4]=t33,a[5]=t40,a[6]=((C_word)li191),tmp=(C_word)a,a+=7,tmp)); t42=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7347,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp); t43=C_mutate((C_word*)lf[122]+1 /* (set! chicken.process#process ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7418,a[2]=t42,a[3]=((C_word)li198),tmp=(C_word)a,a+=4,tmp)); t44=C_mutate((C_word*)lf[123]+1 /* (set! chicken.process#process* ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7484,a[2]=t42,a[3]=((C_word)li199),tmp=(C_word)a,a+=4,tmp)); t45=C_mutate((C_word*)lf[170]+1 /* (set! chicken.process-context.posix#set-root-directory! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7554,a[2]=((C_word)li200),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate((C_word*)lf[111]+1 /* (set! chicken.process#process-spawn ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7573,a[2]=((C_word)li201),tmp=(C_word)a,a+=3,tmp)); t47=C_a_i_provide(&a,1,lf[419]); t48=C_mutate((C_word*)lf[420]+1 /* (set! chicken.errno#errno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7579,a[2]=((C_word)li202),tmp=(C_word)a,a+=3,tmp)); t49=C_set_block_item(lf[422] /* chicken.errno#errno/2big */,0,C_fix((C_word)E2BIG)); t50=C_set_block_item(lf[423] /* chicken.errno#errno/acces */,0,C_fix((C_word)EACCES)); t51=C_set_block_item(lf[424] /* chicken.errno#errno/again */,0,C_fix((C_word)EAGAIN)); t52=C_set_block_item(lf[425] /* chicken.errno#errno/badf */,0,C_fix((C_word)EBADF)); t53=C_set_block_item(lf[426] /* chicken.errno#errno/busy */,0,C_fix((C_word)EBUSY)); t54=C_set_block_item(lf[427] /* chicken.errno#errno/child */,0,C_fix((C_word)ECHILD)); t55=C_set_block_item(lf[428] /* chicken.errno#errno/deadlk */,0,C_fix((C_word)EDEADLK)); t56=C_set_block_item(lf[429] /* chicken.errno#errno/dom */,0,C_fix((C_word)EDOM)); t57=C_set_block_item(lf[430] /* chicken.errno#errno/exist */,0,C_fix((C_word)EEXIST)); t58=C_set_block_item(lf[431] /* chicken.errno#errno/fault */,0,C_fix((C_word)EFAULT)); t59=C_set_block_item(lf[432] /* chicken.errno#errno/fbig */,0,C_fix((C_word)EFBIG)); t60=C_set_block_item(lf[433] /* chicken.errno#errno/ilseq */,0,C_fix((C_word)EILSEQ)); t61=C_set_block_item(lf[434] /* chicken.errno#errno/intr */,0,C_fix((C_word)EINTR)); t62=C_set_block_item(lf[435] /* chicken.errno#errno/inval */,0,C_fix((C_word)EINVAL)); t63=C_set_block_item(lf[436] /* chicken.errno#errno/io */,0,C_fix((C_word)EIO)); t64=C_set_block_item(lf[437] /* chicken.errno#errno/isdir */,0,C_fix((C_word)EISDIR)); t65=C_set_block_item(lf[438] /* chicken.errno#errno/mfile */,0,C_fix((C_word)EMFILE)); t66=C_set_block_item(lf[439] /* chicken.errno#errno/mlink */,0,C_fix((C_word)EMLINK)); t67=C_set_block_item(lf[440] /* chicken.errno#errno/nametoolong */,0,C_fix((C_word)ENAMETOOLONG)); t68=C_set_block_item(lf[441] /* chicken.errno#errno/nfile */,0,C_fix((C_word)ENFILE)); t69=C_set_block_item(lf[442] /* chicken.errno#errno/nodev */,0,C_fix((C_word)ENODEV)); t70=C_set_block_item(lf[443] /* chicken.errno#errno/noent */,0,C_fix((C_word)ENOENT)); t71=C_set_block_item(lf[444] /* chicken.errno#errno/noexec */,0,C_fix((C_word)ENOEXEC)); t72=C_set_block_item(lf[445] /* chicken.errno#errno/nolck */,0,C_fix((C_word)ENOLCK)); t73=C_set_block_item(lf[446] /* chicken.errno#errno/nomem */,0,C_fix((C_word)ENOMEM)); t74=C_set_block_item(lf[447] /* chicken.errno#errno/nospc */,0,C_fix((C_word)ENOSPC)); t75=C_set_block_item(lf[448] /* chicken.errno#errno/nosys */,0,C_fix((C_word)ENOSYS)); t76=C_set_block_item(lf[449] /* chicken.errno#errno/notdir */,0,C_fix((C_word)ENOTDIR)); t77=C_set_block_item(lf[450] /* chicken.errno#errno/notempty */,0,C_fix((C_word)ENOTEMPTY)); t78=C_set_block_item(lf[451] /* chicken.errno#errno/notty */,0,C_fix((C_word)ENOTTY)); t79=C_set_block_item(lf[452] /* chicken.errno#errno/nxio */,0,C_fix((C_word)ENXIO)); t80=C_set_block_item(lf[453] /* chicken.errno#errno/perm */,0,C_fix((C_word)EPERM)); t81=C_set_block_item(lf[454] /* chicken.errno#errno/pipe */,0,C_fix((C_word)EPIPE)); t82=C_set_block_item(lf[455] /* chicken.errno#errno/range */,0,C_fix((C_word)ERANGE)); t83=C_set_block_item(lf[456] /* chicken.errno#errno/rofs */,0,C_fix((C_word)EROFS)); t84=C_set_block_item(lf[457] /* chicken.errno#errno/spipe */,0,C_fix((C_word)ESPIPE)); t85=C_set_block_item(lf[458] /* chicken.errno#errno/srch */,0,C_fix((C_word)ESRCH)); t86=C_set_block_item(lf[459] /* chicken.errno#errno/wouldblock */,0,C_fix((C_word)EWOULDBLOCK)); t87=C_set_block_item(lf[460] /* chicken.errno#errno/xdev */,0,C_fix((C_word)EXDEV)); t88=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t88; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t88+1)))(2,av2);}} /* ##sys#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5509,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5514,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:747: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[190]+1); av2[1]=t4; av2[2]=t2; av2[3]=t3; tp(4,av2);}} /* k5512 in ##sys#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5514,2,av);} t2=C_do_readlink(t1,((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posixunix.scm:749: posix-error */ t3=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[188]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[349]; av2[5]=((C_word*)t0)[5]; f_2939(6,av2);}} else{ /* posixunix.scm:750: scheme#substring */ t3=*((C_word*)lf[350]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* chicken.file.posix#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,5)))){ C_save_and_reclaim((void*)f_5528,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_i_check_string_2(t2,lf[351]); if(C_truep(t5)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5543,a[2]=t2,a[3]=((C_word)li118),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5549,a[2]=((C_word)li120),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:756: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t7; av2[3]=t8; C_call_with_values(4,av2);}} else{ /* posixunix.scm:771: ##sys#read-symbolic-link */ t7=*((C_word*)lf[348]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t1; av2[2]=t2; av2[3]=lf[351]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* a5542 in chicken.file.posix#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5543,2,av);} /* posixunix.scm:756: chicken.pathname#decompose-directory */ t2=*((C_word*)lf[352]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a5548 in chicken.file.posix#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5549,5,av);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5557,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(C_truep(t2)?t2:lf[357]); if(C_truep(t3)){ /* posixunix.scm:758: scheme#string-append */ t7=*((C_word*)lf[104]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ /* posixunix.scm:758: scheme#string-append */ t7=*((C_word*)lf[104]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=lf[358]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k5555 in a5548 in chicken.file.posix#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_5557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5557,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5559,a[2]=t3,a[3]=((C_word)li119),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_5559(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* loop in k5555 in a5548 in chicken.file.posix#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_fcall f_5559(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_5559,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5569,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t5=C_i_car(t2); /* posixunix.scm:761: chicken.pathname#make-pathname */ t6=*((C_word*)lf[353]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t4; av2[2]=t3; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k5567 in loop in k5555 in a5548 in chicken.file.posix#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_5569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_5569,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5575,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* posixunix.scm:762: ##sys#file-exists? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[356]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[356]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; av2[5]=lf[351]; tp(6,av2);}} /* k5573 in k5567 in loop in k5555 in a5548 in chicken.file.posix#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in ... */ static void C_ccall f_5575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_5575,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5584,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5587,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* posixunix.scm:764: chicken.file.posix#symbolic-link? */ t6=*((C_word*)lf[36]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* posixunix.scm:770: ##sys#signal-hook */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=lf[188]; av2[3]=lf[351]; av2[4]=lf[355]; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k5582 in k5573 in k5567 in loop in k5555 in a5548 in chicken.file.posix#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in ... */ static void C_ccall f_5584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5584,2,av);} /* posixunix.scm:763: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5559(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k5585 in k5573 in k5567 in loop in k5555 in a5548 in chicken.file.posix#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in ... */ static void C_ccall f_5587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5587,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5590,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* posixunix.scm:765: ##sys#read-symbolic-link */ t3=*((C_word*)lf[348]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=lf[351]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ /* posixunix.scm:763: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5559(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[7]);}} /* k5588 in k5585 in k5573 in k5567 in loop in k5555 in a5548 in chicken.file.posix#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in ... */ static void C_ccall f_5590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5590,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5596,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* posixunix.scm:766: chicken.pathname#absolute-pathname? */ t4=*((C_word*)lf[354]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5594 in k5588 in k5585 in k5573 in k5567 in loop in k5555 in a5548 in chicken.file.posix#read-symbolic-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in ... */ static void C_ccall f_5596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5596,2,av);} if(C_truep(t1)){ /* posixunix.scm:763: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_5559(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ /* posixunix.scm:768: chicken.pathname#make-pathname */ t2=*((C_word*)lf[353]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k5628 in chicken.file.posix#file-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5630,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5634,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_foreign_string_argumentp(((C_word*)t0)[3]); /* posixunix.scm:774: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k5632 in k5628 in chicken.file.posix#file-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_5634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5634,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=stub1614(C_SCHEME_UNDEFINED,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.file.posix#file-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5643,4,av);} a=C_alloc(9); t4=C_i_check_string_2(t2,lf[359]); t5=C_i_check_string_2(t3,lf[359]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5663,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=t6; t8=t2; t9=t3; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5630,a[2]=t7,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=C_i_foreign_string_argumentp(t8); /* posixunix.scm:774: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[190]+1); av2[1]=t10; av2[2]=t11; tp(3,av2);}} /* k5661 in chicken.file.posix#file-link in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5663,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ /* posixunix.scm:779: posix-error */ t2=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[188]; av2[3]=lf[360]; av2[4]=lf[361]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2939(7,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +9,c,2)))){ C_save_and_reclaim((void*)f_5665,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+9); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; t6=C_i_nullp(t5); t7=(C_truep(t6)?C_SCHEME_FALSE:C_i_car(t5)); t8=C_i_nullp(t5); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t5)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_fix(1):C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=C_i_nullp(t14); t16=(C_truep(t15)?*((C_word*)lf[363]+1):C_i_car(t14)); t17=t16; t18=C_i_nullp(t14); t19=(C_truep(t18)?C_SCHEME_END_OF_LIST:C_i_cdr(t14)); t20=C_i_nullp(t19); t21=(C_truep(t20)?C_SCHEME_FALSE:C_i_car(t19)); t22=t21; t23=C_i_nullp(t19); t24=(C_truep(t23)?C_SCHEME_END_OF_LIST:C_i_cdr(t19)); t25=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5693,a[2]=t12,a[3]=t2,a[4]=t4,a[5]=t3,a[6]=t22,a[7]=t1,a[8]=t17,tmp=(C_word)a,a+=9,tmp); if(C_truep(t7)){ /* posixunix.scm:784: ##sys#file-nonblocking! */ t26=*((C_word*)lf[305]+1);{ C_word *av2=av; av2[0]=t26; av2[1]=t25; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t26+1)))(3,av2);}} else{ t26=t25;{ C_word *av2=av; av2[0]=t26; av2[1]=C_SCHEME_UNDEFINED; f_5693(2,av2);}}} /* k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_5693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5693,2,av);} a=C_alloc(9); t2=C_fixnump(((C_word*)t0)[2]); t3=(C_truep(t2)?((C_word*)t0)[2]:C_block_size(((C_word*)t0)[2])); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5699,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t4,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_fixnump(((C_word*)t0)[2]))){ /* posixunix.scm:786: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[264]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[264]+1); av2[1]=t5; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=((C_word*)t0)[2]; f_5699(2,av2);}}} /* k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_5699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(80,c,8)))){ C_save_and_reclaim((void *)f_5699,2,av);} a=C_alloc(80); t2=t1; t3=C_fix(0); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_fix(0); t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5700,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li123),tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5729,a[2]=t6,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5737,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[6],a[8]=t4,a[9]=t6,a[10]=((C_word)li125),tmp=(C_word)a,a+=11,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5833,a[2]=t11,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5839,a[2]=t8,a[3]=t6,a[4]=t4,a[5]=t9,a[6]=((C_word)li126),tmp=(C_word)a,a+=7,tmp); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5864,a[2]=t6,a[3]=t4,a[4]=t7,a[5]=((C_word)li127),tmp=(C_word)a,a+=6,tmp); t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5876,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word)li128),tmp=(C_word)a,a+=7,tmp); t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5892,a[2]=t8,a[3]=t6,a[4]=t4,a[5]=t9,a[6]=((C_word)li129),tmp=(C_word)a,a+=7,tmp); t17=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5907,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=t9,a[6]=((C_word)li131),tmp=(C_word)a,a+=7,tmp); t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5983,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=t9,a[6]=((C_word)li135),tmp=(C_word)a,a+=7,tmp); t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6102,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=((C_word)li136),tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:836: chicken.port#make-input-port */ t20=*((C_word*)lf[375]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t20; av2[1]=t12; av2[2]=t13; av2[3]=t14; av2[4]=t15; av2[5]=t16; av2[6]=t17; av2[7]=t18; av2[8]=t19; ((C_proc)(void*)(*((C_word*)t20+1)))(9,av2);}} /* ready? in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_fcall f_5700(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_5700,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5704,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:791: ##sys#file-select-one */ t3=*((C_word*)lf[306]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5702 in ready? in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_5704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5704,2,av);} t2=C_eqp(C_fix(-1),t1); if(C_truep(t2)){ t3=C_eqp(C_fix((C_word)errno),C_fix((C_word)EWOULDBLOCK)); t4=(C_truep(t3)?t3:C_eqp(C_fix((C_word)errno),C_fix((C_word)EAGAIN))); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* posixunix.scm:796: posix-error */ t5=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=lf[188]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[364]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; f_2939(7,av2);}}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_eqp(C_fix(1),t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* peek in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static C_word C_fcall f_5729(C_word t0){ C_word tmp; C_word t1; C_word t2; C_stack_overflow_check;{} if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ return(C_SCHEME_END_OF_FILE);} else{ t1=C_subchar(((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]); return(t1);}} /* fetch in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_fcall f_5737(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_5737,2,t0,t1);} a=C_alloc(14); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word)li124),tmp=(C_word)a,a+=12,tmp)); t5=((C_word*)t3)[1];{ C_word av2[2]; av2[0]=t5; av2[1]=t1; f_5743(2,av2);}} /* loop in fetch in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_5743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,6)))){ C_save_and_reclaim((void *)f_5743,2,av);} a=C_alloc(11); t2=C_read(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=C_eqp(t2,C_fix(-1)); if(C_truep(t3)){ t4=C_eqp(C_fix((C_word)errno),C_fix((C_word)EWOULDBLOCK)); t5=(C_truep(t4)?t4:C_eqp(C_fix((C_word)errno),C_fix((C_word)EAGAIN))); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5762,a[2]=((C_word*)t0)[5],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:811: ##sys#thread-block-for-i/o! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[366]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[366]+1); av2[1]=t6; av2[2]=*((C_word*)lf[367]+1); av2[3]=((C_word*)t0)[2]; av2[4]=lf[368]; tp(5,av2);}} else{ t6=C_eqp(C_fix((C_word)errno),C_fix((C_word)EINTR)); if(C_truep(t6)){ /* posixunix.scm:815: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[311]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[311]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[5])[1]; tp(3,av2);}} else{ /* posixunix.scm:816: posix-error */ t7=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t7; av2[1]=t1; av2[2]=lf[188]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[369]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[7]; f_2939(7,av2);}}}} else{ t4=(C_truep(((C_word*)t0)[8])?C_eqp(t2,C_fix(0)):C_SCHEME_FALSE); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5795,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); /* posixunix.scm:820: more? */ t6=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} else{ t5=C_mutate(((C_word *)((C_word*)t0)[9])+1,t2); t6=C_set_block_item(((C_word*)t0)[10],0,C_fix(0)); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} /* k5760 in loop in fetch in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in ... */ static void C_ccall f_5762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5762,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5765,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:812: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[365]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[365]+1); av2[1]=t2; tp(2,av2);}} /* k5763 in k5760 in loop in fetch in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in ... */ static void C_ccall f_5765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5765,2,av);} /* posixunix.scm:813: loop */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_5743(2,av2);}} /* k5793 in loop in fetch in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in ... */ static void C_ccall f_5795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){ C_save_and_reclaim((void *)f_5795,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5798,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:822: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[365]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[365]+1); av2[1]=t2; tp(2,av2);}} else{ t2=C_read(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]); t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5804,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t5=C_eqp(((C_word*)t3)[1],C_fix(-1)); if(C_truep(t5)){ t6=C_eqp(C_fix((C_word)errno),C_fix((C_word)EWOULDBLOCK)); t7=(C_truep(t6)?t6:C_eqp(C_fix((C_word)errno),C_fix((C_word)EAGAIN))); if(C_truep(t7)){ t8=C_set_block_item(t3,0,C_fix(0)); t9=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)t3)[1]); t10=C_set_block_item(((C_word*)t0)[8],0,C_fix(0)); t11=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ /* posixunix.scm:829: posix-error */ t8=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t8; av2[1]=t4; av2[2]=lf[188]; av2[3]=((C_word*)t0)[9]; av2[4]=lf[370]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[10]; f_2939(7,av2);}}} else{ t6=C_mutate(((C_word *)((C_word*)t0)[7])+1,((C_word*)t3)[1]); t7=C_set_block_item(((C_word*)t0)[8],0,C_fix(0)); t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* k5796 in k5793 in loop in fetch in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in ... */ static void C_ccall f_5798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5798,2,av);} /* posixunix.scm:823: loop */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_5743(2,av2);}} /* k5802 in k5793 in loop in fetch in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in ... */ static void C_ccall f_5804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5804,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_set_block_item(((C_word*)t0)[4],0,C_fix(0)); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5831 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_5833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5833,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(3),((C_word*)t0)[3]); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a5838 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_5839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5839,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5843,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]))){ /* posixunix.scm:839: fetch */ t3=((C_word*)t0)[5]; f_5737(t3,t2);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_5843(2,av2);}}} /* k5841 in a5838 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_5843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5843,2,av);} t2=( /* posixunix.scm:840: peek */ f_5729(((C_word*)t0)[2]) ); if(C_truep(C_eofp(t2))){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_fixnum_plus(((C_word*)((C_word*)t0)[4])[1],C_fix(1)); t4=C_set_block_item(((C_word*)t0)[4],0,t3); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a5863 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_5864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5864,2,av);} t2=C_fixnum_lessp(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]); if(C_truep(t2)){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* posixunix.scm:845: ready? */ t3=((C_word*)t0)[4]; f_5700(t3,t1);}} /* a5875 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_5876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_5876,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5880,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=C_close(((C_word*)t0)[3]); if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ /* posixunix.scm:848: posix-error */ t4=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t2; av2[2]=lf[188]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[371]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[5]; f_2939(7,av2);}} else{ /* posixunix.scm:849: on-close */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}} /* k5878 in a5875 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_5880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5880,2,av);} /* posixunix.scm:849: on-close */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a5891 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_5892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5892,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5896,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]))){ /* posixunix.scm:852: fetch */ t3=((C_word*)t0)[5]; f_5737(t3,t2);} else{ /* posixunix.scm:853: peek */ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=( /* posixunix.scm:853: peek */ f_5729(((C_word*)t0)[2]) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5894 in a5891 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_5896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5896,2,av);} /* posixunix.scm:853: peek */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=( /* posixunix.scm:853: peek */ f_5729(((C_word*)t0)[3]) ); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5906 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_5907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5907,6,av);} a=C_alloc(9); t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5915,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=t5,tmp=(C_word)a,a+=9,tmp); if(C_truep(t3)){ t7=t6; f_5915(t7,t3);} else{ t7=C_block_size(t4); t8=t6; f_5915(t8,C_fixnum_difference(t7,t5));}} /* k5913 in a5906 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_fcall f_5915(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){ C_save_and_reclaim_args((void *)trf_5915,2,t0,t1);} a=C_alloc(11); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5917,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,a[7]=((C_word*)t0)[6],a[8]=((C_word)li130),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_5917(t5,((C_word*)t0)[7],t1,C_fix(0),((C_word*)t0)[8]);} /* loop in k5913 in a5906 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in ... */ static void C_fcall f_5917(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_5917,5,t0,t1,t2,t3,t4);} a=C_alloc(8); t5=C_eqp(C_fix(0),t2); if(C_truep(t5)){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(C_fixnum_lessp(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ t6=C_fixnum_difference(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[2])[1]); t7=C_fixnum_lessp(t2,t6); t8=(C_truep(t7)?t2:t6); t9=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],t8); t10=C_substring_copy(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)((C_word*)t0)[2])[1],t9,t4); t11=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],t8); t12=C_set_block_item(((C_word*)t0)[2],0,t11); t13=C_fixnum_difference(t2,t8); t14=C_fixnum_plus(t3,t8); t15=C_fixnum_plus(t4,t8); /* posixunix.scm:862: loop */ t17=t1; t18=t13; t19=t14; t20=t15; t1=t17; t2=t18; t3=t19; t4=t20; goto loop;} else{ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5965,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=t4,tmp=(C_word)a,a+=8,tmp); /* posixunix.scm:864: fetch */ t7=((C_word*)t0)[7]; f_5737(t7,t6);}}} /* k5963 in loop in k5913 in a5906 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in ... */ static void C_ccall f_5965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5965,2,av);} t2=C_eqp(C_fix(0),((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t2)){ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* posixunix.scm:867: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_5917(t3,((C_word*)t0)[4],((C_word*)t0)[6],((C_word*)t0)[3],((C_word*)t0)[7]);}} /* a5982 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_5983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5983,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5987,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ /* posixunix.scm:870: fetch */ t5=((C_word*)t0)[5]; f_5737(t5,t4);} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_5987(2,av2);}}} /* k5985 in a5982 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_5987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){ C_save_and_reclaim((void *)f_5987,2,av);} a=C_alloc(15); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[5]; t3=(C_truep(t2)?t2:C_fixnum_difference(*((C_word*)lf[372]+1),((C_word*)((C_word*)t0)[2])[1])); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6001,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word)li133),tmp=(C_word)a,a+=8,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6057,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[2],a[4]=((C_word)li134),tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:874: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}}} /* a6000 in k5985 in a5982 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in ... */ static void C_ccall f_6001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_6001,2,av);} a=C_alloc(8); t2=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]); t3=C_i_fixnum_min(((C_word*)((C_word*)t0)[4])[1],t2); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6011,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li132),tmp=(C_word)a,a+=8,tmp); /* posixunix.scm:875: ##sys#scan-buffer-line */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[373]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[373]+1); av2[1]=t1; av2[2]=((C_word*)t0)[5]; av2[3]=t3; av2[4]=((C_word*)((C_word*)t0)[2])[1]; av2[5]=t4; tp(6,av2);}} /* a6010 in a6000 in k5985 in a5982 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in ... */ static void C_ccall f_6011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_6011,3,av);} a=C_alloc(7); t3=C_fixnum_difference(t2,((C_word*)((C_word*)t0)[2])[1]); if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)((C_word*)t0)[3])[1]))){ /* posixunix.scm:882: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=t2; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}} else{ t4=C_fixnum_difference(((C_word*)((C_word*)t0)[3])[1],t3); t5=C_set_block_item(((C_word*)t0)[3],0,t4); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6031,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* posixunix.scm:885: fetch */ t7=((C_word*)t0)[6]; f_5737(t7,t6);}} /* k6029 in a6010 in a6000 in k5985 in a5982 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in ... */ static void C_ccall f_6031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6031,2,av);} if(C_truep(C_fixnum_lessp(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ t2=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[4])[1]); t3=C_i_fixnum_min(((C_word*)((C_word*)t0)[3])[1],t2); /* posixunix.scm:887: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=t3; C_values(5,av2);}} else{ /* posixunix.scm:890: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=C_SCHEME_FALSE; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}}} /* a6056 in k5985 in a5982 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in ... */ static void C_ccall f_6057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6057,5,av);} if(C_truep(t4)){ t5=C_slot(((C_word*)t0)[2],C_fix(4)); t6=C_fixnum_plus(t5,C_fix(1)); t7=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),t6); t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),C_fix(0)); t9=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t5=C_slot(((C_word*)t0)[2],C_fix(5)); t6=C_block_size(t3); t7=C_fixnum_plus(t5,t6); t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),t7); t9=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* a6101 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_6102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_6102,3,av);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=lf[374]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6112,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:903: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[259]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[259]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)((C_word*)t0)[2])[1]; av2[4]=((C_word*)((C_word*)t0)[3])[1]; tp(5,av2);}}} /* k6110 in a6101 in k5697 in k5691 in ##sys#custom-input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_6112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6112,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +8,c,2)))){ C_save_and_reclaim((void*)f_6178,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+8); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; t6=C_i_nullp(t5); t7=(C_truep(t6)?C_SCHEME_FALSE:C_i_car(t5)); t8=C_i_nullp(t5); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t5)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_fix(0):C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=C_i_nullp(t14); t16=(C_truep(t15)?*((C_word*)lf[363]+1):C_i_car(t14)); t17=t16; t18=C_i_nullp(t14); t19=(C_truep(t18)?C_SCHEME_END_OF_LIST:C_i_cdr(t14)); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6200,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=t12,a[6]=t1,a[7]=t17,tmp=(C_word)a,a+=8,tmp); if(C_truep(t7)){ /* posixunix.scm:912: ##sys#file-nonblocking! */ t21=*((C_word*)lf[305]+1);{ C_word *av2=av; av2[0]=t21; av2[1]=t20; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t21+1)))(3,av2);}} else{ t21=t20;{ C_word *av2=av; av2[0]=t21; av2[1]=C_SCHEME_UNDEFINED; f_6200(2,av2);}}} /* k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,4)))){ C_save_and_reclaim((void *)f_6200,2,av);} a=C_alloc(26); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6201,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li139),tmp=(C_word)a,a+=7,tmp); t7=C_fixnump(((C_word*)t0)[5]); t8=(C_truep(t7)?((C_word*)t0)[5]:C_block_size(((C_word*)t0)[5])); t9=t8; t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6267,a[2]=t3,a[3]=t6,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); t11=C_eqp(C_fix(0),t9); if(C_truep(t11)){ t12=t10; f_6267(t12,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6308,a[2]=t3,a[3]=((C_word)li143),tmp=(C_word)a,a+=4,tmp));} else{ t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6322,a[2]=t10,a[3]=t9,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnump(((C_word*)t0)[5]))){ /* posixunix.scm:935: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[264]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[264]+1); av2[1]=t12; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ t13=t12;{ C_word *av2=av; av2[0]=t13; av2[1]=((C_word*)t0)[5]; f_6322(2,av2);}}}} /* poke1761 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_6201,4,av);} a=C_alloc(12); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6207,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t5,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word)li138),tmp=(C_word)a,a+=10,tmp)); t7=((C_word*)t5)[1];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; f_6207(2,av2);}} /* loop in poke1761 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_6207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_6207,2,av);} a=C_alloc(6); t2=C_write(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=C_eqp(C_fix(-1),t2); if(C_truep(t3)){ t4=C_eqp(C_fix((C_word)errno),C_fix((C_word)EWOULDBLOCK)); t5=(C_truep(t4)?t4:C_eqp(C_fix((C_word)errno),C_fix((C_word)EAGAIN))); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6226,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:921: ##sys#thread-yield! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[365]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[365]+1); av2[1]=t6; tp(2,av2);}} else{ t6=C_eqp(C_fix((C_word)errno),C_fix((C_word)EINTR)); if(C_truep(t6)){ /* posixunix.scm:924: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[311]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[311]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[6])[1]; tp(3,av2);}} else{ /* posixunix.scm:926: posix-error */ t7=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t7; av2[1]=t1; av2[2]=((C_word*)t0)[7]; av2[3]=lf[188]; av2[4]=lf[377]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[8]; f_2939(7,av2);}}}} else{ if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[4]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6257,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:928: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[259]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[259]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k6224 in loop in poke1761 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_6226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6226,2,av);} /* posixunix.scm:922: poke */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} /* k6255 in loop in poke1761 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_6257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6257,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); /* posixunix.scm:928: poke */ t3=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[5]; av2[2]=t1; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* k6265 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_fcall f_6267(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,0,4)))){ C_save_and_reclaim_args((void *)trf_6267,2,t0,t1);} a=C_alloc(22); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,t1); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6272,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6278,a[2]=((C_word*)t0)[4],a[3]=((C_word)li140),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6284,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[5],a[6]=((C_word)li141),tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6300,a[2]=((C_word*)t0)[4],a[3]=((C_word)li142),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:953: chicken.port#make-output-port */ t10=*((C_word*)lf[379]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t6; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* k6270 in k6265 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_6272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6272,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(3),((C_word*)t0)[3]); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a6277 in k6265 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_6278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6278,3,av);} /* posixunix.scm:955: store */ t3=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* a6283 in k6265 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_6284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){ C_save_and_reclaim((void *)f_6284,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6288,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=C_close(((C_word*)t0)[3]); if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ /* posixunix.scm:958: posix-error */ t4=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=t2; av2[2]=lf[188]; av2[3]=((C_word*)t0)[4]; av2[4]=lf[378]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[5]; f_2939(7,av2);}} else{ /* posixunix.scm:959: on-close */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}} /* k6286 in a6283 in k6265 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_6288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6288,2,av);} /* posixunix.scm:959: on-close */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a6299 in k6265 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_6300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6300,2,av);} /* posixunix.scm:961: store */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* f_6308 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6308,3,av);} if(C_truep(t2)){ t3=C_block_size(t2); /* posixunix.scm:934: poke */ t4=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6320 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6322,2,av);} a=C_alloc(9); t2=t1; t3=C_fix(0); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t0)[2]; f_6267(t5,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6323,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word)li145),tmp=(C_word)a,a+=7,tmp));} /* f_6323 in k6320 in k6198 in ##sys#custom-output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_6323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_6323,3,av);} a=C_alloc(11); if(C_truep(t2)){ t3=C_fixnum_difference(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t4=C_block_size(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6340,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t2,a[8]=((C_word)li144),tmp=(C_word)a,a+=9,tmp)); t8=((C_word*)t6)[1]; f_6340(t8,t1,t3,C_fix(0),t4);} else{ if(C_truep(C_fixnum_lessp(C_fix(0),((C_word*)((C_word*)t0)[3])[1]))){ /* posixunix.scm:951: poke */ t3=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* loop */ static void C_fcall f_6340(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_6340,5,t0,t1,t2,t3,t4);} a=C_alloc(7); t5=C_eqp(C_fix(0),t2); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6350,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* posixunix.scm:941: poke */ t7=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} else{ if(C_truep(C_fixnum_lessp(t2,t4))){ t6=C_substring_copy(((C_word*)t0)[7],((C_word*)t0)[6],t3,t2,((C_word*)((C_word*)t0)[2])[1]); t7=C_fixnum_difference(t4,t2); /* posixunix.scm:946: loop */ t10=t1; t11=C_fix(0); t12=t2; t13=t7; t1=t10; t2=t11; t3=t12; t4=t13; goto loop;} else{ t6=C_substring_copy(((C_word*)t0)[7],((C_word*)t0)[6],t3,t4,((C_word*)((C_word*)t0)[2])[1]); t7=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],t4); t8=C_set_block_item(((C_word*)t0)[2],0,t7); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}} /* k6348 in loop */ static void C_ccall f_6350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6350,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_fix(0)); /* posixunix.scm:943: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6340(t3,((C_word*)t0)[4],((C_word*)t0)[5],C_fix(0),((C_word*)t0)[6]);} /* chicken.file.posix#file-truncate in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6433,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6437,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:970: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[211]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[211]+1); av2[1]=t4; av2[2]=t3; av2[3]=lf[380]; tp(4,av2);}} /* k6435 in chicken.file.posix#file-truncate in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_6437,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6443,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6450,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_stringp(((C_word*)t0)[3]))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6457,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:971: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=lf[380]; tp(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6463,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:972: chicken.base#port? */ t5=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k6441 in k6435 in chicken.file.posix#file-truncate in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_fcall f_6443(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){ C_save_and_reclaim_args((void *)trf_6443,2,t0,t1);} if(C_truep(t1)){ /* posixunix.scm:976: posix-error */ t2=lf[183];{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[188]; av2[3]=lf[380]; av2[4]=lf[381]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; f_2939(7,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6448 in k6435 in chicken.file.posix#file-truncate in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6450,2,av);} t2=((C_word*)t0)[2]; f_6443(t2,C_fixnum_lessp(t1,C_fix(0)));} /* k6455 in k6435 in chicken.file.posix#file-truncate in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6457,2,av);} t2=C_truncate(t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_6443(t3,C_fixnum_lessp(t2,C_fix(0)));} /* k6461 in k6435 in chicken.file.posix#file-truncate in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_6463,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6467,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:972: chicken.file.posix#port->fileno */ t3=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ if(C_truep(C_fixnump(((C_word*)t0)[4]))){ t2=C_ftruncate(((C_word*)t0)[4],((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_6443(t3,C_fixnum_lessp(t2,C_fix(0)));} else{ /* posixunix.scm:974: ##sys#error */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[380]; av2[3]=lf[382]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}} /* k6465 in k6461 in k6435 in chicken.file.posix#file-truncate in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_6467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6467,2,av);} t2=C_ftruncate(t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_6443(t3,C_fixnum_lessp(t2,C_fix(0)));} /* setup in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_6478(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_6478,4,t1,t2,t3,t4);} a=C_alloc(9); t5=C_i_nullp(t3); t6=(C_truep(t5)?C_fix(0):C_i_car(t3)); t7=t6; t8=C_i_nullp(t3); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_SCHEME_TRUE:C_i_car(t9)); t12=t11; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_i_nullp(t9); t15=(C_truep(t14)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t16=t2; t17=t4; t18=C_i_check_port_2(t16,C_fix(0),C_SCHEME_TRUE,t17); t19=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6496,a[2]=t2,a[3]=t7,a[4]=t13,a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* posixunix.scm:990: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[211]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[211]+1); av2[1]=t19; av2[2]=t7; av2[3]=t4; tp(4,av2);}} /* k6494 in setup in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6496,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6499,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_eqp(C_SCHEME_TRUE,((C_word*)((C_word*)t0)[4])[1]); if(C_truep(t3)){ t4=C_set_block_item(((C_word*)t0)[4],0,C_fix(0)); t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; f_6499(2,av2);}} else{ /* posixunix.scm:993: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[211]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[211]+1); av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=((C_word*)t0)[6]; tp(4,av2);}}} /* k6497 in k6494 in setup in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_6499,2,av);} a=C_alloc(5); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_i_nequalp(t2,C_fix(1)); t4=(C_truep(t3)?C_fix((C_word)F_RDLCK):C_fix((C_word)F_WRLCK)); t5=C_flock_setup(t4,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]); t6=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[383],((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* err in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_6546(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,7)))){ C_save_and_reclaim_args((void *)trf_6546,4,t1,t2,t3,t4);} t5=C_slot(t3,C_fix(1)); t6=C_slot(t3,C_fix(2)); t7=C_slot(t3,C_fix(3)); /* posixunix.scm:997: posix-error */ t8=lf[183];{ C_word av2[8]; av2[0]=t8; av2[1]=t1; av2[2]=lf[188]; av2[3]=t4; av2[4]=t2; av2[5]=t5; av2[6]=t6; av2[7]=t7; f_2939(8,av2);}} /* chicken.file.posix#file-lock in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,2)))){ C_save_and_reclaim((void*)f_6564,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6570,a[2]=t2,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=((C_word)li150),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; f_6570(2,av2);}} /* loop in chicken.file.posix#file-lock in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6570,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6574,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:1001: setup */ f_6478(t2,((C_word*)t0)[2],((C_word*)t0)[6],lf[385]);} /* k6572 in loop in chicken.file.posix#file-lock in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6574,2,av);} t2=C_flock_lock(((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t3=C_eqp(C_fix((C_word)errno),C_fix((C_word)EINTR)); if(C_truep(t3)){ /* posixunix.scm:1004: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[311]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[311]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)((C_word*)t0)[4])[1]; tp(3,av2);}} else{ /* posixunix.scm:1005: err */ f_6546(((C_word*)t0)[3],lf[384],t1,lf[385]);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.file.posix#file-lock/blocking in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,2)))){ C_save_and_reclaim((void*)f_6595,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6601,a[2]=t2,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=((C_word)li152),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; f_6601(2,av2);}} /* loop in chicken.file.posix#file-lock/blocking in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6601,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6605,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:1010: setup */ f_6478(t2,((C_word*)t0)[2],((C_word*)t0)[6],lf[387]);} /* k6603 in loop in chicken.file.posix#file-lock/blocking in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6605,2,av);} t2=C_flock_lockw(((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t3=C_eqp(C_fix((C_word)errno),C_fix((C_word)EINTR)); if(C_truep(t3)){ /* posixunix.scm:1013: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[311]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[311]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)((C_word*)t0)[4])[1]; tp(3,av2);}} else{ /* posixunix.scm:1014: err */ f_6546(((C_word*)t0)[3],lf[386],t1,lf[387]);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.file.posix#file-test-lock in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,4)))){ C_save_and_reclaim((void*)f_6626,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6630,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1018: setup */ f_6478(t4,t2,t3,lf[389]);} /* k6628 in chicken.file.posix#file-test-lock in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6630,2,av);} t2=C_flock_test(((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3]; t4=C_eqp(t2,C_fix(0)); t5=C_i_not(t4); t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=(C_truep(t5)?t2:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* posixunix.scm:1020: err */ f_6546(((C_word*)t0)[3],lf[388],t1,lf[389]);}} /* chicken.file.posix#file-unlock in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_6653,3,av);} a=C_alloc(4); t3=C_i_check_structure_2(t2,lf[383],lf[390]); t4=C_slot(t2,C_fix(2)); t5=C_slot(t2,C_fix(3)); t6=C_flock_setup(C_fix((C_word)F_UNLCK),t4,t5); t7=C_slot(t2,C_fix(1)); t8=C_flock_lock(t7); if(C_truep(C_fixnum_lessp(t8,C_fix(0)))){ t9=C_eqp(C_fix((C_word)errno),C_fix((C_word)EINTR)); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6682,a[2]=t2,a[3]=((C_word)li155),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1029: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[311]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[311]+1); av2[1]=t1; av2[2]=t10; tp(3,av2);}} else{ /* posixunix.scm:1031: posix-error */ t10=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t10; av2[1]=t1; av2[2]=lf[188]; av2[3]=lf[390]; av2[4]=lf[391]; av2[5]=t2; f_2939(6,av2);}}} else{ t9=C_SCHEME_UNDEFINED; t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* a6681 in chicken.file.posix#file-unlock in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6682,2,av);} /* posixunix.scm:1030: chicken.file.posix#file-unlock */ t2=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.file.posix#create-fifo in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_6696,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=C_i_check_string_2(t2,lf[392]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6703,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t6=t3; t7=t5; f_6703(t7,C_u_i_car(t6));} else{ t6=C_fixnum_or(C_fix((C_word)S_IRGRP | S_IWGRP | S_IXGRP),C_fix((C_word)S_IROTH | S_IWOTH | S_IXOTH)); t7=t5; f_6703(t7,C_fixnum_or(C_fix((C_word)S_IRUSR | S_IWUSR | S_IXUSR),t6));}} /* k6701 in chicken.file.posix#create-fifo in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_6703(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_6703,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6706,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1040: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[392]; tp(4,av2);}} /* k6704 in k6701 in chicken.file.posix#create-fifo in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6706,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6720,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1041: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[392]; tp(4,av2);}} /* k6718 in k6704 in k6701 in chicken.file.posix#create-fifo in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_6720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_6720,2,av);} t2=C_mkfifo(t1,((C_word*)t0)[2]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ /* posixunix.scm:1042: posix-error */ t3=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[188]; av2[3]=lf[392]; av2[4]=lf[393]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[2]; f_2939(7,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* chicken.time.posix#string->time in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_6742,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[394]:C_i_car(t3)); t6=t5; t7=C_i_check_string_2(t2,lf[395]); t8=C_i_check_string_2(t6,lf[395]); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6759,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1053: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t9; av2[2]=t2; av2[3]=lf[395]; tp(4,av2);}} /* k6757 in chicken.time.posix#string->time in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6759,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6763,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1053: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[190]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k6761 in k6757 in chicken.time.posix#string->time in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_6763,2,av);} a=C_alloc(17); t2=t1; t3=C_a_i_vector(&a,10,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6771,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:1053: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[264]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[264]+1); av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* k6769 in k6761 in k6757 in chicken.time.posix#string->time in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_6771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6771,2,av);} t2=((C_word*)t0)[2]; if(C_truep(t1)){ t3=C_i_foreign_block_argumentp(t1); t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=stub1894(C_SCHEME_UNDEFINED,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=stub1894(C_SCHEME_UNDEFINED,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.time.posix#utc-time->seconds in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6779,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6783,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1058: check-time-vector */ f_3627(t3,lf[396],t2);} /* k6781 in chicken.time.posix#utc-time->seconds in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6783,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6787,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1059: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[264]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[264]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_make_character(0); tp(4,av2);}} /* k6785 in k6781 in chicken.time.posix#utc-time->seconds in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_6787,2,av);} a=C_alloc(7); t2=C_a_timegm(&a,2,((C_word*)t0)[2],t1); if(C_truep(C_i_nequalp(C_fix(-1),t2))){ /* posixunix.scm:1061: ##sys#error */ t3=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[396]; av2[3]=lf[397]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.time.posix#local-timezone-abbreviation in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_6798,2,av);} a=C_alloc(5); t2=C_a_i_bytevector(&a,1,C_fix(3)); t3=stub1921(t2); /* posixunix.scm:1065: ##sys#peek-c-string */ t4=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* chicken.process.signal#set-alarm! in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6805,3,av);} t3=C_i_foreign_fixnum_argumentp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=stub1925(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.process#process-fork in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_6814,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=t4; t6=C_i_nullp(t2); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t2)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_FALSE:C_i_car(t7)); t10=t9; t11=C_i_nullp(t7); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t13=stub1949(C_SCHEME_UNDEFINED,C_SCHEME_FALSE); t14=stub1929(C_SCHEME_UNDEFINED); t15=t14; t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6845,a[2]=t5,a[3]=t15,a[4]=t10,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t17=C_eqp(C_fix(-1),t15); if(C_truep(t17)){ /* posixunix.scm:1091: posix-error */ t18=lf[183];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t18; av2[1]=t16; av2[2]=lf[91]; av2[3]=lf[401]; av2[4]=lf[402]; f_2939(5,av2);}} else{ t18=t16;{ C_word *av2=av; av2[0]=t18; av2[1]=C_SCHEME_UNDEFINED; f_6845(2,av2);}}} /* k6843 in chicken.process#process-fork in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6845,2,av);} a=C_alloc(7); t2=(C_truep(((C_word*)t0)[2])?C_eqp(((C_word*)t0)[3],C_fix(0)):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(C_truep(((C_word*)t0)[4])?*((C_word*)lf[398]+1):(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6873,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6859,a[2]=((C_word*)t0)[2],a[3]=((C_word)li164),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1092: g1956 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a6858 in k6843 in chicken.process#process-fork in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6859,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6865,a[2]=((C_word*)t0)[2],a[3]=((C_word)li163),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1097: ##sys#call-with-cthulhu */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[400]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[400]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} /* a6864 in a6858 in k6843 in chicken.process#process-fork in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_6865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6865,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6869,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:1099: thunk */ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k6867 in a6864 in a6858 in k6843 in chicken.process#process-fork in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_6869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6869,2,av);} /* posixunix.scm:1100: chicken.base#exit */ t2=*((C_word*)lf[399]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f_6873 in k6843 in chicken.process#process-fork in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_6873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6873,3,av);} /* posixunix.scm:1095: thunk */ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* chicken.process#process-execute in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,7)))){ C_save_and_reclaim((void*)f_6913,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_END_OF_LIST:C_i_car(t3)); t6=C_i_nullp(t3); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_FALSE:C_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=C_i_nullp(t11); t13=(C_truep(t12)?C_SCHEME_FALSE:C_i_car(t11)); t14=C_i_nullp(t11); t15=(C_truep(t14)?C_SCHEME_END_OF_LIST:C_i_cdr(t11)); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6937,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp); t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6940,a[2]=t2,a[3]=((C_word)li167),tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1105: call-with-exec-args */ t18=lf[287]; f_4138(t18,t1,lf[403],t2,t16,t5,t9,t17);} /* a6936 in chicken.process#process-execute in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6937,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a6939 in chicken.process#process-execute in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_6940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6940,5,av);} t5=(C_truep(t4)?C_u_i_execve(t2,t3,t4):C_u_i_execvp(t2,t3)); t6=C_eqp(t5,C_fix(-1)); if(C_truep(t6)){ /* posixunix.scm:1112: posix-error */ t7=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t1; av2[2]=lf[91]; av2[3]=lf[403]; av2[4]=lf[404]; av2[5]=((C_word*)t0)[2]; f_2939(6,av2);}} else{ t7=C_SCHEME_UNDEFINED; t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* chicken.posix#process-wait-impl in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_6991(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_6991,3,t1,t2,t3);} a=C_alloc(5); t4=(C_truep(t3)?C_fix((C_word)WNOHANG):C_fix(0)); t5=C_waitpid(t2,t4); t6=C_WIFEXITED(C_fix((C_word)C_wait_status)); t7=C_eqp(t5,C_fix(-1)); t8=(C_truep(t7)?C_eqp(C_fix((C_word)errno),C_fix((C_word)EINTR)):C_SCHEME_FALSE); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7007,a[2]=t2,a[3]=t3,a[4]=((C_word)li169),tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1121: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[311]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[311]+1); av2[1]=t1; av2[2]=t9; tp(3,av2);}} else{ if(C_truep(t6)){ t9=C_WEXITSTATUS(C_fix((C_word)C_wait_status)); /* posixunix.scm:1123: scheme#values */{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; av2[4]=t9; C_values(5,av2);}} else{ if(C_truep(C_WIFSIGNALED(C_fix((C_word)C_wait_status)))){ t9=C_WTERMSIG(C_fix((C_word)C_wait_status)); /* posixunix.scm:1123: scheme#values */{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; av2[4]=t9; C_values(5,av2);}} else{ t9=C_WSTOPSIG(C_fix((C_word)C_wait_status)); /* posixunix.scm:1123: scheme#values */{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; av2[4]=t9; C_values(5,av2);}}}}} /* a7006 in chicken.posix#process-wait-impl in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7007,2,av);} /* posixunix.scm:1122: process-wait-impl */ f_6991(t1,((C_word*)t0)[2],((C_word*)t0)[3]);} /* chicken.process-context.posix#parent-process-id in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7029,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=stub1995(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.process#process-signal in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_7032,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7036,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t5=t3; t6=t4; f_7036(t6,C_u_i_car(t5));} else{ t5=t4; f_7036(t5,C_fix((C_word)SIGTERM));}} /* k7034 in chicken.process#process-signal in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7036(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7036,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7039,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1136: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=lf[405]; tp(4,av2);}} /* k7037 in k7034 in chicken.process#process-signal in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_7039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7039,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7042,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1137: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[405]; tp(4,av2);}} /* k7040 in k7037 in k7034 in chicken.process#process-signal in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_7042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_7042,2,av);} t2=C_kill(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_eqp(t2,C_fix(-1)); if(C_truep(t3)){ /* posixunix.scm:1139: posix-error */ t4=lf[183];{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=lf[91]; av2[3]=lf[405]; av2[4]=lf[406]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[3]; f_2939(7,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* chicken.posix#shell-command in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7057(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_7057,1,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7061,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:1142: chicken.process-context#get-environment-variable */ t3=*((C_word*)lf[409]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[410]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7059 in chicken.posix#shell-command in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7061,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[408]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.process#process-run in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_7072,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7076,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t5=t3; t6=t4; f_7076(t6,C_u_i_car(t5));} else{ t5=t4; f_7076(t5,C_SCHEME_FALSE);}} /* k7074 in chicken.process#process-run in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7076(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7076,2,t0,t1);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7079,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1150: chicken.process#process-fork */ t4=*((C_word*)lf[108]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7077 in k7074 in chicken.process#process-run in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_7079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7079,2,av);} a=C_alloc(4); t2=C_eqp(C_fix(0),t1); if(C_truep(C_i_not(t2))){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[3])){ /* posixunix.scm:1152: chicken.process#process-execute */ t3=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7098,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1155: shell-command */ f_7057(t3);}}} /* k7096 in k7077 in k7074 in chicken.process#process-run in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_7098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7098,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_a_i_list2(&a,2,lf[411],t2); /* posixunix.scm:1154: chicken.process#process-execute */ t4=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7120 in k7204 in connect-child in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_7122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7122,2,av);} /* posixunix.scm:1182: chicken.file.posix#file-close */ t2=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* make-on-close in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7126(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_7126,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(9); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7128,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=t7,a[6]=t3,a[7]=t2,a[8]=((C_word)li177),tmp=(C_word)a,a+=9,tmp); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* f_7128 in make-on-close in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_7128,2,av);} a=C_alloc(9); t2=C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_TRUE); t3=C_i_vector_ref(((C_word*)t0)[2],((C_word*)t0)[4]); t4=(C_truep(t3)?C_i_vector_ref(((C_word*)t0)[2],((C_word*)t0)[5]):C_SCHEME_FALSE); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7143,a[2]=((C_word*)t0)[6],a[3]=((C_word)li175),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7149,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[6],a[4]=((C_word)li176),tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1188: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* a7142 */ static void C_ccall f_7143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7143,2,av);} /* posixunix.scm:1188: process-wait-impl */ f_6991(t1,((C_word*)t0)[2],C_SCHEME_FALSE);} /* a7148 */ static void C_ccall f_7149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_7149,5,av);} if(C_truep(t3)){ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* posixunix.scm:1190: ##sys#signal-hook */ t5=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t1; av2[2]=lf[91]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[412]; av2[5]=((C_word*)t0)[3]; av2[6]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}}} /* needed-pipe in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7163(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_7163,2,t1,t2);} a=C_alloc(6); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7172,a[2]=((C_word)li179),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7178,a[2]=((C_word)li180),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:1195: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a7171 in needed-pipe in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7172,2,av);} /* posixunix.scm:1195: chicken.process#create-pipe */ t2=*((C_word*)lf[117]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7177 in needed-pipe in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_7178,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* connect-parent in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7183(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_7183,3,t1,t2,t3);} a=C_alloc(4); if(C_truep(t3)){ t4=C_i_car(t2); t5=t4; t6=t2; t7=C_u_i_cdr(t6); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7194,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1201: chicken.file.posix#file-close */ t9=*((C_word*)lf[11]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7192 in connect-parent in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7194,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* connect-child in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7195(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7195,4,t1,t2,t3,t4);} a=C_alloc(5); if(C_truep(t3)){ t5=C_i_car(t2); t6=t5; t7=t2; t8=C_u_i_cdr(t7); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7206,a[2]=t1,a[3]=t6,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:1207: chicken.file.posix#file-close */ t10=*((C_word*)lf[11]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k7204 in connect-child in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7206,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=C_eqp(t4,t3); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t2;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7122,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1181: chicken.file.posix#duplicate-fileno */ t7=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* swapped-ends in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static C_word C_fcall f_7210(C_word *a,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check;{} if(C_truep(t1)){ t2=C_i_cdr(t1); t3=t1; t4=C_u_i_car(t3); return(C_a_i_cons(&a,2,t2,t4));} else{ return(C_SCHEME_FALSE);}} /* spawn in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7224(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_7224,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(12); t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7228,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[3],a[8]=t7,a[9]=t5,a[10]=t6,a[11]=((C_word*)t0)[4],tmp=(C_word)a,a+=12,tmp); /* posixunix.scm:1216: needed-pipe */ f_7163(t8,t6);} /* k7226 in spawn in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7228,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7231,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* posixunix.scm:1217: needed-pipe */ f_7163(t3,((C_word*)t0)[9]);} /* k7229 in k7226 in spawn in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_7231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_7231,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7234,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* posixunix.scm:1218: needed-pipe */ f_7163(t3,((C_word*)t0)[9]);} /* k7232 in k7229 in k7226 in spawn in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_7234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ C_save_and_reclaim((void *)f_7234,2,av);} a=C_alloc(23); t2=t1; t3=( /* posixunix.scm:1220: swapped-ends */ f_7210(C_a_i(&a,3),((C_word*)t0)[3]) ); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7245,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7247,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[2],a[6]=t2,a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[12],a[13]=((C_word)li185),tmp=(C_word)a,a+=14,tmp); /* posixunix.scm:1221: chicken.process#process-fork */ t7=*((C_word*)lf[108]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7243 in k7232 in k7229 in k7226 in spawn in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_7245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7245,2,av);} /* posixunix.scm:1219: scheme#values */{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t1; C_values(6,av2);}} /* a7246 in k7232 in k7229 in k7226 in spawn in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_7247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_7247,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7251,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* posixunix.scm:1223: connect-child */ f_7195(t2,((C_word*)t0)[11],((C_word*)t0)[12],*((C_word*)lf[38]+1));} /* k7249 in a7246 in k7232 in k7229 in k7226 in spawn in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in ... */ static void C_ccall f_7251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_7251,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7254,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t3=( /* posixunix.scm:1224: swapped-ends */ f_7210(C_a_i(&a,3),((C_word*)t0)[10]) ); /* posixunix.scm:1224: connect-child */ f_7195(t2,t3,((C_word*)t0)[11],*((C_word*)lf[39]+1));} /* k7252 in k7249 in a7246 in k7232 in k7229 in k7226 in spawn in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in ... */ static void C_ccall f_7254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_7254,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7257,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=( /* posixunix.scm:1225: swapped-ends */ f_7210(C_a_i(&a,3),((C_word*)t0)[7]) ); /* posixunix.scm:1225: connect-child */ f_7195(t2,t3,((C_word*)t0)[9],*((C_word*)lf[37]+1));} /* k7255 in k7252 in k7249 in a7246 in k7232 in k7229 in k7226 in spawn in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in ... */ static void C_ccall f_7257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7257,2,av);} /* posixunix.scm:1226: chicken.process#process-execute */ t2=*((C_word*)lf[107]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7269(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7269,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(6); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7273,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:1229: connect-parent */ f_7183(t7,t4,t5);} /* k7271 in input-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_7273,2,av);} if(C_truep(t1)){ /* posixunix.scm:1230: ##sys#custom-input-port */ t2=*((C_word*)lf[362]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; av2[5]=C_SCHEME_TRUE; av2[6]=C_fix(256); av2[7]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7280(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7280,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(6); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7284,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* posixunix.scm:1233: connect-parent */ f_7183(t7,t4,t5);} /* k7282 in output-port in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_7284,2,av);} if(C_truep(t1)){ /* posixunix.scm:1234: ##sys#custom-output-port */ t2=*((C_word*)lf[376]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; av2[5]=C_SCHEME_TRUE; av2[6]=C_fix(0); av2[7]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.posix#process-impl in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7291(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){ C_word tmp; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,6)))){ C_save_and_reclaim_args((void *)trf_7291,9,t0,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(21); t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7297,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=t8,a[9]=((C_word)li189),tmp=(C_word)a,a+=10,tmp); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7303,a[2]=t7,a[3]=t6,a[4]=t8,a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=t3,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word)li190),tmp=(C_word)a,a+=11,tmp); /* posixunix.scm:1236: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t9; av2[3]=t10; C_call_with_values(4,av2);}} /* a7296 in chicken.posix#process-impl in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7297(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_7297,2,av);} /* posixunix.scm:1237: spawn */ t2=((C_word*)t0)[2]; f_7224(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* a7302 in chicken.posix#process-impl in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(26,c,7)))){ C_save_and_reclaim((void *)f_7303,6,av);} a=C_alloc(26); t6=C_i_not(((C_word*)t0)[2]); t7=C_i_not(((C_word*)t0)[3]); t8=C_i_not(((C_word*)t0)[4]); t9=C_a_i_vector3(&a,3,t6,t7,t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7314,a[2]=t1,a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t4,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[8],a[10]=t10,a[11]=((C_word*)t0)[9],a[12]=t3,a[13]=((C_word*)t0)[3],tmp=(C_word)a,a+=14,tmp); t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7334,a[2]=((C_word*)t0)[5],a[3]=t11,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t2,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* posixunix.scm:1245: make-on-close */ f_7126(t12,((C_word*)t0)[6],t5,t10,C_fix(0),C_fix(1),C_fix(2));} /* k7312 in a7302 in chicken.posix#process-impl in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_7314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,7)))){ C_save_and_reclaim((void *)f_7314,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7318,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7330,a[2]=((C_word*)t0)[11],a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[13],tmp=(C_word)a,a+=8,tmp); /* posixunix.scm:1248: make-on-close */ f_7126(t4,((C_word*)t0)[5],((C_word*)t0)[3],((C_word*)t0)[10],C_fix(1),C_fix(0),C_fix(2));} /* k7316 in k7312 in a7302 in chicken.posix#process-impl in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_7318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,7)))){ C_save_and_reclaim((void *)f_7318,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7322,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7326,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp); /* posixunix.scm:1252: make-on-close */ f_7126(t4,((C_word*)t0)[6],((C_word*)t0)[4],((C_word*)t0)[11],C_fix(2),C_fix(0),C_fix(1));} /* k7320 in k7316 in k7312 in a7302 in chicken.posix#process-impl in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_7322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7322,2,av);} /* posixunix.scm:1242: scheme#values */{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t1; C_values(6,av2);}} /* k7324 in k7316 in k7312 in a7302 in chicken.posix#process-impl in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in ... */ static void C_ccall f_7326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_7326,2,av);} /* posixunix.scm:1250: input-port */ t2=((C_word*)t0)[2]; f_7269(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k7328 in k7312 in a7302 in chicken.posix#process-impl in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_7330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_7330,2,av);} /* posixunix.scm:1246: output-port */ t2=((C_word*)t0)[2]; f_7280(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* k7332 in a7302 in chicken.posix#process-impl in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_7334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_7334,2,av);} /* posixunix.scm:1243: input-port */ t2=((C_word*)t0)[2]; f_7269(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} /* %process in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7347(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,0,3)))){ C_save_and_reclaim_args((void *)trf_7347,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(27); t8=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t9=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7349,a[2]=t2,a[3]=((C_word)li194),tmp=(C_word)a,a+=4,tmp); t11=C_i_check_string_2(((C_word*)t8)[1],t2); t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7390,a[2]=t2,a[3]=t8,a[4]=t9,a[5]=t6,a[6]=t3,a[7]=t1,a[8]=t7,tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t9)[1])){ /* posixunix.scm:1265: chkstrlst */ t13=t10; f_7349(t13,t12,((C_word*)t9)[1]);} else{ t13=((C_word*)t8)[1]; t14=C_a_i_list2(&a,2,lf[411],t13); t15=C_set_block_item(t9,0,t14); t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7416,a[2]=t8,a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:1268: shell-command */ f_7057(t16);}} /* chkstrlst in %process in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7349(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_7349,3,t0,t1,t2);} a=C_alloc(8); t3=C_i_check_list_2(t2,((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7354,a[2]=((C_word*)t0)[2],a[3]=((C_word)li192),tmp=(C_word)a,a+=4,tmp); t5=t2; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7363,a[2]=t4,a[3]=((C_word)li193),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=( f_7363(t6,t5) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* g2120 in chkstrlst in %process in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static C_word C_fcall f_7354(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_check_string_2(t1,((C_word*)t0)[2]));} /* for-each-loop2119 in chkstrlst in %process in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static C_word C_fcall f_7363(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=( /* posixunix.scm:1262: g2120 */ f_7354(((C_word*)t0)[2],t2) ); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k7388 in %process in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_7390,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(((C_word*)t0)[5])){ /* posixunix.scm:1269: check-environment-list */ f_4089(t2,((C_word*)t0)[5],((C_word*)t0)[2]);} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7393(2,av2);}}} /* k7391 in k7388 in %process in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 in ... */ static void C_ccall f_7393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_7393,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7398,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li195),tmp=(C_word)a,a+=8,tmp); /* posixunix.scm:1270: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[7]; av2[2]=t2; av2[3]=((C_word*)t0)[8]; C_call_with_values(4,av2);}} /* a7397 in k7391 in k7388 in %process in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in ... */ static void C_ccall f_7398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_7398,2,av);} /* posixunix.scm:1271: process-impl */ t2=lf[413]; f_7291(t2,t1,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],C_SCHEME_TRUE,C_SCHEME_TRUE,((C_word*)t0)[6]);} /* k7414 in %process in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7416,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_7390(2,av2);}} /* chicken.process#process in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +3,c,7)))){ C_save_and_reclaim((void*)f_7418,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+3); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_i_nullp(t3); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_FALSE:C_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=C_i_nullp(t11); t13=(C_truep(t12)?C_SCHEME_FALSE:C_i_car(t11)); t14=C_i_nullp(t11); t15=(C_truep(t14)?C_SCHEME_END_OF_LIST:C_i_cdr(t11)); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7442,a[2]=((C_word)li197),tmp=(C_word)a,a+=3,tmp); /* posixunix.scm:1275: %process */ f_7347(t1,lf[414],C_SCHEME_FALSE,t2,t5,t9,t16);} /* a7441 in chicken.process#process in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7442,6,av);} /* posixunix.scm:1277: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; C_values(5,av2);}} /* chicken.process#process* in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,7)))){ C_save_and_reclaim((void*)f_7484,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_i_nullp(t3); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_FALSE:C_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=C_i_nullp(t11); t13=(C_truep(t12)?C_SCHEME_FALSE:C_i_car(t11)); if(C_truep(C_i_nullp(t11))){ /* posixunix.scm:1280: %process */ f_7347(t1,lf[415],C_SCHEME_TRUE,t2,t5,t9,*((C_word*)lf[302]+1));} else{ t14=C_i_cdr(t11); /* posixunix.scm:1280: %process */ f_7347(t1,lf[415],C_SCHEME_TRUE,t2,t5,t9,*((C_word*)lf[302]+1));}} /* k7547 in chicken.process-context.posix#set-root-directory! in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7549,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=stub2190(C_SCHEME_UNDEFINED,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.process-context.posix#set-root-directory! in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_7554,3,av);} a=C_alloc(7); t3=C_i_check_string_2(t2,lf[416]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7571,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=t4; t6=t2; t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7549,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t8=C_i_foreign_string_argumentp(t6); /* posixunix.scm:1288: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[190]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[190]+1); av2[1]=t7; av2[2]=t8; tp(3,av2);}} /* k7569 in chicken.process-context.posix#set-root-directory! in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7571,2,av);} if(C_truep(C_fixnum_lessp(t1,C_fix(0)))){ /* posixunix.scm:1292: posix-error */ t2=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[188]; av2[3]=lf[416]; av2[4]=lf[417]; av2[5]=((C_word*)t0)[3]; f_2939(6,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.process#process-spawn in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7573,2,av);} /* posixunix.scm:1296: chicken.base#error */ t2=*((C_word*)lf[101]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[111]; av2[3]=lf[418]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.errno#errno in k5506 in k5475 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7579,2,av);} /* posix.scm:374: ##sys#errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[421]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[421]+1); av2[1]=t1; tp(2,av2);}} /* a7627 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7628,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7632,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:712: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[461]; tp(4,av2);}} /* k7630 in a7627 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7632,2,av);} a=C_alloc(8); t2=C_getpgid(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7635,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7641,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:715: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[93]+1); av2[1]=t4; tp(2,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7633 in k7630 in a7627 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7635,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7639 in k7630 in a7627 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7641,2,av);} /* posixunix.scm:716: ##sys#error */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[461]; av2[3]=lf[462]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7645 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7646,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7650,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:719: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[201]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[463]; tp(4,av2);}} /* k7648 in a7645 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7650,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7653,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:720: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[463]; tp(4,av2);}} /* k7651 in k7648 in a7645 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7653,2,av);} a=C_alloc(5); t2=C_setpgid(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7662,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* posixunix.scm:722: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[93]+1); av2[1]=t3; tp(2,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7660 in k7651 in k7648 in a7645 in k5327 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_7662,2,av);} /* posixunix.scm:723: ##sys#error */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[463]; av2[3]=lf[464]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* a7667 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7668,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=stub1530(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7670 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7671,3,av);} a=C_alloc(4); t3=C_setegid(t2); if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7681,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:643: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[93]+1); av2[1]=t4; tp(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k7679 in a7670 in k5323 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7681,2,av);} /* posixunix.scm:644: ##sys#error */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[467]; av2[3]=lf[468]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7686 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7687,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=stub1526(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7689 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7690,3,av);} a=C_alloc(4); t3=C_setgid(t2); if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7700,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:634: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[93]+1); av2[1]=t4; tp(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k7698 in a7689 in k5319 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7700,2,av);} /* posixunix.scm:635: ##sys#error */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[470]; av2[3]=lf[471]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7705 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7706,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=stub1522(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7708 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7709,3,av);} a=C_alloc(4); t3=C_seteuid(t2); if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7719,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:624: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[93]+1); av2[1]=t4; tp(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k7717 in a7708 in k5315 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7719,2,av);} /* posixunix.scm:625: ##sys#error */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[473]; av2[3]=lf[474]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7724 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7725,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=stub1518(C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7727 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_7728,3,av);} a=C_alloc(4); t3=C_setuid(t2); if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7738,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posixunix.scm:615: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[93]+1); av2[1]=t4; tp(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k7736 in a7727 in k5273 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7738,2,av);} /* posixunix.scm:616: ##sys#error */ t2=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[476]; av2[3]=lf[477]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7743 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_7744,2,av);} a=C_alloc(6); t2=C_sigprocmask_get(C_fix(0)); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7750,a[2]=t4,a[3]=((C_word)li213),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_7750(t6,t1,*((C_word*)lf[167]+1),C_SCHEME_END_OF_LIST);} /* loop in a7743 in k3857 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_fcall f_7750(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_7750,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t2; t6=C_u_i_cdr(t5); if(C_truep(C_sigismember(t4))){ t7=C_a_i_cons(&a,2,t4,t3); /* posixunix.scm:580: loop */ t9=t1; t10=t6; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;} else{ t7=t3; /* posixunix.scm:580: loop */ t9=t1; t10=t6; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}}} /* a7773 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7774,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7778,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:637: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[480]; tp(4,av2);}} /* k7776 in a7773 in k3622 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7778,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_slot(*((C_word*)lf[268]+1),((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7782 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_7783,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7790,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ /* posix-common.scm:562: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t6; av2[2]=t5; av2[3]=lf[482]; tp(4,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_7790(2,av2);}}} /* k7788 in a7782 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7790,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_umask(((C_word*)t0)[2]); if(C_truep(((C_word*)t0)[2])){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_umask(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=C_umask(C_fix(0)); if(C_truep(((C_word*)t0)[2])){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_umask(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* a7807 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7808,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7812,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:567: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[201]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[201]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[482]; tp(4,av2);}} /* k7810 in a7807 in k3405 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7812,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_umask(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7813 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7814,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7818,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7830,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* posix-common.scm:403: chicken.base#port? */ t5=*((C_word*)lf[193]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k7816 in a7813 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_7818,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7821,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_lessp(t2,C_fix(0)))){ /* posix-common.scm:412: posix-error */ t4=lf[183];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[188]; av2[3]=lf[484]; av2[4]=lf[485]; av2[5]=((C_word*)t0)[3]; f_2939(6,av2);}} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7819 in k7816 in a7813 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7821,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7828 in a7813 in k3188 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_7830,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(7)); t3=C_eqp(t2,lf[230]); if(C_truep(t3)){ t4=C_ftell(&a,1,((C_word*)t0)[2]); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; f_7818(2,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_fix(-1); f_7818(2,av2);}}} else{ if(C_truep(C_fixnump(((C_word*)t0)[2]))){ t2=C_lseek(((C_word*)t0)[2],C_fix(0),C_fix((C_word)SEEK_CUR)); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_7818(2,av2);}} else{ /* posix-common.scm:410: ##sys#signal-hook */ t2=*((C_word*)lf[90]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[191]; av2[3]=lf[484]; av2[4]=lf[486]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* a7850 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_7851,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7855,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:326: stat */ f_2957(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[199]);} /* k7853 in a7850 in k3184 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7855,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_stat_perm); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7856 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_7857,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7861,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:319: stat */ f_2957(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[489]);} /* k7859 in a7856 in k3180 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7861(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7861,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_gid); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a7862 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_7863,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7867,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* posix-common.scm:313: stat */ f_2957(t3,t2,C_SCHEME_FALSE,C_SCHEME_TRUE,lf[491]);} /* k7865 in a7862 in k2630 in k2627 in k2624 in k2621 in k2618 in k2615 */ static void C_ccall f_7867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7867,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_statbuf.st_uid); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_posix_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("posix")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_posix_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2639))){ C_save(t1); C_rereclaim2(2639*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,493); lf[0]=C_h_intern(&lf[0],5, C_text("posix")); lf[1]=C_h_intern(&lf[1],19, C_text("chicken.file.posix#")); lf[2]=C_h_intern(&lf[2],30, C_text("chicken.file.posix#create-fifo")); lf[3]=C_h_intern(&lf[3],39, C_text("chicken.file.posix#create-symbolic-link")); lf[4]=C_h_intern(&lf[4],37, C_text("chicken.file.posix#read-symbolic-link")); lf[5]=C_h_intern(&lf[5],35, C_text("chicken.file.posix#duplicate-fileno")); lf[6]=C_h_intern(&lf[6],30, C_text("chicken.file.posix#fcntl/dupfd")); lf[7]=C_h_intern(&lf[7],30, C_text("chicken.file.posix#fcntl/getfd")); lf[8]=C_h_intern(&lf[8],30, C_text("chicken.file.posix#fcntl/getfl")); lf[9]=C_h_intern(&lf[9],30, C_text("chicken.file.posix#fcntl/setfd")); lf[10]=C_h_intern(&lf[10],30, C_text("chicken.file.posix#fcntl/setfl")); lf[11]=C_h_intern(&lf[11],29, C_text("chicken.file.posix#file-close")); lf[12]=C_h_intern(&lf[12],31, C_text("chicken.file.posix#file-control")); lf[13]=C_h_intern(&lf[13],37, C_text("chicken.file.posix#file-creation-mode")); lf[14]=C_h_intern(&lf[14],29, C_text("chicken.file.posix#file-group")); lf[15]=C_h_intern(&lf[15],28, C_text("chicken.file.posix#file-link")); lf[16]=C_h_intern(&lf[16],28, C_text("chicken.file.posix#file-lock")); lf[17]=C_h_intern(&lf[17],37, C_text("chicken.file.posix#file-lock/blocking")); lf[18]=C_h_intern(&lf[18],31, C_text("chicken.file.posix#file-mkstemp")); lf[19]=C_h_intern(&lf[19],28, C_text("chicken.file.posix#file-open")); lf[20]=C_h_intern(&lf[20],29, C_text("chicken.file.posix#file-owner")); lf[21]=C_h_intern(&lf[21],35, C_text("chicken.file.posix#file-permissions")); lf[22]=C_h_intern(&lf[22],32, C_text("chicken.file.posix#file-position")); lf[23]=C_h_intern(&lf[23],28, C_text("chicken.file.posix#file-read")); lf[24]=C_h_intern(&lf[24],30, C_text("chicken.file.posix#file-select")); lf[25]=C_h_intern(&lf[25],33, C_text("chicken.file.posix#file-test-lock")); lf[26]=C_h_intern(&lf[26],32, C_text("chicken.file.posix#file-truncate")); lf[27]=C_h_intern(&lf[27],30, C_text("chicken.file.posix#file-unlock")); lf[28]=C_h_intern(&lf[28],29, C_text("chicken.file.posix#file-write")); lf[29]=C_h_intern(&lf[29],28, C_text("chicken.file.posix#file-type")); lf[30]=C_h_intern(&lf[30],32, C_text("chicken.file.posix#block-device\077")); lf[31]=C_h_intern(&lf[31],36, C_text("chicken.file.posix#character-device\077")); lf[32]=C_h_intern(&lf[32],29, C_text("chicken.file.posix#directory\077")); lf[33]=C_h_intern(&lf[33],24, C_text("chicken.file.posix#fifo\077")); lf[34]=C_h_intern(&lf[34],32, C_text("chicken.file.posix#regular-file\077")); lf[35]=C_h_intern(&lf[35],26, C_text("chicken.file.posix#socket\077")); lf[36]=C_h_intern(&lf[36],33, C_text("chicken.file.posix#symbolic-link\077")); lf[37]=C_h_intern(&lf[37],32, C_text("chicken.file.posix#fileno/stderr")); lf[38]=C_h_intern(&lf[38],31, C_text("chicken.file.posix#fileno/stdin")); lf[39]=C_h_intern(&lf[39],32, C_text("chicken.file.posix#fileno/stdout")); lf[40]=C_h_intern(&lf[40],35, C_text("chicken.file.posix#open-input-file\052")); lf[41]=C_h_intern(&lf[41],36, C_text("chicken.file.posix#open-output-file\052")); lf[42]=C_h_intern(&lf[42],30, C_text("chicken.file.posix#open/append")); lf[43]=C_h_intern(&lf[43],30, C_text("chicken.file.posix#open/binary")); lf[44]=C_h_intern(&lf[44],29, C_text("chicken.file.posix#open/creat")); lf[45]=C_h_intern(&lf[45],28, C_text("chicken.file.posix#open/excl")); lf[46]=C_h_intern(&lf[46],29, C_text("chicken.file.posix#open/fsync")); lf[47]=C_h_intern(&lf[47],30, C_text("chicken.file.posix#open/noctty")); lf[48]=C_h_intern(&lf[48],33, C_text("chicken.file.posix#open/noinherit")); lf[49]=C_h_intern(&lf[49],32, C_text("chicken.file.posix#open/nonblock")); lf[50]=C_h_intern(&lf[50],30, C_text("chicken.file.posix#open/rdonly")); lf[51]=C_h_intern(&lf[51],28, C_text("chicken.file.posix#open/rdwr")); lf[52]=C_h_intern(&lf[52],28, C_text("chicken.file.posix#open/read")); lf[53]=C_h_intern(&lf[53],28, C_text("chicken.file.posix#open/sync")); lf[54]=C_h_intern(&lf[54],28, C_text("chicken.file.posix#open/text")); lf[55]=C_h_intern(&lf[55],29, C_text("chicken.file.posix#open/trunc")); lf[56]=C_h_intern(&lf[56],29, C_text("chicken.file.posix#open/write")); lf[57]=C_h_intern(&lf[57],30, C_text("chicken.file.posix#open/wronly")); lf[58]=C_h_intern(&lf[58],29, C_text("chicken.file.posix#perm/irgrp")); lf[59]=C_h_intern(&lf[59],29, C_text("chicken.file.posix#perm/iroth")); lf[60]=C_h_intern(&lf[60],29, C_text("chicken.file.posix#perm/irusr")); lf[61]=C_h_intern(&lf[61],29, C_text("chicken.file.posix#perm/irwxg")); lf[62]=C_h_intern(&lf[62],29, C_text("chicken.file.posix#perm/irwxo")); lf[63]=C_h_intern(&lf[63],29, C_text("chicken.file.posix#perm/irwxu")); lf[64]=C_h_intern(&lf[64],29, C_text("chicken.file.posix#perm/isgid")); lf[65]=C_h_intern(&lf[65],29, C_text("chicken.file.posix#perm/isuid")); lf[66]=C_h_intern(&lf[66],29, C_text("chicken.file.posix#perm/isvtx")); lf[67]=C_h_intern(&lf[67],29, C_text("chicken.file.posix#perm/iwgrp")); lf[68]=C_h_intern(&lf[68],29, C_text("chicken.file.posix#perm/iwoth")); lf[69]=C_h_intern(&lf[69],29, C_text("chicken.file.posix#perm/iwusr")); lf[70]=C_h_intern(&lf[70],29, C_text("chicken.file.posix#perm/ixgrp")); lf[71]=C_h_intern(&lf[71],29, C_text("chicken.file.posix#perm/ixoth")); lf[72]=C_h_intern(&lf[72],29, C_text("chicken.file.posix#perm/ixusr")); lf[73]=C_h_intern(&lf[73],31, C_text("chicken.file.posix#port->fileno")); lf[74]=C_h_intern(&lf[74],27, C_text("chicken.file.posix#seek/cur")); lf[75]=C_h_intern(&lf[75],27, C_text("chicken.file.posix#seek/end")); lf[76]=C_h_intern(&lf[76],27, C_text("chicken.file.posix#seek/set")); lf[77]=C_h_intern(&lf[77],37, C_text("chicken.file.posix#set-file-position!")); lf[78]=C_h_intern(&lf[78],19, C_text("chicken.time.posix#")); lf[79]=C_h_intern(&lf[79],36, C_text("chicken.time.posix#seconds->utc-time")); lf[80]=C_h_intern(&lf[80],36, C_text("chicken.time.posix#utc-time->seconds")); lf[81]=C_h_intern(&lf[81],38, C_text("chicken.time.posix#seconds->local-time")); lf[82]=C_h_intern(&lf[82],34, C_text("chicken.time.posix#seconds->string")); lf[83]=C_h_intern(&lf[83],38, C_text("chicken.time.posix#local-time->seconds")); lf[84]=C_h_intern(&lf[84],31, C_text("chicken.time.posix#string->time")); lf[85]=C_h_intern(&lf[85],31, C_text("chicken.time.posix#time->string")); lf[86]=C_h_intern(&lf[86],46, C_text("chicken.time.posix#local-timezone-abbreviation")); lf[87]=C_h_intern(&lf[87],16, C_text("chicken.process#")); lf[88]=C_h_intern(&lf[88],22, C_text("chicken.process#system")); lf[89]=C_h_intern(&lf[89],6, C_text("system")); lf[90]=C_h_intern(&lf[90],17, C_text("##sys#signal-hook")); lf[91]=C_h_intern_kw(&lf[91],13, C_text("process-error")); lf[92]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032`system\047 invocation failed")); lf[93]=C_h_intern(&lf[93],18, C_text("##sys#update-errno")); lf[94]=C_h_intern(&lf[94],23, C_text("chicken.process#system\052")); lf[95]=C_h_intern(&lf[95],11, C_text("##sys#error")); lf[96]=C_decode_literal(C_heaptop,C_text("\376B\000\0003shell invocation failed with non-zero return status")); lf[97]=C_h_intern(&lf[97],18, C_text("chicken.process#qs")); lf[98]=C_h_intern(&lf[98],7, C_text("mingw32")); lf[99]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\042\042")); lf[100]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004\047\134\047\047")); lf[101]=C_h_intern(&lf[101],18, C_text("chicken.base#error")); lf[102]=C_h_intern(&lf[102],2, C_text("qs")); lf[103]=C_decode_literal(C_heaptop,C_text("\376B\000\0004NUL character can not be represented in shell string")); lf[104]=C_h_intern(&lf[104],20, C_text("scheme#string-append")); lf[105]=C_h_intern(&lf[105],18, C_text("##sys#string->list")); lf[106]=C_h_intern(&lf[106],33, C_text("chicken.platform#software-version")); lf[107]=C_h_intern(&lf[107],31, C_text("chicken.process#process-execute")); lf[108]=C_h_intern(&lf[108],28, C_text("chicken.process#process-fork")); lf[109]=C_h_intern(&lf[109],27, C_text("chicken.process#process-run")); lf[110]=C_h_intern(&lf[110],30, C_text("chicken.process#process-signal")); lf[111]=C_h_intern(&lf[111],29, C_text("chicken.process#process-spawn")); lf[112]=C_h_intern(&lf[112],28, C_text("chicken.process#process-wait")); lf[113]=C_h_intern(&lf[113],36, C_text("chicken.process#call-with-input-pipe")); lf[114]=C_h_intern(&lf[114],37, C_text("chicken.process#call-with-output-pipe")); lf[115]=C_h_intern(&lf[115],32, C_text("chicken.process#close-input-pipe")); lf[116]=C_h_intern(&lf[116],33, C_text("chicken.process#close-output-pipe")); lf[117]=C_h_intern(&lf[117],27, C_text("chicken.process#create-pipe")); lf[118]=C_h_intern(&lf[118],31, C_text("chicken.process#open-input-pipe")); lf[119]=C_h_intern(&lf[119],32, C_text("chicken.process#open-output-pipe")); lf[120]=C_h_intern(&lf[120],36, C_text("chicken.process#with-input-from-pipe")); lf[121]=C_h_intern(&lf[121],35, C_text("chicken.process#with-output-to-pipe")); lf[122]=C_h_intern(&lf[122],23, C_text("chicken.process#process")); lf[123]=C_h_intern(&lf[123],24, C_text("chicken.process#process\052")); lf[124]=C_h_intern(&lf[124],29, C_text("chicken.process#process-sleep")); lf[125]=C_h_intern(&lf[125],24, C_text("chicken.process#pipe/buf")); lf[126]=C_h_intern(&lf[126],29, C_text("chicken.process#spawn/overlay")); lf[127]=C_h_intern(&lf[127],26, C_text("chicken.process#spawn/wait")); lf[128]=C_h_intern(&lf[128],28, C_text("chicken.process#spawn/nowait")); lf[129]=C_h_intern(&lf[129],29, C_text("chicken.process#spawn/nowaito")); lf[130]=C_h_intern(&lf[130],28, C_text("chicken.process#spawn/detach")); lf[131]=C_h_intern(&lf[131],23, C_text("chicken.process.signal#")); lf[132]=C_h_intern(&lf[132],33, C_text("chicken.process.signal#set-alarm!")); lf[133]=C_h_intern(&lf[133],42, C_text("chicken.process.signal#set-signal-handler!")); lf[134]=C_h_intern(&lf[134],39, C_text("chicken.process.signal#set-signal-mask!")); lf[135]=C_h_intern(&lf[135],37, C_text("chicken.process.signal#signal-handler")); lf[136]=C_h_intern(&lf[136],34, C_text("chicken.process.signal#signal-mask")); lf[137]=C_h_intern(&lf[137],35, C_text("chicken.process.signal#signal-mask!")); lf[138]=C_h_intern(&lf[138],37, C_text("chicken.process.signal#signal-masked\077")); lf[139]=C_h_intern(&lf[139],37, C_text("chicken.process.signal#signal-unmask!")); lf[140]=C_h_intern(&lf[140],34, C_text("chicken.process.signal#signal/abrt")); lf[141]=C_h_intern(&lf[141],34, C_text("chicken.process.signal#signal/alrm")); lf[142]=C_h_intern(&lf[142],35, C_text("chicken.process.signal#signal/break")); lf[143]=C_h_intern(&lf[143],33, C_text("chicken.process.signal#signal/bus")); lf[144]=C_h_intern(&lf[144],34, C_text("chicken.process.signal#signal/chld")); lf[145]=C_h_intern(&lf[145],34, C_text("chicken.process.signal#signal/cont")); lf[146]=C_h_intern(&lf[146],33, C_text("chicken.process.signal#signal/fpe")); lf[147]=C_h_intern(&lf[147],33, C_text("chicken.process.signal#signal/hup")); lf[148]=C_h_intern(&lf[148],33, C_text("chicken.process.signal#signal/ill")); lf[149]=C_h_intern(&lf[149],33, C_text("chicken.process.signal#signal/int")); lf[150]=C_h_intern(&lf[150],32, C_text("chicken.process.signal#signal/io")); lf[151]=C_h_intern(&lf[151],34, C_text("chicken.process.signal#signal/kill")); lf[152]=C_h_intern(&lf[152],34, C_text("chicken.process.signal#signal/pipe")); lf[153]=C_h_intern(&lf[153],34, C_text("chicken.process.signal#signal/prof")); lf[154]=C_h_intern(&lf[154],34, C_text("chicken.process.signal#signal/quit")); lf[155]=C_h_intern(&lf[155],34, C_text("chicken.process.signal#signal/segv")); lf[156]=C_h_intern(&lf[156],34, C_text("chicken.process.signal#signal/stop")); lf[157]=C_h_intern(&lf[157],34, C_text("chicken.process.signal#signal/term")); lf[158]=C_h_intern(&lf[158],34, C_text("chicken.process.signal#signal/trap")); lf[159]=C_h_intern(&lf[159],34, C_text("chicken.process.signal#signal/tstp")); lf[160]=C_h_intern(&lf[160],33, C_text("chicken.process.signal#signal/urg")); lf[161]=C_h_intern(&lf[161],34, C_text("chicken.process.signal#signal/usr1")); lf[162]=C_h_intern(&lf[162],34, C_text("chicken.process.signal#signal/usr2")); lf[163]=C_h_intern(&lf[163],36, C_text("chicken.process.signal#signal/vtalrm")); lf[164]=C_h_intern(&lf[164],35, C_text("chicken.process.signal#signal/winch")); lf[165]=C_h_intern(&lf[165],34, C_text("chicken.process.signal#signal/xcpu")); lf[166]=C_h_intern(&lf[166],34, C_text("chicken.process.signal#signal/xfsz")); lf[167]=C_h_intern(&lf[167],35, C_text("chicken.process.signal#signals-list")); lf[168]=C_h_intern(&lf[168],30, C_text("chicken.process-context.posix#")); lf[169]=C_h_intern(&lf[169],47, C_text("chicken.process-context.posix#change-directory\052")); lf[170]=C_h_intern(&lf[170],49, C_text("chicken.process-context.posix#set-root-directory!")); lf[171]=C_h_intern(&lf[171],56, C_text("chicken.process-context.posix#current-effective-group-id")); lf[172]=C_h_intern(&lf[172],55, C_text("chicken.process-context.posix#current-effective-user-id")); lf[173]=C_h_intern(&lf[173],46, C_text("chicken.process-context.posix#current-group-id")); lf[174]=C_h_intern(&lf[174],45, C_text("chicken.process-context.posix#current-user-id")); lf[175]=C_h_intern(&lf[175],48, C_text("chicken.process-context.posix#current-process-id")); lf[176]=C_h_intern(&lf[176],47, C_text("chicken.process-context.posix#parent-process-id")); lf[177]=C_h_intern(&lf[177],47, C_text("chicken.process-context.posix#current-user-name")); lf[178]=C_h_intern(&lf[178],57, C_text("chicken.process-context.posix#current-effective-user-name")); lf[179]=C_h_intern(&lf[179],44, C_text("chicken.process-context.posix#create-session")); lf[180]=C_h_intern(&lf[180],46, C_text("chicken.process-context.posix#process-group-id")); lf[181]=C_h_intern(&lf[181],46, C_text("chicken.process-context.posix#user-information")); lf[182]=C_h_intern(&lf[182],14, C_text("chicken.posix#")); lf[184]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 - ")); lf[185]=C_h_intern(&lf[185],19, C_text("##sys#peek-c-string")); lf[186]=C_h_intern(&lf[186],17, C_text("##sys#posix-error")); lf[188]=C_h_intern_kw(&lf[188],10, C_text("file-error")); lf[189]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022cannot access file")); lf[190]=C_h_intern(&lf[190],19, C_text("##sys#make-c-string")); lf[191]=C_h_intern_kw(&lf[191],10, C_text("type-error")); lf[192]=C_decode_literal(C_heaptop,C_text("\376B\000\0000bad argument type - not a fixnum, port or string")); lf[193]=C_h_intern(&lf[193],18, C_text("chicken.base#port\077")); lf[194]=C_h_intern(&lf[194],28, C_text("chicken.file.posix#file-stat")); lf[195]=C_h_intern(&lf[195],9, C_text("file-stat")); lf[196]=C_h_intern(&lf[196],40, C_text("chicken.file.posix#set-file-permissions!")); lf[197]=C_h_intern(&lf[197],21, C_text("set-file-permissions!")); lf[198]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036cannot change file permissions")); lf[199]=C_h_intern(&lf[199],16, C_text("file-permissions")); lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\0000bad argument type - not a fixnum, port or string")); lf[201]=C_h_intern(&lf[201],18, C_text("##sys#check-fixnum")); lf[202]=C_h_intern(&lf[202],41, C_text("chicken.file.posix#file-modification-time")); lf[203]=C_h_intern(&lf[203],22, C_text("file-modification-time")); lf[204]=C_h_intern(&lf[204],35, C_text("chicken.file.posix#file-access-time")); lf[205]=C_h_intern(&lf[205],16, C_text("file-access-time")); lf[206]=C_h_intern(&lf[206],35, C_text("chicken.file.posix#file-change-time")); lf[207]=C_h_intern(&lf[207],16, C_text("file-change-time")); lf[208]=C_h_intern(&lf[208],34, C_text("chicken.file.posix#set-file-times!")); lf[209]=C_h_intern(&lf[209],15, C_text("set-file-times!")); lf[210]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025cannot set file times")); lf[211]=C_h_intern(&lf[211],25, C_text("##sys#check-exact-integer")); lf[212]=C_h_intern(&lf[212],28, C_text("chicken.time#current-seconds")); lf[213]=C_h_intern(&lf[213],28, C_text("chicken.file.posix#file-size")); lf[214]=C_h_intern(&lf[214],9, C_text("file-size")); lf[215]=C_h_intern(&lf[215],34, C_text("chicken.file.posix#set-file-owner!")); lf[217]=C_h_intern(&lf[217],15, C_text("set-file-owner!")); lf[218]=C_h_intern(&lf[218],34, C_text("chicken.file.posix#set-file-group!")); lf[219]=C_h_intern(&lf[219],15, C_text("set-file-group!")); lf[220]=C_h_intern(&lf[220],12, C_text("regular-file")); lf[221]=C_h_intern(&lf[221],13, C_text("symbolic-link")); lf[222]=C_h_intern(&lf[222],9, C_text("directory")); lf[223]=C_h_intern(&lf[223],16, C_text("character-device")); lf[224]=C_h_intern(&lf[224],12, C_text("block-device")); lf[225]=C_h_intern(&lf[225],4, C_text("fifo")); lf[226]=C_h_intern(&lf[226],6, C_text("socket")); lf[227]=C_h_intern(&lf[227],9, C_text("file-type")); lf[228]=C_h_intern(&lf[228],18, C_text("set-file-position!")); lf[229]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030cannot set file position")); lf[230]=C_h_intern(&lf[230],6, C_text("stream")); lf[231]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014invalid file")); lf[232]=C_h_intern_kw(&lf[232],6, C_text("append")); lf[233]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001a")); lf[234]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033invalid mode for input file")); lf[235]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025invalid mode argument")); lf[236]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001r")); lf[237]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001w")); lf[238]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020cannot open file")); lf[239]=C_h_intern(&lf[239],15, C_text("##sys#make-port")); lf[240]=C_h_intern(&lf[240],23, C_text("##sys#stream-port-class")); lf[241]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(fdport)")); lf[242]=C_h_intern(&lf[242],16, C_text("open-input-file\052")); lf[243]=C_h_intern(&lf[243],17, C_text("open-output-file\052")); lf[244]=C_h_intern(&lf[244],12, C_text("port->fileno")); lf[245]=C_h_intern(&lf[245],15, C_text("##sys#port-data")); lf[246]=C_decode_literal(C_heaptop,C_text("\376B\000\000%cannot access file-descriptor of port")); lf[247]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031port has no attached file")); lf[248]=C_h_intern(&lf[248],27, C_text("##sys#peek-unsigned-integer")); lf[249]=C_h_intern(&lf[249],16, C_text("duplicate-fileno")); lf[250]=C_decode_literal(C_heaptop,C_text("\376B\000\000 cannot duplicate file-descriptor")); lf[251]=C_h_intern(&lf[251],17, C_text("change-directory\052")); lf[252]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037cannot change current directory")); lf[253]=C_h_intern(&lf[253],27, C_text("##sys#change-directory-hook")); lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025time vector too short")); lf[257]=C_h_intern(&lf[257],19, C_text("seconds->local-time")); lf[258]=C_h_intern(&lf[258],17, C_text("seconds->utc-time")); lf[259]=C_h_intern(&lf[259],15, C_text("##sys#substring")); lf[260]=C_h_intern(&lf[260],15, C_text("seconds->string")); lf[261]=C_decode_literal(C_heaptop,C_text("\376B\000\000 cannot convert seconds to string")); lf[262]=C_h_intern(&lf[262],19, C_text("local-time->seconds")); lf[263]=C_decode_literal(C_heaptop,C_text("\376B\000\000%cannot convert time vector to seconds")); lf[264]=C_h_intern(&lf[264],17, C_text("##sys#make-string")); lf[265]=C_h_intern(&lf[265],12, C_text("time->string")); lf[266]=C_decode_literal(C_heaptop,C_text("\376B\000\000 time formatting overflows buffer")); lf[267]=C_decode_literal(C_heaptop,C_text("\376B\000\000$cannot convert time vector to string")); lf[268]=C_h_intern(&lf[268],19, C_text("##sys#signal-vector")); lf[269]=C_h_intern(&lf[269],19, C_text("set-signal-handler!")); lf[270]=C_h_intern(&lf[270],13, C_text("process-sleep")); lf[272]=C_h_intern(&lf[272],12, C_text("process-wait")); lf[273]=C_decode_literal(C_heaptop,C_text("\376B\000\000 waiting for child process failed")); lf[275]=C_h_intern(&lf[275],24, C_text("chicken.condition#signal")); lf[277]=C_h_intern(&lf[277],34, C_text("chicken.memory#pointer-vector-set!")); lf[278]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015Out of memory")); lf[279]=C_h_intern(&lf[279],40, C_text("chicken.condition#with-exception-handler")); lf[280]=C_h_intern(&lf[280],37, C_text("scheme#call-with-current-continuation")); lf[281]=C_h_intern(&lf[281],34, C_text("chicken.memory#make-pointer-vector")); lf[282]=C_h_intern(&lf[282],19, C_text("chicken.memory#free")); lf[283]=C_h_intern(&lf[283],33, C_text("chicken.memory#pointer-vector-ref")); lf[284]=C_h_intern(&lf[284],36, C_text("chicken.memory#pointer-vector-length")); lf[286]=C_h_intern(&lf[286],41, C_text("chicken.pathname#pathname-strip-directory")); lf[288]=C_h_intern(&lf[288],3, C_text("map")); lf[289]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001=")); lf[290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020cannot open pipe")); lf[291]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006(pipe)")); lf[292]=C_h_intern(&lf[292],15, C_text("open-input-pipe")); lf[293]=C_h_intern_kw(&lf[293],4, C_text("text")); lf[294]=C_h_intern_kw(&lf[294],6, C_text("binary")); lf[295]=C_decode_literal(C_heaptop,C_text("\376B\000\000#illegal input/output mode specifier")); lf[296]=C_h_intern(&lf[296],16, C_text("open-output-pipe")); lf[297]=C_h_intern(&lf[297],16, C_text("close-input-pipe")); lf[298]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030error while closing pipe")); lf[299]=C_h_intern(&lf[299],17, C_text("close-output-pipe")); lf[300]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030error while closing pipe")); lf[301]=C_h_intern(&lf[301],20, C_text("##sys#standard-input")); lf[302]=C_h_intern(&lf[302],13, C_text("scheme#values")); lf[303]=C_h_intern(&lf[303],18, C_text("##sys#dynamic-wind")); lf[304]=C_h_intern(&lf[304],21, C_text("##sys#standard-output")); lf[305]=C_h_intern(&lf[305],23, C_text("##sys#file-nonblocking!")); lf[306]=C_h_intern(&lf[306],21, C_text("##sys#file-select-one")); lf[307]=C_h_intern(&lf[307],12, C_text("file-control")); lf[308]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023cannot control file")); lf[309]=C_h_intern(&lf[309],9, C_text("file-open")); lf[310]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020cannot open file")); lf[311]=C_h_intern(&lf[311],24, C_text("##sys#dispatch-interrupt")); lf[312]=C_h_intern(&lf[312],10, C_text("file-close")); lf[313]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021cannot close file")); lf[314]=C_h_intern(&lf[314],9, C_text("file-read")); lf[315]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025cannot read from file")); lf[316]=C_decode_literal(C_heaptop,C_text("\376B\000\000(bad argument type - not a string or blob")); lf[317]=C_h_intern(&lf[317],18, C_text("scheme#make-string")); lf[318]=C_h_intern(&lf[318],10, C_text("file-write")); lf[319]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024cannot write to file")); lf[320]=C_decode_literal(C_heaptop,C_text("\376B\000\000(bad argument type - not a string or blob")); lf[321]=C_h_intern(&lf[321],12, C_text("file-mkstemp")); lf[322]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034cannot create temporary file")); lf[323]=C_h_intern(&lf[323],11, C_text("file-select")); lf[324]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006failed")); lf[325]=C_h_intern(&lf[325],18, C_text("##sys#fast-reverse")); lf[326]=C_h_intern(&lf[326],10, C_text("scheme#max")); lf[327]=C_h_intern(&lf[327],15, C_text("##sys#make-blob")); lf[328]=C_h_intern(&lf[328],11, C_text("create-pipe")); lf[329]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022cannot create pipe")); lf[330]=C_h_intern(&lf[330],16, C_text("set-signal-mask!")); lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026cannot set signal mask")); lf[332]=C_h_intern(&lf[332],14, C_text("signal-masked\077")); lf[333]=C_h_intern(&lf[333],12, C_text("signal-mask!")); lf[334]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023cannot block signal")); lf[335]=C_h_intern(&lf[335],14, C_text("signal-unmask!")); lf[336]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025cannot unblock signal")); lf[337]=C_h_intern(&lf[337],13, C_text("scheme#vector")); lf[338]=C_h_intern(&lf[338],11, C_text("scheme#list")); lf[339]=C_h_intern(&lf[339],27, C_text("##sys#peek-nonnull-c-string")); lf[340]=C_h_intern(&lf[340],16, C_text("user-information")); lf[341]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030cannot change file owner")); lf[342]=C_decode_literal(C_heaptop,C_text("\376B\000\0000bad argument type - not a fixnum, port or string")); lf[343]=C_h_intern(&lf[343],14, C_text("create-session")); lf[344]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025cannot create session")); lf[345]=C_h_intern(&lf[345],20, C_text("create-symbolic-link")); lf[346]=C_h_intern(&lf[346],18, C_text("create-symbol-link")); lf[347]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033cannot create symbolic link")); lf[348]=C_h_intern(&lf[348],24, C_text("##sys#read-symbolic-link")); lf[349]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031cannot read symbolic link")); lf[350]=C_h_intern(&lf[350],16, C_text("scheme#substring")); lf[351]=C_h_intern(&lf[351],18, C_text("read-symbolic-link")); lf[352]=C_h_intern(&lf[352],36, C_text("chicken.pathname#decompose-directory")); lf[353]=C_h_intern(&lf[353],30, C_text("chicken.pathname#make-pathname")); lf[354]=C_h_intern(&lf[354],35, C_text("chicken.pathname#absolute-pathname\077")); lf[355]=C_decode_literal(C_heaptop,C_text("\376B\000\000Icould not canonicalize path with symbolic links, component does not exist")); lf[356]=C_h_intern(&lf[356],18, C_text("##sys#file-exists\077")); lf[357]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[358]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[359]=C_h_intern(&lf[359],9, C_text("file-link")); lf[360]=C_h_intern(&lf[360],9, C_text("hard-link")); lf[361]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032could not create hard link")); lf[362]=C_h_intern(&lf[362],23, C_text("##sys#custom-input-port")); lf[363]=C_h_intern(&lf[363],17, C_text("chicken.base#void")); lf[364]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015cannot select")); lf[365]=C_h_intern(&lf[365],19, C_text("##sys#thread-yield!")); lf[366]=C_h_intern(&lf[366],27, C_text("##sys#thread-block-for-i/o!")); lf[367]=C_h_intern(&lf[367],20, C_text("##sys#current-thread")); lf[368]=C_h_intern_kw(&lf[368],5, C_text("input")); lf[369]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013cannot read")); lf[370]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013cannot read")); lf[371]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014cannot close")); lf[372]=C_h_intern(&lf[372],35, C_text("chicken.fixnum#most-positive-fixnum")); lf[373]=C_h_intern(&lf[373],22, C_text("##sys#scan-buffer-line")); lf[374]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[375]=C_h_intern(&lf[375],28, C_text("chicken.port#make-input-port")); lf[376]=C_h_intern(&lf[376],24, C_text("##sys#custom-output-port")); lf[377]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014cannot write")); lf[378]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014cannot close")); lf[379]=C_h_intern(&lf[379],29, C_text("chicken.port#make-output-port")); lf[380]=C_h_intern(&lf[380],13, C_text("file-truncate")); lf[381]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024cannot truncate file")); lf[382]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014invalid file")); lf[383]=C_h_intern(&lf[383],4, C_text("lock")); lf[384]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020cannot lock file")); lf[385]=C_h_intern(&lf[385],9, C_text("file-lock")); lf[386]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020cannot lock file")); lf[387]=C_h_intern(&lf[387],18, C_text("file-lock/blocking")); lf[388]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022cannot unlock file")); lf[389]=C_h_intern(&lf[389],14, C_text("file-test-lock")); lf[390]=C_h_intern(&lf[390],11, C_text("file-unlock")); lf[391]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022cannot unlock file")); lf[392]=C_h_intern(&lf[392],11, C_text("create-fifo")); lf[393]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022cannot create FIFO")); lf[394]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027%a %b %e %H:%M:%S %Z %Y")); lf[395]=C_h_intern(&lf[395],12, C_text("string->time")); lf[396]=C_h_intern(&lf[396],17, C_text("utc-time->seconds")); lf[397]=C_decode_literal(C_heaptop,C_text("\376B\000\000%cannot convert time vector to seconds")); lf[398]=C_h_intern(&lf[398],24, C_text("##sys#kill-other-threads")); lf[399]=C_h_intern(&lf[399],17, C_text("chicken.base#exit")); lf[400]=C_h_intern(&lf[400],23, C_text("##sys#call-with-cthulhu")); lf[401]=C_h_intern(&lf[401],12, C_text("process-fork")); lf[402]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033cannot create child process")); lf[403]=C_h_intern(&lf[403],15, C_text("process-execute")); lf[404]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026cannot execute process")); lf[405]=C_h_intern(&lf[405],14, C_text("process-signal")); lf[406]=C_decode_literal(C_heaptop,C_text("\376B\000\000 could not send signal to process")); lf[408]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007/bin/sh")); lf[409]=C_h_intern(&lf[409],48, C_text("chicken.process-context#get-environment-variable")); lf[410]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005SHELL")); lf[411]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-c")); lf[412]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025abnormal process exit")); lf[414]=C_h_intern(&lf[414],7, C_text("process")); lf[415]=C_h_intern(&lf[415],8, C_text("process\052")); lf[416]=C_h_intern(&lf[416],19, C_text("set-root-directory!")); lf[417]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037unable to change root directory")); lf[418]=C_decode_literal(C_heaptop,C_text("\376B\000\000/this function is not available on this platform")); lf[419]=C_h_intern(&lf[419],14, C_text("chicken.errno#")); lf[420]=C_h_intern(&lf[420],19, C_text("chicken.errno#errno")); lf[421]=C_h_intern(&lf[421],11, C_text("##sys#errno")); lf[422]=C_h_intern(&lf[422],24, C_text("chicken.errno#errno/2big")); lf[423]=C_h_intern(&lf[423],25, C_text("chicken.errno#errno/acces")); lf[424]=C_h_intern(&lf[424],25, C_text("chicken.errno#errno/again")); lf[425]=C_h_intern(&lf[425],24, C_text("chicken.errno#errno/badf")); lf[426]=C_h_intern(&lf[426],24, C_text("chicken.errno#errno/busy")); lf[427]=C_h_intern(&lf[427],25, C_text("chicken.errno#errno/child")); lf[428]=C_h_intern(&lf[428],26, C_text("chicken.errno#errno/deadlk")); lf[429]=C_h_intern(&lf[429],23, C_text("chicken.errno#errno/dom")); lf[430]=C_h_intern(&lf[430],25, C_text("chicken.errno#errno/exist")); lf[431]=C_h_intern(&lf[431],25, C_text("chicken.errno#errno/fault")); lf[432]=C_h_intern(&lf[432],24, C_text("chicken.errno#errno/fbig")); lf[433]=C_h_intern(&lf[433],25, C_text("chicken.errno#errno/ilseq")); lf[434]=C_h_intern(&lf[434],24, C_text("chicken.errno#errno/intr")); lf[435]=C_h_intern(&lf[435],25, C_text("chicken.errno#errno/inval")); lf[436]=C_h_intern(&lf[436],22, C_text("chicken.errno#errno/io")); lf[437]=C_h_intern(&lf[437],25, C_text("chicken.errno#errno/isdir")); lf[438]=C_h_intern(&lf[438],25, C_text("chicken.errno#errno/mfile")); lf[439]=C_h_intern(&lf[439],25, C_text("chicken.errno#errno/mlink")); lf[440]=C_h_intern(&lf[440],31, C_text("chicken.errno#errno/nametoolong")); lf[441]=C_h_intern(&lf[441],25, C_text("chicken.errno#errno/nfile")); lf[442]=C_h_intern(&lf[442],25, C_text("chicken.errno#errno/nodev")); lf[443]=C_h_intern(&lf[443],25, C_text("chicken.errno#errno/noent")); lf[444]=C_h_intern(&lf[444],26, C_text("chicken.errno#errno/noexec")); lf[445]=C_h_intern(&lf[445],25, C_text("chicken.errno#errno/nolck")); lf[446]=C_h_intern(&lf[446],25, C_text("chicken.errno#errno/nomem")); lf[447]=C_h_intern(&lf[447],25, C_text("chicken.errno#errno/nospc")); lf[448]=C_h_intern(&lf[448],25, C_text("chicken.errno#errno/nosys")); lf[449]=C_h_intern(&lf[449],26, C_text("chicken.errno#errno/notdir")); lf[450]=C_h_intern(&lf[450],28, C_text("chicken.errno#errno/notempty")); lf[451]=C_h_intern(&lf[451],25, C_text("chicken.errno#errno/notty")); lf[452]=C_h_intern(&lf[452],24, C_text("chicken.errno#errno/nxio")); lf[453]=C_h_intern(&lf[453],24, C_text("chicken.errno#errno/perm")); lf[454]=C_h_intern(&lf[454],24, C_text("chicken.errno#errno/pipe")); lf[455]=C_h_intern(&lf[455],25, C_text("chicken.errno#errno/range")); lf[456]=C_h_intern(&lf[456],24, C_text("chicken.errno#errno/rofs")); lf[457]=C_h_intern(&lf[457],25, C_text("chicken.errno#errno/spipe")); lf[458]=C_h_intern(&lf[458],24, C_text("chicken.errno#errno/srch")); lf[459]=C_h_intern(&lf[459],30, C_text("chicken.errno#errno/wouldblock")); lf[460]=C_h_intern(&lf[460],24, C_text("chicken.errno#errno/xdev")); lf[461]=C_h_intern(&lf[461],16, C_text("process-group-id")); lf[462]=C_decode_literal(C_heaptop,C_text("\376B\000\000 cannot retrieve process group ID")); lf[463]=C_h_intern(&lf[463],13, C_text("process-group")); lf[464]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033cannot set process group ID")); lf[465]=C_h_intern(&lf[465],31, C_text("chicken.base#getter-with-setter")); lf[466]=C_decode_literal(C_heaptop,C_text("\376B\000\0004(chicken.process-context.posix#process-group-id pid)")); lf[467]=C_h_intern(&lf[467],26, C_text("effective-group-id!-setter")); lf[468]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035cannot set effective group ID")); lf[469]=C_decode_literal(C_heaptop,C_text("\376B\000\000:(chicken.process-context.posix#current-effective-group-id)")); lf[470]=C_h_intern(&lf[470],24, C_text("current-group-id!-setter")); lf[471]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023cannot set group ID")); lf[472]=C_decode_literal(C_heaptop,C_text("\376B\000\0000(chicken.process-context.posix#current-group-id)")); lf[473]=C_h_intern(&lf[473],25, C_text("effective-user-id!-setter")); lf[474]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034cannot set effective user ID")); lf[475]=C_decode_literal(C_heaptop,C_text("\376B\000\0009(chicken.process-context.posix#current-effective-user-id)")); lf[476]=C_h_intern(&lf[476],23, C_text("current-user-id!-setter")); lf[477]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022cannot set user ID")); lf[478]=C_decode_literal(C_heaptop,C_text("\376B\000\000/(chicken.process-context.posix#current-user-id)")); lf[479]=C_decode_literal(C_heaptop,C_text("\376B\000\000$(chicken.process.signal#signal-mask)")); lf[480]=C_h_intern(&lf[480],14, C_text("signal-handler")); lf[481]=C_decode_literal(C_heaptop,C_text("\376B\000\000+(chicken.process.signal#signal-handler sig)")); lf[482]=C_h_intern(&lf[482],18, C_text("file-creation-mode")); lf[483]=C_decode_literal(C_heaptop,C_text("\376B\000\000,(chicken.file.posix#file-creation-mode mode)")); lf[484]=C_h_intern(&lf[484],13, C_text("file-position")); lf[485]=C_decode_literal(C_heaptop,C_text("\376B\000\000%cannot retrieve file position of port")); lf[486]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014invalid file")); lf[487]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047(chicken.file.posix#file-position port)")); lf[488]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047(chicken.file.posix#file-permissions f)")); lf[489]=C_h_intern(&lf[489],10, C_text("file-group")); lf[490]=C_decode_literal(C_heaptop,C_text("\376B\000\000!(chicken.file.posix#file-group f)")); lf[491]=C_h_intern(&lf[491],10, C_text("file-owner")); lf[492]=C_decode_literal(C_heaptop,C_text("\376B\000\000!(chicken.file.posix#file-owner f)")); C_register_lf2(lf,493,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2617,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_scheduler_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[525] = { {C_text("f_2617:posix_2escm"),(void*)f_2617}, {C_text("f_2620:posix_2escm"),(void*)f_2620}, {C_text("f_2623:posix_2escm"),(void*)f_2623}, {C_text("f_2626:posix_2escm"),(void*)f_2626}, {C_text("f_2629:posix_2escm"),(void*)f_2629}, {C_text("f_2632:posix_2escm"),(void*)f_2632}, {C_text("f_2718:posix_2escm"),(void*)f_2718}, {C_text("f_2731:posix_2escm"),(void*)f_2731}, {C_text("f_2736:posix_2escm"),(void*)f_2736}, {C_text("f_2740:posix_2escm"),(void*)f_2740}, {C_text("f_2752:posix_2escm"),(void*)f_2752}, {C_text("f_2756:posix_2escm"),(void*)f_2756}, {C_text("f_2766:posix_2escm"),(void*)f_2766}, {C_text("f_2787:posix_2escm"),(void*)f_2787}, {C_text("f_2790:posix_2escm"),(void*)f_2790}, {C_text("f_2801:posix_2escm"),(void*)f_2801}, {C_text("f_2807:posix_2escm"),(void*)f_2807}, {C_text("f_2832:posix_2escm"),(void*)f_2832}, {C_text("f_2939:posix_2escm"),(void*)f_2939}, {C_text("f_2943:posix_2escm"),(void*)f_2943}, {C_text("f_2950:posix_2escm"),(void*)f_2950}, {C_text("f_2954:posix_2escm"),(void*)f_2954}, {C_text("f_2957:posix_2escm"),(void*)f_2957}, {C_text("f_2961:posix_2escm"),(void*)f_2961}, {C_text("f_2982:posix_2escm"),(void*)f_2982}, {C_text("f_2986:posix_2escm"),(void*)f_2986}, {C_text("f_2995:posix_2escm"),(void*)f_2995}, {C_text("f_3003:posix_2escm"),(void*)f_3003}, {C_text("f_3010:posix_2escm"),(void*)f_3010}, {C_text("f_3021:posix_2escm"),(void*)f_3021}, {C_text("f_3025:posix_2escm"),(void*)f_3025}, {C_text("f_3028:posix_2escm"),(void*)f_3028}, {C_text("f_3046:posix_2escm"),(void*)f_3046}, {C_text("f_3050:posix_2escm"),(void*)f_3050}, {C_text("f_3060:posix_2escm"),(void*)f_3060}, {C_text("f_3065:posix_2escm"),(void*)f_3065}, {C_text("f_3069:posix_2escm"),(void*)f_3069}, {C_text("f_3071:posix_2escm"),(void*)f_3071}, {C_text("f_3075:posix_2escm"),(void*)f_3075}, {C_text("f_3077:posix_2escm"),(void*)f_3077}, {C_text("f_3081:posix_2escm"),(void*)f_3081}, {C_text("f_3083:posix_2escm"),(void*)f_3083}, {C_text("f_3087:posix_2escm"),(void*)f_3087}, {C_text("f_3099:posix_2escm"),(void*)f_3099}, {C_text("f_3102:posix_2escm"),(void*)f_3102}, {C_text("f_3108:posix_2escm"),(void*)f_3108}, {C_text("f_3118:posix_2escm"),(void*)f_3118}, {C_text("f_3162:posix_2escm"),(void*)f_3162}, {C_text("f_3166:posix_2escm"),(void*)f_3166}, {C_text("f_3168:posix_2escm"),(void*)f_3168}, {C_text("f_3174:posix_2escm"),(void*)f_3174}, {C_text("f_3182:posix_2escm"),(void*)f_3182}, {C_text("f_3186:posix_2escm"),(void*)f_3186}, {C_text("f_3190:posix_2escm"),(void*)f_3190}, {C_text("f_3192:posix_2escm"),(void*)f_3192}, {C_text("f_3211:posix_2escm"),(void*)f_3211}, {C_text("f_3279:posix_2escm"),(void*)f_3279}, {C_text("f_3287:posix_2escm"),(void*)f_3287}, {C_text("f_3289:posix_2escm"),(void*)f_3289}, {C_text("f_3297:posix_2escm"),(void*)f_3297}, {C_text("f_3299:posix_2escm"),(void*)f_3299}, {C_text("f_3307:posix_2escm"),(void*)f_3307}, {C_text("f_3309:posix_2escm"),(void*)f_3309}, {C_text("f_3317:posix_2escm"),(void*)f_3317}, {C_text("f_3319:posix_2escm"),(void*)f_3319}, {C_text("f_3327:posix_2escm"),(void*)f_3327}, {C_text("f_3329:posix_2escm"),(void*)f_3329}, {C_text("f_3337:posix_2escm"),(void*)f_3337}, {C_text("f_3339:posix_2escm"),(void*)f_3339}, {C_text("f_3347:posix_2escm"),(void*)f_3347}, {C_text("f_3352:posix_2escm"),(void*)f_3352}, {C_text("f_3356:posix_2escm"),(void*)f_3356}, {C_text("f_3359:posix_2escm"),(void*)f_3359}, {C_text("f_3362:posix_2escm"),(void*)f_3362}, {C_text("f_3368:posix_2escm"),(void*)f_3368}, {C_text("f_3374:posix_2escm"),(void*)f_3374}, {C_text("f_3407:posix_2escm"),(void*)f_3407}, {C_text("f_3435:posix_2escm"),(void*)f_3435}, {C_text("f_3443:posix_2escm"),(void*)f_3443}, {C_text("f_3472:posix_2escm"),(void*)f_3472}, {C_text("f_3485:posix_2escm"),(void*)f_3485}, {C_text("f_3491:posix_2escm"),(void*)f_3491}, {C_text("f_3495:posix_2escm"),(void*)f_3495}, {C_text("f_3503:posix_2escm"),(void*)f_3503}, {C_text("f_3505:posix_2escm"),(void*)f_3505}, {C_text("f_3509:posix_2escm"),(void*)f_3509}, {C_text("f_3517:posix_2escm"),(void*)f_3517}, {C_text("f_3519:posix_2escm"),(void*)f_3519}, {C_text("f_3535:posix_2escm"),(void*)f_3535}, {C_text("f_3544:posix_2escm"),(void*)f_3544}, {C_text("f_3558:posix_2escm"),(void*)f_3558}, {C_text("f_3564:posix_2escm"),(void*)f_3564}, {C_text("f_3568:posix_2escm"),(void*)f_3568}, {C_text("f_3571:posix_2escm"),(void*)f_3571}, {C_text("f_3574:posix_2escm"),(void*)f_3574}, {C_text("f_3589:posix_2escm"),(void*)f_3589}, {C_text("f_3591:posix_2escm"),(void*)f_3591}, {C_text("f_3594:posix_2escm"),(void*)f_3594}, {C_text("f_3598:posix_2escm"),(void*)f_3598}, {C_text("f_3601:posix_2escm"),(void*)f_3601}, {C_text("f_3610:posix_2escm"),(void*)f_3610}, {C_text("f_3624:posix_2escm"),(void*)f_3624}, {C_text("f_3627:posix_2escm"),(void*)f_3627}, {C_text("f_3646:posix_2escm"),(void*)f_3646}, {C_text("f_3650:posix_2escm"),(void*)f_3650}, {C_text("f_3653:posix_2escm"),(void*)f_3653}, {C_text("f_3667:posix_2escm"),(void*)f_3667}, {C_text("f_3671:posix_2escm"),(void*)f_3671}, {C_text("f_3674:posix_2escm"),(void*)f_3674}, {C_text("f_3699:posix_2escm"),(void*)f_3699}, {C_text("f_3703:posix_2escm"),(void*)f_3703}, {C_text("f_3706:posix_2escm"),(void*)f_3706}, {C_text("f_3709:posix_2escm"),(void*)f_3709}, {C_text("f_3737:posix_2escm"),(void*)f_3737}, {C_text("f_3741:posix_2escm"),(void*)f_3741}, {C_text("f_3745:posix_2escm"),(void*)f_3745}, {C_text("f_3782:posix_2escm"),(void*)f_3782}, {C_text("f_3789:posix_2escm"),(void*)f_3789}, {C_text("f_3798:posix_2escm"),(void*)f_3798}, {C_text("f_3808:posix_2escm"),(void*)f_3808}, {C_text("f_3812:posix_2escm"),(void*)f_3812}, {C_text("f_3815:posix_2escm"),(void*)f_3815}, {C_text("f_3836:posix_2escm"),(void*)f_3836}, {C_text("f_3844:posix_2escm"),(void*)f_3844}, {C_text("f_3848:posix_2escm"),(void*)f_3848}, {C_text("f_3859:posix_2escm"),(void*)f_3859}, {C_text("f_3861:posix_2escm"),(void*)f_3861}, {C_text("f_3865:posix_2escm"),(void*)f_3865}, {C_text("f_3867:posix_2escm"),(void*)f_3867}, {C_text("f_3886:posix_2escm"),(void*)f_3886}, {C_text("f_3891:posix_2escm"),(void*)f_3891}, {C_text("f_3897:posix_2escm"),(void*)f_3897}, {C_text("f_3938:posix_2escm"),(void*)f_3938}, {C_text("f_3946:posix_2escm"),(void*)f_3946}, {C_text("f_3949:posix_2escm"),(void*)f_3949}, {C_text("f_3954:posix_2escm"),(void*)f_3954}, {C_text("f_3960:posix_2escm"),(void*)f_3960}, {C_text("f_3966:posix_2escm"),(void*)f_3966}, {C_text("f_3970:posix_2escm"),(void*)f_3970}, {C_text("f_3975:posix_2escm"),(void*)f_3975}, {C_text("f_3977:posix_2escm"),(void*)f_3977}, {C_text("f_3981:posix_2escm"),(void*)f_3981}, {C_text("f_3983:posix_2escm"),(void*)f_3983}, {C_text("f_3999:posix_2escm"),(void*)f_3999}, {C_text("f_4005:posix_2escm"),(void*)f_4005}, {C_text("f_4008:posix_2escm"),(void*)f_4008}, {C_text("f_4024:posix_2escm"),(void*)f_4024}, {C_text("f_4034:posix_2escm"),(void*)f_4034}, {C_text("f_4040:posix_2escm"),(void*)f_4040}, {C_text("f_4051:posix_2escm"),(void*)f_4051}, {C_text("f_4055:posix_2escm"),(void*)f_4055}, {C_text("f_4059:posix_2escm"),(void*)f_4059}, {C_text("f_4064:posix_2escm"),(void*)f_4064}, {C_text("f_4074:posix_2escm"),(void*)f_4074}, {C_text("f_4077:posix_2escm"),(void*)f_4077}, {C_text("f_4089:posix_2escm"),(void*)f_4089}, {C_text("f_4094:posix_2escm"),(void*)f_4094}, {C_text("f_4113:posix_2escm"),(void*)f_4113}, {C_text("f_4136:posix_2escm"),(void*)f_4136}, {C_text("f_4138:posix_2escm"),(void*)f_4138}, {C_text("f_4142:posix_2escm"),(void*)f_4142}, {C_text("f_4148:posix_2escm"),(void*)f_4148}, {C_text("f_4151:posix_2escm"),(void*)f_4151}, {C_text("f_4156:posix_2escm"),(void*)f_4156}, {C_text("f_4162:posix_2escm"),(void*)f_4162}, {C_text("f_4168:posix_2escm"),(void*)f_4168}, {C_text("f_4172:posix_2escm"),(void*)f_4172}, {C_text("f_4175:posix_2escm"),(void*)f_4175}, {C_text("f_4183:posix_2escm"),(void*)f_4183}, {C_text("f_4189:posix_2escm"),(void*)f_4189}, {C_text("f_4193:posix_2escm"),(void*)f_4193}, {C_text("f_4200:posix_2escm"),(void*)f_4200}, {C_text("f_4203:posix_2escm"),(void*)f_4203}, {C_text("f_4207:posix_2escm"),(void*)f_4207}, {C_text("f_4228:posix_2escm"),(void*)f_4228}, {C_text("f_4230:posix_2escm"),(void*)f_4230}, {C_text("f_4255:posix_2escm"),(void*)f_4255}, {C_text("f_4264:posix_2escm"),(void*)f_4264}, {C_text("f_4270:posix_2escm"),(void*)f_4270}, {C_text("f_4295:posix_2escm"),(void*)f_4295}, {C_text("f_4308:posix_2escm"),(void*)f_4308}, {C_text("f_4314:posix_2escm"),(void*)f_4314}, {C_text("f_4328:posix_2escm"),(void*)f_4328}, {C_text("f_4335:posix_2escm"),(void*)f_4335}, {C_text("f_4345:posix_2escm"),(void*)f_4345}, {C_text("f_4354:posix_2escm"),(void*)f_4354}, {C_text("f_4368:posix_2escm"),(void*)f_4368}, {C_text("f_4375:posix_2escm"),(void*)f_4375}, {C_text("f_4385:posix_2escm"),(void*)f_4385}, {C_text("f_4394:posix_2escm"),(void*)f_4394}, {C_text("f_4401:posix_2escm"),(void*)f_4401}, {C_text("f_4409:posix_2escm"),(void*)f_4409}, {C_text("f_4416:posix_2escm"),(void*)f_4416}, {C_text("f_4424:posix_2escm"),(void*)f_4424}, {C_text("f_4428:posix_2escm"),(void*)f_4428}, {C_text("f_4433:posix_2escm"),(void*)f_4433}, {C_text("f_4438:posix_2escm"),(void*)f_4438}, {C_text("f_4444:posix_2escm"),(void*)f_4444}, {C_text("f_4448:posix_2escm"),(void*)f_4448}, {C_text("f_4453:posix_2escm"),(void*)f_4453}, {C_text("f_4458:posix_2escm"),(void*)f_4458}, {C_text("f_4462:posix_2escm"),(void*)f_4462}, {C_text("f_4467:posix_2escm"),(void*)f_4467}, {C_text("f_4473:posix_2escm"),(void*)f_4473}, {C_text("f_4477:posix_2escm"),(void*)f_4477}, {C_text("f_4482:posix_2escm"),(void*)f_4482}, {C_text("f_4486:posix_2escm"),(void*)f_4486}, {C_text("f_4491:posix_2escm"),(void*)f_4491}, {C_text("f_4497:posix_2escm"),(void*)f_4497}, {C_text("f_4501:posix_2escm"),(void*)f_4501}, {C_text("f_4506:posix_2escm"),(void*)f_4506}, {C_text("f_4510:posix_2escm"),(void*)f_4510}, {C_text("f_4515:posix_2escm"),(void*)f_4515}, {C_text("f_4520:posix_2escm"),(void*)f_4520}, {C_text("f_4526:posix_2escm"),(void*)f_4526}, {C_text("f_4530:posix_2escm"),(void*)f_4530}, {C_text("f_4535:posix_2escm"),(void*)f_4535}, {C_text("f_4540:posix_2escm"),(void*)f_4540}, {C_text("f_4547:posix_2escm"),(void*)f_4547}, {C_text("f_4587:posix_2escm"),(void*)f_4587}, {C_text("f_4594:posix_2escm"),(void*)f_4594}, {C_text("f_4597:posix_2escm"),(void*)f_4597}, {C_text("f_4621:posix_2escm"),(void*)f_4621}, {C_text("f_4625:posix_2escm"),(void*)f_4625}, {C_text("f_4631:posix_2escm"),(void*)f_4631}, {C_text("f_4634:posix_2escm"),(void*)f_4634}, {C_text("f_4638:posix_2escm"),(void*)f_4638}, {C_text("f_4641:posix_2escm"),(void*)f_4641}, {C_text("f_4653:posix_2escm"),(void*)f_4653}, {C_text("f_4657:posix_2escm"),(void*)f_4657}, {C_text("f_4662:posix_2escm"),(void*)f_4662}, {C_text("f_4684:posix_2escm"),(void*)f_4684}, {C_text("f_4688:posix_2escm"),(void*)f_4688}, {C_text("f_4691:posix_2escm"),(void*)f_4691}, {C_text("f_4694:posix_2escm"),(void*)f_4694}, {C_text("f_4697:posix_2escm"),(void*)f_4697}, {C_text("f_4700:posix_2escm"),(void*)f_4700}, {C_text("f_4724:posix_2escm"),(void*)f_4724}, {C_text("f_4728:posix_2escm"),(void*)f_4728}, {C_text("f_4731:posix_2escm"),(void*)f_4731}, {C_text("f_4734:posix_2escm"),(void*)f_4734}, {C_text("f_4737:posix_2escm"),(void*)f_4737}, {C_text("f_4740:posix_2escm"),(void*)f_4740}, {C_text("f_4761:posix_2escm"),(void*)f_4761}, {C_text("f_4768:posix_2escm"),(void*)f_4768}, {C_text("f_4774:posix_2escm"),(void*)f_4774}, {C_text("f_4781:posix_2escm"),(void*)f_4781}, {C_text("f_4793:posix_2escm"),(void*)f_4793}, {C_text("f_4797:posix_2escm"),(void*)f_4797}, {C_text("f_4800:posix_2escm"),(void*)f_4800}, {C_text("f_4803:posix_2escm"),(void*)f_4803}, {C_text("f_4811:posix_2escm"),(void*)f_4811}, {C_text("f_4814:posix_2escm"),(void*)f_4814}, {C_text("f_4875:posix_2escm"),(void*)f_4875}, {C_text("f_4878:posix_2escm"),(void*)f_4878}, {C_text("f_4885:posix_2escm"),(void*)f_4885}, {C_text("f_4915:posix_2escm"),(void*)f_4915}, {C_text("f_4944:posix_2escm"),(void*)f_4944}, {C_text("f_4974:posix_2escm"),(void*)f_4974}, {C_text("f_5003:posix_2escm"),(void*)f_5003}, {C_text("f_5035:posix_2escm"),(void*)f_5035}, {C_text("f_5042:posix_2escm"),(void*)f_5042}, {C_text("f_5044:posix_2escm"),(void*)f_5044}, {C_text("f_5086:posix_2escm"),(void*)f_5086}, {C_text("f_5170:posix_2escm"),(void*)f_5170}, {C_text("f_5177:posix_2escm"),(void*)f_5177}, {C_text("f_5226:posix_2escm"),(void*)f_5226}, {C_text("f_5235:posix_2escm"),(void*)f_5235}, {C_text("f_5238:posix_2escm"),(void*)f_5238}, {C_text("f_5250:posix_2escm"),(void*)f_5250}, {C_text("f_5260:posix_2escm"),(void*)f_5260}, {C_text("f_5275:posix_2escm"),(void*)f_5275}, {C_text("f_5277:posix_2escm"),(void*)f_5277}, {C_text("f_5281:posix_2escm"),(void*)f_5281}, {C_text("f_5283:posix_2escm"),(void*)f_5283}, {C_text("f_5287:posix_2escm"),(void*)f_5287}, {C_text("f_5299:posix_2escm"),(void*)f_5299}, {C_text("f_5303:posix_2escm"),(void*)f_5303}, {C_text("f_5317:posix_2escm"),(void*)f_5317}, {C_text("f_5321:posix_2escm"),(void*)f_5321}, {C_text("f_5325:posix_2escm"),(void*)f_5325}, {C_text("f_5329:posix_2escm"),(void*)f_5329}, {C_text("f_5331:posix_2escm"),(void*)f_5331}, {C_text("f_5338:posix_2escm"),(void*)f_5338}, {C_text("f_5351:posix_2escm"),(void*)f_5351}, {C_text("f_5355:posix_2escm"),(void*)f_5355}, {C_text("f_5359:posix_2escm"),(void*)f_5359}, {C_text("f_5363:posix_2escm"),(void*)f_5363}, {C_text("f_5367:posix_2escm"),(void*)f_5367}, {C_text("f_5377:posix_2escm"),(void*)f_5377}, {C_text("f_5385:posix_2escm"),(void*)f_5385}, {C_text("f_5393:posix_2escm"),(void*)f_5393}, {C_text("f_5397:posix_2escm"),(void*)f_5397}, {C_text("f_5399:posix_2escm"),(void*)f_5399}, {C_text("f_5407:posix_2escm"),(void*)f_5407}, {C_text("f_5411:posix_2escm"),(void*)f_5411}, {C_text("f_5413:posix_2escm"),(void*)f_5413}, {C_text("f_5417:posix_2escm"),(void*)f_5417}, {C_text("f_5420:posix_2escm"),(void*)f_5420}, {C_text("f_5423:posix_2escm"),(void*)f_5423}, {C_text("f_5435:posix_2escm"),(void*)f_5435}, {C_text("f_5439:posix_2escm"),(void*)f_5439}, {C_text("f_5455:posix_2escm"),(void*)f_5455}, {C_text("f_5460:posix_2escm"),(void*)f_5460}, {C_text("f_5464:posix_2escm"),(void*)f_5464}, {C_text("f_5470:posix_2escm"),(void*)f_5470}, {C_text("f_5477:posix_2escm"),(void*)f_5477}, {C_text("f_5479:posix_2escm"),(void*)f_5479}, {C_text("f_5500:posix_2escm"),(void*)f_5500}, {C_text("f_5504:posix_2escm"),(void*)f_5504}, {C_text("f_5508:posix_2escm"),(void*)f_5508}, {C_text("f_5509:posix_2escm"),(void*)f_5509}, {C_text("f_5514:posix_2escm"),(void*)f_5514}, {C_text("f_5528:posix_2escm"),(void*)f_5528}, {C_text("f_5543:posix_2escm"),(void*)f_5543}, {C_text("f_5549:posix_2escm"),(void*)f_5549}, {C_text("f_5557:posix_2escm"),(void*)f_5557}, {C_text("f_5559:posix_2escm"),(void*)f_5559}, {C_text("f_5569:posix_2escm"),(void*)f_5569}, {C_text("f_5575:posix_2escm"),(void*)f_5575}, {C_text("f_5584:posix_2escm"),(void*)f_5584}, {C_text("f_5587:posix_2escm"),(void*)f_5587}, {C_text("f_5590:posix_2escm"),(void*)f_5590}, {C_text("f_5596:posix_2escm"),(void*)f_5596}, {C_text("f_5630:posix_2escm"),(void*)f_5630}, {C_text("f_5634:posix_2escm"),(void*)f_5634}, {C_text("f_5643:posix_2escm"),(void*)f_5643}, {C_text("f_5663:posix_2escm"),(void*)f_5663}, {C_text("f_5665:posix_2escm"),(void*)f_5665}, {C_text("f_5693:posix_2escm"),(void*)f_5693}, {C_text("f_5699:posix_2escm"),(void*)f_5699}, {C_text("f_5700:posix_2escm"),(void*)f_5700}, {C_text("f_5704:posix_2escm"),(void*)f_5704}, {C_text("f_5729:posix_2escm"),(void*)f_5729}, {C_text("f_5737:posix_2escm"),(void*)f_5737}, {C_text("f_5743:posix_2escm"),(void*)f_5743}, {C_text("f_5762:posix_2escm"),(void*)f_5762}, {C_text("f_5765:posix_2escm"),(void*)f_5765}, {C_text("f_5795:posix_2escm"),(void*)f_5795}, {C_text("f_5798:posix_2escm"),(void*)f_5798}, {C_text("f_5804:posix_2escm"),(void*)f_5804}, {C_text("f_5833:posix_2escm"),(void*)f_5833}, {C_text("f_5839:posix_2escm"),(void*)f_5839}, {C_text("f_5843:posix_2escm"),(void*)f_5843}, {C_text("f_5864:posix_2escm"),(void*)f_5864}, {C_text("f_5876:posix_2escm"),(void*)f_5876}, {C_text("f_5880:posix_2escm"),(void*)f_5880}, {C_text("f_5892:posix_2escm"),(void*)f_5892}, {C_text("f_5896:posix_2escm"),(void*)f_5896}, {C_text("f_5907:posix_2escm"),(void*)f_5907}, {C_text("f_5915:posix_2escm"),(void*)f_5915}, {C_text("f_5917:posix_2escm"),(void*)f_5917}, {C_text("f_5965:posix_2escm"),(void*)f_5965}, {C_text("f_5983:posix_2escm"),(void*)f_5983}, {C_text("f_5987:posix_2escm"),(void*)f_5987}, {C_text("f_6001:posix_2escm"),(void*)f_6001}, {C_text("f_6011:posix_2escm"),(void*)f_6011}, {C_text("f_6031:posix_2escm"),(void*)f_6031}, {C_text("f_6057:posix_2escm"),(void*)f_6057}, {C_text("f_6102:posix_2escm"),(void*)f_6102}, {C_text("f_6112:posix_2escm"),(void*)f_6112}, {C_text("f_6178:posix_2escm"),(void*)f_6178}, {C_text("f_6200:posix_2escm"),(void*)f_6200}, {C_text("f_6201:posix_2escm"),(void*)f_6201}, {C_text("f_6207:posix_2escm"),(void*)f_6207}, {C_text("f_6226:posix_2escm"),(void*)f_6226}, {C_text("f_6257:posix_2escm"),(void*)f_6257}, {C_text("f_6267:posix_2escm"),(void*)f_6267}, {C_text("f_6272:posix_2escm"),(void*)f_6272}, {C_text("f_6278:posix_2escm"),(void*)f_6278}, {C_text("f_6284:posix_2escm"),(void*)f_6284}, {C_text("f_6288:posix_2escm"),(void*)f_6288}, {C_text("f_6300:posix_2escm"),(void*)f_6300}, {C_text("f_6308:posix_2escm"),(void*)f_6308}, {C_text("f_6322:posix_2escm"),(void*)f_6322}, {C_text("f_6323:posix_2escm"),(void*)f_6323}, {C_text("f_6340:posix_2escm"),(void*)f_6340}, {C_text("f_6350:posix_2escm"),(void*)f_6350}, {C_text("f_6433:posix_2escm"),(void*)f_6433}, {C_text("f_6437:posix_2escm"),(void*)f_6437}, {C_text("f_6443:posix_2escm"),(void*)f_6443}, {C_text("f_6450:posix_2escm"),(void*)f_6450}, {C_text("f_6457:posix_2escm"),(void*)f_6457}, {C_text("f_6463:posix_2escm"),(void*)f_6463}, {C_text("f_6467:posix_2escm"),(void*)f_6467}, {C_text("f_6478:posix_2escm"),(void*)f_6478}, {C_text("f_6496:posix_2escm"),(void*)f_6496}, {C_text("f_6499:posix_2escm"),(void*)f_6499}, {C_text("f_6546:posix_2escm"),(void*)f_6546}, {C_text("f_6564:posix_2escm"),(void*)f_6564}, {C_text("f_6570:posix_2escm"),(void*)f_6570}, {C_text("f_6574:posix_2escm"),(void*)f_6574}, {C_text("f_6595:posix_2escm"),(void*)f_6595}, {C_text("f_6601:posix_2escm"),(void*)f_6601}, {C_text("f_6605:posix_2escm"),(void*)f_6605}, {C_text("f_6626:posix_2escm"),(void*)f_6626}, {C_text("f_6630:posix_2escm"),(void*)f_6630}, {C_text("f_6653:posix_2escm"),(void*)f_6653}, {C_text("f_6682:posix_2escm"),(void*)f_6682}, {C_text("f_6696:posix_2escm"),(void*)f_6696}, {C_text("f_6703:posix_2escm"),(void*)f_6703}, {C_text("f_6706:posix_2escm"),(void*)f_6706}, {C_text("f_6720:posix_2escm"),(void*)f_6720}, {C_text("f_6742:posix_2escm"),(void*)f_6742}, {C_text("f_6759:posix_2escm"),(void*)f_6759}, {C_text("f_6763:posix_2escm"),(void*)f_6763}, {C_text("f_6771:posix_2escm"),(void*)f_6771}, {C_text("f_6779:posix_2escm"),(void*)f_6779}, {C_text("f_6783:posix_2escm"),(void*)f_6783}, {C_text("f_6787:posix_2escm"),(void*)f_6787}, {C_text("f_6798:posix_2escm"),(void*)f_6798}, {C_text("f_6805:posix_2escm"),(void*)f_6805}, {C_text("f_6814:posix_2escm"),(void*)f_6814}, {C_text("f_6845:posix_2escm"),(void*)f_6845}, {C_text("f_6859:posix_2escm"),(void*)f_6859}, {C_text("f_6865:posix_2escm"),(void*)f_6865}, {C_text("f_6869:posix_2escm"),(void*)f_6869}, {C_text("f_6873:posix_2escm"),(void*)f_6873}, {C_text("f_6913:posix_2escm"),(void*)f_6913}, {C_text("f_6937:posix_2escm"),(void*)f_6937}, {C_text("f_6940:posix_2escm"),(void*)f_6940}, {C_text("f_6991:posix_2escm"),(void*)f_6991}, {C_text("f_7007:posix_2escm"),(void*)f_7007}, {C_text("f_7029:posix_2escm"),(void*)f_7029}, {C_text("f_7032:posix_2escm"),(void*)f_7032}, {C_text("f_7036:posix_2escm"),(void*)f_7036}, {C_text("f_7039:posix_2escm"),(void*)f_7039}, {C_text("f_7042:posix_2escm"),(void*)f_7042}, {C_text("f_7057:posix_2escm"),(void*)f_7057}, {C_text("f_7061:posix_2escm"),(void*)f_7061}, {C_text("f_7072:posix_2escm"),(void*)f_7072}, {C_text("f_7076:posix_2escm"),(void*)f_7076}, {C_text("f_7079:posix_2escm"),(void*)f_7079}, {C_text("f_7098:posix_2escm"),(void*)f_7098}, {C_text("f_7122:posix_2escm"),(void*)f_7122}, {C_text("f_7126:posix_2escm"),(void*)f_7126}, {C_text("f_7128:posix_2escm"),(void*)f_7128}, {C_text("f_7143:posix_2escm"),(void*)f_7143}, {C_text("f_7149:posix_2escm"),(void*)f_7149}, {C_text("f_7163:posix_2escm"),(void*)f_7163}, {C_text("f_7172:posix_2escm"),(void*)f_7172}, {C_text("f_7178:posix_2escm"),(void*)f_7178}, {C_text("f_7183:posix_2escm"),(void*)f_7183}, {C_text("f_7194:posix_2escm"),(void*)f_7194}, {C_text("f_7195:posix_2escm"),(void*)f_7195}, {C_text("f_7206:posix_2escm"),(void*)f_7206}, {C_text("f_7210:posix_2escm"),(void*)f_7210}, {C_text("f_7224:posix_2escm"),(void*)f_7224}, {C_text("f_7228:posix_2escm"),(void*)f_7228}, {C_text("f_7231:posix_2escm"),(void*)f_7231}, {C_text("f_7234:posix_2escm"),(void*)f_7234}, {C_text("f_7245:posix_2escm"),(void*)f_7245}, {C_text("f_7247:posix_2escm"),(void*)f_7247}, {C_text("f_7251:posix_2escm"),(void*)f_7251}, {C_text("f_7254:posix_2escm"),(void*)f_7254}, {C_text("f_7257:posix_2escm"),(void*)f_7257}, {C_text("f_7269:posix_2escm"),(void*)f_7269}, {C_text("f_7273:posix_2escm"),(void*)f_7273}, {C_text("f_7280:posix_2escm"),(void*)f_7280}, {C_text("f_7284:posix_2escm"),(void*)f_7284}, {C_text("f_7291:posix_2escm"),(void*)f_7291}, {C_text("f_7297:posix_2escm"),(void*)f_7297}, {C_text("f_7303:posix_2escm"),(void*)f_7303}, {C_text("f_7314:posix_2escm"),(void*)f_7314}, {C_text("f_7318:posix_2escm"),(void*)f_7318}, {C_text("f_7322:posix_2escm"),(void*)f_7322}, {C_text("f_7326:posix_2escm"),(void*)f_7326}, {C_text("f_7330:posix_2escm"),(void*)f_7330}, {C_text("f_7334:posix_2escm"),(void*)f_7334}, {C_text("f_7347:posix_2escm"),(void*)f_7347}, {C_text("f_7349:posix_2escm"),(void*)f_7349}, {C_text("f_7354:posix_2escm"),(void*)f_7354}, {C_text("f_7363:posix_2escm"),(void*)f_7363}, {C_text("f_7390:posix_2escm"),(void*)f_7390}, {C_text("f_7393:posix_2escm"),(void*)f_7393}, {C_text("f_7398:posix_2escm"),(void*)f_7398}, {C_text("f_7416:posix_2escm"),(void*)f_7416}, {C_text("f_7418:posix_2escm"),(void*)f_7418}, {C_text("f_7442:posix_2escm"),(void*)f_7442}, {C_text("f_7484:posix_2escm"),(void*)f_7484}, {C_text("f_7549:posix_2escm"),(void*)f_7549}, {C_text("f_7554:posix_2escm"),(void*)f_7554}, {C_text("f_7571:posix_2escm"),(void*)f_7571}, {C_text("f_7573:posix_2escm"),(void*)f_7573}, {C_text("f_7579:posix_2escm"),(void*)f_7579}, {C_text("f_7628:posix_2escm"),(void*)f_7628}, {C_text("f_7632:posix_2escm"),(void*)f_7632}, {C_text("f_7635:posix_2escm"),(void*)f_7635}, {C_text("f_7641:posix_2escm"),(void*)f_7641}, {C_text("f_7646:posix_2escm"),(void*)f_7646}, {C_text("f_7650:posix_2escm"),(void*)f_7650}, {C_text("f_7653:posix_2escm"),(void*)f_7653}, {C_text("f_7662:posix_2escm"),(void*)f_7662}, {C_text("f_7668:posix_2escm"),(void*)f_7668}, {C_text("f_7671:posix_2escm"),(void*)f_7671}, {C_text("f_7681:posix_2escm"),(void*)f_7681}, {C_text("f_7687:posix_2escm"),(void*)f_7687}, {C_text("f_7690:posix_2escm"),(void*)f_7690}, {C_text("f_7700:posix_2escm"),(void*)f_7700}, {C_text("f_7706:posix_2escm"),(void*)f_7706}, {C_text("f_7709:posix_2escm"),(void*)f_7709}, {C_text("f_7719:posix_2escm"),(void*)f_7719}, {C_text("f_7725:posix_2escm"),(void*)f_7725}, {C_text("f_7728:posix_2escm"),(void*)f_7728}, {C_text("f_7738:posix_2escm"),(void*)f_7738}, {C_text("f_7744:posix_2escm"),(void*)f_7744}, {C_text("f_7750:posix_2escm"),(void*)f_7750}, {C_text("f_7774:posix_2escm"),(void*)f_7774}, {C_text("f_7778:posix_2escm"),(void*)f_7778}, {C_text("f_7783:posix_2escm"),(void*)f_7783}, {C_text("f_7790:posix_2escm"),(void*)f_7790}, {C_text("f_7808:posix_2escm"),(void*)f_7808}, {C_text("f_7812:posix_2escm"),(void*)f_7812}, {C_text("f_7814:posix_2escm"),(void*)f_7814}, {C_text("f_7818:posix_2escm"),(void*)f_7818}, {C_text("f_7821:posix_2escm"),(void*)f_7821}, {C_text("f_7830:posix_2escm"),(void*)f_7830}, {C_text("f_7851:posix_2escm"),(void*)f_7851}, {C_text("f_7855:posix_2escm"),(void*)f_7855}, {C_text("f_7857:posix_2escm"),(void*)f_7857}, {C_text("f_7861:posix_2escm"),(void*)f_7861}, {C_text("f_7863:posix_2escm"),(void*)f_7863}, {C_text("f_7867:posix_2escm"),(void*)f_7867}, {C_text("toplevel:posix_2escm"),(void*)C_posix_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.posix#d o|hiding unexported module binding: chicken.posix#define-alias o|hiding unexported module binding: chicken.posix#define-unimplemented o|hiding unexported module binding: chicken.posix#set!-unimplemented o|hiding unexported module binding: chicken.posix#posix-error o|hiding unexported module binding: chicken.posix#stat-mode o|hiding unexported module binding: chicken.posix#stat o|hiding unexported module binding: chicken.posix#decode-seconds o|hiding unexported module binding: chicken.posix#check-time-vector o|hiding unexported module binding: chicken.posix#list->c-string-buffer o|hiding unexported module binding: chicken.posix#free-c-string-buffer o|hiding unexported module binding: chicken.posix#check-environment-list o|hiding unexported module binding: chicken.posix#call-with-exec-args o|hiding unexported module binding: chicken.posix#chown o|hiding unexported module binding: chicken.posix#process-wait-impl o|hiding unexported module binding: chicken.posix#shell-command o|hiding unexported module binding: chicken.posix#shell-command-arguments o|hiding unexported module binding: chicken.posix#process-impl S|applied compiler syntax: S| scheme#for-each 3 S| scheme#map 2 o|eliminated procedure checks: 135 o|specializations: o| 1 (scheme#make-string fixnum) o| 2 (chicken.bitwise#bitwise-ior fixnum fixnum) o| 1 (##sys#check-output-port * * *) o| 1 (##sys#check-input-port * * *) o| 1 (##sys#call-with-values (procedure () *) *) o| 11 (scheme#cdr pair) o| 1 (chicken.base#add1 fixnum) o| 3 (##sys#length list) o| 1 (scheme#zero? *) o| 2 (##sys#check-open-port * *) o| 5 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 12 (scheme#car pair) o| 4 (##sys#check-list (or pair list) *) o| 1 (scheme#char=? char char) o| 2 (scheme#zero? integer) (o e)|safe calls: 751 (o e)|assignments to immediate values: 123 o|dropping redundant toplevel assignment: chicken.file.posix#file-stat o|dropping redundant toplevel assignment: chicken.file.posix#set-file-permissions! o|dropping redundant toplevel assignment: chicken.file.posix#file-modification-time o|dropping redundant toplevel assignment: chicken.file.posix#file-access-time o|dropping redundant toplevel assignment: chicken.file.posix#file-change-time o|dropping redundant toplevel assignment: chicken.file.posix#set-file-times! o|dropping redundant toplevel assignment: chicken.file.posix#file-size o|dropping redundant toplevel assignment: chicken.file.posix#set-file-owner! o|dropping redundant toplevel assignment: chicken.file.posix#set-file-group! o|safe globals: (chicken.file.posix#set-file-group! chicken.file.posix#set-file-owner! chicken.file.posix#file-size chicken.file.posix#set-file-times! chicken.file.posix#file-change-time chicken.file.posix#file-access-time chicken.file.posix#file-modification-time chicken.file.posix#set-file-permissions! chicken.file.posix#file-stat chicken.posix#stat ##sys#posix-error chicken.posix#posix-error chicken.process-context.posix#user-information chicken.process-context.posix#process-group-id chicken.process-context.posix#create-session chicken.process-context.posix#current-effective-user-name chicken.process-context.posix#current-user-name chicken.process-context.posix#parent-process-id chicken.process-context.posix#current-process-id chicken.process-context.posix#current-user-id chicken.process-context.posix#current-group-id chicken.process-context.posix#current-effective-user-id chicken.process-context.posix#current-effective-group-id chicken.process-context.posix#set-root-directory! chicken.process-context.posix#change-directory* chicken.process.signal#signals-list chicken.process.signal#signal/xfsz chicken.process.signal#signal/xcpu chicken.process.signal#signal/winch chicken.process.signal#signal/vtalrm chicken.process.signal#signal/usr2 chicken.process.signal#signal/usr1 chicken.process.signal#signal/urg chicken.process.signal#signal/tstp chicken.process.signal#signal/trap chicken.process.signal#signal/term chicken.process.signal#signal/stop chicken.process.signal#signal/segv chicken.process.signal#signal/quit chicken.process.signal#signal/prof chicken.process.signal#signal/pipe chicken.process.signal#signal/kill chicken.process.signal#signal/io chicken.process.signal#signal/int chicken.process.signal#signal/ill chicken.process.signal#signal/hup chicken.process.signal#signal/fpe chicken.process.signal#signal/cont chicken.process.signal#signal/chld chicken.process.signal#signal/bus chicken.process.signal#signal/break chicken.process.signal#signal/alrm chicken.process.signal#signal/abrt chicken.process.signal#signal-unmask! chicken.process.signal#signal-masked? chicken.process.signal#signal-mask! chicken.process.signal#signal-mask chicken.process.signal#signal-handler chicken.process.signal#set-signal-mask! chicken.process.signal#set-signal-handler! chicken.process.signal#set-alarm! chicken.process#spawn/detach chicken.process#spawn/nowaito chicken.process#spawn/nowait chicken.process#spawn/wait chicken.process#spawn/overlay chicken.process#pipe/buf chicken.process#process-sleep chicken.process#process* chicken.process#process chicken.process#with-output-to-pipe chicken.process#with-input-from-pipe chicken.process#open-output-pipe chicken.process#open-input-pipe chicken.process#create-pipe chicken.process#close-output-pipe chicken.process#close-input-pipe chicken.process#call-with-output-pipe chicken.process#call-with-input-pipe chicken.process#process-wait chicken.process#process-spawn chicken.process#process-signal chicken.process#process-run chicken.process#process-fork chicken.process#process-execute chicken.process#qs chicken.process#system* chicken.process#system chicken.time.posix#local-timezone-abbreviation chicken.time.posix#time->string chicken.time.posix#string->time chicken.time.posix#local-time->seconds chicken.time.posix#seconds->string chicken.time.posix#seconds->local-time chicken.time.posix#utc-time->seconds chicken.time.posix#seconds->utc-time chicken.file.posix#set-file-position! chicken.file.posix#seek/set chicken.file.posix#seek/end chicken.file.posix#seek/cur chicken.file.posix#port->fileno chicken.file.posix#perm/ixusr chicken.file.posix#perm/ixoth chicken.file.posix#perm/ixgrp chicken.file.posix#perm/iwusr chicken.file.posix#perm/iwoth chicken.file.posix#perm/iwgrp chicken.file.posix#perm/isvtx chicken.file.posix#perm/isuid chicken.file.posix#perm/isgid chicken.file.posix#perm/irwxu chicken.file.posix#perm/irwxo chicken.file.posix#perm/irwxg chicken.file.posix#perm/irusr chicken.file.posix#perm/iroth chicken.file.posix#perm/irgrp chicken.file.posix#open/wronly chicken.file.posix#open/write chicken.file.posix#open/trunc chicken.file.posix#open/text chicken.file.posix#open/sync chicken.file.posix#open/read chicken.file.posix#open/rdwr chicken.file.posix#open/rdonly chicken.file.posix#open/nonblock chicken.file.posix#open/noinherit chicken.file.posix#open/noctty chicken.file.posix#open/fsync chicken.file.posix#open/excl chicken.file.posix#open/creat chicken.file.posix#open/binary chicken.file.posix#open/append chicken.file.posix#open-output-file* chicken.file.posix#open-input-file* chicken.file.posix#fileno/stdout chicken.file.posix#fileno/stdin chicken.file.posix#fileno/stderr chicken.file.posix#symbolic-link? chicken.file.posix#socket? chicken.file.posix#regular-file? chicken.file.posix#fifo? chicken.file.posix#directory? chicken.file.posix#character-device? chicken.file.posix#block-device? chicken.file.posix#file-type chicken.file.posix#file-write chicken.file.posix#file-unlock chicken.file.posix#file-truncate chicken.file.posix#file-test-lock chicken.file.posix#file-select chicken.file.posix#file-read chicken.file.posix#file-position chicken.file.posix#file-permissions chicken.file.posix#file-owner chicken.file.posix#file-open chicken.file.posix#file-mkstemp chicken.file.posix#file-lock/blocking chicken.file.posix#file-lock chicken.file.posix#file-link chicken.file.posix#file-group chicken.file.posix#file-creation-mode chicken.file.posix#file-control chicken.file.posix#file-close chicken.file.posix#fcntl/setfl chicken.file.posix#fcntl/setfd chicken.file.posix#fcntl/getfl chicken.file.posix#fcntl/getfd chicken.file.posix#fcntl/dupfd chicken.file.posix#duplicate-fileno chicken.file.posix#read-symbolic-link chicken.file.posix#create-symbolic-link chicken.file.posix#create-fifo c2201) o|inlining procedure: k2723 o|inlining procedure: k2723 o|inlining procedure: k2741 o|inlining procedure: k2741 o|inlining procedure: k2768 o|inlining procedure: k2768 o|substituted constant variable: a2778 o|inlining procedure: k2809 o|inlining procedure: k2809 o|contracted procedure: "(posix-common.scm:192) strerror630" o|inlining procedure: k2962 o|inlining procedure: k2962 o|inlining procedure: k2977 o|inlining procedure: k2977 o|inlining procedure: k2996 o|inlining procedure: k2996 o|inlining procedure: k3029 o|inlining procedure: k3029 o|inlining procedure: k3041 o|inlining procedure: k3041 o|inlining procedure: k3119 o|inlining procedure: k3119 o|contracted procedure: "(posix-common.scm:292) g702703" o|inlining procedure: k3106 o|inlining procedure: k3106 o|inlining procedure: k3206 o|inlining procedure: k3218 o|inlining procedure: k3218 o|inlining procedure: k3230 o|inlining procedure: k3230 o|inlining procedure: k3242 o|inlining procedure: k3242 o|inlining procedure: k3206 o|inlining procedure: k3363 o|inlining procedure: k3363 o|inlining procedure: k3378 o|inlining procedure: k3378 o|inlining procedure: k3391 o|inlining procedure: k3391 o|inlining procedure: k3441 o|inlining procedure: k3454 o|inlining procedure: k3454 o|substituted constant variable: a3467 o|inlining procedure: k3441 o|inlining procedure: k3474 o|inlining procedure: k3474 o|inlining procedure: k3487 o|inlining procedure: k3487 o|substituted constant variable: a3522 o|inlining procedure: k3523 o|inlining procedure: k3523 o|inlining procedure: k3542 o|inlining procedure: k3542 o|inlining procedure: k3572 o|inlining procedure: k3572 o|inlining procedure: k3599 o|inlining procedure: k3599 o|inlining procedure: k3612 o|propagated global variable: r36137932 chicken.process-context.posix#change-directory* o|inlining procedure: k3612 o|inlining procedure: k3632 o|inlining procedure: k3632 o|inlining procedure: k3710 o|inlining procedure: k3710 o|contracted procedure: "(posix-common.scm:595) ctime880" o|inlining procedure: k3746 o|inlining procedure: k3746 o|inlining procedure: k3790 o|contracted procedure: "(posix-common.scm:618) strftime905" o|inlining procedure: k3776 o|inlining procedure: k3776 o|inlining procedure: k3790 o|contracted procedure: "(posix-common.scm:620) asctime904" o|inlining procedure: k3763 o|inlining procedure: k3763 o|inlining procedure: k3899 o|inlining procedure: k3899 o|inlining procedure: k3985 o|inlining procedure: k3985 o|contracted procedure: "(posix-common.scm:688) c-string->allocated-pointer974" o|merged explicitly consed rest parameter: args9861007 o|consed rest parameter at call site: tmp22526 1 o|inlining procedure: k4066 o|inlining procedure: k4066 o|inlining procedure: k4115 o|inlining procedure: k4115 o|inlining procedure: k4173 o|inlining procedure: k4173 o|inlining procedure: k4232 o|contracted procedure: "(posix-common.scm:731) g10741083" o|inlining procedure: k4232 o|inlining procedure: k4279 o|inlining procedure: k4279 o|inlining procedure: k4297 o|inlining procedure: k4297 o|inlining procedure: k4310 o|inlining procedure: k4310 o|inlining procedure: k4326 o|inlining procedure: k4326 o|inlining procedure: "(posix-common.scm:760) badmode1097" o|substituted constant variable: a4350 o|substituted constant variable: a4352 o|inlining procedure: k4366 o|inlining procedure: k4366 o|inlining procedure: "(posix-common.scm:771) badmode1097" o|substituted constant variable: a4390 o|substituted constant variable: a4392 o|substituted constant variable: a4397 o|substituted constant variable: a4398 o|inlining procedure: k4399 o|inlining procedure: k4399 o|substituted constant variable: a4412 o|substituted constant variable: a4413 o|inlining procedure: k4414 o|inlining procedure: k4414 o|inlining procedure: k4601 o|inlining procedure: k4601 o|contracted procedure: "(posixunix.scm:341) fcntl1276" o|inlining procedure: k4639 o|inlining procedure: k4639 o|inlining procedure: k4664 o|inlining procedure: k4664 o|inlining procedure: k4698 o|inlining procedure: k4698 o|inlining procedure: k4738 o|inlining procedure: k4738 o|inlining procedure: k4841 o|inlining procedure: k4841 o|inlining procedure: k4864 o|inlining procedure: k4864 o|inlining procedure: k4887 o|inlining procedure: k4896 o|inlining procedure: k4896 o|inlining procedure: k4887 o|inlining procedure: k4902 o|inlining procedure: k4902 o|inlining procedure: k4917 o|inlining procedure: k4917 o|contracted procedure: "(posixunix.scm:449) g14481449" o|inlining procedure: k4936 o|inlining procedure: k4936 o|inlining procedure: k4976 o|inlining procedure: k4976 o|contracted procedure: "(posixunix.scm:441) g14291430" o|inlining procedure: k4995 o|inlining procedure: k4995 o|contracted procedure: "(posixunix.scm:434) g14031404" o|inlining procedure: k5046 o|inlining procedure: k5046 o|contracted procedure: "(posixunix.scm:428) g13881389" o|inlining procedure: k5063 o|inlining procedure: k5063 o|inlining procedure: k5088 o|inlining procedure: k5088 o|contracted procedure: "(posixunix.scm:422) g13711372" o|inlining procedure: k5105 o|inlining procedure: k5105 o|inlining procedure: k5138 o|inlining procedure: k5138 o|inlining procedure: k5153 o|inlining procedure: k5153 o|inlining procedure: k5175 o|inlining procedure: k5175 o|inlining procedure: k5239 o|inlining procedure: k5239 o|inlining procedure: k5252 o|contracted procedure: "(posixunix.scm:564) g14811488" o|inlining procedure: k5252 o|inlining procedure: k5288 o|inlining procedure: k5288 o|inlining procedure: k5304 o|inlining procedure: k5304 o|inlining procedure: k5339 o|inlining procedure: k5339 o|inlining procedure: k5424 o|inlining procedure: k5424 o|inlining procedure: k5440 o|inlining procedure: k5440 o|inlining procedure: k5462 o|inlining procedure: k5462 o|inlining procedure: k5487 o|inlining procedure: k5487 o|inlining procedure: k5515 o|inlining procedure: k5515 o|inlining procedure: k5536 o|inlining procedure: k5561 o|inlining procedure: k5561 o|inlining procedure: k5582 o|inlining procedure: k5582 o|inlining procedure: k5612 o|inlining procedure: k5612 o|inlining procedure: k5536 o|inlining procedure: k5651 o|inlining procedure: k5651 o|contracted procedure: "(posixunix.scm:778) link1611" o|inlining procedure: k5705 o|inlining procedure: k5705 o|inlining procedure: k5731 o|inlining procedure: k5731 o|inlining procedure: k5745 o|inlining procedure: k5769 o|inlining procedure: k5769 o|inlining procedure: k5745 o|inlining procedure: k5790 o|inlining procedure: k5790 o|inlining procedure: k5810 o|inlining procedure: k5810 o|inlining procedure: k5847 o|inlining procedure: k5847 o|inlining procedure: k5869 o|inlining procedure: k5869 o|inlining procedure: k5878 o|inlining procedure: k5878 o|inlining procedure: k5894 o|inlining procedure: k5894 o|inlining procedure: k5919 o|inlining procedure: k5919 o|inlining procedure: k5966 o|inlining procedure: k5966 o|inlining procedure: k5988 o|inlining procedure: k5988 o|inlining procedure: k6016 o|inlining procedure: k6016 o|inlining procedure: k6059 o|inlining procedure: k6059 o|inlining procedure: k6104 o|inlining procedure: k6104 o|inlining procedure: k6209 o|inlining procedure: k6230 o|inlining procedure: k6230 o|inlining procedure: k6209 o|inlining procedure: k6286 o|inlining procedure: k6286 o|inlining procedure: k6310 o|inlining procedure: k6310 o|inlining procedure: k6325 o|inlining procedure: k6342 o|inlining procedure: k6342 o|inlining procedure: k6325 o|inlining procedure: k6438 o|inlining procedure: k6438 o|inlining procedure: k6448 o|inlining procedure: k6448 o|inlining procedure: k6468 o|inlining procedure: k6468 o|inlining procedure: k6575 o|inlining procedure: k6575 o|inlining procedure: k6606 o|inlining procedure: k6606 o|inlining procedure: k6631 o|contracted procedure: "(posixunix.scm:1019) g18681869" o|inlining procedure: k6636 o|inlining procedure: k6636 o|inlining procedure: k6631 o|inlining procedure: k6666 o|inlining procedure: k6666 o|inlining procedure: k6707 o|inlining procedure: k6707 o|contracted procedure: "(posixunix.scm:1053) strptime1888" o|inlining procedure: k6736 o|inlining procedure: k6736 o|inlining procedure: k6788 o|inlining procedure: k6788 o|inlining procedure: k6846 o|inlining procedure: k6846 o|contracted procedure: "(posixunix.scm:1089) fork1928" o|contracted procedure: "(posixunix.scm:1086) g19461947" o|inlining procedure: k6831 o|inlining procedure: k6831 o|inlining procedure: k6945 o|inlining procedure: k6945 o|inlining procedure: k6997 o|inlining procedure: k6997 o|inlining procedure: k7016 o|inlining procedure: k7016 o|inlining procedure: k7043 o|inlining procedure: k7043 o|removed unused formal parameters: (loc2004) o|inlining procedure: k7062 o|inlining procedure: k7062 o|inlining procedure: k7080 o|inlining procedure: k7080 o|inlining procedure: "(posixunix.scm:1156) chicken.posix#shell-command-arguments" o|removed unused parameter to known procedure: loc2004 "(posixunix.scm:1155) chicken.posix#shell-command" o|inlining procedure: k7133 o|inlining procedure: k7151 o|inlining procedure: k7151 o|inlining procedure: k7133 o|removed unused formal parameters: (loc2039) o|inlining procedure: k7165 o|inlining procedure: k7165 o|removed unused formal parameters: (loc2044 fd2047) o|inlining procedure: k7185 o|inlining procedure: k7185 o|inlining procedure: k7197 o|contracted procedure: "(posixunix.scm:1208) replace-fd2019" o|inlining procedure: k7114 o|inlining procedure: k7114 o|inlining procedure: k7197 o|inlining procedure: k7212 o|inlining procedure: k7212 o|removed unused parameter to known procedure: loc2039 "(posixunix.scm:1218) needed-pipe2025" o|removed unused parameter to known procedure: loc2039 "(posixunix.scm:1217) needed-pipe2025" o|removed unused parameter to known procedure: loc2039 "(posixunix.scm:1216) needed-pipe2025" o|removed unused formal parameters: (pid2079) o|inlining procedure: k7274 o|inlining procedure: k7274 o|removed unused parameter to known procedure: loc2044 "(posixunix.scm:1229) connect-parent2026" o|removed unused parameter to known procedure: fd2047 "(posixunix.scm:1229) connect-parent2026" o|removed unused formal parameters: (pid2088) o|inlining procedure: k7285 o|inlining procedure: k7285 o|removed unused parameter to known procedure: loc2044 "(posixunix.scm:1233) connect-parent2026" o|removed unused parameter to known procedure: fd2047 "(posixunix.scm:1233) connect-parent2026" o|removed unused parameter to known procedure: pid2079 "(posixunix.scm:1250) input-port2060" o|removed unused parameter to known procedure: pid2088 "(posixunix.scm:1246) output-port2061" o|removed unused parameter to known procedure: pid2079 "(posixunix.scm:1243) input-port2060" o|inlining procedure: k7365 o|inlining procedure: k7365 o|removed unused parameter to known procedure: loc2004 "(posixunix.scm:1268) chicken.posix#shell-command" o|inlining procedure: "(posixunix.scm:1267) chicken.posix#shell-command-arguments" o|inlining procedure: k7559 o|inlining procedure: k7559 o|contracted procedure: "(posixunix.scm:1291) chroot2188" o|substituted constant variable: c2201 o|inlining procedure: k7633 o|inlining procedure: k7633 o|inlining procedure: k7654 o|inlining procedure: k7654 o|inlining procedure: k7673 o|inlining procedure: k7673 o|inlining procedure: k7692 o|inlining procedure: k7692 o|inlining procedure: k7711 o|inlining procedure: k7711 o|inlining procedure: k7730 o|inlining procedure: k7730 o|inlining procedure: k7752 o|inlining procedure: k7752 o|inlining procedure: k7767 o|inlining procedure: k7767 o|inlining procedure: k7795 o|inlining procedure: k7795 o|inlining procedure: k7819 o|inlining procedure: k7819 o|inlining procedure: k7831 o|inlining procedure: k7831 o|inlining procedure: k7841 o|inlining procedure: k7841 o|replaced variables: 735 o|removed binding forms: 662 o|removed side-effect free assignment to unused variable: c2201 o|substituted constant variable: r29637877 o|substituted constant variable: r31077890 o|substituted constant variable: r31077890 o|substituted constant variable: r32197893 o|substituted constant variable: r32317895 o|substituted constant variable: r32437897 o|substituted constant variable: r32077899 o|substituted constant variable: r33797903 o|inlining procedure: k3441 o|substituted constant variable: r34557908 o|inlining procedure: k3441 o|inlining procedure: k3441 o|substituted constant variable: r34887914 o|substituted constant variable: r34887914 o|substituted constant variable: r34887916 o|substituted constant variable: r34887916 o|propagated global variable: g8338347933 chicken.process-context.posix#change-directory* o|substituted constant variable: r37777952 o|substituted constant variable: r37777952 o|substituted constant variable: r37647959 o|substituted constant variable: r37647959 o|substituted constant variable: r42807983 o|removed side-effect free assignment to unused variable: badmode1097 o|substituted constant variable: r43117986 o|substituted constant variable: r43117986 o|substituted constant variable: r43117988 o|substituted constant variable: r43117988 o|inlining procedure: k4326 o|inlining procedure: k4366 o|substituted constant variable: r48658040 o|substituted constant variable: r48658040 o|substituted constant variable: r48658042 o|substituted constant variable: r48658042 o|inlining procedure: k4887 o|inlining procedure: k4887 o|substituted constant variable: r48978047 o|inlining procedure: k4887 o|substituted constant variable: r48888048 o|substituted constant variable: r48888048 o|substituted constant variable: r49378056 o|substituted constant variable: r49378056 o|substituted constant variable: r49968062 o|substituted constant variable: r49968062 o|substituted constant variable: r50648068 o|substituted constant variable: r50648068 o|substituted constant variable: r51068074 o|substituted constant variable: r51068074 o|substituted constant variable: r53408099 o|inlining procedure: k5582 o|substituted constant variable: r56138121 o|substituted constant variable: r56138121 o|substituted constant variable: r57328128 o|inlining procedure: k5802 o|inlining procedure: k5802 o|substituted constant variable: r59898168 o|substituted constant variable: r61058180 o|inlining procedure: k6448 o|inlining procedure: k6448 o|substituted constant variable: r66378216 o|substituted constant variable: r67378224 o|substituted constant variable: r67378224 o|substituted constant variable: c-pointer19481952 o|substituted constant variable: c-pointer19481952 o|substituted constant variable: r68328232 o|substituted constant variable: r68328232 o|inlining procedure: k7016 o|inlining procedure: k7016 o|substituted constant variable: r70638245 o|removed side-effect free assignment to unused variable: chicken.posix#shell-command-arguments o|substituted constant variable: r71668258 o|substituted constant variable: r71868260 o|substituted constant variable: r72138266 o|removed unused formal parameters: (stdfd2083) o|substituted constant variable: r72758268 o|removed unused formal parameters: (stdfd2092) o|substituted constant variable: r72868270 o|removed unused parameter to known procedure: stdfd2083 "(posixunix.scm:1250) input-port2060" o|removed unused parameter to known procedure: stdfd2092 "(posixunix.scm:1246) output-port2061" o|removed unused parameter to known procedure: stdfd2083 "(posixunix.scm:1243) input-port2060" o|substituted constant variable: r78328309 o|replaced variables: 53 o|removed binding forms: 764 o|removed conditional forms: 1 o|inlining procedure: k3850 o|inlining procedure: k3850 o|inlining procedure: k4075 o|inlining procedure: k4710 o|inlining procedure: k4710 o|inlining procedure: k4754 o|inlining procedure: k4754 o|substituted constant variable: r48888342 o|removed unused formal parameters: (loc2052) o|removed unused parameter to known procedure: loc2052 "(posixunix.scm:1225) connect-child2027" o|removed unused parameter to known procedure: loc2052 "(posixunix.scm:1224) connect-child2027" o|removed unused parameter to known procedure: loc2052 "(posixunix.scm:1223) connect-child2027" o|inlining procedure: k7501 o|replaced variables: 17 o|removed binding forms: 145 o|substituted constant variable: r34428314 o|substituted constant variable: r34428316 o|substituted constant variable: r34428318 o|substituted constant variable: r38518414 o|contracted procedure: k4000 o|substituted constant variable: r47118431 o|substituted constant variable: r47558433 o|contracted procedure: k6840 o|removed unused formal parameters: (loc2065) o|removed unused parameter to known procedure: loc2065 "(posixunix.scm:1237) spawn2059" o|inlining procedure: k7792 o|inlining procedure: k7792 o|simplifications: ((let . 2)) o|replaced variables: 5 o|removed binding forms: 21 o|removed conditional forms: 2 o|substituted constant variable: r77938506 o|replaced variables: 1 o|removed binding forms: 12 o|contracted procedure: k6837 o|removed binding forms: 3 o|simplifications: ((if . 86) (##core#call . 546)) o| call simplifications: o| scheme#< o| scheme#vector-ref 2 o| scheme#make-vector o| chicken.fixnum#fxior 2 o| ##sys#check-structure o| ##sys#make-structure o| chicken.fixnum#fxmin 2 o| scheme#eof-object? o| chicken.fixnum#fx>= 7 o| chicken.fixnum#fx* o| scheme#* o| scheme#memq 2 o| scheme#list 7 o| scheme#call-with-values 4 o| ##sys#check-pair o| ##sys#check-list 7 o| ##sys#apply 2 o| chicken.fixnum#fx+ 21 o| ##sys#call-with-values 8 o| scheme#values 19 o| scheme#vector-set! 3 o| ##sys#foreign-block-argument 8 o| scheme#= 3 o| ##sys#foreign-ranged-integer-argument 2 o| chicken.fixnum#fx- 12 o| ##sys#check-vector o| ##sys#size 11 o| ##sys#null-pointer? 2 o| scheme#not 9 o| ##sys#setislot 4 o| chicken.fixnum#fx= 42 o| scheme#cdr 29 o| ##sys#foreign-string-argument 4 o| scheme#vector 2 o| chicken.base#fixnum? 16 o| scheme#string? 4 o| ##sys#foreign-fixnum-argument 14 o| scheme#null? 72 o| scheme#car 51 o| scheme#string->list o| scheme#pair? 17 o| scheme#cons 10 o| ##sys#setslot 4 o| ##sys#slot 27 o| scheme#apply 11 o| scheme#char=? o| scheme#string 3 o| scheme#eq? 29 o| ##sys#check-string 21 o| chicken.fixnum#fx< 42 o|contracted procedure: k2720 o|contracted procedure: k2726 o|contracted procedure: k2744 o|contracted procedure: k2843 o|contracted procedure: k2757 o|contracted procedure: k2840 o|contracted procedure: k2760 o|contracted procedure: k2763 o|contracted procedure: k2771 o|contracted procedure: k2795 o|contracted procedure: k2803 o|contracted procedure: k2812 o|contracted procedure: k2815 o|contracted procedure: k2818 o|contracted procedure: k2826 o|contracted procedure: k2834 o|contracted procedure: k2846 o|contracted procedure: k2936 o|contracted procedure: k2965 o|contracted procedure: k2974 o|contracted procedure: k2990 o|contracted procedure: k3014 o|contracted procedure: k3005 o|contracted procedure: k3032 o|contracted procedure: k3038 o|contracted procedure: k3054 o|contracted procedure: k3146 o|contracted procedure: k3088 o|contracted procedure: k3140 o|contracted procedure: k3091 o|contracted procedure: k3134 o|contracted procedure: k3094 o|contracted procedure: k3122 o|contracted procedure: k3113 o|contracted procedure: k3152 o|contracted procedure: k3272 o|contracted procedure: k3194 o|contracted procedure: k3266 o|contracted procedure: k3197 o|contracted procedure: k3260 o|contracted procedure: k3200 o|contracted procedure: k3254 o|contracted procedure: k3203 o|contracted procedure: k3215 o|contracted procedure: k3221 o|contracted procedure: k3227 o|contracted procedure: k3233 o|contracted procedure: k3239 o|contracted procedure: k3245 o|contracted procedure: k3251 o|contracted procedure: k3388 o|contracted procedure: k3375 o|contracted procedure: k3384 o|contracted procedure: k3394 o|contracted procedure: k3400 o|contracted procedure: k3444 o|contracted procedure: k3451 o|contracted procedure: k3457 o|contracted procedure: k3477 o|contracted procedure: k3560 o|contracted procedure: k3526 o|contracted procedure: k3539 o|contracted procedure: k3545 o|contracted procedure: k3575 o|contracted procedure: k3581 o|contracted procedure: k3584 o|contracted procedure: k3602 o|contracted procedure: k3618 o|contracted procedure: k3629 o|contracted procedure: k3642 o|contracted procedure: k3635 o|contracted procedure: k3657 o|contracted procedure: k3678 o|contracted procedure: k3721 o|contracted procedure: k3717 o|contracted procedure: k3695 o|contracted procedure: k3727 o|contracted procedure: k3749 o|contracted procedure: k3837 o|contracted procedure: k3784 o|contracted procedure: k3793 o|contracted procedure: k3776 o|contracted procedure: k3827 o|contracted procedure: k3823 o|contracted procedure: k3763 o|contracted procedure: k3929 o|contracted procedure: k3869 o|contracted procedure: k3923 o|contracted procedure: k3872 o|contracted procedure: k3917 o|contracted procedure: k3875 o|contracted procedure: k3911 o|contracted procedure: k3878 o|contracted procedure: k3881 o|contracted procedure: k3902 o|contracted procedure: k3940 o|contracted procedure: k3988 o|contracted procedure: k3991 o|contracted procedure: k4028 o|contracted procedure: k3994 o|contracted procedure: k4015 o|contracted procedure: k4069 o|contracted procedure: k4082 o|contracted procedure: k40828421 o|contracted procedure: k4091 o|contracted procedure: k4096 o|contracted procedure: k4099 o|contracted procedure: k4118 o|contracted procedure: k4128 o|contracted procedure: k4132 o|contracted procedure: k4143 o|contracted procedure: k4209 o|contracted procedure: k4223 o|contracted procedure: k4235 o|contracted procedure: k4238 o|contracted procedure: k4241 o|contracted procedure: k4249 o|contracted procedure: k4257 o|contracted procedure: k4218 o|contracted procedure: k4282 o|contracted procedure: k4300 o|contracted procedure: k4316 o|contracted procedure: k4329 o|contracted procedure: k4339 o|contracted procedure: k4356 o|contracted procedure: k4369 o|contracted procedure: k4379 o|contracted procedure: k4402 o|contracted procedure: k4417 o|contracted procedure: k4543 o|contracted procedure: k4550 o|contracted procedure: k4610 o|contracted procedure: k4589 o|contracted procedure: k4604 o|contracted procedure: k4575 o|contracted procedure: k4579 o|contracted procedure: k4583 o|contracted procedure: k4626 o|contracted procedure: k4642 o|contracted procedure: k4648 o|contracted procedure: k4667 o|contracted procedure: k4673 o|contracted procedure: k4704 o|contracted procedure: k4716 o|contracted procedure: k4741 o|contracted procedure: k4747 o|contracted procedure: k4763 o|contracted procedure: k4769 o|contracted procedure: k4783 o|contracted procedure: k4786 o|contracted procedure: k4806 o|contracted procedure: k4844 o|contracted procedure: k4853 o|contracted procedure: k4870 o|contracted procedure: k4860 o|contracted procedure: k4867 o|contracted procedure: k4893 o|contracted procedure: k4899 o|contracted procedure: k4905 o|contracted procedure: k4911 o|contracted procedure: k4920 o|contracted procedure: k4949 o|contracted procedure: k4959 o|contracted procedure: k4953 o|contracted procedure: k4966 o|contracted procedure: k4970 o|contracted procedure: k4932 o|contracted procedure: k4936 o|contracted procedure: k4979 o|contracted procedure: k5008 o|contracted procedure: k5018 o|contracted procedure: k5012 o|contracted procedure: k5025 o|contracted procedure: k5029 o|contracted procedure: k4991 o|contracted procedure: k4995 o|contracted procedure: k4824 o|contracted procedure: k4828 o|contracted procedure: k4832 o|contracted procedure: k5049 o|contracted procedure: k5076 o|contracted procedure: k5082 o|contracted procedure: k5055 o|contracted procedure: k5059 o|contracted procedure: k5063 o|contracted procedure: k5091 o|contracted procedure: k5118 o|contracted procedure: k5124 o|contracted procedure: k5097 o|contracted procedure: k5101 o|contracted procedure: k5105 o|contracted procedure: k5131 o|contracted procedure: k5135 o|contracted procedure: k5141 o|contracted procedure: k5147 o|contracted procedure: k5150 o|contracted procedure: k5156 o|contracted procedure: k5162 o|contracted procedure: k5165 o|contracted procedure: k5188 o|contracted procedure: k5172 o|contracted procedure: k5181 o|contracted procedure: k5222 o|contracted procedure: k5228 o|contracted procedure: k5242 o|contracted procedure: k5255 o|contracted procedure: k5265 o|contracted procedure: k5269 o|contracted procedure: k5291 o|contracted procedure: k5307 o|contracted procedure: k5378 o|contracted procedure: k5333 o|contracted procedure: k5342 o|contracted procedure: k5368 o|contracted procedure: k5371 o|contracted procedure: k5427 o|contracted procedure: k5443 o|contracted procedure: k5449 o|contracted procedure: k5465 o|contracted procedure: k5481 o|contracted procedure: k5484 o|contracted procedure: k5490 o|contracted procedure: k5518 o|contracted procedure: k5618 o|contracted procedure: k5530 o|contracted procedure: k5533 o|contracted procedure: k5564 o|contracted procedure: k5604 o|contracted procedure: k5608 o|contracted procedure: k5645 o|contracted procedure: k5648 o|contracted procedure: k5654 o|contracted procedure: k5636 o|contracted procedure: k5640 o|contracted procedure: k6171 o|contracted procedure: k5667 o|contracted procedure: k6165 o|contracted procedure: k5670 o|contracted procedure: k6159 o|contracted procedure: k5673 o|contracted procedure: k6153 o|contracted procedure: k5676 o|contracted procedure: k6147 o|contracted procedure: k5679 o|contracted procedure: k6141 o|contracted procedure: k5682 o|contracted procedure: k6135 o|contracted procedure: k5685 o|contracted procedure: k6129 o|contracted procedure: k5688 o|contracted procedure: k6120 o|contracted procedure: k5694 o|contracted procedure: k5708 o|contracted procedure: k5714 o|contracted procedure: k5717 o|contracted procedure: k5734 o|contracted procedure: k5748 o|contracted procedure: k5754 o|contracted procedure: k5757 o|contracted procedure: k5772 o|contracted procedure: k5787 o|contracted procedure: k5807 o|contracted procedure: k5813 o|contracted procedure: k5816 o|contracted procedure: k5835 o|contracted procedure: k5850 o|contracted procedure: k5854 o|contracted procedure: k5857 o|contracted procedure: k5866 o|contracted procedure: k5884 o|contracted procedure: k5900 o|contracted procedure: k5922 o|contracted procedure: k5928 o|contracted procedure: k5931 o|contracted procedure: k5960 o|contracted procedure: k5934 o|contracted procedure: k5938 o|contracted procedure: k5942 o|contracted procedure: k5949 o|contracted procedure: k5953 o|contracted procedure: k5957 o|contracted procedure: k5969 o|contracted procedure: k5979 o|contracted procedure: k5991 o|contracted procedure: k5994 o|contracted procedure: k6053 o|contracted procedure: k6007 o|contracted procedure: k6013 o|contracted procedure: k6019 o|contracted procedure: k6026 o|contracted procedure: k6035 o|contracted procedure: k6046 o|contracted procedure: k6042 o|contracted procedure: k6074 o|contracted procedure: k6070 o|contracted procedure: k6063 o|inlining procedure: k6059 o|contracted procedure: k6085 o|contracted procedure: k6089 o|contracted procedure: k6081 o|inlining procedure: k6059 o|contracted procedure: k6095 o|contracted procedure: k6107 o|contracted procedure: k6114 o|contracted procedure: k6426 o|contracted procedure: k6180 o|contracted procedure: k6420 o|contracted procedure: k6183 o|contracted procedure: k6414 o|contracted procedure: k6186 o|contracted procedure: k6408 o|contracted procedure: k6189 o|contracted procedure: k6402 o|contracted procedure: k6192 o|contracted procedure: k6396 o|contracted procedure: k6195 o|contracted procedure: k6212 o|contracted procedure: k6218 o|contracted procedure: k6221 o|contracted procedure: k6233 o|contracted procedure: k6248 o|contracted procedure: k6259 o|contracted procedure: k6387 o|contracted procedure: k6262 o|contracted procedure: k6274 o|contracted procedure: k6292 o|contracted procedure: k6305 o|contracted procedure: k6317 o|contracted procedure: k6332 o|contracted procedure: k6336 o|contracted procedure: k6345 o|contracted procedure: k6358 o|contracted procedure: k6365 o|contracted procedure: k6369 o|contracted procedure: k6375 o|contracted procedure: k6381 o|contracted procedure: k6451 o|contracted procedure: k6471 o|contracted procedure: k6539 o|contracted procedure: k6480 o|contracted procedure: k6533 o|contracted procedure: k6483 o|contracted procedure: k6527 o|contracted procedure: k6486 o|contracted procedure: k6521 o|contracted procedure: k6489 o|contracted procedure: k6511 o|contracted procedure: k6507 o|contracted procedure: k6501 o|contracted procedure: k6514 o|contracted procedure: k6552 o|contracted procedure: k6556 o|contracted procedure: k6560 o|contracted procedure: k6578 o|contracted procedure: k6584 o|contracted procedure: k6609 o|contracted procedure: k6615 o|contracted procedure: k6643 o|contracted procedure: k6639 o|contracted procedure: k6655 o|contracted procedure: k6659 o|contracted procedure: k6663 o|contracted procedure: k6692 o|contracted procedure: k6669 o|contracted procedure: k6675 o|contracted procedure: k6698 o|contracted procedure: k6710 o|contracted procedure: k6721 o|contracted procedure: k6729 o|contracted procedure: k6772 o|contracted procedure: k6744 o|contracted procedure: k6747 o|contracted procedure: k6750 o|contracted procedure: k6765 o|substituted constant variable: g8665 o|substituted constant variable: g8665 o|substituted constant variable: g8665 o|substituted constant variable: g8665 o|substituted constant variable: g8665 o|substituted constant variable: g8665 o|substituted constant variable: g8665 o|substituted constant variable: g8665 o|substituted constant variable: g8665 o|substituted constant variable: g8665 o|contracted procedure: k6736 o|contracted procedure: k6791 o|contracted procedure: k6808 o|contracted procedure: k6906 o|contracted procedure: k6816 o|contracted procedure: k6900 o|contracted procedure: k6819 o|contracted procedure: k6894 o|contracted procedure: k6822 o|contracted procedure: k6888 o|contracted procedure: k6825 o|contracted procedure: k6849 o|contracted procedure: k6852 o|contracted procedure: k6882 o|contracted procedure: k6984 o|contracted procedure: k6915 o|contracted procedure: k6978 o|contracted procedure: k6918 o|contracted procedure: k6972 o|contracted procedure: k6921 o|contracted procedure: k6966 o|contracted procedure: k6924 o|contracted procedure: k6960 o|contracted procedure: k6927 o|contracted procedure: k6954 o|contracted procedure: k6930 o|contracted procedure: k6942 o|contracted procedure: k6948 o|contracted procedure: k6994 o|contracted procedure: k7022 o|contracted procedure: k7000 o|contracted procedure: k7046 o|contracted procedure: k7052 o|contracted procedure: k7104 o|contracted procedure: k7083 o|contracted procedure: k7100 o|contracted procedure: k7107 o|contracted procedure: k7130 o|contracted procedure: k7157 o|contracted procedure: k7136 o|contracted procedure: k7188 o|contracted procedure: k7200 o|contracted procedure: k7117 o|contracted procedure: k7219 o|contracted procedure: k7336 o|contracted procedure: k7340 o|contracted procedure: k7344 o|contracted procedure: k7305 o|contracted procedure: k7351 o|contracted procedure: k7368 o|contracted procedure: k7378 o|contracted procedure: k7382 o|contracted procedure: k7385 o|contracted procedure: k7410 o|contracted procedure: k7477 o|contracted procedure: k7420 o|contracted procedure: k7471 o|contracted procedure: k7423 o|contracted procedure: k7465 o|contracted procedure: k7426 o|contracted procedure: k7459 o|contracted procedure: k7429 o|contracted procedure: k7453 o|contracted procedure: k7432 o|contracted procedure: k7447 o|contracted procedure: k7435 o|contracted procedure: k7537 o|contracted procedure: k7486 o|contracted procedure: k7531 o|contracted procedure: k7489 o|contracted procedure: k7525 o|contracted procedure: k7492 o|contracted procedure: k7519 o|contracted procedure: k7495 o|contracted procedure: k7513 o|contracted procedure: k7498 o|contracted procedure: k7507 o|contracted procedure: k7501 o|contracted procedure: k7556 o|contracted procedure: k7562 o|contracted procedure: k7551 o|contracted procedure: k7624 o|contracted procedure: k7636 o|contracted procedure: k7657 o|contracted procedure: k7676 o|contracted procedure: k7695 o|contracted procedure: k7714 o|contracted procedure: k7733 o|contracted procedure: k7755 o|contracted procedure: k7758 o|contracted procedure: k7767 o|contracted procedure: k7801 o|contracted procedure: k7785 o|contracted procedure: k7822 o|contracted procedure: k7838 o|contracted procedure: k7834 o|contracted procedure: k7844 o|simplifications: ((let . 102)) o|removed binding forms: 469 o|inlining procedure: "(posix-common.scm:753) mode1096" o|inlining procedure: "(posix-common.scm:764) mode1096" o|replaced variables: 269 o|removed binding forms: 2 o|removed side-effect free assignment to unused variable: mode1096 o|inlining procedure: k5069 o|inlining procedure: k5069 o|inlining procedure: k5111 o|inlining procedure: k5111 o|replaced variables: 6 o|removed binding forms: 126 o|contracted procedure: k4598 o|contracted procedure: k4838 o|converted assignments to bindings: (check1098) o|simplifications: ((let . 1)) o|removed binding forms: 10 o|contracted procedure: k4319 o|contracted procedure: k4359 o|removed binding forms: 2 o|direct leaf routine/allocation: g10251032 0 o|direct leaf routine/allocation: doloop13671385 0 o|direct leaf routine/allocation: doloop13661368 0 o|direct leaf routine/allocation: peek1650 0 o|direct leaf routine/allocation: swapped-ends2062 3 o|direct leaf routine/allocation: g21202127 0 o|contracted procedure: "(posix-common.scm:704) k4121" o|contracted procedure: k4815 o|contracted procedure: k4818 o|converted assignments to bindings: (doloop13671385) o|converted assignments to bindings: (doloop13661368) o|contracted procedure: "(posixunix.scm:840) k5844" o|contracted procedure: "(posixunix.scm:1220) k7239" o|contracted procedure: "(posixunix.scm:1225) k7262" o|contracted procedure: "(posixunix.scm:1224) k7266" o|contracted procedure: "(posixunix.scm:1262) k7371" o|simplifications: ((let . 2)) o|removed binding forms: 8 o|direct leaf routine/allocation: for-each-loop10241037 0 o|direct leaf routine/allocation: for-each-loop21192137 0 o|converted assignments to bindings: (for-each-loop10241037) o|converted assignments to bindings: (for-each-loop21192137) o|simplifications: ((let . 2)) o|customizable procedures: (loop1501 %process2108 chkstrlst2115 chicken.posix#process-impl output-port2061 make-on-close2024 input-port2060 spawn2059 connect-parent2026 needed-pipe2025 connect-child2027 k7074 chicken.posix#shell-command k7034 chicken.posix#call-with-exec-args k6701 setup1819 err1820 k6441 loop1789 k6265 k5913 loop1696 ready?1649 fetch1651 loop1598 k5336 for-each-loop14801492 k4795 k4798 k4801 k5033 k5001 lp1421 k4942 lp1440 k4883 k4732 k4623 check1098 chicken.posix#check-environment-list map-loop10681086 chicken.posix#list->c-string-buffer k4191 doloop10121013 tmp12525 tmp22526 doloop993994 chicken.posix#free-c-string-buffer chicken.posix#process-wait-impl chicken.posix#check-time-vector k3569 mode780 check781 k3354 chicken.posix#chown chicken.posix#stat g256265 map-loop250272) o|calls to known targets: 235 o|identified direct recursive calls: f_4113 1 o|identified direct recursive calls: f_5086 2 o|identified direct recursive calls: f_5044 2 o|identified direct recursive calls: f_5917 1 o|identified direct recursive calls: f_6340 1 o|identified direct recursive calls: f_7363 1 o|unused rest argument: _21972200 f_7573 o|identified direct recursive calls: f_7750 2 o|fast box initializations: 21 o|fast global references: 74 o|fast global assignments: 12 o|dropping unused closure argument: f_2957 o|dropping unused closure argument: f_3435 o|dropping unused closure argument: f_3472 o|dropping unused closure argument: f_3627 o|dropping unused closure argument: f_3938 o|dropping unused closure argument: f_4055 o|dropping unused closure argument: f_4089 o|dropping unused closure argument: f_4295 o|dropping unused closure argument: f_5413 o|dropping unused closure argument: f_6478 o|dropping unused closure argument: f_6546 o|dropping unused closure argument: f_6991 o|dropping unused closure argument: f_7057 o|dropping unused closure argument: f_7126 o|dropping unused closure argument: f_7163 o|dropping unused closure argument: f_7183 o|dropping unused closure argument: f_7195 o|dropping unused closure argument: f_7210 o|dropping unused closure argument: f_7347 */ /* end of file */ ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.process.import.scm������������������������������������������������������������0000644�0001750�0001750�00000003072�13502227762�020035� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.process.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.process 'posix (scheme#list) '((qs . chicken.process#qs) (system . chicken.process#system) (system* . chicken.process#system*) (process-execute . chicken.process#process-execute) (process-fork . chicken.process#process-fork) (process-run . chicken.process#process-run) (process-signal . chicken.process#process-signal) (process-spawn . chicken.process#process-spawn) (process-wait . chicken.process#process-wait) (call-with-input-pipe . chicken.process#call-with-input-pipe) (call-with-output-pipe . chicken.process#call-with-output-pipe) (close-input-pipe . chicken.process#close-input-pipe) (close-output-pipe . chicken.process#close-output-pipe) (create-pipe . chicken.process#create-pipe) (open-input-pipe . chicken.process#open-input-pipe) (open-output-pipe . chicken.process#open-output-pipe) (with-input-from-pipe . chicken.process#with-input-from-pipe) (with-output-to-pipe . chicken.process#with-output-to-pipe) (process . chicken.process#process) (process* . chicken.process#process*) (process-sleep . chicken.process#process-sleep) (pipe/buf . chicken.process#pipe/buf) (spawn/overlay . chicken.process#spawn/overlay) (spawn/wait . chicken.process#spawn/wait) (spawn/nowait . chicken.process#spawn/nowait) (spawn/nowaito . chicken.process#spawn/nowaito) (spawn/detach . chicken.process#spawn/detach)) (scheme#list) (scheme#list)) ;; END OF FILE ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.tcp.import.c������������������������������������������������������������������0000644�0001750�0001750�00000017045�13502227775�016616� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.tcp.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.tcp.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.tcp.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.tcp.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(341))){ C_save(t1); C_rereclaim2(341*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],11, C_text("chicken.tcp")); lf[2]=C_h_intern(&lf[2],3, C_text("tcp")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001tcp-close\376\001\000\000\025\001chicken.tcp#tcp-close\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001tcp-listen\376\001" "\000\000\026\001chicken.tcp#tcp-listen\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001tcp-connect\376\001\000\000\027\001chicken.tcp#tcp-conne" "ct\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001tcp-accept\376\001\000\000\026\001chicken.tcp#tcp-accept\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001tcp-acce" "pt-ready\077\376\001\000\000\035\001chicken.tcp#tcp-accept-ready\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001tcp-listener\077\376\001\000\000\031\001c" "hicken.tcp#tcp-listener\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001tcp-addresses\376\001\000\000\031\001chicken.tcp#tcp-addre" "sses\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001tcp-abandon-port\376\001\000\000\034\001chicken.tcp#tcp-abandon-port\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\021\001tcp-listener-port\376\001\000\000\035\001chicken.tcp#tcp-listener-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001tcp-li" "stener-fileno\376\001\000\000\037\001chicken.tcp#tcp-listener-fileno\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001tcp-port-numbe" "rs\376\001\000\000\034\001chicken.tcp#tcp-port-numbers\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001tcp-buffer-size\376\001\000\000\033\001chicken" ".tcp#tcp-buffer-size\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001tcp-read-timeout\376\001\000\000\034\001chicken.tcp#tcp-read-t" "imeout\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001tcp-write-timeout\376\001\000\000\035\001chicken.tcp#tcp-write-timeout\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\022\001tcp-accept-timeout\376\001\000\000\036\001chicken.tcp#tcp-accept-timeout\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001" "tcp-connect-timeout\376\001\000\000\037\001chicken.tcp#tcp-connect-timeout\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2etcp_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2etcp_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2etcp_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2etcp_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2etcp_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/data-structures.scm�������������������������������������������������������������������0000644�0001750�0001750�00000042076�13502227553�016602� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; data-structures.scm - Optional data structures extensions ; ; Copyright (c) 2008-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without ; modification, are permitted provided that the following conditions ; are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit data-structures)) (module chicken.string (conc ->string string-chop string-chomp string-compare3 string-compare3-ci reverse-list->string reverse-string-append string-intersperse string-split string-translate string-translate* substring=? substring-ci=? substring-index substring-index-ci) (import scheme) (import chicken.base) (import chicken.condition) (import chicken.fixnum) (import chicken.foreign) ; (reverse-string-append l) = (apply string-append (reverse l)) (define (reverse-string-append l) (define (rev-string-append l i) (if (pair? l) (let* ((str (car l)) (len (string-length str)) (result (rev-string-append (cdr l) (fx+ i len)))) (let loop ((j 0) (k (fx- (fx- (string-length result) i) len))) (if (fx< j len) (begin (string-set! result k (string-ref str j)) (loop (fx+ j 1) (fx+ k 1))) result))) (make-string i))) (rev-string-append l 0)) (define (reverse-list->string l) (##sys#reverse-list->string l)) ;;; Anything->string conversion: (define ->string (lambda (x) (cond [(string? x) x] [(symbol? x) (symbol->string x)] [(char? x) (string x)] [(number? x) (##sys#number->string x)] [else (let ([o (open-output-string)]) (display x o) (get-output-string o) ) ] ) ) ) (define conc (lambda args (apply string-append (map ->string args)) ) ) ;;; Search one string inside another: (let () (define (traverse which where start test loc) (##sys#check-string which loc) (##sys#check-string where loc) (let* ((wherelen (##sys#size where)) (whichlen (##sys#size which)) (end (fx- wherelen whichlen))) (##sys#check-fixnum start loc) (if (and (fx>= start 0) (fx>= wherelen start)) (if (fx= whichlen 0) start (and (fx>= end 0) (let loop ((istart start)) (cond ((fx> istart end) #f) ((test istart whichlen) istart) (else (loop (fx+ istart 1))))))) (##sys#error-hook (foreign-value "C_OUT_OF_RANGE_ERROR" int) loc start wherelen)))) (set! ##sys#substring-index (lambda (which where start) (traverse which where start (lambda (i l) (##core#inline "C_substring_compare" which where 0 i l)) 'substring-index) ) ) (set! ##sys#substring-index-ci (lambda (which where start) (traverse which where start (lambda (i l) (##core#inline "C_substring_compare_case_insensitive" which where 0 i l)) 'substring-index-ci) ) ) ) (define (substring-index which where #!optional (start 0)) (##sys#substring-index which where start) ) (define (substring-index-ci which where #!optional (start 0)) (##sys#substring-index-ci which where start) ) ;;; 3-Way string comparison: (define (string-compare3 s1 s2) (##sys#check-string s1 'string-compare3) (##sys#check-string s2 'string-compare3) (let ((len1 (##sys#size s1)) (len2 (##sys#size s2)) ) (let* ((len-diff (fx- len1 len2)) (cmp (##core#inline "C_string_compare" s1 s2 (if (fx< len-diff 0) len1 len2)))) (if (fx= cmp 0) len-diff cmp)))) (define (string-compare3-ci s1 s2) (##sys#check-string s1 'string-compare3-ci) (##sys#check-string s2 'string-compare3-ci) (let ((len1 (##sys#size s1)) (len2 (##sys#size s2)) ) (let* ((len-diff (fx- len1 len2)) (cmp (##core#inline "C_string_compare_case_insensitive" s1 s2 (if (fx< len-diff 0) len1 len2)))) (if (fx= cmp 0) len-diff cmp)))) ;;; Substring comparison: (define (##sys#substring=? s1 s2 start1 start2 n) (##sys#check-string s1 'substring=?) (##sys#check-string s2 'substring=?) (let ((len (or n (fxmin (fx- (##sys#size s1) start1) (fx- (##sys#size s2) start2) ) ) ) ) (##sys#check-fixnum start1 'substring=?) (##sys#check-fixnum start2 'substring=?) (##core#inline "C_substring_compare" s1 s2 start1 start2 len) ) ) (define (substring=? s1 s2 #!optional (start1 0) (start2 0) len) (##sys#substring=? s1 s2 start1 start2 len) ) (define (##sys#substring-ci=? s1 s2 start1 start2 n) (##sys#check-string s1 'substring-ci=?) (##sys#check-string s2 'substring-ci=?) (let ((len (or n (fxmin (fx- (##sys#size s1) start1) (fx- (##sys#size s2) start2) ) ) ) ) (##sys#check-fixnum start1 'substring-ci=?) (##sys#check-fixnum start2 'substring-ci=?) (##core#inline "C_substring_compare_case_insensitive" s1 s2 start1 start2 len) ) ) (define (substring-ci=? s1 s2 #!optional (start1 0) (start2 0) len) (##sys#substring-ci=? s1 s2 start1 start2 len) ) ;;; Split string into substrings: (define string-split (lambda (str . delstr-and-flag) (##sys#check-string str 'string-split) (let* ([del (if (null? delstr-and-flag) "\t\n " (car delstr-and-flag))] [flag (if (fx= (length delstr-and-flag) 2) (cadr delstr-and-flag) #f)] [strlen (##sys#size str)] ) (##sys#check-string del 'string-split) (let ([dellen (##sys#size del)] [first #f] ) (define (add from to last) (let ([node (cons (##sys#substring str from to) '())]) (if first (##sys#setslot last 1 node) (set! first node) ) node) ) (let loop ([i 0] [last #f] [from 0]) (cond [(fx>= i strlen) (when (or (fx> i from) flag) (add from i last)) (or first '()) ] [else (let ([c (##core#inline "C_subchar" str i)]) (let scan ([j 0]) (cond [(fx>= j dellen) (loop (fx+ i 1) last from)] [(eq? c (##core#inline "C_subchar" del j)) (let ([i2 (fx+ i 1)]) (if (or (fx> i from) flag) (loop i2 (add from i last) i2) (loop i2 last i2) ) ) ] [else (scan (fx+ j 1))] ) ) ) ] ) ) ) ) ) ) ;;; Concatenate list of strings: (define (string-intersperse strs #!optional (ds " ")) (##sys#check-list strs 'string-intersperse) (##sys#check-string ds 'string-intersperse) (let ((dslen (##sys#size ds))) (let loop1 ((ss strs) (n 0)) (cond ((##core#inline "C_eqp" ss '()) (if (##core#inline "C_eqp" strs '()) "" (let ((str2 (##sys#allocate-vector (fx- n dslen) #t #\space #f))) (let loop2 ((ss2 strs) (n2 0)) (let* ((stri (##sys#slot ss2 0)) (next (##sys#slot ss2 1)) (strilen (##sys#size stri)) ) (##core#inline "C_substring_copy" stri str2 0 strilen n2) (let ((n3 (fx+ n2 strilen))) (if (##core#inline "C_eqp" next '()) str2 (begin (##core#inline "C_substring_copy" ds str2 0 dslen n3) (loop2 next (fx+ n3 dslen)) ) ) ) ) ) ) ) ) ((and (##core#inline "C_blockp" ss) (##core#inline "C_pairp" ss)) (let ((stri (##sys#slot ss 0))) (##sys#check-string stri 'string-intersperse) (loop1 (##sys#slot ss 1) (fx+ (##sys#size stri) (fx+ dslen n)) ) ) ) (else (##sys#error-not-a-proper-list strs)) ) ) ) ) ;;; Translate elements of a string: (define string-translate (lambda (str from . to) (define (instring s) (let ([len (##sys#size s)]) (lambda (c) (let loop ([i 0]) (cond [(fx>= i len) #f] [(eq? c (##core#inline "C_subchar" s i)) i] [else (loop (fx+ i 1))] ) ) ) ) ) (let* ([from (cond [(char? from) (lambda (c) (eq? c from))] [(pair? from) (instring (list->string from))] [else (##sys#check-string from 'string-translate) (instring from) ] ) ] [to (and (pair? to) (let ([tx (##sys#slot to 0)]) (cond [(char? tx) tx] [(pair? tx) (list->string tx)] [else (##sys#check-string tx 'string-translate) tx] ) ) ) ] [tlen (and (string? to) (##sys#size to))] ) (##sys#check-string str 'string-translate) (let* ([slen (##sys#size str)] [str2 (make-string slen)] ) (let loop ([i 0] [j 0]) (if (fx>= i slen) (if (fx< j i) (##sys#substring str2 0 j) str2) (let* ([ci (##core#inline "C_subchar" str i)] [found (from ci)] ) (cond [(not found) (##core#inline "C_setsubchar" str2 j ci) (loop (fx+ i 1) (fx+ j 1)) ] [(not to) (loop (fx+ i 1) j)] [(char? to) (##core#inline "C_setsubchar" str2 j to) (loop (fx+ i 1) (fx+ j 1)) ] [(fx>= found tlen) (##sys#error 'string-translate "invalid translation destination" i to) ] [else (##core#inline "C_setsubchar" str2 j (##core#inline "C_subchar" to found)) (loop (fx+ i 1) (fx+ j 1)) ] ) ) ) ) ) ) ) ) (define (string-translate* str smap) (##sys#check-string str 'string-translate*) (##sys#check-list smap 'string-translate*) (let ((len (##sys#size str))) (define (collect i from total fs) (if (fx>= i len) (##sys#fragments->string total (##sys#fast-reverse (if (fx> i from) (cons (##sys#substring str from i) fs) fs) ) ) (let loop ((smap smap)) (if (null? smap) (collect (fx+ i 1) from (fx+ total 1) fs) (let* ((p (car smap)) (sm (car p)) (smlen (string-length sm)) (st (cdr p)) ) (if (and (fx<= (fx+ i smlen) len) (##core#inline "C_substring_compare" str sm i 0 smlen)) (let ((i2 (fx+ i smlen))) (when (fx> i from) (set! fs (cons (##sys#substring str from i) fs)) ) (collect i2 i2 (fx+ total (string-length st)) (cons st fs) ) ) (loop (cdr smap)) ) ) ) ) ) ) (collect 0 0 0 '()) ) ) ;;; Chop string into substrings: (define (string-chop str len) (##sys#check-string str 'string-chop) (##sys#check-fixnum len 'string-chop) (let ([total (##sys#size str)]) (let loop ([total total] [pos 0]) (cond [(fx<= total 0) '()] [(fx<= total len) (list (##sys#substring str pos (fx+ pos total)))] [else (cons (##sys#substring str pos (fx+ pos len)) (loop (fx- total len) (fx+ pos len)))] ) ) ) ) ;;; Remove suffix (define (string-chomp str #!optional (suffix "\n")) (##sys#check-string str 'string-chomp) (##sys#check-string suffix 'string-chomp) (let* ((len (##sys#size str)) (slen (##sys#size suffix)) (diff (fx- len slen)) ) (if (and (fx>= len slen) (##core#inline "C_substring_compare" str suffix diff 0 slen) ) (##sys#substring str 0 diff) str) ) ) ) ; chicken.string (module chicken.sort (merge merge! sort sort! sorted? topological-sort) (import scheme chicken.base chicken.condition chicken.fixnum) ;;; Defines: sorted?, merge, merge!, sort, sort! ;;; Author : Richard A. O'Keefe (based on Prolog code by D.H.D.Warren) ;;; ;;; This code is in the public domain. ;;; Updated: 11 June 1991 ;;; Modified for scheme library: Aubrey Jaffer 19 Sept. 1991 ;;; Updated: 19 June 1995 ;;; (sorted? sequence less?) ;;; is true when sequence is a list (x0 x1 ... xm) or a vector #(x0 ... xm) ;;; such that for all 1 <= i <= m, ;;; (not (less? (list-ref list i) (list-ref list (- i 1)))). ; Modified by flw for use with CHICKEN: ; (define (sorted? seq less?) (cond ((null? seq) #t) ((vector? seq) (let ((n (vector-length seq))) (if (<= n 1) #t (do ((i 1 (+ i 1))) ((or (= i n) (less? (vector-ref seq i) (vector-ref seq (- i 1)))) (= i n)) )) )) (else (let loop ((last (car seq)) (next (cdr seq))) (or (null? next) (and (not (less? (car next) last)) (loop (car next) (cdr next)) )) )) )) ;;; (merge a b less?) ;;; takes two lists a and b such that (sorted? a less?) and (sorted? b less?) ;;; and returns a new list in which the elements of a and b have been stably ;;; interleaved so that (sorted? (merge a b less?) less?). ;;; Note: this does _not_ accept vectors. See below. (define (merge a b less?) (cond ((null? a) b) ((null? b) a) (else (let loop ((x (car a)) (a (cdr a)) (y (car b)) (b (cdr b))) ;; The loop handles the merging of non-empty lists. It has ;; been written this way to save testing and car/cdring. (if (less? y x) (if (null? b) (cons y (cons x a)) (cons y (loop x a (car b) (cdr b)) )) ;; x <= y (if (null? a) (cons x (cons y b)) (cons x (loop (car a) (cdr a) y b)) )) )) )) ;;; (merge! a b less?) ;;; takes two sorted lists a and b and smashes their cdr fields to form a ;;; single sorted list including the elements of both. ;;; Note: this does _not_ accept vectors. (define (merge! a b less?) (define (loop r a b) (if (less? (car b) (car a)) (begin (set-cdr! r b) (if (null? (cdr b)) (set-cdr! b a) (loop b a (cdr b)) )) ;; (car a) <= (car b) (begin (set-cdr! r a) (if (null? (cdr a)) (set-cdr! a b) (loop a (cdr a) b)) )) ) (cond ((null? a) b) ((null? b) a) ((less? (car b) (car a)) (if (null? (cdr b)) (set-cdr! b a) (loop b a (cdr b))) b) (else ; (car a) <= (car b) (if (null? (cdr a)) (set-cdr! a b) (loop a (cdr a) b)) a))) ;;; (sort! sequence less?) ;;; sorts the list or vector sequence destructively. It uses a version ;;; of merge-sort invented, to the best of my knowledge, by David H. D. ;;; Warren, and first used in the DEC-10 Prolog system. R. A. O'Keefe ;;; adapted it to work destructively in Scheme. (define (sort! seq less?) (define (step n) (cond ((> n 2) (let* ((j (quotient n 2)) (a (step j)) (k (- n j)) (b (step k))) (merge! a b less?))) ((= n 2) (let ((x (car seq)) (y (cadr seq)) (p seq)) (set! seq (cddr seq)) (if (less? y x) (begin (set-car! p y) (set-car! (cdr p) x))) (set-cdr! (cdr p) '()) p)) ((= n 1) (let ((p seq)) (set! seq (cdr seq)) (set-cdr! p '()) p)) (else '()) )) (if (vector? seq) (let ((n (vector-length seq)) (vec seq)) (set! seq (vector->list seq)) (do ((p (step n) (cdr p)) (i 0 (+ i 1))) ((null? p) vec) (vector-set! vec i (car p)) )) ;; otherwise, assume it is a list (step (length seq)) )) ;;; (sort sequence less?) ;;; sorts a vector or list non-destructively. It does this by sorting a ;;; copy of the sequence. My understanding is that the Standard says ;;; that the result of append is always "newly allocated" except for ;;; sharing structure with "the last argument", so (append x '()) ought ;;; to be a standard way of copying a list x. (define (sort seq less?) (if (vector? seq) (list->vector (sort! (vector->list seq) less?)) (sort! (append seq '()) less?))) ;;; Topological sort with cycle detection: ;; ;; A functional implementation of the algorithm described in Cormen, ;; et al. (2009), Introduction to Algorithms (3rd ed.), pp. 612-615. (define (topological-sort dag pred) (define (visit dag node edges path state) (case (alist-ref node (car state) pred) ((grey) (abort (##sys#make-structure 'condition '(exn runtime cycle) `((exn . message) "cycle detected" (exn . arguments) ,(list (cons node (reverse path))) (exn . call-chain) ,(get-call-chain) (exn . location) topological-sort)))) ((black) state) (else (let walk ((edges (or edges (alist-ref node dag pred '()))) (state (cons (cons (cons node 'grey) (car state)) (cdr state)))) (if (null? edges) (cons (alist-update! node 'black (car state) pred) (cons node (cdr state))) (let ((edge (car edges))) (walk (cdr edges) (visit dag edge #f (cons edge path) state)))))))) (let loop ((dag dag) (state (cons (list) (list)))) (if (null? dag) (cdr state) (loop (cdr dag) (visit dag (caar dag) (cdar dag) '() state))))) ) ; chicken.sort ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken-uninstall.c�������������������������������������������������������������������0000644�0001750�0001750�00000602330�13502227772�016521� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken-uninstall.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken-uninstall.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -output-file chicken-uninstall.c uses: library eval expand file extras irregex port pathname posix data-structures */ #include "chicken.h" #ifndef STATICBUILD # define STATIC_CHICKEN 0 #else # define STATIC_CHICKEN 1 #endif #ifndef DEBUGBUILD # define DEBUG_CHICKEN 0 #else # define DEBUG_CHICKEN 1 #endif static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_file_toplevel) C_externimport void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_irregex_toplevel) C_externimport void C_ccall C_irregex_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_port_toplevel) C_externimport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_pathname_toplevel) C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_posix_toplevel) C_externimport void C_ccall C_posix_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[114]; static double C_possibly_force_alignment; C_noret_decl(f4420) static void C_ccall f4420(C_word c,C_word *av) C_noret; C_noret_decl(f4425) static void C_ccall f4425(C_word c,C_word *av) C_noret; C_noret_decl(f4432) static void C_ccall f4432(C_word c,C_word *av) C_noret; C_noret_decl(f4439) static void C_ccall f4439(C_word c,C_word *av) C_noret; C_noret_decl(f_1479) static void C_ccall f_1479(C_word c,C_word *av) C_noret; C_noret_decl(f_1482) static void C_ccall f_1482(C_word c,C_word *av) C_noret; C_noret_decl(f_1485) static void C_ccall f_1485(C_word c,C_word *av) C_noret; C_noret_decl(f_1488) static void C_ccall f_1488(C_word c,C_word *av) C_noret; C_noret_decl(f_1491) static void C_ccall f_1491(C_word c,C_word *av) C_noret; C_noret_decl(f_1494) static void C_ccall f_1494(C_word c,C_word *av) C_noret; C_noret_decl(f_1497) static void C_ccall f_1497(C_word c,C_word *av) C_noret; C_noret_decl(f_1500) static void C_ccall f_1500(C_word c,C_word *av) C_noret; C_noret_decl(f_1503) static void C_ccall f_1503(C_word c,C_word *av) C_noret; C_noret_decl(f_1506) static void C_ccall f_1506(C_word c,C_word *av) C_noret; C_noret_decl(f_1509) static void C_ccall f_1509(C_word c,C_word *av) C_noret; C_noret_decl(f_1886) static void C_fcall f_1886(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1908) static void C_ccall f_1908(C_word c,C_word *av) C_noret; C_noret_decl(f_1920) static void C_fcall f_1920(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1930) static void C_ccall f_1930(C_word c,C_word *av) C_noret; C_noret_decl(f_1978) static void C_fcall f_1978(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1996) static void C_ccall f_1996(C_word c,C_word *av) C_noret; C_noret_decl(f_2006) static void C_fcall f_2006(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2019) static void C_ccall f_2019(C_word c,C_word *av) C_noret; C_noret_decl(f_2033) static void C_ccall f_2033(C_word c,C_word *av) C_noret; C_noret_decl(f_2081) static void C_fcall f_2081(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2095) static void C_ccall f_2095(C_word c,C_word *av) C_noret; C_noret_decl(f_2108) static void C_ccall f_2108(C_word c,C_word *av) C_noret; C_noret_decl(f_2120) static void C_fcall f_2120(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2129) static void C_fcall f_2129(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2137) static void C_fcall f_2137(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2144) static void C_ccall f_2144(C_word c,C_word *av) C_noret; C_noret_decl(f_2158) static void C_ccall f_2158(C_word c,C_word *av) C_noret; C_noret_decl(f_2793) static void C_ccall f_2793(C_word c,C_word *av) C_noret; C_noret_decl(f_2799) static void C_ccall f_2799(C_word c,C_word *av) C_noret; C_noret_decl(f_2803) static void C_ccall f_2803(C_word c,C_word *av) C_noret; C_noret_decl(f_2807) static void C_ccall f_2807(C_word c,C_word *av) C_noret; C_noret_decl(f_2811) static void C_ccall f_2811(C_word c,C_word *av) C_noret; C_noret_decl(f_2815) static void C_ccall f_2815(C_word c,C_word *av) C_noret; C_noret_decl(f_2819) static void C_ccall f_2819(C_word c,C_word *av) C_noret; C_noret_decl(f_2823) static void C_ccall f_2823(C_word c,C_word *av) C_noret; C_noret_decl(f_2827) static void C_ccall f_2827(C_word c,C_word *av) C_noret; C_noret_decl(f_2831) static void C_ccall f_2831(C_word c,C_word *av) C_noret; C_noret_decl(f_2835) static void C_ccall f_2835(C_word c,C_word *av) C_noret; C_noret_decl(f_2839) static void C_ccall f_2839(C_word c,C_word *av) C_noret; C_noret_decl(f_2843) static void C_ccall f_2843(C_word c,C_word *av) C_noret; C_noret_decl(f_2847) static void C_ccall f_2847(C_word c,C_word *av) C_noret; C_noret_decl(f_2851) static void C_ccall f_2851(C_word c,C_word *av) C_noret; C_noret_decl(f_2859) static void C_ccall f_2859(C_word c,C_word *av) C_noret; C_noret_decl(f_2863) static void C_ccall f_2863(C_word c,C_word *av) C_noret; C_noret_decl(f_2867) static void C_ccall f_2867(C_word c,C_word *av) C_noret; C_noret_decl(f_2871) static void C_ccall f_2871(C_word c,C_word *av) C_noret; C_noret_decl(f_2875) static void C_ccall f_2875(C_word c,C_word *av) C_noret; C_noret_decl(f_2879) static void C_ccall f_2879(C_word c,C_word *av) C_noret; C_noret_decl(f_2883) static void C_ccall f_2883(C_word c,C_word *av) C_noret; C_noret_decl(f_2887) static void C_ccall f_2887(C_word c,C_word *av) C_noret; C_noret_decl(f_2891) static void C_ccall f_2891(C_word c,C_word *av) C_noret; C_noret_decl(f_2895) static void C_ccall f_2895(C_word c,C_word *av) C_noret; C_noret_decl(f_2899) static void C_ccall f_2899(C_word c,C_word *av) C_noret; C_noret_decl(f_2903) static void C_ccall f_2903(C_word c,C_word *av) C_noret; C_noret_decl(f_2907) static void C_ccall f_2907(C_word c,C_word *av) C_noret; C_noret_decl(f_2911) static void C_ccall f_2911(C_word c,C_word *av) C_noret; C_noret_decl(f_2915) static void C_ccall f_2915(C_word c,C_word *av) C_noret; C_noret_decl(f_2919) static void C_ccall f_2919(C_word c,C_word *av) C_noret; C_noret_decl(f_2923) static void C_ccall f_2923(C_word c,C_word *av) C_noret; C_noret_decl(f_2927) static void C_ccall f_2927(C_word c,C_word *av) C_noret; C_noret_decl(f_2931) static void C_ccall f_2931(C_word c,C_word *av) C_noret; C_noret_decl(f_2942) static void C_ccall f_2942(C_word c,C_word *av) C_noret; C_noret_decl(f_2951) static void C_ccall f_2951(C_word c,C_word *av) C_noret; C_noret_decl(f_2975) static void C_ccall f_2975(C_word c,C_word *av) C_noret; C_noret_decl(f_3000) static void C_ccall f_3000(C_word c,C_word *av) C_noret; C_noret_decl(f_3003) static void C_ccall f_3003(C_word c,C_word *av) C_noret; C_noret_decl(f_3009) static void C_ccall f_3009(C_word c,C_word *av) C_noret; C_noret_decl(f_3015) static void C_ccall f_3015(C_word c,C_word *av) C_noret; C_noret_decl(f_3019) static void C_ccall f_3019(C_word c,C_word *av) C_noret; C_noret_decl(f_3023) static void C_ccall f_3023(C_word c,C_word *av) C_noret; C_noret_decl(f_3027) static void C_ccall f_3027(C_word c,C_word *av) C_noret; C_noret_decl(f_3031) static void C_ccall f_3031(C_word c,C_word *av) C_noret; C_noret_decl(f_3037) static void C_ccall f_3037(C_word c,C_word *av) C_noret; C_noret_decl(f_3389) static void C_ccall f_3389(C_word c,C_word *av) C_noret; C_noret_decl(f_3394) static void C_fcall f_3394(C_word t0) C_noret; C_noret_decl(f_3402) static void C_fcall f_3402(C_word t0,C_word t1) C_noret; C_noret_decl(f_3416) static void C_ccall f_3416(C_word c,C_word *av) C_noret; C_noret_decl(f_3429) static void C_ccall f_3429(C_word c,C_word *av) C_noret; C_noret_decl(f_3432) static void C_ccall f_3432(C_word c,C_word *av) C_noret; C_noret_decl(f_3435) static void C_ccall f_3435(C_word c,C_word *av) C_noret; C_noret_decl(f_3446) static void C_fcall f_3446(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3454) static void C_ccall f_3454(C_word c,C_word *av) C_noret; C_noret_decl(f_3458) static void C_ccall f_3458(C_word c,C_word *av) C_noret; C_noret_decl(f_3464) static void C_ccall f_3464(C_word c,C_word *av) C_noret; C_noret_decl(f_3466) static void C_fcall f_3466(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3491) static void C_ccall f_3491(C_word c,C_word *av) C_noret; C_noret_decl(f_3503) static void C_ccall f_3503(C_word c,C_word *av) C_noret; C_noret_decl(f_3509) static void C_ccall f_3509(C_word c,C_word *av) C_noret; C_noret_decl(f_3515) static void C_fcall f_3515(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3540) static void C_ccall f_3540(C_word c,C_word *av) C_noret; C_noret_decl(f_3551) static void C_ccall f_3551(C_word c,C_word *av) C_noret; C_noret_decl(f_3555) static void C_ccall f_3555(C_word c,C_word *av) C_noret; C_noret_decl(f_3561) static void C_ccall f_3561(C_word c,C_word *av) C_noret; C_noret_decl(f_3570) static void C_ccall f_3570(C_word c,C_word *av) C_noret; C_noret_decl(f_3575) static void C_fcall f_3575(C_word t0,C_word t1) C_noret; C_noret_decl(f_3579) static void C_ccall f_3579(C_word c,C_word *av) C_noret; C_noret_decl(f_3582) static void C_ccall f_3582(C_word c,C_word *av) C_noret; C_noret_decl(f_3585) static void C_ccall f_3585(C_word c,C_word *av) C_noret; C_noret_decl(f_3588) static void C_ccall f_3588(C_word c,C_word *av) C_noret; C_noret_decl(f_3591) static void C_ccall f_3591(C_word c,C_word *av) C_noret; C_noret_decl(f_3618) static void C_ccall f_3618(C_word c,C_word *av) C_noret; C_noret_decl(f_3622) static void C_ccall f_3622(C_word c,C_word *av) C_noret; C_noret_decl(f_3641) static void C_ccall f_3641(C_word c,C_word *av) C_noret; C_noret_decl(f_3643) static void C_fcall f_3643(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3668) static void C_ccall f_3668(C_word c,C_word *av) C_noret; C_noret_decl(f_3680) static void C_fcall f_3680(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3707) static void C_ccall f_3707(C_word c,C_word *av) C_noret; C_noret_decl(f_3720) static void C_ccall f_3720(C_word c,C_word *av) C_noret; C_noret_decl(f_3724) static void C_ccall f_3724(C_word c,C_word *av) C_noret; C_noret_decl(f_3728) static void C_ccall f_3728(C_word c,C_word *av) C_noret; C_noret_decl(f_3732) static void C_ccall f_3732(C_word c,C_word *av) C_noret; C_noret_decl(f_3736) static void C_ccall f_3736(C_word c,C_word *av) C_noret; C_noret_decl(f_3742) static void C_ccall f_3742(C_word c,C_word *av) C_noret; C_noret_decl(f_3748) static void C_fcall f_3748(C_word t0,C_word t1) C_noret; C_noret_decl(f_3759) static void C_ccall f_3759(C_word c,C_word *av) C_noret; C_noret_decl(f_3768) static void C_ccall f_3768(C_word c,C_word *av) C_noret; C_noret_decl(f_3773) static void C_fcall f_3773(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3783) static void C_ccall f_3783(C_word c,C_word *av) C_noret; C_noret_decl(f_3798) static void C_ccall f_3798(C_word c,C_word *av) C_noret; C_noret_decl(f_3802) static void C_ccall f_3802(C_word c,C_word *av) C_noret; C_noret_decl(f_3806) static void C_ccall f_3806(C_word c,C_word *av) C_noret; C_noret_decl(f_3808) static void C_fcall f_3808(C_word t0,C_word t1) C_noret; C_noret_decl(f_3827) static void C_ccall f_3827(C_word c,C_word *av) C_noret; C_noret_decl(f_3841) static void C_ccall f_3841(C_word c,C_word *av) C_noret; C_noret_decl(f_3845) static void C_ccall f_3845(C_word c,C_word *av) C_noret; C_noret_decl(f_3851) static void C_ccall f_3851(C_word c,C_word *av) C_noret; C_noret_decl(f_3864) static void C_ccall f_3864(C_word c,C_word *av) C_noret; C_noret_decl(f_3870) static void C_ccall f_3870(C_word c,C_word *av) C_noret; C_noret_decl(f_3885) static void C_ccall f_3885(C_word c,C_word *av) C_noret; C_noret_decl(f_3890) static void C_ccall f_3890(C_word c,C_word *av) C_noret; C_noret_decl(f_3901) static void C_fcall f_3901(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3911) static void C_ccall f_3911(C_word c,C_word *av) C_noret; C_noret_decl(f_3943) static void C_fcall f_3943(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3953) static void C_ccall f_3953(C_word c,C_word *av) C_noret; C_noret_decl(f_3956) static void C_ccall f_3956(C_word c,C_word *av) C_noret; C_noret_decl(f_3963) static void C_ccall f_3963(C_word c,C_word *av) C_noret; C_noret_decl(f_3981) static void C_fcall f_3981(C_word t0,C_word t1) C_noret; C_noret_decl(f_3992) static void C_ccall f_3992(C_word c,C_word *av) C_noret; C_noret_decl(f_3999) static void C_ccall f_3999(C_word c,C_word *av) C_noret; C_noret_decl(f_4063) static void C_fcall f_4063(C_word t0,C_word t1) C_noret; C_noret_decl(f_4072) static void C_ccall f_4072(C_word c,C_word *av) C_noret; C_noret_decl(f_4078) static void C_ccall f_4078(C_word c,C_word *av) C_noret; C_noret_decl(f_4085) static void C_ccall f_4085(C_word c,C_word *av) C_noret; C_noret_decl(f_4097) static void C_ccall f_4097(C_word c,C_word *av) C_noret; C_noret_decl(f_4101) static void C_fcall f_4101(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4138) static void C_ccall f_4138(C_word c,C_word *av) C_noret; C_noret_decl(f_4146) static void C_ccall f_4146(C_word c,C_word *av) C_noret; C_noret_decl(f_4185) static void C_ccall f_4185(C_word c,C_word *av) C_noret; C_noret_decl(f_4191) static void C_ccall f_4191(C_word c,C_word *av) C_noret; C_noret_decl(f_4195) static void C_ccall f_4195(C_word c,C_word *av) C_noret; C_noret_decl(f_4202) static void C_ccall f_4202(C_word c,C_word *av) C_noret; C_noret_decl(f_4205) static void C_ccall f_4205(C_word c,C_word *av) C_noret; C_noret_decl(f_4212) static void C_ccall f_4212(C_word c,C_word *av) C_noret; C_noret_decl(f_4217) static void C_ccall f_4217(C_word c,C_word *av) C_noret; C_noret_decl(f_4222) static void C_ccall f_4222(C_word c,C_word *av) C_noret; C_noret_decl(f_4226) static void C_ccall f_4226(C_word c,C_word *av) C_noret; C_noret_decl(f_4230) static void C_ccall f_4230(C_word c,C_word *av) C_noret; C_noret_decl(f_4237) static void C_ccall f_4237(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1886) static void C_ccall trf_1886(C_word c,C_word *av) C_noret; static void C_ccall trf_1886(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1886(t0,t1,t2);} C_noret_decl(trf_1920) static void C_ccall trf_1920(C_word c,C_word *av) C_noret; static void C_ccall trf_1920(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1920(t0,t1,t2);} C_noret_decl(trf_1978) static void C_ccall trf_1978(C_word c,C_word *av) C_noret; static void C_ccall trf_1978(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1978(t0,t1,t2);} C_noret_decl(trf_2006) static void C_ccall trf_2006(C_word c,C_word *av) C_noret; static void C_ccall trf_2006(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2006(t0,t1,t2);} C_noret_decl(trf_2081) static void C_ccall trf_2081(C_word c,C_word *av) C_noret; static void C_ccall trf_2081(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2081(t0,t1,t2);} C_noret_decl(trf_2120) static void C_ccall trf_2120(C_word c,C_word *av) C_noret; static void C_ccall trf_2120(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2120(t0,t1,t2);} C_noret_decl(trf_2129) static void C_ccall trf_2129(C_word c,C_word *av) C_noret; static void C_ccall trf_2129(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2129(t0,t1,t2);} C_noret_decl(trf_2137) static void C_ccall trf_2137(C_word c,C_word *av) C_noret; static void C_ccall trf_2137(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2137(t0,t1,t2,t3);} C_noret_decl(trf_3394) static void C_ccall trf_3394(C_word c,C_word *av) C_noret; static void C_ccall trf_3394(C_word c,C_word *av){ C_word t0=av[0]; f_3394(t0);} C_noret_decl(trf_3402) static void C_ccall trf_3402(C_word c,C_word *av) C_noret; static void C_ccall trf_3402(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3402(t0,t1);} C_noret_decl(trf_3446) static void C_ccall trf_3446(C_word c,C_word *av) C_noret; static void C_ccall trf_3446(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3446(t0,t1,t2);} C_noret_decl(trf_3466) static void C_ccall trf_3466(C_word c,C_word *av) C_noret; static void C_ccall trf_3466(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3466(t0,t1,t2);} C_noret_decl(trf_3515) static void C_ccall trf_3515(C_word c,C_word *av) C_noret; static void C_ccall trf_3515(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3515(t0,t1,t2);} C_noret_decl(trf_3575) static void C_ccall trf_3575(C_word c,C_word *av) C_noret; static void C_ccall trf_3575(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3575(t0,t1);} C_noret_decl(trf_3643) static void C_ccall trf_3643(C_word c,C_word *av) C_noret; static void C_ccall trf_3643(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3643(t0,t1,t2);} C_noret_decl(trf_3680) static void C_ccall trf_3680(C_word c,C_word *av) C_noret; static void C_ccall trf_3680(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3680(t0,t1,t2);} C_noret_decl(trf_3748) static void C_ccall trf_3748(C_word c,C_word *av) C_noret; static void C_ccall trf_3748(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3748(t0,t1);} C_noret_decl(trf_3773) static void C_ccall trf_3773(C_word c,C_word *av) C_noret; static void C_ccall trf_3773(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3773(t0,t1,t2);} C_noret_decl(trf_3808) static void C_ccall trf_3808(C_word c,C_word *av) C_noret; static void C_ccall trf_3808(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3808(t0,t1);} C_noret_decl(trf_3901) static void C_ccall trf_3901(C_word c,C_word *av) C_noret; static void C_ccall trf_3901(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3901(t0,t1,t2);} C_noret_decl(trf_3943) static void C_ccall trf_3943(C_word c,C_word *av) C_noret; static void C_ccall trf_3943(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3943(t0,t1,t2,t3);} C_noret_decl(trf_3981) static void C_ccall trf_3981(C_word c,C_word *av) C_noret; static void C_ccall trf_3981(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3981(t0,t1);} C_noret_decl(trf_4063) static void C_ccall trf_4063(C_word c,C_word *av) C_noret; static void C_ccall trf_4063(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4063(t0,t1);} C_noret_decl(trf_4101) static void C_ccall trf_4101(C_word c,C_word *av) C_noret; static void C_ccall trf_4101(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4101(t0,t1,t2);} /* f4420 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in ... */ static void C_ccall f4420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f4420,2,av);} /* chicken-uninstall.scm:153: chicken.base#exit */ t2=C_fast_retrieve(lf[56]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f4425 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in ... */ static void C_ccall f4425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f4425,2,av);} /* chicken-uninstall.scm:153: chicken.base#exit */ t2=C_fast_retrieve(lf[56]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f4432 in k4076 in k4070 in k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_ccall f4432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f4432,2,av);} /* chicken-uninstall.scm:153: chicken.base#exit */ t2=C_fast_retrieve(lf[56]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f4439 in k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in ... */ static void C_ccall f4439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f4439,2,av);} /* chicken-uninstall.scm:153: chicken.base#exit */ t2=C_fast_retrieve(lf[56]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k1477 */ static void C_ccall f_1479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1479,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1482,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1480 in k1477 */ static void C_ccall f_1482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1482,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1485,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k1483 in k1480 in k1477 */ static void C_ccall f_1485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1485,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1488,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_file_toplevel(2,av2);}} /* k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_1488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1488,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1491,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_1491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1491,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1494,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_irregex_toplevel(2,av2);}} /* k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_1494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1494,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1497,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_port_toplevel(2,av2);}} /* k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_1497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1497,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1500,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_pathname_toplevel(2,av2);}} /* k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_1500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1500,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1503,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_posix_toplevel(2,av2);}} /* k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_1503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1503,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1506,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_1506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,7)))){ C_save_and_reclaim((void *)f_1506,2,av);} a=C_alloc(11); t2=C_a_i_provide(&a,1,lf[0]); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1509,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:27: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[112]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[112]+1); av2[1]=t3; av2[2]=lf[113]; av2[3]=lf[113]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=C_SCHEME_END_OF_LIST; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_1509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_1509,2,av);} a=C_alloc(5); t2=C_mutate(&lf[1] /* (set! main#filter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2120,tmp=(C_word)a,a+=2,tmp)); t3=C_mutate(&lf[3] /* (set! main#staticbuild ...) */,C_mk_bool(STATIC_CHICKEN)); t4=C_mutate(&lf[4] /* (set! main#debugbuild ...) */,C_mk_bool(DEBUG_CHICKEN)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2793,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:43: chicken.platform#feature? */ t6=C_fast_retrieve(lf[110]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[111]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* loop in k4070 in k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in ... */ static void C_fcall f_1886(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1886,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1908,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); /* mini-srfi-1.scm:82: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k1906 in loop in k4070 in k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_ccall f_1908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1908,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:83: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_1886(t4,((C_word*)t0)[2],t3);}} /* loop in a3502 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in ... */ static void C_fcall f_1920(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1920,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1930,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:88: pred */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* k1928 in loop in a3502 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in ... */ static void C_ccall f_1930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1930,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:89: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_1920(t4,((C_word*)t0)[2],t3);}} /* loop in k3462 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in ... */ static void C_fcall f_1978(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_1978,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1996,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:101: loop */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}} /* k1994 in loop in k3462 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in ... */ static void C_ccall f_1996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1996,2,av);} /* mini-srfi-1.scm:101: scheme#append */ t2=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop in loop in k3433 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in ... */ static void C_fcall f_2006(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_2006,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2019,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:106: test */ t5=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}} /* k2017 in loop in loop in k3433 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in ... */ static void C_ccall f_2019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2019,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:107: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2006(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2033,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:109: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_2006(t7,t4,t6);}} /* k2031 in k2017 in loop in loop in k3433 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in ... */ static void C_ccall f_2033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2033,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k3433 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in ... */ static void C_fcall f_2081(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){ C_save_and_reclaim_args((void *)trf_2081,3,t0,t1,t2);} a=C_alloc(17); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2095,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2108,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=t4; t10=((C_word*)t0)[3]; t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2006,a[2]=t12,a[3]=t10,a[4]=t9,tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_2006(t14,t8,t6);}} /* k2093 in loop in k3433 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in ... */ static void C_ccall f_2095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2095,2,av);} a=C_alloc(3); t2=C_i_equalp(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?((C_word*)t0)[4]:C_a_i_cons(&a,2,((C_word*)t0)[5],t1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2106 in loop in k3433 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in ... */ static void C_ccall f_2108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2108,2,av);} /* mini-srfi-1.scm:123: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2081(t2,((C_word*)t0)[3],t1);} /* main#filter in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_fcall f_2120(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2120,3,t1,t2,t3);} a=C_alloc(6); t4=C_i_check_list_2(t3,lf[2]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2129,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_2129(t8,t1,t3);} /* foldr317 in main#filter in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_fcall f_2129(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_2129,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2137,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2158,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g322 in foldr317 in main#filter in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_fcall f_2137(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2137,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2144,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:131: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k2142 in g322 in foldr317 in main#filter in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2144,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2156 in foldr317 in main#filter in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2158,2,av);} /* mini-srfi-1.scm:131: g322 */ t2=((C_word*)t0)[2]; f_2137(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2793,2,av);} a=C_alloc(6); t2=lf[5] /* main#cross-chicken */ =t1;; t3=lf[6] /* main#binary-version */ =C_fix((C_word)C_BINARY_VERSION);; t4=lf[7] /* main#major-version */ =C_fix((C_word)C_MAJOR_VERSION);; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2799,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_TARGET_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2799,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2803,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2803,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2807,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2807,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2811,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_CFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2811,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2815,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LDFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2815,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2819,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM_EXECUTABLE_OPTIONS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2819,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2823,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INSTALL_PROGRAM_FILE_OPTIONS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2823,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2827,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_MORE_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2827,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2831,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 */ static void C_ccall f_2831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2831,2,av);} a=C_alloc(6); t2=C_mutate(&lf[8] /* (set! main#default-libdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2835,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_RUN_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in k1477 in ... */ static void C_ccall f_2835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2835,2,av);} a=C_alloc(6); t2=C_mutate(&lf[9] /* (set! main#default-runlibdir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2839,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_STATIC_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in k1480 in ... */ static void C_ccall f_2839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2839,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2843,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_INCLUDE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in k1483 in ... */ static void C_ccall f_2843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2843,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2847,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in k1486 in ... */ static void C_ccall f_2847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2847,2,av);} a=C_alloc(6); t2=C_mutate(&lf[10] /* (set! main#default-bindir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2851,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_TARGET_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in k1489 in ... */ static void C_ccall f_2851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2851,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4237,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:63: chicken.platform#software-type */ t3=C_fast_retrieve(lf[109]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in ... */ static void C_ccall f_2859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2859,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2863,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in ... */ static void C_ccall f_2863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2863,2,av);} a=C_alloc(9); t2=C_mutate(&lf[10] /* (set! main#default-bindir ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2867,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4230,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_CSC_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in ... */ static void C_ccall f_2867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2867,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2871,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4226,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CSI_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in ... */ static void C_ccall f_2871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2871,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2875,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4222,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_CHICKEN_DO_PROGRAM); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in ... */ static void C_ccall f_2875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2875,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2879,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIBRARIAN); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in ... */ static void C_ccall f_2879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2879,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2883,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_TARGET_LIBRARIAN_FLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in ... */ static void C_ccall f_2883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2883,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2887,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_EGG_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in ... */ static void C_ccall f_2887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2887,2,av);} a=C_alloc(6); t2=C_mutate(&lf[14] /* (set! main#host-repo ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2891,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in ... */ static void C_ccall f_2891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2891,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2895,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_BIN_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in ... */ static void C_ccall f_2895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2895,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2899,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_INCLUDE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in ... */ static void C_ccall f_2899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2899,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2903,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in ... */ static void C_ccall f_2903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2903,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2907,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_MORE_LIBS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in ... */ static void C_ccall f_2907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2907,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2911,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in ... */ static void C_ccall f_2911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2911,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2915,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_LDFLAGS); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in ... */ static void C_ccall f_2915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2915,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2919,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CC); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in ... */ static void C_ccall f_2919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2919,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2923,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_CXX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in ... */ static void C_ccall f_2923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2923,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2927,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4217,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_retrieve2(lf[6],C_text("main#binary-version")); /* ##sys#fixnum->string */ t5=C_fast_retrieve(lf[104]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=C_retrieve2(lf[6],C_text("main#binary-version")); av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in ... */ static void C_ccall f_2927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2927,2,av);} a=C_alloc(6); t2=C_mutate(&lf[15] /* (set! main#target-repo ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2931,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4212,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_retrieve2(lf[6],C_text("main#binary-version")); /* ##sys#fixnum->string */ t6=C_fast_retrieve(lf[104]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t4; av2[2]=C_retrieve2(lf[6],C_text("main#binary-version")); av2[3]=C_fix(10); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in ... */ static void C_ccall f_2931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2931,2,av);} a=C_alloc(3); t2=C_mutate(&lf[16] /* (set! main#target-run-repo ...) */,t1); t3=C_mutate(&lf[17] /* (set! main#+egg-info-extension+ ...) */,lf[18]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3000,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:120: chicken.process-context#get-environment-variable */ t5=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[102]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2940 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in ... */ static void C_ccall f_2942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2942,2,av);} a=C_alloc(4); t2=t1; t3=C_i_not(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2951,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ if(C_truep(t3)){ t5=C_SCHEME_UNDEFINED; t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* egg-environment.scm:108: chicken.base#error */ t5=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=lf[80]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} else{ /* egg-environment.scm:107: chicken.pathname#absolute-pathname? */ t5=C_fast_retrieve(lf[81]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k2949 in k2940 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in ... */ static void C_ccall f_2951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2951,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* egg-environment.scm:108: chicken.base#error */ t2=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[80]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k2973 in k3400 in main#repo-path in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in ... */ static void C_ccall f_2975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2975,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?t1:C_retrieve2(lf[14],C_text("main#host-repo"))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in ... */ static void C_ccall f_3000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3000,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3003,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; f_3003(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4202,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:121: chicken.platform#system-cache-directory */ t4=C_fast_retrieve(lf[101]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in ... */ static void C_ccall f_3003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3003,2,av);} a=C_alloc(3); t2=lf[19] /* main#host-extensions */ =C_SCHEME_TRUE;; t3=lf[20] /* main#force-uninstall */ =C_SCHEME_FALSE;; t4=lf[21] /* main#sudo-uninstall */ =C_SCHEME_FALSE;; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3389,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:53: chicken.process-context#get-environment-variable */ t6=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[98]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3007 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in ... */ static void C_ccall f_3009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3009,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3015,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* egg-information.scm:34: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[40]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3013 in k3007 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in ... */ static void C_ccall f_3015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3015,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?((C_word*)t0)[3]:((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3017 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in ... */ static void C_ccall f_3019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3019,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3023,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* egg-information.scm:32: chicken.pathname#pathname-file */ t4=C_fast_retrieve(lf[50]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3021 in k3017 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in ... */ static void C_ccall f_3023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3023,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3027,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* egg-information.scm:33: chicken.pathname#pathname-extension */ t4=C_fast_retrieve(lf[49]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3025 in k3021 in k3017 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in ... */ static void C_ccall f_3027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3027,2,av);} /* egg-information.scm:30: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3029 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in ... */ static void C_ccall f_3031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3031,2,av);} /* egg-information.scm:30: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[51]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3035 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in ... */ static void C_ccall f_3037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3037,2,av);} /* egg-information.scm:38: scheme#with-input-from-file */ t2=C_fast_retrieve(lf[46]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=*((C_word*)lf[47]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in ... */ static void C_ccall f_3389(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_3389,2,av);} a=C_alloc(10); t2=(C_truep(t1)?t1:lf[22]); t3=C_mutate(&lf[23] /* (set! main#sudo-program ...) */,t2); t4=C_mutate(&lf[24] /* (set! main#repo-path ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3394,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[29] /* (set! main#delete-installed-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3808,tmp=(C_word)a,a+=2,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4185,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4195,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:199: chicken.process-context#command-line-arguments */ t8=C_fast_retrieve(lf[97]);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* main#repo-path in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in ... */ static void C_fcall f_3394(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_3394,1,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3402,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_retrieve2(lf[5],C_text("main#cross-chicken")))){ t3=C_i_not(C_retrieve2(lf[19],C_text("main#host-extensions"))); t4=t2; f_3402(t4,(C_truep(t3)?lf[25]:lf[28]));} else{ t3=t2; f_3402(t3,lf[28]);}} /* k3400 in main#repo-path in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in ... */ static void C_fcall f_3402(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_3402,2,t0,t1);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_SCHEME_END_OF_LIST; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_eqp(lf[25],t1); if(C_truep(t6)){ t7=t2;{ C_word av2[2]; av2[0]=t7; av2[1]=(C_truep(t5)?C_retrieve2(lf[16],C_text("main#target-run-repo")):C_retrieve2(lf[15],C_text("main#target-repo"))); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2975,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:113: chicken.process-context#get-environment-variable */ t8=C_fast_retrieve(lf[26]);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=lf[27]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* a3415 in k3452 in g958 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in ... */ static void C_ccall f_3416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3416,3,av);} t3=C_fast_retrieve(lf[75]); /* chicken-uninstall.scm:63: g917 */ t4=C_fast_retrieve(lf[75]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in ... */ static void C_ccall f_3429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_3429,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3432,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3515,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_3515(t6,t2,t1);} /* k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_ccall f_3432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_3432,2,av);} a=C_alloc(22); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3435,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[3])){ t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3446,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t9=C_i_check_list_2(((C_word*)t0)[4],lf[70]); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3464,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3466,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp)); t14=((C_word*)t12)[1]; f_3466(t14,t10,((C_word*)t0)[4]);} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3503,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:73: filter */ f_2120(t3,t4,t2);}} /* k3433 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in ... */ static void C_ccall f_3435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3435,2,av);} a=C_alloc(6); t2=*((C_word*)lf[74]+1); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2081,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_2081(t6,((C_word*)t0)[2],t1);} /* g958 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in ... */ static void C_fcall f_3446(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3446,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3454,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3458,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:71: chicken.irregex#glob->sre */ t5=C_fast_retrieve(lf[77]);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3452 in g958 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in ... */ static void C_ccall f_3454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3454,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=t1; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3416,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:63: filter */ f_2120(t2,t4,((C_word*)t0)[3]);} /* k3456 in g958 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in ... */ static void C_ccall f_3458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3458,2,av);} /* chicken-uninstall.scm:71: chicken.irregex#irregex */ t2=C_fast_retrieve(lf[76]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3462 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in ... */ static void C_ccall f_3464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3464,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1978,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_1978(t5,((C_word*)t0)[2],t1);} /* map-loop952 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in ... */ static void C_fcall f_3466(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3466,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3491,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-uninstall.scm:70: g958 */ t5=((C_word*)t0)[4]; f_3446(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3489 in map-loop952 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in ... */ static void C_ccall f_3491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3491,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3466(t6,((C_word*)t0)[5],t5);} /* a3502 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in ... */ static void C_ccall f_3503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3503,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3509,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=t3; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1920,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_1920(t8,t1,((C_word*)t0)[2]);} /* a3508 in a3502 in k3430 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in ... */ static void C_ccall f_3509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3509,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_string_equal_p(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop925 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_fcall f_3515(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3515,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3540,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-uninstall.scm:66: g931 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3538 in map-loop925 in k3427 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in ... */ static void C_ccall f_3540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3540,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3515(t6,((C_word*)t0)[5],t5);} /* k3549 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in ... */ static void C_ccall f_3551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3551,2,av);} /* chicken-uninstall.scm:67: chicken.file#glob */ t2=C_fast_retrieve(lf[78]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3553 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in ... */ static void C_ccall f_3555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3555,2,av);} /* chicken-uninstall.scm:67: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[79]; av2[4]=C_retrieve2(lf[17],C_text("main#+egg-info-extension+")); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3559 in k3589 in k3586 in k3583 in k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in ... */ static void C_ccall f_3561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3561,2,av);} /* chicken-uninstall.scm:81: chicken.base#exit */ t2=C_fast_retrieve(lf[56]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_ccall f_3570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3570,2,av);} a=C_alloc(5); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3575,a[2]=t3,tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t3)[1]; f_3575(t5,((C_word*)t0)[2]);} /* loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in ... */ static void C_fcall f_3575(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3575,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3579,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:89: scheme#display */ t3=*((C_word*)lf[65]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=lf[66]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in ... */ static void C_ccall f_3579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3579,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3582,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:90: chicken.base#flush-output */ t3=*((C_word*)lf[64]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in ... */ static void C_ccall f_3582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3582,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3585,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:91: chicken.io#read-line */ t3=C_fast_retrieve(lf[63]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3583 in k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in ... */ static void C_ccall f_3585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3585,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3588,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_eofp(t2))){ /* chicken-uninstall.scm:93: chicken.base#error */ t4=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[62]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_3588(2,av2);}}} /* k3586 in k3583 in k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in ... */ static void C_ccall f_3588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_3588,2,av);} a=C_alloc(26); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3591,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=t2; t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3680,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3720,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3724,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3728,a[2]=t5,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3732,a[2]=t9,tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3736,a[2]=t5,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* ##sys#string->list */ t12=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* k3589 in k3586 in k3583 in k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in ... */ static void C_ccall f_3591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3591,2,av);} a=C_alloc(3); t2=C_i_string_equal_p(t1,lf[54]); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_u_i_string_equal_p(t1,lf[55]))){ t3=((C_word*)t0)[2]; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3561,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:80: chicken.base#print */ t5=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[57]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* chicken-uninstall.scm:97: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3575(t3,((C_word*)t0)[2]);}}} /* k3616 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_ccall f_3618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3618,2,av);} /* chicken-uninstall.scm:84: chicken.base#print */ t2=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3620 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_ccall f_3622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3622,2,av);} /* chicken-uninstall.scm:84: chicken.string#string-intersperse */ t2=C_fast_retrieve(lf[67]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[68]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3639 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_ccall f_3641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3641,2,av);} /* chicken-uninstall.scm:85: scheme#append */ t2=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop993 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_fcall f_3643(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_3643,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3668,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* chicken-uninstall.scm:86: g1016 */ t5=*((C_word*)lf[34]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t3; av2[2]=lf[72]; av2[3]=t4; av2[4]=lf[73]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3666 in map-loop993 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in ... */ static void C_ccall f_3668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3668,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3643(t6,((C_word*)t0)[5],t5);} /* left in k3586 in k3583 in k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in ... */ static void C_fcall f_3680(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3680,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); if(C_truep(C_u_i_char_whitespacep(t3))){ t4=t2; t5=C_u_i_cdr(t4); /* chicken-uninstall.scm:102: left */ t10=t1; t11=t5; t1=t10; t2=t11; goto loop;} else{ t4=t2; t5=C_u_i_car(t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3707,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); /* chicken-uninstall.scm:103: left */ t10=t6; t11=t8; t1=t10; t2=t11; goto loop;}}} /* k3705 in left in k3586 in k3583 in k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in ... */ static void C_ccall f_3707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3707,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3718 in k3586 in k3583 in k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in ... */ static void C_ccall f_3720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3720,2,av);} /* ##sys#list->string */ t2=C_fast_retrieve(lf[58]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3722 in k3586 in k3583 in k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in ... */ static void C_ccall f_3724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3724,2,av);} /* chicken-uninstall.scm:104: scheme#reverse */ t2=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3726 in k3586 in k3583 in k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in ... */ static void C_ccall f_3728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3728,2,av);} /* chicken-uninstall.scm:104: left */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3680(t2,((C_word*)t0)[3],t1);} /* k3730 in k3586 in k3583 in k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in ... */ static void C_ccall f_3732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3732,2,av);} /* chicken-uninstall.scm:104: scheme#reverse */ t2=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3734 in k3586 in k3583 in k3580 in k3577 in loop in k3568 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in ... */ static void C_ccall f_3736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3736,2,av);} /* chicken-uninstall.scm:104: left */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3680(t2,((C_word*)t0)[3],t1);} /* k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in ... */ static void C_ccall f_3742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_3742,2,av);} a=C_alloc(21); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3748,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3798,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3037,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=t6; t8=t2; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3009,a[2]=t7,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3019,a[2]=t9,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3031,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* egg-information.scm:30: chicken.pathname#pathname-directory */ t12=C_fast_retrieve(lf[52]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3746 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in ... */ static void C_fcall f_3748(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_3748,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=t1; t3=C_i_check_list_2(t2,lf[44]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3768,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3773,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_3773(t8,t4,t2);} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3757 in for-each-loop1055 in k3746 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in ... */ static void C_ccall f_3759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3759,2,av);} if(C_truep(t1)){ /* chicken-uninstall.scm:113: delete-installed-file */ f_3808(((C_word*)t0)[2],((C_word*)t0)[3]);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3766 in k3746 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in ... */ static void C_ccall f_3768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3768,2,av);} /* chicken-uninstall.scm:115: delete-installed-file */ f_3808(((C_word*)t0)[2],((C_word*)t0)[3]);} /* for-each-loop1055 in k3746 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in ... */ static void C_fcall f_3773(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_3773,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3783,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3759,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:113: chicken.file#file-exists? */ t8=C_fast_retrieve(lf[40]);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3781 in for-each-loop1055 in k3746 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in ... */ static void C_ccall f_3783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3783,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3773(t3,((C_word*)t0)[4],t2);} /* k3796 in k3740 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in ... */ static void C_ccall f_3798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3798,2,av);} t2=C_SCHEME_END_OF_LIST; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_END_OF_LIST:C_i_car(t2)); t5=C_i_assq(lf[45],t1); if(C_truep(t5)){ t6=C_i_cdr(t5); t7=((C_word*)t0)[2]; f_3748(t7,(C_truep(t6)?t6:t4));} else{ t6=((C_word*)t0)[2]; f_3748(t6,t4);}} /* k3800 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in ... */ static void C_ccall f_3802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3802,2,av);} /* chicken-uninstall.scm:107: chicken.file#file-exists? */ t2=C_fast_retrieve(lf[40]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3804 in k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in ... */ static void C_ccall f_3806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3806,2,av);} /* chicken-uninstall.scm:108: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; av2[4]=C_retrieve2(lf[17],C_text("main#+egg-info-extension+")); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* main#delete-installed-file in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in ... */ static void C_fcall f_3808(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3808,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3864,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:118: chicken.file#file-exists? */ t4=C_fast_retrieve(lf[40]);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3825 in k3862 in main#delete-installed-file in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in ... */ static void C_ccall f_3827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3827,2,av);} t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* chicken-uninstall.scm:123: chicken.base#warning */ t3=C_fast_retrieve(lf[30]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[32]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k3839 in k3862 in main#delete-installed-file in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in ... */ static void C_ccall f_3841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3841,2,av);} /* chicken-uninstall.scm:121: chicken.process#system */ t2=C_fast_retrieve(lf[33]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3843 in k3862 in main#delete-installed-file in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in ... */ static void C_ccall f_3845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3845,2,av);} /* chicken-uninstall.scm:121: scheme#string-append */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[23],C_text("main#sudo-program")); av2[3]=lf[35]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3849 in k3862 in main#delete-installed-file in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in ... */ static void C_ccall f_3851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3851,2,av);} if(C_truep(t1)){ /* chicken-uninstall.scm:125: chicken.file#delete-directory */ t2=C_fast_retrieve(lf[37]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ /* chicken-uninstall.scm:127: chicken.file#delete-file */ t2=C_fast_retrieve(lf[38]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k3862 in main#delete-installed-file in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in ... */ static void C_ccall f_3864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_3864,2,av);} a=C_alloc(10); if(C_truep(C_i_not(t1))){ /* chicken-uninstall.scm:119: chicken.base#warning */ t2=C_fast_retrieve(lf[30]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[31]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=(C_truep(C_retrieve2(lf[21],C_text("main#sudo-uninstall")))?C_eqp(lf[12],C_retrieve2(lf[13],C_text("main#default-platform"))):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3827,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3841,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3845,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:121: chicken.process#qs */ t6=C_fast_retrieve(lf[36]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:124: chicken.file#directory-exists? */ t4=C_fast_retrieve(lf[39]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}} /* k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in ... */ static void C_ccall f_3870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(32,c,3)))){ C_save_and_reclaim((void *)f_3870,2,av);} a=C_alloc(32); t2=t1; if(C_truep(C_i_nullp(t2))){ /* chicken-uninstall.scm:132: chicken.base#print */ t3=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[43]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=C_retrieve2(lf[20],C_text("main#force-uninstall")); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3885,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_retrieve2(lf[20],C_text("main#force-uninstall")))){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_retrieve2(lf[20],C_text("main#force-uninstall")); f_3885(2,av2);}} else{ t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3570,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3618,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3622,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=C_a_i_list1(&a,1,lf[69]); t10=t9; t11=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t12=t11; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=((C_word*)t13)[1]; t15=C_i_check_list_2(t2,lf[70]); t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3641,a[2]=t8,a[3]=t10,tmp=(C_word)a,a+=4,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3643,a[2]=t13,a[3]=t18,a[4]=t14,tmp=(C_word)a,a+=5,tmp)); t20=((C_word*)t18)[1]; f_3643(t20,t16,t2);}}} /* k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_ccall f_3885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3885,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=C_i_check_list_2(((C_word*)t0)[2],lf[44]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3901,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_3901(t6,((C_word*)t0)[3],((C_word*)t0)[2]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3888 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in ... */ static void C_ccall f_3890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_3890,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3742,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3802,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3806,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:108: repo-path */ f_3394(t6);} /* for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in ... */ static void C_fcall f_3901(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_3901,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3911,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3890,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:136: chicken.base#print */ t8=*((C_word*)lf[42]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=lf[53]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3909 in for-each-loop1094 in k3883 in k3868 in k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in ... */ static void C_ccall f_3911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3911,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3901(t3,((C_word*)t0)[4],t2);} /* loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in ... */ static void C_fcall f_3943(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_3943,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3953,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_nullp(t3))){ t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f4420,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:141: chicken.base#print */ t7=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=lf[83]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_3953(2,av2);}}} else{ t4=C_i_car(t2); t5=t4; t6=C_i_string_equal_p(t5,lf[84]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3981,a[2]=t1,a[3]=t5,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); if(C_truep(t6)){ t8=t7; f_3981(t8,t6);} else{ t8=C_u_i_string_equal_p(t5,lf[95]); if(C_truep(t8)){ t9=t7; f_3981(t9,t8);} else{ t9=C_u_i_string_equal_p(t5,lf[96]); t10=t7; f_3981(t10,t9);}}}} /* k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in ... */ static void C_ccall f_3953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3953,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3956,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2942,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* egg-environment.scm:106: chicken.process-context#get-environment-variable */ t5=C_fast_retrieve(lf[26]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[82]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in ... */ static void C_ccall f_3956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3956,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3963,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* chicken-uninstall.scm:163: scheme#reverse */ t3=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k3961 in k3954 in k3951 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in ... */ static void C_ccall f_3963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_3963,2,av);} a=C_alloc(22); t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3870,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t5=t4; t6=t1; t7=t3; t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t9=t8; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=((C_word*)t10)[1]; t12=C_fast_retrieve(lf[50]); t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3429,a[2]=t5,a[3]=t7,a[4]=t6,a[5]=t10,a[6]=t12,a[7]=t11,tmp=(C_word)a,a+=8,tmp); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3551,a[2]=t13,tmp=(C_word)a,a+=3,tmp); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3555,a[2]=t14,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:67: repo-path */ f_3394(t15);} /* k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in ... */ static void C_fcall f_3981(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3981,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f4425,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:141: chicken.base#print */ t4=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=lf[83]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[85]))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3992,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3999,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:171: chicken.platform#chicken-version */ t4=C_fast_retrieve(lf[86]);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[87]))){ t2=lf[19] /* main#host-extensions */ =C_SCHEME_FALSE;; t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* chicken-uninstall.scm:175: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3943(t5,((C_word*)t0)[2],t4,((C_word*)t0)[6]);} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[88]))){ t2=((C_word*)t0)[4]; t3=C_u_i_cdr(t2); /* chicken-uninstall.scm:178: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_3943(t4,((C_word*)t0)[2],t3,((C_word*)t0)[6]);} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[89]))){ t2=lf[20] /* main#force-uninstall */ =C_SCHEME_TRUE;; t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* chicken-uninstall.scm:181: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3943(t5,((C_word*)t0)[2],t4,((C_word*)t0)[6]);} else{ if(C_truep(C_u_i_string_equal_p(((C_word*)t0)[3],lf[90]))){ t2=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_TRUE); t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); /* chicken-uninstall.scm:184: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3943(t5,((C_word*)t0)[2],t4,((C_word*)t0)[6]);} else{ t2=C_u_i_string_equal_p(((C_word*)t0)[3],lf[91]); t3=(C_truep(t2)?t2:C_u_i_string_equal_p(((C_word*)t0)[3],lf[92])); if(C_truep(t3)){ t4=lf[21] /* main#sudo-uninstall */ =C_SCHEME_TRUE;; t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); /* chicken-uninstall.scm:187: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_3943(t7,((C_word*)t0)[2],t6,((C_word*)t0)[6]);} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4063,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t5=C_block_size(((C_word*)t0)[3]); if(C_truep(C_i_fixnum_positivep(t5))){ t6=C_i_string_ref(((C_word*)t0)[3],C_fix(0)); t7=t4; f_4063(t7,C_u_i_char_equalp(C_make_character(45),t6));} else{ t6=t4; f_4063(t6,C_SCHEME_FALSE);}}}}}}}}} /* k3990 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in ... */ static void C_ccall f_3992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3992,2,av);} /* chicken-uninstall.scm:172: chicken.base#exit */ t2=C_fast_retrieve(lf[56]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k3997 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in ... */ static void C_ccall f_3999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3999,2,av);} /* chicken-uninstall.scm:171: chicken.base#print */ t2=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in ... */ static void C_fcall f_4063(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_4063,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=C_block_size(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t2,C_fix(2)))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4072,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4146,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:191: scheme#substring */ t5=*((C_word*)lf[94]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(1); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=((C_word*)t0)[4]; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f4439,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:141: chicken.base#print */ t5=*((C_word*)lf[42]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=lf[83]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} else{ t2=((C_word*)t0)[6]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[5]); /* chicken-uninstall.scm:197: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_3943(t5,((C_word*)t0)[4],t3,t4);}} /* k4070 in k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in ... */ static void C_ccall f_4072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_4072,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4078,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4138,tmp=(C_word)a,a+=2,tmp); t5=t4; t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1886,a[2]=t7,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_1886(t9,t3,t2);} /* k4076 in k4070 in k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in ... */ static void C_ccall f_4078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_4078,2,av);} a=C_alloc(21); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4085,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4097,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4101,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_4101(t11,t7,((C_word*)t0)[6]);} else{ t2=((C_word*)t0)[3]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f4432,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken-uninstall.scm:141: chicken.base#print */ t4=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[83]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k4083 in k4076 in k4070 in k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_ccall f_4085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4085,2,av);} /* chicken-uninstall.scm:193: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3943(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k4095 in k4076 in k4070 in k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_ccall f_4097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4097,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken-uninstall.scm:193: scheme#append */ t4=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* map-loop1159 in k4076 in k4070 in k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in ... */ static void C_fcall f_4101(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_4101,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_a_i_string(&a,2,C_make_character(45),t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a4137 in k4070 in k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in ... */ static void C_ccall f_4138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4138,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_memq(t2,lf[93]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4144 in k4061 in k3979 in loop in k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in ... */ static void C_ccall f_4146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4146,2,av);} /* ##sys#string->list */ t2=C_fast_retrieve(lf[60]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k4183 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in ... */ static void C_ccall f_4185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4185,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4191,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.base#implicit-exit-handler */ t3=C_fast_retrieve(lf[41]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k4189 in k4183 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in ... */ static void C_ccall f_4191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4191,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4193 in k3387 in k3001 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in ... */ static void C_ccall f_4195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_4195,2,av);} a=C_alloc(8); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3943,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_3943(t7,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} /* k4200 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in ... */ static void C_ccall f_4202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t1; /* egg-environment.scm:121: chicken.pathname#make-pathname */ t4=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=lf[99]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* egg-environment.scm:122: chicken.process-context#current-directory */ t3=C_fast_retrieve(lf[100]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4203 in k4200 in k2998 in k2929 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in ... */ static void C_ccall f_4205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4205,2,av);} /* egg-environment.scm:121: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[99]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4210 in k2925 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in ... */ static void C_ccall f_4212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4212,2,av);} /* egg-environment.scm:97: scheme#string-append */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[9],C_text("main#default-runlibdir")); av2[3]=lf[103]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4215 in k2921 in k2917 in k2913 in k2909 in k2905 in k2901 in k2897 in k2893 in k2889 in k2885 in k2881 in k2877 in k2873 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in ... */ static void C_ccall f_4217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4217,2,av);} /* egg-environment.scm:94: scheme#string-append */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[8],C_text("main#default-libdir")); av2[3]=lf[105]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4220 in k2869 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in ... */ static void C_ccall f_4222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4222,2,av);} /* egg-environment.scm:77: chicken.pathname#make-pathname */ t2=C_fast_retrieve(lf[48]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[10],C_text("main#default-bindir")); av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k4224 in k2865 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in ... */ static void C_ccall f_4226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4226,2,av);} /* egg-environment.scm:74: scheme#string-append */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[10],C_text("main#default-bindir")); av2[3]=lf[107]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4228 in k2861 in k2857 in k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in ... */ static void C_ccall f_4230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4230,2,av);} /* egg-environment.scm:71: scheme#string-append */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_retrieve2(lf[10],C_text("main#default-bindir")); av2[3]=lf[108]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4235 in k2849 in k2845 in k2841 in k2837 in k2833 in k2829 in k2825 in k2821 in k2817 in k2813 in k2809 in k2805 in k2801 in k2797 in k2791 in k1507 in k1504 in k1501 in k1498 in k1495 in k1492 in ... */ static void C_ccall f_4237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_4237,2,av);} a=C_alloc(6); t2=C_eqp(t1,lf[11]); t3=(C_truep(t2)?C_mk_bool(C_WINDOWS_SHELL):lf[12]); t4=C_mutate(&lf[13] /* (set! main#default-platform ...) */,t3); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2859,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)C_INSTALL_PREFIX); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(387))){ C_save(t1); C_rereclaim2(387*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,114); lf[0]=C_h_intern(&lf[0],5, C_text("main#")); lf[2]=C_h_intern(&lf[2],5, C_text("foldr")); lf[11]=C_h_intern(&lf[11],7, C_text("windows")); lf[12]=C_h_intern(&lf[12],4, C_text("unix")); lf[18]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010egg-info")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004sudo")); lf[25]=C_h_intern(&lf[25],6, C_text("target")); lf[26]=C_h_intern(&lf[26],48, C_text("chicken.process-context#get-environment-variable")); lf[27]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032CHICKEN_INSTALL_REPOSITORY")); lf[28]=C_h_intern(&lf[28],4, C_text("host")); lf[30]=C_h_intern(&lf[30],20, C_text("chicken.base#warning")); lf[31]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023file does not exist")); lf[32]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024deleting file failed")); lf[33]=C_h_intern(&lf[33],22, C_text("chicken.process#system")); lf[34]=C_h_intern(&lf[34],20, C_text("scheme#string-append")); lf[35]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015 rm -f -r -- ")); lf[36]=C_h_intern(&lf[36],18, C_text("chicken.process#qs")); lf[37]=C_h_intern(&lf[37],29, C_text("chicken.file#delete-directory")); lf[38]=C_h_intern(&lf[38],24, C_text("chicken.file#delete-file")); lf[39]=C_h_intern(&lf[39],30, C_text("chicken.file#directory-exists\077")); lf[40]=C_h_intern(&lf[40],25, C_text("chicken.file#file-exists\077")); lf[41]=C_h_intern(&lf[41],34, C_text("chicken.base#implicit-exit-handler")); lf[42]=C_h_intern(&lf[42],18, C_text("chicken.base#print")); lf[43]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022nothing to remove.")); lf[44]=C_h_intern(&lf[44],8, C_text("for-each")); lf[45]=C_h_intern(&lf[45],15, C_text("installed-files")); lf[46]=C_h_intern(&lf[46],27, C_text("scheme#with-input-from-file")); lf[47]=C_h_intern(&lf[47],11, C_text("scheme#read")); lf[48]=C_h_intern(&lf[48],30, C_text("chicken.pathname#make-pathname")); lf[49]=C_h_intern(&lf[49],35, C_text("chicken.pathname#pathname-extension")); lf[50]=C_h_intern(&lf[50],30, C_text("chicken.pathname#pathname-file")); lf[51]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007chicken")); lf[52]=C_h_intern(&lf[52],35, C_text("chicken.pathname#pathname-directory")); lf[53]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011removing ")); lf[54]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003yes")); lf[55]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002no")); lf[56]=C_h_intern(&lf[56],17, C_text("chicken.base#exit")); lf[57]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010aborted.")); lf[58]=C_h_intern(&lf[58],18, C_text("##sys#list->string")); lf[59]=C_h_intern(&lf[59],14, C_text("scheme#reverse")); lf[60]=C_h_intern(&lf[60],18, C_text("##sys#string->list")); lf[61]=C_h_intern(&lf[61],18, C_text("chicken.base#error")); lf[62]=C_decode_literal(C_heaptop,C_text("\376B\000\000$EOF - use `-force\047 to proceed anyway")); lf[63]=C_h_intern(&lf[63],20, C_text("chicken.io#read-line")); lf[64]=C_h_intern(&lf[64],25, C_text("chicken.base#flush-output")); lf[65]=C_h_intern(&lf[65],14, C_text("scheme#display")); lf[66]=C_decode_literal(C_heaptop,C_text("\376B\000\000!Do you want to proceed\077 (yes/no) ")); lf[67]=C_h_intern(&lf[67],33, C_text("chicken.string#string-intersperse")); lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[69]=C_decode_literal(C_heaptop,C_text("\376B\000\000+About to delete the following extensions:\012\012")); lf[70]=C_h_intern(&lf[70],3, C_text("map")); lf[71]=C_h_intern(&lf[71],13, C_text("scheme#append")); lf[72]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ")); lf[73]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[74]=C_h_intern(&lf[74],15, C_text("scheme#string=\077")); lf[75]=C_h_intern(&lf[75],30, C_text("chicken.irregex#irregex-search")); lf[76]=C_h_intern(&lf[76],23, C_text("chicken.irregex#irregex")); lf[77]=C_h_intern(&lf[77],25, C_text("chicken.irregex#glob->sre")); lf[78]=C_h_intern(&lf[78],17, C_text("chicken.file#glob")); lf[79]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052")); lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\0007CHICKEN_INSTALL_REPOSITORY must be an absolute pathname")); lf[81]=C_h_intern(&lf[81],35, C_text("chicken.pathname#absolute-pathname\077")); lf[82]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032CHICKEN_INSTALL_REPOSITORY")); lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\002,usage: chicken-uninstall [OPTION ...] [NAME ...]\012\012 -h -help " " show this message and exit\012 -version show version a" "nd exit\012 -force don\047t ask, delete whatever matches\012 " " -match treat NAME as a glob pattern\012 -s -sudo " " use external command to elevate privileges for deleting files\012 -ho" "st when cross-compiling, uninstall host extensions only\012 " " -target when cross-compiling, uninstall target extensions onl" "y")); lf[84]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-help")); lf[85]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010-version")); lf[86]=C_h_intern(&lf[86],32, C_text("chicken.platform#chicken-version")); lf[87]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007-target")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-host")); lf[89]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006-force")); lf[90]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006-match")); lf[91]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-s")); lf[92]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005-sudo")); lf[93]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000h\376\003\000\000\002\376\377\012\000\000s\376\003\000\000\002\376\377\012\000\000p\376\377\016")); lf[94]=C_h_intern(&lf[94],16, C_text("scheme#substring")); lf[95]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-h")); lf[96]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006--help")); lf[97]=C_h_intern(&lf[97],46, C_text("chicken.process-context#command-line-arguments")); lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004SUDO")); lf[99]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017chicken-install")); lf[100]=C_h_intern(&lf[100],41, C_text("chicken.process-context#current-directory")); lf[101]=C_h_intern(&lf[101],39, C_text("chicken.platform#system-cache-directory")); lf[102]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021CHICKEN_EGG_CACHE")); lf[103]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011/chicken/")); lf[104]=C_h_intern(&lf[104],20, C_text("##sys#fixnum->string")); lf[105]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011/chicken/")); lf[106]=C_h_intern(&lf[106],19, C_text("##sys#peek-c-string")); lf[107]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[108]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[109]=C_h_intern(&lf[109],30, C_text("chicken.platform#software-type")); lf[110]=C_h_intern(&lf[110],25, C_text("chicken.platform#feature\077")); lf[111]=C_h_intern_kw(&lf[111],13, C_text("cross-chicken")); lf[112]=C_h_intern(&lf[112],30, C_text("##sys#register-compiled-module")); lf[113]=C_h_intern(&lf[113],4, C_text("main")); C_register_lf2(lf,114,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1479,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[165] = { {C_text("f4420:chicken_2duninstall_2escm"),(void*)f4420}, {C_text("f4425:chicken_2duninstall_2escm"),(void*)f4425}, {C_text("f4432:chicken_2duninstall_2escm"),(void*)f4432}, {C_text("f4439:chicken_2duninstall_2escm"),(void*)f4439}, {C_text("f_1479:chicken_2duninstall_2escm"),(void*)f_1479}, {C_text("f_1482:chicken_2duninstall_2escm"),(void*)f_1482}, {C_text("f_1485:chicken_2duninstall_2escm"),(void*)f_1485}, {C_text("f_1488:chicken_2duninstall_2escm"),(void*)f_1488}, {C_text("f_1491:chicken_2duninstall_2escm"),(void*)f_1491}, {C_text("f_1494:chicken_2duninstall_2escm"),(void*)f_1494}, {C_text("f_1497:chicken_2duninstall_2escm"),(void*)f_1497}, {C_text("f_1500:chicken_2duninstall_2escm"),(void*)f_1500}, {C_text("f_1503:chicken_2duninstall_2escm"),(void*)f_1503}, {C_text("f_1506:chicken_2duninstall_2escm"),(void*)f_1506}, {C_text("f_1509:chicken_2duninstall_2escm"),(void*)f_1509}, {C_text("f_1886:chicken_2duninstall_2escm"),(void*)f_1886}, {C_text("f_1908:chicken_2duninstall_2escm"),(void*)f_1908}, {C_text("f_1920:chicken_2duninstall_2escm"),(void*)f_1920}, {C_text("f_1930:chicken_2duninstall_2escm"),(void*)f_1930}, {C_text("f_1978:chicken_2duninstall_2escm"),(void*)f_1978}, {C_text("f_1996:chicken_2duninstall_2escm"),(void*)f_1996}, {C_text("f_2006:chicken_2duninstall_2escm"),(void*)f_2006}, {C_text("f_2019:chicken_2duninstall_2escm"),(void*)f_2019}, {C_text("f_2033:chicken_2duninstall_2escm"),(void*)f_2033}, {C_text("f_2081:chicken_2duninstall_2escm"),(void*)f_2081}, {C_text("f_2095:chicken_2duninstall_2escm"),(void*)f_2095}, {C_text("f_2108:chicken_2duninstall_2escm"),(void*)f_2108}, {C_text("f_2120:chicken_2duninstall_2escm"),(void*)f_2120}, {C_text("f_2129:chicken_2duninstall_2escm"),(void*)f_2129}, {C_text("f_2137:chicken_2duninstall_2escm"),(void*)f_2137}, {C_text("f_2144:chicken_2duninstall_2escm"),(void*)f_2144}, {C_text("f_2158:chicken_2duninstall_2escm"),(void*)f_2158}, {C_text("f_2793:chicken_2duninstall_2escm"),(void*)f_2793}, {C_text("f_2799:chicken_2duninstall_2escm"),(void*)f_2799}, {C_text("f_2803:chicken_2duninstall_2escm"),(void*)f_2803}, {C_text("f_2807:chicken_2duninstall_2escm"),(void*)f_2807}, {C_text("f_2811:chicken_2duninstall_2escm"),(void*)f_2811}, {C_text("f_2815:chicken_2duninstall_2escm"),(void*)f_2815}, {C_text("f_2819:chicken_2duninstall_2escm"),(void*)f_2819}, {C_text("f_2823:chicken_2duninstall_2escm"),(void*)f_2823}, {C_text("f_2827:chicken_2duninstall_2escm"),(void*)f_2827}, {C_text("f_2831:chicken_2duninstall_2escm"),(void*)f_2831}, {C_text("f_2835:chicken_2duninstall_2escm"),(void*)f_2835}, {C_text("f_2839:chicken_2duninstall_2escm"),(void*)f_2839}, {C_text("f_2843:chicken_2duninstall_2escm"),(void*)f_2843}, {C_text("f_2847:chicken_2duninstall_2escm"),(void*)f_2847}, {C_text("f_2851:chicken_2duninstall_2escm"),(void*)f_2851}, {C_text("f_2859:chicken_2duninstall_2escm"),(void*)f_2859}, {C_text("f_2863:chicken_2duninstall_2escm"),(void*)f_2863}, {C_text("f_2867:chicken_2duninstall_2escm"),(void*)f_2867}, {C_text("f_2871:chicken_2duninstall_2escm"),(void*)f_2871}, {C_text("f_2875:chicken_2duninstall_2escm"),(void*)f_2875}, {C_text("f_2879:chicken_2duninstall_2escm"),(void*)f_2879}, {C_text("f_2883:chicken_2duninstall_2escm"),(void*)f_2883}, {C_text("f_2887:chicken_2duninstall_2escm"),(void*)f_2887}, {C_text("f_2891:chicken_2duninstall_2escm"),(void*)f_2891}, {C_text("f_2895:chicken_2duninstall_2escm"),(void*)f_2895}, {C_text("f_2899:chicken_2duninstall_2escm"),(void*)f_2899}, {C_text("f_2903:chicken_2duninstall_2escm"),(void*)f_2903}, {C_text("f_2907:chicken_2duninstall_2escm"),(void*)f_2907}, {C_text("f_2911:chicken_2duninstall_2escm"),(void*)f_2911}, {C_text("f_2915:chicken_2duninstall_2escm"),(void*)f_2915}, {C_text("f_2919:chicken_2duninstall_2escm"),(void*)f_2919}, {C_text("f_2923:chicken_2duninstall_2escm"),(void*)f_2923}, {C_text("f_2927:chicken_2duninstall_2escm"),(void*)f_2927}, {C_text("f_2931:chicken_2duninstall_2escm"),(void*)f_2931}, {C_text("f_2942:chicken_2duninstall_2escm"),(void*)f_2942}, {C_text("f_2951:chicken_2duninstall_2escm"),(void*)f_2951}, {C_text("f_2975:chicken_2duninstall_2escm"),(void*)f_2975}, {C_text("f_3000:chicken_2duninstall_2escm"),(void*)f_3000}, {C_text("f_3003:chicken_2duninstall_2escm"),(void*)f_3003}, {C_text("f_3009:chicken_2duninstall_2escm"),(void*)f_3009}, {C_text("f_3015:chicken_2duninstall_2escm"),(void*)f_3015}, {C_text("f_3019:chicken_2duninstall_2escm"),(void*)f_3019}, {C_text("f_3023:chicken_2duninstall_2escm"),(void*)f_3023}, {C_text("f_3027:chicken_2duninstall_2escm"),(void*)f_3027}, {C_text("f_3031:chicken_2duninstall_2escm"),(void*)f_3031}, {C_text("f_3037:chicken_2duninstall_2escm"),(void*)f_3037}, {C_text("f_3389:chicken_2duninstall_2escm"),(void*)f_3389}, {C_text("f_3394:chicken_2duninstall_2escm"),(void*)f_3394}, {C_text("f_3402:chicken_2duninstall_2escm"),(void*)f_3402}, {C_text("f_3416:chicken_2duninstall_2escm"),(void*)f_3416}, {C_text("f_3429:chicken_2duninstall_2escm"),(void*)f_3429}, {C_text("f_3432:chicken_2duninstall_2escm"),(void*)f_3432}, {C_text("f_3435:chicken_2duninstall_2escm"),(void*)f_3435}, {C_text("f_3446:chicken_2duninstall_2escm"),(void*)f_3446}, {C_text("f_3454:chicken_2duninstall_2escm"),(void*)f_3454}, {C_text("f_3458:chicken_2duninstall_2escm"),(void*)f_3458}, {C_text("f_3464:chicken_2duninstall_2escm"),(void*)f_3464}, {C_text("f_3466:chicken_2duninstall_2escm"),(void*)f_3466}, {C_text("f_3491:chicken_2duninstall_2escm"),(void*)f_3491}, {C_text("f_3503:chicken_2duninstall_2escm"),(void*)f_3503}, {C_text("f_3509:chicken_2duninstall_2escm"),(void*)f_3509}, {C_text("f_3515:chicken_2duninstall_2escm"),(void*)f_3515}, {C_text("f_3540:chicken_2duninstall_2escm"),(void*)f_3540}, {C_text("f_3551:chicken_2duninstall_2escm"),(void*)f_3551}, {C_text("f_3555:chicken_2duninstall_2escm"),(void*)f_3555}, {C_text("f_3561:chicken_2duninstall_2escm"),(void*)f_3561}, {C_text("f_3570:chicken_2duninstall_2escm"),(void*)f_3570}, {C_text("f_3575:chicken_2duninstall_2escm"),(void*)f_3575}, {C_text("f_3579:chicken_2duninstall_2escm"),(void*)f_3579}, {C_text("f_3582:chicken_2duninstall_2escm"),(void*)f_3582}, {C_text("f_3585:chicken_2duninstall_2escm"),(void*)f_3585}, {C_text("f_3588:chicken_2duninstall_2escm"),(void*)f_3588}, {C_text("f_3591:chicken_2duninstall_2escm"),(void*)f_3591}, {C_text("f_3618:chicken_2duninstall_2escm"),(void*)f_3618}, {C_text("f_3622:chicken_2duninstall_2escm"),(void*)f_3622}, {C_text("f_3641:chicken_2duninstall_2escm"),(void*)f_3641}, {C_text("f_3643:chicken_2duninstall_2escm"),(void*)f_3643}, {C_text("f_3668:chicken_2duninstall_2escm"),(void*)f_3668}, {C_text("f_3680:chicken_2duninstall_2escm"),(void*)f_3680}, {C_text("f_3707:chicken_2duninstall_2escm"),(void*)f_3707}, {C_text("f_3720:chicken_2duninstall_2escm"),(void*)f_3720}, {C_text("f_3724:chicken_2duninstall_2escm"),(void*)f_3724}, {C_text("f_3728:chicken_2duninstall_2escm"),(void*)f_3728}, {C_text("f_3732:chicken_2duninstall_2escm"),(void*)f_3732}, {C_text("f_3736:chicken_2duninstall_2escm"),(void*)f_3736}, {C_text("f_3742:chicken_2duninstall_2escm"),(void*)f_3742}, {C_text("f_3748:chicken_2duninstall_2escm"),(void*)f_3748}, {C_text("f_3759:chicken_2duninstall_2escm"),(void*)f_3759}, {C_text("f_3768:chicken_2duninstall_2escm"),(void*)f_3768}, {C_text("f_3773:chicken_2duninstall_2escm"),(void*)f_3773}, {C_text("f_3783:chicken_2duninstall_2escm"),(void*)f_3783}, {C_text("f_3798:chicken_2duninstall_2escm"),(void*)f_3798}, {C_text("f_3802:chicken_2duninstall_2escm"),(void*)f_3802}, {C_text("f_3806:chicken_2duninstall_2escm"),(void*)f_3806}, {C_text("f_3808:chicken_2duninstall_2escm"),(void*)f_3808}, {C_text("f_3827:chicken_2duninstall_2escm"),(void*)f_3827}, {C_text("f_3841:chicken_2duninstall_2escm"),(void*)f_3841}, {C_text("f_3845:chicken_2duninstall_2escm"),(void*)f_3845}, {C_text("f_3851:chicken_2duninstall_2escm"),(void*)f_3851}, {C_text("f_3864:chicken_2duninstall_2escm"),(void*)f_3864}, {C_text("f_3870:chicken_2duninstall_2escm"),(void*)f_3870}, {C_text("f_3885:chicken_2duninstall_2escm"),(void*)f_3885}, {C_text("f_3890:chicken_2duninstall_2escm"),(void*)f_3890}, {C_text("f_3901:chicken_2duninstall_2escm"),(void*)f_3901}, {C_text("f_3911:chicken_2duninstall_2escm"),(void*)f_3911}, {C_text("f_3943:chicken_2duninstall_2escm"),(void*)f_3943}, {C_text("f_3953:chicken_2duninstall_2escm"),(void*)f_3953}, {C_text("f_3956:chicken_2duninstall_2escm"),(void*)f_3956}, {C_text("f_3963:chicken_2duninstall_2escm"),(void*)f_3963}, {C_text("f_3981:chicken_2duninstall_2escm"),(void*)f_3981}, {C_text("f_3992:chicken_2duninstall_2escm"),(void*)f_3992}, {C_text("f_3999:chicken_2duninstall_2escm"),(void*)f_3999}, {C_text("f_4063:chicken_2duninstall_2escm"),(void*)f_4063}, {C_text("f_4072:chicken_2duninstall_2escm"),(void*)f_4072}, {C_text("f_4078:chicken_2duninstall_2escm"),(void*)f_4078}, {C_text("f_4085:chicken_2duninstall_2escm"),(void*)f_4085}, {C_text("f_4097:chicken_2duninstall_2escm"),(void*)f_4097}, {C_text("f_4101:chicken_2duninstall_2escm"),(void*)f_4101}, {C_text("f_4138:chicken_2duninstall_2escm"),(void*)f_4138}, {C_text("f_4146:chicken_2duninstall_2escm"),(void*)f_4146}, {C_text("f_4185:chicken_2duninstall_2escm"),(void*)f_4185}, {C_text("f_4191:chicken_2duninstall_2escm"),(void*)f_4191}, {C_text("f_4195:chicken_2duninstall_2escm"),(void*)f_4195}, {C_text("f_4202:chicken_2duninstall_2escm"),(void*)f_4202}, {C_text("f_4205:chicken_2duninstall_2escm"),(void*)f_4205}, {C_text("f_4212:chicken_2duninstall_2escm"),(void*)f_4212}, {C_text("f_4217:chicken_2duninstall_2escm"),(void*)f_4217}, {C_text("f_4222:chicken_2duninstall_2escm"),(void*)f_4222}, {C_text("f_4226:chicken_2duninstall_2escm"),(void*)f_4226}, {C_text("f_4230:chicken_2duninstall_2escm"),(void*)f_4230}, {C_text("f_4237:chicken_2duninstall_2escm"),(void*)f_4237}, {C_text("toplevel:chicken_2duninstall_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: main#partition o|hiding unexported module binding: main#span o|hiding unexported module binding: main#take o|hiding unexported module binding: main#drop o|hiding unexported module binding: main#split-at o|hiding unexported module binding: main#append-map o|hiding unexported module binding: main#every o|hiding unexported module binding: main#any o|hiding unexported module binding: main#cons* o|hiding unexported module binding: main#concatenate o|hiding unexported module binding: main#delete o|hiding unexported module binding: main#first o|hiding unexported module binding: main#second o|hiding unexported module binding: main#third o|hiding unexported module binding: main#fourth o|hiding unexported module binding: main#fifth o|hiding unexported module binding: main#delete-duplicates o|hiding unexported module binding: main#alist-cons o|hiding unexported module binding: main#filter o|hiding unexported module binding: main#filter-map o|hiding unexported module binding: main#remove o|hiding unexported module binding: main#unzip1 o|hiding unexported module binding: main#last o|hiding unexported module binding: main#list-index o|hiding unexported module binding: main#lset-adjoin/eq? o|hiding unexported module binding: main#lset-difference/eq? o|hiding unexported module binding: main#lset-union/eq? o|hiding unexported module binding: main#lset-intersection/eq? o|hiding unexported module binding: main#list-tabulate o|hiding unexported module binding: main#lset<=/eq? o|hiding unexported module binding: main#lset=/eq? o|hiding unexported module binding: main#length+ o|hiding unexported module binding: main#find o|hiding unexported module binding: main#find-tail o|hiding unexported module binding: main#iota o|hiding unexported module binding: main#make-list o|hiding unexported module binding: main#posq o|hiding unexported module binding: main#posv o|hiding unexported module binding: main#staticbuild o|hiding unexported module binding: main#debugbuild o|hiding unexported module binding: main#cross-chicken o|hiding unexported module binding: main#binary-version o|hiding unexported module binding: main#major-version o|hiding unexported module binding: main#default-cc o|hiding unexported module binding: main#default-cxx o|hiding unexported module binding: main#default-install-program o|hiding unexported module binding: main#default-cflags o|hiding unexported module binding: main#default-ldflags o|hiding unexported module binding: main#default-install-program-executable-flags o|hiding unexported module binding: main#default-install-program-data-flags o|hiding unexported module binding: main#default-libs o|hiding unexported module binding: main#default-libdir o|hiding unexported module binding: main#default-runlibdir o|hiding unexported module binding: main#default-slibdir o|hiding unexported module binding: main#default-incdir o|hiding unexported module binding: main#default-bindir o|hiding unexported module binding: main#default-sharedir o|hiding unexported module binding: main#default-platform o|hiding unexported module binding: main#default-prefix o|hiding unexported module binding: main#default-bindir o|hiding unexported module binding: main#default-csc o|hiding unexported module binding: main#default-csi o|hiding unexported module binding: main#default-builder o|hiding unexported module binding: main#target-librarian o|hiding unexported module binding: main#target-librarian-options o|hiding unexported module binding: main#host-repo o|hiding unexported module binding: main#host-libdir o|hiding unexported module binding: main#host-bindir o|hiding unexported module binding: main#host-incdir o|hiding unexported module binding: main#host-sharedir o|hiding unexported module binding: main#host-libs o|hiding unexported module binding: main#host-cflags o|hiding unexported module binding: main#host-ldflags o|hiding unexported module binding: main#host-cc o|hiding unexported module binding: main#host-cxx o|hiding unexported module binding: main#target-repo o|hiding unexported module binding: main#target-run-repo o|hiding unexported module binding: main#+egg-info-extension+ o|hiding unexported module binding: main#+version-file+ o|hiding unexported module binding: main#+timestamp-file+ o|hiding unexported module binding: main#+status-file+ o|hiding unexported module binding: main#+egg-extension+ o|hiding unexported module binding: main#validate-environment o|hiding unexported module binding: main#destination-repository o|hiding unexported module binding: main#probe-dir o|hiding unexported module binding: main#cache-directory o|hiding unexported module binding: main#locate-egg-file o|hiding unexported module binding: main#load-egg-info o|hiding unexported module binding: main#get-egg-property o|hiding unexported module binding: main#get-egg-property* o|hiding unexported module binding: main#get-extension-property/internal o|hiding unexported module binding: main#get-extension-property o|hiding unexported module binding: main#get-extension-property* o|hiding unexported module binding: main#host-extensions o|hiding unexported module binding: main#target-extensions o|hiding unexported module binding: main#force-uninstall o|hiding unexported module binding: main#sudo-uninstall o|hiding unexported module binding: main#sudo-program o|hiding unexported module binding: main#repo-path o|hiding unexported module binding: main#grep o|hiding unexported module binding: main#gather-eggs o|hiding unexported module binding: main#fini o|hiding unexported module binding: main#ask o|hiding unexported module binding: main#trim o|hiding unexported module binding: main#remove-extension o|hiding unexported module binding: main#delete-installed-file o|hiding unexported module binding: main#uninstall o|hiding unexported module binding: main#usage o|hiding unexported module binding: main#short-options o|hiding unexported module binding: main#main S|applied compiler syntax: S| scheme#for-each 2 S| chicken.base#foldl 3 S| scheme#map 7 S| chicken.base#foldr 3 o|eliminated procedure checks: 75 o|specializations: o| 1 (scheme#> fixnum fixnum) o| 1 (scheme#char=? char char) o| 1 (scheme#string-ref string fixnum) o| 1 (scheme#positive? fixnum) o| 2 (scheme#string-length string) o| 1 (scheme#zero? integer) o| 10 (scheme#string=? string string) o| 2 (scheme#cdar (pair pair *)) o| 5 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 2 (scheme#number->string fixnum) o| 1 (scheme#eqv? * *) o| 5 (##sys#check-list (or pair list) *) o| 37 (scheme#cdr pair) o| 9 (scheme#car pair) (o e)|safe calls: 389 (o e)|assignments to immediate values: 3 o|removed side-effect free assignment to unused variable: main#partition o|removed side-effect free assignment to unused variable: main#span o|removed side-effect free assignment to unused variable: main#drop o|removed side-effect free assignment to unused variable: main#split-at o|removed side-effect free assignment to unused variable: main#append-map o|inlining procedure: k1891 o|inlining procedure: k1891 o|inlining procedure: k1922 o|inlining procedure: k1922 o|removed side-effect free assignment to unused variable: main#cons* o|removed side-effect free assignment to unused variable: main#first o|removed side-effect free assignment to unused variable: main#second o|removed side-effect free assignment to unused variable: main#third o|removed side-effect free assignment to unused variable: main#fourth o|removed side-effect free assignment to unused variable: main#fifth o|removed side-effect free assignment to unused variable: main#alist-cons o|inlining procedure: k2139 o|inlining procedure: k2139 o|inlining procedure: k2131 o|inlining procedure: k2131 o|removed side-effect free assignment to unused variable: main#filter-map o|removed side-effect free assignment to unused variable: main#remove o|removed side-effect free assignment to unused variable: main#unzip1 o|removed side-effect free assignment to unused variable: main#last o|removed side-effect free assignment to unused variable: main#list-index o|removed side-effect free assignment to unused variable: main#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: main#lset-difference/eq? o|removed side-effect free assignment to unused variable: main#lset-union/eq? o|removed side-effect free assignment to unused variable: main#lset-intersection/eq? o|inlining procedure: k2530 o|inlining procedure: k2530 o|removed side-effect free assignment to unused variable: main#lset<=/eq? o|removed side-effect free assignment to unused variable: main#lset=/eq? o|removed side-effect free assignment to unused variable: main#length+ o|removed side-effect free assignment to unused variable: main#find o|removed side-effect free assignment to unused variable: main#find-tail o|removed side-effect free assignment to unused variable: main#iota o|removed side-effect free assignment to unused variable: main#make-list o|removed side-effect free assignment to unused variable: main#posq o|removed side-effect free assignment to unused variable: main#posv o|removed side-effect free assignment to unused variable: main#default-cc o|removed side-effect free assignment to unused variable: main#default-cxx o|removed side-effect free assignment to unused variable: main#default-install-program o|removed side-effect free assignment to unused variable: main#default-cflags o|removed side-effect free assignment to unused variable: main#default-ldflags o|removed side-effect free assignment to unused variable: main#default-install-program-executable-flags o|removed side-effect free assignment to unused variable: main#default-install-program-data-flags o|removed side-effect free assignment to unused variable: main#default-libs o|removed side-effect free assignment to unused variable: main#default-slibdir o|removed side-effect free assignment to unused variable: main#default-incdir o|removed side-effect free assignment to unused variable: main#default-sharedir o|removed side-effect free assignment to unused variable: main#default-prefix o|removed side-effect free assignment to unused variable: main#default-csc o|removed side-effect free assignment to unused variable: main#default-csi o|removed side-effect free assignment to unused variable: main#default-builder o|removed side-effect free assignment to unused variable: main#target-librarian o|removed side-effect free assignment to unused variable: main#target-librarian-options o|removed side-effect free assignment to unused variable: main#host-libdir o|removed side-effect free assignment to unused variable: main#host-bindir o|removed side-effect free assignment to unused variable: main#host-incdir o|removed side-effect free assignment to unused variable: main#host-sharedir o|removed side-effect free assignment to unused variable: main#host-libs o|removed side-effect free assignment to unused variable: main#host-cflags o|removed side-effect free assignment to unused variable: main#host-ldflags o|removed side-effect free assignment to unused variable: main#host-cc o|removed side-effect free assignment to unused variable: main#host-cxx o|removed side-effect free assignment to unused variable: main#+version-file+ o|removed side-effect free assignment to unused variable: main#+timestamp-file+ o|removed side-effect free assignment to unused variable: main#+status-file+ o|removed side-effect free assignment to unused variable: main#+egg-extension+ o|removed side-effect free assignment to unused variable: main#probe-dir o|removed side-effect free assignment to unused variable: main#cache-directory o|removed side-effect free assignment to unused variable: main#get-egg-property o|inlining procedure: k3095 o|inlining procedure: k3113 o|inlining procedure: k3113 o|inlining procedure: k3130 o|inlining procedure: k3130 o|substituted constant variable: a3171 o|substituted constant variable: a3173 o|inlining procedure: k3095 o|inlining procedure: k3181 o|inlining procedure: k3181 o|inlining procedure: k3191 o|inlining procedure: k3209 o|inlining procedure: k3209 o|inlining procedure: k3226 o|inlining procedure: k3226 o|inlining procedure: k3256 o|inlining procedure: k3256 o|substituted constant variable: a3285 o|substituted constant variable: a3287 o|substituted constant variable: a3289 o|inlining procedure: k3191 o|removed side-effect free assignment to unused variable: main#get-extension-property o|removed side-effect free assignment to unused variable: main#get-extension-property* o|removed side-effect free assignment to unused variable: main#target-extensions o|contracted procedure: "(chicken-uninstall.scm:57) main#destination-repository" o|inlining procedure: k2964 o|inlining procedure: k2964 o|inlining procedure: k3403 o|inlining procedure: k3403 o|inlining procedure: k3810 o|inlining procedure: k3810 o|inlining procedure: k3828 o|inlining procedure: k3828 o|inlining procedure: k3846 o|inlining procedure: k3846 o|contracted procedure: "(chicken-uninstall.scm:199) main#main" o|inlining procedure: k3945 o|contracted procedure: "(chicken-uninstall.scm:163) main#uninstall" o|inlining procedure: k3871 o|inlining procedure: k3871 o|inlining procedure: k3903 o|contracted procedure: "(chicken-uninstall.scm:134) g10951102" o|contracted procedure: "(chicken-uninstall.scm:137) main#remove-extension" o|inlining procedure: k3743 o|inlining procedure: k3775 o|contracted procedure: "(chicken-uninstall.scm:111) g10561063" o|inlining procedure: k3754 o|inlining procedure: k3754 o|inlining procedure: k3775 o|contracted procedure: "(chicken-uninstall.scm:109) main#get-egg-property*" o|inlining procedure: k3077 o|inlining procedure: k3077 o|contracted procedure: "(chicken-uninstall.scm:109) main#load-egg-info" o|contracted procedure: "(egg-information.scm:37) main#locate-egg-file" o|inlining procedure: k3010 o|inlining procedure: k3010 o|inlining procedure: k3743 o|inlining procedure: k3903 o|propagated global variable: tmp10891091 main#force-uninstall o|propagated global variable: tmp10891091 main#force-uninstall o|contracted procedure: "(chicken-uninstall.scm:133) main#ask" o|inlining procedure: k3595 o|inlining procedure: k3595 o|substituted constant variable: a3602 o|contracted procedure: "(chicken-uninstall.scm:96) main#fini" o|contracted procedure: "(chicken-uninstall.scm:94) main#trim" o|inlining procedure: k3682 o|inlining procedure: k3682 o|inlining procedure: k3645 o|contracted procedure: "(chicken-uninstall.scm:86) g9991008" o|inlining procedure: k3645 o|contracted procedure: "(chicken-uninstall.scm:130) main#gather-eggs" o|contracted procedure: "(chicken-uninstall.scm:77) main#delete-duplicates" o|inlining procedure: k2083 o|inlining procedure: k2083 o|contracted procedure: "(mini-srfi-1.scm:123) main#delete" o|inlining procedure: k2008 o|inlining procedure: k2008 o|contracted procedure: "(chicken-uninstall.scm:71) main#grep" o|propagated global variable: g917918 chicken.irregex#irregex-search o|contracted procedure: "(chicken-uninstall.scm:69) main#concatenate" o|inlining procedure: k1980 o|inlining procedure: k1980 o|inlining procedure: k3468 o|inlining procedure: k3468 o|inlining procedure: k3517 o|inlining procedure: k3517 o|contracted procedure: "(chicken-uninstall.scm:162) main#validate-environment" o|inlining procedure: k2943 o|inlining procedure: k2943 o|inlining procedure: k3945 o|substituted constant variable: a3989 o|inlining procedure: k3985 o|inlining procedure: k3985 o|substituted constant variable: a4004 o|substituted constant variable: a4015 o|removed side-effect free assignment to unused variable: main#target-extensions o|inlining procedure: k4011 o|inlining procedure: k4011 o|substituted constant variable: a4026 o|substituted constant variable: a4037 o|inlining procedure: k4033 o|inlining procedure: k4033 o|substituted constant variable: a4048 o|inlining procedure: k4058 o|inlining procedure: k4073 o|inlining procedure: k4103 o|contracted procedure: "(chicken-uninstall.scm:193) g11651174" o|inlining procedure: k4103 o|inlining procedure: k4073 o|substituted constant variable: main#short-options o|substituted constant variable: a4154 o|inlining procedure: k4058 o|substituted constant variable: a4172 o|substituted constant variable: a4169 o|substituted constant variable: a4175 o|substituted constant variable: a4177 o|inlining procedure: k4178 o|inlining procedure: k4178 o|substituted constant variable: a4182 o|inlining procedure: k4203 o|inlining procedure: k4203 o|replaced variables: 304 o|removed binding forms: 180 o|substituted constant variable: r21324257 o|removed side-effect free assignment to unused variable: main#list-tabulate o|removed side-effect free assignment to unused variable: main#get-extension-property/internal o|substituted constant variable: rest694696 o|substituted constant variable: r34044279 o|removed side-effect free assignment to unused variable: main#short-options o|substituted constant variable: rest791794 o|substituted constant variable: prop793 o|substituted constant variable: r37444299 o|substituted constant variable: code987 o|substituted constant variable: r36834303 o|substituted constant variable: r19814311 o|contracted procedure: "(chicken-uninstall.scm:75) main#any" o|substituted constant variable: r19234252 o|contracted procedure: "(chicken-uninstall.scm:192) main#every" o|replaced variables: 9 o|removed binding forms: 326 o|removed conditional forms: 1 o|inlining procedure: k3074 o|inlining procedure: k2949 o|inlining procedure: "(chicken-uninstall.scm:161) main#usage" o|inlining procedure: "(chicken-uninstall.scm:169) main#usage" o|inlining procedure: "(chicken-uninstall.scm:195) main#usage" o|inlining procedure: "(chicken-uninstall.scm:196) main#usage" o|replaced variables: 16 o|removed binding forms: 24 o|removed side-effect free assignment to unused variable: main#usage o|substituted constant variable: r30754390 o|substituted constant variable: r30754390 o|substituted constant variable: r30754390 o|substituted constant variable: code11124418 o|substituted constant variable: code11124423 o|substituted constant variable: code11124430 o|substituted constant variable: code11124437 o|removed binding forms: 17 o|removed conditional forms: 1 o|removed binding forms: 6 o|simplifications: ((if . 11) (##core#call . 95)) o| call simplifications: o| ##sys#size 2 o| chicken.fixnum#fx> o| scheme#memq o| scheme#string o| scheme#equal? o| scheme#list 4 o| ##sys#setslot 4 o| scheme#eof-object? o| scheme#string->list 2 o| scheme#list->string o| scheme#char-whitespace? o| scheme#string=? 3 o| scheme#assq o| scheme#cdr o| scheme#not 4 o| scheme#null? 11 o| scheme#car 9 o| scheme#eq? 4 o| ##sys#check-list 5 o| scheme#pair? 7 o| ##sys#slot 18 o| scheme#cons 13 o|contracted procedure: k2122 o|contracted procedure: k2134 o|contracted procedure: k2152 o|contracted procedure: k2160 o|contracted procedure: k4231 o|contracted procedure: k2853 o|contracted procedure: k3390 o|contracted procedure: k2979 o|contracted procedure: k2961 o|contracted procedure: k2967 o|contracted procedure: k3403 o|contracted procedure: k3813 o|contracted procedure: k3822 o|contracted procedure: k3831 o|contracted procedure: k3948 o|contracted procedure: k3874 o|contracted procedure: k3894 o|contracted procedure: k3906 o|contracted procedure: k3916 o|contracted procedure: k3920 o|contracted procedure: k3763 o|contracted procedure: k3778 o|contracted procedure: k3788 o|contracted procedure: k3792 o|contracted procedure: k3083 o|contracted procedure: k3068 o|contracted procedure: k3071 o|contracted procedure: k3074 o|contracted procedure: k3592 o|contracted procedure: k3685 o|contracted procedure: k3711 o|contracted procedure: k3691 o|contracted procedure: k3609 o|contracted procedure: k3624 o|contracted procedure: k3628 o|contracted procedure: k3636 o|contracted procedure: k3648 o|contracted procedure: k3651 o|contracted procedure: k3654 o|contracted procedure: k3662 o|contracted procedure: k3670 o|contracted procedure: k3424 o|contracted procedure: k2086 o|contracted procedure: k2089 o|contracted procedure: k2099 o|contracted procedure: k2011 o|contracted procedure: k2037 o|contracted procedure: k3443 o|contracted procedure: k3459 o|contracted procedure: k1983 o|contracted procedure: k1990 o|contracted procedure: k3471 o|contracted procedure: k3474 o|contracted procedure: k3477 o|contracted procedure: k3485 o|contracted procedure: k3493 o|contracted procedure: k1925 o|contracted procedure: k1940 o|contracted procedure: k3520 o|contracted procedure: k3523 o|contracted procedure: k3526 o|contracted procedure: k3534 o|contracted procedure: k3542 o|contracted procedure: k2946 o|contracted procedure: k3964 o|contracted procedure: k3970 o|contracted procedure: k3976 o|contracted procedure: k4049 o|contracted procedure: k4151 o|contracted procedure: k4067 o|contracted procedure: k4087 o|contracted procedure: k4106 o|contracted procedure: k4128 o|contracted procedure: k4124 o|contracted procedure: k4109 o|contracted procedure: k4112 o|contracted procedure: k4120 o|contracted procedure: k1888 o|contracted procedure: k1897 o|contracted procedure: k1910 o|contracted procedure: k4162 o|contracted procedure: k4166 o|contracted procedure: k4239 o|contracted procedure: k4243 o|contracted procedure: k4247 o|simplifications: ((let . 20)) o|removed binding forms: 85 o|substituted constant variable: r4240 o|substituted constant variable: r4244 o|substituted constant variable: r4240 o|substituted constant variable: r4244 o|substituted constant variable: r4248 o|replaced variables: 33 o|simplifications: ((if . 1)) o|removed binding forms: 25 o|customizable procedures: (k3979 k4061 loop241 map-loop11591184 loop1118 map-loop925942 loop254 g958967 map-loop952970 loop273 main#filter loop280 loop300 map-loop9931018 left1042 loop1025 main#repo-path k3746 for-each-loop10551066 main#delete-installed-file for-each-loop10941106 k3400 foldr317320 g322323) o|calls to known targets: 60 o|identified direct recursive calls: f_2129 1 o|identified direct recursive calls: f_3680 2 o|identified direct recursive calls: f_1978 1 o|identified direct recursive calls: f_4101 1 o|fast box initializations: 15 o|fast global references: 28 o|fast global assignments: 24 o|dropping unused closure argument: f_2120 o|dropping unused closure argument: f_3394 o|dropping unused closure argument: f_3808 */ /* end of file */ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.process-context.import.c������������������������������������������������������0000644�0001750�0001750�00000016306�13502227774�021166� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.process-context.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.process-context.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.process-context.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.process-context.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(241))){ C_save(t1); C_rereclaim2(241*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],23, C_text("chicken.process-context")); lf[2]=C_h_intern(&lf[2],7, C_text("library")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001argv\376\001\000\000\034\001chicken.process-context#argv\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001argc+argv\376" "\001\000\000!\001chicken.process-context#argc+argv\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001command-line-arguments\376\001\000\000" ".\001chicken.process-context#command-line-arguments\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001program-name\376\001\000\000" "$\001chicken.process-context#program-name\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001executable-pathname\376\001\000\000+\001c" "hicken.process-context#executable-pathname\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001change-directory\376\001\000\000(\001" "chicken.process-context#change-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001current-directory\376\001\000\000)\001c" "hicken.process-context#current-directory\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001get-environment-variable" "\376\001\000\0000\001chicken.process-context#get-environment-variable\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001get-enviro" "nment-variables\376\001\000\0001\001chicken.process-context#get-environment-variables\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\031\001set-environment-variable!\376\001\000\0001\001chicken.process-context#set-environment-var" "iable!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001unset-environment-variable!\376\001\000\0003\001chicken.process-context#u" "nset-environment-variable!\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eprocess_2dcontext_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eprocess_2dcontext_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eprocess_2dcontext_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eprocess_2dcontext_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eprocess_2dcontext_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/defaults.make�������������������������������������������������������������������������0000644�0001750�0001750�00000051534�13502227553�015411� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# defaults.make - default settings -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. # basic parameters BINARYVERSION = 11 STACKDIRECTION ?= 1 CROSS_CHICKEN ?= 0 # directories SEP ?= / DESTDIR ?= PREFIX ?= /usr/local BINDIR ?= $(PREFIX)/bin LIBDIR ?= $(PREFIX)/lib SHAREDIR ?= $(PREFIX)/share DATADIR ?= $(SHAREDIR)/$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX) INCLUDEDIR ?= $(PREFIX)/include MANDIR ?= $(SHAREDIR)/man DOCDIR ?= $(DATADIR)/doc VARDIR ?= $(LIBDIR) MAN1DIR ?= $(MANDIR)/man1 CHICKENLIBDIR ?= $(VARDIR)/$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX) EGGDIR ?= $(CHICKENLIBDIR)/$(BINARYVERSION) CHICKENINCDIR ?= $(INCLUDEDIR)/$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX) # For the windows shell, we must distinguish between paths built into # binaries (system calls may use slash as a separator) and paths # passed to shell commands when installing. We prefix the latter with # an 'I': INST_DIRS=BINDIR LIBDIR SHAREDIR DATADIR MAN1DIR CHICKENINCDIR DOCDIR EGGDIR $(foreach dir,$(INST_DIRS),$(eval I$(dir)=$(subst /,$(SEP),$($(dir))))) INSTALL_LIB_NAME = $(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX) RUNTIME_LINKER_PATH ?= . # commands ifdef HOSTSYSTEM C_COMPILER ?= $(HOSTSYSTEM)-gcc CXX_COMPILER ?= $(HOSTSYSTEM)-g++ LIBRARIAN ?= $(HOSTSYSTEM)-ar else C_COMPILER ?= gcc CXX_COMPILER ?= g++ LIBRARIAN ?= ar endif ifdef WINDOWS ifdef HOSTSYSTEM RC_COMPILER ?= $(HOSTSYSTEM)-windres else RC_COMPILER ?= windres endif endif LINKER ?= $(C_COMPILER) ASSEMBLER ?= $(C_COMPILER) ifdef WINDOWS_SHELL REMOVE_COMMAND ?= del INSTALL_PROGRAM ?= copy MAKEDIR_COMMAND ?= -mkdir else REMOVE_COMMAND ?= rm INSTALL_PROGRAM ?= install MAKEDIR_COMMAND ?= $(INSTALL_PROGRAM) endif POSTINSTALL_STATIC_LIBRARY ?= true POSTINSTALL_PROGRAM ?= true # target variables ifdef TARGETSYSTEM TARGET_C_COMPILER ?= $(TARGETSYSTEM)-$(C_COMPILER) TARGET_CXX_COMPILER ?= $(TARGETSYSTEM)-$(CXX_COMPILER) TARGET_RC_COMPILER ?= $(TARGETSYSTEM)-$(RC_COMPILER) TARGET_LIBRARIAN ?= $(TARGETSYSTEM)-$(LIBRARIAN) else TARGET_C_COMPILER ?= $(C_COMPILER) TARGET_CXX_COMPILER ?= $(CXX_COMPILER) TARGET_RC_COMPILER ?= $(RC_COMPILER) TARGET_LIBRARIAN ?= $(LIBRARIAN) endif TARGET_C_COMPILER_OPTIONS ?= $(C_COMPILER_OPTIONS) TARGET_C_COMPILER_OPTIMIZATION_OPTIONS ?= $(C_COMPILER_OPTIMIZATION_OPTIONS) TARGET_LIBRARIAN_OPTIONS ?= $(LIBRARIAN_OPTIONS) TARGET_PREFIX ?= $(PREFIX) TARGET_RUN_PREFIX ?= $(TARGET_PREFIX) TARGET_LIBRARIES ?= $(LIBRARIES) TARGET_LINKER_OPTIONS ?= $(LINKER_OPTIONS) TARGET_LINKER_OPTIMIZATION_OPTIONS ?= $(LINKER_OPTIMIZATION_OPTIONS) TARGET_FEATURES ?= TARGET_LIB_NAME ?= chicken ifneq ($(TARGET_C_COMPILER),$(C_COMPILER)) CROSS_CHICKEN = 1 else CROSS_CHICKEN = 0 endif # options INCLUDES ?= -I. -I$(SRCDIR) C_COMPILER_COMPILE_OPTION ?= -c C_COMPILER_OUTPUT_OPTION ?= -o C_COMPILER_OUTPUT ?= $(C_COMPILER_OUTPUT_OPTION) $@ ifndef NOPTABLES C_COMPILER_OPTIONS += -DC_ENABLE_PTABLES endif ifdef DEBUGBUILD ifeq ($(C_COMPILER),gcc) C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused endif endif C_COMPILER_BUILD_RUNTIME_OPTIONS ?= -DC_BUILDING_LIBCHICKEN C_COMPILER_SHARED_OPTIONS ?= -fPIC -DPIC LINKER_EXECUTABLE_OPTIONS ?= -L. LINKER_STATIC_OPTIONS ?= $(LINKER_EXECUTABLE_OPTIONS) LINKER_OUTPUT_OPTION ?= -o LINKER_OUTPUT ?= $(LINKER_OUTPUT_OPTION) $@ LINKER_LIBRARY_OPTION ?= -l ifdef STATICBUILD LINKER_LIBRARY_PREFIX ?= lib LINKER_LIBRARY_SUFFIX ?= .a else LINKER_LIBRARY_PREFIX ?= -l LINKER_LIBRARY_SUFFIX ?= endif LINKER_LINK_SHARED_LIBRARY_OPTIONS ?= -shared LINKER_LINK_SHARED_DLOADABLE_OPTIONS ?= -shared -L. LIBRARIAN_OPTIONS ?= cru LIBRARIAN_OUTPUT_OPTION ?= LIBRARIAN_OUTPUT ?= $(LIBRARIAN_OUTPUT_OPTION) $@ LIBRARIES ?= -lm ifdef WINDOWS_SHELL REMOVE_COMMAND_OPTIONS ?= /f /q REMOVE_COMMAND_RECURSIVE_OPTIONS ?= /f /s /q MAKE_WRITABLE_COMMAND ?= rem INSTALL_PROGRAM_SHARED_LIBRARY_OPTIONS ?= /Y INSTALL_PROGRAM_STATIC_LIBRARY_OPTIONS ?= /Y INSTALL_PROGRAM_EXECUTABLE_OPTIONS ?= /Y INSTALL_PROGRAM_FILE_OPTIONS ?= /Y else REMOVE_COMMAND_OPTIONS ?= -f REMOVE_COMMAND_RECURSIVE_OPTIONS ?= -fr MAKE_WRITABLE_COMMAND ?= chmod 0755 INSTALL_PROGRAM_SHARED_LIBRARY_OPTIONS ?= -m 755 INSTALL_PROGRAM_STATIC_LIBRARY_OPTIONS ?= -m 644 INSTALL_PROGRAM_EXECUTABLE_OPTIONS ?= -m 755 INSTALL_PROGRAM_FILE_OPTIONS ?= -m 644 MAKEDIR_COMMAND_OPTIONS ?= -d -m 755 endif ASSEMBLER_OPTIONS ?= $(C_COMPILER_OPTIONS) ASSEMBLER_OUTPUT_OPTION ?= -o ASSEMBLER_OUTPUT ?= $(ASSEMBLER_OUTPUT_OPTION) $@ ASSEMBLER_COMPILE_OPTION ?= -c ifdef STATICBUILD PRIMARY_LIBCHICKEN ?= lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A) else ifeq ($(PLATFORM),cygwin) PRIMARY_LIBCHICKEN = cyg$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)-0.dll LIBCHICKEN_SO_FILE = cyg$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)-0.dll else PRIMARY_LIBCHICKEN ?= lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(SO) LIBCHICKEN_SO_FILE ?= lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(SO) endif endif LIBCHICKEN_SO_LIBRARIES ?= $(LIBRARIES) # other settings ifdef WINDOWS_SHELL BUILD_TIME ?= $(shell date /t) SCRIPT_EXT = .bat COPY_COMMAND = copy /Y HOSTNAME ?= $(shell hostname) UNAME_SYS ?= Windows # This is a poor man's version of $(file ...) in GNU Make 4.0 # We should consider replacing it when it becomes so widespread # that systems (Debian, OS X, Haiku, Mingw, Cygwin) are shipping it echo = echo $(3)$(1)$(2) else SCRIPT_EXT = COPY_COMMAND = cp echo = echo '$(subst ','\'',$(3))'$(1)$(2) #' fix Emacs syntax highlighting endif WISH ?= "$$wish" GENERATE_DEBUGGER ?= cat $< >$@; echo 'exec $(WISH) "$(DATADIR)/feathers.tcl" -- "$$@"' >>$@ # file extensions O ?= .o A ?= .a # EXE ?= SO ?= .so ASM ?= .S MAN ?= .mdoc # special files POSIXFILE ?= posixunix CHICKEN_CONFIG_H = chicken-config.h # bootstrapping compiler CHICKEN ?= chicken$(EXE) # interpreter for scripts CSI ?= csi$(EXE) # Scheme compiler flags CHICKEN_OPTIONS = -optimize-level 2 -include-path . -include-path $(SRCDIR) -inline -ignore-repository -feature chicken-bootstrap ifdef DEBUGBUILD CHICKEN_OPTIONS += -feature debugbuild -verbose else CHICKEN_OPTIONS += -no-warnings endif ifndef BUILDING_CHICKEN_BOOT CHICKEN_OPTIONS += -specialize -consult-types-file $(SRCDIR)types.db endif CHICKEN_OPTIONS += $(EXTRA_CHICKEN_OPTIONS) CHICKEN_LIBRARY_OPTIONS = $(CHICKEN_OPTIONS) -explicit-use -no-trace CHICKEN_PROGRAM_OPTIONS = $(CHICKEN_OPTIONS) -no-lambda-info CHICKEN_DYNAMIC_OPTIONS = $(CHICKEN_OPTIONS) -feature chicken-compile-shared -dynamic CHICKEN_IMPORT_LIBRARY_OPTIONS = $(CHICKEN_DYNAMIC_OPTIONS) -no-trace ifndef DEBUGBUILD CHICKEN_PROGRAM_OPTIONS += -no-trace endif CHICKEN_PROGRAM_OPTIONS += $(if $(PROFILE_OBJECTS),-profile) # import libraries PRIMITIVE_IMPORT_LIBRARIES = chicken.base chicken.condition \ chicken.csi chicken.foreign chicken.syntax chicken.time DYNAMIC_IMPORT_LIBRARIES = srfi-4 DYNAMIC_CHICKEN_IMPORT_LIBRARIES = bitwise blob errno file.posix \ fixnum flonum format gc io keyword load locative memory \ memory.representation platform plist pretty-print \ process process.signal process-context process-context.posix \ random sort string time.posix DYNAMIC_CHICKEN_COMPILER_IMPORT_LIBRARIES = user-pass DYNAMIC_CHICKEN_UNIT_IMPORT_LIBRARIES = continuation eval file \ internal irregex pathname port read-syntax repl tcp # targets CHICKEN_PROGRAM = $(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX) CSC_PROGRAM = $(PROGRAM_PREFIX)csc$(PROGRAM_SUFFIX) CSI_PROGRAM = $(PROGRAM_PREFIX)csi$(PROGRAM_SUFFIX) CHICKEN_PROFILE_PROGRAM = $(PROGRAM_PREFIX)chicken-profile$(PROGRAM_SUFFIX) CHICKEN_INSTALL_PROGRAM = $(PROGRAM_PREFIX)chicken-install$(PROGRAM_SUFFIX) CHICKEN_UNINSTALL_PROGRAM = $(PROGRAM_PREFIX)chicken-uninstall$(PROGRAM_SUFFIX) CHICKEN_STATUS_PROGRAM = $(PROGRAM_PREFIX)chicken-status$(PROGRAM_SUFFIX) CHICKEN_DO_PROGRAM = $(PROGRAM_PREFIX)chicken-do$(PROGRAM_SUFFIX) CHICKEN_DEBUGGER_PROGRAM ?= $(PROGRAM_PREFIX)feathers$(PROGRAM_SUFFIX)$(SCRIPT_EXT) IMPORT_LIBRARIES = $(DYNAMIC_IMPORT_LIBRARIES) \ $(PRIMITIVE_IMPORT_LIBRARIES) \ $(foreach lib,$(DYNAMIC_CHICKEN_IMPORT_LIBRARIES),chicken.$(lib)) \ $(foreach lib,$(DYNAMIC_CHICKEN_UNIT_IMPORT_LIBRARIES),chicken.$(lib)) \ $(foreach lib,$(DYNAMIC_CHICKEN_COMPILER_IMPORT_LIBRARIES),chicken.compiler.$(lib)) ifdef STATICBUILD CHICKEN_STATIC_EXECUTABLE = $(CHICKEN_PROGRAM)$(EXE) CSI_STATIC_EXECUTABLE = $(CSI_PROGRAM)$(EXE) CHICKEN_SHARED_EXECUTABLE = $(CHICKEN_PROGRAM)-shared$(EXE) CSI_SHARED_EXECUTABLE = $(CSI_PROGRAM)-shared$(EXE) TARGETLIBS ?= lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A) TARGETS += $(TARGETLIBS) $(CHICKEN_STATIC_EXECUTABLE) \ $(CSI_STATIC_EXECUTABLE) else CHICKEN_STATIC_EXECUTABLE = $(CHICKEN_PROGRAM)-static$(EXE) CSI_STATIC_EXECUTABLE = $(CSI_PROGRAM)-static$(EXE) CHICKEN_SHARED_EXECUTABLE = $(CHICKEN_PROGRAM)$(EXE) CSI_SHARED_EXECUTABLE = $(CSI_PROGRAM)$(EXE) TARGETLIBS ?= lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(A) $(LIBCHICKEN_SO_FILE) TARGETS += $(TARGETLIBS) $(CHICKEN_SHARED_EXECUTABLE) \ $(CSI_SHARED_EXECUTABLE) \ $(IMPORT_LIBRARIES:%=%.import.so) endif TARGETS += $(CHICKEN_INSTALL_PROGRAM)$(EXE) \ $(CHICKEN_UNINSTALL_PROGRAM)$(EXE) \ $(CHICKEN_STATUS_PROGRAM)$(EXE) \ $(CHICKEN_PROFILE_PROGRAM)$(EXE) \ $(CSC_PROGRAM)$(EXE) \ $(CHICKEN_DO_PROGRAM)$(EXE) \ $(CHICKEN_DEBUGGER_PROGRAM) ifdef WINDOWS TARGETS += chicken.rc$(O) endif # main rule .PHONY: all all: $(TARGETS) # generic part of chicken-config.h chicken-defaults.h: ifdef OPTIMIZE_FOR_SPEED $(call echo, >,$@, /* (this build was optimized for speed) */) endif ifdef DEBUGBUILD $(call echo, >>, $@,#define DEBUGBUILD 1) endif ifdef STATICBUILD $(call echo, >>, $@,#define STATICBUILD 1) endif $(call echo, >>, $@,#define C_CHICKEN_PROGRAM "$(CHICKEN_PROGRAM)$(EXE)") $(call echo, >>, $@,#ifndef C_INSTALL_CC) $(call echo, >>, $@,# define C_INSTALL_CC "$(C_COMPILER)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_CXX) $(call echo, >>, $@,# define C_INSTALL_CXX "$(CXX_COMPILER)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_POSTINSTALL_PROGRAM) $(call echo, >>, $@,# define C_INSTALL_POSTINSTALL_PROGRAM "$(POSTINSTALL_PROGRAM)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_RC_COMPILER) $(call echo, >>, $@,# define C_INSTALL_RC_COMPILER "$(RC_COMPILER)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_CFLAGS) $(call echo, >>, $@,# define C_INSTALL_CFLAGS "$(C_COMPILER_OPTIONS) $(C_COMPILER_OPTIMIZATION_OPTIONS)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_LDFLAGS) $(call echo, >>, $@,# define C_INSTALL_LDFLAGS "$(LINKER_OPTIONS) $(LINKER_OPTIMIZATION_OPTIONS)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_PREFIX) $(call echo, >>, $@,# define C_INSTALL_PREFIX "$(PREFIX)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_SHARE_HOME) $(call echo, >>, $@,# define C_INSTALL_SHARE_HOME "$(DATADIR)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_BIN_HOME) $(call echo, >>, $@,# define C_INSTALL_BIN_HOME "$(BINDIR)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_EGG_HOME) $(call echo, >>, $@,# define C_INSTALL_EGG_HOME "$(EGGDIR)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_LIB_HOME) $(call echo, >>, $@,# define C_INSTALL_LIB_HOME "$(LIBDIR)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_LIB_NAME) $(call echo, >>, $@,# define C_INSTALL_LIB_NAME "$(INSTALL_LIB_NAME)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_STATIC_LIB_HOME) $(call echo, >>, $@,# define C_INSTALL_STATIC_LIB_HOME "$(LIBDIR)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_INCLUDE_HOME) $(call echo, >>, $@,# define C_INSTALL_INCLUDE_HOME "$(CHICKENINCDIR)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_MORE_LIBS) $(call echo, >>, $@,# define C_INSTALL_MORE_LIBS "$(LIBRARIES)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_INSTALL_MORE_STATIC_LIBS) $(call echo, >>, $@,# define C_INSTALL_MORE_STATIC_LIBS "$(LIBRARIES)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_STACK_GROWS_DOWNWARD) $(call echo, >>, $@,# define C_STACK_GROWS_DOWNWARD $(STACKDIRECTION)) $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_MORE_LIBS) $(call echo, >>, $@,# define C_TARGET_MORE_LIBS "$(TARGET_LIBRARIES)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_MORE_STATIC_LIBS) $(call echo, >>, $@,# define C_TARGET_MORE_STATIC_LIBS "$(TARGET_LIBRARIES)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_CC) $(call echo, >>, $@,# define C_TARGET_CC "$(TARGET_C_COMPILER)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_CXX) $(call echo, >>, $@,# define C_TARGET_CXX "$(TARGET_CXX_COMPILER)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_RC_COMPILER) $(call echo, >>, $@,# define C_TARGET_RC_COMPILER "$(TARGET_RC_COMPILER)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_LIBRARIAN) $(call echo, >>, $@,# define C_TARGET_LIBRARIAN "$(TARGET_LIBRARIAN)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_INSTALL_PROGRAM) $(call echo, >>, $@,# define C_TARGET_INSTALL_PROGRAM "$(INSTALL_PROGRAM)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_CFLAGS) $(call echo, >>, $@,# define C_TARGET_CFLAGS "$(TARGET_C_COMPILER_OPTIONS) $(TARGET_C_COMPILER_OPTIMIZATION_OPTIONS)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_LIBRARIAN_FLAGS) $(call echo, >>, $@,# define C_TARGET_LIBRARIAN_FLAGS "$(TARGET_LIBRARIAN_OPTIONS)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_LDFLAGS) $(call echo, >>, $@,# define C_TARGET_LDFLAGS "$(TARGET_LINKER_OPTIONS) $(TARGET_LINKER_OPTIMIZATION_OPTIONS)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_INSTALL_PROGRAM_EXECUTABLE_OPTIONS) $(call echo, >>, $@,# define C_TARGET_INSTALL_PROGRAM_EXECUTABLE_OPTIONS "$(INSTALL_PROGRAM_EXECUTABLE_OPTIONS)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_INSTALL_PROGRAM_FILE_OPTIONS) $(call echo, >>, $@,# define C_TARGET_INSTALL_PROGRAM_FILE_OPTIONS "$(INSTALL_PROGRAM_FILE_OPTIONS)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_FEATURES) $(call echo, >>, $@,# define C_TARGET_FEATURES "$(TARGET_FEATURES)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_CROSS_CHICKEN) $(call echo, >>, $@,# define C_CROSS_CHICKEN $(CROSS_CHICKEN)) $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_PREFIX) $(call echo, >>, $@,# define C_TARGET_PREFIX "$(TARGET_PREFIX)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_BIN_HOME) $(call echo, >>, $@,# define C_TARGET_BIN_HOME "$(TARGET_PREFIX)/bin") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_LIB_HOME) $(call echo, >>, $@,# define C_TARGET_LIB_HOME "$(TARGET_PREFIX)/lib") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_LIB_NAME) $(call echo, >>, $@,# define C_TARGET_LIB_NAME "$(TARGET_LIB_NAME)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_RUN_LIB_HOME) ifdef DLLSINPATH $(call echo, >>, $@,# define C_TARGET_RUN_LIB_HOME "$(TARGET_RUN_PREFIX)/bin") else $(call echo, >>, $@,# define C_TARGET_RUN_LIB_HOME "$(TARGET_RUN_PREFIX)/lib") endif $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_SHARE_HOME) $(call echo, >>, $@,# define C_TARGET_SHARE_HOME "$(TARGET_PREFIX)/share") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_INCLUDE_HOME) $(call echo, >>, $@,# define C_TARGET_INCLUDE_HOME "$(TARGET_PREFIX)/include/chicken") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_TARGET_STATIC_LIB_HOME) $(call echo, >>, $@,# define C_TARGET_STATIC_LIB_HOME "$(TARGET_PREFIX)/lib") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_CHICKEN_PROGRAM) $(call echo, >>, $@,# define C_CHICKEN_PROGRAM "$(CHICKEN_PROGRAM)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_CSC_PROGRAM) $(call echo, >>, $@,# define C_CSC_PROGRAM "$(CSC_PROGRAM)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_CSI_PROGRAM) $(call echo, >>, $@,# define C_CSI_PROGRAM "$(CSI_PROGRAM)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_CHICKEN_DO_PROGRAM) $(call echo, >>, $@,# define C_CHICKEN_DO_PROGRAM "$(CHICKEN_DO_PROGRAM)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_CHICKEN_INSTALL_PROGRAM) $(call echo, >>, $@,# define C_CHICKEN_INSTALL_PROGRAM "$(CHICKEN_INSTALL_PROGRAM)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_CHICKEN_UNINSTALL_PROGRAM) $(call echo, >>, $@,# define C_CHICKEN_UNINSTALL_PROGRAM "$(CHICKEN_UNINSTALL_PROGRAM)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_CHICKEN_STATUS_PROGRAM) $(call echo, >>, $@,# define C_CHICKEN_STATUS_PROGRAM "$(CHICKEN_STATUS_PROGRAM)") $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_WINDOWS_SHELL) ifdef WINDOWS_SHELL $(call echo, >>, $@,# define C_WINDOWS_SHELL 1) else $(call echo, >>, $@,# define C_WINDOWS_SHELL 0) endif $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_BINARY_VERSION) $(call echo, >>, $@,# define C_BINARY_VERSION $(BINARYVERSION)) $(call echo, >>, $@,#endif) $(call echo, >>, $@,#ifndef C_USES_SONAME) ifdef USES_SONAME $(call echo, >>, $@,# define C_USES_SONAME 1) else $(call echo, >>, $@,# define C_USES_SONAME 0) endif $(call echo, >>, $@,#endif) $(call echo, >>, $@,/* END OF FILE */) chicken-install.rc: $(call echo, >, $@,/* GENERATED */) $(call echo, >>, $@,1 24 MOVEABLE PURE) $(call echo, >>, $@,BEGIN) $(call echo, >>, $@, "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>\r\n") $(call echo, >>, $@, "<assembly xmlns=""urn:schemas-microsoft-com:asm.v1"" manifestVersion=""1.0"">\r\n") $(call echo, >>, $@, " <assemblyIdentity version=""1.0.0.0"" processorArchitecture=""*"" name=""$(PROGRAM_PREFIX)chicken-install$(PROGRAM_SUFFIX)"" type=""win32""/>\r\n") $(call echo, >>, $@, " <ms_asmv2:trustInfo xmlns:ms_asmv2=""urn:schemas-microsoft-com:asm.v2"">\r\n") $(call echo, >>, $@, " <ms_asmv2:security>\r\n") $(call echo, >>, $@, " <ms_asmv2:requestedPrivileges>\r\n") $(call echo, >>, $@, " <ms_asmv2:requestedExecutionLevel level=""asInvoker"" uiAccess=""false""/>\r\n") $(call echo, >>, $@, " </ms_asmv2:requestedPrivileges>\r\n") $(call echo, >>, $@, " </ms_asmv2:security>\r\n") $(call echo, >>, $@, " </ms_asmv2:trustInfo>\r\n") $(call echo, >>, $@, "</assembly>\r\n") $(call echo, >>, $@,END) $(call echo, >>, $@,/* END OF FILE */) chicken-uninstall.rc: $(call echo, >, $@,/* GENERATED */) $(call echo, >>, $@,1 24 MOVEABLE PURE) $(call echo, >>, $@,BEGIN) $(call echo, >>, $@, "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>\r\n") $(call echo, >>, $@, "<assembly xmlns=""urn:schemas-microsoft-com:asm.v1"" manifestVersion=""1.0"">\r\n") $(call echo, >>, $@, " <assemblyIdentity version=""1.0.0.0"" processorArchitecture=""*"" name=""$(PROGRAM_PREFIX)chicken-uninstall$(PROGRAM_SUFFIX)"" type=""win32""/>\r\n") $(call echo, >>, $@, " <ms_asmv2:trustInfo xmlns:ms_asmv2=""urn:schemas-microsoft-com:asm.v2"">\r\n") $(call echo, >>, $@, " <ms_asmv2:security>\r\n") $(call echo, >>, $@, " <ms_asmv2:requestedPrivileges>\r\n") $(call echo, >>, $@, " <ms_asmv2:requestedExecutionLevel level=""asInvoker"" uiAccess=""false""/>\r\n") $(call echo, >>, $@, " </ms_asmv2:requestedPrivileges>\r\n") $(call echo, >>, $@, " </ms_asmv2:security>\r\n") $(call echo, >>, $@, " </ms_asmv2:trustInfo>\r\n") $(call echo, >>, $@, "</assembly>\r\n") $(call echo, >>, $@,END) $(call echo, >>, $@,/* END OF FILE */) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/Makefile������������������������������������������������������������������������������0000644�0001750�0001750�00000000634�13213463160�014371� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# See GNUmakefile for the actual makefile used by gmake all: @echo "Sorry, CHICKEN can only be built with GNU Make." @echo "" @echo "The '${MAKE}' command you just used is probably your system's" @echo "default Make program, which apparently is not GNU Make." @echo "" @echo "Try 'gmake' or 'gnumake' instead. If that doesn't work you'll" @echo "probably need to install a package or build it yourself." ����������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.plist.import.c����������������������������������������������������������������0000644�0001750�0001750�00000014116�13502227774�017156� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.plist.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.plist.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.plist.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.plist.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(121))){ C_save(t1); C_rereclaim2(121*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],13, C_text("chicken.plist")); lf[2]=C_h_intern(&lf[2],7, C_text("library")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001get\376\001\000\000\021\001chicken.plist#get\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001get-properties\376\001\000\000\034\001ch" "icken.plist#get-properties\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001put!\376\001\000\000\022\001chicken.plist#put!\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\010\001remprop!\376\001\000\000\026\001chicken.plist#remprop!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001symbol-plist\376\001\000\000\032\001chic" "ken.plist#symbol-plist\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eplist_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eplist_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eplist_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eplist_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eplist_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/read-syntax.c�������������������������������������������������������������������������0000644�0001750�0001750�00000112435�13502227774�015351� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from read-syntax.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: read-syntax.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file read-syntax.c -emit-import-library chicken.read-syntax unit: read-syntax uses: internal library */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[34]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,16),40,102,95,51,48,56,32,99,104,114,32,112,114,111,99,41}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,114,101,97,100,45,115,121,110,116,97,120,35,115,121,110,116,97,120,45,115,101,116,116,101,114,32,108,111,99,32,115,108,111,116,32,119,114,97,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,114,101,97,100,45,115,121,110,116,97,120,35,99,111,112,121,45,114,101,97,100,45,116,97,98,108,101,32,114,116,41}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,50),40,99,104,105,99,107,101,110,46,114,101,97,100,45,115,121,110,116,97,120,35,100,101,102,105,110,101,45,114,101,97,100,101,114,45,99,116,111,114,32,115,112,101,99,32,112,114,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,5),40,101,114,114,41,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,117,115,101,114,45,114,101,97,100,45,104,111,111,107,32,99,104,97,114,32,112,111,114,116,41}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,18),40,102,95,53,50,52,32,95,32,112,111,114,116,32,110,117,109,41,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,11),40,97,53,50,49,32,112,114,111,99,41,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,14),40,102,95,53,51,53,32,95,32,112,111,114,116,41,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,11),40,97,53,51,50,32,112,114,111,99,41,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,14),40,102,95,53,52,54,32,95,32,112,111,114,116,41,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,11),40,97,53,52,51,32,112,114,111,99,41,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_280) static void C_ccall f_280(C_word c,C_word *av) C_noret; C_noret_decl(f_283) static void C_ccall f_283(C_word c,C_word *av) C_noret; C_noret_decl(f_306) static void C_fcall f_306(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_308) static void C_ccall f_308(C_word c,C_word *av) C_noret; C_noret_decl(f_321) static void C_ccall f_321(C_word c,C_word *av) C_noret; C_noret_decl(f_324) static void C_fcall f_324(C_word t0,C_word t1) C_noret; C_noret_decl(f_333) static void C_ccall f_333(C_word c,C_word *av) C_noret; C_noret_decl(f_339) static void C_ccall f_339(C_word c,C_word *av) C_noret; C_noret_decl(f_350) static void C_ccall f_350(C_word c,C_word *av) C_noret; C_noret_decl(f_367) static void C_ccall f_367(C_word c,C_word *av) C_noret; C_noret_decl(f_371) static void C_ccall f_371(C_word c,C_word *av) C_noret; C_noret_decl(f_375) static void C_ccall f_375(C_word c,C_word *av) C_noret; C_noret_decl(f_379) static void C_ccall f_379(C_word c,C_word *av) C_noret; C_noret_decl(f_381) static void C_ccall f_381(C_word c,C_word *av) C_noret; C_noret_decl(f_395) static void C_ccall f_395(C_word c,C_word *av) C_noret; C_noret_decl(f_402) static void C_ccall f_402(C_word c,C_word *av) C_noret; C_noret_decl(f_409) static void C_ccall f_409(C_word c,C_word *av) C_noret; C_noret_decl(f_434) static void C_ccall f_434(C_word c,C_word *av) C_noret; C_noret_decl(f_436) static void C_ccall f_436(C_word c,C_word *av) C_noret; C_noret_decl(f_445) static void C_ccall f_445(C_word c,C_word *av) C_noret; C_noret_decl(f_455) static void C_ccall f_455(C_word c,C_word *av) C_noret; C_noret_decl(f_458) static void C_ccall f_458(C_word c,C_word *av) C_noret; C_noret_decl(f_459) static void C_fcall f_459(C_word t0,C_word t1) C_noret; C_noret_decl(f_472) static void C_fcall f_472(C_word t0,C_word t1) C_noret; C_noret_decl(f_490) static void C_ccall f_490(C_word c,C_word *av) C_noret; C_noret_decl(f_520) static void C_ccall f_520(C_word c,C_word *av) C_noret; C_noret_decl(f_522) static void C_ccall f_522(C_word c,C_word *av) C_noret; C_noret_decl(f_524) static void C_ccall f_524(C_word c,C_word *av) C_noret; C_noret_decl(f_528) static void C_ccall f_528(C_word c,C_word *av) C_noret; C_noret_decl(f_533) static void C_ccall f_533(C_word c,C_word *av) C_noret; C_noret_decl(f_535) static void C_ccall f_535(C_word c,C_word *av) C_noret; C_noret_decl(f_539) static void C_ccall f_539(C_word c,C_word *av) C_noret; C_noret_decl(f_544) static void C_ccall f_544(C_word c,C_word *av) C_noret; C_noret_decl(f_546) static void C_ccall f_546(C_word c,C_word *av) C_noret; C_noret_decl(f_550) static void C_ccall f_550(C_word c,C_word *av) C_noret; C_noret_decl(C_read_2dsyntax_toplevel) C_externexport void C_ccall C_read_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_306) static void C_ccall trf_306(C_word c,C_word *av) C_noret; static void C_ccall trf_306(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_306(t0,t1,t2,t3);} C_noret_decl(trf_324) static void C_ccall trf_324(C_word c,C_word *av) C_noret; static void C_ccall trf_324(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_324(t0,t1);} C_noret_decl(trf_459) static void C_ccall trf_459(C_word c,C_word *av) C_noret; static void C_ccall trf_459(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_459(t0,t1);} C_noret_decl(trf_472) static void C_ccall trf_472(C_word c,C_word *av) C_noret; static void C_ccall trf_472(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_472(t0,t1);} /* k278 */ static void C_ccall f_280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_280,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_283,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k281 in k278 */ static void C_ccall f_283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,5)))){ C_save_and_reclaim((void *)f_283,2,av);} a=C_alloc(25); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate((C_word*)lf[2]+1 /* (set! chicken.read-syntax#current-read-table ...) */,*((C_word*)lf[3]+1)); t5=C_mutate(&lf[4] /* (set! chicken.read-syntax#syntax-setter ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_306,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_371,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_544,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp); /* read-syntax.scm:64: syntax-setter */ f_306(t6,lf[33],C_fix(1),t7);} /* chicken.read-syntax#syntax-setter in k281 in k278 */ static void C_fcall f_306(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_306,4,t1,t2,t3,t4);} a=C_alloc(6); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_308,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word)li0),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* f_308 in chicken.read-syntax#syntax-setter in k281 in k278 */ static void C_ccall f_308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_308,4,av);} a=C_alloc(8); if(C_truep(C_i_symbolp(t2))){ t4=t1; t5=t2; t6=t3; t7=C_i_assq(t5,*((C_word*)lf[5]+1)); if(C_truep(t7)){ t8=t4;{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_setslot(t7,C_fix(1),t6); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_a_i_cons(&a,2,t5,t6); t9=C_a_i_cons(&a,2,t8,*((C_word*)lf[5]+1)); t10=C_mutate((C_word*)lf[5]+1 /* (set! ##sys#read-marks ...) */,t9); t11=t4;{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_321,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); /* read-syntax.scm:51: current-read-table */ t5=*((C_word*)lf[2]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k319 */ static void C_ccall f_321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_321,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_324,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_slot(t2,((C_word*)t0)[5]))){ t4=t3; f_324(t4,C_SCHEME_UNDEFINED);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_367,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* read-syntax.scm:53: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[8]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[8]+1); av2[1]=t4; av2[2]=C_fix(256); av2[3]=C_SCHEME_FALSE; tp(4,av2);}}} /* k322 in k319 */ static void C_fcall f_324(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_324,2,t0,t1);} a=C_alloc(9); t2=C_i_check_char_2(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_fix(C_character_code(((C_word*)t0)[2])); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_333,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t4,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* read-syntax.scm:56: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[7]+1); av2[1]=t5; av2[2]=t4; av2[3]=C_fix(0); av2[4]=C_fix(256); av2[5]=((C_word*)t0)[3]; tp(6,av2);}} /* k331 in k322 in k319 */ static void C_ccall f_333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_333,2,av);} a=C_alloc(8); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_339,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* read-syntax.scm:58: ##sys#check-closure */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=C_slot(((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_set_i_slot(t2,((C_word*)t0)[6],C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k337 in k331 in k322 in k319 */ static void C_ccall f_339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_339,2,av);} a=C_alloc(5); t2=C_slot(((C_word*)t0)[2],((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_350,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* read-syntax.scm:59: wrap */ t5=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k348 in k337 in k331 in k322 in k319 */ static void C_ccall f_350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_350,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_setslot(((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k365 in k319 */ static void C_ccall f_367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_367,2,av);} t2=((C_word*)t0)[2]; f_324(t2,C_i_setslot(((C_word*)t0)[3],((C_word*)t0)[4],t1));} /* k369 in k281 in k278 */ static void C_ccall f_371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_371,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[9]+1 /* (set! chicken.read-syntax#set-read-syntax! ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_375,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_533,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp); /* read-syntax.scm:72: syntax-setter */ f_306(t3,lf[32],C_fix(2),t4);} /* k373 in k369 in k281 in k278 */ static void C_ccall f_375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_375,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[10]+1 /* (set! chicken.read-syntax#set-sharp-read-syntax! ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_379,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_522,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp); /* read-syntax.scm:80: syntax-setter */ f_306(t3,lf[31],C_fix(3),t4);} /* k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_379,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[11]+1 /* (set! chicken.read-syntax#set-parameterized-read-syntax! ...) */,t1); t3=C_mutate((C_word*)lf[12]+1 /* (set! chicken.read-syntax#copy-read-table ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_381,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_434,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* read-syntax.scm:102: scheme#make-vector */ t5=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_fix(301); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* chicken.read-syntax#copy-read-table in k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_381,3,av);} a=C_alloc(4); t3=C_i_check_structure_2(t2,lf[13],lf[14]); t4=C_slot(t2,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_395,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ t6=C_block_size(t4); /* read-syntax.scm:94: ##sys#vector-resize */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[15]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t5; av2[2]=t4; av2[3]=t6; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_395(2,av2);}}} /* k393 in chicken.read-syntax#copy-read-table in k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_395,2,av);} a=C_alloc(5); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(2)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_402,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ t5=C_block_size(t3); /* read-syntax.scm:96: ##sys#vector-resize */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[15]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t4; av2[2]=t3; av2[3]=t5; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_402(2,av2);}}} /* k400 in k393 in chicken.read-syntax#copy-read-table in k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_402,2,av);} a=C_alloc(10); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(3)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_409,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ t5=C_block_size(t3); /* read-syntax.scm:98: ##sys#vector-resize */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[15]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t4; av2[2]=t3; av2[3]=t5; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_record4(&a,4,lf[13],((C_word*)t0)[4],t2,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k407 in k400 in k393 in chicken.read-syntax#copy-read-table in k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_409,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_record4(&a,4,lf[13],((C_word*)t0)[3],((C_word*)t0)[4],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k432 in k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_434,2,av);} a=C_alloc(10); t2=C_mutate(&lf[16] /* (set! chicken.read-syntax#sharp-comma-reader-ctors ...) */,t1); t3=C_mutate((C_word*)lf[17]+1 /* (set! chicken.read-syntax#define-reader-ctor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_436,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t4=*((C_word*)lf[20]+1); t5=C_mutate((C_word*)lf[20]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_445,a[2]=t4,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_520,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* read-syntax.scm:128: chicken.platform#register-feature! */ t7=*((C_word*)lf[27]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[28]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* chicken.read-syntax#define-reader-ctor in k432 in k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_436,4,av);} t4=C_i_check_symbol_2(t2,lf[18]); /* read-syntax.scm:106: chicken.internal#hash-table-set! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[19]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[19]+1); av2[1]=t1; av2[2]=lf[16]; av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* ##sys#user-read-hook in k432 in k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_445(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_445,4,av);} a=C_alloc(4); if(C_truep(C_i_char_equalp(t2,C_make_character(44)))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_455,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* ##sys#read-char/port */ t5=*((C_word*)lf[26]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ /* read-syntax.scm:126: old */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} /* k453 in ##sys#user-read-hook in k432 in k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_455,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_458,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* read-syntax.scm:115: read */ t3=*((C_word*)lf[25]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k456 in k453 in ##sys#user-read-hook in k432 in k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_458,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_459,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li4),tmp=(C_word)a,a+=5,tmp); t4=C_i_nullp(t2); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_472,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(t4)){ t6=t5; f_472(t6,t4);} else{ t6=C_i_listp(t2); t7=t5; f_472(t7,C_i_not(t6));}} /* err in k456 in k453 in ##sys#user-read-hook in k432 in k377 in k373 in k369 in k281 in k278 */ static void C_fcall f_459(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_459,2,t0,t1);} /* read-syntax.scm:116: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[21]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[22]; av2[4]=((C_word*)t0)[3]; tp(5,av2);}} /* k470 in k456 in k453 in ##sys#user-read-hook in k432 in k377 in k373 in k369 in k281 in k278 */ static void C_fcall f_472(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_472,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ /* read-syntax.scm:118: err */ t2=((C_word*)t0)[2]; f_459(t2,((C_word*)t0)[3]);} else{ t2=C_slot(((C_word*)t0)[4],C_fix(0)); t3=t2; t4=C_i_symbolp(t3); if(C_truep(C_i_not(t4))){ /* read-syntax.scm:121: err */ t5=((C_word*)t0)[2]; f_459(t5,((C_word*)t0)[3]);} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_490,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* read-syntax.scm:122: chicken.internal#hash-table-ref */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[24]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[24]+1); av2[1]=t5; av2[2]=lf[16]; av2[3]=t3; tp(4,av2);}}}} /* k488 in k470 in k456 in k453 in ##sys#user-read-hook in k432 in k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_490,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1));{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; C_apply(4,av2);}} else{ /* read-syntax.scm:125: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[21]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[23]; av2[4]=((C_word*)t0)[5]; tp(5,av2);}}} /* k518 in k432 in k377 in k373 in k369 in k281 in k278 */ static void C_ccall f_520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_520,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a521 in k373 in k369 in k281 in k278 */ static void C_ccall f_522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_522,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_524,a[2]=t2,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_524 in a521 in k373 in k369 in k281 in k278 */ static void C_ccall f_524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_524,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_528,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* read-syntax.scm:84: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[30]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[30]+1); av2[1]=t5; av2[2]=t3; tp(3,av2);}} /* k526 */ static void C_ccall f_528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_528,2,av);} /* read-syntax.scm:85: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} /* a532 in k369 in k281 in k278 */ static void C_ccall f_533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_533,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_535,a[2]=t2,a[3]=((C_word)li8),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_535 in a532 in k369 in k281 in k278 */ static void C_ccall f_535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_535,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_539,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* read-syntax.scm:76: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[30]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[30]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k537 */ static void C_ccall f_539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_539,2,av);} /* read-syntax.scm:77: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a543 in k281 in k278 */ static void C_ccall f_544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_544,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_546,a[2]=t2,a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_546 in a543 in k281 in k278 */ static void C_ccall f_546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_546,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_550,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* read-syntax.scm:68: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[30]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[30]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k548 */ static void C_ccall f_550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_550,2,av);} /* read-syntax.scm:69: proc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_read_2dsyntax_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("read-syntax")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_read_2dsyntax_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(210))){ C_save(t1); C_rereclaim2(210*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,34); lf[0]=C_h_intern(&lf[0],11, C_text("read-syntax")); lf[1]=C_h_intern(&lf[1],20, C_text("chicken.read-syntax#")); lf[2]=C_h_intern(&lf[2],38, C_text("chicken.read-syntax#current-read-table")); lf[3]=C_h_intern(&lf[3],24, C_text("##sys#current-read-table")); lf[5]=C_h_intern(&lf[5],16, C_text("##sys#read-marks")); lf[6]=C_h_intern(&lf[6],19, C_text("##sys#check-closure")); lf[7]=C_h_intern(&lf[7],17, C_text("##sys#check-range")); lf[8]=C_h_intern(&lf[8],17, C_text("##sys#make-vector")); lf[9]=C_h_intern(&lf[9],36, C_text("chicken.read-syntax#set-read-syntax!")); lf[10]=C_h_intern(&lf[10],42, C_text("chicken.read-syntax#set-sharp-read-syntax!")); lf[11]=C_h_intern(&lf[11],50, C_text("chicken.read-syntax#set-parameterized-read-syntax!")); lf[12]=C_h_intern(&lf[12],35, C_text("chicken.read-syntax#copy-read-table")); lf[13]=C_h_intern(&lf[13],10, C_text("read-table")); lf[14]=C_h_intern(&lf[14],15, C_text("copy-read-table")); lf[15]=C_h_intern(&lf[15],19, C_text("##sys#vector-resize")); lf[17]=C_h_intern(&lf[17],38, C_text("chicken.read-syntax#define-reader-ctor")); lf[18]=C_h_intern(&lf[18],18, C_text("define-reader-ctor")); lf[19]=C_h_intern(&lf[19],32, C_text("chicken.internal#hash-table-set!")); lf[20]=C_h_intern(&lf[20],20, C_text("##sys#user-read-hook")); lf[21]=C_h_intern(&lf[21],16, C_text("##sys#read-error")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000!invalid sharp-comma external form")); lf[23]=C_decode_literal(C_heaptop,C_text("\376B\000\000!undefined sharp-comma constructor")); lf[24]=C_h_intern(&lf[24],31, C_text("chicken.internal#hash-table-ref")); lf[25]=C_h_intern(&lf[25],11, C_text("scheme#read")); lf[26]=C_h_intern(&lf[26],20, C_text("##sys#read-char/port")); lf[27]=C_h_intern(&lf[27],34, C_text("chicken.platform#register-feature!")); lf[28]=C_h_intern(&lf[28],7, C_text("srfi-10")); lf[29]=C_h_intern(&lf[29],18, C_text("scheme#make-vector")); lf[30]=C_h_intern(&lf[30],17, C_text("##sys#read-char-0")); lf[31]=C_h_intern(&lf[31],30, C_text("set-parameterized-read-syntax!")); lf[32]=C_h_intern(&lf[32],22, C_text("set-sharp-read-syntax!")); lf[33]=C_h_intern(&lf[33],16, C_text("set-read-syntax!")); C_register_lf2(lf,34,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_280,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[37] = { {C_text("f_280:read_2dsyntax_2escm"),(void*)f_280}, {C_text("f_283:read_2dsyntax_2escm"),(void*)f_283}, {C_text("f_306:read_2dsyntax_2escm"),(void*)f_306}, {C_text("f_308:read_2dsyntax_2escm"),(void*)f_308}, {C_text("f_321:read_2dsyntax_2escm"),(void*)f_321}, {C_text("f_324:read_2dsyntax_2escm"),(void*)f_324}, {C_text("f_333:read_2dsyntax_2escm"),(void*)f_333}, {C_text("f_339:read_2dsyntax_2escm"),(void*)f_339}, {C_text("f_350:read_2dsyntax_2escm"),(void*)f_350}, {C_text("f_367:read_2dsyntax_2escm"),(void*)f_367}, {C_text("f_371:read_2dsyntax_2escm"),(void*)f_371}, {C_text("f_375:read_2dsyntax_2escm"),(void*)f_375}, {C_text("f_379:read_2dsyntax_2escm"),(void*)f_379}, {C_text("f_381:read_2dsyntax_2escm"),(void*)f_381}, {C_text("f_395:read_2dsyntax_2escm"),(void*)f_395}, {C_text("f_402:read_2dsyntax_2escm"),(void*)f_402}, {C_text("f_409:read_2dsyntax_2escm"),(void*)f_409}, {C_text("f_434:read_2dsyntax_2escm"),(void*)f_434}, {C_text("f_436:read_2dsyntax_2escm"),(void*)f_436}, {C_text("f_445:read_2dsyntax_2escm"),(void*)f_445}, {C_text("f_455:read_2dsyntax_2escm"),(void*)f_455}, {C_text("f_458:read_2dsyntax_2escm"),(void*)f_458}, {C_text("f_459:read_2dsyntax_2escm"),(void*)f_459}, {C_text("f_472:read_2dsyntax_2escm"),(void*)f_472}, {C_text("f_490:read_2dsyntax_2escm"),(void*)f_490}, {C_text("f_520:read_2dsyntax_2escm"),(void*)f_520}, {C_text("f_522:read_2dsyntax_2escm"),(void*)f_522}, {C_text("f_524:read_2dsyntax_2escm"),(void*)f_524}, {C_text("f_528:read_2dsyntax_2escm"),(void*)f_528}, {C_text("f_533:read_2dsyntax_2escm"),(void*)f_533}, {C_text("f_535:read_2dsyntax_2escm"),(void*)f_535}, {C_text("f_539:read_2dsyntax_2escm"),(void*)f_539}, {C_text("f_544:read_2dsyntax_2escm"),(void*)f_544}, {C_text("f_546:read_2dsyntax_2escm"),(void*)f_546}, {C_text("f_550:read_2dsyntax_2escm"),(void*)f_550}, {C_text("toplevel:read_2dsyntax_2escm"),(void*)C_read_2dsyntax_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.read-syntax#d o|hiding unexported module binding: chicken.read-syntax#define-alias o|hiding unexported module binding: chicken.read-syntax#set-read-mark! o|hiding unexported module binding: chicken.read-syntax#syntax-setter o|hiding unexported module binding: chicken.read-syntax#sharp-comma-reader-ctors o|eliminated procedure checks: 12 (o e)|safe calls: 41 o|safe globals: (chicken.read-syntax#syntax-setter chicken.read-syntax#current-read-table chicken.read-syntax#set-read-mark!) o|inlining procedure: k310 o|contracted procedure: "(read-syntax.scm:50) chicken.read-syntax#set-read-mark!" o|inlining procedure: k290 o|inlining procedure: k290 o|inlining procedure: k310 o|inlining procedure: k407 o|inlining procedure: k407 o|inlining procedure: k447 o|inlining procedure: k479 o|inlining procedure: k479 o|inlining procedure: k447 o|replaced variables: 45 o|removed binding forms: 23 o|substituted constant variable: r408560 o|substituted constant variable: r408560 o|replaced variables: 1 o|removed binding forms: 43 o|removed binding forms: 3 o|simplifications: ((##core#call . 33)) o| call simplifications: o| scheme#char=? o| scheme#read-char o| scheme#null? o| scheme#list? o| scheme#not 2 o| scheme#apply o| ##sys#check-symbol o| ##sys#check-structure o| ##sys#size 3 o| ##sys#make-structure 2 o| scheme#symbol? 2 o| ##sys#check-char o| scheme#char->integer o| ##sys#slot 8 o| scheme#assq o| scheme#cons 2 o| ##sys#setslot 4 o|contracted procedure: k313 o|contracted procedure: k287 o|contracted procedure: k301 o|contracted procedure: k297 o|contracted procedure: k325 o|contracted procedure: k328 o|contracted procedure: k344 o|contracted procedure: k355 o|contracted procedure: k358 o|contracted procedure: k383 o|contracted procedure: k390 o|contracted procedure: k397 o|contracted procedure: k404 o|contracted procedure: k414 o|contracted procedure: k421 o|contracted procedure: k428 o|contracted procedure: k438 o|contracted procedure: k450 o|contracted procedure: k467 o|contracted procedure: k476 o|contracted procedure: k505 o|contracted procedure: k482 o|contracted procedure: k498 o|contracted procedure: k512 o|simplifications: ((let . 4)) o|removed binding forms: 24 o|replaced variables: 11 o|removed binding forms: 4 o|customizable procedures: (chicken.read-syntax#syntax-setter k470 err146 k322) o|calls to known targets: 11 o|fast global references: 5 o|fast global assignments: 2 o|dropping unused closure argument: f_306 */ /* end of file */ �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.memory.representation.import.scm����������������������������������������������0000644�0001750�0001750�00000003144�13502227762�022730� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.memory.representation.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.memory.representation 'lolevel (scheme#list) '((block-ref . chicken.memory.representation#block-ref) (block-set! . chicken.memory.representation#block-set!) (extend-procedure . chicken.memory.representation#extend-procedure) (extended-procedure? . chicken.memory.representation#extended-procedure?) (make-record-instance . chicken.memory.representation#make-record-instance) (mutate-procedure! . chicken.memory.representation#mutate-procedure!) (number-of-bytes . chicken.memory.representation#number-of-bytes) (number-of-slots . chicken.memory.representation#number-of-slots) (object-become! . chicken.memory.representation#object-become!) (object-copy . chicken.memory.representation#object-copy) (procedure-data . chicken.memory.representation#procedure-data) (record->vector . chicken.memory.representation#record->vector) (record-instance-length . chicken.memory.representation#record-instance-length) (record-instance-slot . chicken.memory.representation#record-instance-slot) (record-instance-slot-set! . chicken.memory.representation#record-instance-slot-set!) (record-instance-type . chicken.memory.representation#record-instance-type) (record-instance? . chicken.memory.representation#record-instance?) (set-procedure-data! . chicken.memory.representation#set-procedure-data!) (vector-like? . chicken.memory.representation#vector-like?)) (scheme#list) (scheme#list)) ;; END OF FILE ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/internal.c����������������������������������������������������������������������������0000644�0001750�0001750�00000240050�13502227742�014714� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from internal.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: internal.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file internal.c -emit-import-library chicken.internal unit: internal uses: library */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[44]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,53,54,53,32,105,41,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,115,116,114,105,110,103,45,62,99,45,105,100,101,110,116,105,102,105,101,114,32,115,116,114,41,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,9),40,97,50,51,57,57,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,118,97,108,105,100,45,108,105,98,114,97,114,121,45,115,112,101,99,105,102,105,101,114,63,32,120,41,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,6),40,102,97,105,108,41,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,24),40,108,105,98,114,97,114,121,45,112,97,114,116,45,62,115,116,114,105,110,103,32,120,41}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,19),40,100,111,108,111,111,112,54,48,55,32,108,115,116,32,115,116,114,41,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,108,105,98,114,97,114,121,45,105,100,32,108,105,98,41,0,0,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,109,111,100,117,108,101,45,114,101,113,117,105,114,101,109,101,110,116,32,105,100,41}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,98,115,32,115,101,101,110,32,119,97,114,110,101,100,41,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,64),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,99,104,101,99,107,45,102,111,114,45,109,117,108,116,105,112,108,101,45,98,105,110,100,105,110,103,115,32,98,105,110,100,105,110,103,115,32,102,111,114,109,32,108,111,99,41}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,109,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,109,97,99,114,111,45,115,117,98,115,101,116,32,109,101,48,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,11),40,103,54,55,48,32,115,100,101,102,41,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,54,57,32,103,54,55,54,41,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,102,105,120,117,112,45,109,97,99,114,111,45,101,110,118,105,114,111,110,109,101,110,116,32,115,101,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,115,121,109,98,111,108,32,110,41}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,109,97,107,101,45,104,97,115,104,45,116,97,98,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,114,101,102,32,104,116,32,107,101,121,41}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,98,117,99,107,101,116,41,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,115,101,116,33,32,104,116,32,107,101,121,32,118,97,108,41,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,62),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,117,112,100,97,116,101,33,32,104,116,32,107,101,121,32,117,112,100,116,102,117,110,99,32,118,97,108,117,102,117,110,99,41,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,13),40,103,55,51,57,32,98,117,99,107,101,116,41,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,51,56,32,103,55,52,53,41,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,55,51,51,32,105,41,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,102,111,114,45,101,97,99,104,32,112,32,104,116,41,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,108,101,110,32,98,107,116,32,115,105,122,101,41,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,115,105,122,101,32,104,116,41,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_1009) static void C_ccall f_1009(C_word c,C_word *av) C_noret; C_noret_decl(f_1386) static void C_fcall f_1386(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1408) static void C_ccall f_1408(C_word c,C_word *av) C_noret; C_noret_decl(f_2289) static void C_ccall f_2289(C_word c,C_word *av) C_noret; C_noret_decl(f_2293) static void C_ccall f_2293(C_word c,C_word *av) C_noret; C_noret_decl(f_2301) static void C_fcall f_2301(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2317) static void C_ccall f_2317(C_word c,C_word *av) C_noret; C_noret_decl(f_2327) static void C_fcall f_2327(C_word t0,C_word t1) C_noret; C_noret_decl(f_2333) static void C_ccall f_2333(C_word c,C_word *av) C_noret; C_noret_decl(f_2336) static void C_ccall f_2336(C_word c,C_word *av) C_noret; C_noret_decl(f_2343) static void C_ccall f_2343(C_word c,C_word *av) C_noret; C_noret_decl(f_2376) static void C_ccall f_2376(C_word c,C_word *av) C_noret; C_noret_decl(f_2400) static void C_ccall f_2400(C_word c,C_word *av) C_noret; C_noret_decl(f_2416) static void C_ccall f_2416(C_word c,C_word *av) C_noret; C_noret_decl(f_2419) static void C_fcall f_2419(C_word t0,C_word t1) C_noret; C_noret_decl(f_2462) static void C_fcall f_2462(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2514) static void C_fcall f_2514(C_word t0,C_word t1) C_noret; C_noret_decl(f_2521) static void C_ccall f_2521(C_word c,C_word *av) C_noret; C_noret_decl(f_2525) static void C_ccall f_2525(C_word c,C_word *av) C_noret; C_noret_decl(f_2540) static void C_ccall f_2540(C_word c,C_word *av) C_noret; C_noret_decl(f_2542) static void C_fcall f_2542(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2563) static void C_ccall f_2563(C_word c,C_word *av) C_noret; C_noret_decl(f_2567) static void C_ccall f_2567(C_word c,C_word *av) C_noret; C_noret_decl(f_2577) static void C_ccall f_2577(C_word c,C_word *av) C_noret; C_noret_decl(f_2585) static void C_ccall f_2585(C_word c,C_word *av) C_noret; C_noret_decl(f_2591) static void C_ccall f_2591(C_word c,C_word *av) C_noret; C_noret_decl(f_2597) static void C_fcall f_2597(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2610) static void C_fcall f_2610(C_word t0,C_word t1) C_noret; C_noret_decl(f_2613) static void C_ccall f_2613(C_word c,C_word *av) C_noret; C_noret_decl(f_2630) static void C_ccall f_2630(C_word c,C_word *av) C_noret; C_noret_decl(f_2665) static void C_ccall f_2665(C_word c,C_word *av) C_noret; C_noret_decl(f_2672) static void C_ccall f_2672(C_word c,C_word *av) C_noret; C_noret_decl(f_2679) static void C_ccall f_2679(C_word c,C_word *av) C_noret; C_noret_decl(f_2681) static void C_fcall f_2681(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2702) static void C_ccall f_2702(C_word c,C_word *av) C_noret; C_noret_decl(f_2715) static void C_ccall f_2715(C_word c,C_word *av) C_noret; C_noret_decl(f_2722) static void C_ccall f_2722(C_word c,C_word *av) C_noret; C_noret_decl(f_2723) static void C_fcall f_2723(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2739) static void C_ccall f_2739(C_word c,C_word *av) C_noret; C_noret_decl(f_2762) static void C_ccall f_2762(C_word c,C_word *av) C_noret; C_noret_decl(f_2764) static void C_fcall f_2764(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2774) static void C_ccall f_2774(C_word c,C_word *av) C_noret; C_noret_decl(f_2796) static C_word C_fcall f_2796(C_word t0,C_word t1,C_word t2); C_noret_decl(f_2811) static void C_ccall f_2811(C_word c,C_word *av) C_noret; C_noret_decl(f_2826) static void C_ccall f_2826(C_word c,C_word *av) C_noret; C_noret_decl(f_2836) static C_word C_fcall f_2836(C_word t0,C_word t1); C_noret_decl(f_2882) static void C_ccall f_2882(C_word c,C_word *av) C_noret; C_noret_decl(f_2894) static void C_fcall f_2894(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2943) static void C_ccall f_2943(C_word c,C_word *av) C_noret; C_noret_decl(f_2951) static void C_ccall f_2951(C_word c,C_word *av) C_noret; C_noret_decl(f_2955) static void C_ccall f_2955(C_word c,C_word *av) C_noret; C_noret_decl(f_2958) static void C_ccall f_2958(C_word c,C_word *av) C_noret; C_noret_decl(f_2963) static void C_ccall f_2963(C_word c,C_word *av) C_noret; C_noret_decl(f_2969) static void C_fcall f_2969(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2977) static void C_fcall f_2977(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2998) static void C_ccall f_2998(C_word c,C_word *av) C_noret; C_noret_decl(f_3007) static void C_fcall f_3007(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3017) static void C_ccall f_3017(C_word c,C_word *av) C_noret; C_noret_decl(f_3030) static void C_ccall f_3030(C_word c,C_word *av) C_noret; C_noret_decl(f_3040) static void C_fcall f_3040(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3062) static void C_ccall f_3062(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externexport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1386) static void C_ccall trf_1386(C_word c,C_word *av) C_noret; static void C_ccall trf_1386(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1386(t0,t1,t2);} C_noret_decl(trf_2301) static void C_ccall trf_2301(C_word c,C_word *av) C_noret; static void C_ccall trf_2301(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2301(t0,t1,t2);} C_noret_decl(trf_2327) static void C_ccall trf_2327(C_word c,C_word *av) C_noret; static void C_ccall trf_2327(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2327(t0,t1);} C_noret_decl(trf_2419) static void C_ccall trf_2419(C_word c,C_word *av) C_noret; static void C_ccall trf_2419(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2419(t0,t1);} C_noret_decl(trf_2462) static void C_ccall trf_2462(C_word c,C_word *av) C_noret; static void C_ccall trf_2462(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2462(t0,t1,t2);} C_noret_decl(trf_2514) static void C_ccall trf_2514(C_word c,C_word *av) C_noret; static void C_ccall trf_2514(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2514(t0,t1);} C_noret_decl(trf_2542) static void C_ccall trf_2542(C_word c,C_word *av) C_noret; static void C_ccall trf_2542(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2542(t0,t1,t2,t3);} C_noret_decl(trf_2597) static void C_ccall trf_2597(C_word c,C_word *av) C_noret; static void C_ccall trf_2597(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2597(t0,t1,t2,t3,t4);} C_noret_decl(trf_2610) static void C_ccall trf_2610(C_word c,C_word *av) C_noret; static void C_ccall trf_2610(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2610(t0,t1);} C_noret_decl(trf_2681) static void C_ccall trf_2681(C_word c,C_word *av) C_noret; static void C_ccall trf_2681(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2681(t0,t1,t2);} C_noret_decl(trf_2723) static void C_ccall trf_2723(C_word c,C_word *av) C_noret; static void C_ccall trf_2723(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2723(t0,t1,t2);} C_noret_decl(trf_2764) static void C_ccall trf_2764(C_word c,C_word *av) C_noret; static void C_ccall trf_2764(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2764(t0,t1,t2);} C_noret_decl(trf_2894) static void C_ccall trf_2894(C_word c,C_word *av) C_noret; static void C_ccall trf_2894(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2894(t0,t1,t2);} C_noret_decl(trf_2969) static void C_ccall trf_2969(C_word c,C_word *av) C_noret; static void C_ccall trf_2969(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2969(t0,t1,t2);} C_noret_decl(trf_2977) static void C_ccall trf_2977(C_word c,C_word *av) C_noret; static void C_ccall trf_2977(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2977(t0,t1,t2);} C_noret_decl(trf_3007) static void C_ccall trf_3007(C_word c,C_word *av) C_noret; static void C_ccall trf_3007(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3007(t0,t1,t2);} C_noret_decl(trf_3040) static void C_ccall trf_3040(C_word c,C_word *av) C_noret; static void C_ccall trf_3040(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3040(t0,t1,t2,t3,t4);} /* k1007 */ static void C_ccall f_1009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(65,c,6)))){ C_save_and_reclaim((void *)f_1009,2,av);} a=C_alloc(65); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate((C_word*)lf[2]+1 /* (set! chicken.internal#string->c-identifier ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2289,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[8]+1 /* (set! chicken.internal#valid-library-specifier? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2376,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[9]+1 /* (set! chicken.internal#library-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2416,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[19]+1 /* (set! chicken.internal#module-requirement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2577,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[22]+1 /* (set! chicken.internal#check-for-multiple-bindings ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2591,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[26]+1 /* (set! chicken.internal#macro-subset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2665,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[27]+1 /* (set! chicken.internal#fixup-macro-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2715,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t11=C_SCHEME_FALSE; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_FALSE; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_rand(C_fix(65536)); t16=C_mutate(&lf[31] /* (set! chicken.internal#hash-symbol ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2796,a[2]=t12,a[3]=t14,a[4]=t15,a[5]=((C_word)li17),tmp=(C_word)a,a+=6,tmp)); t17=C_mutate((C_word*)lf[32]+1 /* (set! chicken.internal#make-hash-table ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2811,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[34]+1 /* (set! chicken.internal#hash-table-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2826,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[35]+1 /* (set! chicken.internal#hash-table-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2882,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[36]+1 /* (set! chicken.internal#hash-table-update! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2943,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[37]+1 /* (set! chicken.internal#hash-table-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2963,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[38]+1 /* (set! chicken.internal#hash-table-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3030,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate((C_word*)lf[40]+1 /* (set! chicken.internal#default-imports ...) */,lf[41]); t24=C_mutate((C_word*)lf[42]+1 /* (set! chicken.internal#default-syntax-imports ...) */,lf[43]); t25=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t25; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t25+1)))(2,av2);}} /* loop in chicken.internal#valid-library-specifier? in k1007 */ static void C_fcall f_1386(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_1386,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1408,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t2); /* mini-srfi-1.scm:82: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k1406 in loop in chicken.internal#valid-library-specifier? in k1007 */ static void C_ccall f_1408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1408,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:83: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_1386(t4,((C_word*)t0)[2],t3);}} /* chicken.internal#string->c-identifier in k1007 */ static void C_ccall f_2289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2289,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2293,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* internal.scm:68: chicken.base#open-output-string */ t4=*((C_word*)lf[7]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2291 in chicken.internal#string->c-identifier in k1007 */ static void C_ccall f_2293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2293,2,av);} a=C_alloc(9); t2=t1; t3=C_i_string_length(((C_word*)t0)[2]); t4=t3; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2301,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=((C_word)li0),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_2301(t8,((C_word*)t0)[3],C_fix(0));} /* doloop565 in k2291 in chicken.internal#string->c-identifier in k1007 */ static void C_fcall f_2301(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_2301,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ /* internal.scm:71: chicken.base#get-output-string */ t3=*((C_word*)lf[3]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=C_i_string_ref(((C_word*)t0)[4],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2317,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2327,a[2]=t4,a[3]=t5,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t7=C_u_i_char_alphabeticp(t4); if(C_truep(C_i_not(t7))){ t8=C_u_i_char_numericp(t4); t9=C_i_not(t8); t10=t6; f_2327(t10,(C_truep(t9)?t9:C_eqp(t2,C_fix(0))));} else{ t8=t6; f_2327(t8,C_SCHEME_FALSE);}}} /* k2315 in doloop565 in k2291 in chicken.internal#string->c-identifier in k1007 */ static void C_ccall f_2317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2317,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2301(t3,((C_word*)t0)[4],t2);} /* k2325 in doloop565 in k2291 in chicken.internal#string->c-identifier in k1007 */ static void C_fcall f_2327(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_2327,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_fix(C_character_code(((C_word*)t0)[2])); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2333,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* ##sys#write-char/port */ t5=*((C_word*)lf[6]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=C_make_character(95); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ /* ##sys#write-char/port */ t2=*((C_word*)lf[6]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k2331 in k2325 in doloop565 in k2291 in chicken.internal#string->c-identifier in k1007 */ static void C_ccall f_2333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2333,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2336,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnum_lessp(((C_word*)t0)[4],C_fix(16)))){ /* ##sys#write-char/port */ t3=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(48); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_2336(2,av2);}}} /* k2334 in k2331 in k2325 in doloop565 in k2291 in chicken.internal#string->c-identifier in k1007 */ static void C_ccall f_2336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2336,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2343,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* ##sys#fixnum->string */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2341 in k2334 in k2331 in k2325 in doloop565 in k2291 in chicken.internal#string->c-identifier in k1007 */ static void C_ccall f_2343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2343,2,av);} /* internal.scm:78: scheme#display */ t2=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.internal#valid-library-specifier? in k1007 */ static void C_ccall f_2376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2376,3,av);} a=C_alloc(10); t3=C_i_symbolp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_listp(t2))){ t4=C_i_nullp(t2); if(C_truep(C_i_not(t4))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2400,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp); t6=t1; t7=t5; t8=t2; t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1386,a[2]=t10,a[3]=t7,a[4]=((C_word)li3),tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_1386(t12,t6,t8);} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* a2399 in chicken.internal#valid-library-specifier? in k1007 */ static void C_ccall f_2400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2400,3,av);} t3=C_i_symbolp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?t3:C_fixnump(t2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.internal#library-id in k1007 */ static void C_ccall f_2416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_2416,3,av);} a=C_alloc(17); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2419,a[2]=t2,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp)); t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2462,a[2]=t4,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp)); if(C_truep(C_i_symbolp(t2))){ t9=t2; t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t2))){ /* internal.scm:104: fail */ t9=((C_word*)t4)[1]; f_2419(t9,t1);} else{ t9=C_i_listp(t2); if(C_truep(C_i_not(t9))){ /* internal.scm:105: fail */ t10=((C_word*)t4)[1]; f_2419(t10,t1);} else{ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2514,a[2]=t1,a[3]=t2,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t11=t2; t12=C_i_cdr(t11); if(C_truep(C_i_pairp(t12))){ t13=C_i_cddr(t11); if(C_truep(C_i_nullp(t13))){ t14=C_u_i_car(t11); t15=C_eqp(lf[18],t14); if(C_truep(t15)){ t16=C_u_i_cdr(t11); t17=C_u_i_car(t16); t18=t10; f_2514(t18,C_fixnump(t17));} else{ t16=t10; f_2514(t16,C_SCHEME_FALSE);}} else{ t14=t10; f_2514(t14,C_SCHEME_FALSE);}} else{ t13=t10; f_2514(t13,C_SCHEME_FALSE);}}}}} /* fail in chicken.internal#library-id in k1007 */ static void C_fcall f_2419(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_2419,2,t0,t1);} /* internal.scm:92: ##sys#error */ t2=*((C_word*)lf[10]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=lf[11]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* library-part->string in chicken.internal#library-id in k1007 */ static void C_fcall f_2462(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_2462,3,t0,t1,t2);} if(C_truep(C_i_symbolp(t2))){ /* internal.scm:99: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[12]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} else{ if(C_truep(C_fixnump(t2))){ /* internal.scm:100: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} else{ /* internal.scm:101: fail */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2419(t3,t1);}}} /* k2512 in chicken.internal#library-id in k1007 */ static void C_fcall f_2514(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2514,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2521,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2525,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=C_i_cadr(((C_word*)t0)[3]); /* internal.scm:108: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[13]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} else{ t2=C_i_cdr(((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2540,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[3]; t6=C_u_i_car(t5); /* internal.scm:111: library-part->string */ t7=((C_word*)((C_word*)t0)[4])[1]; f_2462(t7,t4,t6);}} /* k2519 in k2512 in chicken.internal#library-id in k1007 */ static void C_ccall f_2521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2521,2,av);} /* internal.scm:107: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_string_to_symbol(3,av2);}} /* k2523 in k2512 in chicken.internal#library-id in k1007 */ static void C_ccall f_2525(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2525,2,av);} /* internal.scm:108: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[14]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[15]; av2[3]=t1; tp(4,av2);}} /* k2538 in k2512 in chicken.internal#library-id in k1007 */ static void C_ccall f_2540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_2540,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2542,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li7),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_2542(t5,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* doloop607 in k2538 in k2512 in chicken.internal#library-id in k1007 */ static void C_fcall f_2542(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_2542,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ /* internal.scm:114: ##sys#intern-symbol */{ C_word av2[3]; av2[0]=0; av2[1]=t1; av2[2]=t3; C_string_to_symbol(3,av2);}} else{ t4=C_i_cdr(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2563,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2567,a[2]=t6,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_car(t8); /* internal.scm:112: library-part->string */ t10=((C_word*)((C_word*)t0)[3])[1]; f_2462(t10,t7,t9);}} /* k2561 in doloop607 in k2538 in k2512 in chicken.internal#library-id in k1007 */ static void C_ccall f_2563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2563,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_2542(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2565 in doloop607 in k2538 in k2512 in chicken.internal#library-id in k1007 */ static void C_ccall f_2567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2567,2,av);} /* internal.scm:112: scheme#string-append */ t2=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[17]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.internal#module-requirement in k1007 */ static void C_ccall f_2577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_2577,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2585,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(1)); /* internal.scm:121: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=t4; av2[3]=lf[21]; tp(4,av2);}} /* k2583 in chicken.internal#module-requirement in k1007 */ static void C_ccall f_2585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2585,2,av);} /* internal.scm:120: ##sys#string->symbol */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[20]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* chicken.internal#check-for-multiple-bindings in k1007 */ static void C_ccall f_2591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_2591,5,av);} a=C_alloc(8); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2597,a[2]=t6,a[3]=t3,a[4]=t4,a[5]=((C_word)li10),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_2597(t8,t1,t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* loop in chicken.internal#check-for-multiple-bindings in k1007 */ static void C_fcall f_2597(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_2597,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=C_i_nullp(t2); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2610,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t3,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); t7=C_i_caar(t2); if(C_truep(C_i_memq(t7,t3))){ t8=t2; t9=C_u_i_car(t8); t10=C_u_i_car(t9); t11=C_i_memq(t10,t4); t12=t6; f_2610(t12,C_i_not(t11));} else{ t8=t6; f_2610(t8,C_SCHEME_FALSE);}}} /* k2608 in loop in chicken.internal#check-for-multiple-bindings in k1007 */ static void C_fcall f_2610(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_2610,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2613,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2630,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* internal.scm:133: scheme#string-append */ t4=*((C_word*)lf[16]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=lf[24]; av2[3]=((C_word*)t0)[8]; av2[4]=lf[25]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_i_caar(((C_word*)t0)[2]); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[6]); /* internal.scm:137: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_2597(t6,((C_word*)t0)[5],t3,t5,((C_word*)t0)[3]);}} /* k2611 in k2608 in loop in chicken.internal#check-for-multiple-bindings in k1007 */ static void C_ccall f_2613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2613,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_i_caar(((C_word*)t0)[2]); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[3]); /* internal.scm:136: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_2597(t6,((C_word*)t0)[5],t3,((C_word*)t0)[6],t5);} /* k2628 in k2608 in loop in chicken.internal#check-for-multiple-bindings in k1007 */ static void C_ccall f_2630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2630,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_u_i_car(t3); /* internal.scm:132: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[23]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t4; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} /* chicken.internal#macro-subset in k1007 */ static void C_ccall f_2665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,2)))){ C_save_and_reclaim((void*)f_2665,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2672,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2679,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* internal.scm:142: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t8; tp(2,av2);}} /* k2670 in chicken.internal#macro-subset in k1007 */ static void C_ccall f_2672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2672,2,av);} /* internal.scm:146: fixup-macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[27]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k2677 in chicken.internal#macro-subset in k1007 */ static void C_ccall f_2679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2679,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2681,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li12),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_2681(t5,((C_word*)t0)[3],t1);} /* loop in k2677 in chicken.internal#macro-subset in k1007 */ static void C_fcall f_2681(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_2681,3,t0,t1,t2);} a=C_alloc(4); t3=C_i_nullp(t2); t4=(C_truep(t3)?t3:C_eqp(t2,((C_word*)t0)[2])); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t2); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2702,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=t2; t9=C_u_i_cdr(t8); /* internal.scm:145: loop */ t11=t7; t12=t9; t1=t11; t2=t12; goto loop;}} /* k2700 in loop in k2677 in chicken.internal#macro-subset in k1007 */ static void C_ccall f_2702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2702,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.internal#fixup-macro-environment in k1007 */ static void C_ccall f_2715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_2715,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2722,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t5)){ /* internal.scm:149: ##sys#append */ t7=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t2; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=t2; f_2722(2,av2);}}} /* k2720 in chicken.internal#fixup-macro-environment in k1007 */ static void C_ccall f_2722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_2722,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2723,a[2]=t2,a[3]=((C_word)li14),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2]; t5=C_i_check_list_2(t4,lf[30]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2762,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2764,a[2]=t8,a[3]=t3,a[4]=((C_word)li15),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_2764(t10,t6,t4);} /* g670 in k2720 in chicken.internal#fixup-macro-environment in k1007 */ static void C_fcall f_2723(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_2723,3,t0,t1,t2);} a=C_alloc(4); t3=C_i_cdr(t2); if(C_truep(C_i_pairp(t3))){ t4=t2; t5=C_u_i_cdr(t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2739,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_i_cadr(t2); if(C_truep(C_i_nullp(t7))){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_i_set_car(t5,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=t2; t9=C_u_i_cdr(t8); t10=C_u_i_car(t9); /* internal.scm:157: ##sys#append */ t11=*((C_word*)lf[29]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t6; av2[2]=t10; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2737 in g670 in k2720 in chicken.internal#fixup-macro-environment in k1007 */ static void C_ccall f_2739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2739,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_set_car(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2760 in k2720 in chicken.internal#fixup-macro-environment in k1007 */ static void C_ccall f_2762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2762,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop669 in k2720 in chicken.internal#fixup-macro-environment in k1007 */ static void C_fcall f_2764(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2764,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2774,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* internal.scm:150: g670 */ t5=((C_word*)t0)[3]; f_2723(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2772 in for-each-loop669 in k2720 in chicken.internal#fixup-macro-environment in k1007 */ static void C_ccall f_2774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2774,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2764(t3,((C_word*)t0)[4],t2);} /* chicken.internal#hash-symbol in k1007 */ static C_word C_fcall f_2796(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check;{} t3=C_eqp(t1,((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t3)){ t4=C_fixnum_modulo(((C_word*)((C_word*)t0)[3])[1],t2); return(t4);} else{ t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t5=C_slot(t1,C_fix(1)); t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_u_i_string_hash(t5,((C_word*)t0)[4])); t7=C_fixnum_modulo(((C_word*)((C_word*)t0)[3])[1],t2); return(t7);}} /* chicken.internal#make-hash-table in k1007 */ static void C_ccall f_2811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,3)))){ C_save_and_reclaim((void*)f_2811,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; if(C_truep(C_i_nullp(t2))){ /* internal.scm:178: scheme#make-vector */ t3=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=C_fix(301); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=C_i_car(t2); /* internal.scm:178: scheme#make-vector */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* chicken.internal#hash-table-ref in k1007 */ static void C_ccall f_2826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2826,4,av);} a=C_alloc(4); t4=C_block_size(t2); t5=( /* internal.scm:181: hash-symbol */ f_2796(lf[31],t3,t4) ); t6=C_slot(t2,t5); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2836,a[2]=t3,a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=( f_2836(t7,t6) ); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* loop in chicken.internal#hash-table-ref in k1007 */ static C_word C_fcall f_2836(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check; loop:{} t2=C_eqp(C_SCHEME_END_OF_LIST,t1); if(C_truep(C_i_not(t2))){ t3=C_slot(t1,C_fix(0)); t4=C_slot(t3,C_fix(0)); t5=C_eqp(((C_word*)t0)[2],t4); if(C_truep(t5)){ t6=C_slot(t1,C_fix(0)); return(C_slot(t6,C_fix(1)));} else{ t6=C_slot(t1,C_fix(1)); t8=t6; t1=t8; goto loop;}} else{ return(C_SCHEME_FALSE);}} /* chicken.internal#hash-table-set! in k1007 */ static void C_ccall f_2882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_2882,5,av);} a=C_alloc(11); t5=C_block_size(t2); t6=( /* internal.scm:188: hash-symbol */ f_2796(lf[31],t3,t5) ); t7=t6; t8=C_slot(t2,t7); t9=t8; t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2894,a[2]=t3,a[3]=t4,a[4]=t9,a[5]=t2,a[6]=t7,a[7]=t11,a[8]=((C_word)li21),tmp=(C_word)a,a+=9,tmp)); t13=((C_word*)t11)[1]; f_2894(t13,t1,t9);} /* loop in chicken.internal#hash-table-set! in k1007 */ static void C_fcall f_2894(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2894,3,t0,t1,t2);} a=C_alloc(6); t3=C_eqp(C_SCHEME_END_OF_LIST,t2); if(C_truep(t3)){ t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_i_setslot(((C_word*)t0)[5],((C_word*)t0)[6],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=C_slot(t2,C_fix(0)); t5=C_slot(t4,C_fix(0)); t6=C_eqp(((C_word*)t0)[2],t5); if(C_truep(t6)){ t7=C_slot(t2,C_fix(0)); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_i_setslot(t7,C_fix(1),((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_slot(t2,C_fix(1)); /* internal.scm:195: loop */ t9=t1; t10=t7; t1=t9; t2=t10; goto loop;}}} /* chicken.internal#hash-table-update! in k1007 */ static void C_ccall f_2943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2943,6,av);} a=C_alloc(10); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2951,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2955,a[2]=t4,a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* internal.scm:198: hash-table-ref */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[34]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[34]+1); av2[1]=t7; av2[2]=t2; av2[3]=t3; tp(4,av2);}} /* k2949 in chicken.internal#hash-table-update! in k1007 */ static void C_ccall f_2951(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2951,2,av);} /* internal.scm:198: hash-table-set! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[35]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; tp(5,av2);}} /* k2953 in chicken.internal#hash-table-update! in k1007 */ static void C_ccall f_2955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2955,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2958,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t1)){ t3=t1; /* internal.scm:198: updtfunc */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ /* internal.scm:198: valufunc */ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}} /* k2956 in k2953 in chicken.internal#hash-table-update! in k1007 */ static void C_ccall f_2958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2958,2,av);} /* internal.scm:198: updtfunc */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* chicken.internal#hash-table-for-each in k1007 */ static void C_ccall f_2963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2963,4,av);} a=C_alloc(9); t4=C_block_size(t3); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2969,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=t6,a[6]=((C_word)li26),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_2969(t8,t1,C_fix(0));} /* doloop733 in chicken.internal#hash-table-for-each in k1007 */ static void C_fcall f_2969(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_2969,3,t0,t1,t2);} a=C_alloc(16); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2977,a[2]=((C_word*)t0)[3],a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp); t4=C_slot(((C_word*)t0)[4],t2); t5=C_i_check_list_2(t4,lf[30]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2998,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3007,a[2]=t8,a[3]=t3,a[4]=((C_word)li25),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_3007(t10,t6,t4);}} /* g739 in doloop733 in chicken.internal#hash-table-for-each in k1007 */ static void C_fcall f_2977(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_2977,3,t0,t1,t2);} t3=C_slot(t2,C_fix(0)); t4=C_slot(t2,C_fix(1)); /* internal.scm:204: p */ t5=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} /* k2996 in doloop733 in chicken.internal#hash-table-for-each in k1007 */ static void C_ccall f_2998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2998,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2969(t3,((C_word*)t0)[4],t2);} /* for-each-loop738 in doloop733 in chicken.internal#hash-table-for-each in k1007 */ static void C_fcall f_3007(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3007,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3017,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* internal.scm:204: g739 */ t5=((C_word*)t0)[3]; f_2977(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3015 in for-each-loop738 in doloop733 in chicken.internal#hash-table-for-each in k1007 */ static void C_ccall f_3017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3017,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_3007(t3,((C_word*)t0)[4],t2);} /* chicken.internal#hash-table-size in k1007 */ static void C_ccall f_3030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_3030,3,av);} a=C_alloc(7); t3=C_block_size(t2); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3040,a[2]=t5,a[3]=t2,a[4]=((C_word)li28),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_3040(t7,t1,t3,C_fix(0),C_fix(0));} /* loop in chicken.internal#hash-table-size in k1007 */ static void C_fcall f_3040(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3040,5,t0,t1,t2,t3,t4);} a=C_alloc(7); t5=C_eqp(t3,t2); if(C_truep(t5)){ t6=t4; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_fixnum_plus(t3,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3062,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,a[6]=t7,tmp=(C_word)a,a+=7,tmp); t9=C_slot(((C_word*)t0)[3],t3); /* internal.scm:211: ##sys#length */ t10=*((C_word*)lf[39]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}} /* k3060 in loop in chicken.internal#hash-table-size in k1007 */ static void C_ccall f_3062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3062,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); /* internal.scm:211: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3040(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_internal_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("internal")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_internal_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(305))){ C_save(t1); C_rereclaim2(305*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,44); lf[0]=C_h_intern(&lf[0],8, C_text("internal")); lf[1]=C_h_intern(&lf[1],17, C_text("chicken.internal#")); lf[2]=C_h_intern(&lf[2],37, C_text("chicken.internal#string->c-identifier")); lf[3]=C_h_intern(&lf[3],30, C_text("chicken.base#get-output-string")); lf[4]=C_h_intern(&lf[4],14, C_text("scheme#display")); lf[5]=C_h_intern(&lf[5],20, C_text("##sys#fixnum->string")); lf[6]=C_h_intern(&lf[6],21, C_text("##sys#write-char/port")); lf[7]=C_h_intern(&lf[7],31, C_text("chicken.base#open-output-string")); lf[8]=C_h_intern(&lf[8],41, C_text("chicken.internal#valid-library-specifier\077")); lf[9]=C_h_intern(&lf[9],27, C_text("chicken.internal#library-id")); lf[10]=C_h_intern(&lf[10],11, C_text("##sys#error")); lf[11]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031invalid library specifier")); lf[12]=C_h_intern(&lf[12],20, C_text("##sys#symbol->string")); lf[13]=C_h_intern(&lf[13],20, C_text("##sys#number->string")); lf[14]=C_h_intern(&lf[14],19, C_text("##sys#string-append")); lf[15]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005srfi-")); lf[16]=C_h_intern(&lf[16],20, C_text("scheme#string-append")); lf[17]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[18]=C_h_intern(&lf[18],4, C_text("srfi")); lf[19]=C_h_intern(&lf[19],35, C_text("chicken.internal#module-requirement")); lf[20]=C_h_intern(&lf[20],20, C_text("##sys#string->symbol")); lf[21]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001#")); lf[22]=C_h_intern(&lf[22],44, C_text("chicken.internal#check-for-multiple-bindings")); lf[23]=C_h_intern(&lf[23],10, C_text("##sys#warn")); lf[24]=C_decode_literal(C_heaptop,C_text("\376B\000\000!variable bound multiple times in ")); lf[25]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012 construct")); lf[26]=C_h_intern(&lf[26],29, C_text("chicken.internal#macro-subset")); lf[27]=C_h_intern(&lf[27],40, C_text("chicken.internal#fixup-macro-environment")); lf[28]=C_h_intern(&lf[28],23, C_text("##sys#macro-environment")); lf[29]=C_h_intern(&lf[29],12, C_text("##sys#append")); lf[30]=C_h_intern(&lf[30],8, C_text("for-each")); lf[32]=C_h_intern(&lf[32],32, C_text("chicken.internal#make-hash-table")); lf[33]=C_h_intern(&lf[33],18, C_text("scheme#make-vector")); lf[34]=C_h_intern(&lf[34],31, C_text("chicken.internal#hash-table-ref")); lf[35]=C_h_intern(&lf[35],32, C_text("chicken.internal#hash-table-set!")); lf[36]=C_h_intern(&lf[36],35, C_text("chicken.internal#hash-table-update!")); lf[37]=C_h_intern(&lf[37],36, C_text("chicken.internal#hash-table-for-each")); lf[38]=C_h_intern(&lf[38],32, C_text("chicken.internal#hash-table-size")); lf[39]=C_h_intern(&lf[39],12, C_text("##sys#length")); lf[40]=C_h_intern(&lf[40],32, C_text("chicken.internal#default-imports")); lf[41]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001scheme\376\003\000\000\002\376\001\000\000\014\001chicken.base\376\003\000\000\002\376\001\000\000\016\001chicken.syntax\376\377\016")); lf[42]=C_h_intern(&lf[42],39, C_text("chicken.internal#default-syntax-imports")); lf[43]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001scheme\376\003\000\000\002\376\001\000\000\014\001chicken.base\376\003\000\000\002\376\001\000\000\016\001chicken.syntax\376\377\016")); C_register_lf2(lf,44,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1009,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[63] = { {C_text("f_1009:internal_2escm"),(void*)f_1009}, {C_text("f_1386:internal_2escm"),(void*)f_1386}, {C_text("f_1408:internal_2escm"),(void*)f_1408}, {C_text("f_2289:internal_2escm"),(void*)f_2289}, {C_text("f_2293:internal_2escm"),(void*)f_2293}, {C_text("f_2301:internal_2escm"),(void*)f_2301}, {C_text("f_2317:internal_2escm"),(void*)f_2317}, {C_text("f_2327:internal_2escm"),(void*)f_2327}, {C_text("f_2333:internal_2escm"),(void*)f_2333}, {C_text("f_2336:internal_2escm"),(void*)f_2336}, {C_text("f_2343:internal_2escm"),(void*)f_2343}, {C_text("f_2376:internal_2escm"),(void*)f_2376}, {C_text("f_2400:internal_2escm"),(void*)f_2400}, {C_text("f_2416:internal_2escm"),(void*)f_2416}, {C_text("f_2419:internal_2escm"),(void*)f_2419}, {C_text("f_2462:internal_2escm"),(void*)f_2462}, {C_text("f_2514:internal_2escm"),(void*)f_2514}, {C_text("f_2521:internal_2escm"),(void*)f_2521}, {C_text("f_2525:internal_2escm"),(void*)f_2525}, {C_text("f_2540:internal_2escm"),(void*)f_2540}, {C_text("f_2542:internal_2escm"),(void*)f_2542}, {C_text("f_2563:internal_2escm"),(void*)f_2563}, {C_text("f_2567:internal_2escm"),(void*)f_2567}, {C_text("f_2577:internal_2escm"),(void*)f_2577}, {C_text("f_2585:internal_2escm"),(void*)f_2585}, {C_text("f_2591:internal_2escm"),(void*)f_2591}, {C_text("f_2597:internal_2escm"),(void*)f_2597}, {C_text("f_2610:internal_2escm"),(void*)f_2610}, {C_text("f_2613:internal_2escm"),(void*)f_2613}, {C_text("f_2630:internal_2escm"),(void*)f_2630}, {C_text("f_2665:internal_2escm"),(void*)f_2665}, {C_text("f_2672:internal_2escm"),(void*)f_2672}, {C_text("f_2679:internal_2escm"),(void*)f_2679}, {C_text("f_2681:internal_2escm"),(void*)f_2681}, {C_text("f_2702:internal_2escm"),(void*)f_2702}, {C_text("f_2715:internal_2escm"),(void*)f_2715}, {C_text("f_2722:internal_2escm"),(void*)f_2722}, {C_text("f_2723:internal_2escm"),(void*)f_2723}, {C_text("f_2739:internal_2escm"),(void*)f_2739}, {C_text("f_2762:internal_2escm"),(void*)f_2762}, {C_text("f_2764:internal_2escm"),(void*)f_2764}, {C_text("f_2774:internal_2escm"),(void*)f_2774}, {C_text("f_2796:internal_2escm"),(void*)f_2796}, {C_text("f_2811:internal_2escm"),(void*)f_2811}, {C_text("f_2826:internal_2escm"),(void*)f_2826}, {C_text("f_2836:internal_2escm"),(void*)f_2836}, {C_text("f_2882:internal_2escm"),(void*)f_2882}, {C_text("f_2894:internal_2escm"),(void*)f_2894}, {C_text("f_2943:internal_2escm"),(void*)f_2943}, {C_text("f_2951:internal_2escm"),(void*)f_2951}, {C_text("f_2955:internal_2escm"),(void*)f_2955}, {C_text("f_2958:internal_2escm"),(void*)f_2958}, {C_text("f_2963:internal_2escm"),(void*)f_2963}, {C_text("f_2969:internal_2escm"),(void*)f_2969}, {C_text("f_2977:internal_2escm"),(void*)f_2977}, {C_text("f_2998:internal_2escm"),(void*)f_2998}, {C_text("f_3007:internal_2escm"),(void*)f_3007}, {C_text("f_3017:internal_2escm"),(void*)f_3017}, {C_text("f_3030:internal_2escm"),(void*)f_3030}, {C_text("f_3040:internal_2escm"),(void*)f_3040}, {C_text("f_3062:internal_2escm"),(void*)f_3062}, {C_text("toplevel:internal_2escm"),(void*)C_internal_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.internal#d o|hiding unexported module binding: chicken.internal#define-alias o|hiding unexported module binding: chicken.internal#partition o|hiding unexported module binding: chicken.internal#span o|hiding unexported module binding: chicken.internal#take o|hiding unexported module binding: chicken.internal#drop o|hiding unexported module binding: chicken.internal#split-at o|hiding unexported module binding: chicken.internal#append-map o|hiding unexported module binding: chicken.internal#every o|hiding unexported module binding: chicken.internal#any o|hiding unexported module binding: chicken.internal#cons* o|hiding unexported module binding: chicken.internal#concatenate o|hiding unexported module binding: chicken.internal#delete o|hiding unexported module binding: chicken.internal#first o|hiding unexported module binding: chicken.internal#second o|hiding unexported module binding: chicken.internal#third o|hiding unexported module binding: chicken.internal#fourth o|hiding unexported module binding: chicken.internal#fifth o|hiding unexported module binding: chicken.internal#delete-duplicates o|hiding unexported module binding: chicken.internal#alist-cons o|hiding unexported module binding: chicken.internal#filter o|hiding unexported module binding: chicken.internal#filter-map o|hiding unexported module binding: chicken.internal#remove o|hiding unexported module binding: chicken.internal#unzip1 o|hiding unexported module binding: chicken.internal#last o|hiding unexported module binding: chicken.internal#list-index o|hiding unexported module binding: chicken.internal#lset-adjoin/eq? o|hiding unexported module binding: chicken.internal#lset-difference/eq? o|hiding unexported module binding: chicken.internal#lset-union/eq? o|hiding unexported module binding: chicken.internal#lset-intersection/eq? o|hiding unexported module binding: chicken.internal#list-tabulate o|hiding unexported module binding: chicken.internal#lset<=/eq? o|hiding unexported module binding: chicken.internal#lset=/eq? o|hiding unexported module binding: chicken.internal#length+ o|hiding unexported module binding: chicken.internal#find o|hiding unexported module binding: chicken.internal#find-tail o|hiding unexported module binding: chicken.internal#iota o|hiding unexported module binding: chicken.internal#make-list o|hiding unexported module binding: chicken.internal#posq o|hiding unexported module binding: chicken.internal#posv o|hiding unexported module binding: chicken.internal#hash-symbol S|applied compiler syntax: S| ##sys#for-each 1 S| scheme#for-each 1 S| chicken.base#foldl 3 S| scheme#map 3 S| chicken.base#foldr 3 o|eliminated procedure checks: 50 o|specializations: o| 2 (scheme#caar (pair pair *)) o| 2 (scheme#cadr (pair * pair)) o| 1 (scheme#number->string fixnum fixnum) o| 1 (scheme#eqv? * *) o| 3 (##sys#check-list (or pair list) *) o| 26 (scheme#cdr pair) o| 10 (scheme#car pair) (o e)|safe calls: 289 o|safe globals: (chicken.internal#default-syntax-imports chicken.internal#default-imports chicken.internal#hash-table-size chicken.internal#hash-table-for-each chicken.internal#hash-table-update! chicken.internal#hash-table-set! chicken.internal#hash-table-ref chicken.internal#make-hash-table chicken.internal#hash-symbol chicken.internal#fixup-macro-environment chicken.internal#macro-subset chicken.internal#check-for-multiple-bindings chicken.internal#module-requirement chicken.internal#library-id chicken.internal#valid-library-specifier? chicken.internal#string->c-identifier chicken.internal#posv chicken.internal#posq chicken.internal#make-list chicken.internal#iota chicken.internal#find-tail chicken.internal#find chicken.internal#length+ chicken.internal#lset=/eq? chicken.internal#lset<=/eq? chicken.internal#list-tabulate chicken.internal#lset-intersection/eq? chicken.internal#lset-union/eq? chicken.internal#lset-difference/eq? chicken.internal#lset-adjoin/eq? chicken.internal#list-index chicken.internal#last chicken.internal#unzip1 chicken.internal#remove chicken.internal#filter-map chicken.internal#filter chicken.internal#alist-cons chicken.internal#delete-duplicates chicken.internal#fifth chicken.internal#fourth chicken.internal#third chicken.internal#second chicken.internal#first chicken.internal#delete chicken.internal#concatenate chicken.internal#cons* chicken.internal#any chicken.internal#every chicken.internal#append-map chicken.internal#split-at chicken.internal#drop chicken.internal#take chicken.internal#span chicken.internal#partition) o|removed side-effect free assignment to unused variable: chicken.internal#partition o|removed side-effect free assignment to unused variable: chicken.internal#span o|removed side-effect free assignment to unused variable: chicken.internal#drop o|removed side-effect free assignment to unused variable: chicken.internal#split-at o|removed side-effect free assignment to unused variable: chicken.internal#append-map o|inlining procedure: k1391 o|inlining procedure: k1391 o|inlining procedure: k1422 o|inlining procedure: k1422 o|removed side-effect free assignment to unused variable: chicken.internal#cons* o|removed side-effect free assignment to unused variable: chicken.internal#concatenate o|removed side-effect free assignment to unused variable: chicken.internal#first o|removed side-effect free assignment to unused variable: chicken.internal#second o|removed side-effect free assignment to unused variable: chicken.internal#third o|removed side-effect free assignment to unused variable: chicken.internal#fourth o|removed side-effect free assignment to unused variable: chicken.internal#fifth o|removed side-effect free assignment to unused variable: chicken.internal#delete-duplicates o|removed side-effect free assignment to unused variable: chicken.internal#alist-cons o|inlining procedure: k1639 o|inlining procedure: k1639 o|inlining procedure: k1631 o|inlining procedure: k1631 o|removed side-effect free assignment to unused variable: chicken.internal#filter-map o|removed side-effect free assignment to unused variable: chicken.internal#remove o|removed side-effect free assignment to unused variable: chicken.internal#unzip1 o|removed side-effect free assignment to unused variable: chicken.internal#last o|removed side-effect free assignment to unused variable: chicken.internal#list-index o|removed side-effect free assignment to unused variable: chicken.internal#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: chicken.internal#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.internal#lset-union/eq? o|removed side-effect free assignment to unused variable: chicken.internal#lset-intersection/eq? o|inlining procedure: k2030 o|inlining procedure: k2030 o|removed side-effect free assignment to unused variable: chicken.internal#lset<=/eq? o|removed side-effect free assignment to unused variable: chicken.internal#lset=/eq? o|removed side-effect free assignment to unused variable: chicken.internal#length+ o|removed side-effect free assignment to unused variable: chicken.internal#find o|removed side-effect free assignment to unused variable: chicken.internal#find-tail o|removed side-effect free assignment to unused variable: chicken.internal#iota o|removed side-effect free assignment to unused variable: chicken.internal#make-list o|removed side-effect free assignment to unused variable: chicken.internal#posq o|removed side-effect free assignment to unused variable: chicken.internal#posv o|inlining procedure: k2303 o|inlining procedure: k2303 o|substituted constant variable: a2345 o|inlining procedure: k2361 o|inlining procedure: k2361 o|inlining procedure: k2381 o|inlining procedure: k2381 o|inlining procedure: k2390 o|inlining procedure: k2405 o|inlining procedure: k2405 o|inlining procedure: k2390 o|inlining procedure: k2464 o|inlining procedure: k2464 o|inlining procedure: k2485 o|inlining procedure: k2485 o|inlining procedure: k2500 o|inlining procedure: k2500 o|inlining procedure: k2544 o|inlining procedure: k2544 o|contracted procedure: "(internal.scm:106) srfi?596" o|inlining procedure: k2427 o|inlining procedure: k2439 o|inlining procedure: k2439 o|inlining procedure: k2427 o|inlining procedure: k2602 o|inlining procedure: k2602 o|inlining procedure: k2683 o|inlining procedure: k2683 o|inlining procedure: k2725 o|inlining procedure: k2737 o|inlining procedure: k2737 o|inlining procedure: k2725 o|inlining procedure: k2766 o|inlining procedure: k2766 o|inlining procedure: k2798 o|inlining procedure: k2798 o|inlining procedure: k2813 o|inlining procedure: k2813 o|inlining procedure: k2838 o|inlining procedure: k2838 o|inlining procedure: k2896 o|inlining procedure: k2896 o|inlining procedure: k2956 o|inlining procedure: k2956 o|inlining procedure: k2971 o|inlining procedure: k2971 o|inlining procedure: k3009 o|inlining procedure: k3009 o|inlining procedure: k3042 o|inlining procedure: k3042 o|replaced variables: 170 o|removed binding forms: 86 o|removed side-effect free assignment to unused variable: chicken.internal#any o|removed side-effect free assignment to unused variable: chicken.internal#filter o|removed side-effect free assignment to unused variable: chicken.internal#list-tabulate o|contracted procedure: "(internal.scm:88) chicken.internal#every" o|substituted constant variable: r23913088 o|substituted constant variable: r24403099 o|substituted constant variable: r24283100 o|substituted constant variable: r26843103 o|substituted constant variable: r28143115 o|substituted constant variable: r28143115 o|substituted constant variable: r28393126 o|replaced variables: 6 o|removed binding forms: 187 o|removed binding forms: 17 o|simplifications: ((if . 3) (##core#call . 107)) o| call simplifications: o| ##sys#size o| ##sys#setslot 2 o| ##sys#check-list 2 o| scheme#set-car! 2 o| scheme#memq 2 o| scheme#caar 3 o| scheme#cons 5 o| ##sys#slot 21 o| scheme#pair? 4 o| scheme#cddr o| scheme#eq? 7 o| scheme#cdr 4 o| scheme#cadr 2 o| ##sys#intern-symbol 2 o| scheme#list? 2 o| scheme#null? 11 o| scheme#car 5 o| scheme#symbol? 4 o| chicken.base#fixnum? 3 o| scheme#string-length o| chicken.fixnum#fx>= 2 o| scheme#string-ref o| scheme#char-alphabetic? o| scheme#char-numeric? o| scheme#not 7 o| chicken.fixnum#fx= 2 o| scheme#char->integer o| chicken.fixnum#fx< o| scheme#write-char 3 o| chicken.fixnum#fx+ 4 o|contracted procedure: k2294 o|contracted procedure: k2306 o|contracted procedure: k2312 o|contracted procedure: k2322 o|contracted procedure: k2328 o|contracted procedure: k2346 o|contracted procedure: k2372 o|contracted procedure: k2355 o|contracted procedure: k2368 o|contracted procedure: k2358 o|contracted procedure: k2378 o|contracted procedure: k2387 o|contracted procedure: k2412 o|contracted procedure: k2393 o|contracted procedure: k2402 o|contracted procedure: k1388 o|contracted procedure: k1397 o|contracted procedure: k1410 o|contracted procedure: k2467 o|contracted procedure: k2476 o|contracted procedure: k2488 o|contracted procedure: k2494 o|contracted procedure: k2573 o|contracted procedure: k2503 o|contracted procedure: k2527 o|contracted procedure: k2534 o|contracted procedure: k2547 o|contracted procedure: k2557 o|contracted procedure: k2458 o|contracted procedure: k2430 o|contracted procedure: k2454 o|contracted procedure: k2436 o|contracted procedure: k2442 o|contracted procedure: k2587 o|contracted procedure: k2599 o|contracted procedure: k2624 o|contracted procedure: k2620 o|contracted procedure: k2644 o|contracted procedure: k2640 o|contracted procedure: k2661 o|contracted procedure: k2647 o|contracted procedure: k2654 o|contracted procedure: k2708 o|contracted procedure: k2667 o|contracted procedure: k2686 o|contracted procedure: k2689 o|contracted procedure: k2696 o|contracted procedure: k2789 o|contracted procedure: k2717 o|contracted procedure: k2754 o|contracted procedure: k2728 o|contracted procedure: k2750 o|contracted procedure: k2740 o|contracted procedure: k2757 o|contracted procedure: k2769 o|contracted procedure: k2779 o|contracted procedure: k2783 o|contracted procedure: k2801 o|contracted procedure: k2807 o|contracted procedure: k2819 o|contracted procedure: k2813 o|contracted procedure: k2832 o|contracted procedure: k2873 o|contracted procedure: k2841 o|contracted procedure: k2869 o|contracted procedure: k2865 o|contracted procedure: k2847 o|contracted procedure: k2854 o|contracted procedure: k2861 o|contracted procedure: k2887 o|contracted procedure: k2899 o|contracted procedure: k2910 o|contracted procedure: k2906 o|contracted procedure: k2938 o|contracted procedure: k2934 o|contracted procedure: k2916 o|contracted procedure: k2923 o|contracted procedure: k2930 o|contracted procedure: k2974 o|contracted procedure: k2983 o|contracted procedure: k2987 o|contracted procedure: k2990 o|contracted procedure: k2993 o|contracted procedure: k3003 o|contracted procedure: k3012 o|contracted procedure: k3022 o|contracted procedure: k3026 o|contracted procedure: k3036 o|contracted procedure: k3045 o|contracted procedure: k3052 o|contracted procedure: k3056 o|contracted procedure: k3064 o|simplifications: ((let . 22)) o|removed binding forms: 92 o|replaced variables: 18 o|simplifications: ((if . 2)) o|removed binding forms: 11 o|direct leaf routine/allocation: chicken.internal#hash-symbol 0 o|direct leaf routine/allocation: loop708 0 o|contracted procedure: "(internal.scm:181) k2877" o|converted assignments to bindings: (loop708) o|contracted procedure: "(internal.scm:188) k2884" o|simplifications: ((let . 1)) o|removed binding forms: 2 o|customizable procedures: (loop758 g739746 for-each-loop738749 doloop733734 loop718 g670677 for-each-loop669680 loop648 k2608 loop621 k2512 library-part->string597 doloop607608 fail595 loop197 k2325 doloop565566) o|calls to known targets: 38 o|identified direct recursive calls: f_2681 1 o|identified direct recursive calls: f_2836 1 o|identified direct recursive calls: f_2894 1 o|fast box initializations: 12 o|fast global references: 2 o|fast global assignments: 1 */ /* end of file */ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/srfi-4.c������������������������������������������������������������������������������0000644�0001750�0001750�00001273127�13502227777�014230� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from srfi-4.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: srfi-4.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file srfi-4.c -emit-import-library srfi-4 unit: srfi-4 uses: expand extras library */ #include "chicken.h" #define C_copy_subvector(to, from, start_to, start_from, bytes) \ (C_memcpy((C_char *)C_data_pointer(to) + C_unfix(start_to), (C_char *)C_data_pointer(from) + C_unfix(start_from), C_unfix(bytes)), \ C_SCHEME_UNDEFINED) static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[277]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,117,56,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,115,56,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,117,49,54,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,115,49,54,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,117,51,50,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,115,51,50,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,117,54,52,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,115,54,52,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,102,51,50,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,102,54,52,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,117,56,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,115,56,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,117,49,54,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,115,49,54,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,117,51,50,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,115,51,50,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,117,54,52,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,115,54,52,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,102,51,50,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,102,54,52,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,16),40,101,120,116,45,102,114,101,101,32,98,118,50,50,49,41}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,32),40,97,108,108,111,99,32,108,111,99,32,101,108,101,109,45,115,105,122,101,32,101,108,101,109,115,32,101,120,116,63,41}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,32),40,115,114,102,105,45,52,35,114,101,108,101,97,115,101,45,110,117,109,98,101,114,45,118,101,99,116,111,114,32,118,41}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,50,54,56,41,0,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,33),40,115,114,102,105,45,52,35,109,97,107,101,45,117,56,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,51,48,50,41,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,33),40,115,114,102,105,45,52,35,109,97,107,101,45,115,56,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,51,51,54,41,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,117,49,54,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,51,55,48,41,0,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,115,49,54,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,48,52,41,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,117,51,50,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,51,56,41,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,117,54,52,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,55,50,41,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,115,51,50,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,53,48,54,41,0,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,115,54,52,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,53,52,49,41,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,102,51,50,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,53,55,55,41,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,102,54,52,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,49,50,32,112,32,105,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,108,105,115,116,45,62,117,56,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,50,53,32,112,32,105,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,108,105,115,116,45,62,115,56,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,51,56,32,112,32,105,41,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,117,49,54,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,53,49,32,112,32,105,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,115,49,54,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,54,52,32,112,32,105,41,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,117,51,50,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,55,55,32,112,32,105,41,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,115,51,50,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,57,48,32,112,32,105,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,117,54,52,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,55,48,51,32,112,32,105,41,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,115,54,52,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,55,49,54,32,112,32,105,41,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,102,51,50,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,55,50,57,32,112,32,105,41,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,102,54,52,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,22),40,115,114,102,105,45,52,35,117,56,118,101,99,116,111,114,32,46,32,120,115,41,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,22),40,115,114,102,105,45,52,35,115,56,118,101,99,116,111,114,32,46,32,120,115,41,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,117,49,54,118,101,99,116,111,114,32,46,32,120,115,41,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,115,49,54,118,101,99,116,111,114,32,46,32,120,115,41,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,117,51,50,118,101,99,116,111,114,32,46,32,120,115,41,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,115,51,50,118,101,99,116,111,114,32,46,32,120,115,41,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,117,54,52,118,101,99,116,111,114,32,46,32,120,115,41,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,115,54,52,118,101,99,116,111,114,32,46,32,120,115,41,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,102,51,50,118,101,99,116,111,114,32,46,32,120,115,41,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,102,54,52,118,101,99,116,111,114,32,46,32,120,115,41,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,25),40,115,114,102,105,45,52,35,117,56,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,25),40,115,114,102,105,45,52,35,115,56,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,117,49,54,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,115,49,54,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,117,51,50,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,115,51,50,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,117,54,52,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,115,54,52,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,102,51,50,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,102,54,52,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,20),40,115,114,102,105,45,52,35,117,56,118,101,99,116,111,114,63,32,120,41,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,20),40,115,114,102,105,45,52,35,115,56,118,101,99,116,111,114,63,32,120,41,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,117,49,54,118,101,99,116,111,114,63,32,120,41,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,115,49,54,118,101,99,116,111,114,63,32,120,41,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,117,51,50,118,101,99,116,111,114,63,32,120,41,0,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,115,51,50,118,101,99,116,111,114,63,32,120,41,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,117,54,52,118,101,99,116,111,114,63,32,120,41,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,115,54,52,118,101,99,116,111,114,63,32,120,41,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,102,51,50,118,101,99,116,111,114,63,32,120,41,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,102,54,52,118,101,99,116,111,114,63,32,120,41,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,10),40,102,95,51,54,49,52,32,118,41,0,0,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,112,97,99,107,45,99,111,112,121,32,116,97,103,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,12),40,102,95,51,54,51,50,32,115,116,114,41,0,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,117,110,112,97,99,107,32,116,97,103,32,115,122,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,12),40,102,95,51,54,54,50,32,115,116,114,41,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,117,110,112,97,99,107,45,99,111,112,121,32,116,97,103,32,115,122,32,108,111,99,41,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,16),40,102,53,50,56,48,32,118,56,54,56,53,50,55,57,41}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,16),40,102,53,50,55,51,32,118,56,54,56,53,50,55,50,41}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,16),40,102,53,50,54,54,32,118,56,54,56,53,50,54,53,41}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,16),40,102,53,50,53,57,32,118,56,54,56,53,50,53,56,41}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,16),40,102,53,50,53,50,32,118,56,54,56,53,50,53,49,41}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,16),40,102,53,50,52,53,32,118,56,54,56,53,50,52,52,41}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,16),40,102,53,50,51,56,32,118,56,54,56,53,50,51,55,41}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,16),40,102,53,50,51,49,32,118,56,54,56,53,50,51,48,41}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,16),40,102,53,50,50,52,32,118,56,54,56,53,50,50,51,41}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,16),40,102,53,50,49,55,32,118,56,54,56,53,50,49,54,41}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,8),40,103,57,53,53,32,99,41}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,117,115,101,114,45,114,101,97,100,45,104,111,111,107,32,99,104,97,114,32,112,111,114,116,41}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,117,115,101,114,45,112,114,105,110,116,45,104,111,111,107,32,120,32,114,101,97,100,97,98,108,101,32,112,111,114,116,41,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,38),40,115,114,102,105,45,52,35,115,117,98,110,118,101,99,116,111,114,32,118,32,116,32,101,115,32,102,114,111,109,32,116,111,32,108,111,99,41,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,30),40,115,114,102,105,45,52,35,115,117,98,117,56,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,117,49,54,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,117,51,50,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,117,54,52,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,30),40,115,114,102,105,45,52,35,115,117,98,115,56,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,115,49,54,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,115,51,50,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,115,54,52,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,102,51,50,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,102,54,52,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,32),40,115,114,102,105,45,52,35,119,114,105,116,101,45,117,56,118,101,99,116,111,114,32,118,32,46,32,114,101,115,116,41}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,37),40,115,114,102,105,45,52,35,114,101,97,100,45,117,56,118,101,99,116,111,114,33,32,110,32,100,101,115,116,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,114,101,97,100,45,117,56,118,101,99,116,111,114,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,11),40,97,52,52,52,55,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,11),40,97,52,52,53,48,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,11),40,97,52,52,53,51,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,11),40,97,52,52,53,54,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,11),40,97,52,52,53,57,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,11),40,97,52,52,54,50,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,11),40,97,52,52,54,53,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,11),40,97,52,52,54,56,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,11),40,97,52,52,55,49,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,11),40,97,52,52,55,52,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; #define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub222(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word bv=(C_word )(C_a0); C_free((void *)C_block_item(bv, 1)); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub216(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; size_t bytes=(size_t )(size_t)C_num_to_uint64(C_a0); if (bytes > C_HEADER_SIZE_MASK) C_return(C_SCHEME_FALSE); C_word *buf = (C_word *)C_malloc(bytes + sizeof(C_header)); if(buf == NULL) C_return(C_SCHEME_FALSE); C_block_header_init(buf, C_make_header(C_BYTEVECTOR_TYPE, bytes)); C_return(buf); C_ret: #undef return return C_r;} C_noret_decl(f5217) static void C_ccall f5217(C_word c,C_word *av) C_noret; C_noret_decl(f5224) static void C_ccall f5224(C_word c,C_word *av) C_noret; C_noret_decl(f5231) static void C_ccall f5231(C_word c,C_word *av) C_noret; C_noret_decl(f5238) static void C_ccall f5238(C_word c,C_word *av) C_noret; C_noret_decl(f5245) static void C_ccall f5245(C_word c,C_word *av) C_noret; C_noret_decl(f5252) static void C_ccall f5252(C_word c,C_word *av) C_noret; C_noret_decl(f5259) static void C_ccall f5259(C_word c,C_word *av) C_noret; C_noret_decl(f5266) static void C_ccall f5266(C_word c,C_word *av) C_noret; C_noret_decl(f5273) static void C_ccall f5273(C_word c,C_word *av) C_noret; C_noret_decl(f5280) static void C_ccall f5280(C_word c,C_word *av) C_noret; C_noret_decl(f_1506) static void C_ccall f_1506(C_word c,C_word *av) C_noret; C_noret_decl(f_1509) static void C_ccall f_1509(C_word c,C_word *av) C_noret; C_noret_decl(f_1512) static void C_ccall f_1512(C_word c,C_word *av) C_noret; C_noret_decl(f_1514) static void C_ccall f_1514(C_word c,C_word *av) C_noret; C_noret_decl(f_1517) static void C_ccall f_1517(C_word c,C_word *av) C_noret; C_noret_decl(f_1520) static void C_ccall f_1520(C_word c,C_word *av) C_noret; C_noret_decl(f_1523) static void C_ccall f_1523(C_word c,C_word *av) C_noret; C_noret_decl(f_1526) static void C_ccall f_1526(C_word c,C_word *av) C_noret; C_noret_decl(f_1529) static void C_ccall f_1529(C_word c,C_word *av) C_noret; C_noret_decl(f_1532) static void C_ccall f_1532(C_word c,C_word *av) C_noret; C_noret_decl(f_1535) static void C_ccall f_1535(C_word c,C_word *av) C_noret; C_noret_decl(f_1538) static void C_ccall f_1538(C_word c,C_word *av) C_noret; C_noret_decl(f_1541) static void C_ccall f_1541(C_word c,C_word *av) C_noret; C_noret_decl(f_1544) static void C_ccall f_1544(C_word c,C_word *av) C_noret; C_noret_decl(f_1547) static void C_ccall f_1547(C_word c,C_word *av) C_noret; C_noret_decl(f_1550) static void C_ccall f_1550(C_word c,C_word *av) C_noret; C_noret_decl(f_1553) static void C_ccall f_1553(C_word c,C_word *av) C_noret; C_noret_decl(f_1556) static void C_ccall f_1556(C_word c,C_word *av) C_noret; C_noret_decl(f_1559) static void C_ccall f_1559(C_word c,C_word *av) C_noret; C_noret_decl(f_1562) static void C_ccall f_1562(C_word c,C_word *av) C_noret; C_noret_decl(f_1565) static void C_ccall f_1565(C_word c,C_word *av) C_noret; C_noret_decl(f_1568) static void C_ccall f_1568(C_word c,C_word *av) C_noret; C_noret_decl(f_1571) static void C_ccall f_1571(C_word c,C_word *av) C_noret; C_noret_decl(f_1576) static void C_ccall f_1576(C_word c,C_word *av) C_noret; C_noret_decl(f_1580) static void C_ccall f_1580(C_word c,C_word *av) C_noret; C_noret_decl(f_1584) static void C_ccall f_1584(C_word c,C_word *av) C_noret; C_noret_decl(f_1588) static void C_ccall f_1588(C_word c,C_word *av) C_noret; C_noret_decl(f_1592) static void C_ccall f_1592(C_word c,C_word *av) C_noret; C_noret_decl(f_1596) static void C_ccall f_1596(C_word c,C_word *av) C_noret; C_noret_decl(f_1600) static void C_ccall f_1600(C_word c,C_word *av) C_noret; C_noret_decl(f_1604) static void C_ccall f_1604(C_word c,C_word *av) C_noret; C_noret_decl(f_1608) static void C_ccall f_1608(C_word c,C_word *av) C_noret; C_noret_decl(f_1612) static void C_ccall f_1612(C_word c,C_word *av) C_noret; C_noret_decl(f_1620) static void C_ccall f_1620(C_word c,C_word *av) C_noret; C_noret_decl(f_1622) static void C_fcall f_1622(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1626) static void C_ccall f_1626(C_word c,C_word *av) C_noret; C_noret_decl(f_1629) static void C_ccall f_1629(C_word c,C_word *av) C_noret; C_noret_decl(f_1635) static void C_ccall f_1635(C_word c,C_word *av) C_noret; C_noret_decl(f_1650) static void C_ccall f_1650(C_word c,C_word *av) C_noret; C_noret_decl(f_1661) static void C_ccall f_1661(C_word c,C_word *av) C_noret; C_noret_decl(f_1668) static void C_ccall f_1668(C_word c,C_word *av) C_noret; C_noret_decl(f_1676) static void C_ccall f_1676(C_word c,C_word *av) C_noret; C_noret_decl(f_1701) static void C_ccall f_1701(C_word c,C_word *av) C_noret; C_noret_decl(f_1712) static void C_ccall f_1712(C_word c,C_word *av) C_noret; C_noret_decl(f_1731) static void C_ccall f_1731(C_word c,C_word *av) C_noret; C_noret_decl(f_1736) static C_word C_fcall f_1736(C_word t0,C_word t1); C_noret_decl(f_1754) static void C_ccall f_1754(C_word c,C_word *av) C_noret; C_noret_decl(f_1792) static void C_ccall f_1792(C_word c,C_word *av) C_noret; C_noret_decl(f_1817) static void C_ccall f_1817(C_word c,C_word *av) C_noret; C_noret_decl(f_1828) static void C_ccall f_1828(C_word c,C_word *av) C_noret; C_noret_decl(f_1847) static void C_ccall f_1847(C_word c,C_word *av) C_noret; C_noret_decl(f_1852) static C_word C_fcall f_1852(C_word t0,C_word t1); C_noret_decl(f_1870) static void C_ccall f_1870(C_word c,C_word *av) C_noret; C_noret_decl(f_1908) static void C_ccall f_1908(C_word c,C_word *av) C_noret; C_noret_decl(f_1933) static void C_ccall f_1933(C_word c,C_word *av) C_noret; C_noret_decl(f_1944) static void C_ccall f_1944(C_word c,C_word *av) C_noret; C_noret_decl(f_1963) static void C_ccall f_1963(C_word c,C_word *av) C_noret; C_noret_decl(f_1968) static C_word C_fcall f_1968(C_word t0,C_word t1); C_noret_decl(f_1986) static void C_ccall f_1986(C_word c,C_word *av) C_noret; C_noret_decl(f_2024) static void C_ccall f_2024(C_word c,C_word *av) C_noret; C_noret_decl(f_2049) static void C_ccall f_2049(C_word c,C_word *av) C_noret; C_noret_decl(f_2060) static void C_ccall f_2060(C_word c,C_word *av) C_noret; C_noret_decl(f_2089) static void C_ccall f_2089(C_word c,C_word *av) C_noret; C_noret_decl(f_2094) static C_word C_fcall f_2094(C_word t0,C_word t1); C_noret_decl(f_2112) static void C_ccall f_2112(C_word c,C_word *av) C_noret; C_noret_decl(f_2150) static void C_ccall f_2150(C_word c,C_word *av) C_noret; C_noret_decl(f_2175) static void C_ccall f_2175(C_word c,C_word *av) C_noret; C_noret_decl(f_2186) static void C_ccall f_2186(C_word c,C_word *av) C_noret; C_noret_decl(f_2205) static void C_ccall f_2205(C_word c,C_word *av) C_noret; C_noret_decl(f_2210) static C_word C_fcall f_2210(C_word t0,C_word t1); C_noret_decl(f_2228) static void C_ccall f_2228(C_word c,C_word *av) C_noret; C_noret_decl(f_2266) static void C_ccall f_2266(C_word c,C_word *av) C_noret; C_noret_decl(f_2291) static void C_ccall f_2291(C_word c,C_word *av) C_noret; C_noret_decl(f_2302) static void C_ccall f_2302(C_word c,C_word *av) C_noret; C_noret_decl(f_2321) static void C_ccall f_2321(C_word c,C_word *av) C_noret; C_noret_decl(f_2326) static C_word C_fcall f_2326(C_word t0,C_word t1); C_noret_decl(f_2344) static void C_ccall f_2344(C_word c,C_word *av) C_noret; C_noret_decl(f_2382) static void C_ccall f_2382(C_word c,C_word *av) C_noret; C_noret_decl(f_2407) static void C_ccall f_2407(C_word c,C_word *av) C_noret; C_noret_decl(f_2418) static void C_ccall f_2418(C_word c,C_word *av) C_noret; C_noret_decl(f_2447) static void C_ccall f_2447(C_word c,C_word *av) C_noret; C_noret_decl(f_2452) static C_word C_fcall f_2452(C_word t0,C_word t1); C_noret_decl(f_2470) static void C_ccall f_2470(C_word c,C_word *av) C_noret; C_noret_decl(f_2508) static void C_ccall f_2508(C_word c,C_word *av) C_noret; C_noret_decl(f_2533) static void C_ccall f_2533(C_word c,C_word *av) C_noret; C_noret_decl(f_2544) static void C_ccall f_2544(C_word c,C_word *av) C_noret; C_noret_decl(f_2573) static void C_ccall f_2573(C_word c,C_word *av) C_noret; C_noret_decl(f_2578) static C_word C_fcall f_2578(C_word t0,C_word t1); C_noret_decl(f_2596) static void C_ccall f_2596(C_word c,C_word *av) C_noret; C_noret_decl(f_2634) static void C_ccall f_2634(C_word c,C_word *av) C_noret; C_noret_decl(f_2659) static void C_ccall f_2659(C_word c,C_word *av) C_noret; C_noret_decl(f_2680) static void C_ccall f_2680(C_word c,C_word *av) C_noret; C_noret_decl(f_2683) static void C_fcall f_2683(C_word t0,C_word t1) C_noret; C_noret_decl(f_2688) static C_word C_fcall f_2688(C_word t0,C_word t1); C_noret_decl(f_2707) static void C_ccall f_2707(C_word c,C_word *av) C_noret; C_noret_decl(f_2745) static void C_ccall f_2745(C_word c,C_word *av) C_noret; C_noret_decl(f_2770) static void C_ccall f_2770(C_word c,C_word *av) C_noret; C_noret_decl(f_2791) static void C_ccall f_2791(C_word c,C_word *av) C_noret; C_noret_decl(f_2794) static void C_fcall f_2794(C_word t0,C_word t1) C_noret; C_noret_decl(f_2799) static C_word C_fcall f_2799(C_word t0,C_word t1); C_noret_decl(f_2818) static void C_ccall f_2818(C_word c,C_word *av) C_noret; C_noret_decl(f_2856) static void C_ccall f_2856(C_word c,C_word *av) C_noret; C_noret_decl(f_2863) static void C_ccall f_2863(C_word c,C_word *av) C_noret; C_noret_decl(f_2868) static void C_fcall f_2868(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2875) static void C_ccall f_2875(C_word c,C_word *av) C_noret; C_noret_decl(f_2892) static void C_ccall f_2892(C_word c,C_word *av) C_noret; C_noret_decl(f_2899) static void C_ccall f_2899(C_word c,C_word *av) C_noret; C_noret_decl(f_2904) static void C_fcall f_2904(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2911) static void C_ccall f_2911(C_word c,C_word *av) C_noret; C_noret_decl(f_2928) static void C_ccall f_2928(C_word c,C_word *av) C_noret; C_noret_decl(f_2935) static void C_ccall f_2935(C_word c,C_word *av) C_noret; C_noret_decl(f_2940) static void C_fcall f_2940(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2947) static void C_ccall f_2947(C_word c,C_word *av) C_noret; C_noret_decl(f_2964) static void C_ccall f_2964(C_word c,C_word *av) C_noret; C_noret_decl(f_2971) static void C_ccall f_2971(C_word c,C_word *av) C_noret; C_noret_decl(f_2976) static void C_fcall f_2976(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2983) static void C_ccall f_2983(C_word c,C_word *av) C_noret; C_noret_decl(f_3000) static void C_ccall f_3000(C_word c,C_word *av) C_noret; C_noret_decl(f_3007) static void C_ccall f_3007(C_word c,C_word *av) C_noret; C_noret_decl(f_3012) static void C_fcall f_3012(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3019) static void C_ccall f_3019(C_word c,C_word *av) C_noret; C_noret_decl(f_3036) static void C_ccall f_3036(C_word c,C_word *av) C_noret; C_noret_decl(f_3043) static void C_ccall f_3043(C_word c,C_word *av) C_noret; C_noret_decl(f_3048) static void C_fcall f_3048(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3055) static void C_ccall f_3055(C_word c,C_word *av) C_noret; C_noret_decl(f_3072) static void C_ccall f_3072(C_word c,C_word *av) C_noret; C_noret_decl(f_3079) static void C_ccall f_3079(C_word c,C_word *av) C_noret; C_noret_decl(f_3084) static void C_fcall f_3084(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3091) static void C_ccall f_3091(C_word c,C_word *av) C_noret; C_noret_decl(f_3108) static void C_ccall f_3108(C_word c,C_word *av) C_noret; C_noret_decl(f_3115) static void C_ccall f_3115(C_word c,C_word *av) C_noret; C_noret_decl(f_3120) static void C_fcall f_3120(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3127) static void C_ccall f_3127(C_word c,C_word *av) C_noret; C_noret_decl(f_3144) static void C_ccall f_3144(C_word c,C_word *av) C_noret; C_noret_decl(f_3151) static void C_ccall f_3151(C_word c,C_word *av) C_noret; C_noret_decl(f_3156) static void C_fcall f_3156(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3163) static void C_ccall f_3163(C_word c,C_word *av) C_noret; C_noret_decl(f_3180) static void C_ccall f_3180(C_word c,C_word *av) C_noret; C_noret_decl(f_3187) static void C_ccall f_3187(C_word c,C_word *av) C_noret; C_noret_decl(f_3192) static void C_fcall f_3192(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3199) static void C_ccall f_3199(C_word c,C_word *av) C_noret; C_noret_decl(f_3216) static void C_ccall f_3216(C_word c,C_word *av) C_noret; C_noret_decl(f_3222) static void C_ccall f_3222(C_word c,C_word *av) C_noret; C_noret_decl(f_3228) static void C_ccall f_3228(C_word c,C_word *av) C_noret; C_noret_decl(f_3234) static void C_ccall f_3234(C_word c,C_word *av) C_noret; C_noret_decl(f_3240) static void C_ccall f_3240(C_word c,C_word *av) C_noret; C_noret_decl(f_3246) static void C_ccall f_3246(C_word c,C_word *av) C_noret; C_noret_decl(f_3252) static void C_ccall f_3252(C_word c,C_word *av) C_noret; C_noret_decl(f_3258) static void C_ccall f_3258(C_word c,C_word *av) C_noret; C_noret_decl(f_3264) static void C_ccall f_3264(C_word c,C_word *av) C_noret; C_noret_decl(f_3270) static void C_ccall f_3270(C_word c,C_word *av) C_noret; C_noret_decl(f_3276) static void C_ccall f_3276(C_word c,C_word *av) C_noret; C_noret_decl(f_3285) static void C_fcall f_3285(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3300) static void C_ccall f_3300(C_word c,C_word *av) C_noret; C_noret_decl(f_3306) static void C_ccall f_3306(C_word c,C_word *av) C_noret; C_noret_decl(f_3315) static void C_fcall f_3315(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3330) static void C_ccall f_3330(C_word c,C_word *av) C_noret; C_noret_decl(f_3336) static void C_ccall f_3336(C_word c,C_word *av) C_noret; C_noret_decl(f_3345) static void C_fcall f_3345(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3360) static void C_ccall f_3360(C_word c,C_word *av) C_noret; C_noret_decl(f_3366) static void C_ccall f_3366(C_word c,C_word *av) C_noret; C_noret_decl(f_3375) static void C_fcall f_3375(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3390) static void C_ccall f_3390(C_word c,C_word *av) C_noret; C_noret_decl(f_3396) static void C_ccall f_3396(C_word c,C_word *av) C_noret; C_noret_decl(f_3405) static void C_fcall f_3405(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3419) static void C_ccall f_3419(C_word c,C_word *av) C_noret; C_noret_decl(f_3425) static void C_ccall f_3425(C_word c,C_word *av) C_noret; C_noret_decl(f_3434) static void C_fcall f_3434(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3448) static void C_ccall f_3448(C_word c,C_word *av) C_noret; C_noret_decl(f_3454) static void C_ccall f_3454(C_word c,C_word *av) C_noret; C_noret_decl(f_3463) static void C_fcall f_3463(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3477) static void C_ccall f_3477(C_word c,C_word *av) C_noret; C_noret_decl(f_3483) static void C_ccall f_3483(C_word c,C_word *av) C_noret; C_noret_decl(f_3492) static void C_fcall f_3492(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3506) static void C_ccall f_3506(C_word c,C_word *av) C_noret; C_noret_decl(f_3512) static void C_ccall f_3512(C_word c,C_word *av) C_noret; C_noret_decl(f_3521) static void C_fcall f_3521(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3535) static void C_ccall f_3535(C_word c,C_word *av) C_noret; C_noret_decl(f_3541) static void C_ccall f_3541(C_word c,C_word *av) C_noret; C_noret_decl(f_3550) static void C_fcall f_3550(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3564) static void C_ccall f_3564(C_word c,C_word *av) C_noret; C_noret_decl(f_3570) static void C_ccall f_3570(C_word c,C_word *av) C_noret; C_noret_decl(f_3573) static void C_ccall f_3573(C_word c,C_word *av) C_noret; C_noret_decl(f_3576) static void C_ccall f_3576(C_word c,C_word *av) C_noret; C_noret_decl(f_3579) static void C_ccall f_3579(C_word c,C_word *av) C_noret; C_noret_decl(f_3582) static void C_ccall f_3582(C_word c,C_word *av) C_noret; C_noret_decl(f_3585) static void C_ccall f_3585(C_word c,C_word *av) C_noret; C_noret_decl(f_3588) static void C_ccall f_3588(C_word c,C_word *av) C_noret; C_noret_decl(f_3591) static void C_ccall f_3591(C_word c,C_word *av) C_noret; C_noret_decl(f_3594) static void C_ccall f_3594(C_word c,C_word *av) C_noret; C_noret_decl(f_3597) static void C_ccall f_3597(C_word c,C_word *av) C_noret; C_noret_decl(f_3612) static void C_fcall f_3612(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3614) static void C_ccall f_3614(C_word c,C_word *av) C_noret; C_noret_decl(f_3624) static void C_ccall f_3624(C_word c,C_word *av) C_noret; C_noret_decl(f_3630) static void C_fcall f_3630(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3632) static void C_ccall f_3632(C_word c,C_word *av) C_noret; C_noret_decl(f_3648) static void C_fcall f_3648(C_word t0,C_word t1) C_noret; C_noret_decl(f_3660) static void C_fcall f_3660(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3662) static void C_ccall f_3662(C_word c,C_word *av) C_noret; C_noret_decl(f_3672) static void C_ccall f_3672(C_word c,C_word *av) C_noret; C_noret_decl(f_3681) static void C_fcall f_3681(C_word t0,C_word t1) C_noret; C_noret_decl(f_3736) static void C_ccall f_3736(C_word c,C_word *av) C_noret; C_noret_decl(f_3740) static void C_ccall f_3740(C_word c,C_word *av) C_noret; C_noret_decl(f_3744) static void C_ccall f_3744(C_word c,C_word *av) C_noret; C_noret_decl(f_3748) static void C_ccall f_3748(C_word c,C_word *av) C_noret; C_noret_decl(f_3752) static void C_ccall f_3752(C_word c,C_word *av) C_noret; C_noret_decl(f_3756) static void C_ccall f_3756(C_word c,C_word *av) C_noret; C_noret_decl(f_3760) static void C_ccall f_3760(C_word c,C_word *av) C_noret; C_noret_decl(f_3764) static void C_ccall f_3764(C_word c,C_word *av) C_noret; C_noret_decl(f_3768) static void C_ccall f_3768(C_word c,C_word *av) C_noret; C_noret_decl(f_3772) static void C_ccall f_3772(C_word c,C_word *av) C_noret; C_noret_decl(f_3776) static void C_ccall f_3776(C_word c,C_word *av) C_noret; C_noret_decl(f_3780) static void C_ccall f_3780(C_word c,C_word *av) C_noret; C_noret_decl(f_3784) static void C_ccall f_3784(C_word c,C_word *av) C_noret; C_noret_decl(f_3788) static void C_ccall f_3788(C_word c,C_word *av) C_noret; C_noret_decl(f_3792) static void C_ccall f_3792(C_word c,C_word *av) C_noret; C_noret_decl(f_3796) static void C_ccall f_3796(C_word c,C_word *av) C_noret; C_noret_decl(f_3800) static void C_ccall f_3800(C_word c,C_word *av) C_noret; C_noret_decl(f_3804) static void C_ccall f_3804(C_word c,C_word *av) C_noret; C_noret_decl(f_3808) static void C_ccall f_3808(C_word c,C_word *av) C_noret; C_noret_decl(f_3812) static void C_ccall f_3812(C_word c,C_word *av) C_noret; C_noret_decl(f_3816) static void C_ccall f_3816(C_word c,C_word *av) C_noret; C_noret_decl(f_3820) static void C_ccall f_3820(C_word c,C_word *av) C_noret; C_noret_decl(f_3824) static void C_ccall f_3824(C_word c,C_word *av) C_noret; C_noret_decl(f_3828) static void C_ccall f_3828(C_word c,C_word *av) C_noret; C_noret_decl(f_3832) static void C_ccall f_3832(C_word c,C_word *av) C_noret; C_noret_decl(f_3836) static void C_ccall f_3836(C_word c,C_word *av) C_noret; C_noret_decl(f_3840) static void C_ccall f_3840(C_word c,C_word *av) C_noret; C_noret_decl(f_3844) static void C_ccall f_3844(C_word c,C_word *av) C_noret; C_noret_decl(f_3848) static void C_ccall f_3848(C_word c,C_word *av) C_noret; C_noret_decl(f_3852) static void C_ccall f_3852(C_word c,C_word *av) C_noret; C_noret_decl(f_3857) static void C_ccall f_3857(C_word c,C_word *av) C_noret; C_noret_decl(f_3866) static void C_ccall f_3866(C_word c,C_word *av) C_noret; C_noret_decl(f_3885) static void C_fcall f_3885(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3896) static void C_ccall f_3896(C_word c,C_word *av) C_noret; C_noret_decl(f_3917) static void C_ccall f_3917(C_word c,C_word *av) C_noret; C_noret_decl(f_3929) static void C_ccall f_3929(C_word c,C_word *av) C_noret; C_noret_decl(f_3932) static void C_ccall f_3932(C_word c,C_word *av) C_noret; C_noret_decl(f_3942) static void C_ccall f_3942(C_word c,C_word *av) C_noret; C_noret_decl(f_3991) static void C_fcall f_3991(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_4006) static void C_ccall f_4006(C_word c,C_word *av) C_noret; C_noret_decl(f_4025) static void C_ccall f_4025(C_word c,C_word *av) C_noret; C_noret_decl(f_4030) static void C_ccall f_4030(C_word c,C_word *av) C_noret; C_noret_decl(f_4049) static void C_ccall f_4049(C_word c,C_word *av) C_noret; C_noret_decl(f_4055) static void C_ccall f_4055(C_word c,C_word *av) C_noret; C_noret_decl(f_4076) static void C_ccall f_4076(C_word c,C_word *av) C_noret; C_noret_decl(f_4082) static void C_ccall f_4082(C_word c,C_word *av) C_noret; C_noret_decl(f_4088) static void C_ccall f_4088(C_word c,C_word *av) C_noret; C_noret_decl(f_4094) static void C_ccall f_4094(C_word c,C_word *av) C_noret; C_noret_decl(f_4100) static void C_ccall f_4100(C_word c,C_word *av) C_noret; C_noret_decl(f_4106) static void C_ccall f_4106(C_word c,C_word *av) C_noret; C_noret_decl(f_4112) static void C_ccall f_4112(C_word c,C_word *av) C_noret; C_noret_decl(f_4118) static void C_ccall f_4118(C_word c,C_word *av) C_noret; C_noret_decl(f_4124) static void C_ccall f_4124(C_word c,C_word *av) C_noret; C_noret_decl(f_4130) static void C_ccall f_4130(C_word c,C_word *av) C_noret; C_noret_decl(f_4136) static void C_ccall f_4136(C_word c,C_word *av) C_noret; C_noret_decl(f_4166) static void C_ccall f_4166(C_word c,C_word *av) C_noret; C_noret_decl(f_4185) static void C_ccall f_4185(C_word c,C_word *av) C_noret; C_noret_decl(f_4188) static void C_ccall f_4188(C_word c,C_word *av) C_noret; C_noret_decl(f_4201) static void C_fcall f_4201(C_word t0,C_word t1) C_noret; C_noret_decl(f_4211) static void C_ccall f_4211(C_word c,C_word *av) C_noret; C_noret_decl(f_4236) static void C_ccall f_4236(C_word c,C_word *av) C_noret; C_noret_decl(f_4305) static void C_ccall f_4305(C_word c,C_word *av) C_noret; C_noret_decl(f_4324) static void C_ccall f_4324(C_word c,C_word *av) C_noret; C_noret_decl(f_4330) static void C_ccall f_4330(C_word c,C_word *av) C_noret; C_noret_decl(f_4345) static void C_fcall f_4345(C_word t0,C_word t1) C_noret; C_noret_decl(f_4385) static void C_ccall f_4385(C_word c,C_word *av) C_noret; C_noret_decl(f_4404) static void C_ccall f_4404(C_word c,C_word *av) C_noret; C_noret_decl(f_4407) static void C_ccall f_4407(C_word c,C_word *av) C_noret; C_noret_decl(f_4446) static void C_ccall f_4446(C_word c,C_word *av) C_noret; C_noret_decl(f_4448) static void C_ccall f_4448(C_word c,C_word *av) C_noret; C_noret_decl(f_4451) static void C_ccall f_4451(C_word c,C_word *av) C_noret; C_noret_decl(f_4454) static void C_ccall f_4454(C_word c,C_word *av) C_noret; C_noret_decl(f_4457) static void C_ccall f_4457(C_word c,C_word *av) C_noret; C_noret_decl(f_4460) static void C_ccall f_4460(C_word c,C_word *av) C_noret; C_noret_decl(f_4463) static void C_ccall f_4463(C_word c,C_word *av) C_noret; C_noret_decl(f_4466) static void C_ccall f_4466(C_word c,C_word *av) C_noret; C_noret_decl(f_4469) static void C_ccall f_4469(C_word c,C_word *av) C_noret; C_noret_decl(f_4472) static void C_ccall f_4472(C_word c,C_word *av) C_noret; C_noret_decl(f_4475) static void C_ccall f_4475(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d4_toplevel) C_externexport void C_ccall C_srfi_2d4_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1622) static void C_ccall trf_1622(C_word c,C_word *av) C_noret; static void C_ccall trf_1622(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1622(t0,t1,t2,t3,t4);} C_noret_decl(trf_2683) static void C_ccall trf_2683(C_word c,C_word *av) C_noret; static void C_ccall trf_2683(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2683(t0,t1);} C_noret_decl(trf_2794) static void C_ccall trf_2794(C_word c,C_word *av) C_noret; static void C_ccall trf_2794(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2794(t0,t1);} C_noret_decl(trf_2868) static void C_ccall trf_2868(C_word c,C_word *av) C_noret; static void C_ccall trf_2868(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2868(t0,t1,t2,t3);} C_noret_decl(trf_2904) static void C_ccall trf_2904(C_word c,C_word *av) C_noret; static void C_ccall trf_2904(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2904(t0,t1,t2,t3);} C_noret_decl(trf_2940) static void C_ccall trf_2940(C_word c,C_word *av) C_noret; static void C_ccall trf_2940(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2940(t0,t1,t2,t3);} C_noret_decl(trf_2976) static void C_ccall trf_2976(C_word c,C_word *av) C_noret; static void C_ccall trf_2976(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2976(t0,t1,t2,t3);} C_noret_decl(trf_3012) static void C_ccall trf_3012(C_word c,C_word *av) C_noret; static void C_ccall trf_3012(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3012(t0,t1,t2,t3);} C_noret_decl(trf_3048) static void C_ccall trf_3048(C_word c,C_word *av) C_noret; static void C_ccall trf_3048(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3048(t0,t1,t2,t3);} C_noret_decl(trf_3084) static void C_ccall trf_3084(C_word c,C_word *av) C_noret; static void C_ccall trf_3084(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3084(t0,t1,t2,t3);} C_noret_decl(trf_3120) static void C_ccall trf_3120(C_word c,C_word *av) C_noret; static void C_ccall trf_3120(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3120(t0,t1,t2,t3);} C_noret_decl(trf_3156) static void C_ccall trf_3156(C_word c,C_word *av) C_noret; static void C_ccall trf_3156(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3156(t0,t1,t2,t3);} C_noret_decl(trf_3192) static void C_ccall trf_3192(C_word c,C_word *av) C_noret; static void C_ccall trf_3192(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3192(t0,t1,t2,t3);} C_noret_decl(trf_3285) static void C_ccall trf_3285(C_word c,C_word *av) C_noret; static void C_ccall trf_3285(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3285(t0,t1,t2);} C_noret_decl(trf_3315) static void C_ccall trf_3315(C_word c,C_word *av) C_noret; static void C_ccall trf_3315(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3315(t0,t1,t2);} C_noret_decl(trf_3345) static void C_ccall trf_3345(C_word c,C_word *av) C_noret; static void C_ccall trf_3345(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3345(t0,t1,t2);} C_noret_decl(trf_3375) static void C_ccall trf_3375(C_word c,C_word *av) C_noret; static void C_ccall trf_3375(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3375(t0,t1,t2);} C_noret_decl(trf_3405) static void C_ccall trf_3405(C_word c,C_word *av) C_noret; static void C_ccall trf_3405(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3405(t0,t1,t2);} C_noret_decl(trf_3434) static void C_ccall trf_3434(C_word c,C_word *av) C_noret; static void C_ccall trf_3434(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3434(t0,t1,t2);} C_noret_decl(trf_3463) static void C_ccall trf_3463(C_word c,C_word *av) C_noret; static void C_ccall trf_3463(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3463(t0,t1,t2);} C_noret_decl(trf_3492) static void C_ccall trf_3492(C_word c,C_word *av) C_noret; static void C_ccall trf_3492(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3492(t0,t1,t2);} C_noret_decl(trf_3521) static void C_ccall trf_3521(C_word c,C_word *av) C_noret; static void C_ccall trf_3521(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3521(t0,t1,t2);} C_noret_decl(trf_3550) static void C_ccall trf_3550(C_word c,C_word *av) C_noret; static void C_ccall trf_3550(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3550(t0,t1,t2);} C_noret_decl(trf_3612) static void C_ccall trf_3612(C_word c,C_word *av) C_noret; static void C_ccall trf_3612(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3612(t0,t1,t2);} C_noret_decl(trf_3630) static void C_ccall trf_3630(C_word c,C_word *av) C_noret; static void C_ccall trf_3630(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3630(t0,t1,t2,t3);} C_noret_decl(trf_3648) static void C_ccall trf_3648(C_word c,C_word *av) C_noret; static void C_ccall trf_3648(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3648(t0,t1);} C_noret_decl(trf_3660) static void C_ccall trf_3660(C_word c,C_word *av) C_noret; static void C_ccall trf_3660(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3660(t0,t1,t2,t3);} C_noret_decl(trf_3681) static void C_ccall trf_3681(C_word c,C_word *av) C_noret; static void C_ccall trf_3681(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3681(t0,t1);} C_noret_decl(trf_3885) static void C_ccall trf_3885(C_word c,C_word *av) C_noret; static void C_ccall trf_3885(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3885(t0,t1,t2);} C_noret_decl(trf_3991) static void C_ccall trf_3991(C_word c,C_word *av) C_noret; static void C_ccall trf_3991(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_3991(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_4201) static void C_ccall trf_4201(C_word c,C_word *av) C_noret; static void C_ccall trf_4201(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4201(t0,t1);} C_noret_decl(trf_4345) static void C_ccall trf_4345(C_word c,C_word *av) C_noret; static void C_ccall trf_4345(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4345(t0,t1);} /* f5217 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f5217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5217,3,av);} t3=C_i_check_structure_2(t2,lf[76],lf[154]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f5224 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f5224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5224,3,av);} t3=C_i_check_structure_2(t2,lf[73],lf[152]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f5231 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f5231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5231,3,av);} t3=C_i_check_structure_2(t2,lf[70],lf[150]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f5238 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f5238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5238,3,av);} t3=C_i_check_structure_2(t2,lf[63],lf[148]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f5245 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f5245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5245,3,av);} t3=C_i_check_structure_2(t2,lf[67],lf[146]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f5252 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f5252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5252,3,av);} t3=C_i_check_structure_2(t2,lf[59],lf[144]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f5259 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f5259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5259,3,av);} t3=C_i_check_structure_2(t2,lf[55],lf[142]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f5266 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f5266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5266,3,av);} t3=C_i_check_structure_2(t2,lf[52],lf[140]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f5273 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f5273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5273,3,av);} t3=C_i_check_structure_2(t2,lf[49],lf[138]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f5280 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f5280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f5280,3,av);} t3=C_i_check_structure_2(t2,lf[43],lf[136]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1504 */ static void C_ccall f_1506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1506,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1509,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k1507 in k1504 */ static void C_ccall f_1509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1509,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1512,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k1510 in k1507 in k1504 */ static void C_ccall f_1512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(82,c,5)))){ C_save_and_reclaim((void *)f_1512,2,av);} a=C_alloc(82); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate((C_word*)lf[2]+1 /* (set! srfi-4#u8vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1514,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[3]+1 /* (set! srfi-4#s8vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1517,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[4]+1 /* (set! srfi-4#u16vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1520,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[5]+1 /* (set! srfi-4#s16vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1523,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[6]+1 /* (set! srfi-4#u32vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1526,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[7]+1 /* (set! srfi-4#s32vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1529,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[8]+1 /* (set! srfi-4#u64vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1532,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[9]+1 /* (set! srfi-4#s64vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1535,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[10]+1 /* (set! srfi-4#f32vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1538,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[11]+1 /* (set! srfi-4#f64vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1541,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[12]+1 /* (set! srfi-4#u8vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1544,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[13]+1 /* (set! srfi-4#s8vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1547,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[14]+1 /* (set! srfi-4#u16vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1550,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[15]+1 /* (set! srfi-4#s16vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1553,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[16]+1 /* (set! srfi-4#u32vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1556,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[17]+1 /* (set! srfi-4#s32vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1559,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[18]+1 /* (set! srfi-4#u64vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1562,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[19]+1 /* (set! srfi-4#s64vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1565,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[20]+1 /* (set! srfi-4#f32vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1568,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate((C_word*)lf[21]+1 /* (set! srfi-4#f64vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1571,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1576,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4475,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:187: chicken.base#getter-with-setter */ t26=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t26; av2[1]=t24; av2[2]=t25; av2[3]=*((C_word*)lf[12]+1); av2[4]=lf[276]; ((C_proc)(void*)(*((C_word*)t26+1)))(5,av2);}} /* srfi-4#u8vector-length in k1510 in k1507 in k1504 */ static void C_ccall f_1514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1514,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_u8vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#s8vector-length in k1510 in k1507 in k1504 */ static void C_ccall f_1517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1517,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_s8vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#u16vector-length in k1510 in k1507 in k1504 */ static void C_ccall f_1520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1520,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_u16vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#s16vector-length in k1510 in k1507 in k1504 */ static void C_ccall f_1523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1523,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_s16vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#u32vector-length in k1510 in k1507 in k1504 */ static void C_ccall f_1526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1526,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_u32vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#s32vector-length in k1510 in k1507 in k1504 */ static void C_ccall f_1529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1529,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_s32vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#u64vector-length in k1510 in k1507 in k1504 */ static void C_ccall f_1532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1532,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_u64vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#s64vector-length in k1510 in k1507 in k1504 */ static void C_ccall f_1535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1535,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_s64vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#f32vector-length in k1510 in k1507 in k1504 */ static void C_ccall f_1538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1538,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_f32vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#f64vector-length in k1510 in k1507 in k1504 */ static void C_ccall f_1541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1541,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_f64vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#u8vector-set! in k1510 in k1507 in k1504 */ static void C_ccall f_1544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1544,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_u8vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* srfi-4#s8vector-set! in k1510 in k1507 in k1504 */ static void C_ccall f_1547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1547,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_s8vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* srfi-4#u16vector-set! in k1510 in k1507 in k1504 */ static void C_ccall f_1550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1550,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_u16vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* srfi-4#s16vector-set! in k1510 in k1507 in k1504 */ static void C_ccall f_1553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1553,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_s16vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* srfi-4#u32vector-set! in k1510 in k1507 in k1504 */ static void C_ccall f_1556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1556,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_u32vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* srfi-4#s32vector-set! in k1510 in k1507 in k1504 */ static void C_ccall f_1559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1559,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_s32vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* srfi-4#u64vector-set! in k1510 in k1507 in k1504 */ static void C_ccall f_1562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1562,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_u64vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* srfi-4#s64vector-set! in k1510 in k1507 in k1504 */ static void C_ccall f_1565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1565,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_s64vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* srfi-4#f32vector-set! in k1510 in k1507 in k1504 */ static void C_ccall f_1568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1568,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_f32vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* srfi-4#f64vector-set! in k1510 in k1507 in k1504 */ static void C_ccall f_1571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1571,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_f64vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1576,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[22]+1 /* (set! srfi-4#u8vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1580,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4472,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:193: chicken.base#getter-with-setter */ t5=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[13]+1); av2[4]=lf[275]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1580,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[23]+1 /* (set! srfi-4#s8vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1584,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4469,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:199: chicken.base#getter-with-setter */ t5=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[14]+1); av2[4]=lf[274]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1584,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[24]+1 /* (set! srfi-4#u16vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1588,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4466,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:205: chicken.base#getter-with-setter */ t5=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[15]+1); av2[4]=lf[273]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1588,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[25]+1 /* (set! srfi-4#s16vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1592,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4463,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:211: chicken.base#getter-with-setter */ t5=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[16]+1); av2[4]=lf[272]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1592,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[26]+1 /* (set! srfi-4#u32vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1596,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4460,a[2]=((C_word)li140),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:217: chicken.base#getter-with-setter */ t5=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[17]+1); av2[4]=lf[271]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1596,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[27]+1 /* (set! srfi-4#s32vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1600,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4457,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:223: chicken.base#getter-with-setter */ t5=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[18]+1); av2[4]=lf[270]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1600,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[28]+1 /* (set! srfi-4#u64vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1604,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4454,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:229: chicken.base#getter-with-setter */ t5=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[19]+1); av2[4]=lf[269]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1604,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[29]+1 /* (set! srfi-4#s64vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1608,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4451,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:235: chicken.base#getter-with-setter */ t5=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[20]+1); av2[4]=lf[268]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1608,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[30]+1 /* (set! srfi-4#f32vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1612,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4448,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:241: chicken.base#getter-with-setter */ t5=*((C_word*)lf[266]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[21]+1); av2[4]=lf[267]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word t87; C_word t88; C_word t89; C_word t90; C_word t91; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(231,c,6)))){ C_save_and_reclaim((void *)f_1612,2,av);} a=C_alloc(231); t2=C_mutate((C_word*)lf[31]+1 /* (set! srfi-4#f64vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1620,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1622,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp); t5=C_mutate((C_word*)lf[38]+1 /* (set! srfi-4#release-number-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1661,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[42]+1 /* (set! srfi-4#make-u8vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1676,a[2]=t3,a[3]=t4,a[4]=((C_word)li24),tmp=(C_word)a,a+=5,tmp)); t7=C_mutate((C_word*)lf[48]+1 /* (set! srfi-4#make-s8vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1792,a[2]=t3,a[3]=t4,a[4]=((C_word)li26),tmp=(C_word)a,a+=5,tmp)); t8=C_mutate((C_word*)lf[51]+1 /* (set! srfi-4#make-u16vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1908,a[2]=t3,a[3]=t4,a[4]=((C_word)li28),tmp=(C_word)a,a+=5,tmp)); t9=C_mutate((C_word*)lf[54]+1 /* (set! srfi-4#make-s16vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2024,a[2]=t3,a[3]=t4,a[4]=((C_word)li30),tmp=(C_word)a,a+=5,tmp)); t10=C_mutate((C_word*)lf[58]+1 /* (set! srfi-4#make-u32vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2150,a[2]=t3,a[3]=t4,a[4]=((C_word)li32),tmp=(C_word)a,a+=5,tmp)); t11=C_mutate((C_word*)lf[62]+1 /* (set! srfi-4#make-u64vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2266,a[2]=t3,a[3]=t4,a[4]=((C_word)li34),tmp=(C_word)a,a+=5,tmp)); t12=C_mutate((C_word*)lf[66]+1 /* (set! srfi-4#make-s32vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2382,a[2]=t3,a[3]=t4,a[4]=((C_word)li36),tmp=(C_word)a,a+=5,tmp)); t13=C_mutate((C_word*)lf[69]+1 /* (set! srfi-4#make-s64vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2508,a[2]=t3,a[3]=t4,a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp)); t14=C_mutate((C_word*)lf[72]+1 /* (set! srfi-4#make-f32vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2634,a[2]=t3,a[3]=t4,a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp)); t15=C_mutate((C_word*)lf[75]+1 /* (set! srfi-4#make-f64vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2745,a[2]=t3,a[3]=t4,a[4]=((C_word)li42),tmp=(C_word)a,a+=5,tmp)); t16=*((C_word*)lf[42]+1); t17=C_mutate((C_word*)lf[78]+1 /* (set! srfi-4#list->u8vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2856,a[2]=t16,a[3]=((C_word)li44),tmp=(C_word)a,a+=4,tmp)); t18=*((C_word*)lf[48]+1); t19=C_mutate((C_word*)lf[80]+1 /* (set! srfi-4#list->s8vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2892,a[2]=t18,a[3]=((C_word)li46),tmp=(C_word)a,a+=4,tmp)); t20=*((C_word*)lf[51]+1); t21=C_mutate((C_word*)lf[81]+1 /* (set! srfi-4#list->u16vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2928,a[2]=t20,a[3]=((C_word)li48),tmp=(C_word)a,a+=4,tmp)); t22=*((C_word*)lf[54]+1); t23=C_mutate((C_word*)lf[82]+1 /* (set! srfi-4#list->s16vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2964,a[2]=t22,a[3]=((C_word)li50),tmp=(C_word)a,a+=4,tmp)); t24=*((C_word*)lf[58]+1); t25=C_mutate((C_word*)lf[83]+1 /* (set! srfi-4#list->u32vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3000,a[2]=t24,a[3]=((C_word)li52),tmp=(C_word)a,a+=4,tmp)); t26=*((C_word*)lf[66]+1); t27=C_mutate((C_word*)lf[84]+1 /* (set! srfi-4#list->s32vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3036,a[2]=t26,a[3]=((C_word)li54),tmp=(C_word)a,a+=4,tmp)); t28=*((C_word*)lf[62]+1); t29=C_mutate((C_word*)lf[85]+1 /* (set! srfi-4#list->u64vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3072,a[2]=t28,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp)); t30=*((C_word*)lf[69]+1); t31=C_mutate((C_word*)lf[86]+1 /* (set! srfi-4#list->s64vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3108,a[2]=t30,a[3]=((C_word)li58),tmp=(C_word)a,a+=4,tmp)); t32=*((C_word*)lf[72]+1); t33=C_mutate((C_word*)lf[87]+1 /* (set! srfi-4#list->f32vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3144,a[2]=t32,a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp)); t34=*((C_word*)lf[75]+1); t35=C_mutate((C_word*)lf[88]+1 /* (set! srfi-4#list->f64vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3180,a[2]=t34,a[3]=((C_word)li62),tmp=(C_word)a,a+=4,tmp)); t36=C_mutate((C_word*)lf[89]+1 /* (set! srfi-4#u8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3216,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate((C_word*)lf[90]+1 /* (set! srfi-4#s8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3222,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate((C_word*)lf[91]+1 /* (set! srfi-4#u16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3228,a[2]=((C_word)li65),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate((C_word*)lf[92]+1 /* (set! srfi-4#s16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3234,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate((C_word*)lf[93]+1 /* (set! srfi-4#u32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3240,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate((C_word*)lf[94]+1 /* (set! srfi-4#s32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3246,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate((C_word*)lf[95]+1 /* (set! srfi-4#u64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3252,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate((C_word*)lf[96]+1 /* (set! srfi-4#s64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3258,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate((C_word*)lf[97]+1 /* (set! srfi-4#f32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3264,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate((C_word*)lf[98]+1 /* (set! srfi-4#f64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3270,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate((C_word*)lf[99]+1 /* (set! srfi-4#u8vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3276,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate((C_word*)lf[101]+1 /* (set! srfi-4#s8vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3306,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate((C_word*)lf[103]+1 /* (set! srfi-4#u16vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3336,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate((C_word*)lf[105]+1 /* (set! srfi-4#s16vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3366,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate((C_word*)lf[107]+1 /* (set! srfi-4#u32vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3396,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate((C_word*)lf[109]+1 /* (set! srfi-4#s32vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3425,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate((C_word*)lf[111]+1 /* (set! srfi-4#u64vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3454,a[2]=((C_word)li86),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate((C_word*)lf[113]+1 /* (set! srfi-4#s64vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3483,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate((C_word*)lf[115]+1 /* (set! srfi-4#f32vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3512,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate((C_word*)lf[117]+1 /* (set! srfi-4#f64vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3541,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate((C_word*)lf[119]+1 /* (set! srfi-4#u8vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3570,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate((C_word*)lf[120]+1 /* (set! srfi-4#s8vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3573,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp)); t58=C_mutate((C_word*)lf[121]+1 /* (set! srfi-4#u16vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3576,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate((C_word*)lf[122]+1 /* (set! srfi-4#s16vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3579,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); t60=C_mutate((C_word*)lf[123]+1 /* (set! srfi-4#u32vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3582,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate((C_word*)lf[124]+1 /* (set! srfi-4#s32vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3585,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t62=C_mutate((C_word*)lf[125]+1 /* (set! srfi-4#u64vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3588,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp)); t63=C_mutate((C_word*)lf[126]+1 /* (set! srfi-4#s64vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3591,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp)); t64=C_mutate((C_word*)lf[127]+1 /* (set! srfi-4#f32vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3594,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); t65=C_mutate((C_word*)lf[128]+1 /* (set! srfi-4#f64vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3597,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp)); t66=C_mutate((C_word*)lf[41]+1 /* (set! srfi-4#number-vector? ...) */,*((C_word*)lf[129]+1)); t67=C_mutate(&lf[130] /* (set! srfi-4#pack-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3612,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp)); t68=C_mutate(&lf[132] /* (set! srfi-4#unpack ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3630,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp)); t69=C_mutate(&lf[134] /* (set! srfi-4#unpack-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3660,a[2]=((C_word)li108),tmp=(C_word)a,a+=3,tmp)); t70=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5280,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp); t71=C_mutate((C_word*)lf[137]+1 /* (set! srfi-4#u8vector->blob/shared ...) */,t70); t72=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5273,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp); t73=C_mutate((C_word*)lf[139]+1 /* (set! srfi-4#s8vector->blob/shared ...) */,t72); t74=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5266,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp); t75=C_mutate((C_word*)lf[141]+1 /* (set! srfi-4#u16vector->blob/shared ...) */,t74); t76=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5259,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp); t77=C_mutate((C_word*)lf[143]+1 /* (set! srfi-4#s16vector->blob/shared ...) */,t76); t78=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5252,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp); t79=C_mutate((C_word*)lf[145]+1 /* (set! srfi-4#u32vector->blob/shared ...) */,t78); t80=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5245,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp); t81=C_mutate((C_word*)lf[147]+1 /* (set! srfi-4#s32vector->blob/shared ...) */,t80); t82=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5238,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp); t83=C_mutate((C_word*)lf[149]+1 /* (set! srfi-4#u64vector->blob/shared ...) */,t82); t84=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5231,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp); t85=C_mutate((C_word*)lf[151]+1 /* (set! srfi-4#s64vector->blob/shared ...) */,t84); t86=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5224,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp); t87=C_mutate((C_word*)lf[153]+1 /* (set! srfi-4#f32vector->blob/shared ...) */,t86); t88=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5217,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp); t89=C_mutate((C_word*)lf[155]+1 /* (set! srfi-4#f64vector->blob/shared ...) */,t88); t90=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3736,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:579: pack-copy */ f_3612(t90,lf[43],lf[265]);} /* ext-free in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1620,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=stub222(C_SCHEME_UNDEFINED,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* alloc in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_1622(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_1622,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1626,a[2]=t4,a[3]=t3,a[4]=t5,a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* srfi-4.scm:273: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[37]+1); av2[1]=t6; av2[2]=t4; av2[3]=t2; tp(4,av2);}} /* k1624 in alloc in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_1626,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1629,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_fixnum_lessp(((C_word*)t0)[2],C_fix(0)))){ /* srfi-4.scm:274: ##sys#error */ t3=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[36]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_1629(2,av2);}}} /* k1627 in k1624 in alloc in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1629,2,av);} a=C_alloc(6); t2=C_i_o_fixnum_times(((C_word*)t0)[2],((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1635,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1635(2,av2);}} else{ /* srfi-4.scm:276: ##sys#error */ t5=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[35]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k1633 in k1627 in k1624 in alloc in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_1635,2,av);} a=C_alloc(3); if(C_truep(((C_word*)t0)[2])){ t2=C_fix((C_word)sizeof(size_t) * CHAR_BIT); t3=C_i_foreign_unsigned_ranged_integer_argumentp(((C_word*)t0)[3],t2); t4=stub216(C_SCHEME_UNDEFINED,t3); if(C_truep(t4)){ t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* srfi-4.scm:280: ##sys#error */ t5=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[33]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1650,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:281: ##sys#allocate-vector */ t3=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k1648 in k1633 in k1627 in k1624 in alloc in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1650,2,av);} t2=C_string_to_bytevector(t1); t3=t1; t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* srfi-4#release-number-vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1661,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1668,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:287: number-vector? */ t4=*((C_word*)lf[41]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k1666 in srfi-4#release-number-vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1668,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=stub222(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* srfi-4.scm:289: ##sys#error */ t2=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[39]; av2[3]=lf[40]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* srfi-4#make-u8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_1676,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=C_i_nullp(t13); t15=(C_truep(t14)?C_SCHEME_TRUE:C_i_car(t13)); t16=t15; t17=C_i_nullp(t13); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1754,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:293: alloc */ f_1622(t19,lf[45],C_fix(1),t2,t11);} /* k1699 in k1752 in srfi-4#make-u8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1701,2,av);} a=C_alloc(10); if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1731,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t3=t2; t4=((C_word*)t0)[2]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1712,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:109: ##sys#check-exact-uinteger */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[46]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[45]; tp(4,av2);}}} /* k1710 in k1699 in k1752 in srfi-4#make-u8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_1712,2,av);} t2=C_i_integer_length(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t2,C_fix(8)))){ t3=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:111: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=lf[45]; av2[4]=((C_word*)t0)[2]; av2[5]=C_fix(0); av2[6]=C_fix(256); tp(7,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1729 in k1699 in k1752 in srfi-4#make-u8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1731,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1736,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li23),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=( f_1736(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop268 in k1729 in k1699 in k1752 in srfi-4#make-u8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static C_word C_fcall f_1736(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_u_i_u8vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* k1752 in srfi-4#make-u8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1754,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[43],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1701,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[6])){ /* srfi-4.scm:294: chicken.gc#set-finalizer! */ t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1701(2,av2);}}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1701(2,av2);}}} /* srfi-4#make-s8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_1792,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=C_i_nullp(t13); t15=(C_truep(t14)?C_SCHEME_TRUE:C_i_car(t13)); t16=t15; t17=C_i_nullp(t13); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1870,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:305: alloc */ f_1622(t19,lf[50],C_fix(1),t2,t11);} /* k1815 in k1868 in srfi-4#make-s8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1817,2,av);} a=C_alloc(10); if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1847,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t3=t2; t4=((C_word*)t0)[2]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1828,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:109: ##sys#check-exact-uinteger */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[46]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[50]; tp(4,av2);}}} /* k1826 in k1815 in k1868 in srfi-4#make-s8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_1828,2,av);} t2=C_i_integer_length(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t2,C_fix(8)))){ t3=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:111: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=lf[50]; av2[4]=((C_word*)t0)[2]; av2[5]=C_fix(0); av2[6]=C_fix(256); tp(7,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1845 in k1815 in k1868 in srfi-4#make-s8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1847,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1852,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li25),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=( f_1852(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop302 in k1845 in k1815 in k1868 in srfi-4#make-s8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static C_word C_fcall f_1852(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_u_i_s8vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* k1868 in srfi-4#make-s8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1870,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[49],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1817,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[6])){ /* srfi-4.scm:306: chicken.gc#set-finalizer! */ t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1817(2,av2);}}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1817(2,av2);}}} /* srfi-4#make-u16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_1908,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=C_i_nullp(t13); t15=(C_truep(t14)?C_SCHEME_TRUE:C_i_car(t13)); t16=t15; t17=C_i_nullp(t13); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1986,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:317: alloc */ f_1622(t19,lf[53],C_fix(2),t2,t11);} /* k1931 in k1984 in srfi-4#make-u16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_1933,2,av);} a=C_alloc(10); if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1963,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t3=t2; t4=((C_word*)t0)[2]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1944,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:109: ##sys#check-exact-uinteger */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[46]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[53]; tp(4,av2);}}} /* k1942 in k1931 in k1984 in srfi-4#make-u16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_1944,2,av);} t2=C_i_integer_length(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t2,C_fix(16)))){ t3=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:111: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=lf[53]; av2[4]=((C_word*)t0)[2]; av2[5]=C_fix(0); av2[6]=C_fix(65536); tp(7,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k1961 in k1931 in k1984 in srfi-4#make-u16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1963,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1968,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li27),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=( f_1968(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop336 in k1961 in k1931 in k1984 in srfi-4#make-u16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static C_word C_fcall f_1968(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_u_i_u16vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* k1984 in srfi-4#make-u16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_1986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_1986,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[52],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[6])){ /* srfi-4.scm:318: chicken.gc#set-finalizer! */ t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1933(2,av2);}}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1933(2,av2);}}} /* srfi-4#make-s16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_2024,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=C_i_nullp(t13); t15=(C_truep(t14)?C_SCHEME_TRUE:C_i_car(t13)); t16=t15; t17=C_i_nullp(t13); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2112,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:329: alloc */ f_1622(t19,lf[56],C_fix(2),t2,t11);} /* k2047 in k2110 in srfi-4#make-s16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2049,2,av);} a=C_alloc(10); if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2089,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t3=t2; t4=((C_word*)t0)[2]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2060,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:115: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[57]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[56]; tp(4,av2);}}} /* k2058 in k2047 in k2110 in srfi-4#make-s16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(58,c,6)))){ C_save_and_reclaim((void *)f_2060,2,av);} a=C_alloc(58); t2=C_i_integer_length(((C_word*)t0)[2]); t3=C_fixnum_difference(C_fix(16),C_fix(1)); if(C_truep(C_fixnum_greaterp(t2,t3))){ t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR); t5=C_s_a_i_negate(&a,1,C_fix(65536)); t6=C_s_a_i_minus(&a,2,C_fix(65536),C_fix(1)); /* srfi-4.scm:117: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t4; av2[3]=lf[56]; av2[4]=((C_word*)t0)[2]; av2[5]=t5; av2[6]=t6; tp(7,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2087 in k2047 in k2110 in srfi-4#make-s16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2089,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2094,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=( f_2094(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop370 in k2087 in k2047 in k2110 in srfi-4#make-s16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static C_word C_fcall f_2094(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_u_i_s16vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* k2110 in srfi-4#make-s16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2112,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[55],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2049,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[6])){ /* srfi-4.scm:330: chicken.gc#set-finalizer! */ t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2049(2,av2);}}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2049(2,av2);}}} /* srfi-4#make-u32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_2150,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=C_i_nullp(t13); t15=(C_truep(t14)?C_SCHEME_TRUE:C_i_car(t13)); t16=t15; t17=C_i_nullp(t13); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2228,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:341: alloc */ f_1622(t19,lf[60],C_fix(4),t2,t11);} /* k2173 in k2226 in srfi-4#make-u32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2175,2,av);} a=C_alloc(10); if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2205,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t3=t2; t4=((C_word*)t0)[2]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2186,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:109: ##sys#check-exact-uinteger */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[46]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[60]; tp(4,av2);}}} /* k2184 in k2173 in k2226 in srfi-4#make-u32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2186,2,av);} t2=C_i_integer_length(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t2,C_fix(32)))){ t3=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:111: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=lf[60]; av2[4]=((C_word*)t0)[2]; av2[5]=C_fix(0); av2[6]=lf[61]; tp(7,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2203 in k2173 in k2226 in srfi-4#make-u32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2205,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2210,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li31),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=( f_2210(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop404 in k2203 in k2173 in k2226 in srfi-4#make-u32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static C_word C_fcall f_2210(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_u_i_u32vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* k2226 in srfi-4#make-u32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2228,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[59],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2175,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[6])){ /* srfi-4.scm:342: chicken.gc#set-finalizer! */ t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2175(2,av2);}}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2175(2,av2);}}} /* srfi-4#make-u64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_2266,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=C_i_nullp(t13); t15=(C_truep(t14)?C_SCHEME_TRUE:C_i_car(t13)); t16=t15; t17=C_i_nullp(t13); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2344,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:353: alloc */ f_1622(t19,lf[64],C_fix(8),t2,t11);} /* k2289 in k2342 in srfi-4#make-u64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2291,2,av);} a=C_alloc(10); if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2321,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t3=t2; t4=((C_word*)t0)[2]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2302,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:109: ##sys#check-exact-uinteger */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[46]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[64]; tp(4,av2);}}} /* k2300 in k2289 in k2342 in srfi-4#make-u64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2302,2,av);} t2=C_i_integer_length(((C_word*)t0)[2]); if(C_truep(C_fixnum_greaterp(t2,C_fix(64)))){ t3=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:111: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=lf[64]; av2[4]=((C_word*)t0)[2]; av2[5]=C_fix(0); av2[6]=lf[65]; tp(7,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2319 in k2289 in k2342 in srfi-4#make-u64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2321,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li33),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=( f_2326(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop438 in k2319 in k2289 in k2342 in srfi-4#make-u64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static C_word C_fcall f_2326(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_u_i_u64vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* k2342 in srfi-4#make-u64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2344,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[63],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2291,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[6])){ /* srfi-4.scm:354: chicken.gc#set-finalizer! */ t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2291(2,av2);}}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2291(2,av2);}}} /* srfi-4#make-s32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_2382,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=C_i_nullp(t13); t15=(C_truep(t14)?C_SCHEME_TRUE:C_i_car(t13)); t16=t15; t17=C_i_nullp(t13); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2470,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:365: alloc */ f_1622(t19,lf[68],C_fix(4),t2,t11);} /* k2405 in k2468 in srfi-4#make-s32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2407,2,av);} a=C_alloc(10); if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2447,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t3=t2; t4=((C_word*)t0)[2]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2418,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:115: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[57]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[68]; tp(4,av2);}}} /* k2416 in k2405 in k2468 in srfi-4#make-s32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(58,c,6)))){ C_save_and_reclaim((void *)f_2418,2,av);} a=C_alloc(58); t2=C_i_integer_length(((C_word*)t0)[2]); t3=C_fixnum_difference(C_fix(32),C_fix(1)); if(C_truep(C_fixnum_greaterp(t2,t3))){ t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR); t5=C_s_a_i_negate(&a,1,lf[61]); t6=C_s_a_i_minus(&a,2,lf[61],C_fix(1)); /* srfi-4.scm:117: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t4; av2[3]=lf[68]; av2[4]=((C_word*)t0)[2]; av2[5]=t5; av2[6]=t6; tp(7,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2445 in k2405 in k2468 in srfi-4#make-s32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2447,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2452,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li35),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=( f_2452(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop472 in k2445 in k2405 in k2468 in srfi-4#make-s32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static C_word C_fcall f_2452(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_u_i_s32vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* k2468 in srfi-4#make-s32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2470,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[67],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2407,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[6])){ /* srfi-4.scm:366: chicken.gc#set-finalizer! */ t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2407(2,av2);}}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2407(2,av2);}}} /* srfi-4#make-s64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_2508,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=C_i_nullp(t13); t15=(C_truep(t14)?C_SCHEME_TRUE:C_i_car(t13)); t16=t15; t17=C_i_nullp(t13); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t19=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2596,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t11,a[6]=t16,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:377: alloc */ f_1622(t19,lf[71],C_fix(8),t2,t11);} /* k2531 in k2594 in srfi-4#make-s64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2533,2,av);} a=C_alloc(10); if(C_truep(C_i_not(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2573,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t3=t2; t4=((C_word*)t0)[2]; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2544,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:115: ##sys#check-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[57]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[71]; tp(4,av2);}}} /* k2542 in k2531 in k2594 in srfi-4#make-s64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(58,c,6)))){ C_save_and_reclaim((void *)f_2544,2,av);} a=C_alloc(58); t2=C_i_integer_length(((C_word*)t0)[2]); t3=C_fixnum_difference(C_fix(64),C_fix(1)); if(C_truep(C_fixnum_greaterp(t2,t3))){ t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR); t5=C_s_a_i_negate(&a,1,lf[65]); t6=C_s_a_i_minus(&a,2,lf[65],C_fix(1)); /* srfi-4.scm:117: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t4; av2[3]=lf[71]; av2[4]=((C_word*)t0)[2]; av2[5]=t5; av2[6]=t6; tp(7,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2571 in k2531 in k2594 in srfi-4#make-s64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2573,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2578,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li37),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=( f_2578(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop506 in k2571 in k2531 in k2594 in srfi-4#make-s64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static C_word C_fcall f_2578(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_u_i_s64vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* k2594 in srfi-4#make-s64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2596,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[70],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2533,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[6])){ /* srfi-4.scm:378: chicken.gc#set-finalizer! */ t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2533(2,av2);}}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2533(2,av2);}}} /* srfi-4#make-f32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,5)))){ C_save_and_reclaim((void*)f_2634,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_i_nullp(t3); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_SCHEME_FALSE:C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=C_i_nullp(t14); t16=(C_truep(t15)?C_SCHEME_TRUE:C_i_car(t14)); t17=t16; t18=C_i_nullp(t14); t19=(C_truep(t18)?C_SCHEME_END_OF_LIST:C_i_cdr(t14)); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2707,a[2]=t7,a[3]=t1,a[4]=t2,a[5]=t12,a[6]=t17,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:389: alloc */ f_1622(t20,lf[74],C_fix(4),t2,t12);} /* k2657 in k2705 in srfi-4#make-f32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2659,2,av);} a=C_alloc(6); if(C_truep(C_i_not(((C_word*)((C_word*)t0)[2])[1]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2680,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_i_exact_integerp(t3); t5=(C_truep(t4)?t4:C_i_flonump(t3)); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t2;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; f_2680(2,av2);}} else{ t6=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* srfi-4.scm:99: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[44]+1); av2[1]=t2; av2[2]=t6; av2[3]=lf[74]; av2[4]=t3; tp(5,av2);}}}} /* k2678 in k2657 in k2705 in srfi-4#make-f32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_2680,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_flonump(((C_word*)((C_word*)t0)[4])[1]))){ t3=t2; f_2683(t3,C_SCHEME_UNDEFINED);} else{ t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,C_a_u_i_int_to_flo(&a,1,((C_word*)((C_word*)t0)[4])[1])); t4=t2; f_2683(t4,t3);}} /* k2681 in k2678 in k2657 in k2705 in srfi-4#make-f32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_2683(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2683,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2688,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li39),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t3; av2[1]=( f_2688(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop541 in k2681 in k2678 in k2657 in k2705 in srfi-4#make-f32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static C_word C_fcall f_2688(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_u_i_f32vector_set(((C_word*)t0)[3],t1,((C_word*)((C_word*)t0)[4])[1]); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* k2705 in srfi-4#make-f32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2707,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[73],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2659,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[6])){ /* srfi-4.scm:390: chicken.gc#set-finalizer! */ t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2659(2,av2);}}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2659(2,av2);}}} /* srfi-4#make-f64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,5)))){ C_save_and_reclaim((void*)f_2745,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_i_nullp(t3); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_SCHEME_FALSE:C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=C_i_nullp(t14); t16=(C_truep(t15)?C_SCHEME_TRUE:C_i_car(t14)); t17=t16; t18=C_i_nullp(t14); t19=(C_truep(t18)?C_SCHEME_END_OF_LIST:C_i_cdr(t14)); t20=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2818,a[2]=t7,a[3]=t1,a[4]=t2,a[5]=t12,a[6]=t17,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:403: alloc */ f_1622(t20,lf[77],C_fix(8),t2,t12);} /* k2768 in k2816 in srfi-4#make-f64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2770,2,av);} a=C_alloc(6); if(C_truep(C_i_not(((C_word*)((C_word*)t0)[2])[1]))){ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2791,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)((C_word*)t0)[2])[1]; t4=C_i_exact_integerp(t3); t5=(C_truep(t4)?t4:C_i_flonump(t3)); if(C_truep(t5)){ t6=C_SCHEME_UNDEFINED; t7=t2;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; f_2791(2,av2);}} else{ t6=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* srfi-4.scm:99: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[44]+1); av2[1]=t2; av2[2]=t6; av2[3]=lf[77]; av2[4]=t3; tp(5,av2);}}}} /* k2789 in k2768 in k2816 in srfi-4#make-f64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_2791,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2794,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_flonump(((C_word*)((C_word*)t0)[4])[1]))){ t3=t2; f_2794(t3,C_SCHEME_UNDEFINED);} else{ t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,C_a_u_i_int_to_flo(&a,1,((C_word*)((C_word*)t0)[4])[1])); t4=t2; f_2794(t4,t3);}} /* k2792 in k2789 in k2768 in k2816 in srfi-4#make-f64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_2794(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2794,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2799,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li41),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t3; av2[1]=( f_2799(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop577 in k2792 in k2789 in k2768 in k2816 in srfi-4#make-f64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static C_word C_fcall f_2799(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_u_i_f64vector_set(((C_word*)t0)[3],t1,((C_word*)((C_word*)t0)[4])[1]); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* k2816 in srfi-4#make-f64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_2818,2,av);} a=C_alloc(9); t2=C_a_i_record2(&a,2,lf[76],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2770,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ if(C_truep(((C_word*)t0)[6])){ /* srfi-4.scm:404: chicken.gc#set-finalizer! */ t5=*((C_word*)lf[47]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=t3; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2770(2,av2);}}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_2770(2,av2);}}} /* srfi-4#list->u8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2856,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[43]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2863,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:439: make-u8vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2861 in srfi-4#list->u8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_2863,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2868,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li43),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2868(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop612 in k2861 in srfi-4#list->u8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_2868(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2868,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2875,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_i_u8vector_set(((C_word*)t0)[2],t3,t6); t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;} else{ /* srfi-4.scm:439: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[79]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k2873 in doloop612 in k2861 in srfi-4#list->u8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2875,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_2868(t4,((C_word*)t0)[5],t2,t3);} /* srfi-4#list->s8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2892,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[49]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2899,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:440: make-s8vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2897 in srfi-4#list->s8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_2899,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2904,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li45),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2904(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop625 in k2897 in srfi-4#list->s8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_2904(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2904,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2911,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_i_s8vector_set(((C_word*)t0)[2],t3,t6); t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;} else{ /* srfi-4.scm:440: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[79]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k2909 in doloop625 in k2897 in srfi-4#list->s8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2911,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_2904(t4,((C_word*)t0)[5],t2,t3);} /* srfi-4#list->u16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2928,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[52]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2935,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:441: make-u16vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2933 in srfi-4#list->u16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_2935,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2940,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li47),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2940(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop638 in k2933 in srfi-4#list->u16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_2940(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2940,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2947,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_i_u16vector_set(((C_word*)t0)[2],t3,t6); t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;} else{ /* srfi-4.scm:441: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[79]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k2945 in doloop638 in k2933 in srfi-4#list->u16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2947,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_2940(t4,((C_word*)t0)[5],t2,t3);} /* srfi-4#list->s16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2964,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[55]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2971,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:442: make-s16vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k2969 in srfi-4#list->s16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_2971,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2976,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li49),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_2976(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop651 in k2969 in srfi-4#list->s16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_2976(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2976,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2983,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_i_s16vector_set(((C_word*)t0)[2],t3,t6); t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;} else{ /* srfi-4.scm:442: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[79]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k2981 in doloop651 in k2969 in srfi-4#list->s16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_2983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2983,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_2976(t4,((C_word*)t0)[5],t2,t3);} /* srfi-4#list->u32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3000,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[59]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3007,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:443: make-u32vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3005 in srfi-4#list->u32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3007,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3012,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li51),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_3012(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop664 in k3005 in srfi-4#list->u32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3012(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3012,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3019,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_i_u32vector_set(((C_word*)t0)[2],t3,t6); t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;} else{ /* srfi-4.scm:443: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[79]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k3017 in doloop664 in k3005 in srfi-4#list->u32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3019,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_3012(t4,((C_word*)t0)[5],t2,t3);} /* srfi-4#list->s32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3036,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[67]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3043,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:444: make-s32vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3041 in srfi-4#list->s32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3043,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3048,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li53),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_3048(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop677 in k3041 in srfi-4#list->s32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3048(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3048,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3055,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_i_s32vector_set(((C_word*)t0)[2],t3,t6); t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;} else{ /* srfi-4.scm:444: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[79]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k3053 in doloop677 in k3041 in srfi-4#list->s32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3055,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_3048(t4,((C_word*)t0)[5],t2,t3);} /* srfi-4#list->u64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3072,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[63]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3079,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:445: make-u64vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3077 in srfi-4#list->u64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3079,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3084,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li55),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_3084(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop690 in k3077 in srfi-4#list->u64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3084(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3084,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3091,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_i_u64vector_set(((C_word*)t0)[2],t3,t6); t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;} else{ /* srfi-4.scm:445: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[79]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k3089 in doloop690 in k3077 in srfi-4#list->u64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3091,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_3084(t4,((C_word*)t0)[5],t2,t3);} /* srfi-4#list->s64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3108,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[70]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3115,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:446: make-s64vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k3113 in srfi-4#list->s64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3115,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3120,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li57),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_3120(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop703 in k3113 in srfi-4#list->s64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3120(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3120,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3127,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_i_s64vector_set(((C_word*)t0)[2],t3,t6); t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;} else{ /* srfi-4.scm:446: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[79]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k3125 in doloop703 in k3113 in srfi-4#list->s64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3127,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_3120(t4,((C_word*)t0)[5],t2,t3);} /* srfi-4#list->f32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3144,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[73]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3151,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:447: make-f32vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3149 in srfi-4#list->f32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3151,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3156,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li59),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_3156(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop716 in k3149 in srfi-4#list->f32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3156(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3156,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3163,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_i_f32vector_set(((C_word*)t0)[2],t3,t6); t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;} else{ /* srfi-4.scm:447: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[79]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k3161 in doloop716 in k3149 in srfi-4#list->f32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3163,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_3156(t4,((C_word*)t0)[5],t2,t3);} /* srfi-4#list->f64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3180,3,av);} a=C_alloc(4); t3=C_i_check_list_2(t2,lf[76]); t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3187,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:448: make-f64vector */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3185 in srfi-4#list->f64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_3187,2,av);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3192,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li61),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_3192(t6,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} /* doloop729 in k3185 in srfi-4#list->f64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3192(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3192,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3199,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_slot(t2,C_fix(0)); t7=C_i_f64vector_set(((C_word*)t0)[2],t3,t6); t8=C_slot(t2,C_fix(1)); t9=C_fixnum_plus(t3,C_fix(1)); t11=t1; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;} else{ /* srfi-4.scm:448: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[79]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}} /* k3197 in doloop729 in k3185 in srfi-4#list->f64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3199,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_3192(t4,((C_word*)t0)[5],t2,t3);} /* srfi-4#u8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3216,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-4.scm:454: list->u8vector */ t3=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* srfi-4#s8vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3222,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-4.scm:457: list->s8vector */ t3=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* srfi-4#u16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3228,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-4.scm:460: list->u16vector */ t3=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* srfi-4#s16vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3234,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-4.scm:463: list->s16vector */ t3=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* srfi-4#u32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3240,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-4.scm:466: list->u32vector */ t3=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* srfi-4#s32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3246,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-4.scm:469: list->s32vector */ t3=*((C_word*)lf[84]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* srfi-4#u64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3252,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-4.scm:472: list->u64vector */ t3=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* srfi-4#s64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3258,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-4.scm:475: list->s64vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[86]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[86]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} /* srfi-4#f32vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3264,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-4.scm:478: list->f32vector */ t3=*((C_word*)lf[87]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* srfi-4#f64vector in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_3270,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-4.scm:481: list->f64vector */ t3=*((C_word*)lf[88]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* srfi-4#u8vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3276,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[43],lf[100]); t4=C_u_i_u8vector_length(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3285,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li73),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3285(t8,t1,C_fix(0));} /* loop in srfi-4#u8vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3285(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3285,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_u_i_u8vector_ref(((C_word*)t0)[3],t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3300,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:504: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* k3298 in loop in srfi-4#u8vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3300,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* srfi-4#s8vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3306,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[49],lf[102]); t4=C_u_i_s8vector_length(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3315,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li75),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3315(t8,t1,C_fix(0));} /* loop in srfi-4#s8vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3315(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3315,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_u_i_s8vector_ref(((C_word*)t0)[3],t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3330,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:505: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* k3328 in loop in srfi-4#s8vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3330,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* srfi-4#u16vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3336,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[52],lf[104]); t4=C_u_i_u16vector_length(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3345,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li77),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3345(t8,t1,C_fix(0));} /* loop in srfi-4#u16vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3345(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3345,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_u_i_u16vector_ref(((C_word*)t0)[3],t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3360,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:506: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* k3358 in loop in srfi-4#u16vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3360,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* srfi-4#s16vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3366,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[55],lf[106]); t4=C_u_i_s16vector_length(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3375,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li79),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3375(t8,t1,C_fix(0));} /* loop in srfi-4#s16vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3375(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3375,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_u_i_s16vector_ref(((C_word*)t0)[3],t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3390,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:507: loop */ t7=t4; t8=t5; t1=t7; t2=t8; goto loop;}} /* k3388 in loop in srfi-4#s16vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_3390,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* srfi-4#u32vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3396,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[59],lf[108]); t4=C_u_i_u32vector_length(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3405,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li81),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3405(t8,t1,C_fix(0));} /* loop in srfi-4#u32vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3405(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3405,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3419,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:509: loop */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* k3417 in loop in srfi-4#u32vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_3419,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,C_a_u_i_u32vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* srfi-4#s32vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3425,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[67],lf[110]); t4=C_u_i_s32vector_length(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3434,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li83),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3434(t8,t1,C_fix(0));} /* loop in srfi-4#s32vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3434(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3434,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3448,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:510: loop */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* k3446 in loop in srfi-4#s32vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_3448,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,C_a_u_i_s32vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* srfi-4#u64vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3454,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[63],lf[112]); t4=C_u_i_u64vector_length(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3463,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li85),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3463(t8,t1,C_fix(0));} /* loop in srfi-4#u64vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3463(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3463,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3477,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:511: loop */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* k3475 in loop in srfi-4#u64vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,1)))){ C_save_and_reclaim((void *)f_3477,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,C_a_u_i_u64vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* srfi-4#s64vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3483,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[70],lf[114]); t4=C_u_i_s64vector_length(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3492,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li87),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3492(t8,t1,C_fix(0));} /* loop in srfi-4#s64vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3492(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3492,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3506,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:512: loop */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* k3504 in loop in srfi-4#s64vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,1)))){ C_save_and_reclaim((void *)f_3506,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,C_a_u_i_s64vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* srfi-4#f32vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3512,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[73],lf[116]); t4=C_u_i_f32vector_length(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3521,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li89),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3521(t8,t1,C_fix(0));} /* loop in srfi-4#f32vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3521(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3521,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3535,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:513: loop */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* k3533 in loop in srfi-4#f32vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_3535,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,C_a_u_i_f32vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* srfi-4#f64vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3541,3,av);} a=C_alloc(8); t3=C_i_check_structure_2(t2,lf[76],lf[118]); t4=C_u_i_f64vector_length(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3550,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li91),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3550(t8,t1,C_fix(0));} /* loop in srfi-4#f64vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3550(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3550,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3564,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(t2,C_fix(1)); /* srfi-4.scm:514: loop */ t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* k3562 in loop in srfi-4#f64vector->list in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_3564,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,C_a_u_i_f64vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* srfi-4#u8vector? in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3570,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_u8vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#s8vector? in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3573,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_s8vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#u16vector? in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3576,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_u16vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#s16vector? in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3579,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_s16vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#u32vector? in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3582,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_u32vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#s32vector? in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3585,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_s32vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#u64vector? in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3588,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_u64vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#s64vector? in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3591,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_s64vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#f32vector? in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3594,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_f32vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#f64vector? in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3597,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_f64vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* srfi-4#pack-copy in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3612(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3612,3,t1,t2,t3);} a=C_alloc(5); t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3614,a[2]=t2,a[3]=t3,a[4]=((C_word)li103),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_3614 in srfi-4#pack-copy in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3614,3,av);} a=C_alloc(4); t3=C_i_check_structure_2(t2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3624,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_block_size(t5); /* srfi-4.scm:544: ##sys#make-blob */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[131]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[131]+1); av2[1]=t6; av2[2]=t7; tp(3,av2);}} /* k3622 */ static void C_ccall f_3624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3624,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_copy_block(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* srfi-4#unpack in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3630(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3630,4,t1,t2,t3,t4);} a=C_alloc(6); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3632,a[2]=t4,a[3]=t3,a[4]=t2,a[5]=((C_word)li105),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* f_3632 in srfi-4#unpack in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3632,3,av);} a=C_alloc(8); t3=C_i_check_bytevector_2(t2,((C_word*)t0)[2]); t4=C_block_size(t2); t5=t4; t6=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[3]); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3648,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=t5,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); if(C_truep(t6)){ t8=t7; f_3648(t8,t6);} else{ t8=C_fixnum_modulo(t5,((C_word*)t0)[3]); t9=t7; f_3648(t9,C_eqp(C_fix(0),t8));}} /* k3646 */ static void C_fcall f_3648(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){ C_save_and_reclaim_args((void *)trf_3648,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_a_i_record2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* srfi-4.scm:554: ##sys#error */ t2=*((C_word*)lf[32]+1);{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[133]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}} /* srfi-4#unpack-copy in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_fcall f_3660(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_3660,4,t1,t2,t3,t4);} a=C_alloc(6); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3662,a[2]=t4,a[3]=t3,a[4]=t2,a[5]=((C_word)li107),tmp=(C_word)a,a+=6,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* f_3662 in srfi-4#unpack-copy in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3662,3,av);} a=C_alloc(8); t3=C_i_check_bytevector_2(t2,((C_word*)t0)[2]); t4=C_block_size(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3672,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],a[7]=t5,tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:560: ##sys#make-blob */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[131]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[131]+1); av2[1]=t6; av2[2]=t5; tp(3,av2);}} /* k3670 */ static void C_ccall f_3672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3672,2,av);} a=C_alloc(9); t2=t1; t3=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3681,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); if(C_truep(t3)){ t5=t4; f_3681(t5,t3);} else{ t5=C_fixnum_modulo(((C_word*)t0)[7],((C_word*)t0)[2]); t6=t4; f_3681(t6,C_eqp(C_fix(0),t5));}} /* k3679 in k3670 */ static void C_fcall f_3681(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){ C_save_and_reclaim_args((void *)trf_3681,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_copy_block(((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=C_a_i_record2(&a,2,((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* srfi-4.scm:566: ##sys#error */ t2=*((C_word*)lf[32]+1);{ C_word av2[7]; av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[135]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[7]; av2[6]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}} /* k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3736,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[156]+1 /* (set! srfi-4#u8vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3740,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:580: pack-copy */ f_3612(t3,lf[49],lf[264]);} /* k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3740,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[157]+1 /* (set! srfi-4#s8vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3744,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:581: pack-copy */ f_3612(t3,lf[52],lf[263]);} /* k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3744,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[158]+1 /* (set! srfi-4#u16vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3748,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:582: pack-copy */ f_3612(t3,lf[55],lf[262]);} /* k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3748,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[159]+1 /* (set! srfi-4#s16vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3752,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:583: pack-copy */ f_3612(t3,lf[59],lf[261]);} /* k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3752,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[160]+1 /* (set! srfi-4#u32vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3756,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:584: pack-copy */ f_3612(t3,lf[67],lf[260]);} /* k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3756(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3756,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[161]+1 /* (set! srfi-4#s32vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3760,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:585: pack-copy */ f_3612(t3,lf[63],lf[259]);} /* k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3760,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[162]+1 /* (set! srfi-4#u64vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3764,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:586: pack-copy */ f_3612(t3,lf[70],lf[258]);} /* k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_3764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3764,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[163]+1 /* (set! srfi-4#s64vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3768,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:587: pack-copy */ f_3612(t3,lf[73],lf[257]);} /* k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 in ... */ static void C_ccall f_3768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3768,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[164]+1 /* (set! srfi-4#f32vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3772,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:588: pack-copy */ f_3612(t3,lf[76],lf[256]);} /* k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in ... */ static void C_ccall f_3772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3772,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[165]+1 /* (set! srfi-4#f64vector->blob ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3776,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:590: unpack */ f_3630(t3,lf[43],C_SCHEME_TRUE,lf[255]);} /* k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in ... */ static void C_ccall f_3776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3776,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[166]+1 /* (set! srfi-4#blob->u8vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3780,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:591: unpack */ f_3630(t3,lf[49],C_SCHEME_TRUE,lf[254]);} /* k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in ... */ static void C_ccall f_3780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3780,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[167]+1 /* (set! srfi-4#blob->s8vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3784,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:592: unpack */ f_3630(t3,lf[52],C_fix(2),lf[253]);} /* k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in ... */ static void C_ccall f_3784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3784,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[168]+1 /* (set! srfi-4#blob->u16vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3788,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:593: unpack */ f_3630(t3,lf[55],C_fix(2),lf[252]);} /* k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in ... */ static void C_ccall f_3788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3788,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[169]+1 /* (set! srfi-4#blob->s16vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3792,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:594: unpack */ f_3630(t3,lf[59],C_fix(4),lf[251]);} /* k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in ... */ static void C_ccall f_3792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3792,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[170]+1 /* (set! srfi-4#blob->u32vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3796,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:595: unpack */ f_3630(t3,lf[67],C_fix(4),lf[250]);} /* k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in k1590 in ... */ static void C_ccall f_3796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3796,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[171]+1 /* (set! srfi-4#blob->s32vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3800,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:596: unpack */ f_3630(t3,lf[63],C_fix(4),lf[249]);} /* k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in k1594 in ... */ static void C_ccall f_3800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3800,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[172]+1 /* (set! srfi-4#blob->u64vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3804,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:597: unpack */ f_3630(t3,lf[70],C_fix(4),lf[248]);} /* k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in k1598 in ... */ static void C_ccall f_3804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3804,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[173]+1 /* (set! srfi-4#blob->s64vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3808,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:598: unpack */ f_3630(t3,lf[73],C_fix(4),lf[247]);} /* k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in k1602 in ... */ static void C_ccall f_3808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3808,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[174]+1 /* (set! srfi-4#blob->f32vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3812,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:599: unpack */ f_3630(t3,lf[76],C_fix(8),lf[246]);} /* k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in k1606 in ... */ static void C_ccall f_3812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3812,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[175]+1 /* (set! srfi-4#blob->f64vector/shared ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3816,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:601: unpack-copy */ f_3660(t3,lf[43],C_SCHEME_TRUE,lf[245]);} /* k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in k1610 in ... */ static void C_ccall f_3816(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3816,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[176]+1 /* (set! srfi-4#blob->u8vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3820,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:602: unpack-copy */ f_3660(t3,lf[49],C_SCHEME_TRUE,lf[244]);} /* k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in k3734 in ... */ static void C_ccall f_3820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3820,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[177]+1 /* (set! srfi-4#blob->s8vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3824,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:603: unpack-copy */ f_3660(t3,lf[52],C_fix(2),lf[243]);} /* k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in k3738 in ... */ static void C_ccall f_3824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3824,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[178]+1 /* (set! srfi-4#blob->u16vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3828,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:604: unpack-copy */ f_3660(t3,lf[55],C_fix(2),lf[242]);} /* k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in k3742 in ... */ static void C_ccall f_3828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3828,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[179]+1 /* (set! srfi-4#blob->s16vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3832,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:605: unpack-copy */ f_3660(t3,lf[59],C_fix(4),lf[241]);} /* k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in k3746 in ... */ static void C_ccall f_3832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3832,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[180]+1 /* (set! srfi-4#blob->u32vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3836,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:606: unpack-copy */ f_3660(t3,lf[67],C_fix(4),lf[240]);} /* k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in k3750 in ... */ static void C_ccall f_3836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3836,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[181]+1 /* (set! srfi-4#blob->s32vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3840,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:607: unpack-copy */ f_3660(t3,lf[63],C_fix(4),lf[239]);} /* k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in k3754 in ... */ static void C_ccall f_3840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3840,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[182]+1 /* (set! srfi-4#blob->u64vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3844,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:608: unpack-copy */ f_3660(t3,lf[70],C_fix(4),lf[238]);} /* k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in k3758 in ... */ static void C_ccall f_3844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3844,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[183]+1 /* (set! srfi-4#blob->s64vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3848,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:609: unpack-copy */ f_3660(t3,lf[73],C_fix(4),lf[237]);} /* k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in k3762 in ... */ static void C_ccall f_3848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3848,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[184]+1 /* (set! srfi-4#blob->f32vector ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3852,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:610: unpack-copy */ f_3660(t3,lf[76],C_fix(8),lf[236]);} /* k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in k3766 in ... */ static void C_ccall f_3852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(114,c,8)))){ C_save_and_reclaim((void *)f_3852,2,av);} a=C_alloc(114); t2=C_mutate((C_word*)lf[185]+1 /* (set! srfi-4#blob->f64vector ...) */,t1); t3=*((C_word*)lf[186]+1); t4=C_a_i_list(&a,20,lf[187],*((C_word*)lf[78]+1),lf[188],*((C_word*)lf[80]+1),lf[189],*((C_word*)lf[81]+1),lf[190],*((C_word*)lf[82]+1),lf[191],*((C_word*)lf[83]+1),lf[192],*((C_word*)lf[84]+1),lf[193],*((C_word*)lf[85]+1),lf[194],*((C_word*)lf[86]+1),lf[195],*((C_word*)lf[87]+1),lf[196],*((C_word*)lf[88]+1)); t5=t4; t6=C_mutate((C_word*)lf[186]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3857,a[2]=t5,a[3]=t3,a[4]=((C_word)li120),tmp=(C_word)a,a+=5,tmp)); t7=*((C_word*)lf[202]+1); t8=C_mutate((C_word*)lf[202]+1 /* (set! ##sys#user-print-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3917,a[2]=t7,a[3]=((C_word)li121),tmp=(C_word)a,a+=4,tmp)); t9=C_mutate(&lf[204] /* (set! srfi-4#subnvector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3991,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[205]+1 /* (set! srfi-4#subu8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4076,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[207]+1 /* (set! srfi-4#subu16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4082,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[209]+1 /* (set! srfi-4#subu32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4088,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[211]+1 /* (set! srfi-4#subu64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4094,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[213]+1 /* (set! srfi-4#subs8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4100,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[215]+1 /* (set! srfi-4#subs16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4106,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[217]+1 /* (set! srfi-4#subs32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4112,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[219]+1 /* (set! srfi-4#subs64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4118,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[221]+1 /* (set! srfi-4#subf32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4124,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[223]+1 /* (set! srfi-4#subf64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4130,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[225]+1 /* (set! srfi-4#write-u8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4136,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[228]+1 /* (set! srfi-4#read-u8vector! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4305,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[232]+1 /* (set! srfi-4#read-u8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4385,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp)); t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4446,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:722: chicken.platform#register-feature! */ t24=*((C_word*)lf[235]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t24; av2[1]=t23; av2[2]=lf[0]; ((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} /* ##sys#user-read-hook in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_3857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3857,4,av);} a=C_alloc(5); t4=t2; if(C_truep((C_truep(C_eqp(t4,C_make_character(117)))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,C_make_character(115)))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,C_make_character(102)))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,C_make_character(85)))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,C_make_character(83)))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,C_make_character(70)))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3866,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* srfi-4.scm:630: read */ t6=*((C_word*)lf[199]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* srfi-4.scm:635: old-hook */ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}} /* k3864 in ##sys#user-read-hook in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in ... */ static void C_ccall f_3866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3866,2,av);} a=C_alloc(4); t2=C_i_symbolp(t1); t3=(C_truep(t2)?t1:C_SCHEME_FALSE); t4=C_eqp(t3,lf[197]); t5=(C_truep(t4)?t4:C_eqp(t3,lf[198])); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_memq(t3,((C_word*)t0)[3]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3885,a[2]=((C_word*)t0)[4],a[3]=((C_word)li119),tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:632: g955 */ t8=t7; f_3885(t8,((C_word*)t0)[2],t6);} else{ /* srfi-4.scm:634: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[200]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[200]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[201]; av2[4]=t3; tp(5,av2);}}}} /* g955 in k3864 in ##sys#user-read-hook in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in ... */ static void C_fcall f_3885(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_3885,3,t0,t1,t2);} a=C_alloc(4); t3=C_slot(t2,C_fix(1)); t4=C_slot(t3,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3896,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:633: read */ t7=*((C_word*)lf[199]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k3894 in g955 in k3864 in ##sys#user-read-hook in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in ... */ static void C_ccall f_3896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3896,2,av);} /* srfi-4.scm:633: g958 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* ##sys#user-print-hook in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_3917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(126,c,4)))){ C_save_and_reclaim((void *)f_3917,5,av);} a=C_alloc(126); t5=C_slot(t2,C_fix(0)); t6=C_a_i_list(&a,3,lf[43],lf[187],*((C_word*)lf[99]+1)); t7=C_a_i_list(&a,3,lf[49],lf[188],*((C_word*)lf[101]+1)); t8=C_a_i_list(&a,3,lf[52],lf[189],*((C_word*)lf[103]+1)); t9=C_a_i_list(&a,3,lf[55],lf[190],*((C_word*)lf[105]+1)); t10=C_a_i_list(&a,3,lf[59],lf[191],*((C_word*)lf[107]+1)); t11=C_a_i_list(&a,3,lf[67],lf[192],*((C_word*)lf[109]+1)); t12=C_a_i_list(&a,3,lf[63],lf[193],*((C_word*)lf[111]+1)); t13=C_a_i_list(&a,3,lf[70],lf[194],*((C_word*)lf[113]+1)); t14=C_a_i_list(&a,3,lf[73],lf[195],*((C_word*)lf[115]+1)); t15=C_a_i_list(&a,3,lf[76],lf[196],*((C_word*)lf[117]+1)); t16=C_a_i_list(&a,10,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15); t17=C_u_i_assq(t5,t16); if(C_truep(t17)){ t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3929,a[2]=t17,a[3]=t1,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* srfi-4.scm:655: ##sys#print */ t19=*((C_word*)lf[203]+1);{ C_word *av2=av; av2[0]=t19; av2[1]=t18; av2[2]=C_make_character(35); av2[3]=C_SCHEME_FALSE; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}} else{ /* srfi-4.scm:658: old-hook */ t18=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t18; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; ((C_proc)C_fast_retrieve_proc(t18))(5,av2);}}} /* k3927 in ##sys#user-print-hook in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in ... */ static void C_ccall f_3929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3929,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3932,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_cadr(((C_word*)t0)[2]); /* srfi-4.scm:656: ##sys#print */ t4=*((C_word*)lf[203]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3930 in k3927 in ##sys#user-print-hook in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in ... */ static void C_ccall f_3932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3932,2,av);} a=C_alloc(4); t2=C_i_caddr(((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3942,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* srfi-4.scm:657: g971 */ t4=t2;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k3940 in k3930 in k3927 in ##sys#user-print-hook in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in ... */ static void C_ccall f_3942(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3942,2,av);} /* srfi-4.scm:657: ##sys#print */ t2=*((C_word*)lf[203]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* srfi-4#subnvector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_fcall f_3991(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_3991,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(16); t8=C_i_check_structure_2(t2,t3,t7); t9=C_slot(t2,C_fix(1)); t10=t9; t11=C_block_size(t10); t12=C_u_fixnum_divide(t11,t4); t13=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4025,a[2]=t6,a[3]=t5,a[4]=t4,a[5]=t3,a[6]=t10,a[7]=t1,a[8]=t12,a[9]=t7,tmp=(C_word)a,a+=10,tmp); t14=C_fixnum_plus(t12,C_fix(1)); t15=t13; t16=t5; t17=t14; t18=t7; t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4006,a[2]=t16,a[3]=t17,a[4]=t15,a[5]=t18,tmp=(C_word)a,a+=6,tmp); /* srfi-4.scm:102: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[37]+1); av2[1]=t19; av2[2]=t16; av2[3]=t18; tp(4,av2);}} /* k4004 in srfi-4#subnvector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in ... */ static void C_ccall f_4006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4006,2,av);} t2=C_fixnum_less_or_equal_p(C_fix(0),((C_word*)t0)[2]); t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:104: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t4; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[2]; av2[5]=C_fix(0); av2[6]=((C_word*)t0)[3]; tp(7,av2);}}} /* k4023 in srfi-4#subnvector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in ... */ static void C_ccall f_4025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_4025,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4049,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_fixnum_plus(((C_word*)t0)[8],C_fix(1)); t4=t2; t5=((C_word*)t0)[2]; t6=t3; t7=((C_word*)t0)[9]; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4030,a[2]=t5,a[3]=t6,a[4]=t4,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* srfi-4.scm:102: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[37]+1); av2[1]=t8; av2[2]=t5; av2[3]=t7; tp(4,av2);}} /* k4028 in k4023 in srfi-4#subnvector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in ... */ static void C_ccall f_4030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4030,2,av);} t2=C_fixnum_less_or_equal_p(C_fix(0),((C_word*)t0)[2]); t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:104: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t4; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[2]; av2[5]=C_fix(0); av2[6]=((C_word*)t0)[3]; tp(7,av2);}}} /* k4047 in k4023 in srfi-4#subnvector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in ... */ static void C_ccall f_4049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_4049,2,av);} a=C_alloc(8); t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_fixnum_times(((C_word*)t0)[4],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4055,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=t4,a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* srfi-4.scm:671: ##sys#allocate-vector */ t6=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* k4053 in k4047 in k4023 in srfi-4#subnvector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in ... */ static void C_ccall f_4055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4055,2,av);} a=C_alloc(3); t2=C_string_to_bytevector(t1); t3=C_a_i_record2(&a,2,((C_word*)t0)[2],t1); t4=C_fixnum_times(((C_word*)t0)[3],((C_word*)t0)[4]); t5=C_copy_subvector(t1,((C_word*)t0)[5],C_fix(0),t4,((C_word*)t0)[6]); t6=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t6; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* srfi-4#subu8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4076,5,av);} /* srfi-4.scm:677: subnvector */ f_3991(t1,t2,lf[43],C_fix(1),t3,t4,lf[206]);} /* srfi-4#subu16vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4082,5,av);} /* srfi-4.scm:678: subnvector */ f_3991(t1,t2,lf[52],C_fix(2),t3,t4,lf[208]);} /* srfi-4#subu32vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4088,5,av);} /* srfi-4.scm:679: subnvector */ f_3991(t1,t2,lf[59],C_fix(4),t3,t4,lf[210]);} /* srfi-4#subu64vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4094,5,av);} /* srfi-4.scm:680: subnvector */ f_3991(t1,t2,lf[63],C_fix(8),t3,t4,lf[212]);} /* srfi-4#subs8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4100,5,av);} /* srfi-4.scm:681: subnvector */ f_3991(t1,t2,lf[49],C_fix(1),t3,t4,lf[214]);} /* srfi-4#subs16vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4106,5,av);} /* srfi-4.scm:682: subnvector */ f_3991(t1,t2,lf[55],C_fix(2),t3,t4,lf[216]);} /* srfi-4#subs32vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4112,5,av);} /* srfi-4.scm:683: subnvector */ f_3991(t1,t2,lf[67],C_fix(4),t3,t4,lf[218]);} /* srfi-4#subs64vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4118,5,av);} /* srfi-4.scm:684: subnvector */ f_3991(t1,t2,lf[70],C_fix(8),t3,t4,lf[220]);} /* srfi-4#subf32vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4124,5,av);} /* srfi-4.scm:685: subnvector */ f_3991(t1,t2,lf[73],C_fix(4),t3,t4,lf[222]);} /* srfi-4#subf64vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4130,5,av);} /* srfi-4.scm:686: subnvector */ f_3991(t1,t2,lf[76],C_fix(8),t3,t4,lf[224]);} /* srfi-4#write-u8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +13,c,3)))){ C_save_and_reclaim((void*)f_4136,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+13); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[226]+1):C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_fix(0):C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=C_i_nullp(t13); t15=(C_truep(t14)?C_SCHEME_FALSE:C_i_car(t13)); t16=t15; t17=C_i_nullp(t13); t18=(C_truep(t17)?C_SCHEME_END_OF_LIST:C_i_cdr(t13)); t19=C_i_check_structure_2(t2,lf[43],lf[227]); t20=C_i_check_port_2(t6,C_fix(2),C_SCHEME_TRUE,lf[227]); t21=C_u_i_8vector_length(t2); t22=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4185,a[2]=t6,a[3]=t2,a[4]=t1,a[5]=t16,a[6]=t11,a[7]=t21,tmp=(C_word)a,a+=8,tmp); t23=(C_truep(t16)?C_fixnum_plus(t16,C_fix(1)):C_fixnum_plus(t21,C_fix(1))); t24=t22; t25=t11; t26=t23; t27=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4166,a[2]=t25,a[3]=t26,a[4]=t24,tmp=(C_word)a,a+=5,tmp); /* srfi-4.scm:102: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[37]+1); av2[1]=t27; av2[2]=t25; av2[3]=lf[227]; tp(4,av2);}} /* k4164 in srfi-4#write-u8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in ... */ static void C_ccall f_4166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4166,2,av);} t2=C_fixnum_less_or_equal_p(C_fix(0),((C_word*)t0)[2]); t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:104: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t4; av2[3]=lf[227]; av2[4]=((C_word*)t0)[2]; av2[5]=C_fix(0); av2[6]=((C_word*)t0)[3]; tp(7,av2);}}} /* k4183 in srfi-4#write-u8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in ... */ static void C_ccall f_4185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_4185,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4188,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[5])){ t3=C_fixnum_plus(((C_word*)t0)[7],C_fix(1)); t4=t2; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=t3; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4236,a[2]=t6,a[3]=t5,a[4]=t7,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* srfi-4.scm:102: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[37]+1); av2[1]=t8; av2[2]=t5; av2[3]=lf[227]; tp(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_4188(2,av2);}}} /* k4186 in k4183 in srfi-4#write-u8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in ... */ static void C_ccall f_4188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4188,2,av);} a=C_alloc(9); t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_slot(t2,C_fix(3)); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4201,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t6=C_eqp(((C_word*)t0)[6],C_fix(0)); if(C_truep(t6)){ t7=C_i_not(((C_word*)t0)[5]); t8=t5; f_4201(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[5],((C_word*)t0)[7])));} else{ t7=t5; f_4201(t7,C_SCHEME_FALSE);}} /* k4199 in k4186 in k4183 in srfi-4#write-u8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in ... */ static void C_fcall f_4201(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_4201,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* srfi-4.scm:691: g1092 */ t3=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4211,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[6])){ /* srfi-4.scm:700: subu8vector */ t3=*((C_word*)lf[205]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ /* srfi-4.scm:700: subu8vector */ t3=*((C_word*)lf[205]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} /* k4209 in k4199 in k4186 in k4183 in srfi-4#write-u8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in ... */ static void C_ccall f_4211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_4211,2,av);} t2=C_slot(t1,C_fix(1)); /* srfi-4.scm:691: g1092 */ t3=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* k4234 in k4183 in srfi-4#write-u8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in ... */ static void C_ccall f_4236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_4236,2,av);} t2=C_fixnum_less_or_equal_p(((C_word*)t0)[2],((C_word*)t0)[3]); t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)t0)[3],((C_word*)t0)[4]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* srfi-4.scm:104: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[44]+1); av2[1]=((C_word*)t0)[5]; av2[2]=t4; av2[3]=lf[227]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[4]; tp(7,av2);}}} /* srfi-4#read-u8vector! in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,3)))){ C_save_and_reclaim((void*)f_4305,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+9); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; t5=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t6=C_i_nullp(t4); t7=(C_truep(t6)?*((C_word*)lf[229]+1):C_i_car(t4)); t8=t7; t9=C_i_nullp(t4); t10=(C_truep(t9)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t11=C_i_nullp(t10); t12=(C_truep(t11)?C_fix(0):C_i_car(t10)); t13=t12; t14=C_i_nullp(t10); t15=(C_truep(t14)?C_SCHEME_END_OF_LIST:C_i_cdr(t10)); t16=C_i_check_port_2(t8,C_fix(1),C_SCHEME_TRUE,lf[230]); t17=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4324,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t8,a[6]=t13,tmp=(C_word)a,a+=7,tmp); /* srfi-4.scm:704: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[37]+1); av2[1]=t17; av2[2]=t13; av2[3]=lf[230]; tp(4,av2);}} /* k4322 in srfi-4#read-u8vector! in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in ... */ static void C_ccall f_4324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4324,2,av);} a=C_alloc(7); t2=C_i_check_structure_2(((C_word*)t0)[2],lf[43],lf[230]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4330,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ /* srfi-4.scm:706: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[37]+1); av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=lf[230]; tp(4,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_4330(2,av2);}}} /* k4328 in k4322 in srfi-4#read-u8vector! in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in ... */ static void C_ccall f_4330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_4330,2,av);} a=C_alloc(8); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=t2; t4=C_block_size(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4345,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t5,tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t7=C_fixnum_plus(((C_word*)t0)[6],((C_word*)((C_word*)t0)[4])[1]); t8=t6; f_4345(t8,C_fixnum_less_or_equal_p(t7,t5));} else{ t7=t6; f_4345(t7,C_SCHEME_FALSE);}} /* k4343 in k4328 in k4322 in srfi-4#read-u8vector! in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in ... */ static void C_fcall f_4345(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_4345,2,t0,t1);} if(C_truep(t1)){ /* srfi-4.scm:711: chicken.io#read-string!/port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[231]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[231]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; tp(6,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[7],((C_word*)t0)[6]); t3=C_set_block_item(((C_word*)t0)[3],0,t2); /* srfi-4.scm:711: chicken.io#read-string!/port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[231]+1)); C_word av2[6]; av2[0]=*((C_word*)lf[231]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; tp(6,av2);}}} /* srfi-4#read-u8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_4385,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=t4; t6=C_i_nullp(t2); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t2)); t8=C_i_nullp(t7); t9=(C_truep(t8)?*((C_word*)lf[229]+1):C_i_car(t7)); t10=t9; t11=C_i_nullp(t7); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t13=C_i_check_port_2(t10,C_fix(1),C_SCHEME_TRUE,lf[233]); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4404,a[2]=t1,a[3]=t5,a[4]=t10,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ /* srfi-4.scm:715: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[37]+1); av2[1]=t14; av2[2]=t5; av2[3]=lf[233]; tp(4,av2);}} else{ t15=t14;{ C_word *av2=av; av2[0]=t15; av2[1]=C_SCHEME_UNDEFINED; f_4404(2,av2);}}} /* k4402 in srfi-4#read-u8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in ... */ static void C_ccall f_4404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4404,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4407,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.scm:716: chicken.io#read-string/port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[234]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[234]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k4405 in k4402 in srfi-4#read-u8vector in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in ... */ static void C_ccall f_4407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4407,2,av);} a=C_alloc(3); if(C_truep(C_eofp(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_string_to_bytevector(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record2(&a,2,lf[43],t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4444 in k3850 in k3846 in k3842 in k3838 in k3834 in k3830 in k3826 in k3822 in k3818 in k3814 in k3810 in k3806 in k3802 in k3798 in k3794 in k3790 in k3786 in k3782 in k3778 in k3774 in k3770 in ... */ static void C_ccall f_4446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4446,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a4447 in k1606 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_4448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_4448,4,av);} a=C_alloc(4); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_f64vector_ref(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4450 in k1602 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_4451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_4451,4,av);} a=C_alloc(4); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_f32vector_ref(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4453 in k1598 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_4454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_4454,4,av);} a=C_alloc(7); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_s64vector_ref(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4456 in k1594 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_4457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_4457,4,av);} a=C_alloc(7); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_u64vector_ref(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4459 in k1590 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_4460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_4460,4,av);} a=C_alloc(4); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_s32vector_ref(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4462 in k1586 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_4463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_4463,4,av);} a=C_alloc(4); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_u32vector_ref(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4465 in k1582 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_4466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4466,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_s16vector_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4468 in k1578 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_4469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4469,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_u16vector_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4471 in k1574 in k1510 in k1507 in k1504 */ static void C_ccall f_4472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4472,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_s8vector_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4474 in k1510 in k1507 in k1504 */ static void C_ccall f_4475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4475,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_u8vector_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_srfi_2d4_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("srfi-4")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_srfi_2d4_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1782))){ C_save(t1); C_rereclaim2(1782*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,277); lf[0]=C_h_intern(&lf[0],6, C_text("srfi-4")); lf[1]=C_h_intern(&lf[1],7, C_text("srfi-4#")); lf[2]=C_h_intern(&lf[2],22, C_text("srfi-4#u8vector-length")); lf[3]=C_h_intern(&lf[3],22, C_text("srfi-4#s8vector-length")); lf[4]=C_h_intern(&lf[4],23, C_text("srfi-4#u16vector-length")); lf[5]=C_h_intern(&lf[5],23, C_text("srfi-4#s16vector-length")); lf[6]=C_h_intern(&lf[6],23, C_text("srfi-4#u32vector-length")); lf[7]=C_h_intern(&lf[7],23, C_text("srfi-4#s32vector-length")); lf[8]=C_h_intern(&lf[8],23, C_text("srfi-4#u64vector-length")); lf[9]=C_h_intern(&lf[9],23, C_text("srfi-4#s64vector-length")); lf[10]=C_h_intern(&lf[10],23, C_text("srfi-4#f32vector-length")); lf[11]=C_h_intern(&lf[11],23, C_text("srfi-4#f64vector-length")); lf[12]=C_h_intern(&lf[12],20, C_text("srfi-4#u8vector-set!")); lf[13]=C_h_intern(&lf[13],20, C_text("srfi-4#s8vector-set!")); lf[14]=C_h_intern(&lf[14],21, C_text("srfi-4#u16vector-set!")); lf[15]=C_h_intern(&lf[15],21, C_text("srfi-4#s16vector-set!")); lf[16]=C_h_intern(&lf[16],21, C_text("srfi-4#u32vector-set!")); lf[17]=C_h_intern(&lf[17],21, C_text("srfi-4#s32vector-set!")); lf[18]=C_h_intern(&lf[18],21, C_text("srfi-4#u64vector-set!")); lf[19]=C_h_intern(&lf[19],21, C_text("srfi-4#s64vector-set!")); lf[20]=C_h_intern(&lf[20],21, C_text("srfi-4#f32vector-set!")); lf[21]=C_h_intern(&lf[21],21, C_text("srfi-4#f64vector-set!")); lf[22]=C_h_intern(&lf[22],19, C_text("srfi-4#u8vector-ref")); lf[23]=C_h_intern(&lf[23],19, C_text("srfi-4#s8vector-ref")); lf[24]=C_h_intern(&lf[24],20, C_text("srfi-4#u16vector-ref")); lf[25]=C_h_intern(&lf[25],20, C_text("srfi-4#s16vector-ref")); lf[26]=C_h_intern(&lf[26],20, C_text("srfi-4#u32vector-ref")); lf[27]=C_h_intern(&lf[27],20, C_text("srfi-4#s32vector-ref")); lf[28]=C_h_intern(&lf[28],20, C_text("srfi-4#u64vector-ref")); lf[29]=C_h_intern(&lf[29],20, C_text("srfi-4#s64vector-ref")); lf[30]=C_h_intern(&lf[30],20, C_text("srfi-4#f32vector-ref")); lf[31]=C_h_intern(&lf[31],20, C_text("srfi-4#f64vector-ref")); lf[32]=C_h_intern(&lf[32],11, C_text("##sys#error")); lf[33]=C_decode_literal(C_heaptop,C_text("\376B\000\000:not enough memory - cannot allocate external number vector")); lf[34]=C_h_intern(&lf[34],21, C_text("##sys#allocate-vector")); lf[35]=C_decode_literal(C_heaptop,C_text("\376B\000\000:overflow - cannot allocate the required number of elements")); lf[36]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020size is negative")); lf[37]=C_h_intern(&lf[37],18, C_text("##sys#check-fixnum")); lf[38]=C_h_intern(&lf[38],28, C_text("srfi-4#release-number-vector")); lf[39]=C_h_intern(&lf[39],21, C_text("release-number-vector")); lf[40]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047bad argument type - not a number vector")); lf[41]=C_h_intern(&lf[41],21, C_text("srfi-4#number-vector\077")); lf[42]=C_h_intern(&lf[42],20, C_text("srfi-4#make-u8vector")); lf[43]=C_h_intern(&lf[43],8, C_text("u8vector")); lf[44]=C_h_intern(&lf[44],16, C_text("##sys#error-hook")); lf[45]=C_h_intern(&lf[45],13, C_text("make-u8vector")); lf[46]=C_h_intern(&lf[46],26, C_text("##sys#check-exact-uinteger")); lf[47]=C_h_intern(&lf[47],25, C_text("chicken.gc#set-finalizer!")); lf[48]=C_h_intern(&lf[48],20, C_text("srfi-4#make-s8vector")); lf[49]=C_h_intern(&lf[49],8, C_text("s8vector")); lf[50]=C_h_intern(&lf[50],13, C_text("make-s8vector")); lf[51]=C_h_intern(&lf[51],21, C_text("srfi-4#make-u16vector")); lf[52]=C_h_intern(&lf[52],9, C_text("u16vector")); lf[53]=C_h_intern(&lf[53],14, C_text("make-u16vector")); lf[54]=C_h_intern(&lf[54],21, C_text("srfi-4#make-s16vector")); lf[55]=C_h_intern(&lf[55],9, C_text("s16vector")); lf[56]=C_h_intern(&lf[56],14, C_text("make-s16vector")); lf[57]=C_h_intern(&lf[57],25, C_text("##sys#check-exact-integer")); lf[58]=C_h_intern(&lf[58],21, C_text("srfi-4#make-u32vector")); lf[59]=C_h_intern(&lf[59],9, C_text("u32vector")); lf[60]=C_h_intern(&lf[60],14, C_text("make-u32vector")); lf[61]=C_decode_literal(C_heaptop,C_text("\376\302\000\000\011100000000")); lf[62]=C_h_intern(&lf[62],21, C_text("srfi-4#make-u64vector")); lf[63]=C_h_intern(&lf[63],9, C_text("u64vector")); lf[64]=C_h_intern(&lf[64],14, C_text("make-u64vector")); lf[65]=C_decode_literal(C_heaptop,C_text("\376\302\000\000\02110000000000000000")); lf[66]=C_h_intern(&lf[66],21, C_text("srfi-4#make-s32vector")); lf[67]=C_h_intern(&lf[67],9, C_text("s32vector")); lf[68]=C_h_intern(&lf[68],14, C_text("make-s32vector")); lf[69]=C_h_intern(&lf[69],21, C_text("srfi-4#make-s64vector")); lf[70]=C_h_intern(&lf[70],9, C_text("s64vector")); lf[71]=C_h_intern(&lf[71],14, C_text("make-s64vector")); lf[72]=C_h_intern(&lf[72],21, C_text("srfi-4#make-f32vector")); lf[73]=C_h_intern(&lf[73],9, C_text("f32vector")); lf[74]=C_h_intern(&lf[74],14, C_text("make-f32vector")); lf[75]=C_h_intern(&lf[75],21, C_text("srfi-4#make-f64vector")); lf[76]=C_h_intern(&lf[76],9, C_text("f64vector")); lf[77]=C_h_intern(&lf[77],14, C_text("make-f64vector")); lf[78]=C_h_intern(&lf[78],21, C_text("srfi-4#list->u8vector")); lf[79]=C_h_intern(&lf[79],29, C_text("##sys#error-not-a-proper-list")); lf[80]=C_h_intern(&lf[80],21, C_text("srfi-4#list->s8vector")); lf[81]=C_h_intern(&lf[81],22, C_text("srfi-4#list->u16vector")); lf[82]=C_h_intern(&lf[82],22, C_text("srfi-4#list->s16vector")); lf[83]=C_h_intern(&lf[83],22, C_text("srfi-4#list->u32vector")); lf[84]=C_h_intern(&lf[84],22, C_text("srfi-4#list->s32vector")); lf[85]=C_h_intern(&lf[85],22, C_text("srfi-4#list->u64vector")); lf[86]=C_h_intern(&lf[86],22, C_text("srfi-4#list->s64vector")); lf[87]=C_h_intern(&lf[87],22, C_text("srfi-4#list->f32vector")); lf[88]=C_h_intern(&lf[88],22, C_text("srfi-4#list->f64vector")); lf[89]=C_h_intern(&lf[89],15, C_text("srfi-4#u8vector")); lf[90]=C_h_intern(&lf[90],15, C_text("srfi-4#s8vector")); lf[91]=C_h_intern(&lf[91],16, C_text("srfi-4#u16vector")); lf[92]=C_h_intern(&lf[92],16, C_text("srfi-4#s16vector")); lf[93]=C_h_intern(&lf[93],16, C_text("srfi-4#u32vector")); lf[94]=C_h_intern(&lf[94],16, C_text("srfi-4#s32vector")); lf[95]=C_h_intern(&lf[95],16, C_text("srfi-4#u64vector")); lf[96]=C_h_intern(&lf[96],16, C_text("srfi-4#s64vector")); lf[97]=C_h_intern(&lf[97],16, C_text("srfi-4#f32vector")); lf[98]=C_h_intern(&lf[98],16, C_text("srfi-4#f64vector")); lf[99]=C_h_intern(&lf[99],21, C_text("srfi-4#u8vector->list")); lf[100]=C_h_intern(&lf[100],14, C_text("u8vector->list")); lf[101]=C_h_intern(&lf[101],21, C_text("srfi-4#s8vector->list")); lf[102]=C_h_intern(&lf[102],14, C_text("s8vector->list")); lf[103]=C_h_intern(&lf[103],22, C_text("srfi-4#u16vector->list")); lf[104]=C_h_intern(&lf[104],15, C_text("u16vector->list")); lf[105]=C_h_intern(&lf[105],22, C_text("srfi-4#s16vector->list")); lf[106]=C_h_intern(&lf[106],15, C_text("s16vector->list")); lf[107]=C_h_intern(&lf[107],22, C_text("srfi-4#u32vector->list")); lf[108]=C_h_intern(&lf[108],15, C_text("u32vector->list")); lf[109]=C_h_intern(&lf[109],22, C_text("srfi-4#s32vector->list")); lf[110]=C_h_intern(&lf[110],15, C_text("s32vector->list")); lf[111]=C_h_intern(&lf[111],22, C_text("srfi-4#u64vector->list")); lf[112]=C_h_intern(&lf[112],15, C_text("u64vector->list")); lf[113]=C_h_intern(&lf[113],22, C_text("srfi-4#s64vector->list")); lf[114]=C_h_intern(&lf[114],15, C_text("s64vector->list")); lf[115]=C_h_intern(&lf[115],22, C_text("srfi-4#f32vector->list")); lf[116]=C_h_intern(&lf[116],15, C_text("f32vector->list")); lf[117]=C_h_intern(&lf[117],22, C_text("srfi-4#f64vector->list")); lf[118]=C_h_intern(&lf[118],15, C_text("f64vector->list")); lf[119]=C_h_intern(&lf[119],16, C_text("srfi-4#u8vector\077")); lf[120]=C_h_intern(&lf[120],16, C_text("srfi-4#s8vector\077")); lf[121]=C_h_intern(&lf[121],17, C_text("srfi-4#u16vector\077")); lf[122]=C_h_intern(&lf[122],17, C_text("srfi-4#s16vector\077")); lf[123]=C_h_intern(&lf[123],17, C_text("srfi-4#u32vector\077")); lf[124]=C_h_intern(&lf[124],17, C_text("srfi-4#s32vector\077")); lf[125]=C_h_intern(&lf[125],17, C_text("srfi-4#u64vector\077")); lf[126]=C_h_intern(&lf[126],17, C_text("srfi-4#s64vector\077")); lf[127]=C_h_intern(&lf[127],17, C_text("srfi-4#f32vector\077")); lf[128]=C_h_intern(&lf[128],17, C_text("srfi-4#f64vector\077")); lf[129]=C_h_intern(&lf[129],20, C_text("##sys#srfi-4-vector\077")); lf[131]=C_h_intern(&lf[131],15, C_text("##sys#make-blob")); lf[133]=C_decode_literal(C_heaptop,C_text("\376B\000\000+blob does not have correct size for packing")); lf[135]=C_decode_literal(C_heaptop,C_text("\376B\000\000+blob does not have correct size for packing")); lf[136]=C_h_intern(&lf[136],21, C_text("u8vector->blob/shared")); lf[137]=C_h_intern(&lf[137],28, C_text("srfi-4#u8vector->blob/shared")); lf[138]=C_h_intern(&lf[138],21, C_text("s8vector->blob/shared")); lf[139]=C_h_intern(&lf[139],28, C_text("srfi-4#s8vector->blob/shared")); lf[140]=C_h_intern(&lf[140],22, C_text("u16vector->blob/shared")); lf[141]=C_h_intern(&lf[141],29, C_text("srfi-4#u16vector->blob/shared")); lf[142]=C_h_intern(&lf[142],22, C_text("s16vector->blob/shared")); lf[143]=C_h_intern(&lf[143],29, C_text("srfi-4#s16vector->blob/shared")); lf[144]=C_h_intern(&lf[144],22, C_text("u32vector->blob/shared")); lf[145]=C_h_intern(&lf[145],29, C_text("srfi-4#u32vector->blob/shared")); lf[146]=C_h_intern(&lf[146],22, C_text("s32vector->blob/shared")); lf[147]=C_h_intern(&lf[147],29, C_text("srfi-4#s32vector->blob/shared")); lf[148]=C_h_intern(&lf[148],22, C_text("u64vector->blob/shared")); lf[149]=C_h_intern(&lf[149],29, C_text("srfi-4#u64vector->blob/shared")); lf[150]=C_h_intern(&lf[150],22, C_text("s64vector->blob/shared")); lf[151]=C_h_intern(&lf[151],29, C_text("srfi-4#s64vector->blob/shared")); lf[152]=C_h_intern(&lf[152],22, C_text("f32vector->blob/shared")); lf[153]=C_h_intern(&lf[153],29, C_text("srfi-4#f32vector->blob/shared")); lf[154]=C_h_intern(&lf[154],22, C_text("f64vector->blob/shared")); lf[155]=C_h_intern(&lf[155],29, C_text("srfi-4#f64vector->blob/shared")); lf[156]=C_h_intern(&lf[156],21, C_text("srfi-4#u8vector->blob")); lf[157]=C_h_intern(&lf[157],21, C_text("srfi-4#s8vector->blob")); lf[158]=C_h_intern(&lf[158],22, C_text("srfi-4#u16vector->blob")); lf[159]=C_h_intern(&lf[159],22, C_text("srfi-4#s16vector->blob")); lf[160]=C_h_intern(&lf[160],22, C_text("srfi-4#u32vector->blob")); lf[161]=C_h_intern(&lf[161],22, C_text("srfi-4#s32vector->blob")); lf[162]=C_h_intern(&lf[162],22, C_text("srfi-4#u64vector->blob")); lf[163]=C_h_intern(&lf[163],22, C_text("srfi-4#s64vector->blob")); lf[164]=C_h_intern(&lf[164],22, C_text("srfi-4#f32vector->blob")); lf[165]=C_h_intern(&lf[165],22, C_text("srfi-4#f64vector->blob")); lf[166]=C_h_intern(&lf[166],28, C_text("srfi-4#blob->u8vector/shared")); lf[167]=C_h_intern(&lf[167],28, C_text("srfi-4#blob->s8vector/shared")); lf[168]=C_h_intern(&lf[168],29, C_text("srfi-4#blob->u16vector/shared")); lf[169]=C_h_intern(&lf[169],29, C_text("srfi-4#blob->s16vector/shared")); lf[170]=C_h_intern(&lf[170],29, C_text("srfi-4#blob->u32vector/shared")); lf[171]=C_h_intern(&lf[171],29, C_text("srfi-4#blob->s32vector/shared")); lf[172]=C_h_intern(&lf[172],29, C_text("srfi-4#blob->u64vector/shared")); lf[173]=C_h_intern(&lf[173],29, C_text("srfi-4#blob->s64vector/shared")); lf[174]=C_h_intern(&lf[174],29, C_text("srfi-4#blob->f32vector/shared")); lf[175]=C_h_intern(&lf[175],29, C_text("srfi-4#blob->f64vector/shared")); lf[176]=C_h_intern(&lf[176],21, C_text("srfi-4#blob->u8vector")); lf[177]=C_h_intern(&lf[177],21, C_text("srfi-4#blob->s8vector")); lf[178]=C_h_intern(&lf[178],22, C_text("srfi-4#blob->u16vector")); lf[179]=C_h_intern(&lf[179],22, C_text("srfi-4#blob->s16vector")); lf[180]=C_h_intern(&lf[180],22, C_text("srfi-4#blob->u32vector")); lf[181]=C_h_intern(&lf[181],22, C_text("srfi-4#blob->s32vector")); lf[182]=C_h_intern(&lf[182],22, C_text("srfi-4#blob->u64vector")); lf[183]=C_h_intern(&lf[183],22, C_text("srfi-4#blob->s64vector")); lf[184]=C_h_intern(&lf[184],22, C_text("srfi-4#blob->f32vector")); lf[185]=C_h_intern(&lf[185],22, C_text("srfi-4#blob->f64vector")); lf[186]=C_h_intern(&lf[186],20, C_text("##sys#user-read-hook")); lf[187]=C_h_intern(&lf[187],2, C_text("u8")); lf[188]=C_h_intern(&lf[188],2, C_text("s8")); lf[189]=C_h_intern(&lf[189],3, C_text("u16")); lf[190]=C_h_intern(&lf[190],3, C_text("s16")); lf[191]=C_h_intern(&lf[191],3, C_text("u32")); lf[192]=C_h_intern(&lf[192],3, C_text("s32")); lf[193]=C_h_intern(&lf[193],3, C_text("u64")); lf[194]=C_h_intern(&lf[194],3, C_text("s64")); lf[195]=C_h_intern(&lf[195],3, C_text("f32")); lf[196]=C_h_intern(&lf[196],3, C_text("f64")); lf[197]=C_h_intern(&lf[197],1, C_text("f")); lf[198]=C_h_intern(&lf[198],1, C_text("F")); lf[199]=C_h_intern(&lf[199],11, C_text("scheme#read")); lf[200]=C_h_intern(&lf[200],16, C_text("##sys#read-error")); lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031illegal bytevector syntax")); lf[202]=C_h_intern(&lf[202],21, C_text("##sys#user-print-hook")); lf[203]=C_h_intern(&lf[203],11, C_text("##sys#print")); lf[205]=C_h_intern(&lf[205],18, C_text("srfi-4#subu8vector")); lf[206]=C_h_intern(&lf[206],11, C_text("subu8vector")); lf[207]=C_h_intern(&lf[207],19, C_text("srfi-4#subu16vector")); lf[208]=C_h_intern(&lf[208],12, C_text("subu16vector")); lf[209]=C_h_intern(&lf[209],19, C_text("srfi-4#subu32vector")); lf[210]=C_h_intern(&lf[210],12, C_text("subu32vector")); lf[211]=C_h_intern(&lf[211],19, C_text("srfi-4#subu64vector")); lf[212]=C_h_intern(&lf[212],12, C_text("subu64vector")); lf[213]=C_h_intern(&lf[213],18, C_text("srfi-4#subs8vector")); lf[214]=C_h_intern(&lf[214],11, C_text("subs8vector")); lf[215]=C_h_intern(&lf[215],19, C_text("srfi-4#subs16vector")); lf[216]=C_h_intern(&lf[216],12, C_text("subs16vector")); lf[217]=C_h_intern(&lf[217],19, C_text("srfi-4#subs32vector")); lf[218]=C_h_intern(&lf[218],12, C_text("subs32vector")); lf[219]=C_h_intern(&lf[219],19, C_text("srfi-4#subs64vector")); lf[220]=C_h_intern(&lf[220],12, C_text("subs64vector")); lf[221]=C_h_intern(&lf[221],19, C_text("srfi-4#subf32vector")); lf[222]=C_h_intern(&lf[222],12, C_text("subf32vector")); lf[223]=C_h_intern(&lf[223],19, C_text("srfi-4#subf64vector")); lf[224]=C_h_intern(&lf[224],12, C_text("subf64vector")); lf[225]=C_h_intern(&lf[225],21, C_text("srfi-4#write-u8vector")); lf[226]=C_h_intern(&lf[226],21, C_text("##sys#standard-output")); lf[227]=C_h_intern(&lf[227],14, C_text("write-u8vector")); lf[228]=C_h_intern(&lf[228],21, C_text("srfi-4#read-u8vector!")); lf[229]=C_h_intern(&lf[229],20, C_text("##sys#standard-input")); lf[230]=C_h_intern(&lf[230],14, C_text("read-u8vector!")); lf[231]=C_h_intern(&lf[231],28, C_text("chicken.io#read-string!/port")); lf[232]=C_h_intern(&lf[232],20, C_text("srfi-4#read-u8vector")); lf[233]=C_h_intern(&lf[233],13, C_text("read-u8vector")); lf[234]=C_h_intern(&lf[234],27, C_text("chicken.io#read-string/port")); lf[235]=C_h_intern(&lf[235],34, C_text("chicken.platform#register-feature!")); lf[236]=C_h_intern(&lf[236],15, C_text("blob->f64vector")); lf[237]=C_h_intern(&lf[237],15, C_text("blob->f32vector")); lf[238]=C_h_intern(&lf[238],15, C_text("blob->s64vector")); lf[239]=C_h_intern(&lf[239],15, C_text("blob->u64vector")); lf[240]=C_h_intern(&lf[240],15, C_text("blob->s32vector")); lf[241]=C_h_intern(&lf[241],15, C_text("blob->u32vector")); lf[242]=C_h_intern(&lf[242],15, C_text("blob->s16vector")); lf[243]=C_h_intern(&lf[243],15, C_text("blob->u16vector")); lf[244]=C_h_intern(&lf[244],14, C_text("blob->s8vector")); lf[245]=C_h_intern(&lf[245],14, C_text("blob->u8vector")); lf[246]=C_h_intern(&lf[246],22, C_text("blob->f64vector/shared")); lf[247]=C_h_intern(&lf[247],22, C_text("blob->f32vector/shared")); lf[248]=C_h_intern(&lf[248],22, C_text("blob->s64vector/shared")); lf[249]=C_h_intern(&lf[249],22, C_text("blob->u64vector/shared")); lf[250]=C_h_intern(&lf[250],22, C_text("blob->s32vector/shared")); lf[251]=C_h_intern(&lf[251],22, C_text("blob->u32vector/shared")); lf[252]=C_h_intern(&lf[252],22, C_text("blob->s16vector/shared")); lf[253]=C_h_intern(&lf[253],22, C_text("blob->u16vector/shared")); lf[254]=C_h_intern(&lf[254],21, C_text("blob->s8vector/shared")); lf[255]=C_h_intern(&lf[255],21, C_text("blob->u8vector/shared")); lf[256]=C_h_intern(&lf[256],15, C_text("f64vector->blob")); lf[257]=C_h_intern(&lf[257],15, C_text("f32vector->blob")); lf[258]=C_h_intern(&lf[258],15, C_text("s64vector->blob")); lf[259]=C_h_intern(&lf[259],15, C_text("u64vector->blob")); lf[260]=C_h_intern(&lf[260],15, C_text("s32vector->blob")); lf[261]=C_h_intern(&lf[261],15, C_text("u32vector->blob")); lf[262]=C_h_intern(&lf[262],15, C_text("s16vector->blob")); lf[263]=C_h_intern(&lf[263],15, C_text("u16vector->blob")); lf[264]=C_h_intern(&lf[264],14, C_text("s8vector->blob")); lf[265]=C_h_intern(&lf[265],14, C_text("u8vector->blob")); lf[266]=C_h_intern(&lf[266],31, C_text("chicken.base#getter-with-setter")); lf[267]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#f64vector-ref v i)")); lf[268]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#f32vector-ref v i)")); lf[269]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#s64vector-ref v i)")); lf[270]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#u64vector-ref v i)")); lf[271]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#s32vector-ref v i)")); lf[272]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#u32vector-ref v i)")); lf[273]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#s16vector-ref v i)")); lf[274]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#u16vector-ref v i)")); lf[275]=C_decode_literal(C_heaptop,C_text("\376B\000\000!(chicken.srfi-4#s8vector-ref v i)")); lf[276]=C_decode_literal(C_heaptop,C_text("\376B\000\000!(chicken.srfi-4#u8vector-ref v i)")); C_register_lf2(lf,277,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1506,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[292] = { {C_text("f5217:srfi_2d4_2escm"),(void*)f5217}, {C_text("f5224:srfi_2d4_2escm"),(void*)f5224}, {C_text("f5231:srfi_2d4_2escm"),(void*)f5231}, {C_text("f5238:srfi_2d4_2escm"),(void*)f5238}, {C_text("f5245:srfi_2d4_2escm"),(void*)f5245}, {C_text("f5252:srfi_2d4_2escm"),(void*)f5252}, {C_text("f5259:srfi_2d4_2escm"),(void*)f5259}, {C_text("f5266:srfi_2d4_2escm"),(void*)f5266}, {C_text("f5273:srfi_2d4_2escm"),(void*)f5273}, {C_text("f5280:srfi_2d4_2escm"),(void*)f5280}, {C_text("f_1506:srfi_2d4_2escm"),(void*)f_1506}, {C_text("f_1509:srfi_2d4_2escm"),(void*)f_1509}, {C_text("f_1512:srfi_2d4_2escm"),(void*)f_1512}, {C_text("f_1514:srfi_2d4_2escm"),(void*)f_1514}, {C_text("f_1517:srfi_2d4_2escm"),(void*)f_1517}, {C_text("f_1520:srfi_2d4_2escm"),(void*)f_1520}, {C_text("f_1523:srfi_2d4_2escm"),(void*)f_1523}, {C_text("f_1526:srfi_2d4_2escm"),(void*)f_1526}, {C_text("f_1529:srfi_2d4_2escm"),(void*)f_1529}, {C_text("f_1532:srfi_2d4_2escm"),(void*)f_1532}, {C_text("f_1535:srfi_2d4_2escm"),(void*)f_1535}, {C_text("f_1538:srfi_2d4_2escm"),(void*)f_1538}, {C_text("f_1541:srfi_2d4_2escm"),(void*)f_1541}, {C_text("f_1544:srfi_2d4_2escm"),(void*)f_1544}, {C_text("f_1547:srfi_2d4_2escm"),(void*)f_1547}, {C_text("f_1550:srfi_2d4_2escm"),(void*)f_1550}, {C_text("f_1553:srfi_2d4_2escm"),(void*)f_1553}, {C_text("f_1556:srfi_2d4_2escm"),(void*)f_1556}, {C_text("f_1559:srfi_2d4_2escm"),(void*)f_1559}, {C_text("f_1562:srfi_2d4_2escm"),(void*)f_1562}, {C_text("f_1565:srfi_2d4_2escm"),(void*)f_1565}, {C_text("f_1568:srfi_2d4_2escm"),(void*)f_1568}, {C_text("f_1571:srfi_2d4_2escm"),(void*)f_1571}, {C_text("f_1576:srfi_2d4_2escm"),(void*)f_1576}, {C_text("f_1580:srfi_2d4_2escm"),(void*)f_1580}, {C_text("f_1584:srfi_2d4_2escm"),(void*)f_1584}, {C_text("f_1588:srfi_2d4_2escm"),(void*)f_1588}, {C_text("f_1592:srfi_2d4_2escm"),(void*)f_1592}, {C_text("f_1596:srfi_2d4_2escm"),(void*)f_1596}, {C_text("f_1600:srfi_2d4_2escm"),(void*)f_1600}, {C_text("f_1604:srfi_2d4_2escm"),(void*)f_1604}, {C_text("f_1608:srfi_2d4_2escm"),(void*)f_1608}, {C_text("f_1612:srfi_2d4_2escm"),(void*)f_1612}, {C_text("f_1620:srfi_2d4_2escm"),(void*)f_1620}, {C_text("f_1622:srfi_2d4_2escm"),(void*)f_1622}, {C_text("f_1626:srfi_2d4_2escm"),(void*)f_1626}, {C_text("f_1629:srfi_2d4_2escm"),(void*)f_1629}, {C_text("f_1635:srfi_2d4_2escm"),(void*)f_1635}, {C_text("f_1650:srfi_2d4_2escm"),(void*)f_1650}, {C_text("f_1661:srfi_2d4_2escm"),(void*)f_1661}, {C_text("f_1668:srfi_2d4_2escm"),(void*)f_1668}, {C_text("f_1676:srfi_2d4_2escm"),(void*)f_1676}, {C_text("f_1701:srfi_2d4_2escm"),(void*)f_1701}, {C_text("f_1712:srfi_2d4_2escm"),(void*)f_1712}, {C_text("f_1731:srfi_2d4_2escm"),(void*)f_1731}, {C_text("f_1736:srfi_2d4_2escm"),(void*)f_1736}, {C_text("f_1754:srfi_2d4_2escm"),(void*)f_1754}, {C_text("f_1792:srfi_2d4_2escm"),(void*)f_1792}, {C_text("f_1817:srfi_2d4_2escm"),(void*)f_1817}, {C_text("f_1828:srfi_2d4_2escm"),(void*)f_1828}, {C_text("f_1847:srfi_2d4_2escm"),(void*)f_1847}, {C_text("f_1852:srfi_2d4_2escm"),(void*)f_1852}, {C_text("f_1870:srfi_2d4_2escm"),(void*)f_1870}, {C_text("f_1908:srfi_2d4_2escm"),(void*)f_1908}, {C_text("f_1933:srfi_2d4_2escm"),(void*)f_1933}, {C_text("f_1944:srfi_2d4_2escm"),(void*)f_1944}, {C_text("f_1963:srfi_2d4_2escm"),(void*)f_1963}, {C_text("f_1968:srfi_2d4_2escm"),(void*)f_1968}, {C_text("f_1986:srfi_2d4_2escm"),(void*)f_1986}, {C_text("f_2024:srfi_2d4_2escm"),(void*)f_2024}, {C_text("f_2049:srfi_2d4_2escm"),(void*)f_2049}, {C_text("f_2060:srfi_2d4_2escm"),(void*)f_2060}, {C_text("f_2089:srfi_2d4_2escm"),(void*)f_2089}, {C_text("f_2094:srfi_2d4_2escm"),(void*)f_2094}, {C_text("f_2112:srfi_2d4_2escm"),(void*)f_2112}, {C_text("f_2150:srfi_2d4_2escm"),(void*)f_2150}, {C_text("f_2175:srfi_2d4_2escm"),(void*)f_2175}, {C_text("f_2186:srfi_2d4_2escm"),(void*)f_2186}, {C_text("f_2205:srfi_2d4_2escm"),(void*)f_2205}, {C_text("f_2210:srfi_2d4_2escm"),(void*)f_2210}, {C_text("f_2228:srfi_2d4_2escm"),(void*)f_2228}, {C_text("f_2266:srfi_2d4_2escm"),(void*)f_2266}, {C_text("f_2291:srfi_2d4_2escm"),(void*)f_2291}, {C_text("f_2302:srfi_2d4_2escm"),(void*)f_2302}, {C_text("f_2321:srfi_2d4_2escm"),(void*)f_2321}, {C_text("f_2326:srfi_2d4_2escm"),(void*)f_2326}, {C_text("f_2344:srfi_2d4_2escm"),(void*)f_2344}, {C_text("f_2382:srfi_2d4_2escm"),(void*)f_2382}, {C_text("f_2407:srfi_2d4_2escm"),(void*)f_2407}, {C_text("f_2418:srfi_2d4_2escm"),(void*)f_2418}, {C_text("f_2447:srfi_2d4_2escm"),(void*)f_2447}, {C_text("f_2452:srfi_2d4_2escm"),(void*)f_2452}, {C_text("f_2470:srfi_2d4_2escm"),(void*)f_2470}, {C_text("f_2508:srfi_2d4_2escm"),(void*)f_2508}, {C_text("f_2533:srfi_2d4_2escm"),(void*)f_2533}, {C_text("f_2544:srfi_2d4_2escm"),(void*)f_2544}, {C_text("f_2573:srfi_2d4_2escm"),(void*)f_2573}, {C_text("f_2578:srfi_2d4_2escm"),(void*)f_2578}, {C_text("f_2596:srfi_2d4_2escm"),(void*)f_2596}, {C_text("f_2634:srfi_2d4_2escm"),(void*)f_2634}, {C_text("f_2659:srfi_2d4_2escm"),(void*)f_2659}, {C_text("f_2680:srfi_2d4_2escm"),(void*)f_2680}, {C_text("f_2683:srfi_2d4_2escm"),(void*)f_2683}, {C_text("f_2688:srfi_2d4_2escm"),(void*)f_2688}, {C_text("f_2707:srfi_2d4_2escm"),(void*)f_2707}, {C_text("f_2745:srfi_2d4_2escm"),(void*)f_2745}, {C_text("f_2770:srfi_2d4_2escm"),(void*)f_2770}, {C_text("f_2791:srfi_2d4_2escm"),(void*)f_2791}, {C_text("f_2794:srfi_2d4_2escm"),(void*)f_2794}, {C_text("f_2799:srfi_2d4_2escm"),(void*)f_2799}, {C_text("f_2818:srfi_2d4_2escm"),(void*)f_2818}, {C_text("f_2856:srfi_2d4_2escm"),(void*)f_2856}, {C_text("f_2863:srfi_2d4_2escm"),(void*)f_2863}, {C_text("f_2868:srfi_2d4_2escm"),(void*)f_2868}, {C_text("f_2875:srfi_2d4_2escm"),(void*)f_2875}, {C_text("f_2892:srfi_2d4_2escm"),(void*)f_2892}, {C_text("f_2899:srfi_2d4_2escm"),(void*)f_2899}, {C_text("f_2904:srfi_2d4_2escm"),(void*)f_2904}, {C_text("f_2911:srfi_2d4_2escm"),(void*)f_2911}, {C_text("f_2928:srfi_2d4_2escm"),(void*)f_2928}, {C_text("f_2935:srfi_2d4_2escm"),(void*)f_2935}, {C_text("f_2940:srfi_2d4_2escm"),(void*)f_2940}, {C_text("f_2947:srfi_2d4_2escm"),(void*)f_2947}, {C_text("f_2964:srfi_2d4_2escm"),(void*)f_2964}, {C_text("f_2971:srfi_2d4_2escm"),(void*)f_2971}, {C_text("f_2976:srfi_2d4_2escm"),(void*)f_2976}, {C_text("f_2983:srfi_2d4_2escm"),(void*)f_2983}, {C_text("f_3000:srfi_2d4_2escm"),(void*)f_3000}, {C_text("f_3007:srfi_2d4_2escm"),(void*)f_3007}, {C_text("f_3012:srfi_2d4_2escm"),(void*)f_3012}, {C_text("f_3019:srfi_2d4_2escm"),(void*)f_3019}, {C_text("f_3036:srfi_2d4_2escm"),(void*)f_3036}, {C_text("f_3043:srfi_2d4_2escm"),(void*)f_3043}, {C_text("f_3048:srfi_2d4_2escm"),(void*)f_3048}, {C_text("f_3055:srfi_2d4_2escm"),(void*)f_3055}, {C_text("f_3072:srfi_2d4_2escm"),(void*)f_3072}, {C_text("f_3079:srfi_2d4_2escm"),(void*)f_3079}, {C_text("f_3084:srfi_2d4_2escm"),(void*)f_3084}, {C_text("f_3091:srfi_2d4_2escm"),(void*)f_3091}, {C_text("f_3108:srfi_2d4_2escm"),(void*)f_3108}, {C_text("f_3115:srfi_2d4_2escm"),(void*)f_3115}, {C_text("f_3120:srfi_2d4_2escm"),(void*)f_3120}, {C_text("f_3127:srfi_2d4_2escm"),(void*)f_3127}, {C_text("f_3144:srfi_2d4_2escm"),(void*)f_3144}, {C_text("f_3151:srfi_2d4_2escm"),(void*)f_3151}, {C_text("f_3156:srfi_2d4_2escm"),(void*)f_3156}, {C_text("f_3163:srfi_2d4_2escm"),(void*)f_3163}, {C_text("f_3180:srfi_2d4_2escm"),(void*)f_3180}, {C_text("f_3187:srfi_2d4_2escm"),(void*)f_3187}, {C_text("f_3192:srfi_2d4_2escm"),(void*)f_3192}, {C_text("f_3199:srfi_2d4_2escm"),(void*)f_3199}, {C_text("f_3216:srfi_2d4_2escm"),(void*)f_3216}, {C_text("f_3222:srfi_2d4_2escm"),(void*)f_3222}, {C_text("f_3228:srfi_2d4_2escm"),(void*)f_3228}, {C_text("f_3234:srfi_2d4_2escm"),(void*)f_3234}, {C_text("f_3240:srfi_2d4_2escm"),(void*)f_3240}, {C_text("f_3246:srfi_2d4_2escm"),(void*)f_3246}, {C_text("f_3252:srfi_2d4_2escm"),(void*)f_3252}, {C_text("f_3258:srfi_2d4_2escm"),(void*)f_3258}, {C_text("f_3264:srfi_2d4_2escm"),(void*)f_3264}, {C_text("f_3270:srfi_2d4_2escm"),(void*)f_3270}, {C_text("f_3276:srfi_2d4_2escm"),(void*)f_3276}, {C_text("f_3285:srfi_2d4_2escm"),(void*)f_3285}, {C_text("f_3300:srfi_2d4_2escm"),(void*)f_3300}, {C_text("f_3306:srfi_2d4_2escm"),(void*)f_3306}, {C_text("f_3315:srfi_2d4_2escm"),(void*)f_3315}, {C_text("f_3330:srfi_2d4_2escm"),(void*)f_3330}, {C_text("f_3336:srfi_2d4_2escm"),(void*)f_3336}, {C_text("f_3345:srfi_2d4_2escm"),(void*)f_3345}, {C_text("f_3360:srfi_2d4_2escm"),(void*)f_3360}, {C_text("f_3366:srfi_2d4_2escm"),(void*)f_3366}, {C_text("f_3375:srfi_2d4_2escm"),(void*)f_3375}, {C_text("f_3390:srfi_2d4_2escm"),(void*)f_3390}, {C_text("f_3396:srfi_2d4_2escm"),(void*)f_3396}, {C_text("f_3405:srfi_2d4_2escm"),(void*)f_3405}, {C_text("f_3419:srfi_2d4_2escm"),(void*)f_3419}, {C_text("f_3425:srfi_2d4_2escm"),(void*)f_3425}, {C_text("f_3434:srfi_2d4_2escm"),(void*)f_3434}, {C_text("f_3448:srfi_2d4_2escm"),(void*)f_3448}, {C_text("f_3454:srfi_2d4_2escm"),(void*)f_3454}, {C_text("f_3463:srfi_2d4_2escm"),(void*)f_3463}, {C_text("f_3477:srfi_2d4_2escm"),(void*)f_3477}, {C_text("f_3483:srfi_2d4_2escm"),(void*)f_3483}, {C_text("f_3492:srfi_2d4_2escm"),(void*)f_3492}, {C_text("f_3506:srfi_2d4_2escm"),(void*)f_3506}, {C_text("f_3512:srfi_2d4_2escm"),(void*)f_3512}, {C_text("f_3521:srfi_2d4_2escm"),(void*)f_3521}, {C_text("f_3535:srfi_2d4_2escm"),(void*)f_3535}, {C_text("f_3541:srfi_2d4_2escm"),(void*)f_3541}, {C_text("f_3550:srfi_2d4_2escm"),(void*)f_3550}, {C_text("f_3564:srfi_2d4_2escm"),(void*)f_3564}, {C_text("f_3570:srfi_2d4_2escm"),(void*)f_3570}, {C_text("f_3573:srfi_2d4_2escm"),(void*)f_3573}, {C_text("f_3576:srfi_2d4_2escm"),(void*)f_3576}, {C_text("f_3579:srfi_2d4_2escm"),(void*)f_3579}, {C_text("f_3582:srfi_2d4_2escm"),(void*)f_3582}, {C_text("f_3585:srfi_2d4_2escm"),(void*)f_3585}, {C_text("f_3588:srfi_2d4_2escm"),(void*)f_3588}, {C_text("f_3591:srfi_2d4_2escm"),(void*)f_3591}, {C_text("f_3594:srfi_2d4_2escm"),(void*)f_3594}, {C_text("f_3597:srfi_2d4_2escm"),(void*)f_3597}, {C_text("f_3612:srfi_2d4_2escm"),(void*)f_3612}, {C_text("f_3614:srfi_2d4_2escm"),(void*)f_3614}, {C_text("f_3624:srfi_2d4_2escm"),(void*)f_3624}, {C_text("f_3630:srfi_2d4_2escm"),(void*)f_3630}, {C_text("f_3632:srfi_2d4_2escm"),(void*)f_3632}, {C_text("f_3648:srfi_2d4_2escm"),(void*)f_3648}, {C_text("f_3660:srfi_2d4_2escm"),(void*)f_3660}, {C_text("f_3662:srfi_2d4_2escm"),(void*)f_3662}, {C_text("f_3672:srfi_2d4_2escm"),(void*)f_3672}, {C_text("f_3681:srfi_2d4_2escm"),(void*)f_3681}, {C_text("f_3736:srfi_2d4_2escm"),(void*)f_3736}, {C_text("f_3740:srfi_2d4_2escm"),(void*)f_3740}, {C_text("f_3744:srfi_2d4_2escm"),(void*)f_3744}, {C_text("f_3748:srfi_2d4_2escm"),(void*)f_3748}, {C_text("f_3752:srfi_2d4_2escm"),(void*)f_3752}, {C_text("f_3756:srfi_2d4_2escm"),(void*)f_3756}, {C_text("f_3760:srfi_2d4_2escm"),(void*)f_3760}, {C_text("f_3764:srfi_2d4_2escm"),(void*)f_3764}, {C_text("f_3768:srfi_2d4_2escm"),(void*)f_3768}, {C_text("f_3772:srfi_2d4_2escm"),(void*)f_3772}, {C_text("f_3776:srfi_2d4_2escm"),(void*)f_3776}, {C_text("f_3780:srfi_2d4_2escm"),(void*)f_3780}, {C_text("f_3784:srfi_2d4_2escm"),(void*)f_3784}, {C_text("f_3788:srfi_2d4_2escm"),(void*)f_3788}, {C_text("f_3792:srfi_2d4_2escm"),(void*)f_3792}, {C_text("f_3796:srfi_2d4_2escm"),(void*)f_3796}, {C_text("f_3800:srfi_2d4_2escm"),(void*)f_3800}, {C_text("f_3804:srfi_2d4_2escm"),(void*)f_3804}, {C_text("f_3808:srfi_2d4_2escm"),(void*)f_3808}, {C_text("f_3812:srfi_2d4_2escm"),(void*)f_3812}, {C_text("f_3816:srfi_2d4_2escm"),(void*)f_3816}, {C_text("f_3820:srfi_2d4_2escm"),(void*)f_3820}, {C_text("f_3824:srfi_2d4_2escm"),(void*)f_3824}, {C_text("f_3828:srfi_2d4_2escm"),(void*)f_3828}, {C_text("f_3832:srfi_2d4_2escm"),(void*)f_3832}, {C_text("f_3836:srfi_2d4_2escm"),(void*)f_3836}, {C_text("f_3840:srfi_2d4_2escm"),(void*)f_3840}, {C_text("f_3844:srfi_2d4_2escm"),(void*)f_3844}, {C_text("f_3848:srfi_2d4_2escm"),(void*)f_3848}, {C_text("f_3852:srfi_2d4_2escm"),(void*)f_3852}, {C_text("f_3857:srfi_2d4_2escm"),(void*)f_3857}, {C_text("f_3866:srfi_2d4_2escm"),(void*)f_3866}, {C_text("f_3885:srfi_2d4_2escm"),(void*)f_3885}, {C_text("f_3896:srfi_2d4_2escm"),(void*)f_3896}, {C_text("f_3917:srfi_2d4_2escm"),(void*)f_3917}, {C_text("f_3929:srfi_2d4_2escm"),(void*)f_3929}, {C_text("f_3932:srfi_2d4_2escm"),(void*)f_3932}, {C_text("f_3942:srfi_2d4_2escm"),(void*)f_3942}, {C_text("f_3991:srfi_2d4_2escm"),(void*)f_3991}, {C_text("f_4006:srfi_2d4_2escm"),(void*)f_4006}, {C_text("f_4025:srfi_2d4_2escm"),(void*)f_4025}, {C_text("f_4030:srfi_2d4_2escm"),(void*)f_4030}, {C_text("f_4049:srfi_2d4_2escm"),(void*)f_4049}, {C_text("f_4055:srfi_2d4_2escm"),(void*)f_4055}, {C_text("f_4076:srfi_2d4_2escm"),(void*)f_4076}, {C_text("f_4082:srfi_2d4_2escm"),(void*)f_4082}, {C_text("f_4088:srfi_2d4_2escm"),(void*)f_4088}, {C_text("f_4094:srfi_2d4_2escm"),(void*)f_4094}, {C_text("f_4100:srfi_2d4_2escm"),(void*)f_4100}, {C_text("f_4106:srfi_2d4_2escm"),(void*)f_4106}, {C_text("f_4112:srfi_2d4_2escm"),(void*)f_4112}, {C_text("f_4118:srfi_2d4_2escm"),(void*)f_4118}, {C_text("f_4124:srfi_2d4_2escm"),(void*)f_4124}, {C_text("f_4130:srfi_2d4_2escm"),(void*)f_4130}, {C_text("f_4136:srfi_2d4_2escm"),(void*)f_4136}, {C_text("f_4166:srfi_2d4_2escm"),(void*)f_4166}, {C_text("f_4185:srfi_2d4_2escm"),(void*)f_4185}, {C_text("f_4188:srfi_2d4_2escm"),(void*)f_4188}, {C_text("f_4201:srfi_2d4_2escm"),(void*)f_4201}, {C_text("f_4211:srfi_2d4_2escm"),(void*)f_4211}, {C_text("f_4236:srfi_2d4_2escm"),(void*)f_4236}, {C_text("f_4305:srfi_2d4_2escm"),(void*)f_4305}, {C_text("f_4324:srfi_2d4_2escm"),(void*)f_4324}, {C_text("f_4330:srfi_2d4_2escm"),(void*)f_4330}, {C_text("f_4345:srfi_2d4_2escm"),(void*)f_4345}, {C_text("f_4385:srfi_2d4_2escm"),(void*)f_4385}, {C_text("f_4404:srfi_2d4_2escm"),(void*)f_4404}, {C_text("f_4407:srfi_2d4_2escm"),(void*)f_4407}, {C_text("f_4446:srfi_2d4_2escm"),(void*)f_4446}, {C_text("f_4448:srfi_2d4_2escm"),(void*)f_4448}, {C_text("f_4451:srfi_2d4_2escm"),(void*)f_4451}, {C_text("f_4454:srfi_2d4_2escm"),(void*)f_4454}, {C_text("f_4457:srfi_2d4_2escm"),(void*)f_4457}, {C_text("f_4460:srfi_2d4_2escm"),(void*)f_4460}, {C_text("f_4463:srfi_2d4_2escm"),(void*)f_4463}, {C_text("f_4466:srfi_2d4_2escm"),(void*)f_4466}, {C_text("f_4469:srfi_2d4_2escm"),(void*)f_4469}, {C_text("f_4472:srfi_2d4_2escm"),(void*)f_4472}, {C_text("f_4475:srfi_2d4_2escm"),(void*)f_4475}, {C_text("toplevel:srfi_2d4_2escm"),(void*)C_srfi_2d4_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: srfi-4#d o|hiding unexported module binding: srfi-4#define-alias o|hiding unexported module binding: srfi-4#list->NNNvector o|hiding unexported module binding: srfi-4#NNNvector->list o|hiding unexported module binding: srfi-4#pack o|hiding unexported module binding: srfi-4#pack-copy o|hiding unexported module binding: srfi-4#unpack o|hiding unexported module binding: srfi-4#unpack-copy o|hiding unexported module binding: srfi-4#subnvector o|eliminated procedure checks: 32 o|specializations: o| 2 (##sys#check-input-port * * *) o| 1 (##sys#check-output-port * * *) o| 1 (scheme#assq * (list-of pair)) o| 1 (scheme#memq * list) o| 3 (chicken.base#sub1 *) o| 3 (scheme#- *) o| 8 (chicken.bitwise#integer-length *) (o e)|safe calls: 416 (o e)|assignments to immediate values: 1 o|dropping redundant toplevel assignment: srfi-4#release-number-vector o|dropping redundant toplevel assignment: srfi-4#make-u8vector o|dropping redundant toplevel assignment: srfi-4#make-s8vector o|dropping redundant toplevel assignment: srfi-4#make-u16vector o|dropping redundant toplevel assignment: srfi-4#make-s16vector o|dropping redundant toplevel assignment: srfi-4#make-u32vector o|dropping redundant toplevel assignment: srfi-4#make-u64vector o|dropping redundant toplevel assignment: srfi-4#make-s32vector o|dropping redundant toplevel assignment: srfi-4#make-s64vector o|dropping redundant toplevel assignment: srfi-4#make-f32vector o|dropping redundant toplevel assignment: srfi-4#make-f64vector o|safe globals: (srfi-4#f64vector-set! srfi-4#f32vector-set! srfi-4#s64vector-set! srfi-4#u64vector-set! srfi-4#s32vector-set! srfi-4#u32vector-set! srfi-4#s16vector-set! srfi-4#u16vector-set! srfi-4#s8vector-set! srfi-4#u8vector-set! srfi-4#f64vector-length srfi-4#f32vector-length srfi-4#s64vector-length srfi-4#u64vector-length srfi-4#s32vector-length srfi-4#u32vector-length srfi-4#s16vector-length srfi-4#u16vector-length srfi-4#s8vector-length srfi-4#u8vector-length) o|inlining procedure: k1636 o|contracted procedure: "(srfi-4.scm:278) ext-alloc214" o|inlining procedure: k1636 o|inlining procedure: k1663 o|inlining procedure: "(srfi-4.scm:288) ext-free220" o|inlining procedure: k1663 o|inlining procedure: k1702 o|inlining procedure: k1702 o|inlining procedure: k1738 o|inlining procedure: k1738 o|contracted procedure: "(srfi-4.scm:298) g261262" o|inlining procedure: k1713 o|inlining procedure: k1713 o|inlining procedure: k1818 o|inlining procedure: k1818 o|inlining procedure: k1854 o|inlining procedure: k1854 o|contracted procedure: "(srfi-4.scm:310) g295296" o|inlining procedure: k1829 o|inlining procedure: k1829 o|inlining procedure: k1934 o|inlining procedure: k1934 o|inlining procedure: k1970 o|inlining procedure: k1970 o|contracted procedure: "(srfi-4.scm:322) g329330" o|inlining procedure: k1945 o|inlining procedure: k1945 o|inlining procedure: k2050 o|inlining procedure: k2050 o|inlining procedure: k2096 o|inlining procedure: k2096 o|contracted procedure: "(srfi-4.scm:334) g363364" o|inlining procedure: k2061 o|inlining procedure: k2061 o|inlining procedure: k2176 o|inlining procedure: k2176 o|inlining procedure: k2212 o|inlining procedure: k2212 o|contracted procedure: "(srfi-4.scm:346) g397398" o|inlining procedure: k2187 o|inlining procedure: k2187 o|inlining procedure: k2292 o|inlining procedure: k2292 o|inlining procedure: k2328 o|inlining procedure: k2328 o|contracted procedure: "(srfi-4.scm:358) g431432" o|inlining procedure: k2303 o|inlining procedure: k2303 o|inlining procedure: k2408 o|inlining procedure: k2408 o|inlining procedure: k2454 o|inlining procedure: k2454 o|contracted procedure: "(srfi-4.scm:370) g465466" o|inlining procedure: k2419 o|inlining procedure: k2419 o|inlining procedure: k2534 o|inlining procedure: k2534 o|inlining procedure: k2580 o|inlining procedure: k2580 o|contracted procedure: "(srfi-4.scm:382) g499500" o|inlining procedure: k2545 o|inlining procedure: k2545 o|inlining procedure: k2660 o|inlining procedure: k2660 o|inlining procedure: k2690 o|inlining procedure: k2690 o|contracted procedure: "(srfi-4.scm:394) g533534" o|inlining procedure: k2668 o|inlining procedure: k2668 o|inlining procedure: k2771 o|inlining procedure: k2771 o|inlining procedure: k2801 o|inlining procedure: k2801 o|contracted procedure: "(srfi-4.scm:408) g569570" o|inlining procedure: k2779 o|inlining procedure: k2779 o|inlining procedure: k2870 o|inlining procedure: k2870 o|inlining procedure: k2906 o|inlining procedure: k2906 o|inlining procedure: k2942 o|inlining procedure: k2942 o|inlining procedure: k2978 o|inlining procedure: k2978 o|inlining procedure: k3014 o|inlining procedure: k3014 o|inlining procedure: k3050 o|inlining procedure: k3050 o|inlining procedure: k3086 o|inlining procedure: k3086 o|inlining procedure: k3122 o|inlining procedure: k3122 o|inlining procedure: k3158 o|inlining procedure: k3158 o|inlining procedure: k3194 o|inlining procedure: k3194 o|inlining procedure: k3287 o|inlining procedure: k3287 o|inlining procedure: k3317 o|inlining procedure: k3317 o|inlining procedure: k3347 o|inlining procedure: k3347 o|inlining procedure: k3377 o|inlining procedure: k3377 o|inlining procedure: k3407 o|inlining procedure: k3407 o|inlining procedure: k3436 o|inlining procedure: k3436 o|inlining procedure: k3465 o|inlining procedure: k3465 o|inlining procedure: k3494 o|inlining procedure: k3494 o|inlining procedure: k3523 o|inlining procedure: k3523 o|inlining procedure: k3552 o|inlining procedure: k3552 o|inlining procedure: k3640 o|inlining procedure: k3640 o|inlining procedure: k3673 o|inlining procedure: k3673 o|substituted constant variable: a3863 o|inlining procedure: k3859 o|inlining procedure: k3882 o|inlining procedure: k3882 o|inlining procedure: k3859 o|inlining procedure: k3924 o|inlining procedure: k3924 o|contracted procedure: "(srfi-4.scm:669) g994995" o|inlining procedure: k4031 o|inlining procedure: k4031 o|contracted procedure: "(srfi-4.scm:668) g985986" o|inlining procedure: k4007 o|inlining procedure: k4007 o|substituted constant variable: a4160 o|substituted constant variable: a4161 o|inlining procedure: k4196 o|inlining procedure: k4196 o|inlining procedure: k4213 o|inlining procedure: k4213 o|inlining procedure: k4222 o|inlining procedure: k4222 o|contracted procedure: "(srfi-4.scm:693) g10831084" o|inlining procedure: k4237 o|inlining procedure: k4237 o|contracted procedure: "(srfi-4.scm:692) g10711072" o|inlining procedure: k4167 o|inlining procedure: k4167 o|inlining procedure: k4265 o|inlining procedure: k4265 o|substituted constant variable: a4320 o|substituted constant variable: a4321 o|substituted constant variable: a4400 o|substituted constant variable: a4401 o|inlining procedure: k4408 o|inlining procedure: k4408 o|simplifications: ((if . 1)) o|replaced variables: 328 o|removed binding forms: 299 o|substituted constant variable: loc265 o|substituted constant variable: len264 o|folded constant expression: (scheme#expt (quote 2) (quote 8)) o|substituted constant variable: len264 o|substituted constant variable: loc265 o|substituted constant variable: loc299 o|substituted constant variable: len298 o|folded constant expression: (scheme#expt (quote 2) (quote 8)) o|substituted constant variable: len298 o|substituted constant variable: loc299 o|substituted constant variable: loc333 o|substituted constant variable: len332 o|folded constant expression: (scheme#expt (quote 2) (quote 16)) o|substituted constant variable: len332 o|substituted constant variable: loc333 o|substituted constant variable: loc367 o|substituted constant variable: len366 o|folded constant expression: (scheme#expt (quote 2) (quote 16)) o|substituted constant variable: len366 o|folded constant expression: (scheme#expt (quote 2) (quote 16)) o|substituted constant variable: len366 o|substituted constant variable: loc367 o|substituted constant variable: loc401 o|substituted constant variable: len400 o|folded constant expression: (scheme#expt (quote 2) (quote 32)) o|substituted constant variable: len400 o|substituted constant variable: loc401 o|substituted constant variable: loc435 o|substituted constant variable: len434 o|folded constant expression: (scheme#expt (quote 2) (quote 64)) o|substituted constant variable: len434 o|substituted constant variable: loc435 o|substituted constant variable: loc469 o|substituted constant variable: len468 o|folded constant expression: (scheme#expt (quote 2) (quote 32)) o|substituted constant variable: len468 o|folded constant expression: (scheme#expt (quote 2) (quote 32)) o|substituted constant variable: len468 o|substituted constant variable: loc469 o|substituted constant variable: loc503 o|substituted constant variable: len502 o|folded constant expression: (scheme#expt (quote 2) (quote 64)) o|substituted constant variable: len502 o|folded constant expression: (scheme#expt (quote 2) (quote 64)) o|substituted constant variable: len502 o|substituted constant variable: loc503 o|substituted constant variable: loc536 o|substituted constant variable: loc572 o|substituted constant variable: r32884563 o|substituted constant variable: r33184565 o|substituted constant variable: r33484567 o|substituted constant variable: r33784569 o|substituted constant variable: r34084571 o|substituted constant variable: r34374573 o|substituted constant variable: r34664575 o|substituted constant variable: r34954577 o|substituted constant variable: r35244579 o|substituted constant variable: r35534581 o|substituted constant variable: from997 o|substituted constant variable: from997 o|substituted constant variable: from988 o|substituted constant variable: from988 o|substituted constant variable: loc1088 o|substituted constant variable: loc1088 o|substituted constant variable: loc1076 o|substituted constant variable: from1074 o|substituted constant variable: from1074 o|substituted constant variable: loc1076 o|replaced variables: 54 o|removed binding forms: 384 o|contracted procedure: k1724 o|inlining procedure: k1745 o|inlining procedure: k1745 o|contracted procedure: k1840 o|inlining procedure: k1861 o|inlining procedure: k1861 o|contracted procedure: k1956 o|inlining procedure: k1977 o|inlining procedure: k1977 o|contracted procedure: k2073 o|contracted procedure: k2078 o|inlining procedure: k2103 o|inlining procedure: k2103 o|contracted procedure: k2198 o|inlining procedure: k2219 o|inlining procedure: k2219 o|contracted procedure: k2314 o|inlining procedure: k2335 o|inlining procedure: k2335 o|contracted procedure: k2431 o|contracted procedure: k2436 o|inlining procedure: k2461 o|inlining procedure: k2461 o|contracted procedure: k2557 o|contracted procedure: k2562 o|inlining procedure: k2587 o|inlining procedure: k2587 o|inlining procedure: k2698 o|inlining procedure: k2698 o|inlining procedure: k2809 o|inlining procedure: k2809 o|inlining procedure: k4337 o|inlining procedure: k4337 o|removed binding forms: 93 o|substituted constant variable: r1725 o|substituted constant variable: r17464741 o|substituted constant variable: r1841 o|substituted constant variable: r18624745 o|substituted constant variable: r1957 o|substituted constant variable: r19784749 o|substituted constant variable: r2074 o|substituted constant variable: r2079 o|substituted constant variable: r21044753 o|substituted constant variable: r2199 o|substituted constant variable: r22204757 o|substituted constant variable: r2315 o|substituted constant variable: r23364761 o|substituted constant variable: r2432 o|substituted constant variable: r2437 o|substituted constant variable: r24624765 o|substituted constant variable: r2558 o|substituted constant variable: r2563 o|substituted constant variable: r25884769 o|substituted constant variable: r26994773 o|substituted constant variable: r28104777 o|replaced variables: 10 o|removed binding forms: 13 o|removed conditional forms: 10 o|removed binding forms: 31 o|simplifications: ((if . 93) (##core#call . 313)) o| call simplifications: o| scheme#list o| scheme#eof-object? o| chicken.fixnum#fx= 2 o| chicken.fixnum#fx<= 5 o| chicken.fixnum#fx* 2 o| ##sys#list 11 o| scheme#cadr o| scheme#caddr o| scheme#symbol? o| scheme#memq o| ##sys#check-byte-vector 2 o| scheme#eq? 6 o| ##sys#size 5 o| ##sys#slot 10 o| ##sys#check-structure 15 o| chicken.fixnum#fx>= 10 o| chicken.fixnum#fx+ 16 o| scheme#cons 10 o| srfi-4#f64vector-set! o| srfi-4#f32vector-set! o| srfi-4#s64vector-set! o| srfi-4#u64vector-set! o| srfi-4#s32vector-set! o| srfi-4#u32vector-set! o| srfi-4#s16vector-set! o| srfi-4#u16vector-set! o| srfi-4#s8vector-set! o| ##sys#check-list 10 o| srfi-4#u8vector-set! o| chicken.fixnum#fx- 5 o| scheme#car 37 o| scheme#null? 74 o| scheme#cdr 37 o| ##sys#make-structure 14 o| scheme#not 11 o| chicken.fixnum#fx> 8 o| chicken.fixnum#fx< 5 o| chicken.fixnum#fx*? o| ##sys#foreign-unsigned-ranged-integer-argument o|contracted procedure: k1630 o|contracted procedure: k1616 o|contracted procedure: k1654 o|contracted procedure: k1785 o|contracted procedure: k1678 o|contracted procedure: k1779 o|contracted procedure: k1681 o|contracted procedure: k1773 o|contracted procedure: k1684 o|contracted procedure: k1767 o|contracted procedure: k1687 o|contracted procedure: k1761 o|contracted procedure: k1690 o|contracted procedure: k1755 o|contracted procedure: k1693 o|contracted procedure: k1696 o|contracted procedure: k1705 o|contracted procedure: k1716 o|contracted procedure: k1901 o|contracted procedure: k1794 o|contracted procedure: k1895 o|contracted procedure: k1797 o|contracted procedure: k1889 o|contracted procedure: k1800 o|contracted procedure: k1883 o|contracted procedure: k1803 o|contracted procedure: k1877 o|contracted procedure: k1806 o|contracted procedure: k1871 o|contracted procedure: k1809 o|contracted procedure: k1812 o|contracted procedure: k1821 o|contracted procedure: k1832 o|contracted procedure: k2017 o|contracted procedure: k1910 o|contracted procedure: k2011 o|contracted procedure: k1913 o|contracted procedure: k2005 o|contracted procedure: k1916 o|contracted procedure: k1999 o|contracted procedure: k1919 o|contracted procedure: k1993 o|contracted procedure: k1922 o|contracted procedure: k1987 o|contracted procedure: k1925 o|contracted procedure: k1928 o|contracted procedure: k1937 o|contracted procedure: k1948 o|contracted procedure: k2143 o|contracted procedure: k2026 o|contracted procedure: k2137 o|contracted procedure: k2029 o|contracted procedure: k2131 o|contracted procedure: k2032 o|contracted procedure: k2125 o|contracted procedure: k2035 o|contracted procedure: k2119 o|contracted procedure: k2038 o|contracted procedure: k2113 o|contracted procedure: k2041 o|contracted procedure: k2044 o|contracted procedure: k2053 o|contracted procedure: k2084 o|contracted procedure: k2064 o|contracted procedure: k2259 o|contracted procedure: k2152 o|contracted procedure: k2253 o|contracted procedure: k2155 o|contracted procedure: k2247 o|contracted procedure: k2158 o|contracted procedure: k2241 o|contracted procedure: k2161 o|contracted procedure: k2235 o|contracted procedure: k2164 o|contracted procedure: k2229 o|contracted procedure: k2167 o|contracted procedure: k2170 o|contracted procedure: k2179 o|contracted procedure: k2190 o|contracted procedure: k2375 o|contracted procedure: k2268 o|contracted procedure: k2369 o|contracted procedure: k2271 o|contracted procedure: k2363 o|contracted procedure: k2274 o|contracted procedure: k2357 o|contracted procedure: k2277 o|contracted procedure: k2351 o|contracted procedure: k2280 o|contracted procedure: k2345 o|contracted procedure: k2283 o|contracted procedure: k2286 o|contracted procedure: k2295 o|contracted procedure: k2306 o|contracted procedure: k2501 o|contracted procedure: k2384 o|contracted procedure: k2495 o|contracted procedure: k2387 o|contracted procedure: k2489 o|contracted procedure: k2390 o|contracted procedure: k2483 o|contracted procedure: k2393 o|contracted procedure: k2477 o|contracted procedure: k2396 o|contracted procedure: k2471 o|contracted procedure: k2399 o|contracted procedure: k2402 o|contracted procedure: k2411 o|contracted procedure: k2442 o|contracted procedure: k2422 o|contracted procedure: k2627 o|contracted procedure: k2510 o|contracted procedure: k2621 o|contracted procedure: k2513 o|contracted procedure: k2615 o|contracted procedure: k2516 o|contracted procedure: k2609 o|contracted procedure: k2519 o|contracted procedure: k2603 o|contracted procedure: k2522 o|contracted procedure: k2597 o|contracted procedure: k2525 o|contracted procedure: k2528 o|contracted procedure: k2537 o|contracted procedure: k2568 o|contracted procedure: k2548 o|contracted procedure: k2738 o|contracted procedure: k2636 o|contracted procedure: k2732 o|contracted procedure: k2639 o|contracted procedure: k2726 o|contracted procedure: k2642 o|contracted procedure: k2720 o|contracted procedure: k2645 o|contracted procedure: k2714 o|contracted procedure: k2648 o|contracted procedure: k2708 o|contracted procedure: k2651 o|contracted procedure: k2654 o|contracted procedure: k2663 o|contracted procedure: k2671 o|contracted procedure: k2849 o|contracted procedure: k2747 o|contracted procedure: k2843 o|contracted procedure: k2750 o|contracted procedure: k2837 o|contracted procedure: k2753 o|contracted procedure: k2831 o|contracted procedure: k2756 o|contracted procedure: k2825 o|contracted procedure: k2759 o|contracted procedure: k2819 o|contracted procedure: k2762 o|contracted procedure: k2765 o|contracted procedure: k2774 o|contracted procedure: k2782 o|contracted procedure: k2858 o|contracted procedure: k2881 o|inlining procedure: k2873 o|contracted procedure: k2894 o|contracted procedure: k2917 o|inlining procedure: k2909 o|contracted procedure: k2930 o|contracted procedure: k2953 o|inlining procedure: k2945 o|contracted procedure: k2966 o|contracted procedure: k2989 o|inlining procedure: k2981 o|contracted procedure: k3002 o|contracted procedure: k3025 o|inlining procedure: k3017 o|contracted procedure: k3038 o|contracted procedure: k3061 o|inlining procedure: k3053 o|contracted procedure: k3074 o|contracted procedure: k3097 o|inlining procedure: k3089 o|contracted procedure: k3110 o|contracted procedure: k3133 o|inlining procedure: k3125 o|contracted procedure: k3146 o|contracted procedure: k3169 o|inlining procedure: k3161 o|contracted procedure: k3182 o|contracted procedure: k3205 o|inlining procedure: k3197 o|contracted procedure: k3278 o|contracted procedure: k3290 o|contracted procedure: k3302 o|contracted procedure: k3308 o|contracted procedure: k3320 o|contracted procedure: k3332 o|contracted procedure: k3338 o|contracted procedure: k3350 o|contracted procedure: k3362 o|contracted procedure: k3368 o|contracted procedure: k3380 o|contracted procedure: k3392 o|contracted procedure: k3398 o|contracted procedure: k3410 o|contracted procedure: k3421 o|contracted procedure: k3427 o|contracted procedure: k3439 o|contracted procedure: k3450 o|contracted procedure: k3456 o|contracted procedure: k3468 o|contracted procedure: k3479 o|contracted procedure: k3485 o|contracted procedure: k3497 o|contracted procedure: k3508 o|contracted procedure: k3514 o|contracted procedure: k3526 o|contracted procedure: k3537 o|contracted procedure: k3543 o|contracted procedure: k3555 o|contracted procedure: k3566 o|contracted procedure: k3605 o|contracted procedure: k3616 o|contracted procedure: k3619 o|contracted procedure: k3626 o|contracted procedure: k3634 o|contracted procedure: k3637 o|contracted procedure: k3643 o|contracted procedure: k3664 o|contracted procedure: k3667 o|contracted procedure: k3676 o|contracted procedure: k3854 o|contracted procedure: k3910 o|contracted procedure: k3867 o|contracted procedure: k3873 o|contracted procedure: k3876 o|contracted procedure: k3879 o|contracted procedure: k3898 o|contracted procedure: k3887 o|contracted procedure: k3951 o|contracted procedure: k3955 o|contracted procedure: k3959 o|contracted procedure: k3963 o|contracted procedure: k3967 o|contracted procedure: k3971 o|contracted procedure: k3975 o|contracted procedure: k3979 o|contracted procedure: k3983 o|contracted procedure: k3987 o|contracted procedure: k3921 o|contracted procedure: k3937 o|contracted procedure: k3944 o|contracted procedure: k3993 o|contracted procedure: k3996 o|contracted procedure: k3999 o|contracted procedure: k4064 o|contracted procedure: k4050 o|contracted procedure: k4056 o|contracted procedure: k4060 o|contracted procedure: k4068 o|contracted procedure: k4041 o|contracted procedure: k4034 o|contracted procedure: k4072 o|contracted procedure: k4017 o|contracted procedure: k4010 o|contracted procedure: k4298 o|contracted procedure: k4138 o|contracted procedure: k4292 o|contracted procedure: k4141 o|contracted procedure: k4286 o|contracted procedure: k4144 o|contracted procedure: k4280 o|contracted procedure: k4147 o|contracted procedure: k4274 o|contracted procedure: k4150 o|contracted procedure: k4268 o|contracted procedure: k4153 o|contracted procedure: k4156 o|contracted procedure: k4229 o|contracted procedure: k4189 o|inlining procedure: k4196 o|inlining procedure: k4196 o|contracted procedure: k4216 o|contracted procedure: k4219 o|contracted procedure: k4257 o|contracted procedure: k4247 o|contracted procedure: k4240 o|contracted procedure: k4261 o|contracted procedure: k4177 o|contracted procedure: k4170 o|contracted procedure: k4378 o|contracted procedure: k4307 o|contracted procedure: k4372 o|contracted procedure: k4310 o|contracted procedure: k4366 o|contracted procedure: k4313 o|contracted procedure: k4360 o|contracted procedure: k4316 o|contracted procedure: k4325 o|contracted procedure: k4331 o|contracted procedure: k4334 o|contracted procedure: k4347 o|contracted procedure: k4354 o|contracted procedure: k4438 o|contracted procedure: k4387 o|contracted procedure: k4432 o|contracted procedure: k4390 o|contracted procedure: k4426 o|contracted procedure: k4393 o|contracted procedure: k4420 o|contracted procedure: k4396 o|contracted procedure: k4411 o|simplifications: ((let . 30)) o|removed binding forms: 295 o|inlining procedure: "(srfi-4.scm:577) srfi-4#pack" o|inlining procedure: "(srfi-4.scm:576) srfi-4#pack" o|inlining procedure: "(srfi-4.scm:575) srfi-4#pack" o|inlining procedure: "(srfi-4.scm:574) srfi-4#pack" o|inlining procedure: "(srfi-4.scm:573) srfi-4#pack" o|inlining procedure: "(srfi-4.scm:572) srfi-4#pack" o|inlining procedure: "(srfi-4.scm:571) srfi-4#pack" o|inlining procedure: "(srfi-4.scm:570) srfi-4#pack" o|inlining procedure: "(srfi-4.scm:569) srfi-4#pack" o|inlining procedure: "(srfi-4.scm:568) srfi-4#pack" o|replaced variables: 177 o|removed binding forms: 1 o|inlining procedure: k1639 o|removed side-effect free assignment to unused variable: srfi-4#pack o|substituted constant variable: tag8665213 o|substituted constant variable: loc8675214 o|substituted constant variable: tag8665220 o|substituted constant variable: loc8675221 o|substituted constant variable: tag8665227 o|substituted constant variable: loc8675228 o|substituted constant variable: tag8665234 o|substituted constant variable: loc8675235 o|substituted constant variable: tag8665241 o|substituted constant variable: loc8675242 o|substituted constant variable: tag8665248 o|substituted constant variable: loc8675249 o|substituted constant variable: tag8665255 o|substituted constant variable: loc8675256 o|substituted constant variable: tag8665262 o|substituted constant variable: loc8675263 o|substituted constant variable: tag8665269 o|substituted constant variable: loc8675270 o|substituted constant variable: tag8665276 o|substituted constant variable: loc8675277 o|simplifications: ((if . 1)) o|replaced variables: 10 o|removed binding forms: 55 o|removed binding forms: 32 o|contracted procedure: k3694 o|contracted procedure: k3698 o|contracted procedure: k3702 o|contracted procedure: k3706 o|contracted procedure: k3710 o|contracted procedure: k3714 o|contracted procedure: k3718 o|contracted procedure: k3722 o|contracted procedure: k3726 o|contracted procedure: k3730 o|removed binding forms: 10 o|direct leaf routine/allocation: doloop268269 0 o|direct leaf routine/allocation: doloop302303 0 o|direct leaf routine/allocation: doloop336337 0 o|direct leaf routine/allocation: doloop370371 0 o|direct leaf routine/allocation: doloop404405 0 o|direct leaf routine/allocation: doloop438439 0 o|direct leaf routine/allocation: doloop472473 0 o|direct leaf routine/allocation: doloop506507 0 o|direct leaf routine/allocation: doloop541542 0 o|direct leaf routine/allocation: doloop577578 0 o|converted assignments to bindings: (doloop268269) o|converted assignments to bindings: (doloop302303) o|converted assignments to bindings: (doloop336337) o|converted assignments to bindings: (doloop370371) o|converted assignments to bindings: (doloop404405) o|converted assignments to bindings: (doloop438439) o|converted assignments to bindings: (doloop472473) o|converted assignments to bindings: (doloop506507) o|converted assignments to bindings: (doloop541542) o|converted assignments to bindings: (doloop577578) o|simplifications: ((let . 10)) o|customizable procedures: (srfi-4#pack-copy srfi-4#unpack srfi-4#unpack-copy k4343 k4199 srfi-4#subnvector g955956 k3679 k3646 loop840 loop833 loop826 loop819 loop812 loop805 loop798 loop791 loop784 loop777 doloop729730 doloop716717 doloop703704 doloop690691 doloop677678 doloop664665 doloop651652 doloop638639 doloop625626 doloop612613 k2792 k2681 alloc225) o|calls to known targets: 140 o|identified direct recursive calls: f_1736 1 o|identified direct recursive calls: f_1852 1 o|identified direct recursive calls: f_1968 1 o|identified direct recursive calls: f_2094 1 o|identified direct recursive calls: f_2210 1 o|identified direct recursive calls: f_2326 1 o|identified direct recursive calls: f_2452 1 o|identified direct recursive calls: f_2578 1 o|identified direct recursive calls: f_2688 1 o|identified direct recursive calls: f_2799 1 o|identified direct recursive calls: f_2868 1 o|identified direct recursive calls: f_2904 1 o|identified direct recursive calls: f_2940 1 o|identified direct recursive calls: f_2976 1 o|identified direct recursive calls: f_3012 1 o|identified direct recursive calls: f_3048 1 o|identified direct recursive calls: f_3084 1 o|identified direct recursive calls: f_3120 1 o|identified direct recursive calls: f_3156 1 o|identified direct recursive calls: f_3192 1 o|identified direct recursive calls: f_3285 1 o|identified direct recursive calls: f_3315 1 o|identified direct recursive calls: f_3345 1 o|identified direct recursive calls: f_3375 1 o|identified direct recursive calls: f_3405 1 o|identified direct recursive calls: f_3434 1 o|identified direct recursive calls: f_3463 1 o|identified direct recursive calls: f_3492 1 o|identified direct recursive calls: f_3521 1 o|identified direct recursive calls: f_3550 1 o|fast box initializations: 20 o|fast global references: 40 o|fast global assignments: 4 o|dropping unused closure argument: f_1622 o|dropping unused closure argument: f_3612 o|dropping unused closure argument: f_3630 o|dropping unused closure argument: f_3660 o|dropping unused closure argument: f_3991 */ /* end of file */ �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.syntax.import.c���������������������������������������������������������������0000644�0001750�0001750�00000013463�13502227775�017356� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.syntax.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.syntax.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.syntax.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[5]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.syntax.import.scm:30: ##sys#register-core-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=lf[3]; av2[5]=C_fast_retrieve(lf[4]); tp(6,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(148))){ C_save(t1); C_rereclaim2(148*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,5); lf[0]=C_h_intern(&lf[0],26, C_text("##sys#register-core-module")); lf[1]=C_h_intern(&lf[1],14, C_text("chicken.syntax")); lf[2]=C_h_intern(&lf[2],6, C_text("expand")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001expand\376\001\000\000\025\001chicken.syntax#expand\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001get-line-number" "\376\001\000\000\036\001chicken.syntax#get-line-number\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001strip-syntax\376\001\000\000\033\001chicken.sy" "ntax#strip-syntax\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001syntax-error\376\001\000\000\033\001chicken.syntax#syntax-error\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\024\001er-macro-transformer\376\001\000\000#\001chicken.syntax#er-macro-transformer\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\024\001ir-macro-transformer\376\001\000\000#\001chicken.syntax#ir-macro-transformer\376\377\016")); lf[4]=C_h_intern(&lf[4],38, C_text("##sys#chicken.syntax-macro-environment")); C_register_lf2(lf,5,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2esyntax_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2esyntax_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2esyntax_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2esyntax_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2esyntax_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|removed binding forms: 4 */ /* end of file */ �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.compiler.user-pass.import.c���������������������������������������������������0000644�0001750�0001750�00000014566�13502227772�021565� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.compiler.user-pass.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.compiler.user-pass.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.compiler.user-pass.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.compiler.user-pass.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(121))){ C_save(t1); C_rereclaim2(121*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],26, C_text("chicken.compiler.user-pass")); lf[2]=C_h_intern(&lf[2],9, C_text("user-pass")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001user-options-pass\376\001\000\000,\001chicken.compiler.user-pass#user-options-p" "ass\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001user-read-pass\376\001\000\000)\001chicken.compiler.user-pass#user-read-pass" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001user-preprocessor-pass\376\001\000\0001\001chicken.compiler.user-pass#user-prep" "rocessor-pass\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001user-pass\376\001\000\000$\001chicken.compiler.user-pass#user-pass" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001user-post-analysis-pass\376\001\000\0002\001chicken.compiler.user-pass#user-pos" "t-analysis-pass\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2ecompiler_2euser_2dpass_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2ecompiler_2euser_2dpass_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2ecompiler_2euser_2dpass_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2ecompiler_2euser_2dpass_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2ecompiler_2euser_2dpass_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/csc.scm�������������������������������������������������������������������������������0000644�0001750�0001750�00000122631�13502227553�014214� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; csc.scm - Driver program for the CHICKEN compiler - felix -*- Scheme -*- ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (module main () (import scheme chicken.base chicken.file chicken.fixnum chicken.foreign chicken.format chicken.io chicken.pathname chicken.platform chicken.process chicken.process-context chicken.string) (include "egg-environment.scm") (include "mini-srfi-1.scm") (define-foreign-variable windows-shell bool "C_WINDOWS_SHELL") (define-foreign-variable POSTINSTALL_PROGRAM c-string "C_INSTALL_POSTINSTALL_PROGRAM") (define-foreign-variable INSTALL_LIB_NAME c-string "C_INSTALL_LIB_NAME") (define-foreign-variable TARGET_LIB_NAME c-string "C_TARGET_LIB_NAME") (define host-libs (foreign-value "C_INSTALL_MORE_LIBS" c-string)) (define-foreign-variable TARGET_MORE_STATIC_LIBS c-string "C_TARGET_MORE_STATIC_LIBS") (define-foreign-variable INSTALL_MORE_STATIC_LIBS c-string "C_INSTALL_MORE_STATIC_LIBS") (define TARGET_CC default-cc) (define-foreign-variable CHICKEN_PROGRAM c-string "C_CHICKEN_PROGRAM") (define-foreign-variable TARGET_FEATURES c-string "C_TARGET_FEATURES") (define-foreign-variable TARGET_RUN_LIB_HOME c-string "C_TARGET_RUN_LIB_HOME") (define-foreign-variable TARGET_RC_COMPILER c-string "C_TARGET_RC_COMPILER") (define-foreign-variable INSTALL_RC_COMPILER c-string "C_INSTALL_RC_COMPILER") (define-foreign-variable TARGET_LDFLAGS c-string "C_TARGET_LDFLAGS") (define-foreign-variable INSTALL_LDFLAGS c-string "C_INSTALL_LDFLAGS") (define-foreign-variable CSC_PROGRAM c-string "C_CSC_PROGRAM") ;;; Parameters: (define windows (eq? (software-type) 'windows)) (define mingw (eq? (software-version) 'mingw32)) (define osx (eq? (software-version) 'macosx)) (define cygwin (eq? (software-version) 'cygwin)) (define aix (eq? (build-platform) 'aix)) (define elf (memq (software-version) '(linux netbsd freebsd solaris openbsd hurd haiku))) (define (stop msg . args) (fprintf (current-error-port) "~a: ~?~%" CSC_PROGRAM msg args) (exit 64) ) (define arguments (command-line-arguments)) (define cross-chicken (feature? #:cross-chicken)) (define host-mode (or (not cross-chicken) (member "-host" arguments))) (define (back-slash->forward-slash path) (if windows-shell (string-translate path #\\ #\/) path)) (define (quotewrap str) (qs (back-slash->forward-slash (normalize-pathname str)))) (define (quotewrap-no-slash-trans str) (qs (normalize-pathname str))) (define home (if host-mode host-sharedir default-sharedir)) (define translator (quotewrap (make-pathname host-bindir CHICKEN_PROGRAM))) (define compiler (quotewrap (if host-mode host-cc default-cc))) (define c++-compiler (quotewrap (if host-mode host-cxx default-cxx))) (define rc-compiler (quotewrap (if host-mode INSTALL_RC_COMPILER TARGET_RC_COMPILER))) (define linker (quotewrap (if host-mode host-cc default-cc))) (define c++-linker (quotewrap (if host-mode host-cxx default-cxx))) (define object-extension (if mingw "obj" "o")) (define library-extension "a") (define link-output-flag "-o ") (define executable-extension "") (define compile-output-flag "-o ") (define shared-library-extension ##sys#load-dynamic-extension) (define static-object-extension (##sys#string-append "static." object-extension)) (define static-library-extension (##sys#string-append "static." library-extension)) (define default-translation-optimization-options '()) (define pic-options (if (or mingw cygwin) '("-DPIC") '("-fPIC" "-DPIC"))) (define generate-manifest #f) (define (libchicken) (string-append "lib" (if (not host-mode) TARGET_LIB_NAME INSTALL_LIB_NAME))) (define (dynamic-libchicken) (if cygwin (string-append "cyg" INSTALL_LIB_NAME "-0") ; XXX not target (libchicken))) (define (default-library) (make-pathname library-dir (libchicken) library-extension)) (define default-compilation-optimization-options (string-split (if host-mode host-cflags default-cflags))) (define best-compilation-optimization-options default-compilation-optimization-options) (define default-linking-optimization-options (string-split (if host-mode INSTALL_LDFLAGS TARGET_LDFLAGS))) (define best-linking-optimization-options default-linking-optimization-options) (define extra-features (if host-mode '() (string-split TARGET_FEATURES))) (define-constant simple-options '(-explicit-use -no-trace -no-warnings -no-usual-integrations -optimize-leaf-routines -unsafe -block -disable-interrupts -fixnum-arithmetic -to-stdout -profile -raw -accumulate-profile -check-syntax -case-insensitive -shared -compile-syntax -no-lambda-info -dynamic -disable-stack-overflow-checks -local -emit-external-prototypes-first -inline -release -analyze-only -keep-shadowed-macros -inline-global -ignore-repository -no-symbol-escape -no-parentheses-synonyms -r5rs-syntax -no-argc-checks -no-bound-checks -no-procedure-checks -no-compiler-syntax -emit-all-import-libraries -no-elevation -no-module-registration -no-procedure-checks-for-usual-bindings -regenerate-import-libraries -specialize -strict-types -clustering -lfa2 -debug-info -no-procedure-checks-for-toplevel-bindings)) (define-constant complex-options '(-debug -heap-size -nursery -stack-size -compiler -unit -uses -keyword-style -optimize-level -include-path -database-size -extend -prelude -postlude -prologue -epilogue -emit-link-file -inline-limit -profile-name -emit-inline-file -consult-inline-file -emit-types-file -consult-types-file -feature -debug-level -emit-import-library -module -link -no-feature)) (define-constant shortcuts '((-h "-help") (-s "-shared") (-m "-module") (|-P| "-check-syntax") (-f "-fixnum-arithmetic") (|-D| "-feature") (-i "-case-insensitive") (|-K| "-keyword-style") (|-X| "-extend") (|-J| "-emit-all-import-libraries") (|-N| "-no-module-registration") (-x "-explicit-use") (-u "-unsafe") (-j "-emit-import-library") (-b "-block") (-types "-consult-types-file"))) (define short-options (string->list "PHhsfiENxubvwAOeWkctgSJM") ) ;;; Variables: (define scheme-files '()) (define c-files '()) (define rc-files '()) (define generated-c-files '()) (define generated-rc-files '()) (define object-files '()) (define generated-object-files '()) (define transient-link-files '()) (define linked-extensions '()) (define cpp-mode #f) (define objc-mode #f) (define embedded #f) (define inquiry-only #f) (define show-cflags #f) (define show-ldflags #f) (define show-libs #f) (define dry-run #f) (define gui #f) (define deployed #f) (define rpath #f) (define ignore-repository #f) (define show-debugging-help #f) (define library-dir (if host-mode host-libdir default-libdir)) (define extra-libraries (if host-mode INSTALL_MORE_STATIC_LIBS TARGET_MORE_STATIC_LIBS)) (define extra-shared-libraries (if host-mode host-libs default-libs)) (define (default-library-files) (list (string-append "-l" (if host-mode INSTALL_LIB_NAME TARGET_LIB_NAME)))) (define (library-files) (list (default-library))) (define (shared-library-files) (default-library-files)) (define translate-options '()) (define include-dir (let ((id (if host-mode host-incdir default-incdir))) (and (not (member id '("/usr/include" ""))) id) ) ) (define compile-options '()) (define builtin-compile-options (append (if include-dir (list (conc "-I" include-dir)) '()) (cond ((get-environment-variable "CHICKEN_C_INCLUDE_PATH") => (lambda (path) (map (cut string-append "-I" <>) (map quotewrap (string-split path ":;"))))) (else '())))) (define compile-only-flag "-c") (define translation-optimization-options default-translation-optimization-options) (define compilation-optimization-options default-compilation-optimization-options) (define linking-optimization-options default-linking-optimization-options) (define link-options '()) (define (builtin-link-options) (append (cond (elf (list (conc "-L" library-dir) (conc "-Wl,-R" (if deployed "$ORIGIN" (if host-mode host-libdir TARGET_RUN_LIB_HOME))))) (aix (list (conc "-Wl,-R\"" library-dir "\""))) (else (list (conc "-L" library-dir)))) (if (and deployed (memq (software-version) '(freebsd openbsd netbsd))) (list "-Wl,-z,origin") '()) (cond ((get-environment-variable "CHICKEN_C_LIBRARY_PATH") => (lambda (path) (map (cut string-append "-L" <>) (string-split path ":;")))) (else '())))) (define target-filename #f) (define verbose #f) (define keep-files #f) (define translate-only #f) (define compile-only #f) (define to-stdout #f) (define shared #f) (define static #f) ;;; Locate object files for linking: (define (repo-path) (if host-mode (repository-path) (destination-repository 'target))) (define (find-object-file name) (let ((o (make-pathname #f name object-extension)) (a (make-pathname #f name library-extension)) ;; In setup mode, objects in build dir may also end with "static.o" (static-a (make-pathname #f name static-library-extension)) (static-o (make-pathname #f name static-object-extension))) (or (file-exists? a) (file-exists? o) (and (eq? ##sys#setup-mode #t) (or (file-exists? static-a) (file-exists? static-o))) (and (not ignore-repository) (or (chicken.load#find-file a (repo-path)) (chicken.load#find-file o (repo-path))))))) ;;; Display usage information: (define (usage) (let ((csc CSC_PROGRAM)) (print #<#EOF Usage: #{csc} [OPTION ...] [FILENAME ...] `#{csc}' is a driver program for the CHICKEN compiler. Files given on the command line are translated, compiled or linked as needed. FILENAME is a Scheme source file name with optional extension or a C/C++/Objective-C source, object or library file name with extension. OPTION may be one of the following: General options: -h -help display this text and exit -v -verbose show compiler notes and tool-invocations -vv display information about translation progress -vvv display information about all compilation stages -version display Scheme compiler version and exit -release display release number and exit File and pathname options: -o -output-file FILENAME specifies target executable name -I -include-path PATHNAME specifies alternative path for included files -to-stdout write compiler to stdout (implies -t) -s -shared -dynamic generate dynamically loadable shared object file Language options: -D -DSYMBOL -feature SYMBOL register feature identifier -no-feature SYMBOL disable builtin feature identifier -c++ compile via a C++ source file (.cpp) -objc compile via Objective-C source file (.m) Syntax related options: -i -case-insensitive don't preserve case of read symbols -K -keyword-style STYLE enable alternative keyword-syntax (prefix, suffix or none) -no-parentheses-synonyms disables list delimiter synonyms -no-symbol-escape disables support for escaped symbols -r5rs-syntax disables the CHICKEN extensions to R5RS syntax -compile-syntax macros are made available at run-time -j -emit-import-library MODULE write compile-time module information into separate file -J -emit-all-import-libraries emit import-libraries for all defined modules -no-module-registration do not generate module registration code -no-compiler-syntax disable expansion of compiler-macros -m -module NAME wrap compiled code in a module Translation options: -x -explicit-use do not use units `library' and `eval' by default -P -check-syntax stop compilation after macro-expansion -A -analyze-only stop compilation after first analysis pass Debugging options: -w -no-warnings disable warnings -d0 -d1 -d2 -d3 -debug-level NUMBER set level of available debugging information -no-trace disable rudimentary debugging information -debug-info enable debug-information in compiled code for use with an external debugger -profile executable emits profiling information -accumulate-profile executable emits profiling information in append mode -profile-name FILENAME name of the generated profile information file -consult-types-file FILENAME load additional type database Optimization options: -O -O0 -O1 -O2 -O3 -O4 -O5 -optimize-level NUMBER enable certain sets of optimization options -optimize-leaf-routines enable leaf routine optimization -no-usual-integrations standard procedures may be redefined -u -unsafe disable safety checks -local assume globals are only modified in current file -b -block enable block-compilation -disable-interrupts disable interrupts in compiled code -f -fixnum-arithmetic assume all numbers are fixnums -disable-stack-overflow-checks disables detection of stack-overflows -inline enable inlining -inline-limit LIMIT set inlining threshold -inline-global enable cross-module inlining -specialize perform type-based specialization of primitive calls -oi -emit-inline-file FILENAME generate file with globally inlinable procedures (implies -inline -local) -consult-inline-file FILENAME explicitly load inline file -ot -emit-types-file FILENAME write type-declaration information into file -no-argc-checks disable argument count checks -no-bound-checks disable bound variable checks -no-procedure-checks disable procedure call checks -no-procedure-checks-for-usual-bindings disable procedure call checks only for usual bindings -no-procedure-checks-for-toplevel-bindings disable procedure call checks for toplevel bindings -strict-types assume variable do not change their type -clustering combine groups of local procedures into dispatch loop -lfa2 perform additional lightweight flow-analysis pass Configuration options: -unit NAME compile file as a library unit -uses NAME declare library unit as used. -heap-size NUMBER specifies heap-size of compiled executable -nursery NUMBER -stack-size NUMBER specifies nursery size of compiled executable -X -extend FILENAME load file before compilation commences -prelude EXPRESSION add expression to beginning of source file -postlude EXPRESSION add expression to end of source file -prologue FILENAME include file before main source file -epilogue FILENAME include file after main source file -e -embedded compile as embedded (don't generate `main()') -gui compile as GUI application -link NAME link extension with compiled executable (implies -uses) -R -require-extension NAME require extension and import in compiled code -dll -library compile multiple units into a dynamic library -libdir DIRECTORY override directory for runtime library Options to other passes: -C OPTION pass option to C compiler -L OPTION pass option to linker -I<DIR> pass \"-I<DIR>\" to C compiler (add include path) -L<DIR> pass \"-L<DIR>\" to linker (add library path) -k keep intermediate files -c stop after compilation to object files -t stop after translation to C -cc COMPILER select other C compiler than the default -cxx COMPILER select other C++ compiler than the default -ld COMPILER select other linker than the default -static link with static CHICKEN libraries and extensions (if possible) -F<DIR> pass \"-F<DIR>\" to C compiler (add framework header path on Mac OS X) -framework NAME passed to linker on Mac OS X -rpath PATHNAME add directory to runtime library search path -Wl,... pass linker options -strip strip resulting binary Inquiry options: -home show home-directory (where support files go) -cflags show required C-compiler flags and exit -ldflags show required linker flags and exit -libs show required libraries and exit -cc-name show name of default C compiler used -cxx-name show name of default C++ compiler used -ld-name show name of default linker used -dry-run just show commands executed, don't run them (implies `-v') Obscure options: -debug MODES display debugging output for the given modes -compiler PATHNAME use other compiler than default `chicken' -raw do not generate implicit init- and exit code -emit-external-prototypes-first emit prototypes for callbacks before foreign declarations -regenerate-import-libraries emit import libraries even when unchanged -ignore-repository do not refer to repository for extensions -keep-shadowed-macros do not remove shadowed macro -host compile for host when configured for cross-compiling -private-repository load extensions from executable path -deployed link support file to be used from a deployed executable (sets `rpath' accordingly, if supported on this platform) -no-elevation embed manifest on Windows to supress elevation warnings for programs named `install' or `setup' Options can be collapsed if unambiguous, so -vkfO is the same as -v -k -fixnum-arithmetic -optimize The contents of the environment variable CSC_OPTIONS are implicitly passed to every invocation of `#{csc}'. EOF ;| (for emacs font-lock) ) ) ) ;;; Parse arguments: (define (run args) (define (t-options . os) (set! translate-options (append translate-options os)) ) (define (check o r . n) (unless (>= (length r) (optional n 1)) (stop "not enough arguments to option `~A'" o) ) ) (define (shared-build lib) (set! translate-options (cons* "-feature" "chicken-compile-shared" translate-options)) (set! compile-options (append pic-options '("-DC_SHARED") compile-options)) (set! link-options (append (cond (osx (if lib '("-dynamiclib") '("-bundle" "-headerpad_max_install_names"))) (else '("-shared"))) link-options)) (set! shared #t) ) (define (use-private-repository) (set! compile-options (cons "-DC_PRIVATE_REPOSITORY" compile-options))) (define (generate-target-filename source-filename) (pathname-replace-extension source-filename (cond (shared shared-library-extension) (compile-only object-extension) (else executable-extension)))) (let loop ((args args)) (cond [(null? args) ;; Builtin search directory options do not override explicit options (set! compile-options (append compile-options builtin-compile-options)) (set! link-options (append link-options (builtin-link-options))) ;; (when inquiry-only (when show-cflags (print* (compiler-options) #\space)) (when show-ldflags (print* (linker-options) #\space)) (when show-libs (print* (linker-libraries) #\space)) (newline) (exit) ) (cond ((null? scheme-files) (when (and (null? c-files) (null? object-files)) (when show-debugging-help (command (string-intersperse (cons* translator "bogus.scm" translate-options)))) (stop "no source files specified") ) (unless target-filename (set! target-filename (generate-target-filename (last (if (null? c-files) object-files c-files)))))) (else (when (and shared (not embedded)) (set! translate-options (cons "-dynamic" translate-options)) ) (unless target-filename (set! target-filename (generate-target-filename (first scheme-files)))) (run-translation))) (unless translate-only (run-compilation) (unless compile-only (when (pair? linked-extensions) (set! object-files ; add objects from linked extensions (append (filter-map find-object-file linked-extensions) object-files))) (when (member target-filename scheme-files) (fprintf (current-error-port) "Warning: output file will overwrite source file `~A' - renaming source to `~A.old'~%" target-filename target-filename) (command (sprintf "~A ~A ~A" (if windows-shell "move" "mv") ((if windows-shell quotewrap-no-slash-trans quotewrap) target-filename) ((if windows-shell quotewrap-no-slash-trans quotewrap) (string-append target-filename ".old"))))) (run-linking)) ) ] [else (let* ([arg (car args)] [rest (cdr args)] [s (string->symbol arg)] ) (case s [(-help --help) (usage) (exit) ] [(-release) (print (chicken-version)) (exit) ] [(-version) (system (sprintf "~a ~a" translator " -version")) (exit)] [(-c++) (set! cpp-mode #t) (when osx (set! compile-options (cons "-no-cpp-precomp" compile-options))) ] [(-objc) (set! objc-mode #t) ] [(-static) (set! translate-options (cons "-static" translate-options)) (set! static #t)] [(-cflags) (set! inquiry-only #t) (set! show-cflags #t) ] [(-ldflags) (set! inquiry-only #t) (set! show-ldflags #t) ] [(-cc-name) (print compiler) (exit 0)] [(-cxx-name) (print c++-compiler) (exit 0)] [(-ld-name) (print linker) (exit 0)] [(-home) (print home) (exit 0)] [(-libs) (set! inquiry-only #t) (set! show-libs #t) ] ((-v -verbose) (when (number? verbose) (set! compile-options (cons* "-v" "-Q" compile-options)) (set! link-options (cons "-v" link-options)) ) (t-options "-verbose") (if verbose (set! verbose 2) (set! verbose #t)) ) [(-w -no-warnings) (set! compile-options (cons "-w" compile-options)) (t-options "-no-warnings") ] [(|-A| -analyze-only) (set! translate-only #t) (t-options "-analyze-only") ] [(|-P| -check-syntax) (set! translate-only #t) (t-options "-check-syntax") ] [(-k) (set! keep-files #t)] [(-c) (set! compile-only #t)] [(-t) (set! translate-only #t)] [(-e -embedded) (set! embedded #t) (set! compile-options (cons "-DC_EMBEDDED" compile-options)) ] [(-link) (check s rest) (t-options "-uses" (car rest)) (set! linked-extensions (append linked-extensions (string-split (car rest) ", "))) (set! rest (cdr rest))] ((-libdir) (check s rest) (set! library-dir (car rest)) (set! rest (cdr rest))) [(-require-extension -R) (check s rest) (t-options "-require-extension" (car rest)) (set! rest (cdr rest)) ] ((-private-repository) (use-private-repository)) ((-ignore-repository) (set! ignore-repository #t) (t-options arg)) ((-setup-mode) (set! ##sys#setup-mode #t) (t-options arg)) ((-no-elevation) (set! generate-manifest #t)) [(-gui) (set! gui #t) (set! compile-options (cons "-DC_GUI" compile-options)) (when mingw (set! object-files (cons (make-pathname host-sharedir "chicken.rc" object-extension) object-files)) (set! link-options (cons* "-lkernel32" "-luser32" "-lgdi32" "-mwindows" link-options)))] ((-deployed) (set! deployed #t)) [(-framework) (check s rest) (when osx (set! link-options (cons* "-framework" (car rest) link-options)) ) (set! rest (cdr rest)) ] [(-o -output-file) (check s rest) (let ([fn (car rest)]) (set! rest (cdr rest)) (set! target-filename fn) ) ] [(|-O| |-O1|) (set! rest (cons* "-optimize-level" "1" rest))] [(|-O0|) (set! rest (cons* "-optimize-level" "0" rest))] [(|-O2|) (set! rest (cons* "-optimize-level" "2" rest))] [(|-O3|) (set! rest (cons* "-optimize-level" "3" rest))] [(|-O4|) (set! rest (cons* "-optimize-level" "4" rest))] [(|-O5|) (set! rest (cons* "-optimize-level" "5" rest))] [(|-d0|) (set! rest (cons* "-debug-level" "0" rest))] [(|-d1|) (set! rest (cons* "-debug-level" "1" rest))] [(|-d2|) (set! rest (cons* "-debug-level" "2" rest))] [(|-d3|) (set! rest (cons* "-debug-level" "3" rest))] ((-debug) (check s rest) (t-options arg (car rest)) (when (memv #\h (string->list (car rest))) (set! show-debugging-help #t) (set! translate-only #t)) (set! rest (cdr rest))) [(-dry-run) (set! verbose #t) (set! dry-run #t)] [(-s -shared -dynamic) (shared-build #f) ] [(-dll -library) (shared-build #t) ] [(-compiler) (check s rest) (set! translator (car rest)) (set! rest (cdr rest)) ] [(-cc) (check s rest) (set! compiler (car rest)) (set! rest (cdr rest)) ] [(-cxx) (check s rest) (set! c++-compiler (car rest)) (set! rest (cdr rest)) ] [(-ld) (check s rest) (set! linker (car rest)) (set! rest (cdr rest)) ] [(|-I|) (check s rest) (set! rest (cons* "-include-path" (car rest) (cdr rest))) ] [(|-C|) (check s rest) (set! compile-options (append compile-options (string-split (car rest)))) (set! rest (cdr rest)) ] [(-strip) (set! link-options (append link-options (list "-s")))] [(|-L|) (check s rest) (set! link-options (append link-options (string-split (car rest)))) (set! rest (cdr rest)) ] [(-rpath) (check s rest) (set! rpath (car rest)) (when (and (memq (build-platform) '(gnu clang)) (not mingw) (not osx)) (set! link-options (append link-options (list (string-append "-Wl,-R" rpath)))) ) (set! rest (cdr rest)) ] [(-host) #f] ((-oi) (check s rest) (t-options "-emit-inline-file" (car rest)) (set! rest (cdr rest))) ((-ot) (check s rest) (t-options "-emit-types-file" (car rest)) (set! rest (cdr rest))) [(-) (set! scheme-files (append scheme-files '("-"))) (unless target-filename (set! target-filename (make-pathname #f "a" executable-extension)))] [else (when (eq? s '-to-stdout) (set! to-stdout #t) (set! translate-only #t) ) (when (memq s '(-optimize-level -benchmark-mode)) (set! compilation-optimization-options best-compilation-optimization-options) (set! linking-optimization-options best-linking-optimization-options) ) (cond [(assq s shortcuts) => (lambda (a) (set! rest (cons (cadr a) rest)))] [(memq s simple-options) (t-options arg)] ((memq s complex-options) (check s rest) (t-options arg (car rest)) (set! rest (cdr rest))) [(and (> (string-length arg) 2) (string=? "-:" (substring arg 0 2))) (t-options arg) ] [(and (> (string-length arg) 1) (char=? #\- (string-ref arg 0)) ) (cond [(char=? #\L (string-ref arg 1)) (when (char-whitespace? (string-ref arg 2)) (error "bad -L argument, <DIR> starts with whitespace" arg)) (set! link-options (append link-options (list arg))) ] [(char=? #\I (string-ref arg 1)) (when (char-whitespace? (string-ref arg 2)) (error "bad -I argument: <DIR> starts with whitespace" arg)) (set! compile-options (append compile-options (list arg))) ] [(char=? #\D (string-ref arg 1)) (t-options "-feature" (substring arg 2)) ] [(char=? #\F (string-ref arg 1)) (when osx (set! compile-options (append compile-options (list arg))) ) ] [(and (> (string-length arg) 3) (string=? "-Wl," (substring arg 0 4))) (set! link-options (append link-options (list arg))) ] [(> (string-length arg) 2) (let ([opts (cdr (string->list arg))]) (if (null? (lset-difference/eq? opts short-options)) (set! rest (append (map (lambda (o) (string-append "-" (string o))) opts) rest) ) (stop "invalid option `~A'" arg) ) ) ] [else (stop "invalid option `~A'" s)] ) ] [(file-exists? arg) (let-values ([(dirs name ext) (decompose-pathname arg)]) (cond [(not ext) (set! scheme-files (append scheme-files (list arg)))] [(member ext '("h" "c")) (set! c-files (append c-files (list arg))) ] ((string-ci=? ext "rc") (set! rc-files (append rc-files (list arg))) ) [(member ext '("cpp" "C" "cc" "cxx" "hpp")) (when osx (set! compile-options (cons "-no-cpp-precomp" compile-options))) (set! cpp-mode #t) (set! c-files (append c-files (list arg))) ] [(member ext '("m" "M" "mm")) (set! objc-mode #t) (set! c-files (append c-files (list arg))) ] [(or (string=? ext object-extension) (string=? ext library-extension) ) (set! object-files (append object-files (list arg))) ] [else (set! scheme-files (append scheme-files (list arg)))] ) ) ] [else (let ([f2 (string-append arg ".scm")]) (if (file-exists? f2) (set! rest (cons f2 rest)) (stop "file `~A' does not exist" arg) ) ) ] ) ] ) (loop rest) ) ] ) ) ) ;;; Translate all Scheme files: (define (run-translation) (for-each (lambda (f) (let* ((sf (if (= 1 (length scheme-files)) target-filename f)) (fc (pathname-replace-extension sf (cond (cpp-mode "cpp") (objc-mode "m") (else "c") ) ) ) ) (when (member fc c-files) (stop "C file generated from `~a' will overwrite explicitly given source file `~a'" f fc)) (command (string-intersperse (cons* translator (quotewrap f) (append (if to-stdout '("-to-stdout") `("-output-file" ,(quotewrap fc)) ) (if (##sys#debug-mode?) '("-:d") '()) (map quote-option (append extra-features translate-options (if (and static (not (member "-emit-link-file" translate-options))) (list "-emit-link-file" (pathname-replace-extension fc "link")) '()) (cond (cpp-mode '("-feature" "chicken-scheme-to-c++")) (objc-mode '("-feature" "chicken-scheme-to-objc")) (else '())) translation-optimization-options)) ) ) " ") ) (when (and static compile-only) (set! transient-link-files (cons (pathname-replace-extension f "link") transient-link-files))) (set! c-files (append (list fc) c-files)) (set! generated-c-files (append (list fc) generated-c-files)))) scheme-files)) ;;; Compile all C/C++ and .rc files: (define (run-compilation) (let ((ofiles '())) (for-each (lambda (f) (let ((fo (if (and compile-only target-filename (= 1 (length c-files))) target-filename (pathname-replace-extension f object-extension)))) (when (member fo object-files) (stop "object file generated from `~a' will overwrite explicitly given object file `~a'" f fo)) (command (string-intersperse (list (cond (cpp-mode c++-compiler) (else compiler) ) (quotewrap f) (string-append compile-output-flag (quotewrap fo)) compile-only-flag (if (and cpp-mode (string=? "g++" c++-compiler)) "-Wno-write-strings" "") (compiler-options) ) ) ) (set! generated-object-files (cons fo generated-object-files)) (set! ofiles (cons fo ofiles)))) c-files) (when (and generate-manifest (eq? 'windows (software-type))) (let ((rcf (pathname-replace-extension target-filename "rc"))) (create-win-manifest (pathname-file target-filename) rcf) (set! rc-files (cons rcf rc-files)) (set! generated-rc-files (cons rcf generated-rc-files)))) (for-each (lambda (f) (let ((fo (string-append f "." object-extension))) (command (string-intersperse (list rc-compiler (quotewrap f) (quotewrap fo)))) (set! generated-object-files (cons fo generated-object-files)) (set! ofiles (cons fo ofiles)))) rc-files) (set! object-files (append (reverse ofiles) object-files)) ; put generated object files first (unless keep-files (for-each $delete-file generated-c-files) (for-each $delete-file generated-rc-files)))) (define (compiler-options) (string-intersperse (map quote-option (append compilation-optimization-options compile-options) ) ) ) ;;; Link object files and libraries: (define (run-linking) (set! object-files (collect-linked-objects object-files generated-object-files)) (let* ((files (map quotewrap object-files)) (target (quotewrap target-filename)) (targetdir #f)) (command (string-intersperse (cons* (cond (cpp-mode c++-linker) (else linker) ) (append files (list (string-append link-output-flag (quotewrap target-filename)) (linker-options) (linker-libraries) ) ) ) ) ) (when (and osx host-mode) (command (string-append POSTINSTALL_PROGRAM " -change " (libchicken) ".dylib " (quotewrap (let ((lib (string-append (libchicken) ".dylib"))) (if deployed (make-pathname "@executable_path" lib) (make-pathname (if host-mode host-libdir TARGET_RUN_LIB_HOME) lib)))) " " target) ) (when gui (rez target))) (unless keep-files (for-each $delete-file (append generated-object-files transient-link-files))))) (define (collect-linked-objects ofiles gen-ofiles) (define (locate-link-file o) (let* ((p (pathname-strip-extension o)) ;; Also strip "static.o" extension when in setup mode: (f (if ##sys#setup-mode (string-chomp p ".static") p))) (file-exists? (make-pathname #f f "link")))) (define (locate-objects libs) (map (lambda (id) (or (find-object-file id) (stop "could not find linked extension: ~A" id))) (map ->string libs))) (let loop ((os ofiles) (os2 ofiles)) (cond ((null? os) (delete-duplicates (reverse os2) string=?)) ((or static (not (member (car os) gen-ofiles))) (let* ((lfile (locate-link-file (car os))) (newos (if lfile (locate-objects (with-input-from-file lfile read)) '()))) (loop (append newos (cdr os)) (append newos os2)))) (else (loop (cdr os) (cons (car os) os2)))))) (define (copy-files from to) (command (sprintf "~a ~a ~a" (if windows-shell "copy /Y" "cp") ((if windows-shell quotewrap-no-slash-trans quotewrap) from) ((if windows-shell quotewrap-no-slash-trans quotewrap) to)))) (define (linker-options) (string-intersperse (map quote-option (append linking-optimization-options link-options) ) ) ) (define (linker-libraries) (string-intersperse (append (if static (library-files) (shared-library-files)) (if static (list extra-libraries) (list extra-shared-libraries))))) ;;; Helper procedures: (define-constant +hairy-chars+ '(#\\ #\#)) (define (cleanup s) (let* ((q #f) (s (list->string (let fold ([s (string->list s)]) (if (null? s) '() (let ([c (car s)]) (cond ((memq c +hairy-chars+) (cons* #\\ c (fold (cdr s)))) (else (when (char-whitespace? c) (set! q #t)) (cons c (fold (cdr s))) ) ) ) ) ) ) ) ) (if q (string-append "\"" (string-translate* s '(("\"" . "\\\""))) "\"") s) ) ) ;; Simpler replacement for SRFI-13's string-any (define (string-any criteria s) (let ((end (string-length s))) (let lp ((i 0)) (let ((c (string-ref s i)) (i1 (+ i 1))) (if (= i1 end) (criteria c) (or (criteria c) (lp i1))))))) (define (quote-option x) (cond ((string-any (cut char=? #\" <>) x) x) ((string-any (lambda (c) (or (char-whitespace? c) (memq c +hairy-chars+)) ) x) (cleanup x)) (else x) )) (define last-exit-code #f) (define ($system str) (let ((str (cond (windows-shell (string-append "\"" str "\"")) ((and osx (get-environment-variable "DYLD_LIBRARY_PATH")) => (lambda (path) (string-append "/usr/bin/env DYLD_LIBRARY_PATH=" (qs path) " " str))) (else str)))) (when verbose (print str)) (let ((raw-exit-code (if dry-run 0 (system str)))) (unless (zero? raw-exit-code) (printf "\nError: shell command terminated with non-zero exit status ~S: ~A~%" raw-exit-code str)) (set! last-exit-code (if (zero? raw-exit-code) 0 1)) last-exit-code))) (define (command str) (unless (zero? ($system str)) (exit last-exit-code))) (define ($delete-file str) (when verbose (print "rm " str) ) (unless dry-run (delete-file str) )) (define (rez file) ;; see also: http://www.cocan.org/getting_started_with_ocaml_on_mac_os_x (command (sprintf "/Developer/Tools/Rez -t APPL -o ~a ~a" (quotewrap file) (quotewrap (make-pathname home "mac.r"))))) (define (create-win-manifest prg rcfname) (when verbose (print "generating " rcfname)) (with-output-to-file rcfname (lambda () (print #<#EOF 1 24 MOVEABLE PURE BEGIN "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>\r\n" "<assembly xmlns=""urn:schemas-microsoft-com:asm.v1"" manifestVersion=""1.0"">\r\n" " <assemblyIdentity version=""1.0.0.0"" processorArchitecture=""*"" name=""#{prg}"" type=""win32""/>\r\n" " <ms_asmv2:trustInfo xmlns:ms_asmv2=""urn:schemas-microsoft-com:asm.v2"">\r\n" " <ms_asmv2:security>\r\n" " <ms_asmv2:requestedPrivileges>\r\n" " <ms_asmv2:requestedExecutionLevel level=""asInvoker"" uiAccess=""false""/>\r\n" " </ms_asmv2:requestedPrivileges>\r\n" " </ms_asmv2:security>\r\n" " </ms_asmv2:trustInfo>\r\n" "</assembly>\r\n" END EOF ) ) ) ) ;;; Run it: (run (append (string-split (or (get-environment-variable "CSC_OPTIONS") "")) arguments)) ) �������������������������������������������������������������������������������������������������������chicken-5.1.0/internal.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000016744�13502227553�015267� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; internal.scm - Runtime support module for CHICKEN ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit internal) (disable-interrupts) (fixnum)) ;; This is a bit of a grab-bag of stuff that's used in various places ;; in the runtime and the compiler, but which is not supposed to be ;; used by the user, and doesn't strictly belong anywhere in ;; particular. (module chicken.internal (;; Convert string into valid C-identifier string->c-identifier ;; Parse library specifications library-id valid-library-specifier? ;; Requirement identifier for modules module-requirement ;;; Check for multiple bindings in "let"-style constructs check-for-multiple-bindings ;;; Macro environment manipulation macro-subset fixup-macro-environment ;; Low-level hash table support make-hash-table hash-table-ref hash-table-set! hash-table-update! hash-table-for-each hash-table-size ;; Modules that are made available to code by default default-imports default-syntax-imports) (import scheme chicken.base chicken.fixnum) (include "common-declarations.scm") (include "mini-srfi-1.scm") ;;; Convert string into valid C-identifier: (define (string->c-identifier str) (let ((out (open-output-string)) (n (string-length str))) (do ((i 0 (fx+ i 1))) ((fx>= i n) (get-output-string out)) (let ((c (string-ref str i))) (if (and (not (char-alphabetic? c)) (or (not (char-numeric? c)) (fx= i 0))) (let ((i (char->integer c))) (write-char #\_ out) (when (fx< i 16) (write-char #\0 out)) (display (number->string i 16) out)) (write-char c out)))))) ;;; Parse library specifications: (define (valid-library-specifier? x) (or (symbol? x) (and (list? x) (not (null? x)) (every (lambda (x) (or (symbol? x) (fixnum? x))) x)))) (define (library-id lib) (define (fail) (##sys#error "invalid library specifier" lib)) (define (srfi? x) (and (pair? (cdr x)) (null? (cddr x)) (eq? 'srfi (car x)) (fixnum? (cadr x)))) (define (library-part->string x) (cond ((symbol? x) (##sys#symbol->string x)) ((fixnum? x) (##sys#number->string x)) (else (fail)))) (cond ((symbol? lib) lib) ((null? lib) (fail)) ((not (list? lib)) (fail)) ((srfi? lib) (##sys#intern-symbol (##sys#string-append "srfi-" (##sys#number->string (cadr lib))))) (else (do ((lst (cdr lib) (cdr lst)) (str (library-part->string (car lib)) (string-append str "." (library-part->string (car lst))))) ((null? lst) (##sys#intern-symbol str)))))) ;;; Requirement identifier for modules: (define (module-requirement id) (##sys#string->symbol (##sys#string-append (##sys#slot id 1) "#"))) ;;; Check for multiple bindings in "let"-style constructs: (define (check-for-multiple-bindings bindings form loc) ;; assumes correct syntax (let loop ((bs bindings) (seen '()) (warned '())) (cond ((null? bs)) ((and (memq (caar bs) seen) (not (memq (caar bs) warned))) (##sys#warn (string-append "variable bound multiple times in " loc " construct") (caar bs) form) (loop (cdr bs) seen (cons (caar bs) warned))) (else (loop (cdr bs) (cons (caar bs) seen) warned))))) ;;; Macro environment manipulation: (define (macro-subset me0 #!optional parent-env) (let ((se (let loop ((me (##sys#macro-environment))) (if (or (null? me) (eq? me me0)) '() (cons (car me) (loop (cdr me))))))) (fixup-macro-environment se parent-env))) (define (fixup-macro-environment se #!optional parent-env) (let ((se2 (if parent-env (##sys#append se parent-env) se))) (for-each ; fixup se (lambda (sdef) (when (pair? (cdr sdef)) (set-car! (cdr sdef) (if (null? (cadr sdef)) se2 (##sys#append (cadr sdef) se2))))) se) se)) ;;; Low-level hashtable support: (define hash-symbol (let ((cache-s #f) (cache-h #f) ;; NOTE: All low-level hash tables share the same randomization factor (rand (##core#inline "C_rand" #x10000))) (lambda (s n) (if (eq? s cache-s) (##core#inline "C_fixnum_modulo" cache-h n) (begin (set! cache-s s) (set! cache-h (##core#inline "C_u_i_string_hash" (##sys#slot s 1) rand)) (##core#inline "C_fixnum_modulo" cache-h n)))))) (define (make-hash-table #!optional (size 301)) (make-vector size '())) (define (hash-table-ref ht key) (let loop ((bucket (##sys#slot ht (hash-symbol key (##core#inline "C_block_size" ht))))) (and (not (eq? '() bucket)) (if (eq? key (##sys#slot (##sys#slot bucket 0) 0)) (##sys#slot (##sys#slot bucket 0) 1) (loop (##sys#slot bucket 1)))))) (define (hash-table-set! ht key val) (let* ((k (hash-symbol key (##core#inline "C_block_size" ht))) (ib (##sys#slot ht k))) (let loop ((bucket ib)) (if (eq? '() bucket) (##sys#setslot ht k (cons (cons key val) ib)) (if (eq? key (##sys#slot (##sys#slot bucket 0) 0)) (##sys#setslot (##sys#slot bucket 0) 1 val) (loop (##sys#slot bucket 1))))))) (define (hash-table-update! ht key updtfunc valufunc) (hash-table-set! ht key (updtfunc (or (hash-table-ref ht key) (valufunc))))) (define (hash-table-for-each p ht) (let ((len (##core#inline "C_block_size" ht))) (do ((i 0 (fx+ i 1))) ((fx>= i len)) (##sys#for-each (lambda (bucket) (p (##sys#slot bucket 0) (##sys#slot bucket 1))) (##sys#slot ht i))))) (define (hash-table-size ht) (let loop ((len (##sys#size ht)) (bkt 0) (size 0)) (if (fx= bkt len) size (loop len (fx+ bkt 1) (fx+ size (##sys#length (##sys#slot ht bkt))))))) ;;; Modules that are made available to code by default: ;; WARNING: These import libs must all exist. They cannot be emitted, ;; because the compiler itself needs them to expand macros! ;; WARNING: These also need to be built into modules.scm, so that ;; statically linked programs can eval the imports for these modules. (define default-imports '(scheme chicken.base chicken.syntax)) (define default-syntax-imports '(scheme chicken.base chicken.syntax)) ) ; chicken.internal ����������������������������chicken-5.1.0/chicken.keyword.import.c��������������������������������������������������������������0000644�0001750�0001750�00000014032�13502227773�017503� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.keyword.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.keyword.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.keyword.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.keyword.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(101))){ C_save(t1); C_rereclaim2(101*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],15, C_text("chicken.keyword")); lf[2]=C_h_intern(&lf[2],7, C_text("library")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001keyword\077\376\001\000\000\030\001chicken.keyword#keyword\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001get-keywor" "d\376\001\000\000\033\001chicken.keyword#get-keyword\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001keyword->string\376\001\000\000\037\001chicken.k" "eyword#keyword->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001string->keyword\376\001\000\000\037\001chicken.keyword#strin" "g->keyword\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2ekeyword_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2ekeyword_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2ekeyword_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2ekeyword_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2ekeyword_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/tcp.scm�������������������������������������������������������������������������������0000644�0001750�0001750�00000056220�13502227553�014232� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; tcp.scm - Networking stuff ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit tcp) (uses port scheduler) (disable-interrupts) ; Avoid race conditions around errno/WSAGetLastError (foreign-declare #<<EOF #ifdef _WIN32 # include <winsock2.h> # include <ws2tcpip.h> /* Beware: winsock2.h must come BEFORE windows.h */ # define socklen_t int static WSADATA wsa; # ifndef SHUT_RD # define SHUT_RD SD_RECEIVE # endif # ifndef SHUT_WR # define SHUT_WR SD_SEND # endif # define typecorrect_getsockopt(socket, level, optname, optval, optlen) \ getsockopt(socket, level, optname, (char *)optval, optlen) static C_word make_socket_nonblocking (C_word sock) { int fd = C_unfix(sock); C_return(C_mk_bool(ioctlsocket(fd, FIONBIO, (void *)&fd) != SOCKET_ERROR)) ; } /* This is a bit of a hack, but it keeps things simple */ static C_TLS char *last_wsa_errorstring = NULL; static char *errormsg_from_code(int code) { int bufsize; if (last_wsa_errorstring != NULL) { LocalFree(last_wsa_errorstring); last_wsa_errorstring = NULL; } bufsize = FormatMessage( FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS, NULL, code, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (LPTSTR) &last_wsa_errorstring, 0, NULL); if (bufsize == 0) return "ERROR WHILE FETCHING ERROR"; return last_wsa_errorstring; } # define get_last_socket_error() WSAGetLastError() # define should_retry_call() (WSAGetLastError() == WSAEWOULDBLOCK) /* Not EINPROGRESS in winsock. Nonblocking connect returns EWOULDBLOCK... */ # define call_in_progress() (WSAGetLastError() == WSAEWOULDBLOCK) # define call_was_interrupted() (WSAGetLastError() == WSAEINTR) /* ? */ #else # include <errno.h> # include <fcntl.h> # include <sys/socket.h> # include <sys/time.h> # include <netinet/in.h> # include <netdb.h> # include <signal.h> # define closesocket close # define INVALID_SOCKET -1 # define SOCKET_ERROR -1 # define typecorrect_getsockopt getsockopt static C_word make_socket_nonblocking (C_word sock) { int fd = C_unfix(sock); int val = fcntl(fd, F_GETFL, 0); if(val == -1) C_return(C_SCHEME_FALSE); C_return(C_mk_bool(fcntl(fd, F_SETFL, val | O_NONBLOCK) != -1)); } # define get_last_socket_error() errno # define errormsg_from_code(e) strerror(e) # define should_retry_call() (errno == EAGAIN || errno == EWOULDBLOCK) # define call_was_interrupted() (errno == EINTR) # define call_in_progress() (errno == EINPROGRESS) #endif #ifdef ECOS #include <sys/sockio.h> #endif #ifndef h_addr # define h_addr h_addr_list[ 0 ] #endif static char addr_buffer[ 20 ]; static int C_set_socket_options(int socket) { int yes = 1; int r; r = setsockopt(socket, SOL_SOCKET, SO_REUSEADDR, (const char *)&yes, sizeof(int)); if(r != 0) return r; #ifdef SO_NOSIGPIPE /* * Avoid SIGPIPE (iOS uses *only* SIGPIPE otherwise, not returning EPIPE). * For consistency we do this everywhere the option is supported. */ r = setsockopt(socket, SOL_SOCKET, SO_NOSIGPIPE, (const char *)&yes, sizeof(int)); #endif return r; } EOF ) ) (module chicken.tcp (tcp-close tcp-listen tcp-connect tcp-accept tcp-accept-ready? tcp-listener? tcp-addresses tcp-abandon-port tcp-listener-port tcp-listener-fileno tcp-port-numbers tcp-buffer-size tcp-read-timeout tcp-write-timeout tcp-accept-timeout tcp-connect-timeout) (import scheme chicken.base chicken.fixnum chicken.foreign chicken.port chicken.time) (include "common-declarations.scm") (define-foreign-type sockaddr* (pointer "struct sockaddr")) (define-foreign-type sockaddr_in* (pointer "struct sockaddr_in")) (define-foreign-variable _af_inet int "AF_INET") (define-foreign-variable _sock_stream int "SOCK_STREAM") (define-foreign-variable _sock_dgram int "SOCK_DGRAM") (define-foreign-variable _sockaddr_size int "sizeof(struct sockaddr)") (define-foreign-variable _sockaddr_in_size int "sizeof(struct sockaddr_in)") (define-foreign-variable _shut_rd int "SHUT_RD") (define-foreign-variable _shut_wr int "SHUT_WR") (define-foreign-variable _ipproto_tcp int "IPPROTO_TCP") (define-foreign-variable _invalid_socket int "INVALID_SOCKET") (define-foreign-variable _socket_error int "SOCKET_ERROR") (define last-error-code (foreign-lambda int "get_last_socket_error")) (define error-code->message (foreign-lambda c-string "errormsg_from_code" int)) (define retry? (foreign-lambda bool "should_retry_call")) (define in-progress? (foreign-lambda bool "call_in_progress")) (define interrupted? (foreign-lambda bool "call_was_interrupted")) (define socket (foreign-lambda int "socket" int int int)) (define bind (foreign-lambda int "bind" int scheme-pointer int)) (define listen (foreign-lambda int "listen" int int)) (define accept (foreign-lambda int "accept" int c-pointer c-pointer)) (define close (foreign-lambda int "closesocket" int)) (define recv (foreign-lambda int "recv" int scheme-pointer int int)) (define shutdown (foreign-lambda int "shutdown" int int)) (define connect (foreign-lambda int "connect" int scheme-pointer int)) (define check-fd-ready (foreign-lambda int "C_check_fd_ready" int)) (define set-socket-options (foreign-lambda int "C_set_socket_options" int)) (define send (foreign-lambda* int ((int s) (scheme-pointer msg) (int offset) (int len) (int flags)) "C_return(send(s, (char *)msg+offset, len, flags));")) (define getsockname (foreign-lambda* c-string ((int s)) "struct sockaddr_in sa;" "unsigned char *ptr;" "int len = sizeof(struct sockaddr_in);" "if(getsockname(s, (struct sockaddr *)&sa, (socklen_t *)&len) != 0) C_return(NULL);" "ptr = (unsigned char *)&sa.sin_addr;" "C_snprintf(addr_buffer, sizeof(addr_buffer), \"%d.%d.%d.%d\", ptr[ 0 ], ptr[ 1 ], ptr[ 2 ], ptr[ 3 ]);" "C_return(addr_buffer);") ) (define getsockport (foreign-lambda* int ((int s)) "struct sockaddr_in sa;" "int len = sizeof(struct sockaddr_in);" "if(getsockname(s, (struct sockaddr *)&sa, (socklen_t *)(&len)) != 0) C_return(-1);" "else C_return(ntohs(sa.sin_port));") ) (define getpeerport (foreign-lambda* int ((int s)) "struct sockaddr_in sa;" "int len = sizeof(struct sockaddr_in);" "if(getpeername(s, (struct sockaddr *)&sa, (socklen_t *)(&len)) != 0) C_return(-1);" "else C_return(ntohs(sa.sin_port));") ) (define getpeername (foreign-lambda* c-string ((int s)) "struct sockaddr_in sa;" "unsigned char *ptr;" "unsigned int len = sizeof(struct sockaddr_in);" "if(getpeername(s, (struct sockaddr *)&sa, ((socklen_t *)&len)) != 0) C_return(NULL);" "ptr = (unsigned char *)&sa.sin_addr;" "C_snprintf(addr_buffer, sizeof(addr_buffer), \"%d.%d.%d.%d\", ptr[ 0 ], ptr[ 1 ], ptr[ 2 ], ptr[ 3 ]);" "C_return(addr_buffer);") ) (define startup (foreign-lambda* bool () #<<EOF #ifdef _WIN32 C_return(WSAStartup(MAKEWORD(1, 1), &wsa) == 0); #else signal(SIGPIPE, SIG_IGN); C_return(1); #endif EOF ) ) (unless (startup) (##sys#signal-hook #:network-error "cannot initialize Winsock") ) (define getservbyname (foreign-lambda* int ((c-string serv) (c-string proto)) "struct servent *se; if((se = getservbyname(serv, proto)) == NULL) C_return(0); else C_return(ntohs(se->s_port));") ) (define gethostaddr (foreign-lambda* bool ((scheme-pointer saddr) (c-string host) (unsigned-short port)) "struct hostent *he = gethostbyname(host);" "struct sockaddr_in *addr = (struct sockaddr_in *)saddr;" "if(he == NULL) C_return(0);" "memset(addr, 0, sizeof(struct sockaddr_in));" "addr->sin_family = AF_INET;" "addr->sin_port = htons((short)port);" "addr->sin_addr = *((struct in_addr *)he->h_addr);" "C_return(1);") ) (define-syntax network-error (syntax-rules () ((_ loc msg . args) (network-error/code loc (last-error-code) msg . args)))) (define-syntax network-error/close (syntax-rules () ((_ loc msg socket . args) (let ((error-code (last-error-code))) (close socket) (network-error/code loc error-code msg socket . args))))) (define-syntax network-error/code (syntax-rules () ((_ loc error-code msg . args) (##sys#signal-hook #:network-error loc (string-append (string-append msg " - ") (error-code->message error-code)) . args)))) (define parse-host (let ((substring substring)) (lambda (host proto) (let ((len (##sys#size host))) (let loop ((i 0)) (if (fx>= i len) (values host #f) (let ((c (##core#inline "C_subchar" host i))) (if (char=? c #\:) (values (substring host (fx+ i 1) len) (let* ((s (substring host 0 i)) (p (getservbyname s proto))) (when (eq? 0 p) (network-error 'tcp-connect "cannot compute port from service" s) ) p) ) (loop (fx+ i 1)) ) ) ) ) ) ) ) ) (define fresh-addr (foreign-lambda* void ((scheme-pointer saddr) (unsigned-short port)) "struct sockaddr_in *addr = (struct sockaddr_in *)saddr;" "memset(addr, 0, sizeof(struct sockaddr_in));" "addr->sin_family = AF_INET;" "addr->sin_port = htons(port);" "addr->sin_addr.s_addr = htonl(INADDR_ANY);") ) (define (bind-socket style host port) (let ((addr (make-string _sockaddr_in_size))) (if host (unless (gethostaddr addr host port) (##sys#signal-hook #:network-error 'tcp-listen "getting listener host IP failed" host port) ) (fresh-addr addr port) ) (let ((s (socket _af_inet style 0))) (when (eq? _invalid_socket s) (##sys#error "cannot create socket") ) ;; PLT makes this an optional arg to tcp-listen. Should we as well? (when (eq? _socket_error (set-socket-options s)) (network-error 'tcp-listen "error while setting up socket" s) ) (when (eq? _socket_error (bind s addr _sockaddr_in_size)) (network-error/close 'tcp-listen "cannot bind to socket" s host port) ) s)) ) (define-constant default-backlog 100) (define (tcp-listen port #!optional (backlog default-backlog) host) (##sys#check-fixnum port) (when (or (fx< port 0) (fx> port 65535)) (##sys#signal-hook #:domain-error 'tcp-listen "invalid port number" port) ) (##sys#check-fixnum backlog) (let ((s (bind-socket _sock_stream host port))) (when (eq? _socket_error (listen s backlog)) (network-error/close 'tcp-listen "cannot listen on socket" s port) ) (##sys#make-structure 'tcp-listener s) ) ) (define (tcp-listener? x) (and (##core#inline "C_blockp" x) (##sys#structure? x 'tcp-listener) ) ) (define (tcp-close tcpl) (##sys#check-structure tcpl 'tcp-listener) (let ((s (##sys#slot tcpl 1))) (when (eq? _socket_error (close s)) (network-error 'tcp-close "cannot close TCP socket" tcpl) ) ) ) (define-constant +input-buffer-size+ 1024) (define-constant +output-chunk-size+ 8192) (define tcp-buffer-size (make-parameter #f)) (define tcp-read-timeout) (define tcp-write-timeout) (define tcp-connect-timeout) (define tcp-accept-timeout) (let () (define ((check loc) x) (when x (##sys#check-fixnum x loc)) x) (define minute (fx* 60 1000)) (set! tcp-read-timeout (make-parameter minute (check 'tcp-read-timeout))) (set! tcp-write-timeout (make-parameter minute (check 'tcp-write-timeout))) (set! tcp-connect-timeout (make-parameter #f (check 'tcp-connect-timeout))) (set! tcp-accept-timeout (make-parameter #f (check 'tcp-accept-timeout))) ) (define io-ports (let ((tbs tcp-buffer-size)) (lambda (loc fd) (unless (##core#inline "make_socket_nonblocking" fd) (network-error/close loc "cannot create TCP ports" fd) ) (let* ((buf (make-string +input-buffer-size+)) (data (vector fd #f #f buf 0)) (buflen 0) (bufindex 0) (iclosed #f) (oclosed #f) (outbufsize (tbs)) (outbuf (and outbufsize (fx> outbufsize 0) "")) (read-input (lambda () (let* ((tmr (tcp-read-timeout)) (dlr (and tmr (+ (current-milliseconds) tmr)))) (let loop () (let ((n (recv fd buf +input-buffer-size+ 0))) (cond ((eq? _socket_error n) (cond ((retry?) (when dlr (##sys#thread-block-for-timeout! ##sys#current-thread dlr) ) (##sys#thread-block-for-i/o! ##sys#current-thread fd #:input) (##sys#thread-yield!) (when (##sys#slot ##sys#current-thread 13) (##sys#signal-hook #:network-timeout-error "read operation timed out" tmr fd) ) (loop) ) ((interrupted?) (##sys#dispatch-interrupt loop)) (else (network-error #f "cannot read from socket" fd) ) ) ) (else (set! buflen n) (##sys#setislot data 4 n) (set! bufindex 0) ) ) ) )) ) ) (in (make-input-port (lambda () (when (fx>= bufindex buflen) (read-input)) (if (fx>= bufindex buflen) #!eof (let ((c (##core#inline "C_subchar" buf bufindex))) (set! bufindex (fx+ bufindex 1)) c) ) ) (lambda () (or (fx< bufindex buflen) ;; XXX: This "knows" that check_fd_ready is ;; implemented using a winsock2 call on Windows (let ((f (check-fd-ready fd))) (when (eq? _socket_error f) (network-error #f "cannot check socket for input" fd) ) (eq? f 1) ) ) ) (lambda () (unless iclosed (set! iclosed #t) (unless (##sys#slot data 1) (shutdown fd _shut_rd)) (when (and oclosed (eq? _socket_error (close fd))) (network-error #f "cannot close socket input port" fd) ) ) ) (lambda () (when (fx>= bufindex buflen) (read-input)) (if (fx< bufindex buflen) (##core#inline "C_subchar" buf bufindex) #!eof)) (lambda (p n dest start) ; read-string! (let loop ((n n) (m 0) (start start)) (cond ((eq? n 0) m) ((fx< bufindex buflen) (let* ((rest (fx- buflen bufindex)) (n2 (if (fx< n rest) n rest))) (##core#inline "C_substring_copy" buf dest bufindex (fx+ bufindex n2) start) (set! bufindex (fx+ bufindex n2)) (loop (fx- n n2) (fx+ m n2) (fx+ start n2)) ) ) (else (read-input) (if (eq? buflen 0) m (loop n m start) ) ) ) ) ) (lambda (p limit) ; read-line (when (fx>= bufindex buflen) (read-input)) (if (fx>= bufindex buflen) #!eof (let ((limit (or limit (fx- most-positive-fixnum bufindex)))) (receive (next line full-line?) (##sys#scan-buffer-line buf (fxmin buflen (fx+ bufindex limit)) bufindex (lambda (pos) (let ((nbytes (fx- pos bufindex))) (cond ((fx>= nbytes limit) (values #f pos #f)) (else (read-input) (set! limit (fx- limit nbytes)) (if (fx< bufindex buflen) (values buf bufindex (fxmin buflen (fx+ bufindex limit))) (values #f bufindex #f))))) ) ) ;; Update row & column position (if full-line? (begin (##sys#setislot p 4 (fx+ (##sys#slot p 4) 1)) (##sys#setislot p 5 0)) (##sys#setislot p 5 (fx+ (##sys#slot p 5) (##sys#size line)))) (set! bufindex next) line) )) ) (lambda (p) ; read-buffered (if (fx>= bufindex buflen) "" (let ((str (##sys#substring buf bufindex buflen))) (set! bufindex buflen) str))) ) ) (output (lambda (s) (let ((tmw (tcp-write-timeout))) (let loop ((len (##sys#size s)) (offset 0) (dlw (and tmw (+ (current-milliseconds) tmw)))) (let* ((count (fxmin +output-chunk-size+ len)) (n (send fd s offset count 0))) (cond ((eq? _socket_error n) (cond ((retry?) (when dlw (##sys#thread-block-for-timeout! ##sys#current-thread dlw) ) (##sys#thread-block-for-i/o! ##sys#current-thread fd #:output) (##sys#thread-yield!) (when (##sys#slot ##sys#current-thread 13) (##sys#signal-hook #:network-timeout-error "write operation timed out" tmw fd) ) (loop len offset dlw) ) ((interrupted?) (##sys#dispatch-interrupt (cut loop len offset dlw))) (else (network-error #f "cannot write to socket" fd) ) ) ) ((fx< n len) (loop (fx- len n) (fx+ offset n) (if (fx= n 0) tmw ;; If we wrote *something*, reset timeout (and tmw (+ (current-milliseconds) tmw)) )) ) ) ) )) ) ) (out (make-output-port (if outbuf (lambda (s) (set! outbuf (##sys#string-append outbuf s)) (when (fx>= (##sys#size outbuf) outbufsize) (output outbuf) (set! outbuf "") ) ) (lambda (s) (when (fx> (##sys#size s) 0) (output s)) ) ) (lambda () (unless oclosed (set! oclosed #t) (when (and outbuf (fx> (##sys#size outbuf) 0)) (output outbuf) (set! outbuf "") ) (unless (##sys#slot data 2) (shutdown fd _shut_wr)) (when (and iclosed (eq? _socket_error (close fd))) (network-error #f "cannot close socket output port" fd) ) ) ) (and outbuf (lambda () (when (fx> (##sys#size outbuf) 0) (output outbuf) (set! outbuf "") ) ) ) ) ) ) (##sys#setslot in 3 "(tcp)") (##sys#setslot out 3 "(tcp)") (##sys#setslot in 7 'socket) (##sys#setslot out 7 'socket) (##sys#set-port-data! in data) (##sys#set-port-data! out data) (values in out) ) ) ) ) (define (tcp-accept tcpl) (##sys#check-structure tcpl 'tcp-listener) (let* ((fd (##sys#slot tcpl 1)) (tma (tcp-accept-timeout)) (dla (and tma (+ tma (current-milliseconds))))) (let loop () (when dla (##sys#thread-block-for-timeout! ##sys#current-thread dla) ) (##sys#thread-block-for-i/o! ##sys#current-thread fd #:input) (##sys#thread-yield!) (if (##sys#slot ##sys#current-thread 13) (##sys#signal-hook #:network-timeout-error 'tcp-accept "accept operation timed out" tma fd) ) (let ((fd (accept fd #f #f))) (cond ((not (eq? _invalid_socket fd)) (io-ports 'tcp-accept fd)) ((interrupted?) (##sys#dispatch-interrupt loop)) (else (network-error 'tcp-accept "could not accept from listener" tcpl)))) ) ) ) (define (tcp-accept-ready? tcpl) (##sys#check-structure tcpl 'tcp-listener 'tcp-accept-ready?) ;; XXX: This "knows" that check_fd_ready is implemented using a winsock2 call (let ((f (check-fd-ready (##sys#slot tcpl 1)))) (when (eq? _socket_error f) (network-error 'tcp-accept-ready? "cannot check socket for input" tcpl) ) (eq? 1 f) ) ) (define get-socket-error (foreign-lambda* int ((int socket)) "int err, optlen;" "optlen = sizeof(err);" "if (typecorrect_getsockopt(socket, SOL_SOCKET, SO_ERROR, &err, (socklen_t *)&optlen) == SOCKET_ERROR)" " C_return(SOCKET_ERROR);" "C_return(err);")) (define (tcp-connect host . more) (let* ((port (optional more #f)) (tmc (tcp-connect-timeout)) (dlc (and tmc (+ (current-milliseconds) tmc))) (addr (make-string _sockaddr_in_size))) (##sys#check-string host) (unless port (set!-values (host port) (parse-host host "tcp")) (unless port (##sys#signal-hook #:domain-error 'tcp-connect "no port specified" host)) ) (##sys#check-fixnum port) (unless (gethostaddr addr host port) (##sys#signal-hook #:network-error 'tcp-connect "cannot find host address" host) ) (let ((s (socket _af_inet _sock_stream 0))) (when (eq? _invalid_socket s) (network-error 'tcp-connect "cannot create socket" host port) ) (when (eq? _socket_error (set-socket-options s)) (network-error/close 'tcp-connect "error while setting up socket" s) ) (unless (##core#inline "make_socket_nonblocking" s) (network-error/close 'tcp-connect "fcntl() failed" s) ) (let loop () (when (eq? _socket_error (connect s addr _sockaddr_in_size)) (cond ((in-progress?) ; Wait till it's available via select/poll (when dlc (##sys#thread-block-for-timeout! ##sys#current-thread dlc)) (##sys#thread-block-for-i/o! ##sys#current-thread s #:output) (##sys#thread-yield!)) ; Don't loop: it's connected now ((interrupted?) (##sys#dispatch-interrupt loop)) (else (network-error/close 'tcp-connect "cannot connect to socket" s host port))))) (let ((err (get-socket-error s))) (cond ((eq? _socket_error err) (network-error/close 'tcp-connect "getsockopt() failed" s)) ((fx> err 0) (close s) (network-error/code 'tcp-connect err "cannot create socket")))) (io-ports 'tcp-connect s))) ) (define (tcp-port->fileno p loc) (let ((data (##sys#port-data p))) (if (vector? data) ; a meagre test, but better than nothing (##sys#slot data 0) (error loc "argument does not appear to be a TCP port" p)))) (define (tcp-addresses p) (##sys#check-open-port p 'tcp-addresses) (let ((fd (tcp-port->fileno p 'tcp-addresses))) (values (or (getsockname fd) (network-error 'tcp-addresses "cannot compute local address" p) ) (or (getpeername fd) (network-error 'tcp-addresses "cannot compute remote address" p) ) ) ) ) (define (tcp-port-numbers p) (##sys#check-open-port p 'tcp-port-numbers) (let ((fd (tcp-port->fileno p 'tcp-port-numbers))) (let ((sp (getsockport fd)) (pp (getpeerport fd))) (when (eq? -1 sp) (network-error 'tcp-port-numbers "cannot compute local port" p) ) (when (eq? -1 pp) (network-error 'tcp-port-numbers "cannot compute remote port" p) ) (values sp pp)))) (define (tcp-listener-port tcpl) (##sys#check-structure tcpl 'tcp-listener 'tcp-listener-port) (let* ((fd (##sys#slot tcpl 1)) (port (getsockport fd))) (when (eq? -1 port) (network-error 'tcp-listener-port "cannot obtain listener port" tcpl fd) ) port) ) (define (tcp-abandon-port p) (##sys#check-open-port p 'tcp-abandon-port) (##sys#setislot (##sys#port-data p) (##sys#slot p 1) #t)) (define (tcp-listener-fileno l) (##sys#check-structure l 'tcp-listener 'tcp-listener-fileno) (##sys#slot l 1) ) ) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/config-arch.sh������������������������������������������������������������������������0000644�0001750�0001750�00000003553�13502227553�015455� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/bin/sh # config-arch.sh - return host architecture id, if supported by apply-hack # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2000-2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. case "`uname -m`" in i*86|BePC) echo "x86";; "Power Macintosh"|ppc|powerpc|macppc) case "`uname -s`" in Darwin) echo "ppc.darwin";; *) echo "ppc.sysv";; esac;; amd64|x86_64) echo "x86-64";; *) ;; esac �����������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/optimizer.scm�������������������������������������������������������������������������0000644�0001750�0001750�00000165474�13502227553�015502� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; optimizer.scm - The CHICKEN Scheme compiler (optimizations) ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit optimizer) (uses data-structures internal support)) (module chicken.compiler.optimizer (scan-toplevel-assignments perform-high-level-optimizations transform-direct-lambdas! determine-loop-and-dispatch eq-inline-operator membership-test-operators membership-unfold-limit default-optimization-passes rewrite) (import scheme chicken.base chicken.compiler.support chicken.fixnum chicken.internal chicken.sort chicken.string) (include "tweaks") (include "mini-srfi-1.scm") (define-constant maximal-number-of-free-variables-for-liftable 16) ;; These are parameterized by the platform implementation (define eq-inline-operator (make-parameter #f)) (define membership-test-operators (make-parameter #f)) (define membership-unfold-limit (make-parameter #f)) (define default-optimization-passes (make-parameter #f)) ;;; Scan toplevel expressions for assignments: (define (scan-toplevel-assignments node) (let ((safe '()) (unsafe '()) (escaped #f) (previous '())) (define (mark v) (when (and (not escaped) (not (memq v unsafe))) (set! safe (cons v safe))) ) (define (remember v x) (set! previous (alist-update! v x previous))) (define (touch) (set! escaped #t) (set! previous '())) (define (scan-each ns e clear-previous?) (for-each (lambda (n) (when clear-previous? (set! previous '())) (scan n e)) ns)) (define (scan n e) (let ([params (node-parameters n)] [subs (node-subexpressions n)] ) (case (node-class n) [(##core#variable) (let ((var (first params))) (when (and (not (memq var e)) (not (memq var unsafe))) (set! unsafe (cons var unsafe)) ) (set! previous (filter (lambda (p) (not (eq? (car p) var))) previous)))] [(if ##core#cond ##core#switch) (scan (first subs) e) (touch) (scan-each (cdr subs) e #t)] [(let) (scan-each (butlast subs) e #f) (scan (last subs) (append params e)) ] [(lambda ##core#lambda) #f] [(##core#call) (touch)] [(set!) (let ((var (first params)) (val (first subs))) (scan val e) (let ((p (alist-ref var previous))) (when (and p (not (memq var unsafe))) ;; disabled for the moment - this doesn't really look like it's helpful #;(##sys#notice (sprintf "dropping assignment of unused value to global variable `~s'" var)) (debugging 'o "dropping redundant toplevel assignment" var) (copy-node! (make-node '##core#undefined '() '()) p)) (unless (memq var e) (mark var)) (remember var n) ) ) ] [else (scan-each subs e #f)]))) (debugging 'p "scanning toplevel assignments...") (scan node '()) (when (pair? safe) (debugging 'o "safe globals" (delete-duplicates safe eq?))) (for-each (cut mark-variable <> '##compiler#always-bound) safe))) ;;; Do some optimizations: ; ; - optimize tail recursion by replacing trivial continuations. ; - perform beta-contraction (inline procedures called only once). ; - remove empty 'let' nodes. ; - evaluate constant expressions. ; - substitute variables bound to constants with the value. ; - remove variable-bindings which are never used (and which are not bound to side-effecting expressions). ; - perform simple copy-propagation. ; - remove assignments to unused variables if the assigned value is free of side-effects and the variable is ; not global. ; - remove unused formal parameters from functions and change all call-sites accordingly. ; - rewrite calls to standard bindings into more efficient forms. ; - rewrite calls to known non-escaping procedures with rest parameter to cons up rest-list at call-site, ; also: change procedure's lambda-list. (define simplifications (make-vector 301 '())) (define simplified-ops '()) (define broken-constant-nodes '()) (define (perform-high-level-optimizations node db block-compilation may-inline inline-limit may-rewrite) (let ((removed-lets 0) (removed-ifs 0) (replaced-vars 0) (rest-consers '()) (simplified-classes '()) (dirty #f) ) (define (test sym item) (db-get db sym item)) (define (constant-node? n) (eq? 'quote (node-class n))) (define (node-value n) (first (node-parameters n))) (define (touch) (set! dirty #t)) (define (invalidate-gae! gae) (for-each (cut set-cdr! <> #f) gae)) (define (simplify n) (or (and-let* ((entry (hash-table-ref simplifications (node-class n)))) (any (lambda (s) (and-let* ((vars (second s)) (env (match-node n (first s) vars)) (n2 (apply (third s) db may-rewrite (map (lambda (v) (cdr (assq v env))) vars) ) ) ) (let* ((name (caar s)) (counter (assq name simplified-classes)) ) (if counter (set-cdr! counter (add1 (cdr counter))) (set! simplified-classes (alist-cons name 1 simplified-classes)) ) (touch) (simplify n2) ) ) ) entry) ) n) ) (define (walk n fids gae) (if (memq n broken-constant-nodes) n (simplify (let* ((odirty dirty) (n1 (walk1 n fids gae)) (subs (node-subexpressions n1)) ) (case (node-class n1) ((if) ; (This can be done by the simplifier...) (cond ((constant-node? (car subs)) (set! removed-ifs (add1 removed-ifs)) (touch) (walk (if (node-value (car subs)) (cadr subs) (caddr subs) ) fids gae) ) (else n1) ) ) ((##core#call) (maybe-constant-fold-call n1 (cons (car subs) (cddr subs)) (lambda (ok result constant?) (cond ((not ok) (when constant? (unless odirty (set! dirty #f)) (set! broken-constant-nodes (lset-adjoin/eq? broken-constant-nodes n1))) n1) (else (touch) ;; Build call to continuation with new result... (let ((n2 (qnode result))) (make-node '##core#call (list #t) (list (cadr subs) n2) ) ) ) ))) ) (else n1) ) ) ) ) ) (define (replace-var var) (cond ((test var 'replacable) => (lambda (rvar) (let ((final-var (replace-var rvar))) ;; Store intermediate vars to avoid recurring same chain again (db-put! db var 'replacable final-var) final-var))) (else var))) (define (walk1 n fids gae) (let ((subs (node-subexpressions n)) (params (node-parameters n)) (class (node-class n)) ) (case class ((##core#variable) (let ((var (replace-var (first params)))) (cond ((test var 'collapsable) (touch) (debugging 'o "substituted constant variable" var) (qnode (car (node-parameters (test var 'value)))) ) ((not (eq? var (first params))) (touch) (set! replaced-vars (+ replaced-vars 1)) (varnode var)) ((assq var gae) => (lambda (a) (let ((gvar (cdr a))) (cond ((and gvar (not (eq? 'no (variable-mark gvar '##compiler#inline)))) (debugging 'o "propagated global variable" var gvar) (varnode gvar)) (else (varnode var)))))) (else (varnode var))))) ((let) (let ((var (first params))) (cond ((or (test var 'removable) (and (test var 'contractable) (not (test var 'replacing)))) (touch) (set! removed-lets (add1 removed-lets)) (walk (second subs) fids gae) ) (else (let ((gae (if (and (eq? '##core#variable (node-class (first subs))) (test (first (node-parameters (first subs))) 'global)) (alist-cons var (first (node-parameters (first subs))) gae) gae))) (make-node 'let params (map (cut walk <> fids gae) subs))) ) ) )) ((##core#lambda) (let ((llist (third params)) (id (first params))) (cond [(test id 'has-unused-parameters) (##sys#decompose-lambda-list llist (lambda (vars argc rest) (receive (unused used) (partition (lambda (v) (test v 'unused)) vars) (touch) (debugging 'o "removed unused formal parameters" unused) (make-node '##core#lambda (list (first params) (second params) (cond [(and rest (test id 'explicit-rest)) (debugging 'o "merged explicitly consed rest parameter" rest) (build-lambda-list used (add1 argc) #f) ] [else (build-lambda-list used argc rest)] ) (fourth params) ) (list (walk (first subs) (cons id fids) '())) ) ) ) ) ] [(test id 'explicit-rest) (##sys#decompose-lambda-list llist (lambda (vars argc rest) (touch) (debugging 'o "merged explicitly consed rest parameter" rest) (make-node '##core#lambda (list (first params) (second params) (build-lambda-list vars (add1 argc) #f) (fourth params) ) (list (walk (first subs) (cons id fids) '())) ) ) ) ] [else (walk-generic n class params subs (cons id fids) '() #f)] ) ) ) ((##core#direct_lambda) (walk-generic n class params subs fids '() #f)) ((##core#call) (let* ((fun (car subs)) (funclass (node-class fun))) (case funclass [(##core#variable) ;; Call to named procedure: (let* ((var (first (node-parameters fun))) (info (call-info params var)) (lval (and (not (test var 'unknown)) (or (test var 'value) (test var 'local-value)))) (args (cdr subs)) ) (cond ((and (test var 'contractable) (not (test var 'replacing)) ;; inlinable procedure has changed (not (test (first (node-parameters lval)) 'inline-target))) ;; only called once (let* ([lparams (node-parameters lval)] [llist (third lparams)] ) (check-signature var args llist) (debugging 'o "contracted procedure" info) (touch) (for-each (cut db-put! db <> 'inline-target #t) fids) (walk (inline-lambda-bindings llist args (first (node-subexpressions lval)) #f db void) fids gae) ) ) ((and-let* (((variable-mark var '##compiler#pure)) ((eq? '##core#variable (node-class (car args)))) (kvar (first (node-parameters (car args)))) (lval (and (not (test kvar 'unknown)) (test kvar 'value))) ((eq? '##core#lambda (node-class lval))) (llist (third (node-parameters lval))) ((or (test (car llist) 'unused) (and (not (test (car llist) 'references)) (not (test (car llist) 'assigned)))))) ;; callee is side-effect free (not (any (cut expression-has-side-effects? <> db) (cdr args)))) (debugging 'o "removed call to pure procedure with unused result" info) (make-node '##core#call (list #t) (list (car args) (make-node '##core#undefined '() '())))) ((and lval (eq? '##core#lambda (node-class lval))) ;; callee is a lambda (let* ([lparams (node-parameters lval)] [llist (third lparams)] ) (##sys#decompose-lambda-list llist (lambda (vars argc rest) (let ((ifid (first lparams)) (external (node? (variable-mark var '##compiler#inline-global)))) (cond ((and may-inline (test var 'inlinable) (not (test ifid 'inline-target)) ; inlinable procedure has changed (not (test ifid 'explicit-rest)) (case (variable-mark var '##compiler#inline) ((no) #f) (else (or external (< (fourth lparams) inline-limit))))) (debugging 'i (if external "global inlining" "inlining") info ifid (fourth lparams)) (for-each (cut db-put! db <> 'inline-target #t) fids) (check-signature var args llist) (debugging 'o "inlining procedure" info) (call/cc (lambda (return) (define (cfk cvar) (debugging 'i "not inlining procedure because it refers to contractable" info cvar) (return (walk-generic n class params subs fids gae #t))) (let ((n2 (inline-lambda-bindings llist args (first (node-subexpressions lval)) #t db cfk))) (touch) (walk n2 fids gae))))) ((test ifid 'has-unused-parameters) (if (< (length args) argc) ; Expression was already optimized (should this happen?) (walk-generic n class params subs fids gae #t) (let loop ((vars vars) (argc argc) (args args) (used '())) (cond [(or (null? vars) (zero? argc)) (touch) (let ((args (map (cut walk <> fids gae) (cons fun (append (reverse used) args))) ) ) (invalidate-gae! gae) (make-node '##core#call params args))] [(test (car vars) 'unused) (touch) (debugging 'o "removed unused parameter to known procedure" (car vars) info) (if (expression-has-side-effects? (car args) db) (make-node 'let (list (gensym 't)) (list (walk (car args) fids gae) (loop (cdr vars) (sub1 argc) (cdr args) used) ) ) (loop (cdr vars) (sub1 argc) (cdr args) used) ) ] [else (loop (cdr vars) (sub1 argc) (cdr args) (cons (car args) used) ) ] ) ) ) ) ((and (test ifid 'explicit-rest) (not (memq n rest-consers)) ) ; make sure we haven't inlined rest-list already (let ([n (llist-length llist)]) (if (< (length args) n) (walk-generic n class params subs fids gae #t) (begin (debugging 'o "consed rest parameter at call site" info n) (let-values ([(args rargs) (split-at args n)]) (let ([n2 (make-node '##core#call params (map (cut walk <> fids gae) (cons fun (append args (list (if (null? rargs) (qnode '()) (make-node '##core#inline_allocate (list "C_a_i_list" (* 3 (length rargs))) rargs) ) ) ) ) ) ) ] ) (set! rest-consers (cons n2 rest-consers)) (invalidate-gae! gae) n2) ) ) ) ) ) (else (walk-generic n class params subs fids gae #t)) ) ) ) ) ) ) ((and lval (eq? '##core#variable (node-class lval)) (intrinsic? (first (node-parameters lval)))) ;; callee is intrinsic (debugging 'i "inlining call to intrinsic alias" info (first (node-parameters lval))) (walk (make-node '##core#call params (cons lval (cdr subs))) fids gae)) (else (walk-generic n class params subs fids gae #t)) ) ) ] [(##core#lambda) (if (first params) (walk-generic n class params subs fids gae #f) (let ((n2 (make-node '##core#call (cons #t (cdr params)) (map (cut walk <> fids gae) subs)) )) (invalidate-gae! gae) n2))] [else (walk-generic n class params subs fids gae #t)] ) ) ) ((set!) (let ([var (first params)]) (cond ((test var 'contractable) (touch) (when (test var 'global) (debugging 'i "removing global contractable" var)) (make-node '##core#undefined '() '()) ) ((test var 'replacable) (touch) (make-node '##core#undefined '() '()) ) ((and (or (not (test var 'global)) (not (variable-visible? var block-compilation))) (not (test var 'inline-transient)) (not (test var 'references)) (not (expression-has-side-effects? (first subs) db)) ) (touch) (debugging 'o "removed side-effect free assignment to unused variable" var) (make-node '##core#undefined '() '()) ) (else (let ((n2 (make-node 'set! params (list (walk (car subs) fids gae))))) (for-each (if (test var 'global) (lambda (a) (when (eq? var (cdr a)) ; assignment to alias? (set-cdr! a #f))) (lambda (a) (when (eq? var (car a)) (set-cdr! a #f)))) gae) n2))))) (else (walk-generic n class params subs fids gae #f)) ) ) ) (define (walk-generic n class params subs fids gae invgae) (let lp ((same? #t) (subs subs) (subs2 '())) (cond ((null? subs) (when invgae (invalidate-gae! gae)) ;; Create new node if walk made changes, otherwise original node (if same? n (make-node class params (reverse subs2)))) (else (let ((sub2 (walk (car subs) fids gae))) (lp (and same? (eq? sub2 (car subs))) (cdr subs) (cons sub2 subs2)))) ) )) (if (perform-pre-optimization! node db) (values node #t) (begin (debugging 'p "traversal phase...") (set! simplified-ops '()) (let ((node2 (walk node '() '()))) (when (pair? simplified-classes) (debugging 'o "simplifications" simplified-classes)) (when (pair? simplified-ops) (with-debugging-output 'o (lambda () (print " call simplifications:") (for-each (lambda (p) (print* " " (car p)) (if (> (cdr p) 1) (print #\tab (cdr p)) (newline) ) ) simplified-ops) ) ) ) (when (> replaced-vars 0) (debugging 'o "replaced variables" replaced-vars)) (when (> removed-lets 0) (debugging 'o "removed binding forms" removed-lets)) (when (> removed-ifs 0) (debugging 'o "removed conditional forms" removed-ifs)) (values node2 dirty) ) ) ) ) ) ;;; Pre-optimization phase: ; ; - Transform expressions of the form '(if (not <x>) <y> <z>)' into '(if <x> <z> <y>)'. ; - Transform expressions of the form '(if (<x> <y> ...) <z> <q>)' into '<z>' if <x> names a ; standard-binding that is never #f and if it's arguments are free of side-effects. (define (perform-pre-optimization! node db) (let ((dirty #f) (removed-nots 0) ) (define (touch) (set! dirty #t) #t) (define (test sym prop) (db-get db sym prop)) (debugging 'p "pre-optimization phase...") ;; Handle '(if (not ...) ...)': (if (intrinsic? 'not) (for-each (lambda (site) (let* ((n (cdr site)) (subs (node-subexpressions n)) (kont (first (node-parameters (second subs)))) (lnode (and (not (test kont 'unknown)) (test kont 'value))) (krefs (db-get-list db kont 'references)) ) ;; Call-site has one argument and a known continuation (which is a ##core#lambda) ;; that has only one use: (when (and lnode krefs (= 1 (length krefs)) (= 3 (length subs)) (eq? '##core#lambda (node-class lnode)) ) (let* ((llist (third (node-parameters lnode))) (body (first (node-subexpressions lnode))) (bodysubs (node-subexpressions body)) ) ;; Continuation has one parameter? (if (and (list? llist) (null? (cdr llist))) (let* ((var (car llist)) (refs (db-get-list db var 'references)) ) ;; Parameter is only used once? (if (and refs (= 1 (length refs)) (eq? 'if (node-class body))) ;; Continuation contains an 'if' node? (let ((iftest (first (node-subexpressions body)))) ;; Parameter is used only once and is the test-argument? (if (and (eq? '##core#variable (node-class iftest)) (eq? var (first (node-parameters iftest))) ) ;; Modify call-site to call continuation directly and swap branches ;; in the conditional: (begin (set! removed-nots (+ removed-nots 1)) (node-parameters-set! n '(#t)) (node-subexpressions-set! n (cdr subs)) (node-subexpressions-set! body (cons (car bodysubs) (reverse (cdr bodysubs))) ) (touch) ) ) ) ) ) ) ) ) ) ) (or (test 'not 'call-sites) '()) ) ) (when (> removed-nots 0) (debugging 'o "Removed `not' forms" removed-nots)) dirty) ) ;;; Simplifications: (define (register-simplifications class . ss) (hash-table-set! simplifications class ss)) (register-simplifications '##core#call ;; (<named-call> ...) -> (<primitive-call/inline> ...) `((##core#call d (##core#variable (a)) b . c) (a b c d) ,(lambda (db may-rewrite a b c d) (let loop ((entries (or (hash-table-ref substitution-table a) '()))) (cond ((null? entries) #f) ((simplify-named-call db may-rewrite d a b (caar entries) (cdar entries) c) => (lambda (r) (let ((as (assq a simplified-ops))) (if as (set-cdr! as (add1 (cdr as))) (set! simplified-ops (alist-cons a 1 simplified-ops)) ) ) r) ) (else (loop (cdr entries))) ) ) ) ) ) (register-simplifications 'let ;; (let ((<var1> (##core#inline <eq-inline-operator> <var0> <const1>))) ;; (if <var1> <body1> ;; (let ((<var2> (##core#inline <eq-inline-operator> <var0> <const2>))) ;; (if <var2> <body2> ;; <etc.> ;; -> (##core#switch (2) <var0> <const1> <body1> <const2> <body2> <etc.>) ;; - <var1> and <var2> have to be referenced once only. `((let (var1) (##core#inline (op) (##core#variable (var0)) (quote (const1))) (if d1 (##core#variable (var1)) body1 (let (var2) (##core#inline (op) (##core#variable (var0)) (quote (const2))) (if d2 (##core#variable (var2)) body2 rest) ) ) ) (var0 var1 var2 op const1 const2 body1 body2 d1 d2 rest) ,(lambda (db may-rewrite var0 var1 var2 op const1 const2 body1 body2 d1 d2 rest) (and (equal? op (eq-inline-operator)) (immediate? const1) (immediate? const2) (= 1 (length (db-get-list db var1 'references))) (= 1 (length (db-get-list db var2 'references))) (make-node '##core#switch '(2) (list (varnode var0) (qnode const1) body1 (qnode const2) body2 rest) ) ) ) ) ;; (let ((<var> (##core#inline <eq-inline-operator> <var0> <const>))) ;; (if <var> ;; <body> ;; (##core#switch <n> <var0> <const1> <body1> ... <rest>) ) ) ;; -> (##core#switch <n+1> <var0> <const> <body> <const1> <body1> ... <rest>) ;; - <var> has to be referenced once only. `((let (var) (##core#inline (op) (##core#variable (var0)) (quote (const))) (if d (##core#variable (var)) body (##core#switch (n) (##core#variable (var0)) . clauses) ) ) (var op var0 const d body n clauses) ,(lambda (db may-rewrite var op var0 const d body n clauses) (and (equal? op (eq-inline-operator)) (immediate? const) (= 1 (length (db-get-list db var 'references))) (make-node '##core#switch (list (add1 n)) (cons* (varnode var0) (qnode const) body clauses) ) ) ) ) ;; (let ((<var1> (##core#undefined))) ;; (let ((<var2> (##core#undefined))) ;; ... ;; (let ((<tmp1> (set! <var1> <x1>)) ;; (let ((<tmp2> (set! <var2> <x2>))) ;; ... ;; <body>) ... ) ;; -> <a simpler sequence of let's> ;; - <tmpI> may not be used. `((let (var1) (##core#undefined ()) more) (var1 more) ,(lambda (db may-rewrite var1 more) (let loop1 ((vars (list var1)) (body more) ) (let ((c (node-class body)) (params (node-parameters body)) (subs (node-subexpressions body)) ) (and (eq? c 'let) (null? (cdr params)) (not (db-get db (first params) 'inline-transient)) (not (db-get db (first params) 'references)) (let* ((val (first subs)) (valparams (node-parameters val)) (valsubs (node-subexpressions val)) ) (case (node-class val) ((##core#undefined) (loop1 (cons (first params) vars) (second subs))) ((set!) (let ((allvars (reverse vars))) (and (pair? allvars) (eq? (first valparams) (first allvars)) (let loop2 ((vals (list (first valsubs))) (vars (cdr allvars)) (body (second subs)) ) (let ((c (node-class body)) (params (node-parameters body)) (subs (node-subexpressions body)) ) (cond ((and (eq? c 'let) (null? (cdr params)) (not (db-get db (first params) 'inline-transient)) (not (db-get db (first params) 'references)) (pair? vars) (eq? 'set! (node-class (first subs))) (eq? (car vars) (first (node-parameters (first subs)))) ) (loop2 (cons (first (node-subexpressions (first subs))) vals) (cdr vars) (second subs) ) ) ((null? vars) (receive (n progress) (reorganize-recursive-bindings allvars (reverse vals) body) (and progress n) ) ) (else #f) ) ) ) ) ) ) (else #f) ) ) ) ) ) ) ) ;; (let ((<var1> <var2>)) ;; (<var1> ...) ) ;; -> (<var2> ...) ;; - <var1> used only once #| this doesn't seem to work (Sven Hartrumpf): `((let (var1) (##core#variable (var2)) (##core#call p (##core#variable (var1)) . more) ) ; `p' was `#t', bombed also (var1 var2 p more) ,(lambda (db may-rewrite var1 var2 p more) (and (= 1 (length (db-get-list db var1 'references))) (make-node '##core#call p (cons (varnode var2) more) ) ) ) ) |# ;; (let ((<var> (##core#inline <op> ...))) ;; (if <var> <x> <y>) ) ;; -> (if (##core#inline <op> ...) <x> <y>) ;; - <op> may not be the eq-inline operator (so rewriting to "##core#switch" works). ;; - <var> has to be referenced only once. `((let (var) (##core#inline (op) . args) (if d (##core#variable (var)) x y) ) (var op args d x y) ,(lambda (db may-rewrite var op args d x y) (and (not (equal? op (eq-inline-operator))) (= 1 (length (db-get-list db var 'references))) (make-node 'if d (list (make-node '##core#inline (list op) args) x y) ) ) ) ) ) (register-simplifications 'if ;; (if <x> ;; (<var> <y>) ;; (<var> <z>) ) ;; -> (<var> (##core#cond <x> <y> <z>)) ;; - inline-substitutions have to be enabled (so IF optimizations have already taken place). `((if d1 x (##core#call d2 (##core#variable (var)) y) (##core#call d3 (##core#variable (var)) z) ) (d1 d2 d3 x y z var) ,(lambda (db may-rewrite d1 d2 d3 x y z var) (and may-rewrite (make-node '##core#call d2 (list (varnode var) (make-node '##core#cond '() (list x y z)) ) ) ) ) ) ;; (if (##core#inline <memXXX> <x> '(<c1> ...)) ...) ;; -> (let ((<var> <x>)) ;; (if (##core#cond (##core#inline XXX? <var> '<c1>) #t ...) ...) ;; - there is a limit on the number of items in the list of constants. `((if d1 (##core#inline (op) x (quote (clist))) y z) (d1 op x clist y z) ,(lambda (db may-rewrite d1 op x clist y z) (and-let* ([opa (assoc op (membership-test-operators))] [(list? clist)] [(< (length clist) (membership-unfold-limit))] ) (let ([var (gensym)] [eop (list (cdr opa))] ) (make-node 'let (list var) (list x (make-node 'if d1 (list (foldr (lambda (c rest) (make-node '##core#cond '() (list (make-node '##core#inline eop (list (varnode var) (qnode c))) (qnode #t) rest) ) ) (qnode #f) clist) y z) ) ) ) ) ) ) ) ) ;;; Perform dependency-analysis and transform letrec's into simpler constructs (if possible): (define (reorganize-recursive-bindings vars vals body) (let ([graph '()] [valmap (map cons vars vals)] ) (define (find-path var1 var2) (let find ([var var1] [traversed '()]) (and (not (memq var traversed)) (let ([arcs (cdr (assq var graph))]) (or (memq var2 arcs) (let ([t2 (cons var traversed)]) (any (lambda (v) (find v t2)) arcs) ) ) ) ) ) ) ;; Build dependency graph: (for-each (lambda (var val) (set! graph (alist-cons var (scan-used-variables val vars) graph))) vars vals) ;; Compute recursive groups: (let ([groups '()] [done '()] ) (for-each (lambda (var) (when (not (memq var done)) (let ([g (filter (lambda (v) (and (not (eq? v var)) (find-path var v) (find-path v var))) vars) ] ) (set! groups (alist-cons (gensym) (cons var g) groups)) (set! done (append (list var) g done)) ) ) ) vars) ;; Coalesce groups into a new graph: (let ([cgraph '()]) (for-each (lambda (g) (let ([id (car g)] [deps (append-map (lambda (var) (filter (lambda (v) (find-path var v)) vars)) (cdr g) ) ] ) (set! cgraph (alist-cons id (filter-map (lambda (g2) (and (not (eq? g2 g)) (lset<=/eq? (cdr g2) deps) (car g2))) groups) cgraph) ) ) ) groups) ;; Topologically sort secondary dependency graph: (let ([sgraph (topological-sort cgraph eq?)] [optimized '()] ) ;; Construct new bindings: (let ((n2 (foldl (lambda (body gn) (let* ([svars (cdr (assq gn groups))] [svar (car svars)] ) (cond [(and (null? (cdr svars)) (not (memq svar (cdr (assq svar graph)))) ) (set! optimized (cons svar optimized)) (make-node 'let svars (list (cdr (assq svar valmap)) body)) ] [else (foldr (lambda (var rest) (make-node 'let (list var) (list (make-node '##core#undefined '() '()) rest) ) ) (foldr (lambda (var rest) (make-node 'let (list (gensym)) (list (make-node 'set! (list var) (list (cdr (assq var valmap)))) rest) ) ) body svars) svars) ] ) ) ) body sgraph) ) ) (cond [(pair? optimized) (debugging 'o "converted assignments to bindings" optimized) (values n2 #t) ] [else (values n2 #f)] ) ) ) ) ) ) ) ;;;; Rewrite named calls to more primitive forms: (define substitution-table (make-vector 301 '())) (define (rewrite name . class-and-args) (let ((old (or (hash-table-ref substitution-table name) '()))) (hash-table-set! substitution-table name (append old (list class-and-args))))) (define (simplify-named-call db may-rewrite params name cont class classargs callargs) (define (argc-ok? argc) (or (not argc) (and (fixnum? argc) (fx= argc (length callargs))) (and (pair? argc) (argc-ok? (car argc)) (argc-ok? (cdr argc))))) (define (defarg x) (cond ((symbol? x) (varnode x)) ((and (pair? x) (eq? 'quote (car x))) (qnode (cadr x))) (else (qnode x)))) (case class ;; (eq?/eqv?/equal? <var> <var>) -> (quote #t) ;; (eq?/eqv?/equal? ...) -> (##core#inline <iop> ...) ((1) ; classargs = (<argc> <iop>) (and (intrinsic? name) (or (and (= (length callargs) (first classargs)) (let ((arg1 (first callargs)) (arg2 (second callargs)) ) (and (eq? '##core#variable (node-class arg1)) (eq? '##core#variable (node-class arg2)) (equal? (node-parameters arg1) (node-parameters arg2)) (make-node '##core#call (list #t) (list cont (qnode #t))) ) ) ) (and may-rewrite (make-node '##core#call (list #t) (list cont (make-node '##core#inline (list (second classargs)) callargs)) ) ) ) ) ) ;; (<op> ...) -> (##core#inline <iop> ...) ((2) ; classargs = (<argc> <iop> <safe>) ;; - <safe> by be 'specialized (see rule #16 below) (and may-rewrite (= (length callargs) (first classargs)) (intrinsic? name) (or (third classargs) unsafe) (let ((arg1 (first callargs))) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (list (second classargs)) callargs) ) ) ) ) ) ;; (<op> ...) -> <var> ((3) ; classargs = (<var> <argc>) ;; - <argc> may be #f (and may-rewrite (intrinsic? name) (or (not (second classargs)) (= (length callargs) (second classargs))) (foldr (lambda (val body) (make-node 'let (list (gensym)) (list val body)) ) (make-node '##core#call (list #t) (list cont (varnode (first classargs)))) callargs))) ;; (<op> a b) -> (<primitiveop> a (quote <i>) b) ((4) ; classargs = (<primitiveop> <i>) (and may-rewrite unsafe (= 2 (length callargs)) (intrinsic? name) (make-node '##core#call (list #f (first classargs)) (list (varnode (first classargs)) cont (first callargs) (qnode (second classargs)) (second callargs) ) ) ) ) ;; (<op> a) -> (##core#inline <iop> a (quote <x>)) ((5) ; classargs = (<iop> <x> <numtype>) ;; - <numtype> may be #f (and may-rewrite (intrinsic? name) (= 1 (length callargs)) (let ((ntype (third classargs))) (or (not ntype) (eq? ntype number-type)) ) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (list (first classargs)) (list (first callargs) (qnode (second classargs)) ) ) ) ) ) ) ;; (<op> a) -> (##core#inline <iop1> (##core#inline <iop2> a)) ((6) ; classargs = (<iop1> <iop2> <safe>) (and (or (third classargs) unsafe) may-rewrite (= 1 (length callargs)) (intrinsic? name) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (list (first classargs)) (list (make-node '##core#inline (list (second classargs)) callargs) ) ) ) ) ) ) ;; (<op> ...) -> (##core#inline <iop> ... (quote <x>)) ((7) ; classargs = (<argc> <iop> <x> <safe>) (and (or (fourth classargs) unsafe) may-rewrite (= (length callargs) (first classargs)) (intrinsic? name) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (list (second classargs)) (append callargs (list (qnode (third classargs))) ) ) ) ) ) ) ;; (<op> ...) -> <<call procedure <proc> with <classargs>, <cont> and <callargs> >> ((8) ; classargs = (<proc> ...) (and may-rewrite (intrinsic? name) ((first classargs) db classargs cont callargs) ) ) ;; (<op> <x1> ...) -> (##core#inline "C_and" (##core#inline <iop> <x1> <x2>) ...) ;; (<op> [<x>]) -> (quote #t) ((9) ; classargs = (<iop-fixnum> <iop-flonum> <fixnum-safe> <flonum-safe>) (and may-rewrite (intrinsic? name) (if (< (length callargs) 2) (make-node '##core#call (list #t) (list cont (qnode #t))) (and (or (and unsafe (not (eq? number-type 'generic))) (and (eq? number-type 'fixnum) (third classargs)) (and (eq? number-type 'flonum) (fourth classargs)) ) (let* ((names (map (lambda (z) (gensym)) callargs)) (vars (map varnode names)) ) (let loop ((callargs callargs) (names names)) (if (null? callargs) (make-node '##core#call (list #t) (list cont (let ((op (list (if (eq? number-type 'fixnum) (first classargs) (second classargs) ) ) ) ) (fold-boolean (lambda (x y) (make-node '##core#inline op (list x y))) vars) ) ) ) (make-node 'let (list (car names)) (list (car callargs) (loop (cdr callargs) (cdr names))))))))))) ;; (<op> a [b]) -> (<primitiveop> a (quote <i>) b) ((10) ; classargs = (<primitiveop> <i> <bvar> <safe>) (and may-rewrite (or (fourth classargs) unsafe) (intrinsic? name) (let ((n (length callargs))) (and (< 0 n 3) (make-node '##core#call (list #f (first classargs)) (list (varnode (first classargs)) cont (first callargs) (qnode (second classargs)) (if (null? (cdr callargs)) (varnode (third classargs)) (second callargs) ) ) ) ) ) ) ) ;; (<op> ...) -> (<primitiveop> ...) ((11) ; classargs = (<argc> <primitiveop> <safe>) ;; <argc> may be #f. (and may-rewrite (or (third classargs) unsafe) (intrinsic? name) (let ((argc (first classargs))) (and (or (not argc) (= (length callargs) (first classargs)) ) (make-node '##core#call (list #t (second classargs)) (cons* (varnode (second classargs)) cont callargs) ) ) ) ) ) ;; (<op> a) -> a ;; (<op> ...) -> (<primitiveop> ...) ((12) ; classargs = (<primitiveop> <safe> <maxargc>) (and may-rewrite (intrinsic? name) (or (second classargs) unsafe) (let ((n (length callargs))) (and (<= n (third classargs)) (case n ((1) (make-node '##core#call (list #t) (cons cont callargs))) (else (make-node '##core#call (list #t (first classargs)) (cons* (varnode (first classargs)) cont callargs) ) ) ) ) ) ) ) ;; (<op> ...) -> ((##core#proc <primitiveop>) ...) ((13) ; classargs = (<argc> <primitiveop> <safe>) ;; - <argc> may be #f for any number of args, or a pair specifying a range (and may-rewrite (intrinsic? name) (or (third classargs) unsafe) (argc-ok? (first classargs)) (let ((pname (second classargs))) (make-node '##core#call (if (pair? params) (cons #t (cdr params)) params) (cons* (make-node '##core#proc (list pname #t) '()) cont callargs) ) ) ) ) ;; (<op> <x> ...) -> (##core#inline <iop-safe>/<iop-unsafe> <x> ...) ((14) ; classargs = (<numtype> <argc> <iop-safe> <iop-unsafe>) (and may-rewrite (= (second classargs) (length callargs)) (intrinsic? name) (eq? number-type (first classargs)) (or (fourth classargs) unsafe) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (list (if unsafe (fourth classargs) (third classargs))) callargs) ) ) ) ) ;; (<op> <x>) -> (<primitiveop> <x>) - if numtype1 ;; | <x> - if numtype2 ((15) ; classargs = (<numtype1> <numtype2> <primitiveop> <safe>) (and may-rewrite (= 1 (length callargs)) (or unsafe (fourth classargs)) (intrinsic? name) (cond ((eq? number-type (first classargs)) (make-node '##core#call (list #t (third classargs)) (cons* (varnode (third classargs)) cont callargs) ) ) ((eq? number-type (second classargs)) (make-node '##core#call (list #t) (cons cont callargs)) ) (else #f) ) ) ) ;; (<alloc-op> ...) -> (##core#inline_allocate (<aiop> <words>) ...) ((16) ; classargs = (<argc> <aiop> <safe> <words> [<counted>]) ;; - <argc> may be #f, saying that any number of arguments is allowed, ;; - <words> may be a list of two elements (the base number of words and ;; the number of words per element), meaning that the words are to be ;; multiplied with the number of arguments. ;; - <words> may also be #t, meaning that the number of words is the same as the ;; number of arguments plus 1. ;; - if <counted> is given and true and <argc> is between 1-8, append "<count>" ;; to the name of the inline routine. (let ((argc (first classargs)) (rargc (length callargs)) (safe (third classargs)) (w (fourth classargs)) (counted (and (pair? (cddddr classargs)) (fifth classargs)))) (and may-rewrite (or (not argc) (= rargc argc)) (intrinsic? name) (or unsafe safe) (make-node '##core#call (list #t) (list cont (make-node '##core#inline_allocate (list (if (and counted (positive? rargc) (<= rargc 8)) (conc (second classargs) rargc) (second classargs) ) (cond ((eq? #t w) (add1 rargc)) ((pair? w) (+ (car w) (* rargc (cadr w)))) (else w) ) ) callargs) ) ) ) ) ) ;; (<op> ...) -> (##core#inline <iop>/<unsafe-iop> ...) ((17) ; classargs = (<argc> <iop-safe> [<iop-unsafe>]) (and may-rewrite (= (length callargs) (first classargs)) (intrinsic? name) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (list (if (and unsafe (pair? (cddr classargs))) (third classargs) (second classargs) ) ) callargs)) ) ) ) ;; (<op>) -> (quote <null>) ((18) ; classargs = (<null>) (and may-rewrite (null? callargs) (intrinsic? name) (make-node '##core#call (list #t) (list cont (qnode (first classargs))) ) ) ) ;; (<op> <x1> ... <xn>) -> (<op> (<op> <x1> ...) <xn>) [in CPS] ((19) (and may-rewrite (intrinsic? name) (> (length callargs) 2) (let ((callargs (reverse callargs))) (let lp ((xn (car callargs)) (xn-1 (cadr callargs)) (rest (cddr callargs)) (cont cont)) (if (null? rest) (make-node '##core#call (list #t) (list (varnode name) cont xn-1 xn)) (let ((r (gensym 'r)) (id (gensym 'va))) (make-node 'let (list id) (list (make-node '##core#lambda (list id #t (list r) 0) (list (make-node '##core#call (list #t) (list (varnode name) cont (varnode r) xn)))) (lp xn-1 (car rest) (cdr rest) (varnode id)))))))))) ;; (<op> ...) -> (##core#inline <iop> <arg1> ... (quote <x>) <argN>) ((20) ; classargs = (<argc> <iop> <x> <safe>) (let ((n (length callargs))) (and (or (fourth classargs) unsafe) may-rewrite (= n (first classargs)) (intrinsic? name) (make-node '##core#call (list #t) (list cont (make-node '##core#inline (list (second classargs)) (let-values (((head tail) (split-at callargs (sub1 n)))) (append head (list (qnode (third classargs))) tail) ) ) ) ) ) ) ) ;; (<op>) -> <id> ;; (<op> <x>) -> <x> ;; (<op> <x1> ...) -> (##core#inline_allocate (<genop> <words>) <x1> (##core#inline_allocate (<genop> <words>) ...)) ;; (<op> <x1> ...) -> (##core#inline <[u]fixop> <x1> (##core#inline <[u]fixop> ...)) [fixnum-mode (perhaps unsafe)] ;; - Remove "<id>" from arguments. ((21) ; classargs = (<id> <fixop> <ufixop> <genop> <words>) (and may-rewrite (intrinsic? name) (let* ((id (first classargs)) (words (fifth classargs)) (genop (fourth classargs)) (fixop (if unsafe (third classargs) (second classargs))) (callargs (filter (lambda (x) (not (and (eq? 'quote (node-class x)) (eq? id (first (node-parameters x))) ) ) ) callargs) ) ) (cond ((null? callargs) (make-node '##core#call (list #t) (list cont (qnode id)))) ((null? (cdr callargs)) (make-node '##core#call (list #t) (list cont (first callargs))) ) (else (make-node '##core#call (list #t) (list cont (fold-inner (lambda (x y) (if (eq? number-type 'fixnum) (make-node '##core#inline (list fixop) (list x y)) (make-node '##core#inline_allocate (list genop words) (list x y)) ) ) callargs) ) ) ) ) ) ) ) ;; (<alloc-op> ...) -> (##core#inline_allocate (<aiop> <words>) ...) ;; (<alloc-op> ...) -> (##core#inline <fxop> ...) [fixnum mode] ((22) ; classargs = (<argc> <aiop> <safe> <words> <fxop>) (let ((argc (first classargs)) (rargc (length callargs)) (w (fourth classargs)) ) (and may-rewrite (= rargc argc) (intrinsic? name) (or (third classargs) unsafe) (make-node '##core#call (list #t) (list cont (if (eq? number-type 'fixnum) (make-node '##core#inline (list (fifth classargs)) callargs) (make-node '##core#inline_allocate (list (second classargs) w) callargs) ) ) ) ) ) ) ;; (<op> <arg1> ... <argN>) -> (<primitiveop> ...) ;; (<op> <arg1> ... <argN-I> <defargN-I>) -> (<primitiveop> ...) ;; - default args in classargs should be either symbol or (optionally) ;; quoted literal ((23) ; classargs = (<minargc> <primitiveop> <literal1>|<varable1> ...) (and may-rewrite (intrinsic? name) (let ([argc (first classargs)]) (and (>= (length callargs) (first classargs)) (make-node '##core#call (list #t (second classargs)) (cons* (varnode (second classargs)) cont (let-values (((req opt) (split-at callargs argc))) (append req (let loop ((ca opt) (da (cddr classargs)) ) (cond ((null? ca) (if (null? da) '() (cons (defarg (car da)) (loop '() (cdr da))) ) ) ((null? da) '()) (else (cons (car ca) (loop (cdr ca) (cdr da)))))))))))))) (else (bomb "bad type (optimize)")) ) ) ;;; Optimize direct leaf routines: (define (transform-direct-lambdas! node db) (let ((dirty #f) (inner-ks '()) (hoistable '()) (allocated 0) ) ;; Process node tree and walk lambdas that meet the following constraints: ;; - Only external lambdas (no CPS redexes), ;; - All calls are either to the direct continuation or (tail-) recursive calls. ;; - No allocation, no rest parameter. ;; - The lambda has a known container variable and all it's call-sites are known. ;; - The lambda is not marked as a callback lambda (define (walk d n dn) (let ((params (node-parameters n)) (subs (node-subexpressions n)) ) (case (node-class n) ((##core#lambda) (let ((llist (third params))) (if (and d (second params) (not (db-get db d 'unknown)) (list? llist) (and-let* ((val (db-get db d 'value)) (refs (db-get-list db d 'references)) (sites (db-get-list db d 'call-sites)) ) ;; val must be lambda, since `sites' is set (and (eq? n val) (not (variable-mark (first (node-parameters val)) '##compiler#callback-lambda)) (= (length refs) (length sites)) (scan (first subs) (first llist) d dn (cons d llist)) ) ) ) (transform n d inner-ks hoistable dn allocated) (walk #f (first subs) #f) ) ) ) ((set!) (walk (first params) (first subs) #f)) ((let) (walk (first params) (first subs) n) (walk #f (second subs) #f) ) (else (for-each (lambda (x) (walk #f x #f)) subs)) ) ) ) (define (scan n kvar fnvar destn env) (let ((closures '()) (recursive #f) ) (define (rec n v vn e) (let ((params (node-parameters n)) (subs (node-subexpressions n)) ) (case (node-class n) ((##core#variable) (let ((v (first params))) (or (not (db-get db v 'boxed)) (not (memq v env)) (and (not recursive) (begin (set! allocated (+ allocated 2)) #t) ) ) ) ) ((##core#lambda) (and v (##sys#decompose-lambda-list (third params) (lambda (vars argc rest) (set! closures (cons v closures)) (rec (first subs) #f #f (append vars e)) ) ) ) ) ((##core#inline_allocate) (and (not recursive) (begin (set! allocated (+ allocated (second params))) (every (lambda (x) (rec x #f #f e)) subs) ) ) ) ((##core#direct_lambda) (and vn destn (null? (scan-used-variables (first subs) e)) (begin (set! hoistable (alist-cons v vn hoistable)) #t) ) ) ((##core#inline_ref) (and (let ((n (estimate-foreign-result-size (second params)))) (or (zero? n) (and (not recursive) (begin (set! allocated (+ allocated n)) #t) ) ) ) (every (lambda (x) (rec x #f #f e)) subs) ) ) ((##core#inline_loc_ref) (and (let ((n (estimate-foreign-result-size (first params)))) (or (zero? n) (and (not recursive) (begin (set! allocated (+ allocated n)) #t) ) ) ) (every (lambda (x) (rec x #f #f e)) subs) ) ) ((##core#call) (let ((fn (first subs))) (and (eq? '##core#variable (node-class fn)) (let ((v (first (node-parameters fn)))) (cond ((eq? v fnvar) (and (zero? allocated) (let ((k (second subs))) (when (eq? '##core#variable (node-class k)) (set! inner-ks (cons (first (node-parameters k)) inner-ks)) ) (set! recursive #t) #t) ) ) (else (eq? v kvar)) ) ) (every (lambda (x) (rec x #f #f e)) (cdr subs)) ) ) ) ((##core#direct_call) (let ((n (fourth params))) (or (zero? n) (and (not recursive) (begin (set! allocated (+ allocated n)) (every (lambda (x) (rec x #f #f e)) subs) ) ) ) ) ) ((set!) (rec (first subs) (first params) #f e)) ((let) (and (rec (first subs) (first params) n e) (rec (second subs) #f #f (append params e)) ) ) (else (every (lambda (x) (rec x #f #f e)) subs)) ) ) ) (set! inner-ks '()) (set! hoistable '()) (set! allocated 0) (and (rec n #f #f env) (lset=/eq? closures (delete kvar inner-ks eq?))))) (define (transform n fnvar ks hoistable destn allocated) (if (pair? hoistable) (debugging 'o "direct leaf routine with hoistable closures/allocation" fnvar (delay (unzip1 hoistable)) allocated) (debugging 'o "direct leaf routine/allocation" fnvar allocated) ) (set! dirty #t) (let* ((params (node-parameters n)) (argc (length (third params))) (klambdas '()) (sites (or (db-get db fnvar 'call-sites) '())) (ksites '()) ) (if (and (list? params) (= (length params) 4) (list? (caddr params))) (let ((id (car params)) (kvar (caaddr params)) (vars (cdaddr params)) ) ;; Remove continuation argument: (set-car! (cddr params) vars) ;; Make "##core#direct_lambda": (node-class-set! n '##core#direct_lambda) ;; Transform recursive calls and remove unused continuations: (let rec ([n (first (node-subexpressions n))]) (let ([params (node-parameters n)] [subs (node-subexpressions n)] ) (case (node-class n) [(##core#call) (let* ([fn (first subs)] [arg0 (second subs)] [fnp (node-parameters fn)] [arg0p (node-parameters arg0)] ) (when (eq? '##core#variable (node-class fn)) (cond [(eq? fnvar (first fnp)) (set! ksites (alist-cons #f n ksites)) (cond [(eq? kvar (first arg0p)) (unless (= argc (length (cdr subs))) (quit-compiling "known procedure called recursively with wrong number of arguments: `~A'" fnvar) ) (node-class-set! n '##core#recurse) (node-parameters-set! n (list #t id)) (node-subexpressions-set! n (cddr subs)) ] [(assq (first arg0p) klambdas) => (lambda (a) (let* ([klam (cdr a)] [kbody (first (node-subexpressions klam))] ) (unless (= argc (length (cdr subs))) (quit-compiling "known procedure called recursively with wrong number of arguments: `~A'" fnvar) ) (node-class-set! n 'let) (node-parameters-set! n (take (third (node-parameters klam)) 1)) (node-subexpressions-set! n (list (make-node '##core#recurse (list #f id) (cddr subs)) kbody) ) (rec kbody) ) ) ] [else (bomb "missing kvar" arg0p)] ) ] [(eq? kvar (first fnp)) (node-class-set! n '##core#return) (node-parameters-set! n '()) (node-subexpressions-set! n (cdr subs)) ] [else (bomb "bad call (leaf)")] ) ) ) ] [(let) (let ([var (first params)] [val (first subs)] ) (cond [(memq var ks) (set! klambdas (alist-cons var val klambdas)) (copy-node! (second subs) n) (rec n) ] [else (for-each rec subs)] ) ) ] [else (for-each rec subs)] ) ) ) ;; Transform call-sites: (for-each (lambda (site) (let* ((n (cdr site)) (nsubs (node-subexpressions n)) (params (node-parameters n)) (debug-info (and (pair? (cdr params)) (second params)))) (unless (= argc (length (cdr nsubs))) (quit-compiling "known procedure called with wrong number of arguments: `~A'" fnvar) ) (node-subexpressions-set! n (list (second nsubs) (make-node '##core#direct_call (list #t debug-info id allocated) (cons (car nsubs) (cddr nsubs)) ) ) ) ) ) (filter (lambda (site) (let ((s2 (cdr site))) (not (any (lambda (ksite) (eq? (cdr ksite) s2)) ksites)))) sites)) ;; Hoist direct lambdas out of container: (when (and destn (pair? hoistable)) (let ([destn0 (make-node #f #f #f)]) (copy-node! destn destn0) ; get copy of container binding (let ([hoisted (foldr ; build cascade of bindings for each hoistable direct lambda... (lambda (h rest) (make-node 'let (list (car h)) (let ([dlam (first (node-subexpressions (cdr h)))]) (list (make-node (node-class dlam) (node-parameters dlam) (node-subexpressions dlam)) rest) ) ) ) destn0 hoistable) ] ) (copy-node! hoisted destn) ; mutate container binding to hold hoistable bindings (for-each (lambda (h) ; change old direct lambdas bindings to dummy ones... (let ([vn (cdr h)]) (node-parameters-set! vn (list (gensym))) (set-car! (node-subexpressions vn) (make-node '##core#undefined '() '())) ) ) hoistable) ) ) ) ) (bomb "invalid parameter list" params)))) (debugging 'p "direct leaf routine optimization pass...") (walk #f node #f) dirty) ) ;;; turn groups of local procedures into dispatch loop ("clustering") ; ; This turns (in bodies) ; ; : ; (define (a x) (b x)) ; (define (b y) (a y)) ; (a z))) ; ; into something similar to ; ; (letrec ((<dispatch> ; (lambda (<a1> <i>) ; (case <i> ; ((1) (let ((x <a1>)) (<dispatch> x 2))) ; ((2) (let ((y <a1>)) (<dispatch> y 1))) ; (else (<dispatch> z 1)))))) ; (<dispatch> #f 0)) (define (determine-loop-and-dispatch node db) (let ((groups '()) (outer #f) (group '())) (define (close) ; "close" group of local definitions (when (pair? group) (when (> (length group) 1) (set! groups (alist-cons outer group groups))) (set! group '()) (set! outer #f))) (define (user-lambda? n) (and (eq? '##core#lambda (node-class n)) (list? (third (node-parameters n))))) ; no rest argument allowed (define (walk n e) (let ((subs (node-subexpressions n)) (params (node-parameters n)) (class (node-class n)) ) (case class ((let) (let ((var (first params)) (val (first subs)) (body (second subs))) (cond ((and (not outer) (eq? '##core#undefined (node-class val))) ;; find outermost "(let ((VAR (##core#undefined))) ...)" (set! outer n) (walk body (cons var e))) ((and outer (eq? 'set! (node-class val)) (let ((sval (first (node-subexpressions val))) (svar (first (node-parameters val)))) ;;XXX should we also accept "##core#direct_lambda" ? (and (eq? '##core#lambda (node-class sval)) (= (length (or (db-get db svar 'references) '())) (length (or (db-get db svar 'call-sites) '()))) (memq svar e) (user-lambda? sval)))) ;; "(set! VAR (lambda ...))" - add to group (set! group (cons val group)) (walk body (cons var e))) (else ;; other "let" binding, close group (if any) (close) (walk val e) (walk body (cons var e)))))) ((##core#lambda ##core#direct_lambda) (##sys#decompose-lambda-list (third params) (lambda (vars argc rest) ;; walk recursively, with cleared cluster state (fluid-let ((group '()) (outer #f)) (walk (first subs) vars))))) (else ;; other form, close group (if any) (close) (for-each (cut walk <> e) subs))))) (debugging 'p "collecting clusters ...") ;; walk once and gather groups (walk node '()) ;; process found clusters (for-each (lambda (g) (let* ((outer (car g)) (group (cdr g)) (dname (gensym 'dispatch)) (i (gensym 'i)) (n 1) (bodies (map (lambda (assign) ;; collect information and replace assignment ;; with "(##core#undefined)" (let* ((name (first (node-parameters assign))) (proc (first (node-subexpressions assign))) (pparams (node-parameters proc)) (llist (third pparams)) (aliases (map gensym llist))) (##sys#decompose-lambda-list llist (lambda (vars argc rest) (let ((body (first (node-subexpressions proc))) (m n)) (set! n (add1 n)) (copy-node! (make-node '##core#undefined '() '()) assign) (list name m llist body)))))) group)) (k (gensym 'k)) (maxargs (apply max (map (o length third) bodies))) (dllist (append (list-tabulate maxargs (lambda _ (gensym 'a))) (list i)))) (debugging 'x "clustering" (map first bodies)) ;XXX ;; first descend into "(let ((_ (##core#undefined))) ...)" forms ;; to make them visible everywhere (let descend ((outer outer)) ;;(print "outer: " (node-parameters outer)) (let ((body (second (node-subexpressions outer)))) (if (and (eq? 'let (node-class body)) (let ((val (first (node-subexpressions body)))) (eq? '##core#undefined (node-class val)))) (descend body) ;; wrap cluster into dispatch procedure (copy-node! (make-node 'let (list dname) (list (make-node '##core#undefined '() '()) (make-node 'let (list (gensym)) (list (make-node 'set! (list dname) (list (make-node '##core#lambda (list (gensym 'f_) #t dllist 0) (list ;; dispatch to cluster member or main body (make-node '##core#switch (list (sub1 n)) (append (list (varnode i)) (append-map (lambda (b) (list (qnode (second b)) (let loop ((args dllist) (vars (third b))) (if (null? vars) (fourth b) (make-node 'let (list (car vars)) (list (varnode (car args)) (loop (cdr args) (cdr vars)))))))) bodies) (cdr (node-subexpressions outer)))))))) ;; call to enter dispatch loop - the current continuation is ;; not used, so the first parameter is passed as "#f" (it is ;; a tail call) (make-node '##core#call '(#t) (cons* (varnode dname) (append (list-tabulate maxargs (lambda _ (qnode #f))) (list (qnode 0))))))))) outer)))) ;; modify call-sites to invoke dispatch loop instead (for-each (lambda (b) (let ((sites (db-get db (car b) 'call-sites))) (for-each (lambda (site) (let* ((callnode (cdr site)) (args (cdr (node-subexpressions callnode)))) (copy-node! (make-node '##core#call (node-parameters callnode) (cons* (varnode dname) (append args (list-tabulate (- maxargs (length args)) (lambda _ (qnode #f))) (list (qnode (second b)))))) callnode))) sites))) bodies))) groups) (values node (pair? groups)))) ) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.sort.import.c�����������������������������������������������������������������0000644�0001750�0001750�00000014267�13502227774�017021� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.sort.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.sort.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.sort.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.sort.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(141))){ C_save(t1); C_rereclaim2(141*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],12, C_text("chicken.sort")); lf[2]=C_h_intern(&lf[2],15, C_text("data-structures")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001merge\376\001\000\000\022\001chicken.sort#merge\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001merge!\376\001\000\000\023\001chicken" ".sort#merge!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001sort\376\001\000\000\021\001chicken.sort#sort\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001sort!\376\001\000\000" "\022\001chicken.sort#sort!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001sorted\077\376\001\000\000\024\001chicken.sort#sorted\077\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\020\001topological-sort\376\001\000\000\035\001chicken.sort#topological-sort\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2esort_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2esort_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2esort_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2esort_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2esort_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.compiler.compiler-syntax.import.scm�������������������������������������������0000644�0001750�0001750�00000000545�13502227754�023331� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.compiler.compiler-syntax.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.compiler.compiler-syntax 'compiler-syntax (scheme#list) '((compiler-syntax-statistics . chicken.compiler.compiler-syntax#compiler-syntax-statistics)) (scheme#list) (scheme#list)) ;; END OF FILE �����������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/synrules.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000027664�13476721702�015347� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; Copyright (c) 1993-2001 by Richard Kelsey and Jonathan Rees. ;; All rights reserved. ;; Redistribution and use in source and binary forms, with or without ;; modification, are permitted provided that the following conditions ;; are met: ;; 1. Redistributions of source code must retain the above copyright ;; notice, this list of conditions and the following disclaimer. ;; 2. Redistributions in binary form must reproduce the above copyright ;; notice, this list of conditions and the following disclaimer in the ;; documentation and/or other materials provided with the distribution. ;; 3. The name of the authors may not be used to endorse or promote products ;; derived from this software without specific prior written permission. ;; THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR ;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES ;; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. ;; IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, ;; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT ;; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, ;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ;; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF ;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ; The syntax-rules macro (new in R5RS) ;;; [Hacked slightly by Taylor R. Campbell to make it work in his ;;; macro expander `riaxpander'.] ;; [Hacked even more by Felix L. Winkelmann to make it work in his ;; Hi-Lo expander] ; Example: ; ; (define-syntax or ; (syntax-rules () ; ((or) #f) ; ((or e) e) ; ((or e1 e ...) (let ((temp e1)) ; (if temp temp (or e ...)))))) (##sys#extend-macro-environment 'syntax-rules '() (##sys#er-transformer (lambda (exp r c) (##sys#check-syntax 'syntax-rules exp '#(_ 2)) (let ((subkeywords (cadr exp)) (rules (cddr exp)) (ellipsis '...)) (when (symbol? subkeywords) (##sys#check-syntax 'syntax-rules exp '(_ _ list . #(_ 0))) (set! ellipsis subkeywords) (set! subkeywords (car rules)) (set! rules (cdr rules))) (chicken.internal.syntax-rules#process-syntax-rules ellipsis rules subkeywords r c))))) ;; Runtime internal support module exclusively for syntax-rules (module chicken.internal.syntax-rules (drop-right take-right syntax-rules-mismatch) (import scheme) (define (syntax-rules-mismatch input) (##sys#syntax-error-hook "no rule matches form" input)) (define (drop-right input temp) ;;XXX use unsafe accessors (let loop ((len (length input)) (input input)) (cond ((> len temp) (cons (car input) (loop (- len 1) (cdr input)))) (else '())))) (define (take-right input temp) ;;XXX use unsafe accessors (let loop ((len (length input)) (input input)) (cond ((> len temp) (loop (- len 1) (cdr input))) (else input)))) (define (process-syntax-rules ellipsis rules subkeywords r c) (define %append '##sys#append) (define %apply '##sys#apply) (define %and (r 'and)) (define %car '##sys#car) (define %cdr '##sys#cdr) (define %length '##sys#length) (define %vector? '##sys#vector?) (define %vector-length '##sys#vector-length) (define %vector-ref '##sys#vector-ref) (define %vector->list '##sys#vector->list) (define %list->vector '##sys#list->vector) (define %>= '##sys#>=) (define %= '##sys#=) (define %+ '##sys#+) (define %compare (r 'compare)) (define %cond (r 'cond)) (define %cons '##sys#cons) (define %else (r 'else)) (define %eq? '##sys#eq?) (define %equal? '##sys#equal?) (define %input (r 'input)) (define %l (r 'l)) (define %len (r 'len)) (define %lambda (r 'lambda)) (define %let (r 'let)) (define %let* (r 'let*)) (define %list? '##sys#list?) (define %loop (r 'loop)) (define %map1 '##sys#map) (define %map '##sys#map-n) (define %null? '##sys#null?) (define %or (r 'or)) (define %pair? '##sys#pair?) (define %quote (r 'quote)) (define %rename (r 'rename)) (define %tail (r 'tail)) (define %temp (r 'temp)) (define %syntax-error '##sys#syntax-error-hook) (define %ellipsis (r ellipsis)) (define %take-right (r 'chicken.internal.syntax-rules#take-right)) (define %drop-right (r 'chicken.internal.syntax-rules#drop-right)) (define %syntax-rules-mismatch (r 'chicken.internal.syntax-rules#syntax-rules-mismatch)) (define (ellipsis? x) (c x %ellipsis)) (define (make-transformer rules) `(##sys#er-transformer (,%lambda (,%input ,%rename ,%compare) (,%let ((,%tail (,%cdr ,%input))) (,%cond ,@(map process-rule rules) (,%else (,%syntax-rules-mismatch ,%input))))))) (define (process-rule rule) (if (and (pair? rule) (pair? (cdr rule)) (null? (cddr rule))) (let ((pattern (cdar rule)) (template (cadr rule))) `((,%and ,@(process-match %tail pattern #f)) (,%let* ,(process-pattern pattern %tail (lambda (x) x) #f) ,(process-template template 0 (meta-variables pattern 0 '() #f))))) (##sys#syntax-error-hook "ill-formed syntax rule" rule))) ;; Generate code to test whether input expression matches pattern (define (process-match input pattern seen-segment?) (cond ((symbol? pattern) (if (memq pattern subkeywords) `((,%compare ,input (,%rename (##core#syntax ,pattern)))) `())) ((segment-pattern? pattern seen-segment?) (process-segment-match input pattern)) ((pair? pattern) `((,%let ((,%temp ,input)) (,%and (,%pair? ,%temp) ,@(process-match `(,%car ,%temp) (car pattern) #f) ,@(process-match `(,%cdr ,%temp) (cdr pattern) #f))))) ((vector? pattern) `((,%let ((,%temp ,input)) (,%and (,%vector? ,%temp) ,@(process-match `(,%vector->list ,%temp) (vector->list pattern) #f))))) ((or (null? pattern) (boolean? pattern) (char? pattern)) `((,%eq? ,input ',pattern))) (else `((,%equal? ,input ',pattern))))) (define (process-segment-match input pattern) (let ((conjuncts (process-match `(,%car ,%l) (car pattern) #f))) `((,%and (,%list? ,input) ; Can't ask for its length if not a proper list (,%let ((,%len (,%length ,input))) (,%and (,%>= ,%len ,(length (cddr pattern))) (,%let ,%loop ((,%l ,input) (,%len ,%len)) (,%cond ((,%= ,%len ,(length (cddr pattern))) ,@(process-match %l (cddr pattern) #t)) (,%else (,%and ,@conjuncts (,%loop (,%cdr ,%l) (,%+ ,%len -1)))))))))))) ;; Generate code to take apart the input expression ;; This is pretty bad, but it seems to work (can't say why). (define (process-pattern pattern path mapit seen-segment?) (cond ((symbol? pattern) (if (memq pattern subkeywords) '() (list (list pattern (mapit path))))) ((segment-pattern? pattern seen-segment?) (let* ((tail-length (length (cddr pattern))) (%match (if (zero? tail-length) ; Simple segment? path ; No list traversing overhead at runtime! `(,%drop-right ,path ,tail-length)))) (append (process-pattern (car pattern) %temp (lambda (x) ;temp is free in x (mapit (if (eq? %temp x) %match ; Optimization: no map+lambda `(,%map1 (,%lambda (,%temp) ,x) ,%match)))) #f) (process-pattern (cddr pattern) `(,%take-right ,path ,tail-length) mapit #t)))) ((pair? pattern) (append (process-pattern (car pattern) `(,%car ,path) mapit #f) (process-pattern (cdr pattern) `(,%cdr ,path) mapit #f))) ((vector? pattern) (process-pattern (vector->list pattern) `(,%vector->list ,path) mapit #f)) (else '()))) ;; Generate code to compose the output expression according to template (define (process-template template dim env) (cond ((symbol? template) (let ((probe (assq template env))) (if probe (if (<= (cdr probe) dim) template (##sys#syntax-error-hook "template dimension error (too few ellipses?)" template)) `(,%rename (##core#syntax ,template))))) ((segment-template? template) (let* ((depth (segment-depth template)) (seg-dim (+ dim depth)) (vars (free-meta-variables (car template) seg-dim env '()))) (if (null? vars) (##sys#syntax-error-hook "too many ellipses" template) (let* ((x (process-template (car template) seg-dim env)) (gen (if (and (pair? vars) (null? (cdr vars)) (symbol? x) (eq? x (car vars))) x ;+++ `(,%map (,%lambda ,vars ,x) ,@vars))) (gen (do ((d depth (- d 1)) (gen gen `(,%apply ,%append ,gen))) ((= d 1) gen)))) (if (null? (segment-tail template)) gen ;+++ `(,%append ,gen ,(process-template (segment-tail template) dim env))))))) ((pair? template) `(,%cons ,(process-template (car template) dim env) ,(process-template (cdr template) dim env))) ((vector? template) `(,%list->vector ,(process-template (vector->list template) dim env))) (else `(,%quote ,template)))) ;; Return an association list of (var . dim) (define (meta-variables pattern dim vars seen-segment?) (cond ((symbol? pattern) (if (memq pattern subkeywords) vars (cons (cons pattern dim) vars))) ((segment-pattern? pattern seen-segment?) (meta-variables (car pattern) (+ dim 1) (meta-variables (cddr pattern) dim vars #t) #f)) ((pair? pattern) (meta-variables (car pattern) dim (meta-variables (cdr pattern) dim vars #f) #f)) ((vector? pattern) (meta-variables (vector->list pattern) dim vars #f)) (else vars))) ;; Return a list of meta-variables of given higher dim (define (free-meta-variables template dim env free) (cond ((symbol? template) (if (and (not (memq template free)) (let ((probe (assq template env))) (and probe (>= (cdr probe) dim)))) (cons template free) free)) ((segment-template? template) (free-meta-variables (car template) dim env (free-meta-variables (cddr template) dim env free))) ((pair? template) (free-meta-variables (car template) dim env (free-meta-variables (cdr template) dim env free))) ((vector? template) (free-meta-variables (vector->list template) dim env free)) (else free))) (define (segment-pattern? p seen-segment?) (and (segment-template? p) (cond (seen-segment? (##sys#syntax-error-hook "Only one segment per level is allowed" p)) ((not (list? p)) ; Improper list (##sys#syntax-error-hook "Cannot combine dotted tail and ellipsis" p)) (else #t)))) (define (segment-template? pattern) (and (pair? pattern) (pair? (cdr pattern)) (ellipsis? (cadr pattern)))) ;; Count the number of `...'s in PATTERN. (define (segment-depth pattern) (if (segment-template? pattern) (+ 1 (segment-depth (cdr pattern))) 0)) ;; Get whatever is after the `...'s in PATTERN. (define (segment-tail pattern) (let loop ((pattern (cdr pattern))) (if (and (pair? pattern) (ellipsis? (car pattern))) (loop (cdr pattern)) pattern))) (make-transformer rules)) ) ; chicken.internal.syntax-rules ����������������������������������������������������������������������������chicken-5.1.0/chicken.process-context.import.scm����������������������������������������������������0000644�0001750�0001750�00000002026�13502227727�021516� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.process-context.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.process-context 'library (scheme#list) '((argv . chicken.process-context#argv) (argc+argv . chicken.process-context#argc+argv) (command-line-arguments . chicken.process-context#command-line-arguments) (program-name . chicken.process-context#program-name) (executable-pathname . chicken.process-context#executable-pathname) (change-directory . chicken.process-context#change-directory) (current-directory . chicken.process-context#current-directory) (get-environment-variable . chicken.process-context#get-environment-variable) (get-environment-variables . chicken.process-context#get-environment-variables) (set-environment-variable! . chicken.process-context#set-environment-variable!) (unset-environment-variable! . chicken.process-context#unset-environment-variable!)) (scheme#list) (scheme#list)) ;; END OF FILE ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/user-pass.c���������������������������������������������������������������������������0000644�0001750�0001750�00000021376�13502227761�015033� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from user-pass.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: user-pass.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.user-pass -output-file user-pass.c unit: user-pass uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[8]; static double C_possibly_force_alignment; C_noret_decl(f_132) static void C_ccall f_132(C_word c,C_word *av) C_noret; C_noret_decl(f_135) static void C_ccall f_135(C_word c,C_word *av) C_noret; C_noret_decl(f_138) static void C_ccall f_138(C_word c,C_word *av) C_noret; C_noret_decl(f_142) static void C_ccall f_142(C_word c,C_word *av) C_noret; C_noret_decl(f_146) static void C_ccall f_146(C_word c,C_word *av) C_noret; C_noret_decl(f_150) static void C_ccall f_150(C_word c,C_word *av) C_noret; C_noret_decl(f_154) static void C_ccall f_154(C_word c,C_word *av) C_noret; C_noret_decl(f_158) static void C_ccall f_158(C_word c,C_word *av) C_noret; C_noret_decl(C_user_2dpass_toplevel) C_externexport void C_ccall C_user_2dpass_toplevel(C_word c,C_word *av) C_noret; /* k130 */ static void C_ccall f_132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_132,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_135,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k133 in k130 */ static void C_ccall f_135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_135,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_138,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k136 in k133 in k130 */ static void C_ccall f_138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ C_save_and_reclaim((void *)f_138,2,av);} a=C_alloc(19); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_142,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* user-pass.scm:37: chicken.base#make-parameter */ t5=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k140 in k136 in k133 in k130 */ static void C_ccall f_142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_142,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[2]+1 /* (set! chicken.compiler.user-pass#user-options-pass ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_146,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* user-pass.scm:38: chicken.base#make-parameter */ t4=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k144 in k140 in k136 in k133 in k130 */ static void C_ccall f_146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_146,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[3]+1 /* (set! chicken.compiler.user-pass#user-read-pass ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_150,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* user-pass.scm:39: chicken.base#make-parameter */ t4=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k148 in k144 in k140 in k136 in k133 in k130 */ static void C_ccall f_150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_150,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[4]+1 /* (set! chicken.compiler.user-pass#user-preprocessor-pass ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_154,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* user-pass.scm:40: chicken.base#make-parameter */ t4=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k152 in k148 in k144 in k140 in k136 in k133 in k130 */ static void C_ccall f_154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_154,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[5]+1 /* (set! chicken.compiler.user-pass#user-pass ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_158,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* user-pass.scm:41: chicken.base#make-parameter */ t4=C_fast_retrieve(lf[7]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k156 in k152 in k148 in k144 in k140 in k136 in k133 in k130 */ static void C_ccall f_158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_158,2,av);} t2=C_mutate((C_word*)lf[6]+1 /* (set! chicken.compiler.user-pass#user-post-analysis-pass ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_user_2dpass_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("user-pass")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_user_2dpass_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(56))){ C_save(t1); C_rereclaim2(56*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,8); lf[0]=C_h_intern(&lf[0],9, C_text("user-pass")); lf[1]=C_h_intern(&lf[1],27, C_text("chicken.compiler.user-pass#")); lf[2]=C_h_intern(&lf[2],44, C_text("chicken.compiler.user-pass#user-options-pass")); lf[3]=C_h_intern(&lf[3],41, C_text("chicken.compiler.user-pass#user-read-pass")); lf[4]=C_h_intern(&lf[4],49, C_text("chicken.compiler.user-pass#user-preprocessor-pass")); lf[5]=C_h_intern(&lf[5],36, C_text("chicken.compiler.user-pass#user-pass")); lf[6]=C_h_intern(&lf[6],50, C_text("chicken.compiler.user-pass#user-post-analysis-pass")); lf[7]=C_h_intern(&lf[7],27, C_text("chicken.base#make-parameter")); C_register_lf2(lf,8,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_132,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[10] = { {C_text("f_132:user_2dpass_2escm"),(void*)f_132}, {C_text("f_135:user_2dpass_2escm"),(void*)f_135}, {C_text("f_138:user_2dpass_2escm"),(void*)f_138}, {C_text("f_142:user_2dpass_2escm"),(void*)f_142}, {C_text("f_146:user_2dpass_2escm"),(void*)f_146}, {C_text("f_150:user_2dpass_2escm"),(void*)f_150}, {C_text("f_154:user_2dpass_2escm"),(void*)f_154}, {C_text("f_158:user_2dpass_2escm"),(void*)f_158}, {C_text("toplevel:user_2dpass_2escm"),(void*)C_user_2dpass_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 5 o|removed binding forms: 8 */ /* end of file */ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/config.make���������������������������������������������������������������������������0000644�0001750�0001750�00000002142�13370655400�015035� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������### config.make # You can set build options in this file instead of passing them on # the command line. Please consult the README file for more # information. # Select platform to use: #PLATFORM=linux # Installation prefix: #PREFIX=/usr/local ### The options below are optional and should be used with care # Disable optimizations: #DEBUGBUILD=1 # Build static runtime library only: #STATICBUILD=1 # Use alternative C compiler #C_COMPILER= # Add additional C compiler options: #C_COMPILER_OPTIMIZATION_OPTIONS=... # Use alternative resource compiler (for Win32 builds) #RC_COMPILER= # Choose prefix to be added to installed programs: #PROGRAM_PREFIX= # Choose suffix to be added to installed programs: #PROGRAM_SUFFIX= # Specification of host (build) system (machine + platform) for cross-compiling: #HOSTSYSTEM= # Specification of target (runtime) system for cross-compiling: #TARGETSYSTEM= # Where the install-location of a cross-build is #TARGET_PREFIX= # Specify that the sources are in a different directory than ".": #SRCDIR= # Use alternative directory for installed binary extensions: #VARDIR= ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.random.import.scm�������������������������������������������������������������0000644�0001750�0001750�00000000705�13502227734�017636� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.random.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.random 'extras (scheme#list) '((set-pseudo-random-seed! . chicken.random#set-pseudo-random-seed!) (pseudo-random-integer . chicken.random#pseudo-random-integer) (pseudo-random-real . chicken.random#pseudo-random-real) (random-bytes . chicken.random#random-bytes)) (scheme#list) (scheme#list)) ;; END OF FILE �����������������������������������������������������������chicken-5.1.0/file.scm������������������������������������������������������������������������������0000644�0001750�0001750�00000036012�13502227553�014360� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; file.scm - File operations ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without ; modification, are permitted provided that the following conditions are ; met: ; ; Redistributions of source code must retain the above copyright ; notice, this list of conditions and the following disclaimer. ; ; Redistributions in binary form must reproduce the above copyright ; notice, this list of conditions and the following disclaimer in the ; documentation and/or other materials provided with the distribution. ; ; Neither the name of the author nor the names of its contributors may ; be used to endorse or promote products derived from this software ; without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT ; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR ; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT ; HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, ; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, ; BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS ; OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR ; TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE ; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH ; DAMAGE. (declare (unit file) (uses extras irregex pathname) (fixnum) (disable-interrupts) (foreign-declare #<<EOF #include <errno.h> #define C_test_access(fn, m) C_fix(access(C_c_string(fn), C_unfix(m))) /* For Windows */ #ifndef R_OK # define R_OK 2 #endif #ifndef W_OK # define W_OK 4 #endif #ifndef X_OK # define X_OK 2 #endif #define C_rename(old, new) C_fix(rename(C_c_string(old), C_c_string(new))) #define C_remove(str) C_fix(remove(C_c_string(str))) #define C_rmdir(str) C_fix(rmdir(C_c_string(str))) #ifndef _WIN32 # include <sys/stat.h> # define C_mkdir(str) C_fix(mkdir(C_c_string(str), S_IRWXU | S_IRWXG | S_IRWXO)) #else # define C_mkdir(str) C_fix(mkdir(C_c_string(str))) #endif #if !defined(_WIN32) || defined(__CYGWIN__) # include <sys/types.h> # include <dirent.h> #else struct dirent { char * d_name; }; typedef struct { struct _finddata_t fdata; int handle; struct dirent current; } DIR; static DIR * C_fcall opendir(const char *name) { int name_len = strlen(name); int what_len = name_len + 3; DIR *dir = (DIR *)malloc(sizeof(DIR)); char *what; if (!dir) { errno = ENOMEM; return NULL; } what = (char *)malloc(what_len); if (!what) { free(dir); errno = ENOMEM; return NULL; } C_strlcpy(what, name, what_len); if (strchr("\\/", name[name_len - 1])) C_strlcat(what, "*", what_len); else C_strlcat(what, "\\*", what_len); dir->handle = _findfirst(what, &dir->fdata); if (dir->handle == -1) { free(what); free(dir); return NULL; } dir->current.d_name = NULL; /* as the first-time indicator */ free(what); return dir; } static int C_fcall closedir(DIR * dir) { if (dir) { int res = _findclose(dir->handle); free(dir); return res; } return -1; } static struct dirent * C_fcall readdir(DIR * dir) { if (dir) { if (!dir->current.d_name /* first time after opendir */ || _findnext(dir->handle, &dir->fdata) != -1) { dir->current.d_name = dir->fdata.name; return &dir->current; } } return NULL; } #endif #define C_opendir(s,h) C_set_block_item(h, 0, (C_word) opendir(C_c_string(s))) #define C_readdir(h,e) C_set_block_item(e, 0, (C_word) readdir((DIR *)C_block_item(h, 0))) #define C_closedir(h) (closedir((DIR *)C_block_item(h, 0)), C_SCHEME_UNDEFINED) #define C_foundfile(e,b,l) (C_strlcpy(C_c_string(b), ((struct dirent *) C_block_item(e, 0))->d_name, l), C_fix(strlen(((struct dirent *) C_block_item(e, 0))->d_name))) static C_word C_fcall C_u_i_symbolic_linkp(C_word path) { #if !defined(_WIN32) || defined(__CYGWIN__) struct stat buf; if (lstat(C_c_string(path), &buf) == 0) return C_mk_bool(S_ISLNK(buf.st_mode)); #endif return C_SCHEME_FALSE; } EOF )) (module chicken.file (create-directory delete-directory create-temporary-file create-temporary-directory delete-file delete-file* copy-file move-file rename-file file-exists? directory-exists? file-readable? file-writable? file-executable? directory find-files glob) (import scheme chicken.base chicken.condition chicken.fixnum chicken.foreign chicken.io chicken.irregex chicken.pathname chicken.process-context) (include "common-declarations.scm") (define-foreign-variable strerror c-string "strerror(errno)") ;; TODO: Some duplication from POSIX, to give better error messages. ;; This really isn't so much posix-specific, and code like this is ;; also in library.scm. This should be deduplicated across the board. (define posix-error (let ([strerror (foreign-lambda c-string "strerror" int)] [string-append string-append] ) (lambda (type loc msg . args) (let ([rn (##sys#update-errno)]) (apply ##sys#signal-hook type loc (string-append msg " - " (strerror rn)) args) ) ) ) ) ;;; Existence checks: (define (file-exists? name) (##sys#check-string name 'file-exists?) (and (##sys#file-exists? name #f #f 'file-exists?) name)) (define (directory-exists? name) (##sys#check-string name 'directory-exists?) (and (##sys#file-exists? name #f #t 'directory-exists?) name)) ;;; Permissions: (define-foreign-variable _r_ok int "R_OK") (define-foreign-variable _w_ok int "W_OK") (define-foreign-variable _x_ok int "X_OK") (define (test-access filename acc loc) (##sys#check-string filename loc) (let ((r (##core#inline "C_test_access" (##sys#make-c-string filename loc) acc))) (or (fx= r 0) (if (fx= (##sys#update-errno) (foreign-value "EACCES" int)) #f (posix-error #:file-error loc "cannot access file" filename))))) (define (file-readable? filename) (test-access filename _r_ok 'file-readable?)) (define (file-writable? filename) (test-access filename _w_ok 'file-writable?)) (define (file-executable? filename) (test-access filename _x_ok 'file-executable?)) ;;; Directories: (define (directory #!optional (spec (current-directory)) show-dotfiles?) (##sys#check-string spec 'directory) (let ((buffer (make-string 256)) (handle (##sys#make-pointer)) (entry (##sys#make-pointer))) (##core#inline "C_opendir" (##sys#make-c-string spec 'directory) handle) (if (##sys#null-pointer? handle) (posix-error #:file-error 'directory "cannot open directory" spec) (let loop () (##core#inline "C_readdir" handle entry) (if (##sys#null-pointer? entry) (begin (##core#inline "C_closedir" handle) '()) (let* ((flen (##core#inline "C_foundfile" entry buffer (string-length buffer))) (file (##sys#substring buffer 0 flen)) (char1 (string-ref file 0)) (char2 (and (fx> flen 1) (string-ref file 1)))) (if (and (eq? #\. char1) (or (not char2) (and (eq? #\. char2) (eq? 2 flen)) (not show-dotfiles?))) (loop) (cons file (loop))))))))) (define-inline (*symbolic-link? name loc) (##core#inline "C_u_i_symbolic_linkp" (##sys#make-c-string name loc))) (define-inline (*create-directory loc name) (unless (fx= 0 (##core#inline "C_mkdir" (##sys#make-c-string name loc))) (posix-error #:file-error loc "cannot create directory" name))) (define create-directory (lambda (name #!optional recursive) (##sys#check-string name 'create-directory) (unless (or (fx= 0 (##sys#size name)) (file-exists? name)) (if recursive (let loop ((dir (let-values (((dir file ext) (decompose-pathname name))) (if file (make-pathname dir file ext) dir)))) (when (and dir (not (directory-exists? dir))) (loop (pathname-directory dir)) (*create-directory 'create-directory dir))) (*create-directory 'create-directory name))) name)) (define delete-directory (lambda (name #!optional recursive) (define (rmdir dir) (let ((sname (##sys#make-c-string dir))) (unless (fx= 0 (##core#inline "C_rmdir" sname)) (posix-error #:file-error 'delete-directory "cannot delete directory" dir)))) (##sys#check-string name 'delete-directory) (if recursive (let ((files (find-files ; relies on `find-files' to list dir-contents before dir name dotfiles: #t follow-symlinks: #f))) (for-each (lambda (f) ((cond ((*symbolic-link? f 'delete-directory) delete-file) ((directory-exists? f) rmdir) (else delete-file)) f)) files) (rmdir name)) (rmdir name)))) ;;; File management: (define (delete-file filename) (##sys#check-string filename 'delete-file) (unless (eq? 0 (##core#inline "C_remove" (##sys#make-c-string filename 'delete-file))) (##sys#update-errno) (##sys#signal-hook #:file-error 'delete-file (##sys#string-append "cannot delete file - " strerror) filename)) filename) (define (delete-file* file) (and (file-exists? file) (delete-file file))) (define (rename-file oldfile newfile #!optional (clobber #f)) (##sys#check-string oldfile 'rename-file) (##sys#check-string newfile 'rename-file) (when (and (not clobber) (file-exists? newfile)) (##sys#error 'rename-file "newfile exists but clobber is false" newfile)) (unless (eq? 0 (##core#inline "C_rename" (##sys#make-c-string oldfile 'rename-file) (##sys#make-c-string newfile 'rename-file))) (##sys#update-errno) (##sys#signal-hook #:file-error 'rename-file (##sys#string-append "cannot rename file - " strerror) oldfile newfile)) newfile) (define (copy-file oldfile newfile #!optional (clobber #f) (blocksize 1024)) (##sys#check-string oldfile 'copy-file) (##sys#check-string newfile 'copy-file) (##sys#check-number blocksize 'copy-file) (unless (and (integer? blocksize) (> blocksize 0)) (##sys#error 'copy-file "invalid blocksize - not a positive integer" blocksize)) (when (directory-exists? oldfile) (##sys#error 'copy-file "cannot copy directories" oldfile)) (when (and (not clobber) (file-exists? newfile)) (##sys#error 'copy-file "newfile exists but clobber is false" newfile)) (let* ((i (open-input-file oldfile #:binary)) (o (open-output-file newfile #:binary)) (s (make-string blocksize))) (let loop ((d (read-string! blocksize s i)) (l 0)) (if (fx= 0 d) (begin (close-input-port i) (close-output-port o) l) (begin (write-string s d o) (loop (read-string! blocksize s i) (fx+ d l))))))) (define (move-file oldfile newfile #!optional (clobber #f) (blocksize 1024)) (##sys#check-string oldfile 'move-file) (##sys#check-string newfile 'move-file) (##sys#check-number blocksize 'move-file) (unless (and (integer? blocksize) (> blocksize 0)) (##sys#error 'move-file "invalid blocksize - not a positive integer" blocksize)) (when (directory-exists? oldfile) (##sys#error 'move-file "cannot move directories" oldfile)) (when (and (not clobber) (file-exists? newfile)) (##sys#error 'move-file "newfile exists but clobber is false" newfile)) (let* ((i (open-input-file oldfile #:binary)) (o (open-output-file newfile #:binary)) (s (make-string blocksize))) (let loop ((d (read-string! blocksize s i)) (l 0)) (if (fx= 0 d) (begin (close-input-port i) (close-output-port o) (delete-file oldfile) l) (begin (write-string s d o) (loop (read-string! blocksize s i) (fx+ d l))))))) ;;; Temporary file creation: (define create-temporary-file) (define create-temporary-directory) (let ((temp #f) (temp-prefix "temp") (string-append string-append)) (define (tempdir) (or temp (let ((tmp (or (get-environment-variable "TMPDIR") (get-environment-variable "TEMP") (get-environment-variable "TMP") "/tmp"))) (set! temp tmp) tmp))) (set! create-temporary-file (lambda (#!optional (ext "tmp")) (##sys#check-string ext 'create-temporary-file) (let loop () (let* ((n (##core#inline "C_random_fixnum" #x10000)) (getpid (foreign-lambda int "C_getpid")) (pn (make-pathname (tempdir) (string-append temp-prefix (number->string n 16) "." (##sys#number->string (getpid))) ext))) (if (file-exists? pn) (loop) (call-with-output-file pn (lambda (p) pn))))))) (set! create-temporary-directory (lambda () (let loop () (let* ((n (##core#inline "C_random_fixnum" #x10000)) (getpid (foreign-lambda int "C_getpid")) (pn (make-pathname (tempdir) (string-append temp-prefix (number->string n 16) "." (##sys#number->string (getpid)))))) (if (file-exists? pn) (loop) (let ((r (##core#inline "C_mkdir" (##sys#make-c-string pn 'create-temporary-directory)))) (if (eq? r 0) pn (##sys#signal-hook #:file-error 'create-temporary-directory (##sys#string-append "cannot create temporary directory - " strerror) pn))))))))) ;;; Filename globbing: (define (glob . paths) (let conc-loop ((paths paths)) (if (null? paths) '() (let ((path (car paths))) (let-values (((dir fil ext) (decompose-pathname path))) (let ((dir* (or dir ".")) (rx (irregex (glob->sre (make-pathname #f (or fil "*") ext))))) (let loop ((fns (condition-case (directory dir* #t) ((exn i/o file) #f)))) (cond ((not (pair? fns)) (conc-loop (cdr paths))) ((irregex-match rx (car fns)) => (lambda (m) (cons (make-pathname dir (irregex-match-substring m)) (loop (cdr fns))))) (else (loop (cdr fns))))))))))) ;;; Find matching files: (define (find-files dir #!key (test (lambda _ #t)) (action (lambda (x y) (cons x y))) (seed '()) (limit #f) (dotfiles #f) (follow-symlinks #f)) (##sys#check-string dir 'find-files) (let* ((depth 0) (lproc (cond ((not limit) (lambda _ #t)) ((fixnum? limit) (lambda _ (fx< depth limit))) (else limit))) (pproc (if (procedure? test) test (let ((test (irregex test))) ; force compilation (lambda (x) (irregex-match test x)))))) (let loop ((dir dir) (fs (directory dir dotfiles)) (r seed)) (if (null? fs) r (let* ((filename (##sys#slot fs 0)) (f (make-pathname dir filename)) (rest (##sys#slot fs 1))) (cond ((directory-exists? f) (cond ((member filename '("." "..")) (loop dir rest r)) ((and (*symbolic-link? f 'find-files) (not follow-symlinks)) (loop dir rest (if (pproc f) (action f r) r))) ((lproc f) (loop dir rest (fluid-let ((depth (fx+ depth 1))) (loop f (directory f dotfiles) (if (pproc f) (action f r) r))))) (else (loop dir rest (if (pproc f) (action f r) r))))) ((pproc f) (loop dir rest (action f r))) (else (loop dir rest r)))))))) ) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.time.import.scm���������������������������������������������������������������0000644�0001750�0001750�00000003765�13502227553�017324� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.time.import.scm - GENERATED BY CHICKEN 5.0.0 -*- Scheme -*- ; ; Copyright (c) 2018-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditionsand the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (##sys#register-core-module 'chicken.time 'library '((cpu-time . chicken.time#cpu-time) (current-milliseconds . chicken.time#current-milliseconds) (current-seconds . chicken.time#current-seconds)) ;; OBSOLETE: This can be removed after bootstrapping (if (##sys#symbol-has-toplevel-binding? '##sys#chicken.time-macro-environment) ##sys#chicken.time-macro-environment ##sys#chicken.base-macro-environment)) �����������chicken-5.1.0/lolevel.c�����������������������������������������������������������������������������0000644�0001750�0001750�00000636773�13502227762�014571� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from lolevel.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: lolevel.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file lolevel.c -emit-import-library chicken.locative -emit-import-library chicken.memory -emit-import-library chicken.memory.representation unit: lolevel uses: library */ #include "chicken.h" #ifndef C_NONUNIX # include <sys/mman.h> #endif #define C_memmove_o(to, from, n, toff, foff) C_memmove((char *)(to) + (toff), (char *)(from) + (foff), (n)) static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[156]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,99,104,101,99,107,45,98,108,111,99,107,32,120,32,46,32,108,111,99,41,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,99,104,101,99,107,45,98,101,99,111,109,101,45,97,108,105,115,116,32,120,32,108,111,99,41}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,99,104,101,99,107,45,103,101,110,101,114,105,99,45,115,116,114,117,99,116,117,114,101,32,120,32,46,32,108,111,99,41,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,99,104,101,99,107,45,103,101,110,101,114,105,99,45,118,101,99,116,111,114,32,120,32,46,32,108,111,99,41,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,112,111,105,110,116,101,114,32,120,32,46,32,108,111,99,41,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,10),40,110,111,115,105,122,101,114,114,41,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,13),40,115,105,122,101,114,114,32,97,114,103,115,41,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,20),40,99,104,101,99,107,110,49,32,110,32,110,109,97,120,32,111,102,102,41,0,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,32),40,99,104,101,99,107,110,50,32,110,32,110,109,97,120,32,110,109,97,120,50,32,111,102,102,49,32,111,102,102,50,41}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,14),40,109,111,118,101,32,102,114,111,109,32,116,111,41,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,109,111,118,101,45,109,101,109,111,114,121,33,32,102,114,111,109,32,116,111,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,97,108,108,111,99,97,116,101,32,105,110,116,51,49,54,41}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,102,114,101,101,32,99,45,112,111,105,110,116,101,114,51,50,50,41,0,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,63,32,120,41,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,108,105,107,101,63,32,120,41}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,97,100,100,114,101,115,115,45,62,112,111,105,110,116,101,114,32,97,100,100,114,41,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,62,97,100,100,114,101,115,115,32,112,116,114,41,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,111,98,106,101,99,116,45,62,112,111,105,110,116,101,114,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,62,111,98,106,101,99,116,32,112,116,114,41,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,61,63,32,112,49,32,112,50,41}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,43,32,112,116,114,51,54,52,32,111,102,102,51,54,53,41,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,97,108,105,103,110,45,116,111,45,119,111,114,100,32,120,41}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,116,97,103,45,112,111,105,110,116,101,114,32,112,116,114,32,116,97,103,41,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,116,97,103,103,101,100,45,112,111,105,110,116,101,114,63,32,120,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,116,97,103,32,120,41,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,117,56,45,115,101,116,33,32,112,32,110,41,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,115,56,45,115,101,116,33,32,112,32,110,41,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,117,49,54,45,115,101,116,33,32,112,32,110,41,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,115,49,54,45,115,101,116,33,32,112,32,110,41,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,117,51,50,45,115,101,116,33,32,112,32,110,41,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,115,51,50,45,115,101,116,33,32,112,32,110,41,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,117,54,52,45,115,101,116,33,32,112,32,110,41,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,115,54,52,45,115,101,116,33,32,112,32,110,41,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,102,51,50,45,115,101,116,33,32,112,32,110,41,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,102,54,52,45,115,101,116,33,32,112,32,110,41,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,57,54,41,0,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,109,97,107,101,45,112,111,105,110,116,101,114,45,118,101,99,116,111,114,32,110,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,118,101,99,116,111,114,63,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,53,49,49,32,112,116,114,115,32,105,41,0,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,118,101,99,116,111,114,32,46,32,112,116,114,115,41,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,53,50,52,41,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,118,101,99,116,111,114,45,102,105,108,108,33,32,112,118,32,112,116,114,41,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,118,45,98,117,102,45,115,101,116,33,32,105,53,52,49,32,112,116,114,53,52,50,41}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,118,101,99,116,111,114,45,115,101,116,33,32,112,118,32,105,32,112,116,114,41,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,35,112,111,105,110,116,101,114,45,118,101,99,116,111,114,45,108,101,110,103,116,104,32,112,118,41,0,0,0,0,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,54,51,49,32,105,41,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,8),40,99,111,112,121,32,120,41}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,111,98,106,101,99,116,45,99,111,112,121,32,120,41,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,9),40,97,50,49,51,50,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,11),40,97,50,49,52,56,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,58),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,101,120,116,101,110,100,45,112,114,111,99,101,100,117,114,101,32,112,114,111,99,32,100,97,116,97,41,0,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,9),40,97,50,49,55,53,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,53),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,101,120,116,101,110,100,101,100,45,112,114,111,99,101,100,117,114,101,63,32,120,41,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,9),40,97,50,50,48,56,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,112,114,111,99,101,100,117,114,101,45,100,97,116,97,32,120,41}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,58),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,115,101,116,45,112,114,111,99,101,100,117,114,101,45,100,97,116,97,33,32,112,114,111,99,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,118,101,99,116,111,114,45,108,105,107,101,63,32,120,41,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,110,117,109,98,101,114,45,111,102,45,115,108,111,116,115,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,110,117,109,98,101,114,45,111,102,45,98,121,116,101,115,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,64),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,109,97,107,101,45,114,101,99,111,114,100,45,105,110,115,116,97,110,99,101,32,116,121,112,101,32,46,32,97,114,103,115,41}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,57),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,114,101,99,111,114,100,45,105,110,115,116,97,110,99,101,63,32,120,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,114,101,99,111,114,100,45,105,110,115,116,97,110,99,101,45,116,121,112,101,32,120,41,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,56),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,114,101,99,111,114,100,45,105,110,115,116,97,110,99,101,45,108,101,110,103,116,104,32,120,41}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,63),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,114,101,99,111,114,100,45,105,110,115,116,97,110,99,101,45,115,108,111,116,45,115,101,116,33,32,120,32,105,32,121,41,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,55,51,55,41,0,0,0,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,114,101,99,111,114,100,45,62,118,101,99,116,111,114,32,120,41}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,111,98,106,101,99,116,45,98,101,99,111,109,101,33,32,97,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,58),40,99,104,105,99,107,101,110,46,109,101,109,111,114,121,46,114,101,112,114,101,115,101,110,116,97,116,105,111,110,35,109,117,116,97,116,101,45,112,114,111,99,101,100,117,114,101,33,32,111,108,100,32,112,114,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,108,111,99,97,116,105,118,101,35,109,97,107,101,45,108,111,99,97,116,105,118,101,32,111,98,106,32,46,32,105,110,100,101,120,41,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,108,111,99,97,116,105,118,101,35,109,97,107,101,45,119,101,97,107,45,108,111,99,97,116,105,118,101,32,111,98,106,32,46,32,105,110,100,101,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,108,111,99,97,116,105,118,101,35,108,111,99,97,116,105,118,101,45,115,101,116,33,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,108,111,99,97,116,105,118,101,35,108,111,99,97,116,105,118,101,45,62,111,98,106,101,99,116,32,120,41,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,108,111,99,97,116,105,118,101,35,108,111,99,97,116,105,118,101,63,32,120,41,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,11),40,97,50,53,50,53,32,108,111,99,41,0,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,11),40,97,50,53,50,56,32,120,32,105,41,0,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,12),40,97,50,53,53,50,32,112,118,32,105,41,0,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,9),40,97,50,53,55,53,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,9),40,97,50,53,55,56,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,9),40,97,50,53,56,49,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,9),40,97,50,53,56,52,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,9),40,97,50,53,56,55,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,9),40,97,50,53,57,48,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,9),40,97,50,53,57,51,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,9),40,97,50,53,57,54,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,9),40,97,50,53,57,57,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,9),40,97,50,54,48,50,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; #define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub543(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word buf=(C_word )(C_a0); unsigned int i=(unsigned int )C_unfix(C_a1); void * ptr=(void * )C_c_pointer_or_null(C_a2); *((void **)C_data_pointer(buf) + i) = ptr; C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_mpointer_or_false(&C_a,(void*)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub534(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word buf=(C_word )(C_a0); unsigned int i=(unsigned int )C_unfix(C_a1); C_return(*((void **)C_data_pointer(buf) + i)); C_ret: #undef return return C_r;} /* from k1842 */ C_regparm static C_word C_fcall stub491(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_fix((C_word)C_wordstobytes(t0)); return C_r;} /* from k1643 */ C_regparm static C_word C_fcall stub377(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_num_to_int(C_a0); C_r=C_int_to_num(&C_a,C_align(t0)); return C_r;} #define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub366(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * ptr=(void * )C_c_pointer_or_null(C_a0); int off=(int )C_num_to_int(C_a1); C_return((unsigned char *)ptr + off); C_ret: #undef return return C_r;} #define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub351(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word x=(C_word )(C_a0); C_return((void *)x); C_ret: #undef return return C_r;} /* from k1555 */ C_regparm static C_word C_fcall stub323(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_c_pointer_or_null(C_a0); C_free(t0); return C_r;} /* from k1548 */ C_regparm static C_word C_fcall stub317(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_mpointer_or_false(&C_a,(void*)C_malloc(t0)); return C_r;} /* from k1187 */ C_regparm static C_word C_fcall stub196(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3,C_word C_a4){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_data_pointer_or_null(C_a0); void * t1=(void * )C_data_pointer_or_null(C_a1); int t2=(int )C_unfix(C_a2); int t3=(int )C_unfix(C_a3); int t4=(int )C_unfix(C_a4); C_memmove_o(t0,t1,t2,t3,t4); return C_r;} /* from k1159 */ C_regparm static C_word C_fcall stub180(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3,C_word C_a4){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_data_pointer_or_null(C_a0); void * t1=(void * )C_c_pointer_or_null(C_a1); int t2=(int )C_unfix(C_a2); int t3=(int )C_unfix(C_a3); int t4=(int )C_unfix(C_a4); C_memmove_o(t0,t1,t2,t3,t4); return C_r;} /* from k1131 */ C_regparm static C_word C_fcall stub164(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3,C_word C_a4){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_c_pointer_or_null(C_a0); void * t1=(void * )C_data_pointer_or_null(C_a1); int t2=(int )C_unfix(C_a2); int t3=(int )C_unfix(C_a3); int t4=(int )C_unfix(C_a4); C_memmove_o(t0,t1,t2,t3,t4); return C_r;} /* from k1103 */ C_regparm static C_word C_fcall stub148(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3,C_word C_a4){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_c_pointer_or_null(C_a0); void * t1=(void * )C_c_pointer_or_null(C_a1); int t2=(int )C_unfix(C_a2); int t3=(int )C_unfix(C_a3); int t4=(int )C_unfix(C_a4); C_memmove_o(t0,t1,t2,t3,t4); return C_r;} C_noret_decl(f_1004) static void C_ccall f_1004(C_word c,C_word *av) C_noret; C_noret_decl(f_1016) static void C_fcall f_1016(C_word t0,C_word t1) C_noret; C_noret_decl(f_1029) static void C_ccall f_1029(C_word c,C_word *av) C_noret; C_noret_decl(f_1048) static void C_fcall f_1048(C_word t0,C_word t1) C_noret; C_noret_decl(f_1061) static void C_ccall f_1061(C_word c,C_word *av) C_noret; C_noret_decl(f_1202) static void C_ccall f_1202(C_word c,C_word *av) C_noret; C_noret_decl(f_1223) static void C_fcall f_1223(C_word t0,C_word t1) C_noret; C_noret_decl(f_1229) static void C_fcall f_1229(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1235) static void C_fcall f_1235(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1251) static void C_fcall f_1251(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_1258) static void C_fcall f_1258(C_word t0,C_word t1) C_noret; C_noret_decl(f_1278) static void C_ccall f_1278(C_word c,C_word *av) C_noret; C_noret_decl(f_1281) static void C_ccall f_1281(C_word c,C_word *av) C_noret; C_noret_decl(f_1284) static void C_ccall f_1284(C_word c,C_word *av) C_noret; C_noret_decl(f_1287) static void C_ccall f_1287(C_word c,C_word *av) C_noret; C_noret_decl(f_1292) static void C_fcall f_1292(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1361) static void C_fcall f_1361(C_word t0,C_word t1) C_noret; C_noret_decl(f_1377) static void C_fcall f_1377(C_word t0,C_word t1) C_noret; C_noret_decl(f_1384) static void C_ccall f_1384(C_word c,C_word *av) C_noret; C_noret_decl(f_1393) static void C_ccall f_1393(C_word c,C_word *av) C_noret; C_noret_decl(f_1403) static void C_ccall f_1403(C_word c,C_word *av) C_noret; C_noret_decl(f_1407) static void C_ccall f_1407(C_word c,C_word *av) C_noret; C_noret_decl(f_1426) static void C_ccall f_1426(C_word c,C_word *av) C_noret; C_noret_decl(f_1448) static void C_fcall f_1448(C_word t0,C_word t1) C_noret; C_noret_decl(f_1455) static void C_ccall f_1455(C_word c,C_word *av) C_noret; C_noret_decl(f_1465) static void C_ccall f_1465(C_word c,C_word *av) C_noret; C_noret_decl(f_1475) static void C_ccall f_1475(C_word c,C_word *av) C_noret; C_noret_decl(f_1545) static void C_ccall f_1545(C_word c,C_word *av) C_noret; C_noret_decl(f_1552) static void C_ccall f_1552(C_word c,C_word *av) C_noret; C_noret_decl(f_1562) static void C_ccall f_1562(C_word c,C_word *av) C_noret; C_noret_decl(f_1570) static void C_ccall f_1570(C_word c,C_word *av) C_noret; C_noret_decl(f_1581) static void C_ccall f_1581(C_word c,C_word *av) C_noret; C_noret_decl(f_1585) static void C_ccall f_1585(C_word c,C_word *av) C_noret; C_noret_decl(f_1590) static void C_ccall f_1590(C_word c,C_word *av) C_noret; C_noret_decl(f_1594) static void C_ccall f_1594(C_word c,C_word *av) C_noret; C_noret_decl(f_1599) static void C_ccall f_1599(C_word c,C_word *av) C_noret; C_noret_decl(f_1610) static void C_ccall f_1610(C_word c,C_word *av) C_noret; C_noret_decl(f_1614) static void C_ccall f_1614(C_word c,C_word *av) C_noret; C_noret_decl(f_1616) static void C_ccall f_1616(C_word c,C_word *av) C_noret; C_noret_decl(f_1620) static void C_ccall f_1620(C_word c,C_word *av) C_noret; C_noret_decl(f_1623) static void C_ccall f_1623(C_word c,C_word *av) C_noret; C_noret_decl(f_1625) static void C_ccall f_1625(C_word c,C_word *av) C_noret; C_noret_decl(f_1647) static void C_ccall f_1647(C_word c,C_word *av) C_noret; C_noret_decl(f_1666) static void C_fcall f_1666(C_word t0,C_word t1) C_noret; C_noret_decl(f_1677) static void C_ccall f_1677(C_word c,C_word *av) C_noret; C_noret_decl(f_1682) static void C_ccall f_1682(C_word c,C_word *av) C_noret; C_noret_decl(f_1686) static void C_ccall f_1686(C_word c,C_word *av) C_noret; C_noret_decl(f_1689) static void C_ccall f_1689(C_word c,C_word *av) C_noret; C_noret_decl(f_1697) static void C_fcall f_1697(C_word t0,C_word t1) C_noret; C_noret_decl(f_1703) static void C_ccall f_1703(C_word c,C_word *av) C_noret; C_noret_decl(f_1734) static void C_ccall f_1734(C_word c,C_word *av) C_noret; C_noret_decl(f_1746) static void C_fcall f_1746(C_word t0,C_word t1) C_noret; C_noret_decl(f_1758) static void C_ccall f_1758(C_word c,C_word *av) C_noret; C_noret_decl(f_1761) static void C_ccall f_1761(C_word c,C_word *av) C_noret; C_noret_decl(f_1764) static void C_ccall f_1764(C_word c,C_word *av) C_noret; C_noret_decl(f_1767) static void C_ccall f_1767(C_word c,C_word *av) C_noret; C_noret_decl(f_1770) static void C_ccall f_1770(C_word c,C_word *av) C_noret; C_noret_decl(f_1773) static void C_ccall f_1773(C_word c,C_word *av) C_noret; C_noret_decl(f_1776) static void C_ccall f_1776(C_word c,C_word *av) C_noret; C_noret_decl(f_1779) static void C_ccall f_1779(C_word c,C_word *av) C_noret; C_noret_decl(f_1782) static void C_ccall f_1782(C_word c,C_word *av) C_noret; C_noret_decl(f_1785) static void C_ccall f_1785(C_word c,C_word *av) C_noret; C_noret_decl(f_1790) static void C_ccall f_1790(C_word c,C_word *av) C_noret; C_noret_decl(f_1794) static void C_ccall f_1794(C_word c,C_word *av) C_noret; C_noret_decl(f_1798) static void C_ccall f_1798(C_word c,C_word *av) C_noret; C_noret_decl(f_1802) static void C_ccall f_1802(C_word c,C_word *av) C_noret; C_noret_decl(f_1806) static void C_ccall f_1806(C_word c,C_word *av) C_noret; C_noret_decl(f_1810) static void C_ccall f_1810(C_word c,C_word *av) C_noret; C_noret_decl(f_1814) static void C_ccall f_1814(C_word c,C_word *av) C_noret; C_noret_decl(f_1818) static void C_ccall f_1818(C_word c,C_word *av) C_noret; C_noret_decl(f_1822) static void C_ccall f_1822(C_word c,C_word *av) C_noret; C_noret_decl(f_1826) static void C_ccall f_1826(C_word c,C_word *av) C_noret; C_noret_decl(f_1831) static void C_ccall f_1831(C_word c,C_word *av) C_noret; C_noret_decl(f_1850) static void C_ccall f_1850(C_word c,C_word *av) C_noret; C_noret_decl(f_1862) static void C_ccall f_1862(C_word c,C_word *av) C_noret; C_noret_decl(f_1867) static C_word C_fcall f_1867(C_word t0,C_word t1); C_noret_decl(f_1895) static void C_ccall f_1895(C_word c,C_word *av) C_noret; C_noret_decl(f_1901) static void C_ccall f_1901(C_word c,C_word *av) C_noret; C_noret_decl(f_1906) static void C_ccall f_1906(C_word c,C_word *av) C_noret; C_noret_decl(f_1914) static void C_fcall f_1914(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1927) static void C_ccall f_1927(C_word c,C_word *av) C_noret; C_noret_decl(f_1941) static void C_ccall f_1941(C_word c,C_word *av) C_noret; C_noret_decl(f_1948) static void C_ccall f_1948(C_word c,C_word *av) C_noret; C_noret_decl(f_1959) static C_word C_fcall f_1959(C_word t0,C_word t1); C_noret_decl(f_1988) static C_word C_fcall f_1988(C_word t0,C_word t1,C_word t2); C_noret_decl(f_2002) static void C_ccall f_2002(C_word c,C_word *av) C_noret; C_noret_decl(f_2012) static void C_ccall f_2012(C_word c,C_word *av) C_noret; C_noret_decl(f_2015) static void C_ccall f_2015(C_word c,C_word *av) C_noret; C_noret_decl(f_2033) static void C_ccall f_2033(C_word c,C_word *av) C_noret; C_noret_decl(f_2035) static void C_ccall f_2035(C_word c,C_word *av) C_noret; C_noret_decl(f_2044) static void C_ccall f_2044(C_word c,C_word *av) C_noret; C_noret_decl(f_2050) static void C_fcall f_2050(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2080) static void C_ccall f_2080(C_word c,C_word *av) C_noret; C_noret_decl(f_2083) static void C_ccall f_2083(C_word c,C_word *av) C_noret; C_noret_decl(f_2092) static void C_fcall f_2092(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2113) static void C_ccall f_2113(C_word c,C_word *av) C_noret; C_noret_decl(f_2124) static void C_ccall f_2124(C_word c,C_word *av) C_noret; C_noret_decl(f_2128) static void C_ccall f_2128(C_word c,C_word *av) C_noret; C_noret_decl(f_2133) static void C_ccall f_2133(C_word c,C_word *av) C_noret; C_noret_decl(f_2149) static void C_ccall f_2149(C_word c,C_word *av) C_noret; C_noret_decl(f_2159) static void C_ccall f_2159(C_word c,C_word *av) C_noret; C_noret_decl(f_2176) static void C_ccall f_2176(C_word c,C_word *av) C_noret; C_noret_decl(f_2193) static void C_ccall f_2193(C_word c,C_word *av) C_noret; C_noret_decl(f_2195) static void C_ccall f_2195(C_word c,C_word *av) C_noret; C_noret_decl(f_2209) static void C_ccall f_2209(C_word c,C_word *av) C_noret; C_noret_decl(f_2226) static void C_ccall f_2226(C_word c,C_word *av) C_noret; C_noret_decl(f_2234) static void C_ccall f_2234(C_word c,C_word *av) C_noret; C_noret_decl(f_2248) static void C_ccall f_2248(C_word c,C_word *av) C_noret; C_noret_decl(f_2250) static void C_ccall f_2250(C_word c,C_word *av) C_noret; C_noret_decl(f_2271) static void C_ccall f_2271(C_word c,C_word *av) C_noret; C_noret_decl(f_2273) static void C_ccall f_2273(C_word c,C_word *av) C_noret; C_noret_decl(f_2277) static void C_ccall f_2277(C_word c,C_word *av) C_noret; C_noret_decl(f_2282) static void C_ccall f_2282(C_word c,C_word *av) C_noret; C_noret_decl(f_2305) static void C_ccall f_2305(C_word c,C_word *av) C_noret; C_noret_decl(f_2314) static void C_ccall f_2314(C_word c,C_word *av) C_noret; C_noret_decl(f_2329) static void C_fcall f_2329(C_word t0,C_word t1) C_noret; C_noret_decl(f_2350) static void C_ccall f_2350(C_word c,C_word *av) C_noret; C_noret_decl(f_2354) static void C_ccall f_2354(C_word c,C_word *av) C_noret; C_noret_decl(f_2359) static void C_ccall f_2359(C_word c,C_word *av) C_noret; C_noret_decl(f_2363) static void C_ccall f_2363(C_word c,C_word *av) C_noret; C_noret_decl(f_2372) static void C_ccall f_2372(C_word c,C_word *av) C_noret; C_noret_decl(f_2376) static void C_ccall f_2376(C_word c,C_word *av) C_noret; C_noret_decl(f_2379) static void C_ccall f_2379(C_word c,C_word *av) C_noret; C_noret_decl(f_2398) static void C_ccall f_2398(C_word c,C_word *av) C_noret; C_noret_decl(f_2400) static void C_ccall f_2400(C_word c,C_word *av) C_noret; C_noret_decl(f_2404) static void C_ccall f_2404(C_word c,C_word *av) C_noret; C_noret_decl(f_2410) static void C_ccall f_2410(C_word c,C_word *av) C_noret; C_noret_decl(f_2415) static C_word C_fcall f_2415(C_word t0,C_word t1); C_noret_decl(f_2438) static void C_ccall f_2438(C_word c,C_word *av) C_noret; C_noret_decl(f_2442) static void C_ccall f_2442(C_word c,C_word *av) C_noret; C_noret_decl(f_2447) static void C_ccall f_2447(C_word c,C_word *av) C_noret; C_noret_decl(f_2451) static void C_ccall f_2451(C_word c,C_word *av) C_noret; C_noret_decl(f_2454) static void C_ccall f_2454(C_word c,C_word *av) C_noret; C_noret_decl(f_2461) static void C_ccall f_2461(C_word c,C_word *av) C_noret; C_noret_decl(f_2464) static void C_ccall f_2464(C_word c,C_word *av) C_noret; C_noret_decl(f_2476) static void C_ccall f_2476(C_word c,C_word *av) C_noret; C_noret_decl(f_2478) static void C_ccall f_2478(C_word c,C_word *av) C_noret; C_noret_decl(f_2494) static void C_ccall f_2494(C_word c,C_word *av) C_noret; C_noret_decl(f_2510) static void C_ccall f_2510(C_word c,C_word *av) C_noret; C_noret_decl(f_2515) static void C_ccall f_2515(C_word c,C_word *av) C_noret; C_noret_decl(f_2517) static void C_ccall f_2517(C_word c,C_word *av) C_noret; C_noret_decl(f_2520) static void C_ccall f_2520(C_word c,C_word *av) C_noret; C_noret_decl(f_2526) static void C_ccall f_2526(C_word c,C_word *av) C_noret; C_noret_decl(f_2529) static void C_ccall f_2529(C_word c,C_word *av) C_noret; C_noret_decl(f_2533) static void C_ccall f_2533(C_word c,C_word *av) C_noret; C_noret_decl(f_2536) static void C_ccall f_2536(C_word c,C_word *av) C_noret; C_noret_decl(f_2553) static void C_ccall f_2553(C_word c,C_word *av) C_noret; C_noret_decl(f_2563) static void C_ccall f_2563(C_word c,C_word *av) C_noret; C_noret_decl(f_2576) static void C_ccall f_2576(C_word c,C_word *av) C_noret; C_noret_decl(f_2579) static void C_ccall f_2579(C_word c,C_word *av) C_noret; C_noret_decl(f_2582) static void C_ccall f_2582(C_word c,C_word *av) C_noret; C_noret_decl(f_2585) static void C_ccall f_2585(C_word c,C_word *av) C_noret; C_noret_decl(f_2588) static void C_ccall f_2588(C_word c,C_word *av) C_noret; C_noret_decl(f_2591) static void C_ccall f_2591(C_word c,C_word *av) C_noret; C_noret_decl(f_2594) static void C_ccall f_2594(C_word c,C_word *av) C_noret; C_noret_decl(f_2597) static void C_ccall f_2597(C_word c,C_word *av) C_noret; C_noret_decl(f_2600) static void C_ccall f_2600(C_word c,C_word *av) C_noret; C_noret_decl(f_2603) static void C_ccall f_2603(C_word c,C_word *av) C_noret; C_noret_decl(f_938) static void C_ccall f_938(C_word c,C_word *av) C_noret; C_noret_decl(f_940) static void C_ccall f_940(C_word c,C_word *av) C_noret; C_noret_decl(f_958) static void C_ccall f_958(C_word c,C_word *av) C_noret; C_noret_decl(f_967) static void C_fcall f_967(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_987) static void C_ccall f_987(C_word c,C_word *av) C_noret; C_noret_decl(f_990) static void C_ccall f_990(C_word c,C_word *av) C_noret; C_noret_decl(C_lolevel_toplevel) C_externexport void C_ccall C_lolevel_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1016) static void C_ccall trf_1016(C_word c,C_word *av) C_noret; static void C_ccall trf_1016(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1016(t0,t1);} C_noret_decl(trf_1048) static void C_ccall trf_1048(C_word c,C_word *av) C_noret; static void C_ccall trf_1048(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1048(t0,t1);} C_noret_decl(trf_1223) static void C_ccall trf_1223(C_word c,C_word *av) C_noret; static void C_ccall trf_1223(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1223(t0,t1);} C_noret_decl(trf_1229) static void C_ccall trf_1229(C_word c,C_word *av) C_noret; static void C_ccall trf_1229(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1229(t0,t1,t2);} C_noret_decl(trf_1235) static void C_ccall trf_1235(C_word c,C_word *av) C_noret; static void C_ccall trf_1235(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1235(t0,t1,t2,t3,t4);} C_noret_decl(trf_1251) static void C_ccall trf_1251(C_word c,C_word *av) C_noret; static void C_ccall trf_1251(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_1251(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_1258) static void C_ccall trf_1258(C_word c,C_word *av) C_noret; static void C_ccall trf_1258(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1258(t0,t1);} C_noret_decl(trf_1292) static void C_ccall trf_1292(C_word c,C_word *av) C_noret; static void C_ccall trf_1292(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1292(t0,t1,t2,t3);} C_noret_decl(trf_1361) static void C_ccall trf_1361(C_word c,C_word *av) C_noret; static void C_ccall trf_1361(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1361(t0,t1);} C_noret_decl(trf_1377) static void C_ccall trf_1377(C_word c,C_word *av) C_noret; static void C_ccall trf_1377(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1377(t0,t1);} C_noret_decl(trf_1448) static void C_ccall trf_1448(C_word c,C_word *av) C_noret; static void C_ccall trf_1448(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1448(t0,t1);} C_noret_decl(trf_1666) static void C_ccall trf_1666(C_word c,C_word *av) C_noret; static void C_ccall trf_1666(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1666(t0,t1);} C_noret_decl(trf_1697) static void C_ccall trf_1697(C_word c,C_word *av) C_noret; static void C_ccall trf_1697(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1697(t0,t1);} C_noret_decl(trf_1746) static void C_ccall trf_1746(C_word c,C_word *av) C_noret; static void C_ccall trf_1746(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1746(t0,t1);} C_noret_decl(trf_1914) static void C_ccall trf_1914(C_word c,C_word *av) C_noret; static void C_ccall trf_1914(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1914(t0,t1,t2,t3);} C_noret_decl(trf_2050) static void C_ccall trf_2050(C_word c,C_word *av) C_noret; static void C_ccall trf_2050(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2050(t0,t1,t2);} C_noret_decl(trf_2092) static void C_ccall trf_2092(C_word c,C_word *av) C_noret; static void C_ccall trf_2092(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2092(t0,t1,t2);} C_noret_decl(trf_2329) static void C_ccall trf_2329(C_word c,C_word *av) C_noret; static void C_ccall trf_2329(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2329(t0,t1);} C_noret_decl(trf_967) static void C_ccall trf_967(C_word c,C_word *av) C_noret; static void C_ccall trf_967(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_967(t0,t1,t2);} /* ##sys#check-generic-structure in k936 */ static void C_ccall f_1004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_1004,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1016,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=t2; if(C_truep(C_blockp(t5))){ t6=C_structurep(t5); t7=t4; f_1016(t7,t6);} else{ t6=t4; f_1016(t6,C_SCHEME_FALSE);}} /* k1014 in ##sys#check-generic-structure in k936 */ static void C_fcall f_1016(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_1016,2,t0,t1);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); /* lolevel.scm:105: ##sys#signal-hook */ t4=*((C_word*)lf[5]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[6]; av2[3]=t3; av2[4]=lf[9]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ /* lolevel.scm:105: ##sys#signal-hook */ t2=*((C_word*)lf[5]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[6]; av2[3]=C_SCHEME_FALSE; av2[4]=lf[9]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* ##sys#check-generic-vector in k936 */ static void C_ccall f_1029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_1029,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1048,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=t2; if(C_truep(C_blockp(t5))){ t6=C_specialp(t5); if(C_truep(t6)){ t7=t4; f_1048(t7,C_i_not(t6));} else{ t7=C_byteblockp(t5); t8=t4; f_1048(t8,C_i_not(t7));}} else{ t6=t4; f_1048(t6,C_SCHEME_FALSE);}} /* k1046 in ##sys#check-generic-vector in k936 */ static void C_fcall f_1048(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_1048,2,t0,t1);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); /* lolevel.scm:113: ##sys#signal-hook */ t4=*((C_word*)lf[5]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[6]; av2[3]=t3; av2[4]=lf[11]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ /* lolevel.scm:113: ##sys#signal-hook */ t2=*((C_word*)lf[5]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[6]; av2[3]=C_SCHEME_FALSE; av2[4]=lf[11]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* ##sys#check-pointer in k936 */ static void C_ccall f_1061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_1061,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=t2; if(C_truep(C_i_safe_pointerp(t4))){ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR); if(C_truep(C_i_pairp(t3))){ t6=t3; t7=C_u_i_car(t6); /* lolevel.scm:119: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[3]+1); av2[1]=t1; av2[2]=t5; av2[3]=t7; av2[4]=lf[13]; av2[5]=t2; tp(6,av2);}} else{ /* lolevel.scm:119: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[3]+1); av2[1]=t1; av2[2]=t5; av2[3]=C_SCHEME_FALSE; av2[4]=lf[13]; av2[5]=t2; tp(6,av2);}}}} /* chicken.memory#move-memory! in k936 */ static void C_ccall f_1202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +38,c,7)))){ C_save_and_reclaim((void*)f_1202,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+38); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_fix(0):C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=C_i_nullp(t14); t16=(C_truep(t15)?C_fix(0):C_i_car(t14)); t17=t16; t18=C_i_nullp(t14); t19=(C_truep(t18)?C_SCHEME_END_OF_LIST:C_i_cdr(t14)); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_SCHEME_UNDEFINED; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_SCHEME_UNDEFINED; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1223,a[2]=t2,a[3]=t3,a[4]=((C_word)li6),tmp=(C_word)a,a+=5,tmp)); t29=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1229,a[2]=t2,a[3]=t3,a[4]=((C_word)li7),tmp=(C_word)a,a+=5,tmp)); t30=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1235,a[2]=t23,a[3]=((C_word)li8),tmp=(C_word)a,a+=4,tmp)); t31=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1251,a[2]=t23,a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp)); t32=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1278,a[2]=((C_word*)t0)[2],a[3]=t17,a[4]=t12,a[5]=t7,a[6]=t21,a[7]=t25,a[8]=t27,a[9]=t1,a[10]=t2,a[11]=t3,tmp=(C_word)a,a+=12,tmp); /* lolevel.scm:158: ##sys#check-block */ t33=*((C_word*)lf[2]+1);{ C_word *av2=av; av2[0]=t33; av2[1]=t32; av2[2]=t2; av2[3]=lf[17]; ((C_proc)(void*)(*((C_word*)t33+1)))(4,av2);}} /* nosizerr in chicken.memory#move-memory! in k936 */ static void C_fcall f_1223(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_1223,2,t0,t1);} /* lolevel.scm:143: ##sys#error */ t2=*((C_word*)lf[16]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=t1; av2[2]=lf[17]; av2[3]=lf[18]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* sizerr in chicken.memory#move-memory! in k936 */ static void C_fcall f_1229(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,7)))){ C_save_and_reclaim_args((void *)trf_1229,3,t0,t1,t2);}{ C_word av2[8]; av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[16]+1); av2[3]=lf[17]; av2[4]=lf[19]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[3]; av2[7]=t2; C_apply(8,av2);}} /* checkn1 in chicken.memory#move-memory! in k936 */ static void C_fcall f_1235(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_1235,5,t0,t1,t2,t3,t4);} a=C_alloc(6); t5=C_fixnum_difference(t3,t4); if(C_truep(C_fixnum_less_or_equal_p(t2,t5))){ t6=t2; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* lolevel.scm:151: sizerr */ t6=((C_word*)((C_word*)t0)[2])[1]; f_1229(t6,t1,C_a_i_list(&a,2,t2,t3));}} /* checkn2 in chicken.memory#move-memory! in k936 */ static void C_fcall f_1251(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_1251,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(7); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1258,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp); t8=C_fixnum_difference(t3,t5); if(C_truep(C_fixnum_less_or_equal_p(t2,t8))){ t9=C_fixnum_difference(t4,t6); t10=t7; f_1258(t10,C_fixnum_less_or_equal_p(t2,t9));} else{ t9=t7; f_1258(t9,C_SCHEME_FALSE);}} /* k1256 in checkn2 in chicken.memory#move-memory! in k936 */ static void C_fcall f_1258(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_1258,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* lolevel.scm:156: sizerr */ t2=((C_word*)((C_word*)t0)[4])[1]; f_1229(t2,((C_word*)t0)[3],C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[6]));}} /* k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_1278,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1281,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* lolevel.scm:159: ##sys#check-block */ t3=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[11]; av2[3]=lf[17]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_1281,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1284,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(C_fixnum_lessp(((C_word*)t0)[4],C_fix(0)))){ /* lolevel.scm:161: ##sys#error */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[17]; av2[3]=lf[22]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_1284(2,av2);}}} /* k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_1284,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1287,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); if(C_truep(C_fixnum_lessp(((C_word*)t0)[3],C_fix(0)))){ /* lolevel.scm:163: ##sys#error */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[17]; av2[3]=lf[21]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_1287(2,av2);}}} /* k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_1287,2,av);} a=C_alloc(13); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1292,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word)li10),tmp=(C_word)a,a+=11,tmp)); t5=((C_word*)t3)[1]; f_1292(t5,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} /* move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_fcall f_1292(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_1292,4,t0,t1,t2,t3);} a=C_alloc(11); if(C_truep(C_structurep(t2))){ t4=C_slot(t2,C_fix(0)); if(C_truep(C_i_memq(t4,((C_word*)t0)[2]))){ t5=C_slot(t2,C_fix(1)); /* lolevel.scm:167: move */ t9=t1; t10=t5; t11=t3; t1=t9; t2=t10; t3=t11; goto loop;} else{ t5=t1; t6=t2; t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_ERROR); /* lolevel.scm:133: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[3]+1); av2[1]=t5; av2[2]=t7; av2[3]=lf[17]; av2[4]=t6; tp(5,av2);}}} else{ if(C_truep(C_structurep(t3))){ t4=C_slot(t3,C_fix(0)); if(C_truep(C_i_memq(t4,((C_word*)t0)[2]))){ t5=C_slot(t3,C_fix(1)); /* lolevel.scm:171: move */ t9=t1; t10=t2; t11=t5; t1=t9; t2=t10; t3=t11; goto loop;} else{ t5=t1; t6=t3; t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_ERROR); /* lolevel.scm:133: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[3]+1); av2[1]=t5; av2[2]=t7; av2[3]=lf[17]; av2[4]=t6; tp(5,av2);}}} else{ t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1361,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t5=t2; t6=C_i_safe_pointerp(t5); if(C_truep(t6)){ t7=t4; f_1361(t7,t6);} else{ t7=C_locativep(t5); t8=t4; f_1361(t8,t7);}}}} /* k1359 in move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_fcall f_1361(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_1361,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1377,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); t3=((C_word*)t0)[3]; t4=C_i_safe_pointerp(t3); if(C_truep(t4)){ t5=t2; f_1377(t5,t4);} else{ t5=C_locativep(t3); t6=t2; f_1377(t6,t5);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1426,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* lolevel.scm:180: ##sys#bytevector? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* k1375 in k1359 in move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_fcall f_1377(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_1377,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1384,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[7])){ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[7]; f_1384(2,av2);}} else{ /* lolevel.scm:175: nosizerr */ t3=((C_word*)((C_word*)t0)[8])[1]; f_1223(t3,t2);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1393,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* lolevel.scm:176: ##sys#bytevector? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k1382 in k1375 in k1359 in move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1384,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=(C_truep(t3)?C_i_foreign_pointer_argumentp(t3):C_SCHEME_FALSE); t6=(C_truep(t4)?C_i_foreign_pointer_argumentp(t4):C_SCHEME_FALSE); t7=C_i_foreign_fixnum_argumentp(t1); t8=C_i_foreign_fixnum_argumentp(((C_word*)t0)[5]); t9=C_i_foreign_fixnum_argumentp(((C_word*)t0)[6]); t10=t2;{ C_word *av2=av; av2[0]=t10; av2[1]=stub148(C_SCHEME_UNDEFINED,t5,t6,t7,t8,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k1391 in k1375 in k1359 in move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_1393,2,av);} a=C_alloc(13); t2=(C_truep(t1)?t1:C_i_stringp(((C_word*)t0)[2])); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1403,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1407,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=t3,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[8])){ t5=C_block_size(((C_word*)t0)[2]); /* lolevel.scm:177: checkn1 */ t6=((C_word*)((C_word*)t0)[7])[1]; f_1235(t6,t3,((C_word*)t0)[8],t5,((C_word*)t0)[5]);} else{ /* lolevel.scm:177: nosizerr */ t5=((C_word*)((C_word*)t0)[9])[1]; f_1223(t5,t4);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2]; t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_ERROR); /* lolevel.scm:133: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[3]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[17]; av2[4]=t4; tp(5,av2);}}} /* k1401 in k1391 in k1375 in k1359 in move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1403,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=(C_truep(t3)?C_i_foreign_block_argumentp(t3):C_SCHEME_FALSE); t6=(C_truep(t4)?C_i_foreign_pointer_argumentp(t4):C_SCHEME_FALSE); t7=C_i_foreign_fixnum_argumentp(t1); t8=C_i_foreign_fixnum_argumentp(((C_word*)t0)[5]); t9=C_i_foreign_fixnum_argumentp(((C_word*)t0)[6]); t10=t2;{ C_word *av2=av; av2[0]=t10; av2[1]=stub180(C_SCHEME_UNDEFINED,t5,t6,t7,t8,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k1405 in k1391 in k1375 in k1359 in move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1407,2,av);} t2=C_block_size(((C_word*)t0)[2]); /* lolevel.scm:177: checkn1 */ t3=((C_word*)((C_word*)t0)[3])[1]; f_1235(t3,((C_word*)t0)[4],t1,t2,((C_word*)t0)[5]);} /* k1424 in k1359 in move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_1426,2,av);} a=C_alloc(11); t2=(C_truep(t1)?t1:C_i_stringp(((C_word*)t0)[2])); if(C_truep(t2)){ t3=C_block_size(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1448,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t4,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t6=((C_word*)t0)[4]; t7=C_i_safe_pointerp(t6); if(C_truep(t7)){ t8=t5; f_1448(t8,t7);} else{ t8=C_locativep(t6); t9=t5; f_1448(t9,t8);}} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2]; t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_ERROR); /* lolevel.scm:133: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[3]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[17]; av2[4]=t4; tp(5,av2);}}} /* k1446 in k1424 in k1359 in move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_fcall f_1448(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_1448,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1455,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[7])){ /* lolevel.scm:183: checkn1 */ t3=((C_word*)((C_word*)t0)[8])[1]; f_1235(t3,t2,((C_word*)t0)[7],((C_word*)t0)[9],((C_word*)t0)[6]);} else{ /* lolevel.scm:183: checkn1 */ t3=((C_word*)((C_word*)t0)[8])[1]; f_1235(t3,t2,((C_word*)t0)[9],((C_word*)t0)[9],((C_word*)t0)[6]);}} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1465,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* lolevel.scm:184: ##sys#bytevector? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[20]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[20]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k1453 in k1446 in k1424 in k1359 in move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1455,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=(C_truep(t3)?C_i_foreign_pointer_argumentp(t3):C_SCHEME_FALSE); t6=(C_truep(t4)?C_i_foreign_block_argumentp(t4):C_SCHEME_FALSE); t7=C_i_foreign_fixnum_argumentp(t1); t8=C_i_foreign_fixnum_argumentp(((C_word*)t0)[5]); t9=C_i_foreign_fixnum_argumentp(((C_word*)t0)[6]); t10=t2;{ C_word *av2=av; av2[0]=t10; av2[1]=stub164(C_SCHEME_UNDEFINED,t5,t6,t7,t8,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* k1463 in k1446 in k1424 in k1359 in move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,6)))){ C_save_and_reclaim((void *)f_1465,2,av);} a=C_alloc(7); t2=(C_truep(t1)?t1:C_i_stringp(((C_word*)t0)[2])); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1475,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=(C_truep(((C_word*)t0)[7])?((C_word*)t0)[7]:((C_word*)t0)[8]); t5=C_block_size(((C_word*)t0)[2]); /* lolevel.scm:185: checkn2 */ t6=((C_word*)((C_word*)t0)[9])[1]; f_1251(t6,t3,t4,((C_word*)t0)[8],t5,((C_word*)t0)[6],((C_word*)t0)[5]);} else{ t3=((C_word*)t0)[3]; t4=((C_word*)t0)[2]; t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_ERROR); /* lolevel.scm:133: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[3]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[17]; av2[4]=t4; tp(5,av2);}}} /* k1473 in k1463 in k1446 in k1424 in k1359 in move in k1285 in k1282 in k1279 in k1276 in chicken.memory#move-memory! in k936 */ static void C_ccall f_1475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1475,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=(C_truep(t3)?C_i_foreign_block_argumentp(t3):C_SCHEME_FALSE); t6=(C_truep(t4)?C_i_foreign_block_argumentp(t4):C_SCHEME_FALSE); t7=C_i_foreign_fixnum_argumentp(t1); t8=C_i_foreign_fixnum_argumentp(((C_word*)t0)[5]); t9=C_i_foreign_fixnum_argumentp(((C_word*)t0)[6]); t10=t2;{ C_word *av2=av; av2[0]=t10; av2[1]=stub196(C_SCHEME_UNDEFINED,t5,t6,t7,t8,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} /* chicken.memory#allocate in k936 */ static void C_ccall f_1545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_1545,3,av);} a=C_alloc(5); t3=C_a_i_bytevector(&a,1,C_fix(3)); t4=C_i_foreign_fixnum_argumentp(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=stub317(t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.memory#free in k936 */ static void C_ccall f_1552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1552,3,av);} if(C_truep(t2)){ t3=C_i_foreign_pointer_argumentp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=stub323(C_SCHEME_UNDEFINED,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=stub323(C_SCHEME_UNDEFINED,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.memory#pointer? in k936 */ static void C_ccall f_1562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1562,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_safe_pointerp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.memory#pointer-like? in k936 */ static void C_ccall f_1570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1570,3,av);} if(C_truep(C_blockp(t2))){ t3=C_specialp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.memory#address->pointer in k936 */ static void C_ccall f_1581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1581,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1585,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:203: ##sys#check-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[29]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[30]; tp(4,av2);}} /* k1583 in chicken.memory#address->pointer in k936 */ static void C_ccall f_1585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1585,2,av);} /* lolevel.scm:204: ##sys#address->pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[28]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* chicken.memory#pointer->address in k936 */ static void C_ccall f_1590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1590,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1594,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:207: ##sys#check-special */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[33]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[33]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[34]; tp(4,av2);}} /* k1592 in chicken.memory#pointer->address in k936 */ static void C_ccall f_1594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1594,2,av);} /* lolevel.scm:208: ##sys#pointer->address */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[32]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[32]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* chicken.memory#object->pointer in k936 */ static void C_ccall f_1599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_1599,3,av);} a=C_alloc(5); if(C_truep(C_blockp(t2))){ t3=t1; t4=t2; t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=stub351(t5,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.memory#pointer->object in k936 */ static void C_ccall f_1610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1610,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1614,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:215: ##sys#check-pointer */ t4=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[37]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k1612 in chicken.memory#pointer->object in k936 */ static void C_ccall f_1614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1614,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_pointer_to_object(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.memory#pointer=? in k936 */ static void C_ccall f_1616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1616,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1620,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:219: ##sys#check-special */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[33]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[33]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[39]; tp(4,av2);}} /* k1618 in chicken.memory#pointer=? in k936 */ static void C_ccall f_1620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1620,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1623,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:220: ##sys#check-special */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[33]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[33]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[39]; tp(4,av2);}} /* k1621 in k1618 in chicken.memory#pointer=? in k936 */ static void C_ccall f_1623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1623,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_pointer_eqp(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.memory#pointer+ in k936 */ static void C_ccall f_1625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_1625,4,av);} a=C_alloc(5); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=(C_truep(t2)?C_i_foreign_pointer_argumentp(t2):C_SCHEME_FALSE); t6=C_fix((C_word)sizeof(int) * CHAR_BIT); t7=C_i_foreign_ranged_integer_argumentp(t3,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=stub366(t4,t5,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* chicken.memory#align-to-word in k936 */ static void C_ccall f_1647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_1647,3,av);} a=C_alloc(8); t3=t2; if(C_truep(C_i_integerp(t3))){ t4=t1; t5=t2; t6=C_a_i_bytevector(&a,1,C_fix(6)); t7=C_fix((C_word)sizeof(int) * CHAR_BIT); t8=C_i_foreign_ranged_integer_argumentp(t5,t7); t9=t4;{ C_word *av2=av; av2[0]=t9; av2[1]=stub377(t6,t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1666,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=t2; if(C_truep(C_blockp(t5))){ t6=C_specialp(t5); t7=t4; f_1666(t7,t6);} else{ t6=t4; f_1666(t6,C_SCHEME_FALSE);}}} /* k1664 in chicken.memory#align-to-word in k936 */ static void C_fcall f_1666(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,5)))){ C_save_and_reclaim_args((void *)trf_1666,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1677,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:233: ##sys#pointer->address */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[32]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[32]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ /* lolevel.scm:235: ##sys#signal-hook */ t2=*((C_word*)lf[5]+1);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[6]; av2[3]=lf[42]; av2[4]=lf[43]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k1675 in k1664 in chicken.memory#align-to-word in k936 */ static void C_ccall f_1677(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_1677,2,av);} a=C_alloc(8); t2=C_a_i_bytevector(&a,1,C_fix(6)); t3=C_fix((C_word)sizeof(int) * CHAR_BIT); t4=C_i_foreign_ranged_integer_argumentp(t1,t3); t5=stub377(t2,t4); /* lolevel.scm:233: ##sys#address->pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[28]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t5; tp(3,av2);}} /* chicken.memory#tag-pointer in k936 */ static void C_ccall f_1682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1682,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1686,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:243: ##sys#make-tagged-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[46]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k1684 in chicken.memory#tag-pointer in k936 */ static void C_ccall f_1686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_1686,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1689,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1697,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[3]; if(C_truep(C_blockp(t5))){ t6=C_specialp(t5); t7=t4; f_1697(t7,t6);} else{ t6=t4; f_1697(t6,C_SCHEME_FALSE);}} /* k1687 in k1684 in chicken.memory#tag-pointer in k936 */ static void C_ccall f_1689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1689,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1695 in k1684 in chicken.memory#tag-pointer in k936 */ static void C_fcall f_1697(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_1697,2,t0,t1);} if(C_truep(t1)){ t2=C_copy_pointer(((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR); /* lolevel.scm:246: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[3]+1); av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=lf[45]; av2[4]=((C_word*)t0)[2]; tp(5,av2);}}} /* chicken.memory#tagged-pointer? in k936 */ static void C_ccall f_1703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_1703,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); if(C_truep(C_blockp(t2))){ if(C_truep(C_taggedpointerp(t2))){ t6=C_i_not(t5); if(C_truep(t6)){ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_slot(t2,C_fix(1)); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_equalp(t5,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* chicken.memory#pointer-tag in k936 */ static void C_ccall f_1734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_1734,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1746,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_blockp(t4))){ t5=C_specialp(t4); t6=t3; f_1746(t6,t5);} else{ t5=t3; f_1746(t5,C_SCHEME_FALSE);}} /* k1744 in chicken.memory#pointer-tag in k936 */ static void C_fcall f_1746(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_1746,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=(C_truep(C_taggedpointerp(((C_word*)t0)[3]))?C_slot(((C_word*)t0)[3],C_fix(1)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR); /* lolevel.scm:258: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[3]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[49]; av2[4]=((C_word*)t0)[3]; tp(5,av2);}}} /* chicken.memory#pointer-u8-set! in k936 */ static void C_ccall f_1758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1758,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_pointer_u8_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.memory#pointer-s8-set! in k936 */ static void C_ccall f_1761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1761,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_pointer_s8_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.memory#pointer-u16-set! in k936 */ static void C_ccall f_1764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1764,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_pointer_u16_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.memory#pointer-s16-set! in k936 */ static void C_ccall f_1767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1767,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_pointer_s16_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.memory#pointer-u32-set! in k936 */ static void C_ccall f_1770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1770,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_pointer_u32_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.memory#pointer-s32-set! in k936 */ static void C_ccall f_1773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1773,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_pointer_s32_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.memory#pointer-u64-set! in k936 */ static void C_ccall f_1776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1776,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_pointer_u64_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.memory#pointer-s64-set! in k936 */ static void C_ccall f_1779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1779,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_pointer_s64_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.memory#pointer-f32-set! in k936 */ static void C_ccall f_1782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1782,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_pointer_f32_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.memory#pointer-f64-set! in k936 */ static void C_ccall f_1785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1785,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_pointer_f64_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k1788 in k936 */ static void C_ccall f_1790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1790,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[60]+1 /* (set! chicken.memory#pointer-u8-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1794,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2600,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:283: chicken.base#getter-with-setter */ t5=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[51]+1); av2[4]=lf[154]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1792 in k1788 in k936 */ static void C_ccall f_1794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1794,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[61]+1 /* (set! chicken.memory#pointer-s8-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1798,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2597,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:289: chicken.base#getter-with-setter */ t5=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[52]+1); av2[4]=lf[153]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1798,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[62]+1 /* (set! chicken.memory#pointer-u16-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1802,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2594,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:295: chicken.base#getter-with-setter */ t5=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[53]+1); av2[4]=lf[152]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1802,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[63]+1 /* (set! chicken.memory#pointer-s16-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1806,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2591,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:301: chicken.base#getter-with-setter */ t5=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[54]+1); av2[4]=lf[151]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1806,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[64]+1 /* (set! chicken.memory#pointer-u32-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1810,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2588,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:307: chicken.base#getter-with-setter */ t5=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[55]+1); av2[4]=lf[150]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1810,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[65]+1 /* (set! chicken.memory#pointer-s32-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1814,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2585,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:313: chicken.base#getter-with-setter */ t5=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[56]+1); av2[4]=lf[149]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1814,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[66]+1 /* (set! chicken.memory#pointer-u64-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1818,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2582,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:319: chicken.base#getter-with-setter */ t5=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[57]+1); av2[4]=lf[148]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1818,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[67]+1 /* (set! chicken.memory#pointer-s64-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1822,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2579,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:325: chicken.base#getter-with-setter */ t5=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[58]+1); av2[4]=lf[147]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_1822,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[68]+1 /* (set! chicken.memory#pointer-f32-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1826,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2576,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:331: chicken.base#getter-with-setter */ t5=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=*((C_word*)lf[59]+1); av2[4]=lf[146]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(28,c,5)))){ C_save_and_reclaim((void *)f_1826,2,av);} a=C_alloc(28); t2=C_mutate((C_word*)lf[69]+1 /* (set! chicken.memory#pointer-f64-ref ...) */,t1); t3=C_a_i_list1(&a,1,lf[70]); t4=t3; t5=C_mutate((C_word*)lf[71]+1 /* (set! chicken.memory#make-pointer-vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1831,a[2]=t4,a[3]=((C_word)li37),tmp=(C_word)a,a+=4,tmp)); t6=C_mutate((C_word*)lf[76]+1 /* (set! chicken.memory#pointer-vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1895,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[77]+1 /* (set! chicken.memory#pointer-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1901,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[78]+1 /* (set! chicken.memory#pointer-vector-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1941,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate(&lf[74] /* (set! chicken.memory#pv-buf-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1988,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[80]+1 /* (set! chicken.memory#pointer-vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2002,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2033,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2553,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:393: chicken.base#getter-with-setter */ t13=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t11; av2[2]=t12; av2[3]=*((C_word*)lf[80]+1); av2[4]=lf[145]; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} /* chicken.memory#make-pointer-vector in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_1831,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t4=C_i_nullp(t3); t5=(C_truep(t4)?((C_word*)t0)[2]:C_i_car(t3)); t6=t5; t7=C_i_check_exact_2(t2,lf[72]); t8=t2; t9=C_i_foreign_fixnum_argumentp(t8); t10=stub491(C_SCHEME_UNDEFINED,t9); t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1850,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* lolevel.scm:345: ##sys#make-blob */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[75]+1); av2[1]=t11; av2[2]=t10; tp(3,av2);}} /* k1848 in chicken.memory#make-pointer-vector in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1850,2,av);} a=C_alloc(6); t2=t1; t3=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(t3)){ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record3(&a,3,lf[73],((C_word*)t0)[5],t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1862,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[2])){ /* lolevel.scm:348: ##sys#check-pointer */ t5=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=lf[72]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_1862(2,av2);}}}} /* k1860 in k1848 in chicken.memory#make-pointer-vector in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_1862,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li36),tmp=(C_word)a,a+=6,tmp); t3=( f_1867(t2,C_fix(0)) ); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record3(&a,3,lf[73],((C_word*)t0)[2],((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop496 in k1860 in k1848 in chicken.memory#make-pointer-vector in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static C_word C_fcall f_1867(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ t2=C_SCHEME_UNDEFINED; return(t2);} else{ t2=( /* lolevel.scm:351: pv-buf-set! */ f_1988(((C_word*)t0)[3],t1,((C_word*)t0)[4]) ); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* chicken.memory#pointer-vector? in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1895,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_structurep(t2,lf[73]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.memory#pointer-vector in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_1901,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; t3=t2; t4=C_u_i_length(t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1906,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:359: make-pointer-vector */ t6=*((C_word*)lf[71]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k1904 in chicken.memory#pointer-vector in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1906(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_1906,2,av);} a=C_alloc(8); t2=t1; t3=C_slot(t2,C_fix(2)); t4=t3; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1914,a[2]=t2,a[3]=t4,a[4]=t6,a[5]=((C_word)li39),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_1914(t8,((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0));} /* doloop511 in k1904 in chicken.memory#pointer-vector in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_fcall f_1914(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_1914,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1927,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t5,a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* lolevel.scm:365: ##sys#check-pointer */ t7=*((C_word*)lf[12]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t5; av2[3]=lf[73]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k1925 in doloop511 in k1904 in chicken.memory#pointer-vector in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1927,2,av);} t2=( /* lolevel.scm:366: pv-buf-set! */ f_1988(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]) ); t3=((C_word*)t0)[5]; t4=C_u_i_cdr(t3); t5=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[6])[1]; f_1914(t6,((C_word*)t0)[7],t4,t5);} /* chicken.memory#pointer-vector-fill! in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1941,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[73],lf[79]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1948,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ /* lolevel.scm:370: ##sys#check-pointer */ t6=*((C_word*)lf[12]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t3; av2[3]=lf[79]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_1948(2,av2);}}} /* k1946 in chicken.memory#pointer-vector-fill! in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_1948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1948,2,av);} a=C_alloc(6); t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=t2; t4=C_slot(((C_word*)t0)[2],C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1959,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li41),tmp=(C_word)a,a+=6,tmp); t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=( f_1959(t6,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* doloop524 in k1946 in chicken.memory#pointer-vector-fill! in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static C_word C_fcall f_1959(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ t2=C_SCHEME_UNDEFINED; return(t2);} else{ t2=( /* lolevel.scm:375: pv-buf-set! */ f_1988(((C_word*)t0)[3],t1,((C_word*)t0)[4]) ); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* chicken.memory#pv-buf-set! in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static C_word C_fcall f_1988(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_stack_overflow_check;{} t4=C_i_foreign_fixnum_argumentp(t2); if(C_truep(t3)){ t5=C_i_foreign_pointer_argumentp(t3); return(stub543(C_SCHEME_UNDEFINED,t1,t4,t5));} else{ return(stub543(C_SCHEME_UNDEFINED,t1,t4,C_SCHEME_FALSE));}} /* chicken.memory#pointer-vector-set! in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2002,5,av);} a=C_alloc(6); t5=C_i_check_structure_2(t2,lf[73],lf[81]); t6=C_i_check_exact_2(t3,lf[81]); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2012,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t8=C_slot(t2,C_fix(1)); /* lolevel.scm:388: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[83]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[83]+1); av2[1]=t7; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t8; tp(5,av2);}} /* k2010 in chicken.memory#pointer-vector-set! in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2012,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2015,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[5])){ /* lolevel.scm:389: ##sys#check-pointer */ t3=*((C_word*)lf[12]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[82]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=C_slot(((C_word*)t0)[2],C_fix(2)); /* lolevel.scm:390: pv-buf-set! */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=( /* lolevel.scm:390: pv-buf-set! */ f_1988(t3,((C_word*)t0)[4],((C_word*)t0)[5]) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2013 in k2010 in chicken.memory#pointer-vector-set! in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2015,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(2)); /* lolevel.scm:390: pv-buf-set! */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=( /* lolevel.scm:390: pv-buf-set! */ f_1988(t2,((C_word*)t0)[4],((C_word*)t0)[5]) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(34,c,4)))){ C_save_and_reclaim((void *)f_2033,2,av);} a=C_alloc(34); t2=C_mutate((C_word*)lf[84]+1 /* (set! chicken.memory#pointer-vector-ref ...) */,t1); t3=C_mutate((C_word*)lf[85]+1 /* (set! chicken.memory#pointer-vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2035,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); t4=C_a_i_provide(&a,1,lf[87]); t5=C_mutate((C_word*)lf[88]+1 /* (set! chicken.memory.representation#object-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2044,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); t6=C_a_i_vector1(&a,1,lf[90]); t7=C_mutate(&lf[91] /* (set! chicken.memory.representation#xproc-tag ...) */,t6); t8=C_mutate((C_word*)lf[92]+1 /* (set! chicken.memory.representation#extend-procedure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2124,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[96]+1 /* (set! chicken.memory.representation#extended-procedure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2159,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[98]+1 /* (set! chicken.memory.representation#procedure-data ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2195,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[99]+1 /* (set! chicken.memory.representation#set-procedure-data! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2234,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[102]+1 /* (set! chicken.memory.representation#vector-like? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2250,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[103]+1 /* (set! chicken.memory.representation#block-set! ...) */,*((C_word*)lf[104]+1)); t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2271,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:474: chicken.base#getter-with-setter */ t15=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=t14; av2[2]=*((C_word*)lf[143]+1); av2[3]=*((C_word*)lf[104]+1); av2[4]=lf[144]; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} /* chicken.memory#pointer-vector-length in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2035,3,av);} t3=C_i_check_structure_2(t2,lf[73],lf[86]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.memory.representation#object-copy in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2044,3,av);} a=C_alloc(6); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2050,a[2]=t4,a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_2050(t6,t1,t2);} /* copy in chicken.memory.representation#object-copy in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_fcall f_2050(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2050,3,t0,t1,t2);} a=C_alloc(6); t3=C_blockp(t2); if(C_truep(C_i_not(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ t4=C_slot(t2,C_fix(1)); /* lolevel.scm:425: ##sys#intern-symbol */{ C_word av2[3]; av2[0]=0; av2[1]=t1; av2[2]=t4; C_string_to_symbol(3,av2);}} else{ t4=C_block_size(t2); t5=t4; t6=(C_truep(C_byteblockp(t2))?C_words(t5):t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2080,a[2]=t2,a[3]=t1,a[4]=t5,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* lolevel.scm:429: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[89]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[89]+1); av2[1]=t7; av2[2]=t6; tp(3,av2);}}}} /* k2078 in copy in chicken.memory.representation#object-copy in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_2080,2,av);} a=C_alloc(13); t2=C_copy_block(((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2083,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_byteblockp(((C_word*)t0)[2]))){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(C_truep(C_specialp(((C_word*)t0)[2]))?C_fix(1):C_fix(0)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2092,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t6,a[5]=((C_word*)t0)[5],a[6]=((C_word)li46),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_2092(t8,t3,t4);}} /* k2081 in k2078 in copy in chicken.memory.representation#object-copy in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2083,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* doloop631 in k2078 in copy in chicken.memory.representation#object-copy in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_fcall f_2092(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2092,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2113,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(((C_word*)t0)[3],t2); /* lolevel.scm:433: copy */ t5=((C_word*)((C_word*)t0)[5])[1]; f_2050(t5,t3,t4);}} /* k2111 in doloop631 in k2078 in copy in chicken.memory.representation#object-copy in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2113,2,av);} t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_2092(t4,((C_word*)t0)[5],t3);} /* chicken.memory.representation#extend-procedure in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2124,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2128,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:443: ##sys#check-closure */ t5=*((C_word*)lf[94]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[95]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2126 in chicken.memory.representation#extend-procedure in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_2128,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2133,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2149,a[2]=((C_word*)t0)[2],a[3]=((C_word)li50),tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:444: ##sys#decorate-lambda */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[93]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* a2132 in k2126 in chicken.memory.representation#extend-procedure in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2133,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(lf[91],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a2148 in k2126 in chicken.memory.representation#extend-procedure in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2149,4,av);} a=C_alloc(3); t4=C_a_i_cons(&a,2,lf[91],((C_word*)t0)[2]); t5=C_i_setslot(t2,t3,t4); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* chicken.memory.representation#extended-procedure? in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2159(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2159,3,av);} a=C_alloc(6); if(C_truep(C_blockp(t2))){ if(C_truep(C_closurep(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2193,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=t2; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2176,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:450: ##sys#lambda-decoration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[97]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[97]+1); av2[1]=t3; av2[2]=t4; av2[3]=t5; tp(4,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a2175 in chicken.memory.representation#extended-procedure? in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2176,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(lf[91],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2191 in chicken.memory.representation#extended-procedure? in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2193,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.memory.representation#procedure-data in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2195,3,av);} a=C_alloc(6); if(C_truep(C_blockp(t2))){ if(C_truep(C_closurep(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2226,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=t2; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2209,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:450: ##sys#lambda-decoration */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[97]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[97]+1); av2[1]=t3; av2[2]=t4; av2[3]=t5; tp(4,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a2208 in chicken.memory.representation#procedure-data in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2209,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(lf[91],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2224 in chicken.memory.representation#procedure-data in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2226,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_slot(t1,C_fix(1)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.memory.representation#set-procedure-data! in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2234,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2248,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:463: extend-procedure */ t5=*((C_word*)lf[92]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2246 in chicken.memory.representation#set-procedure-data! in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2248,2,av);} t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* lolevel.scm:464: ##sys#signal-hook */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[6]; av2[3]=lf[100]; av2[4]=lf[101]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* chicken.memory.representation#vector-like? in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2250,3,av);} if(C_truep(C_blockp(t2))){ t3=C_specialp(t2); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_byteblockp(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_not(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(27,c,5)))){ C_save_and_reclaim((void *)f_2271,2,av);} a=C_alloc(27); t2=C_mutate((C_word*)lf[105]+1 /* (set! chicken.memory.representation#block-ref ...) */,t1); t3=C_mutate((C_word*)lf[106]+1 /* (set! chicken.memory.representation#number-of-slots ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2273,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[108]+1 /* (set! chicken.memory.representation#number-of-bytes ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2282,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[111]+1 /* (set! chicken.memory.representation#make-record-instance ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2305,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[114]+1 /* (set! chicken.memory.representation#record-instance? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2314,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[115]+1 /* (set! chicken.memory.representation#record-instance-type ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2350,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[117]+1 /* (set! chicken.memory.representation#record-instance-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2359,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[119]+1 /* (set! chicken.memory.representation#record-instance-slot-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2372,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp)); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2398,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2529,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:522: chicken.base#getter-with-setter */ t12=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t10; av2[2]=t11; av2[3]=*((C_word*)lf[119]+1); av2[4]=lf[142]; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} /* chicken.memory.representation#number-of-slots in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2273,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2277,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:478: ##sys#check-generic-vector */ t4=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[107]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2275 in chicken.memory.representation#number-of-slots in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2277,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_block_size(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.memory.representation#number-of-bytes in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2282,3,av);} t3=C_blockp(t2); if(C_truep(C_i_not(t3))){ /* lolevel.scm:483: ##sys#signal-hook */ t4=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=lf[6]; av2[3]=lf[109]; av2[4]=lf[110]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ if(C_truep(C_byteblockp(t2))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_block_size(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_block_size(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_bytes(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* chicken.memory.representation#make-record-instance in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_2305,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=C_i_check_symbol_2(t2,lf[112]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[113]+1); av2[3]=t2; av2[4]=t3; C_apply(5,av2);}} /* chicken.memory.representation#record-instance? in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_2314,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2329,a[2]=t6,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t8=t2; if(C_truep(C_blockp(t8))){ t9=C_structurep(t8); t10=t7; f_2329(t10,t9);} else{ t9=t7; f_2329(t9,C_SCHEME_FALSE);}} /* k2327 in chicken.memory.representation#record-instance? in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_fcall f_2329(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_2329,2,t0,t1);} if(C_truep(t1)){ t2=C_i_not(((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_slot(((C_word*)t0)[4],C_fix(0)); t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=C_eqp(((C_word*)t0)[2],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.memory.representation#record-instance-type in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2350,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2354,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:509: ##sys#check-generic-structure */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[116]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2352 in chicken.memory.representation#record-instance-type in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2354,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_slot(((C_word*)t0)[3],C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.memory.representation#record-instance-length in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2359,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2363,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:513: ##sys#check-generic-structure */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[118]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2361 in chicken.memory.representation#record-instance-length in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2363,2,av);} t2=C_block_size(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_fixnum_difference(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.memory.representation#record-instance-slot-set! in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2372,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2376,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* lolevel.scm:517: ##sys#check-generic-structure */ t6=*((C_word*)lf[8]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[120]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k2374 in chicken.memory.representation#record-instance-slot-set! in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_2376,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2379,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_block_size(((C_word*)t0)[4]); t4=C_fixnum_difference(t3,C_fix(1)); /* lolevel.scm:518: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[83]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[83]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); av2[4]=t4; av2[5]=lf[120]; tp(6,av2);}} /* k2377 in k2374 in chicken.memory.representation#record-instance-slot-set! in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2379,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_setslot(((C_word*)t0)[4],t2,((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_2398,2,av);} a=C_alloc(32); t2=C_mutate((C_word*)lf[121]+1 /* (set! chicken.memory.representation#record-instance-slot ...) */,t1); t3=C_mutate((C_word*)lf[122]+1 /* (set! chicken.memory.representation#record->vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2400,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[124]+1 /* (set! chicken.memory.representation#object-become! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2438,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[127]+1 /* (set! chicken.memory.representation#mutate-procedure! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2447,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t6=C_a_i_provide(&a,1,lf[129]); t7=C_mutate((C_word*)lf[130]+1 /* (set! chicken.locative#make-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2478,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[133]+1 /* (set! chicken.locative#make-weak-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2494,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[135]+1 /* (set! chicken.locative#locative-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2510,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2515,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2526,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:593: chicken.base#getter-with-setter */ t12=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t12; av2[1]=t10; av2[2]=t11; av2[3]=*((C_word*)lf[135]+1); av2[4]=lf[140]; ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} /* chicken.memory.representation#record->vector in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2400,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2404,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:531: ##sys#check-generic-structure */ t4=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[123]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2402 in chicken.memory.representation#record->vector in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2404,2,av);} a=C_alloc(5); t2=C_block_size(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2410,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:533: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[89]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[89]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k2408 in k2402 in chicken.memory.representation#record->vector in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2410,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2415,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li65),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=( f_2415(t3,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop737 in k2408 in k2402 in chicken.memory.representation#record->vector in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static C_word C_fcall f_2415(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_slot(((C_word*)t0)[4],t1); t3=C_i_setslot(((C_word*)t0)[3],t1,t2); t4=C_fixnum_plus(t1,C_fix(1)); t6=t4; t1=t6; goto loop;}} /* chicken.memory.representation#object-become! in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_2438,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2442,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:542: ##sys#check-become-alist */ t4=*((C_word*)lf[4]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[126]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k2440 in chicken.memory.representation#object-become! in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2442,2,av);} /* lolevel.scm:543: ##sys#become! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[125]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[125]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* chicken.memory.representation#mutate-procedure! in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2447,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2451,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:546: ##sys#check-closure */ t5=*((C_word*)lf[94]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[128]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2449 in chicken.memory.representation#mutate-procedure! in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2451,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2454,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:547: ##sys#check-closure */ t3=*((C_word*)lf[94]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[128]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2452 in k2449 in chicken.memory.representation#mutate-procedure! in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2454,2,av);} a=C_alloc(5); t2=C_block_size(((C_word*)t0)[2]); t3=C_words(t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2461,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:550: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[89]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[89]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k2459 in k2452 in k2449 in chicken.memory.representation#mutate-procedure! in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_2461,2,av);} a=C_alloc(8); t2=C_copy_block(((C_word*)t0)[2],t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2464,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2476,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* lolevel.scm:551: proc */ t5=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2462 in k2459 in k2452 in k2449 in chicken.memory.representation#mutate-procedure! in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2464,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2474 in k2459 in k2452 in k2449 in chicken.memory.representation#mutate-procedure! in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_2476,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list1(&a,1,t2); /* lolevel.scm:551: ##sys#become! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[125]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[125]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; tp(3,av2);}} /* chicken.locative#make-locative in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_2478,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; if(C_truep(C_i_nullp(t3))){ /* lolevel.scm:585: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[131]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[131]+1); av2[1]=t1; av2[2]=t2; av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; av2[5]=lf[132]; tp(6,av2);}} else{ t4=C_i_car(t3); /* lolevel.scm:585: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[131]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[131]+1); av2[1]=t1; av2[2]=t2; av2[3]=t4; av2[4]=C_SCHEME_FALSE; av2[5]=lf[132]; tp(6,av2);}}} /* chicken.locative#make-weak-locative in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_2494,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; if(C_truep(C_i_nullp(t3))){ /* lolevel.scm:588: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[131]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[131]+1); av2[1]=t1; av2[2]=t2; av2[3]=C_fix(0); av2[4]=C_SCHEME_TRUE; av2[5]=lf[134]; tp(6,av2);}} else{ t4=C_i_car(t3); /* lolevel.scm:588: ##sys#make-locative */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[131]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[131]+1); av2[1]=t1; av2[2]=t2; av2[3]=t4; av2[4]=C_SCHEME_TRUE; av2[5]=lf[134]; tp(6,av2);}}} /* chicken.locative#locative-set! in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2510,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_locative_set(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k2513 in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2515,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[136]+1 /* (set! chicken.locative#locative-ref ...) */,t1); t3=C_mutate((C_word*)lf[137]+1 /* (set! chicken.locative#locative->object ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2517,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[138]+1 /* (set! chicken.locative#locative? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2520,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.locative#locative->object in k2513 in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2517,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_locative_to_object(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.locative#locative? in k2513 in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2520,3,av);} if(C_truep(C_blockp(t2))){ t3=C_locativep(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a2525 in k2396 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_2526,3,av);} a=C_alloc(6); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_locative_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a2528 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2529,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2533,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* lolevel.scm:524: ##sys#check-generic-structure */ t5=*((C_word*)lf[8]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[141]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k2531 in a2528 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_2533,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2536,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_block_size(((C_word*)t0)[4]); t4=C_fixnum_difference(t3,C_fix(1)); /* lolevel.scm:525: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[83]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[83]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); av2[4]=t4; av2[5]=lf[141]; tp(6,av2);}} /* k2534 in k2531 in a2528 in k2269 in k2031 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2536,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a2552 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_2553,4,av);} a=C_alloc(5); t4=C_i_check_structure_2(t2,lf[73],lf[81]); t5=C_i_check_exact_2(t3,lf[81]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2563,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); /* lolevel.scm:397: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[83]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[83]+1); av2[1]=t6; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t7; tp(5,av2);}} /* k2561 in a2552 in k1824 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_2563,2,av);} a=C_alloc(5); t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=stub534(t5,t2,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* a2575 in k1820 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_2576,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_u_i_pointer_f64_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a2578 in k1816 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_2579,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_u_i_pointer_f32_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a2581 in k1812 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_2582,3,av);} a=C_alloc(7); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_u_i_pointer_s64_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a2584 in k1808 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_2585,3,av);} a=C_alloc(7); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_u_i_pointer_u64_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a2587 in k1804 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_2588,3,av);} a=C_alloc(6); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_u_i_pointer_s32_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a2590 in k1800 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_2591,3,av);} a=C_alloc(6); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_u_i_pointer_u32_ref(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a2593 in k1796 in k1792 in k1788 in k936 */ static void C_ccall f_2594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2594,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_pointer_s16_ref(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a2596 in k1792 in k1788 in k936 */ static void C_ccall f_2597(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2597,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_pointer_u16_ref(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a2599 in k1788 in k936 */ static void C_ccall f_2600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2600,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_pointer_s8_ref(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a2602 in k936 */ static void C_ccall f_2603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2603,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_u_i_pointer_u8_ref(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k936 */ static void C_ccall f_938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(113,c,4)))){ C_save_and_reclaim((void *)f_938,2,av);} a=C_alloc(113); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate((C_word*)lf[2]+1 /* (set! ##sys#check-block ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_940,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#check-become-alist ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_958,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[8]+1 /* (set! ##sys#check-generic-structure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1004,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[10]+1 /* (set! ##sys#check-generic-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1029,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[12]+1 /* (set! ##sys#check-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1061,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t9=lf[14]; t10=C_mutate((C_word*)lf[15]+1 /* (set! chicken.memory#move-memory! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1202,a[2]=t9,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp)); t11=C_mutate((C_word*)lf[23]+1 /* (set! chicken.memory#allocate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1545,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[24]+1 /* (set! chicken.memory#free ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1552,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[25]+1 /* (set! chicken.memory#pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1562,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[26]+1 /* (set! chicken.memory#pointer-like? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1570,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[27]+1 /* (set! chicken.memory#address->pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1581,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[31]+1 /* (set! chicken.memory#pointer->address ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1590,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[35]+1 /* (set! chicken.memory#object->pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1599,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[36]+1 /* (set! chicken.memory#pointer->object ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1610,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[38]+1 /* (set! chicken.memory#pointer=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1616,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[40]+1 /* (set! chicken.memory#pointer+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1625,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[41]+1 /* (set! chicken.memory#align-to-word ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1647,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[44]+1 /* (set! chicken.memory#tag-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1682,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate((C_word*)lf[47]+1 /* (set! chicken.memory#tagged-pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1703,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate((C_word*)lf[48]+1 /* (set! chicken.memory#pointer-tag ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1734,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate((C_word*)lf[50]+1 /* (set! chicken.memory#pointer-u8-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1758,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate((C_word*)lf[51]+1 /* (set! chicken.memory#pointer-s8-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1761,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate((C_word*)lf[52]+1 /* (set! chicken.memory#pointer-u16-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1764,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate((C_word*)lf[53]+1 /* (set! chicken.memory#pointer-s16-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1767,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate((C_word*)lf[54]+1 /* (set! chicken.memory#pointer-u32-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1770,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate((C_word*)lf[55]+1 /* (set! chicken.memory#pointer-s32-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1773,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate((C_word*)lf[56]+1 /* (set! chicken.memory#pointer-u64-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1776,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate((C_word*)lf[57]+1 /* (set! chicken.memory#pointer-s64-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1779,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate((C_word*)lf[58]+1 /* (set! chicken.memory#pointer-f32-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1782,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate((C_word*)lf[59]+1 /* (set! chicken.memory#pointer-f64-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1785,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1790,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t36=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2603,a[2]=((C_word)li86),tmp=(C_word)a,a+=3,tmp); /* lolevel.scm:277: chicken.base#getter-with-setter */ t37=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t37; av2[1]=t35; av2[2]=t36; av2[3]=*((C_word*)lf[50]+1); av2[4]=lf[155]; ((C_proc)(void*)(*((C_word*)t37+1)))(5,av2);}} /* ##sys#check-block in k936 */ static void C_ccall f_940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_940,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_blockp(t2))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_BLOCK_ERROR); if(C_truep(C_i_pairp(t3))){ t5=t3; t6=C_u_i_car(t5); /* lolevel.scm:84: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[3]+1); av2[1]=t1; av2[2]=t4; av2[3]=t6; av2[4]=t2; tp(5,av2);}} else{ /* lolevel.scm:84: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[3]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; tp(5,av2);}}}} /* ##sys#check-become-alist in k936 */ static void C_ccall f_958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_958,4,av);} a=C_alloc(8); t4=C_i_check_list_2(t2,t3); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_967,a[2]=t3,a[3]=t6,a[4]=t2,a[5]=((C_word)li1),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_967(t8,t1,t2);} /* loop in ##sys#check-become-alist in k936 */ static void C_fcall f_967(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ C_save_and_reclaim_args((void *)trf_967,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_car(t4); t6=C_i_check_pair_2(t5,((C_word*)t0)[2]); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_987,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t5,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t8=C_u_i_car(t5); /* lolevel.scm:95: ##sys#check-block */ t9=*((C_word*)lf[2]+1);{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=t8; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ /* lolevel.scm:99: ##sys#signal-hook */ t4=*((C_word*)lf[5]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t1; av2[2]=lf[6]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[7]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}} /* k985 in loop in ##sys#check-become-alist in k936 */ static void C_ccall f_987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_987,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_990,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_u_i_cdr(((C_word*)t0)[5]); /* lolevel.scm:96: ##sys#check-block */ t4=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k988 in k985 in loop in ##sys#check-become-alist in k936 */ static void C_ccall f_990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_990,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* lolevel.scm:97: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_967(t4,((C_word*)t0)[4],t3);} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_lolevel_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("lolevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_lolevel_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1006))){ C_save(t1); C_rereclaim2(1006*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,156); lf[0]=C_h_intern(&lf[0],7, C_text("lolevel")); lf[1]=C_h_intern(&lf[1],15, C_text("chicken.memory#")); lf[2]=C_h_intern(&lf[2],17, C_text("##sys#check-block")); lf[3]=C_h_intern(&lf[3],16, C_text("##sys#error-hook")); lf[4]=C_h_intern(&lf[4],24, C_text("##sys#check-become-alist")); lf[5]=C_h_intern(&lf[5],17, C_text("##sys#signal-hook")); lf[6]=C_h_intern_kw(&lf[6],10, C_text("type-error")); lf[7]=C_decode_literal(C_heaptop,C_text("\376B\000\000:bad argument type - not an a-list of non-immediate objects")); lf[8]=C_h_intern(&lf[8],29, C_text("##sys#check-generic-structure")); lf[9]=C_decode_literal(C_heaptop,C_text("\376B\000\000#bad argument type - not a structure")); lf[10]=C_h_intern(&lf[10],26, C_text("##sys#check-generic-vector")); lf[11]=C_decode_literal(C_heaptop,C_text("\376B\000\000,bad argument type - not a vector-like object")); lf[12]=C_h_intern(&lf[12],19, C_text("##sys#check-pointer")); lf[13]=C_decode_literal(C_heaptop,C_text("\376B\000\000!bad argument type - not a pointer")); lf[14]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001mmap\376\003\000\000\002\376\001\000\000\010\001u8vector\376\003\000\000\002\376\001\000\000\011\001u16vector\376\003\000\000\002\376\001\000\000\011\001u32vector\376\003\000\000\002\376" "\001\000\000\011\001u64vector\376\003\000\000\002\376\001\000\000\010\001s8vector\376\003\000\000\002\376\001\000\000\011\001s16vector\376\003\000\000\002\376\001\000\000\011\001s32vector\376\003\000\000\002\376\001" "\000\000\011\001s64vector\376\003\000\000\002\376\001\000\000\011\001f32vector\376\003\000\000\002\376\001\000\000\011\001f64vector\376\377\016")); lf[15]=C_h_intern(&lf[15],27, C_text("chicken.memory#move-memory!")); lf[16]=C_h_intern(&lf[16],11, C_text("##sys#error")); lf[17]=C_h_intern(&lf[17],12, C_text("move-memory!")); lf[18]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034need number of bytes to move")); lf[19]=C_decode_literal(C_heaptop,C_text("\376B\000\000!number of bytes to move too large")); lf[20]=C_h_intern(&lf[20],17, C_text("##sys#bytevector\077")); lf[21]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033negative destination offset")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026negative source offset")); lf[23]=C_h_intern(&lf[23],23, C_text("chicken.memory#allocate")); lf[24]=C_h_intern(&lf[24],19, C_text("chicken.memory#free")); lf[25]=C_h_intern(&lf[25],23, C_text("chicken.memory#pointer\077")); lf[26]=C_h_intern(&lf[26],28, C_text("chicken.memory#pointer-like\077")); lf[27]=C_h_intern(&lf[27],31, C_text("chicken.memory#address->pointer")); lf[28]=C_h_intern(&lf[28],22, C_text("##sys#address->pointer")); lf[29]=C_h_intern(&lf[29],19, C_text("##sys#check-integer")); lf[30]=C_h_intern(&lf[30],16, C_text("address->pointer")); lf[31]=C_h_intern(&lf[31],31, C_text("chicken.memory#pointer->address")); lf[32]=C_h_intern(&lf[32],22, C_text("##sys#pointer->address")); lf[33]=C_h_intern(&lf[33],19, C_text("##sys#check-special")); lf[34]=C_h_intern(&lf[34],16, C_text("pointer->address")); lf[35]=C_h_intern(&lf[35],30, C_text("chicken.memory#object->pointer")); lf[36]=C_h_intern(&lf[36],30, C_text("chicken.memory#pointer->object")); lf[37]=C_h_intern(&lf[37],15, C_text("pointer->object")); lf[38]=C_h_intern(&lf[38],24, C_text("chicken.memory#pointer=\077")); lf[39]=C_h_intern(&lf[39],9, C_text("pointer=\077")); lf[40]=C_h_intern(&lf[40],23, C_text("chicken.memory#pointer+")); lf[41]=C_h_intern(&lf[41],28, C_text("chicken.memory#align-to-word")); lf[42]=C_h_intern(&lf[42],13, C_text("align-to-word")); lf[43]=C_decode_literal(C_heaptop,C_text("\376B\000\000,bad argument type - not a pointer or integer")); lf[44]=C_h_intern(&lf[44],26, C_text("chicken.memory#tag-pointer")); lf[45]=C_h_intern(&lf[45],11, C_text("tag-pointer")); lf[46]=C_h_intern(&lf[46],25, C_text("##sys#make-tagged-pointer")); lf[47]=C_h_intern(&lf[47],30, C_text("chicken.memory#tagged-pointer\077")); lf[48]=C_h_intern(&lf[48],26, C_text("chicken.memory#pointer-tag")); lf[49]=C_h_intern(&lf[49],11, C_text("pointer-tag")); lf[50]=C_h_intern(&lf[50],30, C_text("chicken.memory#pointer-u8-set!")); lf[51]=C_h_intern(&lf[51],30, C_text("chicken.memory#pointer-s8-set!")); lf[52]=C_h_intern(&lf[52],31, C_text("chicken.memory#pointer-u16-set!")); lf[53]=C_h_intern(&lf[53],31, C_text("chicken.memory#pointer-s16-set!")); lf[54]=C_h_intern(&lf[54],31, C_text("chicken.memory#pointer-u32-set!")); lf[55]=C_h_intern(&lf[55],31, C_text("chicken.memory#pointer-s32-set!")); lf[56]=C_h_intern(&lf[56],31, C_text("chicken.memory#pointer-u64-set!")); lf[57]=C_h_intern(&lf[57],31, C_text("chicken.memory#pointer-s64-set!")); lf[58]=C_h_intern(&lf[58],31, C_text("chicken.memory#pointer-f32-set!")); lf[59]=C_h_intern(&lf[59],31, C_text("chicken.memory#pointer-f64-set!")); lf[60]=C_h_intern(&lf[60],29, C_text("chicken.memory#pointer-u8-ref")); lf[61]=C_h_intern(&lf[61],29, C_text("chicken.memory#pointer-s8-ref")); lf[62]=C_h_intern(&lf[62],30, C_text("chicken.memory#pointer-u16-ref")); lf[63]=C_h_intern(&lf[63],30, C_text("chicken.memory#pointer-s16-ref")); lf[64]=C_h_intern(&lf[64],30, C_text("chicken.memory#pointer-u32-ref")); lf[65]=C_h_intern(&lf[65],30, C_text("chicken.memory#pointer-s32-ref")); lf[66]=C_h_intern(&lf[66],30, C_text("chicken.memory#pointer-u64-ref")); lf[67]=C_h_intern(&lf[67],30, C_text("chicken.memory#pointer-s64-ref")); lf[68]=C_h_intern(&lf[68],30, C_text("chicken.memory#pointer-f32-ref")); lf[69]=C_h_intern(&lf[69],30, C_text("chicken.memory#pointer-f64-ref")); lf[70]=C_h_intern(&lf[70],5, C_text("unset")); lf[71]=C_h_intern(&lf[71],34, C_text("chicken.memory#make-pointer-vector")); lf[72]=C_h_intern(&lf[72],19, C_text("make-pointer-vector")); lf[73]=C_h_intern(&lf[73],14, C_text("pointer-vector")); lf[75]=C_h_intern(&lf[75],15, C_text("##sys#make-blob")); lf[76]=C_h_intern(&lf[76],30, C_text("chicken.memory#pointer-vector\077")); lf[77]=C_h_intern(&lf[77],29, C_text("chicken.memory#pointer-vector")); lf[78]=C_h_intern(&lf[78],35, C_text("chicken.memory#pointer-vector-fill!")); lf[79]=C_h_intern(&lf[79],20, C_text("pointer-vector-fill!")); lf[80]=C_h_intern(&lf[80],34, C_text("chicken.memory#pointer-vector-set!")); lf[81]=C_h_intern(&lf[81],18, C_text("pointer-vector-ref")); lf[82]=C_h_intern(&lf[82],19, C_text("pointer-vector-set!")); lf[83]=C_h_intern(&lf[83],17, C_text("##sys#check-range")); lf[84]=C_h_intern(&lf[84],33, C_text("chicken.memory#pointer-vector-ref")); lf[85]=C_h_intern(&lf[85],36, C_text("chicken.memory#pointer-vector-length")); lf[86]=C_h_intern(&lf[86],21, C_text("pointer-vector-length")); lf[87]=C_h_intern(&lf[87],30, C_text("chicken.memory.representation#")); lf[88]=C_h_intern(&lf[88],41, C_text("chicken.memory.representation#object-copy")); lf[89]=C_h_intern(&lf[89],17, C_text("##sys#make-vector")); lf[90]=C_h_intern(&lf[90],8, C_text("extended")); lf[92]=C_h_intern(&lf[92],46, C_text("chicken.memory.representation#extend-procedure")); lf[93]=C_h_intern(&lf[93],21, C_text("##sys#decorate-lambda")); lf[94]=C_h_intern(&lf[94],19, C_text("##sys#check-closure")); lf[95]=C_h_intern(&lf[95],16, C_text("extend-procedure")); lf[96]=C_h_intern(&lf[96],49, C_text("chicken.memory.representation#extended-procedure\077")); lf[97]=C_h_intern(&lf[97],23, C_text("##sys#lambda-decoration")); lf[98]=C_h_intern(&lf[98],44, C_text("chicken.memory.representation#procedure-data")); lf[99]=C_h_intern(&lf[99],49, C_text("chicken.memory.representation#set-procedure-data!")); lf[100]=C_h_intern(&lf[100],19, C_text("set-procedure-data!")); lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000-bad argument type - not an extended procedure")); lf[102]=C_h_intern(&lf[102],42, C_text("chicken.memory.representation#vector-like\077")); lf[103]=C_h_intern(&lf[103],40, C_text("chicken.memory.representation#block-set!")); lf[104]=C_h_intern(&lf[104],16, C_text("##sys#block-set!")); lf[105]=C_h_intern(&lf[105],39, C_text("chicken.memory.representation#block-ref")); lf[106]=C_h_intern(&lf[106],45, C_text("chicken.memory.representation#number-of-slots")); lf[107]=C_h_intern(&lf[107],15, C_text("number-of-slots")); lf[108]=C_h_intern(&lf[108],45, C_text("chicken.memory.representation#number-of-bytes")); lf[109]=C_h_intern(&lf[109],15, C_text("number-of-bytes")); lf[110]=C_decode_literal(C_heaptop,C_text("\376B\000\0002cannot compute number of bytes of immediate object")); lf[111]=C_h_intern(&lf[111],50, C_text("chicken.memory.representation#make-record-instance")); lf[112]=C_h_intern(&lf[112],20, C_text("make-record-instance")); lf[113]=C_h_intern(&lf[113],20, C_text("##sys#make-structure")); lf[114]=C_h_intern(&lf[114],46, C_text("chicken.memory.representation#record-instance\077")); lf[115]=C_h_intern(&lf[115],50, C_text("chicken.memory.representation#record-instance-type")); lf[116]=C_h_intern(&lf[116],20, C_text("record-instance-type")); lf[117]=C_h_intern(&lf[117],52, C_text("chicken.memory.representation#record-instance-length")); lf[118]=C_h_intern(&lf[118],22, C_text("record-instance-length")); lf[119]=C_h_intern(&lf[119],55, C_text("chicken.memory.representation#record-instance-slot-set!")); lf[120]=C_h_intern(&lf[120],25, C_text("record-instance-slot-set!")); lf[121]=C_h_intern(&lf[121],50, C_text("chicken.memory.representation#record-instance-slot")); lf[122]=C_h_intern(&lf[122],44, C_text("chicken.memory.representation#record->vector")); lf[123]=C_h_intern(&lf[123],14, C_text("record->vector")); lf[124]=C_h_intern(&lf[124],44, C_text("chicken.memory.representation#object-become!")); lf[125]=C_h_intern(&lf[125],13, C_text("##sys#become!")); lf[126]=C_h_intern(&lf[126],14, C_text("object-become!")); lf[127]=C_h_intern(&lf[127],47, C_text("chicken.memory.representation#mutate-procedure!")); lf[128]=C_h_intern(&lf[128],17, C_text("mutate-procedure!")); lf[129]=C_h_intern(&lf[129],17, C_text("chicken.locative#")); lf[130]=C_h_intern(&lf[130],30, C_text("chicken.locative#make-locative")); lf[131]=C_h_intern(&lf[131],19, C_text("##sys#make-locative")); lf[132]=C_h_intern(&lf[132],13, C_text("make-locative")); lf[133]=C_h_intern(&lf[133],35, C_text("chicken.locative#make-weak-locative")); lf[134]=C_h_intern(&lf[134],18, C_text("make-weak-locative")); lf[135]=C_h_intern(&lf[135],30, C_text("chicken.locative#locative-set!")); lf[136]=C_h_intern(&lf[136],29, C_text("chicken.locative#locative-ref")); lf[137]=C_h_intern(&lf[137],33, C_text("chicken.locative#locative->object")); lf[138]=C_h_intern(&lf[138],26, C_text("chicken.locative#locative\077")); lf[139]=C_h_intern(&lf[139],31, C_text("chicken.base#getter-with-setter")); lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000#(chicken.locative#locative-ref loc)")); lf[141]=C_h_intern(&lf[141],20, C_text("record-instance-slot")); lf[142]=C_decode_literal(C_heaptop,C_text("\376B\000\0008(chicken.memory.representation#record-instance-slot x i)")); lf[143]=C_h_intern(&lf[143],15, C_text("##sys#block-ref")); lf[144]=C_decode_literal(C_heaptop,C_text("\376B\000\000-(chicken.memory.representation#block-ref x i)")); lf[145]=C_decode_literal(C_heaptop,C_text("\376B\000\000((chicken.memory#pointer-vector-ref pv i)")); lf[146]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.memory#pointer-f64-ref p)")); lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.memory#pointer-f32-ref p)")); lf[148]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.memory#pointer-s64-ref p)")); lf[149]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.memory#pointer-u64-ref p)")); lf[150]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.memory#pointer-s32-ref p)")); lf[151]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.memory#pointer-u32-ref p)")); lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.memory#pointer-s16-ref p)")); lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.memory#pointer-u16-ref p)")); lf[154]=C_decode_literal(C_heaptop,C_text("\376B\000\000!(chicken.memory#pointer-s8-ref p)")); lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000!(chicken.memory#pointer-u8-ref p)")); C_register_lf2(lf,156,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_938,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[166] = { {C_text("f_1004:lolevel_2escm"),(void*)f_1004}, {C_text("f_1016:lolevel_2escm"),(void*)f_1016}, {C_text("f_1029:lolevel_2escm"),(void*)f_1029}, {C_text("f_1048:lolevel_2escm"),(void*)f_1048}, {C_text("f_1061:lolevel_2escm"),(void*)f_1061}, {C_text("f_1202:lolevel_2escm"),(void*)f_1202}, {C_text("f_1223:lolevel_2escm"),(void*)f_1223}, {C_text("f_1229:lolevel_2escm"),(void*)f_1229}, {C_text("f_1235:lolevel_2escm"),(void*)f_1235}, {C_text("f_1251:lolevel_2escm"),(void*)f_1251}, {C_text("f_1258:lolevel_2escm"),(void*)f_1258}, {C_text("f_1278:lolevel_2escm"),(void*)f_1278}, {C_text("f_1281:lolevel_2escm"),(void*)f_1281}, {C_text("f_1284:lolevel_2escm"),(void*)f_1284}, {C_text("f_1287:lolevel_2escm"),(void*)f_1287}, {C_text("f_1292:lolevel_2escm"),(void*)f_1292}, {C_text("f_1361:lolevel_2escm"),(void*)f_1361}, {C_text("f_1377:lolevel_2escm"),(void*)f_1377}, {C_text("f_1384:lolevel_2escm"),(void*)f_1384}, {C_text("f_1393:lolevel_2escm"),(void*)f_1393}, {C_text("f_1403:lolevel_2escm"),(void*)f_1403}, {C_text("f_1407:lolevel_2escm"),(void*)f_1407}, {C_text("f_1426:lolevel_2escm"),(void*)f_1426}, {C_text("f_1448:lolevel_2escm"),(void*)f_1448}, {C_text("f_1455:lolevel_2escm"),(void*)f_1455}, {C_text("f_1465:lolevel_2escm"),(void*)f_1465}, {C_text("f_1475:lolevel_2escm"),(void*)f_1475}, {C_text("f_1545:lolevel_2escm"),(void*)f_1545}, {C_text("f_1552:lolevel_2escm"),(void*)f_1552}, {C_text("f_1562:lolevel_2escm"),(void*)f_1562}, {C_text("f_1570:lolevel_2escm"),(void*)f_1570}, {C_text("f_1581:lolevel_2escm"),(void*)f_1581}, {C_text("f_1585:lolevel_2escm"),(void*)f_1585}, {C_text("f_1590:lolevel_2escm"),(void*)f_1590}, {C_text("f_1594:lolevel_2escm"),(void*)f_1594}, {C_text("f_1599:lolevel_2escm"),(void*)f_1599}, {C_text("f_1610:lolevel_2escm"),(void*)f_1610}, {C_text("f_1614:lolevel_2escm"),(void*)f_1614}, {C_text("f_1616:lolevel_2escm"),(void*)f_1616}, {C_text("f_1620:lolevel_2escm"),(void*)f_1620}, {C_text("f_1623:lolevel_2escm"),(void*)f_1623}, {C_text("f_1625:lolevel_2escm"),(void*)f_1625}, {C_text("f_1647:lolevel_2escm"),(void*)f_1647}, {C_text("f_1666:lolevel_2escm"),(void*)f_1666}, {C_text("f_1677:lolevel_2escm"),(void*)f_1677}, {C_text("f_1682:lolevel_2escm"),(void*)f_1682}, {C_text("f_1686:lolevel_2escm"),(void*)f_1686}, {C_text("f_1689:lolevel_2escm"),(void*)f_1689}, {C_text("f_1697:lolevel_2escm"),(void*)f_1697}, {C_text("f_1703:lolevel_2escm"),(void*)f_1703}, {C_text("f_1734:lolevel_2escm"),(void*)f_1734}, {C_text("f_1746:lolevel_2escm"),(void*)f_1746}, {C_text("f_1758:lolevel_2escm"),(void*)f_1758}, {C_text("f_1761:lolevel_2escm"),(void*)f_1761}, {C_text("f_1764:lolevel_2escm"),(void*)f_1764}, {C_text("f_1767:lolevel_2escm"),(void*)f_1767}, {C_text("f_1770:lolevel_2escm"),(void*)f_1770}, {C_text("f_1773:lolevel_2escm"),(void*)f_1773}, {C_text("f_1776:lolevel_2escm"),(void*)f_1776}, {C_text("f_1779:lolevel_2escm"),(void*)f_1779}, {C_text("f_1782:lolevel_2escm"),(void*)f_1782}, {C_text("f_1785:lolevel_2escm"),(void*)f_1785}, {C_text("f_1790:lolevel_2escm"),(void*)f_1790}, {C_text("f_1794:lolevel_2escm"),(void*)f_1794}, {C_text("f_1798:lolevel_2escm"),(void*)f_1798}, {C_text("f_1802:lolevel_2escm"),(void*)f_1802}, {C_text("f_1806:lolevel_2escm"),(void*)f_1806}, {C_text("f_1810:lolevel_2escm"),(void*)f_1810}, {C_text("f_1814:lolevel_2escm"),(void*)f_1814}, {C_text("f_1818:lolevel_2escm"),(void*)f_1818}, {C_text("f_1822:lolevel_2escm"),(void*)f_1822}, {C_text("f_1826:lolevel_2escm"),(void*)f_1826}, {C_text("f_1831:lolevel_2escm"),(void*)f_1831}, {C_text("f_1850:lolevel_2escm"),(void*)f_1850}, {C_text("f_1862:lolevel_2escm"),(void*)f_1862}, {C_text("f_1867:lolevel_2escm"),(void*)f_1867}, {C_text("f_1895:lolevel_2escm"),(void*)f_1895}, {C_text("f_1901:lolevel_2escm"),(void*)f_1901}, {C_text("f_1906:lolevel_2escm"),(void*)f_1906}, {C_text("f_1914:lolevel_2escm"),(void*)f_1914}, {C_text("f_1927:lolevel_2escm"),(void*)f_1927}, {C_text("f_1941:lolevel_2escm"),(void*)f_1941}, {C_text("f_1948:lolevel_2escm"),(void*)f_1948}, {C_text("f_1959:lolevel_2escm"),(void*)f_1959}, {C_text("f_1988:lolevel_2escm"),(void*)f_1988}, {C_text("f_2002:lolevel_2escm"),(void*)f_2002}, {C_text("f_2012:lolevel_2escm"),(void*)f_2012}, {C_text("f_2015:lolevel_2escm"),(void*)f_2015}, {C_text("f_2033:lolevel_2escm"),(void*)f_2033}, {C_text("f_2035:lolevel_2escm"),(void*)f_2035}, {C_text("f_2044:lolevel_2escm"),(void*)f_2044}, {C_text("f_2050:lolevel_2escm"),(void*)f_2050}, {C_text("f_2080:lolevel_2escm"),(void*)f_2080}, {C_text("f_2083:lolevel_2escm"),(void*)f_2083}, {C_text("f_2092:lolevel_2escm"),(void*)f_2092}, {C_text("f_2113:lolevel_2escm"),(void*)f_2113}, {C_text("f_2124:lolevel_2escm"),(void*)f_2124}, {C_text("f_2128:lolevel_2escm"),(void*)f_2128}, {C_text("f_2133:lolevel_2escm"),(void*)f_2133}, {C_text("f_2149:lolevel_2escm"),(void*)f_2149}, {C_text("f_2159:lolevel_2escm"),(void*)f_2159}, {C_text("f_2176:lolevel_2escm"),(void*)f_2176}, {C_text("f_2193:lolevel_2escm"),(void*)f_2193}, {C_text("f_2195:lolevel_2escm"),(void*)f_2195}, {C_text("f_2209:lolevel_2escm"),(void*)f_2209}, {C_text("f_2226:lolevel_2escm"),(void*)f_2226}, {C_text("f_2234:lolevel_2escm"),(void*)f_2234}, {C_text("f_2248:lolevel_2escm"),(void*)f_2248}, {C_text("f_2250:lolevel_2escm"),(void*)f_2250}, {C_text("f_2271:lolevel_2escm"),(void*)f_2271}, {C_text("f_2273:lolevel_2escm"),(void*)f_2273}, {C_text("f_2277:lolevel_2escm"),(void*)f_2277}, {C_text("f_2282:lolevel_2escm"),(void*)f_2282}, {C_text("f_2305:lolevel_2escm"),(void*)f_2305}, {C_text("f_2314:lolevel_2escm"),(void*)f_2314}, {C_text("f_2329:lolevel_2escm"),(void*)f_2329}, {C_text("f_2350:lolevel_2escm"),(void*)f_2350}, {C_text("f_2354:lolevel_2escm"),(void*)f_2354}, {C_text("f_2359:lolevel_2escm"),(void*)f_2359}, {C_text("f_2363:lolevel_2escm"),(void*)f_2363}, {C_text("f_2372:lolevel_2escm"),(void*)f_2372}, {C_text("f_2376:lolevel_2escm"),(void*)f_2376}, {C_text("f_2379:lolevel_2escm"),(void*)f_2379}, {C_text("f_2398:lolevel_2escm"),(void*)f_2398}, {C_text("f_2400:lolevel_2escm"),(void*)f_2400}, {C_text("f_2404:lolevel_2escm"),(void*)f_2404}, {C_text("f_2410:lolevel_2escm"),(void*)f_2410}, {C_text("f_2415:lolevel_2escm"),(void*)f_2415}, {C_text("f_2438:lolevel_2escm"),(void*)f_2438}, {C_text("f_2442:lolevel_2escm"),(void*)f_2442}, {C_text("f_2447:lolevel_2escm"),(void*)f_2447}, {C_text("f_2451:lolevel_2escm"),(void*)f_2451}, {C_text("f_2454:lolevel_2escm"),(void*)f_2454}, {C_text("f_2461:lolevel_2escm"),(void*)f_2461}, {C_text("f_2464:lolevel_2escm"),(void*)f_2464}, {C_text("f_2476:lolevel_2escm"),(void*)f_2476}, {C_text("f_2478:lolevel_2escm"),(void*)f_2478}, {C_text("f_2494:lolevel_2escm"),(void*)f_2494}, {C_text("f_2510:lolevel_2escm"),(void*)f_2510}, {C_text("f_2515:lolevel_2escm"),(void*)f_2515}, {C_text("f_2517:lolevel_2escm"),(void*)f_2517}, {C_text("f_2520:lolevel_2escm"),(void*)f_2520}, {C_text("f_2526:lolevel_2escm"),(void*)f_2526}, {C_text("f_2529:lolevel_2escm"),(void*)f_2529}, {C_text("f_2533:lolevel_2escm"),(void*)f_2533}, {C_text("f_2536:lolevel_2escm"),(void*)f_2536}, {C_text("f_2553:lolevel_2escm"),(void*)f_2553}, {C_text("f_2563:lolevel_2escm"),(void*)f_2563}, {C_text("f_2576:lolevel_2escm"),(void*)f_2576}, {C_text("f_2579:lolevel_2escm"),(void*)f_2579}, {C_text("f_2582:lolevel_2escm"),(void*)f_2582}, {C_text("f_2585:lolevel_2escm"),(void*)f_2585}, {C_text("f_2588:lolevel_2escm"),(void*)f_2588}, {C_text("f_2591:lolevel_2escm"),(void*)f_2591}, {C_text("f_2594:lolevel_2escm"),(void*)f_2594}, {C_text("f_2597:lolevel_2escm"),(void*)f_2597}, {C_text("f_2600:lolevel_2escm"),(void*)f_2600}, {C_text("f_2603:lolevel_2escm"),(void*)f_2603}, {C_text("f_938:lolevel_2escm"),(void*)f_938}, {C_text("f_940:lolevel_2escm"),(void*)f_940}, {C_text("f_958:lolevel_2escm"),(void*)f_958}, {C_text("f_967:lolevel_2escm"),(void*)f_967}, {C_text("f_987:lolevel_2escm"),(void*)f_987}, {C_text("f_990:lolevel_2escm"),(void*)f_990}, {C_text("toplevel:lolevel_2escm"),(void*)C_lolevel_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.memory#pv-buf-ref o|hiding unexported module binding: chicken.memory#pv-buf-set! o|hiding unexported module binding: chicken.memory.representation#xproc-tag o|eliminated procedure checks: 75 o|specializations: o| 1 (scheme#length list) o| 1 (scheme#integer? *) o| 3 (scheme#cdr pair) o| 6 (scheme#car pair) (o e)|safe calls: 212 o|safe globals: (chicken.memory#pointer-f64-set! chicken.memory#pointer-f32-set! chicken.memory#pointer-s64-set! chicken.memory#pointer-u64-set! chicken.memory#pointer-s32-set! chicken.memory#pointer-u32-set! chicken.memory#pointer-s16-set! chicken.memory#pointer-u16-set! chicken.memory#pointer-s8-set! chicken.memory#pointer-u8-set! chicken.memory#pointer-tag chicken.memory#tagged-pointer? chicken.memory#tag-pointer chicken.memory#align-to-word chicken.memory#pointer+ chicken.memory#pointer=? chicken.memory#pointer->object chicken.memory#object->pointer chicken.memory#pointer->address chicken.memory#address->pointer chicken.memory#pointer-like? chicken.memory#pointer? chicken.memory#free chicken.memory#allocate chicken.memory#move-memory! ##sys#check-pointer ##sys#check-generic-vector ##sys#check-generic-structure ##sys#check-become-alist ##sys#check-block) o|inlining procedure: k942 o|inlining procedure: k942 o|inlining procedure: k950 o|inlining procedure: k950 o|inlining procedure: k972 o|inlining procedure: k972 o|inlining procedure: k1006 o|inlining procedure: k1006 o|inlining procedure: k1021 o|inlining procedure: k1021 o|contracted procedure: "(lolevel.scm:104) g112113" o|inlining procedure: k1011 o|inlining procedure: k1011 o|inlining procedure: k1031 o|inlining procedure: k1031 o|inlining procedure: k1053 o|inlining procedure: k1053 o|contracted procedure: "(lolevel.scm:112) g120121" o|inlining procedure: k1036 o|inlining procedure: k1043 o|inlining procedure: k1043 o|inlining procedure: k1036 o|inlining procedure: k1063 o|inlining procedure: k1063 o|inlining procedure: k1076 o|inlining procedure: k1076 o|contracted procedure: "(lolevel.scm:118) g131132" o|merged explicitly consed rest parameter: args232 o|inlining procedure: k1237 o|inlining procedure: k1237 o|consed rest parameter at call site: "(lolevel.scm:151) sizerr229" 1 o|inlining procedure: k1253 o|inlining procedure: k1253 o|consed rest parameter at call site: "(lolevel.scm:156) sizerr229" 1 o|inlining procedure: k1294 o|inlining procedure: "(lolevel.scm:168) typerr141" o|inlining procedure: k1294 o|inlining procedure: k1326 o|inlining procedure: k1326 o|inlining procedure: "(lolevel.scm:172) typerr141" o|inlining procedure: k1346 o|contracted procedure: "(lolevel.scm:175) memmove1137" o|inlining procedure: k1388 o|contracted procedure: "(lolevel.scm:177) memmove3139" o|inlining procedure: k1388 o|inlining procedure: "(lolevel.scm:179) typerr141" o|contracted procedure: "(lolevel.scm:174) g262263" o|inlining procedure: k1372 o|inlining procedure: k1372 o|contracted procedure: "(lolevel.scm:63) g268269" o|inlining procedure: k1346 o|inlining procedure: k1433 o|contracted procedure: "(lolevel.scm:183) memmove2138" o|inlining procedure: k1457 o|inlining procedure: k1457 o|inlining procedure: k1433 o|contracted procedure: "(lolevel.scm:185) memmove4140" o|inlining procedure: "(lolevel.scm:188) typerr141" o|contracted procedure: "(lolevel.scm:182) g288289" o|inlining procedure: k1443 o|inlining procedure: k1443 o|contracted procedure: "(lolevel.scm:63) g294295" o|inlining procedure: "(lolevel.scm:190) typerr141" o|contracted procedure: "(lolevel.scm:173) g249250" o|inlining procedure: k1356 o|inlining procedure: k1356 o|contracted procedure: "(lolevel.scm:63) g255256" o|inlining procedure: k1555 o|inlining procedure: k1555 o|contracted procedure: "(lolevel.scm:198) g330331" o|contracted procedure: "(lolevel.scm:200) g335336" o|inlining procedure: k1574 o|inlining procedure: k1574 o|inlining procedure: k1601 o|contracted procedure: "(lolevel.scm:211) g348349" o|inlining procedure: k1601 o|inlining procedure: k1649 o|inlining procedure: k1649 o|contracted procedure: "(lolevel.scm:232) g387388" o|inlining procedure: k1661 o|inlining procedure: k1661 o|inlining procedure: k1687 o|inlining procedure: k1687 o|contracted procedure: "(lolevel.scm:244) g395396" o|inlining procedure: k1692 o|inlining procedure: k1692 o|inlining procedure: k1708 o|inlining procedure: k1717 o|inlining procedure: k1717 o|inlining procedure: k1708 o|inlining procedure: k1736 o|inlining procedure: k1736 o|contracted procedure: "(lolevel.scm:255) g420421" o|inlining procedure: k1741 o|inlining procedure: k1741 o|inlining procedure: k1869 o|inlining procedure: k1869 o|contracted procedure: "(lolevel.scm:344) words->bytes489" o|inlining procedure: k1916 o|inlining procedure: k1916 o|inlining procedure: k1961 o|inlining procedure: k1961 o|inlining procedure: k1995 o|inlining procedure: k1995 o|inlining procedure: k2052 o|inlining procedure: k2052 o|inlining procedure: k2081 o|inlining procedure: k2081 o|inlining procedure: k2094 o|inlining procedure: k2094 o|inlining procedure: k2135 o|inlining procedure: k2135 o|inlining procedure: k2161 o|inlining procedure: k2167 o|inlining procedure: k2167 o|contracted procedure: "(lolevel.scm:454) g653654" o|inlining procedure: k2178 o|inlining procedure: k2178 o|inlining procedure: k2161 o|inlining procedure: k2197 o|inlining procedure: k2227 o|inlining procedure: k2227 o|contracted procedure: "(lolevel.scm:459) g663664" o|inlining procedure: k2211 o|inlining procedure: k2211 o|inlining procedure: k2197 o|inlining procedure: k2236 o|inlining procedure: k2236 o|contracted procedure: "(lolevel.scm:469) g674675" o|inlining procedure: k2254 o|inlining procedure: k2261 o|inlining procedure: k2261 o|inlining procedure: k2254 o|inlining procedure: k2284 o|inlining procedure: k2284 o|inlining procedure: k2319 o|inlining procedure: k2319 o|contracted procedure: "(lolevel.scm:504) g709710" o|inlining procedure: k2324 o|inlining procedure: k2324 o|inlining procedure: k2417 o|inlining procedure: k2417 o|inlining procedure: k2484 o|inlining procedure: k2484 o|inlining procedure: k2500 o|inlining procedure: k2500 o|inlining procedure: k2522 o|inlining procedure: k2522 o|contracted procedure: "(lolevel.scm:398) chicken.memory#pv-buf-ref" o|replaced variables: 283 o|removed binding forms: 163 o|substituted constant variable: r9512609 o|substituted constant variable: r9512609 o|substituted constant variable: r10222617 o|substituted constant variable: r10222617 o|substituted constant variable: r10122620 o|substituted constant variable: r10542625 o|substituted constant variable: r10542625 o|substituted constant variable: r10372632 o|substituted constant variable: r10772637 o|substituted constant variable: r10772637 o|substituted constant variable: r15562695 o|substituted constant variable: r15562695 o|substituted constant variable: r15752698 o|substituted constant variable: r16022700 o|substituted constant variable: r16622704 o|substituted constant variable: r16932710 o|substituted constant variable: r17092714 o|substituted constant variable: r17422718 o|inlining procedure: k1851 o|substituted constant variable: r19962727 o|substituted constant variable: r19962727 o|substituted constant variable: r21362738 o|substituted constant variable: r21682740 o|substituted constant variable: r21682741 o|substituted constant variable: r21792743 o|substituted constant variable: r21622744 o|substituted constant variable: r22282747 o|substituted constant variable: r22122749 o|substituted constant variable: r21982750 o|substituted constant variable: r22552758 o|substituted constant variable: r23202762 o|substituted constant variable: r23252764 o|substituted constant variable: r24852767 o|substituted constant variable: r24852767 o|substituted constant variable: r25012771 o|substituted constant variable: r25012771 o|substituted constant variable: r25232776 o|replaced variables: 42 o|removed binding forms: 265 o|inlining procedure: k1369 o|inlining procedure: k1440 o|inlining procedure: k1353 o|replaced variables: 21 o|removed binding forms: 74 o|contracted procedure: k1068 o|simplifications: ((let . 1)) o|replaced variables: 3 o|removed binding forms: 15 o|replaced variables: 6 o|removed binding forms: 3 o|removed binding forms: 3 o|simplifications: ((if . 27) (##core#call . 168)) o| call simplifications: o| scheme#vector o| scheme#list 2 o| ##sys#check-symbol o| scheme#cons 2 o| scheme#symbol? o| ##sys#setslot 4 o| ##sys#intern-symbol o| ##sys#check-structure 4 o| ##sys#structure? o| ##sys#check-exact 3 o| scheme#eq? 6 o| chicken.fixnum#fx>= 4 o| chicken.fixnum#fx+ 7 o| ##sys#make-structure 2 o| scheme#equal? o| ##sys#foreign-ranged-integer-argument 2 o| scheme#car 9 o| scheme#cdr 3 o| chicken.fixnum#fx< 2 o| ##sys#generic-structure? 2 o| scheme#string? 3 o| ##sys#size 12 o| ##sys#foreign-block-argument 4 o| ##sys#foreign-pointer-argument 7 o| ##sys#foreign-fixnum-argument 16 o| scheme#memq 2 o| ##sys#slot 24 o| chicken.fixnum#fx- 6 o| chicken.fixnum#fx<= 3 o| scheme#apply 2 o| scheme#not 8 o| ##sys#check-list o| scheme#null? 13 o| ##sys#check-pair o| scheme#pair? 8 o|contracted procedure: k953 o|contracted procedure: k960 o|contracted procedure: k969 o|contracted procedure: k978 o|contracted procedure: k982 o|contracted procedure: k1024 o|contracted procedure: k1056 o|contracted procedure: k1079 o|contracted procedure: k1538 o|contracted procedure: k1204 o|contracted procedure: k1532 o|contracted procedure: k1207 o|contracted procedure: k1526 o|contracted procedure: k1210 o|contracted procedure: k1520 o|contracted procedure: k1213 o|contracted procedure: k1514 o|contracted procedure: k1216 o|contracted procedure: k1508 o|contracted procedure: k1219 o|contracted procedure: k1247 o|contracted procedure: k1240 o|contracted procedure: k1273 o|contracted procedure: k1262 o|contracted procedure: k1269 o|contracted procedure: k1297 o|contracted procedure: k1317 o|contracted procedure: k1303 o|contracted procedure: k1310 o|contracted procedure: k1323 o|contracted procedure: k1343 o|contracted procedure: k1329 o|contracted procedure: k1336 o|contracted procedure: k1087 o|contracted procedure: k1091 o|contracted procedure: k1095 o|contracted procedure: k1099 o|contracted procedure: k1103 o|contracted procedure: k1394 o|contracted procedure: k1143 o|contracted procedure: k1147 o|contracted procedure: k1151 o|contracted procedure: k1155 o|contracted procedure: k1159 o|contracted procedure: k1409 o|contracted procedure: k1427 o|contracted procedure: k1430 o|contracted procedure: k1115 o|contracted procedure: k1119 o|contracted procedure: k1123 o|contracted procedure: k1127 o|contracted procedure: k1131 o|contracted procedure: k1466 o|contracted procedure: k1171 o|contracted procedure: k1175 o|contracted procedure: k1179 o|contracted procedure: k1183 o|contracted procedure: k1187 o|contracted procedure: k1477 o|contracted procedure: k1481 o|contracted procedure: k1496 o|contracted procedure: k1502 o|contracted procedure: k1548 o|contracted procedure: k1555 o|contracted procedure: k1628 o|contracted procedure: k1632 o|contracted procedure: k1643 o|contracted procedure: k1727 o|contracted procedure: k1705 o|contracted procedure: k1714 o|contracted procedure: k1724 o|contracted procedure: k1828 o|contracted procedure: k1888 o|contracted procedure: k1833 o|contracted procedure: k1836 o|contracted procedure: k1857 o|contracted procedure: k1872 o|contracted procedure: k1882 o|contracted procedure: k1842 o|contracted procedure: k1907 o|contracted procedure: k1919 o|contracted procedure: k1922 o|contracted procedure: k1937 o|contracted procedure: k1943 o|contracted procedure: k1949 o|contracted procedure: k1952 o|contracted procedure: k1964 o|contracted procedure: k1974 o|contracted procedure: k1991 o|contracted procedure: k1995 o|contracted procedure: k2004 o|contracted procedure: k2007 o|contracted procedure: k2020 o|contracted procedure: k2027 o|contracted procedure: k2037 o|contracted procedure: k2055 o|contracted procedure: k2061 o|contracted procedure: k2068 o|contracted procedure: k2071 o|contracted procedure: k2074 o|contracted procedure: k2088 o|contracted procedure: k2097 o|contracted procedure: k2100 o|contracted procedure: k2107 o|contracted procedure: k2115 o|contracted procedure: k2120 o|contracted procedure: k2138 o|contracted procedure: k2145 o|contracted procedure: k2155 o|contracted procedure: k2151 o|contracted procedure: k2181 o|contracted procedure: k2188 o|contracted procedure: k2214 o|contracted procedure: k2221 o|contracted procedure: k2239 o|contracted procedure: k2287 o|contracted procedure: k2300 o|contracted procedure: k2307 o|contracted procedure: k2343 o|contracted procedure: k2316 o|contracted procedure: k2330 o|contracted procedure: k2340 o|contracted procedure: k2368 o|contracted procedure: k2384 o|contracted procedure: k2392 o|contracted procedure: k2388 o|contracted procedure: k2405 o|contracted procedure: k2420 o|contracted procedure: k2434 o|contracted procedure: k2423 o|contracted procedure: k2430 o|contracted procedure: k2455 o|contracted procedure: k2470 o|contracted procedure: k2466 o|contracted procedure: k2487 o|contracted procedure: k2484 o|contracted procedure: k2503 o|contracted procedure: k2500 o|contracted procedure: k2541 o|contracted procedure: k2549 o|contracted procedure: k2545 o|contracted procedure: k2555 o|contracted procedure: k2558 o|contracted procedure: k2568 o|contracted procedure: k1984 o|contracted procedure: k2572 o|simplifications: ((let . 26)) o|removed binding forms: 146 o|inlining procedure: k1405 o|inlining procedure: "(lolevel.scm:231) align375" o|inlining procedure: "(lolevel.scm:233) align375" o|inlining procedure: k2013 o|replaced variables: 63 o|replaced variables: 4 o|removed binding forms: 48 o|inlining procedure: k1671 o|contracted procedure: k1845 o|removed binding forms: 5 o|removed binding forms: 1 o|direct leaf routine/allocation: chicken.memory#pv-buf-set! 0 o|direct leaf routine/allocation: doloop737738 0 o|contracted procedure: "(lolevel.scm:351) k1875" o|contracted procedure: "(lolevel.scm:366) k1928" o|contracted procedure: "(lolevel.scm:375) k1967" o|converted assignments to bindings: (doloop737738) o|simplifications: ((let . 1)) o|removed binding forms: 3 o|direct leaf routine/allocation: doloop496497 0 o|direct leaf routine/allocation: doloop524525 0 o|contracted procedure: k1851 o|converted assignments to bindings: (doloop496497) o|converted assignments to bindings: (doloop524525) o|simplifications: ((let . 2)) o|removed binding forms: 1 o|customizable procedures: (k2327 copy622 doloop631632 doloop511512 k1744 k1695 k1664 k1359 k1446 checkn2231 k1375 checkn1230 nosizerr228 move242 k1256 sizerr229 k1046 k1014 loop94) o|calls to known targets: 46 o|identified direct recursive calls: f_1292 2 o|identified direct recursive calls: f_1867 1 o|identified direct recursive calls: f_1959 1 o|identified direct recursive calls: f_2415 1 o|fast box initializations: 9 o|fast global references: 9 o|fast global assignments: 2 o|dropping unused closure argument: f_1988 */ /* end of file */ �����chicken-5.1.0/chicken.sort.import.scm���������������������������������������������������������������0000644�0001750�0001750�00000000662�13502227734�017347� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.sort.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.sort 'data-structures (scheme#list) '((merge . chicken.sort#merge) (merge! . chicken.sort#merge!) (sort . chicken.sort#sort) (sort! . chicken.sort#sort!) (sorted? . chicken.sort#sorted?) (topological-sort . chicken.sort#topological-sort)) (scheme#list) (scheme#list)) ;; END OF FILE ������������������������������������������������������������������������������chicken-5.1.0/chicken.compiler.optimizer.import.scm�������������������������������������������������0000644�0001750�0001750�00000002053�13502227755�022212� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.compiler.optimizer.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.compiler.optimizer 'optimizer (scheme#list) '((scan-toplevel-assignments . chicken.compiler.optimizer#scan-toplevel-assignments) (perform-high-level-optimizations . chicken.compiler.optimizer#perform-high-level-optimizations) (transform-direct-lambdas! . chicken.compiler.optimizer#transform-direct-lambdas!) (determine-loop-and-dispatch . chicken.compiler.optimizer#determine-loop-and-dispatch) (eq-inline-operator . chicken.compiler.optimizer#eq-inline-operator) (membership-test-operators . chicken.compiler.optimizer#membership-test-operators) (membership-unfold-limit . chicken.compiler.optimizer#membership-unfold-limit) (default-optimization-passes . chicken.compiler.optimizer#default-optimization-passes) (rewrite . chicken.compiler.optimizer#rewrite)) (scheme#list) (scheme#list)) ;; END OF FILE �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.png���������������������������������������������������������������������������0000644�0001750�0001750�00000073405�13213463160�015051� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������‰PNG  ��� IHDR��ç��J���gù���tEXtSoftware�Adobe ImageReadyqÉe<��v§IDATxÚì½_Œ$I~ß÷›¹Ù½¹w]K‰ ع´±°y]KëADu`|^SÃ'C�Ñ9Ðácj|ÀÁ&öãÖÀÄ=M6è‘[ó°Xà(`³!†Œ«°’¼„µ9ǵxæ‰ÜòxÜÜuüj~1Y™U•™™ùý�…žé®ªÌŒŒŒo|ñ‹"�������������������������������������������������������������öàŠÀ Ÿþáo©cõ Õ+×H~·…z-ågÆ?_ø­y��ˆ3ØOŒ'"ÆZë$U¯9¿”X?A‰��Ää ò±rTÁ× »ê„_J¨ŸâN���Ä¢ü‡¿qKyâøT–â¦c¸i��€8U”ÏX©þu$i��€8I”õx²¯Âl2‘F¸�� ν婼F:uwGJ ã.��ĹO¢‹(w™¹ˆ4\4��@œ;-Ì÷;è”Ë\ôs¥��âÜU·ÌN3ìé%ò8ôÜi��€8wE˜yjTÒ#·\ÂÜ���qî„[fQž è²y“ ��g…ùDœd0Àˇ@�€C®£r…ù®T0Ð"à¥FS‰���€sv*Ê,F¼HG„Ò€ƒ��ˆ³ÂœR»T@ ��\amz>¾œA˜sá2™£���âܦ0Ÿ‰;¡:ªrz„b��€vtX['B5¨ Ï>G1���Ĺ Qîûj_M2V}‰b���ˆsÂ|,ÂŒñåýÈD ‘ �� 1¨1gIüZ@˜" g«¦��€8×"Ì)!ñ«&’H���â¼·0ÛÙnýÁ̤Ã�� fz?æ,Âœ¿ZÂ=×wr0þ ��pÎ 3A˜k% Œ?��Äù�aÎp»a"…���¨‰^†µs„Yï0×Ü <Tbþ3��À9C˜ýaDo��Ĺ@˜O!ÌÎ#¼ ��õЛ°vÎ<æL„¹kðyÏåZ–¦øѳuÀ}^@…Ï—³·ŸàÑ ]Þ~ýÕció£í瘓Ôþ÷·Þzï%qnK˜©Câ¼ÇŸ”ÛÊò£1ù»aÇ\]Ãm<Z�4*ļ?@(âˆð>Æ`!mé‚ q>T˜h¾îš0ó¹Æûìô$’ù¹y'‡áÁ ~g<‘WÏýR„š#ys%ÖXÏ�⼓0§´õ.Eð|_;{)Â:;tU÷ÅIûDª®ë&/�jqÈ,Æ‘qéD‰ôc܈s™0™û1/ÅA‡žŸ6w&¢:Çe%CÅÞ§Ä7ìý Àa.y*í›o ­™¸iˆs® ½!•W“¿ã°š©¬‡ •‡o{ðŒ¥=Ø]”ã´eÚÅJ âÎAœM§˜Tf_ÖÑf¡š4½H‡‡ð6�ýå¼ö-BÙÀÅ9G€øßy™Š\aJ„ùiKå“·ž¸K@±(ó˜òT^]_a."hY tjI�›•Xÿ;¯RûPÑyjÔÍ6C»2Î;õè¶Mñ˜+̼hÒBsJâĵ…\’sVâü­¾ôþÌAŽcyPÙ_®XVf²œk,LÀ†[Ž{Þqb,z ÎY¦ ia^ÊËæ¥'¹fñ.<¹}15�VÂ|"Ïeß#J3u­pÇ{îœeÍìÔøURà 3r?ÎìÍ"Ÿ÷A —âž1†,̼öül`—½šÞŠqè:gcœ¼#’îƒkQ7³P¨C”ÄEÎxùœ¬›J(ôIœi3ŒÝsX Ì>„²½[tCÓOÜ3ÃÀ …YÚ­!wNÇ´ù]gYh$´8Èfr,ξ¯†åCÃÈð�CæcÚ\^xÈŒ1ÝqV ù-Ëm-r*yQb„yÓ=sx;A'€Ö„ù¤ Í2‘Œ»ƒ x™&Û". 7œ4ì)¹]K»3ëGËØ}FîÃÿ#$†sJý˜»Ü!Vë®sNŒŠ]´™…ë^é¬K;ˆ ú÷ ú,ÌÇæRæHë 8+‡w—6ç3›{5k2íÂ\u”ØÝëàýžI™Bœ¨_˜í A>#òk‰aˆsaÖ‹¿›:¯1ϺfÞÌáNo¶¸g×ÅXæ_Ð7RÂsU&ª3s ÅÐçœÐæ´©IÎ{æänœyQpN]sÏ®{}sÍ Ì»·÷ow@œ%;[‹î’ò1“ÄÚ†Ï)ìz2“¬qBœ¨M˜ÏP§÷bDÃ\˜¥;â,™Ä‰åŽ£çêÂ5÷B˜Í«ë‡R:c�t]˜!0‡uÔ±‹•ßÎyFW÷gÎW!å©Ìî’eŽÄ0�êéèrÛ•¡(ö&Fx(βjTd¹c[œ3r·ÛTÜ¥)Srω˜�ÐU׬g–äÍ(Õ ‘æ™8焳“G5wäšç²6uñ!7Á#:*ÌzfIF˜:Õ—öâlºÒœ§]ÑSr“¹ ‡^=I ƒ8ƒ®‹‰¯®y)Ïwl¼òwŠ@ë€àlùÎœ½†¹Ò„9o¨ý,Wì±XoQ÷àŒÜ‡·ƒ¾—3èkÖûË»Šèmk·øœæßzë½Ç%×p"¦gâÑ5dê¼_A sïœí0FPðžØÁ¹EŒ9¹O ƒ{]#qöÅ1gbb%nwÊ„™Qï¹T¯sõºMÏ¢•±mܳkqÇZ=¾ §è"dÄ `‡póejØÜñiDx AÇ\ó˜Ü®R¸!Êì6Eh÷šêÉŸS¯ÒÖºnbÔ2·ÎÙ¾£W×v’@ŸÀŠpˆ1–e[è‘<3®;•Ü†ŽY”ëúBéÛŽ¯-@æ¶#q–-Êܰ™™ ÑÅÉüí…ãÓ@ht…¥ãúºQ~°¯S® ÒçŽÛÂ)ªYËâ,S§âŠÀ¸ínÀû 'Ž‡t‰±Ãç”÷Bn|A$hWQµPÖ Î-UtÃAËçÕ«À:(Îvª¾#ÉJ®:’±${µf Ô±x[ÜöaˆsÕo3œôt°Ê 1 €J¬;±«µö©½á H¶†ô\FCß±ª5q– íÀ³ë_ ‡æ{Ƹ3ðU˜ïÚ¬Äò‚Ú™z×™ôµ‡{æ)¥1:ìývÎ.EpYð»!3ÛeO¡mà›(©×›´{ÕÂ|©~Ÿšß!/qè˜Mfäfô S+â,›[¸J¢È *V„•©®€Ð6�ô<ŒÍm‡Žè, a>kÁMò*_w|( çvឃ!'†µåœ]6ºÜë ¬ß f¡‘=ÊÊ%m×¢|ª^ïÐz+Hý\˜Âœ4|ޭ믮ý!¹‰¬ ¶ÃÞ¸8Ëô)Wnšãš‡¸ÐH%<Ø ¡màB9|}¦^ïÓæÿÚ-ß“÷=jA˜¹½ŠÚÌÊÞîy°öë-îÈae |î‘zHâøø¸? -Q¾%‚»”z¯ÛŠLò5Nü’%;Ûj;¢6æ1ïéžÏ©ý±çÁ†¶oô¸ç“*'x¡œXlôHC$€•¢7ÃpÕ¡âúr·4ái½ S˜SÇY”ŸgG˞ͳÛ°y•M+ãb3¢hˆmB£âì8¤Np*‚0—Ãe¤îÛÜ¡ƒ]…¶¾( ¨OOEˆ¹*JJå6"‘éQz;ÅiËÏÀ’º5šIÙ´Ùyd‡½ÑýœîÌ®ù&š¦½ï›½×vë+䀄ùÑÁ[¢üÔpÕ5?E*=wºëåÚc_ÃýMÑô˜³k× ösÏüdOYÛàP9ÊqÊ©¸¾@Æ“99±ÉD¬]ó¬+Âl¸çÖ;/pÎõ:°©ý±ËL‰Ë+hž¾wwÉíÔª�óÐÁž¢<•W&‚¼zY¹hܹmÜQè`9ÿ€Ú]»‚ïß ¢¡9ËÂ#.*>\s=$ŽÅ™χ¸ `ÁÐK/Ä?•ßs[«Ÿ!¹[ )×ÛOêž8ç:g%Î÷åR¹­—ÑLÕvßtØx,Ô½| wì!Ò: ,ô¼Q\®›]C„¢íiUaÇÂÿÑ䘳‹‡bF n÷슱dûPU0îª×ô,Œ{.ÌIW…™‘¨DÛËýÊ=»ç´gbÒ;<Ø ‰a .–"&<í:´ú²nö@œ¤‘1gGK0Α@Ô˜{ŽŠó9n¨ˆ9ý/£u2Øž†£vꨱ_ô¨ÓÙ¶8‡T™o8*Ä& „´û)Î�bd_¤Ý‰Ä™>ÙòW{Ë뵺{±’d¿Ï[|NG¼@ÌPæ;7%ÎA•JZãñxúÔ`Ú„£²b˜¡TǾ…Ä€%®'ÒÆ° ¯ÂÕÛO–á Éíô©^ ³e´Úl¸q>€2á­ûá€knÞ=»r±|\ˆ3ù–!Æ‹mkP‹xi­xðüL{(ÌZœÛ$JoJœËÄ7k òƒæÜócå`3GFˆ;�ªnÁÛžuÖy#=¾/¼Çu›m·ƒXÚ·©lí*cε 36´h­÷ïìñ ªºk®'±'§³Z`¤ÏÂlÐæ:üƒqε‹³ƒ¹©s}g¸gPîô qœË+£vÌàów`ûÇ:¯âÜçÜÖ\"Y¨dšš«ŽÄT­'úÅš#xZ'µá–ylùæ¶lq8çÃà Î{4âm†˜CpϘRªÀ‰˜µì²æâ–·ü–Ôì»s®û�í¹gg+†ÉF*�ä9©3õzGD9ràyŠÔí¹e—î9BÞppÌ”j 1an³3÷;8.?¸ß`C”¥.–:ä—~îýʯý,}öñôá>¡ÿôúè'Ÿrxî¤Æ]^»f–(‚î‹33­IäÁ°ÄùŠȘcB;„­òŸÑ¿ùOéçùËôò/½@¿òÚK«ßÿøÉGJ¨?¥ÿðã]ÚÙ€’½v)—¶í –ñ¼ÑñÊ�ZÆáŠa!Jð¢|D.ˆÃ"̯÷þõOVnúå_z‘^ý‡_¥_ýÇ_SBýñ³×U¡Îä¸ÉÀC×¾8çÑ ´Ëâœáypêž[OÒÂRžÃBæ·tÇì‡ïþ4úêÏݸâ–9D­ù«?ÿŒ>ûäsú«¿àŸ_”ºi~ýÉ»?] õ/ãgV"ÍŸûÓ?þú³'ÏÕß㡬å| ÄâìÞ=»Z1,",åÙW!>¢Íå6Y”S~Îÿ¿÷?ÊÞ_üuÂBº Ø^¼F_ùê—VŽø+/}i%Ô,¶,Ú<Öl öýß½¼úܳqèOéGÿá£ù¯ý·/Ïå×^ŠÕ‹; ËOÿéßOßâÁ.òZCÚ¶.kl<„‡Ä5ÔQ§é}r3ö`kÐ^ r$mÁRÄ8µïïÛ¯¿úHÞ3‡–IÝ‹ªëå_|a%Ø7^|ÖlpøúÃ}ºZ¨äü÷//G¿ðbDëpéBŽµš·,Çæs‹!ÒŨûôE[ÇúÖ[ïõ¾ýwéœSÂ8b—I‰37¢H ë¾0‹ð±ß.y;‡–ŸÈ˜óŒö˜.¥„˜_™´;‹ÿæŸþýÌhøî©sÒër¥~/åÿ3©ë©z>BôÑ9§Æ¿÷ç…z8^ÃísÞÀ¾Ií=óªp/£ôçÊîŠ@î’ ´Ðnœžídõ¤ ߢup@Ww²ZNZŸÃLœôSéh°`?ø=‚sî€s^VxˆÂ¿¸gæ@œGª1<S !æ—£Ágá›Sµé3ZˆS^µJœðèy{ñÖ{¹’$ÃÇfŸÒz]ô‘ˆò’Ö«äñû"õ™Hr0ØUóB(Sõ$oó;[Ä·çÌa¨›¸}^¸ç÷©ý Üÿaó™t�G[œñ\‹qAýÔ{;ë—Ûžo MsPÚ§‘¼ÆÆyd"Ò‘Ôý9­Cí3©Ÿç¼_RKÓœ†àœ]ˆóRªí?™³?âìjÿÜ1Jï…9ÉùS&õm¾Ïœc AsÛ4‘ö‡…5)ªKR¿c9îœ6ó,iÇ&Ò®MŒ⢟èž½C-åAœ÷o°ß í«€é¤‹}od<ôñÄùH®¶àõî@…ù+/]_eXÿ—žMúÒ ×–_û{/l«g ÆL^«Ìî-Â{$b:¥õ8ò•ýáå}±®N ΂vÎ#C°õï&Chˆs7ĹlšÞcuße<!Î~ ô#jÃf4$g2þäçùË ^û«÷…º¾VGëRzξ,pÔ±ˆ5·O3û}"ŸÑzÙe8"C˜µPG4qh$„ÕKS ai…‡eL /ì5½¥¸s‡NZ¿üæÈìØk¼u£q·z\Øch½Ê¿bõ^ð5×+ÎÉøóõ·©Ô+NðZ1·Yö¦˜P„\oM9•ï ä÷©üŽ_3þ^ Ã�œó1m_Á+¥urF�çÜ ÷ÜZHËl¸U=x¥JD;4Ä4È1 ‰8å'Öçž µ¸_óïzó˜Ö ©!ÐciõB&qß4œs½4²Ÿ³Tâ²éN#ÚoJÔ‚°Ž«$ŽHV-�EmÑSvǼȈtä´Ë]íÿ?ã¦Þ7\>÷@Þ¿”¿ßÑÖ.~lˆ·®ÿZw´^ÍŒÿžèσƒH᜛sR™TÜt·…¥;½u)˜VºT_OÄõF´™ÐÈíÒÆR"ÚzZ×ÄtÀêoÒz:ÊqÐz :–Wï’Ädõ¶¶ÖŸà©s½æ¯7Y€ÛÑkÝç¡BïîYj·ÀŽüKvÔÒE´ŠcÊ“>ÑNYV%d¡]ȸ³fjˆ²é uâëDœt$¿›õ°8ÛÌ!Ä"TMŠs•Ðs™8§”Ÿh„d2?qÕèLQôà�‘æö¹„½m‘f!~Ãgß±òòµü{Yp$ÊèØøwd´‹:”k ÄyOçlŠs–Sðºg´”Š?/pÞÀ³FΑ{žH"�‡Öa-Ò±ÑME¤µ‹~Lëõ·Ó^2¥õÜç€Ö¡íÎ8gi¨Ëz8yâ¬w„I 'Y¡ ˆ3ܳMŒ¢5¶_:ln´9ÏÃÙ2æj#bt"‚¬7ÊÐÑÁ¥vâºýÒbßÚ\„ι%÷œû9^ýɘ_ÈB?A“щFí’ÜdSFpÏ nƒ!ÛYN sáì§9}GÄ#¶ÌÅÜ0‘!âpλƒ1çHöüÜ$çA¹°�÷|E Qô ‘~¬³Ñ>ñÔªC WËÊÔ¾ŒÖѽÌpÞ$ïÕ×I’[8çzi|J’L3¨’øš=#ìÙÛmM«Z-jƒ%=ACuúˆ6WÃ[…ª9Z$!êEN[ÓzÈeAëa;’vqÞ‡¬°�I÷œ33¯ðžÌúÿH6@Ý%vpL½ �M8觶ÞW g_Òæ†v§Ñt—c£mìüpæ63ÏÓ¡Ô7_Ä9O 1ÆÜmæäfbŠyð a‘6:0:„³œ:?5ÚÀ‘!ÎKZ'‰uŒ7wQœe¼¦¬@õòç¹ r3ö ÷ ZéÒæt©¢©„Û†ôXØ—=ÈÚnSœ³tóõ–Ž“ThPíJŒÐv÷q¶( Ü3h¡ó9Íi«Ò‚ö-ÏêÍ1ºîžÛ<ˆsË⬲Ð t¾Kî´Q¿/h=7ÙQœCãý]Àãí×_=¦v?3ˆs½•ø²Bgœó¬üÔ}b‡îu4Mj´_ºCj H@ƪ‡Öï3êö¢J­ºþo½õÞ`öľÞⱪ„8BbXßÜŇî9Æ�-9¹ñwÐæ•ZÔ2yuyéË6Ï=RÅjMœe._YbXDmÃ=×GÔ³%¿ÎÙÜ-/ÛAØjwéË.;çÅ*Öõ–WÅ=ÛuŒðd/ܳ«^ï w�´ì"³ N»¨½ƒs†8;gÛ=/szbvCŽÐ6ÜóÞ={dýÈú"8-/>qnØAåÍ}Y…ÐÕPI„gºóîùÂ¥{ÆÔ*�êïø¶y°!%ƒ¹pÎEî9¯Gd¾{…Â=wø0µ ´åìÊ¡ž´mmŠs:´ÊÔº8‹{ŽsÜsšó»çÀùÀ=Ú1@îh€‘Õ¶å îÌø]°­ëoî™sæJüÐ*lSŽ<ª î™IPü !ÊJÜò(Ç ]·_õ¤åŽœs‹D9•Ü^^/àž÷eµÉ€rÏwq@9âæˆpUÑî aËǃ8·ØH_Z.*”ÿëJ¾ÚŽÍz?€{Þ—‘4ÂÛ  缜yõÁ±YvØ=·É̾õÖ{ƒÛ£Ý¥sfÁ}`ôˆÆ2fYn‡š–?C;�÷\ î8Ƀ[ÎΞö™Q~Ô/“㘺lÓ9§C¬_×=8‡‰ôC£áŽ ¬³l‘mÛ/"Gî™ëÂÛ ®¶Ëìp扳®wy,Dœ;%>6»€8;rQOE˜§–£æÿ§²º7äX)¬_îÙÕšÛzƒ•–ö5‰ó\œô 寱]Ψ›aí¶“s!Î.Z2¸Íß=”\¯Ë£-èÜsÒÓ:Á=°Ro6Ä™®F÷²‡9§Í°p×Ä9lñX<Þüâì·Óz ÅôÆ=ç­×Ú­Œ koƒý;–$˹ˆu”#ÎEN0WÖÁv­MqN‡ZÁ®ã®;]äfõ‰8˜koƒ=\³çD:™¶k^L9ˤvJ|Þ~ýU3 â q='rt\Œ“`üìèšu’×Lra¦î8O˜Ç´yÏáš!Îgà«{¾pÔHéÆ3#Œ?ƒý\3‡¤cÚÌÈ^Êÿó²´éŒŸ¶ç7v(â |r#.’ÃBZ‡ 1þ ÊHh½ ÍT‰õ)]üÌåw¶8/EŒõÔѹ±7œ3\3Äx鞟8ÇHŽaþ3Øâšy!$¡bm pQ'sn|> n.†q†8ƒ ôr7­D ô b G˜Îc*S?cº:®Ìï)Z0)q[MåSßñ¸Keðö믞¶|Hˆ3�áj%8ndÇâf ò\¯gë ÿ¼$°¢1Ù„ÖC(¸æR=Þ q>ºç rÞi½ZŠ1 ®ù‘!º‘ˆtR à“-®y*À%u3¿¡MqN‡^ï ÎÀGbr3÷Y;÷ D˜Ïhð5ÑHèj²×¶p¶íšgÔîÚÔgˆ3�µ¸g{w²¶Ñ í=ha>12gVßwl‡®užDžà.¥.éú´,qØ^‚ñfˆ3�Z ]†·IИº›U æÔßHÂÛaŽøÎi{w43Ã5GÔ½°v›®y9ôñæN‹ó7÷wîª×)>“»ðöHPnPCi˜Á0„ùˆ6ç3›¢j³-œ½ õ¢#z³þÝó›áš{)ÎJ”ß”‡"Ã-ìµ{~Jnæ@O Ѓf‡±sh¸_›DêFÑ~Í­óô÷Ä„d0ˆsntHOi=nÃ%ýþw¾‡]ªú/ЗªÁÔš Ɔ@óîC|Nwpgz/Ì$÷|Z Ì £~ä¡3³µ°éïMºæšß~ýÕ¶çýCœ×:"ÌoÐÕБîÉeéA4œïPû‹îÛ1×Á¹ü{ÒÁÐ$¨.Ì‘Ô·<aΤÃ6Û".æŽSÔ©ª3¯u­l”8絿MÁãÍ/£Fv ¬] Ì©4’©CGÚ…É¥Ãã›YÜÃæe‰0ë1j݉Kû“»v¥ÍN1\sÄÙeçU=Γà6öY{;r|¦@º—Â<•û[Tצ%† ”÷d´s^¹h™Ð5׌ý›!ι” /‡´/p#ÐÉ}2͘ÖóTW«‰a©Ï^³žQq¢vÌÛÀù¾PœóÂl¸fˆseœ9+WÌ+ïÌ•¸>Ýò÷$çá˜Z½ØTÞÇD€ñçA4ª®ÇŸÉhtµ“æñÄsÜÎÔ¡éd†0ÇT¼r—îñáNh½ú×ÈpÎQ×6¹0œó#j/b…ñf×ÎY ï-£"ç¸èIN™Ì·th×êÚAgF‡‘7˸[Ó a>•vC óŒ¶/©Y&̉´W‰|_`ˆ}ÚUavàœáš]‹³!Êáñ¶”Ìú]J›!¦¥rÍ—¸¥ýG²¤CNe$õ0“†{ªþ71íµ0ŸÉ=Ñz‘xKǾL˜S²²øi=n="÷y‡¸æcjw pˆ³Kq–pµ¾áÁgd;äqŽsãÆV /=iø´@iÎ\`ÚKa~DÆZÙ´gÓžÂlndA´cä÷]Ÿn×ö@sÔR·Îyb‰õI…J‘·Pü½®Á ô9ù³Ú7Ê3uN7åß,Ðwq—¼åcõúÑ™ÓcÍaÁG–òÞ2ai½ iszçT:]&lñXÖÓÞ¤Õ”剬ü>2ÖÞ Â×/p;)Ð÷TûüðæcZÏsåÅVÓrd*h_˜oÑæ:Ùº£?Ú"ÌSÚž•­…96„y!ŸáïçUÀö ø Åù£O>§¯¼X«·ƒ¹rìœónö˜Öëͦlé<;L©4‘G³±œK`ü.º}Q>âñK=¾¼ õ&E¢;©(ÌùɯŒÖãÎúßF¶ˆ,L°ýÛÏ¿¨ûgWâ,cÍy•Öœ5Ê笂s†k¶{~j4’>0¢õ–“±ÔivÕïpˆw¬qa>5„V7ü#Ú¦Mä•n¥Ôf½vv&ÿOä=}YÖµ0õçùiǃ8;tÎSª6†1Îç²)Rn%šü˜be×y‰‘¬©œŠ‹¾ŒîÆÜò#ZO“Ê AÝÖÁi=-®P¼%ŸÀf'®ÝyØ£á‹Â¶ú§}¾ k×Æ›]‰³rÍÇÔìppÎ@gp‡ž 47âs ±ê¹´ˆ4ö#¯O˜Ïh½d¦nÊܲ^[­mæ;r S˜µcæÏG=H�[!S¨ Ûki^«6#KÛ¥søìÎì!о1Ñâ![Nò9Fs,ʧ²b\b´K—m·TîILÛ“ #æGFç*£õ:ëZ˜÷¨X·>?ìœksNQ“»)ÎË 7â lŽ<<5‹™Lë ¸Ñ×aPÎ*†“ÞI”vh´•ƒÅ´Î¬osÕ<]OŽâ?1>õpÙÖÂÎÊ'Ÿ=³Ì5‡µ!ÎÅ98ðóÙÃèsòwu&nÔyG«GÆØóJdd…1ˆt±(ó¸ò´a/ç?¨ÐN„´NØ•¼/•ás#‹¾ óV3õég_<wÏ5±øÖ[ïa_t‡â|Èxó· ôP IÎwµºÏ mêõ@~§Eúîâ†(ߧͩJKØ*ÿçk Óö©Nz5Â¥!ÂcZ¯íßka~ûõWoQÅ= jrÏpÍŽÅyÔðgÜJÐQæú+áy_ŽÈé‘L¿º;Ôìn#|ÍbÓ:´œUl2Z‡iç%mEBëÌîÔøw"Çî»cÞêšmtˆû@ V@ã+„Éê_M ;ÄlhÕÀëÆ×W´,Õ¹®vI8—07ïzÅřý[pGÖ" —Ðz M“åÏ»yW€˜;EÒAJh±‹h½€É¨çÂL´ÃJ{òý%}F?û•/Ñ—®ï·ûð·Þz‹G¹g:| •ÞÜ~¹E¨¹·÷�·Tèù½µèH\»éDDš° qÏœá=ÑIº<}ÇdíTyÞSK€µKíxïʦRi_­î%=2„9¤õÆ&½æ·_õd£ó×ý­zýÅ_~FÁ/~®¹f®5}�åœõÞ©‡ §,l{Ђïç{˜ÈªBJÝÚû[om˜èÕ§d ÖÄèü®6]ðyu*é\„†;[Ð:T<±\rfÜ£Qƒåª™e©¿6vœê¹cfq¾K6’ù·ÙOW?¯_§ÕúÚœvü‹_^9è™*çü€3ç\—û^”ˆ3»;¸¥ ÄA_*‘;&ÐzN-OÚ‹ Íõæ †è±ÛÖ<ðõ-\®X%!Pež×ÔéظKãgÐðéÍi67ÏaFë©VÚE‡}Y`¤„h—7óB$:{ûÇËOégqgqNÑ"uß9'´{±÷Œ´|PU8L·ÔERÃ1_ZUGšãùȤ“›Õ)ÚR–#ãxZ\rnâôµ ‡9‚L »d³ˆi½–öÄø}d¹ùÁ³¬ –Uyïð7ÏEù…מÿû¿øúWèÅ•sŒyÉÎWÐuß9O*„[Fò@!Á�ìê »&ÐZ”Cý\H²Xj8æ ûYIJÕØ©Œ¿ëˆÑzﶩ‹­wxüüœ´‰`‡r¬„®Ž!/ o+‚¡ÃØm†Íu{l\Ûê½qÌD;$‚™‚¬j÷üŸý½/—~žß÷Òßù\sOÄYïVµ(iH¹¡z ·Tè§"Ð:„ÙByq75„slˆµ­7€XŠhç-5¹WB¥±`ÊÊ5Ë~Öy›×,Œg9pPf3y%´9<¦³´ß0ʒ˪/»KíR§â¯~ú·«e=yþ3ÿüÚÏ\•N"cqV¯1Z í´Ö>¡z6¦Ð‹”5¢Ñ÷¿ó½sÜZ°£Èðq‡/!3œ³v„cã•ç¾óþ]µ·¸Ó¥Õ±nÓç•K$ç;µÜ²nK£Œ8;þÞêþÛ¯¿zD;,ö$âšû·Ÿ½°rÖ,Ây.zù“Ïè?þ§OžwŒ¾ýî˜eãJœE ëZ%}Nåá—Õ8‘èKÜ^°‡ œS·2¹·= Úœ£k&UšC„;~§þw&ß“Y‚À“2ˆi«ä¸å»´N[9÷l‹ªâ¬çv,ÎœÁÍsžÙ9ÿݯ½@?÷µs ­Ï®†5”@#O¨â¬{ÂA…FÉa`>¦í"ôE´M¡ÍsÏ£œ2Ђ>ò¼|øZôr¡õ{Ó-‡¦‹Ðø²-ÎoÒcÎ슟üèãÒ÷±0óT«ÑK7¶ ;ܳcq~ßAoz¡ÄãÏ`_‘6Ç A7È —Y’©,DsŸ6ÃÛ3qÒƒìÈïÒfxLù?üÇJß÷ÕŸùÒÊI›áíq†{.àz‹MÛŒU§àn1Øw ;žu%ˆŽ-a^ˆXg²UgLë06'}ݪ0 “]?Àn¸ œ Æs¡Kö~¡ìVœŽ®/R}†Û öhÎlÖËÇ?IiÜe ΟÑ改ÕC_®Cœ™/¿X=èÊ"]Âô»ßøúnÅ°Ä™I$c€}š·r¼-\´?d´Np sÚ› ­W$‹ ‡ÍnùöÀÝò iï%ÎUÜ3‡´9nn-Y°“Üó@ÅyÕ»®aw,0l‘~LÆ<bàœ€òçSk§œÐÕe9á–kpÍL•u´õb%übÎ~ô=ýI¡‹Žp;ˆ³LkZ:¼N½³ �‡ºè{´Þ9 øã¢#ãX„ÙœÏbl9—½Ý*'{•ÁãÍìžyÌùÏÿòÓÕÛ:[ßýÆ×1éÀ93®Çí êéKõº)‚¡Dœ‘Òzó -ÊüMÏ[~­û_ÊÛ¯¿zJL‡ã¹ËeÍŽ™Ãßvh{ pÏçÌj<9Aì.n;¨I¤Ï¥‹Émdhh.yjD/’Qæûô}‹Ç9X«¸gí ?¯¤Í*÷|¬^÷q{Zšç¬QÂø!µ¿ú’^[Ø_ÁŸ Vd'¨)mΡ-™9­C²Xk¸¼¬ùÿ´@\=gy×¼óÜæ<8\ýÿðo¶»¿ë•…Ù¼‡«r¾ýîƒÎ¸Þòñ’b½œ éÜ8hP³‹æñèRת8éÀp€úçŒ&7Ÿå­×_Ðz.³)ÌzŽs€qåÊÔ’]%´½£0­gE >ñ²mqnºÀ‹¿òz†1hàHG´ÞraˆQLîg9´Mª;*ª _1þ¯xl‰r,¢|§Îý©!ÎÕ©ÚÞ@·×Co_kû€J›^1¥u¨Ð&/Äÿ;ßÃÚ® 1>ýÃß8ÓBRñ#,D¼7òc —s} åô¨hRy&ùg*[xÞ’ëPþð@&e9‡KÞ]7¹(£Jh{i¿½´§ q>¢Í]lš 1\IÆ4hC¤O¥NF?¢·IMµÉÆcjý³ ˜ûJ/tµÕù˜li¸fȼ>Xœ@5ç7üÉŸ}\e°]YJ]H”8ß8·'еöÞJƒIÁϬJ:S}/hA¤ ‘Þ¥¡L —ya|Ÿl=|Ðæ–maïxµú·u®GF ,¹~~FW ŠÀ%×"̧ÔÀü|kæ&+ÜŽa×\X ô;-ôúu4$ÜA˜Zß[M‚…úXêà„vY§Æk‘'`êûOhs¯e[°Ã-˜•ˆðóç¬H<%Z0¶^T"ÈsdìÉ^¯8ï´5dU moÔs%Î7!Îí‰sáí"6ÿ6·Ä;FÃ�ÚêZ·Ž÷¬ëºCšÎõ²áó>6{`8øª×�An^˜©Á™� …¶M&C›ZuÍåÁ•@7fÙQ IþfŽwñûC4pì¨C*‹ÝÕiçý;Ï- Ä50þ!¡ó…ò‚ÜŠ8?¢Wàj!´)q~âÜ®@ó|ã6æ´iWni,Èh"Ðq_\uHë$° c—’•™»Úš0ײèHÿþ‡?Ýg^ó.ÄJ 3³æš'!ó£–—lq"sÚ ÇÍ•8ßÆã <ë#ÚÌÚÈŸUÆRZ‡ÕÈ°v.Î<_8nú8ÿïúxÛ®Su,NÄœök¾œHK b¦K¸”6Ãu<þŒmæ@WDû˜6³µõÏQâ­3²íìì ‹xéš3j!sÿ¯?ú[zò£7WC™Zå“8Âغq)hÝQÈ”8¿‚ÇôLÄOvh°—î¬8·1mõ9üÁ߬v£j˜P tï£1×|:èµ7ž–7ß™äwKã÷X¤�ÐEq~¿Åö”~¼ütõj˜AL­ºîÓÉHòÕ„ÚÛ~O‡¶í5ŒÚœv0Åc�è kÚ<æÑK_jã0¼µäĹ}æðYز@SÎñƆ@ÅÕ�@WˆÛ>à‹7®ÓW^¼¾ìãµ ZœyS õzS³Mf!žç¸ç…õ��è‚k¾EŽ¦Û}þùmgÐw÷ì›sæÊÄa픞Í}ž¶(ÐË’ß…xä�ÁÕP\òÉg_$-µÛ½vϾ‰óÌC¾ÉY‹ƒ*¿��Ÿ]ó©C3‘Ès¸ç‰ó÷¿ó½‹œ›ÚV89h±#���}s”‹o½õÞEŽÑ‚{îsf"j/”mw²5��À5[‚,[<¶avzëž}ÌÖ~ê¨7”•Tj¸j��\s>z‡¿\±†{î8ówçأ† �àšËI¾õÖ{öf&IKÇî¥{öm*Õ‘ô¾Fžœ’y <þ��¸æ\®¸dI KpíƒpÎ|ƒ]Ì'^ætÖ¹¤xö�pÍWH•k.Úðî¹ëâ,û:GŽ_$Îþ7öu�À5ïvlÙ "ƒ{î¨8+a>¡ö’ò•ˆu‚g��×|…̘>UD[m{¯Ü³sq6Æ™]‘åˆ3ŸÏâ �€k>øØÉ@Ê¢wΙ 3ptì¼ýœ3ëw BÚ��¸æ«í§rÍ¥[鶜Æîùâ|¸kæBtµìrK//4Þ£ ��À5_a—p5ÜsWÄYÂÙ‰ÃkÑÕpvbufÊ5?Áó�€kÞ_œ[N ûàž]:gÁÀ£²Èä|´`s†ö4��Oq™D›·èˆOç;íúÍu"Îâš}+¼”6ÃÙž}�€§®™³’]î1ï#è-žßD¹çcˆó~½š‘GåZb+×|‰&��à)±Ãc'[)¤åÄ0×eÔ=qöÐ5Û+qvöC<û��]sàRœøl›¡íH¹ç#ˆóæ‘kÎÈg¦ŒU��z+ÌGäv¬9­°èÈ6÷|IíîSÐÙöÜ•8û"Ìd sˆ9Í��q=$×ðH óMœ%¤=öàºõçÀøa�xîš]ŠÍA®Ù`NÅëLÔͨ«Kz¶íœCO„9³„9D�Àsf=pÍH ƒ8oe a�tÈ5ó´ ¨®Ùìh´E'—ôl[œ}i›=OL™�tÄññkuŸÊ=óT¬´ÅóïÜØóÅy£÷öÍßý7ÕëÏ>�ÀS×ìz™Îº]³‹Gç%i[œG–o ™)¾/ k��à•‰è“k6Ü3ïh•Á=û!Î>Ãp¡úŠ�à‰kv½LgS®Ù…{îÔ¢$çMõš+~ �p,Ì®iÌ5;gŽÜN Îùd)—ˆ{ŒJ OÐD�� £Ë¡À¦]³N ›·xM mCœ‹‹@#Ì �hÛ5{ $qKÇi3:0îÊ´ª¶ÅyÙ±g„{­æ>#��hÄññw͆{¾hÙ¸EçœÞÕ �hÉ5s´.ˆkváž;‘q†@�üf’À’¶\³ÃH÷î¹Uq–Õ¸²Ž ô)�@3ð8s00×ìb½mïÃ\L¥J:þð̱¢� ×|Lî7i`×üÄÕ±[<¯·íõlâÌ!›e‡Ÿ¡U’š�@ÏŒËÒ¥£”Ä°ܳ#q–=“gˆÆ¼Ü'Ú�@M®™óYBǧ1S®ÙõžömjÃÄçÄ0'+„)~@Ý{fb,R�¨A˜}HË<1Msj/²êõŠa.—ïœôà¹Jд��íè“ûMb\³N ksØ0‚8_uÏ—Ô‘Éà[àðö]´-�€=]3Ïþp=ö¹PÂ|îQ±´éàC_·’tºñ…èó¸Ï›d��öćöÏ«Ä(åžÙ¸µ™æ¥It¾+•è;èNít�ðÆ5sRiàø4æñÍ=CœKzÚáç â �ØE˜9™4†k.î4´x,/ç<{³Ÿ³è‡ôl'¨EŸ5ˆ3�`Î!v¸àÈV¬æ{¾îÓÉp’˜z½æIr'°¬'� ¢k¾/FÄ%<]É÷õ&Úgï ÖuïˆÌƒ¨[+q…hv��%ÂìM8Û‡©S%î¹Í­$½ m_÷õÆ(~¢^·EôÒ<wc��Ü`©gS§ÊÊ«-Ž λ‰ô…zÝì€H��Š]³áì•kîP±Í¤ÌÚhû½ m_ëZ—±Ý˜< #«NDçÊ�Њ0sÈÔ‡dW^?û^×Êï»ßøú-jg˜s,ó¬sÃ3á=:6œè2§RkqžÂ±�:@âÁ9,©ƒÉ¶ŒÌÇJ 3j~^x¤^^t^œŠ³¬¬I8!Äó �è¡k~ƒ< gûžVÂœšÉO-ÎJ”õ¦â]�@…Ù‡µ³™.%‘´P–«¬mBÛ­'„ÉF 3� çÂ|Dþ,MÜùöVs9”²jÍ9K;¡þ®¦µ ��ØtzçáíJ`ûD�ZÐ/BÛ­8gæ6 Õ%K�€g®ùÌ“ö.#ÿWóÍ>l#ÙVX›…¹ï‹t¤h’��2mÊAŒ:žæªuÞ±j\œ•kö%S±=:�€ÿ$äÇÏÄÓí ÷F–ôlƒ°×â, †Lò@Â9�×ì‹Yö¸ímÃõÞ9'y&ßÿÎ÷ž�`ÈÂ|Ë#Aì[8»u#$«’õOœ•k愈` ÏåP:!�€|a>ö¨˜+a~ÜãâN[:NØWç<г q`¸Â̳Qxõ*Æ™ûΆ8×àš¹9”-„´43Ú»>ÍiÎåÛï~ÀímãÎãï~ãëG}sÎá€Ìm�ƒuÍ<|ùâ(•0?Š)ê»{nJœ‡äšŸ�`ˆÂ|Bþ i-iXK"s¹·1—âÜA†0¶�Èf=Îì ½g›ph[½ÚXb³wâ<"Œ50XX˜OÎeHáì+×Þð÷;3špÎûÁáìÇ�¢k~DþäÕ -œm“5}€ï~ãë§pÎÝ€¹ƒb�`ÂìS3R8Û…8»2›M‰s_×™^а2Ñ�kaf•xtJ¼ØÈùÀoK q+aÆ83�ƒfÎÌö)lèál8g8ç „€Á óù³Ó”¦ÏkgWæÛï~ÐFH¿WâœöèþOyŒ À`Iɯ$×YÏ×ÎöÎ=»H kDœ%“yÙ‡R]ËCÔ}�ëšy&Ì•ŒqgÚgr0mîFƒßP7éà+Q>G`ÐÂÌ{3GÒjœálˆó¡Ì¤b:tƒ!Ê��=eÊ7sÁÓ¦.qwœˆs¨^Ú¼¨Æ²µeÍéYGn,'{½a�ˆ0'ž¦M¹¥u“ÙèT*%vÜÓð=s;@½�ˆ0û6—Yˆw§V¶ì•8 \©|OKP¿¼0û6—Y3Á8óV–}¼¨ÆÅY¹g# }wÏßüÝß¹:À …9%ÿrd"Œ3oçÛï~pÑÆqÚžNÕÊ a"ÐÏ{8±ècTu� Ìž`œy¸î¹µå;eî3;èÌãòHPÇ€0{�£b¿øÝÊ«i‚^Š³á Çäï b¡rÏ·PÏ€0;v˜ÏìŸsî¯8‹@?U¯›äï*73Ôs�z/Ì<„•Ÿë0`œÙOçÜ*Îv¥’iVù7VÀÉag¨ë�ôÚ1sc>öðô°n6p+Î"Ðœìz(Ð3%ÐG¨�ôR˜SOsª„ùιÕÎœóýœ©V> 4?¸HÆ��ÂÜ=›Ñö£ ýhµÞ\÷¡T=è)Ü3�æ–„ �ÿÄÙS¡' @/„ù–ÇÂÌ ìp2ˆó°:F ÓÂ|—ž-Éé«0ÇH�;œo¿ûÁˆó°:À¼g�:)ÊGêõˆüžÉ+€=ÀÝê Á ÅÙèÈ“Ó‰P'è”0óæÔógw¡„ùîĹSâ,ýØ“‡k‚5·èŒ0s¤Ë×9ÌÏ…™üß ¨‹ôj!’ë>ŸœÌƒö!,• Þàµ(sû ò{|™ÁҜ͖-ĹEæIù©ãÓÀšÛ�ø+̧Ô"X<Bdfƒ^ˆ³ÀSš2×îóžðÒ-sç=èÀ)cÊè—8ófä~Î1‡ÊbT�à–÷fL™j„µ ô¥âÈ«†â�À™(«×›rËZ˜Ïq÷§ñ„°ï~ãë­%_ïRÉËNV©ãÓÀ–’�´/ʾ/ p—Vî›A˜{EkÂë,œˆÜ†/ÆÊ=ßG 5aæ-\3z9uèÔì2#ÎÊ=?!÷óŸcÌ} yQV¯÷éÙTÆQÇN?Á"#`hÎY/P2wýð¡ú�и(¼³°‰'°{vÞæ¹Ïwñ<��Q†0{²µ=qÏO ám�º.Èœèu·¢ agC ]‡·G„ð6�ûˆò±, ’ѳAÇ/ Âìžõh6Íõ\»g„·è†(ß’yÊ,ÊSê^¢WS³{¾ýîO[ЂÖêkçÅYÂÛ±ãÓ@x€í.ù¾„®9Ò5éÑåñ#q—½¡iqnm·³>8gh~8R‡§€ð6�WEùÌpÉÜzv‰XùË?z“±}£OŠÜWa2oß—UÌ�ª ŸÐ³põ„ú².rgØ] À9Wtϼ8‰ëd�oŸ Z¡ 2'wIØz!å¾ saöšq_.äzŸîŠ¸V×a9¶–dvËAÏ/›¯s aöšÞt oôðæDŽ:ìMÐ;A–çk2�!¶ÁT)�ç| {öakÉH¹ç3T/ÐA> C¾ò<C˜Â9ÆLzø.‘™è…t�èŠóL(î¸ÏI]U@â€s®Ù=û°´çjzÆŸAùؘöÄ‚4§~'uUuH„¹s}¹¾:gè %Œì §Oƒ3õºgø&ÈâŒ#êV†ë¢…óbaˆ3ĹYbrŸ¼2Áügà‰ ŸÐ:\Ý5AÖëoO>N· |àZß/P ã)¹]=L)ÆjBÀ… GÔ½ kÊ„ž…ØCj~…1ÿX óSÔšîòÝo|ýý†ëIøíw?¸€8×'ÐoÛð6³J.A‚hAoÑ:©«“‚¬Dò ƒ· Ê™¸å Ôœ^ˆó â\³8Ƀﺡ‚@ƒ&¹‹Ö™2Ï#~"×Ò†(“c· q®ŠæÖ4óÚPnšGámnŒÆ’QÀ¾b|dˆqÓ»<¥"ø㟹ò¥q=SjgI¾ž)Æ–!ÎgÚux{i4N!ì(Èdž‡ w YÀ8¼üØ8þh=EËþN½QFÔÒó7ÅNR½çGMÖ¥6ÅùÆÀî],š«LUv:¼žªÎ” ò©!ÈAƒ‡Zây™sw÷xnrY¾ïLÑ°¥¢DÂ×0È:úÝÃvÎâžOÈýæZ á Až; w\5Ä«ÝnJë°qÙgçòJõxoÁ9íòÌd† _ä\›vÉm‹ÏÅ-?Aí„s~§Á_ªœóM8ç†àd,%ÐSr»½äØè…:Ÿ ’ÄàŽi·¨Žv¥©)®2v›ˆßÒäªÂ¸‚�êó¸´®MO©ÝˆU*NYØÃ"èË…ÜâÝSBøCÊÔ|"M™@ÏiâŽù¼ðl BŒO,w\UŒÓ"4˜Y"¨lr@T"?G†ð-‹Î£ådµ<玩QÃtÍG ‹s qn‡ˆÜO¯šÈ çÆ“7Êàÿ³H£aéŸ3‹‡T=¤›.·ª°Îi=66¯##YÆ‹—\£KAÖ¢#ÙkÐŒût1׆|'=Ö KBë´øß Dº“B¬wu2Åx—ž¹vƺæF3d+”ÙÌN8ƒtÎ÷©Ùí‚'ß~÷ƒÖêÙµ¡ßPÙw9ñätÚÜ3wÕð(‘FÃ㯠1SõHÌRîuçÄX®]/z’›èSJSíŠsk«ƒAœ×í²çŸ×hÏ ‘ÅYÏÄM#³ÛkñÕÿÞ%ã8³Äø²ƒe`αvµ Y"¢Œìk`‹ó›ÔàJ›sœ™¸¥+¦Fƒëš‘ÑûKŒq5OSu$qÓhœšà­ÃÑáÎN‹ñ¢«b"ãåSr›<™É³€¥6AYÛÙ¤ij8çµ{>¡â)(®™KãÐ:äÍÿŸ#ä}ðщC:fZˆ"Ä—=)Ÿ»Tÿ”ÃŒÖs±¹GeõãÉ ¢snréÎVç8Cœ¯ ô-i|%5\u$nFÏ]M0WzgñÙuÁ‚”ÖcÅ‹.;â:/Y u67‚ ¾?oŒP»ä¡k°ƒ05ìngJœïAœÝ tn¡n2iÔô^·æô•ç B ô]I|æ†kÖÂkÿ̆*²Ì&?£ uÒtÅ[#–ð/ —Œ/°87½±Q¤Ä¹Õizç|ö)Al¦k¾·Bã•Îe©Y…"±ÄXfi9Ê?C£ÓBRv—{|ß}éÍ17Ô ÎM›ªV3µ!ÎÛúx\¹iâçãÐ"Öf–q˜çp�t\œ{³Ĺ\œõÅ]]u&5^ =K]×±µ~1‰ü{D›su3ã»Èü��ðHœ›4S­'ƒAœËš…lA~fpïã¬MÇœI(\g,ç&”‰û¦<AG˜�à0÷. â\M }žbU:›ÖL„¢"ñ•¨B$=Uˆ4�À¥87=˦Õe;!Îè]xžµLF&¸ˆt,B~5�à@œß gÑ¿¦”8·>[ã:nm9î ÉÁ*1ž WÌb·œ°H+a~Ãå…d¸�@Û„ ~wæB˜!Îh“]wçâž*ïC}¬Êæ\þ}5�ТkÖËî6EêêÚ Îhå}×M‹k>%Á ��Ú é5ß­ qÞ_ =¸œX]Ïk´NîÚ‡‘¸f$6C-�´DØð÷Ã9C [e)ç?S¢úN ½Oè©ÌÎàž�=p΋o¿û³u Îû ôS¸¤c§ÎŠ@:«±ç©³%êÆÒ§�€#S¨šœAã´m‡8(Ðêu‡šM㯽7oÝ‹«ŒxÁ#ª���MÒt;“Bœ»/ÒéÙ˜mÖÓ4Ø#Ô˵�Ð0QƒßÍS¨œî9�q®O /E }OˆjÃåP#��MÑBH{îú!Îõ ôSY”ƒE:E‰��@#4=…*8÷ÔE«ïbQ7BÝu¡ÃÙ Ô�@C®ù¨aqvÒ†87/ÒçêõÊ€DZG Ö�4éš{›¥ qv'Ò}u•¼×ó¥l1™â®�"jøû!Îi^‘kLÝ›]F,?9álŽ» �¨›ï~ãë¼ÀQؤÉpµÑÄÙ‘¾”ùÑ=ËîîúÔ£¹ºžÇÊ5Ÿ‰ƒ~Š» �hÐ4…7³m°Ÿ³ëROE°»ÄÂèÉr4 ‚8�pÍÜNfÔÜx3›¤Àå’g¿…ú–õ¤§›ÐzÞ4÷8g2ß��êç» ;ÛD ó_®amÏàð°zÝ“YÞvŸS(¡yfa�4LÓ (yµ€œs7Üô±8i~…-–C<#£ÂNE”cÙ»Y»|þý �hÐ5s>KÒà!RåšoútÍ7pÛ;á¦9{𡼴(²Hë‘o$Ç™Êâ$Ó¥øo Yl��š$jøûß.ιÎú‹¾v.ÍâÏI^ç¦(Ó³06¿��M»æ¦×NàÁ^ñíº1æÜ?R%šÜé:tü$ažŠ0ŸIï•…ú„�ÐñÐ\3ƒ°vYøY|‘ˆc `��Жkn'½ÜIι‡Î¹†ïXèÐ{�€¶]óÌ—yÍçþÓÈ}„±�pÍg°?ã&¾TBÛ��Ð×<÷Õ5CœûMvÀgýy™c¢8�=rÍmˆ?ÄänCy¨8/7æÈ� ‡¤iaöe÷)ˆs¿13³W½Íïç{5}g(ß ˜�-¸æ» ·7^5CœûEjþGBѶhïJ(Ž\;æŠ�а0óÎSqÇ™ù<Ö qî™õÝë\Ô Î¡!úG(j�@“ÂÙ°è„k†8÷‡EŽ°^qÔ{ŠóH‰ò‰|Wˆ¢�4äš9 ,jø0q\3Ĺ'äì5®AœMøᵶ'(m�@ÂÌQ¹¤áÃðÚ»R&çþÚ醤0íž'X„�Ф£¥æ“N£.ĹŸâ<2’Âæ|çD>èжlW ��u¹f½Û]£í£rÍ]*ˆs˜çë¡â¼zù¹Úªk½O�€×Â|TCÕ;× qî2î|e¾3>îÌ"Ÿpå–líÌpå��p¨©hzš¦÷ Ž@œ‡åž'"Ú\)™RÿæÐOCˆQÔ�€]ó}j~HF™:qŽ8“1>|¨{å;¦ÚÃ=�æÓ–:ùQW¦NAœ{ŒrÉi3´­Ç“¿:èH:†{�ì)Ì'ÔÎ8sÒµ$0ˆópÜójœXÆ£³Ý3“I7��Tf=Ÿ¹éqæ%5Ÿq;a¯ÔéžIªaì�°;ÜÁoc‡»Î†³!Î=E\²™�×$Î$ÕBŸô\¹ç»(u�@×ü¨%až+a~Üõò‚8÷ß=ó"§’µø½#y-Eì9„"9 �PA˜£µ¤ž¬Å�qî§{>§ÍÄ°8G´÷%ï‰@O©£S��½ffÒõp6ÄyXî9÷Ì¡ž¬†ïÉ÷ ¼ �ðE˜g]ÎΆ8KœóÜs\“8­÷Fåqè1²·�Ž„y¡„ù^ŸÊâÜSd©<÷|^“{ ¡ž‹èDzÄ'��ÂÜ–0³IèÝv¶g¸çCt&BÍ=¥v��@˜5Q×Î.ãªR¿‘±`ÓAóÞÌÕïߧúöOÕÈ+RǸƒÒ`P¢¬w˜ Û4 } gCœ‡%Ц³ŽåjÂå²8§| %Ð÷Pú� B˜¥=·xXÞ£ùf_Ëaíaÿf‘žJævZã1XôõÃêYô�à¿0s"è¢eaæöfÒçr…sŽ{~ÓªÌcÓ¬¡C&mÐ{a>sÐçv+T®ù²Ïe ç<,÷¼´Ä““(⦎§:Pì�ôR”$ñ+qpøiß…Îyxî™÷w6Ç™Y˜õ<å��PA˜]Œ/?ïô+a>B9Cœ‡'Ðvx;”Ÿiƒ‡å9’¹×�€î ó©<Ï#‡çý™ÓÑGX{xDd…·Å9Ç /“Î@ŠJ�è´0ß•N<„â êFÜ«éœzz~@›[MÖ…~9–a‰O�:'Êz|ÙÕ7ñЄ™ùªÞðøþèÿzòŸÿæ?à†ò«ÿRþÿ¿ˆ³þJ‡Óߥǵÿu¬©s¸Ä�À{a>·::c~8IJǘó€ÉfaæwSKpf´N<KèÙ|kŒCà§0ß%·ÛÁ&ù+„µ‡MD›¡ì™hÜÐñÚ\¬$E˜�ïDùX½Þq(ÌzóùïÄyÀˆk i½ §´^#»)Ö.z,½ ðÇ-/È][ óÅÐïÂڀĽ¦´NÞ⇓ÃÝMÏeLis*W$ £��ÚåéžÆB„C]gà‰@å¸ÜkŽ•@?Ä Qæ龎Ÿ w ¦fˆ3¨.Ð5?·q!ÂlºhNCF7�͉òT^#ǧ3jF6Ä*ÐSºº*PÝ»Ðè,ñ‰qœ™8iô¦èŸ(gü¼alˆ3h[ õÆêu>ä©õÄm„º8L”y=ìØêüºdµ¤/ÂØgÐœ@ë÷TuÑI…b)ï ïå^¶Þ‡�PM”y³›ˆüÚûalˆ3¨A YŒC ¹÷=ËqÐzîr™¼oVAÐçÆûGFg€ôî�….9’WàÑ©-Ä-#Œ q5ô­3ªÉáØ×…îŒÊÃfKùüˆÊ<Yß9µ;D�¿]²†×Ç~€»qõ tb=ô,”¡õ»¥Ñc¯Ò@¤"¼q­Åb}7D YOäYôe,nâ ˆô–{5—ûY‰ WuÑ”ó=y$"Èm®bÄ¿ãݵÎq§@ÏÙ×°µý\Ïà–!Π=>£ÍÐuJë©fï}.¿‹©ÚXtj8ã¨ÊƒOë$5S¤ugaŽ)X g‚¬Ÿ±ç§›Š[Æjgв@Û‰bzê“β[¿×Ž·J/?‘ïŽ+4BKÃ¥Oéjˆ}&nè¢ ‚và”WÏ¡ę€8‡7Íc¿ Âß1U_ü@ «ß J£ N:Ï©'"Ò—]d;·Âg†8Eú.mŽ§´ 3çDë¥@3ª¾–¯~諸¨§r.™|¿ý™ÌpÓyÅùäØÚîøbMlˆ3ðT ímžïלã®g†˜óߦDš²Œ‘O­O/:ÃúÝÀ#a>¡ÍýÕ}fÕ Ç¸2ÄtC¤ïÓæ¼å9­ÇËCTYlW«}©ÏœÊgši=åÄvìzŠÈ€kaNÉÏéPWž)ì· qÝtÑ3Clõ¸ñœ6ÃÙKZï>õ$' ¼)‘>¢uÈ;°Þ—ˆH#¡´)Ìw¥>C”Ä4.ÒÛÆ¢ù¹”¿ÍŒÆiJ嫆™"=—O¨<qì¹HË9žÒz¾hÞ÷Îé åcª>´Q†8P›@çmäËïÌÌíLÿQŸÓ;èD¥§pé©[e 5™>–qžEnaoД[6;¯e�q­‹´êÎDSC¼—òâ¿%"Òöçª0§õ^ÓeSQ2²,1Ʀó–CLaop˜(ÛÉ“¾‘ˆ(#bqéSÚÜ*q\"œnx&"½KÒ˜éxõB)U¶¨œÉñžç{Fù @dòÝ ²½AEQ>¢õ\ßx¾`Dâ †-ÒgÒPfo]þ¯Exi¼i=m*£ò·~olŽ5K˜=¢üµŒ´^äao'̧T}…¼6Éäyšcž2Ä�[¤Í9ȉ!¾Z¬u¨{Iëp÷¾"½0œyTò~-¸9î?"„½A5a¶§úÀ\\2ê)Ä€­"m‹mžHgòÑzZ–Þ:Úñ™õ’ÊCÞå¬*&IdEëg†¸#L8\a~´GÝl 49Cèâ À®"m/bŠ´vئHëLj½"Y•9ÏfcŤò™€ÊÃŽzœù±uÞÇÆyª|ô^˜}™»œŠKÆVªg�i{Œ7¡ü1ið¥ÿ=7Sõñ½¥áv5A7;Zû-Z‡½K8è¥0Ñnóõá’ÄtN¨M±KiÝm:ì¹!ª©ˆ`@W·‘¬Ò¨í"ÒÏ Yó ·$‘å&Î ²Þo9$w»I­:¨pÉg�\¹i‘^HC¨ÃÙ Zo wJû…¼—†«®"Ò…›il™’•’±bèœ ŸÒzkÇÀÑidRÏ1 â €nZ7Š ­çHëqi-”Kù½›Óî×g´ã®"ÒD«Š+ŸÙIh u8¿ÅøÈrÇ.W÷Ò‚ŒŽÄ�ïDÚÌ˜Ö Ö‚6WøJiªïÑŸÛÅM/ŒïUüLÞ¼i=&YŽkuîpÒ^:äÈA~Þéüdˆ3�]êcÃM›«ƒå¹ióÿ#*'ÔaíQN#©ÿnq܉ü=¤‚v΂,Dëݺ°ú˜Âœ:<…¥á’Q Î�tZ¨Oh3Ó;£õxõÈo2Ä|!³Ý¬Z-êöïSC¤Ë1'²M¥9ÕjIƦ%"=“÷Â%¹ç7ÉM‚W"Sð Î�ôÓQ[!å3Ãa“!Þ#ß…!ÄyÓ¡´“Î[,³>—±Ê˜†¿ÛëyߧÍäµUÇ¡n'Â|Ëèĵžˆ°5€8ƒÁŠö‘á¦õâ&‰!ÌáŠm7mfsÛn:¥u¸\‹lJVHÛpÊ#²6ݧ=³:pÑí ó ­¨iŒ#ˆ3�B­ÃàC”µc A&ºš”ÉßF–€g†CÖãÞÛDšÈ wKVúÌøÞ…¸hŒ=6…952¦?ˆ3�„ÚÌÌ%Z‡ù^¨$´\sF›áq[¤õOþÜ$g PÎÖÛ—†ÃOŒóYŠ@c,²anj£ „¬Ä€š„Ú\,£õ¢&Úak16ÝtÑ”+S¤µÏr6Ó˜É1ÙE?°öÌø¾¿ƒƒEùXÄs\ÓWšKʦd�q ~‘Ö‰\ú¥]½á†¹’Xh¹%’߉ô<'s[ïÿ»—ýD~b¸x†“Íîà$Êu®ƒ½ÎÛ‹ƒ�ˆ3�í µžOÑzªVBë¹Ò‹7Ò:"=5Þ;³Æ¢h½æó0¶ü>5zaΛ¾¶«;N AÆø1€8à‰PëÕÈ2Ã}E´žO™N×e-Ü1­Ç”c+Ô­““fV˜ÛÜ+½›(Ûû‡Ãˆ3�=êX=-+5œò’6CÞ ­Câ#ãw«3Èš×,�þÛÂat+¢¬ï%ÆŽÄ€µvÌ©üZUG´^>ToÆafb/äw3;áKĘÿs¢MæÏÜÃ8H”—–#T Î�ôP¨uÆ÷BÜík©N-1m&é¶"+Ì}W¾¯H #ìnµ³(ëå\çX¿@œž›žÒzmí§ÆÜf¢õصé¢õÔžIΤSK ß1Dh<Ô…JŒmõÂ/eîóŽÄ�ˆôjü80ÖÛæÿ'"¬ ­—sÔ¤â¨7V³Z²¸dŒqi©OYnÓÜ*4Oµc�q�TmWÇdÌ6D&’×4G C&î\‹yª~s�.9’ò È�â �hB OÄ=“5¿Æ´N$›‹ƒ~b‰úH'‰`ëï`1ØCQ>5:,y$d�q�Ô)ÐGdŒ5Ó:£;¦õ‚'+IŒÂæÆB%:Al)κóãÏ\2vw½âŠ��ѽ©—žEO qžŠ™sšWapõ™T>?¥õk~ogÃÛ²æuLÅcÉ\&3dYƒ¾qE�€—"}‡ÖkxëD'œJ¦·)葱þ¿Îú%ôÝEa>£õ*kz_ìT",Ø#%Êw Ì  ¬ €Çè…G”ྖóûÄZIŒE83ÂÛzûÃNfoËö«…YôR™ì¤±0€s�øà —Jhß°þÄnz*cÔú½i3IŠt&®sÖµkW"ü@½škXC˜Ä�à ¢eµ1-ÄOiÑmŠùmë=Z¬#ÙŠ��q�ÔàžŸ)[NùR\õé–ϲëÔûJÇ(M� Î�€úúRÄufýžç7o„·sÐK„†pÏ�@œ�õ ôyûœ÷¹'Æç”$�g�@½ý$çwºdî"XÀ—ò¾3”$�g�@óÄ%îù)­Câ1Š �ˆ3� G½,S†{�â �h™²±ç§Æß#�g�@óî™ÅwQ2µŠ“Ê2Bæ6�g�€îYHägŒâ�â �ðÀ=Ózì9,Éð�@œ�5ºç¨DÀ‘¹ �Ä�в{¦Šóž'%«‹� Î�€šˆ·¹bÃ=óŽU�~ýœñéþFmßõÂoýK(¸‚ìù<-ÚÇYs¦^©¹›�À=7PÝã²ï†X!¡gcϋܳèaÜ�8gr»@¨ïžßQ"|sËßÙ=/Ôk";_�<�cÎ ‰²ÂìÛ¹�'ÌK%áwHÏÂÛ��O@X»gN¹ìÜà¤GBÏ¿.¶ô�~°vÏE¹ˆôpÄ°" @w@Xû@QîjÈ¡îA±uQ��Ä¢Œë�-#‰^c”�ç^ 3® tN »…b��â · ‰3=ËÊ�@œ!\è€�°6»��x²µ!ʹ ›�� Îf4�•ø'¿ùxU3Þ¬c,¯ôŸÿÑ¿z€’}am3Êt äD½¦„qt�q†A Ð���q†¡l���@œ!>��� Îf”���ˆ3å��玉 „ ��gˆ Ê���Ä¢���â aFG���ÄB‚r��ˆ3 |��â á����q†0”5��@œ!(s���=gˆ��€®s£ 'ùO~ó«=ÛÇudü)“×âŸÿÑ¿z a®ÆÙïq*å8¶þ”ª×òü¼v¹oÇè…ßú—(`ÿŸ§ó9RÏÎEKÇ=²êÜRû²åkß8‡×¾j³<¸ÿµÞ‡å«5¢Õã6É5ÏH½&f¡oa©^s˜¹˜§Ât_ýˆK¾+VŸ°£à}Qöõ×Ú<'ãû¤õ« )Ïù6±®rÝêA¹¶Ãƒ½¨p¿ù^ºqSŸ;•ûÞ¡ý «ã½Ã¿/ùÜx×FO}oY=HÕwÞÜãYº%÷=,)ÛTʟ󸦆zb{TðÖLŽ½zvËD+ç~Çê3¶¼ÿ¬ätÛ1¯ãº÷8n²«˜Hè:ÈŸòöë¯æ¾÷>ù…c£-oyÞ¹Lgü]5ßc}“ºDSŽÇ-ªWó]¯ Îy{¥‹+4~6#¹YüZ*јqePÂÒ¹›R»Ò]¢"ÊSyv<ÜX^±úžÕC«ÊòqטTìˆM\¹Ž¯å5ž¥ªeJòÌñkª>«¯aáصÞ泫>?Á}ràõ߯xÏÛõ©è7©¾ã®´a»—Ÿ±éÇ Ž\¦„ù<G”Oä=“žw¾÷³ß~ñÏî}ë­÷êºÇuѾ÷VŽËq«Ô«©\S"åë{»ñoÆœ¹ÐÕë éa…~ÝHn`@=ƒºJèXB׋ŠD•†`Úðý¿[±‰;²‹8¸zžô³tÈ3À j*Î{—žÔ»¥áµK/¬Œ¯Aã;%êõþžuŸj!®w×ãKTe–sÜ̺ö¼g,Ýv\vÆú•#B¦(©×R¾“=îûT}þ\öyÇ,¹ÇUÚ’…DF÷él. Ú¢EI½Šö=î ³<€é–˾d][q);ŽÉsÒJ˜ÏÄõt¢,å™Uxkº-|é!1»@㪤1Ú(;’aû|¤ÑIÙ7Œ´ÜÁ©Æ9õ&–ã>ÙÒèNäœÍÆžá‰ú{XÅimqU­‡¼Rc8ä؈Øå5c]õÞINéjN ×ëyÞù‹ÈM 3ŸM¸=Pï?ׂ\Qðˆ0EKòû…rÅ–»ÖïÀê¤pYÞ³Ê7É|]¾üZä”od®‘tD‚ªNV:-INN(g(Ä·›&-ã†m?“g¹ó„™|iו8e‡º•0ß­(t^ˆ³ñÀW9þ„º_Ûk->O·,¡Y9mÑão<lqOžÉ©Ë*‘ qêSKÐ9Êñ°ì³òýrl;$Té´#™œÃyÁq¹}à¿KØsnw$ÏÑÍ ÇÎ測#)ãÛåž%ÆçY YD« ÈX„6ïÙçï}—üž_ÅmO-=g1Ÿ[ÎukV±|Ϭˆ‚.ß;{3ׇh[~€ˆµ>¶ÙiäãÎÕïƾ‡¸†µ¥anD˜©¹¡ƒÅ´îŒfý}â˜g zSå9«xÿ']/2ΖÃÛ‰%Ná®Ã�ܨª×=ZVi<ma«sαÊqçú*Ü÷±ÅØÇWŠ„£ ƒÚŽT\}•Î¥)ÌÑ.™Ðê„Ì9<]ñ+Fê½oZÏ>—G¨„õNU‘çqæœö#Rß}F›C$|žSõþ×Ô«jùžçÔ¥¨lØ"'ª¦ëÖãÊ÷uì€ê,öKœwh˜÷aé[a79ÍH sÕа7å)zTá­Ó.„¡¶—5ò5ºæ‘Un{whø³eâ&Ž5¯ñ¼<𸷥nT‰ØLŒë^‰ô>Ãrα- e÷ÖjæU;96¶d—<3ª‹pî“›[ÏúÄê|¬ÊW}÷óŽWÁ8xQ'd¾å¼‹:›fÞ«nÉ=1=iã™<gam)˜h‡è°ÓB‡«%yLëT~;ä2$ò’PŠÈäý\––À›åùœ}ç>ïÐ#.¼ïû8°¼FÇñxuÒB(Ít~Ë:§•4æ¶k¬¥®pƒ*™ÛU™ËñŸøÅeš×114ݵ®š¢Æ‚§\ª95ˆÃÊ’®z=«p¯zÿÞ÷¥Ž™×eÞÛ„xÙµlËò¦«cÖ|­ç[:ïv4亥;{#£îÞ$Oq霫º<ݾÃSyÌqdžËÌâ¢^÷Ô뫧=qÇVmL¹¬Ôë¡)ÌZ€Õë\½n[¡ŸEÍç› ,º÷Ӟܦ€Êç²ʸÍΩˆSd‰S­‚„–;q·íüÈçSë¾më˜ìâ² …¹à;GT=Ïb±8D˜­NÎaÛ&Ì®ËtÏ´Gùf‡v®åÞšºJ†8[bR%œ½Ø%Œ!ÂòJNh¦ïTmô£ª ™p'H½îÈ}J9¹œŒò¸Âý_Öà‚|cê{(íÀz;:NJºSã÷-r¢<e“¤êÜÝma` Eg{þd‡²®Ÿž%”íª/ s/ :”¶k¨[É!ª!8ç*¢Ç®ž4ðÛ„åí {ìšO*vtØ1ï<&nú^ͳ*n¸ëãÌ…Ã>swwpO[½š1]ÝÂáüóeÃß7*¹ö"·¹«hå}W¸CbX-ä„Ñ÷*ß-׺,)۽˷‚{~bu¼Òº8óÏJÅda U::ÜŸ¹<I¾‡â6’*¶ORMGt˜f£3Úg!;Y£-ŽdHÏ]¥ñýŠÂœ'DaW ©j²X‰FÌkŽ ™å;n°³Ü9ç\¥¢-ub„¹–òœ­5Þ2sª0Î\sˆÒGš oÛú¬Á‘ìz—ì¹Wuu{Ôb˱:+Ò{–mm®¹kå{Ãq¥®ÚÈ´.xg¿ÿE _Ë“3Áß jãÌM…™‚ª‚ØRx¶öìmµ‹µpꕘâš2Þ‹êݲ§CEÎήGYM¢´B2¦ù;ƒ¾ˆó¿¬qönô†ŸGêØ5‡ÔPRE±É\¯”&ë|WgŽÜ=&¢ŠÉ²¬à!籤j›Äd,X—+§ÍÕªFâ ù÷«Í`jê„[»!¹æ¨Á>Âl R`ÜÃÎÃåQ2Í*·|ëî,ó³m-™ìeùúºŸóáìúÊr×ݬ Šs[š—[Ée«×!✈x•9ž©¬½][ã#î9¤«ËI"Î3™;ÌŸ×ÔÊöLÙy$e¾Á|rpÌûwçºB¹Œ¬ÎòýžwˆsGZ÷‚=¦Š»÷ÁÕTgöiC‹CÃ\KqéUʾ©ðöØè$ØèEfX¨3Zï)¼Ë&Cg»Ó Q<Z,ßxˆå{À hréÐ:Ï8øa-X ²èXIÝ ëcßqNKŽÏ!oÞNï}Îð®½:øã4ôëGùöÔ9÷0²{{Í“ó©%‡£Jè&¾o²ËžÉ;žG�nŠÛ(KH»£°ä1êOg«›EÐ5?M/ƒ8çîÙÑØsVÁ®voò$¼Ôø],ˆ•ÂÛM6Bâä9ùìžu(ç6.è,q¸}%æ=[¥­‰²]ÕÙÀ@AÛѱ=ÜkÃEX»´—"0€zz|>LȪ:O–·¬Mœwo³ ¶²Ž8ŸO­R¯×Èk缕<Ã󮬘an¶|!ÎþJà¸\RiPwyQÊÒÅس,¥ZµŒšZÞ2¡õ¹ÒWç =/§ÉØ´ꮎOì{’“á=´y¸öÚÛÇš*ß`¨…à"¬]EP¸‘p9­&ÍÛ b›°ñB¾:gnX]‡&¹<Ï~ÿ‹*ã¯éíºËÊáÚÏ:zàõ|`c|úmî6wýÀr7æ\ê!Ãuö ½(™ÿ<Xqvᜫ4P‘oåc¶³8˜å®åéðZ¢ŠçË Rwûô íÞöá\ÓÕ)XÓ-Ïq8°v3xä Õòmp ZˆsIÅÎc¤\Ö™/…äù4¤*åéÅžÈ2½ª@Å}{(}ot&ÌÍRFV>€Ý€öi+Ì] ÆÐ:'¸g”¯cq–‡>«ðÖ™hç»…x.ÌL•Õ·‚VÙ©*ЫvШŸ;Uø@²Å!ÚõnBA†ˆ†9hÛp@œ>ôEsº¯@û ì-Šs•Æ>6·ܵÓQsyN*ž3—¿Ñ³†½KáíËœg²¨“=qÎ霌þà“_8#P‹{–Î)Г!&Ýù,κ§Î]ùÆð{ÕëÕ>ì€kÖ¹ê®SÉ®c¹<¼ ^ï×ÙøÊö•QÅ·O›Z Ãá=«=è’³šÜ?ÚC±Û°È§sä«m¯ŽÕ-ïÊ··â,‰L»ô‚·hþ3»:‘w¤7Ï72è»0›®x‡÷òzÊ?à†´È s9óêõ¡Ü§€jΚTÍIG³:}‹„Däyx;Ç­,rPóâÞ§\~ûÅ?{bu°BåžwWß[9÷¢ªøú*ÔÆسœ6Q·ø;}uåNVãUªTÃ?7VeÆH³H}ni5ã¢ï`‘Â&²Z¼ƒHëM¸ŒÆC0¢âÌÓ&2RcÚ¾œ¤yÿùa½yˆæíTÞ”ã^ƒ÷læqÕ ·‰³\Ą̃wÕ¼ &'ú´W´•¸d/Þ’(!ó~Ì5‰ò‘Ô6¥e°¯ÐêÏù´ G­çCç Ü®±nK»Â÷Ñ»©pÎ6¾Ø1´i7Ô¡ñÚ&î „2ÇFYŽÛ,K©UÃåáÓ«Úa’Šerè=«-¼Í"VgXY\ŠÙÙË ¶—Ôâa:œ³šÎ¿'õ5k_‰°ÑPõ!¦*n9¥â%VkÇ'mŒ=?´Ú´I]‰­2T¶²õr*\ëâl®í,¡Í¨Áà mþaHÍMÕi¤,wœ^5ëáœÇˆê o¯¢!;ì,U&Ìs«C9ºšà—Ò‘bG£^oÒz!Ÿ9‰­gŽÃÛïˆëÝË-«×}C8Z7ž…ºíç#>$IÔ¨[s£^yiâZç¼MTã|Þ @Jœ¥¡lL ›Zó\Vc«ê {5þ,n4®á«ã'‹¯‰ýh×d:ÃQ„ƯÓm;TIØyšÓ‘zg—ñ<ÿÓÂ4±:^"!l»s²z•ÈV.{C”3«>,íö±# ]u¹çË}˜JÝ:Ù¡n±(?’ò5ëÖ‚<=áÅ®T,ЪáÏ¬Þ ÕØ` J eluÖ@§‡Ë³©ñ¿H”²û?–k»Ó£{öP¶–<D„ìŽèó< õÝ$_æ|VoØÏŒ-”E×p®Ž³¤Íe?Cé$¤òû…=~,‹—ècçgæË®DEc²œ¦„5”k4Ýî\ý>“߯Êß–²@®;ïÚù3‘$Ÿ B” êÖcy>캵º5—ºuaEt½Ž ŒÚ*_Â×]×¼Ù2’7GPH/¦Ž­Rè>«RÙî¨ šÐ:Ûú–R‘ÓïÿILª¹º¶¹,3ÙªvNŠîùm£ îw¸‡øs£Um¼¤ÕÃ0ïØÒQ¨üü:^½T˜ ¾¶Û¯Àl‡Ô{ªnåžÕwžÉ-畹¾n©[:‘µWu˹8WÙGX„î©FZ»¾hGaÑî;B–v…Æ’+ß+ªŒh÷¹Êsý’{ÓôùžKyRpo30ýï>Ý+Î|®Ú9),?~ŒÄFN¸ÑÆKœñMé(Li÷¡¥¹¸e¯N [°ÅßS¬3€w}Þ¸nÏLQ²cÎ{F†P·¼sζ‹¢g;à<Ht#XMf6Ú9©à�÷iøÃ.¹©szÞë$ÙåKî°àœSã碢 ‡uÝw™b‰ÓÐSæ² SiÔܸd^²Ö´Äáf{Þ'ÖlÇs)ê”]Èý>¡uxOO;[ß¹0:>ó‚¬ì}; '"RaÎó«½0Ž]¥ÎÙ÷»îŽšý<.Ê„ÙéUù+‘>6œ]Pð¼éa†¹_Wæ­çXM–oÙó³KÝ2Ë·¨^§;Ô-o¸æ‹kvAÇÄ}Â=>P$¾eÂ\·;÷½<†Vmr}¨D��'B>³o ´ÞCçì£k†0Ã=PÕºeÅÐUÇÎ��à’7DÂìþ¼†­¸Ñç‹cf;A¸2�ૈ Q@ø´"ξ…´!ÌûuhÚ†{Úv]>n�†K£cÎ.y4îÝîTáþ6²‚Ü׌±ç‰óÿño¿ÉëʦÿÓ¯~ç âê³ö>ª‹ÿùýg¹sÚ~ïÿßì÷f꽕æuªÏ®vÛQï?¯ø~½„\H2ïN}öBþÆs ƒ _óüüÔgx^ßrÛùÊõéù¬é¶²ØvMæ½SåËç:R÷æ …]ä{"õJÔw=Ùò¾9§ËmåªË²Ž{›sŒÚœ‹Yé»ä¾†roSûsÞ»QòÞ¿O]±>Ÿs)yŽªÔÅ­ç½í|¶”éB®ór—çî¿ú?ÿ`ãXÿî×{uþê÷¹ç¯þ¾úŽ‚ÏÍÑåï»´¿CŽ¿uŽ­z窱 îÿé®÷|Ë= ¶Ál[Ve¼­m“÷ŒÌk”s?5ËÚ¼^ù[)ºœ2+b£NÊ5Ѷú`•ãÞmBÛx1æ,âË}m¯Hi½n03V7"S?§9•Ý~o ÞË?gê½Kx^¹l¤þ=ß&xFƒÈ×4—ãqÃ2•c…òŠ¬…Ö¹‘|^Ÿ—^BóAÎñx°„Ö«¤é÷óõEê|pM‘œÛÍou$eÂö=grÇÒXÊáZɽåë ¤<âʙܳ¬J=‘²Ô;9éâù~Ï¥ž”ÇÆžÀêý¡|~jœï>uÅlª<[WÎÅxŽ¢œÆ¯°.–|§ÉÍ êò=s¹«º¨~Ÿ¨sºWõ¹SþªÌ 1.;ÿ¢:f׋ á°êµþŽx[9±#ü½_¶,%×לzšæÜk I°ëf,Ç›mC¢þ¿È:ù>™:ßKvÏÒQÑߧ¿ŸïÏXým$[_Èó¿°~"ï×e–\ק˜¶"(1!§ò\^X—¿1qÞ14I!GìšöthSíº9$*Žp^ L¢-7ŽßK[zBëÕÈ"»´*Â#©döƒvOÎk$õ¹õ¹/ :U=—ßÄú칶ѡ×TZœ§%âl6<»vì{{$Çˤ.œïð],�¬z2“†à^NÃÅ ÛÍ·’JÝ:/p7s:L©tNžXWž?[|.%#ïüïç²ã¸ò;Öë‰<GOsʵð¹c6Æï©ÆÿLžƒ:\S¢¾¿Êfcã<(q¤æ†OÊêõŽÌ$ÊñŠÕ6é¶ï­ú,ï½Y Š™Õ>®–ÃTeñÐŽ.hç¬~Þ´þv_:I7KœôÍŠam%œ”tR"éDÔœO¥Rb|d4 ¸é…«”mF6¿J?-9ö´Ê9ŠƒHˆèIαΫ„`vhÀŽ „ùùµå¹æ²kª{ÌWÝçÕöyªÅT¦þVA˜‡½q{ N3) V®'Ò°ibiüîä|æRêC"÷ªÊùÞ1:O‡ÔƒŸ-iŒ³CÏeO&ÒAzZP®¹ÏvÇæT)õ»s;Û#ÝþHç€ gj8ЦÊqVPמØQ=Ôeµ1±YÄ5¶0KY7RÎcÝ#£Ó_ö$Ô!|˜çÌg!cIÍ@JÕGÏŠzUFÏv.B7Êë¹›‚Wö®Ù.öpÛ»\S]÷ynoÙ}ÖûØÆUD­¢°Üù3Êyl9óiÉgæ;;«¡—?‘ºÑijզÀUŠ˜ˆ‹óqýä„r¶o5œ î@-tv£ uû©>«ó™H›vEteŒØ5si¿N·´‘z8çÐî$œ]ÅUíR!«öF*›Z=øm|hˆPì{¼ÒkªË=[Ñ‘çâ, b…È0ERcwV“%£^Å5—¹…]:ŠeõqçgKÎ/³]Q…ë½%çâÂu$¥¸ÛàsÐ$q¡$}m³Ü3Á-h¨+E¤#™j'jÜÿ8'rÁõ35¯«Mt§]Ú°9ï_oîöÖqnd̹êx³d厭‡J÷2Ïw=nŽ˜L«<°z,qËͬ¿ñ9ò8ÜÔÊ<5*n›âïé¸K¯©Nw¯3´ÕϧêÞ뇩l쎯mÁ ô¶„½Š®÷’Ç~ù>0~7µÓ°¢ˆ.('´X þzŒðñ ×>ÏV Udt<¸ƒP'ìïÔ÷âA…ûõ˜óÄÉégyféçn[8Õ¯ü½_vï$Ql›°æ>s9ŸË8tžó)‡ÙÕûuç÷^Qªì’dÁ_•zÌù’ÌÈÏ÷B‹õ–{:•gn.çVÔ&èQ¦®oåLsÊ`/dlúj'ã­{Ð:1/–ΧÝ&ß2êÒ)u×ÎyÕ£áÆÚj@Â2W•gìÊëL½~ KžÃå‡ýy½¯{èÍgvC©]u3Lèâšò dKg(/ÔVKx{aÑuê–z½IûíÓ[Vou]|GùˆßsšÓ�¯ž­ÊQ'Ð8«ç’;¢[( ð:‚±m“ óeÒò<Ý̬ï6\ójÜÖHL逭ËšÖÙÚ:AònÁ{ŸÈó:—Žèã¢gS·ÆRWfêúÞ¯:}jrî]fœsšÓÞGFôèŠ~ Ï9WtÍGòЧ2ÇÙ.ðª½æMXŸŸmÉÌMÄÉŒå¡ß–‰ºúÞœÞÿRÎñÜúÝêæ·8æ¼Üã®|MÏ2ß¿yÈ}>•Fa¬þm»‘€ÅTçìñ¶(Ì ¿õÏ.xê í—½m»R³Á¬•Œ²á‡?²îmÕò73"3©·÷©rqJ»<[™íhu&ºd›?Øãt²=?gwÐVëâ~¸ª¡¾m>w,|yÏÝ1N‹²®E`¢]?—sÏI\ý…úÎ%mf›áV3Z‘Ûfí1E—Ïûs\4C…ï™do—Få$bqG]ßTÞÏ¡îñ!‰a»–¯Ñ®Ç:'ÐIÎ}ä2¾ Ïqéœ'´ž´~¥òWqU¶Sà)òºS2ef!YÌi(×ÈSñXV*®çÄrŸË\Ï.¤»o×kªˆÖ›ÊrŸc:<{;¤Ý!HŒ:u›ëKNã¯Ëì¨Â±óêúRêâ…”E¤Cq><[r½1˜HW‡câ—,VÁe9á±Nv¡ös§ß[¶±E ØB;Óåht f.NLÚ¾i÷•“ñÔëÕx¹OùJ›?2žŸˆ¶‡ï᜷„ÝfÊ5=,p\Ú>S?oá<x|å~N5ÎUÔó—.ø=æ6zÜR9®Æ…¸—[±îsM‡DGøçÍ]W燘�·­¦EBÆç{tÜLOjnä.õB´}žø¤¬Á’ïZcÙ¢ Už­¢1z»ä¡æ|ï©•Ðô[«9¹D›s‚WÏãÇäÜ™xÆ~¶ÐHlä¤VGqAí!dt`‚TÁÒ§Y‹%Íé�EÒþF9å¹p]—½vÎF"XR":QÓçbižæ¸¾²sœäÌyoËŠ­Ó™J›më[ÇÛçšqÍ‹¢EeDe÷Y'Ó¡vr|-²@bÝ"†qÑ}•cgU¼DP´gæ±Ñð×ùlMÉ£LhyNíÈÀê¹+šOÌÈÜ\g #«X;Ö$§4nñôB*^‰ËÇï­í’öë.åÏ¢h»ŒýqÎ3µóÁ(§TÉUÕ pâXæÚ±ä%Må|Ž3�7Æ‘d¥U唟3qD:Œ˵]Öý0HBÑLŸ³„w¦R!oï{MÂ(g óeÉjnz ŠJî3¿§ªhÆ%îb,®ŠhX¥;$aCõç±ÔŸTgK:‘ó v<öj嶂hN¥g«ÄuÏäû-çfÏ ¤ìŠÎ?¨°žù¶ù§ÛÖî>!KÄa^Z¡à¬\ó¹S"¼zîxÌSæáÖýÜEIOÆѧ[Ê~Qµ³VP¯7žÁ’uÆõ*ksíÔ¥l#©+{=²¬*?_ó÷l þ©t~bùýAáú-å—ÛW:r}sÚ>û¦¸s•ô쵫JË*LŸJ©ú|æÜ÷J#hº¸ b»ÒèËâ3YjQ‡¬â-S‚Ê®cA9IEÒH…ºWÎÇS¯ Çsè5e´^×|M·DGŽisïm.îùfÛ®ÓŠt¤å71ÎO/OÊ ÷v žÃÇ;‘r[È=ŸIƒøZÁ±3Ê6®q[£¨®”>[FfkÙ=‹Ð¿’3N¯Ì°ëĤB½‰NKK£Î¥<3ùþI^H^ž?wªßxî¬Õ¬Êîï² Ž]·~i·¼Ì«ûÒ6$Ö¬b½6_Q…öN·kº^¦r ã’iŸÛÚ£çëÇóO)ëDŽnY &·Îç”{Qù†F}Qð]ú¹;/¸¦Œ:@#»Rµ¹å ¶ll |Û>§ì‡PÎ7ðHƒ]Ò•@?›Re0 :-Îh¬€(Wᥟ»A¿òk?KŸ}ü}ø£OèÃ?ý„>úÉçe�q��WNù'ñý›ñ”~þ—¿L/ÿÒ ô+¯½´úýŸ|¤„úSúñ?†(ˆ3è..CÛ�¢|(,Âüzï_ÿdå¦_þ¥éÕøUúÕü5%Ô?{mjˆ2€8`qçáÝo“¾ûSúêÏ]m²8D­ù«?ÿŒ>ûäsú«¿àŸ_”ºi~ý‰ú^ê_þÆϬDš?÷§ü7ôgÿ?;gš0…á‰qB ±4Xj×=‚õ]H¡§ðž@·ºêª ¸Ñ÷Bh˜6qÈhPó} Tæå}óO29ŠZ>GÈ€œô ˆØa»Þ™õòGEÙ„Ö&‘IG±&â4‹UÔ"[‘¶\kv…ýþ™ëïŠëÐ{³YíÌtž›·i¦/ýo‹ “B蜛ÝJÅÉr½Í”±‡rÇ÷ËÙù«Ua“¢åÉòõ÷f¯Ç³¯Ü<½$Ô^ ]Þ5ÏV*�€ ‹ÙGx5ÏpöFD\ÊXø8¦aWº>Îò;HHÎÌ`IÏŒ=©ì ©¬.m…ÔqUê}¯K’3ɘ hþÉæýGº5 ½¬¥6’.kQÞ‘4œ9HÏŒ?bLÅM5Z×}¬O’3É€ôL£÷jÐnT¥ÛtÝ;$MWGr€»sš ô뇬ØÛÈ<>Û_:7uùºzì#êÐmƒL"¡-,kÃMŒ7uÐ1Ë#6å9Ø£±í¬fþ«á¦ÔMÖOªº ËÚ�Ô7Ê.-ëOº����IEND®B`‚�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/modules.scm���������������������������������������������������������������������������0000644�0001750�0001750�00000122606�13502227553�015116� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; modules.scm - module-system support ; ; Copyright (c) 2011-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. ;; this unit needs the "eval" unit, but must be initialized first, so it doesn't ;; declare "eval" as used - if you use "-explicit-use", take care of this. (declare (unit modules) (uses chicken-syntax) (disable-interrupts) (fixnum) (not inline ##sys#alias-global-hook) (hide check-for-redef find-export find-module/import-library match-functor-argument merge-se module-indirect-exports module-rename register-undefined)) (import scheme chicken.base chicken.internal chicken.keyword chicken.platform chicken.syntax) (include "common-declarations.scm") (include "mini-srfi-1.scm") (define-syntax d (syntax-rules () ((_ . _) (void)))) (define-alias dd d) (define-alias dm d) (define-alias dx d) #+debugbuild (define (map-se se) (map (lambda (a) (cons (car a) (if (symbol? (cdr a)) (cdr a) '<macro>))) se)) (define-inline (getp sym prop) (##core#inline "C_i_getprop" sym prop #f)) (define-inline (putp sym prop val) (##core#inline_allocate ("C_a_i_putprop" 8) sym prop val)) (define-inline (namespaced-symbol? sym) (##core#inline "C_u_i_namespaced_symbolp" sym)) ;;; Support definitions ;;; low-level module support (define ##sys#current-module (make-parameter #f)) (define ##sys#module-alias-environment (make-parameter '())) (declare (hide make-module module? %make-module module-name module-library module-vexports module-sexports set-module-vexports! set-module-sexports! module-export-list set-module-export-list! module-defined-list set-module-defined-list! module-import-forms set-module-import-forms! module-meta-import-forms set-module-meta-import-forms! module-exist-list set-module-exist-list! module-meta-expressions set-module-meta-expressions! module-defined-syntax-list set-module-defined-syntax-list! module-saved-environments set-module-saved-environments! module-iexports set-module-iexports!)) (define-record-type module (%make-module name library export-list defined-list exist-list defined-syntax-list undefined-list import-forms meta-import-forms meta-expressions vexports sexports iexports saved-environments) module? (name module-name) ; SYMBOL (library module-library) ; SYMBOL (export-list module-export-list set-module-export-list!) ; (SYMBOL | (SYMBOL ...) ...) (defined-list module-defined-list set-module-defined-list!) ; ((SYMBOL . VALUE) ...) - *exported* value definitions (exist-list module-exist-list set-module-exist-list!) ; (SYMBOL ...) - only for checking refs to undef'd (defined-syntax-list module-defined-syntax-list set-module-defined-syntax-list!) ; ((SYMBOL . VALUE) ...) (undefined-list module-undefined-list set-module-undefined-list!) ; ((SYMBOL WHERE1 ...) ...) (import-forms module-import-forms set-module-import-forms!) ; (SPEC ...) (meta-import-forms module-meta-import-forms set-module-meta-import-forms!) ; (SPEC ...) (meta-expressions module-meta-expressions set-module-meta-expressions!) ; (EXP ...) (vexports module-vexports set-module-vexports!) ; ((SYMBOL . SYMBOL) ...) (sexports module-sexports set-module-sexports!) ; ((SYMBOL SE TRANSFORMER) ...) (iexports module-iexports set-module-iexports!) ; ((SYMBOL . SYMBOL) ...) ;; for csi's ",m" command, holds (<env> . <macroenv>) (saved-environments module-saved-environments set-module-saved-environments!)) (define ##sys#module-name module-name) (define (##sys#module-exports m) (values (module-export-list m) (module-vexports m) (module-sexports m))) (define (make-module name lib explist vexports sexports iexports) (%make-module name lib explist '() '() '() '() '() '() '() vexports sexports iexports #f)) (define (##sys#register-module-alias alias name) (##sys#module-alias-environment (cons (cons alias name) (##sys#module-alias-environment)))) (define (##sys#with-module-aliases bindings thunk) (parameterize ((##sys#module-alias-environment (append (map (lambda (b) (cons (car b) (cadr b))) bindings) (##sys#module-alias-environment)))) (thunk))) (define (##sys#resolve-module-name name loc) (let loop ((n (library-id name)) (done '())) (cond ((assq n (##sys#module-alias-environment)) => (lambda (a) (let ((n2 (cdr a))) (if (memq n2 done) (error loc "module alias refers to itself" name) (loop n2 (cons n2 done)))))) (else n)))) (define (##sys#find-module name #!optional (err #t) loc) (cond ((assq name ##sys#module-table) => cdr) (err (error loc "module not found" name)) (else #f))) (define ##sys#switch-module (let ((saved-default-envs #f)) (lambda (mod) (let ((now (cons (##sys#current-environment) (##sys#macro-environment)))) (cond ((##sys#current-module) => (lambda (m) (set-module-saved-environments! m now))) (else (set! saved-default-envs now))) (let ((saved (if mod (module-saved-environments mod) saved-default-envs))) (when saved (##sys#current-environment (car saved)) (##sys#macro-environment (cdr saved))) (##sys#current-module mod)))))) (define (##sys#add-to-export-list mod exps) (let ((xl (module-export-list mod))) (if (eq? xl #t) (let ((el (module-exist-list mod)) (me (##sys#macro-environment)) (sexps '())) (for-each (lambda (exp) (cond ((assq exp me) => (lambda (a) (set! sexps (cons a sexps)))))) exps) (set-module-sexports! mod (append sexps (module-sexports mod))) (set-module-exist-list! mod (append el exps))) (set-module-export-list! mod (append xl exps))))) (define (##sys#toplevel-definition-hook sym renamed exported?) #f) (define (##sys#register-meta-expression exp) (and-let* ((mod (##sys#current-module))) (set-module-meta-expressions! mod (cons exp (module-meta-expressions mod))))) (define (check-for-redef sym env senv) (and-let* ((a (assq sym env))) (##sys#warn "redefinition of imported value binding" sym) ) (and-let* ((a (assq sym senv))) (##sys#warn "redefinition of imported syntax binding" sym))) (define (##sys#register-export sym mod) (when mod (let ((exp (or (eq? #t (module-export-list mod)) (find-export sym mod #t))) (ulist (module-undefined-list mod))) (##sys#toplevel-definition-hook ; in compiler, hides unexported bindings sym (module-rename sym (module-name mod)) exp) (and-let* ((a (assq sym ulist))) (set-module-undefined-list! mod (delete a ulist eq?))) (check-for-redef sym (##sys#current-environment) (##sys#macro-environment)) (set-module-exist-list! mod (cons sym (module-exist-list mod))) (when exp (dm "defined: " sym) (set-module-defined-list! mod (cons (cons sym #f) (module-defined-list mod)))))) ) (define (##sys#register-syntax-export sym mod val) (when mod (let ((exp (or (eq? #t (module-export-list mod)) (find-export sym mod #t))) (ulist (module-undefined-list mod)) (mname (module-name mod))) (when (assq sym ulist) (##sys#warn "use of syntax precedes definition" sym)) ;XXX could report locations (check-for-redef sym (##sys#current-environment) (##sys#macro-environment)) (dm "defined syntax: " sym) (when exp (set-module-defined-list! mod (cons (cons sym val) (module-defined-list mod))) ) (set-module-defined-syntax-list! mod (cons (cons sym val) (module-defined-syntax-list mod)))))) (define (##sys#unregister-syntax-export sym mod) (when mod (set-module-defined-syntax-list! mod (delete sym (module-defined-syntax-list mod) (lambda (x y) (eq? x (car y))))))) (define (register-undefined sym mod where) (when mod (let ((ul (module-undefined-list mod))) (cond ((assq sym ul) => (lambda (a) (when (and where (not (memq where (cdr a)))) (set-cdr! a (cons where (cdr a)))))) (else (set-module-undefined-list! mod (cons (cons sym (if where (list where) '())) ul))))))) (define (##sys#register-module name lib explist #!optional (vexports '()) (sexports '())) (let ((mod (make-module name lib explist vexports sexports '()))) (set! ##sys#module-table (cons (cons name mod) ##sys#module-table)) mod) ) (define (module-indirect-exports mod) (let ((exports (module-export-list mod)) (mname (module-name mod)) (dlist (module-defined-list mod))) (define (indirect? id) (let loop ((exports exports)) (and (not (null? exports)) (or (and (pair? (car exports)) (memq id (cdar exports))) (loop (cdr exports)))))) (define (warn msg id) (##sys#warn (string-append msg " in module `" (symbol->string mname) "'") id)) (if (eq? #t exports) '() (let loop ((exports exports)) ; walk export list (cond ((null? exports) '()) ((symbol? (car exports)) (loop (cdr exports))) ; normal export (else (let loop2 ((iexports (cdar exports))) ; walk indirect exports for a given entry (cond ((null? iexports) (loop (cdr exports))) ((assq (car iexports) (##sys#macro-environment)) (warn "indirect export of syntax binding" (car iexports)) (loop2 (cdr iexports))) ((assq (car iexports) dlist) => ; defined in current module? (lambda (a) (cons (cons (car iexports) (or (cdr a) (module-rename (car iexports) mname))) (loop2 (cdr iexports))))) ((assq (car iexports) (##sys#current-environment)) => (lambda (a) ; imported in current env. (cond ((symbol? (cdr a)) ; not syntax (cons (cons (car iexports) (cdr a)) (loop2 (cdr iexports))) ) (else (warn "indirect reexport of syntax" (car iexports)) (loop2 (cdr iexports)))))) (else (warn "indirect export of unknown binding" (car iexports)) (loop2 (cdr iexports))))))))))) (define (merge-se . ses*) ; later occurrences take precedence to earlier ones (let ((seen (make-hash-table)) (rses (reverse ses*))) (let loop ((ses (cdr rses)) (last-se #f) (se2 (car rses))) (cond ((null? ses) se2) ((or (eq? last-se (car ses)) (null? (car ses))) (loop (cdr ses) last-se se2)) ((not last-se) (unless (null? ses) (for-each (lambda (e) (hash-table-set! seen (car e) #t)) se2)) (loop ses se2 se2)) (else (let lp ((se (car ses)) (se2 se2)) (cond ((null? se) (loop (cdr ses) (car ses) se2)) ((hash-table-ref seen (caar se)) (lp (cdr se) se2)) (else (hash-table-set! seen (caar se) #t) (lp (cdr se) (cons (car se) se2)))))))))) (define (##sys#compiled-module-registration mod) (let ((dlist (module-defined-list mod)) (mname (module-name mod)) (ifs (module-import-forms mod)) (sexports (module-sexports mod)) (mifs (module-meta-import-forms mod))) `(,@(if (and (pair? ifs) (pair? sexports)) `((scheme#eval '(import-syntax ,@(strip-syntax ifs)))) '()) ,@(if (and (pair? mifs) (pair? sexports)) `((import-syntax ,@(strip-syntax mifs))) '()) ,@(if (or (getp mname '##core#functor) (pair? sexports)) (##sys#fast-reverse (strip-syntax (module-meta-expressions mod))) '()) (##sys#register-compiled-module ',(module-name mod) ',(module-library mod) (scheme#list ; iexports ,@(map (lambda (ie) (if (symbol? (cdr ie)) `'(,(car ie) . ,(cdr ie)) `(scheme#list ',(car ie) '() ,(cdr ie)))) (module-iexports mod))) ',(module-vexports mod) ; vexports (scheme#list ; sexports ,@(map (lambda (sexport) (let* ((name (car sexport)) (a (assq name dlist))) (cond ((pair? a) `(scheme#cons ',(car sexport) ,(strip-syntax (cdr a)))) (else (dm "re-exported syntax" name mname) `',name)))) sexports)) (scheme#list ; sdefs ,@(if (null? sexports) '() ; no syntax exported - no more info needed (let loop ((sd (module-defined-syntax-list mod))) (cond ((null? sd) '()) ((assq (caar sd) sexports) (loop (cdr sd))) (else (let ((name (caar sd))) (cons `(scheme#cons ',(caar sd) ,(strip-syntax (cdar sd))) (loop (cdr sd))))))))))))) ;; iexports = indirect exports (syntax dependencies on value idents, explicitly included in module export list) ;; vexports = value (non-syntax) exports ;; sexports = syntax exports ;; sdefs = unexported definitions from syntax environment used by exported macros (not in export list) (define (##sys#register-compiled-module name lib iexports vexports sexports #!optional (sdefs '())) (define (find-reexport name) (let ((a (assq name (##sys#macro-environment)))) (if (and a (pair? (cdr a))) a (##sys#error 'import "cannot find implementation of re-exported syntax" name)))) (let* ((sexps (map (lambda (se) (if (symbol? se) (find-reexport se) (list (car se) #f (##sys#ensure-transformer (cdr se) (car se))))) sexports)) (nexps (map (lambda (ne) (list (car ne) #f (##sys#ensure-transformer (cdr ne) (car ne)))) sdefs)) (mod (make-module name lib '() vexports sexps iexports)) (senv (if (or (not (null? sexps)) ; Only macros have an senv (not (null? nexps))) ; which must be patched up (merge-se (##sys#macro-environment) (##sys#current-environment) iexports vexports sexps nexps) '()))) (for-each (lambda (sexp) (set-car! (cdr sexp) (merge-se (or (cadr sexp) '()) senv))) sexps) (for-each (lambda (nexp) (set-car! (cdr nexp) (merge-se (or (cadr nexp) '()) senv))) nexps) (set-module-saved-environments! mod (cons (merge-se (##sys#current-environment) vexports sexps) (##sys#macro-environment))) (set! ##sys#module-table (cons (cons name mod) ##sys#module-table)) mod)) (define (##sys#register-core-module name lib vexports #!optional (sexports '())) (let* ((me (##sys#macro-environment)) (mod (make-module name lib '() vexports (map (lambda (se) (if (symbol? se) (or (assq se me) (##sys#error "unknown syntax referenced while registering module" se name)) se)) sexports) '()))) (set-module-saved-environments! mod (cons (merge-se (##sys#current-environment) (module-vexports mod) (module-sexports mod)) (##sys#macro-environment))) (set! ##sys#module-table (cons (cons name mod) ##sys#module-table)) mod)) ;; same as register-core-module, but uses module's name as its library (define (##sys#register-primitive-module name vexports #!optional (sexports '())) (##sys#register-core-module name name vexports sexports)) (define (find-export sym mod indirect) (let ((exports (module-export-list mod))) (let loop ((xl (if (eq? #t exports) (module-exist-list mod) exports))) (cond ((null? xl) #f) ((eq? sym (car xl))) ((pair? (car xl)) (or (eq? sym (caar xl)) (and indirect (memq sym (cdar xl))) (loop (cdr xl)))) (else (loop (cdr xl))))))) (define ##sys#finalize-module (let ((display display) (write-char write-char)) (lambda (mod) (let* ((explist (module-export-list mod)) (name (module-name mod)) (dlist (module-defined-list mod)) (elist (module-exist-list mod)) (missing #f) (sdlist (map (lambda (sym) (assq (car sym) (##sys#macro-environment))) (module-defined-syntax-list mod))) (sexports (if (eq? #t explist) (merge-se (module-sexports mod) sdlist) (let loop ((me (##sys#macro-environment))) (cond ((null? me) '()) ((find-export (caar me) mod #f) (cons (car me) (loop (cdr me)))) (else (loop (cdr me))))))) (vexports (let loop ((xl (if (eq? #t explist) elist explist))) (if (null? xl) '() (let* ((h (car xl)) (id (if (symbol? h) h (car h)))) (if (assq id sexports) (loop (cdr xl)) (cons (cons id (let ((def (assq id dlist))) (if (and def (symbol? (cdr def))) (cdr def) (let ((a (assq id (##sys#current-environment)))) (cond ((and a (symbol? (cdr a))) (dm "reexporting: " id " -> " (cdr a)) (cdr a)) ((not def) (set! missing #t) (##sys#warn (string-append "exported identifier of module `" (symbol->string name) "' has not been defined") id) #f) (else (module-rename id name))))))) (loop (cdr xl))))))))) (for-each (lambda (u) (let* ((where (cdr u)) (u (car u))) (unless (memq u elist) (let ((out (open-output-string))) (set! missing #t) (display "reference to possibly unbound identifier `" out) (display u out) (write-char #\' out) (when (pair? where) (display " in:" out) (for-each (lambda (sym) (display "\nWarning: " out) (display sym out)) where)) (and-let* ((a (getp u '##core#db))) (cond ((= 1 (length a)) (display "\nWarning: suggesting: `(import " out) (display (cadar a) out) (display ")'" out)) (else (display "\nWarning: suggesting one of:" out) (for-each (lambda (a) (display "\nWarning: (import " out) (display (cadr a) out) (write-char #\) out)) a)))) (##sys#warn (get-output-string out)))))) (module-undefined-list mod)) (when missing (##sys#error "module unresolved" name)) (let* ((iexports (map (lambda (exp) (cond ((symbol? (cdr exp)) exp) ((assq (car exp) (##sys#macro-environment))) (else (##sys#error "(internal) indirect export not found" (car exp)))) ) (module-indirect-exports mod))) (new-se (merge-se (##sys#macro-environment) (##sys#current-environment) iexports vexports sexports sdlist))) (for-each (lambda (m) (let ((se (merge-se (cadr m) new-se))) ;XXX needed? (dm `(FIXUP: ,(car m) ,@(map-se se))) (set-car! (cdr m) se))) sdlist) (dm `(EXPORTS: ,(module-name mod) (DLIST: ,@dlist) (SDLIST: ,@(map-se sdlist)) (IEXPORTS: ,@(map-se iexports)) (VEXPORTS: ,@(map-se vexports)) (SEXPORTS: ,@(map-se sexports)))) (set-module-vexports! mod vexports) (set-module-sexports! mod sexports) (set-module-iexports! mod (merge-se (module-iexports mod) iexports)) ; "reexport" may already have added some (set-module-saved-environments! mod (cons (merge-se (##sys#current-environment) vexports sexports) (##sys#macro-environment)))))))) (define ##sys#module-table '()) ;;; Import-expansion (define (##sys#import-library-hook mname) (and-let* ((il (chicken.load#find-dynamic-extension (string-append (symbol->string mname) ".import") #t))) (parameterize ((##sys#current-module #f) (##sys#current-environment '()) (##sys#current-meta-environment (##sys#current-meta-environment)) (##sys#macro-environment (##sys#meta-macro-environment))) (fluid-let ((##sys#notices-enabled #f)) ; to avoid re-import warnings (load il) (##sys#find-module mname 'import))))) (define (find-module/import-library lib loc) (let ((mname (##sys#resolve-module-name lib loc))) (or (##sys#find-module mname #f loc) (##sys#import-library-hook mname)))) (define (##sys#decompose-import x r c loc) (let ((%only (r 'only)) (%rename (r 'rename)) (%except (r 'except)) (%prefix (r 'prefix))) (define (warn msg mod id) (##sys#warn (string-append msg " in module `" (symbol->string mod) "'") id)) (define (tostr x) (cond ((string? x) x) ((keyword? x) (##sys#string-append (##sys#symbol->string x) ":")) ; hack ((symbol? x) (##sys#symbol->string x)) ((number? x) (number->string x)) (else (##sys#syntax-error-hook loc "invalid prefix" )))) (call-with-current-continuation (lambda (k) (define (module-imports name) (let* ((id (library-id name)) (mod (find-module/import-library id loc))) (if (not mod) (k id id #f #f #f #f) (values (module-name mod) (module-library mod) (module-name mod) (module-vexports mod) (module-sexports mod) (module-iexports mod))))) (let loop ((x x)) (cond ((symbol? x) (module-imports (strip-syntax x))) ((not (pair? x)) (##sys#syntax-error-hook loc "invalid import specification" x)) (else (let ((head (car x))) (cond ((c %only head) (##sys#check-syntax loc x '(_ _ . #(symbol 0))) (let-values (((name lib spec impv imps impi) (loop (cadr x))) ((imports) (strip-syntax (cddr x)))) (let loop ((ids imports) (v '()) (s '()) (missing '())) (cond ((null? ids) (for-each (lambda (id) (warn "imported identifier doesn't exist" spec id)) missing) (values name lib `(,head ,spec ,@imports) v s impi)) ((assq (car ids) impv) => (lambda (a) (loop (cdr ids) (cons a v) s missing))) ((assq (car ids) imps) => (lambda (a) (loop (cdr ids) v (cons a s) missing))) (else (loop (cdr ids) v s (cons (car ids) missing))))))) ((c %except head) (##sys#check-syntax loc x '(_ _ . #(symbol 0))) (let-values (((name lib spec impv imps impi) (loop (cadr x))) ((imports) (strip-syntax (cddr x)))) (let loop ((impv impv) (v '()) (ids imports)) (cond ((null? impv) (let loop ((imps imps) (s '()) (ids ids)) (cond ((null? imps) (for-each (lambda (id) (warn "excluded identifier doesn't exist" name id)) ids) (values name lib `(,head ,spec ,@imports) v s impi)) ((memq (caar imps) ids) => (lambda (id) (loop (cdr imps) s (delete (car id) ids eq?)))) (else (loop (cdr imps) (cons (car imps) s) ids))))) ((memq (caar impv) ids) => (lambda (id) (loop (cdr impv) v (delete (car id) ids eq?)))) (else (loop (cdr impv) (cons (car impv) v) ids)))))) ((c %rename head) (##sys#check-syntax loc x '(_ _ . #((symbol symbol) 0))) (let-values (((name lib spec impv imps impi) (loop (cadr x))) ((renames) (strip-syntax (cddr x)))) (let loop ((impv impv) (v '()) (ids renames)) (cond ((null? impv) (let loop ((imps imps) (s '()) (ids ids)) (cond ((null? imps) (for-each (lambda (id) (warn "renamed identifier doesn't exist" name id)) (map car ids)) (values name lib `(,head ,spec ,@renames) v s impi)) ((assq (caar imps) ids) => (lambda (a) (loop (cdr imps) (cons (cons (cadr a) (cdar imps)) s) (delete a ids eq?)))) (else (loop (cdr imps) (cons (car imps) s) ids))))) ((assq (caar impv) ids) => (lambda (a) (loop (cdr impv) (cons (cons (cadr a) (cdar impv)) v) (delete a ids eq?)))) (else (loop (cdr impv) (cons (car impv) v) ids)))))) ((c %prefix head) (##sys#check-syntax loc x '(_ _ _)) (let-values (((name lib spec impv imps impi) (loop (cadr x))) ((prefix) (strip-syntax (caddr x)))) (define (rename imp) (cons (##sys#string->symbol (##sys#string-append (tostr prefix) (##sys#symbol->string (car imp)))) (cdr imp))) (values name lib `(,head ,spec ,prefix) (map rename impv) (map rename imps) impi))) (else (module-imports (strip-syntax x)))))))))))) (define (##sys#expand-import x r c import-env macro-env meta? reexp? loc) (##sys#check-syntax loc x '(_ . #(_ 1))) (for-each (lambda (x) (let-values (((name _ spec v s i) (##sys#decompose-import x r c loc))) (if (not spec) (##sys#syntax-error-hook loc "cannot import from undefined module" name x) (##sys#import spec v s i import-env macro-env meta? reexp? loc)))) (cdr x)) '(##core#undefined)) (define (##sys#import spec vsv vss vsi import-env macro-env meta? reexp? loc) (let ((cm (##sys#current-module))) (when cm ; save import form (if meta? (set-module-meta-import-forms! cm (append (module-meta-import-forms cm) (list spec))) (set-module-import-forms! cm (append (module-import-forms cm) (list spec))))) (dd `(IMPORT: ,loc)) (dd `(V: ,(if cm (module-name cm) '<toplevel>) ,(map-se vsv))) (dd `(S: ,(if cm (module-name cm) '<toplevel>) ,(map-se vss))) (for-each (lambda (imp) (and-let* ((id (car imp)) (a (assq id (import-env))) (aid (cdr imp)) ((not (eq? aid (cdr a))))) (##sys#notice "re-importing already imported identifier" id))) vsv) (for-each (lambda (imp) (and-let* ((a (assq (car imp) (macro-env))) ((not (eq? (cdr imp) (cdr a))))) (##sys#notice "re-importing already imported syntax" (car imp)))) vss) (when reexp? (unless cm (##sys#syntax-error-hook loc "`reexport' only valid inside a module")) (let ((el (module-export-list cm))) (cond ((eq? #t el) (set-module-sexports! cm (append vss (module-sexports cm))) (set-module-exist-list! cm (append (module-exist-list cm) (map car vsv) (map car vss)))) (else (set-module-export-list! cm (append (let ((xl (module-export-list cm))) (if (eq? #t xl) '() xl)) (map car vsv) (map car vss)))))) (set-module-iexports! cm (merge-se (module-iexports cm) vsi)) (dm "export-list: " (module-export-list cm))) (import-env (append vsv (import-env))) (macro-env (append vss (macro-env))))) (define (module-rename sym prefix) (##sys#string->symbol (string-append (##sys#slot prefix 1) "#" (##sys#slot sym 1) ) ) ) (define (##sys#alias-global-hook sym assign where) (define (mrename sym) (cond ((##sys#current-module) => (lambda (mod) (dm "(ALIAS) global alias " sym " in " (module-name mod)) (unless assign (register-undefined sym mod where)) (module-rename sym (module-name mod)))) (else sym))) (cond ((keyword? sym) sym) ((namespaced-symbol? sym) sym) ((assq sym (##sys#current-environment)) => (lambda (a) (let ((sym2 (cdr a))) (dm "(ALIAS) in current environment " sym " -> " sym2) ;; check for macro (XXX can this be?) (if (pair? sym2) (mrename sym) sym2)))) (else (mrename sym)))) (define (##sys#validate-exports exps loc) ;; expects "exps" to be stripped (define (err . args) (apply ##sys#syntax-error-hook loc args)) (define (iface name) (or (getp name '##core#interface) (err "unknown interface" name exps))) (cond ((eq? '* exps) exps) ((symbol? exps) (iface exps)) ((not (list? exps)) (err "invalid exports" exps)) (else (let loop ((xps exps)) (cond ((null? xps) '()) ((not (pair? xps)) (err "invalid exports" exps)) (else (let ((x (car xps))) (cond ((symbol? x) (cons x (loop (cdr xps)))) ((not (list? x)) (err "invalid export" x exps)) ((eq? #:syntax (car x)) (cons (cdr x) (loop (cdr xps)))) ; currently not used ((eq? #:interface (car x)) (if (and (pair? (cdr x)) (symbol? (cadr x))) (append (iface (cadr x)) (loop (cdr xps))) (err "invalid interface specification" x exps))) (else (let loop2 ((lst x)) (cond ((null? lst) (cons x (loop (cdr xps)))) ((symbol? (car lst)) (loop2 (cdr lst))) (else (err "invalid export" x exps))))))))))))) (define (##sys#register-functor name fargs fexps body) (putp name '##core#functor (cons fargs (cons fexps body)))) (define (##sys#instantiate-functor name fname args) (let ((funcdef (getp fname '##core#functor))) (define (err . args) (apply ##sys#syntax-error-hook name args)) (unless funcdef (err "instantation of undefined functor" fname)) (let ((fargs (car funcdef)) (exports (cadr funcdef)) (body (cddr funcdef))) (define (merr) (err "argument list mismatch in functor instantiation" (cons name args) (cons fname (map car fargs)))) `(##core#let-module-alias ,(let loop ((as args) (fas fargs)) (cond ((null? as) ;; use default arguments (if available) or bail out (let loop2 ((fas fas)) (if (null? fas) '() (let ((p (car fas))) (if (pair? (car p)) ; has default argument? (let ((exps (cdr p)) (alias (caar p)) (mname (library-id (cadar p)))) (match-functor-argument alias name mname exps fname) (cons (list alias mname) (loop2 (cdr fas)))) ;; no default argument, we have too few argument modules (merr)))))) ;; more arguments given as defined for the functor ((null? fas) (merr)) (else ;; otherwise match provided argument to functor argument (let* ((p (car fas)) (p1 (car p)) (exps (cdr p)) (def? (pair? p1)) (alias (if def? (car p1) p1)) (mname (library-id (car as)))) (match-functor-argument alias name mname exps fname) (cons (list alias mname) (loop (cdr as) (cdr fas))))))) (##core#module ,name ,(if (eq? '* exports) #t exports) ,@body))))) (define (match-functor-argument alias name mname exps fname) (let ((mod (##sys#find-module (##sys#resolve-module-name mname 'module) #t 'module))) (unless (eq? exps '*) (let ((missing '())) (for-each (lambda (exp) (let ((sym (if (symbol? exp) exp (car exp)))) (unless (or (assq sym (module-vexports mod)) (assq sym (module-sexports mod))) (set! missing (cons sym missing))))) exps) (when (pair? missing) (##sys#syntax-error-hook 'module (apply string-append "argument module `" (symbol->string mname) "' does not match required signature\n" "in instantiation `" (symbol->string name) "' of functor `" (symbol->string fname) "', because the following required exports are missing:\n" (map (lambda (s) (string-append "\n " (symbol->string s))) missing)))))))) ;;; built-in modules (needed for eval environments) (let ((r4rs-values '((not . scheme#not) (boolean? . scheme#boolean?) (eq? . scheme#eq?) (eqv? . scheme#eqv?) (equal? . scheme#equal?) (pair? . scheme#pair?) (cons . scheme#cons) (car . scheme#car) (cdr . scheme#cdr) (caar . scheme#caar) (cadr . scheme#cadr) (cdar . scheme#cdar) (cddr . scheme#cddr) (caaar . scheme#caaar) (caadr . scheme#caadr) (cadar . scheme#cadar) (caddr . scheme#caddr) (cdaar . scheme#cdaar) (cdadr . scheme#cdadr) (cddar . scheme#cddar) (cdddr . scheme#cdddr) (caaaar . scheme#caaaar) (caaadr . scheme#caaadr) (caadar . scheme#caadar) (caaddr . scheme#caaddr) (cadaar . scheme#cadaar) (cadadr . scheme#cadadr) (caddar . scheme#caddar) (cadddr . scheme#cadddr) (cdaaar . scheme#cdaaar) (cdaadr . scheme#cdaadr) (cdadar . scheme#cdadar) (cdaddr . scheme#cdaddr) (cddaar . scheme#cddaar) (cddadr . scheme#cddadr) (cdddar . scheme#cdddar) (cddddr . scheme#cddddr) (set-car! . scheme#set-car!) (set-cdr! . scheme#set-cdr!) (null? . scheme#null?) (list? . scheme#list?) (list . scheme#list) (length . scheme#length) (list-tail . scheme#list-tail) (list-ref . scheme#list-ref) (append . scheme#append) (reverse . scheme#reverse) (memq . scheme#memq) (memv . scheme#memv) (member . scheme#member) (assq . scheme#assq) (assv . scheme#assv) (assoc . scheme#assoc) (symbol? . scheme#symbol?) (symbol->string . scheme#symbol->string) (string->symbol . scheme#string->symbol) (number? . scheme#number?) (integer? . scheme#integer?) (exact? . scheme#exact?) (real? . scheme#real?) (complex? . scheme#complex?) (inexact? . scheme#inexact?) (rational? . scheme#rational?) (zero? . scheme#zero?) (odd? . scheme#odd?) (even? . scheme#even?) (positive? . scheme#positive?) (negative? . scheme#negative?) (max . scheme#max) (min . scheme#min) (+ . scheme#+) (- . scheme#-) (* . scheme#*) (/ . scheme#/) (= . scheme#=) (> . scheme#>) (< . scheme#<) (>= . scheme#>=) (<= . scheme#<=) (quotient . scheme#quotient) (remainder . scheme#remainder) (modulo . scheme#modulo) (gcd . scheme#gcd) (lcm . scheme#lcm) (abs . scheme#abs) (floor . scheme#floor) (ceiling . scheme#ceiling) (truncate . scheme#truncate) (round . scheme#round) (rationalize . scheme#rationalize) (exact->inexact . scheme#exact->inexact) (inexact->exact . scheme#inexact->exact) (exp . scheme#exp) (log . scheme#log) (expt . scheme#expt) (sqrt . scheme#sqrt) (sin . scheme#sin) (cos . scheme#cos) (tan . scheme#tan) (asin . scheme#asin) (acos . scheme#acos) (atan . scheme#atan) (number->string . scheme#number->string) (string->number . scheme#string->number) (char? . scheme#char?) (char=? . scheme#char=?) (char>? . scheme#char>?) (char<? . scheme#char<?) (char>=? . scheme#char>=?) (char<=? . scheme#char<=?) (char-ci=? . scheme#char-ci=?) (char-ci<? . scheme#char-ci<?) (char-ci>? . scheme#char-ci>?) (char-ci>=? . scheme#char-ci>=?) (char-ci<=? . scheme#char-ci<=?) (char-alphabetic? . scheme#char-alphabetic?) (char-whitespace? . scheme#char-whitespace?) (char-numeric? . scheme#char-numeric?) (char-upper-case? . scheme#char-upper-case?) (char-lower-case? . scheme#char-lower-case?) (char-upcase . scheme#char-upcase) (char-downcase . scheme#char-downcase) (char->integer . scheme#char->integer) (integer->char . scheme#integer->char) (string? . scheme#string?) (string=? . scheme#string=?) (string>? . scheme#string>?) (string<? . scheme#string<?) (string>=? . scheme#string>=?) (string<=? . scheme#string<=?) (string-ci=? . scheme#string-ci=?) (string-ci<? . scheme#string-ci<?) (string-ci>? . scheme#string-ci>?) (string-ci>=? . scheme#string-ci>=?) (string-ci<=? . scheme#string-ci<=?) (make-string . scheme#make-string) (string-length . scheme#string-length) (string-ref . scheme#string-ref) (string-set! . scheme#string-set!) (string-append . scheme#string-append) (string-copy . scheme#string-copy) (string->list . scheme#string->list) (list->string . scheme#list->string) (substring . scheme#substring) (string-fill! . scheme#string-fill!) (vector? . scheme#vector?) (make-vector . scheme#make-vector) (vector-ref . scheme#vector-ref) (vector-set! . scheme#vector-set!) (string . scheme#string) (vector . scheme#vector) (vector-length . scheme#vector-length) (vector->list . scheme#vector->list) (list->vector . scheme#list->vector) (vector-fill! . scheme#vector-fill!) (procedure? . scheme#procedure?) (map . scheme#map) (for-each . scheme#for-each) (apply . scheme#apply) (force . scheme#force) (call-with-current-continuation . scheme#call-with-current-continuation) (input-port? . scheme#input-port?) (output-port? . scheme#output-port?) (current-input-port . scheme#current-input-port) (current-output-port . scheme#current-output-port) (call-with-input-file . scheme#call-with-input-file) (call-with-output-file . scheme#call-with-output-file) (open-input-file . scheme#open-input-file) (open-output-file . scheme#open-output-file) (close-input-port . scheme#close-input-port) (close-output-port . scheme#close-output-port) (load . scheme#load) (read . scheme#read) (read-char . scheme#read-char) (peek-char . scheme#peek-char) (write . scheme#write) (display . scheme#display) (write-char . scheme#write-char) (newline . scheme#newline) (eof-object? . scheme#eof-object?) (with-input-from-file . scheme#with-input-from-file) (with-output-to-file . scheme#with-output-to-file) (char-ready? . scheme#char-ready?) (imag-part . scheme#imag-part) (real-part . scheme#real-part) (make-rectangular . scheme#make-rectangular) (make-polar . scheme#make-polar) (angle . scheme#angle) (magnitude . scheme#magnitude) (numerator . scheme#numerator) (denominator . scheme#denominator) (scheme-report-environment . scheme#scheme-report-environment) (null-environment . scheme#null-environment) (interaction-environment . scheme#interaction-environment))) (r4rs-syntax ##sys#scheme-macro-environment)) (##sys#register-core-module 'r4rs 'library r4rs-values r4rs-syntax) (##sys#register-core-module 'scheme 'library (append '((dynamic-wind . scheme#dynamic-wind) (eval . scheme#eval) (values . scheme#values) (call-with-values . scheme#call-with-values)) r4rs-values) r4rs-syntax) (##sys#register-core-module 'r4rs-null #f '() r4rs-syntax) (##sys#register-core-module 'r5rs-null #f '() r4rs-syntax)) (##sys#register-module-alias 'r5rs 'scheme) (##sys#register-module-alias 'srfi-88 'chicken.keyword) (define-inline (se-subset names env) (map (cut assq <> env) names)) ;; Hack for library.scm to use macros from modules it defines itself. (##sys#register-core-module 'chicken.internal.syntax #f '() (##sys#macro-environment)) (##sys#register-core-module 'chicken.module #f '() ##sys#chicken.module-macro-environment) (##sys#register-core-module 'chicken.type #f '() ##sys#chicken.type-macro-environment) (##sys#register-primitive-module 'srfi-0 '() (se-subset '(cond-expand) ##sys#default-macro-environment)) (##sys#register-primitive-module 'srfi-2 '() (se-subset '(and-let*) ##sys#chicken.base-macro-environment)) (##sys#register-core-module 'srfi-6 'library '((get-output-string . chicken.base#get-output-string) (open-input-string . chicken.base#open-input-string) (open-output-string . chicken.base#open-input-string))) (##sys#register-primitive-module 'srfi-8 '() (se-subset '(receive) ##sys#chicken.base-macro-environment)) (##sys#register-primitive-module 'srfi-9 '() (se-subset '(define-record-type) ##sys#chicken.base-macro-environment)) (##sys#register-core-module 'srfi-10 'read-syntax '((define-reader-ctor . chicken.read-syntax#define-reader-ctor))) (##sys#register-primitive-module 'srfi-11 '() (se-subset '(let-values let*-values) ##sys#chicken.base-macro-environment)) (##sys#register-core-module 'srfi-12 'library '((abort . chicken.condition#abort) (condition? . chicken.condition#condition?) (condition-predicate . chicken.condition#condition-predicate) (condition-property-accessor . chicken.condition#condition-property-accessor) (current-exception-handler . chicken.condition#current-exception-handler) (make-composite-condition . chicken.condition#make-composite-condition) (make-property-condition . chicken.condition#make-property-condition) (signal . chicken.condition#signal) (with-exception-handler . chicken.condition#with-exception-handler)) (se-subset '(handle-exceptions) ##sys#chicken.condition-macro-environment)) (##sys#register-primitive-module 'srfi-15 '() (se-subset '(fluid-let) ##sys#chicken.base-macro-environment)) (##sys#register-primitive-module 'srfi-16 '() (se-subset '(case-lambda) ##sys#chicken.base-macro-environment)) (##sys#register-primitive-module 'srfi-17 '() (se-subset '(set!) ##sys#default-macro-environment)) (##sys#register-core-module 'srfi-23 'library '((error . chicken.base#error))) (##sys#register-primitive-module 'srfi-26 '() (se-subset '(cut cute) ##sys#chicken.base-macro-environment)) (##sys#register-core-module 'srfi-28 'extras '((format . chicken.format#format))) (##sys#register-primitive-module 'srfi-31 '() (se-subset '(rec) ##sys#chicken.base-macro-environment)) (##sys#register-core-module 'srfi-39 'library '((make-parameter . chicken.base#make-parameter)) (se-subset '(parameterize) ##sys#chicken.base-macro-environment)) (##sys#register-primitive-module 'srfi-55 '() (se-subset '(require-extension) ##sys#chicken.base-macro-environment)) (##sys#register-core-module 'srfi-98 'posix '((get-environment-variable . chicken.process-context#get-environment-variable) (get-environment-variables . chicken.process-context#get-environment-variables))) (define (chicken.module#module-environment mname #!optional (ename mname)) (let ((mod (find-module/import-library mname 'module-environment))) (if (not mod) (##sys#syntax-error-hook 'module-environment "undefined module" mname) (##sys#make-structure 'environment ename (car (module-saved-environments mod)) #t)))) ;; Ensure default modules are available in "eval", too ;; TODO: Figure out a better way to make this work for static programs. ;; The actual imports are handled lazily by eval when first called. (include "chicken.base.import.scm") (include "chicken.syntax.import.scm") ��������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.random.import.c���������������������������������������������������������������0000644�0001750�0001750�00000014056�13502227774�017306� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.random.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.random.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.random.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.random.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(101))){ C_save(t1); C_rereclaim2(101*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],14, C_text("chicken.random")); lf[2]=C_h_intern(&lf[2],6, C_text("extras")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001set-pseudo-random-seed!\376\001\000\000&\001chicken.random#set-pseudo-random-se" "ed!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001pseudo-random-integer\376\001\000\000$\001chicken.random#pseudo-random-integ" "er\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001pseudo-random-real\376\001\000\000!\001chicken.random#pseudo-random-real\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\014\001random-bytes\376\001\000\000\033\001chicken.random#random-bytes\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2erandom_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2erandom_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2erandom_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2erandom_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2erandom_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/build-version.c�����������������������������������������������������������������������0000644�0001750�0001750�00000005130�13502227762�015662� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from build-version.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: build-version.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file build-version.c unit: build-version */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); static C_TLS C_word lf[6]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(C_build_2dversion_toplevel) C_externexport void C_ccall C_build_2dversion_toplevel(C_word c,C_word *av) C_noret; /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_build_2dversion_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("build-version")); C_check_nursery_minimum(C_calculate_demand(8,c,1)); if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void*)C_build_2dversion_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(28))){ C_save(t1); C_rereclaim2(28*sizeof(C_word),1); t1=C_restore;} a=C_alloc(8); C_initialize_lf(lf,6); lf[0]=C_h_intern(&lf[0],13, C_text("build-version")); lf[1]=C_h_intern(&lf[1],14, C_text("##sys#build-id")); lf[2]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0108e62f718")); lf[3]=C_h_intern(&lf[3],18, C_text("##sys#build-branch")); lf[4]=C_h_intern(&lf[4],19, C_text("##sys#build-version")); lf[5]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0055.1.0")); C_register_lf2(lf,6,create_ptable());{} t2=C_a_i_provide(&a,1,lf[0]); t3=C_mutate((C_word*)lf[1]+1 /* (set! ##sys#build-id ...) */,lf[2]); t4=C_set_block_item(lf[3] /* ##sys#build-branch */,0,C_SCHEME_FALSE); t5=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#build-version ...) */,lf[5]); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[2] = { {C_text("toplevel:build_2dversion_2escm"),(void*)C_build_2dversion_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|safe globals: (##sys#build-version ##sys#build-branch ##sys#build-id) o|removed binding forms: 3 */ /* end of file */ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.tcp.import.scm����������������������������������������������������������������0000644�0001750�0001750�00000001774�13502227764�017156� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.tcp.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.tcp 'tcp (scheme#list) '((tcp-close . chicken.tcp#tcp-close) (tcp-listen . chicken.tcp#tcp-listen) (tcp-connect . chicken.tcp#tcp-connect) (tcp-accept . chicken.tcp#tcp-accept) (tcp-accept-ready? . chicken.tcp#tcp-accept-ready?) (tcp-listener? . chicken.tcp#tcp-listener?) (tcp-addresses . chicken.tcp#tcp-addresses) (tcp-abandon-port . chicken.tcp#tcp-abandon-port) (tcp-listener-port . chicken.tcp#tcp-listener-port) (tcp-listener-fileno . chicken.tcp#tcp-listener-fileno) (tcp-port-numbers . chicken.tcp#tcp-port-numbers) (tcp-buffer-size . chicken.tcp#tcp-buffer-size) (tcp-read-timeout . chicken.tcp#tcp-read-timeout) (tcp-write-timeout . chicken.tcp#tcp-write-timeout) (tcp-accept-timeout . chicken.tcp#tcp-accept-timeout) (tcp-connect-timeout . chicken.tcp#tcp-connect-timeout)) (scheme#list) (scheme#list)) ;; END OF FILE ����chicken-5.1.0/chicken.plist.import.scm��������������������������������������������������������������0000644�0001750�0001750�00000000626�13502227730�017507� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.plist.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.plist 'library (scheme#list) '((get . chicken.plist#get) (get-properties . chicken.plist#get-properties) (put! . chicken.plist#put!) (remprop! . chicken.plist#remprop!) (symbol-plist . chicken.plist#symbol-plist)) (scheme#list) (scheme#list)) ;; END OF FILE ����������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.csi.import.scm����������������������������������������������������������������0000644�0001750�0001750�00000003415�13502227553�017134� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.csi.import.scm - import library for "chicken.csi" module ; ; Copyright (c) 2008-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (##sys#register-primitive-module 'chicken.csi '((editor-command . chicken.csi#editor-command) (set-describer! . chicken.csi#set-describer!) (toplevel-command . chicken.csi#toplevel-command))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.time.posix.import.c�����������������������������������������������������������0000644�0001750�0001750�00000015241�13502227775�020123� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.time.posix.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.time.posix.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.time.posix.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.time.posix.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(181))){ C_save(t1); C_rereclaim2(181*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],18, C_text("chicken.time.posix")); lf[2]=C_h_intern(&lf[2],5, C_text("posix")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001seconds->utc-time\376\001\000\000$\001chicken.time.posix#seconds->utc-time\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\021\001utc-time->seconds\376\001\000\000$\001chicken.time.posix#utc-time->seconds\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\023\001seconds->local-time\376\001\000\000&\001chicken.time.posix#seconds->local-time\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\017\001seconds->string\376\001\000\000\042\001chicken.time.posix#seconds->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001loca" "l-time->seconds\376\001\000\000&\001chicken.time.posix#local-time->seconds\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001strin" "g->time\376\001\000\000\037\001chicken.time.posix#string->time\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001time->string\376\001\000\000\037\001ch" "icken.time.posix#time->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001local-timezone-abbreviation\376\001\000\000.\001ch" "icken.time.posix#local-timezone-abbreviation\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2etime_2eposix_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2etime_2eposix_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2etime_2eposix_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2etime_2eposix_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2etime_2eposix_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken-uninstall.scm�����������������������������������������������������������������0000644�0001750�0001750�00000017012�13502227553�017053� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken-uninstall.scm ; ; Copyright (c) 2008-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (module main () (import (scheme) (chicken base) (chicken file) (chicken fixnum) (chicken foreign) (chicken format) (chicken io) (chicken irregex) (chicken port) (chicken pathname) (chicken platform) (chicken process) (chicken process-context) (chicken string)) (include "mini-srfi-1.scm") (include "egg-environment.scm") (include "egg-information.scm") (define host-extensions #t) (define target-extensions #t) (define force-uninstall #f) (define sudo-uninstall #f) (define sudo-program (or (get-environment-variable "SUDO") "sudo")) (define (repo-path) (destination-repository (if (and cross-chicken (not host-extensions)) 'target 'host))) (define (grep rx lst) (filter (cut irregex-search rx <>) lst)) (define (gather-eggs patterns mtch) (let* ((eggs (map pathname-file (glob (make-pathname (repo-path) "*" +egg-info-extension+)))) (pats (if mtch (concatenate (map (lambda (pat) (grep (irregex (glob->sre pat)) eggs)) patterns)) (filter (lambda (egg) (any (cut string=? <> egg) patterns)) eggs)))) (delete-duplicates pats string=?))) (define (fini code) (print "aborted.") (exit code)) (define (ask eggs) (print (string-intersperse (append (list "About to delete the following extensions:\n\n") (map (cut string-append " " <> "\n") eggs)) "")) (let loop () (display "Do you want to proceed? (yes/no) ") (flush-output) (let ((a (read-line))) (when (eof-object? a) (error "EOF - use `-force' to proceed anyway")) (let ((r (trim a))) (cond ((string=? r "yes")) ((string=? r "no") (fini 1)) (else (loop))))))) (define (trim str) (define (left lst) (cond ((null? lst) '()) ((char-whitespace? (car lst)) (left (cdr lst))) (else (cons (car lst) (left (cdr lst)))))) (list->string (reverse (left (reverse (left (string->list str))))))) (define (remove-extension egg) (and-let* ((ifile (file-exists? (make-pathname (repo-path) egg +egg-info-extension+))) (files (get-egg-property* (load-egg-info ifile) 'installed-files))) (for-each (lambda (f) (when (file-exists? f) (delete-installed-file f))) files) (delete-installed-file ifile))) (define (delete-installed-file fname) (cond ((not (file-exists? fname)) (warning "file does not exist" fname)) ((and sudo-uninstall (eq? 'unix default-platform)) (let ((r (system (string-append sudo-program " rm -f -r -- " (qs fname))))) (unless (zero? r) (warning "deleting file failed" fname)))) ((directory-exists? fname) (delete-directory fname #t)) (else (delete-file fname)))) (define (uninstall pats mtch) (let ((eggs (gather-eggs pats mtch))) (cond ((null? eggs) (print "nothing to remove.") ) ((or force-uninstall (ask eggs)) (for-each (lambda (e) (print "removing " e) (remove-extension e)) eggs))))) (define (usage code) (print #<<EOF usage: chicken-uninstall [OPTION ...] [NAME ...] -h -help show this message and exit -version show version and exit -force don't ask, delete whatever matches -match treat NAME as a glob pattern -s -sudo use external command to elevate privileges for deleting files -host when cross-compiling, uninstall host extensions only -target when cross-compiling, uninstall target extensions only EOF ) (exit code)) (define short-options '(#\h #\s #\p)) (define (main args) (let ((mtch #f)) (let loop ((args args) (pats '())) (cond ((null? args) (when (null? pats) (usage 1)) (validate-environment) (uninstall (reverse pats) mtch)) (else (let ((arg (car args))) (cond ((or (string=? arg "-help") (string=? arg "-h") (string=? arg "--help")) (usage 0)) ((string=? arg "-version") (print (chicken-version)) (exit 0)) ((string=? arg "-target") (set! host-extensions #f) (loop (cdr args) pats)) ((string=? arg "-host") (set! target-extensions #f) (loop (cdr args) pats)) ((string=? arg "-force") (set! force-uninstall #t) (loop (cdr args) pats)) ((string=? arg "-match") (set! mtch #t) (loop (cdr args) pats)) ((or (string=? arg "-s") (string=? arg "-sudo")) (set! sudo-uninstall #t) (loop (cdr args) pats)) ((and (positive? (string-length arg)) (char=? #\- (string-ref arg 0))) (if (> (string-length arg) 2) (let ((sos (string->list (substring arg 1)))) (if (every (cut memq <> short-options) sos) (loop (append (map (cut string #\- <>) sos) (cdr args)) pats) (usage 1))) (usage 1))) (else (loop (cdr args) (cons arg pats)))))))))) (main (command-line-arguments)) ) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.time.import.c�����������������������������������������������������������������0000644�0001750�0001750�00000016232�13502227775�016763� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.time.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.time.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.time.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[7]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(f_133) static void C_ccall f_133(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_133,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* chicken.time.import.scm:33: ##sys#symbol-has-toplevel-binding? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[6]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[6]+1); av2[1]=t3; av2[2]=lf[0]; tp(3,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k131 in k121 in k118 in k115 */ static void C_ccall f_133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_133,2,av);} if(C_truep(t1)){ t2=C_fast_retrieve(lf[0]); t3=C_fast_retrieve(lf[0]); /* chicken.time.import.scm:26: ##sys#register-core-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[1]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[2]; av2[3]=lf[3]; av2[4]=lf[4]; av2[5]=C_fast_retrieve(lf[0]); tp(6,av2);}} else{ t2=C_fast_retrieve(lf[5]); t3=C_fast_retrieve(lf[5]); /* chicken.time.import.scm:26: ##sys#register-core-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[1]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[2]; av2[3]=lf[3]; av2[4]=lf[4]; av2[5]=C_fast_retrieve(lf[5]); tp(6,av2);}}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(102))){ C_save(t1); C_rereclaim2(102*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,7); lf[0]=C_h_intern(&lf[0],36, C_text("##sys#chicken.time-macro-environment")); lf[1]=C_h_intern(&lf[1],26, C_text("##sys#register-core-module")); lf[2]=C_h_intern(&lf[2],12, C_text("chicken.time")); lf[3]=C_h_intern(&lf[3],7, C_text("library")); lf[4]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001cpu-time\376\001\000\000\025\001chicken.time#cpu-time\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001current-milli" "seconds\376\001\000\000!\001chicken.time#current-milliseconds\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001current-seconds\376\001\000" "\000\034\001chicken.time#current-seconds\376\377\016")); lf[5]=C_h_intern(&lf[5],36, C_text("##sys#chicken.base-macro-environment")); lf[6]=C_h_intern(&lf[6],34, C_text("##sys#symbol-has-toplevel-binding\077")); C_register_lf2(lf,7,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[7] = { {C_text("f_117:chicken_2etime_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2etime_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2etime_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2etime_2eimport_2escm"),(void*)f_126}, {C_text("f_133:chicken_2etime_2eimport_2escm"),(void*)f_133}, {C_text("toplevel:chicken_2etime_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|inlining procedure: k128 o|propagated global variable: r129134 ##sys#chicken.time-macro-environment o|inlining procedure: k128 o|propagated global variable: r129136 ##sys#chicken.base-macro-environment o|replaced variables: 1 o|removed binding forms: 4 o|propagated global variable: a127135 ##sys#chicken.time-macro-environment o|propagated global variable: a127137 ##sys#chicken.base-macro-environment o|removed binding forms: 1 */ /* end of file */ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/��������������������������������������������������������������������������0000755�0001750�0001750�00000000000�13502230006�015135� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken io).html��������������������������������������������������0000644�0001750�0001750�00000017454�13502230005�021360� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken io)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_io.29">Module (chicken io)</a> <ul> <li><a href="#sec:read-list">read-list</a></li> <li><a href="#sec:read-buffered">read-buffered</a></li> <li><a href="#sec:read-byte">read-byte</a></li> <li><a href="#sec:write-byte">write-byte</a></li> <li><a href="#sec:read-line">read-line</a></li> <li><a href="#sec:write-line">write-line</a></li> <li><a href="#sec:read-lines">read-lines</a></li> <li><a href="#sec:read-string">read-string</a></li> <li><a href="#sec:read-string.21">read-string!</a></li> <li><a href="#sec:write-string">write-string</a></li> <li><a href="#sec:read-token">read-token</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_io.29"><a href="#sec:Module_.28chicken_io.29">Module (chicken io)</a></h2><p>This module provides various Input/Output extensions.</p><h3 id="sec:read-list"><a href="#sec:read-list">read-list</a></h3> <dl class="defsig"> <dt class="defsig" id="def:read-list"><span class="sig"><var class="id">read-list</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var> <var class="arg">READER</var> <var class="arg">MAX</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Call <var class="arg">READER</var> up to <var class="arg">MAX</var> times and collect its output in a list. If <var class="arg">MAX</var> is <tt>#f</tt>, read until end of file.</p><p>The reader is called with one argument: <var class="arg">PORT</var>.</p><p><var class="arg">READER</var> defaults to <tt>read</tt>, <var class="arg">MAX</var> to <tt>#f</tt> and <var class="arg">PORT</var> to <tt>current-input-port</tt>, so if you call it with no arguments, it will read all remaining s-expressions from the current input port.</p></dd></dl><h3 id="sec:read-buffered"><a href="#sec:read-buffered">read-buffered</a></h3> <dl class="defsig"> <dt class="defsig" id="def:read-buffered"><span class="sig"><var class="id">read-buffered</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Reads any remaining data buffered after previous read operations on <var class="arg">PORT</var>. If no remaining data is currently buffered, an empty string is returned. This procedure will never block. Currently only useful for string-, process- and tcp ports.</p></dd></dl><h3 id="sec:read-byte"><a href="#sec:read-byte">read-byte</a></h3><h3 id="sec:write-byte"><a href="#sec:write-byte">write-byte</a></h3> <dl class="defsig"> <dt class="defsig" id="def:read-byte"><span class="sig"><var class="id">read-byte</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:write-byte"><span class="sig"><var class="id">write-byte</var> <var class="arg">BYTE</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Read/write a byte to the port given in <var class="arg">PORT</var>, which default to the values of <tt>(current-input-port)</tt> and <tt>(current-output-port)</tt>, respectively.</p></dd></dl><h3 id="sec:read-line"><a href="#sec:read-line">read-line</a></h3><h3 id="sec:write-line"><a href="#sec:write-line">write-line</a></h3> <dl class="defsig"> <dt class="defsig" id="def:read-line"><span class="sig"><var class="id">read-line</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var> <var class="arg">LIMIT</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:write-line"><span class="sig"><var class="id">write-line</var> <var class="arg">STRING</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Line-input and -output. <var class="arg">PORT</var> defaults to the value of <tt>(current-input-port)</tt> and <tt>(current-output-port)</tt>, respectively. If the optional argument <var class="arg">LIMIT</var> is given and not <tt>#f</tt>, then <tt>read-line</tt> reads at most <var class="arg">LIMIT</var> characters per line. <tt>read-line</tt> returns a string without the terminating newline and <tt>write-line</tt> adds a terminating newline before outputting.</p></dd></dl><h3 id="sec:read-lines"><a href="#sec:read-lines">read-lines</a></h3> <dl class="defsig"> <dt class="defsig" id="def:read-lines"><span class="sig"><var class="id">read-lines</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var> <var class="arg">MAX</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Read <var class="arg">MAX</var> or fewer lines from <var class="arg">PORT</var>. <var class="arg">PORT</var> defaults to the value of <tt>(current-input-port)</tt>. Returns a list of strings, each string representing a line read, not including any line separation character(s).</p></dd></dl><h3 id="sec:read-string"><a href="#sec:read-string">read-string</a></h3><h3 id="sec:read-string.21"><a href="#sec:read-string.21">read-string!</a></h3><h3 id="sec:write-string"><a href="#sec:write-string">write-string</a></h3> <dl class="defsig"> <dt class="defsig" id="def:read-string"><span class="sig"><var class="id">read-string</var> <var class="dsssl">#!optional</var> <var class="arg">NUM</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:read-string.21"><span class="sig"><var class="id">read-string!</var> <var class="arg">NUM</var> <var class="arg">STRING</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var> <var class="arg">START</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:write-string"><span class="sig"><var class="id">write-string</var> <var class="arg">STRING</var> <var class="dsssl">#!optional</var> <var class="arg">NUM</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Read or write <var class="arg">NUM</var> characters from/to <var class="arg">PORT</var>, which defaults to the value of <tt>(current-input-port)</tt> or <tt>(current-output-port)</tt>, respectively.</p><p>If <var class="arg">NUM</var> is <tt>#f</tt> or not given, then all data up to the end-of-file is read, or, in the case of <tt>write-string</tt> the whole string is written. If no more input is available, <tt>read-string</tt> returns <tt>#!eof</tt>.</p><p><tt>read-string!</tt> reads destructively into the given <var class="arg">STRING</var> argument, but never more characters than would fit into <var class="arg">STRING</var>. If <var class="arg">START</var> is given, then the read characters are stored starting at that position. <tt>read-string!</tt> returns the actual number of characters read.</p></dd></dl><h3 id="sec:read-token"><a href="#sec:read-token">read-token</a></h3> <dl class="defsig"> <dt class="defsig" id="def:read-token"><span class="sig"><var class="id">read-token</var> <var class="arg">PREDICATE</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Reads characters from <var class="arg">PORT</var> (which defaults to the value of <tt>(current-input-port)</tt>) and calls the procedure <var class="arg">PREDICATE</var> with each character until <var class="arg">PREDICATE</var> returns false. Returns a string with the accumulated characters.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20gc%29.html">Module (chicken gc)</a></p><p>Next: <a href="Module%20%28chicken%20irregex%29.html">Module (chicken irregex)</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/C interface.html����������������������������������������������������������0000644�0001750�0001750�00000235443�13502230005�020140� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; C interface</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:C_interface">C interface</a> <ul> <li><a href="#sec:Temporary_stack">Temporary stack</a> <ul> <li><a href="#sec:C_save">C_save</a></li> <li><a href="#sec:C_restore">C_restore</a></li></ul></li> <li><a href="#sec:Type.2fvalue_predicates">Type/value predicates</a> <ul> <li><a href="#sec:C_predicates">C predicates</a> <ul> <li><a href="#sec:C_truep">C_truep</a></li> <li><a href="#sec:C_immediatep">C_immediatep</a></li> <li><a href="#sec:C_fitsinfixnump">C_fitsinfixnump</a></li> <li><a href="#sec:C_ufitsinfixnump">C_ufitsinfixnump</a></li></ul></li> <li><a href="#sec:Scheme_predicates">Scheme predicates</a> <ul> <li><a href="#sec:C_zero_length_p">C_zero_length_p</a></li> <li><a href="#sec:C_unboundvaluep">C_unboundvaluep</a></li> <li><a href="#sec:C_boundp">C_boundp</a></li> <li><a href="#sec:C_blockp">C_blockp</a></li> <li><a href="#sec:C_immp">C_immp</a></li> <li><a href="#sec:C_forwardedp">C_forwardedp</a></li> <li><a href="#sec:C_flonump">C_flonump</a></li> <li><a href="#sec:C_stringp">C_stringp</a></li> <li><a href="#sec:C_symbolp">C_symbolp</a></li> <li><a href="#sec:C_pairp">C_pairp</a></li> <li><a href="#sec:C_closurep">C_closurep</a></li> <li><a href="#sec:C_vectorp">C_vectorp</a></li> <li><a href="#sec:C_bytevectorp">C_bytevectorp</a></li> <li><a href="#sec:C_portp">C_portp</a></li> <li><a href="#sec:C_structurep">C_structurep</a></li> <li><a href="#sec:C_locativep">C_locativep</a></li> <li><a href="#sec:C_charp">C_charp</a></li> <li><a href="#sec:C_booleanp">C_booleanp</a></li> <li><a href="#sec:C_eofp">C_eofp</a></li> <li><a href="#sec:C_undefinedp">C_undefinedp</a></li> <li><a href="#sec:C_fixnump">C_fixnump</a></li> <li><a href="#sec:C_nfixnump">C_nfixnump</a></li> <li><a href="#sec:C_bignump">C_bignump</a></li> <li><a href="#sec:C_i_numberp">C_i_numberp</a></li> <li><a href="#sec:C_i_bignump">C_i_bignump</a></li> <li><a href="#sec:C_i_cplxnump">C_i_cplxnump</a></li> <li><a href="#sec:C_i_ratnump">C_i_ratnump</a></li> <li><a href="#sec:C_i_flonump">C_i_flonump</a></li> <li><a href="#sec:C_i_exact_integerp">C_i_exact_integerp</a></li> <li><a href="#sec:C_pointerp">C_pointerp</a></li> <li><a href="#sec:C_taggedpointerp">C_taggedpointerp</a></li> <li><a href="#sec:C_anypointerp">C_anypointerp</a></li> <li><a href="#sec:C_lambdainfop">C_lambdainfop</a></li> <li><a href="#sec:C_byteblockp">C_byteblockp</a></li> <li><a href="#sec:C_specialp">C_specialp</a></li> <li><a href="#sec:C_nullp">C_nullp</a></li> <li><a href="#sec:C_anyp">C_anyp</a></li></ul></li></ul></li> <li><a href="#sec:Constructors">Constructors</a> <ul> <li><a href="#sec:Constructors_for_immediate_Scheme_objects">Constructors for immediate Scheme objects</a> <ul> <li><a href="#sec:C_fix">C_fix</a></li> <li><a href="#sec:C_make_character">C_make_character</a></li> <li><a href="#sec:C_mk_bool">C_mk_bool</a></li> <li><a href="#sec:C_mk_nbool">C_mk_nbool</a></li> <li><a href="#sec:C_SCHEME_END_OF_LIST">C_SCHEME_END_OF_LIST</a></li> <li><a href="#sec:C_SCHEME_END_OF_FILE">C_SCHEME_END_OF_FILE</a></li> <li><a href="#sec:C_SCHEME_FALSE">C_SCHEME_FALSE</a></li> <li><a href="#sec:C_SCHEME_TRUE">C_SCHEME_TRUE</a></li></ul></li> <li><a href="#sec:Constructors_for_non-immediate_Scheme_objects">Constructors for non-immediate Scheme objects</a> <ul> <li><a href="#sec:C_string">C_string</a></li> <li><a href="#sec:C_string2">C_string2</a></li> <li><a href="#sec:C_intern">C_intern</a></li> <li><a href="#sec:C_intern2">C_intern2</a></li> <li><a href="#sec:C_intern3">C_intern3</a></li> <li><a href="#sec:C_pair">C_pair</a></li> <li><a href="#sec:C_flonum">C_flonum</a></li> <li><a href="#sec:C_int_to_num">C_int_to_num</a></li> <li><a href="#sec:C_mpointer">C_mpointer</a></li> <li><a href="#sec:C_vector">C_vector</a></li> <li><a href="#sec:C_structure">C_structure</a></li> <li><a href="#sec:C_list">C_list</a></li> <li><a href="#sec:C_closure">C_closure</a></li></ul></li> <li><a href="#sec:Memory_allocation">Memory allocation</a> <ul> <li><a href="#sec:C_alloc">C_alloc</a></li> <li><a href="#sec:C_SIZEOF_LIST">C_SIZEOF_LIST</a></li> <li><a href="#sec:C_SIZEOF_STRING">C_SIZEOF_STRING</a></li> <li><a href="#sec:C_SIZEOF_VECTOR">C_SIZEOF_VECTOR</a></li> <li><a href="#sec:C_SIZEOF_CLOSURE">C_SIZEOF_CLOSURE</a></li> <li><a href="#sec:C_SIZEOF_STRUCT">C_SIZEOF_STRUCT</a></li> <li><a href="#sec:C_SIZEOF_BIGNUM">C_SIZEOF_BIGNUM</a></li> <li><a href="#sec:C_SIZEOF_FIX_BIGNUM">C_SIZEOF_FIX_BIGNUM</a></li> <li><a href="#sec:C_SIZEOF_INTERNED_SYMBOL">C_SIZEOF_INTERNED_SYMBOL</a></li> <li><a href="#sec:C_SIZEOF_PAIR">C_SIZEOF_PAIR</a></li> <li><a href="#sec:C_SIZEOF_FLONUM">C_SIZEOF_FLONUM</a></li> <li><a href="#sec:C_SIZEOF_POINTER">C_SIZEOF_POINTER</a></li> <li><a href="#sec:C_SIZEOF_LOCATIVE">C_SIZEOF_LOCATIVE</a></li> <li><a href="#sec:C_SIZEOF_TAGGED_POINTER">C_SIZEOF_TAGGED_POINTER</a></li></ul></li></ul></li> <li><a href="#sec:Accessors">Accessors</a> <ul> <li><a href="#sec:C_character_code">C_character_code</a></li> <li><a href="#sec:C_unfix">C_unfix</a></li> <li><a href="#sec:C_flonum_magnitude">C_flonum_magnitude</a></li> <li><a href="#sec:C_c_string">C_c_string</a></li> <li><a href="#sec:C_num_to_int">C_num_to_int</a></li> <li><a href="#sec:C_pointer_address">C_pointer_address</a></li> <li><a href="#sec:C_header_size">C_header_size</a></li> <li><a href="#sec:C_header_bits">C_header_bits</a></li> <li><a href="#sec:C_block_item">C_block_item</a></li> <li><a href="#sec:C_u_i_car">C_u_i_car</a></li> <li><a href="#sec:C_u_i_cdr">C_u_i_cdr</a></li> <li><a href="#sec:C_port_file">C_port_file</a></li> <li><a href="#sec:C_data_pointer">C_data_pointer</a></li></ul></li> <li><a href="#sec:C_make_header">C_make_header</a></li> <li><a href="#sec:C_mutate">C_mutate</a></li> <li><a href="#sec:C_symbol_value">C_symbol_value</a></li> <li><a href="#sec:GC_interface">GC interface</a> <ul> <li><a href="#sec:C_gc_protect">C_gc_protect</a></li> <li><a href="#sec:C_gc_unprotect">C_gc_unprotect</a></li> <li><a href="#sec:C_pre_gc_hook">C_pre_gc_hook</a></li> <li><a href="#sec:C_post_gc_hook">C_post_gc_hook</a></li></ul></li> <li><a href="#sec:Type-specific_macros_and_functions">Type-specific macros and functions</a> <ul> <li><a href="#sec:Vectors">Vectors</a> <ul> <li><a href="#sec:C_vemptyp">C_vemptyp</a></li> <li><a href="#sec:C_notvemptyp">C_notvemptyp</a></li></ul></li> <li><a href="#sec:Numbers">Numbers</a> <ul> <li><a href="#sec:C_u_i_exactp">C_u_i_exactp</a></li> <li><a href="#sec:C_u_i_inexactp">C_u_i_inexactp</a></li> <li><a href="#sec:C_i_finitep">C_i_finitep</a></li></ul></li> <li><a href="#sec:Bignums">Bignums</a> <ul> <li><a href="#sec:C_bignum_negativep">C_bignum_negativep</a></li> <li><a href="#sec:C_bignum_digits">C_bignum_digits</a></li> <li><a href="#sec:C_bignum_size">C_bignum_size</a></li> <li><a href="#sec:C_u_i_bignum_size">C_u_i_bignum_size</a></li> <li><a href="#sec:C_i_bignum_cmp">C_i_bignum_cmp</a></li></ul></li> <li><a href="#sec:Fixnums">Fixnums</a> <ul> <li><a href="#sec:C_i_fixnumevenp">C_i_fixnumevenp</a></li> <li><a href="#sec:C_i_fixnumoddp">C_i_fixnumoddp</a></li> <li><a href="#sec:C_fixnum_times">C_fixnum_times</a></li> <li><a href="#sec:C_a_i_fixnum_times">C_a_i_fixnum_times</a></li> <li><a href="#sec:C_fixnum_plus">C_fixnum_plus</a></li> <li><a href="#sec:C_u_fixnum_plus">C_u_fixnum_plus</a></li> <li><a href="#sec:C_a_i_fixnum_plus">C_a_i_fixnum_plus</a></li> <li><a href="#sec:C_fixnum_difference">C_fixnum_difference</a></li> <li><a href="#sec:C_u_fixnum_difference">C_u_fixnum_difference</a></li> <li><a href="#sec:C_a_i_fixnum_difference">C_a_i_fixnum_difference</a></li> <li><a href="#sec:C_fixnum_divide">C_fixnum_divide</a></li> <li><a href="#sec:C_u_fixnum_divide">C_u_fixnum_divide</a></li> <li><a href="#sec:C_fixnum_modulo">C_fixnum_modulo</a></li> <li><a href="#sec:C_u_fixnum_modulo">C_u_fixnum_modulo</a></li> <li><a href="#sec:C_a_i_fixnum_quotient_checked">C_a_i_fixnum_quotient_checked</a></li> <li><a href="#sec:C_i_fixnum_remainder_checked">C_i_fixnum_remainder_checked</a></li> <li><a href="#sec:C_fixnum_and">C_fixnum_and</a></li> <li><a href="#sec:C_u_fixnum_and">C_u_fixnum_and</a></li> <li><a href="#sec:C_fixnum_or">C_fixnum_or</a></li> <li><a href="#sec:C_u_fixnum_or">C_u_fixnum_or</a></li> <li><a href="#sec:C_fixnum_xor">C_fixnum_xor</a></li> <li><a href="#sec:C_fixnum_not">C_fixnum_not</a></li> <li><a href="#sec:C_fixnum_shift_left">C_fixnum_shift_left</a></li> <li><a href="#sec:C_fixnum_shift_right">C_fixnum_shift_right</a></li> <li><a href="#sec:C_fixnum_negate">C_fixnum_negate</a></li> <li><a href="#sec:C_a_i_fixnum_negate">C_a_i_fixnum_negate</a></li> <li><a href="#sec:C_fixnum_greaterp">C_fixnum_greaterp</a></li> <li><a href="#sec:C_fixnum_greater_or_equal_p">C_fixnum_greater_or_equal_p</a></li> <li><a href="#sec:C_fixnum_lessp">C_fixnum_lessp</a></li> <li><a href="#sec:C_fixnum_less_or_equal_p">C_fixnum_less_or_equal_p</a></li> <li><a href="#sec:C_i_fixnum_positivep">C_i_fixnum_positivep</a></li> <li><a href="#sec:C_i_fixnum_negativep">C_i_fixnum_negativep</a></li> <li><a href="#sec:C_fixnum_increase">C_fixnum_increase</a></li> <li><a href="#sec:C_u_fixnum_increase">C_u_fixnum_increase</a></li> <li><a href="#sec:C_fixnum_decrease">C_fixnum_decrease</a></li> <li><a href="#sec:C_u_fixnum_decrease">C_u_fixnum_decrease</a></li> <li><a href="#sec:C_fixnum_abs">C_fixnum_abs</a></li> <li><a href="#sec:C_i_fixnum_min">C_i_fixnum_min</a></li> <li><a href="#sec:C_i_fixnum_max">C_i_fixnum_max</a></li> <li><a href="#sec:C_i_fixnum_gcd">C_i_fixnum_gcd</a></li> <li><a href="#sec:C_i_fixnum_length">C_i_fixnum_length</a></li></ul></li> <li><a href="#sec:Flonums">Flonums</a> <ul> <li><a href="#sec:C_flonum_equalp">C_flonum_equalp</a></li> <li><a href="#sec:C_flonum_greaterp">C_flonum_greaterp</a></li> <li><a href="#sec:C_flonum_greater_or_equal_p">C_flonum_greater_or_equal_p</a></li> <li><a href="#sec:C_flonum_lessp">C_flonum_lessp</a></li> <li><a href="#sec:C_flonum_less_or_equal_p">C_flonum_less_or_equal_p</a></li> <li><a href="#sec:C_a_i_flonum_plus">C_a_i_flonum_plus</a></li> <li><a href="#sec:C_a_i_flonum_difference">C_a_i_flonum_difference</a></li> <li><a href="#sec:C_a_i_flonum_times">C_a_i_flonum_times</a></li> <li><a href="#sec:C_a_i_flonum_quotient">C_a_i_flonum_quotient</a></li> <li><a href="#sec:C_a_i_flonum_actual_quotient_checked">C_a_i_flonum_actual_quotient_checked</a></li> <li><a href="#sec:C_a_i_flonum_gcd">C_a_i_flonum_gcd</a></li> <li><a href="#sec:C_a_i_flonum_negate">C_a_i_flonum_negate</a></li> <li><a href="#sec:C_a_i_flonum_truncate">C_a_i_flonum_truncate</a></li> <li><a href="#sec:C_a_i_flonum_ceiling">C_a_i_flonum_ceiling</a></li> <li><a href="#sec:C_a_i_flonum_floor">C_a_i_flonum_floor</a></li> <li><a href="#sec:C_a_i_flonum_round">C_a_i_flonum_round</a></li> <li><a href="#sec:C_a_i_flonum_round_proper">C_a_i_flonum_round_proper</a></li> <li><a href="#sec:C_a_i_flonum_sin">C_a_i_flonum_sin</a></li> <li><a href="#sec:C_a_i_flonum_cos">C_a_i_flonum_cos</a></li> <li><a href="#sec:C_a_i_flonum_tan">C_a_i_flonum_tan</a></li> <li><a href="#sec:C_a_i_flonum_asin">C_a_i_flonum_asin</a></li> <li><a href="#sec:C_a_i_flonum_acos">C_a_i_flonum_acos</a></li> <li><a href="#sec:C_a_i_flonum_atan">C_a_i_flonum_atan</a></li> <li><a href="#sec:C_a_i_flonum_atan2">C_a_i_flonum_atan2</a></li> <li><a href="#sec:C_a_i_flonum_log">C_a_i_flonum_log</a></li> <li><a href="#sec:C_a_i_flonum_exp">C_a_i_flonum_exp</a></li> <li><a href="#sec:C_a_i_flonum_expt">C_a_i_flonum_expt</a></li> <li><a href="#sec:C_a_i_flonum_sqrt">C_a_i_flonum_sqrt</a></li> <li><a href="#sec:C_a_i_flonum_abs">C_a_i_flonum_abs</a></li> <li><a href="#sec:C_u_i_flonum_nanp">C_u_i_flonum_nanp</a></li> <li><a href="#sec:C_u_i_flonum_finitep">C_u_i_flonum_finitep</a></li> <li><a href="#sec:C_u_i_flonum_infinitep">C_u_i_flonum_infinitep</a></li></ul></li> <li><a href="#sec:Exact_integers">Exact integers</a> <ul> <li><a href="#sec:C_i_integer_evenp">C_i_integer_evenp</a></li> <li><a href="#sec:C_i_integer_oddp">C_i_integer_oddp</a></li> <li><a href="#sec:C_i_integer_positivep">C_i_integer_positivep</a></li> <li><a href="#sec:C_i_integer_negativep">C_i_integer_negativep</a></li> <li><a href="#sec:C_i_integer_equalp">C_i_integer_equalp</a></li> <li><a href="#sec:C_i_integer_greaterp">C_i_integer_greaterp</a></li> <li><a href="#sec:C_i_integer_greater_or_equalp">C_i_integer_greater_or_equalp</a></li> <li><a href="#sec:C_i_integer_lessp">C_i_integer_lessp</a></li> <li><a href="#sec:C_i_integer_less_or_equalp">C_i_integer_less_or_equalp</a></li></ul></li> <li><a href="#sec:Pointers">Pointers</a> <ul> <li><a href="#sec:C_null_pointerp">C_null_pointerp</a></li> <li><a href="#sec:C_a_i_address_to_pointer">C_a_i_address_to_pointer</a></li> <li><a href="#sec:C_a_i_pointer_to_address">C_a_i_pointer_to_address</a></li></ul></li> <li><a href="#sec:Ports">Ports</a> <ul> <li><a href="#sec:C_tty_portp">C_tty_portp</a></li></ul></li> <li><a href="#sec:Structures">Structures</a> <ul> <li><a href="#sec:C_i_structurep">C_i_structurep</a></li></ul></li> <li><a href="#sec:Characters">Characters</a> <ul> <li><a href="#sec:C_u_i_char_alphabeticp">C_u_i_char_alphabeticp</a></li> <li><a href="#sec:C_u_i_char_numericp">C_u_i_char_numericp</a></li> <li><a href="#sec:C_u_i_char_whitespacep">C_u_i_char_whitespacep</a></li> <li><a href="#sec:C_u_i_char_upper_casep">C_u_i_char_upper_casep</a></li> <li><a href="#sec:C_u_i_char_lower_casep">C_u_i_char_lower_casep</a></li></ul></li></ul></li> <li><a href="#sec:Other_Scheme_procedures_from_C">Other Scheme procedures from C</a> <ul> <li><a href="#sec:C_eqp">C_eqp</a></li> <li><a href="#sec:C_equalp">C_equalp</a></li> <li><a href="#sec:C_i_pairp">C_i_pairp</a></li> <li><a href="#sec:C_i_not_pair_p">C_i_not_pair_p</a></li></ul></li> <li><a href="#sec:An_example_for_simple_calls_to_foreign_code_involving_callbacks">An example for simple calls to foreign code involving callbacks</a></li> <li><a href="#sec:Notes:">Notes:</a></li></ul></li></ul></div><h2 id="sec:C_interface"><a href="#sec:C_interface">C interface</a></h2><p>The following functions and macros are available for C code that invokes Scheme or foreign procedures that are called by Scheme:</p><h3 id="sec:Temporary_stack"><a href="#sec:Temporary_stack">Temporary stack</a></h3><h4 id="sec:C_save"><a href="#sec:C_save">C_save</a></h4><pre>[C macro] void C_save (C_word x) :</pre><p>Saves the Scheme data object <tt>x</tt> on the temporary stack.</p><h4 id="sec:C_restore"><a href="#sec:C_restore">C_restore</a></h4><pre>[C macro] C_word C_restore</pre><p>Pops and returns the topmost value from the temporary stack.</p><h3 id="sec:Type.2fvalue_predicates"><a href="#sec:Type.2fvalue_predicates">Type/value predicates</a></h3><p>When writing C code that accepts Scheme objects you often need to do checking what type of object is passed. These can help you determine the type of an object.</p><h4 id="sec:C_predicates"><a href="#sec:C_predicates">C predicates</a></h4><p>These return regular C integer values (ie, zero is false, nonzero true).</p><h5 id="sec:C_truep"><a href="#sec:C_truep">C_truep</a></h5><pre>[C macro] int C_truep(C_word x)</pre><p>Is <tt>x</tt> a truthy value, i.e. anything except <tt>C_SCHEME_FALSE</tt>?</p><h5 id="sec:C_immediatep"><a href="#sec:C_immediatep">C_immediatep</a></h5><pre>[C macro] int C_immediatep(C_word x)</pre><p>Is <tt>x</tt> an immediate object? (see below for a definition)</p><h5 id="sec:C_fitsinfixnump"><a href="#sec:C_fitsinfixnump">C_fitsinfixnump</a></h5><pre>[C macro] int C_fitsinfixnump(int number)</pre><p>Will <tt>number</tt> fit in a fixnum? It will fit when there is room for one additional type bit to tag it as a fixnum (assuming one bit is already used for the sign). In practice this means that the number's top two bits must be identical.</p><h5 id="sec:C_ufitsinfixnump"><a href="#sec:C_ufitsinfixnump">C_ufitsinfixnump</a></h5><pre>[C macro] int C_ufitsinfixnump(unsigned int number)</pre><p>Like <tt>C_fitsinfixnump</tt> but for unsigned integers. This checks the top <i>two</i> bits are zero, since fixnums <b>always</b> carry a sign.</p><h4 id="sec:Scheme_predicates"><a href="#sec:Scheme_predicates">Scheme predicates</a></h4><p>These return Scheme booleans (ie, C_SCHEME_TRUE or C_SCHEME_FALSE). This means they can be used directly from Scheme using <tt>##core#inline</tt>.</p><h5 id="sec:C_zero_length_p"><a href="#sec:C_zero_length_p">C_zero_length_p</a></h5><pre>[C macro] C_word C_zero_length_p(C_word x)</pre><p>Is <tt>x</tt> a Scheme object of zero length? Only accepts non-immediate objects.</p><h5 id="sec:C_unboundvaluep"><a href="#sec:C_unboundvaluep">C_unboundvaluep</a></h5><pre>[C macro] C_word C_unboundvaluep(C_word x)</pre><p>Is <tt>x</tt> the special unbound variable placeholder <tt>C_SCHEME_UNBOUND</tt>?</p><h5 id="sec:C_boundp"><a href="#sec:C_boundp">C_boundp</a></h5><pre>[C macro] C_word C_boundp(C_word x)</pre><p>Is <tt>x</tt> a bound value? Only accepts non-immediate objects.</p><h5 id="sec:C_blockp"><a href="#sec:C_blockp">C_blockp</a></h5><pre>[C macro] C_word C_blockp(C_word x)</pre><p>Is <tt>x</tt> a &quot;block&quot; value?</p><p>A &quot;block&quot; value is a value that contains a memory block, i.e. is not an immediate value.</p><h5 id="sec:C_immp"><a href="#sec:C_immp">C_immp</a></h5><pre>[C macro] C_word C_immp(C_word x)</pre><p>Is <tt>x</tt> an immediate value?</p><h5 id="sec:C_forwardedp"><a href="#sec:C_forwardedp">C_forwardedp</a></h5><pre>[C macro] C_word C_forwardedp(C_word x)</pre><p>Is <tt>x</tt> a GC-forwarded object?</p><h5 id="sec:C_flonump"><a href="#sec:C_flonump">C_flonump</a></h5><pre>[C macro] C_word C_flonump(C_word x)</pre><p>Is <tt>x</tt> a Scheme flonum object? Accepts only non-immediate objects.</p><h5 id="sec:C_stringp"><a href="#sec:C_stringp">C_stringp</a></h5><pre>[C macro] C_word C_stringp(C_word x)</pre><p>Is <tt>x</tt> a Scheme string object? Accepts only non-immediate objects.</p><h5 id="sec:C_symbolp"><a href="#sec:C_symbolp">C_symbolp</a></h5><pre>[C macro] C_word C_symbolp(C_word x)</pre><p>Is <tt>x</tt> a symbol? Accepts only non-immediate objects.</p><h5 id="sec:C_pairp"><a href="#sec:C_pairp">C_pairp</a></h5><pre>[C macro] C_word C_pairp(C_word x)</pre><p>Is <tt>x</tt> a pair? Accepts only non-immediate objects.</p><h5 id="sec:C_closurep"><a href="#sec:C_closurep">C_closurep</a></h5><pre>[C macro] C_word C_closurep(C_word x)</pre><p>Is <tt>x</tt> a closure? Accepts only non-immediate objects.</p><h5 id="sec:C_vectorp"><a href="#sec:C_vectorp">C_vectorp</a></h5><pre>[C macro] C_word C_vectorp(C_word x)</pre><p>Is <tt>x</tt> any kind of vector? Accepts only non-immediate objects.</p><p>This returns true for both regular heterogenous R5RS vectors and bytevectors (&quot;blobs&quot;). However, it does <i>not</i> return true for SRFI-4 vectors, as those are actually bytevectors wrapped in a structure with a type tag.</p><h5 id="sec:C_bytevectorp"><a href="#sec:C_bytevectorp">C_bytevectorp</a></h5><pre>[C macro] C_word C_bytevectorp(C_word x)</pre><p>Is <tt>x</tt> a bytevector (&quot;blob&quot;)? Accepts only non-immediate objects.</p><h5 id="sec:C_portp"><a href="#sec:C_portp">C_portp</a></h5><pre>[C macro] C_word C_portp(C_word x)</pre><p>Is <tt>x</tt> a port object? Accepts only non-immediate objects.</p><h5 id="sec:C_structurep"><a href="#sec:C_structurep">C_structurep</a></h5><pre>[C macro] C_word C_structurep(C_word x)</pre><p>Is <tt>x</tt> a structure (record) object? Accepts only non-immediate objects.</p><h5 id="sec:C_locativep"><a href="#sec:C_locativep">C_locativep</a></h5><pre>[C macro] C_word C_locativep(C_word x)</pre><p>Is <tt>x</tt> a locative object? Accepts only non-immediate objects.</p><h5 id="sec:C_charp"><a href="#sec:C_charp">C_charp</a></h5><pre>[C macro] C_word C_charp(C_word x)</pre><p>Is <tt>x</tt> a character object?</p><h5 id="sec:C_booleanp"><a href="#sec:C_booleanp">C_booleanp</a></h5><pre>[C macro] C_word C_booleanp(C_word x)</pre><p>Is <tt>x</tt> a boolean object?</p><h5 id="sec:C_eofp"><a href="#sec:C_eofp">C_eofp</a></h5><pre>[C macro] C_word C_eofp(C_word x)</pre><p>Is <tt>x</tt> the <tt>#!eof</tt> object?</p><h5 id="sec:C_undefinedp"><a href="#sec:C_undefinedp">C_undefinedp</a></h5><pre>[C macro] C_word C_undefinedp(C_word x)</pre><p>Is <tt>x</tt> the undefined value?</p><h5 id="sec:C_fixnump"><a href="#sec:C_fixnump">C_fixnump</a></h5><pre>[C macro] C_word C_fixnump(C_word x)</pre><p>Is <tt>x</tt> a fixnum object?</p><h5 id="sec:C_nfixnump"><a href="#sec:C_nfixnump">C_nfixnump</a></h5><pre>[C macro] C_word C_nfixnump(C_word x)</pre><p>Is <tt>x</tt> <i>not</i> a fixnum object?</p><h5 id="sec:C_bignump"><a href="#sec:C_bignump">C_bignump</a></h5><pre>[C macro] C_word C_bignump(C_word x)</pre><p>Is <tt>x</tt> a Scheme bignum object? Accepts only non-immediate objects.</p><h5 id="sec:C_i_numberp"><a href="#sec:C_i_numberp">C_i_numberp</a></h5><pre>[C function] C_word C_i_numberp(C_word x)</pre><p>Is <tt>x</tt> a number object (fixnum, bignum, flonum, ratnum, cplxnum)?</p><h5 id="sec:C_i_bignump"><a href="#sec:C_i_bignump">C_i_bignump</a></h5><pre>[C function] C_word C_i_bignump(C_word x)</pre><p>Is <tt>x</tt> a Scheme bignum object?</p><h5 id="sec:C_i_cplxnump"><a href="#sec:C_i_cplxnump">C_i_cplxnump</a></h5><pre>[C function] C_word C_i_cplxnump(C_word x)</pre><p>Is <tt>x</tt> a Scheme cplxnum object?</p><h5 id="sec:C_i_ratnump"><a href="#sec:C_i_ratnump">C_i_ratnump</a></h5><pre>[C function] C_word C_i_ratnump(C_word x)</pre><p>Is <tt>x</tt> a Scheme ratnum object?</p><h5 id="sec:C_i_flonump"><a href="#sec:C_i_flonump">C_i_flonump</a></h5><pre>[C function] C_word C_i_flonump(C_word x)</pre><p>Is <tt>x</tt> a flonum object?</p><h5 id="sec:C_i_exact_integerp"><a href="#sec:C_i_exact_integerp">C_i_exact_integerp</a></h5><pre>[C macro] C_word C_i_exact_integerp(C_word x)</pre><p>Is <tt>x</tt> an exact integer (i.e., a fixnum or a bignum)?</p><h5 id="sec:C_pointerp"><a href="#sec:C_pointerp">C_pointerp</a></h5><pre>[C macro] C_word C_pointerp(C_word x)</pre><p>Is <tt>x</tt> a C pointer object? Only accepts non-immediate objects.</p><h5 id="sec:C_taggedpointerp"><a href="#sec:C_taggedpointerp">C_taggedpointerp</a></h5><pre>[C macro] C_word C_taggedpointerp(C_word x)</pre><p>Is <tt>x</tt> a tagged pointer object? Only accepts non-immediate objects.</p><h5 id="sec:C_anypointerp"><a href="#sec:C_anypointerp">C_anypointerp</a></h5><pre>[C macro] C_word C_anypointerp(C_word x)</pre><p>Is <tt>x</tt> any type of pointer object? Only accepts non-immediate objects.</p><h5 id="sec:C_lambdainfop"><a href="#sec:C_lambdainfop">C_lambdainfop</a></h5><pre>[C macro] C_word C_lambdainfop(C_word x)</pre><p>Is <tt>x</tt> a lambda-info object? Only accepts non-immediate objects.</p><h5 id="sec:C_byteblockp"><a href="#sec:C_byteblockp">C_byteblockp</a></h5><pre>[C macro] C_word C_byteblockp(C_word x)</pre><p>Is <tt>x</tt> a &quot;byteblock&quot; object? Only accepts non-immediate objects.</p><p>Strings, flonums, bytevectors and lambda-info objects are considered &quot;byteblock&quot; objects, as they are not containers for Scheme objects but simply point to contiguous memory ranges of bytes.</p><h5 id="sec:C_specialp"><a href="#sec:C_specialp">C_specialp</a></h5><pre>[C macro] C_word C_specialp(C_word x)</pre><p>Is <tt>x</tt> a &quot;special&quot; object? Only accepts non-immediate objects.</p><p>Closures, ports, pointers and locatives are considered &quot;special&quot; objects, as they are not containers for Scheme objects (and they are not byte blocks either), so they have to be treated specially by the GC.</p><h5 id="sec:C_nullp"><a href="#sec:C_nullp">C_nullp</a></h5><pre>[C macro] C_word C_nullp(C_word x)</pre><p>Is <tt>x</tt> the empty list, i.e. is it <tt>C_SCHEME_END_OF_LIST</tt>?</p><h5 id="sec:C_anyp"><a href="#sec:C_anyp">C_anyp</a></h5><pre>[C macro] C_word C_anyp(C_word x)</pre><p>Always returns <tt>C_SCHEME_TRUE</tt>.</p><h3 id="sec:Constructors"><a href="#sec:Constructors">Constructors</a></h3><h4 id="sec:Constructors_for_immediate_Scheme_objects"><a href="#sec:Constructors_for_immediate_Scheme_objects">Constructors for immediate Scheme objects</a></h4><p>&quot;immediate&quot; Scheme objects are objects that are represented directly by a <tt>C_word</tt>. There's no additional memory used by them.</p><h5 id="sec:C_fix"><a href="#sec:C_fix">C_fix</a></h5><pre>[C macro] C_word C_fix (int integer)</pre><h5 id="sec:C_make_character"><a href="#sec:C_make_character">C_make_character</a></h5><pre>[C macro] C_word C_make_character (int char_code)</pre><h5 id="sec:C_mk_bool"><a href="#sec:C_mk_bool">C_mk_bool</a></h5><pre>[C macro] C_word C_mk_bool(int truth_value)</pre><h5 id="sec:C_mk_nbool"><a href="#sec:C_mk_nbool">C_mk_nbool</a></h5><pre>[C macro] C_word C_mk_nbool(int truth_value_to_negate)</pre><h5 id="sec:C_SCHEME_END_OF_LIST"><a href="#sec:C_SCHEME_END_OF_LIST">C_SCHEME_END_OF_LIST</a></h5><pre>[C macro] C_SCHEME_END_OF_LIST</pre><h5 id="sec:C_SCHEME_END_OF_FILE"><a href="#sec:C_SCHEME_END_OF_FILE">C_SCHEME_END_OF_FILE</a></h5><pre>[C macro] C_SCHEME_END_OF_FILE</pre><h5 id="sec:C_SCHEME_FALSE"><a href="#sec:C_SCHEME_FALSE">C_SCHEME_FALSE</a></h5><pre>[C macro] C_SCHEME_FALSE</pre><h5 id="sec:C_SCHEME_TRUE"><a href="#sec:C_SCHEME_TRUE">C_SCHEME_TRUE</a></h5><pre>[C macro] C_SCHEME_TRUE</pre><h4 id="sec:Constructors_for_non-immediate_Scheme_objects"><a href="#sec:Constructors_for_non-immediate_Scheme_objects">Constructors for non-immediate Scheme objects</a></h4><p>Non-immediate Scheme objects are still represented and passed around by a single <tt>C_word</tt>, but this is basically just a pointer to the start of the object (which should never be treated as such, use the accessor macros instead).</p><h5 id="sec:C_string"><a href="#sec:C_string">C_string</a></h5><pre>[C function] C_word C_string (C_word **ptr, int length, char *string)</pre><h5 id="sec:C_string2"><a href="#sec:C_string2">C_string2</a></h5><pre>[C function] C_word C_string2 (C_word **ptr, char *zero_terminated_string)</pre><h5 id="sec:C_intern"><a href="#sec:C_intern">C_intern</a></h5><pre>[C function] C_word C_intern (C_word **ptr, int length, char *string)</pre><h5 id="sec:C_intern2"><a href="#sec:C_intern2">C_intern2</a></h5><pre>[C function] C_word C_intern2 (C_word **ptr, char *zero_terminated_string)</pre><h5 id="sec:C_intern3"><a href="#sec:C_intern3">C_intern3</a></h5><pre>[C function] C_word C_intern3 (C_word **ptr, char *zero_terminated_string, C_word initial_value)</pre><h5 id="sec:C_pair"><a href="#sec:C_pair">C_pair</a></h5><pre>[C function] C_word C_pair (C_word **ptr, C_word car, C_word cdr)</pre><h5 id="sec:C_flonum"><a href="#sec:C_flonum">C_flonum</a></h5><pre>[C function] C_word C_flonum (C_word **ptr, double number)</pre><h5 id="sec:C_int_to_num"><a href="#sec:C_int_to_num">C_int_to_num</a></h5><pre>[C function] C_word C_int_to_num (C_word **ptr, int integer)</pre><h5 id="sec:C_mpointer"><a href="#sec:C_mpointer">C_mpointer</a></h5><pre>[C function] C_word C_mpointer (C_word **ptr, void *pointer)</pre><h5 id="sec:C_vector"><a href="#sec:C_vector">C_vector</a></h5><pre>[C function] C_word C_vector (C_word **ptr, int length, ...)</pre><h5 id="sec:C_structure"><a href="#sec:C_structure">C_structure</a></h5><pre>[C function] C_word C_structure (C_word **ptr, int length, ...)</pre><h5 id="sec:C_list"><a href="#sec:C_list">C_list</a></h5><pre>[C function] C_word C_list (C_word **ptr, int length, ...)</pre><h5 id="sec:C_closure"><a href="#sec:C_closure">C_closure</a></h5><pre>[C function] C_word C_closure (C_word **ptr, int length, C_word procedure, ...)</pre><p>These functions allocate memory from <tt>ptr</tt> and initialize a fresh data object. The new data object is returned. <tt>ptr</tt> should be the <b>address</b> of an allocation pointer created with <tt>C_alloc</tt>.</p><p>To find out how big the memory block should be, use the <tt>C_SIZEOF_*</tt> macros described below.</p><p>Here's an example how to create a closure that accepts a vector, stores the Scheme numbers 1, 2 and 3 and a given string in it and returns that vector to its continuation:</p> <pre class="highlight colorize">#&gt; #include &lt;assert.h&gt; void fill_vector<span class="paren1">(<span class="default">C_word c, C_word closure, C_word vec</span>)</span> { C_word kontinuation = C_block_item<span class="paren1">(<span class="default">closure, 1</span>)</span><span class="comment">; </span> C_block_item<span class="paren1">(<span class="default">vec, 0</span>)</span> = C_fix<span class="paren1">(<span class="default">1</span>)</span><span class="comment">; </span> C_block_item<span class="paren1">(<span class="default">vec, 1</span>)</span> = C_fix<span class="paren1">(<span class="default">2</span>)</span><span class="comment">; </span> C_block_item<span class="paren1">(<span class="default">vec, 2</span>)</span> = C_fix<span class="paren1">(<span class="default">3</span>)</span><span class="comment">; </span> C_block_item<span class="paren1">(<span class="default">vec, 3</span>)</span> = C_block_item<span class="paren1">(<span class="default">closure, 2</span>)</span><span class="comment">; </span> C_kontinue<span class="paren1">(<span class="default">kontinuation, vec</span>)</span><span class="comment">; </span>} void one_two_three<span class="paren1">(<span class="default">C_word c, C_word self, C_word k, C_word str</span>)</span> { /* * Allocate room on <i><span class="symbol">the</span></i> stack to hold <i><span class="symbol">the</span></i> <span class="keyword">closure:</span> 1 word for * <i><span class="symbol">the</span></i> type tag, 1 word for <i><span class="symbol">the</span></i> procedure and 2 words for <i><span class="symbol">the</span></i> * values <span class="string">&quot;closed over&quot;</span><span class="comment">; this procedure&#x27;s continuation &quot;k&quot; and </span> * <i><span class="symbol">the</span></i> argument <span class="string">&quot;str&quot;</span>. We could also use C_alloc<span class="paren1">(<span class="default">4</span>)</span>. */ C_word closure<span class="paren1">[<span class="default">4</span>]</span>, *cp = closure<span class="comment">; </span> /* Create <i><span class="symbol">the</span></i> closure. It holds 3 values, not counting <i><span class="symbol">the</span></i> tag */ C_word closure_object = C_closure<span class="paren1">(<span class="default">&amp;cp, 3, <span class="paren2">(<span class="default">C_word</span>)</span>fill_vector, k, str</span>)</span><span class="comment">; </span> /* * After this, cp points just beyond <i><span class="symbol">the</span></i> last word of <i><span class="symbol">the</span></i> allocated * data and closure_object is an opaque representation of <i><span class="symbol">the</span></i> newly * created closure as a whole, i.e. <i><span class="symbol">the</span></i> following relations <span class="keyword">hold:</span> */ assert<span class="paren1">(<span class="default"> <span class="paren2">(<span class="default">closure + 4</span>)</span> == cp </span>)</span><span class="comment">; </span> assert<span class="paren1">(<span class="default"> C_block_header<span class="paren2">(<span class="default">closure_object</span>)</span> == <span class="paren2">(<span class="default">*closure</span>)</span> </span>)</span><span class="comment">; </span> assert<span class="paren1">(<span class="default"> C_data_pointer<span class="paren2">(<span class="default">closure_object</span>)</span> == <span class="paren2">(<span class="default">closure + 1</span>)</span> </span>)</span><span class="comment">; </span> assert<span class="paren1">(<span class="default"> C_block_item<span class="paren2">(<span class="default">closure_object, 0</span>)</span> == <span class="paren2">(<span class="default">*<span class="paren3">(<span class="default">closure + 1</span>)</span></span>)</span> </span>)</span><span class="comment">; </span> /* Make a vector of 4 objects and use closure_object as continuation */ C_allocate_vector<span class="paren1">(<span class="default">6, <span class="paren2">(<span class="default">C_word</span>)</span>NULL, closure_object, C_fix<span class="paren2">(<span class="default">4</span>)</span>, C_SCHEME_FALSE, /* not a byte vector */ C_SCHEME_FALSE, /* initialization value. Don&#x27;t care */ C_SCHEME_FALSE</span>)</span><span class="comment">; /* don&#x27;t align at 8 bytes */ </span> /* .. C_allocate_vector does not return ... */ } &lt;# <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> one-two-three <span class="paren2">(<span class="default">foreign-primitive <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">scheme-object str</span>)</span></span>)</span> <span class="string">&quot;one_two_three(C_c, C_self, C_k, str);&quot;</span></span>)</span></span>)</span> <span class="paren1">(<span class="default">print <span class="paren2">(<span class="default">one-two-three <span class="string">&quot;hi&quot;</span></span>)</span></span>)</span></pre><p>This is equivalent to the following in Scheme:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">one-two-three str</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">fill-vector <span class="paren5">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren6">(<span class="default">vec</span>)</span> <span class="paren6">(<span class="default">vector-set! vec 0 1</span>)</span> <span class="paren6">(<span class="default">vector-set! vec 1 2</span>)</span> <span class="paren6">(<span class="default">vector-set! vec 2 3</span>)</span> <span class="paren6">(<span class="default">vector-set! vec 3 str</span>)</span> vec</span>)</span></span>)</span></span>)</span> <span class="paren3">(<span class="default">fill-vector <span class="paren4">(<span class="default">make-vector 4 #f</span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren1">(<span class="default">print <span class="paren2">(<span class="default">one-two-three <span class="string">&quot;hi&quot;</span></span>)</span></span>)</span></pre><h4 id="sec:Memory_allocation"><a href="#sec:Memory_allocation">Memory allocation</a></h4><p>These can be used to allocate memory for non-immediate objects.</p><h5 id="sec:C_alloc"><a href="#sec:C_alloc">C_alloc</a></h5><pre>[C macro] C_word* C_alloc (int words)</pre><p>Allocates memory from the C stack (<tt>C_alloc</tt>) and returns a pointer to it. <tt>words</tt> should be the number of words needed for all data objects that are to be created in this function. Note that stack-allocated data objects have to be passed to Scheme callback functions, or they will not be seen by the garbage collector. This is really only usable for callback procedure invocations, make sure not to use it in normal code, because the allocated memory will be re-used after the foreign procedure returns. When invoking Scheme callback procedures a minor garbage collection is performed, so data allocated with <tt>C_alloc</tt> will already have moved to a safe place.</p><p>Note that <tt>C_alloc</tt> is really just a wrapper around <tt>alloca</tt>, and can also be simulated by declaring a stack-allocated array of <tt>C_word</tt>s:</p><h5 id="sec:C_SIZEOF_LIST"><a href="#sec:C_SIZEOF_LIST">C_SIZEOF_LIST</a></h5><pre>[C macro] int C_SIZEOF_LIST (int length)</pre><h5 id="sec:C_SIZEOF_STRING"><a href="#sec:C_SIZEOF_STRING">C_SIZEOF_STRING</a></h5><pre>[C macro] int C_SIZEOF_STRING (int length)</pre><h5 id="sec:C_SIZEOF_VECTOR"><a href="#sec:C_SIZEOF_VECTOR">C_SIZEOF_VECTOR</a></h5><pre>[C macro] int C_SIZEOF_VECTOR (int length)</pre><p>Returns the size in words needed for allocation of vector with <i>length</i> elements.</p><h5 id="sec:C_SIZEOF_CLOSURE"><a href="#sec:C_SIZEOF_CLOSURE">C_SIZEOF_CLOSURE</a></h5><pre>[C macro] int C_SIZEOF_CLOSURE (int length)</pre><p>Returns the size in words needed for allocation of a closure with <tt>length</tt> slots. The C function pointer also counts as a slot, so always remember to include it when calculating <tt>length</tt>.</p><h5 id="sec:C_SIZEOF_STRUCT"><a href="#sec:C_SIZEOF_STRUCT">C_SIZEOF_STRUCT</a></h5><pre>[C macro] int C_SIZEOF_STRUCT (int length)</pre><p>Returns the size in words needed for allocation of a structure (record type) object with <tt>length</tt> slots. The structure's type tag also counts as a slot, so always remember to include it when calculating <tt>length</tt>.</p><h5 id="sec:C_SIZEOF_BIGNUM"><a href="#sec:C_SIZEOF_BIGNUM">C_SIZEOF_BIGNUM</a></h5><pre>[C macro] int C_SIZEOF_BIGNUM (int length)</pre><p>Returns the size in words needed for allocation of a bignum object with <tt>length</tt> word-sized digits (limbs).</p><h5 id="sec:C_SIZEOF_FIX_BIGNUM"><a href="#sec:C_SIZEOF_FIX_BIGNUM">C_SIZEOF_FIX_BIGNUM</a></h5><pre>[C macro] int C_SIZEOF_FIX_BIGNUM</pre><p>The size in words needed for allocation of a bignum object which is large enough to store any fixnum (ie, if it were converted to a denormalized bignum, because if a number <i>can</i> be represented as a fixnum, it <i>will</i> be).</p><h5 id="sec:C_SIZEOF_INTERNED_SYMBOL"><a href="#sec:C_SIZEOF_INTERNED_SYMBOL">C_SIZEOF_INTERNED_SYMBOL</a></h5><pre>[C macro] int C_SIZEOF_INTERNED_SYMBOL (int length)</pre><h5 id="sec:C_SIZEOF_PAIR"><a href="#sec:C_SIZEOF_PAIR">C_SIZEOF_PAIR</a></h5><pre>[C macro] int C_SIZEOF_PAIR</pre><h5 id="sec:C_SIZEOF_FLONUM"><a href="#sec:C_SIZEOF_FLONUM">C_SIZEOF_FLONUM</a></h5><pre>[C macro] int C_SIZEOF_FLONUM</pre><h5 id="sec:C_SIZEOF_POINTER"><a href="#sec:C_SIZEOF_POINTER">C_SIZEOF_POINTER</a></h5><pre>[C macro] int C_SIZEOF_POINTER</pre><h5 id="sec:C_SIZEOF_LOCATIVE"><a href="#sec:C_SIZEOF_LOCATIVE">C_SIZEOF_LOCATIVE</a></h5><pre>[C macro] int C_SIZEOF_LOCATIVE</pre><h5 id="sec:C_SIZEOF_TAGGED_POINTER"><a href="#sec:C_SIZEOF_TAGGED_POINTER">C_SIZEOF_TAGGED_POINTER</a></h5><pre>[C macro] int C_SIZEOF_TAGGED_POINTER</pre><p>These are macros that return the size in words needed for a data object of a given type.</p><h3 id="sec:Accessors"><a href="#sec:Accessors">Accessors</a></h3><h4 id="sec:C_character_code"><a href="#sec:C_character_code">C_character_code</a></h4><pre>[C macro] int C_character_code (C_word character)</pre><h4 id="sec:C_unfix"><a href="#sec:C_unfix">C_unfix</a></h4><pre>[C macro] int C_unfix (C_word fixnum)</pre><h4 id="sec:C_flonum_magnitude"><a href="#sec:C_flonum_magnitude">C_flonum_magnitude</a></h4><pre>[C macro] double C_flonum_magnitude (C_word flonum)</pre><h4 id="sec:C_c_string"><a href="#sec:C_c_string">C_c_string</a></h4><pre>[C function] char* C_c_string (C_word string)</pre><h4 id="sec:C_num_to_int"><a href="#sec:C_num_to_int">C_num_to_int</a></h4><pre>[C function] int C_num_to_int (C_word fixnum_or_bignum)</pre><h4 id="sec:C_pointer_address"><a href="#sec:C_pointer_address">C_pointer_address</a></h4><pre>[C function] void* C_pointer_address (C_word pointer)</pre><p>These macros and functions can be used to convert Scheme data objects back to C data. Note that <tt>C_c_string()</tt> returns a pointer to the character buffer of the actual Scheme object and is not zero-terminated.</p><h4 id="sec:C_header_size"><a href="#sec:C_header_size">C_header_size</a></h4><pre>[C macro] int C_header_size (C_word x)</pre><h4 id="sec:C_header_bits"><a href="#sec:C_header_bits">C_header_bits</a></h4><pre>[C macro] int C_header_bits (C_word x)</pre><p>Return the number of elements and the type-bits of the non-immediate Scheme data object <tt>x</tt>.</p><h4 id="sec:C_block_item"><a href="#sec:C_block_item">C_block_item</a></h4><pre>[C macro] C_word C_block_item (C_word x, int index)</pre><p>This macro can be used to access slots of the non-immediate Scheme data object <tt>x</tt>. <tt>index</tt> specifies the index of the slot to be fetched, starting at 0. Pairs have 2 slots, one for the <b>car</b> and one for the <b>cdr</b>. Vectors have one slot for each element.</p><h4 id="sec:C_u_i_car"><a href="#sec:C_u_i_car">C_u_i_car</a></h4><pre>[C macro] C_word C_u_i_car (C_word x)</pre><h4 id="sec:C_u_i_cdr"><a href="#sec:C_u_i_cdr">C_u_i_cdr</a></h4><pre>[C macro] C_word C_u_i_cdr (C_word x)</pre><p>Aliases for <tt>C_block_item(x, 0)</tt> and <tt>C_block_item(x, 1)</tt>, respectively.</p><h4 id="sec:C_port_file"><a href="#sec:C_port_file">C_port_file</a></h4><pre>[C macro] C_word C_port_file (C_word x)</pre><p>Alias for <tt>(FILE *)C_block_item(x, 0)</tt>. To be used with port objects representing files (but will not work on sockets, for example).</p><h4 id="sec:C_data_pointer"><a href="#sec:C_data_pointer">C_data_pointer</a></h4><pre>[C macro] void* C_data_pointer (C_word x)</pre><p>Returns a pointer to the data-section of a non-immediate Scheme object.</p><h3 id="sec:C_make_header"><a href="#sec:C_make_header">C_make_header</a></h3><pre>[C macro] C_word C_make_header (C_word bits, C_word size)</pre><p>A macro to build a Scheme object header from its bits and size parts.</p><h3 id="sec:C_mutate"><a href="#sec:C_mutate">C_mutate</a></h3><pre>[C function] C_word C_mutate (C_word *slot, C_word val)</pre><p>Assign the Scheme value <tt>val</tt> to the location specified by <tt>slot</tt>. If the value points to data inside the nursery (the first heap-generation), then the garbage collector will remember to handle the data appropriately. Assigning nursery-pointers directly will otherwise result in lost data. Note that no copying takes place at the moment when <tt>C_mutate</tt> is called, but later - at the next (minor) garbage collection.</p><h3 id="sec:C_symbol_value"><a href="#sec:C_symbol_value">C_symbol_value</a></h3><pre>[C macro] C_word C_symbol_value (C_word symbol)</pre><p>Returns the global value of the variable with the name <tt>symbol</tt>. If the variable is unbound <tt>C_SCHEME_UNBOUND</tt> is returned. You can set a variable's value with <tt>C_mutate(&amp;C_symbol_value(SYMBOL), VALUE)</tt>.</p><h3 id="sec:GC_interface"><a href="#sec:GC_interface">GC interface</a></h3><h4 id="sec:C_gc_protect"><a href="#sec:C_gc_protect">C_gc_protect</a></h4><pre>[C function] void C_gc_protect (C_word *ptrs[], int n)</pre><p>Registers <tt>n</tt> variables at address <tt>ptrs</tt> to be garbage collection roots. The locations should not contain pointers to data allocated in the nursery, only immediate values or pointers to heap-data are valid. Any assignment of potential nursery data into a root-array should be done via <tt>C_mutate()</tt>. The variables have to be initialized to sensible values before the next garbage collection starts (when in doubt, set all locations in <tt>ptrs</tt> to <tt>C_SCHEME_UNDEFINED</tt>) <tt>C_gc_protect</tt> may not called before the runtime system has been initialized (either by <tt>CHICKEN_initialize</tt>, <tt>CHICKEN_run</tt> or <tt>CHICKEN_invoke</tt>.</p><p>For a slightly simpler interface to creating and using GC roots see <tt>CHICKEN_new_gc_root</tt>.</p><h4 id="sec:C_gc_unprotect"><a href="#sec:C_gc_unprotect">C_gc_unprotect</a></h4><pre>[C function] void C_gc_unprotect (int n)</pre><p>Removes the last <tt>n</tt> registered variables from the set of root variables.</p><h4 id="sec:C_pre_gc_hook"><a href="#sec:C_pre_gc_hook">C_pre_gc_hook</a></h4><pre>[C Variable] void (*C_pre_gc_hook)(int mode)</pre><p>If not <tt>NULL</tt>, the function pointed to by this variable will be called before each garbage collection with a flag indicating what kind of collection was performed (either <tt>0</tt> for a minor or major collection or <tt>2</tt> for a resizing collection). A &quot;resizing&quot; collection means a secondary collection that moves all live data into a enlarged (or shrinked) heap-space. Minor collections happen very frequently, so the hook function should not consume too much time. The hook function may not invoke Scheme callbacks.</p><p>Note that resizing collections may be nested in normal major collections.</p><h4 id="sec:C_post_gc_hook"><a href="#sec:C_post_gc_hook">C_post_gc_hook</a></h4><pre>[C Variable] void (*C_post_gc_hook)(int mode, long ms)</pre><p>If not <tt>NULL</tt>, the function pointed to by this variable will be called after each garbage collection with a flag indicating what kind of collection was performed (either <tt>0</tt> for a minor collection, <tt>1</tt> for a major collection or <tt>2</tt> for a resizing collection). Minor collections happen very frequently, so the hook function should not consume too much time. The hook function may not invoke Scheme callbacks. The <tt>ms</tt> argument records the number of milliseconds required for the garbage collection, if the collection was a major one. For minor collections the value of the <tt>ms</tt> argument is undefined.</p><h3 id="sec:Type-specific_macros_and_functions"><a href="#sec:Type-specific_macros_and_functions">Type-specific macros and functions</a></h3><p>The following are macros and functions to ask information or perform operations on objects once their types are already known. If you call it on any object of another type, it is not defined what will happen and likely your program will crash, especially if you pass immediates to procedures expecting non-immediates.</p><h4 id="sec:Vectors"><a href="#sec:Vectors">Vectors</a></h4><h5 id="sec:C_vemptyp"><a href="#sec:C_vemptyp">C_vemptyp</a></h5><pre>[C macro] C_word C_vemptyp(C_word v)</pre><p>Is the (byte- or heterogenous) vector <tt>v</tt> empty?</p><h5 id="sec:C_notvemptyp"><a href="#sec:C_notvemptyp">C_notvemptyp</a></h5><pre>[C macro] C_word C_notvemptyp(C_word v)</pre><p>Is the (byte- or heterogenous) vector <tt>v</tt> nonempty?</p><h4 id="sec:Numbers"><a href="#sec:Numbers">Numbers</a></h4><p>These procedures accept any type of number, so you can pass in a fixnum, a flonum, a bignum, a ratnum or a cplxnum. You shouldn't pass in another type though, since that could crash your program.</p><h5 id="sec:C_u_i_exactp"><a href="#sec:C_u_i_exactp">C_u_i_exactp</a></h5><pre>[C macro] C_word C_u_i_exactp(C_word x)</pre><p>Is <tt>x</tt> an exact number (i.e., a fixnum, bignum, ratnum or exact cplxnum)?</p><h5 id="sec:C_u_i_inexactp"><a href="#sec:C_u_i_inexactp">C_u_i_inexactp</a></h5><pre>[C macro] C_word C_u_i_inexactp(C_word x)</pre><p>Is <tt>x</tt> an inexact number (i.e., a flonum or an inexact cplxnum)?</p><h5 id="sec:C_i_finitep"><a href="#sec:C_i_finitep">C_i_finitep</a></h5><pre>[C function] C_word C_i_finitep(C_word x)</pre><p>Is <tt>x</tt> a finite number? This returns false only when <tt>x</tt> is a flonum representing <tt>-inf</tt> or <tt>+inf</tt>.</p><h4 id="sec:Bignums"><a href="#sec:Bignums">Bignums</a></h4><h5 id="sec:C_bignum_negativep"><a href="#sec:C_bignum_negativep">C_bignum_negativep</a></h5><pre>[C macro] int C_bignum_negativep(C_word b)</pre><p>Returns nonzero if the bignum <tt>b</tt> is negative, zero if it is not.</p><h5 id="sec:C_bignum_digits"><a href="#sec:C_bignum_digits">C_bignum_digits</a></h5><pre>[C macro] C_uword *C_bignum_digits(C_word b)</pre><p>Returns a pointer to the first digit (the least significant one) of the bignum <tt>b</tt>.</p><h5 id="sec:C_bignum_size"><a href="#sec:C_bignum_size">C_bignum_size</a></h5><pre>[C macro] C_word C_bignum_size(b)</pre><p>Returns the number of digits in the bignum <tt>b</tt>, as an unboxed C number. If you want a fixnum, use <tt>C_u_i_bignum_size</tt>.</p><h5 id="sec:C_u_i_bignum_size"><a href="#sec:C_u_i_bignum_size">C_u_i_bignum_size</a></h5><pre>[C macro] C_word C_u_i_bignum_size(b)</pre><p>Returns the number of digits in the bignum <tt>b</tt>, as a Scheme fixnum. If you want an unboxed integer, use <tt>C_bignum_size</tt>.</p><h5 id="sec:C_i_bignum_cmp"><a href="#sec:C_i_bignum_cmp">C_i_bignum_cmp</a></h5><pre>[C macro] C_word C_i_bignum_cmp(x, y)</pre><p>Compares the bignums <tt>x</tt> and <tt>y</tt> and returns the fixnums <tt>-1</tt>, <tt>0</tt> or <tt>1</tt> if <tt>x</tt> is less than, equal to or greater than <tt>y</tt>, respectively.</p><h4 id="sec:Fixnums"><a href="#sec:Fixnums">Fixnums</a></h4><p>Note: Fixnums are immediates, so there is no <tt>C_fixnum_equalp</tt> macro. You can just compare them without hassle (or use <a href="#sec:c-eqp">C_eqp</a> if you prefer).</p><h5 id="sec:C_i_fixnumevenp"><a href="#sec:C_i_fixnumevenp">C_i_fixnumevenp</a></h5><pre>[C macro] C_word C_i_fixnumevenp(C_word x)</pre><p>Is <tt>x</tt> an even fixnum?</p><h5 id="sec:C_i_fixnumoddp"><a href="#sec:C_i_fixnumoddp">C_i_fixnumoddp</a></h5><pre>[C macro] C_word C_i_fixnumoddp(C_word x)</pre><p>Is <tt>x</tt> an odd fixnum?</p><h5 id="sec:C_fixnum_times"><a href="#sec:C_fixnum_times">C_fixnum_times</a></h5><pre>[C macro] C_word C_fixnum_times(C_word n1, C_word n2)</pre><p>Multiply fixnum n1 by fixnum n2. Will not overflow into a bignum, but will handle overflows safely in the sense that it always produces a fixnum.</p><h5 id="sec:C_a_i_fixnum_times"><a href="#sec:C_a_i_fixnum_times">C_a_i_fixnum_times</a></h5><pre>[C macro] C_word C_a_i_fixnum_times(C_word **ptr, C_word n, C_word x, C_word y)</pre><p>Calculate <tt>x</tt> * <tt>y</tt>, safely overflowing into a bignum, using the storage in <tt>ptr</tt> (which should be at least <tt>C_SIZEOF_BIGNUM(2)</tt>).</p><h5 id="sec:C_fixnum_plus"><a href="#sec:C_fixnum_plus">C_fixnum_plus</a></h5><pre>[C macro] C_word C_fixnum_plus(C_word n1, C_word n2)</pre><p>Add fixnum <tt>n1</tt> to fixnum <tt>n2</tt>. Will not overflow into a bignum, but will handle overflows safely in the sense that it always produces a fixnum.</p><h5 id="sec:C_u_fixnum_plus"><a href="#sec:C_u_fixnum_plus">C_u_fixnum_plus</a></h5><pre>[C macro] C_word C_u_fixnum_plus(C_word n1, C_word n2)</pre><p>Like <tt>C_fixnum_plus</tt>, but unsafe (assumes no overflow/underflow).</p><h5 id="sec:C_a_i_fixnum_plus"><a href="#sec:C_a_i_fixnum_plus">C_a_i_fixnum_plus</a></h5><pre>[C macro] C_word C_a_i_fixnum_plus(C_word **ptr, C_word n, C_word x, C_word y)</pre><p>Calculate <tt>x</tt> + <tt>y</tt>, safely overflowing into a bignum, using the storage in <tt>ptr</tt> (which should be at least <tt>C_SIZEOF_FIX_BIGNUM</tt>).</p><h5 id="sec:C_fixnum_difference"><a href="#sec:C_fixnum_difference">C_fixnum_difference</a></h5><pre>[C macro] C_word C_fixnum_difference(C_word n1, C_word n2)</pre><p>Calculate <tt>n1</tt> - <tt>n2</tt>. Will not overflow into a bignum, but will handle overflows safely in the sense that it always produces a fixnum.</p><h5 id="sec:C_u_fixnum_difference"><a href="#sec:C_u_fixnum_difference">C_u_fixnum_difference</a></h5><pre>[C macro] C_word C_u_fixnum_difference(C_word n1, C_word n2)</pre><p>Like <tt>C_fixnum_difference</tt>, but unsafe (assumes no overflow/underflow).</p><h5 id="sec:C_a_i_fixnum_difference"><a href="#sec:C_a_i_fixnum_difference">C_a_i_fixnum_difference</a></h5><pre>[C macro] C_word C_a_i_fixnum_difference(C_word **ptr, C_word n, C_word x, C_word y)</pre><p>Calculate <tt>x</tt> - <tt>y</tt>, safely overflowing into a bignum, using the storage in <tt>ptr</tt> (which should be at least <tt>C_SIZEOF_FIX_BIGNUM</tt>).</p><h5 id="sec:C_fixnum_divide"><a href="#sec:C_fixnum_divide">C_fixnum_divide</a></h5><h5 id="sec:C_u_fixnum_divide"><a href="#sec:C_u_fixnum_divide">C_u_fixnum_divide</a></h5><pre>[C macro] C_word C_fixnum_divide(C_word n1, C_word n2) [C macro] C_word C_u_fixnum_divide(C_word n1, C_word n2)</pre><p>Divide <tt>n1</tt> by <tt>n2</tt>, returning the quotient (i.e., integer division). <tt>C_fixnum_divide</tt> signals an error if <tt>n2</tt> is zero.</p><h5 id="sec:C_fixnum_modulo"><a href="#sec:C_fixnum_modulo">C_fixnum_modulo</a></h5><h5 id="sec:C_u_fixnum_modulo"><a href="#sec:C_u_fixnum_modulo">C_u_fixnum_modulo</a></h5><pre>[C macro] C_word C_fixnum_modulo(C_word n1, C_word n2) [C macro] C_word C_u_fixnum_modulo(C_word n1, C_word n2)</pre><p>Calculate <tt>n1</tt> modulo <tt>n2</tt>. <tt>C_fixnum_modulo</tt> signals an error if <tt>n2</tt> is zero. Neither handles overflow into bignums.</p><h5 id="sec:C_a_i_fixnum_quotient_checked"><a href="#sec:C_a_i_fixnum_quotient_checked">C_a_i_fixnum_quotient_checked</a></h5><pre>[C macro] C_word C_a_i_fixnum_quotient_checked(C_word **ptr, C_word n, C_word x, C_word y)</pre><p>Calculate integer division of <tt>x</tt> / <tt>y</tt>, safely overflowing into a bignum (which can happen when dividing by <tt>C_MOST_NEGATIVE_FIXNUM</tt>), using the storage in <tt>ptr</tt> (which should be at least <tt>C_SIZEOF_FIX_BIGNUM</tt>). If <tt>y</tt> is zero, this will signal an error.</p><h5 id="sec:C_i_fixnum_remainder_checked"><a href="#sec:C_i_fixnum_remainder_checked">C_i_fixnum_remainder_checked</a></h5><pre>[C macro] C_word C_i_fixnum_remainder_checked(C_word x, C_word y)</pre><p>Calculate the remainder of integer division <tt>x</tt> / <tt>y</tt>. If <tt>y</tt> is zero, this will signal an error.</p><h5 id="sec:C_fixnum_and"><a href="#sec:C_fixnum_and">C_fixnum_and</a></h5><pre>[C macro] C_word C_fixnum_and(C_word n1, C_word n2)</pre><p>Calculate the bitwise <tt>AND</tt> of the integral values of <tt>n1</tt> and <tt>n2</tt>.</p><h5 id="sec:C_u_fixnum_and"><a href="#sec:C_u_fixnum_and">C_u_fixnum_and</a></h5><pre>[C macro] C_word C_u_fixnum_and(C_word n1, C_word n2)</pre><p>Like <tt>C_fixnum_and</tt>, but unsafe.</p><h5 id="sec:C_fixnum_or"><a href="#sec:C_fixnum_or">C_fixnum_or</a></h5><pre>[C macro] C_word C_fixnum_or(C_word n1, C_word n2)</pre><p>Calculate the bitwise <tt>OR</tt> of the integral values of <tt>n1</tt> and <tt>n2</tt>.</p><h5 id="sec:C_u_fixnum_or"><a href="#sec:C_u_fixnum_or">C_u_fixnum_or</a></h5><pre>[C macro] C_word C_u_fixnum_or(C_word n1, C_word n2)</pre><p>Like <tt>C_fixnum_or</tt>, but unsafe.</p><h5 id="sec:C_fixnum_xor"><a href="#sec:C_fixnum_xor">C_fixnum_xor</a></h5><pre>[C macro] C_word C_fixnum_xor(C_word n1, C_word n2)</pre><p>Calculate the bitwise <tt>XOR</tt> of the integral values of <tt>n1</tt> and <tt>n2</tt>.</p><h5 id="sec:C_fixnum_not"><a href="#sec:C_fixnum_not">C_fixnum_not</a></h5><pre>[C macro] C_word C_fixnum_not(C_word n)</pre><p>Calculate the bitwise <tt>NOT</tt> (inversion of bits) of the integral value of <tt>n</tt>.</p><h5 id="sec:C_fixnum_shift_left"><a href="#sec:C_fixnum_shift_left">C_fixnum_shift_left</a></h5><pre>[C macro] C_word C_fixnum_shift_left(C_word n1, C_word n2)</pre><p>Shift the integral value of <tt>n1</tt> left by <tt>n2</tt> positions.</p><h5 id="sec:C_fixnum_shift_right"><a href="#sec:C_fixnum_shift_right">C_fixnum_shift_right</a></h5><pre>[C macro] C_word C_fixnum_shift_right(C_word n1, C_word n2)</pre><p>Shift the integral value of <tt>n1</tt> right by <tt>n2</tt></p><h5 id="sec:C_fixnum_negate"><a href="#sec:C_fixnum_negate">C_fixnum_negate</a></h5><pre>[C macro] C_word C_fixnum_negate(C_word n)</pre><p>Negate <tt>n</tt>, i.e. return <tt>-n</tt>. This will <i>not</i> overflow into a bignum.</p><h5 id="sec:C_a_i_fixnum_negate"><a href="#sec:C_a_i_fixnum_negate">C_a_i_fixnum_negate</a></h5><pre>[C macro] C_word C_a_i_fixnum_negate(C_word **ptr, C_word n, C_word x)</pre><p>Negate <tt>n</tt>, i.e. return <tt>-n</tt>. This will not overflow into a bignum, using the storage pointed to by <tt>ptr</tt>, which should at least be <tt>C_SIZEOF_FIX_BIGNUM</tt>.</p><h5 id="sec:C_fixnum_greaterp"><a href="#sec:C_fixnum_greaterp">C_fixnum_greaterp</a></h5><pre>[C macro] C_word C_fixnum_greaterp(C_word n1, C_word n2)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n1</tt> is greater than <tt>n2</tt>, <tt>C_SCHEME_FALSE</tt> if not.</p><h5 id="sec:C_fixnum_greater_or_equal_p"><a href="#sec:C_fixnum_greater_or_equal_p">C_fixnum_greater_or_equal_p</a></h5><pre>[C macro] C_word C_fixnum_greater_or_equalp(C_word n1, C_word n2)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n1</tt> is greater than or equal to <tt>n2</tt>, <tt>C_SCHEME_FALSE</tt> if not.</p><h5 id="sec:C_fixnum_lessp"><a href="#sec:C_fixnum_lessp">C_fixnum_lessp</a></h5><pre>[C macro] C_word C_fixnum_lessp(C_word n1, C_word n2)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n1</tt> is less than <tt>n2</tt>, <tt>C_SCHEME_FALSE</tt> if not.</p><h5 id="sec:C_fixnum_less_or_equal_p"><a href="#sec:C_fixnum_less_or_equal_p">C_fixnum_less_or_equal_p</a></h5><pre>[C macro] C_word C_fixnum_less_or_equalp(C_word n1, C_word n2)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n1</tt> is less than or equal to <tt>n2</tt>, <tt>C_SCHEME_FALSE</tt> if not.</p><h5 id="sec:C_i_fixnum_positivep"><a href="#sec:C_i_fixnum_positivep">C_i_fixnum_positivep</a></h5><pre>[C macro] C_word C_i_fixnum_positivep(C_word n)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n</tt> is a positive fixnum, <tt>C_SCHEME_FALSE</tt> if it is zero or negative.</p><h5 id="sec:C_i_fixnum_negativep"><a href="#sec:C_i_fixnum_negativep">C_i_fixnum_negativep</a></h5><pre>[C macro] C_word C_i_fixnum_negativep(C_word n)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n</tt> is a negative fixnum, <tt>C_SCHEME_FALSE</tt> if it is zero or positive.</p><h5 id="sec:C_fixnum_increase"><a href="#sec:C_fixnum_increase">C_fixnum_increase</a></h5><pre>[C macro] C_word C_fixnum_increase(C_word n)</pre><p>Adds 1 to <tt>n</tt></p><h5 id="sec:C_u_fixnum_increase"><a href="#sec:C_u_fixnum_increase">C_u_fixnum_increase</a></h5><pre>[C macro] C_word C_u_fixnum_increase(C_word n)</pre><p>As <tt>C_fixnum_increase</tt>, but unsafe (assumes the result will not overflow).</p><h5 id="sec:C_fixnum_decrease"><a href="#sec:C_fixnum_decrease">C_fixnum_decrease</a></h5><pre>[C macro] C_word C_fixnum_decrease(C_word n)</pre><p>Subtracts 1 from <tt>n</tt></p><h5 id="sec:C_u_fixnum_decrease"><a href="#sec:C_u_fixnum_decrease">C_u_fixnum_decrease</a></h5><pre>[C macro] C_word C_u_fixnum_decrease(C_word n)</pre><p>As <tt>C_fixnum_increase</tt>, but unsafe (assumes the result will not underflow).</p><h5 id="sec:C_fixnum_abs"><a href="#sec:C_fixnum_abs">C_fixnum_abs</a></h5><pre>[C macro] C_word C_fixnum_abs(C_word n)</pre><p>Returns the absolute value of <tt>n</tt>.</p><h5 id="sec:C_i_fixnum_min"><a href="#sec:C_i_fixnum_min">C_i_fixnum_min</a></h5><pre>[C function] C_word C_i_fixnum_min(C_word n1, C_word n2)</pre><p>Returns the smallest of the two fixnums <tt>n1</tt> and <tt>n2</tt>.</p><h5 id="sec:C_i_fixnum_max"><a href="#sec:C_i_fixnum_max">C_i_fixnum_max</a></h5><pre>[C function] C_word C_i_fixnum_max(C_word n1, C_word n2)</pre><p>Returns the largest of the two fixnums <tt>n1</tt> and <tt>n2</tt>.</p><h5 id="sec:C_i_fixnum_gcd"><a href="#sec:C_i_fixnum_gcd">C_i_fixnum_gcd</a></h5><pre>[C function] C_word C_i_fixnum_gcd(C_word n1, C_word n2)</pre><p>Returns the greatest common divisor of the two fixnums <tt>n1</tt> and <tt>n2</tt>.</p><h5 id="sec:C_i_fixnum_length"><a href="#sec:C_i_fixnum_length">C_i_fixnum_length</a></h5><pre>[C function] C_word C_i_fixnum_length(C_word x)</pre><p>Returns the integer length in bits of the fixnum <tt>x</tt> (as a fixnum).</p><h4 id="sec:Flonums"><a href="#sec:Flonums">Flonums</a></h4><h5 id="sec:C_flonum_equalp"><a href="#sec:C_flonum_equalp">C_flonum_equalp</a></h5><pre>[C macro] C_word C_flonum_equalp(C_word n1, C_word n2)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n1</tt> and <tt>n2</tt> are equal flonums, <tt>C_SCHEME_FALSE</tt> otherwise.</p><h5 id="sec:C_flonum_greaterp"><a href="#sec:C_flonum_greaterp">C_flonum_greaterp</a></h5><pre>[C macro] C_word C_flonum_greaterp(C_word n1, C_word n2)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n1</tt> is greater than <tt>n2</tt>, <tt>C_SCHEME_FALSE</tt> if not.</p><h5 id="sec:C_flonum_greater_or_equal_p"><a href="#sec:C_flonum_greater_or_equal_p">C_flonum_greater_or_equal_p</a></h5><pre>[C macro] C_word C_flonum_greater_or_equal_p(C_word n1, C_word n2)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n1</tt> is greater than or equal to <tt>n2</tt>, <tt>C_SCHEME_FALSE</tt> if not.</p><h5 id="sec:C_flonum_lessp"><a href="#sec:C_flonum_lessp">C_flonum_lessp</a></h5><pre>[C macro] C_word C_flonum_lessp(C_word n1, C_word n2)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n1</tt> is less than <tt>n2</tt>, <tt>C_SCHEME_FALSE</tt> if not.</p><h5 id="sec:C_flonum_less_or_equal_p"><a href="#sec:C_flonum_less_or_equal_p">C_flonum_less_or_equal_p</a></h5><pre>[C macro] C_word C_flonum_less_or_equal_p(C_word n1, C_word n2)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n1</tt> is less than or equal to <tt>n2</tt>, <tt>C_SCHEME_FALSE</tt> if not.</p><h5 id="sec:C_a_i_flonum_plus"><a href="#sec:C_a_i_flonum_plus">C_a_i_flonum_plus</a></h5><pre>[C macro] C_word C_a_i_flonum_plus(C_word **ptr, int c, C_word n1, C_word n2)</pre><p>Adds the flonum <tt>n1</tt> to the flonum <tt>n2</tt>, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 2.</p><p>Example:</p> <pre class="highlight colorize">#include &lt;chicken.h&gt; #include &lt;stdio.h&gt; int main<span class="paren1">(<span class="default">void</span>)</span> { C_word *mema, *memb, *memresult<span class="comment">; </span> C_word a, b, result<span class="comment">; </span> mema = C_alloc<span class="paren1">(<span class="default">C_SIZEOF_FLONUM</span>)</span><span class="comment">; </span> memb = C_alloc<span class="paren1">(<span class="default">C_SIZEOF_FLONUM</span>)</span><span class="comment">; </span> memresult = C_alloc<span class="paren1">(<span class="default">C_SIZEOF_FLONUM</span>)</span><span class="comment">; </span> a = C_flonum<span class="paren1">(<span class="default">&amp;mema, 1.2</span>)</span><span class="comment">; </span> b = C_flonum<span class="paren1">(<span class="default">&amp;memb, 4.7</span>)</span><span class="comment">; </span> result = C_a_i_flonum_plus<span class="paren1">(<span class="default">&amp;memresult, 2, a, b</span>)</span><span class="comment">; </span> printf<span class="paren1">(<span class="default"><span class="string">&quot;%lf</span><span class="string">\n</span><span class="string">&quot;</span>, C_flonum_magnitude<span class="paren2">(<span class="default">result</span>)</span></span>)</span><span class="comment">; </span> return 0<span class="comment">; </span>}</pre><p>This will print <tt>5.9</tt></p><h5 id="sec:C_a_i_flonum_difference"><a href="#sec:C_a_i_flonum_difference">C_a_i_flonum_difference</a></h5><pre>[C macro] C_word C_a_i_flonum_difference(C_word **ptr, int c, C_word n1, C_word n2)</pre><p>Subtracts the flonum <tt>n2</tt> from the flonum <tt>n1</tt>, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 2.</p><h5 id="sec:C_a_i_flonum_times"><a href="#sec:C_a_i_flonum_times">C_a_i_flonum_times</a></h5><pre>[C macro] C_word C_a_i_flonum_times(C_word **ptr, int c, C_word n1, C_word n2)</pre><p>Multiplies the flonum <tt>n1</tt> by the flonum <tt>n2</tt>, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 2.</p><h5 id="sec:C_a_i_flonum_quotient"><a href="#sec:C_a_i_flonum_quotient">C_a_i_flonum_quotient</a></h5><pre>[C macro] C_word C_a_i_flonum_quotient(C_word **ptr, int c, C_word n1, C_word n2) [C macro] C_word C_a_i_flonum_quotient_checked(C_word **ptr, int c, C_word n1, C_word n2)</pre><p>These are misnamed because they don't calculate the Scheme &quot;quotient&quot;, but the simple result of flonum <tt>n1</tt> divided by the flonum <tt>n2</tt>, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 2.</p><p><tt>C_a_i_flonum_checked</tt> will signal an error if <tt>n2</tt> is zero.</p><h5 id="sec:C_a_i_flonum_actual_quotient_checked"><a href="#sec:C_a_i_flonum_actual_quotient_checked">C_a_i_flonum_actual_quotient_checked</a></h5><pre>[C macro] C_word C_a_i_flonum_actual_quotient_checked(C_word **ptr, int c, C_word n1, C_word n2)</pre><p>Due to the misnaming of <tt>C_a_i_flonum_quotient[_checked]</tt>, this function has a peculiar name. It calculates the Scheme integer quotient of <tt>n1</tt> divided by <tt>n2</tt>, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 2.</p><p>If <tt>n2</tt> is zero or either of the numbers is not an integral flonum, an error will be signaled.</p><h5 id="sec:C_a_i_flonum_gcd"><a href="#sec:C_a_i_flonum_gcd">C_a_i_flonum_gcd</a></h5><pre>[C macro] C_word C_a_i_flonum_gcd(C_word **ptr, int c, C_word n1, C_word n2)</pre><p>Calculates the greatest common divisor of the flonums <tt>n1</tt> and <tt>n2</tt>, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 2.</p><h5 id="sec:C_a_i_flonum_negate"><a href="#sec:C_a_i_flonum_negate">C_a_i_flonum_negate</a></h5><pre>[C macro] C_word C_a_i_flonum_negate(C_word **ptr, int c, C_word n)</pre><p>Negates the flonum <tt>n</tt>, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 1.</p><h5 id="sec:C_a_i_flonum_truncate"><a href="#sec:C_a_i_flonum_truncate">C_a_i_flonum_truncate</a></h5><pre>[C macro] C_word C_a_i_flonum_truncate(C_word **ptr, int c, C_word n)</pre><p>Truncate the flonum <tt>n</tt>, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 1.</p><h5 id="sec:C_a_i_flonum_ceiling"><a href="#sec:C_a_i_flonum_ceiling">C_a_i_flonum_ceiling</a></h5><pre>[C macro] C_word C_a_i_flonum_ceiling(C_word **ptr, int c, C_word n)</pre><p>Round the flonum <tt>n</tt>, rounding upwards, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 1.</p><h5 id="sec:C_a_i_flonum_floor"><a href="#sec:C_a_i_flonum_floor">C_a_i_flonum_floor</a></h5><pre>[C macro] C_word C_a_i_flonum_floor(C_word **ptr, int c, C_word n)</pre><p>Round the flonum <tt>n</tt>, rounding downwards, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 1.</p><h5 id="sec:C_a_i_flonum_round"><a href="#sec:C_a_i_flonum_round">C_a_i_flonum_round</a></h5><pre>[C macro] C_word C_a_i_flonum_round(C_word **ptr, int c, C_word n)</pre><p>Round the flonum <tt>n</tt>, rounding towards the nearest integer, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 1.</p><p>This macro returns the value like returned by C's <tt>round()</tt> function. That means it rounds to the larger value (away from 0) when rounding numbers halfway between two integers.</p><h5 id="sec:C_a_i_flonum_round_proper"><a href="#sec:C_a_i_flonum_round_proper">C_a_i_flonum_round_proper</a></h5><pre>[C macro] C_word C_a_i_flonum_round_proper(C_word **ptr, int c, C_word n)</pre><p>Round the flonum <tt>n</tt>, rounding towards the nearest integer, using the storage at <tt>ptr</tt>. <tt>c</tt> should always be 1.</p><p>This macro returns the value like returned by Scheme's <tt>round</tt> procedure. That means it rounds to even numbers when rounding numbers halfway between two integers.</p><h5 id="sec:C_a_i_flonum_sin"><a href="#sec:C_a_i_flonum_sin">C_a_i_flonum_sin</a></h5><pre>[C macro] C_word C_a_i_flonum_sin(C_word **ptr, int c, C_word n)</pre><p>Calculates the sine of <tt>n</tt> (in radians).</p><h5 id="sec:C_a_i_flonum_cos"><a href="#sec:C_a_i_flonum_cos">C_a_i_flonum_cos</a></h5><pre>[C macro] C_word C_a_i_flonum_cos(C_word **ptr, int c, C_word n)</pre><p>Calculates the cosine of <tt>n</tt> (in radians).</p><h5 id="sec:C_a_i_flonum_tan"><a href="#sec:C_a_i_flonum_tan">C_a_i_flonum_tan</a></h5><pre>[C macro] C_word C_a_i_flonum_tan(C_word **ptr, int c, C_word n)</pre><p>Calculates the tangent of <tt>n</tt> (in radians).</p><h5 id="sec:C_a_i_flonum_asin"><a href="#sec:C_a_i_flonum_asin">C_a_i_flonum_asin</a></h5><pre>[C macro] C_word C_a_i_flonum_asin(C_word **ptr, int c, C_word n)</pre><p>Calculates the arc sine of <tt>n</tt> (in radians, in the range -pi/2 through +pi/2).</p><h5 id="sec:C_a_i_flonum_acos"><a href="#sec:C_a_i_flonum_acos">C_a_i_flonum_acos</a></h5><pre>[C macro] C_word C_a_i_flonum_acos(C_word **ptr, int c, C_word n)</pre><p>Calculates the arc cosine of <tt>n</tt> (in radians, in the range 0 through pi).</p><h5 id="sec:C_a_i_flonum_atan"><a href="#sec:C_a_i_flonum_atan">C_a_i_flonum_atan</a></h5><pre>[C macro] C_word C_a_i_flonum_atan(C_word **ptr, int c, C_word n)</pre><p>Calculates the arc tangent of <tt>n</tt> (in radians, in the range -pi/2 through +pi/2).</p><p>Like C's <tt>atan()</tt> or Scheme's unary <tt>atan</tt>.</p><h5 id="sec:C_a_i_flonum_atan2"><a href="#sec:C_a_i_flonum_atan2">C_a_i_flonum_atan2</a></h5><pre>[C macro] C_word C_a_i_flonum_atan2(C_word **ptr, int c, C_word n1, C_word n2)</pre><p>Calculates the arc tangent of <tt>n1/n2</tt> (in radians), using the sign of both to determine the quadrant of the result.</p><p>Like C's <tt>atan2()</tt> or Scheme's binary <tt>atan</tt>.</p><h5 id="sec:C_a_i_flonum_log"><a href="#sec:C_a_i_flonum_log">C_a_i_flonum_log</a></h5><pre>[C macro] C_word C_a_i_flonum_log(C_word **ptr, int c, C_word n)</pre><p>Calculate the natural (base <tt>e</tt>) logarithm of <tt>n</tt>.</p><h5 id="sec:C_a_i_flonum_exp"><a href="#sec:C_a_i_flonum_exp">C_a_i_flonum_exp</a></h5><pre>[C macro] C_word C_a_i_flonum_exp(C_word **ptr, int c, C_word n)</pre><p>Calculates the base <tt>e</tt> exponent of <tt>n</tt> (i.e., the inverse operation of <tt>C_a_i_flonum_log</tt>).</p><h5 id="sec:C_a_i_flonum_expt"><a href="#sec:C_a_i_flonum_expt">C_a_i_flonum_expt</a></h5><pre>[C macro] C_word C_a_i_flonum_expt(C_word **ptr, int c, C_word n1, C_word n2)</pre><p>Calculates <tt>n1</tt> raised to the power <tt>n2</tt>.</p><h5 id="sec:C_a_i_flonum_sqrt"><a href="#sec:C_a_i_flonum_sqrt">C_a_i_flonum_sqrt</a></h5><pre>[C macro] C_word C_a_i_flonum_sqrt(C_word **ptr, int c, C_word n)</pre><p>Calculates the square root of <tt>n</tt>.</p><h5 id="sec:C_a_i_flonum_abs"><a href="#sec:C_a_i_flonum_abs">C_a_i_flonum_abs</a></h5><pre>[C macro] C_word C_a_i_flonum_abs(C_word **ptr, int c, C_word n)</pre><p>Calculates the absolute value of <tt>n</tt>.</p><h5 id="sec:C_u_i_flonum_nanp"><a href="#sec:C_u_i_flonum_nanp">C_u_i_flonum_nanp</a></h5><pre>[C macro] C_word C_u_i_flonum_nanp(C_word n)</pre><p>Is <tt>n</tt> a flonum NaN value?</p><h5 id="sec:C_u_i_flonum_finitep"><a href="#sec:C_u_i_flonum_finitep">C_u_i_flonum_finitep</a></h5><pre>[C macro] C_word C_u_i_flonum_finitep(C_word n)</pre><p>Is <tt>n</tt> a finite flonum (i.e., not NaN or one of the infinities)?</p><h5 id="sec:C_u_i_flonum_infinitep"><a href="#sec:C_u_i_flonum_infinitep">C_u_i_flonum_infinitep</a></h5><pre>[C macro] C_word C_u_i_flonum_infinitep(C_word n)</pre><p>Is <tt>n</tt> an infinite flonum?</p><h4 id="sec:Exact_integers"><a href="#sec:Exact_integers">Exact integers</a></h4><p>Often you know a value is an integer, but you don't know whether it's a fixnum or a bignum. In those cases, there are some optimized C functions and macros to perform operations on them.</p><h5 id="sec:C_i_integer_evenp"><a href="#sec:C_i_integer_evenp">C_i_integer_evenp</a></h5><pre>[C macro] C_word C_i_integer_evenp(C_word n)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n</tt> is an even fixnum or bignum, <tt>C_SCHEME_FALSE</tt> if it is odd.</p><h5 id="sec:C_i_integer_oddp"><a href="#sec:C_i_integer_oddp">C_i_integer_oddp</a></h5><pre>[C macro] C_word C_i_integer_oddp(C_word n)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n</tt> is an odd fixnum or bignum, <tt>C_SCHEME_FALSE</tt> if it is even.</p><h5 id="sec:C_i_integer_positivep"><a href="#sec:C_i_integer_positivep">C_i_integer_positivep</a></h5><pre>[C macro] C_word C_i_integer_positivep(C_word n)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n</tt> is a positive fixnum or bignum, <tt>C_SCHEME_FALSE</tt> if it is zero or negative.</p><h5 id="sec:C_i_integer_negativep"><a href="#sec:C_i_integer_negativep">C_i_integer_negativep</a></h5><pre>[C macro] C_word C_i_integer_negativep(C_word n)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>n</tt> is a negative fixnum or bignum, <tt>C_SCHEME_FALSE</tt> if it is zero or positive.</p><h5 id="sec:C_i_integer_equalp"><a href="#sec:C_i_integer_equalp">C_i_integer_equalp</a></h5><pre>[C macro] C_word C_i_integer_equalp(x, y)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>x</tt> and <tt>y</tt> are numerically equal, <tt>C_SCHEME_FALSE</tt> if they differ.</p><h5 id="sec:C_i_integer_greaterp"><a href="#sec:C_i_integer_greaterp">C_i_integer_greaterp</a></h5><pre>[C macro] C_word C_i_integer_greaterp(x, y)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>x</tt> is greater than <tt>y</tt>, <tt>C_SCHEME_FALSE</tt> if it is equal or less.</p><h5 id="sec:C_i_integer_greater_or_equalp"><a href="#sec:C_i_integer_greater_or_equalp">C_i_integer_greater_or_equalp</a></h5><pre>[C macro] C_word C_i_integer_greaterp(x, y)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>x</tt> is greater than or equal to <tt>y</tt>, <tt>C_SCHEME_FALSE</tt> if it is less.</p><h5 id="sec:C_i_integer_lessp"><a href="#sec:C_i_integer_lessp">C_i_integer_lessp</a></h5><pre>[C macro] C_word C_i_integer_lessp(x, y)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>x</tt> is less than <tt>y</tt>, <tt>C_SCHEME_FALSE</tt> if it is equal or greater.</p><h5 id="sec:C_i_integer_less_or_equalp"><a href="#sec:C_i_integer_less_or_equalp">C_i_integer_less_or_equalp</a></h5><pre>[C macro] C_word C_i_integer_less_or_equalp(x, y)</pre><p>Returns <tt>C_SCHEME_TRUE</tt> when <tt>x</tt> is less than or equal to <tt>y</tt>, <tt>C_SCHEME_FALSE</tt> if it is greater.</p><h4 id="sec:Pointers"><a href="#sec:Pointers">Pointers</a></h4><h5 id="sec:C_null_pointerp"><a href="#sec:C_null_pointerp">C_null_pointerp</a></h5><pre>[C macro] C_word C_null_pointerp(C_word x)</pre><p>Is <tt>x</tt> a NULL pointer?</p><h5 id="sec:C_a_i_address_to_pointer"><a href="#sec:C_a_i_address_to_pointer">C_a_i_address_to_pointer</a></h5><pre>[C macro] C_word C_a_i_address_to_pointer(C_word **ptr, int c, C_word addr)</pre><p>Convert <tt>addr</tt> to a pointer object using the storage at <tt>ptr</tt>. <tt>addr</tt> is can be either a flonum or a fixnum representing a memory address.</p><h5 id="sec:C_a_i_pointer_to_address"><a href="#sec:C_a_i_pointer_to_address">C_a_i_pointer_to_address</a></h5><pre>[C macro] C_word C_a_i_pointer_to_address(C_word **ptr, int c, C_word pptr)</pre><p>Convert back the pointer <tt>pptr</tt> to an address number, possibly using the storage at <tt>ptr</tt>. The number returned can be either a fixnum or a flonum, so you will have to pass a memory storage that can hold a flonum at <tt>ptr</tt>. Whether it is actually used depends on the size of the address.</p><h4 id="sec:Ports"><a href="#sec:Ports">Ports</a></h4><h5 id="sec:C_tty_portp"><a href="#sec:C_tty_portp">C_tty_portp</a></h5><pre>[C macro] C_word C_tty_portp(C_word x)</pre><p>Is <tt>x</tt> a TTY port object?</p><h4 id="sec:Structures"><a href="#sec:Structures">Structures</a></h4><h5 id="sec:C_i_structurep"><a href="#sec:C_i_structurep">C_i_structurep</a></h5><pre>[C macro] C_word C_i_structurep(C_word x, C_word s)</pre><p>Is <tt>x</tt> a structure (record) object with type tag <tt>s</tt>? This is completely safe to use, because it checks whether x is an immediate or not.</p><h4 id="sec:Characters"><a href="#sec:Characters">Characters</a></h4><p>These understand only ASCII characters.</p><h5 id="sec:C_u_i_char_alphabeticp"><a href="#sec:C_u_i_char_alphabeticp">C_u_i_char_alphabeticp</a></h5><pre>[C macro] C_word C_u_i_char_alphabeticp(C_word c)</pre><p>Is <tt>c</tt> an alphabetic character?</p><h5 id="sec:C_u_i_char_numericp"><a href="#sec:C_u_i_char_numericp">C_u_i_char_numericp</a></h5><pre>[C macro] C_word C_u_i_char_numericp(C_word c)</pre><p>Is <tt>c</tt> a numeric character?</p><h5 id="sec:C_u_i_char_whitespacep"><a href="#sec:C_u_i_char_whitespacep">C_u_i_char_whitespacep</a></h5><pre>[C macro] C_word C_u_i_char_whitespacep(C_word c)</pre><p>Is <tt>c</tt> a whitespace character?</p><h5 id="sec:C_u_i_char_upper_casep"><a href="#sec:C_u_i_char_upper_casep">C_u_i_char_upper_casep</a></h5><pre>[C macro] C_word C_u_i_char_upper_casep(C_word c)</pre><p>Is <tt>c</tt> an uppercase character?</p><h5 id="sec:C_u_i_char_lower_casep"><a href="#sec:C_u_i_char_lower_casep">C_u_i_char_lower_casep</a></h5><pre>[C macro] C_word C_u_i_char_lower_casep(C_word c)</pre><p>Is <tt>c</tt> a lowercase character?</p><h3 id="sec:Other_Scheme_procedures_from_C"><a href="#sec:Other_Scheme_procedures_from_C">Other Scheme procedures from C</a></h3><p>There are a number of Scheme procedures that have a direct C implementation, so you can call them from C too.</p><h4 id="sec:C_eqp"><a href="#sec:C_eqp">C_eqp</a></h4><pre>[C macro] C_word C_eqp(C_word a, C_word b)</pre><p>The C version of <tt>(eq? a b)</tt>.</p><h4 id="sec:C_equalp"><a href="#sec:C_equalp">C_equalp</a></h4><pre>[C macro] C_word C_equalp(C_word a, C_word b)</pre><p>The C version of <tt>(equal? a b)</tt>.</p><h4 id="sec:C_i_pairp"><a href="#sec:C_i_pairp">C_i_pairp</a></h4><pre>[C function] C_word C_i_pair_p(C_word x)</pre><p>The C version of <tt>(pair? x)</tt>.</p><h4 id="sec:C_i_not_pair_p"><a href="#sec:C_i_not_pair_p">C_i_not_pair_p</a></h4><pre>[C macro] C_word C_i_not_pair_p(C_word x)</pre><p>The C version of <tt>(not (pair? x))</tt>.</p><h3 id="sec:An_example_for_simple_calls_to_foreign_code_involving_callbacks"><a href="#sec:An_example_for_simple_calls_to_foreign_code_involving_callbacks">An example for simple calls to foreign code involving callbacks</a></h3><pre>% cat foo.scm #&gt; extern int callout(int, int, int); &lt;# (define callout (foreign-safe-lambda int &quot;callout&quot; int int int)) (define-external (callin (scheme-object xyz)) int (print &quot;This is 'callin': &quot; xyz) 123) (print (callout 1 2 3))</pre><pre>% cat bar.c #include &lt;stdio.h&gt; #include &quot;chicken.h&quot; extern int callout(int, int, int); extern int callin(C_word x); int callout(int x, int y, int z) { C_word *ptr = C_alloc(C_SIZEOF_LIST(3)); C_word lst; printf(&quot;This is 'callout': %d, %d, %d\n&quot;, x, y, z); lst = C_list(&amp;ptr, 3, C_fix(x), C_fix(y), C_fix(z)); return callin(lst); /* Note: `callin' will have GC'd the data in `ptr' */ }</pre><pre>% csc foo.scm bar.c -o foo % foo This is 'callout': 1, 2, 3 This is 'callin': (1 2 3) 123</pre><h3 id="sec:Notes:"><a href="#sec:Notes:">Notes:</a></h3><ul><li>Scheme procedures can call C functions, and C functions can call Scheme procedures, but for every pending C stack frame, the available size of the first heap generation (the <i>nursery</i>) will be decreased, because the C stack is identical to the nursery. On systems with a small nursery this might result in thrashing, since the C code between the invocation of C from Scheme and the actual calling back to Scheme might build up several stack-frames or allocates large amounts of stack data. To prevent this it is advisable to increase the default nursery size, either when compiling the file (using the <tt>-nursery</tt> option) or when running the executable (using the <tt>-:s</tt> runtime option).</li> <li>Calls to Scheme/C may be nested arbitrarily, and Scheme continuations can be invoked as usual, but keep in mind that C stack frames will not be recovered, when a Scheme procedure call from C does not return normally.</li> <li>When multiple threads are running concurrently, and control switches from one thread to another, then the continuation of the current thread is captured and saved. Any pending C stack frame still active from a callback will remain on the stack until the threads is re-activated again. This means that in a multithreading situation, when C callbacks are involved, the available nursery space can be smaller than expected. So doing many nested Scheme-&gt;C-&gt;Scheme calls can reduce the available memory up to the point of thrashing. It is advisable to have only a single thread with pending C stack-frames at any given time.</li> <li>Pointers to Scheme data objects should not be stored in local or global variables while calling back to Scheme. Any Scheme object not passed back to Scheme will be reclaimed or moved by the garbage collector.</li> <li>Calls from C to Scheme are never tail-recursive.</li> <li>Continuations captured via <tt>call-with-current-continuation</tt> and passed to C code can be invoked like any other Scheme procedure.</li> </ul> <hr /><p>Previous: <a href="Embedding.html">Embedding</a></p><p>Next: <a href="Data%20representation.html">Data representation</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken errno).html�����������������������������������������������0000644�0001750�0001750�00000012511�13502230005�022063� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken errno)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_errno.29">Module (chicken errno)</a> <ul> <li><a href="#sec:errno">errno</a></li> <li><a href="#sec:errno_constants">errno constants</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_errno.29"><a href="#sec:Module_.28chicken_errno.29">Module (chicken errno)</a></h2><p>This module provides access to the standard C <tt>errno</tt> value.</p><p>Be careful, if you're using threads, <tt>errno</tt> might be clobbered as soon as another thread calls a C function. To prevent this from happening, you can add <tt>(declare (disable-interrupts))</tt> at the top of your file, or use the <tt>-disable-interrupts</tt> compiler option to avoid any context switches while a procedure in this file is running.</p><h3 id="sec:errno"><a href="#sec:errno">errno</a></h3> <dl class="defsig"> <dt class="defsig" id="def:errno"><span class="sig"><var class="id">errno</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the error code of the last system call.</p></dd></dl><h3 id="sec:errno_constants"><a href="#sec:errno_constants">errno constants</a></h3> <dl class="defsig"> <dt class="defsig" id="def:errno.2fperm"><span class="sig"><var class="id">errno/perm</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fnoent"><span class="sig"><var class="id">errno/noent</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fsrch"><span class="sig"><var class="id">errno/srch</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fintr"><span class="sig"><var class="id">errno/intr</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fio"><span class="sig"><var class="id">errno/io</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fnoexec"><span class="sig"><var class="id">errno/noexec</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fbadf"><span class="sig"><var class="id">errno/badf</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fchild"><span class="sig"><var class="id">errno/child</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fnomem"><span class="sig"><var class="id">errno/nomem</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2facces"><span class="sig"><var class="id">errno/acces</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2ffault"><span class="sig"><var class="id">errno/fault</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fbusy"><span class="sig"><var class="id">errno/busy</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fnotdir"><span class="sig"><var class="id">errno/notdir</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fisdir"><span class="sig"><var class="id">errno/isdir</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2finval"><span class="sig"><var class="id">errno/inval</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fmfile"><span class="sig"><var class="id">errno/mfile</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fnospc"><span class="sig"><var class="id">errno/nospc</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fspipe"><span class="sig"><var class="id">errno/spipe</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fpipe"><span class="sig"><var class="id">errno/pipe</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fagain"><span class="sig"><var class="id">errno/again</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2frofs"><span class="sig"><var class="id">errno/rofs</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fexist"><span class="sig"><var class="id">errno/exist</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:errno.2fwouldblock"><span class="sig"><var class="id">errno/wouldblock</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>These variables contain error codes as returned by <tt>errno</tt>.</p><p><i>NOTE</i>: On Windows, <tt>EWOULDBLOCK</tt> does not exist. For consistency, <tt>errno/wouldblock</tt> does exist, but it is defined as zero.</p><p>This does mean that in case there is no error, it looks like the <tt>errno/wouldblock</tt> error is returned. But you have to check the return code of a system call before accessing <tt>errno</tt> anyway, so this should typically never happen.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20continuation%29.html">Module (chicken continuation)</a></p><p>Next: <a href="Module%20%28chicken%20eval%29.html">Module (chicken eval)</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken module).html����������������������������������������������0000644�0001750�0001750�00000001672�13502230005�022231� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken module)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_module.29">Module (chicken module)</a></li></ul></div><h2 id="sec:Module_.28chicken_module.29"><a href="#sec:Module_.28chicken_module.29">Module (chicken module)</a></h2><p>The functionality in this module is available by default. See <a href="Modules.html">Modules</a> for more information.</p><hr /><p>Previous: <a href="Module%20%28chicken%20memory%20representation%29.html">Module (chicken memory representation)</a></p><p>Next: <a href="Module%20%28chicken%20pathname%29.html">Module (chicken pathname)</a></p></div></div></body>����������������������������������������������������������������������chicken-5.1.0/manual-html/Module scheme.html��������������������������������������������������������0000644�0001750�0001750�00000565460�13502230005�020514� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module scheme</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_scheme">Module scheme</a></li> <li><a href="#sec:Expressions">Expressions</a> <ul> <li><a href="#sec:Primitive_expression_types">Primitive expression types</a> <ul> <li><a href="#sec:Variable_references">Variable references</a></li> <li><a href="#sec:Literal_expressions">Literal expressions</a></li> <li><a href="#sec:Procedure_calls">Procedure calls</a></li> <li><a href="#sec:Procedures">Procedures</a></li> <li><a href="#sec:Conditionals">Conditionals</a></li> <li><a href="#sec:Assignments">Assignments</a></li></ul></li> <li><a href="#sec:Derived_expression_types">Derived expression types</a> <ul> <li><a href="#sec:Conditionals">Conditionals</a></li> <li><a href="#sec:Binding_constructs">Binding constructs</a></li> <li><a href="#sec:Sequencing">Sequencing</a></li> <li><a href="#sec:Iteration">Iteration</a></li> <li><a href="#sec:Delayed_evaluation">Delayed evaluation</a></li> <li><a href="#sec:Quasiquotation">Quasiquotation</a></li></ul></li> <li><a href="#sec:Macros">Macros</a> <ul> <li><a href="#sec:Binding_constructs_for_syntactic_keywords">Binding constructs for syntactic keywords</a></li> <li><a href="#sec:Pattern_language">Pattern language</a></li></ul></li></ul></li> <li><a href="#sec:Program_structure">Program structure</a> <ul> <li><a href="#sec:Programs">Programs</a></li> <li><a href="#sec:Definitions">Definitions</a> <ul> <li><a href="#sec:Top_level_definitions">Top level definitions</a></li> <li><a href="#sec:Internal_definitions">Internal definitions</a></li></ul></li> <li><a href="#sec:Syntax_definitions">Syntax definitions</a></li></ul></li> <li><a href="#sec:Standard_procedures">Standard procedures</a> <ul> <li><a href="#sec:Equivalence_predicates">Equivalence predicates</a></li> <li><a href="#sec:Numbers">Numbers</a> <ul> <li><a href="#sec:Numerical_types">Numerical types</a></li> <li><a href="#sec:Exactness">Exactness</a></li> <li><a href="#sec:Implementation_restrictions">Implementation restrictions</a></li> <li><a href="#sec:Syntax_of_numerical_constants">Syntax of numerical constants</a></li> <li><a href="#sec:Numerical_operations">Numerical operations</a></li> <li><a href="#sec:Numerical_input_and_output">Numerical input and output</a></li></ul></li> <li><a href="#sec:Other_data_types">Other data types</a> <ul> <li><a href="#sec:Booleans">Booleans</a></li> <li><a href="#sec:Pairs_and_lists">Pairs and lists</a></li> <li><a href="#sec:Symbols">Symbols</a></li> <li><a href="#sec:Characters">Characters</a></li> <li><a href="#sec:Strings">Strings</a></li> <li><a href="#sec:Vectors">Vectors</a></li></ul></li> <li><a href="#sec:Control_features">Control features</a></li> <li><a href="#sec:Eval">Eval</a></li> <li><a href="#sec:Input_and_output">Input and output</a> <ul> <li><a href="#sec:Ports">Ports</a></li> <li><a href="#sec:Input">Input</a></li> <li><a href="#sec:Output">Output</a></li> <li><a href="#sec:System_interface">System interface</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_scheme"><a href="#sec:Module_scheme">Module scheme</a></h2><p>This module provides all of CHICKEN's R5RS procedures and macros. These descriptions are based directly on the <i>Revised^5 Report on the Algorithmic Language Scheme</i>.</p><p>This module is used by default, unless a program is compiled with the <tt>-explicit-use</tt> option.</p><h2 id="sec:Expressions"><a href="#sec:Expressions">Expressions</a></h2><p>Expression types are categorized as primitive or derived. Primitive expression types include variables and procedure calls. Derived expression types are not semantically primitive, but can instead be defined as macros. With the exception of quasiquote, whose macro definition is complex, the derived expressions are classified as library features. The distinction which R5RS makes between primitive and derived is unimportant and does not necessarily reflect how it's implemented in CHICKEN itself.</p><h3 id="sec:Primitive_expression_types"><a href="#sec:Primitive_expression_types">Primitive expression types</a></h3><h4 id="sec:Variable_references"><a href="#sec:Variable_references">Variable references</a></h4> <dl class="defsig"> <dt class="defsig" id="def:.3cvariable.3e"><span class="sig"><tt>&lt;variable&gt;</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>An expression consisting of a variable is a variable reference. The value of the variable reference is the value stored in the location to which the variable is bound. It is an error to reference an unbound variable.</p><pre>(define x 28) x ===&gt; 28</pre></dd></dl><h4 id="sec:Literal_expressions"><a href="#sec:Literal_expressions">Literal expressions</a></h4> <dl class="defsig"> <dt class="defsig" id="def:quote"><span class="sig"><tt>(quote &lt;datum&gt;)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:quote"><span class="sig"><tt>'&lt;datum&gt;</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:.3cconstant.3e"><span class="sig"><tt>&lt;constant&gt;</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>(quote &lt;datum&gt;) evaluates to &lt;datum&gt;. &lt;Datum&gt; may be any external representation of a Scheme object. This notation is used to include literal constants in Scheme code.</p><pre>(quote a) ===&gt; a (quote #(a b c)) ===&gt; #(a b c) (quote (+ 1 2)) ===&gt; (+ 1 2)</pre><p>(quote &lt;datum&gt;) may be abbreviated as '&lt;datum&gt;. The two notations are equivalent in all respects.</p><pre>'a ===&gt; a '#(a b c) ===&gt; #(a b c) '() ===&gt; () '(+ 1 2) ===&gt; (+ 1 2) '(quote a) ===&gt; (quote a) ''a ===&gt; (quote a)</pre><p>Numerical constants, string constants, character constants, and boolean constants evaluate &quot;to themselves&quot;; they need not be quoted.</p><pre>'&quot;abc&quot; ===&gt; &quot;abc&quot; &quot;abc&quot; ===&gt; &quot;abc&quot; '145932 ===&gt; 145932 145932 ===&gt; 145932 '#t ===&gt; #t #t ===&gt; #t</pre><p>It is an error to alter a constant (i.e. the value of a literal expression) using a mutation procedure like set-car! or string-set!. In the current implementation of CHICKEN, identical constants don't share memory and it is possible to mutate them, but this may change in the future.</p></dd></dl><h4 id="sec:Procedure_calls"><a href="#sec:Procedure_calls">Procedure calls</a></h4> <dl class="defsig"> <dt class="defsig" id="def:.3coperator.3e"><span class="sig"><tt>(&lt;operator&gt; &lt;operand[1]&gt; ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>A procedure call is written by simply enclosing in parentheses expressions for the procedure to be called and the arguments to be passed to it. The operator and operand expressions are evaluated (in an unspecified order) and the resulting procedure is passed the resulting arguments.</p><pre>(+ 3 4) ===&gt; 7 ((if #f + *) 3 4) ===&gt; 12</pre><p>A number of procedures are available as the values of variables in the initial environment; for example, the addition and multiplication procedures in the above examples are the values of the variables + and *. New procedures are created by evaluating lambda expressions. Procedure calls may return any number of values (see the <tt>values</tt> procedure <a href="#sec:control-features">below</a>).</p><p>Procedure calls are also called combinations.</p><p>Note: In contrast to other dialects of Lisp, the order of evaluation is unspecified, and the operator expression and the operand expressions are always evaluated with the same evaluation rules.</p><p>Note: Although the order of evaluation is otherwise unspecified, the effect of any concurrent evaluation of the operator and operand expressions is constrained to be consistent with some sequential order of evaluation. The order of evaluation may be chosen differently for each procedure call.</p><p>Note: In many dialects of Lisp, the empty combination, (), is a legitimate expression. In Scheme, combinations must have at least one subexpression, so () is not a syntactically valid expression.</p></dd></dl><h4 id="sec:Procedures"><a href="#sec:Procedures">Procedures</a></h4> <dl class="defsig"> <dt class="defsig" id="def:lambda"><span class="sig"><tt>(lambda &lt;formals&gt; &lt;body&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Syntax: &lt;Formals&gt; should be a formal arguments list as described below, and &lt;body&gt; should be a sequence of one or more expressions.</p><p>Semantics: A lambda expression evaluates to a procedure. The environment in effect when the lambda expression was evaluated is remembered as part of the procedure. When the procedure is later called with some actual arguments, the environment in which the lambda expression was evaluated will be extended by binding the variables in the formal argument list to fresh locations, the corresponding actual argument values will be stored in those locations, and the expressions in the body of the lambda expression will be evaluated sequentially in the extended environment. The result(s) of the last expression in the body will be returned as the result(s) of the procedure call.</p><pre>(lambda (x) (+ x x)) ===&gt; a procedure ((lambda (x) (+ x x)) 4) ===&gt; 8 (define reverse-subtract (lambda (x y) (- y x))) (reverse-subtract 7 10) ===&gt; 3 (define add4 (let ((x 4)) (lambda (y) (+ x y)))) (add4 6) ===&gt; 10</pre><p>&lt;Formals&gt; should have one of the following forms:</p><ul><li>(&lt;variable[1]&gt; ...): The procedure takes a fixed number of arguments; when the procedure is called, the arguments will be stored in the bindings of the corresponding variables.</li> <li>&lt;variable&gt;: The procedure takes any number of arguments; when the procedure is called, the sequence of actual arguments is converted into a newly allocated list, and the list is stored in the binding of the &lt;variable&gt;.</li> <li>(&lt;variable[1]&gt; ... &lt;variable[n]&gt; . &lt;variable[n+1]&gt;): If a space-delimited period precedes the last variable, then the procedure takes n or more arguments, where n is the number of formal arguments before the period (there must be at least one). The value stored in the binding of the last variable will be a newly allocated list of the actual arguments left over after all the other actual arguments have been matched up against the other formal arguments.</li> </ul> <p>It is an error for a &lt;variable&gt; to appear more than once in &lt;formals&gt;.</p><pre>((lambda x x) 3 4 5 6) ===&gt; (3 4 5 6) ((lambda (x y . z) z) 3 4 5 6) ===&gt; (5 6)</pre><p>Each procedure created as the result of evaluating a lambda expression is (conceptually) tagged with a storage location, in order to make eqv? and eq? work on procedures.</p><p>As an extension to R5RS, CHICKEN also supports &quot;extended&quot; DSSSL style parameter lists, which allows embedded special keywords. Such a keyword gives a special meaning to the <tt>&lt;formal&gt;</tt> it precedes. DSSSL parameter lists are defined by the following grammar:</p><pre>&lt;parameter-list&gt; ==&gt; &lt;required-parameter&gt;* [#!optional &lt;optional-parameter&gt;*] [#!rest &lt;rest-parameter&gt;] [#!key &lt;keyword-parameter&gt;*] &lt;required-parameter&gt; ==&gt; &lt;ident&gt; &lt;optional-parameter&gt; ==&gt; &lt;ident&gt; | (&lt;ident&gt; &lt;initializer&gt;) &lt;rest-parameter&gt; ==&gt; &lt;ident&gt; &lt;keyword-parameter&gt; ==&gt; &lt;ident&gt; | (&lt;ident&gt; &lt;initializer&gt;) &lt;initializer&gt; ==&gt; &lt;expr&gt;</pre><p>When a procedure is applied to a list of arguments, the parameters and arguments are processed from left to right as follows:</p><ul><li>Required-parameters are bound to successive arguments starting with the first argument. It shall be an error if there are fewer arguments than required-parameters.</li> <li>Next, the optional-parameters are bound with the remaining arguments. If there are fewer arguments than optional-parameters, then the remaining optional-parameters are bound to the result of the evaluation of their corresponding &lt;initializer&gt;, if one was specified, otherwise <tt>#f</tt>. The corresponding &lt;initializer&gt; is evaluated in an environment in which all previous parameters have been bound.</li> <li>If there is a rest-parameter, then it is bound to a list containing all the remaining arguments left over after the argument bindings with required-parameters and optional-parameters have been made. </li> <li>If <tt>#!key</tt> was specified in the parameter-list, there should be an even number of remaining arguments. These are interpreted as a series of pairs, where the first member of each pair is a keyword specifying the parameter name, and the second member is the corresponding value. If the same keyword occurs more than once in the list of arguments, then the corresponding value of the first keyword is the binding value. If there is no argument for a particular keyword-parameter, then the variable is bound to the result of evaluating &lt;initializer&gt;, if one was specified, otherwise <tt>#f</tt>. The corresponding &lt;initializer&gt; is evaluated in an environment in which all previous parameters have been bound. </li> </ul> <p>Needing a special mention is the close relationship between the rest-parameter and possible keyword-parameters. Declaring a rest-parameter binds up all remaining arguments in a list, as described above. These same remaining arguments are also used for attempted matches with declared keyword-parameters, as described above, in which case a matching keyword-parameter binds to the corresponding value argument at the same time that both the keyword and value arguments are added to the rest parameter list. Note that for efficiency reasons, the keyword-parameter matching does nothing more than simply attempt to match with pairs that may exist in the remaining arguments. Extra arguments that don't match are simply unused and forgotten if no rest-parameter has been declared. Because of this, the caller of a procedure containing one or more keyword-parameters cannot rely on any kind of system error to report wrong keywords being passed in.</p><p>It shall be an error for an <tt>&lt;ident&gt;</tt> to appear more than once in a parameter-list.</p><p>If there is no rest-parameter and no keyword-parameters in the parameter-list, then it shall be an error for any extra arguments to be passed to the procedure.</p><p>Example:</p><pre>((lambda x x) 3 4 5 6) =&gt; (3 4 5 6) ((lambda (x y #!rest z) z) 3 4 5 6) =&gt; (5 6) ((lambda (x y #!optional z #!rest r #!key i (j 1)) (list x y z i: i j: j)) 3 4 5 i: 6 i: 7) =&gt; (3 4 5 i: 6 j: 1)</pre></dd></dl><h4 id="sec:Conditionals"><a href="#sec:Conditionals">Conditionals</a></h4> <dl class="defsig"> <dt class="defsig" id="def:if"><span class="sig"><tt>(if &lt;test&gt; &lt;consequent&gt; &lt;alternate&gt;)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:if"><span class="sig"><tt>(if &lt;test&gt; &lt;consequent&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Syntax: &lt;Test&gt;, &lt;consequent&gt;, and &lt;alternate&gt; may be arbitrary expressions.</p><p>Semantics: An if expression is evaluated as follows: first, &lt;test&gt; is evaluated. If it yields a true value (see <a href="#sec:Booleans">the section about booleans</a> below), then &lt;consequent&gt; is evaluated and its value(s) is(are) returned. Otherwise &lt;alternate&gt; is evaluated and its value(s) is(are) returned. If &lt;test&gt; yields a false value and no &lt;alternate&gt; is specified, then the result of the expression is unspecified.</p><pre>(if (&gt; 3 2) 'yes 'no) ===&gt; yes (if (&gt; 2 3) 'yes 'no) ===&gt; no (if (&gt; 3 2) (- 3 2) (+ 3 2)) ===&gt; 1</pre></dd></dl><h4 id="sec:Assignments"><a href="#sec:Assignments">Assignments</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! &lt;variable&gt; &lt;expression&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>&lt;Expression&gt; is evaluated, and the resulting value is stored in the location to which &lt;variable&gt; is bound. &lt;Variable&gt; must be bound either in some region enclosing the set! expression or at top level. The result of the set! expression is unspecified.</p><pre>(define x 2) (+ x 1) ===&gt; 3 (set! x 4) ===&gt; unspecified (+ x 1) ===&gt; 5</pre><p>As an extension to R5RS, <tt>set!</tt> for unbound toplevel variables is allowed. Also, <tt>set! (PROCEDURE ...) ...)</tt> is supported, as CHICKEN implements <a href="http://srfi.schemers.org/srfi-17/srfi-17.html">SRFI-17</a>.</p></dd></dl><h3 id="sec:Derived_expression_types"><a href="#sec:Derived_expression_types">Derived expression types</a></h3><p>The constructs in this section are hygienic. For reference purposes, these macro definitions will convert most of the constructs described in this section into the primitive constructs described in the previous section. This does not necessarily mean that's exactly how it's implemented in CHICKEN.</p><h4 id="sec:Conditionals"><a href="#sec:Conditionals">Conditionals</a></h4> <dl class="defsig"> <dt class="defsig" id="def:cond"><span class="sig"><tt>(cond &lt;clause[1]&gt; &lt;clause[2]&gt; ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Syntax: Each &lt;clause&gt; should be of the form</p><pre>(&lt;test&gt; &lt;expression[1]&gt; ...)</pre><p>where &lt;test&gt; is any expression. Alternatively, a &lt;clause&gt; may be of the form</p><pre>(&lt;test&gt; =&gt; &lt;expression&gt;)</pre><p>The last &lt;clause&gt; may be an &quot;else clause,&quot; which has the form</p><pre>(else &lt;expression[1]&gt; &lt;expression[2]&gt; ...).</pre><p>Semantics: A cond expression is evaluated by evaluating the &lt;test&gt; expressions of successive &lt;clause&gt;s in order until one of them evaluates to a true value (see <a href="#sec:Booleans">the section about booleans</a> below). When a &lt;test&gt; evaluates to a true value, then the remaining &lt;expression&gt;s in its &lt;clause&gt; are evaluated in order, and the result(s) of the last &lt;expression&gt; in the &lt;clause&gt; is(are) returned as the result(s) of the entire cond expression. If the selected &lt;clause&gt; contains only the &lt;test&gt; and no &lt;expression&gt;s, then the value of the &lt;test&gt; is returned as the result. If the selected &lt;clause&gt; uses the =&gt; alternate form, then the &lt;expression&gt; is evaluated. Its value must be a procedure that accepts one argument; this procedure is then called on the value of the &lt;test&gt; and the value(s) returned by this procedure is(are) returned by the cond expression. If all &lt;test&gt;s evaluate to false values, and there is no else clause, then the result of the conditional expression is unspecified; if there is an else clause, then its &lt;expression&gt;s are evaluated, and the value(s) of the last one is(are) returned.</p><pre>(cond ((&gt; 3 2) 'greater) ((&lt; 3 2) 'less)) ===&gt; greater (cond ((&gt; 3 3) 'greater) ((&lt; 3 3) 'less) (else 'equal)) ===&gt; equal (cond ((assv 'b '((a 1) (b 2))) =&gt; cadr) (else #f)) ===&gt; 2</pre><p>As an extension to R5RS, CHICKEN also supports the <a href="http://srfi.schemers.org/srfi-61">SRFI-61</a> syntax:</p><pre>(&lt;generator&gt; &lt;guard&gt; =&gt; &lt;expression&gt;)</pre><p>In this situation, <tt>generator</tt> is <i>always</i> evaluated. Its resulting value(s) are used as argument(s) for the <tt>guard</tt> procedure. Finally, if <tt>guard</tt> returns a non-<tt>#f</tt> value, the <tt>expression</tt> is evaluated by calling it with the result of <tt>guard</tt>. Otherwise, evaluation procedes to the next clause.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:case"><span class="sig"><tt>(case &lt;key&gt; &lt;clause[1]&gt; &lt;clause[2]&gt; ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Syntax: &lt;Key&gt; may be any expression. Each &lt;clause&gt; should have the form</p><pre>((&lt;datum[1]&gt; ...) &lt;expression[1]&gt; &lt;expression[2]&gt; ...),</pre><p>where each &lt;datum&gt; is an external representation of some object. Alternatively, as per R7RS, a &lt;clause&gt; may be of the form</p><pre>((&lt;datum[1]&gt; ...) =&gt; &lt;expression&gt;).</pre><p>All the &lt;datum&gt;s must be distinct. The last &lt;clause&gt; may be an &quot;else clause,&quot; which has one of the following two forms:</p><pre>(else &lt;expression[1]&gt; &lt;expression[2]&gt; ...) (else =&gt; &lt;expression&gt;). ; R7RS extension</pre><p>Semantics: A case expression is evaluated as follows. &lt;Key&gt; is evaluated and its result is compared against each &lt;datum&gt;. If the result of evaluating &lt;key&gt; is equivalent (in the sense of <tt>eqv?</tt>; see <a href="#sec:equivalence-predicates">below</a>) to a &lt;datum&gt;, then the expressions in the corresponding &lt;clause&gt; are evaluated from left to right and the result(s) of the last expression in the &lt;clause&gt; is(are) returned as the result(s) of the case expression. If the selected &lt;clause&gt; uses the =&gt; alternate form (an R7RS extension), then the &lt;expression&gt; is evaluated. Its value must be a procedure that accepts one argument; this procedure is then called on the value of the &lt;key&gt; and the value(s) returned by this procedure is(are) returned by the case expression. If the result of evaluating &lt;key&gt; is different from every &lt;datum&gt;, then if there is an else clause its expressions are evaluated and the result(s) of the last is(are) the result(s) of the case expression; otherwise the result of the case expression is unspecified.</p><pre>(case (* 2 3) ((2 3 5 7) 'prime) ((1 4 6 8 9) 'composite)) ===&gt; composite (case (car '(c d)) ((a) 'a) ((b) 'b)) ===&gt; unspecified (case (car '(c d)) ((a e i o u) 'vowel) ((w y) 'semivowel) (else 'consonant)) ===&gt; consonant</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:and"><span class="sig"><tt>(and &lt;test[1]&gt; ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>The &lt;test&gt; expressions are evaluated from left to right, and the value of the first expression that evaluates to a false value (see <a href="#sec:Booleans">the section about booleans</a>) is returned. Any remaining expressions are not evaluated. If all the expressions evaluate to true values, the value of the last expression is returned. If there are no expressions then #t is returned.</p><pre>(and (= 2 2) (&gt; 2 1)) ===&gt; #t (and (= 2 2) (&lt; 2 1)) ===&gt; #f (and 1 2 'c '(f g)) ===&gt; (f g) (and) ===&gt; #t</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:or"><span class="sig"><tt>(or &lt;test[1]&gt; ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>The &lt;test&gt; expressions are evaluated from left to right, and the value of the first expression that evaluates to a true value (see <a href="#sec:Booleans">the section about booleans</a>) is returned. Any remaining expressions are not evaluated. If all expressions evaluate to false values, the value of the last expression is returned. If there are no expressions then #f is returned.</p><pre>(or (= 2 2) (&gt; 2 1)) ===&gt; #t (or (= 2 2) (&lt; 2 1)) ===&gt; #t (or #f #f #f) ===&gt; #f (or (memq 'b '(a b c)) (/ 3 0)) ===&gt; (b c)</pre></dd></dl><h4 id="sec:Binding_constructs"><a href="#sec:Binding_constructs">Binding constructs</a></h4><p>The three binding constructs let, let*, and letrec give Scheme a block structure, like Algol 60. The syntax of the three constructs is identical, but they differ in the regions they establish for their variable bindings. In a let expression, the initial values are computed before any of the variables become bound; in a let* expression, the bindings and evaluations are performed sequentially; while in a letrec expression, all the bindings are in effect while their initial values are being computed, thus allowing mutually recursive definitions.</p> <dl class="defsig"> <dt class="defsig" id="def:let"><span class="sig"><tt>(let &lt;bindings&gt; &lt;body&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Syntax: &lt;Bindings&gt; should have the form</p><pre>((&lt;variable[1]&gt; &lt;init[1]&gt;) ...),</pre><p>where each &lt;init&gt; is an expression, and &lt;body&gt; should be a sequence of one or more expressions. It is an error for a &lt;variable&gt; to appear more than once in the list of variables being bound.</p><p>Semantics: The &lt;init&gt;s are evaluated in the current environment (in some unspecified order), the &lt;variable&gt;s are bound to fresh locations holding the results, the &lt;body&gt; is evaluated in the extended environment, and the value(s) of the last expression of &lt;body&gt; is(are) returned. Each binding of a &lt;variable&gt; has &lt;body&gt; as its region.</p><pre>(let ((x 2) (y 3)) (* x y)) ===&gt; 6 (let ((x 2) (y 3)) (let ((x 7) (z (+ x y))) (* z x))) ===&gt; 35</pre><p>See also &quot;named let&quot;, <a href="#sec:iteration">below</a>.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:let.2a"><span class="sig"><tt>(let* &lt;bindings&gt; &lt;body&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Syntax: &lt;Bindings&gt; should have the form</p><pre>((&lt;variable[1]&gt; &lt;init[1]&gt;) ...),</pre><p>and &lt;body&gt; should be a sequence of one or more expressions.</p><p>Semantics: Let* is similar to let, but the bindings are performed sequentially from left to right, and the region of a binding indicated by (&lt;variable&gt; &lt;init&gt;) is that part of the let* expression to the right of the binding. Thus the second binding is done in an environment in which the first binding is visible, and so on.</p><pre>(let ((x 2) (y 3)) (let* ((x 7) (z (+ x y))) (* z x))) ===&gt; 70</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:letrec"><span class="sig"><tt>(letrec &lt;bindings&gt; &lt;body&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Syntax: &lt;Bindings&gt; should have the form</p><pre>((&lt;variable[1]&gt; &lt;init[1]&gt;) ...),</pre><p>and &lt;body&gt; should be a sequence of one or more expressions. It is an error for a &lt;variable&gt; to appear more than once in the list of variables being bound.</p><p>Semantics: The &lt;variable&gt;s are bound to fresh locations holding undefined values, the &lt;init&gt;s are evaluated in the resulting environment (in some unspecified order), each &lt;variable&gt; is assigned to the result of the corresponding &lt;init&gt;, the &lt;body&gt; is evaluated in the resulting environment, and the value(s) of the last expression in &lt;body&gt; is(are) returned. Each binding of a &lt;variable&gt; has the entire letrec expression as its region, making it possible to define mutually recursive procedures.</p><pre>(letrec ((even? (lambda (n) (if (zero? n) #t (odd? (- n 1))))) (odd? (lambda (n) (if (zero? n) #f (even? (- n 1)))))) (even? 88)) ===&gt; #t</pre><p>One restriction on letrec is very important: it must be possible to evaluate each &lt;init&gt; without assigning or referring to the value of any &lt;variable&gt;. If this restriction is violated, then it is an error. The restriction is necessary because Scheme passes arguments by value rather than by name. In the most common uses of letrec, all the &lt;init&gt;s are lambda expressions and the restriction is satisfied automatically.</p></dd></dl><h4 id="sec:Sequencing"><a href="#sec:Sequencing">Sequencing</a></h4> <dl class="defsig"> <dt class="defsig" id="def:begin"><span class="sig"><tt>(begin &lt;expression[1]&gt; &lt;expression[2]&gt; ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>The &lt;expression&gt;s are evaluated sequentially from left to right, and the value(s) of the last &lt;expression&gt; is(are) returned. This expression type is used to sequence side effects such as input and output.</p><pre>(define x 0) (begin (set! x 5) (+ x 1)) ===&gt; 6 (begin (display &quot;4 plus 1 equals &quot;) (display (+ 4 1))) ===&gt; unspecified and prints 4 plus 1 equals 5</pre><p>As an extension to R5RS, CHICKEN also allows <tt>(begin)</tt> without body expressions in any context, not just at toplevel. This simply evaluates to the unspecified value.</p></dd></dl><h4 id="sec:Iteration"><a href="#sec:Iteration">Iteration</a></h4> <dl class="defsig"> <dt class="defsig" id="def:do"><span class="sig"><tt>(do ((&lt;variable[1]&gt; &lt;init[1]&gt; &lt;step[1]&gt;) ...) (&lt;test&gt; &lt;expression&gt; ...) &lt;command&gt; ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Do is an iteration construct. It specifies a set of variables to be bound, how they are to be initialized at the start, and how they are to be updated on each iteration. When a termination condition is met, the loop exits after evaluating the &lt;expression&gt;s.</p><p>Do expressions are evaluated as follows: The &lt;init&gt; expressions are evaluated (in some unspecified order), the &lt;variable&gt;s are bound to fresh locations, the results of the &lt;init&gt; expressions are stored in the bindings of the &lt;variable&gt;s, and then the iteration phase begins.</p><p>Each iteration begins by evaluating &lt;test&gt;; if the result is false (see <a href="#sec:Booleans">the section about booleans</a>), then the &lt;command&gt; expressions are evaluated in order for effect, the &lt;step&gt; expressions are evaluated in some unspecified order, the &lt;variable&gt;s are bound to fresh locations, the results of the &lt;step&gt;s are stored in the bindings of the &lt;variable&gt;s, and the next iteration begins.</p><p>If &lt;test&gt; evaluates to a true value, then the &lt;expression&gt;s are evaluated from left to right and the value(s) of the last &lt;expression&gt; is(are) returned. If no &lt;expression&gt;s are present, then the value of the do expression is unspecified.</p><p>The region of the binding of a &lt;variable&gt; consists of the entire do expression except for the &lt;init&gt;s. It is an error for a &lt;variable&gt; to appear more than once in the list of do variables.</p><p>A &lt;step&gt; may be omitted, in which case the effect is the same as if (&lt;variable&gt; &lt;init&gt; &lt;variable&gt;) had been written instead of (&lt;variable&gt; &lt;init&gt;).</p><pre>(do ((vec (make-vector 5)) (i 0 (+ i 1))) ((= i 5) vec) (vector-set! vec i i)) ===&gt; #(0 1 2 3 4) (let ((x '(1 3 5 7 9))) (do ((x x (cdr x)) (sum 0 (+ sum (car x)))) ((null? x) sum))) ===&gt; 25</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:let"><span class="sig"><tt>(let &lt;variable&gt; &lt;bindings&gt; &lt;body&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>&quot;Named let&quot; is a variant on the syntax of let which provides a more general looping construct than do and may also be used to express recursions. It has the same syntax and semantics as ordinary let except that &lt;variable&gt; is bound within &lt;body&gt; to a procedure whose formal arguments are the bound variables and whose body is &lt;body&gt;. Thus the execution of &lt;body&gt; may be repeated by invoking the procedure named by &lt;variable&gt;.</p><pre>(let loop ((numbers '(3 -2 1 6 -5)) (nonneg '()) (neg '())) (cond ((null? numbers) (list nonneg neg)) ((&gt;= (car numbers) 0) (loop (cdr numbers) (cons (car numbers) nonneg) neg)) ((&lt; (car numbers) 0) (loop (cdr numbers) nonneg (cons (car numbers) neg))))) ===&gt; ((6 1 3) (-5 -2))</pre></dd></dl><h4 id="sec:Delayed_evaluation"><a href="#sec:Delayed_evaluation">Delayed evaluation</a></h4> <dl class="defsig"> <dt class="defsig" id="def:delay"><span class="sig"><tt>(delay &lt;expression&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>The delay construct is used together with the procedure force to implement lazy evaluation or call by need. <tt>(delay &lt;expression&gt;)</tt> returns an object called a promise which at some point in the future may be asked (by the force procedure) to evaluate <tt>&lt;expression&gt;</tt>, and deliver the resulting value. The <tt>&lt;expression&gt;</tt> may return multiple values, which will be correctly memoized and returned by subsequent calls to <tt>force</tt>. This is a CHICKEN extension to R5RS.</p><p>See the description of <tt>force</tt> (under <a href="#sec:control-features">Control features</a>, below) for a more complete description of <tt>delay</tt>.</p><p>CHICKEN also supports the R7RS <tt>delay-force</tt> syntax which allows for iterative lazy algorithms to be expressed in bounded space. See the <a href="Module%20%28chicken%20base%29.html#sec:lazy-evaluation">Lazy evaluation section</a> in the (chicken base) module documentation for more information.</p></dd></dl><h4 id="sec:Quasiquotation"><a href="#sec:Quasiquotation">Quasiquotation</a></h4> <dl class="defsig"> <dt class="defsig" id="def:quasiquote"><span class="sig"><tt>(quasiquote &lt;qq template&gt;)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:quasiquote"><span class="sig"><tt>`&lt;qq template&gt;</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>&quot;Backquote&quot; or &quot;quasiquote&quot; expressions are useful for constructing a list or vector structure when most but not all of the desired structure is known in advance. If no commas appear within the &lt;qq template&gt;, the result of evaluating `&lt;qq template&gt; is equivalent to the result of evaluating '&lt;qq template&gt;. If a comma appears within the &lt;qq template&gt;, however, the expression following the comma is evaluated (&quot;unquoted&quot;) and its result is inserted into the structure instead of the comma and the expression. If a comma appears followed immediately by an at-sign (@), then the following expression must evaluate to a list; the opening and closing parentheses of the list are then &quot;stripped away&quot; and the elements of the list are inserted in place of the comma at-sign expression sequence. A comma at-sign should only appear within a list or vector &lt;qq template&gt;.</p><pre>`(list ,(+ 1 2) 4) ===&gt; (list 3 4) (let ((name 'a)) `(list ,name ',name)) ===&gt; (list a (quote a)) `(a ,(+ 1 2) ,@(map abs '(4 -5 6)) b) ===&gt; (a 3 4 5 6 b) `(( foo ,(- 10 3)) ,@(cdr '(c)) . ,(car '(cons))) ===&gt; ((foo 7) . cons) `#(10 5 ,(sqrt 4) ,@(map sqrt '(16 9)) 8) ===&gt; #(10 5 2 4 3 8)</pre><p>Quasiquote forms may be nested. Substitutions are made only for unquoted components appearing at the same nesting level as the outermost backquote. The nesting level increases by one inside each successive quasiquotation, and decreases by one inside each unquotation.</p><pre>`(a `(b ,(+ 1 2) ,(foo ,(+ 1 3) d) e) f) ===&gt; (a `(b ,(+ 1 2) ,(foo 4 d) e) f) (let ((name1 'x) (name2 'y)) `(a `(b ,,name1 ,',name2 d) e)) ===&gt; (a `(b ,x ,'y d) e)</pre><p>The two notations `&lt;qq template&gt; and (quasiquote &lt;qq template&gt;) are identical in all respects. ,&lt;expression&gt; is identical to (unquote &lt;expression&gt;), and ,@&lt;expression&gt; is identical to (unquote-splicing &lt;expression&gt;). The external syntax generated by write for two-element lists whose car is one of these symbols may vary between implementations.</p><pre>(quasiquote (list (unquote (+ 1 2)) 4)) ===&gt; (list 3 4) '(quasiquote (list (unquote (+ 1 2)) 4)) ===&gt; `(list ,(+ 1 2) 4) i.e., (quasiquote (list (unquote (+ 1 2)) 4))</pre><p>Unpredictable behavior can result if any of the symbols quasiquote, unquote, or unquote-splicing appear in positions within a &lt;qq template&gt; otherwise than as described above.</p></dd></dl><h3 id="sec:Macros"><a href="#sec:Macros">Macros</a></h3><p>Scheme programs can define and use new derived expression types, called macros. Program-defined expression types have the syntax</p><pre>(&lt;keyword&gt; &lt;datum&gt; ...)</pre><p>where &lt;keyword&gt; is an identifier that uniquely determines the expression type. This identifier is called the syntactic keyword, or simply keyword, of the macro. The number of the &lt;datum&gt;s, and their syntax, depends on the expression type.</p><p>Each instance of a macro is called a use of the macro. The set of rules that specifies how a use of a macro is transcribed into a more primitive expression is called the transformer of the macro.</p><p>The macro definition facility consists of two parts:</p><ul><li>A set of expressions used to establish that certain identifiers are macro keywords, associate them with macro transformers, and control the scope within which a macro is defined, and</li> <li>a pattern language for specifying macro transformers.</li> </ul> <p>The syntactic keyword of a macro may shadow variable bindings, and local variable bindings may shadow keyword bindings. All macros defined using the pattern language are &quot;hygienic&quot; and &quot;referentially transparent&quot; and thus preserve Scheme's lexical scoping:</p><ul><li>If a macro transformer inserts a binding for an identifier (variable or keyword), the identifier will in effect be renamed throughout its scope to avoid conflicts with other identifiers. Note that a define at top level may or may not introduce a binding; this depends on whether the binding already existed before (in which case its value will be overridden).</li> <li>If a macro transformer inserts a free reference to an identifier, the reference refers to the binding that was visible where the transformer was specified, regardless of any local bindings that may surround the use of the macro.</li> </ul> <h4 id="sec:Binding_constructs_for_syntactic_keywords"><a href="#sec:Binding_constructs_for_syntactic_keywords">Binding constructs for syntactic keywords</a></h4><p>Let-syntax and letrec-syntax are analogous to let and letrec, but they bind syntactic keywords to macro transformers instead of binding variables to locations that contain values. Syntactic keywords may also be bound at top level.</p> <dl class="defsig"> <dt class="defsig" id="def:let-syntax"><span class="sig"><tt>(let-syntax &lt;bindings&gt; &lt;body&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Syntax: &lt;Bindings&gt; should have the form</p><pre>((&lt;keyword&gt; &lt;transformer spec&gt;) ...)</pre><p>Each &lt;keyword&gt; is an identifier, each &lt;transformer spec&gt; is an instance of syntax-rules, and &lt;body&gt; should be a sequence of one or more expressions. It is an error for a &lt;keyword&gt; to appear more than once in the list of keywords being bound.</p><p>Semantics: The &lt;body&gt; is expanded in the syntactic environment obtained by extending the syntactic environment of the let-syntax expression with macros whose keywords are the &lt;keyword&gt;s, bound to the specified transformers. Each binding of a &lt;keyword&gt; has &lt;body&gt; as its region.</p><pre>(let-syntax ((when (syntax-rules () ((when test stmt1 stmt2 ...) (if test (begin stmt1 stmt2 ...)))))) (let ((if #t)) (when if (set! if 'now)) if)) ===&gt; now (let ((x 'outer)) (let-syntax ((m (syntax-rules () ((m) x)))) (let ((x 'inner)) (m)))) ===&gt; outer</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:letrec-syntax"><span class="sig"><tt>(letrec-syntax &lt;bindings&gt; &lt;body&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Syntax: Same as for let-syntax.</p><p>Semantics: The &lt;body&gt; is expanded in the syntactic environment obtained by extending the syntactic environment of the letrec-syntax expression with macros whose keywords are the &lt;keyword&gt;s, bound to the specified transformers. Each binding of a &lt;keyword&gt; has the &lt;bindings&gt; as well as the &lt;body&gt; within its region, so the transformers can transcribe expressions into uses of the macros introduced by the letrec-syntax expression.</p><pre>(letrec-syntax ((my-or (syntax-rules () ((my-or) #f) ((my-or e) e) ((my-or e1 e2 ...) (let ((temp e1)) (if temp temp (my-or e2 ...))))))) (let ((x #f) (y 7) (temp 8) (let odd?) (if even?)) (my-or x (let temp) (if y) y))) ===&gt; 7</pre></dd></dl><h4 id="sec:Pattern_language"><a href="#sec:Pattern_language">Pattern language</a></h4><p>A &lt;transformer spec&gt; has the following form:</p><pre>(syntax-rules &lt;literals&gt; &lt;syntax rule&gt; ...)</pre><p>Syntax: &lt;Literals&gt; is a list of identifiers and each &lt;syntax rule&gt; should be of the form</p><pre>(&lt;pattern&gt; &lt;template&gt;)</pre><p>The &lt;pattern&gt; in a &lt;syntax rule&gt; is a list &lt;pattern&gt; that begins with the keyword for the macro.</p><p>A &lt;pattern&gt; is either an identifier, a constant, or one of the following</p><pre>(&lt;pattern&gt; ...) (&lt;pattern&gt; &lt;pattern&gt; ... . &lt;pattern&gt;) (&lt;pattern&gt; ... &lt;pattern&gt; &lt;ellipsis&gt;) #(&lt;pattern&gt; ...) #(&lt;pattern&gt; ... &lt;pattern&gt; &lt;ellipsis&gt;)</pre><p>and a template is either an identifier, a constant, or one of the following</p><pre>(&lt;element&gt; ...) (&lt;element&gt; &lt;element&gt; ... . &lt;template&gt;) #(&lt;element&gt; ...)</pre><p>where an &lt;element&gt; is a &lt;template&gt; optionally followed by an &lt;ellipsis&gt; and an &lt;ellipsis&gt; is the identifier &quot;...&quot; (which cannot be used as an identifier in either a template or a pattern).</p><p>Semantics: An instance of syntax-rules produces a new macro transformer by specifying a sequence of hygienic rewrite rules. A use of a macro whose keyword is associated with a transformer specified by syntax-rules is matched against the patterns contained in the &lt;syntax rule&gt;s, beginning with the leftmost &lt;syntax rule&gt;. When a match is found, the macro use is transcribed hygienically according to the template.</p><p>An identifier that appears in the pattern of a &lt;syntax rule&gt; is a pattern variable, unless it is the keyword that begins the pattern, is listed in &lt;literals&gt;, or is the identifier &quot;...&quot;. Pattern variables match arbitrary input elements and are used to refer to elements of the input in the template. It is an error for the same pattern variable to appear more than once in a &lt;pattern&gt;.</p><p>The keyword at the beginning of the pattern in a &lt;syntax rule&gt; is not involved in the matching and is not considered a pattern variable or literal identifier.</p><p>Rationale: The scope of the keyword is determined by the expression or syntax definition that binds it to the associated macro transformer. If the keyword were a pattern variable or literal identifier, then the template that follows the pattern would be within its scope regardless of whether the keyword were bound by let-syntax or by letrec-syntax.</p><p>Identifiers that appear in &lt;literals&gt; are interpreted as literal identifiers to be matched against corresponding subforms of the input. A subform in the input matches a literal identifier if and only if it is an identifier and either both its occurrence in the macro expression and its occurrence in the macro definition have the same lexical binding, or the two identifiers are equal and both have no lexical binding.</p><p>A subpattern followed by ... can match zero or more elements of the input. It is an error for ... to appear in &lt;literals&gt;. Within a pattern the identifier ... must follow the last element of a nonempty sequence of subpatterns.</p><p>More formally, an input form F matches a pattern P if and only if:</p><ul><li>P is a non-literal identifier; or</li> <li>P is a literal identifier and F is an identifier with the same binding; or</li> <li>P is a list (P[1] ... P[n]) and F is a list of n forms that match P [1] through P[n], respectively; or</li> <li>P is an improper list (P[1] P[2] ... P[n] . P[n+1]) and F is a list or improper list of n or more forms that match P[1] through P[n], respectively, and whose nth &quot;cdr&quot; matches P[n+1]; or</li> <li>P is of the form (P[1] ... P[n] P[n+1] &lt;ellipsis&gt;) where &lt;ellipsis&gt; is the identifier ... and F is a proper list of at least n forms, the first n of which match P[1] through P[n], respectively, and each remaining element of F matches P[n+1]; or</li> <li>P is a vector of the form #(P[1] ... P[n]) and F is a vector of n forms that match P[1] through P[n]; or</li> <li>P is of the form #(P[1] ... P[n] P[n+1] &lt;ellipsis&gt;) where &lt;ellipsis&gt; is the identifier ... and F is a vector of n or more forms the first n of which match P[1] through P[n], respectively, and each remaining element of F matches P[n+1]; or</li> <li>P is a datum and F is equal to P in the sense of the equal? procedure.</li> </ul> <p>It is an error to use a macro keyword, within the scope of its binding, in an expression that does not match any of the patterns.</p><p>When a macro use is transcribed according to the template of the matching &lt;syntax rule&gt;, pattern variables that occur in the template are replaced by the subforms they match in the input. Pattern variables that occur in subpatterns followed by one or more instances of the identifier ... are allowed only in subtemplates that are followed by as many instances of .... They are replaced in the output by all of the subforms they match in the input, distributed as indicated. It is an error if the output cannot be built up as specified.</p><p>Identifiers that appear in the template but are not pattern variables or the identifier ... are inserted into the output as literal identifiers. If a literal identifier is inserted as a free identifier then it refers to the binding of that identifier within whose scope the instance of syntax-rules appears. If a literal identifier is inserted as a bound identifier then it is in effect renamed to prevent inadvertent captures of free identifiers.</p><p>As an example, if let and cond are defined as usual, then they are hygienic (as required) and the following is not an error.</p><pre>(let ((=&gt; #f)) (cond (#t =&gt; 'ok))) ===&gt; ok</pre><p>The macro transformer for cond recognizes =&gt; as a local variable, and hence an expression, and not as the top-level identifier =&gt;, which the macro transformer treats as a syntactic keyword. Thus the example expands into</p><pre>(let ((=&gt; #f)) (if #t (begin =&gt; 'ok)))</pre><p>instead of</p><pre>(let ((=&gt; #f)) (let ((temp #t)) (if temp ('ok temp))))</pre><p>which would result in an invalid procedure call.</p><h2 id="sec:Program_structure"><a href="#sec:Program_structure">Program structure</a></h2><h3 id="sec:Programs"><a href="#sec:Programs">Programs</a></h3><p>A Scheme program consists of a sequence of expressions, definitions, and syntax definitions. Expressions are described in chapter 4; definitions and syntax definitions are the subject of the rest of the present chapter.</p><p>Programs are typically stored in files or entered interactively to a running Scheme system, although other paradigms are possible; questions of user interface lie outside the scope of this report. (Indeed, Scheme would still be useful as a notation for expressing computational methods even in the absence of a mechanical implementation.)</p><p>Definitions and syntax definitions occurring at the top level of a program can be interpreted declaratively. They cause bindings to be created in the top level environment or modify the value of existing top-level bindings. Expressions occurring at the top level of a program are interpreted imperatively; they are executed in order when the program is invoked or loaded, and typically perform some kind of initialization.</p><p>At the top level of a program (begin &lt;form1&gt; ...) is equivalent to the sequence of expressions, definitions, and syntax definitions that form the body of the begin.</p><h3 id="sec:Definitions"><a href="#sec:Definitions">Definitions</a></h3><p>Definitions are valid in some, but not all, contexts where expressions are allowed. They are valid only at the top level of a &lt;program&gt; and at the beginning of a &lt;body&gt;.</p><p>A definition should have one of the following forms:</p> <dl class="defsig"> <dt class="defsig" id="def:define"><span class="sig"><tt>(define &lt;variable&gt; &lt;expression&gt;)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:define"><span class="sig"><tt>(define (&lt;variable&gt; &lt;formals&gt;) &lt;body&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>&lt;Formals&gt; should be either a sequence of zero or more variables, or a sequence of one or more variables followed by a space-delimited period and another variable (as in a lambda expression). This form is equivalent to</p><pre>(define &lt;variable&gt; (lambda (&lt;formals&gt;) &lt;body&gt;)).</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:define"><span class="sig"><tt>(define &lt;variable&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>This form is a CHICKEN extension to R5RS, and is equivalent to</p><pre>(define &lt;variable&gt; (void))</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:define"><span class="sig"><tt>(define (&lt;variable&gt; . &lt;formal&gt;) &lt;body&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>&lt;Formal&gt; should be a single variable. This form is equivalent to</p><pre>(define &lt;variable&gt; (lambda &lt;formal&gt; &lt;body&gt;)).</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:define"><span class="sig"><tt>(define ((&lt;variable&gt; &lt;formal&gt; ...) ...) &lt;body&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>As an extension to R5RS, CHICKEN allows <i>curried</i> definitions, where the variable name may also be a list specifying a name and a nested lambda list. For example,</p><pre>(define ((make-adder x) y) (+ x y))</pre><p>is equivalent to</p><pre>(define (make-adder x) (lambda (y) (+ x y))).</pre><p>This type of curried definition can be nested arbitrarily and combined with dotted tail notation or DSSSL keywords.</p></dd></dl><h4 id="sec:Top_level_definitions"><a href="#sec:Top_level_definitions">Top level definitions</a></h4><p>At the top level of a program, a definition</p><pre>(define &lt;variable&gt; &lt;expression&gt;)</pre><p>has essentially the same effect as the assignment expression</p><pre>(set! &lt;variable&gt; &lt;expression&gt;)</pre><p>if &lt;variable&gt; is bound. If &lt;variable&gt; is not bound, however, then the definition will bind &lt;variable&gt; to a new location before performing the assignment, whereas it would be an error to perform a set! on an unbound variable in standard Scheme. In CHICKEN, <tt>set!</tt> at toplevel has the same effect as a definition, unless inside a module, in which case it is an error.</p><pre>(define add3 (lambda (x) (+ x 3))) (add3 3) ===&gt; 6 (define first car) (first '(1 2)) ===&gt; 1</pre><p>Some implementations of Scheme use an initial environment in which all possible variables are bound to locations, most of which contain undefined values. Top level definitions in such an implementation are truly equivalent to assignments. In CHICKEN, attempting to evaluate an unbound identifier will result in an error, but you <i>can</i> use <tt>set!</tt> to bind an initial value to it.</p><h4 id="sec:Internal_definitions"><a href="#sec:Internal_definitions">Internal definitions</a></h4><p>Definitions may occur at the beginning of a &lt;body&gt; (that is, the body of a lambda, let, let*, letrec, let-syntax, or letrec-syntax expression or that of a definition of an appropriate form). Such definitions are known as internal definitions as opposed to the top level definitions described above. The variable defined by an internal definition is local to the &lt;body&gt;. That is, &lt;variable&gt; is bound rather than assigned, and the region of the binding is the entire &lt;body&gt;. For example,</p><pre>(let ((x 5)) (define foo (lambda (y) (bar x y))) (define bar (lambda (a b) (+ (* a b) a))) (foo (+ x 3))) ===&gt; 45</pre><p>A &lt;body&gt; containing internal definitions can always be converted into a completely equivalent letrec expression. For example, the let expression in the above example is equivalent to</p><pre>(let ((x 5)) (letrec ((foo (lambda (y) (bar x y))) (bar (lambda (a b) (+ (* a b) a)))) (foo (+ x 3))))</pre><p>Just as for the equivalent letrec expression, it must be possible to evaluate each &lt;expression&gt; of every internal definition in a &lt;body&gt; without assigning or referring to the value of any &lt;variable&gt; being defined.</p><p>Wherever an internal definition may occur (begin &lt;definition1&gt; ...) is equivalent to the sequence of definitions that form the body of the begin.</p><p>CHICKEN extends the R5RS semantics by allowing internal definitions everywhere, and not only at the beginning of a body. A set of internal definitions is equivalent to a <tt>letrec</tt> form enclosing all following expressions in the body:</p><pre>(let ((foo 123)) (bar) (define foo 456) (baz foo) )</pre><p>expands into</p><pre>(let ((foo 123)) (bar) (letrec ((foo 456)) (baz foo) ) )</pre><p>Local sequences of <tt>define-syntax</tt> forms are translated into equivalent <tt>letrec-syntax</tt> forms that enclose the following forms as the body of the expression.</p><h3 id="sec:Syntax_definitions"><a href="#sec:Syntax_definitions">Syntax definitions</a></h3><p>Syntax definitions are valid only at the top level of a &lt;program&gt;. They have the following form:</p> <dl class="defsig"> <dt class="defsig" id="def:define-syntax"><span class="sig"><tt>(define-syntax &lt;keyword&gt; &lt;transformer spec&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p><tt>&lt;Keyword&gt;</tt> is an identifier, and the <tt>&lt;transformer spec&gt;</tt> should be an instance of <tt>syntax-rules</tt>. Note that CHICKEN also supports <tt>er-macro-transformer</tt> and <tt>ir-macro-transformer</tt> here. For more information see <a href="Module%20%28chicken%20syntax%29.html">the (chicken syntax) module</a>.</p><p>The top-level syntactic environment is extended by binding the &lt;keyword&gt; to the specified transformer.</p><p>In standard Scheme, there is no define-syntax analogue of internal definitions in, but CHICKEN allows these as an extension to the standard. This means <tt>define-syntax</tt> may be used to define local macros that are visible throughout the rest of the body in which the definition occurred, i.e.</p><pre> (let () ... (define-syntax foo ...) (define-syntax bar ...) ...)</pre><p>is expanded into</p><pre> (let () ... (letrec-syntax ((foo ...) (bar ...)) ...) )</pre><p><tt>syntax-rules</tt> supports <a href="http://srfi.schemers.org/srfi-46/">SRFI-46</a> in allowing the ellipsis identifier to be user-defined by passing it as the first argument to the <tt>syntax-rules</tt> form. Also, &quot;tail&quot; patterns of the form</p><pre> (syntax-rules () ((_ (a b ... c) ...</pre><p>are supported.</p><p>The effect of destructively modifying the s-expression passed to a transformer procedure is undefined.</p><p>Although macros may expand into definitions and syntax definitions in any context that permits them, it is an error for a definition or syntax definition to shadow a syntactic keyword whose meaning is needed to determine whether some form in the group of forms that contains the shadowing definition is in fact a definition, or, for internal definitions, is needed to determine the boundary between the group and the expressions that follow the group. For example, the following are errors:</p><pre>(define define 3)</pre><pre>(begin (define begin list))</pre><pre>(let-syntax ((foo (syntax-rules () ((foo (proc args ...) body ...) (define proc (lambda (args ...) body ...)))))) (let ((x 3)) (foo (plus x y) (+ x y)) (define foo x) (plus foo x)))</pre></dd></dl><h2 id="sec:Standard_procedures"><a href="#sec:Standard_procedures">Standard procedures</a></h2><p>This chapter describes Scheme's built-in procedures. The initial (or &quot;top level&quot;) Scheme environment starts out with a number of variables bound to locations containing useful values, most of which are primitive procedures that manipulate data. For example, the variable abs is bound to (a location initially containing) a procedure of one argument that computes the absolute value of a number, and the variable + is bound to a procedure that computes sums. Built-in procedures that can easily be written in terms of other built-in procedures are identified as &quot;library procedures&quot;.</p><p>A program may use a top-level definition to bind any variable. It may subsequently alter any such binding by an assignment (see <a href="#sec:assignments">assignments</a>, above). These operations do not modify the behavior of Scheme's built-in procedures. Altering any top-level binding that has not been introduced by a definition has an unspecified effect on the behavior of the built-in procedures.</p><h3 id="sec:Equivalence_predicates"><a href="#sec:Equivalence_predicates">Equivalence predicates</a></h3><p>A predicate is a procedure that always returns a boolean value (#t or #f). An equivalence predicate is the computational analogue of a mathematical equivalence relation (it is symmetric, reflexive, and transitive). Of the equivalence predicates described in this section, eq? is the finest or most discriminating, and equal? is the coarsest. eqv? is slightly less discriminating than eq?.</p> <dl class="defsig"> <dt class="defsig" id="def:eqv.3f"><span class="sig"><tt>(eqv? obj[1] obj[2])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>The eqv? procedure defines a useful equivalence relation on objects. Briefly, it returns #t if obj[1] and obj[2] should normally be regarded as the same object. This relation is left slightly open to interpretation, but the following partial specification of eqv? holds for all implementations of Scheme.</p><p>The eqv? procedure returns #t if:</p><ul><li>obj[1] and obj[2] are both #t or both #f.</li> <li>obj[1] and obj[2] are both symbols and</li> </ul> <pre> (string=? (symbol-&gt;string obj1) (symbol-&gt;string obj2)) ===&gt; #t</pre><p>Note: This assumes that neither obj[1] nor obj[2] is an &quot;uninterned symbol&quot; as alluded to in the section on <a href="#sec:symbols">symbols</a>. This report does not presume to specify the behavior of eqv? on implementation-dependent extensions.</p><ul><li>obj[1] and obj[2] are both numbers, are numerically equal (see =, under <a href="#sec:numerical-operations">numerical operations</a>), and are either both exact or both inexact.</li> <li>obj[1] and obj[2] are both characters and are the same character according to the char=? procedure (see &quot;<a href="#sec:characters">characters</a>&quot;).</li> <li>both obj[1] and obj[2] are the empty list.</li> <li>obj[1] and obj[2] are pairs, vectors, or strings that denote the same locations in the store.</li> <li>obj[1] and obj[2] are procedures whose location tags are equal (see &quot;<a href="#sec:procedures">procedures</a>&quot;).</li> </ul> <p>The eqv? procedure returns #f if:</p><ul><li>obj[1] and obj[2] are of different types.</li> <li>one of obj[1] and obj[2] is #t but the other is #f.</li> <li>obj[1] and obj[2] are symbols but</li> </ul> <pre> (string=? (symbol-&gt;string obj[1]) (symbol-&gt;string obj[2])) ===&gt; #f</pre><ul><li>one of obj[1] and obj[2] is an exact number but the other is an inexact number.</li> <li>obj[1] and obj[2] are numbers for which the = procedure returns #f.</li> <li>obj[1] and obj[2] are characters for which the char=? procedure returns #f.</li> <li>one of obj[1] and obj[2] is the empty list but the other is not.</li> <li>obj[1] and obj[2] are pairs, vectors, or strings that denote distinct locations.</li> <li>obj[1] and obj[2] are procedures that would behave differently (return different value(s) or have different side effects) for some arguments.</li> </ul> <pre>(eqv? 'a 'a) ===&gt; #t (eqv? 'a 'b) ===&gt; #f (eqv? 2 2) ===&gt; #t (eqv? '() '()) ===&gt; #t (eqv? 100000000 100000000) ===&gt; #t (eqv? (cons 1 2) (cons 1 2)) ===&gt; #f (eqv? (lambda () 1) (lambda () 2)) ===&gt; #f (eqv? #f 'nil) ===&gt; #f (let ((p (lambda (x) x))) (eqv? p p)) ===&gt; #t</pre><p>The following examples illustrate cases in which the above rules do not fully specify the behavior of eqv?. All that can be said about such cases is that the value returned by eqv? must be a boolean.</p><pre>(eqv? &quot;&quot; &quot;&quot;) ===&gt; unspecified (eqv? '#() '#()) ===&gt; unspecified (eqv? (lambda (x) x) (lambda (x) x)) ===&gt; unspecified (eqv? (lambda (x) x) (lambda (y) y)) ===&gt; unspecified</pre><p>The next set of examples shows the use of eqv? with procedures that have local state. Gen-counter must return a distinct procedure every time, since each procedure has its own internal counter. Gen-loser, however, returns equivalent procedures each time, since the local state does not affect the value or side effects of the procedures.</p><pre>(define gen-counter (lambda () (let ((n 0)) (lambda () (set! n (+ n 1)) n)))) (let ((g (gen-counter))) (eqv? g g)) ===&gt; #t (eqv? (gen-counter) (gen-counter)) ===&gt; #f (define gen-loser (lambda () (let ((n 0)) (lambda () (set! n (+ n 1)) 27)))) (let ((g (gen-loser))) (eqv? g g)) ===&gt; #t (eqv? (gen-loser) (gen-loser)) ===&gt; unspecified (letrec ((f (lambda () (if (eqv? f g) 'both 'f))) (g (lambda () (if (eqv? f g) 'both 'g)))) (eqv? f g)) ===&gt; unspecified (letrec ((f (lambda () (if (eqv? f g) 'f 'both))) (g (lambda () (if (eqv? f g) 'g 'both)))) (eqv? f g)) ===&gt; #f</pre><p>Since it is an error to modify constant objects (those returned by literal expressions), implementations are permitted, though not required, to share structure between constants where appropriate. Thus the value of eqv? on constants is sometimes implementation-dependent.</p><pre>(eqv? '(a) '(a)) ===&gt; unspecified (eqv? &quot;a&quot; &quot;a&quot;) ===&gt; unspecified (eqv? '(b) (cdr '(a b))) ===&gt; unspecified (let ((x '(a))) (eqv? x x)) ===&gt; #t</pre><p>Rationale: The above definition of eqv? allows implementations latitude in their treatment of procedures and literals: implementations are free either to detect or to fail to detect that two procedures or two literals are equivalent to each other, and can decide whether or not to merge representations of equivalent objects by using the same pointer or bit pattern to represent both.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:eq.3f"><span class="sig"><tt>(eq? obj[1] obj[2])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Eq? is similar to eqv? except that in some cases it is capable of discerning distinctions finer than those detectable by eqv?.</p><p>Eq? and eqv? are guaranteed to have the same behavior on symbols, booleans, the empty list, pairs, procedures, and non-empty strings and vectors. Eq?'s behavior on numbers and characters is implementation-dependent, but it will always return either true or false, and will return true only when eqv? would also return true. Eq? may also behave differently from eqv? on empty vectors and empty strings.</p><pre>(eq? 'a 'a) ===&gt; #t (eq? '(a) '(a)) ===&gt; unspecified (eq? (list 'a) (list 'a)) ===&gt; #f (eq? &quot;a&quot; &quot;a&quot;) ===&gt; unspecified (eq? &quot;&quot; &quot;&quot;) ===&gt; unspecified (eq? '() '()) ===&gt; #t (eq? 2 2) ===&gt; unspecified (eq? #\A #\A) ===&gt; unspecified (eq? car car) ===&gt; #t (let ((n (+ 2 3))) (eq? n n)) ===&gt; unspecified (let ((x '(a))) (eq? x x)) ===&gt; #t (let ((x '#())) (eq? x x)) ===&gt; #t (let ((p (lambda (x) x))) (eq? p p)) ===&gt; #t</pre><p>Rationale: It will usually be possible to implement eq? much more efficiently than eqv?, for example, as a simple pointer comparison instead of as some more complicated operation. One reason is that it may not be possible to compute eqv? of two numbers in constant time, whereas eq? implemented as pointer comparison will always finish in constant time. Eq? may be used like eqv? in applications using procedures to implement objects with state since it obeys the same constraints as eqv?.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:equal.3f"><span class="sig"><tt>(equal? obj[1] obj[2])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Equal? recursively compares the contents of pairs, vectors, and strings, applying eqv? on other objects such as numbers and symbols. A rule of thumb is that objects are generally equal? if they print the same. Equal? may fail to terminate if its arguments are circular data structures.</p><pre>(equal? 'a 'a) ===&gt; #t (equal? '(a) '(a)) ===&gt; #t (equal? '(a (b) c) '(a (b) c)) ===&gt; #t (equal? &quot;abc&quot; &quot;abc&quot;) ===&gt; #t (equal? 2 2) ===&gt; #t (equal? (make-vector 5 'a) (make-vector 5 'a)) ===&gt; #t (equal? (lambda (x) x) (lambda (y) y)) ===&gt; unspecified</pre></dd></dl><h3 id="sec:Numbers"><a href="#sec:Numbers">Numbers</a></h3><p>Numerical computation has traditionally been neglected by the Lisp community. Until Common Lisp there was no carefully thought out strategy for organizing numerical computation, and with the exception of the MacLisp system [20] little effort was made to execute numerical code efficiently. This report recognizes the excellent work of the Common Lisp committee and accepts many of their recommendations. In some ways this report simplifies and generalizes their proposals in a manner consistent with the purposes of Scheme.</p><p>It is important to distinguish between the mathematical numbers, the Scheme numbers that attempt to model them, the machine representations used to implement the Scheme numbers, and notations used to write numbers. This report uses the types number, complex, real, rational, and integer to refer to both mathematical numbers and Scheme numbers. Machine representations such as fixed point and floating point are referred to by names such as fixnum and flonum.</p><h4 id="sec:Numerical_types"><a href="#sec:Numerical_types">Numerical types</a></h4><p>Mathematically, numbers may be arranged into a tower of subtypes in which each level is a subset of the level above it:</p><pre> number complex real rational integer</pre><p>For example, 3 is an integer. Therefore 3 is also a rational, a real, and a complex. The same is true of the Scheme numbers that model 3. For Scheme numbers, these types are defined by the predicates number?, complex?, real?, rational?, and integer?.</p><p>There is no simple relationship between a number's type and its representation inside a computer. Although most implementations of Scheme will offer at least two different representations of 3, these different representations denote the same integer.</p><p>Scheme's numerical operations treat numbers as abstract data, as independent of their representation as possible. Although an implementation of Scheme may use fixnum, flonum, and perhaps other representations for numbers, this should not be apparent to a casual programmer writing simple programs.</p><p>It is necessary, however, to distinguish between numbers that are represented exactly and those that may not be. For example, indexes into data structures must be known exactly, as must some polynomial coefficients in a symbolic algebra system. On the other hand, the results of measurements are inherently inexact, and irrational numbers may be approximated by rational and therefore inexact approximations. In order to catch uses of inexact numbers where exact numbers are required, Scheme explicitly distinguishes exact from inexact numbers. This distinction is orthogonal to the dimension of type.</p><h4 id="sec:Exactness"><a href="#sec:Exactness">Exactness</a></h4><p>Scheme numbers are either exact or inexact. A number is exact if it was written as an exact constant or was derived from exact numbers using only exact operations. A number is inexact if it was written as an inexact constant, if it was derived using inexact ingredients, or if it was derived using inexact operations. Thus inexactness is a contagious property of a number. If two implementations produce exact results for a computation that did not involve inexact intermediate results, the two ultimate results will be mathematically equivalent. This is generally not true of computations involving inexact numbers since approximate methods such as floating point arithmetic may be used, but it is the duty of each implementation to make the result as close as practical to the mathematically ideal result.</p><p>Rational operations such as + should always produce exact results when given exact arguments. If the operation is unable to produce an exact result, then it may either report the violation of an implementation restriction or it may silently coerce its result to an inexact value. See <a href="#sec:implementation-restrictions">the next section</a>.</p><p>With the exception of inexact-&gt;exact, the operations described in this section must generally return inexact results when given any inexact arguments. An operation may, however, return an exact result if it can prove that the value of the result is unaffected by the inexactness of its arguments. For example, multiplication of any number by an exact zero may produce an exact zero result, even if the other argument is inexact.</p><h4 id="sec:Implementation_restrictions"><a href="#sec:Implementation_restrictions">Implementation restrictions</a></h4><p>Implementations of Scheme are not required to implement the whole tower of subtypes given under &quot;<a href="#sec:Numerical_types">Numerical types</a>&quot;, but they must implement a coherent subset consistent with both the purposes of the implementation and the spirit of the Scheme language. For example, an implementation in which all numbers are real may still be quite useful.</p><p>Implementations may also support only a limited range of numbers of any type, subject to the requirements of this section. The supported range for exact numbers of any type may be different from the supported range for inexact numbers of that type. For example, an implementation that uses flonums to represent all its inexact real numbers may support a practically unbounded range of exact integers and rationals while limiting the range of inexact reals (and therefore the range of inexact integers and rationals) to the dynamic range of the flonum format. Furthermore the gaps between the representable inexact integers and rationals are likely to be very large in such an implementation as the limits of this range are approached.</p><p>An implementation of Scheme must support exact integers throughout the range of numbers that may be used for indexes of lists, vectors, and strings or that may result from computing the length of a list, vector, or string. The length, vector-length, and string-length procedures must return an exact integer, and it is an error to use anything but an exact integer as an index. Furthermore any integer constant within the index range, if expressed by an exact integer syntax, will indeed be read as an exact integer, regardless of any implementation restrictions that may apply outside this range. Finally, the procedures listed below will always return an exact integer result provided all their arguments are exact integers and the mathematically expected result is representable as an exact integer within the implementation:</p><pre>+ - * quotient remainder modulo max min abs numerator denominator gcd lcm floor ceiling truncate round rationalize expt</pre><p>Implementations are encouraged, but not required, to support exact integers and exact rationals of practically unlimited size and precision, and to implement the above procedures and the / procedure in such a way that they always return exact results when given exact arguments. If one of these procedures is unable to deliver an exact result when given exact arguments, then it may either report a violation of an implementation restriction or it may silently coerce its result to an inexact number. Such a coercion may cause an error later.</p><p>An implementation may use floating point and other approximate representation strategies for inexact numbers. This report recommends, but does not require, that the IEEE 32-bit and 64-bit floating point standards be followed by implementations that use flonum representations, and that implementations using other representations should match or exceed the precision achievable using these floating point standards [12].</p><p>In particular, implementations that use flonum representations must follow these rules: A flonum result must be represented with at least as much precision as is used to express any of the inexact arguments to that operation. It is desirable (but not required) for potentially inexact operations such as sqrt, when applied to exact arguments, to produce exact answers whenever possible (for example the square root of an exact 4 ought to be an exact 2). If, however, an exact number is operated upon so as to produce an inexact result (as by sqrt), and if the result is represented as a flonum, then the most precise flonum format available must be used; but if the result is represented in some other way then the representation must have at least as much precision as the most precise flonum format available.</p><p>Although Scheme allows a variety of written notations for numbers, any particular implementation may support only some of them. For example, an implementation in which all numbers are real need not support the rectangular and polar notations for complex numbers. If an implementation encounters an exact numerical constant that it cannot represent as an exact number, then it may either report a violation of an implementation restriction or it may silently represent the constant by an inexact number.</p><h4 id="sec:Syntax_of_numerical_constants"><a href="#sec:Syntax_of_numerical_constants">Syntax of numerical constants</a></h4><p>For a complete formal description of the syntax of the written representations for numbers, see the R5RS report. Note that case is not significant in numerical constants.</p><p>A number may be written in binary, octal, decimal, or hexadecimal by the use of a radix prefix. The radix prefixes are #b (binary), #o (octal), #d (decimal), and #x (hexadecimal). With no radix prefix, a number is assumed to be expressed in decimal.</p><p>A numerical constant may be specified to be either exact or inexact by a prefix. The prefixes are #e for exact, and #i for inexact. An exactness prefix may appear before or after any radix prefix that is used. If the written representation of a number has no exactness prefix, the constant may be either inexact or exact. It is inexact if it contains a decimal point, an exponent, or a &quot;#&quot; character in the place of a digit, otherwise it is exact. In systems with inexact numbers of varying precisions it may be useful to specify the precision of a constant. For this purpose, numerical constants may be written with an exponent marker that indicates the desired precision of the inexact representation. The letters s, f, d, and l specify the use of short, single, double, and long precision, respectively. (When fewer than four internal inexact representations exist, the four size specifications are mapped onto those available. For example, an implementation with two internal representations may map short and single together and long and double together.) In addition, the exponent marker e specifies the default precision for the implementation. The default precision has at least as much precision as double, but implementations may wish to allow this default to be set by the user.</p><pre>3.14159265358979F0 Round to single --- 3.141593 0.6L0 Extend to long --- .600000000000000</pre><h4 id="sec:Numerical_operations"><a href="#sec:Numerical_operations">Numerical operations</a></h4><p>The numerical routines described below have argument restrictions, which are encoded in the naming conventions of the arguments as given in the procedure's signature. The conventions are as follows:</p><dl><dt><tt>obj</tt></dt> <dd>any object</dd><dt>{{list, list1, ... listj, ... list</dt> <dd>(see &quot;<a href="#sec:pairs-and-lists">Pairs and lists</a>&quot; below)</dd><dt><tt>z, z1, ... zj, ...</tt></dt> <dd>complex number</dd><dt><tt>x, x1, ... xj, ...</tt></dt> <dd>real number</dd><dt><tt>y, y1, ... yj, ...</tt></dt> <dd>real number</dd><dt><tt>q, q1, ... qj, ...</tt></dt> <dd>rational number </dd><dt><tt>n, n1, ... nj, ...</tt></dt> <dd>integer</dd><dt><tt>k, k1, ... kj, ...</tt></dt> <dd>exact non-negative integer</dd></dl> <p>The examples used in this section assume that any numerical constant written using an exact notation is indeed represented as an exact number. Some examples also assume that certain numerical constants written using an inexact notation can be represented without loss of accuracy; the inexact constants were chosen so that this is likely to be true in implementations that use flonums to represent inexact numbers.</p> <dl class="defsig"> <dt class="defsig" id="def:number.3f"><span class="sig"><var class="id">number?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:complex.3f"><span class="sig"><var class="id">complex?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:real.3f"><span class="sig"><var class="id">real?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:rational.3f"><span class="sig"><var class="id">rational?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:integer.3f"><span class="sig"><var class="id">integer?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These numerical type predicates can be applied to any kind of argument, including non-numbers. They return #t if the object is of the named type, and otherwise they return #f. In general, if a type predicate is true of a number then all higher type predicates are also true of that number. Consequently, if a type predicate is false of a number, then all lower type predicates are also false of that number. If z is an inexact complex number, then (real? z) is true if and only if (zero? (imag-part z)) is true. If x is an inexact real number, then (integer? x) is true if and only if (= x (round x)).</p><pre>(complex? 3+4i) ===&gt; #t (complex? 3) ===&gt; #t (real? 3) ===&gt; #t (real? -2.5+0.0i) ===&gt; #t (real? #e1e10) ===&gt; #t (rational? 6/10) ===&gt; #t (rational? 6/3) ===&gt; #t (integer? 3+0i) ===&gt; #t (integer? 3.0) ===&gt; #t (integer? 8/4) ===&gt; #t</pre><p>Note: The behavior of these type predicates on inexact numbers is unreliable, since any inaccuracy may affect the result.</p><p>Note: In many implementations the rational? procedure will be the same as real?, and the complex? procedure will be the same as number?, but unusual implementations may be able to represent some irrational numbers exactly or may extend the number system to support some kind of non-complex numbers.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:exact.3f"><span class="sig"><var class="id">exact?</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:inexact.3f"><span class="sig"><var class="id">inexact?</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These numerical predicates provide tests for the exactness of a quantity. For any Scheme number, precisely one of these predicates is true.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:.3d"><span class="sig"><tt>(= z[1] z[2] z[3] ...)</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:.3c"><span class="sig"><tt>(&lt; x[1] x[2] x[3] ...)</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:.3e"><span class="sig"><tt>(&gt; x[1] x[2] x[3] ...)</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:.3c.3d"><span class="sig"><tt>(&lt;= x[1] x[2] x[3] ...)</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:.3e.3d"><span class="sig"><tt>(&gt;= x[1] x[2] x[3] ...)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return #t if their arguments are (respectively): equal, monotonically increasing, monotonically decreasing, monotonically nondecreasing, or monotonically nonincreasing.</p><p>These predicates are required to be transitive.</p><p>Note: The traditional implementations of these predicates in Lisp-like languages are not transitive.</p><p>Note: While it is not an error to compare inexact numbers using these predicates, the results may be unreliable because a small inaccuracy may affect the result; this is especially true of = and zero?. When in doubt, consult a numerical analyst.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:zero.3f"><span class="sig"><var class="id">zero?</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:positive.3f"><span class="sig"><var class="id">positive?</var> <var class="arg">x</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:negative.3f"><span class="sig"><var class="id">negative?</var> <var class="arg">x</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:odd.3f"><span class="sig"><var class="id">odd?</var> <var class="arg">n</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:even.3f"><span class="sig"><var class="id">even?</var> <var class="arg">n</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These numerical predicates test a number for a particular property, returning #t or #f. See note above.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:max"><span class="sig"><tt>(max x[1] x[2] ...)</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:min"><span class="sig"><tt>(min x[1] x[2] ...)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return the maximum or minimum of their arguments.</p><pre>(max 3 4) ===&gt; 4 ; exact (max 3.9 4) ===&gt; 4.0 ; inexact</pre><p>Note: If any argument is inexact, then the result will also be inexact (unless the procedure can prove that the inaccuracy is not large enough to affect the result, which is possible only in unusual implementations). If min or max is used to compare numbers of mixed exactness, and the numerical value of the result cannot be represented as an inexact number without loss of accuracy, then the procedure may report a violation of an implementation restriction.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:.2b"><span class="sig"><tt>(+ z[1] ...)</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:.2a"><span class="sig"><tt>(* z[1] ...)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return the sum or product of their arguments.</p><pre>(+ 3 4) ===&gt; 7 (+ 3) ===&gt; 3 (+) ===&gt; 0 (* 4) ===&gt; 4 (*) ===&gt; 1</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:-"><span class="sig"><tt>(- z[1] z[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:-"><span class="sig"><var class="id">-</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:-"><span class="sig"><tt>(- z[1] z[2] ...)</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:.2f"><span class="sig"><tt>(/ z[1] z[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:.2f"><span class="sig"><var class="id">/</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:.2f"><span class="sig"><tt>(/ z[1] z[2] ...)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>With two or more arguments, these procedures return the difference or quotient of their arguments, associating to the left. With one argument, however, they return the additive or multiplicative inverse of their argument.</p><pre>(- 3 4) ===&gt; -1 (- 3 4 5) ===&gt; -6 (- 3) ===&gt; -3 (/ 3 4 5) ===&gt; 3/20 (/ 3) ===&gt; 1/3</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:abs"><span class="sig"><var class="id">abs</var> <var class="arg">x</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Abs returns the absolute value of its argument.</p><pre>(abs -7) ===&gt; 7</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:quotient"><span class="sig"><tt>(quotient n[1] n[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:remainder"><span class="sig"><tt>(remainder n[1] n[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:modulo"><span class="sig"><tt>(modulo n[1] n[2])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures implement number-theoretic (integer) division. n[2] should be non-zero. All three procedures return integers. If n[1]/n[2] is an integer:</p><pre> (quotient n[1] n[2]) ===&gt; n[1]/n[2] (remainder n[1] n[2]) ===&gt; 0 (modulo n[1] n[2]) ===&gt; 0</pre><p>If n[1]/n[2] is not an integer:</p><pre> (quotient n[1] n[2]) ===&gt; n[q] (remainder n[1] n[2]) ===&gt; n[r] (modulo n[1] n[2]) ===&gt; n[m]</pre><p>where n[q] is n[1]/n[2] rounded towards zero, 0 &lt; |n[r]| &lt; |n[2]|, 0 &lt; |n[m]| &lt; |n[2]|, n[r] and n[m] differ from n[1] by a multiple of n[2], n[r] has the same sign as n[1], and n[m] has the same sign as n[2].</p><p>From this we can conclude that for integers n[1] and n[2] with n[2] not equal to 0,</p><pre> (= n[1] (+ (* n[2] (quotient n[1] n[2])) (remainder n[1] n[2]))) ===&gt; #t</pre><p>provided all numbers involved in that computation are exact.</p><pre>(modulo 13 4) ===&gt; 1 (remainder 13 4) ===&gt; 1 (modulo -13 4) ===&gt; 3 (remainder -13 4) ===&gt; -1 (modulo 13 -4) ===&gt; -3 (remainder 13 -4) ===&gt; 1 (modulo -13 -4) ===&gt; -1 (remainder -13 -4) ===&gt; -1 (remainder -13 -4.0) ===&gt; -1.0 ; inexact</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:gcd"><span class="sig"><tt>(gcd n[1] ...)</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:lcm"><span class="sig"><tt>(lcm n[1] ...)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return the greatest common divisor or least common multiple of their arguments. The result is always non-negative.</p><pre>(gcd 32 -36) ===&gt; 4 (gcd) ===&gt; 0 (lcm 32 -36) ===&gt; 288 (lcm 32.0 -36) ===&gt; 288.0 ; inexact (lcm) ===&gt; 1</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:numerator"><span class="sig"><var class="id">numerator</var> <var class="arg">q</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:denominator"><span class="sig"><var class="id">denominator</var> <var class="arg">q</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return the numerator or denominator of their argument; the result is computed as if the argument was represented as a fraction in lowest terms. The denominator is always positive. The denominator of 0 is defined to be 1.</p><pre>(numerator (/ 6 4)) ===&gt; 3 (denominator (/ 6 4)) ===&gt; 2 (denominator (exact-&gt;inexact (/ 6 4))) ===&gt; 2.0</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:floor"><span class="sig"><var class="id">floor</var> <var class="arg">x</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:ceiling"><span class="sig"><var class="id">ceiling</var> <var class="arg">x</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:truncate"><span class="sig"><var class="id">truncate</var> <var class="arg">x</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:round"><span class="sig"><var class="id">round</var> <var class="arg">x</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return integers. Floor returns the largest integer not larger than x. Ceiling returns the smallest integer not smaller than x. Truncate returns the integer closest to x whose absolute value is not larger than the absolute value of x. Round returns the closest integer to x, rounding to even when x is halfway between two integers.</p><p>Rationale: Round rounds to even for consistency with the default rounding mode specified by the IEEE floating point standard.</p><p>Note: If the argument to one of these procedures is inexact, then the result will also be inexact. If an exact value is needed, the result should be passed to the inexact-&gt;exact procedure.</p><pre>(floor -4.3) ===&gt; -5.0 (ceiling -4.3) ===&gt; -4.0 (truncate -4.3) ===&gt; -4.0 (round -4.3) ===&gt; -4.0 (floor 3.5) ===&gt; 3.0 (ceiling 3.5) ===&gt; 4.0 (truncate 3.5) ===&gt; 3.0 (round 3.5) ===&gt; 4.0 ; inexact (round 7/2) ===&gt; 4 ; exact (round 7) ===&gt; 7</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:rationalize"><span class="sig"><var class="id">rationalize</var> <var class="arg">x</var> <var class="arg">y</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Rationalize returns the simplest rational number differing from x by no more than y. A rational number r[1] is simpler than another rational number r[2] if r[1] = p[1]/q[1] and r[2] = p[2]/q[2] (in lowest terms) and |p[1]| &lt; |p[2]| and |q[1]| &lt; |q[2]|. Thus 3/5 is simpler than 4/7. Although not all rationals are comparable in this ordering (consider 2/ 7 and 3/5) any interval contains a rational number that is simpler than every other rational number in that interval (the simpler 2/5 lies between 2/7 and 3/5). Note that 0 = 0/1 is the simplest rational of all.</p><pre>(rationalize (inexact-&gt;exact .3) 1/10) ===&gt; 1/3 ; exact (rationalize .3 1/10) ===&gt; #i1/3 ; inexact</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:exp"><span class="sig"><var class="id">exp</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:log"><span class="sig"><var class="id">log</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:sin"><span class="sig"><var class="id">sin</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cos"><span class="sig"><var class="id">cos</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:tan"><span class="sig"><var class="id">tan</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:asin"><span class="sig"><var class="id">asin</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:acos"><span class="sig"><var class="id">acos</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:atan"><span class="sig"><var class="id">atan</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:atan"><span class="sig"><var class="id">atan</var> <var class="arg">y</var> <var class="arg">x</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures are part of every implementation that supports general real numbers; they compute the usual transcendental functions. Log computes the natural logarithm of z (not the base ten logarithm). Asin, acos, and atan compute arcsine (sin^-1), arccosine (cos^-1), and arctangent (tan^-1), respectively. The two-argument variant of atan computes (angle (make-rectangular x y)) (see below), even in implementations that don't support general complex numbers.</p><p>In general, the mathematical functions log, arcsine, arccosine, and arctangent are multiply defined. The value of log z is defined to be the one whose imaginary part lies in the range from -pi (exclusive) to pi (inclusive). log 0 is undefined. With log defined this way, the values of sin^-1 z, cos^-1 z, and tan^-1 z are according to the following formulae:</p><pre>sin^-1 z = - i log (i z + (1 - z^2)^1/2) cos^-1 z = pi / 2 - sin^-1 z tan^-1 z = (log (1 + i z) - log (1 - i z)) / (2 i)</pre><p>The above specification follows [27], which in turn cites [19]; refer to these sources for more detailed discussion of branch cuts, boundary conditions, and implementation of these functions. When it is possible these procedures produce a real result from a real argument.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:sqrt"><span class="sig"><var class="id">sqrt</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the principal square root of z. The result will have either positive real part, or zero real part and non-negative imaginary part.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:expt"><span class="sig"><tt>(expt z[1] z[2])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns z[1] raised to the power z[2]. For z[1] != 0</p><pre>z[1]^z[2] = e^z[2] log z[1]</pre><p>0^z is 1 if z = 0 and 0 otherwise.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:make-rectangular"><span class="sig"><tt>(make-rectangular x[1] x[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-polar"><span class="sig"><tt>(make-polar x[3] x[4])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:real-part"><span class="sig"><var class="id">real-part</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:imag-part"><span class="sig"><var class="id">imag-part</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:magnitude"><span class="sig"><var class="id">magnitude</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:angle"><span class="sig"><var class="id">angle</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures are part of every implementation that supports general complex numbers. Suppose x[1], x[2], x[3], and x[4] are real numbers and z is a complex number such that</p><pre>z = x[1] + x[2]i = x[3] . e^i x[4]</pre><p>Then</p><pre>(make-rectangular x[1] x[2]) ===&gt; z (make-polar x[3] x[4]) ===&gt; z (real-part z) ===&gt; x[1] (imag-part z) ===&gt; x[2] (magnitude z) ===&gt; |x[3]| (angle z) ===&gt; x[angle]</pre><p>where - pi &lt; x[angle] &lt; pi with x[angle] = x[4] + 2 pi n for some integer n.</p><p>Rationale: Magnitude is the same as abs for a real argument, but abs must be present in all implementations, whereas magnitude need only be present in implementations that support general complex numbers.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:exact-.3einexact"><span class="sig"><var class="id">exact-&gt;inexact</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:inexact-.3eexact"><span class="sig"><var class="id">inexact-&gt;exact</var> <var class="arg">z</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Exact-&gt;inexact returns an inexact representation of z. The value returned is the inexact number that is numerically closest to the argument. If an exact argument has no reasonably close inexact equivalent, then a violation of an implementation restriction may be reported.</p><p>Inexact-&gt;exact returns an exact representation of z. The value returned is the exact number that is numerically closest to the argument. If an inexact argument has no reasonably close exact equivalent, then a violation of an implementation restriction may be reported.</p><p>These procedures implement the natural one-to-one correspondence between exact and inexact integers throughout an implementation-dependent range. See &quot;<a href="#sec:implementation-restrictions">Implementation restrictions</a>&quot;.</p></dd></dl><h4 id="sec:Numerical_input_and_output"><a href="#sec:Numerical_input_and_output">Numerical input and output</a></h4> <dl class="defsig"> <dt class="defsig" id="def:number-.3estring"><span class="sig"><var class="id">number-&gt;string</var> <var class="arg">z</var> <var class="dsssl">#!optional</var> <var class="arg">radix</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Radix must be an exact integer. The R5RS standard only requires implementations to support 2, 8, 10, or 16, but CHICKEN allows any radix between 2 and 36, inclusive (note: a bug in CHICKEN 5 currently limits the upper bound to 16). If omitted, radix defaults to 10. The procedure number-&gt;string takes a number and a radix and returns as a string an external representation of the given number in the given radix such that</p><pre>(let ((number number) (radix radix)) (eqv? number (string-&gt;number (number-&gt;string number radix) radix)))</pre><p>is true. It is an error if no possible result makes this expression true.</p><p>If z is inexact, the radix is 10, and the above expression can be satisfied by a result that contains a decimal point, then the result contains a decimal point and is expressed using the minimum number of digits (exclusive of exponent and trailing zeroes) needed to make the above expression true [3, 5]; otherwise the format of the result is unspecified.</p><p>The result returned by number-&gt;string never contains an explicit radix prefix.</p><p>Note: The error case can occur only when z is not a complex number or is a complex number with a non-rational real or imaginary part.</p><p>Rationale: If z is an inexact number represented using flonums, and the radix is 10, then the above expression is normally satisfied by a result containing a decimal point. The unspecified case allows for infinities, NaNs, and non-flonum representations.</p><p>As an extension to R5RS, CHICKEN supports reading and writing the special IEEE floating-point numbers <i>+nan</i>, <i>+inf</i> and <i>-inf</i>, as well as negative zero.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string-.3enumber"><span class="sig"><var class="id">string-&gt;number</var> <var class="arg">string</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:string-.3enumber"><span class="sig"><var class="id">string-&gt;number</var> <var class="arg">string</var> <var class="arg">radix</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a number of the maximally precise representation expressed by the given string. Radix must be an exact integer. The R5RS standard only requires implementations to support 2, 8, 10, or 16, but CHICKEN allows any radix between 2 and 36, inclusive. If supplied, radix is a default radix that may be overridden by an explicit radix prefix in string (e.g. &quot;#o177&quot;). If radix is not supplied, then the default radix is 10. If string is not a syntactically valid notation for a number, then string-&gt;number returns #f.</p><pre>(string-&gt;number &quot;100&quot;) ===&gt; 100 (string-&gt;number &quot;100&quot; 16) ===&gt; 256 (string-&gt;number &quot;1e2&quot;) ===&gt; 100.0 (string-&gt;number &quot;15##&quot;) ===&gt; 1500.0</pre><p>Note: The domain of string-&gt;number may be restricted by implementations in the following ways. String-&gt;number is permitted to return #f whenever string contains an explicit radix prefix. If all numbers supported by an implementation are real, then string-&gt; number is permitted to return #f whenever string uses the polar or rectangular notations for complex numbers. If all numbers are integers, then string-&gt;number may return #f whenever the fractional notation is used. If all numbers are exact, then string-&gt;number may return #f whenever an exponent marker or explicit exactness prefix is used, or if a # appears in place of a digit. If all inexact numbers are integers, then string-&gt;number may return #f whenever a decimal point is used.</p><p>As an extension to R5RS, CHICKEN supports reading and writing the special IEEE floating-point numbers <i>+nan</i>, <i>+inf</i> and <i>-inf</i>, as well as negative zero.</p></dd></dl><h3 id="sec:Other_data_types"><a href="#sec:Other_data_types">Other data types</a></h3><p>This section describes operations on some of Scheme's non-numeric data types: booleans, pairs, lists, symbols, characters, strings and vectors.</p><h4 id="sec:Booleans"><a href="#sec:Booleans">Booleans</a></h4><p>The standard boolean objects for true and false are written as #t and #f. What really matters, though, are the objects that the Scheme conditional expressions (if, cond, and, or, do) treat as true or false. The phrase &quot;a true value&quot; (or sometimes just &quot;true&quot;) means any object treated as true by the conditional expressions, and the phrase &quot;a false value&quot; (or &quot;false&quot;) means any object treated as false by the conditional expressions.</p><p>Of all the standard Scheme values, only #f counts as false in conditional expressions. Except for #f, all standard Scheme values, including #t, pairs, the empty list, symbols, numbers, strings, vectors, and procedures, count as true.</p><p>Note: Programmers accustomed to other dialects of Lisp should be aware that Scheme distinguishes both #f and the empty list from the symbol nil.</p><p>Boolean constants evaluate to themselves, so they do not need to be quoted in programs.</p><pre>#t ===&gt; #t #f ===&gt; #f '#f ===&gt; #f</pre> <dl class="defsig"> <dt class="defsig" id="def:not"><span class="sig"><var class="id">not</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Not returns #t if obj is false, and returns #f otherwise.</p><pre>(not #t) ===&gt; #f (not 3) ===&gt; #f (not (list 3)) ===&gt; #f (not #f) ===&gt; #t (not '()) ===&gt; #f (not (list)) ===&gt; #f (not 'nil) ===&gt; #f</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:boolean.3f"><span class="sig"><var class="id">boolean?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Boolean? returns #t if obj is either #t or #f and returns #f otherwise.</p><pre>(boolean? #f) ===&gt; #t (boolean? 0) ===&gt; #f (boolean? '()) ===&gt; #f</pre></dd></dl><h4 id="sec:Pairs_and_lists"><a href="#sec:Pairs_and_lists">Pairs and lists</a></h4><p>A pair (sometimes called a dotted pair) is a record structure with two fields called the car and cdr fields (for historical reasons). Pairs are created by the procedure cons. The car and cdr fields are accessed by the procedures car and cdr. The car and cdr fields are assigned by the procedures set-car! and set-cdr!.</p><p>Pairs are used primarily to represent lists. A list can be defined recursively as either the empty list or a pair whose cdr is a list. More precisely, the set of lists is defined as the smallest set X such that</p><ul><li>The empty list is in X.</li> <li>If list is in X, then any pair whose cdr field contains list is also in X.</li> </ul> <p>The objects in the car fields of successive pairs of a list are the elements of the list. For example, a two-element list is a pair whose car is the first element and whose cdr is a pair whose car is the second element and whose cdr is the empty list. The length of a list is the number of elements, which is the same as the number of pairs.</p><p>The empty list is a special object of its own type (it is not a pair); it has no elements and its length is zero.</p><p>Note: The above definitions imply that all lists have finite length and are terminated by the empty list.</p><p>The most general notation (external representation) for Scheme pairs is the &quot;dotted&quot; notation (c[1] . c[2]) where c[1] is the value of the car field and c[2] is the value of the cdr field. For example (4 . 5) is a pair whose car is 4 and whose cdr is 5. Note that (4 . 5) is the external representation of a pair, not an expression that evaluates to a pair.</p><p>A more streamlined notation can be used for lists: the elements of the list are simply enclosed in parentheses and separated by spaces. The empty list is written () . For example,</p><pre>(a b c d e)</pre><p>and</p><pre>(a . (b . (c . (d . (e . ())))))</pre><p>are equivalent notations for a list of symbols.</p><p>A chain of pairs not ending in the empty list is called an improper list. Note that an improper list is not a list. The list and dotted notations can be combined to represent improper lists:</p><pre>(a b c . d)</pre><p>is equivalent to</p><pre>(a . (b . (c . d)))</pre><p>Whether a given pair is a list depends upon what is stored in the cdr field. When the set-cdr! procedure is used, an object can be a list one moment and not the next:</p><pre>(define x (list 'a 'b 'c)) (define y x) y ===&gt; (a b c) (list? y) ===&gt; #t (set-cdr! x 4) ===&gt; unspecified x ===&gt; (a . 4) (eqv? x y) ===&gt; #t y ===&gt; (a . 4) (list? y) ===&gt; #f (set-cdr! x x) ===&gt; unspecified (list? x) ===&gt; #f</pre><p>Within literal expressions and representations of objects read by the read procedure, the forms '&lt;datum&gt;, `&lt;datum&gt;, ,&lt;datum&gt;, and ,@&lt;datum&gt; denote two-element lists whose first elements are the symbols quote, quasiquote, unquote, and unquote-splicing, respectively. The second element in each case is &lt;datum&gt;. This convention is supported so that arbitrary Scheme programs may be represented as lists. That is, according to Scheme's grammar, every &lt;expression&gt; is also a &lt;datum&gt;. Among other things, this permits the use of the read procedure to parse Scheme programs.</p> <dl class="defsig"> <dt class="defsig" id="def:pair.3f"><span class="sig"><var class="id">pair?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Pair? returns #t if obj is a pair, and otherwise returns #f.</p><pre>(pair? '(a . b)) ===&gt; #t (pair? '(a b c)) ===&gt; #t (pair? '()) ===&gt; #f (pair? '#(a b)) ===&gt; #f</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:cons"><span class="sig"><tt>(cons obj[1] obj[2])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly allocated pair whose car is obj[1] and whose cdr is obj[2]. The pair is guaranteed to be different (in the sense of eqv?) from every existing object.</p><pre>(cons 'a '()) ===&gt; (a) (cons '(a) '(b c d)) ===&gt; ((a) b c d) (cons &quot;a&quot; '(b c)) ===&gt; (&quot;a&quot; b c) (cons 'a 3) ===&gt; (a . 3) (cons '(a b) 'c) ===&gt; ((a b) . c)</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:car"><span class="sig"><var class="id">car</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the contents of the car field of pair. Note that it is an error to take the car of the empty list.</p><pre>(car '(a b c)) ===&gt; a (car '((a) b c d)) ===&gt; (a) (car '(1 . 2)) ===&gt; 1 (car '()) ===&gt; error</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:cdr"><span class="sig"><var class="id">cdr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the contents of the cdr field of pair. Note that it is an error to take the cdr of the empty list.</p><pre>(cdr '((a) b c d)) ===&gt; (b c d) (cdr '(1 . 2)) ===&gt; 2 (cdr '()) ===&gt; error</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:set-car.21"><span class="sig"><var class="id">set-car!</var> <var class="arg">pair</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores obj in the car field of pair. The value returned by set-car! is unspecified.</p><pre>(define (f) (list 'not-a-constant-list)) (define (g) '(constant-list)) (set-car! (f) 3) ===&gt; unspecified (set-car! (g) 3) ===&gt; error</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:set-cdr.21"><span class="sig"><var class="id">set-cdr!</var> <var class="arg">pair</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores obj in the cdr field of pair. The value returned by set-cdr! is unspecified.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:caar"><span class="sig"><var class="id">caar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cadr"><span class="sig"><var class="id">cadr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cdar"><span class="sig"><var class="id">cdar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cddr"><span class="sig"><var class="id">cddr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:caaar"><span class="sig"><var class="id">caaar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:caadr"><span class="sig"><var class="id">caadr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cadar"><span class="sig"><var class="id">cadar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:caddr"><span class="sig"><var class="id">caddr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cdaar"><span class="sig"><var class="id">cdaar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cdadr"><span class="sig"><var class="id">cdadr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cddar"><span class="sig"><var class="id">cddar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cdddr"><span class="sig"><var class="id">cdddr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:caaaar"><span class="sig"><var class="id">caaaar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:caaadr"><span class="sig"><var class="id">caaadr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:caadar"><span class="sig"><var class="id">caadar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:caaddr"><span class="sig"><var class="id">caaddr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cadaar"><span class="sig"><var class="id">cadaar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cadadr"><span class="sig"><var class="id">cadadr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:caddar"><span class="sig"><var class="id">caddar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cadddr"><span class="sig"><var class="id">cadddr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cdaaar"><span class="sig"><var class="id">cdaaar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cdaadr"><span class="sig"><var class="id">cdaadr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cdadar"><span class="sig"><var class="id">cdadar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cdaddr"><span class="sig"><var class="id">cdaddr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cddaar"><span class="sig"><var class="id">cddaar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cddadr"><span class="sig"><var class="id">cddadr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cdddar"><span class="sig"><var class="id">cdddar</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:cddddr"><span class="sig"><var class="id">cddddr</var> <var class="arg">pair</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures are compositions of car and cdr, where for example caddr could be defined by</p><pre>(define caddr (lambda (x) (car (cdr (cdr x))))).</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:null.3f"><span class="sig"><var class="id">null?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if obj is the empty list, otherwise returns #f.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:list.3f"><span class="sig"><var class="id">list?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if obj is a list, otherwise returns #f. By definition, all lists have finite length and are terminated by the empty list.</p><pre>(list? '(a b c)) ===&gt; #t (list? '()) ===&gt; #t (list? '(a . b)) ===&gt; #f (let ((x (list 'a))) (set-cdr! x x) (list? x)) ===&gt; #f</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:list"><span class="sig"><var class="id">list</var> <var class="arg">obj</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly allocated list of its arguments.</p><pre>(list 'a (+ 3 4) 'c) ===&gt; (a 7 c) (list) ===&gt; ()</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:length"><span class="sig"><var class="id">length</var> <var class="arg">list</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the length of list.</p><pre>(length '(a b c)) ===&gt; 3 (length '(a (b) (c d e))) ===&gt; 3 (length '()) ===&gt; 0</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:append"><span class="sig"><var class="id">append</var> <var class="arg">list</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list consisting of the elements of the first list followed by the elements of the other lists.</p><pre>(append '(x) '(y)) ===&gt; (x y) (append '(a) '(b c d)) ===&gt; (a b c d) (append '(a (b)) '((c))) ===&gt; (a (b) (c))</pre><p>The resulting list is always newly allocated, except that it shares structure with the last list argument. The last argument may actually be any object; an improper list results if the last argument is not a proper list.</p><pre>(append '(a b) '(c . d)) ===&gt; (a b c . d) (append '() 'a) ===&gt; a</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:reverse"><span class="sig"><var class="id">reverse</var> <var class="arg">list</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly allocated list consisting of the elements of list in reverse order.</p><pre>(reverse '(a b c)) ===&gt; (c b a) (reverse '(a (b c) d (e (f)))) ===&gt; ((e (f)) d (b c) a)</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:list-tail"><span class="sig"><var class="id">list-tail</var> <var class="arg">list</var> <var class="arg">k</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the sublist of list obtained by omitting the first k elements. It is an error if list has fewer than k elements. List-tail could be defined by</p><pre>(define list-tail (lambda (x k) (if (zero? k) x (list-tail (cdr x) (- k 1)))))</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:list-ref"><span class="sig"><var class="id">list-ref</var> <var class="arg">list</var> <var class="arg">k</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the kth element of list. (This is the same as the car of (list-tail list k).) It is an error if list has fewer than k elements.</p><pre>(list-ref '(a b c d) 2) ===&gt; c (list-ref '(a b c d) (inexact-&gt;exact (round 1.8))) ===&gt; c</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:memq"><span class="sig"><var class="id">memq</var> <var class="arg">obj</var> <var class="arg">list</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:memv"><span class="sig"><var class="id">memv</var> <var class="arg">obj</var> <var class="arg">list</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:member"><span class="sig"><var class="id">member</var> <var class="arg">obj</var> <var class="arg">list</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return the first sublist of list whose car is obj, where the sublists of list are the non-empty lists returned by (list-tail list k) for k less than the length of list. If obj does not occur in list, then #f (not the empty list) is returned. Memq uses eq? to compare obj with the elements of list, while memv uses eqv? and member uses equal?.</p><pre>(memq 'a '(a b c)) ===&gt; (a b c) (memq 'b '(a b c)) ===&gt; (b c) (memq 'a '(b c d)) ===&gt; #f (memq (list 'a) '(b (a) c)) ===&gt; #f (member (list 'a) '(b (a) c)) ===&gt; ((a) c) (memq 101 '(100 101 102)) ===&gt; unspecified (memv 101 '(100 101 102)) ===&gt; (101 102)</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:assq"><span class="sig"><var class="id">assq</var> <var class="arg">obj</var> <var class="arg">alist</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:assv"><span class="sig"><var class="id">assv</var> <var class="arg">obj</var> <var class="arg">alist</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:assoc"><span class="sig"><var class="id">assoc</var> <var class="arg">obj</var> <var class="arg">alist</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Alist (for &quot;association list&quot;) must be a list of pairs. These procedures find the first pair in alist whose car field is obj, and returns that pair. If no pair in alist has obj as its car, then #f (not the empty list) is returned. Assq uses eq? to compare obj with the car fields of the pairs in alist, while assv uses eqv? and assoc uses equal?.</p><pre>(define e '((a 1) (b 2) (c 3))) (assq 'a e) ===&gt; (a 1) (assq 'b e) ===&gt; (b 2) (assq 'd e) ===&gt; #f (assq (list 'a) '(((a)) ((b)) ((c)))) ===&gt; #f (assoc (list 'a) '(((a)) ((b)) ((c)))) ===&gt; ((a)) (assq 5 '((2 3) (5 7) (11 13))) ===&gt; unspecified (assv 5 '((2 3) (5 7) (11 13))) ===&gt; (5 7)</pre><p>Rationale: Although they are ordinarily used as predicates, memq, memv, member, assq, assv, and assoc do not have question marks in their names because they return useful values rather than just #t or #f.</p></dd></dl><h4 id="sec:Symbols"><a href="#sec:Symbols">Symbols</a></h4><p>Symbols are objects whose usefulness rests on the fact that two symbols are identical (in the sense of eqv?) if and only if their names are spelled the same way. This is exactly the property needed to represent identifiers in programs, and so most implementations of Scheme use them internally for that purpose. Symbols are useful for many other applications; for instance, they may be used the way enumerated values are used in Pascal.</p><p>The rules for writing a symbol are exactly the same as the rules for writing an identifier.</p><p>It is guaranteed that any symbol that has been returned as part of a literal expression, or read using the read procedure, and subsequently written out using the write procedure, will read back in as the identical symbol (in the sense of eqv?). The string-&gt;symbol procedure, however, can create symbols for which this write/read invariance may not hold because their names contain special characters or letters in the non-standard case.</p><p>Note: Some implementations of Scheme have a feature known as &quot;slashification&quot; in order to guarantee write/read invariance for all symbols, but historically the most important use of this feature has been to compensate for the lack of a string data type.</p><p>Some implementations also have &quot;uninterned symbols&quot;, which defeat write/read invariance even in implementations with slashification, and also generate exceptions to the rule that two symbols are the same if and only if their names are spelled the same.</p> <dl class="defsig"> <dt class="defsig" id="def:symbol.3f"><span class="sig"><var class="id">symbol?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if obj is a symbol, otherwise returns #f.</p><pre>(symbol? 'foo) ===&gt; #t (symbol? (car '(a b))) ===&gt; #t (symbol? &quot;bar&quot;) ===&gt; #f (symbol? 'nil) ===&gt; #t (symbol? '()) ===&gt; #f (symbol? #f) ===&gt; #f</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:symbol-.3estring"><span class="sig"><var class="id">symbol-&gt;string</var> <var class="arg">symbol</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the name of symbol as a string. If the symbol was part of an object returned as the value of a literal expression (see &quot;<a href="#sec:literal-expressions">literal expressions</a>&quot;) or by a call to the read procedure, and its name contains alphabetic characters, then the string returned will contain characters in the implementation's preferred standard case -- some implementations will prefer upper case, others lower case. If the symbol was returned by string-&gt;symbol, the case of characters in the string returned will be the same as the case in the string that was passed to string-&gt;symbol. It is an error to apply mutation procedures like string-set! to strings returned by this procedure.</p><p>The following examples assume that the implementation's standard case is lower case:</p><pre>(symbol-&gt;string 'flying-fish) ===&gt; &quot;flying-fish&quot; (symbol-&gt;string 'Martin) ===&gt; &quot;martin&quot; (symbol-&gt;string (string-&gt;symbol &quot;Malvina&quot;)) ===&gt; &quot;Malvina&quot;</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string-.3esymbol"><span class="sig"><var class="id">string-&gt;symbol</var> <var class="arg">string</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the symbol whose name is string. This procedure can create symbols with names containing special characters or letters in the non-standard case, but it is usually a bad idea to create such symbols because in some implementations of Scheme they cannot be read as themselves. See symbol-&gt;string.</p><p>The following examples assume that the implementation's standard case is lower case:</p><pre>(eq? 'mISSISSIppi 'mississippi) ===&gt; #t (string-&gt;symbol &quot;mISSISSIppi&quot;) ===&gt; the symbol with name &quot;mISSISSIppi&quot; (eq? 'bitBlt (string-&gt;symbol &quot;bitBlt&quot;)) ===&gt; #f (eq? 'JollyWog (string-&gt;symbol (symbol-&gt;string 'JollyWog))) ===&gt; #t (string=? &quot;K. Harper, M.D.&quot; (symbol-&gt;string (string-&gt;symbol &quot;K. Harper, M.D.&quot;))) ===&gt; #t</pre></dd></dl><h4 id="sec:Characters"><a href="#sec:Characters">Characters</a></h4><p>Characters are objects that represent printed characters such as letters and digits. Characters are written using the notation #\ &lt;character&gt; or #\&lt;character name&gt;. For example:</p><pre>#\a ; lower case letter #\A ; upper case letter #\( ; left parenthesis #\ ; the space character #\space ; the preferred way to write a space #\newline ; the newline character</pre><p>Case is significant in #\&lt;character&gt;, but not in #\&lt;character name&gt;. If &lt;character&gt; in #\&lt;character&gt; is alphabetic, then the character following &lt;character&gt; must be a delimiter character such as a space or parenthesis. This rule resolves the ambiguous case where, for example, the sequence of characters &quot;#\space&quot; could be taken to be either a representation of the space character or a representation of the character &quot;#\s&quot; followed by a representation of the symbol &quot;pace.&quot;</p><p>Characters written in the #\ notation are self-evaluating. That is, they do not have to be quoted in programs. Some of the procedures that operate on characters ignore the difference between upper case and lower case. The procedures that ignore case have &quot;-ci&quot; (for &quot;case insensitive&quot;) embedded in their names.</p> <dl class="defsig"> <dt class="defsig" id="def:char.3f"><span class="sig"><var class="id">char?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if obj is a character, otherwise returns #f.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:char.3d.3f"><span class="sig"><tt>(char=? char[1] char[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char.3c.3f"><span class="sig"><tt>(char&lt;? char[1] char[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char.3e.3f"><span class="sig"><tt>(char&gt;? char[1] char[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char.3c.3d.3f"><span class="sig"><tt>(char&lt;=? char[1] char[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char.3e.3d.3f"><span class="sig"><tt>(char&gt;=? char[1] char[2])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures impose a total ordering on the set of characters. It is guaranteed that under this ordering:</p><ul><li>The upper case characters are in order. For example, (char&lt;? #\A #\ B) returns #t.</li> <li>The lower case characters are in order. For example, (char&lt;? #\a #\ b) returns #t.</li> <li>The digits are in order. For example, (char&lt;? #\0 #\9) returns #t.</li> <li>Either all the digits precede all the upper case letters, or vice versa.</li> <li>Either all the digits precede all the lower case letters, or vice versa.</li> </ul> <p>Some implementations may generalize these procedures to take more than two arguments, as with the corresponding numerical predicates.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:char-ci.3d.3f"><span class="sig"><tt>(char-ci=? char[1] char[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char-ci.3c.3f"><span class="sig"><tt>(char-ci&lt;? char[1] char[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char-ci.3e.3f"><span class="sig"><tt>(char-ci&gt;? char[1] char[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char-ci.3c.3d.3f"><span class="sig"><tt>(char-ci&lt;=? char[1] char[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char-ci.3e.3d.3f"><span class="sig"><tt>(char-ci&gt;=? char[1] char[2])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures are similar to char=? et cetera, but they treat upper case and lower case letters as the same. For example, (char-ci=? #\A #\ a) returns #t. Some implementations may generalize these procedures to take more than two arguments, as with the corresponding numerical predicates.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:char-alphabetic.3f"><span class="sig"><var class="id">char-alphabetic?</var> <var class="arg">char</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char-numeric.3f"><span class="sig"><var class="id">char-numeric?</var> <var class="arg">char</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char-whitespace.3f"><span class="sig"><var class="id">char-whitespace?</var> <var class="arg">char</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char-upper-case.3f"><span class="sig"><var class="id">char-upper-case?</var> <var class="arg">letter</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char-lower-case.3f"><span class="sig"><var class="id">char-lower-case?</var> <var class="arg">letter</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return #t if their arguments are alphabetic, numeric, whitespace, upper case, or lower case characters, respectively, otherwise they return #f. The following remarks, which are specific to the ASCII character set, are intended only as a guide: The alphabetic characters are the 52 upper and lower case letters. The numeric characters are the ten decimal digits. The whitespace characters are space, tab, line feed, form feed, and carriage return.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:char-.3einteger"><span class="sig"><var class="id">char-&gt;integer</var> <var class="arg">char</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:integer-.3echar"><span class="sig"><var class="id">integer-&gt;char</var> <var class="arg">n</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Given a character, char-&gt;integer returns an exact integer representation of the character. Given an exact integer that is the image of a character under char-&gt;integer, integer-&gt;char returns that character. These procedures implement order-preserving isomorphisms between the set of characters under the char&lt;=? ordering and some subset of the integers under the &lt;= ordering. That is, if</p><pre>(char&lt;=? a b) ===&gt; #t and (&lt;= x y) ===&gt; #t</pre><p>and x and y are in the domain of integer-&gt;char, then</p><pre>(&lt;= (char-&gt;integer a) (char-&gt;integer b)) ===&gt; #t (char&lt;=? (integer-&gt;char x) (integer-&gt;char y)) ===&gt; #t</pre><p>Note that <tt>integer-&gt;char</tt> does currently not detect a negative argument and will quietly convert <tt>-1</tt> to <tt>#x1ffff</tt> in CHICKEN.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:char-upcase"><span class="sig"><var class="id">char-upcase</var> <var class="arg">char</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char-downcase"><span class="sig"><var class="id">char-downcase</var> <var class="arg">char</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return a character char[2] such that (char-ci=? char char[2]). In addition, if char is alphabetic, then the result of char-upcase is upper case and the result of char-downcase is lower case.</p></dd></dl><h4 id="sec:Strings"><a href="#sec:Strings">Strings</a></h4><p>Strings are sequences of characters. Strings are written as sequences of characters enclosed within doublequotes (&quot;). A doublequote can be written inside a string only by escaping it with a backslash (\), as in</p><p>&quot;The word \&quot;recursion\&quot; has many meanings.&quot;</p><p>A backslash can be written inside a string only by escaping it with another backslash. Scheme does not specify the effect of a backslash within a string that is not followed by a doublequote or backslash.</p><p>A string constant may continue from one line to the next, but the exact contents of such a string are unspecified. The length of a string is the number of characters that it contains. This number is an exact, non-negative integer that is fixed when the string is created. The valid indexes of a string are the exact non-negative integers less than the length of the string. The first character of a string has index 0, the second has index 1, and so on.</p><p>In phrases such as &quot;the characters of string beginning with index start and ending with index end,&quot; it is understood that the index start is inclusive and the index end is exclusive. Thus if start and end are the same index, a null substring is referred to, and if start is zero and end is the length of string, then the entire string is referred to.</p><p>Some of the procedures that operate on strings ignore the difference between upper and lower case. The versions that ignore case have &quot;-ci&quot; (for &quot;case insensitive&quot;) embedded in their names.</p> <dl class="defsig"> <dt class="defsig" id="def:string.3f"><span class="sig"><var class="id">string?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if obj is a string, otherwise returns #f.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:make-string"><span class="sig"><var class="id">make-string</var> <var class="arg">k</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-string"><span class="sig"><var class="id">make-string</var> <var class="arg">k</var> <var class="arg">char</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Make-string returns a newly allocated string of length k. If char is given, then all elements of the string are initialized to char, otherwise the contents of the string are unspecified.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string"><span class="sig"><var class="id">string</var> <var class="arg">char</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly allocated string composed of the arguments.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string-length"><span class="sig"><var class="id">string-length</var> <var class="arg">string</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of characters in the given string.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string-ref"><span class="sig"><var class="id">string-ref</var> <var class="arg">string</var> <var class="arg">k</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>k must be a valid index of string. String-ref returns character k of string using zero-origin indexing.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string-set.21"><span class="sig"><var class="id">string-set!</var> <var class="arg">string</var> <var class="arg">k</var> <var class="arg">char</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>k must be a valid index of string. String-set! stores char in element k of string and returns an unspecified value.</p><pre>(define (f) (make-string 3 #\*)) (define (g) &quot;***&quot;) (string-set! (f) 0 #\?) ===&gt; unspecified (string-set! (g) 0 #\?) ===&gt; error (string-set! (symbol-&gt;string 'immutable) 0 #\?) ===&gt; error</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string.3d.3f"><span class="sig"><tt>(string=? string[1] string[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:string-ci.3d.3f"><span class="sig"><tt>(string-ci=? string[1] string[2])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if the two strings are the same length and contain the same characters in the same positions, otherwise returns #f. String-ci=? treats upper and lower case letters as though they were the same character, but string=? treats upper and lower case as distinct characters.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string.3c.3f"><span class="sig"><tt>(string&lt;? string[1] string[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:string.3e.3f"><span class="sig"><tt>(string&gt;? string[1] string[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:string.3c.3d.3f"><span class="sig"><tt>(string&lt;=? string[1] string[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:string.3e.3d.3f"><span class="sig"><tt>(string&gt;=? string[1] string[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:string-ci.3c.3f"><span class="sig"><tt>(string-ci&lt;? string[1] string[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:string-ci.3e.3f"><span class="sig"><tt>(string-ci&gt;? string[1] string[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:string-ci.3c.3d.3f"><span class="sig"><tt>(string-ci&lt;=? string[1] string[2])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:string-ci.3e.3d.3f"><span class="sig"><tt>(string-ci&gt;=? string[1] string[2])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures are the lexicographic extensions to strings of the corresponding orderings on characters. For example, string&lt;? is the lexicographic ordering on strings induced by the ordering char&lt;? on characters. If two strings differ in length but are the same up to the length of the shorter string, the shorter string is considered to be lexicographically less than the longer string.</p><p>Implementations may generalize these and the string=? and string-ci=? procedures to take more than two arguments, as with the corresponding numerical predicates.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:substring"><span class="sig"><var class="id">substring</var> <var class="arg">string</var> <var class="arg">start</var> <var class="dsssl">#!optional</var> <var class="arg">end</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>String must be a string, and start and end must be exact integers satisfying</p><pre>0 &lt;= start &lt;= end &lt;= (string-length string)</pre><p>Substring returns a newly allocated string formed from the characters of string beginning with index start (inclusive) and ending with index end (exclusive). The <var class="arg">end</var> argument is optional and defaults to the length of the string, this is a non-standard extension in CHICKEN.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string-append"><span class="sig"><var class="id">string-append</var> <var class="arg">string</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly allocated string whose characters form the concatenation of the given strings.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string-.3elist"><span class="sig"><var class="id">string-&gt;list</var> <var class="arg">string</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3estring"><span class="sig"><var class="id">list-&gt;string</var> <var class="arg">list</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>String-&gt;list returns a newly allocated list of the characters that make up the given string. List-&gt;string returns a newly allocated string formed from the characters in the list list, which must be a list of characters. String-&gt;list and list-&gt;string are inverses so far as equal? is concerned.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string-copy"><span class="sig"><var class="id">string-copy</var> <var class="arg">string</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly allocated copy of the given string.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:string-fill.21"><span class="sig"><var class="id">string-fill!</var> <var class="arg">string</var> <var class="arg">char</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores char in every element of the given string and returns an unspecified value.</p></dd></dl><h4 id="sec:Vectors"><a href="#sec:Vectors">Vectors</a></h4><p>Vectors are heterogenous structures whose elements are indexed by integers. A vector typically occupies less space than a list of the same length, and the average time required to access a randomly chosen element is typically less for the vector than for the list.</p><p>The length of a vector is the number of elements that it contains. This number is a non-negative integer that is fixed when the vector is created. The valid indexes of a vector are the exact non-negative integers less than the length of the vector. The first element in a vector is indexed by zero, and the last element is indexed by one less than the length of the vector.</p><p>Vectors are written using the notation #(obj ...). For example, a vector of length 3 containing the number zero in element 0, the list (2 2 2 2) in element 1, and the string &quot;Anna&quot; in element 2 can be written as following:</p><pre>#(0 (2 2 2 2) &quot;Anna&quot;)</pre><p>Note that this is the external representation of a vector, not an expression evaluating to a vector. Like list constants, vector constants must be quoted:</p><pre>'#(0 (2 2 2 2) &quot;Anna&quot;) ===&gt; #(0 (2 2 2 2) &quot;Anna&quot;)</pre> <dl class="defsig"> <dt class="defsig" id="def:vector.3f"><span class="sig"><var class="id">vector?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if obj is a vector, otherwise returns #f.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:make-vector"><span class="sig"><var class="id">make-vector</var> <var class="arg">k</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-vector"><span class="sig"><var class="id">make-vector</var> <var class="arg">k</var> <var class="arg">fill</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly allocated vector of k elements. If a second argument is given, then each element is initialized to fill. Otherwise the initial contents of each element is unspecified.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:vector"><span class="sig"><var class="id">vector</var> <var class="arg">obj</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly allocated vector whose elements contain the given arguments. Analogous to list.</p><pre>(vector 'a 'b 'c) ===&gt; #(a b c)</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:vector-length"><span class="sig"><var class="id">vector-length</var> <var class="arg">vector</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of elements in vector as an exact integer.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:vector-ref"><span class="sig"><var class="id">vector-ref</var> <var class="arg">vector</var> <var class="arg">k</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>k must be a valid index of vector. Vector-ref returns the contents of element k of vector.</p><pre>(vector-ref '#(1 1 2 3 5 8 13 21) 5) ===&gt; 8 (vector-ref '#(1 1 2 3 5 8 13 21) (let ((i (round (* 2 (acos -1))))) (if (inexact? i) (inexact-&gt;exact i) i))) ===&gt; 13</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:vector-set.21"><span class="sig"><var class="id">vector-set!</var> <var class="arg">vector</var> <var class="arg">k</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>k must be a valid index of vector. Vector-set! stores obj in element k of vector. The value returned by vector-set! is unspecified.</p><pre>(let ((vec (vector 0 '(2 2 2 2) &quot;Anna&quot;))) (vector-set! vec 1 '(&quot;Sue&quot; &quot;Sue&quot;)) vec) ===&gt; #(0 (&quot;Sue&quot; &quot;Sue&quot;) &quot;Anna&quot;) (vector-set! '#(0 1 2) 1 &quot;doe&quot;) ===&gt; error ; constant vector</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:vector-.3elist"><span class="sig"><var class="id">vector-&gt;list</var> <var class="arg">vector</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3evector"><span class="sig"><var class="id">list-&gt;vector</var> <var class="arg">list</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Vector-&gt;list returns a newly allocated list of the objects contained in the elements of vector. List-&gt;vector returns a newly created vector initialized to the elements of the list list.</p><pre>(vector-&gt;list '#(dah dah didah)) ===&gt; (dah dah didah) (list-&gt;vector '(dididit dah)) ===&gt; #(dididit dah)</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:vector-fill.21"><span class="sig"><var class="id">vector-fill!</var> <var class="arg">vector</var> <var class="arg">fill</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores fill in every element of vector. The value returned by vector-fill! is unspecified.</p></dd></dl><h3 id="sec:Control_features"><a href="#sec:Control_features">Control features</a></h3><p>This chapter describes various primitive procedures which control the flow of program execution in special ways. The procedure? predicate is also described here.</p> <dl class="defsig"> <dt class="defsig" id="def:procedure.3f"><span class="sig"><var class="id">procedure?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if obj is a procedure, otherwise returns #f.</p><pre>(procedure? car) ===&gt; #t (procedure? 'car) ===&gt; #f (procedure? (lambda (x) (* x x))) ===&gt; #t (procedure? '(lambda (x) (* x x))) ===&gt; #f (call-with-current-continuation procedure?) ===&gt; #t</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:apply"><span class="sig"><tt>(apply proc arg[1] ... args)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Proc must be a procedure and args must be a list. Calls proc with the elements of the list (append (list arg[1] ...) args) as the actual arguments.</p><pre>(apply + (list 3 4)) ===&gt; 7 (define compose (lambda (f g) (lambda args (f (apply g args))))) ((compose sqrt *) 12 75) ===&gt; 30</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:map"><span class="sig"><tt>(map proc list[1] list[2] ...)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>The lists must be lists, and proc must be a procedure taking as many arguments as there are lists and returning a single value. If more than one list is given, then they must all be the same length. Map applies proc element-wise to the elements of the lists and returns a list of the results, in order. The dynamic order in which proc is applied to the elements of the lists is unspecified.</p><pre>(map cadr '((a b) (d e) (g h))) ===&gt; (b e h) (map (lambda (n) (expt n n)) '(1 2 3 4 5)) ===&gt; (1 4 27 256 3125) (map + '(1 2 3) '(4 5 6)) ===&gt; (5 7 9) (let ((count 0)) (map (lambda (ignored) (set! count (+ count 1)) count) '(a b))) ===&gt; (1 2) or (2 1)</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:for-each"><span class="sig"><tt>(for-each proc list[1] list[2] ...)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>The arguments to for-each are like the arguments to map, but for-each calls proc for its side effects rather than for its values. Unlike map, for-each is guaranteed to call proc on the elements of the lists in order from the first element(s) to the last, and the value returned by for-each is unspecified.</p><pre>(let ((v (make-vector 5))) (for-each (lambda (i) (vector-set! v i (* i i))) '(0 1 2 3 4)) v) ===&gt; #(0 1 4 9 16)</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:force"><span class="sig"><var class="id">force</var> <var class="arg">promise</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Forces the value of promise (see &quot;<a href="#sec:delayed-evaluation">delayed evaluation</a>&quot;). If no value has been computed for the promise, then a value is computed and returned. The value of the promise is cached (or &quot;memoized&quot;) so that if it is forced a second time, the previously computed value is returned.</p><pre>(force (delay (+ 1 2))) ===&gt; 3 (let ((p (delay (+ 1 2)))) (list (force p) (force p))) ===&gt; (3 3) (define a-stream (letrec ((next (lambda (n) (cons n (delay (next (+ n 1))))))) (next 0))) (define head car) (define tail (lambda (stream) (force (cdr stream)))) (head (tail (tail a-stream))) ===&gt; 2</pre><p>Force and delay are mainly intended for programs written in functional style. The following examples should not be considered to illustrate good programming style, but they illustrate the property that only one value is computed for a promise, no matter how many times it is forced.</p><pre>(define count 0) (define p (delay (begin (set! count (+ count 1)) (if (&gt; count x) count (force p))))) (define x 5) p ===&gt; a promise (force p) ===&gt; 6 p ===&gt; a promise, still (begin (set! x 10) (force p)) ===&gt; 6</pre><p>Here is a possible implementation of delay and force. Promises are implemented here as procedures of no arguments, and force simply calls its argument:</p><pre>(define force (lambda (object) (object)))</pre><p>We define the expression</p><pre>(delay &lt;expression&gt;)</pre><p>to have the same meaning as the procedure call</p><pre>(make-promise (lambda () &lt;expression&gt;))</pre><p>as follows</p><pre>(define-syntax delay (syntax-rules () ((delay expression) (make-promise (lambda () expression))))),</pre><p>where make-promise is defined as follows:</p><pre>(define make-promise (lambda (proc) (let ((result-ready? #f) (result #f)) (lambda () (if result-ready? result (let ((x (proc))) (if result-ready? result (begin (set! result-ready? #t) (set! result x) result))))))))</pre><p>Rationale: A promise may refer to its own value, as in the last example above. Forcing such a promise may cause the promise to be forced a second time before the value of the first force has been computed. This complicates the definition of make-promise.</p><p>Various extensions to this semantics of delay and force are supported in some implementations:</p><ul><li>Calling force on an object that is not a promise may simply return the object (this is the case in CHICKEN).</li> <li>It may be the case that there is no means by which a promise can be operationally distinguished from its forced value. That is, expressions like the following may evaluate to either #t or to #f, depending on the implementation:</li> </ul> <pre> (eqv? (delay 1) 1) ===&gt; unspecified (pair? (delay (cons 1 2))) ===&gt; unspecified</pre><pre> In CHICKEN, promises are separate objects, so the above expressions will both evaluate to {{#f}}.</pre><ul><li>Some implementations may implement &quot;implicit forcing,&quot; where the value of a promise is forced by primitive procedures like cdr and +:</li> </ul> <pre> (+ (delay (* 3 7)) 13) ===&gt; 34</pre><pre> This is '''not''' the case in CHICKEN.</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:call-with-current-continuation"><span class="sig"><var class="id">call-with-current-continuation</var> <var class="arg">proc</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Proc must be a procedure of one argument. The procedure call-with-current-continuation packages up the current continuation (see the rationale below) as an &quot;escape procedure&quot; and passes it as an argument to proc. The escape procedure is a Scheme procedure that, if it is later called, will abandon whatever continuation is in effect at that later time and will instead use the continuation that was in effect when the escape procedure was created. Calling the escape procedure may cause the invocation of before and after thunks installed using dynamic-wind.</p><p>The escape procedure accepts the same number of arguments as the continuation to the original call to call-with-current-continuation. Except for continuations created by the call-with-values procedure, all continuations take exactly one value. The effect of passing no value or more than one value to continuations that were not created by call-with-values is unspecified.</p><p>The escape procedure that is passed to proc has unlimited extent just like any other procedure in Scheme. It may be stored in variables or data structures and may be called as many times as desired.</p><p>The following examples show only the most common ways in which call-with-current-continuation is used. If all real uses were as simple as these examples, there would be no need for a procedure with the power of call-with-current-continuation.</p><pre>(call-with-current-continuation (lambda (exit) (for-each (lambda (x) (if (negative? x) (exit x))) '(54 0 37 -3 245 19)) #t)) ===&gt; -3 (define list-length (lambda (obj) (call-with-current-continuation (lambda (return) (letrec ((r (lambda (obj) (cond ((null? obj) 0) ((pair? obj) (+ (r (cdr obj)) 1)) (else (return #f)))))) (r obj)))))) (list-length '(1 2 3 4)) ===&gt; 4 (list-length '(a b . c)) ===&gt; #f</pre><p>Rationale:</p><p>A common use of call-with-current-continuation is for structured, non-local exits from loops or procedure bodies, but in fact call-with-current-continuation is extremely useful for implementing a wide variety of advanced control structures.</p><p>Whenever a Scheme expression is evaluated there is a continuation wanting the result of the expression. The continuation represents an entire (default) future for the computation. If the expression is evaluated at top level, for example, then the continuation might take the result, print it on the screen, prompt for the next input, evaluate it, and so on forever. Most of the time the continuation includes actions specified by user code, as in a continuation that will take the result, multiply it by the value stored in a local variable, add seven, and give the answer to the top level continuation to be printed. Normally these ubiquitous continuations are hidden behind the scenes and programmers do not think much about them. On rare occasions, however, a programmer may need to deal with continuations explicitly. Call-with-current-continuation allows Scheme programmers to do that by creating a procedure that acts just like the current continuation.</p><p>Most programming languages incorporate one or more special-purpose escape constructs with names like exit, return, or even goto. In 1965, however, Peter Landin [16] invented a general purpose escape operator called the J-operator. John Reynolds [24] described a simpler but equally powerful construct in 1972. The catch special form described by Sussman and Steele in the 1975 report on Scheme is exactly the same as Reynolds's construct, though its name came from a less general construct in MacLisp. Several Scheme implementors noticed that the full power of the catch construct could be provided by a procedure instead of by a special syntactic construct, and the name call-with-current-continuation was coined in 1982. This name is descriptive, but opinions differ on the merits of such a long name, and some people use the name call/cc instead.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:values"><span class="sig"><var class="id">values</var> <var class="arg">obj</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Delivers all of its arguments to its continuation. Except for continuations created by the call-with-values procedure, all continuations take exactly one value. Values might be defined as follows:</p><pre>(define (values . things) (call-with-current-continuation (lambda (cont) (apply cont things))))</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:call-with-values"><span class="sig"><var class="id">call-with-values</var> <var class="arg">producer</var> <var class="arg">consumer</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Calls its producer argument with no values and a continuation that, when passed some values, calls the consumer procedure with those values as arguments. The continuation for the call to consumer is the continuation of the call to call-with-values.</p><pre>(call-with-values (lambda () (values 4 5)) (lambda (a b) b)) ===&gt; 5 (call-with-values * -) ===&gt; -1</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:dynamic-wind"><span class="sig"><var class="id">dynamic-wind</var> <var class="arg">before</var> <var class="arg">thunk</var> <var class="arg">after</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Calls thunk without arguments, returning the result(s) of this call. Before and after are called, also without arguments, as required by the following rules (note that in the absence of calls to continuations captured using call-with-current-continuation the three arguments are called once each, in order). Before is called whenever execution enters the dynamic extent of the call to thunk and after is called whenever it exits that dynamic extent. The dynamic extent of a procedure call is the period between when the call is initiated and when it returns. In Scheme, because of call-with-current-continuation, the dynamic extent of a call may not be a single, connected time period. It is defined as follows:</p><ul><li>The dynamic extent is entered when execution of the body of the called procedure begins.</li> <li>The dynamic extent is also entered when execution is not within the dynamic extent and a continuation is invoked that was captured (using call-with-current-continuation) during the dynamic extent.</li> <li>It is exited when the called procedure returns.</li> <li>It is also exited when execution is within the dynamic extent and a continuation is invoked that was captured while not within the dynamic extent.</li> </ul> <p>If a second call to dynamic-wind occurs within the dynamic extent of the call to thunk and then a continuation is invoked in such a way that the afters from these two invocations of dynamic-wind are both to be called, then the after associated with the second (inner) call to dynamic-wind is called first.</p><p>If a second call to dynamic-wind occurs within the dynamic extent of the call to thunk and then a continuation is invoked in such a way that the befores from these two invocations of dynamic-wind are both to be called, then the before associated with the first (outer) call to dynamic-wind is called first.</p><p>If invoking a continuation requires calling the before from one call to dynamic-wind and the after from another, then the after is called first.</p><p>The effect of using a captured continuation to enter or exit the dynamic extent of a call to before or after is undefined. However, in CHICKEN it is safe to do this, and they will execute in the outer dynamic context of the <tt>dynamic-wind</tt> form.</p><pre>(let ((path '()) (c #f)) (let ((add (lambda (s) (set! path (cons s path))))) (dynamic-wind (lambda () (add 'connect)) (lambda () (add (call-with-current-continuation (lambda (c0) (set! c c0) 'talk1)))) (lambda () (add 'disconnect))) (if (&lt; (length path) 4) (c 'talk2) (reverse path)))) ===&gt; (connect talk1 disconnect connect talk2 disconnect)</pre></dd></dl><h3 id="sec:Eval"><a href="#sec:Eval">Eval</a></h3> <dl class="defsig"> <dt class="defsig" id="def:eval"><span class="sig"><var class="id">eval</var> <var class="arg">expression</var> <var class="dsssl">#!optional</var> <var class="arg">environment-specifier</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Evaluates expression in the specified environment and returns its value. Expression must be a valid Scheme expression represented as data, and environment-specifier must be a value returned by one of the three procedures described below. Implementations may extend eval to allow non-expression programs (definitions) as the first argument and to allow other values as environments, with the restriction that eval is not allowed to create new bindings in the environments associated with null-environment or scheme-report-environment.</p><pre>(eval '(* 7 3) (scheme-report-environment 5)) ===&gt; 21 (let ((f (eval '(lambda (f x) (f x x)) (null-environment 5)))) (f + 10)) ===&gt; 20</pre><p>The <var class="arg">environment-specifier</var> is optional, and if not provided it defaults to the value of <tt>(interaction-environment)</tt>. This is a CHICKEN extension to R5RS, which, though strictly nonportable, is very common among Scheme implementations.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:scheme-report-environment"><span class="sig"><var class="id">scheme-report-environment</var> <var class="arg">version</var> <var class="dsssl">#!optional</var> <var class="arg">mutable</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:null-environment"><span class="sig"><var class="id">null-environment</var> <var class="arg">version</var> <var class="dsssl">#!optional</var> <var class="arg">mutable</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Version must be either the exact integer 4 or 5, corresponding to the respective revisions of the Scheme report (the Revised^N Report on Scheme). Scheme-report-environment returns a specifier for an environment that is empty except for all bindings defined in this report that are either required or both optional and supported by the implementation. Null-environment returns a specifier for an environment that is empty except for the (syntactic) bindings for all syntactic keywords defined in this report that are either required or both optional and supported by the implementation.</p><p>The environments specified by scheme-report-environment and null-environment are immutable by default. In CHICKEN, as an extension to R5RS, an extra <var class="arg">mutable</var> argument can be passed, which makes the environments mutable when non-<tt>#f</tt>. Mutability means new top-level definitions are accepted and the values of existing top-level bindings can be mutated.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:interaction-environment"><span class="sig"><var class="id">interaction-environment</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>This procedure returns a specifier for the environment that contains implementation-defined bindings, typically a superset of those listed in the report. The intent is that this procedure will return the environment in which the implementation would evaluate expressions dynamically typed by the user.</p></dd></dl><h3 id="sec:Input_and_output"><a href="#sec:Input_and_output">Input and output</a></h3><h4 id="sec:Ports"><a href="#sec:Ports">Ports</a></h4><p>Ports represent input and output devices. To Scheme, an input port is a Scheme object that can deliver characters upon command, while an output port is a Scheme object that can accept characters.</p> <dl class="defsig"> <dt class="defsig" id="def:call-with-input-file"><span class="sig"><tt>(call-with-input-file string proc [mode ...])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:call-with-output-file"><span class="sig"><tt>(call-with-output-file string proc [mode ...])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>String should be a string naming a file, and proc should be a procedure that accepts one argument. For call-with-input-file, the file should already exist; for call-with-output-file, the effect is unspecified if the file already exists. These procedures call proc with one argument: the port obtained by opening the named file for input or output. If the file cannot be opened, an error is signalled. If proc returns, then the port is closed automatically and the value(s) yielded by the proc is (are) returned. If proc does not return, then the port will not be closed automatically unless it is possible to prove that the port will never again be used for a read or write operation.</p><p>Rationale: Because Scheme's escape procedures have unlimited extent, it is possible to escape from the current continuation but later to escape back in. If implementations were permitted to close the port on any escape from the current continuation, then it would be impossible to write portable code using both call-with-current-continuation and call-with-input-file or call-with-output-file.</p><p>Additional <tt>mode</tt> arguments can be passed in, which should be any of the keywords <tt>#:text</tt>, <tt>#:binary</tt> or <tt>#:append</tt>. <tt>#:text</tt> and <tt>#:binary</tt> indicate the mode in which to open the file (this has an effect on non-UNIX platforms only), while <tt>#:append</tt> indicates that instead of truncating the file on open, data written to it should be appended at the end (only for output files). The extra <tt>mode</tt> arguments are CHICKEN extensions to the R5RS standard.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:input-port.3f"><span class="sig"><var class="id">input-port?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:output-port.3f"><span class="sig"><var class="id">output-port?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if obj is an input port or output port respectively, otherwise returns #f.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:current-input-port"><span class="sig"><var class="id">current-input-port</var> <var class="dsssl">#!optional</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:current-output-port"><span class="sig"><var class="id">current-output-port</var> <var class="dsssl">#!optional</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the current default input or output port.</p><p>If the optional <var class="arg">port</var> argument is passed, the current input or output port is changed to the provided port. It can also be used with <tt>parameterize</tt> to temporarily bind the port to another value. This is a CHICKEN extension to the R5RS standard.</p><p>Note that the default output port is not buffered. Use <a href="Module%20%28chicken%20port%29.html#sec:set-buffering-mode.21"><tt>set-buffering-mode!</tt></a> if you need a different behavior.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:with-input-from-file"><span class="sig"><tt>(with-input-from-file string thunk [mode ...])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:with-output-to-file"><span class="sig"><tt>(with-output-to-file string thunk [mode ...])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>String should be a string naming a file, and proc should be a procedure of no arguments. For with-input-from-file, the file should already exist; for with-output-to-file, the effect is unspecified if the file already exists. The file is opened for input or output, an input or output port connected to it is made the default value returned by current-input-port or current-output-port (and is used by (read), (write obj), and so forth), and the thunk is called with no arguments. When the thunk returns, the port is closed and the previous default is restored. With-input-from-file and with-output-to-file return(s) the value(s) yielded by thunk. If an escape procedure is used to escape from the continuation of these procedures, their behavior is implementation dependent.</p><p>Additional <tt>mode</tt> arguments can be passed in, which should be any of the keywords <tt>#:text</tt>, <tt>#:binary</tt> or <tt>#:append</tt>. <tt>#:text</tt> and <tt>#:binary</tt> indicate the mode in which to open the file (this has an effect on non-UNIX platforms only), while <tt>#:append</tt> indicates that instead of truncating the file on open, data written to it should be appended at the end (only for output files). The extra <tt>mode</tt> arguments are CHICKEN extensions to the R5RS standard.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:open-input-file"><span class="sig"><tt>(open-input-file filename [mode ...])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Takes a string naming an existing file and returns an input port capable of delivering characters from the file. If the file cannot be opened, an error is signalled.</p><p>Additional <tt>mode</tt> arguments can be passed in, which should be any of the keywords <tt>#:text</tt> or <tt>#:binary</tt>. These indicate the mode in which to open the file (this has an effect on non-UNIX platforms only). The extra <tt>mode</tt> arguments are CHICKEN extensions to the R5RS standard.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:open-output-file"><span class="sig"><tt>(open-output-file filename [mode ...])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Takes a string naming an output file to be created and returns an output port capable of writing characters to a new file by that name. If the file cannot be opened, an error is signalled. If a file with the given name already exists, the effect is unspecified.</p><p>Additional <tt>mode</tt> arguments can be passed in, which should be any of the keywords <tt>#:text</tt>, <tt>#:binary</tt> or <tt>#:append</tt>. <tt>#:text</tt> and <tt>#:binary</tt> indicate the mode in which to open the file (this has an effect on non-UNIX platforms only), while <tt>#:append</tt> indicates that instead of truncating the file on open, data written to it should be appended at the end. The extra <tt>mode</tt> arguments are CHICKEN extensions to the R5RS standard.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:close-input-port"><span class="sig"><var class="id">close-input-port</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:close-output-port"><span class="sig"><var class="id">close-output-port</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Closes the file associated with port, rendering the port incapable of delivering or accepting characters. These routines have no effect if the file has already been closed. The value returned is unspecified.</p></dd></dl><h4 id="sec:Input"><a href="#sec:Input">Input</a></h4> <dl class="defsig"> <dt class="defsig" id="def:read"><span class="sig"><var class="id">read</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:read"><span class="sig"><var class="id">read</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Read converts external representations of Scheme objects into the objects themselves. That is, it is a parser for the nonterminal &lt;datum&gt; (see also &quot;<a href="#sec:pairs-and-lists">pairs and lists</a>&quot;). Read returns the next object parsable from the given input port, updating port to point to the first character past the end of the external representation of the object.</p><p>If an end of file is encountered in the input before any characters are found that can begin an object, then an end of file object is returned. The port remains open, and further attempts to read will also return an end of file object. If an end of file is encountered after the beginning of an object's external representation, but the external representation is incomplete and therefore not parsable, an error is signalled.</p><p>The port argument may be omitted, in which case it defaults to the value returned by current-input-port. It is an error to read from a closed port.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:read-char"><span class="sig"><var class="id">read-char</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:read-char"><span class="sig"><var class="id">read-char</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the next character available from the input port, updating the port to point to the following character. If no more characters are available, an end of file object is returned. Port may be omitted, in which case it defaults to the value returned by current-input-port.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:peek-char"><span class="sig"><var class="id">peek-char</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:peek-char"><span class="sig"><var class="id">peek-char</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the next character available from the input port, without updating the port to point to the following character. If no more characters are available, an end of file object is returned. Port may be omitted, in which case it defaults to the value returned by current-input-port.</p><p>Note: The value returned by a call to peek-char is the same as the value that would have been returned by a call to read-char with the same port. The only difference is that the very next call to read-char or peek-char on that port will return the value returned by the preceding call to peek-char. In particular, a call to peek-char on an interactive port will hang waiting for input whenever a call to read-char would have hung.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:eof-object.3f"><span class="sig"><var class="id">eof-object?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if obj is an end of file object, otherwise returns #f. The precise set of end of file objects will vary among implementations, but in any case no end of file object will ever be an object that can be read in using read.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:char-ready.3f"><span class="sig"><var class="id">char-ready?</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:char-ready.3f"><span class="sig"><var class="id">char-ready?</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if a character is ready on the input port and returns #f otherwise. If char-ready returns #t then the next read-char operation on the given port is guaranteed not to hang. If the port is at end of file then char-ready? returns #t. Port may be omitted, in which case it defaults to the value returned by current-input-port.</p><p>Rationale: Char-ready? exists to make it possible for a program to accept characters from interactive ports without getting stuck waiting for input. Any input editors associated with such ports must ensure that characters whose existence has been asserted by char-ready? cannot be rubbed out. If char-ready? were to return #f at end of file, a port at end of file would be indistinguishable from an interactive port that has no ready characters.</p></dd></dl><h4 id="sec:Output"><a href="#sec:Output">Output</a></h4> <dl class="defsig"> <dt class="defsig" id="def:write"><span class="sig"><var class="id">write</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:write"><span class="sig"><var class="id">write</var> <var class="arg">obj</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Writes a written representation of obj to the given port. Strings that appear in the written representation are enclosed in doublequotes, and within those strings backslash and doublequote characters are escaped by backslashes. Character objects are written using the #\ notation. Write returns an unspecified value. The port argument may be omitted, in which case it defaults to the value returned by current-output-port.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:display"><span class="sig"><var class="id">display</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:display"><span class="sig"><var class="id">display</var> <var class="arg">obj</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Writes a representation of obj to the given port. Strings that appear in the written representation are not enclosed in doublequotes, and no characters are escaped within those strings. Character objects appear in the representation as if written by write-char instead of by write. Display returns an unspecified value. The port argument may be omitted, in which case it defaults to the value returned by current-output-port.</p><p>Rationale: Write is intended for producing machine-readable output and display is for producing human-readable output. Implementations that allow &quot;slashification&quot; within symbols will probably want write but not display to slashify funny characters in symbols.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:newline"><span class="sig"><var class="id">newline</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:newline"><span class="sig"><var class="id">newline</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Writes an end of line to port. Exactly how this is done differs from one operating system to another. Returns an unspecified value. The port argument may be omitted, in which case it defaults to the value returned by current-output-port.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:write-char"><span class="sig"><var class="id">write-char</var> <var class="arg">char</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:write-char"><span class="sig"><var class="id">write-char</var> <var class="arg">char</var> <var class="arg">port</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Writes the character char (not an external representation of the character) to the given port and returns an unspecified value. The port argument may be omitted, in which case it defaults to the value returned by current-output-port.</p></dd></dl><h4 id="sec:System_interface"><a href="#sec:System_interface">System interface</a></h4><p>Questions of system interface generally fall outside of the domain of this report. However, the following operations are important enough to deserve description here.</p> <dl class="defsig"> <dt class="defsig" id="def:load"><span class="sig"><var class="id">load</var> <var class="arg">filename</var> <var class="dsssl">#!optional</var> <var class="arg">evalproc</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Filename should be a string naming an existing file containing Scheme source code. The load procedure reads expressions and definitions from the file and evaluates them sequentially. It is unspecified whether the results of the expressions are printed. The load procedure does not affect the values returned by current-input-port and current-output-port. Load returns an unspecified value.</p><p>CHICKEN offers a few extensions to the R5RS definition of <tt>load</tt>:</p><ul><li>The <var class="arg">filename</var> may also be an input port.</li> <li>The expressions which are read one by one from the source file are passed to the procedure indicated by the extra optional <var class="arg">evalproc</var> argument, which defaults to <tt>eval</tt>.</li> <li>On platforms that support it (currently BSD, Haiku, MacOS X, Linux, Solaris, and Windows), <tt>load</tt> can be used to load shared objects.</li> </ul> <p>Example for loading compiled programs:</p><pre>% cat x.scm (define (hello) (print &quot;Hello!&quot;)) % csc -s x.scm % csi -q #;1&gt; (load &quot;x.so&quot;) ; loading x.so ... #;2&gt; (hello) Hello! #;3&gt;</pre><p>There are some limitations and caveats to the CHICKEN extensions you need to be aware of:</p><ul><li>The second argument to <tt>load</tt> is ignored when loading compiled code.</li> <li>If source code is loaded from a port, then that port is closed after all expressions have been read.</li> <li>A compiled file can only be loaded once. Subsequent attempts to load the same file have no effect.</li> </ul> </dd></dl> <dl class="defsig"> <dt class="defsig" id="def:transcript-on"><span class="sig"><var class="id">transcript-on</var> <var class="arg">filename</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:transcript-off"><span class="sig"><var class="id">transcript-off</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>(These procedures are not implemented in CHICKEN.)</p><p>Filename must be a string naming an output file to be created. The effect of transcript-on is to open the named file for output, and to cause a transcript of subsequent interaction between the user and the Scheme system to be written to the file. The transcript is ended by a call to transcript-off, which closes the transcript file. Only one transcript may be in progress at any time, though some implementations may relax this restriction. The values returned by these procedures are unspecified.</p></dd></dl><hr /><p>Previous: <a href="Included%20modules.html">Included modules</a></p><p>Next: <a href="Module%20r5rs.html">Module r5rs</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Interface to external functions and variables.html������������������������0000644�0001750�0001750�00000002500�13502230006�026573� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Interface to external functions and variables</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Interface_to_external_functions_and_variables"><a href="#sec:Interface_to_external_functions_and_variables">Interface to external functions and variables</a></h2><p>The macros in this section, such as <tt>define-foreign-type</tt> and <tt>define-external</tt>, are available in the <tt>foreign</tt> import library. To access them:</p><pre>(import (chicken foreign))</pre><p>Note: Using the foreign library directly from the interpreter or the REPL will not work.</p><ul><li><a href="Accessing%20external%20objects.html">Accessing external objects</a></li> <li><a href="Foreign%20type%20specifiers.html">Foreign type specifiers</a> </li> <li><a href="Embedding.html">Embedding</a> </li> <li><a href="C%20interface.html">C interface</a> </li> <li><a href="Data%20representation.html">Data representation</a> </li> </ul> <hr /><p>Previous: <a href="Included%20modules.html">Included modules</a></p><p>Next: <a href="Modules.html">Modules</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken syntax).html����������������������������������������������0000644�0001750�0001750�00000055266�13502230005�022302� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken syntax)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_syntax.29">Module (chicken syntax)</a> <ul> <li><a href="#sec:Macro_transformers">Macro transformers</a> <ul> <li><a href="#sec:Explicit_renaming_macros">Explicit renaming macros</a> <ul> <li><a href="#sec:er-macro-transformer">er-macro-transformer</a></li></ul></li></ul></li> <li><a href="#sec:Implicit_renaming_macros">Implicit renaming macros</a> <ul> <li><a href="#sec:ir-macro-transformer">ir-macro-transformer</a></li></ul></li> <li><a href="#sec:Expanding_macros">Expanding macros</a> <ul> <li><a href="#sec:expand">expand</a></li></ul></li> <li><a href="#sec:Macro_helper_procedures">Macro helper procedures</a> <ul> <li><a href="#sec:begin-for-syntax">begin-for-syntax</a></li> <li><a href="#sec:define-for-syntax">define-for-syntax</a></li> <li><a href="#sec:syntax">syntax</a></li> <li><a href="#sec:strip-syntax">strip-syntax</a></li> <li><a href="#sec:get-line-number">get-line-number</a></li> <li><a href="#sec:syntax-error">syntax-error</a></li></ul></li> <li><a href="#sec:Compiler_macros">Compiler macros</a> <ul> <li><a href="#sec:define-compiler-syntax">define-compiler-syntax</a></li> <li><a href="#sec:let-compiler-syntax">let-compiler-syntax</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_syntax.29"><a href="#sec:Module_.28chicken_syntax.29">Module (chicken syntax)</a></h2><p>This module has support for syntax- and module handling. This module is used by default, unless a program is compiled with the <tt>-explicit-use</tt> option.</p><h3 id="sec:Macro_transformers"><a href="#sec:Macro_transformers">Macro transformers</a></h3><p>Macro transformers are procedures you can use in a <tt>define-syntax</tt> context to register a procedure that can transform s-expressions into other s-expressions. Only use these when you need to break hygiene in a controlled way; for many use cases <tt>syntax-rules</tt> is more appropriate, as it offers stronger guarantees of hygiene, is more high-level and is standard R5RS Scheme.</p><p>For those situations where you need more control, however, CHICKEN supports two kinds of low-level macros: so-called explicit renaming and implicit renaming macros.</p><h4 id="sec:Explicit_renaming_macros"><a href="#sec:Explicit_renaming_macros">Explicit renaming macros</a></h4><p>The low-level macro facility that CHICKEN provides is called &quot;explicit renaming&quot; and allows writing hygienic or non-hygienic macros procedurally. When given a the return value of the one of the procedures <tt>er-macro-transformer</tt> or <tt>ir-macro-transformer</tt> instead of a <tt>syntax-rules</tt> form, <tt>define-syntax</tt> evaluates the procedure in a distinct expansion environment (initially having access to the exported identifiers of the <tt>scheme</tt> module). The procedure takes an expression and two other arguments and returns a transformed expression.</p><p>For example, the transformation procedure for a <tt>call</tt> macro such that <tt>(call proc arg ...)</tt> expands into <tt>(proc arg ...)</tt> can be written as</p><pre> (er-macro-transformer (lambda (exp rename compare) (cdr exp)))</pre><p>Expressions are represented as lists in the traditional manner, except that identifiers are represented as special uninterned symbols.</p><p>The second argument to a transformation procedure is a renaming procedure that takes the representation of an identifier as its argument and returns the representation of a fresh identifier that occurs nowhere else in the program. For example, the transformation procedure for a simplified version of the <tt>let</tt> macro might be written as</p><pre> (er-macro-transformer (lambda (exp rename compare) (let ((vars (map car (cadr exp))) (inits (map cadr (cadr exp))) (body (cddr exp))) `((lambda ,vars ,@body) ,@inits))))</pre><p>This would not be hygienic, however. A hygienic <tt>let</tt> macro must rename the identifier <tt>lambda</tt> to protect it from being captured by a local binding. The renaming effectively creates a fresh alias for <tt>lambda</tt>, one that cannot be captured by any subsequent binding:</p><pre> (er-macro-transformer (lambda (exp rename compare) (let ((vars (map car (cadr exp))) (inits (map cadr (cadr exp))) (body (cddr exp))) `((,(rename 'lambda) ,vars ,@body) ,@inits))))</pre><p>The expression returned by the transformation procedure will be expanded in the syntactic environment obtained from the syntactic environment of the macro application by binding any fresh identifiers generated by the renaming procedure to the denotations of the original identifiers in the syntactic environment in which the macro was defined. This means that a renamed identifier will denote the same thing as the original identifier unless the transformation procedure that renamed the identifier placed an occurrence of it in a binding position.</p><p>Identifiers obtained from any two calls to the renaming procedure with the same argument will necessarily be the same, but will denote the same syntactical binding. It is an error if the renaming procedure is called after the transformation procedure has returned.</p><p>The third argument to a transformation procedure is a comparison predicate that takes the representations of two identifiers as its arguments and returns true if and only if they denote the same thing in the syntactic environment that will be used to expand the transformed macro application. For example, the transformation procedure for a simplified version of the <tt>cond</tt> macro can be written as</p><pre> (er-macro-transformer (lambda (exp rename compare) (let ((clauses (cdr exp))) (if (null? clauses) `(,(rename 'quote) unspecified) (let* ((first (car clauses)) (rest (cdr clauses)) (test (car first))) (cond ((and (symbol? test) (compare test (rename 'else))) `(,(rename 'begin) ,@(cdr first))) (else `(,(rename 'if) ,test (,(rename 'begin) ,@(cdr first)) (,(r 'cond) ,@rest)))))))))</pre><p>In this example the identifier <tt>else</tt> is renamed before being passed to the comparison predicate, so the comparison will be true if and only if the test expression is an identifier that denotes the same thing in the syntactic environment of the expression being transformed as <tt>else</tt> denotes in the syntactic environment in which the <tt>cond</tt> macro was defined. If <tt>else</tt> were not renamed before being passed to the comparison predicate, then it would match a local variable that happened to be named <tt>else</tt>, and the macro would not be hygienic. The final recursive call to <tt>cond</tt> also needs to be renamed because someone might create an alias for this macro and use it in a <tt>let</tt> where <tt>cond</tt> is an ordinary variable.</p><p>Some macros are non-hygienic by design. For example, the following defines a <tt>loop</tt> macro that implicitly binds <tt>exit</tt> to an escape procedure. The binding of <tt>exit</tt> is intended to capture free references to <tt>exit</tt> in the body of the loop, so <tt>exit</tt> is not renamed.</p><pre> (define-syntax loop (er-macro-transformer (lambda (x r c) (let ((body (cdr x))) `(,(r 'call-with-current-continuation) (,(r 'lambda) (exit) (,(r 'let) ,(r 'f) () ,@body (,(r 'f)))))))))</pre><p>Suppose a <tt>while</tt> macro is implemented using <tt>loop</tt>, with the intent that <tt>exit</tt> may be used to escape from the <tt>while</tt> loop. The <tt>while</tt> macro cannot be written as</p><pre> (define-syntax while (syntax-rules () ((while test body ...) (loop (if (not test) (exit #f)) body ...))))</pre><p>because the reference to <tt>exit</tt> that is inserted by the <tt>while</tt> macro is intended to be captured by the binding of <tt>exit</tt> that will be inserted by the <tt>loop</tt> macro. In other words, this <tt>while</tt> macro is not hygienic. Like <tt>loop</tt>, it must be written using procedurally:</p><pre> (define-syntax while (er-macro-transformer (lambda (x r c) (let ((test (cadr x)) (body (cddr x))) `(,(r 'loop) (,(r 'if) (,(r 'not) ,test) (exit #f)) ,@body)))))</pre><p>Think about it: If we <i>did</i> rename <tt>exit</tt>, it would refer to an <tt>exit</tt> procedure existing in the context of the macro's definition. That one <a href="Unit%20library.html#sec:exit">actually exists</a>; it is the procedure that exits the Scheme interpreter. Definitely <i>not</i> the one we want :) So now we make it refer to an <tt>exit</tt> that's locally bound in the environment where the macro is expanded.</p><p>Note: this implementation of explicit-renaming macros allows passing arbitrary expressions to the renaming and comparison procedures. When being renamed, a fresh copy of the expression will be produced, with all identifiers renamed appropriately. Comparison also supports arbitrary expressions as arguments.</p><h5 id="sec:er-macro-transformer"><a href="#sec:er-macro-transformer">er-macro-transformer</a></h5> <dl class="defsig"> <dt class="defsig" id="def:er-macro-transformer"><span class="sig"><var class="id">er-macro-transformer</var> <var class="arg">TRANSFORMER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns an explicit-renaming macro transformer procedure created from the procedural macro body <var class="arg">TRANSFORMER</var>, which is a procedure of three arguments.</p><p>This procedure will be called on expansion with the complete s-expression of the macro invocation, a rename procedure that hygienically renames identifiers and a comparison procedure that compares (possibly renamed) identifiers (see the section &quot;Explicit renaming macros&quot; below for a detailed explanation on non-R5RS macros).</p><p>Implementation note: this procedure currently just returns its argument unchanged and is available for writing low-level macros in a more portable fashion, without hard-coding the signature of a transformer procedure.</p></dd></dl><h3 id="sec:Implicit_renaming_macros"><a href="#sec:Implicit_renaming_macros">Implicit renaming macros</a></h3><p>Explicit renaming macros generally require the user to perform quite a few renames, because most identifiers that aren't taken from the input expression should generally be inserted hygienically. It would make more sense to give the output expression as-is, and only explicitly convert those identifiers that you want to treat as <i>unhygienic</i>.</p><p>This can be done with implicit renaming macros. They just swap the default insertion &quot;mode&quot; from unhygienic to hygienic, so to speak. Here's the <tt>cond</tt> example from the previous section as an ir-macro:</p><pre> (ir-macro-transformer (lambda (exp inject compare) (let ((clauses (cdr exp))) (if (null? clauses) `(quote unspecified) (let* ((first (car clauses)) (rest (cdr clauses)) (test (car first))) (cond ((and (symbol? test) (compare test 'else)) `(begin ,@(cdr first))) (else `(if ,test (begin ,@(cdr first)) (cond ,@rest)))))))))</pre><p>In this example the identifier <tt>else</tt> does <i>not</i> need to be renamed before being passed to the comparison predicate because it is already <i>implicitly</i> renamed. This comparison will also be true if and only if the test expression is an identifier that denotes the same thing in the syntactic environment of the expression being transformed as <tt>else</tt> denotes in the syntactic environment in which the <tt>cond</tt> macro was defined. If <tt>else</tt> were not renamed before being passed to the comparison predicate, then it would match a local variable that happened to be named <tt>else</tt>, and the macro would not be hygienic.</p><p>As you can see, the code is a lot clearer because it isn't obscured by excessive renaming.</p><p>Here's the <tt>loop</tt> macro so you can see how hygiene can be broken with implicit renaming macros:</p><pre> (define-syntax loop (ir-macro-transformer (lambda (expr inject compare) (let ((body (cdr expr))) `(call-with-current-continuation (lambda (,(inject 'exit)) (let f () ,@body (f))))))))</pre><p>The <tt>while</tt> macro is a little trickier: do we inject the call to <tt>exit</tt> or not? Just like the explicit renaming macro version did <i>not</i> rename it, we must inject it to allow it to be captured by the <tt>loop</tt> macro:</p><pre> (define-syntax while (ir-macro-transformer (lambda (expr inject compare) (let ((test (cadr expr)) (body (cddr expr))) `(loop (if (not ,test) (,(inject 'exit) #f)) ,@body)))))</pre><p>Note: Just like explicit renaming macros, this implementation of implicit renaming macros allow passing arbitrary expressions to the injection and comparison procedures. The injection procedure also return fresh copies of its input.</p><h5 id="sec:ir-macro-transformer"><a href="#sec:ir-macro-transformer">ir-macro-transformer</a></h5> <dl class="defsig"> <dt class="defsig" id="def:ir-macro-transformer"><span class="sig"><var class="id">ir-macro-transformer</var> <var class="arg">TRANSFORMER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>This procedure accepts a <i>reverse</i> syntax transformer, also known as an <i>implicit renaming macro transformer</i>. This is a transformer which works almost like er-macro-transformer, except the rename and compare procedures it receives work a little differently.</p><p>The rename procedure is now called <tt>inject</tt> and instead of renaming the identifier to be resolved in the macro's definition environment, it will explicitly <i>inject</i> the identifier to be resolved in the expansion environment. Any non-injected identifiers in the output expression produced by the transformer will be implicitly renamed to refer to the macro's environment instead. All identifiers in the input expression are of course implicitly injected just like with explicit renaming macros. See the section above for a more complete explanation.</p><p>To compare an input identifier you can generally compare to the bare symbol and only free identifiers will match. In practice, this means that when you would call e.g. <tt>(compare (cadr expression) (rename 'x))</tt> in an ER macro, you simply call <tt>(compare (cadr expression) 'x)</tt> in the IR macro. Likewise, an <i>unhygienic</i> ER macro's comparison <tt>(compare sym 'abc)</tt> should be written as <tt>(compare sym (inject 'abc))</tt> in an IR macro.</p></dd></dl><h3 id="sec:Expanding_macros"><a href="#sec:Expanding_macros">Expanding macros</a></h3><h4 id="sec:expand"><a href="#sec:expand">expand</a></h4> <dl class="defsig"> <dt class="defsig" id="def:expand"><span class="sig"><var class="id">expand</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>If <var class="arg">X</var> is a macro-form, expand the macro (and repeat expansion until expression is a non-macro form). Returns the resulting expression.</p></dd></dl><h3 id="sec:Macro_helper_procedures"><a href="#sec:Macro_helper_procedures">Macro helper procedures</a></h3><h4 id="sec:begin-for-syntax"><a href="#sec:begin-for-syntax">begin-for-syntax</a></h4> <dl class="defsig"> <dt class="defsig" id="def:begin-for-syntax"><span class="sig"><tt>(begin-for-syntax EXP ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Equivalent to <tt>(begin EXP ...)</tt>, but performs the evaluation of the expression during macro-expansion time, using the macro environment rather than the interaction environment.</p><p>You can use this to define your own helper procedures that you can call from a syntax transformer.</p></dd></dl><h4 id="sec:define-for-syntax"><a href="#sec:define-for-syntax">define-for-syntax</a></h4> <dl class="defsig"> <dt class="defsig" id="def:define-for-syntax"><span class="sig"><tt>(define-for-syntax (NAME VAR ...) EXP1 ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:define-for-syntax"><span class="sig"><tt>(define-for-syntax (NAME VAR1 ... VARn . VARn+1) EXP1 ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:define-for-syntax"><span class="sig"><tt>(define-for-syntax NAME [VALUE])</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines the toplevel variable <tt>NAME</tt> at macro-expansion time. This can be helpful when you want to define support procedures for use in macro-transformers, for example.</p><p>Essentially, this is a shorthand for <tt>(begin-for-syntax (define ...))</tt>.</p><p>Note that <tt>define-for-syntax</tt> definitions within a module are implicitly added to that module's import library. Refer to the documentation on <a href="Modules.html#sec:import-libraries">import libraries</a> for more information.</p></dd></dl><h4 id="sec:syntax"><a href="#sec:syntax">syntax</a></h4> <dl class="defsig"> <dt class="defsig" id="def:syntax"><span class="sig"><var class="id">syntax</var> <var class="arg">EXPRESSION</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>This will quote the <var class="arg">EXPRESSION</var> for use in a syntax expansion. Any syntactic information will be stripped from the <var class="arg">EXPRESSION</var>.</p></dd></dl><h4 id="sec:strip-syntax"><a href="#sec:strip-syntax">strip-syntax</a></h4> <dl class="defsig"> <dt class="defsig" id="def:strip-syntax"><span class="sig"><var class="id">strip-syntax</var> <var class="arg">EXPRESSION</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Strips all syntactical information from <var class="arg">EXPRESSION</var>, returning a new expression where symbols have all context-information removed.</p><p>You should use this procedure whenever you want to manually construct new identifiers, which an unhygienic macro can insert. In some cases it does not <i>appear</i> to be necessary to strip context information when you use the macro, but you still should do it. Sometimes identifiers will not have been renamed (most often at toplevel), but there may be other contexts in which identifiers <i>will</i> have been renamed.</p></dd></dl><h4 id="sec:get-line-number"><a href="#sec:get-line-number">get-line-number</a></h4> <dl class="defsig"> <dt class="defsig" id="def:get-line-number"><span class="sig"><var class="id">get-line-number</var> <var class="arg">EXPR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>If <var class="arg">EXPR</var> is a pair with the car being a symbol, and line-number information is available for this expression, then this procedure returns the associated source file and line number as a string. If line-number information is not available, then <tt>#f</tt> is returned. Note that line-number information for expressions is only available in the compiler.</p></dd></dl><h4 id="sec:syntax-error"><a href="#sec:syntax-error">syntax-error</a></h4> <dl class="defsig"> <dt class="defsig" id="def:syntax-error"><span class="sig"><tt>(syntax-error [LOCATION] MESSAGE ARGUMENT ...)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Signals an exception of the kind <tt>(exn syntax)</tt>. Otherwise identical to <tt>error</tt>.</p></dd></dl><h3 id="sec:Compiler_macros"><a href="#sec:Compiler_macros">Compiler macros</a></h3><h4 id="sec:define-compiler-syntax"><a href="#sec:define-compiler-syntax">define-compiler-syntax</a></h4> <dl class="defsig"> <dt class="defsig" id="def:define-compiler-syntax"><span class="sig"><tt>(define-compiler-syntax NAME)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:define-compiler-syntax"><span class="sig"><tt>(define-compiler-syntax NAME TRANSFORMER)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines what is usually called a <i>compiler macro</i> in Lisp: <tt>NAME</tt> should be the name of a globally or locally bound procedure. Any direct call to this procedure will be transformed before compilation, which allows arbitrary rewritings of function calls.</p><p><tt>TRANSFORMER</tt> can be a <tt>syntax-rules</tt> expression or a transformer procedure (as returned by <tt>er-macro-transformer</tt> or <tt>ir-macro-transformer</tt>). Returning the original form in an explicit/implicit-renaming macro or simply &quot;falling trough&quot; all patterns in a <tt>syntax-rules</tt> form will keep the original expression and compile it normally.</p><p>In the interpreter this form does nothing and returns an unspecified value.</p><p>Compiler-syntax is always local to the current compilation unit and can not be exported. Compiler-syntax defined inside a module is not visible outside of that module.</p><p><tt>define-compiler-syntax</tt> should only be used at top-level. Local compiler-syntax can be defined with <tt>let-compiler-syntax</tt>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define-compiler-syntax</span></i> + <span class="paren2">(<span class="default">syntax-rules <span class="paren3">(<span class="default"></span>)</span> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">_</span>)</span> 1</span>)</span> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">_ x 0</span>)</span> x</span>)</span> </span>)</span> </span>)</span></pre><p>If no transformer is given, then <tt>(define-compiler-syntax NAME)</tt> removes any compiler-syntax definitions for <tt>NAME</tt>.</p></dd></dl><h4 id="sec:let-compiler-syntax"><a href="#sec:let-compiler-syntax">let-compiler-syntax</a></h4> <dl class="defsig"> <dt class="defsig" id="def:let-compiler-syntax"><span class="sig"><tt>(let-compiler-syntax ((NAME [TRANSFORMER]) ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Allows definition local compiler macros, which are only applicable inside <tt>BODY ...</tt>. By not providing a <tt>TRANSFORMER</tt> expression, compiler-syntax for specific identifiers can be temporarily disabled.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20string%29.html">Module (chicken string)</a></p><p>Next: <a href="Module%20%28chicken%20tcp%29.html">Module (chicken tcp)</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module srfi-4.html��������������������������������������������������������0000644�0001750�0001750�00000115475�13502230005�020351� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module srfi-4</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_srfi-4">Module srfi-4</a> <ul> <li><a href="#sec:CHICKEN_implementation_specifics_and_extensions">CHICKEN implementation specifics and extensions</a></li> <li><a href="#sec:Blob_conversions">Blob conversions</a></li> <li><a href="#sec:Subvectors">Subvectors</a></li> <li><a href="#sec:Vector_I.2fO">Vector I/O</a></li></ul></li> <li><a href="#sec:SRFI-4_specification">SRFI-4 specification</a> <ul> <li><a href="#sec:Datatypes">Datatypes</a></li> <li><a href="#sec:External_representation">External representation</a></li> <li><a href="#sec:Predicates">Predicates</a></li> <li><a href="#sec:Constructors">Constructors</a></li> <li><a href="#sec:Length">Length</a></li> <li><a href="#sec:Getters">Getters</a></li> <li><a href="#sec:Setters">Setters</a></li> <li><a href="#sec:Conversions">Conversions</a></li> <li><a href="#sec:Release_number_vectors_allocated_in_static_memory">Release number vectors allocated in static memory</a></li></ul></li></ul></div><h2 id="sec:Module_srfi-4"><a href="#sec:Module_srfi-4">Module srfi-4</a></h2><p>Homogeneous numeric vector datatypes. Also see the <a href="http://srfi.schemers.org/srfi-4/srfi-4.html">original SRFI-4 document</a>.</p><h3 id="sec:CHICKEN_implementation_specifics_and_extensions"><a href="#sec:CHICKEN_implementation_specifics_and_extensions">CHICKEN implementation specifics and extensions</a></h3><ul><li>Procedures for <a href="Module%20%28chicken%20blob%29.html">blob</a> conversion, subvectors and vector I/O are provided.</li> <li>SRFI-17 setters for <tt>XXXvector-ref</tt> are defined.</li> <li>Constructors allow allocating the storage in non garbage collected memory.</li> </ul> <h3 id="sec:Blob_conversions"><a href="#sec:Blob_conversions">Blob conversions</a></h3><p>As a SRFI-4 vector is basically just a <a href="Module%20%28chicken%20blob%29.html">blob</a> wrapped by a SRFI-4 type &quot;header object&quot; to structure its contents, there are several procedures which can convert between blobs and SRFI-4 vectors.</p> <dl class="defsig"> <dt class="defsig" id="def:u8vector-.3eblob"><span class="sig"><var class="id">u8vector-&gt;blob</var> <var class="arg">U8VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-.3eblob"><span class="sig"><var class="id">s8vector-&gt;blob</var> <var class="arg">S8VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-.3eblob"><span class="sig"><var class="id">u16vector-&gt;blob</var> <var class="arg">U16VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-.3eblob"><span class="sig"><var class="id">s16vector-&gt;blob</var> <var class="arg">S16VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-.3eblob"><span class="sig"><var class="id">u32vector-&gt;blob</var> <var class="arg">U32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-.3eblob"><span class="sig"><var class="id">s32vector-&gt;blob</var> <var class="arg">S32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u64vector-.3eblob"><span class="sig"><var class="id">u64vector-&gt;blob</var> <var class="arg">U64VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s64vector-.3eblob"><span class="sig"><var class="id">s64vector-&gt;blob</var> <var class="arg">S64VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-.3eblob"><span class="sig"><var class="id">f32vector-&gt;blob</var> <var class="arg">F32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-.3eblob"><span class="sig"><var class="id">f64vector-&gt;blob</var> <var class="arg">F64VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u8vector-.3eblob.2fshared"><span class="sig"><var class="id">u8vector-&gt;blob/shared</var> <var class="arg">U8VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-.3eblob.2fshared"><span class="sig"><var class="id">s8vector-&gt;blob/shared</var> <var class="arg">S8VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-.3eblob.2fshared"><span class="sig"><var class="id">u16vector-&gt;blob/shared</var> <var class="arg">U16VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-.3eblob.2fshared"><span class="sig"><var class="id">s16vector-&gt;blob/shared</var> <var class="arg">S16VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-.3eblob.2fshared"><span class="sig"><var class="id">u32vector-&gt;blob/shared</var> <var class="arg">U32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-.3eblob.2fshared"><span class="sig"><var class="id">s32vector-&gt;blob/shared</var> <var class="arg">S32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u64vector-.3eblob.2fshared"><span class="sig"><var class="id">u64vector-&gt;blob/shared</var> <var class="arg">U64VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s64vector-.3eblob.2fshared"><span class="sig"><var class="id">s64vector-&gt;blob/shared</var> <var class="arg">S64VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-.3eblob.2fshared"><span class="sig"><var class="id">f32vector-&gt;blob/shared</var> <var class="arg">F32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-.3eblob.2fshared"><span class="sig"><var class="id">f64vector-&gt;blob/shared</var> <var class="arg">F64VECTOR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Each of these procedures return the contents of the given vector as a 'packed' blob. The byte order in that vector is platform-dependent (for example little-endian on an <b>Intel</b> processor). The <tt>/shared</tt> variants return a blob that shares memory with the contents of the vector, the others will copy the contents of the SRFI-4 vector's internal blob object.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:blob-.3eu8vector"><span class="sig"><var class="id">blob-&gt;u8vector</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es8vector"><span class="sig"><var class="id">blob-&gt;s8vector</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu16vector"><span class="sig"><var class="id">blob-&gt;u16vector</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es16vector"><span class="sig"><var class="id">blob-&gt;s16vector</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu32vector"><span class="sig"><var class="id">blob-&gt;u32vector</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es32vector"><span class="sig"><var class="id">blob-&gt;s32vector</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu64vector"><span class="sig"><var class="id">blob-&gt;u64vector</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es64vector"><span class="sig"><var class="id">blob-&gt;s64vector</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3ef32vector"><span class="sig"><var class="id">blob-&gt;f32vector</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3ef64vector"><span class="sig"><var class="id">blob-&gt;f64vector</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu8vector.2fshared"><span class="sig"><var class="id">blob-&gt;u8vector/shared</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es8vector.2fshared"><span class="sig"><var class="id">blob-&gt;s8vector/shared</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu16vector.2fshared"><span class="sig"><var class="id">blob-&gt;u16vector/shared</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es16vector.2fshared"><span class="sig"><var class="id">blob-&gt;s16vector/shared</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu32vector.2fshared"><span class="sig"><var class="id">blob-&gt;u32vector/shared</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es32vector.2fshared"><span class="sig"><var class="id">blob-&gt;s32vector/shared</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3eu64vector.2fshared"><span class="sig"><var class="id">blob-&gt;u64vector/shared</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3es64vector.2fshared"><span class="sig"><var class="id">blob-&gt;s64vector/shared</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3ef32vector.2fshared"><span class="sig"><var class="id">blob-&gt;f32vector/shared</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:blob-.3ef64vector.2fshared"><span class="sig"><var class="id">blob-&gt;f64vector/shared</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Each of these procedures return a vector where the argument <var class="arg">BLOB</var> is taken as a 'packed' representation of the contents of the vector. The <tt>/shared</tt> variants return a vector that shares memory with the contents of the blob, the others will copy the blob.</p></dd></dl><h3 id="sec:Subvectors"><a href="#sec:Subvectors">Subvectors</a></h3> <dl class="defsig"> <dt class="defsig" id="def:subu8vector"><span class="sig"><var class="id">subu8vector</var> <var class="arg">U8VECTOR</var> <var class="arg">FROM</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:subu16vector"><span class="sig"><var class="id">subu16vector</var> <var class="arg">U16VECTOR</var> <var class="arg">FROM</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:subu32vector"><span class="sig"><var class="id">subu32vector</var> <var class="arg">U32VECTOR</var> <var class="arg">FROM</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:subu64vector"><span class="sig"><var class="id">subu64vector</var> <var class="arg">U32VECTOR</var> <var class="arg">FROM</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:subs8vector"><span class="sig"><var class="id">subs8vector</var> <var class="arg">S8VECTOR</var> <var class="arg">FROM</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:subs16vector"><span class="sig"><var class="id">subs16vector</var> <var class="arg">S16VECTOR</var> <var class="arg">FROM</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:subs32vector"><span class="sig"><var class="id">subs32vector</var> <var class="arg">S32VECTOR</var> <var class="arg">FROM</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:subs64vector"><span class="sig"><var class="id">subs64vector</var> <var class="arg">S32VECTOR</var> <var class="arg">FROM</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:subf32vector"><span class="sig"><var class="id">subf32vector</var> <var class="arg">F32VECTOR</var> <var class="arg">FROM</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:subf64vector"><span class="sig"><var class="id">subf64vector</var> <var class="arg">F64VECTOR</var> <var class="arg">FROM</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a fresh number vector of the same type as the argument vector with the elements at the positions <var class="arg">FROM</var> up to but not including <var class="arg">TO</var>.</p></dd></dl><h3 id="sec:Vector_I.2fO"><a href="#sec:Vector_I.2fO">Vector I/O</a></h3> <dl class="defsig"> <dt class="defsig" id="def:read-u8vector"><span class="sig"><var class="id">read-u8vector</var> <var class="dsssl">#!optional</var> <var class="arg">LENGTH</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Reads <var class="arg">LENGTH</var> bytes from the <var class="arg">PORT</var> and returns a fresh <tt>u8vector</tt>, or as many as are available before end-of-file is encountered. <var class="arg">PORT</var> defaults to the value of <tt>(current-input-port)</tt>. If no bytes are available before the end-of-file, <tt>#!eof</tt> is returned.</p><p>If <var class="arg">LENGTH</var> is <tt>#f</tt>, the vector will be filled completely until end-of-file is reached.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:read-u8vector.21"><span class="sig"><var class="id">read-u8vector!</var> <var class="arg">LENGTH</var> <var class="arg">U8VECTOR</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var> <var class="arg">START</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Reads <var class="arg">LENGTH</var> bytes from the <var class="arg">PORT</var> writing the read input into <var class="arg">U8VECTOR</var> beginning at <var class="arg">START</var> (or 0 if not given). <var class="arg">PORT</var> defaults to the value of <tt>(current-input-port)</tt>.</p><p>If <var class="arg">LENGTH</var> is <tt>#f</tt>, the vector will be filled completely until end-of-file is reached. This procedure returns the number of bytes read.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:write-u8vector"><span class="sig"><var class="id">write-u8vector</var> <var class="arg">U8VECTOR</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var> <var class="arg">START</var> <var class="arg">END</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Writes the bytes <var class="arg">U8VECTOR</var> between the indices <var class="arg">START</var> (inclusive) and <var class="arg">END</var> (exclusive) to <var class="arg">PORT</var>.</p><p><var class="arg">PORT</var> defaults to the value of <tt>(current-output-port)</tt>.</p></dd></dl><h2 id="sec:SRFI-4_specification"><a href="#sec:SRFI-4_specification">SRFI-4 specification</a></h2><p>SRFI-4 describes a set of datatypes for vectors whose elements are of the same numeric type (signed or unsigned exact integer or inexact real of a given precision). These datatypes support operations analogous to the Scheme vector type, but they are distinct datatypes. An external representation is specified which must be supported by the <tt>read</tt> and <tt>write</tt> procedures and by the program parser (i.e. programs can contain references to literal homogeneous vectors).</p><h3 id="sec:Datatypes"><a href="#sec:Datatypes">Datatypes</a></h3><p>There are 8 datatypes of exact integer homogeneous vectors (which will be called integer vectors):</p><table> <tr><th>Datatype</th><th>Type of elements</th></tr> <tr><td><tt>s8vector</tt></td><td>signed exact integer in the range -(2^7) to (2^7)-1</td></tr> <tr><td><tt>u8vector</tt></td><td>unsigned exact integer in the range 0 to (2^8)-1</td></tr> <tr><td><tt>s16vector</tt></td><td>signed exact integer in the range -(2^15) to (2^15)-1</td></tr> <tr><td><tt>u16vector</tt></td><td>unsigned exact integer in the range 0 to (2^16)-1</td></tr> <tr><td><tt>s32vector</tt></td><td>signed exact integer in the range -(2^31) to (2^31)-1</td></tr> <tr><td><tt>u32vector</tt></td><td>unsigned exact integer in the range 0 to (2^32)-1</td></tr> <tr><td><tt>s64vector</tt></td><td>signed exact integer in the range -(2^31) to (2^31)-1</td></tr> <tr><td><tt>u64vector</tt></td><td>unsigned exact integer in the range 0 to (2^64)-1</td></tr> <tr><td><tt>s64vector</tt></td><td>signed exact integer in the range -(2^63) to (2^63)-1</td></tr> <tr><td><tt>u64vector</tt></td><td>unsigned exact integer in the range 0 to (2^64)-1</td></tr> </table> <p>There are 2 datatypes of inexact real homogeneous vectors (which will be called float vectors):</p><table> <tr><th>Datatype</th><th>Type of elements</th></tr> <tr><td><tt>f32vector</tt></td><td>inexact real</td></tr> <tr><td><tt>f64vector</tt></td><td>inexact real</td></tr> </table> <p>The only difference between the two float vector types is that <tt>f64vector</tt>s preserve at least as much precision as <tt>f32vector</tt>s.</p><p>Each homogeneous vector datatype has an external representation which is supported by the <tt>read</tt> and <tt>write</tt> procedures and by the program parser. Each datatype also has a set of associated predefined procedures analogous to those available for Scheme's heterogeneous vectors.</p><h3 id="sec:External_representation"><a href="#sec:External_representation">External representation</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23u8"><span class="sig"><tt>#u8</tt></span><span class="type">read</span></dt> <dt class="defsig" id="def:.23u16"><span class="sig"><tt>#u16</tt></span><span class="type">read</span></dt> <dt class="defsig" id="def:.23u32"><span class="sig"><tt>#u32</tt></span><span class="type">read</span></dt> <dt class="defsig" id="def:.23s8"><span class="sig"><tt>#s8</tt></span><span class="type">read</span></dt> <dt class="defsig" id="def:.23s16"><span class="sig"><tt>#s16</tt></span><span class="type">read</span></dt> <dt class="defsig" id="def:.23s32"><span class="sig"><tt>#s32</tt></span><span class="type">read</span></dt> <dt class="defsig" id="def:.23f32"><span class="sig"><tt>#f32</tt></span><span class="type">read</span></dt> <dt class="defsig" id="def:.23f64"><span class="sig"><tt>#f64</tt></span><span class="type">read</span></dt> <dd class="defsig"><p>The external representation of instances of the datatype <tt>XXXvector</tt> is <tt>#XXX( ...elements... )</tt>.</p><p>For example,</p><pre>#u8(0 #e1e2 #xff)}} ; a {{u8vector}} of length 3 containing 0, 100, 255 #f64(-1.5) ; a {{f64vector}} of length 1 containing -1.5.</pre><p>This external representation is also available in program source code. For example,</p><pre>(set! x '#u8(1 2 3))</pre><p>will set <tt>x</tt> to the object <tt>#u8(1 2 3)</tt>. Since CHICKEN 4.9.0, literal homogeneous vectors do not have to be quoted. Homogeneous vectors can appear in quasiquotations but must not contain <tt>unquote</tt> or <tt>unquote-splicing</tt> forms. <i>I.e.</i>,</p><pre>`(,x #u8(1 2)) ; legal `#u8(1 ,x 2) ; illegal</pre></dd></dl><h3 id="sec:Predicates"><a href="#sec:Predicates">Predicates</a></h3> <dl class="defsig"> <dt class="defsig" id="def:u8vector.3f"><span class="sig"><var class="id">u8vector?</var> <var class="arg">OBJ</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector.3f"><span class="sig"><var class="id">s8vector?</var> <var class="arg">OBJ</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector.3f"><span class="sig"><var class="id">u16vector?</var> <var class="arg">OBJ</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector.3f"><span class="sig"><var class="id">s16vector?</var> <var class="arg">OBJ</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector.3f"><span class="sig"><var class="id">u32vector?</var> <var class="arg">OBJ</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector.3f"><span class="sig"><var class="id">s32vector?</var> <var class="arg">OBJ</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u64vector.3f"><span class="sig"><var class="id">u64vector?</var> <var class="arg">OBJ</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s64vector.3f"><span class="sig"><var class="id">s64vector?</var> <var class="arg">OBJ</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector.3f"><span class="sig"><var class="id">f32vector?</var> <var class="arg">OBJ</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector.3f"><span class="sig"><var class="id">f64vector?</var> <var class="arg">OBJ</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Return <tt>#t</tt> if <tt>obj</tt> is an object of the specified type or <tt>#f</tt> if not.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:number-vector.3f"><span class="sig"><var class="id">number-vector?</var> <var class="arg">OBJ</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Return <tt>#t</tt> if <tt>obj</tt> is a number vector, <tt>#f</tt> if not. A &quot;number vector&quot; is any of the homogeneous number vector types defined by SRFI-4, ie it's one of <tt>u8vector</tt>, <tt>s8vector</tt>, <tt>u16vector</tt>, <tt>s16vector</tt>, <tt>u32vector</tt>, <tt>s32vector</tt>, <tt>u64vector</tt>, <tt>s64vector</tt>, <tt>f32vector</tt> or <tt>f64vector</tt>).</p></dd></dl><h3 id="sec:Constructors"><a href="#sec:Constructors">Constructors</a></h3> <dl class="defsig"> <dt class="defsig" id="def:make-u8vector"><span class="sig"><tt>(make-u8vector N [U8VALUE NONGC FINALIZE])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-s8vector"><span class="sig"><tt>(make-s8vector N [S8VALUE NONGC FINALIZE])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-u16vector"><span class="sig"><tt>(make-u16vector N [U16VALUE NONGC FINALIZE])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-s16vector"><span class="sig"><tt>(make-s16vector N [S16VALUE NONGC FINALIZE])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-u32vector"><span class="sig"><tt>(make-u32vector N [U32VALUE NONGC FINALIZE])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-s32vector"><span class="sig"><tt>(make-s32vector N [S32VALUE NONGC FINALIZE])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-u64vector"><span class="sig"><tt>(make-u64vector N [U64VALUE NONGC FINALIZE])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-s64vector"><span class="sig"><tt>(make-s64vector N [S64VALUE NONGC FINALIZE])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-f32vector"><span class="sig"><tt>(make-f32vector N [F32VALUE NONGC FINALIZE])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-f64vector"><span class="sig"><tt>(make-f64vector N [F64VALUE NONGC FINALIZE])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Return a newly-allocated SRFI-4 homogeneous number vector of length N.</p><p>If the optional fill VALUE is specified, it specifies the initial value for each slot in the vector. If not, the content of the vector is unspecified but individual elements of the vector are guaranteed to be in the range of values permitted for that type of vector.</p><p>The type of the fill value must be compatible with the elements of the vector datatype. It is an error if otherwise -- for example, if an inexact integer is passed to <tt>make-u8vector</tt>.</p><p>On CHICKEN, these procedures have been extended to allow allocating the storage in non-garbage collected memory, as follows:</p><p>The optional arguments <tt>NONGC</tt> and <tt>FINALIZE</tt> define whether the vector should be allocated in a memory area not subject to garbage collection and whether the associated storage should be automatically freed (using finalization) when there are no references from Scheme variables and data. <tt>NONGC</tt> defaults to <tt>#f</tt> (the vector will be located in normal garbage collected memory) and <tt>FINALIZE</tt> defaults to <tt>#t</tt>. Note that the <tt>FINALIZE</tt> argument is only used when <tt>NONGC</tt> is true.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:u8vector"><span class="sig"><var class="id">u8vector</var> <var class="arg">U8VALUE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector"><span class="sig"><var class="id">s8vector</var> <var class="arg">S8VALUE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector"><span class="sig"><var class="id">u16vector</var> <var class="arg">U16VALUE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector"><span class="sig"><var class="id">s16vector</var> <var class="arg">S16VALUE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector"><span class="sig"><var class="id">u32vector</var> <var class="arg">U32VALUE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector"><span class="sig"><var class="id">s32vector</var> <var class="arg">S32VALUE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u64vector"><span class="sig"><var class="id">u64vector</var> <var class="arg">U64VALUE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s64vector"><span class="sig"><var class="id">s64vector</var> <var class="arg">S64VALUE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector"><span class="sig"><var class="id">f32vector</var> <var class="arg">F32VALUE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector"><span class="sig"><var class="id">f64vector</var> <var class="arg">F64VALUE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Return a newly-allocated SRFI-4 homogeneous number vector of the specified type, composed of the arguments.</p></dd></dl><h3 id="sec:Length"><a href="#sec:Length">Length</a></h3> <dl class="defsig"> <dt class="defsig" id="def:u8vector-length"><span class="sig"><var class="id">u8vector-length</var> <var class="arg">U8VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-length"><span class="sig"><var class="id">s8vector-length</var> <var class="arg">S8VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-length"><span class="sig"><var class="id">u16vector-length</var> <var class="arg">U16VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-length"><span class="sig"><var class="id">s16vector-length</var> <var class="arg">S16VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-length"><span class="sig"><var class="id">u32vector-length</var> <var class="arg">U32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-length"><span class="sig"><var class="id">s32vector-length</var> <var class="arg">S32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u64vector-length"><span class="sig"><var class="id">u64vector-length</var> <var class="arg">U64VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s64vector-length"><span class="sig"><var class="id">s64vector-length</var> <var class="arg">S64VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-length"><span class="sig"><var class="id">f32vector-length</var> <var class="arg">F32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-length"><span class="sig"><var class="id">f64vector-length</var> <var class="arg">F64VECTOR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the length of the SRFI-4 homogeneous number VECTOR.</p></dd></dl><h3 id="sec:Getters"><a href="#sec:Getters">Getters</a></h3> <dl class="defsig"> <dt class="defsig" id="def:u8vector-ref"><span class="sig"><var class="id">u8vector-ref</var> <var class="arg">U8VECTOR</var> <var class="arg">I</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-ref"><span class="sig"><var class="id">s8vector-ref</var> <var class="arg">S8VECTOR</var> <var class="arg">i</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-ref"><span class="sig"><var class="id">u16vector-ref</var> <var class="arg">U16VECTOR</var> <var class="arg">I</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-ref"><span class="sig"><var class="id">s16vector-ref</var> <var class="arg">S16VECTOR</var> <var class="arg">I</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-ref"><span class="sig"><var class="id">u32vector-ref</var> <var class="arg">U32VECTOR</var> <var class="arg">I</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-ref"><span class="sig"><var class="id">s32vector-ref</var> <var class="arg">S32VECTOR</var> <var class="arg">I</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u64vector-ref"><span class="sig"><var class="id">u64vector-ref</var> <var class="arg">U64VECTOR</var> <var class="arg">I</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s64vector-ref"><span class="sig"><var class="id">s64vector-ref</var> <var class="arg">S64VECTOR</var> <var class="arg">I</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-ref"><span class="sig"><var class="id">f32vector-ref</var> <var class="arg">F32VECTOR</var> <var class="arg">I</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-ref"><span class="sig"><var class="id">f64vector-ref</var> <var class="arg">F64VECTOR</var> <var class="arg">I</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Return the value of the <i>i</i>th element of the SRFI-4 homogeneous number vector, where <var class="arg">I</var> is a nonnegative exact integer less than the length of the vector.</p></dd></dl><h3 id="sec:Setters"><a href="#sec:Setters">Setters</a></h3> <dl class="defsig"> <dt class="defsig" id="def:u8vector-set.21"><span class="sig"><var class="id">u8vector-set!</var> <var class="arg">U8VECTOR</var> <var class="arg">I</var> <var class="arg">U8VALUE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-set.21"><span class="sig"><var class="id">s8vector-set!</var> <var class="arg">S8VECTOR</var> <var class="arg">I</var> <var class="arg">S8VALUE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-set.21"><span class="sig"><var class="id">u16vector-set!</var> <var class="arg">U16VECTOR</var> <var class="arg">I</var> <var class="arg">U16VALUE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-set.21"><span class="sig"><var class="id">s16vector-set!</var> <var class="arg">S16VECTOR</var> <var class="arg">I</var> <var class="arg">S16VALUE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-set.21"><span class="sig"><var class="id">u32vector-set!</var> <var class="arg">U32VECTOR</var> <var class="arg">I</var> <var class="arg">U32VALUE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-set.21"><span class="sig"><var class="id">s32vector-set!</var> <var class="arg">S32VECTOR</var> <var class="arg">I</var> <var class="arg">S32VALUE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u64vector-set.21"><span class="sig"><var class="id">u64vector-set!</var> <var class="arg">U64VECTOR</var> <var class="arg">I</var> <var class="arg">U64VALUE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s64vector-set.21"><span class="sig"><var class="id">s64vector-set!</var> <var class="arg">S64VECTOR</var> <var class="arg">I</var> <var class="arg">S64VALUE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-set.21"><span class="sig"><var class="id">f32vector-set!</var> <var class="arg">F32VECTOR</var> <var class="arg">I</var> <var class="arg">F32VALUE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-set.21"><span class="sig"><var class="id">f64vector-set!</var> <var class="arg">F64VECTOR</var> <var class="arg">I</var> <var class="arg">F64VALUE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Set the <tt>i</tt>th element of the SRFI-4 homogeneous number VECTOR to VALUE. <var class="arg">I</var> is a nonnegative exact integer less than the length of the vector and VALUE must be the same type as the elements of the vector datatype.</p><p>Additionally, SRFI-17 setters are defined on all <tt>xxxvector-ref</tt> procedures. For example, to set the <tt>i</tt>th element of SRFI-4 <tt>u8vector</tt> to <tt>u8value</tt>:</p><pre>(set! (u8vector-ref u8vector i) u8value)</pre></dd></dl><h3 id="sec:Conversions"><a href="#sec:Conversions">Conversions</a></h3> <dl class="defsig"> <dt class="defsig" id="def:u8vector-.3elist"><span class="sig"><var class="id">u8vector-&gt;list</var> <var class="arg">U8VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s8vector-.3elist"><span class="sig"><var class="id">s8vector-&gt;list</var> <var class="arg">S8VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u16vector-.3elist"><span class="sig"><var class="id">u16vector-&gt;list</var> <var class="arg">U16VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s16vector-.3elist"><span class="sig"><var class="id">s16vector-&gt;list</var> <var class="arg">S16VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u32vector-.3elist"><span class="sig"><var class="id">u32vector-&gt;list</var> <var class="arg">U32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s32vector-.3elist"><span class="sig"><var class="id">s32vector-&gt;list</var> <var class="arg">S32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:u64vector-.3elist"><span class="sig"><var class="id">u64vector-&gt;list</var> <var class="arg">U64VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:s64vector-.3elist"><span class="sig"><var class="id">s64vector-&gt;list</var> <var class="arg">S64VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f32vector-.3elist"><span class="sig"><var class="id">f32vector-&gt;list</var> <var class="arg">F32VECTOR</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:f64vector-.3elist"><span class="sig"><var class="id">f64vector-&gt;list</var> <var class="arg">F64VECTOR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Return a list consisting of the elements of SRFI-4 homogeneous number VECTOR.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:list-.3eu8vector"><span class="sig"><var class="id">list-&gt;u8vector</var> <var class="arg">U8LIST</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3es8vector"><span class="sig"><var class="id">list-&gt;s8vector</var> <var class="arg">S8LIST</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3eu16vector"><span class="sig"><var class="id">list-&gt;u16vector</var> <var class="arg">U16LIST</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3es16vector"><span class="sig"><var class="id">list-&gt;s16vector</var> <var class="arg">S16LIST</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3eu32vector"><span class="sig"><var class="id">list-&gt;u32vector</var> <var class="arg">U32LIST</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3es32vector"><span class="sig"><var class="id">list-&gt;s32vector</var> <var class="arg">S32LIST</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3eu64vector"><span class="sig"><var class="id">list-&gt;u64vector</var> <var class="arg">U64LIST</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3es64vector"><span class="sig"><var class="id">list-&gt;s64vector</var> <var class="arg">S64LIST</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3ef32vector"><span class="sig"><var class="id">list-&gt;f32vector</var> <var class="arg">F32LIST</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:list-.3ef64vector"><span class="sig"><var class="id">list-&gt;f64vector</var> <var class="arg">F64LIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Return a newly-allocated SRFI-4 homogeneous number VECTOR consisting of the elements of LIST. Each element of LIST must be compatible with the datatype of VECTOR.</p></dd></dl><h3 id="sec:Release_number_vectors_allocated_in_static_memory"><a href="#sec:Release_number_vectors_allocated_in_static_memory">Release number vectors allocated in static memory</a></h3> <dl class="defsig"> <dt class="defsig" id="def:release-number-vector"><span class="sig"><var class="id">release-number-vector</var> <var class="arg">NVECTOR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Release the storage of a SRFI-4 vector that was allocated in non-garbage collected memory (for example using the <tt>NONGC</tt> argument for one of the <tt>make-XXXvector</tt> constructor procedures). The effect of calling this procedure with a number vector allocated in normal garbage collected memory is undefined.</p></dd></dl><hr /><p>Previous: <a href="Module%20r4rs.html">Module r4rs</a></p><p>Next: <a href="Module%20%28chicken%20base%29.html">Module (chicken base)</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Using the interpreter.html������������������������������������������������0000644�0001750�0001750�00000037735�13502230005�022213� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Using the interpreter</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Using_the_interpreter">Using the interpreter</a> <ul> <li><a href="#sec:Writing_Scheme_scripts">Writing Scheme scripts</a></li> <li><a href="#sec:Toplevel_commands">Toplevel commands</a></li> <li><a href="#sec:Getting_error_information">Getting error information</a></li> <li><a href="#sec:Running_an_external_editor">Running an external editor</a></li> <li><a href="#sec:History_access">History access</a></li> <li><a href="#sec:Auto-completion_and_editing">Auto-completion and editing</a></li> <li><a href="#sec:csi_command_line_format">csi command line format</a></li></ul></li></ul></div><h2 id="sec:Using_the_interpreter"><a href="#sec:Using_the_interpreter">Using the interpreter</a></h2><p>CHICKEN provides an interpreter named <tt>csi</tt> for evaluating Scheme programs and expressions interactively.</p><h3 id="sec:Writing_Scheme_scripts"><a href="#sec:Writing_Scheme_scripts">Writing Scheme scripts</a></h3><p>Since UNIX shells use the <tt>#!</tt> notation for starting scripts, anything following the characters <tt>#!</tt> is ignored, with the exception of the special symbols <tt>#!optional, #!key, #!rest</tt> and <tt>#!eof</tt>.</p><p>The easiest way is to use the <tt>-script</tt> option like this:</p><pre>% cat foo #! /usr/local/bin/csi -script (print (eval (with-input-from-string (car (command-line-arguments)) read)))</pre><pre>% chmod +x foo % ./foo &quot;(+ 3 4)&quot; 7</pre><p>The parameter <tt>command-line-arguments</tt> is set to a list of the parameters that were passed to the Scheme script. Scripts can be compiled to standalone executables.</p><p>CHICKEN supports writing shell scripts in Scheme for other platforms as well, using a slightly different approach. The first example would look like this on Windows:</p><pre>C:&gt;type foo.bat @;csibatch %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 (print (eval (with-input-from-string (car (command-line-arguments)) read)))</pre><pre>C:&gt;foo &quot;(+ 3 4)&quot; 7</pre><p>Like UNIX scripts, batch files can be compiled. Windows batch scripts do not accept more than 8 arguments.</p><p>Since it is sometimes useful to run a script in the interpreter without actually executing it (for example to test specific parts of it), the option <tt>-ss</tt> can be used as an alternative to <tt>-script</tt>. <tt>-ss PATHNAME</tt> is equivalent to <tt>-script PATHNAME</tt> but invokes <tt>(main (command-line-arguments))</tt> after loading all top-level forms of the script file. The result of <tt>main</tt> is returned as the exit status to the shell. Any non-numeric result exits with status zero:</p><pre>% cat hi.scm (define (main args) (print &quot;Hi, &quot; (car args)) 0) % csi -ss hi.scm you Hi, you % csi -q #;1&gt; ,l hi.scm #;2&gt; (main (list &quot;ye all&quot;)) Hi, ye all 0 #;3&gt;</pre><p>When <tt>csi</tt> is started with the <tt>-script</tt> option, the feature identifier <tt>chicken-script</tt> is defined, so can conditionally execute code depending on wether the file is executed as a script or normally loaded into the interpreter, say for debugging purposes:</p> <pre class="highlight colorize">#!/bin/sh <span class="comment">#| demonstrates a slightly different way to run a script on UNIX systems exec csi -s &quot;$0&quot; &quot;$@&quot; |#</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">main args</span>)</span> ...</span>)</span> <span class="paren1">(<span class="default">cond-expand <span class="paren2">(<span class="default">chicken-script <span class="paren3">(<span class="default">main <span class="paren4">(<span class="default">command-line-arguments</span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default">else</span>)</span></span>)</span></pre><p>See also the documentation for the <tt>-ss</tt> option above.</p><p>You can also have a look at <a href="http://wiki.call-cc.org/writing portable scripts">/writing portable scripts</a>.</p><h3 id="sec:Toplevel_commands"><a href="#sec:Toplevel_commands">Toplevel commands</a></h3><p>The toplevel loop understands a number of special commands:</p><dl><dt>,?</dt> <dd>Show summary of available toplevel commands.</dd><dt>,c</dt> <dd>Show call-trace items of the most recent error</dd><dt>,ch</dt> <dd>Clears stored expression results of previously evaluated expressions.</dd><dt>,d EXP</dt> <dd>Describe result of evaluated expression <tt>EXP</tt>.</dd><dt>,du EXP</dt> <dd>Dump contents of the result of evaluated expression <tt>EXP</tt>.</dd><dt>,dur EXP N</dt> <dd>Dump <tt>N</tt> bytes of the result of evaluated expression <tt>EXP</tt>.</dd><dt>,e FILENAME</dt> <dd>Runs an external editor to edit the given <tt>FILENAME</tt> (see below for more information).</dd><dt>,exn</dt> <dd>Describes the last exception that occurred and adds it to the result history (it can be accessed using the <tt>#</tt> notation).</dd><dt>,f N</dt> <dd>Select call-trace item with the given number, where the number <tt>0</tt> indicates the last item in the trace</dd><dt>,g NAME</dt> <dd>Returns the value of the local variable with the given name (which may be a symbol or string); you don't have to give the complete name - <tt>,g</tt> will return the first variable that matches the prefix given</dd><dt>,h</dt> <dd>Shows all previously evaluated expression results.</dd><dt>,l FILENAME ...</dt> <dd>Load files with given <tt>FILENAME</tt>s</dd><dt>,ln FILENAME ...</dt> <dd>Load files and print result(s) of each top-level expression.</dd><dt>,m MODULENAME</dt> <dd>switches the &quot;current module&quot; to <tt>MODULENAME</tt>, so expressions will be evaluated in the context of the given module. To switch back to toplevel, use <tt>#f</tt> as a MODULENAME. In compiled modules, only exported bindings will be visible to interactively entered code. In interpreted modules all bindings are visible.</dd><dt>,p EXP</dt> <dd>Pretty-print evaluated expression <tt>EXP</tt>.</dd><dt>,q</dt> <dd>Quit the interpreter.</dd><dt>,r</dt> <dd>Show system information.</dd><dt>,s TEXT ...</dt> <dd>Execute shell-command.</dd><dt>,t EXP</dt> <dd>Evaluate form and print elapsed time.</dd><dt>,x EXP</dt> <dd>Pretty-print macroexpanded expression <tt>EXP</tt> (the expression is not evaluated).</dd></dl> <p>You can define your own toplevel commands using the <tt>toplevel-command</tt> procedure (see <a href="Module%20%28chicken%20csi%29.html">Module (chicken csi)</a>).</p><h3 id="sec:Getting_error_information"><a href="#sec:Getting_error_information">Getting error information</a></h3><p>Interpreted code has some extended debugging information available that can be used to locate errors and obtaining information about the lexical environment that was effective at the point of error. When an error occurs in an evaluated expression, a &quot;call trace&quot; is printed - the list of calls up to the error location. Note that this does not follow a stack model: it is merely a list of recently made procedure calls where the last one in the list is (probably) the call of whatever procedure was executing before the error happened. You can use the <tt>,c</tt> command to show the call-trace of the last error. Depending on whether compiled or interpreted code was executing and how much debugging information is available, the call trace shows trace-buffer entries of the following shape:</p><pre> &lt;frame-number&gt;:&lt;environment?&gt; &lt;mode&gt; &lt;procedure-name&gt; &lt;form&gt; </pre><p><tt>&lt;frame-number&gt;</tt> gives the number of the call-trace entry, counting from zero and beginning with the most recent entry. If a <tt>[]</tt> follows the frame-number, then this frame contains the lexical environment in effect when that procedure call took place. <tt>&lt;mode&gt;</tt> is optional and is either <tt>&lt;syntax&gt;</tt> or <tt>&lt;eval&gt;</tt> indicating whether this trace-buffer entry represents a syntax-expansion or an evaluation and is not given for compiled code. <tt>&lt;form&gt;</tt> is also only available for interpreted code and shows the procedure call expression, possibly following the name of the procedure containing the call expression.</p><p>If the trace-buffer entry contains lexical environment information than the complete environment of the call site is shown.</p><p>Use <tt>,f</tt> to select a frame by number, if you want to inspect the lexical environment of an earlier frame. The <tt>,g</tt> command lets you retrieve the value of a local or lexical variable from the currently selected frame. Note that the variables are renamed to simplify the variable lookup done internally by the interpreter.</p><h3 id="sec:Running_an_external_editor"><a href="#sec:Running_an_external_editor">Running an external editor</a></h3><p>The <tt>,e</tt> command runs the editor given by:</p><ul><li>The parameter <tt>editor-command</tt> in the <tt>(chicken csi)</tt> module should return a string naming an external editor and defaults to <tt>#f</tt>, which means no editor is currently selected (so the following alternatives are tried).</li> <li>The contents of the environment variables <tt>EDITOR</tt> or <tt>VISUAL</tt>.</li> <li>If the environment variable <tt>EMACS</tt> is set, the editor chosen is <tt>emacsclient</tt>.</li> <li>In a desparate attempt to find an editor, <tt>vi</tt> is used.</li> </ul> <h3 id="sec:History_access"><a href="#sec:History_access">History access</a></h3><p>The interpreter toplevel accepts the special object <tt>#INDEX</tt> which returns the result of entry number <tt>INDEX</tt> in the history list. If the expression for that entry resulted in multiple values, the first result (or an unspecified value for no values) is returned. If no <tt>INDEX</tt> is given (and if a whitespace or closing paranthesis character follows the <tt>#</tt>, then the result of the last expression is returned. Note that the value that <tt>#INDEX</tt> stands for is an expression, not a literal, and so is implicitly quoted, so</p><pre>#;1&gt; 123 123 #;2&gt; '(1 2 #)</pre><p>will not return the result you expected.</p><h3 id="sec:Auto-completion_and_editing"><a href="#sec:Auto-completion_and_editing">Auto-completion and editing</a></h3><p>On platforms that support it, it is possible to get auto-completion of symbols, history (over different <tt>csi</tt> sessions) and a more feature-full editor for the expressions you type using the <a href="http://wiki.call-cc.org/eggref/5/breadline">breadline</a> egg by Vasilij Schneidermann. It is very useful for interactive use of csi. See the egg's documentation on how to set it up. If readline is not available on your system consider using the self-contained <a href="http://wiki.call-cc.org/eggref/5/linenoise">linenoise</a> egg instead. It should work on almost any system but is not as feature-rich as readline (e.g. it lacks reverse-i-search and auto-completion).</p><h3 id="sec:csi_command_line_format"><a href="#sec:csi_command_line_format">csi command line format</a></h3><p><tt>csi {FILENAME|OPTION</tt>}</p><p>where <tt>FILENAME</tt> specifies a file with Scheme source-code. If the extension of the source file is <tt>.scm</tt>, it may be omitted. The runtime options described in <a href="Using%20the%20compiler.html#sec:Compiler_command_line_format">Compiler command line format</a> are also available for the interpreter. If the environment variable <tt>CSI_OPTIONS</tt> is set to a list of options, then these options are additionally passed to every direct or indirect invocation of <tt>csi</tt>. Please note that runtime options (like <tt>-:...</tt>) can not be passed using this method. The options recognized by the interpreter are:</p><dl><dt>--</dt> <dd>Ignore everything on the command-line following this marker. Runtime options (<tt>-:...</tt>) are still recognized.</dd><dt>-i -case-insensitive</dt> <dd>Enables the reader to read symbols case insensitive. The default is to read case sensitive (in violation of R5RS). This option registers the <tt>case-insensitive</tt> feature identifier.</dd><dt>-b -batch</dt> <dd>Quit the interpreter after processing all command line options.</dd><dt>-e -eval EXPRESSIONS</dt> <dd>Evaluate <tt>EXPRESSIONS</tt>. This option implies <tt>-batch</tt>, <tt>-no-init</tt> and <tt>-quiet</tt>, so no startup message will be printed and the interpreter exits after processing all <tt>-eval</tt> options and/or loading files given on the command-line.</dd><dt>-p -print EXPRESSIONS</dt> <dd>Evaluate <tt>EXPRESSIONS</tt> and print the results of each expression using <tt>print</tt>. Implies <tt>-batch</tt>, <tt>-no-init</tt> and <tt>-quiet</tt>.</dd><dt>-P -pretty-print EXPRESSIONS</dt> <dd>Evaluate <tt>EXPRESSIONS</tt> and print the results of each expression using <tt>pretty-print</tt>. Implies <tt>-batch</tt>, <tt>-no-init</tt> and <tt>-quiet</tt>.</dd><dt>-D -feature SYMBOL</dt> <dd>Registers <tt>SYMBOL</tt> to be a valid feature identifier for <tt>cond-expand</tt> and <tt>feature?</tt>.</dd><dt>-h -help</dt> <dd>Write a summary of the available command line options to standard output and exit.</dd><dt>-I -include-path PATHNAME</dt> <dd>Specifies an alternative search-path for files included via the <tt>include</tt> special form. This option may be given multiple times. If the environment variable <tt>CHICKEN_INCLUDE_PATH</tt> is set, it should contain a list of alternative include pathnames separated by <tt>:</tt> (UNIX) or <tt>;</tt> (Windows).</dd><dt>-K -keyword-style STYLE</dt> <dd>Enables alternative keyword syntax, where <tt>STYLE</tt> may be either <tt>prefix</tt> (as in Common Lisp) or <tt>suffix</tt> (as in DSSSL). Any other value is ignored.</dd><dt>-n -no-init</dt> <dd>Do not load initialization-file. If this option is not given and the file <tt>$HOME/.csirc</tt> exists, then it is loaded before the read-eval-print loop commences.</dd><dt>-no-parentheses-synonyms</dt> <dd>Disables list delimiter synonyms, [..] and {...} for (...).</dd><dt>-no-symbol-escape</dt> <dd>Disables support for escaped symbols, the |...| form.</dd><dt>-w -no-warnings</dt> <dd>Disables any warnings that might be issued by the reader or evaluated code.</dd><dt>-q -quiet</dt> <dd>Do not print a startup message. Also disables generation of call-trace information for interpreted code.</dd><dt>-r5rs-syntax</dt> <dd>Disables the CHICKEN extensions to R5RS syntax. Does not disable non-standard read syntax.</dd><dt>-s -script PATHNAME</dt> <dd>This is equivalent to <tt>-batch -quiet -no-init PATHNAME</tt>. Arguments following <tt>PATHNAME</tt> are available by using <tt>command-line-arguments</tt> and are not processed as interpreter options. Extra options in the environment variable <tt>CSI_OPTIONS</tt> are ignored.</dd><dt>-sx PATHNAME</dt> <dd>The same as <tt>-s PATHNAME</tt> but prints each expression to <tt>(current-error-port)</tt> before it is evaluated.</dd><dt>-ss PATHNAME</dt> <dd>The same as <tt>-s PATHNAME</tt> but invokes the procedure <tt>main</tt> with the value of <tt>(command-line-arguments)</tt> as its single argument. If the main procedure returns an integer result, then the interpreter is terminated, returning the integer as the status code back to the invoking process. Any other result terminates the interpreter with a zero exit status.</dd><dt>-setup-mode</dt> <dd>When locating extensions, search the current directory first. By default, extensions are located first in the <i>extension repository</i>, where <tt>chicken-install</tt> stores compiled extensions and their associated metadata.</dd><dt>-R -require-extension NAME</dt> <dd>Equivalent to evaluating <tt>(require-extension NAME)</tt>.</dd><dt>-v -version</dt> <dd>Write the banner with version information to standard output and exit.</dd></dl> <hr /><p>Previous: <a href="Getting%20started.html">Getting started</a></p><p>Next: <a href="Using%20the%20compiler.html">Using the compiler</a></p></div></div></body>�����������������������������������chicken-5.1.0/manual-html/Module (chicken file posix).html������������������������������������������0000644�0001750�0001750�00000130623�13502230004�023004� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken file posix)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_file_posix.29">Module (chicken file posix)</a> <ul> <li><a href="#sec:Constants">Constants</a> <ul> <li><a href="#sec:File-control_Commands">File-control Commands</a></li> <li><a href="#sec:File_positions">File positions</a></li> <li><a href="#sec:Standard_I.2fO_file-descriptors">Standard I/O file-descriptors</a></li> <li><a href="#sec:Open_flags">Open flags</a></li> <li><a href="#sec:Open_flags_for_create-pipe">Open flags for create-pipe</a></li> <li><a href="#sec:Permission_bits">Permission bits</a></li></ul></li> <li><a href="#sec:Information_about_files">Information about files</a> <ul> <li><a href="#sec:directory.3f">directory?</a></li> <li><a href="#sec:file-type">file-type</a></li> <li><a href="#sec:character-device.3f">character-device?</a></li> <li><a href="#sec:block-device.3f">block-device?</a></li> <li><a href="#sec:socket.3f">socket?</a></li> <li><a href="#sec:regular-file.3f">regular-file?</a></li></ul></li> <li><a href="#sec:Fifos">Fifos</a> <ul> <li><a href="#sec:create-fifo">create-fifo</a></li> <li><a href="#sec:fifo.3f">fifo?</a></li></ul></li> <li><a href="#sec:Retrieving_file_attributes">Retrieving file attributes</a> <ul> <li><a href="#sec:file-access-time">file-access-time</a></li> <li><a href="#sec:file-change-time">file-change-time</a></li> <li><a href="#sec:file-modification-time">file-modification-time</a></li> <li><a href="#sec:set-file-times.21">set-file-times!</a></li> <li><a href="#sec:file-stat">file-stat</a></li> <li><a href="#sec:file-position">file-position</a></li> <li><a href="#sec:file-size">file-size</a></li> <li><a href="#sec:file-owner">file-owner</a></li> <li><a href="#sec:set-file-owner.21">set-file-owner!</a></li> <li><a href="#sec:file-group">file-group</a></li> <li><a href="#sec:set-file-group.21">set-file-group!</a></li> <li><a href="#sec:file-permissions">file-permissions</a></li> <li><a href="#sec:set-file-permissions.21">set-file-permissions!</a></li> <li><a href="#sec:file-truncate">file-truncate</a></li> <li><a href="#sec:set-file-position.21">set-file-position!</a></li> <li><a href="#sec:file-creation-mode">file-creation-mode</a></li></ul></li> <li><a href="#sec:Hard_and_symbolic_links">Hard and symbolic links</a> <ul> <li><a href="#sec:file-link">file-link</a></li> <li><a href="#sec:symbolic-link.3f">symbolic-link?</a></li> <li><a href="#sec:create-symbolic-link">create-symbolic-link</a></li> <li><a href="#sec:read-symbolic-link">read-symbolic-link</a></li></ul></li> <li><a href="#sec:File_descriptors_and_low-level_I.2fO">File descriptors and low-level I/O</a> <ul> <li><a href="#sec:duplicate-fileno">duplicate-fileno</a></li> <li><a href="#sec:file-close">file-close</a></li> <li><a href="#sec:file-open">file-open</a></li> <li><a href="#sec:file-mkstemp">file-mkstemp</a></li> <li><a href="#sec:file-read">file-read</a></li> <li><a href="#sec:file-select">file-select</a></li> <li><a href="#sec:file-write">file-write</a></li> <li><a href="#sec:file-control">file-control</a></li> <li><a href="#sec:open-input-file.2a">open-input-file*</a></li> <li><a href="#sec:open-output-file.2a">open-output-file*</a></li> <li><a href="#sec:port-.3efileno">port-&gt;fileno</a></li></ul></li> <li><a href="#sec:Record_locking">Record locking</a> <ul> <li><a href="#sec:file-lock">file-lock</a></li> <li><a href="#sec:file-lock.2fblocking">file-lock/blocking</a></li> <li><a href="#sec:file-test-lock">file-test-lock</a></li> <li><a href="#sec:file-unlock">file-unlock</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_file_posix.29"><a href="#sec:Module_.28chicken_file_posix.29">Module (chicken file posix)</a></h2><p>This module provides various operations on files and directories that are more POSIX-oriented than the generic higher-level operations from <a href="Module%20%28chicken%20file%29.html">Module (chicken file)</a>.</p><p>Note that the following definitions are not all available on non-UNIX systems like Windows. See below for Windows specific notes.</p><p>All errors related to failing file-operations will signal a condition of kind <tt>(exn i/o file)</tt>.</p><h3 id="sec:Constants"><a href="#sec:Constants">Constants</a></h3><h4 id="sec:File-control_Commands"><a href="#sec:File-control_Commands">File-control Commands</a></h4> <dl class="defsig"> <dt class="defsig" id="def:fcntl.2fdupfd"><span class="sig"><var class="id">fcntl/dupfd</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:fcntl.2fgetfd"><span class="sig"><var class="id">fcntl/getfd</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:fcntl.2fsetfd"><span class="sig"><var class="id">fcntl/setfd</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:fcntl.2fgetfl"><span class="sig"><var class="id">fcntl/getfl</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:fcntl.2fsetfl"><span class="sig"><var class="id">fcntl/setfl</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>Operations used with <tt>file-control</tt>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), these are all defined as zero. The <tt>file-control</tt> procedure to use these with is also unimplemented and will raise an error when called.</p></dd></dl><h4 id="sec:File_positions"><a href="#sec:File_positions">File positions</a></h4> <dl class="defsig"> <dt class="defsig" id="def:seek.2fcur"><span class="sig"><var class="id">seek/cur</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:seek.2fset"><span class="sig"><var class="id">seek/set</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:seek.2fend"><span class="sig"><var class="id">seek/end</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>File positions for <tt>set-file-position!</tt>.</p></dd></dl><h4 id="sec:Standard_I.2fO_file-descriptors"><a href="#sec:Standard_I.2fO_file-descriptors">Standard I/O file-descriptors</a></h4> <dl class="defsig"> <dt class="defsig" id="def:fileno.2fstdin"><span class="sig"><var class="id">fileno/stdin</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:fileno.2fstdout"><span class="sig"><var class="id">fileno/stdout</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:fileno.2fstderr"><span class="sig"><var class="id">fileno/stderr</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>Standard I/O file descriptor numbers, used with procedures such as <tt>open-input-file*</tt> which take file descriptors.</p></dd></dl><h4 id="sec:Open_flags"><a href="#sec:Open_flags">Open flags</a></h4> <dl class="defsig"> <dt class="defsig" id="def:open.2frdonly"><span class="sig"><var class="id">open/rdonly</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fwronly"><span class="sig"><var class="id">open/wronly</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2frdwr"><span class="sig"><var class="id">open/rdwr</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fread"><span class="sig"><var class="id">open/read</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fwrite"><span class="sig"><var class="id">open/write</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fcreat"><span class="sig"><var class="id">open/creat</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fappend"><span class="sig"><var class="id">open/append</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fexcl"><span class="sig"><var class="id">open/excl</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fnoctty"><span class="sig"><var class="id">open/noctty</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fnonblock"><span class="sig"><var class="id">open/nonblock</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2ftrunc"><span class="sig"><var class="id">open/trunc</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fsync"><span class="sig"><var class="id">open/sync</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2ffsync"><span class="sig"><var class="id">open/fsync</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2fbinary"><span class="sig"><var class="id">open/binary</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:open.2ftext"><span class="sig"><var class="id">open/text</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>Open flags used with the <tt>file-open</tt> procedure. <tt>open/read</tt> is a convenience synonym for <tt>open/rdonly</tt>, as is <tt>open/write</tt> for <tt>open/wronly</tt>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), <tt>open/noctty</tt>, <tt>open/nonblock</tt>, <tt>open/fsync</tt> and <tt>open/sync</tt> are defined as zero because the corresponding flag doesn't exist. This means you can safely add these to any set of flags when opening a file or pipe, but it simply won't have an effect.</p></dd></dl><h4 id="sec:Open_flags_for_create-pipe"><a href="#sec:Open_flags_for_create-pipe">Open flags for create-pipe</a></h4> <dl class="defsig"> <dt class="defsig" id="def:open.2fnoinherit"><span class="sig"><var class="id">open/noinherit</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>This variable is a mode value for <tt>create-pipe</tt>. Useful when spawning a child process on Windows. On UNIX it is defined as zero, so you can safely pass it there, but it will have no effect.</p></dd></dl><h4 id="sec:Permission_bits"><a href="#sec:Permission_bits">Permission bits</a></h4> <dl class="defsig"> <dt class="defsig" id="def:perm.2firusr"><span class="sig"><var class="id">perm/irusr</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fiwusr"><span class="sig"><var class="id">perm/iwusr</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fixusr"><span class="sig"><var class="id">perm/ixusr</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2firgrp"><span class="sig"><var class="id">perm/irgrp</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fiwgrp"><span class="sig"><var class="id">perm/iwgrp</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fixgrp"><span class="sig"><var class="id">perm/ixgrp</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2firoth"><span class="sig"><var class="id">perm/iroth</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fiwoth"><span class="sig"><var class="id">perm/iwoth</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fixoth"><span class="sig"><var class="id">perm/ixoth</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2firwxu"><span class="sig"><var class="id">perm/irwxu</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2firwxg"><span class="sig"><var class="id">perm/irwxg</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2firwxo"><span class="sig"><var class="id">perm/irwxo</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fisvtx"><span class="sig"><var class="id">perm/isvtx</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fisuid"><span class="sig"><var class="id">perm/isuid</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:perm.2fisgid"><span class="sig"><var class="id">perm/isgid</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>Permission bits used with, for example, <tt>file-open</tt>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), <tt>perm/isvtx</tt>, <tt>perm/isuid</tt> and <tt>perm/isgid</tt> are defined as zero because the corresponding permission doesn't exist. This means you can safely add these to any set of flags when opening a file or pipe, but it simply won't have an effect.</p></dd></dl><h3 id="sec:Information_about_files"><a href="#sec:Information_about_files">Information about files</a></h3><h4 id="sec:directory.3f"><a href="#sec:directory.3f">directory?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:directory.3f"><span class="sig"><var class="id">directory?</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">FILE</var> designates a directory. Otherwise, it returns <tt>#f</tt>. <var class="arg">FILE</var> may be a pathname, a file-descriptor or a port object.</p></dd></dl><h4 id="sec:file-type"><a href="#sec:file-type">file-type</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-type"><span class="sig"><var class="id">file-type</var> <var class="arg">FILE</var> <var class="dsssl">#!optional</var> <var class="arg">LINK</var> <var class="arg">ERROR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the file-type for <var class="arg">FILE</var>, which should be a filename, a file-descriptor or a port object. If <var class="arg">LINK</var> is given and true, symbolic-links are not followed:</p><pre> regular-file directory fifo socket symbolic-link character-device block-device</pre><p>Note that not all types are supported on every platform. If <var class="arg">ERROR</var> is given and false, then <tt>file-type</tt> returns <tt>#f</tt> if the file does not exist; otherwise, it signals an error.</p></dd></dl><h4 id="sec:character-device.3f"><a href="#sec:character-device.3f">character-device?</a></h4><h4 id="sec:block-device.3f"><a href="#sec:block-device.3f">block-device?</a></h4><h4 id="sec:socket.3f"><a href="#sec:socket.3f">socket?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:character-device.3f"><span class="sig"><var class="id">character-device?</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:block-device.3f"><span class="sig"><var class="id">block-device?</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:socket.3f"><span class="sig"><var class="id">socket?</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return <tt>#t</tt> if <var class="arg">FILE</var> given is of the appropriate type. <var class="arg">FILE</var> may be a filename, a file-descriptor or a port object. Note that these operations follow symbolic links. If the file does not exist, <tt>#f</tt> is returned.</p></dd></dl><h4 id="sec:regular-file.3f"><a href="#sec:regular-file.3f">regular-file?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:regular-file.3f"><span class="sig"><var class="id">regular-file?</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true, if <var class="arg">FILE</var> names a regular file (not a directory, socket, etc.) This operation follows symbolic links; use either <tt>symbolic-link?</tt> or <tt>file-type</tt> if you need to test for symlinks. <var class="arg">FILE</var> may refer to a filename, file descriptor or ports object.</p></dd></dl><h3 id="sec:Fifos"><a href="#sec:Fifos">Fifos</a></h3><h4 id="sec:create-fifo"><a href="#sec:create-fifo">create-fifo</a></h4> <dl class="defsig"> <dt class="defsig" id="def:create-fifo"><span class="sig"><var class="id">create-fifo</var> <var class="arg">FILENAME</var> <var class="dsssl">#!optional</var> <var class="arg">MODE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a FIFO with the name <var class="arg">FILENAME</var> and the permission bits <var class="arg">MODE</var>, which defaults to</p> <pre class="highlight colorize"> <span class="paren1">(<span class="default">+ perm/irwxu perm/irwxg perm/irwxo</span>)</span></pre><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:fifo.3f"><a href="#sec:fifo.3f">fifo?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:fifo.3f"><span class="sig"><var class="id">fifo?</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">FILE</var> names a FIFO. <var class="arg">FILE</var> may be a filename, a port or a file-descriptor.</p></dd></dl><h3 id="sec:Retrieving_file_attributes"><a href="#sec:Retrieving_file_attributes">Retrieving file attributes</a></h3><h4 id="sec:file-access-time"><a href="#sec:file-access-time">file-access-time</a></h4><h4 id="sec:file-change-time"><a href="#sec:file-change-time">file-change-time</a></h4><h4 id="sec:file-modification-time"><a href="#sec:file-modification-time">file-modification-time</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-access-time"><span class="sig"><var class="id">file-access-time</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:file-change-time"><span class="sig"><var class="id">file-change-time</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:file-modification-time"><span class="sig"><var class="id">file-modification-time</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns time (in seconds) of the last access, inode change or content modification of <var class="arg">FILE</var>, respectively. <var class="arg">FILE</var> may be a filename, a file-descriptor or a file-backed port. If the file does not exist, an error is signaled.</p></dd></dl><h4 id="sec:set-file-times.21"><a href="#sec:set-file-times.21">set-file-times!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-file-times.21"><span class="sig"><var class="id">set-file-times!</var> <var class="arg">FILE</var> <var class="dsssl">#!optional</var> <var class="arg">MTIME</var> <var class="arg">ATIME</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the time of last modification <var class="arg">MTIME</var> and/or time of last access <var class="arg">ATIME</var> (in seconds) for <var class="arg">FILE</var>. <var class="arg">FILE</var> may be a filename, a file-descriptor or a file-backed port. If the file does not exist, an error is signaled.</p><p>If neither <var class="arg">MTIME</var> nor <var class="arg">ATIME</var> is supplied, the current time is used. If only <var class="arg">MTIME</var> is supplied, <var class="arg">ATIME</var> will be set to the same value. If an argument is <tt>#f</tt>, it will not be changed.</p><p>Consequently, if only <var class="arg">MTIME</var> is passed and it is <tt>#f</tt>, <var class="arg">ATIME</var> is assumed to be <tt>#f</tt> as well and neither will be changed.</p></dd></dl><h4 id="sec:file-stat"><a href="#sec:file-stat">file-stat</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-stat"><span class="sig"><var class="id">file-stat</var> <var class="arg">FILE</var> <var class="dsssl">#!optional</var> <var class="arg">LINK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a 13-element vector with the following contents:</p><table> <tr><th>index</th> <th>value</th> <th>field</th> <th>notes</th></tr> <tr><td>0</td> <td>inode number</td> <td><tt>st_ino</tt></td> <td></td></tr> <tr><td>1</td> <td>mode</td> <td><tt>st_mode</tt></td> <td>bitfield combining file permissions and file type</td></tr> <tr><td>2</td> <td>number of hard links</td> <td><tt>st_nlink</tt></td> <td></td></tr> <tr><td>3</td> <td>UID of owner</td> <td><tt>st_uid</tt></td> <td>as with <tt>file-owner</tt></td></tr> <tr><td>4</td> <td>GID of owner</td> <td><tt>st_gid</tt></td> <td></td></tr> <tr><td>5</td> <td>size</td> <td><tt>st_size</tt></td> <td>as with <tt>file-size</tt></td></tr> <tr><td>6</td> <td>access time</td> <td><tt>st_atime</tt></td> <td>as with <tt>file-access-time</tt></td></tr> <tr><td>7</td> <td>change time</td> <td><tt>st_ctime</tt></td> <td>as with <tt>file-change-time</tt></td></tr> <tr><td>8</td> <td>modification time</td> <td><tt>st_mtime</tt></td> <td>as with <tt>file-modification-time</tt></td></tr> <tr><td>9</td> <td>parent device ID </td> <td><tt>st_dev</tt></td> <td>ID of device on which this file resides</td></tr> <tr><td>10</td> <td>device ID</td> <td><tt>st_rdev</tt></td> <td>device ID for special files (i.e. the raw major/minor number)</td></tr> <tr><td>11</td> <td>block size</td> <td><tt>st_blksize</tt></td> <td></td></tr> <tr><td>12</td> <td>number of blocks allocated</td> <td><tt>st_blocks</tt></td> <td></td></tr> </table> <p>On Windows systems, the last 4 values are undefined.</p><p>By default, symbolic links are followed and the status of the referenced file is returned; however, if the optional argument <var class="arg">LINK</var> is given and not <tt>#f</tt>, the status of the link itself is returned.</p><p><var class="arg">FILE</var> may be a filename, port or file-descriptor.</p><p>Note that for very large files, the <tt>file-size</tt> value may be an inexact integer.</p></dd></dl><h4 id="sec:file-position"><a href="#sec:file-position">file-position</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-position"><span class="sig"><var class="id">file-position</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the current file position of <var class="arg">FILE</var>, which should be a port or a file-descriptor.</p></dd></dl><h4 id="sec:file-size"><a href="#sec:file-size">file-size</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-size"><span class="sig"><var class="id">file-size</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the size of the file designated by <var class="arg">FILE</var>. <var class="arg">FILE</var> may be a filename, a file-descriptor or a port object. If the file does not exist, an error is signaled. Note that for very large files, <tt>file-size</tt> may return an inexact integer.</p></dd></dl><h4 id="sec:file-owner"><a href="#sec:file-owner">file-owner</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-owner"><span class="sig"><var class="id">file-owner</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the user-id of <var class="arg">FILE</var> (an exact integer). <var class="arg">FILE</var> may be a filename, a file-descriptor or a port object.</p></dd></dl><h4 id="sec:set-file-owner.21"><a href="#sec:set-file-owner.21">set-file-owner!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-file-owner.21"><span class="sig"><var class="id">set-file-owner!</var> <var class="arg">FILE</var> <var class="arg">UID</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">file-owner</var> <var class="arg">FILE</var>) <var class="arg">UID</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the ownership of <var class="arg">FILE</var> to user-id <var class="arg">UID</var> (which should be an exact integer) using the <tt>chown()</tt> system call. <var class="arg">FILE</var> may be a filename, a file-descriptor or a port object.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:file-group"><a href="#sec:file-group">file-group</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-group"><span class="sig"><var class="id">file-group</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the group-id of <var class="arg">FILE</var>. <var class="arg">FILE</var> may be a filename, a file-descriptor or a port object.</p></dd></dl><h4 id="sec:set-file-group.21"><a href="#sec:set-file-group.21">set-file-group!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-file-group.21"><span class="sig"><var class="id">set-file-group!</var> <var class="arg">FILE</var> <var class="arg">GID</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">file-group</var> <var class="arg">FILE</var>) <var class="arg">GID</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the group ownership of <var class="arg">FILE</var> to group-id <var class="arg">GID</var> (which should be an exact integer) using the <tt>chgrp()</tt> system call. <var class="arg">FILE</var> may be a filename, a file-descriptor or a port object.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:file-permissions"><a href="#sec:file-permissions">file-permissions</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-permissions"><span class="sig"><var class="id">file-permissions</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the permission bits for <var class="arg">FILE</var>. You can test this value by performing bitwise operations on the result and the <tt>perm/...</tt> values. <var class="arg">FILE</var> may be a filename, a file-descriptor or a port object.</p></dd></dl><h4 id="sec:set-file-permissions.21"><a href="#sec:set-file-permissions.21">set-file-permissions!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-file-permissions.21"><span class="sig"><var class="id">set-file-permissions!</var> <var class="arg">FILE</var> <var class="arg">MODE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">file-permissions</var> <var class="arg">FILE</var>) <var class="arg">MODE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the current permission bits for <var class="arg">FILE</var> to <var class="arg">MODE</var> using the <tt>chmod()</tt> system call. The <tt>perm/...</tt> variables contain the various permission bits and can be combinded with the <tt>bitwise-ior</tt> procedure. <var class="arg">FILE</var> may be a filename, a file-descriptor or a port object, <var class="arg">MODE</var> should be a fixnum.</p></dd></dl><h4 id="sec:file-truncate"><a href="#sec:file-truncate">file-truncate</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-truncate"><span class="sig"><var class="id">file-truncate</var> <var class="arg">FILE</var> <var class="arg">OFFSET</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Truncates the file <var class="arg">FILE</var> to the length <var class="arg">OFFSET</var>, which should be an integer. If the file-size is smaller or equal to <var class="arg">OFFSET</var> then nothing is done. <var class="arg">FILE</var> should be a filename, a file-descriptor or a port object.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:set-file-position.21"><a href="#sec:set-file-position.21">set-file-position!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-file-position.21"><span class="sig"><var class="id">set-file-position!</var> <var class="arg">FILE</var> <var class="arg">POSITION</var> <var class="dsssl">#!optional</var> <var class="arg">WHENCE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">file-position</var> <var class="arg">FILE</var>) <var class="arg">POSITION</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the current read/write position of <var class="arg">FILE</var> to <var class="arg">POSITION</var>, which should be an exact integer. <var class="arg">FILE</var> should be a port or a file-descriptor. <var class="arg">WHENCE</var> specifies how the position is to interpreted and should be one of the values <tt>seek/set, seek/cur</tt> and <tt>seek/end</tt>. It defaults to <tt>seek/set</tt>.</p><p>Exceptions: <tt>(exn bounds)</tt>, <tt>(exn i/o file)</tt></p></dd></dl><h4 id="sec:file-creation-mode"><a href="#sec:file-creation-mode">file-creation-mode</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-creation-mode"><span class="sig"><var class="id">file-creation-mode</var> <var class="dsssl">#!optional</var> <var class="arg">MODE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the initial file permissions used for newly created files (as with <tt>umask(2)</tt>). If <var class="arg">MODE</var> is supplied, the mode is changed to this value. You can set the mode by executing</p><pre> (set! (file-creation-mode) MODE)</pre><p>or</p><pre> (file-creation-mode MODE)</pre><p>where <var class="arg">MODE</var> is a bitwise combination of one or more of the <tt>perm/...</tt> flags.</p></dd></dl><h3 id="sec:Hard_and_symbolic_links"><a href="#sec:Hard_and_symbolic_links">Hard and symbolic links</a></h3><h4 id="sec:file-link"><a href="#sec:file-link">file-link</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-link"><span class="sig"><var class="id">file-link</var> <var class="arg">OLDNAME</var> <var class="arg">NEWNAME</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a hard link from <var class="arg">OLDNAME</var> to <var class="arg">NEWNAME</var> (both strings).</p></dd></dl><h4 id="sec:symbolic-link.3f"><a href="#sec:symbolic-link.3f">symbolic-link?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:symbolic-link.3f"><span class="sig"><var class="id">symbolic-link?</var> <var class="arg">FILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true, if <var class="arg">FILE</var> names a symbolic link. If no such file exists, <tt>#f</tt> is returned. This operation does not follow symbolic links itself. <var class="arg">FILE</var> could be a filename, file descriptor or port object.</p></dd></dl><h4 id="sec:create-symbolic-link"><a href="#sec:create-symbolic-link">create-symbolic-link</a></h4> <dl class="defsig"> <dt class="defsig" id="def:create-symbolic-link"><span class="sig"><var class="id">create-symbolic-link</var> <var class="arg">OLDNAME</var> <var class="arg">NEWNAME</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a symbolic link with the filename <var class="arg">NEWNAME</var> that points to the file named <var class="arg">OLDNAME</var>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:read-symbolic-link"><a href="#sec:read-symbolic-link">read-symbolic-link</a></h4> <dl class="defsig"> <dt class="defsig" id="def:read-symbolic-link"><span class="sig"><var class="id">read-symbolic-link</var> <var class="arg">FILENAME</var> <var class="dsssl">#!optional</var> <var class="arg">CANONICALIZE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the filename to which the symbolic link <var class="arg">FILENAME</var> points. If <var class="arg">CANONICALIZE</var> is given and true, then symbolic links are resolved repeatedly until the result is not a link.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h3 id="sec:File_descriptors_and_low-level_I.2fO"><a href="#sec:File_descriptors_and_low-level_I.2fO">File descriptors and low-level I/O</a></h3><h4 id="sec:duplicate-fileno"><a href="#sec:duplicate-fileno">duplicate-fileno</a></h4> <dl class="defsig"> <dt class="defsig" id="def:duplicate-fileno"><span class="sig"><var class="id">duplicate-fileno</var> <var class="arg">OLD</var> <var class="dsssl">#!optional</var> <var class="arg">NEW</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>If <var class="arg">NEW</var> is given, then the file-descriptor <var class="arg">NEW</var> is opened to access the file with the file-descriptor <var class="arg">OLD</var>. Otherwise a fresh file-descriptor accessing the same file as <var class="arg">OLD</var> is returned.</p></dd></dl><h4 id="sec:file-close"><a href="#sec:file-close">file-close</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-close"><span class="sig"><var class="id">file-close</var> <var class="arg">FILENO</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Closes the input/output file with the file-descriptor <var class="arg">FILENO</var>.</p></dd></dl><h4 id="sec:file-open"><a href="#sec:file-open">file-open</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-open"><span class="sig"><var class="id">file-open</var> <var class="arg">FILENAME</var> <var class="arg">FLAGS</var> <var class="dsssl">#!optional</var> <var class="arg">MODE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Opens the file specified with the string <var class="arg">FILENAME</var> and open-flags <var class="arg">FLAGS</var> using the C function <tt>open(2)</tt>. On success a file-descriptor for the opened file is returned.</p><p><var class="arg">FLAGS</var> is a bitmask of <tt>open/...</tt> values <b>or</b>ed together using <tt>bitwise-ior</tt> (or simply added together). You must provide exactly one of the access flags <tt>open/rdonly</tt>, <tt>open/wronly</tt>, or <tt>open/rdwr</tt>. Additionally, you may provide zero or more creation flags (<tt>open/creat</tt>, <tt>open/excl</tt>, <tt>open/trunc</tt>, and <tt>open/noctty</tt>) and status flags (the remaining <tt>open/...</tt> values). For example, to open a possibly new output file for appending:</p><pre>(file-open &quot;/tmp/hen.txt&quot; (+ open/wronly open/append open/creat))</pre><p>The optional <var class="arg">MODE</var> should be a bitmask composed of one or more permission values like <tt>perm/irusr</tt> and is only relevant when a new file is created. The default mode is <tt>perm/irwxu | perm/irgrp | perm/iroth</tt>.</p></dd></dl><h4 id="sec:file-mkstemp"><a href="#sec:file-mkstemp">file-mkstemp</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-mkstemp"><span class="sig"><var class="id">file-mkstemp</var> <var class="arg">TEMPLATE-FILENAME</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Create a file based on the given <var class="arg">TEMPLATE-FILENAME</var>, in which the six last characters must be <i>XXXXXX</i>. These will be replaced with a string that makes the filename unique. The file descriptor of the created file and the generated filename is returned. See the <tt>mkstemp(3)</tt> manual page for details on how this function works. The template string given is not modified.</p><p>Example usage:</p> <pre class="highlight colorize"> <span class="paren1">(<span class="default">let-values <span class="paren2">(<span class="default"><span class="paren3">(<span class="default"><span class="paren4">(<span class="default">fd temp-path</span>)</span> <span class="paren4">(<span class="default">file-mkstemp <span class="string">&quot;/tmp/mytemporary.XXXXXX&quot;</span></span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">temp-port <span class="paren5">(<span class="default">open-output-file* fd</span>)</span></span>)</span></span>)</span> <span class="paren3">(<span class="default">format temp-port <span class="string">&quot;This file is ~A.~%&quot;</span> temp-path</span>)</span> <span class="paren3">(<span class="default">close-output-port temp-port</span>)</span></span>)</span></span>)</span></pre></dd></dl><h4 id="sec:file-read"><a href="#sec:file-read">file-read</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-read"><span class="sig"><var class="id">file-read</var> <var class="arg">FILENO</var> <var class="arg">SIZE</var> <var class="dsssl">#!optional</var> <var class="arg">BUFFER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Reads <var class="arg">SIZE</var> bytes from the file with the file-descriptor <var class="arg">FILENO</var>. If a string or bytevector is passed in the optional argument <var class="arg">BUFFER</var>, then this string will be destructively modified to contain the read data. This procedure returns a list with two values: the buffer containing the data and the number of bytes read.</p></dd></dl><h4 id="sec:file-select"><a href="#sec:file-select">file-select</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-select"><span class="sig"><var class="id">file-select</var> <var class="arg">READFDLIST</var> <var class="arg">WRITEFDLIST</var> <var class="dsssl">#!optional</var> <var class="arg">TIMEOUT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Waits until any of the file-descriptors given in the lists <var class="arg">READFDLIST</var> and <var class="arg">WRITEFDLIST</var> is ready for input or output, respectively. If the optional argument <var class="arg">TIMEOUT</var> is given and not false, then it should specify the number of seconds after which the wait is to be aborted (the value may be a floating point number). This procedure returns two values: the lists of file-descriptors ready for input and output, respectively. <var class="arg">READFDLIST</var> and <b>WRITEFDLIST</b> may also by file-descriptors instead of lists. In this case the returned values are booleans indicating whether input/output is ready by <tt>#t</tt> or <tt>#f</tt> otherwise. You can also pass <tt>#f</tt> as <var class="arg">READFDLIST</var> or <var class="arg">WRITEFDLIST</var> argument, which is equivalent to <tt>()</tt>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:file-write"><a href="#sec:file-write">file-write</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-write"><span class="sig"><var class="id">file-write</var> <var class="arg">FILENO</var> <var class="arg">BUFFER</var> <var class="dsssl">#!optional</var> <var class="arg">SIZE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Writes the contents of the string or bytevector <var class="arg">BUFFER</var> into the file with the file-descriptor <var class="arg">FILENO</var>. If the optional argument <var class="arg">SIZE</var> is given, then only the specified number of bytes are written.</p></dd></dl><h4 id="sec:file-control"><a href="#sec:file-control">file-control</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-control"><span class="sig"><var class="id">file-control</var> <var class="arg">FILENO</var> <var class="arg">COMMAND</var> <var class="dsssl">#!optional</var> <var class="arg">ARGUMENT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Performs the fcntl operation <var class="arg">COMMAND</var> with the given <var class="arg">FILENO</var> and optional <var class="arg">ARGUMENT</var>. The return value is meaningful depending on the <var class="arg">COMMAND</var>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:open-input-file.2a"><a href="#sec:open-input-file.2a">open-input-file*</a></h4><h4 id="sec:open-output-file.2a"><a href="#sec:open-output-file.2a">open-output-file*</a></h4> <dl class="defsig"> <dt class="defsig" id="def:open-input-file.2a"><span class="sig"><var class="id">open-input-file*</var> <var class="arg">FILENO</var> <var class="dsssl">#!optional</var> <var class="arg">OPENMODE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:open-output-file.2a"><span class="sig"><var class="id">open-output-file*</var> <var class="arg">FILENO</var> <var class="dsssl">#!optional</var> <var class="arg">OPENMODE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Opens file for the file-descriptor <var class="arg">FILENO</var> for input or output and returns a port. <var class="arg">FILENO</var> should be a positive exact integer. <var class="arg">OPENMODE</var> specifies an additional mode for opening the file (currently only the keyword <tt>#:append</tt> is supported, which opens an output-file for appending).</p></dd></dl><h4 id="sec:port-.3efileno"><a href="#sec:port-.3efileno">port-&gt;fileno</a></h4> <dl class="defsig"> <dt class="defsig" id="def:port-.3efileno"><span class="sig"><var class="id">port-&gt;fileno</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>If <var class="arg">PORT</var> is a file- or tcp-port, then a file-descriptor is returned for this port. Otherwise an error is signaled.</p></dd></dl><h3 id="sec:Record_locking"><a href="#sec:Record_locking">Record locking</a></h3><p>These procedures are all unsupported on native Windows builds (all except cygwin).</p><h4 id="sec:file-lock"><a href="#sec:file-lock">file-lock</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-lock"><span class="sig"><var class="id">file-lock</var> <var class="arg">PORT</var> <var class="dsssl">#!optional</var> <var class="arg">START</var> <var class="arg">LEN</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Locks the file associated with <var class="arg">PORT</var> for reading or writing (according to whether <var class="arg">PORT</var> is an input- or output-port). <var class="arg">START</var> specifies the starting position in the file to be locked and defaults to 0. <var class="arg">LEN</var> specifies the length of the portion to be locked and defaults to <tt>#t</tt>, which means the complete file. <tt>file-lock</tt> returns a <i>lock</i>-object.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:file-lock.2fblocking"><a href="#sec:file-lock.2fblocking">file-lock/blocking</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-lock.2fblocking"><span class="sig"><var class="id">file-lock/blocking</var> <var class="arg">PORT</var> <var class="dsssl">#!optional</var> <var class="arg">START</var> <var class="arg">LEN</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>file-lock</tt>, but if a lock is held on the file, the current process blocks (including all threads) until the lock is released.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:file-test-lock"><a href="#sec:file-test-lock">file-test-lock</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-test-lock"><span class="sig"><var class="id">file-test-lock</var> <var class="arg">PORT</var> <var class="dsssl">#!optional</var> <var class="arg">START</var> <var class="arg">LEN</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Tests whether the file associated with <var class="arg">PORT</var> is locked for reading or writing (according to whether <var class="arg">PORT</var> is an input- or output-port) and returns either <tt>#f</tt> or the process-id of the locking process.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:file-unlock"><a href="#sec:file-unlock">file-unlock</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-unlock"><span class="sig"><var class="id">file-unlock</var> <var class="arg">LOCK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Unlocks the previously locked portion of a file given in <var class="arg">LOCK</var>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20file%29.html">Module (chicken file)</a></p><p>Next: <a href="Module%20%28chicken%20fixnum%29.html">Module (chicken fixnum)</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken platform).html��������������������������������������������0000644�0001750�0001750�00000027024�13502230004�022566� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken platform)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_platform.29">Module (chicken platform)</a> <ul> <li><a href="#sec:Build_information">Build information</a> <ul> <li><a href="#sec:build-platform">build-platform</a></li> <li><a href="#sec:chicken-home">chicken-home</a></li> <li><a href="#sec:chicken-version">chicken-version</a></li> <li><a href="#sec:repository-path">repository-path</a></li> <li><a href="#sec:installation-repository">installation-repository</a></li></ul></li> <li><a href="#sec:system-config-directory">system-config-directory</a></li> <li><a href="#sec:system-cache-directory">system-cache-directory</a></li> <li><a href="#sec:Machine_information">Machine information</a> <ul> <li><a href="#sec:machine-byte-order">machine-byte-order</a></li> <li><a href="#sec:machine-type">machine-type</a></li></ul></li> <li><a href="#sec:Software_information">Software information</a> <ul> <li><a href="#sec:software-type">software-type</a></li> <li><a href="#sec:software-version">software-version</a></li></ul></li> <li><a href="#sec:Feature_identifiers">Feature identifiers</a> <ul> <li><a href="#sec:features">features</a></li> <li><a href="#sec:feature.3f">feature?</a></li> <li><a href="#sec:register-feature.21">register-feature!</a></li> <li><a href="#sec:unregister-feature.21">unregister-feature!</a></li></ul></li> <li><a href="#sec:Returning_to_the_host_program">Returning to the host program</a></li> <li><a href="#sec:return-to-host">return-to-host</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_platform.29"><a href="#sec:Module_.28chicken_platform.29">Module (chicken platform)</a></h2><p>This module provides procedures for obtaining information about the platform on which the program is currently running.</p><h3 id="sec:Build_information"><a href="#sec:Build_information">Build information</a></h3><p>These procedures return information about options that can be specified at build time.</p><h4 id="sec:build-platform"><a href="#sec:build-platform">build-platform</a></h4> <dl class="defsig"> <dt class="defsig" id="def:build-platform"><span class="sig"><var class="id">build-platform</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a symbol specifying the toolset which has been used for building the executing system, which is one of the following:</p><pre>cygwin mingw32 gnu intel clang sun unknown</pre></dd></dl><h4 id="sec:chicken-home"><a href="#sec:chicken-home">chicken-home</a></h4> <dl class="defsig"> <dt class="defsig" id="def:chicken-home"><span class="sig"><var class="id">chicken-home</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string which represents the installation directory (usually <tt>/usr/local/share/chicken</tt> on UNIX-like systems).</p></dd></dl><h4 id="sec:chicken-version"><a href="#sec:chicken-version">chicken-version</a></h4> <dl class="defsig"> <dt class="defsig" id="def:chicken-version"><span class="sig"><var class="id">chicken-version</var> <var class="dsssl">#!optional</var> <var class="arg">FULL</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string containing the version number of the CHICKEN runtime system. If the optional argument <var class="arg">FULL</var> is given and true, then a full version string is returned.</p></dd></dl><h4 id="sec:repository-path"><a href="#sec:repository-path">repository-path</a></h4> <dl class="defsig"> <dt class="defsig" id="def:repository-path"><span class="sig"><var class="id">repository-path</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Contains a list of strings naming the paths to the extension repository, which defaults to the value of the environment variable <tt>CHICKEN_REPOSITORY_PATH</tt>, split on <tt>:</tt> (or <tt>;</tt> on Windows). If the environment variable is not set, it will be a list containing the default library path (usually <tt>/usr/local/lib/chicken</tt> on UNIX systems).</p></dd></dl><h4 id="sec:installation-repository"><a href="#sec:installation-repository">installation-repository</a></h4> <dl class="defsig"> <dt class="defsig" id="def:installation-repository"><span class="sig"><var class="id">installation-repository</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Contains the name of the directory where extensions are installed (as opposed to the possible locations where they can be loaded or linked at runtime.)</p></dd></dl><h3 id="sec:system-config-directory"><a href="#sec:system-config-directory">system-config-directory</a></h3> <dl class="defsig"> <dt class="defsig" id="def:system-config-directory"><span class="sig"><var class="id">system-config-directory</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the location of the directory for configuration files. This obeys the XDG specification, so when the <tt>XDG_CONFIG_HOME</tt> environment variable is set, its value is used. When it's not set, it will default to <tt>$HOME/.config</tt> on UNIX and <tt>$APPDATA</tt> on Windows.</p></dd></dl><h3 id="sec:system-cache-directory"><a href="#sec:system-cache-directory">system-cache-directory</a></h3> <dl class="defsig"> <dt class="defsig" id="def:system-cache-directory"><span class="sig"><var class="id">system-cache-directory</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the location of the directory for caches. This obeys the XDG specification, so when the <tt>XDG_CACHE_HOME</tt> environment variable is set, its value is used. When it's not set, it will default to <tt>$HOME/.cache</tt> on UNIX and <tt>$LOCALAPPDATA</tt> or <tt>$APPDATA</tt> on Windows.</p></dd></dl><h3 id="sec:Machine_information"><a href="#sec:Machine_information">Machine information</a></h3><p>These procedures return information about the type of CPU/architecture the program is running on.</p><h4 id="sec:machine-byte-order"><a href="#sec:machine-byte-order">machine-byte-order</a></h4> <dl class="defsig"> <dt class="defsig" id="def:machine-byte-order"><span class="sig"><var class="id">machine-byte-order</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the symbol <tt>little-endian</tt> or <tt>big-endian</tt>, depending on the machine's byte-order.</p></dd></dl><h4 id="sec:machine-type"><a href="#sec:machine-type">machine-type</a></h4> <dl class="defsig"> <dt class="defsig" id="def:machine-type"><span class="sig"><var class="id">machine-type</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a symbol specifying the processor on which this process is currently running, which is one of the following:</p><pre>arm alpha mips hppa ultrasparc sparc ppc ppc64 ia64 x86 x86-64 unknown</pre></dd></dl><h3 id="sec:Software_information"><a href="#sec:Software_information">Software information</a></h3><p>These procedures return information about the type of operating system the program is running on.</p><h4 id="sec:software-type"><a href="#sec:software-type">software-type</a></h4> <dl class="defsig"> <dt class="defsig" id="def:software-type"><span class="sig"><var class="id">software-type</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a symbol specifying the operating system on which this process is currently running, which is one of the following:</p><pre>android windows unix ecos unknown</pre></dd></dl><h4 id="sec:software-version"><a href="#sec:software-version">software-version</a></h4> <dl class="defsig"> <dt class="defsig" id="def:software-version"><span class="sig"><var class="id">software-version</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a symbol specifying the operating system version on which this process is currently running, which is one of the following:</p><pre>linux freebsd netbsd openbsd macosx hpux dragonfly haiku solaris sunos aix hurd unknown</pre></dd></dl><h3 id="sec:Feature_identifiers"><a href="#sec:Feature_identifiers">Feature identifiers</a></h3><p>CHICKEN maintains a global list of <i>features</i> naming functionality available in the current system. Additionally the <tt>cond-expand</tt> form accesses this feature list to infer what features are provided. Predefined features are <tt>chicken</tt>, and the SRFIs (Scheme Request For Implementation) provided by the base system: <tt>srfi-23, srfi-30, srfi-39</tt>. If the <tt>eval</tt> unit is used (the default), the features <tt>srfi-0, srfi-2, srfi-6, srfi-8, srfi-9</tt> and <tt>srfi-10</tt> are defined. When compiling code (during compile-time) the feature <tt>compiling</tt> is registered. When evaluating code in the interpreter (csi), the feature <tt>csi</tt> is registered.</p><h4 id="sec:features"><a href="#sec:features">features</a></h4> <dl class="defsig"> <dt class="defsig" id="def:features"><span class="sig"><var class="id">features</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list of all registered features that will be accepted as valid feature-identifiers by <tt>cond-expand</tt>.</p></dd></dl><h4 id="sec:feature.3f"><a href="#sec:feature.3f">feature?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:feature.3f"><span class="sig"><var class="id">feature?</var> <var class="arg">ID</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if all features with the given feature-identifiers <tt>ID ...</tt> are registered.</p></dd></dl><h4 id="sec:register-feature.21"><a href="#sec:register-feature.21">register-feature!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:register-feature.21"><span class="sig"><var class="id">register-feature!</var> <var class="arg">FEATURE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Register one or more features that will be accepted as valid feature-identifiers by <tt>cond-expand</tt>. <tt>FEATURE ...</tt> may be a keyword, string or symbol.</p></dd></dl><h4 id="sec:unregister-feature.21"><a href="#sec:unregister-feature.21">unregister-feature!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:unregister-feature.21"><span class="sig"><var class="id">unregister-feature!</var> <var class="arg">FEATURE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Unregisters the specified feature-identifiers. <tt>FEATURE ...</tt> may be a keyword, string or symbol.</p></dd></dl><h3 id="sec:Returning_to_the_host_program"><a href="#sec:Returning_to_the_host_program">Returning to the host program</a></h3><h3 id="sec:return-to-host"><a href="#sec:return-to-host">return-to-host</a></h3> <dl class="defsig"> <dt class="defsig" id="def:return-to-host"><span class="sig"><var class="id">return-to-host</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Exits the Scheme code and returns to the invoking context that called <tt>CHICKEN_run</tt> or <tt>CHICKEN_continue</tt>.</p><p>After <tt>return-to-host</tt> has been executed and once <tt>CHICKEN_run</tt> returns, you can invoke callbacks which have been defined with <tt>define-external</tt>.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20pathname%29.html">Module (chicken pathname)</a></p><p>Next: <a href="Module%20%28chicken%20plist%29.html">Module (chicken plist)</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken process-context posix).html�������������������������������0000644�0001750�0001750�00000023470�13502230005�025227� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken process-context posix)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_process-context_posix.29">Module (chicken process-context posix)</a> <ul> <li><a href="#sec:Process_filesystem_context">Process filesystem context</a> <ul> <li><a href="#sec:change-directory.2a">change-directory*</a></li> <li><a href="#sec:set-root-directory.21">set-root-directory!</a></li></ul></li> <li><a href="#sec:Retrieving_user_.26_group_information">Retrieving user &amp; group information</a> <ul> <li><a href="#sec:current-user-id">current-user-id</a></li> <li><a href="#sec:current-user-name">current-user-name</a></li> <li><a href="#sec:current-effective-user-id">current-effective-user-id</a></li> <li><a href="#sec:current-effective-user-name">current-effective-user-name</a></li> <li><a href="#sec:current-group-id">current-group-id</a></li> <li><a href="#sec:current-effective-group-id">current-effective-group-id</a></li></ul></li> <li><a href="#sec:Process_identity">Process identity</a> <ul> <li><a href="#sec:current-process-id">current-process-id</a></li> <li><a href="#sec:parent-process-id">parent-process-id</a></li> <li><a href="#sec:process-group-id">process-group-id</a></li> <li><a href="#sec:user-information">user-information</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_process-context_posix.29"><a href="#sec:Module_.28chicken_process-context_posix.29">Module (chicken process-context posix)</a></h2><p>This module provides access to POSIX-specific procedures which deal with the current process context.</p><h3 id="sec:Process_filesystem_context"><a href="#sec:Process_filesystem_context">Process filesystem context</a></h3><h4 id="sec:change-directory.2a"><a href="#sec:change-directory.2a">change-directory*</a></h4> <dl class="defsig"> <dt class="defsig" id="def:change-directory.2a"><span class="sig"><var class="id">change-directory*</var> <var class="arg">FD</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (current-directory) FD)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the current working directory to the one represented by the file-descriptor <var class="arg">FD</var>, which should be an exact integer.</p><p><b>NOTE</b>: Windows does not allow <tt>{open</tt>} on directories, so while technically it is supported, in practice you cannot use this procedure on native Windows builds (on cygwin it works because cygwin emulates this).</p></dd></dl><h4 id="sec:set-root-directory.21"><a href="#sec:set-root-directory.21">set-root-directory!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-root-directory.21"><span class="sig"><var class="id">set-root-directory!</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the root directory for the current process to the path given in <var class="arg">STRING</var> (using the <tt>chroot</tt> function). If the current process has no root permissions, the operation will fail.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h3 id="sec:Retrieving_user_.26_group_information"><a href="#sec:Retrieving_user_.26_group_information">Retrieving user &amp; group information</a></h3><h4 id="sec:current-user-id"><a href="#sec:current-user-id">current-user-id</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-user-id"><span class="sig"><var class="id">current-user-id</var></span><span class="type">procedure</span></dt> <dd class="defsig"><pre>[setter] (set! (current-user-id) UID)</pre><p>Get or set the real user-id of the current process. The procedure corresponds to the getuid and setuid C functions.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:current-user-name"><a href="#sec:current-user-name">current-user-name</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-user-name"><span class="sig"><var class="id">current-user-name</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Get the login name corresponding to the real user-id of the current process from the system password database.</p><p>On Windows, there's no user-id and no distinction between real and effective user, but this procedure <i>will</i> return the username associated with the current process, so it is safe to use.</p></dd></dl><h4 id="sec:current-effective-user-id"><a href="#sec:current-effective-user-id">current-effective-user-id</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-effective-user-id"><span class="sig"><var class="id">current-effective-user-id</var></span><span class="type">procedure</span></dt> <dd class="defsig"><pre>[setter] (set! (current-effective-user-id) UID)</pre><p>Get or set the effective user-id of the current process.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:current-effective-user-name"><a href="#sec:current-effective-user-name">current-effective-user-name</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-effective-user-name"><span class="sig"><var class="id">current-effective-user-name</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Get the login name corresponding to the effective user-id of the current process from the system password database.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:current-group-id"><a href="#sec:current-group-id">current-group-id</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-group-id"><span class="sig"><var class="id">current-group-id</var></span><span class="type">procedure</span></dt> <dd class="defsig"><pre>[setter] (set! (current-group-id) GID)</pre><p>Get or set the real group-id of the current process.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:current-effective-group-id"><a href="#sec:current-effective-group-id">current-effective-group-id</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-effective-group-id"><span class="sig"><var class="id">current-effective-group-id</var></span><span class="type">procedure</span></dt> <dd class="defsig"><pre>[setter] (set! (current-effective-group-id) GID)</pre><p>Get or set the effective group-id of the current process. ID can be found, then <tt>#f</tt> is returned.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h3 id="sec:Process_identity"><a href="#sec:Process_identity">Process identity</a></h3><h4 id="sec:current-process-id"><a href="#sec:current-process-id">current-process-id</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-process-id"><span class="sig"><var class="id">current-process-id</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the process ID of the current process.</p></dd></dl><h4 id="sec:parent-process-id"><a href="#sec:parent-process-id">parent-process-id</a></h4> <dl class="defsig"> <dt class="defsig" id="def:parent-process-id"><span class="sig"><var class="id">parent-process-id</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the process ID of the parent of the current process.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:process-group-id"><a href="#sec:process-group-id">process-group-id</a></h4> <dl class="defsig"> <dt class="defsig" id="def:process-group-id"><span class="sig"><var class="id">process-group-id</var> <var class="arg">PID</var></span><span class="type">procedure</span></dt> <dd class="defsig"><pre>[setter] (set! (process-group-id PID) PGID)</pre><p>Get or set the process group ID of the process specified by <var class="arg">PID</var>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:user-information"><a href="#sec:user-information">user-information</a></h4> <dl class="defsig"> <dt class="defsig" id="def:user-information"><span class="sig"><var class="id">user-information</var> <var class="arg">USER</var> <var class="dsssl">#!optional</var> <var class="arg">AS-VECTOR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>If <var class="arg">USER</var> specifes a valid username (as a string) or user ID, then the user database is consulted and a list of 7 values are returned: the user-name, the encrypted password, the user ID, the group ID, a user-specific string, the home directory and the default shell. When <var class="arg">AS-VECTOR</var> is <tt>#t</tt> a vector of 7 elements is returned instead of a list. If no user with this name or id then <tt>#f</tt> is returned.</p><p>Note: on Android systems, the user-specific string is always <tt>&quot;&quot;</tt>, since <tt>pw_gecos</tt> is not available in the C <tt>passwd</tt> struct on that platform.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20process-context%29.html">Module (chicken process-context)</a></p><p>Next: <a href="Module%20%28chicken%20random%29.html">Module (chicken random)</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken process-context).html�������������������������������������0000644�0001750�0001750�00000017347�13502230005�024112� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken process-context)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_process-context.29">Module (chicken process-context)</a> <ul> <li><a href="#sec:Information_about_the_program.27s_invocation">Information about the program's invocation</a> <ul> <li><a href="#sec:argc.2bargv">argc+argv</a></li> <li><a href="#sec:argv">argv</a></li></ul></li> <li><a href="#sec:command-line-arguments">command-line-arguments</a> <ul> <li><a href="#sec:executable-pathname">executable-pathname</a></li></ul></li> <li><a href="#sec:program-name">program-name</a></li> <li><a href="#sec:Access_to_environment_variables">Access to environment variables</a> <ul> <li><a href="#sec:get-environment-variables">get-environment-variables</a></li> <li><a href="#sec:get-environment-variable">get-environment-variable</a></li> <li><a href="#sec:set-environment-variable.21">set-environment-variable!</a></li> <li><a href="#sec:unset-environment-variable.21">unset-environment-variable!</a></li></ul></li> <li><a href="#sec:Process_filesystem_context">Process filesystem context</a> <ul> <li><a href="#sec:change-directory">change-directory</a></li> <li><a href="#sec:current-directory">current-directory</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_process-context.29"><a href="#sec:Module_.28chicken_process-context.29">Module (chicken process-context)</a></h2><p>This module provides access to the current process context.</p><h3 id="sec:Information_about_the_program.27s_invocation"><a href="#sec:Information_about_the_program.27s_invocation">Information about the program's invocation</a></h3><h4 id="sec:argc.2bargv"><a href="#sec:argc.2bargv">argc+argv</a></h4> <dl class="defsig"> <dt class="defsig" id="def:argc.2bargv"><span class="sig"><var class="id">argc+argv</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns two values: an integer and a foreign-pointer object representing the <tt>argc</tt> and <tt>argv</tt> arguments passed to the current process.</p></dd></dl><h4 id="sec:argv"><a href="#sec:argv">argv</a></h4> <dl class="defsig"> <dt class="defsig" id="def:argv"><span class="sig"><var class="id">argv</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Return a list of all supplied command-line arguments. The first item in the list is a string containing the name of the executing program. The other items are the arguments passed to the application. It depends on the host-shell whether arguments are expanded ('globbed') or not.</p></dd></dl><h3 id="sec:command-line-arguments"><a href="#sec:command-line-arguments">command-line-arguments</a></h3> <dl class="defsig"> <dt class="defsig" id="def:command-line-arguments"><span class="sig"><var class="id">command-line-arguments</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Contains the list of arguments passed to this program, with the name of the program and any runtime options (all options starting with <tt>-:</tt>) removed.</p></dd></dl><h4 id="sec:executable-pathname"><a href="#sec:executable-pathname">executable-pathname</a></h4> <dl class="defsig"> <dt class="defsig" id="def:executable-pathname"><span class="sig"><var class="id">executable-pathname</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a full pathname of the currently-running executable, or <tt>#f</tt> if it couldn't be determined. When evaluating code in the interpreter, this will be a path to <tt>csi</tt>.</p></dd></dl><h3 id="sec:program-name"><a href="#sec:program-name">program-name</a></h3> <dl class="defsig"> <dt class="defsig" id="def:program-name"><span class="sig"><var class="id">program-name</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>The name of the currently executing program. This is equivalent to <tt>(car (argv))</tt> for compiled programs or the filename following the <tt>-script</tt> option in interpreted scripts.</p></dd></dl><h3 id="sec:Access_to_environment_variables"><a href="#sec:Access_to_environment_variables">Access to environment variables</a></h3><h4 id="sec:get-environment-variables"><a href="#sec:get-environment-variables">get-environment-variables</a></h4> <dl class="defsig"> <dt class="defsig" id="def:get-environment-variables"><span class="sig"><var class="id">get-environment-variables</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a association list of the environment variables and their current values (see also <a href="http://srfi.schemers.org/srfi-98/">SRFI-98</a>).</p></dd></dl><h4 id="sec:get-environment-variable"><a href="#sec:get-environment-variable">get-environment-variable</a></h4> <dl class="defsig"> <dt class="defsig" id="def:get-environment-variable"><span class="sig"><var class="id">get-environment-variable</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the value of the environment variable <var class="arg">STRING</var> or <tt>#f</tt> if that variable is not defined. See also <a href="http://srfi.schemers.org/srfi-98/">SRFI-98</a>.</p></dd></dl><h4 id="sec:set-environment-variable.21"><a href="#sec:set-environment-variable.21">set-environment-variable!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-environment-variable.21"><span class="sig"><var class="id">set-environment-variable!</var> <var class="arg">VARIABLE</var> <var class="arg">VALUE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the environment variable named <var class="arg">VARIABLE</var> to <var class="arg">VALUE</var>. Both arguments should be strings. If the variable is not defined in the environment, a new definition is created.</p></dd></dl><h4 id="sec:unset-environment-variable.21"><a href="#sec:unset-environment-variable.21">unset-environment-variable!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:unset-environment-variable.21"><span class="sig"><var class="id">unset-environment-variable!</var> <var class="arg">VARIABLE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Removes the definition of the environment variable <var class="arg">VARIABLE</var> from the environment of the current process. If the variable is not defined, nothing happens.</p></dd></dl><h3 id="sec:Process_filesystem_context"><a href="#sec:Process_filesystem_context">Process filesystem context</a></h3><h4 id="sec:change-directory"><a href="#sec:change-directory">change-directory</a></h4> <dl class="defsig"> <dt class="defsig" id="def:change-directory"><span class="sig"><var class="id">change-directory</var> <var class="arg">NAME</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (current-directory) NAME)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the current working directory to <var class="arg">NAME</var>.</p></dd></dl><h4 id="sec:current-directory"><a href="#sec:current-directory">current-directory</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-directory"><span class="sig"><var class="id">current-directory</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the name of the current working directory.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20process%20signal%29.html">Module (chicken process signal)</a></p><p>Next: <a href="Module%20%28chicken%20process-context%20posix%29.html">Module (chicken process-context posix)</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken read-syntax).html�����������������������������������������0000644�0001750�0001750�00000015742�13502230005�023206� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken read-syntax)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_read-syntax.29">Module (chicken read-syntax)</a> <ul> <li><a href="#sec:define-reader-ctor">define-reader-ctor</a></li> <li><a href="#sec:set-read-syntax.21">set-read-syntax!</a></li> <li><a href="#sec:set-sharp-read-syntax.21">set-sharp-read-syntax!</a></li> <li><a href="#sec:set-parameterized-read-syntax.21">set-parameterized-read-syntax!</a></li> <li><a href="#sec:copy-read-table">copy-read-table</a></li> <li><a href="#sec:current-read-table">current-read-table</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_read-syntax.29"><a href="#sec:Module_.28chicken_read-syntax.29">Module (chicken read-syntax)</a></h2><p>This module provides procedures which can be used to extend the reader with custom read syntax.</p><h3 id="sec:define-reader-ctor"><a href="#sec:define-reader-ctor">define-reader-ctor</a></h3> <dl class="defsig"> <dt class="defsig" id="def:define-reader-ctor"><span class="sig"><var class="id">define-reader-ctor</var> <var class="arg">SYMBOL</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Define new read-time constructor for <tt>#,</tt> read syntax. For further information, see the documentation for <a href="http://srfi.schemers.org/srfi-10/srfi-10.html">SRFI-10</a>.</p></dd></dl><h3 id="sec:set-read-syntax.21"><a href="#sec:set-read-syntax.21">set-read-syntax!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:set-read-syntax.21"><span class="sig"><var class="id">set-read-syntax!</var> <var class="arg">CHAR-OR-SYMBOL</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>When the reader encounters the non-whitespace character <tt>CHAR</tt> while reading an expression from a given port, then the procedure <var class="arg">PROC</var> will be called with that port as its argument. The procedure should return a value that will be returned to the reader:</p> <pre class="highlight colorize"> <span class="comment">; A simple RGB color syntax: </span> <span class="paren1">(<span class="default">set-read-syntax! <span class="character">#\%</span> <span class="paren2">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren3">(<span class="default">port</span>)</span> <span class="paren3">(<span class="default">apply vector <span class="paren4">(<span class="default">map <span class="paren5">(<span class="default">cut string-&gt;number &lt;&gt; 16</span>)</span> <span class="paren5">(<span class="default">string-chop <span class="paren6">(<span class="default">read-string 6 port</span>)</span> 2</span>)</span> </span>)</span> </span>)</span> </span>)</span> </span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">with-input-from-string</span></i> <span class="string">&quot;(1 2 %f0f0f0 3)&quot;</span> read</span>)</span> <span class="comment">; ==&gt; (1 2 #(240 240 240) 3)</span></pre><p>If <var class="arg">CHAR-OR-SYMBOL</var> is a symbol, then a so-called <i>read-mark</i> handler is defined. In that case the handler procedure will be called when a character-sequence of the form <tt>#!SYMBOL</tt> is encountered.</p><p>You can undo special handling of read-syntax by passing <tt>#f</tt> as the second argument (if the syntax was previously defined via <tt>set-read-syntax!</tt>).</p><p>As a special case, your handler can return zero values, via <tt>(values)</tt>. This causes the reader to completely ignore whatever input you've read, rather than returning some possibly unspecified value. This can be useful in macro context, reading comments, conditional compilation, and so forth. Available in CHICKEN 4.6.6 and later.</p><p>Note that all of CHICKEN's special non-standard read-syntax is handled directly by the reader. To disable built-in read-syntax, define a handler that triggers an error (for example).</p></dd></dl><h3 id="sec:set-sharp-read-syntax.21"><a href="#sec:set-sharp-read-syntax.21">set-sharp-read-syntax!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:set-sharp-read-syntax.21"><span class="sig"><var class="id">set-sharp-read-syntax!</var> <var class="arg">CHAR-OR-SYMBOL</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>set-read-syntax!</tt>, but allows defining new <tt>#&lt;CHAR&gt; ...</tt> reader syntax. If the first argument is a symbol, then this procedure is equivalent to <tt>set-read-syntax!</tt>.</p><p><var class="arg">PROC</var> may be <tt>#f</tt> to disable previously defined &quot;sharp&quot; read syntax.</p></dd></dl><h3 id="sec:set-parameterized-read-syntax.21"><a href="#sec:set-parameterized-read-syntax.21">set-parameterized-read-syntax!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:set-parameterized-read-syntax.21"><span class="sig"><var class="id">set-parameterized-read-syntax!</var> <var class="arg">CHAR-OR-SYMBOL</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>set-sharp-read-syntax!</tt>, but intended for defining reader syntax of the form <tt>#&lt;NUMBER&gt;&lt;CHAR&gt; ...</tt>. The handler procedure <var class="arg">PROC</var> will be called with two arguments: the input port and the number preceding the dispatching character. If the first argument is a symbol, then this procedure is equivalent to <tt>set-read-syntax!</tt>.</p><p><var class="arg">PROC</var> may be <tt>#f</tt> to disable previously defined parameterized read syntax.</p></dd></dl><h3 id="sec:copy-read-table"><a href="#sec:copy-read-table">copy-read-table</a></h3> <dl class="defsig"> <dt class="defsig" id="def:copy-read-table"><span class="sig"><var class="id">copy-read-table</var> <var class="arg">READ-TABLE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a copy of the given read-table. You can access the currently active read-table with <tt>(current-read-table)</tt>. This procedure can be useful to restore an old read-table after temporarily introducing new read syntax.</p></dd></dl><h3 id="sec:current-read-table"><a href="#sec:current-read-table">current-read-table</a></h3> <dl class="defsig"> <dt class="defsig" id="def:current-read-table"><span class="sig"><var class="id">current-read-table</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>A read-table object that holds read-procedures for special non-standard read-syntax (see <tt>set-read-syntax!</tt> for more information).</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20random%29.html">Module (chicken random)</a></p><p>Next: <a href="Module%20%28chicken%20repl%29.html">Module (chicken repl)</a></p></div></div></body>������������������������������chicken-5.1.0/manual-html/Acknowledgements.html�����������������������������������������������������0000644�0001750�0001750�00000012455�13502230005�021323� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Acknowledgements</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Acknowledgements"><a href="#sec:Acknowledgements">Acknowledgements</a></h2><p>Many thanks to Jules Altfas, Nico Amtsberg, Alonso Andres, William Annis, Jason E. Aten, Marc Baily, Peter Barabas, Andrei Barbu, Jonah Beckford, Arto Bendiken, Andy Bennett, Kevin Beranek, Peter Bex, Jean-Francois Bignolles, Oivind Binde, Alaric Blagrave Snell-Pym, Dave Bodenstab, Fabian Böhlke, T. Kurt Bond, Ashley Bone, Dominique Boucher, Terence Brannon, Roy Bryant, Adam Buchbinder, Hans Bulfone, &quot;Category 5&quot;, Taylor Campbell, Naruto Canada, Mark Carter, Esteban U. Caamano Castro, Semih Cemiloglu, Alex Charlton, Franklin Chen, Joo ChurlSoo, Thomas Chust, Gian Paolo Ciceri, Fulvio Ciriaco, Paul Colby, Tobia Conforto, John Cowan, Grzegorz Chrupala, James Crippen, Evan Hanson, Adhi Hargo, Moritz Heidkamp, Tollef Fog Heen, Drew Hess, Alejandro Forero Cuervo, Peter Danenberg, Linh Dang, Brian Denheyer, Sean D'Epagnier, &quot;dgym&quot;, &quot;Don&quot;, Chris Double, &quot;Brown Dragon&quot;, David Dreisigmeyer, Jarod Eells, Petter Egesund, Stephen Eilert, Steve Elkins, Daniel B. Faken, Erik Falor, Will Farr, Graham Fawcett, Marc Feeley, &quot;Fizzie&quot;, Matthew Flatt, Kimura Fuyuki, Tony Garnock-Jones, Martin Gasbichler, Abdulaziz Ghuloum, Joey Gibson, Stephen C. Gilardi, Mario Domenech Goulart, Joshua Griffith, Johannes Groedem, Damian Gryski, Matt Gushee, Andreas Gustafsson, Sven Hartrumpf, Jun-ichiro itojun Hagino, Ahdi Hargo, Matthias Heiler, Karl M. Hegbloom, Moritz Heidkamp, William P. Heinemann, Bill Hoffman, Eric Hoffman, Bruce Hoult, Hans Hübner, Markus Hülsmann, Götz Isenmann, Paulo Jabardo, Wietse Jacobs, David Janssens, Christian Jäger, Robert Jensen, Matt Jones, Dale Jordan, Valentin Kamyshenko, Daishi Kato, Peter Keller, Christian Kellermann, Brad Kind, Ron Kneusel, &quot;Kooda&quot;, Matthias Köppe, Krysztof Kowalczyk, Andre Kühne, Todd R. Kueny Sr, Goran Krampe, David Krentzlin, Ben Kurtz, Michele La Monaca, Micky Latowicki, Kristian Lein-Mathisen, &quot;LemonBoy&quot;, John Lenz, Kirill Lisovsky, Jürgen Lorenz, Kon Lovett, Lam Luu, Arthur Maciel, Vitaly Magerya, Leonardo Valeri Manera, Claude Marinier, Dennis Marti, Charles Martin, Bob McIsaac, &quot;megane&quot;, Alain Mellan, Eric Merrit, Perry Metzger, Scott G. Miller, Mikael, Karel Miklav, Bruce Mitchener, Fadi Moukayed, Chris Moline, Eric E. Moore, Julian Morrison, Dan Muresan, David N. Murray, Timo Myyrä, &quot;nicktick&quot;, Lars Nilsson, Ian Oversby, &quot;o.t.&quot;, Gene Pavlovsky, Levi Pearson, Jeronimo Pellegrini, Nicolas Pelletier, Derrell Piper, Carlos Pita, &quot;Pluijzer&quot;, Robin Lee Powell, Alan Post, &quot;Pupeno&quot;, Davide Puricelli, &quot;presto&quot;, Doug Quale, Imran Rafique, Eric Raible, Ivan Raikov, Santosh Rajan, Peder Refnes, Joel Reymont, &quot;rivo&quot;, Chris Roberts, Eric Rochester, Paul Romanchenko, Andreas Rottman, David Rush, Lars Rustemeier, Daniel Sadilek, Otavio Salvador, Burton Samograd, &quot;Sandro&quot;, &quot;satori&quot;, Aleksej Saushev, Oskar Schirmer, Vasilij Schneidermann, Reed Sheridan, Ronald Schröder, Spencer Schumann, Ivan Shcheklein, Alexander Shendi, Alex Shinn, Ivan Shmakov, &quot;Shmul&quot;, Tony Sidaway, Jeffrey B. Siegal, Andrey Sidorenko, Michele Simionato, Iruata Souza, Volker Stolz, Jon Strait, Dorai Sitaram, Robert Skeels, Jason Songhurst, Clifford Stein, David Steiner, &quot;Sunnan&quot;, Zbigniew Szadkowski, Rick Taube, Nathan Thern, Mike Thomas, Minh Thu, Christian Tismer, Andre van Tonder, John Tobey, Henrik Tramberend, Vladimir Tsichevsky, James Ursetto, Neil van Dyke, Sam Varner, Taylor Venable, Sander Vesik, Jaques Vidrine, Panagiotis Vossos, Shawn Wagner, Peter Wang, Ed Watkeys, Brad Watson, Thomas Weidner, Göran Weinholt, Matthew Welland, Drake Wilson, Jörg Wittenberger, Peter Wright, Mark Wutka, Adam Young, Richard Zidlicky, Houman Zolfaghari and Florian Zumbiehl for bug-fixes, tips and suggestions.</p><p>Special thanks to Brandon van Every for contributing the (now defunct) <a href="http://www.cmake.org">CMake</a> support and for helping with Windows build issues.</p><p>Thanks to Pablo Beyen and <a href="http://www.bevuta.com">bevuta IT GmbH</a> for their awesome support.</p><p>Also special thanks to Benedikt Rosenau for his constant encouragement.</p><p>Felix especially wants to thank Dunja Winkelmann for putting up with all of this and for her constant support.</p><p>CHICKEN contains code from several people:</p><dl><dt>Marc Feeley</dt> <dd>pretty-printer.</dd><dt>Richard Kelsey, Jonathan Rees and Taylor Campbell</dt> <dd>core of the <tt>syntax-rules</tt> expander</dd><dt>Aubrey Jaffer</dt> <dd>initial implementation of <tt>dynamic-wind</tt>.</dd><dt>Richard O'Keefe</dt> <dd>sorting routines.</dd><dt>Alex Shinn</dt> <dd>the <a href="http://synthcode.com/scheme/irregex/">irregex</a> regular expression package.</dd><dt>Olin Shivers</dt> <dd>implementation of <tt>let-optionals[*]</tt>.</dd></dl> <hr /><p>Previous: <a href="Bugs%20and%20limitations.html">Bugs and limitations</a></p><p>Next: <a href="Bibliography.html">Bibliography</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken continuation).html����������������������������������������0000644�0001750�0001750�00000010345�13502230004�023452� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken continuation)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_continuation.29">Module (chicken continuation)</a> <ul> <li><a href="#sec:Continuations_API">Continuations API</a> <ul> <li><a href="#sec:continuation-capture">continuation-capture</a></li> <li><a href="#sec:continuation.3f">continuation?</a></li> <li><a href="#sec:continuation-graft">continuation-graft</a></li> <li><a href="#sec:continuation-return">continuation-return</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_continuation.29"><a href="#sec:Module_.28chicken_continuation.29">Module (chicken continuation)</a></h2><p>This module provides a more powerful interface for continuations than that provided by <tt>call/cc</tt>.</p><p>More information about this continuation API can be found in the paper <a href="http://www.iro.umontreal.ca/~feeley/papers/FeeleySW01.pdf">A Better API for First-Class Continuations</a> by Marc Feeley.</p><h3 id="sec:Continuations_API"><a href="#sec:Continuations_API">Continuations API</a></h3><h4 id="sec:continuation-capture"><a href="#sec:continuation-capture">continuation-capture</a></h4> <dl class="defsig"> <dt class="defsig" id="def:continuation-capture"><span class="sig"><var class="id">continuation-capture</var> <var class="arg">PROCEDURE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a continuation object representing the current continuation and tail-calls <var class="arg">PROCEDURE</var> with this continuation as the single argument.</p></dd></dl><h4 id="sec:continuation.3f"><a href="#sec:continuation.3f">continuation?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:continuation.3f"><span class="sig"><var class="id">continuation?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a continuation object, or <tt>#f</tt> otherwise. Please note that this applies only to continuations created by the Continuation API, but not by call/cc, i.e.: <tt>(call-with-current-continuation continuation?)</tt> returns <tt>#f</tt>, whereas <tt>(continuation-capture continuation?)</tt> returns <tt>#t</tt>.</p></dd></dl><h4 id="sec:continuation-graft"><a href="#sec:continuation-graft">continuation-graft</a></h4> <dl class="defsig"> <dt class="defsig" id="def:continuation-graft"><span class="sig"><var class="id">continuation-graft</var> <var class="arg">CONT</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Calls the procedure <var class="arg">THUNK</var> with no arguments and the implicit continuation <var class="arg">CONT</var>.</p></dd></dl><h4 id="sec:continuation-return"><a href="#sec:continuation-return">continuation-return</a></h4> <dl class="defsig"> <dt class="defsig" id="def:continuation-return"><span class="sig"><var class="id">continuation-return</var> <var class="arg">CONT</var> <var class="arg">VALUE</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the value(s) to the continuation <var class="arg">CONT</var>. <tt>continuation-return</tt> could be implemented like this:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">continuation-return k . vals</span>)</span> <span class="paren2">(<span class="default">continuation-graft k <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren4">(<span class="default"></span>)</span> <span class="paren4">(<span class="default">apply values vals</span>)</span></span>)</span></span>)</span></span>)</span></pre></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20condition%29.html">Module (chicken condition)</a></p><p>Next: <a href="Module%20%28chicken%20csi%29.html">Module (chicken csi)</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken blob).html������������������������������������������������0000644�0001750�0001750�00000007150�13502230006�021660� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken blob)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_blob.29">Module (chicken blob)</a> <ul> <li><a href="#sec:make-blob">make-blob</a></li> <li><a href="#sec:blob.3f">blob?</a></li> <li><a href="#sec:blob-size">blob-size</a></li> <li><a href="#sec:blob-.3estring">blob-&gt;string</a></li> <li><a href="#sec:string-.3eblob">string-&gt;blob</a></li> <li><a href="#sec:blob.3d.3f">blob=?</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_blob.29"><a href="#sec:Module_.28chicken_blob.29">Module (chicken blob)</a></h2><p>This module contains procedures for dealing with &quot;blobs&quot;. Blobs are unstructured byte arrays (basically &quot;binary strings&quot;). You can't do much with them, but they allow conversion to and from <a href="Module%20srfi-4.html">SRFI-4 number vectors</a> which define how to access a blob's byte contents.</p><h3 id="sec:make-blob"><a href="#sec:make-blob">make-blob</a></h3> <dl class="defsig"> <dt class="defsig" id="def:make-blob"><span class="sig"><var class="id">make-blob</var> <var class="arg">SIZE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a blob object of <var class="arg">SIZE</var> bytes, aligned on an 8-byte boundary, uninitialized.</p></dd></dl><h3 id="sec:blob.3f"><a href="#sec:blob.3f">blob?</a></h3> <dl class="defsig"> <dt class="defsig" id="def:blob.3f"><span class="sig"><var class="id">blob?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a blob object, or <tt>#f</tt> otherwise.</p></dd></dl><h3 id="sec:blob-size"><a href="#sec:blob-size">blob-size</a></h3> <dl class="defsig"> <dt class="defsig" id="def:blob-size"><span class="sig"><var class="id">blob-size</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of bytes in <var class="arg">BLOB</var>.</p></dd></dl><h3 id="sec:blob-.3estring"><a href="#sec:blob-.3estring">blob-&gt;string</a></h3> <dl class="defsig"> <dt class="defsig" id="def:blob-.3estring"><span class="sig"><var class="id">blob-&gt;string</var> <var class="arg">BLOB</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string with the contents of <var class="arg">BLOB</var>.</p></dd></dl><h3 id="sec:string-.3eblob"><a href="#sec:string-.3eblob">string-&gt;blob</a></h3> <dl class="defsig"> <dt class="defsig" id="def:string-.3eblob"><span class="sig"><var class="id">string-&gt;blob</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a blob with the contents of <var class="arg">STRING</var>.</p></dd></dl><h3 id="sec:blob.3d.3f"><a href="#sec:blob.3d.3f">blob=?</a></h3> <dl class="defsig"> <dt class="defsig" id="def:blob.3d.3f"><span class="sig"><var class="id">blob=?</var> <var class="arg">BLOB1</var> <var class="arg">BLOB2</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the two argument blobs are of the same size and have the same content.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20bitwise%29.html">Module (chicken bitwise)</a></p><p>Next: <a href="Module%20%28chicken%20condition%29.html">Module (chicken condition)</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken type).html������������������������������������������������0000644�0001750�0001750�00000001676�13502230005�021731� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken type)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_type.29">Module (chicken type)</a></li></ul></div><h2 id="sec:Module_.28chicken_type.29"><a href="#sec:Module_.28chicken_type.29">Module (chicken type)</a></h2><p>The functionality in this module is available by default. See <a href="Types.html">Types</a> for more information.</p><hr /><p>Previous: <a href="Module%20%28chicken%20time%20posix%29.html">Module (chicken time posix)</a></p><p>Next: <a href="Interface%20to%20external%20functions%20and%20variables.html">Interface to external functions and variables</a></p></div></div></body>������������������������������������������������������������������chicken-5.1.0/manual-html/Module r4rs.html����������������������������������������������������������0000644�0001750�0001750�00000001703�13502230005�020123� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module r4rs</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_r4rs">Module r4rs</a></li></ul></div><h2 id="sec:Module_r4rs"><a href="#sec:Module_r4rs">Module r4rs</a></h2><p>This module provides the subset of procedures and macros from the <tt>scheme</tt> module which are from the R4RS standard.</p><p>This is every procedure and macro from <a href="scheme.html">Module scheme</a> except for <tt>dynamic-wind</tt>, <tt>eval</tt>, <tt>call-with-values</tt> and <tt>values</tt>.</p><hr /><p>Previous: <a href="Module%20r5rs.html">Module r5rs</a></p><p>Next: <a href="Module%20srfi-4.html">Module srfi-4</a></p></div></div></body>�������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken repl).html������������������������������������������������0000644�0001750�0001750�00000007217�13502230005�021707� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken repl)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_repl.29">Module (chicken repl)</a> <ul> <li><a href="#sec:repl">repl</a></li> <li><a href="#sec:repl-prompt">repl-prompt</a></li> <li><a href="#sec:quit">quit</a></li> <li><a href="#sec:reset">reset</a></li> <li><a href="#sec:reset-handler">reset-handler</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_repl.29"><a href="#sec:Module_.28chicken_repl.29">Module (chicken repl)</a></h2><p>This module provides procedures you can use to create your own Read-Eval-Print Loop (REPL).</p><h3 id="sec:repl"><a href="#sec:repl">repl</a></h3> <dl class="defsig"> <dt class="defsig" id="def:repl"><span class="sig"><var class="id">repl</var> <var class="dsssl">#!optional</var> <var class="arg">EVALUATOR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Start a new read-eval-print loop. Sets the <tt>reset-handler</tt> so that any invocation of <tt>reset</tt> restarts the read-eval-print loop. Also changes the current exception-handler to display a message, write any arguments to the value of <tt>(current-error-port)</tt> and reset.</p><p>If <var class="arg">EVALUATOR</var> is given, it should be a procedure of one argument that is used in place of <tt>eval</tt> to evaluate each entered expression.</p><p>You can use <tt>quit</tt> to terminate the current read-eval-print loop.</p></dd></dl><h3 id="sec:repl-prompt"><a href="#sec:repl-prompt">repl-prompt</a></h3> <dl class="defsig"> <dt class="defsig" id="def:repl-prompt"><span class="sig"><var class="id">repl-prompt</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>A procedure that should evaluate to a string that will be printed before reading interactive input from the user in a read-eval-print loop. Defaults to <tt>(lambda () &quot;#;N&gt; &quot;)</tt>.</p></dd></dl><h3 id="sec:quit"><a href="#sec:quit">quit</a></h3> <dl class="defsig"> <dt class="defsig" id="def:quit"><span class="sig"><var class="id">quit</var> <var class="dsssl">#!optional</var> <var class="arg">RESULT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>In the interpreter <tt>quit</tt> exits the currently active read-eval-print loop. In compiled code, it is equivalent to calling <tt>exit</tt>. See also the <tt>repl</tt> procedure.</p></dd></dl><h3 id="sec:reset"><a href="#sec:reset">reset</a></h3> <dl class="defsig"> <dt class="defsig" id="def:reset"><span class="sig"><var class="id">reset</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Reset program (Invokes <tt>reset-handler</tt>).</p></dd></dl><h3 id="sec:reset-handler"><a href="#sec:reset-handler">reset-handler</a></h3> <dl class="defsig"> <dt class="defsig" id="def:reset-handler"><span class="sig"><var class="id">reset-handler</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>A procedure of zero arguments that is called via <tt>reset</tt>. The default behavior in compiled code is to invoke the value of <tt>(exit-handler)</tt>. The default behavior in the interpreter is to abort the current computation and to restart the read-eval-print loop.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20read-syntax%29.html">Module (chicken read-syntax)</a></p><p>Next: <a href="Module%20%28chicken%20sort%29.html">Module (chicken sort)</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken random).html����������������������������������������������0000644�0001750�0001750�00000010334�13502230005�022217� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken random)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_random.29">Module (chicken random)</a> <ul> <li><a href="#sec:set-pseudo-random-seed.21">set-pseudo-random-seed!</a></li> <li><a href="#sec:pseudo-random-integer">pseudo-random-integer</a></li> <li><a href="#sec:pseudo-random-real">pseudo-random-real</a></li> <li><a href="#sec:random-bytes">random-bytes</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_random.29"><a href="#sec:Module_.28chicken_random.29">Module (chicken random)</a></h2><p>This module provides access to entropy (as provided by the operating system) and a pseudo random number generator.</p><p>On UNIX systems entropy is by default obtained from <tt>/dev/urandom</tt>. On Linux, the <tt>getrandom(2)</tt> system call is used instead, if available. On OpenBSD it is <tt>arc4random_buf(3)</tt>, on Windows <tt>RtlGenRandom</tt>.</p><p>The pseudo random number generator is an implementation of the <a href="https://en.wikipedia.org/wiki/Well_equidistributed_long-period_linear">https://en.wikipedia.org/wiki/Well_equidistributed_long-period_linear</a> algorithm.</p><h4 id="sec:set-pseudo-random-seed.21"><a href="#sec:set-pseudo-random-seed.21">set-pseudo-random-seed!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-pseudo-random-seed.21"><span class="sig"><var class="id">set-pseudo-random-seed!</var> <var class="arg">SEED</var> <var class="dsssl">#!optional</var> <var class="arg">SIZE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Set seed for the PRNG from the at most <var class="arg">SIZE</var> bytes of <var class="arg">SEED</var>. which should be a byte vector or a string containing random data. If <var class="arg">SIZE</var> is not given, it defaults to the size of <var class="arg">SEED</var>. If <var class="arg">SIZE</var> (or the size of <var class="arg">SEED</var>) is below the required size of the random state used by the PRNG, then it will necessarily be initialized in a less random manner as possible.</p></dd></dl><h4 id="sec:pseudo-random-integer"><a href="#sec:pseudo-random-integer">pseudo-random-integer</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pseudo-random-integer"><span class="sig"><var class="id">pseudo-random-integer</var> <var class="dsssl">#!optional</var> <var class="arg">RANGE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a uniformly distributed pseudo random integer between 0 and <tt>RANGE-1</tt>, which may be a big integer.</p></dd></dl><h4 id="sec:pseudo-random-real"><a href="#sec:pseudo-random-real">pseudo-random-real</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pseudo-random-real"><span class="sig"><var class="id">pseudo-random-real</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a uniformly distributed pseudo-random inexact number between 0 and 1.</p></dd></dl><h4 id="sec:random-bytes"><a href="#sec:random-bytes">random-bytes</a></h4> <dl class="defsig"> <dt class="defsig" id="def:random-bytes"><span class="sig"><var class="id">random-bytes</var> <var class="dsssl">#!optional</var> <var class="arg">BUF</var> <var class="arg">SIZE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns random bytes from the available entropy source. If <var class="arg">BUF</var> is given, it should be a string or byte vector which will be filled with up to <var class="arg">SIZE</var> random bytes. <var class="arg">SIZE</var> defaults to the size of the <var class="arg">BUF</var> argument. If no arguments are given, <tt>random-bytes</tt> returns a freshly allocated byte vector of sufficient size to be used as a seed for <tt>set-pseudo-random-seed!</tt>.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20process-context%29.html">Module (chicken process-context)</a></p><p>Next: <a href="Module%20%28chicken%20read-syntax%29.html">Module (chicken read-syntax)</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Egg specification format.html���������������������������������������������0000644�0001750�0001750�00000043500�13502230005�022600� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Egg specification format</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Format_of_the_egg_description_file">Format of the egg description file</a> <ul> <li><a href="#sec:Global_properties">Global properties</a> <ul> <li><a href="#sec:version">version</a></li> <li><a href="#sec:synopsis">synopsis</a></li> <li><a href="#sec:author">author</a></li> <li><a href="#sec:maintainer">maintainer</a></li> <li><a href="#sec:category">category</a></li> <li><a href="#sec:license">license</a></li> <li><a href="#sec:dependencies">dependencies</a></li> <li><a href="#sec:test-dependencies">test-dependencies</a></li> <li><a href="#sec:build-dependencies">build-dependencies</a></li> <li><a href="#sec:foreign-dependencies">foreign-dependencies</a></li> <li><a href="#sec:platform">platform</a> <ul> <li><a href="#sec:distribution-files">distribution-files</a></li></ul></li> <li><a href="#sec:components">components</a></li> <li><a href="#sec:host">host</a></li> <li><a href="#sec:target">target</a></li> <li><a href="#sec:component-options">component-options</a></li> <li><a href="#sec:cond-expand">cond-expand</a></li> <li><a href="#sec:error">error</a></li></ul></li> <li><a href="#sec:Components">Components</a> <ul> <li><a href="#sec:extension">extension</a></li> <li><a href="#sec:data">data</a></li> <li><a href="#sec:generated-source-file">generated-source-file</a></li> <li><a href="#sec:c-include">c-include</a></li> <li><a href="#sec:scheme-include">scheme-include</a></li> <li><a href="#sec:program">program</a></li></ul></li> <li><a href="#sec:Component_properties">Component properties</a> <ul> <li><a href="#sec:host">host</a></li> <li><a href="#sec:target">target</a></li> <li><a href="#sec:linkage">linkage</a></li> <li><a href="#sec:types-file">types-file</a></li> <li><a href="#sec:inline-file">inline-file</a></li> <li><a href="#sec:custom-build">custom-build</a></li> <li><a href="#sec:csc-options">csc-options</a></li> <li><a href="#sec:link-options">link-options</a></li> <li><a href="#sec:source">source</a></li> <li><a href="#sec:install-name">install-name</a></li> <li><a href="#sec:component-dependencies">component-dependencies</a></li> <li><a href="#sec:source-dependencies">source-dependencies</a></li> <li><a href="#sec:destination">destination</a></li> <li><a href="#sec:files">files</a></li> <li><a href="#sec:modules">modules</a></li></ul></li></ul></li></ul></div><h2 id="sec:Format_of_the_egg_description_file"><a href="#sec:Format_of_the_egg_description_file">Format of the egg description file</a></h2><p>An egg description is basically an association list holding information about the components of the egg. An egg may contain multiple components: libraries, programs, Scheme or C include files and arbitrary data files. Dependencies between eggs can be specified as can be dependencies between components of an egg.</p><p>A list of valid properties follows.</p><h3 id="sec:Global_properties"><a href="#sec:Global_properties">Global properties</a></h3><h4 id="sec:version"><a href="#sec:version">version</a></h4><pre>[egg property] (version STRING)</pre><p>Specifies version string for this egg. <tt>STRING</tt> should have the format <tt>&lt;MAJOR&gt;.&lt;MINOR&gt;.&lt;PATCHLEVEL&gt;</tt>, where only the <tt>&lt;MAJOR&gt;</tt> part is mandatory.</p><p>Eggs from remote egg servers are automatically versioned - the version is part of the protocol to retrieve the egg and does not have to be specified in the <tt>.egg</tt> file. Eggs installed from local directories (see below) should explicitly specify a version.</p><h4 id="sec:synopsis"><a href="#sec:synopsis">synopsis</a></h4><pre>[egg property] (synopsis STRING)</pre><p>Gives a short description of this egg.</p><h4 id="sec:author"><a href="#sec:author">author</a></h4><pre>[egg property] (author STRING)</pre><p>Names the author or authors of the contained code.</p><h4 id="sec:maintainer"><a href="#sec:maintainer">maintainer</a></h4><pre>[egg property] (maintainer STRING)</pre><p>Names the maintainer of this code, if different from author(s).</p><h4 id="sec:category"><a href="#sec:category">category</a></h4><pre>[egg property] (category NAME)</pre><p>Gives the category under which this egg should be contained. See <a href="https://wiki.call-cc.org/chicken-projects/egg-index-5.html">the egg index</a> for a list of currently used categories.</p><h4 id="sec:license"><a href="#sec:license">license</a></h4><pre>[egg property] (license STRING)</pre><p>Names the license under which this code is available.</p><h4 id="sec:dependencies"><a href="#sec:dependencies">dependencies</a></h4><pre>[egg property] (dependencies EGG ...)</pre><p>Lists eggs that this egg depends on, and which should be built and installed if they do not already exist in the repository. <tt>EGG</tt> should be whether a symbol or a list of the form <tt>EGGNAME VERSION</tt>, where the former means to install the newest available egg with this name and the latter specifies a specific version or higher.</p><h4 id="sec:test-dependencies"><a href="#sec:test-dependencies">test-dependencies</a></h4><pre>[egg property] (test-dependencies EGG ...)</pre><p>Lists eggs that are required for this egg to run the tests (if tests exist.) This only has an effect if the <tt>-test</tt> option has been given to <tt>chicken-install</tt>.</p><h4 id="sec:build-dependencies"><a href="#sec:build-dependencies">build-dependencies</a></h4><pre>[egg property] (build-dependencies EGG ...)</pre><p>Lists eggs that are build-time dependencies for this egg, i.e. there are required to build, but not to run the contained code. Currently this is treated identical to <tt>dependencies</tt>.</p><h4 id="sec:foreign-dependencies"><a href="#sec:foreign-dependencies">foreign-dependencies</a></h4><pre>[egg property] (foreign-dependencies NAME ...)</pre><p>Lists external dependencies like native code libraries or system-specific packages and is currently only used for documentation purposes.</p><h4 id="sec:platform"><a href="#sec:platform">platform</a></h4><pre>[egg property] (platform PLATFORM)</pre><p>Specifies for which platform this egg is intended. <tt>PLATFORM</tt> should be a symbol naming the target platform (<tt>windows</tt>, <tt>linux</tt> or <tt>unix</tt>) or a boolean combination of platform values, allowed are <tt>(not PLATFORM)</tt>, <tt>(or PLATFORM ...)</tt> and <tt>(and PLATFORM ...)</tt>. If the expression can not be satisfied, then installation of this egg will abort.</p><h5 id="sec:distribution-files"><a href="#sec:distribution-files">distribution-files</a></h5><pre>[egg property] (distribution-files FILE ...)</pre><p>List of files required for the installation of the egg. This form is not handled by chicken-install, but by henrietta-cache to determine what to cache. If the repository contains additional files that are unneeded for the egg to be installed, you can list all the required files in this clause to reduce the amount of data cached by egg servers.</p><h4 id="sec:components"><a href="#sec:components">components</a></h4><pre>[egg property] (components COMPONENT ...)</pre><p>Lists components (extensions, programs, include- or data files) that this extension installs. See below for information on how to specify component-specific information.</p><h4 id="sec:host"><a href="#sec:host">host</a></h4><pre>[egg property] (host PROP ...)</pre><p>Recursively process <tt>PROP ...</tt>, but only for the host (build) platform, in case this is a &quot;cross-chicken&quot;, a CHICKEN installation intended for cross compilation.</p><h4 id="sec:target"><a href="#sec:target">target</a></h4><pre>[egg property] (target PROP ...)</pre><p>Recursively process <tt>PROP ...</tt>, but only for the target platform, in case this is a &quot;cross-chicken&quot;, a CHICKEN installation intended for cross compilation.</p><h4 id="sec:component-options"><a href="#sec:component-options">component-options</a></h4><pre>[egg property] (component-options OPTIONSPEC ...)</pre><p>Specifies global options for all programs and extensions compiled for this egg. <tt>OPTIONSPEC</tt> may be <tt>csc-options</tt>, <tt>link-options</tt> or <tt>linkage</tt> specifications.</p><h4 id="sec:cond-expand"><a href="#sec:cond-expand">cond-expand</a></h4><pre>[egg property] (cond-expand CLAUSE ...)</pre><p>Conditionally expand egg specification forms, depending on system features. Each <tt>CLAUSE</tt> should be of the form <tt>(TEST PROPERTY)</tt> where <tt>TEST</tt> is a feature identifier or a conditional form, in the same syntax as used in the <tt>cond-expand</tt> syntactic form.</p><p>In addition to normal system-wide feature identifiers, feature identifiers given via the <tt>-feature</tt> option to <tt>chicken-install</tt> are visible in the tests. Also, the features <tt>target</tt>, <tt>host</tt>, <tt>dynamic</tt> and <tt>static</tt> are visible, depending on surrounding egg specification forms for constraining mode and linkage.</p><h4 id="sec:error"><a href="#sec:error">error</a></h4><pre>[egg property] (error STRING ARG ...)</pre><p>Signal an error and abort processing. Mostly useful inside <tt>cond-expand</tt> forms.</p><h3 id="sec:Components"><a href="#sec:Components">Components</a></h3><h4 id="sec:extension"><a href="#sec:extension">extension</a></h4><pre>[egg property] (extension NAME PROP ...)</pre><p>Specifies an extension library component. The properties <tt>PROP...</tt> are processed recursively and apply only to this component.</p><h4 id="sec:data"><a href="#sec:data">data</a></h4><pre>[egg property] (data NAME PROP ...)</pre><p>Specifies one or more arbitrary data files.</p><h4 id="sec:generated-source-file"><a href="#sec:generated-source-file">generated-source-file</a></h4><pre>[egg property] (generated-source-file NAME PROP ...)</pre><p>Specifies a file that is generated during the process of building the egg.</p><h4 id="sec:c-include"><a href="#sec:c-include">c-include</a></h4><pre>[egg property] (c-include NAME PROP ...)</pre><p>Specifies one or more C include files.</p><h4 id="sec:scheme-include"><a href="#sec:scheme-include">scheme-include</a></h4><pre>[egg property] (scheme-include NAME PROP ...)</pre><p>Specifies one or more Scheme include files.</p><h4 id="sec:program"><a href="#sec:program">program</a></h4><pre>[egg property] (program NAME PROP ...)</pre><p>Specifies an executable program.</p><h3 id="sec:Component_properties"><a href="#sec:Component_properties">Component properties</a></h3><h4 id="sec:host"><a href="#sec:host">host</a></h4><pre>[egg property] (host PROP ...)</pre><p>Process <tt>PROP ...</tt> recursively for the current component, but apply the properties only to the host (build) part, when using a CHICKEN installation intended for cross-compilation.</p><h4 id="sec:target"><a href="#sec:target">target</a></h4><pre>[egg property] (target PROP ...)</pre><p>Process <tt>PROP ...</tt> recursively for the current component, but apply the properties only to the target part, when using a CHICKEN installation intended for cross-compilation.</p><h4 id="sec:linkage"><a href="#sec:linkage">linkage</a></h4><pre>[egg property] (linkage LINKAGE)</pre><p>Define whether the component should be linked dynamically or statically. <tt>LINKAGE</tt> can be <tt>static</tt> or <tt>dynamic</tt>. This property only makes sense for extension libraries.</p><h4 id="sec:types-file"><a href="#sec:types-file">types-file</a></h4><pre>[egg property] (types-file [NAME])</pre><p>Specifies that a &quot;type-database&quot; file should be generated and installed for this component. This property is only used for extension libraries. The name is optional and defaults to the name of the extensions (with the proper extension).</p><p>If <tt>NAME</tt> is a list of the form <tt>(predefined [NAME])</tt>, then no types file is created during compilation and an existing types file for this extension is assumed and installed.</p><h4 id="sec:inline-file"><a href="#sec:inline-file">inline-file</a></h4><pre>[egg property] (inline-file [NAME])</pre><p>Specifies that an &quot;inline&quot; file should be generated and installed for this component. This property is only used for extension libraries. The name is optional and defaults to the name of the extensions (with the proper extension).</p><h4 id="sec:custom-build"><a href="#sec:custom-build">custom-build</a></h4><pre>[egg property] (custom-build STRING)</pre><p>Specifies a custom build operation that should be executed instead of the default build operations. This property is mandatory for components of type <tt>generated-source-file</tt>. <tt>STRING</tt> should be the name of a shell command (e.g., a script) and thus may be platform sensitive. The path to the file is prepended implicitly, so you should <b>not</b> prefix it with <tt>./</tt>. On Windows, a file with the <tt>.bat</tt> extension will be picked before a plain file with no extension.</p><p>The script will be made executable on UNIX systems, if necessary, and will be invoked like the <tt>csc</tt> program and is executed with the location of the CHICKEN binaries in the <tt>PATH</tt>. Also, the following environment variables are set in the execution environment of the script:</p><ul><li><tt>CHICKEN_CC</tt>: name of the C compiler used for building CHICKEN</li> <li><tt>CHICKEN_CXX</tt>: name of the C++ compiler set during the build of CHICKEN</li> <li><tt>CHICKEN_CSC</tt>: path to <tt>csc</tt></li> <li><tt>CHICKEN_CSI</tt>: path to <tt>csi</tt></li> </ul> <h4 id="sec:csc-options"><a href="#sec:csc-options">csc-options</a></h4><pre>[egg property] (csc-options OPTION ...)</pre><p>Specifies additional compiler options for <tt>csc</tt> that should be used when building this component. If this property is not given, the default options are used, which are <tt>-O2 -d1</tt> for extensions and programs and <tt>-O2 -d0</tt> for import libraries.</p><p>Note that the options are quoted when passed to csc during the compilation of the extension, so multiple options should be specified as <tt>(csc-options &quot;OPT1&quot; &quot;OPT2&quot; ...)</tt> instead of <tt>(csc-options &quot;OPT1 OPT2&quot;)</tt> (the latter would be a single option containing a whitespace character).</p><h4 id="sec:link-options"><a href="#sec:link-options">link-options</a></h4><pre>[egg property] (link-options OPTION ...)</pre><p>Specifies additional link options for <tt>csc</tt> that should be used when building this component.</p><p>Note that the options are quoted when passed to csc during the compilation of the extension, so multiple options should be specified as <tt>(link-options &quot;OPT1&quot; &quot;OPT2&quot; ...)</tt> instead of <tt>(link-options &quot;OPT1 OPT2&quot;)</tt> (the latter would be a single option containing a whitespace character).</p><p>Note that in order to pass linker options to the underlying C-compiler, these must be prefixed with <tt>-L</tt>, eg. <tt>(link-options &quot;-L&quot; &quot;-lpng&quot;)</tt>.</p><h4 id="sec:source"><a href="#sec:source">source</a></h4><pre>[egg property] (source NAME)</pre><p>Specifies an alternative source file, in case it has a name distinct from the component name. By default the source file for a component is named after the component, with the <tt>.scm</tt> extension added.</p><h4 id="sec:install-name"><a href="#sec:install-name">install-name</a></h4><pre>[egg property] (install-name NAME)</pre><p>Specifies an alternative installation name of the component, if it differs from the actual component name. This property is most useful if an egg installs an extension and a program of the same name, but needs to distinguish the components during build time.</p><h4 id="sec:component-dependencies"><a href="#sec:component-dependencies">component-dependencies</a></h4><pre>[egg property] (component-dependencies NAME ...)</pre><p>Specifies dependencies to other components. <tt>NAME ...</tt> must be the names of extension, program, scheme-include- or generated source file components that should be built before the current component.</p><h4 id="sec:source-dependencies"><a href="#sec:source-dependencies">source-dependencies</a></h4><pre>[egg property] (source-dependencies NAME ...)</pre><p>Specifies dependencies to additional source files. <tt>NAME ...</tt> must denote filenames of which the program or extension depends. A program or extension implicitly depends on its source file and and on the egg-specification file.</p><h4 id="sec:destination"><a href="#sec:destination">destination</a></h4><pre>[egg property] (destination NAME)</pre><p>Specifies an alternative installation destination for the built component and only applies to components of type <tt>data</tt>, <tt>c-include</tt> and <tt>scheme-include</tt>. This property should only be used in extreme cases, as it is recommended to use the default installation locations, which are:</p><ul><li>for C include files: <tt>&lt;PREFIX&gt;/include/chicken/</tt></li> <li>for Scheme include files: <tt>&lt;PREFIX&gt;/share/chicken/</tt></li> <li>for data files: <tt>&lt;PREFIX&gt;/share/chicken/</tt></li> </ul> <h4 id="sec:files"><a href="#sec:files">files</a></h4><pre>[egg property] (files NAME ...)</pre><p>Specifies source files for this component and only applies to components of type <tt>data</tt>, <tt>c-include</tt> and <tt>scheme-include</tt>. Both files and directories may be given and parent directories are created as needed.</p><h4 id="sec:modules"><a href="#sec:modules">modules</a></h4><pre>[egg property] (modules NAME ...)</pre><p>Specifies modules that the component (usually an extension) contains. <tt>chicken-install</tt> will compile and install all import libraries for the given modules. If this property is not given, then it is assumed that the extension has a single module of the same name as the component.</p><hr /><p>Previous: <a href="Extension%20tools.html">Extension tools</a></p><p>Next: <a href="Units%20and%20linking%20model.html">Units and linking model</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Declarations.html���������������������������������������������������������0000644�0001750�0001750�00000041247�13502230005�020442� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Declarations</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Declarations">Declarations</a> <ul> <li><a href="#sec:declare">declare</a></li> <li><a href="#sec:always-bound">always-bound</a></li> <li><a href="#sec:block">block</a></li> <li><a href="#sec:block-global">block-global</a></li> <li><a href="#sec:hide">hide</a></li> <li><a href="#sec:bound-to-procedure">bound-to-procedure</a></li> <li><a href="#sec:enforce-argument-types">enforce-argument-types</a></li> <li><a href="#sec:export">export</a></li> <li><a href="#sec:emit-external-prototypes-first">emit-external-prototypes-first</a></li> <li><a href="#sec:disable-interrupts">disable-interrupts</a></li> <li><a href="#sec:emit-import-library">emit-import-library</a></li> <li><a href="#sec:inline">inline</a></li> <li><a href="#sec:inline-global">inline-global</a></li> <li><a href="#sec:inline-limit">inline-limit</a></li> <li><a href="#sec:keep-shadowed-macros">keep-shadowed-macros</a></li> <li><a href="#sec:local">local</a></li> <li><a href="#sec:no-argc-checks">no-argc-checks</a></li> <li><a href="#sec:no-bound-checks">no-bound-checks</a></li> <li><a href="#sec:no-procedure-checks">no-procedure-checks</a></li> <li><a href="#sec:no-procedure-checks-for-usual-bindings">no-procedure-checks-for-usual-bindings</a></li> <li><a href="#sec:no-procedure-checks-for-toplevel-bindings">no-procedure-checks-for-toplevel-bindings</a></li> <li><a href="#sec:predicate">predicate</a></li> <li><a href="#sec:profile">profile</a></li> <li><a href="#sec:pure">pure</a></li> <li><a href="#sec:number-type">number-type</a></li> <li><a href="#sec:fixnum-arithmetic">fixnum-arithmetic</a></li> <li><a href="#sec:compile-syntax">compile-syntax</a></li> <li><a href="#sec:safe-globals">safe-globals</a></li> <li><a href="#sec:specialize">specialize</a></li> <li><a href="#sec:standard-bindings">standard-bindings</a></li> <li><a href="#sec:strict-types">strict-types</a></li> <li><a href="#sec:type">type</a></li> <li><a href="#sec:extended-bindings">extended-bindings</a></li> <li><a href="#sec:usual-integrations">usual-integrations</a></li> <li><a href="#sec:unit">unit</a></li> <li><a href="#sec:unsafe">unsafe</a></li> <li><a href="#sec:unused">unused</a></li> <li><a href="#sec:uses">uses</a></li></ul></li></ul></div><h2 id="sec:Declarations"><a href="#sec:Declarations">Declarations</a></h2><p>Declarations can be used to control compiler settings directly inside the compiled code and are always global in scope. In many (but not all) cases an associated command-line option exists. When in conflict, declarations override command-line options. When multiple declarations conflict, the one appearing textually last overrides any previous one.</p><p>Declarations can be used to improve performance and to give entities like procedures are variables special properties that can result in better performing code. Most of these declarations subtly change the semantics of standard Scheme code with respect to the declared entities, so care must be taken when using them.</p><p>Declarations are always ignored in <tt>csi</tt> (the interpreter) or in evaluated code.</p><h3 id="sec:declare"><a href="#sec:declare">declare</a></h3> <dl class="defsig"> <dt class="defsig" id="def:declare"><span class="sig"><tt>(declare DECLSPEC ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Process declaration specifiers. Declarations always override any command-line settings. Declarations are valid for the whole compilation-unit (source file), the position of the declaration in the source file can be arbitrary. Declarations are ignored in the interpreter but not in code evaluated at compile-time (by <tt>eval-when</tt> or in syntax extensions loaded via <tt>require-extension</tt>). <tt>DECLSPEC</tt> may be any of the following:</p></dd></dl><h3 id="sec:always-bound"><a href="#sec:always-bound">always-bound</a></h3><pre>[declaration specifier] (always-bound IDENTIFIER ...)</pre><p>Declares that the given variables are always bound and accesses to those have not to be checked.</p><h3 id="sec:block"><a href="#sec:block">block</a></h3><pre>[declaration specifier] (block)</pre><p>Assume global variables are never redefined. This is the same as specifying the <tt>-block</tt> option.</p><h3 id="sec:block-global"><a href="#sec:block-global">block-global</a></h3><h3 id="sec:hide"><a href="#sec:hide">hide</a></h3><pre>[declaration specifier] (block-global IDENTIFIER ...) [declaration specifier] (hide IDENTIFIER ...)</pre><p>Declares that the toplevel bindings for <tt>IDENTIFIER ...</tt> should not be accessible from code in other compilation units or by <tt>eval</tt>. Access to toplevel bindings declared as block global is also more efficient. <tt>(declare (hide))</tt> is equivalent to <tt>(declare (block))</tt>.</p><h3 id="sec:bound-to-procedure"><a href="#sec:bound-to-procedure">bound-to-procedure</a></h3><pre>[declaration specifier] (bound-to-procedure IDENTIFIER ...)</pre><p>Declares that the given identifiers are always bound to procedure values.</p><h3 id="sec:enforce-argument-types"><a href="#sec:enforce-argument-types">enforce-argument-types</a></h3><pre>[declaration-specifier] (enforce-argument-types IDENTIFIER ...)</pre><p>Declares that the toplevel procedures listed check the type of their arguments (either explicitly or by calling other enforcing procedures) and so a successfull invocation will indicate the arguments are of the types declared.</p><h3 id="sec:export"><a href="#sec:export">export</a></h3><pre>[declaration specifier] (export IDENTIFIER ...)</pre><p>The opposite of <tt>hide</tt>. All given identifiers will be exported and all toplevel variables not listed will be hidden and not be accessible outside of this compilation unit.</p><h3 id="sec:emit-external-prototypes-first"><a href="#sec:emit-external-prototypes-first">emit-external-prototypes-first</a></h3><pre>[declaration specifier] (emit-external-prototypes-first)</pre><p>Emit prototypes for callbacks defined with <tt>define-external</tt> before any other foreign declarations. Equivalent to giving the <tt>-emit-external-prototypes-first</tt> option to the compiler.</p><h3 id="sec:disable-interrupts"><a href="#sec:disable-interrupts">disable-interrupts</a></h3><pre>[declaration specifier] (disable-interrupts)</pre><p>Disable timer-interrupts checks in the compiled program. Threads can not be preempted in main- or library-units that contain this declaration.</p><h3 id="sec:emit-import-library"><a href="#sec:emit-import-library">emit-import-library</a></h3><pre>[declaration specifier] (emit-import-library MODULENAME | (MODULENAME FILENAME) ...)</pre><p>Declares that any following definition of a module named <tt>MODULENAME</tt> should be written to an external file (either a specified one or a file named <tt>&quot;MODULENAME.import.scm&quot;</tt>). The compiler option <tt>-emit-import-library</tt> may also be used instead.</p><p>Note that the import library is only generated if it cannot be found in the current directory, or if it exists but is not equal to the one that would be generated.</p><h3 id="sec:inline"><a href="#sec:inline">inline</a></h3><pre>[declaration specifier] (inline) [declaration specifier] (not inline) [declaration specifier] (inline IDENTIFIER ...) [declaration specifier] (not inline IDENTIFIER ...)</pre><p>If given without an identifier-list, inlining of known procedures is enabled (this is equivalent to the <tt>-inline</tt> compiler option). When an identifier-list is given, then inlining is enabled only for the specified global procedures. The negated forms <tt>(not inline)</tt> and <tt>(not inline IDENTIFIER)</tt> disable global inlining, or inlining for the given global procedures only, respectively.</p><h3 id="sec:inline-global"><a href="#sec:inline-global">inline-global</a></h3><pre> [declaration specifier] (inline-global) [declaration specifier] (not inline-global) [declaration specifier] (inline-global IDENTIFIER ...) [declaration specifier] (not inline-global IDENTIFIER ...)</pre><p>Declare that then given toplevel procedures (or all) are subject to cross-module inlining. Potentially inlinable procedures in the current compilation unit will be written to an external <tt>&lt;source-filename&gt;.inline</tt> file in the current directory. Globally inlinable procedures from other compilation units referred to via <tt>(declare (uses ...))</tt> or <tt>require-extension</tt> are loaded from <tt>.inline</tt> files (if available in the current include path) and inlined in the current compilation unit.</p><p>Enabling global inlining implies <tt>(declare (inline))</tt>.</p><h3 id="sec:inline-limit"><a href="#sec:inline-limit">inline-limit</a></h3><pre>[declaration specifier] (inline-limit THRESHOLD)</pre><p>Sets the maximum size of procedures which may potentially be inlined. The default threshold is <tt>20</tt>.</p><h3 id="sec:keep-shadowed-macros"><a href="#sec:keep-shadowed-macros">keep-shadowed-macros</a></h3><pre>[declaration specifier] (keep-shadowed-macros)</pre><p>Normally, when a toplevel variable is assigned or defined that has the same name as a macro, the macro-definition will be removed (in addition to showing a warning). This declaration will disable the removal of the macro.</p><h3 id="sec:local"><a href="#sec:local">local</a></h3><pre>[declaration specifier] (local) [declaration specifier] (local IDENTIFIER ...)</pre><p>Declares that the listed (or all) toplevel variables defined in the current compilation unit are not modified from code outside of this compilation unit. See also the documentation for the <tt>-local</tt> compiler option about the implications of this.</p><h3 id="sec:no-argc-checks"><a href="#sec:no-argc-checks">no-argc-checks</a></h3><pre>[declaration specifier] (no-argc-checks)</pre><p>Disables argument count checking.</p><h3 id="sec:no-bound-checks"><a href="#sec:no-bound-checks">no-bound-checks</a></h3><pre>[declaration specifier] (no-bound-checks)</pre><p>Disables the bound-checking of toplevel bindings.</p><h3 id="sec:no-procedure-checks"><a href="#sec:no-procedure-checks">no-procedure-checks</a></h3><pre>[declaration specifier] (no-procedure-checks)</pre><p>Disables checking of values in operator position for being of procedure type.</p><h3 id="sec:no-procedure-checks-for-usual-bindings"><a href="#sec:no-procedure-checks-for-usual-bindings">no-procedure-checks-for-usual-bindings</a></h3><pre>[declaration specifier] (no-procedure-checks-for-usual-bindings)</pre><p>Disables checking of procedures for the default standard- and extended toplevel bindings.</p><h3 id="sec:no-procedure-checks-for-toplevel-bindings"><a href="#sec:no-procedure-checks-for-toplevel-bindings">no-procedure-checks-for-toplevel-bindings</a></h3><pre>[declaration specifier] (no-procedure-checks-for-toplevel-bindings)</pre><p>Disables checking of procedures for calls to procedures referenced via a toplevel variable (calls to explicitly named procedures).</p><h3 id="sec:predicate"><a href="#sec:predicate">predicate</a></h3><pre>[declaration specifier] (predicate (IDENTIFIER TYPE) ...)</pre><p>Marks the global procedure <tt>IDENTIFIER</tt> as a predicate on <tt>TYPE</tt>.</p><h3 id="sec:profile"><a href="#sec:profile">profile</a></h3><pre>[declaration specifier] (profile IDENTIFIER ...)</pre><p>Enable profiling exclusively for given identifiers. Normally the compiler enables profiling decorations for all globally defined procedures. With this declaration, profiling can be enabled for selected procedures.</p><h3 id="sec:pure"><a href="#sec:pure">pure</a></h3><pre>[declaration specifier] (pure IDENTIFIER ...)</pre><p>Declares the procedures with the names <tt>IDENTIFIER ...</tt> as referentially transparent, that is, as not having any side effects. This can help the compiler to remove non-side-effecting expressions.</p><h3 id="sec:number-type"><a href="#sec:number-type">number-type</a></h3><h3 id="sec:fixnum-arithmetic"><a href="#sec:fixnum-arithmetic">fixnum-arithmetic</a></h3><pre>[declaration specifier] ([number-type] TYPE) [declaration specifier] (fixnum-arithmetic)</pre><p>Declares that only numbers of the given type are used. <tt>TYPE</tt> may be <tt>fixnum</tt> or <tt>generic</tt> (which is the default).</p><h3 id="sec:compile-syntax"><a href="#sec:compile-syntax">compile-syntax</a></h3><pre>[declaration specifier] (compile-syntax)</pre><p>Equivalent to the compiler option of the same name - macros defined in the compiled code are also made available at runtime.</p><h3 id="sec:safe-globals"><a href="#sec:safe-globals">safe-globals</a></h3><pre>[declaration specifier] (safe-globals)</pre><p>Assumes variables assigned in the current compilation unit are always bound and that any calls to these variables can always be assumed to be calls to proper procedures.</p><h3 id="sec:specialize"><a href="#sec:specialize">specialize</a></h3><pre>[declaration specifier] (specialize)</pre><p>Enables specialization. This is equivalent to passing the <tt>-specialize</tt> option to the compiler.</p><h3 id="sec:standard-bindings"><a href="#sec:standard-bindings">standard-bindings</a></h3><pre>[declaration specifier] (standard-bindings IDENTIFIER ...) [declaration specifier] (not standard-bindings IDENTIFIER ...)</pre><p>Declares that all given standard procedures (or all if no symbols are specified) are never globally redefined. If <tt>not</tt> is specified, then all but the given standard bindings are assumed to be never redefined.</p><h3 id="sec:strict-types"><a href="#sec:strict-types">strict-types</a></h3><pre>[declaration specifier] (strict-types)</pre><p>Declares that the type of variables is not changed by assignment. Equivalent to giving the <tt>-strict-types</tt> compiler option.</p><h3 id="sec:type"><a href="#sec:type">type</a></h3><pre> [declaration specifier] (type (IDENTIFIER TYPE) ...)</pre><p>Declares toplevel procedures to have a specific type for scrutiny. <tt>IDENTIFIER</tt> should name a toplevel variable and <tt>TYPE</tt> should be a type specification. A type-declaration overrides any previous declaration for the same identifier. See also <a href="Types.html">Types</a> for more information about using types, the syntax of type-specifiers and a more convenient type-declaration syntax (<tt>:</tt>).</p><h3 id="sec:extended-bindings"><a href="#sec:extended-bindings">extended-bindings</a></h3><pre>[declaration specifier] (extended-bindings IDENTIFIER ...) [declaration specifier] (not extended-bindings IDENTIFIER ...)</pre><p>Declares that all given non-standard and CHICKEN-specific procedures (or all if no symbols are specified) are never globally redefined. If <tt>not</tt> is specified, then all but the given extended bindings are assumed to be never redefined.</p><h3 id="sec:usual-integrations"><a href="#sec:usual-integrations">usual-integrations</a></h3><pre>[declaration specifier] (usual-integrations IDENTIFIER ...) [declaration specifier] (not usual-integrations IDENTIFIER ...)</pre><p>Declares that all given standard and extended bindings (or all if no symbols are specified) are never globally redefined. If <tt>not</tt> is specified, then all but the given standard and extended bindings are assumed to be never redefined. Note that this is the default behaviour, unless the <tt>-no-usual-integrations</tt> option has been given.</p><h3 id="sec:unit"><a href="#sec:unit">unit</a></h3><pre>[declaration specifier] (unit IDENTIFIER)</pre><p>Specify compilation unit-name (if this is a library)</p><h3 id="sec:unsafe"><a href="#sec:unsafe">unsafe</a></h3><pre>[declaration specifier] (unsafe) [declaration specifier] (not safe)</pre><p>Do not generate safety-checks. This is the same as specifying the <tt>-unsafe</tt> option. Also implies</p><pre>(declare (no-bound-checks) (no-procedure-checks) (no-argc-checks))</pre><h3 id="sec:unused"><a href="#sec:unused">unused</a></h3><pre>[declaration specifier] (unused IDENTIFIER ...)</pre><p>Disables any warnings when the global variable <tt>IDENTIFIER</tt> is not defined but used, or defined but never used and not exported.</p><h3 id="sec:uses"><a href="#sec:uses">uses</a></h3><pre>[declaration specifier] (uses IDENTIFIER ...)</pre><p>Gives a list of used library-units. Before the toplevel-expressions of the main-module are executed, all used units evaluate their toplevel-expressions in the order in which they appear in this declaration. If a library unit A uses another unit B, then B's toplevel expressions are evaluated before A's. Furthermore, the used symbols are registered as features during compile-time, so <tt>cond-expand</tt> knows about them.</p><hr /><p>Previous: <a href="Types.html">Types</a></p><p>Next: <a href="Extensions.html">Extensions</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/The User's Manual.html����������������������������������������������������0000644�0001750�0001750�00000005333�13502230004�021074� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; The User's Manual</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:The_CHICKEN_User.27s_Manual"><a href="#sec:The_CHICKEN_User.27s_Manual">The CHICKEN User's Manual</a></h2><p>This is the manual for CHICKEN Scheme, version 5.1.0</p><ul><li><a href="Getting%20started.html">Getting started</a> : What is CHICKEN and how do I use it?</li> <li><a href="Using%20the%20interpreter.html">Using the interpreter</a> : How to use the interactive interpreter, <tt>csi</tt></li> <li><a href="Using%20the%20compiler.html">Using the compiler</a> : How to use the batch compiler</li> <li><a href="Deviations%20from%20the%20standard.html">Deviations from the standard</a> : Where CHICKEN deviates from R5RS</li> <li><a href="Extensions%20to%20the%20standard.html">Extensions to the standard</a> : Extensions to R5RS that CHICKEN provides</li> <li><a href="Debugging.html">Debugging</a> : Using the &quot;feathers&quot; debugger to inspect running CHICKEN programs.</li> <li><a href="Included%20modules.html">Included modules</a> : A reference to CHICKEN's core module library</li> <li><a href="Interface%20to%20external%20functions%20and%20variables.html">Interface to external functions and variables</a> : Accessing C/C++ code and data</li> <li><a href="Modules.html">Modules</a> : How CHICKEN manages namespaces</li> <li><a href="Types.html">Types</a> : Optionally typed Scheme code</li> <li><a href="Declarations.html">Declarations</a> : Compiler declarations</li> <li><a href="Extensions.html">Extensions</a> : Packaging and installing extension libraries</li> <li><a href="Extension%20tools.html">Extension tools</a> : <tt>chicken-[un]install</tt> and <tt>chicken-status</tt></li> <li><a href="Egg%20specification%20format.html">Egg specification format</a> : Format of egg description files</li> <li><a href="Units%20and%20linking%20model.html">Units and linking model</a> : How Scheme compilation units are mapped to C</li> <li><a href="Deployment.html">Deployment</a> : How to distribute and ship CHICKEN programs and libraries</li> <li><a href="Cross%20development.html">Cross development</a> : Using CHICKEN to cross-compile for other architectures</li> <li><a href="Bugs%20and%20limitations.html">Bugs and limitations</a> : Things that do not work yet.</li> <li><a href="Acknowledgements.html">Acknowledgements</a> : A list of some of the people that have contributed to make CHICKEN what it is</li> <li><a href="Bibliography.html">Bibliography</a> : Links to documents that may be of interest</li> </ul> </div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken plist).html�����������������������������������������������0000644�0001750�0001750�00000011100�13502230004�022061� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken plist)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_plist.29">Module (chicken plist)</a> <ul> <li><a href="#sec:get">get</a></li> <li><a href="#sec:put.21">put!</a></li> <li><a href="#sec:remprop.21">remprop!</a></li> <li><a href="#sec:symbol-plist">symbol-plist</a></li> <li><a href="#sec:get-properties">get-properties</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_plist.29"><a href="#sec:Module_.28chicken_plist.29">Module (chicken plist)</a></h2><p>As in other Lisp dialects, CHICKEN supports &quot;property lists&quot; associated with symbols. Properties are accessible via a key that can be any kind of value but which will be compared using <tt>eq?</tt>.</p><h3 id="sec:get"><a href="#sec:get">get</a></h3> <dl class="defsig"> <dt class="defsig" id="def:get"><span class="sig"><var class="id">get</var> <var class="arg">SYMBOL</var> <var class="arg">PROPERTY</var> <var class="dsssl">#!optional</var> <var class="arg">DEFAULT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the value stored under the key <var class="arg">PROPERTY</var> in the property list of <var class="arg">SYMBOL</var>. If no such property is stored, returns <var class="arg">DEFAULT</var>. The <var class="arg">DEFAULT</var> is optional and defaults to <tt>#f</tt>.</p></dd></dl><h3 id="sec:put.21"><a href="#sec:put.21">put!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:put.21"><span class="sig"><var class="id">put!</var> <var class="arg">SYMBOL</var> <var class="arg">PROPERTY</var> <var class="arg">VALUE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (get SYMBOL PROPERTY) VALUE)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores <var class="arg">VALUE</var> under the key <var class="arg">PROPERTY</var> in the property list of <var class="arg">SYMBOL</var> replacing any previously stored value.</p></dd></dl><h3 id="sec:remprop.21"><a href="#sec:remprop.21">remprop!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:remprop.21"><span class="sig"><var class="id">remprop!</var> <var class="arg">SYMBOL</var> <var class="arg">PROPERTY</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Deletes the first property matching the key <var class="arg">PROPERTY</var> in the property list of <var class="arg">SYMBOL</var>. Returns <tt>#t</tt> when a deletion performed, and <tt>#f</tt> otherwise.</p></dd></dl><h3 id="sec:symbol-plist"><a href="#sec:symbol-plist">symbol-plist</a></h3> <dl class="defsig"> <dt class="defsig" id="def:symbol-plist"><span class="sig"><var class="id">symbol-plist</var> <var class="arg">SYMBOL</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">symbol-plist</var> <var class="arg">SYMBOL</var>) <var class="arg">LST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the property list of <var class="arg">SYMBOL</var> or sets it. The property list is a flat list of alternating properties and values.</p><p>This list is not guaranteed to be a fresh copy, so avoid mutating it directly.</p></dd></dl><h3 id="sec:get-properties"><a href="#sec:get-properties">get-properties</a></h3> <dl class="defsig"> <dt class="defsig" id="def:get-properties"><span class="sig"><var class="id">get-properties</var> <var class="arg">SYMBOL</var> <var class="arg">PROPERTIES</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Searches the property list of <var class="arg">SYMBOL</var> for the first property with a key in the list <var class="arg">PROPERTIES</var>. Returns 3 values: the matching property key, value, and the tail of property list after the matching property. When no match found all values are <tt>#f</tt>.</p><p>This tail of the property list is not guaranteed to be a fresh copy, so avoid mutating it directly.</p><p><var class="arg">PROPERTIES</var> may also be an atom, in which case it is treated as a list of one element.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20platform%29.html">Module (chicken platform)</a></p><p>Next: <a href="Module%20%28chicken%20port%29.html">Module (chicken port)</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Getting started.html������������������������������������������������������0000644�0001750�0001750�00000070545�13502230005�021065� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Getting started</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Getting_started_"><a href="#sec:Getting_started_">Getting started </a></h2><p>CHICKEN is a compiler that translates Scheme source files into C, which in turn can be fed to a C compiler to generate a standalone executable. An interpreter is also available and can be used as a scripting environment or for testing programs before compilation.</p><p>This chapter is designed to get you started with CHICKEN programming, describing what it is and what it will do for you, and covering basic use of the system. With almost everything discussed here, there is more to the story, which the remainder of the manual reveals. Here, we only cover enough to get you started. Nonetheless, someone who knows Scheme already should be able to use this chapter as the basis for writing and running small CHICKEN programs.</p><h3 id="sec:Scheme"><a href="#sec:Scheme">Scheme</a></h3><p>Scheme is a member of the Lisp family of languages, of which Common Lisp, Emacs Lisp and Clojure are other widely-known members. As with Lisp dialects, Scheme features</p><ul><li>a wide variety of programming paradigms, including imperative, functional, and object-oriented</li> <li>a very simple syntax, based upon nested parenthesization </li> <li>the ability to extend the language in meaningful and useful ways</li> </ul> <p>In contrast to Common Lisp, Scheme is very minimal, and tries to include only those features absolutely necessary in programming. In contrast to Emacs Lisp, Scheme is not anchored into a single program (Emacs), and has a more modern and elegant language design. In contrast to Clojure, Scheme provides only a very minimal set of concepts but allows them to be used in very general ways with few restrictions.</p><p>Scheme is defined in a document called <i>The Revised^5 Report on the Algorithmic Language Scheme</i>, or <i>R5RS</i> for short. (Yes, it really has been revised five times, so an expanded version of its name would be <i>The Revised Revised Revised Revised Revised Report</i>.) A newer report, <i>R6RS</i>, was released in 2007, but this report has attracted considerable controversy, and a number of Scheme implementations have chosen not to be compliant with it. Yet another report was released in 2013 (&quot;R7RS&quot;), that was less ambitious than R6RS and more minimal.</p><p>CHICKEN fully complies with R5RS and, by using a separately available extension also with the &quot;R7RS small&quot; language.</p><p>Even though Scheme is consciously minimalist, it is recognized that a language must be more than a minimal core in order to be useful. Accordingly, the Scheme community uses a process known as `Scheme Requests For Implementation' (SRFI, pronounced `SUR-fee') to define new language features. A typical Scheme system therefore complies with one of the Scheme reports plus some or all of the accepted SRFIs.</p><p>A good starting point for Scheme knowledge is <a href="http://www.schemers.org">http://www.schemers.org</a>. There you will find the defining reports, FAQs, lists of useful books and other resources, and the SRFIs.</p><h3 id="sec:CHICKEN"><a href="#sec:CHICKEN">CHICKEN</a></h3><p>CHICKEN Scheme combines an optimising compiler with a reasonably fast interpreter. It supports almost all of R7RS and the important SRFIs. The compiler generates portable C code that supports tail recursion, first-class continuations and lightweight threads, and the interface to and from C libraries is flexible, efficient, and easy to use. There are hundreds of contributed CHICKEN libraries that make the programmer's task easier. The interpreter allows interactive use, fast prototyping, debugging, and scripting. The active and helpful CHICKEN community fixes bugs and provides support. Extensive documentation is supplied.</p><p>CHICKEN was developed by Felix L. Winkelmann over the period from 2000 through 2007. In early 2008, Felix asked the community to take over the responsibility of developing and maintaining the system, though he still takes a strong interest in it, and participates actively.</p><p>CHICKEN includes</p><ul><li>a Scheme interpreter that supports all of R5(7)RS Scheme, with only a few relatively minor omissions, and with many extensions</li> <li>a compatible compiler whose target is C, thus making porting to new machines and architectures relatively straightforward</li> <li>the C support allows Scheme code to include `embedded' C code, thus making it easy to invoke host OS or library functions</li> <li>a framework for language extensions, library modules that broaden the functionality of the system</li> </ul> <p>This package is distributed under the <b>BSD license</b> and as such is free to use and modify as long as the original authors are acknowledged.</p><p>Scheme cognoscenti will appreciate the method of compilation and the design of the runtime-system, which follow closely Henry Baker's <a href="http://home.pipeline.com/~hbaker1/CheneyMTA.html">CONS Should Not CONS Its Arguments, Part II: Cheney on the M.T.A.</a> paper and expose a number of interesting properties.</p><ul><li>Consing (creation of data on the heap) is inexpensive, because a generational garbage collection scheme is used in combination with allocating on the C stack, in which short-lived data structures are reclaimed extremely quickly.</li> <li>Moreover, <tt>call-with-current-continuation</tt> involves only minimal overhead and CHICKEN does not suffer under any performance penalties if first-class continuations are used in complex ways.</li> </ul> <p>The generated C code fully supports tail-call optimization (TCO).</p><p>Some of the features supported by CHICKEN:</p><ul><li>Lightweight threads based on first-class continuations</li> <li>Record structures</li> <li>Extended comment- and string-literal syntaxes</li> <li>Libraries for regular expressions, string handling</li> <li>UNIX system calls and extended data structures</li> <li>Compiled C files can be easily distributed</li> <li>Allows the creation of fully self-contained statically linked executables</li> <li>On systems that support it, compiled code can be loaded dynamically</li> <li>Built-in support for cross-compilation</li> </ul> <p>CHICKEN has been used in many environments ranging from embedded systems through desktop machines to large-scale server deployments. The number of language extensions, or <b>eggs</b>, is constantly growing:</p><ul><li>extended language features</li> <li>development tools, such as documentation generators, debugging, and automated testing libraries</li> <li>interfaces to other languages such as Java, Python, and Objective-C</li> <li>interfaces to database systems, GUIs, and other libraries, </li> <li>network applications, such as servers and clients for ftp, smtp/pop3, irc, and http</li> <li>web servers and related tools, including URL parsing, HTML generation, AJAX, and HTTP session management</li> <li>data formats, including XML, JSON, and Unicode support</li> </ul> <p>This chapter provides you with an overview of the entire system, with enough information to get started writing and running small Scheme programs.</p><h3 id="sec:CHICKEN_repositories.2c_websites_and_community"><a href="#sec:CHICKEN_repositories.2c_websites_and_community">CHICKEN repositories, websites and community</a></h3><p>The master CHICKEN website is <a href="http://www.call-cc.org">http://www.call-cc.org</a>. Here you can find basic information about CHICKEN, downloads and pointers to other key resources.</p><p>The CHICKEN wiki (<a href="http://wiki.call-cc.org">http://wiki.call-cc.org</a>) contains the most current version of the User's manual, along with various tutorials and other useful documents. The list of eggs is at <a href="http://wiki.call-cc.org/egg-index">http://wiki.call-cc.org/egg-index</a>.</p><p>A very useful search facility for questions about procedures and syntax available for CHICKEN can be found at <a href="http://api.call-cc.org">http://api.call-cc.org</a>. The CHICKEN issue tracker is at <a href="http://bugs.call-cc.org">http://bugs.call-cc.org</a>.</p><p>The CHICKEN community has two major mailing lists. If you are a CHICKEN user, <tt>chicken-users</tt> (<a href="http://lists.nongnu.org/mailman/listinfo/chicken-users">http://lists.nongnu.org/mailman/listinfo/chicken-users</a>) will be of interest. The crew working on the CHICKEN system itself uses the very low-volume <tt>chicken-hackers</tt> list (<a href="http://lists.nongnu.org/mailman/listinfo/chicken-hackers">http://lists.nongnu.org/mailman/listinfo/chicken-hackers</a>) for communication. For other topic-specific mailing lists (e.g., announcements, security) and discussion groups, see <a href="http://wiki.call-cc.org/discussion-groups">http://wiki.call-cc.org/discussion-groups</a>.</p><p>There is also an IRC channel (<tt>#chicken</tt>) on <a href="http://freenode.net">Freenode</a>.</p><h3 id="sec:Installing_CHICKEN"><a href="#sec:Installing_CHICKEN">Installing CHICKEN</a></h3><p>CHICKEN is available as C sources. Refer to the <tt>README</tt> file in the distribution for instructions on installing it on your system.</p><p>Because it compiles to C, CHICKEN requires that a C compiler be installed on your system. (If you're not writing embedded C code, you can pretty much ignore the C compiler once you have installed it.)</p><ul><li>On a Linux system, a C toolchain (e.g., GCC, clang) should be installed as part of the basic operating system, or should be available through the package management system (e.g., APT, Synaptic, RPM, or Yum, depending upon your Linux distribution).</li> <li>On Macintosh OS X, you will need the XCode tools, which are installable from the App Store.</li> <li>On Windows, you have three choices:</li> <li>Cygwin (<a href="http://sourceware.org/cygwin/">http://sourceware.org/cygwin/</a>) provides a relatively full-featured Unix environment for Windows. CHICKEN works substantially the same in Cygwin and Unix.</li> <li>The GNU Compiler Collection has been ported to Windows, in the MinGW system (<a href="http://mingw.sourceforge.net">http://mingw.sourceforge.net</a>). Unlike Cygwin, executables produced with MinGW do not need the Cygwin DLLs in order to run. MSYS is a companion package to MinGW; it provides a minimum Unix-style development/build environment, again ported from free software.</li> <li>You can build CHICKEN either with MinGW alone or with MinGW plus MSYS. Both approaches produce a CHICKEN built against the mingw headers and libraries. The only difference is the environment where you actually run make. <tt>Makefile.mingw</tt> can be used in <tt>cmd.exe</tt> with the version of make that comes with mingw. <tt>Makefile.mingw-msys</tt> uses unix commands such as <tt>cp</tt> and <tt>rm</tt>. The end product is the same.</li> </ul> <p>Refer to the <tt>README</tt> file for the version you're installing for more information on the installation process.</p><p>Alternatively, third party packages in binary format are available. See <a href="http://wiki.call-cc.org/platforms">http://wiki.call-cc.org/platforms</a> for information about how to obtain them.</p><h3 id="sec:Development_environments"><a href="#sec:Development_environments">Development environments</a></h3><p>The simplest development environment is a text editor and terminal window (Windows: Command Prompt, OSX: Terminal, Linux/Unix: xterm) for using the interpreter and/or invoking the compiler. If you install one of the line editing extensions (e.g., <a href="http://wiki.call-cc.org/egg/readline">readline</a>, <a href="http://wiki.call-cc.org/egg/parley">parley</a>, <a href="http://wiki.call-cc.org/egg/linenoise">linenoise</a>), you have some useful command line editing features in the interpreter (e.g., Emacs or vi-compatible line editing, customization).</p><p>It will be helpful to use a text editor that knows Scheme; it can be painful with editors that don't do parenthesis matching and automatic indentation.</p><p>In the rest of this chapter, we'll assume that you are using an editor of your choice and a regular terminal window for executing your CHICKEN code.</p><h3 id="sec:The_Read-Eval-Print_loop"><a href="#sec:The_Read-Eval-Print_loop">The Read-Eval-Print loop</a></h3><p>To invoke the CHICKEN interpreter, you use the <tt>csi</tt> command.</p><pre>$ csi CHICKEN (c) 2008-2019, The CHICKEN Team (c) 2000-2007, Felix L. Winkelmann Version 5.0.0 (rev 6653dce) linux-unix-gnu-x86-64 [ 64bit dload ptables ]</pre><pre>#;1&gt;</pre><p>This brings up a brief banner, and then the prompt. You can use this pretty much like any other Scheme system, e.g.,</p><pre>#;1&gt; (define (twice f) (lambda (x) (f (f x)))) #;2&gt; ((twice (lambda (n) (* n 10))) 3) 300</pre><p>Suppose we have already created a file <tt>fact.scm</tt> containing a function definition.</p><pre>(define (fact n) (if (= n 0) 1 (* n (fact (- n 1)))))</pre><p>We can now load this file and try out the function.</p><pre>#;3&gt; (load &quot;fact.scm&quot;) ; loading fact.scm ... #;4&gt; (fact 3) 6</pre><p>The <b>read-eval-print loop</b> (<b>REPL</b>) is the component of the Scheme system that <i>reads</i> a Scheme expression, <i>eval</i>uates it, and <i>prints</i> out the result. The REPL's prompt can be customized (see the <a href="Using%20the%20interpreter.html">Using the interpreter</a>) but the default prompt, showing the number of the form, is quite convenient.</p><p>The REPL also supports debugging commands: input lines beginning with a <tt>,</tt> (comma) are treated as special commands. (See the <a href="Using%20the%20interpreter.html#sec:Toplevel_commands">full list</a>.)</p><h4 id="sec:Scripts"><a href="#sec:Scripts">Scripts</a></h4><p>You can use the interpreter to run a Scheme program from the command line. For the following example we create a program that does a quick search-and-replace on an input file; the arguments are a regular expression and a replacement string. First create a file to hold the &quot;data&quot; called <i>quickrep.dat</i> with your favorite editor holding these lines:</p><pre>xyzabcghi abxawxcgh foonly </pre><p>Next create the scheme code in a file called <i>quickrep.scm</i> with the following little program:</p> <pre class="highlight colorize"><span class="comment">;; irregex, the regular expression library, is one of the </span><span class="comment">;; libraries included with CHICKEN. </span><span class="paren1">(<span class="default">import <span class="paren2">(<span class="default">chicken irregex</span>)</span> <span class="paren2">(<span class="default">chicken io</span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">process-line line re rplc</span>)</span> <span class="paren2">(<span class="default">irregex-replace/all re line rplc</span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">quickrep re rplc</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">line <span class="paren5">(<span class="default">read-line</span>)</span></span>)</span></span>)</span> <span class="paren3">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren4">(<span class="default">not <span class="paren5">(<span class="default">eof-object? line</span>)</span></span>)</span> <span class="paren4">(<span class="default">begin <span class="paren5">(<span class="default">display <span class="paren6">(<span class="default">process-line line re rplc</span>)</span></span>)</span> <span class="paren5">(<span class="default">newline</span>)</span> <span class="paren5">(<span class="default">quickrep re rplc</span>)</span></span>)</span></span>)</span></span>)</span></span>)</span> <span class="comment">;;; Does a lousy job of error checking! </span><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">main args</span>)</span> <span class="paren2">(<span class="default">quickrep <span class="paren3">(<span class="default">irregex <span class="paren4">(<span class="default">car args</span>)</span></span>)</span> <span class="paren3">(<span class="default">cadr args</span>)</span></span>)</span></span>)</span></pre><p>To run it enter this in your shell:</p><pre>$ csi -ss quickrep.scm &lt;quickrep.dat 'a.*c' A xyzAghi Agh foonly </pre><p>The <tt>-ss</tt> option sets several options that work smoothly together to execute a script. You can make the command directly executable from the shell by inserting a <a href="Using%20the%20interpreter.html#sec:Writing_Scheme_scripts">shebang line</a> at the beginning of the program.</p><p>The <tt>-ss</tt> option arranges to call a procedure named <tt>main</tt>, with the command line arguments, packed in a list, as its arguments. (There are a number of ways this program could be made more idiomatic CHICKEN Scheme, see the rest of the manual for details.)</p><h3 id="sec:The_compiler_"><a href="#sec:The_compiler_">The compiler </a></h3><p>There are several reasons you might want to compile your code.</p><ul><li>Compiled code executes substantially faster than interpreted code.</li> <li>You might want to deploy an application onto machines where the users aren't expected to have CHICKEN installed: compiled applications can be self-contained.</li> <li>Compiled code can access external libraries written in lower-level languages that follow the C calling convention.</li> </ul> <p>The CHICKEN compiler is provided as the command <tt>chicken</tt>, but in almost all cases, you will want to use the <tt>csc</tt> command instead. <tt>csc</tt> is a convenient driver that automates compiling Scheme programs into C, compiling C code into object code, and linking the results into an executable file. (Note: in a Windows environment with Visual Studio, you may find that <tt>csc</tt> refers to Microsoft's C# compiler. There are a number of ways of sorting this out, of which the simplest is to rename one of the two tools, and/or to organize your <tt>PATH</tt> according to the task at hand.)</p><p>We can compile our factorial function, producing a file named <tt>fact.so</tt> (<i>shared object</i> in Linux-ese, the same file extension is used in Windows, rather than <tt>dll</tt>)</p><pre>chicken$ csc -shared fact.scm chicken$ csi -quiet #;1&gt; (load &quot;fact.so&quot;) ; loading fact.so ... #;2&gt; (fact 6) 720</pre><p>On any system, we can just compile a program directly into an executable. Here's a program that tells you whether its argument is a palindrome.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">import <span class="paren2">(<span class="default">chicken process-context</span>)</span></span>)</span> <span class="comment">; for &quot;command-line-arguments&quot; </span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">palindrome? x</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">check left right</span>)</span> <span class="paren3">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren4">(<span class="default">&gt;= left right</span>)</span> #t <span class="paren4">(<span class="default">and <span class="paren5">(<span class="default">char=? <span class="paren6">(<span class="default">string-ref x left</span>)</span> <span class="paren6">(<span class="default">string-ref x right</span>)</span></span>)</span> <span class="paren5">(<span class="default">check <span class="paren6">(<span class="default">add1 left</span>)</span> <span class="paren6">(<span class="default">sub1 right</span>)</span></span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default">check 0 <span class="paren3">(<span class="default">sub1 <span class="paren4">(<span class="default">string-length x</span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">arg <span class="paren4">(<span class="default">car <span class="paren5">(<span class="default">command-line-arguments</span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default">display <span class="paren3">(<span class="default">string-append arg <span class="paren4">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren5">(<span class="default">palindrome? arg</span>)</span> <span class="string">&quot; is a palindrome</span><span class="string">\n</span><span class="string">&quot;</span> <span class="string">&quot; isn&#x27;t a palindrome</span><span class="string">\n</span><span class="string">&quot;</span></span>)</span></span>)</span></span>)</span></span>)</span></pre><p>We can compile this program using <tt>csc</tt>, creating an executable named <tt>palindrome</tt>.</p><pre>$ csc -o palindrome palindrome.scm $ ./palindrome level level is a palindrome $ ./palindrome liver liver isn't a palindrome</pre><p>CHICKEN supports separate compilation, using some extensions to Scheme. Let's divide our palindrome program into a library module (<tt>pal-proc.scm</tt>) and a client module (<tt>pal-user.scm</tt>).</p><p>Here's the external library. We <tt>declare</tt> that <tt>pal-proc</tt> is a <i>unit</i>, which is the basis of separately-compiled modules in CHICKEN. (Units deal with separate compilation, but don't necessarily involve separated namespaces; namespaces can be implemented by <a href="Modules.html">modules</a>.)</p> <pre class="highlight colorize"><span class="comment">;;; Library pal-proc.scm </span><span class="paren1">(<span class="default">declare <span class="paren2">(<span class="default">unit pal-proc</span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">palindrome? x</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">check left right</span>)</span> <span class="paren3">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren4">(<span class="default">&gt;= left right</span>)</span> #t <span class="paren4">(<span class="default">and <span class="paren5">(<span class="default">char=? <span class="paren6">(<span class="default">string-ref x left</span>)</span> <span class="paren6">(<span class="default">string-ref x right</span>)</span></span>)</span> <span class="paren5">(<span class="default">check <span class="paren6">(<span class="default">add1 left</span>)</span> <span class="paren6">(<span class="default">sub1 right</span>)</span></span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default">check 0 <span class="paren3">(<span class="default">sub1 <span class="paren4">(<span class="default">string-length x</span>)</span></span>)</span></span>)</span></span>)</span></pre><p>Next we have some client code that <i>uses</i> this separately-compiled module.</p> <pre class="highlight colorize"><span class="comment">;;; Client pal-user.scm </span><span class="paren1">(<span class="default">declare <span class="paren2">(<span class="default">uses pal-proc</span>)</span></span>)</span> <span class="paren1">(<span class="default">import <span class="paren2">(<span class="default">chicken process-context</span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">arg <span class="paren4">(<span class="default">car <span class="paren5">(<span class="default">command-line-arguments</span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default">display <span class="paren3">(<span class="default">string-append arg <span class="paren4">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren5">(<span class="default">palindrome? arg</span>)</span> <span class="string">&quot; is a palindrome</span><span class="string">\n</span><span class="string">&quot;</span> <span class="string">&quot; isn&#x27;t a palindrome</span><span class="string">\n</span><span class="string">&quot;</span></span>)</span></span>)</span></span>)</span></span>)</span></pre><p>Now we can compile and link everything together. (We show the compile and link operations separately, but they can of course be combined into one command.)</p><pre>$ csc -c pal-proc.scm $ csc -c pal-user.scm $ csc -o pal-separate pal-proc.o pal-user.o $ ./pal-separate level level is a palindrome</pre><p>The &quot;unit&quot; mechanism is relatively low-level and requires some familiarity with underlying mechanism used to manage compilation units. See <a href="Units%20and%20linking%20model.html">Units and linking model</a> for more information.</p><h3 id="sec:Installing_an_egg"><a href="#sec:Installing_an_egg">Installing an egg</a></h3><p>Installing eggs is quite straightforward on systems that support dynamic loading (that would include *BSD, Linux, Mac OS X, Solaris, and Windows). The command <tt>chicken-install</tt> will fetch an egg from the master CHICKEN repository, and install it on your local system.</p><p>In this example, we install the <tt>uri-common</tt> egg, for parsing Uniform Resource Identifiers.</p><pre>$ chicken-install uri-common </pre><p><tt>chicken-install</tt> connects to a mirror of the egg repository and retrieves the egg contents. If the egg has any uninstalled dependencies, it recursively installs them. Then it builds the egg code and installs the resulting extension into the local CHICKEN repository.</p><p>Now we can use our new egg.</p><pre>#;1&gt; (import uri-common) ; loading /usr/lib/chicken/9/uri-common.import.so ... ; [... other loaded files omitted for clarity ...] #;2&gt; (uri-host (uri-reference &quot;http://www.foobar.org/blah&quot;)) &quot;www.foobar.org&quot;</pre><h3 id="sec:Accessing_C_libraries_"><a href="#sec:Accessing_C_libraries_">Accessing C libraries </a></h3><p>Because CHICKEN compiles to C, and because a foreign function interface is built into the compiler, interfacing to a C library is quite straightforward. This means that any facility available on the host system is accessible from CHICKEN, with more or less work.</p><p>Let's create a simple C library, to demonstrate how this works. Here we have a function that will compute and return the <b>n</b>th Fibonacci number. (This isn't a particularly good use of C here, because we could write this function just as easily in Scheme, but a real example would take far too much space here.)</p><pre>/* fib.c */ int fib(int n) { int prev = 0, curr = 1; int next; int i; for (i = 0; i &lt; n; i++) { next = prev + curr; prev = curr; curr = next; } return curr; } </pre><p>Now we can call this function from CHICKEN.</p><pre>;;; fib-user.scm (import (chicken foreign) (chicken format))</pre><pre>#&gt; extern int fib(int n); &lt;# (define xfib (foreign-lambda int &quot;fib&quot; int)) (do ((i 0 (+ i 1))) ((&gt; i 10)) (printf &quot;~A &quot; (xfib i))) (newline)</pre><p>The syntax <tt>#&gt;...&lt;#</tt> allows you to include literal C (typically external declarations) in your CHICKEN code. We access <tt>fib</tt> by defining a <tt>foreign-lambda</tt> for it, in this case saying that the function takes one integer argument (the <tt>int</tt> after the function name), and that it returns an integer result (the <tt>int</tt> before.) Now we can invoke <tt>xfib</tt> as though it were an ordinary Scheme function.</p><pre>$ gcc -c fib.c $ csc -o fib-user fib.o fib-user.scm $ ./fib-user 0 1 1 2 3 5 8 13 21 34 55 </pre><p>Those who are interfacing to substantial C libraries should consider using the <a href="http://wiki.call-cc.org/egg/bind">bind egg</a>.</p><hr /><p>Back to <a href="The%20User%27s%20Manual.html">The User's Manual</a></p><p>Next: <a href="Using%20the%20interpreter.html">Using the interpreter</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken locative).html��������������������������������������������0000644�0001750�0001750�00000012220�13502230006�022542� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken locative)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_locative.29">Module (chicken locative)</a> <ul> <li><a href="#sec:make-locative">make-locative</a></li> <li><a href="#sec:make-weak-locative">make-weak-locative</a></li> <li><a href="#sec:locative.3f">locative?</a></li> <li><a href="#sec:locative-ref">locative-ref</a></li> <li><a href="#sec:locative-set.21">locative-set!</a></li> <li><a href="#sec:locative-.3eobject">locative-&gt;object</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_locative.29"><a href="#sec:Module_.28chicken_locative.29">Module (chicken locative)</a></h2><p>A <i>locative</i> is an object that points to an element of a containing object, much like a <i>pointer</i> in low-level, imperative programming languages like <i>C</i>. The element can be accessed and changed indirectly, by performing access or change operations on the locative. The container object can be computed by calling the <tt>locative-&gt;object</tt> procedure.</p><p>Locatives may be passed to foreign procedures that expect pointer arguments.</p><p>The following procedures are provided by the <tt>(chicken locative)</tt> module.</p><h3 id="sec:make-locative"><a href="#sec:make-locative">make-locative</a></h3> <dl class="defsig"> <dt class="defsig" id="def:make-locative"><span class="sig"><var class="id">make-locative</var> <var class="arg">OBJ</var> <var class="dsssl">#!optional</var> <var class="arg">INDEX</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a locative that refers to the element of the non-immediate object <var class="arg">OBJ</var> at position <var class="arg">INDEX</var>. <var class="arg">OBJ</var> may be a vector, pair, string, blob, SRFI-4 number-vector, or record structure. <var class="arg">INDEX</var> should be a fixnum. <var class="arg">INDEX</var> defaults to 0.</p></dd></dl><h3 id="sec:make-weak-locative"><a href="#sec:make-weak-locative">make-weak-locative</a></h3> <dl class="defsig"> <dt class="defsig" id="def:make-weak-locative"><span class="sig"><var class="id">make-weak-locative</var> <var class="arg">OBJ</var> <var class="dsssl">#!optional</var> <var class="arg">INDEX</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a <i>weak</i> locative. Even though the locative refers to an element of a container object, the container object will still be reclaimed by garbage collection if no other references to it exist.</p></dd></dl><h3 id="sec:locative.3f"><a href="#sec:locative.3f">locative?</a></h3> <dl class="defsig"> <dt class="defsig" id="def:locative.3f"><span class="sig"><var class="id">locative?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a locative, or <tt>#f</tt> otherwise.</p></dd></dl><h3 id="sec:locative-ref"><a href="#sec:locative-ref">locative-ref</a></h3> <dl class="defsig"> <dt class="defsig" id="def:locative-ref"><span class="sig"><var class="id">locative-ref</var> <var class="arg">LOC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the element to which the locative <var class="arg">LOC</var> refers. If the containing object has been reclaimed by garbage collection, an error is signalled.</p><pre>(locative-ref (make-locative &quot;abc&quot; 1)) ==&gt; #\b</pre></dd></dl><h3 id="sec:locative-set.21"><a href="#sec:locative-set.21">locative-set!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:locative-set.21"><span class="sig"><var class="id">locative-set!</var> <var class="arg">LOC</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">locative-ref</var> <var class="arg">LOC</var>) <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the element to which the locative <var class="arg">LOC</var> refers to <var class="arg">X</var>. If the containing object has been reclaimed by garbage collection, an error is signalled.</p></dd></dl><h3 id="sec:locative-.3eobject"><a href="#sec:locative-.3eobject">locative-&gt;object</a></h3> <dl class="defsig"> <dt class="defsig" id="def:locative-.3eobject"><span class="sig"><var class="id">locative-&gt;object</var> <var class="arg">LOC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the object that contains the element referred to by <var class="arg">LOC</var> or <tt>#f</tt> if the container has been reclaimed by garbage collection.</p><pre>(locative-&gt;object (make-locative &quot;abc&quot; 1)) ==&gt; &quot;abc&quot;</pre></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20load%29.html">Module (chicken load)</a></p><p>Next: <a href="Module%20%28chicken%20memory%29.html">Module (chicken memory)</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken memory representation).html�������������������������������0000644�0001750�0001750�00000045503�13502230005�025300� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken memory representation)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_memory_representation.29">Module (chicken memory representation)</a> <ul> <li><a href="#sec:Extending_procedures_with_data">Extending procedures with data</a> <ul> <li><a href="#sec:extend-procedure">extend-procedure</a></li> <li><a href="#sec:extended-procedure.3f">extended-procedure?</a></li> <li><a href="#sec:procedure-data">procedure-data</a></li> <li><a href="#sec:set-procedure-data.21">set-procedure-data!</a></li></ul></li> <li><a href="#sec:Low-level_data_access">Low-level data access</a> <ul> <li><a href="#sec:vector-like.3f">vector-like?</a></li> <li><a href="#sec:block-ref">block-ref</a></li> <li><a href="#sec:block-set.21">block-set!</a></li> <li><a href="#sec:number-of-slots">number-of-slots</a></li> <li><a href="#sec:number-of-bytes">number-of-bytes</a></li> <li><a href="#sec:object-copy">object-copy</a></li></ul></li> <li><a href="#sec:Record_instance">Record instance</a> <ul> <li><a href="#sec:make-record-instance">make-record-instance</a></li> <li><a href="#sec:record-instance.3f">record-instance?</a></li> <li><a href="#sec:record-instance-type">record-instance-type</a></li> <li><a href="#sec:record-instance-length">record-instance-length</a></li> <li><a href="#sec:record-instance-slot">record-instance-slot</a></li> <li><a href="#sec:record-instance-slot-set.21">record-instance-slot-set!</a></li> <li><a href="#sec:record-.3evector">record-&gt;vector</a></li></ul></li> <li><a href="#sec:Magic">Magic</a> <ul> <li><a href="#sec:object-become.21">object-become!</a></li> <li><a href="#sec:mutate-procedure.21">mutate-procedure!</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_memory_representation.29"><a href="#sec:Module_.28chicken_memory_representation.29">Module (chicken memory representation)</a></h2><p>The procedures from this module operate on the in-memory representation of Scheme objects. These procedures <i>are</i> safe, so, for example, unlike the procedures from <tt>(chicken memory)</tt> these procedures <i>will</i> type-check and range-check their arguments, but you still need to know what you're doing because the effects may be surprising for the uninitiated.</p><h3 id="sec:Extending_procedures_with_data"><a href="#sec:Extending_procedures_with_data">Extending procedures with data</a></h3><h4 id="sec:extend-procedure"><a href="#sec:extend-procedure">extend-procedure</a></h4> <dl class="defsig"> <dt class="defsig" id="def:extend-procedure"><span class="sig"><var class="id">extend-procedure</var> <var class="arg">PROCEDURE</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a copy of the procedure <var class="arg">PROCEDURE</var> which contains an additional data slot initialized to <var class="arg">X</var>. If <var class="arg">PROCEDURE</var> is already an extended procedure, then its data slot is changed to contain <var class="arg">X</var> and the same procedure is returned. Signals an error when <var class="arg">PROCEDURE</var> is not a procedure.</p></dd></dl><h4 id="sec:extended-procedure.3f"><a href="#sec:extended-procedure.3f">extended-procedure?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:extended-procedure.3f"><span class="sig"><var class="id">extended-procedure?</var> <var class="arg">PROCEDURE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">PROCEDURE</var> is an extended procedure, or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:procedure-data"><a href="#sec:procedure-data">procedure-data</a></h4> <dl class="defsig"> <dt class="defsig" id="def:procedure-data"><span class="sig"><var class="id">procedure-data</var> <var class="arg">PROCEDURE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the data object contained in the extended procedure <var class="arg">PROCEDURE</var>, or <tt>#f</tt> if it is not an extended procedure.</p></dd></dl><h4 id="sec:set-procedure-data.21"><a href="#sec:set-procedure-data.21">set-procedure-data!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-procedure-data.21"><span class="sig"><var class="id">set-procedure-data!</var> <var class="arg">PROCEDURE</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the data object contained in the extended procedure <var class="arg">PROCEDURE</var> to <var class="arg">X</var>. Signals an error when <var class="arg">PROCEDURE</var> is not an extended procedure.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> foo <span class="paren2">(<span class="default">letrec <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">f <span class="paren5">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren6">(<span class="default"></span>)</span> <span class="paren6">(<span class="default">procedure-data x</span>)</span></span>)</span></span>)</span> <span class="paren4">(<span class="default">x #f</span>)</span> </span>)</span> <span class="paren3">(<span class="default">set! x <span class="paren4">(<span class="default">extend-procedure f 123</span>)</span></span>)</span> x</span>)</span> </span>)</span> <span class="paren1">(<span class="default">foo</span>)</span> ==&gt; 123 <span class="paren1">(<span class="default">set-procedure-data! foo &#x27;hello</span>)</span> <span class="paren1">(<span class="default">foo</span>)</span> ==&gt; hello</pre></dd></dl><h3 id="sec:Low-level_data_access"><a href="#sec:Low-level_data_access">Low-level data access</a></h3><p>These procedures operate with what are known as <i>vector-like objects</i>. A <i>vector-like object</i> is a vector, record structure, pair, symbol or keyword: it is an aggregation of other Scheme objects.</p><p>Note that strings and blobs are not considered vector-like (they are considered to be <i>byte vectors</i>, which are objects of mostly unstructured binary data).</p><h4 id="sec:vector-like.3f"><a href="#sec:vector-like.3f">vector-like?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:vector-like.3f"><span class="sig"><var class="id">vector-like?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> when <var class="arg">X</var> is a vector-like object, returns <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:block-ref"><a href="#sec:block-ref">block-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:block-ref"><span class="sig"><var class="id">block-ref</var> <var class="arg">VECTOR*</var> <var class="arg">INDEX</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the contents of the <var class="arg">INDEX</var>th slot of the vector-like object <var class="arg">VECTOR*</var>.</p></dd></dl><h4 id="sec:block-set.21"><a href="#sec:block-set.21">block-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:block-set.21"><span class="sig"><var class="id">block-set!</var> <var class="arg">VECTOR*</var> <var class="arg">INDEX</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (block-ref VECTOR* INDEX) X)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the contents of the <var class="arg">INDEX</var>th slot of the vector-like object <var class="arg">VECTOR*</var> to the value of <var class="arg">X</var>.</p></dd></dl><h4 id="sec:number-of-slots"><a href="#sec:number-of-slots">number-of-slots</a></h4> <dl class="defsig"> <dt class="defsig" id="def:number-of-slots"><span class="sig"><var class="id">number-of-slots</var> <var class="arg">VECTOR*</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of slots that the vector-like object <var class="arg">VECTOR*</var> contains.</p></dd></dl><h4 id="sec:number-of-bytes"><a href="#sec:number-of-bytes">number-of-bytes</a></h4> <dl class="defsig"> <dt class="defsig" id="def:number-of-bytes"><span class="sig"><var class="id">number-of-bytes</var> <var class="arg">BLOCK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of bytes that the object <var class="arg">BLOCK</var> contains. <var class="arg">BLOCK</var> may be any non-immediate value.</p></dd></dl><h4 id="sec:object-copy"><a href="#sec:object-copy">object-copy</a></h4> <dl class="defsig"> <dt class="defsig" id="def:object-copy"><span class="sig"><var class="id">object-copy</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Copies <var class="arg">X</var> recursively and returns the fresh copy. Objects allocated in static memory are copied back into garbage collected storage.</p></dd></dl><h3 id="sec:Record_instance"><a href="#sec:Record_instance">Record instance</a></h3><h4 id="sec:make-record-instance"><a href="#sec:make-record-instance">make-record-instance</a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-record-instance"><span class="sig"><var class="id">make-record-instance</var> <var class="arg">SYMBOL</var> <var class="arg">ARG1</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new instance of the record type <var class="arg">SYMBOL</var>, with its slots initialized to <tt>ARG1 ...</tt>. To illustrate:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define-record-type</span></i> point <span class="paren2">(<span class="default">make-point x y</span>)</span> point? <span class="paren2">(<span class="default">x point-x point-x-set!</span>)</span> <span class="paren2">(<span class="default">y point-y point-y-set!</span>)</span></span>)</span></pre><p>expands into something quite similar to:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">begin <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">make-point x y</span>)</span> <span class="paren3">(<span class="default">make-record-instance &#x27;point x y</span>)</span> </span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">point? x</span>)</span> <span class="paren3">(<span class="default">and <span class="paren4">(<span class="default">record-instance? x</span>)</span> <span class="paren4">(<span class="default">eq? &#x27;point <span class="paren5">(<span class="default">block-ref x 0</span>)</span></span>)</span> </span>)</span> </span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">point-x p</span>)</span> <span class="paren3">(<span class="default">block-ref p 1</span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">point-x-set! p x</span>)</span> <span class="paren3">(<span class="default">block-set! p 1 x</span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">point-y p</span>)</span> <span class="paren3">(<span class="default">block-ref p 2</span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">point-y-set! p y</span>)</span> <span class="paren3">(<span class="default">block-set! p 1 y</span>)</span></span>)</span> </span>)</span></pre></dd></dl><h4 id="sec:record-instance.3f"><a href="#sec:record-instance.3f">record-instance?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:record-instance.3f"><span class="sig"><var class="id">record-instance?</var> <var class="arg">X</var> <var class="dsssl">#!optional</var> <var class="arg">SYMBOL</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a record structure, or <tt>#f</tt> otherwise.</p><p>Further, returns <tt>#t</tt> if <var class="arg">X</var> is of type <var class="arg">SYMBOL</var>, or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:record-instance-type"><a href="#sec:record-instance-type">record-instance-type</a></h4> <dl class="defsig"> <dt class="defsig" id="def:record-instance-type"><span class="sig"><var class="id">record-instance-type</var> <var class="arg">RECORD</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns type symbol of the record structure <var class="arg">RECORD</var>. Signals an error if <var class="arg">RECORD</var> is not a record structure.</p></dd></dl><h4 id="sec:record-instance-length"><a href="#sec:record-instance-length">record-instance-length</a></h4> <dl class="defsig"> <dt class="defsig" id="def:record-instance-length"><span class="sig"><var class="id">record-instance-length</var> <var class="arg">RECORD</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns number of slots for the record structure <var class="arg">RECORD</var>. The record-instance type is not counted. Signals an error if <var class="arg">RECORD</var> is not a record structure.</p></dd></dl><h4 id="sec:record-instance-slot"><a href="#sec:record-instance-slot">record-instance-slot</a></h4> <dl class="defsig"> <dt class="defsig" id="def:record-instance-slot"><span class="sig"><var class="id">record-instance-slot</var> <var class="arg">RECORD</var> <var class="arg">INDEX</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the contents of the <var class="arg">INDEX</var>th slot of the record structure <var class="arg">RECORD</var>. The slot index range is the open interval <tt>[0 record-instance-length)</tt>. Signals an error if <var class="arg">RECORD</var> is not a record structure.</p></dd></dl><h4 id="sec:record-instance-slot-set.21"><a href="#sec:record-instance-slot-set.21">record-instance-slot-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:record-instance-slot-set.21"><span class="sig"><var class="id">record-instance-slot-set!</var> <var class="arg">RECORD</var> <var class="arg">INDEX</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><tt>(set! (record-instance-slot RECORD INDEX) X)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the <var class="arg">INDEX</var>th slot of the record structure <var class="arg">RECORD</var> to <var class="arg">X</var>. The slot index range is the open interval <tt>[0 record-instance-length)</tt>. Signals an error if <var class="arg">RECORD</var> is not a record structure.</p></dd></dl><h4 id="sec:record-.3evector"><a href="#sec:record-.3evector">record-&gt;vector</a></h4> <dl class="defsig"> <dt class="defsig" id="def:record-.3evector"><span class="sig"><var class="id">record-&gt;vector</var> <var class="arg">RECORD</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new vector with the type and the elements of the record structure <var class="arg">RECORD</var>. Signals an error if <var class="arg">RECORD</var> is not a record structure.</p></dd></dl><h3 id="sec:Magic"><a href="#sec:Magic">Magic</a></h3><h4 id="sec:object-become.21"><a href="#sec:object-become.21">object-become!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:object-become.21"><span class="sig"><var class="id">object-become!</var> <var class="arg">ALIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Changes the identity of the value of the car of each pair in <var class="arg">ALIST</var> to the value of the cdr. Neither value may be immediate (i.e. exact integers, characters, booleans or the empty list).</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> x <span class="string">&quot;i used to be a string&quot;</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> y &#x27;#<span class="paren2">(<span class="default">and now i am a vector</span>)</span></span>)</span> <span class="paren1">(<span class="default">object-become! <span class="paren2">(<span class="default">list <span class="paren3">(<span class="default">cons x y</span>)</span></span>)</span></span>)</span> x ==&gt; #<span class="paren1">(<span class="default">and now i am a vector</span>)</span> y ==&gt; #<span class="paren1">(<span class="default">and now i am a vector</span>)</span> <span class="paren1">(<span class="default">eq? x y</span>)</span> ==&gt; #t</pre><p>Note: this operation invokes a major garbage collection.</p><p>The effect of using <tt>object-become!</tt> on evicted data (see <tt>object-evict</tt>) is undefined.</p></dd></dl><h4 id="sec:mutate-procedure.21"><a href="#sec:mutate-procedure.21">mutate-procedure!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:mutate-procedure.21"><span class="sig"><var class="id">mutate-procedure!</var> <var class="arg">OLD</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Replaces the procedure <var class="arg">OLD</var> with the result of calling the one-argument procedure <var class="arg">PROC</var>. <var class="arg">PROC</var> will receive a copy of <var class="arg">OLD</var> that will be identical in behaviour to the result of <var class="arg">OLD</var>:</p> <pre class="highlight colorize"> <span class="comment">;;; Replace arbitrary procedure with tracing one: </span> <span class="paren1">(<span class="default">mutate-procedure! my-proc <span class="paren2">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren3">(<span class="default">new</span>)</span> <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> args <span class="paren4">(<span class="default">printf <span class="string">&quot;~s called with arguments: ~s~%&quot;</span> new args</span>)</span> <span class="paren4">(<span class="default">apply new args</span>)</span> </span>)</span> </span>)</span> </span>)</span></pre></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20memory%29.html">Module (chicken memory)</a></p><p>Next: <a href="Module%20%28chicken%20module%29.html">Module (chicken module)</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken keyword).html���������������������������������������������0000644�0001750�0001750�00000011063�13502230004�022422� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken keyword)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_keyword.29">Module (chicken keyword)</a> <ul> <li><a href="#sec:get-keyword">get-keyword</a></li> <li><a href="#sec:keyword.3f">keyword?</a></li> <li><a href="#sec:keyword-.3estring">keyword-&gt;string</a></li> <li><a href="#sec:string-.3ekeyword">string-&gt;keyword</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_keyword.29"><a href="#sec:Module_.28chicken_keyword.29">Module (chicken keyword)</a></h2><p>Keywords are written like symbols, but prefixed with <tt>#:</tt>. They evaluate to themselves. While they behave a lot like symbols in that they are interned when read and can be compared in constant time with <tt>eq?</tt>, they are a distinct type. In particular, they have no plist, they cannot be bound or assigned to and aren't <tt>eq?</tt> to a symbol with the same spelling. Procedures can use keywords to accept optional named parameters in addition to normal required parameters.</p><p>The parameter <tt>keyword-style</tt> and the compiler/interpreter option <tt>-keyword-style</tt> can be used to allow an additional keyword syntax, either compatible to Common LISP, or to DSSSL. As long as this parameter is set to <tt>#:suffix</tt>, CHICKEN conforms to <a href="http://srfi.schemers.org/srfi-88/srfi-88.html">SRFI-88</a>.</p><h4 id="sec:get-keyword"><a href="#sec:get-keyword">get-keyword</a></h4> <dl class="defsig"> <dt class="defsig" id="def:get-keyword"><span class="sig"><var class="id">get-keyword</var> <var class="arg">KEYWORD</var> <var class="arg">ARGLIST</var> <var class="dsssl">#!optional</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the argument from <var class="arg">ARGLIST</var> specified under the keyword <var class="arg">KEYWORD</var>. If the keyword is not found, then the zero-argument procedure <var class="arg">THUNK</var> is invoked and the result value is returned. If <var class="arg">THUNK</var> is not given, <tt>#f</tt> is returned.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">increase x . args</span>)</span> <span class="paren2">(<span class="default">+ x <span class="paren3">(<span class="default">get-keyword <span class="keyword">#:amount</span> args <span class="paren4">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren5">(<span class="default"></span>)</span> 1</span>)</span></span>)</span></span>)</span> </span>)</span> <span class="paren1">(<span class="default">increase 123</span>)</span> ==&gt; 124 <span class="paren1">(<span class="default">increase 123 <span class="keyword">#:amount</span> 10</span>)</span> ==&gt; 133</pre><p>Note: the <var class="arg">KEYWORD</var> may actually be any kind of object.</p></dd></dl><h4 id="sec:keyword.3f"><a href="#sec:keyword.3f">keyword?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:keyword.3f"><span class="sig"><var class="id">keyword?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a keyword, or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:keyword-.3estring"><a href="#sec:keyword-.3estring">keyword-&gt;string</a></h4> <dl class="defsig"> <dt class="defsig" id="def:keyword-.3estring"><span class="sig"><var class="id">keyword-&gt;string</var> <var class="arg">KEYWORD</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Transforms <var class="arg">KEYWORD</var> into a string.</p></dd></dl><h4 id="sec:string-.3ekeyword"><a href="#sec:string-.3ekeyword">string-&gt;keyword</a></h4> <dl class="defsig"> <dt class="defsig" id="def:string-.3ekeyword"><span class="sig"><var class="id">string-&gt;keyword</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a keyword with the name <var class="arg">STRING</var>.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20irregex%29.html">Module (chicken irregex)</a></p><p>Next: <a href="Module%20%28chicken%20load%29.html">Module (chicken load)</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Bugs and limitations.html�������������������������������������������������0000644�0001750�0001750�00000003260�13502230004�021762� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Bugs and limitations</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Bugs_and_limitations"><a href="#sec:Bugs_and_limitations">Bugs and limitations</a></h2><ul><li>Compiling large files takes too much time.</li> <li>If a known procedure has unused arguments, but is always called without those parameters, then the optimizer <i>repairs</i> the procedure in certain situations and removes the parameter from the lambda-list.</li> <li><tt>port-position</tt> currently works only for input ports.</li> <li>Leaf routine optimization can theoretically result in code that thrashes, if tight loops perform excessively many mutations. In practice this doesn't happen.</li> <li>Due to the header representation of block objects, the maximum size of a bytevector-like object (strings, blobs, srfi-4 vectors etc) is 2^24 bytes or 16MiB. On 64-bit machines the limit is less relevant, at 2^56 bytes, or 65536 TiB (64 PiB).</li> <li>Like above, the maximum size of vector-like objects is 2^24 slots on 32 bit machines and 2^56 slots on 64-bit machines.</li> <li>Bignums are represented by bytevector objects instead of vector-like objects due to the need to treat digits as opaque data. This limits bignums to a maximum value of 2^(2^27) on 32-bit machines and 2^(2^59) on 64-bit machines.</li> </ul> <hr /><p>Previous: <a href="Cross%20development.html">Cross development</a></p><p>Next: <a href="Acknowledgements.html">Acknowledgements</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Extensions to the standard.html�������������������������������������������0000644�0001750�0001750�00000036645�13502230005�023124� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Extensions to the standard</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Extensions_to_the_R5RS_standard">Extensions to the R5RS standard</a> <ul> <li><a href="#sec:Identifiers">Identifiers</a></li> <li><a href="#sec:Brackets_and_braces">Brackets and braces</a></li> <li><a href="#sec:Non-standard_procedures_and_syntax">Non-standard procedures and syntax</a> <ul> <li><a href="#sec:cond-expand">cond-expand</a></li></ul></li> <li><a href="#sec:User_defined_character_names">User defined character names</a></li> <li><a href="#sec:Special_characters_in_strings">Special characters in strings</a></li></ul></li> <li><a href="#sec:Non-standard_read_syntax">Non-standard read syntax</a> <ul> <li><a href="#sec:Escapes_in_symbols">Escapes in symbols</a></li> <li><a href="#sec:Multiline_Block_Comment">Multiline Block Comment</a></li> <li><a href="#sec:Expression_Comment">Expression Comment</a></li> <li><a href="#sec:External_Representation">External Representation</a></li> <li><a href="#sec:Location_Expression">Location Expression</a></li> <li><a href="#sec:Blob_literals">Blob literals</a></li> <li><a href="#sec:Keyword">Keyword</a></li> <li><a href="#sec:Multiline_String_Constant">Multiline String Constant</a></li> <li><a href="#sec:Multiline_String_Constant_with_Embedded_Expressions">Multiline String Constant with Embedded Expressions</a></li> <li><a href="#sec:Foreign_Declare">Foreign Declare</a></li> <li><a href="#sec:String_escape_sequences">String escape sequences</a></li> <li><a href="#sec:Bang">Bang</a></li> <li><a href="#sec:Case_Sensitive_Expression">Case Sensitive Expression</a></li> <li><a href="#sec:Case_Insensitive_Expression">Case Insensitive Expression</a></li> <li><a href="#sec:Conditional_Expansion">Conditional Expansion</a></li></ul></li></ul></div><h2 id="sec:Extensions_to_the_R5RS_standard"><a href="#sec:Extensions_to_the_R5RS_standard">Extensions to the R5RS standard</a></h2><h3 id="sec:Identifiers"><a href="#sec:Identifiers">Identifiers</a></h3><p>Identifiers may contain special characters if delimited with <tt>| ... |</tt>.</p><h3 id="sec:Brackets_and_braces"><a href="#sec:Brackets_and_braces">Brackets and braces</a></h3><p>The brackets <tt>[ ... ]</tt> and the braces <tt> { ... } </tt> are provided as an alternative syntax for <tt>( ... )</tt>. A number of reader extensions is provided.</p><h3 id="sec:Non-standard_procedures_and_syntax"><a href="#sec:Non-standard_procedures_and_syntax">Non-standard procedures and syntax</a></h3><p>CHICKEN provides numerous non-standard procedures. See the manual sections on the included library modules (<a href="Included%20modules.html">Included modules</a>) for more information. Here we only document <tt>cond-expand</tt> because it is always present in a module, even without imports.</p><h4 id="sec:cond-expand"><a href="#sec:cond-expand">cond-expand</a></h4> <dl class="defsig"> <dt class="defsig" id="def:cond-expand"><span class="sig"><tt>(cond-expand FEATURE-CLAUSE ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Expands by selecting feature clauses. This form is allowed to appear in non-toplevel expressions.</p><p>Predefined feature-identifiers are &quot;situation&quot; specific:</p><dl><dt>compile</dt> <dd><tt>chicken</tt>, <tt>compiling</tt>, <tt>library</tt>, <tt>eval</tt>, <tt>extras</tt>, <tt>regex</tt>, <tt>srfi-0</tt>, <tt>srfi-2</tt>, <tt>srfi-4</tt>, <tt>srfi-6</tt>, <tt>srfi-8</tt>, <tt>srfi-9</tt>, <tt>srfi-10</tt>, <tt>srfi-11</tt>, <tt>srfi-12</tt>, <tt>srfi-15</tt>, <tt>srfi-16</tt>, <tt>srfi-17</tt>, <tt>srfi-23</tt>, <tt>srfi-26</tt>, <tt>srfi-28</tt>, <tt>srfi-30</tt>, <tt>srfi-31</tt>, <tt>srfi-39</tt>, <tt>srfi-55</tt>, <tt>srfi-61</tt>, <tt>srfi-62</tt></dd><dt>load</dt> <dd><tt>chicken</tt>, <tt>extras</tt>, <tt>srfi-0</tt>, <tt>srfi-2</tt>, <tt>srfi-6</tt>, <tt>srfi-8</tt>, <tt>srfi-9</tt>, <tt>srfi-10</tt>, <tt>srfi-12</tt>, <tt>srfi-17</tt>, <tt>srfi-23</tt>, <tt>srfi-28</tt>, <tt>srfi-30</tt>, <tt>srfi-39</tt>, <tt>srfi-55</tt>, <tt>srfi-61</tt>, <tt>srfi-62</tt>. <tt>library</tt> is implicit.</dd><dt>eval</dt> <dd><tt>csi</tt>, <tt>chicken</tt>, <tt>extras</tt>, <tt>srfi-0</tt>, <tt>srfi-2</tt>, <tt>srfi-6</tt>, <tt>srfi-8</tt>, <tt>srfi-9</tt>, <tt>srfi-10</tt>, <tt>srfi-11</tt>, <tt>srfi-12</tt>, <tt>srfi-15</tt>, <tt>srfi-16</tt>, <tt>srfi-17</tt>, <tt>srfi-23</tt>, <tt>srfi-26</tt>, <tt>srfi-28</tt>, <tt>srfi-30</tt>, <tt>srfi-31</tt>, <tt>srfi-39</tt>, <tt>srfi-55</tt>, <tt>srfi-61</tt>, <tt>srfi-62</tt>. <tt>library</tt> is implicit.</dd></dl> <p>The following feature-identifier classes are available in all situations: <tt>(machine-byte-order)</tt>, <tt>(machine-type)</tt>, <tt>(software-type)</tt>, <tt>(software-version)</tt>, where the actual feature-identifier is platform dependent.</p><p>In addition the following feature-identifiers may exist: <tt>cross-chicken</tt>, <tt>dload</tt>, <tt>manyargs</tt>, <tt>ptables</tt>.</p><p>For further information, see the documentation for <a href="http://srfi.schemers.org/srfi-0/srfi-0.html">SRFI-0</a>.</p></dd></dl><h3 id="sec:User_defined_character_names"><a href="#sec:User_defined_character_names">User defined character names</a></h3><p>User defined character names are supported. See <tt>char-name</tt>. Characters can be given in hexadecimal notation using the <i>#\xXX</i> syntax where <i>XX</i> specifies the character code. Character codes above 255 are supported and can be read (and are written) using the <i>#\uXXXX</i> and <i>#\UXXXXXXXX</i> notations.</p><p>Non-standard characters names supported are <tt>#\tab</tt>, <tt>#\linefeed</tt>, <tt>#\return</tt>, <tt>#\alarm</tt>, <tt>#\vtab</tt>, <tt>#\nul</tt>, <tt>#\page</tt>, <tt>#\esc</tt>, <tt>#\delete</tt> and <tt>#\backspace</tt>.</p><h3 id="sec:Special_characters_in_strings"><a href="#sec:Special_characters_in_strings">Special characters in strings</a></h3><p>CHICKEN supports special characters preceded with a backslash <i>\</i> in quoted string constants. <i>\n</i> denotes the newline-character, <i>\r</i> carriage return, <i>\b</i> backspace, <i>\t</i> TAB, <i>\v</i> vertical TAB, <i>\a</i> alarm, <i>\f</i> formfeed, <i>\xXX</i> a character with the code <tt>XX</tt> in hex and <i>\uXXXX</i> (and <i>\UXXXXXXXX</i>) a unicode character with the code <tt>XXXX</tt>. The latter is encoded in UTF-8 format.</p><h2 id="sec:Non-standard_read_syntax"><a href="#sec:Non-standard_read_syntax">Non-standard read syntax</a></h2><h3 id="sec:Escapes_in_symbols"><a href="#sec:Escapes_in_symbols">Escapes in symbols</a></h3><p><tt>| ... |</tt> may be used to escape a sequence of characters when reading a symbol. <tt>\X</tt> escapes a single character in a symbols name:</p><pre> (symbol-&gt;string '|abc def|) =&gt; &quot;abc def&quot; (symbol-&gt;string '|abc||def|) =&gt; &quot;abcdef&quot; (symbol-&gt;string '|abc|xyz|def|) =&gt; &quot;abcxyzdef&quot; (symbol-&gt;string '|abc\|def|) =&gt; &quot;abc|def&quot; (symbol-&gt;string 'abc\ def) =&gt; &quot;abc def&quot;</pre><h3 id="sec:Multiline_Block_Comment"><a href="#sec:Multiline_Block_Comment">Multiline Block Comment</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23.7c"><span class="sig"><tt>#|</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre>#| ... |# </pre><p>A multiline <i>block</i> comment. May be nested. Implements <a href="http://srfi.schemers.org/srfi-30/srfi-30.html">SRFI-30</a>.</p></dd></dl><h3 id="sec:Expression_Comment"><a href="#sec:Expression_Comment">Expression Comment</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23.3b"><span class="sig"><tt>#;</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre>#;EXPRESSION</pre><p>Treats <tt>EXPRESSION</tt> as a comment. That is, the comment runs through the whole S-expression, regardless of newlines, which saves you from having to comment out every line, or add a newline in the middle of your parens to make the commenting of the last line work, or other things like that. Implements <a href="http://srfi.schemers.org/srfi-62/srfi-62.html">SRFI-62</a>.</p></dd></dl><h3 id="sec:External_Representation"><a href="#sec:External_Representation">External Representation</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23.2c"><span class="sig"><tt>#,</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre>#,(CONSTRUCTORNAME DATUM ...)</pre><p>Allows user-defined extension of external representations. (For more information see the documentation for <a href="http://srfi.schemers.org/srfi-10/srfi-10.html">SRFI-10</a>)</p></dd></dl><h3 id="sec:Location_Expression"><a href="#sec:Location_Expression">Location Expression</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.20.23.24EXPRESSION"><span class="sig"><tt> #$EXPRESSION</tt></span><span class="type">read</span></dt> <dd class="defsig"><p>An abbreviation for <tt>(location EXPRESSION)</tt>.</p></dd></dl><h3 id="sec:Blob_literals"><a href="#sec:Blob_literals">Blob literals</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23.24.7b"><span class="sig"><tt>#${</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre> #${ HEX ... }</pre><p>Syntax for literal &quot;blobs&quot; (byte-sequences). Expects hexadecimal digits and ignores any whitespace characters:</p><pre> #;1&gt; ,d '#${deadbee f} blob of size 4: 0: de ad be ef ....</pre></dd></dl><h3 id="sec:Keyword"><a href="#sec:Keyword">Keyword</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23:"><span class="sig"><tt>#:</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre>#:SYMBOL SYMBOL: :SYMBOL</pre><p>Syntax for keywords. Keywords are symbols that evaluate to themselves, and as such don't have to be quoted. Either <tt>SYMBOL:</tt> or <tt>:SYMBOL</tt> is accepted, depending on the setting of the <tt>keyword-style</tt> parameter, but never both. <tt>#:SYMBOL</tt> is always accepted.</p></dd></dl><h3 id="sec:Multiline_String_Constant"><a href="#sec:Multiline_String_Constant">Multiline String Constant</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23.3c.3c"><span class="sig"><tt>#&lt;&lt;</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre>#&lt;&lt;TAG</pre><p>Specifies a multiline string constant. Anything up to a line equal to <tt>TAG</tt> (or end of file) will be returned as a single string:</p><pre>(define msg #&lt;&lt;END &quot;Hello, world!&quot;, she said. END )</pre><p>is equivalent to</p><pre>(define msg &quot;\&quot;Hello, world!\&quot;, she said.&quot;)</pre></dd></dl><h3 id="sec:Multiline_String_Constant_with_Embedded_Expressions"><a href="#sec:Multiline_String_Constant_with_Embedded_Expressions">Multiline String Constant with Embedded Expressions</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23.3c.23"><span class="sig"><tt>#&lt;#</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre>#&lt;#TAG</pre><p>Similar to <tt>#&lt;&lt;</tt>, but allows substitution of embedded Scheme expressions prefixed with <tt>#</tt> and optionally enclosed in curly brackets. Two consecutive <tt>#</tt>s are translated to a single <tt>#</tt>:</p><pre>(define three 3) (display #&lt;#EOF This is a simple string with an embedded `##' character and substituted expressions: (+ three 99) ==&gt; #(+ three 99) (three is &quot;#{three}&quot;) EOF )</pre><p>prints</p><pre>This is a simple string with an embedded `#' character and substituted expressions: (+ three 99) ==&gt; 102 (three is &quot;3&quot;)</pre></dd></dl><h3 id="sec:Foreign_Declare"><a href="#sec:Foreign_Declare">Foreign Declare</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23.3e"><span class="sig"><tt>#&gt;</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre>#&gt; ... &lt;#</pre><p>Abbreviation for <tt>(foreign-declare &quot; ... &quot;)</tt>.</p></dd></dl><h3 id="sec:String_escape_sequences"><a href="#sec:String_escape_sequences">String escape sequences</a></h3><p>String-literals may contain the following escape sequences:</p><table> <tr><th>Escape sequence</th><th>Character</th></tr> <tr><td><tt>\n</tt></td><td>line feed / newline</td></tr> <tr><td><tt>\t</tt></td><td>tab</td></tr> <tr><td><tt>\r</tt></td><td>carriage return</td></tr> <tr><td><tt>\b</tt></td><td>backspace</td></tr> <tr><td><tt>\a</tt></td><td>bell</td></tr> <tr><td><tt>\v</tt></td><td>vertical tab</td></tr> <tr><td><tt>\f</tt></td><td>form feed</td></tr> <tr><td><tt>\x</tt><i>XX</i></td><td>hexadecimal 8-bit character code</td></tr> <tr><td><tt>\u</tt><i>XXXX</i></td><td>hexadecimal 16-bit Unicode character code</td></tr> <tr><td><tt>\U</tt><i>XXXXXXXX</i></td><td>hexadecimal 32-bit Unicode character code</td></tr> <tr><td><tt>\</tt><i>OOO</i></td><td>octal 8-bit character code</td></tr> <tr><td><tt>\|</tt>   <tt>\&quot;</tt>    <tt>\\</tt>    <tt>\'</tt></td><td>the escaped character</td></tr> </table> <h3 id="sec:Bang"><a href="#sec:Bang">Bang</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23.21"><span class="sig"><tt>#!</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre>#!... </pre><p>Interpretation depends on the directly following characters. Only the following are recognized. Any other case results in a read error.</p><dl><dt>Line Comment</dt> <dd>If followed by whitespace or a slash, then everything up the end of the current line is ignored</dd><dt>Eof Object</dt> <dd>If followed by the character sequence <tt>eof</tt>, then the (self-evaluating) end-of-file object is returned</dd><dt>DSSSL Formal Parameter List Annotation</dt> <dd>If followed by any of the character sequences <tt>optional</tt>, <tt>rest</tt> or <tt>key</tt>, then a symbol with the same name (and prefixed with <tt>#!</tt>) is returned</dd><dt>Read Mark Invocation</dt> <dd>If a <i>read mark</i> with the same name as the token is registered, then its procedure is called and the result of the read-mark procedure will be returned</dd></dl> </dd></dl><h3 id="sec:Case_Sensitive_Expression"><a href="#sec:Case_Sensitive_Expression">Case Sensitive Expression</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23cs"><span class="sig"><tt>#cs</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre>#cs...</pre><p>Read the next expression in case-sensitive mode (regardless of the current global setting).</p></dd></dl><h3 id="sec:Case_Insensitive_Expression"><a href="#sec:Case_Insensitive_Expression">Case Insensitive Expression</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23ci"><span class="sig"><tt>#ci</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre>#ci...</pre><p>Read the next expression in case-insensitive mode (regardless of the current global setting).</p></dd></dl><h3 id="sec:Conditional_Expansion"><a href="#sec:Conditional_Expansion">Conditional Expansion</a></h3> <dl class="defsig"> <dt class="defsig" id="def:.23.2b"><span class="sig"><tt>#+</tt></span><span class="type">read</span></dt> <dd class="defsig"><pre>#+FEATURE EXPR</pre><p>Rewrites to</p><pre>(cond-expand (FEATURE EXPR) (else))</pre><p>and performs the feature test at macroexpansion time. Therefore, it may not work as expected when used within a macro form.</p></dd></dl><hr /><p>Previous: <a href="Deviations%20from%20the%20standard.html">Deviations from the standard</a></p><p>Next: <a href="Debugging.html">Debugging</a></p></div></div></body>�������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken pathname).html��������������������������������������������0000644�0001750�0001750�00000024301�13502230004�022532� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken pathname)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_pathname.29">Module (chicken pathname)</a> <ul> <li><a href="#sec:absolute-pathname.3f">absolute-pathname?</a></li> <li><a href="#sec:decompose-pathname">decompose-pathname</a></li> <li><a href="#sec:make-pathname">make-pathname</a></li> <li><a href="#sec:make-absolute-pathname">make-absolute-pathname</a></li> <li><a href="#sec:pathname-directory">pathname-directory</a></li> <li><a href="#sec:pathname-file">pathname-file</a></li> <li><a href="#sec:pathname-extension">pathname-extension</a></li> <li><a href="#sec:pathname-replace-directory">pathname-replace-directory</a></li> <li><a href="#sec:pathname-replace-file">pathname-replace-file</a></li> <li><a href="#sec:pathname-replace-extension">pathname-replace-extension</a></li> <li><a href="#sec:pathname-strip-directory">pathname-strip-directory</a></li> <li><a href="#sec:pathname-strip-extension">pathname-strip-extension</a></li> <li><a href="#sec:normalize-pathname">normalize-pathname</a></li> <li><a href="#sec:directory-null.3f">directory-null?</a></li> <li><a href="#sec:decompose-directory">decompose-directory</a></li> <li><a href="#sec:Windows_specific_notes">Windows specific notes</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_pathname.29"><a href="#sec:Module_.28chicken_pathname.29">Module (chicken pathname)</a></h2><p>This module provides procedures for manipulating paths. If you want to operate on the files and directories which the paths represent, see <a href="Module%20%28chicken%20file%29.html">Module (chicken file)</a>.</p><h3 id="sec:absolute-pathname.3f"><a href="#sec:absolute-pathname.3f">absolute-pathname?</a></h3> <dl class="defsig"> <dt class="defsig" id="def:absolute-pathname.3f"><span class="sig"><var class="id">absolute-pathname?</var> <var class="arg">PATHNAME</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the string <var class="arg">PATHNAME</var> names an absolute pathname, and returns <tt>#f</tt> otherwise.</p></dd></dl><h3 id="sec:decompose-pathname"><a href="#sec:decompose-pathname">decompose-pathname</a></h3> <dl class="defsig"> <dt class="defsig" id="def:decompose-pathname"><span class="sig"><var class="id">decompose-pathname</var> <var class="arg">PATHNAME</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns three values: the directory-, filename- and extension-components of the file named by the string <var class="arg">PATHNAME</var>. For any component that is not contained in <var class="arg">PATHNAME</var>, <tt>#f</tt> is returned.</p></dd></dl><h3 id="sec:make-pathname"><a href="#sec:make-pathname">make-pathname</a></h3><h3 id="sec:make-absolute-pathname"><a href="#sec:make-absolute-pathname">make-absolute-pathname</a></h3> <dl class="defsig"> <dt class="defsig" id="def:make-pathname"><span class="sig"><var class="id">make-pathname</var> <var class="arg">DIRECTORY</var> <var class="arg">FILENAME</var> <var class="dsssl">#!optional</var> <var class="arg">EXTENSION</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:make-absolute-pathname"><span class="sig"><var class="id">make-absolute-pathname</var> <var class="arg">DIRECTORY</var> <var class="arg">FILENAME</var> <var class="dsssl">#!optional</var> <var class="arg">EXTENSION</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string that names the file with the components <tt>DIRECTORY, FILENAME</tt> and (optionally) <var class="arg">EXTENSION</var> with <tt>SEPARATOR</tt> being the directory separation indicator (usually <tt>/</tt> on UNIX systems and <tt>\</tt> on Windows, defaulting to whatever platform this is running on). <var class="arg">DIRECTORY</var> can be <tt>#f</tt> (meaning no directory component), a string or a list of strings. <var class="arg">FILENAME</var> and <var class="arg">EXTENSION</var> should be strings or <tt>#f</tt>. <tt>make-absolute-pathname</tt> returns always an absolute pathname.</p></dd></dl><h3 id="sec:pathname-directory"><a href="#sec:pathname-directory">pathname-directory</a></h3><h3 id="sec:pathname-file"><a href="#sec:pathname-file">pathname-file</a></h3><h3 id="sec:pathname-extension"><a href="#sec:pathname-extension">pathname-extension</a></h3> <dl class="defsig"> <dt class="defsig" id="def:pathname-directory"><span class="sig"><var class="id">pathname-directory</var> <var class="arg">PATHNAME</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:pathname-file"><span class="sig"><var class="id">pathname-file</var> <var class="arg">PATHNAME</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:pathname-extension"><span class="sig"><var class="id">pathname-extension</var> <var class="arg">PATHNAME</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Accessors for the components of <var class="arg">PATHNAME</var>. If the pathname does not contain the accessed component, then <tt>#f</tt> is returned.</p></dd></dl><h3 id="sec:pathname-replace-directory"><a href="#sec:pathname-replace-directory">pathname-replace-directory</a></h3><h3 id="sec:pathname-replace-file"><a href="#sec:pathname-replace-file">pathname-replace-file</a></h3><h3 id="sec:pathname-replace-extension"><a href="#sec:pathname-replace-extension">pathname-replace-extension</a></h3> <dl class="defsig"> <dt class="defsig" id="def:pathname-replace-directory"><span class="sig"><var class="id">pathname-replace-directory</var> <var class="arg">PATHNAME</var> <var class="arg">DIRECTORY</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:pathname-replace-file"><span class="sig"><var class="id">pathname-replace-file</var> <var class="arg">PATHNAME</var> <var class="arg">FILENAME</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:pathname-replace-extension"><span class="sig"><var class="id">pathname-replace-extension</var> <var class="arg">PATHNAME</var> <var class="arg">EXTENSION</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Return a new pathname with the specified component of <var class="arg">PATHNAME</var> replaced by a new value.</p></dd></dl><h3 id="sec:pathname-strip-directory"><a href="#sec:pathname-strip-directory">pathname-strip-directory</a></h3><h3 id="sec:pathname-strip-extension"><a href="#sec:pathname-strip-extension">pathname-strip-extension</a></h3> <dl class="defsig"> <dt class="defsig" id="def:pathname-strip-directory"><span class="sig"><var class="id">pathname-strip-directory</var> <var class="arg">PATHNAME</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:pathname-strip-extension"><span class="sig"><var class="id">pathname-strip-extension</var> <var class="arg">PATHNAME</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Return a new pathname with the specified component of <var class="arg">PATHNAME</var> stripped.</p></dd></dl><h3 id="sec:normalize-pathname"><a href="#sec:normalize-pathname">normalize-pathname</a></h3> <dl class="defsig"> <dt class="defsig" id="def:normalize-pathname"><span class="sig"><var class="id">normalize-pathname</var> <var class="arg">PATHNAME</var> <var class="dsssl">#!optional</var> <var class="arg">PLATFORM</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Performs a simple &quot;normalization&quot; on the <var class="arg">PATHNAME</var>, suitably for <var class="arg">PLATFORM</var>, which should be one of the symbols <tt>windows</tt> or <tt>unix</tt> and defaults to on whatever platform is currently in use. All relative path elements and duplicate separators are processed and removed. If <tt>NAME</tt> ends with a <tt>/</tt> or is empty, the appropriate slash is appended to the tail.</p><p>No directories or files are actually tested for existence; this procedure only canonicalises path syntax.</p></dd></dl><h3 id="sec:directory-null.3f"><a href="#sec:directory-null.3f">directory-null?</a></h3> <dl class="defsig"> <dt class="defsig" id="def:directory-null.3f"><span class="sig"><var class="id">directory-null?</var> <var class="arg">DIRECTORY</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Does the <var class="arg">DIRECTORY</var> consist only of path separators and the period?</p><p><var class="arg">DIRECTORY</var> may be a string or a list of strings.</p></dd></dl><h3 id="sec:decompose-directory"><a href="#sec:decompose-directory">decompose-directory</a></h3> <dl class="defsig"> <dt class="defsig" id="def:decompose-directory"><span class="sig"><var class="id">decompose-directory</var> <var class="arg">DIRECTORY</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns 3 values: the <tt>base-origin</tt>, <tt>base-directory</tt>, and the <tt>directory-elements</tt> for the <var class="arg">DIRECTORY</var>.</p><dl><dt><tt>base-origin</tt></dt> <dd>a <tt>string</tt> or <tt>#f</tt>. The drive, if any.</dd><dt><tt>base-directory</tt></dt> <dd>a <tt>string</tt> or <tt>#f</tt>. A directory-separator when <var class="arg">DIRECTORY</var> is an <tt>absolute-pathname</tt>.</dd><dt><tt>directory-elements</tt></dt> <dd>a <tt>list-of string</tt> or <tt>#f</tt>. The non-directory-separator bits.</dd></dl> <p><var class="arg">DIRECTORY</var> is a <tt>string</tt>.</p><ul><li>On Windows <tt>(decompose-directory &quot;c:foo/bar&quot;)</tt> =&gt; <tt>&quot;c:&quot; #f (&quot;foo&quot; &quot;bar&quot;)</tt></li> </ul> </dd></dl><h3 id="sec:Windows_specific_notes"><a href="#sec:Windows_specific_notes">Windows specific notes</a></h3><p>Use of UTF8 encoded strings for pathnames is not supported. Windows uses a 16-bit UNICODE encoding with special system calls for wide-character support. Only single-byte string encoding can be used.</p><hr /><p>Previous: <a href="Module%20%28chicken%20module%29.html">Module (chicken module)</a></p><p>Next: <a href="Module%20%28chicken%20platform%29.html">Module (chicken platform)</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken port).html������������������������������������������������0000644�0001750�0001750�00000047557�13502230005�021744� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken port)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_port.29">Module (chicken port)</a> <ul> <li><a href="#sec:Port_attributes">Port attributes</a> <ul> <li><a href="#sec:port-name">port-name</a></li> <li><a href="#sec:port-position">port-position</a></li> <li><a href="#sec:set-port-name.21">set-port-name!</a></li></ul></li> <li><a href="#sec:Setting_the_file_buffering_mode">Setting the file buffering mode</a> <ul> <li><a href="#sec:set-buffering-mode.21">set-buffering-mode!</a></li></ul></li> <li><a href="#sec:Terminal_ports">Terminal ports</a> <ul> <li><a href="#sec:terminal-name">terminal-name</a></li> <li><a href="#sec:terminal-port.3f">terminal-port?</a></li> <li><a href="#sec:terminal-size">terminal-size</a></li></ul></li> <li><a href="#sec:Input.2foutput_port_extensions">Input/output port extensions</a> <ul> <li><a href="#sec:with-output-to-port">with-output-to-port</a></li> <li><a href="#sec:make-input-port">make-input-port</a></li> <li><a href="#sec:make-output-port">make-output-port</a></li> <li><a href="#sec:with-error-output-to-port">with-error-output-to-port</a></li> <li><a href="#sec:with-input-from-port">with-input-from-port</a></li></ul></li> <li><a href="#sec:String-port_extensions">String-port extensions</a> <ul> <li><a href="#sec:call-with-input-string">call-with-input-string</a></li> <li><a href="#sec:call-with-output-string">call-with-output-string</a></li> <li><a href="#sec:with-input-from-string">with-input-from-string</a></li> <li><a href="#sec:with-output-to-string">with-output-to-string</a></li> <li><a href="#sec:with-error-output-to-string">with-error-output-to-string</a></li></ul></li> <li><a href="#sec:Port_iterators">Port iterators</a> <ul> <li><a href="#sec:port-for-each">port-for-each</a></li> <li><a href="#sec:port-map">port-map</a></li> <li><a href="#sec:port-fold">port-fold</a></li> <li><a href="#sec:copy-port">copy-port</a></li></ul></li> <li><a href="#sec:Funky_ports">Funky ports</a> <ul> <li><a href="#sec:make-bidirectional-port">make-bidirectional-port</a></li> <li><a href="#sec:make-broadcast-port">make-broadcast-port</a></li> <li><a href="#sec:make-concatenated-port">make-concatenated-port</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_port.29"><a href="#sec:Module_.28chicken_port.29">Module (chicken port)</a></h2><p>This module contains various extended port definitions.</p><h3 id="sec:Port_attributes"><a href="#sec:Port_attributes">Port attributes</a></h3><h4 id="sec:port-name"><a href="#sec:port-name">port-name</a></h4> <dl class="defsig"> <dt class="defsig" id="def:port-name"><span class="sig"><var class="id">port-name</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Fetch filename from <var class="arg">PORT</var>. This returns the filename that was used to open this file. Returns a special tag string, enclosed into parentheses for non-file ports. <var class="arg">PORT</var> defaults to the value of <tt>(current-input-port)</tt>.</p></dd></dl><h4 id="sec:port-position"><a href="#sec:port-position">port-position</a></h4> <dl class="defsig"> <dt class="defsig" id="def:port-position"><span class="sig"><var class="id">port-position</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the current position of <var class="arg">PORT</var> as two values: row and column number. If the port does not support such an operation an error is signaled. This procedure is currently only available for input ports. <var class="arg">PORT</var> defaults to the value of <tt>(current-input-port)</tt>.</p></dd></dl><h4 id="sec:set-port-name.21"><a href="#sec:set-port-name.21">set-port-name!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-port-name.21"><span class="sig"><var class="id">set-port-name!</var> <var class="arg">PORT</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the name of <var class="arg">PORT</var> to <var class="arg">STRING</var>.</p></dd></dl><h3 id="sec:Setting_the_file_buffering_mode"><a href="#sec:Setting_the_file_buffering_mode">Setting the file buffering mode</a></h3><h4 id="sec:set-buffering-mode.21"><a href="#sec:set-buffering-mode.21">set-buffering-mode!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-buffering-mode.21"><span class="sig"><var class="id">set-buffering-mode!</var> <var class="arg">PORT</var> <var class="arg">MODE</var> <var class="dsssl">#!optional</var> <var class="arg">BUFSIZE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the buffering-mode for the file associated with <var class="arg">PORT</var> to <var class="arg">MODE</var>, which should be one of the keywords <tt>#:full</tt>, <tt>#:line</tt> or <tt>#:none</tt>. If <var class="arg">BUFSIZE</var> is specified it determines the size of the buffer to be used (if any).</p></dd></dl><h3 id="sec:Terminal_ports"><a href="#sec:Terminal_ports">Terminal ports</a></h3><h4 id="sec:terminal-name"><a href="#sec:terminal-name">terminal-name</a></h4> <dl class="defsig"> <dt class="defsig" id="def:terminal-name"><span class="sig"><var class="id">terminal-name</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the name of the terminal that is connected to <var class="arg">PORT</var>.</p><p>On Windows, this procedure always raises an exception.</p></dd></dl><h4 id="sec:terminal-port.3f"><a href="#sec:terminal-port.3f">terminal-port?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:terminal-port.3f"><span class="sig"><var class="id">terminal-port?</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">PORT</var> is connected to a terminal and <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:terminal-size"><a href="#sec:terminal-size">terminal-size</a></h4> <dl class="defsig"> <dt class="defsig" id="def:terminal-size"><span class="sig"><var class="id">terminal-size</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns two values, the number of columns and rows of the terminal that is connected to <var class="arg">PORT</var> or <tt>0</tt>, <tt>0</tt> if the terminal size can not be obtained.</p><p>On Windows, this procedure always raises an exception.</p></dd></dl><h3 id="sec:Input.2foutput_port_extensions"><a href="#sec:Input.2foutput_port_extensions">Input/output port extensions</a></h3><h4 id="sec:with-output-to-port"><a href="#sec:with-output-to-port">with-output-to-port</a></h4> <dl class="defsig"> <dt class="defsig" id="def:with-output-to-port"><span class="sig"><var class="id">with-output-to-port</var> <var class="arg">PORT</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Call procedure <var class="arg">THUNK</var> with the current output-port temporarily bound to <var class="arg">PORT</var>.</p></dd></dl><h4 id="sec:make-input-port"><a href="#sec:make-input-port">make-input-port</a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-input-port"><span class="sig"><var class="id">make-input-port</var> <var class="arg">READ-CHAR</var> <var class="arg">CHAR-READY?</var> <var class="arg">CLOSE</var> <var class="dsssl">#!optional</var> <var class="arg">PEEK-CHAR</var> <var class="arg">READ-STRING!</var> <var class="arg">READ-LINE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a custom input port. Common operations on this port are handled by the given parameters, which should be procedures of no arguments. The following arguments are all different kinds of reader procedures:</p><ul><li><var class="arg">READ-CHAR</var> is the most fundamental reader, and must always be present. It is a thunk which is called when the next character is to be read and it should return a character or <tt>#!eof</tt>.</li> <li><var class="arg">CHAR-READY?</var> is a thunk which is called when <tt>char-ready?</tt> is called on this port and should return <tt>#t</tt> or <tt>#f</tt>.</li> <li><var class="arg">CLOSE</var> is a thunk which is called when the port is closed.</li> <li><var class="arg">PEEK-CHAR</var> is a thunk which is called when <tt>peek-char</tt> is called on this port and should return a character or <tt>#!eof</tt>. If it is not provided or <tt>#f</tt>, <var class="arg">READ-CHAR</var> will be used instead and the created port object handles peeking automatically (by calling <tt>READ</tt> and buffering the character).</li> <li><var class="arg">READ-STRING!</var> is called when <tt>read-string!</tt> is called (or the higher-level non-mutating <tt>read-string</tt>). It will be invoked with 4 arguments: the port created by <tt>make-input-port</tt>, the number of bytes to read, a string (or sometimes a blob) to read into (which may be assumed to be big enough to hold the data) and the offset into the buffer at which to put the data to read. It should return the number of bytes that have successfully been read, which should always be equal to the requested bytes unless EOF was hit, in which case it can be less. If this procedure is not provided or <tt>#f</tt>, the buffer will be filled by repeated reads to <var class="arg">READ-CHAR</var>.</li> <li><var class="arg">READ-LINE</var> is called when <tt>read-line</tt> is called. It will be invoked with two arguments: the port created by <tt>make-input-port</tt> and the maximum number of characters to read (or <tt>#f</tt>). If this procedure is not provided or <tt>#f</tt>, the buffer will be filled by repeated reads to <var class="arg">READ-CHAR</var>.</li> </ul> <p>All the optional procedures except for <var class="arg">PEEK-CHAR</var> are responsible for updating the port's position, which currently can only be done via low-level slot accessors like <tt>##sys#setslot</tt>; slot 4 is the row number (ie, the line) and slot 5 is the column number (ie, the character on the line). If the port's positions are not updated, <tt>port-position</tt> won't work.</p></dd></dl><h4 id="sec:make-output-port"><a href="#sec:make-output-port">make-output-port</a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-output-port"><span class="sig"><var class="id">make-output-port</var> <var class="arg">WRITE</var> <var class="arg">CLOSE</var> <var class="dsssl">#!optional</var> <var class="arg">FLUSH</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a custom output port. Common operations on this port are handled by the given parameters, which should be procedures. <var class="arg">WRITE</var> is called when output is sent to the port and receives a single argument, a string. <var class="arg">CLOSE</var> is called when the port is closed and should be a procedure of no arguments. <var class="arg">FLUSH</var> (if provided) is called for flushing the output port.</p></dd></dl><h4 id="sec:with-error-output-to-port"><a href="#sec:with-error-output-to-port">with-error-output-to-port</a></h4> <dl class="defsig"> <dt class="defsig" id="def:with-error-output-to-port"><span class="sig"><var class="id">with-error-output-to-port</var> <var class="arg">PORT</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Call procedure <var class="arg">THUNK</var> with the current error output-port temporarily bound to <var class="arg">PORT</var>.</p></dd></dl><h4 id="sec:with-input-from-port"><a href="#sec:with-input-from-port">with-input-from-port</a></h4> <dl class="defsig"> <dt class="defsig" id="def:with-input-from-port"><span class="sig"><var class="id">with-input-from-port</var> <var class="arg">PORT</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Call procedure <var class="arg">THUNK</var> with the current input-port temporarily bound to <var class="arg">PORT</var>.</p></dd></dl><h3 id="sec:String-port_extensions"><a href="#sec:String-port_extensions">String-port extensions</a></h3><h4 id="sec:call-with-input-string"><a href="#sec:call-with-input-string">call-with-input-string</a></h4> <dl class="defsig"> <dt class="defsig" id="def:call-with-input-string"><span class="sig"><var class="id">call-with-input-string</var> <var class="arg">STRING</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Calls the procedure <var class="arg">PROC</var> with a single argument that is a string-input-port with the contents of <var class="arg">STRING</var>.</p></dd></dl><h4 id="sec:call-with-output-string"><a href="#sec:call-with-output-string">call-with-output-string</a></h4> <dl class="defsig"> <dt class="defsig" id="def:call-with-output-string"><span class="sig"><var class="id">call-with-output-string</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Calls the procedure <var class="arg">PROC</var> with a single argument that is a string-output-port. Returns the accumulated output-string.</p></dd></dl><h4 id="sec:with-input-from-string"><a href="#sec:with-input-from-string">with-input-from-string</a></h4> <dl class="defsig"> <dt class="defsig" id="def:with-input-from-string"><span class="sig"><var class="id">with-input-from-string</var> <var class="arg">STRING</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Call procedure <var class="arg">THUNK</var> with the current input-port temporarily bound to an input-string-port with the contents of <var class="arg">STRING</var>.</p></dd></dl><h4 id="sec:with-output-to-string"><a href="#sec:with-output-to-string">with-output-to-string</a></h4> <dl class="defsig"> <dt class="defsig" id="def:with-output-to-string"><span class="sig"><var class="id">with-output-to-string</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Call procedure <var class="arg">THUNK</var> with the current output-port temporarily bound to a string-output-port and return the accumulated output string.</p></dd></dl><h4 id="sec:with-error-output-to-string"><a href="#sec:with-error-output-to-string">with-error-output-to-string</a></h4> <dl class="defsig"> <dt class="defsig" id="def:with-error-output-to-string"><span class="sig"><var class="id">with-error-output-to-string</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Call procedure <var class="arg">THUNK</var> with the current error output-port temporarily bound to a string-output-port and return the accumulated output string.</p></dd></dl><h3 id="sec:Port_iterators"><a href="#sec:Port_iterators">Port iterators</a></h3><h4 id="sec:port-for-each"><a href="#sec:port-for-each">port-for-each</a></h4> <dl class="defsig"> <dt class="defsig" id="def:port-for-each"><span class="sig"><var class="id">port-for-each</var> <var class="arg">FN</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Apply <var class="arg">FN</var> to successive results of calling the zero argument procedure <var class="arg">THUNK</var> (typically <tt>read</tt>) until it returns <tt>#!eof</tt>, discarding the results.</p></dd></dl><h4 id="sec:port-map"><a href="#sec:port-map">port-map</a></h4> <dl class="defsig"> <dt class="defsig" id="def:port-map"><span class="sig"><var class="id">port-map</var> <var class="arg">FN</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Apply <var class="arg">FN</var> to successive results of calling the zero argument procedure <var class="arg">THUNK</var> (typically <tt>read</tt>) until it returns <tt>#!eof</tt>, returning a list of the collected results.</p></dd></dl><h4 id="sec:port-fold"><a href="#sec:port-fold">port-fold</a></h4> <dl class="defsig"> <dt class="defsig" id="def:port-fold"><span class="sig"><var class="id">port-fold</var> <var class="arg">FN</var> <var class="arg">ACC</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Apply <var class="arg">FN</var> to successive results of calling the zero argument procedure <var class="arg">THUNK</var>, (typically <tt>read</tt>) passing the <var class="arg">ACC</var> value as the second argument. The <var class="arg">FN</var> result becomes the new <var class="arg">ACC</var> value. When <var class="arg">THUNK</var> returns <tt>#!eof</tt>, the last <var class="arg">FN</var> result is returned.</p></dd></dl><h4 id="sec:copy-port"><a href="#sec:copy-port">copy-port</a></h4> <dl class="defsig"> <dt class="defsig" id="def:copy-port"><span class="sig"><var class="id">copy-port</var> <var class="arg">FROM</var> <var class="arg">TO</var> <var class="dsssl">#!optional</var> <var class="arg">READ</var> <var class="arg">WRITE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Reads all remaining data from port <var class="arg">FROM</var> using the reader procedure <var class="arg">READ</var> and writes it to port <var class="arg">TO</var> using the writer procedure <var class="arg">WRITE</var>. <var class="arg">READ</var> defaults to <tt>read-char</tt> and <var class="arg">WRITE</var> to <tt>write-char</tt>. Note that this procedure does not check <var class="arg">FROM</var> and <var class="arg">TO</var> for being ports, so the reader and writer procedures may perform arbitrary operations as long as they can be invoked as <tt>(READ FROM)</tt> and <tt>(WRITE X TO)</tt>, respectively. <tt>copy-port</tt> returns an undefined value.</p><p><tt>copy-port</tt> was introduced in CHICKEN 4.6.0.</p></dd></dl><h3 id="sec:Funky_ports"><a href="#sec:Funky_ports">Funky ports</a></h3><h4 id="sec:make-bidirectional-port"><a href="#sec:make-bidirectional-port">make-bidirectional-port</a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-bidirectional-port"><span class="sig"><var class="id">make-bidirectional-port</var> <var class="arg">INPUT-PORT</var> <var class="arg">OUTPUT-PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a joint input/output port that proxies port operations to the given <var class="arg">INPUT-PORT</var> and <var class="arg">OUTPUT-PORT</var>, respectively. This port satisfies both <tt>input-port?</tt> and <tt>output-port?</tt>, and its two directions may be closed independently.</p></dd></dl><h4 id="sec:make-broadcast-port"><a href="#sec:make-broadcast-port">make-broadcast-port</a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-broadcast-port"><span class="sig"><var class="id">make-broadcast-port</var> <var class="arg">PORT</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a custom output port that emits everything written into it to the ports given as <tt>PORT ...</tt>. Closing the broadcast port does not close any of the argument ports.</p></dd></dl><h4 id="sec:make-concatenated-port"><a href="#sec:make-concatenated-port">make-concatenated-port</a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-concatenated-port"><span class="sig"><var class="id">make-concatenated-port</var> <var class="arg">PORT1</var> <var class="arg">PORT2</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a custom input port that reads its input from <var class="arg">PORT1</var>, until it is empty, then from <var class="arg">PORT2</var> and so on. Closing the concatenated port does not close any of the argument ports.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20plist%29.html">Module (chicken plist)</a></p><p>Next: <a href="Module%20%28chicken%20pretty-print%29.html">Module (chicken pretty-print)</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken flonum).html����������������������������������������������0000644�0001750�0001750�00000024203�13502230005�022237� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken flonum)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_flonum.29">Module (chicken flonum)</a> <ul> <li><a href="#sec:Arithmetic_floating-point_operations">Arithmetic floating-point operations</a></li></ul></li> <li><a href="#sec:Flonum_limits">Flonum limits</a></li></ul></div><h2 id="sec:Module_.28chicken_flonum.29"><a href="#sec:Module_.28chicken_flonum.29">Module (chicken flonum)</a></h2><p>Because CHICKEN supports a full numeric tower, operations can sometimes incur a subtantial overhead to simply detect the type of numbers you're passing in. When you know you're definitely dealing only with flonums, you can choose to use flonum-specific operations to avoid this overhead.</p><p>This is purely a performance hack. You might want to consider adding <a href="Types.html">type annotations</a> instead, this often gives the same performance boost without having to rewrite all numeric operators in your code.</p><h3 id="sec:Arithmetic_floating-point_operations"><a href="#sec:Arithmetic_floating-point_operations">Arithmetic floating-point operations</a></h3> <dl class="defsig"> <dt class="defsig" id="def:fp.2b"><span class="sig"><var class="id">fp+</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fp-"><span class="sig"><var class="id">fp-</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.2a"><span class="sig"><var class="id">fp*</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.2f"><span class="sig"><var class="id">fp/</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpgcd"><span class="sig"><var class="id">fpgcd</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpneg"><span class="sig"><var class="id">fpneg</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpmin"><span class="sig"><var class="id">fpmin</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpmax"><span class="sig"><var class="id">fpmax</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.3d"><span class="sig"><var class="id">fp=</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.3e"><span class="sig"><var class="id">fp&gt;</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.3c"><span class="sig"><var class="id">fp&lt;</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.3e.3d"><span class="sig"><var class="id">fp&gt;=</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fp.3c.3d"><span class="sig"><var class="id">fp&lt;=</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpfloor"><span class="sig"><var class="id">fpfloor</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpceiling"><span class="sig"><var class="id">fpceiling</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fptruncate"><span class="sig"><var class="id">fptruncate</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpround"><span class="sig"><var class="id">fpround</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpsin"><span class="sig"><var class="id">fpsin</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpcos"><span class="sig"><var class="id">fpcos</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fptan"><span class="sig"><var class="id">fptan</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpasin"><span class="sig"><var class="id">fpasin</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpacos"><span class="sig"><var class="id">fpacos</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpatan"><span class="sig"><var class="id">fpatan</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpatan2"><span class="sig"><var class="id">fpatan2</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fplog"><span class="sig"><var class="id">fplog</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpexp"><span class="sig"><var class="id">fpexp</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpexpt"><span class="sig"><var class="id">fpexpt</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpsqrt"><span class="sig"><var class="id">fpsqrt</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpabs"><span class="sig"><var class="id">fpabs</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fpinteger.3f"><span class="sig"><var class="id">fpinteger?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Arithmetic floating-point operations.</p><p>In safe mode, these procedures throw a type error when given non-float arguments. In unsafe mode, these procedures do not check their arguments. A non-flonum argument in unsafe mode can crash the application.</p><p>Note: <tt>fpround</tt> uses the rounding mode that your C library implements, which is usually different from R5RS.</p></dd></dl><h2 id="sec:Flonum_limits"><a href="#sec:Flonum_limits">Flonum limits</a></h2> <dl class="defsig"> <dt class="defsig" id="def:maximum-flonum"><span class="sig"><var class="id">maximum-flonum</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:minimum-flonum"><span class="sig"><var class="id">minimum-flonum</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-radix"><span class="sig"><var class="id">flonum-radix</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-epsilon"><span class="sig"><var class="id">flonum-epsilon</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-precision"><span class="sig"><var class="id">flonum-precision</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-decimal-precision"><span class="sig"><var class="id">flonum-decimal-precision</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-maximum-exponent"><span class="sig"><var class="id">flonum-maximum-exponent</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-minimum-exponent"><span class="sig"><var class="id">flonum-minimum-exponent</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-maximum-decimal-exponent"><span class="sig"><var class="id">flonum-maximum-decimal-exponent</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:flonum-minimum-decimal-exponent"><span class="sig"><var class="id">flonum-minimum-decimal-exponent</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>Platform-specific flonum limits.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:flonum-print-precision"><span class="sig"><var class="id">flonum-print-precision</var> <var class="dsssl">#!optional</var> <var class="arg">PRECISION</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Gets and sets the number of significant digits printed for a floating-point number. <var class="arg">PRECISION</var> must be a positive <tt>fixnum</tt>. Returns the setting that was previously in effect.</p><p>The default print precision is 15 on nearly all systems, and 7 on the rare system on which the <tt>double</tt> type is only single-precision.</p><p><b>Note:</b> To ensure read/write invariance for <i>all</i> floating-point numbers, you must increase print precision from 15 to 17 (or from 7 to 9). For example:</p><pre>&gt; (define a (expt 2 -53)) &gt; (define b (+ a (* 2 (expt 10 -32)))) &gt; (eqv? a b) #f &gt; (flonum-print-precision 15) &gt; (cons a b) (1.11022302462516e-16 . 1.11022302462516e-16) ;; same printed representation &gt; (flonum-print-precision 17) &gt; (cons a b) (1.1102230246251565e-16 . 1.1102230246251568e-16) ;; differs in last place</pre><p>On the downside, this will result in unnecessarily precise representations of many numbers:</p><pre>&gt; (flonum-print-precision 17) &gt; 0.1 0.10000000000000001</pre><p>The maximum number of decimal digits required to uniquely represent all floating-point numbers of a certain precision is given by the formula <tt>ceil(1+N*log10(2))</tt>, where N is the number of bits of precision; for double-precision, <tt>N=53</tt>.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20fixnum%29.html">Module (chicken fixnum)</a></p><p>Next: <a href="Module%20%28chicken%20foreign%29.html">Module (chicken foreign)</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken bitwise).html���������������������������������������������0000644�0001750�0001750�00000006547�13502230005�022420� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken bitwise)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_bitwise.29">Module (chicken bitwise)</a> <ul> <li><a href="#sec:Binary_integer_operations">Binary integer operations</a> <ul> <li><a href="#sec:bit-.3eboolean">bit-&gt;boolean</a></li> <li><a href="#sec:integer-length">integer-length</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_bitwise.29"><a href="#sec:Module_.28chicken_bitwise.29">Module (chicken bitwise)</a></h2><p>Binary integer operations are provided by the <tt>(chicken bitwise)</tt> module.</p><h3 id="sec:Binary_integer_operations"><a href="#sec:Binary_integer_operations">Binary integer operations</a></h3> <dl class="defsig"> <dt class="defsig" id="def:bitwise-and"><span class="sig"><var class="id">bitwise-and</var> <var class="arg">N1</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:bitwise-ior"><span class="sig"><var class="id">bitwise-ior</var> <var class="arg">N1</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:bitwise-xor"><span class="sig"><var class="id">bitwise-xor</var> <var class="arg">N1</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:bitwise-not"><span class="sig"><var class="id">bitwise-not</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:arithmetic-shift"><span class="sig"><var class="id">arithmetic-shift</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Binary integer operations. <tt>arithmetic-shift</tt> shifts the argument <var class="arg">N1</var> by <var class="arg">N2</var> bits to the left. If <var class="arg">N2</var> is negative, then <var class="arg">N1</var> is shifted to the right. These operations only accept exact integers.</p></dd></dl><h4 id="sec:bit-.3eboolean"><a href="#sec:bit-.3eboolean">bit-&gt;boolean</a></h4> <dl class="defsig"> <dt class="defsig" id="def:bit-.3eboolean"><span class="sig"><var class="id">bit-&gt;boolean</var> <var class="arg">N</var> <var class="arg">INDEX</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the bit at the position <var class="arg">INDEX</var> in the integer <var class="arg">N</var> is set, or <tt>#f</tt> otherwise. The rightmost/least-significant bit is bit 0.</p></dd></dl><h4 id="sec:integer-length"><a href="#sec:integer-length">integer-length</a></h4> <dl class="defsig"> <dt class="defsig" id="def:integer-length"><span class="sig"><var class="id">integer-length</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of bits needed to represent the exact integer N in 2's complement notation.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20base%29.html">Module (chicken base)</a></p><p>Next: <a href="Module%20%28chicken%20blob%29.html">Module (chicken blob)</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken file).html������������������������������������������������0000644�0001750�0001750�00000035021�13502230005�021656� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken file)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_file.29">Module (chicken file)</a> <ul> <li><a href="#sec:Basic_file_operations">Basic file operations</a> <ul> <li><a href="#sec:create-directory">create-directory</a></li> <li><a href="#sec:copy-file">copy-file</a></li> <li><a href="#sec:move-file">move-file</a></li> <li><a href="#sec:delete-file">delete-file</a></li> <li><a href="#sec:delete-file.2a">delete-file*</a></li> <li><a href="#sec:delete-directory">delete-directory</a></li> <li><a href="#sec:directory">directory</a></li> <li><a href="#sec:directory-exists.3f">directory-exists?</a></li> <li><a href="#sec:file-exists.3f">file-exists?</a></li> <li><a href="#sec:rename-file">rename-file</a></li> <li><a href="#sec:file-readable.3f">file-readable?</a></li> <li><a href="#sec:file-writable.3f">file-writable?</a></li> <li><a href="#sec:file-executable.3f">file-executable?</a></li></ul></li> <li><a href="#sec:Temporary_files_and_directories">Temporary files and directories</a> <ul> <li><a href="#sec:create-temporary-file">create-temporary-file</a></li> <li><a href="#sec:create-temporary-directory">create-temporary-directory</a></li></ul></li> <li><a href="#sec:Finding_files">Finding files</a> <ul> <li><a href="#sec:find-files">find-files</a></li> <li><a href="#sec:glob">glob</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_file.29"><a href="#sec:Module_.28chicken_file.29">Module (chicken file)</a></h2><p>This module provides various generic operations on files and directories. For more specific operations, see also <a href="Module%20%28chicken%20file%20posix%29.html">Module (chicken file posix)</a>.</p><p>All errors related to failing file-operations will signal a condition of kind <tt>(exn i/o file)</tt>.</p><h3 id="sec:Basic_file_operations"><a href="#sec:Basic_file_operations">Basic file operations</a></h3><h4 id="sec:create-directory"><a href="#sec:create-directory">create-directory</a></h4> <dl class="defsig"> <dt class="defsig" id="def:create-directory"><span class="sig"><var class="id">create-directory</var> <var class="arg">NAME</var> <var class="dsssl">#!optional</var> <var class="arg">PARENTS?</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a directory with the pathname <var class="arg">NAME</var>. If the <var class="arg">PARENTS?</var> argument is given and not false, any nonexistent parent directories are also created.</p><p>Notice that if <var class="arg">NAME</var> exists, <tt>create-directory</tt> won't try to create it and will return <var class="arg">NAME</var> (i.e., it won't raise an error when given a <var class="arg">NAME</var> that already exists).</p></dd></dl><h4 id="sec:copy-file"><a href="#sec:copy-file">copy-file</a></h4> <dl class="defsig"> <dt class="defsig" id="def:copy-file"><span class="sig"><var class="id">copy-file</var> <var class="arg">ORIGFILE</var> <var class="arg">NEWFILE</var> <var class="dsssl">#!optional</var> <var class="arg">CLOBBER</var> <var class="arg">BLOCKSIZE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Copies <var class="arg">ORIGFILE</var> (a string denoting some filename) to <var class="arg">NEWFILE</var>, <var class="arg">BLOCKSIZE</var> bytes at a time. <var class="arg">BLOCKSIZE</var> defaults to 1024, and must be a positive integer. Returns the number of bytes copied on success, or errors on failure. <var class="arg">CLOBBER</var> determines the behaviour of <tt>file-copy</tt> when <var class="arg">NEWFILE</var> is already extant. When set to <tt>#f</tt> (default), an error is signaled. When set to any other value, <var class="arg">NEWFILE</var> is overwritten. <tt>file-copy</tt> will work across filesystems and devices and is not platform-dependent.</p></dd></dl><h4 id="sec:move-file"><a href="#sec:move-file">move-file</a></h4> <dl class="defsig"> <dt class="defsig" id="def:move-file"><span class="sig"><var class="id">move-file</var> <var class="arg">ORIGFILE</var> <var class="arg">NEWFILE</var> <var class="dsssl">#!optional</var> <var class="arg">CLOBBER</var> <var class="arg">BLOCKSIZE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Moves <var class="arg">ORIGFILE</var> (a string denoting some filename) to <var class="arg">NEWFILE</var>, with the same semantics as <tt>copy-file</tt>, above. <tt>move-file</tt> is safe across filesystems and devices (unlike <tt>rename-file</tt>). It is possible for an error to be signaled despite partial success if <var class="arg">NEWFILE</var> could be created and fully written but removing <var class="arg">ORIGFILE</var> fails.</p><p>If <var class="arg">CLOBBER</var> is given and not <tt>#f</tt>, <var class="arg">NEWFILE</var> will be replaced when it already exists, otherwise an error is signaled.</p><p>The <var class="arg">BLOCKSIZE</var> argument indicates the block size to use when copying the file a block at a time. It must be a positive integer, and it defaults to 1024.</p></dd></dl><h4 id="sec:delete-file"><a href="#sec:delete-file">delete-file</a></h4> <dl class="defsig"> <dt class="defsig" id="def:delete-file"><span class="sig"><var class="id">delete-file</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Deletes the file with the pathname <var class="arg">STRING</var>. If the file does not exist, an error is signaled.</p></dd></dl><h4 id="sec:delete-file.2a"><a href="#sec:delete-file.2a">delete-file*</a></h4> <dl class="defsig"> <dt class="defsig" id="def:delete-file.2a"><span class="sig"><var class="id">delete-file*</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>If the file with pathname <var class="arg">STRING</var> exists, it is deleted and <tt>#t</tt> is returned. If the file does not exist, nothing happens and <tt>#f</tt> is returned.</p></dd></dl><h4 id="sec:delete-directory"><a href="#sec:delete-directory">delete-directory</a></h4> <dl class="defsig"> <dt class="defsig" id="def:delete-directory"><span class="sig"><var class="id">delete-directory</var> <var class="arg">NAME</var> <var class="dsssl">#!optional</var> <var class="arg">RECURSIVE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Deletes the directory with the pathname <var class="arg">NAME</var>. If <var class="arg">RECURSIVE</var> is not given or false, then the directory has to be empty.</p></dd></dl><h4 id="sec:directory"><a href="#sec:directory">directory</a></h4> <dl class="defsig"> <dt class="defsig" id="def:directory"><span class="sig"><var class="id">directory</var> <var class="dsssl">#!optional</var> <var class="arg">PATHNAME</var> <var class="arg">SHOW-DOTFILES?</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list with all files that are contained in the directory with the name <var class="arg">PATHNAME</var> (which defaults to the value of <tt>(current-directory)</tt>). Files beginning with <tt>.</tt> are included only if <var class="arg">SHOW-DOTFILES?</var> is given and not <tt>#f</tt>.</p></dd></dl><h4 id="sec:directory-exists.3f"><a href="#sec:directory-exists.3f">directory-exists?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:directory-exists.3f"><span class="sig"><var class="id">directory-exists?</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <var class="arg">STRING</var> if a directory with the given pathname exists, or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:file-exists.3f"><a href="#sec:file-exists.3f">file-exists?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-exists.3f"><span class="sig"><var class="id">file-exists?</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <var class="arg">STRING</var> if a file or directory with the given pathname exists, or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:rename-file"><a href="#sec:rename-file">rename-file</a></h4> <dl class="defsig"> <dt class="defsig" id="def:rename-file"><span class="sig"><var class="id">rename-file</var> <var class="arg">OLD</var> <var class="arg">NEW</var> <var class="dsssl">#!optional</var> <var class="arg">CLOBBER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Renames the file or directory with the pathname <var class="arg">OLD</var> to <var class="arg">NEW</var>. If the operation does not succeed, an error is signaled.</p><p>If <var class="arg">CLOBBER</var> is given and not <tt>#f</tt>, <var class="arg">NEW</var> will be replaced when it already exists, otherwise an error is signaled.</p></dd></dl><h4 id="sec:file-readable.3f"><a href="#sec:file-readable.3f">file-readable?</a></h4><h4 id="sec:file-writable.3f"><a href="#sec:file-writable.3f">file-writable?</a></h4><h4 id="sec:file-executable.3f"><a href="#sec:file-executable.3f">file-executable?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:file-readable.3f"><span class="sig"><var class="id">file-readable?</var> <var class="arg">FILENAME</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:file-writable.3f"><span class="sig"><var class="id">file-writable?</var> <var class="arg">FILENAME</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:file-executable.3f"><span class="sig"><var class="id">file-executable?</var> <var class="arg">FILENAME</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures return <tt>#t</tt> if the current user has read, write or execute permissions on the file named <var class="arg">FILENAME</var>.</p></dd></dl><h3 id="sec:Temporary_files_and_directories"><a href="#sec:Temporary_files_and_directories">Temporary files and directories</a></h3><h4 id="sec:create-temporary-file"><a href="#sec:create-temporary-file">create-temporary-file</a></h4> <dl class="defsig"> <dt class="defsig" id="def:create-temporary-file"><span class="sig"><var class="id">create-temporary-file</var> <var class="dsssl">#!optional</var> <var class="arg">EXTENSION</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates an empty temporary file and returns its pathname. If <var class="arg">EXTENSION</var> is not given, then <tt>.tmp</tt> is used. If the environment variable <tt>TMPDIR, TEMP</tt> or <tt>TMP</tt> is set, then the pathname names a file in that directory. If none of the environment variables is given the location of the temporary file defaults to <tt>/tmp</tt> if it exists or the current-directory</p></dd></dl><h4 id="sec:create-temporary-directory"><a href="#sec:create-temporary-directory">create-temporary-directory</a></h4> <dl class="defsig"> <dt class="defsig" id="def:create-temporary-directory"><span class="sig"><var class="id">create-temporary-directory</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates an empty temporary directory and returns its pathname. If the environment variable <tt>TMPDIR, TEMP</tt> or <tt>TMP</tt> is set, then the temporary directory is created at that location.</p></dd></dl><h3 id="sec:Finding_files"><a href="#sec:Finding_files">Finding files</a></h3><h4 id="sec:find-files"><a href="#sec:find-files">find-files</a></h4> <dl class="defsig"> <dt class="defsig" id="def:find-files"><span class="sig"><var class="id">find-files</var> <var class="arg">DIRECTORY</var> <var class="dsssl">#!key</var> <var class="arg">test</var> <var class="arg">action</var> <var class="arg">seed</var> <var class="arg">limit</var> <var class="arg">dotfiles</var> <var class="arg">follow-symlinks</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Recursively traverses the contents of <var class="arg">DIRECTORY</var> (which should be a string) and invokes the procedure <var class="arg">action</var> for all files in which the procedure <var class="arg">test</var> is true.</p><p><var class="arg">test</var> may be a procedure of one argument or an irregex object, regex string or SRE expression that will be matched with a full pathname using <tt>irregex-match</tt>. <var class="arg">test</var> defaults to <tt>(constantly #t)</tt>.</p><p><var class="arg">action</var> should be a procedure of two arguments: the currently encountered file and the result of the previous invocation of <var class="arg">action</var>, or, if this is the first invocation, the value of <var class="arg">seed</var>. <var class="arg">action</var> defaults to <tt>cons</tt>, <var class="arg">seed</var> defaults to <tt>()</tt>.</p><p><var class="arg">limit</var> should be a procedure of one argument that is called for each nested directory and which should return true, if that directory is to be traversed recursively. <var class="arg">limit</var> may also be an exact integer that gives the maximum recursion depth. For example, a depth of <tt>0</tt> means that only files in the top-level, specified directory are to be traversed. In this case, all nested directories are ignored. <var class="arg">limit</var> may also be <tt>#f</tt> (the default), which is equivalent to <tt>(constantly #t)</tt>.</p><p>If <var class="arg">dotfiles</var> is given and true, then files starting with a &quot;<tt>.</tt>&quot; character will not be ignored (but note that &quot;<tt>.</tt>&quot; and &quot;<tt>..</tt>&quot; are always ignored). if <var class="arg">follow-symlinks</var> is given and true, then the traversal of a symbolic link that points to a directory will recursively traverse the latter. By default, symbolic links are not followed.</p><p>Note that <var class="arg">action</var> is called with the full pathname of each file, including the directory prefix.</p></dd></dl><h4 id="sec:glob"><a href="#sec:glob">glob</a></h4> <dl class="defsig"> <dt class="defsig" id="def:glob"><span class="sig"><var class="id">glob</var> <var class="arg">PATTERN1</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list of the pathnames of all existing files matching <tt>PATTERN1 ...</tt>, which should be strings containing the usual file-patterns (with <tt>*</tt> matching zero or more characters and <tt>?</tt> matching zero or one character).</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20eval%29.html">Module (chicken eval)</a></p><p>Next: <a href="Module%20%28chicken%20file%20posix%29.html">Module (chicken file posix)</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Deployment.html�����������������������������������������������������������0000644�0001750�0001750�00000022365�13502230005�020152� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Deployment</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Deployment">Deployment</a> <ul> <li><a href="#sec:Static_linking">Static linking</a></li> <li><a href="#sec:Shipping_the_runtime_library">Shipping the runtime library</a></li> <li><a href="#sec:Distributing_compiled_C_files">Distributing compiled C files</a></li> <li><a href="#sec:Platform_specific_notes">Platform specific notes</a> <ul> <li><a href="#sec:Windows">Windows</a></li> <li><a href="#sec:MacOS_X">MacOS X</a></li></ul></li></ul></li></ul></div><h2 id="sec:Deployment"><a href="#sec:Deployment">Deployment</a></h2><p>CHICKEN generates fully native binaries that can be distributed like normal C/C++ programs. There are various methods of deployment, depending on platform, linkage, external dependencies and whether the application should be built from sources or precompiled and whether the CHICKEN runtime-libraries are expected on the destination system or if the application should be completely self-contained.</p><p>There are several options for distributing software written in CHICKEN for use on other machines or by other people:</p><ul><li>Distribute source code, which requires that the target system has a compatible version of CHICKEN installed</li> <li>Distribute C files generated from Scheme source code and compile them binaries on the target system - this also requires a matching CHICKEN installation on the target</li> <li>Distribute compiled binaries, either statically linked or built in such a way that all required extensions and libraries are included in the distribution</li> </ul> <p>The rest of this chapter addresses the third option, for which several options exist, depending on your needs and how self-contained you want your deployed binary to be.</p><p>The simplest form of deployment is the single executable. The runtime library (<tt>libchicken.so</tt>, <tt>libchicken.dylib</tt> or <tt>libchicken.dll</tt>) is required for these programs to run, unless you link your application statically:</p><pre> % csc myprogram.scm % ldd myprogram # on linux linux-gate.so.1 =&gt; (0xb805c000) libchicken.so.9 =&gt; /home/felix/chicken/core/lib/libchicken.so.9 (0xb7c22000) libm.so.6 =&gt; /lib/tls/i686/cmov/libm.so.6 (0xb7bec000) libdl.so.2 =&gt; /lib/tls/i686/cmov/libdl.so.2 (0xb7be7000) libc.so.6 =&gt; /lib/tls/i686/cmov/libc.so.6 (0xb7a84000) /lib/ld-linux.so.2 (0xb805d000) % ls -l myprogram -rwxr-xr-x 1 felix felix 34839 2010-02-22 20:19 x</pre><h3 id="sec:Static_linking"><a href="#sec:Static_linking">Static linking</a></h3><p>Linking your application statically will include the runtime library in the executable:</p><pre> % csc -static myprogram.scm % ldd myprogram linux-gate.so.1 =&gt; (0xb805c000) libm.so.6 =&gt; /lib/tls/i686/cmov/libm.so.6 (0xb7bec000) libdl.so.2 =&gt; /lib/tls/i686/cmov/libdl.so.2 (0xb7be7000) libc.so.6 =&gt; /lib/tls/i686/cmov/libc.so.6 (0xb7a84000) /lib/ld-linux.so.2 (0xb805d000)</pre><p><a href="Extensions.html">Extensions</a> are transparently linked in statically, if you provide the <tt>-static</tt> option to <tt>csc</tt>, provided the extension is avaiable as a static object file (this applies to most extensions by default).</p><h3 id="sec:Shipping_the_runtime_library"><a href="#sec:Shipping_the_runtime_library">Shipping the runtime library</a></h3><p>An alternate way of distributing compiled code is to ship the runtime library <tt>libchicken.so</tt> together with the executable, possibly including any extensions that you use. To make this work, any runtime linker paths compiled into binary objects need to be deleted or changed by using a tool like <tt>chrpath(1)</tt> or <tt>patchelf(1)</tt>, to a value that indicates that the library lookup should start in the same location as the main program. (e.g. <tt>$ORIGIN</tt> on Linux). Don't forget to copy any extensions from the extension repository (<tt>$PREFIX/lib/chicken/$BINARYVERSION</tt>).</p><p>Alternatively start your program through a separate script that sets <tt>LD_LIBRARY_PATH</tt> (or <tt>DYLD_LIBRARY_PATH</tt> on MacOS X). For more details, consult the documentation of the operating system that you use to build your deployed binaries.</p><p>A directory containing all binaries is fully &quot;portable&quot; in the sense that it will run directly from an USB-stick or any other removable media. At runtime the program can find out its location by invoking the <tt>repository-path</tt> procedure, which will return the full pathname in which the application is located.</p><p>Should the program depend on more libraries which are not available by default on the intended target systems, and which you would like to include in your application, you will have to track them down yourself and place them in the application directory.</p><h3 id="sec:Distributing_compiled_C_files"><a href="#sec:Distributing_compiled_C_files">Distributing compiled C files</a></h3><p>It is possible to create distributions of Scheme projects that have been compiled to C. The runtime system of CHICKEN consists of only two handcoded C files (<tt>runtime.c</tt> and <tt>chicken.h</tt>), plus the files <tt>chicken-config.h</tt> and <tt>buildtag.h</tt>, which are generated by the build process. All other modules of the runtime system and the extension libraries are just compiled Scheme code. The following example shows a minimal application, which should run without changes on most operating systems, like Windows, Linux or FreeBSD (note however that static binaries are not supported on Mac OS X).</p><p>Take the following &quot;Hello World&quot; program:</p> <pre class="highlight colorize"><span class="comment">; hello.scm </span> <span class="paren1">(<span class="default">print <span class="string">&quot;Hello, world!&quot;</span></span>)</span></pre><pre> % csc -t hello.scm -optimize-level 3 -output-file hello.c</pre><p>Compiled to C, we get <tt>hello.c</tt>. We need the files <tt>chicken.h</tt>, <tt>chicken-config.h</tt>, <tt>buildtag.h</tt> and <tt>runtime.c</tt>, which contain the basic runtime system, plus the library files <tt>build-version.c</tt>, <tt>chicken-syntax.c</tt>, <tt>eval.c</tt>, <tt>expand.c</tt>, <tt>internal.c</tt>, <tt>library.c</tt> and <tt>modules.c</tt>, which contain the same functionality as the library that is linked into plain CHICKEN-compiled applications:</p><pre> % cd /tmp % echo '(print &quot;Hello World.&quot;)' &gt; hello.scm % csc -t hello.scm % cp $CHICKEN_BUILD/build-version.c . % cp $CHICKEN_BUILD/chicken-syntax.c . % cp $CHICKEN_BUILD/eval.c . % cp $CHICKEN_BUILD/expand.c . % cp $CHICKEN_BUILD/internal.c . % cp $CHICKEN_BUILD/library.c . % cp $CHICKEN_BUILD/modules.c . % cp $CHICKEN_BUILD/runtime.c . % cp $CHICKEN_BUILD/chicken.h . % cp $CHICKEN_BUILD/chicken-config.h . % cp $CHICKEN_BUILD/buildtag.h . % gcc -Os -fomit-frame-pointer -DHAVE_CHICKEN_CONFIG_H hello.c \ build-version.c eval.c expand.c internal.c library.c modules.c runtime.c \ -o hello -lm</pre><p>Once we have all the files together, we can create a tarball:</p><pre>% tar czf hello.tar.gz hello.c build-version.c chicken-syntax.c eval.c \ expand.c internal.c library.c modules.c runtime.c chicken.h \ chicken-config.h buildtag.h</pre><p>This is naturally rather simplistic. Things like enabling dynamic loading and selecting supported features of the host system would need more configuration- and build-time support. All this can be addressed using more elaborate build-scripts, makefiles or by using autoconf/automake.</p><p>The <tt>chicken-config.h</tt> file may contain incorrect settings for your deployment target. Especially when the architecture is different. In that case you will have to adjust the values as needed.</p><p>For more information, study the CHICKEN source code and/or ask on the CHICKEN mailing lists to understand the implications and difficulties of this deployment method in more detail.</p><h3 id="sec:Platform_specific_notes"><a href="#sec:Platform_specific_notes">Platform specific notes</a></h3><h4 id="sec:Windows"><a href="#sec:Windows">Windows</a></h4><p>Deployment is fully supported on Windows. Since Windows looks up dynamic link libraries in the programs original location by default, adding third-party libraries to the application directory is no problem. The freely available <a href="http://dependencywalker.com">Dependency Walker</a> tool is helpful to find out what DLLs your application depends on.</p><h4 id="sec:MacOS_X"><a href="#sec:MacOS_X">MacOS X</a></h4><p>The <tt>otool(1)</tt> program will show you dynamic libraries that your application requires. <tt>DYLD_LIBRARY_PATH</tt> can be set to override runtime linker paths and <tt>install_name_tool(1)</tt> is available to patch runtime linker paths directly. All of these tools require the Xcode command-line tools too be installed.</p><hr /><p>Previous: <a href="Units%20and%20linking%20model.html">Units and linking model</a></p><p>Next: <a href="Cross%20development.html">Cross development</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken eval).html������������������������������������������������0000644�0001750�0001750�00000005712�13502230005�021672� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken eval)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_eval.29">Module (chicken eval)</a> <ul> <li><a href="#sec:Custom_eval_handlers">Custom eval handlers</a> <ul> <li><a href="#sec:eval-handler">eval-handler</a></li></ul></li> <li><a href="#sec:Using_modules_as_evaluation_environments">Using modules as evaluation environments</a> <ul> <li><a href="#sec:module-environment">module-environment</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_eval.29"><a href="#sec:Module_.28chicken_eval.29">Module (chicken eval)</a></h2><p>This module provides a handful of hooks that allow more fine-grained control over how the standard procedure <tt>eval</tt> behaves.</p><h3 id="sec:Custom_eval_handlers"><a href="#sec:Custom_eval_handlers">Custom eval handlers</a></h3><h4 id="sec:eval-handler"><a href="#sec:eval-handler">eval-handler</a></h4> <dl class="defsig"> <dt class="defsig" id="def:eval-handler"><span class="sig"><var class="id">eval-handler</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>A procedure of one or two arguments. When <tt>eval</tt> is invoked, it calls the value of this parameter with the same arguments. The default behavior is to evaluate the argument expression and to ignore the second parameter.</p></dd></dl><h3 id="sec:Using_modules_as_evaluation_environments"><a href="#sec:Using_modules_as_evaluation_environments">Using modules as evaluation environments</a></h3><h4 id="sec:module-environment"><a href="#sec:module-environment">module-environment</a></h4> <dl class="defsig"> <dt class="defsig" id="def:module-environment"><span class="sig"><var class="id">module-environment</var> <var class="arg">MODULENAME</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Locates the module with the name <var class="arg">MODULENAME</var> and returns an environment that can be passed as the second argument to <tt>eval</tt>. The evaluated expressions have only access to the bindings that are visible inside the module. Note that the environment is not mutable.</p><p>If the module is not registered in the current process, <tt>module-environment</tt> will try to locate meta-information about the module by loading any existing import library with the name <tt>MODULENAME.import.[scm|so]</tt>, if possible.</p><p>In compiled modules, only exported bindings will be visible to interactively entered code. In interpreted modules all bindings are visible.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20errno%29.html">Module (chicken errno)</a></p><p>Next: <a href="Module%20%28chicken%20file%29.html">Module (chicken file)</a></p></div></div></body>������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken condition).html�������������������������������������������0000644�0001750�0001750�00000075261�13502230005�022737� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken condition)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_condition.29">Module (chicken condition)</a></li> <li><a href="#sec:CHICKEN_implementation">CHICKEN implementation</a> <ul> <li><a href="#sec:System_conditions">System conditions</a></li> <li><a href="#sec:Notes">Notes</a></li> <li><a href="#sec:Additional_API">Additional API</a> <ul> <li><a href="#sec:condition-case">condition-case</a></li> <li><a href="#sec:get-condition-property">get-condition-property</a></li> <li><a href="#sec:condition">condition</a></li> <li><a href="#sec:condition-.3elist">condition-&gt;list</a></li> <li><a href="#sec:print-error-message">print-error-message</a></li></ul></li></ul></li> <li><a href="#sec:SRFI-12_specification">SRFI-12 specification</a> <ul> <li><a href="#sec:Exception_Handlers">Exception Handlers</a> <ul> <li><a href="#sec:current-exception-handler">current-exception-handler</a></li> <li><a href="#sec:with-exception-handler">with-exception-handler</a></li> <li><a href="#sec:handle-exceptions">handle-exceptions</a></li></ul></li> <li><a href="#sec:Raising_Exceptions">Raising Exceptions</a> <ul> <li><a href="#sec:abort">abort</a></li> <li><a href="#sec:signal">signal</a></li></ul></li> <li><a href="#sec:Condition_Objects">Condition Objects</a> <ul> <li><a href="#sec:condition.3f">condition?</a></li> <li><a href="#sec:make-property-condition">make-property-condition</a></li> <li><a href="#sec:make-composite-condition">make-composite-condition</a></li> <li><a href="#sec:condition-predicate">condition-predicate</a></li> <li><a href="#sec:condition-property-accessor">condition-property-accessor</a></li></ul></li> <li><a href="#sec:More_Examples">More Examples</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_condition.29"><a href="#sec:Module_.28chicken_condition.29">Module (chicken condition)</a></h2><p>This module provides various procedures and special forms for raising and handling exceptions with &quot;condition objects&quot;. Condition objects provide a structured and composable way to encode the kind of exception that took place, and provide the necessary context.</p><p>CHICKEN's exception handling is based on the <a href="http://srfi.schemers.org/srfi-12/srfi-12.html">SRFI-12</a> exception system. This document contains the core of the SRFI-12 spec as well as CHICKEN implementation specifics.</p><p>There is also a <tt>srfi-12</tt> or <tt>(srfi 12)</tt> module which only includes the standard procedures and macros from the SRFI document, without the CHICKEN extensions. <tt>(chicken condition)</tt> offers the complete set of procedures and macros, both CHICKEN-specific and standard SRFI-12.</p><h2 id="sec:CHICKEN_implementation"><a href="#sec:CHICKEN_implementation">CHICKEN implementation</a></h2><h3 id="sec:System_conditions"><a href="#sec:System_conditions">System conditions</a></h3><p>All error-conditions signaled by the system are of kind <tt>exn</tt>. The following composite conditions are additionally defined:</p><table> <tr><td> (exn arity) </td><td> Signaled when a procedure is called with the wrong number of arguments. </td></tr> <tr><td> (exn type) </td><td> Signaled on type-mismatch errors, for example when an argument of the wrong type is passed to a built-in procedure. </td></tr> <tr><td> (exn arithmetic) </td><td> Signaled on arithmetic errors, like division by zero. </td></tr> <tr><td> (exn i/o) </td><td> Signaled on input/output errors. </td></tr> <tr><td> (exn i/o file) </td><td> Signaled on file-related errors. </td></tr> <tr><td> (exn i/o net) </td><td> Signaled on network errors. </td></tr> <tr><td> (exn bounds) </td><td> Signaled on errors caused by accessing non-existent elements of a collection. </td></tr> <tr><td> (exn runtime) </td><td> Signaled on low-level runtime-system error-situations. </td></tr> <tr><td> (exn runtime limit) </td><td> Signaled when an internal limit is exceeded (like running out of memory). </td></tr> <tr><td> (exn match) </td><td> Signaled on errors raised by failed matches (see the section on <tt>match</tt>). </td></tr> <tr><td> (exn syntax) </td><td> Signaled on syntax errors. </td></tr> </table> <h3 id="sec:Notes"><a href="#sec:Notes">Notes</a></h3><ul><li>All error-exceptions (of the kind <tt>exn</tt>) are non-continuable.</li> <li>Error-exceptions of the <tt>exn</tt> kind have additional <tt>arguments</tt> and <tt>location</tt> properties that contain the arguments passed to the exception-handler and the name of the procedure where the error occurred (if available).</li> <li>Within the interpreter (csi), a user-interrupt (<tt>signal/int</tt>) signals an exception of the kind <tt>user-interrupt</tt>.</li> <li>The procedure <tt>condition-property-accessor</tt> accepts an optional third argument. If the condition does not have a value for the desired property and if the optional argument is given, no error is signaled and the accessor returns the third argument.</li> <li>On platforms that support the <tt>sigprocmask(3)</tt> POSIX API function, the signals <tt>SIGSEGV</tt>, <tt>SIGFPE</tt>, <tt>SIGBUS</tt> and <tt>SIGILL</tt> will be caught and trigger an exception instead of aborting the process, if possible. If the unwinding and handling of the signal raises one of these signals once again, the process will abort with an error message.</li> </ul> <h3 id="sec:Additional_API"><a href="#sec:Additional_API">Additional API</a></h3><h4 id="sec:condition-case"><a href="#sec:condition-case">condition-case</a></h4> <dl class="defsig"> <dt class="defsig" id="def:condition-case"><span class="sig"><tt>(condition-case EXPRESSION CLAUSE ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Evaluates <tt>EXPRESSION</tt> and handles any exceptions that are covered by <tt>CLAUSE ...</tt>, where <tt>CLAUSE</tt> should be of the following form:</p><pre> CLAUSE = ([VARIABLE] (KIND ...) BODY ...)</pre><p>If provided, <tt>VARIABLE</tt> will be bound to the signaled exception object. <tt>BODY ...</tt> is executed when the exception is a property- or composite condition with the kinds given <tt>KIND ...</tt> (unevaluated). If no clause applies, the exception is re-signaled in the same dynamic context as the <tt>condition-case</tt> form.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">check thunk</span>)</span> <span class="paren2">(<span class="default">condition-case <span class="paren3">(<span class="default">thunk</span>)</span> <span class="paren3">[<span class="default"><span class="paren4">(<span class="default">exn file</span>)</span> <span class="paren4">(<span class="default">print <span class="string">&quot;file error&quot;</span></span>)</span></span>]</span> <span class="paren3">[<span class="default"><span class="paren4">(<span class="default">exn</span>)</span> <span class="paren4">(<span class="default">print <span class="string">&quot;other error&quot;</span></span>)</span></span>]</span> <span class="paren3">[<span class="default">var <span class="paren4">(<span class="default"></span>)</span> <span class="paren4">(<span class="default">print <span class="string">&quot;something else&quot;</span></span>)</span></span>]</span> </span>)</span> </span>)</span> <span class="paren1">(<span class="default">check <span class="paren2">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren3">(<span class="default"></span>)</span> <span class="paren3">(<span class="default">open-input-file <span class="string">&quot;&quot;</span></span>)</span></span>)</span></span>)</span> <span class="comment">; -&gt; &quot;file error&quot; </span><span class="paren1">(<span class="default">check <span class="paren2">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren3">(<span class="default"></span>)</span> some-unbound-variable</span>)</span></span>)</span> <span class="comment">; -&gt; &quot;othererror&quot; </span><span class="paren1">(<span class="default">check <span class="paren2">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren3">(<span class="default"></span>)</span> <span class="paren3">(<span class="default">signal 99</span>)</span></span>)</span></span>)</span> <span class="comment">; -&gt; &quot;something else&quot; </span> <span class="paren1">(<span class="default">condition-case some-unbound-variable <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">exn file</span>)</span> <span class="paren3">(<span class="default">print <span class="string">&quot;ignored&quot;</span></span>)</span></span>)</span> </span>)</span> <span class="comment">; -&gt; signals error</span></pre></dd></dl><h4 id="sec:get-condition-property"><a href="#sec:get-condition-property">get-condition-property</a></h4> <dl class="defsig"> <dt class="defsig" id="def:get-condition-property"><span class="sig"><var class="id">get-condition-property</var> <var class="arg">CONDITION</var> <var class="arg">KIND</var> <var class="arg">PROPERTY</var> <var class="dsssl">#!optional</var> <var class="arg">DEFAULT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>A slightly more convenient condition property accessor, equivalent to</p><pre>((condition-property-accessor KIND PROPERTY [DEFAULT]) CONDITION)</pre></dd></dl><h4 id="sec:condition"><a href="#sec:condition">condition</a></h4> <dl class="defsig"> <dt class="defsig" id="def:condition"><span class="sig"><var class="id">condition</var> <var class="arg">LST1</var> <var class="arg">LST2</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>This is a more convenient constructor for conditions. Each of <var class="arg">LST1</var>, <var class="arg">LST2</var> etc is a list of the following form:</p><pre> (KIND PROPERTY1 VALUE1 PROPERTY2 VALUE2 ...)</pre><p>In other words, the following:</p><pre> (signal (condition '(exn location foo message &quot;hi&quot;) '(file bar 1)))</pre><p>is equivalent to the SRFI-12 code:</p><pre> (signal (make-composite-condition (make-property-condition 'exn 'location 'foo 'message &quot;hi&quot;) (make-property-condition 'file 'bar 2)))</pre></dd></dl><h4 id="sec:condition-.3elist"><a href="#sec:condition-.3elist">condition-&gt;list</a></h4> <dl class="defsig"> <dt class="defsig" id="def:condition-.3elist"><span class="sig"><var class="id">condition-&gt;list</var> <var class="arg">CONDITION</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>This procedure converts a condition object into a list holding all the conditions that are represented by the <i>CONDITION</i> object. It is formatted as follows:</p><pre>((KIND1 PROPERTY1 VALUE1 PROPERTY2 VALUE2 ...) (KIND2 ... ) ... )</pre><p>There is no guaranteed order within the list.</p></dd></dl><h4 id="sec:print-error-message"><a href="#sec:print-error-message">print-error-message</a></h4> <dl class="defsig"> <dt class="defsig" id="def:print-error-message"><span class="sig"><var class="id">print-error-message</var> <var class="arg">EXN</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var> <var class="arg">HEADER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Prints an appropriate error message to <var class="arg">PORT</var> (which defaults to the value of <tt>(current-output-port)</tt> for the object <var class="arg">EXN</var>. <var class="arg">EXN</var> may be a condition, a string or any other object. The output is prefixed by the <var class="arg">HEADER</var>, which defaults to <tt>&quot;Error:&quot;</tt>.</p></dd></dl><h2 id="sec:SRFI-12_specification"><a href="#sec:SRFI-12_specification">SRFI-12 specification</a></h2><p>A Scheme implementation (&quot;the system&quot;) raises an exception whenever an error is to be signaled or whenever the system determines that evaluation cannot proceed in a manner consistent with the semantics of Scheme. A program may also explicitly raise an exception.</p><p>Whenever the system raises an exception, it invokes the current exception handler with a condition object (encapsulating information about the exception) as its only argument. Any procedure accepting one argument may serve as an exception handler. When a program explicitly raises an exception, it may supply any object to the exception handler.</p><p>An exception is either continuable or non-continuable. When the current exception handler is invoked for a continuable exception, the continuation uses the handler's result(s) in an exception-specific way to continue. When an exception handler is invoked for a non-continuable exception, the continuation raises a non-continuable exception indicating that the exception handler returned. On CHICKEN, system error exceptions (of kind <tt>exn</tt>) are non-continuable.</p><h3 id="sec:Exception_Handlers"><a href="#sec:Exception_Handlers">Exception Handlers</a></h3><h4 id="sec:current-exception-handler"><a href="#sec:current-exception-handler">current-exception-handler</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-exception-handler"><span class="sig"><var class="id">current-exception-handler</var> <var class="dsssl">#!optional</var> <var class="arg">PROCEDURE</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Sets or returns the current exception handler, a procedure of one argument, the exception object.</p></dd></dl><h4 id="sec:with-exception-handler"><a href="#sec:with-exception-handler">with-exception-handler</a></h4> <dl class="defsig"> <dt class="defsig" id="def:with-exception-handler"><span class="sig"><var class="id">with-exception-handler</var> <var class="arg">handler</var> <var class="arg">thunk</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the result(s) of invoking <i>thunk</i>. The <i>handler</i> procedure is installed as the current exception handler in the dynamic context of invoking <i>thunk</i>.</p><p>Example:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">call-with-current-continuation <span class="paren2">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren3">(<span class="default">k</span>)</span> <span class="paren3">(<span class="default"><i><span class="symbol">with-exception-handler</span></i> <span class="paren4">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren5">(<span class="default">x</span>)</span> <span class="paren5">(<span class="default">k &#x27;<span class="paren6">(<span class="default"></span>)</span></span>)</span></span>)</span> <span class="paren4">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren5">(<span class="default"></span>)</span> <span class="paren5">(<span class="default">car &#x27;<span class="paren6">(<span class="default"></span>)</span></span>)</span></span>)</span></span>)</span></span>)</span></span>)</span> <span class="comment">;=&gt; &#x27;()</span></pre><p>Note that the handler procedure must somehow return non-locally out of the dynamic extent of the <tt>with-exception-handler</tt> form, because returning normally will signal yet another exception and thus result in non-termination.</p></dd></dl><h4 id="sec:handle-exceptions"><a href="#sec:handle-exceptions">handle-exceptions</a></h4> <dl class="defsig"> <dt class="defsig" id="def:handle-exceptions"><span class="sig"><tt>(handle-exceptions var handle-expr expr1 expr2 ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Evaluates the body expressions <i>expr1</i>, <i>expr2</i>, ... in sequence with an exception handler constructed from <i>var</i> and <i>handle-expr</i>. Assuming no exception is raised, the result(s) of the last body expression is(are) the result(s) of the <tt>handle-exceptions</tt> expression.</p><p>The exception handler created by <tt>handle-exceptions</tt> restores the dynamic context (continuation, exception handler, etc.) of the <tt>handle-exceptions</tt> expression, and then evaluates <i>handle-expr</i> with <i>var</i> bound to the value provided to the handler.</p><p>Examples:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">handle-exceptions exn <span class="paren2">(<span class="default">begin <span class="paren3">(<span class="default">display <span class="string">&quot;Went wrong&quot;</span></span>)</span> <span class="paren3">(<span class="default">newline</span>)</span></span>)</span> <span class="paren2">(<span class="default">car &#x27;<span class="paren3">(<span class="default"></span>)</span></span>)</span></span>)</span> <span class="comment">; displays &quot;Went wrong&quot; </span> <span class="paren1">(<span class="default">handle-exceptions exn <span class="paren2">(<span class="default"><i><span class="symbol">cond</span></i> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">eq? exn &#x27;one</span>)</span> 1</span>)</span> <span class="paren3">(<span class="default">else <span class="paren4">(<span class="default">abort exn</span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default">case <span class="paren3">(<span class="default">random 3</span>)</span> <span class="paren3">[<span class="default"><span class="paren4">(<span class="default">0</span>)</span> &#x27;zero</span>]</span> <span class="paren3">[<span class="default"><span class="paren4">(<span class="default">1</span>)</span> <span class="paren4">(<span class="default">abort &#x27;one</span>)</span></span>]</span> <span class="paren3">[<span class="default">else <span class="paren4">(<span class="default">abort <span class="string">&quot;Something else&quot;</span></span>)</span></span>]</span></span>)</span></span>)</span> <span class="comment">;=&gt; &#x27;zero, 1, or (abort &quot;Something else&quot;)</span></pre></dd></dl><h3 id="sec:Raising_Exceptions"><a href="#sec:Raising_Exceptions">Raising Exceptions</a></h3><h4 id="sec:abort"><a href="#sec:abort">abort</a></h4> <dl class="defsig"> <dt class="defsig" id="def:abort"><span class="sig"><var class="id">abort</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Raises a non-continuable exception represented by <i>obj</i>. The <tt>abort</tt> procedure can be implemented as follows:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">abort obj</span>)</span> <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">current-exception-handler</span>)</span> obj</span>)</span> <span class="paren2">(<span class="default">abort <span class="paren3">(<span class="default">make-property-condition &#x27;exn &#x27;message <span class="string">&quot;Exception handler returned&quot;</span></span>)</span></span>)</span></span>)</span></pre><p>The <tt>abort</tt> procedure does not ensure that its argument is a condition. If its argument is a condition, <tt>abort</tt> does not ensure that the condition indicates a non-continuable exception.</p></dd></dl><h4 id="sec:signal"><a href="#sec:signal">signal</a></h4> <dl class="defsig"> <dt class="defsig" id="def:signal"><span class="sig"><var class="id">signal</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Raises a continuable exception represented by <i>obj</i>. The <tt>signal</tt> procedure can be implemented as follows:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">signal exn</span>)</span> <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">current-exception-handler</span>)</span> exn</span>)</span></span>)</span></pre><p>The <tt>signal</tt> procedure does not ensure that its argument is a condition. If its argument is a condition, <tt>signal</tt> does not ensure that the condition indicates a continuable exception.</p></dd></dl><h3 id="sec:Condition_Objects"><a href="#sec:Condition_Objects">Condition Objects</a></h3><h4 id="sec:condition.3f"><a href="#sec:condition.3f">condition?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:condition.3f"><span class="sig"><var class="id">condition?</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns #t if <i>obj</i> is a condition, otherwise returns #f. If any of the predicates listed in Section 3.2 of the R5RS is true of <i>obj</i>, then <tt>condition?</tt> is false of <i>obj</i>.</p><p>Rationale: Any Scheme object may be passed to an exception handler. This would cause ambiguity if conditions were not disjoint from all of Scheme's standard types.</p></dd></dl><h4 id="sec:make-property-condition"><a href="#sec:make-property-condition">make-property-condition</a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-property-condition"><span class="sig"><var class="id">make-property-condition</var> <var class="arg">kind-key</var> <var class="arg">prop-key</var> <var class="arg">value</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>This procedure accepts any even number of arguments after <i>kind-key</i>, which are regarded as a sequence of alternating <i>prop-key</i> and <i>value</i> objects. Each <i>prop-key</i> is regarded as the name of a property, and each <i>value</i> is regarded as the value associated with the <i>key</i> that precedes it. Returns a <i>kind-key</i> condition that associates the given <i>prop-key</i>s with the given <i>value</i>s.</p></dd></dl><h4 id="sec:make-composite-condition"><a href="#sec:make-composite-condition">make-composite-condition</a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-composite-condition"><span class="sig"><var class="id">make-composite-condition</var> <var class="arg">condition</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly-allocated condition whose components correspond to the the given <i>condition</i>s. A predicate created by <tt>condition-predicate</tt> returns true for the new condition if and only if it returns true for one or more of its component conditions.</p></dd></dl><h4 id="sec:condition-predicate"><a href="#sec:condition-predicate">condition-predicate</a></h4> <dl class="defsig"> <dt class="defsig" id="def:condition-predicate"><span class="sig"><var class="id">condition-predicate</var> <var class="arg">kind-key</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a predicate that can be called with any object as its argument. Given a condition that was created by <tt>make-property-condition</tt>, the predicate returns #t if and only if <i>kind-key</i> is EQV? to the kind key that was passed to <tt>make-property-condition</tt>. Given a composite condition created with <tt>make-composite-condition</tt>, the predicate returns #t if and only if the predicate returns #t for at least one of its components.</p></dd></dl><h4 id="sec:condition-property-accessor"><a href="#sec:condition-property-accessor">condition-property-accessor</a></h4> <dl class="defsig"> <dt class="defsig" id="def:condition-property-accessor"><span class="sig"><var class="id">condition-property-accessor</var> <var class="arg">kind-key</var> <var class="arg">prop-key</var> <var class="dsssl">#!optional</var> <var class="arg">default</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a procedure that can be called with any condition that satisfies <tt>(condition-predicate ''kind-key'')</tt>. Given a condition that was created by <tt>make-property-condition</tt> and <i>kind-key</i>, the procedure returns the value that is associated with <i>prop-key</i>. Given a composite condition created with <tt>make-composite-condition</tt>, the procedure returns the value that is associated with <i>prop-key</i> in one of the components that satisfies <tt>(condition-predicate ''kind-key'')</tt>.</p><p>On CHICKEN, this procedure accepts an optional third argument DEFAULT. If the condition does not have a value for the desired property and if the optional argument is given, no error is signaled and the accessor returns the third argument.</p><p>When the system raises an exception, the condition it passes to the exception handler includes the <tt>'exn</tt> kind with the following properties:</p><dl><dt>message</dt> <dd>the error message</dd><dt>arguments</dt> <dd>the arguments passed to the exception handler</dd><dt>location</dt> <dd>the name of the procedure where the error occurred (if available)</dd></dl> <p>Thus, if <i>exn</i> is a condition representing a system exception, then</p> <pre class="highlight colorize"> <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">condition-property-accessor &#x27;exn &#x27;message</span>)</span> exn</span>)</span></pre><p>extracts the error message from <i>exn</i>. Example:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">handle-exceptions exn <span class="paren2">(<span class="default">begin <span class="paren3">(<span class="default">display <span class="string">&quot;Went wrong: &quot;</span></span>)</span> <span class="paren3">(<span class="default">display <span class="paren4">(<span class="default"><span class="paren5">(<span class="default">condition-property-accessor &#x27;exn &#x27;message</span>)</span> exn</span>)</span></span>)</span> <span class="paren3">(<span class="default">newline</span>)</span></span>)</span> <span class="paren2">(<span class="default">car &#x27;<span class="paren3">(<span class="default"></span>)</span></span>)</span></span>)</span> <span class="comment">; displays something like &quot;Went wrong: can&#x27;t take car of nil&quot;</span></pre></dd></dl><h3 id="sec:More_Examples"><a href="#sec:More_Examples">More Examples</a></h3> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">try-car v</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">orig <span class="paren5">(<span class="default">current-exception-handler</span>)</span></span>)</span></span>)</span> <span class="paren3">(<span class="default"><i><span class="symbol">with-exception-handler</span></i> <span class="paren4">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren5">(<span class="default">exn</span>)</span> <span class="paren5">(<span class="default">orig <span class="paren6">(<span class="default">make-composite-condition <span class="paren1">(<span class="default">make-property-condition &#x27;not-a-pair &#x27;value v</span>)</span> exn</span>)</span></span>)</span></span>)</span> <span class="paren4">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren5">(<span class="default"></span>)</span> <span class="paren5">(<span class="default">car v</span>)</span></span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren1">(<span class="default">try-car &#x27;<span class="paren2">(<span class="default">1</span>)</span></span>)</span> <span class="comment">;=&gt; 1 </span> <span class="paren1">(<span class="default">handle-exceptions exn <span class="paren2">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">condition-predicate &#x27;not-a-pair</span>)</span> exn</span>)</span> <span class="paren3">(<span class="default">begin <span class="paren4">(<span class="default">display <span class="string">&quot;Not a pair: &quot;</span></span>)</span> <span class="paren4">(<span class="default">display <span class="paren5">(<span class="default"><span class="paren6">(<span class="default">condition-property-accessor &#x27;not-a-pair &#x27;value</span>)</span> exn</span>)</span></span>)</span> <span class="paren4">(<span class="default">newline</span>)</span></span>)</span> <span class="paren3">(<span class="default">abort exn</span>)</span></span>)</span> <span class="paren2">(<span class="default">try-car 0</span>)</span></span>)</span> <span class="comment">; displays &quot;Not a pair: 0&quot; </span> <span class="paren1">(<span class="default"><i><span class="symbol">let*</span></i> <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">cs-key <span class="paren4">(<span class="default">list &#x27;color-scheme</span>)</span></span>)</span> <span class="paren3">(<span class="default">bg-key <span class="paren4">(<span class="default">list &#x27;background</span>)</span></span>)</span> <span class="paren3">(<span class="default">color-scheme? <span class="paren4">(<span class="default">condition-predicate cs-key</span>)</span></span>)</span> <span class="paren3">(<span class="default">color-scheme-background <span class="paren4">(<span class="default">condition-property-accessor cs-key bg-key</span>)</span></span>)</span> <span class="paren3">(<span class="default">condition1 <span class="paren4">(<span class="default">make-property-condition cs-key bg-key &#x27;green</span>)</span></span>)</span> <span class="paren3">(<span class="default">condition2 <span class="paren4">(<span class="default">make-property-condition cs-key bg-key &#x27;blue</span>)</span></span>)</span> <span class="paren3">(<span class="default">condition3 <span class="paren4">(<span class="default">make-composite-condition condition1 condition2</span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default">and <span class="paren3">(<span class="default">color-scheme? condition1</span>)</span> <span class="paren3">(<span class="default">color-scheme? condition2</span>)</span> <span class="paren3">(<span class="default">color-scheme? condition3</span>)</span> <span class="paren3">(<span class="default">color-scheme-background condition3</span>)</span></span>)</span></span>)</span> <span class="comment">; =&gt; &#x27;green or &#x27;blue</span></pre><hr /><p>Previous: <a href="Module%20%28chicken%20blob%29.html">Module (chicken blob)</a></p><p>Next: <a href="Module%20%28chicken%20continuation%29.html">Module (chicken continuation)</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken irregex).html���������������������������������������������0000644�0001750�0001750�00000201245�13502230004�022406� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken irregex)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_irregex.29">Module (chicken irregex)</a> <ul> <li><a href="#sec:Procedures">Procedures</a> <ul> <li><a href="#sec:irregex">irregex</a></li> <li><a href="#sec:string-.3eirregex">string-&gt;irregex</a></li> <li><a href="#sec:sre-.3eirregex">sre-&gt;irregex</a></li> <li><a href="#sec:string-.3esre">string-&gt;sre</a></li> <li><a href="#sec:maybe-string-.3esre">maybe-string-&gt;sre</a></li> <li><a href="#sec:glob-.3esre">glob-&gt;sre</a></li> <li><a href="#sec:irregex.3f">irregex?</a></li> <li><a href="#sec:irregex-search">irregex-search</a></li> <li><a href="#sec:irregex-match">irregex-match</a></li> <li><a href="#sec:irregex-match.3f">irregex-match?</a></li> <li><a href="#sec:irregex-match-data.3f">irregex-match-data?</a></li> <li><a href="#sec:irregex-num-submatches">irregex-num-submatches</a></li> <li><a href="#sec:irregex-match-num-submatches">irregex-match-num-submatches</a></li> <li><a href="#sec:irregex-names">irregex-names</a></li> <li><a href="#sec:irregex-match-names">irregex-match-names</a></li> <li><a href="#sec:irregex-match-valid-index.3f">irregex-match-valid-index?</a></li> <li><a href="#sec:irregex-match-substring">irregex-match-substring</a></li> <li><a href="#sec:irregex-match-start-index">irregex-match-start-index</a></li> <li><a href="#sec:irregex-match-end-index">irregex-match-end-index</a></li> <li><a href="#sec:irregex-match-subchunk">irregex-match-subchunk</a></li> <li><a href="#sec:irregex-match-start-chunk">irregex-match-start-chunk</a></li> <li><a href="#sec:irregex-match-end-chunk">irregex-match-end-chunk</a></li> <li><a href="#sec:irregex-replace">irregex-replace</a></li> <li><a href="#sec:irregex-replace.2fall">irregex-replace/all</a></li> <li><a href="#sec:irregex-split">irregex-split</a></li> <li><a href="#sec:irregex-extract">irregex-extract</a></li> <li><a href="#sec:irregex-fold">irregex-fold</a></li></ul></li> <li><a href="#sec:Extended_SRE_Syntax">Extended SRE Syntax</a> <ul> <li><a href="#sec:Basic_SRE_Patterns">Basic SRE Patterns</a></li> <li><a href="#sec:SRE_Repetition_Patterns">SRE Repetition Patterns</a></li> <li><a href="#sec:SRE_Character_Sets">SRE Character Sets</a></li> <li><a href="#sec:SRE_Assertion_Patterns">SRE Assertion Patterns</a></li> <li><a href="#sec:SRE_Utility_Patterns">SRE Utility Patterns</a></li></ul></li> <li><a href="#sec:Supported_PCRE_Syntax">Supported PCRE Syntax</a></li> <li><a href="#sec:Chunked_String_Matching">Chunked String Matching</a> <ul> <li><a href="#sec:make-irregex-chunker">make-irregex-chunker</a></li> <li><a href="#sec:irregex-search.2fchunked">irregex-search/chunked</a></li> <li><a href="#sec:irregex-match.2fchunked">irregex-match/chunked</a></li> <li><a href="#sec:irregex-fold.2fchunked">irregex-fold/chunked</a></li></ul></li> <li><a href="#sec:Utilities">Utilities</a> <ul> <li><a href="#sec:irregex-quote">irregex-quote</a></li> <li><a href="#sec:irregex-opt">irregex-opt</a></li> <li><a href="#sec:sre-.3estring">sre-&gt;string</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_irregex.29"><a href="#sec:Module_.28chicken_irregex.29">Module (chicken irregex)</a></h2><p>This module provides support for regular expressions, using the powerful <i>irregex</i> regular expression engine by Alex Shinn. It supports both POSIX syntax with various (irregular) PCRE extensions, as well as SCSH's SRE syntax, with various aliases for commonly used patterns. DFA matching is used when possible, otherwise a closure-compiled NFA approach is used. Matching may be performed over standard Scheme strings, or over arbitrarily chunked streams of strings.</p><p>On systems that support dynamic loading, the <tt>irregex</tt> module can be made available in the CHICKEN interpreter (<tt>csi</tt>) by entering</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">import irregex</span>)</span></pre><h3 id="sec:Procedures"><a href="#sec:Procedures">Procedures</a></h3><h4 id="sec:irregex"><a href="#sec:irregex">irregex</a></h4><h4 id="sec:string-.3eirregex"><a href="#sec:string-.3eirregex">string-&gt;irregex</a></h4><h4 id="sec:sre-.3eirregex"><a href="#sec:sre-.3eirregex">sre-&gt;irregex</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex"><span class="sig"><tt>(irregex &lt;posix-string-or-sre&gt; [&lt;options&gt; ...])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:string-.3eirregex"><span class="sig"><tt>(string-&gt;irregex &lt;posix-string&gt; [&lt;options&gt; ...])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:sre-.3eirregex"><span class="sig"><tt>(sre-&gt;irregex &lt;sre&gt; [&lt;options&gt; ...])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Compiles a regular expression from either a POSIX-style regular expression string (with most PCRE extensions) or an SCSH-style SRE. There is no <tt>(rx ...)</tt> syntax - just use normal Scheme lists, with <tt>quasiquote</tt> if you like.</p><p>Technically a string by itself could be considered a valid (though rather silly) SRE, so if you want to just match a literal string you should use something like <tt>(irregex `(: ,str))</tt>, or use the explicit <tt>(sre-&gt;irregex str)</tt>.</p><p>The options are a list of any of the following symbols:</p><dl><dt><tt>'i</tt>, <tt>'case-insensitive</tt></dt> <dd>match case-insensitively</dd><dt><tt>'m</tt>, <tt>'multi-line</tt></dt> <dd>treat string as multiple lines (effects <tt>^</tt> and <tt>$</tt>)</dd><dt><tt>'s</tt>, <tt>'single-line</tt></dt> <dd>treat string as a single line (<tt>.</tt> can match newline)</dd><dt><tt>'utf8</tt></dt> <dd>utf8-mode (assumes strings are byte-strings)</dd><dt><tt>'fast</tt></dt> <dd>try to optimize the regular expression</dd><dt><tt>'small</tt></dt> <dd>try to compile a smaller regular expression</dd><dt><tt>'backtrack</tt></dt> <dd>enforce a backtracking implementation</dd></dl> <p>The <tt>'fast</tt> and <tt>'small</tt> options are heuristic guidelines and will not necessarily make the compiled expression faster or smaller.</p></dd></dl><h4 id="sec:string-.3esre"><a href="#sec:string-.3esre">string-&gt;sre</a></h4><h4 id="sec:maybe-string-.3esre"><a href="#sec:maybe-string-.3esre">maybe-string-&gt;sre</a></h4> <dl class="defsig"> <dt class="defsig" id="def:string-.3esre"><span class="sig"><var class="id">string-&gt;sre</var> <var class="arg">&lt;str&gt;</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:maybe-string-.3esre"><span class="sig"><var class="id">maybe-string-&gt;sre</var> <var class="arg">&lt;obj&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>For backwards compatibility, procedures to convert a POSIX string into an SRE.</p><p><tt>maybe-string-&gt;sre</tt> does the same thing, but only if the argument is a string, otherwise it assumes <var class="arg">&lt;obj&gt;</var> is an SRE and returns it as-is. This is useful when you want to provide an API that allows either a POSIX string or SRE (like <tt>irregex</tt> or <tt>irregex-search</tt> below) - it ensures the result is an SRE.</p></dd></dl><h4 id="sec:glob-.3esre"><a href="#sec:glob-.3esre">glob-&gt;sre</a></h4> <dl class="defsig"> <dt class="defsig" id="def:glob-.3esre"><span class="sig"><var class="id">glob-&gt;sre</var> <var class="arg">&lt;str&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Converts a basic shell-style glob to an SRE which matches only strings which the glob would match. The glob characters <tt>[</tt>, <tt>]</tt> <tt>*</tt> and <tt>?</tt> are supported.</p></dd></dl><h4 id="sec:irregex.3f"><a href="#sec:irregex.3f">irregex?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex.3f"><span class="sig"><var class="id">irregex?</var> <var class="arg">&lt;obj&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> iff the object is a regular expression.</p></dd></dl><h4 id="sec:irregex-search"><a href="#sec:irregex-search">irregex-search</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-search"><span class="sig"><tt>(irregex-search &lt;irx&gt; &lt;str&gt; [&lt;start&gt; &lt;end&gt;])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Searches for any instances of the pattern <tt>&lt;irx&gt;</tt> (a POSIX string, SRE sexp, or pre-compiled regular expression) in <tt>&lt;str&gt;</tt>, optionally between the given range. If a match is found, returns a match object, otherwise returns <tt>#f</tt>.</p><p>Match objects can be used to query the original range of the string or its submatches using the <tt>irregex-match-*</tt> procedures below.</p><p>Examples:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search <span class="string">&quot;foobar&quot;</span> <span class="string">&quot;abcFOOBARdef&quot;</span></span>)</span> =&gt; #f <span class="paren1">(<span class="default">irregex-search <span class="paren2">(<span class="default">irregex <span class="string">&quot;foobar&quot;</span> &#x27;i</span>)</span> <span class="string">&quot;abcFOOBARdef&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default">w/nocase <span class="string">&quot;foobar&quot;</span></span>)</span> <span class="string">&quot;abcFOOBARdef&quot;</span></span>)</span> =&gt; #&lt;match&gt;</pre><p>Note, the actual match result is represented by a vector in the default implementation. Throughout this manual, we'll just write <tt>#&lt;match&gt;</tt> to show that a successful match was returned when the details are not important.</p><p>Matching follows the POSIX leftmost, longest semantics, when searching. That is, of all possible matches in the string, <tt>irregex-search</tt> will return the match at the first position (leftmost). If multiple matches are possible from that same first position, the longest match is returned.</p></dd></dl><h4 id="sec:irregex-match"><a href="#sec:irregex-match">irregex-match</a></h4><h4 id="sec:irregex-match.3f"><a href="#sec:irregex-match.3f">irregex-match?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-match"><span class="sig"><tt>(irregex-match &lt;irx&gt; &lt;str&gt; [&lt;start&gt; &lt;end&gt;])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match.3f"><span class="sig"><tt>(irregex-match? &lt;irx&gt; &lt;str&gt; [&lt;start&gt; &lt;end&gt;])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Like <tt>irregex-search</tt>, but performs an anchored match against the beginning and end of the substring specified by <tt>&lt;start&gt;</tt> and <tt>&lt;end&gt;</tt>, without searching.</p><p>Where <tt>irregex-match</tt> returns a match object, <tt>irregex-match?</tt> just returns a boolean indicating whether it matched or not.</p><p>Examples:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">w/nocase <span class="string">&quot;foobar&quot;</span></span>)</span> <span class="string">&quot;abcFOOBARdef&quot;</span></span>)</span> =&gt; #f <span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">w/nocase <span class="string">&quot;foobar&quot;</span></span>)</span> <span class="string">&quot;FOOBAR&quot;</span></span>)</span> =&gt; #&lt;match&gt;</pre></dd></dl><h4 id="sec:irregex-match-data.3f"><a href="#sec:irregex-match-data.3f">irregex-match-data?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-match-data.3f"><span class="sig"><var class="id">irregex-match-data?</var> <var class="arg">&lt;obj&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> iff the object is a successful match result from <tt>irregex-search</tt> or <tt>irregex-match</tt>.</p></dd></dl><h4 id="sec:irregex-num-submatches"><a href="#sec:irregex-num-submatches">irregex-num-submatches</a></h4><h4 id="sec:irregex-match-num-submatches"><a href="#sec:irregex-match-num-submatches">irregex-match-num-submatches</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-num-submatches"><span class="sig"><var class="id">irregex-num-submatches</var> <var class="arg">&lt;irx&gt;</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match-num-submatches"><span class="sig"><var class="id">irregex-match-num-submatches</var> <var class="arg">&lt;match&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of numbered submatches that are defined in the irregex or match object.</p></dd></dl><h4 id="sec:irregex-names"><a href="#sec:irregex-names">irregex-names</a></h4><h4 id="sec:irregex-match-names"><a href="#sec:irregex-match-names">irregex-match-names</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-names"><span class="sig"><var class="id">irregex-names</var> <var class="arg">&lt;irx&gt;</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match-names"><span class="sig"><var class="id">irregex-match-names</var> <var class="arg">&lt;match&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns an association list of named submatches that are defined in the irregex or match object. The <tt>car</tt> of each item in this list is the name of a submatch, the <tt>cdr</tt> of each item is the numerical submatch corresponding to this name. If a named submatch occurs multiple times in the irregex, it will also occur multiple times in this list.</p></dd></dl><h4 id="sec:irregex-match-valid-index.3f"><a href="#sec:irregex-match-valid-index.3f">irregex-match-valid-index?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-match-valid-index.3f"><span class="sig"><var class="id">irregex-match-valid-index?</var> <var class="arg">&lt;match&gt;</var> <var class="arg">&lt;index-or-name&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> iff the <tt>index-or-name</tt> named submatch or index is defined in the <tt>match</tt> object.</p></dd></dl><h4 id="sec:irregex-match-substring"><a href="#sec:irregex-match-substring">irregex-match-substring</a></h4><h4 id="sec:irregex-match-start-index"><a href="#sec:irregex-match-start-index">irregex-match-start-index</a></h4><h4 id="sec:irregex-match-end-index"><a href="#sec:irregex-match-end-index">irregex-match-end-index</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-match-substring"><span class="sig"><var class="id">irregex-match-substring</var> <var class="arg">&lt;match&gt;</var> <var class="dsssl">#!optional</var> <var class="arg">&lt;index-or-name&gt;</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match-start-index"><span class="sig"><var class="id">irregex-match-start-index</var> <var class="arg">&lt;match&gt;</var> <var class="dsssl">#!optional</var> <var class="arg">&lt;index-or-name&gt;</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match-end-index"><span class="sig"><var class="id">irregex-match-end-index</var> <var class="arg">&lt;match&gt;</var> <var class="dsssl">#!optional</var> <var class="arg">&lt;index-or-name&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Fetches the matched substring (or its start or end offset) at the given submatch index, or named submatch. The entire match is index 0, the first 1, etc. The default is index 0.</p></dd></dl><h4 id="sec:irregex-match-subchunk"><a href="#sec:irregex-match-subchunk">irregex-match-subchunk</a></h4><h4 id="sec:irregex-match-start-chunk"><a href="#sec:irregex-match-start-chunk">irregex-match-start-chunk</a></h4><h4 id="sec:irregex-match-end-chunk"><a href="#sec:irregex-match-end-chunk">irregex-match-end-chunk</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-match-subchunk"><span class="sig"><var class="id">irregex-match-subchunk</var> <var class="arg">&lt;match&gt;</var> <var class="dsssl">#!optional</var> <var class="arg">&lt;index-or-name&gt;</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match-start-chunk"><span class="sig"><var class="id">irregex-match-start-chunk</var> <var class="arg">&lt;match&gt;</var> <var class="dsssl">#!optional</var> <var class="arg">&lt;index-or-name&gt;</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match-end-chunk"><span class="sig"><var class="id">irregex-match-end-chunk</var> <var class="arg">&lt;match&gt;</var> <var class="dsssl">#!optional</var> <var class="arg">&lt;index-or-name&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Access the chunks delimiting the submatch index, or named submatch.</p><p><tt>irregex-match-subchunk</tt> generates a chunked data-type for the given match item, of the same type as the underlying chunk type (see Chunked String Matching below). This is only available if the chunk type specifies the get-subchunk API, otherwise an error is raised.</p></dd></dl><h4 id="sec:irregex-replace"><a href="#sec:irregex-replace">irregex-replace</a></h4><h4 id="sec:irregex-replace.2fall"><a href="#sec:irregex-replace.2fall">irregex-replace/all</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-replace"><span class="sig"><tt>(irregex-replace &lt;irx&gt; &lt;str&gt; [&lt;replacements&gt; ...])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-replace.2fall"><span class="sig"><tt>(irregex-replace/all &lt;irx&gt; &lt;str&gt; [&lt;replacements&gt; ...])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Matches a pattern in a string, and replaces it with a (possibly empty) list of substitutions. Each <tt>&lt;replacement&gt;</tt> can be either a string literal, a numeric index, a symbol (as a named submatch), or a procedure which takes one argument (the match object) and returns a string.</p><p>Examples:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-replace <span class="string">&quot;[aeiou]&quot;</span> <span class="string">&quot;hello world&quot;</span> <span class="string">&quot;*&quot;</span></span>)</span> =&gt; <span class="string">&quot;h*llo world&quot;</span> <span class="paren1">(<span class="default">irregex-replace/all <span class="string">&quot;[aeiou]&quot;</span> <span class="string">&quot;hello world&quot;</span> <span class="string">&quot;*&quot;</span></span>)</span> =&gt; <span class="string">&quot;h*ll* w*rld&quot;</span> <span class="paren1">(<span class="default">irregex-replace <span class="string">&quot;(.)(.)&quot;</span> <span class="string">&quot;ab&quot;</span> 2 1 <span class="string">&quot;*&quot;</span></span>)</span> =&gt; <span class="string">&quot;ba*&quot;</span> <span class="paren1">(<span class="default">irregex-replace <span class="string">&quot;...bar&quot;</span> <span class="string">&quot;xxfoobar&quot;</span> <span class="paren2">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren3">(<span class="default">m</span>)</span> <span class="paren3">(<span class="default">string-reverse <span class="paren4">(<span class="default">irregex-match-substring m</span>)</span></span>)</span></span>)</span></span>)</span> =&gt; <span class="string">&quot;xxraboof&quot;</span> <span class="paren1">(<span class="default">irregex-replace <span class="string">&quot;(...)(bar)&quot;</span> <span class="string">&quot;xxfoobar&quot;</span> 2 <span class="paren2">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren3">(<span class="default">m</span>)</span> <span class="paren3">(<span class="default">string-reverse <span class="paren4">(<span class="default">irregex-match-substring m 1</span>)</span></span>)</span></span>)</span></span>)</span> =&gt; <span class="string">&quot;xxbaroof&quot;</span></pre></dd></dl><h4 id="sec:irregex-split"><a href="#sec:irregex-split">irregex-split</a></h4><h4 id="sec:irregex-extract"><a href="#sec:irregex-extract">irregex-extract</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-split"><span class="sig"><tt>(irregex-split &lt;irx&gt; &lt;str&gt; [&lt;start&gt; &lt;end&gt;])</tt></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-extract"><span class="sig"><tt>(irregex-extract &lt;irx&gt; &lt;str&gt; [&lt;start&gt; &lt;end&gt;])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p><tt>irregex-split</tt> splits the string <tt>&lt;str&gt;</tt> into substrings divided by the pattern in <tt>&lt;irx&gt;</tt>. <tt>irregex-extract</tt> does the opposite, returning a list of each instance of the pattern matched disregarding the substrings in between.</p></dd></dl><h4 id="sec:irregex-fold"><a href="#sec:irregex-fold">irregex-fold</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-fold"><span class="sig"><tt>(irregex-fold &lt;irx&gt; &lt;kons&gt; &lt;knil&gt; &lt;str&gt; [&lt;finish&gt; &lt;start&gt; &lt;end&gt;])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>This performs a fold operation over every non-overlapping place <tt>&lt;irx&gt;</tt> occurs in the string <tt>str</tt>.</p><p>The <tt>&lt;kons&gt;</tt> procedure takes the following signature:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">&lt;kons&gt; &lt;from-index&gt; &lt;match&gt; &lt;seed&gt;</span>)</span></pre><p>where <tt>&lt;from-index&gt;</tt> is the index from where we started searching (initially <tt>&lt;start&gt;</tt> and thereafter the end index of the last match), <tt>&lt;match&gt;</tt> is the resulting match-data object, and <tt>&lt;seed&gt;</tt> is the accumulated fold result starting with <tt>&lt;knil&gt;</tt>.</p><p>The rationale for providing the <tt>&lt;from-index&gt;</tt> (which is not provided in the SCSH <tt>regexp-fold</tt> utility), is because this information is useful (e.g. for extracting the unmatched portion of the string before the current match, as needed in <tt>irregex-replace</tt>), and not otherwise directly accessible.</p><p>The optional <tt>&lt;finish&gt;</tt> takes two arguments:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">&lt;finish&gt; &lt;from-index&gt; &lt;seed&gt;</span>)</span></pre><p>which simiarly allows you to pick up the unmatched tail of the string, and defaults to just returning the <tt>&lt;seed&gt;</tt>.</p><p><tt>&lt;start&gt;</tt> and <tt>&lt;end&gt;</tt> are numeric indices letting you specify the boundaries of the string on which you want to fold.</p><p>To extract all instances of a match out of a string, you can use</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">map irregex-match-substring <span class="paren2">(<span class="default">irregex-fold &lt;irx&gt; <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren4">(<span class="default">i m s</span>)</span> <span class="paren4">(<span class="default">cons m s</span>)</span></span>)</span> &#x27;<span class="paren3">(<span class="default"></span>)</span> &lt;str&gt; <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren4">(<span class="default">i s</span>)</span> <span class="paren4">(<span class="default">reverse s</span>)</span></span>)</span></span>)</span></span>)</span></pre></dd></dl><h3 id="sec:Extended_SRE_Syntax"><a href="#sec:Extended_SRE_Syntax">Extended SRE Syntax</a></h3><p>Irregex provides the first native implementation of SREs (Scheme Regular Expressions), and includes many extensions necessary both for minimal POSIX compatibility, as well as for modern extensions found in libraries such as PCRE.</p><p>The following table summarizes the SRE syntax, with detailed explanations following.</p><pre> ;; basic patterns &lt;string&gt; ; literal string (seq &lt;sre&gt; ...) ; sequence (: &lt;sre&gt; ...) (or &lt;sre&gt; ...) ; alternation ;; optional/multiple patterns (? &lt;sre&gt; ...) ; 0 or 1 matches (* &lt;sre&gt; ...) ; 0 or more matches (+ &lt;sre&gt; ...) ; 1 or more matches (= &lt;n&gt; &lt;sre&gt; ...) ; exactly &lt;n&gt; matches (&gt;= &lt;n&gt; &lt;sre&gt; ...) ; &lt;n&gt; or more matches (** &lt;from&gt; &lt;to&gt; &lt;sre&gt; ...) ; &lt;n&gt; to &lt;m&gt; matches (?? &lt;sre&gt; ...) ; non-greedy (non-greedy) pattern: (0 or 1) (*? &lt;sre&gt; ...) ; non-greedy kleene star (**? &lt;from&gt; &lt;to&gt; &lt;sre&gt; ...) ; non-greedy range ;; submatch patterns (submatch &lt;sre&gt; ...) ; numbered submatch ($ &lt;sre&gt; ...) (submatch-named &lt;name&gt; &lt;sre&gt; ...) ; named submatch (=&gt; &lt;name&gt; &lt;sre&gt; ...) (backref &lt;n-or-name&gt;) ; match a previous submatch ;; toggling case-sensitivity (w/case &lt;sre&gt; ...) ; enclosed &lt;sre&gt;s are case-sensitive (w/nocase &lt;sre&gt; ...) ; enclosed &lt;sre&gt;s are case-insensitive ;; character sets &lt;char&gt; ; singleton char set (&lt;string&gt;) ; set of chars (or &lt;cset-sre&gt; ...) ; set union (~ &lt;cset-sre&gt; ...) ; set complement (i.e. [^...]) (- &lt;cset-sre&gt; ...) ; set difference (&amp; &lt;cset-sre&gt; ...) ; set intersection (/ &lt;range-spec&gt; ...) ; pairs of chars as ranges ;; named character sets any nonl ascii lower-case lower upper-case upper alphabetic alpha numeric num alphanumeric alphanum alnum punctuation punct graphic graph whitespace white space printing print control cntrl hex-digit xdigit ;; assertions and conditionals bos eos ; beginning/end of string bol eol ; beginning/end of line bow eow ; beginning/end of word nwb ; non-word-boundary (look-ahead &lt;sre&gt; ...) ; zero-width look-ahead assertion (look-behind &lt;sre&gt; ...) ; zero-width look-behind assertion (neg-look-ahead &lt;sre&gt; ...) ; zero-width negative look-ahead assertion (neg-look-behind &lt;sre&gt; ...) ; zero-width negative look-behind assertion (atomic &lt;sre&gt; ...) ; for (?&gt;...) independent patterns (if &lt;test&gt; &lt;pass&gt; [&lt;fail&gt;]) ; conditional patterns commit ; don't backtrack beyond this (i.e. cut) ;; backwards compatibility (posix-string &lt;string&gt;) ; embed a POSIX string literal</pre><h4 id="sec:Basic_SRE_Patterns"><a href="#sec:Basic_SRE_Patterns">Basic SRE Patterns</a></h4><p>The simplest SRE is a literal string, which matches that string exactly.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search <span class="string">&quot;needle&quot;</span> <span class="string">&quot;hayneedlehay&quot;</span></span>)</span> =&gt; #&lt;match&gt;</pre><p>By default the match is case-sensitive, though you can control this either with the compiler flags or local overrides:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search <span class="string">&quot;needle&quot;</span> <span class="string">&quot;haynEEdlehay&quot;</span></span>)</span> =&gt; #f <span class="paren1">(<span class="default">irregex-search <span class="paren2">(<span class="default">irregex <span class="string">&quot;needle&quot;</span> &#x27;i</span>)</span> <span class="string">&quot;haynEEdlehay&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default">w/nocase <span class="string">&quot;needle&quot;</span></span>)</span> <span class="string">&quot;haynEEdlehay&quot;</span></span>)</span> =&gt; #&lt;match&gt;</pre><p>You can use <tt>w/case</tt> to switch back to case-sensitivity inside a <tt>w/nocase</tt> or when the SRE was compiled with <tt>'i</tt>:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default">w/nocase <span class="string">&quot;SMALL&quot;</span> <span class="paren3">(<span class="default">w/case <span class="string">&quot;BIG&quot;</span></span>)</span></span>)</span> <span class="string">&quot;smallBIGsmall&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default">w/nocase <span class="string">&quot;small&quot;</span> <span class="paren3">(<span class="default">w/case <span class="string">&quot;big&quot;</span></span>)</span></span>)</span> <span class="string">&quot;smallBIGsmall&quot;</span></span>)</span> =&gt; #f</pre><p><i>Important:</i> characters outside the ASCII range (ie, UTF8 chars) are <b>not</b> matched case insensitively!</p><p>Of course, literal strings by themselves aren't very interesting regular expressions, so we want to be able to compose them. The most basic way to do this is with the <tt>seq</tt> operator (or its abbreviation <tt>:</tt>), which matches one or more patterns consecutively:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;one&quot;</span> space <span class="string">&quot;two&quot;</span> space <span class="string">&quot;three&quot;</span></span>)</span> <span class="string">&quot;one two three&quot;</span></span>)</span> =&gt; #&lt;match&gt;</pre><p>As you may have noticed above, the <tt>w/case</tt> and <tt>w/nocase</tt> operators allowed multiple SREs in a sequence - other operators that take any number of arguments (e.g. the repetition operators below) allow such implicit sequences.</p><p>To match any one of a set of patterns use the <tt>or</tt> alternation operator:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default">or <span class="string">&quot;eeney&quot;</span> <span class="string">&quot;meeney&quot;</span> <span class="string">&quot;miney&quot;</span></span>)</span> <span class="string">&quot;meeney&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default">or <span class="string">&quot;eeney&quot;</span> <span class="string">&quot;meeney&quot;</span> <span class="string">&quot;miney&quot;</span></span>)</span> <span class="string">&quot;moe&quot;</span></span>)</span> =&gt; #f</pre><h4 id="sec:SRE_Repetition_Patterns"><a href="#sec:SRE_Repetition_Patterns">SRE Repetition Patterns</a></h4><p>There are also several ways to control the number of times a pattern is matched. The simplest of these is <tt>?</tt> which just optionally matches the pattern:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;match&quot;</span> <span class="paren3">(<span class="default">? <span class="string">&quot;es&quot;</span></span>)</span> <span class="string">&quot;!&quot;</span></span>)</span> <span class="string">&quot;matches!&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;match&quot;</span> <span class="paren3">(<span class="default">? <span class="string">&quot;es&quot;</span></span>)</span> <span class="string">&quot;!&quot;</span></span>)</span> <span class="string">&quot;match!&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;match&quot;</span> <span class="paren3">(<span class="default">? <span class="string">&quot;es&quot;</span></span>)</span> <span class="string">&quot;!&quot;</span></span>)</span> <span class="string">&quot;matche!&quot;</span></span>)</span> =&gt; #f</pre><p>To optionally match any number of times, use <tt>*</tt>, the Kleene star:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;&lt;&quot;</span> <span class="paren3">(<span class="default">* <span class="paren4">(<span class="default">~ <span class="character">#\&gt;</span></span>)</span></span>)</span> <span class="string">&quot;&gt;&quot;</span></span>)</span> <span class="string">&quot;&lt;html&gt;&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;&lt;&quot;</span> <span class="paren3">(<span class="default">* <span class="paren4">(<span class="default">~ <span class="character">#\&gt;</span></span>)</span></span>)</span> <span class="string">&quot;&gt;&quot;</span></span>)</span> <span class="string">&quot;&lt;&gt;&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;&lt;&quot;</span> <span class="paren3">(<span class="default">* <span class="paren4">(<span class="default">~ <span class="character">#\&gt;</span></span>)</span></span>)</span> <span class="string">&quot;&gt;&quot;</span></span>)</span> <span class="string">&quot;&lt;html&quot;</span></span>)</span> =&gt; #f</pre><p>Often you want to match any number of times, but at least one time is required, and for that you use <tt>+</tt>:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;&lt;&quot;</span> <span class="paren3">(<span class="default">+ <span class="paren4">(<span class="default">~ <span class="character">#\&gt;</span></span>)</span></span>)</span> <span class="string">&quot;&gt;&quot;</span></span>)</span> <span class="string">&quot;&lt;html&gt;&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;&lt;&quot;</span> <span class="paren3">(<span class="default">+ <span class="paren4">(<span class="default">~ <span class="character">#\&gt;</span></span>)</span></span>)</span> <span class="string">&quot;&gt;&quot;</span></span>)</span> <span class="string">&quot;&lt;a&gt;&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;&lt;&quot;</span> <span class="paren3">(<span class="default">+ <span class="paren4">(<span class="default">~ <span class="character">#\&gt;</span></span>)</span></span>)</span> <span class="string">&quot;&gt;&quot;</span></span>)</span> <span class="string">&quot;&lt;&gt;&quot;</span></span>)</span> =&gt; #f</pre><p>More generally, to match at least a given number of times, use <tt>&gt;=</tt>:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;&lt;&quot;</span> <span class="paren3">(<span class="default">&gt;= 3 <span class="paren4">(<span class="default">~ <span class="character">#\&gt;</span></span>)</span></span>)</span> <span class="string">&quot;&gt;&quot;</span></span>)</span> <span class="string">&quot;&lt;table&gt;&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;&lt;&quot;</span> <span class="paren3">(<span class="default">&gt;= 3 <span class="paren4">(<span class="default">~ <span class="character">#\&gt;</span></span>)</span></span>)</span> <span class="string">&quot;&gt;&quot;</span></span>)</span> <span class="string">&quot;&lt;pre&gt;&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;&lt;&quot;</span> <span class="paren3">(<span class="default">&gt;= 3 <span class="paren4">(<span class="default">~ <span class="character">#\&gt;</span></span>)</span></span>)</span> <span class="string">&quot;&gt;&quot;</span></span>)</span> <span class="string">&quot;&lt;tr&gt;&quot;</span></span>)</span> =&gt; #f</pre><p>To match a specific number of times exactly, use <tt>=</tt>:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;&lt;&quot;</span> <span class="paren3">(<span class="default">= 4 <span class="paren4">(<span class="default">~ <span class="character">#\&gt;</span></span>)</span></span>)</span> <span class="string">&quot;&gt;&quot;</span></span>)</span> <span class="string">&quot;&lt;html&gt;&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;&lt;&quot;</span> <span class="paren3">(<span class="default">= 4 <span class="paren4">(<span class="default">~ <span class="character">#\&gt;</span></span>)</span></span>)</span> <span class="string">&quot;&gt;&quot;</span></span>)</span> <span class="string">&quot;&lt;table&gt;&quot;</span></span>)</span> =&gt; #f</pre><p>And finally, the most general form is <tt>**</tt> which specifies a range of times to match. All of the earlier forms are special cases of this.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="paren3">(<span class="default">= 3 <span class="paren4">(<span class="default">** 1 3 numeric</span>)</span> <span class="string">&quot;.&quot;</span></span>)</span> <span class="paren3">(<span class="default">** 1 3 numeric</span>)</span></span>)</span> <span class="string">&quot;192.168.1.10&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="paren3">(<span class="default">= 3 <span class="paren4">(<span class="default">** 1 3 numeric</span>)</span> <span class="string">&quot;.&quot;</span></span>)</span> <span class="paren3">(<span class="default">** 1 3 numeric</span>)</span></span>)</span> <span class="string">&quot;192.0168.1.10&quot;</span></span>)</span> =&gt; #f</pre><p>There are also so-called &quot;non-greedy&quot; variants of these repetition operators, by convention suffixed with an additional <tt>?</tt>. Since the normal repetition patterns can match any of the allotted repetition range, these operators will match a string if and only if the normal versions matched. However, when the endpoints of which submatch matched where are taken into account (specifically, all matches when using irregex-search since the endpoints of the match itself matter), the use of a non-greedy repetition can change the result.</p><p>So, whereas <tt>?</tt> can be thought to mean &quot;match or don't match,&quot; <tt>??</tt> means &quot;don't match or match.&quot; <tt>*</tt> typically consumes as much as possible, but <tt>*?</tt> tries first to match zero times, and only consumes one at a time if that fails. If you have a greedy operator followed by a non-greedy operator in the same pattern, they can produce surprisins results as they compete to make the match longer or shorter. If this seems confusing, that's because it is. Non-greedy repetitions are defined only in terms of the specific backtracking algorithm used to implement them, which for compatibility purposes always means the Perl algorithm. Thus, when using these patterns you force IrRegex to use a backtracking engine, and can't rely on efficient execution.</p><h4 id="sec:SRE_Character_Sets"><a href="#sec:SRE_Character_Sets">SRE Character Sets</a></h4><p>Perhaps more common than matching specific strings is matching any of a set of characters. You can use the <tt>or</tt> alternation pattern on a list of single-character strings to simulate a character set, but this is too clumsy for everyday use so SRE syntax allows a number of shortcuts.</p><p>A single character matches that character literally, a trivial character class. More conveniently, a list holding a single element which is a string refers to the character set composed of every character in the string.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">* <span class="character">#\-</span></span>)</span> <span class="string">&quot;---&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">* <span class="character">#\-</span></span>)</span> <span class="string">&quot;-_-&quot;</span></span>)</span> =&gt; #f <span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">* <span class="paren3">(<span class="default"><span class="string">&quot;aeiou&quot;</span></span>)</span></span>)</span> <span class="string">&quot;oui&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">* <span class="paren3">(<span class="default"><span class="string">&quot;aeiou&quot;</span></span>)</span></span>)</span> <span class="string">&quot;ouais&quot;</span></span>)</span> =&gt; #f</pre><p>Ranges are introduced with the <tt>/</tt> operator. Any strings or characters in the <tt>/</tt> are flattened and then taken in pairs to represent the start and end points, inclusive, of character ranges.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">* <span class="paren3">(<span class="default">/ <span class="string">&quot;AZ09&quot;</span></span>)</span></span>)</span> <span class="string">&quot;R2D2&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">* <span class="paren3">(<span class="default">/ <span class="string">&quot;AZ09&quot;</span></span>)</span></span>)</span> <span class="string">&quot;C-3PO&quot;</span></span>)</span> =&gt; #f</pre><p>In addition, a number of set algebra operations are provided. <tt>or</tt>, of course, has the same meaning, but when all the options are character sets it can be thought of as the set union operator. This is further extended by the <tt>&amp;</tt> set intersection, <tt>-</tt> set difference, and <tt>~</tt> set complement operators.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">* <span class="paren3">(<span class="default">&amp; <span class="paren4">(<span class="default">/ <span class="string">&quot;az&quot;</span></span>)</span> <span class="paren4">(<span class="default">~ <span class="paren5">(<span class="default"><span class="string">&quot;aeiou&quot;</span></span>)</span></span>)</span></span>)</span></span>)</span> <span class="string">&quot;xyzzy&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">* <span class="paren3">(<span class="default">&amp; <span class="paren4">(<span class="default">/ <span class="string">&quot;az&quot;</span></span>)</span> <span class="paren4">(<span class="default">~ <span class="paren5">(<span class="default"><span class="string">&quot;aeiou&quot;</span></span>)</span></span>)</span></span>)</span></span>)</span> <span class="string">&quot;vowels&quot;</span></span>)</span> =&gt; #f <span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">* <span class="paren3">(<span class="default">- <span class="paren4">(<span class="default">/ <span class="string">&quot;az&quot;</span></span>)</span> <span class="paren4">(<span class="default"><span class="string">&quot;aeiou&quot;</span></span>)</span></span>)</span></span>)</span> <span class="string">&quot;xyzzy&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-match &#x27;<span class="paren2">(<span class="default">* <span class="paren3">(<span class="default">- <span class="paren4">(<span class="default">/ <span class="string">&quot;az&quot;</span></span>)</span> <span class="paren4">(<span class="default"><span class="string">&quot;aeiou&quot;</span></span>)</span></span>)</span></span>)</span> <span class="string">&quot;vowels&quot;</span></span>)</span> =&gt; #f</pre><h4 id="sec:SRE_Assertion_Patterns"><a href="#sec:SRE_Assertion_Patterns">SRE Assertion Patterns</a></h4><p>There are a number of times it can be useful to assert something about the area around a pattern without explicitly making it part of the pattern. The most common cases are specifically anchoring some pattern to the beginning or end of a word or line or even the whole string. For example, to match on the end of a word:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;foo&quot;</span> eow</span>)</span> <span class="string">&quot;foo&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;foo&quot;</span> eow</span>)</span> <span class="string">&quot;foo!&quot;</span></span>)</span> =&gt; #&lt;match&gt; <span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;foo&quot;</span> eow</span>)</span> <span class="string">&quot;foof&quot;</span></span>)</span> =&gt; #f</pre><p>The <tt>bow</tt>, <tt>bol</tt>, <tt>eol</tt>, <tt>bos</tt> and <tt>eos</tt> work similarly. <tt>nwb</tt> asserts that you are not in a word-boundary - if replaced for <tt>eow</tt> in the above examples it would reverse all the results.</p><p>There is no <tt>wb</tt>, since you tend to know from context whether it would be the beginning or end of a word, but if you need it you can always use <tt>(or bow eow)</tt>.</p><p>Somewhat more generally, Perl introduced positive and negative look-ahead and look-behind patterns. Perl look-behind patterns are limited to a fixed length, however the IrRegex versions have no such limit.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">irregex-search &#x27;<span class="paren2">(<span class="default"><span class="keyword">:</span> <span class="string">&quot;regular&quot;</span> <span class="paren3">(<span class="default">look-ahead <span class="string">&quot; expression&quot;</span></span>)</span></span>)</span> <span class="string">&quot;regular expression&quot;</span></span>)</span> =&gt; #&lt;match&gt;</pre><p>The most general case, of course, would be an <tt>and</tt> pattern to complement the <tt>or</tt> pattern - all the patterns must match or the whole pattern fails. This may be provided in a future release, although it (and look-ahead and look-behind assertions) are unlikely to be compiled efficiently.</p><h4 id="sec:SRE_Utility_Patterns"><a href="#sec:SRE_Utility_Patterns">SRE Utility Patterns</a></h4><p>The following utility regular expressions are also provided for common patterns that people are eternally reinventing. They are not necessarily the official patterns matching the RFC definitions of the given data, because of the way that such patterns tend to be used. There are three general usages for regexps:</p><dl><dt>searching</dt> <dd>search for a pattern matching a desired object in a larger text</dd><dt>validation</dt> <dd>determine whether an entire string matches a pattern</dd><dt>extraction</dt> <dd>given a string already known to be valid, extract certain fields from it as submatches</dd></dl> <p>In some cases, but not always, these will overlap. When they are different, <tt>irregex-search</tt> will naturally always want the searching version, so IrRegex provides that version.</p><p>As an example where these might be different, consider a URL. If you want to match all the URLs in some arbitrary text, you probably want to exclude a period or comma at the tail end of a URL, since it's more likely being used as punctuation rather than part of the URL, despite the fact that it would be valid URL syntax.</p><p>Another problem with the RFC definitions is the standard itself may have become irrelevant. For example, the pattern IrRegex provides for email addresses doesn't match quoted local parts (e.g. <tt>&quot;first last&quot;@domain.com</tt>) because these are increasingly rare, and unsupported by enough software that it's better to discourage their use. Conversely, technically consecutive periods (e.g. <tt>first..last@domain.com</tt>) are not allowed in email addresses, but most email software does allow this, and in fact such addresses are quite common in Japan.</p><p>The current patterns provided are:</p><pre> newline ; general newline pattern (crlf, cr, lf) integer ; an integer real ; a real number (including scientific) string ; a &quot;quoted&quot; string symbol ; an R5RS Scheme symbol ipv4-address ; a numeric decimal ipv4 address ipv6-address ; a numeric hexadecimal ipv6 address domain ; a domain name email ; an email address http-url ; a URL beginning with https?://</pre><p>Because of these issues the exact definitions of these patterns are subject to be changed, but will be documented clearly when they are finalized. More common patterns are also planned, but as what you want increases in complexity it's probably better to use a real parser.</p><h3 id="sec:Supported_PCRE_Syntax"><a href="#sec:Supported_PCRE_Syntax">Supported PCRE Syntax</a></h3><p>Since the PCRE syntax is so overwhelming complex, it's easier to just list what we *don't* support for now. Refer to the <a href="http://pcre.org/pcre.txt">PCRE documentation</a> for details. You should be using the SRE syntax anyway!</p><p>Unicode character classes (<tt>\P</tt>) are not supported, but will be in an upcoming release. <tt>\C</tt> named characters are not supported.</p><p>Callbacks, subroutine patterns and recursive patterns are not supported. (<tt>*FOO</tt>) patterns are not supported and may never be.</p><p><tt>\G</tt> and <tt>\K</tt> are not supported.</p><p>Octal character escapes are not supported because they are ambiguous with back-references - just use hex character escapes.</p><p>Other than that everything should work, including named submatches, zero-width assertions, conditional patterns, etc.</p><p>In addition, <tt>\&lt;</tt> and <tt>\&gt;</tt> act as beginning-of-word and end-of-word marks, respectively, as in Emacs regular expressions.</p><p>Also, two escapes are provided to embed SRE patterns inside PCRE strings, <tt>&quot;\'&lt;sre&gt;&quot;</tt> and <tt>&quot;(*'&lt;sre&gt;)&quot;</tt>. For example, to match a comma-delimited list of integers you could use</p> <pre class="highlight colorize"><span class="string">&quot;</span><span class="string">\\</span><span class="string">&#x27;integer(,</span><span class="string">\\</span><span class="string">&#x27;integer)*&quot;</span></pre><p>and to match a URL in angle brackets you could use</p> <pre class="highlight colorize"><span class="string">&quot;&lt;(&#x27;*http-url)&gt;&quot;</span></pre><p>Note in the second example the enclosing <tt>&quot;('*...)&quot;</tt> syntax is needed because the Scheme reader would consider the closing <tt>&quot;&gt;&quot;</tt> as part of the SRE symbol.</p><p>The following chart gives a quick reference from PCRE form to the SRE equivalent:</p><pre> ;; basic syntax &quot;^&quot; ;; bos (or eos inside (?m: ...)) &quot;$&quot; ;; eos (or eos inside (?m: ...)) &quot;.&quot; ;; nonl &quot;a?&quot; ;; (? a) &quot;a*&quot; ;; (* a) &quot;a+&quot; ;; (+ a) &quot;a??&quot; ;; (?? a) &quot;a*?&quot; ;; (*? a) &quot;a+?&quot; ;; (+? a) &quot;a{n,m}&quot; ;; (** n m a)</pre><pre> ;; grouping &quot;(...)&quot; ;; (submatch ...) &quot;(?:...)&quot; ;; (: ...) &quot;(?i:...)&quot; ;; (w/nocase ...) &quot;(?-i:...)&quot; ;; (w/case ...) &quot;(?&lt;name&gt;...)&quot; ;; (=&gt; &lt;name&gt;...)</pre><pre> ;; character classes &quot;[aeiou]&quot; ;; (&quot;aeiou&quot;) &quot;[^aeiou]&quot; ;; (~ &quot;aeiou&quot;) &quot;[a-z]&quot; ;; (/ &quot;az&quot;) or (/ &quot;a&quot; &quot;z&quot;) &quot;[[:alpha:]]&quot; ;; alpha</pre><pre> ;; assertions &quot;(?=...)&quot; ;; (look-ahead ...) &quot;(?!...)&quot; ;; (neg-look-ahead ...) &quot;(?&lt;=...)&quot; ;; (look-behind ...) &quot;(?&lt;!...)&quot; ;; (neg-look-behind ...) &quot;(?(test)pass|fail)&quot; ;; (if test pass fail) &quot;(*COMMIT)&quot; ;; commit</pre><h3 id="sec:Chunked_String_Matching"><a href="#sec:Chunked_String_Matching">Chunked String Matching</a></h3><p>It's often desirable to perform regular expression matching over sequences of characters not represented as a single string. The most obvious example is a text-buffer data structure, but you may also want to match over lists or trees of strings (i.e. ropes), over only certain ranges within a string, over an input port, etc. With existing regular expression libraries, the only way to accomplish this is by converting the abstract sequence into a freshly allocated string. This can be expensive, or even impossible if the object is a text-buffer opened onto a 500MB file.</p><p>IrRegex provides a chunked string API specifically for this purpose. You define a chunking API with <tt>make-irregex-chunker</tt>:</p><h4 id="sec:make-irregex-chunker"><a href="#sec:make-irregex-chunker">make-irregex-chunker</a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-irregex-chunker"><span class="sig"><tt>(make-irregex-chunker &lt;get-next&gt; &lt;get-string&gt; [&lt;get-start&gt; &lt;get-end&gt; &lt;get-substring&gt; &lt;get-subchunk&gt;])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>where</p><p><tt>(&lt;get-next&gt; chunk) =&gt; </tt> returns the next chunk, or <tt>#f</tt> if there are no more chunks</p><p><tt>(&lt;get-string&gt; chunk) =&gt; </tt> a string source for the chunk</p><p><tt>(&lt;get-start&gt; chunk) =&gt; </tt> the start index of the result of <tt>&lt;get-string&gt;</tt> (defaults to always 0)</p><p><tt>(&lt;get-end&gt; chunk) =&gt; </tt> the end (exclusive) of the string (defaults to <tt>string-length</tt> of the source string)</p><p><tt>(&lt;get-substring&gt; cnk1 i cnk2 j) =&gt; </tt> a substring for the range between the chunk <tt>cnk1</tt> starting at index <tt>i</tt> and ending at <tt>cnk2</tt> at index <tt>j</tt></p><p><tt>(&lt;get-subchunk&gt; cnk1 i cnk2 j) =&gt; </tt> as above but returns a new chunked data type instead of a string (optional)</p><p>There are two important constraints on the <tt>&lt;get-next&gt;</tt> procedure. It must return an <tt>eq?</tt> identical object when called multiple times on the same chunk, and it must not return a chunk with an empty string (start == end). This second constraint is for performance reasons - we push the work of possibly filtering empty chunks to the chunker since there are many chunk types for which empty strings aren't possible, and this work is thus not needed. Note that the initial chunk passed to match on is allowed to be empty.</p><p><tt>&lt;get-substring&gt;</tt> is provided for possible performance improvements - without it a default is used. <tt>&lt;get-subchunk&gt;</tt> is optional - without it you may not use <tt>irregex-match-subchunk</tt> described above.</p><p>You can then match chunks of these types with the following procedures:</p></dd></dl><h4 id="sec:irregex-search.2fchunked"><a href="#sec:irregex-search.2fchunked">irregex-search/chunked</a></h4><h4 id="sec:irregex-match.2fchunked"><a href="#sec:irregex-match.2fchunked">irregex-match/chunked</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-search.2fchunked"><span class="sig"><var class="id">irregex-search/chunked</var> <var class="arg">&lt;irx&gt;</var> <var class="arg">&lt;chunker&gt;</var> <var class="arg">&lt;chunk&gt;</var> <var class="dsssl">#!optional</var> <var class="arg">&lt;start&gt;</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:irregex-match.2fchunked"><span class="sig"><var class="id">irregex-match/chunked</var> <var class="arg">&lt;irx&gt;</var> <var class="arg">&lt;chunker&gt;</var> <var class="arg">&lt;chunk&gt;</var> <var class="dsssl">#!optional</var> <var class="arg">&lt;start&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These return normal match-data objects.</p><p>Example:</p><p>To match against a simple, flat list of strings use:</p> <pre class="highlight colorize"> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">rope-&gt;string rope1 start rope2 end</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren3">(<span class="default">eq? rope1 rope2</span>)</span> <span class="paren3">(<span class="default">substring <span class="paren4">(<span class="default">car rope1</span>)</span> start end</span>)</span> <span class="paren3">(<span class="default"><i><span class="symbol">let</span></i> <i><span class="symbol">loop</span></i> <span class="paren4">(<span class="default"><span class="paren5">(<span class="default">rope <span class="paren6">(<span class="default">cdr rope1</span>)</span></span>)</span> <span class="paren5">(<span class="default">res <span class="paren6">(<span class="default">list <span class="paren1">(<span class="default">substring <span class="paren2">(<span class="default">car rope1</span>)</span> start</span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren4">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren5">(<span class="default">eq? rope rope2</span>)</span> <span class="paren5">(<span class="default">string-concatenate-reverse <span class="comment">; from SRFI-13 </span> <span class="paren6">(<span class="default">cons <span class="paren1">(<span class="default">substring <span class="paren2">(<span class="default">car rope</span>)</span> 0 end</span>)</span> res</span>)</span></span>)</span> <span class="paren5">(<span class="default"><i><span class="symbol">loop</span></i> <span class="paren6">(<span class="default">cdr rope</span>)</span> <span class="paren6">(<span class="default">cons <span class="paren1">(<span class="default">car rope</span>)</span> res</span>)</span></span>)</span></span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> rope-chunker <span class="paren2">(<span class="default">make-irregex-chunker <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren4">(<span class="default">x</span>)</span> <span class="paren4">(<span class="default">and <span class="paren5">(<span class="default">pair? <span class="paren6">(<span class="default">cdr x</span>)</span></span>)</span> <span class="paren5">(<span class="default">cdr x</span>)</span></span>)</span></span>)</span> car <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren4">(<span class="default">x</span>)</span> 0</span>)</span> <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren4">(<span class="default">x</span>)</span> <span class="paren4">(<span class="default">string-length <span class="paren5">(<span class="default">car x</span>)</span></span>)</span></span>)</span> rope-&gt;string</span>)</span></span>)</span> <span class="paren1">(<span class="default">irregex-search/chunked &lt;pat&gt; rope-chunker &lt;list-of-strings&gt;</span>)</span></pre><p>Here we are just using the default start, end and substring behaviors, so the above chunker could simply be defined as:</p> <pre class="highlight colorize"> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> rope-chunker <span class="paren2">(<span class="default">make-irregex-chunker <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren4">(<span class="default">x</span>)</span> <span class="paren4">(<span class="default">and <span class="paren5">(<span class="default">pair? <span class="paren6">(<span class="default">cdr x</span>)</span></span>)</span> <span class="paren5">(<span class="default">cdr x</span>)</span></span>)</span></span>)</span> car</span>)</span></span>)</span></pre></dd></dl><h4 id="sec:irregex-fold.2fchunked"><a href="#sec:irregex-fold.2fchunked">irregex-fold/chunked</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-fold.2fchunked"><span class="sig"><var class="id">irregex-fold/chunked</var> <var class="arg">&lt;irx&gt;</var> <var class="arg">&lt;kons&gt;</var> <var class="arg">&lt;knil&gt;</var> <var class="arg">&lt;chunker&gt;</var> <var class="arg">&lt;chunk&gt;</var> <var class="dsssl">#!optional</var> <var class="arg">&lt;finish&gt;</var> <var class="arg">&lt;start-index&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Chunked version of <tt>irregex-fold</tt>.</p></dd></dl><h3 id="sec:Utilities"><a href="#sec:Utilities">Utilities</a></h3><p>The following procedures are also available.</p><h4 id="sec:irregex-quote"><a href="#sec:irregex-quote">irregex-quote</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-quote"><span class="sig"><var class="id">irregex-quote</var> <var class="arg">&lt;str&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new string with any special regular expression characters escaped, to match the original string literally in POSIX regular expressions.</p></dd></dl><h4 id="sec:irregex-opt"><a href="#sec:irregex-opt">irregex-opt</a></h4> <dl class="defsig"> <dt class="defsig" id="def:irregex-opt"><span class="sig"><var class="id">irregex-opt</var> <var class="arg">&lt;list-of-strings&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns an optimized SRE matching any of the literal strings in the list, like Emacs' <tt>regexp-opt</tt>. Note this optimization doesn't help when irregex is able to build a DFA.</p></dd></dl><h4 id="sec:sre-.3estring"><a href="#sec:sre-.3estring">sre-&gt;string</a></h4> <dl class="defsig"> <dt class="defsig" id="def:sre-.3estring"><span class="sig"><var class="id">sre-&gt;string</var> <var class="arg">&lt;sre&gt;</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Convert an SRE to a PCRE-style regular expression string, if possible.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20io%29.html">Module (chicken io)</a></p><p>Next: <a href="Module%20%28chicken%20keyword%29.html">Module (chicken keyword)</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken load).html������������������������������������������������0000644�0001750�0001750�00000022077�13502230006�021666� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken load)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_load.29">Module (chicken load)</a> <ul> <li><a href="#sec:A_note_on_loading_of_shared_extension_libraries">A note on loading of shared extension libraries</a></li> <li><a href="#sec:load-relative">load-relative</a></li> <li><a href="#sec:load-noisily">load-noisily</a></li> <li><a href="#sec:load-library">load-library</a></li> <li><a href="#sec:require">require</a></li> <li><a href="#sec:provide">provide</a></li> <li><a href="#sec:provided.3f">provided?</a></li> <li><a href="#sec:Tuning_how_code_is_loaded">Tuning how code is loaded</a> <ul> <li><a href="#sec:dynamic-load-libraries">dynamic-load-libraries</a></li> <li><a href="#sec:load-verbose">load-verbose</a></li> <li><a href="#sec:set-dynamic-load-mode.21">set-dynamic-load-mode!</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_load.29"><a href="#sec:Module_.28chicken_load.29">Module (chicken load)</a></h2><p>This module contains various procedures for loading code. Note that the main procedure for loading code, <tt>load</tt>, is part of <a href="Module%20scheme.html">Module scheme</a>; the <tt>chicken load</tt> module only contains <i>extensions</i> to the standard.</p><h3 id="sec:A_note_on_loading_of_shared_extension_libraries"><a href="#sec:A_note_on_loading_of_shared_extension_libraries">A note on loading of shared extension libraries</a></h3><p>The functionality of loading shared objects into the runtime is only available on platforms that support dynamic loading of compiled code. Currently Linux, BSD, Solaris, Windows (with Cygwin) and HP/UX are supported. Loading source files works everywhere.</p><h3 id="sec:load-relative"><a href="#sec:load-relative">load-relative</a></h3> <dl class="defsig"> <dt class="defsig" id="def:load-relative"><span class="sig"><var class="id">load-relative</var> <var class="arg">FILE</var> <var class="dsssl">#!optional</var> <var class="arg">EVALPROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>load</tt>, but loads <var class="arg">FILE</var> relative to the path of the currently loaded file.</p></dd></dl><h3 id="sec:load-noisily"><a href="#sec:load-noisily">load-noisily</a></h3> <dl class="defsig"> <dt class="defsig" id="def:load-noisily"><span class="sig"><var class="id">load-noisily</var> <var class="arg">FILE</var> <var class="dsssl">#!key</var> <var class="arg">EVALUATOR</var> <var class="arg">TIME</var> <var class="arg">PRINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>As <tt>load</tt> but the result(s) of each evaluated toplevel-expression is written to standard output. If <var class="arg">EVALUATOR</var> is given and not <tt>#f</tt>, then each expression is evaluated by calling this argument with the read expression as argument. If <var class="arg">TIME</var> is given and not false, then the execution time of each expression is shown (as with the <tt>time</tt> macro). If <var class="arg">PRINTER</var> is given and not false, then each expression is printed before evaluation by applying the expression to the value of this argument, which should be a one-argument procedure.</p><p>See also the <a href="#sec:load-verbose">load-verbose</a> parameter.</p></dd></dl><h3 id="sec:load-library"><a href="#sec:load-library">load-library</a></h3> <dl class="defsig"> <dt class="defsig" id="def:load-library"><span class="sig"><var class="id">load-library</var> <var class="arg">UNIT</var> <var class="dsssl">#!optional</var> <var class="arg">LIBRARYFILE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>On platforms that support dynamic loading, <tt>load-library</tt> loads the compiled library unit <var class="arg">UNIT</var> (which should be a symbol). If the string <var class="arg">LIBRARYFILE</var> is given, then the given shared library will be loaded and the toplevel code of the specified unit will be executed. If no <var class="arg">LIBRARYFILE</var> argument is given, then the libraries given in the parameter <tt>dynamic-load-libraries</tt> are searched for the required unit. If the unit is not found, an error is signaled.</p><p>Note that <var class="arg">LIBRARYFILE</var> is considered relative to the <tt>dlopen(3)</tt> search path by default. In order to use a file relative to the current working directory, a relative or absolute pathname must be used, i.e. <var class="arg">LIBRARYFILE</var> must contain at least one slash (<tt>&quot;/&quot;</tt>).</p></dd></dl><h3 id="sec:require"><a href="#sec:require">require</a></h3> <dl class="defsig"> <dt class="defsig" id="def:require"><span class="sig"><var class="id">require</var> <var class="arg">ID</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>If any of the named extension libraries <var class="arg">ID</var> are not already loaded into the system, then <tt>require</tt> will look up the location of the shared extension library and load it. If <var class="arg">ID</var> names a library-unit of the base system, then it is loaded via <tt>load-library</tt>. If no extension library is available for the given ID, then an attempt is made to load the file <tt>ID.so</tt> or <tt>ID.scm</tt> (in that order) from one of the following locations:</p><ul><li>the current directory</li> <li>the current repository path (see <tt>repository-path</tt>)</li> </ul> <p>Each <var class="arg">ID</var> should be a symbol.</p></dd></dl><h3 id="sec:provide"><a href="#sec:provide">provide</a></h3> <dl class="defsig"> <dt class="defsig" id="def:provide"><span class="sig"><var class="id">provide</var> <var class="arg">ID</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Registers the extension IDs <tt>ID ...</tt> as loaded. This is mainly intended to provide aliases for certain library identifiers.</p></dd></dl><h3 id="sec:provided.3f"><a href="#sec:provided.3f">provided?</a></h3><p>procedure: (provided? ID ...)</p><p>Returns <tt>#t</tt> if extension with the IDs <tt>ID ...</tt> are currently loaded, or <tt>#f</tt> otherwise.</p><h3 id="sec:Tuning_how_code_is_loaded"><a href="#sec:Tuning_how_code_is_loaded">Tuning how code is loaded</a></h3><h4 id="sec:dynamic-load-libraries"><a href="#sec:dynamic-load-libraries">dynamic-load-libraries</a></h4> <dl class="defsig"> <dt class="defsig" id="def:dynamic-load-libraries"><span class="sig"><var class="id">dynamic-load-libraries</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>A list of strings containing shared libraries that should be checked for explicitly loaded library units (this facility is not available on all platforms). See <tt>load-library</tt>.</p></dd></dl><h4 id="sec:load-verbose"><a href="#sec:load-verbose">load-verbose</a></h4> <dl class="defsig"> <dt class="defsig" id="def:load-verbose"><span class="sig"><var class="id">load-verbose</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>A boolean indicating whether loading of source files, compiled code (if available) and compiled libraries should display a message.</p></dd></dl><h4 id="sec:set-dynamic-load-mode.21"><a href="#sec:set-dynamic-load-mode.21">set-dynamic-load-mode!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set-dynamic-load-mode.21"><span class="sig"><var class="id">set-dynamic-load-mode!</var> <var class="arg">MODELIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>On systems that support dynamic loading of compiled code via the <tt>dlopen(3)</tt> interface (for example Linux and Solaris), some options can be specified to fine-tune the behaviour of the dynamic linker. <tt>MODE</tt> should be a list of symbols (or a single symbol) taken from the following set:</p><dl><dt><tt>local</tt></dt> <dd>If <tt>local</tt> is given, then any C/C++ symbols defined in the dynamically loaded file are not available for subsequently loaded files and libraries. Use this if you have linked foreign code into your dynamically loadable file and if you don't want to export them (for example because you want to load another file that defines the same symbols).</dd><dt><tt>global</tt></dt> <dd>The default is <tt>global</tt>, which means all C/C++ symbols are available to code loaded at a later stage.</dd><dt><tt>now</tt></dt> <dd>If <tt>now</tt> is specified, all symbols are resolved immediately.</dd><dt><tt>lazy</tt></dt> <dd>Unresolved symbols are resolved as code from the file is executed. This is the default. </dd></dl> <p>Note that this procedure does not control the way Scheme variables are handled - this facility is mainly of interest when accessing foreign code.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20keyword%29.html">Module (chicken keyword)</a></p><p>Next: <a href="Module%20%28chicken%20locative%29.html">Module (chicken locative)</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken time posix).html������������������������������������������0000644�0001750�0001750�00000016402�13502230005�023022� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken time posix)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_time_posix.29">Module (chicken time posix)</a> <ul> <li><a href="#sec:seconds-.3elocal-time">seconds-&gt;local-time</a></li> <li><a href="#sec:local-time-.3eseconds">local-time-&gt;seconds</a></li> <li><a href="#sec:local-timezone-abbreviation">local-timezone-abbreviation</a></li> <li><a href="#sec:seconds-.3estring">seconds-&gt;string</a></li> <li><a href="#sec:seconds-.3eutc-time">seconds-&gt;utc-time</a></li> <li><a href="#sec:utc-time-.3eseconds">utc-time-&gt;seconds</a></li> <li><a href="#sec:time-.3estring">time-&gt;string</a></li> <li><a href="#sec:string-.3etime">string-&gt;time</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_time_posix.29"><a href="#sec:Module_.28chicken_time_posix.29">Module (chicken time posix)</a></h2><p>This module provides procedures for conversion between seconds since the epoch (&quot;POSIX time&quot;), strings and a 10-element vector type containing the distinct time units.</p><h3 id="sec:seconds-.3elocal-time"><a href="#sec:seconds-.3elocal-time">seconds-&gt;local-time</a></h3> <dl class="defsig"> <dt class="defsig" id="def:seconds-.3elocal-time"><span class="sig"><var class="id">seconds-&gt;local-time</var> <var class="dsssl">#!optional</var> <var class="arg">SECONDS</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Breaks down the time value represented in <var class="arg">SECONDS</var> into a 10 element vector of the form <tt>#(seconds minutes hours mday month year wday yday dstflag timezone)</tt>, in the following format:</p><dl><dt>seconds (0)</dt> <dd>the number of seconds after the minute (0 - 59)</dd><dt>minutes (1)</dt> <dd>the number of minutes after the hour (0 - 59)</dd><dt>hours (2)</dt> <dd>the number of hours past midnight (0 - 23)</dd><dt>mday (3)</dt> <dd>the day of the month (1 - 31)</dd><dt>month (4)</dt> <dd>the number of months since january (0 - 11)</dd><dt>year (5)</dt> <dd>the number of years since 1900</dd><dt>wday (6)</dt> <dd>the number of days since Sunday (0 - 6)</dd><dt>yday (7)</dt> <dd>the number of days since January 1 (0 - 365)</dd><dt>dstflag (8)</dt> <dd>a flag that is true if Daylight Saving Time is in effect at the time described.</dd><dt>timezone (9)</dt> <dd>the difference between UTC and the latest local standard time, in seconds west of UTC.</dd></dl> <p><var class="arg">SECONDS</var> defaults to the value of <tt>(current-seconds)</tt>.</p></dd></dl><h3 id="sec:local-time-.3eseconds"><a href="#sec:local-time-.3eseconds">local-time-&gt;seconds</a></h3> <dl class="defsig"> <dt class="defsig" id="def:local-time-.3eseconds"><span class="sig"><var class="id">local-time-&gt;seconds</var> <var class="arg">VECTOR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Converts the ten-element vector <var class="arg">VECTOR</var> representing the time value relative to the current timezone into the number of seconds since the first of January, 1970 UTC.</p></dd></dl><h3 id="sec:local-timezone-abbreviation"><a href="#sec:local-timezone-abbreviation">local-timezone-abbreviation</a></h3> <dl class="defsig"> <dt class="defsig" id="def:local-timezone-abbreviation"><span class="sig"><var class="id">local-timezone-abbreviation</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the abbreviation for the local timezone as a string.</p></dd></dl><h3 id="sec:seconds-.3estring"><a href="#sec:seconds-.3estring">seconds-&gt;string</a></h3> <dl class="defsig"> <dt class="defsig" id="def:seconds-.3estring"><span class="sig"><var class="id">seconds-&gt;string</var> <var class="dsssl">#!optional</var> <var class="arg">SECONDS</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Converts the time represented in <var class="arg">SECONDS</var> into a local-time string of the form <tt>&quot;Tue May 21 13:46:22 1991&quot;</tt>. <var class="arg">SECONDS</var> defaults to the value of <tt>(current-seconds)</tt>.</p></dd></dl><h3 id="sec:seconds-.3eutc-time"><a href="#sec:seconds-.3eutc-time">seconds-&gt;utc-time</a></h3> <dl class="defsig"> <dt class="defsig" id="def:seconds-.3eutc-time"><span class="sig"><var class="id">seconds-&gt;utc-time</var> <var class="dsssl">#!optional</var> <var class="arg">SECONDS</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>seconds-&gt;local-time</tt>, but interpretes <var class="arg">SECONDS</var> as UTC time. <var class="arg">SECONDS</var> defaults to the value of <tt>(current-seconds)</tt>.</p></dd></dl><h3 id="sec:utc-time-.3eseconds"><a href="#sec:utc-time-.3eseconds">utc-time-&gt;seconds</a></h3> <dl class="defsig"> <dt class="defsig" id="def:utc-time-.3eseconds"><span class="sig"><var class="id">utc-time-&gt;seconds</var> <var class="arg">VECTOR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Converts the ten-element vector <var class="arg">VECTOR</var> representing the UTC time value into the number of seconds since the first of January, 1970 UTC.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h3 id="sec:time-.3estring"><a href="#sec:time-.3estring">time-&gt;string</a></h3> <dl class="defsig"> <dt class="defsig" id="def:time-.3estring"><span class="sig"><var class="id">time-&gt;string</var> <var class="arg">VECTOR</var> <var class="dsssl">#!optional</var> <var class="arg">FORMAT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Converts the broken down time represented in the 10 element vector <var class="arg">VECTOR</var> into a string of the form represented by the <var class="arg">FORMAT</var> string. The default time form produces something like <tt>&quot;Tue May 21 13:46:22 1991&quot;</tt>.</p><p>The <var class="arg">FORMAT</var> string follows the rules for the C library procedure <tt>strftime</tt>. The default <var class="arg">FORMAT</var> string is &quot;%a %b %e %H:%M:%S %Z %Y&quot;.</p></dd></dl><h3 id="sec:string-.3etime"><a href="#sec:string-.3etime">string-&gt;time</a></h3> <dl class="defsig"> <dt class="defsig" id="def:string-.3etime"><span class="sig"><var class="id">string-&gt;time</var> <var class="arg">TIME</var> <var class="dsssl">#!optional</var> <var class="arg">FORMAT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Converts a string of the form represented by the <var class="arg">FORMAT</var> string into the broken down time represented in a 10 element vector. The default time form understands something like <tt>&quot;Tue May 21 13:46:22 1991&quot;</tt>.</p><p>The <var class="arg">FORMAT</var> string follows the rules for the C library procedure <tt>strptime</tt>. The default <var class="arg">FORMAT</var> string is &quot;%a %b %e %H:%M:%S %Z %Y&quot;.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20time%29.html">Module (chicken time)</a></p><p>Next: <a href="Module%20%28chicken%20type%29.html">Module (chicken type)</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/manual.css����������������������������������������������������������������0000644�0001750�0001750�00000001741�13502230006�017127� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������h1, h2, h3, h4, h5, h6 { font-family: sans-serif; } .node P { background: #2965AB; color: white; margin: 0; padding: 0.5em 0.5em 0.5em; border-bottom: outset 3px #4985CB; border-right: outset 3px #4985CB; font-family: sans-serif; font-weight: bold; font-size: 10pt; } .node A { font-weight: normal; text-decoration: none; color: white; } .node A[name] { font-weight: bold; color: black; } .node A[href] { color: #c0c0c0; border-bottom-style: dotted; } .node A[href]:hover { border-bottom-color: darkred; } A[href] { border-bottom: 1px solid black; } PRE { background: #efeee0; color: black; padding: 0.1em; border: 1px solid #bbbaaf; /* border-bottom: outset 3px #bbbaaf; */ /* border-right: outset 3px #bbbaaf; */ } PRE.lisp { border: none; background: #f5f5f5; } .node HR, .node BR { display: none; } A[href]:hover { border-bottom: 1px solid red; } A { color: #3e42d9; text-decoration: none; } UL A[href] { border-bottom: none; } �������������������������������chicken-5.1.0/manual-html/Module (chicken foreign).html���������������������������������������������0000644�0001750�0001750�00000056347�13502230004�022405� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken foreign)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_foreign.29">Module (chicken foreign)</a></li> <li><a href="#sec:Accessing_external_objects">Accessing external objects</a> <ul> <li><a href="#sec:foreign-code">foreign-code</a></li> <li><a href="#sec:foreign-value">foreign-value</a></li> <li><a href="#sec:foreign-declare">foreign-declare</a></li> <li><a href="#sec:define-foreign-type">define-foreign-type</a></li> <li><a href="#sec:foreign-type-size">foreign-type-size</a></li> <li><a href="#sec:define-foreign-variable">define-foreign-variable</a></li> <li><a href="#sec:foreign-lambda">foreign-lambda</a></li> <li><a href="#sec:foreign-lambda.2a">foreign-lambda*</a></li> <li><a href="#sec:foreign-safe-lambda">foreign-safe-lambda</a></li> <li><a href="#sec:foreign-safe-lambda.2a">foreign-safe-lambda*</a></li> <li><a href="#sec:foreign-primitive">foreign-primitive</a></li></ul></li> <li><a href="#sec:Callbacks">Callbacks</a> <ul> <li><a href="#sec:define-external">define-external</a></li> <li><a href="#sec:C_callback">C_callback</a></li> <li><a href="#sec:C_callback_adjust_stack">C_callback_adjust_stack</a></li></ul></li> <li><a href="#sec:Locations">Locations</a> <ul> <li><a href="#sec:define-location">define-location</a></li> <li><a href="#sec:let-location">let-location</a></li> <li><a href="#sec:location">location</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_foreign.29"><a href="#sec:Module_.28chicken_foreign.29">Module (chicken foreign)</a></h2><p>This module provides a <i>foreign function interface</i> to access externally defined functions and variables in C-compatible languages, as well as operating-system specific functionality.</p><p>Note that this interface is source-based, since CHICKEN translates Scheme code to C. It is not binary, as in many other Scheme implementations.</p><p>Several special forms of this interface refer to <i>foreign type specifiers</i>, consult the <a href="Foreign%20type%20specifiers.html">relevant chapter</a> of this manual for more information.</p><h2 id="sec:Accessing_external_objects"><a href="#sec:Accessing_external_objects">Accessing external objects</a></h2><h3 id="sec:foreign-code"><a href="#sec:foreign-code">foreign-code</a></h3> <dl class="defsig"> <dt class="defsig" id="def:foreign-code"><span class="sig"><tt>(foreign-code STRING ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Executes the embedded C/C++ code <tt>STRING ...</tt>, which should be a sequence of C statements, which are executed and return an unspecified result.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">foreign-code <span class="string">&quot;doSomeInitStuff();&quot;</span></span>)</span> =&gt; #&lt;unspecified&gt;</pre><p>Code wrapped inside <tt>foreign-code</tt> may not invoke callbacks into Scheme.</p></dd></dl><h3 id="sec:foreign-value"><a href="#sec:foreign-value">foreign-value</a></h3> <dl class="defsig"> <dt class="defsig" id="def:foreign-value"><span class="sig"><tt>(foreign-value CODE TYPE)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Evaluates the embedded C/C++ expression <tt>CODE</tt> (which may be a string or symbol), returning a value of type given in the foreign-type specifier <tt>TYPE</tt>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">print <span class="paren2">(<span class="default">foreign-value <span class="string">&quot;my_version_string&quot;</span> c-string</span>)</span></span>)</span></pre></dd></dl><h3 id="sec:foreign-declare"><a href="#sec:foreign-declare">foreign-declare</a></h3> <dl class="defsig"> <dt class="defsig" id="def:foreign-declare"><span class="sig"><tt>(foreign-declare STRING ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Include given strings verbatim into header of generated file.</p></dd></dl><h3 id="sec:define-foreign-type"><a href="#sec:define-foreign-type">define-foreign-type</a></h3> <dl class="defsig"> <dt class="defsig" id="def:define-foreign-type"><span class="sig"><tt>(define-foreign-type NAME TYPE [ARGCONVERT [RETCONVERT]])</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines an alias for <tt>TYPE</tt> with the name <tt>NAME</tt> (a symbol). <tt>TYPE</tt> may be a type-specifier or a string naming a C type. The namespace of foreign type specifiers is separate from the normal Scheme namespace. The optional arguments <tt>ARGCONVERT</tt> and <tt>RETCONVERT</tt> should evaluate to procedures that map argument- and result-values to a value that can be transformed to <tt>TYPE</tt>:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define-foreign-type</span></i> char-vector nonnull-c-string <span class="paren2">(<span class="default">compose list-&gt;string vector-&gt;list</span>)</span> <span class="paren2">(<span class="default">compose list-&gt;vector string-&gt;list</span>)</span> </span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> strlen <span class="paren2">(<span class="default">foreign-lambda int <span class="string">&quot;strlen&quot;</span> char-vector</span>)</span> </span>)</span> <span class="paren1">(<span class="default">strlen &#x27;#<span class="paren2">(<span class="default"><span class="character">#\a</span> <span class="character">#\b</span> <span class="character">#\c</span></span>)</span></span>)</span> ==&gt; 3 <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> memset <span class="paren2">(<span class="default">foreign-lambda char-vector <span class="string">&quot;memset&quot;</span> char-vector char int</span>)</span> </span>)</span> <span class="paren1">(<span class="default">memset &#x27;#<span class="paren2">(<span class="default">#_ #_ #_</span>)</span> <span class="character">#\X</span> 3</span>)</span> ==&gt; #<span class="paren1">(<span class="default"><span class="character">#\X</span> <span class="character">#\X</span> <span class="character">#\X</span></span>)</span></pre><p>Foreign type-definitions are only visible in the compilation-unit in which they are defined, so use <tt>include</tt> to use the same definitions in multiple files.</p></dd></dl><h3 id="sec:foreign-type-size"><a href="#sec:foreign-type-size">foreign-type-size</a></h3> <dl class="defsig"> <dt class="defsig" id="def:foreign-type-size"><span class="sig"><tt>(foreign-type-size TYPE)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Returns the size of the storage required to hold values of the given foreign type <tt>TYPE</tt>. This is basically equivalent to</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">foreign-value <span class="string">&quot;sizeof(TYPE)&quot;</span> size_t</span>)</span></pre><p>but also handles user-defined types and allows &quot;TYPE&quot; to be a string, which will be given literally to the <tt>sizeof</tt> operator.</p></dd></dl><h3 id="sec:define-foreign-variable"><a href="#sec:define-foreign-variable">define-foreign-variable</a></h3> <dl class="defsig"> <dt class="defsig" id="def:define-foreign-variable"><span class="sig"><tt>(define-foreign-variable NAME TYPE [STRING])</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines a foreign variable of name <tt>NAME</tt> (a symbol). <tt>STRING</tt> should be the real name of a foreign variable or parameterless macro. If <tt>STRING</tt> is not given, then the variable name <tt>NAME</tt> will be converted to a string and used instead. All references and assignments (via <tt>set!</tt>) are modified to correctly convert values between Scheme and C representation. This foreign variable can only be accessed in the current compilation unit, but the name can be lexically shadowed. Note that <tt>STRING</tt> can name an arbitrary C expression. If no assignments are performed, then <tt>STRING</tt> doesn't even have to specify an lvalue. See that <tt>define-foreign-variable</tt> will not generate C declarations or memory allocation code; use it to include references to variables in external C code. To actually create Scheme variables visible from C, use <tt>define-external</tt> (see the Manual section on <a href="Callbacks.html">Callbacks</a>). For example, the following code:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">import foreign</span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define-foreign-variable</span></i> x double <span class="string">&quot;var_x&quot;</span></span>)</span> <span class="paren1">(<span class="default">print x</span>)</span></pre><p>will not work, because a reference to <tt>var_x</tt> will be inserted in the C code, but no declaration will be included (this can be easily verified by translating the program into C with <tt>csc -t program.scm</tt>). Changing the second line to <tt>(define-external x double 0.5)</tt> will work (and the value 0.5 will be printed).</p></dd></dl><h3 id="sec:foreign-lambda"><a href="#sec:foreign-lambda">foreign-lambda</a></h3> <dl class="defsig"> <dt class="defsig" id="def:foreign-lambda"><span class="sig"><tt>(foreign-lambda RETURNTYPE NAME ARGTYPE ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Represents a binding to an external routine. This form can be used in the position of an ordinary <tt>lambda</tt> expression. <tt>NAME</tt> specifies the name of the external procedure and should be a string or a symbol.</p></dd></dl><h3 id="sec:foreign-lambda.2a"><a href="#sec:foreign-lambda.2a">foreign-lambda*</a></h3> <dl class="defsig"> <dt class="defsig" id="def:foreign-lambda.2a"><span class="sig"><tt>(foreign-lambda* RETURNTYPE ((ARGTYPE VARIABLE) ...) STRING ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Similar to <tt>foreign-lambda</tt>, but instead of generating code to call an external function, the body of the C procedure is directly given in <tt>STRING ...</tt>:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> my-strlen <span class="paren2">(<span class="default">foreign-lambda* int <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">c-string str</span>)</span></span>)</span> <span class="string">&quot;int n = 0; while(*(str++)) ++n; C_return(n);&quot;</span></span>)</span> </span>)</span> <span class="paren1">(<span class="default">my-strlen <span class="string">&quot;one two three&quot;</span></span>)</span> ==&gt; 13</pre><p>For obscure technical reasons you should use the <tt>C_return</tt> macro instead of the normal <tt>return</tt> statement to return a result from the foreign lambda body as some cleanup code has to be run before execution commences in the calling code.</p></dd></dl><h3 id="sec:foreign-safe-lambda"><a href="#sec:foreign-safe-lambda">foreign-safe-lambda</a></h3> <dl class="defsig"> <dt class="defsig" id="def:foreign-safe-lambda"><span class="sig"><tt>(foreign-safe-lambda RETURNTYPE NAME ARGTYPE ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>This is similar to <tt>foreign-lambda</tt>, but also allows the called function to call Scheme functions. See <a href="Callbacks.html">Callbacks</a>.</p></dd></dl><h3 id="sec:foreign-safe-lambda.2a"><a href="#sec:foreign-safe-lambda.2a">foreign-safe-lambda*</a></h3> <dl class="defsig"> <dt class="defsig" id="def:foreign-safe-lambda.2a"><span class="sig"><tt>(foreign-safe-lambda* RETURNTYPE ((ARGTYPE VARIABLE)...) STRING ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>This is similar to <tt>foreign-lambda*</tt>, but also allows the called function to call Scheme functions and allocate Scheme data-objects. See <a href="Callbacks.html">Callbacks</a>.</p></dd></dl><h3 id="sec:foreign-primitive"><a href="#sec:foreign-primitive">foreign-primitive</a></h3> <dl class="defsig"> <dt class="defsig" id="def:foreign-primitive"><span class="sig"><tt>(foreign-primitive [RETURNTYPE] ((ARGTYPE VARIABLE) ...) STRING ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>This is also similar to <tt>foreign-lambda*</tt> but the code will be executed in a <i>primitive</i> CPS context, which means it will not actually return, but call its continuation on exit. This means that code inside this form may allocate Scheme data on the C stack (the <i>nursery</i>) with <tt>C_alloc</tt> (see below). You can return multiple values inside the body of the <tt>foreign-primitive</tt> form by using the following C code:</p> <pre class="highlight colorize">C_word av<span class="paren1">[<span class="default">N + 2</span>]</span> = { C_SCHEME_UNDEFINED, C_k, X1, ... }<span class="comment">; </span>C_values<span class="paren1">(<span class="default">N + 2, av</span>)</span><span class="comment">;</span></pre><p>where <tt>N</tt> is the number of values to be returned, and <tt>X1, ...</tt> are the results, which should be Scheme data objects. When returning multiple values, the return-type should be omitted. Of course, if you have to dynamically compute the values, you do not have to use C's array initialization syntax, but you can just assign them one by one.</p><p>Returning just a single value can still be done via the <tt>C_return(...)</tt> macro.</p></dd></dl><h2 id="sec:Callbacks"><a href="#sec:Callbacks">Callbacks</a></h2><p>To enable an external C function to call back to Scheme, the form <tt>foreign-safe-lambda</tt> (or <tt>foreign-safe-lambda*</tt>) has to be used. This generates special code to save and restore important state information during execution of C code. There are two ways of calling Scheme procedures from C: the first is to invoke the runtime function <tt>C_callback</tt> with the closure to be called and the number of arguments. The second is to define an externally visible wrapper function around a Scheme procedure with the <tt>define-external</tt> form.</p><p>Note: the names of all functions, variables and macros exported by the CHICKEN runtime system start with <tt>C_</tt>. It is advisable to use a different naming scheme for your own code to avoid name clashes. Callbacks (defined by <tt>define-external</tt>) do not capture the lexical environment.</p><p>Non-local exits leaving the scope of the invocation of a callback from Scheme into C will not remove the C call-frame from the stack (and will result in a memory leak). <b>Note:</b> The same applies to SRFI-18 threading, which is implemented with <tt>call/cc</tt>; additionally, if you enter one callback, switch threads and then exit a different callback, your program is likely to crash.</p><h3 id="sec:define-external"><a href="#sec:define-external">define-external</a></h3> <dl class="defsig"> <dt class="defsig" id="def:define-external"><span class="sig"><tt>(define-external [QUALIFIERS] (NAME (ARGUMENTTYPE1 VARIABLE1) ...) RETURNTYPE BODY ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:define-external"><span class="sig"><tt>(define-external NAME TYPE [INIT])</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>The first form defines an externally callable Scheme procedure. <tt>NAME</tt> should be a symbol, which, when converted to a string, represents a legal C identifier. <tt>ARGUMENTTYPE1 ...</tt> and <tt>RETURNTYPE</tt> are foreign type specifiers for the argument variables <tt>VAR1 ...</tt> and the result, respectively. <tt>QUALIFIERS</tt> is an optional qualifier for the foreign procedure definition, like <tt>__stdcall</tt>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define-external</span></i> <span class="paren2">(<span class="default">foo <span class="paren3">(<span class="default">c-string x</span>)</span></span>)</span> int <span class="paren2">(<span class="default">string-length x</span>)</span></span>)</span></pre><p>The second form of <tt>define-external</tt> can be used to define variables that are accessible from foreign code. It declares a global variable named by the symbol <tt>NAME</tt> that has the type <tt>TYPE</tt>. <tt>INIT</tt> can be an arbitrary expression that is used to initialize the variable. <tt>NAME</tt> is accessible from Scheme just like any other foreign variable defined by <tt>define-foreign-variable</tt>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define-external</span></i> foo int 42</span>)</span> <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">foreign-lambda* int <span class="paren3">(<span class="default"></span>)</span> <span class="string">&quot;C_return(foo);&quot;</span></span>)</span></span>)</span> ==&gt; 42</pre><p><b>Note:</b> don't be tempted to assign strings or bytevectors to external variables. Garbage collection moves those objects around, so it is a very bad idea to assign pointers to heap-data. If you have to do so, then copy the data object into statically allocated memory (for example by using <tt>object-evict</tt>).</p><p>Results of type <tt>scheme-object</tt> returned by <tt>define-external</tt> are always allocated in the secondary heap, that is, not in the stack.</p></dd></dl><h3 id="sec:C_callback"><a href="#sec:C_callback">C_callback</a></h3><pre>[C function] C_word C_callback (C_word closure, int argc)</pre><p>This function can be used to invoke the Scheme procedure <tt>closure</tt>. <tt>argc</tt> should contain the number of arguments that are passed to the procedure on the temporary stack. Values are put onto the temporary stack with the <tt>C_save</tt> macro.</p><h3 id="sec:C_callback_adjust_stack"><a href="#sec:C_callback_adjust_stack">C_callback_adjust_stack</a></h3><pre>[C function] void C_callback_adjust_stack (C_word *ptr, int size)</pre><p>The runtime-system uses the stack as a special allocation area and internally holds pointers to estimated limits to distinguish between Scheme data objects inside the stack from objects outside of it. If you invoke callbacks at wildly differing stack-levels, these limits may shift from invocation to invocation. Callbacks defined with <tt>define-external</tt> will perform appropriate adjustments automatically, but if you invoke <tt>C_callback</tt> manually, you should perform a <tt>C_callback_adjust_stack</tt> to make sure the internal limits are set properly. <tt>ptr</tt> should point to some data object on the stack and <tt>size</tt> is the number of words contained in the data object (or some estimate). The call will make sure the limits are adjusted so that the value pointed to by <tt>ptr</tt> is located in the stack.</p><h2 id="sec:Locations"><a href="#sec:Locations">Locations</a></h2><p>It is also possible to define variables containing unboxed C data, so called <i>locations</i>. It should be noted that locations may only contain simple data, that is: everything that fits into a machine word, and double-precision floating point values.</p><h3 id="sec:define-location"><a href="#sec:define-location">define-location</a></h3> <dl class="defsig"> <dt class="defsig" id="def:define-location"><span class="sig"><tt>(define-location NAME TYPE [INIT])</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Identical to <tt>(define-external NAME TYPE [INIT])</tt>, but the variable is not accessible from outside of the current compilation unit (it is declared <tt>static</tt>).</p></dd></dl><h3 id="sec:let-location"><a href="#sec:let-location">let-location</a></h3> <dl class="defsig"> <dt class="defsig" id="def:let-location"><span class="sig"><tt>(let-location ((NAME TYPE [INIT]) ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines a lexically bound location.</p></dd></dl><h3 id="sec:location"><a href="#sec:location">location</a></h3> <dl class="defsig"> <dt class="defsig" id="def:location"><span class="sig"><tt>(location NAME)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:location"><span class="sig"><tt>(location X)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:.23.24"><span class="sig"><tt>#$</tt></span><span class="type">read</span></dt> <dd class="defsig"><p>This form returns a pointer object that contains the address of the variable <tt>NAME</tt>. If the argument to <tt>location</tt> is not a location defined by <tt>define-location</tt>, <tt>define-external</tt> or <tt>let-location</tt>, then</p><pre>(location X)</pre><p>is essentially equivalent to</p><pre>(make-locative X)</pre><p>(See the <a href="Unit%20lolevel.html#sec:locatives">manual section on locatives</a> for more information about locatives)</p><p>Note that <tt>(location X)</tt> may be abbreviated as <tt>#$X</tt>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define-external</span></i> foo int</span>)</span> <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">foreign-lambda* void <span class="paren3">(<span class="default"><span class="paren4">(<span class="default"><span class="paren5">(<span class="default">c-pointer int</span>)</span> ip</span>)</span></span>)</span> <span class="string">&quot;*ip = 123;&quot;</span></span>)</span> <span class="paren2">(<span class="default">location foo</span>)</span></span>)</span> foo ==&gt; 123</pre><p>This facility is especially useful in situations, where a C function returns more than one result value:</p> <pre class="highlight colorize">#&gt; #include &lt;math.h&gt; &lt;# <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> modf <span class="paren2">(<span class="default">foreign-lambda double <span class="string">&quot;modf&quot;</span> double <span class="paren3">(<span class="default">c-pointer double</span>)</span></span>)</span> </span>)</span> <span class="paren1">(<span class="default">let-location <span class="paren2">(<span class="default"><span class="paren3">[<span class="default">i double</span>]</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren3">(<span class="default"><span class="paren4">[<span class="default">f <span class="paren5">(<span class="default">modf 1.99 <span class="paren6">(<span class="default">location i</span>)</span></span>)</span></span>]</span></span>)</span> <span class="paren3">(<span class="default">print <span class="string">&quot;i=&quot;</span> i <span class="string">&quot;, f=&quot;</span> f</span>)</span> </span>)</span> </span>)</span></pre><p>See <a href="http://wiki.call-cc.org/location-and-c-string-star">location and c-string*</a> for a tip on returning a <tt>c-string*</tt> type.</p><p><tt>location</tt> returns a value of type <tt>c-pointer</tt>, when given the name of a callback-procedure defined with <tt>define-external</tt>.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20flonum%29.html">Module (chicken flonum)</a></p><p>Next: <a href="Module%20%28chicken%20format%29.html">Module (chicken format)</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken format).html����������������������������������������������0000644�0001750�0001750�00000010231�13502230005�022223� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken format)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_format.29">Module (chicken format)</a> <ul> <li><a href="#sec:The_printf_family_of_procedures">The printf family of procedures</a> <ul> <li><a href="#sec:printf">printf</a></li> <li><a href="#sec:fprintf">fprintf</a></li> <li><a href="#sec:sprintf">sprintf</a></li></ul></li> <li><a href="#sec:format">format</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_format.29"><a href="#sec:Module_.28chicken_format.29">Module (chicken format)</a></h2><p>This module provides procedures for formatting output to ports and strings.</p><h3 id="sec:The_printf_family_of_procedures"><a href="#sec:The_printf_family_of_procedures">The printf family of procedures</a></h3><h4 id="sec:printf"><a href="#sec:printf">printf</a></h4><h4 id="sec:fprintf"><a href="#sec:fprintf">fprintf</a></h4><h4 id="sec:sprintf"><a href="#sec:sprintf">sprintf</a></h4> <dl class="defsig"> <dt class="defsig" id="def:fprintf"><span class="sig"><var class="id">fprintf</var> <var class="arg">PORT</var> <var class="arg">FORMATSTRING</var> <var class="dsssl">#!optional</var> <var class="arg">ARG...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:printf"><span class="sig"><var class="id">printf</var> <var class="arg">FORMATSTRING</var> <var class="dsssl">#!optional</var> <var class="arg">ARG...</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:sprintf"><span class="sig"><var class="id">sprintf</var> <var class="arg">FORMATSTRING</var> <var class="dsssl">#!optional</var> <var class="arg">ARG...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Simple formatted output to a given port (<tt>fprintf</tt>), the value of <tt>(current-output-port)</tt> (<tt>printf</tt>), or a string (<tt>sprintf</tt>). The <var class="arg">FORMATSTRING</var> can contain any sequence of characters. There must be at least as many <tt>ARG</tt> arguments given as there are format directives that require an argument in <var class="arg">FORMATSTRING</var>. Extra <tt>ARG</tt> arguments are ignored. The character `~' prefixes special formatting directives:</p><table> <tr><td>~%</td><td> write newline character </td></tr> <tr><td> ~N</td><td> the same as <tt>~%</tt> </td></tr> <tr><td> ~S</td><td> write the next argument </td></tr> <tr><td> ~A</td><td> display the next argument </td></tr> <tr><td> ~\n</td><td> skip all whitespace in the format-string until the next non-whitespace character </td></tr> <tr><td> ~B</td><td> write the next argument as a binary number </td></tr> <tr><td> ~O</td><td> write the next argument as an octal number </td></tr> <tr><td> ~X</td><td> write the next argument as a hexadecimal number </td></tr> <tr><td> ~C</td><td> write the next argument as a character </td></tr> <tr><td> ~~</td><td> display `~' </td></tr> <tr><td> ~!</td><td> flush all pending output </td></tr> <tr><td> ~?</td><td> invoke formatted output routine recursively with the next two arguments as format-string and list of parameters </td></tr> </table> </dd></dl><h3 id="sec:format"><a href="#sec:format">format</a></h3> <dl class="defsig"> <dt class="defsig" id="def:format"><span class="sig"><tt>(format [DESTINATION] FORMATSTRING [ARG...])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>The parameters <tt>FORMATSTRING</tt> and <tt>ARG...</tt> are as for <tt>printf</tt>.</p><p>The optional <tt>DESTINATION</tt>, when supplied, performs:</p><dl><dt><tt>#f</tt></dt> <dd><tt>sprintf</tt></dd><dt><tt>#t</tt></dt> <dd><tt>printf</tt></dd><dt><tt>output-port</tt></dt> <dd><tt>fprintf</tt></dd><dt></dt> <dd><tt>sprintf</tt></dd></dl> </dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20foreign%29.html">Module (chicken foreign)</a></p><p>Next: <a href="Module%20%28chicken%20gc%29.html">Module (chicken gc)</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Types.html����������������������������������������������������������������0000644�0001750�0001750�00000044456�13502230006�017144� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Types</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Types">Types</a> <ul> <li><a href="#sec:Declaring_types">Declaring types</a> <ul> <li><a href="#sec::">:</a></li> <li><a href="#sec:the">the</a></li> <li><a href="#sec:assume">assume</a></li> <li><a href="#sec:define-type">define-type</a></li></ul></li> <li><a href="#sec:Type_syntax">Type syntax</a></li> <li><a href="#sec:Predicates">Predicates</a></li> <li><a href="#sec:Purity">Purity</a></li> <li><a href="#sec:Using_type_information_in_extensions">Using type information in extensions</a></li> <li><a href="#sec:Optimizations_done_by_specialization">Optimizations done by specialization</a> <ul> <li><a href="#sec:define-specialization">define-specialization</a></li> <li><a href="#sec:compiler-typecase">compiler-typecase</a></li></ul></li> <li><a href="#sec:Caveats">Caveats</a></li></ul></li></ul></div><h3 id="sec:Types"><a href="#sec:Types">Types</a></h3><p>A dynamically typed language like Scheme does not restrict the type of values bound or assigned to variables to be constant troughout the run-time of a program. This provides a lot of flexibility and makes it easy to get code up and running quickly, but can make maintenance of larger code bases more difficult as the implicit assignment of types to variables done by the programmer has to be &quot;recovered&quot; when the code is inspected or debugged again. Statically typed languages enforce distinct types for all variables, optionally providing type-inference to compute types without requiring the user to specify explicit type declarations in many cases.</p><p>If the compiler has some knowledge of the types of local or global variables then it can help in catching type-related errors like passing a value of the wrong type to a user-defined or built-in procedure. Type-information also can be used to generate more efficient code by omitting unnecessary type-checks.</p><p>CHICKEN provides an intra-procedural flow-analysis pass and two compiler options for using type-information in this manner:</p><p><tt>-specialize</tt> will replace certain generic library procedure calls with faster type-specific operations.</p><p><tt>-strict-types</tt> makes type-analysis more optimistic and gives more opportunities for specialization, but may result in unsafe code if type-declarations are violated.</p><p>Note that the interpreter will always ignore type-declarations and will not perform any flow-analysis of interpreted code.</p><h4 id="sec:Declaring_types"><a href="#sec:Declaring_types">Declaring types</a></h4><p>Type information for all core library units is available by default. User-defined global variables can be declared to have a type using the <tt>(declare (type ...))</tt> or <tt>:</tt> syntax.</p><p>All syntax described hereafter is exported from the <tt>(chicken type)</tt> module.</p><h5 id="sec::"><a href="#sec::">:</a></h5> <dl class="defsig"> <dt class="defsig" id="def::"><span class="sig"><tt>(: IDENTIFIER TYPE)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Declares that the global variable <tt>IDENTIFIER</tt> is of the given type.</p></dd></dl><h5 id="sec:the"><a href="#sec:the">the</a></h5> <dl class="defsig"> <dt class="defsig" id="def:the"><span class="sig"><tt>(the TYPE EXPRESSION)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Equivalent to <tt>EXPRESSION</tt>, but declares that the result will be of the given type. Note that this form always declares the type of a single result, <tt>the</tt> can not be used to declare types for multiple result values. <tt>TYPE</tt> should be a subtype of the type inferred for <tt>EXPRESSION</tt>, the compiler will issue a warning if this should not be the case.</p></dd></dl><h5 id="sec:assume"><a href="#sec:assume">assume</a></h5> <dl class="defsig"> <dt class="defsig" id="def:assume"><span class="sig"><tt>(assume ((VARIABLE TYPE) ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Declares that at the start of execution of <tt>BODY ..</tt>, the variables will be of the given types. This is equivalent to</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">VARIABLE <span class="paren4">(<span class="default"><i><span class="symbol">the</span></i> TYPE VARIABLE</span>)</span></span>)</span> ...</span>)</span> BODY ...</span>)</span></pre></dd></dl><h5 id="sec:define-type"><a href="#sec:define-type">define-type</a></h5> <dl class="defsig"> <dt class="defsig" id="def:define-type"><span class="sig"><tt>(define-type NAME TYPE)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines a type-abbreviation <tt>NAME</tt> that can be used in place of <tt>TYPE</tt>. Type-abbreviations defined inside a module are not visible outside of that module.</p></dd></dl><h4 id="sec:Type_syntax"><a href="#sec:Type_syntax">Type syntax</a></h4><p>Types declared with the <tt>type</tt> declaration (see <a href="Declarations.html">Declarations</a>) or <tt>:</tt> should follow the syntax given below:</p><table> <tr><th>TYPE</th><th>meaning</th></tr> <tr><td><tt>deprecated</tt></td><td>any use of this variable will generate a warning</td></tr> <tr><td><tt>(deprecated NAME)</tt></td><td>generate a warning and advise alternative NAME</td></tr> <tr><td>VALUETYPE</td><td></td></tr> </table> <table> <tr><th>VALUETYPE</th><th>meaning</th></tr> <tr><td><tt>(or VALUETYPE ...)</tt></td><td>&quot;union&quot; or &quot;sum&quot; type</td></tr> <tr><td><tt>(not VALUETYPE)</tt></td><td>non-matching type (*)</td></tr> <tr><td><tt>(struct STRUCTURENAME)</tt></td><td>record structure of given kind</td></tr> <tr><td><tt>(procedure [NAME] (VALUETYPE ... [#!optional VALUETYPE ...] [#!rest [VALUETYPE]]) . RESULTS)</tt></td><td>procedure type, optionally with name</td></tr> <tr><td><tt>(VALUETYPE ... [#!optional VALUETYPE ...] [#!rest [VALUETYPE]] -&gt; . RESULTS)</tt></td><td>alternative procedure type syntax</td></tr> <tr><td><tt>(VALUETYPE ... [#!optional VALUETYPE ...] [#!rest [VALUETYPE]] --&gt; . RESULTS)</tt></td><td>procedure type that is declared not to modify locally held state</td></tr> <tr><td><tt>(VALUETYPE -&gt; VALUETYPE : VALUETYPE)</tt></td><td>predicate procedure type</td></tr> <tr><td><tt>(forall (TYPEVAR ...) VALUETYPE)</tt></td><td>polymorphic type</td></tr> <tr><td>COMPLEXTYPE</td><td></td></tr> <tr><td>BASICTYPE</td><td></td></tr> <tr><td>TYPEVAR</td><td><tt>VARIABLE</tt> or <tt>(VARIABLE TYPE)</tt></td></tr> </table> <table> <tr><th>BASICTYPE</th><th>meaning</th></tr> <tr><td><tt>*</tt></td><td>any value</td></tr> <tr><td><tt>bignum</tt></td><td>arbitrary precision integer</td></tr> <tr><td><tt>blob</tt></td><td>byte vector</td></tr> <tr><td><tt>boolean</tt></td><td>true or false</td></tr> <tr><td><tt>char</tt></td><td>character</td></tr> <tr><td><tt>cplxnum</tt></td><td>complex number</td></tr> <tr><td><tt>eof</tt></td><td>end-of-file object</td></tr> <tr><td><tt>false</tt></td><td>boolean false</td></tr> <tr><td><tt>fixnum</tt></td><td>word-sized integer</td></tr> <tr><td><tt>float</tt></td><td>floating-point number</td></tr> <tr><td><tt>integer</tt></td><td>exact integer (either fixnum or bignum)</td></tr> <tr><td><tt>list</tt></td><td>null or pair</td></tr> <tr><td><tt>locative</tt></td><td>locative object</td></tr> <tr><td><tt>null</tt></td><td>empty list</td></tr> <tr><td><tt>number</tt></td><td>fixnum or float</td></tr> <tr><td><tt>pair</tt></td><td>pair</td></tr> <tr><td><tt>pointer-vector</tt></td><td>vector or native pointers</td></tr> <tr><td><tt>pointer</tt></td><td>native pointer</td></tr> <tr><td><tt>input-port</tt> <tt>output-port</tt></td><td>input- or output-port</td></tr> <tr><td><tt>procedure</tt></td><td>unspecific procedure</td></tr> <tr><td><tt>ratnum</tt></td><td>rational number</td></tr> <tr><td><tt>string</tt></td><td>string</td></tr> <tr><td><tt>symbol</tt></td><td>symbol</td></tr> <tr><td><tt>keyword</tt></td><td>keyword object</td></tr> <tr><td><tt>true</tt></td><td>boolean true</td></tr> <tr><td><tt>vector</tt></td><td>vector</td></tr> </table> <table> <tr><th>COMPLEXTYPE</th><th>meaning</th></tr> <tr><td><tt>(pair TYPE1 TYPE2)</tt></td><td>pair with given component types</td></tr> <tr><td><tt>(list-of TYPE)</tt></td><td>proper list with given element type</td></tr> <tr><td><tt>(list TYPE1 ...)</tt></td><td>proper list with given length and element types</td></tr> <tr><td><tt>(vector-of TYPE)</tt></td><td>vector with given element types</td></tr> <tr><td><tt>(vector TYPE1 ...)</tt></td><td>vector with given length and element types</td></tr> </table> <table> <tr><th>RESULTS</th><th>meaning</th></tr> <tr><td><tt>*</tt></td><td>any number of unspecific results</td></tr> <tr><td><tt>(RESULTTYPE ...)</tt></td><td>specific number of results with given types</td></tr> </table> <table> <tr><th>RESULTTYPE</th><th>meaning</th></tr> <tr><td><tt>undefined</tt></td><td>a single undefined result</td></tr> <tr><td><tt>noreturn</tt></td><td>procedure does not return normally</td></tr> <tr><td>VALUETYPE</td><td></td></tr> </table> <p>(*) Note: no type-variables are bound inside <tt>(not TYPE)</tt>.</p><p>You can use a shorthand <tt>'SYMBOL</tt> for introducing free variables in <tt>forall</tt> types, for example:</p><pre> ('a -&gt; 'a) is translated to (forall (a) (a -&gt; a))</pre><p>If a <tt>forall</tt> already exists, quotes around the free variables introduced by it will be stripped:</p><pre> (forall (a) ('a -&gt; a)) is translated to (forall (a) (a -&gt; a))</pre><p>Note that type-variables in <tt>forall</tt> types may be given &quot;constraint&quot; types, i.e.</p><pre> (: sort (forall (e (s (or (vector-of e) (list-of e)))) (s (e e -&gt; *) -&gt; s)))</pre><p>declares that <tt>sort</tt> is a procedure of two arguments, the first being a vector or list of an undetermined element type <tt>e</tt> and the second being a procedure that takes two arguments of the element type. The result of <tt>sort</tt> is of the same type as the first argument.</p><p>Some types are internally represented as structure types, but you can also use these names directly in type-specifications - <tt>TYPE</tt> corresponds to <tt>(struct TYPE)</tt> in this case:</p><table> <tr><th>Structure type</th><th>meaning</th></tr> <tr><td><tt>u8vector</tt></td><td>SRFI-4 byte vector</td></tr> <tr><td><tt>s8vector</tt></td><td>SRFI-4 byte vector</td></tr> <tr><td><tt>u16vector</tt></td><td>SRFI-4 byte vector</td></tr> <tr><td><tt>s16vector</tt></td><td>SRFI-4 byte vector</td></tr> <tr><td><tt>u32vector</tt></td><td>SRFI-4 byte vector</td></tr> <tr><td><tt>s32vector</tt></td><td>SRFI-4 byte vector</td></tr> <tr><td><tt>u64vector</tt></td><td>SRFI-4 byte vector</td></tr> <tr><td><tt>s64vector</tt></td><td>SRFI-4 byte vector</td></tr> <tr><td><tt>f32vector</tt></td><td>SRFI-4 byte vector</td></tr> <tr><td><tt>f64vector</tt></td><td>SRFI-4 byte vector</td></tr> <tr><td><tt>thread</tt></td><td>SRFI-18 thread</td></tr> <tr><td><tt>environment</tt></td><td>evaluation environment</td></tr> <tr><td><tt>time</tt></td><td>SRFI-18 &quot;time&quot; object</td></tr> <tr><td><tt>continuation</tt></td><td>continuation object</td></tr> <tr><td><tt>lock</tt></td><td>lock object from &quot;posix&quot; unit</td></tr> <tr><td><tt>condition</tt></td><td>object representing exception</td></tr> <tr><td><tt>hash-table</tt></td><td>SRFI-69 hash-table</td></tr> <tr><td><tt>tcp-listener</tt></td><td>listener object from &quot;tcp&quot; unit</td></tr> </table> <p>Additionally, some aliases are allowed:</p><table> <tr><th>Alias</th><th>Type</th></tr> <tr><td><tt>any</tt></td><td><tt>*</tt></td></tr> <tr><td><tt>immediate</tt></td><td><tt>(or eof null fixnum char boolean)</tt></td></tr> <tr><td><tt>port</tt></td><td><tt>(or input-port output-port)</tt></td></tr> <tr><td><tt>void</tt></td><td><tt>undefined</tt></td></tr> </table> <p>For portability the aliases <tt>&amp;optional</tt> and <tt>&amp;rest</tt> are allowed in procedure type declarations as an alternative to <tt>#!optional</tt> and <tt>#!rest</tt>, respectively.</p><h4 id="sec:Predicates"><a href="#sec:Predicates">Predicates</a></h4><p>Procedure-types of the form <tt>(DOM -&gt; RNG : TYPE)</tt> specify that the declared procedure will be a predicate, i.e. it accepts a single argument of type <tt>DOM</tt>, returns a result of type <tt>RNG</tt> (usually a boolean) and returns a true value if the argument is of type <tt>TYPE</tt> and false otherwise.</p><h4 id="sec:Purity"><a href="#sec:Purity">Purity</a></h4><p>Procedure types are assumed to be not referentially transparent and are assumed to possibly modify locally held state. Using the <tt>(... --&gt; ...)</tt> syntax, you can declare a procedure to not modify local state, i.e. not causing any side-effects on local variables or data contain in local variables. This gives more opportunities for optimization but may not be violated or the results are undefined.</p><h4 id="sec:Using_type_information_in_extensions"><a href="#sec:Using_type_information_in_extensions">Using type information in extensions</a></h4><p>Type information of declared toplevel variables can be used in client code that refers to the definitions in a compiled file. The following compiler options allow saving type-declarations to a file and consulting the type declarations retained in this manner:</p><p><tt>-emit-types-file FILENAME</tt> writes the type-information for all declared definitions in an internal format to <tt>FILENAME</tt>.</p><p><tt>-consult-types-file FILENAME</tt> loads and registers the type-information in <tt>FILENAME</tt> which should be a file generated though a previous use of <tt>-emit-types-file</tt>.</p><p>If library code is used with <tt>import</tt> and a <tt>.types</tt> file of the same name exists in the extension repository path, then it is automatically consulted. This allows code using these libraries to take advantage of type-information for library definitions.</p><p>Note that procedure-definitions in dynamically loaded code that was compiled with <tt>-strict-types</tt> will not check the types of their arguments which will result in unsafe code. Invoking such procedures with incorrectly typed arguments will result in undefined program behaviour.</p><h4 id="sec:Optimizations_done_by_specialization"><a href="#sec:Optimizations_done_by_specialization">Optimizations done by specialization</a></h4><p>If argument types are known, then calls to known library procedures are replaced with non-checking variants (if available). Additionally, procedure checks can be omitted in cases where the value in operator position of a procedure call is known to be a procedure. Performance results will vary greatly depending on the nature of the compiled code. In general, specialization will not make code that is compiled in unsafe mode any faster: compilation in unsafe mode will omit most type checks anyway. But specialization can often improve the performance of code compiled in safe (default) mode.</p><p>Specializations can also be defined by the user:</p><h5 id="sec:define-specialization"><a href="#sec:define-specialization">define-specialization</a></h5> <dl class="defsig"> <dt class="defsig" id="def:define-specialization"><span class="sig"><tt>(define-specialization (NAME ARGUMENT ...) [RESULTS] BODY)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Declares that calls to the globally defined procedure <tt>NAME</tt> with arguments matching the types given by <tt>ARGUMENT</tt>s should be replaced by <tt>BODY</tt> (a single expression). Each <tt>ARGUMENT</tt> should be an identifier naming a formal parameter, or a list of the form <tt>(IDENTIFIER TYPE)</tt>. In the former case, this argument specializes on the <tt>*</tt> type. If given, <tt>RESULTS</tt> (which follows the syntax given above under &quot;Type Syntax&quot;) adjusts the result types from those previously declared for <tt>NAME</tt>.</p><p><tt>NAME</tt> must have a declared type (for example by using <tt>:</tt>). If it doesn't, the specialization is ignored.</p><p>User-defined specializations are always local to the compilation unit in which they occur and cannot be exported. When encountered in the interpreter, <tt>define-specialization</tt> does nothing and returns an unspecified result.</p><p>When multiple specializations may apply to a given call, they are prioritized by the order in which they were defined, with earlier specializations taking precedence over later ones.</p><p>There is currently no way of ensuring specializations take place. You can use the <tt>-debug o</tt> compiler options to see the total number of specializations performed on a particular named function call during compilation.</p></dd></dl><h5 id="sec:compiler-typecase"><a href="#sec:compiler-typecase">compiler-typecase</a></h5> <dl class="defsig"> <dt class="defsig" id="def:compiler-typecase"><span class="sig"><tt>(compiler-typecase EXP (TYPE BODY ...) ... [(else BODY ...)])</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Evaluates <tt>EXP</tt> and executes the first clause which names a type that matches the type inferred during flow analysis as the result of <tt>EXP</tt>. The result of <tt>EXP</tt> is ignored and should be a single value. If a <tt>compiler-typecase</tt> form occurs in evaluated code, or if it occurs in compiled code but specialization is not enabled, then it must have an <tt>else</tt> clause which specifies the default code to be executed after <tt>EXP</tt>. If no <tt>else</tt> clause is given and no <tt>TYPE</tt> matches, then a compile-time error is signalled.</p></dd></dl><h4 id="sec:Caveats"><a href="#sec:Caveats">Caveats</a></h4><p>Assignments make flow-analysis much harder and remove opportunities for optimization. Generally you should avoid using a lot of mutations of both local variables and data held in local variables. It may even make your code do unexpected things when these mutations violate type-declarations.</p><p>Note that using threads which modify local state makes all type-analysis pointless.</p><hr /><p>Previous: <a href="Modules.html">Modules</a></p><p>Next: <a href="Declarations.html">Declarations</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken time).html������������������������������������������������0000644�0001750�0001750�00000006601�13502230005�021677� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken time)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_time.29">Module (chicken time)</a> <ul> <li><a href="#sec:Retrieving_timestamp_information">Retrieving timestamp information</a> <ul> <li><a href="#sec:cpu-time">cpu-time</a></li> <li><a href="#sec:current-milliseconds">current-milliseconds</a></li> <li><a href="#sec:current-seconds">current-seconds</a></li></ul></li> <li><a href="#sec:Benchmarking_macros">Benchmarking macros</a> <ul> <li><a href="#sec:time">time</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_time.29"><a href="#sec:Module_.28chicken_time.29">Module (chicken time)</a></h2><p>This module provides a few basic procedures for measuring time. For representation and manipulation of calendar time, see <a href="Module%20%28chicken%20time%20posix%29.html">Module (chicken time posix)</a>.</p><h3 id="sec:Retrieving_timestamp_information"><a href="#sec:Retrieving_timestamp_information">Retrieving timestamp information</a></h3><h4 id="sec:cpu-time"><a href="#sec:cpu-time">cpu-time</a></h4> <dl class="defsig"> <dt class="defsig" id="def:cpu-time"><span class="sig"><var class="id">cpu-time</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the used CPU time of the current process in milliseconds as two values: the time spent in user code, and the time spent in system code. On platforms where user and system time can not be differentiated, system time will be always be 0.</p></dd></dl><h4 id="sec:current-milliseconds"><a href="#sec:current-milliseconds">current-milliseconds</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-milliseconds"><span class="sig"><var class="id">current-milliseconds</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of milliseconds since process- or machine startup.</p></dd></dl><h4 id="sec:current-seconds"><a href="#sec:current-seconds">current-seconds</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-seconds"><span class="sig"><var class="id">current-seconds</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of seconds since midnight, Jan. 1, 1970.</p></dd></dl><h3 id="sec:Benchmarking_macros"><a href="#sec:Benchmarking_macros">Benchmarking macros</a></h3><h4 id="sec:time"><a href="#sec:time">time</a></h4> <dl class="defsig"> <dt class="defsig" id="def:time"><span class="sig"><tt>(time EXP1 ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Performs a major garbage collection, evaluates <tt>EXP1 ...</tt> and prints elapsed CPU time and some values about GC use, like time spent in major GCs, number of minor and major GCs. The output is sent to the port that is the current value of <tt>(current-error-port)</tt>. Nested invocations of this form will give incorrect results for all output but the innermost.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20tcp%29.html">Module (chicken tcp)</a></p><p>Next: <a href="Module%20%28chicken%20time%20posix%29.html">Module (chicken time posix)</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Debugging.html������������������������������������������������������������0000644�0001750�0001750�00000020670�13502230005�017722� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Debugging</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Debugging"><a href="#sec:Debugging">Debugging</a></h2><h3 id="sec:Introduction"><a href="#sec:Introduction">Introduction</a></h3><p>This document describes &quot;Feathers&quot;, a debugger for compiled CHICKEN programs.</p><p>&quot;Feathers&quot; is a <a href="http://tcl.tk">Tcl/Tk</a> script, installed together with all other components of the CHICKEN system. To use the debugger, Tcl/Tk version 8.5 or later must be installed.</p><p>Once the debugger is started, it waits for a client program to connect to it. You can also run a program explicitly by pressing the <tt>F1</tt> key and selecting an executable to run. If the executable has been compiled with debugging information, it will connect to the debugger and the source code of the program will be shown in the debugger window, if the original source files of the program are available in the search path (see below for more details on this.)</p><p>To enable debugging in compiled programs a number of requirements must be met:</p><ul><li>The program must be compiled with debug-level 3 or higher (option <tt>-d3</tt>) or by providing the <tt>-debug-info</tt> option.</li> <li>The environment variable <tt>CHICKEN_DEBUGGER</tt> must be set to the address and port of a running instance of the debugger, e.g. <tt>CHICKEN_DEBUGGER=localhost:9999</tt> (port 9999 is the default port). If you start a program directly out of the debugger, then this variable does not need to be set.</li> <li>The source code files must be in the current directory, or in the current &quot;search path&quot; of the debugger. The search path defaults to the current directory, the directory of the debugged program and any additional directories selected by pressing the <tt>F3</tt> key.</li> </ul> <p>You can also run the debugger from the command line and directly pass the program to be debugged, including any additional arguments that the program should receive:</p><p><tt>% feathers myprogram 1 2 3</tt></p><p>The debugger understands a number of command-line options: <tt>-port PORT</tt> changes the port on which the debugger listens (the default is 9999), <tt>-dir DIRECTORY</tt> adds <tt>DIRECTORY</tt> to the search path (this option can be given multiple times), and <tt>-n</tt> disables loading of a custom init file (<tt>~/.feathers</tt> or <tt>./.feathers</tt>).</p><p>Debug-level 3 adds intrumentation to the compiled code to allow interacting with it from the debugger. This has a slight performance cost, so it should not be enabled with performance sensitive code.</p><p>Debugging is mostly unintrusive: timing and dynamic (nursery) allocation may be influenced by the debugging, but otherwise the program will behave exactly as it would without embedded debugging-information: no additional heap allocation takes place, and no Scheme library code will be invoked.</p><p>User-interrupts triggered from the debugger use <tt>SIGUSR2</tt> to indicate that the program should be suspended. Be aware of that in case your program implements a signal handler for <tt>SIGUSR2</tt>.</p><p>Remote debugging should be no problem: all communication between debugger and the client program takes place over TCP sockets. Note that the source files for the debugged program need to be available on the machine that does the debugging.</p><h3 id="sec:Usage"><a href="#sec:Usage">Usage</a></h3><p>Initially a single window is shown, holding the contents of the source file that contains the currently executing code. When the execution changes to another file, the contents of the window will be automatically updated. The combo-box at the top shows all source-files for which debug-information is currently available. Note that this may change during the execution of the program, as files are dynamically loaded or statically linked units are not yet initialized.</p><p>The &quot;focus&quot; (a line marked blue) shows at what location the program is currently suspended. You can move the focus up and down with the <tt>Up</tt> and <tt>Down</tt> arrow keys.</p><p>Lines that contain &quot;debug events&quot; are highlighted: these lines can be used to set breakpoints by clicking with the left mouse button or by pressing <tt>Enter</tt> while the focus is on that line. Clicking a line that contains a breakpoint will disable the breakpoint. Note that a single line can contain multiple &quot;debug events&quot;. Setting a breakpoint on such a line will interrupt the program on any event that exists on that line.</p><p>The following debug events exist:</p><ul><li>Procedure call</li> <li>Procedure entry</li> <li>Assignment to global variable</li> <li>Signal (an error or interrupt)</li> </ul> <p>The topmost line shows the current file and also displays &quot;events&quot; as the debugged program runs and interacts with the debugger.</p><p>At the bottom the following buttons are visible, each of them can also be activated by pressing the function-key shown on the button:</p><dl><dt>F1</dt> <dd>Run an executable under the debugger. If a program is already debugged, then the current program will be terminated and the debugger is reinitialized.</dd><dt>F2</dt> <dd>Move focus back to location where the debugged program has been suspended.</dd><dt>F3</dt> <dd>Add another directory to the current search path.</dd><dt>F4</dt> <dd>Open the &quot;data&quot; view (see below.)</dd><dt>F5</dt> <dd>Continue execution of the program until the next breakpoint is hit, an error occurs, or the program terminates.</dd><dt>F6</dt> <dd>Execute a single &quot;step&quot;, until the next debug-event occurs. You can also press the <tt>Space</tt> key to single-step.</dd><dt>F7</dt> <dd>If text is marked in the current window, search backwards and show the most previous occurrence of the marked text that is not already visible.</dd></dl> <p>: F8 : Search for next occurrence of marked text.</p><p>: F9 : Open &quot;C&quot; view (see below.)</p><p>: F10 : Terminate the currently debugged program and exit the debugger.</p><p>Pressing the <tt>Esc</tt> key while the program is executing will suspend it on the next debug-event (so this may not take place instantly.)</p><p>The keys <tt>+</tt> (plus) and <tt>-</tt> (minus) increase and decrease the current font-size, respectively.</p><h3 id="sec:The_.22Data.22_View"><a href="#sec:The_.22Data.22_View">The &quot;Data&quot; View</a></h3><p>When <tt>F4</tt> is pressed, a window appears that allows inspection of the current arguments of a suspended procedure, together with any additional global variables that have been marked for inspection. By opening value items in the shown tree view, values can be inspected to arbitrary depth. Note that the values are retrieved from the debug-client on-demand, so the textual representation of a value shown will only reflect its currently inspected contents.</p><p>The entry-field below the view for variables and arguments can be used to add global variables to the list of watched variables. Double-clicking on a variable (or pressing <tt>Enter</tt> while it is selected) sets a &quot;watchpoint&quot; - a breakpoint that is trigged when the variable is assigned a new value.</p><p>The bars indicate current heap-, scratchspace- and nursery utilization. These bars update only when the program is suspended.</p><p>At the bottom the current call-trace of the executing program is shown. Note that this is not a &quot;stack-trace&quot;, but a list of recently performed calls, ordered from top (earlier) to bottom (later).</p><h3 id="sec:The_.22C.22_View"><a href="#sec:The_.22C.22_View">The &quot;C&quot; View</a></h3><p>Pressing <tt>F9</tt> opens another text-window which shows the current location where the program is suspended, but in the compiled C code generated by the <tt>chicken</tt> compiler. The contents of the window are automatically updated on every suspension of the debugged program. This may be useful when you want to understand how CHICKEN compiles Scheme to C, or when you are doing low-level debugging.</p><p>Text can be marked and searched as in the source-code window with <tt>F7</tt> and <tt>F8</tt>.</p><hr /><p>Previous: <a href="Extensions%20to%20the%20standard.html">Extensions to the standard</a></p><p>Next: <a href="Interface%20to%20external%20functions%20and%20variables.html">Interface to external functions and variables</a></p></div></div></body>������������������������������������������������������������������������chicken-5.1.0/manual-html/Extensions.html�����������������������������������������������������������0000644�0001750�0001750�00000034364�13502230005�020173� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Extensions</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Introduction_to_extensions">Introduction to extensions</a> <ul> <li><a href="#sec:Extension_libraries">Extension libraries</a></li> <li><a href="#sec:Installing_eggs">Installing eggs</a> <ul> <li><a href="#sec:Installing_eggs_that_use_libraries">Installing eggs that use libraries</a></li></ul></li> <li><a href="#sec:Creating_eggs">Creating eggs</a></li> <li><a href="#sec:Examples_for_extensions">Examples for extensions</a> <ul> <li><a href="#sec:A_simple_library">A simple library</a></li> <li><a href="#sec:An_application">An application</a></li> <li><a href="#sec:A_module_exporting_syntax">A module exporting syntax</a></li></ul></li></ul></li></ul></div><h2 id="sec:Introduction_to_extensions"><a href="#sec:Introduction_to_extensions">Introduction to extensions</a></h2><h3 id="sec:Extension_libraries"><a href="#sec:Extension_libraries">Extension libraries</a></h3><p>Extension libraries (<i>eggs</i>) are extensions to the core functionality provided by the basic CHICKEN system, to be built and installed separately. The mechanism for loading compiled extensions is based on dynamically loadable code and as such is only available on systems on which loading compiled code at runtime is supported. Currently these are most UNIX-compatible platforms that provide the <tt>libdl</tt> functionality like Linux, Solaris, BSD, Mac OS X and Windows using Cygwin.</p><p>On systems where dynamic loading is not available, extensions can still be built and linked as static object files.</p><p>Note: eggs may also be normal applications or shell scripts, but are usually libraries.</p><p>Extensions are technically nothing but dynamically loadable compiled files with added meta-data that describes dependencies to other eggs, version information and things like the author/maintainer of the egg. Three tools provide an easy to use interface for installing eggs, removing them and querying the current status of installed eggs.</p><h3 id="sec:Installing_eggs"><a href="#sec:Installing_eggs">Installing eggs</a></h3><p>To install an egg, run the <tt>chicken-install</tt> program with the egg name as argument. The egg archive is downloaded, its contents extracted and the contained egg description file is analyzed and the appropriate commands executed. This file is an abstract description of the contents of the egg and will be translated by <tt>chicken-install</tt> into build- and installation scripts for the current platform. After running these scripts (and if all goes well), the egg is installed and will be available like a built-in library. The format and meaning of the file will be described below.</p><p>Installation will copy a number of given files into the local egg repository or in the path where the CHICKEN executables are located (in the case of executable programs or scripts). Additionally the list of installed files, and user-defined metadata is stored in the repository.</p><p>If no egg name is given on the command-line, then all <tt>.egg</tt> files in the current directory are processed, including all <tt>.egg</tt> files in a subdirectory <tt>chicken</tt> (if such a directory exists), in some arbitrary order, unless the egg descriptions specify dependencies.</p><h4 id="sec:Installing_eggs_that_use_libraries"><a href="#sec:Installing_eggs_that_use_libraries">Installing eggs that use libraries</a></h4><p>Sometimes an egg requires a C library to compile. Compilation can fail when your system has this library in a nonstandard location. Normally the C compiler searches in the default locations <tt>/usr</tt> and <tt>/usr/local</tt>, and in the prefix where CHICKEN itself was installed. Sometimes this is not enough, so you'll need to supply <tt>chicken-install</tt> with some extra hints to the C compiler/linker. Here's an example:</p><pre> CSC_OPTIONS='-I/usr/pkg/include/mysql -L/usr/pkg/lib/mysql -L -R/usr/pkg/lib/mysql' chicken-install mysql</pre><p>This installs the mysql egg with the extra compiler options -I and -L to set the include path and the library search path. The second -L switch passes the -R option directly to the linker, which causes the library path to get hardcoded into the resulting extension file (for systems that do not use <tt>ld.so.conf</tt>).</p><p>The environment variables <tt>CHICKEN_C_INCLUDE_PATH</tt> and <tt>CHICKEN_C_LIBRARY_PATH</tt> can also be used to override include- and linker-paths. Each of these variables may contain one or more directory names, separated by <tt>:</tt> or <tt>;</tt> and will be passed using <tt>-I</tt> and <tt>-L</tt> to the C compiler.</p><p>Finally, you can use the <tt>custom-build</tt> egg file property to use a custom script to compile your extension's code. See below for more information.</p><h3 id="sec:Creating_eggs"><a href="#sec:Creating_eggs">Creating eggs</a></h3><p>An egg can be created by placing its code and some special files in a directory named after the desired name of the egg. For example, if your egg is called <tt>foo</tt>, create a directory called <tt>foo</tt> and put the egg code there.</p><p>Eggs need an egg description file <tt>&lt;egg name&gt;.egg</tt>. This file indicates how the egg is to be compiled and provides some information about the egg (author, license, dependencies etc).</p><p>The format of these files is described in full in the chapter entitled &quot;<a href="Egg%20specification%20format.html">Egg specification format</a>&quot;. Below we'll give a few brief examples of simple eggs.</p><h3 id="sec:Examples_for_extensions"><a href="#sec:Examples_for_extensions">Examples for extensions</a></h3><h4 id="sec:A_simple_library"><a href="#sec:A_simple_library">A simple library</a></h4><p>The simplest case is a single file that does not export any syntax. For example</p> <pre class="highlight colorize"><span class="comment">;;;; hello.scm </span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">hello name</span>)</span> <span class="paren2">(<span class="default">print <span class="string">&quot;Hello, &quot;</span> name <span class="string">&quot; !&quot;</span></span>)</span> </span>)</span></pre><p>We need an <tt>.egg</tt> file to build and install our nifty extension:</p> <pre class="highlight colorize"><span class="comment">;;;; hello.egg </span> <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">author <span class="string">&quot;Me&quot;</span></span>)</span> <span class="paren2">(<span class="default">synopsis <span class="string">&quot;A cool hello-world library&quot;</span></span>)</span> <span class="paren2">(<span class="default">license <span class="string">&quot;GPLv3&quot;</span></span>)</span> <span class="paren2">(<span class="default">components <span class="paren3">(<span class="default">extension hello</span>)</span></span>)</span></span>)</span></pre><p>After entering</p><pre>$ chicken-install</pre><p>at the shell prompt (and in the same directory where the two files exist), the file <tt>hello.scm</tt> will be compiled into a dynamically loadable library and a statically linkable object. If the compilation succeeds, <tt>hello.so</tt> and <tt>hello.o</tt> will be stored in the repository, together with a file named <tt>hello.egg-info</tt> containing an a-list with metadata (what you stored above in <tt>hello.egg</tt> plus some additional metadata). If no extension name is given to <tt>chicken-install</tt>, it will simply process any files with the <tt>.egg</tt> extension it can find.</p><p>Use it like any other CHICKEN extension:</p><pre>$ csi -q #;1&gt; (require-library hello) ; loading /usr/local/lib/chicken/8/hello.so ... #;2&gt; (hello &quot;me&quot;) Hello, me! #;3&gt;</pre><h4 id="sec:An_application"><a href="#sec:An_application">An application</a></h4><p>Here we create a simple application:</p> <pre class="highlight colorize"><span class="comment">;;;; hello2.scm </span> <span class="paren1">(<span class="default">print <span class="string">&quot;Hello, &quot;</span></span>)</span> <span class="paren1">(<span class="default">for-each <span class="paren2">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren3">(<span class="default">x</span>)</span> <span class="paren3">(<span class="default">printf <span class="string">&quot;~A &quot;</span> x</span>)</span></span>)</span> <span class="paren2">(<span class="default">command-line-arguments</span>)</span></span>)</span> <span class="paren1">(<span class="default">print <span class="string">&quot;!&quot;</span></span>)</span></pre><p>We also need an egg file:</p><dl><dt>;;; hello2.egg</dt> </dl> <pre class="highlight colorize"><span class="paren1">(<span class="default"><span class="paren2">(<span class="default">author <span class="string">&quot;Me&quot;</span></span>)</span> <span class="paren2">(<span class="default">synopsis <span class="string">&quot;A cool hello-world application&quot;</span></span>)</span> <span class="paren2">(<span class="default">license <span class="string">&quot;proprietary&quot;</span></span>)</span> <span class="paren2">(<span class="default">components <span class="paren3">(<span class="default">program hello2</span>)</span></span>)</span></span>)</span></pre><p>To use it, just run <tt>chicken-install</tt> in the same directory:</p><pre>$ chicken-install</pre><p>(Here we omit the extension name)</p><p>Now the program <tt>hello2</tt> will be installed in the same location as the other CHICKEN tools (like <tt>chicken</tt>, <tt>csi</tt>, etc.), which will normally be <tt>/usr/local/bin</tt>. Note that you need write-permissions for those locations and may have to run <tt>chicken-install</tt> with administrative rights or use the <tt>-sudo</tt> option.</p><p>The extension can be used from the command line:</p><pre>$ hello2 one two three Hello, one two three !</pre><p>De-installation is just as easy - use the <tt>chicken-uninstall</tt> program to remove one or more extensions from the local repository:</p><pre>$ chicken-uninstall hello2</pre><h4 id="sec:A_module_exporting_syntax"><a href="#sec:A_module_exporting_syntax">A module exporting syntax</a></h4><p>The hello module was just a shared library, and not a module.</p><p>To create an extension that exports syntax see the chapter on <a href="Modules.html">Modules</a>. We will show a simple example here: a module <tt>my-lib</tt> that exports one macro (<tt>prog1</tt>) and one procedure (<tt>my-sum</tt>):</p> <pre class="highlight colorize"><span class="comment">;;; my-lib.scm </span> <span class="paren1">(<span class="default">module my-lib * <span class="paren2">(<span class="default">import scheme chicken</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define-syntax</span></i> prog1 <span class="paren3">(<span class="default">syntax-rules <span class="paren4">(<span class="default"></span>)</span> <span class="paren4">(<span class="default"><span class="paren5">(<span class="default">_ e1 e2 ...</span>)</span> <span class="paren5">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren6">(<span class="default"><span class="paren1">(<span class="default">result e1</span>)</span></span>)</span> <span class="paren6">(<span class="default">begin e2 ...</span>)</span> result</span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> my-sum <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren4">(<span class="default">numbers</span>)</span> <span class="paren4">(<span class="default">prog1 <span class="paren5">(<span class="default">apply + numbers</span>)</span> <span class="paren5">(<span class="default">display <span class="string">&quot;my-sum used one more time!&quot;</span></span>)</span> <span class="paren5">(<span class="default">newline</span>)</span></span>)</span></span>)</span></span>)</span> </span>)</span></pre><p>The <tt>prog1</tt> macro is similar to Common Lisp's <tt>prog1</tt>: it evaluates a list of forms, but returns the value of the first form.</p><p>The egg file:</p> <pre class="highlight colorize"><span class="comment">;;; my-lib.egg </span> <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">components <span class="paren3">(<span class="default">extension my-lib</span>)</span></span>)</span> <span class="paren2">(<span class="default">version 1.0</span>)</span> <span class="paren2">(<span class="default">license <span class="string">&quot;BSD&quot;</span></span>)</span> <span class="paren2">(<span class="default">author <span class="string">&quot;Me again&quot;</span></span>)</span> <span class="paren2">(<span class="default">synopsis <span class="string">&quot;My own cool libraries&quot;</span></span>)</span></span>)</span></pre><p>Running <tt>chicken-install</tt> on the same directory will install the extension.</p><p>Next, it should be possible to load the library:</p><pre>$ csi -q #;1&gt; (import my-lib) ; loading /usr/local/lib/chicken/6/my-lib.import.so ... ; loading /usr/local/lib/chicken/6/scheme.import.so ... ; loading /usr/local/lib/chicken/6/chicken.import.so ... ; loading /usr/local/lib/chicken/6/my-lib.so ... #;2&gt; (my-sum '(10 20 30)) my-sum used one more time! 60 #;3&gt; (my-sum '(-1 1 0)) my-sum used one more time! 0 #;4&gt; (prog1 (+ 2 2) (print &quot;---&quot;)) --- 4</pre><p>To query the list of currently installed extensions, use <tt>chicken-status</tt>. It can list what extensions are installed and what files belong to a particular installed extension.</p><p>For more information about the available tools and the various options they provide, consult the <a href="Extension%20tools.html">Extension tools</a> chapter. Again, for a full list of allowed declarations in the <tt>.egg</tt> file, see the <a href="Egg%20specification%20format.html">Egg specification format</a> chapter.</p><hr /><p>Previous: <a href="Declarations.html">Declarations</a></p><p>Next: <a href="Extension%20tools.html">Extension tools</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken csi).html�������������������������������������������������0000644�0001750�0001750�00000006454�13502230005�021525� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken csi)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_csi.29">Module (chicken csi)</a> <ul> <li><a href="#sec:toplevel-command">toplevel-command</a></li> <li><a href="#sec:set-describer.21">set-describer!</a></li> <li><a href="#sec:editor-command">editor-command</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_csi.29"><a href="#sec:Module_.28chicken_csi.29">Module (chicken csi)</a></h2><p>This module provides procedures to access features specific to the <tt>csi</tt> interactive interpreter.</p><h3 id="sec:toplevel-command"><a href="#sec:toplevel-command">toplevel-command</a></h3> <dl class="defsig"> <dt class="defsig" id="def:toplevel-command"><span class="sig"><var class="id">toplevel-command</var> <var class="arg">SYMBOL</var> <var class="arg">PROC</var> <var class="dsssl">#!optional</var> <var class="arg">HELPSTRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Defines or redefines a toplevel interpreter command which can be invoked by entering <tt>,SYMBOL</tt>. <var class="arg">PROC</var> will be invoked when the command is entered and may read any required argument via <tt>read</tt> (or <tt>read-line</tt>). If the optional argument <var class="arg">HELPSTRING</var> is given, it will be listed by the <tt>,?</tt> command.</p></dd></dl><h3 id="sec:set-describer.21"><a href="#sec:set-describer.21">set-describer!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:set-describer.21"><span class="sig"><var class="id">set-describer!</var> <var class="arg">TAG</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets a custom description handler that invokes <var class="arg">PROC</var> when the <tt>,d</tt> command is invoked with a record-type object that has the type <var class="arg">TAG</var> (a symbol). <var class="arg">PROC</var> is called with two arguments: the object to be described and an output-port. It should write a possibly useful textual description of the object to the passed output-port. For example:</p><pre>#;1&gt; (define-record-type point (make-point x y) point? (x point-x) (y point-y)) #;2&gt; (set-describer! 'point (lambda (pt o) (with-output-to-port o (lambda () (print &quot;a point with x=&quot; (point-x pt) &quot; and y=&quot; (point-y pt)))))) #;3&gt; ,d (make-point 1 2) a point with x=1 and y=2</pre></dd></dl><h3 id="sec:editor-command"><a href="#sec:editor-command">editor-command</a></h3> <dl class="defsig"> <dt class="defsig" id="def:editor-command"><span class="sig"><var class="id">editor-command</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Holds the name of an editor that should be used when the toplevel command <tt>,e</tt> is used.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20continuation%29.html">Module (chicken continuation)</a></p><p>Next: <a href="Module%20%28chicken%20errno%29.html">Module (chicken errno)</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Using the compiler.html���������������������������������������������������0000644�0001750�0001750�00000064275�13502230005�021461� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Using the compiler</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Using_the_compiler">Using the compiler</a> <ul> <li><a href="#sec:Compiler_command_line_format">Compiler command line format</a> <ul> <li><a href="#sec:Basic_command-line_options">Basic command-line options</a></li> <li><a href="#sec:Further_options">Further options</a></li></ul></li> <li><a href="#sec:Runtime_options">Runtime options</a></li> <li><a href="#sec:Extending_the_compiler">Extending the compiler</a></li></ul></li></ul></div><h2 id="sec:Using_the_compiler"><a href="#sec:Using_the_compiler">Using the compiler</a></h2><p>The <tt>csc</tt> compiler driver provides a convenient interface to the basic Scheme-to-C translator (<tt>chicken</tt>) and takes care for compiling and linking the generated C files into executable code. Enter</p><pre>csc -help</pre><p>on the command line for a list of options.</p><h3 id="sec:Compiler_command_line_format"><a href="#sec:Compiler_command_line_format">Compiler command line format</a></h3><pre>chicken FILENAME OPTION ...</pre><p><tt>FILENAME</tt> is the pathname of the source file that is to be compiled. A filename argument of <tt>-</tt> (a single dash) specifies that the source text should be read from standard input.</p><h4 id="sec:Basic_command-line_options"><a href="#sec:Basic_command-line_options">Basic command-line options</a></h4><dl><dt>-analyze-only</dt> <dd>Stop compilation after first analysis pass.</dd><dt>-block</dt> <dd>Enable block-compilation. When this option is specified, the compiler assumes that global variables are not modified outside of this compilation-unit. Specifically, toplevel bindings are not seen by <tt>eval</tt> and unused toplevel bindings are removed.</dd><dt>-case-insensitive</dt> <dd>Enables the reader to read symbols case insensitive. The default is to read case sensitive (in violation of R5RS). This option registers the <tt>case-insensitive</tt> feature identifier.</dd><dt>-check-syntax</dt> <dd>Aborts compilation process after macro-expansion and syntax checks.</dd><dt>-clustering</dt> <dd>Combine groups of local procedures into dispatch-loops, if possible.</dd><dt>-consult-inline-file FILENAME</dt> <dd>load file with definitions for cross-module inlining generated by a previous compiler invocation via <tt>-emit-inline-file</tt>. Implies <tt>-inline</tt>.</dd><dt>-debug MODES</dt> <dd>Enables one or more compiler debugging modes. <tt>MODES</tt> is a string of characters that select debugging information about the compiler that will be printed to standard output. Use <tt>-debug h</tt> to see a list of available debugging options.</dd><dt>-debug-level LEVEL</dt> <dd>Selects amount of debug-information. <tt>LEVEL</tt> should be an integer, where <tt>0</tt> is equivalent to <tt>-no-trace -no-lambda-info</tt>, <tt>1</tt> is equivalent to <tt>-no-trace</tt>, <tt>2</tt> is the default behaviour and <tt>3</tt> is equivalent to <tt>-debug-mode</tt>.</dd><dt>-disable-interrupts</dt> <dd>Equivalent to the <tt>(disable-interrupts)</tt> declaration. No interrupt-checks are generated for compiled programs, which disables thread context switches in this (and only this) compilation unit.</dd><dt>-disable-stack-overflow-checks</dt> <dd>Disables detection of stack overflows. This is equivalent to running the compiled executable with the <tt>-:o</tt> runtime option.</dd><dt>-dynamic</dt> <dd>This option should be used when compiling files intended to be loaded dynamically into a running Scheme program.</dd><dt>-epilogue FILENAME</dt> <dd>Includes the file named <tt>FILENAME</tt> at the end of the compiled source file. The include-path is not searched. This option may be given multiple times.</dd><dt>-emit-all-import-libraries</dt> <dd>emit import libraries for all modules defined in the current compulation unit (see also: <tt>-emit-import-library</tt>).</dd><dt>-emit-external-prototypes-first</dt> <dd>Emit prototypes for callbacks defined with <tt>define-external</tt> before any other foreign declarations. This is sometimes useful, when C/C++ code embedded into the a Scheme program has to access the callbacks. By default the prototypes are emitted after foreign declarations.</dd><dt>-regenerate-import-libraries</dt> <dd>Always emit new import libraries, even when their contents haven't changed. The default behaviour is to preserve existing import libraries.</dd><dt>-emit-import-library MODULE</dt> <dd>Specifies that an import library named <tt>MODULE.import.scm</tt> for the named module should be generated (equivalent to using the <tt>emit-import-library</tt> declaration).</dd><dt>-emit-inline-file FILENAME</dt> <dd>Write procedures that can be globally inlined in internal form to <tt>FILENAME</tt>, if global inlining is enabled. Implies <tt>-inline -local</tt>. If the inline-file would be empty (because no procedure would be inlinable) no file is generated and any existing inline-file with that name is deleted.</dd><dt>-emit-link-file FILENAME</dt> <dd>write a list of statically linked extensions to <tt>FILENAME</tt>, used for identifying the static objects that need to be linked to an executable.</dd><dt>-emit-types-file FILENAME</dt> <dd>Write type-information for declarations of user-defined and globally visible variables to a file of the given name. The generated file is suitable for use with the <tt>-consult-types-file</tt> option.</dd><dt>-explicit-use</dt> <dd>Disables automatic use of the units <tt>library, eval</tt> and <tt>expand</tt>. Use this option if compiling a library unit instead of an application unit.</dd><dt>-extend FILENAME</dt> <dd>Loads a Scheme source file or compiled Scheme program (on systems that support it) before compilation commences. This feature can be used to extend the compiler. This option may be given multiple times. The file is also searched in the current include path and in the extension-repository.</dd><dt>-feature SYMBOL</dt> <dd>Registers <tt>SYMBOL</tt> to be a valid feature identifier for <tt>cond-expand</tt>. Multiple symbols may be given, if comma-separated.</dd><dt>-fixnum-arithmetic</dt> <dd>Equivalent to the <tt>(fixnum-arithmetic)</tt> declaration. Assume all mathematical operations use small integer arguments.</dd><dt>-heap-size NUMBER</dt> <dd>Sets a fixed heap size of <tt>NUMBER</tt> bytes for the generated executable. The parameter may be followed by a <tt>M</tt> (<tt>m</tt>) or <tt>K</tt> (<tt>k</tt>) suffix which stand for mega- and kilobytes, respectively. The default heap size is 500 kilobytes. Note that only half of it is in use at every given time. Note also that by default the heap is dynamically resized unless this option is given.</dd><dt>-help</dt> <dd>Print a summary of available options and the format of the command line parameters and exit the compiler.</dd><dt>-ignore-repository</dt> <dd>Do not load any extensions from the repository (treat the repository as empty). Also do not consult compiled (only interpreted) import libraries in <tt>import</tt> forms.</dd><dt>-include-path PATHNAME</dt> <dd>Specifies an additional search path for files included via the <tt>include</tt> special form. This option may be given multiple times. If the environment variable <tt>CHICKEN_INCLUDE_PATH</tt> is set, it should contain a list of alternative include pathnames separated by <tt>:</tt> (UNIX) or <tt>;</tt> (Windows).</dd><dt>-inline</dt> <dd>Enable procedure inlining for known procedures of a size below the threshold (which can be set through the <tt>-inline-limit</tt> option).</dd><dt>-inline-global</dt> <dd>Enable cross-module inlining (in addition to local inlining). Implies <tt>-inline</tt>. For more information, see also <a href="Declarations.html">Declarations</a>.</dd><dt>-inline-limit THRESHOLD</dt> <dd>Sets the maximum size of a potentially inlinable procedure. The default threshold is <tt>20</tt>.</dd><dt>-keyword-style STYLE</dt> <dd>Enables alternative keyword syntax, where <tt>STYLE</tt> may be either <tt>prefix</tt> (as in Common Lisp, e.g. :keyword), <tt>suffix</tt> (as in DSSSL, e.g. keyword:) or <tt>none</tt> (where only the <tt>#:KEYWORD</tt> is allowed). Any other value is ignored. The default is <tt>suffix</tt>.</dd><dt>-keep-shadowed-macros</dt> <dd>Do not remove macro definitions with the same name as assigned toplevel variables (the default is to remove the macro definition).</dd><dt>-link NAME</dt> <dd>Links the extension <tt>NAME</tt> with the compiled program and uses it as a unit. Multiple names may be given and should be separated by commas.</dd><dt>-local</dt> <dd>Assume toplevel variables defined in the current compilation unit are not externally modified. This gives the compiler more opportunities for inlining. Note that this may result in counter-intuitive and non-standard behaviour: an asssignment to an exported toplevel variable executed in a different compilation unit or in evaluated code will possibly not be seen by code executing in the current compilation unit.</dd><dt>-lfa2</dt> <dd>Does an additional lightweight flow-analysis pass on the fully optimized program to remove more type checks.</dd><dt>-module NAME</dt> <dd>wraps the compiled code in an implicit module of the given <tt>NAME</tt>, importing the <tt>scheme</tt> and <tt>chicken</tt> modules.</dd><dt>-no-argc-checks</dt> <dd>disable argument count checks</dd><dt>-no-bound-checks</dt> <dd>disable bound variable checks</dd><dt>-no-feature SYMBOL</dt> <dd>Disables the predefined feature-identifier <tt>SYMBOL</tt>. Multiple comma-separated symbols may be given.</dd><dt>-no-lambda-info</dt> <dd>Do not emit additional information for each <tt>lambda</tt> expression (currently the argument-list, after alpha-conversion/renaming).</dd><dt>-no-module-registration</dt> <dd>Do not generate module-registration code in the compiled code. This is needed if you want to use an import library that is generated by other means (manually, for example), or when you do not intend to use modules in the program at runtime (using <tt>eval</tt>).</dd><dt>-no-parentheses-synonyms</dt> <dd>Disables list delimiter synonyms, [..] and {...} for (...).</dd><dt>-no-procedure-checks</dt> <dd>disable procedure call checks</dd><dt>-no-procedure-checks-for-usual-bindings</dt> <dd>disable procedure call checks only for usual bindings</dd><dt>-no-procedure-checks-for-toplevel-bindings</dt> <dd>disable bound and procedure call checks for calls to procedures referenced through a toplevel variable.</dd><dt>-no-symbol-escape</dt> <dd>Disables support for escaped symbols, the |...| form.</dd><dt>-no-trace</dt> <dd>Disable generation of tracing information. If a compiled executable should halt due to a runtime error, then a list of the name and the line-number (if available) of the last procedure calls is printed, unless <tt>-no-trace</tt> is specified. With this option the generated code is slightly faster.</dd><dt>-no-warnings</dt> <dd>Disable generation of compiler warnings.</dd><dt>-nursery NUMBER</dt> <dt>-stack-size NUMBER</dt> <dd>Sets the size of the first heap-generation of the generated executable to <tt>NUMBER</tt> bytes. The parameter may be followed by a <tt>M</tt> (<tt>m</tt>) or <tt>K</tt> (<tt>k</tt>) suffix. The default stack-size depends on the target platform.</dd><dt>-optimize-leaf-routines</dt> <dd>Enable leaf routine optimization.</dd><dt>-optimize-level LEVEL</dt> <dd>Enables certain sets of optimization options. <tt>LEVEL</tt> should be an integer. Level <tt>0</tt> is equivalent to <tt>-no-usual-integrations -no-compiler-syntax</tt> (no optimization), level <tt>1} is equivalent to {{-optimize-leaf-routines</tt> (minimal optimization), level <tt>2</tt> is equivalent to <tt>-optimize-leaf-routines -inline -lfa2</tt> (enable optimizations that do not break standard compliance, this is the default), level <tt>3</tt> is equivalent to <tt>-optimize-leaf-routines -local -inline -lfa2 -inline-global -specialize</tt> (maximal optimization, while still &quot;safe&quot;), level <tt>4</tt> is equivalent to <tt>-optimize-leaf-routines -local -inline -lfa2 -inline-global -specialize -unsafe</tt> (maximal optimization, &quot;unsafe&quot;) and any higher level is equivalent to <tt>-optimize-leaf-routines -block -inline -lfa2 -inline-global -specialize -unsafe -disable-interrupts -no-trace -no-lambda-info -clustering</tt> (all possible optimizations, &quot;unsafe&quot;).</dd><dt>-output-file FILENAME</dt> <dd>Specifies the pathname of the generated C file. Default is to use the source filename with the extension replaced by <tt>.c</tt>.</dd><dt>-postlude EXPRESSIONS</dt> <dd>Add <tt>EXPRESSIONS</tt> after all other toplevel expressions in the compiled file. This option may be given multiple times. Processing of this option takes place after processing of <tt>-epilogue</tt>.</dd><dt>-prelude EXPRESSIONS</dt> <dd>Add <tt>EXPRESSIONS</tt> before all other toplevel expressions in the compiled file. This option may be given multiple times. Processing of this option takes place before processing of <tt>-prologue</tt>.</dd><dt>-profile</dt> <dt>-accumulate-profile</dt> <dd>Instruments the source code to count procedure calls and execution times. After the program terminates (either via an explicit <tt>exit</tt> or implicitly), profiling statistics are written to a file named <tt>PROFILE.&lt;randomnumber&gt;</tt>. Each line of the generated file contains a list with the procedure name, the number of calls and the time spent executing it. Use the <tt>chicken-profile</tt> program to display the profiling information in a more user-friendly form. Enter <tt>chicken-profile -help</tt> at the command line to get a list of available options. The <tt>-accumulate-profile</tt> option is similar to <tt>-profile</tt>, but the resulting profile information will be appended to any existing <tt>PROFILE</tt> file. <tt>chicken-profile</tt> will merge and sum up the accumulated timing information, if several entries for the same procedure calls exist. Only profiling information for global procedures will be collected. See the <tt>-:p</tt> option under <a href="#sec:Runtime_options">&quot;Runtime options&quot;</a> below for statistical profiling support.</dd><dt>-profile-name FILENAME</dt> <dd>Specifies name of the generated profile information (which defaults to <tt>PROFILE.&lt;randomnumber&gt;</tt>. Implies <tt>-profile</tt>.</dd><dt>-prologue FILENAME</dt> <dd>Includes the file named <tt>FILENAME</tt> at the start of the compiled source file. The include-path is not searched. This option may be given multiple times.</dd><dt>-r5rs-syntax</dt> <dd>Disables the CHICKEN extensions to R5RS syntax. Does not disable non-standard read syntax.</dd><dt>-raw</dt> <dd>Disables the generation of any implicit code that uses the Scheme libraries (that is all runtime system files besides <tt>runtime.c</tt> and <tt>chicken.h</tt>). Use this only when you know what you are doing.</dd><dt>-require-extension NAME</dt> <dd>Loads the extension <tt>NAME</tt> before the compilation process commences. This is identical to adding <tt>(require-extension NAME)</tt> at the start of the compiled program. If <tt>-uses NAME</tt> is also given on the command line, then any occurrences of <tt>-require-extension NAME</tt> are replaced with <tt>(declare (uses NAME))</tt>. Multiple names may be given and should be separated by commas.</dd><dt>-setup-mode</dt> <dd>When locating extension, search the current directory first. By default, extensions are located first in the <i>extension repository</i>, where <tt>chicken-install</tt> stores compiled extensions and their associated metadata.</dd><dt>-specialize</dt> <dd>Enable simple flow-analysis for doing some type-directed optimizations.</dd><dt>-static</dt> <dd>Link extensions statically, if possible.</dd><dt>-strict-types</dt> <dd>Assume that the type of variables is not changed by assignments. This gives more type-information during specialization, but violating this assumption will result in unsafe and incorrectly behaving code. Use with care.</dd><dt>-consult-types-file FILENAME</dt> <dd>load additional type database from <tt>FILENAME</tt>. Type-definitions in <tt>FILENAME</tt> will override previous type-definitions.</dd><dt>-compile-syntax</dt> <dd>Makes macros also available at run-time. By default macros are not available at run-time.</dd><dt>-to-stdout</dt> <dd>Write compiled code to standard output instead of creating a <tt>.c</tt> file.</dd><dt>-unit NAME</dt> <dd>Compile this file as a library unit. Equivalent to <tt>-prelude &quot;(declare (unit NAME))&quot;</tt></dd><dt>-unsafe</dt> <dd>Disable runtime safety checks.</dd><dt>-uses NAME</dt> <dd>Use definitions from the library unit <tt>NAME</tt>. This is equivalent to <tt>-prelude &quot;(declare (uses NAME))&quot;</tt>. Multiple arguments may be given, separated by <tt>,</tt> (comma).</dd><dt>-no-usual-integrations</dt> <dd>Specifies that standard procedures and certain internal procedures may be redefined, and can not be inlined. This is equivalent to declaring <tt>(not usual-integrations)</tt>.</dd><dt>-version</dt> <dd>Prints the version and some copyright information and exit the compiler.</dd><dt>-verbose</dt> <dd>enables output of notes that are not necessarily warnings but might be of interest.</dd></dl> <p>The environment variable <tt>CHICKEN_OPTIONS</tt> can be set to a string with default command-line options for the compiler.</p><h4 id="sec:Further_options"><a href="#sec:Further_options">Further options</a></h4><p>Enter</p><pre> csc -help</pre><p>to see a list of all supported options and short aliases to basic options.</p><h3 id="sec:Runtime_options"><a href="#sec:Runtime_options">Runtime options</a></h3><p>After successful compilation a C source file is generated and can be compiled with a C compiler. Executables generated with CHICKEN (and the compiler itself) accept a small set of runtime options. These are filtered out by the startup code and will not be contained in the result of <tt>(command-line-arguments)</tt>.</p><dl><dt><tt>-:?</tt></dt> <dd>Shows a list of the available runtime options and exits the program.</dd><dt><tt>-:aNUMBER</tt></dt> <dd>Specifies the length of the buffer for recording a trace of the last invoked procedures. Defaults to 16.</dd><dt><tt>-:ANUMBER</tt></dt> <dd>Specifies fixed <i>temporary stack</i> size. This is used mostly for <tt>apply</tt>. If you supply a zero size (the default), the temorary stack will be dynamically reallocated as needed.</dd><dt><tt>-:b</tt></dt> <dd>Enter a read-eval-print-loop when an error is encountered.</dd><dt><tt>-:B</tt></dt> <dd>Sounds a bell (by writing ASCII 7 to stdout) on every major garbage collection.</dd><dt><tt>-:c</tt></dt> <dd>Forces console mode. Currently this is only used in the interpreter (<tt>csi</tt>) to force output of the <tt>#;N&gt;</tt> prompt even if stdin is not a terminal (for example if running in an <tt>emacs</tt> buffer under Windows).</dd><dt><tt>-:d</tt></dt> <dd>Prints some debug-information at runtime.</dd><dt><tt>-:D</tt></dt> <dd>Prints some more debug-information at runtime.</dd><dt><tt>-:g</tt></dt> <dd>Prints information about garbage-collection.</dd><dt><tt>-:G</tt></dt> <dd>Force GUI mode (show error messages in dialog box if running under MacOS X or Windows).</dd><dt><tt>-:H</tt></dt> <dd>Before terminating, dump heap usage to stderr.</dd><dt><tt>-:fNUMBER</tt></dt> <dd>Specifies the maximal number of currently pending finalizers before finalization is forced.</dd><dt><tt>-:hNUMBER</tt></dt> <dd>Specifies fixed heap size</dd><dt><tt>-:hgPERCENTAGE</tt></dt> <dd>Sets the growth rate of the heap in percent. If the heap is exhausted, then it will grow by <tt>PERCENTAGE</tt>. The default is 200.</dd><dt><tt>-:hiNUMBER</tt></dt> <dd>Specifies the initial heap size</dd><dt><tt>-:hmNUMBER</tt></dt> <dd>Specifies a maximal heap size. The default is (2GB - 15).</dd><dt><tt>-:hsPERCENTAGE</tt></dt> <dd>Sets the shrink rate of the heap in percent. If no more than a quarter of <tt>PERCENTAGE</tt> of the heap is used, then it will shrink to <tt>PERCENTAGE</tt>. The default is 50. Note: If you want to make sure that the heap never shrinks, specify a value of <tt>0</tt>. (this can be useful in situations where an optimal heap-size is known in advance). </dd><dt><tt>-:o</tt></dt> <dd>Disables detection of stack overflows at run-time.</dd><dt><tt>-:p</tt></dt> <dd>Enable collection of statistics for profiling purposes and write to PROFILE.<tt>pid</tt> on exit. This functions at a granularity defined by the trace information in the binary and libraries: each traced function will show up in the output. See the <tt>-profile</tt> compiler option for instrumentation-based profiling. The <tt>PROFILE.pid</tt> format is compatible with the format generated by instrumentation-based profiling.</dd><dt><tt>-:PFREQUENCY</tt></dt> <dd>Same as <tt>-:p</tt> but set the sampling frequency in microseconds (default is 10000 microseconds or every 10 milliseconds).</dd><dt><tt>-:r</tt></dt> <dd>Writes trace output to stderr. This option has no effect in files compiled with the <tt>-no-trace</tt> options.</dd><dt><tt>-:sNUMBER</tt></dt> <dd>Specifies stack size.</dd><dt><tt>-:tNUMBER</tt></dt> <dd>Specifies symbol table size.</dd><dt><tt>-:x</tt></dt> <dd>Raises uncaught exceptions of separately spawned threads in primordial thread. By default uncaught exceptions in separate threads are not handled, unless the primordial one explicitly joins them. When warnings are enabled (the default) and <tt>-:x</tt> is not given, a warning will be shown, though.</dd></dl> <p>Runtime argument values should be given as integers, optionally followed by a unit modifier for kilobytes (suffixed with <tt>K</tt> or <tt>k</tt>), megabytes (suffixed with <tt>M</tt> or <tt>m</tt>), or gigabytes (suffixed with <tt>G</tt> or <tt>g</tt>).</p><p>Runtime options may be combined, like <tt>-:dc</tt>, but everything following an argument is ignored. So <tt>-:oh64m</tt> is OK, but <tt>-:h64mo</tt> will not disable stack overflow checks.</p><h3 id="sec:Extending_the_compiler"><a href="#sec:Extending_the_compiler">Extending the compiler</a></h3><p>The compiler supplies a couple of hooks to add user-level passes to the compilation process. Before compilation commences any Scheme source files or compiled code specified using the <tt>-extend</tt> option are loaded and evaluated. The parameters <tt>user-options-pass</tt>, <tt>user-read-pass</tt>, <tt>user-preprocessor-pass</tt>, <tt>user-pass</tt> and <tt>user-post-analysis-pass</tt> can be set to procedures that are called to perform certain compilation passes in addition to the usual processing.</p><p>These parameters are provided by the <tt>(chicken compiler user-pass)</tt> module.</p> <dl class="defsig"> <dt class="defsig" id="def:user-options-pass"><span class="sig"><var class="id">user-options-pass</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Holds a procedure that will be called with a list of command-line arguments and should return two values: the source filename and the actual list of options, where compiler switches have their leading <tt>-</tt> (hyphen) removed and are converted to symbols. Note that this parameter is invoked <b>before</b> processing of the <tt>-extend</tt> option, and so can only be changed in compiled user passes.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:user-read-pass"><span class="sig"><var class="id">user-read-pass</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Holds a procedure of three arguments. The first argument is a list of strings with the code passed to the compiler via <tt>-prelude</tt> options. The second argument is a list of source files including any files specified by <tt>-prologue</tt> and <tt>-epilogue</tt>. The third argument is a list of strings specified using <tt>-postlude</tt> options. The procedure should return a list of toplevel Scheme expressions.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:user-preprocessor-pass"><span class="sig"><var class="id">user-preprocessor-pass</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Holds a procedure of one argument. This procedure is applied to each toplevel expression in the source file <b>before</b> macro-expansion. The result is macro-expanded and compiled in place of the original expression.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:user-pass"><span class="sig"><var class="id">user-pass</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Holds a procedure of one argument. This procedure is applied to each toplevel expression <b>after</b> macro-expansion. The result of the procedure is then compiled in place of the original expression.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:user-post-analysis-pass"><span class="sig"><var class="id">user-post-analysis-pass</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Holds a procedure that will be called after every performed program analysis pass. The procedure (when defined) will be called with seven arguments: a symbol indicating the analysis pass, the program database, the current node graph, a getter and a setter-procedure which can be used to access and manipulate the program database, which holds various information about the compiled program, a pass iteration count, and an analysis continuation flag. The getter procedure should be called with two arguments: a symbol representing the binding for which information should be retrieved, and a symbol that specifies the database-entry. The current value of the database entry will be returned or <tt>#f</tt>, if no such entry is available. The setter procedure is called with three arguments: the symbol and key and the new value. The pass iteration count currently is meaningful only for the 'opt pass. The analysis continuation flag will be <tt>#f</tt> for the last 'opt pass. For information about the contents of the program database contact the author.</p><p>Note that the macroexpansion/canonicalization phase of the compiler adds certain forms to the source program. These extra expressions are not seen by <tt>user-preprocessor-pass</tt>, but are seen by <tt>user-pass</tt>.</p></dd></dl><hr /><p>Previous: <a href="Using%20the%20interpreter.html">Using the interpreter</a></p><p>Next: <a href="Deviations%20from%20the%20standard.html">Deviations from the standard</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Data representation.html��������������������������������������������������0000644�0001750�0001750�00000022477�13502230004�021731� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Data representation</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Data_representation">Data representation</a> <ul> <li><a href="#sec:Immediate_objects">Immediate objects</a></li> <li><a href="#sec:Non-immediate_objects">Non-immediate objects</a></li></ul></li></ul></div><h2 id="sec:Data_representation"><a href="#sec:Data_representation">Data representation</a></h2><p>There exist two different kinds of data objects in the CHICKEN system: immediate and non-immediate objects.</p><h3 id="sec:Immediate_objects"><a href="#sec:Immediate_objects">Immediate objects</a></h3><p>Immediate objects are represented by a single machine word, 32 or 64 bits depending on the architecture. They come in four different flavors:</p><p><b>fixnums</b>, that is, small exact integers, where the lowest order bit is set to 1. This gives fixnums a range of 31 bits for the actual numeric value (63 bits on 64-bit architectures).</p><p><b>characters</b>, where the four lowest-order bits are equal to <tt>C_CHARACTER_BITS</tt>, currently 1010. The Unicode code point of the character is encoded in the next 24 bits.</p><p><b>booleans</b>, where the four lowest-order bits are equal to <tt>C_BOOLEAN_BITS</tt>, currently 0110. The next bit is one for #t and zero for #f.</p><p><b>other values</b>: the empty list, the value of unbound identifiers, the undefined value (void), and end-of-file. The four lowest-order bits are equal to <tt>C_SPECIAL_BITS</tt>, currently 1110. The next four bits contain an identifying number for this type of object, one of: <tt>C_SCHEME_END_OF_LIST</tt>, currently 0000; <tt>C_SCHEME_UNDEFINED</tt>, currently 0001; <tt>C_SCHEME_UNBOUND</tt>, currently 0010; or <tt>C_SCHEME_END_OF_FILE</tt>, currently 0011.</p><h3 id="sec:Non-immediate_objects"><a href="#sec:Non-immediate_objects">Non-immediate objects</a></h3><p>Collectively, the two lowest-order bits are known as the <i>immediate mark bits</i>. When the lowest bit is set, the object is a fixnum, as described above, and the next bit is part of its value. When the lowest bit is clear but the next bit is set, it is an immediate object other than a fixnum. If neither bit is set, the object is non-immediate, as described below.</p><p>Non-immediate objects are blocks of data represented by a pointer into the heap. The pointer's immediate mark bits must be zero to indicate the object is non-immediate; this guarantees the data block is aligned on a 4-byte boundary, at minimum. Alignment of data words is required on modern architectures anyway, so we get the ability to distinguish between immediate and non-immediate objects for free.</p><p>The first word of the data block contains a header, which gives information about the type of the object. The header is a single machine word.</p><p>The 24 (56 on 64-bit systems) lowest-order bits contain the length of the data object, which is either the number of bytes in a string or byte-vector, or the number of elements for a vector or record type. This allows a maximum size for string or byte-vectors of 2^24 bytes, or approximately 16 MB, on 32-bit systems, and 2^56 bytes, or approximately 72 PB, on 64-bit systems.</p><p>The remaining bits are placed in the high-order end of the header. The four highest-order bits are used for garbage collection or internal data type dispatching.</p><dl><dt>C_GC_FORWARDING_BIT</dt> <dd>Flag used for forwarding garbage collected object pointers.</dd><dt>C_BYTEBLOCK_BIT</dt> <dd>Flag that specifies whether this data object contains raw bytes (a string or blob) or pointers to other data objects.</dd><dt>C_SPECIALBLOCK_BIT</dt> <dd>Flag that specifies whether this object contains a <i>special</i> non-object pointer value in its first slot. An example for this kind of objects are closures, which are a vector-type object with the code-pointer as the first item. This is also used to turn a pair's car into a weak reference in the symbol table, to allow its symbol to be collected.</dd><dt>C_8ALIGN_BIT</dt> <dd>Flag that specifies whether the data area of this block should be aligned on an 8-byte boundary (floating-point numbers, for example).</dd></dl> <p>After these four bits comes a 4-bit type code representing one of the following types:</p><p><b>vectors</b>: vector objects with type bits <tt>C_VECTOR_TYPE</tt>, currently 0000.</p><p><b>symbols</b>: vector objects with type bits <tt>C_SYMBOL_TYPE</tt>, currently 0001. The three slots contain the toplevel variable value, the print-name (a string), and the property list of the symbol. When manipulating these slots, the symbol table's container needs to be manipulated as well, to control garbage collection of the symbol: if the symbol is undefined and has no property list, the symbol table's container should be a weak reference (<tt>C_WEAK_PAIR_TYPE</tt>), otherwise it should be a strong reference (<tt>C_PAIR_TYPE</tt>).</p><p><b>strings</b>: byte-vector objects with type bits <tt>C_STRING_TYPE</tt>, currently 0010.</p><p><b>pairs</b>: vector-like object with type bits <tt>C_PAIR_TYPE</tt>, currently 0011. The car and the cdr are contained in the first and second slots, respectively.</p><p><b>closures</b>: special vector objects with type bits <tt>C_CLOSURE_TYPE</tt>, currently 0100. The first slot contains a pointer to a compiled C function. Any extra slots contain the free variables (since a flat closure representation is used).</p><p><b>flonums</b>: byte-vector objects with type bits <tt>C_FLONUM_BITS</tt>, currently 0101. Slots one and two (or a single slot on 64 bit architectures) contain a 64-bit floating-point number, in the representation used by the host system's C compiler.</p><p><b>bignums</b>: special vector objects with type bits <tt>C_BIGNUM_TYPE</tt>, currently 0110. This contains only one slot, which points to a bytevector that contains the number's limbs in a special format: The first word contains a 1 if the number is negative, 0 if it is positive. The remaining words form the bignum's limbs. A bytevector is used because the limbs are stored in the raw machine format, which would be invalid Scheme objects when viewed as slots in a vector.</p><p><b>ports</b>: special vector objects with type bits <tt>C_PORT_TYPE</tt>, currently 0111. The first slot contains a pointer to a file- stream, if this is a file-pointer, or NULL if not. The other slots contain housekeeping data used for this port.</p><p><b>structures</b>: vector objects with type bits <tt>C_STRUCTURE_TYPE</tt>, currently 1000. The first slot contains a symbol that specifies the kind of structure this record is an instance of. The other slots contain the actual record items.</p><p><b>blob</b>: a raw sequence of bytes with type bits <tt>C_BYTEVECTOR_TYPE</tt>.</p><p><b>pointer-vectors</b>: vector objects of native pointers - these are actually structures where the first slot holds a blob containing the 32- or 64-bit pointer values.</p><p><b>locatives</b>: special vector objects with type bits <tt>C_LOCATIVE_TYPE</tt>, currently 1010. A locative object holds 4 slots: a raw pointer to the location inside the object referred to by the locative, the offset in bytes from the start of the object referred to, the type of the location (whether it refers to an unboxed numeric value or a normal object slot that holds a pointer to Scheme data) and a flag indicating whether this locative is &quot;weak&quot;. If the locative is non-weak, slot #4 holds a pointer to the object referred to.</p><p><b>pointers</b>: special vector objects with type bits <tt>C_POINTER_TYPE</tt>, currently 1001. The single slot contains a machine pointer.</p><p><b>tagged pointers</b>: special vector objects with type bits <tt>C_TAGGED_POINTER_TYPE</tt>, currently 1011, Tagged pointers are similar to pointers, but the object contains an additional slot with a tag (an arbitrary data object) that identifies the type of the pointer.</p><p><b>ratnums</b>: vector-like objects with type-bits <tt>C_RATNUM_TYPE</tt>, currently 1100. The first slot contains the numerator (which can be positive or negative), the second slot contains the denominator, which is always positive. These numbers are always simplified, so their gcd will always be 1.</p><p><b>lambda infos</b>: byte-vector objects with type-bits <tt>C_LAMBDA_INFO_TYPE</tt>, currently 1101.</p><p><b>cplxnums</b>: vector-like objects with type-bits <tt>C_CPLXNUM_TYPE</tt>, currently 1110. The first slot contains the real part, the second slot contains the imaginary part of the complex number. These two numbers are of matching exactness: Either both are flonums or none are.</p><p>The actual data follows immediately after the header. Note that block addresses are always aligned to the native machine-word boundary.</p><p>Data objects may be allocated outside of the garbage collected heap, as long as their layout follows the above mentioned scheme. But care has to be taken not to mutate these objects with heap-data (i.e. non-immediate objects), because this will confuse the garbage collector.</p><p>For more information see the header file <tt>chicken.h</tt>.</p><hr /><p>Previous: <a href="C%20interface.html">C interface</a></p><p>Next: <a href="Modules.html">Modules</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken process signal).html��������������������������������������0000644�0001750�0001750�00000027300�13502230005�023654� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken process signal)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_process_signal.29">Module (chicken process signal)</a> <ul> <li><a href="#sec:set-alarm.21">set-alarm!</a></li> <li><a href="#sec:signal-handler">signal-handler</a></li> <li><a href="#sec:set-signal-handler.21">set-signal-handler!</a></li> <li><a href="#sec:set-signal-mask.21">set-signal-mask!</a></li> <li><a href="#sec:signal-mask">signal-mask</a></li> <li><a href="#sec:signal-masked.3f">signal-masked?</a></li> <li><a href="#sec:signal-mask.21">signal-mask!</a></li> <li><a href="#sec:signal-unmask.21">signal-unmask!</a></li> <li><a href="#sec:Signal_codes">Signal codes</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_process_signal.29"><a href="#sec:Module_.28chicken_process_signal.29">Module (chicken process signal)</a></h2><p>This module offers procedures for dealing with POSIX process signals.</p><p>Please note that signals are very POSIX-specific. Windows only supports rudimentary in-process signals for dealing with user interrupts, segmentation violations, floating-point exceptions and the like. Inter-process signals are not supported. Therefore, most of the procedures here are not available on native Windows builds. If that's the case, the description contains a note.</p><h3 id="sec:set-alarm.21"><a href="#sec:set-alarm.21">set-alarm!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:set-alarm.21"><span class="sig"><var class="id">set-alarm!</var> <var class="arg">SECONDS</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets an internal timer to raise the <tt>signal/alrm</tt> after <var class="arg">SECONDS</var> are elapsed. You can use the <tt>set-signal-handler!</tt> procedure to write a handler for this signal.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h3 id="sec:signal-handler"><a href="#sec:signal-handler">signal-handler</a></h3><h3 id="sec:set-signal-handler.21"><a href="#sec:set-signal-handler.21">set-signal-handler!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:signal-handler"><span class="sig"><var class="id">signal-handler</var> <var class="arg">SIGNUM</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the signal handler for the code <var class="arg">SIGNUM</var> or <tt>#f</tt>.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:set-signal-handler.21"><span class="sig"><var class="id">set-signal-handler!</var> <var class="arg">SIGNUM</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Establishes the procedure of one argument <var class="arg">PROC</var> as the handler for the signal with the code <var class="arg">SIGNUM</var>. <var class="arg">PROC</var> is called with the signal number as its sole argument. If the argument <var class="arg">PROC</var> is <tt>#f</tt> then any signal handler will be removed, and the corresponding signal set to <tt>SIG_IGN</tt>.</p><p>Notes</p><ul><li>it is unspecified in which thread of execution the signal handler will be invoked.</li> <li>when signals arrive in quick succession (specifically, before the handler for a signal has been started), then signals will be queued (up to a certain limit); the order in which the queued signals will be handled is not specified</li> <li><tt>(set! (signal-handler SIG) PROC)</tt> can be used as an alternative to <tt>(set-signal-handler! SIG PROC)</tt></li> <li>Any signal handlers for the signals <tt>signal/segv</tt>, <tt>signal/bus</tt>, <tt>signal/fpe</tt> and <tt>signal/ill</tt> will be ignored and these signals will always trigger an exception, unless the executable was started with the <tt>-:S</tt> runtime option. This feature is only available on platforms that support the <tt>sigprocmask(3)</tt> POSIX API function.</li> </ul> </dd></dl><h3 id="sec:set-signal-mask.21"><a href="#sec:set-signal-mask.21">set-signal-mask!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:set-signal-mask.21"><span class="sig"><var class="id">set-signal-mask!</var> <var class="arg">SIGLIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the signal mask of the current process to block all signals given in the list <var class="arg">SIGLIST</var>. Signals masked in that way will not be delivered to the current process.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h3 id="sec:signal-mask"><a href="#sec:signal-mask">signal-mask</a></h3> <dl class="defsig"> <dt class="defsig" id="def:signal-mask"><span class="sig"><var class="id">signal-mask</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the signal mask of the current process.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h3 id="sec:signal-masked.3f"><a href="#sec:signal-masked.3f">signal-masked?</a></h3> <dl class="defsig"> <dt class="defsig" id="def:signal-masked.3f"><span class="sig"><var class="id">signal-masked?</var> <var class="arg">SIGNUM</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns whether the signal for the code <var class="arg">SIGNUM</var> is currently masked.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h3 id="sec:signal-mask.21"><a href="#sec:signal-mask.21">signal-mask!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:signal-mask.21"><span class="sig"><var class="id">signal-mask!</var> <var class="arg">SIGNUM</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Masks (blocks) the signal for the code <var class="arg">SIGNUM</var>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h3 id="sec:signal-unmask.21"><a href="#sec:signal-unmask.21">signal-unmask!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:signal-unmask.21"><span class="sig"><var class="id">signal-unmask!</var> <var class="arg">SIGNUM</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Unmasks (unblocks) the signal for the code <var class="arg">SIGNUM</var>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h3 id="sec:Signal_codes"><a href="#sec:Signal_codes">Signal codes</a></h3> <dl class="defsig"> <dt class="defsig" id="def:signal.2fterm"><span class="sig"><var class="id">signal/term</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fkill"><span class="sig"><var class="id">signal/kill</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fint"><span class="sig"><var class="id">signal/int</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fhup"><span class="sig"><var class="id">signal/hup</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2ffpe"><span class="sig"><var class="id">signal/fpe</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fill"><span class="sig"><var class="id">signal/ill</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fsegv"><span class="sig"><var class="id">signal/segv</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fabrt"><span class="sig"><var class="id">signal/abrt</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2ftrap"><span class="sig"><var class="id">signal/trap</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fquit"><span class="sig"><var class="id">signal/quit</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2falrm"><span class="sig"><var class="id">signal/alrm</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fvtalrm"><span class="sig"><var class="id">signal/vtalrm</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fprof"><span class="sig"><var class="id">signal/prof</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fio"><span class="sig"><var class="id">signal/io</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2furg"><span class="sig"><var class="id">signal/urg</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fchld"><span class="sig"><var class="id">signal/chld</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fcont"><span class="sig"><var class="id">signal/cont</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fstop"><span class="sig"><var class="id">signal/stop</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2ftstp"><span class="sig"><var class="id">signal/tstp</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fpipe"><span class="sig"><var class="id">signal/pipe</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fxcpu"><span class="sig"><var class="id">signal/xcpu</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fxfsz"><span class="sig"><var class="id">signal/xfsz</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fusr1"><span class="sig"><var class="id">signal/usr1</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fusr2"><span class="sig"><var class="id">signal/usr2</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fbus"><span class="sig"><var class="id">signal/bus</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fwinch"><span class="sig"><var class="id">signal/winch</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signal.2fbreak"><span class="sig"><var class="id">signal/break</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:signals-list"><span class="sig"><var class="id">signals-list</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>These variables contain signal codes for use with <tt>process-signal</tt>, <tt>set-signal-handler!</tt>, <tt>signal-handler</tt>, <tt>signal-masked?</tt>, <tt>signal-mask!</tt>, or <tt>signal-unmask!</tt>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), only <tt>signal/term</tt>, <tt>signal/int</tt>, <tt>signal/fpe</tt>, <tt>signal/ill</tt>, <tt>signal/segv</tt>, <tt>signal/abrt</tt>, <tt>signal/break</tt> have an actual value. The others are all defined as zero, because those signals don't exist on Windows.</p><p><b>NOTE</b>: On UNIX builds and cygwin, <tt>signal/break</tt> is defined as zero because it only exists on Windows.</p><p>To get a list of signals that are known to exist on the current platform, you can check <tt>signals-list</tt> which is a list of integers (signal numbers).</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20process%29.html">Module (chicken process)</a></p><p>Next: <a href="Module%20%28chicken%20process-context%29.html">Module (chicken process-context)</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken tcp).html�������������������������������������������������0000644�0001750�0001750�00000034604�13502230005�021533� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken tcp)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_tcp.29">Module (chicken tcp)</a> <ul> <li><a href="#sec:tcp-listen">tcp-listen</a></li> <li><a href="#sec:tcp-listener.3f">tcp-listener?</a></li> <li><a href="#sec:tcp-close">tcp-close</a></li> <li><a href="#sec:tcp-accept">tcp-accept</a></li> <li><a href="#sec:tcp-accept-ready.3f">tcp-accept-ready?</a></li> <li><a href="#sec:tcp-listener-port">tcp-listener-port</a></li> <li><a href="#sec:tcp-listener-fileno">tcp-listener-fileno</a></li> <li><a href="#sec:tcp-connect">tcp-connect</a></li> <li><a href="#sec:tcp-addresses">tcp-addresses</a></li> <li><a href="#sec:tcp-port-numbers">tcp-port-numbers</a></li> <li><a href="#sec:tcp-abandon-port">tcp-abandon-port</a></li> <li><a href="#sec:tcp-buffer-size">tcp-buffer-size</a></li> <li><a href="#sec:tcp-read-timeout">tcp-read-timeout</a></li> <li><a href="#sec:tcp-write-timeout">tcp-write-timeout</a></li> <li><a href="#sec:tcp-connect-timeout">tcp-connect-timeout</a></li> <li><a href="#sec:tcp-accept-timeout">tcp-accept-timeout</a></li> <li><a href="#sec:Example">Example</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_tcp.29"><a href="#sec:Module_.28chicken_tcp.29">Module (chicken tcp)</a></h2><p>This module provides basic facilities for communicating over TCP sockets.</p><p>All errors related to failing network operations will raise a condition of kind <tt>(exn i/o net)</tt>.</p><h3 id="sec:tcp-listen"><a href="#sec:tcp-listen">tcp-listen</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-listen"><span class="sig"><var class="id">tcp-listen</var> <var class="arg">TCPPORT</var> <var class="dsssl">#!optional</var> <var class="arg">BACKLOG</var> <var class="arg">HOST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates and returns a TCP listener object that listens for connections on <var class="arg">TCPPORT</var>, which should be an exact integer. <var class="arg">BACKLOG</var> specifies the number of maximally pending connections (and defaults to 100). If the optional argument <var class="arg">HOST</var> is given and not <tt>#f</tt>, then only incoming connections for the given host (or IP) are accepted.</p></dd></dl><h3 id="sec:tcp-listener.3f"><a href="#sec:tcp-listener.3f">tcp-listener?</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-listener.3f"><span class="sig"><var class="id">tcp-listener?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a TCP listener object, or <tt>#f</tt> otherwise.</p></dd></dl><h3 id="sec:tcp-close"><a href="#sec:tcp-close">tcp-close</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-close"><span class="sig"><var class="id">tcp-close</var> <var class="arg">LISTENER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Reclaims any resources associated with <var class="arg">LISTENER</var>.</p></dd></dl><h3 id="sec:tcp-accept"><a href="#sec:tcp-accept">tcp-accept</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-accept"><span class="sig"><var class="id">tcp-accept</var> <var class="arg">LISTENER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Waits until a connection is established on the port on which <var class="arg">LISTENER</var> is listening and returns two values: an input- and output-port that can be used to communicate with the remote process. The current value of <tt>tcp-accept-timeout</tt> is used to determine the maximal number of milliseconds (if any) to wait until a connection is established. When a client connects any read- and write-operations on the returned ports will use the current values (at the time of the connection) of <tt>tcp-read-timeout</tt> and <tt>tcp-write-timeout</tt>, respectively, to determine the maximal number of milliseconds to wait for input/output before a timeout error is signalled.</p><p>Note: this operation and any I/O on the ports returned will not block other running threads.</p></dd></dl><h3 id="sec:tcp-accept-ready.3f"><a href="#sec:tcp-accept-ready.3f">tcp-accept-ready?</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-accept-ready.3f"><span class="sig"><var class="id">tcp-accept-ready?</var> <var class="arg">LISTENER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if there are any connections pending on <var class="arg">LISTENER</var>, or <tt>#f</tt> otherwise.</p></dd></dl><h3 id="sec:tcp-listener-port"><a href="#sec:tcp-listener-port">tcp-listener-port</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-listener-port"><span class="sig"><var class="id">tcp-listener-port</var> <var class="arg">LISTENER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the port number assigned to <var class="arg">LISTENER</var> (If you pass <tt>0</tt> to <tt>tcp-listen</tt>, then the system will choose a port-number for you).</p></dd></dl><h3 id="sec:tcp-listener-fileno"><a href="#sec:tcp-listener-fileno">tcp-listener-fileno</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-listener-fileno"><span class="sig"><var class="id">tcp-listener-fileno</var> <var class="arg">LISTENER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the file-descriptor associated with <var class="arg">LISTENER</var>.</p></dd></dl><h3 id="sec:tcp-connect"><a href="#sec:tcp-connect">tcp-connect</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-connect"><span class="sig"><var class="id">tcp-connect</var> <var class="arg">HOSTNAME</var> <var class="dsssl">#!optional</var> <var class="arg">TCPPORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Establishes a client-side TCP connection to the machine with the name <var class="arg">HOSTNAME</var> (a string) at <var class="arg">TCPPORT</var> (an exact integer) and returns two values: an input- and output-port for communicating with the remote process. The current value of <tt>tcp-connect-timeout</tt> is used to determine the maximal number of milliseconds (if any) to wait until the connection is established. When the connection takes place any read- and write-operations on the returned ports will use the current values (at the time of the call to <tt>tcp-connect</tt>) of <tt>tcp-read-timeout</tt> and <tt>tcp-write-timeout</tt>, respectively, to determine the maximal number of milliseconds to wait for input/output before a timeout error is signalled.</p><p>If the <var class="arg">TCPPORT</var> is omitted, the port is parsed from the <var class="arg">HOSTNAME</var> string. The format expected is <tt>HOSTNAME:PORT</tt>. The <tt>PORT</tt> can either be a string representation of an integer or a service name which is translated to an integer using the POSIX function <a href="http://www.opengroup.org/onlinepubs/009695399/functions/getservbyname.html"><tt>getservbyname</tt></a>.</p><p>Note: any I/O on the ports returned will not block other running threads.</p></dd></dl><h3 id="sec:tcp-addresses"><a href="#sec:tcp-addresses">tcp-addresses</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-addresses"><span class="sig"><var class="id">tcp-addresses</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns two values for the input- or output-port <var class="arg">PORT</var> (which should be a port returned by either <tt>tcp-accept</tt> or <tt>tcp-connect</tt>): the IP address of the local and the remote machine that are connected over the socket associated with <var class="arg">PORT</var>. The returned addresses are strings in <tt>XXX.XXX.XXX.XXX</tt> notation.</p></dd></dl><h3 id="sec:tcp-port-numbers"><a href="#sec:tcp-port-numbers">tcp-port-numbers</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-port-numbers"><span class="sig"><var class="id">tcp-port-numbers</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns two values for the input- or output-port <var class="arg">PORT</var> (which should be a port returned by either <tt>tcp-accept</tt> or <tt>tcp-connect</tt>): the TCP port numbers of the local and the remote machine that are connected over the socket associated with <var class="arg">PORT</var>.</p></dd></dl><h3 id="sec:tcp-abandon-port"><a href="#sec:tcp-abandon-port">tcp-abandon-port</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-abandon-port"><span class="sig"><var class="id">tcp-abandon-port</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Marks the socket port <var class="arg">PORT</var> as abandoned. This is mainly useful to close down a port without breaking the connection.</p></dd></dl><h3 id="sec:tcp-buffer-size"><a href="#sec:tcp-buffer-size">tcp-buffer-size</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-buffer-size"><span class="sig"><var class="id">tcp-buffer-size</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Sets the size of the output buffer. By default no output-buffering for TCP output is done, but to improve performance by minimizing the number of TCP packets, buffering may be turned on by setting this parameter to an exact integer greater zero. A buffer size of zero or <tt>#f</tt> turns buffering off. The setting of this parameter takes effect at the time when the I/O ports for a particular socket are created, i.e. when <tt>tcp-connect</tt> or <tt>tcp-accept</tt> is called.</p><p>Note that since output is not immediately written to the associated socket, you may need to call <tt>flush-output</tt>, once you want the output to be transmitted. Closing the output port will flush automatically.</p></dd></dl><h3 id="sec:tcp-read-timeout"><a href="#sec:tcp-read-timeout">tcp-read-timeout</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-read-timeout"><span class="sig"><var class="id">tcp-read-timeout</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Determines the timeout for TCP read operations in milliseconds. A timeout of <tt>#f</tt> disables timeout checking. The default read timeout is 60000, i.e. 1 minute. If timeout occurs while reading, a condition object of kinds <tt>(exn i/o net timeout)</tt> is thrown.</p></dd></dl><h3 id="sec:tcp-write-timeout"><a href="#sec:tcp-write-timeout">tcp-write-timeout</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-write-timeout"><span class="sig"><var class="id">tcp-write-timeout</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Determines the timeout for TCP write operations in milliseconds. A timeout of <tt>#f</tt> disables timeout checking. The default write timeout is 60000, i.e. 1 minute. If timeout occurs while writing, a condition object of kinds <tt>(exn i/o net timeout)</tt> is thrown.</p></dd></dl><h3 id="sec:tcp-connect-timeout"><a href="#sec:tcp-connect-timeout">tcp-connect-timeout</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-connect-timeout"><span class="sig"><var class="id">tcp-connect-timeout</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Determines the timeout for <tt>tcp-connect</tt> operations in milliseconds. A timeout of <tt>#f</tt> disables timeout checking and is the default. If timeout occurs while trying to connect, a condition object of kinds <tt>(exn i/o net timeout)</tt> is thrown.</p></dd></dl><h3 id="sec:tcp-accept-timeout"><a href="#sec:tcp-accept-timeout">tcp-accept-timeout</a></h3> <dl class="defsig"> <dt class="defsig" id="def:tcp-accept-timeout"><span class="sig"><var class="id">tcp-accept-timeout</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Determines the timeout for <tt>tcp-accept</tt> operations in milliseconds. A timeout of <tt>#f</tt> disables timeout checking and is the default. If timeout occurs while waiting for connections, a condition object of kinds <tt>(exn i/o net timeout)</tt> is thrown.</p></dd></dl><h3 id="sec:Example"><a href="#sec:Example">Example</a></h3><p>A very simple example follows. Say we have the two files <tt>client.scm</tt> and <tt>server.scm</tt>:</p> <pre class="highlight colorize"> <span class="comment">; client.scm </span> <span class="paren1">(<span class="default">declare <span class="paren2">(<span class="default">uses tcp</span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define-values</span></i> <span class="paren2">(<span class="default">i o</span>)</span> <span class="paren2">(<span class="default">tcp-connect <span class="string">&quot;localhost&quot;</span> 4242</span>)</span></span>)</span> <span class="paren1">(<span class="default">write-line <span class="string">&quot;Good Bye!&quot;</span> o</span>)</span> <span class="paren1">(<span class="default">print <span class="paren2">(<span class="default">read-line i</span>)</span></span>)</span></pre> <pre class="highlight colorize"> <span class="comment">; server.scm </span> <span class="paren1">(<span class="default">declare <span class="paren2">(<span class="default">uses tcp</span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> l <span class="paren2">(<span class="default">tcp-listen 4242</span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define-values</span></i> <span class="paren2">(<span class="default">i o</span>)</span> <span class="paren2">(<span class="default">tcp-accept l</span>)</span></span>)</span> <span class="paren1">(<span class="default">write-line <span class="string">&quot;Hello!&quot;</span> o</span>)</span> <span class="paren1">(<span class="default">print <span class="paren2">(<span class="default">read-line i</span>)</span></span>)</span> <span class="paren1">(<span class="default">close-input-port i</span>)</span> <span class="paren1">(<span class="default">close-output-port o</span>)</span></pre><pre>% csc server.scm % csc client.scm % ./server &amp; % ./client Good Bye! Hello!</pre><hr /><p>Previous: <a href="Module%20%28chicken%20syntax%29.html">Module (chicken syntax)</a></p><p>Next: <a href="Module%20%28chicken%20time%29.html">Module (chicken time)</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Included modules.html�����������������������������������������������������0000644�0001750�0001750�00000015176�13502230006�021215� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Included modules</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Included_modules">Included modules</a></li></ul></div><h2 id="sec:Included_modules"><a href="#sec:Included_modules">Included modules</a></h2><p>The CHICKEN system comes shipped with several modules. This section of the manual provides a reference guide to all the modules that are part of a standard installation. On top of these, you can install additional modules through the <a href="Extensions.html">eggs</a> system.</p><ul><li><a href="Module%20scheme.html">Module scheme</a> : Standard Scheme procedures and syntax</li> <li><a href="Module%20r5rs.html">Module r5rs</a> : Standard Scheme procedures and syntax (alias for scheme)</li> <li><a href="Module%20r4rs.html">Module r4rs</a> : Standard procedures and syntax of an old Scheme report</li> <li><a href="Module%20srfi-4.html">Module srfi-4</a> : Homogeneous numeric vector datatypes</li> <li><a href="Module%20%28chicken%20base%29.html">Module (chicken base)</a> : Core procedures and macros</li> <li><a href="Module%20%28chicken%20bitwise%29.html">Module (chicken bitwise)</a> : Bitwise manipulation on integers</li> <li><a href="Module%20%28chicken%20blob%29.html">Module (chicken blob)</a> : Unstructured byte data</li> <li><a href="Module%20%28chicken%20condition%29.html">Module (chicken condition)</a> : Raising and handling of exceptions, manipulation of condition objects</li> <li><a href="Module%20%28chicken%20continuation%29.html">Module (chicken continuation)</a> : Feeley's &quot;a better API for continuations&quot;</li> <li><a href="Module%20%28chicken%20csi%29.html">Module (chicken csi)</a> : Features specific to <tt>csi</tt></li> <li><a href="Module%20%28chicken%20errno%29.html">Module (chicken errno)</a> : Accessing the C &quot;errno&quot; variable</li> <li><a href="Module%20%28chicken%20eval%29.html">Module (chicken eval)</a> : Evaluation hooks</li> <li><a href="Module%20%28chicken%20file%29.html">Module (chicken file)</a> : High-level API for file system manipulations</li> <li><a href="Module%20%28chicken%20file%20posix%29.html">Module (chicken file posix)</a> : POSIX-specific file manipulations</li> <li><a href="Module%20%28chicken%20fixnum%29.html">Module (chicken fixnum)</a> : Operations on &quot;fixnums&quot; (small integers)</li> <li><a href="Module%20%28chicken%20flonum%29.html">Module (chicken flonum)</a> : Operations on &quot;flonums&quot; (floating-point numbers)</li> <li><a href="Module%20%28chicken%20foreign%29.html">Module (chicken foreign)</a> : Accessing C and C++ code and data</li> <li><a href="Module%20%28chicken%20format%29.html">Module (chicken format)</a> : String formatting procedures</li> <li><a href="Module%20%28chicken%20gc%29.html">Module (chicken gc)</a> : Interacting with the garbage collector</li> <li><a href="Module%20%28chicken%20io%29.html">Module (chicken io)</a> : Reading and writing to files and other ports</li> <li><a href="Module%20%28chicken%20irregex%29.html">Module (chicken irregex)</a> : Regular expressions</li> <li><a href="Module%20%28chicken%20keyword%29.html">Module (chicken keyword)</a> : Operations on keyword objects</li> <li><a href="Module%20%28chicken%20load%29.html">Module (chicken load)</a> : Loading code from files</li> <li><a href="Module%20%28chicken%20locative%29.html">Module (chicken locative)</a> : Accessing pointer-like location objects</li> <li><a href="Module%20%28chicken%20memory%29.html">Module (chicken memory)</a> : Low-level memory operations</li> <li><a href="Module%20%28chicken%20memory%20representation%29.html">Module (chicken memory representation)</a> : Low-level operations on the memory representation of Scheme objects</li> <li><a href="Module%20%28chicken%20module%29.html">Module (chicken module)</a> : Defining modules</li> <li><a href="Module%20%28chicken%20pathname%29.html">Module (chicken pathname)</a> : Manipulating path names</li> <li><a href="Module%20%28chicken%20platform%29.html">Module (chicken platform)</a> : Information about the platform your code is running on</li> <li><a href="Module%20%28chicken%20plist%29.html">Module (chicken plist)</a> : Symbol property lists</li> <li><a href="Module%20%28chicken%20port%29.html">Module (chicken port)</a> : Manipulating port objects</li> <li><a href="Module%20%28chicken%20pretty-print%29.html">Module (chicken pretty-print)</a> : Pretty-printing s-expressions</li> <li><a href="Module%20%28chicken%20process%29.html">Module (chicken process)</a> : Starting subprocesses and communicating with them</li> <li><a href="Module%20%28chicken%20process%20signal%29.html">Module (chicken process signal)</a> : Sending and receiving POSIX process signals</li> <li><a href="Module%20%28chicken%20process-context%29.html">Module (chicken process-context)</a> : Accessing the context (arguments, environment etc) of the current process</li> <li><a href="Module%20%28chicken%20process-context%20posix%29.html">Module (chicken process-context posix)</a> : POSIX-specific context access</li> <li><a href="Module%20%28chicken%20random%29.html">Module (chicken random)</a> : Generating pseudo-random number</li> <li><a href="Module%20%28chicken%20read-syntax%29.html">Module (chicken read-syntax)</a> : Creating syntactic extensions to the reader</li> <li><a href="Module%20%28chicken%20repl%29.html">Module (chicken repl)</a> : Creating a Read-Eval-Print Loop</li> <li><a href="Module%20%28chicken%20sort%29.html">Module (chicken sort)</a> : Sorting lists and vectors</li> <li><a href="Module%20%28chicken%20string%29.html">Module (chicken string)</a> : String operations</li> <li><a href="Module%20%28chicken%20syntax%29.html">Module (chicken syntax)</a> : Creating syntactic extensions (macros)</li> <li><a href="Module%20%28chicken%20tcp%29.html">Module (chicken tcp)</a> : Connecting over the network via TCP</li> <li><a href="Module%20%28chicken%20time%29.html">Module (chicken time)</a> : Fetching information about the current time</li> <li><a href="Module%20%28chicken%20time%20posix%29.html">Module (chicken time posix)</a> : Manipulating POSIX time</li> <li><a href="Module%20%28chicken%20type%29.html">Module (chicken type)</a> : Defining and using static typing information</li> </ul> <hr /><p>Previous: <a href="Extensions%20to%20the%20standard.html">Extensions to the standard</a></p><p>Next: <a href="Interface%20to%20external%20functions%20and%20variables.html">Interface to external functions and variables</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Cross development.html����������������������������������������������������0000644�0001750�0001750�00000025210�13502230005�021416� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Cross development</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Cross_Development">Cross Development</a> <ul> <li><a href="#sec:Preparations">Preparations</a> <ul> <li><a href="#sec:Building_the_target_libraries">Building the target libraries</a></li> <li><a href="#sec:Building_the_.22cross_chicken.22">Building the &quot;cross chicken&quot;</a></li></ul></li> <li><a href="#sec:Using_it">Using it</a> <ul> <li><a href="#sec:Compiling_simple_programs">Compiling simple programs</a></li> <li><a href="#sec:Compiling_extensions">Compiling extensions</a></li></ul></li> <li><a href="#sec:.22Target-only.22_extensions">&quot;Target-only&quot; extensions</a></li> <li><a href="#sec:Final_notes">Final notes</a></li></ul></li></ul></div><h2 id="sec:Cross_Development"><a href="#sec:Cross_Development">Cross Development</a></h2><p>Since CHICKEN generates C code, it is relatively easy to create programs and libraries for a different architecture than the one the compiler is executing on, a process commonly called <i>cross compiling</i>. Basically you can simply compile Scheme code to C and then invoke your target-specific cross compiler. To automate the process of invoking the correct C compiler with the correct settings and to simplify the use of extensions, CHICKEN can be built in a special &quot;cross-compilation&quot; mode.</p><p>Note: in the following text we refer to the &quot;target&quot; as being the platform on which the software is intended to run in the end. We use the term &quot;host&quot; as the system that builds this software. Others use a different nomenclature or switch the meaning of the words.</p><h3 id="sec:Preparations"><a href="#sec:Preparations">Preparations</a></h3><p>Make sure you have a cross-toolchain in your <tt>PATH</tt>. In this example, a Linux system is used to generate binaries for an ARM based embedded system.</p><h4 id="sec:Building_the_target_libraries"><a href="#sec:Building_the_target_libraries">Building the target libraries</a></h4><p>First you need a version of the runtime system (<tt>libchicken</tt>), compiled for the target system. Obtain and unpack a tarball of the CHICKEN sources, or check out the code from the official code repository, then build the libraries and necessary development files:</p><pre>make ARCH= \ PREFIX=/usr \ PLATFORM=linux \ HOSTSYSTEM=arm-none-linux-gnueabi \ DESTDIR=$HOME/target \ TARGET_FEATURES=&quot;-no-feature x86 -feature arm&quot; \ install</pre><p>This will build CHICKEN and install it in <tt>~/target</tt>, which we use as a temporary place to store the target files. A few things to note:</p><ul><li><tt>ARCH</tt> is empty, since we don't want the build process to detect the architecture (since the target-architecture is likely to be different). If you know the right string to represent target architecture (see <tt>C_PLATFORM_TYPE</tt> in <tt>chicken.h</tt> for the supported options), you can set <tt>ARCH</tt> with that value.</li> <li><tt>PREFIX</tt> gives the prefix <i>on the target system</i>, under which the libraries will finally be installed. In this case it will be <tt>/usr/lib</tt>.</li> <li><tt>PLATFORM</tt> determines the target platform. It must be one of the officially supported platforms CHICKEN runs on.</li> <li><tt>HOSTSYSTEM</tt> is an identifier for the target system and will be used as the name prefix of the cross C compiler (in this case <tt>arm-none-linux-gnueabi-gcc</tt>). If your cross compiler does not follow this convention, pass <tt>C_COMPILER</tt> and <tt>LIBRARIAN</tt> to the <tt>make(1)</tt> invocation, with the names of the C compiler and <tt>ar(1)</tt> tool, respectively.</li> <li><tt>DESTDIR</tt> holds the directory where the compiled library files will temporarily be installed into.</li> <li><tt>TARGET_FEATURES</tt> contains extra options to be passed to the target-specific Scheme translator; in this case we disable and enable features so that code like the following will do the right thing when cross-compiled:</li> </ul> <pre class="highlight colorize"><span class="paren1">(<span class="default">cond-expand <span class="paren2">(<span class="default">x86 &lt;do this ...&gt;</span>)</span> ...</span>)</span></pre><ul><li>If you obtained the sources from a source-code repository and not from an official release tarball, you will need a <tt>chicken</tt> executable to compile the Scheme sources of the runtime system. In this case pass yet another variable to the <tt>make(1)</tt> invocation: <tt>CHICKEN=&lt;where the &quot;chicken&quot; executable is&gt;</tt>.</li> <li>You can also put all those variables into a file, say <tt>config.mk</tt> and run <tt>make CONFIG=config.mk</tt>.</li> </ul> <p>You should now have these files on <tt>~/target</tt>:</p><pre>|-- bin | |-- chicken | |-- chicken-bug | |-- chicken-install | |-- chicken-profile | |-- chicken-status | |-- chicken-uninstall | |-- csc | `-- csi |-- include | |-- chicken-config.h | `-- chicken.h |-- lib | |-- chicken | | `-- 9 | | : | | | |-- libchicken.a | |-- libchicken.so -&gt; libchicken.so.9 | `-- libchicken.so.9 `-- share |-- chicken | |-- doc : ; : | | | `-- setup.defaults `-- man `-- man1 :</pre><p>You should now transfer <tt>libchicken.so</tt> to the target system, and place it in <tt>/usr</tt>.</p><h4 id="sec:Building_the_.22cross_chicken.22"><a href="#sec:Building_the_.22cross_chicken.22">Building the &quot;cross chicken&quot;</a></h4><p>Next, we will build another chicken, one that uses the cross C compiler to generate target-specific code that uses the target-specific runtime library we have just built.</p><p>Again, unpack a CHICKEN release tarball or a source tree and run <tt>make(1)</tt> once again:</p><pre>make PLATFORM=linux \ PREFIX=$HOME/cross-chicken \ TARGETSYSTEM=arm-none-linux-gnueabi \ PROGRAM_PREFIX=arm- \ TARGET_PREFIX=$HOME/target/usr \ TARGET_RUN_PREFIX=/usr \ install</pre><ul><li><tt>PREFIX</tt> gives the place where the &quot;cross chicken&quot; should be installed into. It is recommended not to install into a standard location (like <tt>/usr/local</tt> or <tt>$HOME</tt>) - some files will conflict with a normal CHICKEN installation.</li> <li><tt>TARGETSYSTEM</tt> gives the name-prefix of the cross C compiler.</li> <li><tt>PROGRAM_PREFIX</tt> determines the name-prefix of the CHICKEN tools to be created.</li> <li><tt>TARGET_PREFIX</tt> specifies where the target-specific files (libraries and headers) are located. This is the location where we installed the runtime system into.</li> <li><tt>TARGET_RUN_PREFIX</tt> holds the PREFIX that will be effective at runtime (so <tt>libchicken.so</tt> will be found in <tt>$TARGET_RUN_PREFIX/lib</tt>).</li> <li>Make sure to use the same version of the CHICKEN sources for the target and the cross build.</li> <li>If you build the cross chicken from repository sources, the same note about the <tt>CHICKEN</tt> variable applies as given above.</li> </ul> <p>In <tt>~/cross-chicken</tt>, you should find the following:</p><pre>|-- bin | |-- arm-chicken | |-- arm-chicken-install | |-- arm-chicken-profile | |-- arm-chicken-status | |-- arm-chicken-uninstall | |-- arm-csc | `-- arm-csi |-- include | |-- chicken-config.h | `-- chicken.h |-- lib | |-- chicken | | `-- 9 | | : | | | |-- libchicken.a | |-- libchicken.so -&gt; libchicken.so.9 | `-- libchicken.so.9 `-- share |-- chicken | |-- doc : ; : | | | `-- setup.defaults `-- man `-- man1 :</pre><p>To make sure that the right C compiler is used, we ask <tt>arm-csc</tt> to show the name of the cross C compiler:</p><pre> % ~/cross-chicken/arm-csc -cc-name arm-none-linux-gnueabi-gcc</pre><p>Looks good.</p><h3 id="sec:Using_it"><a href="#sec:Using_it">Using it</a></h3><h4 id="sec:Compiling_simple_programs"><a href="#sec:Compiling_simple_programs">Compiling simple programs</a></h4><pre> % ~/cross-chicken/arm-csc -v hello.scm /home/felix/cross-chicken/arm-cross-chicken/bin/arm-chicken hello.scm -output-file hello.c -quiet arm-none-linux-gnueabi-gcc hello.c -o hello.o -c -fno-strict-aliasing -DHAVE_CHICKEN_CONFIG_H -g -Wall \ -Wno-unused -I /home/felix/cross-chicken/arm-chicken/include rm hello.c arm-none-linux-gnueabi-gcc hello.o -o hello -L/home/felix/cross-chicken/arm-chicken/lib -Wl,-R/usr/lib -lm \ -ldl -lchicken rm hello.o</pre><p>Is it an ARM binary?</p><pre> % file hello hello: ELF 32-bit LSB executable, ARM, version 1 (SYSV), for GNU/Linux 2.6.16, dynamically linked (uses shared libs), not stripped</pre><p>Yes, looks good.</p><h4 id="sec:Compiling_extensions"><a href="#sec:Compiling_extensions">Compiling extensions</a></h4><p>By default, the tools that CHICKEN provides to install, list and uninstall extensions will operate on both the host and the target repository. So running <tt>arm-chicken-install</tt> will compile and install the extension for the host system and for the cross-target. To selectively install, uninstall or list extensions for either the host or the target system use the <tt>-host</tt> and <tt>-target</tt> options for the tools.</p><h3 id="sec:.22Target-only.22_extensions"><a href="#sec:.22Target-only.22_extensions">&quot;Target-only&quot; extensions</a></h3><p>Sometimes an extension will only be compilable for the target platform (for example libraries that use system-dependent features). In this case you will have to work around the problem that the host-compiler still may need compile-time information from the target-only extension, like the import library of modules. One option is to copy the import-library source file into the repository of the host compiler:</p><pre># optionally, you can compile the import library: # ~/cross-chicken/arm-csc -O3 -d0 -s target-only-extension.import.scm cp target-only-extension.import.scm ~/cross-chicken/lib/chicken/9</pre><h3 id="sec:Final_notes"><a href="#sec:Final_notes">Final notes</a></h3><p>Cross-development is a very tricky process - it often involves countless manual steps and it is very easy to forget an important detail or mix up target and host systems. Also, full 100% platform neutrality is hard to achieve. CHICKEN tries very hard to make this transparent, but at the price of considerable complexity in the code that manages extensions.</p><hr /><p>Previous: <a href="Deployment.html">Deployment</a></p><p>Next: <a href="Bugs%20and%20limitations.html">Bugs and limitations</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken sort).html������������������������������������������������0000644�0001750�0001750�00000011203�13502230005�021722� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken sort)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_sort.29">Module (chicken sort)</a> <ul> <li><a href="#sec:merge">merge</a></li> <li><a href="#sec:sort">sort</a></li> <li><a href="#sec:sorted.3f">sorted?</a></li> <li><a href="#sec:topological-sort">topological-sort</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_sort.29"><a href="#sec:Module_.28chicken_sort.29">Module (chicken sort)</a></h2><p>This module contains several procedures which deal with sorting of <i>sequences</i> (i.e., lists and vectors).</p><h3 id="sec:merge"><a href="#sec:merge">merge</a></h3> <dl class="defsig"> <dt class="defsig" id="def:merge"><span class="sig"><var class="id">merge</var> <var class="arg">LIST1</var> <var class="arg">LIST2</var> <var class="arg">LESS?</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:merge.21"><span class="sig"><var class="id">merge!</var> <var class="arg">LIST1</var> <var class="arg">LIST2</var> <var class="arg">LESS?</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Joins two lists in sorted order. <tt>merge!</tt> is the destructive version of merge. <tt>LESS? </tt> should be a procedure of two arguments, that returns true if the first argument is to be ordered before the second argument.</p></dd></dl><h3 id="sec:sort"><a href="#sec:sort">sort</a></h3> <dl class="defsig"> <dt class="defsig" id="def:sort"><span class="sig"><var class="id">sort</var> <var class="arg">SEQUENCE</var> <var class="arg">LESS?</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:sort.21"><span class="sig"><var class="id">sort!</var> <var class="arg">SEQUENCE</var> <var class="arg">LESS?</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sort <var class="arg">SEQUENCE</var>, which should be a list or a vector. <tt>sort!</tt> is the destructive version of sort.</p></dd></dl><h3 id="sec:sorted.3f"><a href="#sec:sorted.3f">sorted?</a></h3> <dl class="defsig"> <dt class="defsig" id="def:sorted.3f"><span class="sig"><var class="id">sorted?</var> <var class="arg">SEQUENCE</var> <var class="arg">LESS?</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true if the list or vector <var class="arg">SEQUENCE</var> is already sorted.</p></dd></dl><h3 id="sec:topological-sort"><a href="#sec:topological-sort">topological-sort</a></h3> <dl class="defsig"> <dt class="defsig" id="def:topological-sort"><span class="sig"><var class="id">topological-sort</var> <var class="arg">DAG</var> <var class="arg">PRED</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sorts the directed acyclic graph dag <var class="arg">DAG</var> so that for every edge from vertex u to v, u will come before v in the resulting list of vertices.</p><p><var class="arg">DAG</var> is a list of sublists. The car of each sublist is a vertex. The cdr is the adjacency list of that vertex, i.e. a list of all vertices to which there exists an edge from the car vertex. <tt>pred</tt> is procedure of two arguments that should compare vertices for equality.</p><p>Time complexity: O (|V| + |E|)</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">topological-sort &#x27;<span class="paren2">(<span class="default"><span class="paren3">(<span class="default">shirt tie belt</span>)</span> <span class="paren3">(<span class="default">tie jacket</span>)</span> <span class="paren3">(<span class="default">belt jacket</span>)</span> <span class="paren3">(<span class="default">watch</span>)</span> <span class="paren3">(<span class="default">pants shoes belt</span>)</span> <span class="paren3">(<span class="default">undershorts pants shoes</span>)</span> <span class="paren3">(<span class="default">socks shoes</span>)</span></span>)</span> eq?</span>)</span> =&gt; <span class="paren1">(<span class="default">socks undershorts pants shoes watch shirt belt tie jacket</span>)</span></pre><p>If a cycle is detected during the sorting process, an exception of the condition kinds <tt>(exn runtime cycle)</tt> is thrown.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20repl%29.html">Module (chicken repl)</a></p><p>Next: <a href="Module%20%28chicken%20string%29.html">Module (chicken string)</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken pretty-print).html����������������������������������������0000644�0001750�0001750�00000004103�13502230004�023414� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken pretty-print)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_pretty-print.29">Module (chicken pretty-print)</a> <ul> <li><a href="#sec:pretty-print">pretty-print</a></li> <li><a href="#sec:pretty-print-width">pretty-print-width</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_pretty-print.29"><a href="#sec:Module_.28chicken_pretty-print.29">Module (chicken pretty-print)</a></h2><p>This module has some procedures for pretty printing s-expressions.</p><h3 id="sec:pretty-print"><a href="#sec:pretty-print">pretty-print</a></h3> <dl class="defsig"> <dt class="defsig" id="def:pretty-print"><span class="sig"><var class="id">pretty-print</var> <var class="arg">EXP</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:pp"><span class="sig"><var class="id">pp</var> <var class="arg">EXP</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Print expression nicely formatted. <var class="arg">PORT</var> defaults to the value of <tt>(current-output-port)</tt>.</p></dd></dl><h3 id="sec:pretty-print-width"><a href="#sec:pretty-print-width">pretty-print-width</a></h3> <dl class="defsig"> <dt class="defsig" id="def:pretty-print-width"><span class="sig"><var class="id">pretty-print-width</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Specifies the maximal line-width for pretty printing, after which line wrap will occur.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20port%29.html">Module (chicken port)</a></p><p>Next: <a href="Module%20%28chicken%20process%29.html">Module (chicken process)</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken fixnum).html����������������������������������������������0000644�0001750�0001750�00000020460�13502230004�022245� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken fixnum)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_fixnum.29">Module (chicken fixnum)</a> <ul> <li><a href="#sec:Arithmetic_fixnum_operations">Arithmetic fixnum operations</a></li> <li><a href="#sec:Overflow-aware_fixnum_operations">Overflow-aware fixnum operations</a></li> <li><a href="#sec:Fixnum_comparison_and_predicates">Fixnum comparison and predicates</a></li> <li><a href="#sec:Fixnum_limits">Fixnum limits</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_fixnum.29"><a href="#sec:Module_.28chicken_fixnum.29">Module (chicken fixnum)</a></h2><p>Because CHICKEN supports a full numeric tower, operations can sometimes incur a substantial overhead to simply detect the type of numbers you're passing in. When you know you're definitely dealing only with fixnums, you can choose to use fixnum-specific operations to avoid this overhead.</p><p>This is purely a performance hack. You might want to consider adding <a href="Types.html">type annotations</a> instead, this often gives the same performance boost without having to rewrite all numeric operators in your code.</p><h3 id="sec:Arithmetic_fixnum_operations"><a href="#sec:Arithmetic_fixnum_operations">Arithmetic fixnum operations</a></h3> <dl class="defsig"> <dt class="defsig" id="def:fx.2b"><span class="sig"><var class="id">fx+</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fx-"><span class="sig"><var class="id">fx-</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.2a"><span class="sig"><var class="id">fx*</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.2f"><span class="sig"><var class="id">fx/</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxmod"><span class="sig"><var class="id">fxmod</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxrem"><span class="sig"><var class="id">fxrem</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxneg"><span class="sig"><var class="id">fxneg</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxmin"><span class="sig"><var class="id">fxmin</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxmax"><span class="sig"><var class="id">fxmax</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxand"><span class="sig"><var class="id">fxand</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxior"><span class="sig"><var class="id">fxior</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxxor"><span class="sig"><var class="id">fxxor</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxnot"><span class="sig"><var class="id">fxnot</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxshl"><span class="sig"><var class="id">fxshl</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxshr"><span class="sig"><var class="id">fxshr</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxgcd"><span class="sig"><var class="id">fxgcd</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p><tt>fx+</tt> and friends are arithmetic fixnum operations. These procedures do not check their arguments, so non-fixnum parameters will result in incorrect results. <tt>fxneg</tt> negates its argument.</p><p>On division by zero, <tt>fx/</tt>, <tt>fxmod</tt> and <tt>fxrem</tt> signal a condition of kind <tt>(exn arithmetic)</tt>.</p><p><tt>fxshl</tt> and <tt>fxshr</tt> perform arithmetic shift left and right, respectively.</p></dd></dl><h3 id="sec:Overflow-aware_fixnum_operations"><a href="#sec:Overflow-aware_fixnum_operations">Overflow-aware fixnum operations</a></h3> <dl class="defsig"> <dt class="defsig" id="def:fx.2b.3f"><span class="sig"><var class="id">fx+?</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fx-.3f"><span class="sig"><var class="id">fx-?</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.2a.3f"><span class="sig"><var class="id">fx*?</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.2f.3f"><span class="sig"><var class="id">fx/?</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>These procedures behave similarly to their standard counterparts with the exception that <tt>#f</tt> is returned if an argument is not a fixnum or the result of the operation overflows.</p><p>Chaining of such procedures is well-defined and causes the overflow error to be propagated.</p></dd></dl><h3 id="sec:Fixnum_comparison_and_predicates"><a href="#sec:Fixnum_comparison_and_predicates">Fixnum comparison and predicates</a></h3> <dl class="defsig"> <dt class="defsig" id="def:fxodd.3f"><span class="sig"><var class="id">fxodd?</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fxeven.3f"><span class="sig"><var class="id">fxeven?</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.3d"><span class="sig"><var class="id">fx=</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.3e"><span class="sig"><var class="id">fx&gt;</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.3c"><span class="sig"><var class="id">fx&lt;</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.3e.3d"><span class="sig"><var class="id">fx&gt;=</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:fx.3c.3d"><span class="sig"><var class="id">fx&lt;=</var> <var class="arg">N1</var> <var class="arg">N2</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Comparison of fixnums and predicates on them.</p></dd></dl><h3 id="sec:Fixnum_limits"><a href="#sec:Fixnum_limits">Fixnum limits</a></h3> <dl class="defsig"> <dt class="defsig" id="def:most-positive-fixnum"><span class="sig"><var class="id">most-positive-fixnum</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:most-negative-fixnum"><span class="sig"><var class="id">most-negative-fixnum</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:fixnum-bits"><span class="sig"><var class="id">fixnum-bits</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:fixnum-precision"><span class="sig"><var class="id">fixnum-precision</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>Platform-specific fixnum limits.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20file%20posix%29.html">Module (chicken file posix)</a></p><p>Next: <a href="Module%20%28chicken%20flonum%29.html">Module (chicken flonum)</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module r5rs.html����������������������������������������������������������0000644�0001750�0001750�00000001511�13502230005�020121� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module r5rs</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:The_r5rs_module">The r5rs module</a></li></ul></div><h2 id="sec:The_r5rs_module"><a href="#sec:The_r5rs_module">The r5rs module</a></h2><p>This module is simply an alias for the <a href="Module%20scheme.html">scheme</a> module. Please see the reference of that module for details on what it provides.</p><hr /><p>Previous: <a href="Module%20scheme.html">Module scheme</a></p><p>Next: <a href="Module%20r4rs.html">Module r4rs</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken process).html���������������������������������������������0000644�0001750�0001750�00000064505�13502230006�022427� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken process)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_process.29">Module (chicken process)</a> <ul> <li><a href="#sec:Processes">Processes</a> <ul> <li><a href="#sec:process-execute">process-execute</a></li> <li><a href="#sec:process-fork">process-fork</a></li> <li><a href="#sec:process-run">process-run</a></li> <li><a href="#sec:process-signal">process-signal</a></li> <li><a href="#sec:process-spawn">process-spawn</a></li> <li><a href="#sec:process-wait">process-wait</a></li> <li><a href="#sec:process-sleep">process-sleep</a></li> <li><a href="#sec:process">process</a></li> <li><a href="#sec:process.2a">process*</a></li> <li><a href="#sec:create-session">create-session</a></li></ul></li> <li><a href="#sec:Shell_commands">Shell commands</a> <ul> <li><a href="#sec:qs">qs</a></li> <li><a href="#sec:system">system</a></li> <li><a href="#sec:system.2a">system*</a></li></ul></li> <li><a href="#sec:Pipes">Pipes</a> <ul> <li><a href="#sec:call-with-input-pipe">call-with-input-pipe</a></li> <li><a href="#sec:call-with-output-pipe">call-with-output-pipe</a></li> <li><a href="#sec:close-input-pipe">close-input-pipe</a></li> <li><a href="#sec:close-output-pipe">close-output-pipe</a></li> <li><a href="#sec:create-pipe">create-pipe</a></li> <li><a href="#sec:open-input-pipe">open-input-pipe</a></li> <li><a href="#sec:open-output-pipe">open-output-pipe</a></li> <li><a href="#sec:pipe.2fbuf">pipe/buf</a></li> <li><a href="#sec:with-input-from-pipe">with-input-from-pipe</a></li> <li><a href="#sec:with-output-to-pipe">with-output-to-pipe</a></li></ul></li> <li><a href="#sec:Windows_specific_notes">Windows specific notes</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_process.29"><a href="#sec:Module_.28chicken_process.29">Module (chicken process)</a></h2><p>This module offers procedures for interacting with subprocesses.</p><h3 id="sec:Processes"><a href="#sec:Processes">Processes</a></h3><h4 id="sec:process-execute"><a href="#sec:process-execute">process-execute</a></h4> <dl class="defsig"> <dt class="defsig" id="def:process-execute"><span class="sig"><var class="id">process-execute</var> <var class="arg">PATHNAME</var> <var class="dsssl">#!optional</var> <var class="arg">ARGUMENT-LIST</var> <var class="arg">ENVIRONMENT-ALIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Replaces the running process with a new process image from the program stored at <var class="arg">PATHNAME</var>, using the C library function <tt>execvp(3)</tt>. If the optional argument <var class="arg">ARGUMENT-LIST</var> is given, then it should contain a list of strings which are passed as arguments to the subprocess. If the optional argument <var class="arg">ENVIRONMENT-ALIST</var> is supplied, then the library function <tt>execve(2)</tt> is used, and the environment passed in <var class="arg">ENVIRONMENT-ALIST</var> (which should be of the form <tt>((&quot;&lt;NAME&gt;&quot; . &quot;&lt;VALUE&gt;&quot;) ...)</tt>) is given to the invoked process. Note that <tt>execvp(3)</tt> respects the current setting of the <tt>PATH</tt> environment variable while <tt>execve(3)</tt> does not.</p><p>This procedure never returns; it either replaces the process with a new one or it raises an exception in case something went wrong executing the program.</p><p>On Windows, these procedures all have an additoinal optional parameter <tt>EXACT-FLAG</tt>, which defaults to <tt>#f</tt>. When <tt>#f</tt> is passed, any argument string with embedded whitespace will be wrapped in quotes. When <tt>#t</tt> no such wrapping occurs.</p></dd></dl><h4 id="sec:process-fork"><a href="#sec:process-fork">process-fork</a></h4> <dl class="defsig"> <dt class="defsig" id="def:process-fork"><span class="sig"><var class="id">process-fork</var> <var class="dsssl">#!optional</var> <var class="arg">THUNK</var> <var class="arg">KILLOTHERS?</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a new child process with the UNIX system call <tt>fork()</tt>. Returns either the PID of the child process or 0. If <var class="arg">THUNK</var> is given, then the child process calls it as a procedure with no arguments and terminates. If <var class="arg">THUNK</var> is given and the optional argument <var class="arg">KILLOTHERS?</var> is true, then kill all other existing threads in the child process, leaving only the current thread to run <var class="arg">THUNK</var> and terminate.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:process-run"><a href="#sec:process-run">process-run</a></h4> <dl class="defsig"> <dt class="defsig" id="def:process-run"><span class="sig"><var class="id">process-run</var> <var class="arg">COMMANDLINE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:process-run"><span class="sig"><var class="id">process-run</var> <var class="arg">COMMAND</var> <var class="arg">ARGUMENT-LIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a new child process. The PID of the new process is returned.</p><ul><li>The single parameter version passes the <var class="arg">COMMANDLINE</var> to the system shell, so usual argument expansion can take place. Be careful to properly quote arguments with the <tt>qs</tt> procedure to avoid shell injection vulnerabilities.</li> <li>The multiple parameter version directly invokes the <var class="arg">COMMAND</var> with the <var class="arg">ARGUMENT-LIST</var>, and is vastly preferred over the single-parameter version because of its better safety.</li> </ul> </dd></dl><h4 id="sec:process-signal"><a href="#sec:process-signal">process-signal</a></h4> <dl class="defsig"> <dt class="defsig" id="def:process-signal"><span class="sig"><var class="id">process-signal</var> <var class="arg">PID</var> <var class="dsssl">#!optional</var> <var class="arg">SIGNAL</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sends <var class="arg">SIGNAL</var> to the process with the id <var class="arg">PID</var> using the UNIX system call <tt>kill()</tt>. <var class="arg">SIGNAL</var> defaults to the value of the variable <tt>signal/term</tt>.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h4 id="sec:process-spawn"><a href="#sec:process-spawn">process-spawn</a></h4> <dl class="defsig"> <dt class="defsig" id="def:process-spawn"><span class="sig"><var class="id">process-spawn</var> <var class="arg">MODE</var> <var class="arg">COMMAND</var> <var class="dsssl">#!optional</var> <var class="arg">ARGUMENT-LIST</var> <var class="arg">ENVIRONMENT-LIST</var> <var class="arg">EXACT-FLAG</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates and runs a new process with the given <var class="arg">COMMAND</var> filename and the optional <var class="arg">ARGUMENT-LIST</var> and <var class="arg">ENVIRONMENT-LIST</var>. <var class="arg">MODE</var> specifies how exactly the process should be executed and must be one or more of the <tt>spawn/...</tt> flags listed below.</p><p>The <var class="arg">EXACT-FLAG</var>, default <tt>#f</tt>, controls quote-wrapping of argument strings. When <tt>#t</tt> quote-wrapping is not performed.</p><p>Returns:</p><ul><li>the exit status when synchronous</li> <li>the PID when asynchronous</li> <li>-1 when failure</li> </ul> <p><b>NOTE</b>: On all Unix-like builds (all except native MingW-based Windows platforms), this procedure is unimplemented and will raise an error.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:spawn.2foverlay"><span class="sig"><var class="id">spawn/overlay</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:spawn.2fwait"><span class="sig"><var class="id">spawn/wait</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:spawn.2fnowait"><span class="sig"><var class="id">spawn/nowait</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:spawn.2fnowaito"><span class="sig"><var class="id">spawn/nowaito</var></span><span class="type">constant</span></dt> <dt class="defsig" id="def:spawn.2fdetach"><span class="sig"><var class="id">spawn/detach</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>These variables contains special flags that specify the exact semantics of <tt>process-spawn</tt>:</p><ul><li><tt>spawn/overlay</tt> replaces the current process with the new one.</li> <li><tt>spawn/wait</tt> suspends execution of the current process until the spawned process returns.</li> <li><tt>spawn/nowait</tt> does the opposite (<tt>spawn/nowaito</tt> is identical, according to the Microsoft documentation) and runs the process asynchronously.</li> <li><tt>spawn/detach</tt> runs the new process in the background, without being attached to a console.</li> </ul> </dd></dl><h4 id="sec:process-wait"><a href="#sec:process-wait">process-wait</a></h4> <dl class="defsig"> <dt class="defsig" id="def:process-wait"><span class="sig"><var class="id">process-wait</var> <var class="dsssl">#!optional</var> <var class="arg">PID</var> <var class="arg">NOHANG</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Suspends the current process until the child process with the id <var class="arg">PID</var> has terminated using the UNIX system call <tt>waitpid()</tt>. If <var class="arg">PID</var> is not given, then this procedure waits for any child process. If <var class="arg">NOHANG</var> is given and not <tt>#f</tt> then the current process is not suspended. This procedure returns three values:</p><ul><li><var class="arg">PID</var> or 0, if <var class="arg">NOHANG</var> is true and the child process has not terminated yet.</li> <li><tt>#t</tt> if the process exited normally or <tt>#f</tt> otherwise.</li> <li>either the exit status, if the process terminated normally or the signal number that terminated/stopped the process.</li> </ul> <p>Note that suspending the current process implies that all threads are suspended as well.</p><p>On Windows, <tt>process-wait</tt> always returns <tt>#t</tt> for a terminated process and only the exit status is available. (Windows does not provide signals as an interprocess communication method.)</p></dd></dl><h4 id="sec:process-sleep"><a href="#sec:process-sleep">process-sleep</a></h4> <dl class="defsig"> <dt class="defsig" id="def:process-sleep"><span class="sig"><var class="id">process-sleep</var> <var class="arg">SECONDS</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Puts the process to sleep for <var class="arg">SECONDS</var>. Returns either 0 if the time has completely elapsed, or the number of remaining seconds, if a signal occurred.</p></dd></dl><h4 id="sec:process"><a href="#sec:process">process</a></h4> <dl class="defsig"> <dt class="defsig" id="def:process"><span class="sig"><var class="id">process</var> <var class="arg">COMMANDLINE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:process"><span class="sig"><var class="id">process</var> <var class="arg">COMMAND</var> <var class="arg">ARGUMENT-LIST</var> <var class="dsssl">#!optional</var> <var class="arg">ENVIRONMENT-ALIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a subprocess and returns three values: an input port from which data written by the sub-process can be read, an output port from which any data written to will be received as input in the sub-process and the process-id of the started sub-process. Blocking reads and writes to or from the ports returned by <tt>process</tt> only block the current thread, not other threads executing concurrently.</p><p>Standard error for the subprocess is linked up to the current process's standard error (see <tt>process*</tt> if you want to reify its standard error into a separate port).</p><ul><li>The single parameter version passes the string <var class="arg">COMMANDLINE</var> to the host-system's shell that is invoked as a subprocess.</li> <li>The multiple parameter version directly invokes the <var class="arg">COMMAND</var> as a subprocess. The <var class="arg">ARGUMENT-LIST</var> is directly passed, as is <var class="arg">ENVIRONMENT-ALIST</var>. These arguments have the same form as the ones of <tt>process-execute</tt>.</li> </ul> <p>Not using the shell may be preferrable for security reasons.</p><p>Once both the input- and output ports are closed, an implicit <tt>waitpid(3)</tt> is done to wait for the subprocess to finish or to reap a subprocess that has terminated. If the subprocess has not finished, waiting for it will necessarily block all executing threads.</p></dd></dl><h4 id="sec:process.2a"><a href="#sec:process.2a">process*</a></h4> <dl class="defsig"> <dt class="defsig" id="def:process.2a"><span class="sig"><var class="id">process*</var> <var class="arg">COMMANDLINE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:process.2a"><span class="sig"><var class="id">process*</var> <var class="arg">COMMAND</var> <var class="arg">ARGUMENT-LIST</var> <var class="dsssl">#!optional</var> <var class="arg">ENVIRONMENT-ALIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Like <tt>process</tt> but returns 4 values: an input port from which data written by the sub-process can be read, an output port from which any data written to will be received as input in the sub-process, the process-id of the started sub-process, and an input port from which data written by the sub-process to <tt>stderr</tt> can be read.</p></dd></dl><h4 id="sec:create-session"><a href="#sec:create-session">create-session</a></h4> <dl class="defsig"> <dt class="defsig" id="def:create-session"><span class="sig"><var class="id">create-session</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a new session if the calling process is not a process group leader and returns the session ID.</p><p><b>NOTE</b>: On native Windows builds (all except cygwin), this procedure is unimplemented and will raise an error.</p></dd></dl><h3 id="sec:Shell_commands"><a href="#sec:Shell_commands">Shell commands</a></h3><p>The commands below are all string-based. This means you have to be very careful to properly quote any arguments to subprocesses, to avoid shell injection bugs which can lead to arbitrary code execution.</p><p>You can quote arguments with the <tt>qs</tt> procedure, but it is strongly recommended you use <tt>fork</tt> with <tt>process-execute</tt> or the multi-argument versions of the <tt>process</tt>, <tt>process*</tt> or <tt>process-run</tt> procedures.</p><h4 id="sec:qs"><a href="#sec:qs">qs</a></h4> <dl class="defsig"> <dt class="defsig" id="def:qs"><span class="sig"><var class="id">qs</var> <var class="arg">STRING</var> <var class="dsssl">#!optional</var> <var class="arg">PLATFORM</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Escapes <var class="arg">STRING</var> suitably for passing to a shell command on <var class="arg">PLATFORM</var>. <var class="arg">PLATFORM</var> defaults to the value of <tt>(build-platform)</tt> and indicates in which style the argument should be quoted. On Windows systems, the string is simply enclosed in double-quote (<tt>&quot;</tt>) characters, on UNIXish systems, characters that would have a special meaning to the shell are escaped using backslash (<tt>\</tt>).</p></dd></dl><h4 id="sec:system"><a href="#sec:system">system</a></h4> <dl class="defsig"> <dt class="defsig" id="def:system"><span class="sig"><var class="id">system</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Execute shell command. The functionality offered by this procedure depends on the capabilities of the host shell. If the forking of a subprocess failed, an exception is raised. Otherwise the return status of the subprocess is returned unaltered.</p><p>On a UNIX system, that value is the raw return value of waitpid(2), which contains signal, core dump and exit status. It is 0 on success. To pull out the signal number or exit status portably requires POSIX calls, but in a pinch you can use something like this:</p> <pre class="highlight colorize"><span class="comment">;; Returns two values: #t if the process exited normally or #f otherwise; </span><span class="comment">;; and either the exit status, or the signal number if terminated via signal. </span><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">process-status rc</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">wait-signaled? x</span>)</span> <span class="paren3">(<span class="default">not <span class="paren4">(<span class="default">= 0 <span class="paren5">(<span class="default">bitwise-and x 127</span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">wait-signal x</span>)</span> <span class="paren3">(<span class="default">bitwise-and x 127</span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">wait-exit-status x</span>)</span> <span class="paren3">(<span class="default">arithmetic-shift x -8</span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren3">(<span class="default">wait-signaled? rc</span>)</span> <span class="paren3">(<span class="default">values #f <span class="paren4">(<span class="default">wait-signal rc</span>)</span></span>)</span> <span class="paren3">(<span class="default">values #t <span class="paren4">(<span class="default">wait-exit-status rc</span>)</span></span>)</span></span>)</span></span>)</span> #<span class="comment">;&gt; (process-status (system &quot;exit 42&quot;)) </span>#t 42</pre></dd></dl><h4 id="sec:system.2a"><a href="#sec:system.2a">system*</a></h4> <dl class="defsig"> <dt class="defsig" id="def:system.2a"><span class="sig"><var class="id">system*</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>(system STRING)</tt>, but signals an error should the invoked program return a nonzero exit status.</p></dd></dl><h3 id="sec:Pipes"><a href="#sec:Pipes">Pipes</a></h3><h4 id="sec:call-with-input-pipe"><a href="#sec:call-with-input-pipe">call-with-input-pipe</a></h4><h4 id="sec:call-with-output-pipe"><a href="#sec:call-with-output-pipe">call-with-output-pipe</a></h4> <dl class="defsig"> <dt class="defsig" id="def:call-with-input-pipe"><span class="sig"><var class="id">call-with-input-pipe</var> <var class="arg">CMDLINE</var> <var class="arg">PROC</var> <var class="dsssl">#!optional</var> <var class="arg">MODE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:call-with-output-pipe"><span class="sig"><var class="id">call-with-output-pipe</var> <var class="arg">CMDLINE</var> <var class="arg">PROC</var> <var class="dsssl">#!optional</var> <var class="arg">MODE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Call <var class="arg">PROC</var> with a single argument: a input- or output port for a pipe connected to the subprocess named in <var class="arg">CMDLINE</var>. If <var class="arg">PROC</var> returns normally, the pipe is closed and any result values are returned.</p></dd></dl><h4 id="sec:close-input-pipe"><a href="#sec:close-input-pipe">close-input-pipe</a></h4><h4 id="sec:close-output-pipe"><a href="#sec:close-output-pipe">close-output-pipe</a></h4> <dl class="defsig"> <dt class="defsig" id="def:close-input-pipe"><span class="sig"><var class="id">close-input-pipe</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:close-output-pipe"><span class="sig"><var class="id">close-output-pipe</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Closes the pipe given in <var class="arg">PORT</var> and waits until the connected subprocess finishes. The exit-status code of the invoked process is returned.</p></dd></dl><h4 id="sec:create-pipe"><a href="#sec:create-pipe">create-pipe</a></h4> <dl class="defsig"> <dt class="defsig" id="def:create-pipe"><span class="sig"><var class="id">create-pipe</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>The fundamental pipe-creation operator. Calls the C function <tt>pipe()</tt> and returns 2 values: the file-descriptors of the input- and output-ends of the pipe.</p><p>On Windows, there is an optional parameter <tt>MODE</tt>, which defaults to <tt>open/binary | open/noinherit</tt>. This can be <tt>open/binary</tt> or <tt>open/text</tt>, optionally or'ed with <tt>open/noinherit</tt>.</p></dd></dl><h4 id="sec:open-input-pipe"><a href="#sec:open-input-pipe">open-input-pipe</a></h4> <dl class="defsig"> <dt class="defsig" id="def:open-input-pipe"><span class="sig"><var class="id">open-input-pipe</var> <var class="arg">CMDLINE</var> <var class="dsssl">#!optional</var> <var class="arg">MODE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Spawns a subprocess with the command-line string <var class="arg">CMDLINE</var> and returns a port, from which the output of the process can be read. If <var class="arg">MODE</var> is specified, it should be the keyword <tt>#:text</tt> (the default) or <tt>#:binary</tt>.</p></dd></dl><h4 id="sec:open-output-pipe"><a href="#sec:open-output-pipe">open-output-pipe</a></h4> <dl class="defsig"> <dt class="defsig" id="def:open-output-pipe"><span class="sig"><var class="id">open-output-pipe</var> <var class="arg">CMDLINE</var> <var class="dsssl">#!optional</var> <var class="arg">MODE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Spawns a subprocess with the command-line string <var class="arg">CMDLINE</var> and returns a port. Anything written to that port is treated as the input for the process. If <var class="arg">MODE</var> is specified, it should be the keyword <tt>#:text</tt> (the default) or <tt>#:binary</tt>.</p></dd></dl><h4 id="sec:pipe.2fbuf"><a href="#sec:pipe.2fbuf">pipe/buf</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pipe.2fbuf"><span class="sig"><var class="id">pipe/buf</var></span><span class="type">constant</span></dt> <dd class="defsig"><p>This variable contains the maximal number of bytes that can be written atomically into a pipe or FIFO.</p></dd></dl><h4 id="sec:with-input-from-pipe"><a href="#sec:with-input-from-pipe">with-input-from-pipe</a></h4><h4 id="sec:with-output-to-pipe"><a href="#sec:with-output-to-pipe">with-output-to-pipe</a></h4> <dl class="defsig"> <dt class="defsig" id="def:with-input-from-pipe"><span class="sig"><var class="id">with-input-from-pipe</var> <var class="arg">CMDLINE</var> <var class="arg">THUNK</var> <var class="dsssl">#!optional</var> <var class="arg">MODE</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:with-output-to-pipe"><span class="sig"><var class="id">with-output-to-pipe</var> <var class="arg">CMDLINE</var> <var class="arg">THUNK</var> <var class="dsssl">#!optional</var> <var class="arg">MODE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Temporarily set the value of <tt>current-input-port/current-output-port</tt> to a port for a pipe connected to the subprocess named in <var class="arg">CMDLINE</var> and call the procedure <var class="arg">THUNK</var> with no arguments. After <var class="arg">THUNK</var> returns normally the pipe is closed and the standard input-/output port is restored to its previous value and any result values are returned.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">with-output-to-pipe</span></i> <span class="string">&quot;gs -dNOPAUSE -sDEVICE=jpeg -dBATCH -sOutputFile=signballs.jpg -g600x600 -q -&quot;</span> <span class="paren2">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren3">(<span class="default"></span>)</span> <span class="paren3">(<span class="default">print #&lt;&lt;EOF %!IOPSC-1993 <span class="keyword">%%Creator:</span> HAYAKAWA Takashi&lt;xxxxxxxx@xx.xxxxxx.xx.xx&gt; /C/neg/d/mul/R/rlineto/E/exp/H{{cvx <i><span class="symbol">def}repeat}def/T/dup/g/gt/r/roll/J/ifelse</span></i> 8 H/A/copy<span class="paren4">(<span class="default">z&amp;v4QX&amp;93r9AxYQOZomQalxS2w!!O&amp;vMYa43d6r93rMYvx2dca!D&amp;cjSnjSnjjS3o!v&amp;6A X&amp;55SAxM1CD7AjYxTTd62rmxCnTdSST0g&amp;12wECST!&amp;!J0g&amp;D1!&amp;xM0!J0g!l&amp;544dC2Ac96ra!m&amp;3A F&amp;&amp;vGoGSnCT0g&amp;wDmlvGoS8wpn6wpS2wTCpS1Sd7ov7Uk7o4Qkdw!&amp;Mvlx1S7oZES3w!J!J!Q&amp;7185d Z&amp;lx1CS9d9nE4!k&amp;X&amp;MY7!&amp;1!J!x&amp;jdnjdS3odS!N&amp;mmx1C2wEc!G&amp;150Nx4!n&amp;2o!j&amp;43r!U&amp;0777d </span>]</span>&amp;2AY2A776ddT4oS3oSnMVC00VV0RRR45E42063rNz&amp;v7UX&amp;UOzF!F!J!<span class="paren4">[<span class="default">&amp;44ETCnVn!a&amp;1CDN!Y&amp;0M V1c&amp;j2AYdjmMdjjd!o&amp;1r!M</span>)</span>{<span class="paren4">(<span class="default"> </span>)</span>T 0 4 3 r put T<span class="paren4">(<span class="default">/</span>)</span>g{T<span class="paren4">(<span class="default">9</span>)</span>g{cvn}{cvi}J}{<span class="paren4">(<span class="default">$</span>)</span>g<span class="paren4">[<span class="default"></span>]</span>J}J cvx}forall/moveto/p/floor/w/div/S/add 29 H<span class="paren4">[<span class="default">{<span class="paren5">[<span class="default">{</span>]</span>setgray fill}for Y}for showpage EOF </span>)</span> </span>)</span> </span>)</span></span></span></pre></dd></dl><h3 id="sec:Windows_specific_notes"><a href="#sec:Windows_specific_notes">Windows specific notes</a></h3><p>Use of UTF8 encoded strings for pathnames is not supported. Windows uses a 16-bit UNICODE encoding with special system calls for wide-character support. Only single-byte string encoding can be used.</p><hr /><p>Previous: <a href="Module%20%28chicken%20pretty-print%29.html">Module (chicken pretty-print)</a></p><p>Next: <a href="Module%20%28chicken%20process%20signal%29.html">Module (chicken process signal)</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Embedding.html������������������������������������������������������������0000644�0001750�0001750�00000033256�13502230005�017711� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Embedding</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Embedding">Embedding</a> <ul> <li><a href="#sec:CHICKEN_parse_command_line">CHICKEN_parse_command_line</a></li> <li><a href="#sec:CHICKEN_initialize">CHICKEN_initialize</a></li> <li><a href="#sec:CHICKEN_run">CHICKEN_run</a></li> <li><a href="#sec:CHICKEN_eval">CHICKEN_eval</a></li> <li><a href="#sec:CHICKEN_eval_string">CHICKEN_eval_string</a></li> <li><a href="#sec:CHICKEN_eval_to_string">CHICKEN_eval_to_string</a></li> <li><a href="#sec:CHICKEN_eval_string_to_string">CHICKEN_eval_string_to_string</a></li> <li><a href="#sec:CHICKEN_apply">CHICKEN_apply</a></li> <li><a href="#sec:CHICKEN_apply_to_string">CHICKEN_apply_to_string</a></li> <li><a href="#sec:CHICKEN_read">CHICKEN_read</a></li> <li><a href="#sec:CHICKEN_load">CHICKEN_load</a></li> <li><a href="#sec:CHICKEN_get_error_message">CHICKEN_get_error_message</a></li> <li><a href="#sec:CHICKEN_yield">CHICKEN_yield</a></li> <li><a href="#sec:CHICKEN_continue">CHICKEN_continue</a></li> <li><a href="#sec:CHICKEN_new_gc_root">CHICKEN_new_gc_root</a></li> <li><a href="#sec:CHICKEN_new_finalizable_gc_root">CHICKEN_new_finalizable_gc_root</a></li> <li><a href="#sec:CHICKEN_delete_gc_root">CHICKEN_delete_gc_root</a></li> <li><a href="#sec:CHICKEN_gc_root_ref">CHICKEN_gc_root_ref</a></li> <li><a href="#sec:CHICKEN_gc_root_set">CHICKEN_gc_root_set</a></li> <li><a href="#sec:CHICKEN_global_lookup">CHICKEN_global_lookup</a></li> <li><a href="#sec:CHICKEN_global_ref">CHICKEN_global_ref</a></li> <li><a href="#sec:CHICKEN_global_set">CHICKEN_global_set</a></li></ul></li></ul></div><h2 id="sec:Embedding"><a href="#sec:Embedding">Embedding</a></h2><p>Compiled Scheme files can be linked with C code, provided the Scheme code was compiled in <i>embedded</i> mode by passing <tt>-DC_EMBEDDED</tt> to the C compiler (this will disable generation of a <tt>main()</tt> function). <tt>csc</tt> will do this, when given the <tt>-embedded</tt> option.</p><p>The following C API is available:</p><h3 id="sec:CHICKEN_parse_command_line"><a href="#sec:CHICKEN_parse_command_line">CHICKEN_parse_command_line</a></h3><pre>[C function] void CHICKEN_parse_command_line (int argc, char *argv[], int *heap, int *stack int *symbols)</pre><p>Parse the programs command-line contained in <tt>argc</tt> and <tt>argv</tt> and return the heap-, stack- and symbol table limits given by runtime options of the form <tt>-:...</tt>, or choose default limits. The library procedure <tt>argv</tt> can access the command-line only if this function has been called by the containing application.</p><h3 id="sec:CHICKEN_initialize"><a href="#sec:CHICKEN_initialize">CHICKEN_initialize</a></h3><pre>[C function] int CHICKEN_initialize (int heap, int stack, int symbols, void *toplevel) </pre><p>Initializes the Scheme execution context and memory. <tt>heap</tt> holds the number of bytes that are to be allocated for the secondary heap. <tt>stack</tt> holds the number of bytes for the primary heap. <tt>symbols</tt> contains the size of the symbol table. The keyword table will be 1/4th the symbol table size. Passing <tt>0</tt> to one or more of these parameters will select a default size.</p><p><tt>toplevel</tt> should be a pointer to the toplevel entry point procedure. You should pass <tt>C_toplevel</tt> here. In any subsequent call to <tt>CHICKEN_run</tt> you can simply pass <tt>NULL</tt>. Calling this function more than once has no effect. If enough memory is available and initialization was successful, then <tt>1</tt> is returned, otherwise this function returns <tt>0</tt>.</p><p>It is essential to run <tt>CHICKEN_initialize</tt> and subsequent calls to <tt>CHICKEN_run</tt> in the same native thread. The former computes a stack limit address which will not be valid if the runtime system is re-entered in a execution context where the stack is located at a different address.</p><h3 id="sec:CHICKEN_run"><a href="#sec:CHICKEN_run">CHICKEN_run</a></h3><pre>[C function] C_word CHICKEN_run (void *toplevel)</pre><p>Starts the Scheme program. Call this function once to execute all toplevel expressions in your compiled Scheme program. If the runtime system was not initialized before, then <tt>CHICKEN_initialize</tt> is called with default sizes. <tt>toplevel</tt> is the toplevel entry-point procedure, you usually pass <tt>C_toplevel</tt> here. The result value is the continuation that can be used to re-invoke the Scheme code from the point after it called <a href="Module%20%28chicken%20platform%29.html#sec:return-to-host"><tt>return-to-host</tt></a>.</p><p>If you just need a Scheme interpreter, you can also pass <tt>CHICKEN_default_toplevel</tt> as the toplevel procedure, which just uses the default library units.</p><p>Once <tt>CHICKEN_run</tt> has been called, Scheme code is executing until all toplevel expressions have been evaluated or until <tt>return-to-host</tt> is called inside the Scheme program.</p><h3 id="sec:CHICKEN_eval"><a href="#sec:CHICKEN_eval">CHICKEN_eval</a></h3><pre>[C macro] int CHICKEN_eval (C_word exp, C_word *result)</pre><p>Evaluates the Scheme object passed in <tt>exp</tt>, writing the result value to <tt>result</tt>. The return value is 1 if the operation succeeded, or 0 if an error occurred. Call <tt>CHICKEN_get_error_message</tt> to obtain a description of the error.</p><h3 id="sec:CHICKEN_eval_string"><a href="#sec:CHICKEN_eval_string">CHICKEN_eval_string</a></h3><pre>[C macro] int CHICKEN_eval_string (char *str, C_word *result)</pre><p>Evaluates the Scheme expression passed in the string <tt>str</tt>, writing the result value to <tt>result</tt>.</p><h3 id="sec:CHICKEN_eval_to_string"><a href="#sec:CHICKEN_eval_to_string">CHICKEN_eval_to_string</a></h3><pre>[C macro] int CHICKEN_eval_to_string (C_word exp, char *result, int size)</pre><p>Evaluates the Scheme expression passed in <tt>exp</tt>, writing a textual representation of the result into <tt>result</tt>. <tt>size</tt> should specify the maximal size of the result string.</p><h3 id="sec:CHICKEN_eval_string_to_string"><a href="#sec:CHICKEN_eval_string_to_string">CHICKEN_eval_string_to_string</a></h3><pre>[C macro] int CHICKEN_eval_string_to_string (char *str, char *result, int size)</pre><p>Evaluates the Scheme expression passed in the string <tt>str</tt>, writing a textual representation of the result into <tt>result</tt>. <tt>size</tt> should specify the maximal size of the result string.</p><h3 id="sec:CHICKEN_apply"><a href="#sec:CHICKEN_apply">CHICKEN_apply</a></h3><pre>[C macro] int CHICKEN_apply (C_word func, C_word args, C_word *result)</pre><p>Applies the procedure passed in <tt>func</tt> to the list of arguments <tt>args</tt>, writing the result value to <tt>result</tt>.</p><h3 id="sec:CHICKEN_apply_to_string"><a href="#sec:CHICKEN_apply_to_string">CHICKEN_apply_to_string</a></h3><pre>[C macro] int CHICKEN_apply_to_string (C_word func, C_word args, char *result, int size)</pre><p>Applies the procedure passed in <tt>func</tt> to the list of arguments <tt>args</tt>, writing a textual representation of the result into <tt>result</tt>.</p><h3 id="sec:CHICKEN_read"><a href="#sec:CHICKEN_read">CHICKEN_read</a></h3><pre>[C macro] int CHICKEN_read (char *str, C_word *result)</pre><p>Reads a Scheme object from the string <tt>str</tt>, writing the result value to <tt>result</tt>.</p><h3 id="sec:CHICKEN_load"><a href="#sec:CHICKEN_load">CHICKEN_load</a></h3><pre>[C macro] int CHICKEN_load (char *filename)</pre><p>Loads the Scheme file <tt>filename</tt> (either in source form or compiled).</p><h3 id="sec:CHICKEN_get_error_message"><a href="#sec:CHICKEN_get_error_message">CHICKEN_get_error_message</a></h3><pre>[C macro] void CHICKEN_get_error_message (char *result, int size)</pre><p>Returns a textual description of the most recent error that occurred in executing embedded Scheme code.</p><h3 id="sec:CHICKEN_yield"><a href="#sec:CHICKEN_yield">CHICKEN_yield</a></h3><pre>[C macro] int CHICKEN_yield (int *status)</pre><p>If threads have been spawned during earlier invocations of embedded Scheme code, then this function will run the next scheduled thread for one complete time-slice. This is useful, for example, inside an <i>idle</i> handler in a GUI application with background Scheme threads.</p><p>An example:</p><pre>% cat x.scm ;;; x.scm (import (chicken platform) (chicken foreign)) (define (bar x) (gc) (* x x)) (define-external (baz (int i)) double (sqrt i)) (return-to-host) </pre><pre>% cat y.c /* y.c */ #include &lt;chicken.h&gt; #include &lt;assert.h&gt; extern double baz(int); int main() { char buffer[ 256 ]; int status; C_word val = C_SCHEME_UNDEFINED; C_word *data[ 1 ]; data[ 0 ] = &amp;val; CHICKEN_run(C_toplevel); status = CHICKEN_read(&quot;(bar 99)&quot;, &amp;val); assert(status); C_gc_protect(data, 1); printf(&quot;data: %08x\n&quot;, val); status = CHICKEN_eval_string_to_string(&quot;(bar)&quot;, buffer, 255); assert(!status); CHICKEN_get_error_message(buffer, 255); printf(&quot;ouch: %s\n&quot;, buffer); status = CHICKEN_eval_string_to_string(&quot;(bar 23)&quot;, buffer, 255); assert(status); printf(&quot;-&gt; %s\n&quot;, buffer); printf(&quot;data: %08x\n&quot;, val); status = CHICKEN_eval_to_string(val, buffer, 255); assert(status); printf(&quot;-&gt; %s\n&quot;, buffer); printf(&quot;-&gt;` %g\n&quot;, baz(22)); return 0; } % csc x.scm y.c -embedded</pre><p>It is also possible to re-enter the computation following the call to <tt>return-to-host</tt> by calling <tt>CHICKEN_continue</tt>:</p><h3 id="sec:CHICKEN_continue"><a href="#sec:CHICKEN_continue">CHICKEN_continue</a></h3><pre>[C function] C_word CHICKEN_continue (C_word k)</pre><p>Re-enters Scheme execution. <tt>k</tt> is the continuation received from the previous invocation of <tt>CHICKEN_run</tt> or <tt>CHICKEN_continue</tt>. When <tt>return-to-host</tt> is called again, this function returns another continuation that can be used to restart again.</p><p>If you invoke callbacks prior to calling <tt>CHICKEN_continue</tt>, make sure that the continuation is not reclaimed by garbage collection. This can be avoided by using <tt>C_gc_protect</tt> or gc-roots.</p><p>Another example:</p><pre>% cat x.scm (import (chicken platform) srfi-18) ;; Needs the srfi-18 egg (define m (make-mutex)) (define (t) (mutex-lock! m) (thread-sleep! 1) (print (thread-name (current-thread))) (mutex-unlock! m) (t) ) (thread-start! (make-thread t 'PING!)) (thread-start! (make-thread t 'PONG!)) (let loop () (return-to-host) (thread-yield!) (loop) ) % cat y.c #include &lt;chicken.h&gt; int main() { C_word k = CHICKEN_run(C_toplevel); for(;;) k = CHICKEN_continue(k); return 0; } % csc x.scm y.c -embedded</pre><p>It is advisable not to mix repeated uses of <tt>CHICKEN_continue</tt>/<tt>return-to-host</tt> (as in the example above) with callbacks. Once <tt>return-to-host</tt> is invoked, the runtime system and any Scheme code executed prior to the invocation is initialized and can be conveniently used via callbacks.</p><p>A simpler interface For handling GC-safe references to Scheme data are the so called <i>gc-roots</i>:</p><h3 id="sec:CHICKEN_new_gc_root"><a href="#sec:CHICKEN_new_gc_root">CHICKEN_new_gc_root</a></h3><pre>[C function] void* CHICKEN_new_gc_root ()</pre><p>Returns a pointer to a <i>GC root</i>, which is an object that holds a reference to a Scheme value that will always be valid, even after a garbage collection. The content of the gc root is initialized to an unspecified value.</p><h3 id="sec:CHICKEN_new_finalizable_gc_root"><a href="#sec:CHICKEN_new_finalizable_gc_root">CHICKEN_new_finalizable_gc_root</a></h3><pre>[C function] void* CHICKEN_new_finalizable_gc_root ()</pre><p>Similar to <tt>CHICKEN_new_gc_root</tt>, but allows the stored value to be finalized: if this gc root holds reference to an otherwise unreferenced data object that has a finalizer, the finalizer is still invoked.</p><h3 id="sec:CHICKEN_delete_gc_root"><a href="#sec:CHICKEN_delete_gc_root">CHICKEN_delete_gc_root</a></h3><pre>[C function] void CHICKEN_delete_gc_root (void *root)</pre><p>Deletes the gc root.</p><h3 id="sec:CHICKEN_gc_root_ref"><a href="#sec:CHICKEN_gc_root_ref">CHICKEN_gc_root_ref</a></h3><pre>[C macro] C_word CHICKEN_gc_root_ref (void *root)</pre><p>Returns the value stored in the gc root.</p><h3 id="sec:CHICKEN_gc_root_set"><a href="#sec:CHICKEN_gc_root_set">CHICKEN_gc_root_set</a></h3><pre>[C macro] void CHICKEN_gc_root_set (void *root, C_word value)</pre><p>Sets the content of the GC root to a new value.</p><p>Sometimes it is handy to access global variables from C code:</p><h3 id="sec:CHICKEN_global_lookup"><a href="#sec:CHICKEN_global_lookup">CHICKEN_global_lookup</a></h3><pre>[C function] void* CHICKEN_global_lookup (char *name)</pre><p>Returns a GC root that holds the global variable with the name <tt>name</tt>. If no such variable exists, <tt>NULL</tt> is returned.</p><h3 id="sec:CHICKEN_global_ref"><a href="#sec:CHICKEN_global_ref">CHICKEN_global_ref</a></h3><pre>[C function] C_word CHICKEN_global_ref (void *global)</pre><p>Returns the value of the global variable referenced by the GC root <tt>global</tt>.</p><h3 id="sec:CHICKEN_global_set"><a href="#sec:CHICKEN_global_set">CHICKEN_global_set</a></h3><pre>[C function] void CHICKEN_global_set (void *global, C_word value)</pre><p>Sets the value of the global variable referenced by the GC root <tt>global</tt> to <tt>value</tt>.</p><hr /><p>Previous: <a href="Foreign%20type%20specifiers.html">Foreign type specifiers</a></p><p>Next: <a href="C%20interface.html">C interface</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken gc).html��������������������������������������������������0000644�0001750�0001750�00000012012�13502230004�021322� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken gc)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_gc.29">Module (chicken gc)</a> <ul> <li><a href="#sec:gc">gc</a></li> <li><a href="#sec:current-gc-milliseconds">current-gc-milliseconds</a></li> <li><a href="#sec:memory-statistics">memory-statistics</a></li> <li><a href="#sec:set-finalizer.21">set-finalizer!</a></li> <li><a href="#sec:force-finalizers">force-finalizers</a></li> <li><a href="#sec:set-gc-report.21">set-gc-report!</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_gc.29"><a href="#sec:Module_.28chicken_gc.29">Module (chicken gc)</a></h2><p>This module provides some control over the garbage collector.</p><h3 id="sec:gc"><a href="#sec:gc">gc</a></h3> <dl class="defsig"> <dt class="defsig" id="def:gc"><span class="sig"><var class="id">gc</var> <var class="dsssl">#!optional</var> <var class="arg">FLAG</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Invokes a garbage-collection and returns the number of free bytes in the heap. The flag specifies whether a minor (<tt>#f</tt>) or major (<tt>#t</tt>) GC is to be triggered. If no argument is given, <tt>#t</tt> is assumed. An explicit <tt>#t</tt> argument will cause all pending finalizers to be executed.</p></dd></dl><h3 id="sec:current-gc-milliseconds"><a href="#sec:current-gc-milliseconds">current-gc-milliseconds</a></h3> <dl class="defsig"> <dt class="defsig" id="def:current-gc-milliseconds"><span class="sig"><var class="id">current-gc-milliseconds</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the number of milliseconds spent in major garbage collections since the last call of <tt>current-gc-milliseconds</tt> and returns an exact integer.</p></dd></dl><h3 id="sec:memory-statistics"><a href="#sec:memory-statistics">memory-statistics</a></h3> <dl class="defsig"> <dt class="defsig" id="def:memory-statistics"><span class="sig"><var class="id">memory-statistics</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Performs a major garbage collection and returns a three element vector containing the total heap size in bytes, the number of bytes currently used and the size of the nursery (the first heap generation). Note that the actual heap is actually twice the size given in the heap size, because CHICKEN uses a copying semi-space collector.</p></dd></dl><h3 id="sec:set-finalizer.21"><a href="#sec:set-finalizer.21">set-finalizer!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:set-finalizer.21"><span class="sig"><var class="id">set-finalizer!</var> <var class="arg">X</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Registers a procedure of one argument <var class="arg">PROC</var>, that will be called as soon as the non-immediate data object <var class="arg">X</var> is about to be garbage-collected (with that object as its argument). Note that the finalizer will <b>not</b> be called while interrupts are disabled. This procedure returns <var class="arg">X</var>.</p><p>Finalizers are invoked asynchronously, in the thread that happens to be currently running. Finalizers for data that has become garbage are called on normal program exit. Finalizers are not run on abnormal program exit. A normal program exit does not run finalizers that are still reachable from global data.</p><p>Multiple finalizers can be registered for the same object. The order in which the finalizers run is undefined. Execution of finalizers may be nested.</p></dd></dl><h3 id="sec:force-finalizers"><a href="#sec:force-finalizers">force-finalizers</a></h3> <dl class="defsig"> <dt class="defsig" id="def:force-finalizers"><span class="sig"><var class="id">force-finalizers</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>If true, force and execute all pending finalizers before exiting the program (either explicitly by <tt>exit</tt> or implicitly when the last toplevel expression has been executed). Default is <tt>#t</tt>.</p></dd></dl><h3 id="sec:set-gc-report.21"><a href="#sec:set-gc-report.21">set-gc-report!</a></h3> <dl class="defsig"> <dt class="defsig" id="def:set-gc-report.21"><span class="sig"><var class="id">set-gc-report!</var> <var class="arg">FLAG</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Print statistics after every GC, depending on <var class="arg">FLAG</var>. A value of <tt>#t</tt> shows statistics after every major GC. A true value different from <tt>#t</tt> shows statistics after every minor GC. <tt>#f</tt> switches statistics off.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20format%29.html">Module (chicken format)</a></p><p>Next: <a href="Module%20%28chicken%20io%29.html">Module (chicken io)</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken memory).html����������������������������������������������0000644�0001750�0001750�00000070166�13502230006�022261� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken memory)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_memory.29">Module (chicken memory)</a> <ul> <li><a href="#sec:Foreign_pointers">Foreign pointers</a> <ul> <li><a href="#sec:address-.3epointer">address-&gt;pointer</a></li> <li><a href="#sec:allocate">allocate</a></li> <li><a href="#sec:free">free</a></li> <li><a href="#sec:object-.3epointer">object-&gt;pointer</a></li> <li><a href="#sec:pointer-.3eobject">pointer-&gt;object</a></li> <li><a href="#sec:pointer.3f">pointer?</a></li> <li><a href="#sec:pointer-like.3f">pointer-like?</a></li> <li><a href="#sec:pointer.3d.3f">pointer=?</a></li> <li><a href="#sec:pointer-.3eaddress">pointer-&gt;address</a></li> <li><a href="#sec:pointer.2b">pointer+</a></li> <li><a href="#sec:align-to-word">align-to-word</a></li></ul></li> <li><a href="#sec:SRFI-4_Foreign_pointers">SRFI-4 Foreign pointers</a> <ul> <li><a href="#sec:pointer-u8-ref">pointer-u8-ref</a></li> <li><a href="#sec:pointer-s8-ref">pointer-s8-ref</a></li> <li><a href="#sec:pointer-u16-ref">pointer-u16-ref</a></li> <li><a href="#sec:pointer-s16-ref">pointer-s16-ref</a></li> <li><a href="#sec:pointer-u32-ref">pointer-u32-ref</a></li> <li><a href="#sec:pointer-s32-ref">pointer-s32-ref</a></li> <li><a href="#sec:pointer-u64-ref">pointer-u64-ref</a></li> <li><a href="#sec:pointer-s64-ref">pointer-s64-ref</a></li> <li><a href="#sec:pointer-f32-ref">pointer-f32-ref</a></li> <li><a href="#sec:pointer-f64-ref">pointer-f64-ref</a></li> <li><a href="#sec:pointer-u8-set.21">pointer-u8-set!</a></li> <li><a href="#sec:pointer-s8-set.21">pointer-s8-set!</a></li> <li><a href="#sec:pointer-u16-set.21">pointer-u16-set!</a></li> <li><a href="#sec:pointer-s16-set.21">pointer-s16-set!</a></li> <li><a href="#sec:pointer-u32-set.21">pointer-u32-set!</a></li> <li><a href="#sec:pointer-s32-set.21">pointer-s32-set!</a></li> <li><a href="#sec:pointer-u64-set.21">pointer-u64-set!</a></li> <li><a href="#sec:pointer-s64-set.21">pointer-s64-set!</a></li> <li><a href="#sec:pointer-f32-set.21">pointer-f32-set!</a></li> <li><a href="#sec:pointer-f64-set.21">pointer-f64-set!</a></li></ul></li> <li><a href="#sec:Tagged_pointers">Tagged pointers</a> <ul> <li><a href="#sec:tag-pointer">tag-pointer</a></li> <li><a href="#sec:tagged-pointer.3f">tagged-pointer?</a></li> <li><a href="#sec:pointer-tag">pointer-tag</a></li></ul></li> <li><a href="#sec:Pointer_vectors">Pointer vectors</a> <ul> <li><a href="#sec:make-pointer-vector_">make-pointer-vector </a></li> <li><a href="#sec:pointer-vector.3f">pointer-vector?</a></li> <li><a href="#sec:pointer-vector">pointer-vector</a></li> <li><a href="#sec:pointer-vector-length">pointer-vector-length</a></li> <li><a href="#sec:pointer-vector-ref">pointer-vector-ref</a></li> <li><a href="#sec:pointer-vector-set.21">pointer-vector-set!</a></li> <li><a href="#sec:pointer-vector-fill.21">pointer-vector-fill!</a></li></ul></li> <li><a href="#sec:Moving_memory">Moving memory</a> <ul> <li><a href="#sec:move-memory.21">move-memory!</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_memory.29"><a href="#sec:Module_.28chicken_memory.29">Module (chicken memory)</a></h2><p>The procedures from this module operate directly on memory, at a very low level. This makes them unsafe, unlike most other Scheme procedures. <b>Use at your own risk.</b></p><h3 id="sec:Foreign_pointers"><a href="#sec:Foreign_pointers">Foreign pointers</a></h3><p>The abstract class of <i>pointer</i> is divided into 2 categories:</p><dl><dt><i>pointer object</i></dt> <dd>is a regular or <a href="#sec:Tagged_pointers">tagged</a> foreign pointer object.</dd><dt><i>pointer-like object</i></dt> <dd>is a closure, port, <a href="Module%20%28chicken%20locative%29.html">locative</a>, or a pointer object.</dd></dl> <p>Note that Locatives, while technically pointers, are not considered a <i>pointer object</i>, but a <i>pointer-like object</i>. The distinction is artificial.</p><h4 id="sec:address-.3epointer"><a href="#sec:address-.3epointer">address-&gt;pointer</a></h4> <dl class="defsig"> <dt class="defsig" id="def:address-.3epointer"><span class="sig"><var class="id">address-&gt;pointer</var> <var class="arg">ADDRESS</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a new foreign pointer object initialized to point to the address given in the integer <var class="arg">ADDRESS</var>.</p></dd></dl><h4 id="sec:allocate"><a href="#sec:allocate">allocate</a></h4> <dl class="defsig"> <dt class="defsig" id="def:allocate"><span class="sig"><var class="id">allocate</var> <var class="arg">BYTES</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a foreign pointer object to a freshly allocated region of static memory.</p><p>This procedure could be defined as follows:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> allocate <span class="paren2">(<span class="default">foreign-lambda c-pointer <span class="string">&quot;malloc&quot;</span> integer</span>)</span></span>)</span></pre></dd></dl><h4 id="sec:free"><a href="#sec:free">free</a></h4> <dl class="defsig"> <dt class="defsig" id="def:free"><span class="sig"><var class="id">free</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Frees the memory pointed to by <var class="arg">POINTER</var>.</p><p>This procedure could be defined as follows:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> free <span class="paren2">(<span class="default">foreign-lambda void <span class="string">&quot;free&quot;</span> c-pointer</span>)</span></span>)</span></pre></dd></dl><h4 id="sec:object-.3epointer"><a href="#sec:object-.3epointer">object-&gt;pointer</a></h4> <dl class="defsig"> <dt class="defsig" id="def:object-.3epointer"><span class="sig"><var class="id">object-&gt;pointer</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a foreign pointer object pointing to the Scheme object X, which should be a non-immediate object. (&quot;foreign&quot; here is a bit of a misnomer.)</p><p>Note that data in the garbage collected heap moves during garbage collection.</p></dd></dl><h4 id="sec:pointer-.3eobject"><a href="#sec:pointer-.3eobject">pointer-&gt;object</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-.3eobject"><span class="sig"><var class="id">pointer-&gt;object</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the Scheme object pointed to by the pointer object <var class="arg">POINTER</var>.</p><p>Whether the <var class="arg">POINTER</var> actually points to a Scheme object is not guaranteed. Use at your own risk.</p></dd></dl><h4 id="sec:pointer.3f"><a href="#sec:pointer.3f">pointer?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer.3f"><span class="sig"><var class="id">pointer?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a pointer object, or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:pointer-like.3f"><a href="#sec:pointer-like.3f">pointer-like?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-like.3f"><span class="sig"><var class="id">pointer-like?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a pointer-like object, or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:pointer.3d.3f"><a href="#sec:pointer.3d.3f">pointer=?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer.3d.3f"><span class="sig"><var class="id">pointer=?</var> <var class="arg">POINTER*1</var> <var class="arg">POINTER*2</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the pointer-like objects <var class="arg">POINTER*1</var> and <var class="arg">POINTER*2</var> point to the same address, or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:pointer-.3eaddress"><a href="#sec:pointer-.3eaddress">pointer-&gt;address</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-.3eaddress"><span class="sig"><var class="id">pointer-&gt;address</var> <var class="arg">POINTER*</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the address, to which the pointer-like object <var class="arg">POINTER*</var> points.</p></dd></dl><h4 id="sec:pointer.2b"><a href="#sec:pointer.2b">pointer+</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer.2b"><span class="sig"><var class="id">pointer+</var> <var class="arg">POINTER*</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new foreign pointer object representing the pointer-like object <var class="arg">POINTER*</var> address value increased by the byte-offset <var class="arg">N</var>.</p><p>Use of anything other than a pointer object as an argument is questionable.</p></dd></dl><h4 id="sec:align-to-word"><a href="#sec:align-to-word">align-to-word</a></h4> <dl class="defsig"> <dt class="defsig" id="def:align-to-word"><span class="sig"><var class="id">align-to-word</var> <var class="arg">POINTER*-OR-INT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Accepts either a pointer-like object or an integer as the argument and returns a new foreign pointer or integer aligned to the native word size of the host platform.</p><p>Use of anything other than an integer or pointer object as an argument is questionable.</p></dd></dl><h3 id="sec:SRFI-4_Foreign_pointers"><a href="#sec:SRFI-4_Foreign_pointers">SRFI-4 Foreign pointers</a></h3><p>These procedures actually accept a pointer-like object as the <tt>POINTER</tt> argument. However, as usual, use of anything other than a pointer object is questionable.</p><h4 id="sec:pointer-u8-ref"><a href="#sec:pointer-u8-ref">pointer-u8-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-u8-ref"><span class="sig"><var class="id">pointer-u8-ref</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the unsigned byte at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-s8-ref"><a href="#sec:pointer-s8-ref">pointer-s8-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-s8-ref"><span class="sig"><var class="id">pointer-s8-ref</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the signed byte at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-u16-ref"><a href="#sec:pointer-u16-ref">pointer-u16-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-u16-ref"><span class="sig"><var class="id">pointer-u16-ref</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the unsigned 16-bit integer at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-s16-ref"><a href="#sec:pointer-s16-ref">pointer-s16-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-s16-ref"><span class="sig"><var class="id">pointer-s16-ref</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the signed 16-bit integer at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-u32-ref"><a href="#sec:pointer-u32-ref">pointer-u32-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-u32-ref"><span class="sig"><var class="id">pointer-u32-ref</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the unsigned 32-bit integer at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-s32-ref"><a href="#sec:pointer-s32-ref">pointer-s32-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-s32-ref"><span class="sig"><var class="id">pointer-s32-ref</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the signed 32-bit integer at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-u64-ref"><a href="#sec:pointer-u64-ref">pointer-u64-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-u64-ref"><span class="sig"><var class="id">pointer-u64-ref</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the unsigned 64-bit integer at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-s64-ref"><a href="#sec:pointer-s64-ref">pointer-s64-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-s64-ref"><span class="sig"><var class="id">pointer-s64-ref</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the signed 64-bit integer at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-f32-ref"><a href="#sec:pointer-f32-ref">pointer-f32-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-f32-ref"><span class="sig"><var class="id">pointer-f32-ref</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the 32-bit float at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-f64-ref"><a href="#sec:pointer-f64-ref">pointer-f64-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-f64-ref"><span class="sig"><var class="id">pointer-f64-ref</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the 64-bit double at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-u8-set.21"><a href="#sec:pointer-u8-set.21">pointer-u8-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-u8-set.21"><span class="sig"><var class="id">pointer-u8-set!</var> <var class="arg">POINTER</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">pointer-u8-ref</var> <var class="arg">POINTER</var>) <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the unsigned byte <var class="arg">N</var> at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-s8-set.21"><a href="#sec:pointer-s8-set.21">pointer-s8-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-s8-set.21"><span class="sig"><var class="id">pointer-s8-set!</var> <var class="arg">POINTER</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">pointer-s8-ref</var> <var class="arg">POINTER</var>) <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the signed byte <var class="arg">N</var> at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-u16-set.21"><a href="#sec:pointer-u16-set.21">pointer-u16-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-u16-set.21"><span class="sig"><var class="id">pointer-u16-set!</var> <var class="arg">POINTER</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">pointer-u16-ref</var> <var class="arg">POINTER</var>) <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the unsigned 16-bit integer <var class="arg">N</var> at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-s16-set.21"><a href="#sec:pointer-s16-set.21">pointer-s16-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-s16-set.21"><span class="sig"><var class="id">pointer-s16-set!</var> <var class="arg">POINTER</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">pointer-s16-ref</var> <var class="arg">POINTER</var>) <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the signed 16-bit integer <var class="arg">N</var> at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-u32-set.21"><a href="#sec:pointer-u32-set.21">pointer-u32-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-u32-set.21"><span class="sig"><var class="id">pointer-u32-set!</var> <var class="arg">POINTER</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">pointer-u32-ref</var> <var class="arg">POINTER</var>) <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the unsigned 32-bit integer <var class="arg">N</var> at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-s32-set.21"><a href="#sec:pointer-s32-set.21">pointer-s32-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-s32-set.21"><span class="sig"><var class="id">pointer-s32-set!</var> <var class="arg">POINTER</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">pointer-s32-ref</var> <var class="arg">POINTER</var>) <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the 32-bit integer <var class="arg">N</var> at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-u64-set.21"><a href="#sec:pointer-u64-set.21">pointer-u64-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-u64-set.21"><span class="sig"><var class="id">pointer-u64-set!</var> <var class="arg">POINTER</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">pointer-u64-ref</var> <var class="arg">POINTER</var>) <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the unsigned 64-bit integer <var class="arg">N</var> at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-s64-set.21"><a href="#sec:pointer-s64-set.21">pointer-s64-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-s64-set.21"><span class="sig"><var class="id">pointer-s64-set!</var> <var class="arg">POINTER</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">pointer-s64-ref</var> <var class="arg">POINTER</var>) <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the 64-bit integer <var class="arg">N</var> at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-f32-set.21"><a href="#sec:pointer-f32-set.21">pointer-f32-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-f32-set.21"><span class="sig"><var class="id">pointer-f32-set!</var> <var class="arg">POINTER</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">pointer-f32-ref</var> <var class="arg">POINTER</var>) <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the 32-bit floating-point number <var class="arg">N</var> at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h4 id="sec:pointer-f64-set.21"><a href="#sec:pointer-f64-set.21">pointer-f64-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-f64-set.21"><span class="sig"><var class="id">pointer-f64-set!</var> <var class="arg">POINTER</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:set.21"><span class="sig"><var class="dsssl">set!</var> (<var class="id">pointer-f64-ref</var> <var class="arg">POINTER</var>) <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Stores the 64-bit floating-point number <var class="arg">N</var> at the address designated by <var class="arg">POINTER</var>.</p></dd></dl><h3 id="sec:Tagged_pointers"><a href="#sec:Tagged_pointers">Tagged pointers</a></h3><p><i>Tagged</i> pointers are foreign pointer objects with an extra tag object.</p><h4 id="sec:tag-pointer"><a href="#sec:tag-pointer">tag-pointer</a></h4> <dl class="defsig"> <dt class="defsig" id="def:tag-pointer"><span class="sig"><var class="id">tag-pointer</var> <var class="arg">POINTER*</var> <var class="arg">TAG</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a new tagged foreign pointer object from the pointer-like object <var class="arg">POINTER*</var> with the tag <var class="arg">TAG</var>, which may an arbitrary Scheme object.</p><p>Use of anything other than a pointer object is questionable.</p></dd></dl><h4 id="sec:tagged-pointer.3f"><a href="#sec:tagged-pointer.3f">tagged-pointer?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:tagged-pointer.3f"><span class="sig"><var class="id">tagged-pointer?</var> <var class="arg">X</var> <var class="dsssl">#!optional</var> <var class="arg">TAG</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a tagged foreign pointer object, or <tt>#f</tt> otherwise.</p><p>Further, returns <tt>#t</tt> when <var class="arg">X</var> has the optional tag <var class="arg">TAG</var> (using an <tt>equal?</tt> comparison), or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:pointer-tag"><a href="#sec:pointer-tag">pointer-tag</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-tag"><span class="sig"><var class="id">pointer-tag</var> <var class="arg">POINTER*</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>If <tt>POINTER</tt> is a tagged foreign pointer object, its tag is returned. If <var class="arg">POINTER*</var> is any other kind of pointer-like object <tt>#f</tt> is returned. Otherwise an error is signalled.</p></dd></dl><h3 id="sec:Pointer_vectors"><a href="#sec:Pointer_vectors">Pointer vectors</a></h3><p><i>Pointer vectors</i> are specialized and space-efficient vectors for foreign pointer objects. All procedures defined below that accept a pointer object allow <tt>#f</tt> as an alternative representation of the <tt>NULL</tt>-pointer.</p><h4 id="sec:make-pointer-vector_"><a href="#sec:make-pointer-vector_">make-pointer-vector </a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-pointer-vector"><span class="sig"><var class="id">make-pointer-vector</var> <var class="arg">LENGTH</var> <var class="dsssl">#!optional</var> <var class="arg">INIT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a pointer-vector of the given length and optionally initializes each element to <var class="arg">INIT</var>, which should be a pointer or <tt>#f</tt>, which represents the <tt>NULL</tt> pointer.</p></dd></dl><h4 id="sec:pointer-vector.3f"><a href="#sec:pointer-vector.3f">pointer-vector?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-vector.3f"><span class="sig"><var class="id">pointer-vector?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a pointer-vector or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:pointer-vector"><a href="#sec:pointer-vector">pointer-vector</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-vector"><span class="sig"><var class="id">pointer-vector</var> <var class="arg">POINTER</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a pointer-vector from the given pointer arguments.</p></dd></dl><h4 id="sec:pointer-vector-length"><a href="#sec:pointer-vector-length">pointer-vector-length</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-vector-length"><span class="sig"><var class="id">pointer-vector-length</var> <var class="arg">POINTERVECTOR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the length of the given pointer-vector.</p></dd></dl><h4 id="sec:pointer-vector-ref"><a href="#sec:pointer-vector-ref">pointer-vector-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-vector-ref"><span class="sig"><var class="id">pointer-vector-ref</var> <var class="arg">POINTERVECTOR</var> <var class="arg">INDEX</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the pointer at <var class="arg">INDEX</var> in the given pointer-vector or <tt>#f</tt> if the element is a <tt>NULL</tt>- pointer.</p></dd></dl><h4 id="sec:pointer-vector-set.21"><a href="#sec:pointer-vector-set.21">pointer-vector-set!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-vector-set.21"><span class="sig"><var class="id">pointer-vector-set!</var> <var class="arg">POINTERVECTOR</var> <var class="arg">INDEX</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Sets the element at the position <var class="arg">INDEX</var> in the given pointer-vector to <var class="arg">POINTER</var>. The alternative syntax</p><pre> (set! (pointer-vector-ref POINTERVECTOR INDEX) POINTER)</pre><p>is also allowed.</p></dd></dl><h4 id="sec:pointer-vector-fill.21"><a href="#sec:pointer-vector-fill.21">pointer-vector-fill!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:pointer-vector-fill.21"><span class="sig"><var class="id">pointer-vector-fill!</var> <var class="arg">POINTERVECTOR</var> <var class="arg">POINTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Set every element in the <var class="arg">POINTERVECTOR</var> to <var class="arg">POINTER</var>.</p></dd></dl><h3 id="sec:Moving_memory"><a href="#sec:Moving_memory">Moving memory</a></h3><h4 id="sec:move-memory.21"><a href="#sec:move-memory.21">move-memory!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:move-memory.21"><span class="sig"><var class="id">move-memory!</var> <var class="arg">FROM</var> <var class="arg">TO</var> <var class="dsssl">#!optional</var> <var class="arg">BYTES</var> <var class="arg">FROM-OFFSET</var> <var class="arg">TO-OFFSET</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Copies <var class="arg">BYTES</var> bytes of memory from <var class="arg">FROM</var> to <var class="arg">TO</var>. <var class="arg">FROM</var> and <var class="arg">TO</var> may be strings, blobs, <a href="Module%20srfi-4.html">SRFI-4 number-vectors</a>, memory mapped files, foreign pointers (as obtained from a call to <tt>foreign-lambda</tt>, for example), tagged-pointers or locatives. if <var class="arg">BYTES</var> is not given and the size of the source or destination operand is known then the maximal number of bytes will be copied. Moving memory to the storage returned by locatives will cause havoc, if the locative refers to containers of non-immediate data, like vectors or pairs.</p><p>The additional fourth and fifth argument specify starting offsets (in bytes) for the source and destination arguments.</p><p>Signals an error if any of the above constraints is violated.</p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20locative%29.html">Module (chicken locative)</a></p><p>Next: <a href="Module%20%28chicken%20memory%20representation%29.html">Module (chicken memory representation)</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Accessing external objects.html�������������������������������������������0000644�0001750�0001750�00000013547�13502230005�023150� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Accessing external objects</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Accessing_externally_defined_data">Accessing externally defined data</a></li> <li><a href="#sec:Returning_large_objects_or_chunks_of_memory_to_Scheme">Returning large objects or chunks of memory to Scheme</a></li></ul></div><h2 id="sec:Accessing_externally_defined_data"><a href="#sec:Accessing_externally_defined_data">Accessing externally defined data</a></h2><p>For a list of the special forms that allow definition of Scheme procedures that access native C/C++ code, consult the documentation on the <a href="Module%20%28chicken%20foreign%29.html">(chicken foreign)</a> module. The remainder of this chapter merely explains a few special cases.</p><h2 id="sec:Returning_large_objects_or_chunks_of_memory_to_Scheme"><a href="#sec:Returning_large_objects_or_chunks_of_memory_to_Scheme">Returning large objects or chunks of memory to Scheme</a></h2><p>When you call a C function which needs to return quantities of data, several issues arise:</p><ul><li>the size of the nursery is limited, so <tt>C_alloc</tt> can cause stack overflow</li> <li>if you malloc in C, and intend to leave it there, and directly access parts of that data from Scheme, you will need C accessor functions to pinpoint the parts you need and return them as Scheme objects; you will also need a finalizer if you intend for this data to be garbage-collected</li> <li>building up lists or other complex Scheme structures from individual pairs, or putting non-immediate objects into vectors, is cumbersome in C</li> </ul> <p>So some would advise you to just return a pointer to Scheme, use memcpy or any other function(s) which you need to get the data into CHICKEN-managed memory and into the desired kind of data structure, then free the C data. For this example, we are trying to return an array of doubles into an <tt>f64vector</tt>; we can accomplish that by adding a specialized copy function to the C library being integrated:</p> <pre class="highlight colorize"><span class="symbol">void</span> CopyResults<span class="paren1">(<span class="default"><span class="symbol">double</span>* vector</span>)</span> <span class="paren1">{<span class="default"> memcpy<span class="paren2">(<span class="default">vector, bezierBuffer, totalOutputPoints * <span class="symbol">sizeof</span><span class="paren3">(<span class="default"><span class="symbol">double</span></span>)</span></span>)</span>; </span>}</span> <span class="comment">// The original C function which takes an array of doubles, </span><span class="comment">// does some sort of transmogrification, </span><span class="comment">// retains a new malloc&#x27;d array of the results </span><span class="comment">// and returns the count </span><span class="symbol">int</span> GenerateResults<span class="paren1">(<span class="default"><span class="symbol">double</span>* vector, <span class="symbol">int</span> count</span>)</span> <span class="paren1">{<span class="default"> ... </span>}</span></pre><p>and the &quot;egg&quot; which calls the C functions can be implemented like this:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">module memcpy-demo <span class="paren2">(<span class="default">input-&gt;output</span>)</span> <span class="paren2">(<span class="default">import <span class="paren3">(<span class="default">chicken base</span>)</span> scheme <span class="paren3">(<span class="default">chicken foreign</span>)</span> srfi-4</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> CopyResults <span class="paren3">(<span class="default">foreign-lambda void <span class="string">&quot;CopyResults&quot;</span> f64vector</span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> GenerateResults <span class="paren3">(<span class="default">foreign-lambda integer <span class="string">&quot;GenerateResults&quot;</span> f64vector integer</span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">input-&gt;output input</span>)</span> <span class="paren3">(<span class="default"><i><span class="symbol">let*</span></i> <span class="paren4">(<span class="default"><span class="paren5">[<span class="default">size <span class="paren6">(<span class="default">GenerateResults input <span class="paren1">(<span class="default">f64vector-length input</span>)</span></span>)</span></span>]</span> <span class="paren5">[<span class="default">vect <span class="paren6">(<span class="default">make-f64vector size</span>)</span></span>]</span></span>)</span> <span class="paren4">(<span class="default">printf <span class="string">&quot;returned size ~a~%&quot;</span> size</span>)</span> <span class="paren4">(<span class="default">CopyResults vect</span>)</span> vect</span>)</span></span>)</span></span>)</span> </pre><p>The foreign-lambda takes care of the details in this case so that an f64vector allocated in the nursery can be treated as a plain old array of doubles in C (assuming your C compiler uses 64-bit values for double).</p><p>Various eggs provide other examples, and some of them do it more efficiently too, but this method is relatively clean and compact.</p><hr /><p>Previous: <a href="Interface%20to%20external%20functions%20and%20variables.html">Interface to external functions and variables</a></p><p>Next: <a href="Foreign%20type%20specifiers.html">Foreign type specifiers</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Foreign type specifiers.html����������������������������������������������0000644�0001750�0001750�00000066244�13502230006�022507� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Foreign type specifiers</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Foreign_type_specifiers">Foreign type specifiers</a> <ul> <li><a href="#sec:Void">Void</a></li> <li><a href="#sec:Boolean">Boolean</a></li> <li><a href="#sec:Characters">Characters</a></li> <li><a href="#sec:Integers">Integers</a></li> <li><a href="#sec:Floating-point">Floating-point</a></li> <li><a href="#sec:Strings">Strings</a></li> <li><a href="#sec:Bytevectors">Bytevectors</a></li> <li><a href="#sec:Pointers">Pointers</a></li> <li><a href="#sec:Scheme_objects">Scheme objects</a></li> <li><a href="#sec:User-defined_C_types">User-defined C types</a></li> <li><a href="#sec:C.2b.2b_types">C++ types</a></li> <li><a href="#sec:Type_qualifiers">Type qualifiers</a></li> <li><a href="#sec:Map_of_foreign_types_to_C_types">Map of foreign types to C types</a></li></ul></li></ul></div><h2 id="sec:Foreign_type_specifiers"><a href="#sec:Foreign_type_specifiers">Foreign type specifiers</a></h2><p>Here is a list of valid foreign type specifiers for use in <a href="Accessing%20external%20objects.html">accessing external objects</a>.</p><h3 id="sec:Void"><a href="#sec:Void">Void</a></h3> <dl class="defsig"> <dt class="defsig" id="def:void"><span class="sig"><tt>void</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>Specifies an undefined return value. Not allowed as argument type.</p></dd></dl><h3 id="sec:Boolean"><a href="#sec:Boolean">Boolean</a></h3> <dl class="defsig"> <dt class="defsig" id="def:bool"><span class="sig"><tt>bool</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>As argument: any value (<tt>#f</tt> is false (zero), anything else is true (non-zero).</p><p>As result: anything different from 0 and the <tt>NULL</tt> pointer is <tt>#t</tt>.</p><p>This type maps to <tt>int</tt> in both C and C++.</p></dd></dl><h3 id="sec:Characters"><a href="#sec:Characters">Characters</a></h3> <dl class="defsig"> <dt class="defsig" id="def:char"><span class="sig"><tt>char</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:unsigned-char"><span class="sig"><tt>unsigned-char</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A signed or unsigned character.</p><p>As an argument, the input Scheme character is cast to C <tt>char</tt> or <tt>unsigned char</tt>, resulting in an 8-bit value. A Scheme character with an integer value outside 0-127 (signed) or 0-255 (unsigned) will be silently truncated to fit; in other words, don't feed it UTF-8 data.</p><p>As a return type, accepts any valid Unicode code point; the return type is treated as a C int, and converted to a Scheme character.</p></dd></dl><h3 id="sec:Integers"><a href="#sec:Integers">Integers</a></h3> <dl class="defsig"> <dt class="defsig" id="def:byte"><span class="sig"><tt>byte</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:unsigned-byte"><span class="sig"><tt>unsigned-byte</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>An 8-bit integer value in range -128 - 127 (byte) or 0 - 255 (unsigned byte). Values are cast to and from C <tt>char</tt> or <tt>unsigned char</tt> type, so values outside this 8-bit range will be unceremoniously truncated.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:short"><span class="sig"><tt>short</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:unsigned-short"><span class="sig"><tt>unsigned-short</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A short integer number in 16-bit range. Maps to C <tt>short</tt> or <tt>unsigned short</tt>.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:int"><span class="sig"><tt>int</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:unsigned-int"><span class="sig"><tt>unsigned-int</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:int32"><span class="sig"><tt>int32</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:unsigned-int32"><span class="sig"><tt>unsigned-int32</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>An integer number in fixnum range (-1073741824 to 1073741823, i.e. 31 bit signed). <tt>unsigned-int</tt> further restricts this range to 30 bit unsigned (0 to 1073741823). <tt>int</tt> maps to C type <tt>int</tt> and <tt>int32</tt> maps to <tt>int32_t</tt>.</p><p>As an argument type, these expect a fixnum value, and as a return type they return a fixnum. Values outside the ranges prescribed above are silently truncated; you should use e.g. <tt>integer</tt> if you need the full 32-bit range. Note: <tt>int32</tt> is not recognized as an argument type prior to CHICKEN 4.7.2.</p><p>Notes for 64-bit architectures:</p><ul><li>C's <tt>int</tt> is 32 bits on most 64-bit systems (<a href="http://en.wikipedia.org/wiki/64-bit#Specific_C-language_data_models">LP64</a>), so <tt>int</tt> and <tt>int32</tt> are functionally (if not semantically) equivalent.</li> <li>The fixnum type is larger than 32 bits and consequently the entire signed or unsigned 32-bit range is available for this type on 64-bit systems. However, for compatibility with 32-bit systems it is probably unwise to rely on this. If you need a 32-bit range, you should use (unsigned) <tt>integer</tt> or <tt>integer32</tt>.</li> </ul> </dd></dl> <dl class="defsig"> <dt class="defsig" id="def:integer"><span class="sig"><tt>integer</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:unsigned-integer"><span class="sig"><tt>unsigned-integer</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:integer32"><span class="sig"><tt>integer32</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:unsigned-integer32"><span class="sig"><tt>unsigned-integer32</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A fixnum or integral flonum, mapping to <tt>int</tt> or <tt>int32_t</tt> or their unsigned variants. When outside of fixnum range the value will overflow into a flonum.</p><p>C's <tt>int</tt> is 32 bits on most 64-bit systems (<a href="http://en.wikipedia.org/wiki/64-bit#Specific_C-language_data_models">LP64</a>), so <tt>integer</tt> and <tt>integer32</tt> are functionally (if not semantically) equivalent.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:integer64"><span class="sig"><tt>integer64</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:unsigned-integer64"><span class="sig"><tt>unsigned-integer64</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A fixnum or integral flonum, mapping to <tt>int64_t</tt> or <tt>uint64_t</tt>. When outside of fixnum range the value will overflow into a flonum.</p><p>On a 32-bit system, the effective precision of this type is 52 bits plus the sign bit, as it is stored in a <tt>double</tt> flonum. (In other words, numbers between 2^52 and 2^64-1 can be represented but there are gaps in the sequence; the same goes for their negative counterparts.) On a 64-bit system the range is 62 bits plus the sign bit, the maximum range of a fixnum. (Numbers between 2^62 and 2^64-1 have gaps.)</p><p><tt>unsigned-integer64</tt> is not valid as a return type until CHICKEN 4.6.4.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:long"><span class="sig"><tt>long</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:unsigned-long"><span class="sig"><tt>unsigned-long</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>Either a fixnum or a flonum in the range of an (unsigned) machine <i>long</i>. Similar to <tt>integer32</tt> on 32-bit systems or <tt>integer64</tt> on 64-bit.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:size_t"><span class="sig"><tt>size_t</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A direct mapping to C's <tt>size_t</tt>.</p></dd></dl><h3 id="sec:Floating-point"><a href="#sec:Floating-point">Floating-point</a></h3> <dl class="defsig"> <dt class="defsig" id="def:float"><span class="sig"><tt>float</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:double"><span class="sig"><tt>double</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A floating-point number. If an exact integer is passed as an argument, then it is automatically converted to a float.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:number"><span class="sig"><tt>number</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A floating-point number. Similar to <tt>double</tt>, but when used as a result type, then either an exact integer or a floating-point number is returned, depending on whether the result fits into an exact integer or not.</p></dd></dl><h3 id="sec:Strings"><a href="#sec:Strings">Strings</a></h3> <dl class="defsig"> <dt class="defsig" id="def:c-string"><span class="sig"><tt>c-string</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-c-string"><span class="sig"><tt>nonnull-c-string</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A zero-terminated C string. The argument value <tt>#f</tt> is allowed and is passed as a <tt>NULL</tt> pointer; similarly, a NULL pointer is returned as <tt>#f</tt>. Note that the string contents are copied into (automatically managed) temporary storage with a zero byte appended when passed as an argument. Also, a return value of this type is copied into garbage collected memory using <tt>strcpy(3)</tt>.</p><p>For the <tt>nonnull-</tt> variant, passing <tt>#f</tt> will raise an exception, and returning a NULL pointer will result in undefined behavior (e.g. a segfault).</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:c-string.2a"><span class="sig"><tt>c-string*</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-c-string.2a"><span class="sig"><tt>nonnull-c-string*</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>Similar to <tt>c-string</tt> and <tt>nonnull-c-string</tt>, but if used as a result type, the pointer returned by the foreign code will be freed (using the C library's <tt>free(3)</tt>) after copying. This type specifier is not valid as a result type for callbacks defined with <tt>define-external</tt>.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:unsigned-c-string"><span class="sig"><tt>unsigned-c-string</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-unsigned-c-string"><span class="sig"><tt>nonnull-unsigned-c-string</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:unsigned-c-string.2a"><span class="sig"><tt>unsigned-c-string*</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-unsigned-c-string.2a"><span class="sig"><tt>nonnull-unsigned-c-string*</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>Same as <tt>c-string</tt>, <tt>nonnull-c-string</tt>, etc. but mapping to C's <tt>unsigned char *</tt> type.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:c-string-list"><span class="sig"><tt>c-string-list</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:c-string-list.2a"><span class="sig"><tt>c-string-list*</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>Takes a pointer to an array of C strings terminated by a <tt>NULL</tt> pointer and returns a list of strings. The starred version <tt>c-string-list*</tt> also releases the storage of each string and the pointer array afterward using <tt>free(1)</tt>.</p><p>Only valid as a result type, and can only be used with non-callback functions.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:symbol"><span class="sig"><tt>symbol</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A symbol, which will be passed to foreign code as a zero-terminated string.</p><p>When declared as the result of foreign code, the result should be a string and a symbol with the same name will be interned in the symbol table (and returned to the caller). Attempting to return a NULL string will raise an exception.</p></dd></dl><h3 id="sec:Bytevectors"><a href="#sec:Bytevectors">Bytevectors</a></h3> <dl class="defsig"> <dt class="defsig" id="def:blob"><span class="sig"><tt>blob</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-blob"><span class="sig"><tt>nonnull-blob</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A blob object, passed as a pointer to its contents. Permitted only as argument type, not return type.</p><p>Arguments of type <tt>blob</tt> may optionally be <tt>#f</tt>, which is passed as a NULL pointer. For the <tt>nonnull-</tt> variant, passing a <tt>#f</tt> value will raise an exception.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:u8vector"><span class="sig"><tt>u8vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:u16vector"><span class="sig"><tt>u16vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:u32vector"><span class="sig"><tt>u32vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:u64vector"><span class="sig"><tt>u64vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:s8vector"><span class="sig"><tt>s8vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:s16vector"><span class="sig"><tt>s16vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:s32vector"><span class="sig"><tt>s32vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:s64vector"><span class="sig"><tt>s64vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:f32vector"><span class="sig"><tt>f32vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:f64vector"><span class="sig"><tt>f64vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-u8vector"><span class="sig"><tt>nonnull-u8vector </tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-u16vector"><span class="sig"><tt>nonnull-u16vector </tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-u32vector"><span class="sig"><tt>nonnull-u32vector </tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-u64vector"><span class="sig"><tt>nonnull-u64vector </tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-s8vector"><span class="sig"><tt>nonnull-s8vector </tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-s16vector"><span class="sig"><tt>nonnull-s16vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-s32vector"><span class="sig"><tt>nonnull-s32vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-s64vector"><span class="sig"><tt>nonnull-s64vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-f32vector"><span class="sig"><tt>nonnull-f32vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-f64vector"><span class="sig"><tt>nonnull-f64vector</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A <a href="Unit%20srfi-4.html">SRFI-4</a> number-vector object, passed as a pointer to its contents. These are allowed only as argument types, not as return types.</p><p>The value <tt>#f</tt> is also allowed and is passed to C as a NULL pointer. For the <tt>nonnull-</tt> variants, passing <tt>#f</tt> will raise an exception.</p></dd></dl><h3 id="sec:Pointers"><a href="#sec:Pointers">Pointers</a></h3> <dl class="defsig"> <dt class="defsig" id="def:c-pointer"><span class="sig"><tt>c-pointer</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:c-pointer"><span class="sig"><tt>(c-pointer TYPE)</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-c-pointer"><span class="sig"><tt>nonnull-c-pointer</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-c-pointer"><span class="sig"><tt>(nonnull-c-pointer TYPE)</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>An operating-system pointer or a locative. <tt>c-pointer</tt> is untyped, whereas <tt>(c-pointer TYPE)</tt> points to an object of foreign type TYPE.</p><p>The value <tt>#f</tt> is allowed and is passed to C as a <tt>NULL</tt> pointer; similarly, NULL is returned as <tt>#f</tt>. For the two <tt>nonnull-</tt> variants, passing <tt>#f</tt> will raise an exception, and returning NULL will result in a null <tt>pointer</tt> object.</p><p>(Note: It is still possible to deliberately pass a null pointer through a <tt>nonnull-c-pointer</tt> by manually creating a null pointer object, e.g. via <tt>(address-&gt;pointer 0)</tt>.)</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:pointer-vector"><span class="sig"><tt>pointer-vector</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-pointer-vector"><span class="sig"><tt>nonnull-pointer-vector</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A vector of foreign pointer objects; see <a href="Unit%20lolevel.html#sec:Pointer_vectors">Pointer vectors</a>. Permitted only as an argument type, not as return type. This type was introduced in CHICKEN 4.6.3.</p><p>A pointer vector contains a C array of void pointers, and the argument is passed as a <tt>void **</tt> pointer to these contents. Just as for bytevector types, you must somehow communicate the length of this array to the callee; there is no sentinel node or NULL terminator.</p><p><tt>#f</tt> is allowed and passed as a <tt>NULL</tt> pointer. For the <tt>nonnull-</tt> variant, passing a <tt>#f</tt> value will raise an exception.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:ref"><span class="sig"><tt>(ref TYPE)</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A C++ reference type. Reference types are handled the same way as pointers inside Scheme code.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:function"><span class="sig"><tt>(function RESULTTYPE (ARGUMENTTYPE1 ... [...]) [CALLCONV])</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A function pointer. <tt>CALLCONV</tt> specifies an optional calling convention and should be a string. The meaning of this string is entirely platform dependent. The value <tt>#f</tt> is also allowed and is passed as a <tt>NULL</tt> pointer.</p></dd></dl><h3 id="sec:Scheme_objects"><a href="#sec:Scheme_objects">Scheme objects</a></h3> <dl class="defsig"> <dt class="defsig" id="def:scheme-object"><span class="sig"><tt>scheme-object</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>An arbitrary, raw Scheme data object (immediate or non-immediate). A <tt>scheme-object</tt> is passed or returned as a <tt>C_word</tt>, the internal CHICKEN type for objects. Typically, this consists of an object header and tag bits. It is up to you to build or take apart such objects using the core library routines in <tt>chicken.h</tt> and <tt>runtime.c</tt>.</p><p>More information on object structure can be found in <a href="Data%20representation.html">Data representation</a>.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:scheme-pointer"><span class="sig"><tt>scheme-pointer</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:scheme-pointer"><span class="sig"><tt>(scheme-pointer TYPE)</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-scheme-pointer"><span class="sig"><tt>nonnull-scheme-pointer</tt></span><span class="type">type</span></dt> <dt class="defsig" id="def:nonnull-scheme-pointer"><span class="sig"><tt>(nonnull-scheme-pointer TYPE)</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>An untyped pointer to the <i>contents</i> of a non-immediate Scheme object; for example, the raw byte contents of a string. Only allowed as an argument type, not a return type.</p><p>The optional element type <tt>TYPE</tt> may be used to specify what C type should be used in the generated code. This avoids the need to cast the argument.</p><p>The value <tt>#f</tt> is also allowed and is passed as a <tt>NULL</tt> pointer. For the <tt>nonnull-</tt> variant, passing <tt>#f</tt> will raise an exception.</p><p>Don't confuse this type with <tt>(c-pointer ...)</tt> which means something different (a machine-pointer object).</p><p><tt>scheme-pointer</tt> is typically used to get a pointer to the raw byte content of strings and blobs. But if you pass in a SRFI-4 vector, you will get a pointer to a blob object header (<i>not</i> the blob's contents), which is almost certainly wrong. Instead, convert to a blob beforehand, or use a SRFI-4 specific type.</p></dd></dl><h3 id="sec:User-defined_C_types"><a href="#sec:User-defined_C_types">User-defined C types</a></h3> <dl class="defsig"> <dt class="defsig" id="def:struct"><span class="sig"><tt>(struct NAME)</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A struct of the name <tt>NAME</tt>, which should be a string.</p><p>Structs cannot be directly passed as arguments to foreign functions, nor can they be result values. However, pointers to structs are allowed.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:union"><span class="sig"><tt>(union NAME)</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A union of the name <tt>NAME</tt>, which should be a string.</p><p>Unions cannot be directly passed as arguments to foreign functions, nor can they be result values. However, pointers to unions are allowed.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:enum"><span class="sig"><tt>(enum NAME)</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>An enumeration type. Handled internally as an <tt>integer</tt>.</p></dd></dl><h3 id="sec:C.2b.2b_types"><a href="#sec:C.2b.2b_types">C++ types</a></h3> <dl class="defsig"> <dt class="defsig" id="def:instance"><span class="sig"><tt>(instance CNAME SCHEMECLASS)</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A pointer to a C++ class instance wrapped into a Scheme object instance. <tt>CNAME</tt> should designate the name of the C++ class, and <tt>SCHEMECLASS</tt> should be the class that wraps the instance pointer.</p><p>To use this, an extension will be required that provides an object-creation- and access-interface compatible to <a href="http://wiki.call-cc.org/egg/coops">coops</a> or <a href="http://wiki.call-cc.org/egg/tinyclos">tinyclos</a>. Specifically, it should provide the following operations:</p><pre> (make SCHEMECLASS 'this POINTER) (slot-ref INSTANCE 'this)</pre></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:instance-ref"><span class="sig"><tt>(instance-ref CNAME SCHEMECLASS)</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A reference to a C++ class instance.</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:template"><span class="sig"><tt>(template TYPE ARGTYPE ...)</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>A C++ template type. For example <tt>vector&lt;int&gt;</tt> would be specified as <tt>(template &quot;vector&quot; int)</tt>.</p><p>Template types cannot be directly passed as arguments or returned as results. However, pointers to template types are allowed.</p></dd></dl><h3 id="sec:Type_qualifiers"><a href="#sec:Type_qualifiers">Type qualifiers</a></h3> <dl class="defsig"> <dt class="defsig" id="def:const"><span class="sig"><tt>(const TYPE)</tt></span><span class="type">type</span></dt> <dd class="defsig"><p>The foreign type <tt>TYPE</tt> with an additional <tt>const</tt> qualifier.</p></dd></dl><h3 id="sec:Map_of_foreign_types_to_C_types"><a href="#sec:Map_of_foreign_types_to_C_types">Map of foreign types to C types</a></h3><table> <tr><th>Foreign type</th><th>C type</th></tr> <tr><td><tt>bool</tt></td><td><tt>int</tt></td></tr> <tr><td><tt>[unsigned-]char</tt></td><td><tt>[unsigned] char</tt></td></tr> <tr><td><tt>[unsigned-]byte</tt></td><td><tt>[unsigned] char</tt></td></tr> <tr><td><tt>[unsigned-]short</tt></td><td><tt>[unsigned] short</tt></td></tr> <tr><td><tt>[unsigned-]int</tt></td><td><tt>[unsigned] int</tt></td></tr> <tr><td><tt>[unsigned-]int32</tt></td><td><tt>[unsigned] int32_t</tt></td></tr> <tr><td><tt>[unsigned-]integer</tt></td><td><tt>[unsigned] int</tt></td></tr> <tr><td><tt>[unsigned-]integer32</tt></td><td><tt>[unsigned] int32_t</tt></td></tr> <tr><td><tt>[unsigned-]integer64</tt></td><td><tt>[unsigned] int64_t</tt></td></tr> <tr><td><tt>[unsigned-]long</tt></td><td><tt>[unsigned] long</tt></td></tr> <tr><td><tt>size_t</tt></td><td><tt>size_t</tt></td></tr> <tr><td><tt>float</tt></td><td><tt>float</tt></td></tr> <tr><td><tt>double</tt></td><td><tt>double</tt></td></tr> <tr><td><tt>number</tt></td><td><tt>double</tt></td></tr> <tr><td><tt>[nonnull-]c-pointer</tt></td><td><tt>void *</tt></td></tr> <tr><td><tt>[nonnull-]pointer-vector</tt></td><td><tt>void **</tt></td></tr> <tr><td><tt>[nonnull-]blob</tt></td><td><tt>unsigned char *</tt></td></tr> <tr><td><tt>[nonnull-]u8vector</tt></td><td><tt>unsigned char *</tt></td></tr> <tr><td><tt>[nonnull-]s8vector</tt></td><td><tt>char *</tt></td></tr> <tr><td><tt>[nonnull-]u16vector</tt></td><td><tt>unsigned short *</tt></td></tr> <tr><td><tt>[nonnull-]s16vector</tt></td><td><tt>short *</tt></td></tr> <tr><td><tt>[nonnull-]u32vector</tt></td><td><tt>uint32_t *</tt></td></tr> <tr><td><tt>[nonnull-]s32vector</tt></td><td><tt>int32_t *</tt></td></tr> <tr><td><tt>[nonnull-]u64vector</tt></td><td><tt>uint64_t *</tt></td></tr> <tr><td><tt>[nonnull-]s64vector</tt></td><td><tt>int64_t *</tt></td></tr> <tr><td><tt>[nonnull-]f32vector</tt></td><td><tt>float *</tt></td></tr> <tr><td><tt>[nonnull-]f64vector</tt></td><td><tt>double *</tt></td></tr> <tr><td><tt>[nonnull-]c-string</tt></td><td><tt>char *</tt></td></tr> <tr><td><tt>[nonnull-]unsigned-c-string</tt></td><td><tt>unsigned char *</tt></td></tr> <tr><td><tt>c-string-list</tt></td><td><tt>char **</tt></td></tr> <tr><td><tt>symbol</tt></td><td><tt>char *</tt></td></tr> <tr><td><tt>void</tt></td><td><tt>void</tt></td></tr> <tr><td><tt>([nonnull-]c-pointer TYPE)</tt></td><td><tt>TYPE *</tt></td></tr> <tr><td><tt>([nonnull-]scheme-pointer TYPE)</tt></td><td><tt>TYPE *</tt></td></tr> <tr><td><tt>(enum NAME)</tt></td><td><tt>enum NAME</tt></td></tr> <tr><td><tt>(struct NAME)</tt></td><td><tt>struct NAME</tt></td></tr> <tr><td><tt>(ref TYPE)</tt></td><td><tt>TYPE &amp;</tt></td></tr> <tr><td><tt>(template T1 T2 ...)</tt></td><td><tt>T1&lt;T2, ...&gt;</tt></td></tr> <tr><td><tt>(union NAME)</tt></td><td><tt>union NAME</tt></td></tr> <tr><td><tt>(function RTYPE (ATYPE ...) [CALLCONV])</tt></td><td><tt>[CALLCONV] RTYPE (*)(ATYPE, ...)</tt></td></tr> <tr><td><tt>(instance CNAME SNAME)</tt></td><td><tt>CNAME *</tt></td></tr> <tr><td><tt>(instance-ref CNAME SNAME)</tt></td><td><tt>CNAME &amp;</tt></td></tr> </table> <hr /><p>Previous: <a href="Accessing%20external%20objects.html">Accessing external objects</a></p><p>Next: <a href="Embedding.html">Embedding</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken base).html������������������������������������������������0000644�0001750�0001750�00000303422�13502230005�021654� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken base)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_base.29">Module (chicken base)</a> <ul> <li><a href="#sec:Numeric_predicates">Numeric predicates</a> <ul> <li><a href="#sec:fixnum.3f">fixnum?</a></li> <li><a href="#sec:flonum.3f">flonum?</a></li> <li><a href="#sec:bignum.3f">bignum?</a></li> <li><a href="#sec:exact-integer.3f">exact-integer?</a></li> <li><a href="#sec:cplxnum.3f">cplxnum?</a></li> <li><a href="#sec:ratnum.3f">ratnum?</a></li> <li><a href="#sec:nan.3f">nan?</a></li> <li><a href="#sec:finite.3f">finite?</a></li> <li><a href="#sec:finite.3f">finite?</a></li> <li><a href="#sec:equal.3d.3f">equal=?</a></li></ul></li> <li><a href="#sec:Arithmetic">Arithmetic</a> <ul> <li><a href="#sec:add1.2fsub1">add1/sub1</a></li> <li><a href="#sec:exact-integer-sqrt">exact-integer-sqrt</a></li> <li><a href="#sec:exact-integer-nth-root">exact-integer-nth-root</a></li> <li><a href="#sec:Division_with_quotient_and_remainder">Division with quotient and remainder</a></li> <li><a href="#sec:signum">signum</a></li></ul></li> <li><a href="#sec:Lazy_evaluation">Lazy evaluation</a> <ul> <li><a href="#sec:delay-force">delay-force</a></li> <li><a href="#sec:make-promise">make-promise</a></li> <li><a href="#sec:promise.3f">promise?</a></li></ul></li> <li><a href="#sec:Input.2fOutput">Input/Output</a> <ul> <li><a href="#sec:current-error-port">current-error-port</a></li> <li><a href="#sec:print">print</a></li> <li><a href="#sec:print.2a">print*</a></li></ul></li> <li><a href="#sec:Interrupts_and_error-handling">Interrupts and error-handling</a> <ul> <li><a href="#sec:enable-warnings">enable-warnings</a></li> <li><a href="#sec:error">error</a></li> <li><a href="#sec:assert">assert</a></li> <li><a href="#sec:get-call-chain">get-call-chain</a></li> <li><a href="#sec:print-call-chain">print-call-chain</a></li> <li><a href="#sec:procedure-information">procedure-information</a></li> <li><a href="#sec:warning">warning</a></li></ul></li> <li><a href="#sec:Lists">Lists</a> <ul> <li><a href="#sec:alist-ref">alist-ref</a></li> <li><a href="#sec:alist-update">alist-update</a></li> <li><a href="#sec:atom.3f">atom?</a></li> <li><a href="#sec:butlast">butlast</a></li> <li><a href="#sec:chop">chop</a></li> <li><a href="#sec:compress">compress</a></li> <li><a href="#sec:flatten">flatten</a></li> <li><a href="#sec:foldl">foldl</a></li> <li><a href="#sec:foldr">foldr</a></li> <li><a href="#sec:intersperse">intersperse</a></li> <li><a href="#sec:join">join</a></li> <li><a href="#sec:rassoc">rassoc</a></li> <li><a href="#sec:tail.3f">tail?</a></li></ul></li> <li><a href="#sec:Vectors">Vectors</a> <ul> <li><a href="#sec:vector-copy.21">vector-copy!</a></li> <li><a href="#sec:vector-resize">vector-resize</a></li> <li><a href="#sec:subvector">subvector</a></li></ul></li> <li><a href="#sec:Combinators">Combinators</a> <ul> <li><a href="#sec:constantly">constantly</a></li> <li><a href="#sec:complement">complement</a></li> <li><a href="#sec:compose">compose</a></li> <li><a href="#sec:conjoin">conjoin</a></li> <li><a href="#sec:disjoin">disjoin</a></li> <li><a href="#sec:each">each</a></li> <li><a href="#sec:flip">flip</a></li> <li><a href="#sec:identity">identity</a></li> <li><a href="#sec:list-of.3f">list-of?</a></li> <li><a href="#sec:o">o</a></li></ul></li> <li><a href="#sec:User-defined_named_characters">User-defined named characters</a> <ul> <li><a href="#sec:char-name">char-name</a></li></ul></li> <li><a href="#sec:The_unspecified_value">The unspecified value</a> <ul> <li><a href="#sec:void">void</a></li></ul></li> <li><a href="#sec:Continuations">Continuations</a> <ul> <li><a href="#sec:call.2fcc">call/cc</a></li></ul></li> <li><a href="#sec:Symbols">Symbols</a> <ul> <li><a href="#sec:Symbol_utilities">Symbol utilities</a> <ul> <li><a href="#sec:symbol-append">symbol-append</a></li></ul></li> <li><a href="#sec:Uninterned_symbols_.28.22gensyms.22.29">Uninterned symbols (&quot;gensyms&quot;)</a> <ul> <li><a href="#sec:gensym">gensym</a></li> <li><a href="#sec:string-.3euninterned-symbol">string-&gt;uninterned-symbol</a></li></ul></li></ul></li> <li><a href="#sec:Setters">Setters</a> <ul> <li><a href="#sec:setter">setter</a></li> <li><a href="#sec:getter-with-setter">getter-with-setter</a></li></ul></li> <li><a href="#sec:Binding_forms_for_optional_arguments">Binding forms for optional arguments</a> <ul> <li><a href="#sec:optional">optional</a></li> <li><a href="#sec:case-lambda">case-lambda</a></li> <li><a href="#sec:let-optionals">let-optionals</a></li> <li><a href="#sec:let-optionals.2a">let-optionals*</a></li></ul></li> <li><a href="#sec:Other_binding_forms">Other binding forms</a> <ul> <li><a href="#sec:and-let.2a">and-let*</a></li> <li><a href="#sec:letrec.2a">letrec*</a></li> <li><a href="#sec:rec">rec</a></li> <li><a href="#sec:cut">cut</a></li> <li><a href="#sec:define-values">define-values</a></li> <li><a href="#sec:fluid-let">fluid-let</a></li> <li><a href="#sec:let-values">let-values</a></li> <li><a href="#sec:let.2a-values">let*-values</a></li> <li><a href="#sec:letrec-values">letrec-values</a></li> <li><a href="#sec:receive">receive</a></li> <li><a href="#sec:set.21-values">set!-values</a></li> <li><a href="#sec:nth-value">nth-value</a></li></ul></li> <li><a href="#sec:Parameters">Parameters</a> <ul> <li><a href="#sec:parameterize">parameterize</a></li> <li><a href="#sec:make-parameter">make-parameter</a></li></ul></li> <li><a href="#sec:Substitution_forms_and_macros">Substitution forms and macros</a> <ul> <li><a href="#sec:define-constant">define-constant</a></li> <li><a href="#sec:define-inline">define-inline</a></li></ul></li> <li><a href="#sec:Conditional_forms">Conditional forms</a> <ul> <li><a href="#sec:select">select</a></li> <li><a href="#sec:unless">unless</a></li> <li><a href="#sec:when">when</a></li></ul></li> <li><a href="#sec:Record_structures">Record structures</a> <ul> <li><a href="#sec:define-record">define-record</a> <ul> <li><a href="#sec:SRFI-17_setters">SRFI-17 setters</a></li></ul></li> <li><a href="#sec:define-record-type">define-record-type</a></li> <li><a href="#sec:define-record-printer">define-record-printer</a></li></ul></li> <li><a href="#sec:Other_forms">Other forms</a> <ul> <li><a href="#sec:include">include</a></li> <li><a href="#sec:include-relative">include-relative</a></li></ul></li> <li><a href="#sec:Making_extra_libraries_and_extensions_available">Making extra libraries and extensions available</a> <ul> <li><a href="#sec:require-extension">require-extension</a></li> <li><a href="#sec:require-library">require-library</a></li></ul></li> <li><a href="#sec:Process_shutdown">Process shutdown</a> <ul> <li><a href="#sec:emergency-exit">emergency-exit</a></li> <li><a href="#sec:exit">exit</a></li></ul></li> <li><a href="#sec:exit-handler">exit-handler</a></li> <li><a href="#sec:implicit-exit-handler">implicit-exit-handler</a> <ul> <li><a href="#sec:on-exit">on-exit</a></li></ul></li> <li><a href="#sec:System_interface">System interface</a> <ul> <li><a href="#sec:sleep">sleep</a></li></ul></li> <li><a href="#sec:Ports">Ports</a> <ul> <li><a href="#sec:String_ports">String ports</a> <ul> <li><a href="#sec:get-output-string">get-output-string</a></li> <li><a href="#sec:open-input-string">open-input-string</a></li> <li><a href="#sec:open-output-string">open-output-string</a></li></ul></li></ul></li> <li><a href="#sec:File_Input.2fOutput">File Input/Output</a> <ul> <li><a href="#sec:flush-output">flush-output</a></li></ul></li> <li><a href="#sec:Port_predicates">Port predicates</a> <ul> <li><a href="#sec:input-port-open.3f">input-port-open?</a></li> <li><a href="#sec:port-closed.3f">port-closed?</a></li> <li><a href="#sec:port.3f">port?</a></li></ul></li> <li><a href="#sec:Built-in_parameters">Built-in parameters</a> <ul> <li><a href="#sec:case-sensitive">case-sensitive</a></li> <li><a href="#sec:keyword-style">keyword-style</a></li> <li><a href="#sec:parenthesis-synonyms">parenthesis-synonyms</a></li> <li><a href="#sec:symbol-escape">symbol-escape</a></li></ul></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_base.29"><a href="#sec:Module_.28chicken_base.29">Module (chicken base)</a></h2><p>Core procedures and macros, acting as basic extensions to the R5RS standard and other essential features.</p><p>This module is used by default, unless a program is compiled with the <tt>-explicit-use</tt> option.</p><h3 id="sec:Numeric_predicates"><a href="#sec:Numeric_predicates">Numeric predicates</a></h3><p>These allow you to make a more precise differentiation between number types and their properties, not provided by R5RS.</p><h4 id="sec:fixnum.3f"><a href="#sec:fixnum.3f">fixnum?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:fixnum.3f"><span class="sig"><var class="id">fixnum?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a fixnum, or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:flonum.3f"><a href="#sec:flonum.3f">flonum?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:flonum.3f"><span class="sig"><var class="id">flonum?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a flonum, or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:bignum.3f"><a href="#sec:bignum.3f">bignum?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:bignum.3f"><span class="sig"><var class="id">bignum?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a bignum (integer larger than fits in a fixnum), or <tt>#f</tt> otherwise.</p></dd></dl><h4 id="sec:exact-integer.3f"><a href="#sec:exact-integer.3f">exact-integer?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:exact-integer.3f"><span class="sig"><var class="id">exact-integer?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is an exact integer (i.e., a fixnum or a bignum), or <tt>#f</tt> otherwise.</p><p>This procedure is compatible with the definition from the R7RS <tt>(scheme base)</tt> library.</p></dd></dl><h4 id="sec:cplxnum.3f"><a href="#sec:cplxnum.3f">cplxnum?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:cplxnum.3f"><span class="sig"><var class="id">cplxnum?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a true complex number (it has an imaginary component), or <tt>#f</tt> otherwise.</p><p>Please note that <tt>complex?</tt> will always return <tt>#t</tt> for any number type supported by CHICKEN, so you can use this predicate if you want to know the representational type of a number.</p></dd></dl><h4 id="sec:ratnum.3f"><a href="#sec:ratnum.3f">ratnum?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:ratnum.3f"><span class="sig"><var class="id">ratnum?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a true rational number (it is a fraction with a denominator that's not 1), or <tt>#f</tt> otherwise.</p><p>Please note that <tt>rational?</tt> will always return <tt>#t</tt> for any number type supported by CHICKEN except complex numbers and non-finite flonums, so you can use this predicate if you want to know the representational type of a number.</p></dd></dl><h4 id="sec:nan.3f"><a href="#sec:nan.3f">nan?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:nan.3f"><span class="sig"><var class="id">nan?</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">N</var> is not a number (a IEEE flonum NaN-value). If <var class="arg">N</var> is a complex number, it's considered nan if it has a real or imaginary component that's nan.</p><p>This procedure is compatible with the definition from the R7RS <tt>(scheme inexact)</tt> library.</p></dd></dl><h4 id="sec:finite.3f"><a href="#sec:finite.3f">finite?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:infinite.3f"><span class="sig"><var class="id">infinite?</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">N</var> is negative or positive infinity, and <tt>#f</tt> otherwise. If <var class="arg">N</var> is a complex number, it's considered infinite if it has a real or imaginary component that's infinite.</p><p>This procedure is compatible with the definition from the R7RS <tt>(scheme inexact)</tt> library.</p></dd></dl><h4 id="sec:finite.3f"><a href="#sec:finite.3f">finite?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:finite.3f"><span class="sig"><var class="id">finite?</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">N</var> represents a finite number and <tt>#f</tt> otherwise. Positive and negative infinity as well as NaNs are not considered finite. If <var class="arg">N</var> is a complex number, it's considered finite if both the real and imaginary components are finite.</p><p>This procedure is compatible with the definition from the R7RS <tt>(scheme inexact)</tt> library.</p></dd></dl><h4 id="sec:equal.3d.3f"><a href="#sec:equal.3d.3f">equal=?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:equal.3d.3f"><span class="sig"><var class="id">equal=?</var> <var class="arg">X</var> <var class="arg">y</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to the standard procedure <tt>equal?</tt>, but compares numbers using the <tt>=</tt> operator, so <tt>equal=?</tt> allows structural comparison in combination with comparison of numerical data by value.</p></dd></dl><h3 id="sec:Arithmetic"><a href="#sec:Arithmetic">Arithmetic</a></h3><h4 id="sec:add1.2fsub1"><a href="#sec:add1.2fsub1">add1/sub1</a></h4> <dl class="defsig"> <dt class="defsig" id="def:add1"><span class="sig"><var class="id">add1</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:sub1"><span class="sig"><var class="id">sub1</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Adds/subtracts 1 from <var class="arg">N</var>.</p></dd></dl><h4 id="sec:exact-integer-sqrt"><a href="#sec:exact-integer-sqrt">exact-integer-sqrt</a></h4> <dl class="defsig"> <dt class="defsig" id="def:exact-integer-sqrt"><span class="sig"><var class="id">exact-integer-sqrt</var> <var class="arg">K</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns two values <tt>s</tt> and <tt>r</tt>, where <tt>s^2 + r = K</tt> and <tt>K &lt; (s+1)^2</tt>. In other words, <tt>s</tt> is the closest square root we can find that's equal to or smaller than <var class="arg">K</var>, and <tt>r</tt> is the rest if <var class="arg">K</var> isn't a neat square of two numbers.</p><p>This procedure is compatible with the definition from the R7RS <tt>(scheme base)</tt> library.</p></dd></dl><h4 id="sec:exact-integer-nth-root"><a href="#sec:exact-integer-nth-root">exact-integer-nth-root</a></h4> <dl class="defsig"> <dt class="defsig" id="def:exact-integer-nth-root"><span class="sig"><var class="id">exact-integer-nth-root</var> <var class="arg">K</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Like <tt>exact-integer-sqrt</tt>, but with any base value. Calculates <tt>\sqrt[N]{K</tt>}, the <var class="arg">N</var>th root of <var class="arg">K</var> and returns two values <tt>s</tt> and <tt>r</tt> where <tt>s^N + r = K</tt> and <tt>K &lt; (s+1)^N</tt>.</p></dd></dl><h4 id="sec:Division_with_quotient_and_remainder"><a href="#sec:Division_with_quotient_and_remainder">Division with quotient and remainder</a></h4> <dl class="defsig"> <dt class="defsig" id="def:quotient.26remainder"><span class="sig"><var class="id">quotient&amp;remainder</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:quotient.26modulo"><span class="sig"><var class="id">quotient&amp;modulo</var> <var class="arg">X</var> <var class="arg">Y</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns two values: the quotient and the remainder (or modulo) of <var class="arg">X</var> divided by <var class="arg">Y</var>. Could be defined as <tt>(values (quotient X Y) (remainder X Y))</tt>, but is much more efficient when dividing very large numbers.</p></dd></dl><h4 id="sec:signum"><a href="#sec:signum">signum</a></h4> <dl class="defsig"> <dt class="defsig" id="def:signum"><span class="sig"><var class="id">signum</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>For real numbers, returns <tt>1</tt> if <var class="arg">N</var> is positive, <tt>-1</tt> if <var class="arg">N</var> is negative or <tt>0</tt> if <var class="arg">N</var> is zero. <tt>signum</tt> is exactness preserving.</p><p>For complex numbers, returns a complex number of the same angle but with magnitude 1.</p></dd></dl><h3 id="sec:Lazy_evaluation"><a href="#sec:Lazy_evaluation">Lazy evaluation</a></h3><h4 id="sec:delay-force"><a href="#sec:delay-force">delay-force</a></h4> <dl class="defsig"> <dt class="defsig" id="def:delay-force"><span class="sig"><tt>(delay-force &lt;expression&gt;)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>The expression <tt>(delay-force expression)</tt> is conceptually similar to <tt>(delay (force expression))</tt>, with the difference that forcing the result of <tt>delay-force</tt> will in effect result in a tail call to <tt>(force expression)</tt>, while forcing the result of <tt>(delay (force expression))</tt> might not.</p><p>Thus iterative lazy algorithms that might result in a long series of chains of delay and force can be rewritten using delay-force to prevent consuming unbounded space during evaluation.</p><p>This special form is compatible with the definition from the R7RS <tt>(scheme lazy)</tt> library.</p><p>See the description of force under <a href="Module%20scheme.html#sec:control-features">Control features</a> in the &quot;scheme&quot; module documentation for a more complete description of delayed evaluation.</p><p>For more information regarding the unbounded build-up of space, see the <a href="http://srfi.schemers.org/srfi-45/srfi-45.html">SRFI-45</a> rationale.</p></dd></dl><h4 id="sec:make-promise"><a href="#sec:make-promise">make-promise</a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-promise"><span class="sig"><var class="id">make-promise</var> <var class="arg">obj</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>The make-promise procedure returns a promise which, when forced, will return <var class="arg">obj</var> . It is similar to <tt>delay</tt>, but does not delay its argument: it is a procedure rather than syntax. If <var class="arg">obj</var> is already a promise, it is returned.</p><p>This procedure is compatible with the definition from the R7RS <tt>(scheme lazy)</tt> library.</p></dd></dl><h4 id="sec:promise.3f"><a href="#sec:promise.3f">promise?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:promise.3f"><span class="sig"><var class="id">promise?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a promise returned by <tt>delay</tt>, or <tt>#f</tt> otherwise.</p><p>This procedure is compatible with the definition from the R7RS <tt>(scheme lazy)</tt> library.</p></dd></dl><h3 id="sec:Input.2fOutput"><a href="#sec:Input.2fOutput">Input/Output</a></h3><h4 id="sec:current-error-port"><a href="#sec:current-error-port">current-error-port</a></h4> <dl class="defsig"> <dt class="defsig" id="def:current-error-port"><span class="sig"><var class="id">current-error-port</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns default error output port. If <var class="arg">PORT</var> is given, then that port is selected as the new current error output port.</p><p>Note that the default error output port is not buffered. Use <a href="Module%20%28chicken%20port%29.html#sec:set-buffering-mode.21"><tt>set-buffering-mode!</tt></a> if you need a different behaviour.</p></dd></dl><h4 id="sec:print"><a href="#sec:print">print</a></h4> <dl class="defsig"> <dt class="defsig" id="def:print"><span class="sig"><tt>(print [EXP1 ...])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Outputs the optional arguments <tt>EXP1 ...</tt> using <tt>display</tt> and writes a newline character to the port that is the value of <tt>(current-output-port)</tt>. Returns <tt>(void)</tt>.</p></dd></dl><h4 id="sec:print.2a"><a href="#sec:print.2a">print*</a></h4> <dl class="defsig"> <dt class="defsig" id="def:print.2a"><span class="sig"><tt>(print* [EXP1 ...])</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>print</tt>, but does not output a terminating newline character and performs a <tt>flush-output</tt> after writing its arguments.</p></dd></dl><h3 id="sec:Interrupts_and_error-handling"><a href="#sec:Interrupts_and_error-handling">Interrupts and error-handling</a></h3><h4 id="sec:enable-warnings"><a href="#sec:enable-warnings">enable-warnings</a></h4> <dl class="defsig"> <dt class="defsig" id="def:enable-warnings"><span class="sig"><var class="id">enable-warnings</var> <var class="dsssl">#!optional</var> <var class="arg">BOOL</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Enables or disables warnings, depending on wether <var class="arg">BOOL</var> is true or false. If called with no arguments, this procedure returns <tt>#t</tt> if warnings are currently enabled, or <tt>#f</tt> otherwise. Note that this is not a parameter. The current state (whether warnings are enabled or disabled) is global and not thread-local.</p></dd></dl><h4 id="sec:error"><a href="#sec:error">error</a></h4> <dl class="defsig"> <dt class="defsig" id="def:error"><span class="sig"><tt>(error [LOCATION] [STRING] EXP ...)</tt></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Prints error message, writes all extra arguments to the value of <tt>(current-error-port)</tt> and invokes the current exception-handler. This conforms to <a href="http://srfi.schemers.org/srfi-23/srfi-23.html">SRFI-23</a>. If <tt>LOCATION</tt> is given and a symbol, it specifies the <i>location</i> (the name of the procedure) where the error occurred.</p></dd></dl><h4 id="sec:assert"><a href="#sec:assert">assert</a></h4> <dl class="defsig"> <dt class="defsig" id="def:assert"><span class="sig"><tt>(assert EXP [OBJ ...])</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Evaluates <tt>EXP</tt>, if it returns #f, applies <tt>error</tt> on <tt>OBJ ...</tt>. When compiling in unsafe mode, assertions of this kind are disabled.</p></dd></dl><h4 id="sec:get-call-chain"><a href="#sec:get-call-chain">get-call-chain</a></h4> <dl class="defsig"> <dt class="defsig" id="def:get-call-chain"><span class="sig"><var class="id">get-call-chain</var> <var class="dsssl">#!optional</var> <var class="arg">START</var> <var class="arg">THREAD</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list with the call history. Backtrace information is only generated in code compiled without <tt>-no-trace</tt> and evaluated code. If the optional argument <var class="arg">START</var> is given, the backtrace starts at this offset, i.e. when <var class="arg">START</var> is 1, the next to last trace-entry is printed, and so on. If the optional argument <var class="arg">THREAD</var> is given, then the call-chain will only be constructed for calls performed by this thread.</p></dd></dl><h4 id="sec:print-call-chain"><a href="#sec:print-call-chain">print-call-chain</a></h4> <dl class="defsig"> <dt class="defsig" id="def:print-call-chain"><span class="sig"><var class="id">print-call-chain</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var> <var class="arg">START</var> <var class="arg">THREAD</var> <var class="arg">HEADER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Prints a backtrace of the procedure call history to <var class="arg">PORT</var>, which defaults to <tt>(current-output-port)</tt>. The output is prefixed by the <var class="arg">HEADER</var>, which defaults to <tt>&quot;\n\tCall history:\n&quot;</tt>.</p></dd></dl><h4 id="sec:procedure-information"><a href="#sec:procedure-information">procedure-information</a></h4> <dl class="defsig"> <dt class="defsig" id="def:procedure-information"><span class="sig"><var class="id">procedure-information</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns an s-expression with debug information for the procedure <var class="arg">PROC</var>, or <tt>#f</tt>, if <var class="arg">PROC</var> has no associated debug information.</p></dd></dl><h4 id="sec:warning"><a href="#sec:warning">warning</a></h4> <dl class="defsig"> <dt class="defsig" id="def:warning"><span class="sig"><var class="id">warning</var> <var class="arg">STRING</var> <var class="arg">EXP</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Displays a warning message (if warnings are enabled with <tt>enable-warnings</tt>) and continues execution.</p></dd></dl><h3 id="sec:Lists"><a href="#sec:Lists">Lists</a></h3><h4 id="sec:alist-ref"><a href="#sec:alist-ref">alist-ref</a></h4> <dl class="defsig"> <dt class="defsig" id="def:alist-ref"><span class="sig"><var class="id">alist-ref</var> <var class="arg">KEY</var> <var class="arg">ALIST</var> <var class="dsssl">#!optional</var> <var class="arg">TEST</var> <var class="arg">DEFAULT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Looks up <var class="arg">KEY</var> in <var class="arg">ALIST</var> using <var class="arg">TEST</var> as the comparison function (or <tt>eqv?</tt> if no test was given) and returns the cdr of the found pair, or <var class="arg">DEFAULT</var> (which defaults to <tt>#f</tt>).</p></dd></dl><h4 id="sec:alist-update"><a href="#sec:alist-update">alist-update</a></h4> <dl class="defsig"> <dt class="defsig" id="def:alist-update"><span class="sig"><var class="id">alist-update</var> <var class="arg">KEY</var> <var class="arg">VALUE</var> <var class="arg">ALIST</var> <var class="dsssl">#!optional</var> <var class="arg">TEST</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:alist-update.21"><span class="sig"><var class="id">alist-update!</var> <var class="arg">KEY</var> <var class="arg">VALUE</var> <var class="arg">ALIST</var> <var class="dsssl">#!optional</var> <var class="arg">TEST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>If the list <var class="arg">ALIST</var> contains a pair of the form <tt>(KEY . X)</tt>, then this procedure replaces <tt>X</tt> with <var class="arg">VALUE</var> and returns <var class="arg">ALIST</var>. If <var class="arg">ALIST</var> contains no such item, then <tt>alist-update</tt> returns <tt>((KEY . VALUE) . ALIST)</tt>. The optional argument <var class="arg">TEST</var> specifies the comparison procedure to search a matching pair in <var class="arg">ALIST</var> and defaults to <tt>eqv?</tt>. <tt>alist-update!</tt> is the destructive version of <tt>alist-update</tt>.</p></dd></dl><h4 id="sec:atom.3f"><a href="#sec:atom.3f">atom?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:atom.3f"><span class="sig"><var class="id">atom?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is not a pair.</p></dd></dl><h4 id="sec:butlast"><a href="#sec:butlast">butlast</a></h4> <dl class="defsig"> <dt class="defsig" id="def:butlast"><span class="sig"><var class="id">butlast</var> <var class="arg">LIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a fresh list with all elements but the last of <var class="arg">LIST</var>.</p></dd></dl><h4 id="sec:chop"><a href="#sec:chop">chop</a></h4> <dl class="defsig"> <dt class="defsig" id="def:chop"><span class="sig"><var class="id">chop</var> <var class="arg">LIST</var> <var class="arg">N</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new list of sublists, where each sublist contains <var class="arg">N</var> elements of <var class="arg">LIST</var>. If <var class="arg">LIST</var> has a length that is not a multiple of <var class="arg">N</var>, then the last sublist contains the remaining elements.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">chop &#x27;<span class="paren2">(<span class="default">1 2 3 4 5 6</span>)</span> 2</span>)</span> ==&gt; <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">1 2</span>)</span> <span class="paren2">(<span class="default">3 4</span>)</span> <span class="paren2">(<span class="default">5 6</span>)</span></span>)</span> <span class="paren1">(<span class="default">chop &#x27;<span class="paren2">(<span class="default">a b c d</span>)</span> 3</span>)</span> ==&gt; <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">a b c</span>)</span> <span class="paren2">(<span class="default">d</span>)</span></span>)</span></pre></dd></dl><h4 id="sec:compress"><a href="#sec:compress">compress</a></h4> <dl class="defsig"> <dt class="defsig" id="def:compress"><span class="sig"><var class="id">compress</var> <var class="arg">BLIST</var> <var class="arg">LIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new list with elements taken from <var class="arg">LIST</var> with corresponding true values in the list <var class="arg">BLIST</var>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> nums &#x27;<span class="paren2">(<span class="default">99 100 110 401 1234</span>)</span></span>)</span> <span class="paren1">(<span class="default">compress <span class="paren2">(<span class="default">map odd? nums</span>)</span> nums</span>)</span> ==&gt; <span class="paren1">(<span class="default">99 401</span>)</span></pre></dd></dl><h4 id="sec:flatten"><a href="#sec:flatten">flatten</a></h4> <dl class="defsig"> <dt class="defsig" id="def:flatten"><span class="sig"><var class="id">flatten</var> <var class="arg">LIST1</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>LIST1 ...</tt> concatenated together, with nested lists removed (flattened).</p></dd></dl><h4 id="sec:foldl"><a href="#sec:foldl">foldl</a></h4> <dl class="defsig"> <dt class="defsig" id="def:foldl"><span class="sig"><var class="id">foldl</var> <var class="arg">PROCEDURE</var> <var class="arg">INIT</var> <var class="arg">LIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Applies <var class="arg">PROCEDURE</var> to the elements from <var class="arg">LIST</var>, beginning from the left:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">foldl + 0 &#x27;<span class="paren2">(<span class="default">1 2 3</span>)</span></span>)</span> ==&gt; <span class="paren1">(<span class="default">+ <span class="paren2">(<span class="default">+ <span class="paren3">(<span class="default">+ 0 1</span>)</span> 2</span>)</span> 3</span>)</span></pre><p>Note that the order of arguments taken by <var class="arg">PROCEDURE</var> is different from the <tt>SRFI-1</tt> <tt>fold</tt> procedure, but matches the more natural order used in Haskell and Objective Caml.</p></dd></dl><h4 id="sec:foldr"><a href="#sec:foldr">foldr</a></h4> <dl class="defsig"> <dt class="defsig" id="def:foldr"><span class="sig"><var class="id">foldr</var> <var class="arg">PROCEDURE</var> <var class="arg">INIT</var> <var class="arg">LIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Applies <var class="arg">PROCEDURE</var> to the elements from <var class="arg">LIST</var>, beginning from the right:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">foldr + 0 &#x27;<span class="paren2">(<span class="default">1 2 3</span>)</span></span>)</span> ==&gt; <span class="paren1">(<span class="default">+ 1 <span class="paren2">(<span class="default">+ 2 <span class="paren3">(<span class="default">+ 3 0</span>)</span></span>)</span></span>)</span></pre></dd></dl><h4 id="sec:intersperse"><a href="#sec:intersperse">intersperse</a></h4> <dl class="defsig"> <dt class="defsig" id="def:intersperse"><span class="sig"><var class="id">intersperse</var> <var class="arg">LIST</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new list with <var class="arg">X</var> placed between each element.</p></dd></dl><h4 id="sec:join"><a href="#sec:join">join</a></h4> <dl class="defsig"> <dt class="defsig" id="def:join"><span class="sig"><var class="id">join</var> <var class="arg">LISTOFLISTS</var> <var class="dsssl">#!optional</var> <var class="arg">LIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Concatenates the lists in <var class="arg">LISTOFLISTS</var> with <var class="arg">LIST</var> placed between each sublist. <var class="arg">LIST</var> defaults to the empty list.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">join &#x27;<span class="paren2">(<span class="default"><span class="paren3">(<span class="default">a b</span>)</span> <span class="paren3">(<span class="default">c d</span>)</span> <span class="paren3">(<span class="default">e</span>)</span></span>)</span> &#x27;<span class="paren2">(<span class="default">x y</span>)</span></span>)</span> ==&gt; <span class="paren1">(<span class="default">a b x y c d x y e</span>)</span> <span class="paren1">(<span class="default">join &#x27;<span class="paren2">(<span class="default"><span class="paren3">(<span class="default">p q</span>)</span> <span class="paren3">(<span class="default"></span>)</span> <span class="paren3">(<span class="default">r <span class="paren4">(<span class="default">s</span>)</span> t</span>)</span></span>)</span> &#x27;<span class="paren2">(<span class="default">-</span>)</span></span>)</span> ==&gt; <span class="paren1">(<span class="default">p q - - r <span class="paren2">(<span class="default">s</span>)</span> t</span>)</span></pre><p><tt>join</tt> could be implemented as follows:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">join lstoflsts #!optional <span class="paren3">(<span class="default">lst &#x27;<span class="paren4">(<span class="default"></span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default">apply append <span class="paren3">(<span class="default">intersperse lstoflists lst</span>)</span></span>)</span> </span>)</span></pre></dd></dl><h4 id="sec:rassoc"><a href="#sec:rassoc">rassoc</a></h4> <dl class="defsig"> <dt class="defsig" id="def:rassoc"><span class="sig"><var class="id">rassoc</var> <var class="arg">KEY</var> <var class="arg">LIST</var> <var class="dsssl">#!optional</var> <var class="arg">TEST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Similar to <tt>assoc</tt>, but compares <var class="arg">KEY</var> with the <tt>cdr</tt> of each pair in <var class="arg">LIST</var> using <var class="arg">TEST</var> as the comparison procedures (which defaults to <tt>eqv?</tt>.</p></dd></dl><h4 id="sec:tail.3f"><a href="#sec:tail.3f">tail?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:tail.3f"><span class="sig"><var class="id">tail?</var> <var class="arg">X</var> <var class="arg">LIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns true if <var class="arg">X</var> is one of the tails (cdr's) of <var class="arg">LIST</var>.</p></dd></dl><h3 id="sec:Vectors"><a href="#sec:Vectors">Vectors</a></h3><h4 id="sec:vector-copy.21"><a href="#sec:vector-copy.21">vector-copy!</a></h4> <dl class="defsig"> <dt class="defsig" id="def:vector-copy.21"><span class="sig"><var class="id">vector-copy!</var> <var class="arg">VECTOR1</var> <var class="arg">VECTOR2</var> <var class="dsssl">#!optional</var> <var class="arg">COUNT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Copies contents of <var class="arg">VECTOR1</var> into <var class="arg">VECTOR2</var>. If the argument <var class="arg">COUNT</var> is given, it specifies the maximal number of elements to be copied. If not given, the minimum of the lengths of the argument vectors is copied.</p><p>Exceptions: <tt>(exn bounds)</tt></p><p>This procedure is compatible with the definition from the R7RS <tt>(scheme base)</tt> library.</p></dd></dl><h4 id="sec:vector-resize"><a href="#sec:vector-resize">vector-resize</a></h4> <dl class="defsig"> <dt class="defsig" id="def:vector-resize"><span class="sig"><var class="id">vector-resize</var> <var class="arg">VECTOR</var> <var class="arg">N</var> <var class="dsssl">#!optional</var> <var class="arg">INIT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates and returns a new vector with the contents of <var class="arg">VECTOR</var> and length <var class="arg">N</var>. If <var class="arg">N</var> is greater than the original length of <var class="arg">VECTOR</var>, then all additional items are initialized to <var class="arg">INIT</var>. If <var class="arg">INIT</var> is not specified, the contents are initialized to some unspecified value.</p></dd></dl><h4 id="sec:subvector"><a href="#sec:subvector">subvector</a></h4> <dl class="defsig"> <dt class="defsig" id="def:subvector"><span class="sig"><var class="id">subvector</var> <var class="arg">VECTOR</var> <var class="arg">FROM</var> <var class="dsssl">#!optional</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a new vector with elements taken from <var class="arg">VECTOR</var> in the given range. <var class="arg">TO</var> defaults to <tt>(vector-length VECTOR)</tt>.</p><p><tt>subvector</tt> was introduced in CHICKEN 4.7.3.</p></dd></dl><h3 id="sec:Combinators"><a href="#sec:Combinators">Combinators</a></h3><h4 id="sec:constantly"><a href="#sec:constantly">constantly</a></h4> <dl class="defsig"> <dt class="defsig" id="def:constantly"><span class="sig"><var class="id">constantly</var> <var class="arg">X</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a procedure that always returns the values <tt>X ...</tt> regardless of the number and value of its arguments.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">constantly X</span>)</span> &lt;=&gt; <span class="paren1">(<span class="default"><i><span class="symbol">lambda</span></i> args X</span>)</span></pre></dd></dl><h4 id="sec:complement"><a href="#sec:complement">complement</a></h4> <dl class="defsig"> <dt class="defsig" id="def:complement"><span class="sig"><var class="id">complement</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a procedure that returns the boolean inverse of <var class="arg">PROC</var>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">complement PROC</span>)</span> &lt;=&gt; <span class="paren1">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren2">(<span class="default">x</span>)</span> <span class="paren2">(<span class="default">not <span class="paren3">(<span class="default">PROC x</span>)</span></span>)</span></span>)</span></pre></dd></dl><h4 id="sec:compose"><a href="#sec:compose">compose</a></h4> <dl class="defsig"> <dt class="defsig" id="def:compose"><span class="sig"><var class="id">compose</var> <var class="arg">PROC1</var> <var class="arg">PROC2</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a procedure that represents the composition of the argument-procedures <tt>PROC1 PROC2 ...</tt>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">compose F G</span>)</span> &lt;=&gt; <span class="paren1">(<span class="default"><i><span class="symbol">lambda</span></i> args <span class="paren2">(<span class="default">call-with-values <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren4">(<span class="default"></span>)</span> <span class="paren4">(<span class="default">apply G args</span>)</span></span>)</span> F</span>)</span></span>)</span></pre><p><tt>(compose)</tt> is equivalent to <tt>values</tt>.</p></dd></dl><h4 id="sec:conjoin"><a href="#sec:conjoin">conjoin</a></h4> <dl class="defsig"> <dt class="defsig" id="def:conjoin"><span class="sig"><var class="id">conjoin</var> <var class="arg">PRED</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a procedure that returns <tt>#t</tt> if its argument satisfies the predicates <tt>PRED ...</tt>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><span class="paren2">(<span class="default">conjoin odd? positive?</span>)</span> 33</span>)</span> ==&gt; #t <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">conjoin odd? positive?</span>)</span> -33</span>)</span> ==&gt; #f</pre></dd></dl><h4 id="sec:disjoin"><a href="#sec:disjoin">disjoin</a></h4> <dl class="defsig"> <dt class="defsig" id="def:disjoin"><span class="sig"><var class="id">disjoin</var> <var class="arg">PRED</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a procedure that returns <tt>#t</tt> if its argument satisfies any predicate <tt>PRED ...</tt>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><span class="paren2">(<span class="default">disjoin odd? positive?</span>)</span> 32</span>)</span> ==&gt; #t <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">disjoin odd? positive?</span>)</span> -32</span>)</span> ==&gt; #f</pre></dd></dl><h4 id="sec:each"><a href="#sec:each">each</a></h4> <dl class="defsig"> <dt class="defsig" id="def:each"><span class="sig"><var class="id">each</var> <var class="arg">PROC</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a procedure that applies <tt>PROC ...</tt> to its arguments, and returns the result(s) of the last procedure application. For example</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">each pp eval</span>)</span></pre><p>is equivalent to</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">lambda</span></i> args <span class="paren2">(<span class="default">apply pp args</span>)</span> <span class="paren2">(<span class="default">apply eval args</span>)</span> </span>)</span></pre><p><tt>(each PROC)</tt> is equivalent to <var class="arg">PROC</var> and <tt>(each)</tt> is equivalent to <tt>void</tt>.</p></dd></dl><h4 id="sec:flip"><a href="#sec:flip">flip</a></h4> <dl class="defsig"> <dt class="defsig" id="def:flip"><span class="sig"><var class="id">flip</var> <var class="arg">PROC</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a two-argument procedure that calls <var class="arg">PROC</var> with its arguments swapped:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">flip PROC</span>)</span> &lt;=&gt; <span class="paren1">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren2">(<span class="default">x y</span>)</span> <span class="paren2">(<span class="default">PROC y x</span>)</span></span>)</span></pre></dd></dl><h4 id="sec:identity"><a href="#sec:identity">identity</a></h4> <dl class="defsig"> <dt class="defsig" id="def:identity"><span class="sig"><var class="id">identity</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns its sole argument <var class="arg">X</var>.</p></dd></dl><h4 id="sec:list-of.3f"><a href="#sec:list-of.3f">list-of?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:list-of.3f"><span class="sig"><var class="id">list-of?</var> <var class="arg">PRED</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a procedure of one argument that returns <tt>#t</tt> when applied to a list of elements that all satisfy the predicate procedure <var class="arg">PRED</var>, or <tt>#f</tt> otherwise.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><span class="paren2">(<span class="default">list-of? even?</span>)</span> &#x27;<span class="paren2">(<span class="default">1 2 3</span>)</span></span>)</span> ==&gt; #f <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">list-of? number?</span>)</span> &#x27;<span class="paren2">(<span class="default">1 2 3</span>)</span></span>)</span> ==&gt; #t</pre></dd></dl><h4 id="sec:o"><a href="#sec:o">o</a></h4> <dl class="defsig"> <dt class="defsig" id="def:o"><span class="sig"><var class="id">o</var> <var class="arg">PROC</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>A single value version of <tt>compose</tt> (slightly faster). <tt>(o)</tt> is equivalent to <tt>identity</tt>.</p></dd></dl><h3 id="sec:User-defined_named_characters"><a href="#sec:User-defined_named_characters">User-defined named characters</a></h3><h4 id="sec:char-name"><a href="#sec:char-name">char-name</a></h4> <dl class="defsig"> <dt class="defsig" id="def:char-name"><span class="sig"><var class="id">char-name</var> <var class="arg">SYMBOL-OR-CHAR</var> <var class="dsssl">#!optional</var> <var class="arg">CHAR</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>This procedure can be used to inquire about character names or to define new ones. With a single argument the behavior is as follows: If <var class="arg">SYMBOL-OR-CHAR</var> is a symbol, then <tt>char-name</tt> returns the character with this name, or <tt>#f</tt> if no character is defined under this name. If <var class="arg">SYMBOL-OR-CHAR</var> is a character, then the name of the character is returned as a symbol, or <tt>#f</tt> if the character has no associated name.</p><p>If the optional argument <var class="arg">CHAR</var> is provided, then <var class="arg">SYMBOL-OR-CHAR</var> should be a symbol that will be the new name of the given character. If multiple names designate the same character, then the <tt>write</tt> will use the character name that was defined last.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">char-name &#x27;space</span>)</span> ==&gt; <span class="character">#\space</span> <span class="paren1">(<span class="default">char-name <span class="character">#\space</span></span>)</span> ==&gt; space <span class="paren1">(<span class="default">char-name &#x27;bell</span>)</span> ==&gt; #f <span class="paren1">(<span class="default">char-name <span class="paren2">(<span class="default">integer-&gt;char 7</span>)</span></span>)</span> ==&gt; #f <span class="paren1">(<span class="default">char-name &#x27;bell <span class="paren2">(<span class="default">integer-&gt;char 7</span>)</span></span>)</span> <span class="paren1">(<span class="default">char-name &#x27;bell</span>)</span> ==&gt; <span class="character">#\bell</span> <span class="paren1">(<span class="default">char-&gt;integer <span class="paren2">(<span class="default">char-name &#x27;bell</span>)</span></span>)</span> ==&gt; 7</pre></dd></dl><h3 id="sec:The_unspecified_value"><a href="#sec:The_unspecified_value">The unspecified value</a></h3><h4 id="sec:void"><a href="#sec:void">void</a></h4> <dl class="defsig"> <dt class="defsig" id="def:void"><span class="sig"><var class="id">void</var> <var class="arg">ARGUMENT</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Ignores <tt>ARGUMENT ...</tt> and returns an unspecified value.</p></dd></dl><h3 id="sec:Continuations"><a href="#sec:Continuations">Continuations</a></h3><h4 id="sec:call.2fcc"><a href="#sec:call.2fcc">call/cc</a></h4> <dl class="defsig"> <dt class="defsig" id="def:call.2fcc"><span class="sig"><var class="id">call/cc</var> <var class="arg">PROCEDURE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>An alias for <tt>call-with-current-continuation</tt>.</p><p>This procedure is compatible with the definition from the R7RS <tt>(scheme base)</tt> library.</p></dd></dl><h3 id="sec:Symbols"><a href="#sec:Symbols">Symbols</a></h3><h4 id="sec:Symbol_utilities"><a href="#sec:Symbol_utilities">Symbol utilities</a></h4><h5 id="sec:symbol-append"><a href="#sec:symbol-append">symbol-append</a></h5> <dl class="defsig"> <dt class="defsig" id="def:symbol-append"><span class="sig"><var class="id">symbol-append</var> <var class="arg">SYMBOL1</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Creates a new symbol from the concatenated names of the argument symbols <tt>(SYMBOL1 ...)</tt>.</p></dd></dl><h4 id="sec:Uninterned_symbols_.28.22gensyms.22.29"><a href="#sec:Uninterned_symbols_.28.22gensyms.22.29">Uninterned symbols (&quot;gensyms&quot;)</a></h4><p>Symbols may be &quot;interned&quot; or &quot;uninterned&quot;. Interned symbols are registered in a global table, and when read back from a port are identical to a symbol written before:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> sym &#x27;foo</span>)</span> <span class="paren1">(<span class="default">eq? sym <span class="paren2">(<span class="default"><i><span class="symbol">with-input-from-string</span></i> <span class="paren3">(<span class="default"><i><span class="symbol">with-output-to-string</span></i> <span class="paren4">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren5">(<span class="default"></span>)</span> <span class="paren5">(<span class="default">write sym</span>)</span></span>)</span></span>)</span> read</span>)</span></span>)</span> =&gt; #t</pre><p>Uninterned symbols on the other hand are not globally registered and so multiple symbols with the same name may coexist:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> sym <span class="paren2">(<span class="default">gensym &#x27;foo</span>)</span></span>)</span> <span class="comment">; sym is a uninterned symbol like &quot;foo42&quot; </span> <span class="paren1">(<span class="default">eq? sym <span class="paren2">(<span class="default"><i><span class="symbol">with-input-from-string</span></i> <span class="comment">; the symbol read will be an interned symbol </span> <span class="paren3">(<span class="default"><i><span class="symbol">with-output-to-string</span></i> <span class="paren4">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren5">(<span class="default"></span>)</span> <span class="paren5">(<span class="default">write sym</span>)</span></span>)</span></span>)</span> read</span>)</span></span>)</span> =&gt; #f <span class="paren1">(<span class="default">eq? <span class="paren2">(<span class="default">string-&gt;uninterned-symbol <span class="string">&quot;foo&quot;</span></span>)</span> <span class="paren2">(<span class="default">string-&gt;uninterned-symbol <span class="string">&quot;foo&quot;</span></span>)</span></span>)</span> =&gt; #f</pre><p>Use uninterned symbols if you need to generate unique values that can be compared quickly, for example as keys into a hash-table or association list. Note that uninterned symbols lose their uniqueness property when written to a file and read back in, as in the example above.</p><h5 id="sec:gensym"><a href="#sec:gensym">gensym</a></h5> <dl class="defsig"> <dt class="defsig" id="def:gensym"><span class="sig"><var class="id">gensym</var> <var class="dsssl">#!optional</var> <var class="arg">STRING-OR-SYMBOL</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly created uninterned symbol. If an argument is provided, the new symbol is prefixed with that argument.</p></dd></dl><h5 id="sec:string-.3euninterned-symbol"><a href="#sec:string-.3euninterned-symbol">string-&gt;uninterned-symbol</a></h5> <dl class="defsig"> <dt class="defsig" id="def:string-.3euninterned-symbol"><span class="sig"><var class="id">string-&gt;uninterned-symbol</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a newly created, unique symbol with the name <var class="arg">STRING</var>.</p></dd></dl><h3 id="sec:Setters"><a href="#sec:Setters">Setters</a></h3><p>SRFI-17 is fully implemented. For more information see: <a href="http://srfi.schemers.org/srfi-17/srfi-17.html">SRFI-17</a>.</p><h4 id="sec:setter"><a href="#sec:setter">setter</a></h4> <dl class="defsig"> <dt class="defsig" id="def:setter"><span class="sig"><var class="id">setter</var> <var class="arg">PROCEDURE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns the setter-procedure of <var class="arg">PROCEDURE</var>, or signals an error if <var class="arg">PROCEDURE</var> has no associated setter-procedure.</p><p>Note that <tt>(set! (setter PROC) ...)</tt> for a procedure that has no associated setter procedure yet is a very slow operation (the old procedure is replaced by a modified copy, which involves a garbage collection).</p></dd></dl><h4 id="sec:getter-with-setter"><a href="#sec:getter-with-setter">getter-with-setter</a></h4> <dl class="defsig"> <dt class="defsig" id="def:getter-with-setter"><span class="sig"><var class="id">getter-with-setter</var> <var class="arg">GETTER</var> <var class="arg">SETTER</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a copy of the procedure <var class="arg">GETTER</var> with the associated setter procedure <var class="arg">SETTER</var>. Contrary to the SRFI specification, the setter of the returned procedure may be changed.</p></dd></dl><h3 id="sec:Binding_forms_for_optional_arguments"><a href="#sec:Binding_forms_for_optional_arguments">Binding forms for optional arguments</a></h3><h4 id="sec:optional"><a href="#sec:optional">optional</a></h4> <dl class="defsig"> <dt class="defsig" id="def:optional"><span class="sig"><tt>(optional ARGS DEFAULT)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Use this form for procedures that take a single optional argument. If <tt>ARGS</tt> is the empty list <tt>DEFAULT</tt> is evaluated and returned, otherwise the first element of the list <tt>ARGS</tt>. It is an error if <tt>ARGS</tt> contains more than one value.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">incr x . i</span>)</span> <span class="paren2">(<span class="default">+ x <span class="paren3">(<span class="default">optional i 1</span>)</span></span>)</span></span>)</span> <span class="paren1">(<span class="default">incr 10</span>)</span> ==&gt; 11 <span class="paren1">(<span class="default">incr 12 5</span>)</span> ==&gt; 17</pre></dd></dl><h4 id="sec:case-lambda"><a href="#sec:case-lambda">case-lambda</a></h4> <dl class="defsig"> <dt class="defsig" id="def:case-lambda"><span class="sig"><tt>(case-lambda (LAMBDA-LIST1 EXP1 ...) ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Expands into a lambda that invokes the body following the first matching lambda-list.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> plus <span class="paren2">(<span class="default">case-lambda <span class="paren3">(<span class="default"><span class="paren4">(<span class="default"></span>)</span> 0</span>)</span> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">x</span>)</span> x</span>)</span> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">x y</span>)</span> <span class="paren4">(<span class="default">+ x y</span>)</span></span>)</span> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">x y z</span>)</span> <span class="paren4">(<span class="default">+ <span class="paren5">(<span class="default">+ x y</span>)</span> z</span>)</span></span>)</span> <span class="paren3">(<span class="default">args <span class="paren4">(<span class="default">apply + args</span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren1">(<span class="default">plus</span>)</span> ==&gt; 0 <span class="paren1">(<span class="default">plus 1</span>)</span> ==&gt; 1 <span class="paren1">(<span class="default">plus 1 2 3</span>)</span> ==&gt; 6</pre><p>For more information see the documentation for <a href="http://srfi.schemers.org/srfi-16/srfi-16.html">SRFI-16</a></p><p>This special form is also compatible with the definition from the R7RS <tt>(scheme case-lambda)</tt> library.</p></dd></dl><h4 id="sec:let-optionals"><a href="#sec:let-optionals">let-optionals</a></h4> <dl class="defsig"> <dt class="defsig" id="def:let-optionals"><span class="sig"><tt> (let-optionals ARGS ((VAR1 DEFAULT1) ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Binding constructs for optional procedure arguments. <tt>ARGS</tt> is normally a rest-parameter taken from a lambda-list. <tt>let-optionals</tt> binds <tt>VAR1 ...</tt> to available arguments in parallel, or to <tt>DEFAULT1 ...</tt> if not enough arguments were provided. <tt>let-optionals*</tt> binds <tt>VAR1 ...</tt> sequentially, so every variable sees the previous ones. it is an error if any excess arguments are provided.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">let-optionals &#x27;<span class="paren2">(<span class="default">one two</span>)</span> <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">a 1</span>)</span> <span class="paren3">(<span class="default">b 2</span>)</span> <span class="paren3">(<span class="default">c 3</span>)</span></span>)</span> <span class="paren2">(<span class="default">list a b c</span>)</span> </span>)</span> ==&gt; <span class="paren1">(<span class="default">one two 3</span>)</span></pre></dd></dl><h4 id="sec:let-optionals.2a"><a href="#sec:let-optionals.2a">let-optionals*</a></h4> <dl class="defsig"> <dt class="defsig" id="def:let-optionals.2a"><span class="sig"><tt> (let-optionals* ARGS ((VAR1 DEFAULT1) ... [RESTVAR]) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Binding constructs for optional procedure arguments. <tt>ARGS</tt> is normally a rest-parameter taken from a lambda-list. <tt>let-optionals</tt> binds <tt>VAR1 ...</tt> to available arguments in parallel, or to <tt>DEFAULT1 ...</tt> if not enough arguments were provided. <tt>let-optionals*</tt> binds <tt>VAR1 ...</tt> sequentially, so every variable sees the previous ones. If a single variable <tt>RESTVAR</tt> is given, then it is bound to any remaining arguments, otherwise it is an error if any excess arguments are provided.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">let-optionals* &#x27;<span class="paren2">(<span class="default">one two</span>)</span> <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">a 1</span>)</span> <span class="paren3">(<span class="default">b 2</span>)</span> <span class="paren3">(<span class="default">c a</span>)</span></span>)</span> <span class="paren2">(<span class="default">list a b c</span>)</span> </span>)</span> ==&gt; <span class="paren1">(<span class="default">one two one</span>)</span></pre></dd></dl><h3 id="sec:Other_binding_forms"><a href="#sec:Other_binding_forms">Other binding forms</a></h3><h4 id="sec:and-let.2a"><a href="#sec:and-let.2a">and-let*</a></h4> <dl class="defsig"> <dt class="defsig" id="def:and-let.2a"><span class="sig"><tt>(and-let* (BINDING ...) EXP1 EXP2 ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Bind sequentially and execute body. <tt>BINDING</tt> can be a list of a variable and an expression, a list with a single expression, or a single variable. If the value of an expression bound to a variable is <tt>#f</tt>, the <tt>and-let*</tt> form evaluates to <tt>#f</tt> (and the subsequent bindings and the body are not executed). Otherwise the next binding is performed. If all bindings/expressions evaluate to a true result, the body is executed normally and the result of the last expression is the result of the <tt>and-let*</tt> form. See also the documentation for <a href="http://srfi.schemers.org/srfi-2/srfi-2.html">SRFI-2</a>.</p></dd></dl><h4 id="sec:letrec.2a"><a href="#sec:letrec.2a">letrec*</a></h4> <dl class="defsig"> <dt class="defsig" id="def:letrec.2a"><span class="sig"><tt>(letrec* ((VARIABLE EXPRESSION) ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Implements R6RS/R7RS <tt>letrec*</tt>. <tt>letrec*</tt> is similar to <tt>letrec</tt> but binds the variables sequentially and is to <tt>letrec</tt> what <tt>let*</tt> is to <tt>let</tt>.</p><p>This special form is compatible with the definition from the R7RS <tt>(scheme base)</tt> library.</p></dd></dl><h4 id="sec:rec"><a href="#sec:rec">rec</a></h4> <dl class="defsig"> <dt class="defsig" id="def:rec"><span class="sig"><tt>(rec NAME EXPRESSION)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:rec"><span class="sig"><tt>(rec (NAME VARIABLE ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Allows simple definition of recursive definitions. <tt>(rec NAME EXPRESSION)</tt> is equivalent to <tt>(letrec ((NAME EXPRESSION)) NAME)</tt> and <tt>(rec (NAME VARIABLE ...) BODY ...)</tt> is the same as <tt>(letrec ((NAME (lambda (VARIABLE ...) BODY ...))) NAME)</tt>.</p></dd></dl><h4 id="sec:cut"><a href="#sec:cut">cut</a></h4> <dl class="defsig"> <dt class="defsig" id="def:cut"><span class="sig"><tt>(cut SLOT ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:cute"><span class="sig"><tt>(cute SLOT ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p><a href="http://srfi.schemers.org/srfi-26/srfi-26.html">Syntactic sugar for specializing parameters</a>.</p></dd></dl><h4 id="sec:define-values"><a href="#sec:define-values">define-values</a></h4> <dl class="defsig"> <dt class="defsig" id="def:define-values"><span class="sig"><tt>(define-values (NAME ...) VALUEEXP)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:define-values"><span class="sig"><tt>(define-values (NAME1 ... NAMEn . NAMEn+1) VALUEEXP)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:define-values"><span class="sig"><tt>(define-values NAME VALUEEXP)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines several variables at once, with the result values of expression <tt>VALUEEXP</tt>, similar to <tt>set!-values</tt>.</p><p>This special form is compatible with the definition from the R7RS <tt>(scheme base)</tt> library.</p></dd></dl><h4 id="sec:fluid-let"><a href="#sec:fluid-let">fluid-let</a></h4> <dl class="defsig"> <dt class="defsig" id="def:fluid-let"><span class="sig"><tt>(fluid-let ((VAR1 X1) ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Binds the variables <tt>VAR1 ...</tt> dynamically to the values <tt>X1 ...</tt> during execution of <tt>BODY ...</tt>. This implements <a href="http://srfi.schemers.org/srfi-15/srfi-15.html">SRFI-15</a>.</p></dd></dl><h4 id="sec:let-values"><a href="#sec:let-values">let-values</a></h4> <dl class="defsig"> <dt class="defsig" id="def:let-values"><span class="sig"><tt>(let-values (((NAME ...) VALUEEXP) ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Binds multiple variables to the result values of <tt>VALUEEXP ...</tt>. All variables are bound simultaneously. Like <tt>define-values</tt>, the <tt>(NAME ...)</tt> expression can be any basic lambda list (dotted tail notation is supported).</p><p>This special form implements <a href="http://srfi.schemers.org/srfi-11/srfi-11.html">SRFI-11</a>, and it is also compatible with the definition from the R7RS <tt>(scheme base)</tt> library.</p></dd></dl><h4 id="sec:let.2a-values"><a href="#sec:let.2a-values">let*-values</a></h4> <dl class="defsig"> <dt class="defsig" id="def:let.2a-values"><span class="sig"><tt>(let*-values (((NAME ...) VALUEEXP) ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Binds multiple variables to the result values of <tt>VALUEEXP ...</tt>. The variables are bound sequentially. Like <tt>let-values</tt>, the <tt>(NAME ...)</tt> expression can be any basic lambda list (dotted tail notation is supported).</p><p>This is also part of <a href="http://srfi.schemers.org/srfi-11/srfi-11.html">SRFI-11</a> and is also compatible with the definition from the R7RS <tt>(scheme base)</tt> library.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">let*-values <span class="paren2">(<span class="default"><span class="paren3">(<span class="default"><span class="paren4">(<span class="default">a b</span>)</span> <span class="paren4">(<span class="default">values 2 3</span>)</span></span>)</span> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">p</span>)</span> <span class="paren4">(<span class="default">+ a b</span>)</span></span>)</span> </span>)</span> p</span>)</span> ==&gt; 5</pre></dd></dl><h4 id="sec:letrec-values"><a href="#sec:letrec-values">letrec-values</a></h4> <dl class="defsig"> <dt class="defsig" id="def:letrec-values"><span class="sig"><tt>(letrec-values (((NAME ...) VALUEEXP) ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Binds the result values of <tt>VALUEEXP ...</tt> to multiple variables at once. All variables are mutually recursive. Like <tt>let-values</tt>, the <tt>(NAME ...)</tt> expression can be any basic lambda list (dotted tail notation is supported).</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">letrec-values <span class="paren2">(<span class="default"><span class="paren3">(<span class="default"><span class="paren4">(<span class="default">odd even</span>)</span> <span class="paren4">(<span class="default">values <span class="paren5">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren6">(<span class="default">n</span>)</span> <span class="paren6">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren1">(<span class="default">zero? n</span>)</span> #f <span class="paren1">(<span class="default">even <span class="paren2">(<span class="default">sub1 n</span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren5">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren6">(<span class="default">n</span>)</span> <span class="paren6">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren1">(<span class="default">zero? n</span>)</span> #t <span class="paren1">(<span class="default">odd <span class="paren2">(<span class="default">sub1 n</span>)</span></span>)</span></span>)</span></span>)</span> </span>)</span> </span>)</span> </span>)</span> <span class="paren2">(<span class="default">odd 17</span>)</span> </span>)</span> ==&gt; #t</pre></dd></dl><h4 id="sec:receive"><a href="#sec:receive">receive</a></h4> <dl class="defsig"> <dt class="defsig" id="def:receive"><span class="sig"><tt>(receive (NAME ...) VALUEEXP BODY ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:receive"><span class="sig"><tt>(receive (NAME1 ... NAMEn . NAMEn+1) VALUEEXP BODY ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:receive"><span class="sig"><tt>(receive NAME VALUEEXP BODY ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:receive"><span class="sig"><tt>(receive VALUEEXP)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p><a href="http://srfi.schemers.org/srfi-8/srfi-8.html">SRFI-8</a>. Syntactic sugar for <tt>call-with-values</tt>. Binds variables to the result values of <tt>VALUEEXP</tt> and evaluates <tt>BODY ...</tt>, similar <tt>define-values</tt> but lexically scoped.</p><p><tt>(receive VALUEEXP)</tt> is equivalent to <tt>(receive _ VALUEEXP _)</tt>. This shortened form is not described by SRFI-8.</p></dd></dl><h4 id="sec:set.21-values"><a href="#sec:set.21-values">set!-values</a></h4> <dl class="defsig"> <dt class="defsig" id="def:set.21-values"><span class="sig"><tt>(set!-values (NAME ...) VALUEEXP)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:set.21-values"><span class="sig"><tt>(set!-values (NAME1 ... NAMEn . NAMEn+1) VALUEEXP)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:set.21-values"><span class="sig"><tt>(set!-values NAME VALUEEXP)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Assigns the result values of expression <tt>VALUEEXP</tt> to multiple variables, similar to <tt>define-values</tt>.</p></dd></dl><h4 id="sec:nth-value"><a href="#sec:nth-value">nth-value</a></h4> <dl class="defsig"> <dt class="defsig" id="def:nth-value"><span class="sig"><tt>(nth-value N EXP)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Returns the <tt>N</tt>th value (counting from zero) of the values returned by expression <tt>EXP</tt>.</p></dd></dl><h3 id="sec:Parameters"><a href="#sec:Parameters">Parameters</a></h3><p>Parameters are CHICKEN's form of dynamic variables, except that they are procedures rather than actual variables. A parameter is a procedure of zero or one arguments. To retrieve the value of a parameter call the parameter-procedure with zero arguments. To change the setting of the parameter, call the parameter-procedure with the new value as argument:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> foo <span class="paren2">(<span class="default">make-parameter 123</span>)</span></span>)</span> <span class="paren1">(<span class="default">foo</span>)</span> ==&gt; 123 <span class="paren1">(<span class="default">foo 99</span>)</span> <span class="paren1">(<span class="default">foo</span>)</span> ==&gt; 99</pre><p>Parameters are fully thread-local, each thread of execution owns a local copy of a parameters' value.</p><p>CHICKEN implements <a href="http://srfi.schemers.org/srfi-39/srfi-39.html">SRFI-39</a>, which is also standardized by R7RS.</p><h4 id="sec:parameterize"><a href="#sec:parameterize">parameterize</a></h4> <dl class="defsig"> <dt class="defsig" id="def:parameterize"><span class="sig"><tt>(parameterize ((PARAMETER1 X1) ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Binds the parameters <tt>PARAMETER1 ...</tt> dynamically to the values <tt>X1 ...</tt> during execution of <tt>BODY ...</tt>. (see also: <tt>make-parameter</tt> in <a href="Parameters.html">Parameters</a>). Note that <tt>PARAMETER</tt> may be any expression that evaluates to a parameter procedure.</p><p>This special form is compatible with the definition from the R7RS <tt>(scheme base)</tt> library.</p></dd></dl><h4 id="sec:make-parameter"><a href="#sec:make-parameter">make-parameter</a></h4> <dl class="defsig"> <dt class="defsig" id="def:make-parameter"><span class="sig"><var class="id">make-parameter</var> <var class="arg">VALUE</var> <var class="dsssl">#!optional</var> <var class="arg">GUARD</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a procedure that accepts zero or one argument. Invoking the procedure with zero arguments returns <var class="arg">VALUE</var>. Invoking the procedure with one argument changes its value to the value of that argument and returns the new value (subsequent invocations with zero parameters return the new value). <var class="arg">GUARD</var> should be a procedure of a single argument. Any new values of the parameter (even the initial value) are passed to this procedure. The guard procedure should check the value and/or convert it to an appropriate form.</p><p>This special form is compatible with the definition from the R7RS <tt>(scheme base)</tt> library.</p></dd></dl><h3 id="sec:Substitution_forms_and_macros"><a href="#sec:Substitution_forms_and_macros">Substitution forms and macros</a></h3><h4 id="sec:define-constant"><a href="#sec:define-constant">define-constant</a></h4> <dl class="defsig"> <dt class="defsig" id="def:define-constant"><span class="sig"><tt>(define-constant NAME CONST)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines a variable with a constant value, evaluated at compile-time. Any reference to such a constant should appear textually <b>after</b> its definition. This construct is equivalent to <tt>define</tt> when evaluated or interpreted. Constant definitions should only appear at toplevel. Note that constants are local to the current compilation unit and are not available outside of the source file in which they are defined. Names of constants still exist in the Scheme namespace and can be lexically shadowed. If the value is mutable, then the compiler is careful to preserve its identity. <tt>CONST</tt> may be any constant expression, and may also refer to constants defined via <tt>define-constant</tt> previously, but it must be possible to evaluate the expression at compile-time.</p></dd></dl><h4 id="sec:define-inline"><a href="#sec:define-inline">define-inline</a></h4> <dl class="defsig"> <dt class="defsig" id="def:define-inline"><span class="sig"><tt>(define-inline (NAME VAR ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:define-inline"><span class="sig"><tt>(define-inline (NAME VAR ... . VAR) BODY ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:define-inline"><span class="sig"><tt>(define-inline NAME EXP)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines an inline procedure. Any occurrence of <tt>NAME</tt> will be replaced by <tt>EXP</tt> or <tt>(lambda (VAR ... [. VAR]) BODY ...)</tt>. This is similar to a macro, but variable names and scope are handled correctly.</p><p>Inline substitutions take place <b>after</b> macro-expansion, and any reference to <tt>NAME</tt> should appear textually <b>after</b> its definition. Inline procedures are local to the current compilation unit and are not available outside of the source file in which they are defined. Names of inline procedures still exist in the Scheme namespace and can be lexically shadowed. Inline definitions should only appear at the toplevel.</p><p>Note that the <tt>inline-limit</tt> compiler option does not affect inline procedure expansion, and self-referential inline procedures may cause the compiler to enter an infinite loop.</p><p>In the third form, <tt>EXP</tt> must be a lambda expression.</p><p>This construct is equivalent to <tt>define</tt> when evaluated or interpreted.</p></dd></dl><h3 id="sec:Conditional_forms"><a href="#sec:Conditional_forms">Conditional forms</a></h3><h4 id="sec:select"><a href="#sec:select">select</a></h4> <dl class="defsig"> <dt class="defsig" id="def:select"><span class="sig"><tt>(select EXP ((KEY ...) EXP1 ...) ... [(else EXPn ...)])</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>This is similar to <tt>case</tt>, but the keys are evaluated.</p></dd></dl><h4 id="sec:unless"><a href="#sec:unless">unless</a></h4> <dl class="defsig"> <dt class="defsig" id="def:unless"><span class="sig"><tt>(unless TEST EXP1 EXP2 ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Equivalent to:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren2">(<span class="default">not TEST</span>)</span> <span class="paren2">(<span class="default">begin EXP1 EXP2 ...</span>)</span></span>)</span></pre></dd></dl><h4 id="sec:when"><a href="#sec:when">when</a></h4> <dl class="defsig"> <dt class="defsig" id="def:when"><span class="sig"><tt>(when TEST EXP1 EXP2 ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Equivalent to:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">if</span></i> TEST <span class="paren2">(<span class="default">begin EXP1 EXP2 ...</span>)</span></span>)</span></pre></dd></dl><h3 id="sec:Record_structures"><a href="#sec:Record_structures">Record structures</a></h3><h4 id="sec:define-record"><a href="#sec:define-record">define-record</a></h4> <dl class="defsig"> <dt class="defsig" id="def:define-record"><span class="sig"><tt>(define-record NAME SLOTNAME ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines a record type. This defines a number of procedures for creating, accessing, and modifying record members.</p><p>Call <tt>make-NAME</tt> to create an instance of the structure (with one initialization-argument for each slot, in the listed order).</p><p><tt>(NAME? STRUCT)</tt> tests any object for being an instance of this structure.</p><p>Slots are accessed via <tt>(NAME-SLOTNAME STRUCT)</tt> and updated using <tt>(NAME-SLOTNAME-set!</tt> <tt>STRUCT</tt> <tt>VALUE)</tt>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define-record</span></i> point x y</span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> p1 <span class="paren2">(<span class="default">make-point 123 456</span>)</span></span>)</span> <span class="paren1">(<span class="default">point? p1</span>)</span> ==&gt; #t <span class="paren1">(<span class="default">point-x p1</span>)</span> ==&gt; 123 <span class="paren1">(<span class="default">point-y-set! p1 99</span>)</span> <span class="paren1">(<span class="default">point-y p1</span>)</span> ==&gt; 99</pre></dd></dl><h5 id="sec:SRFI-17_setters"><a href="#sec:SRFI-17_setters">SRFI-17 setters</a></h5><p><tt>SLOTNAME</tt> may alternatively also be of the form</p><pre> (setter SLOTNAME)</pre><p>In this case the slot can be read with <tt>(NAME-SLOTNAME STRUCT)</tt> as usual, and modified with <tt>(set! (NAME-SLOTNAME STRUCT) VALUE)</tt> (the slot-accessor has an associated SRFI-17 &quot;setter&quot; procedure) instead of the usual <tt>(NAME-SLOTNAME-set!</tt> <tt>STRUCT</tt> <tt>VALUE)</tt>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define-record</span></i> point <span class="paren2">(<span class="default">setter x</span>)</span> <span class="paren2">(<span class="default">setter y</span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> p1 <span class="paren2">(<span class="default">make-point 123 456</span>)</span></span>)</span> <span class="paren1">(<span class="default">point? p1</span>)</span> ==&gt; #t <span class="paren1">(<span class="default">point-x p1</span>)</span> ==&gt; 123 <span class="paren1">(<span class="default">set! <span class="paren2">(<span class="default">point-y p1</span>)</span> 99</span>)</span> <span class="paren1">(<span class="default">point-y p1</span>)</span> ==&gt; 99</pre><h4 id="sec:define-record-type"><a href="#sec:define-record-type">define-record-type</a></h4> <dl class="defsig"> <dt class="defsig" id="def:define-record-type"><span class="sig"><tt>(define-record-type NAME (CONSTRUCTOR TAG ...) PREDICATE (FIELD ACCESSOR [MODIFIER]) ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>SRFI-9 record types. For more information see the documentation for <a href="http://srfi.schemers.org/srfi-9/srfi-9.html">SRFI-9</a>.</p><p>As an extension the <tt>MODIFIER</tt> may have the form <tt>(setter PROCEDURE)</tt>, which will define a SRFI-17 setter-procedure for the given <tt>PROCEDURE</tt> that sets the field value. Usually <tt>PROCEDURE</tt> has the same name is <tt>ACCESSOR</tt> (but it doesn't have to).</p><p>This special form is also compatible with the definition from the R7RS <tt>(scheme base)</tt> library.</p></dd></dl><h4 id="sec:define-record-printer"><a href="#sec:define-record-printer">define-record-printer</a></h4> <dl class="defsig"> <dt class="defsig" id="def:define-record-printer"><span class="sig"><tt>(define-record-printer (NAME RECORDVAR PORTVAR) BODY ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:define-record-printer"><span class="sig"><tt>(define-record-printer NAME PROCEDURE)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines a printing method for record of the type <tt>NAME</tt> by associating a procedure with the record type. When a record of this type is written using <tt>display, write</tt> or <tt>print</tt>, then the procedure is called with two arguments: the record to be printed and an output-port.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define-record-type</span></i> foo <span class="paren2">(<span class="default">make-foo x y z</span>)</span> foo? <span class="paren2">(<span class="default">x foo-x</span>)</span> <span class="paren2">(<span class="default">y foo-y</span>)</span> <span class="paren2">(<span class="default">z foo-z</span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> f <span class="paren2">(<span class="default">make-foo 1 2 3</span>)</span></span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define-record-printer</span></i> <span class="paren2">(<span class="default">foo x out</span>)</span> <span class="paren2">(<span class="default">fprintf out <span class="string">&quot;#,(foo ~S ~S ~S)&quot;</span> <span class="paren3">(<span class="default">foo-x x</span>)</span> <span class="paren3">(<span class="default">foo-y x</span>)</span> <span class="paren3">(<span class="default">foo-z x</span>)</span></span>)</span> </span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define-reader-ctor</span></i> &#x27;foo make-foo</span>)</span> <span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> s <span class="paren2">(<span class="default"><i><span class="symbol">with-output-to-string</span></i> <span class="paren3">(<span class="default"><i><span class="symbol">lambda</span></i> <span class="paren4">(<span class="default"></span>)</span> <span class="paren4">(<span class="default">write f</span>)</span></span>)</span></span>)</span></span>)</span> s ==&gt; <span class="string">&quot;#,(foo 1 2 3)&quot;</span> <span class="paren1">(<span class="default">equal? f <span class="paren2">(<span class="default"><i><span class="symbol">with-input-from-string</span></i> s read</span>)</span></span>)</span>) ==&gt; #t</pre></dd></dl><h3 id="sec:Other_forms"><a href="#sec:Other_forms">Other forms</a></h3><h4 id="sec:include"><a href="#sec:include">include</a></h4> <dl class="defsig"> <dt class="defsig" id="def:include"><span class="sig"><tt>(include STRING)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Include toplevel-expressions from the given source file in the currently compiled/interpreted program. If the included file has the extension <tt>.scm</tt>, then it may be omitted. The file is searched for in the current directory and all directories specified by the <tt>-include-path</tt> option.</p></dd></dl><h4 id="sec:include-relative"><a href="#sec:include-relative">include-relative</a></h4> <dl class="defsig"> <dt class="defsig" id="def:include-relative"><span class="sig"><tt>(include-relative STRING)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Works like <tt>include</tt>, but the filename is searched for relative to the including file rather than the current directory.</p></dd></dl><h3 id="sec:Making_extra_libraries_and_extensions_available"><a href="#sec:Making_extra_libraries_and_extensions_available">Making extra libraries and extensions available</a></h3><h4 id="sec:require-extension"><a href="#sec:require-extension">require-extension</a></h4> <dl class="defsig"> <dt class="defsig" id="def:require-extension"><span class="sig"><tt>(require-extension ID ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>This is equivalent to <tt>(require-library ID ...)</tt> but performs an implicit <tt>import</tt>, if necessary. Since version 4.4.0, <tt>ID</tt> may also be an import specification (using <tt>rename</tt>, <tt>only</tt>, <tt>except</tt> or <tt>prefix</tt>).</p><p>To make long matters short - just use <tt>require-extension</tt> and it will normally figure everything out for dynamically loadable extensions and core library units.</p><p>This implementation of <tt>require-extension</tt> is compliant with <a href="http://srfi.schemers.org/srfi-55/srfi-55.html">SRFI-55</a> (see the <a href="http://srfi.schemers.org/srfi-55/srfi-55.html">SRFI-55</a> document for more information).</p></dd></dl><h4 id="sec:require-library"><a href="#sec:require-library">require-library</a></h4> <dl class="defsig"> <dt class="defsig" id="def:require-library"><span class="sig"><tt>(require-library ID ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>This form does all the necessary steps to make the libraries or extensions given in <tt>ID ...</tt> available. It loads syntactic extensions, if needed and generates code for loading/linking with core library modules or separately installed extensions.</p><p>During interpretation/evaluation <tt>require-library</tt> performs one of the following:</p><ul><li>If <tt>ID</tt> names a built-in feature <tt>chicken srfi-0 srfi-2 srfi-6 srfi-8 srfi-9 srfi-10 srfi-17 srfi-23 srfi-30 srfi-39 srfi-55</tt>, then nothing is done.</li> <li>If <tt>ID</tt> names one of the syntactic extensions <tt>chicken-syntax chicken-ffi-syntax</tt>, then this extension will be loaded.</li> <li>If <tt>ID</tt> names one of the core library units shipped with CHICKEN, then a <tt>(load-library 'ID)</tt> will be performed.</li> <li>If <tt>ID</tt> names an installed extension with the <tt>syntax</tt> or <tt>require-at-runtime</tt> attribute, then the extensions is loaded at compile-time, probably doing a run-time <tt>(require ...)</tt> for any run-time requirements.</li> <li>Otherwise, <tt>(require-library ID)</tt> is equivalent to <tt>(require 'ID)</tt>.</li> </ul> <p>During compilation, one of the following happens instead:</p><ul><li>If <tt>ID</tt> names a built-in feature <tt>chicken srfi-0 srfi-2 srfi-6 srfi-8 srfi-9 srfi-10 srfi-17 srfi-23 srfi-30 srfi-39 srfi-55</tt>, then nothing is done.</li> <li>If <tt>ID</tt> names one of the syntactic extensions <tt>chicken-syntax chicken-ffi-syntax</tt>, then this extension will be loaded at compile-time, making the syntactic extensions available in compiled code.</li> <li>If <tt>ID</tt> names one of the core library units shipped with CHICKEN, or if the option <tt>-uses ID</tt> has been passed to the compiler, then a <tt>(declare (uses ID))</tt> is generated.</li> <li>If <tt>ID</tt> names an installed extension with the <tt>syntax</tt> or <tt>require-at-runtime</tt> attribute, then the extension is loaded at compile-time, and code is emitted to <tt>(require ...)</tt> any needed run-time requirements.</li> <li>Otherwise <tt>(require-library ID)</tt> is equivalent to <tt>(require 'ID)</tt>.</li> </ul> <p><tt>ID</tt> should be a pure extension name and should not contain any path prefixes (for example <tt>dir/lib...</tt> is illegal).</p><p><tt>ID</tt> may also be a list that designates an extension-specifier. Currently the following extension specifiers are defined:</p><ul><li><tt>(srfi NUMBER ...)</tt> is required for SRFI-55 compatibility and is fully implemented</li> <li><tt>(version ID NUMBER)</tt> is equivalent to <tt>ID</tt>, but checks at compile-time whether the extension named <tt>ID</tt> is installed and whether its version is equal or higher than <tt>NUMBER</tt>. <tt>NUMBER</tt> may be a string or a number, the comparison is done lexicographically (using <tt>string&gt;=?</tt>).</li> </ul> </dd></dl><h3 id="sec:Process_shutdown"><a href="#sec:Process_shutdown">Process shutdown</a></h3><h4 id="sec:emergency-exit"><a href="#sec:emergency-exit">emergency-exit</a></h4> <dl class="defsig"> <dt class="defsig" id="def:emergency-exit"><span class="sig"><var class="id">emergency-exit</var> <var class="dsssl">#!optional</var> <var class="arg">CODE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Exits the current process without flushing any buffered output (using the C function <tt>_exit</tt>). Note that the <tt>exit-handler</tt> is not called when this procedure is invoked. The optional exit status code <var class="arg">CODE</var> defaults to <tt>0</tt>.</p></dd></dl><h4 id="sec:exit"><a href="#sec:exit">exit</a></h4> <dl class="defsig"> <dt class="defsig" id="def:exit"><span class="sig"><var class="id">exit</var> <var class="dsssl">#!optional</var> <var class="arg">CODE</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Exit the running process and return exit-code, which defaults to 0 (Invokes <tt>exit-handler</tt>).</p><p>Note that pending <tt>dynamic-wind</tt> thunks are <i>not</i> invoked when exiting your program in this way.</p></dd></dl><h3 id="sec:exit-handler"><a href="#sec:exit-handler">exit-handler</a></h3> <dl class="defsig"> <dt class="defsig" id="def:exit-handler"><span class="sig"><var class="id">exit-handler</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>A procedure of a single optional argument. When <tt>exit</tt> is called, then this procedure will be invoked with the exit-code as argument. The default behavior is to terminate the program.</p><p>Note that this handler is <i>not</i> invoked when <tt>emergency-exit</tt> is used.</p></dd></dl><h3 id="sec:implicit-exit-handler"><a href="#sec:implicit-exit-handler">implicit-exit-handler</a></h3> <dl class="defsig"> <dt class="defsig" id="def:implicit-exit-handler"><span class="sig"><var class="id">implicit-exit-handler</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>A procedure of no arguments. When the last toplevel expression of the program has executed, then the value of this parameter is called. The default behaviour is to invoke all pending finalizers.</p></dd></dl><h4 id="sec:on-exit"><a href="#sec:on-exit">on-exit</a></h4> <dl class="defsig"> <dt class="defsig" id="def:on-exit"><span class="sig"><var class="id">on-exit</var> <var class="arg">THUNK</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Schedules the zero-argument procedures <var class="arg">THUNK</var> to be executed before the process exits, either explicitly via <tt>exit</tt> or implicitly after execution of the last top-level form. Note that finalizers for unreferenced finalized data are run before exit procedures.</p></dd></dl><h3 id="sec:System_interface"><a href="#sec:System_interface">System interface</a></h3><h4 id="sec:sleep"><a href="#sec:sleep">sleep</a></h4> <dl class="defsig"> <dt class="defsig" id="def:sleep"><span class="sig"><var class="id">sleep</var> <var class="arg">SECONDS</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Puts the program to sleep for <var class="arg">SECONDS</var>. If the scheduler is loaded (for example when srfi-18 is in use) then only the calling thread is put to sleep and other threads may continue executing. Otherwise, the whole process is put to sleep.</p></dd></dl><h3 id="sec:Ports"><a href="#sec:Ports">Ports</a></h3><h4 id="sec:String_ports"><a href="#sec:String_ports">String ports</a></h4><h5 id="sec:get-output-string"><a href="#sec:get-output-string">get-output-string</a></h5> <dl class="defsig"> <dt class="defsig" id="def:get-output-string"><span class="sig"><var class="id">get-output-string</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns accumulated output of a port created with <tt>(open-output-string)</tt>.</p></dd></dl><h5 id="sec:open-input-string"><a href="#sec:open-input-string">open-input-string</a></h5> <dl class="defsig"> <dt class="defsig" id="def:open-input-string"><span class="sig"><var class="id">open-input-string</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a port for reading from <var class="arg">STRING</var>.</p></dd></dl><h5 id="sec:open-output-string"><a href="#sec:open-output-string">open-output-string</a></h5> <dl class="defsig"> <dt class="defsig" id="def:open-output-string"><span class="sig"><var class="id">open-output-string</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a port for accumulating output in a string.</p></dd></dl><h3 id="sec:File_Input.2fOutput"><a href="#sec:File_Input.2fOutput">File Input/Output</a></h3><h4 id="sec:flush-output"><a href="#sec:flush-output">flush-output</a></h4> <dl class="defsig"> <dt class="defsig" id="def:flush-output"><span class="sig"><var class="id">flush-output</var> <var class="dsssl">#!optional</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Write buffered output to the given output-port. <var class="arg">PORT</var> defaults to the value of <tt>(current-output-port)</tt>.</p></dd></dl><h3 id="sec:Port_predicates"><a href="#sec:Port_predicates">Port predicates</a></h3><h4 id="sec:input-port-open.3f"><a href="#sec:input-port-open.3f">input-port-open?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:input-port-open.3f"><span class="sig"><var class="id">input-port-open?</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Is the given <var class="arg">PORT</var> open for input?</p></dd></dl> <dl class="defsig"> <dt class="defsig" id="def:output-port-open.3f"><span class="sig"><var class="id">output-port-open?</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Is the given <var class="arg">PORT</var> open for output?</p></dd></dl><h4 id="sec:port-closed.3f"><a href="#sec:port-closed.3f">port-closed?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:port-closed.3f"><span class="sig"><var class="id">port-closed?</var> <var class="arg">PORT</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Is the given <var class="arg">PORT</var> closed (in all directions)?</p></dd></dl><h4 id="sec:port.3f"><a href="#sec:port.3f">port?</a></h4> <dl class="defsig"> <dt class="defsig" id="def:port.3f"><span class="sig"><var class="id">port?</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if <var class="arg">X</var> is a port object or <tt>#f</tt> otherwise.</p></dd></dl><h3 id="sec:Built-in_parameters"><a href="#sec:Built-in_parameters">Built-in parameters</a></h3><p>Certain behavior of the interpreter and compiled programs can be customized via the following built-in parameters:</p><h4 id="sec:case-sensitive"><a href="#sec:case-sensitive">case-sensitive</a></h4> <dl class="defsig"> <dt class="defsig" id="def:case-sensitive"><span class="sig"><var class="id">case-sensitive</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>If true, then <tt>read</tt> reads symbols and identifiers in case-sensitive mode and uppercase characters in symbols are printed escaped. Defaults to <tt>#t</tt>.</p></dd></dl><h4 id="sec:keyword-style"><a href="#sec:keyword-style">keyword-style</a></h4> <dl class="defsig"> <dt class="defsig" id="def:keyword-style"><span class="sig"><var class="id">keyword-style</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>Enables alternative keyword syntax, where <tt>STYLE</tt> may be either <tt>#:prefix</tt> (as in Common Lisp), which recognizes symbols beginning with a colon as keywords, or <tt>#:suffix</tt> (as in DSSSL), which recognizes symbols ending with a colon as keywords. Any other value disables the alternative syntaxes. In the interpreter the default is <tt>#:suffix</tt>.</p></dd></dl><h4 id="sec:parenthesis-synonyms"><a href="#sec:parenthesis-synonyms">parenthesis-synonyms</a></h4> <dl class="defsig"> <dt class="defsig" id="def:parenthesis-synonyms"><span class="sig"><var class="id">parenthesis-synonyms</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>If true, then the list delimiter synonyms <tt>#\[</tt> <tt>#\]</tt> and <tt>#\{</tt> <tt>#\</tt>} are enabled. Defaults to <tt>#t</tt>.</p></dd></dl><h4 id="sec:symbol-escape"><a href="#sec:symbol-escape">symbol-escape</a></h4> <dl class="defsig"> <dt class="defsig" id="def:symbol-escape"><span class="sig"><var class="id">symbol-escape</var></span><span class="type">parameter</span></dt> <dd class="defsig"><p>If true, then the symbol escape <tt>#\|</tt> <tt>#\|</tt> is enabled. Defaults to <tt>#t</tt>.</p></dd></dl><hr /><p>Previous: <a href="Module%20srfi-4.html">Module srfi-4</a></p><p>Next: <a href="Module%20%28chicken%20bitwise%29.html">Module (chicken bitwise)</a></p></div></div></body>����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Deviations from the standard.html�����������������������������������������0000644�0001750�0001750�00000014025�13502230005�023377� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Deviations from the standard</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Confirmed_deviations_from_R5RS"><a href="#sec:Confirmed_deviations_from_R5RS">Confirmed deviations from R5RS</a></h2><p>Identifiers are by default case-sensitive (see <a href="Using%20the%20compiler.html">Using the compiler</a>).</p><h3 id="sec:Number_of_arguments_to_procedures_and_macros"><a href="#sec:Number_of_arguments_to_procedures_and_macros">Number of arguments to procedures and macros</a></h3><p>The maximal number of arguments that may be passed to a compiled procedure or macro is limited to around 1000. Likewise, the maximum number of values that can be passed to continuations captured using <tt>call-with-current-continuation</tt> is 1000. This is an implementation restriction that is unlikely to be lifted.</p><h3 id="sec:Numeric_string-conversion_considerations"><a href="#sec:Numeric_string-conversion_considerations">Numeric string-conversion considerations</a></h3><p>In some cases the runtime system uses the numerical string-conversion routines of the underlying C library. Consequently, the procedures <tt>string-&gt;number</tt>, <tt>read</tt>, <tt>write</tt>, and <tt>display</tt> do not obey read/write invariance for inexact numbers.</p><h3 id="sec:Environments_and_non-standard_syntax"><a href="#sec:Environments_and_non-standard_syntax">Environments and non-standard syntax</a></h3><p>In addition to the standard bindings, <tt>scheme-report-environment</tt> and <tt>null-environment</tt> contain additional non-standard bindings for the following syntactic forms: <tt>import</tt>, <tt>require-extension</tt>, <tt>require-library</tt>, <tt>begin-for-syntax</tt>, <tt>export</tt>, <tt>module</tt>, <tt>cond-expand</tt>, <tt>syntax</tt>, <tt>reexport</tt>, <tt>import-for-syntax</tt>.</p><h2 id="sec:Unconfirmed_deviations"><a href="#sec:Unconfirmed_deviations">Unconfirmed deviations</a></h2><h3 id="sec:char-ready.3f"><a href="#sec:char-ready.3f"><tt>char-ready?</tt></a></h3><p>The procedure <tt>char-ready?</tt> always returns <tt>#t</tt> for terminal ports.</p><h2 id="sec:Doubtful_deviations"><a href="#sec:Doubtful_deviations">Doubtful deviations</a></h2><h3 id="sec:letrec"><a href="#sec:letrec"><tt>letrec</tt></a></h3><p><tt>letrec</tt> does evaluate the initial values for the bound variables sequentially and not in parallel, that is:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">letrec <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">x 1</span>)</span> <span class="paren3">(<span class="default">y 2</span>)</span></span>)</span> <span class="paren2">(<span class="default">cons x y</span>)</span></span>)</span></pre><p>is equivalent to</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">x <span class="paren4">(<span class="default">void</span>)</span></span>)</span> <span class="paren3">(<span class="default">y <span class="paren4">(<span class="default">void</span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default">set! x 1</span>)</span> <span class="paren2">(<span class="default">set! y 2</span>)</span> <span class="paren2">(<span class="default">cons x y</span>)</span> </span>)</span></pre><p>where R5RS requires</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren2">(<span class="default"><span class="paren3">(<span class="default">x <span class="paren4">(<span class="default">void</span>)</span></span>)</span> <span class="paren3">(<span class="default">y <span class="paren4">(<span class="default">void</span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">let</span></i> <span class="paren3">(<span class="default"><span class="paren4">(<span class="default">tmp1 1</span>)</span> <span class="paren4">(<span class="default">tmp2 2</span>)</span></span>)</span> <span class="paren3">(<span class="default">set! x tmp1</span>)</span> <span class="paren3">(<span class="default">set! y tmp2</span>)</span> <span class="paren3">(<span class="default">cons x y</span>)</span> </span>)</span> </span>)</span></pre><p>It is unclear whether R5RS permits this behavior or not; in any case, this only affects letrecs where the bound values are not lambda-expressions.</p><h2 id="sec:Non-deviations_that_might_surprise_you"><a href="#sec:Non-deviations_that_might_surprise_you">Non-deviations that might surprise you</a></h2><h3 id="sec:let-syntax_and_letrec-syntax"><a href="#sec:let-syntax_and_letrec-syntax"><tt>let-syntax</tt> and <tt>letrec-syntax</tt></a></h3><p><tt>let-syntax</tt> and <tt>letrec-syntax</tt> introduce a new scope.</p><h3 id="sec:equal.3f_compares_all_structured_data_recursively"><a href="#sec:equal.3f_compares_all_structured_data_recursively"><tt>equal?</tt> compares all structured data recursively</a></h3><p><tt>equal?</tt> compares all structured data with the exception of procedures recursively, while R5RS specifies that <tt>eqv?</tt> is used for data other than pairs, strings and vectors. However, R5RS does not dictate the treatment of data types that are not specified by R5RS</p><h3 id="sec:transcript-on_and_transcript-off_are_not_implemented"><a href="#sec:transcript-on_and_transcript-off_are_not_implemented"><tt>transcript-on</tt> and <tt>transcript-off</tt> are not implemented</a></h3><p>The <tt>transcript-on</tt> and <tt>transcript-off</tt> procedures are not implemented. R5RS does not require them.</p><hr /><p>Previous: <a href="Using%20the%20compiler.html">Using the compiler</a></p><p>Next: <a href="Extensions%20to%20the%20standard.html">Extensions to the standard</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Extension tools.html������������������������������������������������������0000644�0001750�0001750�00000040352�13502230005�021123� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Extension tools</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Extension_tools">Extension tools</a> <ul> <li><a href="#sec:Security">Security</a></li> <li><a href="#sec:Changing_the_repository_location">Changing the repository location</a></li> <li><a href="#sec:Static_linking">Static linking</a></li> <li><a href="#sec:Locations">Locations</a></li> <li><a href="#sec:The_egg_cache">The egg cache</a></li> <li><a href="#sec:Egg_installation_in_detail">Egg installation in detail</a> <ul> <li><a href="#sec:Retrieval">Retrieval</a></li> <li><a href="#sec:Preparation">Preparation</a></li> <li><a href="#sec:Building_and_installation">Building and installation</a></li></ul></li> <li><a href="#sec:chicken-install_reference">chicken-install reference</a></li> <li><a href="#sec:chicken-uninstall_reference">chicken-uninstall reference</a></li> <li><a href="#sec:chicken-status_reference">chicken-status reference</a></li></ul></li></ul></div><h2 id="sec:Extension_tools"><a href="#sec:Extension_tools">Extension tools</a></h2><p>The basic tools to install, uninstall and view &quot;eggs&quot; and the extensions are <tt>chicken-install</tt>, <tt>chicken-uninstall</tt> and <tt>chicken-status</tt>.</p><p><tt>chicken-install</tt> can be used in two modes: first, as a simple package manager that downloads publicly available eggs (and their dependencies, if necessary) and compiles the contained extensions, installing them on a user's system.</p><p>For development of eggs, <tt>chicken-install</tt> can also be invoked without arguments, in a directory that contains an egg specification file and the associated source code, building all components and installing them.</p><p><tt>chicken-status</tt> simply lists installed eggs, the contained extensions, and optionally the files that where installed with a particular egg.</p><p>Below you will find a description of the available command line options for all three programs. A specification of the egg description file format is <a href="Egg%20specification%20format.html">here</a>.</p><h3 id="sec:Security"><a href="#sec:Security">Security</a></h3><p>When eggs are downloaded and installed one is executing code from potentially compromised systems. This applies also when <tt>chicken-install</tt> executes system tests for required eggs. As the code has been retrieved over the network effectively untrusted code is going to be evaluated. When <tt>chicken-install</tt> is run as <i>root</i> the whole system is at the mercy of the build instructions (note that this is also the case every time you install software via <tt>sudo make install</tt>, so this is not specific to the CHICKEN egg mechanism).</p><p>Security-conscious users should never run <tt>chicken-install</tt> as root. A simple remedy is to keep the repository inside a user's home directory (see the section &quot;Changing repository location&quot; below). Alternatively obtain write/execute access to the default location of the repository (usually <tt>/usr/local/lib/chicken</tt>) to avoid running as root. <tt>chicken-install</tt> also provides a <tt>-sudo</tt> option to perform the last installation steps as root user, but do building and other .setup script processing as normal. A third solution is to override <tt>VARDIR</tt> when building the system (for example by passing <tt>&quot;VARDIR=/foo/bar&quot;</tt> on the make command line, or by modifying <tt>config.make</tt>. Eggs will then be installed in <tt>$(VARDIR)/chicken/8</tt>.</p><h3 id="sec:Changing_the_repository_location"><a href="#sec:Changing_the_repository_location">Changing the repository location</a></h3><p>When CHICKEN is installed a repository for eggs is created and initialized in a default location (usually something like <tt>/usr/local/lib/chicken/9/</tt>). It is possible to keep an egg repository in another location. This can be configured at build-time by passing <tt>VARDIR=&lt;directory&gt;</tt> to <tt>make(3)</tt> or by modifying the <tt>config.make</tt> configuration file. If you want to override this location after chicken is installed, you can create a repository directory, set the <tt>CHICKEN_INSTALL_REPOSITORY</tt> and/or <tt>CHICKEN_REPOSITORY_PATH</tt> environment variables to the full path of the new reopsitory and copy all files from the default repository into the new one.</p><p>Note that your binary version can differ from the one given in the examples here, if your chicken version is older or newer than the one used in these examples. Check your default location for the correct binary-version number.</p><p><tt>CHICKEN_REPOSITORY_PATH</tt> is a directory (or a list of directories separated by <tt>:</tt>/<tt>;</tt>) where eggs are to be loaded from for all chicken-based programs. <tt>CHICKEN_INSTALL_REPOSITORY</tt> is the place where eggs will be installed and which the egg-related tools like <tt>chicken-install</tt>, <tt>chicken-uninstall</tt> and <tt>chicken-status</tt> consult and update. Make sure the paths given in these environment variables are absolute and not relative.</p><h3 id="sec:Static_linking"><a href="#sec:Static_linking">Static linking</a></h3><p>Static linking of extensions and programs is fully supported and should be transparent to the user. Every extension will by default be compiled into a dynamically loadable and a statically linkable entity. By passing <tt>-static</tt> on the <tt>csc</tt> command-line, eggs that are available in static form will be linked instead of the dynamically loadable version. Use the <tt>linkage</tt> egg description property to select in what modes a component should be built.</p><p>To identify the necessary object files during linking of extensions, <tt>csc</tt> creates so-called &quot;link files&quot; and installs them along the statically compiled object file in the local egg repository. These link files specify what objects should be linked when an application is using a static variant of an extension.</p><h3 id="sec:Locations"><a href="#sec:Locations">Locations</a></h3><p>For experimentation or in-house builds of software it may be useful to have private egg repositories in addition to the official CHICKEN egg repository. This can be accomplished by defining so-called &quot;locations&quot;, directories that contain egg source-code and description files and which should be scanned before trying to retrieve an egg via the network.</p><p>The file <tt>&lt;PREFIX&gt;/share/chicken/setup.defaults</tt> holds various parameters that define where eggs should be downloaded, together with more obscure options, and can be used to customize the sources where eggs will be retrieved from. Adding a line of the form</p><p><tt>(location &quot;&lt;PATH&gt;&quot;)</tt></p><p>will add <tt>&lt;PATH&gt;</tt> as an additional egg source, where <tt>&lt;PATH&gt;</tt> should be a directory in the local filesystem that contains any number of eggs, one directory for each, including the source code and the <tt>.egg</tt> files for each egg.</p><p>Locations are searched before trying to retrieve from the network. Any number of locations may be defined.</p><h3 id="sec:The_egg_cache"><a href="#sec:The_egg_cache">The egg cache</a></h3><p>Eggs are downloaded and built in the so called &quot;egg cache&quot;, an intermediate location used for storing already downloaded source code and for providing a temporary location for building the eggs before they are installed.</p><p>By default the cache is located in the directory <tt>.chicken-install/cache</tt> in the user's home directory (<tt>$HOME</tt> on UNIX, or <tt>%USERPROFILE%</tt> on Windows. If the respective environment variable is not set, then <tt>/tmp</tt> or <tt>/Temp</tt> is used.</p><p>Built extensions and programs remain in the cache, to avoid rebuilding already compiled code and multiple downloads of eggs in case the installation of an egg fails - the dependencies will be cached after the first download and re-download is not needed.</p><p><tt>chicken-install</tt> tries to take extreme care to avoid stale binaries, but should you be in doubt, simply delete the directory, or run <tt>chicken-install -purge</tt> to clear the cache or parts of it.</p><p>You can override the location of the cache by setting the <tt>CHICKEN_EGG_CACHE</tt> environment variable.</p><h3 id="sec:Egg_installation_in_detail"><a href="#sec:Egg_installation_in_detail">Egg installation in detail</a></h3><h4 id="sec:Retrieval"><a href="#sec:Retrieval">Retrieval</a></h4><p>First the egg names given on the command line (or, if no arguments are given, all eggs identified by <tt>.egg</tt> files in the current directory, including any in a subdirectory named <tt>chicken</tt>) must be retrieved, either from a local source or from the official egg repository. Should the egg exist in the egg cache we check whether this cached version is out of date. A cached egg is considered out of date, if a) it is locally available and all cached files belonging to the egg do not have newer timestamps than the local files, or b) if it is a remotely retrieved egg and no newer versions exist on the remote egg server and the last time the cache was filled from the remote location is not later than one hour. Additionally, if any changes in certain environment variables that may influence the compilation of an egg, or if the CHICKEN version changed, then retrieval of the egg sources is enforced in any case.</p><p>If the egg is in the current directory, or in a &quot;location&quot; (as described above), the files are copied into the cache. If the egg is remotely available, then it is retrieved via HTTP from one of the egg servers defined in <tt>setup.defaults</tt>.</p><p>Once the egg sources are retrieved and stored in the cache, their <tt>.egg</tt> files are loaded and validated. After this any egg dependencies are resolved and located in the cache, triggering a recursive retrieval, if necessary.</p><h4 id="sec:Preparation"><a href="#sec:Preparation">Preparation</a></h4><p>Unless the <tt>-retrieve</tt> option was given, the eggs intended to be built and installed are now scheduled for compilation. The egg information from the <tt>.egg</tt> files is processed and translated into build and install scripts for the current platform - if this CHICKEN was configured for cross compilation, and no separate host- or target-build was selected, two sets of build/install scripts will be generated, one for the host system and one for the target.</p><h4 id="sec:Building_and_installation"><a href="#sec:Building_and_installation">Building and installation</a></h4><p>Unless <tt>-dry-run</tt> was given on the command-line, the build- and install scripts are now executed, ordered by the dependency relationships between the full set of eggs that are scheduled for compilation. If the <tt>-test</tt> option was given and a file named <tt>run.scm</tt> exists in the <tt>tests</tt> subdirectory of the egg sources, then this script is executed. Should it terminate with an error or a non-zero exit code, the installation is still performed and <tt>chicken-install</tt> does not abort. Only after all scheduled eggs have been installed, <tt>chicken-install</tt> will terminate with a non-zero exit code.</p><p>Note that the build process attempts to minimize re-building of already compiled files in the cache, using the <tt>chicken-do</tt> program. See the manual page for <tt>chicken-do</tt> for more details.</p><p>From the egg-information in the <tt>.egg</tt> file, the set of files installed for a particular egg are added to the egg-information and stored together with the build-artifacts produced by the build scripts.</p><h3 id="sec:chicken-install_reference"><a href="#sec:chicken-install_reference">chicken-install reference</a></h3><p>Available options:</p><dl><dt><tt>-h -help</tt></dt> <dd>show this message and exit</dd><dt><tt>-version</tt></dt> <dd>show version and exit</dd><dt><tt>-force</tt></dt> <dd>don't ask, install even if versions don't match</dd><dt><tt>-k -keep</tt></dt> <dd>keep temporary files</dd><dt><tt>-s -sudo</tt></dt> <dd>use external command to elevate privileges when installing or removing files</dd><dt><tt>-no-install-dependencies</tt></dt> <dd>do not install dependencies</dd><dt><tt>-r -retrieve</tt></dt> <dd>only retrieve egg into cache directory, don't install (giving <tt>-r</tt> more than once implies <tt>-recursive</tt>)</dd><dt><tt>-recursive</tt></dt> <dd>if <tt>-retrieve</tt> is given, retrieve also dependencies</dd><dt><tt>-dry-run</tt></dt> <dd>do not build or install, just print the locations of the generated build + install scripts</dd><dt><tt>-list-versions</tt></dt> <dd>list available version for an extension (HTTP transport only)</dd><dt><tt>-n -no-install</tt></dt> <dd>do not install, only build the egg.</dd><dt><tt>-purge</tt></dt> <dd>remove cached files for given eggs (or purge cache completely)</dd><dt><tt>-cached</tt></dt> <dd>install from cache, do not download</dd><dt><tt>-host</tt></dt> <dd>when cross-compiling, compile egg for host only</dd><dt><tt>-target</tt></dt> <dd>when cross-compiling, compile egg for target only</dd><dt><tt>-test</tt></dt> <dd>run included test-cases, if available</dd><dt><tt>-u -update-db</tt></dt> <dd>update export database</dd><dt><tt>-repository</tt></dt> <dd>print path to egg repository</dd><dt><tt>-override FILENAME</tt></dt> <dd>override versions for installed eggs with information given in <tt>FILENAME</tt>, which can be generated by <tt>-scan</tt> or by the <tt>-list</tt> option of the <tt>chicken-status</tt> program</dd><dt><tt>-from-list FILENAME</tt></dt> <dd>install eggs given in <tt>FILENAME</tt>, in the same format as produced by the <tt>-list</tt> option in <tt>chicken-status</tt>; this option may be given multiple times</dd><dt><tt>-v -verbose</tt></dt> <dd>be verbose</dd><dt><tt>-D -feature NAME</tt></dt> <dd>defines a build feature, that can be tested using <tt>cond-expand</tt> in egg specifications</dd><dt><tt> -defaults FILENAME </tt></dt> <dd>use <tt>FILENAME</tt> as defaults instead of the installed <tt>setup.defaults</tt> file</dd></dl> <p><tt>chicken-install</tt> recognizes the <tt>SUDO</tt>, <tt>http_proxy</tt> and <tt>proxy_auth</tt> environment variables, if set.</p><p>When running <tt>chicken-install</tt> with an argument <tt>NAME</tt>, for which no associated <tt>.egg</tt> file exists, then it will try to download the extension via HTTP from the CHICKEN code repository at <a href="http://code.call-cc.org/svn/chicken-eggs/">http://code.call-cc.org/svn/chicken-eggs/</a>. Extensions that are required to compile and/or use the requested extension are downloaded and installed automatically.</p><h3 id="sec:chicken-uninstall_reference"><a href="#sec:chicken-uninstall_reference">chicken-uninstall reference</a></h3><dl><dt><tt>-h -help</tt></dt> <dd>show usage information and exit</dd><dt><tt>-version</tt></dt> <dd>show version and exit</dd><dt><tt>-force</tt></dt> <dd>don't ask, delete whatever matches</dd><dt><tt>-match</tt></dt> <dd>treat egg-names as glob patterns</dd><dt><tt>-s -sudo</tt></dt> <dd>use external command to elevate privileges for deleting files</dd><dt><tt>-host</tt></dt> <dd>when cross-compiling, remove eggs for host system only</dd><dt><tt>-target</tt></dt> <dd>when cross-compiling, remove eggs for target system only</dd></dl> <h3 id="sec:chicken-status_reference"><a href="#sec:chicken-status_reference">chicken-status reference</a></h3><dl><dt><tt>-h -help</tt></dt> <dd>show usage information and exit</dd><dt><tt>-version</tt></dt> <dd>show version and exit</dd><dt><tt>-f -files</tt></dt> <dd>list installed files</dd><dt><tt>-match</tt></dt> <dd>treat egg-names as glob patterns</dd><dt><tt>-host</tt></dt> <dd>when cross-compiling, show eggs for host system only</dd><dt><tt>-target</tt></dt> <dd>when cross-compiling, show eggs for target system only</dd><dt><tt>-list</tt></dt> <dd>list installed egg version in format suitable for <tt>chicken-install -override</tt> or <tt>-from-list</tt></dd><dt><tt>-c -components</tt></dt> <dd>list installed components</dd><dt><tt>-cached</tt></dt> <dd>list eggs available in the cache directory</dd></dl> <hr /><p>Previous: <a href="Extensions.html">Extensions</a></p><p>Next: <a href="Egg%20specification%20format.html">Egg specification format</a></p></div></div></body>��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Modules.html��������������������������������������������������������������0000644�0001750�0001750�00000060253�13502230006�017441� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Modules</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Modules">Modules</a> <ul> <li><a href="#sec:module">module</a></li> <li><a href="#sec:export">export</a></li> <li><a href="#sec:import">import</a> <ul> <li><a href="#sec:only">only</a></li> <li><a href="#sec:except">except</a></li> <li><a href="#sec:rename">rename</a></li> <li><a href="#sec:prefix">prefix</a></li></ul></li> <li><a href="#sec:import-syntax">import-syntax</a></li> <li><a href="#sec:import-for-syntax">import-for-syntax</a></li> <li><a href="#sec:import-syntax-for-syntax">import-syntax-for-syntax</a></li> <li><a href="#sec:reexport">reexport</a></li></ul></li> <li><a href="#sec:define-interface">define-interface</a></li> <li><a href="#sec:import_libraries">import libraries</a></li> <li><a href="#sec:Predefined_modules">Predefined modules</a></li> <li><a href="#sec:Examples_of_using_modules">Examples of using modules</a></li> <li><a href="#sec:Functors">Functors</a></li> <li><a href="#sec:current-module">current-module</a></li></ul></div><h3 id="sec:Modules"><a href="#sec:Modules">Modules</a></h3><p>To allow control over visible bindings and to organize code in namespaces, a module system is available. A <i>module</i> defines a set of toplevel expressions that are initially evaluated in an empty syntactical environment. By <i>importing</i> other modules, exported value- and syntax-bindings are made visible inside the environment of the module that imports them.</p><p>Note that modules are purely syntactical - they do not change the control flow or delay the execution of the contained toplevel forms. The body of a module is executed at load-time, when code is loaded or imported, just like normal toplevel expressions. Exported syntax-definitions are compiled as well, and can be accessed in interpreted or compiled code by loading and importing the compiled file that contains the module.</p><p>Imported toplevel bindings are mutable and can be assigned (with <tt>set!</tt>), any modifications to these will change the global value and will be visible to other modules that export or import the same toplevel binding.</p><p>A module is initially empty (has no visible bindings with the exception of <tt>import</tt> and <tt>cond-expand</tt>). You must at least import the <tt>scheme</tt> module to do anything useful. To access any of the non-standard macros and procedures, import the <tt>(chicken base)</tt> module.</p><p>CHICKEN's module system has the following features:</p><ul><li>Separation of compile/expansion-time and run-time code is provided, which allows cross compilation</li> <li>Supports batch-compilation of separate compilation units</li> <li>Imports can be lexically scoped</li> <li>Parameterized modules are supported</li> </ul> <p>At toplevel and outside of a module, the initially available bindings are everything that is exported from the <a href="Module%20scheme.html">scheme</a>, <a href="Module%20%28chicken%20base%29.html">(chicken base)</a> and <a href="Module%20%28chicken%20syntax%29.html">(chicken syntax)</a> modules.</p><h4 id="sec:module"><a href="#sec:module">module</a></h4> <dl class="defsig"> <dt class="defsig" id="def:module"><span class="sig"><tt>(module NAME (EXPORT ...) BODY ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:module"><span class="sig"><tt>(module NAME (EXPORT ...) FILENAME)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:module"><span class="sig"><tt>(module NAME * BODY ...)</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:module"><span class="sig"><tt>(module NAME = (FUNCTORNAME MODULENAME1 ...))</tt></span><span class="type">syntax</span></dt> <dt class="defsig" id="def:module"><span class="sig"><tt>(module NAME = FUNCTORNAME BODY ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines a module with the name <tt>NAME</tt>, a set of exported bindings and a contained sequence of toplevel expressions that are evaluated in an empty syntactical environment.</p><p><tt>NAME</tt> and <tt>FUNCTORNAME</tt> should be symbols or lists of symbols and integers, where <tt>(foo bar baz)</tt> is equivalent to <tt>foo.bar.baz</tt>.</p><p><tt>(EXPORT ...)</tt> should be an export-specification which holds a list of identifiers to be exported from the module and which should be visible when imported into another module or the toplevel environment. <tt>EXPORT</tt> may have any of the following forms:</p><p><tt>IDENTIFIER</tt> names a value- or syntax binding to be exported.</p><p><tt>(IDENTIFIER1 ...)</tt> or <tt>(syntax: IDENTIFIER1 ...)</tt> exports <tt>IDENTIFIER1</tt> (which should name a macro) and also arranges for the remaining identifiers in the list to be visible as value bindings in the expansion of the macro (this is a hint to the module expander to export bindings referenced by syntax-definitions which make use of them, but which would normally be internal to the module - which gives more opportunities for optimization).</p><p><tt>(interface: INTERFACENAME)</tt> adds all exports defined for the given interface to be added to the list of exported identifiers of this module.</p><p>As a special case, specifying <tt>*</tt> instead of an export-list will export all definitions. As another special case, the export-list may be a symbol naming an interface.</p><p>When the <tt>BODY</tt> consists of a single string, it is treated like <tt>(include FILENAME)</tt>.</p><p><tt>(module NAME = (FUNCTORNAME MODULENAME1 ...))</tt> instantiates a <i>functor</i> (see below for information about functors).</p><p><tt>(module NAME = FUNCTORNAME BODY ...)</tt> is a special form of <i>functor instantiation</i> where the <tt>BODY</tt> implements a module satisfying a single functor argument to <tt>FUNCTORNAME</tt>.</p><p>Nested modules, modules not at toplevel (i.e. local modules) or mutually recursive modules are not supported.</p><p>When compiled, the module information, including exported syntax is stored in the generated binary and available when loading it into interpreted or compiled code. Note that this is different to normal syntax (outside of module declarations), which are normally not exported from compiled code.</p><p>Note that the module system is only a device for controlling the mapping of identifiers to value or syntax bindings. Modules do not instantiate separate environments that contain their own bindings, as do many other module systems. Redefinition or assignment of value or syntax bindings will modify the original, imported definition.</p><p>Syntax expansions may result in module-definitions, but must be at toplevel.</p></dd></dl><h4 id="sec:export"><a href="#sec:export">export</a></h4> <dl class="defsig"> <dt class="defsig" id="def:export"><span class="sig"><tt>(export EXPORT ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Allows augmenting module-exports from inside the module-body. <tt>EXPORT</tt> is if the same form as an export-specifier in a <tt>module</tt> export list. An export must precede its first occurrence (either use or definition).</p><p>If used outside of a module, then this form does nothing.</p></dd></dl><h4 id="sec:import"><a href="#sec:import">import</a></h4> <dl class="defsig"> <dt class="defsig" id="def:import"><span class="sig"><tt>(import IMPORT ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Imports module bindings into the current syntactical environment. The visibility of any imported bindings is limited to the current module, if used inside a module-definition, or to the current compilation unit, if compiled and used outside of a module.</p><p>Importing a module will also load or link its associated library when needed.</p><p><tt>IMPORT</tt> may be a module name or an <i>import specifier</i>, where a module name is either a symbol or a list of symbols and integers. An <tt>IMPORT</tt> defines a set of bindings that are to be made visible in the current scope.</p></dd></dl><h5 id="sec:only"><a href="#sec:only">only</a></h5><pre>[import specifier] (only IMPORT IDENTIFIER ...)</pre><p>Only import the listed value- or syntax bindings from the set given by <tt>IMPORT</tt>.</p><h5 id="sec:except"><a href="#sec:except">except</a></h5><pre>[import specifier] (except IMPORT IDENTIFIER ...)</pre><p>Remove the listed identifiers from the import-set defined by <tt>IMPORT</tt>.</p><h5 id="sec:rename"><a href="#sec:rename">rename</a></h5><pre>[import specifier] (rename IMPORT (OLD1 NEW1) ...)</pre><p>Renames identifiers imported from <tt>IMPORT</tt>.</p><h5 id="sec:prefix"><a href="#sec:prefix">prefix</a></h5><pre>[import specifier] (prefix IMPORT SYMBOL)</pre><p>Prefixes all imported identifiers with <tt>SYMBOL</tt>.</p><h4 id="sec:import-syntax"><a href="#sec:import-syntax">import-syntax</a></h4> <dl class="defsig"> <dt class="defsig" id="def:import-syntax"><span class="sig"><tt>(import-syntax IMPORT ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Similar to <tt>import</tt> but only import syntactic definitions such as macros, as well as identifiers, but does not load or link the library containing the module.</p></dd></dl><h4 id="sec:import-for-syntax"><a href="#sec:import-for-syntax">import-for-syntax</a></h4> <dl class="defsig"> <dt class="defsig" id="def:import-for-syntax"><span class="sig"><tt>(import-for-syntax IMPORT ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Similar to <tt>import</tt>, but imports exported bindings of a module into the environment in which macro transformers are evaluated.</p><p>Note: currently this isn't fully correct - value bindings are still imported into the normal environment because a separate import environment for syntax has not been implemented (syntactic bindings are kept separate correctly).</p></dd></dl><h4 id="sec:import-syntax-for-syntax"><a href="#sec:import-syntax-for-syntax">import-syntax-for-syntax</a></h4> <dl class="defsig"> <dt class="defsig" id="def:import-syntax-for-syntax"><span class="sig"><tt>(import-syntax-for-syntax IMPORT ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Combination of <tt>import-syntax</tt> and <tt>import-for-syntax</tt>. Loads syntactic definitions and valinside the environment in which macro transformers are evaluated but do not load the associated library.</p></dd></dl><h4 id="sec:reexport"><a href="#sec:reexport">reexport</a></h4> <dl class="defsig"> <dt class="defsig" id="def:reexport"><span class="sig"><tt>(reexport IMPORT ...)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Imports <tt>IMPORT ...</tt> and automatically exports all imported identifiers. This can be used to build <i>compound modules</i>: modules that just extend other modules:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">module r4rs <span class="paren2">(<span class="default"></span>)</span> <span class="paren2">(<span class="default">import scheme <span class="paren3">(<span class="default">chicken module</span>)</span></span>)</span> <span class="paren2">(<span class="default">reexport <span class="paren3">(<span class="default">except scheme dynamic-wind values call-with-values eval scheme-report-environment null-environment interaction-environment</span>)</span></span>)</span></span>)</span></pre></dd></dl><h3 id="sec:define-interface"><a href="#sec:define-interface">define-interface</a></h3> <dl class="defsig"> <dt class="defsig" id="def:define-interface"><span class="sig"><tt>(define-interface INTERFACENAME (EXPORT ...))</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines an <i>interface</i>, a group of exports that can be used in module-definitions using the <tt>(interface: INTERFACE)</tt> syntax. See the definition of <tt>module</tt> above for an explanation of <tt>EXPORT</tt> specifications.</p><p>Interface names use a distinct global namespace. Interfaces defined inside modules are not visible outside of the module body.</p></dd></dl><h3 id="sec:import_libraries"><a href="#sec:import_libraries">import libraries</a></h3><p><i>import libraries</i> allow the syntactical (compile-time) and run-time parts of a compiled module to be separated into a normal compiled file and a shared library that only contains macro definitions and module information. This reduces the size of executables and simplifies compiling code that uses modules for a different architecture than the machine the compiler is executing on (i.e. &quot;cross&quot; compilation).</p><p>By using the <tt>emit-import-library</tt> compiler-option or declaration, a separate file is generated that only contains syntactical information (including macros) for a module. <tt>import</tt> will automatically find and load an import library for a currently unknown module, if the import- library is either in the extension repository or the current include path. Interpreted code can simply load the import library to make the module-definition available. Syntax-support definitions defined with <tt>define-for-syntax</tt> and expansion-time expressions of the form <tt>(begin-for-syntax ...)</tt> will be added to import libraries to make them available for exported syntax. Note that these definitions will ruthlessly pollute the toplevel namespace and so they should be used sparingly.</p><h3 id="sec:Predefined_modules"><a href="#sec:Predefined_modules">Predefined modules</a></h3><p>Import libraries for the following modules are initially available outside of a module:</p><pre>[module] scheme [module] (chicken base) [module] (chicken syntax)</pre><p>Every other module needs to be imported explicitly to have access to its exported identifiers.</p><h3 id="sec:Examples_of_using_modules"><a href="#sec:Examples_of_using_modules">Examples of using modules</a></h3><p>Here is a silly little test module to demonstrate how modules are defined and used:</p><pre>;; hello.scm (module test (hello greet) (import scheme) (define-syntax greet (syntax-rules () ((_ whom) (begin (display &quot;Hello, &quot;) (display whom) (display &quot; !\n&quot;) ) ) ) ) (define (hello) (greet &quot;world&quot;) ) )</pre><p>The module <tt>test</tt> exports one value (<tt>hello</tt>) and one syntax binding (<tt>greet</tt>). To use it in <tt>csi</tt>, the interpreter, simply load and import it:</p><pre> #;1&gt; ,l hello.scm ; loading hello.scm ... ; loading /usr/local/lib/chicken/4/scheme.import.so ... #;1&gt; (import test) #;2&gt; (hello) Hello, world ! #;3&gt; (greet &quot;you&quot;) Hello, you !</pre><p>The module can easily be compiled</p><pre> % csc -s hello.scm</pre><p>and used in an identical manner:</p><pre> #;1&gt; ,l hello.so ; loading hello.so ... #;1&gt; (import test) #;2&gt; (hello) Hello, world ! #;3&gt; (greet &quot;you&quot;) Hello, you !</pre><p>If you want to keep macro-definitions in a separate file, use import libraries:</p><pre> % csc -s hello.scm -j test % csc -s test.import.scm</pre><pre> #;1&gt; ,l hello.so ; loading hello.so ... #;1&gt; (import test) ; loading ./test.import.so ... #;2&gt; (hello) Hello, world ! #;3&gt; (greet &quot;you&quot;) Hello, you !</pre><p>If an import library (compiled or in source-form) is located somewhere in the extensions-repository or include path, it is automatically loaded on import. Otherwise you have to load it manually:</p><pre> #;1&gt; ,l hello.so ; loading hello.so ... #;1&gt; ,l test.import.so ; loading test.import.so ... #;1&gt; (import test) #;2&gt; </pre><p>Note that you must use import libraries if you compile code that depends on other modules. The compiler will not execute the modules that are referred to by compiled code, and thus the binding information and exported syntax of the former must be available separately.</p><h3 id="sec:Functors"><a href="#sec:Functors">Functors</a></h3><p>A <i>functor</i> is a higher-order module that can be parameterized with other modules. A functor defines the body of a module for a set of argument modules and can be instantiated with concrete module names specializing the code contained in the functor. This is best explained with a silly and pointless example:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">functor <span class="paren2">(<span class="default">squaring-functor <span class="paren3">(<span class="default">M <span class="paren4">(<span class="default">multiply</span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default">square</span>)</span> <span class="paren2">(<span class="default">import scheme M</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">square x</span>)</span> <span class="paren3">(<span class="default">multiply x x</span>)</span></span>)</span></span>)</span></pre><p>This defines a generic &quot;squaring&quot; operation that uses <tt>multiply</tt>, a procedure (or macro!) exported by the as-yet-unknown module <tt>M</tt>. Now let's instantiate the functor for a specific input module:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">module nums <span class="paren2">(<span class="default">multiply</span>)</span> <span class="paren2">(<span class="default">import scheme</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">multiply x y</span>)</span> <span class="paren3">(<span class="default">* x y</span>)</span></span>)</span></span>)</span> <span class="paren1">(<span class="default">module number-squarer = <span class="paren2">(<span class="default">squaring-functor nums</span>)</span></span>)</span> <span class="paren1">(<span class="default">import number-squarer</span>)</span> <span class="paren1">(<span class="default">square 3</span>)</span> ===&gt; 9</pre><p>We can easily instantiate the functor for other inputs:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">module stars <span class="paren2">(<span class="default">multiply</span>)</span> <span class="paren2">(<span class="default">import scheme</span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">list-tabulate n f</span>)</span> <span class="paren3">(<span class="default"><i><span class="symbol">let</span></i> <i><span class="symbol">loop</span></i> <span class="paren4">(<span class="default"><span class="paren5">(<span class="default">i 0</span>)</span></span>)</span> <span class="paren4">(<span class="default"><i><span class="symbol">if</span></i> <span class="paren5">(<span class="default">= i n</span>)</span> &#x27;<span class="paren5">(<span class="default"></span>)</span> <span class="paren5">(<span class="default">cons <span class="paren6">(<span class="default">f i</span>)</span> <span class="paren6">(<span class="default"><i><span class="symbol">loop</span></i> <span class="paren1">(<span class="default">+ i 1</span>)</span></span>)</span></span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren2">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren3">(<span class="default">multiply x y</span>)</span> <span class="paren3">(<span class="default">list-tabulate x <span class="paren4">(<span class="default"><i><span class="symbol">lambda</span></i> _ <span class="paren5">(<span class="default">list-tabulate y <span class="paren6">(<span class="default"><i><span class="symbol">lambda</span></i> _ &#x27;*</span>)</span></span>)</span></span>)</span></span>)</span></span>)</span></span>)</span> <span class="paren1">(<span class="default">module star-squarer = <span class="paren2">(<span class="default">squaring-functor stars</span>)</span></span>)</span> <span class="paren1">(<span class="default">import star-squarer</span>)</span> <span class="paren1">(<span class="default">square 3</span>)</span> ===&gt; <span class="paren1">(<span class="default"><span class="paren2">(<span class="default">* * *</span>)</span> <span class="paren2">(<span class="default">* * *</span>)</span> <span class="paren2">(<span class="default">* * *</span>)</span></span>)</span></pre><p>So whenever you have a generic algorithm it can be packaged into a functor and specialized for specific input modules. The instantiation will check that the argument modules match the required signature, <tt>(multiply)</tt> in the case above. The argument module must export at least the signature given in the functor definition. You can use <tt>define-interface</tt> to reduce typing and give a more meaningful name to a set of exports.</p><p>The general syntax of a functor definition looks like this:</p> <dl class="defsig"> <dt class="defsig" id="def:functor"><span class="sig"><tt>(functor (FUNCTORNAME (ARGUMENTMODULE1 EXPORTS1) ...) FUNCTOREXPORTS BODY)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>Defines a &quot;functor&quot;, a parameterized module.</p><p>This functor definition does not generate any code. This is done by <i>instantiating</i> the functor for specific input modules:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">module MODULENAME = <span class="paren2">(<span class="default">FUNCTORNAME MODULENAME1 ...</span>)</span></span>)</span></pre><p>Inside <tt>BODY</tt>, references to <tt>ARGUMENTMODULE</tt> will be replaced by the corresponding <tt>MODULENAME</tt> argument. The instantiation expands into the complete functor-code <tt>BODY</tt> and as such can be considered a particular sort of macro-expansion. Note that there is no requirement that a specific export of an argument-module must be syntax or non-syntax - it can be syntax in one instantiation and a procedure definition in another.</p><p><tt>ARGUMENTMODULE</tt> may also be a list of the form <tt>(ALIAS DEFAULT)</tt> to allow specifying a default- or optional functor argument in case the instanation doesn't provide one. Optional functor arguments may only be followed by non-optional functor arguments.</p><p>The common case of using a functor with a single argument module that is not used elsewhere can be expressed in the following way:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">module NAME = FUNCTORNAME BODY ...</span>)</span></pre><p>which is the same as</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">begin <span class="paren2">(<span class="default">module _NAME * BODY ...</span>)</span> <span class="paren2">(<span class="default">module NAME = <span class="paren3">(<span class="default">FUNCTORNAME _NAME</span>)</span></span>)</span></span>)</span></pre><p>Since functors exist at compile time, they can be stored in import-libraries via <tt>-emit-import-library FUNCTORNAME</tt> or <tt>-emit-all-import-libraries</tt> (see <a href="Using%20the%20compiler.html">Using the compiler</a> for more information about this). That allows you to import functors for later instantiation. Internally, a functor-definition also defines a module with the same name, but importing this module has no effect. It also has no runtime code, so it is sufficient to merely <tt>import</tt> it (as opposed to using <tt>require-extension</tt> or one of its variants, which also loads the run-time part of a module).</p><p>Note that functor-instantiation creates a complete copy of the functor body.</p></dd></dl><h3 id="sec:current-module"><a href="#sec:current-module">current-module</a></h3> <dl class="defsig"> <dt class="defsig" id="def:current-module"><span class="sig"><tt>(current-module)</tt></span><span class="type">syntax</span></dt> <dd class="defsig"><p>This will expand to a symbol which matches the current module's name when used inside a module. If not inside a module (i.e., at toplevel), this expands to <tt>#f</tt>.</p></dd></dl><hr /><p>Previous: <a href="Interface%20to%20external%20functions%20and%20variables.html">Interface to external functions and variables</a></p><p>Next: <a href="Types.html">Types</a></p></div></div></body>�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Units and linking model.html����������������������������������������������0000644�0001750�0001750�00000010351�13502230006�022345� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Units and linking model</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Units_and_the_linking_model">Units and the linking model</a></li></ul></div><h2 id="sec:Units_and_the_linking_model"><a href="#sec:Units_and_the_linking_model">Units and the linking model</a></h2><p>Compiling Scheme code to standalone executables or dynamically loadable files is the most common and simplest way of using CHICKEN. The extension system handles straightforward cases of static linking of modules in a mostly transparent way, which is usually sufficient for normal situations.</p><p>But for more advanced uses like static linking, creating dynamic libraries or embedding compiled code into other (usually C/C++ based) applications it is helpful to understand the internal model CHICKEN uses to organize compiled code and separate compilation units.</p><p>Every compiled Scheme file (from here on called a <i>compilation unit</i>) consists of a <i>toplevel</i> C function holding the compiled toplevel expressions in the order in which they appear in the source file. Scheme functions (<tt>lambda</tt>s) are compiled 1-to-1 into additional C functions, including the intermediate lambda-functions that are the result of the CPS conversion that is done by the compiler.</p><p>The toplevel C function of a compilation unit is comparable to the <tt>main</tt> function in C programs, and for standalone executables the startup code inside the runtime system will eventually call this toplevel function. Dynamically loaded compiled code is structured in the same way, with a toplevel function that is dynamically looked up in the loaded binary and invoked to execute the expressions from the loaded code. Statically linked compilation units are treated similarly, there also exists a toplevel function which is called at some stage in the startup process to execute the forms of the file.</p><p>For standalone executables and dynamically loaded code the toplevel function has a fixed, predefined name (<tt>C_toplevel</tt>). For static linking or for using multiple toplevels in a shared library that combines multiple compilation units (like <tt>libchicken</tt>, for example), non-internal function names have to be different to be properly distinguished, so we assign a unique <i>unit</i> name to each compilation unit that is intended to be linked with other compilation units.</p><p>To set the name of a compilation unit, use</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">declare <span class="paren2">(<span class="default">unit UNITNAME</span>)</span></span>)</span></pre><p><i>Invocation</i> of a unit (actually running the toplevel code contained in it) is done automatically for standalone programs and dynamically loaded compiled code, but must be done explicitly for uniquely named units that are part of a larger library or when doing static linking. To do so, use</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">declare <span class="paren2">(<span class="default">uses UNITNAME</span>)</span></span>)</span></pre><p>Invocation takes place at the start of the current compilation unit, so the toplevel of any <i>used</i> units is executed before the toplevel of the compilation unit that is <i>using</i> one. Invocation can also be done explicitly by using <tt>load-library</tt> (from the <tt>(chicken load)</tt>) module, which takes the name of a unit to be invoked as an argument.</p><p>Note that this model of using code from other compilation units does not address syntax definitions, it's for running pure, fully expanded and compiled code. Syntax and modules are handled at a higher level, using import libraries, which are compiled or interpreted separate files setting up module information to allow the compiler to properly resolve module namespaces and imports.</p><hr /><p>Previous: <a href="Egg%20specification%20format.html">Egg specification format</a></p><p>Next: <a href="Deployment.html">Deployment</a></p></div></div></body>���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Module (chicken string).html����������������������������������������������0000644�0001750�0001750�00000034075�13502230005�022255� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Module (chicken string)</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"> <div id="toc"> <h2 class="toc">TOC &raquo;</h2> <ul class="toc"> <li><a href="#sec:Module_.28chicken_string.29">Module (chicken string)</a> <ul> <li><a href="#sec:conc">conc</a></li> <li><a href="#sec:-.3estring">-&gt;string</a></li> <li><a href="#sec:string-chop">string-chop</a></li> <li><a href="#sec:string-chomp">string-chomp</a></li> <li><a href="#sec:string-compare3">string-compare3</a></li> <li><a href="#sec:string-intersperse">string-intersperse</a></li> <li><a href="#sec:string-split">string-split</a></li> <li><a href="#sec:string-translate">string-translate</a></li> <li><a href="#sec:string-translate.2a">string-translate*</a></li> <li><a href="#sec:substring.3d.3f">substring=?</a></li> <li><a href="#sec:substring-index">substring-index</a></li> <li><a href="#sec:reverse-list-.3estring">reverse-list-&gt;string</a></li> <li><a href="#sec:reverse-string-append">reverse-string-append</a></li></ul></li></ul></div><h2 id="sec:Module_.28chicken_string.29"><a href="#sec:Module_.28chicken_string.29">Module (chicken string)</a></h2><p>This module contains procedures which can perform various useful string operations.</p><h3 id="sec:conc"><a href="#sec:conc">conc</a></h3> <dl class="defsig"> <dt class="defsig" id="def:conc"><span class="sig"><var class="id">conc</var> <var class="arg">X</var> <var class="arg">...</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string with the string-represenation of all arguments concatenated together. <tt>conc</tt> could be implemented as</p> <pre class="highlight colorize"><span class="paren1">(<span class="default"><i><span class="symbol">define</span></i> <span class="paren2">(<span class="default">conc . args</span>)</span> <span class="paren2">(<span class="default">apply string-append <span class="paren3">(<span class="default">map -&gt;string args</span>)</span></span>)</span> </span>)</span></pre></dd></dl><h3 id="sec:-.3estring"><a href="#sec:-.3estring">-&gt;string</a></h3> <dl class="defsig"> <dt class="defsig" id="def:-.3estring"><span class="sig"><var class="id">-&gt;string</var> <var class="arg">X</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string-representation of <var class="arg">X</var>.</p></dd></dl><h3 id="sec:string-chop"><a href="#sec:string-chop">string-chop</a></h3> <dl class="defsig"> <dt class="defsig" id="def:string-chop"><span class="sig"><var class="id">string-chop</var> <var class="arg">STRING</var> <var class="arg">LENGTH</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a list of substrings taken by <i>chopping</i> <var class="arg">STRING</var> every <var class="arg">LENGTH</var> characters:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">string-chop <span class="string">&quot;one two three&quot;</span> 4</span>)</span> ==&gt; <span class="paren1">(<span class="default"><span class="string">&quot;one &quot;</span> <span class="string">&quot;two &quot;</span> <span class="string">&quot;thre&quot;</span> <span class="string">&quot;e&quot;</span></span>)</span></pre></dd></dl><h3 id="sec:string-chomp"><a href="#sec:string-chomp">string-chomp</a></h3> <dl class="defsig"> <dt class="defsig" id="def:string-chomp"><span class="sig"><var class="id">string-chomp</var> <var class="arg">STRING</var> <var class="dsssl">#!optional</var> <var class="arg">SUFFIX</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>If <var class="arg">STRING</var> ends with <var class="arg">SUFFIX</var>, then this procedure returns a copy of its first argument with the suffix removed, otherwise returns <var class="arg">STRING</var> unchanged. <var class="arg">SUFFIX</var> defaults to <tt>&quot;\n&quot;</tt>.</p></dd></dl><h3 id="sec:string-compare3"><a href="#sec:string-compare3">string-compare3</a></h3> <dl class="defsig"> <dt class="defsig" id="def:string-compare3"><span class="sig"><var class="id">string-compare3</var> <var class="arg">STRING1</var> <var class="arg">STRING2</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:string-compare3-ci"><span class="sig"><var class="id">string-compare3-ci</var> <var class="arg">STRING1</var> <var class="arg">STRING2</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Perform a three-way comparison between the <var class="arg">STRING1</var> and <var class="arg">STRING2</var>, returning either <tt>-1</tt> if <var class="arg">STRING1</var> is lexicographically less than <var class="arg">STRING2</var>, <tt>0</tt> if it is equal, or <tt>1</tt> if it s greater. <tt>string-compare3-ci</tt> performs a case-insensitive comparison.</p></dd></dl><h3 id="sec:string-intersperse"><a href="#sec:string-intersperse">string-intersperse</a></h3> <dl class="defsig"> <dt class="defsig" id="def:string-intersperse"><span class="sig"><var class="id">string-intersperse</var> <var class="arg">LIST</var> <var class="dsssl">#!optional</var> <var class="arg">STRING</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string that contains all strings in <var class="arg">LIST</var> concatenated together. <var class="arg">STRING</var> is placed between each concatenated string and defaults to <tt>&quot; &quot;</tt>.</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">string-intersperse &#x27;<span class="paren2">(<span class="default"><span class="string">&quot;one&quot;</span> <span class="string">&quot;two&quot;</span></span>)</span> <span class="string">&quot;three&quot;</span></span>)</span></pre><p>is equivalent to</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">apply string-append <span class="paren2">(<span class="default">intersperse &#x27;<span class="paren3">(<span class="default"><span class="string">&quot;one&quot;</span> <span class="string">&quot;two&quot;</span></span>)</span> <span class="string">&quot;three&quot;</span></span>)</span></span>)</span></pre></dd></dl><h3 id="sec:string-split"><a href="#sec:string-split">string-split</a></h3> <dl class="defsig"> <dt class="defsig" id="def:string-split"><span class="sig"><var class="id">string-split</var> <var class="arg">STRING</var> <var class="dsssl">#!optional</var> <var class="arg">DELIMITER-STRING</var> <var class="arg">KEEPEMPTY</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Split string into substrings delimited by any of the characters given in the delimiter string. If no delimiters are specified, a string comprising the tab, newline and space characters is assumed. If the parameter <var class="arg">KEEPEMPTY</var> is given and not <tt>#f</tt>, then empty substrings are retained:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">string-split <span class="string">&quot;one two three&quot;</span></span>)</span> ==&gt; <span class="paren1">(<span class="default"><span class="string">&quot;one&quot;</span> <span class="string">&quot;two&quot;</span> <span class="string">&quot;three&quot;</span></span>)</span> <span class="paren1">(<span class="default">string-split <span class="string">&quot;foo:bar::baz:&quot;</span> <span class="string">&quot;:&quot;</span> #t</span>)</span> ==&gt; <span class="paren1">(<span class="default"><span class="string">&quot;foo&quot;</span> <span class="string">&quot;bar&quot;</span> <span class="string">&quot;&quot;</span> <span class="string">&quot;baz&quot;</span> <span class="string">&quot;&quot;</span></span>)</span> <span class="paren1">(<span class="default">string-split <span class="string">&quot;foo:bar:baz,quux,zot&quot;</span> <span class="string">&quot;:,&quot;</span> </span>)</span> ==&gt; <span class="paren1">(<span class="default"><span class="string">&quot;foo&quot;</span> <span class="string">&quot;bar&quot;</span> <span class="string">&quot;baz&quot;</span> <span class="string">&quot;quux&quot;</span> <span class="string">&quot;zot&quot;</span></span>)</span></pre></dd></dl><h3 id="sec:string-translate"><a href="#sec:string-translate">string-translate</a></h3> <dl class="defsig"> <dt class="defsig" id="def:string-translate"><span class="sig"><var class="id">string-translate</var> <var class="arg">STRING</var> <var class="arg">FROM</var> <var class="dsssl">#!optional</var> <var class="arg">TO</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a fresh copy of <var class="arg">STRING</var> with characters matching <var class="arg">FROM</var> translated to <var class="arg">TO</var>. If <var class="arg">TO</var> is omitted, then matching characters are removed. <var class="arg">FROM</var> and <var class="arg">TO</var> may be a character, a string or a list. If both <var class="arg">FROM</var> and <var class="arg">TO</var> are strings, then the character at the same position in <var class="arg">TO</var> as the matching character in <var class="arg">FROM</var> is substituted.</p></dd></dl><h3 id="sec:string-translate.2a"><a href="#sec:string-translate.2a">string-translate*</a></h3> <dl class="defsig"> <dt class="defsig" id="def:string-translate.2a"><span class="sig"><var class="id">string-translate*</var> <var class="arg">STRING</var> <var class="arg">SMAP</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Substitutes elements of <var class="arg">STRING</var> according to <var class="arg">SMAP</var>. <var class="arg">SMAP</var> should be an association-list where each element of the list is a pair of the form <tt>(MATCH . REPLACEMENT)</tt>. Every occurrence of the string <tt>MATCH</tt> in <var class="arg">STRING</var> will be replaced by the string <tt>REPLACEMENT</tt>:</p> <pre class="highlight colorize"><span class="paren1">(<span class="default">string-translate* <span class="string">&quot;&lt;h1&gt;this is a </span><span class="string">\&quot;</span><span class="string">string</span><span class="string">\&quot;</span><span class="string">&lt;/h1&gt;&quot;</span> &#x27;<span class="paren2">(<span class="default"><span class="paren3">(<span class="default"><span class="string">&quot;&lt;&quot;</span> . <span class="string">&quot;&amp;lt;&quot;</span></span>)</span> <span class="paren3">(<span class="default"><span class="string">&quot;&gt;&quot;</span> . <span class="string">&quot;&amp;gt;&quot;</span></span>)</span> <span class="paren3">(<span class="default"><span class="string">&quot;</span><span class="string">\&quot;</span><span class="string">&quot;</span> . <span class="string">&quot;&amp;quot;&quot;</span></span>)</span></span>)</span> </span>)</span> =&gt; <span class="string">&quot;&amp;lt;h1&amp;gt;this is a &amp;quot;string&amp;quot;&amp;lt;/h1&amp;gt;&quot;</span></pre></dd></dl><h3 id="sec:substring.3d.3f"><a href="#sec:substring.3d.3f">substring=?</a></h3> <dl class="defsig"> <dt class="defsig" id="def:substring.3d.3f"><span class="sig"><var class="id">substring=?</var> <var class="arg">STRING1</var> <var class="arg">STRING2</var> <var class="dsssl">#!optional</var> <var class="arg">START1</var> <var class="arg">START2</var> <var class="arg">LENGTH</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:substring-ci.3d.3f"><span class="sig"><var class="id">substring-ci=?</var> <var class="arg">STRING1</var> <var class="arg">STRING2</var> <var class="dsssl">#!optional</var> <var class="arg">START1</var> <var class="arg">START2</var> <var class="arg">LENGTH</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns <tt>#t</tt> if the strings <var class="arg">STRING1</var> and <var class="arg">STRING2</var> are equal, or <tt>#f</tt> otherwise. The comparison starts at the positions <var class="arg">START1</var> and <var class="arg">START2</var> (which default to 0), comparing <var class="arg">LENGTH</var> characters (which defaults to the minimum of the remaining length of both strings).</p></dd></dl><h3 id="sec:substring-index"><a href="#sec:substring-index">substring-index</a></h3> <dl class="defsig"> <dt class="defsig" id="def:substring-index"><span class="sig"><var class="id">substring-index</var> <var class="arg">WHICH</var> <var class="arg">WHERE</var> <var class="dsssl">#!optional</var> <var class="arg">START</var></span><span class="type">procedure</span></dt> <dt class="defsig" id="def:substring-index-ci"><span class="sig"><var class="id">substring-index-ci</var> <var class="arg">WHICH</var> <var class="arg">WHERE</var> <var class="dsssl">#!optional</var> <var class="arg">START</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Searches for first index in string <var class="arg">WHERE</var> where string <var class="arg">WHICH</var> occurs. If the optional argument <var class="arg">START</var> is given, then the search starts at that index. <tt>substring-index-ci</tt> is a case-insensitive version of <tt>substring-index</tt>.</p></dd></dl><h3 id="sec:reverse-list-.3estring"><a href="#sec:reverse-list-.3estring">reverse-list-&gt;string</a></h3> <dl class="defsig"> <dt class="defsig" id="def:reverse-list-.3estring"><span class="sig"><var class="id">reverse-list-&gt;string</var> <var class="arg">LIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p>Returns a string with the characters in <var class="arg">LIST</var> in reverse order. This is equivalent to <tt>(list-&gt;string (reverse LIST))</tt>, but much more efficient.</p></dd></dl><h3 id="sec:reverse-string-append"><a href="#sec:reverse-string-append">reverse-string-append</a></h3> <dl class="defsig"> <dt class="defsig" id="def:reverse-string-append"><span class="sig"><var class="id">reverse-string-append</var> <var class="arg">LIST</var></span><span class="type">procedure</span></dt> <dd class="defsig"><p><tt>(apply string-append (reverse LIST))</tt></p></dd></dl><hr /><p>Previous: <a href="Module%20%28chicken%20sort%29.html">Module (chicken sort)</a></p><p>Next: <a href="Module%20%28chicken%20syntax%29.html">Module (chicken syntax)</a></p></div></div></body>�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/manual-html/Bibliography.html���������������������������������������������������������0000644�0001750�0001750�00000002442�13502230006�020440� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<!doctype html> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel="stylesheet" href="manual.css" type="text/css" /></head> <title>Chicken &raquo; Bibliography</title> <meta name="viewport" content="initial-scale=1" /></html> <body> <div id="body"> <div id="main"><h2 id="sec:Bibliography"><a href="#sec:Bibliography">Bibliography</a></h2><p>Henry Baker: <i>CONS Should Not CONS Its Arguments, Part II: Cheney on the M.T.A.</i> <a href="http://home.pipeline.com/~hbaker1/CheneyMTA.html">http://home.pipeline.com/~hbaker1/CheneyMTA.html</a></p><p><i>Revised^5 Report on the Algorithmic Language Scheme</i> <a href="http://www.schemers.org/Documents/Standards/R5RS">http://www.schemers.org/Documents/Standards/R5RS</a></p><p>R. P. Brent, P. Zimmermann: <i>Modern Computer Arithmetic</i> <a href="https://members.loria.fr/PZimmermann/mca/pub226.html">https://members.loria.fr/PZimmermann/mca/pub226.html</a></p><p>William D. Clinger: <i>Hygienic macros through explicit renaming</i>, Lisp Pointers. IV(4). December 1991 <a href="ftp://ftp.cs.indiana.edu/pub/scheme-repository/doc/prop/exrename.ps.gz">ftp://ftp.cs.indiana.edu/pub/scheme-repository/doc/prop/exrename.ps.gz</a>.</p><hr /><p>Previous: <a href="Acknowledgements.html">Acknowledgements</a></p></div></div></body>������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken-profile.mdoc������������������������������������������������������������������0000644�0001750�0001750�00000005562�13502227553�016651� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.\" Copyright (c) 2007-2019, The CHICKEN Team .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. The name of the authors may not be used to endorse or promote products .\" derived from this software without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, .\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .\" .\" .Dd Apr 26, 2017 .Dt CHICKEN-PROFILE 1 .Os .Sh NAME .Nm chicken-profile .Nd generate a report from profile-information .Sh SYNOPSIS .Nm .Op Ar OPTION ... .Op Ar FILENAME .Sh DESCRIPTION .Nm reads in profiling information generated by CHICKEN Scheme programs compiled with the .Fl profile option, and generates a table listing function names and their execution times. .Ar FILENAME defaults to the .Sq PROFILE.<number> , selecting the one with the highest modification time, in case multiple profiles exist. .Pp The program accepts following arguments: .Bl -tag -width Ds .It Fl help Show usage and exit. .It Fl version Show version and exit. .It Fl decimals Ar DDD Set number of decimals for seconds, average and percent columns .Po three digits, default: 333 Pc . .It Fl no-unused Remove procedures that are never called. .It Fl sort-by-avg Sort output by average procedure execution time. .It Fl sort-by-calls Sort output by call frequency. .It Fl sort-by-name Sort output alpabetically by procedure name. .It Fl sort-by-time Sort output by procedure execution time. .It Fl top Ar N Display only the top .Ar N entries. .El .Sh EXIT STATUS .Ex -std .Sh SEE ALSO .Xr chicken 1 , .Xr csc 1 .Pp More information can be found in the .Lk http://wiki.call-cc.org/manual/index "CHICKEN User's Manual". .Sh AUTHORS .An The CHICKEN Team .Sh BUGS Submit bug reports by e-mail to .Mt chicken-janitors@nongnu.org ����������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.c�����������������������������������������������������������������������������0000644�0001750�0001750�00000212432�13502227772�014512� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.chicken -output-file chicken.c uses: library eval expand chicken-syntax chicken-ffi-syntax srfi-4 extras data-structures lolevel support compiler optimizer lfa2 compiler-syntax scrutinizer batch-driver c-platform c-backend user-pass */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_chicken_2dffi_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dffi_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d4_toplevel) C_externimport void C_ccall C_srfi_2d4_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_lolevel_toplevel) C_externimport void C_ccall C_lolevel_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_support_toplevel) C_externimport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_compiler_toplevel) C_externimport void C_ccall C_compiler_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_optimizer_toplevel) C_externimport void C_ccall C_optimizer_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_lfa2_toplevel) C_externimport void C_ccall C_lfa2_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_compiler_2dsyntax_toplevel) C_externimport void C_ccall C_compiler_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_scrutinizer_toplevel) C_externimport void C_ccall C_scrutinizer_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_batch_2ddriver_toplevel) C_externimport void C_ccall C_batch_2ddriver_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_c_2dplatform_toplevel) C_externimport void C_ccall C_c_2dplatform_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_c_2dbackend_toplevel) C_externimport void C_ccall C_c_2dbackend_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_user_2dpass_toplevel) C_externimport void C_ccall C_user_2dpass_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[45]; static double C_possibly_force_alignment; C_noret_decl(f_1012) static void C_fcall f_1012(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1030) static void C_ccall f_1030(C_word c,C_word *av) C_noret; C_noret_decl(f_1044) static C_word C_fcall f_1044(C_word t0,C_word t1); C_noret_decl(f_1337) static void C_fcall f_1337(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1343) static void C_fcall f_1343(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1357) static void C_ccall f_1357(C_word c,C_word *av) C_noret; C_noret_decl(f_2187) static void C_ccall f_2187(C_word c,C_word *av) C_noret; C_noret_decl(f_2189) static void C_ccall f_2189(C_word c,C_word *av) C_noret; C_noret_decl(f_2195) static void C_fcall f_2195(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2209) static void C_ccall f_2209(C_word c,C_word *av) C_noret; C_noret_decl(f_2229) static void C_fcall f_2229(C_word t0,C_word t1) C_noret; C_noret_decl(f_2247) static void C_ccall f_2247(C_word c,C_word *av) C_noret; C_noret_decl(f_2251) static void C_ccall f_2251(C_word c,C_word *av) C_noret; C_noret_decl(f_2287) static void C_ccall f_2287(C_word c,C_word *av) C_noret; C_noret_decl(f_2293) static void C_ccall f_2293(C_word c,C_word *av) C_noret; C_noret_decl(f_2295) static void C_ccall f_2295(C_word c,C_word *av) C_noret; C_noret_decl(f_2299) static void C_ccall f_2299(C_word c,C_word *av) C_noret; C_noret_decl(f_2307) static void C_ccall f_2307(C_word c,C_word *av) C_noret; C_noret_decl(f_2311) static void C_ccall f_2311(C_word c,C_word *av) C_noret; C_noret_decl(f_2314) static void C_ccall f_2314(C_word c,C_word *av) C_noret; C_noret_decl(f_2319) static void C_fcall f_2319(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2339) static void C_ccall f_2339(C_word c,C_word *av) C_noret; C_noret_decl(f_2354) static void C_ccall f_2354(C_word c,C_word *av) C_noret; C_noret_decl(f_2364) static void C_ccall f_2364(C_word c,C_word *av) C_noret; C_noret_decl(f_2374) static void C_ccall f_2374(C_word c,C_word *av) C_noret; C_noret_decl(f_2384) static void C_ccall f_2384(C_word c,C_word *av) C_noret; C_noret_decl(f_2394) static void C_ccall f_2394(C_word c,C_word *av) C_noret; C_noret_decl(f_2404) static void C_ccall f_2404(C_word c,C_word *av) C_noret; C_noret_decl(f_2427) static void C_ccall f_2427(C_word c,C_word *av) C_noret; C_noret_decl(f_2430) static void C_ccall f_2430(C_word c,C_word *av) C_noret; C_noret_decl(f_2442) static void C_ccall f_2442(C_word c,C_word *av) C_noret; C_noret_decl(f_2517) static void C_ccall f_2517(C_word c,C_word *av) C_noret; C_noret_decl(f_2524) static void C_ccall f_2524(C_word c,C_word *av) C_noret; C_noret_decl(f_2540) static void C_ccall f_2540(C_word c,C_word *av) C_noret; C_noret_decl(f_2544) static void C_ccall f_2544(C_word c,C_word *av) C_noret; C_noret_decl(f_2552) static void C_ccall f_2552(C_word c,C_word *av) C_noret; C_noret_decl(f_2559) static void C_ccall f_2559(C_word c,C_word *av) C_noret; C_noret_decl(f_848) static void C_ccall f_848(C_word c,C_word *av) C_noret; C_noret_decl(f_851) static void C_ccall f_851(C_word c,C_word *av) C_noret; C_noret_decl(f_854) static void C_ccall f_854(C_word c,C_word *av) C_noret; C_noret_decl(f_857) static void C_ccall f_857(C_word c,C_word *av) C_noret; C_noret_decl(f_860) static void C_ccall f_860(C_word c,C_word *av) C_noret; C_noret_decl(f_863) static void C_ccall f_863(C_word c,C_word *av) C_noret; C_noret_decl(f_866) static void C_ccall f_866(C_word c,C_word *av) C_noret; C_noret_decl(f_869) static void C_ccall f_869(C_word c,C_word *av) C_noret; C_noret_decl(f_872) static void C_ccall f_872(C_word c,C_word *av) C_noret; C_noret_decl(f_875) static void C_ccall f_875(C_word c,C_word *av) C_noret; C_noret_decl(f_878) static void C_ccall f_878(C_word c,C_word *av) C_noret; C_noret_decl(f_881) static void C_ccall f_881(C_word c,C_word *av) C_noret; C_noret_decl(f_884) static void C_ccall f_884(C_word c,C_word *av) C_noret; C_noret_decl(f_887) static void C_ccall f_887(C_word c,C_word *av) C_noret; C_noret_decl(f_890) static void C_ccall f_890(C_word c,C_word *av) C_noret; C_noret_decl(f_893) static void C_ccall f_893(C_word c,C_word *av) C_noret; C_noret_decl(f_896) static void C_ccall f_896(C_word c,C_word *av) C_noret; C_noret_decl(f_899) static void C_ccall f_899(C_word c,C_word *av) C_noret; C_noret_decl(f_902) static void C_ccall f_902(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1012) static void C_ccall trf_1012(C_word c,C_word *av) C_noret; static void C_ccall trf_1012(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1012(t0,t1,t2);} C_noret_decl(trf_1337) static void C_ccall trf_1337(C_word c,C_word *av) C_noret; static void C_ccall trf_1337(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1337(t0,t1,t2);} C_noret_decl(trf_1343) static void C_ccall trf_1343(C_word c,C_word *av) C_noret; static void C_ccall trf_1343(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1343(t0,t1,t2,t3);} C_noret_decl(trf_2195) static void C_ccall trf_2195(C_word c,C_word *av) C_noret; static void C_ccall trf_2195(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2195(t0,t1,t2,t3,t4);} C_noret_decl(trf_2229) static void C_ccall trf_2229(C_word c,C_word *av) C_noret; static void C_ccall trf_2229(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2229(t0,t1);} C_noret_decl(trf_2319) static void C_ccall trf_2319(C_word c,C_word *av) C_noret; static void C_ccall trf_2319(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2319(t0,t1,t2);} /* chicken.compiler.chicken#take in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_fcall f_1012(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_1012,3,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1030,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); t9=C_fixnum_difference(t3,C_fix(1)); /* mini-srfi-1.scm:56: take */ t11=t6; t12=t8; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}} /* k1028 in chicken.compiler.chicken#take in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_1030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1030,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k2542 in k2538 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in ... */ static C_word C_fcall f_1044(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){ t3=t1; return(t3);} else{ t3=C_i_cdr(t1); t4=C_fixnum_difference(t2,C_fix(1)); t6=t3; t7=t4; t1=t6; t2=t7; goto loop;}} /* chicken.compiler.chicken#cons* in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_fcall f_1337(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_1337,3,t1,t2,t3);} a=C_alloc(5); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1343,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_1343(t7,t1,t2,t3);} /* loop in chicken.compiler.chicken#cons* in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_fcall f_1343(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_1343,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1357,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t3); t6=t3; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:95: loop */ t9=t4; t10=t5; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* k1355 in loop in chicken.compiler.chicken#cons* in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 in ... */ static void C_ccall f_1357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1357,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_2187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_2187,2,av);} a=C_alloc(9); t2=C_mutate(&lf[3] /* (set! chicken.compiler.chicken#compiler-arguments ...) */,t1); t3=C_mutate(&lf[4] /* (set! chicken.compiler.chicken#process-command-line ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2189,tmp=(C_word)a,a+=2,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2287,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2295,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2307,tmp=(C_word)a,a+=2,tmp); /* chicken.scm:85: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t4; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* chicken.compiler.chicken#process-command-line in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 in ... */ static void C_ccall f_2189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_2189,3,av);} a=C_alloc(5); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2195,a[2]=t4,tmp=(C_word)a,a+=3,tmp)); t6=((C_word*)t4)[1]; f_2195(t6,t1,t2,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* loop in chicken.compiler.chicken#process-command-line in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in ... */ static void C_fcall f_2195(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_2195,5,t0,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2209,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken.scm:70: scheme#reverse */ t6=*((C_word*)lf[5]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=C_i_car(t2); t6=t5; t7=C_i_string_length(t6); t8=t7; t9=C_i_string_ref(t6,C_fix(0)); t10=(C_truep(C_u_i_char_equalp(C_make_character(45),t9))?C_fixnum_greaterp(t8,C_fix(1)):C_SCHEME_FALSE); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2229,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=t6,a[8]=t8,tmp=(C_word)a,a+=9,tmp); if(C_truep(C_fixnum_greaterp(t8,C_fix(1)))){ t12=C_i_string_ref(t6,C_fix(1)); t13=t11; f_2229(t13,C_u_i_char_equalp(C_make_character(58),t12));} else{ t12=t11; f_2229(t12,C_SCHEME_FALSE);}} else{ if(C_truep(t4)){ t11=t2; t12=C_u_i_cdr(t11); t13=C_a_i_cons(&a,2,t6,t3); /* chicken.scm:79: loop */ t15=t1; t16=t12; t17=t13; t18=t4; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;} else{ t11=t2; t12=C_u_i_cdr(t11); /* chicken.scm:80: loop */ t15=t1; t16=t12; t17=t3; t18=t6; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;}}}} /* k2207 in loop in chicken.compiler.chicken#process-command-line in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in ... */ static void C_ccall f_2209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2209,2,av);} /* chicken.scm:70: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_values(4,av2);}} /* k2227 in loop in chicken.compiler.chicken#process-command-line in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in ... */ static void C_fcall f_2229(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_2229,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* chicken.scm:76: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2195(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2247,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2251,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* chicken.scm:77: scheme#substring */ t6=*((C_word*)lf[7]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; av2[3]=C_fix(1); av2[4]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k2245 in k2227 in loop in chicken.compiler.chicken#process-command-line in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in ... */ static void C_ccall f_2247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2247,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* chicken.scm:77: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2195(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,((C_word*)t0)[6]);} /* k2249 in k2227 in loop in chicken.compiler.chicken#process-command-line in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in ... */ static void C_ccall f_2251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2251,2,av);} /* chicken.scm:77: scheme#string->symbol */ t2=*((C_word*)lf[6]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2285 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 in ... */ static void C_ccall f_2287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2287,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2293,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.base#implicit-exit-handler */ t3=*((C_word*)lf[8]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2291 in k2285 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in ... */ static void C_ccall f_2293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2293,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a2294 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 in ... */ static void C_ccall f_2295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2295,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2299,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* chicken.scm:85: chicken.compiler.user-pass#user-options-pass */ t3=*((C_word*)lf[9]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2297 in a2294 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in ... */ static void C_ccall f_2299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2299,2,av);} if(C_truep(t1)){ t2=t1; /* chicken.scm:85: g577 */ t3=t2;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=lf[4]; t3=lf[4]; /* chicken.scm:85: g577 */ t4=lf[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=lf[3]; f_2189(3,av2);}}} /* a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 in ... */ static void C_ccall f_2307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_2307,4,av);} a=C_alloc(13); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2311,a[2]=t1,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2319,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_2319(t9,t5,((C_word*)t4)[1]);} /* k2309 in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in ... */ static void C_ccall f_2311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_2311,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2314,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t2; av2[2]=*((C_word*)lf[11]+1); av2[3]=((C_word*)t0)[3]; av2[4]=lf[3]; av2[5]=((C_word*)((C_word*)t0)[4])[1]; C_apply(6,av2);}} /* k2312 in k2309 in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in ... */ static void C_ccall f_2314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2314,2,av);} /* chicken.scm:165: chicken.base#exit */ t2=*((C_word*)lf[10]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in ... */ static void C_fcall f_2319(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_2319,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t2; t5=C_u_i_cdr(t4); t6=C_eqp(lf[12],t3); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2339,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t8=C_i_car(t5); /* chicken.scm:92: scheme#string->number */ t9=*((C_word*)lf[27]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t7; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t7=C_eqp(lf[28],t3); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2427,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t9=C_i_car(t5); /* chicken.scm:147: scheme#string->number */ t10=*((C_word*)lf[27]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ if(C_truep(C_i_memq(t3,*((C_word*)lf[32]+1)))){ /* chicken.scm:154: loop */ t11=t1; t12=t5; t1=t11; t2=t12; goto loop;} else{ if(C_truep(C_i_memq(t3,*((C_word*)lf[33]+1)))){ if(C_truep(C_i_pairp(t5))){ t8=C_u_i_cdr(t5); /* chicken.scm:157: loop */ t11=t1; t12=t8; t1=t11; t2=t12; goto loop;} else{ /* chicken.scm:158: chicken.compiler.support#quit-compiling */ t8=*((C_word*)lf[30]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t1; av2[2]=lf[34]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2517,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2524,a[2]=t8,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_stringp(t3))){ /* chicken.scm:160: chicken.base#warning */ t10=*((C_word*)lf[35]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t8; av2[2]=lf[36]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ /* chicken.scm:162: chicken.string#conc */ t10=*((C_word*)lf[37]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t9; av2[2]=lf[38]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}}}}}} /* k2337 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in ... */ static void C_ccall f_2339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(45,c,3)))){ C_save_and_reclaim((void *)f_2339,2,av);} a=C_alloc(45); switch(t1){ case C_fix(0): t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2354,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken.scm:96: cons* */ f_1337(t2,lf[13],C_a_i_list(&a,2,lf[14],((C_word*)((C_word*)t0)[2])[1])); case C_fix(1): t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2364,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken.scm:99: cons* */ f_1337(t2,lf[15],C_a_i_list(&a,1,((C_word*)((C_word*)t0)[2])[1])); case C_fix(2): t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2374,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken.scm:103: cons* */ f_1337(t2,lf[15],C_a_i_list(&a,3,lf[16],lf[17],((C_word*)((C_word*)t0)[2])[1])); case C_fix(3): t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2384,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken.scm:110: cons* */ f_1337(t2,lf[15],C_a_i_list(&a,6,lf[16],lf[18],lf[19],lf[17],lf[20],((C_word*)((C_word*)t0)[2])[1])); case C_fix(4): t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2394,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken.scm:120: cons* */ f_1337(t2,lf[15],C_a_i_list(&a,7,lf[16],lf[18],lf[20],lf[17],lf[19],lf[21],((C_word*)((C_word*)t0)[2])[1])); default: if(C_truep(C_i_greater_or_equalp(t1,C_fix(5)))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2404,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* chicken.scm:131: cons* */ f_1337(t2,lf[22],C_a_i_list(&a,13,lf[23],lf[21],lf[24],lf[15],lf[25],lf[20],lf[15],lf[25],lf[16],lf[18],lf[26],lf[17],((C_word*)((C_word*)t0)[2])[1]));} else{ t2=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:145: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_2319(t3,((C_word*)t0)[5],t2);}}} /* k2352 in k2337 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in ... */ static void C_ccall f_2354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2354,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:145: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2319(t4,((C_word*)t0)[5],t3);} /* k2362 in k2337 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in ... */ static void C_ccall f_2364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2364,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:145: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2319(t4,((C_word*)t0)[5],t3);} /* k2372 in k2337 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in ... */ static void C_ccall f_2374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2374,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:145: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2319(t4,((C_word*)t0)[5],t3);} /* k2382 in k2337 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in ... */ static void C_ccall f_2384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2384,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:145: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2319(t4,((C_word*)t0)[5],t3);} /* k2392 in k2337 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in ... */ static void C_ccall f_2394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2394,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:145: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2319(t4,((C_word*)t0)[5],t3);} /* k2402 in k2337 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in ... */ static void C_ccall f_2404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2404,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:145: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2319(t4,((C_word*)t0)[5],t3);} /* k2425 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in ... */ static void C_ccall f_2427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_2427,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2430,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); switch(t1){ case C_fix(0): t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2442,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* chicken.scm:148: cons* */ f_1337(t3,lf[25],C_a_i_list(&a,2,lf[23],((C_word*)((C_word*)t0)[5])[1])); case C_fix(1): t3=C_a_i_cons(&a,2,lf[23],((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[5])+1,t3); t5=C_u_i_cdr(((C_word*)t0)[2]); /* chicken.scm:153: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_2319(t6,((C_word*)t0)[4],t5); case C_fix(2): t3=C_u_i_cdr(((C_word*)t0)[2]); /* chicken.scm:153: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2319(t4,((C_word*)t0)[4],t3); case C_fix(3): t3=C_a_i_cons(&a,2,lf[29],((C_word*)((C_word*)t0)[5])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[5])+1,t3); t5=C_u_i_cdr(((C_word*)t0)[2]); /* chicken.scm:153: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_2319(t6,((C_word*)t0)[4],t5); default: t3=C_u_i_car(((C_word*)t0)[2]); /* chicken.scm:152: chicken.compiler.support#quit-compiling */ t4=*((C_word*)lf[30]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[31]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k2428 in k2425 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in ... */ static void C_ccall f_2430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2430,2,av);} t2=C_u_i_cdr(((C_word*)t0)[2]); /* chicken.scm:153: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2319(t3,((C_word*)t0)[4],t2);} /* k2440 in k2425 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in ... */ static void C_ccall f_2442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2442,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_u_i_cdr(((C_word*)t0)[3]); /* chicken.scm:153: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2319(t4,((C_word*)t0)[5],t3);} /* k2515 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in ... */ static void C_ccall f_2517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2517,2,av);} /* chicken.scm:163: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2319(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k2522 in loop in a2306 in k2185 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in ... */ static void C_ccall f_2524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2524,2,av);} /* chicken.scm:160: chicken.base#warning */ t2=*((C_word*)lf[35]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[36]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2538 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_2540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_2540,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2544,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2552,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* chicken.scm:57: chicken.process-context#get-environment-variable */ t5=*((C_word*)lf[42]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[43]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2542 in k2538 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 in ... */ static void C_ccall f_2544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_2544,2,av);} a=C_alloc(2); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1044,tmp=(C_word)a,a+=2,tmp); t3=( f_1044(((C_word*)t0)[2],C_fix(1)) ); /* chicken.scm:56: scheme#append */ t4=*((C_word*)lf[39]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2550 in k2538 in k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 in ... */ static void C_ccall f_2552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2552,2,av);} if(C_truep(t1)){ t2=t1; /* chicken.scm:57: chicken.string#string-split */ t3=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* chicken.scm:57: chicken.string#string-split */ t2=*((C_word*)lf[40]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[41]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k2557 in k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_2559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2559,2,av);} a=C_alloc(7); t2=C_i_cdr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2187,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; f_2187(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2540,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* chicken.scm:56: take */ f_1012(t5,t3,C_fix(1));}} /* k846 */ static void C_ccall f_848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_848,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_851,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k849 in k846 */ static void C_ccall f_851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_851,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_854,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k852 in k849 in k846 */ static void C_ccall f_854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_854,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_857,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} /* k855 in k852 in k849 in k846 */ static void C_ccall f_857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_857,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_860,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dffi_2dsyntax_toplevel(2,av2);}} /* k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_860,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_863,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d4_toplevel(2,av2);}} /* k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_863,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_866,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_extras_toplevel(2,av2);}} /* k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_866,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_869,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} /* k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_869,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_872,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_lolevel_toplevel(2,av2);}} /* k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_872,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_875,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_support_toplevel(2,av2);}} /* k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_875,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_878,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_compiler_toplevel(2,av2);}} /* k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_878,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_881,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_optimizer_toplevel(2,av2);}} /* k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_881,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_884,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_lfa2_toplevel(2,av2);}} /* k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_884,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_887,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_compiler_2dsyntax_toplevel(2,av2);}} /* k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_887,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_890,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_scrutinizer_toplevel(2,av2);}} /* k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_890,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_893,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_batch_2ddriver_toplevel(2,av2);}} /* k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_893,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_896,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_c_2dplatform_toplevel(2,av2);}} /* k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_896,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_899,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_c_2dbackend_toplevel(2,av2);}} /* k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_899,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_902,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_user_2dpass_toplevel(2,av2);}} /* k900 in k897 in k894 in k891 in k888 in k885 in k882 in k879 in k876 in k873 in k870 in k867 in k864 in k861 in k858 in k855 in k852 in k849 in k846 */ static void C_ccall f_902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_902,2,av);} a=C_alloc(15); t2=C_a_i_provide(&a,1,lf[0]); t3=C_mutate(&lf[1] /* (set! chicken.compiler.chicken#take ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1012,tmp=(C_word)a,a+=2,tmp)); t4=C_mutate(&lf[2] /* (set! chicken.compiler.chicken#cons* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1337,tmp=(C_word)a,a+=2,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2559,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.scm:53: chicken.process-context#argv */ t6=*((C_word*)lf[44]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(245))){ C_save(t1); C_rereclaim2(245*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,45); lf[0]=C_h_intern(&lf[0],25, C_text("chicken.compiler.chicken#")); lf[5]=C_h_intern(&lf[5],14, C_text("scheme#reverse")); lf[6]=C_h_intern(&lf[6],21, C_text("scheme#string->symbol")); lf[7]=C_h_intern(&lf[7],16, C_text("scheme#substring")); lf[8]=C_h_intern(&lf[8],34, C_text("chicken.base#implicit-exit-handler")); lf[9]=C_h_intern(&lf[9],44, C_text("chicken.compiler.user-pass#user-options-pass")); lf[10]=C_h_intern(&lf[10],17, C_text("chicken.base#exit")); lf[11]=C_h_intern(&lf[11],49, C_text("chicken.compiler.batch-driver#compile-source-file")); lf[12]=C_h_intern(&lf[12],14, C_text("optimize-level")); lf[13]=C_h_intern(&lf[13],18, C_text("no-compiler-syntax")); lf[14]=C_h_intern(&lf[14],21, C_text("no-usual-integrations")); lf[15]=C_h_intern(&lf[15],22, C_text("optimize-leaf-routines")); lf[16]=C_h_intern(&lf[16],6, C_text("inline")); lf[17]=C_h_intern(&lf[17],4, C_text("lfa2")); lf[18]=C_h_intern(&lf[18],13, C_text("inline-global")); lf[19]=C_h_intern(&lf[19],5, C_text("local")); lf[20]=C_h_intern(&lf[20],10, C_text("specialize")); lf[21]=C_h_intern(&lf[21],6, C_text("unsafe")); lf[22]=C_h_intern(&lf[22],18, C_text("disable-interrupts")); lf[23]=C_h_intern(&lf[23],8, C_text("no-trace")); lf[24]=C_h_intern(&lf[24],5, C_text("block")); lf[25]=C_h_intern(&lf[25],14, C_text("no-lambda-info")); lf[26]=C_h_intern(&lf[26],10, C_text("clustering")); lf[27]=C_h_intern(&lf[27],21, C_text("scheme#string->number")); lf[28]=C_h_intern(&lf[28],11, C_text("debug-level")); lf[29]=C_h_intern(&lf[29],10, C_text("debug-info")); lf[30]=C_h_intern(&lf[30],39, C_text("chicken.compiler.support#quit-compiling")); lf[31]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027invalid debug level: ~a")); lf[32]=C_h_intern(&lf[32],50, C_text("chicken.compiler.c-platform#valid-compiler-options")); lf[33]=C_h_intern(&lf[33],64, C_text("chicken.compiler.c-platform#valid-compiler-options-with-argument")); lf[34]=C_decode_literal(C_heaptop,C_text("\376B\000\000 missing argument to `-~s\047 option")); lf[35]=C_h_intern(&lf[35],20, C_text("chicken.base#warning")); lf[36]=C_decode_literal(C_heaptop,C_text("\376B\000\000!invalid compiler option (ignored)")); lf[37]=C_h_intern(&lf[37],19, C_text("chicken.string#conc")); lf[38]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001-")); lf[39]=C_h_intern(&lf[39],13, C_text("scheme#append")); lf[40]=C_h_intern(&lf[40],27, C_text("chicken.string#string-split")); lf[41]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[42]=C_h_intern(&lf[42],48, C_text("chicken.process-context#get-environment-variable")); lf[43]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017CHICKEN_OPTIONS")); lf[44]=C_h_intern(&lf[44],28, C_text("chicken.process-context#argv")); C_register_lf2(lf,45,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_848,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[58] = { {C_text("f_1012:chicken_2escm"),(void*)f_1012}, {C_text("f_1030:chicken_2escm"),(void*)f_1030}, {C_text("f_1044:chicken_2escm"),(void*)f_1044}, {C_text("f_1337:chicken_2escm"),(void*)f_1337}, {C_text("f_1343:chicken_2escm"),(void*)f_1343}, {C_text("f_1357:chicken_2escm"),(void*)f_1357}, {C_text("f_2187:chicken_2escm"),(void*)f_2187}, {C_text("f_2189:chicken_2escm"),(void*)f_2189}, {C_text("f_2195:chicken_2escm"),(void*)f_2195}, {C_text("f_2209:chicken_2escm"),(void*)f_2209}, {C_text("f_2229:chicken_2escm"),(void*)f_2229}, {C_text("f_2247:chicken_2escm"),(void*)f_2247}, {C_text("f_2251:chicken_2escm"),(void*)f_2251}, {C_text("f_2287:chicken_2escm"),(void*)f_2287}, {C_text("f_2293:chicken_2escm"),(void*)f_2293}, {C_text("f_2295:chicken_2escm"),(void*)f_2295}, {C_text("f_2299:chicken_2escm"),(void*)f_2299}, {C_text("f_2307:chicken_2escm"),(void*)f_2307}, {C_text("f_2311:chicken_2escm"),(void*)f_2311}, {C_text("f_2314:chicken_2escm"),(void*)f_2314}, {C_text("f_2319:chicken_2escm"),(void*)f_2319}, {C_text("f_2339:chicken_2escm"),(void*)f_2339}, {C_text("f_2354:chicken_2escm"),(void*)f_2354}, {C_text("f_2364:chicken_2escm"),(void*)f_2364}, {C_text("f_2374:chicken_2escm"),(void*)f_2374}, {C_text("f_2384:chicken_2escm"),(void*)f_2384}, {C_text("f_2394:chicken_2escm"),(void*)f_2394}, {C_text("f_2404:chicken_2escm"),(void*)f_2404}, {C_text("f_2427:chicken_2escm"),(void*)f_2427}, {C_text("f_2430:chicken_2escm"),(void*)f_2430}, {C_text("f_2442:chicken_2escm"),(void*)f_2442}, {C_text("f_2517:chicken_2escm"),(void*)f_2517}, {C_text("f_2524:chicken_2escm"),(void*)f_2524}, {C_text("f_2540:chicken_2escm"),(void*)f_2540}, {C_text("f_2544:chicken_2escm"),(void*)f_2544}, {C_text("f_2552:chicken_2escm"),(void*)f_2552}, {C_text("f_2559:chicken_2escm"),(void*)f_2559}, {C_text("f_848:chicken_2escm"),(void*)f_848}, {C_text("f_851:chicken_2escm"),(void*)f_851}, {C_text("f_854:chicken_2escm"),(void*)f_854}, {C_text("f_857:chicken_2escm"),(void*)f_857}, {C_text("f_860:chicken_2escm"),(void*)f_860}, {C_text("f_863:chicken_2escm"),(void*)f_863}, {C_text("f_866:chicken_2escm"),(void*)f_866}, {C_text("f_869:chicken_2escm"),(void*)f_869}, {C_text("f_872:chicken_2escm"),(void*)f_872}, {C_text("f_875:chicken_2escm"),(void*)f_875}, {C_text("f_878:chicken_2escm"),(void*)f_878}, {C_text("f_881:chicken_2escm"),(void*)f_881}, {C_text("f_884:chicken_2escm"),(void*)f_884}, {C_text("f_887:chicken_2escm"),(void*)f_887}, {C_text("f_890:chicken_2escm"),(void*)f_890}, {C_text("f_893:chicken_2escm"),(void*)f_893}, {C_text("f_896:chicken_2escm"),(void*)f_896}, {C_text("f_899:chicken_2escm"),(void*)f_899}, {C_text("f_902:chicken_2escm"),(void*)f_902}, {C_text("toplevel:chicken_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.compiler.chicken#partition o|hiding unexported module binding: chicken.compiler.chicken#span o|hiding unexported module binding: chicken.compiler.chicken#take o|hiding unexported module binding: chicken.compiler.chicken#drop o|hiding unexported module binding: chicken.compiler.chicken#split-at o|hiding unexported module binding: chicken.compiler.chicken#append-map o|hiding unexported module binding: chicken.compiler.chicken#every o|hiding unexported module binding: chicken.compiler.chicken#any o|hiding unexported module binding: chicken.compiler.chicken#cons* o|hiding unexported module binding: chicken.compiler.chicken#concatenate o|hiding unexported module binding: chicken.compiler.chicken#delete o|hiding unexported module binding: chicken.compiler.chicken#first o|hiding unexported module binding: chicken.compiler.chicken#second o|hiding unexported module binding: chicken.compiler.chicken#third o|hiding unexported module binding: chicken.compiler.chicken#fourth o|hiding unexported module binding: chicken.compiler.chicken#fifth o|hiding unexported module binding: chicken.compiler.chicken#delete-duplicates o|hiding unexported module binding: chicken.compiler.chicken#alist-cons o|hiding unexported module binding: chicken.compiler.chicken#filter o|hiding unexported module binding: chicken.compiler.chicken#filter-map o|hiding unexported module binding: chicken.compiler.chicken#remove o|hiding unexported module binding: chicken.compiler.chicken#unzip1 o|hiding unexported module binding: chicken.compiler.chicken#last o|hiding unexported module binding: chicken.compiler.chicken#list-index o|hiding unexported module binding: chicken.compiler.chicken#lset-adjoin/eq? o|hiding unexported module binding: chicken.compiler.chicken#lset-difference/eq? o|hiding unexported module binding: chicken.compiler.chicken#lset-union/eq? o|hiding unexported module binding: chicken.compiler.chicken#lset-intersection/eq? o|hiding unexported module binding: chicken.compiler.chicken#list-tabulate o|hiding unexported module binding: chicken.compiler.chicken#lset<=/eq? o|hiding unexported module binding: chicken.compiler.chicken#lset=/eq? o|hiding unexported module binding: chicken.compiler.chicken#length+ o|hiding unexported module binding: chicken.compiler.chicken#find o|hiding unexported module binding: chicken.compiler.chicken#find-tail o|hiding unexported module binding: chicken.compiler.chicken#iota o|hiding unexported module binding: chicken.compiler.chicken#make-list o|hiding unexported module binding: chicken.compiler.chicken#posq o|hiding unexported module binding: chicken.compiler.chicken#posv o|hiding unexported module binding: chicken.compiler.chicken#compiler-arguments o|hiding unexported module binding: chicken.compiler.chicken#process-command-line S|applied compiler syntax: S| chicken.base#foldl 3 S| scheme#map 3 S| chicken.base#foldr 3 o|eliminated procedure checks: 25 o|specializations: o| 9 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 2 (scheme#> fixnum fixnum) o| 2 (scheme#char=? char char) o| 2 (scheme#string-ref string fixnum) o| 1 (scheme#eqv? * *) o| 3 (##sys#check-list (or pair list) *) o| 30 (scheme#cdr pair) o| 8 (scheme#car pair) (o e)|safe calls: 228 o|safe globals: (chicken.compiler.chicken#posv chicken.compiler.chicken#posq chicken.compiler.chicken#make-list chicken.compiler.chicken#iota chicken.compiler.chicken#find-tail chicken.compiler.chicken#find chicken.compiler.chicken#length+ chicken.compiler.chicken#lset=/eq? chicken.compiler.chicken#lset<=/eq? chicken.compiler.chicken#list-tabulate chicken.compiler.chicken#lset-intersection/eq? chicken.compiler.chicken#lset-union/eq? chicken.compiler.chicken#lset-difference/eq? chicken.compiler.chicken#lset-adjoin/eq? chicken.compiler.chicken#list-index chicken.compiler.chicken#last chicken.compiler.chicken#unzip1 chicken.compiler.chicken#remove chicken.compiler.chicken#filter-map chicken.compiler.chicken#filter chicken.compiler.chicken#alist-cons chicken.compiler.chicken#delete-duplicates chicken.compiler.chicken#fifth chicken.compiler.chicken#fourth chicken.compiler.chicken#third chicken.compiler.chicken#second chicken.compiler.chicken#first chicken.compiler.chicken#delete chicken.compiler.chicken#concatenate chicken.compiler.chicken#cons* chicken.compiler.chicken#any chicken.compiler.chicken#every chicken.compiler.chicken#append-map chicken.compiler.chicken#split-at chicken.compiler.chicken#drop chicken.compiler.chicken#take chicken.compiler.chicken#span chicken.compiler.chicken#partition) o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#partition o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#span o|inlining procedure: k1014 o|inlining procedure: k1014 o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#split-at o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#append-map o|inlining procedure: k1284 o|inlining procedure: k1284 o|inlining procedure: k1315 o|inlining procedure: k1315 o|merged explicitly consed rest parameter: xs221 o|inlining procedure: k1345 o|inlining procedure: k1345 o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#concatenate o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#first o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#second o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#third o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#fourth o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#fifth o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#delete-duplicates o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#alist-cons o|inlining procedure: k1532 o|inlining procedure: k1532 o|inlining procedure: k1524 o|inlining procedure: k1524 o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#filter-map o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#remove o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#unzip1 o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#last o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#list-index o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#lset-union/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#lset-intersection/eq? o|inlining procedure: k1923 o|inlining procedure: k1923 o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#lset<=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#lset=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#length+ o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#find o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#find-tail o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#iota o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#make-list o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#posq o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#posv o|inlining procedure: k2197 o|substituted constant variable: a2217 o|inlining procedure: k2197 o|inlining procedure: k2224 o|inlining procedure: k2224 o|substituted constant variable: a2258 o|substituted constant variable: a2255 o|substituted constant variable: a2260 o|inlining procedure: k2261 o|inlining procedure: k2261 o|substituted constant variable: a2278 o|substituted constant variable: a2284 o|inlining procedure: k2300 o|inlining procedure: k2300 o|propagated global variable: r23012585 chicken.compiler.chicken#process-command-line o|inlining procedure: k2321 o|inlining procedure: k2321 o|consed rest parameter at call site: "(chicken.scm:96) chicken.compiler.chicken#cons*" 2 o|inlining procedure: k2355 o|consed rest parameter at call site: "(chicken.scm:99) chicken.compiler.chicken#cons*" 2 o|inlining procedure: k2355 o|consed rest parameter at call site: "(chicken.scm:103) chicken.compiler.chicken#cons*" 2 o|inlining procedure: k2375 o|consed rest parameter at call site: "(chicken.scm:110) chicken.compiler.chicken#cons*" 2 o|inlining procedure: k2375 o|consed rest parameter at call site: "(chicken.scm:120) chicken.compiler.chicken#cons*" 2 o|inlining procedure: k2395 o|consed rest parameter at call site: "(chicken.scm:131) chicken.compiler.chicken#cons*" 2 o|inlining procedure: k2395 o|substituted constant variable: a2406 o|substituted constant variable: a2408 o|substituted constant variable: a2410 o|substituted constant variable: a2412 o|substituted constant variable: a2414 o|inlining procedure: k2419 o|consed rest parameter at call site: "(chicken.scm:148) chicken.compiler.chicken#cons*" 2 o|inlining procedure: k2443 o|inlining procedure: k2443 o|inlining procedure: k2459 o|inlining procedure: k2459 o|substituted constant variable: a2475 o|substituted constant variable: a2477 o|substituted constant variable: a2479 o|substituted constant variable: a2481 o|inlining procedure: k2419 o|inlining procedure: k2495 o|inlining procedure: k2495 o|inlining procedure: k2522 o|inlining procedure: k2522 o|contracted procedure: "(chicken.scm:58) chicken.compiler.chicken#drop" o|inlining procedure: k1046 o|inlining procedure: k1046 o|inlining procedure: k2553 o|inlining procedure: k2553 o|replaced variables: 115 o|removed binding forms: 74 o|substituted constant variable: r10152560 o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#every o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#any o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#filter o|removed side-effect free assignment to unused variable: chicken.compiler.chicken#list-tabulate o|substituted constant variable: n104 o|substituted constant variable: r25542614 o|substituted constant variable: r25542614 o|replaced variables: 13 o|removed binding forms: 128 o|inlining procedure: k2340 o|inlining procedure: k2340 o|inlining procedure: k2340 o|inlining procedure: k2340 o|inlining procedure: k2340 o|inlining procedure: k2340 o|inlining procedure: k2340 o|inlining procedure: k2428 o|inlining procedure: k2428 o|inlining procedure: k2428 o|inlining procedure: k2428 o|replaced variables: 1 o|removed binding forms: 20 o|removed binding forms: 13 o|removed binding forms: 1 o|simplifications: ((if . 1) (##core#call . 44)) o| call simplifications: o| scheme#cdr 2 o| ##sys#call-with-values o| scheme#memq 2 o| scheme#string? o| scheme#pair? o| scheme#eq? 11 o| scheme#>= o| scheme#apply o| scheme#string-length o| chicken.fixnum#fx> 2 o| scheme#values o| scheme#null? 4 o| chicken.fixnum#fx<= 2 o| scheme#car 6 o| chicken.fixnum#fx- 2 o| scheme#cons 6 o|contracted procedure: k1017 o|contracted procedure: k1024 o|contracted procedure: k1034 o|contracted procedure: k1348 o|contracted procedure: k1359 o|contracted procedure: k2182 o|contracted procedure: k2200 o|contracted procedure: k2210 o|contracted procedure: k2213 o|contracted procedure: k2221 o|contracted procedure: k2241 o|contracted procedure: k2252 o|contracted procedure: k2270 o|contracted procedure: k2324 o|contracted procedure: k2327 o|contracted procedure: k2334 o|contracted procedure: k2348 o|contracted procedure: k2358 o|contracted procedure: k2368 o|contracted procedure: k2378 o|contracted procedure: k2388 o|contracted procedure: k2398 o|contracted procedure: k2416 o|contracted procedure: k2422 o|contracted procedure: k2436 o|contracted procedure: k2446 o|contracted procedure: k2450 o|contracted procedure: k2456 o|contracted procedure: k2462 o|contracted procedure: k2466 o|contracted procedure: k2483 o|contracted procedure: k2489 o|contracted procedure: k2498 o|contracted procedure: k2504 o|contracted procedure: k2525 o|contracted procedure: k2531 o|contracted procedure: k1049 o|contracted procedure: k1056 o|contracted procedure: k1060 o|simplifications: ((let . 19)) o|removed binding forms: 39 o|replaced variables: 13 o|removed binding forms: 5 o|direct leaf routine/allocation: loop105 0 o|contracted procedure: k2546 o|converted assignments to bindings: (loop105) o|simplifications: ((let . 1)) o|removed binding forms: 1 o|replaced variables: 1 o|removed binding forms: 1 o|customizable procedures: (chicken.compiler.chicken#cons* loop584 k2227 loop567 loop222 chicken.compiler.chicken#take) o|calls to known targets: 36 o|identified direct recursive calls: f_1012 1 o|identified direct recursive calls: f_1343 1 o|identified direct recursive calls: f_2195 2 o|identified direct recursive calls: f_2319 2 o|identified direct recursive calls: f_1044 1 o|fast box initializations: 3 o|fast global references: 15 o|fast global assignments: 4 o|dropping unused closure argument: f_1012 o|dropping unused closure argument: f_1044 o|dropping unused closure argument: f_1337 */ /* end of file */ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.base.import.c�����������������������������������������������������������������0000644�0001750�0001750�00000036143�13502227772�016737� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.base.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.base.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.base.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[5]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.base.import.scm:26: ##sys#register-core-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=lf[3]; av2[5]=C_fast_retrieve(lf[4]); tp(6,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(1688))){ C_save(t1); C_rereclaim2(1688*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,5); lf[0]=C_h_intern(&lf[0],26, C_text("##sys#register-core-module")); lf[1]=C_h_intern(&lf[1],12, C_text("chicken.base")); lf[2]=C_h_intern(&lf[2],7, C_text("library")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001add1\376\001\000\000\021\001chicken.base#add1\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001alist-ref\376\001\000\000\026\001chicke" "n.base#alist-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001alist-update\376\001\000\000\031\001chicken.base#alist-update\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\015\001alist-update!\376\001\000\000\032\001chicken.base#alist-update!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001atom\077\376\001\000" "\000\022\001chicken.base#atom\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001bignum\077\376\001\000\000\024\001chicken.base#bignum\077\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\007\001butlast\376\001\000\000\024\001chicken.base#butlast\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001call/cc\376\001\000\000\024\001chicken.base" "#call/cc\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001case-sensitive\376\001\000\000\033\001chicken.base#case-sensitive\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\011\001char-name\376\001\000\000\026\001chicken.base#char-name\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001chop\376\001\000\000\021\001chicken.ba" "se#chop\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001complement\376\001\000\000\027\001chicken.base#complement\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001co" "mpose\376\001\000\000\024\001chicken.base#compose\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001compress\376\001\000\000\025\001chicken.base#compre" "ss\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001conjoin\376\001\000\000\024\001chicken.base#conjoin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001constantly\376\001\000" "\000\027\001chicken.base#constantly\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001cplxnum\077\376\001\000\000\025\001chicken.base#cplxnum\077\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\022\001current-error-port\376\001\000\000\037\001chicken.base#current-error-port\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\007\001disjoin\376\001\000\000\024\001chicken.base#disjoin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001each\376\001\000\000\021\001chicken.base#each" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001emergency-exit\376\001\000\000\033\001chicken.base#emergency-exit\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001e" "nable-warnings\376\001\000\000\034\001chicken.base#enable-warnings\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001equal=\077\376\001\000\000\024\001chi" "cken.base#equal=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001error\376\001\000\000\022\001chicken.base#error\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001ex" "act-integer\077\376\001\000\000\033\001chicken.base#exact-integer\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001exact-integer-nth-r" "oot\376\001\000\000#\001chicken.base#exact-integer-nth-root\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001exact-integer-sqrt\376\001" "\000\000\037\001chicken.base#exact-integer-sqrt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001exit\376\001\000\000\021\001chicken.base#exit\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\014\001exit-handler\376\001\000\000\031\001chicken.base#exit-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001finite\077" "\376\001\000\000\024\001chicken.base#finite\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fixnum\077\376\001\000\000\024\001chicken.base#fixnum\077\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\007\001flatten\376\001\000\000\024\001chicken.base#flatten\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001flip\376\001\000\000\021\001chicken.ba" "se#flip\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001flonum\077\376\001\000\000\024\001chicken.base#flonum\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001flush-ou" "tput\376\001\000\000\031\001chicken.base#flush-output\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001foldl\376\001\000\000\022\001chicken.base#foldl" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001foldr\376\001\000\000\022\001chicken.base#foldr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001gensym\376\001\000\000\023\001chicken" ".base#gensym\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001get-call-chain\376\001\000\000\033\001chicken.base#get-call-chain\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\021\001get-output-string\376\001\000\000\036\001chicken.base#get-output-string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001" "getter-with-setter\376\001\000\000\037\001chicken.base#getter-with-setter\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001identity\376" "\001\000\000\025\001chicken.base#identity\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001implicit-exit-handler\376\001\000\000\042\001chicken.bas" "e#implicit-exit-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001infinite\077\376\001\000\000\026\001chicken.base#infinite\077\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\020\001input-port-open\077\376\001\000\000\035\001chicken.base#input-port-open\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001i" "ntersperse\376\001\000\000\030\001chicken.base#intersperse\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001join\376\001\000\000\021\001chicken.base#j" "oin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001keyword-style\376\001\000\000\032\001chicken.base#keyword-style\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001" "list-of\077\376\001\000\000\025\001chicken.base#list-of\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-parameter\376\001\000\000\033\001chicken.b" "ase#make-parameter\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001make-promise\376\001\000\000\031\001chicken.base#make-promise\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\004\001nan\077\376\001\000\000\021\001chicken.base#nan\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001notice\376\001\000\000\023\001chicken.base" "#notice\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001o\376\001\000\000\016\001chicken.base#o\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001on-exit\376\001\000\000\024\001chicken" ".base#on-exit\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001open-input-string\376\001\000\000\036\001chicken.base#open-input-stri" "ng\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001open-output-string\376\001\000\000\037\001chicken.base#open-output-string\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\021\001output-port-open\077\376\001\000\000\036\001chicken.base#output-port-open\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001pa" "rentheses-synonyms\376\001\000\000!\001chicken.base#parentheses-synonyms\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001port\077\376\001" "\000\000\022\001chicken.base#port\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001port-closed\077\376\001\000\000\031\001chicken.base#port-closed" "\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001print-call-chain\376\001\000\000\035\001chicken.base#print-call-chain\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\005\001print\376\001\000\000\022\001chicken.base#print\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001print\052\376\001\000\000\023\001chicken.base#print\052" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001procedure-information\376\001\000\000\042\001chicken.base#procedure-information\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\010\001promise\077\376\001\000\000\025\001chicken.base#promise\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001quotient&modulo\376" "\001\000\000\034\001chicken.base#quotient&modulo\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001quotient&remainder\376\001\000\000\037\001chicken" ".base#quotient&remainder\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001rassoc\376\001\000\000\023\001chicken.base#rassoc\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\007\001ratnum\077\376\001\000\000\024\001chicken.base#ratnum\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001setter\376\001\000\000\023\001chicken.base" "#setter\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001signum\376\001\000\000\023\001chicken.base#signum\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001sleep\376\001\000\000\022" "\001chicken.base#sleep\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001string->uninterned-symbol\376\001\000\000&\001chicken.base#s" "tring->uninterned-symbol\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001sub1\376\001\000\000\021\001chicken.base#sub1\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\011\001subvector\376\001\000\000\026\001chicken.base#subvector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001symbol-append\376\001\000\000\032\001chick" "en.base#symbol-append\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001symbol-escape\376\001\000\000\032\001chicken.base#symbol-esca" "pe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001tail\077\376\001\000\000\022\001chicken.base#tail\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001vector-copy!\376\001\000\000\031" "\001chicken.base#vector-copy!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001vector-resize\376\001\000\000\032\001chicken.base#vector" "-resize\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001void\376\001\000\000\021\001chicken.base#void\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001warning\376\001\000\000\024\001c" "hicken.base#warning\376\377\016")); lf[4]=C_h_intern(&lf[4],36, C_text("##sys#chicken.base-macro-environment")); C_register_lf2(lf,5,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2ebase_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2ebase_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2ebase_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2ebase_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2ebase_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|removed binding forms: 4 */ /* end of file */ �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/posixwin.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000072675�13502227553�015340� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; posixwin.scm - Miscellaneous file- and process-handling routines, available on Windows ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. ; Not implemented: ; ; open/noctty open/nonblock open/fsync open/sync ; perm/isvtx perm/isuid perm/isgid ; file-select ; set-signal-mask! signal-mask signal-masked? signal-mask! signal-unmask! ; user-information ; change-file-owner ; current-user-id current-group-id current-effective-user-id current-effective-group-id ; current-effective-user-name ; set-user-id! set-group-id! ; create-session ; process-group-id set-process-group-id! ; create-symbolic-link read-symbolic-link ; file-truncate ; file-lock file-lock/blocking file-unlock file-test-lock ; create-fifo ; prot/... ; map/... ; set-alarm! ; process-fork process-wait ; parent-process-id ; process-signal ; Issues ; ; - Use of a UTF8 encoded string will not work properly. Windows uses a ; 16-bit UNICODE character string encoding and specialized system calls ; and/or structure settings for the use of such strings. (declare (uses data-structures)) (define-foreign-variable _stat_st_blksize scheme-object "C_SCHEME_UNDEFINED") (define-foreign-variable _stat_st_blocks scheme-object "C_SCHEME_UNDEFINED") (include "posix-common.scm") #> #ifndef WIN32_LEAN_AND_MEAN # define WIN32_LEAN_AND_MEAN #endif #include <direct.h> #include <errno.h> #include <fcntl.h> #include <io.h> #include <process.h> #include <signal.h> #include <stdio.h> #include <utime.h> #include <windows.h> #include <winsock2.h> #define PIPE_BUF 512 #ifndef EWOULDBLOCK # define EWOULDBLOCK 0 #endif static C_TLS int C_pipefds[ 2 ]; static C_TLS time_t C_secs; /* pipe handles */ static C_TLS HANDLE C_rd0, C_wr0, C_wr0_, C_rd1, C_wr1, C_rd1_; static C_TLS HANDLE C_save0, C_save1; /* saved I/O handles */ static C_TLS char C_rdbuf; /* one-char buffer for read */ static C_TLS int C_exstatus; /* platform information; initialized for cached testing */ static C_TLS char C_shlcmd[256] = ""; /* Current user name */ static C_TLS TCHAR C_username[255 + 1] = ""; #define open_binary_input_pipe(a, n, name) C_mpointer(a, _popen(C_c_string(name), "r")) #define open_text_input_pipe(a, n, name) open_binary_input_pipe(a, n, name) #define open_binary_output_pipe(a, n, name) C_mpointer(a, _popen(C_c_string(name), "w")) #define open_text_output_pipe(a, n, name) open_binary_output_pipe(a, n, name) #define close_pipe(p) C_fix(_pclose(C_port_file(p))) #define C_chmod(fn, m) C_fix(chmod(C_c_string(fn), C_unfix(m))) #define C_pipe(d, m) C_fix(_pipe(C_pipefds, PIPE_BUF, C_unfix(m))) #define C_close(fd) C_fix(close(C_unfix(fd))) #define C_u_i_lstat(fn) C_u_i_stat(fn) #define C_u_i_execvp(f,a) C_fix(execvp(C_c_string(f), (const char *const *)C_c_pointer_vector_or_null(a))) #define C_u_i_execve(f,a,e) C_fix(execve(C_c_string(f), (const char *const *)C_c_pointer_vector_or_null(a), (const char *const *)C_c_pointer_vector_or_null(e))) /* MS replacement for the fork-exec pair */ #define C_u_i_spawnvp(m,f,a) C_fix(spawnvp(C_unfix(m), C_c_string(f), (const char *const *)C_c_pointer_vector_or_null(a))) #define C_u_i_spawnvpe(m,f,a,e) C_fix(spawnvpe(C_unfix(m), C_c_string(f), (const char *const *)C_c_pointer_vector_or_null(a), (const char *const *)C_c_pointer_vector_or_null(e))) #define C_open(fn, fl, m) C_fix(open(C_c_string(fn), C_unfix(fl), C_unfix(m))) #define C_read(fd, b, n) C_fix(read(C_unfix(fd), C_data_pointer(b), C_unfix(n))) #define C_write(fd, b, n) C_fix(write(C_unfix(fd), C_data_pointer(b), C_unfix(n))) #define C_flushall() C_fix(_flushall()) #define C_umask(m) C_fix(_umask(C_unfix(m))) #define C_ctime(n) (C_secs = (n), ctime(&C_secs)) #define TIME_STRING_MAXLENGTH 255 static char C_time_string [TIME_STRING_MAXLENGTH + 1]; #undef TIME_STRING_MAXLENGTH /* mapping from Win32 error codes to errno */ typedef struct { DWORD win32; int libc; } errmap_t; static errmap_t errmap[] = { {ERROR_INVALID_FUNCTION, EINVAL}, {ERROR_FILE_NOT_FOUND, ENOENT}, {ERROR_PATH_NOT_FOUND, ENOENT}, {ERROR_TOO_MANY_OPEN_FILES, EMFILE}, {ERROR_ACCESS_DENIED, EACCES}, {ERROR_INVALID_HANDLE, EBADF}, {ERROR_ARENA_TRASHED, ENOMEM}, {ERROR_NOT_ENOUGH_MEMORY, ENOMEM}, {ERROR_INVALID_BLOCK, ENOMEM}, {ERROR_BAD_ENVIRONMENT, E2BIG}, {ERROR_BAD_FORMAT, ENOEXEC}, {ERROR_INVALID_ACCESS, EINVAL}, {ERROR_INVALID_DATA, EINVAL}, {ERROR_INVALID_DRIVE, ENOENT}, {ERROR_CURRENT_DIRECTORY, EACCES}, {ERROR_NOT_SAME_DEVICE, EXDEV}, {ERROR_NO_MORE_FILES, ENOENT}, {ERROR_LOCK_VIOLATION, EACCES}, {ERROR_BAD_NETPATH, ENOENT}, {ERROR_NETWORK_ACCESS_DENIED, EACCES}, {ERROR_BAD_NET_NAME, ENOENT}, {ERROR_FILE_EXISTS, EEXIST}, {ERROR_CANNOT_MAKE, EACCES}, {ERROR_FAIL_I24, EACCES}, {ERROR_INVALID_PARAMETER, EINVAL}, {ERROR_NO_PROC_SLOTS, EAGAIN}, {ERROR_DRIVE_LOCKED, EACCES}, {ERROR_BROKEN_PIPE, EPIPE}, {ERROR_DISK_FULL, ENOSPC}, {ERROR_INVALID_TARGET_HANDLE, EBADF}, {ERROR_INVALID_HANDLE, EINVAL}, {ERROR_WAIT_NO_CHILDREN, ECHILD}, {ERROR_CHILD_NOT_COMPLETE, ECHILD}, {ERROR_DIRECT_ACCESS_HANDLE, EBADF}, {ERROR_NEGATIVE_SEEK, EINVAL}, {ERROR_SEEK_ON_DEVICE, EACCES}, {ERROR_DIR_NOT_EMPTY, ENOTEMPTY}, {ERROR_NOT_LOCKED, EACCES}, {ERROR_BAD_PATHNAME, ENOENT}, {ERROR_MAX_THRDS_REACHED, EAGAIN}, {ERROR_LOCK_FAILED, EACCES}, {ERROR_ALREADY_EXISTS, EEXIST}, {ERROR_FILENAME_EXCED_RANGE, ENOENT}, {ERROR_NESTING_NOT_ALLOWED, EAGAIN}, {ERROR_NOT_ENOUGH_QUOTA, ENOMEM}, {0, 0} }; static void C_fcall set_errno(DWORD w32err) { errmap_t *map; for (map = errmap; map->win32; ++map) { if (map->win32 == w32err) { errno = map->libc; return; } } errno = ENOSYS; /* For lack of anything better */ } static int C_fcall set_last_errno() { set_errno(GetLastError()); return 0; } static int fd_to_path(C_word fd, TCHAR path[]) { DWORD result; HANDLE fh = (HANDLE)_get_osfhandle(C_unfix(fd)); if (fh == INVALID_HANDLE_VALUE) { set_last_errno(); return -1; } result = GetFinalPathNameByHandle(fh, path, MAX_PATH, VOLUME_NAME_DOS); if (result == 0) { set_last_errno(); return -1; } else if (result >= MAX_PATH) { /* Shouldn't happen */ errno = ENOMEM; /* For lack of anything better */ return -1; } else { return 0; } } static C_word C_fchmod(C_word fd, C_word m) { TCHAR path[MAX_PATH]; if (fd_to_path(fd, path) == -1) return C_fix(-1); else return C_fix(chmod(path, C_unfix(m))); } static C_word C_fchdir(C_word fd) { TCHAR path[MAX_PATH]; if (fd_to_path(fd, path) == -1) return C_fix(-1); else return C_fix(chdir(path)); } static int C_fcall process_wait(C_word h, C_word t) { if (WaitForSingleObject((HANDLE)h, (t ? 0 : INFINITE)) == WAIT_OBJECT_0) { DWORD ret; if (GetExitCodeProcess((HANDLE)h, &ret)) { CloseHandle((HANDLE)h); C_exstatus = ret; return 1; } } return set_last_errno(); } #define C_process_wait(p, t) (process_wait(C_unfix(p), C_truep(t)) ? C_SCHEME_TRUE : C_SCHEME_FALSE) static C_TLS int C_isNT = 0; static int C_fcall C_windows_nt() { static int has_info = 0; if(!has_info) { OSVERSIONINFO ovf; ZeroMemory(&ovf, sizeof(ovf)); ovf.dwOSVersionInfoSize = sizeof(ovf); has_info = 1; if(GetVersionEx(&ovf)) { SYSTEM_INFO si; switch (ovf.dwPlatformId) { case VER_PLATFORM_WIN32_NT: return C_isNT = 1; } } } return C_isNT; } static int C_fcall get_shlcmd() { /* Do we need to build the shell command pathname? */ if (!strlen(C_shlcmd)) { char *cmdnam = C_windows_nt() ? "\\cmd.exe" : "\\command.com"; UINT len = GetSystemDirectory(C_shlcmd, sizeof(C_shlcmd) - strlen(cmdnam)); if (len) C_strlcpy(C_shlcmd + len, cmdnam, sizeof(C_shlcmd)); else return set_last_errno(); } return 1; } #define C_sysinfo() (sysinfo() ? C_SCHEME_TRUE : C_SCHEME_FALSE) #define C_get_shlcmd() (get_shlcmd() ? C_SCHEME_TRUE : C_SCHEME_FALSE) /* GetUserName */ static int C_fcall get_user_name() { if (!strlen(C_username)) { DWORD bufCharCount = sizeof(C_username) / sizeof(C_username[0]); if (!GetUserName(C_username, &bufCharCount)) return set_last_errno(); } return 1; } #define C_get_user_name() (get_user_name() ? C_SCHEME_TRUE : C_SCHEME_FALSE) /* Spawn a process directly. Params: app Command to execute. cmdlin Command line (arguments). env Environment for the new process (may be NULL). handle, stdin, stdout, stderr Spawned process info are returned in integers. When spawned process shares standard io stream with the parent process the respective value in handle, stdin, stdout, stderr is -1. params A bitmask controling operation. Bit 1: Child & parent share standard input if this bit is set. Bit 2: Share standard output if bit is set. Bit 3: Share standard error if bit is set. Returns: zero return value indicates failure. */ static int C_fcall C_process(const char *app, const char *cmdlin, const char **env, int *phandle, int *pstdin_fd, int *pstdout_fd, int *pstderr_fd, int params) { int i; int success = TRUE; const int f_share_io[3] = { params & 1, params & 2, params & 4}; int io_fds[3] = { -1, -1, -1 }; HANDLE child_io_handles[3] = { NULL, NULL, NULL }, standard_io_handles[3] = { GetStdHandle(STD_INPUT_HANDLE), GetStdHandle(STD_OUTPUT_HANDLE), GetStdHandle(STD_ERROR_HANDLE)}; const char modes[3] = "rww"; HANDLE cur_process = GetCurrentProcess(), child_process = NULL; void* envblk = NULL; /****** create io handles & fds ***/ for (i=0; i<3 && success; ++i) { if (f_share_io[i]) { success = DuplicateHandle( cur_process, standard_io_handles[i], cur_process, &child_io_handles[i], 0, FALSE, DUPLICATE_SAME_ACCESS); } else { HANDLE a, b; success = CreatePipe(&a,&b,NULL,0); if(success) { HANDLE parent_end; if (modes[i]=='r') { child_io_handles[i]=a; parent_end=b; } else { parent_end=a; child_io_handles[i]=b; } success = (io_fds[i] = _open_osfhandle((C_word)parent_end,0)) >= 0; /* Make new handle inheritable */ if (success) success = SetHandleInformation(child_io_handles[i], HANDLE_FLAG_INHERIT, -1); } } } #if 0 /* Requires a sorted list by key! */ /****** create environment block if necessary ****/ if (env && success) { char** p; int len = 0; for (p = env; *p; ++p) len += strlen(*p) + 1; if (envblk = C_malloc(len + 1)) { char* pb = (char*)envblk; for (p = env; *p; ++p) { C_strlcpy(pb, *p, len+1); pb += strlen(*p) + 1; } *pb = '\0'; /* This _should_ already have been checked for embedded NUL bytes */ } else success = FALSE; } #endif /****** finally spawn process ****/ if (success) { PROCESS_INFORMATION pi; STARTUPINFO si; ZeroMemory(&pi,sizeof pi); ZeroMemory(&si,sizeof si); si.cb = sizeof si; si.dwFlags = STARTF_USESTDHANDLES; si.hStdInput = child_io_handles[0]; si.hStdOutput = child_io_handles[1]; si.hStdError = child_io_handles[2]; /* FIXME passing 'app' param causes failure & possible stack corruption */ success = CreateProcess( NULL, (char*)cmdlin, NULL, NULL, TRUE, 0, envblk, NULL, &si, &pi); if (success) { child_process=pi.hProcess; CloseHandle(pi.hThread); } else set_last_errno(); } else set_last_errno(); /****** cleanup & return *********/ /* parent must close child end */ for (i=0; i<3; ++i) { if (child_io_handles[i] != NULL) CloseHandle(child_io_handles[i]); } if (success) { *phandle = (C_word)child_process; *pstdin_fd = io_fds[0]; *pstdout_fd = io_fds[1]; *pstderr_fd = io_fds[2]; } else { for (i=0; i<3; ++i) { if (io_fds[i] != -1) _close(io_fds[i]); } } return success; } static int set_file_mtime(char *filename, C_word atime, C_word mtime) { struct stat sb; struct _utimbuf tb; /* Only stat if needed */ if (atime == C_SCHEME_FALSE || mtime == C_SCHEME_FALSE) { if (C_stat(filename, &sb) == -1) return -1; } if (atime == C_SCHEME_FALSE) { tb.actime = sb.st_atime; } else { tb.actime = C_num_to_int64(atime); } if (mtime == C_SCHEME_FALSE) { tb.modtime = sb.st_mtime; } else { tb.modtime = C_num_to_int64(mtime); } return _utime(filename, &tb); } <# (import (only chicken.string string-intersperse)) ;;; Lo-level I/O: (define-foreign-variable _o_noinherit int "O_NOINHERIT") (set! chicken.file.posix#open/noinherit _o_noinherit) (set! chicken.file.posix#file-open (let ((defmode (bitwise-ior _s_irwxu (fxior _s_irgrp _s_iroth)))) (lambda (filename flags . mode) (let ([mode (if (pair? mode) (car mode) defmode)]) (##sys#check-string filename 'file-open) (##sys#check-fixnum flags 'file-open) (##sys#check-fixnum mode 'file-open) (let ([fd (##core#inline "C_open" (##sys#make-c-string filename 'file-open) flags mode)]) (when (eq? -1 fd) (##sys#update-errno) (##sys#signal-hook #:file-error 'file-open "cannot open file" filename flags mode) ) fd) ) ) ) ) (set! chicken.file.posix#file-close (lambda (fd) (##sys#check-fixnum fd 'file-close) (let loop () (when (fx< (##core#inline "C_close" fd) 0) (cond ((fx= _errno _eintr) (##sys#dispatch-interrupt loop)) (else (posix-error #:file-error 'file-close "cannot close file" fd))))))) (set! chicken.file.posix#file-read (lambda (fd size . buffer) (##sys#check-fixnum fd 'file-read) (##sys#check-fixnum size 'file-read) (let ([buf (if (pair? buffer) (car buffer) (make-string size))]) (unless (and (##core#inline "C_blockp" buf) (##core#inline "C_byteblockp" buf)) (##sys#signal-hook #:type-error 'file-read "bad argument type - not a string or blob" buf) ) (let ([n (##core#inline "C_read" fd buf size)]) (when (eq? -1 n) (##sys#update-errno) (##sys#signal-hook #:file-error 'file-read "cannot read from file" fd size) ) (list buf n) ) ) ) ) (set! chicken.file.posix#file-write (lambda (fd buffer . size) (##sys#check-fixnum fd 'file-write) (unless (and (##core#inline "C_blockp" buffer) (##core#inline "C_byteblockp" buffer)) (##sys#signal-hook #:type-error 'file-write "bad argument type - not a string or blob" buffer) ) (let ([size (if (pair? size) (car size) (##sys#size buffer))]) (##sys#check-fixnum size 'file-write) (let ([n (##core#inline "C_write" fd buffer size)]) (when (eq? -1 n) (##sys#update-errno) (##sys#signal-hook #:file-error 'file-write "cannot write to file" fd size) ) n) ) ) ) (set! chicken.file.posix#file-mkstemp (lambda (template) (##sys#check-string template 'file-mkstemp) (let* ((diz "0123456789abcdefghijklmnopqrstuvwxyz") (diz-len (string-length diz)) (max-attempts (* diz-len diz-len diz-len)) (tmpl (string-copy template)) ; We'll overwrite this later (tmpl-len (string-length tmpl)) (first-x (let loop ((i (fx- tmpl-len 1))) (if (and (fx>= i 0) (eq? (string-ref tmpl i) #\X)) (loop (fx- i 1)) (fx+ i 1))))) (cond ((not (##sys#file-exists? (or (pathname-directory template) ".") #f #t 'file-mkstemp)) ;; Quit early instead of looping needlessly with C_open ;; failing every time. This is a race condition, but not ;; a security-critical one. (##sys#signal-hook #:file-error 'file-mkstemp "non-existent directory" template)) ((fx= first-x tmpl-len) (##sys#signal-hook #:file-error 'file-mkstemp "invalid template" template))) (let loop ((count 1)) (let suffix-loop ((index (fx- tmpl-len 1))) (when (fx>= index first-x) (string-set! tmpl index (string-ref diz (##core#inline "C_rand" diz-len))) (suffix-loop (fx- index 1)))) (let ((fd (##core#inline "C_open" (##sys#make-c-string tmpl 'file-open) (bitwise-ior chicken.file.posix#open/rdwr chicken.file.posix#open/creat chicken.file.posix#open/excl) (fxior _s_irusr _s_iwusr)))) (if (eq? -1 fd) (if (fx< count max-attempts) (loop (fx+ count 1)) (posix-error #:file-error 'file-mkstemp "cannot create temporary file" template)) (values fd tmpl))))))) ;;; Pipe primitive: (define-foreign-variable _pipefd0 int "C_pipefds[ 0 ]") (define-foreign-variable _pipefd1 int "C_pipefds[ 1 ]") (set! chicken.process#create-pipe (lambda (#!optional (mode (fxior chicken.file.posix#open/binary chicken.file.posix#open/noinherit))) (when (fx< (##core#inline "C_pipe" #f mode) 0) (##sys#update-errno) (##sys#signal-hook #:file-error 'create-pipe "cannot create pipe") ) (values _pipefd0 _pipefd1) ) ) ;;; Signal processing: (define-foreign-variable _nsig int "NSIG") (define-foreign-variable _sigterm int "SIGTERM") (define-foreign-variable _sigint int "SIGINT") (define-foreign-variable _sigfpe int "SIGFPE") (define-foreign-variable _sigill int "SIGILL") (define-foreign-variable _sigsegv int "SIGSEGV") (define-foreign-variable _sigabrt int "SIGABRT") (define-foreign-variable _sigbreak int "SIGBREAK") (set! chicken.process.signal#signal/term _sigterm) (set! chicken.process.signal#signal/int _sigint) (set! chicken.process.signal#signal/fpe _sigfpe) (set! chicken.process.signal#signal/ill _sigill) (set! chicken.process.signal#signal/segv _sigsegv) (set! chicken.process.signal#signal/abrt _sigabrt) (set! chicken.process.signal#signal/break _sigbreak) (set! chicken.process.signal#signal/alrm 0) (set! chicken.process.signal#signal/bus 0) (set! chicken.process.signal#signal/chld 0) (set! chicken.process.signal#signal/cont 0) (set! chicken.process.signal#signal/hup 0) (set! chicken.process.signal#signal/io 0) (set! chicken.process.signal#signal/kill 0) (set! chicken.process.signal#signal/pipe 0) (set! chicken.process.signal#signal/prof 0) (set! chicken.process.signal#signal/quit 0) (set! chicken.process.signal#signal/stop 0) (set! chicken.process.signal#signal/trap 0) (set! chicken.process.signal#signal/tstp 0) (set! chicken.process.signal#signal/urg 0) (set! chicken.process.signal#signal/usr1 0) (set! chicken.process.signal#signal/usr2 0) (set! chicken.process.signal#signal/vtalrm 0) (set! chicken.process.signal#signal/winch 0) (set! chicken.process.signal#signal/xcpu 0) (set! chicken.process.signal#signal/xfsz 0) (set! chicken.process.signal#signals-list (list chicken.process.signal#signal/term chicken.process.signal#signal/int chicken.process.signal#signal/fpe chicken.process.signal#signal/ill chicken.process.signal#signal/segv chicken.process.signal#signal/abrt chicken.process.signal#signal/break)) ;;; Using file-descriptors: (define duplicate-fileno (lambda (old . new) (##sys#check-fixnum old duplicate-fileno) (let ([fd (if (null? new) (##core#inline "C_dup" old) (let ([n (car new)]) (##sys#check-fixnum n 'duplicate-fileno) (##core#inline "C_dup2" old n) ) ) ] ) (when (fx< fd 0) (##sys#update-errno) (##sys#signal-hook #:file-error 'duplicate-fileno "cannot duplicate file descriptor" old) ) fd) ) ) ;;; Time related things: (set! chicken.time.posix#local-timezone-abbreviation (foreign-lambda* c-string () "char *z = (_daylight ? _tzname[1] : _tzname[0]);\n" "C_return(z);") ) ;;; Process handling: (define-foreign-variable _p_overlay int "P_OVERLAY") (define-foreign-variable _p_wait int "P_WAIT") (define-foreign-variable _p_nowait int "P_NOWAIT") (define-foreign-variable _p_nowaito int "P_NOWAITO") (define-foreign-variable _p_detach int "P_DETACH") (set! chicken.process#spawn/overlay _p_overlay) (set! chicken.process#spawn/wait _p_wait) (set! chicken.process#spawn/nowait _p_nowait) (set! chicken.process#spawn/nowaito _p_nowaito) (set! chicken.process#spawn/detach _p_detach) ; Windows uses a commandline style for process arguments. Thus any ; arguments with embedded whitespace will parse incorrectly. Must ; string-quote such arguments. (define quote-arg-string (let ((needs-quoting? ;; This is essentially (string-any char-whitespace? s) but we ;; don't want a SRFI-13 dependency. (Do we?) (lambda (s) (let ((len (string-length s))) (let loop ((i 0)) (cond ((fx= i len) #f) ((char-whitespace? (string-ref s i)) #t) (else (loop (fx+ i 1))))))))) (lambda (str) (if (needs-quoting? str) (string-append "\"" str "\"") str)))) (set! chicken.process#process-execute (lambda (filename #!optional (arglist '()) envlist exactf) (let ((argconv (if exactf (lambda (x) x) quote-arg-string))) (call-with-exec-args 'process-execute filename argconv arglist envlist (lambda (prg argbuf envbuf) (##core#inline "C_flushall") (let ((r (if envbuf (##core#inline "C_u_i_execve" prg argbuf envbuf) (##core#inline "C_u_i_execvp" prg argbuf)))) (when (fx= r -1) (posix-error #:process-error 'process-execute "cannot execute process" filename)))))))) (set! chicken.process#process-spawn (lambda (mode filename #!optional (arglist '()) envlist exactf) (let ((argconv (if exactf (lambda (x) x) quote-arg-string))) (##sys#check-fixnum mode 'process-spawn) (call-with-exec-args 'process-spawn filename argconv arglist envlist (lambda (prg argbuf envbuf) (##core#inline "C_flushall") (let ((r (if envbuf (##core#inline "C_u_i_spawnvpe" mode prg argbuf envbuf) (##core#inline "C_u_i_spawnvp" mode prg argbuf)))) (when (fx= r -1) (posix-error #:process-error 'process-spawn "cannot spawn process" filename)) r)))))) (define-foreign-variable _shlcmd c-string "C_shlcmd") (define (shell-command loc) (or (get-environment-variable "COMSPEC") (if (##core#inline "C_get_shlcmd") _shlcmd (begin (##sys#update-errno) (##sys#error loc "cannot retrieve system directory") ) ) ) ) (define (shell-command-arguments cmdlin) (list "/c" cmdlin) ) (set! chicken.process#process-run (lambda (f . args) (let ((args (if (pair? args) (car args) #f))) (if args (chicken.process#process-spawn chicken.process#spawn/nowait f args) (chicken.process#process-spawn chicken.process#spawn/nowait (shell-command 'process-run) (shell-command-arguments f)) ) ) ) ) ;;; Run subprocess connected with pipes: (define-foreign-variable _rdbuf char "C_rdbuf") (define-foreign-variable _wr0 int "C_wr0_") (define-foreign-variable _rd1 int "C_rd1_") ; from original by Mejedi ;; process-impl ; loc caller procedure symbol ; cmd pathname or commandline ; args string-list or '() ; env string-list or #f (currently ignored) ; stdoutf #f then share, or #t then create ; stdinf #f then share, or #t then create ; stderrf #f then share, or #t then create ; ; (values stdin-input-port? stdout-output-port? pid stderr-input-port?) ; where stdin-input-port?, etc. is a port or #f, indicating no port created. (define process-impl ;; XXX TODO: When environment is implemented, check for embedded NUL bytes! (let ([c-process (foreign-lambda bool "C_process" c-string c-string c-pointer (c-pointer int) (c-pointer int) (c-pointer int) (c-pointer int) int)]) ; The environment list must be sorted & include current directory ; information for the system drives. i.e !C:=... ; For now any environment is ignored. (lambda (loc cmd args env stdoutf stdinf stderrf #!optional exactf) (let* ((arglist (cons cmd args)) (cmdlin (string-intersperse (if exactf arglist (map quote-arg-string arglist))))) (let-location ([handle int -1] [stdin_fd int -1] [stdout_fd int -1] [stderr_fd int -1]) (let ([res (c-process cmd cmdlin #f (location handle) (location stdin_fd) (location stdout_fd) (location stderr_fd) (+ (if stdinf 0 1) (if stdoutf 0 2) (if stderrf 0 4)))]) (if res (values (and stdoutf (chicken.file.posix#open-input-file* stdout_fd)) ;Parent stdin (and stdinf (chicken.file.posix#open-output-file* stdin_fd)) ;Parent stdout handle (and stderrf (chicken.file.posix#open-input-file* stderr_fd))) (begin (##sys#update-errno) (##sys#signal-hook #:process-error loc "cannot execute process" cmdlin))) ) ) ) ) ) ) ;; TODO: See if this can be moved to posix-common (let ((%process (lambda (loc err? cmd args env exactf) (let ((chkstrlst (lambda (lst) (##sys#check-list lst loc) (for-each (cut ##sys#check-string <> loc) lst) ))) (##sys#check-string cmd loc) (if args (chkstrlst args) (begin (set! exactf #t) (set! args (shell-command-arguments cmd)) (set! cmd (shell-command loc)) ) ) (when env (check-environment-list env loc)) (receive (in out pid err) (process-impl loc cmd args env #t #t err? exactf) (if err? (values in out pid err) (values in out pid) ) ) ) )) ) (set! chicken.process#process (lambda (cmd #!optional args env exactf) (%process 'process #f cmd args env exactf) )) (set! chicken.process#process* (lambda (cmd #!optional args env exactf) (%process 'process* #t cmd args env exactf) )) ) (define-foreign-variable _exstatus int "C_exstatus") (define (process-wait-impl pid nohang) (if (##core#inline "C_process_wait" pid nohang) (values pid #t _exstatus) (values -1 #f #f) ) ) ;;; Getting group- and user-information: (define-foreign-variable _username c-string "C_username") (set! chicken.process-context.posix#current-user-name (lambda () (if (##core#inline "C_get_user_name") _username (begin (##sys#update-errno) (##sys#error 'current-user-name "cannot retrieve current user-name") ) ) ) ) ;;; unimplemented stuff: (define-unimplemented chown) ; covers set-file-group! and set-file-owner! (set!-unimplemented chicken.file.posix#create-fifo) (set!-unimplemented chicken.process-context.posix#create-session) (set!-unimplemented chicken.file.posix#create-symbolic-link) (set!-unimplemented chicken.process-context.posix#current-effective-group-id) (set!-unimplemented chicken.process-context.posix#current-effective-user-id) (set!-unimplemented chicken.process-context.posix#current-effective-user-name) (set!-unimplemented chicken.process-context.posix#current-group-id) (set!-unimplemented chicken.process-context.posix#current-user-id) (set!-unimplemented chicken.process-context.posix#user-information) (set!-unimplemented chicken.file.posix#file-control) (set!-unimplemented chicken.file.posix#file-link) (set!-unimplemented chicken.file.posix#file-lock) (set!-unimplemented chicken.file.posix#file-lock/blocking) (set!-unimplemented chicken.file.posix#file-select) (set!-unimplemented chicken.file.posix#file-test-lock) (set!-unimplemented chicken.file.posix#file-truncate) (set!-unimplemented chicken.file.posix#file-unlock) (set!-unimplemented chicken.process-context.posix#parent-process-id) (set!-unimplemented chicken.process#process-fork) (set!-unimplemented chicken.process-context.posix#process-group-id) (set!-unimplemented chicken.process#process-signal) (set!-unimplemented chicken.file.posix#read-symbolic-link) (set!-unimplemented chicken.process.signal#set-alarm!) (set!-unimplemented chicken.process-context.posix#set-root-directory!) (set!-unimplemented chicken.process.signal#set-signal-mask!) (set!-unimplemented chicken.process.signal#signal-mask) (set!-unimplemented chicken.process.signal#signal-mask!) (set!-unimplemented chicken.process.signal#signal-masked?) (set!-unimplemented chicken.process.signal#signal-unmask!) (set!-unimplemented chicken.process-context.posix#user-information) (set!-unimplemented chicken.time.posix#utc-time->seconds) (set!-unimplemented chicken.time.posix#string->time) ;; Unix-only definitions (set! chicken.file.posix#fcntl/dupfd 0) (set! chicken.file.posix#fcntl/getfd 0) (set! chicken.file.posix#fcntl/setfd 0) (set! chicken.file.posix#fcntl/getfl 0) (set! chicken.file.posix#fcntl/setfl 0) (set! chicken.file.posix#open/noctty 0) (set! chicken.file.posix#open/nonblock 0) (set! chicken.file.posix#open/fsync 0) (set! chicken.file.posix#open/sync 0) (set! chicken.file.posix#perm/isgid 0) (set! chicken.file.posix#perm/isuid 0) (set! chicken.file.posix#perm/isvtx 0) �������������������������������������������������������������������chicken-5.1.0/NEWS����������������������������������������������������������������������������������0000644�0001750�0001750�00000274005�13502227553�013442� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������5.1.0 - Core libraries - Symbols ending or starting with a colon are now always pipe-quoted when written by `write` to ensure they can be read back with a different keyword-style setting. - Read-write invariance of special symbols starting with #! other than #!key, #!rest or #!optional is now preserved (#1572). - When using (set-file-position!) on a port, its EOF status will now be reset. - In (chicken file posix), the values of perm/irgrp, perm/iwgrp, perm/ixgrp, perm/iroth, perm/iwoth and perm/ixoth are now correctly defined (they were all for "usr"; #1602, thanks to Eric Hoffman). - In (chicken file posix), `file-truncate` now accepts also accepts port objects, for consistency with other file procedures. All such procedures from (chicken file posix) now have the correct types in types.db (fixes #1609, thanks to Robert Jensen). - Add the system-config-directory and system-cache-directory procedures in the chicken.platform module. These procedures follow the XDG specification and also give sensible results on Windows. - Fix get-environment from (chicken process-context) to raise an error when passed #f instead of segfaulting. - Qualified symbols (##foo#bar style) are no longer encoded by a byte prefix inside the symbol name. This ensures read-write invariance of symbols which start with a low-byte character (fixes #1077, except for keywords, which start with NUL bytes). - Fix a missing export (list->s64vector) in SRFI-4. - Runtime system - Keywords are now distinct types; they are not a subtype of symbols. - Use arc4random on FreeBSD (thanks to Tobias Kortkamp and gahr) - Removed the unused, undocumented (and incorrect!) C functions C_delete_symbol_table and C_set_symbol_table. - Continuations which discard additional values beyond the first no longer accept multiple values via direct invocation after being captured through `call/cc`, only via `values` (revert of #1390, due to #1601) - SRFI-4 vector predicates, reference, set and length procedures should now be faster in tight loops as they're inlineable (#757). - Keywords are now interned in a separate keyword table, not in the standard symbol table. This brings full read-write invariance for symbols (they can now also start with NUL bytes). Keywords no longer have plists. Fixes #1576. - Increased the "binary compatibility version" to 11. - Compiler - Restored optimized implementations of =, +, -, /, * and quotient in fixnum-arithmetic mode (fixes #1604 mostly; thanks to "chickendan"). - Added an optimization pass for reducing the amount of boxing of intermediate floating point values, enabled by the "-lfa2" compiler option. - The "lfa2" pass is now enabled at optimization levels 2 or higher. - Module system - When you try to import the module you are currently defining into itself, an error will be raised. This prevents an infinite loop in the compiler when later trying to import that same module (fixes #1506, thanks to Kristian Lein-Mathisen). - Foreign function interface - Improved hygiene in FFI macro expansions, which means you don't have to import "scheme" or "(chicken base)" for them to work. - Type system - It is now possible to quote free variables in type declarations, which acts as shorthand for `forall' (thanks to "megane") - Tools - csi now uses (system-config-directory) to find csirc and falls back to $HOME/.csirc when needed. - chicken-install now uses (system-config-directory) to find a user defined setup.defaults file ; it also uses (system-cache-directory) for its egg cache directory when the CHICKEN_EGG_CACHE environment variable is not defined. - Egg specifications - Allows "cond-expand" and "error" forms in egg specification files. - Add "c-object" and "object" properties to link separately compiled C objects into CHICKEN code. 5.0.0 - Runtime system - Added support for the full numeric tower, including various new procedures taken from the "numbers" egg. All calculations will now return exact numbers where possible, so code relying on flonums being returned may need to be changed if rational numbers do not provide the desired performance. - Port directionality has been generalized from a simple input/output flag to a bitmap, to allow for multidirectional ports. - Weak symbol GC is faster, simpler, and can now collect all unreferenced symbols instead of a maximum of 997 per major GC. - The -:w option has been removed; symbols are now always collected. - Increased the "binary compatibility version" to 9. - Continuations which discard additional values beyond the first now also accept multiple values via direct invocation after being captured through `call/cc`, not just via `values` (#1390) - Removed the deprecated C_locative_ref and C_mutate2 C functions. - The trace buffer no longer holds on to thread objects, allowing them to be garbage collected sooner (#1356, thanks to Kristian Lein-Mathisen) - On Cygwin and MinGW, the "build-platform" now corresponds to the tool chain used (gnu, clang, unknown) like on *nix, while the software-version is now "cygwin" or "mingw32" instead of "unknown". This also means the features list will now contain the tool chain on all platforms. - Symbols starting with #% are no longer treated specially and need to be quoted with pipes. This makes the "%" sign available for use in custom/user-defined sharp-sign read syntax. - Compiler - Fixed an off by one allocation problem in generated C code for (list ...). - The "-scrutinize" compiler option has been removed. - The "-module" compiler option (aliased as "-m") now expects a module name. - The generated C output of the compiler is now deterministic: it will be bit-for-bit identical when compiling the same Scheme file with the same version of the compiler. - the "-consult-type-file" and "-emit-type-file" options have been renamed to "-consult-types-file" and "-emit-types-file", respectively. - Tools - The new "-link" option to csc allows linking with objects from extensions. - The new "-libdir" option to csc allows overriding the runtime library directory. - The ambiguous "-l<libname>" option for csc has been removed (#1193). - Removed deprecated "-n" shorthand for "-emit-inline-file" from csc. - Removed "chicken-bug" tool. - Core libraries - Removed support for memory-mapped files (posix), queues (data-structures), binary-search (data-structures), scan-input-lines (utils), group-information (posix) object-eviction (lolevel), and compile-file (utils). These are now available as eggs. - Removed the srfi-1, srfi-13, srfi-14, srfi-18, srfi-69, and utils units. These are now available as eggs. - Added the `executable-pathname` procedure for retrieving a path to the currently-running executable. - Removed all support for SWIG. - Removed interrupts-enabled declaration specifier. - `sleep` now suspends the current thread when threading is enabled, otherwise it sleeps the process. The new `process-sleep` procedure in unit posix can be used to sleep the process unconditionally. - `with-error-output-to-port' from the ports module has been renamed to the more common `with-error-to-port', and `with-error-to-string' has been added for completeness (thanks to Michael Silver). - A new `make-bidirectional-port' procedure has been added to the ports unit that will combine separate input- and output- ports into a single bidirectional port. - New `input-port-open?` and `output-port-open?` procedures have been added for testing whether a port is open in a specific direction. - An `include-relative` form has been added to the (chicken base) module. This works like `load-relative` but for textual inclusion. - Keywords are now always written in "portable" style by WRITE, so that the reader's keyword style doesn't need to match the writer's. - The environment variable `CHICKEN_PREFIX` has been removed. - Added the `glob->sre` procedure to the irregex library. - Removed the `get-host-name' and `system-information' procedures. These are available in the "system-information" egg. - Removed the `eval-when`, `select` and `ensure` macros. These are available in the "miscmacros" egg. - Removed the require-extension-for-syntax macro. - Renamed bit-set? to bit->boolean because of swapped argument order with respect to SRFI-33 and SRFI-60, which was confusing (fixes #1385, thanks to Lemonboy). - file-{read,write,execute}-access will now raise an exception when the file doesn't exist or some other non-access related problem is detected (fixes #1386, thanks to Vasilij Schneidermann). - `change-file-mode` was renamed to set-file-permissions! and SRFI-17 generalized set! support has been added for `file-permissions`. This procedure now also accepts a file descriptor or a port. - `file-permissions` now returns one value: the permission integer. - `read-file` has been renamed to `read-list`. - `read-all` was dropped, as `read-string` with #f as its NUM argument is equivalent. - `read-lines` and `read-all` no longer accept a string naming a file, only ports. - The procedures for random numbers have been reimplemented; access to system-specific entropy is available, together with a reasonably good pseudo random number generator (WELL512). - `glob` now returns an empty list for non-existent or inaccessible directories, instead of erroring out. - `file-copy' and `file-move' have been renamed to `copy-file' and `move-file', for consistency with `delete-file' and `rename-file'. - `rename-file' now refuses to overwrite an existing file unless an optional "clobber" argument is provided. - The `r4rs` module no longer exports `eval`, which was not in R4RS. - `process`, `process*` and `process-execute` now expect lists of the form (("NAME" . "VALUE") ...) instead of the previous (("NAME=VALUE") ...) as their environment argument. - `repository-path` is now a parameter containing a list of strings instead of a string, as the search path for libraries can now contain multiple directories. - `file-read-access?`, `file-write-access?` and `file-execute-access?` have been renamed `file-readable?`, `file-writable?` and `file-executable?` into the (chicken file) module. - Module system - The compiler has been modularised, for improved namespacing. This means names from the compiler should not leak out into the compiled program's (macro) namespace anymore. - The core units have been converted to modules under the "chicken" namespace. - Added support for list-style library names. - The "use" and "use-for-syntax" special forms have been removed in favor of "import" and "import-for-syntax" to reduce confusion. - Module imports are now lexically scoped: identifiers provided by an (import ...) inside (let ...) won't be visible outside that let. - Modules implementing an interface can now correctly export extra identifiers (bug reported by Martin Schneeweis, fix by "megane"). - Syntax expander - Removed support for (define-syntax (foo e r c) ...), which was undocumented and not officially supported anyway. - Removed support for normal "lambda" forms as syntax transformers, which has been deprecated since 4.8.0. - define and friends are now aggressively rejected in "expression contexts" (i.e., anywhere but toplevel or as internal defines). - define-record and define-record-type now create record types which are tagged with the module in which they're defined, so predicates no longer return #t for records with the same tag defined in another module. This tag is now also available under an identifier that matches the record type name (fixes #1342). - `include` now splices included expressions in the context in which the inclusion appears and does not treat the expressions as toplevel expressions by default. - Eggs management - Egg-installation and building has been completely overhauled. - .meta + .setup files have been merged into a single declarative ".egg" file. - More static checks for egg descriptions, simplified generation of OS-specific build + install commands that is (hopefully) more practical for package maintainers. - Egg sources are cached locally to reduce download and rebuild times. - Dropped many obscure or unimportant options and features from `chicken-install`: (`-keep-installed`, `-reinstall`, `-proxy`, `-no-install`, `-username`, `-password`, `-init`, `-deploy`, `-keep-going`, `-scan`, `-csi`, `-show-depends`, `-show-foreign-depends`, `-prefix`. - Added new "-from-list" option to chicken-install. - Eggs can now be installed and located in multiple directories, using the `CHICKEN_REPOSITORY_PATH` + `CHICKEN_INSTALL_REPOSITORY` environment variables. - Static compilation of eggs is now fully supported and static versions of compiled eggs are available by default. - In a statically built chicken, the egg-tools ("chicken-install", "...-status", "...-uninstall") are still available, but only support static compilation of eggs. - Foreign function interface - The foreign type specifier "ssize_t" is now accepted, and "size_t" arguments now only accept positive integers. Return values of type size_t are no longer truncated on 32-bit platforms. 4.13.0 - Security fixes - CVE-2017-6949: Remove unchecked malloc() call in SRFI-4 constructors when allocating in non-GC memory, resulting in potential 1-word buffer overrun and/or segfault (thanks to Lemonboy). - CVE-2017-9334: `length' no longer crashes on improper lists (fixes #1375, thanks to "megane"). - CVE-2017-11343: The randomization factor of the symbol table was set before the random seed was set, causing it to have a fixed value on many platforms. - Core Libraries - Unit "posix": If file-lock, file-lock/blocking or file-unlock are interrupted by a signal, we now retry (thanks to Joerg Wittenberger). - char-ready? on string ports now also returns #t at EOF, as per R5RS; in other words, it always returns #t (thanks to Moritz Heidkamp) - Unit srfi-4: Fixed typo that broke SRFI-17 generalised set! syntax on s8vectors (thanks to Kristian Lein-Mathisen). - Large literals no longer crash with "invalid encoded numeric literal" on mingw-64 (#1344, thanks to Lemonboy). - Unit irregex: Fix bug that prevented multibyte UTF-8 character sets from being matched correctly (Thanks to Lemonboy and Chunyang Xu). - Runtime system: - The profiler no longer uses malloc from a signal handler which may cause deadlocks (#1414, thanks to Lemonboy). - The scheduler no longer indirectly hangs on to the old thread when switching to a new one, which caused excessive memory consumption (#1367, thanks to "megane"). - C++ programs no longer fail with a symbol lookup error when compiled with debugger support (-d3 or -debug-info). - Syntax expander - Renaming an identifier twice no longer results in an undo of the rename (fixes #1362, thanks to "megane"). - Build system - Fixed broken compilation on NetBSD, due to missing _NETBSD_SOURCE. - Fixed compilation on DragonflyBSD due to no feature macro support in its standard C library (thanks to Markus Pfeiffer). - Compiler - The scrutinizer no longer uses 'fixnum as the type for fixnums that might not fit into a fixnum on 32-bit architectures. - Foreign function interface - Correctly calculate memory requirements of Scheme objects produced from foreign types with "const" qualifiers, avoiding memory corruption (#1424, thanks to Vasilij Schneidermann and Lemonboy) - Do not read beyond temporary stack buffer, which could lead to a crash when returning from a foreign callback (#1428). 4.12.0 - Security fixes - CVE-2016-6830: Fix buffer overrun due to excessively long argument or environment lists in process-execute and process-spawn (#1308). This also removes unnecessary limitations on the length of these lists (thanks to Vasilij Schneidermann). - CVE-2016-6831: Fix memory leak in process-execute and process-spawn. If, during argument and environment list processing, a list item isn't a string, an exception is thrown, in which case previously malloc()ed strings weren't freed. - CVE-2016-9954: Irregex has been updated to 0.9.6, which fixes an exponential explosion in compilation of nested "+" patterns. - Compiler: - define-constant now correctly keeps symbol values quoted. - Warnings are now emitted when using vector-{ref,set!} or one of take, drop, list-ref or list-tail with an out of range index for vectors and proper lists of a definitely known length. - The scrutinizer will no longer drop knowledge of the length of a vector. It still drops types of its contents (which may be mutated). - Fixed incorrect argvector restoration after GC in directly recursive functions (#1317). - "Direct" procedure invocations now also maintain debug info (#894). - Syntax expander - DSSSL lambda lists have improved hygiene, so they don't need the chicken or scheme modules to be imported in full (#806). - The let-optionals* macro no longer needs "quote", "car" and "cdr" to be imported and bound to their default values (#806). - Runtime system: - C_locative_ref has been deprecated in favor of C_a_i_locative_ref, which is faster because it is inlined (#1260, thanks to Kooda). - The default error handler now truncates very long condition messages (thanks to Lemonboy). - Weak symbol GC (-:w) no longer drops random symbols (#1173). - The number of arguments to procedures, both via "apply" and direct invocation, are now limited only by the C stack size (#1098). - "time" macro now shows peak memory usage (#1318, thanks to Kooda). - Avoid crashes in ffi callbacks after GC (#1337, thanks to cosarara). - Core libraries: - Irregex has been updated to 0.9.5, which fixes matching of all "bow" occurrances beyond the first with irregex-fold (upstream issue #14). - Keywords are more consistently read/written, like symbols (#1332). - SRFI-39: When jumping out of a parameterized dynamic extent, "parameterize" now remember the actual values, so when jumping back in, they are restored (fixes #1336, thanks to Joo ChurlSoo). This was a regression caused by the fix for #1227. - Tools: - "chicken-install" - When installing eggs in deploy mode with "-keep-installed", eggs under the prefix won't unnecessarily be reinstalled (#1144). - Added new option "-no-install-deps" which inhibits automatic installation of dependencies, useful with "-prefix" (#1298). 4.11.0 - Security fixes - Specialisation rules for string-{ref,set!}, bit-set? and move-memory no longer use unchecked C functions which could result in undefined behaviour, including buffer overruns (#1216). - Platform support - CHICKEN now supports the Linux X32 ABI (thanks to Sven Hartrumpf). - Tools - Feathers now has a more neutral color scheme and larger font size. - With the -dir option, feathers can now correctly find source code. - Runtime system: - The calling convention of CPS procedures has been changed to use "argument vectors" instead of C calling convention. - The C API of C_values(), C_do_apply() and how to invoke CPS functions has changed. The C_procN() macros have disappeared. The manual example in "Accessing external objects" for C_values has been updated. See also the "numbers" egg for examples on how to support pre- and post-4.10.1 CHICKENs simultaneously. - Apply hack is no longer used; the limitation of 128 arguments has been lifted for platforms which had no apply hack. - Increased the "binary compatibility version" to 8. - Delivery of signals in other OS-level threads is now dealt with in a more robust way (#1232) (thanks to Joerg Wittenberger). - Compiled programs with large literals won't crash on startup (#1221). - Comparisons of closures now behave in a stable way, whether or not the code was compiled with the -no-lambda-info option (#1041). - The signal handling code can no longer trigger "stack overflow" or "recursion too deep or circular data encountered" errors (#1283). - Compiler: - Specializations on implicit "or" types like "number" or "boolean" now work, removing the requirement for the inferred types to match declared types exactly. Specializations are matched from first to last to resolve ambiguities (#1214). - Compiler rewrites for char{<,>,<=,>=,=}? are now safe (#1122). - When requesting to emit import libraries that don't exist, the compiler now gives an error instead of quietly continuing (#1188). - Don't silently truncate huge literals (thanks to Claude Marinier). - Core libraries - try-compile from setup-api cleans up temporary output files (#1213). - SRFI-18: thread-join! no longer gives an error when passed a thread in the "sleeping" state (thanks to Joerg Wittenberger) - SRFI-18: mutex-lock! will not set ownership of mutexes when passed #f as the owner (#1231), not disown a mutex from owner if locking fails for timeout and not keep the last thread which held a mutex until the next lock (thanks to Joerg Wittenberger). - SRFI-39: When a parameter's "guard" procedure raises an exception, "parameterize" now correctly resets the original values of all parameters (fixes #1227, thanks to Joo ChurlSoo). - Irregex has been updated to 0.9.4, which fixes severe performance problems with {n,m} repeating patterns (thanks to Caolan McMahon). - Unit "posix": The following posix procedures now work on port objects: file-stat, file-size, file-owner, file-permissions, file-modification-time, file-access-time, file-change-time, file-type and all procedures using file-type. These are: regular-file?, symbolic-link?, block-device?, character-device? fifo? and socket?. - Unit "posix": When "file-close" is interrupted it will retry, to avoid leaking descriptors (thanks to Joerg Wittenberger). - Unit "data-structures": alist-{update[!],ref} were made consistent with srfi-1 in the argument order of comparison procedures. - Unit "lolevel": locative-ref has been fixed for locatives of u32 and s32vectors (thanks to Joerg Wittenberger for pointing this out). - string->number now signals exceptions if passed a bad base instead of segfaulting (#1272; reported by "Tilpner" on IRC). - Tools - A debugger is now available, known as "feathers", which allows basic source-level debugging of compiled Scheme code. - A statistical profiler has been added, enabling sampling-based runtime profiling of compiled programs. - "chicken-install" - When installing eggs in deploy mode, already satisfied dependencies aren't reinstalled every time (#1106). - "chicken-uninstall" - -prefix and -deploy options were added, matching chicken-install. - "chicken-status" - -prefix and -deploy options were added, matching chicken-install. - The -sudo and -s options for chicken-install and chicken-uninstall now honor a "SUDO" environment variable (thanks to Timo Myyrä). - Syntax expander - Mixed internal define/define-values are now correctly ordered, so later defines can refer to earlier define-values (#1274). 4.10.0 - Security fixes - CVE-2014-6310: Use POSIX poll() on Android platform to avoid potential select() buffer overrun. - CVE-2014-9651: substring-index[-ci] no longer scans beyond string boundaries. - CVE-2015-4556: string-translate* no longer scans beyond string boundaries. - Core libraries - alist-ref from unit data-structures now gives an error when passed a non-list, for consistency with assv/assq/assoc. - Unit tcp now implicitly depends on ports instead of extras. This may break programs which don't use modules and forgot to require extras but use procedures from it. - SRFI-13: fix string-copy! in cases source and destination strings' memory areas overlap (#1135). - SRFI-1: Check argument types in lset and list= procedures (#1085). - Fixed another, similar bug in move-memory! for overlapping memory. - Fixed broken specialisation for move-memory! on pointer types. - Fixed broken specialisation for irregex-match-num-submatches. - Fixed bug in make-kmp-restart-vector from SRFI-13. - Removed deprecated implicit expansion of $VAR- and ~ in pathnames. The ~-expansion functionality is now available in the "pathname-expand" egg (#1001, #1079) (thanks to Florian Zumbiehl). - normalize-pathname has been simplified to avoid adding trailing slashes or dots (#1153, thanks to Michele La Monaca and Mario Goulart). - Unit srfi-4: - write-u8vector has been made more efficient (thanks to Thomas Hintz). - read-u8vector has been made more efficient (thanks to Andy Bennett for pointing this out and testing an improvement). - Unit lolevel: - Restore long-lost but still documented "vector-like?" procedure (#983) - Unit "files": - normalize-pathname no longer considers paths starting with ".//" as absolute (#1202, reported by Haochi Kiang). - Unit "posix": - set-file-position! now allows negative positions for seek/cur (thanks to Seth Alves). - file-mkstemp now works correctly on Windows, it now returns valid file descriptors (#819, thanks to Michele La Monaca). - create-directory on Windows now creates all intermediate directories when passed #t as second parameter. - Runtime system: - Removed several deprecated, undocumented parts of the C interface: C_zap_strings, C_stack_check, C_retrieve, C_retrieve_proc, C_retrieve_symbol_proc, C_i_foreign_number_vector_argumentp, C_display_flonum, C_enumerate_symbols - Removed several deprecated and undocumented internal procedures: ##sys#zap-strings, ##sys#round, ##sys#foreign-number-vector-argument, ##sys#check-port-mode, ##sys#check-port* - SIGBUS, SIGILL and SIGFPE will now cause proper exceptions instead of panicking (thanks to Joerg Wittenberger). - Module system - Allow functor arguments to be optional, with default implementations. - Fixed a bug that prevented functors from being instantiated with built-in modules. - Fixed generation of import libraries for instantiated functors (#1149, thanks to Juergen Lorenz). - Syntax expander - define-values, set!-values and letrec-values now support full lambda lists as binding forms - cond expands correctly when a constant is used in combination with => (thanks to Michele La Monaca) - C API - Removed deprecated C_get_argument[_2] and C_get_environment_variable[_2] functions. - C_mutate2 has been deprecated in favor of C_mutate - chicken.h can be included in C++ programs in strict C++11 mode without compiler errors on Linux (thanks to "Izaak"). - Foreign function interface - The foreign type specifier "scheme-pointer" now accepts an optional C pointer type (thanks to Moritz Heidkamp and Kristian Lein-Mathisen). - Type hinting for foreign-primitives now allows returning multiple values when no return type has been specified. - Compiler - Fixed an off by one allocation problem in generated C code for (list ...). - Build system - MANDIR was renamed to MAN1DIR and TOPMANDIR was renamed to MANDIR in order to comply with standard Makefile practice in UNIX. - INCDIR was renamed to CHICKENINCDIR, and now derives from INCLUDEDIR, which defaults to $(PREFIX)/include - BINDIR, LIBDIR, SHAREDIR, INCLUDEDIR, MANDIR, MAN1DIR, DOCDIR, CHICKENINCDIR and CHICKENLIBDIR will now also be taken from the environment, if present (like PLATFORM, DESTDIR and PREFIX). - Tools - "csc" - On Cygwin, -static now works again (thanks to Michele La Monaca) - "chicken-install" - When using chicken-install -retrieve, and an error occurs during retrieval (or the egg doesn't exist), the egg's directory is now properly cleaned up (#1109, thanks to Alex Charlton) - "chicken" - The -r5rs-syntax option did nothing; this has been fixed. 4.9.0 - Security fixes - CVE-2014-3776: read-u8vector! no longer reads beyond its buffer when length is #f (thanks to Seth Alves). - CVE-2013-4385: read-string! no longer reads beyond its buffer when length is #f. - CVE-2013-1874: ./.csirc is no longer loaded from the current directory upon startup of csi, which could lead to untrusted code execution. (thanks to Florian Zumbiehl) - CVE-2013-2024: On *nix, the qs procedure now single-quotes everything instead of relying on a blacklist of shell characters to be escaped. On Windows, it properly duplicates double-quote characters. (thanks to Florian Zumbiehl) - CVE-2013-2075: Use POSIX poll() in other places where select() was still being used. (thanks to Florian Zumbiehl and Joerg Wittenberger) - CVE-2012-6122: Use POSIX poll() on systems where available. This avoids a design flaw in select(); it supports no more than FD_SETSIZE descriptors. - Core libraries - Fix subvector when the TO optional argument equals the given vector length (#1097) - Unit extras now implicitly depends on ports. ports no longer implicitly depends on extras. This may break programs which don't use modules and forgot to require ports but use procedures from it. - Support has been added for the space-safe R7RS macro "delay-force". - Export file-type from the posix unit (thanks to Alan Post). - SRFI-4 s8vectors now work correctly in compiled code on PowerPC and ARM. - thread-join! now works correctly even if the waiting thread was prematurely woken up by a signal. - unsetenv has been fixed on Windows. - The process procedure has been fixed on Windows. - Nonblocking behaviour on sockets has been fixed on Windows. - Possible race condition while handling TCP errors has been fixed. - The posix unit will no longer hang upon any error in Windows. - resize-vector no longer crashes when reducing the size of the vector. - Distinct types for boolean true and false have been added to the scrutinizer. - Fixed bugs in string-trim-right, string-index-right and string-skip-right, from SRFI-13 - read-line no longer returns trailing CRs in rare cases on TCP ports (#568) - write and pp now correctly use escape sequences for control characters (thanks to Florian Zumbiehl) - posix: memory-mapped file support for Windows (thanks to "rivo") - posix: find-file's test argument now also accepts SRE forms. - numerator and denominator now accept inexact numbers, as per R5RS (reported by John Cowan). - Implicit $VAR- and ~-expansion in pathnames have been deprecated (#1001) - Fixed EINTR handling in process-wait and when reading from file ports. - Irregex is updated to 0.9.2, which includes bugfixes and faster submatches. - Compile-time expansions for "[sf]printf" are slightly more efficient. - Removed the deprecated "always?", "never?", "shuffle" and "none?" procedures. - Fixed problem "make-pathname" that returned an absolute path if given a relative one without a directory argument. - The implementation of promises has been made more efficient. - Removed the deprecated "c-runtime", "null-pointer?" and "pointer-offset" procedures. - The deprecated alias "mutate-procedure" for "mutate-procedure!" has been removed. - On 64-bit systems the feature identifier "64bit" is registered. - "process-fork" accepts an optional argument that specifies wether other threads should be terminated in the child process. - The "signal/bus" signal identifier was missing. - Added setter-procedure for "signal-mask". - Added "recursive-hash-max-length" and "recursive-hash-max-depth" parameters (srfi-69). - Platform support - CHICKEN can now be built on AIX (contributed by Erik Falor) - CHICKEN can now be built on GNU Hurd (contributed by Christian Kellermann) - Basic support has been added for building Android and iOS binaries (see the "README" file for caveats and pitfalls) (contributed by Felix Winkelmann from bevuta IT GmbH) - Added support for 64-bit Windows (consult the "README" file for more information). - Runtime system - finalizers on constants are ignored in compiled code because compiled constants are never GCed (before, the finalizer would be incorrectly invoked after the first GC). (Reported by "Pluijzer") - The call trace buffer is now also resizable at runtime via ##sys#resize-trace-buffer. - C_zap_strings and ##sys#zap-strings (undocumented) have been deprecated. - Special events in poll() are now handled, avoiding hangs in threaded apps. - When invoking procedures with many rest arguments directly (not via APPLY), raise an error when argument count limit was reached instead of crashing. - When the maximum allowed heap size is reached, panic instead of crashing. - The code generated for mutating data destructively is partially inlined and thus slightly more efficient. - Fixed incorrect code in the foreign argument conversion for "unsigned-integer64" (#955). For unsigned-integer, integer64 and unsigned-integer64, disallow floating-point numbers. Fix behavior on 32-bit systems. - On systems that provide sigprocmask(2), segmentation violations, illegal instruction signals, bus errors and floating-point exceptions are now caught and trigger normal error-processing (including a backtrace). The handling of these so called "serious" signals can be disabled by passing the "-:S" runtime option to executables. - Reclamation of unused interned symbols (enabled with the "-:w" runtime option) works much better now. - Build system - The tests can now be run without having to first install CHICKEN. - Fixed a dependency problem that made it impossible to build the distribution tarball on Windows with the mingw compiler. - Increased the "binary compatibility version" to 7. - Tools - "csc" - "-z origin" is now passed as a linker option on FreeBSD when compiling for deployment (thanks to Jules Altfas & Vitaly Magerya) - "-deploy" works now on FreeBSD (thanks to Jules Altfas and Vitaly Magerya), OpenBSD and NetBSD (see README for NetBSD). - added "-oi"/"-ot" options as alternatives to "-emit-inline-file" and "-emit-type-file", respectively; "-n" has been deprecated. - .c/.o files are no longer overwritten when they have the same basename as a Scheme source file (i.e. "csc foo.scm foo.c -o foo" works now). - "chicken-install" - "-deploy" now correctly installs dependencies of deployed eggs under the deployment directory instead of globally. - Full URI syntax is now supported for proxy environment variables (thanks to Michele La Monaca) - "chicken-status" - Added -eggs command line option to list installed eggs - misc - Removed the deprecated "-v" options (use "-version" instead) in various core programs. - The runtime linker path for compiled executables was not set correctly on FreeBSD systems. This has now been fixed. - Removed the deprecated "make" and "make/proc" facility from the "setup-api" module; also removed the deprecated "required-extension-version" and "required-chicken-version" procedures. - Syntax - Added the aliases "&optional" and "&rest" as alternatives to "#!optional" and "#!rest" in type-declarations (suggested by Joerg Wittenberger). - Vectors, SRFI-4 number vectors and blobs are now self-evaluating for R7RS compatibility. Being literal constants, they are implicitly quoted. - For R7RS compatibility, named character literals #\escape and #\null are supported as aliases for #\esc and #\nul. WRITE will output R7RS names. - The CASE form accepts => proc syntax, like COND (as specified by R7RS). - letrec* was added for R7RS compatibility. Plain letrec no longer behaves like letrec*. - Compiler - the "inline" declaration does not force inlining anymore as recursive inlining could lead to non-termination of the compiler (thanks to Andrei Barbu). - Type-analysis ("scrutiny") is enabled by default now, unless "-optimize-level 0" or "-no-usual-integrations" is given. - The "-scrutinize" compiler option has been deprecated. - A new lightweight flow-analysis pass ("lfa2") has been added. Enable by passing the "-lfa2" option to the compiler. - The deprecated options "-disable-warning", "-heap-growth", "-heap-shrinkage" and "-heap-initial-size" have been removed. - Removed the deprecated "constant" declaration. - Removed the deprecated "-lambda-lift" and "-unboxing" compiler options. - Removed the deprecated "-V" compiler option. - Generated names for formal parameters of foreign functions are slightly more informative. - Unused references to variables that name intrinsics can be removed. - In the flow-analysis pass, matching of combinations of "list"/"list-of" and "or" types with has been made more reliable. - Fixed various bugs in the type database. - Syntax expander - added "require-extension-for-syntax" and "use-for-syntax". - Extended syntactic definitions are now available by default in all evaluated code, particularly in code evaluated at runtime in compiled applications. - Removed the deprecated variant "(define-compiler-syntax (NAME . LLIST) BODY ...)" of "define-compiler-syntax". - C API - Deprecated C_get_argument[_2] and C_get_environment_variable[_2] functions. - Removed the deprecated "__byte_vector" type. 4.8.0 - Security fixes - CVE-2012-6125: Improved hash table collision resistance and added randomization to prevent malicious external causes of collisions. All SRFI-69 procedures accept extra arguments to control randomization for testing/debugging. - CVE-2012-6124: On 64-bit machines the "random" procedure no longer truncates result values (which caused very nonrandom results for very large values). Note that random shouldn't be used for security-critical code. - CVE-2012-6123: Added checks for embedded '\0' characters in strings passed to some C functions on a lower level than CHICKEN's FFI. - Build system - version information has been moved into a separate unit to make the build-version shown in the banner and accessible through library procedures more accurate, this also speeds up the build on version- changes (thanks to Jim Ursetto for contributing this) - the build was made more reliable with respect to cross-compilation and custom installation names - the test-suite is now working on the mingw32 platform (with a few tests disabled due to missing functionality) - the version and branch of the sources are now properly compiled into the core libraries and shown in the "csi" and "chicken" version headers - The default target library name for an installation configured for cross- compilation is now "libchicken" and independent on any particular setting of PROGRAM_PREFIX/PROGRAM_SUFFIX (thanks to Otavio Salvador) - Compiler - Fixed bug in handling of symbols in constant-definitions (thanks to Peter Bex) - Stricter check for value-part of constant definition (thanks to Kon Lovett) - Fixed bug that caused argument-signatures of external definitions to be incorrectly modified during optimization (thanks to Peter Bex) - Failing constant-folding expressions now produce a compile-time warning - Fixed various bugs in the internal type-database (thanks to Kon Lovett and Peter Bex) - Fixed incorrect optimization rules for some fp-rounding and fixnum operators - added "-specialize" option and "specialize" declaration which enables optimizations of uses of core library procedures based on type- information gathered during flow analysis - "-optimize-level 3" and higher now implies "-specialize" - added option "-strict-types" and "-emit-type-file" - progress-information is now only shown with "-debug p"; the "-verbose" option only shows informational but noncritical messages - added optimizations for some library procedures - variable propagation for global variable accesses is now done in certain situations - the algorithmic complexity of the closure-conversion pass has been reduced which speeds up compilation noticably for large files - the "-uses" option handles whitespace in unit lists given on the command line (thanks to Santosh Rajan) - the alternative branch in a conditional is dropped when the condition is known to be a non-boolean value (suggested by Joerg Wittenberger) - implemented numerous fixes and improvements for flow analysis - fixed a bug in the compiler that could cause some variable bindings to be optimized away in certain situations involving inlining - added an experimental optimization called "clustering" (enable with the compiler option of the same name) - the optimizations done by the compiler are now listed as a comment in the generated C file - the type-information obtained during flow-analysis ("scrutiny") is now used for performing type-sensitive optimizations of calls to most of the core-library procedures - deprecated the "constant" declaration specifier - "unboxing" optimization has been completely removed - the implementation was unreliable and unmaintainable; the "-unboxing" compiler option will still be accepted but will produce a warning - Peter Bex contributed an optimization to the analysis pass that greatly reduces compile time for source code containing deeply nested lexical bindings - procedures that are known to have the value of a core library procedure that is a "standard" or "extended binding" will be inlined - enhanced line number tracking to get better error messages from the scrutinizer. - hygiene bugs related to compiler-syntax were fixed. - the local flow-analysis was sometimes reporting multiple warnings for the same type-conflict. - the time/space-complexity of some algorithms used in the compiler were reduced resulting in much better compile-times especially for large source files. - Interpreter - ",q" leaves the currently active REPL invocation instead of terminating the process (as suggested by John Cowan) - ",m" properly switches between modules (thanks to Christian Kellermann) - Core libraries - Cleaned up the set of available internal SRFI-feature-identifiers - Fixed bugs in "make-pathname" and "normalize-pathname" (thanks to Jim Ursetto) - The reader is now more consistent when parsing symbol- and keyword names that are fully or partially escaped (thanks to Kon Lovett) - The printer now does a better job at escaping certain single-character symbol names - Unit "lolevel" - deprecated "null-pointer" and "null-pointer?" - Fixed a bug in the Windows implementation of "file-type" (thanks to Jim Ursetto) - Fixed a bug in the implementation of "current-milliseconds" that could result in integer-overflow - Fixed an incorrect type-check in "list-ref" (thanks to Sven Hartrumpf) - Disabled "-setup-mode" when compiling extensions for deployment (thanks to Ivan Raikov) - Got rid of some warnings in the C runtime system that were triggered on the SunPro C compiler (thanks to Joe Python) - Fixed bug in "string->number" that caused out-of-range characters to be accepted for base > 10 (thanks to Jim Ursetto) - added "foldl" and "foldr" procedures, which are more efficient and have a more consistent argument order than the corresponding SRFI-1 procedures - "shuffle" has been deprecated - added "queue-length" - "queue->list" allocates and returns a fresh list now - invoking a parameter-procedure with an argument will return the new value - added new procedure "quit" - port-procedures now check correctly for argument-ports being open (thanks to Peter Bex) - "repl" accepts an optional evaluator procedure (suggested by John Cowan) - added a setter procedure to "signal-handler" ("posix" unit) - EINTR is properly handled for input routines that may block waiting for input - the implementation of R5RS evaluation environments is now fully standards compliant - "file-exists?" and "directory-exists?" work now properly for files > 2GB (EOVERFLOW handling in stat(3) system call) - fixed bug in implementation of "fifo?" - the procedure returned by "condition-predicate" accepts any type of argument now - blobs have a readable textual representation ("#{...}") - "find-files" does not follow symlinks by default (as it did previously) - also, the old non-keyword argument signature for "find-files" is not supported anymore - added "alist-update" ("data-structures" unit) - "irregex-replace" returns the original string instead of #f when the regex does not match - irregex "real" built-in utility pattern now accepts a leading sign - added "change-directory*" ("posix" unit) - number parsing has been made more reliable and standards compliant - deprecated "none?", "always?" and "never?" - library procedures that take ports as arguments now all perform checks on port-direction and open/closed state - "mutate-procedure" has been renamed to "mutate-procedure!" - the old name is still available but deprecated - deprecated C_hash_string and C_hash_string_ci functions in the C API in favor of the more secure versions C_u_i_string_hash, C_u_i_string_ci_hash - a number of bugs in the irregex regular expression engine have been fixed; it has been updated to upstream release 0.8.3 - "with-input-from-file", "with-output-to-file", "with-input-from-pipe" and "with-output-to-pipe" now properly restore the standard input/output ports in case the body thunk escapes - symbols with a single-char print-name where not always properly escaped when printed readably - the "make" facility of the "setup-api" module has been deprecated, please use the "make" extension when your egg requires this during setup. - Core tools - "csc" - The environment-variables "CHICKEN_C_INCLUDE_PATH" and "CHICKEN_C_LIBRARY_PATH" can now be used to add default include- and link-directories to C-compiler invocations - "-O5" passed expensive optimization flags to the C compiler which could expose C-Compiler bugs, depending on the compiler version (thanks to Sven Hartrumpf for pointing this out). - "-rpath" is ignored on OS X (thanks to Kon Lovett). - Fixed handling of "-output-file" (it was being ignored) - "chicken-install" - Added option "-override", which allows retrieving extension- versions from a file - this may be useful to ensure specific versions of a complete set of eggs are installed - Added option "-keep-installed"/"-x" that only installs explicitly named extensions given on the command line, if they are not already installed - Added option "-list" that lists all extensions available - Added option "-csi" to specify what interpreter should be used to execute the setup-script of an installed extension - Added option "-scan" that scans a local directory for the highest available extension versions available - Added option "-reinstall" that reinstalls all currently installed eggs, keeping their versions, if possible - Fixed bug with "chicken-install -test" when multiple extensions where given on the command line (thanks to Kon Lovett) - installing subdirectories works now on Windows. - fixed handling of "-force" when a "chicken" dependency version did not match - added new option "-show-foreign-depends" which lists foreign egg dependencies (if available) - added new option "-show-depends" which lists egg dependencies - added support for "or"-dependencies where a dependency is considered installed if one of a set of candidates is available - "chicken-profile" - fixed some bugs in the profiler and the runtime support code for profiling (thanks to Sven Hartrumpf) - fixed broken percentage calculation (thanks to "megane") - "chicken-status" - Added option "-list" that dumps versions of installed extensions in a format suitable for "chicken-install -override ..." - the "pattern" argument is now actually treated as a pattern and not as a regex - Core syntax - "assert" shows the line number of the form when a second argument is not given or is a literal string - "parameterize" now correctly omits invoking the guard procedure when the old value is restored (thanks to Joo ChurlSoo) - added ":", "the" and "assume" syntax for declaring types - added "define-specialization" form to declare type-driven procedure call rewrites in compiled code - Syntax expander - Fixed a bug that caused imported identifiers to leak into the macroexpansion/compile-time environment (reported by Christian Kellermann) - Fixed a bug in the processing of extended lambda-lists (thanks to Peter Bex) - Peter Bex fixed a bug that caused bound variables to be incorrectly renamed in quoted literals (thanks to Matthew Flatt) - fixed devious bug in the invocation and generation of transformer procedures - using normal "lambda" forms as transformers for local or global syntax definitions is deprecated - one should use "syntax-rules", "er-macro-transformer" or "ir-macro-transformer" from now on - Runtime system - fixed handling of "inf" and nan" floating-point predicates for Solaris (thanks to Claude Marinier) - support for re-loading of compiled files has now been completely removed - the maximum length of strings is no longer limited to a 24-bit number on 64-bit architectures but can be 56 bits. - string-comparison handles embedded '\0' characters. - numerical predicates handle infinity and NaN correctly. - deprecated "[+-]nan", "[+-]inf" and other notations "accidentally" accepted by CHICKEN due to the underlying C library's strtod() function, standardizing on "[+-]nan.0" and "[+-]inf.0" from R6RS (and soon R7RS), when displaying numbers only these forms are generated now. - signals are queued to some extent and the interrupt handling has been cleaned up somewhat - the interpreter handles SIGINT directly - loading the "posix" unit is not needed anymore to handle this feature - changed default nursery size slightly and fixed a bug that caused incorrect (too small) nursery sizes on 64-bit platforms - deprecated the compiler option "-heap-initial-size", "-heap-growth" and "-heap-shrinkage" - the assembly-language stub routine for the implementation of "apply" was broken for Sparc64 systems and has been disabled for this platform - signal masks were accidentally reset upon GC for some platforms; use sigsetjmp/siglongjmp on BSD, Linux, MacOS X and Haiku - Type system - added new type-specifiers "input-port", "output-port", "(list-of T)" and "(vector-of T)" - the type-specifiers "(vector T ...)" and "(list T ...)" represent fixed size lists and vectors now - added qualified types ("forall"), optionally with type constrains - added the "define-type" special form and type-abbreviations - added "compiler-typecase", a compile-time typematching form - Module system - Added "interfaces", which are named groups of exports - Added "functors", which are parameterized modules - Modules can now be aliased - New syntax: (define-interface NAME EXPORTS) (functor (NAME ...) EXPORTS ...) - Extended syntax of "module" for aliasing and functor-instantiation - the "scheme" module has been integrated into the core library and is not installed as a separate import library anymore - added core module "r4rs" containing only bindings for R4RS identifiers - added core module alias "r5rs" for "scheme" module - added "module-environment" which returns an evaluation environment for the bindings of a module - fixed bugs related to using "export"/"reexport" in combination with wildcard ("*") module export lists (thanks to "megane") - Foreign function interface - locatives are allowed as arguments declared "c-pointer" - "int32" was not properly detected as a valid foreign type (thanks to Jim Ursetto) 4.7.0 - Build system - On BSD, libchicken.so is linked with -lpthread, as this seems to be required for linking libraries that require pthreads - The C header-files are now installed in a subdirectory below the "PRFIX/include" directory to allow installation of multiple chickens with different PROGRAM_PREFIX/PROGRAM_SUFFIX settings in the same prefix; to avoid conflicts with existing CHICKEN headers, it is recommended to completely remove any old installation before installing the new version - the PROGRAM_PREFIX and PROGRAM_SUFFIX configuration settings are applied to generated files and directories which allows perform differently named installations into the same PREFIX - increaded binary-compatibility version from 5 to 6, which means installed extensions in an existing installations will have to be re-installed - bugfixes in mingw/msys makefiles - Sven Hartrumpf contributed a bugfix to the internal helper script for creating distribution directories - Peter Bex has cleaned up the makefiles heavily, making the build more maintainable and easier to modify; thanks to all who helped testing this new build - renamed the makefile to `GNUmakefile' to catch using the a make(3) other than GNU make - configuration-header fix for BSD systems (thanks to Peter Bex and Christian Kellermann) - Core libraries - the `regex' library unit has been removed and is separately available as an extension which should be fully backwards- compatible - `irregex' is now a core library unit and replaces the `regex' API - "extras" unit - fixed pretty-printer output of certain escaped character sequences inside strings (thanks to Mario Domenech Goulart, thanks to Kon Lovett for pointing out a missing test-file) - The pretty printer did not escape some control characters correctly (reported by Alan Post) - control-characters in symbol-names are now properly escaped if the symbol is printed readably (thanks to Alaric Snell-Pym for pointing this out) - the deprecated `random-seed' function has been removed - "files" unit - fixed bug in `normalize-pathname' - `file-copy' and `file-move' check whether the source-file is a directory - `delete-directory' now optionally deletes directories recursively - "irregex" unit - Peter Bex has contributed various bugfixes and performance enhancements - "library" unit - Added "condition->list" (thanks to Christian Kellermann) - The reader accepts now escaped octal character codes in string literals - Read-syntax can return zero values to indicate ignored objects - R5RS output output routines now always return a "void" result - "\|" was not correctly escaped when occurring inside symbol print names - added `condition->list', contributed by Christian Kellermann - added `equal=?' - removed deprecated `getenv', `left-section', `right-section', `project', `c-runtime' and `noop' - added missing import-library entry for `vector-copy!' (thanks to Jules Altfas) - circular or excessively deeply nested data generates a more useful error message when encountered by `equal?' - `list-tail' gives now a better error message when passed a non-list argument - fixed bug in `getter-with-setter' that modified the first argument if it already had a setter procedure attached - fixed incorrect size of internal data vector used in `time' (thanks to Kon Lovett) - "lolevel" unit - removed deprecated `global-bound?', `global-make-unbound', `global-ref' and `global-set!' procedures - added support for `pointer-vectors': - make-pointer-vector - pointer-vector? - pointer-vector-length - pointer-vector-ref - pointer-vector-set! - "posix" unit - "close-input-pipe" did not return the status code of a terminated process on Windows (reported by Mario Domenech Goulart) - added `file-creation-mode' (suggested by Mario Domenech Goulart) - "setup-api" unit - `required-extension-version' and `required-chicken-version' have been deprecated - "srfi-18" unit - removed deprecated `milliseconds->time' and `time->milliseconds' procedures - `make-mutex' incorrectly created mutexes as initially owned by the current threads (thanks to Joerg Wittenberger) - the file-descriptor handling in the scheduler has been simplified and performs some sanity checks - deadlock in the scheduler now terminates the process instead of attempting to throw an error - added some sanity checks to the scheduler - "tcp" unit - Fixed bug in "tcp-abandon-port" (reported by Jim Ursetto) - "utils" unit - `compile-file' now returns `#f' when the compilation fails, instead of raising an error - Compiler - Removed unreliable lambda-lifting optimization (now, really!); the "-lambda-lift" option is still accepted but produces a warning - When "-scrutinize" is given, installed ".types" files will be automatically consulted for extensions and used units - Fixed optimizer bug in handling of "let" forms with multiple bindings which could result in toplevel assignments being silently dropped (reported by Moritz Heidkamp) - the `-accumulate-profile' option did not provide a way to specify the target profile data file - now `-profile-name' must always be given when accumulated profiling is done (thanks to Taylor Venable) - added `-module' option, which wraps the code into an implicit module - removed check for unsafe toplevel calls in safe mode - intrinsic handling of `exact->inexact' and `string->number' is now more efficient - fixed bug in leaf-routine optimization (thanks to David Dreisigmeyer) - unit-toplevel entry-points are now named differently, which may break binary-compatibility with existing compiled Scheme code modules - fixed invalid dropping of unused external entry-points in block-mode - fixed incorrect lambda-list check in scrutinizer (thanks to Alan Post) - Kon Lovett reported numerous bugs in the type-database used by the scrutinizer - `-fwrapv' is disabled on OpenBSD, since the default compiler does not support this option (thanks to Christian Kellermann) - on Solaris `gcc' is used by default, override `C_COMPILER' to use the Sun compiler instead - declaring a function `notinline' will prevent direct-call optimization for known procedure calls - the implementation of overflow-detection for arithmetic operations on fixnums have been replaced and now allow using the full 63-bit range of fixnums on 64-bit systems - fixed serious inlining-bug (thanks to Sven Hartrumpf) - constant-folding in the compiler has been simplified and is more reliable (thanks to Sven Hartrumpf) - optimization-levels 3 and higher imply `-unboxing -inline-global' - added new declaration `unsafe-specialized-arithmetic' which allows optimizing unboxed floating-point arithmetic in safe mode - removed `scrutinize' declaration - the warning shown when unimported identifiers are used in compiled modules now also shows the name of the procedure where the identifier is referenced (suggested by Alaric Snell-Pym) - Documentation - Added list of installed files to README - Documented remaining "c...r" standard procedures (thanks to Juergen Lorenz) - The manual is now installed in HTML format in PREFIX/share/chicken/doc, many thanks to Jim Ursetto for contributing is excellent `manual-labor' extension which made this possible - Foreign function interface - Added support for missing "(const [XXX-]c-string)" foreign type (thanks to Moritz Heidkamp) - removed deprecated `pointer', `nonnull-pointer', `byte-vector' and `nonnull-byte-vector' types - added missing result-type handling for `unsigned-integer64' (thanks to Moritz Heidkamp) - added `foreign-type-size' macro - added the new foreign type `size_t' (suggested by Moritz Heidkamp) - added the missing `unsigned-integer64' foreign type (thanks to Moritz for catching this) - added new foreign type `pointer-vector' which maps to `void **' and provided a low-level API in the `lolevel' library unit for manipulating pointer vectors - Runtime system - Fixed typo in "runtime.c" (thanks to Sven Hartrumpf) - Little-endian detection on MIPS systems was not correct (thanks to Christian Kellermann) - Fixed bug in handling of runtime-options with arguments (also reported by Christian Kellermann) - `equal?' does not compare procedures recursively anymore - fixed incorrect use of alloca.h on OpenBSD (thanks to Christian Kellermann and Alan Post) - checks for NaN and infinity are now done using ISO C99 operations, which required various changes to `chicken.h' to make the code compile in ISO C99 mode - remaining debris regarding MSVC builds has been removed - fixed bug in argument-type check for 64-bit integer (thanks to Kon Lovett) - increased default trace-buffer size from 10 to 16 - fixed bug in low-level termination routine (thanks to Jeronimo Pellegrini) - the scheduler handles violations of internal invariants regarding threads slightly more gracefully (thanks to Jim Ursetto) - fixed broken sleep-time conversion (thanks to Karel Miklav) - repaired broken handling of multiple finalizers that referred to the same object (reported by Moritz Heidkamp) - fixed problem with reader and escaping of single-char symbols - Syntax expander - For-syntax syntax definitions where not correctly retained inside modules - Peter Bex fixed various critical bugs in the expander - The simplification for quasiquote expressions was unable to handle certain circular data (reported by Moritz Heidkamp) - `syntax-rules' now supports tail-patterns and is now fully SRFI-46 compatible - many thanks to Peter Bex for implementing this - Peter Bex provided a bugfix for resolution of primitive imports - handling of internal definitions with shadowed defining forms is now done correctly - fix once again from Peter Bex - corrected non-standard behaviour of quasiquote with respect to nested quasiquotations - another bugfix by our mighty macro master - removed stub-implementation of `define-macro' - handled case where a global redefinition of `cons' influenced a non-inlined internal use in the expander (thanks to David Steiner) - `define-record' now allows defining SRFI-17 setter procedures for accessing slots - the expansion of DSSSL lambda-lists uses now `let-optionals*' internally instead of `let-optionals' and so allows back-references to earlier formal variables; this also results in faster and more compact code for argument-list destructuring (thanks to Alan Post) - new "implicit renaming" macro facility contributed by Peter Bex (see `ir-macro-transformer') - parameters are now settable and can be modified using `set!' (SRFI-17) - added a SRFI-17 setter to `list-ref' - added literal blob syntax ("#{ ... }") - Tools - chicken-install - option "-deploy" does not compile deployed extensions with "-setup-mode" anymore to avoid problems with dynamic loading on some platforms (specifically Mac OS X) - option "-deploy" option did not copy the correct library (including the version-number) (thanks to Christian Kellermann) - added support for proxy-authentification (thanks to Iruata Souza) - when installing from a local directory `chicken-install' now removes existing `*.so' files in that location to avoid stale binaries when the `make' syntax is used in setup scripts - chicken-bug - removed disabled e-mail support - csc - removed `-static-extension' option - removed deprecated `-windows' option - fixed incorrect use of `chicken.rc' on non-Windows platforms in `-gui' mode (thanks to "ddp") - when compiling in C++ mode, the compiler will be called with the `-Wno-write-strings' option - `-frwapv' has been added to the default C compiler options - csi - the ",m" toplevel command now accepts "#f" to switch back to the initial empty module context (suggested by Christian Kellermann) - fixed broken `,g' toplevel command - deprecated `script' feature identifier (use `chicken-script' instead) - options `-p' and `-P' and `-e' imply `-no-init' - the call-trace reported will not include exception-handler code anymore (suggested by Christian Kellermann) 4.6.0 - the licenses used in all components of the core system have been collected in the LICENSE file (Thanks to Peter Bex) - Added new compiler option `-no-module-registration' which omits generation of module registration code, even when generation of import libraries has not been enabled - running `chicken' without arguments now hints at the existence of `csi' and `csc' - `caar', `cdar' and `cddr' generate faster code - calls to `list', `vector' and the internal structure allocation primitive that take 1 to 8 arguments generate faster code - `chicken-install' now checks the version of the setup configuration file `setup.defaults' - added option `-exact' to `chicken-status' and `chicken-uninstall', which treats the pattern argument as the literal name of the extension to be listed/deinstalled - `assert' shows line-number information, if available (suggested by Alejandro Forero Cuervo) - interpreted code records the lexical-environment at call- sites, which can in case of an error be inspected with the new `,c', `,f' and `,g' csi toplevel commands - the evaluation-result history in `csi' can be inspected and cleared (to reduce memory load) with the toplevel commands `,h' and `,ch' - unit `data-structures': deprecated `left-section' and `right-section' - fixed bug that caused the static syntax-environment of syntax exported by a module to be incomplete - module `setup-api': Documented the `version>=?' and `extension-name-and-version' proceedures - unit `posix': `utc-time->seconds' is considerably faster on Mac OS X (thanks to Jim Ursetto); added new procedure `file-type' - the `time' macro now shows the correct number of minor garbage collections - the immediate-object check inside the marking procedure of the garbage collector has been manually inlined which results in a significant GC speedup, depending on memory load - unit `srfi-18' and `scheduler': various bugfixes (thanks to Joerg Wittenberger) - unit `srfi-4': bugfix in 8-bit vector allocation routines (thanks to Kon Lovett) - added `-:H' runtime option to dump heap state on exit - fixed missing change in Makefile.cygwin (thanks to John Cowan) - fixed bug in `let-optionals' macro that caused problems when the rest-variable was actually named `rest' (thanks to Alejandro Forero Cuervo) - when Scheme files are translated to C++ or Objective-C, `csc' will register the feature-identifiers `chicken-scheme-to-c++'/ `chicken-scheme-to-objc' ar compile-time - fixed bug in expansion of `#!key' parameters in lambda-lists - debug-output for forcing finalizers on exit goes to stderr now (thanks to Joerg Wittenberger) - the installation routines for extensions automatically add version-number information if none is given in the extension property list (suggested by Alejandro Forero Cuervo) - `standard-extension' accepts `#f' now for the version number and will use the version that has been obtained via `chicken-install' - `fifo?', `symbolic-link?', `directory?', `regular-file?', `socket?', `character-device?' and `block-device?' now accepts file-descriptors or filenames - `find-files' takes keyword arguments, now (including the options to process dotfiles and ignore symbolic links); the old argument signature is still supported but deprecated - removed dependency on `symbol-append' in some macros used in srfi-4.scm to be able to compile the system with older chickens - fixed bug in script that generates development snapshot - added build-variable `TARGET_FEATURES', which can be used to pass extra options enabling or disabling fetures for a system configured for cross-compilation - added compiler and interpreter option `-no-feature FEATURENAME' that disables predefined feature identifiers - code compiled with interrupts disabled will not emit inline files for global inlining since they may execute in a context where interrupts are enabled - the `setup.defaults' file that holds download sources for `chicken-install' now allows aliases for locations - CHICKEN systems build from cross-compilation now by default transparently build and install extensions for both the host and target parts of the cross-compilation setup; the options `-host' and `-target' can now be used to selectively build an extensions for the host- and the target system, respectively - also added `-host' and `-target' options to `chicken-status' and `chicken-uninstall' - `chicken-install' now respects the `http_proxy' environment variable (contributed by Stephen Eilert) - the `srfi-4' library unit has been heavily cleaned up and optimized - optimization-level 3 now enables global inlining - fixed the case that declarations listing global identifiers did not correctly rename them - deprecated `-N' option shortcut for `-no-usual-integrations' option in `csc' - `csi' now offers a toplevel command `,e' for invoking an external editor (suggested by Oivind Binde) - the `describe' command in `csi' now detects many circular lists (contributed by Christian Kellermann) - `csi' doesn't depend on the `srfi-69' library unit anymore - when a closing sequence delimiter is missing or incorrect, the reader also reports the starting line of the sequence - the reader signals an error when a file contains certain characters that indicate that it is a binary file - procedure-information shown by the printer for procedures is now corrected for some library procedures that where missing the correct information; `getter-with-setter' copies procedure-information objects into the newly created accessor procedure, if available - calls to some known pure standard- or extended procedures are removed, if the procedures are called with side-effect free arguments and the result is not used (this can also by enabled for user procedures with the `constant' declaration) - fixed some build-system bugs related to installation - fixed a problem in the C runtime code that prevented it to be compileable without a configuration header-file - the makefile-target to build a bootstrapping `chicken' executable performs multi-stage build now - changed error message when required extension is out of date (thanks to Mario Goulart) - documented library units loaded by default in `csi' (thanks to Moritz Heidkamp) - added `boot-chicken' makefile target to simplify bootstrapping the system from sources and documented this in the README (suggested by Jim Ursetto) - CHICKEN can now be built on haiku (contributed by Chris Roberts) - on Solaris, the system can be compiled with the SunPro C compiler (thanks to Semih Cemiloglu) - removed the `-disable-warnings' compiler option and `disable-warnings' declaration specifier - `fx/' and `fxmod' generate now faster code in safe mode - cleaned up manual pages - slightly optimized variable- and procedure-access - in the compiler `-debug-level 2' implies `-scrutinize' - internal compiler-transformation for `for-each' and `map' apply now with any expression as the procedure argument - the compiler warns about non-intrinsic exported toplevel variables which are declared to be safe - `csc' didn't handle the `-verbose' option (thanks to Mario Goulart) - the `,d' command in `csi' now detects circular lists (thanks to Christian Kellermann) - strings passed to C runtime functions and which are converted to 0-terminated C strings are now checked for not containing embedded `\0' characters (thanks to Peter Bex) - errors in user-defined record printers are caught and shown in the output instead of throwing an error to avoid endless recursion when an error message is printed - a feature identifier named `chicken-MAJOR.MINOR' is now defined to simplify conditionalization of code on the CHICKEN version - `getter-with-setter' copies the lambda-information (if available) from the getter to the generated procedure - `time' uses a somewhat more concise output format and outputs timing information to stderr instead of stdout - added a new chapter on cross-development to the manual - added the `safe-globals' declaration specifier - split up manual chapter `Modules and macros' into two chapters (named `Modules' and `Macros', respectively - suggested by Mario Goulart) - the last 5 non-precompiled regular expressions are now internally cached in compiled form, which speeds up repeated matching of the same uncompiled regular expression dramatically - added the new procedure `yes-or-no?' to the `utils' library unit - added a `bench' makefile target that runs some non-trivial benchmark programs - added `install-target' and `install-dev' makefile target for installing only target system libraries in cross-mode and development files (static libraries and headers) - added `[-]no-procedure-checks-for-toplevel-bindings' compiler option and declaration - usage of unimported syntax in modules gives more usable error messages; in particular, used but unimported FFI forms are now detected - invalid syntactic forms (mostly `()') encountered by the compiler or interpreter show the contextual form containing the expression, or, if indicated by the context warns about missing imports - simplified manual pages of all core tools - they now refer to the output shown by invoking `<tool> -help' - added new option `-feature FEATURE' to `chicken-install' tool to pass feature-identifiers to invocations of `csc' - removed deprecated `-host-extension' option from `chicken-install' - `chicken-status' in a system built for cross-compilation now lists extensions installed in the target prefix, unless the new `-host' option is given on the command line - `chicken-uninstall' in a system built for cross-compilation now removes extensions installed in the target prefix, unless the new `-host' option is given on the command line - added missing entry for `finite?' to the `chicken' module exports - added new procedure `port-closed?' to the `library' unit (contributed by Peter Bex) - added new procedure `symbol-append' to the library unit - the compiler-option `-optimize-level 0' is equivalent to `-no-compiler-syntax -no-usual-integrations` - internal rewritings of `map' and `for-each' ensure correct evaluation order of the arguments and does a better job at detecting non-list arguments (thanks to Jim Ursetto) - `void' now takes arbitrary arguments and ignores them - deprecated `noop' (from the `data-structures' unit) which is now replaced by `void' - the `time' macro now performs a major garbage collection before executing the contained expressions and writes the timings in a more compact format to the port given by `(current-error-port)' instead of the standard output port - definitions of the form `(define define ...)' and `(define-syntax define-syntax ...)' now trigger an error, as required by R5RS (thanks to Jeronimo Pellegrini and Alex Shinn) - deprecated `random-seed' from the `extras' unit, since it is identical to `randomize' - added new procedure `create-temporary-directory' to the `files' unit - deprecated the optional path separator argument to `make-pathname' - slightly improved the performance of keyword argument processing - removed the deprecated `canonical-path' and `current-environment' procedures from the `posix' unit - warnings that mostly refer to programming style issues are now coined `notes' and are only shown in the interpreter or when debug-mode is enabled or when scrutiny is enabled when compiling 4.5.0 - internal fixes of handling of alternative installation-prefix in setup-api - certain compiler-warnings that are in really just notes and don't indicate a possible error (like reimport of identifiers) are only shown with -S or in verbose mode - fixed handling of VARDIR in `chicken-install' (thanks to Davide Puricelli) - `chicken-install -test' doesn't runs tests for dependencies - when a non-else clause follows an else-clause in `cond', `case' or `select' a warning (note) is shown in verbose mode - removed the deprecated `define-extension' and `define-compiled-syntax' - `chicken-uninstall' now always asks before removing extensions, unless `-force' is given - improved performance of keyword-argument processing slightly - `export' outside of a module definition has no effect - `number->string' now accepts arbitrary bases between 2 and 16 (thanks to Christian Kellermann) - fixed `standard-extension' in `setup-api' module - literal constants keep their identity, even when inlined - Unit library: added `fxodd?' and `fxeven?' - All hardcoded special forms have been replaced with syntax definitions that expand into internal forms, this allows redefinition and shadowing of all Scheme core forms - faster implementations of `get' and `put!' - faster implementation of `assq' in unsafe mode - the `-sx' option prefixes each output line with `;' - slightly better expansion performance - more documentation of the C API (thanks to Peter Bex) - `module' supports a shorthand form that refers directly to a file to be included as the module body - added runtime option `-:G' to force GUI mode (on platforms that distinguish between GUI and non-GUI applications) - removed the unsafe runtime library (`libuchicken'), this simplifies and speeds up the build and reduces the risk of executables loading library units from different variants of the runtime system - removed the `-unsafe-libraries' option from `chicken' and `csc' - removed bootstrapping target and bootstrapping files from development repository; to bootstrap the system, either use a release or development-snapshot tarball or fetch a statically linked precompiled `chicken' binary from http://chicken.wiki.br/chicken-projects/bootstrap/ - Jim Ursetto provided some fixes for building universal binaries on Mac OS X - `csc' now compiles and links Windows resource (.rc) files when given on the command line - `chicken-install' and `chicken-uninstall' have an embedded manifest that suppresses the elevation dialog on Windows Vista and later when UAC is activated (Thanks to Thomas Chust) - the `install' program is not used in the build on mingw and mingw/MSYS platforms, since this is broken on older mingw versions - line-number-information is now properly handled (in the few places where it is used) correctly for included files; the source file is given in trace-output in addition to the line number - removed compiler warning for shared objects compiled in unsafe mode - unboxing is now only done in unsafe mode - in unsafe mode, pointer-accessors from the `lolevel' unit are now handled intrinsically by the compiler - `chicken-install' accepts now relative pathnames for the `-prefix' option - `define-record-type' now optionally allows using SRFI-17 setters as record-field modifiers - `integer?' returns `#f' for NaN and infinite numbers - `csc' now has an `-no-elevation' option for embedding a manifest that prevents the elevation dialog on Windows Vista and later when IAC is activated - the `,d' csi command displays qualified symbols properly - symbols starting with the `#\#' character trigger an error when encountered by the reader - Unit posix: `glob->regexp' now always returns a regular expression object or optionally an SRE - Unit posix: `terminal-port?' and `terminal-size' have been implemented for Windows, the latter always returns `0 0', though (thanks to Jim Ursetto) - Unit regex: `regexp' now accepts a regular expression object as argument - Unit regex: removed `glob?' - fixed bug in `chicken-install'/`chicken-uninstall' and `chicken-status' that prevented collapsed command-line options to be handled correctly. - disabled runpath-fix for deployed applications for netbsd (but resurrected providing a runpath at all, thanks to Peter Bex) - Peter Bex provided documentation for the `C_closure' C API function 4.4.0 - the system can now be built with llvm-gcc and/or "clang" (the LLVM C compiler which doesn't use the GNU C frontend) - added new option `-trunk' to `chicken-install', which forces building and installing the development version of extensions in combination with `-t local' - added new option `-deploy' to `chicken-install', which builds extension for use in "deployed" applications (see below) - added option `-deploy' to `csc', the compiler driver. With this option `csc' can build fully self-contained application bundles and double-clickable Macintosh GUI apps; see the "Deployment" manual chapter for more information - the directory given to the `-prefix' option of `chicken-install' may now be a relative pathname. - removed GUI-specific runtime library (`libchicken-gui') from Windows build - GUI- and non-GUI applications now use the same runtime library - special forms of the foreign-function interface have been replaced with an internal form and syntax to allow renaming and shadowing of these forms - the new `-private-repository' option in `csc' compiles executables with the extension-repository path set to the directory from which the program was started - `csc': deprecated the `-W' and `-windows' options, added `-gui' as a platform-independent replacement - `require-extension'/`use' accepts now import-specifications - user-defined extension-specifiers and `set-extension-specifier!' have been removed - `delete-file[*]', `rename-file', `create-directory', `file-copy', `file-move', `delete-directory' and `change-directory' return their argument/destination filename on success - added the missing procedure `condition-variable-name' to the srfi-18 library unit (Thanks to Joerg Wittenberger) - the `glob?' function from the `regex' unit has been deprecated - added the procedure `scan-input-lines' to the `utils' library unit - added new runtime option `-:g' which enables GC debugging output - reclamation of unused symbols in "symbol-gc" mode (`-:w') now only takes place for symbols with an empty property-list - on Windows loading of code compiled with [non-]GUI runtime libraries will fail and produce an error message when the loading executable is linked with a different runtime system - on Windows, GUI libraries were not correctly linked by `csc' - unit posix: added setter for `file-modification-time' - the banner shows the branchname of the build, unless it's "master" - the `-no-install' option to `chicken-install' is ignored when building/installing dependencies - `chicken-uninstall' takes a glob instead of a regular expression as argument - the rename and compare functions for low-level macro-definitions accept now arbitrary s-expressions and renames/compares them recursively - `number->string' handles negative-numbers with bases different from 10 correctly (thanks to Peter Danenberg) - removed deprecated `setup-install-flag' and `setup-verbose-flag' from the `setup-api' module - added new option `-repository' to `chicken-install' (Thanks to Christian Kellermann) - removed `chicken-setup' stub program - fix to `csc' to use the correct library when fixing dynamic load paths (Thanks to Derrell Piper) - removed html documentation from distribution (the wiki manual will now be installed) - fixed bug in `reexport' which caused syntax not to be correctly reexported - previous assignments to a toplevel variable that are separated by side effect free expressions are removed - fixed windows version of `find-files' (thanks to Jim Ursetto) - documentation for extensions is not installed automatically by `chicken-install' anymore - changed binary version from "4" to "5", because the new runtime libraries are not binary-compatible with previous releases; this means all eggs have to be reinstalled and existing programs be recompiled! - added unboxing pass to compiler which results in partially dramatical performance improvements for unsafe floating-point-intensive code; unboxing is enabled on optimization levels 4 and 5 - removed rest-argument-vector optimization as it could conflict with inlining (thanks to Sven Hartrumpf) - renamed `pointer-offset' to `pointer+' and deprecated `pointer-offset' - toplevel assignments that have no other side-effects can be eliminated if it can be shown that the value is not used (the compiler will generate a warning in this case) - removed deprecated `-quiet' option in `chicken' program - removed deprecated `run-time-macros' declaration - removed deprecated `-v2' and `-v3' options in `csc' program - removed deprecated `list-of' function (it is exclusively available as `list-of?' now) - removed deprecated `stat-...' functions in posix library unit - removed deprecated `for-each-line' and `for-each-argv-line' procedures in utils library unit - added `fpinteger?' and `fpabs' - deprecated `define-compiled-syntax' - added new floating-point primitives `fpsin', `fpcos', `fptan', `fpasin', `fpacos', `fpatan', `fpatan2', `fpexp', `fplog', `fpexpt' and `fpsqrt' - heavy cleanup of floating math functions which gives much better performance, especially for code compiled in unsafe mode - calling `assert' with a single argument shows the tested expression on failure - various bugfixes and cleaning up 4.3.0 - fixed bug in `move-memory!' that caused negative offsets to be accepted (thanks to Jim Ursetto) - removed tracing facility and apply-hook (see the "trace" egg for a replacement for tracing and breakpoints) - chicken-install(1): renamed `-host-extension' option to `-host' - added support for a make(1) configuration file ("config.make") - `chicken-install' now allows specifiying a proxy for retrieving extensions over HTTP (thanks to Nicolas Pelletier) - fixed bug in `cond-expand' that incorrectly renamed feature-identifiers if the form was the product of a syntax expansion (reported by Thomas Bushnell) - import-libraries are only generated by the compiler if they don't exist yet and if the content has actually changed (this simplifies makefile- rules in some cases) - it is now possible to pass a config-file to `make(1)' instead of specifying all build-options as variables on the command-line (see README) - removed compiler options for "benchmark-mode" and replaced them with a new optimization level (5) (note that `-O5' does not imply fixnum mode anymore) - `hen.el' and `scheme-complete.el' are not bundled with the core system anymore - `hen.el' is currently not maintained, and `scheme-complete.el' has its own release cycle; both files are available, see http://chicken.wiki.br/emacs - removed meaningless benchmark suite and cleaned up - added optional argument to `grep' that allows applying a function to each matched item (contributed by Tony Sidaway) - added extension-property `import-only', which makes it possible to create extensions that have no runtime part - the argument to `seconds->string', `seconds->utc-time' and `seconds->local-time' is now optional and defaults to the value of `(current-seconds)' (suggested by Mario Goulart) - removed read-syntax for `syntax' form - fixed bug in `get-condition-property' - fixed bug in windows version of `process-execute' - TCP timeouts throw exception of kind `timeout' to allow distinguishing between timeouts and other errors - removed some internal functions that manipulate environments - fixed bugs in `standard-extension' (`setup-api' module) and added keyword arguments for building static extensions and adding custom properties - when cross-compiling, `chicken-install(1)' doesn't pass `-setup-mode' (the host tools should not attempt to load target binaries) - `installation-prefix' in the `setup-api' module was not always correctly set - the `-force' option in `chicken-install(1)' overrides the CHICKEN version check - disabled e-mail feature in `chicken-bug(1)', since it doesn't work anyway, in the moment - fixed bug in `reexport' that made it impossible to reexport core library definitions - fix in optimizer that sometimes caused C functions for inlined procedures to be emitted multiple times (Thanks to Joerg Wittenberger) - documented `define-compiler-syntax' and `let-compiler-syntax' - printer for hash-tables shows current number of stores items - when upgrading during installation of a dependency `chicken-install' shows the version to upgrade to (Thanks to Christian Kellermann) - Updated scheme-complete (Thanks to Alex Shinn) - fix for pathnames with whitespace in 'runtests.sh' on Windows - fix for 'normalize-pathname' with absolute pathname argument - added 'decompose-directory' to unit files - fix for 'local-timezone-abbreviation' - wasn't using the current time so tz-name constant - deprecated 'make-pathname' separator argument 4.2.0 - added compiler option `-emit-all-import-libraries' - added `reexport' - added compiler and interpreter option `-setup-mode' - various minor performance improvements - fix for 'create-directory' when parents wanted - `for-each-line' and `for-each-argv-line' have been deprecated - chicken-install tries alternative servers if server responds with error - fixed load bug (ticket #72) - new library procedure `get-condition-property' - many mingw build fixes (thanks tp Fadi Moukayed) - setup-api: deprecated `cross-chicken' (use `cond-expand' or `feature?' instead) - added topological-sort to data-structures unit; chicken-install sorts dependencies before installing them - "-optimize-level 2" enables inlining by default - disable executable stack in assembly code modules (patch by Zbigniew, reported by Marijn Schouten) - csc now always exits with a status code of 1 on errors (patch by Zbigniew) 4.1.0 - The new parameter "parantheses-synonyms" and the command-line option "-no-parantheses-synonyms" allow disabling list-like behaviour of "{ ... }" and "[ ... ]" tokens - The new parameter "symbol-escape" and the command-line option "-no-symbol-escape" allows disabling "| ... |" symbol escape syntax - Added command-line option "-r5rs-syntax" to disable CHICKEN-specific read-syntax - Removed "macro?" and "undefine-macro!" - Support for Microsoft Visual Studio / MSVC has been dropped - The compiler provides now a simple flow-analysis pass that does basic checking of argument-counts and -types for core library procedure calls (new option "-scrutinize") - New compiler-options "-no-argc-checks", "-no-bound-checks", "-no-procedure checks", "-no-procedure-checks-for-usual-bindings", "-types TYPEFILE" and "-consult-inline-file FILENAME" - Added a "chicken-setup" stub-application to catch incorrect use of this tool (which has been replaced in 4.0.0 with "chicken-install") - Changed "setup-install-flag" and "setup-verbose-flag" to "setup-install-mode" and "setup-verbose-mode" in "setup-api" module, the old names are still available but deprecated - Posix unit: added "socket?", "block-device?" and "character-device?", deprecated redundant "stat-..." procedures - Added "directory-exists?" - "(for-each (lambda ...) X)" is compiled as a loop - The argument-count check for format-strings for "[sf]printf" with a constant string argument is done at compile-time 4.0.0 - removed `apropos' and `apropos-list' from the "utils" library unit; available as an extension - removed texinfo and PDF documentation - this will possible be added back later - replaced PCRE regex engine with Alex Shinn's "irregex" regular expression package - removed `-extension' option - removed `-static-extensions' csc option and added `-static-extension NAME' - `regex' unit: removed `regexp*' and `regex-optimize' - added `CHICKEN_new_finalizable_gc_root()' - `length' checks its argument for being cyclic - removed custom declarations and "link-options" and "c-options" declarations - deprecated "-quiet" option to "chicken" program - added "-update-db" option to chicken-install - the compiler now suggests possibly required module-imports - moved non-standard syntax-definitions into "chicken-syntax" library unit - the pretty-printer prints the end-of-file object readably now - alternative conditional execution paths have separate allocation computation (previously the allocation of all alternatives was coalesced) - removed unused "%kmp-search" from "srfi-13" library unit - expander handles syntax-reexports and makes unexported syntax available for exported expanders in import libraries - added checks in some procedures in the "tcp" library unit - the macro system has been completely overhauled and converted to hygienic macros - a macro-aware module system has been added - added "-sx" option to csi - removed the following deprecated functions: [un]shift! andmap ormap byte-vector? byte-vector-fill! make-byte-vector byte-vector byte-vector-set! byte-vector-ref byte-vector->list list->byte-vector string->byte-vector byte-vector->string byte-vector-length make-static-byte-vector static-byte-vector->pointer byte-vector-move! byte-vector-append! set-file-position! set-user-id! set-group-id! set-process-group-id! macro? undefine-macro! - the situation-identifiers "run-time" and "compile-time" have been removed - the compiler options "-check-imports", "-import" and "-emit-exports" have been removed - new procedures: strip-syntax expand - new macros define-syntax module export - the following macros have been removed: define-foreign-record define-foreign-enum define-macro define-extension - "local" mode, in which locally defined exported toplevel variables can be inlined - new options and declarations "[-]local", "[-]inline-global" and "-emit-inline-file" - optimization levels changed to use inlining: -optimize-level 3: enables -inline -local (but *not* -unsafe) -optimize-level 4: enables -inline -local -unsafe - increased default inlining-limit to 20 - support for cross-module inlining - "make <VARIABLES> bench" runs the benchmark suite - "chicken-setup" has been replaced by new command line tools "chicken-install", "chicken-uninstall" and "chicken-status", which are more flexible and allow greater freedom when creating local or application- specific repositories - extension-installation can be done directly from SVN repositories or a local file tree - enabled chicken mirror site as alternative download location ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.base.import.scm���������������������������������������������������������������0000644�0001750�0001750�00000012117�13502227553�017267� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.base.import.scm - import library for "chicken.base" module ; ; Copyright (c) 2017-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (##sys#register-core-module 'chicken.base 'library '((add1 . chicken.base#add1) (alist-ref . chicken.base#alist-ref) (alist-update . chicken.base#alist-update) (alist-update! . chicken.base#alist-update!) (atom? . chicken.base#atom?) (bignum? . chicken.base#bignum?) (butlast . chicken.base#butlast) (call/cc . chicken.base#call/cc) (case-sensitive . chicken.base#case-sensitive) (char-name . chicken.base#char-name) (chop . chicken.base#chop) (complement . chicken.base#complement) (compose . chicken.base#compose) (compress . chicken.base#compress) (conjoin . chicken.base#conjoin) (constantly . chicken.base#constantly) (cplxnum? . chicken.base#cplxnum?) (current-error-port . chicken.base#current-error-port) (disjoin . chicken.base#disjoin) (each . chicken.base#each) (emergency-exit . chicken.base#emergency-exit) (enable-warnings . chicken.base#enable-warnings) (equal=? . chicken.base#equal=?) (error . chicken.base#error) (exact-integer? . chicken.base#exact-integer?) (exact-integer-nth-root . chicken.base#exact-integer-nth-root) (exact-integer-sqrt . chicken.base#exact-integer-sqrt) (exit . chicken.base#exit) (exit-handler . chicken.base#exit-handler) (finite? . chicken.base#finite?) (fixnum? . chicken.base#fixnum?) (flatten . chicken.base#flatten) (flip . chicken.base#flip) (flonum? . chicken.base#flonum?) (flush-output . chicken.base#flush-output) (foldl . chicken.base#foldl) (foldr . chicken.base#foldr) (gensym . chicken.base#gensym) (get-call-chain . chicken.base#get-call-chain) (get-output-string . chicken.base#get-output-string) (getter-with-setter . chicken.base#getter-with-setter) (identity . chicken.base#identity) (implicit-exit-handler . chicken.base#implicit-exit-handler) (infinite? . chicken.base#infinite?) (input-port-open? . chicken.base#input-port-open?) (intersperse . chicken.base#intersperse) (join . chicken.base#join) (keyword-style . chicken.base#keyword-style) (list-of? . chicken.base#list-of?) (make-parameter . chicken.base#make-parameter) (make-promise . chicken.base#make-promise) (nan? . chicken.base#nan?) (notice . chicken.base#notice) (o . chicken.base#o) (on-exit . chicken.base#on-exit) (open-input-string . chicken.base#open-input-string) (open-output-string . chicken.base#open-output-string) (output-port-open? . chicken.base#output-port-open?) (parentheses-synonyms . chicken.base#parentheses-synonyms) (port? . chicken.base#port?) (port-closed? . chicken.base#port-closed?) (print-call-chain . chicken.base#print-call-chain) (print . chicken.base#print) (print* . chicken.base#print*) (procedure-information . chicken.base#procedure-information) (promise? . chicken.base#promise?) (quotient&modulo . chicken.base#quotient&modulo) (quotient&remainder . chicken.base#quotient&remainder) (rassoc . chicken.base#rassoc) (ratnum? . chicken.base#ratnum?) (setter . chicken.base#setter) (signum . chicken.base#signum) (sleep . chicken.base#sleep) (string->uninterned-symbol . chicken.base#string->uninterned-symbol) (sub1 . chicken.base#sub1) (subvector . chicken.base#subvector) (symbol-append . chicken.base#symbol-append) (symbol-escape . chicken.base#symbol-escape) (tail? . chicken.base#tail?) (vector-copy! . chicken.base#vector-copy!) (vector-resize . chicken.base#vector-resize) (void . chicken.base#void) (warning . chicken.base#warning)) ##sys#chicken.base-macro-environment) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.string.import.scm�������������������������������������������������������������0000644�0001750�0001750�00000002062�13502227734�017662� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.string.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.string 'data-structures (scheme#list) '((conc . chicken.string#conc) (->string . chicken.string#->string) (string-chop . chicken.string#string-chop) (string-chomp . chicken.string#string-chomp) (string-compare3 . chicken.string#string-compare3) (string-compare3-ci . chicken.string#string-compare3-ci) (reverse-list->string . chicken.string#reverse-list->string) (reverse-string-append . chicken.string#reverse-string-append) (string-intersperse . chicken.string#string-intersperse) (string-split . chicken.string#string-split) (string-translate . chicken.string#string-translate) (string-translate* . chicken.string#string-translate*) (substring=? . chicken.string#substring=?) (substring-ci=? . chicken.string#substring-ci=?) (substring-index . chicken.string#substring-index) (substring-index-ci . chicken.string#substring-index-ci)) (scheme#list) (scheme#list)) ;; END OF FILE ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken-status.scm��������������������������������������������������������������������0000644�0001750�0001750�00000023673�13502227553�016377� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken-status.scm ; ; Copyright (c) 2008-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (module main () (import (scheme) (chicken base) (chicken condition) (chicken file) (chicken fixnum) (chicken foreign) (chicken format) (chicken irregex) (chicken port) (chicken pathname) (chicken platform) (chicken pretty-print) (chicken process-context) (chicken sort) (only (chicken string) ->string)) (include "mini-srfi-1.scm") (include "egg-environment.scm") (include "egg-information.scm") (define host-extensions #t) (define target-extensions #t) (define get-terminal-width (let ((default-width 79)) ; Standard default terminal width (lambda () (let ((cop (current-output-port))) (if (terminal-port? cop) (let ((w (handle-exceptions exn 0 (nth-value 1 (terminal-size cop))))) (if (zero? w) default-width (min default-width w))) default-width))))) (define list-width (quotient (- (get-terminal-width) 2) 2)) (define (repo-path) (if (and cross-chicken (not host-extensions)) (##sys#split-path (destination-repository 'target)) (repository-path))) (define (grep rx lst) (filter (cut irregex-search rx <>) lst)) (define (read-info egg #!optional (dir (repo-path)) (ext +egg-info-extension+)) (let ((f (chicken.load#find-file (make-pathname #f egg ext) dir))) (and f (load-egg-info f)))) (define (filter-egg-names eggs patterns mtch) (let* ((names (cond ((null? patterns) eggs) (mtch (concatenate (map (lambda (pat) (grep (irregex (glob->sre pat)) eggs)) patterns))) (else (filter (lambda (egg) (any (cut string=? <> egg) patterns)) eggs))))) (delete-duplicates names string=?))) (define (gather-eggs) (delete-duplicates (append-map (lambda (dir) (map pathname-file (glob (make-pathname dir "*" +egg-info-extension+)))) (repo-path)) equal?)) (define (format-string str cols #!optional right (padc #\space)) (let* ((len (string-length str)) (pad (make-string (fxmax 0 (fx- cols len)) padc)) ) (if right (string-append pad str) (string-append str pad) ) ) ) (define (list-installed-eggs eggs #!optional (dir (repo-path)) (ext +egg-info-extension+)) (for-each (cut list-egg-info <> dir ext) (sort eggs string<?))) (define (list-egg-info egg dir ext) (let ((version (or (let ((info (read-info egg dir ext))) (and info (get-egg-property info 'version))) (let ((file (chicken.load#find-file +version-file+ dir))) (and file (with-input-from-file file read))) "unknown"))) (print (format-string (string-append egg " ") list-width #f #\.) (format-string (string-append " version: " (->string version)) list-width #t #\.)))) (define (list-cached-eggs pats mtch) (when (directory-exists? cache-directory) (for-each (lambda (egg) (list-egg-info egg (make-pathname cache-directory egg) +egg-extension+)) (sort (filter-egg-names (directory cache-directory) pats mtch) string<?)))) (define (gather-components lst mode) (append-map (cut gather-components-rec <> mode) lst)) (define (gather-components-rec info mode) (case (car info) ((host) (if host-extensions (gather-components (cdr info) 'host) '())) ((target) (if target-extensions (gather-components (cdr info) 'target) '())) ((extension) (list (list 'extension mode (cadr info)))) ((data) (list (list 'data mode (cadr info)))) ((generated-source-file) (list (list 'generated-source-file mode (cadr info)))) ((c-include) (list (list 'c-include mode (cadr info)))) ((scheme-include) (list (list 'scheme-include mode (cadr info)))) ((program) (list (list 'program mode (cadr info)))))) (define (list-installed-components eggs) (let ((w (quotient (- (get-terminal-width) 2) 2))) (for-each (lambda (egg) (let* ((info (read-info egg)) (version (get-egg-property info 'version)) (comps (get-egg-property* info 'components))) (if version (print (format-string (string-append egg " ") w #f #\.) (format-string (string-append " version: " (->string version)) w #t #\.)) (print egg)) (when comps (let ((lst (gather-components comps #f))) (for-each (lambda (comp) (print " " (format-string (->string (car comp)) 32) " " (format-string (->string (caddr comp)) 32) (case (cadr comp) ((host) " (host)") ((target) " (target)") (else "")))) lst))))) eggs))) (define (list-installed-files eggs) (for-each print (sort (append-map (lambda (egg) (get-egg-property* (read-info egg) 'installed-files)) eggs) string<?))) (define (dump-installed-versions eggs) (for-each (lambda (egg) (let ((version (get-egg-property (read-info egg) 'version))) (pp (cons (string->symbol egg) (if version (list version) '()))))) eggs)) (define (usage code) (print #<<EOF usage: chicken-status [OPTION ...] [NAME ...] -h -help show this message -version show version and exit -c -components list installed components -cached list eggs in cache -f -files list installed files -list dump installed extensions and their versions in "override" format -match treat NAME as glob pattern -host when cross-compiling, only show host extensions -target when cross-compiling, only show target extensions EOF );| (exit code)) (define short-options '(#\h #\f #\c #\a)) (define (main args) (let ((files #f) (comps #f) (dump #f) (cached #f) (mtch #f)) (let loop ((args args) (pats '())) (if (null? args) (cond ((and comps (or dump files)) (with-output-to-port (current-error-port) (cut print "-components cannot be used with -list.")) (exit 1)) (cached (list-cached-eggs pats mtch)) (else ((cond (dump dump-installed-versions) (files list-installed-files) (comps list-installed-components) (else list-installed-eggs)) (filter-egg-names (gather-eggs) pats mtch)))) (let ((arg (car args))) (cond ((member arg '("-help" "-h" "--help")) (usage 0)) ((string=? arg "-host") (set! target-extensions #f) (loop (cdr args) pats)) ((string=? arg "-target") (set! host-extensions #f) (loop (cdr args) pats)) ((string=? arg "-match") (set! mtch #t) (loop (cdr args) pats)) ((string=? arg "-cached") (set! cached #t) (loop (cdr args) pats)) ((string=? arg "-list") (set! dump #t) (loop (cdr args) pats)) ((or (string=? arg "-f") (string=? arg "-files")) (set! files #t) (loop (cdr args) pats)) ((or (string=? arg "-c") (string=? arg "-components")) (set! comps #t) (loop (cdr args) pats)) ((string=? arg "-version") (print (chicken-version)) (exit 0)) ((and (positive? (string-length arg)) (char=? #\- (string-ref arg 0))) (if (> (string-length arg) 2) (let ((sos (string->list (substring arg 1)))) (if (every (cut memq <> short-options) sos) (loop (append (map (cut string #\- <>) sos) (cdr args)) pats) (usage 1))) (usage 1))) (else (loop (cdr args) (cons arg pats))))))))) (main (command-line-arguments)) ) ���������������������������������������������������������������������chicken-5.1.0/read-syntax.scm�����������������������������������������������������������������������0000644�0001750�0001750�00000010731�13502227553�015700� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; read-syntax.scm - CHICKEN reader extensions ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit read-syntax) (uses internal) (disable-interrupts)) (module chicken.read-syntax (copy-read-table current-read-table define-reader-ctor set-read-syntax! set-sharp-read-syntax! set-parameterized-read-syntax!) (import scheme chicken.base chicken.internal chicken.platform) (include "common-declarations.scm") (define (set-read-mark! sym proc) (let ((a (assq sym ##sys#read-marks))) (if a (##sys#setslot a 1 proc) (set! ##sys#read-marks (cons (cons sym proc) ##sys#read-marks))))) (define current-read-table ##sys#current-read-table) (define ((syntax-setter loc slot wrap) chr proc) (if (symbol? chr) (set-read-mark! chr proc) (let ((crt (current-read-table))) (unless (##sys#slot crt slot) (##sys#setslot crt slot (##sys#make-vector 256 #f))) (##sys#check-char chr loc) (let ((i (char->integer chr))) (##sys#check-range i 0 256 loc) (cond (proc (##sys#check-closure proc loc) (##sys#setslot (##sys#slot crt slot) i (wrap proc))) (else (##sys#setslot (##sys#slot crt slot) i #f))))))) (define set-read-syntax! (syntax-setter 'set-read-syntax! 1 (lambda (proc) (lambda (_ port) (##sys#read-char-0 port) (proc port))))) (define set-sharp-read-syntax! (syntax-setter 'set-sharp-read-syntax! 2 (lambda (proc) (lambda (_ port) (##sys#read-char-0 port) (proc port))))) (define set-parameterized-read-syntax! (syntax-setter 'set-parameterized-read-syntax! 3 (lambda (proc) (lambda (_ port num) (##sys#read-char-0 port) (proc port num))))) ;;; Read-table operations: (define (copy-read-table rt) (##sys#check-structure rt 'read-table 'copy-read-table) (##sys#make-structure 'read-table (let ((t1 (##sys#slot rt 1))) (and t1 (##sys#vector-resize t1 (##sys#size t1) #f))) (let ((t2 (##sys#slot rt 2))) (and t2 (##sys#vector-resize t2 (##sys#size t2) #f))) (let ((t3 (##sys#slot rt 3))) (and t3 (##sys#vector-resize t3 (##sys#size t3) #f))))) ;;; SRFI-10: (define sharp-comma-reader-ctors (make-vector 301 '())) (define (define-reader-ctor spec proc) (##sys#check-symbol spec 'define-reader-ctor) (hash-table-set! sharp-comma-reader-ctors spec proc)) (set! ##sys#user-read-hook (let ((old ##sys#user-read-hook) (read-char read-char) (read read)) (lambda (char port) (cond ((char=? char #\,) (read-char port) (let* ((exp (read port)) (err (lambda () (##sys#read-error port "invalid sharp-comma external form" exp)))) (if (or (null? exp) (not (list? exp))) (err) (let ([spec (##sys#slot exp 0)]) (if (not (symbol? spec)) (err) (let ((ctor (hash-table-ref sharp-comma-reader-ctors spec))) (if ctor (apply ctor (##sys#slot exp 1)) (##sys#read-error port "undefined sharp-comma constructor" spec)))))))) (else (old char port)))))) (register-feature! 'srfi-10)) ���������������������������������������chicken-5.1.0/posix.scm�����������������������������������������������������������������������������0000644�0001750�0001750�00000026332�13502227553�014607� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; posix.scm - Platform-specific routines ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without ; modification, are permitted provided that the following conditions are ; met: ; ; Redistributions of source code must retain the above copyright ; notice, this list of conditions and the following disclaimer. ; ; Redistributions in binary form must reproduce the above copyright ; notice, this list of conditions and the following disclaimer in the ; documentation and/or other materials provided with the distribution. ; ; Neither the name of the author nor the names of its contributors may ; be used to endorse or promote products derived from this software ; without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT ; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR ; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT ; HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, ; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, ; BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS ; OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR ; TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE ; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH ; DAMAGE. (declare (unit posix) (uses scheduler pathname extras port lolevel) (disable-interrupts) (not inline ##sys#interrupt-hook ##sys#user-interrupt-hook)) (module chicken.file.posix (create-fifo create-symbolic-link read-symbolic-link duplicate-fileno fcntl/dupfd fcntl/getfd fcntl/getfl fcntl/setfd fcntl/setfl file-access-time file-change-time file-modification-time file-close file-control file-creation-mode file-group file-link file-lock file-lock/blocking file-mkstemp file-open file-owner file-permissions file-position file-read file-select file-size file-stat file-test-lock file-truncate file-unlock file-write file-type block-device? character-device? directory? fifo? regular-file? socket? symbolic-link? fileno/stderr fileno/stdin fileno/stdout open-input-file* open-output-file* open/append open/binary open/creat open/excl open/fsync open/noctty open/noinherit open/nonblock open/rdonly open/rdwr open/read open/sync open/text open/trunc open/write open/wronly perm/irgrp perm/iroth perm/irusr perm/irwxg perm/irwxo perm/irwxu perm/isgid perm/isuid perm/isvtx perm/iwgrp perm/iwoth perm/iwusr perm/ixgrp perm/ixoth perm/ixusr port->fileno set-file-group! set-file-owner! set-file-permissions! set-file-position! set-file-times! seek/cur seek/set seek/end) (import scheme) ;; These are all set! inside the posix module (define create-fifo) (define create-symbolic-link) (define read-symbolic-link) (define duplicate-fileno) (define fcntl/dupfd) (define fcntl/getfd) (define fcntl/getfl) (define fcntl/setfd) (define fcntl/setfl) (define file-access-time) (define file-change-time) (define file-modification-time) (define file-close) (define file-control) (define file-creation-mode) (define file-group) (define file-link) (define file-lock) (define file-lock/blocking) (define file-mkstemp) (define file-open) (define file-owner) (define file-permissions) (define file-position) (define file-read) (define file-select) (define file-size) (define file-stat) (define file-test-lock) (define file-truncate) (define file-unlock) (define file-write) (define file-type) (define block-device?) (define character-device?) (define directory?) (define fifo?) (define regular-file?) (define socket?) (define symbolic-link?) (define fileno/stderr) (define fileno/stdin) (define fileno/stdout) (define open-input-file*) (define open-output-file*) (define open/append) (define open/binary) (define open/creat) (define open/excl) (define open/fsync) (define open/noctty) (define open/noinherit) (define open/nonblock) (define open/rdonly) (define open/rdwr) (define open/read) (define open/sync) (define open/text) (define open/trunc) (define open/write) (define open/wronly) (define perm/irgrp) (define perm/iroth) (define perm/irusr) (define perm/irwxg) (define perm/irwxo) (define perm/irwxu) (define perm/isgid) (define perm/isuid) (define perm/isvtx) (define perm/iwgrp) (define perm/iwoth) (define perm/iwusr) (define perm/ixgrp) (define perm/ixoth) (define perm/ixusr) (define port->fileno) (define seek/cur) (define seek/end) (define seek/set) (define set-file-group!) (define set-file-owner!) (define set-file-permissions!) (define set-file-position!) (define set-file-times!) ) ; chicken.file.posix (module chicken.time.posix (seconds->utc-time utc-time->seconds seconds->local-time seconds->string local-time->seconds string->time time->string local-timezone-abbreviation) (import scheme) ;; These are all set! inside the posix module (define seconds->utc-time) (define utc-time->seconds) (define seconds->local-time) (define seconds->string) (define local-time->seconds) (define string->time) (define time->string) (define local-timezone-abbreviation) ) ; chicken.time.posix (module chicken.process (qs system system* process-execute process-fork process-run process-signal process-spawn process-wait call-with-input-pipe call-with-output-pipe close-input-pipe close-output-pipe create-pipe open-input-pipe open-output-pipe with-input-from-pipe with-output-to-pipe process process* process-sleep pipe/buf spawn/overlay spawn/wait spawn/nowait spawn/nowaito spawn/detach) (import scheme chicken.base chicken.fixnum chicken.platform) ;;; Execute a shell command: (define (system cmd) (##sys#check-string cmd 'system) (let ((r (##core#inline "C_execute_shell_command" cmd))) (cond ((fx< r 0) (##sys#update-errno) (##sys#signal-hook #:process-error 'system "`system' invocation failed" cmd)) (else r)))) ;;; Like `system', but bombs on nonzero return code: (define (system* str) (let ((n (system str))) (unless (zero? n) (##sys#error "shell invocation failed with non-zero return status" str n)))) ;;; Quote string for shell: (define (qs str #!optional (platform (software-version))) (let* ((delim (if (eq? platform 'mingw32) #\" #\')) (escaped (if (eq? platform 'mingw32) "\"\"" "'\\''")) (escaped-parts (map (lambda (c) (cond ((char=? c delim) escaped) ((char=? c #\nul) (error 'qs "NUL character can not be represented in shell string" str)) (else (string c)))) (string->list str)))) (string-append (string delim) (apply string-append escaped-parts) (string delim)))) ;; These are all set! inside the posix module (define process-execute) (define process-fork) (define process-run) (define process-signal) (define process-spawn) (define process-wait) (define call-with-input-pipe) (define call-with-output-pipe) (define close-input-pipe) (define close-output-pipe) (define create-pipe) (define open-input-pipe) (define open-output-pipe) (define with-input-from-pipe) (define with-output-to-pipe) (define process) (define process*) (define process-sleep) (define pipe/buf) (define spawn/overlay) (define spawn/wait) (define spawn/nowait) (define spawn/nowaito) (define spawn/detach) ) ; chicken.process (module chicken.process.signal (set-alarm! set-signal-handler! set-signal-mask! signal-handler signal-mask signal-mask! signal-masked? signal-unmask! signal/abrt signal/alrm signal/break signal/bus signal/chld signal/cont signal/fpe signal/hup signal/ill signal/int signal/io signal/kill signal/pipe signal/prof signal/quit signal/segv signal/stop signal/term signal/trap signal/tstp signal/urg signal/usr1 signal/usr2 signal/vtalrm signal/winch signal/xcpu signal/xfsz signals-list) (import scheme) ;; These are all set! inside the posix module (define set-alarm!) (define set-signal-handler!) (define set-signal-mask!) (define signal-handler) (define signal-mask) (define signal-mask!) (define signal-masked?) (define signal-unmask!) (define signal/abrt) (define signal/alrm) (define signal/break) (define signal/bus) (define signal/chld) (define signal/cont) (define signal/fpe) (define signal/hup) (define signal/ill) (define signal/int) (define signal/io) (define signal/kill) (define signal/pipe) (define signal/prof) (define signal/quit) (define signal/segv) (define signal/stop) (define signal/term) (define signal/trap) (define signal/tstp) (define signal/urg) (define signal/usr1) (define signal/usr2) (define signal/vtalrm) (define signal/winch) (define signal/xcpu) (define signal/xfsz) (define signals-list) ) ; chicken.process.signal (module chicken.process-context.posix (change-directory* set-root-directory! current-effective-group-id current-effective-user-id current-process-id current-group-id current-user-id parent-process-id current-user-name current-effective-user-name create-session process-group-id user-information) (import scheme) (define change-directory*) (define set-root-directory!) (define current-effective-group-id) (define current-effective-user-id) (define current-group-id) (define current-user-id) (define current-process-id) (define parent-process-id) (define current-user-name) (define current-effective-user-name) (define create-session) (define process-group-id) (define user-information) ) ; chicken.process-context.posix ;; This module really exports nothing. It is used to keep all the ;; posix stuff in one place, in a clean namespace. The included file ;; will set! values from the modules defined above. (module chicken.posix () (import scheme chicken.base chicken.bitwise chicken.condition chicken.fixnum chicken.foreign chicken.memory chicken.pathname chicken.port chicken.process-context chicken.time) (cond-expand (platform-unix (include "posixunix.scm")) (platform-windows (include "posixwin.scm"))) ) ; chicken.posix [internal, no implib generated] (module chicken.errno * (import scheme) (define (errno) (##sys#errno)) (define errno/2big _e2big) (define errno/acces _eacces) (define errno/again _eagain) (define errno/badf _ebadf) (define errno/busy _ebusy) (define errno/child _echild) (define errno/deadlk _edeadlk) (define errno/dom _edom) (define errno/exist _eexist) (define errno/fault _efault) (define errno/fbig _efbig) (define errno/ilseq _eilseq) (define errno/intr _eintr) (define errno/inval _einval) (define errno/io _eio) (define errno/isdir _eisdir) (define errno/mfile _emfile) (define errno/mlink _emlink) (define errno/nametoolong _enametoolong) (define errno/nfile _enfile) (define errno/nodev _enodev) (define errno/noent _enoent) (define errno/noexec _enoexec) (define errno/nolck _enolck) (define errno/nomem _enomem) (define errno/nospc _enospc) (define errno/nosys _enosys) (define errno/notdir _enotdir) (define errno/notempty _enotempty) (define errno/notty _enotty) (define errno/nxio _enxio) (define errno/perm _eperm) (define errno/pipe _epipe) (define errno/range _erange) (define errno/rofs _erofs) (define errno/spipe _espipe) (define errno/srch _esrch) (define errno/wouldblock _ewouldblock) (define errno/xdev _exdev) ) ; chicken.errno ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/srfi-4.scm����������������������������������������������������������������������������0000644�0001750�0001750�00000064516�13502227553�014557� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; srfi-4.scm - Homogeneous numeric vectors ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit srfi-4) (uses expand extras) (disable-interrupts) (not inline ##sys#user-print-hook) (foreign-declare #<<EOF #define C_copy_subvector(to, from, start_to, start_from, bytes) \ (C_memcpy((C_char *)C_data_pointer(to) + C_unfix(start_to), (C_char *)C_data_pointer(from) + C_unfix(start_from), C_unfix(bytes)), \ C_SCHEME_UNDEFINED) EOF ) ) (module srfi-4 (blob->f32vector blob->f32vector/shared blob->f64vector blob->f64vector/shared blob->s16vector blob->s16vector/shared blob->s32vector blob->s32vector/shared blob->s64vector blob->s64vector/shared blob->s8vector blob->s8vector/shared blob->u16vector blob->u16vector/shared blob->u32vector blob->u32vector/shared blob->u64vector blob->u64vector/shared blob->u8vector blob->u8vector/shared f32vector f32vector->blob f32vector->blob/shared f32vector->list f32vector-length f32vector-ref f32vector-set! f32vector? f64vector f64vector->blob f64vector->blob/shared f64vector->list f64vector-length f64vector-ref f64vector-set! f64vector? s8vector s8vector->blob s8vector->blob/shared s8vector->list s8vector-length s8vector-ref s8vector-set! s8vector? s16vector s16vector->blob s16vector->blob/shared s16vector->list s16vector-length s16vector-ref s16vector-set! s16vector? s32vector s32vector->blob s32vector->blob/shared s32vector->list s32vector-length s32vector-ref s32vector-set! s32vector? s64vector s64vector->blob s64vector->blob/shared s64vector->list s64vector-length s64vector-ref s64vector-set! s64vector? u8vector u8vector->blob u8vector->blob/shared u8vector->list u8vector-length u8vector-ref u8vector-set! u8vector? u16vector u16vector->blob u16vector->blob/shared u16vector->list u16vector-length u16vector-ref u16vector-set! u16vector? u32vector u32vector->blob u32vector->blob/shared u32vector->list u32vector-length u32vector-ref u32vector-set! u32vector? u64vector u64vector->blob u64vector->blob/shared u64vector->list u64vector-length u64vector-ref u64vector-set! u64vector? list->f32vector list->f64vector list->s16vector list->s32vector list->s64vector list->s8vector list->u16vector list->u32vector list->u8vector list->u64vector make-f32vector make-f64vector make-s16vector make-s32vector make-s64vector make-s8vector make-u16vector make-u32vector make-u64vector make-u8vector number-vector? read-u8vector read-u8vector! release-number-vector subf32vector subf64vector subs16vector subs32vector subs64vector subs8vector subu16vector subu8vector subu32vector subu64vector write-u8vector) (import scheme chicken.base chicken.bitwise chicken.fixnum chicken.foreign chicken.gc chicken.platform chicken.syntax) (include "common-declarations.scm") ;;; Helper routines: (define-inline (check-int/flonum x loc) (unless (or (##core#inline "C_i_exact_integerp" x) (##core#inline "C_i_flonump" x)) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR" int) loc x) ) ) (define-inline (check-range i from to loc) (##sys#check-fixnum i loc) (unless (and (fx<= from i) (fx< i to)) (##sys#error-hook (foreign-value "C_OUT_OF_RANGE_ERROR" int) loc i from to) ) ) (define-inline (check-uint-length obj len loc) (##sys#check-exact-uinteger obj loc) (when (fx> (integer-length obj) len) (##sys#error-hook (foreign-value "C_OUT_OF_RANGE_ERROR" int) loc obj 0 (expt 2 len)))) (define-inline (check-int-length obj len loc) (##sys#check-exact-integer obj loc) (when (fx> (integer-length obj) (fx- len 1)) (##sys#error-hook (foreign-value "C_OUT_OF_RANGE_ERROR" int) loc obj (- (expt 2 len)) (sub1 (expt 2 len))))) ;;; Get vector length: (define (u8vector-length x) (##core#inline "C_i_u8vector_length" x)) (define (s8vector-length x) (##core#inline "C_i_s8vector_length" x)) (define (u16vector-length x) (##core#inline "C_i_u16vector_length" x)) (define (s16vector-length x) (##core#inline "C_i_s16vector_length" x)) (define (u32vector-length x) (##core#inline "C_i_u32vector_length" x)) (define (s32vector-length x) (##core#inline "C_i_s32vector_length" x)) (define (u64vector-length x) (##core#inline "C_i_u64vector_length" x)) (define (s64vector-length x) (##core#inline "C_i_s64vector_length" x)) (define (f32vector-length x) (##core#inline "C_i_f32vector_length" x)) (define (f64vector-length x) (##core#inline "C_i_f64vector_length" x)) ;;; Safe accessors: (define (u8vector-set! x i y) (##core#inline "C_i_u8vector_set" x i y)) (define (s8vector-set! x i y) (##core#inline "C_i_s8vector_set" x i y)) (define (u16vector-set! x i y) (##core#inline "C_i_u16vector_set" x i y)) (define (s16vector-set! x i y) (##core#inline "C_i_s16vector_set" x i y)) (define (u32vector-set! x i y) (##core#inline "C_i_u32vector_set" x i y)) (define (s32vector-set! x i y) (##core#inline "C_i_s32vector_set" x i y)) (define (u64vector-set! x i y) (##core#inline "C_i_u64vector_set" x i y)) (define (s64vector-set! x i y) (##core#inline "C_i_s64vector_set" x i y)) (define (f32vector-set! x i y) (##core#inline "C_i_f32vector_set" x i y)) (define (f64vector-set! x i y) (##core#inline "C_i_f64vector_set" x i y)) (define u8vector-ref (getter-with-setter (lambda (x i) (##core#inline "C_i_u8vector_ref" x i)) u8vector-set! "(chicken.srfi-4#u8vector-ref v i)")) (define s8vector-ref (getter-with-setter (lambda (x i) (##core#inline "C_i_s8vector_ref" x i)) s8vector-set! "(chicken.srfi-4#s8vector-ref v i)")) (define u16vector-ref (getter-with-setter (lambda (x i) (##core#inline "C_i_u16vector_ref" x i)) u16vector-set! "(chicken.srfi-4#u16vector-ref v i)")) (define s16vector-ref (getter-with-setter (lambda (x i) (##core#inline "C_i_s16vector_ref" x i)) s16vector-set! "(chicken.srfi-4#s16vector-ref v i)")) (define u32vector-ref (getter-with-setter (lambda (x i) (##core#inline_allocate ("C_a_i_u32vector_ref" 4) x i)) u32vector-set! "(chicken.srfi-4#u32vector-ref v i)")) (define s32vector-ref (getter-with-setter (lambda (x i) (##core#inline_allocate ("C_a_i_s32vector_ref" 4) x i)) s32vector-set! "(chicken.srfi-4#s32vector-ref v i)")) (define u64vector-ref (getter-with-setter (lambda (x i) (##core#inline_allocate ("C_a_i_u64vector_ref" 7) x i)) u64vector-set! "(chicken.srfi-4#u64vector-ref v i)")) (define s64vector-ref (getter-with-setter (lambda (x i) (##core#inline_allocate ("C_a_i_s64vector_ref" 7) x i)) s64vector-set! "(chicken.srfi-4#s64vector-ref v i)")) (define f32vector-ref (getter-with-setter (lambda (x i) (##core#inline_allocate ("C_a_i_f32vector_ref" 4) x i)) f32vector-set! "(chicken.srfi-4#f32vector-ref v i)")) (define f64vector-ref (getter-with-setter (lambda (x i) (##core#inline_allocate ("C_a_i_f64vector_ref" 4) x i)) f64vector-set! "(chicken.srfi-4#f64vector-ref v i)")) ;;; Basic constructors: (define make-f32vector) (define make-f64vector) (define make-s16vector) (define make-s32vector) (define make-s64vector) (define make-s8vector) (define make-u8vector) (define make-u16vector) (define make-u32vector) (define make-u64vector) (define release-number-vector) (let* ((ext-alloc (foreign-lambda* scheme-object ((size_t bytes)) "if (bytes > C_HEADER_SIZE_MASK) C_return(C_SCHEME_FALSE);" "C_word *buf = (C_word *)C_malloc(bytes + sizeof(C_header));" "if(buf == NULL) C_return(C_SCHEME_FALSE);" "C_block_header_init(buf, C_make_header(C_BYTEVECTOR_TYPE, bytes));" "C_return(buf);") ) (ext-free (foreign-lambda* void ((scheme-object bv)) "C_free((void *)C_block_item(bv, 1));") ) (alloc (lambda (loc elem-size elems ext?) (##sys#check-fixnum elems loc) (when (fx< elems 0) (##sys#error loc "size is negative" elems)) (let ((len (fx*? elems elem-size))) (unless len (##sys#error "overflow - cannot allocate the required number of elements" elems)) (if ext? (let ((bv (ext-alloc len))) (or bv (##sys#error loc "not enough memory - cannot allocate external number vector" len)) ) (let ((bv (##sys#allocate-vector len #t #f #t))) ; this could be made better... (##core#inline "C_string_to_bytevector" bv) bv) ) ) ) )) (set! release-number-vector (lambda (v) (if (number-vector? v) (ext-free v) (##sys#error 'release-number-vector "bad argument type - not a number vector" v)) ) ) (set! make-u8vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (let ((v (##sys#make-structure 'u8vector (alloc 'make-u8vector 1 len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (check-uint-length init 8 'make-u8vector) (do ((i 0 (##core#inline "C_fixnum_plus" i 1))) ((##core#inline "C_fixnum_greater_or_equal_p" i len) v) (##core#inline "C_u_i_u8vector_set" v i init) ) ) ) ) ) ) (set! make-s8vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (let ((v (##sys#make-structure 's8vector (alloc 'make-s8vector 1 len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (check-uint-length init 8 'make-s8vector) (do ((i 0 (##core#inline "C_fixnum_plus" i 1))) ((##core#inline "C_fixnum_greater_or_equal_p" i len) v) (##core#inline "C_u_i_s8vector_set" v i init) ) ) ) ) ) ) (set! make-u16vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (let ((v (##sys#make-structure 'u16vector (alloc 'make-u16vector 2 len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (check-uint-length init 16 'make-u16vector) (do ((i 0 (##core#inline "C_fixnum_plus" i 1))) ((##core#inline "C_fixnum_greater_or_equal_p" i len) v) (##core#inline "C_u_i_u16vector_set" v i init) ) ) ) ) ) ) (set! make-s16vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (let ((v (##sys#make-structure 's16vector (alloc 'make-s16vector 2 len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (check-int-length init 16 'make-s16vector) (do ((i 0 (##core#inline "C_fixnum_plus" i 1))) ((##core#inline "C_fixnum_greater_or_equal_p" i len) v) (##core#inline "C_u_i_s16vector_set" v i init) ) ) ) ) ) ) (set! make-u32vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (let ((v (##sys#make-structure 'u32vector (alloc 'make-u32vector 4 len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (check-uint-length init 32 'make-u32vector) (do ((i 0 (##core#inline "C_fixnum_plus" i 1))) ((##core#inline "C_fixnum_greater_or_equal_p" i len) v) (##core#inline "C_u_i_u32vector_set" v i init) ) ) ) ) ) ) (set! make-u64vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (let ((v (##sys#make-structure 'u64vector (alloc 'make-u64vector 8 len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (check-uint-length init 64 'make-u64vector) (do ((i 0 (##core#inline "C_fixnum_plus" i 1))) ((##core#inline "C_fixnum_greater_or_equal_p" i len) v) (##core#inline "C_u_i_u64vector_set" v i init) ) ) ) ) ) ) (set! make-s32vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (let ((v (##sys#make-structure 's32vector (alloc 'make-s32vector 4 len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (check-int-length init 32 'make-s32vector) (do ((i 0 (##core#inline "C_fixnum_plus" i 1))) ((##core#inline "C_fixnum_greater_or_equal_p" i len) v) (##core#inline "C_u_i_s32vector_set" v i init) ) ) ) ) ) ) (set! make-s64vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (let ((v (##sys#make-structure 's64vector (alloc 'make-s64vector 8 len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (check-int-length init 64 'make-s64vector) (do ((i 0 (##core#inline "C_fixnum_plus" i 1))) ((##core#inline "C_fixnum_greater_or_equal_p" i len) v) (##core#inline "C_u_i_s64vector_set" v i init) ) ) ) ) ) ) (set! make-f32vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (let ((v (##sys#make-structure 'f32vector (alloc 'make-f32vector 4 len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (check-int/flonum init 'make-f32vector) (unless (##core#inline "C_i_flonump" init) (set! init (##core#inline_allocate ("C_a_u_i_int_to_flo" 4) init))) (do ((i 0 (##core#inline "C_fixnum_plus" i 1))) ((##core#inline "C_fixnum_greater_or_equal_p" i len) v) (##core#inline "C_u_i_f32vector_set" v i init) ) ) ) ) ) ) (set! make-f64vector (lambda (len #!optional (init #f) (ext? #f) (fin? #t)) (let ((v (##sys#make-structure 'f64vector (alloc 'make-f64vector 8 len ext?)))) (when (and ext? fin?) (set-finalizer! v ext-free)) (if (not init) v (begin (check-int/flonum init 'make-f64vector) (unless (##core#inline "C_i_flonump" init) (set! init (##core#inline_allocate ("C_a_u_i_int_to_flo" 4) init)) ) (do ((i 0 (##core#inline "C_fixnum_plus" i 1))) ((##core#inline "C_fixnum_greater_or_equal_p" i len) v) (##core#inline "C_u_i_f64vector_set" v i init) ) ) ) ) ) ) ) ;;; Creating vectors from a list: (define-syntax list->NNNvector (er-macro-transformer (lambda (x r c) (let* ((tag (strip-syntax (cadr x))) (tagstr (symbol->string tag)) (name (string->symbol (string-append "list->" tagstr))) (make (string->symbol (string-append "make-" tagstr))) (set (string->symbol (string-append tagstr "-set!")))) `(define ,name (let ((,make ,make)) (lambda (lst) (##sys#check-list lst ',tag) (let* ((n (##core#inline "C_i_length" lst)) (v (,make n)) ) (do ((p lst (##core#inline "C_slot" p 1)) (i 0 (##core#inline "C_fixnum_plus" i 1)) ) ((##core#inline "C_eqp" p '()) v) (if (and (##core#inline "C_blockp" p) (##core#inline "C_pairp" p)) (,set v i (##core#inline "C_slot" p 0)) (##sys#error-not-a-proper-list lst) ) ) ) ))))))) (list->NNNvector u8vector) (list->NNNvector s8vector) (list->NNNvector u16vector) (list->NNNvector s16vector) (list->NNNvector u32vector) (list->NNNvector s32vector) (list->NNNvector u64vector) (list->NNNvector s64vector) (list->NNNvector f32vector) (list->NNNvector f64vector) ;;; More constructors: (define u8vector (lambda xs (list->u8vector xs)) ) (define s8vector (lambda xs (list->s8vector xs)) ) (define u16vector (lambda xs (list->u16vector xs)) ) (define s16vector (lambda xs (list->s16vector xs)) ) (define u32vector (lambda xs (list->u32vector xs)) ) (define s32vector (lambda xs (list->s32vector xs)) ) (define u64vector (lambda xs (list->u64vector xs)) ) (define s64vector (lambda xs (list->s64vector xs)) ) (define f32vector (lambda xs (list->f32vector xs)) ) (define f64vector (lambda xs (list->f64vector xs)) ) ;;; Creating lists from a vector: (define-syntax NNNvector->list (er-macro-transformer (lambda (x r c) (let* ((tag (symbol->string (strip-syntax (cadr x)))) (alloc (and (pair? (cddr x)) (caddr x))) (name (string->symbol (string-append tag "->list")))) `(define (,name v) (##sys#check-structure v ',(string->symbol tag) ',name) (let ((len (##core#inline ,(string-append "C_u_i_" tag "_length") v))) (let loop ((i 0)) (if (fx>= i len) '() (cons ,(if alloc `(##core#inline_allocate (,(string-append "C_a_u_i_" tag "_ref") ,alloc) v i) `(##core#inline ,(string-append "C_u_i_" tag "_ref") v i)) (loop (fx+ i 1)) ) ) ) ) ) ) ))) (NNNvector->list u8vector) (NNNvector->list s8vector) (NNNvector->list u16vector) (NNNvector->list s16vector) ;; The alloc amounts here are for 32-bit words; this over-allocates on 64-bits (NNNvector->list u32vector 6) (NNNvector->list s32vector 6) (NNNvector->list u64vector 7) (NNNvector->list s64vector 7) (NNNvector->list f32vector 4) (NNNvector->list f64vector 4) ;;; Predicates: (define (u8vector? x) (##core#inline "C_i_u8vectorp" x)) (define (s8vector? x) (##core#inline "C_i_s8vectorp" x)) (define (u16vector? x) (##core#inline "C_i_u16vectorp" x)) (define (s16vector? x) (##core#inline "C_i_s16vectorp" x)) (define (u32vector? x) (##core#inline "C_i_u32vectorp" x)) (define (s32vector? x) (##core#inline "C_i_s32vectorp" x)) (define (u64vector? x) (##core#inline "C_i_u64vectorp" x)) (define (s64vector? x) (##core#inline "C_i_s64vectorp" x)) (define (f32vector? x) (##core#inline "C_i_f32vectorp" x)) (define (f64vector? x) (##core#inline "C_i_f64vectorp" x)) ;; Catch-all predicate (define number-vector? ##sys#srfi-4-vector?) ;;; Accessing the packed bytevector: (define (pack tag loc) (lambda (v) (##sys#check-structure v tag loc) (##sys#slot v 1) ) ) (define (pack-copy tag loc) (lambda (v) (##sys#check-structure v tag loc) (let* ((old (##sys#slot v 1)) (new (##sys#make-blob (##sys#size old)))) (##core#inline "C_copy_block" old new) ) ) ) (define (unpack tag sz loc) (lambda (str) (##sys#check-byte-vector str loc) (let ([len (##sys#size str)]) (if (or (eq? #t sz) (eq? 0 (##core#inline "C_fixnum_modulo" len sz))) (##sys#make-structure tag str) (##sys#error loc "blob does not have correct size for packing" tag len sz) ) ) ) ) (define (unpack-copy tag sz loc) (lambda (str) (##sys#check-byte-vector str loc) (let* ((len (##sys#size str)) (new (##sys#make-blob len))) (if (or (eq? #t sz) (eq? 0 (##core#inline "C_fixnum_modulo" len sz))) (##sys#make-structure tag (##core#inline "C_copy_block" str new) ) (##sys#error loc "blob does not have correct size for packing" tag len sz) ) ) ) ) (define u8vector->blob/shared (pack 'u8vector 'u8vector->blob/shared)) (define s8vector->blob/shared (pack 's8vector 's8vector->blob/shared)) (define u16vector->blob/shared (pack 'u16vector 'u16vector->blob/shared)) (define s16vector->blob/shared (pack 's16vector 's16vector->blob/shared)) (define u32vector->blob/shared (pack 'u32vector 'u32vector->blob/shared)) (define s32vector->blob/shared (pack 's32vector 's32vector->blob/shared)) (define u64vector->blob/shared (pack 'u64vector 'u64vector->blob/shared)) (define s64vector->blob/shared (pack 's64vector 's64vector->blob/shared)) (define f32vector->blob/shared (pack 'f32vector 'f32vector->blob/shared)) (define f64vector->blob/shared (pack 'f64vector 'f64vector->blob/shared)) (define u8vector->blob (pack-copy 'u8vector 'u8vector->blob)) (define s8vector->blob (pack-copy 's8vector 's8vector->blob)) (define u16vector->blob (pack-copy 'u16vector 'u16vector->blob)) (define s16vector->blob (pack-copy 's16vector 's16vector->blob)) (define u32vector->blob (pack-copy 'u32vector 'u32vector->blob)) (define s32vector->blob (pack-copy 's32vector 's32vector->blob)) (define u64vector->blob (pack-copy 'u64vector 'u64vector->blob)) (define s64vector->blob (pack-copy 's64vector 's64vector->blob)) (define f32vector->blob (pack-copy 'f32vector 'f32vector->blob)) (define f64vector->blob (pack-copy 'f64vector 'f64vector->blob)) (define blob->u8vector/shared (unpack 'u8vector #t 'blob->u8vector/shared)) (define blob->s8vector/shared (unpack 's8vector #t 'blob->s8vector/shared)) (define blob->u16vector/shared (unpack 'u16vector 2 'blob->u16vector/shared)) (define blob->s16vector/shared (unpack 's16vector 2 'blob->s16vector/shared)) (define blob->u32vector/shared (unpack 'u32vector 4 'blob->u32vector/shared)) (define blob->s32vector/shared (unpack 's32vector 4 'blob->s32vector/shared)) (define blob->u64vector/shared (unpack 'u64vector 4 'blob->u64vector/shared)) (define blob->s64vector/shared (unpack 's64vector 4 'blob->s64vector/shared)) (define blob->f32vector/shared (unpack 'f32vector 4 'blob->f32vector/shared)) (define blob->f64vector/shared (unpack 'f64vector 8 'blob->f64vector/shared)) (define blob->u8vector (unpack-copy 'u8vector #t 'blob->u8vector)) (define blob->s8vector (unpack-copy 's8vector #t 'blob->s8vector)) (define blob->u16vector (unpack-copy 'u16vector 2 'blob->u16vector)) (define blob->s16vector (unpack-copy 's16vector 2 'blob->s16vector)) (define blob->u32vector (unpack-copy 'u32vector 4 'blob->u32vector)) (define blob->s32vector (unpack-copy 's32vector 4 'blob->s32vector)) (define blob->u64vector (unpack-copy 'u64vector 4 'blob->u64vector)) (define blob->s64vector (unpack-copy 's64vector 4 'blob->s64vector)) (define blob->f32vector (unpack-copy 'f32vector 4 'blob->f32vector)) (define blob->f64vector (unpack-copy 'f64vector 8 'blob->f64vector)) ;;; Read syntax: (set! ##sys#user-read-hook (let ([old-hook ##sys#user-read-hook] [read read] [consers (list 'u8 list->u8vector 's8 list->s8vector 'u16 list->u16vector 's16 list->s16vector 'u32 list->u32vector 's32 list->s32vector 'u64 list->u64vector 's64 list->s64vector 'f32 list->f32vector 'f64 list->f64vector) ] ) (lambda (char port) (if (memq char '(#\u #\s #\f #\U #\S #\F)) (let* ([x (read port)] [tag (and (symbol? x) x)] ) (cond [(or (eq? tag 'f) (eq? tag 'F)) #f] [(memq tag consers) => (lambda (c) ((##sys#slot (##sys#slot c 1) 0) (read port)))] [else (##sys#read-error port "illegal bytevector syntax" tag)] ) ) (old-hook char port) ) ) ) ) ;;; Printing: (set! ##sys#user-print-hook (let ((old-hook ##sys#user-print-hook)) (lambda (x readable port) (let ((tag (assq (##core#inline "C_slot" x 0) `((u8vector u8 ,u8vector->list) (s8vector s8 ,s8vector->list) (u16vector u16 ,u16vector->list) (s16vector s16 ,s16vector->list) (u32vector u32 ,u32vector->list) (s32vector s32 ,s32vector->list) (u64vector u64 ,u64vector->list) (s64vector s64 ,s64vector->list) (f32vector f32 ,f32vector->list) (f64vector f64 ,f64vector->list) ) ) ) ) (cond (tag (##sys#print #\# #f port) (##sys#print (cadr tag) #f port) (##sys#print ((caddr tag) x) #t port) ) (else (old-hook x readable port)) ) ) ) ) ) ;;; Subvectors: (define (subnvector v t es from to loc) (##sys#check-structure v t loc) (let* ([bv (##sys#slot v 1)] [len (##sys#size bv)] [ilen (##core#inline "C_u_fixnum_divide" len es)] ) (check-range from 0 (fx+ ilen 1) loc) (check-range to 0 (fx+ ilen 1) loc) (let* ([size2 (fx* es (fx- to from))] [bv2 (##sys#allocate-vector size2 #t #f #t)] ) (##core#inline "C_string_to_bytevector" bv2) (let ([v (##sys#make-structure t bv2)]) (##core#inline "C_copy_subvector" bv2 bv 0 (fx* from es) size2) v) ) ) ) (define (subu8vector v from to) (subnvector v 'u8vector 1 from to 'subu8vector)) (define (subu16vector v from to) (subnvector v 'u16vector 2 from to 'subu16vector)) (define (subu32vector v from to) (subnvector v 'u32vector 4 from to 'subu32vector)) (define (subu64vector v from to) (subnvector v 'u64vector 8 from to 'subu64vector)) (define (subs8vector v from to) (subnvector v 's8vector 1 from to 'subs8vector)) (define (subs16vector v from to) (subnvector v 's16vector 2 from to 'subs16vector)) (define (subs32vector v from to) (subnvector v 's32vector 4 from to 'subs32vector)) (define (subs64vector v from to) (subnvector v 's64vector 8 from to 'subs64vector)) (define (subf32vector v from to) (subnvector v 'f32vector 4 from to 'subf32vector)) (define (subf64vector v from to) (subnvector v 'f64vector 8 from to 'subf64vector)) (define (write-u8vector v #!optional (port ##sys#standard-output) (from 0) to) (##sys#check-structure v 'u8vector 'write-u8vector) (##sys#check-output-port port #t 'write-u8vector) (let ((len (##core#inline "C_u_i_8vector_length" v))) (check-range from 0 (fx+ (or to len) 1) 'write-u8vector) (when to (check-range to from (fx+ len 1) 'write-u8vector)) ; using (write-string) since the "data" slot of a u8vector is ; represented the same as a string ((##sys#slot (##sys#slot port 2) 3) ; write-string port (if (and (fx= from 0) (or (not to) (fx= to len))) (##sys#slot v 1) (##sys#slot (subu8vector v from (or to len)) 1))))) (define (read-u8vector! n dest #!optional (port ##sys#standard-input) (start 0)) (##sys#check-input-port port #t 'read-u8vector!) (##sys#check-fixnum start 'read-u8vector!) (##sys#check-structure dest 'u8vector 'read-u8vector!) (when n (##sys#check-fixnum n 'read-u8vector!)) (let* ((dest (##sys#slot dest 1)) (size (##sys#size dest))) (unless (and n (fx<= (fx+ start n) size)) (set! n (fx- size start))) (chicken.io#read-string!/port n dest port start))) (define (read-u8vector #!optional n (p ##sys#standard-input)) (##sys#check-input-port p #t 'read-u8vector) (when n (##sys#check-fixnum n 'read-u8vector)) (let ((str (chicken.io#read-string/port n p))) (cond ((eof-object? str) str) (else (##core#inline "C_string_to_bytevector" str) (##sys#make-structure 'u8vector str))))) (register-feature! 'srfi-4)) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.compiler.lfa2.import.scm������������������������������������������������������0000644�0001750�0001750�00000000603�13502227757�021015� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.compiler.lfa2.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.compiler.lfa2 'lfa2 (scheme#list) '((perform-secondary-flow-analysis . chicken.compiler.lfa2#perform-secondary-flow-analysis) (perform-unboxing . chicken.compiler.lfa2#perform-unboxing)) (scheme#list) (scheme#list)) ;; END OF FILE �����������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/runtime.c�����������������������������������������������������������������������������0000644�0001750�0001750�00001335356�13502227553�014602� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* runtime.c - Runtime code for compiler generated executables ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. */ #include "chicken.h" #include <assert.h> #include <float.h> #include <signal.h> #include <sys/stat.h> #include <strings.h> #ifdef HAVE_SYSEXITS_H # include <sysexits.h> #endif #ifdef __ANDROID__ # include <android/log.h> #endif #if !defined(PIC) # define NO_DLOAD2 #endif #ifndef NO_DLOAD2 # ifdef HAVE_DLFCN_H # include <dlfcn.h> # endif # ifdef HAVE_DL_H # include <dl.h> # endif #endif #ifndef EX_SOFTWARE # define EX_SOFTWARE 70 #endif #ifndef EOVERFLOW # define EOVERFLOW 0 #endif /* TODO: Include sys/select.h? Windows doesn't seem to have it... */ #ifndef NO_POSIX_POLL # include <poll.h> #endif #if !defined(C_NONUNIX) # include <sys/time.h> # include <sys/resource.h> # include <sys/wait.h> # include <fcntl.h> /* ITIMER_PROF is more precise, but Cygwin doesn't support it... */ # ifdef __CYGWIN__ # define C_PROFILE_SIGNAL SIGALRM # define C_PROFILE_TIMER ITIMER_REAL # else # define C_PROFILE_SIGNAL SIGPROF # define C_PROFILE_TIMER ITIMER_PROF # endif #else # define C_PROFILE_SIGNAL -1 /* Stupid way to avoid error */ #ifdef ECOS #include <cyg/kernel/kapi.h> static C_TLS int timezone; #define NSIG 32 #endif #endif #ifndef RTLD_GLOBAL # define RTLD_GLOBAL 0 #endif #ifndef RTLD_NOW # define RTLD_NOW 0 #endif #ifndef RTLD_LOCAL # define RTLD_LOCAL 0 #endif #ifndef RTLD_LAZY # define RTLD_LAZY 0 #endif #if defined(_WIN32) && !defined(__CYGWIN__) /* Include winsock2 to get select() for check_fd_ready() */ # include <winsock2.h> # include <windows.h> /* Needed for ERROR_OPERATION_ABORTED */ # include <winerror.h> #endif /* For image_info retrieval */ #if defined(__HAIKU__) # include <kernel/image.h> #endif /* For _NSGetExecutablePath */ #if defined(C_MACOSX) # include <mach-o/dyld.h> #endif #ifdef HAVE_CONFIG_H # ifdef PACKAGE # undef PACKAGE # endif # ifdef VERSION # undef VERSION # endif # include <chicken-config.h> # ifndef HAVE_ALLOCA # error this package requires "alloca()" # endif #endif /* Parameters: */ #define RELAX_MULTIVAL_CHECK #ifdef C_SIXTY_FOUR # define DEFAULT_STACK_SIZE (1024 * 1024) #else # define DEFAULT_STACK_SIZE (256 * 1024) #endif #define DEFAULT_SYMBOL_TABLE_SIZE 2999 #define DEFAULT_KEYWORD_TABLE_SIZE 499 #define DEFAULT_HEAP_SIZE DEFAULT_STACK_SIZE #define MINIMAL_HEAP_SIZE DEFAULT_STACK_SIZE #define DEFAULT_SCRATCH_SPACE_SIZE 256 #define DEFAULT_MAXIMAL_HEAP_SIZE 0x7ffffff0 #define DEFAULT_HEAP_GROWTH 200 #define DEFAULT_HEAP_SHRINKAGE 50 #define DEFAULT_HEAP_SHRINKAGE_USED 25 #define DEFAULT_FORWARDING_TABLE_SIZE 32 #define DEFAULT_LOCATIVE_TABLE_SIZE 32 #define DEFAULT_COLLECTIBLES_SIZE 1024 #define DEFAULT_TRACE_BUFFER_SIZE 16 #define MIN_TRACE_BUFFER_SIZE 3 #define MAX_HASH_PREFIX 64 #define DEFAULT_TEMPORARY_STACK_SIZE 256 #define STRING_BUFFER_SIZE 4096 #define DEFAULT_MUTATION_STACK_SIZE 1024 #define PROFILE_TABLE_SIZE 1024 #define MAX_PENDING_INTERRUPTS 100 #ifdef C_DOUBLE_IS_32_BITS # define FLONUM_PRINT_PRECISION 7 #else # define FLONUM_PRINT_PRECISION 15 #endif #define WORDS_PER_FLONUM C_SIZEOF_FLONUM #define INITIAL_TIMER_INTERRUPT_PERIOD 10000 #define HDUMP_TABLE_SIZE 1001 /* only for relevant for Windows: */ #define MAXIMAL_NUMBER_OF_COMMAND_LINE_ARGUMENTS 256 /* Constants: */ #ifdef C_SIXTY_FOUR # ifdef C_LLP # define ALIGNMENT_HOLE_MARKER ((C_word)0xfffffffffffffffeLL) # define UWORD_FORMAT_STRING "0x%016llx" # define UWORD_COUNT_FORMAT_STRING "%llu" # else # define ALIGNMENT_HOLE_MARKER ((C_word)0xfffffffffffffffeL) # define UWORD_FORMAT_STRING "0x%016lx" # define UWORD_COUNT_FORMAT_STRING "%lu" # endif #else # define ALIGNMENT_HOLE_MARKER ((C_word)0xfffffffe) # define UWORD_FORMAT_STRING "0x%08x" # define UWORD_COUNT_FORMAT_STRING "%u" #endif #ifdef C_LLP # define LONG_FORMAT_STRING "%lld" #else # define LONG_FORMAT_STRING "%ld" #endif #define GC_MINOR 0 #define GC_MAJOR 1 #define GC_REALLOC 2 /* Macros: */ #define nmax(x, y) ((x) > (y) ? (x) : (y)) #define nmin(x, y) ((x) < (y) ? (x) : (y)) #define percentage(n, p) ((C_long)(((double)(n) * (double)p) / 100)) #define clear_buffer_object(buf, obj) C_migrate_buffer_object(NULL, (C_word *)(buf), C_buf_end(buf), (obj)) #define move_buffer_object(ptr, buf, obj) C_migrate_buffer_object(ptr, (C_word *)(buf), C_buf_end(buf), (obj)) /* The bignum digit representation is fullword- little endian, so on * LE machines the halfdigits are numbered in the same order. On BE * machines, we must swap the odd and even positions. */ #ifdef C_BIG_ENDIAN #define C_uhword_ref(x, p) ((C_uhword *)(x))[(p)^1] #else #define C_uhword_ref(x, p) ((C_uhword *)(x))[(p)] #endif #define C_uhword_set(x, p, d) (C_uhword_ref(x,p) = (d)) #define free_tmp_bignum(b) C_free((void *)(b)) /* Forwarding pointers abuse the fact that objects must be * word-aligned, so we can just drop the lowest bit. */ #define is_fptr(x) (((x) & C_GC_FORWARDING_BIT) != 0) #define ptr_to_fptr(x) (((C_uword)(x) >> 1) | C_GC_FORWARDING_BIT) #define fptr_to_ptr(x) ((C_uword)(x) << 1) #define C_check_real(x, w, v) if(((x) & C_FIXNUM_BIT) != 0) v = C_unfix(x); \ else if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) \ barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, w, x); \ else v = C_flonum_magnitude(x); #define C_pte(name) pt[ i ].id = #name; pt[ i++ ].ptr = (void *)name; #ifndef SIGBUS # define SIGBUS 0 #endif #define C_thread_id(x) C_block_item((x), 14) /* Type definitions: */ typedef C_regparm C_word C_fcall (*integer_plusmin_op) (C_word **ptr, C_word n, C_word x, C_word y); typedef struct lf_list_struct { C_word *lf; int count; struct lf_list_struct *next, *prev; C_PTABLE_ENTRY *ptable; void *module_handle; char *module_name; } LF_LIST; typedef struct finalizer_node_struct { struct finalizer_node_struct *next, *previous; C_word item, finalizer; } FINALIZER_NODE; typedef struct trace_info_struct { C_char *raw; C_word cooked1, cooked2, thread; } TRACE_INFO; typedef struct hdump_bucket_struct { C_word key; int count, total; struct hdump_bucket_struct *next; } HDUMP_BUCKET; typedef struct profile_bucket_struct { C_char *key; C_uword sample_count; /* Multiplied by profile freq = time spent */ C_uword call_count; /* Distinct calls seen while sampling */ struct profile_bucket_struct *next; } PROFILE_BUCKET; /* Variables: */ C_TLS C_word *C_temporary_stack, *C_temporary_stack_bottom, *C_temporary_stack_limit, *C_stack_limit, /* "Soft" limit, may be reset to force GC */ *C_stack_hard_limit, /* Actual stack limit */ *C_scratchspace_start, *C_scratchspace_top, *C_scratchspace_limit, C_scratch_usage; C_TLS C_long C_timer_interrupt_counter, C_initial_timer_interrupt_period; C_TLS C_byte *C_fromspace_top, *C_fromspace_limit; #ifdef HAVE_SIGSETJMP C_TLS sigjmp_buf C_restart; #else C_TLS jmp_buf C_restart; #endif C_TLS void *C_restart_trampoline; C_TLS C_word C_restart_c; C_TLS int C_entry_point_status; C_TLS int (*C_gc_mutation_hook)(C_word *slot, C_word val); C_TLS void (*C_gc_trace_hook)(C_word *var, int mode); C_TLS void (*C_panic_hook)(C_char *msg) = NULL; C_TLS void (*C_pre_gc_hook)(int mode) = NULL; C_TLS void (*C_post_gc_hook)(int mode, C_long ms) = NULL; C_TLS C_word (*C_debugger_hook)(C_DEBUG_INFO *cell, C_word c, C_word *av, C_char *cloc) = NULL; C_TLS int C_gui_mode = 0, C_abort_on_thread_exceptions, C_enable_repl, C_interrupts_enabled, C_disable_overflow_check, C_heap_size_is_fixed, C_trace_buffer_size = DEFAULT_TRACE_BUFFER_SIZE, C_max_pending_finalizers = C_DEFAULT_MAX_PENDING_FINALIZERS, C_debugging = 0, C_main_argc; C_TLS C_uword C_heap_growth, C_heap_shrinkage; C_TLS C_uword C_maximal_heap_size; C_TLS time_t C_startup_time_seconds, profile_frequency = 10000; C_TLS char **C_main_argv, #ifdef SEARCH_EXE_PATH *C_main_exe = NULL, #endif *C_dlerror; static C_TLS TRACE_INFO *trace_buffer, *trace_buffer_limit, *trace_buffer_top; static C_TLS C_byte *heapspace1, *heapspace2, *fromspace_start, *tospace_start, *tospace_top, *tospace_limit, *new_tospace_start, *new_tospace_top, *new_tospace_limit, *heap_scan_top; static C_TLS C_uword heapspace1_size, heapspace2_size, heap_size, scratchspace_size, temporary_stack_size, fixed_temporary_stack_size = 0, maximum_heap_usage; static C_TLS C_char buffer[ STRING_BUFFER_SIZE ], *private_repository = NULL, *current_module_name, *save_string; static C_TLS C_SYMBOL_TABLE *symbol_table, *symbol_table_list, *keyword_table; static C_TLS C_word **collectibles, **collectibles_top, **collectibles_limit, **mutation_stack_bottom, **mutation_stack_limit, **mutation_stack_top, *stack_bottom, *locative_table, error_location, interrupt_hook_symbol, current_thread_symbol, error_hook_symbol, pending_finalizers_symbol, callback_continuation_stack_symbol, core_provided_symbol, u8vector_symbol, s8vector_symbol, u16vector_symbol, s16vector_symbol, u32vector_symbol, s32vector_symbol, u64vector_symbol, s64vector_symbol, f32vector_symbol, f64vector_symbol, *forwarding_table; static C_TLS int trace_buffer_full, forwarding_table_size, return_to_host, page_size, show_trace, fake_tty_flag, debug_mode, dump_heap_on_exit, gc_bell, gc_report_flag = 0, gc_mode, gc_count_1, gc_count_1_total, gc_count_2, stack_size_changed, dlopen_flags, heap_size_changed, chicken_is_running, chicken_ran_once, pass_serious_signals = 1, callback_continuation_level; static volatile C_TLS int serious_signal_occurred = 0, profiling = 0; static C_TLS unsigned int mutation_count, tracked_mutation_count, stack_check_demand, stack_size; static C_TLS int chicken_is_initialized; #ifdef HAVE_SIGSETJMP static C_TLS sigjmp_buf gc_restart; #else static C_TLS jmp_buf gc_restart; #endif static C_TLS double timer_start_ms, gc_ms, timer_accumulated_gc_ms, interrupt_time, last_interrupt_latency; static C_TLS LF_LIST *lf_list; static C_TLS int signal_mapping_table[ NSIG ]; static C_TLS int locative_table_size, locative_table_count, live_finalizer_count, allocated_finalizer_count, pending_finalizer_count, callback_returned_flag; static C_TLS C_GC_ROOT *gc_root_list = NULL; static C_TLS FINALIZER_NODE *finalizer_list, *finalizer_free_list, **pending_finalizer_indices; static C_TLS void *current_module_handle; static C_TLS int flonum_print_precision = FLONUM_PRINT_PRECISION; static C_TLS HDUMP_BUCKET **hdump_table; static C_TLS PROFILE_BUCKET *next_profile_bucket = NULL, **profile_table = NULL; static C_TLS int pending_interrupts[ MAX_PENDING_INTERRUPTS ], pending_interrupts_count, handling_interrupts; static C_TLS C_uword random_state[ C_RANDOM_STATE_SIZE / sizeof(C_uword) ]; static C_TLS int random_state_index = 0; /* Prototypes: */ static void parse_argv(C_char *cmds); static void initialize_symbol_table(void); static void global_signal_handler(int signum); static C_word arg_val(C_char *arg); static void barf(int code, char *loc, ...) C_noret; static void try_extended_number(char *ext_proc_name, C_word c, C_word k, ...) C_noret; static void panic(C_char *msg) C_noret; static void usual_panic(C_char *msg) C_noret; static void horror(C_char *msg) C_noret; static void C_fcall really_mark(C_word *x) C_regparm; static C_cpsproc(values_continuation) C_noret; static C_word add_symbol(C_word **ptr, C_word key, C_word string, C_SYMBOL_TABLE *stable); static C_regparm int C_fcall C_in_new_heapp(C_word x); static C_regparm C_word bignum_times_bignum_unsigned(C_word **ptr, C_word x, C_word y, C_word negp); static C_regparm C_word bignum_extract_digits(C_word **ptr, C_word n, C_word x, C_word start, C_word end); static C_regparm C_word bignum_times_bignum_karatsuba(C_word **ptr, C_word x, C_word y, C_word negp); static C_word bignum_plus_unsigned(C_word **ptr, C_word x, C_word y, C_word negp); static C_word rat_plusmin_integer(C_word **ptr, C_word rat, C_word i, integer_plusmin_op plusmin_op); static C_word integer_minus_rat(C_word **ptr, C_word i, C_word rat); static C_word rat_plusmin_rat(C_word **ptr, C_word x, C_word y, integer_plusmin_op plusmin_op); static C_word rat_times_integer(C_word **ptr, C_word x, C_word y); static C_word rat_times_rat(C_word **ptr, C_word x, C_word y); static C_word cplx_times(C_word **ptr, C_word rx, C_word ix, C_word ry, C_word iy); static C_word bignum_minus_unsigned(C_word **ptr, C_word x, C_word y); static C_regparm void integer_divrem(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r); static C_regparm C_word bignum_remainder_unsigned_halfdigit(C_word x, C_word y); static C_regparm void bignum_divrem(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r); static C_regparm C_word bignum_divide_burnikel_ziegler(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r); static C_regparm void burnikel_ziegler_3n_div_2n(C_word **ptr, C_word a12, C_word a3, C_word b, C_word b1, C_word b2, C_word n, C_word *q, C_word *r); static C_regparm void burnikel_ziegler_2n_div_1n(C_word **ptr, C_word a, C_word b, C_word b1, C_word b2, C_word n, C_word *q, C_word *r); static C_word rat_cmp(C_word x, C_word y); static void fabs_frexp_to_digits(C_uword exp, double sign, C_uword *start, C_uword *scan); static C_word int_flo_cmp(C_word intnum, C_word flonum); static C_word flo_int_cmp(C_word flonum, C_word intnum); static C_word rat_flo_cmp(C_word ratnum, C_word flonum); static C_word flo_rat_cmp(C_word flonum, C_word ratnum); static C_word basic_cmp(C_word x, C_word y, char *loc, int eqp); static int bignum_cmp_unsigned(C_word x, C_word y); static C_word C_fcall hash_string(int len, C_char *str, C_word m, C_word r, int ci) C_regparm; static C_word C_fcall lookup(C_word key, int len, C_char *str, C_SYMBOL_TABLE *stable) C_regparm; static C_word C_fcall lookup_bucket(C_word sym, C_SYMBOL_TABLE *stable) C_regparm; static double compute_symbol_table_load(double *avg_bucket_len, int *total); static double C_fcall decode_flonum_literal(C_char *str) C_regparm; static C_regparm C_word str_to_bignum(C_word bignum, char *str, char *str_end, int radix); static void C_fcall mark_system_globals(void) C_regparm; static void C_fcall remark_system_globals(void) C_regparm; static void C_fcall really_remark(C_word *x) C_regparm; static C_word C_fcall intern0(C_char *name) C_regparm; static void C_fcall update_locative_table(int mode) C_regparm; static void C_fcall update_symbol_tables(int mode) C_regparm; static LF_LIST *find_module_handle(C_char *name); static void set_profile_timer(C_uword freq); static void take_profile_sample(); static C_cpsproc(call_cc_wrapper) C_noret; static C_cpsproc(call_cc_values_wrapper) C_noret; static C_cpsproc(gc_2) C_noret; static C_cpsproc(allocate_vector_2) C_noret; static C_cpsproc(generic_trampoline) C_noret; static void handle_interrupt(void *trampoline) C_noret; static C_cpsproc(callback_return_continuation) C_noret; static C_cpsproc(termination_continuation) C_noret; static C_cpsproc(become_2) C_noret; static C_cpsproc(copy_closure_2) C_noret; static C_cpsproc(dump_heap_state_2) C_noret; static C_cpsproc(sigsegv_trampoline) C_noret; static C_cpsproc(sigill_trampoline) C_noret; static C_cpsproc(sigfpe_trampoline) C_noret; static C_cpsproc(sigbus_trampoline) C_noret; static C_cpsproc(bignum_to_str_2) C_noret; static C_word allocate_tmp_bignum(C_word size, C_word negp, C_word initp); static C_word allocate_scratch_bignum(C_word **ptr, C_word size, C_word negp, C_word initp); static void bignum_digits_destructive_negate(C_word bignum); static C_uword bignum_digits_destructive_scale_up_with_carry(C_uword *start, C_uword *end, C_uword factor, C_uword carry); static C_uword bignum_digits_destructive_scale_down(C_uword *start, C_uword *end, C_uword denominator); static C_uword bignum_digits_destructive_shift_right(C_uword *start, C_uword *end, int shift_right, int negp); static C_uword bignum_digits_destructive_shift_left(C_uword *start, C_uword *end, int shift_left); static C_regparm void bignum_digits_multiply(C_word x, C_word y, C_word result); static void bignum_divide_unsigned(C_word **ptr, C_word num, C_word denom, C_word *q, C_word q_negp, C_word *r, C_word r_negp); static C_regparm void bignum_destructive_divide_unsigned_small(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r); static C_regparm void bignum_destructive_divide_full(C_word numerator, C_word denominator, C_word quotient, C_word remainder, C_word return_remainder); static C_regparm void bignum_destructive_divide_normalized(C_word big_u, C_word big_v, C_word big_q); static C_PTABLE_ENTRY *create_initial_ptable(); #if !defined(NO_DLOAD2) && (defined(HAVE_DLFCN_H) || defined(HAVE_DL_H) || (defined(HAVE_LOADLIBRARY) && defined(HAVE_GETPROCADDRESS))) static void C_ccall dload_2(C_word, C_word *) C_noret; #endif static void C_dbg(C_char *prefix, C_char *fstr, ...) { va_list va; va_start(va, fstr); #ifdef __ANDROID__ __android_log_vprint(ANDROID_LOG_DEBUG, prefix, fstr, va); #else C_fflush(C_stdout); C_fprintf(C_stderr, "[%s] ", prefix); C_vfprintf(C_stderr, fstr, va); C_fflush(C_stderr); #endif va_end(va); } /* Startup code: */ int CHICKEN_main(int argc, char *argv[], void *toplevel) { C_word h, s, n; if(C_gui_mode) { #ifdef _WIN32 parse_argv(GetCommandLine()); argc = C_main_argc; argv = C_main_argv; #else /* ??? */ #endif } pass_serious_signals = 0; CHICKEN_parse_command_line(argc, argv, &h, &s, &n); if(!CHICKEN_initialize(h, s, n, toplevel)) panic(C_text("cannot initialize - out of memory")); CHICKEN_run(NULL); return 0; } /* Custom argv parser for Windoze: */ void parse_argv(C_char *cmds) { C_char *ptr = cmds, *bptr0, *bptr, *aptr; int n = 0; C_main_argv = (C_char **)malloc(MAXIMAL_NUMBER_OF_COMMAND_LINE_ARGUMENTS * sizeof(C_char *)); if(C_main_argv == NULL) panic(C_text("cannot allocate argument-list buffer")); C_main_argc = 0; for(;;) { while(isspace((int)(*ptr))) ++ptr; if(*ptr == '\0') break; for(bptr0 = bptr = buffer; !isspace((int)(*ptr)) && *ptr != '\0'; *(bptr++) = *(ptr++)) ++n; *bptr = '\0'; aptr = (C_char*) malloc(sizeof(C_char) * (n + 1)); if (!aptr) panic(C_text("cannot allocate argument buffer")); C_strlcpy(aptr, bptr0, sizeof(C_char) * (n + 1)); C_main_argv[ C_main_argc++ ] = aptr; } } /* Initialize runtime system: */ int CHICKEN_initialize(int heap, int stack, int symbols, void *toplevel) { C_SCHEME_BLOCK *k0; int i; #ifdef HAVE_SIGACTION struct sigaction sa; #endif /*FIXME Should have C_tzset in chicken.h? */ #ifdef C_NONUNIX C_startup_time_seconds = (time_t)0; # if defined(__MINGW32__) /* Make sure _tzname, _timezone, and _daylight are set */ _tzset(); # endif #else struct timeval tv; C_gettimeofday(&tv, NULL); C_startup_time_seconds = tv.tv_sec; /* Make sure tzname, timezone, and daylight are set */ tzset(); #endif if(chicken_is_initialized) return 1; else chicken_is_initialized = 1; #if defined(__ANDROID__) && defined(DEBUGBUILD) debug_mode = 2; #endif if(debug_mode) C_dbg(C_text("debug"), C_text("application startup...\n")); C_panic_hook = usual_panic; symbol_table_list = NULL; symbol_table = C_new_symbol_table(".", symbols ? symbols : DEFAULT_SYMBOL_TABLE_SIZE); if(symbol_table == NULL) return 0; keyword_table = C_new_symbol_table("kw", symbols ? symbols / 4 : DEFAULT_KEYWORD_TABLE_SIZE); if(keyword_table == NULL) return 0; page_size = 0; stack_size = stack ? stack : DEFAULT_STACK_SIZE; C_set_or_change_heap_size(heap ? heap : DEFAULT_HEAP_SIZE, 0); /* Allocate temporary stack: */ temporary_stack_size = fixed_temporary_stack_size ? fixed_temporary_stack_size : DEFAULT_TEMPORARY_STACK_SIZE; if((C_temporary_stack_limit = (C_word *)C_malloc(temporary_stack_size * sizeof(C_word))) == NULL) return 0; C_temporary_stack_bottom = C_temporary_stack_limit + temporary_stack_size; C_temporary_stack = C_temporary_stack_bottom; /* Allocate mutation stack: */ mutation_stack_bottom = (C_word **)C_malloc(DEFAULT_MUTATION_STACK_SIZE * sizeof(C_word *)); if(mutation_stack_bottom == NULL) return 0; mutation_stack_top = mutation_stack_bottom; mutation_stack_limit = mutation_stack_bottom + DEFAULT_MUTATION_STACK_SIZE; C_gc_mutation_hook = NULL; C_gc_trace_hook = NULL; /* Initialize finalizer lists: */ finalizer_list = NULL; finalizer_free_list = NULL; pending_finalizer_indices = (FINALIZER_NODE **)C_malloc(C_max_pending_finalizers * sizeof(FINALIZER_NODE *)); if(pending_finalizer_indices == NULL) return 0; /* Initialize forwarding table: */ forwarding_table = (C_word *)C_malloc((DEFAULT_FORWARDING_TABLE_SIZE + 1) * 2 * sizeof(C_word)); if(forwarding_table == NULL) return 0; *forwarding_table = 0; forwarding_table_size = DEFAULT_FORWARDING_TABLE_SIZE; /* Initialize locative table: */ locative_table = (C_word *)C_malloc(DEFAULT_LOCATIVE_TABLE_SIZE * sizeof(C_word)); if(locative_table == NULL) return 0; locative_table_size = DEFAULT_LOCATIVE_TABLE_SIZE; locative_table_count = 0; /* Setup collectibles: */ collectibles = (C_word **)C_malloc(sizeof(C_word *) * DEFAULT_COLLECTIBLES_SIZE); if(collectibles == NULL) return 0; collectibles_top = collectibles; collectibles_limit = collectibles + DEFAULT_COLLECTIBLES_SIZE; gc_root_list = NULL; /* Initialize global variables: */ if(C_heap_growth <= 0) C_heap_growth = DEFAULT_HEAP_GROWTH; if(C_heap_shrinkage <= 0) C_heap_shrinkage = DEFAULT_HEAP_SHRINKAGE; if(C_maximal_heap_size <= 0) C_maximal_heap_size = DEFAULT_MAXIMAL_HEAP_SIZE; #if !defined(NO_DLOAD2) && defined(HAVE_DLFCN_H) dlopen_flags = RTLD_LAZY | RTLD_GLOBAL; #else dlopen_flags = 0; #endif #ifdef HAVE_SIGACTION sa.sa_flags = 0; sigfillset(&sa.sa_mask); /* See note in C_establish_signal_handler() */ sa.sa_handler = global_signal_handler; #endif /* setup signal handlers */ if(!pass_serious_signals) { #ifdef HAVE_SIGACTION C_sigaction(SIGBUS, &sa, NULL); C_sigaction(SIGFPE, &sa, NULL); C_sigaction(SIGILL, &sa, NULL); C_sigaction(SIGSEGV, &sa, NULL); #else C_signal(SIGBUS, global_signal_handler); C_signal(SIGILL, global_signal_handler); C_signal(SIGFPE, global_signal_handler); C_signal(SIGSEGV, global_signal_handler); #endif } tracked_mutation_count = mutation_count = gc_count_1 = gc_count_1_total = gc_count_2 = maximum_heap_usage = 0; lf_list = NULL; C_register_lf2(NULL, 0, create_initial_ptable()); C_restart_trampoline = (void *)toplevel; trace_buffer = NULL; C_clear_trace_buffer(); chicken_is_running = chicken_ran_once = 0; pending_interrupts_count = 0; handling_interrupts = 0; last_interrupt_latency = 0; C_interrupts_enabled = 1; C_initial_timer_interrupt_period = INITIAL_TIMER_INTERRUPT_PERIOD; C_timer_interrupt_counter = INITIAL_TIMER_INTERRUPT_PERIOD; memset(signal_mapping_table, 0, sizeof(int) * NSIG); C_dlerror = "cannot load compiled code dynamically - this is a statically linked executable"; error_location = C_SCHEME_FALSE; C_pre_gc_hook = NULL; C_post_gc_hook = NULL; C_scratchspace_start = NULL; C_scratchspace_top = NULL; C_scratchspace_limit = NULL; C_scratch_usage = 0; scratchspace_size = 0; live_finalizer_count = 0; allocated_finalizer_count = 0; current_module_name = NULL; current_module_handle = NULL; callback_continuation_level = 0; gc_ms = 0; srand(C_fix(time(NULL))); for(i = 0; i < C_RANDOM_STATE_SIZE / sizeof(C_uword); ++i) random_state[ i ] = rand(); initialize_symbol_table(); if (profiling) { #ifndef C_NONUNIX # ifdef HAVE_SIGACTION C_sigaction(C_PROFILE_SIGNAL, &sa, NULL); # else C_signal(C_PROFILE_SIGNAL, global_signal_handler); # endif #endif profile_table = (PROFILE_BUCKET **)C_malloc(PROFILE_TABLE_SIZE * sizeof(PROFILE_BUCKET *)); if(profile_table == NULL) panic(C_text("out of memory - can not allocate profile table")); C_memset(profile_table, 0, sizeof(PROFILE_BUCKET *) * PROFILE_TABLE_SIZE); } /* create k to invoke code for system-startup: */ k0 = (C_SCHEME_BLOCK *)C_align((C_word)C_fromspace_top); C_fromspace_top += C_align(2 * sizeof(C_word)); k0->header = C_CLOSURE_TYPE | 1; C_set_block_item(k0, 0, (C_word)termination_continuation); C_save(k0); C_save(C_SCHEME_UNDEFINED); C_restart_c = 2; return 1; } void *C_get_statistics(void) { static void *stats[ 8 ]; stats[ 0 ] = fromspace_start; stats[ 1 ] = C_fromspace_limit; stats[ 2 ] = C_scratchspace_start; stats[ 3 ] = C_scratchspace_limit; stats[ 4 ] = C_stack_limit; stats[ 5 ] = stack_bottom; stats[ 6 ] = C_fromspace_top; stats[ 7 ] = C_scratchspace_top; return stats; } static C_PTABLE_ENTRY *create_initial_ptable() { /* IMPORTANT: hardcoded table size - this must match the number of C_pte calls + 1 (NULL terminator)! */ C_PTABLE_ENTRY *pt = (C_PTABLE_ENTRY *)C_malloc(sizeof(C_PTABLE_ENTRY) * 63); int i = 0; if(pt == NULL) panic(C_text("out of memory - cannot create initial ptable")); C_pte(termination_continuation); C_pte(callback_return_continuation); C_pte(values_continuation); C_pte(call_cc_values_wrapper); C_pte(call_cc_wrapper); C_pte(C_gc); C_pte(C_allocate_vector); C_pte(C_make_structure); C_pte(C_ensure_heap_reserve); C_pte(C_return_to_host); C_pte(C_get_symbol_table_info); C_pte(C_get_memory_info); C_pte(C_decode_seconds); C_pte(C_stop_timer); C_pte(C_dload); C_pte(C_set_dlopen_flags); C_pte(C_become); C_pte(C_apply_values); C_pte(C_times); C_pte(C_minus); C_pte(C_plus); C_pte(C_nequalp); C_pte(C_greaterp); /* IMPORTANT: have you read the comments at the start and the end of this function? */ C_pte(C_lessp); C_pte(C_greater_or_equal_p); C_pte(C_less_or_equal_p); C_pte(C_number_to_string); C_pte(C_make_symbol); C_pte(C_string_to_symbol); C_pte(C_string_to_keyword); C_pte(C_apply); C_pte(C_call_cc); C_pte(C_values); C_pte(C_call_with_values); C_pte(C_continuation_graft); C_pte(C_open_file_port); C_pte(C_software_type); C_pte(C_machine_type); C_pte(C_machine_byte_order); C_pte(C_software_version); C_pte(C_build_platform); C_pte(C_make_pointer); /* IMPORTANT: have you read the comments at the start and the end of this function? */ C_pte(C_make_tagged_pointer); C_pte(C_peek_signed_integer); C_pte(C_peek_unsigned_integer); C_pte(C_peek_int64); C_pte(C_peek_uint64); C_pte(C_context_switch); C_pte(C_register_finalizer); C_pte(C_copy_closure); C_pte(C_dump_heap_state); C_pte(C_filter_heap_objects); C_pte(C_fixnum_to_string); C_pte(C_integer_to_string); C_pte(C_flonum_to_string); C_pte(C_signum); C_pte(C_quotient_and_remainder); C_pte(C_u_integer_quotient_and_remainder); C_pte(C_bitwise_and); C_pte(C_bitwise_ior); C_pte(C_bitwise_xor); /* IMPORTANT: did you remember the hardcoded pte table size? */ pt[ i ].id = NULL; return pt; } void *CHICKEN_new_gc_root_2(int finalizable) { C_GC_ROOT *r = (C_GC_ROOT *)C_malloc(sizeof(C_GC_ROOT)); if(r == NULL) panic(C_text("out of memory - cannot allocate GC root")); r->value = C_SCHEME_UNDEFINED; r->next = gc_root_list; r->prev = NULL; r->finalizable = finalizable; if(gc_root_list != NULL) gc_root_list->prev = r; gc_root_list = r; return (void *)r; } void *CHICKEN_new_gc_root() { return CHICKEN_new_gc_root_2(0); } void *CHICKEN_new_finalizable_gc_root() { return CHICKEN_new_gc_root_2(1); } void CHICKEN_delete_gc_root(void *root) { C_GC_ROOT *r = (C_GC_ROOT *)root; if(r->prev == NULL) gc_root_list = r->next; else r->prev->next = r->next; if(r->next != NULL) r->next->prev = r->prev; C_free(root); } void *CHICKEN_global_lookup(char *name) { int len = C_strlen(name), key = hash_string(len, name, symbol_table->size, symbol_table->rand, 0); C_word s; void *root = CHICKEN_new_gc_root(); if(C_truep(s = lookup(key, len, name, symbol_table))) { if(C_block_item(s, 0) != C_SCHEME_UNBOUND) { CHICKEN_gc_root_set(root, s); return root; } } return NULL; } int CHICKEN_is_running() { return chicken_is_running; } void CHICKEN_interrupt() { C_timer_interrupt_counter = 0; } C_regparm C_SYMBOL_TABLE *C_new_symbol_table(char *name, unsigned int size) { C_SYMBOL_TABLE *stp; int i; if((stp = C_find_symbol_table(name)) != NULL) return stp; if((stp = (C_SYMBOL_TABLE *)C_malloc(sizeof(C_SYMBOL_TABLE))) == NULL) return NULL; stp->name = name; stp->size = size; stp->next = symbol_table_list; stp->rand = rand(); if((stp->table = (C_word *)C_malloc(size * sizeof(C_word))) == NULL) return NULL; for(i = 0; i < stp->size; stp->table[ i++ ] = C_SCHEME_END_OF_LIST); symbol_table_list = stp; return stp; } C_regparm C_SYMBOL_TABLE *C_find_symbol_table(char *name) { C_SYMBOL_TABLE *stp; for(stp = symbol_table_list; stp != NULL; stp = stp->next) if(!C_strcmp(name, stp->name)) return stp; return NULL; } C_regparm C_word C_find_symbol(C_word str, C_SYMBOL_TABLE *stable) { C_char *sptr = C_c_string(str); int len = C_header_size(str); int key; C_word s; if(stable == NULL) stable = symbol_table; key = hash_string(len, sptr, stable->size, stable->rand, 0); if(C_truep(s = lookup(key, len, sptr, stable))) return s; else return C_SCHEME_FALSE; } /* Setup symbol-table with internally used symbols; */ void initialize_symbol_table(void) { int i; for(i = 0; i < symbol_table->size; symbol_table->table[ i++ ] = C_SCHEME_END_OF_LIST); /* Obtain reference to hooks for later: */ core_provided_symbol = C_intern2(C_heaptop, C_text("##core#provided")); interrupt_hook_symbol = C_intern2(C_heaptop, C_text("##sys#interrupt-hook")); error_hook_symbol = C_intern2(C_heaptop, C_text("##sys#error-hook")); callback_continuation_stack_symbol = C_intern3(C_heaptop, C_text("##sys#callback-continuation-stack"), C_SCHEME_END_OF_LIST); pending_finalizers_symbol = C_intern2(C_heaptop, C_text("##sys#pending-finalizers")); current_thread_symbol = C_intern3(C_heaptop, C_text("##sys#current-thread"), C_SCHEME_FALSE); /* SRFI-4 tags */ u8vector_symbol = C_intern2(C_heaptop, C_text("u8vector")); s8vector_symbol = C_intern2(C_heaptop, C_text("s8vector")); u16vector_symbol = C_intern2(C_heaptop, C_text("u16vector")); s16vector_symbol = C_intern2(C_heaptop, C_text("s16vector")); u32vector_symbol = C_intern2(C_heaptop, C_text("u32vector")); s32vector_symbol = C_intern2(C_heaptop, C_text("s32vector")); u64vector_symbol = C_intern2(C_heaptop, C_text("u64vector")); s64vector_symbol = C_intern2(C_heaptop, C_text("s64vector")); f32vector_symbol = C_intern2(C_heaptop, C_text("f32vector")); f64vector_symbol = C_intern2(C_heaptop, C_text("f64vector")); } C_regparm C_word C_find_keyword(C_word str, C_SYMBOL_TABLE *kwtable) { C_char *sptr = C_c_string(str); int len = C_header_size(str); int key; C_word s; if(kwtable == NULL) kwtable = keyword_table; key = hash_string(len, sptr, kwtable->size, kwtable->rand, 0); if(C_truep(s = lookup(key, len, sptr, kwtable))) return s; else return C_SCHEME_FALSE; } void C_ccall sigsegv_trampoline(C_word c, C_word *av) { barf(C_MEMORY_VIOLATION_ERROR, NULL); } void C_ccall sigbus_trampoline(C_word c, C_word *av) { barf(C_BUS_ERROR, NULL); } void C_ccall sigfpe_trampoline(C_word c, C_word *av) { barf(C_FLOATING_POINT_EXCEPTION_ERROR, NULL); } void C_ccall sigill_trampoline(C_word c, C_word *av) { barf(C_ILLEGAL_INSTRUCTION_ERROR, NULL); } /* This is called from POSIX signals: */ void global_signal_handler(int signum) { #if defined(HAVE_SIGPROCMASK) if(signum == SIGSEGV || signum == SIGFPE || signum == SIGILL || signum == SIGBUS) { sigset_t sset; if(serious_signal_occurred || !chicken_is_running) { switch(signum) { case SIGSEGV: panic(C_text("unrecoverable segmentation violation")); case SIGFPE: panic(C_text("unrecoverable floating-point exception")); case SIGILL: panic(C_text("unrecoverable illegal instruction error")); case SIGBUS: panic(C_text("unrecoverable bus error")); default: panic(C_text("unrecoverable serious condition")); } } else serious_signal_occurred = 1; /* unblock signal to avoid nested invocation of the handler */ sigemptyset(&sset); sigaddset(&sset, signum); C_sigprocmask(SIG_UNBLOCK, &sset, NULL); switch(signum) { case SIGSEGV: C_reclaim(sigsegv_trampoline, 0); case SIGFPE: C_reclaim(sigfpe_trampoline, 0); case SIGILL: C_reclaim(sigill_trampoline, 0); case SIGBUS: C_reclaim(sigbus_trampoline, 0); default: panic(C_text("invalid serious signal")); } } #endif /* TODO: Make full use of sigaction: check that /our/ timer expired */ if (signum == C_PROFILE_SIGNAL && profiling) take_profile_sample(); else C_raise_interrupt(signal_mapping_table[ signum ]); #ifndef HAVE_SIGACTION /* not necessarily needed, but older UNIXen may not leave the handler installed: */ C_signal(signum, global_signal_handler); #endif } /* Align memory to page boundary */ static void *align_to_page(void *mem) { return (void *)C_align((C_uword)mem); } static C_byte * heap_alloc (size_t size, C_byte **page_aligned) { C_byte *p; p = (C_byte *)C_malloc (size + page_size); if (p != NULL && page_aligned) *page_aligned = align_to_page (p); return p; } static void heap_free (C_byte *ptr, size_t size) { C_free (ptr); } static C_byte * heap_realloc (C_byte *ptr, size_t old_size, size_t new_size, C_byte **page_aligned) { C_byte *p; p = (C_byte *)C_realloc (ptr, new_size + page_size); if (p != NULL && page_aligned) *page_aligned = align_to_page (p); return p; } /* Modify heap size at runtime: */ void C_set_or_change_heap_size(C_word heap, int reintern) { C_byte *ptr1, *ptr2, *ptr1a, *ptr2a; C_word size = heap / 2; if(heap_size_changed && fromspace_start) return; if(fromspace_start && heap_size >= heap) return; if(debug_mode) C_dbg(C_text("debug"), C_text("heap resized to %d bytes\n"), (int)heap); heap_size = heap; if((ptr1 = heap_realloc (fromspace_start, C_fromspace_limit - fromspace_start, size, &ptr1a)) == NULL || (ptr2 = heap_realloc (tospace_start, tospace_limit - tospace_start, size, &ptr2a)) == NULL) panic(C_text("out of memory - cannot allocate heap")); heapspace1 = ptr1; heapspace1_size = size; heapspace2 = ptr2; heapspace2_size = size; fromspace_start = ptr1a; C_fromspace_top = fromspace_start; C_fromspace_limit = fromspace_start + size; tospace_start = ptr2a; tospace_top = tospace_start; tospace_limit = tospace_start + size; mutation_stack_top = mutation_stack_bottom; if(reintern) initialize_symbol_table(); } /* Modify stack-size at runtime: */ void C_do_resize_stack(C_word stack) { C_uword old = stack_size, diff = stack - old; if(diff != 0 && !stack_size_changed) { if(debug_mode) C_dbg(C_text("debug"), C_text("stack resized to %d bytes\n"), (int)stack); stack_size = stack; #if C_STACK_GROWS_DOWNWARD C_stack_hard_limit = (C_word *)((C_byte *)C_stack_hard_limit - diff); #else C_stack_hard_limit = (C_word *)((C_byte *)C_stack_hard_limit + diff); #endif C_stack_limit = C_stack_hard_limit; } } /* Check whether nursery is sufficiently big: */ void C_check_nursery_minimum(C_word words) { if(words >= C_bytestowords(stack_size)) panic(C_text("nursery is too small - try higher setting using the `-:s' option")); } C_word C_resize_pending_finalizers(C_word size) { int sz = C_num_to_int(size); FINALIZER_NODE **newmem = (FINALIZER_NODE **)C_realloc(pending_finalizer_indices, sz * sizeof(FINALIZER_NODE *)); if (newmem == NULL) return C_SCHEME_FALSE; pending_finalizer_indices = newmem; C_max_pending_finalizers = sz; return C_SCHEME_TRUE; } /* Parse runtime options from command-line: */ void CHICKEN_parse_command_line(int argc, char *argv[], C_word *heap, C_word *stack, C_word *symbols) { int i; char *ptr; C_word x; C_main_argc = argc; C_main_argv = argv; *heap = DEFAULT_HEAP_SIZE; *stack = DEFAULT_STACK_SIZE; *symbols = DEFAULT_SYMBOL_TABLE_SIZE; for(i = 1; i < C_main_argc; ++i) if(!strncmp(C_main_argv[ i ], C_text("-:"), 2)) { for(ptr = &C_main_argv[ i ][ 2 ]; *ptr != '\0';) { switch(*(ptr++)) { case '?': C_dbg("Runtime options", "\n\n" " -:? display this text\n" " -:c always treat stdin as console\n" " -:d enable debug output\n" " -:D enable more debug output\n" " -:g show GC information\n" " -:o disable stack overflow checks\n" " -:hiSIZE set initial heap size\n" " -:hmSIZE set maximal heap size\n" " -:hgPERCENTAGE set heap growth percentage\n" " -:hsPERCENTAGE set heap shrink percentage\n" " -:hSIZE set fixed heap size\n" " -:r write trace output to stderr\n" " -:p collect statistical profile and write to file at exit\n" " -:PFREQUENCY like -:p, specifying sampling frequency in us (default: 10000)\n" " -:sSIZE set nursery (stack) size\n" " -:tSIZE set symbol-table size\n" " -:fSIZE set maximal number of pending finalizers\n" " -:x deliver uncaught exceptions of other threads to primordial one\n" " -:b enter REPL on error\n" " -:B sound bell on major GC\n" " -:G force GUI mode\n" " -:aSIZE set trace-buffer/call-chain size\n" " -:ASIZE set fixed temporary stack size\n" " -:H dump heap state on exit\n" " -:S do not handle segfaults or other serious conditions\n" "\n SIZE may have a `k' (`K'), `m' (`M') or `g' (`G') suffix, meaning size\n" " times 1024, 1048576, and 1073741824, respectively.\n\n"); C_exit_runtime(C_fix(0)); case 'h': switch(*ptr) { case 'i': *heap = arg_val(ptr + 1); heap_size_changed = 1; goto next; case 'g': C_heap_growth = arg_val(ptr + 1); goto next; case 'm': C_maximal_heap_size = arg_val(ptr + 1); goto next; case 's': C_heap_shrinkage = arg_val(ptr + 1); goto next; default: *heap = arg_val(ptr); heap_size_changed = 1; C_heap_size_is_fixed = 1; goto next; } case 'o': C_disable_overflow_check = 1; break; case 'B': gc_bell = 1; break; case 'G': C_gui_mode = 1; break; case 'H': dump_heap_on_exit = 1; break; case 'S': pass_serious_signals = 1; break; case 's': *stack = arg_val(ptr); stack_size_changed = 1; goto next; case 'f': C_max_pending_finalizers = arg_val(ptr); goto next; case 'a': C_trace_buffer_size = arg_val(ptr); goto next; case 'A': fixed_temporary_stack_size = arg_val(ptr); goto next; case 't': *symbols = arg_val(ptr); goto next; case 'c': fake_tty_flag = 1; break; case 'd': debug_mode = 1; break; case 'D': debug_mode = 2; break; case 'g': gc_report_flag = 2; break; case 'P': profiling = 1; profile_frequency = arg_val(ptr); goto next; case 'p': profiling = 1; break; case 'r': show_trace = 1; break; case 'x': C_abort_on_thread_exceptions = 1; break; case 'b': C_enable_repl = 1; break; default: panic(C_text("illegal runtime option")); } } next:; } } C_word arg_val(C_char *arg) { int len; C_char *end; C_long val, mul = 1; if (arg == NULL) panic(C_text("illegal runtime-option argument")); len = C_strlen(arg); if(len < 1) panic(C_text("illegal runtime-option argument")); switch(arg[ len - 1 ]) { case 'k': case 'K': mul = 1024; break; case 'm': case 'M': mul = 1024 * 1024; break; case 'g': case 'G': mul = 1024 * 1024 * 1024; break; default: mul = 1; } val = C_strtow(arg, &end, 10); if((mul != 1 ? end[ 1 ] != '\0' : end[ 0 ] != '\0')) panic(C_text("invalid runtime-option argument suffix")); return val * mul; } /* Run embedded code with arguments: */ C_word CHICKEN_run(void *toplevel) { if(!chicken_is_initialized && !CHICKEN_initialize(0, 0, 0, toplevel)) panic(C_text("could not initialize")); if(chicken_is_running) panic(C_text("re-invocation of Scheme world while process is already running")); chicken_is_running = chicken_ran_once = 1; return_to_host = 0; if(profiling) set_profile_timer(profile_frequency); #if C_STACK_GROWS_DOWNWARD C_stack_hard_limit = (C_word *)((C_byte *)C_stack_pointer - stack_size); #else C_stack_hard_limit = (C_word *)((C_byte *)C_stack_pointer + stack_size); #endif C_stack_limit = C_stack_hard_limit; stack_bottom = C_stack_pointer; if(debug_mode) C_dbg(C_text("debug"), C_text("stack bottom is 0x%lx.\n"), (C_word)stack_bottom); /* The point of (usually) no return... */ #ifdef HAVE_SIGSETJMP C_sigsetjmp(C_restart, 0); #else C_setjmp(C_restart); #endif serious_signal_occurred = 0; if(!return_to_host) { /* We must copy the argvector onto the stack, because * any subsequent save() will otherwise clobber it. */ C_word *p = C_alloc(C_restart_c); assert(C_restart_c == (C_temporary_stack_bottom - C_temporary_stack)); C_memcpy(p, C_temporary_stack, C_restart_c * sizeof(C_word)); C_temporary_stack = C_temporary_stack_bottom; ((C_proc)C_restart_trampoline)(C_restart_c, p); } if(profiling) set_profile_timer(0); chicken_is_running = 0; return C_restore; } C_word CHICKEN_continue(C_word k) { if(C_temporary_stack_bottom != C_temporary_stack) panic(C_text("invalid temporary stack level")); if(!chicken_is_initialized) panic(C_text("runtime system has not been initialized - `CHICKEN_run' has probably not been called")); C_save(k); return CHICKEN_run(NULL); } /* The final continuation: */ void C_ccall termination_continuation(C_word c, C_word *av) { if(debug_mode) { C_dbg(C_text("debug"), C_text("application terminated normally\n")); } C_exit_runtime(C_fix(0)); } /* Signal unrecoverable runtime error: */ void panic(C_char *msg) { if(C_panic_hook != NULL) C_panic_hook(msg); usual_panic(msg); } void usual_panic(C_char *msg) { C_char *dmp = C_dump_trace(0); C_dbg_hook(C_SCHEME_UNDEFINED); if(C_gui_mode) { C_snprintf(buffer, sizeof(buffer), C_text("%s\n\n%s"), msg, dmp); #if defined(_WIN32) && !defined(__CYGWIN__) MessageBox(NULL, buffer, C_text("CHICKEN runtime"), MB_OK | MB_ICONERROR); ExitProcess(1); #endif } /* fall through if not WIN32 GUI app */ C_dbg("panic", C_text("%s - execution terminated\n\n%s"), msg, dmp); C_exit_runtime(C_fix(1)); } void horror(C_char *msg) { C_dbg_hook(C_SCHEME_UNDEFINED); if(C_gui_mode) { C_snprintf(buffer, sizeof(buffer), C_text("%s"), msg); #if defined(_WIN32) && !defined(__CYGWIN__) MessageBox(NULL, buffer, C_text("CHICKEN runtime"), MB_OK | MB_ICONERROR); ExitProcess(1); #endif } /* fall through */ C_dbg("horror", C_text("\n%s - execution terminated"), msg); C_exit_runtime(C_fix(1)); } /* Error-hook, called from C-level runtime routines: */ void barf(int code, char *loc, ...) { C_char *msg; C_word err = error_hook_symbol; int c, i; va_list v; C_word *av; C_dbg_hook(C_SCHEME_UNDEFINED); C_temporary_stack = C_temporary_stack_bottom; err = C_block_item(err, 0); switch(code) { case C_BAD_ARGUMENT_COUNT_ERROR: msg = C_text("bad argument count"); c = 3; break; case C_BAD_MINIMUM_ARGUMENT_COUNT_ERROR: msg = C_text("too few arguments"); c = 3; break; case C_BAD_ARGUMENT_TYPE_ERROR: msg = C_text("bad argument type"); c = 1; break; case C_UNBOUND_VARIABLE_ERROR: msg = C_text("unbound variable"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_KEYWORD_ERROR: msg = C_text("bad argument type - not a keyword"); c = 1; break; case C_OUT_OF_MEMORY_ERROR: msg = C_text("not enough memory"); c = 0; break; case C_DIVISION_BY_ZERO_ERROR: msg = C_text("division by zero"); c = 0; break; case C_OUT_OF_RANGE_ERROR: msg = C_text("out of range"); c = 2; break; case C_NOT_A_CLOSURE_ERROR: msg = C_text("call of non-procedure"); c = 1; break; case C_CONTINUATION_CANT_RECEIVE_VALUES_ERROR: msg = C_text("continuation cannot receive multiple values"); c = 1; break; case C_BAD_ARGUMENT_TYPE_CYCLIC_LIST_ERROR: msg = C_text("bad argument type - not a non-cyclic list"); c = 1; break; case C_TOO_DEEP_RECURSION_ERROR: msg = C_text("recursion too deep"); c = 0; break; case C_CANT_REPRESENT_INEXACT_ERROR: msg = C_text("inexact number cannot be represented as an exact number"); c = 1; break; case C_NOT_A_PROPER_LIST_ERROR: msg = C_text("bad argument type - not a proper list"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR: msg = C_text("bad argument type - not a fixnum"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_STRING_ERROR: msg = C_text("bad argument type - not a string"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_PAIR_ERROR: msg = C_text("bad argument type - not a pair"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_BOOLEAN_ERROR: msg = C_text("bad argument type - not a boolean"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_LOCATIVE_ERROR: msg = C_text("bad argument type - not a locative"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_LIST_ERROR: msg = C_text("bad argument type - not a list"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR: msg = C_text("bad argument type - not a number"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_SYMBOL_ERROR: msg = C_text("bad argument type - not a symbol"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_VECTOR_ERROR: msg = C_text("bad argument type - not a vector"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_CHAR_ERROR: msg = C_text("bad argument type - not a character"); c = 1; break; case C_STACK_OVERFLOW_ERROR: msg = C_text("stack overflow"); c = 0; break; case C_BAD_ARGUMENT_TYPE_BAD_STRUCT_ERROR: msg = C_text("bad argument type - not a structure of the required type"); c = 2; break; case C_BAD_ARGUMENT_TYPE_NO_BYTEVECTOR_ERROR: msg = C_text("bad argument type - not a blob"); c = 1; break; case C_LOST_LOCATIVE_ERROR: msg = C_text("locative refers to reclaimed object"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_BLOCK_ERROR: msg = C_text("bad argument type - not a non-immediate value"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_NUMBER_VECTOR_ERROR: msg = C_text("bad argument type - not a number vector"); c = 2; break; case C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR: msg = C_text("bad argument type - not an integer"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR: msg = C_text("bad argument type - not an unsigned integer"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR: msg = C_text("bad argument type - not a pointer"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_TAGGED_POINTER_ERROR: msg = C_text("bad argument type - not a tagged pointer"); c = 2; break; case C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR: msg = C_text("bad argument type - not a flonum"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_CLOSURE_ERROR: msg = C_text("bad argument type - not a procedure"); c = 1; break; case C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR: msg = C_text("bad argument type - invalid base"); c = 1; break; case C_CIRCULAR_DATA_ERROR: msg = C_text("recursion too deep or circular data encountered"); c = 0; break; case C_BAD_ARGUMENT_TYPE_NO_PORT_ERROR: msg = C_text("bad argument type - not a port"); c = 1; break; case C_BAD_ARGUMENT_TYPE_PORT_DIRECTION_ERROR: msg = C_text("bad argument type - not a port of the correct type"); c = 1; break; case C_BAD_ARGUMENT_TYPE_PORT_NO_INPUT_ERROR: msg = C_text("bad argument type - not an input-port"); c = 1; break; case C_BAD_ARGUMENT_TYPE_PORT_NO_OUTPUT_ERROR: msg = C_text("bad argument type - not an output-port"); c = 1; break; case C_PORT_CLOSED_ERROR: msg = C_text("port already closed"); c = 1; break; case C_ASCIIZ_REPRESENTATION_ERROR: msg = C_text("cannot represent string with NUL bytes as C string"); c = 1; break; case C_MEMORY_VIOLATION_ERROR: msg = C_text("segmentation violation"); c = 0; break; case C_FLOATING_POINT_EXCEPTION_ERROR: msg = C_text("floating point exception"); c = 0; break; case C_ILLEGAL_INSTRUCTION_ERROR: msg = C_text("illegal instruction"); c = 0; break; case C_BUS_ERROR: msg = C_text("bus error"); c = 0; break; case C_BAD_ARGUMENT_TYPE_NO_EXACT_ERROR: msg = C_text("bad argument type - not an exact number"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_INEXACT_ERROR: msg = C_text("bad argument type - not an inexact number"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR: msg = C_text("bad argument type - not an real"); c = 1; break; case C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR: msg = C_text("bad argument type - complex number has no ordering"); c = 1; break; case C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR: msg = C_text("bad argument type - not an exact integer"); c = 1; break; case C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION: msg = C_text("number does not fit in foreign type"); c = 1; break; case C_BAD_ARGUMENT_TYPE_COMPLEX_ABS: msg = C_text("cannot compute absolute value of complex number"); c = 1; break; default: panic(C_text("illegal internal error code")); } if(C_immediatep(err)) { C_dbg(C_text("error"), C_text("%s\n"), msg); panic(C_text("`##sys#error-hook' is not defined - the `library' unit was probably not linked with this executable")); } else { av = C_alloc(c + 4); va_start(v, loc); av[ 0 ] = err; /* No continuation is passed: '##sys#error-hook' may not return: */ av[ 1 ] = C_SCHEME_UNDEFINED; av[ 2 ] = C_fix(code); if(loc != NULL) av[ 3 ] = intern0(loc); else { av[ 3 ] = error_location; error_location = C_SCHEME_FALSE; } for(i = 0; i < c; ++i) av[ i + 4 ] = va_arg(v, C_word); va_end(v); C_do_apply(c + 4, av); } } /* Never use extended number hook procedure names longer than this! */ /* Current longest name: ##sys#integer->string/recursive */ #define MAX_EXTNUM_HOOK_NAME 32 /* This exists so that we don't have to create any extra closures */ static void try_extended_number(char *ext_proc_name, C_word c, C_word k, ...) { static C_word ab[C_SIZEOF_STRING(MAX_EXTNUM_HOOK_NAME)]; int i; va_list v; C_word ext_proc_sym, ext_proc = C_SCHEME_FALSE, *a = ab; ext_proc_sym = C_lookup_symbol(C_intern2(&a, ext_proc_name)); if(!C_immediatep(ext_proc_sym)) ext_proc = C_block_item(ext_proc_sym, 0); if (!C_immediatep(ext_proc) && C_closurep(ext_proc)) { C_word *av = C_alloc(c + 1); av[ 0 ] = ext_proc; av[ 1 ] = k; va_start(v, k); for(i = 0; i < c - 1; ++i) av[ i + 2 ] = va_arg(v, C_word); va_end(v); C_do_apply(c + 1, av); } else { barf(C_UNBOUND_VARIABLE_ERROR, NULL, ext_proc_sym); } } /* Hook for setting breakpoints */ C_word C_dbg_hook(C_word dummy) { return dummy; } /* Timing routines: */ C_regparm C_u64 C_fcall C_milliseconds(void) { #ifdef C_NONUNIX if(CLOCKS_PER_SEC == 1000) return clock(); else return (C_u64)clock() / (C_u64)CLOCKS_PER_SEC * 1000; #else struct timeval tv; if(C_gettimeofday(&tv, NULL) == -1) return 0; else return (tv.tv_sec - C_startup_time_seconds) * 1000 + tv.tv_usec / 1000; #endif } C_regparm time_t C_fcall C_seconds(C_long *ms) { #ifdef C_NONUNIX if(ms != NULL) *ms = 0; return (time_t)(clock() / CLOCKS_PER_SEC); #else struct timeval tv; if(C_gettimeofday(&tv, NULL) == -1) { if(ms != NULL) *ms = 0; return (time_t)0; } else { if(ms != NULL) *ms = tv.tv_usec / 1000; return tv.tv_sec; } #endif } C_regparm C_u64 C_fcall C_cpu_milliseconds(void) { #if defined(C_NONUNIX) || defined(__CYGWIN__) if(CLOCKS_PER_SEC == 1000) return clock(); else return ((C_u64)clock() / CLOCKS_PER_SEC) * 1000; #else struct rusage ru; if(C_getrusage(RUSAGE_SELF, &ru) == -1) return 0; else return (((C_u64)ru.ru_utime.tv_sec + ru.ru_stime.tv_sec) * 1000 + ((C_u64)ru.ru_utime.tv_usec + ru.ru_stime.tv_usec) / 1000); #endif } /* Support code for callbacks: */ int C_fcall C_save_callback_continuation(C_word **ptr, C_word k) { C_word p = C_a_pair(ptr, k, C_block_item(callback_continuation_stack_symbol, 0)); C_mutate_slot(&C_block_item(callback_continuation_stack_symbol, 0), p); return ++callback_continuation_level; } C_word C_fcall C_restore_callback_continuation(void) { /* obsolete, but retained for keeping old code working */ C_word p = C_block_item(callback_continuation_stack_symbol, 0), k; assert(!C_immediatep(p) && C_block_header(p) == C_PAIR_TAG); k = C_u_i_car(p); C_mutate(&C_block_item(callback_continuation_stack_symbol, 0), C_u_i_cdr(p)); --callback_continuation_level; return k; } C_word C_fcall C_restore_callback_continuation2(int level) { C_word p = C_block_item(callback_continuation_stack_symbol, 0), k; if(level != callback_continuation_level || C_immediatep(p) || C_block_header(p) != C_PAIR_TAG) panic(C_text("unbalanced callback continuation stack")); k = C_u_i_car(p); C_mutate(&C_block_item(callback_continuation_stack_symbol, 0), C_u_i_cdr(p)); --callback_continuation_level; return k; } C_word C_fcall C_callback(C_word closure, int argc) { #ifdef HAVE_SIGSETJMP sigjmp_buf prev; #else jmp_buf prev; #endif C_word *a = C_alloc(C_SIZEOF_CLOSURE(2)), k = C_closure(&a, 2, (C_word)callback_return_continuation, C_SCHEME_FALSE), *av; int old = chicken_is_running; if(old && C_block_item(callback_continuation_stack_symbol, 0) == C_SCHEME_END_OF_LIST) panic(C_text("callback invoked in non-safe context")); C_memcpy(&prev, &C_restart, sizeof(C_restart)); callback_returned_flag = 0; chicken_is_running = 1; av = C_alloc(argc + 2); av[ 0 ] = closure; av[ 1 ] = k; /*XXX is the order of arguments an issue? */ C_memcpy(av + 2, C_temporary_stack, argc * sizeof(C_word)); C_temporary_stack = C_temporary_stack_bottom; #ifdef HAVE_SIGSETJMP if(!C_sigsetjmp(C_restart, 0)) C_do_apply(argc + 2, av); #else if(!C_setjmp(C_restart)) C_do_apply(argc + 2, av); #endif serious_signal_occurred = 0; if(!callback_returned_flag) { /* We must copy the argvector onto the stack, because * any subsequent save() will otherwise clobber it. */ C_word *p = C_alloc(C_restart_c); assert(C_restart_c == (C_temporary_stack_bottom - C_temporary_stack)); C_memcpy(p, C_temporary_stack, C_restart_c * sizeof(C_word)); C_temporary_stack = C_temporary_stack_bottom; ((C_proc)C_restart_trampoline)(C_restart_c, p); } else { C_memcpy(&C_restart, &prev, sizeof(C_restart)); callback_returned_flag = 0; } chicken_is_running = old; return C_restore; } void C_fcall C_callback_adjust_stack(C_word *a, int size) { if(!chicken_is_running && !C_in_stackp((C_word)a)) { if(debug_mode) C_dbg(C_text("debug"), C_text("callback invoked in lower stack region - adjusting limits:\n" "[debug] current: \t%p\n" "[debug] previous: \t%p (bottom) - %p (limit)\n"), a, stack_bottom, C_stack_limit); #if C_STACK_GROWS_DOWNWARD C_stack_hard_limit = (C_word *)((C_byte *)a - stack_size); stack_bottom = a + size; #else C_stack_hard_limit = (C_word *)((C_byte *)a + stack_size); stack_bottom = a; #endif C_stack_limit = C_stack_hard_limit; if(debug_mode) C_dbg(C_text("debug"), C_text("new: \t%p (bottom) - %p (limit)\n"), stack_bottom, C_stack_limit); } } C_word C_fcall C_callback_wrapper(void *proc, int argc) { C_word *a = C_alloc(C_SIZEOF_CLOSURE(1)), closure = C_closure(&a, 1, (C_word)proc), result; result = C_callback(closure, argc); assert(C_temporary_stack == C_temporary_stack_bottom); return result; } void C_ccall callback_return_continuation(C_word c, C_word *av) { C_word self = av[0]; C_word r = av[1]; if(C_block_item(self, 1) == C_SCHEME_TRUE) panic(C_text("callback returned twice")); assert(callback_returned_flag == 0); callback_returned_flag = 1; C_set_block_item(self, 1, C_SCHEME_TRUE); C_save(r); C_reclaim(NULL, 0); } /* Register/unregister literal frame: */ void C_initialize_lf(C_word *lf, int count) { while(count-- > 0) *(lf++) = C_SCHEME_UNBOUND; } void *C_register_lf(C_word *lf, int count) { return C_register_lf2(lf, count, NULL); } void *C_register_lf2(C_word *lf, int count, C_PTABLE_ENTRY *ptable) { LF_LIST *node = (LF_LIST *)C_malloc(sizeof(LF_LIST)); LF_LIST *np; int status = 0; node->lf = lf; node->count = count; node->ptable = ptable; node->module_name = current_module_name; node->module_handle = current_module_handle; current_module_handle = NULL; if(lf_list) lf_list->prev = node; node->next = lf_list; node->prev = NULL; lf_list = node; return (void *)node; } LF_LIST *find_module_handle(char *name) { LF_LIST *np; for(np = lf_list; np != NULL; np = np->next) { if(np->module_name != NULL && !C_strcmp(np->module_name, name)) return np; } return NULL; } void C_unregister_lf(void *handle) { LF_LIST *node = (LF_LIST *) handle; if (node->next) node->next->prev = node->prev; if (node->prev) node->prev->next = node->next; if (lf_list == node) lf_list = node->next; C_free(node->module_name); C_free(node); } /* Intern symbol into symbol-table: */ C_regparm C_word C_fcall C_intern(C_word **ptr, int len, C_char *str) { return C_intern_in(ptr, len, str, symbol_table); } C_regparm C_word C_fcall C_h_intern(C_word *slot, int len, C_char *str) { return C_h_intern_in(slot, len, str, symbol_table); } C_regparm C_word C_fcall C_intern_kw(C_word **ptr, int len, C_char *str) { C_word kw = C_intern_in(ptr, len, str, keyword_table); C_set_block_item(kw, 0, kw); /* Keywords evaluate to themselves */ C_set_block_item(kw, 2, C_SCHEME_FALSE); /* Keywords have no plists */ return kw; } C_regparm C_word C_fcall C_h_intern_kw(C_word *slot, int len, C_char *str) { C_word kw = C_h_intern_in(slot, len, str, keyword_table); C_set_block_item(kw, 0, kw); /* Keywords evaluate to themselves */ C_set_block_item(kw, 2, C_SCHEME_FALSE); /* Keywords have no plists */ return kw; } C_regparm C_word C_fcall C_intern_in(C_word **ptr, int len, C_char *str, C_SYMBOL_TABLE *stable) { int key; C_word s; if(stable == NULL) stable = symbol_table; key = hash_string(len, str, stable->size, stable->rand, 0); if(C_truep(s = lookup(key, len, str, stable))) return s; s = C_string(ptr, len, str); return add_symbol(ptr, key, s, stable); } C_regparm C_word C_fcall C_h_intern_in(C_word *slot, int len, C_char *str, C_SYMBOL_TABLE *stable) { /* Intern as usual, but remember slot, and allocate in static * memory. If symbol already exists, replace its string by a fresh * statically allocated string to ensure it never gets collected, as * lf[] entries are not tracked by the GC. */ int key; C_word s; if(stable == NULL) stable = symbol_table; key = hash_string(len, str, stable->size, stable->rand, 0); if(C_truep(s = lookup(key, len, str, stable))) { if(C_in_stackp(s)) C_mutate_slot(slot, s); if(!C_truep(C_permanentp(C_symbol_name(s)))) { /* Replace by statically allocated string, and persist it */ C_set_block_item(s, 1, C_static_string(C_heaptop, len, str)); C_i_persist_symbol(s); } return s; } s = C_static_string(C_heaptop, len, str); return add_symbol(C_heaptop, key, s, stable); } C_regparm C_word C_fcall intern0(C_char *str) { int len = C_strlen(str); int key = hash_string(len, str, symbol_table->size, symbol_table->rand, 0); C_word s; if(C_truep(s = lookup(key, len, str, symbol_table))) return s; else return C_SCHEME_FALSE; } C_regparm C_word C_fcall C_lookup_symbol(C_word sym) { int key; C_word str = C_block_item(sym, 1); int len = C_header_size(str); key = hash_string(len, C_c_string(str), symbol_table->size, symbol_table->rand, 0); return lookup(key, len, C_c_string(str), symbol_table); } C_regparm C_word C_fcall C_intern2(C_word **ptr, C_char *str) { return C_intern_in(ptr, C_strlen(str), str, symbol_table); } C_regparm C_word C_fcall C_intern3(C_word **ptr, C_char *str, C_word value) { C_word s = C_intern_in(ptr, C_strlen(str), str, symbol_table); C_mutate(&C_block_item(s,0), value); C_i_persist_symbol(s); /* Symbol has a value now; persist it */ return s; } C_regparm C_word C_fcall hash_string(int len, C_char *str, C_word m, C_word r, int ci) { C_uword key = r; if (ci) while(len--) key ^= (key << 6) + (key >> 2) + C_tolower((int)(*str++)); else while(len--) key ^= (key << 6) + (key >> 2) + *(str++); return (C_word)(key % (C_uword)m); } C_regparm C_word C_fcall lookup(C_word key, int len, C_char *str, C_SYMBOL_TABLE *stable) { C_word bucket, sym, s; for(bucket = stable->table[ key ]; bucket != C_SCHEME_END_OF_LIST; bucket = C_block_item(bucket,1)) { sym = C_block_item(bucket,0); s = C_block_item(sym, 1); if(C_header_size(s) == (C_word)len && !C_memcmp(str, (C_char *)C_data_pointer(s), len)) return sym; } return C_SCHEME_FALSE; } /* Mark a symbol as "persistent", to prevent it from being GC'ed */ C_regparm C_word C_fcall C_i_persist_symbol(C_word sym) { C_word bucket; C_SYMBOL_TABLE *stp; /* Normally, this will get called with a symbol, but in * C_h_intern_kw we may call it with keywords too. */ if(!C_truep(C_i_symbolp(sym)) && !C_truep(C_i_keywordp(sym))) { error_location = C_SCHEME_FALSE; barf(C_BAD_ARGUMENT_TYPE_NO_SYMBOL_ERROR, NULL, sym); } for(stp = symbol_table_list; stp != NULL; stp = stp->next) { bucket = lookup_bucket(sym, stp); if (C_truep(bucket)) { /* Change weak to strong ref to ensure long-term survival */ C_block_header(bucket) = C_block_header(bucket) & ~C_SPECIALBLOCK_BIT; /* Ensure survival on next minor GC */ if (C_in_stackp(sym)) C_mutate_slot(&C_block_item(bucket, 0), sym); } } return C_SCHEME_UNDEFINED; } /* Possibly remove "persistence" of symbol, to allowed it to be GC'ed. * This is only done if the symbol is unbound, has an empty plist and * is allocated in managed memory. */ C_regparm C_word C_fcall C_i_unpersist_symbol(C_word sym) { C_word bucket; C_SYMBOL_TABLE *stp; C_i_check_symbol(sym); if (C_persistable_symbol(sym) || C_truep(C_permanentp(C_symbol_name(sym)))) { return C_SCHEME_FALSE; } for(stp = symbol_table_list; stp != NULL; stp = stp->next) { bucket = lookup_bucket(sym, NULL); if (C_truep(bucket)) { /* Turn it into a weak ref */ C_block_header(bucket) = C_block_header(bucket) | C_SPECIALBLOCK_BIT; return C_SCHEME_TRUE; } } return C_SCHEME_FALSE; } C_regparm C_word C_fcall lookup_bucket(C_word sym, C_SYMBOL_TABLE *stable) { C_word bucket, str = C_block_item(sym, 1); int key, len = C_header_size(str); if (stable == NULL) stable = symbol_table; key = hash_string(len, C_c_string(str), stable->size, stable->rand, 0); for(bucket = stable->table[ key ]; bucket != C_SCHEME_END_OF_LIST; bucket = C_block_item(bucket,1)) { if (C_block_item(bucket,0) == sym) return bucket; } return C_SCHEME_FALSE; } double compute_symbol_table_load(double *avg_bucket_len, int *total_n) { C_word bucket; int i, j, alen = 0, bcount = 0, total = 0; for(i = 0; i < symbol_table->size; ++i) { bucket = symbol_table->table[ i ]; for(j = 0; bucket != C_SCHEME_END_OF_LIST; ++j) bucket = C_block_item(bucket,1); if(j > 0) { alen += j; ++bcount; } total += j; } if(avg_bucket_len != NULL) *avg_bucket_len = (double)alen / (double)bcount; *total_n = total; /* return load: */ return (double)total / (double)symbol_table->size; } C_word add_symbol(C_word **ptr, C_word key, C_word string, C_SYMBOL_TABLE *stable) { C_word bucket, sym, b2, *p; p = *ptr; sym = (C_word)p; p += C_SIZEOF_SYMBOL; C_block_header_init(sym, C_SYMBOL_TYPE | (C_SIZEOF_SYMBOL - 1)); C_set_block_item(sym, 0, C_SCHEME_UNBOUND); C_set_block_item(sym, 1, string); C_set_block_item(sym, 2, C_SCHEME_END_OF_LIST); *ptr = p; b2 = stable->table[ key ]; /* previous bucket */ /* Create new weak or strong bucket depending on persistability */ if (C_truep(C_permanentp(string))) { bucket = C_a_pair(ptr, sym, b2); } else { bucket = C_a_weak_pair(ptr, sym, b2); } if(ptr != C_heaptop) C_mutate_slot(&stable->table[ key ], bucket); else { /* If a stack-allocated bucket was here, and we allocate from heap-top (say, in a toplevel literal frame allocation) then we have to inform the memory manager that a 2nd gen. block points to a 1st gen. block, hence the mutation: */ C_mutate(&C_block_item(bucket,1), b2); stable->table[ key ] = bucket; } return sym; } C_regparm int C_in_stackp(C_word x) { C_word *ptr = (C_word *)(C_uword)x; #if C_STACK_GROWS_DOWNWARD return ptr >= C_stack_pointer_test && ptr <= stack_bottom; #else return ptr < C_stack_pointer_test && ptr >= stack_bottom; #endif } C_regparm int C_fcall C_in_heapp(C_word x) { C_byte *ptr = (C_byte *)(C_uword)x; return (ptr >= fromspace_start && ptr < C_fromspace_limit) || (ptr >= tospace_start && ptr < tospace_limit); } /* Only used during major GC (heap realloc) */ static C_regparm int C_fcall C_in_new_heapp(C_word x) { C_byte *ptr = (C_byte *)(C_uword)x; return (ptr >= new_tospace_start && ptr < new_tospace_limit); } C_regparm int C_fcall C_in_fromspacep(C_word x) { C_byte *ptr = (C_byte *)(C_uword)x; return (ptr >= fromspace_start && ptr < C_fromspace_limit); } C_regparm int C_fcall C_in_scratchspacep(C_word x) { C_word *ptr = (C_word *)(C_uword)x; return (ptr >= C_scratchspace_start && ptr < C_scratchspace_limit); } /* Cons the rest-aguments together: */ C_regparm C_word C_fcall C_build_rest(C_word **ptr, C_word c, C_word n, C_word *av) { C_word x = C_SCHEME_END_OF_LIST, *p = *ptr; C_SCHEME_BLOCK *node; av += c; while(--c >= n) { node = (C_SCHEME_BLOCK *)p; p += 3; node->header = C_PAIR_TYPE | (C_SIZEOF_PAIR - 1); node->data[ 0 ] = *(--av); node->data[ 1 ] = x; x = (C_word)node; } *ptr = p; return x; } /* Print error messages and exit: */ void C_bad_memory(void) { panic(C_text("there is not enough stack-space to run this executable")); } void C_bad_memory_2(void) { panic(C_text("there is not enough heap-space to run this executable - try using the '-:h...' option")); } /* The following two can be thrown out in the next release... */ void C_bad_argc(int c, int n) { C_bad_argc_2(c, n, C_SCHEME_FALSE); } void C_bad_min_argc(int c, int n) { C_bad_min_argc_2(c, n, C_SCHEME_FALSE); } void C_bad_argc_2(int c, int n, C_word closure) { barf(C_BAD_ARGUMENT_COUNT_ERROR, NULL, C_fix(n - 2), C_fix(c - 2), closure); } void C_bad_min_argc_2(int c, int n, C_word closure) { barf(C_BAD_MINIMUM_ARGUMENT_COUNT_ERROR, NULL, C_fix(n - 2), C_fix(c - 2), closure); } void C_stack_overflow(C_char *loc) { barf(C_STACK_OVERFLOW_ERROR, loc); } void C_unbound_error(C_word sym) { barf(C_UNBOUND_VARIABLE_ERROR, NULL, sym); } void C_no_closure_error(C_word x) { barf(C_NOT_A_CLOSURE_ERROR, NULL, x); } void C_div_by_zero_error(char *loc) { barf(C_DIVISION_BY_ZERO_ERROR, loc); } void C_not_an_integer_error(char *loc, C_word x) { barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, loc, x); } void C_not_an_uinteger_error(char *loc, C_word x) { barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, loc, x); } /* Allocate and initialize record: */ C_regparm C_word C_fcall C_string(C_word **ptr, int len, C_char *str) { C_word strblock = (C_word)(*ptr); *ptr = (C_word *)((C_word)(*ptr) + sizeof(C_header) + C_align(len)); C_block_header_init(strblock, C_STRING_TYPE | len); C_memcpy(C_data_pointer(strblock), str, len); return strblock; } C_regparm C_word C_fcall C_static_string(C_word **ptr, int len, C_char *str) { C_word *dptr = (C_word *)C_malloc(sizeof(C_header) + C_align(len)); C_word strblock; if(dptr == NULL) panic(C_text("out of memory - cannot allocate static string")); strblock = (C_word)dptr; C_block_header_init(strblock, C_STRING_TYPE | len); C_memcpy(C_data_pointer(strblock), str, len); return strblock; } C_regparm C_word C_fcall C_static_bignum(C_word **ptr, int len, C_char *str) { C_word *dptr, bignum, bigvec, retval, size, negp = 0; if (*str == '+' || *str == '-') { negp = ((*str++) == '-') ? 1 : 0; --len; } size = C_BIGNUM_BITS_TO_DIGITS((unsigned int)len << 2); dptr = (C_word *)C_malloc(C_wordstobytes(C_SIZEOF_INTERNAL_BIGNUM_VECTOR(size))); if(dptr == NULL) panic(C_text("out of memory - cannot allocate static bignum")); bigvec = (C_word)dptr; C_block_header_init(bigvec, C_STRING_TYPE | C_wordstobytes(size + 1)); C_set_block_item(bigvec, 0, negp); /* This needs to be allocated at ptr, not dptr, because GC moves type tag */ bignum = C_a_i_bignum_wrapper(ptr, bigvec); retval = str_to_bignum(bignum, str, str + len, 16); if (retval & C_FIXNUM_BIT) C_free(dptr); /* Might have been simplified */ return retval; } C_regparm C_word C_fcall C_static_lambda_info(C_word **ptr, int len, C_char *str) { int dlen = sizeof(C_header) + C_align(len); void *dptr = C_malloc(dlen); C_word strblock; if(dptr == NULL) panic(C_text("out of memory - cannot allocate static lambda info")); strblock = (C_word)dptr; C_block_header_init(strblock, C_LAMBDA_INFO_TYPE | len); C_memcpy(C_data_pointer(strblock), str, len); return strblock; } C_regparm C_word C_fcall C_bytevector(C_word **ptr, int len, C_char *str) { C_word strblock = C_string(ptr, len, str); (void)C_string_to_bytevector(strblock); return strblock; } C_regparm C_word C_fcall C_static_bytevector(C_word **ptr, int len, C_char *str) { C_word strblock = C_static_string(ptr, len, str); C_block_header_init(strblock, C_BYTEVECTOR_TYPE | len); return strblock; } C_regparm C_word C_fcall C_pbytevector(int len, C_char *str) { C_SCHEME_BLOCK *pbv = C_malloc(len + sizeof(C_header)); if(pbv == NULL) panic(C_text("out of memory - cannot allocate permanent blob")); pbv->header = C_BYTEVECTOR_TYPE | len; C_memcpy(pbv->data, str, len); return (C_word)pbv; } C_regparm C_word C_fcall C_string_aligned8(C_word **ptr, int len, C_char *str) { C_word *p = *ptr, *p0; #ifndef C_SIXTY_FOUR /* Align on 8-byte boundary: */ if(C_aligned8(p)) ++p; #endif p0 = p; *ptr = p + 1 + C_bytestowords(len); *(p++) = C_STRING_TYPE | C_8ALIGN_BIT | len; C_memcpy(p, str, len); return (C_word)p0; } C_regparm C_word C_fcall C_string2(C_word **ptr, C_char *str) { C_word strblock = (C_word)(*ptr); int len; if(str == NULL) return C_SCHEME_FALSE; len = C_strlen(str); *ptr = (C_word *)((C_word)(*ptr) + sizeof(C_header) + C_align(len)); C_block_header_init(strblock, C_STRING_TYPE | len); C_memcpy(C_data_pointer(strblock), str, len); return strblock; } C_regparm C_word C_fcall C_string2_safe(C_word **ptr, int max, C_char *str) { C_word strblock = (C_word)(*ptr); int len; if(str == NULL) return C_SCHEME_FALSE; len = C_strlen(str); if(len >= max) { C_snprintf(buffer, sizeof(buffer), C_text("foreign string result exceeded maximum of %d bytes"), max); panic(buffer); } *ptr = (C_word *)((C_word)(*ptr) + sizeof(C_header) + C_align(len)); C_block_header_init(strblock, C_STRING_TYPE | len); C_memcpy(C_data_pointer(strblock), str, len); return strblock; } C_word C_fcall C_closure(C_word **ptr, int cells, C_word proc, ...) { va_list va; C_word *p = *ptr, *p0 = p; *p = C_CLOSURE_TYPE | cells; *(++p) = proc; for(va_start(va, proc); --cells; *(++p) = va_arg(va, C_word)); va_end(va); *ptr = p + 1; return (C_word)p0; } /* obsolete: replaced by C_a_pair in chicken.h */ C_regparm C_word C_fcall C_pair(C_word **ptr, C_word car, C_word cdr) { C_word *p = *ptr, *p0 = p; *(p++) = C_PAIR_TYPE | (C_SIZEOF_PAIR - 1); *(p++) = car; *(p++) = cdr; *ptr = p; return (C_word)p0; } C_regparm C_word C_fcall C_number(C_word **ptr, double n) { C_word *p = *ptr, *p0; double m; if(n <= (double)C_MOST_POSITIVE_FIXNUM && n >= (double)C_MOST_NEGATIVE_FIXNUM && modf(n, &m) == 0.0) { return C_fix(n); } #ifndef C_SIXTY_FOUR #ifndef C_DOUBLE_IS_32_BITS /* Align double on 8-byte boundary: */ if(C_aligned8(p)) ++p; #endif #endif p0 = p; *(p++) = C_FLONUM_TAG; *((double *)p) = n; *ptr = p + sizeof(double) / sizeof(C_word); return (C_word)p0; } C_regparm C_word C_fcall C_mpointer(C_word **ptr, void *mp) { C_word *p = *ptr, *p0 = p; *(p++) = C_POINTER_TYPE | 1; *((void **)p) = mp; *ptr = p + 1; return (C_word)p0; } C_regparm C_word C_fcall C_mpointer_or_false(C_word **ptr, void *mp) { C_word *p = *ptr, *p0 = p; if(mp == NULL) return C_SCHEME_FALSE; *(p++) = C_POINTER_TYPE | 1; *((void **)p) = mp; *ptr = p + 1; return (C_word)p0; } C_regparm C_word C_fcall C_taggedmpointer(C_word **ptr, C_word tag, void *mp) { C_word *p = *ptr, *p0 = p; *(p++) = C_TAGGED_POINTER_TAG; *((void **)p) = mp; *(++p) = tag; *ptr = p + 1; return (C_word)p0; } C_regparm C_word C_fcall C_taggedmpointer_or_false(C_word **ptr, C_word tag, void *mp) { C_word *p = *ptr, *p0 = p; if(mp == NULL) return C_SCHEME_FALSE; *(p++) = C_TAGGED_POINTER_TAG; *((void **)p) = mp; *(++p) = tag; *ptr = p + 1; return (C_word)p0; } C_word C_vector(C_word **ptr, int n, ...) { va_list v; C_word *p = *ptr, *p0 = p; *(p++) = C_VECTOR_TYPE | n; va_start(v, n); while(n--) *(p++) = va_arg(v, C_word); *ptr = p; va_end(v); return (C_word)p0; } C_word C_structure(C_word **ptr, int n, ...) { va_list v; C_word *p = *ptr, *p0 = p; *(p++) = C_STRUCTURE_TYPE | n; va_start(v, n); while(n--) *(p++) = va_arg(v, C_word); *ptr = p; va_end(v); return (C_word)p0; } C_regparm C_word C_fcall C_mutate_slot(C_word *slot, C_word val) { unsigned int mssize, newmssize, bytes; ++mutation_count; /* Mutation stack exists to track mutations pointing from elsewhere * into nursery. Stuff pointing anywhere else can be skipped, as * well as mutations on nursery objects. */ if(!C_in_stackp(val) || C_in_stackp((C_word)slot)) return *slot = val; #ifdef C_GC_HOOKS if(C_gc_mutation_hook != NULL && C_gc_mutation_hook(slot, val)) return val; #endif if(mutation_stack_top >= mutation_stack_limit) { assert(mutation_stack_top == mutation_stack_limit); mssize = mutation_stack_top - mutation_stack_bottom; newmssize = mssize * 2; bytes = newmssize * sizeof(C_word *); if(debug_mode) C_dbg(C_text("debug"), C_text("resizing mutation stack from %uk to %uk ...\n"), (mssize * sizeof(C_word *)) / 1024, bytes / 1024); mutation_stack_bottom = (C_word **)realloc(mutation_stack_bottom, bytes); if(mutation_stack_bottom == NULL) panic(C_text("out of memory - cannot re-allocate mutation stack")); mutation_stack_limit = mutation_stack_bottom + newmssize; mutation_stack_top = mutation_stack_bottom + mssize; } *(mutation_stack_top++) = slot; ++tracked_mutation_count; return *slot = val; } /* Allocate memory in scratch space, "size" is in words, like C_alloc. * The memory in the scratch space is laid out as follows: First, * there's a count that indicates how big the object originally was, * followed by a pointer to the slot in the object which points to the * object in scratch space, finally followed by the object itself. * The reason we store the slot pointer is so that we can figure out * whether the object is still "live" when reallocating; that's * because we don't have a saved continuation from where we can trace * the live data. The reason we store the total length of the object * is because we may be mutating in-place the lengths of the stored * objects, and we need to know how much to skip over while scanning. * * If the allocating function returns, it *must* first mark all the * values in scratch space as reclaimable. This is needed because * there is no way to distinguish between a stale pointer into scratch * space that's still somewhere on the stack in "uninitialized" memory * versus a word that's been recycled by the next called function, * which now holds a value that happens to have the same bit pattern * but represents another thing entirely. */ C_regparm C_word C_fcall C_scratch_alloc(C_uword size) { C_word result; if (C_scratchspace_top + size + 2 >= C_scratchspace_limit) { C_word *new_scratch_start, *new_scratch_top, *new_scratch_limit; C_uword needed = C_scratch_usage + size + 2, new_size = nmax(scratchspace_size << 1, 2UL << C_ilen(needed)); /* Shrink if the needed size is much smaller, but not below minimum */ if (needed < (new_size >> 4)) new_size >>= 1; new_size = nmax(new_size, DEFAULT_SCRATCH_SPACE_SIZE); /* TODO: Maybe we should work with two semispaces to reduce mallocs? */ new_scratch_start = (C_word *)C_malloc(C_wordstobytes(new_size)); if (new_scratch_start == NULL) panic(C_text("out of memory - cannot (re-)allocate scratch space")); new_scratch_top = new_scratch_start; new_scratch_limit = new_scratch_start + new_size; if(debug_mode) { C_dbg(C_text("debug"), C_text("resizing scratchspace dynamically from " UWORD_COUNT_FORMAT_STRING "k to " UWORD_COUNT_FORMAT_STRING "k ...\n"), C_wordstobytes(scratchspace_size) / 1024, C_wordstobytes(new_size) / 1024); } if(gc_report_flag) { C_dbg(C_text("GC"), C_text("(old) scratchspace: \tstart=" UWORD_FORMAT_STRING ", \tlimit=" UWORD_FORMAT_STRING "\n"), (C_word)C_scratchspace_start, (C_word)C_scratchspace_limit); C_dbg(C_text("GC"), C_text("(new) scratchspace: \tstart=" UWORD_FORMAT_STRING ", \tlimit=" UWORD_FORMAT_STRING "\n"), (C_word)new_scratch_start, (C_word)new_scratch_limit); } /* Move scratch data into new space and mutate slots pointing there. * This is basically a much-simplified version of really_mark. */ if (C_scratchspace_start != NULL) { C_word val, *sscan, *slot; C_uword n, words; C_header h; C_SCHEME_BLOCK *p, *p2; sscan = C_scratchspace_start; while (sscan < C_scratchspace_top) { words = *sscan; slot = (C_word *)*(sscan+1); if (*(sscan+2) == ALIGNMENT_HOLE_MARKER) val = (C_word)(sscan+3); else val = (C_word)(sscan+2); sscan += words + 2; p = (C_SCHEME_BLOCK *)val; h = p->header; if (is_fptr(h)) /* TODO: Support scratch->scratch pointers? */ panic(C_text("Unexpected forwarding pointer in scratch space")); p2 = (C_SCHEME_BLOCK *)(new_scratch_top+2); #ifndef C_SIXTY_FOUR if ((h & C_8ALIGN_BIT) && C_aligned8(p2) && (C_word *)p2 < new_scratch_limit) { *((C_word *)p2) = ALIGNMENT_HOLE_MARKER; p2 = (C_SCHEME_BLOCK *)((C_word *)p2 + 1); } #endif /* If orig slot still points here, copy data and update it */ if (slot != NULL) { assert(C_in_stackp((C_word)slot) && *slot == val); n = C_header_size(p); n = (h & C_BYTEBLOCK_BIT) ? C_bytestowords(n) : n; *slot = (C_word)p2; /* size = header plus block size plus optional alignment hole */ *new_scratch_top = ((C_word *)p2-(C_word *)new_scratch_top-2) + n + 1; *(new_scratch_top+1) = (C_word)slot; new_scratch_top = (C_word *)p2 + n + 1; if(new_scratch_top > new_scratch_limit) panic(C_text("out of memory - scratch space full while resizing")); p2->header = h; p->header = ptr_to_fptr((C_uword)p2); C_memcpy(p2->data, p->data, C_wordstobytes(n)); } } free(C_scratchspace_start); } C_scratchspace_start = new_scratch_start; C_scratchspace_top = new_scratch_top; C_scratchspace_limit = new_scratch_limit; /* Scratch space is now tightly packed */ C_scratch_usage = (new_scratch_top - new_scratch_start); scratchspace_size = new_size; } assert(C_scratchspace_top + size + 2 <= C_scratchspace_limit); *C_scratchspace_top = size; *(C_scratchspace_top+1) = (C_word)NULL; /* Nothing points here 'til mutated */ result = (C_word)(C_scratchspace_top+2); C_scratchspace_top += size + 2; /* This will only be marked as "used" when it's claimed by a pointer */ /* C_scratch_usage += size + 2; */ return result; } /* Given a root object, scan its slots recursively (the objects * themselves should be shallow and non-recursive), and migrate every * object stored between the memory boundaries to the supplied * pointer. Scratch data pointed to by objects between the memory * boundaries is updated to point to the new memory region. If the * supplied pointer is NULL, the scratch memory is marked reclaimable. */ C_regparm C_word C_fcall C_migrate_buffer_object(C_word **ptr, C_word *start, C_word *end, C_word obj) { C_word size, header, *data, *p = NULL, obj_in_buffer; if (C_immediatep(obj)) return obj; size = C_header_size(obj); header = C_block_header(obj); data = C_data_pointer(obj); obj_in_buffer = (obj >= (C_word)start && obj < (C_word)end); /* Only copy object if we have a target pointer and it's in the buffer */ if (ptr != NULL && obj_in_buffer) { p = *ptr; obj = (C_word)p; /* Return the object's new location at the end */ } if (p != NULL) *p++ = header; if (header & C_BYTEBLOCK_BIT) { if (p != NULL) { *ptr = (C_word *)((C_byte *)(*ptr) + sizeof(C_header) + C_align(size)); C_memcpy(p, data, size); } } else { if (p != NULL) *ptr += size + 1; if(header & C_SPECIALBLOCK_BIT) { if (p != NULL) *(p++) = *data; size--; data++; } /* TODO: See if we can somehow make this use Cheney's algorithm */ while(size--) { C_word slot = *data; if(!C_immediatep(slot)) { if (C_in_scratchspacep(slot)) { if (obj_in_buffer) { /* Otherwise, don't touch scratch backpointer */ /* TODO: Support recursing into objects in scratch space? */ C_word *sp = (C_word *)slot; if (*(sp-1) == ALIGNMENT_HOLE_MARKER) --sp; if (*(sp-1) != (C_word)NULL && p == NULL) C_scratch_usage -= *(sp-2) + 2; *(sp-1) = (C_word)p; /* This is why we traverse even if p = NULL */ *data = C_SCHEME_UNBOUND; /* Ensure old reference is killed dead */ } } else { /* Slot is not a scratchspace object: check sub-objects */ slot = C_migrate_buffer_object(ptr, start, end, slot); } } if (p != NULL) *(p++) = slot; else *data = slot; /* Sub-object may have moved! */ data++; } } return obj; /* Should be NULL if ptr was NULL */ } /* Register an object's slot as holding data to scratch space. Only * one slot can point to a scratch space object; the object in scratch * space is preceded by a pointer that points to this slot (or NULL). */ C_regparm C_word C_fcall C_mutate_scratch_slot(C_word *slot, C_word val) { C_word *ptr = (C_word *)val; assert(C_in_scratchspacep(val)); assert(slot == NULL || C_in_stackp((C_word)slot)); if (*(ptr-1) == ALIGNMENT_HOLE_MARKER) --ptr; if (*(ptr-1) == (C_word)NULL && slot != NULL) C_scratch_usage += *(ptr-2) + 2; if (*(ptr-1) != (C_word)NULL && slot == NULL) C_scratch_usage -= *(ptr-2) + 2; *(ptr-1) = (C_word)slot; /* Remember the slot pointing here, for realloc */ if (slot != NULL) *slot = val; return val; } /* Initiate garbage collection: */ void C_save_and_reclaim(void *trampoline, int n, C_word *av) { C_word new_size = nmax((C_word)1 << C_ilen(n), DEFAULT_TEMPORARY_STACK_SIZE); assert(av > C_temporary_stack_bottom || av < C_temporary_stack_limit); assert(C_temporary_stack == C_temporary_stack_bottom); /* Don't *immediately* slam back to default size */ if (new_size < temporary_stack_size / 4) new_size = temporary_stack_size >> 1; if (new_size != temporary_stack_size) { if(fixed_temporary_stack_size) panic(C_text("fixed temporary stack overflow (\"apply\" called with too many arguments?)")); if(gc_report_flag) { C_dbg(C_text("GC"), C_text("resizing temporary stack dynamically from " UWORD_COUNT_FORMAT_STRING "k to " UWORD_COUNT_FORMAT_STRING "k ...\n"), C_wordstobytes(temporary_stack_size) / 1024, C_wordstobytes(new_size) / 1024); } C_free(C_temporary_stack_limit); if((C_temporary_stack_limit = (C_word *)C_malloc(new_size * sizeof(C_word))) == NULL) panic(C_text("out of memory - could not resize temporary stack")); C_temporary_stack_bottom = C_temporary_stack_limit + new_size; C_temporary_stack = C_temporary_stack_bottom; temporary_stack_size = new_size; } C_temporary_stack = C_temporary_stack_bottom - n; assert(C_temporary_stack >= C_temporary_stack_limit); C_memmove(C_temporary_stack, av, n * sizeof(C_word)); C_reclaim(trampoline, n); } void C_save_and_reclaim_args(void *trampoline, int n, ...) { va_list v; int i; va_start(v, n); for(i = 0; i < n; ++i) C_save(va_arg(v, C_word)); va_end(v); C_reclaim(trampoline, n); } #ifdef __SUNPRO_C static void mark(C_word *x) { \ C_word *_x = (x), _val = *_x; \ if(!C_immediatep(_val)) really_mark(_x); \ } #else # define mark(x) \ C_cblock \ C_word *_x = (x), _val = *_x; \ if(!C_immediatep(_val)) really_mark(_x); \ C_cblockend #endif C_regparm void C_fcall C_reclaim(void *trampoline, C_word c) { int i, j, n, fcount; C_uword count, bytes; C_word *p, **msp, bucket, last; C_header h; C_byte *tmp, *start; LF_LIST *lfn; C_SCHEME_BLOCK *bp; C_GC_ROOT *gcrp; double tgc = 0; C_SYMBOL_TABLE *stp; volatile int finalizers_checked; FINALIZER_NODE *flist; TRACE_INFO *tinfo; C_DEBUG_INFO cell; /* assert(C_timer_interrupt_counter >= 0); */ if(pending_interrupts_count > 0 && C_interrupts_enabled) { stack_check_demand = 0; /* forget demand: we're not going to gc yet */ handle_interrupt(trampoline); } cell.enabled = 0; cell.event = C_DEBUG_GC; cell.loc = "<runtime>"; cell.val = "GC_MINOR"; C_debugger(&cell, 0, NULL); /* Note: the mode argument will always be GC_MINOR or GC_REALLOC. */ if(C_pre_gc_hook != NULL) C_pre_gc_hook(GC_MINOR); finalizers_checked = 0; C_restart_trampoline = trampoline; C_restart_c = c; heap_scan_top = (C_byte *)C_align((C_uword)C_fromspace_top); gc_mode = GC_MINOR; start = C_fromspace_top; /* Entry point for second-level GC (on explicit request or because of full fromspace): */ #ifdef HAVE_SIGSETJMP if(C_sigsetjmp(gc_restart, 0) || start >= C_fromspace_limit) { #else if(C_setjmp(gc_restart) || start >= C_fromspace_limit) { #endif if(gc_bell) { C_putchar(7); C_fflush(stdout); } tgc = C_cpu_milliseconds(); if(gc_mode == GC_REALLOC) { cell.val = "GC_REALLOC"; C_debugger(&cell, 0, NULL); C_rereclaim2(percentage(heap_size, C_heap_growth), 0); gc_mode = GC_MAJOR; count = (C_uword)tospace_top - (C_uword)tospace_start; goto i_like_spaghetti; } heap_scan_top = (C_byte *)C_align((C_uword)tospace_top); gc_mode = GC_MAJOR; cell.val = "GC_MAJOR"; C_debugger(&cell, 0, NULL); /* Mark items in forwarding table: */ for(p = forwarding_table; *p != 0; p += 2) { last = p[ 1 ]; mark(&p[ 1 ]); C_block_header(p[ 0 ]) = C_block_header(last); } /* Mark literal frames: */ for(lfn = lf_list; lfn != NULL; lfn = lfn->next) for(i = 0; i < lfn->count; ++i) mark(&lfn->lf[i]); /* Mark symbol tables: */ for(stp = symbol_table_list; stp != NULL; stp = stp->next) for(i = 0; i < stp->size; ++i) mark(&stp->table[i]); /* Mark collectibles: */ for(msp = collectibles; msp < collectibles_top; ++msp) if(*msp != NULL) mark(*msp); /* mark normal GC roots: */ for(gcrp = gc_root_list; gcrp != NULL; gcrp = gcrp->next) { if(!gcrp->finalizable) mark(&gcrp->value); } mark_system_globals(); } else { /* Mark mutated slots: */ for(msp = mutation_stack_bottom; msp < mutation_stack_top; ++msp) mark(*msp); } assert(C_temporary_stack >= C_temporary_stack_limit); /* Clear the mutated slot stack: */ mutation_stack_top = mutation_stack_bottom; /* Mark live values: */ for(p = C_temporary_stack; p < C_temporary_stack_bottom; ++p) mark(p); /* Mark trace-buffer: */ for(tinfo = trace_buffer; tinfo < trace_buffer_limit; ++tinfo) { mark(&tinfo->cooked1); mark(&tinfo->cooked2); mark(&tinfo->thread); } rescan: /* Mark nested values in already moved (marked) blocks in breadth-first manner: */ while(heap_scan_top < (gc_mode == GC_MINOR ? C_fromspace_top : tospace_top)) { bp = (C_SCHEME_BLOCK *)heap_scan_top; if(*((C_word *)bp) == ALIGNMENT_HOLE_MARKER) bp = (C_SCHEME_BLOCK *)((C_word *)bp + 1); n = C_header_size(bp); h = bp->header; bytes = (h & C_BYTEBLOCK_BIT) ? n : n * sizeof(C_word); p = bp->data; if(n > 0 && (h & C_BYTEBLOCK_BIT) == 0) { if(h & C_SPECIALBLOCK_BIT) { /* Minor GC needs to be fast; always mark weakly held symbols */ if (gc_mode != GC_MINOR || h != C_WEAK_PAIR_TAG) { --n; ++p; } } while(n--) mark(p++); } heap_scan_top = (C_byte *)bp + C_align(bytes) + sizeof(C_word); } if(gc_mode == GC_MINOR) { count = (C_uword)C_fromspace_top - (C_uword)start; ++gc_count_1; ++gc_count_1_total; update_locative_table(GC_MINOR); } else { if(!finalizers_checked) { /* Mark finalizer list and remember pointers to non-forwarded items: */ last = C_block_item(pending_finalizers_symbol, 0); if(!C_immediatep(last) && (j = C_unfix(C_block_item(last, 0))) != 0) { /* still finalizers pending: just mark table items... */ if(gc_report_flag) C_dbg(C_text("GC"), C_text("%d finalized item(s) still pending\n"), j); j = fcount = 0; for(flist = finalizer_list; flist != NULL; flist = flist->next) { mark(&flist->item); mark(&flist->finalizer); ++fcount; } /* mark finalizable GC roots: */ for(gcrp = gc_root_list; gcrp != NULL; gcrp = gcrp->next) { if(gcrp->finalizable) mark(&gcrp->value); } if(gc_report_flag && fcount > 0) C_dbg(C_text("GC"), C_text("%d finalizer value(s) marked\n"), fcount); } else { j = fcount = 0; /* move into pending */ for(flist = finalizer_list; flist != NULL; flist = flist->next) { if(j < C_max_pending_finalizers) { if(!is_fptr(C_block_header(flist->item))) pending_finalizer_indices[ j++ ] = flist; } } /* mark */ for(flist = finalizer_list; flist != NULL; flist = flist->next) { mark(&flist->item); mark(&flist->finalizer); } /* mark finalizable GC roots: */ for(gcrp = gc_root_list; gcrp != NULL; gcrp = gcrp->next) { if(gcrp->finalizable) mark(&gcrp->value); } } pending_finalizer_count = j; finalizers_checked = 1; if(pending_finalizer_count > 0 && gc_report_flag) C_dbg(C_text("GC"), C_text("%d finalizer(s) pending (%d live)\n"), pending_finalizer_count, live_finalizer_count); goto rescan; } else { /* Copy finalized items with remembered indices into `##sys#pending-finalizers' (and release finalizer node): */ if(pending_finalizer_count > 0) { if(gc_report_flag) C_dbg(C_text("GC"), C_text("queueing %d finalizer(s)\n"), pending_finalizer_count); last = C_block_item(pending_finalizers_symbol, 0); assert(C_block_item(last, 0) == C_fix(0)); C_set_block_item(last, 0, C_fix(pending_finalizer_count)); for(i = 0; i < pending_finalizer_count; ++i) { flist = pending_finalizer_indices[ i ]; C_set_block_item(last, 1 + i * 2, flist->item); C_set_block_item(last, 2 + i * 2, flist->finalizer); if(flist->previous != NULL) flist->previous->next = flist->next; else finalizer_list = flist->next; if(flist->next != NULL) flist->next->previous = flist->previous; flist->next = finalizer_free_list; flist->previous = NULL; finalizer_free_list = flist; --live_finalizer_count; } } } update_locative_table(gc_mode); count = (C_uword)tospace_top - (C_uword)tospace_start; /*** isn't gc_mode always GC_MAJOR here? */ if(gc_mode == GC_MAJOR && count < percentage(percentage(heap_size, C_heap_shrinkage), DEFAULT_HEAP_SHRINKAGE_USED) && heap_size > MINIMAL_HEAP_SIZE && !C_heap_size_is_fixed) C_rereclaim2(percentage(heap_size, C_heap_shrinkage), 0); else { C_fromspace_top = tospace_top; tmp = fromspace_start; fromspace_start = tospace_start; tospace_start = tospace_top = tmp; tmp = C_fromspace_limit; C_fromspace_limit = tospace_limit; tospace_limit = tmp; } i_like_spaghetti: ++gc_count_2; } if(gc_mode == GC_MAJOR) { update_symbol_tables(gc_mode); tgc = C_cpu_milliseconds() - tgc; gc_ms += tgc; timer_accumulated_gc_ms += tgc; } /* Display GC report: Note: stubbornly writes to stderr - there is no provision for other output-ports */ if(gc_report_flag == 1 || (gc_report_flag && gc_mode == GC_MAJOR)) { C_dbg(C_text("GC"), C_text("level %d\tgcs(minor) %d\tgcs(major) %d\n"), gc_mode, gc_count_1, gc_count_2); i = (C_uword)C_stack_pointer; #if C_STACK_GROWS_DOWNWARD C_dbg("GC", C_text("stack\t" UWORD_FORMAT_STRING "\t" UWORD_FORMAT_STRING "\t" UWORD_FORMAT_STRING), (C_uword)C_stack_limit, (C_uword)i, (C_uword)C_stack_limit + stack_size); #else C_dbg("GC", C_text("stack\t" UWORD_FORMAT_STRING "\t" UWORD_FORMAT_STRING "\t" UWORD_FORMAT_STRING), (C_uword)C_stack_limit - stack_size, (C_uword)i, (C_uword)C_stack_limit); #endif if(gc_mode == GC_MINOR) C_fprintf(C_stderr, C_text("\t" UWORD_FORMAT_STRING), (C_uword)count); C_fputc('\n', C_stderr); C_dbg("GC", C_text(" from\t" UWORD_FORMAT_STRING "\t" UWORD_FORMAT_STRING "\t" UWORD_FORMAT_STRING), (C_uword)fromspace_start, (C_uword)C_fromspace_top, (C_uword)C_fromspace_limit); if(gc_mode == GC_MAJOR) C_fprintf(C_stderr, C_text("\t" UWORD_FORMAT_STRING), (C_uword)count); C_fputc('\n', C_stderr); C_dbg("GC", C_text(" to\t" UWORD_FORMAT_STRING "\t" UWORD_FORMAT_STRING "\t" UWORD_FORMAT_STRING" \n"), (C_uword)tospace_start, (C_uword)tospace_top, (C_uword)tospace_limit); C_dbg("GC", C_text("%d locatives (from %d)\n"), locative_table_count, locative_table_size); } /* GC will have copied any live objects out of scratch space: clear it */ if (C_scratchspace_start != NULL) { C_free(C_scratchspace_start); C_scratchspace_start = NULL; C_scratchspace_top = NULL; C_scratchspace_limit = NULL; C_scratch_usage = 0; scratchspace_size = 0; } if(gc_mode == GC_MAJOR) { gc_count_1 = 0; maximum_heap_usage = count > maximum_heap_usage ? count : maximum_heap_usage; } if(C_post_gc_hook != NULL) C_post_gc_hook(gc_mode, (C_long)tgc); /* Unwind stack completely */ #ifdef HAVE_SIGSETJMP C_siglongjmp(C_restart, 1); #else C_longjmp(C_restart, 1); #endif } C_regparm void C_fcall mark_system_globals(void) { mark(&core_provided_symbol); mark(&interrupt_hook_symbol); mark(&error_hook_symbol); mark(&callback_continuation_stack_symbol); mark(&pending_finalizers_symbol); mark(&current_thread_symbol); mark(&u8vector_symbol); mark(&s8vector_symbol); mark(&u16vector_symbol); mark(&s16vector_symbol); mark(&u32vector_symbol); mark(&s32vector_symbol); mark(&u64vector_symbol); mark(&s64vector_symbol); mark(&f32vector_symbol); mark(&f64vector_symbol); } C_regparm void C_fcall really_mark(C_word *x) { C_word val; C_uword n, bytes; C_header h; C_SCHEME_BLOCK *p, *p2; val = *x; if (!C_in_stackp(val) && !C_in_heapp(val) && !C_in_scratchspacep(val)) { #ifdef C_GC_HOOKS if(C_gc_trace_hook != NULL) C_gc_trace_hook(x, gc_mode); #endif return; } p = (C_SCHEME_BLOCK *)val; h = p->header; if(gc_mode == GC_MINOR) { if(is_fptr(h)) { *x = val = fptr_to_ptr(h); return; } if((C_uword)val >= (C_uword)fromspace_start && (C_uword)val < (C_uword)C_fromspace_top) return; p2 = (C_SCHEME_BLOCK *)C_align((C_uword)C_fromspace_top); #ifndef C_SIXTY_FOUR if((h & C_8ALIGN_BIT) && C_aligned8(p2) && (C_byte *)p2 < C_fromspace_limit) { *((C_word *)p2) = ALIGNMENT_HOLE_MARKER; p2 = (C_SCHEME_BLOCK *)((C_word *)p2 + 1); } #endif n = C_header_size(p); bytes = (h & C_BYTEBLOCK_BIT) ? n : n * sizeof(C_word); if(((C_byte *)p2 + bytes + sizeof(C_word)) > C_fromspace_limit) #ifdef HAVE_SIGSETJMP C_siglongjmp(gc_restart, 1); #else C_longjmp(gc_restart, 1); #endif C_fromspace_top = (C_byte *)p2 + C_align(bytes) + sizeof(C_word); scavenge: *x = (C_word)p2; p2->header = h; p->header = ptr_to_fptr((C_uword)p2); C_memcpy(p2->data, p->data, bytes); } else { /* (major GC) */ if(is_fptr(h)) { val = fptr_to_ptr(h); if((C_uword)val >= (C_uword)tospace_start && (C_uword)val < (C_uword)tospace_top) { *x = val; return; } /* Link points into fromspace: fetch new pointer + header and copy... */ p = (C_SCHEME_BLOCK *)val; h = p->header; if(is_fptr(h)) { /* Link points into fromspace and into a link which points into from- or tospace: */ val = fptr_to_ptr(h); if((C_uword)val >= (C_uword)tospace_start && (C_uword)val < (C_uword)tospace_top) { *x = val; return; } p = (C_SCHEME_BLOCK *)val; h = p->header; } } p2 = (C_SCHEME_BLOCK *)C_align((C_uword)tospace_top); #ifndef C_SIXTY_FOUR if((h & C_8ALIGN_BIT) && C_aligned8(p2) && (C_byte *)p2 < tospace_limit) { *((C_word *)p2) = ALIGNMENT_HOLE_MARKER; p2 = (C_SCHEME_BLOCK *)((C_word *)p2 + 1); } #endif n = C_header_size(p); bytes = (h & C_BYTEBLOCK_BIT) ? n : n * sizeof(C_word); if(((C_byte *)p2 + bytes + sizeof(C_word)) > tospace_limit) { /* Detect impossibilities before GC_REALLOC to preserve state: */ if (C_in_stackp((C_word)p) && bytes > stack_size) panic(C_text("Detected corrupted data in stack")); if (C_in_heapp((C_word)p) && bytes > (heap_size / 2)) panic(C_text("Detected corrupted data in heap")); if(C_heap_size_is_fixed) panic(C_text("out of memory - heap full")); gc_mode = GC_REALLOC; #ifdef HAVE_SIGSETJMP C_siglongjmp(gc_restart, 1); #else C_longjmp(gc_restart, 1); #endif } tospace_top = (C_byte *)p2 + C_align(bytes) + sizeof(C_word); goto scavenge; } } #ifdef __SUNPRO_C static void remark(C_word *x) { \ C_word *_x = (x), _val = *_x; \ if(!C_immediatep(_val)) really_remark(_x); \ } #else #define remark(x) \ C_cblock \ C_word *_x = (x), _val = *_x; \ if(!C_immediatep(_val)) really_remark(_x); \ C_cblockend #endif /* Do a major GC into a freshly allocated heap: */ C_regparm void C_fcall C_rereclaim2(C_uword size, int relative_resize) { int i, j; C_uword count, n, bytes; C_word *p, **msp, bucket, last; C_header h; C_byte *tmp, *start; LF_LIST *lfn; C_SCHEME_BLOCK *bp; C_GC_ROOT *gcrp; C_SYMBOL_TABLE *stp; FINALIZER_NODE *flist; TRACE_INFO *tinfo; C_byte *new_heapspace; size_t new_heapspace_size; if(C_pre_gc_hook != NULL) C_pre_gc_hook(GC_REALLOC); /* * Normally, size is "absolute": it indicates the desired size of * the entire new heap. With relative_resize, size is a demanded * increase of the heap, so we'll have to add it. This calculation * doubles the current heap size because heap_size is already both * halves. We add size*2 because we'll eventually divide the size * by 2 for both halves. We also add stack_size*2 because all the * nursery data is also copied to the heap on GC, and the requested * memory "size" must be available after the GC. */ if(relative_resize) size = (heap_size + size + stack_size) * 2; if(size < MINIMAL_HEAP_SIZE) size = MINIMAL_HEAP_SIZE; /* * When heap grows, ensure it's enough to accommodate first * generation (nursery). Because we're calculating the total heap * size here (fromspace *AND* tospace), we have to double the stack * size, otherwise we'd accommodate only half the stack in the tospace. */ if(size > heap_size && size - heap_size < stack_size * 2) size = heap_size + stack_size * 2; /* * The heap has grown but we've already hit the maximal size with the current * heap, we can't do anything else but panic. */ if(size > heap_size && heap_size >= C_maximal_heap_size) panic(C_text("out of memory - heap has reached its maximum size")); if(size > C_maximal_heap_size) size = C_maximal_heap_size; if(debug_mode) { C_dbg(C_text("debug"), C_text("resizing heap dynamically from " UWORD_COUNT_FORMAT_STRING "k to " UWORD_COUNT_FORMAT_STRING "k ...\n"), heap_size / 1024, size / 1024); } if(gc_report_flag) { C_dbg(C_text("GC"), C_text("(old) fromspace: \tstart=" UWORD_FORMAT_STRING ", \tlimit=" UWORD_FORMAT_STRING "\n"), (C_word)fromspace_start, (C_word)C_fromspace_limit); C_dbg(C_text("GC"), C_text("(old) tospace: \tstart=" UWORD_FORMAT_STRING ", \tlimit=" UWORD_FORMAT_STRING "\n"), (C_word)tospace_start, (C_word)tospace_limit); } heap_size = size; /* Total heap size of the two halves... */ size /= 2; /* ...each half is this big */ /* * Start by allocating the new heap's fromspace. After remarking, * allocate the other half of the new heap (its tospace). * * To clarify: what we call "new_space" here is what will eventually * be cycled over to "fromspace" when re-reclamation has finished * (that is, after the old one has been freed). */ if ((new_heapspace = heap_alloc (size, &new_tospace_start)) == NULL) panic(C_text("out of memory - cannot allocate heap segment")); new_heapspace_size = size; new_tospace_top = new_tospace_start; new_tospace_limit = new_tospace_start + size; heap_scan_top = new_tospace_top; /* Mark items in forwarding table: */ for(p = forwarding_table; *p != 0; p += 2) { last = p[ 1 ]; remark(&p[ 1 ]); C_block_header(p[ 0 ]) = C_block_header(last); } /* Mark literal frames: */ for(lfn = lf_list; lfn != NULL; lfn = lfn->next) for(i = 0; i < lfn->count; ++i) remark(&lfn->lf[i]); /* Mark symbol table: */ for(stp = symbol_table_list; stp != NULL; stp = stp->next) for(i = 0; i < stp->size; ++i) remark(&stp->table[i]); /* Mark collectibles: */ for(msp = collectibles; msp < collectibles_top; ++msp) if(*msp != NULL) remark(*msp); for(gcrp = gc_root_list; gcrp != NULL; gcrp = gcrp->next) remark(&gcrp->value); remark_system_globals(); /* Clear the mutated slot stack: */ mutation_stack_top = mutation_stack_bottom; /* Mark live values: */ for(p = C_temporary_stack; p < C_temporary_stack_bottom; ++p) remark(p); /* Mark locative table: */ for(i = 0; i < locative_table_count; ++i) remark(&locative_table[ i ]); /* Mark finalizer table: */ for(flist = finalizer_list; flist != NULL; flist = flist->next) { remark(&flist->item); remark(&flist->finalizer); } /* Mark trace-buffer: */ for(tinfo = trace_buffer; tinfo < trace_buffer_limit; ++tinfo) { remark(&tinfo->cooked1); remark(&tinfo->cooked2); remark(&tinfo->thread); } update_locative_table(GC_REALLOC); /* Mark nested values in already moved (marked) blocks in breadth-first manner: */ while(heap_scan_top < new_tospace_top) { bp = (C_SCHEME_BLOCK *)heap_scan_top; if(*((C_word *)bp) == ALIGNMENT_HOLE_MARKER) bp = (C_SCHEME_BLOCK *)((C_word *)bp + 1); n = C_header_size(bp); h = bp->header; assert(!is_fptr(h)); bytes = (h & C_BYTEBLOCK_BIT) ? n : n * sizeof(C_word); p = bp->data; if(n > 0 && (h & C_BYTEBLOCK_BIT) == 0) { if(h & C_SPECIALBLOCK_BIT) { --n; ++p; } while(n--) remark(p++); } heap_scan_top = (C_byte *)bp + C_align(bytes) + sizeof(C_word); } update_symbol_tables(GC_REALLOC); heap_free (heapspace1, heapspace1_size); heap_free (heapspace2, heapspace2_size); if ((heapspace2 = heap_alloc (size, &tospace_start)) == NULL) panic(C_text("out of memory - cannot allocate next heap segment")); heapspace2_size = size; heapspace1 = new_heapspace; heapspace1_size = new_heapspace_size; tospace_limit = tospace_start + size; tospace_top = tospace_start; fromspace_start = new_tospace_start; C_fromspace_top = new_tospace_top; C_fromspace_limit = new_tospace_limit; if(gc_report_flag) { C_dbg(C_text("GC"), C_text("resized heap to %d bytes\n"), heap_size); C_dbg(C_text("GC"), C_text("(new) fromspace: \tstart=" UWORD_FORMAT_STRING ", \tlimit=" UWORD_FORMAT_STRING "\n"), (C_word)fromspace_start, (C_word)C_fromspace_limit); C_dbg(C_text("GC"), C_text("(new) tospace: \tstart=" UWORD_FORMAT_STRING ", \tlimit=" UWORD_FORMAT_STRING "\n"), (C_word)tospace_start, (C_word)tospace_limit); } if(C_post_gc_hook != NULL) C_post_gc_hook(GC_REALLOC, 0); } C_regparm void C_fcall remark_system_globals(void) { remark(&core_provided_symbol); remark(&interrupt_hook_symbol); remark(&error_hook_symbol); remark(&callback_continuation_stack_symbol); remark(&pending_finalizers_symbol); remark(&current_thread_symbol); remark(&u8vector_symbol); remark(&s8vector_symbol); remark(&u16vector_symbol); remark(&s16vector_symbol); remark(&u32vector_symbol); remark(&s32vector_symbol); remark(&u64vector_symbol); remark(&s64vector_symbol); remark(&f32vector_symbol); remark(&f64vector_symbol); } C_regparm void C_fcall really_remark(C_word *x) { C_word val, item; C_uword n, bytes; C_header h; C_SCHEME_BLOCK *p, *p2; val = *x; if (!C_in_stackp(val) && !C_in_heapp(val) && !C_in_new_heapp(val) && !C_in_scratchspacep(val)) { #ifdef C_GC_HOOKS if(C_gc_trace_hook != NULL) C_gc_trace_hook(x, gc_mode); #endif return; } p = (C_SCHEME_BLOCK *)val; h = p->header; if(is_fptr(h)) { val = fptr_to_ptr(h); if((C_uword)val >= (C_uword)new_tospace_start && (C_uword)val < (C_uword)new_tospace_top) { *x = val; return; } /* Link points into nursery, fromspace or the old tospace: * fetch new pointer + header and copy... */ p = (C_SCHEME_BLOCK *)val; h = p->header; n = 1; while(is_fptr(h)) { /* Link points into fromspace or old tospace and into a link which * points into tospace or new-tospace: */ val = fptr_to_ptr(h); if((C_uword)val >= (C_uword)new_tospace_start && (C_uword)val < (C_uword)new_tospace_top) { *x = val; return; } p = (C_SCHEME_BLOCK *)val; h = p->header; if(++n > 3) panic(C_text("forwarding chain during re-reclamation is longer than 3. somethings fishy.")); } } p2 = (C_SCHEME_BLOCK *)C_align((C_uword)new_tospace_top); #ifndef C_SIXTY_FOUR if((h & C_8ALIGN_BIT) && C_aligned8(p2) && (C_byte *)p2 < new_tospace_limit) { *((C_word *)p2) = ALIGNMENT_HOLE_MARKER; p2 = (C_SCHEME_BLOCK *)((C_word *)p2 + 1); } #endif n = C_header_size(p); bytes = (h & C_BYTEBLOCK_BIT) ? n : n * sizeof(C_word); new_tospace_top = ((C_byte *)p2 + C_align(bytes) + sizeof(C_word)); if(new_tospace_top > new_tospace_limit) { panic(C_text("out of memory - heap full while resizing")); } *x = (C_word)p2; p2->header = h; assert(!is_fptr(h)); p->header = ptr_to_fptr((C_word)p2); C_memcpy(p2->data, p->data, bytes); } C_regparm void C_fcall update_locative_table(int mode) { int i, hi = 0, invalidated = 0; C_header h; C_word loc, obj, obj2, offset, loc2, ptr; C_uword ptr2; for(i = 0; i < locative_table_count; ++i) { loc = locative_table[ i ]; if(loc != C_SCHEME_UNDEFINED) { h = C_block_header(loc); switch(mode) { case GC_MINOR: if(is_fptr(h)) /* forwarded? update l-table entry */ loc = locative_table[ i ] = fptr_to_ptr(h); /* otherwise it must have been GC'd (since this is a minor one) */ else if(C_in_stackp(loc)) { locative_table[ i ] = C_SCHEME_UNDEFINED; C_set_block_item(loc, 0, 0); ++invalidated; break; } /* forwarded. fix up ptr and check pointed-at object for being forwarded... */ ptr = C_block_item(loc, 0); offset = C_unfix(C_block_item(loc, 1)); obj = ptr - offset; h = C_block_header(obj); if(is_fptr(h)) { /* pointed-at object forwarded? update */ C_set_block_item(loc, 0, (C_uword)fptr_to_ptr(h) + offset); hi = i + 1; } else if(C_in_stackp(obj)) { /* pointed-at object GC'd, locative is invalid */ locative_table[ i ] = C_SCHEME_UNDEFINED; C_set_block_item(loc, 0, 0); } else hi = i + 1; break; case GC_MAJOR: if(is_fptr(h)) /* forwarded? update l-table entry */ loc = locative_table[ i ] = fptr_to_ptr(h); else { /* otherwise, throw away */ locative_table[ i ] = C_SCHEME_UNDEFINED; C_set_block_item(loc, 0, 0); ++invalidated; break; } h = C_block_header(loc); if(is_fptr(h)) /* new instance is forwarded itself? update again */ loc = locative_table[ i ] = fptr_to_ptr(h); ptr = C_block_item(loc, 0); /* fix up ptr */ offset = C_unfix(C_block_item(loc, 1)); obj = ptr - offset; h = C_block_header(obj); if(is_fptr(h)) { /* pointed-at object has been forwarded? */ ptr2 = (C_uword)fptr_to_ptr(h); h = C_block_header(ptr2); if(is_fptr(h)) { /* secondary forwarding check for pointed-at object */ ptr2 = (C_uword)fptr_to_ptr(h) + offset; C_set_block_item(loc, 0, ptr2); } else C_set_block_item(loc, 0, ptr2 + offset); /* everything's fine, fixup pointer */ hi = i + 1; } else { locative_table[ i ] = C_SCHEME_UNDEFINED; /* pointed-at object is dead */ C_set_block_item(loc, 0, 0); ++invalidated; } break; case GC_REALLOC: ptr = C_block_item(loc, 0); /* just update ptr's pointed-at objects */ offset = C_unfix(C_block_item(loc, 1)); obj = ptr - offset; remark(&obj); C_set_block_item(loc, 0, obj + offset); break; } } } if(gc_report_flag && invalidated > 0) C_dbg(C_text("GC"), C_text("locative-table entries reclaimed: %d\n"), invalidated); if(mode != GC_REALLOC) locative_table_count = hi; } static C_regparm void fixup_symbol_forwards(C_word sym) { C_word val, h; int i, s = C_header_size(sym); /* 3 */ for (i = 0; i < s; i++) { val = C_block_item(sym, i); if (!C_immediatep(val)) { h = C_block_header(val); while(is_fptr(h)) { val = fptr_to_ptr(h); h = C_block_header(val); } C_set_block_item(sym, i, val); } } } C_regparm void C_fcall update_symbol_tables(int mode) { int weakn = 0, i; C_word bucket, last, sym, h; C_SYMBOL_TABLE *stp; assert(mode != GC_MINOR); /* Call only in major or realloc mode */ /* Update symbol locations through fptrs or drop if unreferenced */ for(stp = symbol_table_list; stp != NULL; stp = stp->next) { for(i = 0; i < stp->size; ++i) { last = 0; for(bucket = stp->table[ i ]; bucket != C_SCHEME_END_OF_LIST; bucket = C_block_item(bucket,1)) { sym = C_block_item(bucket, 0); h = C_block_header(sym); /* Resolve any forwarding pointers */ while(is_fptr(h)) { sym = fptr_to_ptr(h); h = C_block_header(sym); } assert((h & C_HEADER_TYPE_BITS) == C_SYMBOL_TYPE); #ifdef DEBUGBUILD /* Detect inconsistencies before dropping / keeping the symbol */ fixup_symbol_forwards(sym); { C_word str = C_symbol_name(sym); int str_perm; str_perm = !C_in_stackp(str) && !C_in_heapp(str) && !C_in_scratchspacep(str) && (mode == GC_REALLOC ? !C_in_new_heapp(str) : 1); if ((C_persistable_symbol(sym) || str_perm) && (C_block_header(bucket) == C_WEAK_PAIR_TAG)) { C_dbg(C_text("GC"), C_text("Offending symbol: `%.*s'\n"), (int)C_header_size(str), C_c_string(str)); panic(C_text("Persistable symbol found in weak pair")); } else if (!C_persistable_symbol(sym) && !str_perm && (C_block_header(bucket) == C_PAIR_TAG)) { C_dbg(C_text("GC"), C_text("Offending symbol: `%.*s'...\n"), (int)C_header_size(str), C_c_string(str)); panic(C_text("Unpersistable symbol found in strong pair")); } } #endif /* If the symbol is unreferenced, drop it: */ if(mode == GC_REALLOC ? !C_in_new_heapp(sym) : !C_in_fromspacep(sym)) { if(last) C_set_block_item(last, 1, C_block_item(bucket,1)); else stp->table[ i ] = C_block_item(bucket,1); #ifndef NDEBUG fixup_symbol_forwards(sym); assert(!C_persistable_symbol(sym)); #endif ++weakn; } else { C_set_block_item(bucket,0,sym); /* Might have moved */ last = bucket; } } } } if(gc_report_flag && weakn) C_dbg("GC", C_text("%d recoverable weakly held items found\n"), weakn); } void handle_interrupt(void *trampoline) { C_word *p, h, reason, state, proc, n; double c; C_word av[ 4 ]; /* Build vector with context information: */ n = C_temporary_stack_bottom - C_temporary_stack; p = C_alloc(C_SIZEOF_VECTOR(2) + C_SIZEOF_VECTOR(n)); proc = (C_word)p; *(p++) = C_VECTOR_TYPE | C_BYTEBLOCK_BIT | sizeof(C_word); *(p++) = (C_word)trampoline; state = (C_word)p; *(p++) = C_VECTOR_TYPE | (n + 1); *(p++) = proc; C_memcpy(p, C_temporary_stack, n * sizeof(C_word)); /* Restore state to the one at the time of the interrupt: */ C_temporary_stack = C_temporary_stack_bottom; C_stack_limit = C_stack_hard_limit; /* Invoke high-level interrupt handler: */ reason = C_fix(pending_interrupts[ --pending_interrupts_count ]); proc = C_block_item(interrupt_hook_symbol, 0); if(C_immediatep(proc)) panic(C_text("`##sys#interrupt-hook' is not defined")); c = C_cpu_milliseconds() - interrupt_time; last_interrupt_latency = c; C_timer_interrupt_counter = C_initial_timer_interrupt_period; /* <- no continuation is passed: "##sys#interrupt-hook" may not return! */ av[ 0 ] = proc; av[ 1 ] = C_SCHEME_UNDEFINED; av[ 2 ] = reason; av[ 3 ] = state; C_do_apply(4, av); } void C_unbound_variable(C_word sym) { barf(C_UNBOUND_VARIABLE_ERROR, NULL, sym); } /* XXX: This needs to be given a better name. C_retrieve used to exist but it just called C_fast_retrieve */ C_regparm C_word C_fcall C_retrieve2(C_word val, char *name) { C_word *p; int len; if(val == C_SCHEME_UNBOUND) { len = C_strlen(name); /* this is ok: we won't return from `C_retrieve2' * (or the value isn't needed). */ p = C_alloc(C_SIZEOF_STRING(len)); C_unbound_variable(C_string2(&p, name)); } return val; } void C_ccall C_invalid_procedure(C_word c, C_word *av) { C_word self = av[0]; barf(C_NOT_A_CLOSURE_ERROR, NULL, self); } C_regparm void *C_fcall C_retrieve2_symbol_proc(C_word val, char *name) { C_word *p; int len; if(val == C_SCHEME_UNBOUND) { len = C_strlen(name); /* this is ok: we won't return from `C_retrieve2' (or the value isn't needed). */ p = C_alloc(C_SIZEOF_STRING(len)); barf(C_UNBOUND_VARIABLE_ERROR, NULL, C_string2(&p, name)); } return C_fast_retrieve_proc(val); } #ifdef C_NONUNIX VOID CALLBACK win_timer(PVOID data_ignored, BOOLEAN wait_or_fired) { if (profiling) take_profile_sample(); } #endif static void set_profile_timer(C_uword freq) { #ifdef C_NONUNIX static HANDLE timer = NULL; if (freq == 0) { assert(timer != NULL); if (!DeleteTimerQueueTimer(NULL, timer, NULL)) goto error; timer = NULL; } else if (freq < 1000) { panic(C_text("On Windows, sampling can only be done in milliseconds")); } else { if (!CreateTimerQueueTimer(&timer, NULL, win_timer, NULL, 0, freq/1000, 0)) goto error; } #else struct itimerval itv; itv.it_value.tv_sec = freq / 1000000; itv.it_value.tv_usec = freq % 1000000; itv.it_interval.tv_sec = itv.it_value.tv_sec; itv.it_interval.tv_usec = itv.it_value.tv_usec; if (setitimer(C_PROFILE_TIMER, &itv, NULL) == -1) goto error; #endif return; error: if (freq == 0) panic(C_text("error clearing timer for profiling")); else panic(C_text("error setting timer for profiling")); } /* Bump profile count for current top of trace buffer */ static void take_profile_sample() { PROFILE_BUCKET **bp, *b; C_char *key; TRACE_INFO *tb; /* To count distinct calls of a procedure, remember last call */ static C_char *prev_key = NULL; static TRACE_INFO *prev_tb = NULL; /* trace_buffer_top points *beyond* the topmost entry: Go back one */ if (trace_buffer_top == trace_buffer) { if (!trace_buffer_full) return; /* No data yet */ tb = trace_buffer_limit - 1; } else { tb = trace_buffer_top - 1; } /* We could also just hash the pointer but that's a bit trickier */ key = tb->raw; bp = profile_table + hash_string(C_strlen(key), key, PROFILE_TABLE_SIZE, 0, 0); b = *bp; /* First try to find pre-existing item in hash table */ while(b != NULL) { if(b->key == key) { b->sample_count++; if (prev_key != key && prev_tb != tb) b->call_count++; goto done; } else b = b->next; } /* Not found, allocate a new item and use it as bucket's new head */ b = next_profile_bucket; next_profile_bucket = NULL; assert(b != NULL); b->next = *bp; b->key = key; *bp = b; b->sample_count = 1; b->call_count = 1; done: prev_tb = tb; prev_key = key; } C_regparm void C_fcall C_trace(C_char *name) { C_word thread; if(show_trace) { C_fputs(name, C_stderr); C_fputc('\n', C_stderr); } /* * When profiling, pre-allocate profile bucket if necessary. This * is used in the signal handler, because it may not malloc. */ if(profiling && next_profile_bucket == NULL) { next_profile_bucket = (PROFILE_BUCKET *)C_malloc(sizeof(PROFILE_BUCKET)); if (next_profile_bucket == NULL) { panic(C_text("out of memory - cannot allocate profile table-bucket")); } } if(trace_buffer_top >= trace_buffer_limit) { trace_buffer_top = trace_buffer; trace_buffer_full = 1; } trace_buffer_top->raw = name; trace_buffer_top->cooked1 = C_SCHEME_FALSE; trace_buffer_top->cooked2 = C_SCHEME_FALSE; thread = C_block_item(current_thread_symbol, 0); trace_buffer_top->thread = C_and(C_blockp(thread), C_thread_id(thread)); ++trace_buffer_top; } C_regparm C_word C_fcall C_emit_trace_info2(char *raw, C_word x, C_word y, C_word t) { /* See above */ if(profiling && next_profile_bucket == NULL) { next_profile_bucket = (PROFILE_BUCKET *)C_malloc(sizeof(PROFILE_BUCKET)); if (next_profile_bucket == NULL) { panic(C_text("out of memory - cannot allocate profile table-bucket")); } } if(trace_buffer_top >= trace_buffer_limit) { trace_buffer_top = trace_buffer; trace_buffer_full = 1; } trace_buffer_top->raw = raw; trace_buffer_top->cooked1 = x; trace_buffer_top->cooked2 = y; trace_buffer_top->thread = t; ++trace_buffer_top; return x; } C_char *C_dump_trace(int start) { TRACE_INFO *ptr; C_char *result; int i, result_len; result_len = STRING_BUFFER_SIZE; if((result = (char *)C_malloc(result_len)) == NULL) horror(C_text("out of memory - cannot allocate trace-dump buffer")); *result = '\0'; if(trace_buffer_top > trace_buffer || trace_buffer_full) { if(trace_buffer_full) { i = C_trace_buffer_size; C_strlcat(result, C_text("...more...\n"), result_len); } else i = trace_buffer_top - trace_buffer; ptr = trace_buffer_full ? trace_buffer_top : trace_buffer; ptr += start; i -= start; for(;i--; ++ptr) { if(ptr >= trace_buffer_limit) ptr = trace_buffer; if(C_strlen(result) > STRING_BUFFER_SIZE - 32) { result_len = C_strlen(result) * 2; result = C_realloc(result, result_len); if(result == NULL) horror(C_text("out of memory - cannot reallocate trace-dump buffer")); } C_strlcat(result, ptr->raw, result_len); if(i > 0) C_strlcat(result, "\n", result_len); else C_strlcat(result, " \t<--\n", result_len); } } return result; } C_regparm void C_fcall C_clear_trace_buffer(void) { int i, old_profiling = profiling; profiling = 0; if(trace_buffer == NULL) { if(C_trace_buffer_size < MIN_TRACE_BUFFER_SIZE) C_trace_buffer_size = MIN_TRACE_BUFFER_SIZE; trace_buffer = (TRACE_INFO *)C_malloc(sizeof(TRACE_INFO) * C_trace_buffer_size); if(trace_buffer == NULL) panic(C_text("out of memory - cannot allocate trace-buffer")); } trace_buffer_top = trace_buffer; trace_buffer_limit = trace_buffer + C_trace_buffer_size; trace_buffer_full = 0; for(i = 0; i < C_trace_buffer_size; ++i) { trace_buffer[ i ].cooked1 = C_SCHEME_FALSE; trace_buffer[ i ].cooked2 = C_SCHEME_FALSE; trace_buffer[ i ].thread = C_SCHEME_FALSE; } profiling = old_profiling; } C_word C_resize_trace_buffer(C_word size) { int old_size = C_trace_buffer_size, old_profiling = profiling; assert(trace_buffer); profiling = 0; free(trace_buffer); trace_buffer = NULL; C_trace_buffer_size = C_unfix(size); C_clear_trace_buffer(); profiling = old_profiling; return(C_fix(old_size)); } C_word C_fetch_trace(C_word starti, C_word buffer) { TRACE_INFO *ptr; int i, p = 0, start = C_unfix(starti); if(trace_buffer_top > trace_buffer || trace_buffer_full) { if(trace_buffer_full) i = C_trace_buffer_size; else i = trace_buffer_top - trace_buffer; ptr = trace_buffer_full ? trace_buffer_top : trace_buffer; ptr += start; i -= start; if(C_header_size(buffer) < i * 4) panic(C_text("destination buffer too small for call-chain")); for(;i--; ++ptr) { if(ptr >= trace_buffer_limit) ptr = trace_buffer; /* outside-pointer, will be ignored by GC */ C_mutate(&C_block_item(buffer, p++), (C_word)ptr->raw); /* subject to GC */ C_mutate(&C_block_item(buffer, p++), ptr->cooked1); C_mutate(&C_block_item(buffer, p++), ptr->cooked2); C_mutate(&C_block_item(buffer, p++), ptr->thread); } } return C_fix(p); } C_regparm C_word C_fcall C_u_i_string_hash(C_word str, C_word rnd) { int len = C_header_size(str); C_char *ptr = C_data_pointer(str); return C_fix(hash_string(len, ptr, C_MOST_POSITIVE_FIXNUM, C_unfix(rnd), 0)); } C_regparm C_word C_fcall C_u_i_string_ci_hash(C_word str, C_word rnd) { int len = C_header_size(str); C_char *ptr = C_data_pointer(str); return C_fix(hash_string(len, ptr, C_MOST_POSITIVE_FIXNUM, C_unfix(rnd), 1)); } C_regparm void C_fcall C_toplevel_entry(C_char *name) { if(debug_mode) C_dbg(C_text("debug"), C_text("entering %s...\n"), name); } C_regparm C_word C_fcall C_a_i_provide(C_word **a, int c, C_word id) { if (debug_mode == 2) { C_word str = C_block_item(id, 1); C_snprintf(buffer, C_header_size(str) + 1, C_text("%s"), (C_char *) C_data_pointer(str)); C_dbg(C_text("debug"), C_text("providing %s...\n"), buffer); } return C_a_i_putprop(a, 3, core_provided_symbol, id, C_SCHEME_TRUE); } C_regparm C_word C_fcall C_i_providedp(C_word id) { return C_i_getprop(core_provided_symbol, id, C_SCHEME_FALSE); } C_word C_halt(C_word msg) { C_char *dmp = msg != C_SCHEME_FALSE ? C_dump_trace(0) : NULL; if(C_gui_mode) { if(msg != C_SCHEME_FALSE) { int n = C_header_size(msg); if (n >= sizeof(buffer)) n = sizeof(buffer) - 1; C_strlcpy(buffer, (C_char *)C_data_pointer(msg), n); /* XXX msg isn't checked for NUL bytes, but we can't barf here either! */ } else C_strlcpy(buffer, C_text("(aborted)"), sizeof(buffer)); C_strlcat(buffer, C_text("\n\n"), sizeof(buffer)); if(dmp != NULL) C_strlcat(buffer, dmp, sizeof(buffer)); #if defined(_WIN32) && !defined(__CYGWIN__) MessageBox(NULL, buffer, C_text("CHICKEN runtime"), MB_OK | MB_ICONERROR); ExitProcess(1); #endif } /* otherwise fall through */ if(msg != C_SCHEME_FALSE) { C_fwrite(C_data_pointer(msg), C_header_size(msg), sizeof(C_char), C_stderr); C_fputc('\n', C_stderr); } if(dmp != NULL) C_dbg("", C_text("\n%s"), dmp); C_exit_runtime(C_fix(EX_SOFTWARE)); return 0; } C_word C_message(C_word msg) { unsigned int n = C_header_size(msg); /* * Strictly speaking this isn't necessary for the non-gui-mode, * but let's try and keep this consistent across modes. */ if (C_memchr(C_c_string(msg), '\0', n) != NULL) barf(C_ASCIIZ_REPRESENTATION_ERROR, "##sys#message", msg); if(C_gui_mode) { if (n >= sizeof(buffer)) n = sizeof(buffer) - 1; C_strncpy(buffer, C_c_string(msg), n); buffer[ n ] = '\0'; #if defined(_WIN32) && !defined(__CYGWIN__) MessageBox(NULL, buffer, C_text("CHICKEN runtime"), MB_OK | MB_ICONEXCLAMATION); return C_SCHEME_UNDEFINED; #endif } /* fall through */ C_fwrite(C_c_string(msg), n, sizeof(C_char), stdout); C_putchar('\n'); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_equalp(C_word x, C_word y) { C_header header; C_word bits, n, i; C_stack_check1(barf(C_CIRCULAR_DATA_ERROR, "equal?")); loop: if(x == y) return 1; if(C_immediatep(x) || C_immediatep(y)) return 0; if((header = C_block_header(x)) != C_block_header(y)) return 0; else if((bits = header & C_HEADER_BITS_MASK) & C_BYTEBLOCK_BIT) { if(header == C_FLONUM_TAG && C_block_header(y) == C_FLONUM_TAG) return C_flonum_magnitude(x) == C_flonum_magnitude(y); else return !C_memcmp(C_data_pointer(x), C_data_pointer(y), header & C_HEADER_SIZE_MASK); } else if(header == C_SYMBOL_TAG) return 0; else { i = 0; n = header & C_HEADER_SIZE_MASK; if(bits & C_SPECIALBLOCK_BIT) { /* do not recurse into closures */ if(C_header_bits(x) == C_CLOSURE_TYPE) return !C_memcmp(C_data_pointer(x), C_data_pointer(y), n * sizeof(C_word)); else if(C_block_item(x, 0) != C_block_item(y, 0)) return 0; else ++i; if(n == 1) return 1; } if(--n < 0) return 1; while(i < n) if(!C_equalp(C_block_item(x, i), C_block_item(y, i))) return 0; else ++i; x = C_block_item(x, i); y = C_block_item(y, i); goto loop; } } C_regparm C_word C_fcall C_set_gc_report(C_word flag) { if(flag == C_SCHEME_FALSE) gc_report_flag = 0; else if(flag == C_SCHEME_TRUE) gc_report_flag = 2; else gc_report_flag = 1; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_accumulated_gc_time(void) { double tgc; tgc = timer_accumulated_gc_ms; timer_accumulated_gc_ms = 0; return C_fix(tgc); } C_regparm C_word C_fcall C_start_timer(void) { tracked_mutation_count = 0; mutation_count = 0; gc_count_1_total = 0; gc_count_2 = 0; timer_start_ms = C_cpu_milliseconds(); gc_ms = 0; maximum_heap_usage = 0; return C_SCHEME_UNDEFINED; } void C_ccall C_stop_timer(C_word c, C_word *av) { C_word closure = av[ 0 ], k = av[ 1 ]; double t0 = C_cpu_milliseconds() - timer_start_ms; C_word ab[ WORDS_PER_FLONUM * 2 + C_SIZEOF_BIGNUM(1) + C_SIZEOF_VECTOR(7) ], *a = ab, elapsed = C_flonum(&a, t0 / 1000.0), gc_time = C_flonum(&a, gc_ms / 1000.0), heap_usage = C_unsigned_int_to_num(&a, maximum_heap_usage), info; info = C_vector(&a, 7, elapsed, gc_time, C_fix(mutation_count), C_fix(tracked_mutation_count), C_fix(gc_count_1_total), C_fix(gc_count_2), heap_usage); C_kontinue(k, info); } C_word C_exit_runtime(C_word code) { C_fflush(NULL); C__exit(C_unfix(code)); } C_regparm C_word C_fcall C_set_print_precision(C_word n) { flonum_print_precision = C_unfix(n); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_get_print_precision(void) { return C_fix(flonum_print_precision); } C_regparm C_word C_fcall C_read_char(C_word port) { C_FILEPTR fp = C_port_file(port); int c = C_getc(fp); if(c == EOF) { if(ferror(fp)) { clearerr(fp); return C_fix(-1); } /* Found here: http://mail.python.org/pipermail/python-bugs-list/2002-July/012579.html */ #if defined(_WIN32) && !defined(__CYGWIN__) else if(GetLastError() == ERROR_OPERATION_ABORTED) return C_fix(-1); #endif else return C_SCHEME_END_OF_FILE; } return C_make_character(c); } C_regparm C_word C_fcall C_peek_char(C_word port) { C_FILEPTR fp = C_port_file(port); int c = C_getc(fp); if(c == EOF) { if(ferror(fp)) { clearerr(fp); return C_fix(-1); } /* see above */ #if defined(_WIN32) && !defined(__CYGWIN__) else if(GetLastError() == ERROR_OPERATION_ABORTED) return C_fix(-1); #endif else return C_SCHEME_END_OF_FILE; } C_ungetc(c, fp); return C_make_character(c); } C_regparm C_word C_fcall C_execute_shell_command(C_word string) { int n = C_header_size(string); char *buf = buffer; /* Windows doc says to flush all output streams before calling system. Probably a good idea for all platforms. */ (void)fflush(NULL); if(n >= STRING_BUFFER_SIZE) { if((buf = (char *)C_malloc(n + 1)) == NULL) barf(C_OUT_OF_MEMORY_ERROR, "system"); } C_memcpy(buf, C_data_pointer(string), n); buf[ n ] = '\0'; if (n != strlen(buf)) barf(C_ASCIIZ_REPRESENTATION_ERROR, "system", string); n = C_system(buf); if(buf != buffer) C_free(buf); return C_fix(n); } /* * TODO: Implement something for Windows that supports selecting on * arbitrary fds (there, select() only works on network sockets and * poll() is not available at all). */ C_regparm int C_fcall C_check_fd_ready(int fd) { #ifdef NO_POSIX_POLL fd_set in; struct timeval tm; int rv; FD_ZERO(&in); FD_SET(fd, &in); tm.tv_sec = tm.tv_usec = 0; rv = select(fd + 1, &in, NULL, NULL, &tm); if(rv > 0) { rv = FD_ISSET(fd, &in) ? 1 : 0; } return rv; #else struct pollfd ps; ps.fd = fd; ps.events = POLLIN; return poll(&ps, 1, 0); #endif } C_regparm C_word C_fcall C_char_ready_p(C_word port) { #if defined(C_NONUNIX) /* The best we can currently do on Windows... */ return C_SCHEME_TRUE; #else int fd = C_fileno(C_port_file(port)); return C_mk_bool(C_check_fd_ready(fd) == 1); #endif } C_regparm C_word C_fcall C_i_tty_forcedp(void) { return C_mk_bool(fake_tty_flag); } C_regparm C_word C_fcall C_i_debug_modep(void) { return C_mk_bool(debug_mode); } C_regparm C_word C_fcall C_i_dump_heap_on_exitp(void) { return C_mk_bool(dump_heap_on_exit); } C_regparm C_word C_fcall C_i_profilingp(void) { return C_mk_bool(profiling); } C_regparm C_word C_fcall C_i_live_finalizer_count(void) { return C_fix(live_finalizer_count); } C_regparm C_word C_fcall C_i_allocated_finalizer_count(void) { return C_fix(allocated_finalizer_count); } C_regparm void C_fcall C_raise_interrupt(int reason) { if(C_interrupts_enabled) { if(pending_interrupts_count == 0 && !handling_interrupts) { pending_interrupts[ pending_interrupts_count++ ] = reason; /* * Force the next "soft" stack check to fail by faking a "full" * stack. This causes save_and_reclaim() to be called, which * invokes handle_interrupt(), which restores the stack limit. */ C_stack_limit = stack_bottom; interrupt_time = C_cpu_milliseconds(); } else if(pending_interrupts_count < MAX_PENDING_INTERRUPTS) { int i; /* * Drop signals if too many, but don't queue up multiple entries * for the same signal. */ for (i = 0; i < pending_interrupts_count; ++i) { if (pending_interrupts[i] == reason) return; } pending_interrupts[ pending_interrupts_count++ ] = reason; } } } C_regparm C_word C_fcall C_enable_interrupts(void) { C_timer_interrupt_counter = C_initial_timer_interrupt_period; /* assert(C_timer_interrupt_counter > 0); */ C_interrupts_enabled = 1; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_disable_interrupts(void) { C_interrupts_enabled = 0; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_establish_signal_handler(C_word signum, C_word reason) { int sig = C_unfix(signum); #if defined(HAVE_SIGACTION) struct sigaction newsig; #endif if(reason == C_SCHEME_FALSE) C_signal(sig, SIG_IGN); else { signal_mapping_table[ sig ] = C_unfix(reason); #if defined(HAVE_SIGACTION) newsig.sa_flags = 0; /* The global signal handler is used for all signals, and manipulates a single queue. Don't allow other signals to concurrently arrive while it's doing this, to avoid races. */ sigfillset(&newsig.sa_mask); newsig.sa_handler = global_signal_handler; C_sigaction(sig, &newsig, NULL); #else C_signal(sig, global_signal_handler); #endif } return C_SCHEME_UNDEFINED; } /* Copy blocks into collected or static memory: */ C_regparm C_word C_fcall C_copy_block(C_word from, C_word to) { int n = C_header_size(from); C_long bytes; if(C_header_bits(from) & C_BYTEBLOCK_BIT) { bytes = n; C_memcpy((C_SCHEME_BLOCK *)to, (C_SCHEME_BLOCK *)from, bytes + sizeof(C_header)); } else { bytes = C_wordstobytes(n); C_memcpy((C_SCHEME_BLOCK *)to, (C_SCHEME_BLOCK *)from, bytes + sizeof(C_header)); } return to; } C_regparm C_word C_fcall C_evict_block(C_word from, C_word ptr) { int n = C_header_size(from); C_long bytes; C_word *p = (C_word *)C_pointer_address(ptr); if(C_header_bits(from) & C_BYTEBLOCK_BIT) bytes = n; else bytes = C_wordstobytes(n); C_memcpy(p, (C_SCHEME_BLOCK *)from, bytes + sizeof(C_header)); return (C_word)p; } /* Inline versions of some standard procedures: */ C_regparm C_word C_fcall C_i_listp(C_word x) { C_word fast = x, slow = x; while(fast != C_SCHEME_END_OF_LIST) if(!C_immediatep(fast) && C_block_header(fast) == C_PAIR_TAG) { fast = C_u_i_cdr(fast); if(fast == C_SCHEME_END_OF_LIST) return C_SCHEME_TRUE; else if(!C_immediatep(fast) && C_block_header(fast) == C_PAIR_TAG) { fast = C_u_i_cdr(fast); slow = C_u_i_cdr(slow); if(fast == slow) return C_SCHEME_FALSE; } else return C_SCHEME_FALSE; } else return C_SCHEME_FALSE; return C_SCHEME_TRUE; } C_regparm C_word C_fcall C_i_u8vectorp(C_word x) { return C_i_structurep(x, u8vector_symbol); } C_regparm C_word C_fcall C_i_s8vectorp(C_word x) { return C_i_structurep(x, s8vector_symbol); } C_regparm C_word C_fcall C_i_u16vectorp(C_word x) { return C_i_structurep(x, u16vector_symbol); } C_regparm C_word C_fcall C_i_s16vectorp(C_word x) { return C_i_structurep(x, s16vector_symbol); } C_regparm C_word C_fcall C_i_u32vectorp(C_word x) { return C_i_structurep(x, u32vector_symbol); } C_regparm C_word C_fcall C_i_s32vectorp(C_word x) { return C_i_structurep(x, s32vector_symbol); } C_regparm C_word C_fcall C_i_u64vectorp(C_word x) { return C_i_structurep(x, u64vector_symbol); } C_regparm C_word C_fcall C_i_s64vectorp(C_word x) { return C_i_structurep(x, s64vector_symbol); } C_regparm C_word C_fcall C_i_f32vectorp(C_word x) { return C_i_structurep(x, f32vector_symbol); } C_regparm C_word C_fcall C_i_f64vectorp(C_word x) { return C_i_structurep(x, f64vector_symbol); } C_regparm C_word C_fcall C_i_string_equal_p(C_word x, C_word y) { C_word n; if(C_immediatep(x) || C_header_bits(x) != C_STRING_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string=?", x); if(C_immediatep(y) || C_header_bits(y) != C_STRING_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string=?", y); n = C_header_size(x); return C_mk_bool(n == C_header_size(y) && !C_memcmp((char *)C_data_pointer(x), (char *)C_data_pointer(y), n)); } C_regparm C_word C_fcall C_i_string_ci_equal_p(C_word x, C_word y) { C_word n; char *p1, *p2; if(C_immediatep(x) || C_header_bits(x) != C_STRING_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string-ci=?", x); if(C_immediatep(y) || C_header_bits(y) != C_STRING_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string-ci=?", y); n = C_header_size(x); if(n != C_header_size(y)) return C_SCHEME_FALSE; p1 = (char *)C_data_pointer(x); p2 = (char *)C_data_pointer(y); while(n--) { if(C_tolower((int)(*(p1++))) != C_tolower((int)(*(p2++)))) return C_SCHEME_FALSE; } return C_SCHEME_TRUE; } C_word C_a_i_list(C_word **a, int c, ...) { va_list v; C_word x, last, current, first = C_SCHEME_END_OF_LIST; va_start(v, c); for(last = C_SCHEME_UNDEFINED; c--; last = current) { x = va_arg(v, C_word); current = C_a_pair(a, x, C_SCHEME_END_OF_LIST); if(last != C_SCHEME_UNDEFINED) C_set_block_item(last, 1, current); else first = current; } va_end(v); return first; } C_word C_a_i_string(C_word **a, int c, ...) { va_list v; C_word x, s = (C_word)(*a); char *p; *a = (C_word *)((C_word)(*a) + sizeof(C_header) + C_align(c)); C_block_header_init(s, C_STRING_TYPE | c); p = (char *)C_data_pointer(s); va_start(v, c); for(; c; c--) { x = va_arg(v, C_word); if((x & C_IMMEDIATE_TYPE_BITS) == C_CHARACTER_BITS) *(p++) = C_character_code(x); else break; } va_end(v); if (c) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string", x); return s; } C_word C_a_i_record(C_word **ptr, int n, ...) { va_list v; C_word *p = *ptr, *p0 = p; *(p++) = C_STRUCTURE_TYPE | n; va_start(v, n); while(n--) *(p++) = va_arg(v, C_word); *ptr = p; va_end(v); return (C_word)p0; } C_word C_a_i_port(C_word **ptr, int n) { C_word *p = *ptr, *p0 = p; int i; *(p++) = C_PORT_TYPE | (C_SIZEOF_PORT - 1); *(p++) = (C_word)NULL; for(i = 0; i < C_SIZEOF_PORT - 2; ++i) *(p++) = C_SCHEME_FALSE; *ptr = p; return (C_word)p0; } C_regparm C_word C_fcall C_a_i_bytevector(C_word **ptr, int c, C_word num) { C_word *p = *ptr, *p0; int n = C_unfix(num); #ifndef C_SIXTY_FOUR /* Align on 8-byte boundary: */ if(C_aligned8(p)) ++p; #endif p0 = p; *(p++) = C_BYTEVECTOR_TYPE | C_wordstobytes(n); *ptr = p + n; return (C_word)p0; } C_word C_fcall C_a_i_smart_mpointer(C_word **ptr, int c, C_word x) { C_word *p = *ptr, *p0 = p; void *mp; if(C_immediatep(x)) mp = NULL; else if((C_header_bits(x) & C_SPECIALBLOCK_BIT) != 0) mp = C_pointer_address(x); else mp = C_data_pointer(x); *(p++) = C_POINTER_TYPE | 1; *((void **)p) = mp; *ptr = p + 1; return (C_word)p0; } C_regparm C_word C_fcall C_i_nanp(C_word x) { if (x & C_FIXNUM_BIT) { return C_SCHEME_FALSE; } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "nan?", x); } else if (C_block_header(x) == C_FLONUM_TAG) { return C_u_i_flonum_nanp(x); } else if (C_truep(C_bignump(x))) { return C_SCHEME_FALSE; } else if (C_block_header(x) == C_RATNUM_TAG) { return C_SCHEME_FALSE; } else if (C_block_header(x) == C_CPLXNUM_TAG) { return C_mk_bool(C_truep(C_i_nanp(C_u_i_cplxnum_real(x))) || C_truep(C_i_nanp(C_u_i_cplxnum_imag(x)))); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "nan?", x); } } C_regparm C_word C_fcall C_i_finitep(C_word x) { if (x & C_FIXNUM_BIT) { return C_SCHEME_TRUE; } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "finite?", x); } else if (C_block_header(x) == C_FLONUM_TAG) { return C_u_i_flonum_finitep(x); } else if (C_truep(C_bignump(x))) { return C_SCHEME_TRUE; } else if (C_block_header(x) == C_RATNUM_TAG) { return C_SCHEME_TRUE; } else if (C_block_header(x) == C_CPLXNUM_TAG) { return C_and(C_i_finitep(C_u_i_cplxnum_real(x)), C_i_finitep(C_u_i_cplxnum_imag(x))); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "finite?", x); } } C_regparm C_word C_fcall C_i_infinitep(C_word x) { if (x & C_FIXNUM_BIT) { return C_SCHEME_FALSE; } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "infinite?", x); } else if (C_block_header(x) == C_FLONUM_TAG) { return C_u_i_flonum_infinitep(x); } else if (C_truep(C_bignump(x))) { return C_SCHEME_FALSE; } else if (C_block_header(x) == C_RATNUM_TAG) { return C_SCHEME_FALSE; } else if (C_block_header(x) == C_CPLXNUM_TAG) { return C_mk_bool(C_truep(C_i_infinitep(C_u_i_cplxnum_real(x))) || C_truep(C_i_infinitep(C_u_i_cplxnum_imag(x)))); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "infinite?", x); } } C_regparm C_word C_fcall C_i_exactp(C_word x) { if (x & C_FIXNUM_BIT) { return C_SCHEME_TRUE; } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "exact?", x); } else if (C_block_header(x) == C_FLONUM_TAG) { return C_SCHEME_FALSE; } else if (C_truep(C_bignump(x))) { return C_SCHEME_TRUE; } else if (C_block_header(x) == C_RATNUM_TAG) { return C_SCHEME_TRUE; } else if (C_block_header(x) == C_CPLXNUM_TAG) { return C_i_exactp(C_u_i_cplxnum_real(x)); /* Exactness of i and r matches */ } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "exact?", x); } } C_regparm C_word C_fcall C_i_inexactp(C_word x) { if (x & C_FIXNUM_BIT) { return C_SCHEME_FALSE; } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "inexact?", x); } else if (C_block_header(x) == C_FLONUM_TAG) { return C_SCHEME_TRUE; } else if (C_truep(C_bignump(x))) { return C_SCHEME_FALSE; } else if (C_block_header(x) == C_RATNUM_TAG) { return C_SCHEME_FALSE; } else if (C_block_header(x) == C_CPLXNUM_TAG) { return C_i_inexactp(C_u_i_cplxnum_real(x)); /* Exactness of i and r matches */ } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "inexact?", x); } } C_regparm C_word C_fcall C_i_zerop(C_word x) { if (x & C_FIXNUM_BIT) { return C_mk_bool(x == C_fix(0)); } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "zero?", x); } else if (C_block_header(x) == C_FLONUM_TAG) { return C_mk_bool(C_flonum_magnitude(x) == 0.0); } else if (C_block_header(x) == C_BIGNUM_TAG || C_block_header(x) == C_RATNUM_TAG || C_block_header(x) == C_CPLXNUM_TAG) { return C_SCHEME_FALSE; } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "zero?", x); } } /* I */ C_regparm C_word C_fcall C_u_i_zerop(C_word x) { return C_mk_bool(x == C_fix(0) || (!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG && C_flonum_magnitude(x) == 0.0)); } C_regparm C_word C_fcall C_i_positivep(C_word x) { if (x & C_FIXNUM_BIT) return C_i_fixnum_positivep(x); else if (C_immediatep(x)) barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "positive?", x); else if (C_block_header(x) == C_FLONUM_TAG) return C_mk_bool(C_flonum_magnitude(x) > 0.0); else if (C_truep(C_bignump(x))) return C_mk_nbool(C_bignum_negativep(x)); else if (C_block_header(x) == C_RATNUM_TAG) return C_i_integer_positivep(C_u_i_ratnum_num(x)); else if (C_block_header(x) == C_CPLXNUM_TAG) barf(C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR, "positive?", x); else barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "positive?", x); } C_regparm C_word C_fcall C_i_integer_positivep(C_word x) { if (x & C_FIXNUM_BIT) return C_i_fixnum_positivep(x); else return C_mk_nbool(C_bignum_negativep(x)); } C_regparm C_word C_fcall C_i_negativep(C_word x) { if (x & C_FIXNUM_BIT) return C_i_fixnum_negativep(x); else if (C_immediatep(x)) barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "negative?", x); else if (C_block_header(x) == C_FLONUM_TAG) return C_mk_bool(C_flonum_magnitude(x) < 0.0); else if (C_truep(C_bignump(x))) return C_mk_bool(C_bignum_negativep(x)); else if (C_block_header(x) == C_RATNUM_TAG) return C_i_integer_negativep(C_u_i_ratnum_num(x)); else if (C_block_header(x) == C_CPLXNUM_TAG) barf(C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR, "negative?", x); else barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "negative?", x); } C_regparm C_word C_fcall C_i_integer_negativep(C_word x) { if (x & C_FIXNUM_BIT) return C_i_fixnum_negativep(x); else return C_mk_bool(C_bignum_negativep(x)); } C_regparm C_word C_fcall C_i_evenp(C_word x) { if(x & C_FIXNUM_BIT) { return C_i_fixnumevenp(x); } else if(C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "even?", x); } else if (C_block_header(x) == C_FLONUM_TAG) { double val, dummy; val = C_flonum_magnitude(x); if(C_isnan(val) || C_isinf(val) || C_modf(val, &dummy) != 0.0) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "even?", x); else return C_mk_bool(fmod(val, 2.0) == 0.0); } else if (C_truep(C_bignump(x))) { return C_mk_nbool(C_bignum_digits(x)[0] & 1); } else { /* No need to try extended number */ barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "even?", x); } } C_regparm C_word C_fcall C_i_integer_evenp(C_word x) { if (x & C_FIXNUM_BIT) return C_i_fixnumevenp(x); return C_mk_nbool(C_bignum_digits(x)[0] & 1); } C_regparm C_word C_fcall C_i_oddp(C_word x) { if(x & C_FIXNUM_BIT) { return C_i_fixnumoddp(x); } else if(C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "odd?", x); } else if(C_block_header(x) == C_FLONUM_TAG) { double val, dummy; val = C_flonum_magnitude(x); if(C_isnan(val) || C_isinf(val) || C_modf(val, &dummy) != 0.0) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "odd?", x); else return C_mk_bool(fmod(val, 2.0) != 0.0); } else if (C_truep(C_bignump(x))) { return C_mk_bool(C_bignum_digits(x)[0] & 1); } else { barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "odd?", x); } } C_regparm C_word C_fcall C_i_integer_oddp(C_word x) { if (x & C_FIXNUM_BIT) return C_i_fixnumoddp(x); return C_mk_bool(C_bignum_digits(x)[0] & 1); } C_regparm C_word C_fcall C_i_car(C_word x) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "car", x); return C_u_i_car(x); } C_regparm C_word C_fcall C_i_cdr(C_word x) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "cdr", x); return C_u_i_cdr(x); } C_regparm C_word C_fcall C_i_caar(C_word x) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) { bad: barf(C_BAD_ARGUMENT_TYPE_ERROR, "caar", x); } x = C_u_i_car(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; return C_u_i_car(x); } C_regparm C_word C_fcall C_i_cadr(C_word x) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) { bad: barf(C_BAD_ARGUMENT_TYPE_ERROR, "cadr", x); } x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; return C_u_i_car(x); } C_regparm C_word C_fcall C_i_cdar(C_word x) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) { bad: barf(C_BAD_ARGUMENT_TYPE_ERROR, "cdar", x); } x = C_u_i_car(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; return C_u_i_cdr(x); } C_regparm C_word C_fcall C_i_cddr(C_word x) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) { bad: barf(C_BAD_ARGUMENT_TYPE_ERROR, "cddr", x); } x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; return C_u_i_cdr(x); } C_regparm C_word C_fcall C_i_caddr(C_word x) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) { bad: barf(C_BAD_ARGUMENT_TYPE_ERROR, "caddr", x); } x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; return C_u_i_car(x); } C_regparm C_word C_fcall C_i_cdddr(C_word x) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) { bad: barf(C_BAD_ARGUMENT_TYPE_ERROR, "cdddr", x); } x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; return C_u_i_cdr(x); } C_regparm C_word C_fcall C_i_cadddr(C_word x) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) { bad: barf(C_BAD_ARGUMENT_TYPE_ERROR, "cadddr", x); } x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; return C_u_i_car(x); } C_regparm C_word C_fcall C_i_cddddr(C_word x) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) { bad: barf(C_BAD_ARGUMENT_TYPE_ERROR, "cddddr", x); } x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; x = C_u_i_cdr(x); if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) goto bad; return C_u_i_cdr(x); } C_regparm C_word C_fcall C_i_list_tail(C_word lst, C_word i) { C_word lst0 = lst; int n; if(lst != C_SCHEME_END_OF_LIST && (C_immediatep(lst) || C_block_header(lst) != C_PAIR_TAG)) barf(C_BAD_ARGUMENT_TYPE_ERROR, "list-tail", lst); if(i & C_FIXNUM_BIT) n = C_unfix(i); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "list-tail", i); while(n--) { if(C_immediatep(lst) || C_block_header(lst) != C_PAIR_TAG) barf(C_OUT_OF_RANGE_ERROR, "list-tail", lst0, i); lst = C_u_i_cdr(lst); } return lst; } C_regparm C_word C_fcall C_i_vector_ref(C_word v, C_word i) { int j; if(C_immediatep(v) || C_header_bits(v) != C_VECTOR_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "vector-ref", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= C_header_size(v)) barf(C_OUT_OF_RANGE_ERROR, "vector-ref", v, i); return C_block_item(v, j); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "vector-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_u8vector_ref(C_word v, C_word i) { int j; if(!C_truep(C_i_u8vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u8vector-ref", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= C_header_size(C_block_item(v, 1))) barf(C_OUT_OF_RANGE_ERROR, "u8vector-ref", v, i); return C_fix(((unsigned char *)C_data_pointer(C_block_item(v, 1)))[j]); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "u8vector-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_s8vector_ref(C_word v, C_word i) { int j; if(!C_truep(C_i_s8vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-ref", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= C_header_size(C_block_item(v, 1))) barf(C_OUT_OF_RANGE_ERROR, "s8vector-ref", v, i); return C_fix(((signed char *)C_data_pointer(C_block_item(v, 1)))[j]); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_u16vector_ref(C_word v, C_word i) { int j; if(!C_truep(C_i_u16vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-ref", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 1)) barf(C_OUT_OF_RANGE_ERROR, "u16vector-ref", v, i); return C_fix(((unsigned short *)C_data_pointer(C_block_item(v, 1)))[j]); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_s16vector_ref(C_word v, C_word i) { C_word size; int j; if(C_immediatep(v) || C_header_bits(v) != C_STRUCTURE_TYPE || C_header_size(v) != 2 || C_block_item(v, 0) != s16vector_symbol) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-ref", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 1)) barf(C_OUT_OF_RANGE_ERROR, "u16vector-ref", v, i); return C_fix(((signed short *)C_data_pointer(C_block_item(v, 1)))[j]); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_a_i_u32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) { int j; if(!C_truep(C_i_u32vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-ref", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) barf(C_OUT_OF_RANGE_ERROR, "u32vector-ref", v, i); return C_unsigned_int_to_num(ptr, ((C_u32 *)C_data_pointer(C_block_item(v, 1)))[j]); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_a_i_s32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) { int j; if(!C_truep(C_i_s32vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-ref", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) barf(C_OUT_OF_RANGE_ERROR, "s32vector-ref", v, i); return C_int_to_num(ptr, ((C_s32 *)C_data_pointer(C_block_item(v, 1)))[j]); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_a_i_u64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) { int j; if(!C_truep(C_i_u64vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-ref", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) barf(C_OUT_OF_RANGE_ERROR, "u64vector-ref", v, i); return C_uint64_to_num(ptr, ((C_u64 *)C_data_pointer(C_block_item(v, 1)))[j]); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_a_i_s64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) { int j; if(!C_truep(C_i_s64vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-ref", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) barf(C_OUT_OF_RANGE_ERROR, "s64vector-ref", v, i); return C_int64_to_num(ptr, ((C_s64 *)C_data_pointer(C_block_item(v, 1)))[j]); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_a_i_f32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) { int j; if(!C_truep(C_i_f32vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "f32vector-ref", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) barf(C_OUT_OF_RANGE_ERROR, "f32vector-ref", v, i); return C_flonum(ptr, ((float *)C_data_pointer(C_block_item(v, 1)))[j]); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "f32vector-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_a_i_f64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) { C_word size; int j; if(!C_truep(C_i_f64vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "f64vector-ref", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) barf(C_OUT_OF_RANGE_ERROR, "f64vector-ref", v, i); return C_flonum(ptr, ((double *)C_data_pointer(C_block_item(v, 1)))[j]); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "f64vector-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_block_ref(C_word x, C_word i) { int j; if(C_immediatep(x) || (C_header_bits(x) & C_BYTEBLOCK_BIT) != 0) barf(C_BAD_ARGUMENT_TYPE_NO_BLOCK_ERROR, "##sys#block-ref", x); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= C_header_size(x)) barf(C_OUT_OF_RANGE_ERROR, "##sys#block-ref", x, i); return C_block_item(x, j); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "##sys#block-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_string_set(C_word s, C_word i, C_word c) { int j; if(C_immediatep(s) || C_header_bits(s) != C_STRING_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string-set!", s); if(!C_immediatep(c) || (c & C_IMMEDIATE_TYPE_BITS) != C_CHARACTER_BITS) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string-set!", c); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= C_header_size(s)) barf(C_OUT_OF_RANGE_ERROR, "string-set!", s, i); return C_setsubchar(s, i, c); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "string-set!", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_string_ref(C_word s, C_word i) { int j; if(C_immediatep(s) || C_header_bits(s) != C_STRING_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string-ref", s); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= C_header_size(s)) barf(C_OUT_OF_RANGE_ERROR, "string-ref", s, i); return C_subchar(s, i); } barf(C_BAD_ARGUMENT_TYPE_ERROR, "string-ref", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_vector_length(C_word v) { if(C_immediatep(v) || C_header_bits(v) != C_VECTOR_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "vector-length", v); return C_fix(C_header_size(v)); } C_regparm C_word C_fcall C_i_u8vector_length(C_word v) { if(!C_truep(C_i_u8vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u8vector-length", v); return C_fix(C_header_size(C_block_item(v, 1))); } C_regparm C_word C_fcall C_i_s8vector_length(C_word v) { if(!C_truep(C_i_s8vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-length", v); return C_fix(C_header_size(C_block_item(v, 1))); } C_regparm C_word C_fcall C_i_u16vector_length(C_word v) { if(!C_truep(C_i_u16vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-length", v); return C_fix(C_header_size(C_block_item(v, 1)) >> 1); } C_regparm C_word C_fcall C_i_s16vector_length(C_word v) { if(!C_truep(C_i_s16vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-length", v); return C_fix(C_header_size(C_block_item(v, 1)) >> 1); } C_regparm C_word C_fcall C_i_u32vector_length(C_word v) { if(!C_truep(C_i_u32vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-length", v); return C_fix(C_header_size(C_block_item(v, 1)) >> 2); } C_regparm C_word C_fcall C_i_s32vector_length(C_word v) { if(!C_truep(C_i_s32vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-length", v); return C_fix(C_header_size(C_block_item(v, 1)) >> 2); } C_regparm C_word C_fcall C_i_u64vector_length(C_word v) { if(!C_truep(C_i_u64vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-length", v); return C_fix(C_header_size(C_block_item(v, 1)) >> 3); } C_regparm C_word C_fcall C_i_s64vector_length(C_word v) { if(!C_truep(C_i_s64vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-length", v); return C_fix(C_header_size(C_block_item(v, 1)) >> 3); } C_regparm C_word C_fcall C_i_f32vector_length(C_word v) { if(!C_truep(C_i_f32vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "f32vector-length", v); return C_fix(C_header_size(C_block_item(v, 1)) >> 2); } C_regparm C_word C_fcall C_i_f64vector_length(C_word v) { if(!C_truep(C_i_f64vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "f64vector-length", v); return C_fix(C_header_size(C_block_item(v, 1)) >> 3); } C_regparm C_word C_fcall C_i_string_length(C_word s) { if(C_immediatep(s) || C_header_bits(s) != C_STRING_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string-length", s); return C_fix(C_header_size(s)); } C_regparm C_word C_fcall C_i_length(C_word lst) { C_word fast = lst, slow = lst; int n = 0; while(slow != C_SCHEME_END_OF_LIST) { if(fast != C_SCHEME_END_OF_LIST) { if(!C_immediatep(fast) && C_block_header(fast) == C_PAIR_TAG) { fast = C_u_i_cdr(fast); if(fast != C_SCHEME_END_OF_LIST) { if(!C_immediatep(fast) && C_block_header(fast) == C_PAIR_TAG) { fast = C_u_i_cdr(fast); } else barf(C_NOT_A_PROPER_LIST_ERROR, "length", lst); } if(fast == slow) barf(C_BAD_ARGUMENT_TYPE_CYCLIC_LIST_ERROR, "length", lst); } } if(C_immediatep(slow) || C_block_header(slow) != C_PAIR_TAG) barf(C_NOT_A_PROPER_LIST_ERROR, "length", lst); slow = C_u_i_cdr(slow); ++n; } return C_fix(n); } C_regparm C_word C_fcall C_u_i_length(C_word lst) { int n = 0; while(!C_immediatep(lst) && C_block_header(lst) == C_PAIR_TAG) { lst = C_u_i_cdr(lst); ++n; } return C_fix(n); } C_regparm C_word C_fcall C_i_set_car(C_word x, C_word val) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "set-car!", x); C_mutate(&C_u_i_car(x), val); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_set_cdr(C_word x, C_word val) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "set-cdr!", x); C_mutate(&C_u_i_cdr(x), val); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_vector_set(C_word v, C_word i, C_word x) { int j; if(C_immediatep(v) || C_header_bits(v) != C_VECTOR_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "vector-set!", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= C_header_size(v)) barf(C_OUT_OF_RANGE_ERROR, "vector-set!", v, i); C_mutate(&C_block_item(v, j), x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "vector-set!", i); return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_u8vector_set(C_word v, C_word i, C_word x) { int j; C_word n; if(!C_truep(C_i_u8vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u8vector-set!", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= C_header_size(C_block_item(v, 1))) barf(C_OUT_OF_RANGE_ERROR, "u8vector-set!", v, i); if(x & C_FIXNUM_BIT) { if (!(x & C_INT_SIGN_BIT) && C_ilen(C_unfix(x)) <= 8) n = C_unfix(x); else barf(C_OUT_OF_RANGE_ERROR, "u8vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u8vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u8vector-set!", i); ((unsigned char *)C_data_pointer(C_block_item(v, 1)))[j] = n; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_s8vector_set(C_word v, C_word i, C_word x) { int j; C_word n; if(!C_truep(C_i_s8vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-set!", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= C_header_size(C_block_item(v, 1))) barf(C_OUT_OF_RANGE_ERROR, "s8vector-set!", v, i); if(x & C_FIXNUM_BIT) { if (C_unfix(C_i_fixnum_length(x)) <= 8) n = C_unfix(x); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-set!", i); ((signed char *)C_data_pointer(C_block_item(v, 1)))[j] = n; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_u16vector_set(C_word v, C_word i, C_word x) { int j; C_word n; if(!C_truep(C_i_u16vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-set!", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 1)) barf(C_OUT_OF_RANGE_ERROR, "u16vector-set!", v, i); if(x & C_FIXNUM_BIT) { if (!(x & C_INT_SIGN_BIT) && C_ilen(C_unfix(x)) <= 16) n = C_unfix(x); else barf(C_OUT_OF_RANGE_ERROR, "u16vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-set!", i); ((unsigned short *)C_data_pointer(C_block_item(v, 1)))[j] = n; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_s16vector_set(C_word v, C_word i, C_word x) { int j; C_word n; if(!C_truep(C_i_s16vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-set!", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 1)) barf(C_OUT_OF_RANGE_ERROR, "u16vector-set!", v, i); if(x & C_FIXNUM_BIT) { if (C_unfix(C_i_fixnum_length(x)) <= 16) n = C_unfix(x); else barf(C_OUT_OF_RANGE_ERROR, "s16vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-set!", i); ((short *)C_data_pointer(C_block_item(v, 1)))[j] = n; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_u32vector_set(C_word v, C_word i, C_word x) { int j; C_u32 n; if(!C_truep(C_i_u32vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-set!", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) barf(C_OUT_OF_RANGE_ERROR, "u32vector-set!", v, i); if(C_truep(C_i_exact_integerp(x))) { if (C_unfix(C_i_integer_length(x)) <= 32) n = C_num_to_unsigned_int(x); else barf(C_OUT_OF_RANGE_ERROR, "u32vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-set!", i); ((C_u32 *)C_data_pointer(C_block_item(v, 1)))[j] = n; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_s32vector_set(C_word v, C_word i, C_word x) { int j; C_s32 n; if(!C_truep(C_i_s32vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-set!", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) barf(C_OUT_OF_RANGE_ERROR, "s32vector-set!", v, i); if(C_truep(C_i_exact_integerp(x))) { if (C_unfix(C_i_integer_length(x)) <= 32) n = C_num_to_int(x); else barf(C_OUT_OF_RANGE_ERROR, "s32vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-set!", i); ((C_s32 *)C_data_pointer(C_block_item(v, 1)))[j] = n; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_u64vector_set(C_word v, C_word i, C_word x) { int j; C_u64 n; if(!C_truep(C_i_u64vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-set!", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) barf(C_OUT_OF_RANGE_ERROR, "u64vector-set!", v, i); if(C_truep(C_i_exact_integerp(x))) { if (C_unfix(C_i_integer_length(x)) <= 64) n = C_num_to_uint64(x); else barf(C_OUT_OF_RANGE_ERROR, "u64vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-set!", i); ((C_u64 *)C_data_pointer(C_block_item(v, 1)))[j] = n; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_s64vector_set(C_word v, C_word i, C_word x) { int j; C_s64 n; if(!C_truep(C_i_s64vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-set!", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) barf(C_OUT_OF_RANGE_ERROR, "s64vector-set!", v, i); if(C_truep(C_i_exact_integerp(x))) { if (C_unfix(C_i_integer_length(x)) <= 64) n = C_num_to_int64(x); else barf(C_OUT_OF_RANGE_ERROR, "s64vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-set!", i); ((C_s64 *)C_data_pointer(C_block_item(v, 1)))[j] = n; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_f32vector_set(C_word v, C_word i, C_word x) { int j; double f; if(!C_truep(C_i_f32vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "f32vector-set!", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) barf(C_OUT_OF_RANGE_ERROR, "f32vector-set!", v, i); if(C_truep(C_i_flonump(x))) f = C_flonum_magnitude(x); else if(x & C_FIXNUM_BIT) f = C_unfix(x); else if (C_truep(C_i_bignump(x))) f = C_bignum_to_double(x); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "f32vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "f32vector-set!", i); ((float *)C_data_pointer(C_block_item(v, 1)))[j] = (float)f; return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_f64vector_set(C_word v, C_word i, C_word x) { int j; double f; if(!C_truep(C_i_f64vectorp(v))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "f64vector-set!", v); if(i & C_FIXNUM_BIT) { j = C_unfix(i); if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) barf(C_OUT_OF_RANGE_ERROR, "f64vector-set!", v, i); if(C_truep(C_i_flonump(x))) f = C_flonum_magnitude(x); else if(x & C_FIXNUM_BIT) f = C_unfix(x); else if (C_truep(C_i_bignump(x))) f = C_bignum_to_double(x); else barf(C_BAD_ARGUMENT_TYPE_ERROR, "f64vector-set!", x); } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "f64vector-set!", i); ((double *)C_data_pointer(C_block_item(v, 1)))[j] = f; return C_SCHEME_UNDEFINED; } /* This needs at most C_SIZEOF_FIX_BIGNUM + max(C_SIZEOF_RATNUM, C_SIZEOF_CPLXNUM) so 7 words */ C_regparm C_word C_fcall C_s_a_i_abs(C_word **ptr, C_word n, C_word x) { if (x & C_FIXNUM_BIT) { return C_a_i_fixnum_abs(ptr, 1, x); } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "abs", x); } else if (C_block_header(x) == C_FLONUM_TAG) { return C_a_i_flonum_abs(ptr, 1, x); } else if (C_truep(C_bignump(x))) { return C_s_a_u_i_integer_abs(ptr, 1, x); } else if (C_block_header(x) == C_RATNUM_TAG) { return C_ratnum(ptr, C_s_a_u_i_integer_abs(ptr, 1, C_u_i_ratnum_num(x)), C_u_i_ratnum_denom(x)); } else if (C_block_header(x) == C_CPLXNUM_TAG) { barf(C_BAD_ARGUMENT_TYPE_COMPLEX_ABS, "abs", x); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "abs", x); } } void C_ccall C_signum(C_word c, C_word *av) { C_word k = av[ 1 ], x, y; if (c != 3) C_bad_argc_2(c, 3, av[ 0 ]); x = av[ 2 ]; y = av[ 3 ]; if (x & C_FIXNUM_BIT) { C_kontinue(k, C_i_fixnum_signum(x)); } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "signum", x); } else if (C_block_header(x) == C_FLONUM_TAG) { C_word *a = C_alloc(C_SIZEOF_FLONUM); C_kontinue(k, C_a_u_i_flonum_signum(&a, 1, x)); } else if (C_truep(C_bignump(x))) { C_kontinue(k, C_bignum_negativep(x) ? C_fix(-1) : C_fix(1)); } else { try_extended_number("##sys#extended-signum", 2, k, x); } } /* The maximum this can allocate is a cplxnum which consists of two * ratnums that consist of 2 fix bignums each. So that's * C_SIZEOF_CPLXNUM + C_SIZEOF_RATNUM * 2 + C_SIZEOF_FIX_BIGNUM * 4 = 29 words! */ C_regparm C_word C_fcall C_s_a_i_negate(C_word **ptr, C_word n, C_word x) { if (x & C_FIXNUM_BIT) { return C_a_i_fixnum_negate(ptr, 1, x); } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", x); } else if (C_block_header(x) == C_FLONUM_TAG) { return C_a_i_flonum_negate(ptr, 1, x); } else if (C_truep(C_bignump(x))) { return C_s_a_u_i_integer_negate(ptr, 1, x); } else if (C_block_header(x) == C_RATNUM_TAG) { return C_ratnum(ptr, C_s_a_u_i_integer_negate(ptr, 1, C_u_i_ratnum_num(x)), C_u_i_ratnum_denom(x)); } else if (C_block_header(x) == C_CPLXNUM_TAG) { return C_cplxnum(ptr, C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_real(x)), C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_imag(x))); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", x); } } /* Copy all the digits from source to target, obliterating what was * there. If target is larger than source, the most significant * digits will remain untouched. */ inline static void bignum_digits_destructive_copy(C_word target, C_word source) { C_memcpy(C_bignum_digits(target), C_bignum_digits(source), C_wordstobytes(C_bignum_size(source))); } C_regparm C_word C_fcall C_s_a_u_i_integer_negate(C_word **ptr, C_word n, C_word x) { if (x & C_FIXNUM_BIT) { return C_a_i_fixnum_negate(ptr, 1, x); } else { if (C_bignum_negated_fitsinfixnump(x)) { return C_fix(C_MOST_NEGATIVE_FIXNUM); } else { C_word res, negp = C_mk_nbool(C_bignum_negativep(x)), size = C_fix(C_bignum_size(x)); res = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); bignum_digits_destructive_copy(res, x); return C_bignum_simplify(res); } } } /* Faster version that ignores sign */ inline static int integer_length_abs(C_word x) { if (x & C_FIXNUM_BIT) { return C_ilen(C_wabs(C_unfix(x))); } else { C_uword result = (C_bignum_size(x) - 1) * C_BIGNUM_DIGIT_LENGTH, *last_digit = C_bignum_digits(x) + C_bignum_size(x) - 1, last_digit_length = C_ilen(*last_digit); return result + last_digit_length; } } C_regparm C_word C_fcall C_i_integer_length(C_word x) { if (x & C_FIXNUM_BIT) { return C_i_fixnum_length(x); } else if (C_truep(C_i_bignump(x))) { C_uword result = (C_bignum_size(x) - 1) * C_BIGNUM_DIGIT_LENGTH, *last_digit = C_bignum_digits(x) + C_bignum_size(x) - 1, last_digit_length = C_ilen(*last_digit); /* If *only* the highest bit is set, negating will give one less bit */ if (C_bignum_negativep(x) && *last_digit == ((C_uword)1 << (last_digit_length-1))) { C_uword *startx = C_bignum_digits(x); while (startx < last_digit && *startx == 0) ++startx; if (startx == last_digit) result--; } return C_fix(result + last_digit_length); } else { barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "integer-length", x); } } /* This is currently only used by Karatsuba multiplication and * Burnikel-Ziegler division. */ static C_regparm C_word bignum_extract_digits(C_word **ptr, C_word n, C_word x, C_word start, C_word end) { if (x & C_FIXNUM_BIT) { /* Needed? */ if (C_unfix(start) == 0 && (end == C_SCHEME_FALSE || C_unfix(end) > 0)) return x; else return C_fix(0); } else { C_word negp, size; negp = C_mk_bool(C_bignum_negativep(x)); /* Always false */ start = C_unfix(start); /* We might get passed larger values than actually fits; pad w/ zeroes */ if (end == C_SCHEME_FALSE) end = C_bignum_size(x); else end = nmin(C_unfix(end), C_bignum_size(x)); assert(start >= 0); size = end - start; if (size == 0 || start >= C_bignum_size(x)) { return C_fix(0); } else { C_uword res, *res_digits, *x_digits; res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_FALSE); res_digits = C_bignum_digits(res); x_digits = C_bignum_digits(x); /* Can't use bignum_digits_destructive_copy because that assumes * target is at least as big as source. */ C_memcpy(res_digits, x_digits + start, C_wordstobytes(end - start)); return C_bignum_simplify(res); } } } /* This returns a tmp bignum negated copy of X (must be freed!) when * the number is negative, or #f if it doesn't need to be negated. * The size can be larger or smaller than X (it may be 1-padded). */ inline static C_word maybe_negate_bignum_for_bitwise_op(C_word x, C_word size) { C_word nx = C_SCHEME_FALSE, xsize; if (C_bignum_negativep(x)) { nx = allocate_tmp_bignum(C_fix(size), C_SCHEME_FALSE, C_SCHEME_FALSE); xsize = C_bignum_size(x); /* Copy up until requested size, and init any remaining upper digits */ C_memcpy(C_bignum_digits(nx), C_bignum_digits(x), C_wordstobytes(nmin(size, xsize))); if (size > xsize) C_memset(C_bignum_digits(nx)+xsize, 0, C_wordstobytes(size-xsize)); bignum_digits_destructive_negate(nx); } return nx; } /* DEPRECATED */ C_regparm C_word C_fcall C_i_bit_to_bool(C_word n, C_word i) { if (!C_truep(C_i_exact_integerp(n))) { barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bit->boolean", n); } else if (!(i & C_FIXNUM_BIT)) { if (!C_immediatep(i) && C_truep(C_bignump(i)) && !C_bignum_negativep(i)) { return C_i_integer_negativep(n); /* A bit silly, but strictly correct */ } else { barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, "bit->boolean", i); } } else if (i & C_INT_SIGN_BIT) { barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, "bit->boolean", i); } else { i = C_unfix(i); if (n & C_FIXNUM_BIT) { if (i >= C_WORD_SIZE) return C_mk_bool(n & C_INT_SIGN_BIT); else return C_mk_bool((C_unfix(n) & ((C_word)1 << i)) != 0); } else { C_word nn, d; d = i / C_BIGNUM_DIGIT_LENGTH; if (d >= C_bignum_size(n)) return C_mk_bool(C_bignum_negativep(n)); /* TODO: this isn't necessary, is it? */ if (C_truep(nn = maybe_negate_bignum_for_bitwise_op(n, d))) n = nn; i %= C_BIGNUM_DIGIT_LENGTH; d = C_mk_bool((C_bignum_digits(n)[d] & (C_uword)1 << i) != 0); if (C_truep(nn)) free_tmp_bignum(nn); return d; } } } C_regparm C_word C_fcall C_s_a_i_bitwise_and(C_word **ptr, C_word n, C_word x, C_word y) { if ((x & y) & C_FIXNUM_BIT) { return C_u_fixnum_and(x, y); } else if (!C_truep(C_i_exact_integerp(x))) { barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-and", x); } else if (!C_truep(C_i_exact_integerp(y))) { barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-and", y); } else { C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, negp, size, res, nx, ny; C_uword *scanr, *endr, *scans1, *ends1, *scans2; if (x & C_FIXNUM_BIT) x = C_a_u_i_fix_to_big(&a, x); if (y & C_FIXNUM_BIT) y = C_a_u_i_fix_to_big(&a, y); negp = C_mk_bool(C_bignum_negativep(x) && C_bignum_negativep(y)); /* Allow negative 1-bits to propagate */ if (C_bignum_negativep(x) || C_bignum_negativep(y)) size = nmax(C_bignum_size(x), C_bignum_size(y)) + 1; else size = nmin(C_bignum_size(x), C_bignum_size(y)); res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_FALSE); scanr = C_bignum_digits(res); endr = scanr + C_bignum_size(res); if (C_truep(nx = maybe_negate_bignum_for_bitwise_op(x, size))) x = nx; if (C_truep(ny = maybe_negate_bignum_for_bitwise_op(y, size))) y = ny; if (C_bignum_size(x) < C_bignum_size(y)) { scans1 = C_bignum_digits(x); ends1 = scans1 + C_bignum_size(x); scans2 = C_bignum_digits(y); } else { scans1 = C_bignum_digits(y); ends1 = scans1 + C_bignum_size(y); scans2 = C_bignum_digits(x); } while (scans1 < ends1) *scanr++ = *scans1++ & *scans2++; C_memset(scanr, 0, C_wordstobytes(endr - scanr)); if (C_truep(nx)) free_tmp_bignum(nx); if (C_truep(ny)) free_tmp_bignum(ny); if (C_bignum_negativep(res)) bignum_digits_destructive_negate(res); return C_bignum_simplify(res); } } void C_ccall C_bitwise_and(C_word c, C_word *av) { /* C_word closure = av[ 0 ]; */ C_word k = av[ 1 ]; C_word next_val, result, prev_result; C_word ab[2][C_SIZEOF_BIGNUM_WRAPPER], *a; c -= 2; av += 2; if (c == 0) C_kontinue(k, C_fix(-1)); prev_result = result = *(av++); if (c-- == 1 && !C_truep(C_i_exact_integerp(result))) barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-and", result); while (c--) { next_val = *(av++); a = ab[c&1]; /* One may hold last iteration result, the other is unused */ result = C_s_a_i_bitwise_and(&a, 2, result, next_val); result = move_buffer_object(&a, ab[(c+1)&1], result); clear_buffer_object(ab[(c+1)&1], prev_result); prev_result = result; } C_kontinue(k, result); } C_regparm C_word C_fcall C_s_a_i_bitwise_ior(C_word **ptr, C_word n, C_word x, C_word y) { if ((x & y) & C_FIXNUM_BIT) { return C_u_fixnum_or(x, y); } else if (!C_truep(C_i_exact_integerp(x))) { barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-ior", x); } else if (!C_truep(C_i_exact_integerp(y))) { barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-ior", y); } else { C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, negp, size, res, nx, ny; C_uword *scanr, *endr, *scans1, *ends1, *scans2, *ends2; if (x & C_FIXNUM_BIT) x = C_a_u_i_fix_to_big(&a, x); if (y & C_FIXNUM_BIT) y = C_a_u_i_fix_to_big(&a, y); negp = C_mk_bool(C_bignum_negativep(x) || C_bignum_negativep(y)); size = nmax(C_bignum_size(x), C_bignum_size(y)) + 1; res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_FALSE); scanr = C_bignum_digits(res); endr = scanr + C_bignum_size(res); if (C_truep(nx = maybe_negate_bignum_for_bitwise_op(x, size))) x = nx; if (C_truep(ny = maybe_negate_bignum_for_bitwise_op(y, size))) y = ny; if (C_bignum_size(x) < C_bignum_size(y)) { scans1 = C_bignum_digits(x); ends1 = scans1 + C_bignum_size(x); scans2 = C_bignum_digits(y); ends2 = scans2 + C_bignum_size(y); } else { scans1 = C_bignum_digits(y); ends1 = scans1 + C_bignum_size(y); scans2 = C_bignum_digits(x); ends2 = scans2 + C_bignum_size(x); } while (scans1 < ends1) *scanr++ = *scans1++ | *scans2++; while (scans2 < ends2) *scanr++ = *scans2++; if (scanr < endr) *scanr++ = 0; /* Only done when result is positive */ assert(scanr == endr); if (C_truep(nx)) free_tmp_bignum(nx); if (C_truep(ny)) free_tmp_bignum(ny); if (C_bignum_negativep(res)) bignum_digits_destructive_negate(res); return C_bignum_simplify(res); } } void C_ccall C_bitwise_ior(C_word c, C_word *av) { /* C_word closure = av[ 0 ]; */ C_word k = av[ 1 ]; C_word next_val, result, prev_result; C_word ab[2][C_SIZEOF_BIGNUM_WRAPPER], *a; c -= 2; av += 2; if (c == 0) C_kontinue(k, C_fix(0)); prev_result = result = *(av++); if (c-- == 1 && !C_truep(C_i_exact_integerp(result))) barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-ior", result); while (c--) { next_val = *(av++); a = ab[c&1]; /* One may hold prev iteration result, the other is unused */ result = C_s_a_i_bitwise_ior(&a, 2, result, next_val); result = move_buffer_object(&a, ab[(c+1)&1], result); clear_buffer_object(ab[(c+1)&1], prev_result); prev_result = result; } C_kontinue(k, result); } C_regparm C_word C_fcall C_s_a_i_bitwise_xor(C_word **ptr, C_word n, C_word x, C_word y) { if ((x & y) & C_FIXNUM_BIT) { return C_fixnum_xor(x, y); } else if (!C_truep(C_i_exact_integerp(x))) { barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-xor", x); } else if (!C_truep(C_i_exact_integerp(y))) { barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-xor", y); } else { C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, negp, size, res, nx, ny; C_uword *scanr, *endr, *scans1, *ends1, *scans2, *ends2; if (x & C_FIXNUM_BIT) x = C_a_u_i_fix_to_big(&a, x); if (y & C_FIXNUM_BIT) y = C_a_u_i_fix_to_big(&a, y); size = nmax(C_bignum_size(x), C_bignum_size(y)) + 1; negp = C_mk_bool(C_bignum_negativep(x) != C_bignum_negativep(y)); res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_FALSE); scanr = C_bignum_digits(res); endr = scanr + C_bignum_size(res); if (C_truep(nx = maybe_negate_bignum_for_bitwise_op(x, size))) x = nx; if (C_truep(ny = maybe_negate_bignum_for_bitwise_op(y, size))) y = ny; if (C_bignum_size(x) < C_bignum_size(y)) { scans1 = C_bignum_digits(x); ends1 = scans1 + C_bignum_size(x); scans2 = C_bignum_digits(y); ends2 = scans2 + C_bignum_size(y); } else { scans1 = C_bignum_digits(y); ends1 = scans1 + C_bignum_size(y); scans2 = C_bignum_digits(x); ends2 = scans2 + C_bignum_size(x); } while (scans1 < ends1) *scanr++ = *scans1++ ^ *scans2++; while (scans2 < ends2) *scanr++ = *scans2++; if (scanr < endr) *scanr++ = 0; /* Only done when result is positive */ assert(scanr == endr); if (C_truep(nx)) free_tmp_bignum(nx); if (C_truep(ny)) free_tmp_bignum(ny); if (C_bignum_negativep(res)) bignum_digits_destructive_negate(res); return C_bignum_simplify(res); } } void C_ccall C_bitwise_xor(C_word c, C_word *av) { /* C_word closure = av[ 0 ]; */ C_word k = av[ 1 ]; C_word next_val, result, prev_result; C_word ab[2][C_SIZEOF_BIGNUM_WRAPPER], *a; c -= 2; av += 2; if (c == 0) C_kontinue(k, C_fix(0)); prev_result = result = *(av++); if (c-- == 1 && !C_truep(C_i_exact_integerp(result))) barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-xor", result); while (c--) { next_val = *(av++); a = ab[c&1]; /* One may hold prev iteration result, the other is unused */ result = C_s_a_i_bitwise_xor(&a, 2, result, next_val); result = move_buffer_object(&a, ab[(c+1)&1], result); clear_buffer_object(ab[(c+1)&1], prev_result); prev_result = result; } C_kontinue(k, result); } C_regparm C_word C_fcall C_s_a_i_bitwise_not(C_word **ptr, C_word n, C_word x) { if (!C_truep(C_i_exact_integerp(x))) { barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-not", x); } else { return C_s_a_u_i_integer_minus(ptr, 2, C_fix(-1), x); } } C_regparm C_word C_fcall C_s_a_i_arithmetic_shift(C_word **ptr, C_word n, C_word x, C_word y) { C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab, size, negp, res, digit_offset, bit_offset; if (!(y & C_FIXNUM_BIT)) barf(C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR, "arithmetic-shift", y); y = C_unfix(y); if (y == 0 || x == C_fix(0)) { /* Done (no shift) */ return x; } else if (x & C_FIXNUM_BIT) { if (y < 0) { /* Don't shift more than a word's length (that's undefined in C!) */ if (-y < C_WORD_SIZE) { return C_fix(C_unfix(x) >> -y); } else { return (x < 0) ? C_fix(-1) : C_fix(0); } } else if (y > 0 && y < C_WORD_SIZE-2 && /* After shifting, the length still fits a fixnum */ (C_ilen(C_unfix(x)) + y) < C_WORD_SIZE-2) { return C_fix((C_uword)C_unfix(x) << y); } else { x = C_a_u_i_fix_to_big(&a, x); } } else if (!C_truep(C_i_bignump(x))) { barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "arithmetic-shift", x); } negp = C_mk_bool(C_bignum_negativep(x)); if (y > 0) { /* Shift left */ C_uword *startr, *startx, *endx, *endr; digit_offset = y / C_BIGNUM_DIGIT_LENGTH; bit_offset = y % C_BIGNUM_DIGIT_LENGTH; size = C_fix(C_bignum_size(x) + digit_offset + 1); res = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); startr = C_bignum_digits(res); endr = startr + C_bignum_size(res); startx = C_bignum_digits(x); endx = startx + C_bignum_size(x); /* Initialize only the lower digits we're skipping and the MSD */ C_memset(startr, 0, C_wordstobytes(digit_offset)); *(endr-1) = 0; startr += digit_offset; /* Can't use bignum_digits_destructive_copy because it assumes * we want to copy from the start. */ C_memcpy(startr, startx, C_wordstobytes(endx-startx)); if(bit_offset > 0) bignum_digits_destructive_shift_left(startr, endr, bit_offset); return C_bignum_simplify(res); } else if (-y >= C_bignum_size(x) * (C_word)C_BIGNUM_DIGIT_LENGTH) { /* All bits are shifted out, just return 0 or -1 */ return C_truep(negp) ? C_fix(-1) : C_fix(0); } else { /* Shift right */ C_uword *startr, *startx, *endr; C_word nx; digit_offset = -y / C_BIGNUM_DIGIT_LENGTH; bit_offset = -y % C_BIGNUM_DIGIT_LENGTH; size = C_fix(C_bignum_size(x) - digit_offset); res = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); startr = C_bignum_digits(res); endr = startr + C_bignum_size(res); size = C_bignum_size(x) + 1; if (C_truep(nx = maybe_negate_bignum_for_bitwise_op(x, size))) { startx = C_bignum_digits(nx) + digit_offset; } else { startx = C_bignum_digits(x) + digit_offset; } /* Can't use bignum_digits_destructive_copy because that assumes * target is at least as big as source. */ C_memcpy(startr, startx, C_wordstobytes(endr-startr)); if(bit_offset > 0) bignum_digits_destructive_shift_right(startr,endr,bit_offset,C_truep(nx)); if (C_truep(nx)) { free_tmp_bignum(nx); bignum_digits_destructive_negate(res); } return C_bignum_simplify(res); } } /* I */ C_regparm C_word C_fcall C_a_i_exp(C_word **a, int c, C_word n) { double f; C_check_real(n, "exp", f); return C_flonum(a, exp(f)); } /* I */ C_regparm C_word C_fcall C_a_i_log(C_word **a, int c, C_word n) { double f; C_check_real(n, "log", f); return C_flonum(a, log(f)); } /* I */ C_regparm C_word C_fcall C_a_i_sin(C_word **a, int c, C_word n) { double f; C_check_real(n, "sin", f); return C_flonum(a, sin(f)); } /* I */ C_regparm C_word C_fcall C_a_i_cos(C_word **a, int c, C_word n) { double f; C_check_real(n, "cos", f); return C_flonum(a, cos(f)); } /* I */ C_regparm C_word C_fcall C_a_i_tan(C_word **a, int c, C_word n) { double f; C_check_real(n, "tan", f); return C_flonum(a, tan(f)); } /* I */ C_regparm C_word C_fcall C_a_i_asin(C_word **a, int c, C_word n) { double f; C_check_real(n, "asin", f); return C_flonum(a, asin(f)); } /* I */ C_regparm C_word C_fcall C_a_i_acos(C_word **a, int c, C_word n) { double f; C_check_real(n, "acos", f); return C_flonum(a, acos(f)); } /* I */ C_regparm C_word C_fcall C_a_i_atan(C_word **a, int c, C_word n) { double f; C_check_real(n, "atan", f); return C_flonum(a, atan(f)); } /* I */ C_regparm C_word C_fcall C_a_i_atan2(C_word **a, int c, C_word n1, C_word n2) { double f1, f2; C_check_real(n1, "atan", f1); C_check_real(n2, "atan", f2); return C_flonum(a, atan2(f1, f2)); } /* I */ C_regparm C_word C_fcall C_a_i_sqrt(C_word **a, int c, C_word n) { double f; C_check_real(n, "sqrt", f); return C_flonum(a, sqrt(f)); } C_regparm C_word C_fcall C_i_assq(C_word x, C_word lst) { C_word a; while(!C_immediatep(lst) && C_block_header(lst) == C_PAIR_TAG) { a = C_u_i_car(lst); if(!C_immediatep(a) && C_block_header(a) == C_PAIR_TAG) { if(C_u_i_car(a) == x) return a; } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "assq", a); lst = C_u_i_cdr(lst); } if(lst!=C_SCHEME_END_OF_LIST) barf(C_BAD_ARGUMENT_TYPE_ERROR, "assq", lst); return C_SCHEME_FALSE; } C_regparm C_word C_fcall C_i_assv(C_word x, C_word lst) { C_word a; while(!C_immediatep(lst) && C_block_header(lst) == C_PAIR_TAG) { a = C_u_i_car(lst); if(!C_immediatep(a) && C_block_header(a) == C_PAIR_TAG) { if(C_truep(C_i_eqvp(C_u_i_car(a), x))) return a; } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "assv", a); lst = C_u_i_cdr(lst); } if(lst!=C_SCHEME_END_OF_LIST) barf(C_BAD_ARGUMENT_TYPE_ERROR, "assv", lst); return C_SCHEME_FALSE; } C_regparm C_word C_fcall C_i_assoc(C_word x, C_word lst) { C_word a; while(!C_immediatep(lst) && C_block_header(lst) == C_PAIR_TAG) { a = C_u_i_car(lst); if(!C_immediatep(a) && C_block_header(a) == C_PAIR_TAG) { if(C_equalp(C_u_i_car(a), x)) return a; } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "assoc", a); lst = C_u_i_cdr(lst); } if(lst!=C_SCHEME_END_OF_LIST) barf(C_BAD_ARGUMENT_TYPE_ERROR, "assoc", lst); return C_SCHEME_FALSE; } C_regparm C_word C_fcall C_i_memq(C_word x, C_word lst) { while(!C_immediatep(lst) && C_block_header(lst) == C_PAIR_TAG) { if(C_u_i_car(lst) == x) return lst; else lst = C_u_i_cdr(lst); } if(lst!=C_SCHEME_END_OF_LIST) barf(C_BAD_ARGUMENT_TYPE_ERROR, "memq", lst); return C_SCHEME_FALSE; } C_regparm C_word C_fcall C_u_i_memq(C_word x, C_word lst) { while(!C_immediatep(lst)) { if(C_u_i_car(lst) == x) return lst; else lst = C_u_i_cdr(lst); } return C_SCHEME_FALSE; } C_regparm C_word C_fcall C_i_memv(C_word x, C_word lst) { while(!C_immediatep(lst) && C_block_header(lst) == C_PAIR_TAG) { if(C_truep(C_i_eqvp(C_u_i_car(lst), x))) return lst; else lst = C_u_i_cdr(lst); } if(lst!=C_SCHEME_END_OF_LIST) barf(C_BAD_ARGUMENT_TYPE_ERROR, "memv", lst); return C_SCHEME_FALSE; } C_regparm C_word C_fcall C_i_member(C_word x, C_word lst) { while(!C_immediatep(lst) && C_block_header(lst) == C_PAIR_TAG) { if(C_equalp(C_u_i_car(lst), x)) return lst; else lst = C_u_i_cdr(lst); } if(lst!=C_SCHEME_END_OF_LIST) barf(C_BAD_ARGUMENT_TYPE_ERROR, "member", lst); return C_SCHEME_FALSE; } /* Inline routines for extended bindings: */ C_regparm C_word C_fcall C_i_check_closure_2(C_word x, C_word loc) { if(C_immediatep(x) || (C_header_bits(x) != C_CLOSURE_TYPE)) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_CLOSURE_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_fixnum_2(C_word x, C_word loc) { if(!(x & C_FIXNUM_BIT)) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_exact_2(C_word x, C_word loc) { if(C_u_i_exactp(x) == C_SCHEME_FALSE) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_inexact_2(C_word x, C_word loc) { if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_INEXACT_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_char_2(C_word x, C_word loc) { if((x & C_IMMEDIATE_TYPE_BITS) != C_CHARACTER_BITS) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_CHAR_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_number_2(C_word x, C_word loc) { if (C_i_numberp(x) == C_SCHEME_FALSE) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_string_2(C_word x, C_word loc) { if(C_immediatep(x) || C_header_bits(x) != C_STRING_TYPE) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_STRING_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_bytevector_2(C_word x, C_word loc) { if(C_immediatep(x) || C_header_bits(x) != C_BYTEVECTOR_TYPE) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_BYTEVECTOR_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_vector_2(C_word x, C_word loc) { if(C_immediatep(x) || C_header_bits(x) != C_VECTOR_TYPE) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_VECTOR_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_structure_2(C_word x, C_word st, C_word loc) { if(C_immediatep(x) || C_header_bits(x) != C_STRUCTURE_TYPE || C_block_item(x,0) != st) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_BAD_STRUCT_ERROR, NULL, x, st); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_pair_2(C_word x, C_word loc) { if(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_PAIR_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_boolean_2(C_word x, C_word loc) { if((x & C_IMMEDIATE_TYPE_BITS) != C_BOOLEAN_BITS) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_BOOLEAN_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_locative_2(C_word x, C_word loc) { if(C_immediatep(x) || C_block_header(x) != C_LOCATIVE_TAG) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_LOCATIVE_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_symbol_2(C_word x, C_word loc) { if(!C_truep(C_i_symbolp(x))) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_SYMBOL_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_keyword_2(C_word x, C_word loc) { if(!C_truep(C_i_keywordp(x))) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_KEYWORD_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_list_2(C_word x, C_word loc) { if(x != C_SCHEME_END_OF_LIST && (C_immediatep(x) || C_block_header(x) != C_PAIR_TAG)) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_LIST_ERROR, NULL, x); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_check_port_2(C_word x, C_word dir, C_word open, C_word loc) { if(C_immediatep(x) || C_header_bits(x) != C_PORT_TYPE) { error_location = loc; barf(C_BAD_ARGUMENT_TYPE_NO_PORT_ERROR, NULL, x); } if((C_block_item(x, 1) & dir) != dir) { /* slot #1: I/O direction mask */ error_location = loc; switch (dir) { case C_fix(1): barf(C_BAD_ARGUMENT_TYPE_PORT_NO_INPUT_ERROR, NULL, x); case C_fix(2): barf(C_BAD_ARGUMENT_TYPE_PORT_NO_OUTPUT_ERROR, NULL, x); default: barf(C_BAD_ARGUMENT_TYPE_PORT_DIRECTION_ERROR, NULL, x); } } if(open == C_SCHEME_TRUE) { if(C_block_item(x, 8) == C_FIXNUM_BIT) { /* slot #8: closed mask */ error_location = loc; barf(C_PORT_CLOSED_ERROR, NULL, x); } } return C_SCHEME_UNDEFINED; } /*XXX these are not correctly named */ C_regparm C_word C_fcall C_i_foreign_char_argumentp(C_word x) { if((x & C_IMMEDIATE_TYPE_BITS) != C_CHARACTER_BITS) barf(C_BAD_ARGUMENT_TYPE_NO_CHAR_ERROR, NULL, x); return x; } C_regparm C_word C_fcall C_i_foreign_fixnum_argumentp(C_word x) { if((x & C_FIXNUM_BIT) == 0) barf(C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR, NULL, x); return x; } C_regparm C_word C_fcall C_i_foreign_flonum_argumentp(C_word x) { if((x & C_FIXNUM_BIT) != 0) return x; if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR, NULL, x); return x; } C_regparm C_word C_fcall C_i_foreign_block_argumentp(C_word x) { if(C_immediatep(x)) barf(C_BAD_ARGUMENT_TYPE_NO_BLOCK_ERROR, NULL, x); return x; } C_regparm C_word C_fcall C_i_foreign_struct_wrapper_argumentp(C_word t, C_word x) { if(C_immediatep(x) || C_header_bits(x) != C_STRUCTURE_TYPE || C_block_item(x, 0) != t) barf(C_BAD_ARGUMENT_TYPE_BAD_STRUCT_ERROR, NULL, t, x); return x; } C_regparm C_word C_fcall C_i_foreign_string_argumentp(C_word x) { if(C_immediatep(x) || C_header_bits(x) != C_STRING_TYPE) barf(C_BAD_ARGUMENT_TYPE_NO_STRING_ERROR, NULL, x); return x; } C_regparm C_word C_fcall C_i_foreign_symbol_argumentp(C_word x) { if(C_immediatep(x) || C_header_bits(x) != C_SYMBOL_TYPE) barf(C_BAD_ARGUMENT_TYPE_NO_SYMBOL_ERROR, NULL, x); return x; } C_regparm C_word C_fcall C_i_foreign_pointer_argumentp(C_word x) { if(C_immediatep(x) || (C_header_bits(x) & C_SPECIALBLOCK_BIT) == 0) barf(C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR, NULL, x); return x; } /* TODO: Is this used? */ C_regparm C_word C_fcall C_i_foreign_scheme_or_c_pointer_argumentp(C_word x) { if(C_immediatep(x) || (C_header_bits(x) & C_SPECIALBLOCK_BIT) == 0) barf(C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR, NULL, x); return x; } C_regparm C_word C_fcall C_i_foreign_tagged_pointer_argumentp(C_word x, C_word t) { if(C_immediatep(x) || (C_header_bits(x) & C_SPECIALBLOCK_BIT) == 0 || (t != C_SCHEME_FALSE && !C_equalp(C_block_item(x, 1), t))) barf(C_BAD_ARGUMENT_TYPE_NO_TAGGED_POINTER_ERROR, NULL, x, t); return x; } C_regparm C_word C_fcall C_i_foreign_ranged_integer_argumentp(C_word x, C_word bits) { if((x & C_FIXNUM_BIT) != 0) { if (C_truep(C_fixnum_lessp(C_i_fixnum_length(x), bits))) return x; else barf(C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION, NULL, x); } else if (C_truep(C_i_bignump(x))) { if (C_truep(C_fixnum_lessp(C_i_integer_length(x), bits))) return x; else barf(C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION, NULL, x); } else { barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, NULL, x); } } C_regparm C_word C_fcall C_i_foreign_unsigned_ranged_integer_argumentp(C_word x, C_word bits) { if((x & C_FIXNUM_BIT) != 0) { if(x & C_INT_SIGN_BIT) barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, NULL, x); else if(C_ilen(C_unfix(x)) <= C_unfix(bits)) return x; else barf(C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION, NULL, x); } else if(C_truep(C_i_bignump(x))) { if(C_bignum_negativep(x)) barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, NULL, x); else if(integer_length_abs(x) <= C_unfix(bits)) return x; else barf(C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION, NULL, x); } else { barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, NULL, x); } } /* I */ C_regparm C_word C_fcall C_i_not_pair_p_2(C_word x) { return C_mk_bool(C_immediatep(x) || C_block_header(x) != C_PAIR_TAG); } C_regparm C_word C_fcall C_i_null_list_p(C_word x) { if(x == C_SCHEME_END_OF_LIST) return C_SCHEME_TRUE; else if(!C_immediatep(x) && C_block_header(x) == C_PAIR_TAG) return C_SCHEME_FALSE; else { barf(C_BAD_ARGUMENT_TYPE_NO_LIST_ERROR, "null-list?", x); return C_SCHEME_FALSE; } } C_regparm C_word C_fcall C_i_string_null_p(C_word x) { if(!C_immediatep(x) && C_header_bits(x) == C_STRING_TYPE) return C_zero_length_p(x); else { barf(C_BAD_ARGUMENT_TYPE_NO_STRING_ERROR, "string-null?", x); return C_SCHEME_FALSE; } } C_regparm C_word C_fcall C_i_null_pointerp(C_word x) { if(!C_immediatep(x) && (C_header_bits(x) & C_SPECIALBLOCK_BIT) != 0) return C_null_pointerp(x); barf(C_BAD_ARGUMENT_TYPE_ERROR, "null-pointer?", x); return C_SCHEME_FALSE; } C_regparm C_word C_i_char_equalp(C_word x, C_word y) { C_i_check_char_2(x, intern0("char=?")); C_i_check_char_2(y, intern0("char=?")); return C_u_i_char_equalp(x, y); } C_regparm C_word C_i_char_greaterp(C_word x, C_word y) { C_i_check_char_2(x, intern0("char>?")); C_i_check_char_2(y, intern0("char>?")); return C_u_i_char_greaterp(x, y); } C_regparm C_word C_i_char_lessp(C_word x, C_word y) { C_i_check_char_2(x, intern0("char<?")); C_i_check_char_2(y, intern0("char<?")); return C_u_i_char_lessp(x, y); } C_regparm C_word C_i_char_greater_or_equal_p(C_word x, C_word y) { C_i_check_char_2(x, intern0("char>=?")); C_i_check_char_2(y, intern0("char>=?")); return C_u_i_char_greater_or_equal_p(x, y); } C_regparm C_word C_i_char_less_or_equal_p(C_word x, C_word y) { C_i_check_char_2(x, intern0("char<=?")); C_i_check_char_2(y, intern0("char<=?")); return C_u_i_char_less_or_equal_p(x, y); } /* Primitives: */ void C_ccall C_apply(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], fn = av[ 2 ]; int av2_size, i, n = c - 3; int non_list_args = n - 1; C_word lst, len, *ptr, *av2; if(c < 4) C_bad_min_argc(c, 4); if(C_immediatep(fn) || C_header_bits(fn) != C_CLOSURE_TYPE) barf(C_NOT_A_CLOSURE_ERROR, "apply", fn); lst = av[ c - 1 ]; if(lst != C_SCHEME_END_OF_LIST && (C_immediatep(lst) || C_block_header(lst) != C_PAIR_TAG)) barf(C_BAD_ARGUMENT_TYPE_ERROR, "apply", lst); len = C_unfix(C_u_i_length(lst)); av2_size = 2 + non_list_args + len; if(C_demand(av2_size)) stack_check_demand = 0; else if(stack_check_demand) C_stack_overflow("apply"); else { stack_check_demand = av2_size; C_save_and_reclaim((void *)C_apply, c, av); } av2 = ptr = C_alloc(av2_size); *(ptr++) = fn; *(ptr++) = k; if(non_list_args > 0) { C_memcpy(ptr, av + 3, non_list_args * sizeof(C_word)); ptr += non_list_args; } while(len--) { *(ptr++) = C_u_i_car(lst); lst = C_u_i_cdr(lst); } assert((ptr - av2) == av2_size); ((C_proc)(void *)C_block_item(fn, 0))(av2_size, av2); } void C_ccall C_call_cc(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], cont = av[ 2 ], *a = C_alloc(C_SIZEOF_CLOSURE(2)), wrapper; void *pr = (void *)C_block_item(cont,0); C_word av2[ 3 ]; if(C_immediatep(cont) || C_header_bits(cont) != C_CLOSURE_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "call-with-current-continuation", cont); /* Check for values-continuation: */ if(C_block_item(k, 0) == (C_word)values_continuation) wrapper = C_closure(&a, 2, (C_word)call_cc_values_wrapper, k); else wrapper = C_closure(&a, 2, (C_word)call_cc_wrapper, k); av2[ 0 ] = cont; av2[ 1 ] = k; av2[ 2 ] = wrapper; ((C_proc)pr)(3, av2); } void C_ccall call_cc_wrapper(C_word c, C_word *av) { C_word closure = av[ 0 ], /* av[ 1 ] is current k and ignored */ result, k = C_block_item(closure, 1); if(c != 3) C_bad_argc(c, 3); result = av[ 2 ]; C_kontinue(k, result); } void C_ccall call_cc_values_wrapper(C_word c, C_word *av) { C_word closure = av[ 0 ], /* av[ 1 ] is current k and ignored */ k = C_block_item(closure, 1), x1, n = c; av[ 0 ] = k; /* reuse av */ C_memmove(av + 1, av + 2, (n - 1) * sizeof(C_word)); C_do_apply(n - 1, av); } /* I */ void C_ccall C_continuation_graft(C_word c, C_word *av) { C_word /* self = av[ 0 ] */ /* k = av[ 1 ] */ kk = av[ 2 ], proc = av[ 3 ]; av[ 0 ] = proc; /* reuse av */ av[ 1 ] = C_block_item(kk, 1); ((C_proc)C_fast_retrieve_proc(proc))(2, av); } void C_ccall C_values(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], n = c; if(c < 2) C_bad_min_argc(c, 2); /* Check continuation whether it receives multiple values: */ if(C_block_item(k, 0) == (C_word)values_continuation) { av[ 0 ] = k; /* reuse av */ C_memmove(av + 1, av + 2, (c - 2) * sizeof(C_word)); C_do_apply(c - 1, av); } if(c != 3) { #ifdef RELAX_MULTIVAL_CHECK if(c == 2) n = C_SCHEME_UNDEFINED; else n = av[ 2 ]; #else barf(C_CONTINUATION_CANT_RECEIVE_VALUES_ERROR, "values", k); #endif } else n = av[ 2 ]; C_kontinue(k, n); } void C_ccall C_apply_values(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], lst, len, n; if(c != 3) C_bad_argc(c, 3); lst = av[ 2 ]; if(lst != C_SCHEME_END_OF_LIST && (C_immediatep(lst) || C_block_header(lst) != C_PAIR_TAG)) barf(C_BAD_ARGUMENT_TYPE_ERROR, "apply", lst); /* Check whether continuation receives multiple values: */ if(C_block_item(k, 0) == (C_word)values_continuation) { C_word *av2, *ptr; len = C_unfix(C_u_i_length(lst)); n = len + 1; if(C_demand(n)) stack_check_demand = 0; else if(stack_check_demand) C_stack_overflow("apply"); else { stack_check_demand = n; C_save_and_reclaim((void *)C_apply_values, c, av); } av2 = C_alloc(n); av2[ 0 ] = k; ptr = av2 + 1; while(len--) { *(ptr++) = C_u_i_car(lst); lst = C_u_i_cdr(lst); } C_do_apply(n, av2); } if(C_immediatep(lst)) { #ifdef RELAX_MULTIVAL_CHECK n = C_SCHEME_UNDEFINED; #else barf(C_CONTINUATION_CANT_RECEIVE_VALUES_ERROR, "values", k); #endif } else if(C_block_header(lst) == C_PAIR_TAG) { if(C_u_i_cdr(lst) == C_SCHEME_END_OF_LIST) n = C_u_i_car(lst); else { #ifdef RELAX_MULTIVAL_CHECK n = C_u_i_car(lst); #else barf(C_CONTINUATION_CANT_RECEIVE_VALUES_ERROR, "values", k); #endif } } else barf(C_BAD_ARGUMENT_TYPE_ERROR, "apply", lst); C_kontinue(k, n); } void C_ccall C_call_with_values(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], thunk, kont, *a = C_alloc(C_SIZEOF_CLOSURE(3)), kk; if(c != 4) C_bad_argc(c, 4); thunk = av[ 2 ]; kont = av[ 3 ]; if(C_immediatep(thunk) || C_header_bits(thunk) != C_CLOSURE_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "call-with-values", thunk); if(C_immediatep(kont) || C_header_bits(kont) != C_CLOSURE_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "call-with-values", kont); kk = C_closure(&a, 3, (C_word)values_continuation, kont, k); av[ 0 ] = thunk; /* reuse av */ av[ 1 ] = kk; C_do_apply(2, av); } void C_ccall C_u_call_with_values(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], thunk = av[ 2 ], kont = av[ 3 ], *a = C_alloc(C_SIZEOF_CLOSURE(3)), kk; kk = C_closure(&a, 3, (C_word)values_continuation, kont, k); av[ 0 ] = thunk; /* reuse av */ av[ 1 ] = kk; C_do_apply(2, av); } void C_ccall values_continuation(C_word c, C_word *av) { C_word closure = av[ 0 ], kont = C_block_item(closure, 1), k = C_block_item(closure, 2), *av2 = C_alloc(c + 1); av2[ 0 ] = kont; av2[ 1 ] = k; C_memcpy(av2 + 2, av + 1, (c - 1) * sizeof(C_word)); C_do_apply(c + 1, av2); } static C_word rat_times_integer(C_word **ptr, C_word rat, C_word i) { C_word ab[C_SIZEOF_FIX_BIGNUM * 2], *a = ab, num, denom, gcd, a_div_g; switch (i) { case C_fix(0): return C_fix(0); case C_fix(1): return rat; case C_fix(-1): num = C_s_a_u_i_integer_negate(ptr, 1, C_u_i_ratnum_num(rat)); return C_ratnum(ptr, num , C_u_i_ratnum_denom(rat)); /* default: CONTINUE BELOW */ } num = C_u_i_ratnum_num(rat); denom = C_u_i_ratnum_denom(rat); /* a/b * c/d = a*c / b*d [with b = 1] */ /* = ((a / g) * c) / (d / g) */ /* With g = gcd(a, d) and a = x [Knuth, 4.5.1] */ gcd = C_s_a_u_i_integer_gcd(&a, 2, i, denom); /* Calculate a/g (= i/gcd), which will later be multiplied by y */ a_div_g = C_s_a_u_i_integer_quotient(&a, 2, i, gcd); if (a_div_g == C_fix(0)) { clear_buffer_object(ab, gcd); return C_fix(0); /* Save some work */ } /* Final numerator = a/g * c (= a_div_g * num) */ num = C_s_a_u_i_integer_times(ptr, 2, a_div_g, num); /* Final denominator = d/g (= denom/gcd) */ denom = C_s_a_u_i_integer_quotient(ptr, 2, denom, gcd); num = move_buffer_object(ptr, ab, num); denom = move_buffer_object(ptr, ab, denom); clear_buffer_object(ab, gcd); clear_buffer_object(ab, a_div_g); if (denom == C_fix(1)) return num; else return C_ratnum(ptr, num, denom); } static C_word rat_times_rat(C_word **ptr, C_word x, C_word y) { C_word ab[C_SIZEOF_FIX_BIGNUM * 6], *a = ab, num, denom, xnum, xdenom, ynum, ydenom, g1, g2, a_div_g1, b_div_g2, c_div_g2, d_div_g1; xnum = C_u_i_ratnum_num(x); xdenom = C_u_i_ratnum_denom(x); ynum = C_u_i_ratnum_num(y); ydenom = C_u_i_ratnum_denom(y); /* a/b * c/d = a*c / b*d [generic] */ /* = ((a / g1) * (c / g2)) / ((b / g2) * (d / g1)) */ /* With g1 = gcd(a, d) and g2 = gcd(b, c) [Knuth, 4.5.1] */ g1 = C_s_a_u_i_integer_gcd(&a, 2, xnum, ydenom); g2 = C_s_a_u_i_integer_gcd(&a, 2, ynum, xdenom); /* Calculate a/g1 (= xnum/g1), which will later be multiplied by c/g2 */ a_div_g1 = C_s_a_u_i_integer_quotient(&a, 2, xnum, g1); /* Calculate c/g2 (= ynum/g2), which will later be multiplied by a/g1 */ c_div_g2 = C_s_a_u_i_integer_quotient(&a, 2, ynum, g2); /* Final numerator = a/g1 * c/g2 */ num = C_s_a_u_i_integer_times(ptr, 2, a_div_g1, c_div_g2); /* Now, do the same for the denominator.... */ /* Calculate b/g2 (= xdenom/g2), which will later be multiplied by d/g1 */ b_div_g2 = C_s_a_u_i_integer_quotient(&a, 2, xdenom, g2); /* Calculate d/g1 (= ydenom/g1), which will later be multiplied by b/g2 */ d_div_g1 = C_s_a_u_i_integer_quotient(&a, 2, ydenom, g1); /* Final denominator = b/g2 * d/g1 */ denom = C_s_a_u_i_integer_times(ptr, 2, b_div_g2, d_div_g1); num = move_buffer_object(ptr, ab, num); denom = move_buffer_object(ptr, ab, denom); clear_buffer_object(ab, g1); clear_buffer_object(ab, g2); clear_buffer_object(ab, a_div_g1); clear_buffer_object(ab, b_div_g2); clear_buffer_object(ab, c_div_g2); clear_buffer_object(ab, d_div_g1); if (denom == C_fix(1)) return num; else return C_ratnum(ptr, num, denom); } static C_word cplx_times(C_word **ptr, C_word rx, C_word ix, C_word ry, C_word iy) { /* Allocation here is kind of tricky: Each intermediate result can * be at most a ratnum consisting of two bignums (2 digits), so * C_SIZEOF_RATNUM + C_SIZEOF_BIGNUM(2) = 9 words */ C_word ab[(C_SIZEOF_RATNUM + C_SIZEOF_BIGNUM(2))*6], *a = ab, r1, r2, i1, i2, r, i; /* a+bi * c+di = (a*c - b*d) + (a*d + b*c)i */ /* We call these: r1 = a*c, r2 = b*d, i1 = a*d, i2 = b*c */ r1 = C_s_a_i_times(&a, 2, rx, ry); r2 = C_s_a_i_times(&a, 2, ix, iy); i1 = C_s_a_i_times(&a, 2, rx, iy); i2 = C_s_a_i_times(&a, 2, ix, ry); r = C_s_a_i_minus(ptr, 2, r1, r2); i = C_s_a_i_plus(ptr, 2, i1, i2); r = move_buffer_object(ptr, ab, r); i = move_buffer_object(ptr, ab, i); clear_buffer_object(ab, r1); clear_buffer_object(ab, r2); clear_buffer_object(ab, i1); clear_buffer_object(ab, i2); if (C_truep(C_u_i_zerop(i))) return r; else return C_cplxnum(ptr, r, i); } /* The maximum size this needs is that required to store a complex * number result, where both real and imag parts consist of ratnums. * The maximum size of those ratnums is if they consist of two bignums * from a fixnum multiplication (2 digits each), so we're looking at * C_SIZEOF_RATNUM * 3 + C_SIZEOF_BIGNUM(2) * 4 = 33 words! */ C_regparm C_word C_fcall C_s_a_i_times(C_word **ptr, C_word n, C_word x, C_word y) { if (x & C_FIXNUM_BIT) { if (y & C_FIXNUM_BIT) { return C_a_i_fixnum_times(ptr, 2, x, y); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_flonum(ptr, (double)C_unfix(x) * C_flonum_magnitude(y)); } else if (C_truep(C_bignump(y))) { return C_s_a_u_i_integer_times(ptr, 2, x, y); } else if (C_block_header(y) == C_RATNUM_TAG) { return rat_times_integer(ptr, y, x); } else if (C_block_header(y) == C_CPLXNUM_TAG) { return cplx_times(ptr, x, C_fix(0), C_u_i_cplxnum_real(y), C_u_i_cplxnum_imag(y)); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); } } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", x); } else if (C_block_header(x) == C_FLONUM_TAG) { if (y & C_FIXNUM_BIT) { return C_flonum(ptr, C_flonum_magnitude(x) * (double)C_unfix(y)); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_a_i_flonum_times(ptr, 2, x, y); } else if (C_truep(C_bignump(y))) { return C_flonum(ptr, C_flonum_magnitude(x) * C_bignum_to_double(y)); } else if (C_block_header(y) == C_RATNUM_TAG) { return C_s_a_i_times(ptr, 2, x, C_a_i_exact_to_inexact(ptr, 1, y)); } else if (C_block_header(y) == C_CPLXNUM_TAG) { C_word ab[C_SIZEOF_FLONUM], *a = ab; return cplx_times(ptr, x, C_flonum(&a, 0.0), C_u_i_cplxnum_real(y), C_u_i_cplxnum_imag(y)); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); } } else if (C_truep(C_bignump(x))) { if (y & C_FIXNUM_BIT) { return C_s_a_u_i_integer_times(ptr, 2, x, y); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", x); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_flonum(ptr, C_bignum_to_double(x) * C_flonum_magnitude(y)); } else if (C_truep(C_bignump(y))) { return C_s_a_u_i_integer_times(ptr, 2, x, y); } else if (C_block_header(y) == C_RATNUM_TAG) { return rat_times_integer(ptr, y, x); } else if (C_block_header(y) == C_CPLXNUM_TAG) { return cplx_times(ptr, x, C_fix(0), C_u_i_cplxnum_real(y), C_u_i_cplxnum_imag(y)); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); } } else if (C_block_header(x) == C_RATNUM_TAG) { if (y & C_FIXNUM_BIT) { return rat_times_integer(ptr, x, y); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_s_a_i_times(ptr, 2, C_a_i_exact_to_inexact(ptr, 1, x), y); } else if (C_truep(C_bignump(y))) { return rat_times_integer(ptr, x, y); } else if (C_block_header(y) == C_RATNUM_TAG) { return rat_times_rat(ptr, x, y); } else if (C_block_header(y) == C_CPLXNUM_TAG) { return cplx_times(ptr, x, C_fix(0), C_u_i_cplxnum_real(y), C_u_i_cplxnum_imag(y)); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); } } else if (C_block_header(x) == C_CPLXNUM_TAG) { if (!C_immediatep(y) && C_block_header(y) == C_CPLXNUM_TAG) { return cplx_times(ptr, C_u_i_cplxnum_real(x), C_u_i_cplxnum_imag(x), C_u_i_cplxnum_real(y), C_u_i_cplxnum_imag(y)); } else { C_word ab[C_SIZEOF_FLONUM], *a = ab, yi; yi = C_truep(C_i_flonump(y)) ? C_flonum(&a,0) : C_fix(0); return cplx_times(ptr, C_u_i_ratnum_num(x), C_u_i_ratnum_denom(x), y, yi); } } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", x); } } C_regparm C_word C_fcall C_s_a_u_i_integer_times(C_word **ptr, C_word n, C_word x, C_word y) { if (x & C_FIXNUM_BIT) { if (y & C_FIXNUM_BIT) { return C_a_i_fixnum_times(ptr, 2, x, y); } else { C_word tmp = x; /* swap to ensure x is a bignum and y a fixnum */ x = y; y = tmp; } } /* Here, we know for sure that X is a bignum */ if (y == C_fix(0)) { return C_fix(0); } else if (y == C_fix(1)) { return x; } else if (y == C_fix(-1)) { return C_s_a_u_i_integer_negate(ptr, 1, x); } else if (y & C_FIXNUM_BIT) { /* Any other fixnum */ C_word absy = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y), negp = C_mk_bool((y & C_INT_SIGN_BIT) ? !C_bignum_negativep(x) : C_bignum_negativep(x)); if (C_fitsinbignumhalfdigitp(absy) || (((C_uword)1 << (C_ilen(absy)-1)) == absy && C_fitsinfixnump(absy))) { C_word size, res; C_uword *startr, *endr; int shift; size = C_bignum_size(x) + 1; /* Needs _at most_ one more digit */ res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_FALSE); bignum_digits_destructive_copy(res, x); startr = C_bignum_digits(res); endr = startr + size - 1; /* Scale up, and sanitise the result. */ shift = C_ilen(absy) - 1; if (((C_uword)1 << shift) == absy) { /* Power of two? */ *endr = bignum_digits_destructive_shift_left(startr, endr, shift); } else { *endr = bignum_digits_destructive_scale_up_with_carry(startr, endr, absy, 0); } return C_bignum_simplify(res); } else { C_word *a = C_alloc(C_SIZEOF_FIX_BIGNUM); y = C_a_u_i_fix_to_big(&a, y); return bignum_times_bignum_unsigned(ptr, x, y, negp); } } else { C_word negp = C_bignum_negativep(x) ? !C_bignum_negativep(y) : C_bignum_negativep(y); return bignum_times_bignum_unsigned(ptr, x, y, C_mk_bool(negp)); } } static C_regparm C_word bignum_times_bignum_unsigned(C_word **ptr, C_word x, C_word y, C_word negp) { C_word size, res = C_SCHEME_FALSE; if (C_bignum_size(y) < C_bignum_size(x)) { /* Ensure size(x) <= size(y) */ C_word z = x; x = y; y = z; } if (C_bignum_size(x) >= C_KARATSUBA_THRESHOLD) res = bignum_times_bignum_karatsuba(ptr, x, y, negp); if (!C_truep(res)) { size = C_bignum_size(x) + C_bignum_size(y); res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_TRUE); bignum_digits_multiply(x, y, res); res = C_bignum_simplify(res); } return res; } /* Karatsuba multiplication: invoked when the two numbers are large * enough to make it worthwhile, and we still have enough stack left. * Complexity is O(n^log2(3)), where n is max(len(x), len(y)). The * description in [Knuth, 4.3.3] leaves a lot to be desired. [MCA, * 1.3.2] and [MpNT, 3.2] are a bit easier to understand. We assume * that length(x) <= length(y). */ static C_regparm C_word bignum_times_bignum_karatsuba(C_word **ptr, C_word x, C_word y, C_word negp) { C_word kab[C_SIZEOF_FIX_BIGNUM*15+C_SIZEOF_BIGNUM(2)*3], *ka = kab, o[18], xhi, xlo, xmid, yhi, ylo, ymid, a, b, c, n, bits; int i = 0; /* Ran out of stack? Fall back to non-recursive multiplication */ C_stack_check1(return C_SCHEME_FALSE); /* Split |x| in half: <xhi,xlo> and |y|: <yhi,ylo> with len(ylo)=len(xlo) */ x = o[i++] = C_s_a_u_i_integer_abs(&ka, 1, x); y = o[i++] = C_s_a_u_i_integer_abs(&ka, 1, y); n = C_fix(C_bignum_size(y) >> 1); xhi = o[i++] = bignum_extract_digits(&ka, 3, x, n, C_SCHEME_FALSE); xlo = o[i++] = bignum_extract_digits(&ka, 3, x, C_fix(0), n); yhi = o[i++] = bignum_extract_digits(&ka, 3, y, n, C_SCHEME_FALSE); ylo = o[i++] = bignum_extract_digits(&ka, 3, y, C_fix(0), n); /* a = xhi * yhi, b = xlo * ylo, c = (xhi - xlo) * (yhi - ylo) */ a = o[i++] = C_s_a_u_i_integer_times(&ka, 2, xhi, yhi); b = o[i++] = C_s_a_u_i_integer_times(&ka, 2, xlo, ylo); xmid = o[i++] = C_s_a_u_i_integer_minus(&ka, 2, xhi, xlo); ymid = o[i++] = C_s_a_u_i_integer_minus(&ka, 2, yhi, ylo); c = o[i++] = C_s_a_u_i_integer_times(&ka, 2, xmid, ymid); /* top(x) = a << (bits - 1) and bottom(y) = ((b + (a - c)) << bits) + b */ bits = C_unfix(n) * C_BIGNUM_DIGIT_LENGTH; x = o[i++] = C_s_a_i_arithmetic_shift(&ka, 2, a, C_fix((C_uword)bits << 1)); c = o[i++] = C_s_a_u_i_integer_minus(&ka, 2, a, c); c = o[i++] = C_s_a_u_i_integer_plus(&ka, 2, b, c); c = o[i++] = C_s_a_i_arithmetic_shift(&ka, 2, c, C_fix(bits)); y = o[i++] = C_s_a_u_i_integer_plus(&ka, 2, c, b); /* Finally, return top + bottom, and correct for negative */ n = o[i++] = C_s_a_u_i_integer_plus(&ka, 2, x, y); if (C_truep(negp)) n = o[i++] = C_s_a_u_i_integer_negate(&ka, 1, n); n = move_buffer_object(ptr, kab, n); while(i--) clear_buffer_object(kab, o[i]); return n; } void C_ccall C_times(C_word c, C_word *av) { /* C_word closure = av[ 0 ]; */ C_word k = av[ 1 ]; C_word next_val, result = C_fix(1), prev_result = result; C_word ab[2][C_SIZEOF_CPLXNUM + C_SIZEOF_RATNUM*2 + C_SIZEOF_BIGNUM(2) * 4], *a; c -= 2; av += 2; while (c--) { next_val = *(av++); a = ab[c&1]; /* One may hold prev iteration result, the other is unused */ result = C_s_a_i_times(&a, 2, result, next_val); result = move_buffer_object(&a, ab[(c+1)&1], result); clear_buffer_object(ab[(c+1)&1], prev_result); prev_result = result; } C_kontinue(k, result); } static C_word bignum_plus_unsigned(C_word **ptr, C_word x, C_word y, C_word negp) { C_word size, result; C_uword sum, digit, *scan_y, *end_y, *scan_r, *end_r; int carry = 0; if (C_bignum_size(y) > C_bignum_size(x)) { /* Ensure size(y) <= size(x) */ C_word z = x; x = y; y = z; } size = C_fix(C_bignum_size(x) + 1); /* One more digit, for possible carry. */ result = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); scan_y = C_bignum_digits(y); end_y = scan_y + C_bignum_size(y); scan_r = C_bignum_digits(result); end_r = scan_r + C_bignum_size(result); /* Copy x into r so we can operate on two pointers, which is faster * than three, and we can stop earlier after adding y. It's slower * if x and y have equal length. On average it's slightly faster. */ bignum_digits_destructive_copy(result, x); *(end_r-1) = 0; /* Ensure most significant digit is initialised */ /* Move over x and y simultaneously, destructively adding digits w/ carry. */ while (scan_y < end_y) { digit = *scan_r; if (carry) { sum = digit + *scan_y++ + 1; carry = sum <= digit; } else { sum = digit + *scan_y++; carry = sum < digit; } (*scan_r++) = sum; } /* The end of y, the smaller number. Propagate carry into the rest of x. */ while (carry) { sum = (*scan_r) + 1; carry = (sum == 0); (*scan_r++) = sum; } assert(scan_r <= end_r); return C_bignum_simplify(result); } static C_word rat_plusmin_integer(C_word **ptr, C_word rat, C_word i, integer_plusmin_op plusmin_op) { C_word ab[C_SIZEOF_FIX_BIGNUM+C_SIZEOF_BIGNUM(2)], *a = ab, num, denom, tmp, res; if (i == C_fix(0)) return rat; num = C_u_i_ratnum_num(rat); denom = C_u_i_ratnum_denom(rat); /* a/b [+-] c/d = (a*d [+-] b*c)/(b*d) | d = 1: (num + denom * i) / denom */ tmp = C_s_a_u_i_integer_times(&a, 2, denom, i); res = plusmin_op(&a, 2, num, tmp); res = move_buffer_object(ptr, ab, res); clear_buffer_object(ab, tmp); return C_ratnum(ptr, res, denom); } /* This is needed only for minus: plus is commutative but minus isn't. */ static C_word integer_minus_rat(C_word **ptr, C_word i, C_word rat) { C_word ab[C_SIZEOF_FIX_BIGNUM+C_SIZEOF_BIGNUM(2)], *a = ab, num, denom, tmp, res; num = C_u_i_ratnum_num(rat); denom = C_u_i_ratnum_denom(rat); if (i == C_fix(0)) return C_ratnum(ptr, C_s_a_u_i_integer_negate(ptr, 1, num), denom); /* a/b - c/d = (a*d - b*c)/(b*d) | b = 1: (denom * i - num) / denom */ tmp = C_s_a_u_i_integer_times(&a, 2, denom, i); res = C_s_a_u_i_integer_minus(&a, 2, tmp, num); res = move_buffer_object(ptr, ab, res); clear_buffer_object(ab, tmp); return C_ratnum(ptr, res, denom); } /* This is pretty braindead and ugly */ static C_word rat_plusmin_rat(C_word **ptr, C_word x, C_word y, integer_plusmin_op plusmin_op) { C_word ab[C_SIZEOF_FIX_BIGNUM*6 + C_SIZEOF_BIGNUM(2)*2], *a = ab, xnum = C_u_i_ratnum_num(x), ynum = C_u_i_ratnum_num(y), xdenom = C_u_i_ratnum_denom(x), ydenom = C_u_i_ratnum_denom(y), xnorm, ynorm, tmp_r, g1, ydenom_g1, xdenom_g1, norm_sum, g2, len, res_num, res_denom; /* Knuth, 4.5.1. Start with g1 = gcd(xdenom, ydenom) */ g1 = C_s_a_u_i_integer_gcd(&a, 2, xdenom, ydenom); /* xnorm = xnum * (ydenom/g1) */ ydenom_g1 = C_s_a_u_i_integer_quotient(&a, 2, ydenom, g1); xnorm = C_s_a_u_i_integer_times(&a, 2, xnum, ydenom_g1); /* ynorm = ynum * (xdenom/g1) */ xdenom_g1 = C_s_a_u_i_integer_quotient(&a, 2, xdenom, g1); ynorm = C_s_a_u_i_integer_times(&a, 2, ynum, xdenom_g1); /* norm_sum = xnorm [+-] ynorm */ norm_sum = plusmin_op(&a, 2, xnorm, ynorm); /* g2 = gcd(norm_sum, g1) */ g2 = C_s_a_u_i_integer_gcd(&a, 2, norm_sum, g1); /* res_num = norm_sum / g2 */ res_num = C_s_a_u_i_integer_quotient(ptr, 2, norm_sum, g2); if (res_num == C_fix(0)) { res_denom = C_fix(0); /* No need to calculate denom: we'll return 0 */ } else { /* res_denom = xdenom_g1 * (ydenom / g2) */ C_word res_tmp_denom = C_s_a_u_i_integer_quotient(&a, 2, ydenom, g2); res_denom = C_s_a_u_i_integer_times(ptr, 2, xdenom_g1, res_tmp_denom); /* Ensure they're allocated in the correct place */ res_num = move_buffer_object(ptr, ab, res_num); res_denom = move_buffer_object(ptr, ab, res_denom); clear_buffer_object(ab, res_tmp_denom); } clear_buffer_object(ab, xdenom_g1); clear_buffer_object(ab, ydenom_g1); clear_buffer_object(ab, xnorm); clear_buffer_object(ab, ynorm); clear_buffer_object(ab, norm_sum); clear_buffer_object(ab, g1); clear_buffer_object(ab, g2); switch (res_denom) { case C_fix(0): return C_fix(0); case C_fix(1): return res_num; default: return C_ratnum(ptr, res_num, res_denom); } } /* The maximum size this needs is that required to store a complex * number result, where both real and imag parts consist of ratnums. * The maximum size of those ratnums is if they consist of two "fix * bignums", so we're looking at C_SIZEOF_CPLXNUM + C_SIZEOF_RATNUM * * 2 + C_SIZEOF_FIX_BIGNUM * 4 = 29 words! */ C_regparm C_word C_fcall C_s_a_i_plus(C_word **ptr, C_word n, C_word x, C_word y) { if (x & C_FIXNUM_BIT) { if (y & C_FIXNUM_BIT) { return C_a_i_fixnum_plus(ptr, 2, x, y); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_flonum(ptr, (double)C_unfix(x) + C_flonum_magnitude(y)); } else if (C_truep(C_bignump(y))) { return C_s_a_u_i_integer_plus(ptr, 2, x, y); } else if (C_block_header(y) == C_RATNUM_TAG) { return rat_plusmin_integer(ptr, y, x, C_s_a_u_i_integer_plus); } else if (C_block_header(y) == C_CPLXNUM_TAG) { C_word real_sum = C_s_a_i_plus(ptr, 2, x, C_u_i_cplxnum_real(y)), imag = C_u_i_cplxnum_imag(y); if (C_truep(C_u_i_inexactp(real_sum))) imag = C_a_i_exact_to_inexact(ptr, 1, imag); return C_cplxnum(ptr, real_sum, imag); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); } } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", x); } else if (C_block_header(x) == C_FLONUM_TAG) { if (y & C_FIXNUM_BIT) { return C_flonum(ptr, C_flonum_magnitude(x) + (double)C_unfix(y)); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_a_i_flonum_plus(ptr, 2, x, y); } else if (C_truep(C_bignump(y))) { return C_flonum(ptr, C_flonum_magnitude(x)+C_bignum_to_double(y)); } else if (C_block_header(y) == C_RATNUM_TAG) { return C_s_a_i_plus(ptr, 2, x, C_a_i_exact_to_inexact(ptr, 1, y)); } else if (C_block_header(y) == C_CPLXNUM_TAG) { C_word real_sum = C_s_a_i_plus(ptr, 2, x, C_u_i_cplxnum_real(y)), imag = C_u_i_cplxnum_imag(y); if (C_truep(C_u_i_inexactp(real_sum))) imag = C_a_i_exact_to_inexact(ptr, 1, imag); return C_cplxnum(ptr, real_sum, imag); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); } } else if (C_truep(C_bignump(x))) { if (y & C_FIXNUM_BIT) { return C_s_a_u_i_integer_plus(ptr, 2, x, y); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_flonum(ptr, C_bignum_to_double(x)+C_flonum_magnitude(y)); } else if (C_truep(C_bignump(y))) { return C_s_a_u_i_integer_plus(ptr, 2, x, y); } else if (C_block_header(y) == C_RATNUM_TAG) { return rat_plusmin_integer(ptr, y, x, C_s_a_u_i_integer_plus); } else if (C_block_header(y) == C_CPLXNUM_TAG) { C_word real_sum = C_s_a_i_plus(ptr, 2, x, C_u_i_cplxnum_real(y)), imag = C_u_i_cplxnum_imag(y); if (C_truep(C_u_i_inexactp(real_sum))) imag = C_a_i_exact_to_inexact(ptr, 1, imag); return C_cplxnum(ptr, real_sum, imag); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); } } else if (C_block_header(x) == C_RATNUM_TAG) { if (y & C_FIXNUM_BIT) { return rat_plusmin_integer(ptr, x, y, C_s_a_u_i_integer_plus); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_s_a_i_plus(ptr, 2, C_a_i_exact_to_inexact(ptr, 1, x), y); } else if (C_truep(C_bignump(y))) { return rat_plusmin_integer(ptr, x, y, C_s_a_u_i_integer_plus); } else if (C_block_header(y) == C_RATNUM_TAG) { return rat_plusmin_rat(ptr, x, y, C_s_a_u_i_integer_plus); } else if (C_block_header(y) == C_CPLXNUM_TAG) { C_word real_sum = C_s_a_i_plus(ptr, 2, x, C_u_i_cplxnum_real(y)), imag = C_u_i_cplxnum_imag(y); if (C_truep(C_u_i_inexactp(real_sum))) imag = C_a_i_exact_to_inexact(ptr, 1, imag); return C_cplxnum(ptr, real_sum, imag); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); } } else if (C_block_header(x) == C_CPLXNUM_TAG) { if (!C_immediatep(y) && C_block_header(y) == C_CPLXNUM_TAG) { C_word real_sum, imag_sum; real_sum = C_s_a_i_plus(ptr, 2, C_u_i_cplxnum_real(x), C_u_i_cplxnum_real(y)); imag_sum = C_s_a_i_plus(ptr, 2, C_u_i_cplxnum_imag(x), C_u_i_cplxnum_imag(y)); if (C_truep(C_u_i_zerop(imag_sum))) return real_sum; else return C_cplxnum(ptr, real_sum, imag_sum); } else { C_word real_sum = C_s_a_i_plus(ptr, 2, C_u_i_cplxnum_real(x), y), imag = C_u_i_cplxnum_imag(x); if (C_truep(C_u_i_inexactp(real_sum))) imag = C_a_i_exact_to_inexact(ptr, 1, imag); return C_cplxnum(ptr, real_sum, imag); } } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", x); } } C_regparm C_word C_fcall C_s_a_u_i_integer_plus(C_word **ptr, C_word n, C_word x, C_word y) { if ((x & y) & C_FIXNUM_BIT) { return C_a_i_fixnum_plus(ptr, 2, x, y); } else { C_word ab[C_SIZEOF_FIX_BIGNUM * 2 + C_SIZEOF_BIGNUM_WRAPPER], *a = ab; if (x & C_FIXNUM_BIT) x = C_a_u_i_fix_to_big(&a, x); if (y & C_FIXNUM_BIT) y = C_a_u_i_fix_to_big(&a, y); if (C_bignum_negativep(x)) { if (C_bignum_negativep(y)) { return bignum_plus_unsigned(ptr, x, y, C_SCHEME_TRUE); } else { return bignum_minus_unsigned(ptr, y, x); } } else { if (C_bignum_negativep(y)) { return bignum_minus_unsigned(ptr, x, y); } else { return bignum_plus_unsigned(ptr, x, y, C_SCHEME_FALSE); } } } } void C_ccall C_plus(C_word c, C_word *av) { /* C_word closure = av[ 0 ]; */ C_word k = av[ 1 ]; C_word next_val, result = C_fix(0), prev_result = result; C_word ab[2][C_SIZEOF_CPLXNUM + C_SIZEOF_RATNUM*2 + C_SIZEOF_FIX_BIGNUM * 4], *a; c -= 2; av += 2; while (c--) { next_val = *(av++); a = ab[c&1]; /* One may hold last iteration result, the other is unused */ result = C_s_a_i_plus(&a, 2, result, next_val); result = move_buffer_object(&a, ab[(c+1)&1], result); clear_buffer_object(ab[(c+1)&1], prev_result); prev_result = result; } C_kontinue(k, result); } static C_word bignum_minus_unsigned(C_word **ptr, C_word x, C_word y) { C_word res, size; C_uword *scan_r, *end_r, *scan_y, *end_y, difference, digit; int borrow = 0; switch(bignum_cmp_unsigned(x, y)) { case 0: /* x = y, return 0 */ return C_fix(0); case -1: /* abs(x) < abs(y), return -(abs(y) - abs(x)) */ size = C_fix(C_bignum_size(y)); /* Maximum size of result is length of y. */ res = C_allocate_scratch_bignum(ptr, size, C_SCHEME_TRUE, C_SCHEME_FALSE); size = y; y = x; x = size; break; case 1: /* abs(x) > abs(y), return abs(x) - abs(y) */ default: size = C_fix(C_bignum_size(x)); /* Maximum size of result is length of x. */ res = C_allocate_scratch_bignum(ptr, size, C_SCHEME_FALSE, C_SCHEME_FALSE); break; } scan_r = C_bignum_digits(res); end_r = scan_r + C_bignum_size(res); scan_y = C_bignum_digits(y); end_y = scan_y + C_bignum_size(y); bignum_digits_destructive_copy(res, x); /* See bignum_plus_unsigned */ /* Destructively subtract y's digits w/ borrow from and back into r. */ while (scan_y < end_y) { digit = *scan_r; if (borrow) { difference = digit - *scan_y++ - 1; borrow = difference >= digit; } else { difference = digit - *scan_y++; borrow = difference > digit; } (*scan_r++) = difference; } /* The end of y, the smaller number. Propagate borrow into the rest of x. */ while (borrow) { digit = *scan_r; difference = digit - borrow; borrow = difference >= digit; (*scan_r++) = difference; } assert(scan_r <= end_r); return C_bignum_simplify(res); } /* Like C_s_a_i_plus, this needs at most 29 words */ C_regparm C_word C_fcall C_s_a_i_minus(C_word **ptr, C_word n, C_word x, C_word y) { if (x & C_FIXNUM_BIT) { if (y & C_FIXNUM_BIT) { return C_a_i_fixnum_difference(ptr, 2, x, y); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_flonum(ptr, (double)C_unfix(x) - C_flonum_magnitude(y)); } else if (C_truep(C_bignump(y))) { return C_s_a_u_i_integer_minus(ptr, 2, x, y); } else if (C_block_header(y) == C_RATNUM_TAG) { return integer_minus_rat(ptr, x, y); } else if (C_block_header(y) == C_CPLXNUM_TAG) { C_word real_diff = C_s_a_i_minus(ptr, 2, x, C_u_i_cplxnum_real(y)), imag = C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_imag(y)); if (C_truep(C_u_i_inexactp(real_diff))) imag = C_a_i_exact_to_inexact(ptr, 1, imag); return C_cplxnum(ptr, real_diff, imag); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); } } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", x); } else if (C_block_header(x) == C_FLONUM_TAG) { if (y & C_FIXNUM_BIT) { return C_flonum(ptr, C_flonum_magnitude(x) - (double)C_unfix(y)); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_a_i_flonum_difference(ptr, 2, x, y); } else if (C_truep(C_bignump(y))) { return C_flonum(ptr, C_flonum_magnitude(x)-C_bignum_to_double(y)); } else if (C_block_header(y) == C_RATNUM_TAG) { return C_s_a_i_minus(ptr, 2, x, C_a_i_exact_to_inexact(ptr, 1, y)); } else if (C_block_header(y) == C_CPLXNUM_TAG) { C_word real_diff = C_s_a_i_minus(ptr, 2, x, C_u_i_cplxnum_real(y)), imag = C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_imag(y)); if (C_truep(C_u_i_inexactp(real_diff))) imag = C_a_i_exact_to_inexact(ptr, 1, imag); return C_cplxnum(ptr, real_diff, imag); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); } } else if (C_truep(C_bignump(x))) { if (y & C_FIXNUM_BIT) { return C_s_a_u_i_integer_minus(ptr, 2, x, y); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_flonum(ptr, C_bignum_to_double(x)-C_flonum_magnitude(y)); } else if (C_truep(C_bignump(y))) { return C_s_a_u_i_integer_minus(ptr, 2, x, y); } else if (C_block_header(y) == C_RATNUM_TAG) { return integer_minus_rat(ptr, x, y); } else if (C_block_header(y) == C_CPLXNUM_TAG) { C_word real_diff = C_s_a_i_minus(ptr, 2, x, C_u_i_cplxnum_real(y)), imag = C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_imag(y)); if (C_truep(C_u_i_inexactp(real_diff))) imag = C_a_i_exact_to_inexact(ptr, 1, imag); return C_cplxnum(ptr, real_diff, imag); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); } } else if (C_block_header(x) == C_RATNUM_TAG) { if (y & C_FIXNUM_BIT) { return rat_plusmin_integer(ptr, x, y, C_s_a_u_i_integer_minus); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); } else if (C_block_header(y) == C_FLONUM_TAG) { return C_s_a_i_minus(ptr, 2, C_a_i_exact_to_inexact(ptr, 1, x), y); } else if (C_truep(C_bignump(y))) { return rat_plusmin_integer(ptr, x, y, C_s_a_u_i_integer_minus); } else if (C_block_header(y) == C_RATNUM_TAG) { return rat_plusmin_rat(ptr, x, y, C_s_a_u_i_integer_minus); } else if (C_block_header(y) == C_CPLXNUM_TAG) { C_word real_diff = C_s_a_i_minus(ptr, 2, x, C_u_i_cplxnum_real(y)), imag = C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_imag(y)); if (C_truep(C_u_i_inexactp(real_diff))) imag = C_a_i_exact_to_inexact(ptr, 1, imag); return C_cplxnum(ptr, real_diff, imag); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); } } else if (C_block_header(x) == C_CPLXNUM_TAG) { if (!C_immediatep(y) && C_block_header(y) == C_CPLXNUM_TAG) { C_word real_diff, imag_diff; real_diff = C_s_a_i_minus(ptr,2,C_u_i_cplxnum_real(x),C_u_i_cplxnum_real(y)); imag_diff = C_s_a_i_minus(ptr,2,C_u_i_cplxnum_imag(x),C_u_i_cplxnum_imag(y)); if (C_truep(C_u_i_zerop(imag_diff))) return real_diff; else return C_cplxnum(ptr, real_diff, imag_diff); } else { C_word real_diff = C_s_a_i_minus(ptr, 2, C_u_i_cplxnum_real(x), y), imag = C_u_i_cplxnum_imag(x); if (C_truep(C_u_i_inexactp(real_diff))) imag = C_a_i_exact_to_inexact(ptr, 1, imag); return C_cplxnum(ptr, real_diff, imag); } } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", x); } } C_regparm C_word C_fcall C_s_a_u_i_integer_minus(C_word **ptr, C_word n, C_word x, C_word y) { if ((x & y) & C_FIXNUM_BIT) { return C_a_i_fixnum_difference(ptr, 2, x, y); } else { C_word ab[C_SIZEOF_FIX_BIGNUM * 2 + C_SIZEOF_BIGNUM_WRAPPER], *a = ab; if (x & C_FIXNUM_BIT) x = C_a_u_i_fix_to_big(&a, x); if (y & C_FIXNUM_BIT) y = C_a_u_i_fix_to_big(&a, y); if (C_bignum_negativep(x)) { if (C_bignum_negativep(y)) { return bignum_minus_unsigned(ptr, y, x); } else { return bignum_plus_unsigned(ptr, x, y, C_SCHEME_TRUE); } } else { if (C_bignum_negativep(y)) { return bignum_plus_unsigned(ptr, x, y, C_SCHEME_FALSE); } else { return bignum_minus_unsigned(ptr, x, y); } } } } void C_ccall C_minus(C_word c, C_word *av) { /* C_word closure = av[ 0 ]; */ C_word k = av[ 1 ]; C_word next_val, result, prev_result; C_word ab[2][C_SIZEOF_CPLXNUM + C_SIZEOF_RATNUM*2 + C_SIZEOF_FIX_BIGNUM * 4], *a; if (c < 3) { C_bad_min_argc(c, 3); } else if (c == 3) { a = ab[0]; C_kontinue(k, C_s_a_i_negate(&a, 1, av[ 2 ])); } else { prev_result = result = av[ 2 ]; c -= 3; av += 3; while (c--) { next_val = *(av++); a = ab[c&1]; /* One may hold last iteration result, the other is unused */ result = C_s_a_i_minus(&a, 2, result, next_val); result = move_buffer_object(&a, ab[(c+1)&1], result); clear_buffer_object(ab[(c+1)&1], prev_result); prev_result = result; } C_kontinue(k, result); } } static C_regparm void integer_divrem(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r) { if (!(y & C_FIXNUM_BIT)) { /* y is bignum. */ if (x & C_FIXNUM_BIT) { /* abs(x) < abs(y), so it will always be [0, x] except for this case: */ if (x == C_fix(C_MOST_NEGATIVE_FIXNUM) && C_bignum_negated_fitsinfixnump(y)) { if (q != NULL) *q = C_fix(-1); if (r != NULL) *r = C_fix(0); } else { if (q != NULL) *q = C_fix(0); if (r != NULL) *r = x; } } else { bignum_divrem(ptr, x, y, q, r); } } else if (x & C_FIXNUM_BIT) { /* both x and y are fixnum. */ if (q != NULL) *q = C_a_i_fixnum_quotient_checked(ptr, 2, x, y); if (r != NULL) *r = C_i_fixnum_remainder_checked(x, y); } else { /* x is bignum, y is fixnum. */ C_word absy = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y); if (y == C_fix(1)) { if (q != NULL) *q = x; if (r != NULL) *r = C_fix(0); } else if (y == C_fix(-1)) { if (q != NULL) *q = C_s_a_u_i_integer_negate(ptr, 1, x); if (r != NULL) *r = C_fix(0); } else if (C_fitsinbignumhalfdigitp(absy) || ((((C_uword)1 << (C_ilen(absy)-1)) == absy) && C_fitsinfixnump(absy))) { assert(y != C_fix(0)); /* _must_ be checked by caller */ if (q != NULL) { bignum_destructive_divide_unsigned_small(ptr, x, y, q, r); } else { /* We assume r isn't NULL here (that makes no sense) */ C_word rem; C_uword next_power = (C_uword)1 << (C_ilen(absy)-1); if (next_power == absy) { /* Is absy a power of two? */ rem = *(C_bignum_digits(x)) & (next_power - 1); } else { /* Too bad, we have to do some real work */ rem = bignum_remainder_unsigned_halfdigit(x, absy); } *r = C_bignum_negativep(x) ? C_fix(-rem) : C_fix(rem); } } else { /* Just divide it as two bignums */ C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab; bignum_divrem(ptr, x, C_a_u_i_fix_to_big(&a, y), q, r); if (q != NULL) *q = move_buffer_object(ptr, ab, *q); if (r != NULL) *r = move_buffer_object(ptr, ab, *r); } } } /* This _always_ needs two bignum wrappers in ptr! */ static C_regparm void bignum_divrem(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r) { C_word q_negp = C_mk_bool(C_bignum_negativep(y) != C_bignum_negativep(x)), r_negp = C_mk_bool(C_bignum_negativep(x)), res, size; switch(bignum_cmp_unsigned(x, y)) { case 0: if (q != NULL) *q = C_truep(q_negp) ? C_fix(-1) : C_fix(1); if (r != NULL) *r = C_fix(0); break; case -1: if (q != NULL) *q = C_fix(0); if (r != NULL) *r = x; break; case 1: default: res = C_SCHEME_FALSE; size = C_bignum_size(x) - C_bignum_size(y); if (C_bignum_size(y) > C_BURNIKEL_ZIEGLER_THRESHOLD && size > C_BURNIKEL_ZIEGLER_THRESHOLD) { res = bignum_divide_burnikel_ziegler(ptr, x, y, q, r); } if (!C_truep(res)) { bignum_divide_unsigned(ptr, x, y, q, q_negp, r, r_negp); if (q != NULL) *q = C_bignum_simplify(*q); if (r != NULL) *r = C_bignum_simplify(*r); } break; } } /* Burnikel-Ziegler recursive division: Split high number (x) in three * or four parts and divide by the lowest number (y), split in two * parts. There are descriptions in [MpNT, 4.2], [MCA, 1.4.3] and the * paper "Fast Recursive Division" by Christoph Burnikel & Joachim * Ziegler is freely available. There is also a description in Karl * Hasselstrom's thesis "Fast Division of Integers". * * The complexity of this is supposedly O(r*s^{log(3)-1} + r*log(s)), * where s is the length of x, and r is the length of y (in digits). * * TODO: See if it's worthwhile to implement "division without remainder" * from the Burnikel-Ziegler paper. */ static C_regparm C_word bignum_divide_burnikel_ziegler(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r) { C_word ab[C_SIZEOF_FIX_BIGNUM*9], *a = ab, lab[2][C_SIZEOF_FIX_BIGNUM*10], *la, q_negp = (C_bignum_negativep(y) ? C_mk_nbool(C_bignum_negativep(x)) : C_mk_bool(C_bignum_negativep(x))), r_negp = C_mk_bool(C_bignum_negativep(x)), s, m, n, i, j, l, shift, yhi, ylo, zi, zi_orig, newx, newy, quot, qi, ri; /* Ran out of stack? Fall back to non-recursive division */ C_stack_check1(return C_SCHEME_FALSE); x = C_s_a_u_i_integer_abs(&a, 1, x); y = C_s_a_u_i_integer_abs(&a, 1, y); /* Define m as min{2^k|(2^k)*BURNIKEL_ZIEGLER_DIFF_THRESHOLD > s} * This ensures we shift as little as possible (less pressure * on the GC) while maintaining a power of two until we drop * below the threshold, so we can always split N in half. */ s = C_bignum_size(y); m = 1 << C_ilen(s / C_BURNIKEL_ZIEGLER_THRESHOLD); j = (s+m-1) / m; /* j = s/m, rounded up */ n = j * m; shift = (C_BIGNUM_DIGIT_LENGTH * n) - integer_length_abs(y); newx = C_s_a_i_arithmetic_shift(&a, 2, x, C_fix(shift)); newy = C_s_a_i_arithmetic_shift(&a, 2, y, C_fix(shift)); if (shift != 0) { clear_buffer_object(ab, x); clear_buffer_object(ab, y); } x = newx; y = newy; /* l needs to be the smallest value so that a < base^{l*n}/2 */ l = (C_bignum_size(x) + n) / n; if ((C_BIGNUM_DIGIT_LENGTH * l) == integer_length_abs(x)) l++; l = nmax(l, 2); yhi = bignum_extract_digits(&a, 3, y, C_fix(n >> 1), C_SCHEME_FALSE); ylo = bignum_extract_digits(&a, 3, y, C_fix(0), C_fix(n >> 1)); s = (l - 2) * n * C_BIGNUM_DIGIT_LENGTH; zi_orig = zi = C_s_a_i_arithmetic_shift(&a, 2, x, C_fix(-s)); quot = C_fix(0); for(i = l - 2; i >= 0; --i) { la = lab[i&1]; burnikel_ziegler_2n_div_1n(&la, zi, y, yhi, ylo, C_fix(n), &qi, &ri); newx = C_s_a_i_arithmetic_shift(&la, 2, quot, C_fix(n*C_BIGNUM_DIGIT_LENGTH)); clear_buffer_object(lab, quot); quot = C_s_a_u_i_integer_plus(&la, 2, newx, qi); move_buffer_object(&la, lab[(i+1)&1], quot); clear_buffer_object(lab, newx); clear_buffer_object(lab, qi); if (i > 0) { /* Set z_{i-1} = [r{i}, x{i-1}] */ newx = bignum_extract_digits(&la, 3, x, C_fix(n * (i-1)), C_fix(n * i)); newy = C_s_a_i_arithmetic_shift(&la, 2, ri, C_fix(n*C_BIGNUM_DIGIT_LENGTH)); clear_buffer_object(lab, zi); zi = C_s_a_u_i_integer_plus(&la, 2, newx, newy); move_buffer_object(&la, lab[(i+1)&1], zi); move_buffer_object(&la, lab[(i+1)&1], quot); clear_buffer_object(lab, newx); clear_buffer_object(lab, newy); clear_buffer_object(lab, ri); } } clear_buffer_object(ab, x); clear_buffer_object(ab, y); clear_buffer_object(ab, yhi); clear_buffer_object(ab, ylo); clear_buffer_object(ab, zi_orig); clear_buffer_object(lab, zi); if (q != NULL) { if (C_truep(q_negp)) { newx = C_s_a_u_i_integer_negate(&la, 1, quot); clear_buffer_object(lab, quot); quot = newx; } *q = move_buffer_object(ptr, lab, quot); } clear_buffer_object(lab, quot); if (r != NULL) { newx = C_s_a_i_arithmetic_shift(&la, 2, ri, C_fix(-shift)); if (C_truep(r_negp)) { newy = C_s_a_u_i_integer_negate(ptr, 1, newx); clear_buffer_object(lab, newx); newx = newy; } *r = move_buffer_object(ptr, lab, newx); } clear_buffer_object(lab, ri); return C_SCHEME_TRUE; } static C_regparm void burnikel_ziegler_3n_div_2n(C_word **ptr, C_word a12, C_word a3, C_word b, C_word b1, C_word b2, C_word n, C_word *q, C_word *r) { C_word kab[C_SIZEOF_FIX_BIGNUM*6 + C_SIZEOF_BIGNUM(2)], *ka = kab, lab[2][C_SIZEOF_FIX_BIGNUM*4], *la, size, tmp, less, qhat, rhat, r1, r1a3, i = 0; size = C_unfix(n) * C_BIGNUM_DIGIT_LENGTH; tmp = C_s_a_i_arithmetic_shift(&ka, 2, a12, C_fix(-size)); less = C_i_integer_lessp(tmp, b1); /* a1 < b1 ? */ clear_buffer_object(kab, tmp); if (C_truep(less)) { C_word atmpb[C_SIZEOF_FIX_BIGNUM*2], *atmp = atmpb, b11, b12, halfn; halfn = C_fix(C_unfix(n) >> 1); b11 = bignum_extract_digits(&atmp, 3, b1, halfn, C_SCHEME_FALSE); b12 = bignum_extract_digits(&atmp, 3, b1, C_fix(0), halfn); burnikel_ziegler_2n_div_1n(&ka, a12, b1, b11, b12, n, &qhat, &r1); qhat = move_buffer_object(&ka, atmpb, qhat); r1 = move_buffer_object(&ka, atmpb, r1); clear_buffer_object(atmpb, b11); clear_buffer_object(atmpb, b12); } else { C_word atmpb[C_SIZEOF_FIX_BIGNUM*5], *atmp = atmpb, tmp2; tmp = C_s_a_i_arithmetic_shift(&atmp, 2, C_fix(1), C_fix(size)); qhat = C_s_a_u_i_integer_minus(&ka, 2, tmp, C_fix(1)); /* B^n - 1 */ qhat = move_buffer_object(&ka, atmpb, qhat); clear_buffer_object(atmpb, tmp); /* r1 = (a12 - b1*B^n) + b1 */ tmp = C_s_a_i_arithmetic_shift(&atmp, 2, b1, C_fix(size)); tmp2 = C_s_a_u_i_integer_minus(&atmp, 2, a12, tmp); r1 = C_s_a_u_i_integer_plus(&ka, 2, tmp2, b1); r1 = move_buffer_object(&ka, atmpb, r1); clear_buffer_object(atmpb, tmp); clear_buffer_object(atmpb, tmp2); } tmp = C_s_a_i_arithmetic_shift(&ka, 2, r1, C_fix(size)); clear_buffer_object(kab, r1); r1a3 = C_s_a_u_i_integer_plus(&ka, 2, tmp, a3); b2 = C_s_a_u_i_integer_times(&ka, 2, qhat, b2); la = lab[0]; rhat = C_s_a_u_i_integer_minus(&la, 2, r1a3, b2); rhat = move_buffer_object(&la, kab, rhat); qhat = move_buffer_object(&la, kab, qhat); clear_buffer_object(kab, tmp); clear_buffer_object(kab, r1a3); clear_buffer_object(kab, b2); while(C_truep(C_i_negativep(rhat))) { la = lab[(++i)&1]; /* rhat += b */ r1 = C_s_a_u_i_integer_plus(&la, 2, rhat, b); tmp = move_buffer_object(&la, lab[(i-1)&1], r1); clear_buffer_object(lab[(i-1)&1], r1); clear_buffer_object(lab[(i-1)&1], rhat); clear_buffer_object(kab, rhat); rhat = tmp; /* qhat -= 1 */ r1 = C_s_a_u_i_integer_minus(&la, 2, qhat, C_fix(1)); tmp = move_buffer_object(&la, lab[(i-1)&1], r1); clear_buffer_object(lab[(i-1)&1], r1); clear_buffer_object(lab[(i-1)&1], qhat); clear_buffer_object(kab, qhat); qhat = tmp; } if (q != NULL) *q = move_buffer_object(ptr, lab, qhat); if (r != NULL) *r = move_buffer_object(ptr, lab, rhat); clear_buffer_object(lab, qhat); clear_buffer_object(lab, rhat); } static C_regparm void burnikel_ziegler_2n_div_1n(C_word **ptr, C_word a, C_word b, C_word b1, C_word b2, C_word n, C_word *q, C_word *r) { C_word kab[2][C_SIZEOF_FIX_BIGNUM*7], *ka, a12, a3, a4, q1 = C_fix(0), r1, q2 = C_fix(0), r2, *qp; int stack_full = 0; C_stack_check1(stack_full = 1); n = C_unfix(n); if (stack_full || (n & 1) || (n < C_BURNIKEL_ZIEGLER_THRESHOLD)) { integer_divrem(ptr, a, b, q, r); } else { ka = kab[0]; a12 = bignum_extract_digits(&ka, 3, a, C_fix(n), C_SCHEME_FALSE); a3 = bignum_extract_digits(&ka, 3, a, C_fix(n >> 1), C_fix(n)); qp = (q == NULL) ? NULL : &q1; ka = kab[1]; burnikel_ziegler_3n_div_2n(&ka, a12, a3, b, b1, b2, C_fix(n >> 1), qp, &r1); q1 = move_buffer_object(&ka, kab[0], q1); r1 = move_buffer_object(&ka, kab[0], r1); clear_buffer_object(kab[0], a12); clear_buffer_object(kab[0], a3); a4 = bignum_extract_digits(&ka, 3, a, C_fix(0), C_fix(n >> 1)); qp = (q == NULL) ? NULL : &q2; ka = kab[0]; burnikel_ziegler_3n_div_2n(&ka, r1, a4, b, b1, b2, C_fix(n >> 1), qp, r); if (r != NULL) *r = move_buffer_object(ptr, kab[0], *r); clear_buffer_object(kab[1], r1); if (q != NULL) { C_word halfn_bits = (n >> 1) * C_BIGNUM_DIGIT_LENGTH; r1 = C_s_a_i_arithmetic_shift(&ka, 2, q1, C_fix(halfn_bits)); *q = C_s_a_i_plus(ptr, 2, r1, q2); /* q = [q1, q2] */ *q = move_buffer_object(ptr, kab[0], *q); clear_buffer_object(kab[0], r1); clear_buffer_object(kab[1], q1); clear_buffer_object(kab[0], q2); } clear_buffer_object(kab[1], a4); } } static C_regparm C_word bignum_remainder_unsigned_halfdigit(C_word x, C_word y) { C_uword *start = C_bignum_digits(x), *scan = start + C_bignum_size(x), rem = 0, two_digits; assert((y > 1) && (C_fitsinbignumhalfdigitp(y))); while (start < scan) { two_digits = (*--scan); rem = C_BIGNUM_DIGIT_COMBINE(rem, C_BIGNUM_DIGIT_HI_HALF(two_digits)) % y; rem = C_BIGNUM_DIGIT_COMBINE(rem, C_BIGNUM_DIGIT_LO_HALF(two_digits)) % y; } return rem; } /* There doesn't seem to be a way to return two values from inline functions */ void C_ccall C_quotient_and_remainder(C_word c, C_word *av) { C_word ab[C_SIZEOF_FIX_BIGNUM*4+C_SIZEOF_FLONUM*2], *a = ab, nx = C_SCHEME_FALSE, ny = C_SCHEME_FALSE, q, r, k, x, y; if (c != 4) C_bad_argc_2(c, 4, av[ 0 ]); k = av[ 1 ]; x = av[ 2 ]; y = av[ 3 ]; if (!C_truep(C_i_integerp(x))) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "quotient&remainder", x); if (!C_truep(C_i_integerp(y))) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "quotient&remainder", y); if (C_truep(C_i_zerop(y))) C_div_by_zero_error("quotient&remainder"); if (C_truep(C_i_flonump(x))) { if C_truep(C_i_flonump(y)) { double dx = C_flonum_magnitude(x), dy = C_flonum_magnitude(y), tmp; C_modf(dx / dy, &tmp); q = C_flonum(&a, tmp); r = C_flonum(&a, dx - tmp * dy); /* reuse av */ av[ 0 ] = C_SCHEME_UNDEFINED; /* av[ 1 ] = k; */ /* stays the same */ av[ 2 ] = q; av[ 3 ] = r; C_values(4, av); } x = nx = C_s_a_u_i_flo_to_int(&a, 1, x); } if (C_truep(C_i_flonump(y))) { y = ny = C_s_a_u_i_flo_to_int(&a, 1, y); } integer_divrem(&a, x, y, &q, &r); if (C_truep(nx) || C_truep(ny)) { C_word newq, newr; newq = C_a_i_exact_to_inexact(&a, 1, q); newr = C_a_i_exact_to_inexact(&a, 1, r); clear_buffer_object(ab, q); clear_buffer_object(ab, r); q = newq; r = newr; clear_buffer_object(ab, nx); clear_buffer_object(ab, ny); } /* reuse av */ av[ 0 ] = C_SCHEME_UNDEFINED; /* av[ 1 ] = k; */ /* stays the same */ av[ 2 ] = q; av[ 3 ] = r; C_values(4, av); } void C_ccall C_u_integer_quotient_and_remainder(C_word c, C_word *av) { C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, q, r; if (av[ 3 ] == C_fix(0)) C_div_by_zero_error("quotient&remainder"); integer_divrem(&a, av[ 2 ], av[ 3 ], &q, &r); /* reuse av */ av[ 0 ] = C_SCHEME_UNDEFINED; /* av[ 1 ] = k; */ /* stays the same */ av[ 2 ] = q; av[ 3 ] = r; C_values(4, av); } C_regparm C_word C_fcall C_s_a_i_remainder(C_word **ptr, C_word n, C_word x, C_word y) { C_word ab[C_SIZEOF_FIX_BIGNUM*4+C_SIZEOF_FLONUM*2], *a = ab, r, nx = C_SCHEME_FALSE, ny = C_SCHEME_FALSE; if (!C_truep(C_i_integerp(x))) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "remainder", x); if (!C_truep(C_i_integerp(y))) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "remainder", y); if (C_truep(C_i_zerop(y))) C_div_by_zero_error("remainder"); if (C_truep(C_i_flonump(x))) { if C_truep(C_i_flonump(y)) { double dx = C_flonum_magnitude(x), dy = C_flonum_magnitude(y), tmp; C_modf(dx / dy, &tmp); return C_flonum(ptr, dx - tmp * dy); } x = nx = C_s_a_u_i_flo_to_int(&a, 1, x); } if (C_truep(C_i_flonump(y))) { y = ny = C_s_a_u_i_flo_to_int(&a, 1, y); } integer_divrem(&a, x, y, NULL, &r); if (C_truep(nx) || C_truep(ny)) { C_word newr = C_a_i_exact_to_inexact(ptr, 1, r); clear_buffer_object(ab, r); r = newr; clear_buffer_object(ab, nx); clear_buffer_object(ab, ny); } return move_buffer_object(ptr, ab, r); } C_regparm C_word C_fcall C_s_a_u_i_integer_remainder(C_word **ptr, C_word n, C_word x, C_word y) { C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, r; if (y == C_fix(0)) C_div_by_zero_error("remainder"); integer_divrem(&a, x, y, NULL, &r); return move_buffer_object(ptr, ab, r); } /* Modulo's sign follows y (whereas remainder's sign follows x) */ C_regparm C_word C_fcall C_s_a_i_modulo(C_word **ptr, C_word n, C_word x, C_word y) { C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab, r; if (!C_truep(C_i_integerp(x))) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "modulo", x); if (!C_truep(C_i_integerp(y))) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "modulo", y); if (C_truep(C_i_zerop(y))) C_div_by_zero_error("modulo"); r = C_s_a_i_remainder(&a, 2, x, y); if (C_i_positivep(y) != C_i_positivep(r) && !C_truep(C_i_zerop(r))) { C_word m = C_s_a_i_plus(ptr, 2, r, y); m = move_buffer_object(ptr, ab, m); clear_buffer_object(ab, r); r = m; } return move_buffer_object(ptr, ab, r); } C_regparm C_word C_fcall C_s_a_u_i_integer_modulo(C_word **ptr, C_word n, C_word x, C_word y) { C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab, r; if (y == C_fix(0)) C_div_by_zero_error("modulo"); r = C_s_a_i_remainder(&a, 2, x, y); if (C_i_positivep(y) != C_i_positivep(r) && r != C_fix(0)) { C_word m = C_s_a_u_i_integer_plus(ptr, 2, r, y); m = move_buffer_object(ptr, ab, m); clear_buffer_object(ab, r); r = m; } return move_buffer_object(ptr, ab, r); } C_regparm C_word C_fcall C_s_a_i_quotient(C_word **ptr, C_word n, C_word x, C_word y) { C_word ab[C_SIZEOF_FIX_BIGNUM*4+C_SIZEOF_FLONUM*2], *a = ab, q, nx = C_SCHEME_FALSE, ny = C_SCHEME_FALSE; if (!C_truep(C_i_integerp(x))) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "quotient", x); if (!C_truep(C_i_integerp(y))) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "quotient", y); if (C_truep(C_i_zerop(y))) C_div_by_zero_error("quotient"); if (C_truep(C_i_flonump(x))) { if C_truep(C_i_flonump(y)) { double dx = C_flonum_magnitude(x), dy = C_flonum_magnitude(y), tmp; C_modf(dx / dy, &tmp); return C_flonum(ptr, tmp); } x = nx = C_s_a_u_i_flo_to_int(&a, 1, x); } if (C_truep(C_i_flonump(y))) { y = ny = C_s_a_u_i_flo_to_int(&a, 1, y); } integer_divrem(&a, x, y, &q, NULL); if (C_truep(nx) || C_truep(ny)) { C_word newq = C_a_i_exact_to_inexact(ptr, 1, q); clear_buffer_object(ab, q); q = newq; clear_buffer_object(ab, nx); clear_buffer_object(ab, ny); } return move_buffer_object(ptr, ab, q); } C_regparm C_word C_fcall C_s_a_u_i_integer_quotient(C_word **ptr, C_word n, C_word x, C_word y) { C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, q; if (y == C_fix(0)) C_div_by_zero_error("quotient"); integer_divrem(&a, x, y, &q, NULL); return move_buffer_object(ptr, ab, q); } /* For help understanding this algorithm, see: Knuth, Donald E., "The Art of Computer Programming", volume 2, "Seminumerical Algorithms" section 4.3.1, "Multiple-Precision Arithmetic". [Yeah, that's a nice book but that particular section is not helpful at all, which is also pointed out by P. Brinch Hansen's "Multiple-Length Division Revisited: A Tour Of The Minefield". That's a more down-to-earth step-by-step explanation of the algorithm. Add to this the C implementation in Hacker's Delight (section 9-2, p141--142) and you may be able to grok this... ...barely, if you're as math-challenged as I am -- sjamaan] This assumes that numerator >= denominator! */ static void bignum_divide_unsigned(C_word **ptr, C_word num, C_word denom, C_word *q, C_word q_negp, C_word *r, C_word r_negp) { C_word quotient = C_SCHEME_UNDEFINED, remainder = C_SCHEME_UNDEFINED, return_rem = C_mk_nbool(r == NULL), size; if (q != NULL) { size = C_fix(C_bignum_size(num) + 1 - C_bignum_size(denom)); quotient = C_allocate_scratch_bignum(ptr, size, q_negp, C_SCHEME_FALSE); } /* An object is always required to receive the remainder */ size = C_fix(C_bignum_size(num) + 1); remainder = C_allocate_scratch_bignum(ptr, size, r_negp, C_SCHEME_FALSE); bignum_destructive_divide_full(num, denom, quotient, remainder, return_rem); /* Simplification must be done by the caller, for consistency */ if (q != NULL) *q = quotient; if (r == NULL) { C_mutate_scratch_slot(NULL, C_internal_bignum_vector(remainder)); } else { *r = remainder; } } /* Compare two numbers as ratnums. Either may be rat-, fix- or bignums */ static C_word rat_cmp(C_word x, C_word y) { C_word ab[C_SIZEOF_FIX_BIGNUM*4], *a = ab, x1, x2, y1, y2, s, t, ssize, tsize, result, negp; C_uword *scan; /* Check for 1 or 0; if x or y is this, the other must be the ratnum */ if (x == C_fix(0)) { /* Only the sign of y1 matters */ return basic_cmp(x, C_u_i_ratnum_num(y), "ratcmp", 0); } else if (x == C_fix(1)) { /* x1*y1 <> x2*y2 --> y2 <> y1 | x1/x2 = 1/1 */ return basic_cmp(C_u_i_ratnum_denom(y), C_u_i_ratnum_num(y), "ratcmp", 0); } else if (y == C_fix(0)) { /* Only the sign of x1 matters */ return basic_cmp(C_u_i_ratnum_num(x), y, "ratcmp", 0); } else if (y == C_fix(1)) { /* x1*y1 <> x2*y2 --> x1 <> x2 | y1/y2 = 1/1 */ return basic_cmp(C_u_i_ratnum_num(x), C_u_i_ratnum_denom(x), "ratcmp", 0); } /* Extract components x=x1/x2 and y=y1/y2 */ if (x & C_FIXNUM_BIT || C_truep(C_bignump(x))) { x1 = x; x2 = C_fix(1); } else { x1 = C_u_i_ratnum_num(x); x2 = C_u_i_ratnum_denom(x); } if (y & C_FIXNUM_BIT || C_truep(C_bignump(y))) { y1 = y; y2 = C_fix(1); } else { y1 = C_u_i_ratnum_num(y); y2 = C_u_i_ratnum_denom(y); } /* We only want to deal with bignums (this is tricky enough) */ if (x1 & C_FIXNUM_BIT) x1 = C_a_u_i_fix_to_big(&a, x1); if (x2 & C_FIXNUM_BIT) x2 = C_a_u_i_fix_to_big(&a, x2); if (y1 & C_FIXNUM_BIT) y1 = C_a_u_i_fix_to_big(&a, y1); if (y2 & C_FIXNUM_BIT) y2 = C_a_u_i_fix_to_big(&a, y2); /* We multiply using schoolbook method, so this will be very slow in * extreme cases. This is a tradeoff we make so that comparisons * are inlineable, which makes a big difference for the common case. */ ssize = C_bignum_size(x1) + C_bignum_size(y2); negp = C_mk_bool(C_bignum_negativep(x1)); s = allocate_tmp_bignum(C_fix(ssize), negp, C_SCHEME_TRUE); bignum_digits_multiply(x1, y2, s); /* Swap args if x1 < y2? */ tsize = C_bignum_size(y1) + C_bignum_size(x2); negp = C_mk_bool(C_bignum_negativep(y1)); t = allocate_tmp_bignum(C_fix(tsize), negp, C_SCHEME_TRUE); bignum_digits_multiply(y1, x2, t); /* Swap args if y1 < x2? */ /* Shorten the numbers if needed */ for (scan = C_bignum_digits(s)+ssize-1; *scan == 0; scan--) ssize--; C_bignum_mutate_size(s, ssize); for (scan = C_bignum_digits(t)+tsize-1; *scan == 0; scan--) tsize--; C_bignum_mutate_size(t, tsize); result = C_i_bignum_cmp(s, t); free_tmp_bignum(t); free_tmp_bignum(s); return result; } C_regparm double C_fcall C_bignum_to_double(C_word bignum) { double accumulator = 0; C_uword *start = C_bignum_digits(bignum), *scan = start + C_bignum_size(bignum); while (start < scan) { accumulator *= (C_uword)1 << C_BIGNUM_HALF_DIGIT_LENGTH; accumulator *= (C_uword)1 << C_BIGNUM_HALF_DIGIT_LENGTH; accumulator += (*--scan); } return(C_bignum_negativep(bignum) ? -accumulator : accumulator); } C_regparm C_word C_fcall C_s_a_u_i_flo_to_int(C_word **ptr, C_word n, C_word x) { int exponent; double significand = frexp(C_flonum_magnitude(x), &exponent); assert(C_truep(C_u_i_fpintegerp(x))); if (exponent <= 0) { return C_fix(0); } else if (exponent == 1) { /* TODO: check significand * 2^exp fits fixnum? */ return significand < 0.0 ? C_fix(-1) : C_fix(1); } else { C_word size, negp = C_mk_bool(C_flonum_magnitude(x) < 0.0), result; C_uword *start, *end; size = C_fix(C_BIGNUM_BITS_TO_DIGITS(exponent)); result = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); start = C_bignum_digits(result); end = start + C_bignum_size(result); fabs_frexp_to_digits(exponent, fabs(significand), start, end); return C_bignum_simplify(result); } } static void fabs_frexp_to_digits(C_uword exp, double sign, C_uword *start, C_uword *scan) { C_uword digit, odd_bits = exp % C_BIGNUM_DIGIT_LENGTH; assert(C_isfinite(sign)); assert(0.5 <= sign && sign < 1); /* Guaranteed by frexp() and fabs() */ assert((scan - start) == C_BIGNUM_BITS_TO_DIGITS(exp)); if (odd_bits > 0) { /* Handle most significant digit first */ sign *= (C_uword)1 << odd_bits; digit = (C_uword)sign; (*--scan) = digit; sign -= (double)digit; } while (start < scan && sign > 0) { sign *= pow(2.0, C_BIGNUM_DIGIT_LENGTH); digit = (C_uword)sign; (*--scan) = digit; sign -= (double)digit; } /* Finish up by clearing any remaining, lower, digits */ while (start < scan) (*--scan) = 0; } /* This is a bit weird: We have to compare flonums as bignums due to * precision loss on 64-bit platforms. For simplicity, we convert * fixnums to bignums here. */ static C_word int_flo_cmp(C_word intnum, C_word flonum) { C_word ab[C_SIZEOF_FIX_BIGNUM + C_SIZEOF_FLONUM], *a = ab, flo_int, res; double i, f; f = C_flonum_magnitude(flonum); if (C_isnan(f)) { return C_SCHEME_FALSE; /* "mu" */ } else if (C_isinf(f)) { return C_fix((f > 0.0) ? -1 : 1); /* x is smaller if f is +inf.0 */ } else { f = modf(f, &i); flo_int = C_s_a_u_i_flo_to_int(&a, 1, C_flonum(&a, i)); res = basic_cmp(intnum, flo_int, "int_flo_cmp", 0); clear_buffer_object(ab, flo_int); if (res == C_fix(0)) /* Use fraction to break tie. If f > 0, x is smaller */ return C_fix((f > 0.0) ? -1 : ((f < 0.0) ? 1 : 0)); else return res; } } /* For convenience (ie, to reduce the degree of mindfuck) */ static C_word flo_int_cmp(C_word flonum, C_word intnum) { C_word res = int_flo_cmp(intnum, flonum); switch(res) { case C_fix(1): return C_fix(-1); case C_fix(-1): return C_fix(1); default: return res; /* Can be either C_fix(0) or C_SCHEME_FALSE(!) */ } } /* This code is a bit tedious, but it makes inline comparisons possible! */ static C_word rat_flo_cmp(C_word ratnum, C_word flonum) { C_word ab[C_SIZEOF_FIX_BIGNUM * 4 + C_SIZEOF_FLONUM], *a = ab, num, denom, i_int, res, nscaled, iscaled, negp, shift_amount; C_uword *scan; double i, f; f = C_flonum_magnitude(flonum); if (C_isnan(f)) { return C_SCHEME_FALSE; /* "mu" */ } else if (C_isinf(f)) { return C_fix((f > 0.0) ? -1 : 1); /* x is smaller if f is +inf.0 */ } else { /* Scale up the floating-point number to become a whole integer, * and remember power of two (# of bits) to shift the numerator. */ shift_amount = 0; /* TODO: This doesn't work for denormalized flonums! */ while (modf(f, &i) != 0.0) { f = ldexp(f, 1); shift_amount++; } i = f; /* TODO: split i and f so it'll work for denormalized flonums */ num = C_u_i_ratnum_num(ratnum); negp = C_i_negativep(num); if (C_truep(negp) && i >= 0.0) { /* Save some time if signs differ */ return C_fix(-1); } else if (!C_truep(negp) && i <= 0.0) { /* num is never 0 */ return C_fix(1); } else { denom = C_u_i_ratnum_denom(ratnum); i_int = C_s_a_u_i_flo_to_int(&a, 1, C_flonum(&a, i)); /* Multiply the scaled flonum integer by the denominator, and * shift the numerator so that they may be directly compared. */ iscaled = C_s_a_u_i_integer_times(&a, 2, i_int, denom); nscaled = C_s_a_i_arithmetic_shift(&a, 2, num, C_fix(shift_amount)); /* Finally, we're ready to compare them! */ res = basic_cmp(nscaled, iscaled, "rat_flo_cmp", 0); clear_buffer_object(ab, nscaled); clear_buffer_object(ab, iscaled); clear_buffer_object(ab, i_int); return res; } } } static C_word flo_rat_cmp(C_word flonum, C_word ratnum) { C_word res = rat_flo_cmp(ratnum, flonum); switch(res) { case C_fix(1): return C_fix(-1); case C_fix(-1): return C_fix(1); default: return res; /* Can be either C_fix(0) or C_SCHEME_FALSE(!) */ } } /* The primitive comparison operator. eqp should be 1 if we're only * interested in equality testing (can speed things up and in case of * compnums, equality checking is the only available operation). This * may return #f, in case there is no answer (for NaNs) or as a quick * and dirty non-zero answer when eqp is true. Ugly but effective :) */ static C_word basic_cmp(C_word x, C_word y, char *loc, int eqp) { if (x & C_FIXNUM_BIT) { if (y & C_FIXNUM_BIT) { return C_fix((x < y) ? -1 : ((x > y) ? 1 : 0)); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); } else if (C_block_header(y) == C_FLONUM_TAG) { return int_flo_cmp(x, y); } else if (C_truep(C_bignump(y))) { C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab; return C_i_bignum_cmp(C_a_u_i_fix_to_big(&a, x), y); } else if (C_block_header(y) == C_RATNUM_TAG) { if (eqp) return C_SCHEME_FALSE; else return rat_cmp(x, y); } else if (C_block_header(y) == C_CPLXNUM_TAG) { if (eqp) return C_SCHEME_FALSE; else barf(C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR, loc, y); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); } } else if (C_immediatep(x)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, x); } else if (C_block_header(x) == C_FLONUM_TAG) { if (y & C_FIXNUM_BIT) { return flo_int_cmp(x, y); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); } else if (C_block_header(y) == C_FLONUM_TAG) { double a = C_flonum_magnitude(x), b = C_flonum_magnitude(y); if (C_isnan(a) || C_isnan(b)) return C_SCHEME_FALSE; /* "mu" */ else return C_fix((a < b) ? -1 : ((a > b) ? 1 : 0)); } else if (C_truep(C_bignump(y))) { return flo_int_cmp(x, y); } else if (C_block_header(y) == C_RATNUM_TAG) { return flo_rat_cmp(x, y); } else if (C_block_header(y) == C_CPLXNUM_TAG) { if (eqp) return C_SCHEME_FALSE; else barf(C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR, loc, y); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); } } else if (C_truep(C_bignump(x))) { if (y & C_FIXNUM_BIT) { C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab; return C_i_bignum_cmp(x, C_a_u_i_fix_to_big(&a, y)); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); } else if (C_block_header(y) == C_FLONUM_TAG) { return int_flo_cmp(x, y); } else if (C_truep(C_bignump(y))) { return C_i_bignum_cmp(x, y); } else if (C_block_header(y) == C_RATNUM_TAG) { if (eqp) return C_SCHEME_FALSE; else return rat_cmp(x, y); } else if (C_block_header(y) == C_CPLXNUM_TAG) { if (eqp) return C_SCHEME_FALSE; else barf(C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR, loc, y); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); } } else if (C_block_header(x) == C_RATNUM_TAG) { if (y & C_FIXNUM_BIT) { if (eqp) return C_SCHEME_FALSE; else return rat_cmp(x, y); } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); } else if (C_block_header(y) == C_FLONUM_TAG) { return rat_flo_cmp(x, y); } else if (C_truep(C_bignump(y))) { if (eqp) return C_SCHEME_FALSE; else return rat_cmp(x, y); } else if (C_block_header(y) == C_RATNUM_TAG) { if (eqp) { return C_and(C_and(C_i_integer_equalp(C_u_i_ratnum_num(x), C_u_i_ratnum_num(y)), C_i_integer_equalp(C_u_i_ratnum_denom(x), C_u_i_ratnum_denom(y))), C_fix(0)); } else { return rat_cmp(x, y); } } else if (C_block_header(y) == C_CPLXNUM_TAG) { if (eqp) return C_SCHEME_FALSE; else barf(C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR, loc, y); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); } } else if (C_block_header(x) == C_CPLXNUM_TAG) { if (!eqp) { barf(C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR, loc, x); } else if (y & C_FIXNUM_BIT) { return C_SCHEME_FALSE; } else if (C_immediatep(y)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); } else if (C_block_header(y) == C_FLONUM_TAG || C_truep(C_bignump(x)) || C_block_header(y) == C_RATNUM_TAG) { return C_SCHEME_FALSE; } else if (C_block_header(y) == C_CPLXNUM_TAG) { return C_and(C_and(C_i_nequalp(C_u_i_cplxnum_real(x), C_u_i_cplxnum_real(y)), C_i_nequalp(C_u_i_cplxnum_imag(x), C_u_i_cplxnum_imag(y))), C_fix(0)); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); } } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, x); } } static int bignum_cmp_unsigned(C_word x, C_word y) { C_word xlen = C_bignum_size(x), ylen = C_bignum_size(y); if (xlen < ylen) { return -1; } else if (xlen > ylen) { return 1; } else if (x == y) { return 0; } else { C_uword *startx = C_bignum_digits(x), *scanx = startx + xlen, *scany = C_bignum_digits(y) + ylen; while (startx < scanx) { C_uword xdigit = (*--scanx), ydigit = (*--scany); if (xdigit < ydigit) return -1; if (xdigit > ydigit) return 1; } return 0; } } C_regparm C_word C_fcall C_i_bignum_cmp(C_word x, C_word y) { if (C_bignum_negativep(x)) { if (C_bignum_negativep(y)) { /* Largest negative number is smallest */ return C_fix(bignum_cmp_unsigned(y, x)); } else { return C_fix(-1); } } else { if (C_bignum_negativep(y)) { return C_fix(1); } else { return C_fix(bignum_cmp_unsigned(x, y)); } } } void C_ccall C_nequalp(C_word c, C_word *av) { /* C_word closure = av[ 0 ]; */ C_word k = av[ 1 ]; C_word x, y, result = C_SCHEME_TRUE; c -= 2; av += 2; if (c == 0) C_kontinue(k, result); x = *(av++); if (c == 1 && !C_truep(C_i_numberp(x))) barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "=", x); while(--c) { y = *(av++); result = C_i_nequalp(x, y); if (result == C_SCHEME_FALSE) break; } C_kontinue(k, result); } C_regparm C_word C_fcall C_i_nequalp(C_word x, C_word y) { return C_mk_bool(basic_cmp(x, y, "=", 1) == C_fix(0)); } C_regparm C_word C_fcall C_i_integer_equalp(C_word x, C_word y) { if (x & C_FIXNUM_BIT) return C_mk_bool(x == y); else if (y & C_FIXNUM_BIT) return C_SCHEME_FALSE; else return C_mk_bool(C_i_bignum_cmp(x, y) == C_fix(0)); } void C_ccall C_greaterp(C_word c, C_word *av) { C_word x, y, /* closure = av[ 0 ] */ k = av[ 1 ], result = C_SCHEME_TRUE; c -= 2; av += 2; if (c == 0) C_kontinue(k, result); x = *(av++); if (c == 1 && !C_truep(C_i_numberp(x))) barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, ">", x); while(--c) { y = *(av++); result = C_i_greaterp(x, y); if (result == C_SCHEME_FALSE) break; x = y; } C_kontinue(k, result); } C_regparm C_word C_fcall C_i_greaterp(C_word x, C_word y) { return C_mk_bool(basic_cmp(x, y, ">", 0) == C_fix(1)); } C_regparm C_word C_fcall C_i_integer_greaterp(C_word x, C_word y) { if (x & C_FIXNUM_BIT) { if (y & C_FIXNUM_BIT) { return C_mk_bool(C_unfix(x) > C_unfix(y)); } else { return C_mk_bool(C_bignum_negativep(y)); } } else if (y & C_FIXNUM_BIT) { return C_mk_nbool(C_bignum_negativep(x)); } else { return C_mk_bool(C_i_bignum_cmp(x, y) == C_fix(1)); } } void C_ccall C_lessp(C_word c, C_word *av) { C_word x, y, /* closure = av[ 0 ] */ k = av[ 1 ], result = C_SCHEME_TRUE; c -= 2; av += 2; if (c == 0) C_kontinue(k, result); x = *(av++); if (c == 1 && !C_truep(C_i_numberp(x))) barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "<", x); while(--c) { y = *(av++); result = C_i_lessp(x, y); if (result == C_SCHEME_FALSE) break; x = y; } C_kontinue(k, result); } C_regparm C_word C_fcall C_i_lessp(C_word x, C_word y) { return C_mk_bool(basic_cmp(x, y, "<", 0) == C_fix(-1)); } C_regparm C_word C_fcall C_i_integer_lessp(C_word x, C_word y) { if (x & C_FIXNUM_BIT) { if (y & C_FIXNUM_BIT) { return C_mk_bool(C_unfix(x) < C_unfix(y)); } else { return C_mk_nbool(C_bignum_negativep(y)); } } else if (y & C_FIXNUM_BIT) { return C_mk_bool(C_bignum_negativep(x)); } else { return C_mk_bool(C_i_bignum_cmp(x, y) == C_fix(-1)); } } void C_ccall C_greater_or_equal_p(C_word c, C_word *av) { C_word x, y, /* closure = av[ 0 ] */ k = av[ 1 ], result = C_SCHEME_TRUE; c -= 2; av += 2; if (c == 0) C_kontinue(k, result); x = *(av++); if (c == 1 && !C_truep(C_i_numberp(x))) barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, ">=", x); while(--c) { y = *(av++); result = C_i_greater_or_equalp(x, y); if (result == C_SCHEME_FALSE) break; x = y; } C_kontinue(k, result); } C_regparm C_word C_fcall C_i_greater_or_equalp(C_word x, C_word y) { C_word res = basic_cmp(x, y, ">=", 0); return C_mk_bool(res == C_fix(0) || res == C_fix(1)); } C_regparm C_word C_fcall C_i_integer_greater_or_equalp(C_word x, C_word y) { if (x & C_FIXNUM_BIT) { if (y & C_FIXNUM_BIT) { return C_mk_bool(C_unfix(x) >= C_unfix(y)); } else { return C_mk_bool(C_bignum_negativep(y)); } } else if (y & C_FIXNUM_BIT) { return C_mk_nbool(C_bignum_negativep(x)); } else { C_word res = C_i_bignum_cmp(x, y); return C_mk_bool(res == C_fix(0) || res == C_fix(1)); } } void C_ccall C_less_or_equal_p(C_word c, C_word *av) { C_word x, y, /* closure = av[ 0 ] */ k = av[ 1 ], result = C_SCHEME_TRUE; c -= 2; av += 2; if (c == 0) C_kontinue(k, result); x = *(av++); if (c == 1 && !C_truep(C_i_numberp(x))) barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "<=", x); while(--c) { y = *(av++); result = C_i_less_or_equalp(x, y); if (result == C_SCHEME_FALSE) break; x = y; } C_kontinue(k, result); } C_regparm C_word C_fcall C_i_less_or_equalp(C_word x, C_word y) { C_word res = basic_cmp(x, y, "<=", 0); return C_mk_bool(res == C_fix(0) || res == C_fix(-1)); } C_regparm C_word C_fcall C_i_integer_less_or_equalp(C_word x, C_word y) { if (x & C_FIXNUM_BIT) { if (y & C_FIXNUM_BIT) { return C_mk_bool(C_unfix(x) <= C_unfix(y)); } else { return C_mk_nbool(C_bignum_negativep(y)); } } else if (y & C_FIXNUM_BIT) { return C_mk_bool(C_bignum_negativep(x)); } else { C_word res = C_i_bignum_cmp(x, y); return C_mk_bool(res == C_fix(0) || res == C_fix(-1)); } } void C_ccall C_gc(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ]; int f; C_word arg, *p, size = 0; if(c == 3) { arg = av[ 2 ]; f = C_truep(arg); } else if(c != 2) C_bad_min_argc(c, 2); else f = 1; C_save(k); p = C_temporary_stack; if(c == 3) { if((arg & C_FIXNUM_BIT) != 0) size = C_unfix(arg); else if(arg == C_SCHEME_END_OF_LIST) size = percentage(heap_size, C_heap_growth); } if(size && !C_heap_size_is_fixed) { C_rereclaim2(size, 0); C_temporary_stack = C_temporary_stack_bottom; gc_2(0, p); } else if(f) C_fromspace_top = C_fromspace_limit; C_reclaim((void *)gc_2, 1); } void C_ccall gc_2(C_word c, C_word *av) { C_word k = av[ 0 ]; C_kontinue(k, C_fix((C_uword)C_fromspace_limit - (C_uword)C_fromspace_top)); } void C_ccall C_open_file_port(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], port = av[ 2 ], channel = av[ 3 ], mode = av[ 4 ]; C_FILEPTR fp = (C_FILEPTR)NULL; C_char fmode[ 4 ]; C_word n; char *buf; switch(channel) { case C_fix(0): fp = C_stdin; break; case C_fix(1): fp = C_stdout; break; case C_fix(2): fp = C_stderr; break; default: n = C_header_size(channel); buf = buffer; if(n >= STRING_BUFFER_SIZE) { if((buf = (char *)C_malloc(n + 1)) == NULL) barf(C_OUT_OF_MEMORY_ERROR, "open"); } C_strncpy(buf, C_c_string(channel), n); buf[ n ] = '\0'; if (n != strlen(buf)) barf(C_ASCIIZ_REPRESENTATION_ERROR, "open", channel); n = C_header_size(mode); if (n >= sizeof(fmode)) n = sizeof(fmode) - 1; C_strncpy(fmode, C_c_string(mode), n); fmode[ n ] = '\0'; if (n != strlen(fmode)) /* Shouldn't happen, but never hurts */ barf(C_ASCIIZ_REPRESENTATION_ERROR, "open", mode); fp = C_fopen(buf, fmode); if(buf != buffer) C_free(buf); } C_set_block_item(port, 0, (C_word)fp); C_kontinue(k, C_mk_bool(fp != NULL)); } void C_ccall C_allocate_vector(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], size, bvecf, init, align8, bytes, n, *p; if(c != 6) C_bad_argc(c, 6); size = av[ 2 ]; bvecf = av[ 3 ]; init = av[ 4 ]; align8 = av[ 5 ]; n = C_unfix(size); if(n > C_HEADER_SIZE_MASK || n < 0) barf(C_OUT_OF_RANGE_ERROR, NULL, size, C_fix(C_HEADER_SIZE_MASK)); if(!C_truep(bvecf)) bytes = C_wordstobytes(n) + sizeof(C_word); else bytes = n + sizeof(C_word); if(C_truep(align8)) bytes += sizeof(C_word); C_save(k); C_save(size); C_save(init); C_save(bvecf); C_save(align8); C_save(C_fix(bytes)); if(!C_demand(C_bytestowords(bytes))) { /* Allocate on heap: */ if((C_uword)(C_fromspace_limit - C_fromspace_top) < (bytes + stack_size * 2)) C_fromspace_top = C_fromspace_limit; /* trigger major GC */ C_save(C_SCHEME_TRUE); /* We explicitly pass 7 here, that's the number of things saved. * That's the arguments, plus one additional thing: the mode. */ C_reclaim((void *)allocate_vector_2, 7); } C_save(C_SCHEME_FALSE); p = C_temporary_stack; C_temporary_stack = C_temporary_stack_bottom; allocate_vector_2(0, p); } void C_ccall allocate_vector_2(C_word c, C_word *av) { C_word mode = av[ 0 ], bytes = C_unfix(av[ 1 ]), align8 = av[ 2 ], bvecf = av[ 3 ], init = av[ 4 ], size = C_unfix(av[ 5 ]), k = av[ 6 ], *v0, v; if(C_truep(mode)) { while((C_uword)(C_fromspace_limit - C_fromspace_top) < (bytes + stack_size)) { if(C_heap_size_is_fixed) panic(C_text("out of memory - cannot allocate vector (heap resizing disabled)")); C_save(init); C_save(k); C_rereclaim2(percentage(heap_size, C_heap_growth) + (C_uword)bytes, 0); k = C_restore; init = C_restore; } v0 = (C_word *)C_align((C_word)C_fromspace_top); C_fromspace_top += C_align(bytes); } else v0 = C_alloc(C_bytestowords(bytes)); #ifndef C_SIXTY_FOUR if(C_truep(align8) && C_aligned8(v0)) ++v0; #endif v = (C_word)v0; if(!C_truep(bvecf)) { *(v0++) = C_VECTOR_TYPE | size | (C_truep(align8) ? C_8ALIGN_BIT : 0); while(size--) *(v0++) = init; } else { *(v0++) = C_STRING_TYPE | size; if(C_truep(init)) C_memset(v0, C_character_code(init), size); } C_kontinue(k, v); } static C_word allocate_tmp_bignum(C_word size, C_word negp, C_word initp) { C_word *mem = C_malloc(C_wordstobytes(C_SIZEOF_BIGNUM(C_unfix(size)))), bigvec = (C_word)(mem + C_SIZEOF_BIGNUM_WRAPPER); if (mem == NULL) abort(); /* TODO: panic */ C_block_header_init(bigvec, C_STRING_TYPE | C_wordstobytes(C_unfix(size)+1)); C_set_block_item(bigvec, 0, C_truep(negp)); if (C_truep(initp)) { C_memset(((C_uword *)C_data_pointer(bigvec))+1, 0, C_wordstobytes(C_unfix(size))); } return C_a_i_bignum_wrapper(&mem, bigvec); } C_regparm C_word C_fcall C_allocate_scratch_bignum(C_word **ptr, C_word size, C_word negp, C_word initp) { C_word big, bigvec = C_scratch_alloc(C_SIZEOF_INTERNAL_BIGNUM_VECTOR(C_unfix(size))); C_block_header_init(bigvec, C_STRING_TYPE | C_wordstobytes(C_unfix(size)+1)); C_set_block_item(bigvec, 0, C_truep(negp)); if (C_truep(initp)) { C_memset(((C_uword *)C_data_pointer(bigvec))+1, 0, C_wordstobytes(C_unfix(size))); } big = C_a_i_bignum_wrapper(ptr, bigvec); C_mutate_scratch_slot(&C_internal_bignum_vector(big), bigvec); return big; } /* Simplification: scan trailing zeroes, then return a fixnum if the * value fits, or trim the bignum's length. If the bignum was stored * in scratch space, we mark it as reclaimable. This means any * references to the original bignum are invalid after simplification! */ C_regparm C_word C_fcall C_bignum_simplify(C_word big) { C_uword *start = C_bignum_digits(big), *last_digit = start + C_bignum_size(big) - 1, *scan = last_digit, tmp; int length; while (scan >= start && *scan == 0) scan--; length = scan - start + 1; switch(length) { case 0: if (C_in_scratchspacep(C_internal_bignum_vector(big))) C_mutate_scratch_slot(NULL, C_internal_bignum_vector(big)); return C_fix(0); case 1: tmp = *start; if (C_bignum_negativep(big) ? !(tmp & C_INT_SIGN_BIT) && C_fitsinfixnump(-(C_word)tmp) : C_ufitsinfixnump(tmp)) { if (C_in_scratchspacep(C_internal_bignum_vector(big))) C_mutate_scratch_slot(NULL, C_internal_bignum_vector(big)); return C_bignum_negativep(big) ? C_fix(-(C_word)tmp) : C_fix(tmp); } /* FALLTHROUGH */ default: if (scan < last_digit) C_bignum_mutate_size(big, length); return big; } } static void bignum_digits_destructive_negate(C_word result) { C_uword *scan, *end, digit, sum; scan = C_bignum_digits(result); end = scan + C_bignum_size(result); do { digit = ~*scan; sum = digit + 1; *scan++ = sum; } while (sum == 0 && scan < end); for (; scan < end; scan++) { *scan = ~*scan; } } static C_uword bignum_digits_destructive_scale_up_with_carry(C_uword *start, C_uword *end, C_uword factor, C_uword carry) { C_uword digit, p; assert(C_fitsinbignumhalfdigitp(carry)); assert(C_fitsinbignumhalfdigitp(factor)); /* See fixnum_times. Substitute xlo = factor, xhi = 0, y = digit * and simplify the result to reduce variable usage. */ while (start < end) { digit = (*start); p = factor * C_BIGNUM_DIGIT_LO_HALF(digit) + carry; carry = C_BIGNUM_DIGIT_LO_HALF(p); p = factor * C_BIGNUM_DIGIT_HI_HALF(digit) + C_BIGNUM_DIGIT_HI_HALF(p); (*start++) = C_BIGNUM_DIGIT_COMBINE(C_BIGNUM_DIGIT_LO_HALF(p), carry); carry = C_BIGNUM_DIGIT_HI_HALF(p); } return carry; } static C_uword bignum_digits_destructive_scale_down(C_uword *start, C_uword *end, C_uword denominator) { C_uword digit, k = 0; C_uhword q_j_hi, q_j_lo; /* Single digit divisor case from Hacker's Delight, Figure 9-1, * adapted to modify u[] in-place instead of writing to q[]. */ while (start < end) { digit = (*--end); k = C_BIGNUM_DIGIT_COMBINE(k, C_BIGNUM_DIGIT_HI_HALF(digit)); /* j */ q_j_hi = k / denominator; k -= q_j_hi * denominator; k = C_BIGNUM_DIGIT_COMBINE(k, C_BIGNUM_DIGIT_LO_HALF(digit)); /* j-1 */ q_j_lo = k / denominator; k -= q_j_lo * denominator; *end = C_BIGNUM_DIGIT_COMBINE(q_j_hi, q_j_lo); } return k; } static C_uword bignum_digits_destructive_shift_right(C_uword *start, C_uword *end, int shift_right, int negp) { int shift_left = C_BIGNUM_DIGIT_LENGTH - shift_right; C_uword digit, carry = negp ? ((~(C_uword)0) << shift_left) : 0; assert(shift_right < C_BIGNUM_DIGIT_LENGTH); while (start < end) { digit = *(--end); *end = (digit >> shift_right) | carry; carry = digit << shift_left; } return carry >> shift_left; /* The bits that were shifted out to the right */ } static C_uword bignum_digits_destructive_shift_left(C_uword *start, C_uword *end, int shift_left) { C_uword carry = 0, digit; int shift_right = C_BIGNUM_DIGIT_LENGTH - shift_left; assert(shift_left < C_BIGNUM_DIGIT_LENGTH); while (start < end) { digit = *start; (*start++) = (digit << shift_left) | carry; carry = digit >> shift_right; } return carry; /* This would end up as most significant digit if it fit */ } static C_regparm void bignum_digits_multiply(C_word x, C_word y, C_word result) { C_uword product, *xd = C_bignum_digits(x), *yd = C_bignum_digits(y), *rd = C_bignum_digits(result); C_uhword carry, yj; /* Lengths in halfwords */ int i, j, length_x = C_bignum_size(x) * 2, length_y = C_bignum_size(y) * 2; /* From Hacker's Delight, Figure 8-1 (top part) */ for (j = 0; j < length_y; ++j) { yj = C_uhword_ref(yd, j); if (yj == 0) continue; carry = 0; for (i = 0; i < length_x; ++i) { product = (C_uword)C_uhword_ref(xd, i) * yj + (C_uword)C_uhword_ref(rd, i + j) + carry; C_uhword_set(rd, i + j, product); carry = C_BIGNUM_DIGIT_HI_HALF(product); } C_uhword_set(rd, j + length_x, carry); } } /* "small" is either a number that fits a halfdigit, or a power of two */ static C_regparm void bignum_destructive_divide_unsigned_small(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r) { C_word size, quotient, q_negp = C_mk_bool((y & C_INT_SIGN_BIT) ? !(C_bignum_negativep(x)) : C_bignum_negativep(x)), r_negp = C_mk_bool(C_bignum_negativep(x)); C_uword *start, *end, remainder; int shift_amount; size = C_fix(C_bignum_size(x)); quotient = C_allocate_scratch_bignum(ptr, size, q_negp, C_SCHEME_FALSE); bignum_digits_destructive_copy(quotient, x); start = C_bignum_digits(quotient); end = start + C_bignum_size(quotient); y = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y); shift_amount = C_ilen(y) - 1; if (((C_uword)1 << shift_amount) == y) { /* Power of two? Shift! */ remainder = bignum_digits_destructive_shift_right(start,end,shift_amount,0); assert(C_ufitsinfixnump(remainder)); } else { remainder = bignum_digits_destructive_scale_down(start, end, y); assert(C_fitsinbignumhalfdigitp(remainder)); } if (r != NULL) *r = C_truep(r_negp) ? C_fix(-remainder) : C_fix(remainder); /* Calling this function only makes sense if quotient is needed */ *q = C_bignum_simplify(quotient); } static C_regparm void bignum_destructive_divide_full(C_word numerator, C_word denominator, C_word quotient, C_word remainder, C_word return_remainder) { C_word length = C_bignum_size(denominator); C_uword d1 = *(C_bignum_digits(denominator) + length - 1), *startr = C_bignum_digits(remainder), *endr = startr + C_bignum_size(remainder); int shift; shift = C_BIGNUM_DIGIT_LENGTH - C_ilen(d1); /* nlz */ /* We have to work on halfdigits, so we shift out only the necessary * amount in order fill out that halfdigit (base is halved). * This trick is shamelessly stolen from Gauche :) * See below for part 2 of the trick. */ if (shift >= C_BIGNUM_HALF_DIGIT_LENGTH) shift -= C_BIGNUM_HALF_DIGIT_LENGTH; /* Code below won't always set high halfdigit of quotient, so do it here. */ if (quotient != C_SCHEME_UNDEFINED) C_bignum_digits(quotient)[C_bignum_size(quotient)-1] = 0; bignum_digits_destructive_copy(remainder, numerator); *(endr-1) = 0; /* Ensure most significant digit is initialised */ if (shift == 0) { /* Already normalized */ bignum_destructive_divide_normalized(remainder, denominator, quotient); } else { /* Requires normalisation; allocate scratch denominator for this */ C_uword *startnd; C_word ndenom; bignum_digits_destructive_shift_left(startr, endr, shift); ndenom = allocate_tmp_bignum(C_fix(length), C_SCHEME_FALSE, C_SCHEME_FALSE); startnd = C_bignum_digits(ndenom); bignum_digits_destructive_copy(ndenom, denominator); bignum_digits_destructive_shift_left(startnd, startnd+length, shift); bignum_destructive_divide_normalized(remainder, ndenom, quotient); if (C_truep(return_remainder)) /* Otherwise, don't bother shifting back */ bignum_digits_destructive_shift_right(startr, endr, shift, 0); free_tmp_bignum(ndenom); } } static C_regparm void bignum_destructive_divide_normalized(C_word big_u, C_word big_v, C_word big_q) { C_uword *v = C_bignum_digits(big_v), *u = C_bignum_digits(big_u), *q = big_q == C_SCHEME_UNDEFINED ? NULL : C_bignum_digits(big_q), p, /* product of estimated quotient & "denominator" */ hat, qhat, rhat, /* estimated quotient and remainder digit */ vn_1, vn_2; /* "cached" values v[n-1], v[n-2] */ C_word t, k; /* Two helpers: temp/final remainder and "borrow" */ /* We use plain ints here, which theoretically may not be enough on * 64-bit for an insanely huge number, but it is a _lot_ faster. */ int n = C_bignum_size(big_v) * 2, /* in halfwords */ m = (C_bignum_size(big_u) * 2) - 2; /* Correct for extra digit */ int i, j; /* loop vars */ /* Part 2 of Gauche's aforementioned trick: */ if (C_uhword_ref(v, n-1) == 0) n--; /* These won't change during the loop, but are used in every step. */ vn_1 = C_uhword_ref(v, n-1); vn_2 = C_uhword_ref(v, n-2); /* See also Hacker's Delight, Figure 9-1. This is almost exactly that. */ for (j = m - n; j >= 0; j--) { hat = C_BIGNUM_DIGIT_COMBINE(C_uhword_ref(u, j+n), C_uhword_ref(u, j+n-1)); if (hat == 0) { if (q != NULL) C_uhword_set(q, j, 0); continue; } qhat = hat / vn_1; rhat = hat % vn_1; /* Two whiles is faster than one big check with an OR. Thanks, Gauche! */ while(qhat >= ((C_uword)1 << C_BIGNUM_HALF_DIGIT_LENGTH)) { qhat--; rhat += vn_1; } while(qhat * vn_2 > C_BIGNUM_DIGIT_COMBINE(rhat, C_uhword_ref(u, j+n-2)) && rhat < ((C_uword)1 << C_BIGNUM_HALF_DIGIT_LENGTH)) { qhat--; rhat += vn_1; } /* Multiply and subtract */ k = 0; for (i = 0; i < n; i++) { p = qhat * C_uhword_ref(v, i); t = C_uhword_ref(u, i+j) - k - C_BIGNUM_DIGIT_LO_HALF(p); C_uhword_set(u, i+j, t); k = C_BIGNUM_DIGIT_HI_HALF(p) - (t >> C_BIGNUM_HALF_DIGIT_LENGTH); } t = C_uhword_ref(u,j+n) - k; C_uhword_set(u, j+n, t); if (t < 0) { /* Subtracted too much? */ qhat--; k = 0; for (i = 0; i < n; i++) { t = (C_uword)C_uhword_ref(u, i+j) + C_uhword_ref(v, i) + k; C_uhword_set(u, i+j, t); k = t >> C_BIGNUM_HALF_DIGIT_LENGTH; } C_uhword_set(u, j+n, (C_uhword_ref(u, j+n) + k)); } if (q != NULL) C_uhword_set(q, j, qhat); } /* end j */ } void C_ccall C_string_to_symbol(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], string; int len, key; C_word s, *a = C_alloc(C_SIZEOF_SYMBOL + C_SIZEOF_PAIR); C_char *name; if(c != 3) C_bad_argc(c, 3); string = av[ 2 ]; if(C_immediatep(string) || C_header_bits(string) != C_STRING_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string->symbol", string); len = C_header_size(string); name = (C_char *)C_data_pointer(string); key = hash_string(len, name, symbol_table->size, symbol_table->rand, 0); if(!C_truep(s = lookup(key, len, name, symbol_table))) s = add_symbol(&a, key, string, symbol_table); C_kontinue(k, s); } void C_ccall C_string_to_keyword(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], string; int len, key; C_word s, *a = C_alloc(C_SIZEOF_SYMBOL + C_SIZEOF_PAIR); C_char *name; if(c != 3) C_bad_argc(c, 3); string = av[ 2 ]; if(C_immediatep(string) || C_header_bits(string) != C_STRING_TYPE) barf(C_BAD_ARGUMENT_TYPE_ERROR, "string->keyword", string); len = C_header_size(string); name = (C_char *)C_data_pointer(string); key = hash_string(len, name, keyword_table->size, keyword_table->rand, 0); if(!C_truep(s = lookup(key, len, name, keyword_table))) { s = add_symbol(&a, key, string, keyword_table); C_set_block_item(s, 0, s); /* Keywords evaluate to themselves */ C_set_block_item(s, 2, C_SCHEME_FALSE); /* Keywords have no plists */ } C_kontinue(k, s); } /* This will usually return a flonum, but it may also return a cplxnum * consisting of two flonums, making for a total of 11 words. */ C_regparm C_word C_fcall C_a_i_exact_to_inexact(C_word **ptr, int c, C_word n) { if (n & C_FIXNUM_BIT) { return C_flonum(ptr, (double)C_unfix(n)); } else if (C_immediatep(n)) { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "exact->inexact", n); } else if (C_block_header(n) == C_FLONUM_TAG) { return n; } else if (C_truep(C_bignump(n))) { return C_a_u_i_big_to_flo(ptr, c, n); } else if (C_block_header(n) == C_CPLXNUM_TAG) { return C_cplxnum(ptr, C_a_i_exact_to_inexact(ptr, 1, C_u_i_cplxnum_real(n)), C_a_i_exact_to_inexact(ptr, 1, C_u_i_cplxnum_imag(n))); /* The horribly painful case: ratnums */ } else if (C_block_header(n) == C_RATNUM_TAG) { /* This tries to keep the numbers within representable ranges and * tries to drop as few significant digits as possible by bringing * the two numbers to within the same powers of two. See * algorithms M & N in Knuth, 4.2.1. */ C_word num = C_u_i_ratnum_num(n), denom = C_u_i_ratnum_denom(n), /* e = approx. distance between the numbers in powers of 2. * ie, 2^e-1 < n/d < 2^e+1 (e is the *un*biased value of * e_w in M2. TODO: What if b!=2 (ie, flonum-radix isn't 2)? */ e = integer_length_abs(num) - integer_length_abs(denom), ab[C_SIZEOF_FIX_BIGNUM*5+C_SIZEOF_FLONUM], *a = ab, tmp, q, r, len, shift_amount, negp = C_i_integer_negativep(num); C_uword *d; double res, fraction; /* Align by shifting the smaller to the size of the larger */ if (e < 0) num = C_s_a_i_arithmetic_shift(&a, 2, num, C_fix(-e)); else if (e > 0) denom = C_s_a_i_arithmetic_shift(&a, 2, denom, C_fix(e)); /* Here, 1/2 <= n/d < 2 [N3] */ if (C_truep(C_i_integer_lessp(num, denom))) { /* n/d < 1? */ tmp = C_s_a_i_arithmetic_shift(&a, 2, num, C_fix(1)); clear_buffer_object(ab, num); /* "knows" shift creates fresh numbers */ num = tmp; e--; } /* Here, 1 <= n/d < 2 (normalized) [N5] */ shift_amount = nmin(DBL_MANT_DIG-1, e - (DBL_MIN_EXP - DBL_MANT_DIG)); tmp = C_s_a_i_arithmetic_shift(&a, 2, num, C_fix(shift_amount)); clear_buffer_object(ab, num); /* "knows" shift creates fresh numbers */ num = tmp; /* Now, calculate round(num/denom). We start with a quotient&remainder */ integer_divrem(&a, num, denom, &q, &r); /* We multiply the remainder by two to simulate adding 1/2 for * round. However, we don't do it if num = denom (q=1,r=0) */ if (!((q == C_fix(1) || q == C_fix(-1)) && r == C_fix(0))) { tmp = C_s_a_i_arithmetic_shift(&a, 2, r, C_fix(1)); clear_buffer_object(ab, r); /* "knows" shift creates fresh numbers */ r = tmp; } /* Now q is the quotient, but to "round" result we need to * adjust. This follows the semantics of the "round" procedure: * Round away from zero on positive numbers (ignoring sign). In * case of exactly halfway, we round up if odd. */ tmp = C_a_i_exact_to_inexact(&a, 1, q); fraction = fabs(C_flonum_magnitude(tmp)); switch (basic_cmp(r, denom, "", 0)) { case C_fix(0): if (C_truep(C_i_oddp(q))) fraction += 1.0; break; case C_fix(1): fraction += 1.0; break; default: /* if r <= denom, we're done */ break; } clear_buffer_object(ab, num); clear_buffer_object(ab, denom); clear_buffer_object(ab, q); clear_buffer_object(ab, r); shift_amount = nmin(DBL_MANT_DIG-1, e - (DBL_MIN_EXP - DBL_MANT_DIG)); res = ldexp(fraction, e - shift_amount); return C_flonum(ptr, C_truep(negp) ? -res : res); } else { barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "exact->inexact", n); } } /* this is different from C_a_i_flonum_round, for R5RS compatibility */ C_regparm C_word C_fcall C_a_i_flonum_round_proper(C_word **ptr, int c, C_word n) { double fn, i, f, i2, r; fn = C_flonum_magnitude(n); if(fn < 0.0) { f = modf(-fn, &i); if(f < 0.5 || (f == 0.5 && modf(i * 0.5, &i2) == 0.0)) r = -i; else r = -(i + 1.0); } else if(fn == 0.0/* || fn == -0.0*/) r = fn; else { f = modf(fn, &i); if(f < 0.5 || (f == 0.5 && modf(i * 0.5, &i2) == 0.0)) r = i; else r = i + 1.0; } return C_flonum(ptr, r); } C_regparm C_word C_fcall C_a_i_flonum_gcd(C_word **p, C_word n, C_word x, C_word y) { double xub, yub, r; if (!C_truep(C_u_i_fpintegerp(x))) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "gcd", x); if (!C_truep(C_u_i_fpintegerp(y))) barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "gcd", y); xub = C_flonum_magnitude(x); yub = C_flonum_magnitude(y); if (xub < 0.0) xub = -xub; if (yub < 0.0) yub = -yub; while(yub != 0.0) { r = fmod(xub, yub); xub = yub; yub = r; } return C_flonum(p, xub); } /* This is Lehmer's GCD algorithm with Jebelean's quotient test, as * it is presented in the paper "An Analysis of Lehmer’s Euclidean * GCD Algorithm", by J. Sorenson. Fuck the ACM and their goddamn * paywall; you can currently find the paper here: * http://www.csie.nuk.edu.tw/~cychen/gcd/An%20analysis%20of%20Lehmer%27s%20Euclidean%20GCD%20algorithm.pdf * If that URI fails, it's also explained in [MpNT, 5.2] * * The basic idea is to avoid divisions which yield only small * quotients, in which the remainder won't reduce the numbers by * much. This can be detected by dividing only the leading k bits. * In our case, k = C_WORD_SIZE - 2. */ inline static void lehmer_gcd(C_word **ptr, C_word u, C_word v, C_word *x, C_word *y) { int i_even = 1, done = 0; C_word shift_amount = integer_length_abs(u) - (C_WORD_SIZE - 2), ab[C_SIZEOF_BIGNUM(2)*2+C_SIZEOF_FIX_BIGNUM*2], *a = ab, uhat, vhat, qhat, xnext, ynext, xprev = 1, yprev = 0, xcurr = 0, ycurr = 1; uhat = C_s_a_i_arithmetic_shift(&a, 2, u, C_fix(-shift_amount)); vhat = C_s_a_i_arithmetic_shift(&a, 2, v, C_fix(-shift_amount)); assert(uhat & C_FIXNUM_BIT); uhat = C_unfix(uhat); assert(vhat & C_FIXNUM_BIT); vhat = C_unfix(vhat); do { qhat = uhat / vhat; /* Estimated quotient for this step */ xnext = xprev - qhat * xcurr; ynext = yprev - qhat * ycurr; /* Euclidean GCD swap on uhat and vhat (shift_amount is not needed): */ shift_amount = vhat; vhat = uhat - qhat * vhat; uhat = shift_amount; i_even = !i_even; if (i_even) done = (vhat < -xnext) || ((uhat - vhat) < (ynext - ycurr)); else done = (vhat < -ynext) || ((uhat - vhat) < (xnext - xcurr)); if (!done) { xprev = xcurr; yprev = ycurr; xcurr = xnext; ycurr = ynext; } } while (!done); /* x = xprev * u + yprev * v */ uhat = C_s_a_u_i_integer_times(&a, 2, C_fix(xprev), u); vhat = C_s_a_u_i_integer_times(&a, 2, C_fix(yprev), v); *x = C_s_a_u_i_integer_plus(ptr, 2, uhat, vhat); *x = move_buffer_object(ptr, ab, *x); clear_buffer_object(ab, uhat); clear_buffer_object(ab, vhat); /* y = xcurr * u + ycurr * v */ uhat = C_s_a_u_i_integer_times(&a, 2, C_fix(xcurr), u); vhat = C_s_a_u_i_integer_times(&a, 2, C_fix(ycurr), v); *y = C_s_a_u_i_integer_plus(ptr, 2, uhat, vhat); *y = move_buffer_object(ptr, ab, *y); clear_buffer_object(ab, uhat); clear_buffer_object(ab, vhat); } /* Because this must be inlineable (due to + and - using this for * ratnums), we can't use burnikel-ziegler division here, until we * have a C implementation that doesn't consume stack. However, * we *can* use Lehmer's GCD. */ C_regparm C_word C_fcall C_s_a_u_i_integer_gcd(C_word **ptr, C_word n, C_word x, C_word y) { C_word ab[2][C_SIZEOF_BIGNUM(2) * 2], *a, newx, newy, size, i = 0; if (x & C_FIXNUM_BIT && y & C_FIXNUM_BIT) return C_i_fixnum_gcd(x, y); a = ab[i++]; x = C_s_a_u_i_integer_abs(&a, 1, x); y = C_s_a_u_i_integer_abs(&a, 1, y); if (!C_truep(C_i_integer_greaterp(x, y))) { newx = y; y = x; x = newx; /* Ensure loop invariant: abs(x) >= abs(y) */ } while(y != C_fix(0)) { assert(integer_length_abs(x) >= integer_length_abs(y)); /* x and y are stored in the same buffer, as well as a result */ a = ab[i++]; if (i == 2) i = 0; if (x & C_FIXNUM_BIT) return C_i_fixnum_gcd(x, y); /* First, see if we should run a Lehmer step */ if ((integer_length_abs(x) - integer_length_abs(y)) < C_HALF_WORD_SIZE) { lehmer_gcd(&a, x, y, &newx, &newy); newx = move_buffer_object(&a, ab[i], newx); newy = move_buffer_object(&a, ab[i], newy); clear_buffer_object(ab[i], x); clear_buffer_object(ab[i], y); x = newx; y = newy; a = ab[i++]; /* Ensure x and y get cleared correctly below */ if (i == 2) i = 0; } newy = C_s_a_u_i_integer_remainder(&a, 2, x, y); newy = move_buffer_object(&a, ab[i], newy); newx = move_buffer_object(&a, ab[i], y); clear_buffer_object(ab[i], x); clear_buffer_object(ab[i], y); x = newx; y = newy; } newx = C_s_a_u_i_integer_abs(ptr, 1, x); newx = move_buffer_object(ptr, ab, newx); clear_buffer_object(ab, x); clear_buffer_object(ab, y); return newx; } C_regparm C_word C_fcall C_s_a_i_digits_to_integer(C_word **ptr, C_word n, C_word str, C_word start, C_word end, C_word radix, C_word negp) { if (start == end) { return C_SCHEME_FALSE; } else { size_t nbits; char *s = C_c_string(str); C_word result, size; end = C_unfix(end); start = C_unfix(start); radix = C_unfix(radix); assert((radix > 1) && C_fitsinbignumhalfdigitp(radix)); nbits = (end - start) * C_ilen(radix - 1); size = C_BIGNUM_BITS_TO_DIGITS(nbits); if (size == 1) { result = C_bignum1(ptr, C_truep(negp), 0); } else if (size == 2) { result = C_bignum2(ptr, C_truep(negp), 0, 0); } else { size = C_fix(size); result = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); } return str_to_bignum(result, s + start, s + end, radix); } } inline static int hex_char_to_digit(int ch) { if (ch == (int)'#') return 0; /* Hash characters in numbers are mapped to 0 */ else if (ch >= (int)'a') return ch - (int)'a' + 10; /* lower hex */ else if (ch >= (int)'A') return ch - (int)'A' + 10; /* upper hex */ else return ch - (int)'0'; /* decimal (OR INVALID; handled elsewhere) */ } /* Write from digit character stream to bignum. Bignum does not need * to be initialised. Returns the bignum, or a fixnum. Assumes the * string contains only digits that fit within radix (checked by * string->number). */ static C_regparm C_word str_to_bignum(C_word bignum, char *str, char *str_end, int radix) { int radix_shift, str_digit; C_uword *digits = C_bignum_digits(bignum), *end_digits = digits + C_bignum_size(bignum), big_digit = 0; /* Below, we try to save up as much as possible in big_digit, and * only when it exceeds what we would be able to multiply easily, we * scale up the bignum and add what we saved up. */ radix_shift = C_ilen(radix) - 1; if (((C_uword)1 << radix_shift) == radix) { /* Power of two? */ int n = 0; /* Number of bits read so far into current big digit */ /* Read from least to most significant digit to avoid shifting or scaling */ while (str_end > str) { str_digit = hex_char_to_digit((int)*--str_end); big_digit |= (C_uword)str_digit << n; n += radix_shift; if (n >= C_BIGNUM_DIGIT_LENGTH) { n -= C_BIGNUM_DIGIT_LENGTH; *digits++ = big_digit; big_digit = str_digit >> (radix_shift - n); } } assert(n < C_BIGNUM_DIGIT_LENGTH); /* If radix isn't an exact divisor of digit length, write final digit */ if (n > 0) *digits++ = big_digit; assert(digits == end_digits); } else { /* Not a power of two */ C_uword *last_digit = digits, factor; /* bignum starts as zero */ do { factor = radix; while (str < str_end && C_fitsinbignumhalfdigitp(factor)) { str_digit = hex_char_to_digit((int)*str++); factor *= radix; big_digit = radix * big_digit + str_digit; } big_digit = bignum_digits_destructive_scale_up_with_carry( digits, last_digit, factor / radix, big_digit); if (big_digit) { (*last_digit++) = big_digit; /* Move end */ big_digit = 0; } } while (str < str_end); /* Set remaining digits to zero so bignum_simplify can do its work */ assert(last_digit <= end_digits); while (last_digit < end_digits) *last_digit++ = 0; } return C_bignum_simplify(bignum); } static C_regparm double C_fcall decode_flonum_literal(C_char *str) { C_char *eptr; double flo; int len = C_strlen(str); /* We only need to be able to parse what C_flonum_to_string() emits, * so we avoid too much error checking. */ if (len == 6) { /* Only perform comparisons when necessary */ if (!C_strcmp(str, "-inf.0")) return -1.0 / 0.0; if (!C_strcmp(str, "+inf.0")) return 1.0 / 0.0; if (!C_strcmp(str, "+nan.0")) return 0.0 / 0.0; } errno = 0; flo = C_strtod(str, &eptr); if((flo == HUGE_VAL && errno != 0) || (flo == -HUGE_VAL && errno != 0) || (*eptr != '\0' && C_strcmp(eptr, ".0") != 0)) { panic(C_text("could not decode flonum literal")); } return flo; } static char *to_n_nary(C_uword num, C_uword base, int negp, int as_flonum) { static char *digits = "0123456789abcdef"; char *p; C_uword shift = C_ilen(base) - 1; int mask = (1 << shift) - 1; if (as_flonum) { buffer[68] = '\0'; buffer[67] = '0'; buffer[66] = '.'; } else { buffer[66] = '\0'; } p = buffer + 66; if (mask == base - 1) { do { *(--p) = digits [ num & mask ]; num >>= shift; } while (num); } else { do { *(--p) = digits [ num % base ]; num /= base; } while (num); } if (negp) *(--p) = '-'; return p; } void C_ccall C_number_to_string(C_word c, C_word *av) { C_word radix, num; if(c == 3) { radix = C_fix(10); } else if(c == 4) { radix = av[ 3 ]; if(!(radix & C_FIXNUM_BIT)) barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "number->string", radix); } else { C_bad_argc(c, 3); } num = av[ 2 ]; if(num & C_FIXNUM_BIT) { C_fixnum_to_string(c, av); /* reuse av */ } else if (C_immediatep(num)) { barf(C_BAD_ARGUMENT_TYPE_ERROR, "number->string", num); } else if(C_block_header(num) == C_FLONUM_TAG) { C_flonum_to_string(c, av); /* reuse av */ } else if (C_truep(C_bignump(num))) { C_integer_to_string(c, av); /* reuse av */ } else { C_word k = av[ 1 ]; try_extended_number("##sys#extended-number->string", 3, k, num, radix); } } void C_ccall C_fixnum_to_string(C_word c, C_word *av) { C_char *p; C_word *a, /* self = av[ 0 ] */ k = av[ 1 ], num = av[ 2 ], radix = ((c == 3) ? 10 : C_unfix(av[ 3 ])), neg = ((num & C_INT_SIGN_BIT) ? 1 : 0); if (radix < 2 || radix > 16) { barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "number->string", C_fix(radix)); } num = neg ? -C_unfix(num) : C_unfix(num); p = to_n_nary(num, radix, neg, 0); num = C_strlen(p); a = C_alloc((C_bytestowords(num) + 1)); C_kontinue(k, C_string(&a, num, p)); } void C_ccall C_flonum_to_string(C_word c, C_word *av) { C_char *p; double f, fa, m; C_word *a, /* self = av[ 0 ] */ k = av[ 1 ], num = av[ 2 ], radix = ((c == 3) ? 10 : C_unfix(av[ 3 ])); f = C_flonum_magnitude(num); fa = fabs(f); /* XXX TODO: Should inexacts be printable in other bases than 10? * Perhaps output a string starting with #i? * Right now something like (number->string 1e40 16) results in * a string that can't be read back using string->number. */ if((radix < 2) || (radix > 16)){ barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "number->string", C_fix(radix)); } if(f == 0.0 || (C_modf(f, &m) == 0.0 && log2(fa) < C_WORD_SIZE)) { /* Use fast int code */ if(f < 0) { p = to_n_nary((C_uword)-f, radix, 1, 1); } else { p = to_n_nary((C_uword)f, radix, 0, 1); } } else if(C_isnan(f)) { p = "+nan.0"; } else if(C_isinf(f)) { p = f > 0 ? "+inf.0" : "-inf.0"; } else { /* Doesn't fit an unsigned int and not "special"; use system libc */ C_snprintf(buffer, STRING_BUFFER_SIZE, C_text("%.*g"), /* XXX: flonum_print_precision */ (int)C_unfix(C_get_print_precision()), f); buffer[STRING_BUFFER_SIZE-1] = '\0'; if((p = C_strpbrk(buffer, C_text(".eE"))) == NULL) { /* Already checked for these, so shouldn't happen */ assert(*buffer != 'i'); /* "inf" */ assert(*buffer != 'n'); /* "nan" */ /* Ensure integral flonums w/o expt are always terminated by .0 */ #if defined(HAVE_STRLCAT) || !defined(C_strcat) C_strlcat(buffer, C_text(".0"), sizeof(buffer)); #else C_strcat(buffer, C_text(".0")); #endif } p = buffer; } radix = C_strlen(p); a = C_alloc((C_bytestowords(radix) + 1)); radix = C_string(&a, radix, p); C_kontinue(k, radix); } void C_ccall C_integer_to_string(C_word c, C_word *av) { C_word /* self = av[ 0 ] */ k = av[ 1 ], num = av[ 2 ], radix = ((c == 3) ? 10 : C_unfix(av[ 3 ])); if (num & C_FIXNUM_BIT) { C_fixnum_to_string(4, av); /* reuse av */ } else { int len, radix_shift; size_t nbits; if ((radix < 2) || (radix > 16)) { barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "number->string", C_fix(radix)); } /* Approximation of the number of radix digits we'll need. We try * to be as precise as possible to avoid memmove overhead at the end * of the non-powers of two part of the conversion procedure, which * we may need to do because we write strings back-to-front, and * pointers must be aligned (even for byte blocks). */ len = C_bignum_size(num)-1; nbits = (size_t)len * C_BIGNUM_DIGIT_LENGTH; nbits += C_ilen(C_bignum_digits(num)[len]); len = C_ilen(radix)-1; len = (nbits + len - 1) / len; len += C_bignum_negativep(num) ? 1 : 0; /* Add space for negative sign */ radix_shift = C_ilen(radix) - 1; if (len > C_RECURSIVE_TO_STRING_THRESHOLD && /* The power of two fast path is much faster than recursion */ ((C_uword)1 << radix_shift) != radix) { try_extended_number("##sys#integer->string/recursive", 4, k, num, C_fix(radix), C_fix(len)); } else { C_word kab[C_SIZEOF_CLOSURE(4)], *ka = kab, kav[6]; kav[ 0 ] = (C_word)NULL; /* No "self" closure */ kav[ 1 ] = C_closure(&ka, 4, (C_word)bignum_to_str_2, k, num, C_fix(radix)); kav[ 2 ] = C_fix(len); kav[ 3 ] = C_SCHEME_TRUE; /* Byte vector */ kav[ 4 ] = C_SCHEME_FALSE; /* No initialization */ kav[ 5 ] = C_SCHEME_FALSE; /* Don't align at 8 bytes */ C_allocate_vector(6, kav); } } } static void bignum_to_str_2(C_word c, C_word *av) { static char *characters = "0123456789abcdef"; C_word self = av[ 0 ], string = av[ 1 ], k = C_block_item(self, 1), bignum = C_block_item(self, 2), radix = C_unfix(C_block_item(self, 3)); char *buf = C_c_string(string), *index = buf + C_header_size(string) - 1; int radix_shift, negp = (C_bignum_negativep(bignum) ? 1 : 0); radix_shift = C_ilen(radix) - 1; if (((C_uword)1 << radix_shift) == radix) { /* Power of two? */ int radix_mask = radix - 1, big_digit_len = 0, radix_digit; C_uword *scan, *end, big_digit = 0; scan = C_bignum_digits(bignum); end = scan + C_bignum_size(bignum); while (scan < end) { /* If radix isn't an exact divisor of digit length, handle overlap */ if (big_digit_len == 0) { big_digit = *scan++; big_digit_len = C_BIGNUM_DIGIT_LENGTH; } else { assert(index >= buf); radix_digit = big_digit; big_digit = *scan++; radix_digit |= ((unsigned int)big_digit << big_digit_len) & radix_mask; *index-- = characters[radix_digit]; big_digit >>= (radix_shift - big_digit_len); big_digit_len = C_BIGNUM_DIGIT_LENGTH - (radix_shift - big_digit_len); } while(big_digit_len >= radix_shift && index >= buf) { radix_digit = big_digit & radix_mask; *index-- = characters[radix_digit]; big_digit >>= radix_shift; big_digit_len -= radix_shift; } } assert(big_digit < radix); /* Final digit (like overlap at start of while loop) */ if (big_digit) *index-- = characters[big_digit]; if (negp) { /* Loop above might've overwritten sign position with a zero */ if (*(index+1) == '0') *(index+1) = '-'; else *index-- = '-'; } /* Length calculation is always precise for radix powers of two. */ assert(index == buf-1); } else { C_uword base, *start, *scan, big_digit; C_word working_copy; int steps, i; working_copy = allocate_tmp_bignum(C_fix(C_bignum_size(bignum)), C_mk_bool(negp), C_SCHEME_FALSE); bignum_digits_destructive_copy(working_copy, bignum); start = C_bignum_digits(working_copy); scan = start + C_bignum_size(bignum); /* Calculate the largest power of radix that fits a halfdigit: * steps = log10(2^halfdigit_bits), base = 10^steps */ for(steps = 0, base = radix; C_fitsinbignumhalfdigitp(base); base *= radix) steps++; base /= radix; /* Back down: we overshot in the loop */ while (scan > start) { big_digit = bignum_digits_destructive_scale_down(start, scan, base); if (*(scan-1) == 0) scan--; /* Adjust if we exhausted the highest digit */ for(i = 0; i < steps && index >= buf; ++i) { C_word tmp = big_digit / radix; *index-- = characters[big_digit - (tmp*radix)]; /* big_digit % radix */ big_digit = tmp; } } assert(index >= buf-1); free_tmp_bignum(working_copy); /* Move index onto first nonzero digit. We're writing a bignum here: it can't consist of only zeroes. */ while(*++index == '0'); if (negp) *--index = '-'; /* Shorten with distance between start and index. */ if (buf != index) { i = C_header_size(string) - (index - buf); C_memmove(buf, index, i); /* Move start of number to beginning. */ C_block_header(string) = C_STRING_TYPE | i; /* Mutate strlength. */ } } C_kontinue(k, string); } void C_ccall C_make_structure(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], type = av[ 2 ], size = c - 3, *s, s0; if(!C_demand(size + 2)) C_save_and_reclaim((void *)C_make_structure, c, av); s = C_alloc(C_SIZEOF_STRUCTURE(size + 1)), s0 = (C_word)s; *(s++) = C_STRUCTURE_TYPE | (size + 1); *(s++) = type; av += 3; while(size--) *(s++) = *(av++); C_kontinue(k, s0); } void C_ccall C_make_symbol(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], name = av[ 2 ], ab[ C_SIZEOF_SYMBOL ], *a = ab, s0 = (C_word)a; *(a++) = C_SYMBOL_TYPE | (C_SIZEOF_SYMBOL - 1); *(a++) = C_SCHEME_UNBOUND; *(a++) = name; *a = C_SCHEME_END_OF_LIST; C_kontinue(k, s0); } void C_ccall C_make_pointer(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], ab[ 2 ], *a = ab, p; p = C_mpointer(&a, NULL); C_kontinue(k, p); } void C_ccall C_make_tagged_pointer(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], tag = av[ 2 ], ab[ 3 ], *a = ab, p; p = C_taggedmpointer(&a, tag, NULL); C_kontinue(k, p); } void C_ccall C_ensure_heap_reserve(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], n = av[ 2 ], *p; C_save(k); if(!C_demand(C_bytestowords(C_unfix(n)))) C_reclaim((void *)generic_trampoline, 1); p = C_temporary_stack; C_temporary_stack = C_temporary_stack_bottom; generic_trampoline(0, p); } void C_ccall generic_trampoline(C_word c, C_word *av) { C_word k = av[ 0 ]; C_kontinue(k, C_SCHEME_UNDEFINED); } void C_ccall C_return_to_host(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ]; return_to_host = 1; C_save(k); C_reclaim((void *)generic_trampoline, 1); } void C_ccall C_get_symbol_table_info(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ]; double d1, d2; int n = 0, total; C_SYMBOL_TABLE *stp; C_word x, y, ab[ WORDS_PER_FLONUM * 2 + C_SIZEOF_VECTOR(4) ], *a = ab; for(stp = symbol_table_list; stp != NULL; stp = stp->next) ++n; d1 = compute_symbol_table_load(&d2, &total); x = C_flonum(&a, d1); /* load */ y = C_flonum(&a, d2); /* avg bucket length */ C_kontinue(k, C_vector(&a, 4, x, y, C_fix(total), C_fix(n))); } void C_ccall C_get_memory_info(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], ab[ C_SIZEOF_VECTOR(2) ], *a = ab; C_kontinue(k, C_vector(&a, 2, C_fix(heap_size), C_fix(stack_size))); } void C_ccall C_context_switch(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ state = av[ 2 ], n = C_header_size(state) - 1, adrs = C_block_item(state, 0), *av2; C_proc tp = (C_proc)C_block_item(adrs,0); /* Copy argvector because it may be mutated in-place. The state * vector should not be re-invoked(?), but it can be kept alive * during GC, so the mutated argvector/state slots may turn stale. */ av2 = C_alloc(n); C_memcpy(av2, (C_word *)state + 2, n * sizeof(C_word)); tp(n, av2); } void C_ccall C_peek_signed_integer(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], v = av[ 2 ], index = av[ 3 ], x = C_block_item(v, C_unfix(index)), ab[C_SIZEOF_BIGNUM(1)], *a = ab; C_uword num = ((C_word *)C_data_pointer(v))[ C_unfix(index) ]; C_kontinue(k, C_int_to_num(&a, num)); } void C_ccall C_peek_unsigned_integer(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], v = av[ 2 ], index = av[ 3 ], x = C_block_item(v, C_unfix(index)), ab[C_SIZEOF_BIGNUM(1)], *a = ab; C_uword num = ((C_word *)C_data_pointer(v))[ C_unfix(index) ]; C_kontinue(k, C_unsigned_int_to_num(&a, num)); } void C_ccall C_peek_int64(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], v = av[ 2 ], index = av[ 3 ], x = C_block_item(v, C_unfix(index)), ab[C_SIZEOF_BIGNUM(2)], *a = ab; C_s64 num = ((C_s64 *)C_data_pointer(v))[ C_unfix(index) ]; C_kontinue(k, C_int64_to_num(&a, num)); } void C_ccall C_peek_uint64(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], v = av[ 2 ], index = av[ 3 ], x = C_block_item(v, C_unfix(index)), ab[C_SIZEOF_BIGNUM(2)], *a = ab; C_u64 num = ((C_u64 *)C_data_pointer(v))[ C_unfix(index) ]; C_kontinue(k, C_uint64_to_num(&a, num)); } void C_ccall C_decode_seconds(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], secs = av[ 2 ], mode = av[ 3 ]; time_t tsecs; struct tm *tmt; C_word ab[ C_SIZEOF_VECTOR(10) ], *a = ab, info; tsecs = (time_t)C_num_to_int64(secs); if(mode == C_SCHEME_FALSE) tmt = C_localtime(&tsecs); else tmt = C_gmtime(&tsecs); if(tmt == NULL) C_kontinue(k, C_SCHEME_FALSE); info = C_vector(&a, 10, C_fix(tmt->tm_sec), C_fix(tmt->tm_min), C_fix(tmt->tm_hour), C_fix(tmt->tm_mday), C_fix(tmt->tm_mon), C_fix(tmt->tm_year), C_fix(tmt->tm_wday), C_fix(tmt->tm_yday), tmt->tm_isdst > 0 ? C_SCHEME_TRUE : C_SCHEME_FALSE, #ifdef C_GNU_ENV /* negative for west of UTC, but we want positive */ C_fix(-tmt->tm_gmtoff) #elif defined(__CYGWIN__) || defined(__MINGW32__) || defined(_WIN32) || defined(__WINNT__) C_fix(mode == C_SCHEME_FALSE ? _timezone : 0) /* does not account for DST */ #else C_fix(mode == C_SCHEME_FALSE ? timezone : 0) /* does not account for DST */ #endif ); C_kontinue(k, info); } void C_ccall C_machine_byte_order(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ]; char *str; C_word *a, s; if(c != 2) C_bad_argc(c, 2); #if defined(C_MACHINE_BYTE_ORDER) str = C_MACHINE_BYTE_ORDER; #else C_cblock static C_word one_two_three = 123; str = (*((C_char *)&one_two_three) != 123) ? "big-endian" : "little-endian"; C_cblockend; #endif a = C_alloc(2 + C_bytestowords(strlen(str))); s = C_string2(&a, str); C_kontinue(k, s); } void C_ccall C_machine_type(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], *a, s; if(c != 2) C_bad_argc(c, 2); a = C_alloc(2 + C_bytestowords(strlen(C_MACHINE_TYPE))); s = C_string2(&a, C_MACHINE_TYPE); C_kontinue(k, s); } void C_ccall C_software_type(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], *a, s; if(c != 2) C_bad_argc(c, 2); a = C_alloc(2 + C_bytestowords(strlen(C_SOFTWARE_TYPE))); s = C_string2(&a, C_SOFTWARE_TYPE); C_kontinue(k, s); } void C_ccall C_build_platform(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], *a, s; if(c != 2) C_bad_argc(c, 2); a = C_alloc(2 + C_bytestowords(strlen(C_BUILD_PLATFORM))); s = C_string2(&a, C_BUILD_PLATFORM); C_kontinue(k, s); } void C_ccall C_software_version(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], *a, s; if(c != 2) C_bad_argc(c, 2); a = C_alloc(2 + C_bytestowords(strlen(C_SOFTWARE_VERSION))); s = C_string2(&a, C_SOFTWARE_VERSION); C_kontinue(k, s); } /* Register finalizer: */ void C_ccall C_register_finalizer(C_word c, C_word *av) { C_word /* closure = av[ 0 ]) */ k = av[ 1 ], x = av[ 2 ], proc = av[ 3 ]; if(C_immediatep(x) || (!C_in_stackp(x) && !C_in_heapp(x) && !C_in_scratchspacep(x))) C_kontinue(k, x); /* not GCable */ C_do_register_finalizer(x, proc); C_kontinue(k, x); } /*XXX could this be made static? is it used in eggs somewhere? if not, declare as fcall/regparm (and static, remove from chicken.h) */ void C_ccall C_do_register_finalizer(C_word x, C_word proc) { C_word *ptr; int n, i; FINALIZER_NODE *flist; if(finalizer_free_list == NULL) { if((flist = (FINALIZER_NODE *)C_malloc(sizeof(FINALIZER_NODE))) == NULL) panic(C_text("out of memory - cannot allocate finalizer node")); ++allocated_finalizer_count; } else { flist = finalizer_free_list; finalizer_free_list = flist->next; } if(finalizer_list != NULL) finalizer_list->previous = flist; flist->previous = NULL; flist->next = finalizer_list; finalizer_list = flist; if(C_in_stackp(x)) C_mutate_slot(&flist->item, x); else flist->item = x; if(C_in_stackp(proc)) C_mutate_slot(&flist->finalizer, proc); else flist->finalizer = proc; ++live_finalizer_count; } /*XXX same here */ int C_do_unregister_finalizer(C_word x) { int n; FINALIZER_NODE *flist; for(flist = finalizer_list; flist != NULL; flist = flist->next) { if(flist->item == x) { if(flist->previous == NULL) finalizer_list = flist->next; else flist->previous->next = flist->next; return 1; } } return 0; } /* Dynamic loading of shared objects: */ void C_ccall C_set_dlopen_flags(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], now = av[ 2 ], global = av[ 3 ]; #if !defined(NO_DLOAD2) && defined(HAVE_DLFCN_H) dlopen_flags = (C_truep(now) ? RTLD_NOW : RTLD_LAZY) | (C_truep(global) ? RTLD_GLOBAL : RTLD_LOCAL); #endif C_kontinue(k, C_SCHEME_UNDEFINED); } void C_ccall C_dload(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], name = av[ 2 ], entry = av[ 3 ]; #if !defined(NO_DLOAD2) && (defined(HAVE_DLFCN_H) || defined(HAVE_DL_H) || (defined(HAVE_LOADLIBRARY) && defined(HAVE_GETPROCADDRESS))) /* Force minor GC: otherwise the lf may contain pointers to stack-data (stack allocated interned symbols, for example) */ C_save_and_reclaim_args((void *)dload_2, 3, k, name, entry); #endif C_kontinue(k, C_SCHEME_FALSE); } #ifdef DLOAD_2_DEFINED # undef DLOAD_2_DEFINED #endif #if !defined(NO_DLOAD2) && defined(HAVE_DL_H) && !defined(DLOAD_2_DEFINED) # ifdef __hpux__ # define DLOAD_2_DEFINED void C_ccall dload_2(C_word c, C_word *av0) { void *handle, *p; C_word entry = av0[ 0 ], name = av0[ 1 ], k = av0[ 2 ],, av[ 2 ]; C_char *mname = (C_char *)C_data_pointer(name); /* * C_fprintf(C_stderr, * "shl_loading %s : %s\n", * (char *) C_data_pointer(name), * (char *) C_data_pointer(entry)); */ if ((handle = (void *) shl_load(mname, BIND_IMMEDIATE | DYNAMIC_PATH, 0L)) != NULL) { shl_t shl_handle = (shl_t) handle; /*** This version does not check for C_dynamic_and_unsafe. Fix it. */ if (shl_findsym(&shl_handle, (char *) C_data_pointer(entry), TYPE_PROCEDURE, &p) == 0) { current_module_name = C_strdup(mname); current_module_handle = handle; if(debug_mode) { C_dbg(C_text("debug"), C_text("loading compiled library %s (" UWORD_FORMAT_STRING ")\n"), current_module_name, (C_uword)current_module_handle); } av[ 0 ] = C_SCHEME_UNDEFINED; av[ 1 ] = k; ((C_proc)p)(2, av); /* doesn't return */ } else { C_dlerror = (char *) C_strerror(errno); shl_unload(shl_handle); } } else { C_dlerror = (char *) C_strerror(errno); } C_kontinue(k, C_SCHEME_FALSE); } # endif #endif #if !defined(NO_DLOAD2) && defined(HAVE_DLFCN_H) && !defined(DLOAD_2_DEFINED) # ifndef __hpux__ # define DLOAD_2_DEFINED void C_ccall dload_2(C_word c, C_word *av0) { void *handle, *p, *p2; C_word entry = av0[ 0 ], name = av0[ 1 ], k = av0[ 2 ], av[ 2 ]; C_char *topname = (C_char *)C_data_pointer(entry); C_char *mname = (C_char *)C_data_pointer(name); C_char *tmp; int tmp_len = 0; if((handle = C_dlopen(mname, dlopen_flags)) != NULL) { if((p = C_dlsym(handle, topname)) == NULL) { tmp_len = C_strlen(topname) + 2; tmp = (C_char *)C_malloc(tmp_len); if(tmp == NULL) panic(C_text("out of memory - cannot allocate toplevel name string")); C_strlcpy(tmp, C_text("_"), tmp_len); C_strlcat(tmp, topname, tmp_len); p = C_dlsym(handle, tmp); C_free(tmp); } if(p != NULL) { current_module_name = C_strdup(mname); current_module_handle = handle; if(debug_mode) { C_dbg(C_text("debug"), C_text("loading compiled library %s (" UWORD_FORMAT_STRING ")\n"), current_module_name, (C_uword)current_module_handle); } av[ 0 ] = C_SCHEME_UNDEFINED; av[ 1 ] = k; ((C_proc)p)(2, av); /* doesn't return */ } C_dlclose(handle); } C_dlerror = (char *)dlerror(); C_kontinue(k, C_SCHEME_FALSE); } # endif #endif #if !defined(NO_DLOAD2) && (defined(HAVE_LOADLIBRARY) && defined(HAVE_GETPROCADDRESS)) && !defined(DLOAD_2_DEFINED) # define DLOAD_2_DEFINED void C_ccall dload_2(C_word c, C_word *av0) { HINSTANCE handle; FARPROC p = NULL, p2; C_word entry = av0[ 0 ], name = av0[ 1 ], k = av0[ 2 ], av[ 2 ]; C_char *topname = (C_char *)C_data_pointer(entry); C_char *mname = (C_char *)C_data_pointer(name); /* cannot use LoadLibrary on non-DLLs, so we use extension checking */ if (C_header_size(name) >= 5) { char *n = (char*) C_data_pointer(name); int l = C_header_size(name); if (C_strncasecmp(".dll", n+l-5, 4) && C_strncasecmp(".so", n+l-4, 3)) C_kontinue(k, C_SCHEME_FALSE); } if((handle = LoadLibrary(mname)) != NULL) { if ((p = GetProcAddress(handle, topname)) != NULL) { current_module_name = C_strdup(mname); current_module_handle = handle; if(debug_mode) { C_dbg(C_text("debug"), C_text("loading compiled library %s (" UWORD_FORMAT_STRING ")\n"), current_module_name, (C_uword)current_module_handle); } av[ 0 ] = C_SCHEME_UNDEFINED; av[ 1 ] = k; ((C_proc)p)(2, av); /* doesn't return */ } else FreeLibrary(handle); } C_dlerror = (char *) C_strerror(errno); C_kontinue(k, C_SCHEME_FALSE); } #endif void C_ccall C_become(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], table = av[ 2 ], tp, x, old, neu, i, *p; i = forwarding_table_size; p = forwarding_table; for(tp = table; tp != C_SCHEME_END_OF_LIST; tp = C_u_i_cdr(tp)) { x = C_u_i_car(tp); old = C_u_i_car(x); neu = C_u_i_cdr(x); if(i == 0) { if((forwarding_table = (C_word *)realloc(forwarding_table, (forwarding_table_size + 1) * 4 * sizeof(C_word))) == NULL) panic(C_text("out of memory - cannot re-allocate forwarding table")); i = forwarding_table_size; p = forwarding_table + forwarding_table_size * 2; forwarding_table_size *= 2; } *(p++) = old; *(p++) = neu; --i; } *p = 0; C_fromspace_top = C_fromspace_limit; C_save_and_reclaim_args((void *)become_2, 1, k); } void C_ccall become_2(C_word c, C_word *av) { C_word k = av[ 0 ]; *forwarding_table = 0; C_kontinue(k, C_SCHEME_UNDEFINED); } C_regparm C_word C_fcall C_a_i_cpu_time(C_word **a, int c, C_word buf) { C_word u, s = C_fix(0); #if defined(C_NONUNIX) || defined(__CYGWIN__) if(CLOCKS_PER_SEC == 1000) u = clock(); else u = C_uint64_to_num(a, ((C_u64)clock() / CLOCKS_PER_SEC) * 1000); #else struct rusage ru; if(C_getrusage(RUSAGE_SELF, &ru) == -1) u = 0; else { u = C_uint64_to_num(a, (C_u64)ru.ru_utime.tv_sec * 1000 + ru.ru_utime.tv_usec / 1000); s = C_uint64_to_num(a, (C_u64)ru.ru_stime.tv_sec * 1000 + ru.ru_stime.tv_usec / 1000); } #endif /* buf must not be in nursery */ C_set_block_item(buf, 0, u); C_set_block_item(buf, 1, s); return buf; } C_regparm C_word C_fcall C_a_i_make_locative(C_word **a, int c, C_word type, C_word object, C_word index, C_word weak) { C_word *loc = *a; int offset, i, in = C_unfix(index); *a = loc + C_SIZEOF_LOCATIVE; loc[ 0 ] = C_LOCATIVE_TAG; switch(C_unfix(type)) { case C_SLOT_LOCATIVE: in *= sizeof(C_word); break; case C_U16_LOCATIVE: case C_S16_LOCATIVE: in *= 2; break; case C_U32_LOCATIVE: case C_F32_LOCATIVE: case C_S32_LOCATIVE: in *= 4; break; case C_U64_LOCATIVE: case C_S64_LOCATIVE: case C_F64_LOCATIVE: in *= 8; break; } offset = in + sizeof(C_header); loc[ 1 ] = object + offset; loc[ 2 ] = C_fix(offset); loc[ 3 ] = type; loc[ 4 ] = C_truep(weak) ? C_SCHEME_FALSE : object; for(i = 0; i < locative_table_count; ++i) if(locative_table[ i ] == C_SCHEME_UNDEFINED) { locative_table[ i ] = (C_word)loc; return (C_word)loc; } if(locative_table_count >= locative_table_size) { if(debug_mode == 2) C_dbg(C_text("debug"), C_text("resizing locative table from %d to %d (count is %d)\n"), locative_table_size, locative_table_size * 2, locative_table_count); locative_table = (C_word *)C_realloc(locative_table, locative_table_size * 2 * sizeof(C_word)); if(locative_table == NULL) panic(C_text("out of memory - cannot resize locative table")); locative_table_size *= 2; } locative_table[ locative_table_count++ ] = (C_word)loc; return (C_word)loc; } C_regparm C_word C_fcall C_a_i_locative_ref(C_word **a, int c, C_word loc) { C_word *ptr; if(C_immediatep(loc) || C_block_header(loc) != C_LOCATIVE_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-ref", loc); ptr = (C_word *)C_block_item(loc, 0); if(ptr == NULL) barf(C_LOST_LOCATIVE_ERROR, "locative-ref", loc); switch(C_unfix(C_block_item(loc, 2))) { case C_SLOT_LOCATIVE: return *ptr; case C_CHAR_LOCATIVE: return C_make_character(*((char *)ptr)); case C_U8_LOCATIVE: return C_fix(*((unsigned char *)ptr)); case C_S8_LOCATIVE: return C_fix(*((char *)ptr)); case C_U16_LOCATIVE: return C_fix(*((unsigned short *)ptr)); case C_S16_LOCATIVE: return C_fix(*((short *)ptr)); case C_U32_LOCATIVE: return C_unsigned_int_to_num(a, *((C_u32 *)ptr)); case C_S32_LOCATIVE: return C_int_to_num(a, *((C_s32 *)ptr)); case C_U64_LOCATIVE: return C_uint64_to_num(a, *((C_u64 *)ptr)); case C_S64_LOCATIVE: return C_int64_to_num(a, *((C_s64 *)ptr)); case C_F32_LOCATIVE: return C_flonum(a, *((float *)ptr)); case C_F64_LOCATIVE: return C_flonum(a, *((double *)ptr)); default: panic(C_text("bad locative type")); } } C_regparm C_word C_fcall C_i_locative_set(C_word loc, C_word x) { C_word *ptr, val; if(C_immediatep(loc) || C_block_header(loc) != C_LOCATIVE_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", loc); ptr = (C_word *)C_block_item(loc, 0); if(ptr == NULL) barf(C_LOST_LOCATIVE_ERROR, "locative-set!", loc); switch(C_unfix(C_block_item(loc, 2))) { case C_SLOT_LOCATIVE: C_mutate(ptr, x); break; case C_CHAR_LOCATIVE: if((x & C_IMMEDIATE_TYPE_BITS) != C_CHARACTER_BITS) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((char *)ptr) = C_character_code(x); break; case C_U8_LOCATIVE: if((x & C_FIXNUM_BIT) == 0) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((unsigned char *)ptr) = C_unfix(x); break; case C_S8_LOCATIVE: if((x & C_FIXNUM_BIT) == 0) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((char *)ptr) = C_unfix(x); break; case C_U16_LOCATIVE: if((x & C_FIXNUM_BIT) == 0) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((unsigned short *)ptr) = C_unfix(x); break; case C_S16_LOCATIVE: if((x & C_FIXNUM_BIT) == 0) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((short *)ptr) = C_unfix(x); break; case C_U32_LOCATIVE: if(!C_truep(C_i_exact_integerp(x))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((C_u32 *)ptr) = C_num_to_unsigned_int(x); break; case C_S32_LOCATIVE: if(!C_truep(C_i_exact_integerp(x))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((C_s32 *)ptr) = C_num_to_int(x); break; case C_U64_LOCATIVE: if(!C_truep(C_i_exact_integerp(x))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((C_u64 *)ptr) = C_num_to_uint64(x); break; case C_S64_LOCATIVE: if(!C_truep(C_i_exact_integerp(x))) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((C_s64 *)ptr) = C_num_to_int64(x); break; case C_F32_LOCATIVE: if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((float *)ptr) = C_flonum_magnitude(x); break; case C_F64_LOCATIVE: if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); *((double *)ptr) = C_flonum_magnitude(x); break; default: panic(C_text("bad locative type")); } return C_SCHEME_UNDEFINED; } C_regparm C_word C_fcall C_i_locative_to_object(C_word loc) { C_word *ptr; if(C_immediatep(loc) || C_block_header(loc) != C_LOCATIVE_TAG) barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative->object", loc); ptr = (C_word *)C_block_item(loc, 0); if(ptr == NULL) return C_SCHEME_FALSE; else return (C_word)ptr - C_unfix(C_block_item(loc, 1)); } /* GC protection of user-variables: */ C_regparm void C_fcall C_gc_protect(C_word **addr, int n) { int k; if(collectibles_top + n >= collectibles_limit) { k = collectibles_limit - collectibles; collectibles = (C_word **)C_realloc(collectibles, sizeof(C_word *) * k * 2); if(collectibles == NULL) panic(C_text("out of memory - cannot allocate GC protection vector")); collectibles_top = collectibles + k; collectibles_limit = collectibles + k * 2; } C_memcpy(collectibles_top, addr, n * sizeof(C_word *)); collectibles_top += n; } C_regparm void C_fcall C_gc_unprotect(int n) { collectibles_top -= n; } /* Map procedure-ptr to id or id to ptr: */ C_char *C_lookup_procedure_id(void *ptr) { LF_LIST *lfl; C_PTABLE_ENTRY *pt; for(lfl = lf_list; lfl != NULL; lfl = lfl->next) { pt = lfl->ptable; if(pt != NULL) { while(pt->id != NULL) { if(pt->ptr == ptr) return pt->id; else ++pt; } } } return NULL; } void *C_lookup_procedure_ptr(C_char *id) { LF_LIST *lfl; C_PTABLE_ENTRY *pt; for(lfl = lf_list; lfl != NULL; lfl = lfl->next) { pt = lfl->ptable; if(pt != NULL) { while(pt->id != NULL) { if(!C_strcmp(id, pt->id)) return pt->ptr; else ++pt; } } } return NULL; } void C_ccall C_copy_closure(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], proc = av[ 2 ], *p; int n = C_header_size(proc); if(!C_demand(n + 1)) C_save_and_reclaim_args((void *)copy_closure_2, 2, proc, k); else { C_save(proc); C_save(k); p = C_temporary_stack; C_temporary_stack = C_temporary_stack_bottom; copy_closure_2(0, p); } } static void C_ccall copy_closure_2(C_word c, C_word *av) { C_word k = av[ 0 ], proc = av[ 1 ]; int cells = C_header_size(proc); C_word *ptr = C_alloc(C_SIZEOF_CLOSURE(cells)), *p = ptr; *(p++) = C_CLOSURE_TYPE | cells; /* this is only allowed because the storage is freshly allocated: */ C_memcpy_slots(p, C_data_pointer(proc), cells); C_kontinue(k, (C_word)ptr); } /* Ph'nglui mglw'nafh Cthulhu R'lyeh wgah'nagl fhtagn */ void C_ccall C_call_with_cthulhu(C_word c, C_word *av) { C_word proc = av[ 2 ], *a = C_alloc(C_SIZEOF_CLOSURE(1)), av2[ 2 ]; av2[ 0 ] = proc; av2[ 1 ] = C_closure(&a, 1, (C_word)termination_continuation); /* k */ C_do_apply(2, av2); } /* fixnum arithmetic with overflow detection (from "Hacker's Delight" by Hank Warren) These routines return #f if the operation failed due to overflow. */ C_regparm C_word C_fcall C_i_o_fixnum_plus(C_word n1, C_word n2) { C_word x1, x2, s; if((n1 & C_FIXNUM_BIT) == 0 || (n2 & C_FIXNUM_BIT) == 0) return C_SCHEME_FALSE; x1 = C_unfix(n1); x2 = C_unfix(n2); s = x1 + x2; #ifdef C_SIXTY_FOUR if((((s ^ x1) & (s ^ x2)) >> 62) != 0) return C_SCHEME_FALSE; #else if((((s ^ x1) & (s ^ x2)) >> 30) != 0) return C_SCHEME_FALSE; #endif else return C_fix(s); } C_regparm C_word C_fcall C_i_o_fixnum_difference(C_word n1, C_word n2) { C_word x1, x2, s; if((n1 & C_FIXNUM_BIT) == 0 || (n2 & C_FIXNUM_BIT) == 0) return C_SCHEME_FALSE; x1 = C_unfix(n1); x2 = C_unfix(n2); s = x1 - x2; #ifdef C_SIXTY_FOUR if((((s ^ x1) & ~(s ^ x2)) >> 62) != 0) return C_SCHEME_FALSE; #else if((((s ^ x1) & ~(s ^ x2)) >> 30) != 0) return C_SCHEME_FALSE; #endif else return C_fix(s); } C_regparm C_word C_fcall C_i_o_fixnum_times(C_word n1, C_word n2) { C_word x1, x2; C_uword x1u, x2u; #ifdef C_SIXTY_FOUR # ifdef C_LLP C_uword c = 1ULL<<63ULL; # else C_uword c = 1UL<<63UL; # endif #else C_uword c = 1UL<<31UL; #endif if((n1 & C_FIXNUM_BIT) == 0 || (n2 & C_FIXNUM_BIT) == 0) return C_SCHEME_FALSE; if((n1 & C_INT_SIGN_BIT) == (n2 & C_INT_SIGN_BIT)) --c; x1 = C_unfix(n1); x2 = C_unfix(n2); x1u = x1 < 0 ? -x1 : x1; x2u = x2 < 0 ? -x2 : x2; if(x2u != 0 && x1u > (c / x2u)) return C_SCHEME_FALSE; x1 = x1 * x2; if(C_fitsinfixnump(x1)) return C_fix(x1); else return C_SCHEME_FALSE; } C_regparm C_word C_fcall C_i_o_fixnum_quotient(C_word n1, C_word n2) { C_word x1, x2; if((n1 & C_FIXNUM_BIT) == 0 || (n2 & C_FIXNUM_BIT) == 0) return C_SCHEME_FALSE; x1 = C_unfix(n1); x2 = C_unfix(n2); if(x2 == 0) barf(C_DIVISION_BY_ZERO_ERROR, "fx/?"); #ifdef C_SIXTY_FOUR if(x1 == 0x8000000000000000L && x2 == -1) return C_SCHEME_FALSE; #else if(x1 == 0x80000000L && x2 == -1) return C_SCHEME_FALSE; #endif x1 = x1 / x2; if(C_fitsinfixnump(x1)) return C_fix(x1); else return C_SCHEME_FALSE; } C_regparm C_word C_fcall C_i_o_fixnum_and(C_word n1, C_word n2) { C_uword x1, x2, r; if((n1 & C_FIXNUM_BIT) == 0 || (n2 & C_FIXNUM_BIT) == 0) return C_SCHEME_FALSE; x1 = C_unfix(n1); x2 = C_unfix(n2); r = x1 & x2; if(((r & C_INT_SIGN_BIT) >> 1) != (r & C_INT_TOP_BIT)) return C_SCHEME_FALSE; else return C_fix(r); } C_regparm C_word C_fcall C_i_o_fixnum_ior(C_word n1, C_word n2) { C_uword x1, x2, r; if((n1 & C_FIXNUM_BIT) == 0 || (n2 & C_FIXNUM_BIT) == 0) return C_SCHEME_FALSE; x1 = C_unfix(n1); x2 = C_unfix(n2); r = x1 | x2; if(((r & C_INT_SIGN_BIT) >> 1) != (r & C_INT_TOP_BIT)) return C_SCHEME_FALSE; else return C_fix(r); } C_regparm C_word C_fcall C_i_o_fixnum_xor(C_word n1, C_word n2) { C_uword x1, x2, r; if((n1 & C_FIXNUM_BIT) == 0 || (n2 & C_FIXNUM_BIT) == 0) return C_SCHEME_FALSE; x1 = C_unfix(n1); x2 = C_unfix(n2); r = x1 ^ x2; if(((r & C_INT_SIGN_BIT) >> 1) != (r & C_INT_TOP_BIT)) return C_SCHEME_FALSE; else return C_fix(r); } /* decoding of literals in compressed format */ static C_regparm C_uword C_fcall decode_size(C_char **str) { C_uchar **ustr = (C_uchar **)str; C_uword size = (*((*ustr)++) & 0xff) << 16; /* always big endian */ size |= (*((*ustr)++) & 0xff) << 8; size |= (*((*ustr)++) & 0xff); return size; } static C_regparm C_word C_fcall decode_literal2(C_word **ptr, C_char **str, C_word *dest) { C_ulong bits = *((*str)++) & 0xff; C_word *data, *dptr, val; C_uword size; /* vvv this can be taken out at a later stage (once it works reliably) vvv */ if(bits != 0xfe) panic(C_text("invalid encoded literal format")); bits = *((*str)++) & 0xff; /* ^^^ */ #ifdef C_SIXTY_FOUR bits <<= 24 + 32; #else bits <<= 24; #endif if(bits == C_HEADER_BITS_MASK) { /* special/immediate */ switch(0xff & *((*str)++)) { case C_BOOLEAN_BITS: return C_mk_bool(*((*str)++)); case C_CHARACTER_BITS: return C_make_character(decode_size(str)); case C_SCHEME_END_OF_LIST: case C_SCHEME_UNDEFINED: case C_SCHEME_END_OF_FILE: return (C_word)(*(*str - 1)); case C_FIXNUM_BIT: val = (C_uword)(signed char)*((*str)++) << 24; /* always big endian */ val |= ((C_uword)*((*str)++) & 0xff) << 16; val |= ((C_uword)*((*str)++) & 0xff) << 8; val |= ((C_uword)*((*str)++) & 0xff); return C_fix(val); #ifdef C_SIXTY_FOUR case ((C_STRING_TYPE | C_GC_FORWARDING_BIT) >> (24 + 32)) & 0xff: #else case ((C_STRING_TYPE | C_GC_FORWARDING_BIT) >> 24) & 0xff: #endif bits = (C_STRING_TYPE | C_GC_FORWARDING_BIT); break; default: panic(C_text("invalid encoded special literal")); } } #ifndef C_SIXTY_FOUR if((bits & C_8ALIGN_BIT) != 0) { /* Align _data_ on 8-byte boundary: */ if(C_aligned8(*ptr)) ++(*ptr); } #endif val = (C_word)(*ptr); if((bits & C_SPECIALBLOCK_BIT) != 0) panic(C_text("literals with special bit cannot be decoded")); if(bits == C_FLONUM_TYPE) { val = C_flonum(ptr, decode_flonum_literal(*str)); while(*((*str)++) != '\0'); /* skip terminating '\0' */ return val; } size = decode_size(str); switch(bits) { /* This cannot be encoded as a blob due to endianness differences */ case (C_STRING_TYPE | C_GC_FORWARDING_BIT): /* This represents "exact int" */ /* bignums are also allocated statically */ val = C_static_bignum(ptr, size, *str); *str += size; break; case C_STRING_TYPE: /* strings are always allocated statically */ val = C_static_string(ptr, size, *str); *str += size; break; case C_BYTEVECTOR_TYPE: /* ... as are bytevectors (blobs) */ val = C_static_bytevector(ptr, size, *str); *str += size; break; case C_SYMBOL_TYPE: if(dest == NULL) panic(C_text("invalid literal symbol destination")); if (**str == '\1') { val = C_h_intern(dest, size, ++*str); } else if (**str == '\2') { val = C_h_intern_kw(dest, size, ++*str); } else { C_snprintf(buffer, sizeof(buffer), C_text("Unknown symbol subtype: %d"), (int)**str); panic(buffer); } *str += size; break; case C_LAMBDA_INFO_TYPE: /* lambda infos are always allocated statically */ val = C_static_lambda_info(ptr, size, *str); *str += size; break; default: *((*ptr)++) = C_make_header(bits, size); data = *ptr; if((bits & C_BYTEBLOCK_BIT) != 0) { C_memcpy(data, *str, size); size = C_align(size); *str += size; *ptr = (C_word *)C_align((C_word)(*ptr) + size); } else { C_word *dptr = *ptr; *ptr += size; while(size--) { *dptr = decode_literal2(ptr, str, dptr); ++dptr; } } } return val; } C_regparm C_word C_fcall C_decode_literal(C_word **ptr, C_char *str) { return decode_literal2(ptr, &str, NULL); } void C_use_private_repository(C_char *path) { private_repository = path; } C_char * C_private_repository_path() { return private_repository; } C_char * C_executable_pathname() { #ifdef SEARCH_EXE_PATH return C_main_exe == NULL ? NULL : C_strdup(C_main_exe); #else return C_resolve_executable_pathname(NULL); #endif } C_char * C_executable_dirname() { int len; C_char *path; if((path = C_executable_pathname()) == NULL) return NULL; #if defined(_WIN32) && !defined(__CYGWIN__) for(len = C_strlen(path); len >= 0 && path[len] != '\\'; len--); #else for(len = C_strlen(path); len >= 0 && path[len] != '/'; len--); #endif path[len] = '\0'; return path; } C_char * C_resolve_executable_pathname(C_char *fname) { int n; C_char *buffer = (C_char *) C_malloc(C_MAX_PATH); if(buffer == NULL) return NULL; #if defined(__linux__) || defined(__sun) C_char linkname[64]; /* /proc/<pid>/exe */ pid_t pid = C_getpid(); # ifdef __linux__ C_snprintf(linkname, sizeof(linkname), "/proc/%i/exe", pid); # else C_snprintf(linkname, sizeof(linkname), "/proc/%i/path/a.out", pid); /* SunOS / Solaris */ # endif n = C_readlink(linkname, buffer, C_MAX_PATH); if(n < 0 || n >= C_MAX_PATH) goto error; buffer[n] = '\0'; return buffer; #elif defined(_WIN32) && !defined(__CYGWIN__) n = GetModuleFileName(NULL, buffer, C_MAX_PATH); if(n == 0 || n >= C_MAX_PATH) goto error; return buffer; #elif defined(C_MACOSX) C_char buf[C_MAX_PATH]; C_u32 size = C_MAX_PATH; if(_NSGetExecutablePath(buf, &size) != 0) goto error; if(C_realpath(buf, buffer) == NULL) goto error; return buffer; #elif defined(__HAIKU__) { image_info info; int32 cookie = 0; while (get_next_image_info(0, &cookie, &info) == B_OK) { if (info.type == B_APP_IMAGE) { C_strlcpy(buffer, info.name, C_MAX_PATH); return buffer; } } } #elif defined(SEARCH_EXE_PATH) int len; C_char *path, buf[C_MAX_PATH]; /* no name given (execve) */ if(fname == NULL) goto error; /* absolute pathname */ if(fname[0] == '/') { if(C_realpath(fname, buffer) == NULL) goto error; else return buffer; } /* current directory */ if(C_strchr(fname, '/') != NULL) { if(C_getcwd(buffer, C_MAX_PATH) == NULL) goto error; n = C_snprintf(buf, C_MAX_PATH, "%s/%s", buffer, fname); if(n < 0 || n >= C_MAX_PATH) goto error; if(C_access(buf, X_OK) == 0) { if(C_realpath(buf, buffer) == NULL) goto error; else return buffer; } } /* walk PATH */ if((path = C_getenv("PATH")) == NULL) goto error; do { /* check PATH entry length */ len = C_strcspn(path, ":"); if(len == 0 || len >= C_MAX_PATH) continue; /* "<path>/<fname>" to buf */ C_strncpy(buf, path, len); n = C_snprintf(buf + len, C_MAX_PATH - len, "/%s", fname); if(n < 0 || n + len >= C_MAX_PATH) continue; if(C_access(buf, X_OK) != 0) continue; /* fname found, resolve links */ if(C_realpath(buf, buffer) != NULL) return buffer; /* seek next entry, skip colon */ } while (path += len, *path++); #else # error "Please either define SEARCH_EXE_PATH in Makefile.<platform> or implement C_resolve_executable_pathname for your platform!" #endif error: C_free(buffer); return NULL; } C_regparm C_word C_fcall C_i_getprop(C_word sym, C_word prop, C_word def) { C_word pl = C_symbol_plist(sym); while(pl != C_SCHEME_END_OF_LIST) { if(C_block_item(pl, 0) == prop) return C_u_i_car(C_u_i_cdr(pl)); else pl = C_u_i_cdr(C_u_i_cdr(pl)); } return def; } C_regparm C_word C_fcall C_putprop(C_word **ptr, C_word sym, C_word prop, C_word val) { C_word pl = C_symbol_plist(sym); /* Newly added plist? Ensure the symbol stays! */ if (pl == C_SCHEME_END_OF_LIST) C_i_persist_symbol(sym); while(pl != C_SCHEME_END_OF_LIST) { if(C_block_item(pl, 0) == prop) { C_mutate(&C_u_i_car(C_u_i_cdr(pl)), val); return val; } else pl = C_u_i_cdr(C_u_i_cdr(pl)); } pl = C_a_pair(ptr, val, C_symbol_plist(sym)); pl = C_a_pair(ptr, prop, pl); C_mutate_slot(&C_symbol_plist(sym), pl); return val; } C_regparm C_word C_fcall C_i_get_keyword(C_word kw, C_word args, C_word def) { while(!C_immediatep(args)) { if(C_block_header(args) == C_PAIR_TAG) { if(kw == C_u_i_car(args)) { args = C_u_i_cdr(args); if(C_immediatep(args) || C_block_header(args) != C_PAIR_TAG) return def; else return C_u_i_car(args); } else { args = C_u_i_cdr(args); if(C_immediatep(args) || C_block_header(args) != C_PAIR_TAG) return def; else args = C_u_i_cdr(args); } } } return def; } C_word C_i_dump_statistical_profile() { PROFILE_BUCKET *b, *b2, **bp; FILE *fp; C_char *k1, *k2 = NULL; int n; double ms; assert(profiling); assert(profile_table != NULL); set_profile_timer(0); profiling = 0; /* In case a SIGPROF is delivered late */ bp = profile_table; C_snprintf(buffer, STRING_BUFFER_SIZE, C_text("PROFILE.%d"), C_getpid()); if(debug_mode) C_dbg(C_text("debug"), C_text("dumping statistical profile to `%s'...\n"), buffer); fp = C_fopen(buffer, "w"); if (fp == NULL) panic(C_text("could not write profile!")); C_fputs(C_text("statistical\n"), fp); for(n = 0; n < PROFILE_TABLE_SIZE; ++n) { for(b = bp[ n ]; b != NULL; b = b2) { b2 = b->next; k1 = b->key; C_fputs(C_text("(|"), fp); /* Dump raw C string as if it were a symbol */ while((k2 = C_strpbrk(k1, C_text("\\|"))) != NULL) { C_fwrite(k1, 1, k2-k1, fp); C_fputc('\\', fp); C_fputc(*k2, fp); k1 = k2+1; } C_fputs(k1, fp); ms = (double)b->sample_count * (double)profile_frequency / 1000.0; C_fprintf(fp, C_text("| " UWORD_COUNT_FORMAT_STRING " %lf)\n"), b->call_count, ms); C_free(b); } } C_fclose(fp); C_free(profile_table); profile_table = NULL; return C_SCHEME_UNDEFINED; } void C_ccall C_dump_heap_state(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ]; /* make sure heap is compacted */ C_save(k); C_fromspace_top = C_fromspace_limit; /* force major GC */ C_reclaim((void *)dump_heap_state_2, 1); } static C_ulong hdump_hash(C_word key) { return (C_ulong)key % HDUMP_TABLE_SIZE; } static void hdump_count(C_word key, int n, int t) { HDUMP_BUCKET **bp = hdump_table + hdump_hash(key); HDUMP_BUCKET *b = *bp; while(b != NULL) { if(b->key == key) { b->count += n; b->total += t; return; } else b = b->next; } b = (HDUMP_BUCKET *)C_malloc(sizeof(HDUMP_BUCKET)); if(b == 0) panic(C_text("out of memory - can not allocate heap-dump table-bucket")); b->next = *bp; b->key = key; *bp = b; b->count = n; b->total = t; } static void C_ccall dump_heap_state_2(C_word c, C_word *av) { C_word k = av[ 0 ]; HDUMP_BUCKET *b, *b2, **bp; int n, bytes; C_byte *scan; C_SCHEME_BLOCK *sbp; C_header h; C_word x, key, *p; int imm = 0, blk = 0; hdump_table = (HDUMP_BUCKET **)C_malloc(HDUMP_TABLE_SIZE * sizeof(HDUMP_BUCKET *)); if(hdump_table == NULL) panic(C_text("out of memory - can not allocate heap-dump table")); C_memset(hdump_table, 0, sizeof(HDUMP_BUCKET *) * HDUMP_TABLE_SIZE); scan = fromspace_start; while(scan < C_fromspace_top) { ++blk; sbp = (C_SCHEME_BLOCK *)scan; if(*((C_word *)sbp) == ALIGNMENT_HOLE_MARKER) sbp = (C_SCHEME_BLOCK *)((C_word *)sbp + 1); n = C_header_size(sbp); h = sbp->header; bytes = (h & C_BYTEBLOCK_BIT) ? n : n * sizeof(C_word); key = (C_word)(h & C_HEADER_BITS_MASK); p = sbp->data; if(key == C_STRUCTURE_TYPE) key = *p; hdump_count(key, 1, bytes); if(n > 0 && (h & C_BYTEBLOCK_BIT) == 0) { if((h & C_SPECIALBLOCK_BIT) != 0) { --n; ++p; } while(n--) { x = *(p++); if(C_immediatep(x)) { ++imm; if((x & C_FIXNUM_BIT) != 0) key = C_fix(1); else { switch(x & C_IMMEDIATE_TYPE_BITS) { case C_BOOLEAN_BITS: key = C_SCHEME_TRUE; break; case C_CHARACTER_BITS: key = C_make_character('A'); break; default: key = x; } } hdump_count(key, 1, 0); } } } scan = (C_byte *)sbp + C_align(bytes) + sizeof(C_word); } bp = hdump_table; /* HACK */ #define C_WEAK_PAIR_TYPE (C_PAIR_TYPE | C_SPECIALBLOCK_BIT) for(n = 0; n < HDUMP_TABLE_SIZE; ++n) { for(b = bp[ n ]; b != NULL; b = b2) { b2 = b->next; switch(b->key) { case C_fix(1): C_fprintf(C_stderr, C_text("fixnum ")); break; case C_SCHEME_TRUE: C_fprintf(C_stderr, C_text("boolean ")); break; case C_SCHEME_END_OF_LIST: C_fprintf(C_stderr, C_text("null ")); break; case C_SCHEME_UNDEFINED : C_fprintf(C_stderr, C_text("void ")); break; case C_make_character('A'): C_fprintf(C_stderr, C_text("character ")); break; case C_SCHEME_END_OF_FILE: C_fprintf(C_stderr, C_text("eof ")); break; case C_SCHEME_UNBOUND: C_fprintf(C_stderr, C_text("unbound ")); break; case C_SYMBOL_TYPE: C_fprintf(C_stderr, C_text("symbol ")); break; case C_STRING_TYPE: C_fprintf(C_stderr, C_text("string ")); break; case C_PAIR_TYPE: C_fprintf(C_stderr, C_text("pair ")); break; case C_CLOSURE_TYPE: C_fprintf(C_stderr, C_text("closure ")); break; case C_FLONUM_TYPE: C_fprintf(C_stderr, C_text("flonum ")); break; case C_PORT_TYPE: C_fprintf(C_stderr, C_text("port ")); break; case C_POINTER_TYPE: C_fprintf(C_stderr, C_text("pointer ")); break; case C_LOCATIVE_TYPE: C_fprintf(C_stderr, C_text("locative ")); break; case C_TAGGED_POINTER_TYPE: C_fprintf(C_stderr, C_text("tagged pointer ")); break; case C_LAMBDA_INFO_TYPE: C_fprintf(C_stderr, C_text("lambda info ")); break; case C_WEAK_PAIR_TYPE: C_fprintf(C_stderr, C_text("weak pair ")); break; case C_VECTOR_TYPE: C_fprintf(C_stderr, C_text("vector ")); break; case C_BYTEVECTOR_TYPE: C_fprintf(C_stderr, C_text("bytevector ")); break; case C_BIGNUM_TYPE: C_fprintf(C_stderr, C_text("bignum ")); break; case C_CPLXNUM_TYPE: C_fprintf(C_stderr, C_text("cplxnum ")); break; case C_RATNUM_TYPE: C_fprintf(C_stderr, C_text("ratnum ")); break; /* XXX this is sort of funny: */ case C_BYTEBLOCK_BIT: C_fprintf(C_stderr, C_text("blob ")); break; default: x = b->key; if(!C_immediatep(x) && C_header_bits(x) == C_SYMBOL_TYPE) { x = C_block_item(x, 1); C_fprintf(C_stderr, C_text("`%.*s'"), (int)C_header_size(x), C_c_string(x)); } else C_fprintf(C_stderr, C_text("unknown key " UWORD_FORMAT_STRING), (C_uword)b->key); } C_fprintf(C_stderr, C_text("\t%d"), b->count); if(b->total > 0) C_fprintf(C_stderr, C_text("\t%d bytes"), b->total); C_fputc('\n', C_stderr); C_free(b); } } C_fprintf(C_stderr, C_text("\ntotal number of blocks: %d, immediates: %d\n"), blk, imm); C_free(hdump_table); C_kontinue(k, C_SCHEME_UNDEFINED); } static void C_ccall filter_heap_objects_2(C_word c, C_word *av) { void *func = C_pointer_address(av[ 0 ]); C_word userarg = av[ 1 ], vector = av[ 2 ], k = av[ 3 ]; int n, bytes; C_byte *scan; C_SCHEME_BLOCK *sbp; C_header h; C_word *p; int vecsize = C_header_size(vector); typedef int (*filterfunc)(C_word x, C_word userarg); filterfunc ff = (filterfunc)func; int vcount = 0; scan = fromspace_start; while(scan < C_fromspace_top) { sbp = (C_SCHEME_BLOCK *)scan; if(*((C_word *)sbp) == ALIGNMENT_HOLE_MARKER) sbp = (C_SCHEME_BLOCK *)((C_word *)sbp + 1); n = C_header_size(sbp); h = sbp->header; bytes = (h & C_BYTEBLOCK_BIT) ? n : n * sizeof(C_word); p = sbp->data; if(ff((C_word)sbp, userarg)) { if(vcount < vecsize) { C_set_block_item(vector, vcount, (C_word)sbp); ++vcount; } else { C_kontinue(k, C_fix(-1)); } } scan = (C_byte *)sbp + C_align(bytes) + sizeof(C_word); } C_kontinue(k, C_fix(vcount)); } void C_ccall C_filter_heap_objects(C_word c, C_word *av) { C_word /* closure = av[ 0 ] */ k = av[ 1 ], func = av[ 2 ], vector = av[ 3 ], userarg = av[ 4 ]; /* make sure heap is compacted */ C_save(k); C_save(vector); C_save(userarg); C_save(func); C_fromspace_top = C_fromspace_limit; /* force major GC */ C_reclaim((void *)filter_heap_objects_2, 4); } C_regparm C_word C_fcall C_i_process_sleep(C_word n) { #if defined(_WIN32) && !defined(__CYGWIN__) Sleep(C_unfix(n) * 1000); return C_fix(0); #else return C_fix(sleep(C_unfix(n))); #endif } C_regparm C_word C_fcall C_i_file_exists_p(C_word name, C_word file, C_word dir) { struct stat buf; int res; res = C_stat(C_c_string(name), &buf); if(res != 0) { switch(errno) { case ENOENT: return C_SCHEME_FALSE; case EOVERFLOW: return C_truep(dir) ? C_SCHEME_FALSE : C_SCHEME_TRUE; case ENOTDIR: return C_SCHEME_FALSE; default: return C_fix(res); } } switch(buf.st_mode & S_IFMT) { case S_IFDIR: return C_truep(file) ? C_SCHEME_FALSE : C_SCHEME_TRUE; default: return C_truep(dir) ? C_SCHEME_FALSE : C_SCHEME_TRUE; } } C_regparm C_word C_fcall C_i_pending_interrupt(C_word dummy) { if(pending_interrupts_count > 0) { handling_interrupts = 1; /* Lock out further forced GCs until we're done */ return C_fix(pending_interrupts[ --pending_interrupts_count ]); } else { handling_interrupts = 0; /* OK, can go on */ return C_SCHEME_FALSE; } } /* random numbers, mostly lifted from https://github.com/jedisct1/libsodium/blob/master/src/libsodium/randombytes/sysrandom/randombytes_sysrandom.c */ #ifdef __linux__ # include <sys/syscall.h> #endif #if !defined(_WIN32) static C_word random_urandom(C_word buf, int count) { static int fd = -1; int off = 0, r; if(fd == -1) { fd = open("/dev/urandom", O_RDONLY); if(fd == -1) return C_SCHEME_FALSE; } while(count > 0) { r = read(fd, C_data_pointer(buf) + off, count); if(r == -1) { if(errno != EINTR && errno != EAGAIN) return C_SCHEME_FALSE; else r = 0; } count -= r; off += r; } return C_SCHEME_TRUE; } #endif C_word C_random_bytes(C_word buf, C_word size) { int count = C_unfix(size); int r = 0; int off = 0; #if defined(__OpenBSD__) || defined(__FreeBSD__) arc4random_buf(C_data_pointer(buf), count); #elif defined(SYS_getrandom) && defined(__NR_getrandom) static int use_urandom = 0; if(use_urandom) return random_urandom(buf, count); while(count > 0) { /* GRND_NONBLOCK = 0x0001 */ r = syscall(SYS_getrandom, C_data_pointer(buf) + off, count, 1); if(r == -1) { if(errno == ENOSYS) { use_urandom = 1; return random_urandom(buf, count); } else if(errno != EINTR) return C_SCHEME_FALSE; else r = 0; } count -= r; off += r; } #elif defined(_WIN32) && !defined(__CYGWIN__) typedef BOOLEAN (*func)(PVOID, ULONG); static func RtlGenRandom = NULL; if(RtlGenRandom == NULL) { HMODULE mod = LoadLibrary("advapi32.dll"); if(mod == NULL) return C_SCHEME_FALSE; if((RtlGenRandom = (func)GetProcAddress(mod, "SystemFunction036")) == NULL) return C_SCHEME_FALSE; } if(!RtlGenRandom((PVOID)C_data_pointer(buf), (LONG)count)) return C_SCHEME_FALSE; #else return random_urandom(buf, count); #endif return C_SCHEME_TRUE; } /* WELL512 pseudo random number generator, see also: https://en.wikipedia.org/wiki/Well_equidistributed_long-period_linear http://lomont.org/Math/Papers/2008/Lomont_PRNG_2008.pdf */ static C_uword random_word(void) { C_uword a, b, c, d, r; a = random_state[random_state_index]; c = random_state[(random_state_index+13)&15]; b = a^c^(a<<16)^(c<<15); c = random_state[(random_state_index+9)&15]; c ^= (c>>11); a = random_state[random_state_index] = b^c; d = a^((a<<5)&0xDA442D24UL); random_state_index = (random_state_index + 15)&15; a = random_state[random_state_index]; random_state[random_state_index] = a^b^d^(a<<2)^(b<<18)^(c<<28); r = random_state[random_state_index]; return r; } static C_uword random_uniform(C_uword bound) { C_uword r, min; if (bound < 2) return 0; min = (1U + ~bound) % bound; /* = 2**<wordsize> mod bound */ do r = random_word(); while (r < min); /* r is now clamped to a set whose size mod upper_bound == 0 * the worst case (2**<wordsize-1>+1) requires ~ 2 attempts */ return r % bound; } C_regparm C_word C_random_fixnum(C_word n) { C_word nf; if (!(n & C_FIXNUM_BIT)) barf(C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR, "pseudo-random-integer", n); nf = C_unfix(n); if(nf < 0) barf(C_OUT_OF_RANGE_ERROR, "pseudo-random-integer", n, C_fix(0)); return C_fix(random_uniform(nf)); } C_regparm C_word C_fcall C_s_a_u_i_random_int(C_word **ptr, C_word n, C_word rn) { C_uword *start, *end; if(C_bignum_negativep(rn)) barf(C_OUT_OF_RANGE_ERROR, "pseudo-random-integer", rn, C_fix(0)); int len = integer_length_abs(rn); C_word size = C_fix(C_BIGNUM_BITS_TO_DIGITS(len)); C_word result = C_allocate_scratch_bignum(ptr, size, C_SCHEME_FALSE, C_SCHEME_FALSE); C_uword *p; C_uword highest_word = C_bignum_digits(rn)[C_bignum_size(rn)-1]; start = C_bignum_digits(result); end = start + C_bignum_size(result); for(p = start; p < (end - 1); ++p) { *p = random_word(); len -= sizeof(C_uword); } *p = random_uniform(highest_word); return C_bignum_simplify(result); } /* * C_a_i_random_real: Generate a stream of bits uniformly at random and * interpret it as the fractional part of the binary expansion of a * number in [0, 1], 0.00001010011111010100...; then round it. * More information on https://mumble.net/~campbell/2014/04/28/uniform-random-float */ static inline C_u64 random64() { #ifdef C_SIXTY_FOUR return random_word(); #else C_u64 v = 0; v |= ((C_u64) random_word()) << 32; v |= (C_u64) random_word(); return v; #endif } #ifdef __GNUC__ # define clz64 __builtin_clzll #else /* https://en.wikipedia.org/wiki/Find_first_set#CLZ */ static const C_uchar clz_table_4bit[16] = { 4, 3, 2, 2, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0 }; int clz32(C_u32 x) { int n; if ((x & 0xFFFF0000) == 0) {n = 16; x <<= 16;} else {n = 0;} if ((x & 0xFF000000) == 0) {n += 8; x <<= 8;} if ((x & 0xF0000000) == 0) {n += 4; x <<= 4;} n += (int)clz_table_4bit[x >> (32-4)]; return n; } int clz64(C_u64 x) { int y = clz32(x >> 32); if(y == 32) return y + clz32(x); return y; } #endif C_regparm C_word C_fcall C_a_i_random_real(C_word **ptr, C_word n) { int exponent = -64; uint64_t significand; unsigned shift; while (C_unlikely((significand = random64()) == 0)) { exponent -= 64; if (C_unlikely(exponent < -1074)) return 0; } shift = clz64(significand); if (shift != 0) { exponent -= shift; significand <<= shift; significand |= (random64() >> (64 - shift)); } significand |= 1; return C_flonum(ptr, ldexp((double)significand, exponent)); } C_word C_set_random_seed(C_word buf, C_word n) { int i, nsu = C_unfix(n) / sizeof(C_uword); int off = 0; for(i = 0; i < (C_RANDOM_STATE_SIZE / sizeof(C_uword)); ++i) { if(off >= nsu) off = 0; random_state[ i ] = *((C_uword *)C_data_pointer(buf) + off); ++off; } random_state_index = 0; return C_SCHEME_FALSE; } ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/Makefile.macosx�����������������������������������������������������������������������0000644�0001750�0001750�00000011041�13502227553�015661� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.macosx - configuration for Apple Macintosh OS X -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration XCODE_DEVELOPER ?= /Applications/Xcode.app/Contents/Developer XCODE_TOOL_PATH ?= $(XCODE_DEVELOPER)/Toolchains/XcodeDefault.xctoolchain/usr/bin C_COMPILER ?= $(XCODE_DEVELOPER)/usr/bin/gcc ARCH ?= $(shell sh $(SRCDIR)/config-arch.sh) # commands POSTINSTALL_PROGRAM = $(XCODE_TOOL_PATH)/install_name_tool # options C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -fno-common -DHAVE_CHICKEN_CONFIG_H ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 -fomit-frame-pointer else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer endif endif LIBRARIAN ?= $(XCODE_TOOL_PATH)/ar LINKER_LINK_SHARED_LIBRARY_OPTIONS = -dynamiclib -compatibility_version 1 -current_version 1.0 -install_name $@ POSTINSTALL_PROGRAM_FLAGS = -change lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(SO) $(LIBDIR)/lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(SO) LIBRARIAN_OPTIONS = scru LINKER_LINK_SHARED_DLOADABLE_OPTIONS = -bundle -L. ASSEMBLER_OPTIONS = # file extensions SO = .dylib # special files CHICKEN_CONFIG_H = chicken-config.h # architectures ifeq ($(ARCH),x86-64) C_COMPILER_OPTIONS += -m64 LINKER_OPTIONS += -m64 # Avoid bus error in install_name_tool LINKER_LINK_SHARED_DLOADABLE_OPTIONS += -Wl,-headerpad -Wl,128 else ifeq ($(ARCH),universal) C_COMPILER_OPTIONS += -arch ppc -arch i386 -isysroot /Developer/SDKs/MacOSX10.4u.sdk LINKER_OPTIONS += -arch ppc -arch i386 -isysroot /Developer/SDKs/MacOSX10.4u.sdk endif endif # select default and internal settings include $(SRCDIR)/defaults.make chicken-config.h: chicken-defaults.h echo "/* GENERATED */" >$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_DLFCN_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define HAVE_SIGACTION 1" >>$@ echo "#define HAVE_SIGSETJMP 1" >>$@ echo "#define HAVE_SIGPROCMASK 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRLCAT 1" >>$@ echo "#define HAVE_STRLCPY 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_STRTOQ 1" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_SETENV 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_ALLOCA 1" >>$@ echo "#define HAVE_ALLOCA_H 1" >>$@ echo "#define HAVE_CRT_EXTERNS_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_SYSEXITS_H 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/feathers.in���������������������������������������������������������������������������0000644�0001750�0001750�00000003423�13502227553�015066� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/bin/sh # # loader for feathers.tcl, the CHICKEN debugger # # Copyright (c) 2015-2019, The CHICKEN Team # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. wish=`which wish8.5` if test \! -x "$wish"; then wish=`which wish` fi if test \! -x "$wish"; then echo 'no "wish" executable found - please put "wish8.5" or "wish" in your PATH' \ 1>&2 exit 1 fi ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/profiler.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000011572�13502227553�015267� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; profiler.scm - Support code for profiling applications ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit profiler) (hide ##sys#profile-name ##sys#profile-vector-list cpu-ms empty-file?) (unsafe) (disable-interrupts)) (import chicken.base chicken.fixnum scheme) (include "common-declarations.scm") (define-foreign-variable profile-id int "C_getpid()") (define-constant profile-info-entry-size 5) (define empty-file? (foreign-lambda* bool ((scheme-object p)) "C_return(ftell(C_port_file(p)) == 0);")) ;;; Globals: (define ##sys#profile-vector-list '()) (define ##sys#profile-name #f) (define ##sys#profile-append-mode #f) ;;; Initialize profile counter vector: (define ##sys#register-profile-info (lambda (size filename) (when filename (set! ##sys#profile-name (if (string? filename) filename (string-append "PROFILE." (number->string profile-id)))) (let ((oldeh (exit-handler)) (oldieh (implicit-exit-handler))) (exit-handler (lambda args (##sys#finish-profile) (apply oldeh args) ) ) (implicit-exit-handler (lambda () (##sys#finish-profile) (oldieh) ) ) ) ) ;; entry: [name, count, time0, total, pending] (let ((vec (make-vector (fx* size profile-info-entry-size) 0))) (set! ##sys#profile-vector-list (cons vec ##sys#profile-vector-list)) vec) ) ) (define (##sys#set-profile-info-vector! vec i x) (##sys#setslot vec (fx* i profile-info-entry-size) x) ) ;;; Entry and exit into/out of profiled lambda: ;; XXX TODO: Should be changed to unsigned-integer64 after bootstrapping (define cpu-ms (foreign-lambda unsigned-integer "C_cpu_milliseconds")) (define ##sys#profile-entry (let ((maxfix most-positive-fixnum)) (lambda (index vec) (let* ([i (fx* index profile-info-entry-size)] [ic (fx+ i 1)] [count (##sys#slot vec ic)] [it0 (fx+ i 2)] [ip (fx+ i 4)] [ipc (##sys#slot vec ip)] ) (##sys#setislot vec ic (cond ((not count) #f) ((eq? maxfix count) #f) (else (fx+ count 1)))) (when (eq? 0 ipc) (##sys#setslot vec it0 (cpu-ms))) (##sys#setislot vec ip (fx+ ipc 1)) ) ) ) ) (define (##sys#profile-exit index vec) (let* ([i (fx* index profile-info-entry-size)] [it0 (fx+ i 2)] [it (fx+ i 3)] [ip (fx+ i 4)] [ipc (fx- (##sys#slot vec ip) 1)] ) (##sys#setislot vec ip ipc) (when (eq? 0 ipc) (let ((t (##sys#slot vec it))) (##sys#setslot vec it (+ (if (eq? t 0) 0 t) (- (cpu-ms) (##sys#slot vec it0)))))))) ;;; Generate profile: (define ##sys#finish-profile (let ([with-output-to-file with-output-to-file] [write-char write-char] [write write] ) (lambda () (when (##sys#debug-mode?) (##sys#print "[debug] writing profile...\n" #f ##sys#standard-error) ) (apply with-output-to-file ##sys#profile-name (lambda () (when (empty-file? (current-output-port)) ; header needed? (write 'instrumented) (write-char #\newline)) (for-each (lambda (vec) (let ([len (##sys#size vec)]) (do ([i 0 (fx+ i profile-info-entry-size)]) ((fx>= i len)) (write-char #\() (write (##sys#slot vec i)) (write-char #\space) (write (##sys#slot vec (fx+ i 1))) (write-char #\space) (write (##sys#slot vec (fx+ i 3))) (write-char #\)) (write-char #\newline) ) ) ) ##sys#profile-vector-list) ) (if ##sys#profile-append-mode '(#:append) '() ) ) ) ) ) ��������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.read-syntax.import.c����������������������������������������������������������0000644�0001750�0001750�00000014671�13502227774�020270� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.read-syntax.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.read-syntax.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.read-syntax.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.read-syntax.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(141))){ C_save(t1); C_rereclaim2(141*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],19, C_text("chicken.read-syntax")); lf[2]=C_h_intern(&lf[2],11, C_text("read-syntax")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001copy-read-table\376\001\000\000#\001chicken.read-syntax#copy-read-table\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\022\001current-read-table\376\001\000\000&\001chicken.read-syntax#current-read-table\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\022\001define-reader-ctor\376\001\000\000&\001chicken.read-syntax#define-reader-ctor\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\020\001set-read-syntax!\376\001\000\000$\001chicken.read-syntax#set-read-syntax!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001se" "t-sharp-read-syntax!\376\001\000\000\052\001chicken.read-syntax#set-sharp-read-syntax!\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\036\001set-parameterized-read-syntax!\376\001\000\0002\001chicken.read-syntax#set-parameterized-re" "ad-syntax!\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eread_2dsyntax_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eread_2dsyntax_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eread_2dsyntax_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eread_2dsyntax_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eread_2dsyntax_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ �����������������������������������������������������������������������chicken-5.1.0/pathname.scm��������������������������������������������������������������������������0000644�0001750�0001750�00000025314�13502227553�015241� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; pathname.scm - Pathname operations ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without ; modification, are permitted provided that the following conditions ; are met: ; ; Redistributions of source code must retain the above copyright ; notice, this list of conditions and the following disclaimer. ; ; Redistributions in binary form must reproduce the above copyright ; notice, this list of conditions and the following disclaimer in ; the documentation and/or other materials provided with the ; distribution. ; ; Neither the name of the author nor the names of its contributors ; may be used to endorse or promote products derived from this ; software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT ; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS ; FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE ; COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, ; INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES ; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) ; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, ; STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED ; OF THE POSSIBILITY OF SUCH DAMAGE. (declare (unit pathname) (uses data-structures irregex) (fixnum) (disable-interrupts)) (module chicken.pathname (absolute-pathname? decompose-directory decompose-pathname directory-null? make-absolute-pathname make-pathname normalize-pathname pathname-directory pathname-extension pathname-file pathname-replace-directory pathname-replace-extension pathname-replace-file pathname-strip-directory pathname-strip-extension) (import scheme chicken.base chicken.fixnum chicken.irregex chicken.platform chicken.string) (include "common-declarations.scm") ;;; Pathname operations: ;; Platform specific absolute pathname operations: ;; absolute-pathname-root => #f or (<match> [<origin>] <root>) ;; ;; Not for general consumption (define absolute-pathname-root) (define root-origin) (define root-directory) (if ##sys#windows-platform (let ((rx (irregex "([A-Za-z]:)?([\\/\\\\]).*"))) (set! absolute-pathname-root (lambda (pn) (irregex-match rx pn))) (set! root-origin (lambda (rt) (and rt (irregex-match-substring rt 1)))) (set! root-directory (lambda (rt) (and rt (irregex-match-substring rt 2))))) (let ((rx (irregex "(/).*"))) (set! absolute-pathname-root (lambda (pn) (irregex-match rx pn))) (set! root-origin (lambda (rt) #f)) (set! root-directory (lambda (rt) (and rt (irregex-match-substring rt 1)))))) (define (absolute-pathname? pn) (##sys#check-string pn 'absolute-pathname?) (irregex-match-data? (absolute-pathname-root pn))) (define-inline (*char-pds? ch) (if ##sys#windows-platform (memq ch '(#\\ #\/)) (eq? #\/ ch))) (define (chop-pds str) (and str (let lp ((len (##sys#size str))) (cond ((and (fx>= len 1) (*char-pds? (##core#inline "C_subchar" str (fx- len 1)))) (lp (fx- len 1))) ((fx< len (##sys#size str)) (##sys#substring str 0 len)) (else str))))) (define make-pathname) (define make-absolute-pathname) (let ((pds (if ##sys#windows-platform "\\" "/"))) (define (conc-dirs dirs) (##sys#check-list dirs 'make-pathname) (let loop ((strs dirs)) (if (null? strs) "" (let ((s1 (car strs))) (if (zero? (string-length s1)) (loop (cdr strs)) (string-append (chop-pds (car strs)) pds (loop (cdr strs)))))))) (define (canonicalize-dirs dirs) (cond ((or (not dirs) (null? dirs)) "") ((string? dirs) (conc-dirs (list dirs))) (else (conc-dirs dirs)))) (define (_make-pathname loc dir file ext) (let ((ext (or ext "")) (file (or file ""))) (##sys#check-string dir loc) (##sys#check-string file loc) (##sys#check-string ext loc) (string-append dir (if (and (fx>= (##sys#size dir) 1) (fx>= (##sys#size file) 1) (*char-pds? (##core#inline "C_subchar" file 0))) (##sys#substring file 1 (##sys#size file)) file) (if (and (fx> (##sys#size ext) 0) (not (char=? (##core#inline "C_subchar" ext 0) #\.))) "." "") ext))) (set! make-pathname (lambda (dirs file #!optional ext) (_make-pathname 'make-pathname (canonicalize-dirs dirs) file ext))) (set! make-absolute-pathname (lambda (dirs file #!optional ext) (_make-pathname 'make-absolute-pathname (let ((dir (canonicalize-dirs dirs))) (if (absolute-pathname? dir) dir (##sys#string-append pds dir))) file ext)))) (define decompose-pathname (let* ((patt1 (if ##sys#windows-platform "^(.*[\\/\\\\])?([^\\/\\\\]+)(\\.([^\\/\\\\.]+))$" "^(.*/)?([^/]+)(\\.([^/.]+))$")) (patt2 (if ##sys#windows-platform "^(.*[\\/\\\\])?((\\.)?[^\\/\\\\]+)$" "^(.*/)?((\\.)?[^/]+)$")) (rx1 (irregex patt1)) (rx2 (irregex patt2)) (strip-pds (lambda (dir) (and dir (let ((chopped (chop-pds dir))) (if (fx> (##sys#size chopped) 0) chopped (##sys#substring dir 0 1))))))) (lambda (pn) (##sys#check-string pn 'decompose-pathname) (if (fx= 0 (##sys#size pn)) (values #f #f #f) (let ((ms (irregex-search rx1 pn))) (if ms (values (strip-pds (irregex-match-substring ms 1)) (irregex-match-substring ms 2) (irregex-match-substring ms 4)) (let ((ms (irregex-search rx2 pn))) (if ms (values (strip-pds (irregex-match-substring ms 1)) (irregex-match-substring ms 2) #f) (values (strip-pds pn) #f #f))))))))) (define pathname-directory (lambda (pn) (let-values (((dir file ext) (decompose-pathname pn))) dir))) (define pathname-file (lambda (pn) (let-values (((dir file ext) (decompose-pathname pn))) file))) (define pathname-extension (lambda (pn) (let-values (((dir file ext) (decompose-pathname pn))) ext))) (define pathname-strip-directory (lambda (pn) (let-values (((dir file ext) (decompose-pathname pn))) (make-pathname #f file ext)))) (define pathname-strip-extension (lambda (pn) (let-values (((dir file ext) (decompose-pathname pn))) (make-pathname dir file)))) (define pathname-replace-directory (lambda (pn dir) (let-values (((_ file ext) (decompose-pathname pn))) (make-pathname dir file ext)))) (define pathname-replace-file (lambda (pn file) (let-values (((dir _ ext) (decompose-pathname pn))) (make-pathname dir file ext)))) (define pathname-replace-extension (lambda (pn ext) (let-values (((dir file _) (decompose-pathname pn))) (make-pathname dir file ext)))) ;;; normalize pathname for a particular platform (define normalize-pathname (let ((bldplt (if (eq? (software-version) 'mingw32) 'windows 'unix))) (define (addpart part parts) (cond ((string=? "." part) parts) ((string=? ".." part) (if (or (null? parts) (string=? ".." (car parts))) (cons part parts) (cdr parts))) (else (cons part parts)))) (lambda (path #!optional (platform bldplt)) (let ((sep (if (eq? platform 'windows) #\\ #\/))) (define (pds? c) (if (eq? platform 'windows) (memq c '(#\/ #\\)) (eq? c #\/))) (##sys#check-string path 'normalize-pathname) (let ((len (##sys#size path)) (type #f) (drive #f)) (let loop ((i 0) (prev 0) (parts '())) (cond ((fx>= i len) (when (fx> i prev) (set! parts (addpart (##sys#substring path prev i) parts))) (if (null? parts) (let ((r (if (eq? type 'abs) (string sep) "."))) (if drive (##sys#string-append drive r) r)) (let ((out (open-output-string)) (parts (##sys#fast-reverse parts))) (display (car parts) out) (for-each (lambda (p) (##sys#write-char-0 sep out) (display p out)) (cdr parts)) (when (fx= i prev) (##sys#write-char-0 sep out)) (let ((r (get-output-string out))) (when (eq? type 'abs) (set! r (##sys#string-append (string sep) r))) (when drive (set! r (##sys#string-append drive r))) r)))) ((pds? (string-ref path i)) (when (not type) (set! type (if (fx= i prev) 'abs 'rel))) (if (fx= i prev) (loop (fx+ i 1) (fx+ i 1) parts) (loop (fx+ i 1) (fx+ i 1) (addpart (##sys#substring path prev i) parts)))) ((and (null? parts) (char=? (string-ref path i) #\:) (eq? platform 'windows)) (set! drive (##sys#substring path 0 (fx+ i 1))) (loop (fx+ i 1) (fx+ i 1) '())) (else (loop (fx+ i 1) prev parts))))))))) ;; directory pathname => list of strings ;; does arg check (define split-directory (lambda (loc dir keep?) (##sys#check-string dir loc) (string-split dir (if ##sys#windows-platform "/\\" "/") keep?))) ;; Directory string or list only contains path-separators ;; and/or current-directory (".") names. (define (directory-null? dir) (let loop ((ls (if (list? dir) dir (split-directory 'directory-null? dir #t)))) (or (null? ls) (and (member (car ls) '("" ".")) (loop (cdr ls)))))) ;; Directory string => {<origin> <root> <directory-list>} ;; where any maybe #f when missing (define (decompose-directory dir) (define (strip-origin-prefix org decomp) #;(assert (or (not org) decomp)) ;cannot have an "origin" but no "decomp" (if (not org) decomp (let ((1st (car decomp))) (let ((olen (##sys#size org))) (if (not (##core#inline "C_substring_compare" org 1st 0 0 olen)) ; then origin is not a prefix (really shouldn't happen) decomp ; else is a prefix (let ((rst (cdr decomp)) (elen (##sys#size 1st))) (if (fx= olen (##sys#size elen)) ; then origin is a list prefix rst ; else origin is a string prefix (cons (##sys#substring 1st olen elen) rst)))))))) (let* ((ls (split-directory 'decompose-directory dir #f)) (rt (absolute-pathname-root dir)) (org (root-origin rt))) (values org (root-directory rt) (strip-origin-prefix org (and (not (null? ls)) ls)))))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.internal.import.scm�����������������������������������������������������������0000644�0001750�0001750�00000002212�13502227742�020164� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.internal.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.internal 'internal (scheme#list) '((string->c-identifier . chicken.internal#string->c-identifier) (library-id . chicken.internal#library-id) (valid-library-specifier? . chicken.internal#valid-library-specifier?) (module-requirement . chicken.internal#module-requirement) (check-for-multiple-bindings . chicken.internal#check-for-multiple-bindings) (macro-subset . chicken.internal#macro-subset) (fixup-macro-environment . chicken.internal#fixup-macro-environment) (make-hash-table . chicken.internal#make-hash-table) (hash-table-ref . chicken.internal#hash-table-ref) (hash-table-set! . chicken.internal#hash-table-set!) (hash-table-update! . chicken.internal#hash-table-update!) (hash-table-for-each . chicken.internal#hash-table-for-each) (hash-table-size . chicken.internal#hash-table-size) (default-imports . chicken.internal#default-imports) (default-syntax-imports . chicken.internal#default-syntax-imports)) (scheme#list) (scheme#list)) ;; END OF FILE ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/csc.mdoc������������������������������������������������������������������������������0000644�0001750�0001750�00000025067�13502227553�014361� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.\" Copyright (c) 2007-2019, The CHICKEN Team .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. The name of the authors may not be used to endorse or promote products .\" derived from this software without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, .\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .\" .\" .Dd Apr 26, 2017 .Dt CSC 1 .Os .Sh NAME .Nm csc .Nd driver program for the CHICKEN Scheme compiler .Sh SYNOPSIS .Nm .Op Ar OPTION ... .Op Ar FILENAME ... .Sh DESCRIPTION .Nm is a program that invokes the CHICKEN compiler and the host systems C compiler to generate an executable from a Scheme source file or C files generated by CHICKEN. .Pp .Ar FILENAME is a Scheme source file name with optional extension or a C/C++/Objective-C source, object or library file name with extension. .Ar OPTION may be one of the following: .Pp General options: .Bl -tag -width Ds .It Fl h , Fl help Display usage text and exit. .It Fl v , Fl verbose Show compiler notes and tool-invocations. .It Fl vv Display information about translation progress. .It Fl vvv Display information about all compilation stages. .It Fl version Display Scheme compiler version and exit. .It Fl release Display release number and exit. .El .Pp File and pathname options: .Bl -tag -width Ds .It Fl o Ar FILENAME , Fl output-file Ar FILENAME Specifies target executable name. .It Fl I Ar PATHNAME , Fl include-path Ar PATHNAME Specifies alternative path for included files. .It Fl to-stdout Write compiler to stdout .Po implies -t Pc . .It Fl s , Fl shared , Fl dynamic Generate dynamically loadable shared object file. .El .Pp Language options: .Bl -tag -width Ds .It Fl D Ar SYMBOL , Fl feature Ar SYMBOL Register feature identifier. .It Fl no-feature Ar SYMBOL Disable builtin feature identifier. .It Fl c++ Compile via a C++ source file .Pq .cpp . .It Fl objc Compile via Objective-C source file .Pq \&.m . .El .Pp Syntax related options: .Bl -tag -width Ds .It Fl i , Fl case-insensitive Don't preserve case of read symbols. .It Fl K , Fl keyword-style Ar STYLE Enable alternative keyword-syntax .Po prefix, suffix or none Pc . .It Fl no-parentheses-synonyms Disables list delimiter synonyms. .It Fl no-symbol-escape Disables support for escaped symbols. .It Fl r5rs-syntax Disables the CHICKEN extensions to R5RS syntax. .It Fl compile-syntax Macros are made available at run-time. .It Fl j Ar MODULE , Fl emit-import-library Ar MODULE Write compile-time module information into separate file. .It Fl J , Fl emit-all-import-libraries Emit import-libraries for all defined modules. .It Fl N , Fl no-module-registration Do not generate module registration code. .It Fl no-compiler-syntax Disable expansion of compiler-macros. .It Fl m Ar NAME , Fl module Ar NAME Wrap compiled code in module of the given name. .El .Pp Translation options: .Bl -tag -width Ds .It Fl x , Fl explicit-use Do not use units .Sq library and .Sq eval by default. .It Fl P , Fl check-syntax Stop compilation after macro-expansion. .It Fl A , Fl analyze-only Stop compilation after first analysis pass. .El .Pp Debugging options: .Bl -tag -width Ds .It Fl w , Fl no-warnings Disable warnings. .It Fl d0 , Fl d1 , Fl d2 , Fl d3 , Fl debug-level Ar NUMBER Set level of available debugging information. .It Fl no-trace Disable rudimentary debugging information. .It Fl profile Executable emits profiling information. .It Fl accumulate-profile Executable emits profiling information in append mode. .It Fl profile-name Ar FILENAME Name of the generated profile information file. .It Fl types Ar FILENAME Load additional type database. .El .Pp Optimization options: .Bl -tag -width Ds .It Fl O , Fl O0 , Fl O1 , Fl O2 , Fl O3 , Fl O4 , Fl O5 , Fl optimize-level Ar NUMBER Enable certain sets of optimization options. .It Fl optimize-leaf-routines Enable leaf routine optimization. .It Fl no-usual-integrations Standard procedures may be redefined. .It Fl u , Fl unsafe Disable safety checks. .It Fl local Assume globals are only modified in current file. .It Fl b , Fl block Enable block-compilation. .It Fl disable-interrupts Disable interrupts in compiled code. .It Fl f , Fl fixnum-arithmetic Assume all numbers are fixnums. .It Fl disable-stack-overflow-checks Disables detection of stack-overflows. .It Fl inline Enable inlining. .It Fl inline-limit Ar LIMIT Set inlining threshold. .It Fl inline-global Enable cross-module inlining. .It Fl specialize Perform type-based specialization of primitive calls. .It Fl oi Ar FILENAME , Fl emit-inline-file Ar FILENAME Generate file with globally inlinable procedures .Po implies Fl inline Fl local Pc . .It Fl consult-inline-file Ar FILENAME Explicitly load inline file. .It Fl ot Ar FILENAME , Fl emit-types-file Ar FILENAME Write type-declaration information into file. .It Fl no-argc-checks Disable argument count checks. .It Fl no-bound-checks Disable bound variable checks. .It Fl no-procedure-checks Disable procedure call checks. .It Fl no-procedure-checks-for-usual-bindings Disable procedure call checks only for usual bindings. .It Fl no-procedure-checks-for-toplevel-bindings Disable procedure call checks for toplevel bindings. .It Fl strict-types Assume variable do not change their type. .It Fl clustering Combine groups of local procedures into dispatch loop. .It Fl lfa2 Perform additional lightweight flow-analysis pass. .El .Pp Configuration options: .Bl -tag -width Ds .It Fl unit Ar NAME Compile file as a library unit. .It Fl uses Ar NAME Declare library unit as used. .It Fl heap-size Ar NUMBER Specifies heap-size of compiled executable. .It Fl nursery Ar NUMBER Fl stack-size Ar NUMBER Specifies nursery size of compiled executable. .It Fl X Ar FILENAME , Fl extend Ar FILENAME Load file before compilation commences. .It Fl prelude Ar EXPRESSION Add expression to beginning of source file. .It Fl postlude Ar EXPRESSION Add expression to end of source file. .It Fl prologue Ar FILENAME Include file before main source file. .It Fl epilogue Ar FILENAME Include file after main source file. .It Fl e , Fl embedded Compile as embedded .Po don't generate .Sq Fn main .Pc . .It Fl gui Compile as GUI application. .It Fl link Ar NAME Link extension with compiled executable .Po implies Sq Fl uses .Pc . .It Fl R Ar NAME , Fl require-extension Ar NAME Require extension and import in compiled code. .It Fl dll , Fl library Compile multiple units into a dynamic library. .It Fl libdir Ar DIRECTORY Override location of runtime library directory. .El .Pp Options to other passes: .Bl -tag -width Ds .It Fl C Ar OPTION Pass option to C compiler. .It Fl L Ar OPTION Pass option to linker. .It Fl I Ns Ar <DIR> Pass .Dq -I Ns Ar <DIR> to C compiler .Po add include path Pc . .It Fl L Ns Ar <DIR> Pass .Dq -L Ns Ar <DIR> to linker .Po add library path Pc . .It Fl k Keep intermediate files. .It Fl c Stop after compilation to object files. .It Fl t Stop after translation to C. .It Fl cc Ar COMPILER Select a C compiler other than the default. .It Fl cxx Ar COMPILER Select a C++ compiler other than the default. .It Fl ld Ar COMPILER Select a linker other than the default. .It Fl static-libs Link with static CHICKEN libraries and extensions. .It Fl F Ns Ar <DIR> Pass .Dq -F Ns Ar <DIR> to C compiler .Po add framework header path on Mac OS X Pc . .It Fl framework Ar NAME Passed to linker on Mac OS X. .It Fl rpath Ar PATHNAME Add directory to runtime library search path. .It Fl Wl,... Pass linker options. .It Fl strip Strip resulting binary. .El .Pp Inquiry options: .Bl -tag -width Ds .It Fl home Show home-directory .Po where support files go Pc . .It Fl cflags Show required C-compiler flags and exit. .It Fl ldflags Show required linker flags and exit. .It Fl libs Show required libraries and exit. .It Fl cc-name Show name of default C compiler used. .It Fl cxx-name Show name of default C++ compiler used. .It Fl ld-name Show name of default linker used. .It Fl dry-run Just show commands executed, don't run them .Po implies Sq Fl v .Pc . .El .Pp Obscure options: .Bl -tag -width Ds .It Fl debug Ar MODES Display debugging output for the given modes. .It Fl compiler Ar PATHNAME Use a compiler other than the default .Sq chicken . .It Fl raw Do not generate implicit init- and exit code. .It Fl emit-external-prototypes-first Emit prototypes for callbacks before foreign declarations. .It Fl regenerate-import-libraries Always emit import libraries, even when their contents haven't changed. The default behaviour is to preserve existing import libraries. .It Fl ignore-repository Do not refer to repository for extensions. .It Fl keep-shadowed-macros Do not remove shadowed macros. .It Fl host Compile for host when configured for cross-compiling. .It Fl private-repository Load extensions from executable path. .It Fl deployed Link support file to be used from a deployed executable .Po sets .Sq rpath accordingly, if supported on this platform. .Pc .It Fl no-elevation Embed manifest on Windows to supress elevation warnings for programs named .Sq install or .Sq setup . .El .Pp Options can be collapsed if unambiguous, so .Dq -vkfO is the same as .Dq -v -k -fixnum-arithmetic -optimize . .Sh ENVIRONMENT The following environment variables change the behaviour of .Nm Ns : .Bl -tag -width CSC_OPTIONS .It Ev CSC_OPTIONS Can hold default options that should be passed to every invocation of .Nm . .El .Sh EXIT STATUS .Ex -std .Sh SEE ALSO .Xr chicken 1 .Pp More information can be found in the .Lk http://wiki.call-cc.org/manual/index "CHICKEN User's Manual". .Sh AUTHORS .An The CHICKEN Team .Sh BUGS Submit bug reports by e-mail to .Mt chicken-janitors@nongnu.org �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.compiler.core.import.scm������������������������������������������������������0000644�0001750�0001750�00000014777�13502227751�021134� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.compiler.core.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.compiler.core 'compiler (scheme#list) '((analyze-expression . chicken.compiler.core#analyze-expression) (canonicalize-expression . chicken.compiler.core#canonicalize-expression) (compute-database-statistics . chicken.compiler.core#compute-database-statistics) (initialize-compiler . chicken.compiler.core#initialize-compiler) (perform-closure-conversion . chicken.compiler.core#perform-closure-conversion) (perform-cps-conversion . chicken.compiler.core#perform-cps-conversion) (prepare-for-code-generation . chicken.compiler.core#prepare-for-code-generation) (build-toplevel-procedure . chicken.compiler.core#build-toplevel-procedure) (process-declaration . chicken.compiler.core#process-declaration) (file-requirements . chicken.compiler.core#file-requirements) (all-import-libraries . chicken.compiler.core#all-import-libraries) (preserve-unchanged-import-libraries . chicken.compiler.core#preserve-unchanged-import-libraries) (bootstrap-mode . chicken.compiler.core#bootstrap-mode) (compiler-syntax-enabled . chicken.compiler.core#compiler-syntax-enabled) (emit-closure-info . chicken.compiler.core#emit-closure-info) (emit-profile . chicken.compiler.core#emit-profile) (enable-inline-files . chicken.compiler.core#enable-inline-files) (explicit-use-flag . chicken.compiler.core#explicit-use-flag) (first-analysis . chicken.compiler.core#first-analysis) (no-bound-checks . chicken.compiler.core#no-bound-checks) (enable-module-registration . chicken.compiler.core#enable-module-registration) (optimize-leaf-routines . chicken.compiler.core#optimize-leaf-routines) (standalone-executable . chicken.compiler.core#standalone-executable) (undefine-shadowed-macros . chicken.compiler.core#undefine-shadowed-macros) (verbose-mode . chicken.compiler.core#verbose-mode) (local-definitions . chicken.compiler.core#local-definitions) (enable-specialization . chicken.compiler.core#enable-specialization) (block-compilation . chicken.compiler.core#block-compilation) (inline-locally . chicken.compiler.core#inline-locally) (inline-substitutions-enabled . chicken.compiler.core#inline-substitutions-enabled) (strict-variable-types . chicken.compiler.core#strict-variable-types) (static-extensions . chicken.compiler.core#static-extensions) (emit-link-file . chicken.compiler.core#emit-link-file) (disable-stack-overflow-checking . chicken.compiler.core#disable-stack-overflow-checking) (emit-trace-info . chicken.compiler.core#emit-trace-info) (external-protos-first . chicken.compiler.core#external-protos-first) (external-variables . chicken.compiler.core#external-variables) (insert-timer-checks . chicken.compiler.core#insert-timer-checks) (no-argc-checks . chicken.compiler.core#no-argc-checks) (no-global-procedure-checks . chicken.compiler.core#no-global-procedure-checks) (no-procedure-checks . chicken.compiler.core#no-procedure-checks) (emit-debug-info . chicken.compiler.core#emit-debug-info) (linked-static-extensions . chicken.compiler.core#linked-static-extensions) (profiled-procedures . chicken.compiler.core#profiled-procedures) (import-libraries . chicken.compiler.core#import-libraries) (inline-max-size . chicken.compiler.core#inline-max-size) (extended-bindings . chicken.compiler.core#extended-bindings) (standard-bindings . chicken.compiler.core#standard-bindings) (target-heap-size . chicken.compiler.core#target-heap-size) (target-stack-size . chicken.compiler.core#target-stack-size) (unit-name . chicken.compiler.core#unit-name) (used-units . chicken.compiler.core#used-units) (provided . chicken.compiler.core#provided) (default-extended-bindings . chicken.compiler.core#default-extended-bindings) (default-standard-bindings . chicken.compiler.core#default-standard-bindings) (internal-bindings . chicken.compiler.core#internal-bindings) (foreign-declarations . chicken.compiler.core#foreign-declarations) (foreign-lambda-stubs . chicken.compiler.core#foreign-lambda-stubs) (foreign-stub-argument-types . chicken.compiler.core#foreign-stub-argument-types) (foreign-stub-argument-names . chicken.compiler.core#foreign-stub-argument-names) (foreign-stub-body . chicken.compiler.core#foreign-stub-body) (foreign-stub-callback . chicken.compiler.core#foreign-stub-callback) (foreign-stub-cps . chicken.compiler.core#foreign-stub-cps) (foreign-stub-id . chicken.compiler.core#foreign-stub-id) (foreign-stub-name . chicken.compiler.core#foreign-stub-name) (foreign-stub-return-type . chicken.compiler.core#foreign-stub-return-type) (lambda-literal-id . chicken.compiler.core#lambda-literal-id) (lambda-literal-external . chicken.compiler.core#lambda-literal-external) (lambda-literal-argument-count . chicken.compiler.core#lambda-literal-argument-count) (lambda-literal-rest-argument . chicken.compiler.core#lambda-literal-rest-argument) (lambda-literal-rest-argument-mode . chicken.compiler.core#lambda-literal-rest-argument-mode) (lambda-literal-temporaries . chicken.compiler.core#lambda-literal-temporaries) (lambda-literal-float-temporaries . chicken.compiler.core#lambda-literal-float-temporaries) (lambda-literal-callee-signatures . chicken.compiler.core#lambda-literal-callee-signatures) (lambda-literal-allocated . chicken.compiler.core#lambda-literal-allocated) (lambda-literal-closure-size . chicken.compiler.core#lambda-literal-closure-size) (lambda-literal-looping . chicken.compiler.core#lambda-literal-looping) (lambda-literal-customizable . chicken.compiler.core#lambda-literal-customizable) (lambda-literal-body . chicken.compiler.core#lambda-literal-body) (lambda-literal-direct . chicken.compiler.core#lambda-literal-direct) (constant-table . chicken.compiler.core#constant-table) (immutable-constants . chicken.compiler.core#immutable-constants) (inline-table . chicken.compiler.core#inline-table) (line-number-database-2 . chicken.compiler.core#line-number-database-2) (line-number-database-size . chicken.compiler.core#line-number-database-size)) (scheme#list) (scheme#list)) ;; END OF FILE �chicken-5.1.0/chicken.pretty-print.import.scm�������������������������������������������������������0000644�0001750�0001750�00000000566�13502227734�021044� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.pretty-print.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.pretty-print 'extras (scheme#list) '((pp . chicken.pretty-print#pp) (pretty-print . chicken.pretty-print#pretty-print) (pretty-print-width . chicken.pretty-print#pretty-print-width)) (scheme#list) (scheme#list)) ;; END OF FILE ������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.eval.import.scm���������������������������������������������������������������0000644�0001750�0001750�00000000461�13502227750�017302� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.eval.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.eval 'eval (scheme#list) '((eval-handler . chicken.eval#eval-handler) (module-environment . chicken.eval#module-environment)) (scheme#list) (scheme#list)) ;; END OF FILE ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.platform.import.c�������������������������������������������������������������0000644�0001750�0001750�00000017260�13502227774�017652� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.platform.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.platform.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.platform.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.platform.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(341))){ C_save(t1); C_rereclaim2(341*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],16, C_text("chicken.platform")); lf[2]=C_h_intern(&lf[2],7, C_text("library")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001build-platform\376\001\000\000\037\001chicken.platform#build-platform\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\017\001chicken-version\376\001\000\000 \001chicken.platform#chicken-version\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001chicken-" "home\376\001\000\000\035\001chicken.platform#chicken-home\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001feature\077\376\001\000\000\031\001chicken.pla" "tform#feature\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001features\376\001\000\000\031\001chicken.platform#features\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\022\001machine-byte-order\376\001\000\000#\001chicken.platform#machine-byte-order\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001" "machine-type\376\001\000\000\035\001chicken.platform#machine-type\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001repository-path\376\001" "\000\000 \001chicken.platform#repository-path\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001installation-repository\376\001\000\000(" "\001chicken.platform#installation-repository\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001register-feature!\376\001\000\000\042\001" "chicken.platform#register-feature!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001unregister-feature!\376\001\000\000$\001chick" "en.platform#unregister-feature!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001software-type\376\001\000\000\036\001chicken.platfo" "rm#software-type\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001software-version\376\001\000\000!\001chicken.platform#software-" "version\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001return-to-host\376\001\000\000\037\001chicken.platform#return-to-host\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\027\001system-config-directory\376\001\000\000(\001chicken.platform#system-config-directory\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001system-cache-directory\376\001\000\000\047\001chicken.platform#system-cache-directo" "ry\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eplatform_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eplatform_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eplatform_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eplatform_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eplatform_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.scm���������������������������������������������������������������������������0000644�0001750�0001750�00000013017�13502227553�015045� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.scm - The CHICKEN Scheme compiler (loader/main-module) ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (uses chicken-syntax chicken-ffi-syntax srfi-4 extras data-structures lolevel ; unused, but loaded to make foldable bindings available support compiler optimizer lfa2 compiler-syntax scrutinizer batch-driver c-platform c-backend user-pass)) (module chicken.compiler.chicken () (import scheme chicken.base chicken.compiler.batch-driver chicken.compiler.c-platform chicken.compiler.support chicken.compiler.user-pass chicken.fixnum chicken.process-context chicken.string) (include "tweaks") (include "mini-srfi-1.scm") ;;; Prefix argument list with default options: (define compiler-arguments (let ((args (cdr (argv)))) (if (null? args) '() (append (take args 1) ; Leave source filename argument first. (string-split (or (get-environment-variable "CHICKEN_OPTIONS") "")) (drop args 1))))) ;;; Process command-line options: ; ; - remove runtime-options ("-:...") ; - filter out source-filename ; - convert options into symbols (without the initial hyphens) (define (process-command-line args) (let loop ((args args) (options '()) (filename #f)) (if (null? args) (values filename (reverse options)) (let* ((arg (car args)) (len (string-length arg)) (char0 (string-ref arg 0)) ) (if (and (char=? #\- char0) (> len 1)) (if (and (> len 1) (char=? #\: (string-ref arg 1))) (loop (cdr args) options filename) (loop (cdr args) (cons (string->symbol (substring arg 1 len)) options) filename) ) (if filename (loop (cdr args) (cons arg options) filename) (loop (cdr args) options arg) ) ) ) ) ) ) ;;; Run compiler with command-line options: (receive (filename options) ((or (user-options-pass) process-command-line) compiler-arguments) ;; TODO: Perhaps option parsing should be moved to batch-driver? (let loop ((os options)) (unless (null? os) (let ((o (car os)) (rest (cdr os)) ) (cond ((eq? 'optimize-level o) (let ((level (string->number (car rest)))) (case level ((0) (set! options (cons* 'no-compiler-syntax 'no-usual-integrations options)) ) ((1) (set! options (cons* 'optimize-leaf-routines options)) ) ((2) (set! options (cons* 'optimize-leaf-routines 'inline ;XXX 'clustering 'lfa2 options)) ) ((3) (set! options (cons* 'optimize-leaf-routines 'inline 'inline-global 'local ;XXX 'clustering 'lfa2 'specialize options) ) ) ((4) (set! options (cons* 'optimize-leaf-routines 'inline 'inline-global 'specialize ;XXX 'clustering 'lfa2 'local 'unsafe options) ) ) (else (when (>= level 5) (set! options (cons* 'disable-interrupts 'no-trace 'unsafe 'block 'optimize-leaf-routines 'no-lambda-info 'specialize 'optimize-leaf-routines 'no-lambda-info 'inline 'inline-global 'clustering 'lfa2 options) ) ) ) ) (loop (cdr rest)) ) ) ((eq? 'debug-level o) (case (string->number (car rest)) ((0) (set! options (cons* 'no-lambda-info 'no-trace options))) ((1) (set! options (cons 'no-trace options))) ((2)) ; default behaviour ((3) (set! options (cons 'debug-info options))) (else (quit-compiling "invalid debug level: ~a" (car rest)))) (loop (cdr rest))) ((memq o valid-compiler-options) (loop rest)) ((memq o valid-compiler-options-with-argument) (if (pair? rest) (loop (cdr rest)) (quit-compiling "missing argument to `-~s' option" o) ) ) (else (warning "invalid compiler option (ignored)" (if (string? o) o (conc "-" o)) ) (loop rest) ) ) ) ) ) (apply compile-source-file filename compiler-arguments options) (exit))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/library.c�����������������������������������������������������������������������������0000644�0001750�0001750�00012115712�13502227734�014556� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from library.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: library.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file library.c -no-module-registration -emit-import-library chicken.bitwise -emit-import-library chicken.blob -emit-import-library chicken.fixnum -emit-import-library chicken.flonum -emit-import-library chicken.gc -emit-import-library chicken.keyword -emit-import-library chicken.platform -emit-import-library chicken.plist -emit-import-library chicken.process-context unit: library uses: build-version */ #include "chicken.h" #include <errno.h> #include <float.h> #ifdef HAVE_SYSEXITS_H # include <sysexits.h> #endif #ifndef EX_SOFTWARE # define EX_SOFTWARE 70 #endif #define C_close_file(p) (C_fclose((C_FILEPTR)(C_port_file(p))), C_SCHEME_UNDEFINED) #define C_a_f64peek(ptr, c, b, i) C_flonum(ptr, ((double *)C_data_pointer(b))[ C_unfix(i) ]) #define C_fetch_c_strlen(b, i) C_fix(strlen((C_char *)C_block_item(b, C_unfix(i)))) #define C_asciiz_strlen(str) C_fix(strlen(C_c_string(str))) #define C_peek_c_string(b, i, to, len) (C_memcpy(C_data_pointer(to), (C_char *)C_block_item(b, C_unfix(i)), C_unfix(len)), C_SCHEME_UNDEFINED) #define C_free_mptr(p, i) (C_free((void *)C_block_item(p, C_unfix(i))), C_SCHEME_UNDEFINED) #define C_free_sptr(p, i) (C_free((void *)(((C_char **)C_block_item(p, 0))[ C_unfix(i) ])), C_SCHEME_UNDEFINED) #define C_a_get_current_seconds(ptr, c, dummy) C_int64_to_num(ptr, time(NULL)) #define C_peek_c_string_at(ptr, i) ((C_char *)(((C_char **)ptr)[ i ])) static C_word fast_read_line_from_file(C_word str, C_word port, C_word size) { int n = C_unfix(size); int i; int c; char *buf = C_c_string(str); C_FILEPTR fp = C_port_file(port); if ((c = C_getc(fp)) == EOF) { if (ferror(fp)) { clearerr(fp); return C_fix(-1); } else { /* feof (fp) */ return C_SCHEME_END_OF_FILE; } } C_ungetc(c, fp); for (i = 0; i < n; i++) { c = C_getc(fp); if(c == EOF && ferror(fp)) { clearerr(fp); return C_fix(-(i + 1)); } switch (c) { case '\r': if ((c = C_getc(fp)) != '\n') C_ungetc(c, fp); case EOF: clearerr(fp); case '\n': return C_fix(i); } buf[i] = c; } return C_SCHEME_FALSE; } static C_word fast_read_string_from_file(C_word dest, C_word port, C_word len, C_word pos) { size_t m; int n = C_unfix (len); char * buf = ((char *)C_data_pointer (dest) + C_unfix (pos)); C_FILEPTR fp = C_port_file (port); if(feof(fp)) return C_SCHEME_END_OF_FILE; m = fread (buf, sizeof (char), n, fp); if (m < n) { if (ferror(fp)) /* Report to Scheme, which may retry, so clear errors */ clearerr(fp); else if (feof(fp) && 0 == m) /* eof but m > 0? Return data first, below */ return C_SCHEME_END_OF_FILE; /* Calling again will get us here */ } return C_fix (m); } static C_word shallow_equal(C_word x, C_word y) { /* assumes x and y are non-immediate */ int i, len = C_header_size(x); if(C_header_size(y) != len) return C_SCHEME_FALSE; else return C_mk_bool(!C_memcmp((void *)x, (void *)y, len * sizeof(C_word))); } static C_word signal_debug_event(C_word mode, C_word msg, C_word args) { C_DEBUG_INFO cell; C_word av[ 3 ]; cell.enabled = 1; cell.event = C_DEBUG_SIGNAL; cell.loc = ""; cell.val = ""; av[ 0 ] = mode; av[ 1 ] = msg; av[ 2 ] = args; C_debugger(&cell, 3, av); return C_SCHEME_UNDEFINED; } #ifdef NO_DLOAD2 # define HAVE_DLOAD 0 #else # define HAVE_DLOAD 1 #endif #ifdef C_ENABLE_PTABLES # define HAVE_PTABLES 1 #else # define HAVE_PTABLES 0 #endif #ifdef C_GC_HOOKS # define HAVE_GCHOOKS 1 #else # define HAVE_GCHOOKS 0 #endif #if defined(C_CROSS_CHICKEN) && C_CROSS_CHICKEN # define IS_CROSS_CHICKEN 1 #else # define IS_CROSS_CHICKEN 0 #endif #define C_chdir(str) C_fix(chdir(C_c_string(str))) #define C_curdir(buf) (getcwd(C_c_string(buf), 1024) ? C_fix(strlen(C_c_string(buf))) : C_SCHEME_FALSE) #define C_getenventry(i) (environ[ i ]) #ifdef HAVE_CRT_EXTERNS_H # include <crt_externs.h> # define environ (*_NSGetEnviron()) #else extern char **environ; #endif #ifdef HAVE_SETENV # define C_unsetenv(s) (unsetenv((char *)C_data_pointer(s)), C_SCHEME_TRUE) # define C_setenv(x, y) C_fix(setenv((char *)C_data_pointer(x), (char *)C_data_pointer(y), 1)) #else # if defined(_WIN32) && !defined(__CYGWIN__) # define C_unsetenv(s) C_setenv(s, C_SCHEME_FALSE) # else # define C_unsetenv(s) C_fix(putenv((char *)C_data_pointer(s))) # endif static C_word C_fcall C_setenv(C_word x, C_word y) { char *sx = C_c_string(x), *sy = (y == C_SCHEME_FALSE ? "" : C_c_string(y)); int n1 = C_strlen(sx), n2 = C_strlen(sy); int buf_len = n1 + n2 + 2; char *buf = (char *)C_malloc(buf_len); if(buf == NULL) return(C_fix(0)); else { C_strlcpy(buf, sx, buf_len); C_strlcat(buf, "=", buf_len); C_strlcat(buf, sy, buf_len); return(C_fix(putenv(buf))); } } #endif static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_build_2dversion_toplevel) C_externimport void C_ccall C_build_2dversion_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[1395]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,110,111,116,32,120,41,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,98,111,111,108,101,97,110,63,32,120,41,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,101,113,63,32,120,32,121,41}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,101,113,118,63,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,101,113,117,97,108,63,32,120,32,121,41,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,112,97,105,114,63,32,120,41}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,111,110,115,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,99,97,114,32,120,41,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,99,100,114,32,120,41,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,115,101,116,45,99,97,114,33,32,120,32,121,41,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,115,101,116,45,99,100,114,33,32,120,32,121,41,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,97,100,114,32,120,41,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,100,100,114,32,120,41}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,100,100,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,100,100,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,97,97,114,32,120,41,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,100,97,114,32,120,41,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,100,100,114,32,120,41,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,97,97,114,32,120,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,97,100,114,32,120,41}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,100,97,114,32,120,41}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,97,97,114,32,120,41}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,97,100,114,32,120,41}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,100,97,114,32,120,41}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,100,100,114,32,120,41}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,97,97,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,97,100,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,100,97,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,100,100,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,97,97,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,97,100,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,100,97,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,97,97,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,97,100,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,100,97,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,100,100,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,97,97,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,97,100,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,100,97,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,110,117,108,108,63,32,120,41}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,108,105,115,116,32,46,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,108,101,110,103,116,104,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,108,105,115,116,45,116,97,105,108,32,108,115,116,32,105,41}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,108,105,115,116,45,114,101,102,32,108,115,116,32,105,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,108,115,116,32,114,101,115,116,41,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,114,101,118,101,114,115,101,32,108,115,116,48,41,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,109,101,109,113,32,120,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,109,101,109,118,32,120,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,109,101,109,98,101,114,32,120,32,108,115,116,41,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,97,115,115,113,32,120,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,97,115,115,118,32,120,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,97,115,115,111,99,32,120,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,108,105,115,116,63,32,120,41}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,115,116,114,105,110,103,63,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,108,101,110,103,116,104,32,115,41}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,114,101,102,32,115,32,105,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,115,101,116,33,32,115,32,105,32,99,41,0,0,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,115,116,114,105,110,103,61,63,32,120,32,121,41,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,61,63,32,120,32,121,41}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,101,120,97,99,116,45,62,105,110,101,120,97,99,116,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,97,98,115,32,120,41,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,6),67,95,112,108,117,115,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,7),67,95,109,105,110,117,115,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,7),67,95,116,105,109,101,115,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,113,117,111,116,105,101,110,116,32,97,32,98,41,0,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,114,101,109,97,105,110,100,101,114,32,97,32,98,41,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,109,111,100,117,108,111,32,97,32,98,41,0,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,101,118,101,110,63,32,110,41}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,111,100,100,63,32,110,41,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,9),67,95,110,101,113,117,97,108,112,0,0,0,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,10),67,95,103,114,101,97,116,101,114,112,0,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,7),67,95,108,101,115,115,112,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,20),67,95,103,114,101,97,116,101,114,95,111,114,95,101,113,117,97,108,95,112,0,0,0,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,17),67,95,108,101,115,115,95,111,114,95,101,113,117,97,108,95,112,0,0,0,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,110,117,109,98,101,114,63,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,114,101,97,108,63,32,120,41}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,114,97,116,105,111,110,97,108,63,32,110,41,0,0,0,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,105,110,116,101,103,101,114,63,32,120,41,0,0,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,101,120,97,99,116,63,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,105,110,101,120,97,99,116,63,32,120,41,0,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,122,101,114,111,63,32,110,41}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,112,111,115,105,116,105,118,101,63,32,110,41,0,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,110,101,103,97,116,105,118,101,63,32,110,41,0,0,0,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,18),67,95,110,117,109,98,101,114,95,116,111,95,115,116,114,105,110,103,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,115,121,109,98,111,108,63,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,118,101,99,116,111,114,63,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,108,101,110,103,116,104,32,118,41}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,114,101,102,32,118,32,105,41,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,115,101,116,33,32,118,32,105,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,104,97,114,63,32,120,41}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,104,97,114,45,62,105,110,116,101,103,101,114,32,99,41}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,105,110,116,101,103,101,114,45,62,99,104,97,114,32,110,41}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,99,104,97,114,61,63,32,99,49,32,99,50,41,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,99,104,97,114,62,63,32,99,49,32,99,50,41,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,99,104,97,114,60,63,32,99,49,32,99,50,41,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,99,104,97,114,62,61,63,32,99,49,32,99,50,41,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,99,104,97,114,60,61,63,32,99,49,32,99,50,41,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,99,104,97,114,45,117,112,99,97,115,101,32,99,41,0,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,104,97,114,45,100,111,119,110,99,97,115,101,32,99,41}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,117,112,112,101,114,45,99,97,115,101,63,32,99,41,0,0,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,108,111,119,101,114,45,99,97,115,101,63,32,99,41,0,0,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,104,97,114,45,110,117,109,101,114,105,99,63,32,99,41}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,119,104,105,116,101,115,112,97,99,101,63,32,99,41,0,0,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,97,108,112,104,97,98,101,116,105,99,63,32,99,41,0,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,112,114,111,99,101,100,117,114,101,63,32,120,41,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,7),67,95,97,112,112,108,121,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,8),67,95,118,97,108,117,101,115}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,18),67,95,99,97,108,108,95,119,105,116,104,95,118,97,108,117,101,115,0,0,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,105,110,112,117,116,45,112,111,114,116,63,32,120,41,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,111,117,116,112,117,116,45,112,111,114,116,63,32,120,41,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,101,111,102,45,111,98,106,101,99,116,63,32,120,41,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,101,118,97,108,32,120,32,46,32,101,110,118,41,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,105,110,116,101,114,97,99,116,105,111,110,45,101,110,118,105,114,111,110,109,101,110,116,41}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,36),40,115,99,104,101,109,101,35,115,99,104,101,109,101,45,114,101,112,111,114,116,45,101,110,118,105,114,111,110,109,101,110,116,32,110,41,0,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,110,117,108,108,45,101,110,118,105,114,111,110,109,101,110,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,108,111,97,100,32,102,105,108,101,110,97,109,101,32,46,32,101,118,97,108,117,97,116,111,114,41,0,0,0,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,105,120,110,117,109,63,32,120,41}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,111,110,117,109,63,32,120,41}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,98,105,103,110,117,109,63,32,120,41}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,114,97,116,110,117,109,63,32,120,41}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,112,108,120,110,117,109,63,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,120,97,99,116,45,105,110,116,101,103,101,114,63,32,120,41,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,24),67,95,113,117,111,116,105,101,110,116,95,97,110,100,95,114,101,109,97,105,110,100,101,114}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,7),40,97,57,49,53,57,41,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,15),40,97,57,49,54,53,32,100,105,118,32,114,101,109,41,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,113,117,111,116,105,101,110,116,38,109,111,100,117,108,111,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,105,110,105,116,101,63,32,120,41}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,105,110,102,105,110,105,116,101,63,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,98,97,115,101,35,110,97,110,63,32,120,41,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,8),67,95,115,105,103,110,117,109}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,100,100,49,32,110,41,0,0,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,117,98,49,32,110,41,0,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,114,114,111,114,32,46,32,97,114,103,115,41,0,0,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,23),40,99,104,105,99,107,101,110,46,98,97,115,101,35,118,111,105,100,32,46,32,95,41,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,111,109,105,115,101,63,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,109,97,107,101,45,112,114,111,109,105,115,101,32,112,114,111,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,7),40,97,57,50,56,55,41,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,98,97,115,101,35,109,97,107,101,45,112,114,111,109,105,115,101,32,111,98,106,41,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,32,122,41,0,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,111,108,100,108,32,102,32,122,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,111,108,100,114,32,102,32,122,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,111,110,45,101,120,105,116,32,116,104,117,110,107,41,0,0,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,120,105,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,109,101,114,103,101,110,99,121,45,101,120,105,116,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,105,100,101,110,116,105,116,121,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,101,100,115,41,0,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,10),40,102,95,57,52,49,55,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,110,106,111,105,110,32,46,32,112,114,101,100,115,41,0,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,101,100,115,41,0,0,0,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,10),40,102,95,57,52,53,48,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,100,105,115,106,111,105,110,32,46,32,112,114,101,100,115,41,0,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,12),40,102,95,57,52,57,54,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,12),40,102,95,57,52,57,56,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,110,115,116,97,110,116,108,121,32,46,32,120,115,41,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,12),40,102,95,57,53,48,56,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,105,112,32,112,114,111,99,41}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,15),40,102,95,57,53,49,54,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,109,112,108,101,109,101,110,116,32,112,41,0,0,0,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,7),40,97,57,53,52,50,41,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,15),40,102,95,57,53,51,55,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,14),40,114,101,99,32,102,48,32,46,32,102,110,115,41,0,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,109,112,111,115,101,32,46,32,102,110,115,41,0,0,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,10),40,102,95,57,53,56,56,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,102,110,115,41,0,0,0,0,0,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,22),40,99,104,105,99,107,101,110,46,98,97,115,101,35,111,32,46,32,102,110,115,41,0,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,12),40,102,95,57,54,48,51,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,108,105,115,116,45,111,102,63,32,112,114,101,100,41,0,0,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,12),40,102,95,57,54,53,51,32,46,32,95,41,0,0,0,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,111,99,115,41,0,0,0,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,15),40,102,95,57,54,54,55,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,97,99,104,32,46,32,112,114,111,99,115,41,0,0,0,0,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,22),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,116,111,109,63,32,120,41,0,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,116,97,105,108,63,32,120,32,121,41}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,110,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,98,97,115,101,35,105,110,116,101,114,115,112,101,114,115,101,32,108,115,116,32,120,41}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,98,117,116,108,97,115,116,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,108,105,115,116,115,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,97,116,116,101,110,32,46,32,108,105,115,116,115,48,41,0}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,115,116,115,41,0,0,0,0,0}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,106,111,105,110,32,108,115,116,115,32,46,32,108,115,116,41,0,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,98,108,115,116,32,108,115,116,41,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,109,112,114,101,115,115,32,98,108,115,116,32,108,115,116,41}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,15),40,102,95,49,48,48,49,52,32,120,32,108,115,116,41,0}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,108,105,115,116,45,117,112,100,97,116,101,33,32,120,32,121,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,108,105,115,116,45,117,112,100,97,116,101,32,107,32,118,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,15),40,102,95,49,48,50,48,54,32,120,32,108,115,116,41,0}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,108,105,115,116,45,114,101,102,32,120,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,108,41}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,114,97,115,115,111,99,32,120,32,108,115,116,32,46,32,116,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,43,32,120,32,121,41}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,45,32,120,32,121,41}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,42,32,120,32,121,41}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,61,32,120,32,121,41}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,62,32,120,32,121,41}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,60,32,120,32,121,41}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,62,61,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,60,61,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,109,105,110,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,109,97,120,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,110,101,103,32,120,41}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,97,110,100,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,105,111,114,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,120,111,114,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,110,111,116,32,120,41}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,115,104,108,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,115,104,114,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,111,100,100,63,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,101,118,101,110,63,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,108,101,110,32,120,41}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,47,32,120,32,121,41}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,103,99,100,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,109,111,100,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,114,101,109,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,43,63,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,45,63,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,42,63,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li223[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,47,63,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li224[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,100,101,98,117,103,45,109,111,100,101,63,41,0,0,0,0,0}; static C_char C_TLS li225[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,119,97,114,110,105,110,103,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li226[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,98,97,115,101,35,110,111,116,105,99,101,32,109,115,103,32,46,32,97,114,103,115,41}; static C_char C_TLS li227[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,110,97,98,108,101,45,119,97,114,110,105,110,103,115,32,46,32,98,111,111,108,41,0,0,0}; static C_char C_TLS li228[] C_aligned={C_lihdr(0,0,4),67,95,103,99,0,0,0,0}; static C_char C_TLS li229[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,115,101,116,115,108,111,116,32,120,32,105,32,121,41,0,0,0}; static C_char C_TLS li230[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,115,101,116,105,115,108,111,116,32,120,32,105,32,121,41,0,0}; static C_char C_TLS li231[] C_aligned={C_lihdr(0,0,17),67,95,97,108,108,111,99,97,116,101,95,118,101,99,116,111,114,0,0,0,0,0,0,0}; static C_char C_TLS li232[] C_aligned={C_lihdr(0,0,16),67,95,109,97,107,101,95,115,116,114,117,99,116,117,114,101}; static C_char C_TLS li233[] C_aligned={C_lihdr(0,0,21),67,95,101,110,115,117,114,101,95,104,101,97,112,95,114,101,115,101,114,118,101,0,0,0}; static C_char C_TLS li234[] C_aligned={C_lihdr(0,0,23),67,95,103,101,116,95,115,121,109,98,111,108,95,116,97,98,108,101,95,105,110,102,111,0}; static C_char C_TLS li235[] C_aligned={C_lihdr(0,0,17),67,95,103,101,116,95,109,101,109,111,114,121,95,105,110,102,111,0,0,0,0,0,0,0}; static C_char C_TLS li236[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,115,116,97,114,116,45,116,105,109,101,114,41,0,0,0,0,0}; static C_char C_TLS li237[] C_aligned={C_lihdr(0,0,12),67,95,115,116,111,112,95,116,105,109,101,114,0,0,0,0}; static C_char C_TLS li238[] C_aligned={C_lihdr(0,0,12),67,95,115,116,111,112,95,116,105,109,101,114,0,0,0,0}; static C_char C_TLS li239[] C_aligned={C_lihdr(0,0,18),40,35,35,115,121,115,35,115,116,111,112,45,116,105,109,101,114,41,0,0,0,0,0,0}; static C_char C_TLS li240[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,105,109,109,101,100,105,97,116,101,63,32,120,41,0,0,0,0}; static C_char C_TLS li241[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,109,101,115,115,97,103,101,32,115,116,114,41,0,0,0,0,0}; static C_char C_TLS li242[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,98,121,116,101,32,120,32,105,41}; static C_char C_TLS li243[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,115,101,116,98,121,116,101,32,120,32,105,32,110,41,0,0,0}; static C_char C_TLS li244[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,104,97,108,116,32,109,115,103,41}; static C_char C_TLS li245[] C_aligned={C_lihdr(0,0,8),67,95,98,101,99,111,109,101}; static C_char C_TLS li246[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,98,108,111,99,107,45,114,101,102,32,120,32,105,41,0,0,0}; static C_char C_TLS li247[] C_aligned={C_lihdr(0,0,14),67,95,97,112,112,108,121,95,118,97,108,117,101,115,0,0}; static C_char C_TLS li248[] C_aligned={C_lihdr(0,0,14),67,95,99,111,112,121,95,99,108,111,115,117,114,101,0,0}; static C_char C_TLS li249[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,98,108,111,99,107,45,115,101,116,33,32,120,32,105,32,121,41}; static C_char C_TLS li250[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,116,105,109,101,35,99,117,114,114,101,110,116,45,109,105,108,108,105,115,101,99,111,110,100,115,41,0,0,0,0,0}; static C_char C_TLS li251[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,116,105,109,101,35,99,117,114,114,101,110,116,45,115,101,99,111,110,100,115,41,0,0}; static C_char C_TLS li252[] C_aligned={C_lihdr(0,0,23),40,99,104,105,99,107,101,110,46,116,105,109,101,35,99,112,117,45,116,105,109,101,41,0}; static C_char C_TLS li253[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,99,104,101,99,107,45,115,116,114,117,99,116,117,114,101,32,120,32,121,32,46,32,108,111,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li254[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,98,108,111,98,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,112,97,105,114,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,108,105,115,116,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,115,116,114,105,110,103,32,120,32,46,32,108,111,99,41,0,0,0,0}; static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,110,117,109,98,101,114,32,120,32,46,32,108,111,99,41,0,0,0,0}; static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,102,105,120,110,117,109,32,120,32,46,32,108,111,99,41,0,0,0,0}; static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,99,104,101,99,107,45,101,120,97,99,116,32,120,32,46,32,108,111,99,41,0,0,0,0,0}; static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,105,110,101,120,97,99,116,32,120,32,46,32,108,111,99,41,0,0,0}; static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,115,121,109,98,111,108,32,120,32,46,32,108,111,99,41,0,0,0,0}; static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,107,101,121,119,111,114,100,32,120,32,46,32,108,111,99,41,0,0,0}; static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,118,101,99,116,111,114,32,120,32,46,32,108,111,99,41,0,0,0,0}; static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,99,104,97,114,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,98,111,111,108,101,97,110,32,120,32,46,32,108,111,99,41,0,0,0}; static C_char C_TLS li267[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,99,104,101,99,107,45,108,111,99,97,116,105,118,101,32,120,32,46,32,108,111,99,41,0,0}; static C_char C_TLS li268[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,105,110,116,101,103,101,114,32,120,32,46,32,108,111,99,41,0,0,0}; static C_char C_TLS li269[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,101,120,97,99,116,45,105,110,116,101,103,101,114,32,120,32,46,32,108,111,99,41,0,0,0,0,0}; static C_char C_TLS li270[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,99,104,101,99,107,45,101,120,97,99,116,45,117,105,110,116,101,103,101,114,32,120,32,46,32,108,111,99,41,0,0,0,0}; static C_char C_TLS li271[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,114,101,97,108,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li272[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,114,97,110,103,101,32,105,32,102,114,111,109,32,116,111,32,46,32,108,111,99,41,0,0,0,0,0}; static C_char C_TLS li273[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,99,104,101,99,107,45,115,112,101,99,105,97,108,32,112,116,114,32,46,32,108,111,99,41,0}; static C_char C_TLS li274[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,99,108,111,115,117,114,101,32,120,32,46,32,108,111,99,41,0,0,0}; static C_char C_TLS li275[] C_aligned={C_lihdr(0,0,20),40,108,112,32,112,114,111,109,105,115,101,32,102,111,114,119,97,114,100,41,0,0,0,0}; static C_char C_TLS li276[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,102,111,114,99,101,32,111,98,106,41,0,0,0,0,0,0}; static C_char C_TLS li277[] C_aligned={C_lihdr(0,0,7),67,95,100,108,111,97,100,0}; static C_char C_TLS li278[] C_aligned={C_lihdr(0,0,18),67,95,115,101,116,95,100,108,111,112,101,110,95,102,108,97,103,115,0,0,0,0,0,0}; static C_char C_TLS li279[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,101,114,114,111,114,45,110,111,116,45,97,45,112,114,111,112,101,114,45,108,105,115,116,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li280[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,110,117,109,98,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li281[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,105,110,116,101,103,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li282[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,101,120,97,99,116,45,105,110,116,101,103,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li283[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,101,120,97,99,116,45,117,105,110,116,101,103,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li284[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,105,110,101,120,97,99,116,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li285[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,114,101,97,108,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li286[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,98,97,115,101,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li287[] C_aligned={C_lihdr(0,0,11),40,99,111,112,121,32,110,111,100,101,41,0,0,0,0,0}; static C_char C_TLS li288[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,115,116,115,41,0,0,0,0,0}; static C_char C_TLS li289[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,97,112,112,101,110,100,32,46,32,108,115,116,115,41,0,0}; static C_char C_TLS li290[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,108,115,116,32,114,101,115,116,41,0}; static C_char C_TLS li291[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,102,97,115,116,45,114,101,118,101,114,115,101,32,108,115,116,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li292[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,109,97,107,101,45,115,116,114,105,110,103,32,115,105,122,101,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li293[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,109,97,107,101,45,115,116,114,105,110,103,32,115,105,122,101,32,46,32,102,105,108,108,41}; static C_char C_TLS li294[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,32,108,115,41,0,0,0,0,0}; static C_char C_TLS li295[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,62,108,105,115,116,32,115,41,0}; static C_char C_TLS li296[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,49,53,50,50,32,108,115,116,41}; static C_char C_TLS li297[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,108,105,115,116,45,62,115,116,114,105,110,103,32,108,115,116,48,41,0,0,0,0,0,0}; static C_char C_TLS li298[] C_aligned={C_lihdr(0,0,9),40,105,116,101,114,32,110,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li299[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,114,101,118,101,114,115,101,45,108,105,115,116,45,62,115,116,114,105,110,103,32,108,41,0,0}; static C_char C_TLS li300[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,102,105,108,108,33,32,115,32,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li301[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,111,112,121,32,115,41,0,0}; static C_char C_TLS li302[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,115,117,98,115,116,114,105,110,103,32,115,32,115,116,97,114,116,32,46,32,101,110,100,41}; static C_char C_TLS li303[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,32,115,32,115,116,97,114,116,32,101,110,100,41,0,0,0}; static C_char C_TLS li304[] C_aligned={C_lihdr(0,0,25),40,99,111,109,112,97,114,101,49,53,55,53,32,115,49,32,115,50,32,108,111,99,32,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li305[] C_aligned={C_lihdr(0,0,22),40,97,49,49,53,53,50,32,108,101,110,49,32,108,101,110,50,32,99,109,112,41,0,0}; static C_char C_TLS li306[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,115,116,114,105,110,103,60,63,32,115,49,32,115,50,41,0}; static C_char C_TLS li307[] C_aligned={C_lihdr(0,0,22),40,97,49,49,53,55,54,32,108,101,110,49,32,108,101,110,50,32,99,109,112,41,0,0}; static C_char C_TLS li308[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,115,116,114,105,110,103,62,63,32,115,49,32,115,50,41,0}; static C_char C_TLS li309[] C_aligned={C_lihdr(0,0,22),40,97,49,49,54,48,48,32,108,101,110,49,32,108,101,110,50,32,99,109,112,41,0,0}; static C_char C_TLS li310[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,115,116,114,105,110,103,60,61,63,32,115,49,32,115,50,41}; static C_char C_TLS li311[] C_aligned={C_lihdr(0,0,22),40,97,49,49,54,50,49,32,108,101,110,49,32,108,101,110,50,32,99,109,112,41,0,0}; static C_char C_TLS li312[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,115,116,114,105,110,103,62,61,63,32,115,49,32,115,50,41}; static C_char C_TLS li313[] C_aligned={C_lihdr(0,0,25),40,99,111,109,112,97,114,101,49,54,49,56,32,115,49,32,115,50,32,108,111,99,32,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li314[] C_aligned={C_lihdr(0,0,22),40,97,49,49,54,54,50,32,108,101,110,49,32,108,101,110,50,32,99,109,112,41,0,0}; static C_char C_TLS li315[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,60,63,32,115,49,32,115,50,41,0,0,0,0,0,0}; static C_char C_TLS li316[] C_aligned={C_lihdr(0,0,22),40,97,49,49,54,56,54,32,108,101,110,49,32,108,101,110,50,32,99,109,112,41,0,0}; static C_char C_TLS li317[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,62,63,32,115,49,32,115,50,41,0,0,0,0,0,0}; static C_char C_TLS li318[] C_aligned={C_lihdr(0,0,22),40,97,49,49,55,49,48,32,108,101,110,49,32,108,101,110,50,32,99,109,112,41,0,0}; static C_char C_TLS li319[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,60,61,63,32,115,49,32,115,50,41,0,0,0,0,0}; static C_char C_TLS li320[] C_aligned={C_lihdr(0,0,22),40,97,49,49,55,51,49,32,108,101,110,49,32,108,101,110,50,32,99,109,112,41,0,0}; static C_char C_TLS li321[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,62,61,63,32,115,49,32,115,50,41,0,0,0,0,0}; static C_char C_TLS li322[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,115,116,114,105,110,103,45,97,112,112,101,110,100,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li323[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,115,116,114,115,32,110,41,0,0,0}; static C_char C_TLS li324[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,97,112,112,101,110,100,32,46,32,97,108,108,41,0,0,0,0}; static C_char C_TLS li325[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,115,116,114,105,110,103,32,46,32,99,104,97,114,115,41,0}; static C_char C_TLS li326[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,112,111,115,41,0,0,0,0,0,0}; static C_char C_TLS li327[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,102,114,97,103,109,101,110,116,115,45,62,115,116,114,105,110,103,32,116,111,116,97,108,32,102,115,41,0,0,0,0,0,0}; static C_char C_TLS li328[] C_aligned={C_lihdr(0,0,20),40,100,111,108,111,111,112,49,55,48,51,32,104,100,32,116,108,32,99,41,0,0,0,0}; static C_char C_TLS li329[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,32,105,41,0,0,0,0}; static C_char C_TLS li330[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,104,111,112,32,108,115,116,32,110,41,0,0,0,0,0,0,0}; static C_char C_TLS li331[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,43,32,120,32,121,41}; static C_char C_TLS li332[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,45,32,120,32,121,41}; static C_char C_TLS li333[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,42,32,120,32,121,41}; static C_char C_TLS li334[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,47,32,120,32,121,41}; static C_char C_TLS li335[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,103,99,100,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li336[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,47,63,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li337[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,61,32,120,32,121,41}; static C_char C_TLS li338[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,62,32,120,32,121,41}; static C_char C_TLS li339[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,60,32,120,32,121,41}; static C_char C_TLS li340[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,62,61,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li341[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,60,61,32,120,32,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li342[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,110,101,103,32,120,41}; static C_char C_TLS li343[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,109,97,120,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li344[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,109,105,110,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li345[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,102,108,111,111,114,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li346[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,116,114,117,110,99,97,116,101,32,120,41,0,0,0}; static C_char C_TLS li347[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,114,111,117,110,100,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li348[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,99,101,105,108,105,110,103,32,120,41,0,0,0,0}; static C_char C_TLS li349[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,115,105,110,32,120,41}; static C_char C_TLS li350[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,99,111,115,32,120,41}; static C_char C_TLS li351[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,116,97,110,32,120,41}; static C_char C_TLS li352[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,115,105,110,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li353[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,99,111,115,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li354[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,116,97,110,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li355[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,116,97,110,50,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li356[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,101,120,112,32,120,41}; static C_char C_TLS li357[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,101,120,112,116,32,120,32,121,41,0,0,0,0,0}; static C_char C_TLS li358[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,108,111,103,32,120,41}; static C_char C_TLS li359[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,115,113,114,116,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li360[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,98,115,32,120,41}; static C_char C_TLS li361[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,105,110,116,101,103,101,114,63,32,120,41,0,0,0}; static C_char C_TLS li362[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,108,111,110,117,109,45,112,114,105,110,116,45,112,114,101,99,105,115,105,111,110,32,46,32,114,101,115,116,41,0,0}; static C_char C_TLS li363[] C_aligned={C_lihdr(0,0,18),40,109,97,107,101,45,99,111,109,112,108,101,120,32,114,32,105,41,0,0,0,0,0,0}; static C_char C_TLS li364[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,109,97,107,101,45,114,101,99,116,97,110,103,117,108,97,114,32,114,32,105,41,0,0,0}; static C_char C_TLS li365[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,109,97,107,101,45,112,111,108,97,114,32,114,32,112,104,105,41,0,0,0,0,0,0,0}; static C_char C_TLS li366[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,114,101,97,108,45,112,97,114,116,32,120,41,0,0,0,0}; static C_char C_TLS li367[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,105,109,97,103,45,112,97,114,116,32,120,41,0,0,0,0}; static C_char C_TLS li368[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,97,110,103,108,101,32,110,41}; static C_char C_TLS li369[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,109,97,103,110,105,116,117,100,101,32,120,41,0,0,0,0}; static C_char C_TLS li370[] C_aligned={C_lihdr(0,0,12),40,114,97,116,110,117,109,32,109,32,110,41,0,0,0,0}; static C_char C_TLS li371[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,110,117,109,101,114,97,116,111,114,32,110,41,0,0,0,0}; static C_char C_TLS li372[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,100,101,110,111,109,105,110,97,116,111,114,32,110,41,0,0}; static C_char C_TLS li373[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,101,120,116,101,110,100,101,100,45,115,105,103,110,117,109,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li374[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,50,50,49,52,32,120,32,105,41}; static C_char C_TLS li375[] C_aligned={C_lihdr(0,0,13),40,100,101,108,105,118,101,114,32,121,32,100,41,0,0,0}; static C_char C_TLS li376[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,105,110,101,120,97,99,116,45,62,101,120,97,99,116,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li377[] C_aligned={C_lihdr(0,0,13),67,95,98,105,116,119,105,115,101,95,97,110,100,0,0,0}; static C_char C_TLS li378[] C_aligned={C_lihdr(0,0,13),67,95,98,105,116,119,105,115,101,95,105,111,114,0,0,0}; static C_char C_TLS li379[] C_aligned={C_lihdr(0,0,13),67,95,98,105,116,119,105,115,101,95,120,111,114,0,0,0}; static C_char C_TLS li380[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,98,105,116,119,105,115,101,45,110,111,116,32,110,41,0}; static C_char C_TLS li381[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,98,105,116,45,62,98,111,111,108,101,97,110,32,110,32,105,41,0,0,0,0,0,0}; static C_char C_TLS li382[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,105,110,116,101,103,101,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li383[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,97,114,105,116,104,109,101,116,105,99,45,115,104,105,102,116,32,110,32,109,41,0,0}; static C_char C_TLS li384[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,97,114,103,115,32,120,41,0,0,0}; static C_char C_TLS li385[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,47,32,97,114,103,49,32,46,32,97,114,103,115,41,0,0}; static C_char C_TLS li386[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,47,45,50,32,120,32,121,41,0}; static C_char C_TLS li387[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,102,108,111,111,114,32,120,41}; static C_char C_TLS li388[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,99,101,105,108,105,110,103,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li389[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,116,114,117,110,99,97,116,101,32,120,41,0,0,0,0,0}; static C_char C_TLS li390[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,114,111,117,110,100,32,120,41}; static C_char C_TLS li391[] C_aligned={C_lihdr(0,0,8),40,115,114,32,120,32,121,41}; static C_char C_TLS li392[] C_aligned={C_lihdr(0,0,24),40,102,105,110,100,45,114,97,116,105,111,45,98,101,116,119,101,101,110,32,120,32,121,41}; static C_char C_TLS li393[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,114,97,116,105,111,110,97,108,105,122,101,32,120,32,101,41}; static C_char C_TLS li394[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,105,32,109,32,120,115,41,0,0,0}; static C_char C_TLS li395[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,109,97,120,32,120,49,32,46,32,120,115,41,0,0,0,0}; static C_char C_TLS li396[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,105,32,109,32,120,115,41,0,0,0}; static C_char C_TLS li397[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,109,105,110,32,120,49,32,46,32,120,115,41,0,0,0,0}; static C_char C_TLS li398[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,101,120,112,32,110,41,0,0}; static C_char C_TLS li399[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,108,111,103,45,49,32,120,41,0}; static C_char C_TLS li400[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,108,111,103,32,97,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li401[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,115,105,110,32,110,41,0,0}; static C_char C_TLS li402[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,99,111,115,32,110,41,0,0}; static C_char C_TLS li403[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,116,97,110,32,110,41,0,0}; static C_char C_TLS li404[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,97,115,105,110,32,110,41,0}; static C_char C_TLS li405[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,97,99,111,115,32,110,41,0}; static C_char C_TLS li406[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,97,116,97,110,32,110,32,46,32,114,101,115,116,41,0,0}; static C_char C_TLS li407[] C_aligned={C_lihdr(0,0,8),40,97,49,52,51,53,50,41}; static C_char C_TLS li408[] C_aligned={C_lihdr(0,0,34),67,95,117,95,105,110,116,101,103,101,114,95,113,117,111,116,105,101,110,116,95,97,110,100,95,114,101,109,97,105,110,100,101,114,0,0,0,0,0,0}; static C_char C_TLS li409[] C_aligned={C_lihdr(0,0,8),40,97,49,52,51,56,51,41}; static C_char C_TLS li410[] C_aligned={C_lihdr(0,0,20),40,97,49,52,51,57,57,32,113,50,53,56,50,32,117,50,53,56,52,41,0,0,0,0}; static C_char C_TLS li411[] C_aligned={C_lihdr(0,0,22),40,97,49,52,51,54,54,32,115,94,50,53,54,50,32,114,94,50,53,54,52,41,0,0}; static C_char C_TLS li412[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,115,113,114,116,32,97,41,0,0,0,0}; static C_char C_TLS li413[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,115,113,114,116,32,120,41,0,0,0,0,0}; static C_char C_TLS li414[] C_aligned={C_lihdr(0,0,8),40,97,49,52,53,52,48,41}; static C_char C_TLS li415[] C_aligned={C_lihdr(0,0,14),40,97,49,52,53,52,54,32,115,94,50,32,114,41,0,0}; static C_char C_TLS li416[] C_aligned={C_lihdr(0,0,8),40,97,49,52,53,54,56,41}; static C_char C_TLS li417[] C_aligned={C_lihdr(0,0,8),40,97,49,52,53,57,50,41}; static C_char C_TLS li418[] C_aligned={C_lihdr(0,0,16),40,97,49,52,54,48,52,32,100,115,94,50,32,100,114,41}; static C_char C_TLS li419[] C_aligned={C_lihdr(0,0,16),40,97,49,52,53,56,48,32,110,115,94,50,32,110,114,41}; static C_char C_TLS li420[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,115,113,114,116,47,108,111,99,32,108,111,99,32,110,41,0,0}; static C_char C_TLS li421[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,115,113,114,116,32,120,41,0}; static C_char C_TLS li422[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,110,116,104,45,114,111,111,116,32,107,32,110,41,0,0,0,0,0,0,0}; static C_char C_TLS li423[] C_aligned={C_lihdr(0,0,10),40,108,112,32,103,48,32,103,49,41,0,0,0,0,0,0}; static C_char C_TLS li424[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,110,116,104,45,114,111,111,116,47,108,111,99,32,108,111,99,32,107,32,110,41,0,0,0,0,0,0}; static C_char C_TLS li425[] C_aligned={C_lihdr(0,0,11),40,108,112,32,114,101,115,32,101,50,41,0,0,0,0,0}; static C_char C_TLS li426[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,105,110,116,101,103,101,114,45,112,111,119,101,114,32,98,97,115,101,32,101,41,0,0,0,0}; static C_char C_TLS li427[] C_aligned={C_lihdr(0,0,14),40,108,111,103,45,101,120,112,116,32,97,32,98,41,0,0}; static C_char C_TLS li428[] C_aligned={C_lihdr(0,0,15),40,115,108,111,119,45,101,120,112,116,32,97,32,98,41,0}; static C_char C_TLS li429[] C_aligned={C_lihdr(0,0,8),40,97,49,52,57,54,49,41}; static C_char C_TLS li430[] C_aligned={C_lihdr(0,0,15),40,97,49,52,57,55,51,32,100,115,94,110,32,114,41,0}; static C_char C_TLS li431[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,101,120,112,116,32,97,32,98,41,0,0,0,0,0,0,0}; static C_char C_TLS li432[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,105,110,116,101,114,110,97,108,45,103,99,100,32,108,111,99,32,97,32,98,41,0,0,0,0}; static C_char C_TLS li433[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,103,99,100,32,97,32,98,41,0}; static C_char C_TLS li434[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,104,101,97,100,32,110,101,120,116,41}; static C_char C_TLS li435[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,103,99,100,32,46,32,110,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li436[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,108,99,109,32,120,32,121,41,0}; static C_char C_TLS li437[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,104,101,97,100,32,110,101,120,116,41}; static C_char C_TLS li438[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,108,99,109,32,46,32,110,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li439[] C_aligned={C_lihdr(0,0,34),67,95,117,95,105,110,116,101,103,101,114,95,113,117,111,116,105,101,110,116,95,97,110,100,95,114,101,109,97,105,110,100,101,114,0,0,0,0,0,0}; static C_char C_TLS li440[] C_aligned={C_lihdr(0,0,8),40,97,49,53,51,50,52,41}; static C_char C_TLS li441[] C_aligned={C_lihdr(0,0,22),40,97,49,53,51,51,48,32,104,105,50,55,54,55,32,108,111,50,55,54,57,41,0,0}; static C_char C_TLS li442[] C_aligned={C_lihdr(0,0,61),40,35,35,115,121,115,35,105,110,116,101,103,101,114,45,62,115,116,114,105,110,103,47,114,101,99,117,114,115,105,118,101,32,110,32,98,97,115,101,32,101,120,112,101,99,116,101,100,45,115,116,114,105,110,103,45,115,105,122,101,41,0,0,0}; static C_char C_TLS li443[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,101,120,116,101,110,100,101,100,45,110,117,109,98,101,114,45,62,115,116,114,105,110,103,32,110,32,98,97,115,101,41,0,0}; static C_char C_TLS li444[] C_aligned={C_lihdr(0,0,20),40,114,111,117,110,100,45,113,117,111,116,105,101,110,116,32,110,32,100,41,0,0,0,0}; static C_char C_TLS li445[] C_aligned={C_lihdr(0,0,23),40,115,97,102,101,45,101,120,112,111,110,101,110,116,32,118,97,108,117,101,32,101,41,0}; static C_char C_TLS li446[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0}; static C_char C_TLS li447[] C_aligned={C_lihdr(0,0,19),40,115,99,97,110,45,100,105,103,105,116,115,32,115,116,97,114,116,41,0,0,0,0,0}; static C_char C_TLS li448[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0}; static C_char C_TLS li449[] C_aligned={C_lihdr(0,0,19),40,115,99,97,110,45,104,97,115,104,101,115,32,115,116,97,114,116,41,0,0,0,0,0}; static C_char C_TLS li450[] C_aligned={C_lihdr(0,0,46),40,115,99,97,110,45,100,105,103,105,116,115,43,104,97,115,104,101,115,32,115,116,97,114,116,32,110,101,103,63,32,97,108,108,45,104,97,115,104,101,115,45,111,107,63,41,0,0}; static C_char C_TLS li451[] C_aligned={C_lihdr(0,0,21),40,115,99,97,110,45,101,120,112,111,110,101,110,116,32,115,116,97,114,116,41,0,0,0}; static C_char C_TLS li452[] C_aligned={C_lihdr(0,0,43),40,115,99,97,110,45,100,101,99,105,109,97,108,45,116,97,105,108,32,115,116,97,114,116,32,110,101,103,63,32,100,101,99,105,109,97,108,45,104,101,97,100,41,0,0,0,0,0}; static C_char C_TLS li453[] C_aligned={C_lihdr(0,0,23),40,115,99,97,110,45,117,114,101,97,108,32,115,116,97,114,116,32,110,101,103,63,41,0}; static C_char C_TLS li454[] C_aligned={C_lihdr(0,0,17),40,115,99,97,110,45,114,101,97,108,32,115,116,97,114,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li455[] C_aligned={C_lihdr(0,0,50),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,99,111,109,112,110,117,109,32,114,97,100,105,120,32,115,116,114,32,111,102,102,115,101,116,32,101,120,97,99,116,110,101,115,115,41,0,0,0,0,0,0}; static C_char C_TLS li456[] C_aligned={C_lihdr(0,0,32),40,115,99,97,110,45,112,114,101,102,105,120,32,105,32,101,120,110,101,115,115,32,114,97,100,105,120,32,108,101,110,41}; static C_char C_TLS li457[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,62,110,117,109,98,101,114,32,115,116,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li458[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,110,117,109,98,101,114,32,115,116,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li459[] C_aligned={C_lihdr(0,0,18),67,95,102,105,120,110,117,109,95,116,111,95,115,116,114,105,110,103,0,0,0,0,0,0}; static C_char C_TLS li460[] C_aligned={C_lihdr(0,0,18),67,95,102,108,111,110,117,109,95,116,111,95,115,116,114,105,110,103,0,0,0,0,0,0}; static C_char C_TLS li461[] C_aligned={C_lihdr(0,0,19),67,95,105,110,116,101,103,101,114,95,116,111,95,115,116,114,105,110,103,0,0,0,0,0}; static C_char C_TLS li462[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li463[] C_aligned={C_lihdr(0,0,25),40,99,111,109,112,97,114,101,45,115,108,111,116,115,32,120,32,121,32,115,116,97,114,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li464[] C_aligned={C_lihdr(0,0,10),40,119,97,108,107,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li465[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,113,117,97,108,61,63,32,120,32,121,41,0,0,0,0,0,0}; static C_char C_TLS li466[] C_aligned={C_lihdr(0,0,18),67,95,115,116,114,105,110,103,95,116,111,95,115,121,109,98,111,108,0,0,0,0,0,0}; static C_char C_TLS li467[] C_aligned={C_lihdr(0,0,19),67,95,115,116,114,105,110,103,95,116,111,95,107,101,121,119,111,114,100,0,0,0,0,0}; static C_char C_TLS li468[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,105,110,116,101,114,110,101,100,45,115,121,109,98,111,108,63,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li469[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,115,121,109,98,111,108,32,115,116,114,41,0,0,0,0,0,0}; static C_char C_TLS li470[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,115,121,109,98,111,108,45,62,115,116,114,105,110,103,32,115,41}; static C_char C_TLS li471[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,115,121,109,98,111,108,45,62,115,116,114,105,110,103,32,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li472[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,62,115,121,109,98,111,108,32,115,116,114,41,0,0,0,0,0}; static C_char C_TLS li473[] C_aligned={C_lihdr(0,0,13),67,95,109,97,107,101,95,115,121,109,98,111,108,0,0,0}; static C_char C_TLS li474[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,116,114,105,110,103,45,62,117,110,105,110,116,101,114,110,101,100,45,115,121,109,98,111,108,32,115,116,114,41,0,0,0,0}; static C_char C_TLS li475[] C_aligned={C_lihdr(0,0,13),67,95,109,97,107,101,95,115,121,109,98,111,108,0,0,0}; static C_char C_TLS li476[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,103,101,110,115,121,109,32,46,32,115,116,114,45,111,114,45,115,121,109,41,0,0,0,0,0,0}; static C_char C_TLS li477[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,51,55,48,32,103,51,51,56,50,41,0,0,0,0}; static C_char C_TLS li478[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,121,109,98,111,108,45,97,112,112,101,110,100,32,46,32,115,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li479[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,107,101,121,119,111,114,100,63,32,120,41,0,0,0,0}; static C_char C_TLS li480[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,115,116,114,105,110,103,45,62,107,101,121,119,111,114,100,32,115,41,0,0,0,0,0}; static C_char C_TLS li481[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,107,101,121,119,111,114,100,45,62,115,116,114,105,110,103,32,107,119,41,0,0,0,0}; static C_char C_TLS li482[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,103,101,116,45,107,101,121,119,111,114,100,32,107,101,121,32,97,114,103,115,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li483[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,109,97,107,101,45,98,108,111,98,32,115,105,122,101,41,0,0}; static C_char C_TLS li484[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,98,108,111,98,35,109,97,107,101,45,98,108,111,98,32,115,105,122,101,41,0,0,0}; static C_char C_TLS li485[] C_aligned={C_lihdr(0,0,22),40,99,104,105,99,107,101,110,46,98,108,111,98,35,98,108,111,98,63,32,120,41,0,0}; static C_char C_TLS li486[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,108,111,98,35,98,108,111,98,45,115,105,122,101,32,98,118,41,0,0,0,0,0}; static C_char C_TLS li487[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,98,108,111,98,35,115,116,114,105,110,103,45,62,98,108,111,98,32,115,41,0,0,0}; static C_char C_TLS li488[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,108,111,98,35,98,108,111,98,45,62,115,116,114,105,110,103,32,98,118,41,0,0}; static C_char C_TLS li489[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,108,111,98,35,98,108,111,98,61,63,32,98,49,32,98,50,41,0,0,0,0,0}; static C_char C_TLS li490[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,109,97,107,101,45,118,101,99,116,111,114,32,115,105,122,101,32,46,32,102,105,108,108,41}; static C_char C_TLS li491[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li492[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,108,105,115,116,45,62,118,101,99,116,111,114,32,108,115,116,48,41,0,0,0,0,0,0}; static C_char C_TLS li493[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li494[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0}; static C_char C_TLS li495[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,118,101,99,116,111,114,32,46,32,120,115,41,0,0,0,0}; static C_char C_TLS li496[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,51,53,48,55,41,0,0,0,0}; static C_char C_TLS li497[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,102,105,108,108,33,32,118,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li498[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,51,53,49,57,41,0,0,0,0}; static C_char C_TLS li499[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,98,97,115,101,35,118,101,99,116,111,114,45,99,111,112,121,33,32,102,114,111,109,32,116,111,32,46,32,110,41,0}; static C_char C_TLS li500[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,51,53,53,48,41,0,0,0,0}; static C_char C_TLS li501[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,117,98,118,101,99,116,111,114,32,118,32,105,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li502[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,98,97,115,101,35,118,101,99,116,111,114,45,114,101,115,105,122,101,32,118,32,110,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li503[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,51,53,55,56,41,0,0,0,0}; static C_char C_TLS li504[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,118,101,99,116,111,114,45,114,101,115,105,122,101,32,118,32,110,32,105,110,105,116,41,0,0}; static C_char C_TLS li505[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,61,63,32,120,32,121,41,0,0}; static C_char C_TLS li506[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,62,63,32,120,32,121,41,0,0}; static C_char C_TLS li507[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,60,63,32,120,32,121,41,0,0}; static C_char C_TLS li508[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,62,61,63,32,120,32,121,41,0}; static C_char C_TLS li509[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,60,61,63,32,120,32,121,41,0}; static C_char C_TLS li510[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li511[] C_aligned={C_lihdr(0,0,15),40,108,111,111,107,117,112,45,99,104,97,114,32,99,41,0}; static C_char C_TLS li512[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,104,97,114,45,110,97,109,101,32,120,32,46,32,121,41,0,0}; static C_char C_TLS li513[] C_aligned={C_lihdr(0,0,9),67,95,99,97,108,108,95,99,99,0,0,0,0,0,0,0}; static C_char C_TLS li514[] C_aligned={C_lihdr(0,0,19),67,95,99,97,108,108,95,119,105,116,104,95,99,116,104,117,108,104,117,0,0,0,0,0}; static C_char C_TLS li515[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li516[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,102,111,114,45,101,97,99,104,32,112,32,108,115,116,48,41,0}; static C_char C_TLS li517[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li518[] C_aligned={C_lihdr(0,0,18),40,35,35,115,121,115,35,109,97,112,32,112,32,108,115,116,48,41,0,0,0,0,0,0}; static C_char C_TLS li519[] C_aligned={C_lihdr(0,0,30),40,109,97,112,115,97,102,101,51,54,53,52,32,112,32,108,115,116,115,32,115,116,97,114,116,32,108,111,99,41,0,0}; static C_char C_TLS li520[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li521[] C_aligned={C_lihdr(0,0,26),40,99,104,101,99,107,51,54,53,53,32,108,115,116,115,32,115,116,97,114,116,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li522[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,54,56,53,32,103,51,54,57,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li523[] C_aligned={C_lihdr(0,0,10),40,97,49,56,54,49,55,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li524[] C_aligned={C_lihdr(0,0,10),40,97,49,56,54,50,55,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li525[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,97,108,108,41,0,0,0,0,0,0}; static C_char C_TLS li526[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,102,111,114,45,101,97,99,104,32,102,110,32,108,115,116,49,32,46,32,108,115,116,115,41}; static C_char C_TLS li527[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,55,49,54,32,103,51,55,50,56,41,0,0,0,0}; static C_char C_TLS li528[] C_aligned={C_lihdr(0,0,10),40,97,49,56,55,50,50,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li529[] C_aligned={C_lihdr(0,0,10),40,97,49,56,55,51,50,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li530[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,97,108,108,41,0,0,0,0,0,0}; static C_char C_TLS li531[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,109,97,112,32,102,110,32,108,115,116,49,32,46,32,108,115,116,115,41,0,0,0,0,0}; static C_char C_TLS li532[] C_aligned={C_lihdr(0,0,18),40,97,49,56,55,53,54,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0}; static C_char C_TLS li533[] C_aligned={C_lihdr(0,0,40),40,115,99,104,101,109,101,35,100,121,110,97,109,105,99,45,119,105,110,100,32,98,101,102,111,114,101,32,116,104,117,110,107,32,97,102,116,101,114,41}; static C_char C_TLS li534[] C_aligned={C_lihdr(0,0,24),40,99,111,110,116,105,110,117,97,116,105,111,110,32,46,32,114,101,115,117,108,116,115,41}; static C_char C_TLS li535[] C_aligned={C_lihdr(0,0,13),40,97,49,56,55,56,48,32,99,111,110,116,41,0,0,0}; static C_char C_TLS li536[] C_aligned={C_lihdr(0,0,44),40,115,99,104,101,109,101,35,99,97,108,108,45,119,105,116,104,45,99,117,114,114,101,110,116,45,99,111,110,116,105,110,117,97,116,105,111,110,32,112,114,111,99,41,0,0,0,0}; static C_char C_TLS li537[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,100,121,110,97,109,105,99,45,117,110,119,105,110,100,32,119,105,110,100,115,32,110,41,0,0}; static C_char C_TLS li538[] C_aligned={C_lihdr(0,0,22),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,111,114,116,63,32,120,41,0,0}; static C_char C_TLS li539[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,105,110,112,117,116,45,112,111,114,116,45,111,112,101,110,63,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li540[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,111,117,116,112,117,116,45,112,111,114,116,45,111,112,101,110,63,32,112,41,0,0,0,0,0,0}; static C_char C_TLS li541[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,111,114,116,45,99,108,111,115,101,100,63,32,112,41,0,0,0}; static C_char C_TLS li542[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,109,97,107,101,45,112,111,114,116,32,105,47,111,32,99,108,97,115,115,32,110,97,109,101,32,116,121,112,101,41,0,0,0}; static C_char C_TLS li543[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li544[] C_aligned={C_lihdr(0,0,10),40,97,51,49,57,52,56,32,112,41,0,0,0,0,0,0}; static C_char C_TLS li545[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li546[] C_aligned={C_lihdr(0,0,10),40,97,51,49,57,56,56,32,112,41,0,0,0,0,0,0}; static C_char C_TLS li547[] C_aligned={C_lihdr(0,0,12),40,97,51,50,48,50,56,32,112,32,99,41,0,0,0,0}; static C_char C_TLS li548[] C_aligned={C_lihdr(0,0,12),40,97,51,50,48,51,49,32,112,32,115,41,0,0,0,0}; static C_char C_TLS li549[] C_aligned={C_lihdr(0,0,12),40,97,51,50,48,51,52,32,112,32,100,41,0,0,0,0}; static C_char C_TLS li550[] C_aligned={C_lihdr(0,0,10),40,97,51,50,48,52,48,32,112,41,0,0,0,0,0,0}; static C_char C_TLS li551[] C_aligned={C_lihdr(0,0,10),40,97,51,50,48,52,51,32,112,41,0,0,0,0,0,0}; static C_char C_TLS li552[] C_aligned={C_lihdr(0,0,8),40,97,51,50,48,56,48,41}; static C_char C_TLS li553[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,114,101,109,32,97,99,116,32,115,116,97,114,116,41,0,0,0,0}; static C_char C_TLS li554[] C_aligned={C_lihdr(0,0,23),40,97,51,50,48,52,54,32,112,32,110,32,100,101,115,116,32,115,116,97,114,116,41,0}; static C_char C_TLS li555[] C_aligned={C_lihdr(0,0,8),40,97,51,50,50,52,49,41}; static C_char C_TLS li556[] C_aligned={C_lihdr(0,0,32),40,108,111,111,112,32,108,101,110,32,108,105,109,105,116,32,98,117,102,102,101,114,32,114,101,115,117,108,116,32,102,41}; static C_char C_TLS li557[] C_aligned={C_lihdr(0,0,17),40,97,51,50,49,52,53,32,112,32,114,108,105,109,105,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li558[] C_aligned={C_lihdr(0,0,16),67,95,111,112,101,110,95,102,105,108,101,95,112,111,114,116}; static C_char C_TLS li559[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,99,104,101,99,107,45,105,110,112,117,116,45,112,111,114,116,32,120,32,111,112,101,110,32,46,32,108,111,99,41,0,0,0}; static C_char C_TLS li560[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,99,104,101,99,107,45,111,117,116,112,117,116,45,112,111,114,116,32,120,32,111,112,101,110,32,46,32,108,111,99,41,0,0}; static C_char C_TLS li561[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,112,111,114,116,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li562[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,99,104,101,99,107,45,111,112,101,110,45,112,111,114,116,32,120,32,46,32,108,111,99,41,0}; static C_char C_TLS li563[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,51,57,48,49,41,0,0,0,0,0,0}; static C_char C_TLS li564[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,99,117,114,114,101,110,116,45,105,110,112,117,116,45,112,111,114,116,32,46,32,97,114,103,115,41,0,0,0,0,0,0}; static C_char C_TLS li565[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,51,57,50,54,41,0,0,0,0,0,0}; static C_char C_TLS li566[] C_aligned={C_lihdr(0,0,35),40,115,99,104,101,109,101,35,99,117,114,114,101,110,116,45,111,117,116,112,117,116,45,112,111,114,116,32,46,32,97,114,103,115,41,0,0,0,0,0}; static C_char C_TLS li567[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,51,57,53,49,41,0,0,0,0,0,0}; static C_char C_TLS li568[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,117,114,114,101,110,116,45,101,114,114,111,114,45,112,111,114,116,32,46,32,97,114,103,115,41}; static C_char C_TLS li569[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,116,116,121,45,112,111,114,116,63,32,112,111,114,116,41,0,0}; static C_char C_TLS li570[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,112,111,114,116,45,100,97,116,97,32,112,111,114,116,41,0,0}; static C_char C_TLS li571[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,115,101,116,45,112,111,114,116,45,100,97,116,97,33,32,112,111,114,116,32,100,97,116,97,41}; static C_char C_TLS li572[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,51,57,56,56,32,109,111,100,101,115,41,0,0,0,0,0,0}; static C_char C_TLS li573[] C_aligned={C_lihdr(0,0,25),40,111,112,101,110,32,110,97,109,101,32,105,110,112,32,109,111,100,101,115,32,108,111,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li574[] C_aligned={C_lihdr(0,0,20),40,99,108,111,115,101,32,112,111,114,116,32,105,110,112,32,108,111,99,41,0,0,0,0}; static C_char C_TLS li575[] C_aligned={C_lihdr(0,0,36),40,115,99,104,101,109,101,35,111,112,101,110,45,105,110,112,117,116,45,102,105,108,101,32,110,97,109,101,32,46,32,109,111,100,101,41,0,0,0,0}; static C_char C_TLS li576[] C_aligned={C_lihdr(0,0,37),40,115,99,104,101,109,101,35,111,112,101,110,45,111,117,116,112,117,116,45,102,105,108,101,32,110,97,109,101,32,46,32,109,111,100,101,41,0,0,0}; static C_char C_TLS li577[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,99,108,111,115,101,45,105,110,112,117,116,45,112,111,114,116,32,112,111,114,116,41,0,0}; static C_char C_TLS li578[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,99,108,111,115,101,45,111,117,116,112,117,116,45,112,111,114,116,32,112,111,114,116,41,0}; static C_char C_TLS li579[] C_aligned={C_lihdr(0,0,8),40,97,49,57,51,55,50,41}; static C_char C_TLS li580[] C_aligned={C_lihdr(0,0,18),40,97,49,57,51,55,56,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0}; static C_char C_TLS li581[] C_aligned={C_lihdr(0,0,43),40,115,99,104,101,109,101,35,99,97,108,108,45,119,105,116,104,45,105,110,112,117,116,45,102,105,108,101,32,110,97,109,101,32,112,32,46,32,109,111,100,101,41,0,0,0,0,0}; static C_char C_TLS li582[] C_aligned={C_lihdr(0,0,8),40,97,49,57,51,57,54,41}; static C_char C_TLS li583[] C_aligned={C_lihdr(0,0,18),40,97,49,57,52,48,50,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0}; static C_char C_TLS li584[] C_aligned={C_lihdr(0,0,44),40,115,99,104,101,109,101,35,99,97,108,108,45,119,105,116,104,45,111,117,116,112,117,116,45,102,105,108,101,32,110,97,109,101,32,112,32,46,32,109,111,100,101,41,0,0,0,0}; static C_char C_TLS li585[] C_aligned={C_lihdr(0,0,8),40,97,49,57,52,50,48,41}; static C_char C_TLS li586[] C_aligned={C_lihdr(0,0,18),40,97,49,57,52,51,49,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0}; static C_char C_TLS li587[] C_aligned={C_lihdr(0,0,8),40,97,49,57,52,50,53,41}; static C_char C_TLS li588[] C_aligned={C_lihdr(0,0,8),40,97,49,57,52,52,48,41}; static C_char C_TLS li589[] C_aligned={C_lihdr(0,0,46),40,115,99,104,101,109,101,35,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,102,105,108,101,32,115,116,114,32,116,104,117,110,107,32,46,32,109,111,100,101,41,0,0}; static C_char C_TLS li590[] C_aligned={C_lihdr(0,0,8),40,97,49,57,52,53,52,41}; static C_char C_TLS li591[] C_aligned={C_lihdr(0,0,18),40,97,49,57,52,54,53,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0}; static C_char C_TLS li592[] C_aligned={C_lihdr(0,0,8),40,97,49,57,52,53,57,41}; static C_char C_TLS li593[] C_aligned={C_lihdr(0,0,8),40,97,49,57,52,55,52,41}; static C_char C_TLS li594[] C_aligned={C_lihdr(0,0,45),40,115,99,104,101,109,101,35,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,102,105,108,101,32,115,116,114,32,116,104,117,110,107,32,46,32,109,111,100,101,41,0,0,0}; static C_char C_TLS li595[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,102,105,108,101,45,101,120,105,115,116,115,63,32,110,97,109,101,32,102,105,108,101,63,32,100,105,114,63,32,108,111,99,41}; static C_char C_TLS li596[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,102,108,117,115,104,45,111,117,116,112,117,116,32,112,111,114,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li597[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,117,115,104,45,111,117,116,112,117,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li598[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,112,111,114,116,45,108,105,110,101,32,112,111,114,116,41,0,0}; static C_char C_TLS li599[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,52,49,49,56,32,105,41,0,0}; static C_char C_TLS li600[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li601[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,100,101,99,111,114,97,116,101,45,108,97,109,98,100,97,32,112,114,111,99,32,112,114,101,100,32,100,101,99,111,114,97,116,111,114,41,0,0,0,0,0}; static C_char C_TLS li602[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li603[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,108,97,109,98,100,97,45,100,101,99,111,114,97,116,105,111,110,32,112,114,111,99,32,112,114,101,100,41,0,0,0,0,0}; static C_char C_TLS li604[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,109,97,107,101,45,108,97,109,98,100,97,45,105,110,102,111,32,115,116,114,41,0,0,0,0}; static C_char C_TLS li605[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,108,97,109,98,100,97,45,105,110,102,111,63,32,120,41,0,0}; static C_char C_TLS li606[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,108,97,109,98,100,97,45,105,110,102,111,32,112,114,111,99,41}; static C_char C_TLS li607[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,108,97,109,98,100,97,45,105,110,102,111,45,62,115,116,114,105,110,103,32,105,110,102,111,41}; static C_char C_TLS li608[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,111,99,101,100,117,114,101,45,105,110,102,111,114,109,97,116,105,111,110,32,120,41,0,0}; static C_char C_TLS li609[] C_aligned={C_lihdr(0,0,12),40,97,49,57,55,53,50,32,112,32,105,41,0,0,0,0}; static C_char C_TLS li610[] C_aligned={C_lihdr(0,0,10),40,97,49,57,55,54,50,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li611[] C_aligned={C_lihdr(0,0,15),40,97,49,57,55,55,56,32,112,114,111,99,32,105,41,0}; static C_char C_TLS li612[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,98,97,115,101,35,103,101,116,116,101,114,45,119,105,116,104,45,115,101,116,116,101,114,32,103,101,116,32,115,101,116,32,46,32,114,101,115,116,41}; static C_char C_TLS li613[] C_aligned={C_lihdr(0,0,11),40,102,95,50,48,48,51,53,32,120,41,0,0,0,0,0}; static C_char C_TLS li614[] C_aligned={C_lihdr(0,0,28),40,97,115,115,105,103,110,32,118,97,108,32,110,32,99,111,110,118,101,114,116,63,32,115,101,116,63,41,0,0,0,0}; static C_char C_TLS li615[] C_aligned={C_lihdr(0,0,24),40,98,111,100,121,52,50,54,57,32,99,111,110,118,101,114,116,63,32,115,101,116,63,41}; static C_char C_TLS li616[] C_aligned={C_lihdr(0,0,24),40,100,101,102,45,115,101,116,63,52,50,55,50,32,37,99,111,110,118,101,114,116,63,41}; static C_char C_TLS li617[] C_aligned={C_lihdr(0,0,18),40,100,101,102,45,99,111,110,118,101,114,116,63,52,50,55,49,41,0,0,0,0,0,0}; static C_char C_TLS li618[] C_aligned={C_lihdr(0,0,15),40,97,49,57,57,50,54,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li619[] C_aligned={C_lihdr(0,0,12),40,97,50,48,48,48,56,32,118,97,108,41,0,0,0,0}; static C_char C_TLS li620[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,98,97,115,101,35,109,97,107,101,45,112,97,114,97,109,101,116,101,114,32,105,110,105,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li621[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,114,101,97,100,121,63,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li622[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,114,101,97,100,45,99,104,97,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li623[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,114,101,97,100,45,99,104,97,114,45,48,32,112,41,0,0,0}; static C_char C_TLS li624[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,114,101,97,100,45,99,104,97,114,47,112,111,114,116,32,112,111,114,116,41,0,0,0,0,0}; static C_char C_TLS li625[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,112,101,101,107,45,99,104,97,114,45,48,32,112,41,0,0,0}; static C_char C_TLS li626[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,112,101,101,107,45,99,104,97,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li627[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,114,101,97,100,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li628[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,114,101,97,100,45,112,114,111,109,112,116,45,104,111,111,107,41}; static C_char C_TLS li629[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,105,110,102,105,120,45,108,105,115,116,45,104,111,111,107,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li630[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,115,104,97,114,112,45,110,117,109,98,101,114,45,104,111,111,107,32,112,111,114,116,32,110,41}; static C_char C_TLS li631[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,114,101,97,100,45,119,97,114,110,105,110,103,32,112,111,114,116,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0}; static C_char C_TLS li632[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,114,101,97,100,45,101,114,114,111,114,32,112,111,114,116,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0,0}; static C_char C_TLS li633[] C_aligned={C_lihdr(0,0,11),40,102,95,50,48,51,49,50,32,99,41,0,0,0,0,0}; static C_char C_TLS li634[] C_aligned={C_lihdr(0,0,21),40,105,110,102,111,32,99,108,97,115,115,32,100,97,116,97,32,118,97,108,41,0,0,0}; static C_char C_TLS li635[] C_aligned={C_lihdr(0,0,8),40,115,107,105,112,32,99,41}; static C_char C_TLS li636[] C_aligned={C_lihdr(0,0,13),40,115,107,105,112,45,116,111,45,101,111,108,41,0,0,0}; static C_char C_TLS li637[] C_aligned={C_lihdr(0,0,22),40,114,101,115,101,114,118,101,100,45,99,104,97,114,97,99,116,101,114,32,99,41,0,0}; static C_char C_TLS li638[] C_aligned={C_lihdr(0,0,29),40,114,101,97,100,45,117,110,114,101,115,101,114,118,101,100,45,99,104,97,114,45,48,32,112,111,114,116,41,0,0,0}; static C_char C_TLS li639[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,99,41}; static C_char C_TLS li640[] C_aligned={C_lihdr(0,0,10),40,114,45,115,112,97,99,101,115,41,0,0,0,0,0,0}; static C_char C_TLS li641[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,115,101,113,32,110,41,0,0,0,0}; static C_char C_TLS li642[] C_aligned={C_lihdr(0,0,22),40,114,45,117,115,101,113,117,101,110,99,101,32,117,32,110,32,98,97,115,101,41,0,0}; static C_char C_TLS li643[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li644[] C_aligned={C_lihdr(0,0,25),40,114,45,99,111,110,115,45,99,111,100,101,112,111,105,110,116,32,99,112,32,108,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li645[] C_aligned={C_lihdr(0,0,14),40,101,97,116,45,119,115,32,99,32,110,108,63,41,0,0}; static C_char C_TLS li646[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,99,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li647[] C_aligned={C_lihdr(0,0,15),40,114,45,115,116,114,105,110,103,32,116,101,114,109,41,0}; static C_char C_TLS li648[] C_aligned={C_lihdr(0,0,19),40,115,116,97,114,116,105,110,103,45,108,105,110,101,32,109,115,103,41,0,0,0,0,0}; static C_char C_TLS li649[] C_aligned={C_lihdr(0,0,11),40,102,95,50,49,49,51,50,32,99,41,0,0,0,0,0}; static C_char C_TLS li650[] C_aligned={C_lihdr(0,0,15),40,97,50,49,50,52,55,32,116,111,107,32,107,119,41,0}; static C_char C_TLS li651[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,97,115,116,41,0,0,0,0,0}; static C_char C_TLS li652[] C_aligned={C_lihdr(0,0,15),40,97,50,49,49,50,56,32,114,101,116,117,114,110,41,0}; static C_char C_TLS li653[] C_aligned={C_lihdr(0,0,18),40,114,45,108,105,115,116,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0}; static C_char C_TLS li654[] C_aligned={C_lihdr(0,0,10),40,114,45,118,101,99,116,111,114,41,0,0,0,0,0,0}; static C_char C_TLS li655[] C_aligned={C_lihdr(0,0,15),40,97,50,49,51,55,53,32,116,111,107,32,107,119,41,0}; static C_char C_TLS li656[] C_aligned={C_lihdr(0,0,26),40,114,45,110,117,109,98,101,114,32,114,97,100,105,120,32,101,120,97,99,116,110,101,115,115,41,0,0,0,0,0,0}; static C_char C_TLS li657[] C_aligned={C_lihdr(0,0,31),40,114,45,110,117,109,98,101,114,45,119,105,116,104,45,101,120,97,99,116,110,101,115,115,32,114,97,100,105,120,41,0}; static C_char C_TLS li658[] C_aligned={C_lihdr(0,0,31),40,114,45,110,117,109,98,101,114,45,119,105,116,104,45,114,97,100,105,120,32,101,120,97,99,116,110,101,115,115,41,0}; static C_char C_TLS li659[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,99,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li660[] C_aligned={C_lihdr(0,0,9),40,114,45,116,111,107,101,110,41,0,0,0,0,0,0,0}; static C_char C_TLS li661[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,99,32,108,115,116,41,0,0,0,0}; static C_char C_TLS li662[] C_aligned={C_lihdr(0,0,10),40,114,45,100,105,103,105,116,115,41,0,0,0,0,0,0}; static C_char C_TLS li663[] C_aligned={C_lihdr(0,0,15),40,97,50,49,54,55,51,32,115,116,114,32,107,119,41,0}; static C_char C_TLS li664[] C_aligned={C_lihdr(0,0,10),40,114,45,115,121,109,98,111,108,41,0,0,0,0,0,0}; static C_char C_TLS li665[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,32,115,107,119,41,0,0}; static C_char C_TLS li666[] C_aligned={C_lihdr(0,0,12),40,114,45,120,116,111,107,101,110,32,107,41,0,0,0,0}; static C_char C_TLS li667[] C_aligned={C_lihdr(0,0,8),40,114,45,99,104,97,114,41}; static C_char C_TLS li668[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li669[] C_aligned={C_lihdr(0,0,11),40,114,45,99,111,109,109,101,110,116,41,0,0,0,0,0}; static C_char C_TLS li670[] C_aligned={C_lihdr(0,0,14),40,114,45,101,120,116,45,115,121,109,98,111,108,41,0,0}; static C_char C_TLS li671[] C_aligned={C_lihdr(0,0,11),40,114,45,113,117,111,116,101,32,113,41,0,0,0,0,0}; static C_char C_TLS li672[] C_aligned={C_lihdr(0,0,8),40,97,50,50,50,54,54,41}; static C_char C_TLS li673[] C_aligned={C_lihdr(0,0,13),40,97,50,50,50,55,50,32,46,32,120,115,41,0,0,0}; static C_char C_TLS li674[] C_aligned={C_lihdr(0,0,8),40,97,50,50,51,57,51,41}; static C_char C_TLS li675[] C_aligned={C_lihdr(0,0,13),40,97,50,50,51,57,57,32,46,32,120,115,41,0,0,0}; static C_char C_TLS li676[] C_aligned={C_lihdr(0,0,8),40,97,50,50,52,54,52,41}; static C_char C_TLS li677[] C_aligned={C_lihdr(0,0,13),40,97,50,50,52,55,48,32,46,32,120,115,41,0,0,0}; static C_char C_TLS li678[] C_aligned={C_lihdr(0,0,8),40,97,50,50,53,55,56,41}; static C_char C_TLS li679[] C_aligned={C_lihdr(0,0,8),40,97,50,50,53,56,51,41}; static C_char C_TLS li680[] C_aligned={C_lihdr(0,0,8),40,97,50,50,53,56,57,41}; static C_char C_TLS li681[] C_aligned={C_lihdr(0,0,8),40,97,50,50,55,51,50,41}; static C_char C_TLS li682[] C_aligned={C_lihdr(0,0,15),40,97,50,50,55,52,51,32,115,116,114,32,107,119,41,0}; static C_char C_TLS li683[] C_aligned={C_lihdr(0,0,8),40,97,50,50,55,51,55,41}; static C_char C_TLS li684[] C_aligned={C_lihdr(0,0,8),40,97,50,50,55,55,50,41}; static C_char C_TLS li685[] C_aligned={C_lihdr(0,0,8),40,97,50,50,56,56,54,41}; static C_char C_TLS li686[] C_aligned={C_lihdr(0,0,13),40,97,50,50,56,57,50,32,46,32,120,115,41,0,0,0}; static C_char C_TLS li687[] C_aligned={C_lihdr(0,0,9),40,114,101,97,100,114,101,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li688[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,114,101,97,100,32,112,111,114,116,32,105,110,102,111,104,97,110,100,108,101,114,41,0,0,0}; static C_char C_TLS li689[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,99,104,97,114,45,62,117,116,102,56,45,115,116,114,105,110,103,32,99,41,0,0,0,0,0}; static C_char C_TLS li690[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,117,110,105,99,111,100,101,45,115,117,114,114,111,103,97,116,101,63,32,110,41,0,0,0,0}; static C_char C_TLS li691[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,115,117,114,114,111,103,97,116,101,115,45,62,99,111,100,101,112,111,105,110,116,32,104,105,32,108,111,41,0,0,0,0,0}; static C_char C_TLS li692[] C_aligned={C_lihdr(0,0,7),40,104,101,120,32,99,41,0}; static C_char C_TLS li693[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,32,104,41,0,0,0,0}; static C_char C_TLS li694[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,114,101,97,100,45,98,121,116,101,118,101,99,116,111,114,45,108,105,116,101,114,97,108,32,112,111,114,116,41,0,0,0,0}; static C_char C_TLS li695[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,117,115,101,114,45,114,101,97,100,45,104,111,111,107,32,99,104,97,114,32,112,111,114,116,41}; static C_char C_TLS li696[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,119,114,105,116,101,45,99,104,97,114,45,48,32,99,32,112,41}; static C_char C_TLS li697[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,119,114,105,116,101,45,99,104,97,114,47,112,111,114,116,32,99,32,112,111,114,116,41,0,0}; static C_char C_TLS li698[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,119,114,105,116,101,45,99,104,97,114,32,99,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li699[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,110,101,119,108,105,110,101,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li700[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,119,114,105,116,101,32,120,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li701[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,100,105,115,112,108,97,121,32,120,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li702[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,48,54,49,32,103,53,48,54,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li703[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,105,110,116,32,46,32,97,114,103,115,41,0,0,0,0,0}; static C_char C_TLS li704[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,48,57,51,32,103,53,49,48,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li705[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,105,110,116,42,32,46,32,97,114,103,115,41,0,0,0,0}; static C_char C_TLS li706[] C_aligned={C_lihdr(0,0,17),40,111,117,116,115,116,114,32,112,111,114,116,32,115,116,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li707[] C_aligned={C_lihdr(0,0,17),40,111,117,116,99,104,114,32,112,111,114,116,32,99,104,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li708[] C_aligned={C_lihdr(0,0,17),40,111,117,116,115,121,109,32,112,111,114,116,32,115,121,109,41,0,0,0,0,0,0,0}; static C_char C_TLS li709[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li710[] C_aligned={C_lihdr(0,0,25),40,111,117,116,114,101,97,100,97,98,108,101,115,121,109,32,112,111,114,116,32,115,116,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li711[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li712[] C_aligned={C_lihdr(0,0,22),40,115,121,109,45,105,115,45,114,101,97,100,97,98,108,101,63,32,115,116,114,41,0,0}; static C_char C_TLS li713[] C_aligned={C_lihdr(0,0,10),40,103,53,50,53,57,32,99,110,41,0,0,0,0,0,0}; static C_char C_TLS li714[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,53,50,56,48,32,105,32,99,41}; static C_char C_TLS li715[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,53,51,49,48,32,120,41,0,0}; static C_char C_TLS li716[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,53,51,50,52,32,105,41,0,0}; static C_char C_TLS li717[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,53,51,52,56,32,105,32,99,41}; static C_char C_TLS li718[] C_aligned={C_lihdr(0,0,7),40,111,117,116,32,120,41,0}; static C_char C_TLS li719[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,112,114,105,110,116,32,120,32,114,101,97,100,97,98,108,101,32,112,111,114,116,41,0,0,0}; static C_char C_TLS li720[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,112,114,111,99,101,100,117,114,101,45,62,115,116,114,105,110,103,32,120,41,0,0,0,0,0}; static C_char C_TLS li721[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,114,101,99,111,114,100,45,112,114,105,110,116,101,114,32,116,121,112,101,32,112,114,111,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li722[] C_aligned={C_lihdr(0,0,8),40,97,50,52,57,52,52,41}; static C_char C_TLS li723[] C_aligned={C_lihdr(0,0,11),40,97,50,52,57,51,56,32,101,120,41,0,0,0,0,0}; static C_char C_TLS li724[] C_aligned={C_lihdr(0,0,8),40,97,50,52,57,57,53,41}; static C_char C_TLS li725[] C_aligned={C_lihdr(0,0,8),40,97,50,53,48,49,48,41}; static C_char C_TLS li726[] C_aligned={C_lihdr(0,0,15),40,97,50,53,48,48,52,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li727[] C_aligned={C_lihdr(0,0,8),40,97,50,52,57,56,57,41}; static C_char C_TLS li728[] C_aligned={C_lihdr(0,0,10),40,97,50,52,57,51,50,32,107,41,0,0,0,0,0,0}; static C_char C_TLS li729[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,117,115,101,114,45,112,114,105,110,116,45,104,111,111,107,32,120,32,114,101,97,100,97,98,108,101,32,112,111,114,116,41,0}; static C_char C_TLS li730[] C_aligned={C_lihdr(0,0,8),40,97,50,53,48,55,55,41}; static C_char C_TLS li731[] C_aligned={C_lihdr(0,0,8),40,97,50,53,49,50,48,41}; static C_char C_TLS li732[] C_aligned={C_lihdr(0,0,8),40,97,50,53,49,50,54,41}; static C_char C_TLS li733[] C_aligned={C_lihdr(0,0,15),40,97,50,53,48,55,49,32,114,101,116,117,114,110,41,0}; static C_char C_TLS li734[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,119,105,116,104,45,112,114,105,110,116,45,108,101,110,103,116,104,45,108,105,109,105,116,32,108,105,109,105,116,32,116,104,117,110,107,41,0,0,0,0,0}; static C_char C_TLS li735[] C_aligned={C_lihdr(0,0,15),40,99,104,101,99,107,53,52,54,51,32,112,32,110,41,0}; static C_char C_TLS li736[] C_aligned={C_lihdr(0,0,10),40,97,51,49,52,53,52,32,112,41,0,0,0,0,0,0}; static C_char C_TLS li737[] C_aligned={C_lihdr(0,0,10),40,97,51,49,52,55,57,32,112,41,0,0,0,0,0,0}; static C_char C_TLS li738[] C_aligned={C_lihdr(0,0,12),40,97,51,49,52,57,55,32,112,32,99,41,0,0,0,0}; static C_char C_TLS li739[] C_aligned={C_lihdr(0,0,14),40,97,51,49,53,49,54,32,112,32,115,116,114,41,0,0}; static C_char C_TLS li740[] C_aligned={C_lihdr(0,0,10),40,97,51,49,53,51,53,32,112,41,0,0,0,0,0,0}; static C_char C_TLS li741[] C_aligned={C_lihdr(0,0,10),40,97,51,49,53,51,56,32,112,41,0,0,0,0,0,0}; static C_char C_TLS li742[] C_aligned={C_lihdr(0,0,23),40,97,51,49,53,52,49,32,112,32,110,32,100,101,115,116,32,115,116,97,114,116,41,0}; static C_char C_TLS li743[] C_aligned={C_lihdr(0,0,12),40,97,51,49,54,49,54,32,112,111,115,41,0,0,0,0}; static C_char C_TLS li744[] C_aligned={C_lihdr(0,0,8),40,97,51,49,54,48,54,41}; static C_char C_TLS li745[] C_aligned={C_lihdr(0,0,29),40,97,51,49,54,50,53,32,110,101,120,116,32,108,105,110,101,32,102,117,108,108,45,108,105,110,101,63,41,0,0,0}; static C_char C_TLS li746[] C_aligned={C_lihdr(0,0,16),40,97,51,49,53,56,50,32,112,32,108,105,109,105,116,41}; static C_char C_TLS li747[] C_aligned={C_lihdr(0,0,10),40,97,51,49,54,54,54,32,112,41,0,0,0,0,0,0}; static C_char C_TLS li748[] C_aligned={C_lihdr(0,0,37),40,99,111,112,121,38,97,112,112,101,110,100,32,98,117,102,32,111,102,102,115,101,116,32,112,111,115,32,111,108,100,45,108,105,110,101,41,0,0,0}; static C_char C_TLS li749[] C_aligned={C_lihdr(0,0,8),40,97,50,53,50,52,52,41}; static C_char C_TLS li750[] C_aligned={C_lihdr(0,0,25),40,97,50,53,50,53,48,32,98,117,102,32,111,102,102,115,101,116,32,108,105,109,105,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li751[] C_aligned={C_lihdr(0,0,8),40,97,50,53,51,48,56,41}; static C_char C_TLS li752[] C_aligned={C_lihdr(0,0,25),40,97,50,53,51,49,52,32,98,117,102,32,111,102,102,115,101,116,32,108,105,109,105,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li753[] C_aligned={C_lihdr(0,0,32),40,108,111,111,112,32,98,117,102,32,111,102,102,115,101,116,32,112,111,115,32,108,105,109,105,116,32,108,105,110,101,41}; static C_char C_TLS li754[] C_aligned={C_lihdr(0,0,56),40,35,35,115,121,115,35,115,99,97,110,45,98,117,102,102,101,114,45,108,105,110,101,32,98,117,102,32,108,105,109,105,116,32,115,116,97,114,116,45,112,111,115,32,101,111,115,45,104,97,110,100,108,101,114,41}; static C_char C_TLS li755[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,98,97,115,101,35,111,112,101,110,45,105,110,112,117,116,45,115,116,114,105,110,103,32,115,116,114,105,110,103,41,0}; static C_char C_TLS li756[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,111,112,101,110,45,111,117,116,112,117,116,45,115,116,114,105,110,103,41,0,0,0,0,0,0,0}; static C_char C_TLS li757[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,98,97,115,101,35,103,101,116,45,111,117,116,112,117,116,45,115,116,114,105,110,103,32,112,111,114,116,41,0,0,0}; static C_char C_TLS li758[] C_aligned={C_lihdr(0,0,9),40,103,53,53,57,51,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li759[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,53,57,50,32,103,53,53,57,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li760[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,112,114,105,110,116,45,116,111,45,115,116,114,105,110,103,32,120,115,41,0,0,0,0,0,0}; static C_char C_TLS li761[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,112,111,105,110,116,101,114,45,62,115,116,114,105,110,103,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li762[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li763[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,98,97,115,101,35,103,101,116,45,99,97,108,108,45,99,104,97,105,110,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li764[] C_aligned={C_lihdr(0,0,8),40,97,50,53,55,53,54,41}; static C_char C_TLS li765[] C_aligned={C_lihdr(0,0,12),40,103,53,54,53,57,32,105,110,102,111,41,0,0,0,0}; static C_char C_TLS li766[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,54,53,56,32,103,53,54,54,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li767[] C_aligned={C_lihdr(0,0,49),40,35,35,115,121,115,35,114,101,97,108,108,121,45,112,114,105,110,116,45,99,97,108,108,45,99,104,97,105,110,32,112,111,114,116,32,99,104,97,105,110,32,104,101,97,100,101,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li768[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,105,110,116,45,99,97,108,108,45,99,104,97,105,110,32,46,32,114,101,115,116,41,0,0}; static C_char C_TLS li769[] C_aligned={C_lihdr(0,0,7),40,98,114,101,97,107,41,0}; static C_char C_TLS li770[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,117,115,101,114,45,105,110,116,101,114,114,117,112,116,45,104,111,111,107,41,0,0,0,0,0}; static C_char C_TLS li771[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,55,49,56,32,103,53,55,50,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li772[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li773[] C_aligned={C_lihdr(0,0,21),40,99,108,101,97,110,117,112,45,98,101,102,111,114,101,45,101,120,105,116,41,0,0,0}; static C_char C_TLS li774[] C_aligned={C_lihdr(0,0,8),40,97,50,54,48,54,53,41}; static C_char C_TLS li775[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,55,56,54,32,103,53,55,57,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li776[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,115,105,103,110,97,108,45,104,111,111,107,32,109,111,100,101,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0}; static C_char C_TLS li777[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,97,98,111,114,116,32,120,41,0,0,0,0,0}; static C_char C_TLS li778[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,115,105,103,110,97,108,32,120,41,0,0,0,0}; static C_char C_TLS li779[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,117,114,114,101,110,116,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,99,41,0,0,0,0,0}; static C_char C_TLS li780[] C_aligned={C_lihdr(0,0,8),40,97,50,54,53,48,53,41}; static C_char C_TLS li781[] C_aligned={C_lihdr(0,0,8),40,97,50,54,53,48,57,41}; static C_char C_TLS li782[] C_aligned={C_lihdr(0,0,56),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,119,105,116,104,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,104,97,110,100,108,101,114,32,116,104,117,110,107,41}; static C_char C_TLS li783[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,53,57,52,54,41,0,0,0,0,0,0}; static C_char C_TLS li784[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,117,114,114,101,110,116,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,46,32,97,114,103,115,41,0,0,0,0}; static C_char C_TLS li785[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,111,112,115,41,0,0,0,0}; static C_char C_TLS li786[] C_aligned={C_lihdr(0,0,69),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,112,114,111,112,45,108,105,115,116,45,62,107,105,110,100,45,112,114,101,102,105,120,101,100,45,112,114,111,112,45,108,105,115,116,32,108,111,99,32,107,105,110,100,32,112,108,105,115,116,41,0,0,0}; static C_char C_TLS li787[] C_aligned={C_lihdr(0,0,56),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,109,97,107,101,45,112,114,111,112,101,114,116,121,45,99,111,110,100,105,116,105,111,110,32,107,105,110,100,32,46,32,112,114,111,112,115,41}; static C_char C_TLS li788[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,57,57,48,41,0,0,0,0,0}; static C_char C_TLS li789[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,54,48,51,53,32,103,54,48,52,55,41,0,0,0,0}; static C_char C_TLS li790[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,54,48,48,56,32,103,54,48,50,48,41,0,0,0,0}; static C_char C_TLS li791[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,109,97,107,101,45,99,111,109,112,111,115,105,116,101,45,99,111,110,100,105,116,105,111,110,32,99,49,32,46,32,99,111,110,100,115,41,0}; static C_char C_TLS li792[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,54,48,57,53,32,103,54,49,48,55,41,0,0,0,0}; static C_char C_TLS li793[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,54,48,54,56,32,103,54,48,56,48,41,0,0,0,0}; static C_char C_TLS li794[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,32,97,114,103,49,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li795[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,63,32,120,41}; static C_char C_TLS li796[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,111,112,115,41,0,0,0,0}; static C_char C_TLS li797[] C_aligned={C_lihdr(0,0,9),40,103,54,49,51,49,32,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li798[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,54,49,50,53,32,103,54,49,51,55,41,0,0,0,0}; static C_char C_TLS li799[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,45,62,108,105,115,116,32,120,41,0,0,0}; static C_char C_TLS li800[] C_aligned={C_lihdr(0,0,11),40,102,95,50,55,48,50,56,32,99,41,0,0,0,0,0}; static C_char C_TLS li801[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,45,112,114,101,100,105,99,97,116,101,32,107,105,110,100,41,0,0,0,0}; static C_char C_TLS li802[] C_aligned={C_lihdr(0,0,11),40,102,95,50,55,48,53,53,32,99,41,0,0,0,0,0}; static C_char C_TLS li803[] C_aligned={C_lihdr(0,0,67),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,45,112,114,111,112,101,114,116,121,45,97,99,99,101,115,115,111,114,32,107,105,110,100,32,112,114,111,112,32,46,32,101,114,114,45,100,101,102,41,0,0,0,0,0}; static C_char C_TLS li804[] C_aligned={C_lihdr(0,0,64),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,103,101,116,45,99,111,110,100,105,116,105,111,110,45,112,114,111,112,101,114,116,121,32,99,32,107,105,110,100,32,112,114,111,112,32,46,32,101,114,114,45,100,101,102,41}; static C_char C_TLS li805[] C_aligned={C_lihdr(0,0,8),40,97,50,55,49,50,49,41}; static C_char C_TLS li806[] C_aligned={C_lihdr(0,0,9),40,103,54,49,57,54,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li807[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,49,57,53,32,103,54,50,48,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li808[] C_aligned={C_lihdr(0,0,21),40,119,114,105,116,101,97,114,103,115,32,97,114,103,115,32,112,111,114,116,41,0,0,0}; static C_char C_TLS li809[] C_aligned={C_lihdr(0,0,11),40,103,54,50,51,57,32,109,115,103,41,0,0,0,0,0}; static C_char C_TLS li810[] C_aligned={C_lihdr(0,0,22),40,98,111,100,121,54,50,49,54,32,112,111,114,116,32,104,101,97,100,101,114,41,0,0}; static C_char C_TLS li811[] C_aligned={C_lihdr(0,0,22),40,100,101,102,45,104,101,97,100,101,114,54,50,49,57,32,37,112,111,114,116,41,0,0}; static C_char C_TLS li812[] C_aligned={C_lihdr(0,0,14),40,100,101,102,45,112,111,114,116,54,50,49,56,41,0,0}; static C_char C_TLS li813[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,112,114,105,110,116,45,101,114,114,111,114,45,109,101,115,115,97,103,101,32,101,120,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li814[] C_aligned={C_lihdr(0,0,47),40,35,35,115,121,115,35,115,104,111,119,45,101,120,99,101,112,116,105,111,110,45,119,97,114,110,105,110,103,32,101,120,110,32,99,97,117,115,101,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li815[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,101,114,114,111,114,45,104,111,111,107,32,99,111,100,101,32,108,111,99,32,46,32,97,114,103,115,41,0,0,0,0,0,0}; static C_char C_TLS li816[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,115,116,114,117,99,116,117,114,101,63,32,120,32,115,41,0,0}; static C_char C_TLS li817[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,103,101,110,101,114,105,99,45,115,116,114,117,99,116,117,114,101,63,32,120,41,0,0,0,0}; static C_char C_TLS li818[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,115,108,111,116,32,120,32,105,41}; static C_char C_TLS li819[] C_aligned={C_lihdr(0,0,14),40,35,35,115,121,115,35,115,105,122,101,32,120,41,0,0}; static C_char C_TLS li820[] C_aligned={C_lihdr(0,0,14),67,95,109,97,107,101,95,112,111,105,110,116,101,114,0,0}; static C_char C_TLS li821[] C_aligned={C_lihdr(0,0,21),67,95,109,97,107,101,95,116,97,103,103,101,100,95,112,111,105,110,116,101,114,0,0,0}; static C_char C_TLS li822[] C_aligned={C_lihdr(0,0,18),40,35,35,115,121,115,35,112,111,105,110,116,101,114,63,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li823[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,115,101,116,45,112,111,105,110,116,101,114,45,97,100,100,114,101,115,115,33,32,112,116,114,32,97,100,100,114,41,0,0,0}; static C_char C_TLS li824[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,98,121,116,101,118,101,99,116,111,114,63,32,120,41,0,0,0}; static C_char C_TLS li825[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,112,98,121,116,101,118,101,99,116,111,114,32,115,41,0,0,0}; static C_char C_TLS li826[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,112,101,114,109,97,110,101,110,116,63,32,120,41,0,0,0,0}; static C_char C_TLS li827[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,98,108,111,99,107,45,97,100,100,114,101,115,115,32,120,41,0}; static C_char C_TLS li828[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,108,111,99,97,116,105,118,101,63,32,120,41,0,0,0,0,0}; static C_char C_TLS li829[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,115,114,102,105,45,52,45,118,101,99,116,111,114,63,32,120,41}; static C_char C_TLS li830[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,110,117,108,108,45,112,111,105,110,116,101,114,41,0,0,0,0}; static C_char C_TLS li831[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,110,117,108,108,45,112,111,105,110,116,101,114,63,32,120,41,0}; static C_char C_TLS li832[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,97,100,100,114,101,115,115,45,62,112,111,105,110,116,101,114,32,97,100,100,114,41,0,0,0}; static C_char C_TLS li833[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,112,111,105,110,116,101,114,45,62,97,100,100,114,101,115,115,32,112,116,114,41,0,0,0,0}; static C_char C_TLS li834[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,109,97,107,101,45,99,45,115,116,114,105,110,103,32,115,116,114,32,46,32,114,101,115,116,41}; static C_char C_TLS li835[] C_aligned={C_lihdr(0,0,21),67,95,112,101,101,107,95,115,105,103,110,101,100,95,105,110,116,101,103,101,114,0,0,0}; static C_char C_TLS li836[] C_aligned={C_lihdr(0,0,23),67,95,112,101,101,107,95,117,110,115,105,103,110,101,100,95,105,110,116,101,103,101,114,0}; static C_char C_TLS li837[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,112,101,101,107,45,102,105,120,110,117,109,32,98,32,105,41,0}; static C_char C_TLS li838[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,112,101,101,107,45,98,121,116,101,32,112,116,114,32,105,41,0}; static C_char C_TLS li839[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,118,101,99,116,111,114,45,62,115,116,114,117,99,116,117,114,101,33,32,118,101,99,41,0,0}; static C_char C_TLS li840[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,112,101,101,107,45,100,111,117,98,108,101,32,98,32,105,41,0}; static C_char C_TLS li841[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,112,101,101,107,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0,0}; static C_char C_TLS li842[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,112,101,101,107,45,110,111,110,110,117,108,108,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0,0}; static C_char C_TLS li843[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,112,101,101,107,45,97,110,100,45,102,114,101,101,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0}; static C_char C_TLS li844[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,112,101,101,107,45,97,110,100,45,102,114,101,101,45,110,111,110,110,117,108,108,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0}; static C_char C_TLS li845[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,112,111,107,101,45,99,45,115,116,114,105,110,103,32,98,32,105,32,115,41,0,0,0,0,0}; static C_char C_TLS li846[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,112,111,107,101,45,105,110,116,101,103,101,114,32,98,32,105,32,110,41,0,0,0,0,0,0}; static C_char C_TLS li847[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,112,111,107,101,45,100,111,117,98,108,101,32,98,32,105,32,110,41,0,0,0,0,0,0,0}; static C_char C_TLS li848[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li849[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,112,101,101,107,45,99,45,115,116,114,105,110,103,45,108,105,115,116,32,112,116,114,32,110,41}; static C_char C_TLS li850[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li851[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,112,101,101,107,45,97,110,100,45,102,114,101,101,45,99,45,115,116,114,105,110,103,45,108,105,115,116,32,112,116,114,32,110,41,0,0,0,0,0,0,0}; static C_char C_TLS li852[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,118,101,99,116,111,114,45,62,99,108,111,115,117,114,101,33,32,118,101,99,32,97,100,100,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li853[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,115,121,109,98,111,108,45,104,97,115,45,116,111,112,108,101,118,101,108,45,98,105,110,100,105,110,103,63,32,115,41,0,0}; static C_char C_TLS li854[] C_aligned={C_lihdr(0,0,48),40,35,35,115,121,115,35,99,111,112,121,45,98,121,116,101,115,32,102,114,111,109,32,116,111,32,111,102,102,115,101,116,49,32,111,102,102,115,101,116,50,32,98,121,116,101,115,41}; static C_char C_TLS li855[] C_aligned={C_lihdr(0,0,48),40,35,35,115,121,115,35,99,111,112,121,45,119,111,114,100,115,32,102,114,111,109,32,116,111,32,111,102,102,115,101,116,49,32,111,102,102,115,101,116,50,32,119,111,114,100,115,41}; static C_char C_TLS li856[] C_aligned={C_lihdr(0,0,51),40,35,35,115,121,115,35,99,111,109,112,97,114,101,45,98,121,116,101,115,32,102,114,111,109,32,116,111,32,111,102,102,115,101,116,49,32,111,102,102,115,101,116,50,32,98,121,116,101,115,41,0,0,0,0,0}; static C_char C_TLS li857[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,98,108,111,99,107,45,112,111,105,110,116,101,114,32,120,41,0}; static C_char C_TLS li858[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,99,104,97,114,45,97,114,103,117,109,101,110,116,32,120,41,0}; static C_char C_TLS li859[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,102,105,120,110,117,109,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li860[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,102,108,111,110,117,109,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li861[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,98,108,111,99,107,45,97,114,103,117,109,101,110,116,32,120,41}; static C_char C_TLS li862[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,115,116,114,117,99,116,45,119,114,97,112,112,101,114,45,97,114,103,117,109,101,110,116,32,116,32,120,41,0,0,0,0,0}; static C_char C_TLS li863[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,115,116,114,105,110,103,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li864[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,115,121,109,98,111,108,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li865[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,112,111,105,110,116,101,114,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li866[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,116,97,103,103,101,100,45,112,111,105,110,116,101,114,45,97,114,103,117,109,101,110,116,32,120,32,116,120,41,0,0,0,0}; static C_char C_TLS li867[] C_aligned={C_lihdr(0,0,48),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,114,97,110,103,101,100,45,105,110,116,101,103,101,114,45,97,114,103,117,109,101,110,116,32,111,98,106,32,115,105,122,101,41}; static C_char C_TLS li868[] C_aligned={C_lihdr(0,0,57),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,117,110,115,105,103,110,101,100,45,114,97,110,103,101,100,45,105,110,116,101,103,101,114,45,97,114,103,117,109,101,110,116,32,111,98,106,32,115,105,122,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li869[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,100,101,102,97,117,108,116,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,97,114,103,41,0,0,0}; static C_char C_TLS li870[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,109,97,107,101,45,116,104,114,101,97,100,32,116,104,117,110,107,32,115,116,97,116,101,32,110,97,109,101,32,113,41,0,0}; static C_char C_TLS li871[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,109,97,107,101,45,109,117,116,101,120,32,105,100,32,111,119,110,101,114,41,0,0,0,0,0}; static C_char C_TLS li872[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,115,99,104,101,100,117,108,101,41}; static C_char C_TLS li873[] C_aligned={C_lihdr(0,0,8),40,97,50,56,52,55,50,41}; static C_char C_TLS li874[] C_aligned={C_lihdr(0,0,15),40,97,50,56,52,54,51,32,114,101,116,117,114,110,41,0}; static C_char C_TLS li875[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,116,104,114,101,97,100,45,121,105,101,108,100,33,41,0,0,0}; static C_char C_TLS li876[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,107,105,108,108,45,111,116,104,101,114,45,116,104,114,101,97,100,115,32,116,104,117,110,107,41}; static C_char C_TLS li877[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,108,101,101,112,45,104,111,111,107,32,110,41,0,0,0,0,0}; static C_char C_TLS li878[] C_aligned={C_lihdr(0,0,22),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,108,101,101,112,32,110,41,0,0}; static C_char C_TLS li879[] C_aligned={C_lihdr(0,0,16),67,95,99,111,110,116,101,120,116,95,115,119,105,116,99,104}; static C_char C_TLS li880[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,114,101,97,115,111,110,41,0,0,0}; static C_char C_TLS li881[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,105,110,116,101,114,114,117,112,116,45,104,111,111,107,32,114,101,97,115,111,110,32,115,116,97,116,101,41,0,0,0,0,0}; static C_char C_TLS li882[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,100,105,115,112,97,116,99,104,45,105,110,116,101,114,114,117,112,116,32,107,41,0,0,0,0}; static C_char C_TLS li883[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,117,112,100,97,116,101,45,101,114,114,110,111,41,0,0,0,0}; static C_char C_TLS li884[] C_aligned={C_lihdr(0,0,13),40,35,35,115,121,115,35,101,114,114,110,111,41,0,0,0}; static C_char C_TLS li885[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,54,54,49,53,32,99,41,0,0}; static C_char C_TLS li886[] C_aligned={C_lihdr(0,0,13),40,114,101,97,100,108,110,32,112,111,114,116,41,0,0,0}; static C_char C_TLS li887[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li888[] C_aligned={C_lihdr(0,0,36),40,114,101,97,100,45,101,115,99,97,112,101,100,45,115,101,120,112,32,112,111,114,116,32,115,107,105,112,45,98,114,97,99,101,63,41,0,0,0,0}; static C_char C_TLS li889[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,54,53,48,32,108,110,41,0}; static C_char C_TLS li890[] C_aligned={C_lihdr(0,0,15),40,103,101,116,47,99,108,101,97,114,45,115,116,114,41,0}; static C_char C_TLS li891[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,50,32,108,115,116,32,110,101,120,116,45,115,116,114,105,110,103,32,97,99,99,41,0,0,0,0,0}; static C_char C_TLS li892[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li893[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,117,115,101,114,45,114,101,97,100,45,104,111,111,107,32,99,104,97,114,32,112,111,114,116,41}; static C_char C_TLS li894[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,41,0}; static C_char C_TLS li895[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,45,104,111,111,107,32,100,105,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li896[] C_aligned={C_lihdr(0,0,71),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,103,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,32,110,111,110,110,117,108,108,45,99,45,115,116,114,105,110,103,54,55,54,55,41,0}; static C_char C_TLS li897[] C_aligned={C_lihdr(0,0,59),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,115,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,33,32,118,97,114,32,118,97,108,41,0,0,0,0,0}; static C_char C_TLS li898[] C_aligned={C_lihdr(0,0,57),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,117,110,115,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,33,32,118,97,114,41,0,0,0,0,0,0,0}; static C_char C_TLS li899[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,106,41}; static C_char C_TLS li900[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li901[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,103,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,115,41,0,0,0,0,0}; static C_char C_TLS li902[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,101,120,101,99,117,116,97,98,108,101,45,112,97,116,104,110,97,109,101,41,0,0,0}; static C_char C_TLS li903[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,97,114,103,99,43,97,114,103,118,41,0,0,0,0,0}; static C_char C_TLS li904[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,54,56,48,57,32,105,32,118,41}; static C_char C_TLS li905[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,97,114,103,118,41,0,0}; static C_char C_TLS li906[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,103,99,35,99,117,114,114,101,110,116,45,103,99,45,109,105,108,108,105,115,101,99,111,110,100,115,41,0,0,0,0}; static C_char C_TLS li907[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,103,99,35,115,101,116,45,103,99,45,114,101,112,111,114,116,33,32,102,108,97,103,41}; static C_char C_TLS li908[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,103,99,35,109,101,109,111,114,121,45,115,116,97,116,105,115,116,105,99,115,41,0,0}; static C_char C_TLS li909[] C_aligned={C_lihdr(0,0,20),67,95,114,101,103,105,115,116,101,114,95,102,105,110,97,108,105,122,101,114,0,0,0,0}; static C_char C_TLS li910[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,103,99,35,115,101,116,45,102,105,110,97,108,105,122,101,114,33,32,120,32,121,41,0}; static C_char C_TLS li911[] C_aligned={C_lihdr(0,0,8),40,97,50,57,53,48,52,41}; static C_char C_TLS li912[] C_aligned={C_lihdr(0,0,11),40,97,50,57,52,57,56,32,101,120,41,0,0,0,0,0}; static C_char C_TLS li913[] C_aligned={C_lihdr(0,0,8),40,97,50,57,53,49,54,41}; static C_char C_TLS li914[] C_aligned={C_lihdr(0,0,8),40,97,50,57,53,51,57,41}; static C_char C_TLS li915[] C_aligned={C_lihdr(0,0,15),40,97,50,57,53,51,51,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li916[] C_aligned={C_lihdr(0,0,8),40,97,50,57,53,49,48,41}; static C_char C_TLS li917[] C_aligned={C_lihdr(0,0,10),40,97,50,57,52,57,50,32,107,41,0,0,0,0,0,0}; static C_char C_TLS li918[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,54,56,56,52,32,105,41,0,0}; static C_char C_TLS li919[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,114,117,110,45,112,101,110,100,105,110,103,45,102,105,110,97,108,105,122,101,114,115,32,115,116,97,116,101,41,0,0,0,0}; static C_char C_TLS li920[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li921[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,102,111,114,99,101,45,102,105,110,97,108,105,122,101,114,115,41}; static C_char C_TLS li922[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,103,99,35,103,99,32,46,32,97,114,103,41,0,0,0}; static C_char C_TLS li923[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,109,97,107,101,45,108,111,99,97,116,105,118,101,32,111,98,106,32,105,110,100,101,120,32,119,101,97,107,63,32,108,111,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li924[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,112,117,116,33,32,115,121,109,32,112,114,111,112,32,118,97,108,41,0,0,0,0,0,0,0}; static C_char C_TLS li925[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,103,101,116,32,115,121,109,32,112,114,111,112,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li926[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,112,116,108,41,0,0,0,0,0,0}; static C_char C_TLS li927[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,114,101,109,112,114,111,112,33,32,115,121,109,32,112,114,111,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li928[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,108,105,115,116,41,0,0,0,0}; static C_char C_TLS li929[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,103,101,116,45,112,114,111,112,101,114,116,105,101,115,32,115,121,109,32,112,114,111,112,115,41}; static C_char C_TLS li930[] C_aligned={C_lihdr(0,0,10),40,112,110,117,109,32,110,117,109,41,0,0,0,0,0,0}; static C_char C_TLS li931[] C_aligned={C_lihdr(0,0,14),40,114,111,117,110,100,45,116,111,32,120,32,121,41,0,0}; static C_char C_TLS li932[] C_aligned={C_lihdr(0,0,12),40,112,109,101,109,32,98,121,116,101,115,41,0,0,0,0}; static C_char C_TLS li933[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,100,105,115,112,108,97,121,45,116,105,109,101,115,32,105,110,102,111,41,0,0,0,0,0,0}; static C_char C_TLS li934[] C_aligned={C_lihdr(0,0,17),67,95,100,117,109,112,95,104,101,97,112,95,115,116,97,116,101,0,0,0,0,0,0,0}; static C_char C_TLS li935[] C_aligned={C_lihdr(0,0,21),67,95,102,105,108,116,101,114,95,104,101,97,112,95,111,98,106,101,99,116,115,0,0,0}; static C_char C_TLS li936[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,111,102,116,119,97,114,101,45,116,121,112,101,41}; static C_char C_TLS li937[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,109,97,99,104,105,110,101,45,116,121,112,101,41,0}; static C_char C_TLS li938[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,109,97,99,104,105,110,101,45,98,121,116,101,45,111,114,100,101,114,41,0,0,0}; static C_char C_TLS li939[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,111,102,116,119,97,114,101,45,118,101,114,115,105,111,110,41,0,0,0,0,0}; static C_char C_TLS li940[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,98,117,105,108,100,45,112,108,97,116,102,111,114,109,41,0,0,0,0,0,0,0}; static C_char C_TLS li941[] C_aligned={C_lihdr(0,0,7),40,115,116,114,32,120,41,0}; static C_char C_TLS li942[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,99,104,105,99,107,101,110,45,118,101,114,115,105,111,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li943[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,99,104,105,99,107,101,110,45,104,111,109,101,41,0}; static C_char C_TLS li944[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,115,116,97,114,116,32,112,111,115,41}; static C_char C_TLS li945[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,115,112,108,105,116,45,112,97,116,104,32,112,97,116,104,41,0}; static C_char C_TLS li946[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,45,62,102,101,97,116,117,114,101,45,105,100,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li947[] C_aligned={C_lihdr(0,0,9),40,99,104,101,99,107,32,102,41,0,0,0,0,0,0,0}; static C_char C_TLS li948[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,50,56,52,32,103,55,50,57,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li949[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,114,101,103,105,115,116,101,114,45,102,101,97,116,117,114,101,33,32,46,32,102,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li950[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,102,102,115,41,0,0,0,0,0,0}; static C_char C_TLS li951[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,55,51,48,55,32,103,55,51,49,57,41,0,0,0,0}; static C_char C_TLS li952[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,117,110,114,101,103,105,115,116,101,114,45,102,101,97,116,117,114,101,33,32,46,32,102,115,41,0,0,0,0,0}; static C_char C_TLS li953[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,102,101,97,116,117,114,101,115,41,0,0,0,0,0}; static C_char C_TLS li954[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,105,100,115,41,0,0,0,0,0,0}; static C_char C_TLS li955[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,102,101,97,116,117,114,101,63,32,46,32,105,100,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li956[] C_aligned={C_lihdr(0,0,16),67,95,114,101,116,117,114,110,95,116,111,95,104,111,115,116}; static C_char C_TLS li957[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,121,115,116,101,109,45,99,111,110,102,105,103,45,100,105,114,101,99,116,111,114,121,41,0,0,0,0,0,0}; static C_char C_TLS li958[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,121,115,116,101,109,45,99,97,99,104,101,45,100,105,114,101,99,116,111,114,121,41,0,0,0,0,0,0,0}; static C_char C_TLS li959[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,50,50,54,41,0,0,0,0,0}; static C_char C_TLS li960[] C_aligned={C_lihdr(0,0,12),40,97,51,48,57,57,52,32,110,101,119,41,0,0,0,0}; static C_char C_TLS li961[] C_aligned={C_lihdr(0,0,16),67,95,98,117,105,108,100,95,112,108,97,116,102,111,114,109}; static C_char C_TLS li962[] C_aligned={C_lihdr(0,0,18),67,95,115,111,102,116,119,97,114,101,95,118,101,114,115,105,111,110,0,0,0,0,0,0}; static C_char C_TLS li963[] C_aligned={C_lihdr(0,0,20),67,95,109,97,99,104,105,110,101,95,98,121,116,101,95,111,114,100,101,114,0,0,0,0}; static C_char C_TLS li964[] C_aligned={C_lihdr(0,0,14),67,95,109,97,99,104,105,110,101,95,116,121,112,101,0,0}; static C_char C_TLS li965[] C_aligned={C_lihdr(0,0,15),67,95,115,111,102,116,119,97,114,101,95,116,121,112,101,0}; static C_char C_TLS li966[] C_aligned={C_lihdr(0,0,12),40,97,51,49,48,57,51,32,115,121,109,41,0,0,0,0}; static C_char C_TLS li967[] C_aligned={C_lihdr(0,0,16),40,97,51,49,49,48,50,32,115,121,109,32,108,115,116,41}; static C_char C_TLS li968[] C_aligned={C_lihdr(0,0,10),40,97,51,49,49,52,50,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li969[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,97,114,103,115,41,0,0,0,0,0}; static C_char C_TLS li970[] C_aligned={C_lihdr(0,0,19),40,102,51,54,55,57,56,32,120,54,56,50,54,51,54,55,57,55,41,0,0,0,0,0}; static C_char C_TLS li971[] C_aligned={C_lihdr(0,0,19),40,102,51,54,56,48,52,32,120,54,56,49,54,51,54,56,48,51,41,0,0,0,0,0}; static C_char C_TLS li972[] C_aligned={C_lihdr(0,0,19),40,102,51,54,56,49,48,32,120,54,56,49,54,51,54,56,48,57,41,0,0,0,0,0}; static C_char C_TLS li973[] C_aligned={C_lihdr(0,0,8),40,97,51,49,50,50,55,41}; static C_char C_TLS li974[] C_aligned={C_lihdr(0,0,12),40,97,51,49,50,52,57,32,100,105,114,41,0,0,0,0}; static C_char C_TLS li975[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,56,53,49,32,103,53,56,53,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li976[] C_aligned={C_lihdr(0,0,8),40,97,51,49,51,48,48,41}; static C_char C_TLS li977[] C_aligned={C_lihdr(0,0,9),40,103,53,56,56,51,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li978[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,53,56,56,50,32,103,53,56,56,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li979[] C_aligned={C_lihdr(0,0,15),40,97,51,49,52,49,50,32,46,32,97,114,103,115,41,0}; static C_char C_TLS li980[] C_aligned={C_lihdr(0,0,19),40,97,51,49,50,53,53,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0}; static C_char C_TLS li981[] C_aligned={C_lihdr(0,0,8),40,97,51,49,52,49,53,41}; static C_char C_TLS li982[] C_aligned={C_lihdr(0,0,8),40,97,51,49,52,50,52,41}; static C_char C_TLS li983[] C_aligned={C_lihdr(0,0,15),40,97,51,49,52,51,48,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li984[] C_aligned={C_lihdr(0,0,14),40,97,51,49,54,57,52,32,120,32,105,32,121,41,0,0}; static C_char C_TLS li985[] C_aligned={C_lihdr(0,0,12),40,97,51,49,55,48,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li986[] C_aligned={C_lihdr(0,0,12),40,97,51,49,55,49,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li987[] C_aligned={C_lihdr(0,0,12),40,97,51,49,55,50,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li988[] C_aligned={C_lihdr(0,0,12),40,97,51,49,55,51,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li989[] C_aligned={C_lihdr(0,0,12),40,97,51,49,55,52,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li990[] C_aligned={C_lihdr(0,0,12),40,97,51,49,55,53,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li991[] C_aligned={C_lihdr(0,0,12),40,97,51,49,55,54,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li992[] C_aligned={C_lihdr(0,0,12),40,97,51,49,55,55,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li993[] C_aligned={C_lihdr(0,0,12),40,97,51,49,55,56,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li994[] C_aligned={C_lihdr(0,0,12),40,97,51,49,55,57,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li995[] C_aligned={C_lihdr(0,0,12),40,97,51,49,56,48,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li996[] C_aligned={C_lihdr(0,0,12),40,97,51,49,56,49,52,32,120,32,121,41,0,0,0,0}; static C_char C_TLS li997[] C_aligned={C_lihdr(0,0,10),40,97,51,49,56,52,56,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li998[] C_aligned={C_lihdr(0,0,13),40,97,51,49,56,50,52,32,112,114,111,99,41,0,0,0}; static C_char C_TLS li999[] C_aligned={C_lihdr(0,0,10),40,97,51,49,56,54,52,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li1000[] C_aligned={C_lihdr(0,0,10),40,97,51,49,57,49,57,32,120,41,0,0,0,0,0,0}; static C_char C_TLS li1001[] C_aligned={C_lihdr(0,0,15),40,97,51,49,57,51,53,32,112,114,111,99,32,105,41,0}; static C_char C_TLS li1002[] C_aligned={C_lihdr(0,0,16),40,97,51,49,56,57,48,32,103,101,116,32,115,101,116,41}; static C_char C_TLS li1003[] C_aligned={C_lihdr(0,0,15),40,97,51,49,56,56,48,32,112,114,111,99,32,105,41,0}; static C_char C_TLS li1004[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; #define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub6805(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word i=(C_word )(C_a0); C_return(C_main_argv[C_unfix(i)]); C_ret: #undef return return C_r;} /* from chicken.process-context#executable-pathname in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ C_regparm static C_word C_fcall stub6797(C_word C_buf){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_r=C_mpointer(&C_a,(void*)C_executable_pathname()); return C_r;} /* from k29188 */ C_regparm static C_word C_fcall stub6785(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; int t0=(int )C_unfix(C_a0); C_r=C_mpointer(&C_a,(void*)C_getenventry(t0)); return C_r;} /* from k29146 in chicken.process-context#get-environment-variable in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ C_regparm static C_word C_fcall stub6768(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; char * t0=(char * )C_c_string(C_a0); C_r=C_mpointer(&C_a,(void*)C_getenv(t0)); return C_r;} /* from k28306 */ C_regparm static C_word C_fcall stub6482(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_c_pointer_or_null(C_a0); C_free(t0); return C_r;} /* from k28297 */ C_regparm static C_word C_fcall stub6474(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_c_pointer_or_null(C_a0); int t1=(int )C_unfix(C_a1); C_r=C_mpointer(&C_a,(void*)C_peek_c_string_at(t0,t1)); return C_r;} /* from k28245 */ C_regparm static C_word C_fcall stub6455(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; void * t0=(void * )C_c_pointer_or_null(C_a0); int t1=(int )C_unfix(C_a1); C_r=C_mpointer(&C_a,(void*)C_peek_c_string_at(t0,t1)); return C_r;} #define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_ret; C_cblockend C_regparm static C_word C_fcall stub5615(C_word C_buf,C_word C_a0){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; C_word x=(C_word )(C_a0); C_return((C_char *)x); C_ret: #undef return return C_r;} /* from k15536 */ C_regparm static C_word C_fcall stub2825(C_word C_buf,C_word C_a0,C_word C_a1){ C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; double t0=(double )C_c_double(C_a0); int t1=(int )C_unfix(C_a1); C_r=C_flonum(&C_a,ldexp(t0,t1)); return C_r;} C_noret_decl(f34042) static void C_ccall f34042(C_word c,C_word *av) C_noret; C_noret_decl(f34566) static void C_ccall f34566(C_word c,C_word *av) C_noret; C_noret_decl(f36798) static void C_ccall f36798(C_word c,C_word *av) C_noret; C_noret_decl(f36804) static void C_ccall f36804(C_word c,C_word *av) C_noret; C_noret_decl(f36810) static void C_ccall f36810(C_word c,C_word *av) C_noret; C_noret_decl(f_10014) static void C_ccall f_10014(C_word c,C_word *av) C_noret; C_noret_decl(f_10020) static void C_fcall f_10020(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10036) static void C_ccall f_10036(C_word c,C_word *av) C_noret; C_noret_decl(f_10061) static void C_ccall f_10061(C_word c,C_word *av) C_noret; C_noret_decl(f_10070) static void C_fcall f_10070(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10111) static void C_ccall f_10111(C_word c,C_word *av) C_noret; C_noret_decl(f_10133) static void C_ccall f_10133(C_word c,C_word *av) C_noret; C_noret_decl(f_10165) static void C_ccall f_10165(C_word c,C_word *av) C_noret; C_noret_decl(f_10181) static void C_fcall f_10181(C_word t0,C_word t1) C_noret; C_noret_decl(f_10184) static void C_ccall f_10184(C_word c,C_word *av) C_noret; C_noret_decl(f_10206) static void C_ccall f_10206(C_word c,C_word *av) C_noret; C_noret_decl(f_10212) static void C_fcall f_10212(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10237) static void C_ccall f_10237(C_word c,C_word *av) C_noret; C_noret_decl(f_10277) static void C_ccall f_10277(C_word c,C_word *av) C_noret; C_noret_decl(f_10284) static void C_fcall f_10284(C_word t0,C_word t1) C_noret; C_noret_decl(f_10289) static void C_fcall f_10289(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10308) static void C_ccall f_10308(C_word c,C_word *av) C_noret; C_noret_decl(f_10330) static void C_ccall f_10330(C_word c,C_word *av) C_noret; C_noret_decl(f_10333) static void C_ccall f_10333(C_word c,C_word *av) C_noret; C_noret_decl(f_10336) static void C_ccall f_10336(C_word c,C_word *av) C_noret; C_noret_decl(f_10339) static void C_ccall f_10339(C_word c,C_word *av) C_noret; C_noret_decl(f_10345) static void C_ccall f_10345(C_word c,C_word *av) C_noret; C_noret_decl(f_10348) static void C_ccall f_10348(C_word c,C_word *av) C_noret; C_noret_decl(f_10351) static void C_ccall f_10351(C_word c,C_word *av) C_noret; C_noret_decl(f_10354) static void C_ccall f_10354(C_word c,C_word *av) C_noret; C_noret_decl(f_10357) static void C_ccall f_10357(C_word c,C_word *av) C_noret; C_noret_decl(f_10360) static void C_ccall f_10360(C_word c,C_word *av) C_noret; C_noret_decl(f_10363) static void C_ccall f_10363(C_word c,C_word *av) C_noret; C_noret_decl(f_10366) static void C_ccall f_10366(C_word c,C_word *av) C_noret; C_noret_decl(f_10369) static void C_ccall f_10369(C_word c,C_word *av) C_noret; C_noret_decl(f_10372) static void C_ccall f_10372(C_word c,C_word *av) C_noret; C_noret_decl(f_10375) static void C_ccall f_10375(C_word c,C_word *av) C_noret; C_noret_decl(f_10378) static void C_ccall f_10378(C_word c,C_word *av) C_noret; C_noret_decl(f_10381) static void C_ccall f_10381(C_word c,C_word *av) C_noret; C_noret_decl(f_10384) static void C_ccall f_10384(C_word c,C_word *av) C_noret; C_noret_decl(f_10387) static void C_ccall f_10387(C_word c,C_word *av) C_noret; C_noret_decl(f_10390) static void C_ccall f_10390(C_word c,C_word *av) C_noret; C_noret_decl(f_10393) static void C_ccall f_10393(C_word c,C_word *av) C_noret; C_noret_decl(f_10396) static void C_ccall f_10396(C_word c,C_word *av) C_noret; C_noret_decl(f_10399) static void C_ccall f_10399(C_word c,C_word *av) C_noret; C_noret_decl(f_10402) static void C_ccall f_10402(C_word c,C_word *av) C_noret; C_noret_decl(f_10405) static void C_ccall f_10405(C_word c,C_word *av) C_noret; C_noret_decl(f_10408) static void C_ccall f_10408(C_word c,C_word *av) C_noret; C_noret_decl(f_10411) static void C_ccall f_10411(C_word c,C_word *av) C_noret; C_noret_decl(f_10414) static void C_ccall f_10414(C_word c,C_word *av) C_noret; C_noret_decl(f_10417) static void C_ccall f_10417(C_word c,C_word *av) C_noret; C_noret_decl(f_10422) static void C_ccall f_10422(C_word c,C_word *av) C_noret; C_noret_decl(f_10431) static void C_ccall f_10431(C_word c,C_word *av) C_noret; C_noret_decl(f_10443) static void C_ccall f_10443(C_word c,C_word *av) C_noret; C_noret_decl(f_10458) static void C_ccall f_10458(C_word c,C_word *av) C_noret; C_noret_decl(f_10461) static void C_ccall f_10461(C_word c,C_word *av) C_noret; C_noret_decl(f_10469) static void C_ccall f_10469(C_word c,C_word *av) C_noret; C_noret_decl(f_10473) static void C_ccall f_10473(C_word c,C_word *av) C_noret; C_noret_decl(f_10475) static void C_ccall f_10475(C_word c,C_word *av) C_noret; C_noret_decl(f_10479) static void C_ccall f_10479(C_word c,C_word *av) C_noret; C_noret_decl(f_10482) static void C_ccall f_10482(C_word c,C_word *av) C_noret; C_noret_decl(f_10493) static void C_ccall f_10493(C_word c,C_word *av) C_noret; C_noret_decl(f_10495) static void C_ccall f_10495(C_word c,C_word *av) C_noret; C_noret_decl(f_10502) static void C_ccall f_10502(C_word c,C_word *av) C_noret; C_noret_decl(f_10505) static void C_ccall f_10505(C_word c,C_word *av) C_noret; C_noret_decl(f_10508) static void C_ccall f_10508(C_word c,C_word *av) C_noret; C_noret_decl(f_10513) static void C_ccall f_10513(C_word c,C_word *av) C_noret; C_noret_decl(f_10517) static void C_ccall f_10517(C_word c,C_word *av) C_noret; C_noret_decl(f_10522) static void C_ccall f_10522(C_word c,C_word *av) C_noret; C_noret_decl(f_10526) static void C_ccall f_10526(C_word c,C_word *av) C_noret; C_noret_decl(f_10529) static void C_ccall f_10529(C_word c,C_word *av) C_noret; C_noret_decl(f_10557) static void C_ccall f_10557(C_word c,C_word *av) C_noret; C_noret_decl(f_10560) static void C_ccall f_10560(C_word c,C_word *av) C_noret; C_noret_decl(f_10563) static void C_ccall f_10563(C_word c,C_word *av) C_noret; C_noret_decl(f_10580) static void C_ccall f_10580(C_word c,C_word *av) C_noret; C_noret_decl(f_10591) static void C_ccall f_10591(C_word c,C_word *av) C_noret; C_noret_decl(f_10603) static void C_ccall f_10603(C_word c,C_word *av) C_noret; C_noret_decl(f_10614) static void C_ccall f_10614(C_word c,C_word *av) C_noret; C_noret_decl(f_10625) static void C_ccall f_10625(C_word c,C_word *av) C_noret; C_noret_decl(f_10636) static void C_ccall f_10636(C_word c,C_word *av) C_noret; C_noret_decl(f_10647) static void C_ccall f_10647(C_word c,C_word *av) C_noret; C_noret_decl(f_10658) static void C_ccall f_10658(C_word c,C_word *av) C_noret; C_noret_decl(f_10669) static void C_ccall f_10669(C_word c,C_word *av) C_noret; C_noret_decl(f_10680) static void C_ccall f_10680(C_word c,C_word *av) C_noret; C_noret_decl(f_10691) static void C_ccall f_10691(C_word c,C_word *av) C_noret; C_noret_decl(f_10702) static void C_ccall f_10702(C_word c,C_word *av) C_noret; C_noret_decl(f_10713) static void C_ccall f_10713(C_word c,C_word *av) C_noret; C_noret_decl(f_10724) static void C_ccall f_10724(C_word c,C_word *av) C_noret; C_noret_decl(f_10735) static void C_ccall f_10735(C_word c,C_word *av) C_noret; C_noret_decl(f_10746) static void C_ccall f_10746(C_word c,C_word *av) C_noret; C_noret_decl(f_10763) static void C_ccall f_10763(C_word c,C_word *av) C_noret; C_noret_decl(f_10780) static void C_ccall f_10780(C_word c,C_word *av) C_noret; C_noret_decl(f_10804) static void C_ccall f_10804(C_word c,C_word *av) C_noret; C_noret_decl(f_10821) static void C_ccall f_10821(C_word c,C_word *av) C_noret; C_noret_decl(f_10825) static void C_ccall f_10825(C_word c,C_word *av) C_noret; C_noret_decl(f_10851) static void C_ccall f_10851(C_word c,C_word *av) C_noret; C_noret_decl(f_10871) static void C_ccall f_10871(C_word c,C_word *av) C_noret; C_noret_decl(f_10882) static void C_ccall f_10882(C_word c,C_word *av) C_noret; C_noret_decl(f_10894) static void C_fcall f_10894(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10928) static void C_ccall f_10928(C_word c,C_word *av) C_noret; C_noret_decl(f_10943) static void C_fcall f_10943(C_word t0,C_word t1) C_noret; C_noret_decl(f_11010) static void C_ccall f_11010(C_word c,C_word *av) C_noret; C_noret_decl(f_11026) static void C_ccall f_11026(C_word c,C_word *av) C_noret; C_noret_decl(f_11042) static void C_ccall f_11042(C_word c,C_word *av) C_noret; C_noret_decl(f_11058) static void C_ccall f_11058(C_word c,C_word *av) C_noret; C_noret_decl(f_11074) static void C_ccall f_11074(C_word c,C_word *av) C_noret; C_noret_decl(f_11090) static void C_ccall f_11090(C_word c,C_word *av) C_noret; C_noret_decl(f_11106) static void C_ccall f_11106(C_word c,C_word *av) C_noret; C_noret_decl(f_11122) static void C_ccall f_11122(C_word c,C_word *av) C_noret; C_noret_decl(f_11138) static void C_ccall f_11138(C_word c,C_word *av) C_noret; C_noret_decl(f_11150) static void C_fcall f_11150(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11169) static void C_fcall f_11169(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11200) static void C_ccall f_11200(C_word c,C_word *av) C_noret; C_noret_decl(f_11217) static void C_ccall f_11217(C_word c,C_word *av) C_noret; C_noret_decl(f_11223) static void C_fcall f_11223(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11247) static void C_ccall f_11247(C_word c,C_word *av) C_noret; C_noret_decl(f_11267) static void C_ccall f_11267(C_word c,C_word *av) C_noret; C_noret_decl(f_11271) static void C_ccall f_11271(C_word c,C_word *av) C_noret; C_noret_decl(f_11274) static void C_ccall f_11274(C_word c,C_word *av) C_noret; C_noret_decl(f_11303) static void C_ccall f_11303(C_word c,C_word *av) C_noret; C_noret_decl(f_11319) static void C_fcall f_11319(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11341) static void C_ccall f_11341(C_word c,C_word *av) C_noret; C_noret_decl(f_11357) static void C_ccall f_11357(C_word c,C_word *av) C_noret; C_noret_decl(f_11362) static C_word C_fcall f_11362(C_word t0,C_word t1,C_word t2); C_noret_decl(f_11393) static void C_ccall f_11393(C_word c,C_word *av) C_noret; C_noret_decl(f_11404) static void C_ccall f_11404(C_word c,C_word *av) C_noret; C_noret_decl(f_11413) static C_word C_fcall f_11413(C_word t0,C_word t1,C_word t2); C_noret_decl(f_11442) static void C_ccall f_11442(C_word c,C_word *av) C_noret; C_noret_decl(f_11455) static void C_ccall f_11455(C_word c,C_word *av) C_noret; C_noret_decl(f_11465) static void C_ccall f_11465(C_word c,C_word *av) C_noret; C_noret_decl(f_11467) static void C_ccall f_11467(C_word c,C_word *av) C_noret; C_noret_decl(f_11474) static void C_ccall f_11474(C_word c,C_word *av) C_noret; C_noret_decl(f_11477) static void C_fcall f_11477(C_word t0,C_word t1) C_noret; C_noret_decl(f_11486) static void C_fcall f_11486(C_word t0,C_word t1) C_noret; C_noret_decl(f_11512) static void C_ccall f_11512(C_word c,C_word *av) C_noret; C_noret_decl(f_11517) static void C_ccall f_11517(C_word c,C_word *av) C_noret; C_noret_decl(f_11521) static void C_ccall f_11521(C_word c,C_word *av) C_noret; C_noret_decl(f_11526) static void C_ccall f_11526(C_word c,C_word *av) C_noret; C_noret_decl(f_11547) static void C_ccall f_11547(C_word c,C_word *av) C_noret; C_noret_decl(f_11553) static void C_ccall f_11553(C_word c,C_word *av) C_noret; C_noret_decl(f_11571) static void C_ccall f_11571(C_word c,C_word *av) C_noret; C_noret_decl(f_11577) static void C_ccall f_11577(C_word c,C_word *av) C_noret; C_noret_decl(f_11595) static void C_ccall f_11595(C_word c,C_word *av) C_noret; C_noret_decl(f_11601) static void C_ccall f_11601(C_word c,C_word *av) C_noret; C_noret_decl(f_11616) static void C_ccall f_11616(C_word c,C_word *av) C_noret; C_noret_decl(f_11622) static void C_ccall f_11622(C_word c,C_word *av) C_noret; C_noret_decl(f_11636) static void C_ccall f_11636(C_word c,C_word *av) C_noret; C_noret_decl(f_11657) static void C_ccall f_11657(C_word c,C_word *av) C_noret; C_noret_decl(f_11663) static void C_ccall f_11663(C_word c,C_word *av) C_noret; C_noret_decl(f_11681) static void C_ccall f_11681(C_word c,C_word *av) C_noret; C_noret_decl(f_11687) static void C_ccall f_11687(C_word c,C_word *av) C_noret; C_noret_decl(f_11705) static void C_ccall f_11705(C_word c,C_word *av) C_noret; C_noret_decl(f_11711) static void C_ccall f_11711(C_word c,C_word *av) C_noret; C_noret_decl(f_11726) static void C_ccall f_11726(C_word c,C_word *av) C_noret; C_noret_decl(f_11732) static void C_ccall f_11732(C_word c,C_word *av) C_noret; C_noret_decl(f_11747) static void C_ccall f_11747(C_word c,C_word *av) C_noret; C_noret_decl(f_11757) static void C_ccall f_11757(C_word c,C_word *av) C_noret; C_noret_decl(f_11763) static void C_ccall f_11763(C_word c,C_word *av) C_noret; C_noret_decl(f_11767) static void C_ccall f_11767(C_word c,C_word *av) C_noret; C_noret_decl(f_11769) static void C_fcall f_11769(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11780) static void C_ccall f_11780(C_word c,C_word *av) C_noret; C_noret_decl(f_11792) static void C_ccall f_11792(C_word c,C_word *av) C_noret; C_noret_decl(f_11802) static void C_ccall f_11802(C_word c,C_word *av) C_noret; C_noret_decl(f_11808) static void C_ccall f_11808(C_word c,C_word *av) C_noret; C_noret_decl(f_11812) static void C_ccall f_11812(C_word c,C_word *av) C_noret; C_noret_decl(f_11817) static C_word C_fcall f_11817(C_word t0,C_word t1,C_word t2); C_noret_decl(f_11843) static void C_ccall f_11843(C_word c,C_word *av) C_noret; C_noret_decl(f_11847) static void C_ccall f_11847(C_word c,C_word *av) C_noret; C_noret_decl(f_11850) static void C_ccall f_11850(C_word c,C_word *av) C_noret; C_noret_decl(f_11858) static void C_fcall f_11858(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_11879) static void C_fcall f_11879(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_11893) static void C_ccall f_11893(C_word c,C_word *av) C_noret; C_noret_decl(f_11897) static void C_ccall f_11897(C_word c,C_word *av) C_noret; C_noret_decl(f_11938) static void C_ccall f_11938(C_word c,C_word *av) C_noret; C_noret_decl(f_11960) static void C_ccall f_11960(C_word c,C_word *av) C_noret; C_noret_decl(f_11962) static void C_ccall f_11962(C_word c,C_word *av) C_noret; C_noret_decl(f_11984) static void C_ccall f_11984(C_word c,C_word *av) C_noret; C_noret_decl(f_11986) static void C_ccall f_11986(C_word c,C_word *av) C_noret; C_noret_decl(f_12008) static void C_ccall f_12008(C_word c,C_word *av) C_noret; C_noret_decl(f_12010) static void C_ccall f_12010(C_word c,C_word *av) C_noret; C_noret_decl(f_12032) static void C_ccall f_12032(C_word c,C_word *av) C_noret; C_noret_decl(f_12034) static void C_ccall f_12034(C_word c,C_word *av) C_noret; C_noret_decl(f_12056) static void C_ccall f_12056(C_word c,C_word *av) C_noret; C_noret_decl(f_12058) static void C_ccall f_12058(C_word c,C_word *av) C_noret; C_noret_decl(f_12080) static void C_ccall f_12080(C_word c,C_word *av) C_noret; C_noret_decl(f_12082) static void C_ccall f_12082(C_word c,C_word *av) C_noret; C_noret_decl(f_12104) static void C_ccall f_12104(C_word c,C_word *av) C_noret; C_noret_decl(f_12106) static void C_ccall f_12106(C_word c,C_word *av) C_noret; C_noret_decl(f_12128) static void C_ccall f_12128(C_word c,C_word *av) C_noret; C_noret_decl(f_12130) static void C_ccall f_12130(C_word c,C_word *av) C_noret; C_noret_decl(f_12152) static void C_ccall f_12152(C_word c,C_word *av) C_noret; C_noret_decl(f_12154) static void C_ccall f_12154(C_word c,C_word *av) C_noret; C_noret_decl(f_12176) static void C_ccall f_12176(C_word c,C_word *av) C_noret; C_noret_decl(f_12178) static void C_ccall f_12178(C_word c,C_word *av) C_noret; C_noret_decl(f_12200) static void C_ccall f_12200(C_word c,C_word *av) C_noret; C_noret_decl(f_12202) static void C_ccall f_12202(C_word c,C_word *av) C_noret; C_noret_decl(f_12218) static void C_ccall f_12218(C_word c,C_word *av) C_noret; C_noret_decl(f_12220) static void C_ccall f_12220(C_word c,C_word *av) C_noret; C_noret_decl(f_12242) static void C_ccall f_12242(C_word c,C_word *av) C_noret; C_noret_decl(f_12244) static void C_ccall f_12244(C_word c,C_word *av) C_noret; C_noret_decl(f_12266) static void C_ccall f_12266(C_word c,C_word *av) C_noret; C_noret_decl(f_12268) static void C_ccall f_12268(C_word c,C_word *av) C_noret; C_noret_decl(f_12284) static void C_ccall f_12284(C_word c,C_word *av) C_noret; C_noret_decl(f_12286) static void C_ccall f_12286(C_word c,C_word *av) C_noret; C_noret_decl(f_12302) static void C_ccall f_12302(C_word c,C_word *av) C_noret; C_noret_decl(f_12304) static void C_ccall f_12304(C_word c,C_word *av) C_noret; C_noret_decl(f_12320) static void C_ccall f_12320(C_word c,C_word *av) C_noret; C_noret_decl(f_12322) static void C_ccall f_12322(C_word c,C_word *av) C_noret; C_noret_decl(f_12338) static void C_ccall f_12338(C_word c,C_word *av) C_noret; C_noret_decl(f_12340) static void C_ccall f_12340(C_word c,C_word *av) C_noret; C_noret_decl(f_12356) static void C_ccall f_12356(C_word c,C_word *av) C_noret; C_noret_decl(f_12358) static void C_ccall f_12358(C_word c,C_word *av) C_noret; C_noret_decl(f_12374) static void C_ccall f_12374(C_word c,C_word *av) C_noret; C_noret_decl(f_12376) static void C_ccall f_12376(C_word c,C_word *av) C_noret; C_noret_decl(f_12392) static void C_ccall f_12392(C_word c,C_word *av) C_noret; C_noret_decl(f_12394) static void C_ccall f_12394(C_word c,C_word *av) C_noret; C_noret_decl(f_12410) static void C_ccall f_12410(C_word c,C_word *av) C_noret; C_noret_decl(f_12412) static void C_ccall f_12412(C_word c,C_word *av) C_noret; C_noret_decl(f_12428) static void C_ccall f_12428(C_word c,C_word *av) C_noret; C_noret_decl(f_12430) static void C_ccall f_12430(C_word c,C_word *av) C_noret; C_noret_decl(f_12446) static void C_ccall f_12446(C_word c,C_word *av) C_noret; C_noret_decl(f_12448) static void C_ccall f_12448(C_word c,C_word *av) C_noret; C_noret_decl(f_12470) static void C_ccall f_12470(C_word c,C_word *av) C_noret; C_noret_decl(f_12472) static void C_ccall f_12472(C_word c,C_word *av) C_noret; C_noret_decl(f_12488) static void C_ccall f_12488(C_word c,C_word *av) C_noret; C_noret_decl(f_12490) static void C_ccall f_12490(C_word c,C_word *av) C_noret; C_noret_decl(f_12512) static void C_ccall f_12512(C_word c,C_word *av) C_noret; C_noret_decl(f_12514) static void C_ccall f_12514(C_word c,C_word *av) C_noret; C_noret_decl(f_12530) static void C_ccall f_12530(C_word c,C_word *av) C_noret; C_noret_decl(f_12532) static void C_ccall f_12532(C_word c,C_word *av) C_noret; C_noret_decl(f_12548) static void C_ccall f_12548(C_word c,C_word *av) C_noret; C_noret_decl(f_12550) static void C_ccall f_12550(C_word c,C_word *av) C_noret; C_noret_decl(f_12566) static void C_ccall f_12566(C_word c,C_word *av) C_noret; C_noret_decl(f_12568) static void C_ccall f_12568(C_word c,C_word *av) C_noret; C_noret_decl(f_12584) static void C_ccall f_12584(C_word c,C_word *av) C_noret; C_noret_decl(f_12586) static void C_ccall f_12586(C_word c,C_word *av) C_noret; C_noret_decl(f_12596) static void C_ccall f_12596(C_word c,C_word *av) C_noret; C_noret_decl(f_12608) static void C_fcall f_12608(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12618) static void C_ccall f_12618(C_word c,C_word *av) C_noret; C_noret_decl(f_12622) static void C_ccall f_12622(C_word c,C_word *av) C_noret; C_noret_decl(f_12644) static void C_ccall f_12644(C_word c,C_word *av) C_noret; C_noret_decl(f_12648) static void C_ccall f_12648(C_word c,C_word *av) C_noret; C_noret_decl(f_12651) static void C_ccall f_12651(C_word c,C_word *av) C_noret; C_noret_decl(f_12656) static void C_ccall f_12656(C_word c,C_word *av) C_noret; C_noret_decl(f_12660) static void C_ccall f_12660(C_word c,C_word *av) C_noret; C_noret_decl(f_12663) static void C_ccall f_12663(C_word c,C_word *av) C_noret; C_noret_decl(f_12666) static void C_ccall f_12666(C_word c,C_word *av) C_noret; C_noret_decl(f_12679) static void C_ccall f_12679(C_word c,C_word *av) C_noret; C_noret_decl(f_12702) static void C_ccall f_12702(C_word c,C_word *av) C_noret; C_noret_decl(f_12728) static void C_ccall f_12728(C_word c,C_word *av) C_noret; C_noret_decl(f_12737) static void C_ccall f_12737(C_word c,C_word *av) C_noret; C_noret_decl(f_12742) static void C_ccall f_12742(C_word c,C_word *av) C_noret; C_noret_decl(f_12744) static void C_ccall f_12744(C_word c,C_word *av) C_noret; C_noret_decl(f_12788) static void C_fcall f_12788(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_12834) static void C_ccall f_12834(C_word c,C_word *av) C_noret; C_noret_decl(f_12858) static void C_ccall f_12858(C_word c,C_word *av) C_noret; C_noret_decl(f_12862) static void C_ccall f_12862(C_word c,C_word *av) C_noret; C_noret_decl(f_12880) static void C_ccall f_12880(C_word c,C_word *av) C_noret; C_noret_decl(f_12904) static void C_ccall f_12904(C_word c,C_word *av) C_noret; C_noret_decl(f_12908) static void C_ccall f_12908(C_word c,C_word *av) C_noret; C_noret_decl(f_12926) static void C_ccall f_12926(C_word c,C_word *av) C_noret; C_noret_decl(f_12967) static void C_fcall f_12967(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12978) static void C_ccall f_12978(C_word c,C_word *av) C_noret; C_noret_decl(f_12984) static void C_fcall f_12984(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_12988) static void C_ccall f_12988(C_word c,C_word *av) C_noret; C_noret_decl(f_13002) static void C_ccall f_13002(C_word c,C_word *av) C_noret; C_noret_decl(f_13015) static void C_ccall f_13015(C_word c,C_word *av) C_noret; C_noret_decl(f_13019) static void C_ccall f_13019(C_word c,C_word *av) C_noret; C_noret_decl(f_13036) static void C_ccall f_13036(C_word c,C_word *av) C_noret; C_noret_decl(f_13040) static void C_ccall f_13040(C_word c,C_word *av) C_noret; C_noret_decl(f_13046) static void C_ccall f_13046(C_word c,C_word *av) C_noret; C_noret_decl(f_13050) static void C_ccall f_13050(C_word c,C_word *av) C_noret; C_noret_decl(f_13090) static void C_ccall f_13090(C_word c,C_word *av) C_noret; C_noret_decl(f_13094) static void C_ccall f_13094(C_word c,C_word *av) C_noret; C_noret_decl(f_13116) static void C_ccall f_13116(C_word c,C_word *av) C_noret; C_noret_decl(f_13119) static void C_ccall f_13119(C_word c,C_word *av) C_noret; C_noret_decl(f_13122) static void C_ccall f_13122(C_word c,C_word *av) C_noret; C_noret_decl(f_13125) static void C_ccall f_13125(C_word c,C_word *av) C_noret; C_noret_decl(f_13128) static void C_ccall f_13128(C_word c,C_word *av) C_noret; C_noret_decl(f_13149) static void C_ccall f_13149(C_word c,C_word *av) C_noret; C_noret_decl(f_13151) static void C_fcall f_13151(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13169) static void C_ccall f_13169(C_word c,C_word *av) C_noret; C_noret_decl(f_13179) static void C_ccall f_13179(C_word c,C_word *av) C_noret; C_noret_decl(f_13183) static void C_ccall f_13183(C_word c,C_word *av) C_noret; C_noret_decl(f_13189) static void C_fcall f_13189(C_word t0,C_word t1) C_noret; C_noret_decl(f_13221) static void C_ccall f_13221(C_word c,C_word *av) C_noret; C_noret_decl(f_13224) static void C_ccall f_13224(C_word c,C_word *av) C_noret; C_noret_decl(f_13227) static void C_ccall f_13227(C_word c,C_word *av) C_noret; C_noret_decl(f_13230) static void C_ccall f_13230(C_word c,C_word *av) C_noret; C_noret_decl(f_13236) static void C_ccall f_13236(C_word c,C_word *av) C_noret; C_noret_decl(f_13239) static void C_ccall f_13239(C_word c,C_word *av) C_noret; C_noret_decl(f_13287) static void C_ccall f_13287(C_word c,C_word *av) C_noret; C_noret_decl(f_13291) static void C_ccall f_13291(C_word c,C_word *av) C_noret; C_noret_decl(f_13368) static void C_ccall f_13368(C_word c,C_word *av) C_noret; C_noret_decl(f_13407) static void C_ccall f_13407(C_word c,C_word *av) C_noret; C_noret_decl(f_13462) static void C_ccall f_13462(C_word c,C_word *av) C_noret; C_noret_decl(f_13507) static void C_ccall f_13507(C_word c,C_word *av) C_noret; C_noret_decl(f_13552) static void C_ccall f_13552(C_word c,C_word *av) C_noret; C_noret_decl(f_13589) static void C_ccall f_13589(C_word c,C_word *av) C_noret; C_noret_decl(f_13609) static void C_ccall f_13609(C_word c,C_word *av) C_noret; C_noret_decl(f_13633) static void C_fcall f_13633(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_13636) static void C_fcall f_13636(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_13640) static void C_ccall f_13640(C_word c,C_word *av) C_noret; C_noret_decl(f_13643) static void C_ccall f_13643(C_word c,C_word *av) C_noret; C_noret_decl(f_13661) static void C_ccall f_13661(C_word c,C_word *av) C_noret; C_noret_decl(f_13684) static void C_ccall f_13684(C_word c,C_word *av) C_noret; C_noret_decl(f_13688) static void C_ccall f_13688(C_word c,C_word *av) C_noret; C_noret_decl(f_13711) static void C_ccall f_13711(C_word c,C_word *av) C_noret; C_noret_decl(f_13715) static void C_ccall f_13715(C_word c,C_word *av) C_noret; C_noret_decl(f_13747) static void C_ccall f_13747(C_word c,C_word *av) C_noret; C_noret_decl(f_13783) static void C_ccall f_13783(C_word c,C_word *av) C_noret; C_noret_decl(f_13787) static void C_ccall f_13787(C_word c,C_word *av) C_noret; C_noret_decl(f_13806) static void C_ccall f_13806(C_word c,C_word *av) C_noret; C_noret_decl(f_13808) static void C_ccall f_13808(C_word c,C_word *av) C_noret; C_noret_decl(f_13815) static void C_fcall f_13815(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_13852) static void C_ccall f_13852(C_word c,C_word *av) C_noret; C_noret_decl(f_13859) static void C_fcall f_13859(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_13896) static void C_ccall f_13896(C_word c,C_word *av) C_noret; C_noret_decl(f_13914) static void C_ccall f_13914(C_word c,C_word *av) C_noret; C_noret_decl(f_13923) static void C_ccall f_13923(C_word c,C_word *av) C_noret; C_noret_decl(f_13928) static void C_ccall f_13928(C_word c,C_word *av) C_noret; C_noret_decl(f_13941) static void C_ccall f_13941(C_word c,C_word *av) C_noret; C_noret_decl(f_13960) static void C_fcall f_13960(C_word t0,C_word t1) C_noret; C_noret_decl(f_13967) static void C_ccall f_13967(C_word c,C_word *av) C_noret; C_noret_decl(f_13975) static void C_ccall f_13975(C_word c,C_word *av) C_noret; C_noret_decl(f_13979) static void C_ccall f_13979(C_word c,C_word *av) C_noret; C_noret_decl(f_13983) static void C_ccall f_13983(C_word c,C_word *av) C_noret; C_noret_decl(f_13987) static void C_ccall f_13987(C_word c,C_word *av) C_noret; C_noret_decl(f_13990) static void C_ccall f_13990(C_word c,C_word *av) C_noret; C_noret_decl(f_14004) static void C_ccall f_14004(C_word c,C_word *av) C_noret; C_noret_decl(f_14008) static void C_ccall f_14008(C_word c,C_word *av) C_noret; C_noret_decl(f_14019) static void C_ccall f_14019(C_word c,C_word *av) C_noret; C_noret_decl(f_14043) static void C_ccall f_14043(C_word c,C_word *av) C_noret; C_noret_decl(f_14047) static void C_ccall f_14047(C_word c,C_word *av) C_noret; C_noret_decl(f_14053) static void C_ccall f_14053(C_word c,C_word *av) C_noret; C_noret_decl(f_14077) static void C_ccall f_14077(C_word c,C_word *av) C_noret; C_noret_decl(f_14081) static void C_ccall f_14081(C_word c,C_word *av) C_noret; C_noret_decl(f_14087) static void C_ccall f_14087(C_word c,C_word *av) C_noret; C_noret_decl(f_14104) static void C_ccall f_14104(C_word c,C_word *av) C_noret; C_noret_decl(f_14108) static void C_ccall f_14108(C_word c,C_word *av) C_noret; C_noret_decl(f_14112) static void C_ccall f_14112(C_word c,C_word *av) C_noret; C_noret_decl(f_14122) static void C_fcall f_14122(C_word t0,C_word t1) C_noret; C_noret_decl(f_14128) static void C_fcall f_14128(C_word t0,C_word t1) C_noret; C_noret_decl(f_14135) static void C_ccall f_14135(C_word c,C_word *av) C_noret; C_noret_decl(f_14147) static void C_ccall f_14147(C_word c,C_word *av) C_noret; C_noret_decl(f_14170) static void C_ccall f_14170(C_word c,C_word *av) C_noret; C_noret_decl(f_14174) static void C_ccall f_14174(C_word c,C_word *av) C_noret; C_noret_decl(f_14184) static void C_fcall f_14184(C_word t0,C_word t1) C_noret; C_noret_decl(f_14190) static void C_fcall f_14190(C_word t0,C_word t1) C_noret; C_noret_decl(f_14197) static void C_ccall f_14197(C_word c,C_word *av) C_noret; C_noret_decl(f_14212) static void C_ccall f_14212(C_word c,C_word *av) C_noret; C_noret_decl(f_14216) static void C_ccall f_14216(C_word c,C_word *av) C_noret; C_noret_decl(f_14249) static void C_ccall f_14249(C_word c,C_word *av) C_noret; C_noret_decl(f_14253) static void C_ccall f_14253(C_word c,C_word *av) C_noret; C_noret_decl(f_14270) static void C_ccall f_14270(C_word c,C_word *av) C_noret; C_noret_decl(f_14280) static void C_ccall f_14280(C_word c,C_word *av) C_noret; C_noret_decl(f_14353) static void C_ccall f_14353(C_word c,C_word *av) C_noret; C_noret_decl(f_14367) static void C_ccall f_14367(C_word c,C_word *av) C_noret; C_noret_decl(f_14384) static void C_ccall f_14384(C_word c,C_word *av) C_noret; C_noret_decl(f_14400) static void C_ccall f_14400(C_word c,C_word *av) C_noret; C_noret_decl(f_14471) static void C_ccall f_14471(C_word c,C_word *av) C_noret; C_noret_decl(f_14475) static void C_ccall f_14475(C_word c,C_word *av) C_noret; C_noret_decl(f_14480) static void C_ccall f_14480(C_word c,C_word *av) C_noret; C_noret_decl(f_14490) static void C_ccall f_14490(C_word c,C_word *av) C_noret; C_noret_decl(f_14494) static void C_ccall f_14494(C_word c,C_word *av) C_noret; C_noret_decl(f_14509) static void C_ccall f_14509(C_word c,C_word *av) C_noret; C_noret_decl(f_14513) static void C_ccall f_14513(C_word c,C_word *av) C_noret; C_noret_decl(f_14530) static void C_ccall f_14530(C_word c,C_word *av) C_noret; C_noret_decl(f_14541) static void C_ccall f_14541(C_word c,C_word *av) C_noret; C_noret_decl(f_14547) static void C_ccall f_14547(C_word c,C_word *av) C_noret; C_noret_decl(f_14558) static void C_ccall f_14558(C_word c,C_word *av) C_noret; C_noret_decl(f_14569) static void C_ccall f_14569(C_word c,C_word *av) C_noret; C_noret_decl(f_14581) static void C_ccall f_14581(C_word c,C_word *av) C_noret; C_noret_decl(f_14593) static void C_ccall f_14593(C_word c,C_word *av) C_noret; C_noret_decl(f_14605) static void C_ccall f_14605(C_word c,C_word *av) C_noret; C_noret_decl(f_14622) static void C_ccall f_14622(C_word c,C_word *av) C_noret; C_noret_decl(f_14629) static void C_ccall f_14629(C_word c,C_word *av) C_noret; C_noret_decl(f_14633) static void C_ccall f_14633(C_word c,C_word *av) C_noret; C_noret_decl(f_14635) static void C_ccall f_14635(C_word c,C_word *av) C_noret; C_noret_decl(f_14641) static void C_ccall f_14641(C_word c,C_word *av) C_noret; C_noret_decl(f_14645) static void C_ccall f_14645(C_word c,C_word *av) C_noret; C_noret_decl(f_14648) static void C_ccall f_14648(C_word c,C_word *av) C_noret; C_noret_decl(f_14653) static void C_ccall f_14653(C_word c,C_word *av) C_noret; C_noret_decl(f_14663) static void C_fcall f_14663(C_word t0,C_word t1) C_noret; C_noret_decl(f_14683) static void C_ccall f_14683(C_word c,C_word *av) C_noret; C_noret_decl(f_14698) static void C_fcall f_14698(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14728) static void C_ccall f_14728(C_word c,C_word *av) C_noret; C_noret_decl(f_14739) static void C_ccall f_14739(C_word c,C_word *av) C_noret; C_noret_decl(f_14755) static void C_ccall f_14755(C_word c,C_word *av) C_noret; C_noret_decl(f_14759) static void C_ccall f_14759(C_word c,C_word *av) C_noret; C_noret_decl(f_14763) static void C_ccall f_14763(C_word c,C_word *av) C_noret; C_noret_decl(f_14779) static void C_ccall f_14779(C_word c,C_word *av) C_noret; C_noret_decl(f_14797) static void C_ccall f_14797(C_word c,C_word *av) C_noret; C_noret_decl(f_14808) static void C_fcall f_14808(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_14830) static void C_ccall f_14830(C_word c,C_word *av) C_noret; C_noret_decl(f_14847) static void C_ccall f_14847(C_word c,C_word *av) C_noret; C_noret_decl(f_14850) static void C_fcall f_14850(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14862) static void C_ccall f_14862(C_word c,C_word *av) C_noret; C_noret_decl(f_14864) static void C_fcall f_14864(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_14885) static void C_ccall f_14885(C_word c,C_word *av) C_noret; C_noret_decl(f_14909) static void C_fcall f_14909(C_word t0,C_word t1) C_noret; C_noret_decl(f_14916) static void C_ccall f_14916(C_word c,C_word *av) C_noret; C_noret_decl(f_14920) static void C_ccall f_14920(C_word c,C_word *av) C_noret; C_noret_decl(f_14955) static void C_ccall f_14955(C_word c,C_word *av) C_noret; C_noret_decl(f_14962) static void C_ccall f_14962(C_word c,C_word *av) C_noret; C_noret_decl(f_14974) static void C_ccall f_14974(C_word c,C_word *av) C_noret; C_noret_decl(f_14994) static void C_ccall f_14994(C_word c,C_word *av) C_noret; C_noret_decl(f_14998) static void C_ccall f_14998(C_word c,C_word *av) C_noret; C_noret_decl(f_15018) static void C_fcall f_15018(C_word t0,C_word t1) C_noret; C_noret_decl(f_15027) static void C_fcall f_15027(C_word t0,C_word t1) C_noret; C_noret_decl(f_15038) static void C_ccall f_15038(C_word c,C_word *av) C_noret; C_noret_decl(f_15042) static void C_ccall f_15042(C_word c,C_word *av) C_noret; C_noret_decl(f_15046) static void C_ccall f_15046(C_word c,C_word *av) C_noret; C_noret_decl(f_15053) static void C_ccall f_15053(C_word c,C_word *av) C_noret; C_noret_decl(f_15069) static void C_ccall f_15069(C_word c,C_word *av) C_noret; C_noret_decl(f_15073) static void C_ccall f_15073(C_word c,C_word *av) C_noret; C_noret_decl(f_15114) static void C_fcall f_15114(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15147) static void C_ccall f_15147(C_word c,C_word *av) C_noret; C_noret_decl(f_15176) static void C_ccall f_15176(C_word c,C_word *av) C_noret; C_noret_decl(f_15184) static void C_ccall f_15184(C_word c,C_word *av) C_noret; C_noret_decl(f_15190) static void C_ccall f_15190(C_word c,C_word *av) C_noret; C_noret_decl(f_15210) static void C_fcall f_15210(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15235) static void C_ccall f_15235(C_word c,C_word *av) C_noret; C_noret_decl(f_15241) static void C_ccall f_15241(C_word c,C_word *av) C_noret; C_noret_decl(f_15245) static void C_ccall f_15245(C_word c,C_word *av) C_noret; C_noret_decl(f_15255) static void C_ccall f_15255(C_word c,C_word *av) C_noret; C_noret_decl(f_15275) static void C_fcall f_15275(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15296) static void C_ccall f_15296(C_word c,C_word *av) C_noret; C_noret_decl(f_15313) static void C_ccall f_15313(C_word c,C_word *av) C_noret; C_noret_decl(f_15320) static void C_ccall f_15320(C_word c,C_word *av) C_noret; C_noret_decl(f_15325) static void C_ccall f_15325(C_word c,C_word *av) C_noret; C_noret_decl(f_15331) static void C_ccall f_15331(C_word c,C_word *av) C_noret; C_noret_decl(f_15335) static void C_ccall f_15335(C_word c,C_word *av) C_noret; C_noret_decl(f_15338) static void C_ccall f_15338(C_word c,C_word *av) C_noret; C_noret_decl(f_15345) static void C_ccall f_15345(C_word c,C_word *av) C_noret; C_noret_decl(f_15366) static void C_ccall f_15366(C_word c,C_word *av) C_noret; C_noret_decl(f_15380) static void C_ccall f_15380(C_word c,C_word *av) C_noret; C_noret_decl(f_15384) static void C_ccall f_15384(C_word c,C_word *av) C_noret; C_noret_decl(f_15421) static void C_ccall f_15421(C_word c,C_word *av) C_noret; C_noret_decl(f_15429) static void C_ccall f_15429(C_word c,C_word *av) C_noret; C_noret_decl(f_15458) static void C_ccall f_15458(C_word c,C_word *av) C_noret; C_noret_decl(f_15461) static void C_ccall f_15461(C_word c,C_word *av) C_noret; C_noret_decl(f_15476) static void C_ccall f_15476(C_word c,C_word *av) C_noret; C_noret_decl(f_15479) static void C_fcall f_15479(C_word t0,C_word t1) C_noret; C_noret_decl(f_15486) static void C_ccall f_15486(C_word c,C_word *av) C_noret; C_noret_decl(f_15497) static void C_ccall f_15497(C_word c,C_word *av) C_noret; C_noret_decl(f_15515) static void C_ccall f_15515(C_word c,C_word *av) C_noret; C_noret_decl(f_15540) static void C_fcall f_15540(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15555) static void C_ccall f_15555(C_word c,C_word *av) C_noret; C_noret_decl(f_15583) static void C_fcall f_15583(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15586) static C_word C_fcall f_15586(C_word t0); C_noret_decl(f_15596) static void C_fcall f_15596(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_15656) static void C_ccall f_15656(C_word c,C_word *av) C_noret; C_noret_decl(f_15676) static void C_fcall f_15676(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15682) static void C_fcall f_15682(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15745) static void C_fcall f_15745(C_word t0,C_word t1) C_noret; C_noret_decl(f_15784) static void C_fcall f_15784(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15790) static void C_fcall f_15790(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15834) static void C_fcall f_15834(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15838) static void C_ccall f_15838(C_word c,C_word *av) C_noret; C_noret_decl(f_15841) static void C_ccall f_15841(C_word c,C_word *av) C_noret; C_noret_decl(f_15890) static void C_fcall f_15890(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_15905) static void C_fcall f_15905(C_word t0,C_word t1) C_noret; C_noret_decl(f_15914) static void C_ccall f_15914(C_word c,C_word *av) C_noret; C_noret_decl(f_15951) static void C_fcall f_15951(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_15961) static void C_ccall f_15961(C_word c,C_word *av) C_noret; C_noret_decl(f_15970) static void C_fcall f_15970(C_word t0,C_word t1) C_noret; C_noret_decl(f_15973) static void C_fcall f_15973(C_word t0,C_word t1) C_noret; C_noret_decl(f_15982) static void C_fcall f_15982(C_word t0,C_word t1) C_noret; C_noret_decl(f_15991) static void C_ccall f_15991(C_word c,C_word *av) C_noret; C_noret_decl(f_16003) static void C_ccall f_16003(C_word c,C_word *av) C_noret; C_noret_decl(f_16009) static void C_fcall f_16009(C_word t0,C_word t1) C_noret; C_noret_decl(f_16015) static void C_ccall f_16015(C_word c,C_word *av) C_noret; C_noret_decl(f_16057) static void C_ccall f_16057(C_word c,C_word *av) C_noret; C_noret_decl(f_16165) static void C_fcall f_16165(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_16172) static void C_fcall f_16172(C_word t0,C_word t1) C_noret; C_noret_decl(f_16185) static void C_ccall f_16185(C_word c,C_word *av) C_noret; C_noret_decl(f_16191) static void C_fcall f_16191(C_word t0,C_word t1) C_noret; C_noret_decl(f_16243) static void C_fcall f_16243(C_word t0,C_word t1) C_noret; C_noret_decl(f_16258) static void C_ccall f_16258(C_word c,C_word *av) C_noret; C_noret_decl(f_16268) static void C_ccall f_16268(C_word c,C_word *av) C_noret; C_noret_decl(f_16304) static void C_ccall f_16304(C_word c,C_word *av) C_noret; C_noret_decl(f_16330) static void C_ccall f_16330(C_word c,C_word *av) C_noret; C_noret_decl(f_16341) static void C_ccall f_16341(C_word c,C_word *av) C_noret; C_noret_decl(f_16508) static void C_fcall f_16508(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_16523) static void C_fcall f_16523(C_word t0,C_word t1) C_noret; C_noret_decl(f_16549) static void C_fcall f_16549(C_word t0,C_word t1) C_noret; C_noret_decl(f_16581) static void C_fcall f_16581(C_word t0,C_word t1) C_noret; C_noret_decl(f_16618) static void C_ccall f_16618(C_word c,C_word *av) C_noret; C_noret_decl(f_16642) static void C_fcall f_16642(C_word t0,C_word t1) C_noret; C_noret_decl(f_16692) static void C_ccall f_16692(C_word c,C_word *av) C_noret; C_noret_decl(f_16740) static void C_ccall f_16740(C_word c,C_word *av) C_noret; C_noret_decl(f_16743) static void C_ccall f_16743(C_word c,C_word *av) C_noret; C_noret_decl(f_16762) static void C_fcall f_16762(C_word t0,C_word t1) C_noret; C_noret_decl(f_16832) static void C_ccall f_16832(C_word c,C_word *av) C_noret; C_noret_decl(f_16853) static void C_fcall f_16853(C_word t0,C_word t1) C_noret; C_noret_decl(f_16900) static void C_ccall f_16900(C_word c,C_word *av) C_noret; C_noret_decl(f_16980) static void C_ccall f_16980(C_word c,C_word *av) C_noret; C_noret_decl(f_16990) static void C_ccall f_16990(C_word c,C_word *av) C_noret; C_noret_decl(f_16999) static void C_fcall f_16999(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_17006) static void C_fcall f_17006(C_word t0,C_word t1) C_noret; C_noret_decl(f_17235) static void C_ccall f_17235(C_word c,C_word *av) C_noret; C_noret_decl(f_17281) static void C_ccall f_17281(C_word c,C_word *av) C_noret; C_noret_decl(f_17284) static void C_fcall f_17284(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_17311) static void C_fcall f_17311(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17335) static void C_ccall f_17335(C_word c,C_word *av) C_noret; C_noret_decl(f_17352) static void C_fcall f_17352(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_17453) static void C_ccall f_17453(C_word c,C_word *av) C_noret; C_noret_decl(f_17456) static void C_ccall f_17456(C_word c,C_word *av) C_noret; C_noret_decl(f_17465) static void C_ccall f_17465(C_word c,C_word *av) C_noret; C_noret_decl(f_17471) static void C_ccall f_17471(C_word c,C_word *av) C_noret; C_noret_decl(f_17482) static void C_ccall f_17482(C_word c,C_word *av) C_noret; C_noret_decl(f_17484) static void C_ccall f_17484(C_word c,C_word *av) C_noret; C_noret_decl(f_17495) static void C_ccall f_17495(C_word c,C_word *av) C_noret; C_noret_decl(f_17497) static void C_ccall f_17497(C_word c,C_word *av) C_noret; C_noret_decl(f_17508) static void C_ccall f_17508(C_word c,C_word *av) C_noret; C_noret_decl(f_17510) static void C_ccall f_17510(C_word c,C_word *av) C_noret; C_noret_decl(f_17527) static void C_ccall f_17527(C_word c,C_word *av) C_noret; C_noret_decl(f_17531) static void C_ccall f_17531(C_word c,C_word *av) C_noret; C_noret_decl(f_17535) static void C_ccall f_17535(C_word c,C_word *av) C_noret; C_noret_decl(f_17544) static void C_ccall f_17544(C_word c,C_word *av) C_noret; C_noret_decl(f_17564) static void C_ccall f_17564(C_word c,C_word *av) C_noret; C_noret_decl(f_17572) static void C_ccall f_17572(C_word c,C_word *av) C_noret; C_noret_decl(f_17587) static void C_ccall f_17587(C_word c,C_word *av) C_noret; C_noret_decl(f_17589) static void C_fcall f_17589(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17614) static void C_ccall f_17614(C_word c,C_word *av) C_noret; C_noret_decl(f_17623) static void C_ccall f_17623(C_word c,C_word *av) C_noret; C_noret_decl(f_17626) static void C_ccall f_17626(C_word c,C_word *av) C_noret; C_noret_decl(f_17635) static void C_ccall f_17635(C_word c,C_word *av) C_noret; C_noret_decl(f_17642) static void C_ccall f_17642(C_word c,C_word *av) C_noret; C_noret_decl(f_17653) static void C_ccall f_17653(C_word c,C_word *av) C_noret; C_noret_decl(f_17660) static void C_ccall f_17660(C_word c,C_word *av) C_noret; C_noret_decl(f_17684) static void C_ccall f_17684(C_word c,C_word *av) C_noret; C_noret_decl(f_17688) static void C_ccall f_17688(C_word c,C_word *av) C_noret; C_noret_decl(f_17690) static void C_ccall f_17690(C_word c,C_word *av) C_noret; C_noret_decl(f_17694) static void C_ccall f_17694(C_word c,C_word *av) C_noret; C_noret_decl(f_17699) static void C_ccall f_17699(C_word c,C_word *av) C_noret; C_noret_decl(f_17705) static void C_ccall f_17705(C_word c,C_word *av) C_noret; C_noret_decl(f_17709) static void C_ccall f_17709(C_word c,C_word *av) C_noret; C_noret_decl(f_17714) static void C_ccall f_17714(C_word c,C_word *av) C_noret; C_noret_decl(f_17724) static void C_ccall f_17724(C_word c,C_word *av) C_noret; C_noret_decl(f_17726) static void C_ccall f_17726(C_word c,C_word *av) C_noret; C_noret_decl(f_17730) static void C_ccall f_17730(C_word c,C_word *av) C_noret; C_noret_decl(f_17736) static void C_ccall f_17736(C_word c,C_word *av) C_noret; C_noret_decl(f_17738) static void C_ccall f_17738(C_word c,C_word *av) C_noret; C_noret_decl(f_17742) static void C_ccall f_17742(C_word c,C_word *av) C_noret; C_noret_decl(f_17745) static void C_ccall f_17745(C_word c,C_word *av) C_noret; C_noret_decl(f_17761) static void C_ccall f_17761(C_word c,C_word *av) C_noret; C_noret_decl(f_17765) static void C_ccall f_17765(C_word c,C_word *av) C_noret; C_noret_decl(f_17768) static void C_ccall f_17768(C_word c,C_word *av) C_noret; C_noret_decl(f_17790) static void C_ccall f_17790(C_word c,C_word *av) C_noret; C_noret_decl(f_17806) static void C_ccall f_17806(C_word c,C_word *av) C_noret; C_noret_decl(f_17811) static C_word C_fcall f_17811(C_word t0,C_word t1,C_word t2); C_noret_decl(f_17842) static void C_ccall f_17842(C_word c,C_word *av) C_noret; C_noret_decl(f_17851) static void C_fcall f_17851(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_17869) static void C_ccall f_17869(C_word c,C_word *av) C_noret; C_noret_decl(f_17875) static void C_ccall f_17875(C_word c,C_word *av) C_noret; C_noret_decl(f_17881) static void C_ccall f_17881(C_word c,C_word *av) C_noret; C_noret_decl(f_17890) static C_word C_fcall f_17890(C_word t0,C_word t1); C_noret_decl(f_17909) static void C_ccall f_17909(C_word c,C_word *av) C_noret; C_noret_decl(f_17925) static void C_fcall f_17925(C_word t0,C_word t1) C_noret; C_noret_decl(f_17928) static void C_ccall f_17928(C_word c,C_word *av) C_noret; C_noret_decl(f_17931) static void C_ccall f_17931(C_word c,C_word *av) C_noret; C_noret_decl(f_17936) static C_word C_fcall f_17936(C_word t0,C_word t1); C_noret_decl(f_17978) static void C_ccall f_17978(C_word c,C_word *av) C_noret; C_noret_decl(f_17997) static void C_ccall f_17997(C_word c,C_word *av) C_noret; C_noret_decl(f_18000) static void C_ccall f_18000(C_word c,C_word *av) C_noret; C_noret_decl(f_18003) static void C_ccall f_18003(C_word c,C_word *av) C_noret; C_noret_decl(f_18008) static C_word C_fcall f_18008(C_word t0,C_word t1); C_noret_decl(f_18049) static void C_ccall f_18049(C_word c,C_word *av) C_noret; C_noret_decl(f_18059) static void C_ccall f_18059(C_word c,C_word *av) C_noret; C_noret_decl(f_18070) static void C_fcall f_18070(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_18074) static void C_ccall f_18074(C_word c,C_word *av) C_noret; C_noret_decl(f_18077) static void C_ccall f_18077(C_word c,C_word *av) C_noret; C_noret_decl(f_18082) static C_word C_fcall f_18082(C_word t0,C_word t1); C_noret_decl(f_18109) static void C_ccall f_18109(C_word c,C_word *av) C_noret; C_noret_decl(f_18123) static void C_ccall f_18123(C_word c,C_word *av) C_noret; C_noret_decl(f_18134) static void C_ccall f_18134(C_word c,C_word *av) C_noret; C_noret_decl(f_18145) static void C_ccall f_18145(C_word c,C_word *av) C_noret; C_noret_decl(f_18156) static void C_ccall f_18156(C_word c,C_word *av) C_noret; C_noret_decl(f_18169) static void C_ccall f_18169(C_word c,C_word *av) C_noret; C_noret_decl(f_18171) static void C_fcall f_18171(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18184) static C_word C_fcall f_18184(C_word t0,C_word t1); C_noret_decl(f_18212) static void C_ccall f_18212(C_word c,C_word *av) C_noret; C_noret_decl(f_18216) static void C_fcall f_18216(C_word t0,C_word t1) C_noret; C_noret_decl(f_18225) static void C_ccall f_18225(C_word c,C_word *av) C_noret; C_noret_decl(f_18243) static void C_ccall f_18243(C_word c,C_word *av) C_noret; C_noret_decl(f_18246) static void C_ccall f_18246(C_word c,C_word *av) C_noret; C_noret_decl(f_18329) static void C_ccall f_18329(C_word c,C_word *av) C_noret; C_noret_decl(f_18332) static void C_ccall f_18332(C_word c,C_word *av) C_noret; C_noret_decl(f_18335) static void C_ccall f_18335(C_word c,C_word *av) C_noret; C_noret_decl(f_18338) static void C_ccall f_18338(C_word c,C_word *av) C_noret; C_noret_decl(f_18341) static void C_ccall f_18341(C_word c,C_word *av) C_noret; C_noret_decl(f_18344) static void C_ccall f_18344(C_word c,C_word *av) C_noret; C_noret_decl(f_18347) static void C_ccall f_18347(C_word c,C_word *av) C_noret; C_noret_decl(f_18350) static void C_ccall f_18350(C_word c,C_word *av) C_noret; C_noret_decl(f_18353) static void C_ccall f_18353(C_word c,C_word *av) C_noret; C_noret_decl(f_18356) static void C_ccall f_18356(C_word c,C_word *av) C_noret; C_noret_decl(f_18359) static void C_ccall f_18359(C_word c,C_word *av) C_noret; C_noret_decl(f_18362) static void C_ccall f_18362(C_word c,C_word *av) C_noret; C_noret_decl(f_18365) static void C_ccall f_18365(C_word c,C_word *av) C_noret; C_noret_decl(f_18368) static void C_ccall f_18368(C_word c,C_word *av) C_noret; C_noret_decl(f_18373) static void C_ccall f_18373(C_word c,C_word *av) C_noret; C_noret_decl(f_18379) static void C_fcall f_18379(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18395) static void C_ccall f_18395(C_word c,C_word *av) C_noret; C_noret_decl(f_18411) static void C_ccall f_18411(C_word c,C_word *av) C_noret; C_noret_decl(f_18417) static void C_fcall f_18417(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18437) static void C_ccall f_18437(C_word c,C_word *av) C_noret; C_noret_decl(f_18441) static void C_ccall f_18441(C_word c,C_word *av) C_noret; C_noret_decl(f_18453) static void C_ccall f_18453(C_word c,C_word *av) C_noret; C_noret_decl(f_18485) static void C_ccall f_18485(C_word c,C_word *av) C_noret; C_noret_decl(f_18489) static void C_ccall f_18489(C_word c,C_word *av) C_noret; C_noret_decl(f_18497) static void C_ccall f_18497(C_word c,C_word *av) C_noret; C_noret_decl(f_18507) static void C_fcall f_18507(C_word t0,C_word t1) C_noret; C_noret_decl(f_18515) static C_word C_fcall f_18515(C_word t0); C_noret_decl(f_18551) static void C_ccall f_18551(C_word c,C_word *av) C_noret; C_noret_decl(f_18566) static void C_fcall f_18566(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18576) static void C_ccall f_18576(C_word c,C_word *av) C_noret; C_noret_decl(f_18596) static void C_fcall f_18596(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18609) static void C_ccall f_18609(C_word c,C_word *av) C_noret; C_noret_decl(f_18616) static void C_ccall f_18616(C_word c,C_word *av) C_noret; C_noret_decl(f_18618) static void C_ccall f_18618(C_word c,C_word *av) C_noret; C_noret_decl(f_18626) static void C_ccall f_18626(C_word c,C_word *av) C_noret; C_noret_decl(f_18628) static void C_ccall f_18628(C_word c,C_word *av) C_noret; C_noret_decl(f_18637) static void C_ccall f_18637(C_word c,C_word *av) C_noret; C_noret_decl(f_18655) static void C_fcall f_18655(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18680) static void C_ccall f_18680(C_word c,C_word *av) C_noret; C_noret_decl(f_18696) static void C_fcall f_18696(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18713) static void C_ccall f_18713(C_word c,C_word *av) C_noret; C_noret_decl(f_18717) static void C_ccall f_18717(C_word c,C_word *av) C_noret; C_noret_decl(f_18721) static void C_ccall f_18721(C_word c,C_word *av) C_noret; C_noret_decl(f_18723) static void C_ccall f_18723(C_word c,C_word *av) C_noret; C_noret_decl(f_18731) static void C_ccall f_18731(C_word c,C_word *av) C_noret; C_noret_decl(f_18733) static void C_ccall f_18733(C_word c,C_word *av) C_noret; C_noret_decl(f_18740) static void C_ccall f_18740(C_word c,C_word *av) C_noret; C_noret_decl(f_18744) static void C_ccall f_18744(C_word c,C_word *av) C_noret; C_noret_decl(f_18748) static void C_ccall f_18748(C_word c,C_word *av) C_noret; C_noret_decl(f_18757) static void C_ccall f_18757(C_word c,C_word *av) C_noret; C_noret_decl(f_18765) static void C_ccall f_18765(C_word c,C_word *av) C_noret; C_noret_decl(f_18775) static void C_ccall f_18775(C_word c,C_word *av) C_noret; C_noret_decl(f_18781) static void C_ccall f_18781(C_word c,C_word *av) C_noret; C_noret_decl(f_18784) static void C_ccall f_18784(C_word c,C_word *av) C_noret; C_noret_decl(f_18788) static void C_ccall f_18788(C_word c,C_word *av) C_noret; C_noret_decl(f_18815) static void C_fcall f_18815(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_18831) static void C_ccall f_18831(C_word c,C_word *av) C_noret; C_noret_decl(f_18837) static void C_ccall f_18837(C_word c,C_word *av) C_noret; C_noret_decl(f_18860) static void C_ccall f_18860(C_word c,C_word *av) C_noret; C_noret_decl(f_18873) static void C_ccall f_18873(C_word c,C_word *av) C_noret; C_noret_decl(f_18879) static void C_ccall f_18879(C_word c,C_word *av) C_noret; C_noret_decl(f_18884) static void C_ccall f_18884(C_word c,C_word *av) C_noret; C_noret_decl(f_18889) static void C_ccall f_18889(C_word c,C_word *av) C_noret; C_noret_decl(f_18893) static void C_ccall f_18893(C_word c,C_word *av) C_noret; C_noret_decl(f_18902) static void C_ccall f_18902(C_word c,C_word *av) C_noret; C_noret_decl(f_18933) static void C_ccall f_18933(C_word c,C_word *av) C_noret; C_noret_decl(f_18937) static void C_ccall f_18937(C_word c,C_word *av) C_noret; C_noret_decl(f_18941) static void C_ccall f_18941(C_word c,C_word *av) C_noret; C_noret_decl(f_18944) static void C_ccall f_18944(C_word c,C_word *av) C_noret; C_noret_decl(f_18947) static void C_ccall f_18947(C_word c,C_word *av) C_noret; C_noret_decl(f_18950) static void C_ccall f_18950(C_word c,C_word *av) C_noret; C_noret_decl(f_18952) static void C_ccall f_18952(C_word c,C_word *av) C_noret; C_noret_decl(f_18963) static void C_ccall f_18963(C_word c,C_word *av) C_noret; C_noret_decl(f_18974) static void C_ccall f_18974(C_word c,C_word *av) C_noret; C_noret_decl(f_18985) static void C_ccall f_18985(C_word c,C_word *av) C_noret; C_noret_decl(f_18996) static void C_ccall f_18996(C_word c,C_word *av) C_noret; C_noret_decl(f_19009) static void C_ccall f_19009(C_word c,C_word *av) C_noret; C_noret_decl(f_19011) static C_word C_fcall f_19011(C_word t0,C_word t1); C_noret_decl(f_19017) static C_word C_fcall f_19017(C_word t0); C_noret_decl(f_19022) static C_word C_fcall f_19022(C_word t0); C_noret_decl(f_19057) static void C_ccall f_19057(C_word c,C_word *av) C_noret; C_noret_decl(f_19070) static void C_ccall f_19070(C_word c,C_word *av) C_noret; C_noret_decl(f_19072) static C_word C_fcall f_19072(C_word t0,C_word t1); C_noret_decl(f_19078) static C_word C_fcall f_19078(C_word t0); C_noret_decl(f_19083) static C_word C_fcall f_19083(C_word t0); C_noret_decl(f_19118) static void C_ccall f_19118(C_word c,C_word *av) C_noret; C_noret_decl(f_19131) static void C_ccall f_19131(C_word c,C_word *av) C_noret; C_noret_decl(f_19133) static C_word C_fcall f_19133(C_word t0,C_word t1); C_noret_decl(f_19139) static C_word C_fcall f_19139(C_word t0); C_noret_decl(f_19144) static C_word C_fcall f_19144(C_word t0); C_noret_decl(f_19179) static void C_ccall f_19179(C_word c,C_word *av) C_noret; C_noret_decl(f_19191) static void C_ccall f_19191(C_word c,C_word *av) C_noret; C_noret_decl(f_19193) static void C_ccall f_19193(C_word c,C_word *av) C_noret; C_noret_decl(f_19199) static void C_ccall f_19199(C_word c,C_word *av) C_noret; C_noret_decl(f_19205) static void C_fcall f_19205(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_19215) static void C_ccall f_19215(C_word c,C_word *av) C_noret; C_noret_decl(f_19218) static void C_ccall f_19218(C_word c,C_word *av) C_noret; C_noret_decl(f_19221) static void C_ccall f_19221(C_word c,C_word *av) C_noret; C_noret_decl(f_19224) static void C_ccall f_19224(C_word c,C_word *av) C_noret; C_noret_decl(f_19227) static void C_ccall f_19227(C_word c,C_word *av) C_noret; C_noret_decl(f_19234) static void C_ccall f_19234(C_word c,C_word *av) C_noret; C_noret_decl(f_19238) static void C_ccall f_19238(C_word c,C_word *av) C_noret; C_noret_decl(f_19242) static void C_ccall f_19242(C_word c,C_word *av) C_noret; C_noret_decl(f_19248) static void C_fcall f_19248(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19261) static void C_ccall f_19261(C_word c,C_word *av) C_noret; C_noret_decl(f_19303) static void C_fcall f_19303(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19307) static void C_ccall f_19307(C_word c,C_word *av) C_noret; C_noret_decl(f_19340) static void C_ccall f_19340(C_word c,C_word *av) C_noret; C_noret_decl(f_19346) static void C_ccall f_19346(C_word c,C_word *av) C_noret; C_noret_decl(f_19352) static void C_ccall f_19352(C_word c,C_word *av) C_noret; C_noret_decl(f_19358) static void C_ccall f_19358(C_word c,C_word *av) C_noret; C_noret_decl(f_19364) static void C_ccall f_19364(C_word c,C_word *av) C_noret; C_noret_decl(f_19368) static void C_ccall f_19368(C_word c,C_word *av) C_noret; C_noret_decl(f_19373) static void C_ccall f_19373(C_word c,C_word *av) C_noret; C_noret_decl(f_19379) static void C_ccall f_19379(C_word c,C_word *av) C_noret; C_noret_decl(f_19383) static void C_ccall f_19383(C_word c,C_word *av) C_noret; C_noret_decl(f_19388) static void C_ccall f_19388(C_word c,C_word *av) C_noret; C_noret_decl(f_19392) static void C_ccall f_19392(C_word c,C_word *av) C_noret; C_noret_decl(f_19397) static void C_ccall f_19397(C_word c,C_word *av) C_noret; C_noret_decl(f_19403) static void C_ccall f_19403(C_word c,C_word *av) C_noret; C_noret_decl(f_19407) static void C_ccall f_19407(C_word c,C_word *av) C_noret; C_noret_decl(f_19412) static void C_ccall f_19412(C_word c,C_word *av) C_noret; C_noret_decl(f_19416) static void C_ccall f_19416(C_word c,C_word *av) C_noret; C_noret_decl(f_19421) static void C_ccall f_19421(C_word c,C_word *av) C_noret; C_noret_decl(f_19426) static void C_ccall f_19426(C_word c,C_word *av) C_noret; C_noret_decl(f_19432) static void C_ccall f_19432(C_word c,C_word *av) C_noret; C_noret_decl(f_19436) static void C_ccall f_19436(C_word c,C_word *av) C_noret; C_noret_decl(f_19441) static void C_ccall f_19441(C_word c,C_word *av) C_noret; C_noret_decl(f_19446) static void C_ccall f_19446(C_word c,C_word *av) C_noret; C_noret_decl(f_19450) static void C_ccall f_19450(C_word c,C_word *av) C_noret; C_noret_decl(f_19455) static void C_ccall f_19455(C_word c,C_word *av) C_noret; C_noret_decl(f_19460) static void C_ccall f_19460(C_word c,C_word *av) C_noret; C_noret_decl(f_19466) static void C_ccall f_19466(C_word c,C_word *av) C_noret; C_noret_decl(f_19470) static void C_ccall f_19470(C_word c,C_word *av) C_noret; C_noret_decl(f_19475) static void C_ccall f_19475(C_word c,C_word *av) C_noret; C_noret_decl(f_19480) static void C_ccall f_19480(C_word c,C_word *av) C_noret; C_noret_decl(f_19485) static void C_ccall f_19485(C_word c,C_word *av) C_noret; C_noret_decl(f_19506) static void C_ccall f_19506(C_word c,C_word *av) C_noret; C_noret_decl(f_19513) static void C_ccall f_19513(C_word c,C_word *av) C_noret; C_noret_decl(f_19519) static void C_ccall f_19519(C_word c,C_word *av) C_noret; C_noret_decl(f_19537) static void C_ccall f_19537(C_word c,C_word *av) C_noret; C_noret_decl(f_19546) static void C_ccall f_19546(C_word c,C_word *av) C_noret; C_noret_decl(f_19559) static void C_fcall f_19559(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19567) static void C_ccall f_19567(C_word c,C_word *av) C_noret; C_noret_decl(f_19572) static void C_fcall f_19572(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19609) static void C_ccall f_19609(C_word c,C_word *av) C_noret; C_noret_decl(f_19621) static void C_ccall f_19621(C_word c,C_word *av) C_noret; C_noret_decl(f_19631) static void C_fcall f_19631(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19647) static void C_ccall f_19647(C_word c,C_word *av) C_noret; C_noret_decl(f_19660) static void C_ccall f_19660(C_word c,C_word *av) C_noret; C_noret_decl(f_19667) static void C_ccall f_19667(C_word c,C_word *av) C_noret; C_noret_decl(f_19669) static void C_ccall f_19669(C_word c,C_word *av) C_noret; C_noret_decl(f_19682) static void C_ccall f_19682(C_word c,C_word *av) C_noret; C_noret_decl(f_19688) static void C_ccall f_19688(C_word c,C_word *av) C_noret; C_noret_decl(f_19695) static void C_ccall f_19695(C_word c,C_word *av) C_noret; C_noret_decl(f_19697) static void C_ccall f_19697(C_word c,C_word *av) C_noret; C_noret_decl(f_19701) static void C_ccall f_19701(C_word c,C_word *av) C_noret; C_noret_decl(f_19704) static void C_ccall f_19704(C_word c,C_word *av) C_noret; C_noret_decl(f_19714) static void C_ccall f_19714(C_word c,C_word *av) C_noret; C_noret_decl(f_19718) static void C_ccall f_19718(C_word c,C_word *av) C_noret; C_noret_decl(f_19726) static void C_ccall f_19726(C_word c,C_word *av) C_noret; C_noret_decl(f_19729) static void C_ccall f_19729(C_word c,C_word *av) C_noret; C_noret_decl(f_19736) static void C_ccall f_19736(C_word c,C_word *av) C_noret; C_noret_decl(f_19739) static void C_ccall f_19739(C_word c,C_word *av) C_noret; C_noret_decl(f_19742) static void C_ccall f_19742(C_word c,C_word *av) C_noret; C_noret_decl(f_19745) static void C_ccall f_19745(C_word c,C_word *av) C_noret; C_noret_decl(f_19753) static void C_ccall f_19753(C_word c,C_word *av) C_noret; C_noret_decl(f_19761) static void C_ccall f_19761(C_word c,C_word *av) C_noret; C_noret_decl(f_19763) static void C_ccall f_19763(C_word c,C_word *av) C_noret; C_noret_decl(f_19779) static void C_ccall f_19779(C_word c,C_word *av) C_noret; C_noret_decl(f_19806) static void C_ccall f_19806(C_word c,C_word *av) C_noret; C_noret_decl(f_19810) static void C_ccall f_19810(C_word c,C_word *av) C_noret; C_noret_decl(f_19814) static void C_ccall f_19814(C_word c,C_word *av) C_noret; C_noret_decl(f_19818) static void C_ccall f_19818(C_word c,C_word *av) C_noret; C_noret_decl(f_19822) static void C_ccall f_19822(C_word c,C_word *av) C_noret; C_noret_decl(f_19826) static void C_ccall f_19826(C_word c,C_word *av) C_noret; C_noret_decl(f_19830) static void C_ccall f_19830(C_word c,C_word *av) C_noret; C_noret_decl(f_19834) static void C_ccall f_19834(C_word c,C_word *av) C_noret; C_noret_decl(f_19838) static void C_ccall f_19838(C_word c,C_word *av) C_noret; C_noret_decl(f_19842) static void C_ccall f_19842(C_word c,C_word *av) C_noret; C_noret_decl(f_19846) static void C_ccall f_19846(C_word c,C_word *av) C_noret; C_noret_decl(f_19850) static void C_ccall f_19850(C_word c,C_word *av) C_noret; C_noret_decl(f_19854) static void C_ccall f_19854(C_word c,C_word *av) C_noret; C_noret_decl(f_19858) static void C_ccall f_19858(C_word c,C_word *av) C_noret; C_noret_decl(f_19862) static void C_ccall f_19862(C_word c,C_word *av) C_noret; C_noret_decl(f_19866) static void C_ccall f_19866(C_word c,C_word *av) C_noret; C_noret_decl(f_19870) static void C_ccall f_19870(C_word c,C_word *av) C_noret; C_noret_decl(f_19877) static void C_ccall f_19877(C_word c,C_word *av) C_noret; C_noret_decl(f_19884) static void C_ccall f_19884(C_word c,C_word *av) C_noret; C_noret_decl(f_19885) static void C_fcall f_19885(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_19889) static void C_fcall f_19889(C_word t0,C_word t1) C_noret; C_noret_decl(f_19892) static void C_ccall f_19892(C_word c,C_word *av) C_noret; C_noret_decl(f_19908) static void C_ccall f_19908(C_word c,C_word *av) C_noret; C_noret_decl(f_19919) static void C_fcall f_19919(C_word t0,C_word t1) C_noret; C_noret_decl(f_19927) static void C_ccall f_19927(C_word c,C_word *av) C_noret; C_noret_decl(f_19939) static void C_fcall f_19939(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_19948) static void C_fcall f_19948(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_19953) static void C_fcall f_19953(C_word t0,C_word t1) C_noret; C_noret_decl(f_20009) static void C_ccall f_20009(C_word c,C_word *av) C_noret; C_noret_decl(f_20023) static void C_ccall f_20023(C_word c,C_word *av) C_noret; C_noret_decl(f_20035) static void C_ccall f_20035(C_word c,C_word *av) C_noret; C_noret_decl(f_20041) static void C_ccall f_20041(C_word c,C_word *av) C_noret; C_noret_decl(f_20066) static void C_ccall f_20066(C_word c,C_word *av) C_noret; C_noret_decl(f_20084) static void C_ccall f_20084(C_word c,C_word *av) C_noret; C_noret_decl(f_20088) static void C_ccall f_20088(C_word c,C_word *av) C_noret; C_noret_decl(f_20144) static void C_ccall f_20144(C_word c,C_word *av) C_noret; C_noret_decl(f_20153) static void C_ccall f_20153(C_word c,C_word *av) C_noret; C_noret_decl(f_20166) static void C_ccall f_20166(C_word c,C_word *av) C_noret; C_noret_decl(f_20178) static void C_ccall f_20178(C_word c,C_word *av) C_noret; C_noret_decl(f_20196) static void C_ccall f_20196(C_word c,C_word *av) C_noret; C_noret_decl(f_20216) static void C_ccall f_20216(C_word c,C_word *av) C_noret; C_noret_decl(f_20219) static void C_ccall f_20219(C_word c,C_word *av) C_noret; C_noret_decl(f_20222) static void C_ccall f_20222(C_word c,C_word *av) C_noret; C_noret_decl(f_20230) static void C_ccall f_20230(C_word c,C_word *av) C_noret; C_noret_decl(f_20234) static void C_ccall f_20234(C_word c,C_word *av) C_noret; C_noret_decl(f_20238) static void C_ccall f_20238(C_word c,C_word *av) C_noret; C_noret_decl(f_20242) static void C_ccall f_20242(C_word c,C_word *av) C_noret; C_noret_decl(f_20246) static void C_ccall f_20246(C_word c,C_word *av) C_noret; C_noret_decl(f_20248) static void C_ccall f_20248(C_word c,C_word *av) C_noret; C_noret_decl(f_20256) static void C_ccall f_20256(C_word c,C_word *av) C_noret; C_noret_decl(f_20259) static void C_ccall f_20259(C_word c,C_word *av) C_noret; C_noret_decl(f_20269) static void C_ccall f_20269(C_word c,C_word *av) C_noret; C_noret_decl(f_20271) static void C_ccall f_20271(C_word c,C_word *av) C_noret; C_noret_decl(f_20279) static void C_ccall f_20279(C_word c,C_word *av) C_noret; C_noret_decl(f_20282) static void C_ccall f_20282(C_word c,C_word *av) C_noret; C_noret_decl(f_20292) static void C_ccall f_20292(C_word c,C_word *av) C_noret; C_noret_decl(f_20294) static void C_ccall f_20294(C_word c,C_word *av) C_noret; C_noret_decl(f_20298) static void C_ccall f_20298(C_word c,C_word *av) C_noret; C_noret_decl(f_20301) static void C_ccall f_20301(C_word c,C_word *av) C_noret; C_noret_decl(f_20304) static void C_ccall f_20304(C_word c,C_word *av) C_noret; C_noret_decl(f_20307) static void C_ccall f_20307(C_word c,C_word *av) C_noret; C_noret_decl(f_20310) static void C_ccall f_20310(C_word c,C_word *av) C_noret; C_noret_decl(f_20312) static void C_ccall f_20312(C_word c,C_word *av) C_noret; C_noret_decl(f_20318) static void C_fcall f_20318(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_20327) static void C_fcall f_20327(C_word t0,C_word t1) C_noret; C_noret_decl(f_20335) static void C_ccall f_20335(C_word c,C_word *av) C_noret; C_noret_decl(f_20337) static void C_fcall f_20337(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20344) static void C_fcall f_20344(C_word t0,C_word t1) C_noret; C_noret_decl(f_20351) static void C_ccall f_20351(C_word c,C_word *av) C_noret; C_noret_decl(f_20364) static void C_fcall f_20364(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20368) static void C_ccall f_20368(C_word c,C_word *av) C_noret; C_noret_decl(f_20373) static void C_fcall f_20373(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20377) static void C_ccall f_20377(C_word c,C_word *av) C_noret; C_noret_decl(f_20388) static void C_fcall f_20388(C_word t0,C_word t1) C_noret; C_noret_decl(f_20391) static void C_fcall f_20391(C_word t0,C_word t1) C_noret; C_noret_decl(f_20399) static void C_ccall f_20399(C_word c,C_word *av) C_noret; C_noret_decl(f_20401) static void C_fcall f_20401(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20414) static void C_ccall f_20414(C_word c,C_word *av) C_noret; C_noret_decl(f_20421) static void C_ccall f_20421(C_word c,C_word *av) C_noret; C_noret_decl(f_20430) static void C_ccall f_20430(C_word c,C_word *av) C_noret; C_noret_decl(f_20437) static void C_ccall f_20437(C_word c,C_word *av) C_noret; C_noret_decl(f_20439) static void C_fcall f_20439(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_20445) static void C_fcall f_20445(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20455) static void C_ccall f_20455(C_word c,C_word *av) C_noret; C_noret_decl(f_20458) static void C_ccall f_20458(C_word c,C_word *av) C_noret; C_noret_decl(f_20468) static void C_ccall f_20468(C_word c,C_word *av) C_noret; C_noret_decl(f_20471) static void C_ccall f_20471(C_word c,C_word *av) C_noret; C_noret_decl(f_20499) static void C_fcall f_20499(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20503) static void C_ccall f_20503(C_word c,C_word *av) C_noret; C_noret_decl(f_20511) static void C_fcall f_20511(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20536) static void C_fcall f_20536(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_20544) static void C_ccall f_20544(C_word c,C_word *av) C_noret; C_noret_decl(f_20546) static void C_fcall f_20546(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20563) static void C_ccall f_20563(C_word c,C_word *av) C_noret; C_noret_decl(f_20576) static void C_ccall f_20576(C_word c,C_word *av) C_noret; C_noret_decl(f_20593) static void C_ccall f_20593(C_word c,C_word *av) C_noret; C_noret_decl(f_20610) static void C_ccall f_20610(C_word c,C_word *av) C_noret; C_noret_decl(f_20627) static void C_ccall f_20627(C_word c,C_word *av) C_noret; C_noret_decl(f_20644) static void C_ccall f_20644(C_word c,C_word *av) C_noret; C_noret_decl(f_20661) static void C_ccall f_20661(C_word c,C_word *av) C_noret; C_noret_decl(f_20678) static void C_ccall f_20678(C_word c,C_word *av) C_noret; C_noret_decl(f_20698) static void C_ccall f_20698(C_word c,C_word *av) C_noret; C_noret_decl(f_20706) static void C_ccall f_20706(C_word c,C_word *av) C_noret; C_noret_decl(f_20715) static void C_ccall f_20715(C_word c,C_word *av) C_noret; C_noret_decl(f_20721) static void C_ccall f_20721(C_word c,C_word *av) C_noret; C_noret_decl(f_20727) static void C_fcall f_20727(C_word t0,C_word t1) C_noret; C_noret_decl(f_20730) static void C_ccall f_20730(C_word c,C_word *av) C_noret; C_noret_decl(f_20733) static void C_ccall f_20733(C_word c,C_word *av) C_noret; C_noret_decl(f_20743) static void C_ccall f_20743(C_word c,C_word *av) C_noret; C_noret_decl(f_20747) static void C_ccall f_20747(C_word c,C_word *av) C_noret; C_noret_decl(f_20764) static void C_ccall f_20764(C_word c,C_word *av) C_noret; C_noret_decl(f_20769) static void C_ccall f_20769(C_word c,C_word *av) C_noret; C_noret_decl(f_20776) static void C_ccall f_20776(C_word c,C_word *av) C_noret; C_noret_decl(f_20780) static void C_ccall f_20780(C_word c,C_word *av) C_noret; C_noret_decl(f_20789) static void C_ccall f_20789(C_word c,C_word *av) C_noret; C_noret_decl(f_20795) static void C_ccall f_20795(C_word c,C_word *av) C_noret; C_noret_decl(f_20805) static void C_ccall f_20805(C_word c,C_word *av) C_noret; C_noret_decl(f_20809) static void C_ccall f_20809(C_word c,C_word *av) C_noret; C_noret_decl(f_20818) static void C_fcall f_20818(C_word t0,C_word t1) C_noret; C_noret_decl(f_20825) static void C_ccall f_20825(C_word c,C_word *av) C_noret; C_noret_decl(f_20838) static void C_fcall f_20838(C_word t0,C_word t1) C_noret; C_noret_decl(f_20843) static void C_fcall f_20843(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_20860) static void C_ccall f_20860(C_word c,C_word *av) C_noret; C_noret_decl(f_20875) static void C_ccall f_20875(C_word c,C_word *av) C_noret; C_noret_decl(f_20888) static void C_ccall f_20888(C_word c,C_word *av) C_noret; C_noret_decl(f_20910) static void C_ccall f_20910(C_word c,C_word *av) C_noret; C_noret_decl(f_20913) static void C_ccall f_20913(C_word c,C_word *av) C_noret; C_noret_decl(f_20942) static void C_fcall f_20942(C_word t0,C_word t1) C_noret; C_noret_decl(f_20952) static void C_ccall f_20952(C_word c,C_word *av) C_noret; C_noret_decl(f_20968) static void C_ccall f_20968(C_word c,C_word *av) C_noret; C_noret_decl(f_20979) static void C_ccall f_20979(C_word c,C_word *av) C_noret; C_noret_decl(f_20986) static void C_ccall f_20986(C_word c,C_word *av) C_noret; C_noret_decl(f_21084) static void C_ccall f_21084(C_word c,C_word *av) C_noret; C_noret_decl(f_21090) static void C_fcall f_21090(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_21099) static void C_fcall f_21099(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21113) static void C_ccall f_21113(C_word c,C_word *av) C_noret; C_noret_decl(f_21116) static void C_ccall f_21116(C_word c,C_word *av) C_noret; C_noret_decl(f_21127) static void C_ccall f_21127(C_word c,C_word *av) C_noret; C_noret_decl(f_21129) static void C_ccall f_21129(C_word c,C_word *av) C_noret; C_noret_decl(f_21132) static void C_ccall f_21132(C_word c,C_word *av) C_noret; C_noret_decl(f_21149) static void C_ccall f_21149(C_word c,C_word *av) C_noret; C_noret_decl(f_21154) static void C_fcall f_21154(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21158) static void C_ccall f_21158(C_word c,C_word *av) C_noret; C_noret_decl(f_21161) static void C_fcall f_21161(C_word t0,C_word t1) C_noret; C_noret_decl(f_21164) static void C_ccall f_21164(C_word c,C_word *av) C_noret; C_noret_decl(f_21174) static void C_ccall f_21174(C_word c,C_word *av) C_noret; C_noret_decl(f_21192) static void C_ccall f_21192(C_word c,C_word *av) C_noret; C_noret_decl(f_21195) static void C_ccall f_21195(C_word c,C_word *av) C_noret; C_noret_decl(f_21204) static void C_fcall f_21204(C_word t0,C_word t1) C_noret; C_noret_decl(f_21207) static void C_ccall f_21207(C_word c,C_word *av) C_noret; C_noret_decl(f_21210) static void C_ccall f_21210(C_word c,C_word *av) C_noret; C_noret_decl(f_21216) static void C_ccall f_21216(C_word c,C_word *av) C_noret; C_noret_decl(f_21229) static void C_ccall f_21229(C_word c,C_word *av) C_noret; C_noret_decl(f_21233) static void C_ccall f_21233(C_word c,C_word *av) C_noret; C_noret_decl(f_21237) static void C_ccall f_21237(C_word c,C_word *av) C_noret; C_noret_decl(f_21248) static void C_ccall f_21248(C_word c,C_word *av) C_noret; C_noret_decl(f_21252) static void C_ccall f_21252(C_word c,C_word *av) C_noret; C_noret_decl(f_21255) static void C_ccall f_21255(C_word c,C_word *av) C_noret; C_noret_decl(f_21283) static void C_ccall f_21283(C_word c,C_word *av) C_noret; C_noret_decl(f_21339) static void C_ccall f_21339(C_word c,C_word *av) C_noret; C_noret_decl(f_21343) static void C_ccall f_21343(C_word c,C_word *av) C_noret; C_noret_decl(f_21350) static void C_ccall f_21350(C_word c,C_word *av) C_noret; C_noret_decl(f_21352) static void C_fcall f_21352(C_word t0,C_word t1) C_noret; C_noret_decl(f_21356) static void C_ccall f_21356(C_word c,C_word *av) C_noret; C_noret_decl(f_21370) static void C_fcall f_21370(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_21376) static void C_ccall f_21376(C_word c,C_word *av) C_noret; C_noret_decl(f_21383) static void C_ccall f_21383(C_word c,C_word *av) C_noret; C_noret_decl(f_21390) static void C_ccall f_21390(C_word c,C_word *av) C_noret; C_noret_decl(f_21405) static void C_fcall f_21405(C_word t0,C_word t1) C_noret; C_noret_decl(f_21411) static void C_ccall f_21411(C_word c,C_word *av) C_noret; C_noret_decl(f_21440) static void C_fcall f_21440(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21450) static void C_ccall f_21450(C_word c,C_word *av) C_noret; C_noret_decl(f_21453) static void C_ccall f_21453(C_word c,C_word *av) C_noret; C_noret_decl(f_21489) static void C_ccall f_21489(C_word c,C_word *av) C_noret; C_noret_decl(f_21491) static void C_fcall f_21491(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21501) static void C_ccall f_21501(C_word c,C_word *av) C_noret; C_noret_decl(f_21504) static void C_ccall f_21504(C_word c,C_word *av) C_noret; C_noret_decl(f_21556) static void C_ccall f_21556(C_word c,C_word *av) C_noret; C_noret_decl(f_21558) static void C_fcall f_21558(C_word t0,C_word t1) C_noret; C_noret_decl(f_21566) static void C_ccall f_21566(C_word c,C_word *av) C_noret; C_noret_decl(f_21568) static void C_fcall f_21568(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_21578) static void C_fcall f_21578(C_word t0,C_word t1) C_noret; C_noret_decl(f_21593) static void C_ccall f_21593(C_word c,C_word *av) C_noret; C_noret_decl(f_21600) static void C_ccall f_21600(C_word c,C_word *av) C_noret; C_noret_decl(f_21622) static void C_fcall f_21622(C_word t0,C_word t1) C_noret; C_noret_decl(f_21630) static void C_ccall f_21630(C_word c,C_word *av) C_noret; C_noret_decl(f_21632) static void C_fcall f_21632(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_21642) static void C_fcall f_21642(C_word t0,C_word t1) C_noret; C_noret_decl(f_21648) static void C_ccall f_21648(C_word c,C_word *av) C_noret; C_noret_decl(f_21655) static void C_ccall f_21655(C_word c,C_word *av) C_noret; C_noret_decl(f_21668) static void C_fcall f_21668(C_word t0,C_word t1) C_noret; C_noret_decl(f_21674) static void C_ccall f_21674(C_word c,C_word *av) C_noret; C_noret_decl(f_21678) static void C_ccall f_21678(C_word c,C_word *av) C_noret; C_noret_decl(f_21685) static void C_ccall f_21685(C_word c,C_word *av) C_noret; C_noret_decl(f_21693) static void C_fcall f_21693(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_21699) static void C_fcall f_21699(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_21703) static void C_ccall f_21703(C_word c,C_word *av) C_noret; C_noret_decl(f_21712) static void C_fcall f_21712(C_word t0,C_word t1) C_noret; C_noret_decl(f_21718) static void C_fcall f_21718(C_word t0,C_word t1) C_noret; C_noret_decl(f_21725) static void C_ccall f_21725(C_word c,C_word *av) C_noret; C_noret_decl(f_21736) static void C_ccall f_21736(C_word c,C_word *av) C_noret; C_noret_decl(f_21776) static void C_ccall f_21776(C_word c,C_word *av) C_noret; C_noret_decl(f_21785) static void C_ccall f_21785(C_word c,C_word *av) C_noret; C_noret_decl(f_21792) static void C_ccall f_21792(C_word c,C_word *av) C_noret; C_noret_decl(f_21796) static void C_ccall f_21796(C_word c,C_word *av) C_noret; C_noret_decl(f_21800) static void C_ccall f_21800(C_word c,C_word *av) C_noret; C_noret_decl(f_21809) static void C_ccall f_21809(C_word c,C_word *av) C_noret; C_noret_decl(f_21820) static void C_ccall f_21820(C_word c,C_word *av) C_noret; C_noret_decl(f_21858) static void C_ccall f_21858(C_word c,C_word *av) C_noret; C_noret_decl(f_21907) static void C_fcall f_21907(C_word t0,C_word t1) C_noret; C_noret_decl(f_21911) static void C_ccall f_21911(C_word c,C_word *av) C_noret; C_noret_decl(f_21914) static void C_ccall f_21914(C_word c,C_word *av) C_noret; C_noret_decl(f_21926) static void C_ccall f_21926(C_word c,C_word *av) C_noret; C_noret_decl(f_21946) static void C_fcall f_21946(C_word t0,C_word t1) C_noret; C_noret_decl(f_21952) static void C_ccall f_21952(C_word c,C_word *av) C_noret; C_noret_decl(f_21962) static void C_ccall f_21962(C_word c,C_word *av) C_noret; C_noret_decl(f_22091) static void C_fcall f_22091(C_word t0,C_word t1) C_noret; C_noret_decl(f_22098) static void C_ccall f_22098(C_word c,C_word *av) C_noret; C_noret_decl(f_22116) static void C_fcall f_22116(C_word t0,C_word t1) C_noret; C_noret_decl(f_22122) static void C_fcall f_22122(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22126) static void C_ccall f_22126(C_word c,C_word *av) C_noret; C_noret_decl(f_22162) static void C_ccall f_22162(C_word c,C_word *av) C_noret; C_noret_decl(f_22185) static void C_ccall f_22185(C_word c,C_word *av) C_noret; C_noret_decl(f_22203) static void C_fcall f_22203(C_word t0,C_word t1) C_noret; C_noret_decl(f_22207) static void C_ccall f_22207(C_word c,C_word *av) C_noret; C_noret_decl(f_22214) static void C_ccall f_22214(C_word c,C_word *av) C_noret; C_noret_decl(f_22216) static void C_fcall f_22216(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_22220) static void C_ccall f_22220(C_word c,C_word *av) C_noret; C_noret_decl(f_22231) static void C_ccall f_22231(C_word c,C_word *av) C_noret; C_noret_decl(f_22247) static void C_ccall f_22247(C_word c,C_word *av) C_noret; C_noret_decl(f_22250) static void C_ccall f_22250(C_word c,C_word *av) C_noret; C_noret_decl(f_22253) static void C_ccall f_22253(C_word c,C_word *av) C_noret; C_noret_decl(f_22259) static void C_fcall f_22259(C_word t0,C_word t1) C_noret; C_noret_decl(f_22267) static void C_ccall f_22267(C_word c,C_word *av) C_noret; C_noret_decl(f_22273) static void C_ccall f_22273(C_word c,C_word *av) C_noret; C_noret_decl(f_22295) static void C_ccall f_22295(C_word c,C_word *av) C_noret; C_noret_decl(f_22307) static void C_ccall f_22307(C_word c,C_word *av) C_noret; C_noret_decl(f_22319) static void C_ccall f_22319(C_word c,C_word *av) C_noret; C_noret_decl(f_22328) static void C_ccall f_22328(C_word c,C_word *av) C_noret; C_noret_decl(f_22338) static void C_ccall f_22338(C_word c,C_word *av) C_noret; C_noret_decl(f_22347) static void C_ccall f_22347(C_word c,C_word *av) C_noret; C_noret_decl(f_22350) static void C_ccall f_22350(C_word c,C_word *av) C_noret; C_noret_decl(f_22368) static void C_ccall f_22368(C_word c,C_word *av) C_noret; C_noret_decl(f_22371) static void C_ccall f_22371(C_word c,C_word *av) C_noret; C_noret_decl(f_22377) static void C_fcall f_22377(C_word t0,C_word t1) C_noret; C_noret_decl(f_22394) static void C_ccall f_22394(C_word c,C_word *av) C_noret; C_noret_decl(f_22400) static void C_ccall f_22400(C_word c,C_word *av) C_noret; C_noret_decl(f_22428) static void C_ccall f_22428(C_word c,C_word *av) C_noret; C_noret_decl(f_22451) static void C_ccall f_22451(C_word c,C_word *av) C_noret; C_noret_decl(f_22457) static void C_fcall f_22457(C_word t0,C_word t1) C_noret; C_noret_decl(f_22465) static void C_ccall f_22465(C_word c,C_word *av) C_noret; C_noret_decl(f_22471) static void C_ccall f_22471(C_word c,C_word *av) C_noret; C_noret_decl(f_22496) static void C_ccall f_22496(C_word c,C_word *av) C_noret; C_noret_decl(f_22508) static void C_ccall f_22508(C_word c,C_word *av) C_noret; C_noret_decl(f_22520) static void C_ccall f_22520(C_word c,C_word *av) C_noret; C_noret_decl(f_22532) static void C_ccall f_22532(C_word c,C_word *av) C_noret; C_noret_decl(f_22544) static void C_ccall f_22544(C_word c,C_word *av) C_noret; C_noret_decl(f_22556) static void C_ccall f_22556(C_word c,C_word *av) C_noret; C_noret_decl(f_22568) static void C_ccall f_22568(C_word c,C_word *av) C_noret; C_noret_decl(f_22571) static void C_ccall f_22571(C_word c,C_word *av) C_noret; C_noret_decl(f_22574) static void C_ccall f_22574(C_word c,C_word *av) C_noret; C_noret_decl(f_22579) static void C_ccall f_22579(C_word c,C_word *av) C_noret; C_noret_decl(f_22584) static void C_ccall f_22584(C_word c,C_word *av) C_noret; C_noret_decl(f_22590) static void C_ccall f_22590(C_word c,C_word *av) C_noret; C_noret_decl(f_22632) static void C_ccall f_22632(C_word c,C_word *av) C_noret; C_noret_decl(f_22644) static void C_ccall f_22644(C_word c,C_word *av) C_noret; C_noret_decl(f_22647) static void C_ccall f_22647(C_word c,C_word *av) C_noret; C_noret_decl(f_22659) static void C_ccall f_22659(C_word c,C_word *av) C_noret; C_noret_decl(f_22671) static void C_ccall f_22671(C_word c,C_word *av) C_noret; C_noret_decl(f_22674) static void C_ccall f_22674(C_word c,C_word *av) C_noret; C_noret_decl(f_22686) static void C_ccall f_22686(C_word c,C_word *av) C_noret; C_noret_decl(f_22698) static void C_ccall f_22698(C_word c,C_word *av) C_noret; C_noret_decl(f_22701) static void C_ccall f_22701(C_word c,C_word *av) C_noret; C_noret_decl(f_22710) static void C_ccall f_22710(C_word c,C_word *av) C_noret; C_noret_decl(f_22725) static void C_ccall f_22725(C_word c,C_word *av) C_noret; C_noret_decl(f_22728) static void C_ccall f_22728(C_word c,C_word *av) C_noret; C_noret_decl(f_22733) static void C_ccall f_22733(C_word c,C_word *av) C_noret; C_noret_decl(f_22738) static void C_ccall f_22738(C_word c,C_word *av) C_noret; C_noret_decl(f_22744) static void C_ccall f_22744(C_word c,C_word *av) C_noret; C_noret_decl(f_22751) static void C_fcall f_22751(C_word t0,C_word t1) C_noret; C_noret_decl(f_22773) static void C_ccall f_22773(C_word c,C_word *av) C_noret; C_noret_decl(f_22785) static void C_ccall f_22785(C_word c,C_word *av) C_noret; C_noret_decl(f_22788) static void C_ccall f_22788(C_word c,C_word *av) C_noret; C_noret_decl(f_22791) static void C_ccall f_22791(C_word c,C_word *av) C_noret; C_noret_decl(f_22806) static void C_ccall f_22806(C_word c,C_word *av) C_noret; C_noret_decl(f_22815) static void C_ccall f_22815(C_word c,C_word *av) C_noret; C_noret_decl(f_22818) static void C_ccall f_22818(C_word c,C_word *av) C_noret; C_noret_decl(f_22824) static void C_fcall f_22824(C_word t0,C_word t1) C_noret; C_noret_decl(f_22827) static void C_ccall f_22827(C_word c,C_word *av) C_noret; C_noret_decl(f_22833) static void C_ccall f_22833(C_word c,C_word *av) C_noret; C_noret_decl(f_22852) static void C_ccall f_22852(C_word c,C_word *av) C_noret; C_noret_decl(f_22871) static void C_ccall f_22871(C_word c,C_word *av) C_noret; C_noret_decl(f_22887) static void C_ccall f_22887(C_word c,C_word *av) C_noret; C_noret_decl(f_22893) static void C_ccall f_22893(C_word c,C_word *av) C_noret; C_noret_decl(f_22965) static void C_ccall f_22965(C_word c,C_word *av) C_noret; C_noret_decl(f_22977) static void C_ccall f_22977(C_word c,C_word *av) C_noret; C_noret_decl(f_23055) static void C_ccall f_23055(C_word c,C_word *av) C_noret; C_noret_decl(f_23131) static void C_ccall f_23131(C_word c,C_word *av) C_noret; C_noret_decl(f_23296) static void C_ccall f_23296(C_word c,C_word *av) C_noret; C_noret_decl(f_23308) static void C_ccall f_23308(C_word c,C_word *av) C_noret; C_noret_decl(f_23370) static void C_ccall f_23370(C_word c,C_word *av) C_noret; C_noret_decl(f_23373) static void C_fcall f_23373(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23419) static void C_fcall f_23419(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_23423) static void C_ccall f_23423(C_word c,C_word *av) C_noret; C_noret_decl(f_23441) static void C_ccall f_23441(C_word c,C_word *av) C_noret; C_noret_decl(f_23505) static void C_ccall f_23505(C_word c,C_word *av) C_noret; C_noret_decl(f_23516) static void C_ccall f_23516(C_word c,C_word *av) C_noret; C_noret_decl(f_23518) static void C_ccall f_23518(C_word c,C_word *av) C_noret; C_noret_decl(f_23531) static void C_ccall f_23531(C_word c,C_word *av) C_noret; C_noret_decl(f_23543) static void C_ccall f_23543(C_word c,C_word *av) C_noret; C_noret_decl(f_23563) static void C_ccall f_23563(C_word c,C_word *av) C_noret; C_noret_decl(f_23570) static void C_ccall f_23570(C_word c,C_word *av) C_noret; C_noret_decl(f_23579) static void C_ccall f_23579(C_word c,C_word *av) C_noret; C_noret_decl(f_23591) static void C_ccall f_23591(C_word c,C_word *av) C_noret; C_noret_decl(f_23612) static void C_ccall f_23612(C_word c,C_word *av) C_noret; C_noret_decl(f_23627) static void C_ccall f_23627(C_word c,C_word *av) C_noret; C_noret_decl(f_23645) static void C_ccall f_23645(C_word c,C_word *av) C_noret; C_noret_decl(f_23663) static void C_ccall f_23663(C_word c,C_word *av) C_noret; C_noret_decl(f_23682) static void C_fcall f_23682(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23692) static void C_ccall f_23692(C_word c,C_word *av) C_noret; C_noret_decl(f_23706) static void C_ccall f_23706(C_word c,C_word *av) C_noret; C_noret_decl(f_23709) static void C_ccall f_23709(C_word c,C_word *av) C_noret; C_noret_decl(f_23714) static void C_ccall f_23714(C_word c,C_word *av) C_noret; C_noret_decl(f_23733) static void C_fcall f_23733(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23743) static void C_ccall f_23743(C_word c,C_word *av) C_noret; C_noret_decl(f_23757) static void C_ccall f_23757(C_word c,C_word *av) C_noret; C_noret_decl(f_23760) static void C_ccall f_23760(C_word c,C_word *av) C_noret; C_noret_decl(f_23767) static void C_ccall f_23767(C_word c,C_word *av) C_noret; C_noret_decl(f_23771) static void C_ccall f_23771(C_word c,C_word *av) C_noret; C_noret_decl(f_23775) static void C_ccall f_23775(C_word c,C_word *av) C_noret; C_noret_decl(f_23777) static void C_ccall f_23777(C_word c,C_word *av) C_noret; C_noret_decl(f_23784) static void C_ccall f_23784(C_word c,C_word *av) C_noret; C_noret_decl(f_23787) static void C_ccall f_23787(C_word c,C_word *av) C_noret; C_noret_decl(f_23790) static void C_ccall f_23790(C_word c,C_word *av) C_noret; C_noret_decl(f_23792) static void C_fcall f_23792(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_23802) static void C_ccall f_23802(C_word c,C_word *av) C_noret; C_noret_decl(f_23808) static void C_ccall f_23808(C_word c,C_word *av) C_noret; C_noret_decl(f_23820) static void C_ccall f_23820(C_word c,C_word *av) C_noret; C_noret_decl(f_23823) static void C_ccall f_23823(C_word c,C_word *av) C_noret; C_noret_decl(f_23826) static void C_ccall f_23826(C_word c,C_word *av) C_noret; C_noret_decl(f_23843) static void C_ccall f_23843(C_word c,C_word *av) C_noret; C_noret_decl(f_23864) static void C_fcall f_23864(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_23868) static void C_ccall f_23868(C_word c,C_word *av) C_noret; C_noret_decl(f_23881) static void C_ccall f_23881(C_word c,C_word *av) C_noret; C_noret_decl(f_23884) static void C_ccall f_23884(C_word c,C_word *av) C_noret; C_noret_decl(f_23893) static void C_ccall f_23893(C_word c,C_word *av) C_noret; C_noret_decl(f_23896) static void C_ccall f_23896(C_word c,C_word *av) C_noret; C_noret_decl(f_23924) static void C_fcall f_23924(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_23928) static void C_ccall f_23928(C_word c,C_word *av) C_noret; C_noret_decl(f_23937) static void C_ccall f_23937(C_word c,C_word *av) C_noret; C_noret_decl(f_23948) static void C_fcall f_23948(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_23955) static void C_ccall f_23955(C_word c,C_word *av) C_noret; C_noret_decl(f_23960) static void C_fcall f_23960(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_23982) static void C_ccall f_23982(C_word c,C_word *av) C_noret; C_noret_decl(f_23988) static void C_ccall f_23988(C_word c,C_word *av) C_noret; C_noret_decl(f_23991) static void C_ccall f_23991(C_word c,C_word *av) C_noret; C_noret_decl(f_24002) static void C_ccall f_24002(C_word c,C_word *av) C_noret; C_noret_decl(f_24011) static void C_ccall f_24011(C_word c,C_word *av) C_noret; C_noret_decl(f_24014) static void C_ccall f_24014(C_word c,C_word *av) C_noret; C_noret_decl(f_24037) static void C_fcall f_24037(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_24086) static void C_fcall f_24086(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_24102) static void C_fcall f_24102(C_word t0,C_word t1) C_noret; C_noret_decl(f_24109) static void C_ccall f_24109(C_word c,C_word *av) C_noret; C_noret_decl(f_24121) static void C_fcall f_24121(C_word t0,C_word t1) C_noret; C_noret_decl(f_24179) static void C_fcall f_24179(C_word t0,C_word t1) C_noret; C_noret_decl(f_24226) static void C_ccall f_24226(C_word c,C_word *av) C_noret; C_noret_decl(f_24231) static void C_fcall f_24231(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_24280) static void C_ccall f_24280(C_word c,C_word *av) C_noret; C_noret_decl(f_24286) static void C_ccall f_24286(C_word c,C_word *av) C_noret; C_noret_decl(f_24290) static void C_fcall f_24290(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_24313) static void C_ccall f_24313(C_word c,C_word *av) C_noret; C_noret_decl(f_24320) static void C_ccall f_24320(C_word c,C_word *av) C_noret; C_noret_decl(f_24339) static void C_ccall f_24339(C_word c,C_word *av) C_noret; C_noret_decl(f_24375) static void C_ccall f_24375(C_word c,C_word *av) C_noret; C_noret_decl(f_24387) static void C_ccall f_24387(C_word c,C_word *av) C_noret; C_noret_decl(f_24393) static void C_ccall f_24393(C_word c,C_word *av) C_noret; C_noret_decl(f_24415) static void C_ccall f_24415(C_word c,C_word *av) C_noret; C_noret_decl(f_24422) static void C_ccall f_24422(C_word c,C_word *av) C_noret; C_noret_decl(f_24432) static void C_ccall f_24432(C_word c,C_word *av) C_noret; C_noret_decl(f_24441) static void C_ccall f_24441(C_word c,C_word *av) C_noret; C_noret_decl(f_24447) static void C_fcall f_24447(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_24460) static void C_ccall f_24460(C_word c,C_word *av) C_noret; C_noret_decl(f_24498) static void C_ccall f_24498(C_word c,C_word *av) C_noret; C_noret_decl(f_24564) static void C_ccall f_24564(C_word c,C_word *av) C_noret; C_noret_decl(f_24567) static void C_ccall f_24567(C_word c,C_word *av) C_noret; C_noret_decl(f_24574) static void C_ccall f_24574(C_word c,C_word *av) C_noret; C_noret_decl(f_24614) static void C_ccall f_24614(C_word c,C_word *av) C_noret; C_noret_decl(f_24617) static void C_ccall f_24617(C_word c,C_word *av) C_noret; C_noret_decl(f_24626) static void C_fcall f_24626(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_24636) static void C_fcall f_24636(C_word t0,C_word t1) C_noret; C_noret_decl(f_24639) static void C_ccall f_24639(C_word c,C_word *av) C_noret; C_noret_decl(f_24648) static void C_ccall f_24648(C_word c,C_word *av) C_noret; C_noret_decl(f_24658) static void C_ccall f_24658(C_word c,C_word *av) C_noret; C_noret_decl(f_24661) static void C_ccall f_24661(C_word c,C_word *av) C_noret; C_noret_decl(f_24687) static void C_ccall f_24687(C_word c,C_word *av) C_noret; C_noret_decl(f_24693) static void C_ccall f_24693(C_word c,C_word *av) C_noret; C_noret_decl(f_24698) static void C_fcall f_24698(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_24711) static void C_ccall f_24711(C_word c,C_word *av) C_noret; C_noret_decl(f_24714) static void C_ccall f_24714(C_word c,C_word *av) C_noret; C_noret_decl(f_24725) static void C_ccall f_24725(C_word c,C_word *av) C_noret; C_noret_decl(f_24747) static void C_ccall f_24747(C_word c,C_word *av) C_noret; C_noret_decl(f_24759) static void C_ccall f_24759(C_word c,C_word *av) C_noret; C_noret_decl(f_24762) static void C_ccall f_24762(C_word c,C_word *av) C_noret; C_noret_decl(f_24769) static void C_ccall f_24769(C_word c,C_word *av) C_noret; C_noret_decl(f_24778) static void C_ccall f_24778(C_word c,C_word *av) C_noret; C_noret_decl(f_24781) static void C_ccall f_24781(C_word c,C_word *av) C_noret; C_noret_decl(f_24825) static void C_ccall f_24825(C_word c,C_word *av) C_noret; C_noret_decl(f_24828) static void C_ccall f_24828(C_word c,C_word *av) C_noret; C_noret_decl(f_24837) static void C_fcall f_24837(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_24850) static void C_ccall f_24850(C_word c,C_word *av) C_noret; C_noret_decl(f_24853) static void C_ccall f_24853(C_word c,C_word *av) C_noret; C_noret_decl(f_24878) static void C_ccall f_24878(C_word c,C_word *av) C_noret; C_noret_decl(f_24882) static void C_ccall f_24882(C_word c,C_word *av) C_noret; C_noret_decl(f_24892) static void C_ccall f_24892(C_word c,C_word *av) C_noret; C_noret_decl(f_24895) static void C_ccall f_24895(C_word c,C_word *av) C_noret; C_noret_decl(f_24915) static void C_ccall f_24915(C_word c,C_word *av) C_noret; C_noret_decl(f_24928) static void C_ccall f_24928(C_word c,C_word *av) C_noret; C_noret_decl(f_24933) static void C_ccall f_24933(C_word c,C_word *av) C_noret; C_noret_decl(f_24939) static void C_ccall f_24939(C_word c,C_word *av) C_noret; C_noret_decl(f_24945) static void C_ccall f_24945(C_word c,C_word *av) C_noret; C_noret_decl(f_24949) static void C_ccall f_24949(C_word c,C_word *av) C_noret; C_noret_decl(f_24952) static void C_ccall f_24952(C_word c,C_word *av) C_noret; C_noret_decl(f_24967) static void C_ccall f_24967(C_word c,C_word *av) C_noret; C_noret_decl(f_24970) static void C_ccall f_24970(C_word c,C_word *av) C_noret; C_noret_decl(f_24988) static void C_ccall f_24988(C_word c,C_word *av) C_noret; C_noret_decl(f_24990) static void C_ccall f_24990(C_word c,C_word *av) C_noret; C_noret_decl(f_24996) static void C_ccall f_24996(C_word c,C_word *av) C_noret; C_noret_decl(f_25005) static void C_ccall f_25005(C_word c,C_word *av) C_noret; C_noret_decl(f_25011) static void C_ccall f_25011(C_word c,C_word *av) C_noret; C_noret_decl(f_25018) static void C_ccall f_25018(C_word c,C_word *av) C_noret; C_noret_decl(f_25021) static void C_ccall f_25021(C_word c,C_word *av) C_noret; C_noret_decl(f_25024) static void C_ccall f_25024(C_word c,C_word *av) C_noret; C_noret_decl(f_25033) static void C_ccall f_25033(C_word c,C_word *av) C_noret; C_noret_decl(f_25049) static void C_ccall f_25049(C_word c,C_word *av) C_noret; C_noret_decl(f_25064) static void C_ccall f_25064(C_word c,C_word *av) C_noret; C_noret_decl(f_25066) static void C_ccall f_25066(C_word c,C_word *av) C_noret; C_noret_decl(f_25072) static void C_ccall f_25072(C_word c,C_word *av) C_noret; C_noret_decl(f_25078) static void C_ccall f_25078(C_word c,C_word *av) C_noret; C_noret_decl(f_25082) static void C_ccall f_25082(C_word c,C_word *av) C_noret; C_noret_decl(f_25085) static void C_ccall f_25085(C_word c,C_word *av) C_noret; C_noret_decl(f_25088) static void C_ccall f_25088(C_word c,C_word *av) C_noret; C_noret_decl(f_25092) static void C_ccall f_25092(C_word c,C_word *av) C_noret; C_noret_decl(f_25096) static void C_ccall f_25096(C_word c,C_word *av) C_noret; C_noret_decl(f_25100) static void C_ccall f_25100(C_word c,C_word *av) C_noret; C_noret_decl(f_25103) static void C_ccall f_25103(C_word c,C_word *av) C_noret; C_noret_decl(f_25106) static void C_ccall f_25106(C_word c,C_word *av) C_noret; C_noret_decl(f_25109) static void C_ccall f_25109(C_word c,C_word *av) C_noret; C_noret_decl(f_25121) static void C_ccall f_25121(C_word c,C_word *av) C_noret; C_noret_decl(f_25127) static void C_ccall f_25127(C_word c,C_word *av) C_noret; C_noret_decl(f_25131) static void C_ccall f_25131(C_word c,C_word *av) C_noret; C_noret_decl(f_25134) static void C_ccall f_25134(C_word c,C_word *av) C_noret; C_noret_decl(f_25137) static void C_ccall f_25137(C_word c,C_word *av) C_noret; C_noret_decl(f_25140) static void C_ccall f_25140(C_word c,C_word *av) C_noret; C_noret_decl(f_25143) static void C_ccall f_25143(C_word c,C_word *av) C_noret; C_noret_decl(f_25146) static void C_ccall f_25146(C_word c,C_word *av) C_noret; C_noret_decl(f_25151) static void C_ccall f_25151(C_word c,C_word *av) C_noret; C_noret_decl(f_25173) static void C_ccall f_25173(C_word c,C_word *av) C_noret; C_noret_decl(f_25179) static void C_ccall f_25179(C_word c,C_word *av) C_noret; C_noret_decl(f_25182) static void C_ccall f_25182(C_word c,C_word *av) C_noret; C_noret_decl(f_25207) static void C_ccall f_25207(C_word c,C_word *av) C_noret; C_noret_decl(f_25210) static void C_fcall f_25210(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_25217) static void C_ccall f_25217(C_word c,C_word *av) C_noret; C_noret_decl(f_25230) static void C_fcall f_25230(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_25240) static void C_ccall f_25240(C_word c,C_word *av) C_noret; C_noret_decl(f_25245) static void C_ccall f_25245(C_word c,C_word *av) C_noret; C_noret_decl(f_25251) static void C_ccall f_25251(C_word c,C_word *av) C_noret; C_noret_decl(f_25278) static void C_ccall f_25278(C_word c,C_word *av) C_noret; C_noret_decl(f_25284) static void C_fcall f_25284(C_word t0,C_word t1) C_noret; C_noret_decl(f_25295) static void C_ccall f_25295(C_word c,C_word *av) C_noret; C_noret_decl(f_25301) static void C_fcall f_25301(C_word t0,C_word t1) C_noret; C_noret_decl(f_25304) static void C_ccall f_25304(C_word c,C_word *av) C_noret; C_noret_decl(f_25309) static void C_ccall f_25309(C_word c,C_word *av) C_noret; C_noret_decl(f_25315) static void C_ccall f_25315(C_word c,C_word *av) C_noret; C_noret_decl(f_25339) static void C_ccall f_25339(C_word c,C_word *av) C_noret; C_noret_decl(f_25347) static void C_ccall f_25347(C_word c,C_word *av) C_noret; C_noret_decl(f_25364) static void C_ccall f_25364(C_word c,C_word *av) C_noret; C_noret_decl(f_25404) static void C_ccall f_25404(C_word c,C_word *av) C_noret; C_noret_decl(f_25411) static void C_ccall f_25411(C_word c,C_word *av) C_noret; C_noret_decl(f_25423) static void C_ccall f_25423(C_word c,C_word *av) C_noret; C_noret_decl(f_25427) static void C_ccall f_25427(C_word c,C_word *av) C_noret; C_noret_decl(f_25440) static void C_ccall f_25440(C_word c,C_word *av) C_noret; C_noret_decl(f_25442) static void C_ccall f_25442(C_word c,C_word *av) C_noret; C_noret_decl(f_25476) static void C_ccall f_25476(C_word c,C_word *av) C_noret; C_noret_decl(f_25480) static void C_ccall f_25480(C_word c,C_word *av) C_noret; C_noret_decl(f_25481) static void C_fcall f_25481(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25491) static void C_ccall f_25491(C_word c,C_word *av) C_noret; C_noret_decl(f_25496) static void C_fcall f_25496(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25506) static void C_ccall f_25506(C_word c,C_word *av) C_noret; C_noret_decl(f_25519) static void C_ccall f_25519(C_word c,C_word *av) C_noret; C_noret_decl(f_25530) static void C_ccall f_25530(C_word c,C_word *av) C_noret; C_noret_decl(f_25534) static void C_ccall f_25534(C_word c,C_word *av) C_noret; C_noret_decl(f_25538) static void C_ccall f_25538(C_word c,C_word *av) C_noret; C_noret_decl(f_25560) static void C_ccall f_25560(C_word c,C_word *av) C_noret; C_noret_decl(f_25564) static void C_ccall f_25564(C_word c,C_word *av) C_noret; C_noret_decl(f_25572) static void C_ccall f_25572(C_word c,C_word *av) C_noret; C_noret_decl(f_25588) static void C_ccall f_25588(C_word c,C_word *av) C_noret; C_noret_decl(f_25599) static void C_fcall f_25599(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25618) static void C_fcall f_25618(C_word t0,C_word t1) C_noret; C_noret_decl(f_25629) static void C_ccall f_25629(C_word c,C_word *av) C_noret; C_noret_decl(f_25637) static void C_ccall f_25637(C_word c,C_word *av) C_noret; C_noret_decl(f_25716) static void C_ccall f_25716(C_word c,C_word *av) C_noret; C_noret_decl(f_25726) static void C_ccall f_25726(C_word c,C_word *av) C_noret; C_noret_decl(f_25727) static void C_fcall f_25727(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25740) static void C_ccall f_25740(C_word c,C_word *av) C_noret; C_noret_decl(f_25743) static void C_ccall f_25743(C_word c,C_word *av) C_noret; C_noret_decl(f_25746) static void C_ccall f_25746(C_word c,C_word *av) C_noret; C_noret_decl(f_25749) static void C_ccall f_25749(C_word c,C_word *av) C_noret; C_noret_decl(f_25757) static void C_ccall f_25757(C_word c,C_word *av) C_noret; C_noret_decl(f_25764) static void C_fcall f_25764(C_word t0,C_word t1) C_noret; C_noret_decl(f_25767) static void C_ccall f_25767(C_word c,C_word *av) C_noret; C_noret_decl(f_25770) static void C_ccall f_25770(C_word c,C_word *av) C_noret; C_noret_decl(f_25793) static void C_ccall f_25793(C_word c,C_word *av) C_noret; C_noret_decl(f_25798) static void C_fcall f_25798(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25808) static void C_ccall f_25808(C_word c,C_word *av) C_noret; C_noret_decl(f_25821) static void C_ccall f_25821(C_word c,C_word *av) C_noret; C_noret_decl(f_25852) static void C_ccall f_25852(C_word c,C_word *av) C_noret; C_noret_decl(f_25862) static void C_ccall f_25862(C_word c,C_word *av) C_noret; C_noret_decl(f_25912) static void C_ccall f_25912(C_word c,C_word *av) C_noret; C_noret_decl(f_25915) static void C_ccall f_25915(C_word c,C_word *av) C_noret; C_noret_decl(f_25934) static void C_fcall f_25934(C_word t0) C_noret; C_noret_decl(f_25939) static void C_ccall f_25939(C_word c,C_word *av) C_noret; C_noret_decl(f_25945) static void C_ccall f_25945(C_word c,C_word *av) C_noret; C_noret_decl(f_25948) static void C_ccall f_25948(C_word c,C_word *av) C_noret; C_noret_decl(f_25954) static void C_ccall f_25954(C_word c,C_word *av) C_noret; C_noret_decl(f_25962) static void C_fcall f_25962(C_word t0,C_word t1) C_noret; C_noret_decl(f_25981) static void C_ccall f_25981(C_word c,C_word *av) C_noret; C_noret_decl(f_25986) static void C_fcall f_25986(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_25996) static void C_ccall f_25996(C_word c,C_word *av) C_noret; C_noret_decl(f_26010) static void C_ccall f_26010(C_word c,C_word *av) C_noret; C_noret_decl(f_26017) static void C_ccall f_26017(C_word c,C_word *av) C_noret; C_noret_decl(f_26021) static void C_ccall f_26021(C_word c,C_word *av) C_noret; C_noret_decl(f_26025) static void C_ccall f_26025(C_word c,C_word *av) C_noret; C_noret_decl(f_26027) static void C_ccall f_26027(C_word c,C_word *av) C_noret; C_noret_decl(f_26053) static void C_ccall f_26053(C_word c,C_word *av) C_noret; C_noret_decl(f_26056) static void C_ccall f_26056(C_word c,C_word *av) C_noret; C_noret_decl(f_26059) static void C_ccall f_26059(C_word c,C_word *av) C_noret; C_noret_decl(f_26066) static void C_ccall f_26066(C_word c,C_word *av) C_noret; C_noret_decl(f_26070) static void C_ccall f_26070(C_word c,C_word *av) C_noret; C_noret_decl(f_26076) static void C_ccall f_26076(C_word c,C_word *av) C_noret; C_noret_decl(f_26081) static void C_fcall f_26081(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26091) static void C_ccall f_26091(C_word c,C_word *av) C_noret; C_noret_decl(f_26108) static void C_fcall f_26108(C_word t0,C_word t1) C_noret; C_noret_decl(f_26129) static void C_fcall f_26129(C_word t0,C_word t1) C_noret; C_noret_decl(f_26132) static void C_fcall f_26132(C_word t0,C_word t1) C_noret; C_noret_decl(f_26152) static void C_fcall f_26152(C_word t0,C_word t1) C_noret; C_noret_decl(f_26160) static void C_ccall f_26160(C_word c,C_word *av) C_noret; C_noret_decl(f_26294) static void C_ccall f_26294(C_word c,C_word *av) C_noret; C_noret_decl(f_26311) static void C_ccall f_26311(C_word c,C_word *av) C_noret; C_noret_decl(f_26315) static void C_ccall f_26315(C_word c,C_word *av) C_noret; C_noret_decl(f_26328) static void C_ccall f_26328(C_word c,C_word *av) C_noret; C_noret_decl(f_26337) static void C_ccall f_26337(C_word c,C_word *av) C_noret; C_noret_decl(f_26340) static void C_ccall f_26340(C_word c,C_word *av) C_noret; C_noret_decl(f_26344) static void C_ccall f_26344(C_word c,C_word *av) C_noret; C_noret_decl(f_26383) static void C_ccall f_26383(C_word c,C_word *av) C_noret; C_noret_decl(f_26386) static void C_ccall f_26386(C_word c,C_word *av) C_noret; C_noret_decl(f_26393) static void C_ccall f_26393(C_word c,C_word *av) C_noret; C_noret_decl(f_26397) static void C_ccall f_26397(C_word c,C_word *av) C_noret; C_noret_decl(f_26423) static void C_ccall f_26423(C_word c,C_word *av) C_noret; C_noret_decl(f_26454) static void C_ccall f_26454(C_word c,C_word *av) C_noret; C_noret_decl(f_26457) static void C_ccall f_26457(C_word c,C_word *av) C_noret; C_noret_decl(f_26469) static void C_ccall f_26469(C_word c,C_word *av) C_noret; C_noret_decl(f_26472) static void C_ccall f_26472(C_word c,C_word *av) C_noret; C_noret_decl(f_26475) static void C_ccall f_26475(C_word c,C_word *av) C_noret; C_noret_decl(f_26500) static void C_ccall f_26500(C_word c,C_word *av) C_noret; C_noret_decl(f_26506) static void C_ccall f_26506(C_word c,C_word *av) C_noret; C_noret_decl(f_26510) static void C_ccall f_26510(C_word c,C_word *av) C_noret; C_noret_decl(f_26514) static void C_ccall f_26514(C_word c,C_word *av) C_noret; C_noret_decl(f_26527) static void C_ccall f_26527(C_word c,C_word *av) C_noret; C_noret_decl(f_26529) static C_word C_fcall f_26529(C_word t0,C_word t1); C_noret_decl(f_26535) static C_word C_fcall f_26535(C_word t0); C_noret_decl(f_26540) static C_word C_fcall f_26540(C_word t0); C_noret_decl(f_26575) static void C_fcall f_26575(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_26581) static void C_fcall f_26581(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26597) static void C_fcall f_26597(C_word t0,C_word t1) C_noret; C_noret_decl(f_26619) static void C_ccall f_26619(C_word c,C_word *av) C_noret; C_noret_decl(f_26643) static void C_ccall f_26643(C_word c,C_word *av) C_noret; C_noret_decl(f_26655) static void C_ccall f_26655(C_word c,C_word *av) C_noret; C_noret_decl(f_26657) static void C_ccall f_26657(C_word c,C_word *av) C_noret; C_noret_decl(f_26676) static void C_ccall f_26676(C_word c,C_word *av) C_noret; C_noret_decl(f_26680) static void C_ccall f_26680(C_word c,C_word *av) C_noret; C_noret_decl(f_26692) static void C_ccall f_26692(C_word c,C_word *av) C_noret; C_noret_decl(f_26694) static void C_fcall f_26694(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26738) static void C_ccall f_26738(C_word c,C_word *av) C_noret; C_noret_decl(f_26740) static void C_fcall f_26740(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26774) static C_word C_fcall f_26774(C_word t0); C_noret_decl(f_26797) static void C_ccall f_26797(C_word c,C_word *av) C_noret; C_noret_decl(f_26804) static void C_ccall f_26804(C_word c,C_word *av) C_noret; C_noret_decl(f_26814) static void C_ccall f_26814(C_word c,C_word *av) C_noret; C_noret_decl(f_26816) static void C_fcall f_26816(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26866) static void C_ccall f_26866(C_word c,C_word *av) C_noret; C_noret_decl(f_26868) static void C_fcall f_26868(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26893) static void C_ccall f_26893(C_word c,C_word *av) C_noret; C_noret_decl(f_26902) static void C_ccall f_26902(C_word c,C_word *av) C_noret; C_noret_decl(f_26908) static void C_ccall f_26908(C_word c,C_word *av) C_noret; C_noret_decl(f_26912) static void C_ccall f_26912(C_word c,C_word *av) C_noret; C_noret_decl(f_26916) static void C_fcall f_26916(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26924) static void C_ccall f_26924(C_word c,C_word *av) C_noret; C_noret_decl(f_26930) static void C_fcall f_26930(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_26961) static void C_ccall f_26961(C_word c,C_word *av) C_noret; C_noret_decl(f_26986) static void C_fcall f_26986(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_27011) static void C_ccall f_27011(C_word c,C_word *av) C_noret; C_noret_decl(f_27021) static void C_ccall f_27021(C_word c,C_word *av) C_noret; C_noret_decl(f_27026) static void C_ccall f_27026(C_word c,C_word *av) C_noret; C_noret_decl(f_27028) static void C_ccall f_27028(C_word c,C_word *av) C_noret; C_noret_decl(f_27035) static void C_ccall f_27035(C_word c,C_word *av) C_noret; C_noret_decl(f_27047) static void C_ccall f_27047(C_word c,C_word *av) C_noret; C_noret_decl(f_27055) static void C_ccall f_27055(C_word c,C_word *av) C_noret; C_noret_decl(f_27093) static void C_ccall f_27093(C_word c,C_word *av) C_noret; C_noret_decl(f_27097) static void C_ccall f_27097(C_word c,C_word *av) C_noret; C_noret_decl(f_27104) static void C_ccall f_27104(C_word c,C_word *av) C_noret; C_noret_decl(f_27107) static void C_ccall f_27107(C_word c,C_word *av) C_noret; C_noret_decl(f_27110) static void C_ccall f_27110(C_word c,C_word *av) C_noret; C_noret_decl(f_27111) static void C_fcall f_27111(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_27113) static void C_fcall f_27113(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_27117) static void C_ccall f_27117(C_word c,C_word *av) C_noret; C_noret_decl(f_27122) static void C_ccall f_27122(C_word c,C_word *av) C_noret; C_noret_decl(f_27134) static void C_fcall f_27134(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_27144) static void C_ccall f_27144(C_word c,C_word *av) C_noret; C_noret_decl(f_27156) static void C_ccall f_27156(C_word c,C_word *av) C_noret; C_noret_decl(f_27158) static void C_fcall f_27158(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_27165) static void C_ccall f_27165(C_word c,C_word *av) C_noret; C_noret_decl(f_27168) static void C_ccall f_27168(C_word c,C_word *av) C_noret; C_noret_decl(f_27174) static void C_fcall f_27174(C_word t0,C_word t1) C_noret; C_noret_decl(f_27177) static void C_ccall f_27177(C_word c,C_word *av) C_noret; C_noret_decl(f_27180) static void C_ccall f_27180(C_word c,C_word *av) C_noret; C_noret_decl(f_27183) static void C_ccall f_27183(C_word c,C_word *av) C_noret; C_noret_decl(f_27198) static void C_ccall f_27198(C_word c,C_word *av) C_noret; C_noret_decl(f_27204) static void C_ccall f_27204(C_word c,C_word *av) C_noret; C_noret_decl(f_27212) static void C_fcall f_27212(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_27216) static void C_ccall f_27216(C_word c,C_word *av) C_noret; C_noret_decl(f_27219) static void C_ccall f_27219(C_word c,C_word *av) C_noret; C_noret_decl(f_27222) static void C_ccall f_27222(C_word c,C_word *av) C_noret; C_noret_decl(f_27235) static void C_ccall f_27235(C_word c,C_word *av) C_noret; C_noret_decl(f_27239) static void C_ccall f_27239(C_word c,C_word *av) C_noret; C_noret_decl(f_27260) static void C_ccall f_27260(C_word c,C_word *av) C_noret; C_noret_decl(f_27276) static void C_ccall f_27276(C_word c,C_word *av) C_noret; C_noret_decl(f_27279) static void C_ccall f_27279(C_word c,C_word *av) C_noret; C_noret_decl(f_27285) static void C_ccall f_27285(C_word c,C_word *av) C_noret; C_noret_decl(f_27307) static void C_fcall f_27307(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_27312) static void C_fcall f_27312(C_word t0,C_word t1) C_noret; C_noret_decl(f_27347) static void C_ccall f_27347(C_word c,C_word *av) C_noret; C_noret_decl(f_27357) static void C_ccall f_27357(C_word c,C_word *av) C_noret; C_noret_decl(f_27360) static void C_ccall f_27360(C_word c,C_word *av) C_noret; C_noret_decl(f_27363) static void C_ccall f_27363(C_word c,C_word *av) C_noret; C_noret_decl(f_27366) static void C_ccall f_27366(C_word c,C_word *av) C_noret; C_noret_decl(f_27369) static void C_ccall f_27369(C_word c,C_word *av) C_noret; C_noret_decl(f_27372) static void C_ccall f_27372(C_word c,C_word *av) C_noret; C_noret_decl(f_27379) static void C_ccall f_27379(C_word c,C_word *av) C_noret; C_noret_decl(f_27382) static void C_ccall f_27382(C_word c,C_word *av) C_noret; C_noret_decl(f_27385) static void C_ccall f_27385(C_word c,C_word *av) C_noret; C_noret_decl(f_27396) static void C_ccall f_27396(C_word c,C_word *av) C_noret; C_noret_decl(f_27419) static void C_ccall f_27419(C_word c,C_word *av) C_noret; C_noret_decl(f_27430) static void C_ccall f_27430(C_word c,C_word *av) C_noret; C_noret_decl(f_27434) static void C_ccall f_27434(C_word c,C_word *av) C_noret; C_noret_decl(f_27456) static void C_ccall f_27456(C_word c,C_word *av) C_noret; C_noret_decl(f_27467) static void C_ccall f_27467(C_word c,C_word *av) C_noret; C_noret_decl(f_27471) static void C_ccall f_27471(C_word c,C_word *av) C_noret; C_noret_decl(f_28063) static void C_ccall f_28063(C_word c,C_word *av) C_noret; C_noret_decl(f_28066) static void C_ccall f_28066(C_word c,C_word *av) C_noret; C_noret_decl(f_28069) static void C_ccall f_28069(C_word c,C_word *av) C_noret; C_noret_decl(f_28072) static void C_ccall f_28072(C_word c,C_word *av) C_noret; C_noret_decl(f_28077) static void C_ccall f_28077(C_word c,C_word *av) C_noret; C_noret_decl(f_28080) static void C_ccall f_28080(C_word c,C_word *av) C_noret; C_noret_decl(f_28083) static void C_ccall f_28083(C_word c,C_word *av) C_noret; C_noret_decl(f_28086) static void C_ccall f_28086(C_word c,C_word *av) C_noret; C_noret_decl(f_28089) static void C_ccall f_28089(C_word c,C_word *av) C_noret; C_noret_decl(f_28092) static void C_ccall f_28092(C_word c,C_word *av) C_noret; C_noret_decl(f_28095) static void C_ccall f_28095(C_word c,C_word *av) C_noret; C_noret_decl(f_28098) static void C_ccall f_28098(C_word c,C_word *av) C_noret; C_noret_decl(f_28101) static void C_ccall f_28101(C_word c,C_word *av) C_noret; C_noret_decl(f_28105) static void C_ccall f_28105(C_word c,C_word *av) C_noret; C_noret_decl(f_28107) static void C_ccall f_28107(C_word c,C_word *av) C_noret; C_noret_decl(f_28115) static void C_ccall f_28115(C_word c,C_word *av) C_noret; C_noret_decl(f_28117) static void C_ccall f_28117(C_word c,C_word *av) C_noret; C_noret_decl(f_28121) static void C_ccall f_28121(C_word c,C_word *av) C_noret; C_noret_decl(f_28123) static void C_ccall f_28123(C_word c,C_word *av) C_noret; C_noret_decl(f_28130) static void C_ccall f_28130(C_word c,C_word *av) C_noret; C_noret_decl(f_28140) static void C_ccall f_28140(C_word c,C_word *av) C_noret; C_noret_decl(f_28165) static void C_ccall f_28165(C_word c,C_word *av) C_noret; C_noret_decl(f_28168) static void C_ccall f_28168(C_word c,C_word *av) C_noret; C_noret_decl(f_28171) static void C_ccall f_28171(C_word c,C_word *av) C_noret; C_noret_decl(f_28174) static void C_ccall f_28174(C_word c,C_word *av) C_noret; C_noret_decl(f_28177) static void C_ccall f_28177(C_word c,C_word *av) C_noret; C_noret_decl(f_28187) static void C_ccall f_28187(C_word c,C_word *av) C_noret; C_noret_decl(f_28193) static void C_ccall f_28193(C_word c,C_word *av) C_noret; C_noret_decl(f_28197) static void C_ccall f_28197(C_word c,C_word *av) C_noret; C_noret_decl(f_28199) static void C_ccall f_28199(C_word c,C_word *av) C_noret; C_noret_decl(f_28209) static void C_ccall f_28209(C_word c,C_word *av) C_noret; C_noret_decl(f_28215) static void C_ccall f_28215(C_word c,C_word *av) C_noret; C_noret_decl(f_28219) static void C_ccall f_28219(C_word c,C_word *av) C_noret; C_noret_decl(f_28221) static void C_ccall f_28221(C_word c,C_word *av) C_noret; C_noret_decl(f_28226) static void C_ccall f_28226(C_word c,C_word *av) C_noret; C_noret_decl(f_28228) static void C_ccall f_28228(C_word c,C_word *av) C_noret; C_noret_decl(f_28231) static void C_ccall f_28231(C_word c,C_word *av) C_noret; C_noret_decl(f_28251) static void C_ccall f_28251(C_word c,C_word *av) C_noret; C_noret_decl(f_28257) static void C_fcall f_28257(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28267) static void C_ccall f_28267(C_word c,C_word *av) C_noret; C_noret_decl(f_28277) static void C_ccall f_28277(C_word c,C_word *av) C_noret; C_noret_decl(f_28312) static void C_ccall f_28312(C_word c,C_word *av) C_noret; C_noret_decl(f_28316) static void C_ccall f_28316(C_word c,C_word *av) C_noret; C_noret_decl(f_28321) static void C_fcall f_28321(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28331) static void C_ccall f_28331(C_word c,C_word *av) C_noret; C_noret_decl(f_28341) static void C_ccall f_28341(C_word c,C_word *av) C_noret; C_noret_decl(f_28350) static void C_ccall f_28350(C_word c,C_word *av) C_noret; C_noret_decl(f_28353) static void C_ccall f_28353(C_word c,C_word *av) C_noret; C_noret_decl(f_28356) static void C_ccall f_28356(C_word c,C_word *av) C_noret; C_noret_decl(f_28363) static void C_ccall f_28363(C_word c,C_word *av) C_noret; C_noret_decl(f_28370) static void C_ccall f_28370(C_word c,C_word *av) C_noret; C_noret_decl(f_28373) static void C_ccall f_28373(C_word c,C_word *av) C_noret; C_noret_decl(f_28377) static void C_ccall f_28377(C_word c,C_word *av) C_noret; C_noret_decl(f_28379) static void C_ccall f_28379(C_word c,C_word *av) C_noret; C_noret_decl(f_28382) static void C_ccall f_28382(C_word c,C_word *av) C_noret; C_noret_decl(f_28385) static void C_ccall f_28385(C_word c,C_word *av) C_noret; C_noret_decl(f_28388) static void C_ccall f_28388(C_word c,C_word *av) C_noret; C_noret_decl(f_28391) static void C_ccall f_28391(C_word c,C_word *av) C_noret; C_noret_decl(f_28394) static void C_ccall f_28394(C_word c,C_word *av) C_noret; C_noret_decl(f_28397) static void C_ccall f_28397(C_word c,C_word *av) C_noret; C_noret_decl(f_28400) static void C_ccall f_28400(C_word c,C_word *av) C_noret; C_noret_decl(f_28403) static void C_ccall f_28403(C_word c,C_word *av) C_noret; C_noret_decl(f_28406) static void C_ccall f_28406(C_word c,C_word *av) C_noret; C_noret_decl(f_28409) static void C_ccall f_28409(C_word c,C_word *av) C_noret; C_noret_decl(f_28413) static void C_ccall f_28413(C_word c,C_word *av) C_noret; C_noret_decl(f_28416) static void C_ccall f_28416(C_word c,C_word *av) C_noret; C_noret_decl(f_28432) static void C_ccall f_28432(C_word c,C_word *av) C_noret; C_noret_decl(f_28440) static void C_ccall f_28440(C_word c,C_word *av) C_noret; C_noret_decl(f_28443) static void C_ccall f_28443(C_word c,C_word *av) C_noret; C_noret_decl(f_28449) static void C_ccall f_28449(C_word c,C_word *av) C_noret; C_noret_decl(f_28458) static void C_ccall f_28458(C_word c,C_word *av) C_noret; C_noret_decl(f_28464) static void C_ccall f_28464(C_word c,C_word *av) C_noret; C_noret_decl(f_28473) static void C_ccall f_28473(C_word c,C_word *av) C_noret; C_noret_decl(f_28479) static void C_ccall f_28479(C_word c,C_word *av) C_noret; C_noret_decl(f_28485) static void C_ccall f_28485(C_word c,C_word *av) C_noret; C_noret_decl(f_28488) static void C_ccall f_28488(C_word c,C_word *av) C_noret; C_noret_decl(f_28492) static void C_ccall f_28492(C_word c,C_word *av) C_noret; C_noret_decl(f_28495) static void C_ccall f_28495(C_word c,C_word *av) C_noret; C_noret_decl(f_28500) static void C_ccall f_28500(C_word c,C_word *av) C_noret; C_noret_decl(f_28502) static void C_ccall f_28502(C_word c,C_word *av) C_noret; C_noret_decl(f_28506) static void C_ccall f_28506(C_word c,C_word *av) C_noret; C_noret_decl(f_28533) static void C_fcall f_28533(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28543) static void C_ccall f_28543(C_word c,C_word *av) C_noret; C_noret_decl(f_28552) static void C_ccall f_28552(C_word c,C_word *av) C_noret; C_noret_decl(f_28559) static void C_ccall f_28559(C_word c,C_word *av) C_noret; C_noret_decl(f_28563) static void C_ccall f_28563(C_word c,C_word *av) C_noret; C_noret_decl(f_28577) static void C_fcall f_28577(C_word t0,C_word t1) C_noret; C_noret_decl(f_28581) static void C_ccall f_28581(C_word c,C_word *av) C_noret; C_noret_decl(f_28588) static void C_ccall f_28588(C_word c,C_word *av) C_noret; C_noret_decl(f_28590) static void C_fcall f_28590(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28612) static void C_ccall f_28612(C_word c,C_word *av) C_noret; C_noret_decl(f_28619) static void C_ccall f_28619(C_word c,C_word *av) C_noret; C_noret_decl(f_28624) static void C_fcall f_28624(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28628) static void C_ccall f_28628(C_word c,C_word *av) C_noret; C_noret_decl(f_28631) static void C_ccall f_28631(C_word c,C_word *av) C_noret; C_noret_decl(f_28634) static void C_ccall f_28634(C_word c,C_word *av) C_noret; C_noret_decl(f_28639) static void C_fcall f_28639(C_word t0,C_word t1) C_noret; C_noret_decl(f_28643) static void C_ccall f_28643(C_word c,C_word *av) C_noret; C_noret_decl(f_28669) static void C_ccall f_28669(C_word c,C_word *av) C_noret; C_noret_decl(f_28682) static void C_ccall f_28682(C_word c,C_word *av) C_noret; C_noret_decl(f_28685) static void C_ccall f_28685(C_word c,C_word *av) C_noret; C_noret_decl(f_28694) static void C_ccall f_28694(C_word c,C_word *av) C_noret; C_noret_decl(f_28697) static void C_ccall f_28697(C_word c,C_word *av) C_noret; C_noret_decl(f_28700) static void C_ccall f_28700(C_word c,C_word *av) C_noret; C_noret_decl(f_28706) static void C_ccall f_28706(C_word c,C_word *av) C_noret; C_noret_decl(f_28713) static void C_ccall f_28713(C_word c,C_word *av) C_noret; C_noret_decl(f_28715) static void C_fcall f_28715(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28728) static void C_ccall f_28728(C_word c,C_word *av) C_noret; C_noret_decl(f_28741) static void C_ccall f_28741(C_word c,C_word *av) C_noret; C_noret_decl(f_28744) static void C_ccall f_28744(C_word c,C_word *av) C_noret; C_noret_decl(f_28747) static void C_ccall f_28747(C_word c,C_word *av) C_noret; C_noret_decl(f_28754) static void C_ccall f_28754(C_word c,C_word *av) C_noret; C_noret_decl(f_28807) static void C_ccall f_28807(C_word c,C_word *av) C_noret; C_noret_decl(f_28810) static void C_ccall f_28810(C_word c,C_word *av) C_noret; C_noret_decl(f_28813) static void C_ccall f_28813(C_word c,C_word *av) C_noret; C_noret_decl(f_28815) static void C_fcall f_28815(C_word t0,C_word t1) C_noret; C_noret_decl(f_28819) static void C_ccall f_28819(C_word c,C_word *av) C_noret; C_noret_decl(f_28823) static void C_ccall f_28823(C_word c,C_word *av) C_noret; C_noret_decl(f_28829) static void C_ccall f_28829(C_word c,C_word *av) C_noret; C_noret_decl(f_28834) static void C_fcall f_28834(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_28838) static void C_ccall f_28838(C_word c,C_word *av) C_noret; C_noret_decl(f_28850) static void C_ccall f_28850(C_word c,C_word *av) C_noret; C_noret_decl(f_28862) static void C_ccall f_28862(C_word c,C_word *av) C_noret; C_noret_decl(f_28869) static void C_ccall f_28869(C_word c,C_word *av) C_noret; C_noret_decl(f_28875) static void C_fcall f_28875(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_28889) static void C_ccall f_28889(C_word c,C_word *av) C_noret; C_noret_decl(f_28898) static void C_fcall f_28898(C_word t0,C_word t1) C_noret; C_noret_decl(f_28928) static void C_ccall f_28928(C_word c,C_word *av) C_noret; C_noret_decl(f_28947) static void C_ccall f_28947(C_word c,C_word *av) C_noret; C_noret_decl(f_28970) static void C_ccall f_28970(C_word c,C_word *av) C_noret; C_noret_decl(f_28979) static void C_ccall f_28979(C_word c,C_word *av) C_noret; C_noret_decl(f_28986) static void C_ccall f_28986(C_word c,C_word *av) C_noret; C_noret_decl(f_29003) static void C_ccall f_29003(C_word c,C_word *av) C_noret; C_noret_decl(f_29011) static void C_ccall f_29011(C_word c,C_word *av) C_noret; C_noret_decl(f_29022) static void C_ccall f_29022(C_word c,C_word *av) C_noret; C_noret_decl(f_29030) static void C_ccall f_29030(C_word c,C_word *av) C_noret; C_noret_decl(f_29037) static void C_ccall f_29037(C_word c,C_word *av) C_noret; C_noret_decl(f_29099) static void C_ccall f_29099(C_word c,C_word *av) C_noret; C_noret_decl(f_29106) static void C_ccall f_29106(C_word c,C_word *av) C_noret; C_noret_decl(f_29109) static void C_ccall f_29109(C_word c,C_word *av) C_noret; C_noret_decl(f_29115) static void C_ccall f_29115(C_word c,C_word *av) C_noret; C_noret_decl(f_29122) static void C_ccall f_29122(C_word c,C_word *av) C_noret; C_noret_decl(f_29126) static void C_ccall f_29126(C_word c,C_word *av) C_noret; C_noret_decl(f_29129) static void C_ccall f_29129(C_word c,C_word *av) C_noret; C_noret_decl(f_29137) static void C_ccall f_29137(C_word c,C_word *av) C_noret; C_noret_decl(f_29139) static void C_ccall f_29139(C_word c,C_word *av) C_noret; C_noret_decl(f_29148) static void C_ccall f_29148(C_word c,C_word *av) C_noret; C_noret_decl(f_29154) static void C_ccall f_29154(C_word c,C_word *av) C_noret; C_noret_decl(f_29165) static void C_ccall f_29165(C_word c,C_word *av) C_noret; C_noret_decl(f_29169) static void C_ccall f_29169(C_word c,C_word *av) C_noret; C_noret_decl(f_29171) static void C_ccall f_29171(C_word c,C_word *av) C_noret; C_noret_decl(f_29179) static void C_ccall f_29179(C_word c,C_word *av) C_noret; C_noret_decl(f_29191) static void C_ccall f_29191(C_word c,C_word *av) C_noret; C_noret_decl(f_29197) static void C_fcall f_29197(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29201) static void C_ccall f_29201(C_word c,C_word *av) C_noret; C_noret_decl(f_29209) static void C_fcall f_29209(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29227) static void C_ccall f_29227(C_word c,C_word *av) C_noret; C_noret_decl(f_29235) static void C_ccall f_29235(C_word c,C_word *av) C_noret; C_noret_decl(f_29239) static void C_ccall f_29239(C_word c,C_word *av) C_noret; C_noret_decl(f_29257) static void C_ccall f_29257(C_word c,C_word *av) C_noret; C_noret_decl(f_29264) static void C_ccall f_29264(C_word c,C_word *av) C_noret; C_noret_decl(f_29276) static void C_ccall f_29276(C_word c,C_word *av) C_noret; C_noret_decl(f_29284) static void C_ccall f_29284(C_word c,C_word *av) C_noret; C_noret_decl(f_29290) static void C_fcall f_29290(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_29312) static void C_ccall f_29312(C_word c,C_word *av) C_noret; C_noret_decl(f_29316) static void C_ccall f_29316(C_word c,C_word *av) C_noret; C_noret_decl(f_29320) static void C_ccall f_29320(C_word c,C_word *av) C_noret; C_noret_decl(f_29322) static void C_ccall f_29322(C_word c,C_word *av) C_noret; C_noret_decl(f_29325) static void C_ccall f_29325(C_word c,C_word *av) C_noret; C_noret_decl(f_29328) static void C_ccall f_29328(C_word c,C_word *av) C_noret; C_noret_decl(f_29332) static void C_ccall f_29332(C_word c,C_word *av) C_noret; C_noret_decl(f_29335) static void C_ccall f_29335(C_word c,C_word *av) C_noret; C_noret_decl(f_29353) static void C_ccall f_29353(C_word c,C_word *av) C_noret; C_noret_decl(f_29359) static void C_ccall f_29359(C_word c,C_word *av) C_noret; C_noret_decl(f_29363) static void C_ccall f_29363(C_word c,C_word *av) C_noret; C_noret_decl(f_29380) static void C_ccall f_29380(C_word c,C_word *av) C_noret; C_noret_decl(f_29390) static void C_ccall f_29390(C_word c,C_word *av) C_noret; C_noret_decl(f_29394) static void C_ccall f_29394(C_word c,C_word *av) C_noret; C_noret_decl(f_29398) static void C_ccall f_29398(C_word c,C_word *av) C_noret; C_noret_decl(f_29410) static void C_ccall f_29410(C_word c,C_word *av) C_noret; C_noret_decl(f_29420) static void C_ccall f_29420(C_word c,C_word *av) C_noret; C_noret_decl(f_29424) static void C_ccall f_29424(C_word c,C_word *av) C_noret; C_noret_decl(f_29428) static void C_fcall f_29428(C_word t0,C_word t1) C_noret; C_noret_decl(f_29456) static void C_ccall f_29456(C_word c,C_word *av) C_noret; C_noret_decl(f_29459) static void C_ccall f_29459(C_word c,C_word *av) C_noret; C_noret_decl(f_29462) static void C_ccall f_29462(C_word c,C_word *av) C_noret; C_noret_decl(f_29468) static void C_fcall f_29468(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_29481) static void C_ccall f_29481(C_word c,C_word *av) C_noret; C_noret_decl(f_29484) static void C_ccall f_29484(C_word c,C_word *av) C_noret; C_noret_decl(f_29493) static void C_ccall f_29493(C_word c,C_word *av) C_noret; C_noret_decl(f_29499) static void C_ccall f_29499(C_word c,C_word *av) C_noret; C_noret_decl(f_29505) static void C_ccall f_29505(C_word c,C_word *av) C_noret; C_noret_decl(f_29511) static void C_ccall f_29511(C_word c,C_word *av) C_noret; C_noret_decl(f_29517) static void C_ccall f_29517(C_word c,C_word *av) C_noret; C_noret_decl(f_29534) static void C_ccall f_29534(C_word c,C_word *av) C_noret; C_noret_decl(f_29540) static void C_ccall f_29540(C_word c,C_word *av) C_noret; C_noret_decl(f_29555) static void C_ccall f_29555(C_word c,C_word *av) C_noret; C_noret_decl(f_29559) static void C_ccall f_29559(C_word c,C_word *av) C_noret; C_noret_decl(f_29563) static void C_ccall f_29563(C_word c,C_word *av) C_noret; C_noret_decl(f_29567) static void C_ccall f_29567(C_word c,C_word *av) C_noret; C_noret_decl(f_29573) static void C_ccall f_29573(C_word c,C_word *av) C_noret; C_noret_decl(f_29575) static void C_ccall f_29575(C_word c,C_word *av) C_noret; C_noret_decl(f_29581) static void C_fcall f_29581(C_word t0,C_word t1) C_noret; C_noret_decl(f_29585) static void C_ccall f_29585(C_word c,C_word *av) C_noret; C_noret_decl(f_29594) static void C_ccall f_29594(C_word c,C_word *av) C_noret; C_noret_decl(f_29603) static void C_ccall f_29603(C_word c,C_word *av) C_noret; C_noret_decl(f_29646) static void C_ccall f_29646(C_word c,C_word *av) C_noret; C_noret_decl(f_29668) static void C_ccall f_29668(C_word c,C_word *av) C_noret; C_noret_decl(f_29681) static void C_ccall f_29681(C_word c,C_word *av) C_noret; C_noret_decl(f_29706) static void C_ccall f_29706(C_word c,C_word *av) C_noret; C_noret_decl(f_29722) static void C_ccall f_29722(C_word c,C_word *av) C_noret; C_noret_decl(f_29738) static void C_ccall f_29738(C_word c,C_word *av) C_noret; C_noret_decl(f_29754) static void C_ccall f_29754(C_word c,C_word *av) C_noret; C_noret_decl(f_29770) static void C_ccall f_29770(C_word c,C_word *av) C_noret; C_noret_decl(f_29786) static void C_ccall f_29786(C_word c,C_word *av) C_noret; C_noret_decl(f_29802) static void C_ccall f_29802(C_word c,C_word *av) C_noret; C_noret_decl(f_29818) static void C_ccall f_29818(C_word c,C_word *av) C_noret; C_noret_decl(f_29834) static void C_ccall f_29834(C_word c,C_word *av) C_noret; C_noret_decl(f_29850) static void C_ccall f_29850(C_word c,C_word *av) C_noret; C_noret_decl(f_29857) static void C_ccall f_29857(C_word c,C_word *av) C_noret; C_noret_decl(f_29898) static void C_ccall f_29898(C_word c,C_word *av) C_noret; C_noret_decl(f_29910) static void C_ccall f_29910(C_word c,C_word *av) C_noret; C_noret_decl(f_29916) static void C_ccall f_29916(C_word c,C_word *av) C_noret; C_noret_decl(f_29935) static void C_ccall f_29935(C_word c,C_word *av) C_noret; C_noret_decl(f_29937) static void C_ccall f_29937(C_word c,C_word *av) C_noret; C_noret_decl(f_29960) static C_word C_fcall f_29960(C_word t0,C_word t1,C_word t2); C_noret_decl(f_30006) static void C_ccall f_30006(C_word c,C_word *av) C_noret; C_noret_decl(f_30008) static void C_ccall f_30008(C_word c,C_word *av) C_noret; C_noret_decl(f_30015) static void C_fcall f_30015(C_word t0,C_word t1) C_noret; C_noret_decl(f_30027) static void C_fcall f_30027(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_30071) static void C_ccall f_30071(C_word c,C_word *av) C_noret; C_noret_decl(f_30086) static void C_fcall f_30086(C_word t0,C_word t1) C_noret; C_noret_decl(f_30094) static void C_ccall f_30094(C_word c,C_word *av) C_noret; C_noret_decl(f_30100) static void C_fcall f_30100(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_30108) static void C_ccall f_30108(C_word c,C_word *av) C_noret; C_noret_decl(f_30112) static void C_ccall f_30112(C_word c,C_word *av) C_noret; C_noret_decl(f_30120) static void C_ccall f_30120(C_word c,C_word *av) C_noret; C_noret_decl(f_30122) static void C_fcall f_30122(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_30132) static void C_ccall f_30132(C_word c,C_word *av) C_noret; C_noret_decl(f_30139) static void C_ccall f_30139(C_word c,C_word *av) C_noret; C_noret_decl(f_30143) static void C_ccall f_30143(C_word c,C_word *av) C_noret; C_noret_decl(f_30154) static void C_ccall f_30154(C_word c,C_word *av) C_noret; C_noret_decl(f_30161) static void C_ccall f_30161(C_word c,C_word *av) C_noret; C_noret_decl(f_30165) static void C_ccall f_30165(C_word c,C_word *av) C_noret; C_noret_decl(f_30176) static void C_ccall f_30176(C_word c,C_word *av) C_noret; C_noret_decl(f_30183) static void C_ccall f_30183(C_word c,C_word *av) C_noret; C_noret_decl(f_30187) static void C_ccall f_30187(C_word c,C_word *av) C_noret; C_noret_decl(f_30192) static void C_ccall f_30192(C_word c,C_word *av) C_noret; C_noret_decl(f_30198) static void C_ccall f_30198(C_word c,C_word *av) C_noret; C_noret_decl(f_30201) static void C_ccall f_30201(C_word c,C_word *av) C_noret; C_noret_decl(f_30204) static void C_ccall f_30204(C_word c,C_word *av) C_noret; C_noret_decl(f_30210) static void C_ccall f_30210(C_word c,C_word *av) C_noret; C_noret_decl(f_30219) static void C_ccall f_30219(C_word c,C_word *av) C_noret; C_noret_decl(f_30228) static void C_ccall f_30228(C_word c,C_word *av) C_noret; C_noret_decl(f_30234) static void C_ccall f_30234(C_word c,C_word *av) C_noret; C_noret_decl(f_30237) static void C_ccall f_30237(C_word c,C_word *av) C_noret; C_noret_decl(f_30240) static void C_ccall f_30240(C_word c,C_word *av) C_noret; C_noret_decl(f_30252) static void C_ccall f_30252(C_word c,C_word *av) C_noret; C_noret_decl(f_30255) static void C_ccall f_30255(C_word c,C_word *av) C_noret; C_noret_decl(f_30258) static void C_ccall f_30258(C_word c,C_word *av) C_noret; C_noret_decl(f_30261) static void C_ccall f_30261(C_word c,C_word *av) C_noret; C_noret_decl(f_30273) static void C_ccall f_30273(C_word c,C_word *av) C_noret; C_noret_decl(f_30276) static void C_ccall f_30276(C_word c,C_word *av) C_noret; C_noret_decl(f_30279) static void C_ccall f_30279(C_word c,C_word *av) C_noret; C_noret_decl(f_30282) static void C_ccall f_30282(C_word c,C_word *av) C_noret; C_noret_decl(f_30291) static void C_ccall f_30291(C_word c,C_word *av) C_noret; C_noret_decl(f_30294) static void C_ccall f_30294(C_word c,C_word *av) C_noret; C_noret_decl(f_30307) static void C_ccall f_30307(C_word c,C_word *av) C_noret; C_noret_decl(f_30308) static void C_ccall f_30308(C_word c,C_word *av) C_noret; C_noret_decl(f_30313) static void C_ccall f_30313(C_word c,C_word *av) C_noret; C_noret_decl(f_30314) static void C_ccall f_30314(C_word c,C_word *av) C_noret; C_noret_decl(f_30319) static void C_ccall f_30319(C_word c,C_word *av) C_noret; C_noret_decl(f_30320) static void C_ccall f_30320(C_word c,C_word *av) C_noret; C_noret_decl(f_30325) static void C_ccall f_30325(C_word c,C_word *av) C_noret; C_noret_decl(f_30326) static void C_ccall f_30326(C_word c,C_word *av) C_noret; C_noret_decl(f_30331) static void C_ccall f_30331(C_word c,C_word *av) C_noret; C_noret_decl(f_30332) static void C_ccall f_30332(C_word c,C_word *av) C_noret; C_noret_decl(f_30337) static void C_fcall f_30337(C_word t0,C_word t1) C_noret; C_noret_decl(f_30339) static void C_ccall f_30339(C_word c,C_word *av) C_noret; C_noret_decl(f_30349) static void C_ccall f_30349(C_word c,C_word *av) C_noret; C_noret_decl(f_30352) static void C_ccall f_30352(C_word c,C_word *av) C_noret; C_noret_decl(f_30355) static void C_ccall f_30355(C_word c,C_word *av) C_noret; C_noret_decl(f_30358) static void C_ccall f_30358(C_word c,C_word *av) C_noret; C_noret_decl(f_30360) static void C_fcall f_30360(C_word t0,C_word t1) C_noret; C_noret_decl(f_30374) static void C_ccall f_30374(C_word c,C_word *av) C_noret; C_noret_decl(f_30382) static void C_ccall f_30382(C_word c,C_word *av) C_noret; C_noret_decl(f_30386) static void C_ccall f_30386(C_word c,C_word *av) C_noret; C_noret_decl(f_30390) static void C_ccall f_30390(C_word c,C_word *av) C_noret; C_noret_decl(f_30394) static void C_ccall f_30394(C_word c,C_word *av) C_noret; C_noret_decl(f_30400) static void C_ccall f_30400(C_word c,C_word *av) C_noret; C_noret_decl(f_30407) static void C_ccall f_30407(C_word c,C_word *av) C_noret; C_noret_decl(f_30411) static void C_ccall f_30411(C_word c,C_word *av) C_noret; C_noret_decl(f_30415) static void C_ccall f_30415(C_word c,C_word *av) C_noret; C_noret_decl(f_30419) static void C_ccall f_30419(C_word c,C_word *av) C_noret; C_noret_decl(f_30458) static void C_ccall f_30458(C_word c,C_word *av) C_noret; C_noret_decl(f_30461) static void C_ccall f_30461(C_word c,C_word *av) C_noret; C_noret_decl(f_30464) static void C_ccall f_30464(C_word c,C_word *av) C_noret; C_noret_decl(f_30467) static void C_ccall f_30467(C_word c,C_word *av) C_noret; C_noret_decl(f_30470) static void C_ccall f_30470(C_word c,C_word *av) C_noret; C_noret_decl(f_30478) static void C_ccall f_30478(C_word c,C_word *av) C_noret; C_noret_decl(f_30488) static void C_ccall f_30488(C_word c,C_word *av) C_noret; C_noret_decl(f_30510) static void C_ccall f_30510(C_word c,C_word *av) C_noret; C_noret_decl(f_30516) static void C_fcall f_30516(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_30536) static void C_ccall f_30536(C_word c,C_word *av) C_noret; C_noret_decl(f_30551) static void C_ccall f_30551(C_word c,C_word *av) C_noret; C_noret_decl(f_30555) static void C_ccall f_30555(C_word c,C_word *av) C_noret; C_noret_decl(f_30578) static void C_ccall f_30578(C_word c,C_word *av) C_noret; C_noret_decl(f_30582) static void C_ccall f_30582(C_word c,C_word *av) C_noret; C_noret_decl(f_30599) static void C_ccall f_30599(C_word c,C_word *av) C_noret; C_noret_decl(f_30606) static void C_ccall f_30606(C_word c,C_word *av) C_noret; C_noret_decl(f_30628) static void C_ccall f_30628(C_word c,C_word *av) C_noret; C_noret_decl(f_30633) static void C_fcall f_30633(C_word t0,C_word t1) C_noret; C_noret_decl(f_30648) static void C_ccall f_30648(C_word c,C_word *av) C_noret; C_noret_decl(f_30651) static void C_ccall f_30651(C_word c,C_word *av) C_noret; C_noret_decl(f_30654) static void C_ccall f_30654(C_word c,C_word *av) C_noret; C_noret_decl(f_30657) static void C_ccall f_30657(C_word c,C_word *av) C_noret; C_noret_decl(f_30660) static void C_ccall f_30660(C_word c,C_word *av) C_noret; C_noret_decl(f_30663) static void C_ccall f_30663(C_word c,C_word *av) C_noret; C_noret_decl(f_30666) static void C_fcall f_30666(C_word t0,C_word t1) C_noret; C_noret_decl(f_30669) static void C_fcall f_30669(C_word t0,C_word t1) C_noret; C_noret_decl(f_30672) static void C_fcall f_30672(C_word t0,C_word t1) C_noret; C_noret_decl(f_30675) static void C_fcall f_30675(C_word t0,C_word t1) C_noret; C_noret_decl(f_30678) static void C_fcall f_30678(C_word t0,C_word t1) C_noret; C_noret_decl(f_30682) static void C_ccall f_30682(C_word c,C_word *av) C_noret; C_noret_decl(f_30685) static void C_ccall f_30685(C_word c,C_word *av) C_noret; C_noret_decl(f_30690) static void C_ccall f_30690(C_word c,C_word *av) C_noret; C_noret_decl(f_30696) static void C_ccall f_30696(C_word c,C_word *av) C_noret; C_noret_decl(f_30709) static void C_ccall f_30709(C_word c,C_word *av) C_noret; C_noret_decl(f_30711) static void C_fcall f_30711(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_30721) static void C_ccall f_30721(C_word c,C_word *av) C_noret; C_noret_decl(f_30734) static void C_ccall f_30734(C_word c,C_word *av) C_noret; C_noret_decl(f_30741) static void C_ccall f_30741(C_word c,C_word *av) C_noret; C_noret_decl(f_30745) static void C_ccall f_30745(C_word c,C_word *av) C_noret; C_noret_decl(f_30747) static void C_fcall f_30747(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_30776) static void C_ccall f_30776(C_word c,C_word *av) C_noret; C_noret_decl(f_30778) static void C_fcall f_30778(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_30803) static void C_ccall f_30803(C_word c,C_word *av) C_noret; C_noret_decl(f_30812) static void C_ccall f_30812(C_word c,C_word *av) C_noret; C_noret_decl(f_30815) static void C_ccall f_30815(C_word c,C_word *av) C_noret; C_noret_decl(f_30821) static void C_fcall f_30821(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_30845) static void C_ccall f_30845(C_word c,C_word *av) C_noret; C_noret_decl(f_30852) static void C_ccall f_30852(C_word c,C_word *av) C_noret; C_noret_decl(f_30856) static void C_ccall f_30856(C_word c,C_word *av) C_noret; C_noret_decl(f_30868) static void C_ccall f_30868(C_word c,C_word *av) C_noret; C_noret_decl(f_30876) static void C_ccall f_30876(C_word c,C_word *av) C_noret; C_noret_decl(f_30880) static void C_ccall f_30880(C_word c,C_word *av) C_noret; C_noret_decl(f_30889) static void C_ccall f_30889(C_word c,C_word *av) C_noret; C_noret_decl(f_30898) static void C_ccall f_30898(C_word c,C_word *av) C_noret; C_noret_decl(f_30908) static void C_ccall f_30908(C_word c,C_word *av) C_noret; C_noret_decl(f_30916) static void C_ccall f_30916(C_word c,C_word *av) C_noret; C_noret_decl(f_30920) static void C_ccall f_30920(C_word c,C_word *av) C_noret; C_noret_decl(f_30924) static void C_ccall f_30924(C_word c,C_word *av) C_noret; C_noret_decl(f_30954) static void C_ccall f_30954(C_word c,C_word *av) C_noret; C_noret_decl(f_30958) static void C_ccall f_30958(C_word c,C_word *av) C_noret; C_noret_decl(f_30962) static void C_ccall f_30962(C_word c,C_word *av) C_noret; C_noret_decl(f_30966) static void C_ccall f_30966(C_word c,C_word *av) C_noret; C_noret_decl(f_30970) static void C_ccall f_30970(C_word c,C_word *av) C_noret; C_noret_decl(f_30974) static void C_ccall f_30974(C_word c,C_word *av) C_noret; C_noret_decl(f_30977) static void C_ccall f_30977(C_word c,C_word *av) C_noret; C_noret_decl(f_30980) static void C_ccall f_30980(C_word c,C_word *av) C_noret; C_noret_decl(f_30990) static void C_ccall f_30990(C_word c,C_word *av) C_noret; C_noret_decl(f_30993) static void C_ccall f_30993(C_word c,C_word *av) C_noret; C_noret_decl(f_30995) static void C_ccall f_30995(C_word c,C_word *av) C_noret; C_noret_decl(f_31012) static C_word C_fcall f_31012(C_word t0); C_noret_decl(f_31039) static void C_ccall f_31039(C_word c,C_word *av) C_noret; C_noret_decl(f_31048) static void C_ccall f_31048(C_word c,C_word *av) C_noret; C_noret_decl(f_31068) static void C_ccall f_31068(C_word c,C_word *av) C_noret; C_noret_decl(f_31072) static void C_ccall f_31072(C_word c,C_word *av) C_noret; C_noret_decl(f_31076) static void C_ccall f_31076(C_word c,C_word *av) C_noret; C_noret_decl(f_31080) static void C_ccall f_31080(C_word c,C_word *av) C_noret; C_noret_decl(f_31084) static void C_ccall f_31084(C_word c,C_word *av) C_noret; C_noret_decl(f_31088) static void C_ccall f_31088(C_word c,C_word *av) C_noret; C_noret_decl(f_31092) static void C_ccall f_31092(C_word c,C_word *av) C_noret; C_noret_decl(f_31094) static void C_ccall f_31094(C_word c,C_word *av) C_noret; C_noret_decl(f_31103) static void C_ccall f_31103(C_word c,C_word *av) C_noret; C_noret_decl(f_31113) static void C_ccall f_31113(C_word c,C_word *av) C_noret; C_noret_decl(f_31138) static void C_ccall f_31138(C_word c,C_word *av) C_noret; C_noret_decl(f_31141) static void C_ccall f_31141(C_word c,C_word *av) C_noret; C_noret_decl(f_31143) static void C_ccall f_31143(C_word c,C_word *av) C_noret; C_noret_decl(f_31159) static void C_fcall f_31159(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_31178) static void C_fcall f_31178(C_word t0,C_word t1) C_noret; C_noret_decl(f_31188) static void C_ccall f_31188(C_word c,C_word *av) C_noret; C_noret_decl(f_31198) static void C_ccall f_31198(C_word c,C_word *av) C_noret; C_noret_decl(f_31222) static void C_ccall f_31222(C_word c,C_word *av) C_noret; C_noret_decl(f_31226) static void C_ccall f_31226(C_word c,C_word *av) C_noret; C_noret_decl(f_31228) static void C_ccall f_31228(C_word c,C_word *av) C_noret; C_noret_decl(f_31232) static void C_ccall f_31232(C_word c,C_word *av) C_noret; C_noret_decl(f_31235) static void C_ccall f_31235(C_word c,C_word *av) C_noret; C_noret_decl(f_31250) static void C_ccall f_31250(C_word c,C_word *av) C_noret; C_noret_decl(f_31256) static void C_ccall f_31256(C_word c,C_word *av) C_noret; C_noret_decl(f_31260) static void C_ccall f_31260(C_word c,C_word *av) C_noret; C_noret_decl(f_31269) static void C_ccall f_31269(C_word c,C_word *av) C_noret; C_noret_decl(f_31272) static void C_ccall f_31272(C_word c,C_word *av) C_noret; C_noret_decl(f_31275) static void C_ccall f_31275(C_word c,C_word *av) C_noret; C_noret_decl(f_31278) static void C_ccall f_31278(C_word c,C_word *av) C_noret; C_noret_decl(f_31281) static void C_ccall f_31281(C_word c,C_word *av) C_noret; C_noret_decl(f_31287) static void C_ccall f_31287(C_word c,C_word *av) C_noret; C_noret_decl(f_31293) static void C_ccall f_31293(C_word c,C_word *av) C_noret; C_noret_decl(f_31296) static void C_ccall f_31296(C_word c,C_word *av) C_noret; C_noret_decl(f_31301) static void C_ccall f_31301(C_word c,C_word *av) C_noret; C_noret_decl(f_31311) static void C_ccall f_31311(C_word c,C_word *av) C_noret; C_noret_decl(f_31323) static void C_ccall f_31323(C_word c,C_word *av) C_noret; C_noret_decl(f_31331) static void C_fcall f_31331(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_31341) static void C_ccall f_31341(C_word c,C_word *av) C_noret; C_noret_decl(f_31357) static void C_ccall f_31357(C_word c,C_word *av) C_noret; C_noret_decl(f_31363) static void C_ccall f_31363(C_word c,C_word *av) C_noret; C_noret_decl(f_31366) static void C_ccall f_31366(C_word c,C_word *av) C_noret; C_noret_decl(f_31369) static void C_ccall f_31369(C_word c,C_word *av) C_noret; C_noret_decl(f_31370) static void C_fcall f_31370(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_31374) static void C_ccall f_31374(C_word c,C_word *av) C_noret; C_noret_decl(f_31380) static void C_ccall f_31380(C_word c,C_word *av) C_noret; C_noret_decl(f_31384) static void C_ccall f_31384(C_word c,C_word *av) C_noret; C_noret_decl(f_31386) static void C_fcall f_31386(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_31396) static void C_ccall f_31396(C_word c,C_word *av) C_noret; C_noret_decl(f_31413) static void C_ccall f_31413(C_word c,C_word *av) C_noret; C_noret_decl(f_31416) static void C_ccall f_31416(C_word c,C_word *av) C_noret; C_noret_decl(f_31420) static void C_ccall f_31420(C_word c,C_word *av) C_noret; C_noret_decl(f_31425) static void C_ccall f_31425(C_word c,C_word *av) C_noret; C_noret_decl(f_31431) static void C_ccall f_31431(C_word c,C_word *av) C_noret; C_noret_decl(f_31438) static void C_ccall f_31438(C_word c,C_word *av) C_noret; C_noret_decl(f_31447) static void C_ccall f_31447(C_word c,C_word *av) C_noret; C_noret_decl(f_31455) static void C_ccall f_31455(C_word c,C_word *av) C_noret; C_noret_decl(f_31480) static void C_ccall f_31480(C_word c,C_word *av) C_noret; C_noret_decl(f_31498) static void C_ccall f_31498(C_word c,C_word *av) C_noret; C_noret_decl(f_31502) static void C_ccall f_31502(C_word c,C_word *av) C_noret; C_noret_decl(f_31517) static void C_ccall f_31517(C_word c,C_word *av) C_noret; C_noret_decl(f_31521) static void C_ccall f_31521(C_word c,C_word *av) C_noret; C_noret_decl(f_31536) static void C_ccall f_31536(C_word c,C_word *av) C_noret; C_noret_decl(f_31539) static void C_ccall f_31539(C_word c,C_word *av) C_noret; C_noret_decl(f_31542) static void C_ccall f_31542(C_word c,C_word *av) C_noret; C_noret_decl(f_31552) static void C_fcall f_31552(C_word t0,C_word t1) C_noret; C_noret_decl(f_31583) static void C_ccall f_31583(C_word c,C_word *av) C_noret; C_noret_decl(f_31607) static void C_ccall f_31607(C_word c,C_word *av) C_noret; C_noret_decl(f_31617) static void C_ccall f_31617(C_word c,C_word *av) C_noret; C_noret_decl(f_31626) static void C_ccall f_31626(C_word c,C_word *av) C_noret; C_noret_decl(f_31667) static void C_ccall f_31667(C_word c,C_word *av) C_noret; C_noret_decl(f_31686) static void C_ccall f_31686(C_word c,C_word *av) C_noret; C_noret_decl(f_31695) static void C_ccall f_31695(C_word c,C_word *av) C_noret; C_noret_decl(f_31705) static void C_ccall f_31705(C_word c,C_word *av) C_noret; C_noret_decl(f_31715) static void C_ccall f_31715(C_word c,C_word *av) C_noret; C_noret_decl(f_31725) static void C_ccall f_31725(C_word c,C_word *av) C_noret; C_noret_decl(f_31735) static void C_ccall f_31735(C_word c,C_word *av) C_noret; C_noret_decl(f_31745) static void C_ccall f_31745(C_word c,C_word *av) C_noret; C_noret_decl(f_31755) static void C_ccall f_31755(C_word c,C_word *av) C_noret; C_noret_decl(f_31765) static void C_ccall f_31765(C_word c,C_word *av) C_noret; C_noret_decl(f_31775) static void C_ccall f_31775(C_word c,C_word *av) C_noret; C_noret_decl(f_31785) static void C_ccall f_31785(C_word c,C_word *av) C_noret; C_noret_decl(f_31795) static void C_ccall f_31795(C_word c,C_word *av) C_noret; C_noret_decl(f_31805) static void C_ccall f_31805(C_word c,C_word *av) C_noret; C_noret_decl(f_31815) static void C_ccall f_31815(C_word c,C_word *av) C_noret; C_noret_decl(f_31825) static void C_ccall f_31825(C_word c,C_word *av) C_noret; C_noret_decl(f_31841) static void C_ccall f_31841(C_word c,C_word *av) C_noret; C_noret_decl(f_31849) static void C_ccall f_31849(C_word c,C_word *av) C_noret; C_noret_decl(f_31865) static void C_ccall f_31865(C_word c,C_word *av) C_noret; C_noret_decl(f_31881) static void C_ccall f_31881(C_word c,C_word *av) C_noret; C_noret_decl(f_31891) static void C_ccall f_31891(C_word c,C_word *av) C_noret; C_noret_decl(f_31901) static void C_ccall f_31901(C_word c,C_word *av) C_noret; C_noret_decl(f_31920) static void C_ccall f_31920(C_word c,C_word *av) C_noret; C_noret_decl(f_31936) static void C_ccall f_31936(C_word c,C_word *av) C_noret; C_noret_decl(f_31949) static void C_ccall f_31949(C_word c,C_word *av) C_noret; C_noret_decl(f_31955) static void C_ccall f_31955(C_word c,C_word *av) C_noret; C_noret_decl(f_31978) static void C_ccall f_31978(C_word c,C_word *av) C_noret; C_noret_decl(f_31982) static void C_ccall f_31982(C_word c,C_word *av) C_noret; C_noret_decl(f_31986) static void C_ccall f_31986(C_word c,C_word *av) C_noret; C_noret_decl(f_31989) static void C_ccall f_31989(C_word c,C_word *av) C_noret; C_noret_decl(f_31995) static void C_ccall f_31995(C_word c,C_word *av) C_noret; C_noret_decl(f_32018) static void C_ccall f_32018(C_word c,C_word *av) C_noret; C_noret_decl(f_32022) static void C_ccall f_32022(C_word c,C_word *av) C_noret; C_noret_decl(f_32026) static void C_ccall f_32026(C_word c,C_word *av) C_noret; C_noret_decl(f_32029) static void C_ccall f_32029(C_word c,C_word *av) C_noret; C_noret_decl(f_32032) static void C_ccall f_32032(C_word c,C_word *av) C_noret; C_noret_decl(f_32035) static void C_ccall f_32035(C_word c,C_word *av) C_noret; C_noret_decl(f_32041) static void C_ccall f_32041(C_word c,C_word *av) C_noret; C_noret_decl(f_32044) static void C_ccall f_32044(C_word c,C_word *av) C_noret; C_noret_decl(f_32047) static void C_ccall f_32047(C_word c,C_word *av) C_noret; C_noret_decl(f_32055) static void C_fcall f_32055(C_word t0,C_word t1) C_noret; C_noret_decl(f_32057) static void C_fcall f_32057(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_32081) static void C_ccall f_32081(C_word c,C_word *av) C_noret; C_noret_decl(f_32104) static void C_ccall f_32104(C_word c,C_word *av) C_noret; C_noret_decl(f_32108) static void C_ccall f_32108(C_word c,C_word *av) C_noret; C_noret_decl(f_32112) static void C_ccall f_32112(C_word c,C_word *av) C_noret; C_noret_decl(f_32146) static void C_ccall f_32146(C_word c,C_word *av) C_noret; C_noret_decl(f_32150) static void C_ccall f_32150(C_word c,C_word *av) C_noret; C_noret_decl(f_32153) static void C_fcall f_32153(C_word t0,C_word t1) C_noret; C_noret_decl(f_32166) static void C_fcall f_32166(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_32199) static void C_ccall f_32199(C_word c,C_word *av) C_noret; C_noret_decl(f_32214) static void C_ccall f_32214(C_word c,C_word *av) C_noret; C_noret_decl(f_32218) static void C_ccall f_32218(C_word c,C_word *av) C_noret; C_noret_decl(f_32242) static void C_ccall f_32242(C_word c,C_word *av) C_noret; C_noret_decl(f_32250) static void C_ccall f_32250(C_word c,C_word *av) C_noret; C_noret_decl(f_32254) static void C_ccall f_32254(C_word c,C_word *av) C_noret; C_noret_decl(f_32265) static void C_ccall f_32265(C_word c,C_word *av) C_noret; C_noret_decl(f_32269) static void C_ccall f_32269(C_word c,C_word *av) C_noret; C_noret_decl(f_32273) static void C_ccall f_32273(C_word c,C_word *av) C_noret; C_noret_decl(f_32287) static void C_ccall f_32287(C_word c,C_word *av) C_noret; C_noret_decl(f_32319) static void C_ccall f_32319(C_word c,C_word *av) C_noret; C_noret_decl(f_8512) static void C_ccall f_8512(C_word c,C_word *av) C_noret; C_noret_decl(f_8514) static void C_ccall f_8514(C_word c,C_word *av) C_noret; C_noret_decl(f_8517) static void C_ccall f_8517(C_word c,C_word *av) C_noret; C_noret_decl(f_8520) static void C_ccall f_8520(C_word c,C_word *av) C_noret; C_noret_decl(f_8523) static void C_ccall f_8523(C_word c,C_word *av) C_noret; C_noret_decl(f_8526) static void C_ccall f_8526(C_word c,C_word *av) C_noret; C_noret_decl(f_8529) static void C_ccall f_8529(C_word c,C_word *av) C_noret; C_noret_decl(f_8532) static void C_ccall f_8532(C_word c,C_word *av) C_noret; C_noret_decl(f_8535) static void C_ccall f_8535(C_word c,C_word *av) C_noret; C_noret_decl(f_8538) static void C_ccall f_8538(C_word c,C_word *av) C_noret; C_noret_decl(f_8541) static void C_ccall f_8541(C_word c,C_word *av) C_noret; C_noret_decl(f_8544) static void C_ccall f_8544(C_word c,C_word *av) C_noret; C_noret_decl(f_8547) static void C_ccall f_8547(C_word c,C_word *av) C_noret; C_noret_decl(f_8550) static void C_ccall f_8550(C_word c,C_word *av) C_noret; C_noret_decl(f_8553) static void C_ccall f_8553(C_word c,C_word *av) C_noret; C_noret_decl(f_8556) static void C_ccall f_8556(C_word c,C_word *av) C_noret; C_noret_decl(f_8559) static void C_ccall f_8559(C_word c,C_word *av) C_noret; C_noret_decl(f_8562) static void C_ccall f_8562(C_word c,C_word *av) C_noret; C_noret_decl(f_8565) static void C_ccall f_8565(C_word c,C_word *av) C_noret; C_noret_decl(f_8568) static void C_ccall f_8568(C_word c,C_word *av) C_noret; C_noret_decl(f_8582) static void C_ccall f_8582(C_word c,C_word *av) C_noret; C_noret_decl(f_8589) static void C_ccall f_8589(C_word c,C_word *av) C_noret; C_noret_decl(f_8596) static void C_ccall f_8596(C_word c,C_word *av) C_noret; C_noret_decl(f_8610) static void C_ccall f_8610(C_word c,C_word *av) C_noret; C_noret_decl(f_8617) static void C_ccall f_8617(C_word c,C_word *av) C_noret; C_noret_decl(f_8631) static void C_ccall f_8631(C_word c,C_word *av) C_noret; C_noret_decl(f_8645) static void C_ccall f_8645(C_word c,C_word *av) C_noret; C_noret_decl(f_8663) static void C_ccall f_8663(C_word c,C_word *av) C_noret; C_noret_decl(f_8674) static void C_ccall f_8674(C_word c,C_word *av) C_noret; C_noret_decl(f_8685) static void C_ccall f_8685(C_word c,C_word *av) C_noret; C_noret_decl(f_8692) static void C_ccall f_8692(C_word c,C_word *av) C_noret; C_noret_decl(f_8703) static void C_ccall f_8703(C_word c,C_word *av) C_noret; C_noret_decl(f_8707) static void C_ccall f_8707(C_word c,C_word *av) C_noret; C_noret_decl(f_8714) static void C_ccall f_8714(C_word c,C_word *av) C_noret; C_noret_decl(f_8732) static void C_ccall f_8732(C_word c,C_word *av) C_noret; C_noret_decl(f_8743) static void C_ccall f_8743(C_word c,C_word *av) C_noret; C_noret_decl(f_8754) static void C_ccall f_8754(C_word c,C_word *av) C_noret; C_noret_decl(f_8761) static void C_ccall f_8761(C_word c,C_word *av) C_noret; C_noret_decl(f_8779) static void C_ccall f_8779(C_word c,C_word *av) C_noret; C_noret_decl(f_8790) static void C_ccall f_8790(C_word c,C_word *av) C_noret; C_noret_decl(f_8808) static void C_ccall f_8808(C_word c,C_word *av) C_noret; C_noret_decl(f_8814) static void C_ccall f_8814(C_word c,C_word *av) C_noret; C_noret_decl(f_8817) static void C_ccall f_8817(C_word c,C_word *av) C_noret; C_noret_decl(f_8820) static void C_ccall f_8820(C_word c,C_word *av) C_noret; C_noret_decl(f_8823) static void C_ccall f_8823(C_word c,C_word *av) C_noret; C_noret_decl(f_8826) static void C_ccall f_8826(C_word c,C_word *av) C_noret; C_noret_decl(f_8832) static void C_fcall f_8832(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8865) static void C_ccall f_8865(C_word c,C_word *av) C_noret; C_noret_decl(f_8868) static void C_ccall f_8868(C_word c,C_word *av) C_noret; C_noret_decl(f_8871) static void C_ccall f_8871(C_word c,C_word *av) C_noret; C_noret_decl(f_8874) static void C_ccall f_8874(C_word c,C_word *av) C_noret; C_noret_decl(f_8877) static void C_ccall f_8877(C_word c,C_word *av) C_noret; C_noret_decl(f_8880) static void C_ccall f_8880(C_word c,C_word *av) C_noret; C_noret_decl(f_8883) static void C_ccall f_8883(C_word c,C_word *av) C_noret; C_noret_decl(f_8886) static void C_ccall f_8886(C_word c,C_word *av) C_noret; C_noret_decl(f_8889) static void C_ccall f_8889(C_word c,C_word *av) C_noret; C_noret_decl(f_8892) static void C_ccall f_8892(C_word c,C_word *av) C_noret; C_noret_decl(f_8895) static void C_ccall f_8895(C_word c,C_word *av) C_noret; C_noret_decl(f_8898) static void C_ccall f_8898(C_word c,C_word *av) C_noret; C_noret_decl(f_8901) static void C_ccall f_8901(C_word c,C_word *av) C_noret; C_noret_decl(f_8905) static void C_ccall f_8905(C_word c,C_word *av) C_noret; C_noret_decl(f_8908) static void C_ccall f_8908(C_word c,C_word *av) C_noret; C_noret_decl(f_8914) static void C_ccall f_8914(C_word c,C_word *av) C_noret; C_noret_decl(f_8917) static void C_ccall f_8917(C_word c,C_word *av) C_noret; C_noret_decl(f_8920) static void C_ccall f_8920(C_word c,C_word *av) C_noret; C_noret_decl(f_8923) static void C_ccall f_8923(C_word c,C_word *av) C_noret; C_noret_decl(f_8926) static void C_ccall f_8926(C_word c,C_word *av) C_noret; C_noret_decl(f_8934) static void C_ccall f_8934(C_word c,C_word *av) C_noret; C_noret_decl(f_8938) static void C_ccall f_8938(C_word c,C_word *av) C_noret; C_noret_decl(f_8941) static void C_ccall f_8941(C_word c,C_word *av) C_noret; C_noret_decl(f_8944) static void C_ccall f_8944(C_word c,C_word *av) C_noret; C_noret_decl(f_8947) static void C_ccall f_8947(C_word c,C_word *av) C_noret; C_noret_decl(f_8950) static void C_ccall f_8950(C_word c,C_word *av) C_noret; C_noret_decl(f_8953) static void C_ccall f_8953(C_word c,C_word *av) C_noret; C_noret_decl(f_8956) static void C_ccall f_8956(C_word c,C_word *av) C_noret; C_noret_decl(f_8959) static void C_ccall f_8959(C_word c,C_word *av) C_noret; C_noret_decl(f_8963) static void C_ccall f_8963(C_word c,C_word *av) C_noret; C_noret_decl(f_8966) static void C_ccall f_8966(C_word c,C_word *av) C_noret; C_noret_decl(f_8969) static void C_ccall f_8969(C_word c,C_word *av) C_noret; C_noret_decl(f_8972) static void C_ccall f_8972(C_word c,C_word *av) C_noret; C_noret_decl(f_8975) static void C_ccall f_8975(C_word c,C_word *av) C_noret; C_noret_decl(f_8983) static void C_ccall f_8983(C_word c,C_word *av) C_noret; C_noret_decl(f_8986) static void C_ccall f_8986(C_word c,C_word *av) C_noret; C_noret_decl(f_8993) static void C_ccall f_8993(C_word c,C_word *av) C_noret; C_noret_decl(f_8997) static void C_ccall f_8997(C_word c,C_word *av) C_noret; C_noret_decl(f_9000) static void C_ccall f_9000(C_word c,C_word *av) C_noret; C_noret_decl(f_9003) static void C_ccall f_9003(C_word c,C_word *av) C_noret; C_noret_decl(f_9006) static void C_ccall f_9006(C_word c,C_word *av) C_noret; C_noret_decl(f_9009) static void C_ccall f_9009(C_word c,C_word *av) C_noret; C_noret_decl(f_9012) static void C_ccall f_9012(C_word c,C_word *av) C_noret; C_noret_decl(f_9015) static void C_ccall f_9015(C_word c,C_word *av) C_noret; C_noret_decl(f_9021) static void C_ccall f_9021(C_word c,C_word *av) C_noret; C_noret_decl(f_9032) static void C_ccall f_9032(C_word c,C_word *av) C_noret; C_noret_decl(f_9038) static void C_ccall f_9038(C_word c,C_word *av) C_noret; C_noret_decl(f_9044) static void C_ccall f_9044(C_word c,C_word *av) C_noret; C_noret_decl(f_9050) static void C_ccall f_9050(C_word c,C_word *av) C_noret; C_noret_decl(f_9056) static void C_ccall f_9056(C_word c,C_word *av) C_noret; C_noret_decl(f_9062) static void C_ccall f_9062(C_word c,C_word *av) C_noret; C_noret_decl(f_9069) static void C_ccall f_9069(C_word c,C_word *av) C_noret; C_noret_decl(f_9075) static void C_ccall f_9075(C_word c,C_word *av) C_noret; C_noret_decl(f_9091) static void C_ccall f_9091(C_word c,C_word *av) C_noret; C_noret_decl(f_9102) static void C_ccall f_9102(C_word c,C_word *av) C_noret; C_noret_decl(f_9108) static void C_ccall f_9108(C_word c,C_word *av) C_noret; C_noret_decl(f_9114) static void C_ccall f_9114(C_word c,C_word *av) C_noret; C_noret_decl(f_9120) static void C_ccall f_9120(C_word c,C_word *av) C_noret; C_noret_decl(f_9126) static void C_ccall f_9126(C_word c,C_word *av) C_noret; C_noret_decl(f_9135) static void C_ccall f_9135(C_word c,C_word *av) C_noret; C_noret_decl(f_9138) static void C_ccall f_9138(C_word c,C_word *av) C_noret; C_noret_decl(f_9141) static void C_ccall f_9141(C_word c,C_word *av) C_noret; C_noret_decl(f_9144) static void C_ccall f_9144(C_word c,C_word *av) C_noret; C_noret_decl(f_9147) static void C_ccall f_9147(C_word c,C_word *av) C_noret; C_noret_decl(f_9150) static void C_ccall f_9150(C_word c,C_word *av) C_noret; C_noret_decl(f_9154) static void C_ccall f_9154(C_word c,C_word *av) C_noret; C_noret_decl(f_9160) static void C_ccall f_9160(C_word c,C_word *av) C_noret; C_noret_decl(f_9166) static void C_ccall f_9166(C_word c,C_word *av) C_noret; C_noret_decl(f_9201) static void C_ccall f_9201(C_word c,C_word *av) C_noret; C_noret_decl(f_9204) static void C_ccall f_9204(C_word c,C_word *av) C_noret; C_noret_decl(f_9207) static void C_ccall f_9207(C_word c,C_word *av) C_noret; C_noret_decl(f_9215) static void C_ccall f_9215(C_word c,C_word *av) C_noret; C_noret_decl(f_9221) static void C_ccall f_9221(C_word c,C_word *av) C_noret; C_noret_decl(f_9228) static void C_ccall f_9228(C_word c,C_word *av) C_noret; C_noret_decl(f_9243) static void C_ccall f_9243(C_word c,C_word *av) C_noret; C_noret_decl(f_9264) static void C_ccall f_9264(C_word c,C_word *av) C_noret; C_noret_decl(f_9270) static void C_ccall f_9270(C_word c,C_word *av) C_noret; C_noret_decl(f_9276) static void C_ccall f_9276(C_word c,C_word *av) C_noret; C_noret_decl(f_9283) static void C_ccall f_9283(C_word c,C_word *av) C_noret; C_noret_decl(f_9288) static void C_ccall f_9288(C_word c,C_word *av) C_noret; C_noret_decl(f_9291) static void C_ccall f_9291(C_word c,C_word *av) C_noret; C_noret_decl(f_9300) static void C_fcall f_9300(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9318) static void C_ccall f_9318(C_word c,C_word *av) C_noret; C_noret_decl(f_9328) static void C_ccall f_9328(C_word c,C_word *av) C_noret; C_noret_decl(f_9337) static void C_fcall f_9337(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9355) static void C_ccall f_9355(C_word c,C_word *av) C_noret; C_noret_decl(f_9368) static void C_ccall f_9368(C_word c,C_word *av) C_noret; C_noret_decl(f_9375) static void C_ccall f_9375(C_word c,C_word *av) C_noret; C_noret_decl(f_9382) static void C_ccall f_9382(C_word c,C_word *av) C_noret; C_noret_decl(f_9393) static void C_ccall f_9393(C_word c,C_word *av) C_noret; C_noret_decl(f_9400) static void C_ccall f_9400(C_word c,C_word *av) C_noret; C_noret_decl(f_9412) static void C_ccall f_9412(C_word c,C_word *av) C_noret; C_noret_decl(f_9415) static void C_ccall f_9415(C_word c,C_word *av) C_noret; C_noret_decl(f_9417) static void C_ccall f_9417(C_word c,C_word *av) C_noret; C_noret_decl(f_9423) static void C_fcall f_9423(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9439) static void C_ccall f_9439(C_word c,C_word *av) C_noret; C_noret_decl(f_9448) static void C_ccall f_9448(C_word c,C_word *av) C_noret; C_noret_decl(f_9450) static void C_ccall f_9450(C_word c,C_word *av) C_noret; C_noret_decl(f_9456) static void C_fcall f_9456(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9469) static void C_ccall f_9469(C_word c,C_word *av) C_noret; C_noret_decl(f_9485) static void C_ccall f_9485(C_word c,C_word *av) C_noret; C_noret_decl(f_9496) static void C_ccall f_9496(C_word c,C_word *av) C_noret; C_noret_decl(f_9498) static void C_ccall f_9498(C_word c,C_word *av) C_noret; C_noret_decl(f_9506) static void C_ccall f_9506(C_word c,C_word *av) C_noret; C_noret_decl(f_9508) static void C_ccall f_9508(C_word c,C_word *av) C_noret; C_noret_decl(f_9514) static void C_ccall f_9514(C_word c,C_word *av) C_noret; C_noret_decl(f_9516) static void C_ccall f_9516(C_word c,C_word *av) C_noret; C_noret_decl(f_9524) static void C_ccall f_9524(C_word c,C_word *av) C_noret; C_noret_decl(f_9526) static void C_ccall f_9526(C_word c,C_word *av) C_noret; C_noret_decl(f_9529) static void C_ccall f_9529(C_word c,C_word *av) C_noret; C_noret_decl(f_9537) static void C_ccall f_9537(C_word c,C_word *av) C_noret; C_noret_decl(f_9543) static void C_ccall f_9543(C_word c,C_word *av) C_noret; C_noret_decl(f_9551) static void C_ccall f_9551(C_word c,C_word *av) C_noret; C_noret_decl(f_9562) static void C_ccall f_9562(C_word c,C_word *av) C_noret; C_noret_decl(f_9574) static void C_fcall f_9574(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9588) static void C_ccall f_9588(C_word c,C_word *av) C_noret; C_noret_decl(f_9596) static void C_ccall f_9596(C_word c,C_word *av) C_noret; C_noret_decl(f_9599) static void C_ccall f_9599(C_word c,C_word *av) C_noret; C_noret_decl(f_9601) static void C_ccall f_9601(C_word c,C_word *av) C_noret; C_noret_decl(f_9603) static void C_ccall f_9603(C_word c,C_word *av) C_noret; C_noret_decl(f_9609) static void C_fcall f_9609(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9628) static void C_ccall f_9628(C_word c,C_word *av) C_noret; C_noret_decl(f_9645) static void C_ccall f_9645(C_word c,C_word *av) C_noret; C_noret_decl(f_9653) static void C_ccall f_9653(C_word c,C_word *av) C_noret; C_noret_decl(f_9667) static void C_ccall f_9667(C_word c,C_word *av) C_noret; C_noret_decl(f_9673) static void C_fcall f_9673(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9692) static void C_ccall f_9692(C_word c,C_word *av) C_noret; C_noret_decl(f_9701) static void C_ccall f_9701(C_word c,C_word *av) C_noret; C_noret_decl(f_9704) static void C_ccall f_9704(C_word c,C_word *av) C_noret; C_noret_decl(f_9716) static C_word C_fcall f_9716(C_word t0,C_word t1); C_noret_decl(f_9732) static void C_ccall f_9732(C_word c,C_word *av) C_noret; C_noret_decl(f_9738) static void C_fcall f_9738(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9763) static void C_ccall f_9763(C_word c,C_word *av) C_noret; C_noret_decl(f_9765) static void C_ccall f_9765(C_word c,C_word *av) C_noret; C_noret_decl(f_9774) static void C_fcall f_9774(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9795) static void C_ccall f_9795(C_word c,C_word *av) C_noret; C_noret_decl(f_9797) static void C_ccall f_9797(C_word c,C_word *av) C_noret; C_noret_decl(f_9803) static void C_fcall f_9803(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9829) static void C_ccall f_9829(C_word c,C_word *av) C_noret; C_noret_decl(f_9836) static void C_ccall f_9836(C_word c,C_word *av) C_noret; C_noret_decl(f_9838) static void C_ccall f_9838(C_word c,C_word *av) C_noret; C_noret_decl(f_9842) static void C_fcall f_9842(C_word t0,C_word t1) C_noret; C_noret_decl(f_9850) static void C_fcall f_9850(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9885) static void C_ccall f_9885(C_word c,C_word *av) C_noret; C_noret_decl(f_9895) static void C_ccall f_9895(C_word c,C_word *av) C_noret; C_noret_decl(f_9904) static void C_fcall f_9904(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_9946) static void C_ccall f_9946(C_word c,C_word *av) C_noret; C_noret_decl(f_9975) static void C_ccall f_9975(C_word c,C_word *av) C_noret; C_noret_decl(f_9982) static void C_fcall f_9982(C_word t0,C_word t1) C_noret; C_noret_decl(f_9985) static void C_ccall f_9985(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externexport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_10020) static void C_ccall trf_10020(C_word c,C_word *av) C_noret; static void C_ccall trf_10020(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10020(t0,t1,t2);} C_noret_decl(trf_10070) static void C_ccall trf_10070(C_word c,C_word *av) C_noret; static void C_ccall trf_10070(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10070(t0,t1,t2);} C_noret_decl(trf_10181) static void C_ccall trf_10181(C_word c,C_word *av) C_noret; static void C_ccall trf_10181(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10181(t0,t1);} C_noret_decl(trf_10212) static void C_ccall trf_10212(C_word c,C_word *av) C_noret; static void C_ccall trf_10212(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10212(t0,t1,t2);} C_noret_decl(trf_10284) static void C_ccall trf_10284(C_word c,C_word *av) C_noret; static void C_ccall trf_10284(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10284(t0,t1);} C_noret_decl(trf_10289) static void C_ccall trf_10289(C_word c,C_word *av) C_noret; static void C_ccall trf_10289(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10289(t0,t1,t2);} C_noret_decl(trf_10894) static void C_ccall trf_10894(C_word c,C_word *av) C_noret; static void C_ccall trf_10894(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10894(t0,t1,t2,t3);} C_noret_decl(trf_10943) static void C_ccall trf_10943(C_word c,C_word *av) C_noret; static void C_ccall trf_10943(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10943(t0,t1);} C_noret_decl(trf_11150) static void C_ccall trf_11150(C_word c,C_word *av) C_noret; static void C_ccall trf_11150(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11150(t0,t1,t2);} C_noret_decl(trf_11169) static void C_ccall trf_11169(C_word c,C_word *av) C_noret; static void C_ccall trf_11169(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11169(t0,t1,t2);} C_noret_decl(trf_11223) static void C_ccall trf_11223(C_word c,C_word *av) C_noret; static void C_ccall trf_11223(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11223(t0,t1,t2,t3);} C_noret_decl(trf_11319) static void C_ccall trf_11319(C_word c,C_word *av) C_noret; static void C_ccall trf_11319(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11319(t0,t1,t2,t3);} C_noret_decl(trf_11477) static void C_ccall trf_11477(C_word c,C_word *av) C_noret; static void C_ccall trf_11477(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11477(t0,t1);} C_noret_decl(trf_11486) static void C_ccall trf_11486(C_word c,C_word *av) C_noret; static void C_ccall trf_11486(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_11486(t0,t1);} C_noret_decl(trf_11769) static void C_ccall trf_11769(C_word c,C_word *av) C_noret; static void C_ccall trf_11769(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11769(t0,t1,t2,t3);} C_noret_decl(trf_11858) static void C_ccall trf_11858(C_word c,C_word *av) C_noret; static void C_ccall trf_11858(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_11858(t0,t1,t2,t3);} C_noret_decl(trf_11879) static void C_ccall trf_11879(C_word c,C_word *av) C_noret; static void C_ccall trf_11879(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_11879(t0,t1,t2,t3,t4);} C_noret_decl(trf_12608) static void C_ccall trf_12608(C_word c,C_word *av) C_noret; static void C_ccall trf_12608(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12608(t0,t1,t2);} C_noret_decl(trf_12788) static void C_ccall trf_12788(C_word c,C_word *av) C_noret; static void C_ccall trf_12788(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_12788(t0,t1,t2);} C_noret_decl(trf_12967) static void C_ccall trf_12967(C_word c,C_word *av) C_noret; static void C_ccall trf_12967(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12967(t0,t1,t2,t3);} C_noret_decl(trf_12984) static void C_ccall trf_12984(C_word c,C_word *av) C_noret; static void C_ccall trf_12984(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_12984(t0,t1,t2,t3);} C_noret_decl(trf_13151) static void C_ccall trf_13151(C_word c,C_word *av) C_noret; static void C_ccall trf_13151(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13151(t0,t1,t2,t3);} C_noret_decl(trf_13189) static void C_ccall trf_13189(C_word c,C_word *av) C_noret; static void C_ccall trf_13189(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13189(t0,t1);} C_noret_decl(trf_13633) static void C_ccall trf_13633(C_word c,C_word *av) C_noret; static void C_ccall trf_13633(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_13633(t0,t1,t2);} C_noret_decl(trf_13636) static void C_ccall trf_13636(C_word c,C_word *av) C_noret; static void C_ccall trf_13636(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_13636(t0,t1,t2,t3);} C_noret_decl(trf_13815) static void C_ccall trf_13815(C_word c,C_word *av) C_noret; static void C_ccall trf_13815(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_13815(t0,t1,t2,t3,t4);} C_noret_decl(trf_13859) static void C_ccall trf_13859(C_word c,C_word *av) C_noret; static void C_ccall trf_13859(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_13859(t0,t1,t2,t3,t4);} C_noret_decl(trf_13960) static void C_ccall trf_13960(C_word c,C_word *av) C_noret; static void C_ccall trf_13960(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_13960(t0,t1);} C_noret_decl(trf_14122) static void C_ccall trf_14122(C_word c,C_word *av) C_noret; static void C_ccall trf_14122(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14122(t0,t1);} C_noret_decl(trf_14128) static void C_ccall trf_14128(C_word c,C_word *av) C_noret; static void C_ccall trf_14128(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14128(t0,t1);} C_noret_decl(trf_14184) static void C_ccall trf_14184(C_word c,C_word *av) C_noret; static void C_ccall trf_14184(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14184(t0,t1);} C_noret_decl(trf_14190) static void C_ccall trf_14190(C_word c,C_word *av) C_noret; static void C_ccall trf_14190(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14190(t0,t1);} C_noret_decl(trf_14663) static void C_ccall trf_14663(C_word c,C_word *av) C_noret; static void C_ccall trf_14663(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14663(t0,t1);} C_noret_decl(trf_14698) static void C_ccall trf_14698(C_word c,C_word *av) C_noret; static void C_ccall trf_14698(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14698(t0,t1,t2,t3);} C_noret_decl(trf_14808) static void C_ccall trf_14808(C_word c,C_word *av) C_noret; static void C_ccall trf_14808(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_14808(t0,t1,t2,t3);} C_noret_decl(trf_14850) static void C_ccall trf_14850(C_word c,C_word *av) C_noret; static void C_ccall trf_14850(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14850(t0,t1,t2);} C_noret_decl(trf_14864) static void C_ccall trf_14864(C_word c,C_word *av) C_noret; static void C_ccall trf_14864(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_14864(t0,t1,t2);} C_noret_decl(trf_14909) static void C_ccall trf_14909(C_word c,C_word *av) C_noret; static void C_ccall trf_14909(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_14909(t0,t1);} C_noret_decl(trf_15018) static void C_ccall trf_15018(C_word c,C_word *av) C_noret; static void C_ccall trf_15018(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15018(t0,t1);} C_noret_decl(trf_15027) static void C_ccall trf_15027(C_word c,C_word *av) C_noret; static void C_ccall trf_15027(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15027(t0,t1);} C_noret_decl(trf_15114) static void C_ccall trf_15114(C_word c,C_word *av) C_noret; static void C_ccall trf_15114(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15114(t0,t1,t2,t3);} C_noret_decl(trf_15210) static void C_ccall trf_15210(C_word c,C_word *av) C_noret; static void C_ccall trf_15210(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15210(t0,t1,t2,t3);} C_noret_decl(trf_15275) static void C_ccall trf_15275(C_word c,C_word *av) C_noret; static void C_ccall trf_15275(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15275(t0,t1,t2,t3);} C_noret_decl(trf_15479) static void C_ccall trf_15479(C_word c,C_word *av) C_noret; static void C_ccall trf_15479(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15479(t0,t1);} C_noret_decl(trf_15540) static void C_ccall trf_15540(C_word c,C_word *av) C_noret; static void C_ccall trf_15540(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15540(t0,t1,t2);} C_noret_decl(trf_15583) static void C_ccall trf_15583(C_word c,C_word *av) C_noret; static void C_ccall trf_15583(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_15583(t0,t1,t2,t3,t4);} C_noret_decl(trf_15596) static void C_ccall trf_15596(C_word c,C_word *av) C_noret; static void C_ccall trf_15596(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_15596(t0,t1,t2,t3);} C_noret_decl(trf_15676) static void C_ccall trf_15676(C_word c,C_word *av) C_noret; static void C_ccall trf_15676(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15676(t0,t1,t2);} C_noret_decl(trf_15682) static void C_ccall trf_15682(C_word c,C_word *av) C_noret; static void C_ccall trf_15682(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15682(t0,t1,t2);} C_noret_decl(trf_15745) static void C_ccall trf_15745(C_word c,C_word *av) C_noret; static void C_ccall trf_15745(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15745(t0,t1);} C_noret_decl(trf_15784) static void C_ccall trf_15784(C_word c,C_word *av) C_noret; static void C_ccall trf_15784(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15784(t0,t1,t2);} C_noret_decl(trf_15790) static void C_ccall trf_15790(C_word c,C_word *av) C_noret; static void C_ccall trf_15790(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15790(t0,t1,t2);} C_noret_decl(trf_15834) static void C_ccall trf_15834(C_word c,C_word *av) C_noret; static void C_ccall trf_15834(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_15834(t0,t1,t2,t3,t4);} C_noret_decl(trf_15890) static void C_ccall trf_15890(C_word c,C_word *av) C_noret; static void C_ccall trf_15890(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_15890(t0,t1,t2);} C_noret_decl(trf_15905) static void C_ccall trf_15905(C_word c,C_word *av) C_noret; static void C_ccall trf_15905(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15905(t0,t1);} C_noret_decl(trf_15951) static void C_ccall trf_15951(C_word c,C_word *av) C_noret; static void C_ccall trf_15951(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_15951(t0,t1,t2,t3,t4);} C_noret_decl(trf_15970) static void C_ccall trf_15970(C_word c,C_word *av) C_noret; static void C_ccall trf_15970(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15970(t0,t1);} C_noret_decl(trf_15973) static void C_ccall trf_15973(C_word c,C_word *av) C_noret; static void C_ccall trf_15973(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15973(t0,t1);} C_noret_decl(trf_15982) static void C_ccall trf_15982(C_word c,C_word *av) C_noret; static void C_ccall trf_15982(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_15982(t0,t1);} C_noret_decl(trf_16009) static void C_ccall trf_16009(C_word c,C_word *av) C_noret; static void C_ccall trf_16009(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16009(t0,t1);} C_noret_decl(trf_16165) static void C_ccall trf_16165(C_word c,C_word *av) C_noret; static void C_ccall trf_16165(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_16165(t0,t1,t2,t3);} C_noret_decl(trf_16172) static void C_ccall trf_16172(C_word c,C_word *av) C_noret; static void C_ccall trf_16172(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16172(t0,t1);} C_noret_decl(trf_16191) static void C_ccall trf_16191(C_word c,C_word *av) C_noret; static void C_ccall trf_16191(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16191(t0,t1);} C_noret_decl(trf_16243) static void C_ccall trf_16243(C_word c,C_word *av) C_noret; static void C_ccall trf_16243(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16243(t0,t1);} C_noret_decl(trf_16508) static void C_ccall trf_16508(C_word c,C_word *av) C_noret; static void C_ccall trf_16508(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_16508(t0,t1,t2);} C_noret_decl(trf_16523) static void C_ccall trf_16523(C_word c,C_word *av) C_noret; static void C_ccall trf_16523(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16523(t0,t1);} C_noret_decl(trf_16549) static void C_ccall trf_16549(C_word c,C_word *av) C_noret; static void C_ccall trf_16549(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16549(t0,t1);} C_noret_decl(trf_16581) static void C_ccall trf_16581(C_word c,C_word *av) C_noret; static void C_ccall trf_16581(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16581(t0,t1);} C_noret_decl(trf_16642) static void C_ccall trf_16642(C_word c,C_word *av) C_noret; static void C_ccall trf_16642(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16642(t0,t1);} C_noret_decl(trf_16762) static void C_ccall trf_16762(C_word c,C_word *av) C_noret; static void C_ccall trf_16762(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16762(t0,t1);} C_noret_decl(trf_16853) static void C_ccall trf_16853(C_word c,C_word *av) C_noret; static void C_ccall trf_16853(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_16853(t0,t1);} C_noret_decl(trf_16999) static void C_ccall trf_16999(C_word c,C_word *av) C_noret; static void C_ccall trf_16999(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_16999(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_17006) static void C_ccall trf_17006(C_word c,C_word *av) C_noret; static void C_ccall trf_17006(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17006(t0,t1);} C_noret_decl(trf_17284) static void C_ccall trf_17284(C_word c,C_word *av) C_noret; static void C_ccall trf_17284(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_17284(t0,t1,t2,t3,t4);} C_noret_decl(trf_17311) static void C_ccall trf_17311(C_word c,C_word *av) C_noret; static void C_ccall trf_17311(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17311(t0,t1,t2);} C_noret_decl(trf_17352) static void C_ccall trf_17352(C_word c,C_word *av) C_noret; static void C_ccall trf_17352(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_17352(t0,t1,t2,t3);} C_noret_decl(trf_17589) static void C_ccall trf_17589(C_word c,C_word *av) C_noret; static void C_ccall trf_17589(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17589(t0,t1,t2);} C_noret_decl(trf_17851) static void C_ccall trf_17851(C_word c,C_word *av) C_noret; static void C_ccall trf_17851(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_17851(t0,t1,t2);} C_noret_decl(trf_17925) static void C_ccall trf_17925(C_word c,C_word *av) C_noret; static void C_ccall trf_17925(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_17925(t0,t1);} C_noret_decl(trf_18070) static void C_ccall trf_18070(C_word c,C_word *av) C_noret; static void C_ccall trf_18070(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_18070(t0,t1,t2,t3);} C_noret_decl(trf_18171) static void C_ccall trf_18171(C_word c,C_word *av) C_noret; static void C_ccall trf_18171(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18171(t0,t1,t2);} C_noret_decl(trf_18216) static void C_ccall trf_18216(C_word c,C_word *av) C_noret; static void C_ccall trf_18216(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18216(t0,t1);} C_noret_decl(trf_18379) static void C_ccall trf_18379(C_word c,C_word *av) C_noret; static void C_ccall trf_18379(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18379(t0,t1,t2);} C_noret_decl(trf_18417) static void C_ccall trf_18417(C_word c,C_word *av) C_noret; static void C_ccall trf_18417(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18417(t0,t1,t2);} C_noret_decl(trf_18507) static void C_ccall trf_18507(C_word c,C_word *av) C_noret; static void C_ccall trf_18507(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_18507(t0,t1);} C_noret_decl(trf_18566) static void C_ccall trf_18566(C_word c,C_word *av) C_noret; static void C_ccall trf_18566(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18566(t0,t1,t2);} C_noret_decl(trf_18596) static void C_ccall trf_18596(C_word c,C_word *av) C_noret; static void C_ccall trf_18596(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18596(t0,t1,t2);} C_noret_decl(trf_18655) static void C_ccall trf_18655(C_word c,C_word *av) C_noret; static void C_ccall trf_18655(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18655(t0,t1,t2);} C_noret_decl(trf_18696) static void C_ccall trf_18696(C_word c,C_word *av) C_noret; static void C_ccall trf_18696(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18696(t0,t1,t2);} C_noret_decl(trf_18815) static void C_ccall trf_18815(C_word c,C_word *av) C_noret; static void C_ccall trf_18815(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_18815(t0,t1,t2);} C_noret_decl(trf_19205) static void C_ccall trf_19205(C_word c,C_word *av) C_noret; static void C_ccall trf_19205(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_19205(t0,t1,t2,t3,t4);} C_noret_decl(trf_19248) static void C_ccall trf_19248(C_word c,C_word *av) C_noret; static void C_ccall trf_19248(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19248(t0,t1,t2);} C_noret_decl(trf_19303) static void C_ccall trf_19303(C_word c,C_word *av) C_noret; static void C_ccall trf_19303(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19303(t0,t1,t2,t3);} C_noret_decl(trf_19559) static void C_ccall trf_19559(C_word c,C_word *av) C_noret; static void C_ccall trf_19559(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19559(t0,t1,t2);} C_noret_decl(trf_19572) static void C_ccall trf_19572(C_word c,C_word *av) C_noret; static void C_ccall trf_19572(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19572(t0,t1,t2);} C_noret_decl(trf_19631) static void C_ccall trf_19631(C_word c,C_word *av) C_noret; static void C_ccall trf_19631(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19631(t0,t1,t2);} C_noret_decl(trf_19885) static void C_ccall trf_19885(C_word c,C_word *av) C_noret; static void C_ccall trf_19885(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_19885(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_19889) static void C_ccall trf_19889(C_word c,C_word *av) C_noret; static void C_ccall trf_19889(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19889(t0,t1);} C_noret_decl(trf_19919) static void C_ccall trf_19919(C_word c,C_word *av) C_noret; static void C_ccall trf_19919(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19919(t0,t1);} C_noret_decl(trf_19939) static void C_ccall trf_19939(C_word c,C_word *av) C_noret; static void C_ccall trf_19939(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_19939(t0,t1,t2,t3);} C_noret_decl(trf_19948) static void C_ccall trf_19948(C_word c,C_word *av) C_noret; static void C_ccall trf_19948(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_19948(t0,t1,t2);} C_noret_decl(trf_19953) static void C_ccall trf_19953(C_word c,C_word *av) C_noret; static void C_ccall trf_19953(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_19953(t0,t1);} C_noret_decl(trf_20318) static void C_ccall trf_20318(C_word c,C_word *av) C_noret; static void C_ccall trf_20318(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_20318(t0,t1,t2,t3,t4);} C_noret_decl(trf_20327) static void C_ccall trf_20327(C_word c,C_word *av) C_noret; static void C_ccall trf_20327(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20327(t0,t1);} C_noret_decl(trf_20337) static void C_ccall trf_20337(C_word c,C_word *av) C_noret; static void C_ccall trf_20337(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20337(t0,t1,t2);} C_noret_decl(trf_20344) static void C_ccall trf_20344(C_word c,C_word *av) C_noret; static void C_ccall trf_20344(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20344(t0,t1);} C_noret_decl(trf_20364) static void C_ccall trf_20364(C_word c,C_word *av) C_noret; static void C_ccall trf_20364(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20364(t0,t1,t2);} C_noret_decl(trf_20373) static void C_ccall trf_20373(C_word c,C_word *av) C_noret; static void C_ccall trf_20373(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20373(t0,t1,t2);} C_noret_decl(trf_20388) static void C_ccall trf_20388(C_word c,C_word *av) C_noret; static void C_ccall trf_20388(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20388(t0,t1);} C_noret_decl(trf_20391) static void C_ccall trf_20391(C_word c,C_word *av) C_noret; static void C_ccall trf_20391(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20391(t0,t1);} C_noret_decl(trf_20401) static void C_ccall trf_20401(C_word c,C_word *av) C_noret; static void C_ccall trf_20401(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20401(t0,t1,t2);} C_noret_decl(trf_20439) static void C_ccall trf_20439(C_word c,C_word *av) C_noret; static void C_ccall trf_20439(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_20439(t0,t1,t2,t3,t4);} C_noret_decl(trf_20445) static void C_ccall trf_20445(C_word c,C_word *av) C_noret; static void C_ccall trf_20445(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20445(t0,t1,t2,t3);} C_noret_decl(trf_20499) static void C_ccall trf_20499(C_word c,C_word *av) C_noret; static void C_ccall trf_20499(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20499(t0,t1,t2);} C_noret_decl(trf_20511) static void C_ccall trf_20511(C_word c,C_word *av) C_noret; static void C_ccall trf_20511(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20511(t0,t1,t2,t3);} C_noret_decl(trf_20536) static void C_ccall trf_20536(C_word c,C_word *av) C_noret; static void C_ccall trf_20536(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_20536(t0,t1,t2);} C_noret_decl(trf_20546) static void C_ccall trf_20546(C_word c,C_word *av) C_noret; static void C_ccall trf_20546(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20546(t0,t1,t2,t3);} C_noret_decl(trf_20727) static void C_ccall trf_20727(C_word c,C_word *av) C_noret; static void C_ccall trf_20727(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20727(t0,t1);} C_noret_decl(trf_20818) static void C_ccall trf_20818(C_word c,C_word *av) C_noret; static void C_ccall trf_20818(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20818(t0,t1);} C_noret_decl(trf_20838) static void C_ccall trf_20838(C_word c,C_word *av) C_noret; static void C_ccall trf_20838(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20838(t0,t1);} C_noret_decl(trf_20843) static void C_ccall trf_20843(C_word c,C_word *av) C_noret; static void C_ccall trf_20843(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_20843(t0,t1,t2,t3);} C_noret_decl(trf_20942) static void C_ccall trf_20942(C_word c,C_word *av) C_noret; static void C_ccall trf_20942(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_20942(t0,t1);} C_noret_decl(trf_21090) static void C_ccall trf_21090(C_word c,C_word *av) C_noret; static void C_ccall trf_21090(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_21090(t0,t1,t2,t3);} C_noret_decl(trf_21099) static void C_ccall trf_21099(C_word c,C_word *av) C_noret; static void C_ccall trf_21099(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21099(t0,t1,t2);} C_noret_decl(trf_21154) static void C_ccall trf_21154(C_word c,C_word *av) C_noret; static void C_ccall trf_21154(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21154(t0,t1,t2);} C_noret_decl(trf_21161) static void C_ccall trf_21161(C_word c,C_word *av) C_noret; static void C_ccall trf_21161(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21161(t0,t1);} C_noret_decl(trf_21204) static void C_ccall trf_21204(C_word c,C_word *av) C_noret; static void C_ccall trf_21204(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21204(t0,t1);} C_noret_decl(trf_21352) static void C_ccall trf_21352(C_word c,C_word *av) C_noret; static void C_ccall trf_21352(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21352(t0,t1);} C_noret_decl(trf_21370) static void C_ccall trf_21370(C_word c,C_word *av) C_noret; static void C_ccall trf_21370(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_21370(t0,t1,t2,t3);} C_noret_decl(trf_21405) static void C_ccall trf_21405(C_word c,C_word *av) C_noret; static void C_ccall trf_21405(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21405(t0,t1);} C_noret_decl(trf_21440) static void C_ccall trf_21440(C_word c,C_word *av) C_noret; static void C_ccall trf_21440(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21440(t0,t1,t2);} C_noret_decl(trf_21491) static void C_ccall trf_21491(C_word c,C_word *av) C_noret; static void C_ccall trf_21491(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21491(t0,t1,t2);} C_noret_decl(trf_21558) static void C_ccall trf_21558(C_word c,C_word *av) C_noret; static void C_ccall trf_21558(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21558(t0,t1);} C_noret_decl(trf_21568) static void C_ccall trf_21568(C_word c,C_word *av) C_noret; static void C_ccall trf_21568(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_21568(t0,t1,t2,t3);} C_noret_decl(trf_21578) static void C_ccall trf_21578(C_word c,C_word *av) C_noret; static void C_ccall trf_21578(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21578(t0,t1);} C_noret_decl(trf_21622) static void C_ccall trf_21622(C_word c,C_word *av) C_noret; static void C_ccall trf_21622(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21622(t0,t1);} C_noret_decl(trf_21632) static void C_ccall trf_21632(C_word c,C_word *av) C_noret; static void C_ccall trf_21632(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_21632(t0,t1,t2,t3);} C_noret_decl(trf_21642) static void C_ccall trf_21642(C_word c,C_word *av) C_noret; static void C_ccall trf_21642(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21642(t0,t1);} C_noret_decl(trf_21668) static void C_ccall trf_21668(C_word c,C_word *av) C_noret; static void C_ccall trf_21668(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21668(t0,t1);} C_noret_decl(trf_21693) static void C_ccall trf_21693(C_word c,C_word *av) C_noret; static void C_ccall trf_21693(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_21693(t0,t1,t2);} C_noret_decl(trf_21699) static void C_ccall trf_21699(C_word c,C_word *av) C_noret; static void C_ccall trf_21699(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_21699(t0,t1,t2,t3);} C_noret_decl(trf_21712) static void C_ccall trf_21712(C_word c,C_word *av) C_noret; static void C_ccall trf_21712(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21712(t0,t1);} C_noret_decl(trf_21718) static void C_ccall trf_21718(C_word c,C_word *av) C_noret; static void C_ccall trf_21718(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21718(t0,t1);} C_noret_decl(trf_21907) static void C_ccall trf_21907(C_word c,C_word *av) C_noret; static void C_ccall trf_21907(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21907(t0,t1);} C_noret_decl(trf_21946) static void C_ccall trf_21946(C_word c,C_word *av) C_noret; static void C_ccall trf_21946(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_21946(t0,t1);} C_noret_decl(trf_22091) static void C_ccall trf_22091(C_word c,C_word *av) C_noret; static void C_ccall trf_22091(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22091(t0,t1);} C_noret_decl(trf_22116) static void C_ccall trf_22116(C_word c,C_word *av) C_noret; static void C_ccall trf_22116(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22116(t0,t1);} C_noret_decl(trf_22122) static void C_ccall trf_22122(C_word c,C_word *av) C_noret; static void C_ccall trf_22122(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22122(t0,t1,t2);} C_noret_decl(trf_22203) static void C_ccall trf_22203(C_word c,C_word *av) C_noret; static void C_ccall trf_22203(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22203(t0,t1);} C_noret_decl(trf_22216) static void C_ccall trf_22216(C_word c,C_word *av) C_noret; static void C_ccall trf_22216(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_22216(t0,t1,t2);} C_noret_decl(trf_22259) static void C_ccall trf_22259(C_word c,C_word *av) C_noret; static void C_ccall trf_22259(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22259(t0,t1);} C_noret_decl(trf_22377) static void C_ccall trf_22377(C_word c,C_word *av) C_noret; static void C_ccall trf_22377(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22377(t0,t1);} C_noret_decl(trf_22457) static void C_ccall trf_22457(C_word c,C_word *av) C_noret; static void C_ccall trf_22457(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22457(t0,t1);} C_noret_decl(trf_22751) static void C_ccall trf_22751(C_word c,C_word *av) C_noret; static void C_ccall trf_22751(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22751(t0,t1);} C_noret_decl(trf_22824) static void C_ccall trf_22824(C_word c,C_word *av) C_noret; static void C_ccall trf_22824(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_22824(t0,t1);} C_noret_decl(trf_23373) static void C_ccall trf_23373(C_word c,C_word *av) C_noret; static void C_ccall trf_23373(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23373(t0,t1,t2);} C_noret_decl(trf_23419) static void C_ccall trf_23419(C_word c,C_word *av) C_noret; static void C_ccall trf_23419(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_23419(t0,t1,t2,t3);} C_noret_decl(trf_23682) static void C_ccall trf_23682(C_word c,C_word *av) C_noret; static void C_ccall trf_23682(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23682(t0,t1,t2);} C_noret_decl(trf_23733) static void C_ccall trf_23733(C_word c,C_word *av) C_noret; static void C_ccall trf_23733(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23733(t0,t1,t2);} C_noret_decl(trf_23792) static void C_ccall trf_23792(C_word c,C_word *av) C_noret; static void C_ccall trf_23792(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_23792(t0,t1,t2,t3);} C_noret_decl(trf_23864) static void C_ccall trf_23864(C_word c,C_word *av) C_noret; static void C_ccall trf_23864(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_23864(t0,t1,t2,t3);} C_noret_decl(trf_23924) static void C_ccall trf_23924(C_word c,C_word *av) C_noret; static void C_ccall trf_23924(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_23924(t0,t1,t2,t3);} C_noret_decl(trf_23948) static void C_ccall trf_23948(C_word c,C_word *av) C_noret; static void C_ccall trf_23948(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_23948(t0,t1,t2,t3);} C_noret_decl(trf_23960) static void C_ccall trf_23960(C_word c,C_word *av) C_noret; static void C_ccall trf_23960(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_23960(t0,t1,t2);} C_noret_decl(trf_24037) static void C_ccall trf_24037(C_word c,C_word *av) C_noret; static void C_ccall trf_24037(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24037(t0,t1,t2);} C_noret_decl(trf_24086) static void C_ccall trf_24086(C_word c,C_word *av) C_noret; static void C_ccall trf_24086(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24086(t0,t1,t2);} C_noret_decl(trf_24102) static void C_ccall trf_24102(C_word c,C_word *av) C_noret; static void C_ccall trf_24102(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24102(t0,t1);} C_noret_decl(trf_24121) static void C_ccall trf_24121(C_word c,C_word *av) C_noret; static void C_ccall trf_24121(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24121(t0,t1);} C_noret_decl(trf_24179) static void C_ccall trf_24179(C_word c,C_word *av) C_noret; static void C_ccall trf_24179(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24179(t0,t1);} C_noret_decl(trf_24231) static void C_ccall trf_24231(C_word c,C_word *av) C_noret; static void C_ccall trf_24231(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24231(t0,t1,t2);} C_noret_decl(trf_24290) static void C_ccall trf_24290(C_word c,C_word *av) C_noret; static void C_ccall trf_24290(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24290(t0,t1,t2);} C_noret_decl(trf_24447) static void C_ccall trf_24447(C_word c,C_word *av) C_noret; static void C_ccall trf_24447(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_24447(t0,t1,t2,t3);} C_noret_decl(trf_24626) static void C_ccall trf_24626(C_word c,C_word *av) C_noret; static void C_ccall trf_24626(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24626(t0,t1,t2);} C_noret_decl(trf_24636) static void C_ccall trf_24636(C_word c,C_word *av) C_noret; static void C_ccall trf_24636(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_24636(t0,t1);} C_noret_decl(trf_24698) static void C_ccall trf_24698(C_word c,C_word *av) C_noret; static void C_ccall trf_24698(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_24698(t0,t1,t2);} C_noret_decl(trf_24837) static void C_ccall trf_24837(C_word c,C_word *av) C_noret; static void C_ccall trf_24837(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_24837(t0,t1,t2,t3);} C_noret_decl(trf_25210) static void C_ccall trf_25210(C_word c,C_word *av) C_noret; static void C_ccall trf_25210(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_25210(t0,t1,t2,t3,t4);} C_noret_decl(trf_25230) static void C_ccall trf_25230(C_word c,C_word *av) C_noret; static void C_ccall trf_25230(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_25230(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_25284) static void C_ccall trf_25284(C_word c,C_word *av) C_noret; static void C_ccall trf_25284(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25284(t0,t1);} C_noret_decl(trf_25301) static void C_ccall trf_25301(C_word c,C_word *av) C_noret; static void C_ccall trf_25301(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25301(t0,t1);} C_noret_decl(trf_25481) static void C_ccall trf_25481(C_word c,C_word *av) C_noret; static void C_ccall trf_25481(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_25481(t0,t1,t2);} C_noret_decl(trf_25496) static void C_ccall trf_25496(C_word c,C_word *av) C_noret; static void C_ccall trf_25496(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_25496(t0,t1,t2);} C_noret_decl(trf_25599) static void C_ccall trf_25599(C_word c,C_word *av) C_noret; static void C_ccall trf_25599(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_25599(t0,t1,t2);} C_noret_decl(trf_25618) static void C_ccall trf_25618(C_word c,C_word *av) C_noret; static void C_ccall trf_25618(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25618(t0,t1);} C_noret_decl(trf_25727) static void C_ccall trf_25727(C_word c,C_word *av) C_noret; static void C_ccall trf_25727(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_25727(t0,t1,t2);} C_noret_decl(trf_25764) static void C_ccall trf_25764(C_word c,C_word *av) C_noret; static void C_ccall trf_25764(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25764(t0,t1);} C_noret_decl(trf_25798) static void C_ccall trf_25798(C_word c,C_word *av) C_noret; static void C_ccall trf_25798(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_25798(t0,t1,t2);} C_noret_decl(trf_25934) static void C_ccall trf_25934(C_word c,C_word *av) C_noret; static void C_ccall trf_25934(C_word c,C_word *av){ C_word t0=av[0]; f_25934(t0);} C_noret_decl(trf_25962) static void C_ccall trf_25962(C_word c,C_word *av) C_noret; static void C_ccall trf_25962(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_25962(t0,t1);} C_noret_decl(trf_25986) static void C_ccall trf_25986(C_word c,C_word *av) C_noret; static void C_ccall trf_25986(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_25986(t0,t1,t2);} C_noret_decl(trf_26081) static void C_ccall trf_26081(C_word c,C_word *av) C_noret; static void C_ccall trf_26081(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26081(t0,t1,t2);} C_noret_decl(trf_26108) static void C_ccall trf_26108(C_word c,C_word *av) C_noret; static void C_ccall trf_26108(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26108(t0,t1);} C_noret_decl(trf_26129) static void C_ccall trf_26129(C_word c,C_word *av) C_noret; static void C_ccall trf_26129(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26129(t0,t1);} C_noret_decl(trf_26132) static void C_ccall trf_26132(C_word c,C_word *av) C_noret; static void C_ccall trf_26132(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26132(t0,t1);} C_noret_decl(trf_26152) static void C_ccall trf_26152(C_word c,C_word *av) C_noret; static void C_ccall trf_26152(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26152(t0,t1);} C_noret_decl(trf_26575) static void C_ccall trf_26575(C_word c,C_word *av) C_noret; static void C_ccall trf_26575(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_26575(t0,t1,t2,t3);} C_noret_decl(trf_26581) static void C_ccall trf_26581(C_word c,C_word *av) C_noret; static void C_ccall trf_26581(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26581(t0,t1,t2);} C_noret_decl(trf_26597) static void C_ccall trf_26597(C_word c,C_word *av) C_noret; static void C_ccall trf_26597(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_26597(t0,t1);} C_noret_decl(trf_26694) static void C_ccall trf_26694(C_word c,C_word *av) C_noret; static void C_ccall trf_26694(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26694(t0,t1,t2);} C_noret_decl(trf_26740) static void C_ccall trf_26740(C_word c,C_word *av) C_noret; static void C_ccall trf_26740(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26740(t0,t1,t2);} C_noret_decl(trf_26816) static void C_ccall trf_26816(C_word c,C_word *av) C_noret; static void C_ccall trf_26816(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26816(t0,t1,t2);} C_noret_decl(trf_26868) static void C_ccall trf_26868(C_word c,C_word *av) C_noret; static void C_ccall trf_26868(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26868(t0,t1,t2);} C_noret_decl(trf_26916) static void C_ccall trf_26916(C_word c,C_word *av) C_noret; static void C_ccall trf_26916(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26916(t0,t1,t2);} C_noret_decl(trf_26930) static void C_ccall trf_26930(C_word c,C_word *av) C_noret; static void C_ccall trf_26930(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26930(t0,t1,t2);} C_noret_decl(trf_26986) static void C_ccall trf_26986(C_word c,C_word *av) C_noret; static void C_ccall trf_26986(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_26986(t0,t1,t2);} C_noret_decl(trf_27111) static void C_ccall trf_27111(C_word c,C_word *av) C_noret; static void C_ccall trf_27111(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_27111(t0,t1,t2);} C_noret_decl(trf_27113) static void C_ccall trf_27113(C_word c,C_word *av) C_noret; static void C_ccall trf_27113(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_27113(t0,t1,t2);} C_noret_decl(trf_27134) static void C_ccall trf_27134(C_word c,C_word *av) C_noret; static void C_ccall trf_27134(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_27134(t0,t1,t2);} C_noret_decl(trf_27158) static void C_ccall trf_27158(C_word c,C_word *av) C_noret; static void C_ccall trf_27158(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_27158(t0,t1,t2,t3);} C_noret_decl(trf_27174) static void C_ccall trf_27174(C_word c,C_word *av) C_noret; static void C_ccall trf_27174(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27174(t0,t1);} C_noret_decl(trf_27212) static void C_ccall trf_27212(C_word c,C_word *av) C_noret; static void C_ccall trf_27212(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_27212(t0,t1,t2);} C_noret_decl(trf_27307) static void C_ccall trf_27307(C_word c,C_word *av) C_noret; static void C_ccall trf_27307(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_27307(t0,t1,t2);} C_noret_decl(trf_27312) static void C_ccall trf_27312(C_word c,C_word *av) C_noret; static void C_ccall trf_27312(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_27312(t0,t1);} C_noret_decl(trf_28257) static void C_ccall trf_28257(C_word c,C_word *av) C_noret; static void C_ccall trf_28257(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28257(t0,t1,t2);} C_noret_decl(trf_28321) static void C_ccall trf_28321(C_word c,C_word *av) C_noret; static void C_ccall trf_28321(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28321(t0,t1,t2);} C_noret_decl(trf_28533) static void C_ccall trf_28533(C_word c,C_word *av) C_noret; static void C_ccall trf_28533(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28533(t0,t1,t2);} C_noret_decl(trf_28577) static void C_ccall trf_28577(C_word c,C_word *av) C_noret; static void C_ccall trf_28577(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28577(t0,t1);} C_noret_decl(trf_28590) static void C_ccall trf_28590(C_word c,C_word *av) C_noret; static void C_ccall trf_28590(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28590(t0,t1,t2);} C_noret_decl(trf_28624) static void C_ccall trf_28624(C_word c,C_word *av) C_noret; static void C_ccall trf_28624(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28624(t0,t1,t2);} C_noret_decl(trf_28639) static void C_ccall trf_28639(C_word c,C_word *av) C_noret; static void C_ccall trf_28639(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28639(t0,t1);} C_noret_decl(trf_28715) static void C_ccall trf_28715(C_word c,C_word *av) C_noret; static void C_ccall trf_28715(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28715(t0,t1,t2);} C_noret_decl(trf_28815) static void C_ccall trf_28815(C_word c,C_word *av) C_noret; static void C_ccall trf_28815(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28815(t0,t1);} C_noret_decl(trf_28834) static void C_ccall trf_28834(C_word c,C_word *av) C_noret; static void C_ccall trf_28834(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_28834(t0,t1,t2);} C_noret_decl(trf_28875) static void C_ccall trf_28875(C_word c,C_word *av) C_noret; static void C_ccall trf_28875(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_28875(t0,t1,t2,t3,t4);} C_noret_decl(trf_28898) static void C_ccall trf_28898(C_word c,C_word *av) C_noret; static void C_ccall trf_28898(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_28898(t0,t1);} C_noret_decl(trf_29197) static void C_ccall trf_29197(C_word c,C_word *av) C_noret; static void C_ccall trf_29197(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29197(t0,t1,t2);} C_noret_decl(trf_29209) static void C_ccall trf_29209(C_word c,C_word *av) C_noret; static void C_ccall trf_29209(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29209(t0,t1,t2);} C_noret_decl(trf_29290) static void C_ccall trf_29290(C_word c,C_word *av) C_noret; static void C_ccall trf_29290(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_29290(t0,t1,t2,t3);} C_noret_decl(trf_29428) static void C_ccall trf_29428(C_word c,C_word *av) C_noret; static void C_ccall trf_29428(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29428(t0,t1);} C_noret_decl(trf_29468) static void C_ccall trf_29468(C_word c,C_word *av) C_noret; static void C_ccall trf_29468(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_29468(t0,t1,t2);} C_noret_decl(trf_29581) static void C_ccall trf_29581(C_word c,C_word *av) C_noret; static void C_ccall trf_29581(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_29581(t0,t1);} C_noret_decl(trf_30015) static void C_ccall trf_30015(C_word c,C_word *av) C_noret; static void C_ccall trf_30015(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30015(t0,t1);} C_noret_decl(trf_30027) static void C_ccall trf_30027(C_word c,C_word *av) C_noret; static void C_ccall trf_30027(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_30027(t0,t1,t2);} C_noret_decl(trf_30086) static void C_ccall trf_30086(C_word c,C_word *av) C_noret; static void C_ccall trf_30086(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30086(t0,t1);} C_noret_decl(trf_30100) static void C_ccall trf_30100(C_word c,C_word *av) C_noret; static void C_ccall trf_30100(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_30100(t0,t1,t2);} C_noret_decl(trf_30122) static void C_ccall trf_30122(C_word c,C_word *av) C_noret; static void C_ccall trf_30122(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_30122(t0,t1,t2);} C_noret_decl(trf_30337) static void C_ccall trf_30337(C_word c,C_word *av) C_noret; static void C_ccall trf_30337(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30337(t0,t1);} C_noret_decl(trf_30360) static void C_ccall trf_30360(C_word c,C_word *av) C_noret; static void C_ccall trf_30360(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30360(t0,t1);} C_noret_decl(trf_30516) static void C_ccall trf_30516(C_word c,C_word *av) C_noret; static void C_ccall trf_30516(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_30516(t0,t1,t2,t3);} C_noret_decl(trf_30633) static void C_ccall trf_30633(C_word c,C_word *av) C_noret; static void C_ccall trf_30633(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30633(t0,t1);} C_noret_decl(trf_30666) static void C_ccall trf_30666(C_word c,C_word *av) C_noret; static void C_ccall trf_30666(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30666(t0,t1);} C_noret_decl(trf_30669) static void C_ccall trf_30669(C_word c,C_word *av) C_noret; static void C_ccall trf_30669(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30669(t0,t1);} C_noret_decl(trf_30672) static void C_ccall trf_30672(C_word c,C_word *av) C_noret; static void C_ccall trf_30672(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30672(t0,t1);} C_noret_decl(trf_30675) static void C_ccall trf_30675(C_word c,C_word *av) C_noret; static void C_ccall trf_30675(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30675(t0,t1);} C_noret_decl(trf_30678) static void C_ccall trf_30678(C_word c,C_word *av) C_noret; static void C_ccall trf_30678(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_30678(t0,t1);} C_noret_decl(trf_30711) static void C_ccall trf_30711(C_word c,C_word *av) C_noret; static void C_ccall trf_30711(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_30711(t0,t1,t2);} C_noret_decl(trf_30747) static void C_ccall trf_30747(C_word c,C_word *av) C_noret; static void C_ccall trf_30747(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_30747(t0,t1,t2);} C_noret_decl(trf_30778) static void C_ccall trf_30778(C_word c,C_word *av) C_noret; static void C_ccall trf_30778(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_30778(t0,t1,t2);} C_noret_decl(trf_30821) static void C_ccall trf_30821(C_word c,C_word *av) C_noret; static void C_ccall trf_30821(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_30821(t0,t1,t2);} C_noret_decl(trf_31159) static void C_ccall trf_31159(C_word c,C_word *av) C_noret; static void C_ccall trf_31159(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_31159(t0,t1,t2);} C_noret_decl(trf_31178) static void C_ccall trf_31178(C_word c,C_word *av) C_noret; static void C_ccall trf_31178(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_31178(t0,t1);} C_noret_decl(trf_31331) static void C_ccall trf_31331(C_word c,C_word *av) C_noret; static void C_ccall trf_31331(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_31331(t0,t1,t2);} C_noret_decl(trf_31370) static void C_ccall trf_31370(C_word c,C_word *av) C_noret; static void C_ccall trf_31370(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_31370(t0,t1,t2);} C_noret_decl(trf_31386) static void C_ccall trf_31386(C_word c,C_word *av) C_noret; static void C_ccall trf_31386(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_31386(t0,t1,t2);} C_noret_decl(trf_31552) static void C_ccall trf_31552(C_word c,C_word *av) C_noret; static void C_ccall trf_31552(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_31552(t0,t1);} C_noret_decl(trf_32055) static void C_ccall trf_32055(C_word c,C_word *av) C_noret; static void C_ccall trf_32055(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_32055(t0,t1);} C_noret_decl(trf_32057) static void C_ccall trf_32057(C_word c,C_word *av) C_noret; static void C_ccall trf_32057(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_32057(t0,t1,t2,t3,t4);} C_noret_decl(trf_32153) static void C_ccall trf_32153(C_word c,C_word *av) C_noret; static void C_ccall trf_32153(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_32153(t0,t1);} C_noret_decl(trf_32166) static void C_ccall trf_32166(C_word c,C_word *av) C_noret; static void C_ccall trf_32166(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_32166(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_8832) static void C_ccall trf_8832(C_word c,C_word *av) C_noret; static void C_ccall trf_8832(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8832(t0,t1,t2,t3);} C_noret_decl(trf_9300) static void C_ccall trf_9300(C_word c,C_word *av) C_noret; static void C_ccall trf_9300(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9300(t0,t1,t2,t3);} C_noret_decl(trf_9337) static void C_ccall trf_9337(C_word c,C_word *av) C_noret; static void C_ccall trf_9337(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9337(t0,t1,t2);} C_noret_decl(trf_9423) static void C_ccall trf_9423(C_word c,C_word *av) C_noret; static void C_ccall trf_9423(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9423(t0,t1,t2);} C_noret_decl(trf_9456) static void C_ccall trf_9456(C_word c,C_word *av) C_noret; static void C_ccall trf_9456(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9456(t0,t1,t2);} C_noret_decl(trf_9574) static void C_ccall trf_9574(C_word c,C_word *av) C_noret; static void C_ccall trf_9574(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9574(t0,t1,t2);} C_noret_decl(trf_9609) static void C_ccall trf_9609(C_word c,C_word *av) C_noret; static void C_ccall trf_9609(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9609(t0,t1,t2);} C_noret_decl(trf_9673) static void C_ccall trf_9673(C_word c,C_word *av) C_noret; static void C_ccall trf_9673(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9673(t0,t1,t2);} C_noret_decl(trf_9738) static void C_ccall trf_9738(C_word c,C_word *av) C_noret; static void C_ccall trf_9738(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9738(t0,t1,t2);} C_noret_decl(trf_9774) static void C_ccall trf_9774(C_word c,C_word *av) C_noret; static void C_ccall trf_9774(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9774(t0,t1,t2);} C_noret_decl(trf_9803) static void C_ccall trf_9803(C_word c,C_word *av) C_noret; static void C_ccall trf_9803(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9803(t0,t1,t2,t3);} C_noret_decl(trf_9842) static void C_ccall trf_9842(C_word c,C_word *av) C_noret; static void C_ccall trf_9842(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9842(t0,t1);} C_noret_decl(trf_9850) static void C_ccall trf_9850(C_word c,C_word *av) C_noret; static void C_ccall trf_9850(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9850(t0,t1,t2);} C_noret_decl(trf_9904) static void C_ccall trf_9904(C_word c,C_word *av) C_noret; static void C_ccall trf_9904(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_9904(t0,t1,t2,t3);} C_noret_decl(trf_9982) static void C_ccall trf_9982(C_word c,C_word *av) C_noret; static void C_ccall trf_9982(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9982(t0,t1);} /* f34042 in chicken.base#emergency-exit in k8510 */ static void C_ccall f34042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f34042,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_exit_runtime(C_fix(0)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f34566 in chicken.base#exit in k8510 */ static void C_ccall f34566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f34566,2,av);} /* library.scm:721: g671 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* f36798 in k31136 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f36798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f36798,3,av);} t3=C_i_check_list_2(t2,lf[1358]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f36804 in k31224 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f36804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f36804,3,av);} t3=C_i_check_string_2(t2,lf[1360]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f36810 in k31220 in k31224 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f36810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f36810,3,av);} t3=C_i_check_string_2(t2,lf[1360]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* f_10014 in chicken.base#alist-update! in k8510 */ static void C_ccall f_10014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10014,4,av);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10020,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li186),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_10020(t7,t1,t3);} /* loop */ static void C_fcall f_10020(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_10020,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10036,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_pairp(t4))){ t6=C_slot(t4,C_fix(0)); /* library.scm:892: cmp */ t7=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_10036(2,av2);}}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10034 in loop */ static void C_ccall f_10036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10036,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[4],C_fix(1)); /* library.scm:894: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_10020(t3,((C_word*)t0)[2],t2);}} /* chicken.base#alist-update in k8510 */ static void C_ccall f_10061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +9,c,3)))){ C_save_and_reclaim((void*)f_10061,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+9); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t6=C_i_nullp(t5); t7=(C_truep(t6)?*((C_word*)lf[5]+1):C_i_car(t5)); t8=t7; t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10070,a[2]=t2,a[3]=t3,a[4]=t10,a[5]=t8,a[6]=((C_word)li189),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_10070(t12,t1,t4);} /* loop in chicken.base#alist-update in k8510 */ static void C_fcall f_10070(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_10070,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list1(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ /* library.scm:907: chicken.base#error */ t4=*((C_word*)lf[193]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=lf[261]; av2[3]=lf[262]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_slot(t2,C_fix(0)); t5=t4; t6=C_i_pairp(t5); if(C_truep(C_i_not(t6))){ /* library.scm:911: chicken.base#error */ t7=*((C_word*)lf[193]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t1; av2[2]=lf[261]; av2[3]=lf[263]; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10111,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,a[6]=t5,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t8=C_slot(t5,C_fix(0)); /* library.scm:912: cmp */ t9=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=((C_word*)t0)[2]; av2[3]=t8; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}}}}} /* k10109 in loop in chicken.base#alist-update in k8510 */ static void C_ccall f_10111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_10111,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_slot(((C_word*)t0)[4],C_fix(1)); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[6],C_fix(0)); t3=C_slot(((C_word*)t0)[6],C_fix(1)); t4=C_a_i_cons(&a,2,t2,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10133,a[2]=((C_word*)t0)[5],a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_slot(((C_word*)t0)[4],C_fix(1)); /* library.scm:916: loop */ t8=((C_word*)((C_word*)t0)[7])[1]; f_10070(t8,t6,t7);}} /* k10131 in k10109 in loop in chicken.base#alist-update in k8510 */ static void C_ccall f_10133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10133,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.base#alist-ref in k8510 */ static void C_ccall f_10165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_10165,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; t5=C_i_nullp(t4); t6=(C_truep(t5)?*((C_word*)lf[5]+1):C_i_car(t4)); t7=t6; t8=C_i_nullp(t4); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_SCHEME_FALSE:C_i_car(t9)); t12=t11; t13=C_i_nullp(t9); t14=(C_truep(t13)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10181,a[2]=t1,a[3]=t12,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t16=C_eqp(*((C_word*)lf[4]+1),t7); if(C_truep(t16)){ t17=t15; f_10181(t17,*((C_word*)lf[52]+1));} else{ t17=C_eqp(*((C_word*)lf[5]+1),t7); if(C_truep(t17)){ t18=t15; f_10181(t18,*((C_word*)lf[53]+1));} else{ t18=C_eqp(*((C_word*)lf[6]+1),t7); t19=t15; f_10181(t19,(C_truep(t18)?*((C_word*)lf[54]+1):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10206,a[2]=t7,a[3]=((C_word)li192),tmp=(C_word)a,a+=4,tmp)));}}} /* k10179 in chicken.base#alist-ref in k8510 */ static void C_fcall f_10181(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_10181,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10184,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:934: aq */ t3=t1;{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10182 in k10179 in chicken.base#alist-ref in k8510 */ static void C_ccall f_10184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10184,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_slot(t1,C_fix(1)):((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_10206 in chicken.base#alist-ref in k8510 */ static void C_ccall f_10206(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10206,4,av);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10212,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li191),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_10212(t7,t1,t3);} /* loop */ static void C_fcall f_10212(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_10212,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t3; t5=C_i_check_pair_2(t4,lf[265]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10237,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t7=C_slot(t4,C_fix(0)); /* library.scm:930: cmp */ t8=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[4]; av2[3]=t7; ((C_proc)C_fast_retrieve_proc(t8))(4,av2);}} else{ /* library.scm:933: chicken.base#error */ t3=*((C_word*)lf[193]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=lf[265]; av2[3]=lf[266]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} /* k10235 in loop */ static void C_ccall f_10237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10237,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[4],C_fix(1)); /* library.scm:932: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_10212(t3,((C_word*)t0)[2],t2);}} /* chicken.base#rassoc in k8510 */ static void C_ccall f_10277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_10277,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+5); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=C_i_check_list_2(t3,lf[268]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10284,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(t4))){ t7=t4; t8=t6; f_10284(t8,C_u_i_car(t7));} else{ t7=t6; f_10284(t7,*((C_word*)lf[5]+1));}} /* k10282 in chicken.base#rassoc in k8510 */ static void C_fcall f_10284(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_10284,2,t0,t1);} a=C_alloc(8); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10289,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word)li194),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_10289(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} /* loop in k10282 in chicken.base#rassoc in k8510 */ static void C_fcall f_10289(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_10289,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t3; t5=C_i_check_pair_2(t4,lf[268]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10308,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t7=C_slot(t4,C_fix(1)); /* library.scm:947: tst */ t8=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[4]; av2[3]=t7; ((C_proc)C_fast_retrieve_proc(t8))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10306 in loop in k10282 in chicken.base#rassoc in k8510 */ static void C_ccall f_10308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10308,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[4],C_fix(1)); /* library.scm:949: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_10289(t3,((C_word*)t0)[2],t2);}} /* chicken.fixnum#fx+ in k8510 */ static void C_ccall f_10330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10330,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_plus(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fx- in k8510 */ static void C_ccall f_10333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10333,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_difference(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fx* in k8510 */ static void C_ccall f_10336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10336,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_times(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fx= in k8510 */ static void C_ccall f_10339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10339,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fx> in k8510 */ static void C_ccall f_10345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10345,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_greaterp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fx< in k8510 */ static void C_ccall f_10348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10348,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_lessp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fx>= in k8510 */ static void C_ccall f_10351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10351,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_greater_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fx<= in k8510 */ static void C_ccall f_10354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10354,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_less_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fxmin in k8510 */ static void C_ccall f_10357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10357,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_fixnum_min(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fxmax in k8510 */ static void C_ccall f_10360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10360,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_fixnum_max(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fxneg in k8510 */ static void C_ccall f_10363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10363,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_fixnum_negate(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.fixnum#fxand in k8510 */ static void C_ccall f_10366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10366,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_and(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fxior in k8510 */ static void C_ccall f_10369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10369,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_or(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fxxor in k8510 */ static void C_ccall f_10372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10372,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_xor(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fxnot in k8510 */ static void C_ccall f_10375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10375,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_fixnum_not(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.fixnum#fxshl in k8510 */ static void C_ccall f_10378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10378,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_shift_left(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fxshr in k8510 */ static void C_ccall f_10381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10381,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_shift_right(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fxodd? in k8510 */ static void C_ccall f_10384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10384,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_fixnumoddp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.fixnum#fxeven? in k8510 */ static void C_ccall f_10387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10387,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_fixnumevenp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.fixnum#fxlen in k8510 */ static void C_ccall f_10390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10390,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_fixnum_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.fixnum#fx/ in k8510 */ static void C_ccall f_10393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10393,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_divide(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fxgcd in k8510 */ static void C_ccall f_10396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10396,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_fixnum_gcd(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fxmod in k8510 */ static void C_ccall f_10399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10399,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fixnum_modulo(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fxrem in k8510 */ static void C_ccall f_10402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10402,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_fixnum_remainder_checked(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fx+? in k8510 */ static void C_ccall f_10405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10405,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_o_fixnum_plus(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fx-? in k8510 */ static void C_ccall f_10408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10408,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_o_fixnum_difference(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fx*? in k8510 */ static void C_ccall f_10411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10411,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_o_fixnum_times(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.fixnum#fx/? in k8510 */ static void C_ccall f_10414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10414,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_o_fixnum_quotient(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#debug-mode? in k8510 */ static void C_ccall f_10417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10417,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_debug_modep(); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.base#warning in k8510 */ static void C_ccall f_10422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_10422,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; if(C_truep(*((C_word*)lf[304]+1))){{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[307]; av2[4]=t2; av2[5]=t3; C_apply(6,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* chicken.base#notice in k8510 */ static void C_ccall f_10431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_10431,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(C_truep(*((C_word*)lf[305]+1))?*((C_word*)lf[304]+1):C_SCHEME_FALSE); if(C_truep(t4)){{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[309]; av2[4]=t2; av2[5]=t3; C_apply(6,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* chicken.base#enable-warnings in k8510 */ static void C_ccall f_10443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10443,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_mutate((C_word*)lf[304]+1 /* (set! ##sys#warnings-enabled ...) */,C_u_i_car(t3)); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=*((C_word*)lf[304]+1); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=*((C_word*)lf[304]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* ##sys#setslot in k8510 */ static void C_ccall f_10458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10458,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_setslot(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#setislot in k8510 */ static void C_ccall f_10461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10461,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_i_slot(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#start-timer in k8510 */ static void C_ccall f_10469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10469,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10473,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:1048: ##sys#gc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[313]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[313]+1); av2[1]=t2; av2[2]=C_SCHEME_TRUE; tp(3,av2);}} /* k10471 in ##sys#start-timer in k8510 */ static void C_ccall f_10473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10473,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_start_timer(); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#stop-timer in k8510 */ static void C_ccall f_10475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10475,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_stop_timer,a[2]=((C_word)li237),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10479,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:1052: g1202 */ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k10477 in ##sys#stop-timer in k8510 */ static void C_ccall f_10479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10479,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10482,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:1055: ##sys#gc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[313]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[313]+1); av2[1]=t3; av2[2]=C_SCHEME_TRUE; tp(3,av2);}} /* k10480 in k10477 in ##sys#stop-timer in k8510 */ static void C_ccall f_10482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_10482,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_stop_timer,a[2]=((C_word)li238),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10493,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:1056: g1204 */ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k10491 in k10480 in k10477 in ##sys#stop-timer in k8510 */ static void C_ccall f_10493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10493,2,av);} t2=C_slot(t1,C_fix(6)); t3=C_i_setslot(((C_word*)t0)[2],C_fix(6),t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#immediate? in k8510 */ static void C_ccall f_10495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10495,3,av);} t3=C_blockp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#message in k8510 */ static void C_ccall f_10502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10502,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_message(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#byte in k8510 */ static void C_ccall f_10505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10505,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_subbyte(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#setbyte in k8510 */ static void C_ccall f_10508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10508,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_setbyte(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#halt in k8510 */ static void C_ccall f_10513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10513,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_halt(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#block-ref in k8510 */ static void C_ccall f_10517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10517,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#block-set! in k8510 */ static void C_ccall f_10522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_10522,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10526,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t6=C_blockp(t2); t7=C_i_not(t6); if(C_truep(t7)){ if(C_truep(t7)){ /* library.scm:1075: ##sys#signal-hook */ t8=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t5; av2[2]=lf[258]; av2[3]=lf[333]; av2[4]=lf[335]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} else{ t8=t5;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_10526(2,av2);}}} else{ t8=(C_truep(C_specialp(t2))?C_eqp(t3,C_fix(0)):C_SCHEME_FALSE); if(C_truep(t8)){ if(C_truep(t8)){ /* library.scm:1075: ##sys#signal-hook */ t9=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t9; av2[1]=t5; av2[2]=lf[258]; av2[3]=lf[333]; av2[4]=lf[335]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}} else{ t9=t5;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_10526(2,av2);}}} else{ if(C_truep(C_byteblockp(t2))){ /* library.scm:1075: ##sys#signal-hook */ t9=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t9; av2[1]=t5; av2[2]=lf[258]; av2[3]=lf[333]; av2[4]=lf[335]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}} else{ t9=t5;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_10526(2,av2);}}}}} /* k10524 in ##sys#block-set! in k8510 */ static void C_ccall f_10526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_10526,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10529,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_block_size(((C_word*)t0)[3]); /* library.scm:1076: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[334]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t3; av2[5]=lf[333]; tp(6,av2);}} /* k10527 in k10524 in ##sys#block-set! in k8510 */ static void C_ccall f_10529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10529,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_setslot(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.time#current-milliseconds in k8510 */ static void C_ccall f_10557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_10557,2,av);} a=C_alloc(7); t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_current_milliseconds(&a,1,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.time#current-seconds in k8510 */ static void C_ccall f_10560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_10560,2,av);} a=C_alloc(7); t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_get_current_seconds(&a,1,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.time#cpu-time in k8510 */ static void C_ccall f_10563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_10563,2,av);} a=C_alloc(11); t2=C_a_i_vector2(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE); t3=C_a_i_cpu_time(&a,1,t2); t4=C_slot(t2,C_fix(0)); t5=C_slot(t2,C_fix(1)); /* library.scm:1103: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_values(4,av2);}} /* ##sys#check-structure in k8510 */ static void C_ccall f_10580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10580,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; if(C_truep(C_i_pairp(t4))){ t5=t4; t6=C_u_i_car(t5); t7=C_i_check_structure_2(t2,t3,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t5=C_i_check_structure(t2,t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* ##sys#check-blob in k8510 */ static void C_ccall f_10591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10591,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_bytevector_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_bytevector(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-pair in k8510 */ static void C_ccall f_10603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10603,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_pair_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_pair(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-list in k8510 */ static void C_ccall f_10614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10614,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_list_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_list(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-string in k8510 */ static void C_ccall f_10625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10625,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_string_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_string(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-number in k8510 */ static void C_ccall f_10636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10636,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_number_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_number(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-fixnum in k8510 */ static void C_ccall f_10647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10647,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_fixnum_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_fixnum(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-exact in k8510 */ static void C_ccall f_10658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10658,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_exact_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_exact(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-inexact in k8510 */ static void C_ccall f_10669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10669,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_inexact_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_inexact(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-symbol in k8510 */ static void C_ccall f_10680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10680,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_symbol_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_symbol(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-keyword in k8510 */ static void C_ccall f_10691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10691,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_keyword_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_keyword(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-vector in k8510 */ static void C_ccall f_10702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10702,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_vector_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_vector(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-char in k8510 */ static void C_ccall f_10713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10713,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_char_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_char(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-boolean in k8510 */ static void C_ccall f_10724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10724,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_boolean_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_boolean(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-locative in k8510 */ static void C_ccall f_10735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10735,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_locative_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_locative(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-integer in k8510 */ static void C_ccall f_10746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,3)))){ C_save_and_reclaim((void*)f_10746,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_integerp(t2))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); /* library.scm:1186: ##sys#error-bad-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[356]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[356]+1); av2[1]=t1; av2[2]=t2; av2[3]=t5; tp(4,av2);}} else{ /* library.scm:1186: ##sys#error-bad-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[356]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[356]+1); av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; tp(4,av2);}}}} /* ##sys#check-exact-integer in k8510 */ static void C_ccall f_10763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,3)))){ C_save_and_reclaim((void*)f_10763,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_exact_integerp(t2))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); /* library.scm:1190: ##sys#error-bad-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[358]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[358]+1); av2[1]=t1; av2[2]=t2; av2[3]=t5; tp(4,av2);}} else{ /* library.scm:1190: ##sys#error-bad-exact-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[358]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[358]+1); av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; tp(4,av2);}}}} /* ##sys#check-exact-uinteger in k8510 */ static void C_ccall f_10780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,3)))){ C_save_and_reclaim((void*)f_10780,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t4=C_i_exact_integerp(t2); t5=C_i_not(t4); t6=(C_truep(t5)?t5:C_i_integer_negativep(t2)); if(C_truep(t6)){ if(C_truep(C_i_pairp(t3))){ t7=t3; t8=C_u_i_car(t7); /* library.scm:1195: ##sys#error-bad-exact-uinteger */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[360]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[360]+1); av2[1]=t1; av2[2]=t2; av2[3]=t8; tp(4,av2);}} else{ /* library.scm:1195: ##sys#error-bad-exact-uinteger */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[360]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[360]+1); av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; tp(4,av2);}}} else{ t7=C_SCHEME_UNDEFINED; t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* ##sys#check-real in k8510 */ static void C_ccall f_10804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,3)))){ C_save_and_reclaim((void*)f_10804,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_realp(t2))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); /* library.scm:1199: ##sys#error-bad-real */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[362]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[362]+1); av2[1]=t1; av2[2]=t2; av2[3]=t5; tp(4,av2);}} else{ /* library.scm:1199: ##sys#error-bad-real */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[362]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[362]+1); av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; tp(4,av2);}}}} /* ##sys#check-range in k8510 */ static void C_ccall f_10821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_10821,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+7); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10825,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=t1,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* library.scm:1202: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[102]+1); av2[1]=t6; av2[2]=t2; av2[3]=t5; tp(4,av2);}} /* k10823 in ##sys#check-range in k8510 */ static void C_ccall f_10825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_10825,2,av);} t2=C_fixnum_less_or_equal_p(((C_word*)t0)[2],((C_word*)t0)[3]); t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)t0)[3],((C_word*)t0)[4]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR); if(C_truep(C_i_pairp(((C_word*)t0)[6]))){ t5=((C_word*)t0)[6]; t6=C_u_i_car(t5); /* library.scm:1204: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[363]+1); av2[1]=((C_word*)t0)[5]; av2[2]=t4; av2[3]=t6; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[4]; tp(7,av2);}} else{ /* library.scm:1204: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[363]+1); av2[1]=((C_word*)t0)[5]; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[2]; av2[6]=((C_word*)t0)[4]; tp(7,av2);}}}} /* ##sys#check-special in k8510 */ static void C_ccall f_10851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_10851,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=(C_truep(C_blockp(t2))?C_specialp(t2):C_SCHEME_FALSE); if(C_truep(t4)){ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t3))){ t5=t3; t6=C_u_i_car(t5); /* library.scm:1210: ##sys#signal-hook */ t7=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t1; av2[2]=lf[258]; av2[3]=t6; av2[4]=lf[365]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} else{ /* library.scm:1210: ##sys#signal-hook */ t5=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=lf[258]; av2[3]=C_SCHEME_FALSE; av2[4]=lf[365]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}}} /* ##sys#check-closure in k8510 */ static void C_ccall f_10871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_10871,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_closure_2(t2,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_closure(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* scheme#force in k8510 */ static void C_ccall f_10882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_10882,3,av);} a=C_alloc(6); if(C_truep(C_i_structurep(t2,lf[216]))){ t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10894,a[2]=t4,a[3]=((C_word)li275),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_10894(t6,t1,t2,C_SCHEME_FALSE);} else{ t3=t2; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* lp in scheme#force in k8510 */ static void C_fcall f_10894(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_10894,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_slot(t2,C_fix(1)); if(C_truep(C_i_nullp(t4))){ /* library.scm:1223: ##sys#values */{ C_word av2[2]; av2[0]=0; av2[1]=t1; C_values(2,av2);}} else{ if(C_truep(C_i_pairp(t4))){{ C_word av2[3]; av2[0]=0; av2[1]=t1; av2[2]=t4; C_apply_values(3,av2);}} else{ if(C_truep(C_i_closurep(t4))){ t5=(C_truep(t3)?C_i_setslot(t3,C_fix(1),t2):C_SCHEME_UNDEFINED); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10928,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* library.scm:1227: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t6; av2[2]=t4; av2[3]=*((C_word*)lf[368]+1); C_call_with_values(4,av2);}} else{ if(C_truep(C_i_structurep(t4,lf[216]))){ /* library.scm:1239: lp */ t8=t1; t9=t4; t10=t3; t1=t8; t2=t9; t3=t10; goto loop;} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}}} /* k10926 in lp in scheme#force in k8510 */ static void C_ccall f_10928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_10928,2,av);} a=C_alloc(6); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=C_i_closurep(t3); if(C_truep(C_i_not(t4))){ /* library.scm:1229: lp */ t5=((C_word*)((C_word*)t0)[3])[1]; f_10894(t5,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]);} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10943,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t6=C_i_nullp(t2); if(C_truep(C_i_not(t6))){ t7=C_i_cdr(t2); if(C_truep(C_i_nullp(t7))){ t8=C_slot(t2,C_fix(0)); t9=t5; f_10943(t9,C_i_structurep(t8,lf[216]));} else{ t8=t5; f_10943(t8,C_SCHEME_FALSE);}} else{ t7=t5; f_10943(t7,C_SCHEME_FALSE);}}} /* k10941 in k10926 in lp in scheme#force in k8510 */ static void C_fcall f_10943(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_10943,2,t0,t1);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(0)); t3=C_slot(t2,C_fix(1)); t4=C_i_setslot(((C_word*)t0)[3],C_fix(1),t3); /* library.scm:1234: lp */ t5=((C_word*)((C_word*)t0)[4])[1]; f_10894(t5,((C_word*)t0)[5],((C_word*)t0)[3],t2);} else{ t2=C_i_setslot(((C_word*)t0)[3],C_fix(1),((C_word*)t0)[2]);{ C_word av2[3]; av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}}} /* ##sys#error-not-a-proper-list in k8510 */ static void C_ccall f_11010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_11010,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t3))){ t4=C_fix((C_word)C_NOT_A_PROPER_LIST_ERROR); /* library.scm:1249: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; tp(5,av2);}} else{ t4=C_i_car(t3); t5=C_fix((C_word)C_NOT_A_PROPER_LIST_ERROR); /* library.scm:1249: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t5; av2[3]=t4; av2[4]=t2; tp(5,av2);}}} /* ##sys#error-bad-number in k8510 */ static void C_ccall f_11026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_11026,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t3))){ t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR); /* library.scm:1253: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; tp(5,av2);}} else{ t4=C_i_car(t3); t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR); /* library.scm:1253: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t5; av2[3]=t4; av2[4]=t2; tp(5,av2);}}} /* ##sys#error-bad-integer in k8510 */ static void C_ccall f_11042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_11042,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t3))){ t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR); /* library.scm:1257: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; tp(5,av2);}} else{ t4=C_i_car(t3); t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR); /* library.scm:1257: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t5; av2[3]=t4; av2[4]=t2; tp(5,av2);}}} /* ##sys#error-bad-exact-integer in k8510 */ static void C_ccall f_11058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_11058,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t3))){ t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR); /* library.scm:1261: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; tp(5,av2);}} else{ t4=C_i_car(t3); t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR); /* library.scm:1261: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t5; av2[3]=t4; av2[4]=t2; tp(5,av2);}}} /* ##sys#error-bad-exact-uinteger in k8510 */ static void C_ccall f_11074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_11074,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t3))){ t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR); /* library.scm:1265: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; tp(5,av2);}} else{ t4=C_i_car(t3); t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR); /* library.scm:1265: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t5; av2[3]=t4; av2[4]=t2; tp(5,av2);}}} /* ##sys#error-bad-inexact in k8510 */ static void C_ccall f_11090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_11090,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t3))){ t4=C_fix((C_word)C_CANT_REPRESENT_INEXACT_ERROR); /* library.scm:1269: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; tp(5,av2);}} else{ t4=C_i_car(t3); t5=C_fix((C_word)C_CANT_REPRESENT_INEXACT_ERROR); /* library.scm:1269: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t5; av2[3]=t4; av2[4]=t2; tp(5,av2);}}} /* ##sys#error-bad-real in k8510 */ static void C_ccall f_11106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_11106,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t3))){ t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR); /* library.scm:1273: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; tp(5,av2);}} else{ t4=C_i_car(t3); t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR); /* library.scm:1273: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t5; av2[3]=t4; av2[4]=t2; tp(5,av2);}}} /* ##sys#error-bad-base in k8510 */ static void C_ccall f_11122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_11122,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t3))){ t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR); /* library.scm:1277: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; tp(5,av2);}} else{ t4=C_i_car(t3); t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR); /* library.scm:1277: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t1; av2[2]=t5; av2[3]=t4; av2[4]=t2; tp(5,av2);}}} /* scheme#append in k8510 */ static void C_ccall f_11138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_11138,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t3)){ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11150,a[2]=t5,a[3]=((C_word)li288),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_11150(t7,t1,t2);}} /* loop in scheme#append in k8510 */ static void C_fcall f_11150(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_11150,3,t0,t1,t2);} a=C_alloc(8); t3=C_slot(t2,C_fix(1)); t4=C_eqp(t3,C_SCHEME_END_OF_LIST); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_slot(t2,C_fix(0)); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_slot(t2,C_fix(0)); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11169,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=((C_word)li287),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_11169(t9,t1,t5);}} /* copy in loop in scheme#append in k8510 */ static void C_fcall f_11169(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_11169,3,t0,t1,t2);} a=C_alloc(4); t3=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t3)){ t4=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:1288: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_11150(t5,t1,t4);} else{ if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11200,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_slot(t2,C_fix(1)); /* library.scm:1290: copy */ t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t4=C_slot(((C_word*)t0)[2],C_fix(0)); /* library.scm:1292: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[47]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[47]+1); av2[1]=t1; av2[2]=t4; av2[3]=lf[375]; tp(4,av2);}}}} /* k11198 in copy in loop in scheme#append in k8510 */ static void C_ccall f_11200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11200,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#fast-reverse in k8510 */ static void C_ccall f_11217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_11217,3,av);} a=C_alloc(6); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11223,a[2]=t4,a[3]=((C_word)li290),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_11223(t6,t1,t2,C_SCHEME_END_OF_LIST);} /* loop in ##sys#fast-reverse in k8510 */ static void C_fcall f_11223(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_11223,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t4=C_slot(t2,C_fix(1)); t5=C_slot(t2,C_fix(0)); t6=C_a_i_cons(&a,2,t5,t3); /* library.scm:1298: loop */ t8=t1; t9=t4; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#make-string in k8510 */ static void C_ccall f_11247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_11247,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_nullp(t3))){ t4=t1; t5=t2; /* library.scm:1305: ##sys#allocate-vector */ t6=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=C_SCHEME_TRUE; av2[4]=C_make_character(32); av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t4=C_i_car(t3); t5=t1; t6=t2; /* library.scm:1305: ##sys#allocate-vector */ t7=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=C_SCHEME_TRUE; av2[4]=t4; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}} /* scheme#make-string in k8510 */ static void C_ccall f_11267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_11267,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11271,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:1312: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[379]; tp(4,av2);}} /* k11269 in scheme#make-string in k8510 */ static void C_ccall f_11271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_11271,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11274,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnum_lessp(((C_word*)t0)[4],C_fix(0)))){ /* library.scm:1314: ##sys#signal-hook */ t3=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[380]; av2[3]=lf[379]; av2[4]=lf[381]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_11274(2,av2);}}} /* k11272 in k11269 in scheme#make-string in k8510 */ static void C_ccall f_11274(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_11274,2,av);} if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[4]; /* library.scm:1305: ##sys#allocate-vector */ t4=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_TRUE; av2[4]=C_make_character(32); av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t2=C_i_car(((C_word*)t0)[2]); t3=C_i_check_char_2(t2,lf[379]); t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; /* library.scm:1305: ##sys#allocate-vector */ t6=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=C_SCHEME_TRUE; av2[4]=t2; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}} /* scheme#string->list in k8510 */ static void C_ccall f_11303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_11303,3,av);} a=C_alloc(7); t3=C_i_check_string_2(t2,lf[383]); t4=C_block_size(t2); t5=C_fixnum_difference(t4,C_fix(1)); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11319,a[2]=t2,a[3]=t7,a[4]=((C_word)li294),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_11319(t9,t1,t5,C_SCHEME_END_OF_LIST);} /* loop in scheme#string->list in k8510 */ static void C_fcall f_11319(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_11319,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_fixnum_difference(t2,C_fix(1)); t5=C_subchar(((C_word*)t0)[2],t2); t6=C_a_i_cons(&a,2,t5,t3); /* library.scm:1330: loop */ t8=t1; t9=t4; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}} /* scheme#list->string in k8510 */ static void C_ccall f_11341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11341,3,av);} a=C_alloc(5); t3=C_i_listp(t2); if(C_truep(C_i_not(t3))){ /* library.scm:1338: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[47]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[47]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[386]; tp(4,av2);}} else{ t4=C_i_length(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11357,a[2]=t5,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:1340: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t6; av2[2]=t5; tp(3,av2);}}} /* k11355 in scheme#list->string in k8510 */ static void C_ccall f_11357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11357,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11362,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li296),tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=( f_11362(t3,C_fix(0),((C_word*)t0)[4]) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop1522 in k11355 in scheme#list->string in k8510 */ static C_word C_fcall f_11362(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t3=C_slot(t2,C_fix(0)); t4=C_i_check_char_2(t3,lf[386]); t5=C_setsubchar(((C_word*)t0)[3],t1,t3); t6=C_fixnum_plus(t1,C_fix(1)); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;}} /* ##sys#reverse-list->string in k8510 */ static void C_ccall f_11393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11393,3,av);} a=C_alloc(5); if(C_truep(C_i_listp(t2))){ t3=t2; t4=C_u_i_length(t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11404,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:1355: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t5; av2[2]=t4; tp(3,av2);}} else{ /* library.scm:1363: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[47]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[47]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[389]; tp(4,av2);}}} /* k11402 in ##sys#reverse-list->string in k8510 */ static void C_ccall f_11404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11404,2,av);} a=C_alloc(4); t2=t1; t3=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11413,a[2]=t2,a[3]=((C_word)li298),tmp=(C_word)a,a+=4,tmp); t5=( f_11413(t4,((C_word*)t0)[3],t3) ); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* iter in k11402 in ##sys#reverse-list->string in k8510 */ static C_word C_fcall f_11413(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t2,C_fix(0)))){ t3=C_slot(t1,C_fix(0)); t4=C_i_check_char_2(t3,lf[389]); t5=C_setsubchar(((C_word*)t0)[2],t2,t3); t6=C_slot(t1,C_fix(1)); t7=C_fixnum_difference(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* scheme#string-fill! in k8510 */ static void C_ccall f_11442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11442,4,av);} t4=C_i_check_string_2(t2,lf[391]); t5=C_i_check_char_2(t3,lf[391]); t6=C_block_size(t2); t7=C_set_memory(t2,t3,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* scheme#string-copy in k8510 */ static void C_ccall f_11455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_11455,3,av);} a=C_alloc(5); t3=C_i_check_string_2(t2,lf[393]); t4=C_block_size(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11465,a[2]=t2,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:1376: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t6; av2[2]=t5; tp(3,av2);}} /* k11463 in scheme#string-copy in k8510 */ static void C_ccall f_11465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11465,2,av);} t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#substring in k8510 */ static void C_ccall f_11467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_11467,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=C_i_check_string_2(t2,lf[395]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11474,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* library.scm:1383: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[102]+1); av2[1]=t6; av2[2]=t3; av2[3]=lf[395]; tp(4,av2);}} /* k11472 in scheme#substring in k8510 */ static void C_ccall f_11474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_11474,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11477,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=((C_word*)t0)[5]; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11512,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:1386: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[395]; tp(4,av2);}} else{ t3=t2; f_11477(t3,C_block_size(((C_word*)t0)[2]));}} /* k11475 in k11472 in scheme#substring in k8510 */ static void C_fcall f_11477(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_11477,2,t0,t1);} a=C_alloc(6); t2=t1; t3=C_block_size(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11486,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[4],t2))){ t5=C_fixnum_greater_or_equal_p(((C_word*)t0)[4],C_fix(0)); t6=t4; f_11486(t6,(C_truep(t5)?C_fixnum_less_or_equal_p(t2,t3):C_SCHEME_FALSE));} else{ t5=t4; f_11486(t5,C_SCHEME_FALSE);}} /* k11484 in k11475 in k11472 in scheme#substring in k8510 */ static void C_fcall f_11486(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_11486,2,t0,t1);} if(C_truep(t1)){ /* library.scm:1393: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[396]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; tp(5,av2);}} else{ t2=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* library.scm:1394: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word av2[6]; av2[0]=*((C_word*)lf[363]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=lf[395]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; tp(6,av2);}}} /* k11510 in k11472 in scheme#substring in k8510 */ static void C_ccall f_11512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11512,2,av);} t2=((C_word*)t0)[2]; f_11477(t2,((C_word*)t0)[3]);} /* ##sys#substring in k8510 */ static void C_ccall f_11517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_11517,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11521,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t6=C_fixnum_difference(t4,t3); /* library.scm:1399: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t5; av2[2]=t6; tp(3,av2);}} /* k11519 in ##sys#substring in k8510 */ static void C_ccall f_11521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11521,2,av);} t2=C_substring_copy(((C_word*)t0)[2],t1,((C_word*)t0)[3],((C_word*)t0)[4],C_fix(0)); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* compare1575 in k8510 */ static void C_ccall f_11526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11526,6,av);} t6=C_i_check_string_2(t2,t4); t7=C_i_check_string_2(t3,t4); t8=C_block_size(t2); t9=C_block_size(t3); if(C_truep(C_fixnum_lessp(t8,t9))){ t10=C_string_compare(t2,t3,t8); /* library.scm:1409: k */ t11=t5;{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)C_fast_retrieve_proc(t11))(5,av2);}} else{ t10=C_string_compare(t2,t3,t9); /* library.scm:1409: k */ t11=t5;{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)C_fast_retrieve_proc(t11))(5,av2);}}} /* scheme#string<? in k8510 */ static void C_ccall f_11547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_11547,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11553,a[2]=((C_word)li305),tmp=(C_word)a,a+=3,tmp); /* library.scm:1417: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[398]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* a11552 in scheme#string<? in k8510 */ static void C_ccall f_11553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11553,5,av);} t5=C_fixnum_lessp(t4,C_fix(0)); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_fixnum_lessp(t2,t3); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=(C_truep(t6)?C_eqp(t4,C_fix(0)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* scheme#string>? in k8510 */ static void C_ccall f_11571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_11571,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11577,a[2]=((C_word)li307),tmp=(C_word)a,a+=3,tmp); /* library.scm:1424: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[400]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* a11576 in scheme#string>? in k8510 */ static void C_ccall f_11577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11577,5,av);} t5=C_fixnum_greaterp(t4,C_fix(0)); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_fixnum_lessp(t3,t2); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=(C_truep(t6)?C_eqp(t4,C_fix(0)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* scheme#string<=? in k8510 */ static void C_ccall f_11595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_11595,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11601,a[2]=((C_word)li309),tmp=(C_word)a,a+=3,tmp); /* library.scm:1431: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[402]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* a11600 in scheme#string<=? in k8510 */ static void C_ccall f_11601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11601,5,av);} t5=C_eqp(t4,C_fix(0)); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=(C_truep(t5)?C_fixnum_less_or_equal_p(t2,t3):C_fixnum_lessp(t4,C_fix(0))); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* scheme#string>=? in k8510 */ static void C_ccall f_11616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_11616,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11622,a[2]=((C_word)li311),tmp=(C_word)a,a+=3,tmp); /* library.scm:1438: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[404]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* a11621 in scheme#string>=? in k8510 */ static void C_ccall f_11622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11622,5,av);} t5=C_eqp(t4,C_fix(0)); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=(C_truep(t5)?C_fixnum_greater_or_equal_p(t2,t3):C_fixnum_greaterp(t4,C_fix(0))); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* compare1618 in k8510 */ static void C_ccall f_11636(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11636,6,av);} t6=C_i_check_string_2(t2,t4); t7=C_i_check_string_2(t3,t4); t8=C_block_size(t2); t9=C_block_size(t3); if(C_truep(C_fixnum_lessp(t8,t9))){ t10=C_string_compare_case_insensitive(t2,t3,t8); /* library.scm:1451: k */ t11=t5;{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)C_fast_retrieve_proc(t11))(5,av2);}} else{ t10=C_string_compare_case_insensitive(t2,t3,t9); /* library.scm:1451: k */ t11=t5;{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t8; av2[3]=t9; av2[4]=t10; ((C_proc)C_fast_retrieve_proc(t11))(5,av2);}}} /* scheme#string-ci<? in k8510 */ static void C_ccall f_11657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_11657,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11663,a[2]=((C_word)li314),tmp=(C_word)a,a+=3,tmp); /* library.scm:1459: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[406]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* a11662 in scheme#string-ci<? in k8510 */ static void C_ccall f_11663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11663,5,av);} t5=C_fixnum_lessp(t4,C_fix(0)); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_fixnum_lessp(t2,t3); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=(C_truep(t6)?C_eqp(t4,C_fix(0)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* scheme#string-ci>? in k8510 */ static void C_ccall f_11681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_11681,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11687,a[2]=((C_word)li316),tmp=(C_word)a,a+=3,tmp); /* library.scm:1466: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[408]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* a11686 in scheme#string-ci>? in k8510 */ static void C_ccall f_11687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11687,5,av);} t5=C_fixnum_greaterp(t4,C_fix(0)); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_fixnum_lessp(t3,t2); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=(C_truep(t6)?C_eqp(t4,C_fix(0)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* scheme#string-ci<=? in k8510 */ static void C_ccall f_11705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_11705,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11711,a[2]=((C_word)li318),tmp=(C_word)a,a+=3,tmp); /* library.scm:1473: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[410]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* a11710 in scheme#string-ci<=? in k8510 */ static void C_ccall f_11711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11711,5,av);} t5=C_eqp(t4,C_fix(0)); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=(C_truep(t5)?C_fixnum_less_or_equal_p(t2,t3):C_fixnum_lessp(t4,C_fix(0))); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* scheme#string-ci>=? in k8510 */ static void C_ccall f_11726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_11726,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11732,a[2]=((C_word)li320),tmp=(C_word)a,a+=3,tmp); /* library.scm:1480: compare */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=lf[412]; av2[5]=t4; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* a11731 in scheme#string-ci>=? in k8510 */ static void C_ccall f_11732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11732,5,av);} t5=C_eqp(t4,C_fix(0)); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=(C_truep(t5)?C_fixnum_greater_or_equal_p(t2,t3):C_fixnum_greaterp(t4,C_fix(0))); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* ##sys#string-append in k8510 */ static void C_ccall f_11747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_11747,4,av);} a=C_alloc(7); t4=C_block_size(t2); t5=t4; t6=C_block_size(t3); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11757,a[2]=t2,a[3]=t5,a[4]=t3,a[5]=t7,a[6]=t1,tmp=(C_word)a,a+=7,tmp); t9=C_fixnum_plus(t5,t7); /* library.scm:1490: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t8; av2[2]=t9; tp(3,av2);}} /* k11755 in ##sys#string-append in k8510 */ static void C_ccall f_11757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11757,2,av);} t2=C_substring_copy(((C_word*)t0)[2],t1,C_fix(0),((C_word*)t0)[3],C_fix(0)); t3=C_substring_copy(((C_word*)t0)[4],t1,C_fix(0),((C_word*)t0)[5],((C_word*)t0)[3]); t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#string-append in k8510 */ static void C_ccall f_11763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +13,c,4)))){ C_save_and_reclaim((void*)f_11763,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+13); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11767,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11769,a[2]=t4,a[3]=t7,a[4]=((C_word)li323),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_11769(t9,t5,t2,C_fix(0));} /* k11765 in scheme#string-append in k8510 */ static void C_ccall f_11767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11767,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in scheme#string-append in k8510 */ static void C_fcall f_11769(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_11769,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11780,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:1500: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[377]+1); av2[1]=t5; av2[2]=t3; tp(3,av2);}} else{ t5=C_slot(t2,C_fix(0)); t6=t5; t7=C_i_check_string_2(t6,lf[415]); t8=C_block_size(t6); t9=t8; t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11792,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t9,a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp); t11=C_slot(t2,C_fix(1)); t12=C_fixnum_plus(t3,t9); /* library.scm:1504: loop */ t14=t10; t15=t11; t16=t12; t1=t14; t2=t15; t3=t16; goto loop;}} /* k11778 in loop in scheme#string-append in k8510 */ static void C_ccall f_11780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11780,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k11790 in loop in scheme#string-append in k8510 */ static void C_ccall f_11792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_11792,2,av);} t2=C_substring_copy(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],C_fix(0),((C_word*)t0)[4],((C_word*)t0)[5]); t3=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#string in k8510 */ static void C_ccall f_11802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_11802,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* ##sys#list->string */ t3=*((C_word*)lf[387]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* ##sys#fragments->string in k8510 */ static void C_ccall f_11808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_11808,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11812,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:1513: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}} /* k11810 in ##sys#fragments->string in k8510 */ static void C_ccall f_11812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11812,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11817,a[2]=t2,a[3]=((C_word)li326),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=( f_11817(t3,((C_word*)t0)[3],C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in k11810 in ##sys#fragments->string in k8510 */ static C_word C_fcall f_11817(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t1))){ return(((C_word*)t0)[2]);} else{ t3=C_slot(t1,C_fix(0)); t4=C_block_size(t3); t5=C_substring_copy(t3,((C_word*)t0)[2],C_fix(0),t4,t2); t6=C_slot(t1,C_fix(1)); t7=C_fixnum_plus(t2,t4); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;}} /* chicken.base#chop in k8510 */ static void C_ccall f_11843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_11843,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11847,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:1524: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[102]+1); av2[1]=t4; av2[2]=t3; av2[3]=lf[419]; tp(4,av2);}} /* k11845 in chicken.base#chop in k8510 */ static void C_ccall f_11847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_11847,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11850,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[3],C_fix(0)))){ /* library.scm:1525: ##sys#error */ t3=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[419]; av2[3]=lf[420]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_11850(2,av2);}}} /* k11848 in k11845 in chicken.base#chop in k8510 */ static void C_ccall f_11850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_11850,2,av);} a=C_alloc(7); t2=C_i_length(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11858,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word)li329),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_11858(t6,((C_word*)t0)[4],((C_word*)t0)[2],t2);} /* loop in k11848 in k11845 in chicken.base#chop in k8510 */ static void C_fcall f_11858(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_11858,4,t0,t1,t2,t3);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_fixnum_lessp(t3,((C_word*)t0)[2]))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_a_i_list1(&a,1,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11879,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t5,a[6]=((C_word)li328),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_11879(t7,t1,C_SCHEME_END_OF_LIST,t2,((C_word*)t0)[2]);}}} /* doloop1703 in loop in k11848 in k11845 in chicken.base#chop in k8510 */ static void C_fcall f_11879(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_11879,5,t0,t1,t2,t3,t4);} a=C_alloc(7); t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11893,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* library.scm:1535: scheme#reverse */ t7=*((C_word*)lf[46]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t6=C_slot(t3,C_fix(0)); t7=C_a_i_cons(&a,2,t6,t2); t8=C_slot(t3,C_fix(1)); t9=C_fixnum_difference(t4,C_fix(1)); t11=t1; t12=t7; t13=t8; t14=t9; t1=t11; t2=t12; t3=t13; t4=t14; goto loop;}} /* k11891 in doloop1703 in loop in k11848 in k11845 in chicken.base#chop in k8510 */ static void C_ccall f_11893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_11893,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11897,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); /* library.scm:1535: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_11858(t5,t3,((C_word*)t0)[6],t4);} /* k11895 in k11891 in doloop1703 in loop in k11848 in k11845 in chicken.base#chop in k8510 */ static void C_ccall f_11897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_11897,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fp+ in k8510 */ static void C_ccall f_11938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_11938,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11960,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_flonum(&a,C_ub_i_flonum_plus(C_flonum_magnitude(t2),C_flonum_magnitude(t3))); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[433]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k11958 in chicken.flonum#fp+ in k8510 */ static void C_ccall f_11960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_11960,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_ub_i_flonum_plus(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fp- in k8510 */ static void C_ccall f_11962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_11962,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11984,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_flonum(&a,C_ub_i_flonum_difference(C_flonum_magnitude(t2),C_flonum_magnitude(t3))); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[435]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k11982 in chicken.flonum#fp- in k8510 */ static void C_ccall f_11984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_11984,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_ub_i_flonum_difference(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fp* in k8510 */ static void C_ccall f_11986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_11986,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12008,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_flonum(&a,C_ub_i_flonum_times(C_flonum_magnitude(t2),C_flonum_magnitude(t3))); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[437]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12006 in chicken.flonum#fp* in k8510 */ static void C_ccall f_12008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12008,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_ub_i_flonum_times(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fp/ in k8510 */ static void C_ccall f_12010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_12010,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12032,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_flonum(&a,C_ub_i_flonum_quotient(C_flonum_magnitude(t2),C_flonum_magnitude(t3))); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[439]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12030 in chicken.flonum#fp/ in k8510 */ static void C_ccall f_12032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12032,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_ub_i_flonum_quotient(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpgcd in k8510 */ static void C_ccall f_12034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_12034,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12056,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_a_i_flonum_gcd(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[441]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12054 in chicken.flonum#fpgcd in k8510 */ static void C_ccall f_12056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12056,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_flonum_gcd(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fp/? in k8510 */ static void C_ccall f_12058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_12058,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12080,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_a_i_flonum_quotient_checked(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[443]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12078 in chicken.flonum#fp/? in k8510 */ static void C_ccall f_12080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12080,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_flonum_quotient_checked(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fp= in k8510 */ static void C_ccall f_12082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_12082,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12104,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_ub_i_flonum_equalp(C_flonum_magnitude(t2),C_flonum_magnitude(t3)); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[445]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12102 in chicken.flonum#fp= in k8510 */ static void C_ccall f_12104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12104,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_ub_i_flonum_equalp(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fp> in k8510 */ static void C_ccall f_12106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_12106,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12128,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_ub_i_flonum_greaterp(C_flonum_magnitude(t2),C_flonum_magnitude(t3)); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[447]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12126 in chicken.flonum#fp> in k8510 */ static void C_ccall f_12128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12128,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_ub_i_flonum_greaterp(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fp< in k8510 */ static void C_ccall f_12130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_12130,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12152,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_ub_i_flonum_lessp(C_flonum_magnitude(t2),C_flonum_magnitude(t3)); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[449]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12150 in chicken.flonum#fp< in k8510 */ static void C_ccall f_12152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12152,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_ub_i_flonum_lessp(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fp>= in k8510 */ static void C_ccall f_12154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_12154,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12176,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_ub_i_flonum_greater_or_equal_p(C_flonum_magnitude(t2),C_flonum_magnitude(t3)); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[451]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12174 in chicken.flonum#fp>= in k8510 */ static void C_ccall f_12176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12176,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_ub_i_flonum_greater_or_equal_p(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fp<= in k8510 */ static void C_ccall f_12178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_12178,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12200,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(t2),C_flonum_magnitude(t3)); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[453]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12198 in chicken.flonum#fp<= in k8510 */ static void C_ccall f_12200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12200,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpneg in k8510 */ static void C_ccall f_12202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12202,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12218,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_flonum_negate(&a,1,t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[455]; av2[4]=t4; tp(5,av2);}}} /* k12216 in chicken.flonum#fpneg in k8510 */ static void C_ccall f_12218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12218,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_flonum_negate(&a,1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpmax in k8510 */ static void C_ccall f_12220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_12220,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12242,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_i_flonum_max(t2,t3); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[457]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12240 in chicken.flonum#fpmax in k8510 */ static void C_ccall f_12242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12242,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_flonum_max(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpmin in k8510 */ static void C_ccall f_12244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_12244,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12266,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_i_flonum_min(t2,t3); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[459]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12264 in chicken.flonum#fpmin in k8510 */ static void C_ccall f_12266(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12266,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_flonum_min(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpfloor in k8510 */ static void C_ccall f_12268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12268,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12284,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_floor(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[461]; av2[4]=t4; tp(5,av2);}}} /* k12282 in chicken.flonum#fpfloor in k8510 */ static void C_ccall f_12284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12284,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_floor(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fptruncate in k8510 */ static void C_ccall f_12286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12286,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12302,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_trunc(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[463]; av2[4]=t4; tp(5,av2);}}} /* k12300 in chicken.flonum#fptruncate in k8510 */ static void C_ccall f_12302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12302,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_trunc(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpround in k8510 */ static void C_ccall f_12304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12304,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12320,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_round(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[465]; av2[4]=t4; tp(5,av2);}}} /* k12318 in chicken.flonum#fpround in k8510 */ static void C_ccall f_12320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12320,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_round(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpceiling in k8510 */ static void C_ccall f_12322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12322,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12338,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_ceil(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[467]; av2[4]=t4; tp(5,av2);}}} /* k12336 in chicken.flonum#fpceiling in k8510 */ static void C_ccall f_12338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12338,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_ceil(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpsin in k8510 */ static void C_ccall f_12340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12340,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12356,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_sin(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[469]; av2[4]=t4; tp(5,av2);}}} /* k12354 in chicken.flonum#fpsin in k8510 */ static void C_ccall f_12356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12356,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_sin(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpcos in k8510 */ static void C_ccall f_12358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12358,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12374,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_cos(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[471]; av2[4]=t4; tp(5,av2);}}} /* k12372 in chicken.flonum#fpcos in k8510 */ static void C_ccall f_12374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12374,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_cos(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fptan in k8510 */ static void C_ccall f_12376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12376,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12392,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_tan(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[473]; av2[4]=t4; tp(5,av2);}}} /* k12390 in chicken.flonum#fptan in k8510 */ static void C_ccall f_12392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12392,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_tan(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpasin in k8510 */ static void C_ccall f_12394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12394,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12410,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_asin(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[475]; av2[4]=t4; tp(5,av2);}}} /* k12408 in chicken.flonum#fpasin in k8510 */ static void C_ccall f_12410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12410,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_asin(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpacos in k8510 */ static void C_ccall f_12412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12412,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12428,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_acos(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[477]; av2[4]=t4; tp(5,av2);}}} /* k12426 in chicken.flonum#fpacos in k8510 */ static void C_ccall f_12428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12428,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_acos(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpatan in k8510 */ static void C_ccall f_12430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12430,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12446,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_atan(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[479]; av2[4]=t4; tp(5,av2);}}} /* k12444 in chicken.flonum#fpatan in k8510 */ static void C_ccall f_12446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12446,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_atan(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpatan2 in k8510 */ static void C_ccall f_12448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_12448,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12470,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_flonum(&a,C_atan2(C_flonum_magnitude(t2),C_flonum_magnitude(t3))); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[481]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12468 in chicken.flonum#fpatan2 in k8510 */ static void C_ccall f_12470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12470,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_atan2(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpexp in k8510 */ static void C_ccall f_12472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12472,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12488,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_exp(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[483]; av2[4]=t4; tp(5,av2);}}} /* k12486 in chicken.flonum#fpexp in k8510 */ static void C_ccall f_12488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12488,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_exp(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpexpt in k8510 */ static void C_ccall f_12490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_12490,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12512,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=t3; t7=C_i_flonump(t5); t8=(C_truep(t7)?C_i_flonump(t6):C_SCHEME_FALSE); if(C_truep(t8)){ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_a_i_flonum_expt(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1566: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t9; av2[3]=lf[485]; av2[4]=t5; av2[5]=t6; tp(6,av2);}}} /* k12510 in chicken.flonum#fpexpt in k8510 */ static void C_ccall f_12512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12512,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_flonum_expt(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fplog in k8510 */ static void C_ccall f_12514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12514,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12530,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_log(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[487]; av2[4]=t4; tp(5,av2);}}} /* k12528 in chicken.flonum#fplog in k8510 */ static void C_ccall f_12530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12530,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_log(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpsqrt in k8510 */ static void C_ccall f_12532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12532,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12548,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_sqrt(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[489]; av2[4]=t4; tp(5,av2);}}} /* k12546 in chicken.flonum#fpsqrt in k8510 */ static void C_ccall f_12548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12548,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_sqrt(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpabs in k8510 */ static void C_ccall f_12550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_12550,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12566,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_flonum(&a,C_fabs(C_flonum_magnitude(t2))); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[491]; av2[4]=t4; tp(5,av2);}}} /* k12564 in chicken.flonum#fpabs in k8510 */ static void C_ccall f_12566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_12566,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_flonum(&a,C_fabs(C_flonum_magnitude(((C_word*)t0)[3]))); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#fpinteger? in k8510 */ static void C_ccall f_12568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_12568,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12584,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; if(C_truep(C_i_flonump(t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_u_i_fpintegerp(t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); /* library.scm:1562: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t3; av2[2]=t5; av2[3]=lf[493]; av2[4]=t4; tp(5,av2);}}} /* k12582 in chicken.flonum#fpinteger? in k8510 */ static void C_ccall f_12584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12584,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_u_i_fpintegerp(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.flonum#flonum-print-precision in k8510 */ static void C_ccall f_12586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_12586,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=t4; t6=C_get_print_precision(); if(C_truep(t5)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12596,a[2]=t5,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* library.scm:1695: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t7; av2[2]=t5; av2[3]=lf[495]; tp(4,av2);}} else{ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k12594 in chicken.flonum#flonum-print-precision in k8510 */ static void C_ccall f_12596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_12596,2,av);} t2=C_set_print_precision(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* make-complex in k8510 */ static void C_fcall f_12608(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_12608,3,t1,t2,t3);} a=C_alloc(5); t4=C_eqp(t3,C_fix(0)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12618,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=t4; f_12618(2,av2);}} else{ if(C_truep(C_i_flonump(t3))){ /* library.scm:1715: chicken.flonum#fp= */ t6=*((C_word*)lf[444]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=t3; av2[3]=lf[501]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_12618(2,av2);}}}} /* k12616 in make-complex in k8510 */ static void C_ccall f_12618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_12618,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12622,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_inexactp(((C_word*)t0)[4]))){ /* library.scm:1718: scheme#exact->inexact */ t3=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; f_12622(2,av2);}}}} /* k12620 in k12616 in make-complex in k8510 */ static void C_ccall f_12622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,1)))){ C_save_and_reclaim((void *)f_12622,2,av);} a=C_alloc(14); if(C_truep(C_i_inexactp(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3]; t3=C_a_i_exact_to_inexact(&a,1,t2); t4=C_a_i_cplxnum(&a,2,t1,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_a_i_cplxnum(&a,2,t1,t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* scheme#make-rectangular in k8510 */ static void C_ccall f_12644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12644,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12648,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:1723: ##sys#check-real */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[361]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[361]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[503]; tp(4,av2);}} /* k12646 in scheme#make-rectangular in k8510 */ static void C_ccall f_12648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12648,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:1724: ##sys#check-real */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[361]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[361]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[503]; tp(4,av2);}} /* k12649 in k12646 in scheme#make-rectangular in k8510 */ static void C_ccall f_12651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12651,2,av);} /* library.scm:1725: make-complex */ f_12608(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);} /* scheme#make-polar in k8510 */ static void C_ccall f_12656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12656,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12660,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:1729: ##sys#check-real */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[361]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[361]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[505]; tp(4,av2);}} /* k12658 in scheme#make-polar in k8510 */ static void C_ccall f_12660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_12660,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12663,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:1730: ##sys#check-real */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[361]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[361]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[505]; tp(4,av2);}} /* k12661 in k12658 in scheme#make-polar in k8510 */ static void C_ccall f_12663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12663,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12666,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:1731: scheme#exact->inexact */ t3=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k12664 in k12661 in k12658 in scheme#make-polar in k8510 */ static void C_ccall f_12666(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(74,c,3)))){ C_save_and_reclaim((void *)f_12666,2,av);} a=C_alloc(74); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],C_a_i_cos(&a,1,t1)); t3=C_s_a_i_times(&a,2,((C_word*)t0)[2],C_a_i_sin(&a,1,t1)); /* library.scm:1732: make-complex */ f_12608(((C_word*)t0)[3],t2,t3);} /* scheme#real-part in k8510 */ static void C_ccall f_12679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12679,3,av);} if(C_truep(C_i_cplxnump(t2))){ t3=t1; t4=t2; t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_u_i_cplxnum_real(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_numberp(t2))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* library.scm:1740: ##sys#error-bad-number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[371]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[371]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[507]; tp(4,av2);}}}} /* scheme#imag-part in k8510 */ static void C_ccall f_12702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12702,3,av);} if(C_truep(C_i_cplxnump(t2))){ t3=t1; t4=t2; t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_u_i_cplxnum_imag(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(t2))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=lf[501]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_numberp(t2))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* library.scm:1747: ##sys#error-bad-number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[371]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[371]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[509]; tp(4,av2);}}}}} /* scheme#angle in k8510 */ static void C_ccall f_12728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_12728,3,av);} a=C_alloc(4); t3=C_i_check_number_2(t2,lf[511]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12737,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1753: scheme#imag-part */ t5=*((C_word*)lf[508]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k12735 in scheme#angle in k8510 */ static void C_ccall f_12737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_12737,2,av);} a=C_alloc(15); t2=C_a_i_exact_to_inexact(&a,1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12742,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1754: scheme#real-part */ t4=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k12740 in k12735 in scheme#angle in k8510 */ static void C_ccall f_12742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ C_save_and_reclaim((void *)f_12742,2,av);} a=C_alloc(15); t2=C_a_i_exact_to_inexact(&a,1,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_atan2(&a,2,((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#magnitude in k8510 */ static void C_ccall f_12744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(95,c,3)))){ C_save_and_reclaim((void *)f_12744,3,av);} a=C_alloc(95); if(C_truep(C_i_cplxnump(t2))){ t3=t2; t4=C_u_i_cplxnum_real(t3); t5=t2; t6=C_u_i_cplxnum_imag(t5); t7=C_s_a_i_times(&a,2,t4,t4); t8=C_s_a_i_times(&a,2,t6,t6); t9=C_s_a_i_plus(&a,2,t7,t8); /* library.scm:1761: scheme#sqrt */ t10=*((C_word*)lf[513]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t1; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ if(C_truep(C_i_numberp(t2))){ t3=t2; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_s_a_i_abs(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* library.scm:1763: ##sys#error-bad-number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[371]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[371]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[514]; tp(4,av2);}}}} /* ratnum in k8510 */ static void C_fcall f_12788(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,1)))){ C_save_and_reclaim_args((void *)trf_12788,3,t1,t2,t3);} a=C_alloc(13); switch(t3){ case C_fix(1): t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} case C_fix(-1): t4=t1; t5=t2; t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=C_s_a_u_i_integer_negate(&a,1,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);} default: t4=t3; if(C_truep(C_i_negativep(t4))){ t5=t2; t6=C_s_a_u_i_integer_negate(&a,1,t5); t7=t3; t8=C_s_a_u_i_integer_negate(&a,1,t7); t9=t1; t10=t9;{ C_word av2[2]; av2[0]=t10; av2[1]=C_a_i_ratnum(&a,2,t6,t8); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t5=t1; t6=t2; t7=t3; t8=t5;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_ratnum(&a,2,t6,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* scheme#numerator in k8510 */ static void C_ccall f_12834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_12834,3,av);} a=C_alloc(6); t3=t2; if(C_truep(C_i_exact_integerp(t3))){ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(t2))){ t4=t2; t5=C_i_finitep(t4); if(C_truep(C_i_not(t5))){ /* library.scm:1783: bad-inexact */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[517]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[517]+1); av2[1]=t1; av2[2]=lf[518]; av2[3]=t2; tp(4,av2);}} else{ if(C_truep(C_u_i_fpintegerp(t2))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12858,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12862,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* library.scm:1785: scheme#inexact->exact */ t8=*((C_word*)lf[519]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}} else{ if(C_truep(C_i_ratnump(t2))){ t4=t1; t5=t2; t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=C_u_i_ratnum_num(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* library.scm:1787: ##sys#signal-hook */ t4=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=lf[258]; av2[3]=lf[518]; av2[4]=lf[520]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}}} /* k12856 in scheme#numerator in k8510 */ static void C_ccall f_12858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_12858,2,av);} a=C_alloc(11); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_exact_to_inexact(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12860 in scheme#numerator in k8510 */ static void C_ccall f_12862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12862,2,av);} /* library.scm:1785: scheme#numerator */ t2=*((C_word*)lf[516]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* scheme#denominator in k8510 */ static void C_ccall f_12880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_12880,3,av);} a=C_alloc(6); t3=t2; if(C_truep(C_i_exact_integerp(t3))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fix(1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(t2))){ t4=t2; t5=C_i_finitep(t4); if(C_truep(C_i_not(t5))){ /* library.scm:1795: bad-inexact */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[517]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[517]+1); av2[1]=t1; av2[2]=lf[522]; av2[3]=t2; tp(4,av2);}} else{ if(C_truep(C_u_i_fpintegerp(t2))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=lf[523]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12904,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12908,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* library.scm:1797: scheme#inexact->exact */ t8=*((C_word*)lf[519]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}} else{ if(C_truep(C_i_ratnump(t2))){ t4=t1; t5=t2; t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=C_u_i_ratnum_denom(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* library.scm:1799: ##sys#signal-hook */ t4=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=lf[258]; av2[3]=lf[518]; av2[4]=lf[524]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}}} /* k12902 in scheme#denominator in k8510 */ static void C_ccall f_12904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ C_save_and_reclaim((void *)f_12904,2,av);} a=C_alloc(11); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_exact_to_inexact(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k12906 in scheme#denominator in k8510 */ static void C_ccall f_12908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_12908,2,av);} /* library.scm:1797: scheme#denominator */ t2=*((C_word*)lf[521]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* ##sys#extended-signum in k8510 */ static void C_ccall f_12926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ C_save_and_reclaim((void *)f_12926,3,av);} a=C_alloc(26); if(C_truep(C_i_ratnump(t2))){ t3=t2; t4=C_u_i_ratnum_num(t3); t5=C_u_i_integer_signum(t4); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(C_i_cplxnump(t2))){ t3=t2; t4=C_u_i_cplxnum_imag(t3); t5=C_a_i_exact_to_inexact(&a,1,t4); t6=C_u_i_cplxnum_real(t3); t7=C_a_i_exact_to_inexact(&a,1,t6); t8=C_flonum(&a,C_atan2(C_flonum_magnitude(t5),C_flonum_magnitude(t7))); /* library.scm:1806: scheme#make-polar */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[504]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[504]+1); av2[1]=t1; av2[2]=C_fix(1); av2[3]=t8; tp(4,av2);}} else{ /* library.scm:1807: ##sys#error-bad-number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[371]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[371]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[526]; tp(4,av2);}}}} /* doloop2214 in deliver in scheme#inexact->exact in k8510 */ static void C_fcall f_12967(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_12967,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_u_i_fpintegerp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12978,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:1815: chicken.flonum#fp* */ t5=*((C_word*)lf[436]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[530]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k12976 in doloop2214 in deliver in scheme#inexact->exact in k8510 */ static void C_ccall f_12978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_12978,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_12967(t3,((C_word*)t0)[4],t1,t2);} /* deliver in scheme#inexact->exact in k8510 */ static void C_fcall f_12984(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_12984,4,t0,t1,t2,t3);} a=C_alloc(15); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12988,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13019,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=t2; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12967,a[2]=t8,a[3]=((C_word)li374),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_12967(t10,t5,t6,C_fix(0));} /* k12986 in deliver in scheme#inexact->exact in k8510 */ static void C_ccall f_12988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_12988,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13015,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:1821: scheme#exact->inexact */ t4=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13000 in k13013 in k12986 in deliver in scheme#inexact->exact in k8510 */ static void C_ccall f_13002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13002,2,av);} /* library.scm:1823: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k13013 in k12986 in deliver in scheme#inexact->exact in k8510 */ static void C_ccall f_13015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(42,c,3)))){ C_save_and_reclaim((void *)f_13015,2,av);} a=C_alloc(42); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); if(C_truep(C_i_finitep(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13002,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=C_s_a_u_i_flo_to_int(&a,1,t2); /* library.scm:1823: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[5]; tp(4,av2);}} else{ /* library.scm:1824: ##sys#error-bad-inexact */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[372]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[372]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[528]; tp(4,av2);}}} /* k13017 in deliver in scheme#inexact->exact in k8510 */ static void C_ccall f_13019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13019,2,av);} /* library.scm:1820: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[529]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(2); av2[3]=t1; tp(4,av2);}} /* k13034 in k13038 in k13044 in scheme#inexact->exact in k8510 */ static void C_ccall f_13036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13036,2,av);} /* library.scm:1828: deliver */ t2=((C_word*)t0)[2]; f_12984(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k13038 in k13044 in scheme#inexact->exact in k8510 */ static void C_ccall f_13040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,3)))){ C_save_and_reclaim((void *)f_13040,2,av);} a=C_alloc(38); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13036,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:1831: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[529]+1); av2[1]=t4; av2[2]=C_fix(2); av2[3]=*((C_word*)lf[426]+1); tp(4,av2);}} /* k13044 in scheme#inexact->exact in k8510 */ static void C_ccall f_13046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13046,2,av);} a=C_alloc(5); t2=(C_truep(t1)?C_ub_i_flonum_greaterp(C_flonum_magnitude(((C_word*)t0)[2]),-1.0):C_SCHEME_FALSE); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13040,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:1828: scheme#expt */ t4=*((C_word*)lf[531]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[530]; av2[3]=*((C_word*)lf[426]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ /* library.scm:1832: deliver */ t3=((C_word*)t0)[3]; f_12984(t3,((C_word*)t0)[4],((C_word*)t0)[2],C_fix(1));}} /* scheme#inexact->exact in k8510 */ static void C_ccall f_13050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_13050,3,av);} a=C_alloc(9); if(C_truep(C_i_exactp(t2))){ t3=t2; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(t2))){ if(C_truep(C_u_i_fpintegerp(t2))){ t3=t1; t4=t2; t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_s_a_u_i_flo_to_int(&a,1,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_u_i_flonum_finitep(t2))){ t3=t1; t4=t2; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12984,a[2]=t4,a[3]=((C_word)li375),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13046,a[2]=t4,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:1826: chicken.flonum#fp< */ t7=*((C_word*)lf[448]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=t4; av2[3]=lf[523]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ /* library.scm:1840: ##sys#error-bad-inexact */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[372]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[372]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[528]; tp(4,av2);}}}} else{ if(C_truep(C_i_cplxnump(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13090,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=t2; t5=C_u_i_cplxnum_real(t4); /* library.scm:1842: scheme#inexact->exact */ t6=*((C_word*)lf[519]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* library.scm:1844: ##sys#error-bad-number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[371]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[371]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[528]; tp(4,av2);}}}}} /* k13088 in scheme#inexact->exact in k8510 */ static void C_ccall f_13090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_13090,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13094,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cplxnum_imag(t4); /* library.scm:1843: scheme#inexact->exact */ t6=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t3; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k13092 in k13088 in scheme#inexact->exact in k8510 */ static void C_ccall f_13094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13094,2,av);} /* library.scm:1842: make-complex */ f_12608(((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* chicken.bitwise#bitwise-not in k8510 */ static void C_ccall f_13116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_13116,3,av);} a=C_alloc(5); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_s_a_i_bitwise_not(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.bitwise#bit->boolean in k8510 */ static void C_ccall f_13119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13119,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_bit_to_bool(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.bitwise#integer-length in k8510 */ static void C_ccall f_13122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_13122,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_integer_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.bitwise#arithmetic-shift in k8510 */ static void C_ccall f_13125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_13125,4,av);} a=C_alloc(5); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_s_a_i_arithmetic_shift(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#/ in k8510 */ static void C_ccall f_13128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_13128,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; if(C_truep(C_i_nullp(t3))){ /* library.scm:1879: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=t1; av2[2]=C_fix(1); av2[3]=t2; tp(4,av2);}} else{ t4=C_slot(t3,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13149,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_slot(t3,C_fix(0)); /* library.scm:1881: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=t6; av2[2]=t2; av2[3]=t7; tp(4,av2);}}} /* k13147 in scheme#/ in k8510 */ static void C_ccall f_13149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_13149,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13151,a[2]=t3,a[3]=((C_word)li384),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_13151(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* loop in k13147 in scheme#/ in k8510 */ static void C_fcall f_13151(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_13151,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_slot(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13169,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(0)); /* library.scm:1885: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[527]+1); av2[1]=t6; av2[2]=t3; av2[3]=t7; tp(4,av2);}}} /* k13167 in loop in k13147 in scheme#/ in k8510 */ static void C_ccall f_13169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13169,2,av);} /* library.scm:1884: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13151(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* ##sys#/-2 in k8510 */ static void C_ccall f_13179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_13179,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13183,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_eqp(t3,C_fix(0)); if(C_truep(t5)){ t6=C_fix((C_word)C_DIVISION_BY_ZERO_ERROR); /* library.scm:1892: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[363]+1); av2[1]=t4; av2[2]=t6; av2[3]=lf[544]; av2[4]=t2; av2[5]=t3; tp(6,av2);}} else{ t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_13183(2,av2);}}} /* k13181 in ##sys#/-2 in k8510 */ static void C_ccall f_13183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_13183,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13189,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[2]; if(C_truep(C_i_exact_integerp(t3))){ t4=((C_word*)t0)[3]; t5=t2; f_13189(t5,C_i_exact_integerp(t4));} else{ t4=t2; f_13189(t4,C_SCHEME_FALSE);}} /* k13187 in k13181 in ##sys#/-2 in k8510 */ static void C_fcall f_13189(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(96,0,4)))){ C_save_and_reclaim_args((void *)trf_13189,2,t0,t1);} a=C_alloc(96); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_s_a_u_i_integer_gcd(&a,2,t2,t3); t5=((C_word*)t0)[2]; t6=C_s_a_u_i_integer_quotient(&a,2,t5,t4); t7=((C_word*)t0)[3]; t8=C_s_a_u_i_integer_quotient(&a,2,t7,t4); /* library.scm:1895: ratnum */ f_12788(((C_word*)t0)[4],t6,t8);} else{ t2=C_i_cplxnump(((C_word*)t0)[2]); t3=(C_truep(t2)?t2:C_i_cplxnump(((C_word*)t0)[3])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13221,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:1898: scheme#real-part */ t5=*((C_word*)lf[506]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=C_i_flonump(((C_word*)t0)[2]); t5=(C_truep(t4)?t4:C_i_flonump(((C_word*)t0)[3])); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13287,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:1906: scheme#exact->inexact */ t7=*((C_word*)lf[62]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ if(C_truep(C_i_ratnump(((C_word*)t0)[2]))){ if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){ t6=((C_word*)t0)[2]; t7=C_u_i_ratnum_num(t6); t8=((C_word*)t0)[2]; t9=C_u_i_ratnum_denom(t8); t10=((C_word*)t0)[3]; t11=C_u_i_ratnum_num(t10); t12=((C_word*)t0)[3]; t13=C_u_i_ratnum_denom(t12); t14=C_s_a_u_i_integer_gcd(&a,2,t7,t11); t15=C_s_a_u_i_integer_gcd(&a,2,t9,t13); t16=C_s_a_i_quotient(&a,2,t7,t14); t17=C_s_a_i_quotient(&a,2,t13,t15); t18=C_s_a_i_times(&a,2,t16,t17); t19=C_s_a_i_quotient(&a,2,t9,t15); t20=C_s_a_i_quotient(&a,2,t11,t14); t21=C_s_a_i_times(&a,2,t19,t20); /* library.scm:1916: ratnum */ f_12788(((C_word*)t0)[4],t18,t21);} else{ t6=((C_word*)t0)[2]; t7=C_u_i_ratnum_num(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13368,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:1922: ##sys#internal-gcd */ f_15114(t9,lf[544],t8,((C_word*)t0)[3]);}} else{ if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){ t6=((C_word*)t0)[3]; t7=C_u_i_ratnum_num(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13407,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t8,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:1933: ##sys#internal-gcd */ f_15114(t9,lf[544],((C_word*)t0)[2],t8);} else{ t6=C_i_numberp(((C_word*)t0)[2]); if(C_truep(C_i_not(t6))){ /* library.scm:1939: ##sys#error-bad-number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[371]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[371]+1); av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[2]; av2[3]=lf[544]; tp(4,av2);}} else{ /* library.scm:1940: ##sys#error-bad-number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[371]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[371]+1); av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[544]; tp(4,av2);}}}}}}}} /* k13219 in k13187 in k13181 in ##sys#/-2 in k8510 */ static void C_ccall f_13221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_13221,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13224,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:1898: scheme#imag-part */ t4=*((C_word*)lf[508]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13222 in k13219 in k13187 in k13181 in ##sys#/-2 in k8510 */ static void C_ccall f_13224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_13224,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13227,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:1899: scheme#real-part */ t4=*((C_word*)lf[506]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13225 in k13222 in k13219 in k13187 in k13181 in ##sys#/-2 in k8510 */ static void C_ccall f_13227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_13227,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13230,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:1899: scheme#imag-part */ t4=*((C_word*)lf[508]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13228 in k13225 in k13222 in k13219 in k13187 in k13181 in ##sys#/-2 in k8510 */ static void C_ccall f_13230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(198,c,3)))){ C_save_and_reclaim((void *)f_13230,2,av);} a=C_alloc(198); t2=t1; t3=C_s_a_i_times(&a,2,((C_word*)t0)[2],((C_word*)t0)[2]); t4=C_s_a_i_times(&a,2,t2,t2); t5=C_s_a_i_plus(&a,2,t3,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13236,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=t6,tmp=(C_word)a,a+=8,tmp); t8=C_s_a_i_times(&a,2,((C_word*)t0)[5],((C_word*)t0)[2]); t9=C_s_a_i_times(&a,2,((C_word*)t0)[4],t2); t10=C_s_a_i_plus(&a,2,t8,t9); /* library.scm:1901: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=t7; av2[2]=t10; av2[3]=t6; tp(4,av2);}} /* k13234 in k13228 in k13225 in k13222 in k13219 in k13187 in k13181 in ##sys#/-2 in k8510 */ static void C_ccall f_13236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(99,c,3)))){ C_save_and_reclaim((void *)f_13236,2,av);} a=C_alloc(99); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13239,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_s_a_i_times(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t5=C_s_a_i_times(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]); t6=C_s_a_i_minus(&a,2,t4,t5); /* library.scm:1902: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=t3; av2[2]=t6; av2[3]=((C_word*)t0)[7]; tp(4,av2);}} /* k13237 in k13234 in k13228 in k13225 in k13222 in k13219 in k13187 in k13181 in ##sys#/-2 in k8510 */ static void C_ccall f_13239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13239,2,av);} /* library.scm:1903: make-complex */ f_12608(((C_word*)t0)[2],((C_word*)t0)[3],t1);} /* k13285 in k13187 in k13181 in ##sys#/-2 in k8510 */ static void C_ccall f_13287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_13287,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13291,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:1906: scheme#exact->inexact */ t4=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13289 in k13285 in k13187 in k13181 in ##sys#/-2 in k8510 */ static void C_ccall f_13291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13291,2,av);} /* library.scm:1906: chicken.flonum#fp/ */ t2=*((C_word*)lf[438]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k13366 in k13187 in k13181 in ##sys#/-2 in k8510 */ static void C_ccall f_13368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(43,c,3)))){ C_save_and_reclaim((void *)f_13368,2,av);} a=C_alloc(43); t2=C_s_a_i_quotient(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=C_u_i_ratnum_denom(t3); t5=C_s_a_i_quotient(&a,2,((C_word*)t0)[4],t1); t6=C_s_a_i_times(&a,2,t4,t5); if(C_truep(C_i_flonump(t6))){ /* library.scm:1926: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=((C_word*)t0)[5]; av2[2]=t2; av2[3]=t6; tp(4,av2);}} else{ /* library.scm:1927: ratnum */ f_12788(((C_word*)t0)[5],t2,t6);}} /* k13405 in k13187 in k13181 in ##sys#/-2 in k8510 */ static void C_ccall f_13407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(43,c,3)))){ C_save_and_reclaim((void *)f_13407,2,av);} a=C_alloc(43); t2=C_s_a_i_quotient(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=C_u_i_ratnum_denom(t3); t5=C_s_a_i_times(&a,2,t2,t4); t6=C_s_a_i_quotient(&a,2,((C_word*)t0)[4],t1); if(C_truep(C_i_flonump(t6))){ /* library.scm:1937: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=((C_word*)t0)[5]; av2[2]=t5; av2[3]=t6; tp(4,av2);}} else{ /* library.scm:1938: ratnum */ f_12788(((C_word*)t0)[5],t5,t6);}} /* scheme#floor in k8510 */ static void C_ccall f_13462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){ C_save_and_reclaim((void *)f_13462,3,av);} a=C_alloc(34); t3=t2; if(C_truep(C_i_exact_integerp(t3))){ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(t2))){ /* library.scm:1945: chicken.flonum#fpfloor */ t4=*((C_word*)lf[460]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_i_ratnump(t2))){ t4=t2; t5=C_u_i_ratnum_num(t4); t6=t2; t7=C_u_i_ratnum_denom(t6); t8=C_s_a_i_quotient(&a,2,t5,t7); t9=C_i_greater_or_equalp(t5,C_fix(0)); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=(C_truep(t9)?t8:C_s_a_i_minus(&a,2,t8,C_fix(1))); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ /* library.scm:1950: ##sys#error-bad-real */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[362]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[362]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[546]; tp(4,av2);}}}}} /* scheme#ceiling in k8510 */ static void C_ccall f_13507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){ C_save_and_reclaim((void *)f_13507,3,av);} a=C_alloc(34); t3=t2; if(C_truep(C_i_exact_integerp(t3))){ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(t2))){ /* library.scm:1955: chicken.flonum#fpceiling */ t4=*((C_word*)lf[466]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_i_ratnump(t2))){ t4=t2; t5=C_u_i_ratnum_num(t4); t6=t2; t7=C_u_i_ratnum_denom(t6); t8=C_s_a_i_quotient(&a,2,t5,t7); t9=C_i_greater_or_equalp(t5,C_fix(0)); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=(C_truep(t9)?C_s_a_i_plus(&a,2,t8,C_fix(1)):t8); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ /* library.scm:1960: ##sys#error-bad-real */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[362]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[362]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[548]; tp(4,av2);}}}}} /* scheme#truncate in k8510 */ static void C_ccall f_13552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13552,3,av);} a=C_alloc(5); t3=t2; if(C_truep(C_i_exact_integerp(t3))){ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(t2))){ /* library.scm:1965: chicken.flonum#fptruncate */ t4=*((C_word*)lf[462]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ if(C_truep(C_i_ratnump(t2))){ t4=t2; t5=C_u_i_ratnum_num(t4); t6=t2; t7=C_u_i_ratnum_denom(t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_s_a_i_quotient(&a,2,t5,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* library.scm:1969: ##sys#error-bad-real */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[362]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[362]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[550]; tp(4,av2);}}}}} /* scheme#round in k8510 */ static void C_ccall f_13589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(36,c,3)))){ C_save_and_reclaim((void *)f_13589,3,av);} a=C_alloc(36); t3=t2; if(C_truep(C_i_exact_integerp(t3))){ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_flonump(t2))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_flonum_round_proper(&a,1,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_ratnump(t2))){ t4=C_a_i_ratnum(&a,2,C_fix(1),C_fix(2)); t5=C_s_a_i_plus(&a,2,t2,t4); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13609,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:1978: scheme#floor */ t8=*((C_word*)lf[545]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ /* library.scm:1980: ##sys#error-bad-real */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[362]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[362]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[552]; tp(4,av2);}}}}} /* k13607 in scheme#round in k8510 */ static void C_ccall f_13609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_13609,2,av);} a=C_alloc(29); t2=C_i_nequalp(t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?(C_truep(C_i_oddp(t1))?C_s_a_i_minus(&a,2,t1,C_fix(1)):t1):t1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* find-ratio-between in k8510 */ static void C_fcall f_13633(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(67,0,4)))){ C_save_and_reclaim_args((void *)trf_13633,3,t1,t2,t3);} a=C_alloc(67); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13636,a[2]=t5,a[3]=((C_word)li391),tmp=(C_word)a,a+=4,tmp)); if(C_truep(C_i_lessp(t3,t2))){ /* library.scm:1993: find-ratio-between */ t16=t1; t17=t3; t18=t2; t1=t16; t2=t17; t3=t18; goto loop;} else{ t7=C_i_lessp(t2,t3); if(C_truep(C_i_not(t7))){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_a_i_list2(&a,2,t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=t2; if(C_truep(C_i_positivep(t8))){ /* library.scm:1995: sr */ t9=((C_word*)t5)[1]; f_13636(t9,t1,t2,t3);} else{ t9=t3; if(C_truep(C_i_negativep(t9))){ t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13747,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t11=t3; t12=C_s_a_i_negate(&a,1,t11); t13=t2; t14=C_s_a_i_negate(&a,1,t13); /* library.scm:1996: sr */ t15=((C_word*)t5)[1]; f_13636(t15,t10,t12,t14);} else{ t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=lf[554]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}}} /* sr in find-ratio-between in k8510 */ static void C_fcall f_13636(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_13636,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13640,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13715,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:1984: scheme#floor */ t6=*((C_word*)lf[545]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k13638 in sr in find-ratio-between in k8510 */ static void C_ccall f_13640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_13640,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13643,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13711,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:1985: scheme#floor */ t5=*((C_word*)lf[545]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k13641 in k13638 in sr in find-ratio-between in k8510 */ static void C_ccall f_13643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){ C_save_and_reclaim((void *)f_13643,2,av);} a=C_alloc(39); t2=C_i_lessp(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(C_i_not(t2))){ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[2],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_nequalp(((C_word*)t0)[2],t1))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13661,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13684,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t5=C_s_a_i_minus(&a,2,((C_word*)t0)[6],t1); /* library.scm:1988: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=t4; av2[2]=C_fix(1); av2[3]=t5; tp(4,av2);}} else{ t3=C_s_a_i_plus(&a,2,C_fix(1),((C_word*)t0)[2]); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_list2(&a,2,t3,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* k13659 in k13641 in k13638 in sr in find-ratio-between in k8510 */ static void C_ccall f_13661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(68,c,1)))){ C_save_and_reclaim((void *)f_13661,2,av);} a=C_alloc(68); t2=C_i_cadr(t1); t3=C_u_i_car(t1); t4=C_s_a_i_times(&a,2,((C_word*)t0)[2],t3); t5=C_s_a_i_plus(&a,2,t2,t4); t6=C_u_i_car(t1); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_list2(&a,2,t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k13682 in k13641 in k13638 in sr in find-ratio-between in k8510 */ static void C_ccall f_13684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){ C_save_and_reclaim((void *)f_13684,2,av);} a=C_alloc(34); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13688,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_s_a_i_minus(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); /* library.scm:1989: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=t3; av2[2]=C_fix(1); av2[3]=t4; tp(4,av2);}} /* k13686 in k13682 in k13641 in k13638 in sr in find-ratio-between in k8510 */ static void C_ccall f_13688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13688,2,av);} /* library.scm:1988: sr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_13636(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k13709 in k13638 in sr in find-ratio-between in k8510 */ static void C_ccall f_13711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13711,2,av);} /* library.scm:1985: scheme#inexact->exact */ t2=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k13713 in sr in find-ratio-between in k8510 */ static void C_ccall f_13715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13715,2,av);} /* library.scm:1984: scheme#inexact->exact */ t2=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k13745 in find-ratio-between in k8510 */ static void C_ccall f_13747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(35,c,1)))){ C_save_and_reclaim((void *)f_13747,2,av);} a=C_alloc(35); t2=C_i_car(t1); t3=C_s_a_i_negate(&a,1,t2); t4=C_i_cadr(t1); t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_list2(&a,2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#rationalize in k8510 */ static void C_ccall f_13783(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(66,c,3)))){ C_save_and_reclaim((void *)f_13783,4,av);} a=C_alloc(66); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13787,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13806,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=t2; t7=t3; t8=C_s_a_i_minus(&a,2,t6,t7); t9=C_s_a_i_plus(&a,2,t6,t7); /* library.scm:2000: find-ratio-between */ f_13633(t5,t8,t9);} /* k13785 in scheme#rationalize in k8510 */ static void C_ccall f_13787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13787,2,av);} t2=C_i_inexactp(((C_word*)t0)[2]); if(C_truep(t2)){ if(C_truep(t2)){ /* library.scm:2006: scheme#exact->inexact */ t3=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ if(C_truep(C_i_inexactp(((C_word*)t0)[4]))){ /* library.scm:2006: scheme#exact->inexact */ t3=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k13804 in scheme#rationalize in k8510 */ static void C_ccall f_13806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_13806,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[527]+1); av2[3]=t1; C_apply(4,av2);}} /* scheme#max in k8510 */ static void C_ccall f_13808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,5)))){ C_save_and_reclaim((void*)f_13808,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_flonump(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13815,a[2]=t6,a[3]=((C_word)li394),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_13815(t8,t1,t4,t2,t3);} /* loop in scheme#max in k8510 */ static void C_fcall f_13815(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_13815,5,t0,t1,t2,t3,t4);} a=C_alloc(11); t5=C_i_check_number_2(t3,lf[557]); if(C_truep(C_i_nullp(t4))){ if(C_truep(t2)){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_exact_to_inexact(&a,1,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=C_slot(t4,C_fix(0)); t7=t2; t8=(C_truep(t7)?t7:C_i_flonump(t6)); t9=C_i_greaterp(t6,t3); t10=(C_truep(t9)?t6:t3); t11=C_slot(t4,C_fix(1)); /* library.scm:2016: loop */ t13=t1; t14=t8; t15=t10; t16=t11; t1=t13; t2=t14; t3=t15; t4=t16; goto loop;}} /* scheme#min in k8510 */ static void C_ccall f_13852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,5)))){ C_save_and_reclaim((void*)f_13852,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_flonump(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13859,a[2]=t6,a[3]=((C_word)li396),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_13859(t8,t1,t4,t2,t3);} /* loop in scheme#min in k8510 */ static void C_fcall f_13859(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_13859,5,t0,t1,t2,t3,t4);} a=C_alloc(11); t5=C_i_check_number_2(t3,lf[559]); if(C_truep(C_i_nullp(t4))){ if(C_truep(t2)){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_a_i_exact_to_inexact(&a,1,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t6=C_slot(t4,C_fix(0)); t7=t2; t8=(C_truep(t7)?t7:C_i_flonump(t6)); t9=C_i_lessp(t6,t3); t10=(C_truep(t9)?t6:t3); t11=C_slot(t4,C_fix(1)); /* library.scm:2027: loop */ t13=t1; t14=t8; t15=t10; t16=t11; t1=t13; t2=t14; t3=t15; t4=t16; goto loop;}} /* scheme#exp in k8510 */ static void C_ccall f_13896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_13896,3,av);} a=C_alloc(15); t3=C_i_check_number_2(t2,lf[561]); if(C_truep(C_i_cplxnump(t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13914,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=t2; t6=C_u_i_cplxnum_real(t5); /* library.scm:2036: scheme#exact->inexact */ t7=*((C_word*)lf[62]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t4; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=t2; t5=C_a_i_exact_to_inexact(&a,1,t4); t6=C_flonum(&a,C_exp(C_flonum_magnitude(t5))); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k13912 in scheme#exp in k8510 */ static void C_ccall f_13914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_13914,2,av);} a=C_alloc(12); t2=C_a_i_exp(&a,1,t1); t3=((C_word*)t0)[2]; t4=C_u_i_cplxnum_imag(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13923,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13928,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:2039: scheme#exact->inexact */ t8=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k13921 in k13912 in scheme#exp in k8510 */ static void C_ccall f_13923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ C_save_and_reclaim((void *)f_13923,2,av);} a=C_alloc(33); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k13926 in k13912 in scheme#exp in k8510 */ static void C_ccall f_13928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_13928,2,av);} a=C_alloc(19); t2=C_a_i_cos(&a,1,t1); t3=C_a_i_exact_to_inexact(&a,1,((C_word*)t0)[2]); t4=C_a_i_sin(&a,1,t3); /* library.scm:2038: make-complex */ f_12608(((C_word*)t0)[3],t2,t4);} /* ##sys#log-1 in k8510 */ static void C_ccall f_13941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_13941,3,av);} a=C_alloc(4); t3=C_eqp(t2,C_fix(0)); if(C_truep(t3)){ /* library.scm:2046: ##sys#signal-hook */ t4=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t1; av2[2]=lf[563]; av2[3]=lf[564]; av2[4]=lf[565]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} else{ t4=C_i_cplxnump(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13960,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(t4)){ t6=t5; f_13960(t6,t4);} else{ t6=t2; t7=t5; f_13960(t7,C_i_negativep(t6));}}} /* k13958 in ##sys#log-1 in k8510 */ static void C_fcall f_13960(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_13960,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13967,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13983,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* library.scm:2049: scheme#magnitude */ t4=*((C_word*)lf[512]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13987,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2052: scheme#exact->inexact */ t3=*((C_word*)lf[62]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k13965 in k13958 in ##sys#log-1 in k8510 */ static void C_ccall f_13967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_13967,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13975,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:2050: make-complex */ f_12608(t3,C_fix(0),C_fix(1));} /* k13973 in k13965 in k13958 in ##sys#log-1 in k8510 */ static void C_ccall f_13975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_13975,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13979,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:2050: scheme#angle */ t4=*((C_word*)lf[510]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k13977 in k13973 in k13965 in k13958 in ##sys#log-1 in k8510 */ static void C_ccall f_13979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(62,c,1)))){ C_save_and_reclaim((void *)f_13979,2,av);} a=C_alloc(62); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_s_a_i_plus(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k13981 in k13958 in ##sys#log-1 in k8510 */ static void C_ccall f_13983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_13983,2,av);} /* library.scm:2049: ##sys#log-1 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[562]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[562]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k13985 in k13958 in ##sys#log-1 in k8510 */ static void C_ccall f_13987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_13987,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_log(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* scheme#log in k8510 */ static void C_ccall f_13990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_13990,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14004,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:2056: ##sys#log-1 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[562]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[562]+1); av2[1]=t7; av2[2]=t2; tp(3,av2);}} else{ /* library.scm:2056: ##sys#log-1 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[562]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[562]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}}} /* k14002 in scheme#log in k8510 */ static void C_ccall f_14004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14004,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14008,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2056: ##sys#log-1 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[562]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[562]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k14006 in k14002 in scheme#log in k8510 */ static void C_ccall f_14008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14008,2,av);} /* library.scm:2056: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* scheme#sin in k8510 */ static void C_ccall f_14019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(37,c,2)))){ C_save_and_reclaim((void *)f_14019,3,av);} a=C_alloc(37); t3=C_i_check_number_2(t2,lf[568]); if(C_truep(C_i_cplxnump(t2))){ t4=C_s_a_i_times(&a,2,lf[569],t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14043,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:2063: scheme#exp */ t7=*((C_word*)lf[560]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=t2; t5=C_a_i_exact_to_inexact(&a,1,t4); t6=C_a_i_sin(&a,1,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k14041 in scheme#sin in k8510 */ static void C_ccall f_14043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_14043,2,av);} a=C_alloc(33); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14047,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_s_a_i_negate(&a,1,((C_word*)t0)[3]); /* library.scm:2063: scheme#exp */ t5=*((C_word*)lf[560]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k14045 in k14041 in scheme#sin in k8510 */ static void C_ccall f_14047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_14047,2,av);} a=C_alloc(29); t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],t1); /* library.scm:2063: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=lf[570]; tp(4,av2);}} /* scheme#cos in k8510 */ static void C_ccall f_14053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(37,c,2)))){ C_save_and_reclaim((void *)f_14053,3,av);} a=C_alloc(37); t3=C_i_check_number_2(t2,lf[572]); if(C_truep(C_i_cplxnump(t2))){ t4=C_s_a_i_times(&a,2,lf[569],t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14077,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:2071: scheme#exp */ t7=*((C_word*)lf[560]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=t2; t5=C_a_i_exact_to_inexact(&a,1,t4); t6=C_a_i_cos(&a,1,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k14075 in scheme#cos in k8510 */ static void C_ccall f_14077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_14077,2,av);} a=C_alloc(33); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14081,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_s_a_i_negate(&a,1,((C_word*)t0)[3]); /* library.scm:2071: scheme#exp */ t5=*((C_word*)lf[560]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k14079 in k14075 in scheme#cos in k8510 */ static void C_ccall f_14081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_14081,2,av);} a=C_alloc(29); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1); /* library.scm:2071: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_fix(2); tp(4,av2);}} /* scheme#tan in k8510 */ static void C_ccall f_14087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_14087,3,av);} a=C_alloc(15); t3=C_i_check_number_2(t2,lf[574]); if(C_truep(C_i_cplxnump(t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14104,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2078: scheme#sin */ t5=*((C_word*)lf[567]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=t2; t5=C_a_i_exact_to_inexact(&a,1,t4); t6=C_a_i_tan(&a,1,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k14102 in scheme#tan in k8510 */ static void C_ccall f_14104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14104,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14108,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2078: scheme#cos */ t4=*((C_word*)lf[571]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k14106 in k14102 in scheme#tan in k8510 */ static void C_ccall f_14108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14108,2,av);} /* library.scm:2078: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* scheme#asin in k8510 */ static void C_ccall f_14112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_14112,3,av);} a=C_alloc(8); t3=C_i_check_number_2(t2,lf[576]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14122,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_flonump(t2))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14170,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:2085: chicken.flonum#fp>= */ t6=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[579]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t5=t4; f_14122(t5,C_SCHEME_FALSE);}} /* k14120 in scheme#asin in k8510 */ static void C_fcall f_14122(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_14122,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=C_a_i_asin(&a,1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14128,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnump(((C_word*)t0)[2]))){ t3=C_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(-1)); t4=t2; f_14128(t4,(C_truep(t3)?C_fixnum_less_or_equal_p(((C_word*)t0)[2],C_fix(1)):C_SCHEME_FALSE));} else{ t3=t2; f_14128(t3,C_SCHEME_FALSE);}}} /* k14126 in k14120 in scheme#asin in k8510 */ static void C_fcall f_14128(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(102,0,3)))){ C_save_and_reclaim_args((void *)trf_14128,2,t0,t1);} a=C_alloc(102); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_a_i_asin(&a,1,C_a_i_fix_to_flo(&a,1,((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14135,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_s_a_i_times(&a,2,lf[569],((C_word*)t0)[3]); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14147,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t6=C_s_a_i_times(&a,2,((C_word*)t0)[3],((C_word*)t0)[3]); t7=C_s_a_i_minus(&a,2,C_fix(1),t6); /* library.scm:2094: ##sys#sqrt/loc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[578]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[578]+1); av2[1]=t5; av2[2]=lf[576]; av2[3]=t7; tp(4,av2);}}} /* k14133 in k14126 in k14120 in scheme#asin in k8510 */ static void C_ccall f_14135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ C_save_and_reclaim((void *)f_14135,2,av);} a=C_alloc(33); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_s_a_i_times(&a,2,lf[577],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k14145 in k14126 in k14120 in scheme#asin in k8510 */ static void C_ccall f_14147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_14147,2,av);} a=C_alloc(29); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1); /* library.scm:2092: ##sys#log-1 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[562]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[562]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; tp(3,av2);}} /* k14168 in scheme#asin in k8510 */ static void C_ccall f_14170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14170,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(t2),1.0); t4=((C_word*)t0)[3]; f_14122(t4,t3);} else{ t2=((C_word*)t0)[3]; f_14122(t2,C_SCHEME_FALSE);}} /* scheme#acos in k8510 */ static void C_ccall f_14174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_14174,3,av);} a=C_alloc(9); t3=C_i_check_number_2(t2,lf[581]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14184,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_flonump(t2))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14212,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:2102: chicken.flonum#fp>= */ t6=*((C_word*)lf[450]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=lf[579]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t5=t4; f_14184(t5,C_SCHEME_FALSE);}} /* k14182 in scheme#acos in k8510 */ static void C_fcall f_14184(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_14184,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_a_i_acos(&a,1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14190,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnump(((C_word*)t0)[2]))){ t3=C_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(-1)); t4=t2; f_14190(t4,(C_truep(t3)?C_fixnum_less_or_equal_p(((C_word*)t0)[2],C_fix(1)):C_SCHEME_FALSE));} else{ t3=t2; f_14190(t3,C_SCHEME_FALSE);}}} /* k14188 in k14182 in scheme#acos in k8510 */ static void C_fcall f_14190(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_14190,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_a_i_acos(&a,1,C_a_i_fix_to_flo(&a,1,((C_word*)t0)[3])); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14197,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:2109: scheme#asin */ t3=*((C_word*)lf[575]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k14195 in k14188 in k14182 in scheme#acos in k8510 */ static void C_ccall f_14197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_14197,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_s_a_i_minus(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k14210 in scheme#acos in k8510 */ static void C_ccall f_14212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_14212,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(t2),1.0); t4=((C_word*)t0)[3]; f_14184(t4,t3);} else{ t2=((C_word*)t0)[3]; f_14184(t2,C_SCHEME_FALSE);}} /* scheme#atan in k8510 */ static void C_ccall f_14216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +66,c,3)))){ C_save_and_reclaim((void*)f_14216,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+66); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=C_i_check_number_2(t2,lf[583]); if(C_truep(C_i_cplxnump(t2))){ if(C_truep(t5)){ /* library.scm:2116: ##sys#error-bad-real */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[362]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[362]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[583]; tp(4,av2);}} else{ t7=C_s_a_i_times(&a,2,lf[569],t2); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14249,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=C_s_a_i_plus(&a,2,C_fix(1),t8); /* library.scm:2118: ##sys#log-1 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[562]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[562]+1); av2[1]=t9; av2[2]=t10; tp(3,av2);}}} else{ if(C_truep(t5)){ t7=t2; t8=C_a_i_exact_to_inexact(&a,1,t7); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14270,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* library.scm:2122: scheme#exact->inexact */ t10=*((C_word*)lf[62]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ t7=t2; t8=C_a_i_exact_to_inexact(&a,1,t7); t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_a_i_atan(&a,1,t8); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}} /* k14247 in scheme#atan in k8510 */ static void C_ccall f_14249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_14249,2,av);} a=C_alloc(33); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14253,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_s_a_i_minus(&a,2,C_fix(1),((C_word*)t0)[3]); /* library.scm:2119: ##sys#log-1 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[562]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[562]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k14251 in k14247 in scheme#atan in k8510 */ static void C_ccall f_14253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_14253,2,av);} a=C_alloc(29); t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],t1); /* library.scm:2118: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=lf[570]; tp(4,av2);}} /* k14268 in scheme#atan in k8510 */ static void C_ccall f_14270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_14270,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_atan2(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#exact-integer-sqrt in k8510 */ static void C_ccall f_14280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_14280,3,av);} a=C_alloc(10); t3=C_fixnump(t2); t4=(C_truep(t3)?C_fixnum_less_or_equal_p(t2,C_fix(4)):C_SCHEME_FALSE); if(C_truep(t4)){ t5=t2; t6=C_eqp(t5,C_fix(0)); t7=(C_truep(t6)?t6:C_eqp(t5,C_fix(1))); if(C_truep(t7)){ /* library.scm:2134: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(0); C_values(4,av2);}} else{ switch(t5){ case C_fix(2): /* library.scm:2135: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=C_fix(1); av2[3]=C_fix(1); C_values(4,av2);} case C_fix(3): /* library.scm:2136: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=C_fix(1); av2[3]=C_fix(2); C_values(4,av2);} case C_fix(4): /* library.scm:2137: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=C_fix(2); av2[3]=C_fix(0); C_values(4,av2);} default: /* library.scm:2138: chicken.base#error */ t8=*((C_word*)lf[193]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t1; av2[2]=lf[585]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}} else{ t5=t2; t6=C_i_integer_length(t5); t7=C_fixnum_plus(t6,C_fix(1)); t8=C_fixnum_shift_right(t7,C_fix(2)); t9=t8; t10=C_fixnum_shift_left(t9,C_fix(1)); t11=t10; t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14353,a[2]=t11,a[3]=t2,a[4]=((C_word)li407),tmp=(C_word)a,a+=5,tmp); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14367,a[2]=t9,a[3]=t2,a[4]=((C_word)li411),tmp=(C_word)a,a+=5,tmp); /* library.scm:2139: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t12; av2[3]=t13; C_call_with_values(4,av2);}}} /* a14352 in ##sys#exact-integer-sqrt in k8510 */ static void C_ccall f_14353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_14353,2,av);} a=C_alloc(5); t2=C_fixnum_negate(((C_word*)t0)[2]); t3=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[3],t2); /* library.scm:2142: ##sys#exact-integer-sqrt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[584]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[584]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} /* a14366 in ##sys#exact-integer-sqrt in k8510 */ static void C_ccall f_14367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(38,c,4)))){ C_save_and_reclaim((void *)f_14367,4,av);} a=C_alloc(38); t4=t2; t5=t3; t6=C_s_a_i_arithmetic_shift(&a,2,C_fix(1),((C_word*)t0)[2]); t7=C_s_a_u_i_integer_minus(&a,2,t6,C_fix(1)); t8=C_s_a_i_bitwise_and(&a,2,((C_word*)t0)[3],t7); t9=t8; t10=C_fixnum_negate(((C_word*)t0)[2]); t11=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[3],t10); t12=C_s_a_i_bitwise_and(&a,2,t11,t7); t13=t12; t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14384,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t13,a[5]=t4,a[6]=((C_word)li409),tmp=(C_word)a,a+=7,tmp); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14400,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t9,a[5]=((C_word)li410),tmp=(C_word)a,a+=6,tmp); /* library.scm:2139: ##sys#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t14; av2[3]=t15; C_call_with_values(4,av2);}} /* a14383 in a14366 in ##sys#exact-integer-sqrt in k8510 */ static void C_ccall f_14384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_14384,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_u_integer_quotient_and_remainder,a[2]=((C_word)li408),tmp=(C_word)a,a+=3,tmp); t3=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=C_s_a_u_i_integer_plus(&a,2,t3,((C_word*)t0)[4]); t5=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[5],C_fix(1)); /* library.scm:2139: g2586 */ t6=t2;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t1; av2[2]=t4; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* a14399 in a14366 in ##sys#exact-integer-sqrt in k8510 */ static void C_ccall f_14400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(222,c,3)))){ C_save_and_reclaim((void *)f_14400,4,av);} a=C_alloc(222); t4=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_s_a_i_plus(&a,2,t4,t2); t6=C_s_a_i_arithmetic_shift(&a,2,t3,((C_word*)t0)[3]); t7=C_s_a_i_times(&a,2,t2,t2); t8=C_s_a_i_minus(&a,2,((C_word*)t0)[4],t7); t9=C_s_a_i_plus(&a,2,t6,t8); if(C_truep(C_i_negativep(t9))){ t10=C_s_a_i_minus(&a,2,t5,C_fix(1)); t11=C_s_a_i_arithmetic_shift(&a,2,t5,C_fix(1)); t12=C_s_a_i_plus(&a,2,t9,t11); t13=C_s_a_i_minus(&a,2,t12,C_fix(1)); /* library.scm:2153: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t10; av2[3]=t13; C_values(4,av2);}} else{ /* library.scm:2155: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t9; C_values(4,av2);}}} /* chicken.base#exact-integer-sqrt in k8510 */ static void C_ccall f_14471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14471,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14475,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2159: ##sys#check-exact-uinteger */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[359]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[359]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[587]; tp(4,av2);}} /* k14473 in chicken.base#exact-integer-sqrt in k8510 */ static void C_ccall f_14475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14475,2,av);} /* library.scm:2160: ##sys#exact-integer-sqrt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[584]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[584]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* ##sys#sqrt/loc in k8510 */ static void C_ccall f_14480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ C_save_and_reclaim((void *)f_14480,4,av);} a=C_alloc(32); if(C_truep(C_i_cplxnump(t3))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14490,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=t3; t6=C_u_i_cplxnum_imag(t5); t7=C_a_i_exact_to_inexact(&a,1,t6); t8=C_u_i_cplxnum_real(t5); t9=C_a_i_exact_to_inexact(&a,1,t8); t10=C_flonum(&a,C_atan2(C_flonum_magnitude(t7),C_flonum_magnitude(t9))); /* library.scm:2166: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[527]+1); av2[1]=t4; av2[2]=t10; av2[3]=C_fix(2); tp(4,av2);}} else{ t4=t3; if(C_truep(C_i_negativep(t4))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14530,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=t3; t7=C_s_a_i_negate(&a,1,t6); /* library.scm:2171: scheme#exact->inexact */ t8=*((C_word*)lf[62]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t5; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t5=t3; if(C_truep(C_i_exact_integerp(t5))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14541,a[2]=t3,a[3]=((C_word)li414),tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14547,a[2]=t3,a[3]=((C_word)li415),tmp=(C_word)a,a+=4,tmp); /* library.scm:2173: ##sys#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} else{ if(C_truep(C_i_ratnump(t3))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14569,a[2]=t3,a[3]=((C_word)li416),tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14581,a[2]=t3,a[3]=t2,a[4]=((C_word)li419),tmp=(C_word)a,a+=5,tmp); /* library.scm:2178: ##sys#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14633,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:2186: scheme#exact->inexact */ t7=*((C_word*)lf[62]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}}} /* k14488 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14490,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14494,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2167: scheme#magnitude */ t4=*((C_word*)lf[512]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k14492 in k14488 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_14494,2,av);} a=C_alloc(9); t2=C_a_i_sqrt(&a,1,t1); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14513,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:2168: scheme#cos */ t4=*((C_word*)lf[571]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k14507 in k14511 in k14492 in k14488 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ C_save_and_reclaim((void *)f_14509,2,av);} a=C_alloc(33); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); /* library.scm:2168: make-complex */ f_12608(((C_word*)t0)[3],((C_word*)t0)[4],t2);} /* k14511 in k14492 in k14488 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,2)))){ C_save_and_reclaim((void *)f_14513,2,av);} a=C_alloc(38); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14509,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:2168: scheme#sin */ t5=*((C_word*)lf[567]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k14528 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14530,2,av);} a=C_alloc(4); t2=C_a_i_sqrt(&a,1,t1); /* library.scm:2170: make-complex */ f_12608(((C_word*)t0)[2],lf[501],t2);} /* a14540 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14541,2,av);} /* library.scm:2173: ##sys#exact-integer-sqrt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[584]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[584]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* a14546 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_14547,4,av);} a=C_alloc(3); t4=C_eqp(C_fix(0),t3); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14558,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:2176: scheme#exact->inexact */ t6=*((C_word*)lf[62]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k14556 in a14546 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_14558,2,av);} a=C_alloc(4); t2=C_a_i_sqrt(&a,1,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a14568 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14569,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_ratnum_num(t2); /* library.scm:2178: ##sys#exact-integer-sqrt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[584]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[584]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} /* a14580 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_14581,4,av);} a=C_alloc(10); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14593,a[2]=((C_word*)t0)[2],a[3]=((C_word)li417),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14605,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li418),tmp=(C_word)a,a+=6,tmp); /* library.scm:2180: ##sys#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14629,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2185: scheme#exact->inexact */ t6=*((C_word*)lf[62]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* a14592 in a14580 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14593,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_ratnum_denom(t2); /* library.scm:2181: ##sys#exact-integer-sqrt */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[584]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[584]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} /* a14604 in a14580 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14605,4,av);} a=C_alloc(4); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ /* library.scm:2183: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[527]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; tp(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14622,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2184: scheme#exact->inexact */ t6=*((C_word*)lf[62]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k14620 in a14604 in a14580 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14622,2,av);} /* library.scm:2184: ##sys#sqrt/loc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[578]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[578]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k14627 in a14580 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14629,2,av);} /* library.scm:2185: ##sys#sqrt/loc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[578]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[578]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k14631 in ##sys#sqrt/loc in k8510 */ static void C_ccall f_14633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_14633,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_sqrt(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* scheme#sqrt in k8510 */ static void C_ccall f_14635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14635,3,av);} /* library.scm:2188: ##sys#sqrt/loc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[578]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[578]+1); av2[1]=t1; av2[2]=lf[588]; av2[3]=t2; tp(4,av2);}} /* chicken.base#exact-integer-nth-root in k8510 */ static void C_ccall f_14641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14641,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14645,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:2192: ##sys#check-exact-uinteger */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[359]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[359]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[591]; tp(4,av2);}} /* k14643 in chicken.base#exact-integer-nth-root in k8510 */ static void C_ccall f_14645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_14645,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14648,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:2193: ##sys#check-exact-uinteger */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[359]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[359]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=lf[591]; tp(4,av2);}} /* k14646 in k14643 in chicken.base#exact-integer-nth-root in k8510 */ static void C_ccall f_14648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14648,2,av);} /* library.scm:2194: ##sys#exact-integer-nth-root/loc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[590]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[590]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[591]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} /* ##sys#exact-integer-nth-root/loc in k8510 */ static void C_ccall f_14653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_14653,5,av);} a=C_alloc(5); t5=C_eqp(C_fix(0),t3); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14663,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t7=t6; f_14663(t7,t5);} else{ t7=C_eqp(C_fix(1),t3); t8=t6; f_14663(t8,(C_truep(t7)?t7:C_eqp(C_fix(1),t4)));}} /* k14661 in ##sys#exact-integer-nth-root/loc in k8510 */ static void C_fcall f_14663(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){ C_save_and_reclaim_args((void *)trf_14663,2,t0,t1);} a=C_alloc(29); if(C_truep(t1)){ /* library.scm:2200: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(0); C_values(4,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_i_integer_length(t2); if(C_truep(C_i_lessp(t3,((C_word*)t0)[4]))){ t4=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1)); /* library.scm:2203: scheme#values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); av2[3]=t4; C_values(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14683,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14759,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14763,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t7=C_fixnum_plus(t3,C_fix(1)); t8=((C_word*)t0)[4]; /* ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[527]+1); av2[1]=t6; av2[2]=t7; av2[3]=t8; tp(4,av2);}}}} /* k14681 in k14661 in ##sys#exact-integer-nth-root/loc in k8510 */ static void C_ccall f_14683(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(75,c,3)))){ C_save_and_reclaim((void *)f_14683,2,av);} a=C_alloc(75); t2=C_s_a_i_arithmetic_shift(&a,2,C_fix(1),t1); t3=t2; t4=C_s_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); t5=t4; t6=C_s_a_i_times(&a,2,t5,t3); t7=t6; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14755,a[2]=((C_word*)t0)[3],a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=((C_word*)t0)[4],a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* library.scm:2211: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[529]+1); av2[1]=t8; av2[2]=t3; av2[3]=t5; tp(4,av2);}} /* lp in k14753 in k14681 in k14661 in ##sys#exact-integer-nth-root/loc in k8510 */ static void C_fcall f_14698(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,0,3)))){ C_save_and_reclaim_args((void *)trf_14698,4,t0,t1,t2,t3);} a=C_alloc(41); if(C_truep(C_i_lessp(t3,t2))){ t4=C_s_a_i_times(&a,2,((C_word*)t0)[2],t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14728,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* library.scm:2216: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[529]+1); av2[1]=t6; av2[2]=t3; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14739,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:2218: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[529]+1); av2[1]=t4; av2[2]=t2; av2[3]=((C_word*)t0)[4]; tp(4,av2);}}} /* k14726 in lp in k14753 in k14681 in k14661 in ##sys#exact-integer-nth-root/loc in k8510 */ static void C_ccall f_14728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){ C_save_and_reclaim((void *)f_14728,2,av);} a=C_alloc(39); t2=C_s_a_i_quotient(&a,2,((C_word*)t0)[2],t1); t3=C_s_a_i_plus(&a,2,((C_word*)t0)[3],t2); t4=C_s_a_i_quotient(&a,2,t3,((C_word*)t0)[4]); /* library.scm:2214: lp */ t5=((C_word*)((C_word*)t0)[5])[1]; f_14698(t5,((C_word*)t0)[6],((C_word*)t0)[7],t4);} /* k14737 in lp in k14753 in k14681 in k14661 in ##sys#exact-integer-nth-root/loc in k8510 */ static void C_ccall f_14739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_14739,2,av);} a=C_alloc(29); t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],t1); /* library.scm:2218: scheme#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t2; C_values(4,av2);}} /* k14753 in k14681 in k14661 in ##sys#exact-integer-nth-root/loc in k8510 */ static void C_ccall f_14755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(48,c,4)))){ C_save_and_reclaim((void *)f_14755,2,av);} a=C_alloc(48); t2=C_s_a_i_quotient(&a,2,((C_word*)t0)[2],t1); t3=C_s_a_i_plus(&a,2,((C_word*)t0)[3],t2); t4=C_s_a_i_quotient(&a,2,t3,((C_word*)t0)[4]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14698,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=((C_word)li423),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_14698(t8,((C_word*)t0)[6],((C_word*)t0)[7],t4);} /* k14757 in k14661 in ##sys#exact-integer-nth-root/loc in k8510 */ static void C_ccall f_14759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14759,2,av);} /* library.scm:2205: scheme#inexact->exact */ t2=*((C_word*)lf[519]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k14761 in k14661 in ##sys#exact-integer-nth-root/loc in k8510 */ static void C_ccall f_14763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_14763,2,av);} /* library.scm:2205: scheme#ceiling */ t2=*((C_word*)lf[547]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* ##sys#integer-power in k8510 */ static void C_ccall f_14779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_14779,4,av);} a=C_alloc(8); t4=t3; if(C_truep(C_i_negativep(t4))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14797,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=t3; t7=C_s_a_u_i_integer_negate(&a,1,t6); /* library.scm:2223: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[529]+1); av2[1]=t5; av2[2]=t2; av2[3]=t7; tp(4,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14808,a[2]=t6,a[3]=t2,a[4]=((C_word)li425),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_14808(t8,t1,C_fix(1),t3);}} /* k14795 in ##sys#integer-power in k8510 */ static void C_ccall f_14797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_14797,2,av);} /* library.scm:2223: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_fix(1); av2[3]=t1; tp(4,av2);}} /* lp in ##sys#integer-power in k8510 */ static void C_fcall f_14808(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(62,0,3)))){ C_save_and_reclaim_args((void *)trf_14808,4,t0,t1,t2,t3);} a=C_alloc(62); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ t5=t2; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=t3; if(C_truep(C_i_evenp(t5))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14830,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t7=C_s_a_i_arithmetic_shift(&a,2,t3,C_fix(-1)); /* library.scm:2228: lp */ t9=t6; t10=C_fix(1); t11=t7; t1=t9; t2=t10; t3=t11; goto loop;} else{ t6=C_s_a_i_times(&a,2,t2,((C_word*)t0)[3]); t7=C_s_a_i_minus(&a,2,t3,C_fix(1)); /* library.scm:2230: lp */ t9=t1; t10=t6; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}}} /* k14828 in lp in ##sys#integer-power in k8510 */ static void C_ccall f_14830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(66,c,1)))){ C_save_and_reclaim((void *)f_14830,2,av);} a=C_alloc(66); t2=C_s_a_i_times(&a,2,t1,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#expt in k8510 */ static void C_ccall f_14847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ C_save_and_reclaim((void *)f_14847,4,av);} a=C_alloc(17); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14850,a[2]=((C_word)li427),tmp=(C_word)a,a+=3,tmp)); t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14864,a[2]=((C_word)li428),tmp=(C_word)a,a+=3,tmp)); t10=C_i_numberp(t2); if(C_truep(C_i_not(t10))){ /* library.scm:2242: ##sys#error-bad-number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[371]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[371]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[592]; tp(4,av2);}} else{ t11=C_i_numberp(t3); if(C_truep(C_i_not(t11))){ /* library.scm:2243: ##sys#error-bad-number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[371]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[371]+1); av2[1]=t1; av2[2]=t3; av2[3]=lf[592]; tp(4,av2);}} else{ t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14909,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t5,a[6]=t7,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_ratnump(t2))){ t13=C_i_inexactp(t3); t14=t12; f_14909(t14,C_i_not(t13));} else{ t13=t12; f_14909(t13,C_SCHEME_FALSE);}}}} /* log-expt in scheme#expt in k8510 */ static void C_fcall f_14850(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_14850,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14862,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:2235: ##sys#log-1 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[562]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[562]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}} /* k14860 in log-expt in scheme#expt in k8510 */ static void C_ccall f_14862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_14862,2,av);} a=C_alloc(33); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); /* library.scm:2235: scheme#exp */ t3=*((C_word*)lf[560]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* slow-expt in scheme#expt in k8510 */ static void C_fcall f_14864(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,6)))){ C_save_and_reclaim_args((void *)trf_14864,3,t1,t2,t3);} a=C_alloc(4); t4=C_eqp(C_fix(0),t2); if(C_truep(t4)){ /* library.scm:2238: ##sys#signal-hook */ t5=C_fast_retrieve(lf[194]);{ C_word av2[7]; av2[0]=t5; av2[1]=t1; av2[2]=lf[563]; av2[3]=lf[592]; av2[4]=lf[593]; av2[5]=t2; av2[6]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14885,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:2241: ##sys#log-1 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[562]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[562]+1); av2[1]=t5; av2[2]=t2; tp(3,av2);}}} /* k14883 in slow-expt in scheme#expt in k8510 */ static void C_ccall f_14885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_14885,2,av);} a=C_alloc(33); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); /* library.scm:2241: scheme#exp */ t3=*((C_word*)lf[560]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k14907 in scheme#expt in k8510 */ static void C_fcall f_14909(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_14909,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_ratnum_num(t3); /* library.scm:2247: scheme#expt */ t5=*((C_word*)lf[531]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t2; av2[2]=t4; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ if(C_truep(C_i_ratnump(((C_word*)t0)[4]))){ t2=((C_word*)t0)[3]; if(C_truep(C_i_exact_integerp(t2))){ t3=((C_word*)t0)[3]; if(C_truep(C_i_negativep(t3))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14955,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:2254: scheme#exact->inexact */ t5=*((C_word*)lf[62]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14962,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word)li429),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14974,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word)li430),tmp=(C_word)a,a+=5,tmp); /* library.scm:2255: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}}} else{ if(C_truep(C_i_flonump(((C_word*)t0)[3]))){ t3=((C_word*)t0)[4]; t4=C_a_i_exact_to_inexact(&a,1,t3); /* library.scm:2264: log-expt */ f_14850(((C_word*)t0)[2],((C_word*)t0)[3],t4);} else{ /* library.scm:2265: slow-expt */ f_14864(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);}}} else{ t2=C_i_cplxnump(((C_word*)t0)[4]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15018,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(t2)){ t4=t3; f_15018(t4,t2);} else{ if(C_truep(C_i_cplxnump(((C_word*)t0)[3]))){ t4=((C_word*)t0)[4]; t5=C_i_integerp(t4); t6=t3; f_15018(t6,C_i_not(t5));} else{ t4=t3; f_15018(t4,C_SCHEME_FALSE);}}}}} /* k14914 in k14907 in scheme#expt in k8510 */ static void C_ccall f_14916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ C_save_and_reclaim((void *)f_14916,2,av);} a=C_alloc(33); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14920,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_ratnum_denom(t4); t6=((C_word*)t0)[4]; t7=C_s_a_i_negate(&a,1,t6); /* library.scm:2248: scheme#expt */ t8=*((C_word*)lf[531]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t3; av2[2]=t5; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k14918 in k14914 in k14907 in scheme#expt in k8510 */ static void C_ccall f_14920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ C_save_and_reclaim((void *)f_14920,2,av);} a=C_alloc(33); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k14953 in k14907 in scheme#expt in k8510 */ static void C_ccall f_14955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_14955,2,av);} a=C_alloc(11); t2=((C_word*)t0)[2]; t3=C_a_i_exact_to_inexact(&a,1,t2); /* library.scm:2254: log-expt */ f_14850(((C_word*)t0)[4],t1,t3);} /* a14961 in k14907 in scheme#expt in k8510 */ static void C_ccall f_14962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_14962,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_ratnum_denom(t2); /* library.scm:2256: ##sys#exact-integer-nth-root/loc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[590]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[590]+1); av2[1]=t1; av2[2]=lf[592]; av2[3]=((C_word*)t0)[3]; av2[4]=t3; tp(5,av2);}} /* a14973 in k14907 in scheme#expt in k8510 */ static void C_ccall f_14974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_14974,4,av);} a=C_alloc(4); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ t5=((C_word*)t0)[2]; t6=C_u_i_ratnum_num(t5); /* library.scm:2259: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[529]+1); av2[1]=t1; av2[2]=t2; av2[3]=t6; tp(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14994,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:2261: scheme#exact->inexact */ t6=*((C_word*)lf[62]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k14992 in a14973 in k14907 in scheme#expt in k8510 */ static void C_ccall f_14994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_14994,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14998,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:2262: scheme#exact->inexact */ t4=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k14996 in k14992 in a14973 in k14907 in scheme#expt in k8510 */ static void C_ccall f_14998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_14998,2,av);} a=C_alloc(4); t2=C_a_i_flonum_expt(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k15016 in k14907 in scheme#expt in k8510 */ static void C_fcall f_15018(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_15018,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ /* library.scm:2267: slow-expt */ f_14864(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15027,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_flonump(((C_word*)t0)[5]))){ t3=C_u_i_fpintegerp(((C_word*)t0)[5]); t4=t2; f_15027(t4,C_i_not(t3));} else{ t3=t2; f_15027(t3,C_SCHEME_FALSE);}}} /* k15025 in k15016 in k14907 in scheme#expt in k8510 */ static void C_fcall f_15027(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_15027,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2]; if(C_truep(C_i_negativep(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15038,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:2271: scheme#exact->inexact */ t4=*((C_word*)lf[62]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15046,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:2273: scheme#exact->inexact */ t4=*((C_word*)lf[62]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} else{ if(C_truep(C_i_flonump(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15053,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:2275: scheme#exact->inexact */ t3=*((C_word*)lf[62]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_i_inexactp(((C_word*)t0)[2]); t3=(C_truep(t2)?t2:C_i_inexactp(((C_word*)t0)[5])); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15069,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15073,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:2279: scheme#inexact->exact */ t6=*((C_word*)lf[519]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* library.scm:2280: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[529]+1); av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[5]; tp(4,av2);}}}}} /* k15036 in k15025 in k15016 in k14907 in scheme#expt in k8510 */ static void C_ccall f_15038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_15038,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15042,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:2271: scheme#exact->inexact */ t4=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15040 in k15036 in k15025 in k15016 in k14907 in scheme#expt in k8510 */ static void C_ccall f_15042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15042,2,av);} /* library.scm:2271: log-expt */ f_14850(((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k15044 in k15025 in k15016 in k14907 in scheme#expt in k8510 */ static void C_ccall f_15046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_15046,2,av);} a=C_alloc(4); t2=C_a_i_flonum_expt(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k15051 in k15025 in k15016 in k14907 in scheme#expt in k8510 */ static void C_ccall f_15053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_15053,2,av);} a=C_alloc(4); t2=C_a_i_flonum_expt(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k15067 in k15025 in k15016 in k14907 in scheme#expt in k8510 */ static void C_ccall f_15069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_15069,2,av);} /* library.scm:2279: scheme#exact->inexact */ t2=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k15071 in k15025 in k15016 in k14907 in scheme#expt in k8510 */ static void C_ccall f_15073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15073,2,av);} /* library.scm:2279: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[529]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* ##sys#internal-gcd in k8510 */ static void C_fcall f_15114(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_15114,4,t1,t2,t3,t4);} a=C_alloc(5); t5=t3; if(C_truep(C_i_exact_integerp(t5))){ t6=t4; if(C_truep(C_i_exact_integerp(t6))){ t7=t1; t8=t3; t9=t4; t10=t7;{ C_word av2[2]; av2[0]=t10; av2[1]=C_s_a_u_i_integer_gcd(&a,2,t8,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t7=(C_truep(C_i_flonump(t4))?C_u_i_fpintegerp(t4):C_SCHEME_FALSE); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15147,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:2288: scheme#inexact->exact */ t9=*((C_word*)lf[519]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ /* library.scm:2289: ##sys#error-bad-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[356]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[356]+1); av2[1]=t1; av2[2]=t4; av2[3]=t2; tp(4,av2);}}}} else{ t6=(C_truep(C_i_flonump(t3))?C_u_i_fpintegerp(t3):C_SCHEME_FALSE); if(C_truep(t6)){ if(C_truep(C_i_flonump(t4))){ t7=C_a_i_flonum_gcd(&a,2,t3,t4); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=t4; if(C_truep(C_i_exact_integerp(t7))){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15176,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:2295: scheme#inexact->exact */ t9=*((C_word*)lf[519]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ /* library.scm:2296: ##sys#error-bad-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[356]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[356]+1); av2[1]=t1; av2[2]=t4; av2[3]=t2; tp(4,av2);}}}} else{ /* library.scm:2297: ##sys#error-bad-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[356]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[356]+1); av2[1]=t1; av2[2]=t3; av2[3]=t2; tp(4,av2);}}}} /* k15145 in ##sys#internal-gcd in k8510 */ static void C_ccall f_15147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_15147,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_s_a_u_i_integer_gcd(&a,2,t2,t1); /* library.scm:2288: scheme#exact->inexact */ t4=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k15174 in ##sys#internal-gcd in k8510 */ static void C_ccall f_15176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_15176,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2]; t3=C_s_a_u_i_integer_gcd(&a,2,t1,t2); /* library.scm:2295: scheme#exact->inexact */ t4=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* ##sys#gcd in k8510 */ static void C_ccall f_15184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15184,4,av);} /* library.scm:2299: ##sys#internal-gcd */ f_15114(t1,lf[595],t2,t3);} /* scheme#gcd in k8510 */ static void C_ccall f_15190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_15190,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t3=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t3)){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_slot(t2,C_fix(0)); t5=C_slot(t2,C_fix(1)); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15210,a[2]=t7,a[3]=((C_word)li434),tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_15210(t9,t1,t4,t5);}} /* loop in scheme#gcd in k8510 */ static void C_fcall f_15210(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_15210,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_nullp(t3))){ t4=t2; if(C_truep(C_i_integerp(t4))){ t5=t2; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_s_a_i_abs(&a,1,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* library.scm:2308: ##sys#error-bad-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[356]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[356]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[595]; tp(4,av2);}}} else{ t4=C_slot(t3,C_fix(0)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15235,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:2310: ##sys#internal-gcd */ f_15114(t5,lf[595],t2,t4);}} /* k15233 in loop in scheme#gcd in k8510 */ static void C_ccall f_15235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_15235,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:2310: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_15210(t3,((C_word*)t0)[4],t1,t2);} /* ##sys#lcm in k8510 */ static void C_ccall f_15241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_15241,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15245,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:2314: ##sys#internal-gcd */ f_15114(t4,lf[598],t2,t3);} /* k15243 in ##sys#lcm in k8510 */ static void C_ccall f_15245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(45,c,1)))){ C_save_and_reclaim((void *)f_15245,2,av);} a=C_alloc(45); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_s_a_i_quotient(&a,2,t2,t1); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_s_a_i_abs(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#lcm in k8510 */ static void C_ccall f_15255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_15255,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=C_slot(t2,C_fix(1)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15275,a[2]=t6,a[3]=((C_word)li437),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_15275(t8,t1,t3,t4);}} /* loop in scheme#lcm in k8510 */ static void C_fcall f_15275(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_15275,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_nullp(t3))){ t4=t2; if(C_truep(C_i_integerp(t4))){ t5=t2; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_s_a_i_abs(&a,1,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ /* library.scm:2324: ##sys#error-bad-integer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[356]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[356]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[598]; tp(4,av2);}}} else{ t4=C_slot(t3,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15296,a[2]=t2,a[3]=t5,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* library.scm:2326: ##sys#internal-gcd */ f_15114(t6,lf[598],t2,t5);}} /* k15294 in loop in scheme#lcm in k8510 */ static void C_ccall f_15296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,3)))){ C_save_and_reclaim((void *)f_15296,2,av);} a=C_alloc(38); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_s_a_i_quotient(&a,2,t2,t1); t4=C_slot(((C_word*)t0)[4],C_fix(1)); /* library.scm:2327: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_15275(t5,((C_word*)t0)[6],t3,t4);} /* ##sys#integer->string/recursive in k8510 */ static void C_ccall f_15313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_15313,5,av);} a=C_alloc(6); t5=C_fixnum_plus(t4,C_fix(1)); t6=C_fixnum_shift_right(t5,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15320,a[2]=t2,a[3]=t7,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:2334: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[529]+1); av2[1]=t8; av2[2]=t3; av2[3]=t7; tp(4,av2);}} /* k15318 in ##sys#integer->string/recursive in k8510 */ static void C_ccall f_15320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_15320,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15325,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li440),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15331,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li441),tmp=(C_word)a,a+=5,tmp); /* library.scm:2333: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a15324 in k15318 in ##sys#integer->string/recursive in k8510 */ static void C_ccall f_15325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_15325,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_u_integer_quotient_and_remainder,a[2]=((C_word)li439),tmp=(C_word)a,a+=3,tmp); /* library.scm:2333: g2771 */ t3=t2;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* a15330 in k15318 in ##sys#integer->string/recursive in k8510 */ static void C_ccall f_15331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_15331,4,av);} a=C_alloc(6); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15335,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t6=((C_word*)t0)[3]; /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[601]+1); av2[1]=t5; av2[2]=t2; av2[3]=t6; tp(4,av2);}} /* k15333 in a15330 in k15318 in ##sys#integer->string/recursive in k8510 */ static void C_ccall f_15335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_15335,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15338,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_s_a_i_abs(&a,1,((C_word*)t0)[4]); t5=((C_word*)t0)[5]; /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=t4; av2[3]=t5; tp(4,av2);}} /* k15336 in k15333 in a15330 in k15318 in ##sys#integer->string/recursive in k8510 */ static void C_ccall f_15338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_15338,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15345,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_block_size(t2); t5=C_fixnum_difference(((C_word*)t0)[4],t4); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[377]+1); av2[1]=t3; av2[2]=t5; av2[3]=C_make_character(48); tp(4,av2);}} /* k15343 in k15336 in k15333 in a15330 in k15318 in ##sys#integer->string/recursive in k8510 */ static void C_ccall f_15345(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15345,2,av);} /* library.scm:2339: scheme#string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* ##sys#extended-number->string in k8510 */ static void C_ccall f_15366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_15366,4,av);} a=C_alloc(5); if(C_truep(C_i_ratnump(t2))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15380,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=t2; t6=C_u_i_ratnum_num(t5); t7=t3; /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[601]+1); av2[1]=t4; av2[2]=t6; av2[3]=t7; tp(4,av2);}} else{ if(C_truep(C_i_cplxnump(t2))){ t4=t2; t5=C_u_i_cplxnum_real(t4); t6=t2; t7=C_u_i_cplxnum_imag(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15421,a[2]=t8,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t10=t3; /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[601]+1); av2[1]=t9; av2[2]=t5; av2[3]=t10; tp(4,av2);}} else{ /* library.scm:2361: ##sys#error-bad-number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[371]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[371]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[607]; tp(4,av2);}}}} /* k15378 in ##sys#extended-number->string in k8510 */ static void C_ccall f_15380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_15380,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15384,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_ratnum_denom(t4); t6=((C_word*)t0)[4]; /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=t5; av2[3]=t6; tp(4,av2);}} /* k15382 in k15378 in ##sys#extended-number->string in k8510 */ static void C_ccall f_15384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_15384,2,av);} /* library.scm:2349: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[603]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k15419 in ##sys#extended-number->string in k8510 */ static void C_ccall f_15421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_15421,2,av);} a=C_alloc(5); t2=t1; t3=(C_truep(C_i_finitep(((C_word*)t0)[2]))?(C_truep(C_i_positivep(((C_word*)t0)[2]))?lf[604]:lf[605]):lf[605]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15429,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=((C_word*)t0)[4]; /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t6; tp(4,av2);}} /* k15427 in k15419 in ##sys#extended-number->string in k8510 */ static void C_ccall f_15429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_15429,2,av);} /* library.scm:2356: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; av2[5]=lf[606]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k15456 in safe-exponent in ##sys#string->compnum in k8510 */ static void C_ccall f_15458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(44,c,1)))){ C_save_and_reclaim((void *)f_15458,2,av);} a=C_alloc(44); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_exact_to_inexact(&a,1,t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k15459 in safe-exponent in ##sys#string->compnum in k8510 */ static void C_ccall f_15461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_15461,2,av);} a=C_alloc(13); t2=t1; t3=C_i_integer_length(((C_word*)t0)[2]); t4=C_i_integer_length(t2); t5=C_fixnum_difference(t3,t4); t6=C_fixnum_difference(t5,*((C_word*)lf[426]+1)); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); if(C_truep(C_fixnum_lessp(((C_word*)t8)[1],C_fix(0)))){ t9=C_fixnum_negate(((C_word*)t8)[1]); t10=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],t9); t11=t10; t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15476,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t11,tmp=(C_word)a,a+=6,tmp); /* library.scm:2380: round-quotient */ f_15540(t12,t11,t2);} else{ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15515,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:2387: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[529]+1); av2[1]=t9; av2[2]=C_fix(10); av2[3]=((C_word*)t0)[4]; tp(4,av2);}}} /* k15474 in k15459 in safe-exponent in ##sys#string->compnum in k8510 */ static void C_ccall f_15476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(44,c,3)))){ C_save_and_reclaim((void *)f_15476,2,av);} a=C_alloc(44); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15479,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t3)[1]; t6=C_i_integer_length(t5); t7=*((C_word*)lf[426]+1); if(C_truep(C_fixnum_greaterp(t6,*((C_word*)lf[426]+1)))){ t8=C_fixnum_plus(C_fix(1),((C_word*)((C_word*)t0)[2])[1]); t9=C_set_block_item(((C_word*)t0)[2],0,t8); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15497,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t11=C_s_a_i_times(&a,2,((C_word*)t0)[4],C_fix(2)); /* library.scm:2384: round-quotient */ f_15540(t10,((C_word*)t0)[5],t11);} else{ t8=t4; f_15479(t8,C_SCHEME_UNDEFINED);}} /* k15477 in k15474 in k15459 in safe-exponent in ##sys#string->compnum in k8510 */ static void C_fcall f_15479(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_15479,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15486,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2385: scheme#exact->inexact */ t3=*((C_word*)lf[62]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k15484 in k15477 in k15474 in k15459 in safe-exponent in ##sys#string->compnum in k8510 */ static void C_ccall f_15486(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_15486,2,av);} a=C_alloc(6); t2=((C_word*)((C_word*)t0)[2])[1]; t3=C_a_i_bytevector(&a,1,C_fix(4)); t4=C_i_foreign_flonum_argumentp(t1); t5=C_i_foreign_fixnum_argumentp(t2); t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=stub2825(t3,t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k15495 in k15474 in k15459 in safe-exponent in ##sys#string->compnum in k8510 */ static void C_ccall f_15497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_15497,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_15479(t3,t2);} /* k15513 in k15459 in safe-exponent in ##sys#string->compnum in k8510 */ static void C_ccall f_15515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ C_save_and_reclaim((void *)f_15515,2,av);} a=C_alloc(33); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* round-quotient in k8510 */ static void C_fcall f_15540(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(63,0,3)))){ C_save_and_reclaim_args((void *)trf_15540,3,t1,t2,t3);} a=C_alloc(63); t4=t2; t5=t3; t6=C_s_a_u_i_integer_quotient(&a,2,t4,t5); t7=t6; t8=(C_truep(C_i_evenp(t7))?*((C_word*)lf[73]+1):*((C_word*)lf[75]+1)); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15555,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp); t10=C_s_a_i_remainder(&a,2,t2,t3); t11=C_s_a_i_abs(&a,1,t10); t12=C_s_a_i_times(&a,2,t11,C_fix(2)); t13=t3; t14=C_s_a_i_abs(&a,1,t13); /* library.scm:2394: g2838 */ t15=t8;{ C_word av2[4]; av2[0]=t15; av2[1]=t9; av2[2]=t12; av2[3]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} /* k15553 in round-quotient in k8510 */ static void C_ccall f_15555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_15555,2,av);} a=C_alloc(29); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_negativep(t2); t4=((C_word*)t0)[3]; t5=C_i_negativep(t4); t6=C_eqp(t3,t5); t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=(C_truep(t6)?C_s_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(1)):C_s_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(-1))); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* ##sys#string->compnum in k8510 */ static void C_fcall f_15583(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(83,0,5)))){ C_save_and_reclaim_args((void *)trf_15583,5,t1,t2,t3,t4,t5);} a=C_alloc(83); t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15586,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t12=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15596,a[2]=t6,a[3]=((C_word)li445),tmp=(C_word)a,a+=4,tmp)); t13=C_block_size(t3); t14=t13; t15=C_fixnum_difference(t2,C_fix(1)); t16=C_fixnum_plus(C_fix(48),t15); t17=C_make_character(C_unfix(t16)); t18=t17; t19=C_fixnum_difference(t2,C_fix(11)); t20=C_fixnum_plus(C_fix(97),t19); t21=C_make_character(C_unfix(t20)); t22=t21; t23=C_fixnum_difference(t2,C_fix(11)); t24=C_fixnum_plus(C_fix(65),t23); t25=C_make_character(C_unfix(t24)); t26=t25; t27=C_SCHEME_FALSE; t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp); t29=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15676,a[2]=t14,a[3]=t3,a[4]=t2,a[5]=t18,a[6]=t22,a[7]=t26,a[8]=((C_word)li447),tmp=(C_word)a,a+=9,tmp); t30=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15784,a[2]=t14,a[3]=t3,a[4]=((C_word)li449),tmp=(C_word)a,a+=5,tmp); t31=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15834,a[2]=t3,a[3]=t2,a[4]=t28,a[5]=t8,a[6]=t30,a[7]=t29,a[8]=((C_word)li450),tmp=(C_word)a,a+=9,tmp); t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15890,a[2]=t14,a[3]=t3,a[4]=t8,a[5]=t2,a[6]=t29,a[7]=((C_word)li451),tmp=(C_word)a,a+=8,tmp); t33=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15951,a[2]=t14,a[3]=t10,a[4]=t32,a[5]=t3,a[6]=t31,a[7]=((C_word)li452),tmp=(C_word)a,a+=8,tmp); t34=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_16165,a[2]=t8,a[3]=t33,a[4]=t2,a[5]=t14,a[6]=t10,a[7]=t32,a[8]=t28,a[9]=t6,a[10]=t31,a[11]=t3,a[12]=((C_word)li453),tmp=(C_word)a,a+=13,tmp); t35=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16508,a[2]=t14,a[3]=t3,a[4]=t34,a[5]=t8,a[6]=((C_word)li454),tmp=(C_word)a,a+=7,tmp); t36=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16740,a[2]=t6,a[3]=t1,a[4]=t14,a[5]=t3,a[6]=t4,a[7]=t28,a[8]=t35,tmp=(C_word)a,a+=9,tmp); /* library.scm:2576: scan-real */ t37=t35; f_16508(t37,t36,t4);} /* go-inexact! in ##sys#string->compnum in k8510 */ static C_word C_fcall f_15586(C_word t0){ C_word tmp; C_word t1; C_word t2; C_word t3; C_stack_overflow_check;{} t1=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[610]); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; return(t2);} else{ t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[611]); return(t2);}} /* safe-exponent in ##sys#string->compnum in k8510 */ static void C_fcall f_15596(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_15596,4,t0,t1,t2,t3);} a=C_alloc(12); if(C_truep(t3)){ if(C_truep(C_i_not(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_greaterp(t3,C_fix(10000)))){ t4=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[611]); if(C_truep(t4)){ t5=t2; if(C_truep(C_i_zerop(t5))){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=lf[501]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_greaterp(t2,lf[501]); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=(C_truep(t6)?lf[612]:lf[613]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=C_fixnum_negate(C_fix(10000)); if(C_truep(C_i_lessp(t3,t4))){ t5=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[611]); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(t5)?lf[501]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[611]); if(C_truep(t5)){ t6=t1; t7=t2; t8=t3; t9=C_i_negativep(t8); if(C_truep(C_i_not(t9))){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15458,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:2373: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[529]+1); av2[1]=t10; av2[2]=C_fix(10); av2[3]=t8; tp(4,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15461,a[2]=t7,a[3]=t6,a[4]=t8,tmp=(C_word)a,a+=5,tmp); t11=C_s_a_i_abs(&a,1,t8); /* library.scm:2374: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[529]+1); av2[1]=t10; av2[2]=C_fix(10); av2[3]=t11; tp(4,av2);}}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15656,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2415: ##sys#integer-power */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[529]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[529]+1); av2[1]=t6; av2[2]=C_fix(10); av2[3]=t3; tp(4,av2);}}}}}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k15654 in safe-exponent in ##sys#string->compnum in k8510 */ static void C_ccall f_15656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ C_save_and_reclaim((void *)f_15656,2,av);} a=C_alloc(33); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* scan-digits in ##sys#string->compnum in k8510 */ static void C_fcall f_15676(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_15676,3,t0,t1,t2);} a=C_alloc(13); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15682,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t4,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li446),tmp=(C_word)a,a+=11,tmp)); t6=((C_word*)t4)[1]; f_15682(t6,t1,t2);} /* lp in scan-digits in ##sys#string->compnum in k8510 */ static void C_fcall f_15682(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_15682,3,t0,t1,t2);} a=C_alloc(6); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_fixnum_greaterp(t2,((C_word*)t0)[3]); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=(C_truep(t4)?C_a_i_cons(&a,2,t2,C_SCHEME_FALSE):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=((C_word*)t0)[4]; t5=t2; t6=C_subchar(t4,t5); if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[5],C_fix(10)))){ t7=C_i_char_greater_or_equal_p(t6,C_make_character(48)); t8=(C_truep(t7)?C_u_i_char_less_or_equal_p(t6,((C_word*)t0)[6]):C_SCHEME_FALSE); if(C_truep(t8)){ t9=C_fixnum_plus(t2,C_fix(1)); /* library.scm:2439: lp */ t12=t1; t13=t9; t1=t12; t2=t13; goto loop;} else{ t9=C_fixnum_greaterp(t2,((C_word*)t0)[3]); t10=t1;{ C_word av2[2]; av2[0]=t10; av2[1]=(C_truep(t9)?C_a_i_cons(&a,2,t2,t2):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} else{ t7=C_i_char_greater_or_equal_p(t6,C_make_character(48)); t8=(C_truep(t7)?C_u_i_char_less_or_equal_p(t6,C_make_character(57)):C_SCHEME_FALSE); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15745,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(t8)){ t10=t9; f_15745(t10,t8);} else{ t10=(C_truep(C_u_i_char_greater_or_equal_p(t6,C_make_character(97)))?C_u_i_char_less_or_equal_p(t6,((C_word*)t0)[8]):C_SCHEME_FALSE); t11=t9; f_15745(t11,(C_truep(t10)?t10:(C_truep(C_u_i_char_greater_or_equal_p(t6,C_make_character(65)))?C_u_i_char_less_or_equal_p(t6,((C_word*)t0)[9]):C_SCHEME_FALSE)));}}}} /* k15743 in lp in scan-digits in ##sys#string->compnum in k8510 */ static void C_fcall f_15745(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_15745,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:2444: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_15682(t3,((C_word*)t0)[4],t2);} else{ t2=C_fixnum_greaterp(((C_word*)t0)[2],((C_word*)t0)[5]); t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=(C_truep(t2)?C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[2]):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* scan-hashes in ##sys#string->compnum in k8510 */ static void C_fcall f_15784(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_15784,3,t0,t1,t2);} a=C_alloc(9); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15790,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word)li448),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_15790(t6,t1,t2);} /* lp in scan-hashes in ##sys#string->compnum in k8510 */ static void C_fcall f_15790(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_15790,3,t0,t1,t2);} a=C_alloc(3); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_fixnum_greaterp(t2,((C_word*)t0)[3]); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=(C_truep(t4)?C_a_i_cons(&a,2,t2,C_SCHEME_FALSE):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=((C_word*)t0)[4]; t5=t2; t6=C_subchar(t4,t5); t7=C_eqp(t6,C_make_character(35)); if(C_truep(t7)){ t8=C_fixnum_plus(t2,C_fix(1)); /* library.scm:2453: lp */ t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t8=C_fixnum_greaterp(t2,((C_word*)t0)[3]); t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=(C_truep(t8)?C_a_i_cons(&a,2,t2,t2):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}} /* scan-digits+hashes in ##sys#string->compnum in k8510 */ static void C_fcall f_15834(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_15834,5,t0,t1,t2,t3,t4);} a=C_alloc(11); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15838,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=((C_word*)t0)[6],a[10]=t4,tmp=(C_word)a,a+=11,tmp); if(C_truep(C_i_not(((C_word*)((C_word*)t0)[4])[1]))){ /* library.scm:2457: scan-digits */ t6=((C_word*)t0)[7]; f_15676(t6,t5,t2);} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_15838(2,av2);}}} /* k15836 in scan-digits+hashes in ##sys#string->compnum in k8510 */ static void C_ccall f_15838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_15838,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15841,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(t2)){ if(C_truep(C_i_cdr(t2))){ t4=C_u_i_cdr(t2); /* library.scm:2459: scan-hashes */ t5=((C_word*)t0)[9]; f_15784(t5,t3,t4);} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_15841(2,av2);}}} else{ if(C_truep(((C_word*)t0)[10])){ /* library.scm:2460: scan-hashes */ t4=((C_word*)t0)[9]; f_15784(t4,t3,((C_word*)t0)[3]);} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_15841(2,av2);}}}} /* k15839 in k15836 in scan-digits+hashes in ##sys#string->compnum in k8510 */ static void C_ccall f_15841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_15841,2,av);} a=C_alloc(8); t2=(C_truep(t1)?t1:((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_i_car(t2); t4=C_s_a_i_digits_to_integer(&a,5,((C_word*)t0)[3],((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6]); if(C_truep(t4)){ if(C_truep(t1)){ t5=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_TRUE); t6=( /* library.scm:2468: go-inexact! */ f_15586(((C_word*)((C_word*)t0)[8])[1]) ); t7=C_u_i_cdr(t2); t8=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_cons(&a,2,t4,t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t5=C_u_i_cdr(t2); t6=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_cons(&a,2,t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t5=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* scan-exponent in ##sys#string->compnum in k8510 */ static void C_fcall f_15890(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_15890,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){ t3=((C_word*)t0)[3]; t4=t2; t5=C_subchar(t3,t4); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15905,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t7=C_eqp(t5,C_make_character(43)); if(C_truep(t7)){ t8=t6; f_15905(t8,lf[615]);} else{ t8=C_eqp(t5,C_make_character(45)); t9=t6; f_15905(t9,(C_truep(t8)?lf[614]:C_SCHEME_FALSE));}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k15903 in scan-exponent in ##sys#string->compnum in k8510 */ static void C_fcall f_15905(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_15905,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(C_truep(t2)?C_fixnum_plus(((C_word*)t0)[2],C_fix(1)):((C_word*)t0)[2]); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15914,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* library.scm:2476: scan-digits */ t6=((C_word*)t0)[7]; f_15676(t6,t5,t4);} else{ t5=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k15912 in k15903 in scan-exponent in ##sys#string->compnum in k8510 */ static void C_ccall f_15914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_15914,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=( /* library.scm:2477: go-inexact! */ f_15586(((C_word*)((C_word*)t0)[2])[1]) ); t3=C_i_car(t1); t4=C_eqp(((C_word*)t0)[3],lf[614]); t5=C_s_a_i_digits_to_integer(&a,5,((C_word*)t0)[4],((C_word*)t0)[5],t3,((C_word*)t0)[6],t4); t6=C_u_i_cdr(t1); t7=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t7; av2[1]=C_a_i_cons(&a,2,t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* scan-decimal-tail in ##sys#string->compnum in k8510 */ static void C_fcall f_15951(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_15951,5,t0,t1,t2,t3,t4);} a=C_alloc(9); if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15961,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); /* library.scm:2485: scan-digits+hashes */ t6=((C_word*)t0)[6]; f_15834(t6,t5,t2,t3,t4);} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k15959 in scan-decimal-tail in ##sys#string->compnum in k8510 */ static void C_ccall f_15961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_15961,2,av);} a=C_alloc(11); t2=t1; t3=(C_truep(t2)?C_i_cdr(t2):((C_word*)t0)[2]); t4=t3; t5=((C_word*)t0)[3]; t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15970,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); if(C_truep(t5)){ t7=t6; f_15970(t7,t5);} else{ t7=C_i_not(t4); t8=t6; f_15970(t8,(C_truep(t7)?t7:C_fixnum_greaterp(t4,((C_word*)t0)[2])));}} /* k15968 in k15959 in scan-decimal-tail in ##sys#string->compnum in k8510 */ static void C_fcall f_15970(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_15970,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15973,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[3])){ t3=((C_word*)t0)[10]; t4=t2; f_15973(t4,C_subchar(t3,((C_word*)t0)[3]));} else{ t3=t2; f_15973(t3,C_SCHEME_FALSE);}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k15971 in k15968 in k15959 in scan-decimal-tail in ##sys#string->compnum in k8510 */ static void C_fcall f_15973(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_15973,2,t0,t1);} a=C_alloc(10); t2=C_eqp(t1,C_make_character(101)); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(t2)){ t4=t3; f_15982(t4,t2);} else{ t4=C_eqp(t1,C_make_character(115)); if(C_truep(t4)){ t5=t3; f_15982(t5,t4);} else{ t5=C_eqp(t1,C_make_character(102)); if(C_truep(t5)){ t6=t3; f_15982(t6,t5);} else{ t6=C_eqp(t1,C_make_character(100)); if(C_truep(t6)){ t7=t3; f_15982(t7,t6);} else{ t7=C_eqp(t1,C_make_character(108)); if(C_truep(t7)){ t8=t3; f_15982(t8,t7);} else{ t8=C_eqp(t1,C_make_character(69)); if(C_truep(t8)){ t9=t3; f_15982(t9,t8);} else{ t9=C_eqp(t1,C_make_character(83)); if(C_truep(t9)){ t10=t3; f_15982(t10,t9);} else{ t10=C_eqp(t1,C_make_character(70)); if(C_truep(t10)){ t11=t3; f_15982(t11,t10);} else{ t11=C_eqp(t1,C_make_character(68)); t12=t3; f_15982(t12,(C_truep(t11)?t11:C_eqp(t1,C_make_character(76))));}}}}}}}}} /* k15980 in k15971 in k15968 in k15959 in scan-decimal-tail in ##sys#string->compnum in k8510 */ static void C_fcall f_15982(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_15982,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15991,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* library.scm:2493: scan-exponent */ t4=((C_word*)t0)[9]; f_15890(t4,t2,t3);} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} else{ t2=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:((C_word*)t0)[2]); t3=(C_truep(((C_word*)t0)[4])?C_fixnum_difference(((C_word*)t0)[7],t2):C_SCHEME_FALSE); t4=(C_truep(((C_word*)t0)[4])?C_i_car(((C_word*)t0)[4]):C_SCHEME_FALSE); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16057,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:2503: safe-exponent */ t6=((C_word*)((C_word*)t0)[6])[1]; f_15596(t6,t5,t4,t3);}} /* k15989 in k15980 in k15971 in k15968 in k15959 in scan-decimal-tail in ##sys#string->compnum in k8510 */ static void C_ccall f_15991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_15991,2,av);} a=C_alloc(8); t2=t1; if(C_truep(t2)){ t3=C_i_car(t2); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16003,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t4,tmp=(C_word)a,a+=8,tmp); /* library.scm:2495: safe-exponent */ t6=((C_word*)((C_word*)t0)[4])[1]; f_15596(t6,t5,((C_word*)t0)[6],t4);} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16001 in k15989 in k15980 in k15971 in k15968 in k15959 in scan-decimal-tail in ##sys#string->compnum in k8510 */ static void C_ccall f_16003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_16003,2,av);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16009,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[2])){ t4=C_i_cdr(((C_word*)t0)[2]); t5=C_fixnum_difference(t4,((C_word*)t0)[6]); t6=t3; f_16009(t6,C_fixnum_difference(((C_word*)t0)[7],t5));} else{ t4=t3; f_16009(t4,C_SCHEME_FALSE);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16007 in k16001 in k15989 in k15980 in k15971 in k15968 in k15959 in scan-decimal-tail in ##sys#string->compnum in k8510 */ static void C_fcall f_16009(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_16009,2,t0,t1);} a=C_alloc(5); t2=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16015,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:2498: safe-exponent */ t4=((C_word*)((C_word*)t0)[6])[1]; f_15596(t4,t3,t2,t1);} /* k16013 in k16007 in k16001 in k15989 in k15980 in k15971 in k15968 in k15959 in scan-decimal-tail in ##sys#string->compnum in k8510 */ static void C_ccall f_16015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ C_save_and_reclaim((void *)f_16015,2,av);} a=C_alloc(32); if(C_truep(t1)){ t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1); t3=C_u_i_cdr(((C_word*)t0)[3]); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_u_i_cdr(((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16055 in k15980 in k15971 in k15968 in k15959 in scan-decimal-tail in ##sys#string->compnum in k8510 */ static void C_ccall f_16057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ C_save_and_reclaim((void *)f_16057,2,av);} a=C_alloc(32); t2=((C_word*)t0)[2]; t3=(C_truep(t2)?t2:C_fix(0)); if(C_truep(t1)){ t4=C_s_a_i_plus(&a,2,t3,t1); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t3,((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* scan-ureal in ##sys#string->compnum in k8510 */ static void C_fcall f_16165(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_16165,4,t0,t1,t2,t3);} a=C_alloc(15); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_16172,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],tmp=(C_word)a,a+=15,tmp); t5=C_fixnum_plus(t2,C_fix(1)); if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],t5))){ t6=C_eqp(((C_word*)t0)[4],C_fix(10)); if(C_truep(t6)){ t7=((C_word*)t0)[11]; t8=t2; t9=C_subchar(t7,t8); t10=t4; f_16172(t10,C_eqp(t9,C_make_character(46)));} else{ t7=t4; f_16172(t7,C_SCHEME_FALSE);}} else{ t6=t4; f_16172(t6,C_SCHEME_FALSE);}} /* k16170 in scan-ureal in ##sys#string->compnum in k8510 */ static void C_fcall f_16172(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_16172,2,t0,t1);} a=C_alloc(14); if(C_truep(t1)){ t2=( /* library.scm:2511: go-inexact! */ f_15586(((C_word*)((C_word*)t0)[2])[1]) ); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* library.scm:2512: scan-decimal-tail */ t4=((C_word*)t0)[4]; f_15951(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_SCHEME_FALSE);} else{ t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_16185,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp); /* library.scm:2513: scan-digits+hashes */ t3=((C_word*)t0)[13]; f_15834(t3,t2,((C_word*)t0)[3],((C_word*)t0)[6],C_SCHEME_FALSE);}} /* k16183 in k16170 in scan-ureal in ##sys#string->compnum in k8510 */ static void C_ccall f_16185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_16185,2,av);} a=C_alloc(14); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_16191,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); if(C_truep(C_i_cdr(t2))){ t4=C_u_i_cdr(t2); t5=((C_word*)t0)[13]; t6=t3; f_16191(t6,C_subchar(t5,t4));} else{ t4=t3; f_16191(t4,C_SCHEME_FALSE);}} else{ t3=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16189 in k16183 in k16170 in scan-ureal in ##sys#string->compnum in k8510 */ static void C_fcall f_16191(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_16191,2,t0,t1);} a=C_alloc(12); t2=t1; t3=C_eqp(t2,C_make_character(46)); if(C_truep(t3)){ t4=( /* library.scm:2516: go-inexact! */ f_15586(((C_word*)((C_word*)t0)[2])[1]) ); t5=C_eqp(((C_word*)t0)[3],C_fix(10)); if(C_truep(t5)){ t6=C_u_i_cdr(((C_word*)t0)[4]); t7=C_fixnum_plus(t6,C_fix(1)); if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],t7))){ t8=C_u_i_cdr(((C_word*)t0)[4]); t9=C_fixnum_plus(t8,C_fix(1)); t10=C_u_i_car(((C_word*)t0)[4]); /* library.scm:2519: scan-decimal-tail */ t11=((C_word*)t0)[6]; f_15951(t11,((C_word*)t0)[7],t9,((C_word*)t0)[8],t10);} else{ t8=C_u_i_car(((C_word*)t0)[4]); t9=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t9; av2[1]=C_a_i_cons(&a,2,t8,C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t6=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t4=C_eqp(t2,C_make_character(101)); t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_16243,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=t2,a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],tmp=(C_word)a,a+=12,tmp); if(C_truep(t4)){ t6=t5; f_16243(t6,t4);} else{ t6=C_eqp(t2,C_make_character(115)); if(C_truep(t6)){ t7=t5; f_16243(t7,t6);} else{ t7=C_eqp(t2,C_make_character(102)); if(C_truep(t7)){ t8=t5; f_16243(t8,t7);} else{ t8=C_eqp(t2,C_make_character(100)); if(C_truep(t8)){ t9=t5; f_16243(t9,t8);} else{ t9=C_eqp(t2,C_make_character(108)); if(C_truep(t9)){ t10=t5; f_16243(t10,t9);} else{ t10=C_eqp(t2,C_make_character(69)); if(C_truep(t10)){ t11=t5; f_16243(t11,t10);} else{ t11=C_eqp(t2,C_make_character(83)); if(C_truep(t11)){ t12=t5; f_16243(t12,t11);} else{ t12=C_eqp(t2,C_make_character(70)); if(C_truep(t12)){ t13=t5; f_16243(t13,t12);} else{ t13=C_eqp(t2,C_make_character(68)); t14=t5; f_16243(t14,(C_truep(t13)?t13:C_eqp(t2,C_make_character(76))));}}}}}}}}}} /* k16241 in k16189 in k16183 in k16170 in scan-ureal in ##sys#string->compnum in k8510 */ static void C_fcall f_16243(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_16243,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=C_eqp(((C_word*)t0)[2],C_fix(10)); if(C_truep(t2)){ t3=C_u_i_cdr(((C_word*)t0)[3]); if(C_truep(C_fixnum_greaterp(((C_word*)t0)[4],t3))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16258,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t5=C_u_i_cdr(((C_word*)t0)[3]); t6=C_fixnum_plus(t5,C_fix(1)); /* library.scm:2525: scan-exponent */ t7=((C_word*)t0)[7]; f_15890(t7,t4,t6);} else{ t4=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t3=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=C_eqp(((C_word*)t0)[8],C_make_character(47)); if(C_truep(t2)){ t3=C_set_block_item(((C_word*)t0)[9],0,C_SCHEME_FALSE); t4=C_u_i_cdr(((C_word*)t0)[3]); if(C_truep(C_fixnum_greaterp(((C_word*)t0)[4],t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16304,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); t6=C_u_i_cdr(((C_word*)t0)[3]); t7=C_fixnum_plus(t6,C_fix(1)); /* library.scm:2532: scan-digits+hashes */ t8=((C_word*)t0)[11]; f_15834(t8,t5,t7,C_SCHEME_FALSE,C_SCHEME_FALSE);} else{ t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k16256 in k16241 in k16189 in k16183 in k16170 in scan-ureal in ##sys#string->compnum in k8510 */ static void C_ccall f_16258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_16258,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=C_u_i_car(((C_word*)t0)[2]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16268,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t2); /* library.scm:2527: safe-exponent */ t6=((C_word*)((C_word*)t0)[4])[1]; f_15596(t6,t4,t3,t5);} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16266 in k16256 in k16241 in k16189 in k16183 in k16170 in scan-ureal in ##sys#string->compnum in k8510 */ static void C_ccall f_16268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16268,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_u_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k16302 in k16241 in k16189 in k16183 in k16170 in scan-ureal in ##sys#string->compnum in k8510 */ static void C_ccall f_16304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_16304,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=C_u_i_car(((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_i_car(t2); if(C_truep(t4)){ t5=C_eqp(t4,C_fix(0)); if(C_truep(C_i_not(t5))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16330,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2536: ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=t6; av2[2]=t3; av2[3]=t4; tp(4,av2);}} else{ t6=C_eqp(((C_word*)((C_word*)t0)[4])[1],lf[610]); if(C_truep(C_i_not(t6))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16341,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:2540: chicken.base#signum */ t8=*((C_word*)lf[185]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16328 in k16302 in k16241 in k16189 in k16183 in k16170 in scan-ureal in ##sys#string->compnum in k8510 */ static void C_ccall f_16330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_16330,2,av);} a=C_alloc(3); t2=C_u_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k16339 in k16302 in k16241 in k16189 in k16183 in k16170 in scan-ureal in ##sys#string->compnum in k8510 */ static void C_ccall f_16341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_16341,2,av);} a=C_alloc(7); switch(t1){ case C_fix(-1): t2=C_u_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[613],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} case C_fix(0): t2=C_flonum(&a,C_ub_i_flonum_quotient(0.0,0.0)); t3=C_u_i_cdr(((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} case C_fix(1): t2=C_u_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,lf[612],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} default: t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* scan-real in ##sys#string->compnum in k8510 */ static void C_fcall f_16508(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_16508,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){ t3=((C_word*)t0)[3]; t4=t2; t5=C_subchar(t3,t4); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16523,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t7=C_eqp(t5,C_make_character(43)); if(C_truep(t7)){ t8=t6; f_16523(t8,lf[615]);} else{ t8=C_eqp(t5,C_make_character(45)); t9=t6; f_16523(t9,(C_truep(t8)?lf[614]:C_SCHEME_FALSE));}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k16521 in scan-real in ##sys#string->compnum in k8510 */ static void C_fcall f_16523(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){ C_save_and_reclaim_args((void *)trf_16523,2,t0,t1);} a=C_alloc(16); t2=t1; t3=(C_truep(t2)?C_fixnum_plus(((C_word*)t0)[2],C_fix(1)):((C_word*)t0)[2]); t4=t3; if(C_truep(C_fixnum_lessp(t4,((C_word*)t0)[3]))){ t5=((C_word*)t0)[4]; t6=C_subchar(t5,t4); t7=C_eqp(t6,C_make_character(105)); t8=(C_truep(t7)?t7:C_eqp(t6,C_make_character(73))); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16549,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t10=C_fixnum_plus(t4,C_fix(1)); t11=C_eqp(t10,((C_word*)t0)[3]); if(C_truep(t11)){ t12=C_eqp(t2,lf[614]); t13=t9; f_16549(t13,(C_truep(t12)?C_a_i_cons(&a,2,C_fix(-1),t4):C_a_i_cons(&a,2,C_fix(1),t4)));} else{ t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16581,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t9,tmp=(C_word)a,a+=7,tmp); t13=C_fixnum_plus(t4,C_fix(5)); if(C_truep(C_fixnum_less_or_equal_p(t13,((C_word*)t0)[3]))){ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16618,a[2]=t12,tmp=(C_word)a,a+=3,tmp); t15=C_fixnum_plus(t4,C_fix(5)); /* library.scm:2559: scheme#substring */ t16=*((C_word*)lf[394]+1);{ C_word av2[5]; av2[0]=t16; av2[1]=t14; av2[2]=((C_word*)t0)[4]; av2[3]=t4; av2[4]=t15; ((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}} else{ t14=t12; f_16581(t14,C_SCHEME_FALSE);}}} else{ t10=t9; f_16549(t10,C_SCHEME_FALSE);}} else{ t9=C_eqp(t6,C_make_character(110)); t10=(C_truep(t9)?t9:C_eqp(t6,C_make_character(78))); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16642,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=t4,tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t12=C_fixnum_plus(t4,C_fix(5)); if(C_truep(C_fixnum_less_or_equal_p(t12,((C_word*)t0)[3]))){ t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16692,a[2]=((C_word*)t0)[7],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t11,tmp=(C_word)a,a+=6,tmp); t14=C_fixnum_plus(t4,C_fix(5)); /* library.scm:2569: scheme#substring */ t15=*((C_word*)lf[394]+1);{ C_word av2[5]; av2[0]=t15; av2[1]=t13; av2[2]=((C_word*)t0)[4]; av2[3]=t4; av2[4]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} else{ t13=t11; f_16642(t13,C_SCHEME_FALSE);}} else{ t12=t11; f_16642(t12,C_SCHEME_FALSE);}} else{ t11=C_eqp(t2,lf[614]); /* library.scm:2575: scan-ureal */ t12=((C_word*)t0)[6]; f_16165(t12,((C_word*)t0)[5],t4,t11);}}} else{ t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k16547 in k16521 in scan-real in ##sys#string->compnum in k8510 */ static void C_fcall f_16549(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16549,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[614]); /* library.scm:2565: scan-ureal */ t3=((C_word*)t0)[4]; f_16165(t3,((C_word*)t0)[2],((C_word*)t0)[5],t2);}} /* k16579 in k16521 in scan-real in ##sys#string->compnum in k8510 */ static void C_fcall f_16581(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,1)))){ C_save_and_reclaim_args((void *)trf_16581,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=( /* library.scm:2560: go-inexact! */ f_15586(((C_word*)((C_word*)t0)[2])[1]) ); t3=C_eqp(((C_word*)t0)[3],lf[614]); t4=(C_truep(t3)?lf[613]:lf[612]); t5=C_fixnum_plus(((C_word*)t0)[4],C_fix(5)); if(C_truep(C_fixnum_lessp(t5,((C_word*)t0)[5]))){ t6=C_fixnum_plus(((C_word*)t0)[4],C_fix(5)); t7=((C_word*)t0)[6]; f_16549(t7,C_a_i_cons(&a,2,t4,t6));} else{ t6=((C_word*)t0)[6]; f_16549(t6,C_a_i_cons(&a,2,t4,C_SCHEME_FALSE));}} else{ t2=((C_word*)t0)[6]; f_16549(t2,C_SCHEME_FALSE);}} /* k16616 in k16521 in scan-real in ##sys#string->compnum in k8510 */ static void C_ccall f_16618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_16618,2,av);} t2=((C_word*)t0)[2]; f_16581(t2,C_i_string_ci_equal_p(t1,lf[616]));} /* k16640 in k16521 in scan-real in ##sys#string->compnum in k8510 */ static void C_fcall f_16642(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16642,2,t0,t1);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[3],lf[614]); /* library.scm:2574: scan-ureal */ t3=((C_word*)t0)[4]; f_16165(t3,((C_word*)t0)[2],((C_word*)t0)[5],t2);}} /* k16690 in k16521 in scan-real in ##sys#string->compnum in k8510 */ static void C_ccall f_16692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_16692,2,av);} a=C_alloc(7); if(C_truep(C_i_string_ci_equal_p(t1,lf[617]))){ t2=( /* library.scm:2570: go-inexact! */ f_15586(((C_word*)((C_word*)t0)[2])[1]) ); t3=C_flonum(&a,C_ub_i_flonum_quotient(0.0,0.0)); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(5)); if(C_truep(C_fixnum_lessp(t4,((C_word*)t0)[4]))){ t5=C_fixnum_plus(((C_word*)t0)[3],C_fix(5)); t6=((C_word*)t0)[5]; f_16642(t6,C_a_i_cons(&a,2,t3,t5));} else{ t5=((C_word*)t0)[5]; f_16642(t5,C_a_i_cons(&a,2,t3,C_SCHEME_FALSE));}} else{ t2=((C_word*)t0)[5]; f_16642(t2,C_SCHEME_FALSE);}} /* k16738 in ##sys#string->compnum in k8510 */ static void C_ccall f_16740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_16740,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16762,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_cdr(t2))){ t5=C_u_i_cdr(t2); t6=((C_word*)t0)[5]; t7=t4; f_16762(t7,C_subchar(t6,t5));} else{ t5=t4; f_16762(t5,C_SCHEME_FALSE);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_16743(2,av2);}}} /* k16741 in k16738 in ##sys#string->compnum in k8510 */ static void C_ccall f_16743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_16743,2,av);} if(C_truep(t1)){ t2=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[611]); if(C_truep(t2)){ /* library.scm:2598: scheme#exact->inexact */ t3=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(C_i_finitep(t1))?t1:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k16760 in k16738 in ##sys#string->compnum in k8510 */ static void C_fcall f_16762(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_16762,2,t0,t1);} a=C_alloc(6); t2=C_eqp(t1,C_SCHEME_FALSE); if(C_truep(t2)){ t3=C_u_i_car(((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; f_16743(2,av2);}} else{ t3=C_eqp(t1,C_make_character(105)); t4=(C_truep(t3)?t3:C_eqp(t1,C_make_character(73))); if(C_truep(t4)){ t5=C_u_i_cdr(((C_word*)t0)[2]); t6=C_fixnum_plus(t5,C_fix(1)); t7=C_eqp(((C_word*)t0)[4],t6); if(C_truep(t7)){ t8=((C_word*)t0)[5]; t9=((C_word*)t0)[6]; t10=C_subchar(t8,t9); t11=C_eqp(t10,C_make_character(43)); if(C_truep(t11)){ if(C_truep(t11)){ t12=C_u_i_car(((C_word*)t0)[2]); /* library.scm:2582: scheme#make-rectangular */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[502]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[502]+1); av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(0); av2[3]=t12; tp(4,av2);}} else{ t12=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t12; av2[1]=C_SCHEME_FALSE; f_16743(2,av2);}}} else{ t12=((C_word*)t0)[5]; t13=((C_word*)t0)[6]; t14=C_subchar(t12,t13); t15=C_eqp(t14,C_make_character(45)); if(C_truep(t15)){ t16=C_u_i_car(((C_word*)t0)[2]); /* library.scm:2582: scheme#make-rectangular */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[502]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[502]+1); av2[1]=((C_word*)t0)[3]; av2[2]=C_fix(0); av2[3]=t16; tp(4,av2);}} else{ t16=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t16; av2[1]=C_SCHEME_FALSE; f_16743(2,av2);}}}} else{ t8=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_16743(2,av2);}}} else{ t5=C_eqp(t1,C_make_character(43)); t6=(C_truep(t5)?t5:C_eqp(t1,C_make_character(45))); if(C_truep(t6)){ t7=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_FALSE); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16832,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t9=C_u_i_cdr(((C_word*)t0)[2]); /* library.scm:2585: scan-real */ t10=((C_word*)t0)[8]; f_16508(t10,t8,t9);} else{ t7=C_eqp(t1,C_make_character(64)); if(C_truep(t7)){ t8=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_FALSE); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16900,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t10=C_u_i_cdr(((C_word*)t0)[2]); t11=C_fixnum_plus(t10,C_fix(1)); /* library.scm:2593: scan-real */ t12=((C_word*)t0)[8]; f_16508(t12,t9,t11);} else{ t8=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; f_16743(2,av2);}}}}}} /* k16830 in k16760 in k16738 in ##sys#string->compnum in k8510 */ static void C_ccall f_16832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_16832,2,av);} a=C_alloc(5); t2=t1; if(C_truep(t2)){ if(C_truep(C_i_cdr(t2))){ t3=C_u_i_cdr(t2); t4=C_fixnum_plus(t3,C_fix(1)); t5=C_eqp(((C_word*)t0)[2],t4); if(C_truep(t5)){ t6=C_u_i_cdr(t2); t7=((C_word*)t0)[3]; t8=C_subchar(t7,t6); t9=C_eqp(t8,C_make_character(105)); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16853,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); if(C_truep(t9)){ t11=t10; f_16853(t11,t9);} else{ t11=C_u_i_cdr(t2); t12=((C_word*)t0)[3]; t13=C_subchar(t12,t11); t14=t10; f_16853(t14,C_eqp(t13,C_make_character(73)));}} else{ t6=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; f_16743(2,av2);}}} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_16743(2,av2);}}} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_16743(2,av2);}}} /* k16851 in k16830 in k16760 in k16738 in ##sys#string->compnum in k8510 */ static void C_fcall f_16853(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_16853,2,t0,t1);} if(C_truep(t1)){ t2=C_u_i_car(((C_word*)t0)[2]); t3=C_u_i_car(((C_word*)t0)[3]); /* library.scm:2590: scheme#make-rectangular */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[502]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[502]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t2; av2[3]=t3; tp(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_16743(2,av2);}}} /* k16898 in k16760 in k16738 in ##sys#string->compnum in k8510 */ static void C_ccall f_16900(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_16900,2,av);} if(C_truep(t1)){ t2=C_i_cdr(t1); if(C_truep(C_i_not(t2))){ t3=C_u_i_car(((C_word*)t0)[2]); t4=C_u_i_car(t1); /* library.scm:2595: scheme#make-polar */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[504]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[504]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=t4; tp(4,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_16743(2,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_16743(2,av2);}}} /* scheme#string->number in k8510 */ static void C_ccall f_16980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_16980,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(10):C_i_car(t3)); t6=t5; t7=C_i_check_string_2(t2,lf[619]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16990,a[2]=t2,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnump(t6))){ if(C_truep(C_fixnum_lessp(C_fix(1),t6))){ if(C_truep(C_fixnum_lessp(t6,C_fix(37)))){ t9=t8;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_16990(2,av2);}} else{ /* library.scm:2607: ##sys#error-bad-base */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[373]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[373]+1); av2[1]=t8; av2[2]=t6; av2[3]=lf[619]; tp(4,av2);}}} else{ /* library.scm:2607: ##sys#error-bad-base */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[373]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[373]+1); av2[1]=t8; av2[2]=t6; av2[3]=lf[619]; tp(4,av2);}}} else{ /* library.scm:2607: ##sys#error-bad-base */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[373]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[373]+1); av2[1]=t8; av2[2]=t6; av2[3]=lf[619]; tp(4,av2);}}} /* k16988 in scheme#string->number in k8510 */ static void C_ccall f_16990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){ C_save_and_reclaim((void *)f_16990,2,av);} a=C_alloc(8); t2=C_block_size(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16999,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word)li456),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_16999(t6,((C_word*)t0)[4],C_fix(0),C_SCHEME_FALSE,C_SCHEME_FALSE,t2);} /* scan-prefix in k16988 in scheme#string->number in k8510 */ static void C_fcall f_16999(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_16999,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(10); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17006,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=t4,a[8]=t5,a[9]=((C_word*)t0)[4],tmp=(C_word)a,a+=10,tmp); t7=C_fixnum_plus(t2,C_fix(2)); if(C_truep(C_fixnum_lessp(t7,t5))){ t8=((C_word*)t0)[2]; t9=t2; t10=C_subchar(t8,t9); t11=t6; f_17006(t11,C_eqp(t10,C_make_character(35)));} else{ t8=t6; f_17006(t8,C_SCHEME_FALSE);}} /* k17004 in scan-prefix in k16988 in scheme#string->number in k8510 */ static void C_fcall f_17006(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_17006,2,t0,t1);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3]; t4=C_subchar(t3,t2); t5=C_eqp(t4,C_make_character(105)); t6=(C_truep(t5)?t5:C_eqp(t4,C_make_character(73))); if(C_truep(t6)){ if(C_truep(C_i_not(((C_word*)t0)[4]))){ t7=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); /* library.scm:2614: scan-prefix */ t8=((C_word*)((C_word*)t0)[5])[1]; f_16999(t8,((C_word*)t0)[6],t7,lf[611],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t7=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t7=C_eqp(t4,C_make_character(101)); t8=(C_truep(t7)?t7:C_eqp(t4,C_make_character(69))); if(C_truep(t8)){ if(C_truep(C_i_not(((C_word*)t0)[4]))){ t9=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); /* library.scm:2615: scan-prefix */ t10=((C_word*)((C_word*)t0)[5])[1]; f_16999(t10,((C_word*)t0)[6],t9,lf[610],((C_word*)t0)[7],((C_word*)t0)[8]);} else{ t9=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t9=C_eqp(t4,C_make_character(98)); t10=(C_truep(t9)?t9:C_eqp(t4,C_make_character(66))); if(C_truep(t10)){ if(C_truep(C_i_not(((C_word*)t0)[7]))){ t11=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); /* library.scm:2616: scan-prefix */ t12=((C_word*)((C_word*)t0)[5])[1]; f_16999(t12,((C_word*)t0)[6],t11,((C_word*)t0)[4],C_fix(2),((C_word*)t0)[8]);} else{ t11=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t11=C_eqp(t4,C_make_character(111)); t12=(C_truep(t11)?t11:C_eqp(t4,C_make_character(79))); if(C_truep(t12)){ if(C_truep(C_i_not(((C_word*)t0)[7]))){ t13=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); /* library.scm:2617: scan-prefix */ t14=((C_word*)((C_word*)t0)[5])[1]; f_16999(t14,((C_word*)t0)[6],t13,((C_word*)t0)[4],C_fix(8),((C_word*)t0)[8]);} else{ t13=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t13; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} else{ t13=C_eqp(t4,C_make_character(100)); t14=(C_truep(t13)?t13:C_eqp(t4,C_make_character(68))); if(C_truep(t14)){ if(C_truep(C_i_not(((C_word*)t0)[7]))){ t15=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); /* library.scm:2618: scan-prefix */ t16=((C_word*)((C_word*)t0)[5])[1]; f_16999(t16,((C_word*)t0)[6],t15,((C_word*)t0)[4],C_fix(10),((C_word*)t0)[8]);} else{ t15=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t15; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}} else{ t15=C_eqp(t4,C_make_character(120)); t16=(C_truep(t15)?t15:C_eqp(t4,C_make_character(88))); if(C_truep(t16)){ if(C_truep(C_i_not(((C_word*)t0)[7]))){ t17=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); /* library.scm:2619: scan-prefix */ t18=((C_word*)((C_word*)t0)[5])[1]; f_16999(t18,((C_word*)t0)[6],t17,((C_word*)t0)[4],C_fix(16),((C_word*)t0)[8]);} else{ t17=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t17; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}} else{ t17=((C_word*)t0)[6];{ C_word av2[2]; av2[0]=t17; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}}}}}}} else{ t2=((C_word*)t0)[7]; if(C_truep(t2)){ /* library.scm:2621: ##sys#string->compnum */ f_15583(((C_word*)t0)[6],t2,((C_word*)t0)[3],((C_word*)t0)[2],((C_word*)t0)[4]);} else{ /* library.scm:2621: ##sys#string->compnum */ f_15583(((C_word*)t0)[6],((C_word*)t0)[9],((C_word*)t0)[3],((C_word*)t0)[2],((C_word*)t0)[4]);}}} /* ##sys#string->number in k8510 */ static void C_ccall f_17235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_17235,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(10):C_i_car(t3)); t6=C_i_nullp(t3); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_FALSE:C_i_car(t7)); if(C_truep(C_i_nullp(t7))){ /* library.scm:2624: ##sys#string->compnum */ f_15583(t1,t5,t2,C_fix(0),t9);} else{ t10=C_i_cdr(t7); /* library.scm:2624: ##sys#string->compnum */ f_15583(t1,t5,t2,C_fix(0),t9);}} /* chicken.base#equal=? in k8510 */ static void C_ccall f_17281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_17281,4,av);} a=C_alloc(12); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17284,a[2]=t7,a[3]=((C_word)li463),tmp=(C_word)a,a+=4,tmp)); t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17352,a[2]=t5,a[3]=((C_word)li464),tmp=(C_word)a,a+=4,tmp)); /* library.scm:2667: walk */ t10=((C_word*)t7)[1]; f_17352(t10,t1,t2,t3);} /* compare-slots in chicken.base#equal=? in k8510 */ static void C_fcall f_17284(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_17284,5,t0,t1,t2,t3,t4);} a=C_alloc(10); t5=C_block_size(t2); t6=C_block_size(t3); t7=C_eqp(t5,t6); if(C_truep(t7)){ t8=C_fixnum_less_or_equal_p(t5,t4); if(C_truep(t8)){ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_fixnum_difference(t5,C_fix(1)); t10=t9; t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17311,a[2]=t10,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=t12,a[7]=((C_word)li462),tmp=(C_word)a,a+=8,tmp)); t14=((C_word*)t12)[1]; f_17311(t14,t1,t4);}} else{ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* loop in compare-slots in chicken.base#equal=? in k8510 */ static void C_fcall f_17311(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_17311,3,t0,t1,t2);} a=C_alloc(5); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_slot(((C_word*)t0)[3],t2); t5=C_slot(((C_word*)t0)[4],t2); /* library.scm:2641: walk */ t6=((C_word*)((C_word*)t0)[5])[1]; f_17352(t6,t1,t4,t5);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17335,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_slot(((C_word*)t0)[3],t2); t6=C_slot(((C_word*)t0)[4],t2); /* library.scm:2642: walk */ t7=((C_word*)((C_word*)t0)[5])[1]; f_17352(t7,t4,t5,t6);}} /* k17333 in loop in compare-slots in chicken.base#equal=? in k8510 */ static void C_ccall f_17335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17335,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:2643: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_17311(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* walk in chicken.base#equal=? in k8510 */ static void C_fcall f_17352(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_17352,4,t0,t1,t2,t3);} t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_numberp(t2))){ t5=C_i_numberp(t3); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=(C_truep(t5)?C_i_nequalp(t2,t3):C_eqp(t2,t3)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_blockp(t2); if(C_truep(C_i_not(t5))){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_blockp(t3); if(C_truep(C_i_not(t6))){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_sametypep(t2,t3); if(C_truep(C_i_not(t7))){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ if(C_truep(C_specialp(t2))){ if(C_truep(C_specialp(t3))){ if(C_truep(C_closurep(t2))){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=shallow_equal(t2,t3); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ /* library.scm:2657: compare-slots */ t8=((C_word*)((C_word*)t0)[2])[1]; f_17284(t8,t1,t2,t3,C_fix(1));}} else{ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ if(C_truep(C_byteblockp(t2))){ if(C_truep(C_byteblockp(t3))){ t8=C_block_size(t2); t9=C_block_size(t3); t10=C_eqp(t8,t9); if(C_truep(t10)){ t11=C_substring_compare(t2,t3,C_fix(0),C_fix(0),t8); t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} else{ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t8=C_block_size(t2); t9=C_block_size(t3); t10=C_eqp(t8,t9); if(C_truep(t10)){ /* library.scm:2666: compare-slots */ t11=((C_word*)((C_word*)t0)[2])[1]; f_17284(t11,t1,t2,t3,C_fix(0));} else{ t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}}}}}} /* ##sys#interned-symbol? in k8510 */ static void C_ccall f_17453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17453,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_lookup_symbol(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#string->symbol in k8510 */ static void C_ccall f_17456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17456,3,av);} t3=C_i_check_string(t2); /* library.scm:2679: ##sys#intern-symbol */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t2; C_string_to_symbol(3,av2);}} /* ##sys#symbol->string in k8510 */ static void C_ccall f_17465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17465,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_slot(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#symbol->string in k8510 */ static void C_ccall f_17471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17471,3,av);} a=C_alloc(3); t3=C_i_check_symbol_2(t2,lf[633]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17482,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:2687: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[631]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[631]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}} /* k17480 in scheme#symbol->string in k8510 */ static void C_ccall f_17482(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17482,2,av);} /* library.scm:2687: scheme#string-copy */ t2=*((C_word*)lf[392]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* scheme#string->symbol in k8510 */ static void C_ccall f_17484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17484,3,av);} a=C_alloc(3); t3=C_i_check_string_2(t2,lf[635]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17495,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:2693: string-copy */ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k17493 in scheme#string->symbol in k8510 */ static void C_ccall f_17495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17495,2,av);} /* library.scm:2693: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_string_to_symbol(3,av2);}} /* chicken.base#string->uninterned-symbol in k8510 */ static void C_ccall f_17497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_17497,3,av);} a=C_alloc(7); t3=C_i_check_string_2(t2,lf[637]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_symbol,a[2]=((C_word)li473),tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17508,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:2699: string-copy */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k17506 in chicken.base#string->uninterned-symbol in k8510 */ static void C_ccall f_17508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17508,2,av);} /* library.scm:2697: g3347 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* chicken.base#gensym in k8510 */ static void C_ccall f_17510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +15,c,5)))){ C_save_and_reclaim((void*)f_17510,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+15); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t3=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t4=C_set_block_item(((C_word*)t0)[2],0,t3); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_symbol,a[2]=((C_word)li475),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17527,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17531,a[2]=t6,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t8=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t8)){ t9=t7;{ C_word *av2=av; av2[0]=t9; av2[1]=lf[639]; f_17531(2,av2);}} else{ t9=C_i_car(t2); t10=t9; t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17544,a[2]=t7,a[3]=t10,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_blockp(t10))){ if(C_truep(C_stringp(t10))){ t12=t11;{ C_word *av2=av; av2[0]=t12; av2[1]=t10; f_17544(2,av2);}} else{ if(C_truep(C_symbolp(t10))){ /* library.scm:2713: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[631]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[631]+1); av2[1]=t11; av2[2]=t10; tp(3,av2);}} else{ /* library.scm:2704: ##sys#signal-hook */ t12=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t12; av2[1]=t11; av2[2]=lf[258]; av2[3]=lf[640]; av2[4]=lf[641]; av2[5]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(6,av2);}}}} else{ t12=t11;{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_FALSE; f_17544(2,av2);}}}} /* k17525 in chicken.base#gensym in k8510 */ static void C_ccall f_17527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17527,2,av);} /* library.scm:2704: g3354 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k17529 in chicken.base#gensym in k8510 */ static void C_ccall f_17531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17531,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17535,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2716: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[3])[1]; tp(3,av2);}} /* k17533 in k17529 in chicken.base#gensym in k8510 */ static void C_ccall f_17535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17535,2,av);} /* library.scm:2707: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k17542 in chicken.base#gensym in k8510 */ static void C_ccall f_17544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17544,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_17531(2,av2);}} else{ /* library.scm:2704: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[258]; av2[3]=lf[640]; av2[4]=lf[641]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* chicken.base#symbol-append in k8510 */ static void C_ccall f_17564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +20,c,3)))){ C_save_and_reclaim((void*)f_17564,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+20); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17572,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17587,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17589,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li477),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_17589(t12,t8,t2);} /* k17570 in chicken.base#symbol-append in k8510 */ static void C_ccall f_17572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17572,2,av);} /* library.scm:2721: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; C_string_to_symbol(3,av2);}} /* k17585 in chicken.base#symbol-append in k8510 */ static void C_ccall f_17587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_17587,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* map-loop3370 in chicken.base#symbol-append in k8510 */ static void C_fcall f_17589(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_17589,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17614,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_check_symbol_2(t4,lf[643]); /* library.scm:2726: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[631]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[631]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k17612 in map-loop3370 in chicken.base#symbol-append in k8510 */ static void C_ccall f_17614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_17614,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_17589(t6,((C_word*)t0)[5],t5);} /* chicken.keyword#keyword? in k8510 */ static void C_ccall f_17623(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17623,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_keywordp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.keyword#string->keyword in k8510 */ static void C_ccall f_17626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17626,3,av);} t3=C_i_check_string_2(t2,lf[647]); /* library.scm:2743: ##sys#intern-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[628]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[628]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} /* chicken.keyword#keyword->string in k8510 */ static void C_ccall f_17635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_17635,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17642,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2748: keyword? */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k17640 in chicken.keyword#keyword->string in k8510 */ static void C_ccall f_17642(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17642,2,av);} if(C_truep(t1)){ /* library.scm:2749: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[631]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[631]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ /* library.scm:2750: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[258]; av2[3]=lf[649]; av2[4]=lf[650]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* chicken.keyword#get-keyword in k8510 */ static void C_ccall f_17653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_17653,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+7); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17660,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t7,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* library.scm:2755: ##sys#check-keyword */ t9=*((C_word*)lf[350]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=t2; av2[3]=lf[653]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k17658 in chicken.keyword#get-keyword in k8510 */ static void C_ccall f_17660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17660,2,av);} t2=C_i_check_list_2(((C_word*)t0)[2],lf[653]); t3=C_i_get_keyword(((C_word*)t0)[3],((C_word*)t0)[2],((C_word*)t0)[4]); t4=C_eqp(t3,((C_word*)t0)[4]); if(C_truep(t4)){ if(C_truep(((C_word*)t0)[5])){ /* library.scm:2759: thunk */ t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} else{ t5=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t5; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#make-blob in k8510 */ static void C_ccall f_17684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_17684,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17688,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:2775: ##sys#allocate-vector */ t4=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* k17686 in ##sys#make-blob in k8510 */ static void C_ccall f_17688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17688,2,av);} t2=C_string_to_bytevector(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.blob#make-blob in k8510 */ static void C_ccall f_17690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17690,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17694,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2780: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[658]; tp(4,av2);}} /* k17692 in chicken.blob#make-blob in k8510 */ static void C_ccall f_17694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_17694,2,av);} /* library.scm:2781: ##sys#make-blob */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[656]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[656]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* chicken.blob#blob? in k8510 */ static void C_ccall f_17699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17699,3,av);} if(C_truep(C_blockp(t2))){ t3=C_bytevectorp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.blob#blob-size in k8510 */ static void C_ccall f_17705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17705,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17709,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2788: ##sys#check-blob */ t4=*((C_word*)lf[341]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[661]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17707 in chicken.blob#blob-size in k8510 */ static void C_ccall f_17709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17709,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_block_size(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.blob#string->blob in k8510 */ static void C_ccall f_17714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_17714,3,av);} a=C_alloc(5); t3=C_i_check_string_2(t2,lf[663]); t4=C_block_size(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17724,a[2]=t2,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:2794: ##sys#make-blob */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[656]); C_word *av2=av; av2[0]=*((C_word*)lf[656]+1); av2[1]=t6; av2[2]=t5; tp(3,av2);}} /* k17722 in chicken.blob#string->blob in k8510 */ static void C_ccall f_17724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17724,2,av);} t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.blob#blob->string in k8510 */ static void C_ccall f_17726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17726,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17730,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:2799: ##sys#check-blob */ t4=*((C_word*)lf[341]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[665]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k17728 in chicken.blob#blob->string in k8510 */ static void C_ccall f_17730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_17730,2,av);} a=C_alloc(5); t2=C_block_size(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17736,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:2801: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[377]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k17734 in k17728 in chicken.blob#blob->string in k8510 */ static void C_ccall f_17736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17736,2,av);} t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.blob#blob=? in k8510 */ static void C_ccall f_17738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_17738,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17742,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:2806: ##sys#check-blob */ t5=*((C_word*)lf[341]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=lf[667]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k17740 in chicken.blob#blob=? in k8510 */ static void C_ccall f_17742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_17742,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17745,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:2807: ##sys#check-blob */ t3=*((C_word*)lf[341]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[667]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k17743 in k17740 in chicken.blob#blob=? in k8510 */ static void C_ccall f_17745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_17745,2,av);} t2=C_block_size(((C_word*)t0)[2]); t3=C_block_size(((C_word*)t0)[3]); t4=C_eqp(t3,t2); if(C_truep(t4)){ t5=C_string_compare(((C_word*)t0)[2],((C_word*)t0)[3],t2); t6=C_i_zerop(t5); t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* scheme#make-vector in k8510 */ static void C_ccall f_17761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_17761,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17765,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:2819: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[668]; tp(4,av2);}} /* k17763 in scheme#make-vector in k8510 */ static void C_ccall f_17765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_17765,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17768,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fixnum_lessp(((C_word*)t0)[4],C_fix(0)))){ /* library.scm:2820: ##sys#error */ t3=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[668]; av2[3]=lf[669]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_17768(2,av2);}}} /* k17766 in k17763 in scheme#make-vector in k8510 */ static void C_ccall f_17768(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_17768,2,av);} if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t2=C_SCHEME_UNDEFINED; /* library.scm:2821: ##sys#allocate-vector */ t3=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=t2; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ t2=C_i_car(((C_word*)t0)[2]); /* library.scm:2821: ##sys#allocate-vector */ t3=*((C_word*)lf[316]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=t2; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* scheme#list->vector in k8510 */ static void C_ccall f_17790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17790,3,av);} a=C_alloc(4); t3=C_i_listp(t2); if(C_truep(C_i_not(t3))){ /* library.scm:2833: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[47]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[47]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[671]; tp(4,av2);}} else{ t4=C_i_length(t2); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17806,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:2835: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[670]+1); av2[1]=t5; av2[2]=t4; tp(3,av2);}}} /* k17804 in scheme#list->vector in k8510 */ static void C_ccall f_17806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_17806,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17811,a[2]=t2,a[3]=((C_word)li491),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=( f_17811(t3,((C_word*)t0)[3],C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in k17804 in scheme#list->vector in k8510 */ static C_word C_fcall f_17811(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_stack_overflow_check; loop:{} if(C_truep(C_i_nullp(t1))){ return(((C_word*)t0)[2]);} else{ t3=C_slot(t1,C_fix(0)); t4=C_i_setslot(((C_word*)t0)[2],t2,t3); t5=C_slot(t1,C_fix(1)); t6=C_fixnum_plus(t2,C_fix(1)); t8=t5; t9=t6; t1=t8; t2=t9; goto loop;}} /* scheme#vector->list in k8510 */ static void C_ccall f_17842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_17842,3,av);} a=C_alloc(8); t3=C_i_check_vector_2(t2,lf[672]); t4=C_block_size(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17851,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li493),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_17851(t8,t1,C_fix(0));} /* loop in scheme#vector->list in k8510 */ static void C_fcall f_17851(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_17851,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_slot(((C_word*)t0)[3],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17869,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_fixnum_plus(t2,C_fix(1)); /* library.scm:2852: loop */ t8=t5; t9=t6; t1=t8; t2=t9; goto loop;}} /* k17867 in loop in scheme#vector->list in k8510 */ static void C_ccall f_17869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_17869,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* scheme#vector in k8510 */ static void C_ccall f_17875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_17875,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* library.scm:2854: scheme#list->vector */ t3=*((C_word*)lf[94]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* scheme#vector-fill! in k8510 */ static void C_ccall f_17881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_17881,4,av);} a=C_alloc(6); t4=C_i_check_vector_2(t2,lf[673]); t5=C_block_size(t2); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17890,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li496),tmp=(C_word)a,a+=6,tmp); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=( f_17890(t6,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* doloop3507 in scheme#vector-fill! in k8510 */ static C_word C_fcall f_17890(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ t2=C_SCHEME_UNDEFINED; return(t2);} else{ t2=C_i_setslot(((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=C_fixnum_plus(t1,C_fix(1)); t5=t3; t1=t5; goto loop;}} /* chicken.base#vector-copy! in k8510 */ static void C_ccall f_17909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +7,c,2)))){ C_save_and_reclaim((void*)f_17909,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+7); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; t5=C_i_check_vector_2(t2,lf[674]); t6=C_i_check_vector_2(t3,lf[674]); t7=C_block_size(t2); t8=t7; t9=C_block_size(t3); t10=t9; t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17925,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t10,a[6]=t8,tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(t4))){ t12=t4; t13=t11; f_17925(t13,C_u_i_car(t12));} else{ t12=t11; f_17925(t12,C_i_fixnum_min(t10,t8));}} /* k17923 in chicken.base#vector-copy! in k8510 */ static void C_fcall f_17925(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_17925,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17928,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* library.scm:2871: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[102]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[674]; tp(4,av2);}} /* k17926 in k17923 in chicken.base#vector-copy! in k8510 */ static void C_ccall f_17928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){ C_save_and_reclaim((void *)f_17928,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17931,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_fixnum_greaterp(((C_word*)t0)[2],((C_word*)t0)[6]); t4=(C_truep(t3)?t3:C_fixnum_greaterp(((C_word*)t0)[2],((C_word*)t0)[7])); if(C_truep(t4)){ /* library.scm:2873: ##sys#signal-hook */ t5=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t5; av2[1]=t2; av2[2]=lf[380]; av2[3]=lf[674]; av2[4]=lf[675]; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; av2[7]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}} else{ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_17931(2,av2);}}} /* k17929 in k17926 in k17923 in chicken.base#vector-copy! in k8510 */ static void C_ccall f_17931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_17931,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17936,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li498),tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=( f_17936(t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop3519 in k17929 in k17926 in k17923 in chicken.base#vector-copy! in k8510 */ static C_word C_fcall f_17936(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ t2=C_SCHEME_UNDEFINED; return(t2);} else{ t2=C_slot(((C_word*)t0)[3],t1); t3=C_i_setslot(((C_word*)t0)[4],t1,t2); t4=C_fixnum_plus(t1,C_fix(1)); t6=t4; t1=t6; goto loop;}} /* chicken.base#subvector in k8510 */ static void C_ccall f_17978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_17978,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+8); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=C_i_check_vector_2(t2,lf[676]); t8=C_block_size(t2); t9=t8; t10=(C_truep(t6)?t6:t9); t11=t10; t12=C_fixnum_difference(t11,t3); t13=t12; t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17997,a[2]=t13,a[3]=t3,a[4]=t2,a[5]=t1,a[6]=t9,a[7]=t11,tmp=(C_word)a,a+=8,tmp); t15=C_fixnum_plus(t9,C_fix(1)); /* library.scm:2886: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[334]+1); av2[1]=t14; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t15; av2[5]=lf[676]; tp(6,av2);}} /* k17995 in chicken.base#subvector in k8510 */ static void C_ccall f_17997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_17997,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18000,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_fixnum_plus(((C_word*)t0)[6],C_fix(1)); /* library.scm:2887: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[334]+1); av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_fix(0); av2[4]=t3; av2[5]=lf[676]; tp(6,av2);}} /* k17998 in k17995 in chicken.base#subvector in k8510 */ static void C_ccall f_18000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_18000,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18003,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:2888: scheme#make-vector */ t3=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k18001 in k17998 in k17995 in chicken.base#subvector in k8510 */ static void C_ccall f_18003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_18003,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18008,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li500),tmp=(C_word)a,a+=7,tmp); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=( f_18008(t3,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop3550 in k18001 in k17998 in k17995 in chicken.base#subvector in k8510 */ static C_word C_fcall f_18008(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_fixnum_plus(t1,((C_word*)t0)[4]); t3=C_slot(((C_word*)t0)[5],t2); t4=C_i_setslot(((C_word*)t0)[3],t1,t3); t5=C_fixnum_plus(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}} /* chicken.base#vector-resize in k8510 */ static void C_ccall f_18049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_18049,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=C_i_check_vector_2(t2,lf[677]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18059,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* library.scm:2896: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[102]+1); av2[1]=t9; av2[2]=t3; av2[3]=lf[677]; tp(4,av2);}} /* k18057 in chicken.base#vector-resize in k8510 */ static void C_ccall f_18059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_18059,2,av);} /* library.scm:2897: ##sys#vector-resize */ f_18070(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* ##sys#vector-resize in k8510 */ static void C_fcall f_18070(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_18070,4,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18074,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:2900: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[670]+1); av2[1]=t5; av2[2]=t3; av2[3]=t4; tp(4,av2);}} /* k18072 in ##sys#vector-resize in k8510 */ static void C_ccall f_18074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_18074,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18077,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_block_size(((C_word*)t0)[2]); /* library.scm:2901: scheme#min */ t5=*((C_word*)lf[558]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k18075 in k18072 in ##sys#vector-resize in k8510 */ static void C_ccall f_18077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_18077,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18082,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li503),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=( f_18082(t3,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* doloop3578 in k18075 in k18072 in ##sys#vector-resize in k8510 */ static C_word C_fcall f_18082(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(((C_word*)t0)[3]);} else{ t2=C_slot(((C_word*)t0)[4],t1); t3=C_i_setslot(((C_word*)t0)[3],t1,t2); t4=C_fixnum_plus(t1,C_fix(1)); t6=t4; t1=t6; goto loop;}} /* scheme#char-ci=? in k8510 */ static void C_ccall f_18109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18109,4,av);} t4=C_u_i_char_downcase(t2); t5=C_u_i_char_downcase(t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_eqp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* scheme#char-ci>? in k8510 */ static void C_ccall f_18123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18123,4,av);} t4=C_u_i_char_downcase(t2); t5=C_u_i_char_downcase(t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_u_i_char_greaterp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* scheme#char-ci<? in k8510 */ static void C_ccall f_18134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18134,4,av);} t4=C_u_i_char_downcase(t2); t5=C_u_i_char_downcase(t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_u_i_char_lessp(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* scheme#char-ci>=? in k8510 */ static void C_ccall f_18145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18145,4,av);} t4=C_u_i_char_downcase(t2); t5=C_u_i_char_downcase(t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_u_i_char_greater_or_equal_p(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* scheme#char-ci<=? in k8510 */ static void C_ccall f_18156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18156,4,av);} t4=C_u_i_char_downcase(t2); t5=C_u_i_char_downcase(t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_u_i_char_less_or_equal_p(t4,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k18167 in k8510 */ static void C_ccall f_18169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_18169,2,av);} a=C_alloc(15); t2=t1; t3=C_SCHEME_END_OF_LIST; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18171,a[2]=t2,a[3]=((C_word)li511),tmp=(C_word)a,a+=4,tmp); t6=C_mutate((C_word*)lf[199]+1 /* (set! chicken.base#char-name ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18212,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=((C_word)li512),tmp=(C_word)a,a+=6,tmp)); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18329,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2970: chicken.base#char-name */ t8=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[1394]; av2[3]=C_make_character(32); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* lookup-char in k18167 in k8510 */ static void C_fcall f_18171(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_18171,3,t0,t1,t2);} a=C_alloc(4); t3=C_fix(C_character_code(t2)); t4=C_fixnum_modulo(t3,C_fix(37)); t5=C_slot(((C_word*)t0)[2],t4); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18184,a[2]=t2,a[3]=((C_word)li510),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=( f_18184(t6,t5) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* loop in lookup-char in k18167 in k8510 */ static C_word C_fcall f_18184(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=C_slot(t2,C_fix(0)); t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ return(t2);} else{ t5=C_slot(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}} else{ return(C_SCHEME_FALSE);}} /* chicken.base#char-name in k18167 in k8510 */ static void C_ccall f_18212(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,2)))){ C_save_and_reclaim((void*)f_18212,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18216,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_pairp(t3))){ t5=t3; t6=t4; f_18216(t6,C_u_i_car(t5));} else{ t5=t4; f_18216(t5,C_SCHEME_FALSE);}} /* k18214 in chicken.base#char-name in k18167 in k8510 */ static void C_fcall f_18216(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_18216,2,t0,t1);} a=C_alloc(8); t2=t1; if(C_truep(C_charp(((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18225,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* library.scm:2944: lookup-char */ t4=((C_word*)t0)[4]; f_18171(t4,t3,((C_word*)t0)[2]);} else{ if(C_truep(t2)){ t3=C_i_check_symbol_2(((C_word*)t0)[2],lf[679]); t4=C_i_check_char_2(t2,lf[679]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18243,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t6=C_slot(((C_word*)t0)[2],C_fix(1)); t7=C_block_size(t6); if(C_truep(C_fixnum_lessp(t7,C_fix(2)))){ /* library.scm:2950: ##sys#signal-hook */ t8=C_fast_retrieve(lf[194]);{ C_word av2[6]; av2[0]=t8; av2[1]=t5; av2[2]=lf[258]; av2[3]=lf[679]; av2[4]=lf[680]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} else{ t8=t5;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_18243(2,av2);}}} else{ t3=C_i_check_symbol_2(((C_word*)t0)[2],lf[679]); t4=C_i_assq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[5])[1]); t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=(C_truep(t4)?C_slot(t4,C_fix(1)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* k18223 in k18214 in chicken.base#char-name in k18167 in k8510 */ static void C_ccall f_18225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18225,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_slot(t1,C_fix(1)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k18241 in k18214 in chicken.base#char-name in k18167 in k8510 */ static void C_ccall f_18243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_18243,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18246,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* library.scm:2951: lookup-char */ t3=((C_word*)t0)[7]; f_18171(t3,t2,((C_word*)t0)[5]);} /* k18244 in k18241 in k18214 in chicken.base#char-name in k18167 in k8510 */ static void C_ccall f_18246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_18246,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=C_i_assq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=C_i_setslot(t1,C_fix(1),((C_word*)t0)[2]); if(C_truep(t2)){ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_set_i_slot(t2,C_fix(1),((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[5]); t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[3])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t2=C_fix(C_character_code(((C_word*)t0)[5])); t3=C_fixnum_modulo(t2,C_fix(37)); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[5]); t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[3])[1]); t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t7=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[2]); t8=C_slot(((C_word*)t0)[6],t3); t9=C_a_i_cons(&a,2,t7,t8); t10=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t10; av2[1]=C_i_setslot(((C_word*)t0)[6],t3,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* k18327 in k18167 in k8510 */ static void C_ccall f_18329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18329,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18332,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2971: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1393]; av2[3]=C_make_character(9); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18332,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18335,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2972: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1392]; av2[3]=C_make_character(10); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18335,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18338,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2973: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1391]; av2[3]=C_make_character(10); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18338,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18341,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2974: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1390]; av2[3]=C_make_character(11); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18341,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18344,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2975: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1389]; av2[3]=C_make_character(127); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18344,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18347,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2976: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1388]; av2[3]=C_make_character(27); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18347,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18350,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2977: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1387]; av2[3]=C_make_character(27); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18350,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18353,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2978: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1386]; av2[3]=C_make_character(7); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18353,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18356,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2979: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1385]; av2[3]=C_make_character(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18356,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18359,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2980: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1384]; av2[3]=C_make_character(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18359,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18362,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2981: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1383]; av2[3]=C_make_character(13); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18362(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18362,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18365,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2982: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1382]; av2[3]=C_make_character(12); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18365(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_18365,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18368,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2983: chicken.base#char-name */ t3=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1381]; av2[3]=C_make_character(8); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(102,c,6)))){ C_save_and_reclaim((void *)f_18368,2,av);} a=C_alloc(102); t2=C_mutate((C_word*)lf[681]+1 /* (set! ##sys#call-with-current-continuation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_cc,a[2]=((C_word)li513),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate((C_word*)lf[682]+1 /* (set! ##sys#call-with-cthulhu ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_with_cthulhu,a[2]=((C_word)li514),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[683]+1 /* (set! ##sys#call-with-values ...) */,*((C_word*)lf[131]+1)); t5=C_mutate((C_word*)lf[684]+1 /* (set! ##sys#for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18373,a[2]=((C_word)li516),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[686]+1 /* (set! ##sys#map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18411,a[2]=((C_word)li518),tmp=(C_word)a,a+=3,tmp)); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18453,a[2]=t10,a[3]=t8,a[4]=((C_word)li519),tmp=(C_word)a,a+=5,tmp); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18497,a[2]=((C_word)li521),tmp=(C_word)a,a+=3,tmp); t13=C_set_block_item(t8,0,t11); t14=C_set_block_item(t10,0,t12); t15=C_mutate((C_word*)lf[170]+1 /* (set! scheme#for-each ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18551,a[2]=t8,a[3]=t10,a[4]=((C_word)li526),tmp=(C_word)a,a+=5,tmp)); t16=C_mutate((C_word*)lf[171]+1 /* (set! scheme#map ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18637,a[2]=t8,a[3]=t10,a[4]=((C_word)li531),tmp=(C_word)a,a+=5,tmp)); t17=C_set_block_item(lf[689] /* ##sys#dynamic-winds */,0,C_SCHEME_END_OF_LIST); t18=C_mutate((C_word*)lf[172]+1 /* (set! scheme#dynamic-wind ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18744,a[2]=((C_word)li533),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[690]+1 /* (set! ##sys#dynamic-wind ...) */,*((C_word*)lf[172]+1)); t20=C_mutate((C_word*)lf[132]+1 /* (set! scheme#call-with-current-continuation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18775,a[2]=((C_word)li536),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[198]+1 /* (set! chicken.base#call/cc ...) */,*((C_word*)lf[132]+1)); t22=C_mutate(&lf[691] /* (set! ##sys#dynamic-unwind ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18815,a[2]=((C_word)li537),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate((C_word*)lf[207]+1 /* (set! chicken.base#port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18873,a[2]=((C_word)li538),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate((C_word*)lf[209]+1 /* (set! chicken.base#input-port-open? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18879,a[2]=((C_word)li539),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate((C_word*)lf[210]+1 /* (set! chicken.base#output-port-open? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18884,a[2]=((C_word)li540),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate((C_word*)lf[208]+1 /* (set! chicken.base#port-closed? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18889,a[2]=((C_word)li541),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate((C_word*)lf[696]+1 /* (set! ##sys#make-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18902,a[2]=((C_word)li542),tmp=(C_word)a,a+=3,tmp)); t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31949,a[2]=((C_word)li544),tmp=(C_word)a,a+=3,tmp); t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31989,a[2]=((C_word)li546),tmp=(C_word)a,a+=3,tmp); t30=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32029,a[2]=((C_word)li547),tmp=(C_word)a,a+=3,tmp); t31=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32032,a[2]=((C_word)li548),tmp=(C_word)a,a+=3,tmp); t32=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32035,a[2]=((C_word)li549),tmp=(C_word)a,a+=3,tmp); t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32041,a[2]=((C_word)li550),tmp=(C_word)a,a+=3,tmp); t34=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32044,a[2]=((C_word)li551),tmp=(C_word)a,a+=3,tmp); t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32047,a[2]=((C_word)li554),tmp=(C_word)a,a+=3,tmp); t36=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32146,a[2]=((C_word)li557),tmp=(C_word)a,a+=3,tmp); t37=C_a_i_vector(&a,10,t28,t29,t30,t31,t32,t33,t34,t35,t36,C_SCHEME_FALSE); t38=C_mutate((C_word*)lf[710]+1 /* (set! ##sys#stream-port-class ...) */,t37); t39=C_mutate((C_word*)lf[711]+1 /* (set! ##sys#open-file-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_open_file_port,a[2]=((C_word)li558),tmp=(C_word)a,a+=3,tmp)); t40=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18933,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3267: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[696]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[696]+1); av2[1]=t40; av2[2]=C_fix(1); av2[3]=C_fast_retrieve(lf[710]); av2[4]=lf[1380]; av2[5]=lf[729]; tp(6,av2);}} /* ##sys#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_18373,4,av);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18379,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li515),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_18379(t7,t1,t3);} /* loop in ##sys#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_18379(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_18379,3,t0,t1,t2);} a=C_alloc(5); t3=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18395,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_slot(t2,C_fix(0)); /* library.scm:2996: p */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ /* library.scm:2998: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[47]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[47]+1); av2[1]=t1; av2[2]=((C_word*)t0)[4]; av2[3]=lf[685]; tp(4,av2);}}}} /* k18393 in loop in ##sys#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18395,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:2997: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_18379(t3,((C_word*)t0)[4],t2);} /* ##sys#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_18411,4,av);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18417,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li517),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_18417(t7,t1,t3);} /* loop in ##sys#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_18417(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_18417,3,t0,t1,t2);} a=C_alloc(5); t3=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t3)){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18437,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t5=C_slot(t2,C_fix(0)); /* library.scm:3004: p */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ /* library.scm:3005: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[47]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[47]+1); av2[1]=t1; av2[2]=((C_word*)t0)[4]; av2[3]=lf[687]; tp(4,av2);}}}} /* k18435 in loop in ##sys#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_18437,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18441,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_slot(((C_word*)t0)[3],C_fix(1)); /* library.scm:3004: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_18417(t5,t3,t4);} /* k18439 in k18435 in loop in ##sys#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18441,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* mapsafe3654 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_18453,6,av);} a=C_alloc(7); t6=C_eqp(t3,C_SCHEME_END_OF_LIST); if(C_truep(t6)){ t7=t3; t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_slot(t3,C_fix(0)); t8=C_eqp(t7,C_SCHEME_END_OF_LIST); if(C_truep(t8)){ /* library.scm:3013: check */ t9=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; av2[0]=t9; av2[1]=t1; av2[2]=t3; av2[3]=t4; av2[4]=t5; ((C_proc)C_fast_retrieve_proc(t9))(5,av2);}} else{ if(C_truep(C_i_pairp(t7))){ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18485,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* library.scm:3015: p */ t10=t2;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; av2[2]=t7; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}} else{ /* library.scm:3016: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[47]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[47]+1); av2[1]=t1; av2[2]=t7; av2[3]=t5; tp(4,av2);}}}}} /* k18483 in mapsafe3654 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_18485,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18489,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_slot(((C_word*)t0)[3],C_fix(1)); /* library.scm:3015: mapsafe */ t5=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=t4; av2[4]=C_SCHEME_FALSE; av2[5]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} /* k18487 in k18483 in mapsafe3654 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18489,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* check3655 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_18497,5,av);} a=C_alloc(8); t5=C_i_not(t3); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18507,a[2]=t1,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ t7=t6; f_18507(t7,t5);} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18515,a[2]=((C_word)li520),tmp=(C_word)a,a+=3,tmp); t8=t6; f_18507(t8,( f_18515(t2) ));}} /* k18505 in check3655 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_18507(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_18507,2,t0,t1);} if(C_truep(t1)){ /* library.scm:3024: ##sys#error */ t2=*((C_word*)lf[155]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[688]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in check3655 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static C_word C_fcall f_18515(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} t2=C_eqp(t1,C_SCHEME_END_OF_LIST); if(C_truep(C_i_not(t2))){ t3=C_slot(t1,C_fix(0)); t4=C_eqp(t3,C_SCHEME_END_OF_LIST); if(C_truep(C_i_not(t4))){ t5=C_slot(t1,C_fix(1)); t7=t5; t1=t7; goto loop;} else{ return(C_SCHEME_FALSE);}} else{ return(C_SCHEME_FALSE);}} /* scheme#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,3)))){ C_save_and_reclaim((void*)f_18551,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; if(C_truep(C_i_nullp(t4))){ t5=t2; t6=t3; t7=C_i_check_list_2(t6,lf[685]); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18566,a[2]=t9,a[3]=t5,a[4]=((C_word)li522),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_18566(t11,t1,t6);} else{ t5=C_a_i_cons(&a,2,t3,t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18596,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word)li525),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_18596(t9,t1,t5);}} /* for-each-loop3685 in scheme#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_18566(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_18566,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18576,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* library.scm:3029: g3686 */ t5=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k18574 in for-each-loop3685 in scheme#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18576,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_18566(t3,((C_word*)t0)[4],t2);} /* loop in scheme#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_18596(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,5)))){ C_save_and_reclaim_args((void *)trf_18596,3,t0,t1,t2);} a=C_alloc(13); t3=C_slot(t2,C_fix(0)); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18609,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18626,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18628,a[2]=((C_word)li524),tmp=(C_word)a,a+=3,tmp); /* library.scm:3033: mapsafe */ t7=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[6]; av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=t2; av2[4]=C_SCHEME_TRUE; av2[5]=lf[685]; ((C_proc)C_fast_retrieve_proc(t7))(6,av2);}} else{ /* library.scm:3035: check */ t4=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=lf[685]; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}} /* k18607 in loop in scheme#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_18609,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18616,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18618,a[2]=((C_word)li523),tmp=(C_word)a,a+=3,tmp); /* library.scm:3034: mapsafe */ t4=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[5]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[685]; ((C_proc)C_fast_retrieve_proc(t4))(6,av2);}} /* k18614 in k18607 in loop in scheme#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18616,2,av);} /* library.scm:3034: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_18596(t2,((C_word*)t0)[3],t1);} /* a18617 in k18607 in loop in scheme#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18618,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cdr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18624 in loop in scheme#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18626,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* a18627 in loop in scheme#for-each in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18628,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +14,c,3)))){ C_save_and_reclaim((void*)f_18637,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+14); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; if(C_truep(C_i_nullp(t4))){ t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=t2; t10=t3; t11=C_i_check_list_2(t10,lf[687]); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18655,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,a[6]=((C_word)li527),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_18655(t15,t1,t10);} else{ t5=C_a_i_cons(&a,2,t3,t4); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18696,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word)li530),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_18696(t9,t1,t5);}} /* map-loop3716 in scheme#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_18655(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_18655,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18680,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* library.scm:3040: g3722 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k18678 in map-loop3716 in scheme#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_18680,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_18655(t6,((C_word*)t0)[5],t5);} /* loop in scheme#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_18696(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,5)))){ C_save_and_reclaim_args((void *)trf_18696,3,t0,t1,t2);} a=C_alloc(13); t3=C_slot(t2,C_fix(0)); if(C_truep(C_i_pairp(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18713,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18731,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18733,a[2]=((C_word)li529),tmp=(C_word)a,a+=3,tmp); /* library.scm:3044: mapsafe */ t7=((C_word*)((C_word*)t0)[3])[1];{ C_word av2[6]; av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=t2; av2[4]=C_SCHEME_TRUE; av2[5]=lf[687]; ((C_proc)C_fast_retrieve_proc(t7))(6,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18740,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_i_cdr(t2); /* library.scm:3046: check */ t6=((C_word*)((C_word*)t0)[5])[1];{ C_word av2[5]; av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=C_SCHEME_TRUE; av2[4]=lf[687]; ((C_proc)C_fast_retrieve_proc(t6))(5,av2);}}} /* k18711 in loop in scheme#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_18713,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18717,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18721,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18723,a[2]=((C_word)li528),tmp=(C_word)a,a+=3,tmp); /* library.scm:3045: mapsafe */ t6=((C_word*)((C_word*)t0)[4])[1];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=((C_word*)t0)[5]; av2[4]=C_SCHEME_TRUE; av2[5]=lf[687]; ((C_proc)C_fast_retrieve_proc(t6))(6,av2);}} /* k18715 in k18711 in loop in scheme#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_18717,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k18719 in k18711 in loop in scheme#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18721,2,av);} /* library.scm:3045: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_18696(t2,((C_word*)t0)[3],t1);} /* a18722 in k18711 in loop in scheme#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18723,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cdr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18729 in loop in scheme#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18731,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; C_apply(4,av2);}} /* a18732 in loop in scheme#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18733,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18738 in loop in scheme#map in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18740,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* scheme#dynamic-wind in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_18744,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18748,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* library.scm:3066: before */ t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} /* k18746 in scheme#dynamic-wind in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_18748,2,av);} a=C_alloc(10); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,t2,C_fast_retrieve(lf[689])); t4=C_mutate((C_word*)lf[689]+1 /* (set! ##sys#dynamic-winds ...) */,t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18757,a[2]=((C_word*)t0)[3],a[3]=((C_word)li532),tmp=(C_word)a,a+=4,tmp); /* library.scm:3068: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t5; C_call_with_values(4,av2);}} /* a18756 in k18746 in scheme#dynamic-wind in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_18757,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; t3=C_slot(C_fast_retrieve(lf[689]),C_fix(1)); t4=C_mutate((C_word*)lf[689]+1 /* (set! ##sys#dynamic-winds ...) */,t3); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18765,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3072: after */ t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} /* k18763 in a18756 in k18746 in scheme#dynamic-wind in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_18765,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; C_apply_values(3,av2);}} /* scheme#call-with-current-continuation in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_18775,3,av);} a=C_alloc(5); t3=C_fast_retrieve(lf[689]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18781,a[2]=t3,a[3]=t2,a[4]=((C_word)li535),tmp=(C_word)a,a+=5,tmp); /* library.scm:3080: ##sys#call-with-current-continuation */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t4; C_call_cc(3,av2);}} /* a18780 in scheme#call-with-current-continuation in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_18781,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18784,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li534),tmp=(C_word)a,a+=5,tmp); /* library.scm:3086: proc */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* continuation in a18780 in scheme#call-with-current-continuation in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_18784,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18788,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_eqp(C_fast_retrieve(lf[689]),((C_word*)t0)[3]); if(C_truep(t4)){{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; C_apply(4,av2);}} else{ t5=C_i_length(C_fast_retrieve(lf[689])); t6=C_i_length(((C_word*)t0)[3]); t7=C_fixnum_difference(t5,t6); /* library.scm:3084: ##sys#dynamic-unwind */ f_18815(t3,((C_word*)t0)[3],t7);}} /* k18786 in continuation in a18780 in scheme#call-with-current-continuation in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18788,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}} /* ##sys#dynamic-unwind in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_18815(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_18815,3,t1,t2,t3);} a=C_alloc(5); t4=C_eqp(C_fast_retrieve(lf[689]),t2); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18831,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=C_slot(t2,C_fix(1)); t7=C_fixnum_plus(t3,C_fix(1)); /* library.scm:3093: ##sys#dynamic-unwind */ t11=t5; t12=t6; t13=t7; t1=t11; t2=t12; t3=t13; goto loop;} else{ t5=C_slot(C_fast_retrieve(lf[689]),C_fix(0)); t6=C_slot(t5,C_fix(1)); t7=C_slot(C_fast_retrieve(lf[689]),C_fix(1)); t8=C_mutate((C_word*)lf[689]+1 /* (set! ##sys#dynamic-winds ...) */,t7); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18860,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:3099: after */ t10=t6;{ C_word av2[2]; av2[0]=t10; av2[1]=t9; ((C_proc)C_fast_retrieve_proc(t10))(2,av2);}}}} /* k18829 in ##sys#dynamic-unwind in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18831(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_18831,2,av);} a=C_alloc(4); t2=C_slot(((C_word*)t0)[2],C_fix(0)); t3=C_slot(t2,C_fix(0)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18837,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:3091: g3781 */ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} /* k18835 in k18829 in ##sys#dynamic-unwind in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18837,2,av);} t2=C_mutate((C_word*)lf[689]+1 /* (set! ##sys#dynamic-winds ...) */,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k18858 in ##sys#dynamic-unwind in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_18860,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* library.scm:3100: ##sys#dynamic-unwind */ f_18815(((C_word*)t0)[3],((C_word*)t0)[4],t2);} /* chicken.base#port? in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18873,3,av);} if(C_truep(C_blockp(t2))){ t3=C_portp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* chicken.base#input-port-open? in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18879(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18879,3,av);} t3=t2; t4=C_i_check_port(t3,C_fix(1),lf[692]); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_input_port_openp(t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.base#output-port-open? in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18884,3,av);} t3=t2; t4=C_i_check_port(t3,C_fix(2),lf[693]); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_output_port_openp(t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.base#port-closed? in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_18889,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18893,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:3122: ##sys#check-port */ t4=*((C_word*)lf[694]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[695]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k18891 in chicken.base#port-closed? in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_18893,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(8)); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_eqp(t2,C_fix(0)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#make-port in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(17,c,1)))){ C_save_and_reclaim((void *)f_18902,6,av);} a=C_alloc(17); t6=C_a_i_port(&a,0); t7=C_i_set_i_slot(t6,C_fix(1),t2); t8=C_i_setslot(t6,C_fix(2),t3); t9=C_i_setslot(t6,C_fix(3),t4); t10=C_i_set_i_slot(t6,C_fix(4),C_fix(1)); t11=C_i_set_i_slot(t6,C_fix(5),C_fix(0)); t12=C_i_setslot(t6,C_fix(7),t5); t13=C_i_setslot(t6,C_fix(8),t2); t14=t1;{ C_word *av2=av; av2[0]=t14; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} /* k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_18933,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[712]+1 /* (set! ##sys#standard-input ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18937,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3268: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[696]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[696]+1); av2[1]=t3; av2[2]=C_fix(2); av2[3]=C_fast_retrieve(lf[710]); av2[4]=lf[1379]; av2[5]=lf[729]; tp(6,av2);}} /* k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_18937,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[713]+1 /* (set! ##sys#standard-output ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18941,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3269: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[696]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[696]+1); av2[1]=t3; av2[2]=C_fix(2); av2[3]=C_fast_retrieve(lf[710]); av2[4]=lf[1378]; av2[5]=lf[729]; tp(6,av2);}} /* k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_18941,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[714]+1 /* (set! ##sys#standard-error ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18944,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3271: ##sys#open-file-port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[711]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[711]+1); av2[1]=t3; av2[2]=*((C_word*)lf[712]+1); av2[3]=C_fix(0); av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_18944,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18947,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3272: ##sys#open-file-port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[711]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[711]+1); av2[1]=t2; av2[2]=*((C_word*)lf[713]+1); av2[3]=C_fix(1); av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_18947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_18947,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18950,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3273: ##sys#open-file-port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[711]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[711]+1); av2[1]=t2; av2[2]=*((C_word*)lf[714]+1); av2[3]=C_fix(2); av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 in ... */ static void C_ccall f_18950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(119,c,6)))){ C_save_and_reclaim((void *)f_18950,2,av);} a=C_alloc(119); t2=C_mutate((C_word*)lf[715]+1 /* (set! ##sys#check-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18952,a[2]=((C_word)li559),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate((C_word*)lf[716]+1 /* (set! ##sys#check-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18963,a[2]=((C_word)li560),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[694]+1 /* (set! ##sys#check-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18974,a[2]=((C_word)li561),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[717]+1 /* (set! ##sys#check-open-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18985,a[2]=((C_word)li562),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[135]+1 /* (set! scheme#current-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18996,a[2]=((C_word)li564),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[136]+1 /* (set! scheme#current-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19057,a[2]=((C_word)li566),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[192]+1 /* (set! chicken.base#current-error-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19118,a[2]=((C_word)li568),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[721]+1 /* (set! ##sys#tty-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19179,a[2]=((C_word)li569),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[723]+1 /* (set! ##sys#port-data ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19193,a[2]=((C_word)li570),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[724]+1 /* (set! ##sys#set-port-data! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19199,a[2]=((C_word)li571),tmp=(C_word)a,a+=3,tmp)); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19205,a[2]=((C_word)li573),tmp=(C_word)a,a+=3,tmp)); t17=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19303,a[2]=((C_word)li574),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[137]+1 /* (set! scheme#open-input-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19340,a[2]=t13,a[3]=((C_word)li575),tmp=(C_word)a,a+=4,tmp)); t19=C_mutate((C_word*)lf[138]+1 /* (set! scheme#open-output-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19346,a[2]=t13,a[3]=((C_word)li576),tmp=(C_word)a,a+=4,tmp)); t20=C_mutate((C_word*)lf[139]+1 /* (set! scheme#close-input-port ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19352,a[2]=t15,a[3]=((C_word)li577),tmp=(C_word)a,a+=4,tmp)); t21=C_mutate((C_word*)lf[140]+1 /* (set! scheme#close-output-port ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19358,a[2]=t15,a[3]=((C_word)li578),tmp=(C_word)a,a+=4,tmp)); t22=*((C_word*)lf[137]+1); t23=C_mutate((C_word*)lf[141]+1 /* (set! scheme#call-with-input-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19364,a[2]=t22,a[3]=((C_word)li581),tmp=(C_word)a,a+=4,tmp)); t24=*((C_word*)lf[138]+1); t25=C_mutate((C_word*)lf[142]+1 /* (set! scheme#call-with-output-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19388,a[2]=t24,a[3]=((C_word)li584),tmp=(C_word)a,a+=4,tmp)); t26=*((C_word*)lf[137]+1); t27=C_mutate((C_word*)lf[143]+1 /* (set! scheme#with-input-from-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19412,a[2]=t26,a[3]=((C_word)li589),tmp=(C_word)a,a+=4,tmp)); t28=*((C_word*)lf[138]+1); t29=C_mutate((C_word*)lf[144]+1 /* (set! scheme#with-output-to-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19446,a[2]=t28,a[3]=((C_word)li594),tmp=(C_word)a,a+=4,tmp)); t30=C_mutate((C_word*)lf[742]+1 /* (set! ##sys#file-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19480,a[2]=((C_word)li595),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate((C_word*)lf[745]+1 /* (set! ##sys#flush-output ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19506,a[2]=((C_word)li596),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate((C_word*)lf[214]+1 /* (set! chicken.base#flush-output ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19519,a[2]=((C_word)li597),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate((C_word*)lf[747]+1 /* (set! ##sys#port-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19537,a[2]=((C_word)li598),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate((C_word*)lf[748]+1 /* (set! ##sys#decorate-lambda ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19546,a[2]=((C_word)li601),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate((C_word*)lf[749]+1 /* (set! ##sys#lambda-decoration ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19621,a[2]=((C_word)li603),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate((C_word*)lf[750]+1 /* (set! ##sys#make-lambda-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19660,a[2]=((C_word)li604),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate((C_word*)lf[751]+1 /* (set! ##sys#lambda-info? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19669,a[2]=((C_word)li605),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate((C_word*)lf[752]+1 /* (set! ##sys#lambda-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19682,a[2]=((C_word)li606),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate((C_word*)lf[753]+1 /* (set! ##sys#lambda-info->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19688,a[2]=((C_word)li607),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate((C_word*)lf[202]+1 /* (set! chicken.base#procedure-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19697,a[2]=((C_word)li608),tmp=(C_word)a,a+=3,tmp)); t41=C_a_i_vector1(&a,1,lf[756]); t42=C_mutate(&lf[757] /* (set! setter-tag ...) */,t41); t43=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19726,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31825,a[2]=((C_word)li998),tmp=(C_word)a,a+=3,tmp); t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31865,a[2]=((C_word)li999),tmp=(C_word)a,a+=3,tmp); t46=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31881,a[2]=((C_word)li1003),tmp=(C_word)a,a+=3,tmp); /* library.scm:3502: ##sys#decorate-lambda */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[748]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[748]+1); av2[1]=t43; av2[2]=t44; av2[3]=t45; av2[4]=t46; tp(5,av2);}} /* ##sys#check-input-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_18952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_18952,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; if(C_truep(C_i_pairp(t4))){ t5=t4; t6=C_u_i_car(t5); t7=C_i_check_port_2(t2,C_fix(1),t3,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t5=C_i_check_port(t2,C_fix(1),t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* ##sys#check-output-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_18963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_18963,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; if(C_truep(C_i_pairp(t4))){ t5=t4; t6=C_u_i_car(t5); t7=C_i_check_port_2(t2,C_fix(2),t3,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t5=C_i_check_port(t2,C_fix(2),t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* ##sys#check-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_18974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_18974,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_port_2(t2,C_fix(0),C_SCHEME_FALSE,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_port(t2,C_fix(0),C_SCHEME_FALSE); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* ##sys#check-open-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_18985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_18985,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=C_i_check_port_2(t2,C_fix(0),C_SCHEME_TRUE,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=C_i_check_port(t2,C_fix(0),C_SCHEME_TRUE); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* scheme#current-input-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_18996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_18996,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t2))){ t3=*((C_word*)lf[712]+1); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=*((C_word*)lf[712]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19009,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3300: ##sys#check-port */ t6=*((C_word*)lf[694]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[718]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k19007 in scheme#current-input-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_19009,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19011,a[2]=((C_word*)t0)[3],a[3]=((C_word)li563),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19017,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19022,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ t7=( /* library.scm:3301: def-convert?3903 */ f_19022(t6) ); t8=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t8; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_i_car(t3); t8=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t8))){ t9=( /* library.scm:3301: def-set?3904 */ f_19017(t5) ); t10=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t10; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_i_car(t8); t10=C_u_i_cdr(t8); t11=( /* library.scm:3301: body3901 */ f_19011(t4,t9) ); t12=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t12; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}} /* body3901 in k19007 in scheme#current-input-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static C_word C_fcall f_19011(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} if(C_truep(t1)){ t2=C_mutate((C_word*)lf[712]+1 /* (set! ##sys#standard-input ...) */,((C_word*)t0)[2]); return(t2);} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* def-set?3904 in k19007 in scheme#current-input-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static C_word C_fcall f_19017(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:3301: body3901 */ f_19011(((C_word*)t0)[2],C_SCHEME_TRUE) ));} /* def-convert?3903 in k19007 in scheme#current-input-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static C_word C_fcall f_19022(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:3301: def-set?3904 */ f_19017(((C_word*)t0)[2]) ));} /* scheme#current-output-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_19057,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t2))){ t3=*((C_word*)lf[713]+1); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=*((C_word*)lf[713]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19070,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3310: ##sys#check-port */ t6=*((C_word*)lf[694]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[719]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k19068 in scheme#current-output-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_19070,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19072,a[2]=((C_word*)t0)[3],a[3]=((C_word)li565),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19078,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19083,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ t7=( /* library.scm:3311: def-convert?3928 */ f_19083(t6) ); t8=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t8; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_i_car(t3); t8=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t8))){ t9=( /* library.scm:3311: def-set?3929 */ f_19078(t5) ); t10=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t10; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_i_car(t8); t10=C_u_i_cdr(t8); t11=( /* library.scm:3311: body3926 */ f_19072(t4,t9) ); t12=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t12; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}} /* body3926 in k19068 in scheme#current-output-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static C_word C_fcall f_19072(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} if(C_truep(t1)){ t2=C_mutate((C_word*)lf[713]+1 /* (set! ##sys#standard-output ...) */,((C_word*)t0)[2]); return(t2);} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* def-set?3929 in k19068 in scheme#current-output-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static C_word C_fcall f_19078(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:3311: body3926 */ f_19072(((C_word*)t0)[2],C_SCHEME_TRUE) ));} /* def-convert?3928 in k19068 in scheme#current-output-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static C_word C_fcall f_19083(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:3311: def-set?3929 */ f_19078(((C_word*)t0)[2]) ));} /* chicken.base#current-error-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_19118,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t2))){ t3=*((C_word*)lf[714]+1); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19131,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3320: ##sys#check-port */ t6=*((C_word*)lf[694]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[720]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k19129 in chicken.base#current-error-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_19131,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19133,a[2]=((C_word*)t0)[3],a[3]=((C_word)li567),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19139,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19144,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ t7=( /* library.scm:3321: def-convert?3953 */ f_19144(t6) ); t8=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t8; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_i_car(t3); t8=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t8))){ t9=( /* library.scm:3321: def-set?3954 */ f_19139(t5) ); t10=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t10; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_i_car(t8); t10=C_u_i_cdr(t8); t11=( /* library.scm:3321: body3951 */ f_19133(t4,t9) ); t12=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t12; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}} /* body3951 in k19129 in chicken.base#current-error-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static C_word C_fcall f_19133(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} if(C_truep(t1)){ t2=C_mutate((C_word*)lf[714]+1 /* (set! ##sys#standard-error ...) */,((C_word*)t0)[2]); return(t2);} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* def-set?3954 in k19129 in chicken.base#current-error-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static C_word C_fcall f_19139(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:3321: body3951 */ f_19133(((C_word*)t0)[2],C_SCHEME_TRUE) ));} /* def-convert?3953 in k19129 in chicken.base#current-error-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static C_word C_fcall f_19144(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:3321: def-set?3954 */ f_19139(((C_word*)t0)[2]) ));} /* ##sys#tty-port? in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_19179,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19191,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:3326: ##sys#peek-unsigned-integer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[722]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[722]+1); av2[1]=t3; av2[2]=t2; av2[3]=C_fix(0); tp(4,av2);}} /* k19189 in ##sys#tty-port? in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19191,2,av);} t2=C_i_zerop(t1); if(C_truep(C_i_not(t2))){ t3=C_tty_portp(((C_word*)t0)[2]); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* ##sys#port-data in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19193,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_slot(t2,C_fix(9)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#set-port-data! in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19199,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_setslot(t2,C_fix(9),t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* open in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_fcall f_19205(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){ C_save_and_reclaim_args((void *)trf_19205,5,t1,t2,t3,t4,t5);} a=C_alloc(22); t6=C_i_check_string_2(t2,t5); t7=(C_truep(t3)?lf[725]:lf[726]); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=lf[727]; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19215,a[2]=t1,a[3]=t5,a[4]=t2,a[5]=t9,a[6]=t11,a[7]=t3,tmp=(C_word)a,a+=8,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19248,a[2]=t14,a[3]=t11,a[4]=t3,a[5]=t5,a[6]=t9,a[7]=((C_word)li572),tmp=(C_word)a,a+=8,tmp)); t16=((C_word*)t14)[1]; f_19248(t16,t12,t4);} /* k19213 in open in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_19215,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19218,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[7])){ /* library.scm:3348: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[696]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[696]+1); av2[1]=t2; av2[2]=C_fix(1); av2[3]=C_fast_retrieve(lf[710]); av2[4]=((C_word*)t0)[4]; av2[5]=lf[729]; tp(6,av2);}} else{ /* library.scm:3348: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[696]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[696]+1); av2[1]=t2; av2[2]=C_fix(2); av2[3]=C_fast_retrieve(lf[710]); av2[4]=((C_word*)t0)[4]; av2[5]=lf[729]; tp(6,av2);}}} /* k19216 in k19213 in open in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_19218,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19221,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19224,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19242,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:3349: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=t5; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=((C_word*)((C_word*)t0)[6])[1]; tp(4,av2);}} /* k19219 in k19216 in k19213 in open in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_19221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19221,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k19222 in k19216 in k19213 in open in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_19224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_19224,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19227,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* library.scm:3350: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[702]); C_word *av2=av; av2[0]=*((C_word*)lf[702]+1); av2[1]=t2; tp(2,av2);}}} /* k19225 in k19222 in k19216 in k19213 in open in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in ... */ static void C_ccall f_19227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_19227,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19234,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19238,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[701]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)strerror(errno)); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k19232 in k19225 in k19222 in k19216 in k19213 in open in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in ... */ static void C_ccall f_19234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_19234,2,av);} /* library.scm:3351: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[698]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k19236 in k19225 in k19222 in k19216 in k19213 in open in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in ... */ static void C_ccall f_19238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19238,2,av);} /* library.scm:3351: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[728]; av2[3]=t1; tp(4,av2);}} /* k19240 in k19216 in k19213 in open in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_19242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19242,2,av);} /* library.scm:3349: ##sys#open-file-port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[711]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[711]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; tp(5,av2);}} /* doloop3988 in open in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_fcall f_19248(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_19248,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19261,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_eqp(t3,lf[730]); if(C_truep(t5)){ t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[731]); t7=C_slot(t2,C_fix(1)); t11=t1; t12=t7; t1=t11; t2=t12; goto loop;} else{ t6=C_eqp(t3,lf[732]); if(C_truep(t6)){ t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[733]); t8=C_slot(t2,C_fix(1)); t11=t1; t12=t8; t1=t11; t2=t12; goto loop;} else{ t7=C_eqp(t3,lf[734]); if(C_truep(t7)){ if(C_truep(((C_word*)t0)[4])){ /* library.scm:3345: ##sys#error */ t8=*((C_word*)lf[155]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=lf[735]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t8=C_mutate(((C_word *)((C_word*)t0)[6])+1,lf[736]); t9=C_slot(t2,C_fix(1)); t11=t1; t12=t9; t1=t11; t2=t12; goto loop;}} else{ /* library.scm:3347: ##sys#error */ t8=*((C_word*)lf[155]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=lf[737]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}}}} /* k19259 in doloop3988 in open in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19261,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_19248(t3,((C_word*)t0)[4],t2);} /* close in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_fcall f_19303(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_19303,4,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19307,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3355: ##sys#check-port */ t6=*((C_word*)lf[694]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k19305 in close in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19307,2,av);} t2=(C_truep(((C_word*)t0)[2])?C_fix(1):C_fix(2)); if(C_truep(C_port_openp(((C_word*)t0)[3],t2))){ t3=C_slot(((C_word*)t0)[3],C_fix(8)); t4=C_fixnum_not(t2); t5=C_fixnum_and(t3,t4); t6=C_i_set_i_slot(((C_word*)t0)[3],C_fix(8),t5); t7=C_slot(((C_word*)t0)[3],C_fix(2)); t8=C_slot(t7,C_fix(4)); /* library.scm:3358: g4009 */ t9=t8;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* scheme#open-input-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_19340,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; /* library.scm:3362: open */ f_19205(t1,t2,C_SCHEME_TRUE,t3,lf[738]);} /* scheme#open-output-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_19346,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; /* library.scm:3363: open */ f_19205(t1,t2,C_SCHEME_FALSE,t3,lf[739]);} /* scheme#close-input-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19352,3,av);} /* library.scm:3364: close */ f_19303(t1,t2,C_SCHEME_TRUE,lf[740]);} /* scheme#close-output-port in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_19358,3,av);} /* library.scm:3365: close */ f_19303(t1,t2,C_SCHEME_FALSE,lf[741]);} /* scheme#call-with-input-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_19364,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19368,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k19366 in scheme#call-with-input-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_19368,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19373,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li579),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19379,a[2]=t2,a[3]=((C_word)li580),tmp=(C_word)a,a+=4,tmp); /* library.scm:3372: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a19372 in k19366 in scheme#call-with-input-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19373,2,av);} /* library.scm:3373: p */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a19378 in k19366 in scheme#call-with-input-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_19379,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19383,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3375: close-input-port */ t4=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19381 in a19378 in k19366 in scheme#call-with-input-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_19383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19383,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; C_apply_values(3,av2);}} /* scheme#call-with-output-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_19388,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19392,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k19390 in scheme#call-with-output-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_19392,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19397,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li582),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19403,a[2]=t2,a[3]=((C_word)li583),tmp=(C_word)a,a+=4,tmp); /* library.scm:3383: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a19396 in k19390 in scheme#call-with-output-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19397,2,av);} /* library.scm:3384: p */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a19402 in k19390 in scheme#call-with-output-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_19403,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19407,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3386: close-output-port */ t4=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19405 in a19402 in k19390 in scheme#call-with-output-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_19407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19407,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; C_apply_values(3,av2);}} /* scheme#with-input-from-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_19412,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19416,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k19414 in scheme#with-input-from-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_19416,2,av);} a=C_alloc(19); t2=t1; t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19421,a[2]=t6,a[3]=t4,a[4]=((C_word)li585),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19426,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li587),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19441,a[2]=t4,a[3]=t6,a[4]=((C_word)li588),tmp=(C_word)a,a+=5,tmp); /* library.scm:3394: ##sys#dynamic-wind */ t10=*((C_word*)lf[690]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=((C_word*)t0)[3]; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* a19420 in k19414 in scheme#with-input-from-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19421,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[712]+1)); t3=C_mutate((C_word*)lf[712]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a19425 in k19414 in scheme#with-input-from-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19426(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_19426,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19432,a[2]=((C_word*)t0)[2],a[3]=((C_word)li586),tmp=(C_word)a,a+=4,tmp); /* library.scm:3395: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; C_call_with_values(4,av2);}} /* a19431 in a19425 in k19414 in scheme#with-input-from-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_19432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_19432,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19436,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3397: close-input-port */ t4=*((C_word*)lf[139]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19434 in a19431 in a19425 in k19414 in scheme#with-input-from-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in ... */ static void C_ccall f_19436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19436,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; C_apply_values(3,av2);}} /* a19440 in k19414 in scheme#with-input-from-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19441,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[712]+1)); t3=C_mutate((C_word*)lf[712]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#with-output-to-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19446(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,4)))){ C_save_and_reclaim((void*)f_19446,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+4); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19450,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t4; C_apply(5,av2);}} /* k19448 in scheme#with-output-to-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_19450,2,av);} a=C_alloc(19); t2=t1; t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19455,a[2]=t6,a[3]=t4,a[4]=((C_word)li590),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19460,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li592),tmp=(C_word)a,a+=5,tmp); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19475,a[2]=t4,a[3]=t6,a[4]=((C_word)li593),tmp=(C_word)a,a+=5,tmp); /* library.scm:3405: ##sys#dynamic-wind */ t10=*((C_word*)lf[690]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=((C_word*)t0)[3]; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* a19454 in k19448 in scheme#with-output-to-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19455,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[713]+1)); t3=C_mutate((C_word*)lf[713]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a19459 in k19448 in scheme#with-output-to-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_19460,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19466,a[2]=((C_word*)t0)[2],a[3]=((C_word)li591),tmp=(C_word)a,a+=4,tmp); /* library.scm:3406: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; C_call_with_values(4,av2);}} /* a19465 in a19459 in k19448 in scheme#with-output-to-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_19466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_19466,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19470,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3408: close-output-port */ t4=*((C_word*)lf[140]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k19468 in a19465 in a19459 in k19448 in scheme#with-output-to-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in ... */ static void C_ccall f_19470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19470,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; C_apply_values(3,av2);}} /* a19474 in k19448 in scheme#with-output-to-file in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19475,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[713]+1)); t3=C_mutate((C_word*)lf[713]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#file-exists? in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_19480,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19485,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t5,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* library.scm:3412: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[744]); C_word *av2=av; av2[0]=*((C_word*)lf[744]+1); av2[1]=t6; av2[2]=t2; av2[3]=t5; tp(4,av2);}} /* k19483 in ##sys#file-exists? in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_19485,2,av);} t2=C_i_file_exists_p(t1,((C_word*)t0)[2],((C_word*)t0)[3]); switch(t2){ case C_SCHEME_FALSE: t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} case C_SCHEME_TRUE: t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} default: /* library.scm:3416: ##sys#signal-hook */ t3=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[698]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[743]; av2[5]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* ##sys#flush-output in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19506,3,av);} a=C_alloc(3); t3=C_slot(t2,C_fix(2)); t4=C_slot(t3,C_fix(5)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19513,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:3420: g4089 */ t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} /* k19511 in ##sys#flush-output in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19513,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.base#flush-output in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_19519,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; if(C_truep(C_i_nullp(t2))){ t3=*((C_word*)lf[713]+1); t4=C_i_check_port_2(*((C_word*)lf[713]+1),C_fix(2),C_SCHEME_TRUE,lf[746]); /* library.scm:3427: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[745]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[745]+1); av2[1]=t1; av2[2]=*((C_word*)lf[713]+1); tp(3,av2);}} else{ t3=C_i_car(t2); t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[746]); /* library.scm:3427: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[745]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[745]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}}} /* ##sys#port-line in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19537,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(C_input_portp(t2))?C_slot(t2,C_fix(4)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#decorate-lambda in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19546(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_19546,5,av);} a=C_alloc(10); t5=C_block_size(t2); t6=t5; t7=C_fixnum_difference(t6,C_fix(1)); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19559,a[2]=t6,a[3]=t2,a[4]=t4,a[5]=t9,a[6]=t3,a[7]=((C_word)li600),tmp=(C_word)a,a+=8,tmp)); t11=((C_word*)t9)[1]; f_19559(t11,t1,t7);} /* loop in ##sys#decorate-lambda in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_fcall f_19559(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_19559,3,t0,t1,t2);} a=C_alloc(7); t3=t2; if(C_truep(C_i_zerop(t3))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19567,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t5=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:3441: scheme#make-vector */ t6=*((C_word*)lf[93]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=C_slot(((C_word*)t0)[3],t2); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19609,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:3450: pred */ t6=((C_word*)t0)[6];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k19565 in loop in ##sys#decorate-lambda in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_19567,2,av);} a=C_alloc(10); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19572,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word)li599),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_19572(t6,((C_word*)t0)[5],C_fix(1));} /* doloop4118 in k19565 in loop in ##sys#decorate-lambda in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_fcall f_19572(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_19572,3,t0,t1,t2);} if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_vector_to_closure(((C_word*)t0)[3]); t4=C_copy_pointer(((C_word*)t0)[4],((C_word*)t0)[3]); /* library.scm:3446: decorator */ t5=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} else{ t3=C_slot(((C_word*)t0)[4],t2); t4=C_i_setslot(((C_word*)t0)[3],t2,t3); t5=C_fixnum_plus(t2,C_fix(1)); t7=t1; t8=t5; t1=t7; t2=t8; goto loop;}} /* k19607 in loop in ##sys#decorate-lambda in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19609,2,av);} if(C_truep(t1)){ /* library.scm:3451: decorator */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[5],C_fix(1)); /* library.scm:3452: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_19559(t3,((C_word*)t0)[3],t2);}} /* ##sys#lambda-decoration in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_19621,4,av);} a=C_alloc(8); t4=C_block_size(t2); t5=C_fixnum_difference(t4,C_fix(1)); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19631,a[2]=t2,a[3]=t7,a[4]=t3,a[5]=((C_word)li602),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_19631(t9,t1,t5);} /* loop in ##sys#lambda-decoration in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_fcall f_19631(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_19631,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ t3=C_slot(((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19647,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* library.scm:3458: pred */ t6=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k19645 in loop in ##sys#lambda-decoration in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19647,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[4],C_fix(1)); /* library.scm:3460: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_19631(t3,((C_word*)t0)[2],t2);}} /* ##sys#make-lambda-info in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_19660,3,av);} a=C_alloc(5); t3=C_block_size(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19667,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3467: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t5; av2[2]=t4; tp(3,av2);}} /* k19665 in ##sys#make-lambda-info in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19667,2,av);} t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_string_to_lambdainfo(t1); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#lambda-info? in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19669,3,av);} t3=C_immp(t2); if(C_truep(C_i_not(t3))){ t4=C_lambdainfop(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* ##sys#lambda-info in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19682,3,av);} /* library.scm:3479: ##sys#lambda-decoration */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[749]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[749]+1); av2[1]=t1; av2[2]=t2; av2[3]=C_fast_retrieve(lf[751]); tp(4,av2);}} /* ##sys#lambda-info->string in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_19688,3,av);} a=C_alloc(5); t3=C_block_size(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19695,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3483: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t5; av2[2]=t4; tp(3,av2);}} /* k19693 in ##sys#lambda-info->string in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19695,2,av);} t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#procedure-information in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_19697,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19701,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3489: ##sys#check-closure */ t4=*((C_word*)lf[366]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=lf[755]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k19699 in chicken.base#procedure-information in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_19701,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19704,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3490: ##sys#lambda-info */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[752]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[752]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k19702 in k19699 in chicken.base#procedure-information in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_19704,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19714,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19718,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* library.scm:3491: ##sys#lambda-info->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[753]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[753]+1); av2[1]=t3; av2[2]=t1; tp(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k19712 in k19702 in k19699 in chicken.base#procedure-information in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_19714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_19714,2,av);} /* library.scm:3491: ##sys#read */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[754]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[754]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; tp(4,av2);}} /* k19716 in k19702 in k19699 in chicken.base#procedure-information in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_19718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_19718,2,av);} /* library.scm:3491: chicken.base#open-input-string */ t2=*((C_word*)lf[212]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_19726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19726,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[203]+1 /* (set! chicken.base#setter ...) */,t1); t3=C_mutate((C_word*)lf[758]+1 /* (set! ##sys#setter ...) */,*((C_word*)lf[203]+1)); t4=C_mutate((C_word*)lf[200]+1 /* (set! chicken.base#getter-with-setter ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19729,a[2]=((C_word)li612),tmp=(C_word)a,a+=3,tmp)); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19806,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3551: chicken.base#getter-with-setter */ t6=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=*((C_word*)lf[9]+1); av2[3]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* chicken.base#getter-with-setter in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_19729,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19736,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* library.scm:3530: ##sys#check-closure */ t9=*((C_word*)lf[366]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=t2; av2[3]=lf[759]; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} /* k19734 in chicken.base#getter-with-setter in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_19736,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19739,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:3531: ##sys#check-closure */ t3=*((C_word*)lf[366]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=lf[759]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k19737 in k19734 in chicken.base#getter-with-setter in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_19739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_19739,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19742,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[5])){ t3=C_i_check_string_2(((C_word*)t0)[5],lf[759]); /* library.scm:3534: ##sys#make-lambda-info */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[750]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[750]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ /* library.scm:3535: ##sys#lambda-info */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[752]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[752]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* k19740 in k19737 in k19734 in chicken.base#getter-with-setter in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in ... */ static void C_ccall f_19742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_19742,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19745,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19761,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:3537: ##sys#copy-closure */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[332]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[332]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k19743 in k19740 in k19737 in k19734 in chicken.base#getter-with-setter in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in ... */ static void C_ccall f_19745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_19745,2,av);} a=C_alloc(4); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19753,a[2]=((C_word*)t0)[2],a[3]=((C_word)li609),tmp=(C_word)a,a+=4,tmp); /* library.scm:3543: ##sys#decorate-lambda */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[748]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[748]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=C_fast_retrieve(lf[751]); av2[4]=t2; tp(5,av2);}} else{ t2=t1; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a19752 in k19743 in k19740 in k19737 in k19734 in chicken.base#getter-with-setter in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in ... */ static void C_ccall f_19753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19753,4,av);} t4=C_i_setslot(t2,t3,((C_word*)t0)[2]); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k19759 in k19740 in k19737 in k19734 in chicken.base#getter-with-setter in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in ... */ static void C_ccall f_19761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_19761,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19763,a[2]=((C_word)li610),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19779,a[2]=((C_word*)t0)[2],a[3]=((C_word)li611),tmp=(C_word)a,a+=4,tmp); /* library.scm:3536: ##sys#decorate-lambda */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[748]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[748]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* a19762 in k19759 in k19740 in k19737 in k19734 in chicken.base#getter-with-setter in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in ... */ static void C_ccall f_19763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19763,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(C_retrieve2(lf[757],C_text("setter-tag")),t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a19778 in k19759 in k19740 in k19737 in k19734 in chicken.base#getter-with-setter in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in ... */ static void C_ccall f_19779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_19779,4,av);} a=C_alloc(3); t4=C_a_i_cons(&a,2,C_retrieve2(lf[757],C_text("setter-tag")),((C_word*)t0)[2]); t5=C_i_setslot(t2,t3,t4); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_19806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_19806,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[9]+1 /* (set! scheme#car ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19810,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3552: chicken.base#getter-with-setter */ t4=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[10]+1); av2[3]=*((C_word*)lf[12]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_19810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19810,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[10]+1 /* (set! scheme#cdr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19814,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31815,a[2]=((C_word)li996),tmp=(C_word)a,a+=3,tmp); /* library.scm:3553: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[17]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_19814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19814,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[17]+1 /* (set! scheme#caar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19818,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31805,a[2]=((C_word)li995),tmp=(C_word)a,a+=3,tmp); /* library.scm:3554: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[13]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in ... */ static void C_ccall f_19818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19818,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[13]+1 /* (set! scheme#cadr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19822,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31795,a[2]=((C_word)li994),tmp=(C_word)a,a+=3,tmp); /* library.scm:3555: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[18]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in ... */ static void C_ccall f_19822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19822,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[18]+1 /* (set! scheme#cdar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19826,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31785,a[2]=((C_word)li993),tmp=(C_word)a,a+=3,tmp); /* library.scm:3556: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[19]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in ... */ static void C_ccall f_19826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19826,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[19]+1 /* (set! scheme#cddr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19830,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31775,a[2]=((C_word)li992),tmp=(C_word)a,a+=3,tmp); /* library.scm:3557: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[20]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in ... */ static void C_ccall f_19830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19830,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[20]+1 /* (set! scheme#caaar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19834,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31765,a[2]=((C_word)li991),tmp=(C_word)a,a+=3,tmp); /* library.scm:3558: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[21]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in ... */ static void C_ccall f_19834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19834,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[21]+1 /* (set! scheme#caadr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19838,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31755,a[2]=((C_word)li990),tmp=(C_word)a,a+=3,tmp); /* library.scm:3559: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[22]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in ... */ static void C_ccall f_19838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19838,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[22]+1 /* (set! scheme#cadar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19842,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31745,a[2]=((C_word)li989),tmp=(C_word)a,a+=3,tmp); /* library.scm:3560: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[14]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in ... */ static void C_ccall f_19842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19842,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[14]+1 /* (set! scheme#caddr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19846,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31735,a[2]=((C_word)li988),tmp=(C_word)a,a+=3,tmp); /* library.scm:3561: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[23]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in ... */ static void C_ccall f_19846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19846,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[23]+1 /* (set! scheme#cdaar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19850,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31725,a[2]=((C_word)li987),tmp=(C_word)a,a+=3,tmp); /* library.scm:3562: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[24]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in ... */ static void C_ccall f_19850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19850,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[24]+1 /* (set! scheme#cdadr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19854,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31715,a[2]=((C_word)li986),tmp=(C_word)a,a+=3,tmp); /* library.scm:3563: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[25]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in ... */ static void C_ccall f_19854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_19854,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[25]+1 /* (set! scheme#cddar ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19858,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31705,a[2]=((C_word)li985),tmp=(C_word)a,a+=3,tmp); /* library.scm:3564: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[26]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in ... */ static void C_ccall f_19858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_19858,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[26]+1 /* (set! scheme#cdddr ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19862,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3565: chicken.base#getter-with-setter */ t4=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[58]+1); av2[3]=*((C_word*)lf[59]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in ... */ static void C_ccall f_19862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_19862,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[58]+1 /* (set! scheme#string-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19866,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3566: chicken.base#getter-with-setter */ t4=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=*((C_word*)lf[91]+1); av2[3]=*((C_word*)lf[92]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in ... */ static void C_ccall f_19866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_19866,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[91]+1 /* (set! scheme#vector-ref ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19870,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31695,a[2]=((C_word)li984),tmp=(C_word)a,a+=3,tmp); /* library.scm:3569: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t3; av2[2]=*((C_word*)lf[45]+1); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in ... */ static void C_ccall f_19870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,4)))){ C_save_and_reclaim((void *)f_19870,2,av);} a=C_alloc(56); t2=C_mutate((C_word*)lf[45]+1 /* (set! scheme#list-ref ...) */,t1); t3=C_SCHEME_UNDEFINED; t4=C_a_i_vector(&a,16,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3); t5=C_mutate(&lf[760] /* (set! ##sys#default-parameter-vector ...) */,t4); t6=C_mutate((C_word*)lf[761]+1 /* (set! ##sys#current-parameter-vector ...) */,lf[762]); t7=C_fix(0); t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_mutate((C_word*)lf[201]+1 /* (set! chicken.base#make-parameter ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19877,a[2]=t8,a[3]=((C_word)li620),tmp=(C_word)a,a+=4,tmp)); t10=C_mutate((C_word*)lf[146]+1 /* (set! scheme#char-ready? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20041,a[2]=((C_word)li621),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[147]+1 /* (set! scheme#read-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20066,a[2]=((C_word)li622),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[764]+1 /* (set! ##sys#read-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20084,a[2]=((C_word)li623),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[765]+1 /* (set! ##sys#read-char/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20144,a[2]=((C_word)li624),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[766]+1 /* (set! ##sys#peek-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20153,a[2]=((C_word)li625),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[148]+1 /* (set! scheme#peek-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20178,a[2]=((C_word)li626),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[149]+1 /* (set! scheme#read ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20196,a[2]=((C_word)li627),tmp=(C_word)a,a+=3,tmp)); t17=C_set_block_item(lf[768] /* ##sys#default-read-info-hook */,0,C_SCHEME_FALSE); t18=C_set_block_item(lf[769] /* ##sys#read-error-with-line-number */,0,C_SCHEME_FALSE); t19=C_mutate((C_word*)lf[770]+1 /* (set! ##sys#read-prompt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20216,a[2]=((C_word)li628),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[771]+1 /* (set! ##sys#infix-list-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20219,a[2]=((C_word)li629),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[772]+1 /* (set! ##sys#sharp-number-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20222,a[2]=((C_word)li630),tmp=(C_word)a,a+=3,tmp)); t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20230,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3679: chicken.base#make-parameter */ t23=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t23; av2[1]=t22; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}} /* chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_19877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,3)))){ C_save_and_reclaim((void*)f_19877,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_nullp(t3); t5=(C_truep(t4)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20035,a[2]=((C_word)li613),tmp=(C_word)a,a+=3,tmp):C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19884,a[2]=((C_word*)t0)[2],a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3582: guard */ t8=t6;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} /* k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in ... */ static void C_ccall f_19884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,6)))){ C_save_and_reclaim((void *)f_19884,2,av);} a=C_alloc(14); t2=t1; t3=((C_word*)((C_word*)t0)[2])[1]; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19885,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word)li614),tmp=(C_word)a,a+=5,tmp); t5=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t6=C_set_block_item(((C_word*)t0)[2],0,t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19919,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t8=C_block_size(C_retrieve2(lf[760],C_text("##sys#default-parameter-vector"))); if(C_truep(C_fixnum_greater_or_equal_p(t3,t8))){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20023,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t10=C_fixnum_plus(t3,C_fix(1)); /* library.scm:3599: ##sys#vector-resize */ f_18070(t9,C_retrieve2(lf[760],C_text("##sys#default-parameter-vector")),t10,C_SCHEME_UNDEFINED);} else{ t9=t7; f_19919(t9,C_SCHEME_UNDEFINED);}} /* assign in k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in ... */ static void C_fcall f_19885(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_19885,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(11); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19889,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=t2,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],t3))){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19908,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:3587: ##sys#vector-resize */ f_18070(t7,C_fast_retrieve(lf[761]),t8,*((C_word*)lf[625]+1));} else{ t7=t6; f_19889(t7,C_SCHEME_UNDEFINED);}} /* k19887 in assign in k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in ... */ static void C_fcall f_19889(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_19889,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19892,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[5])){ /* library.scm:3591: guard */ t3=((C_word*)t0)[6];{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[7]; f_19892(2,av2);}}} /* k19890 in k19887 in assign in k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in ... */ static void C_ccall f_19892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19892,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_i_setslot(C_fast_retrieve(lf[761]),((C_word*)t0)[3],t1); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k19906 in assign in k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in ... */ static void C_ccall f_19908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_19908,2,av);} t2=C_mutate((C_word*)lf[761]+1 /* (set! ##sys#current-parameter-vector ...) */,t1); t3=((C_word*)t0)[2]; f_19889(t3,t2);} /* k19917 in k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in ... */ static void C_fcall f_19919(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_19919,2,t0,t1);} a=C_alloc(9); t2=C_i_setslot(C_retrieve2(lf[760],C_text("##sys#default-parameter-vector")),((C_word*)t0)[2],((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19927,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word)li618),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20009,a[2]=((C_word*)t0)[4],a[3]=((C_word)li619),tmp=(C_word)a,a+=4,tmp); /* library.scm:3605: chicken.base#getter-with-setter */ t5=*((C_word*)lf[200]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a19926 in k19917 in k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in ... */ static void C_ccall f_19927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +14,c,4)))){ C_save_and_reclaim((void*)f_19927,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+14); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t3=C_block_size(C_fast_retrieve(lf[761])); t4=t3; if(C_truep(C_i_pairp(t2))){ t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19939,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li615),tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19948,a[2]=t7,a[3]=((C_word)li616),tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19953,a[2]=t8,a[3]=((C_word)li617),tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t6))){ /* library.scm:3609: def-convert?4271 */ t10=t9; f_19953(t10,t1);} else{ t10=C_i_car(t6); t11=C_u_i_cdr(t6); if(C_truep(C_i_nullp(t11))){ /* library.scm:3609: def-set?4272 */ t12=t8; f_19948(t12,t1,t10);} else{ t12=C_i_car(t11); t13=C_u_i_cdr(t11); /* library.scm:3609: body4269 */ t14=t7; f_19939(t14,t1,t10,t12);}}} else{ if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[3],t4))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_slot(C_retrieve2(lf[760],C_text("##sys#default-parameter-vector")),((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_slot(C_fast_retrieve(lf[761]),((C_word*)t0)[3]); t6=C_eqp(t5,*((C_word*)lf[625]+1)); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=(C_truep(t6)?C_slot(C_retrieve2(lf[760],C_text("##sys#default-parameter-vector")),((C_word*)t0)[3]):t5); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} /* body4269 in a19926 in k19917 in k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in ... */ static void C_fcall f_19939(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_19939,4,t0,t1,t2,t3);} t4=C_i_car(((C_word*)t0)[2]); /* library.scm:3611: assign */ t5=((C_word*)t0)[3]; f_19885(t5,t1,t4,((C_word*)t0)[4],t2,t3);} /* def-set?4272 in a19926 in k19917 in k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in ... */ static void C_fcall f_19948(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_19948,3,t0,t1,t2);} /* library.scm:3609: body4269 */ t3=((C_word*)t0)[2]; f_19939(t3,t1,t2,C_SCHEME_TRUE);} /* def-convert?4271 in a19926 in k19917 in k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in ... */ static void C_fcall f_19953(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_19953,2,t0,t1);} /* library.scm:3609: def-set?4272 */ t2=((C_word*)t0)[2]; f_19948(t2,t1,C_SCHEME_TRUE);} /* a20008 in k19917 in k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in ... */ static void C_ccall f_20009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_20009,3,av);} t3=C_block_size(C_fast_retrieve(lf[761])); /* library.scm:3621: assign */ t4=((C_word*)t0)[2]; f_19885(t4,t1,t2,t3,C_SCHEME_FALSE,C_SCHEME_TRUE);} /* k20021 in k19882 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in ... */ static void C_ccall f_20023(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20023,2,av);} t2=C_mutate(&lf[760] /* (set! ##sys#default-parameter-vector ...) */,t1); t3=((C_word*)t0)[2]; f_19919(t3,t2);} /* f_20035 in chicken.base#make-parameter in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in ... */ static void C_ccall f_20035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20035,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#char-ready? in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_20041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_20041,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t3=C_i_nullp(t2); t4=(C_truep(t3)?*((C_word*)lf[712]+1):C_i_car(t2)); t5=C_i_check_port_2(t4,C_fix(1),C_SCHEME_TRUE,lf[763]); t6=C_slot(t4,C_fix(2)); t7=C_slot(t6,C_fix(6)); /* library.scm:3627: g4304 */ t8=t7;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t1; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} /* scheme#read-char in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_20066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_20066,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; if(C_truep(C_i_nullp(t2))){ t3=*((C_word*)lf[712]+1); t4=C_i_check_port_2(*((C_word*)lf[712]+1),C_fix(1),C_SCHEME_TRUE,lf[699]); /* library.scm:3634: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t1; av2[2]=*((C_word*)lf[712]+1); tp(3,av2);}} else{ t3=C_i_car(t2); t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[699]); /* library.scm:3634: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}}} /* ##sys#read-char-0 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_20084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20084,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20088,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_slot(t2,C_fix(6)))){ t4=C_i_set_i_slot(t2,C_fix(6),C_SCHEME_FALSE); t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_END_OF_FILE; f_20088(2,av2);}} else{ t4=C_slot(t2,C_fix(2)); t5=C_slot(t4,C_fix(0)); /* library.scm:3637: g4322 */ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=t3; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k20086 in ##sys#read-char-0 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in ... */ static void C_ccall f_20088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20088,2,av);} t2=C_eqp(t1,C_make_character(10)); if(C_truep(t2)){ t3=C_slot(((C_word*)t0)[2],C_fix(4)); t4=C_fixnum_plus(t3,C_fix(1)); t5=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),t4); t6=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),C_fix(0)); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=C_eofp(t1); if(C_truep(C_i_not(t3))){ t4=C_slot(((C_word*)t0)[2],C_fix(5)); t5=C_fixnum_plus(t4,C_fix(1)); t6=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),t5); t7=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t7; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* ##sys#read-char/port in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_20144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20144,3,av);} t3=t2; t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[699]); /* library.scm:3651: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2=av; av2[0]=*((C_word*)lf[764]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} /* ##sys#peek-char-0 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_20153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20153,3,av);} a=C_alloc(4); if(C_truep(C_slot(t2,C_fix(6)))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_slot(t2,C_fix(2)); t4=C_slot(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20166,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:3656: g4336 */ t6=t4;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k20164 in ##sys#peek-char-0 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in ... */ static void C_ccall f_20166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20166,2,av);} if(C_truep(C_eofp(t1))){ t2=C_i_set_i_slot(((C_word*)t0)[2],C_fix(6),C_SCHEME_TRUE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* scheme#peek-char in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_20178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_20178,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; if(C_truep(C_i_nullp(t2))){ t3=*((C_word*)lf[712]+1); t4=C_i_check_port_2(*((C_word*)lf[712]+1),C_fix(1),C_SCHEME_TRUE,lf[703]); /* library.scm:3664: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t1; av2[2]=*((C_word*)lf[712]+1); tp(3,av2);}} else{ t3=C_i_car(t2); t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[703]); /* library.scm:3664: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}}} /* scheme#read in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_20196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,3)))){ C_save_and_reclaim((void*)f_20196,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; if(C_truep(C_i_nullp(t2))){ t3=*((C_word*)lf[712]+1); t4=C_i_check_port_2(*((C_word*)lf[712]+1),C_fix(1),C_SCHEME_TRUE,lf[767]); /* library.scm:3669: ##sys#read */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[754]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[754]+1); av2[1]=t1; av2[2]=*((C_word*)lf[712]+1); av2[3]=C_fast_retrieve(lf[768]); tp(4,av2);}} else{ t3=C_i_car(t2); t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[767]); /* library.scm:3669: ##sys#read */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[754]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[754]+1); av2[1]=t1; av2[2]=t3; av2[3]=C_fast_retrieve(lf[768]); tp(4,av2);}}} /* ##sys#read-prompt-hook in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_20216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20216,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#infix-list-hook in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_20219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20219,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#sharp-number-hook in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_20222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20222,4,av);} /* library.scm:3677: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=t1; av2[2]=t2; av2[3]=lf[774]; av2[4]=t3; tp(5,av2);}} /* k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in ... */ static void C_ccall f_20230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20230,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[230]+1 /* (set! chicken.base#case-sensitive ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20234,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3680: chicken.base#make-parameter */ t4=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[810]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in ... */ static void C_ccall f_20234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20234,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[231]+1 /* (set! chicken.base#keyword-style ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20238,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3681: chicken.base#make-parameter */ t4=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in ... */ static void C_ccall f_20238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20238,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[232]+1 /* (set! chicken.base#parentheses-synonyms ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20242,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3682: chicken.base#make-parameter */ t4=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in ... */ static void C_ccall f_20242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_20242,2,av);} a=C_alloc(8); t2=C_mutate((C_word*)lf[233]+1 /* (set! chicken.base#symbol-escape ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20246,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_a_i_record4(&a,4,lf[1375],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); /* library.scm:3684: chicken.base#make-parameter */ t5=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in ... */ static void C_ccall f_20246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(56,c,4)))){ C_save_and_reclaim((void *)f_20246,2,av);} a=C_alloc(56); t2=C_mutate((C_word*)lf[775]+1 /* (set! ##sys#current-read-table ...) */,t1); t3=C_mutate((C_word*)lf[776]+1 /* (set! ##sys#read-warning ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20248,a[2]=((C_word)li631),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[773]+1 /* (set! ##sys#read-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20271,a[2]=((C_word)li632),tmp=(C_word)a,a+=3,tmp)); t5=*((C_word*)lf[231]+1); t6=*((C_word*)lf[230]+1); t7=*((C_word*)lf[232]+1); t8=*((C_word*)lf[233]+1); t9=C_fast_retrieve(lf[775]); t10=C_mutate((C_word*)lf[754]+1 /* (set! ##sys#read ...) */,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20294,a[2]=t9,a[3]=t8,a[4]=t7,a[5]=t5,a[6]=t6,a[7]=((C_word)li688),tmp=(C_word)a,a+=8,tmp)); t11=C_mutate((C_word*)lf[788]+1 /* (set! ##sys#char->utf8-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23131,a[2]=((C_word)li689),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[795]+1 /* (set! ##sys#unicode-surrogate? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23296,a[2]=((C_word)li690),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[792]+1 /* (set! ##sys#surrogates->codepoint ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23308,a[2]=((C_word)li691),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[842]+1 /* (set! ##sys#read-bytevector-literal ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23370,a[2]=((C_word)li694),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[854]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23518,a[2]=((C_word)li695),tmp=(C_word)a,a+=3,tmp)); t16=C_set_block_item(lf[852] /* ##sys#read-marks */,0,C_SCHEME_END_OF_LIST); t17=C_mutate((C_word*)lf[861]+1 /* (set! ##sys#write-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23563,a[2]=((C_word)li696),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[862]+1 /* (set! ##sys#write-char/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23579,a[2]=((C_word)li697),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[150]+1 /* (set! scheme#write-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23591,a[2]=((C_word)li698),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[151]+1 /* (set! scheme#newline ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23612,a[2]=((C_word)li699),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[152]+1 /* (set! scheme#write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23627,a[2]=((C_word)li700),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[153]+1 /* (set! scheme#display ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23645,a[2]=((C_word)li701),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate((C_word*)lf[188]+1 /* (set! chicken.base#print ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23663,a[2]=((C_word)li703),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate((C_word*)lf[189]+1 /* (set! chicken.base#print* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23714,a[2]=((C_word)li705),tmp=(C_word)a,a+=3,tmp)); t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23767,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4421: chicken.base#make-parameter */ t26=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t26; av2[1]=t25; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t26+1)))(3,av2);}} /* ##sys#read-warning in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_20248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_20248,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+5); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20256,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:3691: ##sys#port-line */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[747]); C_word *av2=av; av2[0]=*((C_word*)lf[747]+1); av2[1]=t5; av2[2]=t2; tp(3,av2);}} /* k20254 in ##sys#read-warning in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_ccall f_20256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_20256,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20259,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(C_truep(C_fast_retrieve(lf[769]))?t1:C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20269,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:3693: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t4; av2[2]=t1; tp(3,av2);}} else{ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[311]+1); av2[3]=t4; av2[4]=((C_word*)t0)[3]; C_apply(5,av2);}}} /* k20257 in k20254 in ##sys#read-warning in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in ... */ static void C_ccall f_20259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20259,2,av);}{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[311]+1); av2[3]=t1; av2[4]=((C_word*)t0)[3]; C_apply(5,av2);}} /* k20267 in k20254 in ##sys#read-warning in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in ... */ static void C_ccall f_20269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_20269,2,av);} /* library.scm:3693: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[777]; av2[3]=t1; av2[4]=lf[778]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* ##sys#read-error in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_20271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_20271,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+5); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20279,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:3703: ##sys#port-line */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[747]); C_word *av2=av; av2[0]=*((C_word*)lf[747]+1); av2[1]=t5; av2[2]=t2; tp(3,av2);}} /* k20277 in ##sys#read-error in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_ccall f_20279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_20279,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20282,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(C_truep(C_fast_retrieve(lf[769]))?t1:C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20292,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:3705: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t4; av2[2]=t1; tp(3,av2);}} else{ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[779]; av2[4]=t4; av2[5]=((C_word*)t0)[3]; C_apply(6,av2);}}} /* k20280 in k20277 in ##sys#read-error in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in ... */ static void C_ccall f_20282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_20282,2,av);}{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[779]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; C_apply(6,av2);}} /* k20290 in k20277 in ##sys#read-error in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in ... */ static void C_ccall f_20292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_20292,2,av);} /* library.scm:3705: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[780]; av2[3]=t1; av2[4]=lf[781]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_20294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_20294,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20298,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); /* library.scm:3717: case-sensitive */ t5=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_ccall f_20298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_20298,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20301,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* library.scm:3718: keyword-style */ t5=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in ... */ static void C_ccall f_20301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_20301,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20304,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* library.scm:3719: parentheses-synonyms */ t5=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_20304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_20304,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20307,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* library.scm:3720: symbol-escape */ t4=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_20307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_20307,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20310,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* library.scm:3721: current-read-table */ t4=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_20310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(52,c,5)))){ C_save_and_reclaim((void *)f_20310,2,av);} a=C_alloc(52); t2=t1; t3=lf[782]; t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20312,a[2]=((C_word*)t0)[2],a[3]=((C_word)li633),tmp=(C_word)a,a+=4,tmp)); t19=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20318,a[2]=((C_word*)t0)[3],a[3]=((C_word)li634),tmp=(C_word)a,a+=4,tmp)); t20=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20327,a[2]=((C_word*)t0)[2],a[3]=((C_word)li636),tmp=(C_word)a,a+=4,tmp)); t21=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20364,a[2]=((C_word*)t0)[2],a[3]=((C_word)li637),tmp=(C_word)a,a+=4,tmp)); t22=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20373,a[2]=t5,a[3]=t13,a[4]=((C_word)li638),tmp=(C_word)a,a+=5,tmp)); t23=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_20388,a[2]=((C_word*)t0)[2],a[3]=t11,a[4]=t7,a[5]=t9,a[6]=t17,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=t15,a[10]=t3,a[11]=t5,a[12]=t13,a[13]=t2,a[14]=((C_word*)t0)[6],a[15]=((C_word*)t0)[7],a[16]=((C_word)li687),tmp=(C_word)a,a+=17,tmp)); /* library.scm:4288: readrec */ t24=((C_word*)t17)[1]; f_20388(t24,((C_word*)t0)[8]);} /* f_20312 in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_20312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20312,3,av);} /* library.scm:3727: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[783]; av2[4]=t2; tp(5,av2);}} /* info in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_fcall f_20318(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_20318,5,t0,t1,t2,t3,t4);} if(C_truep(((C_word*)t0)[2])){ /* library.scm:3731: infohandler */ t5=((C_word*)t0)[2];{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t4; ((C_proc)C_fast_retrieve_proc(t5))(5,av2);}} else{ t5=t3; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* skip-to-eol in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_fcall f_20327(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_20327,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20335,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:3735: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k20333 in skip-to-eol in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_20335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_20335,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20337,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li635),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_20337(t5,((C_word*)t0)[3],t1);} /* skip in k20333 in skip-to-eol in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_fcall f_20337(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_20337,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20344,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_eofp(t2); if(C_truep(C_i_not(t4))){ t5=C_eqp(C_make_character(10),t2); t6=t3; f_20344(t6,C_i_not(t5));} else{ t5=t3; f_20344(t5,C_SCHEME_FALSE);}} /* k20342 in skip in k20333 in skip-to-eol in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_20344(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_20344,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20351,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:3737: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k20349 in k20342 in skip in k20333 in skip-to-eol in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_20351(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20351,2,av);} /* library.scm:3737: skip */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20337(t2,((C_word*)t0)[3],t1);} /* reserved-character in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_fcall f_20364(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_20364,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20368,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:3740: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k20366 in reserved-character in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_20368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_20368,2,av);} /* library.scm:3741: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[784]; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} /* read-unreserved-char-0 in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_fcall f_20373(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_20373,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20377,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3744: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k20375 in read-unreserved-char-0 in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_20377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20377,2,av);} if(C_truep(C_i_memq(t1,((C_word*)((C_word*)t0)[2])[1]))){ /* library.scm:3746: reserved-character */ t2=((C_word*)((C_word*)t0)[3])[1]; f_20364(t2,((C_word*)t0)[4],t1);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_fcall f_20388(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(158,0,5)))){ C_save_and_reclaim_args((void *)trf_20388,2,t0,t1);} a=C_alloc(158); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_SCHEME_UNDEFINED; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_SCHEME_UNDEFINED; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_SCHEME_UNDEFINED; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=C_SCHEME_UNDEFINED; t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp); t32=C_SCHEME_UNDEFINED; t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp); t34=C_SCHEME_UNDEFINED; t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp); t36=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20391,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li640),tmp=(C_word)a,a+=5,tmp)); t37=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20439,a[2]=((C_word*)t0)[2],a[3]=((C_word)li642),tmp=(C_word)a,a+=4,tmp)); t38=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20499,a[2]=((C_word)li644),tmp=(C_word)a,a+=3,tmp)); t39=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20536,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t7,a[5]=((C_word)li647),tmp=(C_word)a,a+=6,tmp)); t40=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21090,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t27,a[9]=((C_word)li653),tmp=(C_word)a,a+=10,tmp)); t41=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21352,a[2]=((C_word*)t0)[2],a[3]=t11,a[4]=((C_word)li654),tmp=(C_word)a,a+=5,tmp)); t42=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21370,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t27,a[5]=((C_word)li656),tmp=(C_word)a,a+=6,tmp)); t43=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21440,a[2]=((C_word*)t0)[2],a[3]=t15,a[4]=((C_word)li657),tmp=(C_word)a,a+=5,tmp)); t44=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21491,a[2]=((C_word*)t0)[2],a[3]=t15,a[4]=((C_word)li658),tmp=(C_word)a,a+=5,tmp)); t45=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21558,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word)li660),tmp=(C_word)a,a+=7,tmp)); t46=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21622,a[2]=((C_word*)t0)[2],a[3]=((C_word)li662),tmp=(C_word)a,a+=4,tmp)); t47=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21668,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t27,a[5]=((C_word)li664),tmp=(C_word)a,a+=6,tmp)); t48=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21693,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[12],a[5]=t9,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[10],a[9]=((C_word)li666),tmp=(C_word)a,a+=10,tmp)); t49=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21907,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[10],a[4]=t21,a[5]=((C_word)li667),tmp=(C_word)a,a+=6,tmp)); t50=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22116,a[2]=((C_word*)t0)[2],a[3]=((C_word)li669),tmp=(C_word)a,a+=4,tmp)); t51=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22203,a[2]=t21,a[3]=((C_word)li670),tmp=(C_word)a,a+=4,tmp)); t52=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22216,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word)li671),tmp=(C_word)a,a+=6,tmp)); t53=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_22247,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=t35,a[8]=t23,a[9]=t17,a[10]=t19,a[11]=((C_word*)t0)[8],a[12]=t13,a[13]=t29,a[14]=t31,a[15]=t33,a[16]=((C_word*)t0)[7],a[17]=t27,a[18]=((C_word*)t0)[5],a[19]=((C_word*)t0)[3],a[20]=t21,a[21]=t11,a[22]=((C_word*)t0)[4],a[23]=t9,a[24]=t15,a[25]=((C_word*)t0)[12],a[26]=t25,a[27]=t3,tmp=(C_word)a,a+=28,tmp); t54=C_i_not(((C_word*)t0)[14]); t55=(C_truep(t54)?lf[855]:C_SCHEME_END_OF_LIST); if(C_truep(C_i_not(((C_word*)t0)[15]))){ /* library.scm:4128: scheme#append */ t56=*((C_word*)lf[374]+1);{ C_word av2[4]; av2[0]=t56; av2[1]=t53; av2[2]=t55; av2[3]=lf[856]; ((C_proc)(void*)(*((C_word*)t56+1)))(4,av2);}} else{ /* library.scm:4128: scheme#append */ t56=*((C_word*)lf[374]+1);{ C_word av2[4]; av2[0]=t56; av2[1]=t53; av2[2]=t55; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t56+1)))(4,av2);}}} /* r-spaces in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_20391(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_20391,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20399,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:3752: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word av2[3]; av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k20397 in r-spaces in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_20399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_20399,2,av);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20401,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li639),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_20401(t5,((C_word*)t0)[4],t1);} /* loop in k20397 in r-spaces in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_20401(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_20401,3,t0,t1,t2);} a=C_alloc(5); t3=C_eofp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(C_make_character(59),t2); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20414,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:3755: skip-to-eol */ t6=((C_word*)((C_word*)t0)[4])[1]; f_20327(t6,t5);} else{ if(C_truep(C_u_i_char_whitespacep(t2))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20430,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:3758: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t5; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}} /* k20412 in loop in k20397 in r-spaces in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_20414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20414,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20421,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:3756: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k20419 in k20412 in loop in k20397 in r-spaces in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20421,2,av);} /* library.scm:3756: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20401(t2,((C_word*)t0)[3],t1);} /* k20428 in loop in k20397 in r-spaces in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_20430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_20430,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20437,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:3759: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k20435 in k20428 in loop in k20397 in r-spaces in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_20437,2,av);} /* library.scm:3759: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20401(t2,((C_word*)t0)[3],t1);} /* r-usequence in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_20439(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_20439,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20445,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=t6,a[6]=((C_word)li641),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_20445(t8,t1,C_SCHEME_END_OF_LIST,t3);} /* loop in r-usequence in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_fcall f_20445(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_20445,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20455,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:3764: ##sys#reverse-list->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[388]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[388]+1); av2[1]=t5; av2[2]=t2; tp(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20471,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:3771: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t5; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}} /* k20453 in loop in r-usequence in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_20455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_20455,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20458,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* library.scm:3765: scheme#string->number */ t4=*((C_word*)lf[618]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k20456 in k20453 in loop in r-usequence in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_20458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_20458,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20468,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:3769: string-append */ t3=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[785]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=lf[786]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} /* k20466 in k20456 in k20453 in loop in r-usequence in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20468,2,av);} /* library.scm:3767: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k20469 in loop in r-usequence in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_20471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20471,2,av);} a=C_alloc(3); t2=C_eofp(t1); t3=(C_truep(t2)?t2:C_i_char_equalp(C_make_character(34),t1)); if(C_truep(t3)){ /* library.scm:3773: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[787]; tp(4,av2);}} else{ t4=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); t5=C_fixnum_difference(((C_word*)t0)[5],C_fix(1)); /* library.scm:3774: loop */ t6=((C_word*)((C_word*)t0)[6])[1]; f_20445(t6,((C_word*)t0)[2],t4,t5);}} /* r-cons-codepoint in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_20499(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_20499,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20503,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_make_character(C_unfix(t2)); /* library.scm:3777: ##sys#char->utf8-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[788]); C_word av2[3]; av2[0]=*((C_word*)lf[788]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} /* k20501 in r-cons-codepoint in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_20503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_20503,2,av);} a=C_alloc(8); t2=t1; t3=C_block_size(t2); t4=t3; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20511,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li643),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_20511(t8,((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3]);} /* lp in k20501 in r-cons-codepoint in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_20511(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_20511,4,t0,t1,t2,t3);} a=C_alloc(3); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_fixnum_plus(t2,C_fix(1)); t5=C_subchar(((C_word*)t0)[3],t2); t6=C_a_i_cons(&a,2,t5,t3); /* library.scm:3782: lp */ t8=t1; t9=t4; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}} /* r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_20536(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_20536,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20544,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* library.scm:3785: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_20544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_20544,2,av);} a=C_alloc(10); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20546,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li646),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_20546(t5,((C_word*)t0)[6],t1,C_SCHEME_END_OF_LIST);} /* loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_20546(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_20546,4,t0,t1,t2,t3);} a=C_alloc(11); t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); if(C_truep(C_eofp(((C_word*)t4)[1]))){ /* library.scm:3787: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word av2[4]; av2[0]=*((C_word*)lf[773]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[789]; tp(4,av2);}} else{ t5=C_eqp(C_make_character(92),((C_word*)t4)[1]); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20563,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); /* library.scm:3789: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t6; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} else{ t6=C_eqp(((C_word*)t0)[6],((C_word*)t4)[1]); if(C_truep(t6)){ /* library.scm:3860: ##sys#reverse-list->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[388]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[388]+1); av2[1]=t1; av2[2]=t3; tp(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21084,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:3861: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t7; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}}}} /* k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_20563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_20563,2,av);} a=C_alloc(9); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)((C_word*)t0)[2])[1]; switch(t3){ case C_make_character(116): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20576,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:3791: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);} case C_make_character(114): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20593,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:3792: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);} case C_make_character(98): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20610,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:3793: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);} case C_make_character(110): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20627,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:3794: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);} case C_make_character(97): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20644,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:3795: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);} case C_make_character(118): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20661,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:3796: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);} case C_make_character(102): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20678,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:3797: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[6]; tp(3,av2);} case C_make_character(120): t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20706,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* library.scm:3799: r-usequence */ t5=((C_word*)((C_word*)t0)[7])[1]; f_20439(t5,t4,lf[790],C_fix(2),C_fix(16)); case C_make_character(117): t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20715,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* library.scm:3802: r-usequence */ t5=((C_word*)((C_word*)t0)[7])[1]; f_20439(t5,t4,lf[796],C_fix(4),C_fix(16)); case C_make_character(85): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20789,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* library.scm:3815: r-usequence */ t5=((C_word*)((C_word*)t0)[7])[1]; f_20439(t5,t4,lf[798],C_fix(8),C_fix(16)); default: t4=C_eqp(t3,C_make_character(92)); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20818,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t3,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(t4)){ t6=t5; f_20818(t6,t4);} else{ t6=C_eqp(t3,C_make_character(39)); if(C_truep(t6)){ t7=t5; f_20818(t7,t6);} else{ t7=C_eqp(t3,C_make_character(34)); t8=t5; f_20818(t8,(C_truep(t7)?t7:C_eqp(t3,C_make_character(124))));}}}} /* k20574 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20576,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(9),((C_word*)t0)[2]); /* library.scm:3791: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_20546(t3,((C_word*)t0)[4],t1,t2);} /* k20591 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20593,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(13),((C_word*)t0)[2]); /* library.scm:3792: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_20546(t3,((C_word*)t0)[4],t1,t2);} /* k20608 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20610,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(8),((C_word*)t0)[2]); /* library.scm:3793: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_20546(t3,((C_word*)t0)[4],t1,t2);} /* k20625 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20627,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(10),((C_word*)t0)[2]); /* library.scm:3794: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_20546(t3,((C_word*)t0)[4],t1,t2);} /* k20642 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20644,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(7),((C_word*)t0)[2]); /* library.scm:3795: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_20546(t3,((C_word*)t0)[4],t1,t2);} /* k20659 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20661,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(11),((C_word*)t0)[2]); /* library.scm:3796: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_20546(t3,((C_word*)t0)[4],t1,t2);} /* k20676 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20678,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(12),((C_word*)t0)[2]); /* library.scm:3797: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_20546(t3,((C_word*)t0)[4],t1,t2);} /* k20696 in k20704 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_20698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20698,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* library.scm:3800: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_20546(t3,((C_word*)t0)[5],t1,t2);} /* k20704 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_20706,2,av);} a=C_alloc(6); t2=C_make_character(C_unfix(t1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20698,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:3800: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k20713 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_20715,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20721,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* library.scm:3803: ##sys#unicode-surrogate? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[795]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[795]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k20719 in k20713 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_20721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_20721,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20727,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20769,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* library.scm:3804: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20776,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:3813: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; tp(3,av2);}}} /* k20725 in k20719 in k20713 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_fcall f_20727(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_20727,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20730,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* library.scm:3806: r-usequence */ t3=((C_word*)((C_word*)t0)[8])[1]; f_20439(t3,t2,lf[793],C_fix(4),C_fix(16));} else{ /* library.scm:3812: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word av2[5]; av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[794]; av2[4]=((C_word*)t0)[7]; tp(5,av2);}}} /* k20728 in k20725 in k20719 in k20713 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_20730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_20730,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20733,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,tmp=(C_word)a,a+=9,tmp); /* library.scm:3807: ##sys#surrogates->codepoint */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[792]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[792]+1); av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=t2; tp(4,av2);}} /* k20731 in k20728 in k20725 in k20719 in k20713 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_20733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_20733,2,av);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:3809: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} else{ /* library.scm:3811: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[6]; av2[3]=lf[791]; av2[4]=((C_word*)t0)[7]; av2[5]=((C_word*)t0)[8]; tp(6,av2);}}} /* k20741 in k20731 in k20728 in k20725 in k20719 in k20713 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_20743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_20743,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20747,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:3810: r-cons-codepoint */ f_20499(t3,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k20745 in k20741 in k20731 in k20728 in k20725 in k20719 in k20713 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_20747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20747,2,av);} /* library.scm:3809: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20546(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k20762 in k20767 in k20719 in k20713 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_20764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_20764,2,av);} t2=((C_word*)t0)[2]; f_20727(t2,C_eqp(C_make_character(117),t1));} /* k20767 in k20719 in k20713 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_20769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_20769,2,av);} a=C_alloc(3); t2=C_eqp(C_make_character(92),t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20764,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:3805: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t3=((C_word*)t0)[2]; f_20727(t3,C_SCHEME_FALSE);}} /* k20774 in k20719 in k20713 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_20776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_20776,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20780,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:3813: r-cons-codepoint */ f_20499(t3,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k20778 in k20774 in k20719 in k20713 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_20780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20780,2,av);} /* library.scm:3813: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20546(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k20787 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_20789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_20789,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20795,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* library.scm:3816: ##sys#unicode-surrogate? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[795]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[795]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k20793 in k20787 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_20795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_20795,2,av);} a=C_alloc(7); if(C_truep(t1)){ /* library.scm:3817: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[797]; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20805,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* library.scm:3818: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k20803 in k20793 in k20787 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_20805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_20805,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20809,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:3818: r-cons-codepoint */ f_20499(t3,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k20807 in k20803 in k20793 in k20787 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_20809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20809,2,av);} /* library.scm:3818: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20546(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_20818(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_20818,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20825,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:3820: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[7],C_make_character(10)); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20838,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); if(C_truep(t2)){ t4=t3; f_20838(t4,t2);} else{ t4=C_eqp(((C_word*)t0)[7],C_make_character(13)); if(C_truep(t4)){ t5=t3; f_20838(t5,t4);} else{ t5=C_eqp(((C_word*)t0)[7],C_make_character(32)); t6=t3; f_20838(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[7],C_make_character(9))));}}}} /* k20823 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_20825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20825,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); /* library.scm:3820: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_20546(t3,((C_word*)t0)[5],t1,t2);} /* k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_fcall f_20838(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_20838,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20843,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li645),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_20843(t5,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1],C_SCHEME_FALSE);} else{ if(C_truep(C_eofp(((C_word*)((C_word*)t0)[6])[1]))){ /* library.scm:3846: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word av2[4]; av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[2]; av2[3]=lf[800]; tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20942,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_u_i_char_numericp(((C_word*)((C_word*)t0)[6])[1]))){ t3=C_i_char_greater_or_equal_p(((C_word*)((C_word*)t0)[6])[1],C_make_character(48)); t4=t2; f_20942(t4,(C_truep(t3)?C_i_char_less_or_equal_p(((C_word*)((C_word*)t0)[6])[1],C_make_character(55)):C_SCHEME_FALSE));} else{ t3=t2; f_20942(t3,C_SCHEME_FALSE);}}}} /* eat-ws in k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_fcall f_20843(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_20843,4,t0,t1,t2,t3);} a=C_alloc(6); t4=t2; t5=C_eqp(t4,C_make_character(32)); t6=(C_truep(t5)?t5:C_eqp(t4,C_make_character(9))); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20860,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:3826: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t7; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ switch(t4){ case C_make_character(13): if(C_truep(t3)){ /* library.scm:3829: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_20546(t7,t1,t2,((C_word*)t0)[5]);} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20875,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:3830: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t7; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} case C_make_character(10): if(C_truep(t3)){ /* library.scm:3836: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_20546(t7,t1,t2,((C_word*)t0)[5]);} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20910,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:3837: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t7; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} default: t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20913,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ /* library.scm:3843: loop */ t8=((C_word*)((C_word*)t0)[4])[1]; f_20546(t8,t1,t2,((C_word*)t0)[5]);} else{ /* library.scm:3840: ##sys#read-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[776]); C_word av2[4]; av2[0]=*((C_word*)lf[776]+1); av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[799]; tp(4,av2);}}}}} /* k20858 in eat-ws in k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_20860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20860,2,av);} /* library.scm:3826: eat-ws */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20843(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k20873 in eat-ws in k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_20875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_20875,2,av);} a=C_alloc(4); t2=C_eqp(t1,C_make_character(10)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20888,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:3832: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} else{ /* library.scm:3833: eat-ws */ t3=((C_word*)((C_word*)t0)[2])[1]; f_20843(t3,((C_word*)t0)[3],t1,C_SCHEME_TRUE);}} /* k20886 in k20873 in eat-ws in k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_20888(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20888,2,av);} /* library.scm:3832: eat-ws */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20843(t2,((C_word*)t0)[3],t1,C_SCHEME_TRUE);} /* k20908 in eat-ws in k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_20910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20910,2,av);} /* library.scm:3837: eat-ws */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20843(t2,((C_word*)t0)[3],t1,C_SCHEME_TRUE);} /* k20911 in eat-ws in k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_20913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_20913,2,av);} /* library.scm:3843: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20546(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k20940 in k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_fcall f_20942(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_20942,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=C_fix(C_character_code(((C_word*)((C_word*)t0)[2])[1])); t3=C_fixnum_difference(t2,C_fix(48)); t4=C_fixnum_times(t3,C_fix(64)); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20968,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* library.scm:3852: r-usequence */ t7=((C_word*)((C_word*)t0)[7])[1]; f_20439(t7,t6,lf[801],C_fix(2),C_fix(8));} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* library.scm:3855: ##sys#read-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[776]); C_word av2[5]; av2[0]=*((C_word*)lf[776]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[802]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; tp(5,av2);}}} /* k20950 in k20966 in k20940 in k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_20952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20952,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* library.scm:3853: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_20546(t3,((C_word*)t0)[5],t1,t2);} /* k20966 in k20940 in k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_20968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_20968,2,av);} a=C_alloc(6); t2=C_fixnum_plus(((C_word*)t0)[2],t1); t3=C_make_character(C_unfix(t2)); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20952,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:3853: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t5; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k20977 in k20940 in k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_20979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_20979,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20986,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:3859: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k20984 in k20977 in k20940 in k20836 in k20816 in k20561 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_20986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_20986,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); /* library.scm:3859: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_20546(t3,((C_word*)t0)[5],t1,t2);} /* k21082 in loop in k20542 in r-string in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_21084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_21084,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); /* library.scm:3861: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_20546(t3,((C_word*)t0)[5],t1,t2);} /* r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_21090(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_21090,4,t0,t1,t2,t3);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21350,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); /* library.scm:3864: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* starting-line in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_21099(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_21099,3,t0,t1,t2);} a=C_alloc(4); t3=(C_truep(((C_word*)((C_word*)t0)[2])[1])?C_fast_retrieve(lf[769]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21113,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3872: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[601]+1); av2[1]=t4; av2[2]=((C_word*)((C_word*)t0)[2])[1]; tp(3,av2);}} else{ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k21111 in starting-line in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_21113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21113,2,av);} /* library.scm:3870: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[803]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k21114 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_21116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21116,2,av);} a=C_alloc(5); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21127,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* library.scm:3939: ##sys#infix-list-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[771]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[771]+1); av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; tp(3,av2);}} else{ t3=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k21125 in k21114 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_21127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21127,2,av);} /* library.scm:3939: info */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20318(t2,((C_word*)t0)[3],lf[804],t1,((C_word*)((C_word*)t0)[4])[1]);} /* a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_21129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_21129,3,av);} a=C_alloc(22); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21132,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li649),tmp=(C_word)a,a+=7,tmp)); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21154,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t5,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word)li651),tmp=(C_word)a,a+=13,tmp)); t7=((C_word*)t5)[1]; f_21154(t7,t1,C_SCHEME_END_OF_LIST);} /* f_21132 in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_21132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21132,3,av);} a=C_alloc(6); t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ /* library.scm:3879: return */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21149,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* library.scm:3882: starting-line */ t5=((C_word*)t0)[5]; f_21099(t5,t4,lf[805]);}} /* k21147 */ static void C_ccall f_21149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_21149,2,av);} /* library.scm:3880: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; tp(6,av2);}} /* loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_21154(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_21154,3,t0,t1,t2);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21158,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp); /* library.scm:3885: r-spaces */ t4=((C_word*)((C_word*)t0)[5])[1]; f_20391(t4,t3);} /* k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_21158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_21158,2,av);} a=C_alloc(17); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21161,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)((C_word*)t0)[9])[1])){ t3=t2; f_21161(t3,C_SCHEME_UNDEFINED);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21343,a[2]=((C_word*)t0)[13],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:3886: ##sys#port-line */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[747]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[747]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_fcall f_21161(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_21161,2,t0,t1);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21164,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* library.scm:3887: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word av2[3]; av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_21164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21164,2,av);} a=C_alloc(13); if(C_truep(C_eofp(t1))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:3891: starting-line */ t3=((C_word*)t0)[4]; f_21099(t3,t2,lf[806]);} else{ t2=C_eqp(t1,((C_word*)t0)[5]); if(C_truep(t2)){ /* library.scm:3893: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t3=C_eqp(t1,C_make_character(46)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21192,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* library.scm:3895: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21339,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* library.scm:3932: readrec */ t5=((C_word*)((C_word*)t0)[8])[1]; f_20388(t5,t4);}}}} /* k21172 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_21174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21174,2,av);} /* library.scm:3889: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_21192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_21192,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21195,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* library.scm:3896: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_21195(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_21195,2,av);} a=C_alloc(14); t2=t1; t3=C_u_i_char_whitespacep(t2); t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21204,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); if(C_truep(t3)){ t5=t4; f_21204(t5,t3);} else{ t5=C_eqp(t2,C_make_character(40)); if(C_truep(t5)){ t6=t4; f_21204(t6,t5);} else{ t6=C_eqp(t2,C_make_character(41)); if(C_truep(t6)){ t7=t4; f_21204(t7,t6);} else{ t7=C_eqp(t2,C_make_character(34)); t8=t4; f_21204(t8,(C_truep(t7)?t7:C_eqp(t2,C_make_character(59))));}}}} /* k21202 in k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_fcall f_21204(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_21204,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21207,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_21207(2,av2);}} else{ /* library.scm:3903: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word av2[4]; av2[0]=*((C_word*)lf[773]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[808]; tp(4,av2);}}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21248,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word)li650),tmp=(C_word)a,a+=8,tmp); /* library.scm:3913: r-xtoken */ t3=((C_word*)((C_word*)t0)[13])[1]; f_21693(t3,((C_word*)t0)[4],t2);}} /* k21205 in k21202 in k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_21207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_21207,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21210,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* library.scm:3904: r-spaces */ t3=((C_word*)((C_word*)t0)[7])[1]; f_20391(t3,t2);} /* k21208 in k21205 in k21202 in k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in ... */ static void C_ccall f_21210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_21210,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21237,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* library.scm:3905: readrec */ t3=((C_word*)((C_word*)t0)[8])[1]; f_20388(t3,t2);} /* k21214 in k21235 in k21208 in k21205 in k21202 in k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in ... */ static void C_ccall f_21216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21216,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21233,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:3907: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k21227 in k21231 in k21214 in k21235 in k21208 in k21205 in k21202 in k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ... */ static void C_ccall f_21229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21229,2,av);} /* library.scm:3908: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} /* k21231 in k21214 in k21235 in k21208 in k21205 in k21202 in k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in ... */ static void C_ccall f_21233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21233,2,av);} a=C_alloc(5); t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21229,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:3910: starting-line */ t4=((C_word*)t0)[5]; f_21099(t4,t3,lf[807]);}} /* k21235 in k21208 in k21205 in k21202 in k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in ... */ static void C_ccall f_21237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21237,2,av);} a=C_alloc(6); t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21216,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* library.scm:3906: r-spaces */ t4=((C_word*)((C_word*)t0)[7])[1]; f_20391(t4,t3);} /* a21247 in k21202 in k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_21248(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_21248,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21252,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); /* library.scm:3915: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[413]+1); av2[1]=t4; av2[2]=lf[812]; av2[3]=t2; tp(4,av2);}} /* k21250 in a21247 in k21202 in k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in ... */ static void C_ccall f_21252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_21252,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21255,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=C_i_string_equal_p(t2,lf[809]); t5=(C_truep(t4)?C_eqp(((C_word*)((C_word*)t0)[6])[1],lf[810]):C_SCHEME_FALSE); if(C_truep(t5)){ /* library.scm:4124: ##sys#intern-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[628]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[628]+1); av2[1]=t3; av2[2]=lf[811]; tp(3,av2);}} else{ if(C_truep(((C_word*)t0)[7])){ /* library.scm:4124: ##sys#intern-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[628]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[628]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21283,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_u_i_char_numericp(((C_word*)t0)[8]))){ /* library.scm:3924: ##sys#string->number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[620]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[620]+1); av2[1]=t6; av2[2]=t2; tp(3,av2);}} else{ /* library.scm:4121: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t3; av2[2]=t2; C_string_to_symbol(3,av2);}}}}} /* k21253 in k21250 in a21247 in k21202 in k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in ... */ static void C_ccall f_21255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21255,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t3=C_i_setslot(((C_word*)t0)[3],C_fix(1),t2); /* library.scm:3930: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_21154(t4,((C_word*)t0)[5],t2);} else{ t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* library.scm:3930: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_21154(t4,((C_word*)t0)[5],t2);}} /* k21281 in k21250 in a21247 in k21202 in k21193 in k21190 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in ... */ static void C_ccall f_21283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21283,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; f_21255(2,av2);}} else{ /* library.scm:4121: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; C_string_to_symbol(3,av2);}}} /* k21337 in k21162 in k21159 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_21339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_21339,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t3=C_i_setslot(((C_word*)t0)[3],C_fix(1),t2); /* library.scm:3936: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_21154(t4,((C_word*)t0)[5],t2);} else{ t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); /* library.scm:3936: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_21154(t4,((C_word*)t0)[5],t2);}} /* k21341 in k21156 in loop in a21128 in k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_21343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_21343,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_21161(t3,t2);} /* k21348 in r-list in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_21350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_21350,2,av);} a=C_alloc(29); t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)((C_word*)t0)[3])[1]; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21099,a[2]=t6,a[3]=((C_word)li648),tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21116,a[2]=((C_word*)t0)[3],a[3]=t7,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t6,tmp=(C_word)a,a+=8,tmp); t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21129,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t8,a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=t4,a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=t6,a[12]=((C_word)li652),tmp=(C_word)a,a+=13,tmp); /* library.scm:3874: ##sys#call-with-current-continuation */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t9; av2[2]=t10; C_call_cc(3,av2);}} else{ /* library.scm:3941: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[7]; av2[3]=lf[813]; av2[4]=((C_word*)t0)[2]; tp(5,av2);}}} /* r-vector in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_21352(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_21352,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21356,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:3944: r-list */ t3=((C_word*)((C_word*)t0)[3])[1]; f_21090(t3,t2,C_make_character(40),C_make_character(41));} /* k21354 in r-vector in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_21356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21356,2,av);} if(C_truep(C_i_listp(t1))){ /* library.scm:3946: ##sys#list->vector */ t2=*((C_word*)lf[814]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ /* library.scm:3947: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[815]; av2[4]=t1; tp(5,av2);}}} /* r-number in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_21370(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_21370,4,t0,t1,t2,t3);} a=C_alloc(7); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21376,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word)li655),tmp=(C_word)a,a+=7,tmp); /* library.scm:3950: r-xtoken */ t5=((C_word*)((C_word*)t0)[4])[1]; f_21693(t5,t1,t4);} /* a21375 in r-number in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_21376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_21376,4,av);} a=C_alloc(7); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21383,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=t2; /* library.scm:4124: ##sys#intern-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[628]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[628]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} else{ if(C_truep(C_i_string_equal_p(t2,lf[817]))){ /* library.scm:3956: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2=av; av2[0]=*((C_word*)lf[773]+1); av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[818]; tp(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21405,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t5=C_block_size(t2); if(C_truep(C_fixnum_greaterp(t5,C_fix(0)))){ t6=t2; t7=C_i_string_ref(t6,C_fix(0)); t8=t4; f_21405(t8,C_u_i_char_equalp(t7,C_make_character(35)));} else{ t6=t4; f_21405(t6,C_SCHEME_FALSE);}}}} /* k21381 in a21375 in r-number in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_21383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21383,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21390,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:3954: ##sys#port-line */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[747]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[747]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k21388 in k21381 in a21375 in r-number in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_21390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21390,2,av);} /* library.scm:3954: info */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20318(t2,((C_word*)t0)[3],lf[816],((C_word*)t0)[4],t1);} /* k21403 in a21375 in r-number in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_21405(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_21405,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ /* library.scm:3958: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word av2[5]; av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[819]; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21411,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[5]; if(C_truep(t3)){ /* library.scm:3959: ##sys#string->number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[620]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[620]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=t3; av2[4]=((C_word*)t0)[6]; tp(5,av2);}} else{ /* library.scm:3959: ##sys#string->number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[620]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[620]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(10); av2[4]=((C_word*)t0)[6]; tp(5,av2);}}}} /* k21409 in k21403 in a21375 in r-number in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_21411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21411,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[3])){ /* library.scm:3960: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[820]; av2[4]=((C_word*)t0)[5]; tp(5,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[5]; /* library.scm:4121: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t2; av2[2]=t3; C_string_to_symbol(3,av2);}}}} /* r-number-with-exactness in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_21440(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_21440,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21489,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* library.scm:3964: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word av2[3]; av2[0]=*((C_word*)lf[766]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k21448 in k21487 in r-number-with-exactness in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_21450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21450,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21453,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:3966: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k21451 in k21448 in k21487 in r-number-with-exactness in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_21453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21453,2,av);} if(C_truep(C_eofp(t1))){ /* library.scm:3968: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[821]; tp(4,av2);}} else{ if(C_truep(C_i_char_equalp(t1,C_make_character(105)))){ /* library.scm:3969: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_21370(t2,((C_word*)t0)[2],((C_word*)t0)[5],lf[611]);} else{ if(C_truep(C_u_i_char_equalp(t1,C_make_character(101)))){ /* library.scm:3970: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_21370(t2,((C_word*)t0)[2],((C_word*)t0)[5],lf[610]);} else{ /* library.scm:3972: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[822]; av2[4]=t1; tp(5,av2);}}}}} /* k21487 in r-number-with-exactness in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_21489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_21489,2,av);} a=C_alloc(6); t2=C_eqp(C_make_character(35),t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21450,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:3965: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ /* library.scm:3975: r-number */ t3=((C_word*)((C_word*)t0)[4])[1]; f_21370(t3,((C_word*)t0)[2],((C_word*)t0)[5],C_SCHEME_FALSE);}} /* r-number-with-radix in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_21491(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_21491,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21556,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* library.scm:3978: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word av2[3]; av2[0]=*((C_word*)lf[766]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k21499 in k21554 in r-number-with-radix in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_21501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21501,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21504,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:3980: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k21502 in k21499 in k21554 in r-number-with-radix in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_21504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21504,2,av);} if(C_truep(C_eofp(t1))){ /* library.scm:3981: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[823]; tp(4,av2);}} else{ if(C_truep(C_i_char_equalp(t1,C_make_character(120)))){ /* library.scm:3982: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_21370(t2,((C_word*)t0)[2],C_fix(16),((C_word*)t0)[5]);} else{ if(C_truep(C_u_i_char_equalp(t1,C_make_character(100)))){ /* library.scm:3983: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_21370(t2,((C_word*)t0)[2],C_fix(10),((C_word*)t0)[5]);} else{ if(C_truep(C_u_i_char_equalp(t1,C_make_character(111)))){ /* library.scm:3984: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_21370(t2,((C_word*)t0)[2],C_fix(8),((C_word*)t0)[5]);} else{ if(C_truep(C_u_i_char_equalp(t1,C_make_character(98)))){ /* library.scm:3985: r-number */ t2=((C_word*)((C_word*)t0)[4])[1]; f_21370(t2,((C_word*)t0)[2],C_fix(2),((C_word*)t0)[5]);} else{ /* library.scm:3986: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[824]; av2[4]=t1; tp(5,av2);}}}}}}} /* k21554 in r-number-with-radix in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_21556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_21556,2,av);} a=C_alloc(6); t2=C_eqp(C_make_character(35),t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:3979: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ /* library.scm:3987: r-number */ t3=((C_word*)((C_word*)t0)[4])[1]; f_21370(t3,((C_word*)t0)[2],C_fix(10),((C_word*)t0)[5]);}} /* r-token in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_21558(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_21558,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21566,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* library.scm:3990: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word av2[3]; av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k21564 in r-token in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_21566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_21566,2,av);} a=C_alloc(10); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21568,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li659),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_21568(t5,((C_word*)t0)[6],t1,C_SCHEME_END_OF_LIST);} /* loop in k21564 in r-token in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_21568(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_21568,4,t0,t1,t2,t3);} a=C_alloc(9); t4=C_eofp(t2); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21578,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); if(C_truep(t4)){ t6=t5; f_21578(t6,t4);} else{ t6=C_u_i_char_whitespacep(t2); t7=t5; f_21578(t7,(C_truep(t6)?t6:C_i_memq(t2,((C_word*)t0)[6])));}} /* k21576 in loop in k21564 in r-token in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_21578(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_21578,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* library.scm:3994: ##sys#reverse-list->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[388]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[388]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ if(C_truep(C_i_char_equalp(((C_word*)t0)[4],C_make_character(0)))){ /* library.scm:3996: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word av2[4]; av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[825]; tp(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21593,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* library.scm:3998: read-unreserved-char-0 */ t3=((C_word*)((C_word*)t0)[8])[1]; f_20373(t3,t2,((C_word*)t0)[5]);}}} /* k21591 in k21576 in loop in k21564 in r-token in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_21593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_21593,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21600,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* library.scm:3999: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[7]; tp(3,av2);}} /* k21598 in k21591 in k21576 in loop in k21564 in r-token in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_21600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_21600,2,av);} a=C_alloc(3); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=((C_word*)t0)[3]; t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); /* library.scm:3999: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_21568(t4,((C_word*)t0)[6],t1,t3);} else{ t2=C_u_i_char_downcase(((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); /* library.scm:3999: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_21568(t4,((C_word*)t0)[6],t1,t3);}} /* r-digits in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_21622(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_21622,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21630,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:4003: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word av2[3]; av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k21628 in r-digits in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_21630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_21630,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21632,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li661),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_21632(t5,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} /* loop in k21628 in r-digits in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_21632(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_21632,4,t0,t1,t2,t3);} a=C_alloc(7); t4=C_eofp(t2); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21642,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); if(C_truep(t4)){ t6=t5; f_21642(t6,t4);} else{ t6=C_u_i_char_numericp(t2); t7=t5; f_21642(t7,C_i_not(t6));}} /* k21640 in loop in k21628 in r-digits in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_21642(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_21642,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ /* library.scm:4005: ##sys#reverse-list->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[388]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[388]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21648,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* library.scm:4007: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; tp(3,av2);}}} /* k21646 in k21640 in loop in k21628 in r-digits in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_21648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21648,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21655,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:4008: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k21653 in k21646 in k21640 in loop in k21628 in r-digits in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_21655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_21655,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); /* library.scm:4008: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_21632(t3,((C_word*)t0)[5],t1,t2);} /* r-symbol in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_21668(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_21668,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21674,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li663),tmp=(C_word)a,a+=5,tmp); /* library.scm:4011: r-xtoken */ t3=((C_word*)((C_word*)t0)[4])[1]; f_21693(t3,t1,t2);} /* a21673 in r-symbol in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_21674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21674,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21678,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ t5=t2; /* library.scm:4124: ##sys#intern-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[628]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[628]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} else{ t5=t2; /* library.scm:4121: ##sys#intern-symbol */{ C_word *av2=av; av2[0]=0; av2[1]=t4; av2[2]=t5; C_string_to_symbol(3,av2);}}} /* k21676 in a21673 in r-symbol in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_21678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21678,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21685,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:4014: ##sys#port-line */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[747]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[747]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k21683 in k21676 in a21673 in r-symbol in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_21685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21685,2,av);} /* library.scm:4014: info */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20318(t2,((C_word*)t0)[3],lf[816],((C_word*)t0)[4],t1);} /* r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_21693(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){ C_save_and_reclaim_args((void *)trf_21693,3,t0,t1,t2);} a=C_alloc(17); t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21699,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t6,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word)li665),tmp=(C_word)a,a+=13,tmp)); t8=((C_word*)t6)[1]; f_21699(t8,t1,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_fcall f_21699(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_21699,4,t0,t1,t2,t3);} a=C_alloc(15); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_21703,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],tmp=(C_word)a,a+=15,tmp); /* library.scm:4019: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word av2[3]; av2[0]=*((C_word*)lf[766]+1); av2[1]=t4; av2[2]=((C_word*)t0)[9]; tp(3,av2);}} /* k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_21703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_21703,2,av);} a=C_alloc(15); t2=t1; t3=C_eofp(t2); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_21712,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); if(C_truep(t3)){ t5=t4; f_21712(t5,t3);} else{ t5=C_u_i_char_whitespacep(t2); t6=t4; f_21712(t6,(C_truep(t5)?t5:C_i_memq(t2,((C_word*)t0)[14])));}} /* k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_21712(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_21712,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21718,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ t3=C_eqp(((C_word*)((C_word*)t0)[7])[1],lf[810]); if(C_truep(t3)){ t4=C_i_cdr(((C_word*)t0)[4]); t5=C_i_nullp(t4); t6=t2; f_21718(t6,C_i_not(t5));} else{ t4=t2; f_21718(t4,C_SCHEME_FALSE);}} else{ t3=t2; f_21718(t3,C_SCHEME_FALSE);}} else{ if(C_truep(C_i_memq(((C_word*)t0)[8],((C_word*)((C_word*)t0)[9])[1]))){ /* library.scm:4031: reserved-character */ t2=((C_word*)((C_word*)t0)[10])[1]; f_20364(t2,((C_word*)t0)[3],((C_word*)t0)[8]);} else{ t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21776,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[13],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[14],tmp=(C_word)a,a+=10,tmp); /* library.scm:4033: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[13]; tp(3,av2);}}}} /* k21716 in k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_21718(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_21718,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21725,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cdr(((C_word*)t0)[4]); /* library.scm:4027: ##sys#reverse-list->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[388]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[388]+1); av2[1]=t2; av2[2]=t3; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21736,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* library.scm:4028: ##sys#reverse-list->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[388]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[388]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* k21723 in k21716 in k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_21725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21725,2,av);} /* library.scm:4027: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} /* k21734 in k21716 in k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_21736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21736,2,av);} if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=C_i_nullp(((C_word*)t0)[3]); t3=C_i_not(t2); /* library.scm:4028: k */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t1; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} else{ /* library.scm:4028: k */ t2=((C_word*)t0)[4];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}} /* k21774 in k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_21776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_21776,2,av);} a=C_alloc(9); switch(t1){ case C_make_character(124): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21785,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4036: r-string */ t3=((C_word*)((C_word*)t0)[5])[1]; f_20536(t3,t2,C_make_character(124)); case C_make_character(10): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21809,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21820,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* library.scm:4042: ##sys#reverse-list->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[388]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[388]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);} case C_make_character(58): t2=C_i_nullp(((C_word*)t0)[4]); t3=(C_truep(t2)?C_eqp(((C_word*)((C_word*)t0)[7])[1],lf[827]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_set_block_item(((C_word*)t0)[8],0,C_SCHEME_TRUE); /* library.scm:4047: loop */ t5=((C_word*)((C_word*)t0)[2])[1]; f_21699(t5,((C_word*)t0)[3],C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} else{ t4=C_a_i_cons(&a,2,C_make_character(58),((C_word*)t0)[4]); /* library.scm:4048: loop */ t5=((C_word*)((C_word*)t0)[2])[1]; f_21699(t5,((C_word*)t0)[3],t4,C_SCHEME_TRUE);} case C_make_character(92): t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21858,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* library.scm:4050: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; tp(3,av2);} default: if(C_truep(((C_word*)((C_word*)t0)[9])[1])){ t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); /* library.scm:4057: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_21699(t3,((C_word*)t0)[3],t2,C_SCHEME_FALSE);} else{ t2=C_u_i_char_downcase(t1); t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); /* library.scm:4057: loop */ t4=((C_word*)((C_word*)t0)[2])[1]; f_21699(t4,((C_word*)t0)[3],t3,C_SCHEME_FALSE);}}} /* k21783 in k21774 in k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_21785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_21785,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21792,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21796,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21800,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:4037: ##sys#string->list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[384]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[384]+1); av2[1]=t4; av2[2]=t1; tp(3,av2);}} /* k21790 in k21783 in k21774 in k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_21792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21792,2,av);} /* library.scm:4037: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21699(t2,((C_word*)t0)[3],t1,C_SCHEME_FALSE);} /* k21794 in k21783 in k21774 in k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_21796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_21796,2,av);} /* library.scm:4037: scheme#append */ t2=*((C_word*)lf[374]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k21798 in k21783 in k21774 in k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_21800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21800,2,av);} /* library.scm:4037: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[376]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[376]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k21807 in k21774 in k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_21809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_21809,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,C_make_character(10),((C_word*)t0)[2]); /* library.scm:4043: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_21699(t3,((C_word*)t0)[4],t2,C_SCHEME_FALSE);} /* k21818 in k21774 in k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_21820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21820,2,av);} /* library.scm:4040: ##sys#read-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[776]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[776]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[826]; av2[4]=t1; tp(5,av2);}} /* k21856 in k21774 in k21710 in k21701 in loop in r-xtoken in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_21858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_21858,2,av);} a=C_alloc(3); if(C_truep(C_eofp(t1))){ /* library.scm:4052: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[828]; tp(4,av2);}} else{ t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); /* library.scm:4055: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_21699(t3,((C_word*)t0)[2],t2,C_SCHEME_FALSE);}} /* r-char in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_21907(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_21907,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21911,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:4063: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word av2[3]; av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k21909 in r-char in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_21911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_21911,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21914,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:4064: r-token */ t4=((C_word*)((C_word*)t0)[5])[1]; f_21558(t4,t3);} /* k21912 in k21909 in r-char in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_21914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_21914,2,av);} a=C_alloc(11); t2=t1; t3=C_block_size(t2); t4=t3; if(C_truep(C_fixnum_greaterp(t4,C_fix(1)))){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21926,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t4,tmp=(C_word)a,a+=6,tmp); t6=C_i_char_equalp(C_make_character(120),((C_word*)t0)[4]); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22091,a[2]=t5,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t6)){ t8=t7; f_22091(t8,t6);} else{ t8=C_u_i_char_equalp(C_make_character(117),((C_word*)t0)[4]); if(C_truep(t8)){ t9=t7; f_22091(t9,t8);} else{ t9=C_u_i_char_equalp(C_make_character(85),((C_word*)t0)[4]); t10=t7; f_22091(t10,t9);}}} else{ if(C_truep(C_i_memq(((C_word*)t0)[4],((C_word*)t0)[5]))){ /* library.scm:4094: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* k21924 in k21912 in k21909 in r-char in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_21926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_21926,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=t1; t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_make_character(C_unfix(t3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_subchar(((C_word*)t0)[3],C_fix(0)); t3=C_fix(C_character_code(t2)); t4=C_fixnum_less_or_equal_p(C_fix(192),t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21946,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(247)))){ t6=C_fixnum_shift_right(t3,C_fix(4)); t7=C_fixnum_and(t6,C_fix(3)); t8=C_fixnum_shift_right(t7,C_fix(1)); t9=C_fixnum_or(t7,t8); t10=C_fixnum_difference(t7,C_fix(1)); t11=C_fixnum_and(t9,t10); t12=C_fixnum_plus(C_fix(2),t11); t13=C_eqp(((C_word*)t0)[5],t12); if(C_truep(t13)){ t14=C_fixnum_difference(C_fix(8),t12); t15=C_fixnum_shift_left(C_fix(1),t14); t16=C_fixnum_difference(t15,C_fix(1)); t17=C_fixnum_and(t3,t16); t18=C_fixnum_shift_left(t17,C_fix(6)); t19=C_subchar(((C_word*)t0)[3],C_fix(1)); t20=C_fix(C_character_code(t19)); t21=C_fixnum_and(t20,C_fix(63)); t22=C_fixnum_plus(t18,t21); t23=t22; if(C_truep(t23)){ if(C_truep(C_fixnum_greater_or_equal_p(t12,C_fix(3)))){ t24=C_fixnum_shift_left(t23,C_fix(6)); t25=C_subchar(((C_word*)t0)[3],C_fix(2)); t26=C_fix(C_character_code(t25)); t27=C_fixnum_and(t26,C_fix(63)); t28=C_fixnum_plus(t24,t27); t29=t23=t28; t30=C_eqp(t12,C_fix(4)); if(C_truep(t30)){ t31=C_fixnum_shift_left(t23,C_fix(6)); t32=C_subchar(((C_word*)t0)[3],C_fix(3)); t33=C_fix(C_character_code(t32)); t34=C_fixnum_and(t33,C_fix(63)); t35=C_fixnum_plus(t31,t34); t36=t23=t35; t37=t5; f_21946(t37,C_make_character(C_unfix(t23)));} else{ t31=t5; f_21946(t31,C_make_character(C_unfix(t23)));}} else{ t24=t5; f_21946(t24,C_make_character(C_unfix(t23)));}} else{ t24=t5; f_21946(t24,C_SCHEME_FALSE);}} else{ t14=t5; f_21946(t14,C_SCHEME_FALSE);}} else{ t6=t5; f_21946(t6,C_SCHEME_FALSE);}} else{ t6=t5; f_21946(t6,C_SCHEME_FALSE);}}} /* k21944 in k21924 in k21912 in k21909 in r-char in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_21946(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_21946,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21962,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* library.scm:4092: ##sys#intern-symbol */{ C_word av2[3]; av2[0]=0; av2[1]=t3; av2[2]=((C_word*)t0)[4]; C_string_to_symbol(3,av2);}}} /* k21950 in k21944 in k21924 in k21912 in k21909 in r-char in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_21952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_21952,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* library.scm:4093: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[829]; av2[4]=((C_word*)t0)[4]; tp(5,av2);}}} /* k21960 in k21944 in k21924 in k21912 in k21909 in r-char in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_21962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_21962,2,av);} /* library.scm:4092: chicken.base#char-name */ t2=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k22089 in k21912 in k21909 in r-char in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_22091(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_22091,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22098,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4068: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[396]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(1); av2[4]=((C_word*)t0)[4]; tp(5,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_21926(2,av2);}}} /* k22096 in k22089 in k21912 in k21909 in r-char in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_22098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22098,2,av);} /* library.scm:4068: ##sys#string->number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[620]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[620]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(16); tp(4,av2);}} /* r-comment in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_22116(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_22116,2,t0,t1);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22122,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li668),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_22122(t5,t1,C_fix(0));} /* loop in r-comment in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_fcall f_22122(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_22122,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22126,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* library.scm:4099: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k22124 in loop in r-comment in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_22126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_22126,2,av);} a=C_alloc(5); switch(t1){ case C_make_character(124): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22162,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4101: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);} case C_make_character(35): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22185,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4105: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);} default: if(C_truep(C_eofp(t1))){ /* library.scm:4109: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=lf[830]; tp(4,av2);}} else{ /* library.scm:4110: loop */ t2=((C_word*)((C_word*)t0)[3])[1]; f_22122(t2,((C_word*)t0)[4],((C_word*)t0)[2]);}}} /* k22160 in k22124 in loop in r-comment in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_22162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22162,2,av);} t2=C_eqp(C_make_character(35),t1); if(C_truep(t2)){ t3=C_eqp(((C_word*)t0)[2],C_fix(0)); if(C_truep(C_i_not(t3))){ t4=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* library.scm:4103: loop */ t5=((C_word*)((C_word*)t0)[3])[1]; f_22122(t5,((C_word*)t0)[4],t4);} else{ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ /* library.scm:4104: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_22122(t3,((C_word*)t0)[4],((C_word*)t0)[2]);}} /* k22183 in k22124 in loop in r-comment in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_22185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22185,2,av);} t2=C_eqp(C_make_character(124),t1); if(C_truep(t2)){ t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:4105: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_22122(t4,((C_word*)t0)[4],t3);} else{ t3=((C_word*)t0)[2]; /* library.scm:4105: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_22122(t4,((C_word*)t0)[4],t3);}} /* r-ext-symbol in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_22203(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_22203,2,t0,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22207,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4113: r-token */ t3=((C_word*)((C_word*)t0)[2])[1]; f_21558(t3,t2);} /* k22205 in r-ext-symbol in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_22207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_22207,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22214,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4114: string-append */ t3=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[831]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k22212 in k22205 in r-ext-symbol in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_22214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22214,2,av);} t2=((C_word*)t0)[2]; /* library.scm:4121: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t2; av2[2]=t1; C_string_to_symbol(3,av2);}} /* r-quote in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_22216(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_22216,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22220,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* library.scm:4117: ##sys#port-line */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[747]); C_word av2[3]; av2[0]=*((C_word*)lf[747]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k22218 in r-quote in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_22220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_22220,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22231,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* library.scm:4118: readrec */ t4=((C_word*)((C_word*)t0)[5])[1]; f_20388(t4,t3);} /* k22229 in k22218 in r-quote in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_22231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_22231,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* library.scm:4118: info */ t3=((C_word*)((C_word*)t0)[3])[1]; f_20318(t3,((C_word*)t0)[4],lf[804],t2,((C_word*)t0)[5]);} /* k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_22247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_22247,2,av);} a=C_alloc(27); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_22250,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[2],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* library.scm:4131: r-spaces */ t4=((C_word*)((C_word*)t0)[27])[1]; f_20391(t4,t3);} /* k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_22250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_22250,2,av);} a=C_alloc(27); t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_22253,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp); /* library.scm:4132: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_22253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_22253,2,av);} a=C_alloc(28); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(1)); t4=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_22259,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],a[27]=((C_word*)t0)[26],tmp=(C_word)a,a+=28,tmp); t5=C_eofp(t2); if(C_truep(C_i_not(t5))){ if(C_truep(t3)){ t6=C_fix(C_character_code(t2)); t7=t4; f_22259(t7,C_slot(t3,t6));} else{ t6=t4; f_22259(t6,C_SCHEME_FALSE);}} else{ t6=t4; f_22259(t6,C_SCHEME_FALSE);}} /* k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_22259(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ C_save_and_reclaim_args((void *)trf_22259,2,t0,t1);} a=C_alloc(21); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22267,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li672),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22273,a[2]=((C_word*)t0)[4],a[3]=((C_word)li673),tmp=(C_word)a,a+=4,tmp); /* library.scm:4138: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} else{ switch(((C_word*)t0)[2]){ case C_make_character(39): t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22295,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4144: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(96): t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22307,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4147: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(44): t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22319,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:4150: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(35): t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_22347,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[6],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],tmp=(C_word)a,a+=21,tmp); /* library.scm:4156: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(40): /* library.scm:4271: r-list */ t3=((C_word*)((C_word*)t0)[21])[1]; f_21090(t3,((C_word*)t0)[5],C_make_character(40),C_make_character(41)); case C_make_character(41): t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22965,a[2]=((C_word*)t0)[22],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:4272: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(34): t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22977,a[2]=((C_word*)t0)[23],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4273: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(46): /* library.scm:4274: r-number */ t3=((C_word*)((C_word*)t0)[24])[1]; f_21370(t3,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE); default: t3=C_eqp(((C_word*)t0)[2],C_make_character(45)); t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[2],C_make_character(43))); if(C_truep(t4)){ /* library.scm:4275: r-number */ t5=((C_word*)((C_word*)t0)[24])[1]; f_21370(t5,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE);} else{ if(C_truep(C_eofp(((C_word*)t0)[2]))){ t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_u_i_char_numericp(((C_word*)t0)[2]))){ /* library.scm:4278: r-number */ t5=((C_word*)((C_word*)t0)[24])[1]; f_21370(t5,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE);} else{ if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[25])[1]))){ /* library.scm:4280: reserved-character */ t5=((C_word*)((C_word*)t0)[26])[1]; f_20364(t5,((C_word*)t0)[5],((C_word*)t0)[2]);} else{ switch(((C_word*)t0)[2]){ case C_make_character(91): /* library.scm:4283: r-list */ t5=((C_word*)((C_word*)t0)[21])[1]; f_21090(t5,((C_word*)t0)[5],C_make_character(91),C_make_character(93)); case C_make_character(123): /* library.scm:4284: r-list */ t5=((C_word*)((C_word*)t0)[21])[1]; f_21090(t5,((C_word*)t0)[5],C_make_character(123),C_make_character(125)); default: t5=C_eqp(((C_word*)t0)[2],C_make_character(93)); t6=(C_truep(t5)?t5:C_eqp(((C_word*)t0)[2],C_make_character(125))); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23055,a[2]=((C_word*)t0)[22],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:4285: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t7; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ /* library.scm:4286: r-symbol */ t7=((C_word*)((C_word*)t0)[27])[1]; f_21668(t7,((C_word*)t0)[5]);}}}}}}}}} /* a22266 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_22267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22267,2,av);} /* library.scm:4139: h */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} /* a22272 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_22273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_22273,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; if(C_truep(C_i_nullp(t2))){ /* library.scm:4140: readrec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_20388(t3,t1);} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k22293 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_22295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22295,2,av);} /* library.scm:4145: r-quote */ t2=((C_word*)((C_word*)t0)[2])[1]; f_22216(t2,((C_word*)t0)[3],lf[832]);} /* k22305 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_22307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22307,2,av);} /* library.scm:4148: r-quote */ t2=((C_word*)((C_word*)t0)[2])[1]; f_22216(t2,((C_word*)t0)[3],lf[833]);} /* k22317 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_22319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22319,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22338,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4151: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k22326 in k22336 in k22317 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_22328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22328,2,av);} /* library.scm:4153: r-quote */ t2=((C_word*)((C_word*)t0)[2])[1]; f_22216(t2,((C_word*)t0)[3],lf[834]);} /* k22336 in k22317 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_22338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22338,2,av);} a=C_alloc(4); t2=C_eqp(t1,C_make_character(64)); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22328,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4152: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} else{ /* library.scm:4154: r-quote */ t3=((C_word*)((C_word*)t0)[2])[1]; f_22216(t3,((C_word*)t0)[3],lf[835]);}} /* k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_22347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ C_save_and_reclaim((void *)f_22347,2,av);} a=C_alloc(21); t2=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_22350,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],tmp=(C_word)a,a+=21,tmp); /* library.scm:4157: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_22350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_22350,2,av);} a=C_alloc(19); t2=t1; if(C_truep(C_eofp(t2))){ /* library.scm:4160: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[836]; tp(4,av2);}} else{ if(C_truep(C_u_i_char_numericp(t2))){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22368,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22451,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:4163: r-digits */ t5=((C_word*)((C_word*)t0)[7])[1]; f_21622(t5,t4);} else{ t3=C_slot(((C_word*)t0)[4],C_fix(2)); t4=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_22457,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[18],a[17]=((C_word*)t0)[19],a[18]=((C_word*)t0)[20],tmp=(C_word)a,a+=19,tmp); if(C_truep(t3)){ t5=C_fix(C_character_code(t2)); t6=t4; f_22457(t6,C_slot(t3,t5));} else{ t5=t4; f_22457(t5,C_SCHEME_FALSE);}}}} /* k22366 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_22368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_22368,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22371,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* library.scm:4164: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k22369 in k22366 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22371(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_22371,2,av);} a=C_alloc(8); t2=t1; t3=C_slot(((C_word*)t0)[2],C_fix(3)); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22377,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); if(C_truep(C_charp(t2))){ if(C_truep(t3)){ t5=C_fix(C_character_code(t2)); t6=t4; f_22377(t6,C_slot(t3,t5));} else{ t5=t4; f_22377(t5,C_SCHEME_FALSE);}} else{ t5=t4; f_22377(t5,C_SCHEME_FALSE);}} /* k22375 in k22369 in k22366 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_fcall f_22377(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){ C_save_and_reclaim_args((void *)trf_22377,2,t0,t1);} a=C_alloc(11); t2=t1; if(C_truep(C_eofp(((C_word*)t0)[2]))){ /* library.scm:4170: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word av2[6]; av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[837]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; tp(6,av2);}} else{ if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22394,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word)li674),tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22400,a[2]=((C_word*)t0)[7],a[3]=((C_word)li675),tmp=(C_word)a,a+=4,tmp); /* library.scm:4173: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} else{ t3=C_eqp(((C_word*)t0)[2],C_make_character(41)); t4=(C_truep(t3)?t3:C_u_i_char_whitespacep(((C_word*)t0)[2])); if(C_truep(t4)){ /* library.scm:4178: ##sys#sharp-number-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[772]); C_word av2[4]; av2[0]=*((C_word*)lf[772]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[6]; tp(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22428,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* library.scm:4179: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t5; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}}}} /* a22393 in k22375 in k22369 in k22366 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_22394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22394,2,av);} /* library.scm:4174: h */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} /* a22399 in k22375 in k22369 in k22366 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_22400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_22400,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; if(C_truep(C_i_nullp(t2))){ /* library.scm:4175: readrec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_20388(t3,t1);} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k22426 in k22375 in k22369 in k22366 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_22428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_22428,2,av);} /* library.scm:4180: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[838]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; tp(7,av2);}} /* k22449 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_22451(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22451,2,av);} /* library.scm:4163: scheme#string->number */ t2=*((C_word*)lf[618]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_fcall f_22457(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_22457,2,t0,t1);} a=C_alloc(10); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22465,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li676),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22471,a[2]=((C_word*)t0)[4],a[3]=((C_word)li677),tmp=(C_word)a,a+=4,tmp); /* library.scm:4188: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} else{ t3=C_u_i_char_downcase(((C_word*)t0)[2]); switch(t3){ case C_make_character(120): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22496,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4193: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(100): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22508,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4194: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(111): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22520,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4195: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(98): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22532,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4196: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(105): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22544,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4197: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(101): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22556,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4198: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(99): t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22568,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* library.scm:4200: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(40): /* library.scm:4209: r-vector */ t4=((C_word*)((C_word*)t0)[9])[1]; f_21352(t4,((C_word*)t0)[5]); case C_make_character(92): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22632,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4210: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(124): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22644,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp); /* library.scm:4212: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(35): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22659,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4215: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(59): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22671,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4218: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(96): t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22686,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4221: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(36): t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22698,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[13],tmp=(C_word)a,a+=5,tmp); /* library.scm:4224: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(58): t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22725,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[15],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:4233: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(43): t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22785,a[2]=((C_word*)t0)[16],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* library.scm:4243: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} case C_make_character(33): t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22815,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[17],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[18],tmp=(C_word)a,a+=7,tmp); /* library.scm:4250: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);} default: t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22887,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li685),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22893,a[2]=((C_word*)t0)[4],a[3]=((C_word)li686),tmp=(C_word)a,a+=4,tmp); /* library.scm:4269: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}}}} /* a22464 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22465,2,av);} /* library.scm:4189: h */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} /* a22470 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_22471,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; if(C_truep(C_i_nullp(t2))){ /* library.scm:4190: readrec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_20388(t3,t1);} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k22494 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22496,2,av);} /* library.scm:4193: r-number-with-exactness */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21440(t2,((C_word*)t0)[3],C_fix(16));} /* k22506 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22508,2,av);} /* library.scm:4194: r-number-with-exactness */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21440(t2,((C_word*)t0)[3],C_fix(10));} /* k22518 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22520,2,av);} /* library.scm:4195: r-number-with-exactness */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21440(t2,((C_word*)t0)[3],C_fix(8));} /* k22530 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22532,2,av);} /* library.scm:4196: r-number-with-exactness */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21440(t2,((C_word*)t0)[3],C_fix(2));} /* k22542 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22544,2,av);} /* library.scm:4197: r-number-with-radix */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21491(t2,((C_word*)t0)[3],lf[611]);} /* k22554 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22556,2,av);} /* library.scm:4198: r-number-with-radix */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21491(t2,((C_word*)t0)[3],lf[610]);} /* k22566 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_22568,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22571,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:4201: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k22569 in k22566 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_22571(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_22571,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22574,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_eofp(t1))){ /* library.scm:4204: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[839]; tp(4,av2);}} else{ switch(t1){ case C_make_character(105): t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_22574(2,av2);} case C_make_character(115): t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_TRUE; f_22574(2,av2);} default: /* library.scm:4207: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=lf[840]; av2[4]=t1; tp(5,av2);}}}} /* k22572 in k22569 in k22566 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_22574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_22574,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22579,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word)li678),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22584,a[2]=((C_word*)t0)[3],a[3]=((C_word)li679),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22590,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word)li680),tmp=(C_word)a,a+=6,tmp); /* library.scm:4202: ##sys#dynamic-wind */ t9=*((C_word*)lf[690]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[4]; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a22578 in k22572 in k22569 in k22566 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_22579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22579,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a22583 in k22572 in k22569 in k22566 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_22584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22584,2,av);} /* library.scm:4208: readrec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20388(t2,t1);} /* a22589 in k22572 in k22569 in k22566 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_22590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22590,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k22630 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22632,2,av);} /* library.scm:4210: r-char */ t2=((C_word*)((C_word*)t0)[2])[1]; f_21907(t2,((C_word*)t0)[3]);} /* k22642 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22644,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22647,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4213: r-comment */ t3=((C_word*)((C_word*)t0)[4])[1]; f_22116(t3,t2);} /* k22645 in k22642 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_22647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22647,2,av);} /* library.scm:4213: readrec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20388(t2,((C_word*)t0)[3]);} /* k22657 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22659(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22659,2,av);} /* library.scm:4216: r-ext-symbol */ t2=((C_word*)((C_word*)t0)[2])[1]; f_22203(t2,((C_word*)t0)[3]);} /* k22669 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22671,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22674,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4219: readrec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_20388(t3,t2);} /* k22672 in k22669 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_22674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22674,2,av);} /* library.scm:4219: readrec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20388(t2,((C_word*)t0)[3]);} /* k22684 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22686,2,av);} /* library.scm:4222: r-quote */ t2=((C_word*)((C_word*)t0)[2])[1]; f_22216(t2,((C_word*)t0)[3],lf[841]);} /* k22696 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22698(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22698,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22701,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4225: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k22699 in k22696 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_22701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_22701,2,av);} a=C_alloc(4); if(C_truep(C_i_char_equalp(t1,C_make_character(123)))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22710,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4227: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ /* library.scm:4231: r-quote */ t2=((C_word*)((C_word*)t0)[4])[1]; f_22216(t2,((C_word*)t0)[2],lf[843]);}} /* k22708 in k22699 in k22696 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_22710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22710,2,av);} /* library.scm:4228: ##sys#read-bytevector-literal */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[842]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[842]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k22723 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_22725,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22728,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:4234: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k22726 in k22723 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_22728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ C_save_and_reclaim((void *)f_22728,2,av);} a=C_alloc(22); t2=t1; t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_FALSE; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22733,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li681),tmp=(C_word)a,a+=6,tmp); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22738,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word)li683),tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22773,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li684),tmp=(C_word)a,a+=6,tmp); /* library.scm:4235: ##sys#dynamic-wind */ t10=*((C_word*)lf[690]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=((C_word*)t0)[5]; av2[2]=t7; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* a22732 in k22726 in k22723 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_22733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22733,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a22737 in k22726 in k22723 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_22738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_22738,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li682),tmp=(C_word)a,a+=5,tmp); /* library.scm:4236: r-xtoken */ t3=((C_word*)((C_word*)t0)[4])[1]; f_21693(t3,t1,t2);} /* a22743 in a22737 in k22726 in k22723 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_22744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22744,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22751,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=C_block_size(t2); t6=C_eqp(C_fix(0),t5); if(C_truep(t6)){ t7=C_i_char_equalp(((C_word*)t0)[3],C_make_character(124)); t8=t4; f_22751(t8,C_i_not(t7));} else{ t7=t4; f_22751(t7,C_SCHEME_FALSE);}} /* k22749 in a22743 in a22737 in k22726 in k22723 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in ... */ static void C_fcall f_22751(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_22751,2,t0,t1);} if(C_truep(t1)){ /* library.scm:4240: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word av2[4]; av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[844]; tp(4,av2);}} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[4]; /* library.scm:4124: ##sys#intern-keyword */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[628]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[628]+1); av2[1]=t2; av2[2]=t3; tp(3,av2);}}} /* a22772 in k22726 in k22723 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_22773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22773,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k22783 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_22785,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22788,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4244: ##sys#port-line */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[747]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[747]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k22786 in k22783 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_22788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_22788,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22791,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:4245: readrec */ t4=((C_word*)((C_word*)t0)[4])[1]; f_20388(t4,t3);} /* k22789 in k22786 in k22783 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_22791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_22791,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22806,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:4247: readrec */ t4=((C_word*)((C_word*)t0)[5])[1]; f_20388(t4,t3);} /* k22804 in k22789 in k22786 in k22783 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_22806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_22806,2,av);} a=C_alloc(15); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list3(&a,3,lf[845],t2,lf[846]); /* library.scm:4246: info */ t4=((C_word*)((C_word*)t0)[3])[1]; f_20318(t4,((C_word*)t0)[4],lf[804],t3,((C_word*)t0)[5]);} /* k22813 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22815,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22818,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* library.scm:4251: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k22816 in k22813 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_22818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_22818,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22824,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_charp(t1))){ t3=C_u_i_char_whitespacep(t1); if(C_truep(t3)){ t4=t2; f_22824(t4,t3);} else{ t4=C_u_i_char_equalp(C_make_character(47),t1); t5=t2; f_22824(t5,t4);}} else{ t3=t2; f_22824(t3,C_SCHEME_FALSE);}} /* k22822 in k22816 in k22813 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_fcall f_22824(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_22824,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22827,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4254: skip-to-eol */ t3=((C_word*)((C_word*)t0)[4])[1]; f_20327(t3,t2);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22833,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:4257: r-token */ t3=((C_word*)((C_word*)t0)[6])[1]; f_21558(t3,t2);}} /* k22825 in k22822 in k22816 in k22813 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_22827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_22827,2,av);} /* library.scm:4255: readrec */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20388(t2,((C_word*)t0)[3]);} /* k22831 in k22822 in k22816 in k22813 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_22833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_22833,2,av);} a=C_alloc(5); t2=t1; if(C_truep(C_i_string_equal_p(lf[847],t2))){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep((C_truep(C_i_equalp(t2,lf[848]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t2,lf[849]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t2,lf[850]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22852,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4260: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=t3; av2[2]=lf[851]; av2[3]=t2; tp(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22871,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:4262: scheme#string->symbol */ t4=*((C_word*)lf[634]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}} /* k22850 in k22831 in k22822 in k22816 in k22813 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in ... */ static void C_ccall f_22852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22852,2,av);} t2=((C_word*)t0)[2]; /* library.scm:4121: ##sys#intern-symbol */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t2; av2[2]=t1; C_string_to_symbol(3,av2);}} /* k22869 in k22831 in k22822 in k22816 in k22813 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in ... */ static void C_ccall f_22871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_22871,2,av);} t2=C_i_assq(t1,C_fast_retrieve(lf[852])); if(C_truep(t2)){ t3=C_slot(t2,C_fix(1)); /* library.scm:4263: g4888 */ t4=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ /* library.scm:4265: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[853]; av2[4]=((C_word*)t0)[4]; tp(5,av2);}}} /* a22886 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_22887,2,av);} /* library.scm:4269: ##sys#user-read-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[854]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[854]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* a22892 in k22455 in k22348 in k22345 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_22893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_22893,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; if(C_truep(C_i_nullp(t2))){ /* library.scm:4270: readrec */ t3=((C_word*)((C_word*)t0)[2])[1]; f_20388(t3,t1);} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k22963 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_22965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22965,2,av);} /* library.scm:4272: container */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k22975 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_22977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_22977,2,av);} /* library.scm:4273: r-string */ t2=((C_word*)((C_word*)t0)[2])[1]; f_20536(t2,((C_word*)t0)[3],C_make_character(34));} /* k23053 in k22257 in k22251 in k22248 in k22245 in readrec in k20308 in k20305 in k20302 in k20299 in k20296 in ##sys#read in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_23055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23055,2,av);} /* library.scm:4285: container */ t2=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* ##sys#char->utf8-string in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_23131,3,av);} a=C_alloc(5); t3=C_fix(C_character_code(t2)); if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(127)))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_string(&a,1,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(2047)))){ t4=C_fixnum_shift_right(t3,C_fix(6)); t5=C_fixnum_or(C_fix(192),t4); t6=C_make_character(C_unfix(t5)); t7=C_fixnum_and(t3,C_fix(63)); t8=C_fixnum_or(C_fix(128),t7); t9=C_make_character(C_unfix(t8)); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=C_a_i_string(&a,2,t6,t9); ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(65535)))){ t4=C_fixnum_shift_right(t3,C_fix(12)); t5=C_fixnum_or(C_fix(224),t4); t6=C_make_character(C_unfix(t5)); t7=C_fixnum_shift_right(t3,C_fix(6)); t8=C_fixnum_and(t7,C_fix(63)); t9=C_fixnum_or(C_fix(128),t8); t10=C_make_character(C_unfix(t9)); t11=C_fixnum_and(t3,C_fix(63)); t12=C_fixnum_or(C_fix(128),t11); t13=C_make_character(C_unfix(t12)); t14=t1;{ C_word *av2=av; av2[0]=t14; av2[1]=C_a_i_string(&a,3,t6,t10,t13); ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} else{ if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(2097151)))){ t4=C_fixnum_shift_right(t3,C_fix(18)); t5=C_fixnum_or(C_fix(240),t4); t6=C_make_character(C_unfix(t5)); t7=C_fixnum_shift_right(t3,C_fix(12)); t8=C_fixnum_and(t7,C_fix(63)); t9=C_fixnum_or(C_fix(128),t8); t10=C_make_character(C_unfix(t9)); t11=C_fixnum_shift_right(t3,C_fix(6)); t12=C_fixnum_and(t11,C_fix(63)); t13=C_fixnum_or(C_fix(128),t12); t14=C_make_character(C_unfix(t13)); t15=C_fixnum_and(t3,C_fix(63)); t16=C_fixnum_or(C_fix(128),t15); t17=C_make_character(C_unfix(t16)); t18=t1;{ C_word *av2=av; av2[0]=t18; av2[1]=C_a_i_string(&a,4,t6,t10,t14,t17); ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}} else{ /* library.scm:4310: chicken.base#error */ t4=*((C_word*)lf[193]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=lf[857]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}}} /* ##sys#unicode-surrogate? in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23296,3,av);} t3=C_fixnum_less_or_equal_p(C_fix(55296),t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?C_fixnum_less_or_equal_p(t2,C_fix(57343)):C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#surrogates->codepoint in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23308,4,av);} if(C_truep(C_fixnum_less_or_equal_p(C_fix(55296),t2))){ if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(56319)))){ if(C_truep(C_fixnum_less_or_equal_p(C_fix(56320),t3))){ if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(57343)))){ t4=C_fixnum_shift_right(t2,C_fix(6)); t5=C_fixnum_and(t4,C_fix(31)); t6=C_fixnum_plus(C_fix(1),t5); t7=C_fixnum_shift_left(t6,C_fix(16)); t8=C_fixnum_and(t2,C_fix(63)); t9=C_fixnum_shift_left(t8,C_fix(10)); t10=C_fixnum_and(t3,C_fix(1023)); t11=C_fixnum_or(t9,t10); t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=C_fixnum_or(t7,t11); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* ##sys#read-bytevector-literal in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_23370,3,av);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23373,a[2]=t2,a[3]=((C_word)li692),tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23419,a[2]=t2,a[3]=t5,a[4]=t3,a[5]=((C_word)li693),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_23419(t7,t1,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} /* hex in ##sys#read-bytevector-literal in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_fcall f_23373(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_23373,3,t0,t1,t2);} t3=C_u_i_char_downcase(t2); t4=(C_truep(C_u_i_char_greater_or_equal_p(t3,C_make_character(97)))?C_u_i_char_less_or_equal_p(t3,C_make_character(102)):C_SCHEME_FALSE); if(C_truep(t4)){ t5=C_fix(C_character_code(t3)); t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_fixnum_difference(t5,C_fix(87)); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(C_truep(C_u_i_char_greater_or_equal_p(t3,C_make_character(48)))?C_u_i_char_less_or_equal_p(t3,C_make_character(57)):C_SCHEME_FALSE); if(C_truep(t5)){ t6=C_fix(C_character_code(t3)); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=C_fixnum_difference(t6,C_fix(48)); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ /* library.scm:4330: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word av2[4]; av2[0]=*((C_word*)lf[773]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[858]; tp(4,av2);}}}} /* loop in ##sys#read-bytevector-literal in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_fcall f_23419(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_23419,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23423,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); /* library.scm:4332: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k23421 in loop in ##sys#read-bytevector-literal in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in ... */ static void C_ccall f_23423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_23423,2,av);} a=C_alloc(6); if(C_truep(C_eofp(t1))){ /* library.scm:4334: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[859]; tp(4,av2);}} else{ if(C_truep(C_i_char_equalp(C_make_character(125),t1))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23441,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(((C_word*)t0)[4])){ t3=C_fixnum_shift_right(((C_word*)t0)[4],C_fix(4)); t4=C_make_character(C_unfix(t3)); t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[5]); /* library.scm:4336: ##sys#reverse-list->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[388]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[388]+1); av2[1]=t2; av2[2]=t5; tp(3,av2);}} else{ t3=((C_word*)t0)[5]; /* library.scm:4336: ##sys#reverse-list->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[388]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[388]+1); av2[1]=t2; av2[2]=t3; tp(3,av2);}}} else{ if(C_truep(C_u_i_char_whitespacep(t1))){ if(C_truep(((C_word*)t0)[4])){ t2=C_fixnum_shift_right(((C_word*)t0)[4],C_fix(4)); t3=C_make_character(C_unfix(t2)); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[5]); /* library.scm:4344: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_23419(t5,((C_word*)t0)[2],t4,C_SCHEME_FALSE);} else{ /* library.scm:4345: loop */ t2=((C_word*)((C_word*)t0)[6])[1]; f_23419(t2,((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[4]);}} else{ if(C_truep(((C_word*)t0)[4])){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23505,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* library.scm:4346: hex */ t3=((C_word*)t0)[7]; f_23373(t3,t2,t1);} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23516,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:4347: hex */ t3=((C_word*)t0)[7]; f_23373(t3,t2,t1);}}}}} /* k23439 in k23421 in loop in ##sys#read-bytevector-literal in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_23441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23441,2,av);} t2=C_string_to_bytevector(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k23503 in k23421 in loop in ##sys#read-bytevector-literal in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_23505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_23505,2,av);} a=C_alloc(3); t2=C_fixnum_or(((C_word*)t0)[2],t1); t3=C_make_character(C_unfix(t2)); t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); /* library.scm:4346: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_23419(t5,((C_word*)t0)[5],t4,C_SCHEME_FALSE);} /* k23514 in k23421 in loop in ##sys#read-bytevector-literal in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_23516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23516,2,av);} t2=C_fixnum_shift_left(t1,C_fix(4)); /* library.scm:4347: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23419(t3,((C_word*)t0)[3],((C_word*)t0)[4],t2);} /* ##sys#user-read-hook in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_23518,4,av);} a=C_alloc(3); t4=t2; t5=C_eqp(t4,C_make_character(102)); t6=(C_truep(t5)?t5:C_eqp(t4,C_make_character(70))); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23531,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4359: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2=av; av2[0]=*((C_word*)lf[764]+1); av2[1]=t7; av2[2]=t3; tp(3,av2);}} else{ t7=C_eqp(t4,C_make_character(116)); t8=(C_truep(t7)?t7:C_eqp(t4,C_make_character(84))); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23543,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4360: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2=av; av2[0]=*((C_word*)lf[764]+1); av2[1]=t9; av2[2]=t3; tp(3,av2);}} else{ /* library.scm:4361: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[773]+1); av2[1]=t1; av2[2]=t3; av2[3]=lf[860]; av2[4]=t2; tp(5,av2);}}}} /* k23529 in ##sys#user-read-hook in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_ccall f_23531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23531,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k23541 in ##sys#user-read-hook in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_ccall f_23543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23543,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#write-char-0 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_23563,4,av);} a=C_alloc(3); t4=C_slot(t3,C_fix(2)); t5=C_slot(t4,C_fix(2)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23570,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4375: g5000 */ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t3; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} /* k23568 in ##sys#write-char-0 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_ccall f_23570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23570,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[244]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#write-char/port in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23579,4,av);} t4=t3; t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[863]); t6=C_i_check_char_2(t2,lf[863]); /* library.scm:4382: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2=av; av2[0]=*((C_word*)lf[861]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; tp(4,av2);}} /* scheme#write-char in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23591(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,3)))){ C_save_and_reclaim((void*)f_23591,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[713]+1):C_i_car(t3)); t6=C_i_check_char_2(t2,lf[863]); t7=C_i_check_port_2(t5,C_fix(2),C_SCHEME_TRUE,lf[863]); /* library.scm:4388: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[861]+1); av2[1]=t1; av2[2]=t2; av2[3]=t5; tp(4,av2);}} /* scheme#newline in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,3)))){ C_save_and_reclaim((void*)f_23612,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; if(C_truep(C_i_nullp(t2))){ t3=*((C_word*)lf[713]+1); t4=*((C_word*)lf[713]+1); /* library.scm:4392: ##sys#write-char/port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[862]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[862]+1); av2[1]=t1; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[713]+1); tp(4,av2);}} else{ t3=C_i_car(t2); /* library.scm:4392: ##sys#write-char/port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[862]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[862]+1); av2[1]=t1; av2[2]=C_make_character(10); av2[3]=t3; tp(4,av2);}}} /* scheme#write in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_23627,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t3))){ t4=*((C_word*)lf[713]+1); t5=C_i_check_port_2(*((C_word*)lf[713]+1),C_fix(2),C_SCHEME_TRUE,lf[864]); /* library.scm:4397: ##sys#print */ t6=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[713]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t4=C_i_car(t3); t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[864]); /* library.scm:4397: ##sys#print */ t6=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* scheme#display in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_23645,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t3))){ t4=*((C_word*)lf[713]+1); t5=C_i_check_port_2(*((C_word*)lf[713]+1),C_fix(2),C_SCHEME_TRUE,lf[866]); /* library.scm:4402: ##sys#print */ t6=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[713]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t4=C_i_car(t3); t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[866]); /* library.scm:4402: ##sys#print */ t6=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* chicken.base#print in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){ C_save_and_reclaim((void*)f_23663,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+9); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t3=*((C_word*)lf[713]+1); t4=C_i_check_port_2(*((C_word*)lf[713]+1),C_fix(2),C_SCHEME_TRUE,lf[867]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23706,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_i_check_list_2(t2,lf[685]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23682,a[2]=t8,a[3]=((C_word)li702),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_23682(t10,t5,t2);} /* for-each-loop5061 in chicken.base#print in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_fcall f_23682(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_23682,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23692,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[865]+1); /* library.scm:4405: g5077 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[865]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[865]+1); av2[1]=t3; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[713]+1); tp(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k23690 in for-each-loop5061 in chicken.base#print in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in ... */ static void C_ccall f_23692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23692,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_23682(t3,((C_word*)t0)[4],t2);} /* k23704 in chicken.base#print in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_ccall f_23706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_23706,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23709,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4411: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[861]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[713]+1); tp(4,av2);}} /* k23707 in k23704 in chicken.base#print in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in ... */ static void C_ccall f_23709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23709,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[244]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.base#print* in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){ C_save_and_reclaim((void*)f_23714,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+9); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t3=*((C_word*)lf[713]+1); t4=C_i_check_port_2(*((C_word*)lf[713]+1),C_fix(2),C_SCHEME_TRUE,lf[867]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23757,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=C_i_check_list_2(t2,lf[685]); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23733,a[2]=t8,a[3]=((C_word)li704),tmp=(C_word)a,a+=4,tmp)); t10=((C_word*)t8)[1]; f_23733(t10,t5,t2);} /* for-each-loop5093 in chicken.base#print* in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_fcall f_23733(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_23733,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23743,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[865]+1); /* library.scm:4405: g5109 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[865]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[865]+1); av2[1]=t3; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[713]+1); tp(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k23741 in for-each-loop5093 in chicken.base#print* in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in ... */ static void C_ccall f_23743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23743,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_23733(t3,((C_word*)t0)[4],t2);} /* k23755 in chicken.base#print* in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_ccall f_23757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_23757,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23760,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4418: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[745]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[745]+1); av2[1]=t2; av2[2]=*((C_word*)lf[713]+1); tp(3,av2);}} /* k23758 in k23755 in chicken.base#print* in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in ... */ static void C_ccall f_23760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_23760,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[244]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in ... */ static void C_ccall f_23767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_23767,2,av);} a=C_alloc(3); t2=C_mutate(&lf[868] /* (set! current-print-length ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23771,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4422: chicken.base#make-parameter */ t4=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in ... */ static void C_ccall f_23771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_23771,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[869]+1 /* (set! ##sys#print-length-limit ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23775,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4423: chicken.base#make-parameter */ t4=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in ... */ static void C_ccall f_23775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(104,c,6)))){ C_save_and_reclaim((void *)f_23775,2,av);} a=C_alloc(104); t2=C_mutate(&lf[870] /* (set! ##sys#print-exit ...) */,t1); t3=*((C_word*)lf[230]+1); t4=*((C_word*)lf[231]+1); t5=C_mutate((C_word*)lf[865]+1 /* (set! ##sys#print ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23777,a[2]=t4,a[3]=t3,a[4]=((C_word)li719),tmp=(C_word)a,a+=5,tmp)); t6=C_mutate((C_word*)lf[892]+1 /* (set! ##sys#procedure->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24878,a[2]=((C_word)li720),tmp=(C_word)a,a+=3,tmp)); t7=C_set_block_item(lf[905] /* ##sys#record-printers */,0,C_SCHEME_END_OF_LIST); t8=C_mutate((C_word*)lf[906]+1 /* (set! ##sys#register-record-printer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24895,a[2]=((C_word)li721),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[891]+1 /* (set! ##sys#user-print-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24915,a[2]=((C_word)li729),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[917]+1 /* (set! ##sys#with-print-length-limit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25066,a[2]=((C_word)li734),tmp=(C_word)a,a+=3,tmp)); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25151,a[2]=t12,a[3]=((C_word)li735),tmp=(C_word)a,a+=4,tmp); t14=C_set_block_item(t12,0,t13); t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31455,a[2]=((C_word)li736),tmp=(C_word)a,a+=3,tmp); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31480,a[2]=((C_word)li737),tmp=(C_word)a,a+=3,tmp); t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31498,a[2]=t12,a[3]=((C_word)li738),tmp=(C_word)a,a+=4,tmp); t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31517,a[2]=t12,a[3]=((C_word)li739),tmp=(C_word)a,a+=4,tmp); t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31536,a[2]=((C_word)li740),tmp=(C_word)a,a+=3,tmp); t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31539,a[2]=((C_word)li741),tmp=(C_word)a,a+=3,tmp); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31542,a[2]=((C_word)li742),tmp=(C_word)a,a+=3,tmp); t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31583,a[2]=((C_word)li746),tmp=(C_word)a,a+=3,tmp); t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31667,a[2]=((C_word)li747),tmp=(C_word)a,a+=3,tmp); t24=C_a_i_vector(&a,10,t15,t16,t17,t18,*((C_word*)lf[196]+1),t19,t20,t21,t22,t23); t25=C_mutate((C_word*)lf[922]+1 /* (set! ##sys#string-port-class ...) */,t24); t26=C_mutate((C_word*)lf[920]+1 /* (set! ##sys#scan-buffer-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25207,a[2]=((C_word)li754),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate((C_word*)lf[212]+1 /* (set! chicken.base#open-input-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25404,a[2]=((C_word)li755),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate((C_word*)lf[213]+1 /* (set! chicken.base#open-output-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25423,a[2]=((C_word)li756),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate((C_word*)lf[211]+1 /* (set! chicken.base#get-output-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25442,a[2]=((C_word)li757),tmp=(C_word)a,a+=3,tmp)); t30=*((C_word*)lf[211]+1); t31=*((C_word*)lf[213]+1); t32=C_mutate((C_word*)lf[932]+1 /* (set! ##sys#print-to-string ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25476,a[2]=t30,a[3]=t31,a[4]=((C_word)li760),tmp=(C_word)a,a+=5,tmp)); t33=C_mutate((C_word*)lf[886]+1 /* (set! ##sys#pointer->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25519,a[2]=((C_word)li761),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate((C_word*)lf[186]+1 /* (set! chicken.base#get-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25572,a[2]=((C_word)li763),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate((C_word*)lf[941]+1 /* (set! ##sys#really-print-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25716,a[2]=((C_word)li767),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate((C_word*)lf[187]+1 /* (set! chicken.base#print-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25821,a[2]=((C_word)li768),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate((C_word*)lf[949]+1 /* (set! ##sys#user-interrupt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25912,a[2]=((C_word)li770),tmp=(C_word)a,a+=3,tmp)); t38=lf[952] /* exit-in-progress */ =C_SCHEME_FALSE;; t39=C_mutate(&lf[953] /* (set! cleanup-before-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25934,a[2]=((C_word)li773),tmp=(C_word)a,a+=3,tmp)); t40=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26017,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t41=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31431,a[2]=((C_word)li983),tmp=(C_word)a,a+=3,tmp); /* library.scm:4988: chicken.base#make-parameter */ t42=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t42; av2[1]=t40; av2[2]=t41; ((C_proc)(void*)(*((C_word*)t42+1)))(3,av2);}} /* ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_23777(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_23777,5,av);} a=C_alloc(7); t5=t4; t6=C_i_check_port_2(t5,C_fix(2),C_SCHEME_TRUE,C_SCHEME_FALSE); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23784,a[2]=t3,a[3]=t1,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* library.scm:4430: case-sensitive */ t8=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_23784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_23784,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23787,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:4431: keyword-style */ t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_23787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_23787,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23790,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* library.scm:4432: ##sys#print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[869]); C_word *av2=av; av2[0]=*((C_word*)lf[869]+1); av2[1]=t3; tp(2,av2);}} /* k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_23790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(49,c,4)))){ C_save_and_reclaim((void *)f_23790,2,av);} a=C_alloc(49); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23792,a[2]=t2,a[3]=((C_word)li706),tmp=(C_word)a,a+=4,tmp)); t14=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23864,a[2]=t2,a[3]=((C_word)li707),tmp=(C_word)a,a+=4,tmp)); t15=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23924,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t10,a[5]=t12,a[6]=((C_word)li708),tmp=(C_word)a,a+=7,tmp)); t16=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23948,a[2]=t6,a[3]=t4,a[4]=((C_word)li710),tmp=(C_word)a,a+=5,tmp)); t17=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24037,a[2]=((C_word*)t0)[3],a[3]=((C_word)li712),tmp=(C_word)a,a+=4,tmp)); t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24226,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t19=C_SCHEME_UNDEFINED; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24231,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=((C_word*)t0)[6],a[7]=t8,a[8]=t20,a[9]=((C_word)li718),tmp=(C_word)a,a+=10,tmp)); t22=((C_word*)t20)[1]; f_24231(t22,t18,((C_word*)t0)[7]);} /* outstr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_23792(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_23792,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(((C_word*)t0)[2])){ t4=C_block_size(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23802,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* library.scm:4438: current-print-length */ t7=C_retrieve2(lf[868],C_text("current-print-length"));{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t4=t1; t5=t2; t6=t3; t7=C_slot(t5,C_fix(2)); t8=C_slot(t7,C_fix(3)); /* g51525153 */ t9=t8;{ C_word av2[4]; av2[0]=t9; av2[1]=t4; av2[2]=t5; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}}} /* k23800 in outstr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_23802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_23802,2,av);} a=C_alloc(12); t2=C_fixnum_plus(t1,((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23808,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_greaterp(t3,((C_word*)t0)[4]))){ t5=C_fixnum_difference(((C_word*)t0)[4],t1); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23820,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_greaterp(t5,C_fix(0)))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23843,a[2]=((C_word*)t0)[5],a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:4442: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[396]+1); av2[1]=t7; av2[2]=((C_word*)t0)[6]; av2[3]=C_fix(0); av2[4]=t5; tp(5,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_23820(2,av2);}}} else{ t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=C_slot(t5,C_fix(2)); t8=C_slot(t7,C_fix(3)); /* g51525153 */ t9=t8;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t9; av2[1]=t4; av2[2]=t5; av2[3]=t6; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}}} /* k23806 in k23800 in outstr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_23808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23808,2,av);} /* library.scm:4446: current-print-length */ t2=C_retrieve2(lf[868],C_text("current-print-length"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k23818 in k23800 in outstr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_23820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_23820,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23823,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[3]; t4=C_slot(t3,C_fix(2)); t5=C_slot(t4,C_fix(3)); /* g51525153 */ t6=t5;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=t3; av2[3]=lf[871]; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* k23821 in k23818 in k23800 in outstr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_23823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_23823,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23826,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4444: ##sys#print-exit */ t3=C_retrieve2(lf[870],C_text("##sys#print-exit"));{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k23824 in k23821 in k23818 in k23800 in outstr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_23826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23826,2,av);} t2=*((C_word*)lf[244]+1); /* library.scm:4441: g5145 */ t3=t1;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[244]+1); ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k23841 in k23800 in outstr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_23843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23843,2,av);} t2=((C_word*)t0)[2]; t3=C_slot(t2,C_fix(2)); t4=C_slot(t3,C_fix(3)); /* g51525153 */ t5=t4;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=t1; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} /* outchr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_23864(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_23864,4,t0,t1,t2,t3);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23868,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[2])){ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23881,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t2,a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* library.scm:4454: current-print-length */ t6=C_retrieve2(lf[868],C_text("current-print-length"));{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_slot(t2,C_fix(2)); t6=C_slot(t5,C_fix(2)); /* g51615162 */ t7=t6;{ C_word av2[4]; av2[0]=t7; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* k23866 in outchr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_23868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23868,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_slot(t2,C_fix(2)); /* g51615162 */ t4=t3;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} /* k23879 in outchr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_23881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_23881,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23884,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=C_fixnum_plus(t2,C_fix(1)); /* library.scm:4455: current-print-length */ t5=C_retrieve2(lf[868],C_text("current-print-length"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k23882 in k23879 in outchr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_23884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_23884,2,av);} a=C_alloc(3); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],((C_word*)t0)[3]))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23893,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); t3=((C_word*)t0)[5]; t4=C_slot(t3,C_fix(2)); t5=C_slot(t4,C_fix(3)); /* g51525153 */ t6=t5;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=t3; av2[3]=lf[872]; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} else{ t2=C_slot(((C_word*)t0)[5],C_fix(2)); t3=C_slot(t2,C_fix(2)); /* g51615162 */ t4=t3;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[7]; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} /* k23891 in k23882 in k23879 in outchr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_23893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_23893,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23896,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4458: ##sys#print-exit */ t3=C_retrieve2(lf[870],C_text("##sys#print-exit"));{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k23894 in k23891 in k23882 in k23879 in outchr in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_23896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23896,2,av);} t2=*((C_word*)lf[244]+1); /* library.scm:4456: g5157 */ t3=t1;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[244]+1); ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* outsym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_23924(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_23924,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23928,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* library.scm:4467: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[631]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[631]+1); av2[1]=t4; av2[2]=t3; tp(3,av2);}} /* k23926 in outsym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_23928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_23928,2,av);} a=C_alloc(7); t2=t1; t3=C_i_not(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23937,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t3)){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=t3; f_23937(2,av2);}} else{ /* library.scm:4468: sym-is-readable? */ t5=((C_word*)((C_word*)t0)[7])[1]; f_24037(t5,t4,t2);}} /* k23935 in k23926 in outsym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_23937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_23937,2,av);} if(C_truep(t1)){ /* library.scm:4469: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} else{ /* library.scm:4470: outreadablesym */ t2=((C_word*)((C_word*)t0)[6])[1]; f_23948(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}} /* outreadablesym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_23948(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_23948,4,t0,t1,t2,t3);} a=C_alloc(8); t4=C_block_size(t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23955,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* library.scm:4474: outchr */ t7=((C_word*)((C_word*)t0)[2])[1]; f_23864(t7,t6,t2,C_make_character(124));} /* k23953 in outreadablesym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_23955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_23955,2,av);} a=C_alloc(11); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23960,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,a[7]=((C_word*)t0)[6],a[8]=((C_word)li709),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_23960(t5,((C_word*)t0)[7],C_fix(0));} /* loop in k23953 in outreadablesym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_23960(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_23960,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ /* library.scm:4477: outchr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_23864(t3,t1,((C_word*)t0)[4],C_make_character(124));} else{ t3=C_subchar(((C_word*)t0)[5],t2); t4=C_i_char_lessp(t3,C_make_character(32)); t5=(C_truep(t4)?t4:C_u_i_char_greaterp(t3,C_make_character(126))); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23982,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* library.scm:4480: outstr */ t7=((C_word*)((C_word*)t0)[7])[1]; f_23792(t7,t6,((C_word*)t0)[4],lf[873]);} else{ t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24011,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t3,tmp=(C_word)a,a+=8,tmp); t7=C_eqp(t3,C_make_character(124)); if(C_truep(t7)){ if(C_truep(t7)){ /* library.scm:4486: outchr */ t8=((C_word*)((C_word*)t0)[3])[1]; f_23864(t8,t6,((C_word*)t0)[4],C_make_character(92));} else{ t8=t6;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_24011(2,av2);}}} else{ t8=C_eqp(t3,C_make_character(92)); if(C_truep(t8)){ /* library.scm:4486: outchr */ t9=((C_word*)((C_word*)t0)[3])[1]; f_23864(t9,t6,((C_word*)t0)[4],C_make_character(92));} else{ t9=t6;{ C_word av2[2]; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_24011(2,av2);}}}}}} /* k23980 in loop in k23953 in outreadablesym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_23982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_23982,2,av);} a=C_alloc(8); t2=C_fix(C_character_code(((C_word*)t0)[2])); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23988,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t3,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_fixnum_lessp(t3,C_fix(16)))){ /* library.scm:4482: outchr */ t5=((C_word*)((C_word*)t0)[8])[1]; f_23864(t5,t4,((C_word*)t0)[7],C_make_character(48));} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_23988(2,av2);}}} /* k23986 in k23980 in loop in k23953 in outreadablesym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_23988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_23988,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23991,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24002,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* library.scm:4483: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=C_fix(16); tp(4,av2);}} /* k23989 in k23986 in k23980 in loop in k23953 in outreadablesym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_23991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_23991,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:4484: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_23960(t3,((C_word*)t0)[4],t2);} /* k24000 in k23986 in k23980 in loop in k23953 in outreadablesym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_24002(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24002,2,av);} /* library.scm:4483: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k24009 in loop in k23953 in outreadablesym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_24011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_24011,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24014,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4487: outchr */ t3=((C_word*)((C_word*)t0)[5])[1]; f_23864(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7]);} /* k24012 in k24009 in loop in k23953 in outreadablesym in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_24014(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24014,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* library.scm:4488: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_23960(t3,((C_word*)t0)[4],t2);} /* sym-is-readable? in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_24037(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_24037,3,t0,t1,t2);} a=C_alloc(9); t3=C_block_size(t2); t4=t3; switch(t4){ case C_fix(0): t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} case C_fix(1): t5=C_subchar(t2,C_fix(0)); t6=C_eqp(C_make_character(35),t5); t7=(C_truep(t6)?t6:C_eqp(C_make_character(46),t5)); if(C_truep(t7)){ t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_fix(C_character_code(t5)); t9=C_fixnum_less_or_equal_p(t8,C_fix(32)); t10=(C_truep(t9)?t9:C_i_memq(t5,lf[874])); if(C_truep(t10)){ t11=t1;{ C_word av2[2]; av2[0]=t11; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t11=C_u_i_char_numericp(t5); t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=(C_truep(t11)?C_SCHEME_FALSE:C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} default: t5=C_fixnum_difference(t4,C_fix(1)); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24086,a[2]=t2,a[3]=t4,a[4]=t7,a[5]=((C_word*)t0)[2],a[6]=((C_word)li711),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_24086(t9,t1,t5);}} /* loop in sym-is-readable? in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_fcall f_24086(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_24086,3,t0,t1,t2);} a=C_alloc(7); t3=C_eqp(t2,C_fix(0)); if(C_truep(t3)){ t4=C_subchar(((C_word*)t0)[2],C_fix(0)); t5=C_u_i_char_numericp(t4); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24102,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(t5)){ t7=t6; f_24102(t7,t5);} else{ t7=C_eqp(t4,C_make_character(43)); if(C_truep(t7)){ t8=t6; f_24102(t8,t7);} else{ t8=C_eqp(t4,C_make_character(46)); t9=t6; f_24102(t9,(C_truep(t8)?t8:C_eqp(t4,C_make_character(45))));}}} else{ t4=C_subchar(((C_word*)t0)[2],t2); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24179,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[5])){ t6=t5; f_24179(t6,((C_word*)t0)[5]);} else{ t6=C_u_i_char_upper_casep(t4); t7=t5; f_24179(t7,C_i_not(t6));}}} /* k24100 in loop in sym-is-readable? in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_24102(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_24102,2,t0,t1);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24109,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4507: ##sys#string->number */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[620]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[620]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],C_make_character(58)); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24121,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t4=C_eqp(((C_word*)t0)[4],C_make_character(35)); if(C_truep(t4)){ if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],C_fix(2)))){ t5=C_subchar(((C_word*)t0)[3],C_fix(1)); t6=C_eqp(t5,C_make_character(35)); if(C_truep(t6)){ t7=C_subchar(((C_word*)t0)[3],C_fix(2)); t8=C_eqp(t7,C_make_character(35)); t9=C_i_not(t8); t10=t3; f_24121(t10,C_i_not(t9));} else{ t7=t3; f_24121(t7,C_SCHEME_TRUE);}} else{ t5=t3; f_24121(t5,C_SCHEME_TRUE);}} else{ t5=t3; f_24121(t5,C_SCHEME_FALSE);}}}} /* k24107 in k24100 in loop in sym-is-readable? in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_24109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24109,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k24119 in k24100 in loop in sym-is-readable? in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_24121(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_24121,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_i_member(((C_word*)t0)[3],lf[875]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fix(C_character_code(((C_word*)t0)[4])); t3=C_fixnum_less_or_equal_p(t2,C_fix(32)); t4=(C_truep(t3)?t3:C_i_memq(((C_word*)t0)[4],lf[874])); t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=(C_truep(t4)?C_SCHEME_FALSE:C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k24177 in loop in sym-is-readable? in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_24179(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_24179,2,t0,t1);} if(C_truep(t1)){ t2=C_fix(C_character_code(((C_word*)t0)[2])); t3=C_fixnum_less_or_equal_p(t2,C_fix(32)); t4=(C_truep(t3)?t3:C_i_memq(((C_word*)t0)[2],lf[874])); if(C_truep(C_i_not(t4))){ t5=C_eqp(((C_word*)t0)[2],C_make_character(58)); t6=C_i_not(t5); if(C_truep(t6)){ if(C_truep(t6)){ t7=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); /* library.scm:4522: loop */ t8=((C_word*)((C_word*)t0)[4])[1]; f_24086(t8,((C_word*)t0)[5],t7);} else{ t7=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t7=C_fixnum_difference(((C_word*)t0)[6],C_fix(1)); if(C_truep(C_fixnum_lessp(((C_word*)t0)[3],t7))){ t8=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); /* library.scm:4522: loop */ t9=((C_word*)((C_word*)t0)[4])[1]; f_24086(t9,((C_word*)t0)[5],t8);} else{ t8=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} else{ t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t2=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k24224 in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_24226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24226,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[244]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_24231(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_24231,3,t0,t1,t2);} a=C_alloc(9); switch(t2){ case C_SCHEME_END_OF_LIST: /* library.scm:4525: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23792(t3,t1,((C_word*)t0)[3],lf[876]); case C_SCHEME_TRUE: /* library.scm:4526: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23792(t3,t1,((C_word*)t0)[3],lf[877]); case C_SCHEME_FALSE: /* library.scm:4527: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23792(t3,t1,((C_word*)t0)[3],lf[878]); default: if(C_truep(C_eofp(t2))){ /* library.scm:4528: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23792(t3,t1,((C_word*)t0)[3],lf[879]);} else{ if(C_truep(C_undefinedp(t2))){ /* library.scm:4529: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23792(t3,t1,((C_word*)t0)[3],lf[880]);} else{ if(C_truep(C_charp(t2))){ if(C_truep(((C_word*)t0)[4])){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24280,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:4532: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_23792(t4,t3,((C_word*)t0)[3],lf[881]);} else{ /* library.scm:4541: outchr */ t3=((C_word*)((C_word*)t0)[5])[1]; f_23864(t3,t1,((C_word*)t0)[3],t2);}} else{ if(C_truep(C_fixnump(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24339,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:4542: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} else{ if(C_truep(C_unboundvaluep(t2))){ /* library.scm:4543: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23792(t3,t1,((C_word*)t0)[3],lf[882]);} else{ t3=C_blockp(t2); if(C_truep(C_i_not(t3))){ /* library.scm:4544: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_23792(t4,t1,((C_word*)t0)[3],lf[883]);} else{ if(C_truep(C_forwardedp(t2))){ /* library.scm:4545: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_23792(t4,t1,((C_word*)t0)[3],lf[884]);} else{ if(C_truep(C_i_keywordp(t2))){ t4=C_i_not(((C_word*)t0)[4]); t5=(C_truep(t4)?((C_word*)t0)[6]:C_SCHEME_FALSE); t6=C_eqp(t5,lf[827]); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24375,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* library.scm:4550: outchr */ t8=((C_word*)((C_word*)t0)[5])[1]; f_23864(t8,t7,((C_word*)t0)[3],C_make_character(58));} else{ t7=C_eqp(t5,lf[810]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24387,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:4553: outsym */ t9=((C_word*)((C_word*)t0)[7])[1]; f_23924(t9,t8,((C_word*)t0)[3],t2);} else{ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24393,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* library.scm:4556: outstr */ t9=((C_word*)((C_word*)t0)[2])[1]; f_23792(t9,t8,((C_word*)t0)[3],lf[885]);}}} else{ if(C_truep(C_i_symbolp(t2))){ /* library.scm:4558: outsym */ t4=((C_word*)((C_word*)t0)[7])[1]; f_23924(t4,t1,((C_word*)t0)[3],t2);} else{ t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24415,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* library.scm:4559: ##sys#number? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[496]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[496]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}}}}}}}}}}}} /* k24278 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_24280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_24280,2,av);} a=C_alloc(8); t2=C_fix(C_character_code(((C_word*)t0)[2])); t3=t2; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24286,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* library.scm:4534: chicken.base#char-name */ t5=*((C_word*)lf[199]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k24284 in k24278 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_24286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_24286,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li713),tmp=(C_word)a,a+=5,tmp); /* library.scm:4534: g5259 */ t3=t2; f_24290(t3,((C_word*)t0)[4],t1);} else{ t2=C_fixnum_lessp(((C_word*)t0)[5],C_fix(32)); t3=(C_truep(t2)?t2:C_fixnum_greaterp(((C_word*)t0)[5],C_fix(255))); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24313,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:4538: outchr */ t5=((C_word*)((C_word*)t0)[6])[1]; f_23864(t5,t4,((C_word*)t0)[3],C_make_character(120));} else{ /* library.scm:4540: outchr */ t4=((C_word*)((C_word*)t0)[6])[1]; f_23864(t4,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[7]);}}} /* g5259 in k24284 in k24278 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_24290(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_24290,3,t0,t1,t2);} t3=C_slot(t2,C_fix(1)); /* library.scm:4536: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_23792(t4,t1,((C_word*)t0)[3],t3);} /* k24311 in k24284 in k24278 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_24313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_24313,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24320,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4539: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(16); tp(4,av2);}} /* k24318 in k24311 in k24284 in k24278 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_24320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24320,2,av);} /* library.scm:4539: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k24337 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_24339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24339,2,av);} /* library.scm:4542: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k24373 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_24375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24375,2,av);} /* library.scm:4551: outsym */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23924(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k24385 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_24387(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24387,2,av);} /* library.scm:4554: outchr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23864(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(58));} /* k24391 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_24393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24393,2,av);} /* library.scm:4557: outsym */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23924(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_24415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_24415,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24422,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4559: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ if(C_truep(C_anypointerp(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24432,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4560: ##sys#pointer->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[886]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[886]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ if(C_truep(C_stringp(((C_word*)t0)[5]))){ if(C_truep(((C_word*)t0)[6])){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24441,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* library.scm:4563: outchr */ t3=((C_word*)((C_word*)t0)[7])[1]; f_23864(t3,t2,((C_word*)t0)[4],C_make_character(34));} else{ /* library.scm:4589: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}} else{ if(C_truep(C_pairp(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24614,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); /* library.scm:4591: outchr */ t3=((C_word*)((C_word*)t0)[7])[1]; f_23864(t3,t2,((C_word*)t0)[4],C_make_character(40));} else{ if(C_truep(C_bytevectorp(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24687,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* library.scm:4603: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23792(t3,t2,((C_word*)t0)[4],lf[890]);} else{ if(C_truep(C_structurep(((C_word*)t0)[5]))){ /* library.scm:4612: ##sys#user-print-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[891]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[891]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} else{ if(C_truep(C_closurep(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24747,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4613: ##sys#procedure->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[892]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[892]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ if(C_truep(C_locativep(((C_word*)t0)[5]))){ /* library.scm:4614: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],lf[893]);} else{ if(C_truep(C_lambdainfop(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24759,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:4616: outstr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23792(t3,t2,((C_word*)t0)[4],lf[894]);} else{ if(C_truep(C_portp(((C_word*)t0)[5]))){ t2=C_slot(((C_word*)t0)[5],C_fix(1)); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24778,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); switch(t2){ case C_fix(1): /* library.scm:4621: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_23792(t4,t3,((C_word*)t0)[4],lf[896]); case C_fix(2): /* library.scm:4622: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_23792(t4,t3,((C_word*)t0)[4],lf[897]); default: /* library.scm:4623: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_23792(t4,t3,((C_word*)t0)[4],lf[898]);}} else{ if(C_truep(C_vectorp(((C_word*)t0)[5]))){ t2=C_block_size(((C_word*)t0)[5]); t3=C_eqp(C_fix(0),t2); if(C_truep(t3)){ /* library.scm:4629: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_23792(t4,((C_word*)t0)[3],((C_word*)t0)[4],lf[899]);} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24825,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); /* library.scm:4631: outstr */ t5=((C_word*)((C_word*)t0)[2])[1]; f_23792(t5,t4,((C_word*)t0)[4],lf[900]);}} else{ /* library.scm:4639: ##sys#error */ t2=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[901]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}}}}}}}}}}} /* k24420 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_24422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24422,2,av);} /* library.scm:4559: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k24430 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_24432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24432,2,av);} /* library.scm:4560: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k24439 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_24441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_24441,2,av);} a=C_alloc(10); t2=C_block_size(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24447,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=((C_word)li714),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_24447(t6,((C_word*)t0)[6],C_fix(0),t2);} /* doloop5280 in k24439 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_24447(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_24447,4,t0,t1,t2,t3);} a=C_alloc(13); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ /* library.scm:4567: outchr */ t5=((C_word*)((C_word*)t0)[2])[1]; f_23864(t5,t1,((C_word*)t0)[3],C_make_character(34));} else{ t5=C_subbyte(((C_word*)t0)[4],t2); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24460,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=t1,tmp=(C_word)a,a+=6,tmp); switch(t5){ case C_fix(34): /* library.scm:4570: outstr */ t7=((C_word*)((C_word*)t0)[6])[1]; f_23792(t7,t6,((C_word*)t0)[3],lf[887]); case C_fix(92): /* library.scm:4571: outstr */ t7=((C_word*)((C_word*)t0)[6])[1]; f_23792(t7,t6,((C_word*)t0)[3],lf[888]); default: t7=C_fixnum_lessp(t5,C_fix(32)); t8=(C_truep(t7)?t7:C_eqp(t5,C_fix(127))); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24498,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* library.scm:4575: outchr */ t10=((C_word*)((C_word*)t0)[2])[1]; f_23864(t10,t9,((C_word*)t0)[3],C_make_character(92));} else{ t9=C_fix_to_char(t5); /* library.scm:4588: outchr */ t10=((C_word*)((C_word*)t0)[2])[1]; f_23864(t10,t6,((C_word*)t0)[3],t9);}}}} /* k24458 in doloop5280 in k24439 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_24460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24460,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_24447(t4,((C_word*)t0)[5],t2,t3);} /* k24496 in doloop5280 in k24439 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_24498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_24498,2,av);} a=C_alloc(7); switch(((C_word*)t0)[2]){ case C_fix(7): /* library.scm:4577: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_23864(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(97)); case C_fix(8): /* library.scm:4578: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_23864(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(98)); case C_fix(9): /* library.scm:4579: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_23864(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(116)); case C_fix(10): /* library.scm:4580: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_23864(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(110)); case C_fix(11): /* library.scm:4581: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_23864(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(118)); case C_fix(12): /* library.scm:4582: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_23864(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(102)); case C_fix(13): /* library.scm:4583: outchr */ t2=((C_word*)((C_word*)t0)[3])[1]; f_23864(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(114)); default: t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24564,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* library.scm:4585: outchr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_23864(t3,t2,((C_word*)t0)[5],C_make_character(120));}} /* k24562 in k24496 in doloop5280 in k24439 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_24564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_24564,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24567,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_lessp(((C_word*)t0)[5],C_fix(16)))){ /* library.scm:4586: outchr */ t3=((C_word*)((C_word*)t0)[6])[1]; f_23864(t3,t2,((C_word*)t0)[4],C_make_character(48));} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_24567(2,av2);}}} /* k24565 in k24562 in k24496 in doloop5280 in k24439 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_24567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_24567,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24574,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4587: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(16); tp(4,av2);}} /* k24572 in k24565 in k24562 in k24496 in doloop5280 in k24439 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_24574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24574,2,av);} /* library.scm:4587: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k24612 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_24614(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_24614,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24617,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_slot(((C_word*)t0)[2],C_fix(0)); /* library.scm:4592: out */ t4=((C_word*)((C_word*)t0)[5])[1]; f_24231(t4,t2,t3);} /* k24615 in k24612 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_24617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_24617,2,av);} a=C_alloc(10); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24626,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t4,a[7]=((C_word)li715),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_24626(t6,((C_word*)t0)[7],t2);} /* doloop5310 in k24615 in k24612 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_24626(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_24626,3,t0,t1,t2);} a=C_alloc(9); t3=C_blockp(t2); t4=C_i_not(t3); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24636,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); if(C_truep(t4)){ t6=t5; f_24636(t6,t4);} else{ t6=C_pairp(t2); t7=t5; f_24636(t7,C_i_not(t6));}} /* k24634 in doloop5310 in k24615 in k24612 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_fcall f_24636(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_24636,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24639,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_eqp(((C_word*)t0)[5],C_SCHEME_END_OF_LIST); if(C_truep(C_i_not(t3))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24648,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* library.scm:4597: outstr */ t5=((C_word*)((C_word*)t0)[7])[1]; f_23792(t5,t4,((C_word*)t0)[4],lf[889]);} else{ /* library.scm:4599: outchr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_23864(t4,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(41));}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24658,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* library.scm:4600: outchr */ t3=((C_word*)((C_word*)t0)[2])[1]; f_23864(t3,t2,((C_word*)t0)[4],C_make_character(32));}} /* k24637 in k24634 in doloop5310 in k24615 in k24612 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_24639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24639,2,av);} /* library.scm:4599: outchr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23864(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(41));} /* k24646 in k24634 in doloop5310 in k24615 in k24612 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_24648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24648,2,av);} /* library.scm:4598: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_24231(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k24656 in k24634 in doloop5310 in k24615 in k24612 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_24658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_24658,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24661,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_slot(((C_word*)t0)[2],C_fix(0)); /* library.scm:4601: out */ t4=((C_word*)((C_word*)t0)[5])[1]; f_24231(t4,t2,t3);} /* k24659 in k24656 in k24634 in doloop5310 in k24615 in k24612 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_24661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24661,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_24626(t3,((C_word*)t0)[4],t2);} /* k24685 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_24687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_24687,2,av);} a=C_alloc(16); t2=C_block_size(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24693,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24698,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[3],a[8]=((C_word)li716),tmp=(C_word)a,a+=9,tmp)); t8=((C_word*)t6)[1]; f_24698(t8,t4,C_fix(0));} /* k24691 in k24685 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_24693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24693,2,av);} /* library.scm:4611: outchr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23864(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(125));} /* doloop5324 in k24685 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_24698(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_24698,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_subbyte(((C_word*)t0)[3],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24711,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t4,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_fixnum_lessp(t4,C_fix(16)))){ /* library.scm:4609: outchr */ t6=((C_word*)((C_word*)t0)[7])[1]; f_23864(t6,t5,((C_word*)t0)[6],C_make_character(48));} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_24711(2,av2);}}}} /* k24709 in doloop5324 in k24685 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_24711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_24711,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24714,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24725,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* library.scm:4610: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=C_fix(16); tp(4,av2);}} /* k24712 in k24709 in doloop5324 in k24685 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_24714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_24714,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_24698(t3,((C_word*)t0)[4],t2);} /* k24723 in k24709 in doloop5324 in k24685 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_24725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24725,2,av);} /* library.scm:4610: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k24745 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_24747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24747,2,av);} /* library.scm:4613: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k24757 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_24759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_24759,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24762,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24769,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:4617: ##sys#lambda-info->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[753]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[753]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; tp(3,av2);}} /* k24760 in k24757 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_24762(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24762,2,av);} /* library.scm:4618: outchr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23864(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(62));} /* k24767 in k24757 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_24769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24769,2,av);} /* library.scm:4617: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k24776 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_24778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_24778,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24781,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_slot(((C_word*)t0)[5],C_fix(3)); /* library.scm:4624: outstr */ t4=((C_word*)((C_word*)t0)[2])[1]; f_23792(t4,t2,((C_word*)t0)[4],t3);} /* k24779 in k24776 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_24781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24781,2,av);} /* library.scm:4625: outstr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_23792(t2,((C_word*)t0)[3],((C_word*)t0)[4],lf[895]);} /* k24823 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_24825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_24825,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24828,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t3=C_slot(((C_word*)t0)[5],C_fix(0)); /* library.scm:4632: out */ t4=((C_word*)((C_word*)t0)[6])[1]; f_24231(t4,t2,t3);} /* k24826 in k24823 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_24828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_24828,2,av);} a=C_alloc(10); t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24837,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li717),tmp=(C_word)a,a+=8,tmp)); t6=((C_word*)t4)[1]; f_24837(t6,((C_word*)t0)[7],C_fix(1),t2);} /* doloop5348 in k24826 in k24823 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_24837(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_24837,4,t0,t1,t2,t3);} a=C_alloc(8); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ /* library.scm:4636: outchr */ t5=((C_word*)((C_word*)t0)[2])[1]; f_23864(t5,t1,((C_word*)t0)[3],C_make_character(41));} else{ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24850,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* library.scm:4637: outchr */ t6=((C_word*)((C_word*)t0)[2])[1]; f_23864(t6,t5,((C_word*)t0)[3],C_make_character(32));}} /* k24848 in doloop5348 in k24826 in k24823 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_24850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_24850,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24853,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_slot(((C_word*)t0)[6],((C_word*)t0)[2]); /* library.scm:4638: out */ t4=((C_word*)((C_word*)t0)[7])[1]; f_24231(t4,t2,t3);} /* k24851 in k24848 in doloop5348 in k24826 in k24823 in k24413 in out in k23788 in k23785 in k23782 in ##sys#print in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_24853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24853,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_24837(t4,((C_word*)t0)[5],t2,t3);} /* ##sys#procedure->string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_24878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_24878,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24882,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4645: ##sys#lambda-info */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[752]); C_word *av2=av; av2[0]=*((C_word*)lf[752]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k24880 in ##sys#procedure->string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_24882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_24882,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24892,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4647: ##sys#lambda-info->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[753]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[753]+1); av2[1]=t2; av2[2]=t1; tp(3,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[904]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k24890 in k24880 in ##sys#procedure->string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_24892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_24892,2,av);} /* library.scm:4647: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[902]; av2[3]=t1; av2[4]=lf[903]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* ##sys#register-record-printer in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_24895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_24895,4,av);} a=C_alloc(6); t4=C_i_assq(t2,C_fast_retrieve(lf[905])); if(C_truep(t4)){ t5=C_i_setslot(t4,C_fix(1),t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_a_i_cons(&a,2,t2,t3); t6=C_a_i_cons(&a,2,t5,C_fast_retrieve(lf[905])); t7=C_mutate((C_word*)lf[905]+1 /* (set! ##sys#record-printers ...) */,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_24915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_24915,5,av);} a=C_alloc(10); t5=C_slot(t2,C_fix(0)); t6=t5; t7=C_i_assq(t6,C_fast_retrieve(lf[905])); t8=t7; if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24928,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24933,a[2]=t4,a[3]=t6,a[4]=t8,a[5]=t2,a[6]=((C_word)li728),tmp=(C_word)a,a+=7,tmp); /* library.scm:4662: scheme#call-with-current-continuation */ t11=*((C_word*)lf[132]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25018,a[2]=t1,a[3]=t4,a[4]=t6,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* library.scm:4674: ##sys#print */ t10=*((C_word*)lf[865]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t9; av2[2]=lf[916]; av2[3]=C_SCHEME_FALSE; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} /* k24926 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_24928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_24928,2,av);} /* library.scm:4662: g5389 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_24933(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_24933,3,av);} a=C_alloc(13); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24939,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li723),tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24990,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word)li727),tmp=(C_word)a,a+=7,tmp); /* library.scm:4662: chicken.condition#with-exception-handler */ t5=C_fast_retrieve(lf[912]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a24938 in a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_24939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_24939,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24945,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li722),tmp=(C_word)a,a+=6,tmp); /* library.scm:4662: k5386 */ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a24944 in a24938 in a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_24945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_24945,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24949,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:4664: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[911]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k24947 in a24944 in a24938 in a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_24949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_24949,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24988,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:4665: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[631]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[631]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k24950 in k24947 in a24944 in a24938 in a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_24952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_24952,2,av);} a=C_alloc(5); if(C_truep(C_i_structurep(((C_word*)t0)[2],lf[907]))){ t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_i_member(lf[908],t2); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24967,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* library.scm:4668: ##sys#print */ t6=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[909]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ /* library.scm:4671: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[910]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k24965 in k24950 in k24947 in a24944 in a24938 in a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_24967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_24967,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24970,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[4]); /* library.scm:4669: ##sys#print */ t4=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k24968 in k24965 in k24950 in k24947 in a24944 in a24938 in a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_24970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24970,2,av);} /* library.scm:4670: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[861]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(62); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k24986 in k24947 in a24944 in a24938 in a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_24988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_24988,2,av);} /* library.scm:4665: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a24989 in a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_24990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_24990,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24996,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li724),tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25005,a[2]=((C_word*)t0)[5],a[3]=((C_word)li726),tmp=(C_word)a,a+=4,tmp); /* library.scm:4662: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a24995 in a24989 in a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_24996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_24996,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:4662: g5399 */ t3=t2;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* a25004 in a24989 in a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_25005,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25011,a[2]=t2,a[3]=((C_word)li725),tmp=(C_word)a,a+=4,tmp); /* library.scm:4662: k5386 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a25010 in a25004 in a24989 in a24932 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_25011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_25011,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k25016 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_25018,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25064,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4675: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[631]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[631]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k25019 in k25016 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_25021,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_eqp(((C_word*)t0)[4],lf[907]); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25033,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:4678: ##sys#print */ t5=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[913]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=C_eqp(((C_word*)t0)[4],lf[914]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25049,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:4681: ##sys#print */ t6=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[915]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* library.scm:4683: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[861]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(62); av2[3]=((C_word*)t0)[3]; tp(4,av2);}}}} /* k25022 in k25019 in k25016 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25024,2,av);} /* library.scm:4683: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[861]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(62); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k25031 in k25019 in k25016 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25033,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:4679: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k25047 in k25019 in k25016 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25049,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(6)); /* library.scm:4682: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k25062 in k25016 in ##sys#user-print-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25064,2,av);} /* library.scm:4675: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_25066,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25072,a[2]=t2,a[3]=t3,a[4]=((C_word)li733),tmp=(C_word)a,a+=5,tmp); /* library.scm:4688: call-with-current-continuation */ t5=*((C_word*)lf[132]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){ C_save_and_reclaim((void *)f_25072,3,av);} a=C_alloc(31); t3=C_fast_retrieve(lf[869]); t4=C_retrieve2(lf[870],C_text("##sys#print-exit")); t5=C_retrieve2(lf[868],C_text("current-print-length")); t6=((C_word*)t0)[2]; t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=t2; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_fix(0); t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_TRUE; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25078,a[2]=t8,a[3]=t10,a[4]=t12,a[5]=t14,a[6]=t5,a[7]=t4,a[8]=t3,a[9]=((C_word)li730),tmp=(C_word)a,a+=10,tmp); t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25121,a[2]=((C_word*)t0)[3],a[3]=((C_word)li731),tmp=(C_word)a,a+=4,tmp); t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25127,a[2]=t8,a[3]=t10,a[4]=t12,a[5]=t5,a[6]=t4,a[7]=t3,a[8]=((C_word)li732),tmp=(C_word)a,a+=9,tmp); /* library.scm:4690: ##sys#dynamic-wind */ t18=*((C_word*)lf[690]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t18; av2[1]=t1; av2[2]=t15; av2[3]=t16; av2[4]=t17; ((C_proc)(void*)(*((C_word*)t18+1)))(5,av2);}} /* a25077 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_25078,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25082,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* library.scm:4690: ##sys#print-length-limit5419 */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_25082(2,av2);}}} /* k25080 in a25077 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_25082,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25085,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,tmp=(C_word)a,a+=11,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* library.scm:4690: ##sys#print-exit5420 */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_25085(2,av2);}}} /* k25083 in k25080 in a25077 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_25085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_25085,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25088,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ /* library.scm:4690: current-print-length54215422 */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[4])[1]; f_25088(2,av2);}}} /* k25086 in k25083 in k25080 in a25077 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_25088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_25088,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_25092,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* library.scm:4690: ##sys#print-length-limit5419 */ t4=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k25090 in k25086 in k25083 in k25080 in a25077 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_25092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_25092,2,av);} a=C_alloc(12); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25096,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); /* library.scm:4690: ##sys#print-exit5420 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k25094 in k25090 in k25086 in k25083 in k25080 in a25077 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_25096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_25096,2,av);} a=C_alloc(11); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25100,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); /* library.scm:4690: current-print-length54215422 */ t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k25098 in k25094 in k25090 in k25086 in k25083 in k25080 in a25077 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_25100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_25100,2,av);} a=C_alloc(8); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25103,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); /* library.scm:4690: ##sys#print-length-limit5419 */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k25101 in k25098 in k25094 in k25090 in k25086 in k25083 in k25080 in a25077 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_25103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_25103,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25106,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:4690: ##sys#print-exit5420 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k25104 in k25101 in k25098 in k25094 in k25090 in k25086 in k25083 in k25080 in a25077 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_25106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_25106,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25109,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:4690: current-print-length54215422 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k25107 in k25104 in k25101 in k25098 in k25094 in k25090 in k25086 in k25083 in k25080 in a25077 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_25109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25109,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a25120 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25121,2,av);} /* library.scm:4693: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a25126 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_25127,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25131,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* library.scm:4690: ##sys#print-length-limit5419 */ t3=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k25129 in a25126 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_25131,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25134,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* library.scm:4690: ##sys#print-exit5420 */ t4=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k25132 in k25129 in a25126 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_25134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_25134,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25137,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* library.scm:4690: current-print-length54215422 */ t4=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k25135 in k25132 in k25129 in a25126 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_25137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_25137,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25140,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* library.scm:4690: ##sys#print-length-limit5419 */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k25138 in k25135 in k25132 in k25129 in a25126 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_25140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_25140,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25143,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* library.scm:4690: ##sys#print-exit5420 */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k25141 in k25138 in k25135 in k25132 in k25129 in a25126 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_25143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_25143,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25146,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* library.scm:4690: current-print-length54215422 */ t3=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k25144 in k25141 in k25138 in k25135 in k25132 in k25129 in a25126 in a25071 in ##sys#with-print-length-limit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_25146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25146,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=((C_word*)t0)[8];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* check5463 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_25151,4,av);} a=C_alloc(9); t4=C_slot(t2,C_fix(10)); t5=t4; t6=C_slot(t2,C_fix(11)); t7=t6; t8=C_slot(t2,C_fix(12)); t9=t8; t10=C_fixnum_plus(t5,t3); if(C_truep(C_fixnum_greater_or_equal_p(t10,t7))){ t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25173,a[2]=t7,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t3,a[7]=t9,a[8]=t5,tmp=(C_word)a,a+=9,tmp); if(C_truep(C_fixnum_greater_or_equal_p(t10,lf[269]))){ /* library.scm:4721: ##sys#error */ t12=*((C_word*)lf[155]+1);{ C_word *av2=av; av2[0]=t12; av2[1]=t11; av2[2]=lf[919]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} else{ t12=t11;{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; f_25173(2,av2);}}} else{ t11=C_SCHEME_UNDEFINED; t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* k25171 in check5463 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_25173,2,av);} a=C_alloc(9); t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[2]); t3=C_i_fixnum_min(lf[269],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25179,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* library.scm:4723: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[377]+1); av2[1]=t5; av2[2]=t4; tp(3,av2);}} /* k25177 in k25171 in check5463 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){ C_save_and_reclaim((void *)f_25179,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25182,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* library.scm:4724: ##sys#copy-bytes */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[918]); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[918]+1); av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=t2; av2[4]=C_fix(0); av2[5]=C_fix(0); av2[6]=((C_word*)t0)[8]; tp(7,av2);}} /* k25180 in k25177 in k25171 in check5463 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25182,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(12),((C_word*)t0)[3]); t3=C_i_set_i_slot(((C_word*)t0)[2],C_fix(11),((C_word*)t0)[4]); /* library.scm:4727: check */ t4=((C_word*)((C_word*)t0)[5])[1];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[7]; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} /* ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,7)))){ C_save_and_reclaim((void *)f_25207,6,av);} a=C_alloc(11); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25210,a[2]=((C_word)li748),tmp=(C_word)a,a+=3,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25230,a[2]=t5,a[3]=t8,a[4]=t6,a[5]=((C_word)li753),tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_25230(t10,t1,t2,t4,t4,t3,lf[925]);} /* copy&append in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_fcall f_25210(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_25210,5,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=C_block_size(t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25217,a[2]=t5,a[3]=t7,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t1,tmp=(C_word)a,a+=8,tmp); t9=C_fixnum_difference(t4,t3); t10=C_fixnum_plus(t7,t9); /* library.scm:4804: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[377]+1); av2[1]=t8; av2[2]=t10; tp(3,av2);}} /* k25215 in copy&append in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25217,2,av);} t2=C_substring_copy(((C_word*)t0)[2],t1,C_fix(0),((C_word*)t0)[3],C_fix(0)); t3=C_substring_copy(((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[3]); t4=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_fcall f_25230(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,5)))){ C_save_and_reclaim_args((void *)trf_25230,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(12); t7=C_eqp(t4,t5); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25240,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:4814: copy&append */ f_25210(t8,t2,t3,t4,t6);} else{ t8=C_subchar(t2,t4); t9=C_eqp(t8,C_make_character(10)); if(C_truep(t9)){ t10=C_fixnum_plus(t4,C_fix(1)); t11=t10; t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25278,a[2]=t1,a[3]=t11,tmp=(C_word)a,a+=4,tmp); /* library.scm:4821: copy&append */ f_25210(t12,t2,t3,t4,t6);} else{ t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25284,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t3,a[7]=t6,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],a[10]=t8,a[11]=t5,tmp=(C_word)a,a+=12,tmp); t11=C_eqp(t8,C_make_character(13)); if(C_truep(t11)){ t12=C_fixnum_plus(t4,C_fix(1)); if(C_truep(C_fixnum_greaterp(t5,t12))){ t13=C_fixnum_plus(t4,C_fix(1)); t14=C_subchar(t2,t13); t15=t10; f_25284(t15,C_eqp(t14,C_make_character(10)));} else{ t13=t10; f_25284(t13,C_SCHEME_FALSE);}} else{ t12=t10; f_25284(t12,C_SCHEME_FALSE);}}}} /* k25238 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_25240,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25245,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li749),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25251,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word)li750),tmp=(C_word)a,a+=5,tmp); /* library.scm:4815: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a25244 in k25238 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_25245,2,av);} /* library.scm:4815: eos-handler */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a25250 in k25238 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_25251,5,av);} if(C_truep(t2)){ /* library.scm:4817: loop */ t5=((C_word*)((C_word*)t0)[2])[1]; f_25230(t5,t1,t2,t3,t3,t4,((C_word*)t0)[3]);} else{ /* library.scm:4818: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[3]; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}}} /* k25276 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25278,2,av);} /* library.scm:4821: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=C_SCHEME_TRUE; C_values(5,av2);}} /* k25282 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_fcall f_25284(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,5)))){ C_save_and_reclaim_args((void *)trf_25284,2,t0,t1);} a=C_alloc(12); if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25295,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:4825: copy&append */ f_25210(t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7]);} else{ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25301,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); t3=C_eqp(((C_word*)t0)[10],C_make_character(13)); if(C_truep(t3)){ t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t5=t2; f_25301(t5,C_eqp(((C_word*)t0)[11],t4));} else{ t4=t2; f_25301(t4,C_SCHEME_FALSE);}}} /* k25293 in k25282 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25295,2,av);} /* library.scm:4825: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=C_SCHEME_TRUE; C_values(5,av2);}} /* k25299 in k25282 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_fcall f_25301(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,6)))){ C_save_and_reclaim_args((void *)trf_25301,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25304,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:4828: copy&append */ f_25210(t2,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],((C_word*)t0)[9]);} else{ t2=C_eqp(((C_word*)t0)[10],C_make_character(13)); if(C_truep(t2)){ t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25364,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:4839: copy&append */ f_25210(t5,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],((C_word*)t0)[9]);} else{ t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* library.scm:4840: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_25230(t4,((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8],t3,((C_word*)t0)[11],((C_word*)t0)[9]);}}} /* k25302 in k25299 in k25282 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_25304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_25304,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25309,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li751),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25315,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word)li752),tmp=(C_word)a,a+=5,tmp); /* library.scm:4829: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a25308 in k25302 in k25299 in k25282 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_25309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_25309,2,av);} /* library.scm:4829: eos-handler */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* a25314 in k25302 in k25299 in k25282 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_25315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_25315,5,av);} a=C_alloc(7); if(C_truep(t2)){ t5=C_subchar(t2,t3); t6=C_eqp(t5,C_make_character(10)); if(C_truep(t6)){ t7=C_fixnum_plus(t3,C_fix(1)); /* library.scm:4832: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t7; av2[3]=((C_word*)t0)[2]; av2[4]=C_SCHEME_TRUE; C_values(5,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25339,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* library.scm:4835: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[413]+1); av2[1]=t7; av2[2]=((C_word*)t0)[2]; av2[3]=lf[923]; tp(4,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25347,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:4837: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[413]+1); av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=lf[924]; tp(4,av2);}}} /* k25337 in a25314 in k25302 in k25299 in k25282 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_25339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_25339,2,av);} /* library.scm:4834: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_25230(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6],t1);} /* k25345 in a25314 in k25302 in k25299 in k25282 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_25347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25347,2,av);} /* library.scm:4837: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=C_SCHEME_TRUE; C_values(5,av2);}} /* k25362 in k25299 in k25282 in loop in ##sys#scan-buffer-line in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_25364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25364,2,av);} /* library.scm:4839: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=C_SCHEME_TRUE; C_values(5,av2);}} /* chicken.base#open-input-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25404(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_25404,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[926]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25411,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:4845: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[696]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[696]+1); av2[1]=t4; av2[2]=C_fix(1); av2[3]=C_fast_retrieve(lf[922]); av2[4]=lf[927]; av2[5]=lf[928]; tp(6,av2);}} /* k25409 in chicken.base#open-input-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25411,2,av);} t2=C_block_size(((C_word*)t0)[2]); t3=C_i_set_i_slot(t1,C_fix(11),t2); t4=C_i_set_i_slot(t1,C_fix(10),C_fix(0)); t5=C_i_setslot(t1,C_fix(12),((C_word*)t0)[2]); t6=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* chicken.base#open-output-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_25423,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25427,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:4853: ##sys#make-port */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[696]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[696]+1); av2[1]=t2; av2[2]=C_fix(2); av2[3]=C_fast_retrieve(lf[922]); av2[4]=lf[929]; av2[5]=lf[928]; tp(6,av2);}} /* k25425 in chicken.base#open-output-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_25427,2,av);} a=C_alloc(4); t2=t1; t3=C_i_set_i_slot(t2,C_fix(10),C_fix(0)); t4=C_i_set_i_slot(t2,C_fix(11),C_fix(256)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25440,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:4856: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[377]+1); av2[1]=t5; av2[2]=C_fix(256); tp(3,av2);}} /* k25438 in k25425 in chicken.base#open-output-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25440,2,av);} t2=C_i_setslot(((C_word*)t0)[2],C_fix(12),t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#get-output-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_25442,3,av);} t3=t2; t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_FALSE,lf[930]); t5=C_slot(t2,C_fix(7)); t6=C_eqp(lf[928],t5); if(C_truep(C_i_not(t6))){ /* library.scm:4863: ##sys#signal-hook */ t7=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t1; av2[2]=lf[258]; av2[3]=lf[930]; av2[4]=lf[931]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} else{ t7=C_slot(t2,C_fix(12)); t8=C_slot(t2,C_fix(10)); /* library.scm:4865: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[396]+1); av2[1]=t1; av2[2]=t7; av2[3]=C_fix(0); av2[4]=t8; tp(5,av2);}}} /* ##sys#print-to-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25476(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_25476,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25480,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:4871: open-output-string */ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k25478 in ##sys#print-to-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_25480,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25481,a[2]=t2,a[3]=((C_word)li758),tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[2]; t5=C_i_check_list_2(t4,lf[685]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25491,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25496,a[2]=t8,a[3]=t3,a[4]=((C_word)li759),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_25496(t10,t6,t4);} /* g5593 in k25478 in ##sys#print-to-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_fcall f_25481(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_25481,3,t0,t1,t2);} /* library.scm:4872: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=t1; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k25489 in k25478 in ##sys#print-to-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_25491,2,av);} /* library.scm:4873: get-output-string */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* for-each-loop5592 in k25478 in ##sys#print-to-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_fcall f_25496(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_25496,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25506,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* library.scm:4872: g5593 */ t5=((C_word*)t0)[3]; f_25481(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k25504 in for-each-loop5592 in k25478 in ##sys#print-to-string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_25506,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_25496(t3,((C_word*)t0)[4],t2);} /* ##sys#pointer->string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25519(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_25519,3,av);} a=C_alloc(7); if(C_truep(C_taggedpointerp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25530,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_slot(t2,C_fix(1)); if(C_truep(C_i_pairp(t4))){ t5=C_u_i_car(t4); t6=C_a_i_list1(&a,1,t5); /* library.scm:4881: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[932]); C_word *av2=av; av2[0]=*((C_word*)lf[932]+1); av2[1]=t3; av2[2]=t6; tp(3,av2);}} else{ t5=C_a_i_list1(&a,1,t4); /* library.scm:4881: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[932]); C_word *av2=av; av2[0]=*((C_word*)lf[932]+1); av2[1]=t3; av2[2]=t5; tp(3,av2);}}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25560,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25564,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:4887: ##sys#pointer->address */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[936]); C_word *av2=av; av2[0]=*((C_word*)lf[936]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}}} /* k25528 in ##sys#pointer->string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_25530,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25534,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25538,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:4885: ##sys#pointer->address */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[936]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[936]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k25532 in k25528 in ##sys#pointer->string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_25534,2,av);} /* library.scm:4879: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[933]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[934]; av2[5]=t1; av2[6]=lf[935]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k25536 in k25528 in ##sys#pointer->string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25538,2,av);} /* library.scm:4885: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[601]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(16); tp(4,av2);}} /* k25558 in ##sys#pointer->string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25560,2,av);} /* library.scm:4887: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[937]; av2[3]=t1; av2[4]=lf[938]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k25562 in ##sys#pointer->string in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25564,2,av);} /* library.scm:4887: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[601]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(16); tp(4,av2);}} /* chicken.base#get-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_25572,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_fix(0):C_i_car(t2)); t5=t4; t6=C_i_nullp(t2); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t2)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_fast_retrieve(lf[939]):C_i_car(t7)); t10=t9; t11=C_i_nullp(t7); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t13=C_fix((C_word)C_trace_buffer_size); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25588,a[2]=t5,a[3]=t13,a[4]=t10,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t15=C_fixnum_times(C_fix(4),t13); /* library.scm:4901: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[670]+1); av2[1]=t14; av2[2]=t15; av2[3]=C_SCHEME_FALSE; tp(4,av2);}} /* k25586 in chicken.base#get-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_25588,2,av);} a=C_alloc(10); t2=t1; t3=C_fetch_trace(((C_word*)t0)[2],t2); t4=C_fixnump(t3); t5=(C_truep(t4)?t3:C_fixnum_times(C_fix(4),((C_word*)t0)[3])); t6=t5; t7=(C_truep(((C_word*)t0)[4])?C_slot(((C_word*)t0)[4],C_fix(14)):C_SCHEME_FALSE); t8=t7; t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25599,a[2]=t6,a[3]=t2,a[4]=t10,a[5]=((C_word*)t0)[4],a[6]=t8,a[7]=((C_word)li762),tmp=(C_word)a,a+=8,tmp)); t12=((C_word*)t10)[1]; f_25599(t12,((C_word*)t0)[5],C_fix(0));} /* loop in k25586 in chicken.base#get-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_fcall f_25599(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_25599,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_fixnum_plus(t2,C_fix(3)); t4=C_slot(((C_word*)t0)[3],t3); t5=C_i_not(t4); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25618,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(t5)){ t7=t6; f_25618(t7,t5);} else{ t7=C_i_not(((C_word*)t0)[5]); t8=t6; f_25618(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],t4)));}}} /* k25616 in loop in k25586 in chicken.base#get-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_fcall f_25618(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_25618,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25637,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_slot(((C_word*)t0)[3],((C_word*)t0)[2]); t4=C_a_i_bytevector(&a,1,C_fix(3)); t5=stub5615(t4,t3); /* library.scm:4896: ##sys#peek-nonnull-c-string */ t6=*((C_word*)lf[940]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t2; av2[2]=t5; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(4)); /* library.scm:4915: loop */ t3=((C_word*)((C_word*)t0)[5])[1]; f_25599(t3,((C_word*)t0)[4],t2);}} /* k25627 in k25635 in k25616 in loop in k25586 in chicken.base#get-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_25629(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_25629,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k25635 in k25616 in loop in k25586 in chicken.base#get-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_25637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_25637,2,av);} a=C_alloc(8); t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_slot(((C_word*)t0)[3],t2); t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); t5=C_slot(((C_word*)t0)[3],t4); t6=C_a_i_vector3(&a,3,t1,t3,t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25629,a[2]=((C_word*)t0)[4],a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=C_fixnum_plus(((C_word*)t0)[2],C_fix(4)); /* library.scm:4914: loop */ t10=((C_word*)((C_word*)t0)[5])[1]; f_25599(t10,t8,t9);} /* ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_25716,5,av);} a=C_alloc(5); if(C_truep(C_i_pairp(t3))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25726,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:4919: ##sys#print */ t6=*((C_word*)lf[865]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=C_SCHEME_FALSE; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_25726,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25727,a[2]=((C_word*)t0)[2],a[3]=((C_word)li765),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25793,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25798,a[2]=t6,a[3]=t2,a[4]=((C_word)li766),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_25798(t8,t4,t3);} /* g5659 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_fcall f_25727(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_25727,3,t0,t1,t2);} a=C_alloc(8); t3=C_slot(t2,C_fix(1)); t4=t3; t5=C_slot(t2,C_fix(2)); t6=t5; t7=C_i_structurep(t6,lf[942]); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25740,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t8,a[6]=t6,a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* library.scm:4925: ##sys#print */ t10=*((C_word*)lf[865]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t9; av2[2]=lf[945]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* k25738 in g5659 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_25740,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=C_slot(((C_word*)t0)[7],C_fix(0)); /* library.scm:4926: ##sys#print */ t4=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k25741 in k25738 in g5659 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_25743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_25743,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25746,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* library.scm:4927: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[944]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k25744 in k25741 in k25738 in g5659 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_25746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_25746,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25749,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25764,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ if(C_truep(((C_word*)t0)[5])){ t4=t3; f_25764(t4,C_slot(((C_word*)t0)[6],C_fix(1)));} else{ t4=C_SCHEME_UNDEFINED; t5=t3; f_25764(t5,t4);}} else{ t4=t3; f_25764(t4,C_SCHEME_FALSE);}} /* k25747 in k25744 in k25741 in k25738 in g5659 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_25749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_25749,2,av);} a=C_alloc(5); if(C_truep(((C_word*)t0)[2])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25757,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li764),tmp=(C_word)a,a+=5,tmp); /* library.scm:4937: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[917]+1); av2[1]=((C_word*)t0)[4]; av2[2]=C_fix(100); av2[3]=t2; tp(4,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a25756 in k25747 in k25744 in k25741 in k25738 in g5659 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_25757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25757,2,av);} /* library.scm:4940: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k25762 in k25744 in k25741 in k25738 in g5659 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_25764(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_25764,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:4929: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word av2[4]; av2[0]=*((C_word*)lf[861]+1); av2[1]=t2; av2[2]=C_make_character(91); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_25749(2,av2);}}} /* k25765 in k25762 in k25744 in k25741 in k25738 in g5659 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_25767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_25767,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25770,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ t3=C_slot(((C_word*)t0)[5],C_fix(1)); /* library.scm:4930: ##sys#print */ t4=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ /* library.scm:4930: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k25768 in k25765 in k25762 in k25744 in k25741 in k25738 in g5659 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_25770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25770,2,av);} /* library.scm:4935: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[943]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k25791 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25793,2,av);} /* library.scm:4942: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[946]; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* for-each-loop5658 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_fcall f_25798(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_25798,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25808,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* library.scm:4920: g5659 */ t5=((C_word*)t0)[3]; f_25727(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k25806 in for-each-loop5658 in k25724 in ##sys#really-print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_25808,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_25798(t3,((C_word*)t0)[4],t2);} /* chicken.base#print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_25821,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+7); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; t3=C_i_nullp(t2); t4=(C_truep(t3)?*((C_word*)lf[713]+1):C_i_car(t2)); t5=t4; t6=C_i_nullp(t2); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t2)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_fix(0):C_i_car(t7)); t10=t9; t11=C_i_nullp(t7); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t13=C_i_nullp(t12); t14=(C_truep(t13)?C_fast_retrieve(lf[939]):C_i_car(t12)); t15=t14; t16=C_i_nullp(t12); t17=(C_truep(t16)?C_SCHEME_END_OF_LIST:C_i_cdr(t12)); t18=C_i_nullp(t17); t19=(C_truep(t18)?lf[947]:C_i_car(t17)); t20=t19; t21=C_i_nullp(t17); t22=(C_truep(t21)?C_SCHEME_END_OF_LIST:C_i_cdr(t17)); t23=C_i_check_port_2(t5,C_fix(2),C_SCHEME_TRUE,lf[948]); t24=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25852,a[2]=t20,a[3]=t1,a[4]=t5,a[5]=t10,a[6]=t15,tmp=(C_word)a,a+=7,tmp); /* library.scm:4949: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t24; av2[2]=t10; av2[3]=lf[948]; tp(4,av2);}} /* k25850 in chicken.base#print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_25852,2,av);} a=C_alloc(5); t2=C_i_check_string_2(((C_word*)t0)[2],lf[948]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25862,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:4951: chicken.base#get-call-chain */ t4=*((C_word*)lf[186]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k25860 in k25850 in chicken.base#print-call-chain in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_25862,2,av);} /* library.scm:4951: ##sys#really-print-call-chain */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[941]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[941]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=((C_word*)t0)[4]; tp(5,av2);}} /* ##sys#user-interrupt-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_25912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_25912,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25915,a[2]=((C_word)li769),tmp=(C_word)a,a+=3,tmp); t3=C_eqp(C_fast_retrieve(lf[939]),C_fast_retrieve(lf[951])); if(C_truep(t3)){ t4=t1; /* library.scm:4957: ##sys#signal-hook */ t5=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[950]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_setslot(C_fast_retrieve(lf[951]),C_fix(1),t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* break in ##sys#user-interrupt-hook in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_25915,2,av);} /* library.scm:4957: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[950]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* cleanup-before-exit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_fcall f_25934(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_25934,1,t1);} a=C_alloc(6); t2=lf[952] /* exit-in-progress */ =C_SCHEME_TRUE;; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25939,a[2]=t1,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_dump_heap_on_exitp())){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26010,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:4972: ##sys#print */ t5=*((C_word*)lf[865]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[958]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t4=t3;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_25939(2,av2);}}} /* k25937 in cleanup-before-exit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_25939(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_25939,2,av);} a=C_alloc(9); t2=(C_truep(C_i_profilingp())?C_i_dump_statistical_profile():C_SCHEME_UNDEFINED); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25945,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25962,a[2]=t5,a[3]=((C_word)li772),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_25962(t7,t3);} /* k25943 in k25937 in cleanup-before-exit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_25945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_25945,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25948,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_debug_modep())){ /* library.scm:4983: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[956]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_25948(2,av2);}}} /* k25946 in k25943 in k25937 in cleanup-before-exit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25948(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_25948,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25954,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:4984: chicken.gc#force-finalizers */ t3=C_fast_retrieve(lf[955]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k25952 in k25946 in k25943 in k25937 in cleanup-before-exit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_25954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25954,2,av);} if(C_truep(t1)){ /* library.scm:4985: ##sys#force-finalizers */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[954]); C_word *av2=av; av2[0]=*((C_word*)lf[954]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* loop in k25937 in cleanup-before-exit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_fcall f_25962(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_25962,2,t0,t1);} a=C_alloc(10); t2=*((C_word*)lf[225]+1); t3=C_set_block_item(lf[225] /* chicken.base#cleanup-tasks */,0,C_SCHEME_END_OF_LIST); if(C_truep(C_i_nullp(t2))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_i_check_list_2(t2,lf[685]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25981,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25986,a[2]=t7,a[3]=((C_word)li771),tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_25986(t9,t5,t2);}} /* k25979 in loop in k25937 in cleanup-before-exit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_25981(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_25981,2,av);} /* library.scm:4981: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_25962(t2,((C_word*)t0)[3]);} /* for-each-loop5718 in loop in k25937 in cleanup-before-exit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_fcall f_25986(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_25986,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25996,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* library.scm:4980: t */ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k25994 in for-each-loop5718 in loop in k25937 in cleanup-before-exit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_25996(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_25996,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_25986(t3,((C_word*)t0)[4],t2);} /* k26008 in cleanup-before-exit in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_26010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_26010,2,av);} /* library.scm:4973: ##sys#dump-heap-state */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[957]); C_word *av2=av; av2[0]=*((C_word*)lf[957]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} /* k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_26017(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_26017,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[224]+1 /* (set! chicken.base#exit-handler ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26021,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31425,a[2]=((C_word)li982),tmp=(C_word)a,a+=3,tmp); /* library.scm:4998: chicken.base#make-parameter */ t5=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_26021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_26021,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[223]+1 /* (set! chicken.base#implicit-exit-handler ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26025,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31416,a[2]=((C_word)li981),tmp=(C_word)a,a+=3,tmp); /* library.scm:5003: chicken.base#make-parameter */ t5=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_26025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_26025,2,av);} a=C_alloc(23); t2=C_mutate((C_word*)lf[959]+1 /* (set! ##sys#reset-handler ...) */,t1); t3=C_a_i_provide(&a,1,lf[960]); t4=C_mutate((C_word*)lf[194]+1 /* (set! ##sys#signal-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26027,a[2]=((C_word)li776),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[962]+1 /* (set! chicken.condition#abort ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26311,a[2]=((C_word)li777),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[1000]+1 /* (set! chicken.condition#signal ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26328,a[2]=((C_word)li778),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[1001]+1 /* (set! ##sys#break-on-error ...) */,C_mk_bool(C_enable_repl)); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26337,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31256,a[2]=((C_word)li980),tmp=(C_word)a,a+=3,tmp); /* library.scm:5100: chicken.base#make-parameter */ t10=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_26027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,4)))){ C_save_and_reclaim((void*)f_26027,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; t5=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t6=C_dbg_hook(C_SCHEME_FALSE); t7=signal_debug_event(t2,((C_word*)t5)[1],t4); t8=t2; t9=C_eqp(t8,lf[950]); if(C_truep(t9)){ t10=C_a_i_record3(&a,3,lf[907],lf[961],C_SCHEME_END_OF_LIST); /* library.scm:5031: abort */ t11=C_fast_retrieve(lf[962]);{ C_word *av2=av; av2[0]=t11; av2[1]=t1; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t10=C_eqp(t8,lf[307]); t11=(C_truep(t10)?t10:C_eqp(t8,lf[309])); if(C_truep(t11)){ t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26053,a[2]=t4,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t13=C_eqp(t2,lf[307]); if(C_truep(t13)){ /* library.scm:5037: ##sys#print */ t14=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t14; av2[1]=t12; av2[2]=lf[964]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}} else{ /* library.scm:5037: ##sys#print */ t14=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t14; av2[1]=t12; av2[2]=lf[965]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}} else{ t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26129,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t13=C_i_symbolp(((C_word*)t5)[1]); t14=(C_truep(t13)?C_i_nullp(t4):C_SCHEME_FALSE); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26294,a[2]=t5,a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* library.scm:5055: scheme#symbol->string */ t16=*((C_word*)lf[632]+1);{ C_word *av2=av; av2[0]=t16; av2[1]=t15; av2[2]=((C_word*)t5)[1]; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t15=t12; f_26129(t15,C_SCHEME_UNDEFINED);}}}} /* k26051 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_26053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_26053,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26056,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:5040: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k26054 in k26051 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_26056,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26059,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_nullp(((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26108,a[2]=t2,tmp=(C_word)a,a+=3,tmp); if(C_truep(t3)){ t5=t4; f_26108(t5,t3);} else{ t5=((C_word*)t0)[2]; t6=C_u_i_length(t5); t7=t4; f_26108(t7,C_fixnum_greaterp(t6,C_fix(1)));}} /* k26057 in k26054 in k26051 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_26059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_26059,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2]; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26076,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26081,a[2]=t5,a[3]=((C_word)li775),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_26081(t7,t3,t2);} /* a26065 in for-each-loop5786 in k26057 in k26054 in k26051 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_26066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_26066,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26070,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:5049: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k26068 in a26065 in for-each-loop5786 in k26057 in k26054 in k26051 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_26070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_26070,2,av);} /* library.scm:5050: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[861]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[714]+1); tp(4,av2);}} /* k26074 in k26057 in k26054 in k26051 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_26076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26076,2,av);} /* library.scm:5052: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[745]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[745]+1); av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[714]+1); tp(3,av2);}} /* for-each-loop5786 in k26057 in k26054 in k26051 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_26081(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_26081,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26091,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26066,a[2]=t5,a[3]=((C_word)li774),tmp=(C_word)a,a+=4,tmp); /* library.scm:5046: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); C_word av2[4]; av2[0]=*((C_word*)lf[917]+1); av2[1]=t3; av2[2]=C_fix(400); av2[3]=t6; tp(4,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k26089 in for-each-loop5786 in k26057 in k26054 in k26051 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_26091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26091,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_26081(t3,((C_word*)t0)[4],t2);} /* k26106 in k26054 in k26051 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_26108(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_26108,2,t0,t1);} if(C_truep(t1)){ /* library.scm:5042: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word av2[4]; av2[0]=*((C_word*)lf[861]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[714]+1); tp(4,av2);}} else{ /* library.scm:5043: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[963]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k26127 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_26129(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_26129,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26132,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_i_not(((C_word*)((C_word*)t0)[2])[1]); if(C_truep(t3)){ t4=t2; f_26132(t4,(C_truep(t3)?C_i_pairp(((C_word*)t0)[3]):C_SCHEME_FALSE));} else{ t4=C_i_symbolp(((C_word*)((C_word*)t0)[2])[1]); t5=t2; f_26132(t5,(C_truep(t4)?C_i_pairp(((C_word*)t0)[3]):C_SCHEME_FALSE));}} /* k26130 in k26127 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_fcall f_26132(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_26132,2,t0,t1);} a=C_alloc(6); t2=(C_truep(t1)?((C_word*)((C_word*)t0)[2])[1]:C_SCHEME_FALSE); t3=t2; t4=(C_truep(t1)?C_slot(((C_word*)t0)[3],C_fix(0)):((C_word*)((C_word*)t0)[2])[1]); t5=t4; t6=(C_truep(t1)?C_slot(((C_word*)t0)[3],C_fix(1)):((C_word*)t0)[3]); t7=t6; t8=((C_word*)t0)[4]; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26152,a[2]=t5,a[3]=t7,a[4]=t3,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t10=C_eqp(t8,lf[258]); if(C_truep(t10)){ t11=t9; f_26152(t11,lf[970]);} else{ t11=C_eqp(t8,lf[779]); if(C_truep(t11)){ t12=t9; f_26152(t12,lf[971]);} else{ t12=C_eqp(t8,lf[380]); if(C_truep(t12)){ t13=t9; f_26152(t13,lf[972]);} else{ t13=C_eqp(t8,lf[563]); if(C_truep(t13)){ t14=t9; f_26152(t14,lf[973]);} else{ t14=C_eqp(t8,lf[698]); if(C_truep(t14)){ t15=t9; f_26152(t15,lf[974]);} else{ t15=C_eqp(t8,lf[975]); if(C_truep(t15)){ t16=t9; f_26152(t16,lf[976]);} else{ t16=C_eqp(t8,lf[977]); if(C_truep(t16)){ t17=t9; f_26152(t17,lf[978]);} else{ t17=C_eqp(t8,lf[979]); if(C_truep(t17)){ t18=t9; f_26152(t18,lf[980]);} else{ t18=C_eqp(t8,lf[981]); if(C_truep(t18)){ t19=t9; f_26152(t19,lf[982]);} else{ t19=C_eqp(t8,lf[983]); if(C_truep(t19)){ t20=t9; f_26152(t20,lf[984]);} else{ t20=C_eqp(t8,lf[985]); if(C_truep(t20)){ t21=t9; f_26152(t21,lf[986]);} else{ t21=C_eqp(t8,lf[987]); if(C_truep(t21)){ t22=t9; f_26152(t22,lf[988]);} else{ t22=C_eqp(t8,lf[989]); if(C_truep(t22)){ t23=t9; f_26152(t23,lf[990]);} else{ t23=C_eqp(t8,lf[991]); t24=t9; f_26152(t24,(C_truep(t23)?lf[992]:lf[993]));}}}}}}}}}}}}}} /* k26150 in k26130 in k26127 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_26152(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_26152,2,t0,t1);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26160,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:5081: chicken.base#get-call-chain */ t4=*((C_word*)lf[186]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k26158 in k26150 in k26130 in k26127 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_26160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_26160,2,av);} a=C_alloc(28); t2=C_a_i_list8(&a,8,lf[966],((C_word*)t0)[2],lf[967],((C_word*)t0)[3],lf[968],t1,lf[969],((C_word*)t0)[4]); t3=C_a_i_record3(&a,3,lf[907],((C_word*)t0)[5],t2); /* library.scm:5060: abort */ t4=C_fast_retrieve(lf[962]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[6]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k26292 in ##sys#signal-hook in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_26294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_26294,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3]; f_26129(t3,t2);} /* chicken.condition#abort in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_26311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_26311,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26315,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:5085: ##sys#current-exception-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[999]); C_word *av2=av; av2[0]=*((C_word*)lf[999]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k26313 in chicken.condition#abort in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_26315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ C_save_and_reclaim((void *)f_26315,2,av);} a=C_alloc(22); t2=C_a_i_list6(&a,6,lf[994],lf[995],lf[996],C_SCHEME_END_OF_LIST,lf[997],C_SCHEME_FALSE); t3=C_a_i_record3(&a,3,lf[907],lf[998],t2); /* library.scm:5086: abort */ t4=C_fast_retrieve(lf[962]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* chicken.condition#signal in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_26328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_26328,3,av);} /* library.scm:5095: ##sys#current-exception-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[999]); C_word *av2=av; av2[0]=*((C_word*)lf[999]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} /* k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_26337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(39,c,5)))){ C_save_and_reclaim((void *)f_26337,2,av);} a=C_alloc(39); t2=C_mutate((C_word*)lf[1002]+1 /* (set! ##sys#error-handler ...) */,t1); t3=C_set_block_item(lf[1003] /* ##sys#last-exception */,0,C_SCHEME_FALSE); t4=C_mutate((C_word*)lf[999]+1 /* (set! ##sys#current-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26340,a[2]=((C_word)li779),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[912]+1 /* (set! chicken.condition#with-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26500,a[2]=((C_word)li782),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[1019]+1 /* (set! chicken.condition#current-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26514,a[2]=((C_word)li784),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate(&lf[1021] /* (set! chicken.condition#prop-list->kind-prefixed-prop-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26575,a[2]=((C_word)li786),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[1023]+1 /* (set! chicken.condition#make-property-condition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26643,a[2]=((C_word)li787),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[1025]+1 /* (set! chicken.condition#make-composite-condition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26657,a[2]=((C_word)li791),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[1027]+1 /* (set! chicken.condition#condition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26797,a[2]=((C_word)li794),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[1028]+1 /* (set! chicken.condition#condition? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26902,a[2]=((C_word)li795),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[1029]+1 /* (set! chicken.condition#condition->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26908,a[2]=((C_word)li799),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[1032]+1 /* (set! chicken.condition#condition-predicate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27026,a[2]=((C_word)li801),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[1033]+1 /* (set! chicken.condition#condition-property-accessor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27047,a[2]=((C_word)li803),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[1036]+1 /* (set! chicken.condition#get-condition-property ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27093,a[2]=((C_word)li804),tmp=(C_word)a,a+=3,tmp)); t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27104,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5283: condition-property-accessor */ t17=C_fast_retrieve(lf[1033]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t17; av2[1]=t16; av2[2]=lf[1006]; av2[3]=lf[1368]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} /* ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_26340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_26340,3,av);} a=C_alloc(14); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26344,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_structurep(t2,lf[907]))){ t4=C_mutate((C_word*)lf[1003]+1 /* (set! ##sys#last-exception ...) */,t2); t5=C_slot(t2,C_fix(1)); if(C_truep(C_i_memq(lf[1006],t5))){ t6=C_slot(t2,C_fix(2)); t7=C_i_member(lf[1007],t6); t8=t7; t9=C_i_member(lf[1008],t6); t10=t9; t11=C_i_member(lf[1009],t6); t12=t11; t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26383,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26393,a[2]=t10,a[3]=t13,a[4]=t8,a[5]=t12,tmp=(C_word)a,a+=6,tmp); /* library.scm:5152: ##sys#error-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1002]); C_word *av2=av; av2[0]=*((C_word*)lf[1002]+1); av2[1]=t14; tp(2,av2);}} else{ t6=C_slot(t5,C_fix(0)); t7=C_eqp(lf[1014],t6); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26454,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:5170: ##sys#print */ t9=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t8; av2[2]=lf[1015]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} else{ t8=C_slot(t5,C_fix(0)); t9=C_eqp(lf[1016],t8); if(C_truep(t9)){ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26469,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:5173: ##sys#error-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1002]); C_word *av2=av; av2[0]=*((C_word*)lf[1002]+1); av2[1]=t10; tp(2,av2);}} else{ t10=C_a_i_list2(&a,2,lf[1004],t2); t11=C_a_i_record3(&a,3,lf[907],lf[1005],t10); /* library.scm:5177: abort */ t12=C_fast_retrieve(lf[962]);{ C_word *av2=av; av2[0]=t12; av2[1]=t1; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}}}} else{ t4=C_a_i_list2(&a,2,lf[1004],t2); t5=C_a_i_record3(&a,3,lf[907],lf[1005],t4); /* library.scm:5177: abort */ t6=C_fast_retrieve(lf[962]);{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k26342 in ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_26344,2,av);} a=C_alloc(10); t2=C_a_i_list2(&a,2,lf[1004],((C_word*)t0)[2]); t3=C_a_i_record3(&a,3,lf[907],lf[1005],t2); /* library.scm:5177: abort */ t4=C_fast_retrieve(lf[962]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k26381 in ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_26383,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26386,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5168: ##sys#reset-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[959]); C_word *av2=av; av2[0]=*((C_word*)lf[959]+1); av2[1]=t2; tp(2,av2);}} /* k26384 in k26381 in ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_26386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_26386,2,av);} /* library.scm:5147: g5924 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k26391 in ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_26393,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26397,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[4])){ t4=C_i_cadr(((C_word*)t0)[4]); t5=t4; t6=(C_truep(((C_word*)t0)[5])?C_i_cadr(((C_word*)t0)[5]):C_SCHEME_FALSE); t7=(C_truep(t6)?C_i_symbolp(t6):C_SCHEME_FALSE); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26423,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:5158: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[631]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[631]+1); av2[1]=t8; av2[2]=t6; tp(3,av2);}} else{ t8=t3;{ C_word *av2=av; av2[0]=t8; av2[1]=t5; f_26397(2,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=lf[1013]; f_26397(2,av2);}}} /* k26395 in k26391 in ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_26397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_26397,2,av);} if(C_truep(((C_word*)t0)[2])){ t2=C_i_cadr(((C_word*)t0)[2]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; av2[4]=t2; C_apply(5,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}} /* k26421 in k26391 in ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_26423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_26423,2,av);} if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:5157: string-append */ t3=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[1010]; av2[3]=t1; av2[4]=lf[1011]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[2]))){ /* library.scm:5157: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[1010]; av2[3]=t1; av2[4]=lf[1011]; av2[5]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ /* library.scm:5157: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[1010]; av2[3]=t1; av2[4]=lf[1011]; av2[5]=lf[1012]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k26452 in ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26454(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_26454,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26457,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5171: ##sys#reset-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[959]); C_word *av2=av; av2[0]=*((C_word*)lf[959]+1); av2[1]=t2; tp(2,av2);}} /* k26455 in k26452 in ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_26457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_26457,2,av);} /* library.scm:5146: g5927 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* k26467 in ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_26469,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26472,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_slot(((C_word*)t0)[3],C_fix(2)); t4=C_i_member(lf[1017],t3); t5=C_i_cadr(t4); /* library.scm:5146: g5930 */ t6=t1;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t2; av2[2]=lf[1018]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* k26470 in k26467 in ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_26472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_26472,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26475,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5176: ##sys#reset-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[959]); C_word *av2=av; av2[0]=*((C_word*)lf[959]+1); av2[1]=t2; tp(2,av2);}} /* k26473 in k26470 in k26467 in ##sys#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_26475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_26475,2,av);} /* library.scm:5146: g5932 */ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* chicken.condition#with-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_26500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_26500,4,av);} a=C_alloc(8); t4=C_fast_retrieve(lf[999]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26506,a[2]=t2,a[3]=((C_word)li780),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26510,a[2]=t4,a[3]=((C_word)li781),tmp=(C_word)a,a+=4,tmp); /* library.scm:5185: ##sys#dynamic-wind */ t7=*((C_word*)lf[690]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t1; av2[2]=t5; av2[3]=t3; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* a26505 in chicken.condition#with-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_26506,2,av);} t2=C_mutate((C_word*)lf[999]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a26509 in chicken.condition#with-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_26510,2,av);} t2=C_mutate((C_word*)lf[999]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.condition#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_26514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_26514,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t2))){ t3=C_fast_retrieve(lf[999]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_fast_retrieve(lf[999]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26527,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:5195: ##sys#check-closure */ t6=*((C_word*)lf[366]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=t4; av2[3]=lf[1020]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k26525 in chicken.condition#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_26527,2,av);} a=C_alloc(10); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26529,a[2]=((C_word*)t0)[3],a[3]=((C_word)li783),tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26535,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26540,a[2]=t5,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(t3))){ t7=( /* library.scm:5196: def-convert?5948 */ f_26540(t6) ); t8=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t8; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=C_i_car(t3); t8=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t8))){ t9=( /* library.scm:5196: def-set?5949 */ f_26535(t5) ); t10=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t10; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_i_car(t8); t10=C_u_i_cdr(t8); t11=( /* library.scm:5196: body5946 */ f_26529(t4,t9) ); t12=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t12; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}} /* body5946 in k26525 in chicken.condition#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static C_word C_fcall f_26529(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_stack_overflow_check;{} if(C_truep(t1)){ t2=C_mutate((C_word*)lf[999]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]); return(t2);} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* def-set?5949 in k26525 in chicken.condition#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static C_word C_fcall f_26535(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:5196: body5946 */ f_26529(((C_word*)t0)[2],C_SCHEME_TRUE) ));} /* def-convert?5948 in k26525 in chicken.condition#current-exception-handler in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static C_word C_fcall f_26540(C_word t0){ C_word tmp; C_word t1; C_stack_overflow_check;{} return(( /* library.scm:5196: def-set?5949 */ f_26535(((C_word*)t0)[2]) ));} /* chicken.condition#prop-list->kind-prefixed-prop-list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_fcall f_26575(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_26575,4,t1,t2,t3,t4);} a=C_alloc(9); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26581,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t6,a[6]=((C_word)li785),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_26581(t8,t1,t4);} /* loop in chicken.condition#prop-list->kind-prefixed-prop-list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_fcall f_26581(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_26581,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_pairp(t2); t4=C_i_not(t3); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_26597,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); if(C_truep(t4)){ t6=t5; f_26597(t6,t4);} else{ t6=C_i_cdr(t2); t7=C_i_pairp(t6); t8=t5; f_26597(t8,C_i_not(t7));}}} /* k26595 in loop in chicken.condition#prop-list->kind-prefixed-prop-list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_26597(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_26597,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ /* library.scm:5206: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word av2[6]; av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[258]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[1022]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=C_i_car(((C_word*)t0)[5]); t3=C_a_i_cons(&a,2,((C_word*)t0)[6],t2); t4=t3; t5=C_i_cadr(((C_word*)t0)[5]); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26619,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t8=((C_word*)t0)[5]; t9=C_u_i_cdr(t8); t10=C_u_i_cdr(t9); /* library.scm:5210: loop */ t11=((C_word*)((C_word*)t0)[7])[1]; f_26581(t11,t7,t10);}} /* k26617 in k26595 in loop in chicken.condition#prop-list->kind-prefixed-prop-list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_26619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_26619,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.condition#make-property-condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_26643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +7,c,4)))){ C_save_and_reclaim((void*)f_26643,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+7); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; t4=C_a_i_list1(&a,1,t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26655,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:5215: prop-list->kind-prefixed-prop-list */ f_26575(t6,lf[1024],t2,t3);} /* k26653 in chicken.condition#make-property-condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_26655,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_record3(&a,3,lf[907],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.condition#make-composite-condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_26657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +26,c,3)))){ C_save_and_reclaim((void*)f_26657,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+26); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; t4=C_a_i_cons(&a,2,t2,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26774,a[2]=((C_word)li788),tmp=(C_word)a,a+=3,tmp); t7=( f_26774(t5) ); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26676,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26738,a[2]=t8,tmp=(C_word)a,a+=3,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26740,a[2]=t11,a[3]=t15,a[4]=t12,a[5]=((C_word)li790),tmp=(C_word)a,a+=6,tmp)); t17=((C_word*)t15)[1]; f_26740(t17,t13,t5);} /* k26674 in chicken.condition#make-composite-condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_26676,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26680,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26692,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26694,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li789),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_26694(t12,t8,((C_word*)t0)[3]);} /* k26678 in k26674 in chicken.condition#make-composite-condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_26680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_26680,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_record3(&a,3,lf[907],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k26690 in k26674 in chicken.condition#make-composite-condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_26692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_26692,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[254]+1); av2[3]=t1; C_apply(4,av2);}} /* map-loop6035 in k26674 in chicken.condition#make-composite-condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_26694(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_26694,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_slot(t3,C_fix(2)); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k26736 in chicken.condition#make-composite-condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_26738,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[254]+1); av2[3]=t1; C_apply(4,av2);}} /* map-loop6008 in chicken.condition#make-composite-condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_fcall f_26740(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_26740,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_slot(t3,C_fix(1)); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* for-each-loop5990 in chicken.condition#make-composite-condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static C_word C_fcall f_26774(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=C_i_check_structure_2(t2,lf[907],lf[1026]); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* chicken.condition#condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_26797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +23,c,3)))){ C_save_and_reclaim((void*)f_26797,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+23); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t4=C_a_i_cons(&a,2,t2,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26804,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t8=t7; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=((C_word*)t9)[1]; t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26866,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26868,a[2]=t9,a[3]=t13,a[4]=t10,a[5]=((C_word)li793),tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_26868(t15,t11,t5);} /* k26802 in chicken.condition#condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_26804,2,av);} a=C_alloc(17); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26814,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26816,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li792),tmp=(C_word)a,a+=6,tmp)); t11=((C_word*)t9)[1]; f_26816(t11,t7,((C_word*)t0)[3]);} /* k26812 in k26802 in chicken.condition#condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_26814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_26814,2,av);} a=C_alloc(4); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_record3(&a,3,lf[907],t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop6095 in k26802 in chicken.condition#condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_26816(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_26816,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k26864 in chicken.condition#condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_26866,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[254]+1); av2[3]=t1; C_apply(4,av2);}} /* map-loop6068 in chicken.condition#condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_fcall f_26868(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_26868,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26893,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_car(t4); t6=C_u_i_cdr(t4); /* library.scm:5230: prop-list->kind-prefixed-prop-list */ f_26575(t3,lf[907],t5,t6);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k26891 in map-loop6068 in chicken.condition#condition in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_26893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_26893,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_26868(t6,((C_word*)t0)[5],t5);} /* chicken.condition#condition? in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_26902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_26902,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_structurep(t2,lf[907]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.condition#condition->list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_26908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_26908,3,av);} a=C_alloc(8); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26912,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27021,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:5238: condition? */ t5=C_fast_retrieve(lf[1028]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k26910 in chicken.condition#condition->list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_26912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_26912,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26916,a[2]=((C_word*)t0)[2],a[3]=((C_word)li797),tmp=(C_word)a,a+=4,tmp); t7=C_slot(((C_word*)t0)[2],C_fix(1)); t8=C_i_check_list_2(t7,lf[687]); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26986,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li798),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_26986(t12,((C_word*)t0)[3],t7);} /* g6131 in k26910 in chicken.condition#condition->list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_26916(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_26916,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26924,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_slot(((C_word*)t0)[2],C_fix(2)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26930,a[2]=t2,a[3]=t6,a[4]=((C_word)li796),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_26930(t8,t3,t4);} /* k26922 in g6131 in k26910 in chicken.condition#condition->list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_26924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_26924,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in g6131 in k26910 in chicken.condition#condition->list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_26930(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_26930,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_caar(t2); t4=C_eqp(t3,((C_word*)t0)[2]); if(C_truep(t4)){ t5=t2; t6=C_u_i_car(t5); t7=C_u_i_cdr(t6); t8=C_i_cadr(t2); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26961,a[2]=t9,a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); t11=t2; t12=C_u_i_cdr(t11); t13=C_u_i_cdr(t12); /* library.scm:5248: loop */ t15=t10; t16=t13; t1=t15; t2=t16; goto loop;} else{ t5=C_i_cddr(t2); /* library.scm:5250: loop */ t15=t1; t16=t5; t1=t15; t2=t16; goto loop;}}} /* k26959 in loop in g6131 in k26910 in chicken.condition#condition->list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_26961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_26961,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* map-loop6125 in k26910 in chicken.condition#condition->list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_fcall f_26986(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_26986,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27011,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* library.scm:5242: g6131 */ t5=((C_word*)t0)[4]; f_26916(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k27009 in map-loop6125 in k26910 in chicken.condition#condition->list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_27011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_27011,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_26986(t6,((C_word*)t0)[5],t5);} /* k27019 in chicken.condition#condition->list in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_27021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_27021,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; f_26912(2,av2);}} else{ /* library.scm:5239: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[258]; av2[3]=lf[1030]; av2[4]=lf[1031]; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* chicken.condition#condition-predicate in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_27026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_27026,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27028,a[2]=t2,a[3]=((C_word)li800),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_27028 in chicken.condition#condition-predicate in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_27028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_27028,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27035,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:5255: condition? */ t4=C_fast_retrieve(lf[1028]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k27033 */ static void C_ccall f_27035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_27035,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=C_i_memv(((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=(C_truep(t3)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.condition#condition-property-accessor in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_27047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +11,c,3)))){ C_save_and_reclaim((void*)f_27047,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+11); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t5=C_i_nullp(t4); t6=t5; t7=C_a_i_cons(&a,2,t2,t3); t8=t7; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27055,a[2]=t2,a[3]=t8,a[4]=t6,a[5]=t3,a[6]=t4,a[7]=((C_word)li802),tmp=(C_word)a,a+=8,tmp); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* f_27055 in chicken.condition#condition-property-accessor in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_27055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_27055,3,av);} t3=C_i_check_structure(t2,lf[907]); t4=C_slot(t2,C_fix(1)); if(C_truep(C_i_memv(((C_word*)t0)[2],t4))){ t5=C_slot(t2,C_fix(2)); t6=C_i_member(((C_word*)t0)[3],t5); if(C_truep(t6)){ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_i_cadr(t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[4])){ /* library.scm:5266: ##sys#signal-hook */ t7=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t7; av2[1]=t1; av2[2]=lf[258]; av2[3]=lf[1034]; av2[4]=lf[1035]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} else{ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_i_car(((C_word*)t0)[6]); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* chicken.condition#get-condition-property in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_27093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +4,c,5)))){ C_save_and_reclaim((void*)f_27093,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+4); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27097,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t6; av2[2]=C_fast_retrieve(lf[1033]); av2[3]=t3; av2[4]=t4; av2[5]=t5; C_apply(6,av2);}} /* k27095 in chicken.condition#get-condition-property in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_27097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27097,2,av);} /* library.scm:5272: g6180 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_27104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_27104,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27107,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:5284: condition-property-accessor */ t4=C_fast_retrieve(lf[1033]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1006]; av2[3]=lf[843]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_27107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_27107,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27110,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:5285: condition-property-accessor */ t4=C_fast_retrieve(lf[1033]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1006]; av2[3]=lf[1367]; av2[4]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_27110(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(182,c,7)))){ C_save_and_reclaim((void *)f_27110,2,av);} a=C_alloc(182); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27111,a[2]=((C_word)li808),tmp=(C_word)a,a+=3,tmp); t4=C_mutate((C_word*)lf[1037]+1 /* (set! chicken.condition#print-error-message ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27156,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li813),tmp=(C_word)a,a+=7,tmp)); t5=C_fast_retrieve(lf[1037]); t6=*((C_word*)lf[187]+1); t7=*((C_word*)lf[213]+1); t8=*((C_word*)lf[211]+1); t9=C_mutate((C_word*)lf[1049]+1 /* (set! ##sys#show-exception-warning ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27347,a[2]=t6,a[3]=t5,a[4]=t8,a[5]=t7,a[6]=((C_word)li814),tmp=(C_word)a,a+=7,tmp)); t10=C_mutate((C_word*)lf[363]+1 /* (set! ##sys#error-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27396,a[2]=((C_word)li815),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[1111]+1 /* (set! ##sys#structure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28063,a[2]=((C_word)li816),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[1112]+1 /* (set! ##sys#generic-structure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28066,a[2]=((C_word)li817),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[1113]+1 /* (set! ##sys#slot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28069,a[2]=((C_word)li818),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[1114]+1 /* (set! ##sys#size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28072,a[2]=((C_word)li819),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[1115]+1 /* (set! ##sys#make-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_pointer,a[2]=((C_word)li820),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[1116]+1 /* (set! ##sys#make-tagged-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_tagged_pointer,a[2]=((C_word)li821),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[1117]+1 /* (set! ##sys#pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28077,a[2]=((C_word)li822),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[1118]+1 /* (set! ##sys#set-pointer-address! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28080,a[2]=((C_word)li823),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[1119]+1 /* (set! ##sys#bytevector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28083,a[2]=((C_word)li824),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[1120]+1 /* (set! ##sys#string->pbytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28086,a[2]=((C_word)li825),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[1121]+1 /* (set! ##sys#permanent? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28089,a[2]=((C_word)li826),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[1122]+1 /* (set! ##sys#block-address ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28092,a[2]=((C_word)li827),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate((C_word*)lf[1123]+1 /* (set! ##sys#locative? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28095,a[2]=((C_word)li828),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate((C_word*)lf[1124]+1 /* (set! ##sys#srfi-4-vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28098,a[2]=((C_word)li829),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate((C_word*)lf[1125]+1 /* (set! ##sys#null-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28101,a[2]=((C_word)li830),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate((C_word*)lf[1126]+1 /* (set! ##sys#null-pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28107,a[2]=((C_word)li831),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate((C_word*)lf[1127]+1 /* (set! ##sys#address->pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28117,a[2]=((C_word)li832),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate((C_word*)lf[936]+1 /* (set! ##sys#pointer->address ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28123,a[2]=((C_word)li833),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate((C_word*)lf[744]+1 /* (set! ##sys#make-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28130,a[2]=((C_word)li834),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate((C_word*)lf[1128]+1 /* (set! ##sys#peek-signed-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_peek_signed_integer,a[2]=((C_word)li835),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate((C_word*)lf[722]+1 /* (set! ##sys#peek-unsigned-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_peek_unsigned_integer,a[2]=((C_word)li836),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate((C_word*)lf[1129]+1 /* (set! ##sys#peek-fixnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28165,a[2]=((C_word)li837),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate((C_word*)lf[1130]+1 /* (set! ##sys#peek-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28168,a[2]=((C_word)li838),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate((C_word*)lf[1131]+1 /* (set! ##sys#vector->structure! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28171,a[2]=((C_word)li839),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate((C_word*)lf[1132]+1 /* (set! ##sys#peek-double ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28174,a[2]=((C_word)li840),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate((C_word*)lf[701]+1 /* (set! ##sys#peek-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28177,a[2]=((C_word)li841),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate((C_word*)lf[940]+1 /* (set! ##sys#peek-nonnull-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28193,a[2]=((C_word)li842),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate((C_word*)lf[1133]+1 /* (set! ##sys#peek-and-free-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28199,a[2]=((C_word)li843),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate((C_word*)lf[1134]+1 /* (set! ##sys#peek-and-free-nonnull-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28215,a[2]=((C_word)li844),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate((C_word*)lf[1135]+1 /* (set! ##sys#poke-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28221,a[2]=((C_word)li845),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate((C_word*)lf[1136]+1 /* (set! ##sys#poke-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28228,a[2]=((C_word)li846),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate((C_word*)lf[1137]+1 /* (set! ##sys#poke-double ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28231,a[2]=((C_word)li847),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate((C_word*)lf[1138]+1 /* (set! ##sys#peek-c-string-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28251,a[2]=((C_word)li849),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate((C_word*)lf[1139]+1 /* (set! ##sys#peek-and-free-c-string-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28312,a[2]=((C_word)li851),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate((C_word*)lf[1140]+1 /* (set! ##sys#vector->closure! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28350,a[2]=((C_word)li852),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate((C_word*)lf[1141]+1 /* (set! ##sys#symbol-has-toplevel-binding? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28353,a[2]=((C_word)li853),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate((C_word*)lf[918]+1 /* (set! ##sys#copy-bytes ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28356,a[2]=((C_word)li854),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate((C_word*)lf[1142]+1 /* (set! ##sys#copy-words ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28363,a[2]=((C_word)li855),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate((C_word*)lf[1143]+1 /* (set! ##sys#compare-bytes ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28370,a[2]=((C_word)li856),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate((C_word*)lf[1144]+1 /* (set! ##sys#block-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28373,a[2]=((C_word)li857),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate((C_word*)lf[1145]+1 /* (set! ##sys#foreign-char-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28379,a[2]=((C_word)li858),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate((C_word*)lf[1146]+1 /* (set! ##sys#foreign-fixnum-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28382,a[2]=((C_word)li859),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate((C_word*)lf[1147]+1 /* (set! ##sys#foreign-flonum-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28385,a[2]=((C_word)li860),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate((C_word*)lf[1148]+1 /* (set! ##sys#foreign-block-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28388,a[2]=((C_word)li861),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate((C_word*)lf[1149]+1 /* (set! ##sys#foreign-struct-wrapper-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28391,a[2]=((C_word)li862),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate((C_word*)lf[1150]+1 /* (set! ##sys#foreign-string-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28394,a[2]=((C_word)li863),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate((C_word*)lf[1151]+1 /* (set! ##sys#foreign-symbol-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28397,a[2]=((C_word)li864),tmp=(C_word)a,a+=3,tmp)); t58=C_mutate((C_word*)lf[1152]+1 /* (set! ##sys#foreign-pointer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28400,a[2]=((C_word)li865),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate((C_word*)lf[1153]+1 /* (set! ##sys#foreign-tagged-pointer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28403,a[2]=((C_word)li866),tmp=(C_word)a,a+=3,tmp)); t60=C_mutate((C_word*)lf[1154]+1 /* (set! ##sys#foreign-ranged-integer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28406,a[2]=((C_word)li867),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate((C_word*)lf[1155]+1 /* (set! ##sys#foreign-unsigned-ranged-integer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28409,a[2]=((C_word)li868),tmp=(C_word)a,a+=3,tmp)); t62=C_set_block_item(lf[1156] /* ##sys#default-thread-quantum */,0,C_fix(10000)); t63=C_mutate((C_word*)lf[1157]+1 /* (set! ##sys#default-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28413,a[2]=((C_word)li869),tmp=(C_word)a,a+=3,tmp)); t64=C_mutate((C_word*)lf[1159]+1 /* (set! ##sys#make-thread ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28416,a[2]=((C_word)li870),tmp=(C_word)a,a+=3,tmp)); t65=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28440,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); /* library.scm:5639: ##sys#make-thread */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1159]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[1159]+1); av2[1]=t65; av2[2]=C_SCHEME_FALSE; av2[3]=lf[1365]; av2[4]=lf[1366]; av2[5]=C_fast_retrieve(lf[1156]); tp(6,av2);}} /* writeargs in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_fcall f_27111(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_27111,3,t1,t2,t3);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27113,a[2]=t3,a[3]=((C_word)li806),tmp=(C_word)a,a+=4,tmp); t5=C_i_check_list_2(t2,lf[685]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27134,a[2]=t7,a[3]=t4,a[4]=((C_word)li807),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_27134(t9,t1,t2);} /* g6196 in writeargs in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_27113(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_27113,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27117,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27122,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li805),tmp=(C_word)a,a+=5,tmp); /* library.scm:5290: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); C_word av2[4]; av2[0]=*((C_word*)lf[917]+1); av2[1]=t3; av2[2]=C_fix(80); av2[3]=t4; tp(4,av2);}} /* k27115 in g6196 in writeargs in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_27117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27117,2,av);} /* library.scm:5291: newline */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a27121 in g6196 in writeargs in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_27122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27122,2,av);} /* library.scm:5290: write */ t2=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop6195 in writeargs in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_27134(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_27134,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27144,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* library.scm:5288: g6196 */ t5=((C_word*)t0)[3]; f_27113(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k27142 in for-each-loop6195 in writeargs in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_27144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27144,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_27134(t3,((C_word*)t0)[4],t2);} /* chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_27156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +16,c,4)))){ C_save_and_reclaim((void*)f_27156,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+16); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27158,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li810),tmp=(C_word)a,a+=8,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27307,a[2]=t4,a[3]=((C_word)li811),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27312,a[2]=t5,a[3]=((C_word)li812),tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* library.scm:5294: def-port6218 */ t7=t6; f_27312(t7,t1);} else{ t7=C_i_car(t3); t8=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t8))){ /* library.scm:5294: def-header6219 */ t9=t5; f_27307(t9,t1,t7);} else{ t9=C_i_car(t8); t10=C_u_i_cdr(t8); /* library.scm:5294: body6216 */ t11=t4; f_27158(t11,t1,t7,t9);}}} /* body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_27158(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_27158,4,t0,t1,t2,t3);} a=C_alloc(10); t4=t2; t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[1038]); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27165,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=t3,tmp=(C_word)a,a+=10,tmp); /* library.scm:5297: newline */ t7=*((C_word*)lf[151]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_27165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_27165,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27168,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* library.scm:5298: display */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_27168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_27168,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t3=C_immp(((C_word*)t0)[6]); if(C_truep(C_i_not(t3))){ t4=C_slot(((C_word*)t0)[6],C_fix(0)); t5=t2; f_27174(t5,C_eqp(lf[907],t4));} else{ t4=t2; f_27174(t4,C_SCHEME_FALSE);}} /* k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_fcall f_27174(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_27174,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27177,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* library.scm:5300: errmsg */ t3=((C_word*)t0)[8];{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[6]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* library.scm:5324: display */ t3=*((C_word*)lf[153]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[1046]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27285,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:5328: display */ t3=*((C_word*)lf[153]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=lf[1047]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}} /* k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_27177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_27177,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27180,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(t1)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27212,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[6],a[5]=((C_word)li809),tmp=(C_word)a,a+=6,tmp); /* library.scm:5300: g6239 */ t4=t3; f_27212(t4,t2,t1);} else{ t3=C_slot(((C_word*)t0)[6],C_fix(1)); if(C_truep(C_i_equalp(lf[1043],t3))){ /* library.scm:5310: display */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=lf[1044]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27260,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5312: display */ t5=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[1045]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* k27178 in k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_27180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_27180,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27183,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5314: errargs */ t3=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k27181 in k27178 in k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_27183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_27183,2,av);} a=C_alloc(6); t2=t1; t3=C_i_not(t2); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_length(t2); t5=C_eqp(C_fix(1),t4); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27198,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:5318: display */ t7=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=lf[1039]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27204,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:5321: newline */ t7=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}} /* k27196 in k27181 in k27178 in k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_27198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27198,2,av);} /* library.scm:5319: writeargs */ f_27111(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k27202 in k27181 in k27178 in k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_27204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27204,2,av);} /* library.scm:5322: writeargs */ f_27111(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* g6239 in k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_fcall f_27212(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_27212,3,t0,t1,t2);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27216,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* library.scm:5302: display */ t4=*((C_word*)lf[153]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[1042]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k27214 in g6239 in k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_27216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_27216,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27219,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5303: errloc */ t3=((C_word*)t0)[5];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k27217 in k27214 in g6239 in k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_27219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_27219,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27222,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(C_truep(t1)?C_i_symbolp(t1):C_SCHEME_FALSE); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27235,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27239,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:5305: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[631]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[631]+1); av2[1]=t5; av2[2]=t1; tp(3,av2);}} else{ /* library.scm:5306: display */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k27220 in k27217 in k27214 in g6239 in k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_27222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27222,2,av);} /* library.scm:5306: display */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k27233 in k27217 in k27214 in g6239 in k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_27235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27235,2,av);} /* library.scm:5305: display */ t2=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k27237 in k27217 in k27214 in g6239 in k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_27239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_27239,2,av);} /* library.scm:5305: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1040]; av2[3]=t1; av2[4]=lf[1041]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k27258 in k27175 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_27260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27260,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:5313: display */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k27274 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_27276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_27276,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:5325: display */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k27277 in k27274 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_27279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_27279,2,av);} /* library.scm:5326: newline */ t2=*((C_word*)lf[151]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k27283 in k27172 in k27166 in k27163 in body6216 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_27285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_27285,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); /* library.scm:5329: writeargs */ f_27111(((C_word*)t0)[4],t2,((C_word*)t0)[5]);} /* def-header6219 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_27307(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_27307,3,t0,t1,t2);} /* library.scm:5294: body6216 */ t3=((C_word*)t0)[2]; f_27158(t3,t1,t2,lf[1048]);} /* def-port6218 in chicken.condition#print-error-message in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_27312(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_27312,2,t0,t1);} /* library.scm:5294: def-header6219 */ t2=((C_word*)t0)[2]; f_27307(t2,t1,*((C_word*)lf[713]+1));} /* ##sys#show-exception-warning in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_27347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,2)))){ C_save_and_reclaim((void*)f_27347,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+9); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_fast_retrieve(lf[939]):C_i_car(t4)); t7=t6; if(C_truep(*((C_word*)lf[304]+1))){ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27357,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t7,a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=t3,tmp=(C_word)a,a+=9,tmp); /* library.scm:5344: open-output-string */ t9=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t8=C_SCHEME_UNDEFINED; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* k27355 in ##sys#show-exception-warning in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_27357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_27357,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* library.scm:5345: display */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1052]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k27358 in k27355 in ##sys#show-exception-warning in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_27360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_27360,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27363,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); if(C_truep(((C_word*)t0)[4])){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27382,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5347: display */ t4=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1051]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_27363(2,av2);}}} /* k27361 in k27358 in k27355 in ##sys#show-exception-warning in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_27363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_27363,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27366,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); /* library.scm:5350: display */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1050]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k27364 in k27361 in k27358 in k27355 in ##sys#show-exception-warning in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_27366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_27366,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27369,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* library.scm:5351: display */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k27367 in k27364 in k27361 in k27358 in k27355 in ##sys#show-exception-warning in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_27369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_27369,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27372,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27379,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* library.scm:5352: get-output-string */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k27370 in k27367 in k27364 in k27361 in k27358 in k27355 in ##sys#show-exception-warning in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_27372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_27372,2,av);} /* library.scm:5353: print-call-chain */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=*((C_word*)lf[714]+1); av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k27377 in k27367 in k27364 in k27361 in k27358 in k27355 in ##sys#show-exception-warning in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_27379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_27379,2,av);} /* library.scm:5352: print-error-message */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=*((C_word*)lf[714]+1); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k27380 in k27358 in k27355 in ##sys#show-exception-warning in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_27382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_27382,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27385,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:5348: display */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k27383 in k27380 in k27358 in k27355 in ##sys#show-exception-warning in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_27385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_27385,2,av);} /* ##sys#write-char/port */ t2=C_fast_retrieve(lf[862]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* ##sys#error-hook in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_27396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,6)))){ C_save_and_reclaim((void*)f_27396,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+9); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; switch(t2){ case C_fix(1): t5=C_i_car(t4); t6=t5; t7=C_i_cadr(t4); t8=C_i_caddr(t4); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27419,a[2]=t9,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27430,a[2]=t10,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:5368: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[601]+1); av2[1]=t11; av2[2]=t7; tp(3,av2);} case C_fix(2): t5=C_i_car(t4); t6=t5; t7=C_i_cadr(t4); t8=C_i_caddr(t4); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27456,a[2]=t9,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27467,a[2]=t10,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:5377: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[601]+1); av2[1]=t11; av2[2]=t7; tp(3,av2);} case C_fix(3):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1057]; av2[6]=t4; C_apply(7,av2);} case C_fix(4):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[975]; av2[4]=t3; av2[5]=lf[1058]; av2[6]=t4; C_apply(7,av2);} case C_fix(5):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1059]; av2[6]=t4; C_apply(7,av2);} case C_fix(6):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[983]; av2[4]=t3; av2[5]=lf[1060]; av2[6]=t4; C_apply(7,av2);} case C_fix(7):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[563]; av2[4]=t3; av2[5]=lf[1061]; av2[6]=t4; C_apply(7,av2);} case C_fix(8):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[380]; av2[4]=t3; av2[5]=lf[1062]; av2[6]=t4; C_apply(7,av2);} case C_fix(9):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1063]; av2[6]=t4; C_apply(7,av2);} case C_fix(10):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[985]; av2[4]=t3; av2[5]=lf[1064]; av2[6]=t4; C_apply(7,av2);} case C_fix(11):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1065]; av2[6]=t4; C_apply(7,av2);} case C_fix(12):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[983]; av2[4]=t3; av2[5]=lf[1066]; av2[6]=t4; C_apply(7,av2);} case C_fix(13):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1067]; av2[6]=t4; C_apply(7,av2);} case C_fix(14):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1068]; av2[6]=t4; C_apply(7,av2);} case C_fix(15):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1069]; av2[6]=t4; C_apply(7,av2);} case C_fix(16):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1070]; av2[6]=t4; C_apply(7,av2);} case C_fix(17):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1071]; av2[6]=t4; C_apply(7,av2);} case C_fix(18):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1072]; av2[6]=t4; C_apply(7,av2);} case C_fix(19):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1073]; av2[6]=t4; C_apply(7,av2);} case C_fix(20):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1074]; av2[6]=t4; C_apply(7,av2);} case C_fix(21):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1075]; av2[6]=t4; C_apply(7,av2);} case C_fix(22):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1076]; av2[6]=t4; C_apply(7,av2);} case C_fix(23):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[983]; av2[4]=t3; av2[5]=lf[1077]; av2[6]=t4; C_apply(7,av2);} case C_fix(24):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1078]; av2[6]=t4; C_apply(7,av2);} case C_fix(25):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1079]; av2[6]=t4; C_apply(7,av2);} case C_fix(26):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1080]; av2[6]=t4; C_apply(7,av2);} case C_fix(27):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1081]; av2[6]=t4; C_apply(7,av2);} case C_fix(28):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1082]; av2[6]=t4; C_apply(7,av2);} case C_fix(29):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1083]; av2[6]=t4; C_apply(7,av2);} case C_fix(30):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1084]; av2[6]=t4; C_apply(7,av2);} case C_fix(31):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1085]; av2[6]=t4; C_apply(7,av2);} case C_fix(32):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1086]; av2[6]=t4; C_apply(7,av2);} case C_fix(33):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1087]; av2[6]=t4; C_apply(7,av2);} case C_fix(34):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1088]; av2[6]=t4; C_apply(7,av2);} case C_fix(35):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1089]; av2[6]=t4; C_apply(7,av2);} case C_fix(36):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[983]; av2[4]=t3; av2[5]=lf[1090]; av2[6]=t4; C_apply(7,av2);} case C_fix(37):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1091]; av2[6]=t4; C_apply(7,av2);} case C_fix(38):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1092]; av2[6]=t4; C_apply(7,av2);} case C_fix(39):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1093]; av2[6]=t4; C_apply(7,av2);} case C_fix(40):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1094]; av2[6]=t4; C_apply(7,av2);} case C_fix(41):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1095]; av2[6]=t4; C_apply(7,av2);} case C_fix(42):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1096]; av2[6]=t4; C_apply(7,av2);} case C_fix(43):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[698]; av2[4]=t3; av2[5]=lf[1097]; av2[6]=t4; C_apply(7,av2);} case C_fix(44):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1098]; av2[6]=t4; C_apply(7,av2);} case C_fix(45):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[991]; av2[4]=t3; av2[5]=lf[1099]; av2[6]=t4; C_apply(7,av2);} case C_fix(46):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[563]; av2[4]=t3; av2[5]=lf[1100]; av2[6]=t4; C_apply(7,av2);} case C_fix(47):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[975]; av2[4]=t3; av2[5]=lf[1101]; av2[6]=t4; C_apply(7,av2);} case C_fix(48):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[991]; av2[4]=t3; av2[5]=lf[1102]; av2[6]=t4; C_apply(7,av2);} case C_fix(49):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1103]; av2[6]=t4; C_apply(7,av2);} case C_fix(50):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1104]; av2[6]=t4; C_apply(7,av2);} case C_fix(51):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1105]; av2[6]=t4; C_apply(7,av2);} case C_fix(52):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1106]; av2[6]=t4; C_apply(7,av2);} case C_fix(53):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1107]; av2[6]=t4; C_apply(7,av2);} case C_fix(54):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1108]; av2[6]=t4; C_apply(7,av2);} case C_fix(55):{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=t3; av2[5]=lf[1109]; av2[6]=t4; C_apply(7,av2);} default:{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[975]; av2[4]=t3; av2[5]=lf[1110]; av2[6]=t4; C_apply(7,av2);}}} /* k27417 in ##sys#error-hook in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_27419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_27419,2,av);} a=C_alloc(3); if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[985]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; av2[6]=t2; C_apply(7,av2);}} else{ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[194]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[194]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[985]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; tp(5,av2);}}} /* k27428 in ##sys#error-hook in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_27430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_27430,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27434,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:5369: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k27432 in k27428 in ##sys#error-hook in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_27434(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_27434,2,av);} /* library.scm:5368: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1053]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[1054]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k27454 in ##sys#error-hook in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_27456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_27456,2,av);} a=C_alloc(3); if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[985]; av2[4]=((C_word*)t0)[4]; av2[5]=t1; av2[6]=t2; C_apply(7,av2);}} else{ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[194]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[194]+1); av2[1]=((C_word*)t0)[3]; av2[2]=lf[985]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; tp(5,av2);}}} /* k27465 in ##sys#error-hook in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_27467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_27467,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27471,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:5378: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k27469 in k27465 in ##sys#error-hook in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_27471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_27471,2,av);} /* library.scm:5377: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1055]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[1056]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* ##sys#structure? in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28063,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_structurep(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#generic-structure? in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28066,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_structurep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#slot in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28069,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#size in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28072,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_block_size(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#pointer? in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28077,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_anypointerp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#set-pointer-address! in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28080,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_update_pointer(t3,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#bytevector? in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28083,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_bytevectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#string->pbytevector in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28086,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_string_to_pbytevector(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#permanent? in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28089,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_permanentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#block-address in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_28092,3,av);} a=C_alloc(6); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_block_address(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#locative? in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28095,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_locativep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#srfi-4-vector? in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28098(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28098,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_srfi_4_vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#null-pointer in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_28101,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28105,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:5457: ##sys#make-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1115]); C_word *av2=av; av2[0]=*((C_word*)lf[1115]+1); av2[1]=t2; tp(2,av2);}} /* k28103 in ##sys#null-pointer in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28105,2,av);} t2=C_update_pointer(C_fix(0),t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#null-pointer? in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_28107,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28115,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:5462: ##sys#pointer->address */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[936]); C_word *av2=av; av2[0]=*((C_word*)lf[936]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k28113 in ##sys#null-pointer? in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28115,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_eqp(C_fix(0),t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#address->pointer in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_28117,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28121,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:5465: ##sys#make-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1115]); C_word *av2=av; av2[0]=*((C_word*)lf[1115]+1); av2[1]=t3; tp(2,av2);}} /* k28119 in ##sys#address->pointer in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28121,2,av);} t2=C_update_pointer(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#pointer->address in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_28123,3,av);} a=C_alloc(6); t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_unsigned_int_to_num(&a,1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#make-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_28130,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[744]:C_i_car(t3)); t6=t5; t7=C_block_size(t2); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28140,a[2]=t2,a[3]=t8,a[4]=t1,a[5]=t6,tmp=(C_word)a,a+=6,tmp); t10=C_fixnum_plus(t8,C_fix(1)); /* library.scm:5475: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t9; av2[2]=t10; tp(3,av2);}} /* k28138 in ##sys#make-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_28140,2,av);} t2=C_substring_copy(((C_word*)t0)[2],t1,C_fix(0),((C_word*)t0)[3],C_fix(0)); t3=C_setsubchar(t1,((C_word*)t0)[3],C_make_character(0)); t4=C_asciiz_strlen(t1); t5=C_eqp(t4,((C_word*)t0)[3]); if(C_truep(t5)){ t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_fix((C_word)C_ASCIIZ_REPRESENTATION_ERROR); /* library.scm:5480: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[363]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t6; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[2]; tp(5,av2);}}} /* ##sys#peek-fixnum in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28165,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_peek_fixnum(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#peek-byte in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28168,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_peek_byte(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#vector->structure! in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28171,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_vector_to_structure(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#peek-double in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_28174,4,av);} a=C_alloc(4); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_f64peek(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#peek-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_28177,4,av);} a=C_alloc(6); t4=C_null_pointerp(t2); if(C_truep(C_i_not(t4))){ t5=C_fetch_c_strlen(t2,t3); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28187,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:5496: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t6; av2[2]=t5; tp(3,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k28185 in ##sys#peek-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28187,2,av);} t2=C_peek_c_string(((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=t1; t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#peek-nonnull-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_28193,4,av);} a=C_alloc(6); t4=C_fetch_c_strlen(t2,t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28197,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:5502: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t5; av2[2]=t4; tp(3,av2);}} /* k28195 in ##sys#peek-nonnull-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28197(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28197,2,av);} t2=C_peek_c_string(((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#peek-and-free-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_28199,4,av);} a=C_alloc(6); t4=C_null_pointerp(t2); if(C_truep(C_i_not(t4))){ t5=C_fetch_c_strlen(t2,t3); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28209,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:5509: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t6; av2[2]=t5; tp(3,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k28207 in ##sys#peek-and-free-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28209,2,av);} t2=C_peek_c_string(((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=C_free_mptr(((C_word*)t0)[2],((C_word*)t0)[3]); t4=t1; t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#peek-and-free-nonnull-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_28215,4,av);} a=C_alloc(6); t4=C_fetch_c_strlen(t2,t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28219,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:5516: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[377]+1); av2[1]=t5; av2[2]=t4; tp(3,av2);}} /* k28217 in ##sys#peek-and-free-nonnull-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28219,2,av);} t2=C_peek_c_string(((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4]); t3=C_free_mptr(((C_word*)t0)[2],((C_word*)t0)[3]); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#poke-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_28221,5,av);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28226,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* library.scm:5522: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[744]); C_word *av2=av; av2[0]=*((C_word*)lf[744]+1); av2[1]=t5; av2[2]=t4; tp(3,av2);}} /* k28224 in ##sys#poke-c-string in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28226,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_poke_c_string(((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#poke-integer in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28228,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_poke_integer(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#poke-double in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28231,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_poke_double(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#peek-c-string-list in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_28251,4,av);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28257,a[2]=t3,a[3]=t5,a[4]=t2,a[5]=((C_word)li848),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_28257(t7,t1,C_fix(0));} /* loop in ##sys#peek-c-string-list in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_28257(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_28257,3,t0,t1,t2);} a=C_alloc(10); t3=(C_truep(((C_word*)t0)[2])?C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28267,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[4]; t6=t2; t7=C_a_i_bytevector(&a,1,C_fix(3)); t8=(C_truep(t5)?C_i_foreign_pointer_argumentp(t5):C_SCHEME_FALSE); t9=C_i_foreign_fixnum_argumentp(t6); t10=stub6455(t7,t8,t9); /* library.scm:5528: ##sys#peek-c-string */ t11=*((C_word*)lf[701]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t4; av2[2]=t10; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}} /* k28265 in loop in ##sys#peek-c-string-list in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_28267(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_28267,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28277,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* library.scm:5535: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_28257(t5,t3,t4);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k28275 in k28265 in loop in ##sys#peek-c-string-list in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_28277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_28277,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#peek-and-free-c-string-list in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_28312,4,av);} a=C_alloc(12); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28316,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28321,a[2]=t3,a[3]=t2,a[4]=t6,a[5]=((C_word)li850),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_28321(t8,t4,C_fix(0));} /* k28314 in ##sys#peek-and-free-c-string-list in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28316,2,av);} t2=((C_word*)t0)[2]; if(C_truep(t2)){ t3=C_i_foreign_pointer_argumentp(t2); t4=stub6482(C_SCHEME_UNDEFINED,t3); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t3=stub6482(C_SCHEME_UNDEFINED,C_SCHEME_FALSE); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* loop in ##sys#peek-and-free-c-string-list in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_28321(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_28321,3,t0,t1,t2);} a=C_alloc(11); t3=(C_truep(((C_word*)t0)[2])?C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28331,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t5=((C_word*)t0)[3]; t6=t2; t7=C_a_i_bytevector(&a,1,C_fix(3)); t8=(C_truep(t5)?C_i_foreign_pointer_argumentp(t5):C_SCHEME_FALSE); t9=C_i_foreign_fixnum_argumentp(t6); t10=stub6474(t7,t8,t9); /* library.scm:5539: ##sys#peek-c-string */ t11=*((C_word*)lf[701]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t4; av2[2]=t10; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}} /* k28329 in loop in ##sys#peek-and-free-c-string-list in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_28331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_28331,2,av);} a=C_alloc(4); t2=t1; if(C_truep(t2)){ t3=C_free_sptr(((C_word*)t0)[2],((C_word*)t0)[3]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28341,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* library.scm:5548: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_28321(t6,t4,t5);} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k28339 in k28329 in loop in ##sys#peek-and-free-c-string-list in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_28341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_28341,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#vector->closure! in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28350,4,av);} t4=C_vector_to_closure(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_update_pointer(t3,t2); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#symbol-has-toplevel-binding? in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28353,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_boundp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#copy-bytes in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28356(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word t8; C_word *a; if(c!=7) C_bad_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28356,7,av);} t7=C_fixnum_plus(t4,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_substring_copy(t2,t3,t4,t7,t5); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* ##sys#copy-words in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word t8; C_word *a; if(c!=7) C_bad_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28363,7,av);} t7=C_fixnum_plus(t4,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_subvector_copy(t2,t3,t4,t7,t5); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* ##sys#compare-bytes in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word *a; if(c!=7) C_bad_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28370,7,av);} t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_substring_compare(t2,t3,t4,t5,t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* ##sys#block-pointer in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_28373,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28377,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:5581: ##sys#make-pointer */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1115]); C_word *av2=av; av2[0]=*((C_word*)lf[1115]+1); av2[1]=t3; tp(2,av2);}} /* k28375 in ##sys#block-pointer in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28377(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28377,2,av);} t2=C_pointer_to_block(t1,((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-char-argument in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28379,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_foreign_char_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-fixnum-argument in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28382,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_foreign_fixnum_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-flonum-argument in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28385,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_foreign_flonum_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-block-argument in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28388,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_foreign_block_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-struct-wrapper-argument in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28391,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_foreign_struct_wrapper_argumentp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#foreign-string-argument in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28394,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_foreign_string_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-symbol-argument in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28397,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_foreign_symbol_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-pointer-argument in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28400,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_foreign_pointer_argumentp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#foreign-tagged-pointer-argument in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28403,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_foreign_tagged_pointer_argumentp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#foreign-ranged-integer-argument in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28406,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_foreign_ranged_integer_argumentp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#foreign-unsigned-ranged-integer-argument in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28409,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_foreign_unsigned_ranged_integer_argumentp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#default-exception-handler in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28413,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_halt(lf[1158]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#make-thread in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_28416,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28432,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); t7=C_block_size(C_fast_retrieve(lf[761])); /* library.scm:5626: ##sys#vector-resize */ f_18070(t6,C_fast_retrieve(lf[761]),t7,C_SCHEME_FALSE);} /* k28430 in ##sys#make-thread in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,1)))){ C_save_and_reclaim((void *)f_28432,2,av);} a=C_alloc(26); t2=C_a_i_vector6(&a,6,C_fast_retrieve(lf[689]),*((C_word*)lf[712]+1),*((C_word*)lf[713]+1),*((C_word*)lf[714]+1),C_fast_retrieve(lf[1157]),t1); t3=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record(&a,15,lf[914],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],C_SCHEME_FALSE,t2,((C_word*)t0)[5],C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST,((C_word*)t0)[6],C_SCHEME_UNDEFINED,C_SCHEME_FALSE,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_28440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){ C_save_and_reclaim((void *)f_28440,2,av);} a=C_alloc(24); t2=C_mutate((C_word*)lf[951]+1 /* (set! ##sys#primordial-thread ...) */,t1); t3=C_mutate((C_word*)lf[939]+1 /* (set! ##sys#current-thread ...) */,C_fast_retrieve(lf[951])); t4=C_mutate((C_word*)lf[1160]+1 /* (set! ##sys#make-mutex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28443,a[2]=((C_word)li871),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[1162]+1 /* (set! ##sys#schedule ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28449,a[2]=((C_word)li872),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[1163]+1 /* (set! ##sys#thread-yield! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28458,a[2]=((C_word)li875),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[1164]+1 /* (set! ##sys#kill-other-threads ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28479,a[2]=((C_word)li876),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[1165]+1 /* (set! chicken.base#sleep-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28485,a[2]=((C_word)li877),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[197]+1 /* (set! chicken.base#sleep ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28488,a[2]=((C_word)li878),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[1167]+1 /* (set! ##sys#context-switch ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_context_switch,a[2]=((C_word)li879),tmp=(C_word)a,a+=3,tmp)); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28500,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5682: scheme#make-vector */ t12=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t12; av2[1]=t11; av2[2]=C_fix(256); av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} /* ##sys#make-mutex in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_28443,4,av);} a=C_alloc(8); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_record7(&a,7,lf[1161],t2,t3,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_UNDEFINED); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#schedule in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28449,2,av);} t2=C_slot(C_fast_retrieve(lf[939]),C_fix(1)); /* library.scm:5653: g6568 */ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* ##sys#thread-yield! in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_28458,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28464,a[2]=((C_word)li874),tmp=(C_word)a,a+=3,tmp); /* library.scm:5656: ##sys#call-with-current-continuation */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=t2; C_call_cc(3,av2);}} /* a28463 in ##sys#thread-yield! in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_28464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_28464,3,av);} a=C_alloc(4); t3=C_fast_retrieve(lf[939]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28473,a[2]=t2,a[3]=((C_word)li873),tmp=(C_word)a,a+=4,tmp); t5=C_i_setslot(C_fast_retrieve(lf[939]),C_fix(1),t4); /* library.scm:5660: ##sys#schedule */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1162]); C_word *av2=av; av2[0]=*((C_word*)lf[1162]+1); av2[1]=t1; tp(2,av2);}} /* a28472 in a28463 in ##sys#thread-yield! in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_28473(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28473,2,av);} /* library.scm:5659: return */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=t1; av2[2]=C_SCHEME_UNDEFINED; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* ##sys#kill-other-threads in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28479,3,av);} /* library.scm:5663: thunk */ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* chicken.base#sleep-hook in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28485,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_process_sleep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#sleep in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_28488,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28492,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:5673: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[1166]; tp(4,av2);}} /* k28490 in chicken.base#sleep in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_28492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_28492,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28495,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5674: chicken.base#sleep-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1165]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[1165]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k28493 in k28490 in chicken.base#sleep in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_28495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28495,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_28500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(55,c,4)))){ C_save_and_reclaim((void *)f_28500,2,av);} a=C_alloc(55); t2=C_mutate((C_word*)lf[1168]+1 /* (set! ##sys#signal-vector ...) */,t1); t3=C_mutate((C_word*)lf[1169]+1 /* (set! ##sys#interrupt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28502,a[2]=((C_word)li881),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[697]+1 /* (set! ##sys#dispatch-interrupt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28552,a[2]=((C_word)li882),tmp=(C_word)a,a+=3,tmp)); t5=C_fix(0); t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_mutate((C_word*)lf[702]+1 /* (set! ##sys#update-errno ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28559,a[2]=t6,a[3]=((C_word)li883),tmp=(C_word)a,a+=4,tmp)); t8=C_mutate((C_word*)lf[1172]+1 /* (set! ##sys#errno ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28563,a[2]=t6,a[3]=((C_word)li884),tmp=(C_word)a,a+=4,tmp)); t9=C_fast_retrieve(lf[854]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28577,a[2]=((C_word)li886),tmp=(C_word)a,a+=3,tmp)); t15=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28624,a[2]=((C_word)li888),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[854]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28669,a[2]=t9,a[3]=t11,a[4]=t13,a[5]=((C_word)li893),tmp=(C_word)a,a+=6,tmp)); t17=C_a_i_provide(&a,1,lf[1183]); t18=C_mutate((C_word*)lf[1184]+1 /* (set! chicken.process-context#change-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29099,a[2]=((C_word)li894),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[1187]+1 /* (set! ##sys#change-directory-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29129,a[2]=((C_word)li895),tmp=(C_word)a,a+=3,tmp)); t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29137,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31228,a[2]=((C_word)li973),tmp=(C_word)a,a+=3,tmp); t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31250,a[2]=((C_word)li974),tmp=(C_word)a,a+=3,tmp); /* library.scm:5900: chicken.base#getter-with-setter */ t23=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t23; av2[1]=t20; av2[2]=t21; av2[3]=t22; av2[4]=lf[1364]; ((C_proc)(void*)(*((C_word*)t23+1)))(5,av2);}} /* ##sys#interrupt-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_28502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_28502,4,av);} a=C_alloc(10); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28506,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28533,a[2]=t6,a[3]=((C_word)li880),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_28533(t8,t4,t2);} /* k28504 in ##sys#interrupt-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_28506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28506,2,av);} t2=C_slot(C_fast_retrieve(lf[1170]),C_fix(0)); if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ /* library.scm:5692: ##sys#run-pending-finalizers */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1171]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[1171]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ if(C_truep(C_i_closurep(((C_word*)t0)[3]))){ /* library.scm:5693: state */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* library.scm:5694: ##sys#context-switch */{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; C_context_switch(3,av2);}}}} /* loop in ##sys#interrupt-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_fcall f_28533(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_28533,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(t2)){ t3=C_slot(C_fast_retrieve(lf[1168]),t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28543,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ /* library.scm:5689: handler */ t5=t3;{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t5=C_i_pending_interrupt(C_SCHEME_FALSE); /* library.scm:5690: loop */ t7=t1; t8=t5; t1=t7; t2=t8; goto loop;}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k28541 in loop in ##sys#interrupt-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_28543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28543,2,av);} t2=C_i_pending_interrupt(C_SCHEME_FALSE); /* library.scm:5690: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_28533(t3,((C_word*)t0)[3],t2);} /* ##sys#dispatch-interrupt in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_28552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_28552,3,av);} t3=C_i_pending_interrupt(C_SCHEME_FALSE); /* library.scm:5697: ##sys#interrupt-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1169]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[1169]+1); av2[1]=t1; av2[2]=t3; av2[3]=t2; tp(4,av2);}} /* ##sys#update-errno in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_28559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28559,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_fix((C_word)errno)); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#errno in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_28563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28563,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* readln in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_fcall f_28577(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_28577,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28581,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:5726: chicken.base#open-output-string */ t4=*((C_word*)lf[213]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k28579 in readln in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_28581(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_28581,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28588,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:5727: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k28586 in k28579 in readln in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_28588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_28588,2,av);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28590,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li885),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_28590(t5,((C_word*)t0)[4],t1);} /* doloop6615 in k28586 in k28579 in readln in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_fcall f_28590(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_28590,3,t0,t1,t2);} a=C_alloc(5); t3=C_eofp(t2); t4=(C_truep(t3)?t3:C_i_char_equalp(C_make_character(10),t2)); if(C_truep(t4)){ if(C_truep(C_eofp(t2))){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* library.scm:5729: chicken.base#get-output-string */ t5=*((C_word*)lf[211]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28612,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5730: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word av2[4]; av2[0]=*((C_word*)lf[861]+1); av2[1]=t5; av2[2]=t2; av2[3]=((C_word*)t0)[2]; tp(4,av2);}}} /* k28610 in doloop6615 in k28586 in k28579 in readln in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_28612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_28612,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28619,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:5727: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k28617 in k28610 in doloop6615 in k28586 in k28579 in readln in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_28619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28619,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_28590(t2,((C_word*)t0)[3],t1);} /* read-escaped-sexp in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_fcall f_28624(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_28624,3,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28628,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ /* library.scm:5732: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}} else{ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_28628(2,av2);}}} /* k28626 in read-escaped-sexp in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_28628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_28628,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28631,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5733: read */ t3=*((C_word*)lf[149]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k28629 in k28626 in read-escaped-sexp in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_28631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_28631,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28634,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28639,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word)li887),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_28639(t7,t3);} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k28632 in k28629 in k28626 in read-escaped-sexp in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_28634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28634,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop in k28629 in k28626 in read-escaped-sexp in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_fcall f_28639(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_28639,2,t0,t1);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28643,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* library.scm:5737: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k28641 in loop in k28629 in k28626 in read-escaped-sexp in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_28643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_28643,2,av);} if(C_truep(C_eofp(t1))){ /* library.scm:5739: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[1173]; tp(4,av2);}} else{ t2=C_i_char_equalp(C_make_character(125),t1); if(C_truep(C_i_not(t2))){ /* library.scm:5740: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_28639(t3,((C_word*)t0)[2]);} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_28669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_28669,4,av);} a=C_alloc(6); t4=C_i_char_equalp(C_make_character(60),t2); if(C_truep(C_i_not(t4))){ /* library.scm:5743: old */ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28682,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* ##sys#read-char/port */ t6=C_fast_retrieve(lf[765]);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_28682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_28682,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28685,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:5746: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} /* k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_28685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_28685,2,av);} a=C_alloc(6); switch(t1){ case C_make_character(60): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28694,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5748: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);} case C_make_character(35): t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28807,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* library.scm:5773: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);} default: /* library.scm:5828: ##sys#read-error */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[773]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[773]+1); av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[2]; av2[3]=lf[1182]; tp(4,av2);}}} /* k28692 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_28694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_28694,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28697,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5749: chicken.base#open-output-string */ t3=*((C_word*)lf[213]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k28695 in k28692 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_28697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_28697,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28700,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:5750: readln */ f_28577(t3,((C_word*)t0)[2]);} /* k28698 in k28695 in k28692 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_28700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_28700,2,av);} a=C_alloc(10); t2=t1; t3=C_SCHEME_FALSE; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_eofp(t2); t6=(C_truep(t5)?C_fix(0):C_i_string_length(t2)); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28706,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t8=C_eqp(t6,C_fix(0)); if(C_truep(t8)){ /* library.scm:5755: ##sys#read-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[776]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[776]+1); av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[1176]; tp(4,av2);}} else{ t9=C_fixnum_difference(t6,C_fix(1)); t10=C_i_string_ref(t2,t9); t11=C_u_i_char_equalp(t10,C_make_character(32)); if(C_truep(t11)){ if(C_truep(t11)){ /* library.scm:5759: ##sys#read-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[776]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[776]+1); av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[1177]; tp(4,av2);}} else{ t12=C_SCHEME_UNDEFINED; t13=t7;{ C_word *av2=av; av2[0]=t13; av2[1]=t12; f_28706(2,av2);}}} else{ t12=C_fixnum_difference(t6,C_fix(1)); t13=C_i_string_ref(t2,t12); if(C_truep(C_u_i_char_equalp(t13,C_make_character(9)))){ /* library.scm:5759: ##sys#read-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[776]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[776]+1); av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[1177]; tp(4,av2);}} else{ t14=C_SCHEME_UNDEFINED; t15=t7;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; f_28706(2,av2);}}}}} /* k28704 in k28698 in k28695 in k28692 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_28706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_28706,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28713,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* library.scm:5762: readln */ f_28577(t2,((C_word*)t0)[4]);} /* k28711 in k28704 in k28698 in k28695 in k28692 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_28713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_28713,2,av);} a=C_alloc(11); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28715,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word)li889),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_28715(t5,((C_word*)t0)[7],t1);} /* doloop6650 in k28711 in k28704 in k28698 in k28695 in k28692 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_fcall f_28715(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){ C_save_and_reclaim_args((void *)trf_28715,3,t0,t1,t2);} a=C_alloc(17); t3=C_eofp(t2); t4=(C_truep(t3)?t3:C_i_string_equal_p(((C_word*)t0)[2],t2)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28728,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_eofp(t2))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28741,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t7=C_a_i_list(&a,3,lf[1174],((C_word*)t0)[2],lf[1175]); /* library.scm:5717: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[932]); C_word av2[3]; av2[0]=*((C_word*)lf[932]+1); av2[1]=t6; av2[2]=t7; tp(3,av2);}} else{ /* library.scm:5767: chicken.base#get-output-string */ t6=*((C_word*)lf[211]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t1; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28744,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)((C_word*)t0)[7])[1])){ /* library.scm:5769: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word av2[4]; av2[0]=*((C_word*)lf[861]+1); av2[1]=t5; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} else{ t6=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_TRUE); t7=t5;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; f_28744(2,av2);}}}} /* k28726 in doloop6650 in k28711 in k28704 in k28698 in k28695 in k28692 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_28728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28728,2,av);} /* library.scm:5767: chicken.base#get-output-string */ t2=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k28739 in doloop6650 in k28711 in k28704 in k28698 in k28695 in k28692 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_28741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_28741,2,av);} /* library.scm:5765: ##sys#read-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[776]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[776]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k28742 in doloop6650 in k28711 in k28704 in k28698 in k28695 in k28692 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_28744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_28744,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28747,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:5771: display */ t3=*((C_word*)lf[153]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k28745 in k28742 in doloop6650 in k28711 in k28704 in k28698 in k28695 in k28692 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_28747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_28747,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28754,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:5762: readln */ f_28577(t2,((C_word*)t0)[5]);} /* k28752 in k28745 in k28742 in doloop6650 in k28711 in k28704 in k28698 in k28695 in k28692 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in ... */ static void C_ccall f_28754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28754,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; f_28715(t2,((C_word*)t0)[3],t1);} /* k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_28807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_28807,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28810,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5774: readln */ f_28577(t2,((C_word*)t0)[2]);} /* k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_28810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_28810,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28813,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:5775: chicken.base#open-output-string */ t4=*((C_word*)lf[213]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_28813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_28813,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28815,a[2]=t3,a[3]=((C_word)li890),tmp=(C_word)a,a+=4,tmp); t5=C_eofp(((C_word*)t0)[2]); t6=(C_truep(t5)?C_fix(0):C_i_string_length(((C_word*)t0)[2])); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28829,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); t8=C_eqp(t6,C_fix(0)); if(C_truep(t8)){ /* library.scm:5784: ##sys#read-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[776]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[776]+1); av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[1180]; tp(4,av2);}} else{ t9=C_fixnum_difference(t6,C_fix(1)); t10=C_i_string_ref(((C_word*)t0)[2],t9); t11=C_u_i_char_equalp(t10,C_make_character(32)); if(C_truep(t11)){ if(C_truep(t11)){ /* library.scm:5788: ##sys#read-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[776]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[776]+1); av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[1181]; tp(4,av2);}} else{ t12=C_SCHEME_UNDEFINED; t13=t7;{ C_word *av2=av; av2[0]=t13; av2[1]=t12; f_28829(2,av2);}}} else{ t12=C_fixnum_difference(t6,C_fix(1)); t13=C_i_string_ref(((C_word*)t0)[2],t12); if(C_truep(C_u_i_char_equalp(t13,C_make_character(9)))){ /* library.scm:5788: ##sys#read-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[776]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[776]+1); av2[1]=t7; av2[2]=((C_word*)t0)[3]; av2[3]=lf[1181]; tp(4,av2);}} else{ t14=C_SCHEME_UNDEFINED; t15=t7;{ C_word *av2=av; av2[0]=t15; av2[1]=t14; f_28829(2,av2);}}}}} /* get/clear-str in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_fcall f_28815(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_28815,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28819,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:5777: chicken.base#get-output-string */ t3=*((C_word*)lf[211]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k28817 in get/clear-str in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_28819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_28819,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28823,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:5778: chicken.base#open-output-string */ t4=*((C_word*)lf[213]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k28821 in k28817 in get/clear-str in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_ccall f_28823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_28823,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_28829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_28829,2,av);} a=C_alloc(11); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28834,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word)li892),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_28834(t5,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);} /* loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_fcall f_28834(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_28834,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_28838,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* library.scm:5793: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word av2[3]; av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} /* k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_ccall f_28838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_28838,2,av);} a=C_alloc(9); t2=t1; t3=C_eqp(t2,C_make_character(10)); t4=(C_truep(t3)?t3:C_eqp(t2,C_SCHEME_END_OF_FILE)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28850,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* library.scm:5796: get/clear-str */ t6=((C_word*)t0)[7]; f_28815(t6,t5);} else{ t5=C_eqp(t2,C_make_character(35)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28970,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* library.scm:5816: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[766]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[766]+1); av2[1]=t6; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29037,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5826: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[861]+1); av2[1]=t6; av2[2]=t2; av2[3]=((C_word*)((C_word*)t0)[8])[1]; tp(4,av2);}}}} /* k28848 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_28850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ C_save_and_reclaim((void *)f_28850,2,av);} a=C_alloc(17); t2=C_eofp(((C_word*)t0)[2]); t3=(C_truep(t2)?t2:C_i_string_equal_p(((C_word*)t0)[3],t1)); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28862,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); if(C_truep(C_eofp(((C_word*)t0)[2]))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28947,a[2]=t4,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t6=C_a_i_list(&a,3,lf[1174],((C_word*)t0)[3],lf[1175]); /* library.scm:5717: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[932]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[932]+1); av2[1]=t5; av2[2]=t6; tp(3,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_28862(2,av2);}}} else{ t4=C_a_i_cons(&a,2,t1,((C_word*)t0)[5]); t5=C_a_i_cons(&a,2,C_make_character(10),t4); /* library.scm:5814: loop */ t6=((C_word*)((C_word*)t0)[7])[1]; f_28834(t6,((C_word*)t0)[4],t5);}} /* k28860 in k28848 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_28862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_28862,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28869,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_i_cdr(((C_word*)t0)[3]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28875,a[2]=t5,a[3]=((C_word)li891),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_28875(t7,t2,t3,C_SCHEME_END_OF_LIST,lf[1179]);} /* k28867 in k28860 in k28848 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in ... */ static void C_ccall f_28869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_28869,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,2,lf[932],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* loop2 in k28860 in k28848 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in ... */ static void C_fcall f_28875(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_28875,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28889,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:5806: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[932]); C_word av2[3]; av2[0]=*((C_word*)lf[932]+1); av2[1]=t5; av2[2]=t3; tp(3,av2);}} else{ t5=C_i_car(t2); t6=C_i_stringp(t5); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28898,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,tmp); if(C_truep(t6)){ t8=t7; f_28898(t8,t6);} else{ t8=t2; t9=C_u_i_car(t8); t10=t7; f_28898(t10,C_charp(t9));}}} /* k28887 in loop2 in k28860 in k28848 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in ... */ static void C_ccall f_28889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_28889,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[1178],t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k28896 in loop2 in k28860 in k28848 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in ... */ static void C_fcall f_28898(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_28898,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]); /* library.scm:5808: loop2 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_28875(t7,((C_word*)t0)[5],t3,t6,((C_word*)t0)[6]);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28928,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* library.scm:5813: ##sys#print-to-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[932]); C_word av2[3]; av2[0]=*((C_word*)lf[932]+1); av2[1]=t6; av2[2]=((C_word*)t0)[3]; tp(3,av2);}}} /* k28926 in k28896 in loop2 in k28860 in k28848 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in ... */ static void C_ccall f_28928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ C_save_and_reclaim((void *)f_28928,2,av);} a=C_alloc(18); t2=C_a_i_list(&a,3,lf[1178],t1,((C_word*)t0)[2]); t3=C_a_i_list(&a,3,lf[1178],((C_word*)t0)[3],t2); /* library.scm:5810: loop2 */ t4=((C_word*)((C_word*)t0)[4])[1]; f_28875(t4,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t3);} /* k28945 in k28848 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_28947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_28947,2,av);} /* library.scm:5799: ##sys#read-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[776]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[776]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k28968 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_28970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_28970,2,av);} a=C_alloc(9); switch(t1){ case C_make_character(35): t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28979,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28986,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:5819: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[764]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[764]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; tp(3,av2);} case C_make_character(123): t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29003,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* library.scm:5821: read-escaped-sexp */ f_28624(t2,((C_word*)t0)[6],C_SCHEME_TRUE); default: t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29022,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* library.scm:5823: read-escaped-sexp */ f_28624(t2,((C_word*)t0)[6],C_SCHEME_FALSE);}} /* k28977 in k28968 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_28979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_28979,2,av);} /* library.scm:5820: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_28834(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k28984 in k28968 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_28986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_28986,2,av);} /* library.scm:5819: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[861]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; tp(4,av2);}} /* k29001 in k28968 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_29003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_29003,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29011,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:5822: get/clear-str */ t4=((C_word*)t0)[5]; f_28815(t4,t3);} /* k29009 in k29001 in k28968 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in ... */ static void C_ccall f_29011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_29011,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); /* library.scm:5821: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_28834(t4,((C_word*)t0)[5],t3);} /* k29020 in k28968 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_29022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_29022,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29030,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:5824: get/clear-str */ t4=((C_word*)t0)[5]; f_28815(t4,t3);} /* k29028 in k29020 in k28968 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in ... */ static void C_ccall f_29030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_29030,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); /* library.scm:5823: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_28834(t4,((C_word*)t0)[5],t3);} /* k29035 in k28836 in loop in k28827 in k28811 in k28808 in k28805 in k28683 in k28680 in ##sys#user-read-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_29037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29037,2,av);} /* library.scm:5827: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_28834(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* chicken.process-context#change-directory in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_29099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_29099,3,av);} a=C_alloc(4); t3=C_i_check_string_2(t2,lf[1185]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29106,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:5889: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[744]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[744]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[1185]; tp(4,av2);}} /* k29104 in chicken.process-context#change-directory in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_29106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_29106,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29109,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_chdir(t1); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29115,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:5891: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[702]); C_word *av2=av; av2[0]=*((C_word*)lf[702]+1); av2[1]=t5; tp(2,av2);}}} /* k29107 in k29104 in chicken.process-context#change-directory in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_29109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_29109,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29113 in k29104 in chicken.process-context#change-directory in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_29115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_29115,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29122,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29126,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t4=*((C_word*)lf[701]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=C_mpointer(&a,(void*)strerror(errno)); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k29120 in k29113 in k29104 in chicken.process-context#change-directory in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_29122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_29122,2,av);} /* library.scm:5892: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[698]; av2[3]=lf[1185]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k29124 in k29113 in k29104 in chicken.process-context#change-directory in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_29126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29126,2,av);} /* library.scm:5893: scheme#string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1186]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* ##sys#change-directory-hook in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_29129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29129,3,av);} /* library.scm:5897: change-directory */ t3=C_fast_retrieve(lf[1184]);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_29137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,c,4)))){ C_save_and_reclaim((void *)f_29137,2,av);} a=C_alloc(30); t2=C_mutate((C_word*)lf[1188]+1 /* (set! chicken.process-context#current-directory ...) */,t1); t3=C_mutate((C_word*)lf[1189]+1 /* (set! chicken.process-context#get-environment-variable ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29139,a[2]=((C_word)li896),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[1190]+1 /* (set! chicken.process-context#set-environment-variable! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29154,a[2]=((C_word)li897),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[1192]+1 /* (set! chicken.process-context#unset-environment-variable! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29171,a[2]=((C_word)li898),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[1194]+1 /* (set! chicken.process-context#get-environment-variables ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29191,a[2]=((C_word)li901),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[1195]+1 /* (set! chicken.process-context#executable-pathname ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29257,a[2]=((C_word)li902),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[1196]+1 /* (set! chicken.process-context#argc+argv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29264,a[2]=((C_word)li903),tmp=(C_word)a,a+=3,tmp)); t9=C_SCHEME_FALSE; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_mutate((C_word*)lf[1197]+1 /* (set! chicken.process-context#argv ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29276,a[2]=t10,a[3]=((C_word)li905),tmp=(C_word)a,a+=4,tmp)); t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29316,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31226,a[2]=t12,tmp=(C_word)a,a+=3,tmp); /* library.scm:5974: argv */ t14=C_fast_retrieve(lf[1197]);{ C_word *av2=av; av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} /* chicken.process-context#get-environment-variable in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_29139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_29139,3,av);} a=C_alloc(9); t3=C_a_i_bytevector(&a,1,C_fix(3)); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29148,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=C_i_foreign_string_argumentp(t2); /* library.scm:5919: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[744]); C_word *av2=av; av2[0]=*((C_word*)lf[744]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} /* k29146 in chicken.process-context#get-environment-variable in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_29148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29148,2,av);} t2=stub6768(((C_word*)t0)[2],t1); /* library.scm:5919: ##sys#peek-c-string */ t3=*((C_word*)lf[701]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.process-context#set-environment-variable! in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_29154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_29154,4,av);} a=C_alloc(4); t4=C_i_check_string_2(t2,lf[1191]); t5=C_i_check_string_2(t3,lf[1191]); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29165,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:5925: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[744]); C_word *av2=av; av2[0]=*((C_word*)lf[744]+1); av2[1]=t6; av2[2]=t2; av2[3]=lf[1191]; tp(4,av2);}} /* k29163 in chicken.process-context#set-environment-variable! in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_29165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_29165,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29169,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:5926: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[744]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[744]+1); av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=lf[1191]; tp(4,av2);}} /* k29167 in k29163 in chicken.process-context#set-environment-variable! in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_29169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_29169,2,av);} t2=C_setenv(((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.process-context#unset-environment-variable! in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_29171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_29171,3,av);} a=C_alloc(3); t3=C_i_check_string_2(t2,lf[1193]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29179,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:5932: ##sys#make-c-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[744]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[744]+1); av2[1]=t4; av2[2]=t2; av2[3]=lf[1193]; tp(4,av2);}} /* k29177 in chicken.process-context#unset-environment-variable! in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_29179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_29179,2,av);} t2=C_unsetenv(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.process-context#get-environment-variables in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_29191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_29191,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29197,a[2]=t3,a[3]=((C_word)li900),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_29197(t5,t1,C_fix(0));} /* loop in chicken.process-context#get-environment-variables in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_fcall f_29197(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_29197,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29201,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=t2; t5=C_a_i_bytevector(&a,1,C_fix(3)); t6=C_i_foreign_fixnum_argumentp(t4); t7=stub6785(t5,t6); /* library.scm:5936: ##sys#peek-c-string */ t8=*((C_word*)lf[701]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t3; av2[2]=t7; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k29199 in loop in chicken.process-context#get-environment-variables in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_29201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_29201,2,av);} a=C_alloc(9); t2=t1; if(C_truep(t2)){ t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29209,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word)li899),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_29209(t6,((C_word*)t0)[4],C_fix(0));} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* scan in k29199 in loop in chicken.process-context#get-environment-variables in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_fcall f_29209(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_29209,3,t0,t1,t2);} a=C_alloc(7); t3=C_subchar(((C_word*)t0)[2],t2); if(C_truep(C_i_char_equalp(C_make_character(61),t3))){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29235,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* library.scm:5943: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[396]+1); av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(0); av2[4]=t2; tp(5,av2);}} else{ t4=C_fixnum_plus(t2,C_fix(1)); /* library.scm:5946: scan */ t6=t1; t7=t4; t1=t6; t2=t7; goto loop;}} /* k29225 in k29237 in k29233 in scan in k29199 in loop in chicken.process-context#get-environment-variables in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_29227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_29227,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29233 in scan in k29199 in loop in chicken.process-context#get-environment-variables in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_29235,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29239,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); t5=C_block_size(((C_word*)t0)[6]); /* library.scm:5944: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[396]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=t4; av2[4]=t5; tp(5,av2);}} /* k29237 in k29233 in scan in k29199 in loop in chicken.process-context#get-environment-variables in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_29239,2,av);} a=C_alloc(7); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29227,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* library.scm:5945: loop */ t6=((C_word*)((C_word*)t0)[5])[1]; f_29197(t6,t4,t5);} /* chicken.process-context#executable-pathname in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_29257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_29257,2,av);} a=C_alloc(5); t2=C_a_i_bytevector(&a,1,C_fix(3)); t3=stub6797(t2); /* library.scm:5956: ##sys#peek-and-free-c-string */ t4=*((C_word*)lf[1133]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* chicken.process-context#argc+argv in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_29264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_29264,2,av);} a=C_alloc(3); /* library.scm:5959: ##sys#values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=C_fix((C_word)C_main_argc); av2[3]=C_mpointer_or_false(&a,(void*)C_main_argv); C_values(4,av2);}} /* chicken.process-context#argv in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_29276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_29276,2,av);} a=C_alloc(10); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29284,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t3=C_fixnum_difference(C_fix((C_word)C_main_argc),C_fix(1)); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29290,a[2]=t5,a[3]=((C_word)li904),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_29290(t7,t2,t3,C_SCHEME_END_OF_LIST);}} /* k29282 in chicken.process-context#argv in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_29284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_29284,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop6809 in chicken.process-context#argv in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_fcall f_29290(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_29290,4,t0,t1,t2,t3);} a=C_alloc(11); if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_fixnum_difference(t2,C_fix(1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29312,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=t2; t8=C_a_i_bytevector(&a,1,C_fix(3)); t9=stub6805(t8,t7); /* library.scm:5963: ##sys#peek-c-string */ t10=*((C_word*)lf[701]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t6; av2[2]=t9; av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* k29310 in doloop6809 in chicken.process-context#argv in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_29312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_29312,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); t3=((C_word*)((C_word*)t0)[3])[1]; f_29290(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_29316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_29316,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[1198]+1 /* (set! chicken.process-context#program-name ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29320,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31138,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:5983: argv */ t5=C_fast_retrieve(lf[1197]);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_29320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_29320,2,av);} a=C_alloc(20); t2=C_mutate((C_word*)lf[1199]+1 /* (set! chicken.process-context#command-line-arguments ...) */,t1); t3=C_a_i_provide(&a,1,lf[1200]); t4=C_mutate((C_word*)lf[1201]+1 /* (set! chicken.gc#current-gc-milliseconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29322,a[2]=((C_word)li906),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[1202]+1 /* (set! chicken.gc#set-gc-report! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29325,a[2]=((C_word)li907),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[1203]+1 /* (set! chicken.gc#memory-statistics ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29328,a[2]=((C_word)li908),tmp=(C_word)a,a+=3,tmp)); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29353,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t8=C_fixnum_times(C_fix(2),C_fix((C_word)C_max_pending_finalizers)); t9=C_fixnum_plus(t8,C_fix(1)); /* library.scm:6031: ##sys#make-vector */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[670]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[670]+1); av2[1]=t7; av2[2]=t9; av2[3]=C_SCHEME_UNDEFINED; tp(4,av2);}} /* chicken.gc#current-gc-milliseconds in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_29322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_29322,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_accumulated_gc_time(); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.gc#set-gc-report! in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_29325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_29325,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_set_gc_report(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.gc#memory-statistics in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_29328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_29328,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29332,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:6021: ##sys#gc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[313]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[313]+1); av2[1]=t2; av2[2]=C_SCHEME_TRUE; tp(3,av2);}} /* k29330 in chicken.gc#memory-statistics in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_29332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_29332,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29335,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:6022: ##sys#memory-info */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[320]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[320]+1); av2[1]=t3; tp(2,av2);}} /* k29333 in k29330 in chicken.gc#memory-statistics in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ C_save_and_reclaim((void *)f_29335,2,av);} a=C_alloc(4); t2=C_slot(t1,C_fix(0)); t3=C_fixnum_difference(t2,((C_word*)t0)[2]); t4=C_slot(t1,C_fix(1)); t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_vector3(&a,3,t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_29353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_29353,2,av);} a=C_alloc(15); t2=C_mutate((C_word*)lf[1170]+1 /* (set! ##sys#pending-finalizers ...) */,t1); t3=C_i_set_i_slot(C_fast_retrieve(lf[1170]),C_fix(0),C_fix(0)); t4=C_mutate((C_word*)lf[1204]+1 /* (set! ##sys#set-finalizer! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_register_finalizer,a[2]=((C_word)li909),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[1205]+1 /* (set! chicken.gc#set-finalizer! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29359,a[2]=((C_word)li910),tmp=(C_word)a,a+=3,tmp)); t6=C_SCHEME_FALSE; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_mutate((C_word*)lf[1171]+1 /* (set! ##sys#run-pending-finalizers ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29424,a[2]=t7,a[3]=((C_word)li919),tmp=(C_word)a,a+=4,tmp)); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29573,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:6100: chicken.base#make-parameter */ t10=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* chicken.gc#set-finalizer! in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_29359(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_29359,4,av);} a=C_alloc(11); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29363,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=C_i_live_finalizer_count(); if(C_truep(C_fixnum_greater_or_equal_p(t5,C_fix((C_word)C_max_pending_finalizers)))){ t6=C_fixnum_times(C_fix(2),C_fix((C_word)C_max_pending_finalizers)); if(C_truep(C_resize_pending_finalizers(t6))){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29380,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t8=C_fixnum_times(C_fix(2),C_fix((C_word)C_max_pending_finalizers)); t9=C_fixnum_plus(t8,C_fix(1)); /* library.scm:6043: ##sys#vector-resize */ f_18070(t7,C_fast_retrieve(lf[1170]),t9,C_SCHEME_UNDEFINED);} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29410,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_debug_modep())){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29420,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=C_i_live_finalizer_count(); /* library.scm:6059: string-append */ t10=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t8; av2[2]=lf[1209]; av2[3]=t9; av2[4]=lf[1210]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ /* library.scm:6064: ##sys#force-finalizers */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[954]); C_word *av2=av; av2[0]=*((C_word*)lf[954]+1); av2[1]=t4; tp(2,av2);}}}} else{ /* library.scm:6065: ##sys#set-finalizer! */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1204]); C_word *av2=av; av2[0]=*((C_word*)lf[1204]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; tp(4,av2);}}} /* k29361 in chicken.gc#set-finalizer! in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_29363,2,av);} /* library.scm:6065: ##sys#set-finalizer! */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1204]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[1204]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* k29378 in chicken.gc#set-finalizer! in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_29380,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[1170]+1 /* (set! ##sys#pending-finalizers ...) */,t1); if(C_truep(C_i_debug_modep())){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29390,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29394,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=C_i_live_finalizer_count(); /* library.scm:6050: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} else{ /* library.scm:6065: ##sys#set-finalizer! */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1204]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[1204]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; tp(4,av2);}}} /* k29388 in k29378 in chicken.gc#set-finalizer! in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_29390,2,av);} /* library.scm:6047: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k29392 in k29378 in chicken.gc#set-finalizer! in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_29394,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29398,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:6053: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=C_fix((C_word)C_max_pending_finalizers); tp(3,av2);}} /* k29396 in k29392 in k29378 in chicken.gc#set-finalizer! in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_29398(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_29398,2,av);} /* library.scm:6048: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1206]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[1207]; av2[5]=t1; av2[6]=lf[1208]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k29408 in chicken.gc#set-finalizer! in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29410(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_29410,2,av);} /* library.scm:6064: ##sys#force-finalizers */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[954]); C_word *av2=av; av2[0]=*((C_word*)lf[954]+1); av2[1]=((C_word*)t0)[2]; tp(2,av2);}} /* k29418 in chicken.gc#set-finalizer! in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_29420,2,av);} /* library.scm:6058: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_29424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_29424,3,av);} a=C_alloc(15); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29428,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t4=t3; f_29428(t4,C_SCHEME_UNDEFINED);} else{ t4=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t5=C_slot(C_fast_retrieve(lf[1170]),C_fix(0)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29456,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t6,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_debug_modep())){ t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29555,a[2]=t7,tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29559,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* library.scm:6077: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[601]+1); av2[1]=t9; av2[2]=t6; tp(3,av2);}} else{ t8=t7;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; f_29456(2,av2);}}}} /* k29426 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_fcall f_29428(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_29428,2,t0,t1);} t2=C_i_not(((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_closurep(((C_word*)t0)[2]))){ /* library.scm:6097: state */ t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[2])){ /* library.scm:6098: ##sys#context-switch */{ C_word av2[3]; av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; C_context_switch(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}} /* k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_29456,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29459,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29468,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word)li918),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_29468(t6,t2,C_fix(0));} /* k29457 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_29459,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29462,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:6093: vector-fill! */ t3=*((C_word*)lf[97]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_fast_retrieve(lf[1170]); av2[3]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k29460 in k29457 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_29462(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_29462,2,av);} t2=C_i_set_i_slot(C_fast_retrieve(lf[1170]),C_fix(0),C_fix(0)); t3=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t4=((C_word*)t0)[3]; f_29428(t4,t3);} /* doloop6884 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_fcall f_29468(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_29468,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_fixnum_times(t2,C_fix(2)); t4=C_fixnum_plus(C_fix(1),t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29481,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29493,a[2]=t5,a[3]=((C_word)li917),tmp=(C_word)a,a+=4,tmp); /* library.scm:6089: scheme#call-with-current-continuation */ t8=*((C_word*)lf[132]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} /* k29479 in doloop6884 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_29481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_29481,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29484,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:6088: g6891 */ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k29482 in k29479 in doloop6884 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_ccall f_29484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29484,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_29468(t3,((C_word*)t0)[4],t2);} /* a29492 in doloop6884 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_29493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_29493,3,av);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29499,a[2]=t2,a[3]=((C_word)li912),tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29511,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li916),tmp=(C_word)a,a+=5,tmp); /* library.scm:6089: chicken.condition#with-exception-handler */ t5=C_fast_retrieve(lf[912]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t1; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a29498 in a29492 in doloop6884 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_ccall f_29499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_29499,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29505,a[2]=t2,a[3]=((C_word)li911),tmp=(C_word)a,a+=4,tmp); /* library.scm:6089: k6888 */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a29504 in a29498 in a29492 in doloop6884 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_29505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_29505,2,av);} /* library.scm:6090: ##sys#show-exception-warning */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1049]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[1049]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[1211]; av2[4]=C_SCHEME_FALSE; tp(5,av2);}} /* a29510 in a29492 in doloop6884 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_ccall f_29511(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_29511,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29517,a[2]=((C_word*)t0)[2],a[3]=((C_word)li913),tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29534,a[2]=((C_word*)t0)[3],a[3]=((C_word)li915),tmp=(C_word)a,a+=4,tmp); /* library.scm:6089: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a29516 in a29510 in a29492 in doloop6884 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_29517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29517,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_slot(C_fast_retrieve(lf[1170]),t2); t4=C_slot(C_fast_retrieve(lf[1170]),((C_word*)t0)[2]); /* library.scm:6089: g6895 */ t5=t3;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* a29533 in a29510 in a29492 in doloop6884 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_29534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_29534,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29540,a[2]=t2,a[3]=((C_word)li914),tmp=(C_word)a,a+=4,tmp); /* library.scm:6089: k6888 */ t4=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a29539 in a29533 in a29510 in a29492 in doloop6884 in k29454 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_29540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_29540,2,av);}{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[2]; C_apply_values(3,av2);}} /* k29553 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_29555,2,av);} /* library.scm:6076: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k29557 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_29559,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29563,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_live_finalizer_count(); /* library.scm:6079: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k29561 in k29557 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_29563,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29567,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_i_allocated_finalizer_count(); /* library.scm:6082: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k29565 in k29561 in k29557 in ##sys#run-pending-finalizers in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_29567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_29567,2,av);} /* library.scm:6077: string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1212]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[1213]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[1214]; av2[7]=t1; av2[8]=lf[1215]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_29573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(26,c,6)))){ C_save_and_reclaim((void *)f_29573,2,av);} a=C_alloc(26); t2=C_mutate((C_word*)lf[955]+1 /* (set! chicken.gc#force-finalizers ...) */,t1); t3=C_mutate((C_word*)lf[954]+1 /* (set! ##sys#force-finalizers ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29575,a[2]=((C_word)li921),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[1216]+1 /* (set! chicken.gc#gc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29603,a[2]=((C_word)li922),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[814]+1 /* (set! ##sys#list->vector ...) */,*((C_word*)lf[94]+1)); t6=C_mutate((C_word*)lf[368]+1 /* (set! ##sys#list ...) */,*((C_word*)lf[42]+1)); t7=C_mutate((C_word*)lf[1217]+1 /* (set! ##sys#length ...) */,*((C_word*)lf[43]+1)); t8=C_mutate((C_word*)lf[1218]+1 /* (set! ##sys#cons ...) */,*((C_word*)lf[8]+1)); t9=C_mutate((C_word*)lf[254]+1 /* (set! ##sys#append ...) */,*((C_word*)lf[374]+1)); t10=C_mutate((C_word*)lf[1219]+1 /* (set! ##sys#vector ...) */,*((C_word*)lf[96]+1)); t11=C_mutate((C_word*)lf[1220]+1 /* (set! ##sys#apply ...) */,*((C_word*)lf[129]+1)); t12=C_mutate((C_word*)lf[1221]+1 /* (set! ##sys#values ...) */,*((C_word*)lf[130]+1)); t13=C_mutate((C_word*)lf[1222]+1 /* (set! ##sys#equal? ...) */,*((C_word*)lf[6]+1)); t14=C_mutate((C_word*)lf[1223]+1 /* (set! ##sys#car ...) */,*((C_word*)lf[9]+1)); t15=C_mutate((C_word*)lf[1224]+1 /* (set! ##sys#cdr ...) */,*((C_word*)lf[10]+1)); t16=C_mutate((C_word*)lf[1225]+1 /* (set! ##sys#pair? ...) */,*((C_word*)lf[7]+1)); t17=C_mutate((C_word*)lf[1226]+1 /* (set! ##sys#vector? ...) */,*((C_word*)lf[89]+1)); t18=C_mutate((C_word*)lf[1227]+1 /* (set! ##sys#vector->list ...) */,*((C_word*)lf[95]+1)); t19=C_mutate((C_word*)lf[1228]+1 /* (set! ##sys#vector-length ...) */,*((C_word*)lf[90]+1)); t20=C_mutate((C_word*)lf[1229]+1 /* (set! ##sys#vector-ref ...) */,*((C_word*)lf[91]+1)); t21=C_mutate((C_word*)lf[1230]+1 /* (set! ##sys#>= ...) */,*((C_word*)lf[75]+1)); t22=C_mutate((C_word*)lf[1231]+1 /* (set! ##sys#= ...) */,*((C_word*)lf[72]+1)); t23=C_mutate((C_word*)lf[1232]+1 /* (set! ##sys#+ ...) */,*((C_word*)lf[64]+1)); t24=C_mutate((C_word*)lf[1233]+1 /* (set! ##sys#eq? ...) */,*((C_word*)lf[4]+1)); t25=C_mutate((C_word*)lf[1234]+1 /* (set! ##sys#eqv? ...) */,*((C_word*)lf[5]+1)); t26=C_mutate((C_word*)lf[1235]+1 /* (set! ##sys#list? ...) */,*((C_word*)lf[55]+1)); t27=C_mutate((C_word*)lf[1236]+1 /* (set! ##sys#null? ...) */,*((C_word*)lf[41]+1)); t28=C_mutate((C_word*)lf[1237]+1 /* (set! ##sys#map-n ...) */,*((C_word*)lf[171]+1)); t29=C_mutate((C_word*)lf[1238]+1 /* (set! ##sys#make-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29646,a[2]=((C_word)li923),tmp=(C_word)a,a+=3,tmp)); t30=C_a_i_provide(&a,1,lf[1251]); t31=C_mutate((C_word*)lf[1252]+1 /* (set! chicken.plist#put! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29910,a[2]=((C_word)li924),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate((C_word*)lf[1254]+1 /* (set! chicken.plist#get ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29916,a[2]=((C_word)li925),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate((C_word*)lf[1256]+1 /* (set! ##sys#put! ...) */,C_fast_retrieve(lf[1252])); t34=C_mutate((C_word*)lf[1257]+1 /* (set! ##sys#get ...) */,C_fast_retrieve(lf[1254])); t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29935,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:6234: chicken.base#getter-with-setter */ t36=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t36; av2[1]=t35; av2[2]=C_fast_retrieve(lf[1254]); av2[3]=C_fast_retrieve(lf[1252]); ((C_proc)(void*)(*((C_word*)t36+1)))(4,av2);}} /* ##sys#force-finalizers in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_29575,2,av);} a=C_alloc(6); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29581,a[2]=t3,a[3]=((C_word)li920),tmp=(C_word)a,a+=4,tmp)); t5=((C_word*)t3)[1]; f_29581(t5,t1);} /* loop in ##sys#force-finalizers in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_fcall f_29581(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_29581,2,t0,t1);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29585,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:6104: ##sys#gc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[313]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[313]+1); av2[1]=t2; tp(2,av2);}} /* k29583 in loop in ##sys#force-finalizers in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_29585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_29585,2,av);} a=C_alloc(4); t2=C_slot(C_fast_retrieve(lf[1170]),C_fix(0)); if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29594,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:6106: ##sys#run-pending-finalizers */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1171]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[1171]+1); av2[1]=t3; av2[2]=C_SCHEME_FALSE; tp(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k29592 in k29583 in loop in ##sys#force-finalizers in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_ccall f_29594(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_29594,2,av);} /* library.scm:6107: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_29581(t2,((C_word*)t0)[3]);} /* chicken.gc#gc in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_29603,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); if(C_truep(t4)){ /* library.scm:6113: ##sys#force-finalizers */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[954]); C_word *av2=av; av2[0]=*((C_word*)lf[954]+1); av2[1]=t1; tp(2,av2);}} else{ /* library.scm:6114: ##sys#gc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[313]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[313]+1); av2[1]=t1; av2[2]=t4; tp(3,av2);}}} else{ /* library.scm:6114: ##sys#gc */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[313]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[313]+1); av2[1]=t1; av2[2]=C_SCHEME_FALSE; tp(3,av2);}}} /* ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_29646,6,av);} a=C_alloc(6); if(C_truep(C_immp(t2))){ /* library.scm:6147: ##sys#signal-hook */ t6=C_fast_retrieve(lf[194]);{ C_word *av2=av; av2[0]=t6; av2[1]=t1; av2[2]=lf[258]; av2[3]=t5; av2[4]=lf[1239]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t6=C_i_vectorp(t2); t7=(C_truep(t6)?t6:C_i_pairp(t2)); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29668,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t9=C_block_size(t2); /* library.scm:6149: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t8; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t9; av2[5]=t5; tp(6,av2);}} else{ t8=(C_truep(C_blockp(t2))?C_bytevectorp(t2):C_SCHEME_FALSE); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29681,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t10=C_block_size(t2); /* library.scm:6156: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t9; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t10; av2[5]=t5; tp(6,av2);}} else{ if(C_truep(C_structurep(t2))){ t9=C_slot(t2,C_fix(0)); t10=C_eqp(t9,lf[1240]); if(C_truep(t10)){ t11=C_slot(t2,C_fix(1)); t12=t11; t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29706,a[2]=t12,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t14=C_block_size(t12); /* library.scm:6162: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t13; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t14; av2[5]=t5; tp(6,av2);}} else{ t11=C_eqp(t9,lf[1241]); if(C_truep(t11)){ t12=C_slot(t2,C_fix(1)); t13=t12; t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29722,a[2]=t1,a[3]=t13,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t15=C_block_size(t13); /* library.scm:6166: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t14; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t15; av2[5]=t5; tp(6,av2);}} else{ t12=C_eqp(t9,lf[1242]); if(C_truep(t12)){ t13=C_slot(t2,C_fix(1)); t14=t13; t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29738,a[2]=t14,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t16=C_block_size(t14); /* library.scm:6170: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t15; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t16; av2[5]=t5; tp(6,av2);}} else{ t13=C_eqp(t9,lf[1243]); if(C_truep(t13)){ t14=C_slot(t2,C_fix(1)); t15=t14; t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29754,a[2]=t1,a[3]=t15,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t17=C_block_size(t15); /* library.scm:6174: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t16; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t17; av2[5]=t5; tp(6,av2);}} else{ t14=C_eqp(t9,lf[1244]); if(C_truep(t14)){ t15=C_slot(t2,C_fix(1)); t16=t15; t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29770,a[2]=t16,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t18=C_block_size(t16); /* library.scm:6178: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t17; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t18; av2[5]=t5; tp(6,av2);}} else{ t15=C_eqp(t9,lf[1245]); if(C_truep(t15)){ t16=C_slot(t2,C_fix(1)); t17=t16; t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29786,a[2]=t1,a[3]=t17,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t19=C_block_size(t17); /* library.scm:6182: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t18; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t19; av2[5]=t5; tp(6,av2);}} else{ t16=C_eqp(t9,lf[1246]); if(C_truep(t16)){ t17=C_slot(t2,C_fix(1)); t18=t17; t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29802,a[2]=t18,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t20=C_block_size(t18); /* library.scm:6186: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t19; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t20; av2[5]=t5; tp(6,av2);}} else{ t17=C_eqp(t9,lf[1247]); if(C_truep(t17)){ t18=C_slot(t2,C_fix(1)); t19=t18; t20=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29818,a[2]=t1,a[3]=t19,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t21=C_block_size(t19); /* library.scm:6190: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t20; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t21; av2[5]=t5; tp(6,av2);}} else{ t18=C_eqp(t9,lf[1248]); if(C_truep(t18)){ t19=C_slot(t2,C_fix(1)); t20=t19; t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29834,a[2]=t20,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t22=C_block_size(t20); /* library.scm:6194: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t21; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t22; av2[5]=t5; tp(6,av2);}} else{ t19=C_eqp(t9,lf[1249]); if(C_truep(t19)){ t20=C_slot(t2,C_fix(1)); t21=t20; t22=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29850,a[2]=t1,a[3]=t21,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t23=C_block_size(t21); /* library.scm:6198: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t22; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t23; av2[5]=t5; tp(6,av2);}} else{ t20=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29857,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t21=C_block_size(t2); t22=C_fixnum_difference(t21,C_fix(1)); /* library.scm:6202: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t20; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t22; av2[5]=t5; tp(6,av2);}}}}}}}}}}}} else{ if(C_truep(C_i_stringp(t2))){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29898,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t10=C_block_size(t2); /* library.scm:6205: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[334]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[334]+1); av2[1]=t9; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t10; av2[5]=t5; tp(6,av2);}} else{ /* library.scm:6208: ##sys#signal-hook */ t9=C_fast_retrieve(lf[194]);{ C_word *av2=av; av2[0]=t9; av2[1]=t1; av2[2]=lf[258]; av2[3]=t5; av2[4]=lf[1250]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}}}}}}} /* k29666 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29668(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29668,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_make_locative(&a,4,C_fix(0),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29679 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29681,2,av);} a=C_alloc(5); t2=C_a_i_make_locative(&a,4,C_fix(2),((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k29704 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29706,2,av);} a=C_alloc(5); t2=C_a_i_make_locative(&a,4,C_fix(2),((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k29720 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29722,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_make_locative(&a,4,C_fix(3),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29736 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29738,2,av);} a=C_alloc(5); t2=C_a_i_make_locative(&a,4,C_fix(4),((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k29752 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29754,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_make_locative(&a,4,C_fix(5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29768 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29770,2,av);} a=C_alloc(5); t2=C_a_i_make_locative(&a,4,C_fix(6),((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k29784 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29786,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_make_locative(&a,4,C_fix(7),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29800 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29802,2,av);} a=C_alloc(5); t2=C_a_i_make_locative(&a,4,C_fix(8),((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k29816 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29818,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_make_locative(&a,4,C_fix(9),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29832 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29834,2,av);} a=C_alloc(5); t2=C_a_i_make_locative(&a,4,C_fix(10),((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k29848 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29850,2,av);} a=C_alloc(5); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_make_locative(&a,4,C_fix(11),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k29855 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29857,2,av);} a=C_alloc(5); t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_make_locative(&a,4,C_fix(0),((C_word*)t0)[4],t2,((C_word*)t0)[5]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k29896 in ##sys#make-locative in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_29898,2,av);} a=C_alloc(5); t2=C_a_i_make_locative(&a,4,C_fix(1),((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.plist#put! in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void *)f_29910,5,av);} a=C_alloc(8); t5=C_i_check_symbol_2(t2,lf[1253]); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_putprop(&a,3,t2,t3,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* chicken.plist#get in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_29916,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); t7=C_i_check_symbol_2(t2,lf[1255]); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_getprop(t2,t3,t6); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_29935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_29935,2,av);} a=C_alloc(12); t2=C_mutate((C_word*)lf[1254]+1 /* (set! chicken.plist#get ...) */,t1); t3=C_mutate((C_word*)lf[1258]+1 /* (set! chicken.plist#remprop! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29937,a[2]=((C_word)li927),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30006,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31094,a[2]=((C_word)li966),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31103,a[2]=((C_word)li967),tmp=(C_word)a,a+=3,tmp); /* library.scm:6254: chicken.base#getter-with-setter */ t7=*((C_word*)lf[200]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t4; av2[2]=t5; av2[3]=t6; av2[4]=lf[1357]; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* chicken.plist#remprop! in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_29937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_29937,4,av);} a=C_alloc(5); t4=C_i_check_symbol_2(t2,lf[1259]); t5=C_slot(t2,C_fix(2)); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29960,a[2]=t3,a[3]=t2,a[4]=((C_word)li926),tmp=(C_word)a,a+=5,tmp); t7=( f_29960(t6,t5,C_SCHEME_FALSE) ); t8=C_slot(t2,C_fix(2)); if(C_truep(C_i_nullp(t8))){ t9=C_i_unpersist_symbol(t2); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t9=C_SCHEME_UNDEFINED; t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* loop in chicken.plist#remprop! in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static C_word C_fcall f_29960(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_stack_overflow_check; loop:{} t3=C_i_nullp(t1); if(C_truep(C_i_not(t3))){ t4=C_slot(t1,C_fix(1)); t5=C_slot(t4,C_fix(1)); t6=C_slot(t1,C_fix(0)); t7=C_eqp(t6,((C_word*)t0)[2]); if(C_truep(t7)){ t8=(C_truep(t2)?C_i_setslot(t2,C_fix(1),t5):C_i_setslot(((C_word*)t0)[3],C_fix(2),t5)); return(C_SCHEME_TRUE);} else{ t10=t5; t11=t4; t1=t10; t2=t11; goto loop;}} else{ return(C_SCHEME_FALSE);}} /* k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_30006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){ C_save_and_reclaim((void *)f_30006,2,av);} a=C_alloc(29); t2=C_mutate((C_word*)lf[1260]+1 /* (set! chicken.plist#symbol-plist ...) */,t1); t3=C_mutate((C_word*)lf[1261]+1 /* (set! chicken.plist#get-properties ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30008,a[2]=((C_word)li929),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[1263]+1 /* (set! ##sys#display-times ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30071,a[2]=((C_word)li933),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[957]+1 /* (set! ##sys#dump-heap-state ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_dump_heap_state,a[2]=((C_word)li934),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[1279]+1 /* (set! ##sys#filter-heap-objects ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_filter_heap_objects,a[2]=((C_word)li935),tmp=(C_word)a,a+=3,tmp)); t7=C_a_i_provide(&a,1,lf[1280]); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30307,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_software_type,a[2]=((C_word)li965),tmp=(C_word)a,a+=3,tmp); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31092,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* library.scm:6360: g7151 */ t11=t9;{ C_word *av2=av; av2[0]=t11; av2[1]=t10; ((C_proc)C_fast_retrieve_proc(t11))(2,av2);}} /* chicken.plist#get-properties in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_30008(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_30008,4,av);} a=C_alloc(10); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_i_check_symbol_2(t2,lf[1262]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30015,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_symbolp(((C_word*)t4)[1]))){ t7=C_a_i_list1(&a,1,((C_word*)t4)[1]); t8=C_set_block_item(t4,0,t7); t9=t6; f_30015(t9,t8);} else{ t7=t6; f_30015(t7,C_SCHEME_UNDEFINED);}} /* k30013 in chicken.plist#get-properties in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_fcall f_30015(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_30015,2,t0,t1);} a=C_alloc(7); t2=C_i_check_list_2(((C_word*)((C_word*)t0)[2])[1],lf[1262]); t3=C_slot(((C_word*)t0)[3],C_fix(2)); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30027,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=((C_word)li928),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_30027(t7,((C_word*)t0)[4],t3);} /* loop in k30013 in chicken.plist#get-properties in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_fcall f_30027(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_30027,3,t0,t1,t2);} if(C_truep(C_i_nullp(t2))){ /* library.scm:6278: scheme#values */{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=C_slot(t2,C_fix(1)); t5=C_slot(t4,C_fix(1)); if(C_truep(C_i_memq(t3,((C_word*)((C_word*)t0)[2])[1]))){ t6=C_slot(t4,C_fix(0)); /* library.scm:6283: scheme#values */{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t6; av2[4]=t5; C_values(5,av2);}} else{ /* library.scm:6284: loop */ t8=t1; t9=t5; t1=t8; t2=t9; goto loop;}}} /* ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_30071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_30071,3,av);} a=C_alloc(23); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30086,a[2]=((C_word)li930),tmp=(C_word)a,a+=3,tmp)); t10=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30100,a[2]=((C_word)li931),tmp=(C_word)a,a+=3,tmp)); t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30122,a[2]=t4,a[3]=t6,a[4]=((C_word)li932),tmp=(C_word)a,a+=5,tmp)); t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30198,a[2]=t2,a[3]=t1,a[4]=t8,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* library.scm:6306: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[745]); C_word *av2=av; av2[0]=*((C_word*)lf[745]+1); av2[1]=t12; av2[2]=*((C_word*)lf[713]+1); tp(3,av2);}} /* pnum in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_fcall f_30086(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_30086,2,t1,t2);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30094,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=t2; if(C_truep(C_i_zerop(t4))){ /* library.scm:6295: ##sys#print */ t5=*((C_word*)lf[865]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t1; av2[2]=lf[1264]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ /* library.scm:6295: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}}} /* k30092 in pnum in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_30094,2,av);} /* library.scm:6295: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* round-to in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_fcall f_30100(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_30100,3,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30108,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30120,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:6297: scheme#expt */ t6=*((C_word*)lf[531]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t5; av2[2]=C_fix(10); av2[3]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} /* k30106 in round-to in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_30108,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30112,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:6297: scheme#expt */ t4=*((C_word*)lf[531]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1265]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k30110 in k30106 in round-to in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_30112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_30112,2,av);} /* ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[527]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k30118 in round-to in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ C_save_and_reclaim((void *)f_30120,2,av);} a=C_alloc(33); t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); /* library.scm:6297: scheme#round */ t3=*((C_word*)lf[551]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* pmem in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_fcall f_30122(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_30122,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_greaterp(t2,lf[1266]))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30132,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30139,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30143,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; /* ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[527]+1); av2[1]=t5; av2[2]=t6; av2[3]=lf[1266]; tp(4,av2);}} else{ if(C_truep(C_i_greaterp(t2,C_fix(1048576)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30154,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30161,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30165,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; /* ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[527]+1); av2[1]=t5; av2[2]=t6; av2[3]=C_fix(1048576); tp(4,av2);}} else{ if(C_truep(C_i_greaterp(t2,C_fix(1024)))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30176,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30183,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30187,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=t2; /* ##sys#/-2 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[527]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[527]+1); av2[1]=t5; av2[2]=t6; av2[3]=C_fix(1024); tp(4,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30192,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:6305: pnum */ f_30086(t3,t2);}}}} /* k30130 in pmem in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_30132,2,av);} t2=((C_word*)t0)[2]; /* library.scm:6292: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1267]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k30137 in pmem in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30139,2,av);} /* library.scm:6300: pnum */ f_30086(((C_word*)t0)[3],t1);} /* k30141 in pmem in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_30143,2,av);} /* library.scm:6300: round-to */ f_30100(((C_word*)t0)[3],t1,C_fix(2));} /* k30152 in pmem in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_30154,2,av);} t2=((C_word*)t0)[2]; /* library.scm:6292: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1268]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k30159 in pmem in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30161,2,av);} /* library.scm:6302: pnum */ f_30086(((C_word*)t0)[3],t1);} /* k30163 in pmem in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30165(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_30165,2,av);} /* library.scm:6302: round-to */ f_30100(((C_word*)t0)[3],t1,C_fix(2));} /* k30174 in pmem in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_30176,2,av);} t2=((C_word*)t0)[2]; /* library.scm:6292: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1269]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k30181 in pmem in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30183,2,av);} /* library.scm:6304: pnum */ f_30086(((C_word*)t0)[3],t1);} /* k30185 in pmem in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_30187,2,av);} /* library.scm:6304: round-to */ f_30100(((C_word*)t0)[3],t1,C_fix(2));} /* k30190 in pmem in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_30192,2,av);} t2=((C_word*)t0)[2]; /* library.scm:6292: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1270]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_ccall f_30198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_30198,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30201,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_slot(((C_word*)t0)[2],C_fix(0)); /* library.scm:6307: pnum */ f_30086(t2,t3);} /* k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_30201,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30204,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:6292: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1278]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_30204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_30204,2,av);} a=C_alloc(11); t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30210,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_i_greaterp(t3,C_fix(0)))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30291,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:6292: ##sys#print */ t6=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[1277]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_30210(2,av2);}}} /* k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in ... */ static void C_ccall f_30210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_30210,2,av);} a=C_alloc(12); t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=t2; t4=C_slot(((C_word*)t0)[2],C_fix(3)); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30219,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_greaterp(t3,C_fix(0)))){ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30273,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=t5,a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* library.scm:6292: ##sys#print */ t8=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t8; av2[1]=t7; av2[2]=lf[1275]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_30219(2,av2);}}} /* k30217 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in ... */ static void C_ccall f_30219(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_30219,2,av);} a=C_alloc(11); t2=C_slot(((C_word*)t0)[2],C_fix(4)); t3=t2; t4=C_slot(((C_word*)t0)[2],C_fix(5)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30228,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t7=C_fixnum_greaterp(t3,C_fix(0)); t8=(C_truep(t7)?t7:C_fixnum_greaterp(t5,C_fix(0))); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30252,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* library.scm:6292: ##sys#print */ t10=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t9; av2[2]=lf[1273]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t9=t6;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_UNDEFINED; f_30228(2,av2);}}} /* k30226 in k30217 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in ... */ static void C_ccall f_30228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_30228,2,av);} a=C_alloc(5); t2=C_slot(((C_word*)t0)[2],C_fix(6)); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30234,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:6292: ##sys#print */ t5=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[1271]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k30232 in k30226 in k30217 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in ... */ static void C_ccall f_30234(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_30234,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30237,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:6332: pmem */ t3=((C_word*)((C_word*)t0)[3])[1]; f_30122(t3,t2,((C_word*)t0)[4]);} /* k30235 in k30232 in k30226 in k30217 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30237(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_30237,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30240,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:6333: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[861]+1); av2[1]=t2; av2[2]=C_make_character(10); av2[3]=*((C_word*)lf[714]+1); tp(4,av2);}} /* k30238 in k30235 in k30232 in k30226 in k30217 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in ... */ static void C_ccall f_30240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30240,2,av);} /* library.scm:6334: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[745]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[745]+1); av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[714]+1); tp(3,av2);}} /* k30250 in k30217 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in ... */ static void C_ccall f_30252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_30252,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30255,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:6326: pnum */ f_30086(t2,((C_word*)t0)[5]);} /* k30253 in k30250 in k30217 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in ... */ static void C_ccall f_30255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_30255,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30258,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:6293: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[861]+1); av2[1]=t2; av2[2]=C_make_character(47); av2[3]=*((C_word*)lf[714]+1); tp(4,av2);}} /* k30256 in k30253 in k30250 in k30217 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_30258,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30261,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:6328: pnum */ f_30086(t2,((C_word*)t0)[4]);} /* k30259 in k30256 in k30253 in k30250 in k30217 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in ... */ static void C_ccall f_30261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_30261,2,av);} /* library.scm:6292: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1272]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k30271 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in ... */ static void C_ccall f_30273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_30273,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:6318: pnum */ f_30086(t2,((C_word*)t0)[5]);} /* k30274 in k30271 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in ... */ static void C_ccall f_30276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_30276,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:6293: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[861]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[861]+1); av2[1]=t2; av2[2]=C_make_character(47); av2[3]=*((C_word*)lf[714]+1); tp(4,av2);}} /* k30277 in k30274 in k30271 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in ... */ static void C_ccall f_30279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_30279,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30282,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:6320: pnum */ f_30086(t2,((C_word*)t0)[4]);} /* k30280 in k30277 in k30274 in k30271 in k30208 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30282(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_30282,2,av);} /* library.scm:6292: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1274]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k30289 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in ... */ static void C_ccall f_30291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_30291,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30294,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:6312: pnum */ f_30086(t2,((C_word*)t0)[4]);} /* k30292 in k30289 in k30202 in k30199 in k30196 in ##sys#display-times in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in ... */ static void C_ccall f_30294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_30294,2,av);} /* library.scm:6292: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1276]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_30307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_30307,2,av);} a=C_alloc(13); t2=t1; t3=C_mutate((C_word*)lf[1281]+1 /* (set! chicken.platform#software-type ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30308,a[2]=t2,a[3]=((C_word)li936),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30313,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_machine_type,a[2]=((C_word)li964),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31088,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:6364: g7155 */ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)C_fast_retrieve_proc(t7))(2,av2);}} /* chicken.platform#software-type in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_ccall f_30308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_30308,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_ccall f_30313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_30313,2,av);} a=C_alloc(13); t2=t1; t3=C_mutate((C_word*)lf[1282]+1 /* (set! chicken.platform#machine-type ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30314,a[2]=t2,a[3]=((C_word)li937),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30319,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_machine_byte_order,a[2]=((C_word)li963),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31084,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:6368: g7159 */ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)C_fast_retrieve_proc(t7))(2,av2);}} /* chicken.platform#machine-type in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30314(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_30314,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_30319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_30319,2,av);} a=C_alloc(13); t2=t1; t3=C_mutate((C_word*)lf[1283]+1 /* (set! chicken.platform#machine-byte-order ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30320,a[2]=t2,a[3]=((C_word)li938),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30325,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_software_version,a[2]=((C_word)li962),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31080,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:6372: g7163 */ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)C_fast_retrieve_proc(t7))(2,av2);}} /* chicken.platform#machine-byte-order in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_30320(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_30320,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_30325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_30325,2,av);} a=C_alloc(13); t2=t1; t3=C_mutate((C_word*)lf[1284]+1 /* (set! chicken.platform#software-version ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30326,a[2]=t2,a[3]=((C_word)li939),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30331,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_build_platform,a[2]=((C_word)li961),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31076,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:6376: g7167 */ t7=t5;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)C_fast_retrieve_proc(t7))(2,av2);}} /* chicken.platform#software-version in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in ... */ static void C_ccall f_30326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_30326,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in ... */ static void C_ccall f_30331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_30331,2,av);} a=C_alloc(10); t2=t1; t3=C_mutate((C_word*)lf[1285]+1 /* (set! chicken.platform#build-platform ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30332,a[2]=t2,a[3]=((C_word)li940),tmp=(C_word)a,a+=4,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30337,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31072,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:6380: software-type */ t6=C_fast_retrieve(lf[1281]);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* chicken.platform#build-platform in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in ... */ static void C_ccall f_30332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_30332,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in ... */ static void C_fcall f_30337(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ C_save_and_reclaim_args((void *)trf_30337,2,t0,t1);} a=C_alloc(21); t2=C_set_block_item(lf[1286] /* ##sys#windows-platform */,0,t1); t3=C_mutate((C_word*)lf[1287]+1 /* (set! chicken.platform#chicken-version ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30339,a[2]=((C_word)li942),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[1321]+1 /* (set! chicken.platform#chicken-home ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30478,a[2]=((C_word)li943),tmp=(C_word)a,a+=3,tmp)); t5=(C_truep(C_fast_retrieve(lf[1286]))?C_make_character(59):C_make_character(58)); t6=lf[1322] /* chicken.platform#path-list-separator */ =t5;; t7=lf[1323]; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_mutate((C_word*)lf[1324]+1 /* (set! ##sys#split-path ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30488,a[2]=t8,a[3]=((C_word)li945),tmp=(C_word)a,a+=4,tmp)); t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30578,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30990,a[2]=t10,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t12=*((C_word*)lf[701]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t11; av2[2]=C_mpointer(&a,(void*)C_private_repository_path()); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} /* chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in ... */ static void C_ccall f_30339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_30339,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30400,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30470,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* library.scm:6397: feature? */ t7=C_fast_retrieve(lf[1315]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[1320]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t5=C_fast_retrieve(lf[1289]); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_fast_retrieve(lf[1289]); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k30347 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in ... */ static void C_ccall f_30349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_30349,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30352,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:6387: software-type */ t4=C_fast_retrieve(lf[1281]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k30350 in k30347 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in ... */ static void C_ccall f_30352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_30352,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:6388: software-version */ t4=C_fast_retrieve(lf[1284]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k30353 in k30350 in k30347 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in ... */ static void C_ccall f_30355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_30355,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* library.scm:6389: machine-type */ t4=C_fast_retrieve(lf[1282]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k30356 in k30353 in k30350 in k30347 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in ... */ static void C_ccall f_30358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_30358,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30360,a[2]=((C_word)li941),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30382,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); /* library.scm:6394: str */ f_30360(t4,((C_word*)t0)[5]);} /* str in k30356 in k30353 in k30350 in k30347 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in ... */ static void C_fcall f_30360(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_30360,2,t1,t2);} a=C_alloc(3); t3=C_eqp(lf[1294],t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[1295]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30374,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:6393: scheme#symbol->string */ t5=*((C_word*)lf[632]+1);{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k30372 in str in k30356 in k30353 in k30350 in k30347 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in ... */ static void C_ccall f_30374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_30374,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[1296]; tp(4,av2);}} /* k30380 in k30356 in k30353 in k30350 in k30347 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in ... */ static void C_ccall f_30382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_30382,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30386,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* library.scm:6394: str */ f_30360(t3,((C_word*)t0)[6]);} /* k30384 in k30380 in k30356 in k30353 in k30350 in k30347 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in ... */ static void C_ccall f_30386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_30386,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30390,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* library.scm:6394: str */ f_30360(t3,((C_word*)t0)[6]);} /* k30388 in k30384 in k30380 in k30356 in k30353 in k30350 in k30347 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in ... */ static void C_ccall f_30390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_30390,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30394,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* library.scm:6394: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[631]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[631]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k30392 in k30388 in k30384 in k30380 in k30356 in k30353 in k30350 in k30347 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in ... */ static void C_ccall f_30394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_30394,2,av);} /* library.scm:6394: scheme#string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in ... */ static void C_ccall f_30400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_30400,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30407,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fast_retrieve(lf[1301]))){ /* library.scm:6404: scheme#string-append */ t4=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1302]; av2[3]=C_fast_retrieve(lf[1301]); av2[4]=lf[1303]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=lf[1304]; f_30407(2,av2);}}} /* k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_30407,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30411,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fast_retrieve(lf[1297]))){ /* library.scm:6405: scheme#string-append */ t4=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1298]; av2[3]=C_fast_retrieve(lf[1297]); av2[4]=lf[1299]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=lf[1300]; f_30411(2,av2);}}} /* k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in ... */ static void C_ccall f_30411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_30411,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30415,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t4=t3; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30349,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* library.scm:6386: build-platform */ t6=C_fast_retrieve(lf[1285]);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k30413 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in ... */ static void C_ccall f_30415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,8)))){ C_save_and_reclaim((void *)f_30415,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30419,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=C_block_size(((C_word*)t0)[5]); t5=C_eqp(t4,C_fix(0)); if(C_truep(t5)){ /* library.scm:6402: scheme#string-append */ t6=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t6; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1288]; av2[3]=C_fast_retrieve(lf[1289]); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[1290]; av2[7]=t2; av2[8]=lf[1291]; ((C_proc)(void*)(*((C_word*)t6+1)))(9,av2);}} else{ /* library.scm:6410: scheme#string-append */ t6=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=lf[1292]; av2[3]=((C_word*)t0)[5]; av2[4]=lf[1293]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k30417 in k30413 in k30409 in k30405 in k30398 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in ... */ static void C_ccall f_30419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_30419,2,av);} /* library.scm:6402: scheme#string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1288]; av2[3]=C_fast_retrieve(lf[1289]); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=lf[1290]; av2[7]=((C_word*)t0)[5]; av2[8]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k30456 in k30459 in k30462 in k30465 in k30468 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in ... */ static void C_ccall f_30458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_30458,2,av);} if(C_truep(t1)){ /* library.scm:6396: scheme#string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=lf[1313]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} else{ /* library.scm:6396: scheme#string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=lf[1314]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}} /* k30459 in k30462 in k30465 in k30468 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in ... */ static void C_ccall f_30461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_30461,2,av);} a=C_alloc(7); t2=(C_truep(t1)?lf[1311]:lf[1312]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30458,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* library.scm:6401: feature? */ t5=C_fast_retrieve(lf[1315]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[1316]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k30462 in k30465 in k30468 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in ... */ static void C_ccall f_30464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_30464,2,av);} a=C_alloc(6); t2=(C_truep(t1)?lf[1309]:lf[1310]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30461,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* library.scm:6400: feature? */ t5=C_fast_retrieve(lf[1315]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[1317]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k30465 in k30468 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_30467,2,av);} a=C_alloc(5); t2=(C_truep(t1)?lf[1307]:lf[1308]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30464,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* library.scm:6399: feature? */ t5=C_fast_retrieve(lf[1315]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[1318]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k30468 in chicken.platform#chicken-version in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in ... */ static void C_ccall f_30470(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_30470,2,av);} a=C_alloc(4); t2=(C_truep(t1)?lf[1305]:lf[1306]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30467,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* library.scm:6398: feature? */ t5=C_fast_retrieve(lf[1315]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=lf[1319]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* chicken.platform#chicken-home in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in ... */ static void C_ccall f_30478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_30478,2,av);} a=C_alloc(3); /* ##sys#peek-c-string */ t2=*((C_word*)lf[701]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* ##sys#split-path in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in ... */ static void C_ccall f_30488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_30488,3,av);} a=C_alloc(13); if(C_truep(C_i_not(t2))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); if(C_truep(C_i_equalp(t2,t3))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_string_length(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30510,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30516,a[2]=t5,a[3]=t2,a[4]=t8,a[5]=((C_word)li944),tmp=(C_word)a,a+=6,tmp)); t10=((C_word*)t8)[1]; f_30516(t10,t6,C_fix(0),C_fix(0));}}} /* k30508 in ##sys#split-path in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in ... */ static void C_ccall f_30510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_30510,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in ##sys#split-path in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in ... */ static void C_fcall f_30516(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_30516,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]))){ t4=C_eqp(t3,t2); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30536,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:6436: scheme#substring */ t6=*((C_word*)lf[394]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} else{ t4=C_i_string_ref(((C_word*)t0)[3],t3); t5=C_retrieve2(lf[1322],C_text("chicken.platform#path-list-separator")); if(C_truep(C_u_i_char_equalp(t4,C_retrieve2(lf[1322],C_text("chicken.platform#path-list-separator"))))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30551,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:6439: scheme#substring */ t7=*((C_word*)lf[394]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t6=C_fixnum_plus(t3,C_fix(1)); /* library.scm:6443: loop */ t8=t1; t9=t2; t10=t6; t1=t8; t2=t9; t3=t10; goto loop;}}} /* k30534 in loop in ##sys#split-path in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_30536,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k30549 in loop in ##sys#split-path in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_30551,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30555,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t5=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* library.scm:6440: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_30516(t6,t3,t4,t5);} /* k30553 in k30549 in loop in ##sys#split-path in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in ... */ static void C_ccall f_30555(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_30555,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in ... */ static void C_ccall f_30578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_30578,2,av);} a=C_alloc(9); t2=C_mutate((C_word*)lf[1325]+1 /* (set! chicken.platform#repository-path ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30582,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30974,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t5=*((C_word*)lf[701]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=C_mpointer(&a,(void*)C_private_repository_path()); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in ... */ static void C_ccall f_30582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_30582,2,av);} a=C_alloc(14); t2=C_mutate((C_word*)lf[1326]+1 /* (set! chicken.platform#installation-repository ...) */,t1); t3=C_mutate(&lf[1327] /* (set! chicken.platform#->feature-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30599,a[2]=((C_word)li946),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[1329]+1 /* (set! ##sys#features ...) */,lf[1330]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30633,a[2]=((C_word)li947),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30651,a[2]=((C_word*)t0)[2],a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30970,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:6493: software-type */ t8=C_fast_retrieve(lf[1281]);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* chicken.platform#->feature-id in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_30599,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30606,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:6479: chicken.keyword#keyword? */ t4=*((C_word*)lf[645]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k30604 in chicken.platform#->feature-id in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in ... */ static void C_ccall f_30606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_30606,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[2]))){ /* library.scm:6480: chicken.keyword#string->keyword */ t2=*((C_word*)lf[646]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30628,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* library.scm:6481: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[631]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[631]+1); av2[1]=t2; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_a_i_list(&a,1,((C_word*)t0)[2]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=0; av2[1]=t2; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[258]; av2[4]=lf[1328]; av2[5]=t3; C_apply(6,av2);}}}}} /* k30626 in k30604 in chicken.platform#->feature-id in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in ... */ static void C_ccall f_30628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30628,2,av);} /* library.scm:6481: chicken.keyword#string->keyword */ t2=*((C_word*)lf[646]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* check in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_fcall f_30633(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_30633,2,t1,t2);} a=C_alloc(3); t3=C_eqp(lf[1294],t2); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30648,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:6492: ->feature-id */ t5=C_retrieve2(lf[1327],C_text("chicken.platform#->feature-id"));{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; f_30599(3,av2);}}} /* k30646 in check in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in ... */ static void C_ccall f_30648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_30648,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[1329])); t3=C_mutate((C_word*)lf[1329]+1 /* (set! ##sys#features ...) */,t2); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_30651,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30654,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30966,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:6494: software-version */ t4=C_fast_retrieve(lf[1284]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in ... */ static void C_ccall f_30654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_30654,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30962,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:6495: build-platform */ t4=C_fast_retrieve(lf[1285]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in ... */ static void C_ccall f_30657(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_30657,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30660,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30958,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:6496: machine-type */ t4=C_fast_retrieve(lf[1282]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in ... */ static void C_ccall f_30660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_30660,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30663,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30954,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:6497: machine-byte-order */ t4=C_fast_retrieve(lf[1283]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in ... */ static void C_ccall f_30663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_30663,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30666,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_mk_bool(HAVE_DLOAD))){ t3=C_a_i_cons(&a,2,lf[1319],C_fast_retrieve(lf[1329])); t4=C_mutate((C_word*)lf[1329]+1 /* (set! ##sys#features ...) */,t3); t5=t2; f_30666(t5,t4);} else{ t3=t2; f_30666(t3,C_SCHEME_UNDEFINED);}} /* k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in ... */ static void C_fcall f_30666(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_30666,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30669,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_mk_bool(HAVE_PTABLES))){ t3=C_a_i_cons(&a,2,lf[1318],C_fast_retrieve(lf[1329])); t4=C_mutate((C_word*)lf[1329]+1 /* (set! ##sys#features ...) */,t3); t5=t2; f_30669(t5,t4);} else{ t3=t2; f_30669(t3,C_SCHEME_UNDEFINED);}} /* k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in ... */ static void C_fcall f_30669(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_30669,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30672,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_mk_bool(HAVE_GCHOOKS))){ t3=C_a_i_cons(&a,2,lf[1317],C_fast_retrieve(lf[1329])); t4=C_mutate((C_word*)lf[1329]+1 /* (set! ##sys#features ...) */,t3); t5=t2; f_30672(t5,t4);} else{ t3=t2; f_30672(t3,C_SCHEME_UNDEFINED);}} /* k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in ... */ static void C_fcall f_30672(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_30672,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30675,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_mk_bool(IS_CROSS_CHICKEN))){ t3=C_a_i_cons(&a,2,lf[1316],C_fast_retrieve(lf[1329])); t4=C_mutate((C_word*)lf[1329]+1 /* (set! ##sys#features ...) */,t3); t5=t2; f_30675(t5,t4);} else{ t3=t2; f_30675(t3,C_SCHEME_UNDEFINED);}} /* k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in ... */ static void C_fcall f_30675(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_30675,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30678,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_fix((C_word)C_WORD_SIZE); t4=C_eqp(t3,C_fix(64)); if(C_truep(t4)){ t5=C_a_i_cons(&a,2,lf[1320],C_fast_retrieve(lf[1329])); t6=C_mutate((C_word*)lf[1329]+1 /* (set! ##sys#features ...) */,t5); t7=t2; f_30678(t7,t6);} else{ t5=t2; f_30678(t5,C_SCHEME_UNDEFINED);}} /* k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in ... */ static void C_fcall f_30678(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_30678,2,t0,t1);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30682,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=C_fix((C_word)C_MAJOR_VERSION); /* library.scm:6511: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[601]+1); av2[1]=t2; av2[2]=t3; tp(3,av2);}} /* k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in ... */ static void C_ccall f_30682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_30682,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30685,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fix((C_word)C_MINOR_VERSION); /* library.scm:6512: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[601]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[601]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in ... */ static void C_ccall f_30685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_30685,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30908,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30924,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:6513: scheme#string-append */ t5=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[1348]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* chicken.platform#register-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in ... */ static void C_ccall f_30690(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){ C_save_and_reclaim((void*)f_30690,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+9); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30709,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30711,a[2]=t5,a[3]=((C_word)li948),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_30711(t7,t3,t2);} /* k30694 in for-each-loop7284 in chicken.platform#register-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in ... */ static void C_ccall f_30696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_30696,2,av);} a=C_alloc(3); if(C_truep(C_i_memq(t1,C_fast_retrieve(lf[1329])))){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[1329])); t3=C_mutate((C_word*)lf[1329]+1 /* (set! ##sys#features ...) */,t2); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k30707 in chicken.platform#register-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in ... */ static void C_ccall f_30709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_30709,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop7284 in chicken.platform#register-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in ... */ static void C_fcall f_30711(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_30711,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30721,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30696,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* library.scm:6520: ->feature-id */ t7=C_retrieve2(lf[1327],C_text("chicken.platform#->feature-id"));{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; f_30599(3,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k30719 in for-each-loop7284 in chicken.platform#register-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in ... */ static void C_ccall f_30721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30721,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_30711(t3,((C_word*)t0)[4],t2);} /* chicken.platform#unregister-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in ... */ static void C_ccall f_30734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +17,c,3)))){ C_save_and_reclaim((void*)f_30734,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+17); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_retrieve2(lf[1327],C_text("chicken.platform#->feature-id")); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30741,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30778,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li951),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_30778(t12,t8,t2);} /* k30739 in chicken.platform#unregister-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in ... */ static void C_ccall f_30741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_30741,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30745,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30747,a[2]=t2,a[3]=t5,a[4]=((C_word)li950),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_30747(t7,t3,C_fast_retrieve(lf[1329]));} /* k30743 in k30739 in chicken.platform#unregister-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in ... */ static void C_ccall f_30745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_30745,2,av);} t2=C_mutate((C_word*)lf[1329]+1 /* (set! ##sys#features ...) */,t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* loop in k30739 in chicken.platform#unregister-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in ... */ static void C_fcall f_30747(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_30747,3,t0,t1,t2);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=t3; t5=C_slot(t2,C_fix(1)); if(C_truep(C_i_memq(t4,((C_word*)t0)[2]))){ /* library.scm:6534: loop */ t8=t1; t9=t5; t1=t8; t2=t9; goto loop;} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30776,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:6535: loop */ t8=t6; t9=t5; t1=t8; t2=t9; goto loop;}}} /* k30774 in loop in k30739 in chicken.platform#unregister-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in ... */ static void C_ccall f_30776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_30776,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop7307 in chicken.platform#unregister-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in ... */ static void C_fcall f_30778(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_30778,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30803,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* library.scm:6526: g7313 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k30801 in map-loop7307 in chicken.platform#unregister-feature! in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in ... */ static void C_ccall f_30803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_30803,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_30778(t6,((C_word*)t0)[5],t5);} /* chicken.platform#features in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in ... */ static void C_ccall f_30812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_30812,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_fast_retrieve(lf[1329]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.platform#feature? in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in ... */ static void C_ccall f_30815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_30815,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30821,a[2]=t4,a[3]=((C_word)li954),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_30821(t6,t1,t2);} /* loop in chicken.platform#feature? in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in ... */ static void C_fcall f_30821(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_30821,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30845,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_slot(t2,C_fix(0)); /* library.scm:6543: ->feature-id */ t6=C_retrieve2(lf[1327],C_text("chicken.platform#->feature-id"));{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; f_30599(3,av2);}}} /* k30843 in loop in chicken.platform#feature? in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in ... */ static void C_ccall f_30845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30845,2,av);} if(C_truep(C_i_memq(t1,C_fast_retrieve(lf[1329])))){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:6544: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_30821(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.platform#system-config-directory in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in ... */ static void C_ccall f_30852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_30852,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30856,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:6550: chicken.process-context#get-environment-variable */ t3=C_fast_retrieve(lf[1189]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1339]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k30854 in chicken.platform#system-config-directory in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in ... */ static void C_ccall f_30856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_30856,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_fast_retrieve(lf[1286]))){ /* library.scm:6552: chicken.process-context#get-environment-variable */ t2=C_fast_retrieve(lf[1189]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1336]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30868,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:6553: chicken.process-context#get-environment-variable */ t3=C_fast_retrieve(lf[1189]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1338]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k30866 in k30854 in chicken.platform#system-config-directory in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in ... */ static void C_ccall f_30868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_30868,2,av);} if(C_truep(t1)){ /* library.scm:6554: scheme#string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[1337]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.platform#system-cache-directory in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in ... */ static void C_ccall f_30876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_30876,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30880,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:6557: chicken.process-context#get-environment-variable */ t3=C_fast_retrieve(lf[1189]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1345]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k30878 in chicken.platform#system-cache-directory in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in ... */ static void C_ccall f_30880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_30880,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_fast_retrieve(lf[1286]))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30889,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:6559: chicken.process-context#get-environment-variable */ t3=C_fast_retrieve(lf[1189]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1342]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30898,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:6561: chicken.process-context#get-environment-variable */ t3=C_fast_retrieve(lf[1189]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[1344]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k30887 in k30878 in chicken.platform#system-cache-directory in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in ... */ static void C_ccall f_30889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30889,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* library.scm:6560: chicken.process-context#get-environment-variable */ t2=C_fast_retrieve(lf[1189]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1341]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k30896 in k30878 in chicken.platform#system-cache-directory in k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in ... */ static void C_ccall f_30898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_30898,2,av);} if(C_truep(t1)){ /* library.scm:6562: scheme#string-append */ t2=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[1343]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in ... */ static void C_ccall f_30908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_30908,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30916,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30920,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* library.scm:6514: scheme#string-append */ t5=*((C_word*)lf[414]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=lf[1346]; av2[3]=((C_word*)t0)[3]; av2[4]=lf[1347]; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* k30914 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in ... */ static void C_ccall f_30916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,2)))){ C_save_and_reclaim((void *)f_30916,2,av);} a=C_alloc(27); t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[1329])); t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); t4=C_mutate((C_word*)lf[1329]+1 /* (set! ##sys#features ...) */,t3); t5=C_mutate((C_word*)lf[1331]+1 /* (set! chicken.platform#register-feature! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30690,a[2]=((C_word)li949),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[1332]+1 /* (set! chicken.platform#unregister-feature! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30734,a[2]=((C_word)li952),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[1333]+1 /* (set! chicken.platform#features ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30812,a[2]=((C_word)li953),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[1315]+1 /* (set! chicken.platform#feature? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30815,a[2]=((C_word)li955),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[1334]+1 /* (set! chicken.platform#return-to-host ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_return_to_host,a[2]=((C_word)li956),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[1335]+1 /* (set! chicken.platform#system-config-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30852,a[2]=((C_word)li957),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[1340]+1 /* (set! chicken.platform#system-cache-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30876,a[2]=((C_word)li958),tmp=(C_word)a,a+=3,tmp)); t12=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} /* k30918 in k30906 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in ... */ static void C_ccall f_30920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30920,2,av);} /* library.scm:6514: ->feature-id */ t2=C_retrieve2(lf[1327],C_text("chicken.platform#->feature-id"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_30599(3,av2);}} /* k30922 in k30683 in k30680 in k30676 in k30673 in k30670 in k30667 in k30664 in k30661 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in ... */ static void C_ccall f_30924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30924,2,av);} /* library.scm:6513: ->feature-id */ t2=C_retrieve2(lf[1327],C_text("chicken.platform#->feature-id"));{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; f_30599(3,av2);}} /* k30952 in k30658 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in ... */ static void C_ccall f_30954(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30954,2,av);} /* library.scm:6497: check */ f_30633(((C_word*)t0)[3],t1);} /* k30956 in k30655 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in ... */ static void C_ccall f_30958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30958,2,av);} /* library.scm:6496: check */ f_30633(((C_word*)t0)[3],t1);} /* k30960 in k30652 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in ... */ static void C_ccall f_30962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30962,2,av);} /* library.scm:6495: check */ f_30633(((C_word*)t0)[3],t1);} /* k30964 in k30649 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in ... */ static void C_ccall f_30966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30966,2,av);} /* library.scm:6494: check */ f_30633(((C_word*)t0)[3],t1);} /* k30968 in k30580 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30970,2,av);} /* library.scm:6493: check */ f_30633(((C_word*)t0)[3],t1);} /* k30972 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in ... */ static void C_ccall f_30974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_30974,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30977,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t1; /* library.scm:6464: chicken.base#make-parameter */ t4=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30980,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* library.scm:6466: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[1189]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1349]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k30975 in k30972 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_30977,2,av);} /* library.scm:6464: chicken.base#make-parameter */ t2=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k30978 in k30972 in k30576 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_30980,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=t1; /* library.scm:6464: chicken.base#make-parameter */ t3=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* ##sys#peek-c-string */ t2=*((C_word*)lf[701]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=C_mpointer(&a,(void*)C_INSTALL_EGG_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} /* k30988 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in ... */ static void C_ccall f_30990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_30990,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30993,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(t1)){ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_list1(&a,1,t1); f_30993(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31039,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* library.scm:6451: chicken.process-context#get-environment-variable */ t4=C_fast_retrieve(lf[1189]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1351]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k30991 in k30988 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in ... */ static void C_ccall f_30993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_30993,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30995,a[2]=((C_word)li960),tmp=(C_word)a,a+=3,tmp); /* library.scm:6448: chicken.base#make-parameter */ t3=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a30994 in k30991 in k30988 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_30995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_30995,3,av);} a=C_alloc(3); if(C_truep(t2)){ t3=C_i_check_list_2(t2,lf[1350]); t4=t2; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31012,a[2]=((C_word)li959),tmp=(C_word)a,a+=3,tmp); t6=( f_31012(t4) ); t7=t2; t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* for-each-loop7226 in a30994 in k30991 in k30988 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in ... */ static C_word C_fcall f_31012(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t2=C_slot(t1,C_fix(0)); t3=C_i_check_string_2(t2,lf[1350]); t4=C_slot(t1,C_fix(1)); t6=t4; t1=t6; goto loop;} else{ t2=C_SCHEME_UNDEFINED; return(t2);}} /* k31037 in k30988 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in ... */ static void C_ccall f_31039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_31039,2,av);} a=C_alloc(6); if(C_truep(t1)){ /* library.scm:6449: ##sys#split-path */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1324]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[1324]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31048,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t3=*((C_word*)lf[701]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_mpointer(&a,(void*)C_INSTALL_EGG_HOME); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* k31046 in k31037 in k30988 in k30335 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in ... */ static void C_ccall f_31048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_31048,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=(C_truep(t1)?C_a_i_list1(&a,1,t1):C_SCHEME_FALSE); f_30993(2,av2);}} /* k31066 in k31070 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in ... */ static void C_ccall f_31068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31068,2,av);} t2=C_eqp(lf[1353],t1); t3=((C_word*)t0)[2]; f_30337(t3,C_i_not(t2));} /* k31070 in k30329 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in ... */ static void C_ccall f_31072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_31072,2,av);} a=C_alloc(3); t2=C_eqp(lf[1352],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31068,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:6382: software-version */ t4=C_fast_retrieve(lf[1284]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[2]; f_30337(t3,C_SCHEME_FALSE);}} /* k31074 in k30323 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in ... */ static void C_ccall f_31076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_31076,2,av);} /* library.scm:6376: scheme#string->symbol */ t2=*((C_word*)lf[634]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k31078 in k30317 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in ... */ static void C_ccall f_31080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_31080,2,av);} /* library.scm:6372: scheme#string->symbol */ t2=*((C_word*)lf[634]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k31082 in k30311 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in ... */ static void C_ccall f_31084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_31084,2,av);} /* library.scm:6368: scheme#string->symbol */ t2=*((C_word*)lf[634]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k31086 in k30305 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in ... */ static void C_ccall f_31088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_31088,2,av);} /* library.scm:6364: scheme#string->symbol */ t2=*((C_word*)lf[634]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k31090 in k30004 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_31092(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_31092,2,av);} /* library.scm:6360: scheme#string->symbol */ t2=*((C_word*)lf[634]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a31093 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_31094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31094,3,av);} t3=C_i_check_symbol_2(t2,lf[1354]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_slot(t2,C_fix(2)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a31102 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in ... */ static void C_ccall f_31103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_31103,4,av);} a=C_alloc(5); t4=C_i_check_symbol_2(t2,lf[1354]); t5=C_i_check_list_2(t3,lf[1355]); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31113,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_i_length(t3); if(C_truep(C_i_fixnumevenp(t7))){ t8=t6;{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_setslot(t2,C_fix(2),t3); f_31113(2,av2);}} else{ /* library.scm:6263: ##sys#signal-hook */ t8=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t6; av2[2]=lf[258]; av2[3]=lf[1356]; av2[4]=t3; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}} /* k31111 in a31102 in k29933 in k29571 in k29351 in k29318 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in ... */ static void C_ccall f_31113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31113,2,av);} if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t2=C_i_unpersist_symbol(((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_i_persist_symbol(((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k31136 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_31138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_31138,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31141,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_pairp(t1))){ t3=C_slot(t1,C_fix(1)); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31159,a[2]=t5,a[3]=((C_word)li969),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_31159(t7,t2,t3);} else{ t3=t1; t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f36798,a[2]=((C_word)li970),tmp=(C_word)a,a+=3,tmp); /* library.scm:5982: chicken.base#make-parameter */ t5=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[2]; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k31139 in k31136 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_31141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_31141,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31143,a[2]=((C_word)li968),tmp=(C_word)a,a+=3,tmp); /* library.scm:5982: chicken.base#make-parameter */ t3=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* a31142 in k31139 in k31136 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_31143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31143,3,av);} t3=C_i_check_list_2(t2,lf[1358]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop in k31136 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_fcall f_31159(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_31159,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_slot(t2,C_fix(0)); t4=t3; t5=C_slot(t2,C_fix(1)); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31178,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t6,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t8=C_block_size(t4); if(C_truep(C_fixnum_greater_or_equal_p(t8,C_fix(3)))){ t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31198,a[2]=t7,tmp=(C_word)a,a+=3,tmp); /* library.scm:5991: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[396]+1); av2[1]=t9; av2[2]=t4; av2[3]=C_fix(0); av2[4]=C_fix(2); tp(5,av2);}} else{ t9=t7; f_31178(t9,C_SCHEME_FALSE);}}} /* k31176 in loop in k31136 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_fcall f_31178(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_31178,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ /* library.scm:5992: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_31159(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31188,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* library.scm:5993: loop */ t3=((C_word*)((C_word*)t0)[2])[1]; f_31159(t3,t2,((C_word*)t0)[4]);}} /* k31186 in k31176 in loop in k31136 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in ... */ static void C_ccall f_31188(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_31188,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k31196 in loop in k31136 in k29314 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in ... */ static void C_ccall f_31198(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31198,2,av);} t2=((C_word*)t0)[2]; f_31178(t2,C_i_string_equal_p(lf[1359],t1));} /* k31220 in k31224 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_31222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_31222,2,av);} a=C_alloc(3); t2=C_i_car(t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f36810,a[2]=((C_word)li972),tmp=(C_word)a,a+=3,tmp); /* library.scm:5973: chicken.base#make-parameter */ t4=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k31224 in k29135 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_31226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_31226,2,av);} a=C_alloc(3); if(C_truep(C_i_nullp(t1))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f36804,a[2]=((C_word)li971),tmp=(C_word)a,a+=3,tmp); /* library.scm:5973: chicken.base#make-parameter */ t3=*((C_word*)lf[201]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[1361]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31222,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5976: argv */ t3=C_fast_retrieve(lf[1197]);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a31227 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_31228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_31228,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31232,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[377]+1); av2[1]=t2; av2[2]=C_fix(1024); av2[3]=C_make_character(32); tp(4,av2);}} /* k31230 in a31227 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_31232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_31232,2,av);} a=C_alloc(5); t2=t1; t3=C_curdir(t2); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31235,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_fast_retrieve(lf[1286]))){ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_31235(2,av2);}} else{ /* library.scm:5905: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[702]); C_word *av2=av; av2[0]=*((C_word*)lf[702]+1); av2[1]=t4; tp(2,av2);}}} /* k31233 in k31230 in a31227 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_31235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_31235,2,av);} if(C_truep(((C_word*)t0)[2])){ /* library.scm:5907: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[396]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[2]; tp(5,av2);}} else{ /* library.scm:5908: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[698]; av2[3]=lf[1362]; av2[4]=lf[1363]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* a31249 in k28498 in k28438 in k27108 in k27105 in k27102 in k26335 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_31250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_31250,3,av);} /* library.scm:5912: ##sys#change-directory-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1187]); C_word *av2=av; av2[0]=*((C_word*)lf[1187]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} /* a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_31256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,2)))){ C_save_and_reclaim((void*)f_31256,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31260,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31413,a[2]=((C_word)li979),tmp=(C_word)a,a+=3,tmp); /* library.scm:5103: ##sys#error-handler */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1002]); C_word *av2=av; av2[0]=*((C_word*)lf[1002]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} /* k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_31260(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_31260,2,av);} a=C_alloc(5); t2=C_mk_bool(C_gui_mode); if(C_truep(C_i_not(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31269,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5105: ##sys#print */ t4=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1372]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31363,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5130: chicken.base#open-output-string */ t4=*((C_word*)lf[213]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_31269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_31269,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31272,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[4])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31357,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* library.scm:5107: ##sys#print */ t4=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[1371]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_31272(2,av2);}}} /* k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_31272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_31272,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31275,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31301,a[2]=((C_word*)t0)[3],a[3]=((C_word)li976),tmp=(C_word)a,a+=4,tmp); /* library.scm:5109: ##sys#with-print-length-limit */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[917]+1); av2[1]=t2; av2[2]=C_fix(400); av2[3]=t3; tp(4,av2);}} /* k31273 in k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_31275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_31275,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31278,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5121: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k31276 in k31273 in k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_31278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_31278,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31281,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5122: chicken.base#print-call-chain */ t3=*((C_word*)lf[187]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k31279 in k31276 in k31273 in k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_31281(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_31281,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31287,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); if(C_truep(C_fast_retrieve(lf[1001]))){ /* library.scm:5123: ##sys#symbol-has-toplevel-binding? */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1141]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[1141]+1); av2[1]=t2; av2[2]=lf[1369]; tp(3,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_31287(2,av2);}}} /* k31285 in k31279 in k31276 in k31273 in k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in ... */ static void C_ccall f_31287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_31287,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_slot(lf[1369],C_fix(0)); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31293,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5123: g5869 */ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} else{ t2=C_halt(C_SCHEME_FALSE); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k31291 in k31285 in k31279 in k31276 in k31273 in k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in ... */ static void C_ccall f_31293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_31293,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31296,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5126: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k31294 in k31291 in k31285 in k31279 in k31276 in k31273 in k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in ... */ static void C_ccall f_31296(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31296,2,av);} t2=C_exit_runtime(C_fix((C_word)EX_SOFTWARE)); t3=C_halt(C_SCHEME_FALSE); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a31300 in k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_31301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_31301,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_u_i_length(t2); t4=C_eqp(C_fix(1),t3); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31311,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:5113: ##sys#print */ t6=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[1370]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t5=((C_word*)t0)[2]; t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31331,a[2]=t7,a[3]=((C_word)li975),tmp=(C_word)a,a+=4,tmp)); t9=((C_word*)t7)[1]; f_31331(t9,t1,t5);}} /* k31309 in a31300 in k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_31311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_31311,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(0)); /* library.scm:5114: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k31321 in for-each-loop5851 in a31300 in k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_31323(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_31323,2,av);} /* library.scm:5119: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_TRUE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* for-each-loop5851 in a31300 in k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_31331(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ C_save_and_reclaim_args((void *)trf_31331,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31341,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31323,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:5118: ##sys#print */ t8=*((C_word*)lf[865]+1);{ C_word av2[5]; av2[0]=t8; av2[1]=t7; av2[2]=C_make_character(10); av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k31339 in for-each-loop5851 in a31300 in k31270 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_31341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_31341,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_31331(t3,((C_word*)t0)[4],t2);} /* k31355 in k31267 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_31357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_31357,2,av);} /* library.scm:5108: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_SCHEME_FALSE; av2[4]=*((C_word*)lf[714]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k31361 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in ... */ static void C_ccall f_31363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_31363,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31366,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[4])){ /* library.scm:5131: ##sys#print */ t4=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=C_SCHEME_FALSE; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_31366(2,av2);}}} /* k31364 in k31361 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in ... */ static void C_ccall f_31366(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_31366,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31369,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* library.scm:5132: ##sys#print */ t3=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(10); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k31367 in k31364 in k31361 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in ... */ static void C_ccall f_31369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_31369,2,av);} a=C_alloc(15); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31370,a[2]=((C_word*)t0)[2],a[3]=((C_word)li977),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31380,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31386,a[2]=t6,a[3]=t2,a[4]=((C_word)li978),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_31386(t8,t4,t3);} /* g5883 in k31367 in k31364 in k31361 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_31370(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_31370,3,t0,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31374,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:5133: ##sys#print */ t4=*((C_word*)lf[865]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_TRUE; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k31372 in g5883 in k31367 in k31364 in k31361 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_31374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_31374,2,av);} /* library.scm:5133: ##sys#print */ t2=*((C_word*)lf[865]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k31378 in k31367 in k31364 in k31361 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_ccall f_31380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_31380,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31384,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:5134: chicken.base#get-output-string */ t3=*((C_word*)lf[211]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k31382 in k31378 in k31367 in k31364 in k31361 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_31384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31384,2,av);} t2=C_halt(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* for-each-loop5882 in k31367 in k31364 in k31361 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in ... */ static void C_fcall f_31386(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_31386,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31396,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* library.scm:5133: g5883 */ t5=((C_word*)t0)[3]; f_31370(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k31394 in for-each-loop5882 in k31367 in k31364 in k31361 in k31258 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in ... */ static void C_ccall f_31396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_31396,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_31386(t3,((C_word*)t0)[4],t2);} /* a31412 in a31255 in k26023 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in ... */ static void C_ccall f_31413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31413,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_halt(lf[1373]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a31415 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_31416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_31416,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31420,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:5005: chicken.base#exit-handler */ t3=*((C_word*)lf[224]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k31418 in a31415 in k26019 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in ... */ static void C_ccall f_31420(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_31420,2,av);} /* library.scm:5004: g5758 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_fix((C_word)EX_SOFTWARE); ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* a31424 in k26015 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_31425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31425,2,av);} /* library.scm:5000: cleanup-before-exit */ f_25934(t1);} /* a31430 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_31431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_31431,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_fix(0):C_i_car(t2)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31438,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:4990: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t6; av2[2]=t5; tp(3,av2);}} /* k31436 in a31430 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_31438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_31438,2,av);} a=C_alloc(4); if(C_truep(C_retrieve2(lf[952],C_text("exit-in-progress")))){ /* library.scm:4992: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[311]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[311]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[1374]; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31447,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* library.scm:4994: cleanup-before-exit */ f_25934(t2);}} /* k31445 in k31436 in a31430 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_31447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31447,2,av);} t2=C_exit_runtime(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a31454 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_31455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31455,3,av);} t3=C_slot(t2,C_fix(10)); t4=C_slot(t2,C_fix(12)); t5=C_slot(t2,C_fix(11)); if(C_truep(C_fixnum_greater_or_equal_p(t3,t5))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_subchar(t4,t3); t7=C_fixnum_plus(t3,C_fix(1)); t8=C_i_set_i_slot(t2,C_fix(10),t7); t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} /* a31479 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_31480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31480,3,av);} t3=C_slot(t2,C_fix(10)); t4=C_slot(t2,C_fix(12)); t5=C_slot(t2,C_fix(11)); if(C_truep(C_fixnum_greater_or_equal_p(t3,t5))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_subchar(t4,t3); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* a31497 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_31498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_31498,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31502,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:4746: check */ t5=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=C_fix(1); ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} /* k31500 in a31497 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_31502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31502,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(10)); t3=C_slot(((C_word*)t0)[2],C_fix(12)); t4=C_setsubchar(t3,t2,((C_word*)t0)[3]); t5=C_fixnum_plus(t2,C_fix(1)); t6=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a31516 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_31517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_31517,4,av);} a=C_alloc(6); t4=C_block_size(t3); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31521,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* library.scm:4753: check */ t6=((C_word*)((C_word*)t0)[2])[1];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* k31519 in a31516 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_31521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31521,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(10)); t3=C_slot(((C_word*)t0)[2],C_fix(12)); t4=C_substring_copy(((C_word*)t0)[3],t3,C_fix(0),((C_word*)t0)[4],t2); t5=C_fixnum_plus(t2,((C_word*)t0)[4]); t6=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a31535 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_31536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31536,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a31538 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_31539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31539,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a31541 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_31542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_31542,6,av);} a=C_alloc(10); t6=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t7=C_slot(t2,C_fix(10)); t8=t7; t9=C_slot(t2,C_fix(11)); t10=C_fixnum_difference(t9,t8); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31552,a[2]=t2,a[3]=t8,a[4]=t6,a[5]=t4,a[6]=t5,a[7]=t1,tmp=(C_word)a,a+=8,tmp); t12=C_i_not(((C_word*)t6)[1]); if(C_truep(t12)){ if(C_truep(t12)){ t13=C_set_block_item(t6,0,t10); t14=t11; f_31552(t14,t13);} else{ t13=t11; f_31552(t13,C_SCHEME_UNDEFINED);}} else{ if(C_truep(C_fixnum_greaterp(((C_word*)t6)[1],t10))){ t13=C_set_block_item(t6,0,t10); t14=t11; f_31552(t14,t13);} else{ t13=t11; f_31552(t13,C_SCHEME_UNDEFINED);}}} /* k31550 in a31541 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_fcall f_31552(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_31552,2,t0,t1);} t2=C_slot(((C_word*)t0)[2],C_fix(12)); t3=C_fixnum_plus(((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]); t4=C_substring_copy(t2,((C_word*)t0)[5],((C_word*)t0)[3],t3,((C_word*)t0)[6]); t5=C_fixnum_plus(((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]); t6=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t5); t7=((C_word*)t0)[7];{ C_word av2[2]; av2[0]=t7; av2[1]=((C_word*)((C_word*)t0)[4])[1]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* a31582 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_31583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ C_save_and_reclaim((void *)f_31583,4,av);} a=C_alloc(11); t4=C_slot(t2,C_fix(10)); t5=t4; t6=C_slot(t2,C_fix(11)); t7=t6; t8=C_slot(t2,C_fix(12)); t9=t8; t10=(C_truep(t3)?C_fixnum_plus(t5,t3):t7); t11=t10; if(C_truep(C_fixnum_greater_or_equal_p(t5,t7))){ t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31607,a[2]=t11,a[3]=t7,a[4]=t9,a[5]=t5,a[6]=((C_word)li744),tmp=(C_word)a,a+=7,tmp); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31626,a[2]=t2,a[3]=((C_word)li745),tmp=(C_word)a,a+=4,tmp); /* library.scm:4775: ##sys#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t12; av2[3]=t13; C_call_with_values(4,av2);}}} /* a31606 in a31582 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_31607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_31607,2,av);} a=C_alloc(3); t2=C_fixnum_greaterp(((C_word*)t0)[2],((C_word*)t0)[3]); t3=(C_truep(t2)?((C_word*)t0)[3]:((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31617,a[2]=((C_word)li743),tmp=(C_word)a,a+=3,tmp); /* library.scm:4776: ##sys#scan-buffer-line */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[920]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[920]+1); av2[1]=t1; av2[2]=((C_word*)t0)[4]; av2[3]=t3; av2[4]=((C_word*)t0)[5]; av2[5]=t4; tp(6,av2);}} /* a31616 in a31606 in a31582 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in ... */ static void C_ccall f_31617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_31617,3,av);} /* library.scm:4778: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_FALSE; av2[3]=t2; av2[4]=C_SCHEME_FALSE; C_values(5,av2);}} /* a31625 in a31582 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_31626(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31626,5,av);} if(C_truep(t4)){ t5=C_slot(((C_word*)t0)[2],C_fix(4)); t6=C_fixnum_plus(t5,C_fix(1)); t7=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),t6); t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),C_fix(0)); t9=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t2); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t5=C_slot(((C_word*)t0)[2],C_fix(5)); t6=C_block_size(t3); t7=C_fixnum_plus(t5,t6); t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),t7); t9=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t2); t10=t1;{ C_word *av2=av; av2[0]=t10; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} /* a31666 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in ... */ static void C_ccall f_31667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_31667,3,av);} a=C_alloc(5); t3=C_slot(t2,C_fix(10)); t4=C_slot(t2,C_fix(12)); t5=C_slot(t2,C_fix(11)); t6=t5; if(C_truep(C_fixnum_greater_or_equal_p(t3,t6))){ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=lf[921]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31686,a[2]=t2,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:4793: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[396]+1); av2[1]=t7; av2[2]=t4; av2[3]=t3; av2[4]=t6; tp(5,av2);}}} /* k31684 in a31666 in k23773 in k23769 in k23765 in k20244 in k20240 in k20236 in k20232 in k20228 in k19868 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in ... */ static void C_ccall f_31686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31686,2,av);} t2=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a31694 in k19864 in k19860 in k19856 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in ... */ static void C_ccall f_31695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31695,5,av);} t5=C_i_list_tail(t2,t3); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_set_car(t5,t4); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a31704 in k19852 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in ... */ static void C_ccall f_31705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31705,4,av);} t4=C_i_cddr(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31714 in k19848 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in ... */ static void C_ccall f_31715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31715,4,av);} t4=C_i_cdar(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31724 in k19844 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in ... */ static void C_ccall f_31725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31725,4,av);} t4=C_i_cadr(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31734 in k19840 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in ... */ static void C_ccall f_31735(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31735,4,av);} t4=C_i_caar(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31744 in k19836 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in ... */ static void C_ccall f_31745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31745,4,av);} t4=C_i_cddr(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31754 in k19832 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in ... */ static void C_ccall f_31755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31755,4,av);} t4=C_i_cdar(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31764 in k19828 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in ... */ static void C_ccall f_31765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31765,4,av);} t4=C_i_cadr(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31774 in k19824 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in ... */ static void C_ccall f_31775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31775,4,av);} t4=C_i_caar(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31784 in k19820 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in ... */ static void C_ccall f_31785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31785,4,av);} t4=C_i_cdr(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31794 in k19816 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in ... */ static void C_ccall f_31795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31795,4,av);} t4=C_i_car(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_cdr(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31804 in k19812 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in ... */ static void C_ccall f_31805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31805,4,av);} t4=C_i_cdr(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31814 in k19808 in k19804 in k19724 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in ... */ static void C_ccall f_31815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31815,4,av);} t4=C_i_car(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_set_car(t4,t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* a31824 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_31825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_31825,3,av);} a=C_alloc(7); if(C_truep(C_i_closurep(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31841,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31849,a[2]=((C_word)li997),tmp=(C_word)a,a+=3,tmp); /* library.scm:3505: ##sys#lambda-decoration */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[749]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[749]+1); av2[1]=t3; av2[2]=t2; av2[3]=t4; tp(4,av2);}} else{ /* library.scm:3507: ##sys#error */ t3=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=lf[756]; av2[3]=lf[1376]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k31839 in a31824 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_31841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_31841,2,av);} if(C_truep(t1)){ t2=C_slot(t1,C_fix(1)); if(C_truep(t2)){ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* library.scm:3507: ##sys#error */ t3=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[756]; av2[3]=lf[1376]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} else{ /* library.scm:3507: ##sys#error */ t2=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[756]; av2[3]=lf[1376]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* a31848 in a31824 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_31849(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31849,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(C_retrieve2(lf[757],C_text("setter-tag")),t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a31864 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_31865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31865,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(C_retrieve2(lf[757],C_text("setter-tag")),t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a31880 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_31881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_31881,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31891,a[2]=((C_word)li1002),tmp=(C_word)a,a+=3,tmp); t5=C_a_i_cons(&a,2,C_retrieve2(lf[757],C_text("setter-tag")),t4); t6=C_i_setslot(t2,t3,t5); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* a31890 in a31880 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in ... */ static void C_ccall f_31891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_31891,4,av);} a=C_alloc(11); if(C_truep(C_i_closurep(t2))){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31901,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31920,a[2]=((C_word)li1000),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31936,a[2]=t3,a[3]=((C_word)li1001),tmp=(C_word)a,a+=4,tmp); /* library.scm:3516: ##sys#decorate-lambda */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[748]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[748]+1); av2[1]=t4; av2[2]=t2; av2[3]=t5; av2[4]=t6; tp(5,av2);}} else{ /* library.scm:3523: chicken.base#error */ t4=*((C_word*)lf[193]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=lf[1377]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k31899 in a31890 in a31880 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_31901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_31901,2,av);} a=C_alloc(6); t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t4=C_a_i_list1(&a,1,t3); /* library.scm:3522: ##sys#become! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[329]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[329]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t4; tp(3,av2);}}} /* a31919 in a31890 in a31880 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_31920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_31920,3,av);} if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(C_retrieve2(lf[757],C_text("setter-tag")),t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a31935 in a31890 in a31880 in k18948 in k18945 in k18942 in k18939 in k18935 in k18931 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in ... */ static void C_ccall f_31936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_31936,4,av);} a=C_alloc(3); t4=C_a_i_cons(&a,2,C_retrieve2(lf[757],C_text("setter-tag")),((C_word*)t0)[2]); t5=C_i_setslot(t2,t3,t4); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a31948 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_31949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_31949,3,av);} a=C_alloc(7); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31955,a[2]=t2,a[3]=t4,a[4]=((C_word)li543),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; f_31955(2,av2);}} /* loop in a31948 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_31955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_31955,2,av);} a=C_alloc(5); t2=C_read_char(((C_word*)t0)[2]); t3=C_eqp(C_fix(-1),t2); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31986,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:3175: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[702]); C_word *av2=av; av2[0]=*((C_word*)lf[702]+1); av2[1]=t4; tp(2,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k31976 in k31984 in loop in a31948 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_31978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_31978,2,av);} /* library.scm:3177: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[698]; av2[3]=lf[699]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k31980 in k31984 in loop in a31948 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_31982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_31982,2,av);} /* library.scm:3179: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[700]; av2[3]=t1; tp(4,av2);}} /* k31984 in loop in a31948 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_31986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_31986,2,av);} a=C_alloc(10); t2=C_fix((C_word)EINTR); t3=C_eqp(t1,t2); if(C_truep(t3)){ /* library.scm:3176: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[697]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[697]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; tp(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31978,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31982,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[701]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)strerror(errno)); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* a31988 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_31989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_31989,3,av);} a=C_alloc(7); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31995,a[2]=t2,a[3]=t4,a[4]=((C_word)li545),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1];{ C_word *av2=av; av2[0]=t6; av2[1]=t1; f_31995(2,av2);}} /* loop in a31988 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_31995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_31995,2,av);} a=C_alloc(5); t2=C_peek_char(((C_word*)t0)[2]); t3=C_eqp(C_fix(-1),t2); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32026,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:3187: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[702]); C_word *av2=av; av2[0]=*((C_word*)lf[702]+1); av2[1]=t4; tp(2,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k32016 in k32024 in loop in a31988 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_32018,2,av);} /* library.scm:3189: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[698]; av2[3]=lf[703]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k32020 in k32024 in loop in a31988 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_32022,2,av);} /* library.scm:3191: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[704]; av2[3]=t1; tp(4,av2);}} /* k32024 in loop in a31988 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_32026,2,av);} a=C_alloc(10); t2=C_fix((C_word)EINTR); t3=C_eqp(t1,t2); if(C_truep(t3)){ /* library.scm:3188: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[697]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[697]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; tp(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32018,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32022,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[701]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)strerror(errno)); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* a32028 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32029(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_32029,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_display_char(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a32031 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_32032,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_display_string(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a32034 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_32035,4,av);} t4=C_close_file(t2); /* library.scm:3200: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[702]); C_word *av2=av; av2[0]=*((C_word*)lf[702]+1); av2[1]=t1; tp(2,av2);}} /* a32040 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32041(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_32041,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_flush_output(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a32043 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_32044,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_char_ready_p(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a32046 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_32047,6,av);} a=C_alloc(7); t6=t3; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_32055,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=t1,a[6]=t5,tmp=(C_word)a,a+=7,tmp); if(C_truep(t6)){ t8=t7; f_32055(t8,t6);} else{ t8=C_block_size(t4); t9=t7; f_32055(t9,C_fixnum_difference(t8,t5));}} /* k32053 in a32046 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_32055(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_32055,2,t0,t1);} a=C_alloc(9); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_32057,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word)li553),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_32057(t5,((C_word*)t0)[5],t1,C_fix(0),((C_word*)t0)[6]);} /* loop in k32053 in a32046 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_32057(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_32057,5,t0,t1,t2,t3,t4);} a=C_alloc(11); t5=fast_read_string_from_file(((C_word*)t0)[2],((C_word*)t0)[3],t2,t4); if(C_truep(C_eofp(t5))){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(C_fixnum_lessp(t5,C_fix(0)))){ t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_32112,a[2]=t2,a[3]=t5,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[4],a[7]=t1,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,tmp); /* library.scm:3211: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[702]); C_word av2[2]; av2[0]=*((C_word*)lf[702]+1); av2[1]=t6; tp(2,av2);}} else{ if(C_truep(C_fixnum_lessp(t5,t2))){ t6=C_fixnum_difference(t2,t5); t7=C_fixnum_plus(t3,t5); t8=C_fixnum_plus(t4,t5); /* library.scm:3220: loop */ t10=t1; t11=t6; t12=t7; t13=t8; t1=t10; t2=t11; t3=t12; t4=t13; goto loop;} else{ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_fixnum_plus(t3,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}} /* a32080 in k32110 in loop in k32053 in a32046 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_32081,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_fixnum_plus(((C_word*)t0)[4],((C_word*)t0)[3]); t4=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[3]); /* library.scm:3214: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_32057(t5,t1,t2,t3,t4);} /* k32102 in k32110 in loop in k32053 in a32046 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_32104,2,av);} /* library.scm:3215: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[698]; av2[3]=lf[705]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; av2[7]=((C_word*)t0)[5]; av2[8]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} /* k32106 in k32110 in loop in k32053 in a32046 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_32108,2,av);} /* library.scm:3217: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[706]; av2[3]=t1; tp(4,av2);}} /* k32110 in loop in k32053 in a32046 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ C_save_and_reclaim((void *)f_32112,2,av);} a=C_alloc(13); t2=C_fix((C_word)EINTR); t3=C_eqp(t1,t2); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_32081,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li552),tmp=(C_word)a,a+=8,tmp); /* library.scm:3212: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[697]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[697]+1); av2[1]=((C_word*)t0)[7]; av2[2]=t4; tp(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_32104,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32108,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[701]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)strerror(errno)); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_32146,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32150,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t3)){ /* library.scm:3224: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[102]+1); av2[1]=t4; av2[2]=t3; av2[3]=lf[707]; tp(4,av2);}} else{ t5=t4;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_UNDEFINED; f_32150(2,av2);}}} /* k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_32150,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32153,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_slot(((C_word*)t0)[3],C_fix(12)))){ t3=t2; f_32153(t3,C_SCHEME_UNDEFINED);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32319,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:3227: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[377]+1); av2[1]=t3; av2[2]=C_fix(1024); tp(3,av2);}}} /* k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_32153(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,7)))){ C_save_and_reclaim_args((void *)trf_32153,2,t0,t1);} a=C_alloc(8); t2=((C_word*)t0)[2]; t3=(C_truep(t2)?t2:lf[269]); t4=C_slot(((C_word*)t0)[3],C_fix(12)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_32166,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=((C_word)li556),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_32166(t8,((C_word*)t0)[4],C_fix(1024),t3,t4,lf[709],C_SCHEME_FALSE);} /* loop in k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_fcall f_32166(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_32166,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(11); t7=C_i_fixnum_min(t3,t2); t8=fast_read_line_from_file(t4,((C_word*)t0)[2],t7); if(C_truep(C_eofp(t8))){ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=(C_truep(t6)?t5:C_SCHEME_END_OF_FILE); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ if(C_truep(C_i_not(t8))){ if(C_truep(C_fixnum_lessp(t3,t2))){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32199,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:3238: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[396]+1); av2[1]=t9; av2[2]=t4; av2[3]=C_fix(0); av2[4]=t3; tp(5,av2);}} else{ t9=C_fixnum_times(t2,C_fix(2)); t10=t9; t11=C_fixnum_difference(t3,t2); t12=t11; t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_32214,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t10,a[5]=t12,a[6]=t5,a[7]=t4,tmp=(C_word)a,a+=8,tmp); t14=C_fixnum_times(t2,C_fix(2)); /* library.scm:3241: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[377]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[377]+1); av2[1]=t13; av2[2]=t14; tp(3,av2);}}} else{ if(C_truep(C_fixnum_lessp(t8,C_fix(0)))){ t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_32273,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t1,a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[4],tmp=(C_word)a,a+=11,tmp); /* library.scm:3245: ##sys#update-errno */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[702]); C_word av2[2]; av2[0]=*((C_word*)lf[702]+1); av2[1]=t9; tp(2,av2);}} else{ if(C_truep(t6)){ t9=C_slot(((C_word*)t0)[2],C_fix(4)); t10=C_fixnum_plus(t9,C_fix(1)); t11=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),t10); t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32287,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:3258: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[396]+1); av2[1]=t12; av2[2]=t4; av2[3]=C_fix(0); av2[4]=t8; tp(5,av2);}} else{ t9=C_slot(((C_word*)t0)[2],C_fix(4)); t10=C_fixnum_plus(t9,C_fix(1)); t11=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),t10); /* library.scm:3261: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[396]+1); av2[1]=t1; av2[2]=t4; av2[3]=C_fix(0); av2[4]=t8; tp(5,av2);}}}}}} /* k32197 in loop in k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_32199,2,av);} /* library.scm:3238: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k32212 in loop in k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_32214,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_32218,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* library.scm:3242: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; tp(4,av2);}} /* k32216 in k32212 in loop in k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 in ... */ static void C_ccall f_32218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_32218,2,av);} /* library.scm:3239: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_32166(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_TRUE);} /* a32241 in k32271 in loop in k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 in ... */ static void C_ccall f_32242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_32242,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_32250,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32254,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* library.scm:3251: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[396]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[7]; tp(5,av2);}} /* k32248 in a32241 in k32271 in loop in k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_32250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_32250,2,av);} /* library.scm:3249: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_32166(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_TRUE);} /* k32252 in a32241 in k32271 in loop in k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in ... */ static void C_ccall f_32254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_32254,2,av);} /* library.scm:3250: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k32263 in k32271 in loop in k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 in ... */ static void C_ccall f_32265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_32265,2,av);} /* library.scm:3253: ##sys#signal-hook */ t2=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[698]; av2[3]=lf[707]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} /* k32267 in k32271 in loop in k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 in ... */ static void C_ccall f_32269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_32269,2,av);} /* library.scm:3255: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[708]; av2[3]=t1; tp(4,av2);}} /* k32271 in loop in k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32273(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_32273,2,av);} a=C_alloc(11); t2=C_fix((C_word)EINTR); t3=C_eqp(t1,t2); if(C_truep(t3)){ t4=C_fixnum_negate(((C_word*)t0)[2]); t5=C_fixnum_difference(t4,C_fix(1)); t6=t5; t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_32242,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t6,a[8]=((C_word)li555),tmp=(C_word)a,a+=9,tmp); /* library.scm:3247: ##sys#dispatch-interrupt */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[697]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[697]+1); av2[1]=((C_word*)t0)[8]; av2[2]=t7; tp(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32265,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32269,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* ##sys#peek-c-string */ t6=*((C_word*)lf[701]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_mpointer(&a,(void*)strerror(errno)); av2[3]=C_fix(0); ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k32285 in loop in k32151 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_32287,2,av);} /* library.scm:3258: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[413]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[413]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k32317 in k32148 in a32145 in k18366 in k18363 in k18360 in k18357 in k18354 in k18351 in k18348 in k18345 in k18342 in k18339 in k18336 in k18333 in k18330 in k18327 in k18167 in k8510 */ static void C_ccall f_32319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_32319,2,av);} t2=((C_word*)t0)[2]; f_32153(t2,C_i_setslot(((C_word*)t0)[3],C_fix(12),t1));} /* k8510 */ static void C_ccall f_8512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word t87; C_word t88; C_word t89; C_word t90; C_word t91; C_word t92; C_word t93; C_word t94; C_word t95; C_word t96; C_word t97; C_word t98; C_word t99; C_word t100; C_word t101; C_word t102; C_word t103; C_word t104; C_word t105; C_word t106; C_word t107; C_word t108; C_word t109; C_word t110; C_word t111; C_word t112; C_word t113; C_word t114; C_word t115; C_word t116; C_word t117; C_word t118; C_word t119; C_word t120; C_word t121; C_word t122; C_word t123; C_word t124; C_word t125; C_word t126; C_word t127; C_word t128; C_word t129; C_word t130; C_word t131; C_word t132; C_word t133; C_word t134; C_word t135; C_word t136; C_word t137; C_word t138; C_word t139; C_word t140; C_word t141; C_word t142; C_word t143; C_word t144; C_word t145; C_word t146; C_word t147; C_word t148; C_word t149; C_word t150; C_word t151; C_word t152; C_word t153; C_word t154; C_word t155; C_word t156; C_word t157; C_word t158; C_word t159; C_word t160; C_word t161; C_word t162; C_word t163; C_word t164; C_word t165; C_word t166; C_word t167; C_word t168; C_word t169; C_word t170; C_word t171; C_word t172; C_word t173; C_word t174; C_word t175; C_word t176; C_word t177; C_word t178; C_word t179; C_word t180; C_word t181; C_word t182; C_word t183; C_word t184; C_word t185; C_word t186; C_word t187; C_word t188; C_word t189; C_word t190; C_word t191; C_word t192; C_word t193; C_word t194; C_word t195; C_word t196; C_word t197; C_word t198; C_word t199; C_word t200; C_word t201; C_word t202; C_word t203; C_word t204; C_word t205; C_word t206; C_word t207; C_word t208; C_word t209; C_word t210; C_word t211; C_word t212; C_word t213; C_word t214; C_word t215; C_word t216; C_word t217; C_word t218; C_word t219; C_word t220; C_word t221; C_word t222; C_word t223; C_word t224; C_word t225; C_word t226; C_word t227; C_word t228; C_word t229; C_word t230; C_word t231; C_word t232; C_word t233; C_word t234; C_word t235; C_word t236; C_word t237; C_word t238; C_word t239; C_word t240; C_word t241; C_word t242; C_word t243; C_word t244; C_word t245; C_word t246; C_word t247; C_word t248; C_word t249; C_word t250; C_word t251; C_word t252; C_word t253; C_word t254; C_word t255; C_word t256; C_word t257; C_word t258; C_word t259; C_word t260; C_word t261; C_word t262; C_word t263; C_word t264; C_word t265; C_word t266; C_word t267; C_word t268; C_word t269; C_word t270; C_word t271; C_word t272; C_word t273; C_word t274; C_word t275; C_word t276; C_word t277; C_word t278; C_word t279; C_word t280; C_word t281; C_word t282; C_word t283; C_word t284; C_word t285; C_word t286; C_word t287; C_word t288; C_word t289; C_word t290; C_word t291; C_word t292; C_word t293; C_word t294; C_word t295; C_word t296; C_word t297; C_word t298; C_word t299; C_word t300; C_word t301; C_word t302; C_word t303; C_word t304; C_word t305; C_word t306; C_word t307; C_word t308; C_word t309; C_word t310; C_word t311; C_word t312; C_word t313; C_word t314; C_word t315; C_word t316; C_word t317; C_word t318; C_word t319; C_word t320; C_word t321; C_word t322; C_word t323; C_word t324; C_word t325; C_word t326; C_word t327; C_word t328; C_word t329; C_word t330; C_word t331; C_word t332; C_word t333; C_word t334; C_word t335; C_word t336; C_word t337; C_word t338; C_word t339; C_word t340; C_word t341; C_word t342; C_word t343; C_word t344; C_word t345; C_word t346; C_word t347; C_word t348; C_word t349; C_word t350; C_word t351; C_word t352; C_word t353; C_word t354; C_word t355; C_word t356; C_word t357; C_word t358; C_word t359; C_word t360; C_word t361; C_word t362; C_word t363; C_word t364; C_word t365; C_word t366; C_word t367; C_word t368; C_word t369; C_word t370; C_word t371; C_word t372; C_word t373; C_word t374; C_word t375; C_word t376; C_word t377; C_word t378; C_word t379; C_word t380; C_word t381; C_word t382; C_word t383; C_word t384; C_word t385; C_word t386; C_word t387; C_word t388; C_word t389; C_word t390; C_word t391; C_word t392; C_word t393; C_word t394; C_word t395; C_word t396; C_word t397; C_word t398; C_word t399; C_word t400; C_word t401; C_word t402; C_word t403; C_word t404; C_word t405; C_word t406; C_word t407; C_word t408; C_word t409; C_word t410; C_word t411; C_word t412; C_word t413; C_word t414; C_word t415; C_word t416; C_word t417; C_word t418; C_word t419; C_word t420; C_word t421; C_word t422; C_word t423; C_word t424; C_word t425; C_word t426; C_word t427; C_word t428; C_word t429; C_word t430; C_word t431; C_word t432; C_word t433; C_word t434; C_word t435; C_word t436; C_word t437; C_word t438; C_word t439; C_word t440; C_word t441; C_word t442; C_word t443; C_word t444; C_word t445; C_word t446; C_word t447; C_word t448; C_word t449; C_word t450; C_word t451; C_word t452; C_word t453; C_word t454; C_word t455; C_word t456; C_word t457; C_word t458; C_word t459; C_word t460; C_word t461; C_word t462; C_word t463; C_word t464; C_word t465; C_word t466; C_word t467; C_word t468; C_word t469; C_word t470; C_word t471; C_word t472; C_word t473; C_word t474; C_word t475; C_word t476; C_word t477; C_word t478; C_word t479; C_word t480; C_word t481; C_word t482; C_word t483; C_word t484; C_word t485; C_word t486; C_word t487; C_word t488; C_word t489; C_word t490; C_word t491; C_word t492; C_word t493; C_word t494; C_word t495; C_word t496; C_word t497; C_word t498; C_word t499; C_word t500; C_word t501; C_word t502; C_word t503; C_word t504; C_word t505; C_word t506; C_word t507; C_word t508; C_word t509; C_word t510; C_word t511; C_word t512; C_word t513; C_word t514; C_word t515; C_word t516; C_word t517; C_word t518; C_word t519; C_word t520; C_word t521; C_word t522; C_word t523; C_word t524; C_word t525; C_word t526; C_word t527; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(1327,c,6)))){ C_save_and_reclaim((void *)f_8512,2,av);} a=C_alloc(1327); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate((C_word*)lf[2]+1 /* (set! scheme#not ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8514,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[3]+1 /* (set! scheme#boolean? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8517,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[4]+1 /* (set! scheme#eq? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8520,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[5]+1 /* (set! scheme#eqv? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8523,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[6]+1 /* (set! scheme#equal? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8526,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[7]+1 /* (set! scheme#pair? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8529,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[8]+1 /* (set! scheme#cons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8532,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[9]+1 /* (set! scheme#car ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8535,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[10]+1 /* (set! scheme#cdr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8538,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[11]+1 /* (set! scheme#set-car! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8541,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[12]+1 /* (set! scheme#set-cdr! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8544,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[13]+1 /* (set! scheme#cadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8547,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[14]+1 /* (set! scheme#caddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8550,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[15]+1 /* (set! scheme#cadddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8553,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[16]+1 /* (set! scheme#cddddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8556,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[17]+1 /* (set! scheme#caar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8559,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[18]+1 /* (set! scheme#cdar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8562,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[19]+1 /* (set! scheme#cddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8565,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[20]+1 /* (set! scheme#caaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8568,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate((C_word*)lf[21]+1 /* (set! scheme#caadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8582,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate((C_word*)lf[22]+1 /* (set! scheme#cadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8589,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate((C_word*)lf[23]+1 /* (set! scheme#cdaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8596,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate((C_word*)lf[24]+1 /* (set! scheme#cdadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8610,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate((C_word*)lf[25]+1 /* (set! scheme#cddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8617,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate((C_word*)lf[26]+1 /* (set! scheme#cdddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8631,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate((C_word*)lf[27]+1 /* (set! scheme#caaaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8645,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate((C_word*)lf[28]+1 /* (set! scheme#caaadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8663,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate((C_word*)lf[29]+1 /* (set! scheme#caadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8674,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate((C_word*)lf[30]+1 /* (set! scheme#caaddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8685,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate((C_word*)lf[31]+1 /* (set! scheme#cadaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8692,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate((C_word*)lf[32]+1 /* (set! scheme#cadadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8703,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate((C_word*)lf[33]+1 /* (set! scheme#caddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8707,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate((C_word*)lf[34]+1 /* (set! scheme#cdaaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8714,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate((C_word*)lf[35]+1 /* (set! scheme#cdaadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8732,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate((C_word*)lf[36]+1 /* (set! scheme#cdadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8743,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate((C_word*)lf[37]+1 /* (set! scheme#cdaddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8754,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate((C_word*)lf[38]+1 /* (set! scheme#cddaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8761,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate((C_word*)lf[39]+1 /* (set! scheme#cddadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8779,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate((C_word*)lf[40]+1 /* (set! scheme#cdddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8790,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate((C_word*)lf[41]+1 /* (set! scheme#null? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8808,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate((C_word*)lf[42]+1 /* (set! scheme#list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8814,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate((C_word*)lf[43]+1 /* (set! scheme#length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8817,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate((C_word*)lf[44]+1 /* (set! scheme#list-tail ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8820,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate((C_word*)lf[45]+1 /* (set! scheme#list-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8823,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate((C_word*)lf[46]+1 /* (set! scheme#reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8826,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate((C_word*)lf[49]+1 /* (set! scheme#memq ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8865,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate((C_word*)lf[50]+1 /* (set! scheme#memv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8868,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate((C_word*)lf[51]+1 /* (set! scheme#member ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8871,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate((C_word*)lf[52]+1 /* (set! scheme#assq ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8874,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate((C_word*)lf[53]+1 /* (set! scheme#assv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8877,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate((C_word*)lf[54]+1 /* (set! scheme#assoc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8880,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate((C_word*)lf[55]+1 /* (set! scheme#list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8883,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate((C_word*)lf[56]+1 /* (set! scheme#string? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8886,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate((C_word*)lf[57]+1 /* (set! scheme#string-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8889,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t58=C_mutate((C_word*)lf[58]+1 /* (set! scheme#string-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8892,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate((C_word*)lf[59]+1 /* (set! scheme#string-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8895,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp)); t60=C_mutate((C_word*)lf[60]+1 /* (set! scheme#string=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8898,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate((C_word*)lf[61]+1 /* (set! scheme#string-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8901,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); t62=C_mutate((C_word*)lf[62]+1 /* (set! scheme#exact->inexact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8905,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp)); t63=C_mutate((C_word*)lf[63]+1 /* (set! scheme#abs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8908,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); t64=C_mutate((C_word*)lf[64]+1 /* (set! scheme#+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_plus,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp)); t65=C_mutate((C_word*)lf[65]+1 /* (set! scheme#- ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_minus,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); t66=C_mutate((C_word*)lf[66]+1 /* (set! scheme#* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_times,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp)); t67=C_mutate((C_word*)lf[67]+1 /* (set! scheme#quotient ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8914,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp)); t68=C_mutate((C_word*)lf[68]+1 /* (set! scheme#remainder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8917,a[2]=((C_word)li65),tmp=(C_word)a,a+=3,tmp)); t69=C_mutate((C_word*)lf[69]+1 /* (set! scheme#modulo ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8920,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); t70=C_mutate((C_word*)lf[70]+1 /* (set! scheme#even? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8923,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); t71=C_mutate((C_word*)lf[71]+1 /* (set! scheme#odd? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8926,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t72=C_mutate((C_word*)lf[72]+1 /* (set! scheme#= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_nequalp,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp)); t73=C_mutate((C_word*)lf[73]+1 /* (set! scheme#> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_greaterp,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t74=C_mutate((C_word*)lf[74]+1 /* (set! scheme#< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_lessp,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t75=C_mutate((C_word*)lf[75]+1 /* (set! scheme#>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_greater_or_equal_p,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); t76=C_mutate((C_word*)lf[76]+1 /* (set! scheme#<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_less_or_equal_p,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t77=C_mutate((C_word*)lf[77]+1 /* (set! scheme#number? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8934,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); t78=C_mutate((C_word*)lf[78]+1 /* (set! scheme#complex? ...) */,*((C_word*)lf[77]+1)); t79=C_mutate((C_word*)lf[79]+1 /* (set! scheme#real? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8938,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp)); t80=C_mutate((C_word*)lf[80]+1 /* (set! scheme#rational? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8941,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp)); t81=C_mutate((C_word*)lf[81]+1 /* (set! scheme#integer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8944,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp)); t82=C_mutate((C_word*)lf[82]+1 /* (set! scheme#exact? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8947,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp)); t83=C_mutate((C_word*)lf[83]+1 /* (set! scheme#inexact? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8950,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t84=C_mutate((C_word*)lf[84]+1 /* (set! scheme#zero? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8953,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t85=C_mutate((C_word*)lf[85]+1 /* (set! scheme#positive? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8956,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp)); t86=C_mutate((C_word*)lf[86]+1 /* (set! scheme#negative? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8959,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); t87=C_mutate((C_word*)lf[87]+1 /* (set! scheme#number->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_number_to_string,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp)); t88=C_mutate((C_word*)lf[88]+1 /* (set! scheme#symbol? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8963,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp)); t89=C_mutate((C_word*)lf[89]+1 /* (set! scheme#vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8966,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); t90=C_mutate((C_word*)lf[90]+1 /* (set! scheme#vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8969,a[2]=((C_word)li86),tmp=(C_word)a,a+=3,tmp)); t91=C_mutate((C_word*)lf[91]+1 /* (set! scheme#vector-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8972,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp)); t92=C_mutate((C_word*)lf[92]+1 /* (set! scheme#vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8975,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp)); t93=C_set_block_item(lf[93] /* scheme#make-vector */,0,C_SCHEME_UNDEFINED); t94=C_set_block_item(lf[94] /* scheme#list->vector */,0,C_SCHEME_UNDEFINED); t95=C_set_block_item(lf[95] /* scheme#vector->list */,0,C_SCHEME_UNDEFINED); t96=C_set_block_item(lf[96] /* scheme#vector */,0,C_SCHEME_UNDEFINED); t97=C_set_block_item(lf[97] /* scheme#vector-fill! */,0,C_SCHEME_UNDEFINED); t98=C_mutate((C_word*)lf[98]+1 /* (set! scheme#char? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8983,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp)); t99=C_mutate((C_word*)lf[99]+1 /* (set! scheme#char->integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8986,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp)); t100=C_mutate((C_word*)lf[101]+1 /* (set! scheme#integer->char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8993,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp)); t101=C_mutate((C_word*)lf[104]+1 /* (set! scheme#char=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9000,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp)); t102=C_mutate((C_word*)lf[105]+1 /* (set! scheme#char>? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9003,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); t103=C_mutate((C_word*)lf[106]+1 /* (set! scheme#char<? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9006,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp)); t104=C_mutate((C_word*)lf[107]+1 /* (set! scheme#char>=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9009,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp)); t105=C_mutate((C_word*)lf[108]+1 /* (set! scheme#char<=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9012,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); t106=C_mutate((C_word*)lf[109]+1 /* (set! scheme#char-upcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9015,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp)); t107=C_mutate((C_word*)lf[111]+1 /* (set! scheme#char-downcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9021,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); t108=C_set_block_item(lf[113] /* scheme#char-ci=? */,0,C_SCHEME_UNDEFINED); t109=C_set_block_item(lf[114] /* scheme#char-ci>? */,0,C_SCHEME_UNDEFINED); t110=C_set_block_item(lf[115] /* scheme#char-ci<? */,0,C_SCHEME_UNDEFINED); t111=C_set_block_item(lf[116] /* scheme#char-ci>=? */,0,C_SCHEME_UNDEFINED); t112=C_set_block_item(lf[117] /* scheme#char-ci<=? */,0,C_SCHEME_UNDEFINED); t113=C_mutate((C_word*)lf[118]+1 /* (set! scheme#char-upper-case? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9032,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp)); t114=C_mutate((C_word*)lf[120]+1 /* (set! scheme#char-lower-case? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9038,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp)); t115=C_mutate((C_word*)lf[122]+1 /* (set! scheme#char-numeric? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9044,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); t116=C_mutate((C_word*)lf[124]+1 /* (set! scheme#char-whitespace? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9050,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp)); t117=C_mutate((C_word*)lf[126]+1 /* (set! scheme#char-alphabetic? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9056,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp)); t118=C_mutate((C_word*)lf[128]+1 /* (set! scheme#procedure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9062,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp)); t119=C_mutate((C_word*)lf[129]+1 /* (set! scheme#apply ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_apply,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp)); t120=C_mutate((C_word*)lf[130]+1 /* (set! scheme#values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_values,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp)); t121=C_mutate((C_word*)lf[131]+1 /* (set! scheme#call-with-values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_with_values,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp)); t122=C_set_block_item(lf[132] /* scheme#call-with-current-continuation */,0,C_SCHEME_UNDEFINED); t123=C_mutate((C_word*)lf[133]+1 /* (set! scheme#input-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9069,a[2]=((C_word)li108),tmp=(C_word)a,a+=3,tmp)); t124=C_mutate((C_word*)lf[134]+1 /* (set! scheme#output-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9075,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp)); t125=C_set_block_item(lf[135] /* scheme#current-input-port */,0,C_SCHEME_UNDEFINED); t126=C_set_block_item(lf[136] /* scheme#current-output-port */,0,C_SCHEME_UNDEFINED); t127=C_set_block_item(lf[137] /* scheme#open-input-file */,0,C_SCHEME_UNDEFINED); t128=C_set_block_item(lf[138] /* scheme#open-output-file */,0,C_SCHEME_UNDEFINED); t129=C_set_block_item(lf[139] /* scheme#close-input-port */,0,C_SCHEME_UNDEFINED); t130=C_set_block_item(lf[140] /* scheme#close-output-port */,0,C_SCHEME_UNDEFINED); t131=C_set_block_item(lf[141] /* scheme#call-with-input-file */,0,C_SCHEME_UNDEFINED); t132=C_set_block_item(lf[142] /* scheme#call-with-output-file */,0,C_SCHEME_UNDEFINED); t133=C_set_block_item(lf[143] /* scheme#with-input-from-file */,0,C_SCHEME_UNDEFINED); t134=C_set_block_item(lf[144] /* scheme#with-output-to-file */,0,C_SCHEME_UNDEFINED); t135=C_mutate((C_word*)lf[145]+1 /* (set! scheme#eof-object? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9091,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp)); t136=C_set_block_item(lf[146] /* scheme#char-ready? */,0,C_SCHEME_UNDEFINED); t137=C_set_block_item(lf[147] /* scheme#read-char */,0,C_SCHEME_UNDEFINED); t138=C_set_block_item(lf[148] /* scheme#peek-char */,0,C_SCHEME_UNDEFINED); t139=C_set_block_item(lf[149] /* scheme#read */,0,C_SCHEME_UNDEFINED); t140=C_set_block_item(lf[150] /* scheme#write-char */,0,C_SCHEME_UNDEFINED); t141=C_set_block_item(lf[151] /* scheme#newline */,0,C_SCHEME_UNDEFINED); t142=C_set_block_item(lf[152] /* scheme#write */,0,C_SCHEME_UNDEFINED); t143=C_set_block_item(lf[153] /* scheme#display */,0,C_SCHEME_UNDEFINED); t144=C_mutate((C_word*)lf[154]+1 /* (set! scheme#eval ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9102,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp)); t145=C_mutate((C_word*)lf[158]+1 /* (set! scheme#interaction-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9108,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); t146=C_mutate((C_word*)lf[161]+1 /* (set! scheme#scheme-report-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9114,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp)); t147=C_mutate((C_word*)lf[164]+1 /* (set! scheme#null-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9120,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp)); t148=C_mutate((C_word*)lf[167]+1 /* (set! scheme#load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9126,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp)); t149=C_set_block_item(lf[170] /* scheme#for-each */,0,C_SCHEME_UNDEFINED); t150=C_set_block_item(lf[171] /* scheme#map */,0,C_SCHEME_UNDEFINED); t151=C_set_block_item(lf[172] /* scheme#dynamic-wind */,0,C_SCHEME_UNDEFINED); t152=C_a_i_provide(&a,1,lf[173]); t153=C_mutate((C_word*)lf[174]+1 /* (set! chicken.base#fixnum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9135,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp)); t154=C_mutate((C_word*)lf[175]+1 /* (set! chicken.base#flonum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9138,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp)); t155=C_mutate((C_word*)lf[176]+1 /* (set! chicken.base#bignum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9141,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp)); t156=C_mutate((C_word*)lf[177]+1 /* (set! chicken.base#ratnum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9144,a[2]=((C_word)li119),tmp=(C_word)a,a+=3,tmp)); t157=C_mutate((C_word*)lf[178]+1 /* (set! chicken.base#cplxnum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9147,a[2]=((C_word)li120),tmp=(C_word)a,a+=3,tmp)); t158=C_mutate((C_word*)lf[179]+1 /* (set! chicken.base#exact-integer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9150,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp)); t159=C_mutate((C_word*)lf[180]+1 /* (set! chicken.base#quotient&remainder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_quotient_and_remainder,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp)); t160=C_mutate((C_word*)lf[181]+1 /* (set! chicken.base#quotient&modulo ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9154,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp)); t161=C_mutate((C_word*)lf[182]+1 /* (set! chicken.base#finite? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9201,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp)); t162=C_mutate((C_word*)lf[183]+1 /* (set! chicken.base#infinite? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9204,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp)); t163=C_mutate((C_word*)lf[184]+1 /* (set! chicken.base#nan? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9207,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp)); t164=C_mutate((C_word*)lf[185]+1 /* (set! chicken.base#signum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_signum,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp)); t165=C_set_block_item(lf[186] /* chicken.base#get-call-chain */,0,C_SCHEME_UNDEFINED); t166=C_set_block_item(lf[187] /* chicken.base#print-call-chain */,0,C_SCHEME_UNDEFINED); t167=C_set_block_item(lf[188] /* chicken.base#print */,0,C_SCHEME_UNDEFINED); t168=C_set_block_item(lf[189] /* chicken.base#print* */,0,C_SCHEME_UNDEFINED); t169=C_mutate((C_word*)lf[190]+1 /* (set! chicken.base#add1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9215,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp)); t170=C_mutate((C_word*)lf[191]+1 /* (set! chicken.base#sub1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9221,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp)); t171=C_set_block_item(lf[192] /* chicken.base#current-error-port */,0,C_SCHEME_UNDEFINED); t172=C_mutate((C_word*)lf[193]+1 /* (set! chicken.base#error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9228,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp)); t173=C_mutate((C_word*)lf[196]+1 /* (set! chicken.base#void ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9243,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp)); t174=C_set_block_item(lf[197] /* chicken.base#sleep */,0,C_SCHEME_UNDEFINED); t175=C_set_block_item(lf[198] /* chicken.base#call/cc */,0,C_SCHEME_UNDEFINED); t176=C_set_block_item(lf[199] /* chicken.base#char-name */,0,C_SCHEME_UNDEFINED); t177=C_set_block_item(lf[200] /* chicken.base#getter-with-setter */,0,C_SCHEME_UNDEFINED); t178=C_set_block_item(lf[201] /* chicken.base#make-parameter */,0,C_SCHEME_UNDEFINED); t179=C_set_block_item(lf[202] /* chicken.base#procedure-information */,0,C_SCHEME_UNDEFINED); t180=C_set_block_item(lf[203] /* chicken.base#setter */,0,C_SCHEME_UNDEFINED); t181=C_set_block_item(lf[204] /* chicken.base#vector-copy! */,0,C_SCHEME_UNDEFINED); t182=C_set_block_item(lf[205] /* chicken.base#subvector */,0,C_SCHEME_UNDEFINED); t183=C_set_block_item(lf[206] /* chicken.base#vector-resize */,0,C_SCHEME_UNDEFINED); t184=C_set_block_item(lf[207] /* chicken.base#port? */,0,C_SCHEME_UNDEFINED); t185=C_set_block_item(lf[208] /* chicken.base#port-closed? */,0,C_SCHEME_UNDEFINED); t186=C_set_block_item(lf[209] /* chicken.base#input-port-open? */,0,C_SCHEME_UNDEFINED); t187=C_set_block_item(lf[210] /* chicken.base#output-port-open? */,0,C_SCHEME_UNDEFINED); t188=C_set_block_item(lf[211] /* chicken.base#get-output-string */,0,C_SCHEME_UNDEFINED); t189=C_set_block_item(lf[212] /* chicken.base#open-input-string */,0,C_SCHEME_UNDEFINED); t190=C_set_block_item(lf[213] /* chicken.base#open-output-string */,0,C_SCHEME_UNDEFINED); t191=C_set_block_item(lf[214] /* chicken.base#flush-output */,0,C_SCHEME_UNDEFINED); t192=C_mutate((C_word*)lf[215]+1 /* (set! chicken.base#promise? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9264,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp)); t193=C_mutate((C_word*)lf[217]+1 /* (set! ##sys#make-promise ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9270,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp)); t194=C_mutate((C_word*)lf[218]+1 /* (set! chicken.base#make-promise ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9276,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp)); t195=C_mutate((C_word*)lf[219]+1 /* (set! chicken.base#foldl ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9291,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp)); t196=C_mutate((C_word*)lf[221]+1 /* (set! chicken.base#foldr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9328,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp)); t197=C_set_block_item(lf[223] /* chicken.base#implicit-exit-handler */,0,C_SCHEME_UNDEFINED); t198=C_set_block_item(lf[224] /* chicken.base#exit-handler */,0,C_SCHEME_UNDEFINED); t199=C_set_block_item(lf[225] /* chicken.base#cleanup-tasks */,0,C_SCHEME_END_OF_LIST); t200=C_mutate((C_word*)lf[226]+1 /* (set! chicken.base#on-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9368,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp)); t201=C_mutate((C_word*)lf[227]+1 /* (set! chicken.base#exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9375,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp)); t202=C_mutate((C_word*)lf[228]+1 /* (set! chicken.base#emergency-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9393,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp)); t203=C_set_block_item(lf[230] /* chicken.base#case-sensitive */,0,C_SCHEME_UNDEFINED); t204=C_set_block_item(lf[231] /* chicken.base#keyword-style */,0,C_SCHEME_UNDEFINED); t205=C_set_block_item(lf[232] /* chicken.base#parentheses-synonyms */,0,C_SCHEME_UNDEFINED); t206=C_set_block_item(lf[233] /* chicken.base#symbol-escape */,0,C_SCHEME_UNDEFINED); t207=C_mutate((C_word*)lf[234]+1 /* (set! chicken.base#identity ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9412,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp)); t208=C_mutate((C_word*)lf[235]+1 /* (set! chicken.base#conjoin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9415,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp)); t209=C_mutate((C_word*)lf[236]+1 /* (set! chicken.base#disjoin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9448,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp)); t210=C_mutate((C_word*)lf[237]+1 /* (set! chicken.base#constantly ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9485,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp)); t211=C_mutate((C_word*)lf[238]+1 /* (set! chicken.base#flip ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9506,a[2]=((C_word)li156),tmp=(C_word)a,a+=3,tmp)); t212=C_mutate((C_word*)lf[239]+1 /* (set! chicken.base#complement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9514,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp)); t213=C_mutate((C_word*)lf[240]+1 /* (set! chicken.base#compose ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9526,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp)); t214=C_mutate((C_word*)lf[241]+1 /* (set! chicken.base#o ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9562,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp)); t215=C_mutate((C_word*)lf[242]+1 /* (set! chicken.base#list-of? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9601,a[2]=((C_word)li168),tmp=(C_word)a,a+=3,tmp)); t216=C_mutate((C_word*)lf[243]+1 /* (set! chicken.base#each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9645,a[2]=((C_word)li172),tmp=(C_word)a,a+=3,tmp)); t217=C_mutate((C_word*)lf[245]+1 /* (set! chicken.base#atom? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9701,a[2]=((C_word)li173),tmp=(C_word)a,a+=3,tmp)); t218=C_mutate((C_word*)lf[246]+1 /* (set! chicken.base#tail? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9704,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp)); t219=C_mutate((C_word*)lf[248]+1 /* (set! chicken.base#intersperse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9732,a[2]=((C_word)li177),tmp=(C_word)a,a+=3,tmp)); t220=C_mutate((C_word*)lf[249]+1 /* (set! chicken.base#butlast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9765,a[2]=((C_word)li179),tmp=(C_word)a,a+=3,tmp)); t221=C_mutate((C_word*)lf[251]+1 /* (set! chicken.base#flatten ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9797,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp)); t222=C_mutate((C_word*)lf[252]+1 /* (set! chicken.base#join ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9838,a[2]=((C_word)li183),tmp=(C_word)a,a+=3,tmp)); t223=C_mutate((C_word*)lf[255]+1 /* (set! chicken.base#compress ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9895,a[2]=((C_word)li185),tmp=(C_word)a,a+=3,tmp)); t224=C_mutate((C_word*)lf[259]+1 /* (set! chicken.base#alist-update! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9975,a[2]=((C_word)li188),tmp=(C_word)a,a+=3,tmp)); t225=C_mutate((C_word*)lf[260]+1 /* (set! chicken.base#alist-update ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10061,a[2]=((C_word)li190),tmp=(C_word)a,a+=3,tmp)); t226=C_mutate((C_word*)lf[264]+1 /* (set! chicken.base#alist-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10165,a[2]=((C_word)li193),tmp=(C_word)a,a+=3,tmp)); t227=C_mutate((C_word*)lf[267]+1 /* (set! chicken.base#rassoc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10277,a[2]=((C_word)li195),tmp=(C_word)a,a+=3,tmp)); t228=C_mutate(&lf[269] /* (set! maximal-string-length ...) */,C_unsigned_long_to_num(&a,C_HEADER_SIZE_MASK)); t229=C_a_i_provide(&a,1,lf[270]); t230=C_set_block_item(lf[271] /* chicken.fixnum#most-positive-fixnum */,0,C_fix((C_word)C_MOST_POSITIVE_FIXNUM)); t231=C_set_block_item(lf[272] /* chicken.fixnum#most-negative-fixnum */,0,C_fix((C_word)C_MOST_NEGATIVE_FIXNUM)); t232=C_set_block_item(lf[273] /* chicken.fixnum#fixnum-bits */,0,C_fix((C_word)(C_WORD_SIZE - 1))); t233=C_set_block_item(lf[274] /* chicken.fixnum#fixnum-precision */,0,C_fix((C_word)(C_WORD_SIZE - (1 + 1)))); t234=C_mutate((C_word*)lf[275]+1 /* (set! chicken.fixnum#fx+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10330,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp)); t235=C_mutate((C_word*)lf[276]+1 /* (set! chicken.fixnum#fx- ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10333,a[2]=((C_word)li197),tmp=(C_word)a,a+=3,tmp)); t236=C_mutate((C_word*)lf[277]+1 /* (set! chicken.fixnum#fx* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10336,a[2]=((C_word)li198),tmp=(C_word)a,a+=3,tmp)); t237=C_mutate((C_word*)lf[278]+1 /* (set! chicken.fixnum#fx= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10339,a[2]=((C_word)li199),tmp=(C_word)a,a+=3,tmp)); t238=C_mutate((C_word*)lf[279]+1 /* (set! chicken.fixnum#fx> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10345,a[2]=((C_word)li200),tmp=(C_word)a,a+=3,tmp)); t239=C_mutate((C_word*)lf[280]+1 /* (set! chicken.fixnum#fx< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10348,a[2]=((C_word)li201),tmp=(C_word)a,a+=3,tmp)); t240=C_mutate((C_word*)lf[281]+1 /* (set! chicken.fixnum#fx>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10351,a[2]=((C_word)li202),tmp=(C_word)a,a+=3,tmp)); t241=C_mutate((C_word*)lf[282]+1 /* (set! chicken.fixnum#fx<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10354,a[2]=((C_word)li203),tmp=(C_word)a,a+=3,tmp)); t242=C_mutate((C_word*)lf[283]+1 /* (set! chicken.fixnum#fxmin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10357,a[2]=((C_word)li204),tmp=(C_word)a,a+=3,tmp)); t243=C_mutate((C_word*)lf[284]+1 /* (set! chicken.fixnum#fxmax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10360,a[2]=((C_word)li205),tmp=(C_word)a,a+=3,tmp)); t244=C_mutate((C_word*)lf[285]+1 /* (set! chicken.fixnum#fxneg ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10363,a[2]=((C_word)li206),tmp=(C_word)a,a+=3,tmp)); t245=C_mutate((C_word*)lf[286]+1 /* (set! chicken.fixnum#fxand ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10366,a[2]=((C_word)li207),tmp=(C_word)a,a+=3,tmp)); t246=C_mutate((C_word*)lf[287]+1 /* (set! chicken.fixnum#fxior ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10369,a[2]=((C_word)li208),tmp=(C_word)a,a+=3,tmp)); t247=C_mutate((C_word*)lf[288]+1 /* (set! chicken.fixnum#fxxor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10372,a[2]=((C_word)li209),tmp=(C_word)a,a+=3,tmp)); t248=C_mutate((C_word*)lf[289]+1 /* (set! chicken.fixnum#fxnot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10375,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp)); t249=C_mutate((C_word*)lf[290]+1 /* (set! chicken.fixnum#fxshl ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10378,a[2]=((C_word)li211),tmp=(C_word)a,a+=3,tmp)); t250=C_mutate((C_word*)lf[291]+1 /* (set! chicken.fixnum#fxshr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10381,a[2]=((C_word)li212),tmp=(C_word)a,a+=3,tmp)); t251=C_mutate((C_word*)lf[292]+1 /* (set! chicken.fixnum#fxodd? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10384,a[2]=((C_word)li213),tmp=(C_word)a,a+=3,tmp)); t252=C_mutate((C_word*)lf[293]+1 /* (set! chicken.fixnum#fxeven? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10387,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp)); t253=C_mutate((C_word*)lf[294]+1 /* (set! chicken.fixnum#fxlen ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10390,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp)); t254=C_mutate((C_word*)lf[295]+1 /* (set! chicken.fixnum#fx/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10393,a[2]=((C_word)li216),tmp=(C_word)a,a+=3,tmp)); t255=C_mutate((C_word*)lf[296]+1 /* (set! chicken.fixnum#fxgcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10396,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp)); t256=C_mutate((C_word*)lf[297]+1 /* (set! chicken.fixnum#fxmod ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10399,a[2]=((C_word)li218),tmp=(C_word)a,a+=3,tmp)); t257=C_mutate((C_word*)lf[298]+1 /* (set! chicken.fixnum#fxrem ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10402,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp)); t258=C_mutate((C_word*)lf[299]+1 /* (set! chicken.fixnum#fx+? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10405,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp)); t259=C_mutate((C_word*)lf[300]+1 /* (set! chicken.fixnum#fx-? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10408,a[2]=((C_word)li221),tmp=(C_word)a,a+=3,tmp)); t260=C_mutate((C_word*)lf[301]+1 /* (set! chicken.fixnum#fx*? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10411,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp)); t261=C_mutate((C_word*)lf[302]+1 /* (set! chicken.fixnum#fx/? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10414,a[2]=((C_word)li223),tmp=(C_word)a,a+=3,tmp)); t262=C_mutate((C_word*)lf[303]+1 /* (set! ##sys#debug-mode? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10417,a[2]=((C_word)li224),tmp=(C_word)a,a+=3,tmp)); t263=C_set_block_item(lf[304] /* ##sys#warnings-enabled */,0,C_SCHEME_TRUE); t264=C_set_block_item(lf[305] /* ##sys#notices-enabled */,0,C_i_debug_modep()); t265=C_mutate((C_word*)lf[306]+1 /* (set! chicken.base#warning ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10422,a[2]=((C_word)li225),tmp=(C_word)a,a+=3,tmp)); t266=C_mutate((C_word*)lf[308]+1 /* (set! chicken.base#notice ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10431,a[2]=((C_word)li226),tmp=(C_word)a,a+=3,tmp)); t267=C_mutate((C_word*)lf[310]+1 /* (set! chicken.base#enable-warnings ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10443,a[2]=((C_word)li227),tmp=(C_word)a,a+=3,tmp)); t268=C_mutate((C_word*)lf[155]+1 /* (set! ##sys#error ...) */,*((C_word*)lf[193]+1)); t269=C_mutate((C_word*)lf[311]+1 /* (set! ##sys#warn ...) */,*((C_word*)lf[306]+1)); t270=C_mutate((C_word*)lf[312]+1 /* (set! ##sys#notice ...) */,*((C_word*)lf[308]+1)); t271=C_mutate((C_word*)lf[313]+1 /* (set! ##sys#gc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_gc,a[2]=((C_word)li228),tmp=(C_word)a,a+=3,tmp)); t272=C_mutate((C_word*)lf[314]+1 /* (set! ##sys#setslot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10458,a[2]=((C_word)li229),tmp=(C_word)a,a+=3,tmp)); t273=C_mutate((C_word*)lf[315]+1 /* (set! ##sys#setislot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10461,a[2]=((C_word)li230),tmp=(C_word)a,a+=3,tmp)); t274=C_mutate((C_word*)lf[316]+1 /* (set! ##sys#allocate-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_allocate_vector,a[2]=((C_word)li231),tmp=(C_word)a,a+=3,tmp)); t275=C_mutate((C_word*)lf[317]+1 /* (set! ##sys#make-structure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_structure,a[2]=((C_word)li232),tmp=(C_word)a,a+=3,tmp)); t276=C_mutate((C_word*)lf[318]+1 /* (set! ##sys#ensure-heap-reserve ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_ensure_heap_reserve,a[2]=((C_word)li233),tmp=(C_word)a,a+=3,tmp)); t277=C_mutate((C_word*)lf[319]+1 /* (set! ##sys#symbol-table-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_get_symbol_table_info,a[2]=((C_word)li234),tmp=(C_word)a,a+=3,tmp)); t278=C_mutate((C_word*)lf[320]+1 /* (set! ##sys#memory-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_get_memory_info,a[2]=((C_word)li235),tmp=(C_word)a,a+=3,tmp)); t279=C_mutate((C_word*)lf[321]+1 /* (set! ##sys#start-timer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10469,a[2]=((C_word)li236),tmp=(C_word)a,a+=3,tmp)); t280=C_mutate((C_word*)lf[322]+1 /* (set! ##sys#stop-timer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10475,a[2]=((C_word)li239),tmp=(C_word)a,a+=3,tmp)); t281=C_mutate((C_word*)lf[323]+1 /* (set! ##sys#immediate? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10495,a[2]=((C_word)li240),tmp=(C_word)a,a+=3,tmp)); t282=C_mutate((C_word*)lf[324]+1 /* (set! ##sys#message ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10502,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp)); t283=C_mutate((C_word*)lf[325]+1 /* (set! ##sys#byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10505,a[2]=((C_word)li242),tmp=(C_word)a,a+=3,tmp)); t284=C_mutate((C_word*)lf[326]+1 /* (set! ##sys#setbyte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10508,a[2]=((C_word)li243),tmp=(C_word)a,a+=3,tmp)); t285=C_mutate((C_word*)lf[327]+1 /* (set! ##sys#void ...) */,*((C_word*)lf[196]+1)); t286=C_set_block_item(lf[244] /* ##sys#undefined-value */,0,C_SCHEME_UNDEFINED); t287=C_mutate((C_word*)lf[328]+1 /* (set! ##sys#halt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10513,a[2]=((C_word)li244),tmp=(C_word)a,a+=3,tmp)); t288=C_mutate((C_word*)lf[329]+1 /* (set! ##sys#become! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_become,a[2]=((C_word)li245),tmp=(C_word)a,a+=3,tmp)); t289=C_mutate((C_word*)lf[330]+1 /* (set! ##sys#block-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10517,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp)); t290=C_mutate((C_word*)lf[331]+1 /* (set! ##sys#apply-values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_apply_values,a[2]=((C_word)li247),tmp=(C_word)a,a+=3,tmp)); t291=C_mutate((C_word*)lf[332]+1 /* (set! ##sys#copy-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_copy_closure,a[2]=((C_word)li248),tmp=(C_word)a,a+=3,tmp)); t292=C_mutate((C_word*)lf[333]+1 /* (set! ##sys#block-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10522,a[2]=((C_word)li249),tmp=(C_word)a,a+=3,tmp)); t293=C_a_i_provide(&a,1,lf[336]); t294=C_mutate((C_word*)lf[337]+1 /* (set! chicken.time#current-milliseconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10557,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp)); t295=C_mutate((C_word*)lf[338]+1 /* (set! chicken.time#current-seconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10560,a[2]=((C_word)li251),tmp=(C_word)a,a+=3,tmp)); t296=C_mutate((C_word*)lf[339]+1 /* (set! chicken.time#cpu-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10563,a[2]=((C_word)li252),tmp=(C_word)a,a+=3,tmp)); t297=C_mutate((C_word*)lf[340]+1 /* (set! ##sys#check-structure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10580,a[2]=((C_word)li253),tmp=(C_word)a,a+=3,tmp)); t298=C_mutate((C_word*)lf[341]+1 /* (set! ##sys#check-blob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10591,a[2]=((C_word)li254),tmp=(C_word)a,a+=3,tmp)); t299=C_mutate((C_word*)lf[342]+1 /* (set! ##sys#check-byte-vector ...) */,*((C_word*)lf[341]+1)); t300=C_mutate((C_word*)lf[343]+1 /* (set! ##sys#check-pair ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10603,a[2]=((C_word)li255),tmp=(C_word)a,a+=3,tmp)); t301=C_mutate((C_word*)lf[344]+1 /* (set! ##sys#check-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10614,a[2]=((C_word)li256),tmp=(C_word)a,a+=3,tmp)); t302=C_mutate((C_word*)lf[345]+1 /* (set! ##sys#check-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10625,a[2]=((C_word)li257),tmp=(C_word)a,a+=3,tmp)); t303=C_mutate((C_word*)lf[346]+1 /* (set! ##sys#check-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10636,a[2]=((C_word)li258),tmp=(C_word)a,a+=3,tmp)); t304=C_mutate((C_word*)lf[102]+1 /* (set! ##sys#check-fixnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10647,a[2]=((C_word)li259),tmp=(C_word)a,a+=3,tmp)); t305=C_mutate((C_word*)lf[347]+1 /* (set! ##sys#check-exact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10658,a[2]=((C_word)li260),tmp=(C_word)a,a+=3,tmp)); t306=C_mutate((C_word*)lf[348]+1 /* (set! ##sys#check-inexact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10669,a[2]=((C_word)li261),tmp=(C_word)a,a+=3,tmp)); t307=C_mutate((C_word*)lf[349]+1 /* (set! ##sys#check-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10680,a[2]=((C_word)li262),tmp=(C_word)a,a+=3,tmp)); t308=C_mutate((C_word*)lf[350]+1 /* (set! ##sys#check-keyword ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10691,a[2]=((C_word)li263),tmp=(C_word)a,a+=3,tmp)); t309=C_mutate((C_word*)lf[351]+1 /* (set! ##sys#check-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10702,a[2]=((C_word)li264),tmp=(C_word)a,a+=3,tmp)); t310=C_mutate((C_word*)lf[352]+1 /* (set! ##sys#check-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10713,a[2]=((C_word)li265),tmp=(C_word)a,a+=3,tmp)); t311=C_mutate((C_word*)lf[353]+1 /* (set! ##sys#check-boolean ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10724,a[2]=((C_word)li266),tmp=(C_word)a,a+=3,tmp)); t312=C_mutate((C_word*)lf[354]+1 /* (set! ##sys#check-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10735,a[2]=((C_word)li267),tmp=(C_word)a,a+=3,tmp)); t313=C_mutate((C_word*)lf[355]+1 /* (set! ##sys#check-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10746,a[2]=((C_word)li268),tmp=(C_word)a,a+=3,tmp)); t314=C_mutate((C_word*)lf[357]+1 /* (set! ##sys#check-exact-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10763,a[2]=((C_word)li269),tmp=(C_word)a,a+=3,tmp)); t315=C_mutate((C_word*)lf[359]+1 /* (set! ##sys#check-exact-uinteger ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10780,a[2]=((C_word)li270),tmp=(C_word)a,a+=3,tmp)); t316=C_mutate((C_word*)lf[361]+1 /* (set! ##sys#check-real ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10804,a[2]=((C_word)li271),tmp=(C_word)a,a+=3,tmp)); t317=C_mutate((C_word*)lf[334]+1 /* (set! ##sys#check-range ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10821,a[2]=((C_word)li272),tmp=(C_word)a,a+=3,tmp)); t318=C_mutate((C_word*)lf[364]+1 /* (set! ##sys#check-special ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10851,a[2]=((C_word)li273),tmp=(C_word)a,a+=3,tmp)); t319=C_mutate((C_word*)lf[366]+1 /* (set! ##sys#check-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10871,a[2]=((C_word)li274),tmp=(C_word)a,a+=3,tmp)); t320=C_mutate((C_word*)lf[367]+1 /* (set! scheme#force ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10882,a[2]=((C_word)li276),tmp=(C_word)a,a+=3,tmp)); t321=C_mutate((C_word*)lf[369]+1 /* (set! ##sys#dload ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_dload,a[2]=((C_word)li277),tmp=(C_word)a,a+=3,tmp)); t322=C_mutate((C_word*)lf[370]+1 /* (set! ##sys#set-dlopen-flags! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_set_dlopen_flags,a[2]=((C_word)li278),tmp=(C_word)a,a+=3,tmp)); t323=C_mutate((C_word*)lf[47]+1 /* (set! ##sys#error-not-a-proper-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11010,a[2]=((C_word)li279),tmp=(C_word)a,a+=3,tmp)); t324=C_mutate((C_word*)lf[371]+1 /* (set! ##sys#error-bad-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11026,a[2]=((C_word)li280),tmp=(C_word)a,a+=3,tmp)); t325=C_mutate((C_word*)lf[356]+1 /* (set! ##sys#error-bad-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11042,a[2]=((C_word)li281),tmp=(C_word)a,a+=3,tmp)); t326=C_mutate((C_word*)lf[358]+1 /* (set! ##sys#error-bad-exact-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11058,a[2]=((C_word)li282),tmp=(C_word)a,a+=3,tmp)); t327=C_mutate((C_word*)lf[360]+1 /* (set! ##sys#error-bad-exact-uinteger ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11074,a[2]=((C_word)li283),tmp=(C_word)a,a+=3,tmp)); t328=C_mutate((C_word*)lf[372]+1 /* (set! ##sys#error-bad-inexact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11090,a[2]=((C_word)li284),tmp=(C_word)a,a+=3,tmp)); t329=C_mutate((C_word*)lf[362]+1 /* (set! ##sys#error-bad-real ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11106,a[2]=((C_word)li285),tmp=(C_word)a,a+=3,tmp)); t330=C_mutate((C_word*)lf[373]+1 /* (set! ##sys#error-bad-base ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11122,a[2]=((C_word)li286),tmp=(C_word)a,a+=3,tmp)); t331=C_mutate((C_word*)lf[374]+1 /* (set! scheme#append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11138,a[2]=((C_word)li289),tmp=(C_word)a,a+=3,tmp)); t332=C_mutate((C_word*)lf[376]+1 /* (set! ##sys#fast-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11217,a[2]=((C_word)li291),tmp=(C_word)a,a+=3,tmp)); t333=C_mutate((C_word*)lf[377]+1 /* (set! ##sys#make-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11247,a[2]=((C_word)li292),tmp=(C_word)a,a+=3,tmp)); t334=C_mutate((C_word*)lf[378]+1 /* (set! scheme#make-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11267,a[2]=((C_word)li293),tmp=(C_word)a,a+=3,tmp)); t335=C_mutate((C_word*)lf[382]+1 /* (set! scheme#string->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11303,a[2]=((C_word)li295),tmp=(C_word)a,a+=3,tmp)); t336=C_mutate((C_word*)lf[384]+1 /* (set! ##sys#string->list ...) */,*((C_word*)lf[382]+1)); t337=C_mutate((C_word*)lf[385]+1 /* (set! scheme#list->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11341,a[2]=((C_word)li297),tmp=(C_word)a,a+=3,tmp)); t338=C_mutate((C_word*)lf[387]+1 /* (set! ##sys#list->string ...) */,*((C_word*)lf[385]+1)); t339=C_mutate((C_word*)lf[388]+1 /* (set! ##sys#reverse-list->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11393,a[2]=((C_word)li299),tmp=(C_word)a,a+=3,tmp)); t340=C_mutate((C_word*)lf[390]+1 /* (set! scheme#string-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11442,a[2]=((C_word)li300),tmp=(C_word)a,a+=3,tmp)); t341=C_mutate((C_word*)lf[392]+1 /* (set! scheme#string-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11455,a[2]=((C_word)li301),tmp=(C_word)a,a+=3,tmp)); t342=C_mutate((C_word*)lf[394]+1 /* (set! scheme#substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11467,a[2]=((C_word)li302),tmp=(C_word)a,a+=3,tmp)); t343=C_mutate((C_word*)lf[396]+1 /* (set! ##sys#substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11517,a[2]=((C_word)li303),tmp=(C_word)a,a+=3,tmp)); t344=C_SCHEME_UNDEFINED; t345=(*a=C_VECTOR_TYPE|1,a[1]=t344,tmp=(C_word)a,a+=2,tmp); t346=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11526,a[2]=((C_word)li304),tmp=(C_word)a,a+=3,tmp); t347=C_set_block_item(t345,0,t346); t348=C_mutate((C_word*)lf[397]+1 /* (set! scheme#string<? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11547,a[2]=t345,a[3]=((C_word)li306),tmp=(C_word)a,a+=4,tmp)); t349=C_mutate((C_word*)lf[399]+1 /* (set! scheme#string>? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11571,a[2]=t345,a[3]=((C_word)li308),tmp=(C_word)a,a+=4,tmp)); t350=C_mutate((C_word*)lf[401]+1 /* (set! scheme#string<=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11595,a[2]=t345,a[3]=((C_word)li310),tmp=(C_word)a,a+=4,tmp)); t351=C_mutate((C_word*)lf[403]+1 /* (set! scheme#string>=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11616,a[2]=t345,a[3]=((C_word)li312),tmp=(C_word)a,a+=4,tmp)); t352=C_SCHEME_UNDEFINED; t353=(*a=C_VECTOR_TYPE|1,a[1]=t352,tmp=(C_word)a,a+=2,tmp); t354=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11636,a[2]=((C_word)li313),tmp=(C_word)a,a+=3,tmp); t355=C_set_block_item(t353,0,t354); t356=C_mutate((C_word*)lf[405]+1 /* (set! scheme#string-ci<? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11657,a[2]=t353,a[3]=((C_word)li315),tmp=(C_word)a,a+=4,tmp)); t357=C_mutate((C_word*)lf[407]+1 /* (set! scheme#string-ci>? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11681,a[2]=t353,a[3]=((C_word)li317),tmp=(C_word)a,a+=4,tmp)); t358=C_mutate((C_word*)lf[409]+1 /* (set! scheme#string-ci<=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11705,a[2]=t353,a[3]=((C_word)li319),tmp=(C_word)a,a+=4,tmp)); t359=C_mutate((C_word*)lf[411]+1 /* (set! scheme#string-ci>=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11726,a[2]=t353,a[3]=((C_word)li321),tmp=(C_word)a,a+=4,tmp)); t360=C_mutate((C_word*)lf[413]+1 /* (set! ##sys#string-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11747,a[2]=((C_word)li322),tmp=(C_word)a,a+=3,tmp)); t361=C_mutate((C_word*)lf[414]+1 /* (set! scheme#string-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11763,a[2]=((C_word)li324),tmp=(C_word)a,a+=3,tmp)); t362=C_mutate((C_word*)lf[416]+1 /* (set! scheme#string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11802,a[2]=((C_word)li325),tmp=(C_word)a,a+=3,tmp)); t363=C_mutate((C_word*)lf[417]+1 /* (set! ##sys#fragments->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11808,a[2]=((C_word)li327),tmp=(C_word)a,a+=3,tmp)); t364=C_mutate((C_word*)lf[418]+1 /* (set! chicken.base#chop ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11843,a[2]=((C_word)li330),tmp=(C_word)a,a+=3,tmp)); t365=C_a_i_provide(&a,1,lf[421]); t366=C_mutate((C_word*)lf[422]+1 /* (set! chicken.flonum#maximum-flonum ...) */,C_flonum(&a,DBL_MAX)); t367=C_mutate((C_word*)lf[423]+1 /* (set! chicken.flonum#minimum-flonum ...) */,C_flonum(&a,DBL_MIN)); t368=C_set_block_item(lf[424] /* chicken.flonum#flonum-radix */,0,C_fix((C_word)FLT_RADIX)); t369=C_mutate((C_word*)lf[425]+1 /* (set! chicken.flonum#flonum-epsilon ...) */,C_flonum(&a,DBL_EPSILON)); t370=C_set_block_item(lf[426] /* chicken.flonum#flonum-precision */,0,C_fix((C_word)DBL_MANT_DIG)); t371=C_set_block_item(lf[427] /* chicken.flonum#flonum-decimal-precision */,0,C_fix((C_word)DBL_DIG)); t372=C_set_block_item(lf[428] /* chicken.flonum#flonum-maximum-exponent */,0,C_fix((C_word)DBL_MAX_EXP)); t373=C_set_block_item(lf[429] /* chicken.flonum#flonum-minimum-exponent */,0,C_fix((C_word)DBL_MIN_EXP)); t374=C_set_block_item(lf[430] /* chicken.flonum#flonum-maximum-decimal-exponent */,0,C_fix((C_word)DBL_MAX_10_EXP)); t375=C_set_block_item(lf[431] /* chicken.flonum#flonum-minimum-decimal-exponent */,0,C_fix((C_word)DBL_MIN_10_EXP)); t376=C_mutate((C_word*)lf[432]+1 /* (set! chicken.flonum#fp+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11938,a[2]=((C_word)li331),tmp=(C_word)a,a+=3,tmp)); t377=C_mutate((C_word*)lf[434]+1 /* (set! chicken.flonum#fp- ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11962,a[2]=((C_word)li332),tmp=(C_word)a,a+=3,tmp)); t378=C_mutate((C_word*)lf[436]+1 /* (set! chicken.flonum#fp* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11986,a[2]=((C_word)li333),tmp=(C_word)a,a+=3,tmp)); t379=C_mutate((C_word*)lf[438]+1 /* (set! chicken.flonum#fp/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12010,a[2]=((C_word)li334),tmp=(C_word)a,a+=3,tmp)); t380=C_mutate((C_word*)lf[440]+1 /* (set! chicken.flonum#fpgcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12034,a[2]=((C_word)li335),tmp=(C_word)a,a+=3,tmp)); t381=C_mutate((C_word*)lf[442]+1 /* (set! chicken.flonum#fp/? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12058,a[2]=((C_word)li336),tmp=(C_word)a,a+=3,tmp)); t382=C_mutate((C_word*)lf[444]+1 /* (set! chicken.flonum#fp= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12082,a[2]=((C_word)li337),tmp=(C_word)a,a+=3,tmp)); t383=C_mutate((C_word*)lf[446]+1 /* (set! chicken.flonum#fp> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12106,a[2]=((C_word)li338),tmp=(C_word)a,a+=3,tmp)); t384=C_mutate((C_word*)lf[448]+1 /* (set! chicken.flonum#fp< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12130,a[2]=((C_word)li339),tmp=(C_word)a,a+=3,tmp)); t385=C_mutate((C_word*)lf[450]+1 /* (set! chicken.flonum#fp>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12154,a[2]=((C_word)li340),tmp=(C_word)a,a+=3,tmp)); t386=C_mutate((C_word*)lf[452]+1 /* (set! chicken.flonum#fp<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12178,a[2]=((C_word)li341),tmp=(C_word)a,a+=3,tmp)); t387=C_mutate((C_word*)lf[454]+1 /* (set! chicken.flonum#fpneg ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12202,a[2]=((C_word)li342),tmp=(C_word)a,a+=3,tmp)); t388=C_mutate((C_word*)lf[456]+1 /* (set! chicken.flonum#fpmax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12220,a[2]=((C_word)li343),tmp=(C_word)a,a+=3,tmp)); t389=C_mutate((C_word*)lf[458]+1 /* (set! chicken.flonum#fpmin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12244,a[2]=((C_word)li344),tmp=(C_word)a,a+=3,tmp)); t390=C_mutate((C_word*)lf[460]+1 /* (set! chicken.flonum#fpfloor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12268,a[2]=((C_word)li345),tmp=(C_word)a,a+=3,tmp)); t391=C_mutate((C_word*)lf[462]+1 /* (set! chicken.flonum#fptruncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12286,a[2]=((C_word)li346),tmp=(C_word)a,a+=3,tmp)); t392=C_mutate((C_word*)lf[464]+1 /* (set! chicken.flonum#fpround ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12304,a[2]=((C_word)li347),tmp=(C_word)a,a+=3,tmp)); t393=C_mutate((C_word*)lf[466]+1 /* (set! chicken.flonum#fpceiling ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12322,a[2]=((C_word)li348),tmp=(C_word)a,a+=3,tmp)); t394=C_mutate((C_word*)lf[468]+1 /* (set! chicken.flonum#fpsin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12340,a[2]=((C_word)li349),tmp=(C_word)a,a+=3,tmp)); t395=C_mutate((C_word*)lf[470]+1 /* (set! chicken.flonum#fpcos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12358,a[2]=((C_word)li350),tmp=(C_word)a,a+=3,tmp)); t396=C_mutate((C_word*)lf[472]+1 /* (set! chicken.flonum#fptan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12376,a[2]=((C_word)li351),tmp=(C_word)a,a+=3,tmp)); t397=C_mutate((C_word*)lf[474]+1 /* (set! chicken.flonum#fpasin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12394,a[2]=((C_word)li352),tmp=(C_word)a,a+=3,tmp)); t398=C_mutate((C_word*)lf[476]+1 /* (set! chicken.flonum#fpacos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12412,a[2]=((C_word)li353),tmp=(C_word)a,a+=3,tmp)); t399=C_mutate((C_word*)lf[478]+1 /* (set! chicken.flonum#fpatan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12430,a[2]=((C_word)li354),tmp=(C_word)a,a+=3,tmp)); t400=C_mutate((C_word*)lf[480]+1 /* (set! chicken.flonum#fpatan2 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12448,a[2]=((C_word)li355),tmp=(C_word)a,a+=3,tmp)); t401=C_mutate((C_word*)lf[482]+1 /* (set! chicken.flonum#fpexp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12472,a[2]=((C_word)li356),tmp=(C_word)a,a+=3,tmp)); t402=C_mutate((C_word*)lf[484]+1 /* (set! chicken.flonum#fpexpt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12490,a[2]=((C_word)li357),tmp=(C_word)a,a+=3,tmp)); t403=C_mutate((C_word*)lf[486]+1 /* (set! chicken.flonum#fplog ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12514,a[2]=((C_word)li358),tmp=(C_word)a,a+=3,tmp)); t404=C_mutate((C_word*)lf[488]+1 /* (set! chicken.flonum#fpsqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12532,a[2]=((C_word)li359),tmp=(C_word)a,a+=3,tmp)); t405=C_mutate((C_word*)lf[490]+1 /* (set! chicken.flonum#fpabs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12550,a[2]=((C_word)li360),tmp=(C_word)a,a+=3,tmp)); t406=C_mutate((C_word*)lf[492]+1 /* (set! chicken.flonum#fpinteger? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12568,a[2]=((C_word)li361),tmp=(C_word)a,a+=3,tmp)); t407=C_mutate((C_word*)lf[494]+1 /* (set! chicken.flonum#flonum-print-precision ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12586,a[2]=((C_word)li362),tmp=(C_word)a,a+=3,tmp)); t408=C_mutate((C_word*)lf[496]+1 /* (set! ##sys#number? ...) */,*((C_word*)lf[77]+1)); t409=C_mutate((C_word*)lf[497]+1 /* (set! ##sys#integer? ...) */,*((C_word*)lf[81]+1)); t410=C_mutate((C_word*)lf[498]+1 /* (set! ##sys#exact? ...) */,*((C_word*)lf[82]+1)); t411=C_mutate((C_word*)lf[499]+1 /* (set! ##sys#inexact? ...) */,*((C_word*)lf[83]+1)); t412=C_mutate(&lf[500] /* (set! make-complex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12608,a[2]=((C_word)li363),tmp=(C_word)a,a+=3,tmp)); t413=C_mutate((C_word*)lf[502]+1 /* (set! scheme#make-rectangular ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12644,a[2]=((C_word)li364),tmp=(C_word)a,a+=3,tmp)); t414=C_mutate((C_word*)lf[504]+1 /* (set! scheme#make-polar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12656,a[2]=((C_word)li365),tmp=(C_word)a,a+=3,tmp)); t415=C_mutate((C_word*)lf[506]+1 /* (set! scheme#real-part ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12679,a[2]=((C_word)li366),tmp=(C_word)a,a+=3,tmp)); t416=C_mutate((C_word*)lf[508]+1 /* (set! scheme#imag-part ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12702,a[2]=((C_word)li367),tmp=(C_word)a,a+=3,tmp)); t417=C_mutate((C_word*)lf[510]+1 /* (set! scheme#angle ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12728,a[2]=((C_word)li368),tmp=(C_word)a,a+=3,tmp)); t418=C_mutate((C_word*)lf[512]+1 /* (set! scheme#magnitude ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12744,a[2]=((C_word)li369),tmp=(C_word)a,a+=3,tmp)); t419=C_mutate(&lf[515] /* (set! ratnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12788,a[2]=((C_word)li370),tmp=(C_word)a,a+=3,tmp)); t420=C_mutate((C_word*)lf[516]+1 /* (set! scheme#numerator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12834,a[2]=((C_word)li371),tmp=(C_word)a,a+=3,tmp)); t421=C_mutate((C_word*)lf[521]+1 /* (set! scheme#denominator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12880,a[2]=((C_word)li372),tmp=(C_word)a,a+=3,tmp)); t422=C_mutate((C_word*)lf[525]+1 /* (set! ##sys#extended-signum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12926,a[2]=((C_word)li373),tmp=(C_word)a,a+=3,tmp)); t423=C_mutate((C_word*)lf[519]+1 /* (set! scheme#inexact->exact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13050,a[2]=((C_word)li376),tmp=(C_word)a,a+=3,tmp)); t424=C_mutate((C_word*)lf[532]+1 /* (set! ##sys#exact->inexact ...) */,*((C_word*)lf[62]+1)); t425=C_mutate((C_word*)lf[533]+1 /* (set! ##sys#inexact->exact ...) */,*((C_word*)lf[519]+1)); t426=C_a_i_provide(&a,1,lf[534]); t427=C_mutate((C_word*)lf[535]+1 /* (set! chicken.bitwise#bitwise-and ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_bitwise_and,a[2]=((C_word)li377),tmp=(C_word)a,a+=3,tmp)); t428=C_mutate((C_word*)lf[536]+1 /* (set! chicken.bitwise#bitwise-ior ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_bitwise_ior,a[2]=((C_word)li378),tmp=(C_word)a,a+=3,tmp)); t429=C_mutate((C_word*)lf[537]+1 /* (set! chicken.bitwise#bitwise-xor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_bitwise_xor,a[2]=((C_word)li379),tmp=(C_word)a,a+=3,tmp)); t430=C_mutate((C_word*)lf[538]+1 /* (set! chicken.bitwise#bitwise-not ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13116,a[2]=((C_word)li380),tmp=(C_word)a,a+=3,tmp)); t431=C_mutate((C_word*)lf[539]+1 /* (set! chicken.bitwise#bit->boolean ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13119,a[2]=((C_word)li381),tmp=(C_word)a,a+=3,tmp)); t432=C_mutate((C_word*)lf[540]+1 /* (set! chicken.bitwise#integer-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13122,a[2]=((C_word)li382),tmp=(C_word)a,a+=3,tmp)); t433=C_mutate((C_word*)lf[541]+1 /* (set! chicken.bitwise#arithmetic-shift ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13125,a[2]=((C_word)li383),tmp=(C_word)a,a+=3,tmp)); t434=C_mutate((C_word*)lf[542]+1 /* (set! scheme#/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13128,a[2]=((C_word)li385),tmp=(C_word)a,a+=3,tmp)); t435=C_mutate((C_word*)lf[527]+1 /* (set! ##sys#/-2 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13179,a[2]=((C_word)li386),tmp=(C_word)a,a+=3,tmp)); t436=C_mutate((C_word*)lf[545]+1 /* (set! scheme#floor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13462,a[2]=((C_word)li387),tmp=(C_word)a,a+=3,tmp)); t437=C_mutate((C_word*)lf[547]+1 /* (set! scheme#ceiling ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13507,a[2]=((C_word)li388),tmp=(C_word)a,a+=3,tmp)); t438=C_mutate((C_word*)lf[549]+1 /* (set! scheme#truncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13552,a[2]=((C_word)li389),tmp=(C_word)a,a+=3,tmp)); t439=C_mutate((C_word*)lf[551]+1 /* (set! scheme#round ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13589,a[2]=((C_word)li390),tmp=(C_word)a,a+=3,tmp)); t440=C_mutate(&lf[553] /* (set! find-ratio-between ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13633,a[2]=((C_word)li392),tmp=(C_word)a,a+=3,tmp)); t441=C_mutate((C_word*)lf[555]+1 /* (set! scheme#rationalize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13783,a[2]=((C_word)li393),tmp=(C_word)a,a+=3,tmp)); t442=C_mutate((C_word*)lf[556]+1 /* (set! scheme#max ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13808,a[2]=((C_word)li395),tmp=(C_word)a,a+=3,tmp)); t443=C_mutate((C_word*)lf[558]+1 /* (set! scheme#min ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13852,a[2]=((C_word)li397),tmp=(C_word)a,a+=3,tmp)); t444=C_mutate((C_word*)lf[560]+1 /* (set! scheme#exp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13896,a[2]=((C_word)li398),tmp=(C_word)a,a+=3,tmp)); t445=C_mutate((C_word*)lf[562]+1 /* (set! ##sys#log-1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13941,a[2]=((C_word)li399),tmp=(C_word)a,a+=3,tmp)); t446=C_mutate((C_word*)lf[566]+1 /* (set! scheme#log ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13990,a[2]=((C_word)li400),tmp=(C_word)a,a+=3,tmp)); t447=C_mutate((C_word*)lf[567]+1 /* (set! scheme#sin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14019,a[2]=((C_word)li401),tmp=(C_word)a,a+=3,tmp)); t448=C_mutate((C_word*)lf[571]+1 /* (set! scheme#cos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14053,a[2]=((C_word)li402),tmp=(C_word)a,a+=3,tmp)); t449=C_mutate((C_word*)lf[573]+1 /* (set! scheme#tan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14087,a[2]=((C_word)li403),tmp=(C_word)a,a+=3,tmp)); t450=C_mutate((C_word*)lf[575]+1 /* (set! scheme#asin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14112,a[2]=((C_word)li404),tmp=(C_word)a,a+=3,tmp)); t451=C_a_i_asin(&a,1,C_fix(1)); t452=C_mutate((C_word*)lf[580]+1 /* (set! scheme#acos ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14174,a[2]=t451,a[3]=((C_word)li405),tmp=(C_word)a,a+=4,tmp)); t453=C_mutate((C_word*)lf[582]+1 /* (set! scheme#atan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14216,a[2]=((C_word)li406),tmp=(C_word)a,a+=3,tmp)); t454=C_mutate((C_word*)lf[584]+1 /* (set! ##sys#exact-integer-sqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14280,a[2]=((C_word)li412),tmp=(C_word)a,a+=3,tmp)); t455=C_mutate((C_word*)lf[586]+1 /* (set! chicken.base#exact-integer-sqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14471,a[2]=((C_word)li413),tmp=(C_word)a,a+=3,tmp)); t456=C_mutate((C_word*)lf[578]+1 /* (set! ##sys#sqrt/loc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14480,a[2]=((C_word)li420),tmp=(C_word)a,a+=3,tmp)); t457=C_mutate((C_word*)lf[513]+1 /* (set! scheme#sqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14635,a[2]=((C_word)li421),tmp=(C_word)a,a+=3,tmp)); t458=C_mutate((C_word*)lf[589]+1 /* (set! chicken.base#exact-integer-nth-root ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14641,a[2]=((C_word)li422),tmp=(C_word)a,a+=3,tmp)); t459=C_mutate((C_word*)lf[590]+1 /* (set! ##sys#exact-integer-nth-root/loc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14653,a[2]=((C_word)li424),tmp=(C_word)a,a+=3,tmp)); t460=C_mutate((C_word*)lf[529]+1 /* (set! ##sys#integer-power ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14779,a[2]=((C_word)li426),tmp=(C_word)a,a+=3,tmp)); t461=C_mutate((C_word*)lf[531]+1 /* (set! scheme#expt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14847,a[2]=((C_word)li431),tmp=(C_word)a,a+=3,tmp)); t462=C_mutate(&lf[543] /* (set! ##sys#internal-gcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15114,a[2]=((C_word)li432),tmp=(C_word)a,a+=3,tmp)); t463=C_mutate((C_word*)lf[594]+1 /* (set! ##sys#gcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15184,a[2]=((C_word)li433),tmp=(C_word)a,a+=3,tmp)); t464=C_mutate((C_word*)lf[596]+1 /* (set! scheme#gcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15190,a[2]=((C_word)li435),tmp=(C_word)a,a+=3,tmp)); t465=C_mutate((C_word*)lf[597]+1 /* (set! ##sys#lcm ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15241,a[2]=((C_word)li436),tmp=(C_word)a,a+=3,tmp)); t466=C_mutate((C_word*)lf[599]+1 /* (set! scheme#lcm ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15255,a[2]=((C_word)li438),tmp=(C_word)a,a+=3,tmp)); t467=C_mutate((C_word*)lf[600]+1 /* (set! ##sys#integer->string/recursive ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15313,a[2]=((C_word)li442),tmp=(C_word)a,a+=3,tmp)); t468=C_mutate((C_word*)lf[602]+1 /* (set! ##sys#extended-number->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15366,a[2]=((C_word)li443),tmp=(C_word)a,a+=3,tmp)); t469=C_mutate(&lf[608] /* (set! round-quotient ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15540,a[2]=((C_word)li444),tmp=(C_word)a,a+=3,tmp)); t470=C_mutate(&lf[609] /* (set! ##sys#string->compnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15583,a[2]=((C_word)li455),tmp=(C_word)a,a+=3,tmp)); t471=C_mutate((C_word*)lf[618]+1 /* (set! scheme#string->number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16980,a[2]=((C_word)li457),tmp=(C_word)a,a+=3,tmp)); t472=C_mutate((C_word*)lf[620]+1 /* (set! ##sys#string->number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17235,a[2]=((C_word)li458),tmp=(C_word)a,a+=3,tmp)); t473=C_mutate((C_word*)lf[621]+1 /* (set! ##sys#fixnum->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_fixnum_to_string,a[2]=((C_word)li459),tmp=(C_word)a,a+=3,tmp)); t474=C_mutate((C_word*)lf[622]+1 /* (set! ##sys#flonum->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_flonum_to_string,a[2]=((C_word)li460),tmp=(C_word)a,a+=3,tmp)); t475=C_mutate((C_word*)lf[623]+1 /* (set! ##sys#integer->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_integer_to_string,a[2]=((C_word)li461),tmp=(C_word)a,a+=3,tmp)); t476=C_mutate((C_word*)lf[601]+1 /* (set! ##sys#number->string ...) */,*((C_word*)lf[87]+1)); t477=C_mutate((C_word*)lf[624]+1 /* (set! chicken.base#equal=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17281,a[2]=((C_word)li465),tmp=(C_word)a,a+=3,tmp)); t478=C_mutate((C_word*)lf[625]+1 /* (set! ##sys#snafu ...) */,lf[626]); t479=C_mutate((C_word*)lf[627]+1 /* (set! ##sys#intern-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_string_to_symbol,a[2]=((C_word)li466),tmp=(C_word)a,a+=3,tmp)); t480=C_mutate((C_word*)lf[628]+1 /* (set! ##sys#intern-keyword ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_string_to_keyword,a[2]=((C_word)li467),tmp=(C_word)a,a+=3,tmp)); t481=C_mutate((C_word*)lf[629]+1 /* (set! ##sys#interned-symbol? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17453,a[2]=((C_word)li468),tmp=(C_word)a,a+=3,tmp)); t482=C_mutate((C_word*)lf[630]+1 /* (set! ##sys#string->symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17456,a[2]=((C_word)li469),tmp=(C_word)a,a+=3,tmp)); t483=C_mutate((C_word*)lf[631]+1 /* (set! ##sys#symbol->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17465,a[2]=((C_word)li470),tmp=(C_word)a,a+=3,tmp)); t484=C_mutate((C_word*)lf[632]+1 /* (set! scheme#symbol->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17471,a[2]=((C_word)li471),tmp=(C_word)a,a+=3,tmp)); t485=*((C_word*)lf[392]+1); t486=C_mutate((C_word*)lf[634]+1 /* (set! scheme#string->symbol ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17484,a[2]=t485,a[3]=((C_word)li472),tmp=(C_word)a,a+=4,tmp)); t487=*((C_word*)lf[392]+1); t488=C_mutate((C_word*)lf[636]+1 /* (set! chicken.base#string->uninterned-symbol ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17497,a[2]=t487,a[3]=((C_word)li474),tmp=(C_word)a,a+=4,tmp)); t489=C_fix(-1); t490=(*a=C_VECTOR_TYPE|1,a[1]=t489,tmp=(C_word)a,a+=2,tmp); t491=C_mutate((C_word*)lf[638]+1 /* (set! chicken.base#gensym ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17510,a[2]=t490,a[3]=((C_word)li476),tmp=(C_word)a,a+=4,tmp)); t492=*((C_word*)lf[414]+1); t493=C_mutate((C_word*)lf[642]+1 /* (set! chicken.base#symbol-append ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17564,a[2]=t492,a[3]=((C_word)li478),tmp=(C_word)a,a+=4,tmp)); t494=C_a_i_provide(&a,1,lf[644]); t495=C_mutate((C_word*)lf[645]+1 /* (set! chicken.keyword#keyword? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17623,a[2]=((C_word)li479),tmp=(C_word)a,a+=3,tmp)); t496=C_mutate((C_word*)lf[646]+1 /* (set! chicken.keyword#string->keyword ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17626,a[2]=((C_word)li480),tmp=(C_word)a,a+=3,tmp)); t497=*((C_word*)lf[645]+1); t498=C_mutate((C_word*)lf[648]+1 /* (set! chicken.keyword#keyword->string ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17635,a[2]=t497,a[3]=((C_word)li481),tmp=(C_word)a,a+=4,tmp)); t499=C_a_i_list1(&a,1,lf[651]); t500=t499; t501=C_mutate((C_word*)lf[652]+1 /* (set! chicken.keyword#get-keyword ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17653,a[2]=t500,a[3]=((C_word)li482),tmp=(C_word)a,a+=4,tmp)); t502=C_mutate((C_word*)lf[654]+1 /* (set! ##sys#get-keyword ...) */,*((C_word*)lf[652]+1)); t503=C_a_i_provide(&a,1,lf[655]); t504=C_mutate((C_word*)lf[656]+1 /* (set! ##sys#make-blob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17684,a[2]=((C_word)li483),tmp=(C_word)a,a+=3,tmp)); t505=C_mutate((C_word*)lf[657]+1 /* (set! chicken.blob#make-blob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17690,a[2]=((C_word)li484),tmp=(C_word)a,a+=3,tmp)); t506=C_mutate((C_word*)lf[659]+1 /* (set! chicken.blob#blob? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17699,a[2]=((C_word)li485),tmp=(C_word)a,a+=3,tmp)); t507=C_mutate((C_word*)lf[660]+1 /* (set! chicken.blob#blob-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17705,a[2]=((C_word)li486),tmp=(C_word)a,a+=3,tmp)); t508=C_mutate((C_word*)lf[662]+1 /* (set! chicken.blob#string->blob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17714,a[2]=((C_word)li487),tmp=(C_word)a,a+=3,tmp)); t509=C_mutate((C_word*)lf[664]+1 /* (set! chicken.blob#blob->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17726,a[2]=((C_word)li488),tmp=(C_word)a,a+=3,tmp)); t510=C_mutate((C_word*)lf[666]+1 /* (set! chicken.blob#blob=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17738,a[2]=((C_word)li489),tmp=(C_word)a,a+=3,tmp)); t511=C_mutate((C_word*)lf[93]+1 /* (set! scheme#make-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17761,a[2]=((C_word)li490),tmp=(C_word)a,a+=3,tmp)); t512=C_mutate((C_word*)lf[670]+1 /* (set! ##sys#make-vector ...) */,*((C_word*)lf[93]+1)); t513=C_mutate((C_word*)lf[94]+1 /* (set! scheme#list->vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17790,a[2]=((C_word)li492),tmp=(C_word)a,a+=3,tmp)); t514=C_mutate((C_word*)lf[95]+1 /* (set! scheme#vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17842,a[2]=((C_word)li494),tmp=(C_word)a,a+=3,tmp)); t515=C_mutate((C_word*)lf[96]+1 /* (set! scheme#vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17875,a[2]=((C_word)li495),tmp=(C_word)a,a+=3,tmp)); t516=C_mutate((C_word*)lf[97]+1 /* (set! scheme#vector-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17881,a[2]=((C_word)li497),tmp=(C_word)a,a+=3,tmp)); t517=C_mutate((C_word*)lf[204]+1 /* (set! chicken.base#vector-copy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17909,a[2]=((C_word)li499),tmp=(C_word)a,a+=3,tmp)); t518=C_mutate((C_word*)lf[205]+1 /* (set! chicken.base#subvector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17978,a[2]=((C_word)li501),tmp=(C_word)a,a+=3,tmp)); t519=C_mutate((C_word*)lf[206]+1 /* (set! chicken.base#vector-resize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18049,a[2]=((C_word)li502),tmp=(C_word)a,a+=3,tmp)); t520=C_mutate(&lf[678] /* (set! ##sys#vector-resize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18070,a[2]=((C_word)li504),tmp=(C_word)a,a+=3,tmp)); t521=C_mutate((C_word*)lf[113]+1 /* (set! scheme#char-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18109,a[2]=((C_word)li505),tmp=(C_word)a,a+=3,tmp)); t522=C_mutate((C_word*)lf[114]+1 /* (set! scheme#char-ci>? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18123,a[2]=((C_word)li506),tmp=(C_word)a,a+=3,tmp)); t523=C_mutate((C_word*)lf[115]+1 /* (set! scheme#char-ci<? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18134,a[2]=((C_word)li507),tmp=(C_word)a,a+=3,tmp)); t524=C_mutate((C_word*)lf[116]+1 /* (set! scheme#char-ci>=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18145,a[2]=((C_word)li508),tmp=(C_word)a,a+=3,tmp)); t525=C_mutate((C_word*)lf[117]+1 /* (set! scheme#char-ci<=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18156,a[2]=((C_word)li509),tmp=(C_word)a,a+=3,tmp)); t526=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18169,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* library.scm:2930: scheme#make-vector */ t527=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t527; av2[1]=t526; av2[2]=C_fix(37); av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t527+1)))(4,av2);}} /* scheme#not in k8510 */ static void C_ccall f_8514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8514,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_not(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#boolean? in k8510 */ static void C_ccall f_8517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8517,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_booleanp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#eq? in k8510 */ static void C_ccall f_8520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8520,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_eqp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#eqv? in k8510 */ static void C_ccall f_8523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8523,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_eqvp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#equal? in k8510 */ static void C_ccall f_8526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8526,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_equalp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#pair? in k8510 */ static void C_ccall f_8529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8529,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_pairp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#cons in k8510 */ static void C_ccall f_8532(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8532,4,av);} a=C_alloc(3); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#car in k8510 */ static void C_ccall f_8535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8535,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_car(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#cdr in k8510 */ static void C_ccall f_8538(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8538,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cdr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#set-car! in k8510 */ static void C_ccall f_8541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8541,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_set_car(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#set-cdr! in k8510 */ static void C_ccall f_8544(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8544,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_set_cdr(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#cadr in k8510 */ static void C_ccall f_8547(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8547,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cadr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#caddr in k8510 */ static void C_ccall f_8550(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8550,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_caddr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#cadddr in k8510 */ static void C_ccall f_8553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8553,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cadddr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#cddddr in k8510 */ static void C_ccall f_8556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8556,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cddddr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#caar in k8510 */ static void C_ccall f_8559(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8559,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_caar(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#cdar in k8510 */ static void C_ccall f_8562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8562,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cdar(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#cddr in k8510 */ static void C_ccall f_8565(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8565,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cddr(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#caaar in k8510 */ static void C_ccall f_8568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8568,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_car(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#caadr in k8510 */ static void C_ccall f_8582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8582,3,av);} t3=C_i_cadr(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_car(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#cadar in k8510 */ static void C_ccall f_8589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8589,3,av);} t3=C_i_car(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_cadr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#cdaar in k8510 */ static void C_ccall f_8596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8596,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#cdadr in k8510 */ static void C_ccall f_8610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8610,3,av);} t3=C_i_cadr(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#cddar in k8510 */ static void C_ccall f_8617(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8617,3,av);} t3=C_i_car(t2); t4=C_i_cdr(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#cdddr in k8510 */ static void C_ccall f_8631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8631,3,av);} t3=C_i_cdr(t2); t4=C_i_cdr(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#caaaar in k8510 */ static void C_ccall f_8645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8645,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=C_i_car(t4); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_car(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* scheme#caaadr in k8510 */ static void C_ccall f_8663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8663,3,av);} t3=C_i_cadr(t2); t4=C_i_car(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_car(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#caadar in k8510 */ static void C_ccall f_8674(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8674,3,av);} t3=C_i_car(t2); t4=C_i_cadr(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_car(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#caaddr in k8510 */ static void C_ccall f_8685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8685,3,av);} t3=C_i_caddr(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_car(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#cadaar in k8510 */ static void C_ccall f_8692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8692,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_cadr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#cadadr in k8510 */ static void C_ccall f_8703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8703,3,av);} t3=C_i_cadr(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_cadr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#caddar in k8510 */ static void C_ccall f_8707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8707,3,av);} t3=C_i_car(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_caddr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#cdaaar in k8510 */ static void C_ccall f_8714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8714,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=C_i_car(t4); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_cdr(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* scheme#cdaadr in k8510 */ static void C_ccall f_8732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8732,3,av);} t3=C_i_cadr(t2); t4=C_i_car(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#cdadar in k8510 */ static void C_ccall f_8743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8743,3,av);} t3=C_i_car(t2); t4=C_i_cadr(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#cdaddr in k8510 */ static void C_ccall f_8754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8754,3,av);} t3=C_i_caddr(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#cddaar in k8510 */ static void C_ccall f_8761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8761,3,av);} t3=C_i_car(t2); t4=C_i_car(t3); t5=C_i_cdr(t4); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_cdr(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* scheme#cddadr in k8510 */ static void C_ccall f_8779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8779,3,av);} t3=C_i_cadr(t2); t4=C_i_cdr(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_cdr(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#cdddar in k8510 */ static void C_ccall f_8790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8790,3,av);} t3=C_i_car(t2); t4=C_i_cdr(t3); t5=C_i_cdr(t4); t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_cdr(t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* scheme#null? in k8510 */ static void C_ccall f_8808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8808,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_eqp(t2,C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#list in k8510 */ static void C_ccall f_8814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ C_save_and_reclaim((void*)f_8814,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#length in k8510 */ static void C_ccall f_8817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8817,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#list-tail in k8510 */ static void C_ccall f_8820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8820,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_list_tail(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#list-ref in k8510 */ static void C_ccall f_8823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8823,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_list_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#reverse in k8510 */ static void C_ccall f_8826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_8826,3,av);} a=C_alloc(7); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8832,a[2]=t4,a[3]=t2,a[4]=((C_word)li44),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_8832(t6,t1,t2,C_SCHEME_END_OF_LIST);} /* loop in scheme#reverse in k8510 */ static void C_fcall f_8832(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_8832,4,t0,t1,t2,t3);} a=C_alloc(3); t4=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t4)){ t5=t3; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t5=C_slot(t2,C_fix(1)); t6=C_slot(t2,C_fix(0)); t7=C_a_i_cons(&a,2,t6,t3); /* library.scm:313: loop */ t9=t1; t10=t5; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;} else{ /* library.scm:314: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[47]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[47]+1); av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[48]; tp(4,av2);}}}} /* scheme#memq in k8510 */ static void C_ccall f_8865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8865,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_memq(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#memv in k8510 */ static void C_ccall f_8868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8868,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_memv(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#member in k8510 */ static void C_ccall f_8871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8871,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_member(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#assq in k8510 */ static void C_ccall f_8874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8874,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_assq(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#assv in k8510 */ static void C_ccall f_8877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8877,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_assv(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#assoc in k8510 */ static void C_ccall f_8880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8880,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_assoc(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#list? in k8510 */ static void C_ccall f_8883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8883,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_listp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#string? in k8510 */ static void C_ccall f_8886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8886,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_stringp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#string-length in k8510 */ static void C_ccall f_8889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8889,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_string_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#string-ref in k8510 */ static void C_ccall f_8892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8892,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_string_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#string-set! in k8510 */ static void C_ccall f_8895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8895,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_string_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#string=? in k8510 */ static void C_ccall f_8898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8898,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_string_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#string-ci=? in k8510 */ static void C_ccall f_8901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8901,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_string_ci_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#exact->inexact in k8510 */ static void C_ccall f_8905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ C_save_and_reclaim((void *)f_8905,3,av);} a=C_alloc(12); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_exact_to_inexact(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#abs in k8510 */ static void C_ccall f_8908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ C_save_and_reclaim((void *)f_8908,3,av);} a=C_alloc(7); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_s_a_i_abs(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#quotient in k8510 */ static void C_ccall f_8914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8914,4,av);} a=C_alloc(5); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_s_a_i_quotient(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#remainder in k8510 */ static void C_ccall f_8917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8917,4,av);} a=C_alloc(5); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_s_a_i_remainder(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#modulo in k8510 */ static void C_ccall f_8920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ C_save_and_reclaim((void *)f_8920,4,av);} a=C_alloc(5); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_s_a_i_modulo(&a,2,t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#even? in k8510 */ static void C_ccall f_8923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8923,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_evenp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#odd? in k8510 */ static void C_ccall f_8926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8926,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_oddp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#number? in k8510 */ static void C_ccall f_8934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8934,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_numberp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#real? in k8510 */ static void C_ccall f_8938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8938,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_realp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#rational? in k8510 */ static void C_ccall f_8941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8941,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_rationalp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#integer? in k8510 */ static void C_ccall f_8944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8944,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_integerp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#exact? in k8510 */ static void C_ccall f_8947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8947,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_exactp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#inexact? in k8510 */ static void C_ccall f_8950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8950,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_inexactp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#zero? in k8510 */ static void C_ccall f_8953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8953,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_zerop(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#positive? in k8510 */ static void C_ccall f_8956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8956,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_positivep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#negative? in k8510 */ static void C_ccall f_8959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8959,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_negativep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#symbol? in k8510 */ static void C_ccall f_8963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8963,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_symbolp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#vector? in k8510 */ static void C_ccall f_8966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8966,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_vectorp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#vector-length in k8510 */ static void C_ccall f_8969(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8969,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_vector_length(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#vector-ref in k8510 */ static void C_ccall f_8972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8972,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_vector_ref(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#vector-set! in k8510 */ static void C_ccall f_8975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8975,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_i_vector_set(t2,t3,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#char? in k8510 */ static void C_ccall f_8983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8983,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_charp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#char->integer in k8510 */ static void C_ccall f_8986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8986,3,av);} t3=C_i_check_char_2(t2,lf[100]); t4=C_character_code(t2); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_fix(t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* scheme#integer->char in k8510 */ static void C_ccall f_8993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_8993,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8997,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:454: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t3; av2[2]=t2; av2[3]=lf[103]; tp(4,av2);}} /* k8995 in scheme#integer->char in k8510 */ static void C_ccall f_8997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8997,2,av);} t2=C_unfix(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_make_character(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#char=? in k8510 */ static void C_ccall f_9000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9000,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_char_equalp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#char>? in k8510 */ static void C_ccall f_9003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9003,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_char_greaterp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#char<? in k8510 */ static void C_ccall f_9006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9006,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_char_lessp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#char>=? in k8510 */ static void C_ccall f_9009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9009,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_char_greater_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#char<=? in k8510 */ static void C_ccall f_9012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9012,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_char_less_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#char-upcase in k8510 */ static void C_ccall f_9015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9015,3,av);} t3=C_i_check_char_2(t2,lf[110]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_char_upcase(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#char-downcase in k8510 */ static void C_ccall f_9021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9021,3,av);} t3=C_i_check_char_2(t2,lf[112]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_char_downcase(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#char-upper-case? in k8510 */ static void C_ccall f_9032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9032,3,av);} t3=C_i_check_char_2(t2,lf[119]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_char_upper_casep(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#char-lower-case? in k8510 */ static void C_ccall f_9038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9038,3,av);} t3=C_i_check_char_2(t2,lf[121]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_char_lower_casep(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#char-numeric? in k8510 */ static void C_ccall f_9044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9044,3,av);} t3=C_i_check_char_2(t2,lf[123]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_char_numericp(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#char-whitespace? in k8510 */ static void C_ccall f_9050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9050,3,av);} t3=C_i_check_char_2(t2,lf[125]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_char_whitespacep(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#char-alphabetic? in k8510 */ static void C_ccall f_9056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9056,3,av);} t3=C_i_check_char_2(t2,lf[127]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_u_i_char_alphabeticp(t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* scheme#procedure? in k8510 */ static void C_ccall f_9062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9062,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_closurep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#input-port? in k8510 */ static void C_ccall f_9069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9069,3,av);} if(C_truep(C_blockp(t2))){ t3=C_input_portp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* scheme#output-port? in k8510 */ static void C_ccall f_9075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9075,3,av);} if(C_truep(C_blockp(t2))){ t3=C_output_portp(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* scheme#eof-object? in k8510 */ static void C_ccall f_9091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9091,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_eofp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scheme#eval in k8510 */ static void C_ccall f_9102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9102,3,av);} /* library.scm:547: ##sys#error */ t3=*((C_word*)lf[155]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=lf[156]; av2[3]=lf[157]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* scheme#interaction-environment in k8510 */ static void C_ccall f_9108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9108,2,av);} /* library.scm:550: ##sys#error */ t2=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[159]; av2[3]=lf[160]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* scheme#scheme-report-environment in k8510 */ static void C_ccall f_9114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9114,3,av);} /* library.scm:553: ##sys#error */ t3=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[162]; av2[3]=lf[163]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* scheme#null-environment in k8510 */ static void C_ccall f_9120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9120,2,av);} /* library.scm:556: ##sys#error */ t2=*((C_word*)lf[155]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=lf[165]; av2[3]=lf[166]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* scheme#load in k8510 */ static void C_ccall f_9126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9126,3,av);} /* library.scm:559: ##sys#error */ t3=*((C_word*)lf[155]+1);{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=lf[168]; av2[3]=lf[169]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* chicken.base#fixnum? in k8510 */ static void C_ccall f_9135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9135,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_fixnump(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#flonum? in k8510 */ static void C_ccall f_9138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9138,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_flonump(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#bignum? in k8510 */ static void C_ccall f_9141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9141,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_bignump(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#ratnum? in k8510 */ static void C_ccall f_9144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9144,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_ratnump(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#cplxnum? in k8510 */ static void C_ccall f_9147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9147,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_cplxnump(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#exact-integer? in k8510 */ static void C_ccall f_9150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9150,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_exact_integerp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#quotient&modulo in k8510 */ static void C_ccall f_9154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_9154,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9160,a[2]=t2,a[3]=t3,a[4]=((C_word)li123),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9166,a[2]=t3,a[3]=((C_word)li124),tmp=(C_word)a,a+=4,tmp); /* library.scm:619: scheme#call-with-values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a9159 in chicken.base#quotient&modulo in k8510 */ static void C_ccall f_9160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9160,2,av);} /* library.scm:619: quotient&remainder */ t2=*((C_word*)lf[180]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a9165 in chicken.base#quotient&modulo in k8510 */ static void C_ccall f_9166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ C_save_and_reclaim((void *)f_9166,4,av);} a=C_alloc(29); t4=((C_word*)t0)[2]; if(C_truep(C_i_positivep(t4))){ t5=t3; if(C_truep(C_i_negativep(t5))){ t6=C_s_a_i_plus(&a,2,t3,((C_word*)t0)[2]); /* library.scm:623: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t6; C_values(4,av2);}} else{ /* library.scm:624: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_values(4,av2);}}} else{ t5=t3; if(C_truep(C_i_positivep(t5))){ t6=C_s_a_i_plus(&a,2,t3,((C_word*)t0)[2]); /* library.scm:626: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t6; C_values(4,av2);}} else{ /* library.scm:627: scheme#values */{ C_word *av2=av; av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_values(4,av2);}}}} /* chicken.base#finite? in k8510 */ static void C_ccall f_9201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9201,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_finitep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#infinite? in k8510 */ static void C_ccall f_9204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9204,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_infinitep(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#nan? in k8510 */ static void C_ccall f_9207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9207,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_nanp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#add1 in k8510 */ static void C_ccall f_9215(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_9215,3,av);} a=C_alloc(29); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_s_a_i_plus(&a,2,t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#sub1 in k8510 */ static void C_ccall f_9221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_9221,3,av);} a=C_alloc(29); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_s_a_i_minus(&a,2,t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#error in k8510 */ static void C_ccall f_9228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_9228,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; if(C_truep(C_i_pairp(t2))){{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=C_fast_retrieve(lf[194]); av2[3]=lf[195]; av2[4]=t2; C_apply(5,av2);}} else{ /* library.scm:648: ##sys#signal-hook */ t3=C_fast_retrieve(lf[194]);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t1; av2[2]=lf[195]; av2[3]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} /* chicken.base#void in k8510 */ static void C_ccall f_9243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9243,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.base#promise? in k8510 */ static void C_ccall f_9264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9264,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_structurep(t2,lf[216]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* ##sys#make-promise in k8510 */ static void C_ccall f_9270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9270,3,av);} a=C_alloc(3); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_record2(&a,2,lf[216],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#make-promise in k8510 */ static void C_ccall f_9276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9276,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9283,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* library.scm:692: promise? */ t4=*((C_word*)lf[215]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k9281 in chicken.base#make-promise in k8510 */ static void C_ccall f_9283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9283,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9288,a[2]=((C_word*)t0)[2],a[3]=((C_word)li136),tmp=(C_word)a,a+=4,tmp); /* library.scm:693: ##sys#make-promise */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[217]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[217]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; tp(3,av2);}}} /* a9287 in k9281 in chicken.base#make-promise in k8510 */ static void C_ccall f_9288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9288,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.base#foldl in k8510 */ static void C_ccall f_9291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_9291,5,av);} a=C_alloc(7); t5=C_i_check_list_2(t4,lf[220]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9300,a[2]=t7,a[3]=t2,a[4]=((C_word)li138),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_9300(t9,t1,t4,t3);} /* loop in chicken.base#foldl in k8510 */ static void C_fcall f_9300(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_9300,4,t0,t1,t2,t3);} a=C_alloc(5); t4=C_i_pairp(t2); if(C_truep(C_i_not(t4))){ t5=t3; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_slot(t2,C_fix(1)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9318,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=C_slot(t2,C_fix(0)); /* library.scm:702: f */ t9=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t9; av2[1]=t7; av2[2]=t3; av2[3]=t8; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}}} /* k9316 in loop in chicken.base#foldl in k8510 */ static void C_ccall f_9318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9318,2,av);} /* library.scm:702: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9300(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* chicken.base#foldr in k8510 */ static void C_ccall f_9328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_9328,5,av);} a=C_alloc(8); t5=C_i_check_list_2(t4,lf[222]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9337,a[2]=t3,a[3]=t2,a[4]=t7,a[5]=((C_word)li140),tmp=(C_word)a,a+=6,tmp)); t9=((C_word*)t7)[1]; f_9337(t9,t1,t4);} /* loop in chicken.base#foldr in k8510 */ static void C_fcall f_9337(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9337,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ t4=((C_word*)t0)[2]; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9355,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); /* library.scm:709: loop */ t9=t6; t10=t7; t1=t9; t2=t10; goto loop;}} /* k9353 in loop in chicken.base#foldr in k8510 */ static void C_ccall f_9355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9355,2,av);} /* library.scm:709: f */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} /* chicken.base#on-exit in k8510 */ static void C_ccall f_9368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9368,3,av);} a=C_alloc(3); t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[225]+1)); t4=C_mutate((C_word*)lf[225]+1 /* (set! chicken.base#cleanup-tasks ...) */,t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* chicken.base#exit in k8510 */ static void C_ccall f_9375(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_9375,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f34566,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:722: chicken.base#exit-handler */ t4=*((C_word*)lf[224]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9382,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:722: chicken.base#exit-handler */ t6=*((C_word*)lf[224]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k9380 in chicken.base#exit in k8510 */ static void C_ccall f_9382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9382,2,av);} /* library.scm:721: g671 */ t2=t1;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.base#emergency-exit in k8510 */ static void C_ccall f_9393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_9393,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f34042,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* library.scm:725: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t3; av2[2]=C_fix(0); av2[3]=lf[229]; tp(4,av2);}} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9400,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); /* library.scm:725: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[102]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[102]+1); av2[1]=t5; av2[2]=t4; av2[3]=lf[229]; tp(4,av2);}}} /* k9398 in chicken.base#emergency-exit in k8510 */ static void C_ccall f_9400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9400,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_exit_runtime(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.base#identity in k8510 */ static void C_ccall f_9412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9412,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#conjoin in k8510 */ static void C_ccall f_9415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_9415,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9417,a[2]=t2,a[3]=((C_word)li147),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_9417 in chicken.base#conjoin in k8510 */ static void C_ccall f_9417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_9417,3,av);} a=C_alloc(7); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9423,a[2]=t4,a[3]=t2,a[4]=((C_word)li146),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_9423(t6,t1,((C_word*)t0)[2]);} /* loop */ static void C_fcall f_9423(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9423,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_slot(t2,C_fix(0)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9439,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* library.scm:743: g700 */ t6=t4;{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} /* k9437 in loop */ static void C_ccall f_9439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9439,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:744: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9423(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.base#disjoin in k8510 */ static void C_ccall f_9448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_9448,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9450,a[2]=t2,a[3]=((C_word)li150),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_9450 in chicken.base#disjoin in k8510 */ static void C_ccall f_9450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_9450,3,av);} a=C_alloc(7); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9456,a[2]=t4,a[3]=t2,a[4]=((C_word)li149),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_9456(t6,t1,((C_word*)t0)[2]);} /* loop */ static void C_fcall f_9456(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9456,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_nullp(t2); if(C_truep(C_i_not(t3))){ t4=C_slot(t2,C_fix(0)); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9469,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:750: g712 */ t6=t4;{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9467 in loop */ static void C_ccall f_9469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9469,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_slot(((C_word*)t0)[3],C_fix(1)); /* library.scm:751: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_9456(t3,((C_word*)t0)[2],t2);}} /* chicken.base#constantly in k8510 */ static void C_ccall f_9485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_9485,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t3=t2; t4=C_u_i_length(t3); t5=C_eqp(C_fix(1),t4); if(C_truep(t5)){ t6=C_i_car(t2); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9496,a[2]=t7,a[3]=((C_word)li152),tmp=(C_word)a,a+=4,tmp); t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9498,a[2]=t2,a[3]=((C_word)li153),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* f_9496 in chicken.base#constantly in k8510 */ static void C_ccall f_9496(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9496,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_9498 in chicken.base#constantly in k8510 */ static void C_ccall f_9498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9498,2,av);}{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[130]+1); av2[3]=((C_word*)t0)[2]; C_apply(4,av2);}} /* chicken.base#flip in k8510 */ static void C_ccall f_9506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_9506,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9508,a[2]=t2,a[3]=((C_word)li155),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_9508 in chicken.base#flip in k8510 */ static void C_ccall f_9508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9508,4,av);} /* library.scm:759: proc */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t1; av2[2]=t3; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} /* chicken.base#complement in k8510 */ static void C_ccall f_9514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9514,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9516,a[2]=t2,a[3]=((C_word)li157),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_9516 in chicken.base#complement in k8510 */ static void C_ccall f_9516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,3)))){ C_save_and_reclaim((void*)f_9516,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9524,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; C_apply(4,av2);}} /* k9522 */ static void C_ccall f_9524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9524,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_not(t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.base#compose in k8510 */ static void C_ccall f_9526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_9526,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9529,a[2]=t4,a[3]=((C_word)li161),tmp=(C_word)a,a+=4,tmp)); if(C_truep(C_i_nullp(t2))){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=*((C_word*)lf[130]+1); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t4)[1]; av2[3]=t2; C_apply(4,av2);}}} /* rec in chicken.base#compose in k8510 */ static void C_ccall f_9529(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_9529,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+6); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; if(C_truep(C_i_nullp(t3))){ t4=t2; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9537,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=((C_word)li160),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* f_9537 in rec in chicken.base#compose in k8510 */ static void C_ccall f_9537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_9537,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9543,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li159),tmp=(C_word)a,a+=6,tmp); /* library.scm:770: scheme#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[4]; C_call_with_values(4,av2);}} /* a9542 */ static void C_ccall f_9543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9543,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9551,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)t0)[4]; C_apply(4,av2);}} /* k9549 in a9542 */ static void C_ccall f_9551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9551,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; C_apply(4,av2);}} /* chicken.base#o in k8510 */ static void C_ccall f_9562(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ C_save_and_reclaim((void*)f_9562,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=*((C_word*)lf[234]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9574,a[2]=t4,a[3]=((C_word)li164),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_9574(t6,t1,t2);}} /* loop in chicken.base#o in k8510 */ static void C_fcall f_9574(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_9574,3,t0,t1,t2);} a=C_alloc(6); t3=C_slot(t2,C_fix(0)); t4=t3; t5=C_slot(t2,C_fix(1)); t6=t5; if(C_truep(C_i_nullp(t6))){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9588,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li163),tmp=(C_word)a,a+=6,tmp); t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* f_9588 in loop in chicken.base#o in k8510 */ static void C_ccall f_9588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9588,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9596,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* library.scm:785: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_9574(t4,t3,((C_word*)t0)[4]);} /* k9594 */ static void C_ccall f_9596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9596,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9599,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* library.scm:785: g741 */ t3=t1;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} /* k9597 in k9594 */ static void C_ccall f_9599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9599,2,av);} /* library.scm:785: h */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* chicken.base#list-of? in k8510 */ static void C_ccall f_9601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_9601,3,av);} a=C_alloc(4); t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9603,a[2]=t2,a[3]=((C_word)li167),tmp=(C_word)a,a+=4,tmp); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* f_9603 in chicken.base#list-of? in k8510 */ static void C_ccall f_9603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_9603,3,av);} a=C_alloc(7); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9609,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word)li166),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_9609(t6,t1,t2);} /* loop */ static void C_fcall f_9609(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9609,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9628,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_slot(t2,C_fix(0)); /* library.scm:792: pred */ t6=((C_word*)t0)[3];{ C_word av2[3]; av2[0]=t6; av2[1]=t4; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}}} /* k9626 in loop */ static void C_ccall f_9628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9628,2,av);} if(C_truep(t1)){ t2=C_slot(((C_word*)t0)[2],C_fix(1)); /* library.scm:792: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_9609(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.base#each in k8510 */ static void C_ccall f_9645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_9645,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9653,a[2]=((C_word)li169),tmp=(C_word)a,a+=3,tmp); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_slot(t2,C_fix(1)); t4=C_i_nullp(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=(C_truep(t4)?C_slot(t2,C_fix(0)):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9667,a[2]=t2,a[3]=((C_word)li171),tmp=(C_word)a,a+=4,tmp)); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* f_9653 in chicken.base#each in k8510 */ static void C_ccall f_9653(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9653,2,av);} t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=*((C_word*)lf[244]+1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* f_9667 in chicken.base#each in k8510 */ static void C_ccall f_9667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +7,c,3)))){ C_save_and_reclaim((void*)f_9667,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+7); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9673,a[2]=t2,a[3]=t4,a[4]=((C_word)li170),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_9673(t6,t1,((C_word*)t0)[2]);} /* loop */ static void C_fcall f_9673(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_9673,3,t0,t1,t2);} a=C_alloc(5); t3=C_slot(t2,C_fix(0)); t4=C_slot(t2,C_fix(1)); t5=t4; if(C_truep(C_i_nullp(t5))){{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[2]; C_apply(4,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9692,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);{ C_word av2[4]; av2[0]=0; av2[1]=t6; av2[2]=t3; av2[3]=((C_word*)t0)[2]; C_apply(4,av2);}}} /* k9690 in loop */ static void C_ccall f_9692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9692,2,av);} /* library.scm:807: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9673(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} /* chicken.base#atom? in k8510 */ static void C_ccall f_9701(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9701,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_i_not_pair_p(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#tail? in k8510 */ static void C_ccall f_9704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9704,4,av);} a=C_alloc(4); t4=C_i_check_list_2(t3,lf[247]); t5=C_eqp(t2,C_SCHEME_END_OF_LIST); if(C_truep(t5)){ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9716,a[2]=t2,a[3]=((C_word)li174),tmp=(C_word)a,a+=4,tmp); t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=( f_9716(t6,t3) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* loop in chicken.base#tail? in k8510 */ static C_word C_fcall f_9716(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check; loop:{} if(C_truep(C_eqp(t1,C_SCHEME_END_OF_LIST))){ return(C_SCHEME_FALSE);} else{ if(C_truep(C_eqp(((C_word*)t0)[2],t1))){ return(C_SCHEME_TRUE);} else{ t2=C_slot(t1,C_fix(1)); t4=t2; t1=t4; goto loop;}}} /* chicken.base#intersperse in k8510 */ static void C_ccall f_9732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_9732,4,av);} a=C_alloc(7); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9738,a[2]=t3,a[3]=t5,a[4]=((C_word)li176),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_9738(t7,t1,t2);} /* loop in chicken.base#intersperse in k8510 */ static void C_fcall f_9738(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9738,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_cdr(t2); if(C_truep(C_eqp(t3,C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9763,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* library.scm:830: loop */ t8=t6; t9=t3; t1=t8; t2=t9; goto loop;}}} /* k9761 in loop in chicken.base#intersperse in k8510 */ static void C_ccall f_9763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_9763,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.base#butlast in k8510 */ static void C_ccall f_9765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_9765,3,av);} a=C_alloc(6); t3=C_i_check_pair_2(t2,lf[250]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9774,a[2]=t5,a[3]=((C_word)li178),tmp=(C_word)a,a+=4,tmp)); t7=((C_word*)t5)[1]; f_9774(t7,t1,t2);} /* loop in chicken.base#butlast in k8510 */ static void C_fcall f_9774(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_9774,3,t0,t1,t2);} a=C_alloc(4); t3=C_slot(t2,C_fix(1)); t4=(C_truep(C_blockp(t3))?C_pairp(t3):C_SCHEME_FALSE); if(C_truep(t4)){ t5=C_slot(t2,C_fix(0)); t6=t5; t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9795,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* library.scm:837: loop */ t9=t7; t10=t3; t1=t9; t2=t10; goto loop;} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k9793 in loop in chicken.base#butlast in k8510 */ static void C_ccall f_9795(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9795,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.base#flatten in k8510 */ static void C_ccall f_9797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ C_save_and_reclaim((void*)f_9797,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9803,a[2]=t4,a[3]=((C_word)li180),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_9803(t6,t1,t2,C_SCHEME_END_OF_LIST);} /* loop in chicken.base#flatten in k8510 */ static void C_fcall f_9803(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_9803,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_slot(t2,C_fix(0)); t5=t4; t6=C_slot(t2,C_fix(1)); if(C_truep(C_i_listp(t5))){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9829,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* library.scm:847: loop */ t9=t7; t10=t6; t11=t3; t1=t9; t2=t10; t3=t11; goto loop;} else{ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9836,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* library.scm:848: loop */ t9=t7; t10=t6; t11=t3; t1=t9; t2=t10; t3=t11; goto loop;}}} /* k9827 in loop in chicken.base#flatten in k8510 */ static void C_ccall f_9829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9829,2,av);} /* library.scm:847: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_9803(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k9834 in loop in chicken.base#flatten in k8510 */ static void C_ccall f_9836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9836,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.base#join in k8510 */ static void C_ccall f_9838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_9838,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9842,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t5=t3; t6=t4; f_9842(t6,C_u_i_car(t5));} else{ t5=t4; f_9842(t5,C_SCHEME_END_OF_LIST);}} /* k9840 in chicken.base#join in k8510 */ static void C_fcall f_9842(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_9842,2,t0,t1);} a=C_alloc(7); t2=t1; t3=C_i_check_list_2(t2,lf[253]); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9850,a[2]=t2,a[3]=t5,a[4]=((C_word)li182),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_9850(t7,((C_word*)t0)[2],((C_word*)t0)[3]);} /* loop in k9840 in chicken.base#join in k8510 */ static void C_fcall f_9850(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9850,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ /* library.scm:858: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[47]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[47]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} else{ t4=C_slot(t2,C_fix(0)); t5=t4; t6=C_slot(t2,C_fix(1)); if(C_truep(C_i_nullp(t6))){ t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9885,a[2]=t1,a[3]=t5,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* library.scm:864: loop */ t9=t7; t10=t6; t1=t9; t2=t10; goto loop;}}}} /* k9883 in loop in k9840 in chicken.base#join in k8510 */ static void C_ccall f_9885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9885,2,av);} /* library.scm:864: ##sys#append */ t2=*((C_word*)lf[254]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* chicken.base#compress in k8510 */ static void C_ccall f_9895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_9895,4,av);} a=C_alloc(7); t4=lf[256]; t5=C_i_check_list_2(t3,lf[257]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9904,a[2]=t4,a[3]=t7,a[4]=((C_word)li184),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_9904(t9,t1,t2,t3);} /* loop in chicken.base#compress in k8510 */ static void C_fcall f_9904(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ C_save_and_reclaim_args((void *)trf_9904,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_pairp(t2); if(C_truep(C_i_not(t4))){ /* library.scm:873: ##sys#signal-hook */ t5=C_fast_retrieve(lf[194]);{ C_word av2[6]; av2[0]=t5; av2[1]=t1; av2[2]=lf[258]; av2[3]=lf[257]; av2[4]=((C_word*)t0)[2]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t5=C_i_pairp(t3); if(C_truep(C_i_not(t5))){ /* library.scm:875: ##sys#signal-hook */ t6=C_fast_retrieve(lf[194]);{ C_word av2[6]; av2[0]=t6; av2[1]=t1; av2[2]=lf[258]; av2[3]=lf[257]; av2[4]=((C_word*)t0)[2]; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ if(C_truep(C_slot(t2,C_fix(0)))){ t6=C_slot(t3,C_fix(0)); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9946,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=C_slot(t2,C_fix(1)); t10=C_slot(t3,C_fix(1)); /* library.scm:877: loop */ t12=t8; t13=t9; t14=t10; t1=t12; t2=t13; t3=t14; goto loop;} else{ t6=C_slot(t2,C_fix(1)); t7=C_slot(t3,C_fix(1)); /* library.scm:878: loop */ t12=t1; t13=t6; t14=t7; t1=t12; t2=t13; t3=t14; goto loop;}}}}} /* k9944 in loop in chicken.base#compress in k8510 */ static void C_ccall f_9946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9946,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.base#alist-update! in k8510 */ static void C_ccall f_9975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_9975,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+10); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; t6=C_i_nullp(t5); t7=(C_truep(t6)?*((C_word*)lf[5]+1):C_i_car(t5)); t8=t7; t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9982,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t10=C_eqp(*((C_word*)lf[4]+1),t8); if(C_truep(t10)){ t11=t9; f_9982(t11,*((C_word*)lf[52]+1));} else{ t11=C_eqp(*((C_word*)lf[5]+1),t8); if(C_truep(t11)){ t12=t9; f_9982(t12,*((C_word*)lf[53]+1));} else{ t12=C_eqp(*((C_word*)lf[6]+1),t8); t13=t9; f_9982(t13,(C_truep(t12)?*((C_word*)lf[54]+1):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10014,a[2]=t8,a[3]=((C_word)li187),tmp=(C_word)a,a+=4,tmp)));}}} /* k9980 in chicken.base#alist-update! in k8510 */ static void C_fcall f_9982(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_9982,2,t0,t1);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9985,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* library.scm:895: aq */ t3=t1;{ C_word av2[4]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k9983 in k9980 in chicken.base#alist-update! in k8510 */ static void C_ccall f_9985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_9985,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=C_i_setslot(t1,C_fix(1),((C_word*)t0)[2]); t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[2]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_library_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("library")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_library_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(7772))){ C_save(t1); C_rereclaim2(7772*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,1395); lf[0]=C_h_intern(&lf[0],7, C_text("library")); lf[1]=C_h_intern(&lf[1],7, C_text("scheme#")); lf[2]=C_h_intern(&lf[2],10, C_text("scheme#not")); lf[3]=C_h_intern(&lf[3],15, C_text("scheme#boolean\077")); lf[4]=C_h_intern(&lf[4],10, C_text("scheme#eq\077")); lf[5]=C_h_intern(&lf[5],11, C_text("scheme#eqv\077")); lf[6]=C_h_intern(&lf[6],13, C_text("scheme#equal\077")); lf[7]=C_h_intern(&lf[7],12, C_text("scheme#pair\077")); lf[8]=C_h_intern(&lf[8],11, C_text("scheme#cons")); lf[9]=C_h_intern(&lf[9],10, C_text("scheme#car")); lf[10]=C_h_intern(&lf[10],10, C_text("scheme#cdr")); lf[11]=C_h_intern(&lf[11],15, C_text("scheme#set-car!")); lf[12]=C_h_intern(&lf[12],15, C_text("scheme#set-cdr!")); lf[13]=C_h_intern(&lf[13],11, C_text("scheme#cadr")); lf[14]=C_h_intern(&lf[14],12, C_text("scheme#caddr")); lf[15]=C_h_intern(&lf[15],13, C_text("scheme#cadddr")); lf[16]=C_h_intern(&lf[16],13, C_text("scheme#cddddr")); lf[17]=C_h_intern(&lf[17],11, C_text("scheme#caar")); lf[18]=C_h_intern(&lf[18],11, C_text("scheme#cdar")); lf[19]=C_h_intern(&lf[19],11, C_text("scheme#cddr")); lf[20]=C_h_intern(&lf[20],12, C_text("scheme#caaar")); lf[21]=C_h_intern(&lf[21],12, C_text("scheme#caadr")); lf[22]=C_h_intern(&lf[22],12, C_text("scheme#cadar")); lf[23]=C_h_intern(&lf[23],12, C_text("scheme#cdaar")); lf[24]=C_h_intern(&lf[24],12, C_text("scheme#cdadr")); lf[25]=C_h_intern(&lf[25],12, C_text("scheme#cddar")); lf[26]=C_h_intern(&lf[26],12, C_text("scheme#cdddr")); lf[27]=C_h_intern(&lf[27],13, C_text("scheme#caaaar")); lf[28]=C_h_intern(&lf[28],13, C_text("scheme#caaadr")); lf[29]=C_h_intern(&lf[29],13, C_text("scheme#caadar")); lf[30]=C_h_intern(&lf[30],13, C_text("scheme#caaddr")); lf[31]=C_h_intern(&lf[31],13, C_text("scheme#cadaar")); lf[32]=C_h_intern(&lf[32],13, C_text("scheme#cadadr")); lf[33]=C_h_intern(&lf[33],13, C_text("scheme#caddar")); lf[34]=C_h_intern(&lf[34],13, C_text("scheme#cdaaar")); lf[35]=C_h_intern(&lf[35],13, C_text("scheme#cdaadr")); lf[36]=C_h_intern(&lf[36],13, C_text("scheme#cdadar")); lf[37]=C_h_intern(&lf[37],13, C_text("scheme#cdaddr")); lf[38]=C_h_intern(&lf[38],13, C_text("scheme#cddaar")); lf[39]=C_h_intern(&lf[39],13, C_text("scheme#cddadr")); lf[40]=C_h_intern(&lf[40],13, C_text("scheme#cdddar")); lf[41]=C_h_intern(&lf[41],12, C_text("scheme#null\077")); lf[42]=C_h_intern(&lf[42],11, C_text("scheme#list")); lf[43]=C_h_intern(&lf[43],13, C_text("scheme#length")); lf[44]=C_h_intern(&lf[44],16, C_text("scheme#list-tail")); lf[45]=C_h_intern(&lf[45],15, C_text("scheme#list-ref")); lf[46]=C_h_intern(&lf[46],14, C_text("scheme#reverse")); lf[47]=C_h_intern(&lf[47],29, C_text("##sys#error-not-a-proper-list")); lf[48]=C_h_intern(&lf[48],7, C_text("reverse")); lf[49]=C_h_intern(&lf[49],11, C_text("scheme#memq")); lf[50]=C_h_intern(&lf[50],11, C_text("scheme#memv")); lf[51]=C_h_intern(&lf[51],13, C_text("scheme#member")); lf[52]=C_h_intern(&lf[52],11, C_text("scheme#assq")); lf[53]=C_h_intern(&lf[53],11, C_text("scheme#assv")); lf[54]=C_h_intern(&lf[54],12, C_text("scheme#assoc")); lf[55]=C_h_intern(&lf[55],12, C_text("scheme#list\077")); lf[56]=C_h_intern(&lf[56],14, C_text("scheme#string\077")); lf[57]=C_h_intern(&lf[57],20, C_text("scheme#string-length")); lf[58]=C_h_intern(&lf[58],17, C_text("scheme#string-ref")); lf[59]=C_h_intern(&lf[59],18, C_text("scheme#string-set!")); lf[60]=C_h_intern(&lf[60],15, C_text("scheme#string=\077")); lf[61]=C_h_intern(&lf[61],18, C_text("scheme#string-ci=\077")); lf[62]=C_h_intern(&lf[62],21, C_text("scheme#exact->inexact")); lf[63]=C_h_intern(&lf[63],10, C_text("scheme#abs")); lf[64]=C_h_intern(&lf[64],8, C_text("scheme#+")); lf[65]=C_h_intern(&lf[65],8, C_text("scheme#-")); lf[66]=C_h_intern(&lf[66],8, C_text("scheme#\052")); lf[67]=C_h_intern(&lf[67],15, C_text("scheme#quotient")); lf[68]=C_h_intern(&lf[68],16, C_text("scheme#remainder")); lf[69]=C_h_intern(&lf[69],13, C_text("scheme#modulo")); lf[70]=C_h_intern(&lf[70],12, C_text("scheme#even\077")); lf[71]=C_h_intern(&lf[71],11, C_text("scheme#odd\077")); lf[72]=C_h_intern(&lf[72],8, C_text("scheme#=")); lf[73]=C_h_intern(&lf[73],8, C_text("scheme#>")); lf[74]=C_h_intern(&lf[74],8, C_text("scheme#<")); lf[75]=C_h_intern(&lf[75],9, C_text("scheme#>=")); lf[76]=C_h_intern(&lf[76],9, C_text("scheme#<=")); lf[77]=C_h_intern(&lf[77],14, C_text("scheme#number\077")); lf[78]=C_h_intern(&lf[78],15, C_text("scheme#complex\077")); lf[79]=C_h_intern(&lf[79],12, C_text("scheme#real\077")); lf[80]=C_h_intern(&lf[80],16, C_text("scheme#rational\077")); lf[81]=C_h_intern(&lf[81],15, C_text("scheme#integer\077")); lf[82]=C_h_intern(&lf[82],13, C_text("scheme#exact\077")); lf[83]=C_h_intern(&lf[83],15, C_text("scheme#inexact\077")); lf[84]=C_h_intern(&lf[84],12, C_text("scheme#zero\077")); lf[85]=C_h_intern(&lf[85],16, C_text("scheme#positive\077")); lf[86]=C_h_intern(&lf[86],16, C_text("scheme#negative\077")); lf[87]=C_h_intern(&lf[87],21, C_text("scheme#number->string")); lf[88]=C_h_intern(&lf[88],14, C_text("scheme#symbol\077")); lf[89]=C_h_intern(&lf[89],14, C_text("scheme#vector\077")); lf[90]=C_h_intern(&lf[90],20, C_text("scheme#vector-length")); lf[91]=C_h_intern(&lf[91],17, C_text("scheme#vector-ref")); lf[92]=C_h_intern(&lf[92],18, C_text("scheme#vector-set!")); lf[93]=C_h_intern(&lf[93],18, C_text("scheme#make-vector")); lf[94]=C_h_intern(&lf[94],19, C_text("scheme#list->vector")); lf[95]=C_h_intern(&lf[95],19, C_text("scheme#vector->list")); lf[96]=C_h_intern(&lf[96],13, C_text("scheme#vector")); lf[97]=C_h_intern(&lf[97],19, C_text("scheme#vector-fill!")); lf[98]=C_h_intern(&lf[98],12, C_text("scheme#char\077")); lf[99]=C_h_intern(&lf[99],20, C_text("scheme#char->integer")); lf[100]=C_h_intern(&lf[100],13, C_text("char->integer")); lf[101]=C_h_intern(&lf[101],20, C_text("scheme#integer->char")); lf[102]=C_h_intern(&lf[102],18, C_text("##sys#check-fixnum")); lf[103]=C_h_intern(&lf[103],13, C_text("integer->char")); lf[104]=C_h_intern(&lf[104],13, C_text("scheme#char=\077")); lf[105]=C_h_intern(&lf[105],13, C_text("scheme#char>\077")); lf[106]=C_h_intern(&lf[106],13, C_text("scheme#char<\077")); lf[107]=C_h_intern(&lf[107],14, C_text("scheme#char>=\077")); lf[108]=C_h_intern(&lf[108],14, C_text("scheme#char<=\077")); lf[109]=C_h_intern(&lf[109],18, C_text("scheme#char-upcase")); lf[110]=C_h_intern(&lf[110],11, C_text("char-upcase")); lf[111]=C_h_intern(&lf[111],20, C_text("scheme#char-downcase")); lf[112]=C_h_intern(&lf[112],13, C_text("char-downcase")); lf[113]=C_h_intern(&lf[113],16, C_text("scheme#char-ci=\077")); lf[114]=C_h_intern(&lf[114],16, C_text("scheme#char-ci>\077")); lf[115]=C_h_intern(&lf[115],16, C_text("scheme#char-ci<\077")); lf[116]=C_h_intern(&lf[116],17, C_text("scheme#char-ci>=\077")); lf[117]=C_h_intern(&lf[117],17, C_text("scheme#char-ci<=\077")); lf[118]=C_h_intern(&lf[118],23, C_text("scheme#char-upper-case\077")); lf[119]=C_h_intern(&lf[119],16, C_text("char-upper-case\077")); lf[120]=C_h_intern(&lf[120],23, C_text("scheme#char-lower-case\077")); lf[121]=C_h_intern(&lf[121],16, C_text("char-lower-case\077")); lf[122]=C_h_intern(&lf[122],20, C_text("scheme#char-numeric\077")); lf[123]=C_h_intern(&lf[123],13, C_text("char-numeric\077")); lf[124]=C_h_intern(&lf[124],23, C_text("scheme#char-whitespace\077")); lf[125]=C_h_intern(&lf[125],16, C_text("char-whitespace\077")); lf[126]=C_h_intern(&lf[126],23, C_text("scheme#char-alphabetic\077")); lf[127]=C_h_intern(&lf[127],16, C_text("char-alphabetic\077")); lf[128]=C_h_intern(&lf[128],17, C_text("scheme#procedure\077")); lf[129]=C_h_intern(&lf[129],12, C_text("scheme#apply")); lf[130]=C_h_intern(&lf[130],13, C_text("scheme#values")); lf[131]=C_h_intern(&lf[131],23, C_text("scheme#call-with-values")); lf[132]=C_h_intern(&lf[132],37, C_text("scheme#call-with-current-continuation")); lf[133]=C_h_intern(&lf[133],18, C_text("scheme#input-port\077")); lf[134]=C_h_intern(&lf[134],19, C_text("scheme#output-port\077")); lf[135]=C_h_intern(&lf[135],25, C_text("scheme#current-input-port")); lf[136]=C_h_intern(&lf[136],26, C_text("scheme#current-output-port")); lf[137]=C_h_intern(&lf[137],22, C_text("scheme#open-input-file")); lf[138]=C_h_intern(&lf[138],23, C_text("scheme#open-output-file")); lf[139]=C_h_intern(&lf[139],23, C_text("scheme#close-input-port")); lf[140]=C_h_intern(&lf[140],24, C_text("scheme#close-output-port")); lf[141]=C_h_intern(&lf[141],27, C_text("scheme#call-with-input-file")); lf[142]=C_h_intern(&lf[142],28, C_text("scheme#call-with-output-file")); lf[143]=C_h_intern(&lf[143],27, C_text("scheme#with-input-from-file")); lf[144]=C_h_intern(&lf[144],26, C_text("scheme#with-output-to-file")); lf[145]=C_h_intern(&lf[145],18, C_text("scheme#eof-object\077")); lf[146]=C_h_intern(&lf[146],18, C_text("scheme#char-ready\077")); lf[147]=C_h_intern(&lf[147],16, C_text("scheme#read-char")); lf[148]=C_h_intern(&lf[148],16, C_text("scheme#peek-char")); lf[149]=C_h_intern(&lf[149],11, C_text("scheme#read")); lf[150]=C_h_intern(&lf[150],17, C_text("scheme#write-char")); lf[151]=C_h_intern(&lf[151],14, C_text("scheme#newline")); lf[152]=C_h_intern(&lf[152],12, C_text("scheme#write")); lf[153]=C_h_intern(&lf[153],14, C_text("scheme#display")); lf[154]=C_h_intern(&lf[154],11, C_text("scheme#eval")); lf[155]=C_h_intern(&lf[155],11, C_text("##sys#error")); lf[156]=C_h_intern(&lf[156],4, C_text("eval")); lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000T`eval\047 is not defined - the `eval\047 unit was probably not linked with this e" "xecutable")); lf[158]=C_h_intern(&lf[158],30, C_text("scheme#interaction-environment")); lf[159]=C_h_intern(&lf[159],23, C_text("interaction-environment")); lf[160]=C_decode_literal(C_heaptop,C_text("\376B\000\000g`interaction-environment\047 is not defined - the `eval\047 unit was probably not" " linked with this executable")); lf[161]=C_h_intern(&lf[161],32, C_text("scheme#scheme-report-environment")); lf[162]=C_h_intern(&lf[162],25, C_text("scheme-report-environment")); lf[163]=C_decode_literal(C_heaptop,C_text("\376B\000\000i`scheme-report-environment\047 is not defined - the `eval\047 unit was probably n" "ot linked with this executable")); lf[164]=C_h_intern(&lf[164],23, C_text("scheme#null-environment")); lf[165]=C_h_intern(&lf[165],16, C_text("null-environment")); lf[166]=C_decode_literal(C_heaptop,C_text("\376B\000\000``null-environment\047 is not defined - the `eval\047 unit was probably not linked" " with this executable")); lf[167]=C_h_intern(&lf[167],11, C_text("scheme#load")); lf[168]=C_h_intern(&lf[168],4, C_text("load")); lf[169]=C_decode_literal(C_heaptop,C_text("\376B\000\000T`load\047 is not defined - the `eval\047 unit was probably not linked with this e" "xecutable")); lf[170]=C_h_intern(&lf[170],15, C_text("scheme#for-each")); lf[171]=C_h_intern(&lf[171],10, C_text("scheme#map")); lf[172]=C_h_intern(&lf[172],19, C_text("scheme#dynamic-wind")); lf[173]=C_h_intern(&lf[173],13, C_text("chicken.base#")); lf[174]=C_h_intern(&lf[174],20, C_text("chicken.base#fixnum\077")); lf[175]=C_h_intern(&lf[175],20, C_text("chicken.base#flonum\077")); lf[176]=C_h_intern(&lf[176],20, C_text("chicken.base#bignum\077")); lf[177]=C_h_intern(&lf[177],20, C_text("chicken.base#ratnum\077")); lf[178]=C_h_intern(&lf[178],21, C_text("chicken.base#cplxnum\077")); lf[179]=C_h_intern(&lf[179],27, C_text("chicken.base#exact-integer\077")); lf[180]=C_h_intern(&lf[180],31, C_text("chicken.base#quotient&remainder")); lf[181]=C_h_intern(&lf[181],28, C_text("chicken.base#quotient&modulo")); lf[182]=C_h_intern(&lf[182],20, C_text("chicken.base#finite\077")); lf[183]=C_h_intern(&lf[183],22, C_text("chicken.base#infinite\077")); lf[184]=C_h_intern(&lf[184],17, C_text("chicken.base#nan\077")); lf[185]=C_h_intern(&lf[185],19, C_text("chicken.base#signum")); lf[186]=C_h_intern(&lf[186],27, C_text("chicken.base#get-call-chain")); lf[187]=C_h_intern(&lf[187],29, C_text("chicken.base#print-call-chain")); lf[188]=C_h_intern(&lf[188],18, C_text("chicken.base#print")); lf[189]=C_h_intern(&lf[189],19, C_text("chicken.base#print\052")); lf[190]=C_h_intern(&lf[190],17, C_text("chicken.base#add1")); lf[191]=C_h_intern(&lf[191],17, C_text("chicken.base#sub1")); lf[192]=C_h_intern(&lf[192],31, C_text("chicken.base#current-error-port")); lf[193]=C_h_intern(&lf[193],18, C_text("chicken.base#error")); lf[194]=C_h_intern(&lf[194],17, C_text("##sys#signal-hook")); lf[195]=C_h_intern_kw(&lf[195],5, C_text("error")); lf[196]=C_h_intern(&lf[196],17, C_text("chicken.base#void")); lf[197]=C_h_intern(&lf[197],18, C_text("chicken.base#sleep")); lf[198]=C_h_intern(&lf[198],20, C_text("chicken.base#call/cc")); lf[199]=C_h_intern(&lf[199],22, C_text("chicken.base#char-name")); lf[200]=C_h_intern(&lf[200],31, C_text("chicken.base#getter-with-setter")); lf[201]=C_h_intern(&lf[201],27, C_text("chicken.base#make-parameter")); lf[202]=C_h_intern(&lf[202],34, C_text("chicken.base#procedure-information")); lf[203]=C_h_intern(&lf[203],19, C_text("chicken.base#setter")); lf[204]=C_h_intern(&lf[204],25, C_text("chicken.base#vector-copy!")); lf[205]=C_h_intern(&lf[205],22, C_text("chicken.base#subvector")); lf[206]=C_h_intern(&lf[206],26, C_text("chicken.base#vector-resize")); lf[207]=C_h_intern(&lf[207],18, C_text("chicken.base#port\077")); lf[208]=C_h_intern(&lf[208],25, C_text("chicken.base#port-closed\077")); lf[209]=C_h_intern(&lf[209],29, C_text("chicken.base#input-port-open\077")); lf[210]=C_h_intern(&lf[210],30, C_text("chicken.base#output-port-open\077")); lf[211]=C_h_intern(&lf[211],30, C_text("chicken.base#get-output-string")); lf[212]=C_h_intern(&lf[212],30, C_text("chicken.base#open-input-string")); lf[213]=C_h_intern(&lf[213],31, C_text("chicken.base#open-output-string")); lf[214]=C_h_intern(&lf[214],25, C_text("chicken.base#flush-output")); lf[215]=C_h_intern(&lf[215],21, C_text("chicken.base#promise\077")); lf[216]=C_h_intern(&lf[216],7, C_text("promise")); lf[217]=C_h_intern(&lf[217],18, C_text("##sys#make-promise")); lf[218]=C_h_intern(&lf[218],25, C_text("chicken.base#make-promise")); lf[219]=C_h_intern(&lf[219],18, C_text("chicken.base#foldl")); lf[220]=C_h_intern(&lf[220],5, C_text("foldl")); lf[221]=C_h_intern(&lf[221],18, C_text("chicken.base#foldr")); lf[222]=C_h_intern(&lf[222],5, C_text("foldr")); lf[223]=C_h_intern(&lf[223],34, C_text("chicken.base#implicit-exit-handler")); lf[224]=C_h_intern(&lf[224],25, C_text("chicken.base#exit-handler")); lf[225]=C_h_intern(&lf[225],26, C_text("chicken.base#cleanup-tasks")); lf[226]=C_h_intern(&lf[226],20, C_text("chicken.base#on-exit")); lf[227]=C_h_intern(&lf[227],17, C_text("chicken.base#exit")); lf[228]=C_h_intern(&lf[228],27, C_text("chicken.base#emergency-exit")); lf[229]=C_h_intern(&lf[229],14, C_text("emergency-exit")); lf[230]=C_h_intern(&lf[230],27, C_text("chicken.base#case-sensitive")); lf[231]=C_h_intern(&lf[231],26, C_text("chicken.base#keyword-style")); lf[232]=C_h_intern(&lf[232],33, C_text("chicken.base#parentheses-synonyms")); lf[233]=C_h_intern(&lf[233],26, C_text("chicken.base#symbol-escape")); lf[234]=C_h_intern(&lf[234],21, C_text("chicken.base#identity")); lf[235]=C_h_intern(&lf[235],20, C_text("chicken.base#conjoin")); lf[236]=C_h_intern(&lf[236],20, C_text("chicken.base#disjoin")); lf[237]=C_h_intern(&lf[237],23, C_text("chicken.base#constantly")); lf[238]=C_h_intern(&lf[238],17, C_text("chicken.base#flip")); lf[239]=C_h_intern(&lf[239],23, C_text("chicken.base#complement")); lf[240]=C_h_intern(&lf[240],20, C_text("chicken.base#compose")); lf[241]=C_h_intern(&lf[241],14, C_text("chicken.base#o")); lf[242]=C_h_intern(&lf[242],21, C_text("chicken.base#list-of\077")); lf[243]=C_h_intern(&lf[243],17, C_text("chicken.base#each")); lf[244]=C_h_intern(&lf[244],21, C_text("##sys#undefined-value")); lf[245]=C_h_intern(&lf[245],18, C_text("chicken.base#atom\077")); lf[246]=C_h_intern(&lf[246],18, C_text("chicken.base#tail\077")); lf[247]=C_h_intern(&lf[247],5, C_text("tail\077")); lf[248]=C_h_intern(&lf[248],24, C_text("chicken.base#intersperse")); lf[249]=C_h_intern(&lf[249],20, C_text("chicken.base#butlast")); lf[250]=C_h_intern(&lf[250],7, C_text("butlast")); lf[251]=C_h_intern(&lf[251],20, C_text("chicken.base#flatten")); lf[252]=C_h_intern(&lf[252],17, C_text("chicken.base#join")); lf[253]=C_h_intern(&lf[253],4, C_text("join")); lf[254]=C_h_intern(&lf[254],12, C_text("##sys#append")); lf[255]=C_h_intern(&lf[255],21, C_text("chicken.base#compress")); lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000%bad argument type - not a proper list")); lf[257]=C_h_intern(&lf[257],8, C_text("compress")); lf[258]=C_h_intern_kw(&lf[258],10, C_text("type-error")); lf[259]=C_h_intern(&lf[259],26, C_text("chicken.base#alist-update!")); lf[260]=C_h_intern(&lf[260],25, C_text("chicken.base#alist-update")); lf[261]=C_h_intern(&lf[261],12, C_text("alist-update")); lf[262]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021bad argument type")); lf[263]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021bad argument type")); lf[264]=C_h_intern(&lf[264],22, C_text("chicken.base#alist-ref")); lf[265]=C_h_intern(&lf[265],9, C_text("alist-ref")); lf[266]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021bad argument type")); lf[267]=C_h_intern(&lf[267],19, C_text("chicken.base#rassoc")); lf[268]=C_h_intern(&lf[268],6, C_text("rassoc")); lf[270]=C_h_intern(&lf[270],15, C_text("chicken.fixnum#")); lf[271]=C_h_intern(&lf[271],35, C_text("chicken.fixnum#most-positive-fixnum")); lf[272]=C_h_intern(&lf[272],35, C_text("chicken.fixnum#most-negative-fixnum")); lf[273]=C_h_intern(&lf[273],26, C_text("chicken.fixnum#fixnum-bits")); lf[274]=C_h_intern(&lf[274],31, C_text("chicken.fixnum#fixnum-precision")); lf[275]=C_h_intern(&lf[275],18, C_text("chicken.fixnum#fx+")); lf[276]=C_h_intern(&lf[276],18, C_text("chicken.fixnum#fx-")); lf[277]=C_h_intern(&lf[277],18, C_text("chicken.fixnum#fx\052")); lf[278]=C_h_intern(&lf[278],18, C_text("chicken.fixnum#fx=")); lf[279]=C_h_intern(&lf[279],18, C_text("chicken.fixnum#fx>")); lf[280]=C_h_intern(&lf[280],18, C_text("chicken.fixnum#fx<")); lf[281]=C_h_intern(&lf[281],19, C_text("chicken.fixnum#fx>=")); lf[282]=C_h_intern(&lf[282],19, C_text("chicken.fixnum#fx<=")); lf[283]=C_h_intern(&lf[283],20, C_text("chicken.fixnum#fxmin")); lf[284]=C_h_intern(&lf[284],20, C_text("chicken.fixnum#fxmax")); lf[285]=C_h_intern(&lf[285],20, C_text("chicken.fixnum#fxneg")); lf[286]=C_h_intern(&lf[286],20, C_text("chicken.fixnum#fxand")); lf[287]=C_h_intern(&lf[287],20, C_text("chicken.fixnum#fxior")); lf[288]=C_h_intern(&lf[288],20, C_text("chicken.fixnum#fxxor")); lf[289]=C_h_intern(&lf[289],20, C_text("chicken.fixnum#fxnot")); lf[290]=C_h_intern(&lf[290],20, C_text("chicken.fixnum#fxshl")); lf[291]=C_h_intern(&lf[291],20, C_text("chicken.fixnum#fxshr")); lf[292]=C_h_intern(&lf[292],21, C_text("chicken.fixnum#fxodd\077")); lf[293]=C_h_intern(&lf[293],22, C_text("chicken.fixnum#fxeven\077")); lf[294]=C_h_intern(&lf[294],20, C_text("chicken.fixnum#fxlen")); lf[295]=C_h_intern(&lf[295],18, C_text("chicken.fixnum#fx/")); lf[296]=C_h_intern(&lf[296],20, C_text("chicken.fixnum#fxgcd")); lf[297]=C_h_intern(&lf[297],20, C_text("chicken.fixnum#fxmod")); lf[298]=C_h_intern(&lf[298],20, C_text("chicken.fixnum#fxrem")); lf[299]=C_h_intern(&lf[299],19, C_text("chicken.fixnum#fx+\077")); lf[300]=C_h_intern(&lf[300],19, C_text("chicken.fixnum#fx-\077")); lf[301]=C_h_intern(&lf[301],19, C_text("chicken.fixnum#fx\052\077")); lf[302]=C_h_intern(&lf[302],19, C_text("chicken.fixnum#fx/\077")); lf[303]=C_h_intern(&lf[303],17, C_text("##sys#debug-mode\077")); lf[304]=C_h_intern(&lf[304],22, C_text("##sys#warnings-enabled")); lf[305]=C_h_intern(&lf[305],21, C_text("##sys#notices-enabled")); lf[306]=C_h_intern(&lf[306],20, C_text("chicken.base#warning")); lf[307]=C_h_intern_kw(&lf[307],7, C_text("warning")); lf[308]=C_h_intern(&lf[308],19, C_text("chicken.base#notice")); lf[309]=C_h_intern_kw(&lf[309],6, C_text("notice")); lf[310]=C_h_intern(&lf[310],28, C_text("chicken.base#enable-warnings")); lf[311]=C_h_intern(&lf[311],10, C_text("##sys#warn")); lf[312]=C_h_intern(&lf[312],12, C_text("##sys#notice")); lf[313]=C_h_intern(&lf[313],8, C_text("##sys#gc")); lf[314]=C_h_intern(&lf[314],13, C_text("##sys#setslot")); lf[315]=C_h_intern(&lf[315],14, C_text("##sys#setislot")); lf[316]=C_h_intern(&lf[316],21, C_text("##sys#allocate-vector")); lf[317]=C_h_intern(&lf[317],20, C_text("##sys#make-structure")); lf[318]=C_h_intern(&lf[318],25, C_text("##sys#ensure-heap-reserve")); lf[319]=C_h_intern(&lf[319],23, C_text("##sys#symbol-table-info")); lf[320]=C_h_intern(&lf[320],17, C_text("##sys#memory-info")); lf[321]=C_h_intern(&lf[321],17, C_text("##sys#start-timer")); lf[322]=C_h_intern(&lf[322],16, C_text("##sys#stop-timer")); lf[323]=C_h_intern(&lf[323],16, C_text("##sys#immediate\077")); lf[324]=C_h_intern(&lf[324],13, C_text("##sys#message")); lf[325]=C_h_intern(&lf[325],10, C_text("##sys#byte")); lf[326]=C_h_intern(&lf[326],13, C_text("##sys#setbyte")); lf[327]=C_h_intern(&lf[327],10, C_text("##sys#void")); lf[328]=C_h_intern(&lf[328],10, C_text("##sys#halt")); lf[329]=C_h_intern(&lf[329],13, C_text("##sys#become!")); lf[330]=C_h_intern(&lf[330],15, C_text("##sys#block-ref")); lf[331]=C_h_intern(&lf[331],18, C_text("##sys#apply-values")); lf[332]=C_h_intern(&lf[332],18, C_text("##sys#copy-closure")); lf[333]=C_h_intern(&lf[333],16, C_text("##sys#block-set!")); lf[334]=C_h_intern(&lf[334],17, C_text("##sys#check-range")); lf[335]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023slot not accessible")); lf[336]=C_h_intern(&lf[336],13, C_text("chicken.time#")); lf[337]=C_h_intern(&lf[337],33, C_text("chicken.time#current-milliseconds")); lf[338]=C_h_intern(&lf[338],28, C_text("chicken.time#current-seconds")); lf[339]=C_h_intern(&lf[339],21, C_text("chicken.time#cpu-time")); lf[340]=C_h_intern(&lf[340],21, C_text("##sys#check-structure")); lf[341]=C_h_intern(&lf[341],16, C_text("##sys#check-blob")); lf[342]=C_h_intern(&lf[342],23, C_text("##sys#check-byte-vector")); lf[343]=C_h_intern(&lf[343],16, C_text("##sys#check-pair")); lf[344]=C_h_intern(&lf[344],16, C_text("##sys#check-list")); lf[345]=C_h_intern(&lf[345],18, C_text("##sys#check-string")); lf[346]=C_h_intern(&lf[346],18, C_text("##sys#check-number")); lf[347]=C_h_intern(&lf[347],17, C_text("##sys#check-exact")); lf[348]=C_h_intern(&lf[348],19, C_text("##sys#check-inexact")); lf[349]=C_h_intern(&lf[349],18, C_text("##sys#check-symbol")); lf[350]=C_h_intern(&lf[350],19, C_text("##sys#check-keyword")); lf[351]=C_h_intern(&lf[351],18, C_text("##sys#check-vector")); lf[352]=C_h_intern(&lf[352],16, C_text("##sys#check-char")); lf[353]=C_h_intern(&lf[353],19, C_text("##sys#check-boolean")); lf[354]=C_h_intern(&lf[354],20, C_text("##sys#check-locative")); lf[355]=C_h_intern(&lf[355],19, C_text("##sys#check-integer")); lf[356]=C_h_intern(&lf[356],23, C_text("##sys#error-bad-integer")); lf[357]=C_h_intern(&lf[357],25, C_text("##sys#check-exact-integer")); lf[358]=C_h_intern(&lf[358],29, C_text("##sys#error-bad-exact-integer")); lf[359]=C_h_intern(&lf[359],26, C_text("##sys#check-exact-uinteger")); lf[360]=C_h_intern(&lf[360],30, C_text("##sys#error-bad-exact-uinteger")); lf[361]=C_h_intern(&lf[361],16, C_text("##sys#check-real")); lf[362]=C_h_intern(&lf[362],20, C_text("##sys#error-bad-real")); lf[363]=C_h_intern(&lf[363],16, C_text("##sys#error-hook")); lf[364]=C_h_intern(&lf[364],19, C_text("##sys#check-special")); lf[365]=C_decode_literal(C_heaptop,C_text("\376B\000\000-bad argument type - not a pointer-like object")); lf[366]=C_h_intern(&lf[366],19, C_text("##sys#check-closure")); lf[367]=C_h_intern(&lf[367],12, C_text("scheme#force")); lf[368]=C_h_intern(&lf[368],10, C_text("##sys#list")); lf[369]=C_h_intern(&lf[369],11, C_text("##sys#dload")); lf[370]=C_h_intern(&lf[370],23, C_text("##sys#set-dlopen-flags!")); lf[371]=C_h_intern(&lf[371],22, C_text("##sys#error-bad-number")); lf[372]=C_h_intern(&lf[372],23, C_text("##sys#error-bad-inexact")); lf[373]=C_h_intern(&lf[373],20, C_text("##sys#error-bad-base")); lf[374]=C_h_intern(&lf[374],13, C_text("scheme#append")); lf[375]=C_h_intern(&lf[375],6, C_text("append")); lf[376]=C_h_intern(&lf[376],18, C_text("##sys#fast-reverse")); lf[377]=C_h_intern(&lf[377],17, C_text("##sys#make-string")); lf[378]=C_h_intern(&lf[378],18, C_text("scheme#make-string")); lf[379]=C_h_intern(&lf[379],11, C_text("make-string")); lf[380]=C_h_intern_kw(&lf[380],12, C_text("bounds-error")); lf[381]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020size is negative")); lf[382]=C_h_intern(&lf[382],19, C_text("scheme#string->list")); lf[383]=C_h_intern(&lf[383],12, C_text("string->list")); lf[384]=C_h_intern(&lf[384],18, C_text("##sys#string->list")); lf[385]=C_h_intern(&lf[385],19, C_text("scheme#list->string")); lf[386]=C_h_intern(&lf[386],12, C_text("list->string")); lf[387]=C_h_intern(&lf[387],18, C_text("##sys#list->string")); lf[388]=C_h_intern(&lf[388],26, C_text("##sys#reverse-list->string")); lf[389]=C_h_intern(&lf[389],20, C_text("reverse-list->string")); lf[390]=C_h_intern(&lf[390],19, C_text("scheme#string-fill!")); lf[391]=C_h_intern(&lf[391],12, C_text("string-fill!")); lf[392]=C_h_intern(&lf[392],18, C_text("scheme#string-copy")); lf[393]=C_h_intern(&lf[393],11, C_text("string-copy")); lf[394]=C_h_intern(&lf[394],16, C_text("scheme#substring")); lf[395]=C_h_intern(&lf[395],9, C_text("substring")); lf[396]=C_h_intern(&lf[396],15, C_text("##sys#substring")); lf[397]=C_h_intern(&lf[397],15, C_text("scheme#string<\077")); lf[398]=C_h_intern(&lf[398],8, C_text("string<\077")); lf[399]=C_h_intern(&lf[399],15, C_text("scheme#string>\077")); lf[400]=C_h_intern(&lf[400],8, C_text("string>\077")); lf[401]=C_h_intern(&lf[401],16, C_text("scheme#string<=\077")); lf[402]=C_h_intern(&lf[402],9, C_text("string<=\077")); lf[403]=C_h_intern(&lf[403],16, C_text("scheme#string>=\077")); lf[404]=C_h_intern(&lf[404],9, C_text("string>=\077")); lf[405]=C_h_intern(&lf[405],18, C_text("scheme#string-ci<\077")); lf[406]=C_h_intern(&lf[406],11, C_text("string-ci<\077")); lf[407]=C_h_intern(&lf[407],18, C_text("scheme#string-ci>\077")); lf[408]=C_h_intern(&lf[408],11, C_text("string-ci>\077")); lf[409]=C_h_intern(&lf[409],19, C_text("scheme#string-ci<=\077")); lf[410]=C_h_intern(&lf[410],12, C_text("string-ci<=\077")); lf[411]=C_h_intern(&lf[411],19, C_text("scheme#string-ci>=\077")); lf[412]=C_h_intern(&lf[412],12, C_text("string-ci>=\077")); lf[413]=C_h_intern(&lf[413],19, C_text("##sys#string-append")); lf[414]=C_h_intern(&lf[414],20, C_text("scheme#string-append")); lf[415]=C_h_intern(&lf[415],13, C_text("string-append")); lf[416]=C_h_intern(&lf[416],13, C_text("scheme#string")); lf[417]=C_h_intern(&lf[417],23, C_text("##sys#fragments->string")); lf[418]=C_h_intern(&lf[418],17, C_text("chicken.base#chop")); lf[419]=C_h_intern(&lf[419],4, C_text("chop")); lf[420]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030invalid numeric argument")); lf[421]=C_h_intern(&lf[421],15, C_text("chicken.flonum#")); lf[422]=C_h_intern(&lf[422],29, C_text("chicken.flonum#maximum-flonum")); lf[423]=C_h_intern(&lf[423],29, C_text("chicken.flonum#minimum-flonum")); lf[424]=C_h_intern(&lf[424],27, C_text("chicken.flonum#flonum-radix")); lf[425]=C_h_intern(&lf[425],29, C_text("chicken.flonum#flonum-epsilon")); lf[426]=C_h_intern(&lf[426],31, C_text("chicken.flonum#flonum-precision")); lf[427]=C_h_intern(&lf[427],39, C_text("chicken.flonum#flonum-decimal-precision")); lf[428]=C_h_intern(&lf[428],38, C_text("chicken.flonum#flonum-maximum-exponent")); lf[429]=C_h_intern(&lf[429],38, C_text("chicken.flonum#flonum-minimum-exponent")); lf[430]=C_h_intern(&lf[430],46, C_text("chicken.flonum#flonum-maximum-decimal-exponent")); lf[431]=C_h_intern(&lf[431],46, C_text("chicken.flonum#flonum-minimum-decimal-exponent")); lf[432]=C_h_intern(&lf[432],18, C_text("chicken.flonum#fp+")); lf[433]=C_h_intern(&lf[433],3, C_text("fp+")); lf[434]=C_h_intern(&lf[434],18, C_text("chicken.flonum#fp-")); lf[435]=C_h_intern(&lf[435],3, C_text("fp-")); lf[436]=C_h_intern(&lf[436],18, C_text("chicken.flonum#fp\052")); lf[437]=C_h_intern(&lf[437],3, C_text("fp\052")); lf[438]=C_h_intern(&lf[438],18, C_text("chicken.flonum#fp/")); lf[439]=C_h_intern(&lf[439],3, C_text("fp/")); lf[440]=C_h_intern(&lf[440],20, C_text("chicken.flonum#fpgcd")); lf[441]=C_h_intern(&lf[441],5, C_text("fpgcd")); lf[442]=C_h_intern(&lf[442],19, C_text("chicken.flonum#fp/\077")); lf[443]=C_h_intern(&lf[443],4, C_text("fp/\077")); lf[444]=C_h_intern(&lf[444],18, C_text("chicken.flonum#fp=")); lf[445]=C_h_intern(&lf[445],3, C_text("fp=")); lf[446]=C_h_intern(&lf[446],18, C_text("chicken.flonum#fp>")); lf[447]=C_h_intern(&lf[447],3, C_text("fp>")); lf[448]=C_h_intern(&lf[448],18, C_text("chicken.flonum#fp<")); lf[449]=C_h_intern(&lf[449],3, C_text("fp<")); lf[450]=C_h_intern(&lf[450],19, C_text("chicken.flonum#fp>=")); lf[451]=C_h_intern(&lf[451],4, C_text("fp>=")); lf[452]=C_h_intern(&lf[452],19, C_text("chicken.flonum#fp<=")); lf[453]=C_h_intern(&lf[453],4, C_text("fp<=")); lf[454]=C_h_intern(&lf[454],20, C_text("chicken.flonum#fpneg")); lf[455]=C_h_intern(&lf[455],5, C_text("fpneg")); lf[456]=C_h_intern(&lf[456],20, C_text("chicken.flonum#fpmax")); lf[457]=C_h_intern(&lf[457],5, C_text("fpmax")); lf[458]=C_h_intern(&lf[458],20, C_text("chicken.flonum#fpmin")); lf[459]=C_h_intern(&lf[459],5, C_text("fpmin")); lf[460]=C_h_intern(&lf[460],22, C_text("chicken.flonum#fpfloor")); lf[461]=C_h_intern(&lf[461],7, C_text("fpfloor")); lf[462]=C_h_intern(&lf[462],25, C_text("chicken.flonum#fptruncate")); lf[463]=C_h_intern(&lf[463],10, C_text("fptruncate")); lf[464]=C_h_intern(&lf[464],22, C_text("chicken.flonum#fpround")); lf[465]=C_h_intern(&lf[465],7, C_text("fpround")); lf[466]=C_h_intern(&lf[466],24, C_text("chicken.flonum#fpceiling")); lf[467]=C_h_intern(&lf[467],9, C_text("fpceiling")); lf[468]=C_h_intern(&lf[468],20, C_text("chicken.flonum#fpsin")); lf[469]=C_h_intern(&lf[469],5, C_text("fpsin")); lf[470]=C_h_intern(&lf[470],20, C_text("chicken.flonum#fpcos")); lf[471]=C_h_intern(&lf[471],5, C_text("fpcos")); lf[472]=C_h_intern(&lf[472],20, C_text("chicken.flonum#fptan")); lf[473]=C_h_intern(&lf[473],5, C_text("fptan")); lf[474]=C_h_intern(&lf[474],21, C_text("chicken.flonum#fpasin")); lf[475]=C_h_intern(&lf[475],6, C_text("fpasin")); lf[476]=C_h_intern(&lf[476],21, C_text("chicken.flonum#fpacos")); lf[477]=C_h_intern(&lf[477],6, C_text("fpacos")); lf[478]=C_h_intern(&lf[478],21, C_text("chicken.flonum#fpatan")); lf[479]=C_h_intern(&lf[479],6, C_text("fpatan")); lf[480]=C_h_intern(&lf[480],22, C_text("chicken.flonum#fpatan2")); lf[481]=C_h_intern(&lf[481],7, C_text("fpatan2")); lf[482]=C_h_intern(&lf[482],20, C_text("chicken.flonum#fpexp")); lf[483]=C_h_intern(&lf[483],5, C_text("fpexp")); lf[484]=C_h_intern(&lf[484],21, C_text("chicken.flonum#fpexpt")); lf[485]=C_h_intern(&lf[485],6, C_text("fpexpt")); lf[486]=C_h_intern(&lf[486],20, C_text("chicken.flonum#fplog")); lf[487]=C_h_intern(&lf[487],5, C_text("fplog")); lf[488]=C_h_intern(&lf[488],21, C_text("chicken.flonum#fpsqrt")); lf[489]=C_h_intern(&lf[489],6, C_text("fpsqrt")); lf[490]=C_h_intern(&lf[490],20, C_text("chicken.flonum#fpabs")); lf[491]=C_h_intern(&lf[491],5, C_text("fpabs")); lf[492]=C_h_intern(&lf[492],25, C_text("chicken.flonum#fpinteger\077")); lf[493]=C_h_intern(&lf[493],10, C_text("fpinteger\077")); lf[494]=C_h_intern(&lf[494],37, C_text("chicken.flonum#flonum-print-precision")); lf[495]=C_h_intern(&lf[495],22, C_text("flonum-print-precision")); lf[496]=C_h_intern(&lf[496],13, C_text("##sys#number\077")); lf[497]=C_h_intern(&lf[497],14, C_text("##sys#integer\077")); lf[498]=C_h_intern(&lf[498],12, C_text("##sys#exact\077")); lf[499]=C_h_intern(&lf[499],14, C_text("##sys#inexact\077")); lf[501]=C_decode_literal(C_heaptop,C_text("\376U0.0\000")); lf[502]=C_h_intern(&lf[502],23, C_text("scheme#make-rectangular")); lf[503]=C_h_intern(&lf[503],16, C_text("make-rectangular")); lf[504]=C_h_intern(&lf[504],17, C_text("scheme#make-polar")); lf[505]=C_h_intern(&lf[505],10, C_text("make-polar")); lf[506]=C_h_intern(&lf[506],16, C_text("scheme#real-part")); lf[507]=C_h_intern(&lf[507],9, C_text("real-part")); lf[508]=C_h_intern(&lf[508],16, C_text("scheme#imag-part")); lf[509]=C_h_intern(&lf[509],9, C_text("imag-part")); lf[510]=C_h_intern(&lf[510],12, C_text("scheme#angle")); lf[511]=C_h_intern(&lf[511],5, C_text("angle")); lf[512]=C_h_intern(&lf[512],16, C_text("scheme#magnitude")); lf[513]=C_h_intern(&lf[513],11, C_text("scheme#sqrt")); lf[514]=C_h_intern(&lf[514],9, C_text("magnitude")); lf[516]=C_h_intern(&lf[516],16, C_text("scheme#numerator")); lf[517]=C_h_intern(&lf[517],11, C_text("bad-inexact")); lf[518]=C_h_intern(&lf[518],9, C_text("numerator")); lf[519]=C_h_intern(&lf[519],21, C_text("scheme#inexact->exact")); lf[520]=C_decode_literal(C_heaptop,C_text("\376B\000\000)bad argument type - not a rational number")); lf[521]=C_h_intern(&lf[521],18, C_text("scheme#denominator")); lf[522]=C_h_intern(&lf[522],11, C_text("denominator")); lf[523]=C_decode_literal(C_heaptop,C_text("\376U1.0\000")); lf[524]=C_decode_literal(C_heaptop,C_text("\376B\000\000)bad argument type - not a rational number")); lf[525]=C_h_intern(&lf[525],21, C_text("##sys#extended-signum")); lf[526]=C_h_intern(&lf[526],6, C_text("signum")); lf[527]=C_h_intern(&lf[527],9, C_text("##sys#/-2")); lf[528]=C_h_intern(&lf[528],14, C_text("inexact->exact")); lf[529]=C_h_intern(&lf[529],19, C_text("##sys#integer-power")); lf[530]=C_decode_literal(C_heaptop,C_text("\376U2.0\000")); lf[531]=C_h_intern(&lf[531],11, C_text("scheme#expt")); lf[532]=C_h_intern(&lf[532],20, C_text("##sys#exact->inexact")); lf[533]=C_h_intern(&lf[533],20, C_text("##sys#inexact->exact")); lf[534]=C_h_intern(&lf[534],16, C_text("chicken.bitwise#")); lf[535]=C_h_intern(&lf[535],27, C_text("chicken.bitwise#bitwise-and")); lf[536]=C_h_intern(&lf[536],27, C_text("chicken.bitwise#bitwise-ior")); lf[537]=C_h_intern(&lf[537],27, C_text("chicken.bitwise#bitwise-xor")); lf[538]=C_h_intern(&lf[538],27, C_text("chicken.bitwise#bitwise-not")); lf[539]=C_h_intern(&lf[539],28, C_text("chicken.bitwise#bit->boolean")); lf[540]=C_h_intern(&lf[540],30, C_text("chicken.bitwise#integer-length")); lf[541]=C_h_intern(&lf[541],32, C_text("chicken.bitwise#arithmetic-shift")); lf[542]=C_h_intern(&lf[542],8, C_text("scheme#/")); lf[544]=C_h_intern(&lf[544],1, C_text("/")); lf[545]=C_h_intern(&lf[545],12, C_text("scheme#floor")); lf[546]=C_h_intern(&lf[546],5, C_text("floor")); lf[547]=C_h_intern(&lf[547],14, C_text("scheme#ceiling")); lf[548]=C_h_intern(&lf[548],7, C_text("ceiling")); lf[549]=C_h_intern(&lf[549],15, C_text("scheme#truncate")); lf[550]=C_h_intern(&lf[550],8, C_text("truncate")); lf[551]=C_h_intern(&lf[551],12, C_text("scheme#round")); lf[552]=C_h_intern(&lf[552],5, C_text("round")); lf[554]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\001\000\000\000\000\376\003\000\000\002\376\377\001\000\000\000\001\376\377\016")); lf[555]=C_h_intern(&lf[555],18, C_text("scheme#rationalize")); lf[556]=C_h_intern(&lf[556],10, C_text("scheme#max")); lf[557]=C_h_intern(&lf[557],3, C_text("max")); lf[558]=C_h_intern(&lf[558],10, C_text("scheme#min")); lf[559]=C_h_intern(&lf[559],3, C_text("min")); lf[560]=C_h_intern(&lf[560],10, C_text("scheme#exp")); lf[561]=C_h_intern(&lf[561],3, C_text("exp")); lf[562]=C_h_intern(&lf[562],11, C_text("##sys#log-1")); lf[563]=C_h_intern_kw(&lf[563],16, C_text("arithmetic-error")); lf[564]=C_h_intern(&lf[564],3, C_text("log")); lf[565]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033log of exact 0 is undefined")); lf[566]=C_h_intern(&lf[566],10, C_text("scheme#log")); lf[567]=C_h_intern(&lf[567],10, C_text("scheme#sin")); lf[568]=C_h_intern(&lf[568],3, C_text("sin")); lf[569]=C_decode_literal(C_heaptop,C_text("\376\016\000\000\002\376\377\001\000\000\000\000\376\377\001\000\000\000\001")); lf[570]=C_decode_literal(C_heaptop,C_text("\376\016\000\000\002\376\377\001\000\000\000\000\376\377\001\000\000\000\002")); lf[571]=C_h_intern(&lf[571],10, C_text("scheme#cos")); lf[572]=C_h_intern(&lf[572],3, C_text("cos")); lf[573]=C_h_intern(&lf[573],10, C_text("scheme#tan")); lf[574]=C_h_intern(&lf[574],3, C_text("tan")); lf[575]=C_h_intern(&lf[575],11, C_text("scheme#asin")); lf[576]=C_h_intern(&lf[576],4, C_text("asin")); lf[577]=C_decode_literal(C_heaptop,C_text("\376\016\000\000\002\376\377\001\000\000\000\000\376\377\001\377\377\377\377")); lf[578]=C_h_intern(&lf[578],14, C_text("##sys#sqrt/loc")); lf[579]=C_decode_literal(C_heaptop,C_text("\376U-1.0\000")); lf[580]=C_h_intern(&lf[580],11, C_text("scheme#acos")); lf[581]=C_h_intern(&lf[581],4, C_text("acos")); lf[582]=C_h_intern(&lf[582],11, C_text("scheme#atan")); lf[583]=C_h_intern(&lf[583],4, C_text("atan")); lf[584]=C_h_intern(&lf[584],24, C_text("##sys#exact-integer-sqrt")); lf[585]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030this should never happen")); lf[586]=C_h_intern(&lf[586],31, C_text("chicken.base#exact-integer-sqrt")); lf[587]=C_h_intern(&lf[587],18, C_text("exact-integer-sqrt")); lf[588]=C_h_intern(&lf[588],4, C_text("sqrt")); lf[589]=C_h_intern(&lf[589],35, C_text("chicken.base#exact-integer-nth-root")); lf[590]=C_h_intern(&lf[590],32, C_text("##sys#exact-integer-nth-root/loc")); lf[591]=C_h_intern(&lf[591],22, C_text("exact-integer-nth-root")); lf[592]=C_h_intern(&lf[592],4, C_text("expt")); lf[593]=C_decode_literal(C_heaptop,C_text("\376B\000\0006exponent of exact 0 with complex argument is undefined")); lf[594]=C_h_intern(&lf[594],9, C_text("##sys#gcd")); lf[595]=C_h_intern(&lf[595],3, C_text("gcd")); lf[596]=C_h_intern(&lf[596],10, C_text("scheme#gcd")); lf[597]=C_h_intern(&lf[597],9, C_text("##sys#lcm")); lf[598]=C_h_intern(&lf[598],3, C_text("lcm")); lf[599]=C_h_intern(&lf[599],10, C_text("scheme#lcm")); lf[600]=C_h_intern(&lf[600],31, C_text("##sys#integer->string/recursive")); lf[601]=C_h_intern(&lf[601],20, C_text("##sys#number->string")); lf[602]=C_h_intern(&lf[602],29, C_text("##sys#extended-number->string")); lf[603]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/")); lf[604]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001+")); lf[605]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[606]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001i")); lf[607]=C_h_intern(&lf[607],14, C_text("number->string")); lf[610]=C_h_intern(&lf[610],1, C_text("e")); lf[611]=C_h_intern(&lf[611],1, C_text("i")); lf[612]=C_decode_literal(C_heaptop,C_text("\376U+inf.0\000")); lf[613]=C_decode_literal(C_heaptop,C_text("\376U-inf.0\000")); lf[614]=C_h_intern(&lf[614],3, C_text("neg")); lf[615]=C_h_intern(&lf[615],3, C_text("pos")); lf[616]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005inf.0")); lf[617]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005nan.0")); lf[618]=C_h_intern(&lf[618],21, C_text("scheme#string->number")); lf[619]=C_h_intern(&lf[619],14, C_text("string->number")); lf[620]=C_h_intern(&lf[620],20, C_text("##sys#string->number")); lf[621]=C_h_intern(&lf[621],20, C_text("##sys#fixnum->string")); lf[622]=C_h_intern(&lf[622],20, C_text("##sys#flonum->string")); lf[623]=C_h_intern(&lf[623],21, C_text("##sys#integer->string")); lf[624]=C_h_intern(&lf[624],20, C_text("chicken.base#equal=\077")); lf[625]=C_h_intern(&lf[625],11, C_text("##sys#snafu")); lf[626]=C_h_intern(&lf[626],11, C_text("##sys#fnord")); lf[627]=C_h_intern(&lf[627],19, C_text("##sys#intern-symbol")); lf[628]=C_h_intern(&lf[628],20, C_text("##sys#intern-keyword")); lf[629]=C_h_intern(&lf[629],22, C_text("##sys#interned-symbol\077")); lf[630]=C_h_intern(&lf[630],20, C_text("##sys#string->symbol")); lf[631]=C_h_intern(&lf[631],20, C_text("##sys#symbol->string")); lf[632]=C_h_intern(&lf[632],21, C_text("scheme#symbol->string")); lf[633]=C_h_intern(&lf[633],14, C_text("symbol->string")); lf[634]=C_h_intern(&lf[634],21, C_text("scheme#string->symbol")); lf[635]=C_h_intern(&lf[635],14, C_text("string->symbol")); lf[636]=C_h_intern(&lf[636],38, C_text("chicken.base#string->uninterned-symbol")); lf[637]=C_h_intern(&lf[637],25, C_text("string->uninterned-symbol")); lf[638]=C_h_intern(&lf[638],19, C_text("chicken.base#gensym")); lf[639]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001g")); lf[640]=C_h_intern(&lf[640],6, C_text("gensym")); lf[641]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042argument is not a string or symbol")); lf[642]=C_h_intern(&lf[642],26, C_text("chicken.base#symbol-append")); lf[643]=C_h_intern(&lf[643],13, C_text("symbol-append")); lf[644]=C_h_intern(&lf[644],16, C_text("chicken.keyword#")); lf[645]=C_h_intern(&lf[645],24, C_text("chicken.keyword#keyword\077")); lf[646]=C_h_intern(&lf[646],31, C_text("chicken.keyword#string->keyword")); lf[647]=C_h_intern(&lf[647],15, C_text("string->keyword")); lf[648]=C_h_intern(&lf[648],31, C_text("chicken.keyword#keyword->string")); lf[649]=C_h_intern(&lf[649],15, C_text("keyword->string")); lf[650]=C_decode_literal(C_heaptop,C_text("\376B\000\000!bad argument type - not a keyword")); lf[651]=C_h_intern(&lf[651],3, C_text("tag")); lf[652]=C_h_intern(&lf[652],27, C_text("chicken.keyword#get-keyword")); lf[653]=C_h_intern(&lf[653],11, C_text("get-keyword")); lf[654]=C_h_intern(&lf[654],17, C_text("##sys#get-keyword")); lf[655]=C_h_intern(&lf[655],13, C_text("chicken.blob#")); lf[656]=C_h_intern(&lf[656],15, C_text("##sys#make-blob")); lf[657]=C_h_intern(&lf[657],22, C_text("chicken.blob#make-blob")); lf[658]=C_h_intern(&lf[658],9, C_text("make-blob")); lf[659]=C_h_intern(&lf[659],18, C_text("chicken.blob#blob\077")); lf[660]=C_h_intern(&lf[660],22, C_text("chicken.blob#blob-size")); lf[661]=C_h_intern(&lf[661],9, C_text("blob-size")); lf[662]=C_h_intern(&lf[662],25, C_text("chicken.blob#string->blob")); lf[663]=C_h_intern(&lf[663],12, C_text("string->blob")); lf[664]=C_h_intern(&lf[664],25, C_text("chicken.blob#blob->string")); lf[665]=C_h_intern(&lf[665],12, C_text("blob->string")); lf[666]=C_h_intern(&lf[666],19, C_text("chicken.blob#blob=\077")); lf[667]=C_h_intern(&lf[667],6, C_text("blob=\077")); lf[668]=C_h_intern(&lf[668],11, C_text("make-vector")); lf[669]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020size is negative")); lf[670]=C_h_intern(&lf[670],17, C_text("##sys#make-vector")); lf[671]=C_h_intern(&lf[671],12, C_text("list->vector")); lf[672]=C_h_intern(&lf[672],12, C_text("vector->list")); lf[673]=C_h_intern(&lf[673],12, C_text("vector-fill!")); lf[674]=C_h_intern(&lf[674],12, C_text("vector-copy!")); lf[675]=C_decode_literal(C_heaptop,C_text("\376B\000\000)cannot copy vector - count exceeds length")); lf[676]=C_h_intern(&lf[676],9, C_text("subvector")); lf[677]=C_h_intern(&lf[677],13, C_text("vector-resize")); lf[679]=C_h_intern(&lf[679],9, C_text("char-name")); lf[680]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026invalid character name")); lf[681]=C_h_intern(&lf[681],36, C_text("##sys#call-with-current-continuation")); lf[682]=C_h_intern(&lf[682],23, C_text("##sys#call-with-cthulhu")); lf[683]=C_h_intern(&lf[683],22, C_text("##sys#call-with-values")); lf[684]=C_h_intern(&lf[684],14, C_text("##sys#for-each")); lf[685]=C_h_intern(&lf[685],8, C_text("for-each")); lf[686]=C_h_intern(&lf[686],9, C_text("##sys#map")); lf[687]=C_h_intern(&lf[687],3, C_text("map")); lf[688]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034lists are not of same length")); lf[689]=C_h_intern(&lf[689],19, C_text("##sys#dynamic-winds")); lf[690]=C_h_intern(&lf[690],18, C_text("##sys#dynamic-wind")); lf[692]=C_h_intern(&lf[692],16, C_text("input-port-open\077")); lf[693]=C_h_intern(&lf[693],17, C_text("output-port-open\077")); lf[694]=C_h_intern(&lf[694],16, C_text("##sys#check-port")); lf[695]=C_h_intern(&lf[695],12, C_text("port-closed\077")); lf[696]=C_h_intern(&lf[696],15, C_text("##sys#make-port")); lf[697]=C_h_intern(&lf[697],24, C_text("##sys#dispatch-interrupt")); lf[698]=C_h_intern_kw(&lf[698],10, C_text("file-error")); lf[699]=C_h_intern(&lf[699],9, C_text("read-char")); lf[700]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030cannot read from port - ")); lf[701]=C_h_intern(&lf[701],19, C_text("##sys#peek-c-string")); lf[702]=C_h_intern(&lf[702],18, C_text("##sys#update-errno")); lf[703]=C_h_intern(&lf[703],9, C_text("peek-char")); lf[704]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030cannot read from port - ")); lf[705]=C_h_intern(&lf[705],12, C_text("read-string!")); lf[706]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030cannot read from port - ")); lf[707]=C_h_intern(&lf[707],9, C_text("read-line")); lf[708]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030cannot read from port - ")); lf[709]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[710]=C_h_intern(&lf[710],23, C_text("##sys#stream-port-class")); lf[711]=C_h_intern(&lf[711],20, C_text("##sys#open-file-port")); lf[712]=C_h_intern(&lf[712],20, C_text("##sys#standard-input")); lf[713]=C_h_intern(&lf[713],21, C_text("##sys#standard-output")); lf[714]=C_h_intern(&lf[714],20, C_text("##sys#standard-error")); lf[715]=C_h_intern(&lf[715],22, C_text("##sys#check-input-port")); lf[716]=C_h_intern(&lf[716],23, C_text("##sys#check-output-port")); lf[717]=C_h_intern(&lf[717],21, C_text("##sys#check-open-port")); lf[718]=C_h_intern(&lf[718],18, C_text("current-input-port")); lf[719]=C_h_intern(&lf[719],19, C_text("current-output-port")); lf[720]=C_h_intern(&lf[720],18, C_text("current-error-port")); lf[721]=C_h_intern(&lf[721],15, C_text("##sys#tty-port\077")); lf[722]=C_h_intern(&lf[722],27, C_text("##sys#peek-unsigned-integer")); lf[723]=C_h_intern(&lf[723],15, C_text("##sys#port-data")); lf[724]=C_h_intern(&lf[724],20, C_text("##sys#set-port-data!")); lf[725]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001r")); lf[726]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001w")); lf[727]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[728]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023cannot open file - ")); lf[729]=C_h_intern(&lf[729],6, C_text("stream")); lf[730]=C_h_intern_kw(&lf[730],6, C_text("binary")); lf[731]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001b")); lf[732]=C_h_intern_kw(&lf[732],4, C_text("text")); lf[733]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[734]=C_h_intern_kw(&lf[734],6, C_text("append")); lf[735]=C_decode_literal(C_heaptop,C_text("\376B\000\000&cannot use append mode with input file")); lf[736]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001a")); lf[737]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid file option")); lf[738]=C_h_intern(&lf[738],15, C_text("open-input-file")); lf[739]=C_h_intern(&lf[739],16, C_text("open-output-file")); lf[740]=C_h_intern(&lf[740],16, C_text("close-input-port")); lf[741]=C_h_intern(&lf[741],17, C_text("close-output-port")); lf[742]=C_h_intern(&lf[742],18, C_text("##sys#file-exists\077")); lf[743]=C_decode_literal(C_heaptop,C_text("\376B\000\000(system error while trying to access file")); lf[744]=C_h_intern(&lf[744],19, C_text("##sys#make-c-string")); lf[745]=C_h_intern(&lf[745],18, C_text("##sys#flush-output")); lf[746]=C_h_intern(&lf[746],12, C_text("flush-output")); lf[747]=C_h_intern(&lf[747],15, C_text("##sys#port-line")); lf[748]=C_h_intern(&lf[748],21, C_text("##sys#decorate-lambda")); lf[749]=C_h_intern(&lf[749],23, C_text("##sys#lambda-decoration")); lf[750]=C_h_intern(&lf[750],22, C_text("##sys#make-lambda-info")); lf[751]=C_h_intern(&lf[751],18, C_text("##sys#lambda-info\077")); lf[752]=C_h_intern(&lf[752],17, C_text("##sys#lambda-info")); lf[753]=C_h_intern(&lf[753],25, C_text("##sys#lambda-info->string")); lf[754]=C_h_intern(&lf[754],10, C_text("##sys#read")); lf[755]=C_h_intern(&lf[755],21, C_text("procedure-information")); lf[756]=C_h_intern(&lf[756],6, C_text("setter")); lf[758]=C_h_intern(&lf[758],12, C_text("##sys#setter")); lf[759]=C_h_intern(&lf[759],18, C_text("getter-with-setter")); lf[761]=C_h_intern(&lf[761],30, C_text("##sys#current-parameter-vector")); lf[762]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\000")); lf[763]=C_h_intern(&lf[763],11, C_text("char-ready\077")); lf[764]=C_h_intern(&lf[764],17, C_text("##sys#read-char-0")); lf[765]=C_h_intern(&lf[765],20, C_text("##sys#read-char/port")); lf[766]=C_h_intern(&lf[766],17, C_text("##sys#peek-char-0")); lf[767]=C_h_intern(&lf[767],4, C_text("read")); lf[768]=C_h_intern(&lf[768],28, C_text("##sys#default-read-info-hook")); lf[769]=C_h_intern(&lf[769],33, C_text("##sys#read-error-with-line-number")); lf[770]=C_h_intern(&lf[770],22, C_text("##sys#read-prompt-hook")); lf[771]=C_h_intern(&lf[771],21, C_text("##sys#infix-list-hook")); lf[772]=C_h_intern(&lf[772],23, C_text("##sys#sharp-number-hook")); lf[773]=C_h_intern(&lf[773],16, C_text("##sys#read-error")); lf[774]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032invalid `#...\047 read syntax")); lf[775]=C_h_intern(&lf[775],24, C_text("##sys#current-read-table")); lf[776]=C_h_intern(&lf[776],18, C_text("##sys#read-warning")); lf[777]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006(line ")); lf[778]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002) ")); lf[779]=C_h_intern_kw(&lf[779],12, C_text("syntax-error")); lf[780]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006(line ")); lf[781]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002) ")); lf[782]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000,\376\003\000\000\002\376\377\012\000\000;\376\003\000\000\002\376\377\012\000\000(\376\003\000\000\002\376\377\012\000\000)\376\003\000\000\002\376\377\012\000\000\047\376\003\000\000\002\376\377\012\000\000\042\376\003\000\000\002\376\377\012\000\000[\376\003\000" "\000\002\376\377\012\000\000]\376\003\000\000\002\376\377\012\000\000{\376\003\000\000\002\376\377\012\000\000}\376\377\016")); lf[783]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032unexpected list terminator")); lf[784]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022reserved character")); lf[785]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032invalid escape-sequence \047\134")); lf[786]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\047")); lf[787]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034unterminated string constant")); lf[788]=C_h_intern(&lf[788],23, C_text("##sys#char->utf8-string")); lf[789]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023unterminated string")); lf[790]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001x")); lf[791]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022bad surrogate pair")); lf[792]=C_h_intern(&lf[792],27, C_text("##sys#surrogates->codepoint")); lf[793]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001u")); lf[794]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032unpaired escaped surrogate")); lf[795]=C_h_intern(&lf[795],24, C_text("##sys#unicode-surrogate\077")); lf[796]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001u")); lf[797]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032invalid escape (surrogate)")); lf[798]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001U")); lf[799]=C_decode_literal(C_heaptop,C_text("\376B\000\0006escaped whitespace, but no newline - collapsing anyway")); lf[800]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023unterminated string")); lf[801]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[802]=C_decode_literal(C_heaptop,C_text("\376B\000\000\077undefined escape sequence in string - probably forgot backslash")); lf[803]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023, starting in line ")); lf[804]=C_h_intern(&lf[804],9, C_text("list-info")); lf[805]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030list-terminator mismatch")); lf[806]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021unterminated list")); lf[807]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027missing list terminator")); lf[808]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022invalid use of `.\047")); lf[809]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002.:")); lf[810]=C_h_intern_kw(&lf[810],6, C_text("suffix")); lf[811]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[812]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[813]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015missing token")); lf[814]=C_h_intern(&lf[814],18, C_text("##sys#list->vector")); lf[815]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025invalid vector syntax")); lf[816]=C_h_intern(&lf[816],11, C_text("symbol-info")); lf[817]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[818]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022invalid use of `.\047")); lf[819]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042unexpected prefix in number syntax")); lf[820]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025illegal number syntax")); lf[821]=C_decode_literal(C_heaptop,C_text("\376B\000\000!unexpected end of numeric literal")); lf[822]=C_decode_literal(C_heaptop,C_text("\376B\000\0000illegal number syntax - invalid exactness prefix")); lf[823]=C_decode_literal(C_heaptop,C_text("\376B\000\000!unexpected end of numeric literal")); lf[824]=C_decode_literal(C_heaptop,C_text("\376B\000\000%illegal number syntax - invalid radix")); lf[825]=C_decode_literal(C_heaptop,C_text("\376B\000\000Eattempt to read expression from something that looks like binary data")); lf[826]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052escaped symbol syntax spans multiple lines")); lf[827]=C_h_intern_kw(&lf[827],6, C_text("prefix")); lf[828]=C_decode_literal(C_heaptop,C_text("\376B\000\0006unexpected end of file while reading escaped character")); lf[829]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027unknown named character")); lf[830]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032unterminated block-comment")); lf[831]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002##")); lf[832]=C_h_intern(&lf[832],5, C_text("quote")); lf[833]=C_h_intern(&lf[833],10, C_text("quasiquote")); lf[834]=C_h_intern(&lf[834],16, C_text("unquote-splicing")); lf[835]=C_h_intern(&lf[835],7, C_text("unquote")); lf[836]=C_decode_literal(C_heaptop,C_text("\376B\000\000,unexpected end of input after reading #-sign")); lf[837]=C_decode_literal(C_heaptop,C_text("\376B\000\000%unexpected end of input after reading")); lf[838]=C_decode_literal(C_heaptop,C_text("\376B\000\000!invalid parameterized read syntax")); lf[839]=C_decode_literal(C_heaptop,C_text("\376B\000\0006unexpected end of input while reading `#c...\047 sequence")); lf[840]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052invalid case specifier in `#c...\047 sequence")); lf[841]=C_h_intern(&lf[841],11, C_text("quasisyntax")); lf[842]=C_h_intern(&lf[842],29, C_text("##sys#read-bytevector-literal")); lf[843]=C_h_intern(&lf[843],8, C_text("location")); lf[844]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015empty keyword")); lf[845]=C_h_intern(&lf[845],11, C_text("cond-expand")); lf[846]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001else\376\377\016")); lf[847]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003eof")); lf[848]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010optional")); lf[849]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004rest")); lf[850]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003key")); lf[851]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002#!")); lf[852]=C_h_intern(&lf[852],16, C_text("##sys#read-marks")); lf[853]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022invalid `#!\047 token")); lf[854]=C_h_intern(&lf[854],20, C_text("##sys#user-read-hook")); lf[855]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000[\376\003\000\000\002\376\377\012\000\000]\376\003\000\000\002\376\377\012\000\000{\376\003\000\000\002\376\377\012\000\000}\376\377\016")); lf[856]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000|\376\377\016")); lf[857]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035UTF-8 codepoint out of range:")); lf[858]=C_decode_literal(C_heaptop,C_text("\376B\000\000 invalid hex-code in blob-literal")); lf[859]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036unexpected end of blob literal")); lf[860]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036invalid sharp-sign read syntax")); lf[861]=C_h_intern(&lf[861],18, C_text("##sys#write-char-0")); lf[862]=C_h_intern(&lf[862],21, C_text("##sys#write-char/port")); lf[863]=C_h_intern(&lf[863],10, C_text("write-char")); lf[864]=C_h_intern(&lf[864],5, C_text("write")); lf[865]=C_h_intern(&lf[865],11, C_text("##sys#print")); lf[866]=C_h_intern(&lf[866],7, C_text("display")); lf[867]=C_h_intern(&lf[867],5, C_text("print")); lf[869]=C_h_intern(&lf[869],24, C_text("##sys#print-length-limit")); lf[871]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003...")); lf[872]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003...")); lf[873]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\134x")); lf[874]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000(\376\003\000\000\002\376\377\012\000\000)\376\003\000\000\002\376\377\012\000\000,\376\003\000\000\002\376\377\012\000\000[\376\003\000\000\002\376\377\012\000\000]\376\003\000\000\002\376\377\012\000\000{\376\003\000\000\002\376\377\012\000\000}\376\003\000" "\000\002\376\377\012\000\000\047\376\003\000\000\002\376\377\012\000\000\042\376\003\000\000\002\376\377\012\000\000;\376\003\000\000\002\376\377\012\000\000 \376\003\000\000\002\376\377\012\000\000`\376\003\000\000\002\376\377\012\000\000|\376\003\000\000\002\376\377\012\000\000\134\376\377\016")); lf[875]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\006#!rest\376\003\000\000\002\376B\000\000\005#!key\376\003\000\000\002\376B\000\000\012#!optional\376\377\016")); lf[876]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002()")); lf[877]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002#t")); lf[878]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002#f")); lf[879]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005#!eof")); lf[880]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016#<unspecified>")); lf[881]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002#\134")); lf[882]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020#<unbound value>")); lf[883]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033#<invalid immediate object>")); lf[884]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033#<invalid forwarded object>")); lf[885]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002#:")); lf[886]=C_h_intern(&lf[886],21, C_text("##sys#pointer->string")); lf[887]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\134\042")); lf[888]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\134\134")); lf[889]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 . ")); lf[890]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003#${")); lf[891]=C_h_intern(&lf[891],21, C_text("##sys#user-print-hook")); lf[892]=C_h_intern(&lf[892],23, C_text("##sys#procedure->string")); lf[893]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013#<locative>")); lf[894]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016#<lambda info ")); lf[895]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\042>")); lf[896]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016#<input port \042")); lf[897]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017#<output port \042")); lf[898]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010#<port \042")); lf[899]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003#()")); lf[900]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002#(")); lf[901]=C_decode_literal(C_heaptop,C_text("\376B\000\000,unprintable non-immediate object encountered")); lf[902]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014#<procedure ")); lf[903]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001>")); lf[904]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014#<procedure>")); lf[905]=C_h_intern(&lf[905],21, C_text("##sys#record-printers")); lf[906]=C_h_intern(&lf[906],29, C_text("##sys#register-record-printer")); lf[907]=C_h_intern(&lf[907],9, C_text("condition")); lf[908]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\007\001message")); lf[909]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\047: ")); lf[910]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\047>")); lf[911]=C_decode_literal(C_heaptop,C_text("\376B\000\000##<Error in printer of record type `")); lf[912]=C_h_intern(&lf[912],40, C_text("chicken.condition#with-exception-handler")); lf[913]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[914]=C_h_intern(&lf[914],6, C_text("thread")); lf[915]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[916]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002#<")); lf[917]=C_h_intern(&lf[917],29, C_text("##sys#with-print-length-limit")); lf[918]=C_h_intern(&lf[918],16, C_text("##sys#copy-bytes")); lf[919]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022string buffer full")); lf[920]=C_h_intern(&lf[920],22, C_text("##sys#scan-buffer-line")); lf[921]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[922]=C_h_intern(&lf[922],23, C_text("##sys#string-port-class")); lf[923]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\015")); lf[924]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\015")); lf[925]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[926]=C_h_intern(&lf[926],17, C_text("open-input-string")); lf[927]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(string)")); lf[928]=C_h_intern(&lf[928],6, C_text("string")); lf[929]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(string)")); lf[930]=C_h_intern(&lf[930],17, C_text("get-output-string")); lf[931]=C_decode_literal(C_heaptop,C_text("\376B\000\000$argument is not a string-output-port")); lf[932]=C_h_intern(&lf[932],21, C_text("##sys#print-to-string")); lf[933]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021#<tagged pointer ")); lf[934]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[935]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001>")); lf[936]=C_h_intern(&lf[936],22, C_text("##sys#pointer->address")); lf[937]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014#<pointer 0x")); lf[938]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001>")); lf[939]=C_h_intern(&lf[939],20, C_text("##sys#current-thread")); lf[940]=C_h_intern(&lf[940],27, C_text("##sys#peek-nonnull-c-string")); lf[941]=C_h_intern(&lf[941],29, C_text("##sys#really-print-call-chain")); lf[942]=C_h_intern(&lf[942],9, C_text("frameinfo")); lf[943]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002] ")); lf[944]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\011 ")); lf[945]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\012\011")); lf[946]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005\011<--\012")); lf[947]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020\012\011Call history:\012")); lf[948]=C_h_intern(&lf[948],16, C_text("print-call-chain")); lf[949]=C_h_intern(&lf[949],25, C_text("##sys#user-interrupt-hook")); lf[950]=C_h_intern_kw(&lf[950],14, C_text("user-interrupt")); lf[951]=C_h_intern(&lf[951],23, C_text("##sys#primordial-thread")); lf[954]=C_h_intern(&lf[954],22, C_text("##sys#force-finalizers")); lf[955]=C_h_intern(&lf[955],27, C_text("chicken.gc#force-finalizers")); lf[956]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036[debug] forcing finalizers...\012")); lf[957]=C_h_intern(&lf[957],21, C_text("##sys#dump-heap-state")); lf[958]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[959]=C_h_intern(&lf[959],19, C_text("##sys#reset-handler")); lf[960]=C_h_intern(&lf[960],18, C_text("chicken.condition#")); lf[961]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001user-interrupt\376\377\016")); lf[962]=C_h_intern(&lf[962],23, C_text("chicken.condition#abort")); lf[963]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[964]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012\012Warning: ")); lf[965]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007\012Note: ")); lf[966]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\007\001message")); lf[967]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\011\001arguments")); lf[968]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\012\001call-chain")); lf[969]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\010\001location")); lf[970]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\004\001type\376\377\016")); lf[971]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\006\001syntax\376\377\016")); lf[972]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\006\001bounds\376\377\016")); lf[973]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\012\001arithmetic\376\377\016")); lf[974]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\003\001i/o\376\003\000\000\002\376\001\000\000\004\001file\376\377\016")); lf[975]=C_h_intern_kw(&lf[975],13, C_text("runtime-error")); lf[976]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\007\001runtime\376\377\016")); lf[977]=C_h_intern_kw(&lf[977],13, C_text("process-error")); lf[978]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\007\001process\376\377\016")); lf[979]=C_h_intern_kw(&lf[979],13, C_text("network-error")); lf[980]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\003\001i/o\376\003\000\000\002\376\001\000\000\003\001net\376\377\016")); lf[981]=C_h_intern_kw(&lf[981],21, C_text("network-timeout-error")); lf[982]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\003\001i/o\376\003\000\000\002\376\001\000\000\003\001net\376\003\000\000\002\376\001\000\000\007\001timeout\376\377\016")); lf[983]=C_h_intern_kw(&lf[983],11, C_text("limit-error")); lf[984]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\007\001runtime\376\003\000\000\002\376\001\000\000\005\001limit\376\377\016")); lf[985]=C_h_intern_kw(&lf[985],11, C_text("arity-error")); lf[986]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\005\001arity\376\377\016")); lf[987]=C_h_intern_kw(&lf[987],12, C_text("access-error")); lf[988]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\006\001access\376\377\016")); lf[989]=C_h_intern_kw(&lf[989],12, C_text("domain-error")); lf[990]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\006\001domain\376\377\016")); lf[991]=C_h_intern_kw(&lf[991],12, C_text("memory-error")); lf[992]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\006\001memory\376\377\016")); lf[993]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\377\016")); lf[994]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\007\001message")); lf[995]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032exception handler returned")); lf[996]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\011\001arguments")); lf[997]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\010\001location")); lf[998]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\377\016")); lf[999]=C_h_intern(&lf[999],31, C_text("##sys#current-exception-handler")); lf[1000]=C_h_intern(&lf[1000],24, C_text("chicken.condition#signal")); lf[1001]=C_h_intern(&lf[1001],20, C_text("##sys#break-on-error")); lf[1002]=C_h_intern(&lf[1002],19, C_text("##sys#error-handler")); lf[1003]=C_h_intern(&lf[1003],20, C_text("##sys#last-exception")); lf[1004]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001uncaught-exception\376\001\000\000\006\001reason")); lf[1005]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001uncaught-exception\376\377\016")); lf[1006]=C_h_intern(&lf[1006],3, C_text("exn")); lf[1007]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\007\001message")); lf[1008]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\011\001arguments")); lf[1009]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\010\001location")); lf[1010]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[1011]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002) ")); lf[1012]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[1013]=C_decode_literal(C_heaptop,C_text("\376B\000\000 <exn: has no `message\047 property>")); lf[1014]=C_h_intern(&lf[1014],14, C_text("user-interrupt")); lf[1015]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030\012\052\052\052 user interrupt \052\052\052\012")); lf[1016]=C_h_intern(&lf[1016],18, C_text("uncaught-exception")); lf[1017]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001uncaught-exception\376\001\000\000\006\001reason")); lf[1018]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022uncaught exception")); lf[1019]=C_h_intern(&lf[1019],43, C_text("chicken.condition#current-exception-handler")); lf[1020]=C_h_intern(&lf[1020],25, C_text("current-exception-handler")); lf[1022]=C_decode_literal(C_heaptop,C_text("\376B\000\000%argument is not an even property list")); lf[1023]=C_h_intern(&lf[1023],41, C_text("chicken.condition#make-property-condition")); lf[1024]=C_h_intern(&lf[1024],23, C_text("make-property-condition")); lf[1025]=C_h_intern(&lf[1025],42, C_text("chicken.condition#make-composite-condition")); lf[1026]=C_h_intern(&lf[1026],24, C_text("make-composite-condition")); lf[1027]=C_h_intern(&lf[1027],27, C_text("chicken.condition#condition")); lf[1028]=C_h_intern(&lf[1028],28, C_text("chicken.condition#condition\077")); lf[1029]=C_h_intern(&lf[1029],33, C_text("chicken.condition#condition->list")); lf[1030]=C_h_intern(&lf[1030],15, C_text("condition->list")); lf[1031]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042argument is not a condition object")); lf[1032]=C_h_intern(&lf[1032],37, C_text("chicken.condition#condition-predicate")); lf[1033]=C_h_intern(&lf[1033],45, C_text("chicken.condition#condition-property-accessor")); lf[1034]=C_h_intern(&lf[1034],27, C_text("condition-property-accessor")); lf[1035]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036condition has no such property")); lf[1036]=C_h_intern(&lf[1036],40, C_text("chicken.condition#get-condition-property")); lf[1037]=C_h_intern(&lf[1037],37, C_text("chicken.condition#print-error-message")); lf[1038]=C_h_intern(&lf[1038],19, C_text("print-error-message")); lf[1039]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[1040]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[1041]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002) ")); lf[1042]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[1043]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001user-interrupt\376\377\016")); lf[1044]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030: \052\052\052 user interrupt \052\052\052")); lf[1045]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016: <condition> ")); lf[1046]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[1047]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026: uncaught exception: ")); lf[1048]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005Error")); lf[1049]=C_h_intern(&lf[1049],28, C_text("##sys#show-exception-warning")); lf[1050]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[1051]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 (")); lf[1052]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007Warning")); lf[1053]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036bad argument count - received ")); lf[1054]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016 but expected ")); lf[1055]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035too few arguments - received ")); lf[1056]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016 but expected ")); lf[1057]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021bad argument type")); lf[1058]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020unbound variable")); lf[1059]=C_decode_literal(C_heaptop,C_text("\376B\000\000!bad argument type - not a keyword")); lf[1060]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015out of memory")); lf[1061]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020division by zero")); lf[1062]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014out of range")); lf[1063]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025call of non-procedure")); lf[1064]=C_decode_literal(C_heaptop,C_text("\376B\000\000+continuation cannot receive multiple values")); lf[1065]=C_decode_literal(C_heaptop,C_text("\376B\000\000)bad argument type - not a non-cyclic list")); lf[1066]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022recursion too deep")); lf[1067]=C_decode_literal(C_heaptop,C_text("\376B\000\0007inexact number cannot be represented as an exact number")); lf[1068]=C_decode_literal(C_heaptop,C_text("\376B\000\000%bad argument type - not a proper list")); lf[1069]=C_decode_literal(C_heaptop,C_text("\376B\000\000 bad argument type - not a fixnum")); lf[1070]=C_decode_literal(C_heaptop,C_text("\376B\000\000 bad argument type - not a number")); lf[1071]=C_decode_literal(C_heaptop,C_text("\376B\000\000 bad argument type - not a string")); lf[1072]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036bad argument type - not a pair")); lf[1073]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036bad argument type - not a list")); lf[1074]=C_decode_literal(C_heaptop,C_text("\376B\000\000#bad argument type - not a character")); lf[1075]=C_decode_literal(C_heaptop,C_text("\376B\000\000 bad argument type - not a vector")); lf[1076]=C_decode_literal(C_heaptop,C_text("\376B\000\000 bad argument type - not a symbol")); lf[1077]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016stack overflow")); lf[1078]=C_decode_literal(C_heaptop,C_text("\376B\000\0008bad argument type - not a structure of the required type")); lf[1079]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036bad argument type - not a blob")); lf[1080]=C_decode_literal(C_heaptop,C_text("\376B\000\000#locative refers to reclaimed object")); lf[1081]=C_decode_literal(C_heaptop,C_text("\376B\000\000-bad argument type - not a non-immediate value")); lf[1082]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047bad argument type - not a number vector")); lf[1083]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042bad argument type - not an integer")); lf[1084]=C_decode_literal(C_heaptop,C_text("\376B\000\000+bad argument type - not an unsigned integer")); lf[1085]=C_decode_literal(C_heaptop,C_text("\376B\000\000!bad argument type - not a pointer")); lf[1086]=C_decode_literal(C_heaptop,C_text("\376B\000\000(bad argument type - not a tagged pointer")); lf[1087]=C_decode_literal(C_heaptop,C_text("\376B\000\000 bad argument type - not a flonum")); lf[1088]=C_decode_literal(C_heaptop,C_text("\376B\000\000#bad argument type - not a procedure")); lf[1089]=C_decode_literal(C_heaptop,C_text("\376B\000\000 bad argument type - invalid base")); lf[1090]=C_decode_literal(C_heaptop,C_text("\376B\000\000/recursion too deep or circular data encountered")); lf[1091]=C_decode_literal(C_heaptop,C_text("\376B\000\000!bad argument type - not a boolean")); lf[1092]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042bad argument type - not a locative")); lf[1093]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036bad argument type - not a port")); lf[1094]=C_decode_literal(C_heaptop,C_text("\376B\000\0002bad argument type - not a port of the correct type")); lf[1095]=C_decode_literal(C_heaptop,C_text("\376B\000\000%bad argument type - not an input-port")); lf[1096]=C_decode_literal(C_heaptop,C_text("\376B\000\000&bad argument type - not an output-port")); lf[1097]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023port already closed")); lf[1098]=C_decode_literal(C_heaptop,C_text("\376B\000\0002cannot represent string with NUL bytes as C string")); lf[1099]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026segmentation violation")); lf[1100]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030floating-point exception")); lf[1101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023illegal instruction")); lf[1102]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011bus error")); lf[1103]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047bad argument type - not an exact number")); lf[1104]=C_decode_literal(C_heaptop,C_text("\376B\000\000)bad argument type - not an inexact number")); lf[1105]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036bad argument type - not a real")); lf[1106]=C_decode_literal(C_heaptop,C_text("\376B\000\0002bad argument type - complex number has no ordering")); lf[1107]=C_decode_literal(C_heaptop,C_text("\376B\000\000(bad argument type - not an exact integer")); lf[1108]=C_decode_literal(C_heaptop,C_text("\376B\000\000#number does not fit in foreign type")); lf[1109]=C_decode_literal(C_heaptop,C_text("\376B\000\000/cannot compute absolute value of complex number")); lf[1110]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026unknown internal error")); lf[1111]=C_h_intern(&lf[1111],16, C_text("##sys#structure\077")); lf[1112]=C_h_intern(&lf[1112],24, C_text("##sys#generic-structure\077")); lf[1113]=C_h_intern(&lf[1113],10, C_text("##sys#slot")); lf[1114]=C_h_intern(&lf[1114],10, C_text("##sys#size")); lf[1115]=C_h_intern(&lf[1115],18, C_text("##sys#make-pointer")); lf[1116]=C_h_intern(&lf[1116],25, C_text("##sys#make-tagged-pointer")); lf[1117]=C_h_intern(&lf[1117],14, C_text("##sys#pointer\077")); lf[1118]=C_h_intern(&lf[1118],26, C_text("##sys#set-pointer-address!")); lf[1119]=C_h_intern(&lf[1119],17, C_text("##sys#bytevector\077")); lf[1120]=C_h_intern(&lf[1120],25, C_text("##sys#string->pbytevector")); lf[1121]=C_h_intern(&lf[1121],16, C_text("##sys#permanent\077")); lf[1122]=C_h_intern(&lf[1122],19, C_text("##sys#block-address")); lf[1123]=C_h_intern(&lf[1123],15, C_text("##sys#locative\077")); lf[1124]=C_h_intern(&lf[1124],20, C_text("##sys#srfi-4-vector\077")); lf[1125]=C_h_intern(&lf[1125],18, C_text("##sys#null-pointer")); lf[1126]=C_h_intern(&lf[1126],19, C_text("##sys#null-pointer\077")); lf[1127]=C_h_intern(&lf[1127],22, C_text("##sys#address->pointer")); lf[1128]=C_h_intern(&lf[1128],25, C_text("##sys#peek-signed-integer")); lf[1129]=C_h_intern(&lf[1129],17, C_text("##sys#peek-fixnum")); lf[1130]=C_h_intern(&lf[1130],15, C_text("##sys#peek-byte")); lf[1131]=C_h_intern(&lf[1131],24, C_text("##sys#vector->structure!")); lf[1132]=C_h_intern(&lf[1132],17, C_text("##sys#peek-double")); lf[1133]=C_h_intern(&lf[1133],28, C_text("##sys#peek-and-free-c-string")); lf[1134]=C_h_intern(&lf[1134],36, C_text("##sys#peek-and-free-nonnull-c-string")); lf[1135]=C_h_intern(&lf[1135],19, C_text("##sys#poke-c-string")); lf[1136]=C_h_intern(&lf[1136],18, C_text("##sys#poke-integer")); lf[1137]=C_h_intern(&lf[1137],17, C_text("##sys#poke-double")); lf[1138]=C_h_intern(&lf[1138],24, C_text("##sys#peek-c-string-list")); lf[1139]=C_h_intern(&lf[1139],33, C_text("##sys#peek-and-free-c-string-list")); lf[1140]=C_h_intern(&lf[1140],22, C_text("##sys#vector->closure!")); lf[1141]=C_h_intern(&lf[1141],34, C_text("##sys#symbol-has-toplevel-binding\077")); lf[1142]=C_h_intern(&lf[1142],16, C_text("##sys#copy-words")); lf[1143]=C_h_intern(&lf[1143],19, C_text("##sys#compare-bytes")); lf[1144]=C_h_intern(&lf[1144],19, C_text("##sys#block-pointer")); lf[1145]=C_h_intern(&lf[1145],27, C_text("##sys#foreign-char-argument")); lf[1146]=C_h_intern(&lf[1146],29, C_text("##sys#foreign-fixnum-argument")); lf[1147]=C_h_intern(&lf[1147],29, C_text("##sys#foreign-flonum-argument")); lf[1148]=C_h_intern(&lf[1148],28, C_text("##sys#foreign-block-argument")); lf[1149]=C_h_intern(&lf[1149],37, C_text("##sys#foreign-struct-wrapper-argument")); lf[1150]=C_h_intern(&lf[1150],29, C_text("##sys#foreign-string-argument")); lf[1151]=C_h_intern(&lf[1151],29, C_text("##sys#foreign-symbol-argument")); lf[1152]=C_h_intern(&lf[1152],30, C_text("##sys#foreign-pointer-argument")); lf[1153]=C_h_intern(&lf[1153],37, C_text("##sys#foreign-tagged-pointer-argument")); lf[1154]=C_h_intern(&lf[1154],37, C_text("##sys#foreign-ranged-integer-argument")); lf[1155]=C_h_intern(&lf[1155],46, C_text("##sys#foreign-unsigned-ranged-integer-argument")); lf[1156]=C_h_intern(&lf[1156],28, C_text("##sys#default-thread-quantum")); lf[1157]=C_h_intern(&lf[1157],31, C_text("##sys#default-exception-handler")); lf[1158]=C_decode_literal(C_heaptop,C_text("\376B\000\000>internal error: default exception handler shouldn\047t be called!")); lf[1159]=C_h_intern(&lf[1159],17, C_text("##sys#make-thread")); lf[1160]=C_h_intern(&lf[1160],16, C_text("##sys#make-mutex")); lf[1161]=C_h_intern(&lf[1161],5, C_text("mutex")); lf[1162]=C_h_intern(&lf[1162],14, C_text("##sys#schedule")); lf[1163]=C_h_intern(&lf[1163],19, C_text("##sys#thread-yield!")); lf[1164]=C_h_intern(&lf[1164],24, C_text("##sys#kill-other-threads")); lf[1165]=C_h_intern(&lf[1165],23, C_text("chicken.base#sleep-hook")); lf[1166]=C_h_intern(&lf[1166],5, C_text("sleep")); lf[1167]=C_h_intern(&lf[1167],20, C_text("##sys#context-switch")); lf[1168]=C_h_intern(&lf[1168],19, C_text("##sys#signal-vector")); lf[1169]=C_h_intern(&lf[1169],20, C_text("##sys#interrupt-hook")); lf[1170]=C_h_intern(&lf[1170],24, C_text("##sys#pending-finalizers")); lf[1171]=C_h_intern(&lf[1171],28, C_text("##sys#run-pending-finalizers")); lf[1172]=C_h_intern(&lf[1172],11, C_text("##sys#errno")); lf[1173]=C_decode_literal(C_heaptop,C_text("\376B\000\000Lunexpected end of file - unterminated `#{...}\047 item in `here\047 string litera" "l")); lf[1174]=C_decode_literal(C_heaptop,C_text("\376B\000\000&unterminated here-doc string literal `")); lf[1175]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\047")); lf[1176]=C_decode_literal(C_heaptop,C_text("\376B\000\000$Missing tag after #<< here-doc token")); lf[1177]=C_decode_literal(C_heaptop,C_text("\376B\000\000!Whitespace after #<< here-doc tag")); lf[1178]=C_h_intern(&lf[1178],4, C_text("cons")); lf[1179]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001quote\376\003\000\000\002\376\377\016\376\377\016")); lf[1180]=C_decode_literal(C_heaptop,C_text("\376B\000\000$Missing tag after #<# here-doc token")); lf[1181]=C_decode_literal(C_heaptop,C_text("\376B\000\000!Whitespace after #<# here-doc tag")); lf[1182]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021unreadable object")); lf[1183]=C_h_intern(&lf[1183],24, C_text("chicken.process-context#")); lf[1184]=C_h_intern(&lf[1184],40, C_text("chicken.process-context#change-directory")); lf[1185]=C_h_intern(&lf[1185],16, C_text("change-directory")); lf[1186]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042cannot change current directory - ")); lf[1187]=C_h_intern(&lf[1187],27, C_text("##sys#change-directory-hook")); lf[1188]=C_h_intern(&lf[1188],41, C_text("chicken.process-context#current-directory")); lf[1189]=C_h_intern(&lf[1189],48, C_text("chicken.process-context#get-environment-variable")); lf[1190]=C_h_intern(&lf[1190],49, C_text("chicken.process-context#set-environment-variable!")); lf[1191]=C_h_intern(&lf[1191],25, C_text("set-environment-variable!")); lf[1192]=C_h_intern(&lf[1192],51, C_text("chicken.process-context#unset-environment-variable!")); lf[1193]=C_h_intern(&lf[1193],27, C_text("unset-environment-variable!")); lf[1194]=C_h_intern(&lf[1194],49, C_text("chicken.process-context#get-environment-variables")); lf[1195]=C_h_intern(&lf[1195],43, C_text("chicken.process-context#executable-pathname")); lf[1196]=C_h_intern(&lf[1196],33, C_text("chicken.process-context#argc+argv")); lf[1197]=C_h_intern(&lf[1197],28, C_text("chicken.process-context#argv")); lf[1198]=C_h_intern(&lf[1198],36, C_text("chicken.process-context#program-name")); lf[1199]=C_h_intern(&lf[1199],46, C_text("chicken.process-context#command-line-arguments")); lf[1200]=C_h_intern(&lf[1200],11, C_text("chicken.gc#")); lf[1201]=C_h_intern(&lf[1201],34, C_text("chicken.gc#current-gc-milliseconds")); lf[1202]=C_h_intern(&lf[1202],25, C_text("chicken.gc#set-gc-report!")); lf[1203]=C_h_intern(&lf[1203],28, C_text("chicken.gc#memory-statistics")); lf[1204]=C_h_intern(&lf[1204],20, C_text("##sys#set-finalizer!")); lf[1205]=C_h_intern(&lf[1205],25, C_text("chicken.gc#set-finalizer!")); lf[1206]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035[debug] too many finalizers (")); lf[1207]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035), resized max finalizers to ")); lf[1208]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[1209]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035[debug] too many finalizers (")); lf[1210]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017), forcing ...\012")); lf[1211]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014in finalizer")); lf[1212]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020[debug] running ")); lf[1213]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017 finalizer(s) (")); lf[1214]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007 live, ")); lf[1215]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020 allocated) ...\012")); lf[1216]=C_h_intern(&lf[1216],13, C_text("chicken.gc#gc")); lf[1217]=C_h_intern(&lf[1217],12, C_text("##sys#length")); lf[1218]=C_h_intern(&lf[1218],10, C_text("##sys#cons")); lf[1219]=C_h_intern(&lf[1219],12, C_text("##sys#vector")); lf[1220]=C_h_intern(&lf[1220],11, C_text("##sys#apply")); lf[1221]=C_h_intern(&lf[1221],12, C_text("##sys#values")); lf[1222]=C_h_intern(&lf[1222],12, C_text("##sys#equal\077")); lf[1223]=C_h_intern(&lf[1223],9, C_text("##sys#car")); lf[1224]=C_h_intern(&lf[1224],9, C_text("##sys#cdr")); lf[1225]=C_h_intern(&lf[1225],11, C_text("##sys#pair\077")); lf[1226]=C_h_intern(&lf[1226],13, C_text("##sys#vector\077")); lf[1227]=C_h_intern(&lf[1227],18, C_text("##sys#vector->list")); lf[1228]=C_h_intern(&lf[1228],19, C_text("##sys#vector-length")); lf[1229]=C_h_intern(&lf[1229],16, C_text("##sys#vector-ref")); lf[1230]=C_h_intern(&lf[1230],8, C_text("##sys#>=")); lf[1231]=C_h_intern(&lf[1231],7, C_text("##sys#=")); lf[1232]=C_h_intern(&lf[1232],7, C_text("##sys#+")); lf[1233]=C_h_intern(&lf[1233],9, C_text("##sys#eq\077")); lf[1234]=C_h_intern(&lf[1234],10, C_text("##sys#eqv\077")); lf[1235]=C_h_intern(&lf[1235],11, C_text("##sys#list\077")); lf[1236]=C_h_intern(&lf[1236],11, C_text("##sys#null\077")); lf[1237]=C_h_intern(&lf[1237],11, C_text("##sys#map-n")); lf[1238]=C_h_intern(&lf[1238],19, C_text("##sys#make-locative")); lf[1239]=C_decode_literal(C_heaptop,C_text("\376B\000\000)locative cannot refer to immediate object")); lf[1240]=C_h_intern(&lf[1240],8, C_text("u8vector")); lf[1241]=C_h_intern(&lf[1241],8, C_text("s8vector")); lf[1242]=C_h_intern(&lf[1242],9, C_text("u16vector")); lf[1243]=C_h_intern(&lf[1243],9, C_text("s16vector")); lf[1244]=C_h_intern(&lf[1244],9, C_text("u32vector")); lf[1245]=C_h_intern(&lf[1245],9, C_text("s32vector")); lf[1246]=C_h_intern(&lf[1246],9, C_text("u64vector")); lf[1247]=C_h_intern(&lf[1247],9, C_text("s64vector")); lf[1248]=C_h_intern(&lf[1248],9, C_text("f32vector")); lf[1249]=C_h_intern(&lf[1249],9, C_text("f64vector")); lf[1250]=C_decode_literal(C_heaptop,C_text("\376B\000\000Abad argument type - locative cannot refer to objects of this type")); lf[1251]=C_h_intern(&lf[1251],14, C_text("chicken.plist#")); lf[1252]=C_h_intern(&lf[1252],18, C_text("chicken.plist#put!")); lf[1253]=C_h_intern(&lf[1253],4, C_text("put!")); lf[1254]=C_h_intern(&lf[1254],17, C_text("chicken.plist#get")); lf[1255]=C_h_intern(&lf[1255],3, C_text("get")); lf[1256]=C_h_intern(&lf[1256],10, C_text("##sys#put!")); lf[1257]=C_h_intern(&lf[1257],9, C_text("##sys#get")); lf[1258]=C_h_intern(&lf[1258],22, C_text("chicken.plist#remprop!")); lf[1259]=C_h_intern(&lf[1259],8, C_text("remprop!")); lf[1260]=C_h_intern(&lf[1260],26, C_text("chicken.plist#symbol-plist")); lf[1261]=C_h_intern(&lf[1261],28, C_text("chicken.plist#get-properties")); lf[1262]=C_h_intern(&lf[1262],14, C_text("get-properties")); lf[1263]=C_h_intern(&lf[1263],19, C_text("##sys#display-times")); lf[1264]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0010")); lf[1265]=C_decode_literal(C_heaptop,C_text("\376U10.0\000")); lf[1266]=C_decode_literal(C_heaptop,C_text("\376\302\000\000\01040000000")); lf[1267]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 GiB")); lf[1268]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 MiB")); lf[1269]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 KiB")); lf[1270]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 bytes")); lf[1271]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025, maximum live heap: ")); lf[1272]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022 GCs (major/minor)")); lf[1273]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[1274]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032 mutations (total/tracked)")); lf[1275]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[1276]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021s GC time (major)")); lf[1277]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002, ")); lf[1278]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012s CPU time")); lf[1279]=C_h_intern(&lf[1279],25, C_text("##sys#filter-heap-objects")); lf[1280]=C_h_intern(&lf[1280],17, C_text("chicken.platform#")); lf[1281]=C_h_intern(&lf[1281],30, C_text("chicken.platform#software-type")); lf[1282]=C_h_intern(&lf[1282],29, C_text("chicken.platform#machine-type")); lf[1283]=C_h_intern(&lf[1283],35, C_text("chicken.platform#machine-byte-order")); lf[1284]=C_h_intern(&lf[1284],33, C_text("chicken.platform#software-version")); lf[1285]=C_h_intern(&lf[1285],31, C_text("chicken.platform#build-platform")); lf[1286]=C_h_intern(&lf[1286],22, C_text("##sys#windows-platform")); lf[1287]=C_h_intern(&lf[1287],32, C_text("chicken.platform#chicken-version")); lf[1288]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010Version ")); lf[1289]=C_h_intern(&lf[1289],19, C_text("##sys#build-version")); lf[1290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[1291]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[1292]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 [")); lf[1293]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 ]")); lf[1294]=C_h_intern(&lf[1294],7, C_text("unknown")); lf[1295]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[1296]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001-")); lf[1297]=C_h_intern(&lf[1297],14, C_text("##sys#build-id")); lf[1298]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 (rev ")); lf[1299]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[1300]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[1301]=C_h_intern(&lf[1301],18, C_text("##sys#build-branch")); lf[1302]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002 (")); lf[1303]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[1304]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[1305]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 64bit")); lf[1306]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[1307]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 dload")); lf[1308]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[1309]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 ptables")); lf[1310]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[1311]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 gchooks")); lf[1312]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[1313]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 cross")); lf[1314]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[1315]=C_h_intern(&lf[1315],25, C_text("chicken.platform#feature\077")); lf[1316]=C_h_intern_kw(&lf[1316],13, C_text("cross-chicken")); lf[1317]=C_h_intern_kw(&lf[1317],7, C_text("gchooks")); lf[1318]=C_h_intern_kw(&lf[1318],7, C_text("ptables")); lf[1319]=C_h_intern_kw(&lf[1319],5, C_text("dload")); lf[1320]=C_h_intern_kw(&lf[1320],5, C_text("64bit")); lf[1321]=C_h_intern(&lf[1321],29, C_text("chicken.platform#chicken-home")); lf[1323]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\006\000\376\377\016")); lf[1324]=C_h_intern(&lf[1324],16, C_text("##sys#split-path")); lf[1325]=C_h_intern(&lf[1325],32, C_text("chicken.platform#repository-path")); lf[1326]=C_h_intern(&lf[1326],40, C_text("chicken.platform#installation-repository")); lf[1328]=C_decode_literal(C_heaptop,C_text("\376B\000\0001bad argument type - not a valid feature identifer")); lf[1329]=C_h_intern(&lf[1329],14, C_text("##sys#features")); lf[1330]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\002chicken\376\003\000\000\002\376\001\000\000\006\002srfi-6\376\003\000\000\002\376\001\000\000\007\002srfi-12\376\003\000\000\002\376\001\000\000\007\002srfi-17\376\003\000\000\002\376\001\000\000" "\007\002srfi-23\376\003\000\000\002\376\001\000\000\007\002srfi-30\376\003\000\000\002\376\001\000\000\007\002srfi-39\376\003\000\000\002\376\001\000\000\007\002srfi-62\376\003\000\000\002\376\001\000\000\022\002full-n" "umeric-tower\376\377\016")); lf[1331]=C_h_intern(&lf[1331],34, C_text("chicken.platform#register-feature!")); lf[1332]=C_h_intern(&lf[1332],36, C_text("chicken.platform#unregister-feature!")); lf[1333]=C_h_intern(&lf[1333],25, C_text("chicken.platform#features")); lf[1334]=C_h_intern(&lf[1334],31, C_text("chicken.platform#return-to-host")); lf[1335]=C_h_intern(&lf[1335],40, C_text("chicken.platform#system-config-directory")); lf[1336]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007APPDATA")); lf[1337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010/.config")); lf[1338]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004HOME")); lf[1339]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017XDG_CONFIG_HOME")); lf[1340]=C_h_intern(&lf[1340],39, C_text("chicken.platform#system-cache-directory")); lf[1341]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007APPDATA")); lf[1342]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014LOCALAPPDATA")); lf[1343]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007/.cache")); lf[1344]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004HOME")); lf[1345]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016XDG_CACHE_HOME")); lf[1346]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010chicken-")); lf[1347]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[1348]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010chicken-")); lf[1349]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032CHICKEN_INSTALL_REPOSITORY")); lf[1350]=C_h_intern(&lf[1350],15, C_text("repository-path")); lf[1351]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027CHICKEN_REPOSITORY_PATH")); lf[1352]=C_h_intern(&lf[1352],7, C_text("windows")); lf[1353]=C_h_intern(&lf[1353],6, C_text("cygwin")); lf[1354]=C_h_intern(&lf[1354],12, C_text("symbol-plist")); lf[1355]=C_h_intern(&lf[1355],19, C_text("symbol-plist/setter")); lf[1356]=C_decode_literal(C_heaptop,C_text("\376B\000\000$property-list must be of even length")); lf[1357]=C_decode_literal(C_heaptop,C_text("\376B\000\000 (chicken.plist#symbol-plist sym)")); lf[1358]=C_h_intern(&lf[1358],22, C_text("command-line-arguments")); lf[1359]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002-:")); lf[1360]=C_h_intern(&lf[1360],12, C_text("program-name")); lf[1361]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011<unknown>")); lf[1362]=C_h_intern(&lf[1362],17, C_text("current-directory")); lf[1363]=C_decode_literal(C_heaptop,C_text("\376B\000\000!cannot retrieve current directory")); lf[1364]=C_decode_literal(C_heaptop,C_text("\376B\000\000+(chicken.process-context#current-directory)")); lf[1365]=C_h_intern(&lf[1365],7, C_text("running")); lf[1366]=C_h_intern(&lf[1366],10, C_text("primordial")); lf[1367]=C_h_intern(&lf[1367],9, C_text("arguments")); lf[1368]=C_h_intern(&lf[1368],7, C_text("message")); lf[1369]=C_h_intern(&lf[1369],17, C_text("chicken.repl#repl")); lf[1370]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[1371]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: ")); lf[1372]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006\012Error")); lf[1373]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016error in error")); lf[1374]=C_decode_literal(C_heaptop,C_text("\376B\000\000,\042exit\042 called while processing on-exit tasks")); lf[1375]=C_h_intern(&lf[1375],10, C_text("read-table")); lf[1376]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021no setter defined")); lf[1377]=C_decode_literal(C_heaptop,C_text("\376B\000\000#can not set setter of non-procedure")); lf[1378]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(stderr)")); lf[1379]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(stdout)")); lf[1380]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007(stdin)")); lf[1381]=C_h_intern(&lf[1381],9, C_text("backspace")); lf[1382]=C_h_intern(&lf[1382],4, C_text("page")); lf[1383]=C_h_intern(&lf[1383],6, C_text("return")); lf[1384]=C_h_intern(&lf[1384],4, C_text("null")); lf[1385]=C_h_intern(&lf[1385],3, C_text("nul")); lf[1386]=C_h_intern(&lf[1386],5, C_text("alarm")); lf[1387]=C_h_intern(&lf[1387],6, C_text("escape")); lf[1388]=C_h_intern(&lf[1388],3, C_text("esc")); lf[1389]=C_h_intern(&lf[1389],6, C_text("delete")); lf[1390]=C_h_intern(&lf[1390],4, C_text("vtab")); lf[1391]=C_h_intern(&lf[1391],7, C_text("newline")); lf[1392]=C_h_intern(&lf[1392],8, C_text("linefeed")); lf[1393]=C_h_intern(&lf[1393],3, C_text("tab")); lf[1394]=C_h_intern(&lf[1394],5, C_text("space")); C_register_lf2(lf,1395,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8512,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_build_2dversion_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[2110] = { {C_text("f34042:library_2escm"),(void*)f34042}, {C_text("f34566:library_2escm"),(void*)f34566}, {C_text("f36798:library_2escm"),(void*)f36798}, {C_text("f36804:library_2escm"),(void*)f36804}, {C_text("f36810:library_2escm"),(void*)f36810}, {C_text("f_10014:library_2escm"),(void*)f_10014}, {C_text("f_10020:library_2escm"),(void*)f_10020}, {C_text("f_10036:library_2escm"),(void*)f_10036}, {C_text("f_10061:library_2escm"),(void*)f_10061}, {C_text("f_10070:library_2escm"),(void*)f_10070}, {C_text("f_10111:library_2escm"),(void*)f_10111}, {C_text("f_10133:library_2escm"),(void*)f_10133}, {C_text("f_10165:library_2escm"),(void*)f_10165}, {C_text("f_10181:library_2escm"),(void*)f_10181}, {C_text("f_10184:library_2escm"),(void*)f_10184}, {C_text("f_10206:library_2escm"),(void*)f_10206}, {C_text("f_10212:library_2escm"),(void*)f_10212}, {C_text("f_10237:library_2escm"),(void*)f_10237}, {C_text("f_10277:library_2escm"),(void*)f_10277}, {C_text("f_10284:library_2escm"),(void*)f_10284}, {C_text("f_10289:library_2escm"),(void*)f_10289}, {C_text("f_10308:library_2escm"),(void*)f_10308}, {C_text("f_10330:library_2escm"),(void*)f_10330}, {C_text("f_10333:library_2escm"),(void*)f_10333}, {C_text("f_10336:library_2escm"),(void*)f_10336}, {C_text("f_10339:library_2escm"),(void*)f_10339}, {C_text("f_10345:library_2escm"),(void*)f_10345}, {C_text("f_10348:library_2escm"),(void*)f_10348}, {C_text("f_10351:library_2escm"),(void*)f_10351}, {C_text("f_10354:library_2escm"),(void*)f_10354}, {C_text("f_10357:library_2escm"),(void*)f_10357}, {C_text("f_10360:library_2escm"),(void*)f_10360}, {C_text("f_10363:library_2escm"),(void*)f_10363}, {C_text("f_10366:library_2escm"),(void*)f_10366}, {C_text("f_10369:library_2escm"),(void*)f_10369}, {C_text("f_10372:library_2escm"),(void*)f_10372}, {C_text("f_10375:library_2escm"),(void*)f_10375}, {C_text("f_10378:library_2escm"),(void*)f_10378}, {C_text("f_10381:library_2escm"),(void*)f_10381}, {C_text("f_10384:library_2escm"),(void*)f_10384}, {C_text("f_10387:library_2escm"),(void*)f_10387}, {C_text("f_10390:library_2escm"),(void*)f_10390}, {C_text("f_10393:library_2escm"),(void*)f_10393}, {C_text("f_10396:library_2escm"),(void*)f_10396}, {C_text("f_10399:library_2escm"),(void*)f_10399}, {C_text("f_10402:library_2escm"),(void*)f_10402}, {C_text("f_10405:library_2escm"),(void*)f_10405}, {C_text("f_10408:library_2escm"),(void*)f_10408}, {C_text("f_10411:library_2escm"),(void*)f_10411}, {C_text("f_10414:library_2escm"),(void*)f_10414}, {C_text("f_10417:library_2escm"),(void*)f_10417}, {C_text("f_10422:library_2escm"),(void*)f_10422}, {C_text("f_10431:library_2escm"),(void*)f_10431}, {C_text("f_10443:library_2escm"),(void*)f_10443}, {C_text("f_10458:library_2escm"),(void*)f_10458}, {C_text("f_10461:library_2escm"),(void*)f_10461}, {C_text("f_10469:library_2escm"),(void*)f_10469}, {C_text("f_10473:library_2escm"),(void*)f_10473}, {C_text("f_10475:library_2escm"),(void*)f_10475}, {C_text("f_10479:library_2escm"),(void*)f_10479}, {C_text("f_10482:library_2escm"),(void*)f_10482}, {C_text("f_10493:library_2escm"),(void*)f_10493}, {C_text("f_10495:library_2escm"),(void*)f_10495}, {C_text("f_10502:library_2escm"),(void*)f_10502}, {C_text("f_10505:library_2escm"),(void*)f_10505}, {C_text("f_10508:library_2escm"),(void*)f_10508}, {C_text("f_10513:library_2escm"),(void*)f_10513}, {C_text("f_10517:library_2escm"),(void*)f_10517}, {C_text("f_10522:library_2escm"),(void*)f_10522}, {C_text("f_10526:library_2escm"),(void*)f_10526}, {C_text("f_10529:library_2escm"),(void*)f_10529}, {C_text("f_10557:library_2escm"),(void*)f_10557}, {C_text("f_10560:library_2escm"),(void*)f_10560}, {C_text("f_10563:library_2escm"),(void*)f_10563}, {C_text("f_10580:library_2escm"),(void*)f_10580}, {C_text("f_10591:library_2escm"),(void*)f_10591}, {C_text("f_10603:library_2escm"),(void*)f_10603}, {C_text("f_10614:library_2escm"),(void*)f_10614}, {C_text("f_10625:library_2escm"),(void*)f_10625}, {C_text("f_10636:library_2escm"),(void*)f_10636}, {C_text("f_10647:library_2escm"),(void*)f_10647}, {C_text("f_10658:library_2escm"),(void*)f_10658}, {C_text("f_10669:library_2escm"),(void*)f_10669}, {C_text("f_10680:library_2escm"),(void*)f_10680}, {C_text("f_10691:library_2escm"),(void*)f_10691}, {C_text("f_10702:library_2escm"),(void*)f_10702}, {C_text("f_10713:library_2escm"),(void*)f_10713}, {C_text("f_10724:library_2escm"),(void*)f_10724}, {C_text("f_10735:library_2escm"),(void*)f_10735}, {C_text("f_10746:library_2escm"),(void*)f_10746}, {C_text("f_10763:library_2escm"),(void*)f_10763}, {C_text("f_10780:library_2escm"),(void*)f_10780}, {C_text("f_10804:library_2escm"),(void*)f_10804}, {C_text("f_10821:library_2escm"),(void*)f_10821}, {C_text("f_10825:library_2escm"),(void*)f_10825}, {C_text("f_10851:library_2escm"),(void*)f_10851}, {C_text("f_10871:library_2escm"),(void*)f_10871}, {C_text("f_10882:library_2escm"),(void*)f_10882}, {C_text("f_10894:library_2escm"),(void*)f_10894}, {C_text("f_10928:library_2escm"),(void*)f_10928}, {C_text("f_10943:library_2escm"),(void*)f_10943}, {C_text("f_11010:library_2escm"),(void*)f_11010}, {C_text("f_11026:library_2escm"),(void*)f_11026}, {C_text("f_11042:library_2escm"),(void*)f_11042}, {C_text("f_11058:library_2escm"),(void*)f_11058}, {C_text("f_11074:library_2escm"),(void*)f_11074}, {C_text("f_11090:library_2escm"),(void*)f_11090}, {C_text("f_11106:library_2escm"),(void*)f_11106}, {C_text("f_11122:library_2escm"),(void*)f_11122}, {C_text("f_11138:library_2escm"),(void*)f_11138}, {C_text("f_11150:library_2escm"),(void*)f_11150}, {C_text("f_11169:library_2escm"),(void*)f_11169}, {C_text("f_11200:library_2escm"),(void*)f_11200}, {C_text("f_11217:library_2escm"),(void*)f_11217}, {C_text("f_11223:library_2escm"),(void*)f_11223}, {C_text("f_11247:library_2escm"),(void*)f_11247}, {C_text("f_11267:library_2escm"),(void*)f_11267}, {C_text("f_11271:library_2escm"),(void*)f_11271}, {C_text("f_11274:library_2escm"),(void*)f_11274}, {C_text("f_11303:library_2escm"),(void*)f_11303}, {C_text("f_11319:library_2escm"),(void*)f_11319}, {C_text("f_11341:library_2escm"),(void*)f_11341}, {C_text("f_11357:library_2escm"),(void*)f_11357}, {C_text("f_11362:library_2escm"),(void*)f_11362}, {C_text("f_11393:library_2escm"),(void*)f_11393}, {C_text("f_11404:library_2escm"),(void*)f_11404}, {C_text("f_11413:library_2escm"),(void*)f_11413}, {C_text("f_11442:library_2escm"),(void*)f_11442}, {C_text("f_11455:library_2escm"),(void*)f_11455}, {C_text("f_11465:library_2escm"),(void*)f_11465}, {C_text("f_11467:library_2escm"),(void*)f_11467}, {C_text("f_11474:library_2escm"),(void*)f_11474}, {C_text("f_11477:library_2escm"),(void*)f_11477}, {C_text("f_11486:library_2escm"),(void*)f_11486}, {C_text("f_11512:library_2escm"),(void*)f_11512}, {C_text("f_11517:library_2escm"),(void*)f_11517}, {C_text("f_11521:library_2escm"),(void*)f_11521}, {C_text("f_11526:library_2escm"),(void*)f_11526}, {C_text("f_11547:library_2escm"),(void*)f_11547}, {C_text("f_11553:library_2escm"),(void*)f_11553}, {C_text("f_11571:library_2escm"),(void*)f_11571}, {C_text("f_11577:library_2escm"),(void*)f_11577}, {C_text("f_11595:library_2escm"),(void*)f_11595}, {C_text("f_11601:library_2escm"),(void*)f_11601}, {C_text("f_11616:library_2escm"),(void*)f_11616}, {C_text("f_11622:library_2escm"),(void*)f_11622}, {C_text("f_11636:library_2escm"),(void*)f_11636}, {C_text("f_11657:library_2escm"),(void*)f_11657}, {C_text("f_11663:library_2escm"),(void*)f_11663}, {C_text("f_11681:library_2escm"),(void*)f_11681}, {C_text("f_11687:library_2escm"),(void*)f_11687}, {C_text("f_11705:library_2escm"),(void*)f_11705}, {C_text("f_11711:library_2escm"),(void*)f_11711}, {C_text("f_11726:library_2escm"),(void*)f_11726}, {C_text("f_11732:library_2escm"),(void*)f_11732}, {C_text("f_11747:library_2escm"),(void*)f_11747}, {C_text("f_11757:library_2escm"),(void*)f_11757}, {C_text("f_11763:library_2escm"),(void*)f_11763}, {C_text("f_11767:library_2escm"),(void*)f_11767}, {C_text("f_11769:library_2escm"),(void*)f_11769}, {C_text("f_11780:library_2escm"),(void*)f_11780}, {C_text("f_11792:library_2escm"),(void*)f_11792}, {C_text("f_11802:library_2escm"),(void*)f_11802}, {C_text("f_11808:library_2escm"),(void*)f_11808}, {C_text("f_11812:library_2escm"),(void*)f_11812}, {C_text("f_11817:library_2escm"),(void*)f_11817}, {C_text("f_11843:library_2escm"),(void*)f_11843}, {C_text("f_11847:library_2escm"),(void*)f_11847}, {C_text("f_11850:library_2escm"),(void*)f_11850}, {C_text("f_11858:library_2escm"),(void*)f_11858}, {C_text("f_11879:library_2escm"),(void*)f_11879}, {C_text("f_11893:library_2escm"),(void*)f_11893}, {C_text("f_11897:library_2escm"),(void*)f_11897}, {C_text("f_11938:library_2escm"),(void*)f_11938}, {C_text("f_11960:library_2escm"),(void*)f_11960}, {C_text("f_11962:library_2escm"),(void*)f_11962}, {C_text("f_11984:library_2escm"),(void*)f_11984}, {C_text("f_11986:library_2escm"),(void*)f_11986}, {C_text("f_12008:library_2escm"),(void*)f_12008}, {C_text("f_12010:library_2escm"),(void*)f_12010}, {C_text("f_12032:library_2escm"),(void*)f_12032}, {C_text("f_12034:library_2escm"),(void*)f_12034}, {C_text("f_12056:library_2escm"),(void*)f_12056}, {C_text("f_12058:library_2escm"),(void*)f_12058}, {C_text("f_12080:library_2escm"),(void*)f_12080}, {C_text("f_12082:library_2escm"),(void*)f_12082}, {C_text("f_12104:library_2escm"),(void*)f_12104}, {C_text("f_12106:library_2escm"),(void*)f_12106}, {C_text("f_12128:library_2escm"),(void*)f_12128}, {C_text("f_12130:library_2escm"),(void*)f_12130}, {C_text("f_12152:library_2escm"),(void*)f_12152}, {C_text("f_12154:library_2escm"),(void*)f_12154}, {C_text("f_12176:library_2escm"),(void*)f_12176}, {C_text("f_12178:library_2escm"),(void*)f_12178}, {C_text("f_12200:library_2escm"),(void*)f_12200}, {C_text("f_12202:library_2escm"),(void*)f_12202}, {C_text("f_12218:library_2escm"),(void*)f_12218}, {C_text("f_12220:library_2escm"),(void*)f_12220}, {C_text("f_12242:library_2escm"),(void*)f_12242}, {C_text("f_12244:library_2escm"),(void*)f_12244}, {C_text("f_12266:library_2escm"),(void*)f_12266}, {C_text("f_12268:library_2escm"),(void*)f_12268}, {C_text("f_12284:library_2escm"),(void*)f_12284}, {C_text("f_12286:library_2escm"),(void*)f_12286}, {C_text("f_12302:library_2escm"),(void*)f_12302}, {C_text("f_12304:library_2escm"),(void*)f_12304}, {C_text("f_12320:library_2escm"),(void*)f_12320}, {C_text("f_12322:library_2escm"),(void*)f_12322}, {C_text("f_12338:library_2escm"),(void*)f_12338}, {C_text("f_12340:library_2escm"),(void*)f_12340}, {C_text("f_12356:library_2escm"),(void*)f_12356}, {C_text("f_12358:library_2escm"),(void*)f_12358}, {C_text("f_12374:library_2escm"),(void*)f_12374}, {C_text("f_12376:library_2escm"),(void*)f_12376}, {C_text("f_12392:library_2escm"),(void*)f_12392}, {C_text("f_12394:library_2escm"),(void*)f_12394}, {C_text("f_12410:library_2escm"),(void*)f_12410}, {C_text("f_12412:library_2escm"),(void*)f_12412}, {C_text("f_12428:library_2escm"),(void*)f_12428}, {C_text("f_12430:library_2escm"),(void*)f_12430}, {C_text("f_12446:library_2escm"),(void*)f_12446}, {C_text("f_12448:library_2escm"),(void*)f_12448}, {C_text("f_12470:library_2escm"),(void*)f_12470}, {C_text("f_12472:library_2escm"),(void*)f_12472}, {C_text("f_12488:library_2escm"),(void*)f_12488}, {C_text("f_12490:library_2escm"),(void*)f_12490}, {C_text("f_12512:library_2escm"),(void*)f_12512}, {C_text("f_12514:library_2escm"),(void*)f_12514}, {C_text("f_12530:library_2escm"),(void*)f_12530}, {C_text("f_12532:library_2escm"),(void*)f_12532}, {C_text("f_12548:library_2escm"),(void*)f_12548}, {C_text("f_12550:library_2escm"),(void*)f_12550}, {C_text("f_12566:library_2escm"),(void*)f_12566}, {C_text("f_12568:library_2escm"),(void*)f_12568}, {C_text("f_12584:library_2escm"),(void*)f_12584}, {C_text("f_12586:library_2escm"),(void*)f_12586}, {C_text("f_12596:library_2escm"),(void*)f_12596}, {C_text("f_12608:library_2escm"),(void*)f_12608}, {C_text("f_12618:library_2escm"),(void*)f_12618}, {C_text("f_12622:library_2escm"),(void*)f_12622}, {C_text("f_12644:library_2escm"),(void*)f_12644}, {C_text("f_12648:library_2escm"),(void*)f_12648}, {C_text("f_12651:library_2escm"),(void*)f_12651}, {C_text("f_12656:library_2escm"),(void*)f_12656}, {C_text("f_12660:library_2escm"),(void*)f_12660}, {C_text("f_12663:library_2escm"),(void*)f_12663}, {C_text("f_12666:library_2escm"),(void*)f_12666}, {C_text("f_12679:library_2escm"),(void*)f_12679}, {C_text("f_12702:library_2escm"),(void*)f_12702}, {C_text("f_12728:library_2escm"),(void*)f_12728}, {C_text("f_12737:library_2escm"),(void*)f_12737}, {C_text("f_12742:library_2escm"),(void*)f_12742}, {C_text("f_12744:library_2escm"),(void*)f_12744}, {C_text("f_12788:library_2escm"),(void*)f_12788}, {C_text("f_12834:library_2escm"),(void*)f_12834}, {C_text("f_12858:library_2escm"),(void*)f_12858}, {C_text("f_12862:library_2escm"),(void*)f_12862}, {C_text("f_12880:library_2escm"),(void*)f_12880}, {C_text("f_12904:library_2escm"),(void*)f_12904}, {C_text("f_12908:library_2escm"),(void*)f_12908}, {C_text("f_12926:library_2escm"),(void*)f_12926}, {C_text("f_12967:library_2escm"),(void*)f_12967}, {C_text("f_12978:library_2escm"),(void*)f_12978}, {C_text("f_12984:library_2escm"),(void*)f_12984}, {C_text("f_12988:library_2escm"),(void*)f_12988}, {C_text("f_13002:library_2escm"),(void*)f_13002}, {C_text("f_13015:library_2escm"),(void*)f_13015}, {C_text("f_13019:library_2escm"),(void*)f_13019}, {C_text("f_13036:library_2escm"),(void*)f_13036}, {C_text("f_13040:library_2escm"),(void*)f_13040}, {C_text("f_13046:library_2escm"),(void*)f_13046}, {C_text("f_13050:library_2escm"),(void*)f_13050}, {C_text("f_13090:library_2escm"),(void*)f_13090}, {C_text("f_13094:library_2escm"),(void*)f_13094}, {C_text("f_13116:library_2escm"),(void*)f_13116}, {C_text("f_13119:library_2escm"),(void*)f_13119}, {C_text("f_13122:library_2escm"),(void*)f_13122}, {C_text("f_13125:library_2escm"),(void*)f_13125}, {C_text("f_13128:library_2escm"),(void*)f_13128}, {C_text("f_13149:library_2escm"),(void*)f_13149}, {C_text("f_13151:library_2escm"),(void*)f_13151}, {C_text("f_13169:library_2escm"),(void*)f_13169}, {C_text("f_13179:library_2escm"),(void*)f_13179}, {C_text("f_13183:library_2escm"),(void*)f_13183}, {C_text("f_13189:library_2escm"),(void*)f_13189}, {C_text("f_13221:library_2escm"),(void*)f_13221}, {C_text("f_13224:library_2escm"),(void*)f_13224}, {C_text("f_13227:library_2escm"),(void*)f_13227}, {C_text("f_13230:library_2escm"),(void*)f_13230}, {C_text("f_13236:library_2escm"),(void*)f_13236}, {C_text("f_13239:library_2escm"),(void*)f_13239}, {C_text("f_13287:library_2escm"),(void*)f_13287}, {C_text("f_13291:library_2escm"),(void*)f_13291}, {C_text("f_13368:library_2escm"),(void*)f_13368}, {C_text("f_13407:library_2escm"),(void*)f_13407}, {C_text("f_13462:library_2escm"),(void*)f_13462}, {C_text("f_13507:library_2escm"),(void*)f_13507}, {C_text("f_13552:library_2escm"),(void*)f_13552}, {C_text("f_13589:library_2escm"),(void*)f_13589}, {C_text("f_13609:library_2escm"),(void*)f_13609}, {C_text("f_13633:library_2escm"),(void*)f_13633}, {C_text("f_13636:library_2escm"),(void*)f_13636}, {C_text("f_13640:library_2escm"),(void*)f_13640}, {C_text("f_13643:library_2escm"),(void*)f_13643}, {C_text("f_13661:library_2escm"),(void*)f_13661}, {C_text("f_13684:library_2escm"),(void*)f_13684}, {C_text("f_13688:library_2escm"),(void*)f_13688}, {C_text("f_13711:library_2escm"),(void*)f_13711}, {C_text("f_13715:library_2escm"),(void*)f_13715}, {C_text("f_13747:library_2escm"),(void*)f_13747}, {C_text("f_13783:library_2escm"),(void*)f_13783}, {C_text("f_13787:library_2escm"),(void*)f_13787}, {C_text("f_13806:library_2escm"),(void*)f_13806}, {C_text("f_13808:library_2escm"),(void*)f_13808}, {C_text("f_13815:library_2escm"),(void*)f_13815}, {C_text("f_13852:library_2escm"),(void*)f_13852}, {C_text("f_13859:library_2escm"),(void*)f_13859}, {C_text("f_13896:library_2escm"),(void*)f_13896}, {C_text("f_13914:library_2escm"),(void*)f_13914}, {C_text("f_13923:library_2escm"),(void*)f_13923}, {C_text("f_13928:library_2escm"),(void*)f_13928}, {C_text("f_13941:library_2escm"),(void*)f_13941}, {C_text("f_13960:library_2escm"),(void*)f_13960}, {C_text("f_13967:library_2escm"),(void*)f_13967}, {C_text("f_13975:library_2escm"),(void*)f_13975}, {C_text("f_13979:library_2escm"),(void*)f_13979}, {C_text("f_13983:library_2escm"),(void*)f_13983}, {C_text("f_13987:library_2escm"),(void*)f_13987}, {C_text("f_13990:library_2escm"),(void*)f_13990}, {C_text("f_14004:library_2escm"),(void*)f_14004}, {C_text("f_14008:library_2escm"),(void*)f_14008}, {C_text("f_14019:library_2escm"),(void*)f_14019}, {C_text("f_14043:library_2escm"),(void*)f_14043}, {C_text("f_14047:library_2escm"),(void*)f_14047}, {C_text("f_14053:library_2escm"),(void*)f_14053}, {C_text("f_14077:library_2escm"),(void*)f_14077}, {C_text("f_14081:library_2escm"),(void*)f_14081}, {C_text("f_14087:library_2escm"),(void*)f_14087}, {C_text("f_14104:library_2escm"),(void*)f_14104}, {C_text("f_14108:library_2escm"),(void*)f_14108}, {C_text("f_14112:library_2escm"),(void*)f_14112}, {C_text("f_14122:library_2escm"),(void*)f_14122}, {C_text("f_14128:library_2escm"),(void*)f_14128}, {C_text("f_14135:library_2escm"),(void*)f_14135}, {C_text("f_14147:library_2escm"),(void*)f_14147}, {C_text("f_14170:library_2escm"),(void*)f_14170}, {C_text("f_14174:library_2escm"),(void*)f_14174}, {C_text("f_14184:library_2escm"),(void*)f_14184}, {C_text("f_14190:library_2escm"),(void*)f_14190}, {C_text("f_14197:library_2escm"),(void*)f_14197}, {C_text("f_14212:library_2escm"),(void*)f_14212}, {C_text("f_14216:library_2escm"),(void*)f_14216}, {C_text("f_14249:library_2escm"),(void*)f_14249}, {C_text("f_14253:library_2escm"),(void*)f_14253}, {C_text("f_14270:library_2escm"),(void*)f_14270}, {C_text("f_14280:library_2escm"),(void*)f_14280}, {C_text("f_14353:library_2escm"),(void*)f_14353}, {C_text("f_14367:library_2escm"),(void*)f_14367}, {C_text("f_14384:library_2escm"),(void*)f_14384}, {C_text("f_14400:library_2escm"),(void*)f_14400}, {C_text("f_14471:library_2escm"),(void*)f_14471}, {C_text("f_14475:library_2escm"),(void*)f_14475}, {C_text("f_14480:library_2escm"),(void*)f_14480}, {C_text("f_14490:library_2escm"),(void*)f_14490}, {C_text("f_14494:library_2escm"),(void*)f_14494}, {C_text("f_14509:library_2escm"),(void*)f_14509}, {C_text("f_14513:library_2escm"),(void*)f_14513}, {C_text("f_14530:library_2escm"),(void*)f_14530}, {C_text("f_14541:library_2escm"),(void*)f_14541}, {C_text("f_14547:library_2escm"),(void*)f_14547}, {C_text("f_14558:library_2escm"),(void*)f_14558}, {C_text("f_14569:library_2escm"),(void*)f_14569}, {C_text("f_14581:library_2escm"),(void*)f_14581}, {C_text("f_14593:library_2escm"),(void*)f_14593}, {C_text("f_14605:library_2escm"),(void*)f_14605}, {C_text("f_14622:library_2escm"),(void*)f_14622}, {C_text("f_14629:library_2escm"),(void*)f_14629}, {C_text("f_14633:library_2escm"),(void*)f_14633}, {C_text("f_14635:library_2escm"),(void*)f_14635}, {C_text("f_14641:library_2escm"),(void*)f_14641}, {C_text("f_14645:library_2escm"),(void*)f_14645}, {C_text("f_14648:library_2escm"),(void*)f_14648}, {C_text("f_14653:library_2escm"),(void*)f_14653}, {C_text("f_14663:library_2escm"),(void*)f_14663}, {C_text("f_14683:library_2escm"),(void*)f_14683}, {C_text("f_14698:library_2escm"),(void*)f_14698}, {C_text("f_14728:library_2escm"),(void*)f_14728}, {C_text("f_14739:library_2escm"),(void*)f_14739}, {C_text("f_14755:library_2escm"),(void*)f_14755}, {C_text("f_14759:library_2escm"),(void*)f_14759}, {C_text("f_14763:library_2escm"),(void*)f_14763}, {C_text("f_14779:library_2escm"),(void*)f_14779}, {C_text("f_14797:library_2escm"),(void*)f_14797}, {C_text("f_14808:library_2escm"),(void*)f_14808}, {C_text("f_14830:library_2escm"),(void*)f_14830}, {C_text("f_14847:library_2escm"),(void*)f_14847}, {C_text("f_14850:library_2escm"),(void*)f_14850}, {C_text("f_14862:library_2escm"),(void*)f_14862}, {C_text("f_14864:library_2escm"),(void*)f_14864}, {C_text("f_14885:library_2escm"),(void*)f_14885}, {C_text("f_14909:library_2escm"),(void*)f_14909}, {C_text("f_14916:library_2escm"),(void*)f_14916}, {C_text("f_14920:library_2escm"),(void*)f_14920}, {C_text("f_14955:library_2escm"),(void*)f_14955}, {C_text("f_14962:library_2escm"),(void*)f_14962}, {C_text("f_14974:library_2escm"),(void*)f_14974}, {C_text("f_14994:library_2escm"),(void*)f_14994}, {C_text("f_14998:library_2escm"),(void*)f_14998}, {C_text("f_15018:library_2escm"),(void*)f_15018}, {C_text("f_15027:library_2escm"),(void*)f_15027}, {C_text("f_15038:library_2escm"),(void*)f_15038}, {C_text("f_15042:library_2escm"),(void*)f_15042}, {C_text("f_15046:library_2escm"),(void*)f_15046}, {C_text("f_15053:library_2escm"),(void*)f_15053}, {C_text("f_15069:library_2escm"),(void*)f_15069}, {C_text("f_15073:library_2escm"),(void*)f_15073}, {C_text("f_15114:library_2escm"),(void*)f_15114}, {C_text("f_15147:library_2escm"),(void*)f_15147}, {C_text("f_15176:library_2escm"),(void*)f_15176}, {C_text("f_15184:library_2escm"),(void*)f_15184}, {C_text("f_15190:library_2escm"),(void*)f_15190}, {C_text("f_15210:library_2escm"),(void*)f_15210}, {C_text("f_15235:library_2escm"),(void*)f_15235}, {C_text("f_15241:library_2escm"),(void*)f_15241}, {C_text("f_15245:library_2escm"),(void*)f_15245}, {C_text("f_15255:library_2escm"),(void*)f_15255}, {C_text("f_15275:library_2escm"),(void*)f_15275}, {C_text("f_15296:library_2escm"),(void*)f_15296}, {C_text("f_15313:library_2escm"),(void*)f_15313}, {C_text("f_15320:library_2escm"),(void*)f_15320}, {C_text("f_15325:library_2escm"),(void*)f_15325}, {C_text("f_15331:library_2escm"),(void*)f_15331}, {C_text("f_15335:library_2escm"),(void*)f_15335}, {C_text("f_15338:library_2escm"),(void*)f_15338}, {C_text("f_15345:library_2escm"),(void*)f_15345}, {C_text("f_15366:library_2escm"),(void*)f_15366}, {C_text("f_15380:library_2escm"),(void*)f_15380}, {C_text("f_15384:library_2escm"),(void*)f_15384}, {C_text("f_15421:library_2escm"),(void*)f_15421}, {C_text("f_15429:library_2escm"),(void*)f_15429}, {C_text("f_15458:library_2escm"),(void*)f_15458}, {C_text("f_15461:library_2escm"),(void*)f_15461}, {C_text("f_15476:library_2escm"),(void*)f_15476}, {C_text("f_15479:library_2escm"),(void*)f_15479}, {C_text("f_15486:library_2escm"),(void*)f_15486}, {C_text("f_15497:library_2escm"),(void*)f_15497}, {C_text("f_15515:library_2escm"),(void*)f_15515}, {C_text("f_15540:library_2escm"),(void*)f_15540}, {C_text("f_15555:library_2escm"),(void*)f_15555}, {C_text("f_15583:library_2escm"),(void*)f_15583}, {C_text("f_15586:library_2escm"),(void*)f_15586}, {C_text("f_15596:library_2escm"),(void*)f_15596}, {C_text("f_15656:library_2escm"),(void*)f_15656}, {C_text("f_15676:library_2escm"),(void*)f_15676}, {C_text("f_15682:library_2escm"),(void*)f_15682}, {C_text("f_15745:library_2escm"),(void*)f_15745}, {C_text("f_15784:library_2escm"),(void*)f_15784}, {C_text("f_15790:library_2escm"),(void*)f_15790}, {C_text("f_15834:library_2escm"),(void*)f_15834}, {C_text("f_15838:library_2escm"),(void*)f_15838}, {C_text("f_15841:library_2escm"),(void*)f_15841}, {C_text("f_15890:library_2escm"),(void*)f_15890}, {C_text("f_15905:library_2escm"),(void*)f_15905}, {C_text("f_15914:library_2escm"),(void*)f_15914}, {C_text("f_15951:library_2escm"),(void*)f_15951}, {C_text("f_15961:library_2escm"),(void*)f_15961}, {C_text("f_15970:library_2escm"),(void*)f_15970}, {C_text("f_15973:library_2escm"),(void*)f_15973}, {C_text("f_15982:library_2escm"),(void*)f_15982}, {C_text("f_15991:library_2escm"),(void*)f_15991}, {C_text("f_16003:library_2escm"),(void*)f_16003}, {C_text("f_16009:library_2escm"),(void*)f_16009}, {C_text("f_16015:library_2escm"),(void*)f_16015}, {C_text("f_16057:library_2escm"),(void*)f_16057}, {C_text("f_16165:library_2escm"),(void*)f_16165}, {C_text("f_16172:library_2escm"),(void*)f_16172}, {C_text("f_16185:library_2escm"),(void*)f_16185}, {C_text("f_16191:library_2escm"),(void*)f_16191}, {C_text("f_16243:library_2escm"),(void*)f_16243}, {C_text("f_16258:library_2escm"),(void*)f_16258}, {C_text("f_16268:library_2escm"),(void*)f_16268}, {C_text("f_16304:library_2escm"),(void*)f_16304}, {C_text("f_16330:library_2escm"),(void*)f_16330}, {C_text("f_16341:library_2escm"),(void*)f_16341}, {C_text("f_16508:library_2escm"),(void*)f_16508}, {C_text("f_16523:library_2escm"),(void*)f_16523}, {C_text("f_16549:library_2escm"),(void*)f_16549}, {C_text("f_16581:library_2escm"),(void*)f_16581}, {C_text("f_16618:library_2escm"),(void*)f_16618}, {C_text("f_16642:library_2escm"),(void*)f_16642}, {C_text("f_16692:library_2escm"),(void*)f_16692}, {C_text("f_16740:library_2escm"),(void*)f_16740}, {C_text("f_16743:library_2escm"),(void*)f_16743}, {C_text("f_16762:library_2escm"),(void*)f_16762}, {C_text("f_16832:library_2escm"),(void*)f_16832}, {C_text("f_16853:library_2escm"),(void*)f_16853}, {C_text("f_16900:library_2escm"),(void*)f_16900}, {C_text("f_16980:library_2escm"),(void*)f_16980}, {C_text("f_16990:library_2escm"),(void*)f_16990}, {C_text("f_16999:library_2escm"),(void*)f_16999}, {C_text("f_17006:library_2escm"),(void*)f_17006}, {C_text("f_17235:library_2escm"),(void*)f_17235}, {C_text("f_17281:library_2escm"),(void*)f_17281}, {C_text("f_17284:library_2escm"),(void*)f_17284}, {C_text("f_17311:library_2escm"),(void*)f_17311}, {C_text("f_17335:library_2escm"),(void*)f_17335}, {C_text("f_17352:library_2escm"),(void*)f_17352}, {C_text("f_17453:library_2escm"),(void*)f_17453}, {C_text("f_17456:library_2escm"),(void*)f_17456}, {C_text("f_17465:library_2escm"),(void*)f_17465}, {C_text("f_17471:library_2escm"),(void*)f_17471}, {C_text("f_17482:library_2escm"),(void*)f_17482}, {C_text("f_17484:library_2escm"),(void*)f_17484}, {C_text("f_17495:library_2escm"),(void*)f_17495}, {C_text("f_17497:library_2escm"),(void*)f_17497}, {C_text("f_17508:library_2escm"),(void*)f_17508}, {C_text("f_17510:library_2escm"),(void*)f_17510}, {C_text("f_17527:library_2escm"),(void*)f_17527}, {C_text("f_17531:library_2escm"),(void*)f_17531}, {C_text("f_17535:library_2escm"),(void*)f_17535}, {C_text("f_17544:library_2escm"),(void*)f_17544}, {C_text("f_17564:library_2escm"),(void*)f_17564}, {C_text("f_17572:library_2escm"),(void*)f_17572}, {C_text("f_17587:library_2escm"),(void*)f_17587}, {C_text("f_17589:library_2escm"),(void*)f_17589}, {C_text("f_17614:library_2escm"),(void*)f_17614}, {C_text("f_17623:library_2escm"),(void*)f_17623}, {C_text("f_17626:library_2escm"),(void*)f_17626}, {C_text("f_17635:library_2escm"),(void*)f_17635}, {C_text("f_17642:library_2escm"),(void*)f_17642}, {C_text("f_17653:library_2escm"),(void*)f_17653}, {C_text("f_17660:library_2escm"),(void*)f_17660}, {C_text("f_17684:library_2escm"),(void*)f_17684}, {C_text("f_17688:library_2escm"),(void*)f_17688}, {C_text("f_17690:library_2escm"),(void*)f_17690}, {C_text("f_17694:library_2escm"),(void*)f_17694}, {C_text("f_17699:library_2escm"),(void*)f_17699}, {C_text("f_17705:library_2escm"),(void*)f_17705}, {C_text("f_17709:library_2escm"),(void*)f_17709}, {C_text("f_17714:library_2escm"),(void*)f_17714}, {C_text("f_17724:library_2escm"),(void*)f_17724}, {C_text("f_17726:library_2escm"),(void*)f_17726}, {C_text("f_17730:library_2escm"),(void*)f_17730}, {C_text("f_17736:library_2escm"),(void*)f_17736}, {C_text("f_17738:library_2escm"),(void*)f_17738}, {C_text("f_17742:library_2escm"),(void*)f_17742}, {C_text("f_17745:library_2escm"),(void*)f_17745}, {C_text("f_17761:library_2escm"),(void*)f_17761}, {C_text("f_17765:library_2escm"),(void*)f_17765}, {C_text("f_17768:library_2escm"),(void*)f_17768}, {C_text("f_17790:library_2escm"),(void*)f_17790}, {C_text("f_17806:library_2escm"),(void*)f_17806}, {C_text("f_17811:library_2escm"),(void*)f_17811}, {C_text("f_17842:library_2escm"),(void*)f_17842}, {C_text("f_17851:library_2escm"),(void*)f_17851}, {C_text("f_17869:library_2escm"),(void*)f_17869}, {C_text("f_17875:library_2escm"),(void*)f_17875}, {C_text("f_17881:library_2escm"),(void*)f_17881}, {C_text("f_17890:library_2escm"),(void*)f_17890}, {C_text("f_17909:library_2escm"),(void*)f_17909}, {C_text("f_17925:library_2escm"),(void*)f_17925}, {C_text("f_17928:library_2escm"),(void*)f_17928}, {C_text("f_17931:library_2escm"),(void*)f_17931}, {C_text("f_17936:library_2escm"),(void*)f_17936}, {C_text("f_17978:library_2escm"),(void*)f_17978}, {C_text("f_17997:library_2escm"),(void*)f_17997}, {C_text("f_18000:library_2escm"),(void*)f_18000}, {C_text("f_18003:library_2escm"),(void*)f_18003}, {C_text("f_18008:library_2escm"),(void*)f_18008}, {C_text("f_18049:library_2escm"),(void*)f_18049}, {C_text("f_18059:library_2escm"),(void*)f_18059}, {C_text("f_18070:library_2escm"),(void*)f_18070}, {C_text("f_18074:library_2escm"),(void*)f_18074}, {C_text("f_18077:library_2escm"),(void*)f_18077}, {C_text("f_18082:library_2escm"),(void*)f_18082}, {C_text("f_18109:library_2escm"),(void*)f_18109}, {C_text("f_18123:library_2escm"),(void*)f_18123}, {C_text("f_18134:library_2escm"),(void*)f_18134}, {C_text("f_18145:library_2escm"),(void*)f_18145}, {C_text("f_18156:library_2escm"),(void*)f_18156}, {C_text("f_18169:library_2escm"),(void*)f_18169}, {C_text("f_18171:library_2escm"),(void*)f_18171}, {C_text("f_18184:library_2escm"),(void*)f_18184}, {C_text("f_18212:library_2escm"),(void*)f_18212}, {C_text("f_18216:library_2escm"),(void*)f_18216}, {C_text("f_18225:library_2escm"),(void*)f_18225}, {C_text("f_18243:library_2escm"),(void*)f_18243}, {C_text("f_18246:library_2escm"),(void*)f_18246}, {C_text("f_18329:library_2escm"),(void*)f_18329}, {C_text("f_18332:library_2escm"),(void*)f_18332}, {C_text("f_18335:library_2escm"),(void*)f_18335}, {C_text("f_18338:library_2escm"),(void*)f_18338}, {C_text("f_18341:library_2escm"),(void*)f_18341}, {C_text("f_18344:library_2escm"),(void*)f_18344}, {C_text("f_18347:library_2escm"),(void*)f_18347}, {C_text("f_18350:library_2escm"),(void*)f_18350}, {C_text("f_18353:library_2escm"),(void*)f_18353}, {C_text("f_18356:library_2escm"),(void*)f_18356}, {C_text("f_18359:library_2escm"),(void*)f_18359}, {C_text("f_18362:library_2escm"),(void*)f_18362}, {C_text("f_18365:library_2escm"),(void*)f_18365}, {C_text("f_18368:library_2escm"),(void*)f_18368}, {C_text("f_18373:library_2escm"),(void*)f_18373}, {C_text("f_18379:library_2escm"),(void*)f_18379}, {C_text("f_18395:library_2escm"),(void*)f_18395}, {C_text("f_18411:library_2escm"),(void*)f_18411}, {C_text("f_18417:library_2escm"),(void*)f_18417}, {C_text("f_18437:library_2escm"),(void*)f_18437}, {C_text("f_18441:library_2escm"),(void*)f_18441}, {C_text("f_18453:library_2escm"),(void*)f_18453}, {C_text("f_18485:library_2escm"),(void*)f_18485}, {C_text("f_18489:library_2escm"),(void*)f_18489}, {C_text("f_18497:library_2escm"),(void*)f_18497}, {C_text("f_18507:library_2escm"),(void*)f_18507}, {C_text("f_18515:library_2escm"),(void*)f_18515}, {C_text("f_18551:library_2escm"),(void*)f_18551}, {C_text("f_18566:library_2escm"),(void*)f_18566}, {C_text("f_18576:library_2escm"),(void*)f_18576}, {C_text("f_18596:library_2escm"),(void*)f_18596}, {C_text("f_18609:library_2escm"),(void*)f_18609}, {C_text("f_18616:library_2escm"),(void*)f_18616}, {C_text("f_18618:library_2escm"),(void*)f_18618}, {C_text("f_18626:library_2escm"),(void*)f_18626}, {C_text("f_18628:library_2escm"),(void*)f_18628}, {C_text("f_18637:library_2escm"),(void*)f_18637}, {C_text("f_18655:library_2escm"),(void*)f_18655}, {C_text("f_18680:library_2escm"),(void*)f_18680}, {C_text("f_18696:library_2escm"),(void*)f_18696}, {C_text("f_18713:library_2escm"),(void*)f_18713}, {C_text("f_18717:library_2escm"),(void*)f_18717}, {C_text("f_18721:library_2escm"),(void*)f_18721}, {C_text("f_18723:library_2escm"),(void*)f_18723}, {C_text("f_18731:library_2escm"),(void*)f_18731}, {C_text("f_18733:library_2escm"),(void*)f_18733}, {C_text("f_18740:library_2escm"),(void*)f_18740}, {C_text("f_18744:library_2escm"),(void*)f_18744}, {C_text("f_18748:library_2escm"),(void*)f_18748}, {C_text("f_18757:library_2escm"),(void*)f_18757}, {C_text("f_18765:library_2escm"),(void*)f_18765}, {C_text("f_18775:library_2escm"),(void*)f_18775}, {C_text("f_18781:library_2escm"),(void*)f_18781}, {C_text("f_18784:library_2escm"),(void*)f_18784}, {C_text("f_18788:library_2escm"),(void*)f_18788}, {C_text("f_18815:library_2escm"),(void*)f_18815}, {C_text("f_18831:library_2escm"),(void*)f_18831}, {C_text("f_18837:library_2escm"),(void*)f_18837}, {C_text("f_18860:library_2escm"),(void*)f_18860}, {C_text("f_18873:library_2escm"),(void*)f_18873}, {C_text("f_18879:library_2escm"),(void*)f_18879}, {C_text("f_18884:library_2escm"),(void*)f_18884}, {C_text("f_18889:library_2escm"),(void*)f_18889}, {C_text("f_18893:library_2escm"),(void*)f_18893}, {C_text("f_18902:library_2escm"),(void*)f_18902}, {C_text("f_18933:library_2escm"),(void*)f_18933}, {C_text("f_18937:library_2escm"),(void*)f_18937}, {C_text("f_18941:library_2escm"),(void*)f_18941}, {C_text("f_18944:library_2escm"),(void*)f_18944}, {C_text("f_18947:library_2escm"),(void*)f_18947}, {C_text("f_18950:library_2escm"),(void*)f_18950}, {C_text("f_18952:library_2escm"),(void*)f_18952}, {C_text("f_18963:library_2escm"),(void*)f_18963}, {C_text("f_18974:library_2escm"),(void*)f_18974}, {C_text("f_18985:library_2escm"),(void*)f_18985}, {C_text("f_18996:library_2escm"),(void*)f_18996}, {C_text("f_19009:library_2escm"),(void*)f_19009}, {C_text("f_19011:library_2escm"),(void*)f_19011}, {C_text("f_19017:library_2escm"),(void*)f_19017}, {C_text("f_19022:library_2escm"),(void*)f_19022}, {C_text("f_19057:library_2escm"),(void*)f_19057}, {C_text("f_19070:library_2escm"),(void*)f_19070}, {C_text("f_19072:library_2escm"),(void*)f_19072}, {C_text("f_19078:library_2escm"),(void*)f_19078}, {C_text("f_19083:library_2escm"),(void*)f_19083}, {C_text("f_19118:library_2escm"),(void*)f_19118}, {C_text("f_19131:library_2escm"),(void*)f_19131}, {C_text("f_19133:library_2escm"),(void*)f_19133}, {C_text("f_19139:library_2escm"),(void*)f_19139}, {C_text("f_19144:library_2escm"),(void*)f_19144}, {C_text("f_19179:library_2escm"),(void*)f_19179}, {C_text("f_19191:library_2escm"),(void*)f_19191}, {C_text("f_19193:library_2escm"),(void*)f_19193}, {C_text("f_19199:library_2escm"),(void*)f_19199}, {C_text("f_19205:library_2escm"),(void*)f_19205}, {C_text("f_19215:library_2escm"),(void*)f_19215}, {C_text("f_19218:library_2escm"),(void*)f_19218}, {C_text("f_19221:library_2escm"),(void*)f_19221}, {C_text("f_19224:library_2escm"),(void*)f_19224}, {C_text("f_19227:library_2escm"),(void*)f_19227}, {C_text("f_19234:library_2escm"),(void*)f_19234}, {C_text("f_19238:library_2escm"),(void*)f_19238}, {C_text("f_19242:library_2escm"),(void*)f_19242}, {C_text("f_19248:library_2escm"),(void*)f_19248}, {C_text("f_19261:library_2escm"),(void*)f_19261}, {C_text("f_19303:library_2escm"),(void*)f_19303}, {C_text("f_19307:library_2escm"),(void*)f_19307}, {C_text("f_19340:library_2escm"),(void*)f_19340}, {C_text("f_19346:library_2escm"),(void*)f_19346}, {C_text("f_19352:library_2escm"),(void*)f_19352}, {C_text("f_19358:library_2escm"),(void*)f_19358}, {C_text("f_19364:library_2escm"),(void*)f_19364}, {C_text("f_19368:library_2escm"),(void*)f_19368}, {C_text("f_19373:library_2escm"),(void*)f_19373}, {C_text("f_19379:library_2escm"),(void*)f_19379}, {C_text("f_19383:library_2escm"),(void*)f_19383}, {C_text("f_19388:library_2escm"),(void*)f_19388}, {C_text("f_19392:library_2escm"),(void*)f_19392}, {C_text("f_19397:library_2escm"),(void*)f_19397}, {C_text("f_19403:library_2escm"),(void*)f_19403}, {C_text("f_19407:library_2escm"),(void*)f_19407}, {C_text("f_19412:library_2escm"),(void*)f_19412}, {C_text("f_19416:library_2escm"),(void*)f_19416}, {C_text("f_19421:library_2escm"),(void*)f_19421}, {C_text("f_19426:library_2escm"),(void*)f_19426}, {C_text("f_19432:library_2escm"),(void*)f_19432}, {C_text("f_19436:library_2escm"),(void*)f_19436}, {C_text("f_19441:library_2escm"),(void*)f_19441}, {C_text("f_19446:library_2escm"),(void*)f_19446}, {C_text("f_19450:library_2escm"),(void*)f_19450}, {C_text("f_19455:library_2escm"),(void*)f_19455}, {C_text("f_19460:library_2escm"),(void*)f_19460}, {C_text("f_19466:library_2escm"),(void*)f_19466}, {C_text("f_19470:library_2escm"),(void*)f_19470}, {C_text("f_19475:library_2escm"),(void*)f_19475}, {C_text("f_19480:library_2escm"),(void*)f_19480}, {C_text("f_19485:library_2escm"),(void*)f_19485}, {C_text("f_19506:library_2escm"),(void*)f_19506}, {C_text("f_19513:library_2escm"),(void*)f_19513}, {C_text("f_19519:library_2escm"),(void*)f_19519}, {C_text("f_19537:library_2escm"),(void*)f_19537}, {C_text("f_19546:library_2escm"),(void*)f_19546}, {C_text("f_19559:library_2escm"),(void*)f_19559}, {C_text("f_19567:library_2escm"),(void*)f_19567}, {C_text("f_19572:library_2escm"),(void*)f_19572}, {C_text("f_19609:library_2escm"),(void*)f_19609}, {C_text("f_19621:library_2escm"),(void*)f_19621}, {C_text("f_19631:library_2escm"),(void*)f_19631}, {C_text("f_19647:library_2escm"),(void*)f_19647}, {C_text("f_19660:library_2escm"),(void*)f_19660}, {C_text("f_19667:library_2escm"),(void*)f_19667}, {C_text("f_19669:library_2escm"),(void*)f_19669}, {C_text("f_19682:library_2escm"),(void*)f_19682}, {C_text("f_19688:library_2escm"),(void*)f_19688}, {C_text("f_19695:library_2escm"),(void*)f_19695}, {C_text("f_19697:library_2escm"),(void*)f_19697}, {C_text("f_19701:library_2escm"),(void*)f_19701}, {C_text("f_19704:library_2escm"),(void*)f_19704}, {C_text("f_19714:library_2escm"),(void*)f_19714}, {C_text("f_19718:library_2escm"),(void*)f_19718}, {C_text("f_19726:library_2escm"),(void*)f_19726}, {C_text("f_19729:library_2escm"),(void*)f_19729}, {C_text("f_19736:library_2escm"),(void*)f_19736}, {C_text("f_19739:library_2escm"),(void*)f_19739}, {C_text("f_19742:library_2escm"),(void*)f_19742}, {C_text("f_19745:library_2escm"),(void*)f_19745}, {C_text("f_19753:library_2escm"),(void*)f_19753}, {C_text("f_19761:library_2escm"),(void*)f_19761}, {C_text("f_19763:library_2escm"),(void*)f_19763}, {C_text("f_19779:library_2escm"),(void*)f_19779}, {C_text("f_19806:library_2escm"),(void*)f_19806}, {C_text("f_19810:library_2escm"),(void*)f_19810}, {C_text("f_19814:library_2escm"),(void*)f_19814}, {C_text("f_19818:library_2escm"),(void*)f_19818}, {C_text("f_19822:library_2escm"),(void*)f_19822}, {C_text("f_19826:library_2escm"),(void*)f_19826}, {C_text("f_19830:library_2escm"),(void*)f_19830}, {C_text("f_19834:library_2escm"),(void*)f_19834}, {C_text("f_19838:library_2escm"),(void*)f_19838}, {C_text("f_19842:library_2escm"),(void*)f_19842}, {C_text("f_19846:library_2escm"),(void*)f_19846}, {C_text("f_19850:library_2escm"),(void*)f_19850}, {C_text("f_19854:library_2escm"),(void*)f_19854}, {C_text("f_19858:library_2escm"),(void*)f_19858}, {C_text("f_19862:library_2escm"),(void*)f_19862}, {C_text("f_19866:library_2escm"),(void*)f_19866}, {C_text("f_19870:library_2escm"),(void*)f_19870}, {C_text("f_19877:library_2escm"),(void*)f_19877}, {C_text("f_19884:library_2escm"),(void*)f_19884}, {C_text("f_19885:library_2escm"),(void*)f_19885}, {C_text("f_19889:library_2escm"),(void*)f_19889}, {C_text("f_19892:library_2escm"),(void*)f_19892}, {C_text("f_19908:library_2escm"),(void*)f_19908}, {C_text("f_19919:library_2escm"),(void*)f_19919}, {C_text("f_19927:library_2escm"),(void*)f_19927}, {C_text("f_19939:library_2escm"),(void*)f_19939}, {C_text("f_19948:library_2escm"),(void*)f_19948}, {C_text("f_19953:library_2escm"),(void*)f_19953}, {C_text("f_20009:library_2escm"),(void*)f_20009}, {C_text("f_20023:library_2escm"),(void*)f_20023}, {C_text("f_20035:library_2escm"),(void*)f_20035}, {C_text("f_20041:library_2escm"),(void*)f_20041}, {C_text("f_20066:library_2escm"),(void*)f_20066}, {C_text("f_20084:library_2escm"),(void*)f_20084}, {C_text("f_20088:library_2escm"),(void*)f_20088}, {C_text("f_20144:library_2escm"),(void*)f_20144}, {C_text("f_20153:library_2escm"),(void*)f_20153}, {C_text("f_20166:library_2escm"),(void*)f_20166}, {C_text("f_20178:library_2escm"),(void*)f_20178}, {C_text("f_20196:library_2escm"),(void*)f_20196}, {C_text("f_20216:library_2escm"),(void*)f_20216}, {C_text("f_20219:library_2escm"),(void*)f_20219}, {C_text("f_20222:library_2escm"),(void*)f_20222}, {C_text("f_20230:library_2escm"),(void*)f_20230}, {C_text("f_20234:library_2escm"),(void*)f_20234}, {C_text("f_20238:library_2escm"),(void*)f_20238}, {C_text("f_20242:library_2escm"),(void*)f_20242}, {C_text("f_20246:library_2escm"),(void*)f_20246}, {C_text("f_20248:library_2escm"),(void*)f_20248}, {C_text("f_20256:library_2escm"),(void*)f_20256}, {C_text("f_20259:library_2escm"),(void*)f_20259}, {C_text("f_20269:library_2escm"),(void*)f_20269}, {C_text("f_20271:library_2escm"),(void*)f_20271}, {C_text("f_20279:library_2escm"),(void*)f_20279}, {C_text("f_20282:library_2escm"),(void*)f_20282}, {C_text("f_20292:library_2escm"),(void*)f_20292}, {C_text("f_20294:library_2escm"),(void*)f_20294}, {C_text("f_20298:library_2escm"),(void*)f_20298}, {C_text("f_20301:library_2escm"),(void*)f_20301}, {C_text("f_20304:library_2escm"),(void*)f_20304}, {C_text("f_20307:library_2escm"),(void*)f_20307}, {C_text("f_20310:library_2escm"),(void*)f_20310}, {C_text("f_20312:library_2escm"),(void*)f_20312}, {C_text("f_20318:library_2escm"),(void*)f_20318}, {C_text("f_20327:library_2escm"),(void*)f_20327}, {C_text("f_20335:library_2escm"),(void*)f_20335}, {C_text("f_20337:library_2escm"),(void*)f_20337}, {C_text("f_20344:library_2escm"),(void*)f_20344}, {C_text("f_20351:library_2escm"),(void*)f_20351}, {C_text("f_20364:library_2escm"),(void*)f_20364}, {C_text("f_20368:library_2escm"),(void*)f_20368}, {C_text("f_20373:library_2escm"),(void*)f_20373}, {C_text("f_20377:library_2escm"),(void*)f_20377}, {C_text("f_20388:library_2escm"),(void*)f_20388}, {C_text("f_20391:library_2escm"),(void*)f_20391}, {C_text("f_20399:library_2escm"),(void*)f_20399}, {C_text("f_20401:library_2escm"),(void*)f_20401}, {C_text("f_20414:library_2escm"),(void*)f_20414}, {C_text("f_20421:library_2escm"),(void*)f_20421}, {C_text("f_20430:library_2escm"),(void*)f_20430}, {C_text("f_20437:library_2escm"),(void*)f_20437}, {C_text("f_20439:library_2escm"),(void*)f_20439}, {C_text("f_20445:library_2escm"),(void*)f_20445}, {C_text("f_20455:library_2escm"),(void*)f_20455}, {C_text("f_20458:library_2escm"),(void*)f_20458}, {C_text("f_20468:library_2escm"),(void*)f_20468}, {C_text("f_20471:library_2escm"),(void*)f_20471}, {C_text("f_20499:library_2escm"),(void*)f_20499}, {C_text("f_20503:library_2escm"),(void*)f_20503}, {C_text("f_20511:library_2escm"),(void*)f_20511}, {C_text("f_20536:library_2escm"),(void*)f_20536}, {C_text("f_20544:library_2escm"),(void*)f_20544}, {C_text("f_20546:library_2escm"),(void*)f_20546}, {C_text("f_20563:library_2escm"),(void*)f_20563}, {C_text("f_20576:library_2escm"),(void*)f_20576}, {C_text("f_20593:library_2escm"),(void*)f_20593}, {C_text("f_20610:library_2escm"),(void*)f_20610}, {C_text("f_20627:library_2escm"),(void*)f_20627}, {C_text("f_20644:library_2escm"),(void*)f_20644}, {C_text("f_20661:library_2escm"),(void*)f_20661}, {C_text("f_20678:library_2escm"),(void*)f_20678}, {C_text("f_20698:library_2escm"),(void*)f_20698}, {C_text("f_20706:library_2escm"),(void*)f_20706}, {C_text("f_20715:library_2escm"),(void*)f_20715}, {C_text("f_20721:library_2escm"),(void*)f_20721}, {C_text("f_20727:library_2escm"),(void*)f_20727}, {C_text("f_20730:library_2escm"),(void*)f_20730}, {C_text("f_20733:library_2escm"),(void*)f_20733}, {C_text("f_20743:library_2escm"),(void*)f_20743}, {C_text("f_20747:library_2escm"),(void*)f_20747}, {C_text("f_20764:library_2escm"),(void*)f_20764}, {C_text("f_20769:library_2escm"),(void*)f_20769}, {C_text("f_20776:library_2escm"),(void*)f_20776}, {C_text("f_20780:library_2escm"),(void*)f_20780}, {C_text("f_20789:library_2escm"),(void*)f_20789}, {C_text("f_20795:library_2escm"),(void*)f_20795}, {C_text("f_20805:library_2escm"),(void*)f_20805}, {C_text("f_20809:library_2escm"),(void*)f_20809}, {C_text("f_20818:library_2escm"),(void*)f_20818}, {C_text("f_20825:library_2escm"),(void*)f_20825}, {C_text("f_20838:library_2escm"),(void*)f_20838}, {C_text("f_20843:library_2escm"),(void*)f_20843}, {C_text("f_20860:library_2escm"),(void*)f_20860}, {C_text("f_20875:library_2escm"),(void*)f_20875}, {C_text("f_20888:library_2escm"),(void*)f_20888}, {C_text("f_20910:library_2escm"),(void*)f_20910}, {C_text("f_20913:library_2escm"),(void*)f_20913}, {C_text("f_20942:library_2escm"),(void*)f_20942}, {C_text("f_20952:library_2escm"),(void*)f_20952}, {C_text("f_20968:library_2escm"),(void*)f_20968}, {C_text("f_20979:library_2escm"),(void*)f_20979}, {C_text("f_20986:library_2escm"),(void*)f_20986}, {C_text("f_21084:library_2escm"),(void*)f_21084}, {C_text("f_21090:library_2escm"),(void*)f_21090}, {C_text("f_21099:library_2escm"),(void*)f_21099}, {C_text("f_21113:library_2escm"),(void*)f_21113}, {C_text("f_21116:library_2escm"),(void*)f_21116}, {C_text("f_21127:library_2escm"),(void*)f_21127}, {C_text("f_21129:library_2escm"),(void*)f_21129}, {C_text("f_21132:library_2escm"),(void*)f_21132}, {C_text("f_21149:library_2escm"),(void*)f_21149}, {C_text("f_21154:library_2escm"),(void*)f_21154}, {C_text("f_21158:library_2escm"),(void*)f_21158}, {C_text("f_21161:library_2escm"),(void*)f_21161}, {C_text("f_21164:library_2escm"),(void*)f_21164}, {C_text("f_21174:library_2escm"),(void*)f_21174}, {C_text("f_21192:library_2escm"),(void*)f_21192}, {C_text("f_21195:library_2escm"),(void*)f_21195}, {C_text("f_21204:library_2escm"),(void*)f_21204}, {C_text("f_21207:library_2escm"),(void*)f_21207}, {C_text("f_21210:library_2escm"),(void*)f_21210}, {C_text("f_21216:library_2escm"),(void*)f_21216}, {C_text("f_21229:library_2escm"),(void*)f_21229}, {C_text("f_21233:library_2escm"),(void*)f_21233}, {C_text("f_21237:library_2escm"),(void*)f_21237}, {C_text("f_21248:library_2escm"),(void*)f_21248}, {C_text("f_21252:library_2escm"),(void*)f_21252}, {C_text("f_21255:library_2escm"),(void*)f_21255}, {C_text("f_21283:library_2escm"),(void*)f_21283}, {C_text("f_21339:library_2escm"),(void*)f_21339}, {C_text("f_21343:library_2escm"),(void*)f_21343}, {C_text("f_21350:library_2escm"),(void*)f_21350}, {C_text("f_21352:library_2escm"),(void*)f_21352}, {C_text("f_21356:library_2escm"),(void*)f_21356}, {C_text("f_21370:library_2escm"),(void*)f_21370}, {C_text("f_21376:library_2escm"),(void*)f_21376}, {C_text("f_21383:library_2escm"),(void*)f_21383}, {C_text("f_21390:library_2escm"),(void*)f_21390}, {C_text("f_21405:library_2escm"),(void*)f_21405}, {C_text("f_21411:library_2escm"),(void*)f_21411}, {C_text("f_21440:library_2escm"),(void*)f_21440}, {C_text("f_21450:library_2escm"),(void*)f_21450}, {C_text("f_21453:library_2escm"),(void*)f_21453}, {C_text("f_21489:library_2escm"),(void*)f_21489}, {C_text("f_21491:library_2escm"),(void*)f_21491}, {C_text("f_21501:library_2escm"),(void*)f_21501}, {C_text("f_21504:library_2escm"),(void*)f_21504}, {C_text("f_21556:library_2escm"),(void*)f_21556}, {C_text("f_21558:library_2escm"),(void*)f_21558}, {C_text("f_21566:library_2escm"),(void*)f_21566}, {C_text("f_21568:library_2escm"),(void*)f_21568}, {C_text("f_21578:library_2escm"),(void*)f_21578}, {C_text("f_21593:library_2escm"),(void*)f_21593}, {C_text("f_21600:library_2escm"),(void*)f_21600}, {C_text("f_21622:library_2escm"),(void*)f_21622}, {C_text("f_21630:library_2escm"),(void*)f_21630}, {C_text("f_21632:library_2escm"),(void*)f_21632}, {C_text("f_21642:library_2escm"),(void*)f_21642}, {C_text("f_21648:library_2escm"),(void*)f_21648}, {C_text("f_21655:library_2escm"),(void*)f_21655}, {C_text("f_21668:library_2escm"),(void*)f_21668}, {C_text("f_21674:library_2escm"),(void*)f_21674}, {C_text("f_21678:library_2escm"),(void*)f_21678}, {C_text("f_21685:library_2escm"),(void*)f_21685}, {C_text("f_21693:library_2escm"),(void*)f_21693}, {C_text("f_21699:library_2escm"),(void*)f_21699}, {C_text("f_21703:library_2escm"),(void*)f_21703}, {C_text("f_21712:library_2escm"),(void*)f_21712}, {C_text("f_21718:library_2escm"),(void*)f_21718}, {C_text("f_21725:library_2escm"),(void*)f_21725}, {C_text("f_21736:library_2escm"),(void*)f_21736}, {C_text("f_21776:library_2escm"),(void*)f_21776}, {C_text("f_21785:library_2escm"),(void*)f_21785}, {C_text("f_21792:library_2escm"),(void*)f_21792}, {C_text("f_21796:library_2escm"),(void*)f_21796}, {C_text("f_21800:library_2escm"),(void*)f_21800}, {C_text("f_21809:library_2escm"),(void*)f_21809}, {C_text("f_21820:library_2escm"),(void*)f_21820}, {C_text("f_21858:library_2escm"),(void*)f_21858}, {C_text("f_21907:library_2escm"),(void*)f_21907}, {C_text("f_21911:library_2escm"),(void*)f_21911}, {C_text("f_21914:library_2escm"),(void*)f_21914}, {C_text("f_21926:library_2escm"),(void*)f_21926}, {C_text("f_21946:library_2escm"),(void*)f_21946}, {C_text("f_21952:library_2escm"),(void*)f_21952}, {C_text("f_21962:library_2escm"),(void*)f_21962}, {C_text("f_22091:library_2escm"),(void*)f_22091}, {C_text("f_22098:library_2escm"),(void*)f_22098}, {C_text("f_22116:library_2escm"),(void*)f_22116}, {C_text("f_22122:library_2escm"),(void*)f_22122}, {C_text("f_22126:library_2escm"),(void*)f_22126}, {C_text("f_22162:library_2escm"),(void*)f_22162}, {C_text("f_22185:library_2escm"),(void*)f_22185}, {C_text("f_22203:library_2escm"),(void*)f_22203}, {C_text("f_22207:library_2escm"),(void*)f_22207}, {C_text("f_22214:library_2escm"),(void*)f_22214}, {C_text("f_22216:library_2escm"),(void*)f_22216}, {C_text("f_22220:library_2escm"),(void*)f_22220}, {C_text("f_22231:library_2escm"),(void*)f_22231}, {C_text("f_22247:library_2escm"),(void*)f_22247}, {C_text("f_22250:library_2escm"),(void*)f_22250}, {C_text("f_22253:library_2escm"),(void*)f_22253}, {C_text("f_22259:library_2escm"),(void*)f_22259}, {C_text("f_22267:library_2escm"),(void*)f_22267}, {C_text("f_22273:library_2escm"),(void*)f_22273}, {C_text("f_22295:library_2escm"),(void*)f_22295}, {C_text("f_22307:library_2escm"),(void*)f_22307}, {C_text("f_22319:library_2escm"),(void*)f_22319}, {C_text("f_22328:library_2escm"),(void*)f_22328}, {C_text("f_22338:library_2escm"),(void*)f_22338}, {C_text("f_22347:library_2escm"),(void*)f_22347}, {C_text("f_22350:library_2escm"),(void*)f_22350}, {C_text("f_22368:library_2escm"),(void*)f_22368}, {C_text("f_22371:library_2escm"),(void*)f_22371}, {C_text("f_22377:library_2escm"),(void*)f_22377}, {C_text("f_22394:library_2escm"),(void*)f_22394}, {C_text("f_22400:library_2escm"),(void*)f_22400}, {C_text("f_22428:library_2escm"),(void*)f_22428}, {C_text("f_22451:library_2escm"),(void*)f_22451}, {C_text("f_22457:library_2escm"),(void*)f_22457}, {C_text("f_22465:library_2escm"),(void*)f_22465}, {C_text("f_22471:library_2escm"),(void*)f_22471}, {C_text("f_22496:library_2escm"),(void*)f_22496}, {C_text("f_22508:library_2escm"),(void*)f_22508}, {C_text("f_22520:library_2escm"),(void*)f_22520}, {C_text("f_22532:library_2escm"),(void*)f_22532}, {C_text("f_22544:library_2escm"),(void*)f_22544}, {C_text("f_22556:library_2escm"),(void*)f_22556}, {C_text("f_22568:library_2escm"),(void*)f_22568}, {C_text("f_22571:library_2escm"),(void*)f_22571}, {C_text("f_22574:library_2escm"),(void*)f_22574}, {C_text("f_22579:library_2escm"),(void*)f_22579}, {C_text("f_22584:library_2escm"),(void*)f_22584}, {C_text("f_22590:library_2escm"),(void*)f_22590}, {C_text("f_22632:library_2escm"),(void*)f_22632}, {C_text("f_22644:library_2escm"),(void*)f_22644}, {C_text("f_22647:library_2escm"),(void*)f_22647}, {C_text("f_22659:library_2escm"),(void*)f_22659}, {C_text("f_22671:library_2escm"),(void*)f_22671}, {C_text("f_22674:library_2escm"),(void*)f_22674}, {C_text("f_22686:library_2escm"),(void*)f_22686}, {C_text("f_22698:library_2escm"),(void*)f_22698}, {C_text("f_22701:library_2escm"),(void*)f_22701}, {C_text("f_22710:library_2escm"),(void*)f_22710}, {C_text("f_22725:library_2escm"),(void*)f_22725}, {C_text("f_22728:library_2escm"),(void*)f_22728}, {C_text("f_22733:library_2escm"),(void*)f_22733}, {C_text("f_22738:library_2escm"),(void*)f_22738}, {C_text("f_22744:library_2escm"),(void*)f_22744}, {C_text("f_22751:library_2escm"),(void*)f_22751}, {C_text("f_22773:library_2escm"),(void*)f_22773}, {C_text("f_22785:library_2escm"),(void*)f_22785}, {C_text("f_22788:library_2escm"),(void*)f_22788}, {C_text("f_22791:library_2escm"),(void*)f_22791}, {C_text("f_22806:library_2escm"),(void*)f_22806}, {C_text("f_22815:library_2escm"),(void*)f_22815}, {C_text("f_22818:library_2escm"),(void*)f_22818}, {C_text("f_22824:library_2escm"),(void*)f_22824}, {C_text("f_22827:library_2escm"),(void*)f_22827}, {C_text("f_22833:library_2escm"),(void*)f_22833}, {C_text("f_22852:library_2escm"),(void*)f_22852}, {C_text("f_22871:library_2escm"),(void*)f_22871}, {C_text("f_22887:library_2escm"),(void*)f_22887}, {C_text("f_22893:library_2escm"),(void*)f_22893}, {C_text("f_22965:library_2escm"),(void*)f_22965}, {C_text("f_22977:library_2escm"),(void*)f_22977}, {C_text("f_23055:library_2escm"),(void*)f_23055}, {C_text("f_23131:library_2escm"),(void*)f_23131}, {C_text("f_23296:library_2escm"),(void*)f_23296}, {C_text("f_23308:library_2escm"),(void*)f_23308}, {C_text("f_23370:library_2escm"),(void*)f_23370}, {C_text("f_23373:library_2escm"),(void*)f_23373}, {C_text("f_23419:library_2escm"),(void*)f_23419}, {C_text("f_23423:library_2escm"),(void*)f_23423}, {C_text("f_23441:library_2escm"),(void*)f_23441}, {C_text("f_23505:library_2escm"),(void*)f_23505}, {C_text("f_23516:library_2escm"),(void*)f_23516}, {C_text("f_23518:library_2escm"),(void*)f_23518}, {C_text("f_23531:library_2escm"),(void*)f_23531}, {C_text("f_23543:library_2escm"),(void*)f_23543}, {C_text("f_23563:library_2escm"),(void*)f_23563}, {C_text("f_23570:library_2escm"),(void*)f_23570}, {C_text("f_23579:library_2escm"),(void*)f_23579}, {C_text("f_23591:library_2escm"),(void*)f_23591}, {C_text("f_23612:library_2escm"),(void*)f_23612}, {C_text("f_23627:library_2escm"),(void*)f_23627}, {C_text("f_23645:library_2escm"),(void*)f_23645}, {C_text("f_23663:library_2escm"),(void*)f_23663}, {C_text("f_23682:library_2escm"),(void*)f_23682}, {C_text("f_23692:library_2escm"),(void*)f_23692}, {C_text("f_23706:library_2escm"),(void*)f_23706}, {C_text("f_23709:library_2escm"),(void*)f_23709}, {C_text("f_23714:library_2escm"),(void*)f_23714}, {C_text("f_23733:library_2escm"),(void*)f_23733}, {C_text("f_23743:library_2escm"),(void*)f_23743}, {C_text("f_23757:library_2escm"),(void*)f_23757}, {C_text("f_23760:library_2escm"),(void*)f_23760}, {C_text("f_23767:library_2escm"),(void*)f_23767}, {C_text("f_23771:library_2escm"),(void*)f_23771}, {C_text("f_23775:library_2escm"),(void*)f_23775}, {C_text("f_23777:library_2escm"),(void*)f_23777}, {C_text("f_23784:library_2escm"),(void*)f_23784}, {C_text("f_23787:library_2escm"),(void*)f_23787}, {C_text("f_23790:library_2escm"),(void*)f_23790}, {C_text("f_23792:library_2escm"),(void*)f_23792}, {C_text("f_23802:library_2escm"),(void*)f_23802}, {C_text("f_23808:library_2escm"),(void*)f_23808}, {C_text("f_23820:library_2escm"),(void*)f_23820}, {C_text("f_23823:library_2escm"),(void*)f_23823}, {C_text("f_23826:library_2escm"),(void*)f_23826}, {C_text("f_23843:library_2escm"),(void*)f_23843}, {C_text("f_23864:library_2escm"),(void*)f_23864}, {C_text("f_23868:library_2escm"),(void*)f_23868}, {C_text("f_23881:library_2escm"),(void*)f_23881}, {C_text("f_23884:library_2escm"),(void*)f_23884}, {C_text("f_23893:library_2escm"),(void*)f_23893}, {C_text("f_23896:library_2escm"),(void*)f_23896}, {C_text("f_23924:library_2escm"),(void*)f_23924}, {C_text("f_23928:library_2escm"),(void*)f_23928}, {C_text("f_23937:library_2escm"),(void*)f_23937}, {C_text("f_23948:library_2escm"),(void*)f_23948}, {C_text("f_23955:library_2escm"),(void*)f_23955}, {C_text("f_23960:library_2escm"),(void*)f_23960}, {C_text("f_23982:library_2escm"),(void*)f_23982}, {C_text("f_23988:library_2escm"),(void*)f_23988}, {C_text("f_23991:library_2escm"),(void*)f_23991}, {C_text("f_24002:library_2escm"),(void*)f_24002}, {C_text("f_24011:library_2escm"),(void*)f_24011}, {C_text("f_24014:library_2escm"),(void*)f_24014}, {C_text("f_24037:library_2escm"),(void*)f_24037}, {C_text("f_24086:library_2escm"),(void*)f_24086}, {C_text("f_24102:library_2escm"),(void*)f_24102}, {C_text("f_24109:library_2escm"),(void*)f_24109}, {C_text("f_24121:library_2escm"),(void*)f_24121}, {C_text("f_24179:library_2escm"),(void*)f_24179}, {C_text("f_24226:library_2escm"),(void*)f_24226}, {C_text("f_24231:library_2escm"),(void*)f_24231}, {C_text("f_24280:library_2escm"),(void*)f_24280}, {C_text("f_24286:library_2escm"),(void*)f_24286}, {C_text("f_24290:library_2escm"),(void*)f_24290}, {C_text("f_24313:library_2escm"),(void*)f_24313}, {C_text("f_24320:library_2escm"),(void*)f_24320}, {C_text("f_24339:library_2escm"),(void*)f_24339}, {C_text("f_24375:library_2escm"),(void*)f_24375}, {C_text("f_24387:library_2escm"),(void*)f_24387}, {C_text("f_24393:library_2escm"),(void*)f_24393}, {C_text("f_24415:library_2escm"),(void*)f_24415}, {C_text("f_24422:library_2escm"),(void*)f_24422}, {C_text("f_24432:library_2escm"),(void*)f_24432}, {C_text("f_24441:library_2escm"),(void*)f_24441}, {C_text("f_24447:library_2escm"),(void*)f_24447}, {C_text("f_24460:library_2escm"),(void*)f_24460}, {C_text("f_24498:library_2escm"),(void*)f_24498}, {C_text("f_24564:library_2escm"),(void*)f_24564}, {C_text("f_24567:library_2escm"),(void*)f_24567}, {C_text("f_24574:library_2escm"),(void*)f_24574}, {C_text("f_24614:library_2escm"),(void*)f_24614}, {C_text("f_24617:library_2escm"),(void*)f_24617}, {C_text("f_24626:library_2escm"),(void*)f_24626}, {C_text("f_24636:library_2escm"),(void*)f_24636}, {C_text("f_24639:library_2escm"),(void*)f_24639}, {C_text("f_24648:library_2escm"),(void*)f_24648}, {C_text("f_24658:library_2escm"),(void*)f_24658}, {C_text("f_24661:library_2escm"),(void*)f_24661}, {C_text("f_24687:library_2escm"),(void*)f_24687}, {C_text("f_24693:library_2escm"),(void*)f_24693}, {C_text("f_24698:library_2escm"),(void*)f_24698}, {C_text("f_24711:library_2escm"),(void*)f_24711}, {C_text("f_24714:library_2escm"),(void*)f_24714}, {C_text("f_24725:library_2escm"),(void*)f_24725}, {C_text("f_24747:library_2escm"),(void*)f_24747}, {C_text("f_24759:library_2escm"),(void*)f_24759}, {C_text("f_24762:library_2escm"),(void*)f_24762}, {C_text("f_24769:library_2escm"),(void*)f_24769}, {C_text("f_24778:library_2escm"),(void*)f_24778}, {C_text("f_24781:library_2escm"),(void*)f_24781}, {C_text("f_24825:library_2escm"),(void*)f_24825}, {C_text("f_24828:library_2escm"),(void*)f_24828}, {C_text("f_24837:library_2escm"),(void*)f_24837}, {C_text("f_24850:library_2escm"),(void*)f_24850}, {C_text("f_24853:library_2escm"),(void*)f_24853}, {C_text("f_24878:library_2escm"),(void*)f_24878}, {C_text("f_24882:library_2escm"),(void*)f_24882}, {C_text("f_24892:library_2escm"),(void*)f_24892}, {C_text("f_24895:library_2escm"),(void*)f_24895}, {C_text("f_24915:library_2escm"),(void*)f_24915}, {C_text("f_24928:library_2escm"),(void*)f_24928}, {C_text("f_24933:library_2escm"),(void*)f_24933}, {C_text("f_24939:library_2escm"),(void*)f_24939}, {C_text("f_24945:library_2escm"),(void*)f_24945}, {C_text("f_24949:library_2escm"),(void*)f_24949}, {C_text("f_24952:library_2escm"),(void*)f_24952}, {C_text("f_24967:library_2escm"),(void*)f_24967}, {C_text("f_24970:library_2escm"),(void*)f_24970}, {C_text("f_24988:library_2escm"),(void*)f_24988}, {C_text("f_24990:library_2escm"),(void*)f_24990}, {C_text("f_24996:library_2escm"),(void*)f_24996}, {C_text("f_25005:library_2escm"),(void*)f_25005}, {C_text("f_25011:library_2escm"),(void*)f_25011}, {C_text("f_25018:library_2escm"),(void*)f_25018}, {C_text("f_25021:library_2escm"),(void*)f_25021}, {C_text("f_25024:library_2escm"),(void*)f_25024}, {C_text("f_25033:library_2escm"),(void*)f_25033}, {C_text("f_25049:library_2escm"),(void*)f_25049}, {C_text("f_25064:library_2escm"),(void*)f_25064}, {C_text("f_25066:library_2escm"),(void*)f_25066}, {C_text("f_25072:library_2escm"),(void*)f_25072}, {C_text("f_25078:library_2escm"),(void*)f_25078}, {C_text("f_25082:library_2escm"),(void*)f_25082}, {C_text("f_25085:library_2escm"),(void*)f_25085}, {C_text("f_25088:library_2escm"),(void*)f_25088}, {C_text("f_25092:library_2escm"),(void*)f_25092}, {C_text("f_25096:library_2escm"),(void*)f_25096}, {C_text("f_25100:library_2escm"),(void*)f_25100}, {C_text("f_25103:library_2escm"),(void*)f_25103}, {C_text("f_25106:library_2escm"),(void*)f_25106}, {C_text("f_25109:library_2escm"),(void*)f_25109}, {C_text("f_25121:library_2escm"),(void*)f_25121}, {C_text("f_25127:library_2escm"),(void*)f_25127}, {C_text("f_25131:library_2escm"),(void*)f_25131}, {C_text("f_25134:library_2escm"),(void*)f_25134}, {C_text("f_25137:library_2escm"),(void*)f_25137}, {C_text("f_25140:library_2escm"),(void*)f_25140}, {C_text("f_25143:library_2escm"),(void*)f_25143}, {C_text("f_25146:library_2escm"),(void*)f_25146}, {C_text("f_25151:library_2escm"),(void*)f_25151}, {C_text("f_25173:library_2escm"),(void*)f_25173}, {C_text("f_25179:library_2escm"),(void*)f_25179}, {C_text("f_25182:library_2escm"),(void*)f_25182}, {C_text("f_25207:library_2escm"),(void*)f_25207}, {C_text("f_25210:library_2escm"),(void*)f_25210}, {C_text("f_25217:library_2escm"),(void*)f_25217}, {C_text("f_25230:library_2escm"),(void*)f_25230}, {C_text("f_25240:library_2escm"),(void*)f_25240}, {C_text("f_25245:library_2escm"),(void*)f_25245}, {C_text("f_25251:library_2escm"),(void*)f_25251}, {C_text("f_25278:library_2escm"),(void*)f_25278}, {C_text("f_25284:library_2escm"),(void*)f_25284}, {C_text("f_25295:library_2escm"),(void*)f_25295}, {C_text("f_25301:library_2escm"),(void*)f_25301}, {C_text("f_25304:library_2escm"),(void*)f_25304}, {C_text("f_25309:library_2escm"),(void*)f_25309}, {C_text("f_25315:library_2escm"),(void*)f_25315}, {C_text("f_25339:library_2escm"),(void*)f_25339}, {C_text("f_25347:library_2escm"),(void*)f_25347}, {C_text("f_25364:library_2escm"),(void*)f_25364}, {C_text("f_25404:library_2escm"),(void*)f_25404}, {C_text("f_25411:library_2escm"),(void*)f_25411}, {C_text("f_25423:library_2escm"),(void*)f_25423}, {C_text("f_25427:library_2escm"),(void*)f_25427}, {C_text("f_25440:library_2escm"),(void*)f_25440}, {C_text("f_25442:library_2escm"),(void*)f_25442}, {C_text("f_25476:library_2escm"),(void*)f_25476}, {C_text("f_25480:library_2escm"),(void*)f_25480}, {C_text("f_25481:library_2escm"),(void*)f_25481}, {C_text("f_25491:library_2escm"),(void*)f_25491}, {C_text("f_25496:library_2escm"),(void*)f_25496}, {C_text("f_25506:library_2escm"),(void*)f_25506}, {C_text("f_25519:library_2escm"),(void*)f_25519}, {C_text("f_25530:library_2escm"),(void*)f_25530}, {C_text("f_25534:library_2escm"),(void*)f_25534}, {C_text("f_25538:library_2escm"),(void*)f_25538}, {C_text("f_25560:library_2escm"),(void*)f_25560}, {C_text("f_25564:library_2escm"),(void*)f_25564}, {C_text("f_25572:library_2escm"),(void*)f_25572}, {C_text("f_25588:library_2escm"),(void*)f_25588}, {C_text("f_25599:library_2escm"),(void*)f_25599}, {C_text("f_25618:library_2escm"),(void*)f_25618}, {C_text("f_25629:library_2escm"),(void*)f_25629}, {C_text("f_25637:library_2escm"),(void*)f_25637}, {C_text("f_25716:library_2escm"),(void*)f_25716}, {C_text("f_25726:library_2escm"),(void*)f_25726}, {C_text("f_25727:library_2escm"),(void*)f_25727}, {C_text("f_25740:library_2escm"),(void*)f_25740}, {C_text("f_25743:library_2escm"),(void*)f_25743}, {C_text("f_25746:library_2escm"),(void*)f_25746}, {C_text("f_25749:library_2escm"),(void*)f_25749}, {C_text("f_25757:library_2escm"),(void*)f_25757}, {C_text("f_25764:library_2escm"),(void*)f_25764}, {C_text("f_25767:library_2escm"),(void*)f_25767}, {C_text("f_25770:library_2escm"),(void*)f_25770}, {C_text("f_25793:library_2escm"),(void*)f_25793}, {C_text("f_25798:library_2escm"),(void*)f_25798}, {C_text("f_25808:library_2escm"),(void*)f_25808}, {C_text("f_25821:library_2escm"),(void*)f_25821}, {C_text("f_25852:library_2escm"),(void*)f_25852}, {C_text("f_25862:library_2escm"),(void*)f_25862}, {C_text("f_25912:library_2escm"),(void*)f_25912}, {C_text("f_25915:library_2escm"),(void*)f_25915}, {C_text("f_25934:library_2escm"),(void*)f_25934}, {C_text("f_25939:library_2escm"),(void*)f_25939}, {C_text("f_25945:library_2escm"),(void*)f_25945}, {C_text("f_25948:library_2escm"),(void*)f_25948}, {C_text("f_25954:library_2escm"),(void*)f_25954}, {C_text("f_25962:library_2escm"),(void*)f_25962}, {C_text("f_25981:library_2escm"),(void*)f_25981}, {C_text("f_25986:library_2escm"),(void*)f_25986}, {C_text("f_25996:library_2escm"),(void*)f_25996}, {C_text("f_26010:library_2escm"),(void*)f_26010}, {C_text("f_26017:library_2escm"),(void*)f_26017}, {C_text("f_26021:library_2escm"),(void*)f_26021}, {C_text("f_26025:library_2escm"),(void*)f_26025}, {C_text("f_26027:library_2escm"),(void*)f_26027}, {C_text("f_26053:library_2escm"),(void*)f_26053}, {C_text("f_26056:library_2escm"),(void*)f_26056}, {C_text("f_26059:library_2escm"),(void*)f_26059}, {C_text("f_26066:library_2escm"),(void*)f_26066}, {C_text("f_26070:library_2escm"),(void*)f_26070}, {C_text("f_26076:library_2escm"),(void*)f_26076}, {C_text("f_26081:library_2escm"),(void*)f_26081}, {C_text("f_26091:library_2escm"),(void*)f_26091}, {C_text("f_26108:library_2escm"),(void*)f_26108}, {C_text("f_26129:library_2escm"),(void*)f_26129}, {C_text("f_26132:library_2escm"),(void*)f_26132}, {C_text("f_26152:library_2escm"),(void*)f_26152}, {C_text("f_26160:library_2escm"),(void*)f_26160}, {C_text("f_26294:library_2escm"),(void*)f_26294}, {C_text("f_26311:library_2escm"),(void*)f_26311}, {C_text("f_26315:library_2escm"),(void*)f_26315}, {C_text("f_26328:library_2escm"),(void*)f_26328}, {C_text("f_26337:library_2escm"),(void*)f_26337}, {C_text("f_26340:library_2escm"),(void*)f_26340}, {C_text("f_26344:library_2escm"),(void*)f_26344}, {C_text("f_26383:library_2escm"),(void*)f_26383}, {C_text("f_26386:library_2escm"),(void*)f_26386}, {C_text("f_26393:library_2escm"),(void*)f_26393}, {C_text("f_26397:library_2escm"),(void*)f_26397}, {C_text("f_26423:library_2escm"),(void*)f_26423}, {C_text("f_26454:library_2escm"),(void*)f_26454}, {C_text("f_26457:library_2escm"),(void*)f_26457}, {C_text("f_26469:library_2escm"),(void*)f_26469}, {C_text("f_26472:library_2escm"),(void*)f_26472}, {C_text("f_26475:library_2escm"),(void*)f_26475}, {C_text("f_26500:library_2escm"),(void*)f_26500}, {C_text("f_26506:library_2escm"),(void*)f_26506}, {C_text("f_26510:library_2escm"),(void*)f_26510}, {C_text("f_26514:library_2escm"),(void*)f_26514}, {C_text("f_26527:library_2escm"),(void*)f_26527}, {C_text("f_26529:library_2escm"),(void*)f_26529}, {C_text("f_26535:library_2escm"),(void*)f_26535}, {C_text("f_26540:library_2escm"),(void*)f_26540}, {C_text("f_26575:library_2escm"),(void*)f_26575}, {C_text("f_26581:library_2escm"),(void*)f_26581}, {C_text("f_26597:library_2escm"),(void*)f_26597}, {C_text("f_26619:library_2escm"),(void*)f_26619}, {C_text("f_26643:library_2escm"),(void*)f_26643}, {C_text("f_26655:library_2escm"),(void*)f_26655}, {C_text("f_26657:library_2escm"),(void*)f_26657}, {C_text("f_26676:library_2escm"),(void*)f_26676}, {C_text("f_26680:library_2escm"),(void*)f_26680}, {C_text("f_26692:library_2escm"),(void*)f_26692}, {C_text("f_26694:library_2escm"),(void*)f_26694}, {C_text("f_26738:library_2escm"),(void*)f_26738}, {C_text("f_26740:library_2escm"),(void*)f_26740}, {C_text("f_26774:library_2escm"),(void*)f_26774}, {C_text("f_26797:library_2escm"),(void*)f_26797}, {C_text("f_26804:library_2escm"),(void*)f_26804}, {C_text("f_26814:library_2escm"),(void*)f_26814}, {C_text("f_26816:library_2escm"),(void*)f_26816}, {C_text("f_26866:library_2escm"),(void*)f_26866}, {C_text("f_26868:library_2escm"),(void*)f_26868}, {C_text("f_26893:library_2escm"),(void*)f_26893}, {C_text("f_26902:library_2escm"),(void*)f_26902}, {C_text("f_26908:library_2escm"),(void*)f_26908}, {C_text("f_26912:library_2escm"),(void*)f_26912}, {C_text("f_26916:library_2escm"),(void*)f_26916}, {C_text("f_26924:library_2escm"),(void*)f_26924}, {C_text("f_26930:library_2escm"),(void*)f_26930}, {C_text("f_26961:library_2escm"),(void*)f_26961}, {C_text("f_26986:library_2escm"),(void*)f_26986}, {C_text("f_27011:library_2escm"),(void*)f_27011}, {C_text("f_27021:library_2escm"),(void*)f_27021}, {C_text("f_27026:library_2escm"),(void*)f_27026}, {C_text("f_27028:library_2escm"),(void*)f_27028}, {C_text("f_27035:library_2escm"),(void*)f_27035}, {C_text("f_27047:library_2escm"),(void*)f_27047}, {C_text("f_27055:library_2escm"),(void*)f_27055}, {C_text("f_27093:library_2escm"),(void*)f_27093}, {C_text("f_27097:library_2escm"),(void*)f_27097}, {C_text("f_27104:library_2escm"),(void*)f_27104}, {C_text("f_27107:library_2escm"),(void*)f_27107}, {C_text("f_27110:library_2escm"),(void*)f_27110}, {C_text("f_27111:library_2escm"),(void*)f_27111}, {C_text("f_27113:library_2escm"),(void*)f_27113}, {C_text("f_27117:library_2escm"),(void*)f_27117}, {C_text("f_27122:library_2escm"),(void*)f_27122}, {C_text("f_27134:library_2escm"),(void*)f_27134}, {C_text("f_27144:library_2escm"),(void*)f_27144}, {C_text("f_27156:library_2escm"),(void*)f_27156}, {C_text("f_27158:library_2escm"),(void*)f_27158}, {C_text("f_27165:library_2escm"),(void*)f_27165}, {C_text("f_27168:library_2escm"),(void*)f_27168}, {C_text("f_27174:library_2escm"),(void*)f_27174}, {C_text("f_27177:library_2escm"),(void*)f_27177}, {C_text("f_27180:library_2escm"),(void*)f_27180}, {C_text("f_27183:library_2escm"),(void*)f_27183}, {C_text("f_27198:library_2escm"),(void*)f_27198}, {C_text("f_27204:library_2escm"),(void*)f_27204}, {C_text("f_27212:library_2escm"),(void*)f_27212}, {C_text("f_27216:library_2escm"),(void*)f_27216}, {C_text("f_27219:library_2escm"),(void*)f_27219}, {C_text("f_27222:library_2escm"),(void*)f_27222}, {C_text("f_27235:library_2escm"),(void*)f_27235}, {C_text("f_27239:library_2escm"),(void*)f_27239}, {C_text("f_27260:library_2escm"),(void*)f_27260}, {C_text("f_27276:library_2escm"),(void*)f_27276}, {C_text("f_27279:library_2escm"),(void*)f_27279}, {C_text("f_27285:library_2escm"),(void*)f_27285}, {C_text("f_27307:library_2escm"),(void*)f_27307}, {C_text("f_27312:library_2escm"),(void*)f_27312}, {C_text("f_27347:library_2escm"),(void*)f_27347}, {C_text("f_27357:library_2escm"),(void*)f_27357}, {C_text("f_27360:library_2escm"),(void*)f_27360}, {C_text("f_27363:library_2escm"),(void*)f_27363}, {C_text("f_27366:library_2escm"),(void*)f_27366}, {C_text("f_27369:library_2escm"),(void*)f_27369}, {C_text("f_27372:library_2escm"),(void*)f_27372}, {C_text("f_27379:library_2escm"),(void*)f_27379}, {C_text("f_27382:library_2escm"),(void*)f_27382}, {C_text("f_27385:library_2escm"),(void*)f_27385}, {C_text("f_27396:library_2escm"),(void*)f_27396}, {C_text("f_27419:library_2escm"),(void*)f_27419}, {C_text("f_27430:library_2escm"),(void*)f_27430}, {C_text("f_27434:library_2escm"),(void*)f_27434}, {C_text("f_27456:library_2escm"),(void*)f_27456}, {C_text("f_27467:library_2escm"),(void*)f_27467}, {C_text("f_27471:library_2escm"),(void*)f_27471}, {C_text("f_28063:library_2escm"),(void*)f_28063}, {C_text("f_28066:library_2escm"),(void*)f_28066}, {C_text("f_28069:library_2escm"),(void*)f_28069}, {C_text("f_28072:library_2escm"),(void*)f_28072}, {C_text("f_28077:library_2escm"),(void*)f_28077}, {C_text("f_28080:library_2escm"),(void*)f_28080}, {C_text("f_28083:library_2escm"),(void*)f_28083}, {C_text("f_28086:library_2escm"),(void*)f_28086}, {C_text("f_28089:library_2escm"),(void*)f_28089}, {C_text("f_28092:library_2escm"),(void*)f_28092}, {C_text("f_28095:library_2escm"),(void*)f_28095}, {C_text("f_28098:library_2escm"),(void*)f_28098}, {C_text("f_28101:library_2escm"),(void*)f_28101}, {C_text("f_28105:library_2escm"),(void*)f_28105}, {C_text("f_28107:library_2escm"),(void*)f_28107}, {C_text("f_28115:library_2escm"),(void*)f_28115}, {C_text("f_28117:library_2escm"),(void*)f_28117}, {C_text("f_28121:library_2escm"),(void*)f_28121}, {C_text("f_28123:library_2escm"),(void*)f_28123}, {C_text("f_28130:library_2escm"),(void*)f_28130}, {C_text("f_28140:library_2escm"),(void*)f_28140}, {C_text("f_28165:library_2escm"),(void*)f_28165}, {C_text("f_28168:library_2escm"),(void*)f_28168}, {C_text("f_28171:library_2escm"),(void*)f_28171}, {C_text("f_28174:library_2escm"),(void*)f_28174}, {C_text("f_28177:library_2escm"),(void*)f_28177}, {C_text("f_28187:library_2escm"),(void*)f_28187}, {C_text("f_28193:library_2escm"),(void*)f_28193}, {C_text("f_28197:library_2escm"),(void*)f_28197}, {C_text("f_28199:library_2escm"),(void*)f_28199}, {C_text("f_28209:library_2escm"),(void*)f_28209}, {C_text("f_28215:library_2escm"),(void*)f_28215}, {C_text("f_28219:library_2escm"),(void*)f_28219}, {C_text("f_28221:library_2escm"),(void*)f_28221}, {C_text("f_28226:library_2escm"),(void*)f_28226}, {C_text("f_28228:library_2escm"),(void*)f_28228}, {C_text("f_28231:library_2escm"),(void*)f_28231}, {C_text("f_28251:library_2escm"),(void*)f_28251}, {C_text("f_28257:library_2escm"),(void*)f_28257}, {C_text("f_28267:library_2escm"),(void*)f_28267}, {C_text("f_28277:library_2escm"),(void*)f_28277}, {C_text("f_28312:library_2escm"),(void*)f_28312}, {C_text("f_28316:library_2escm"),(void*)f_28316}, {C_text("f_28321:library_2escm"),(void*)f_28321}, {C_text("f_28331:library_2escm"),(void*)f_28331}, {C_text("f_28341:library_2escm"),(void*)f_28341}, {C_text("f_28350:library_2escm"),(void*)f_28350}, {C_text("f_28353:library_2escm"),(void*)f_28353}, {C_text("f_28356:library_2escm"),(void*)f_28356}, {C_text("f_28363:library_2escm"),(void*)f_28363}, {C_text("f_28370:library_2escm"),(void*)f_28370}, {C_text("f_28373:library_2escm"),(void*)f_28373}, {C_text("f_28377:library_2escm"),(void*)f_28377}, {C_text("f_28379:library_2escm"),(void*)f_28379}, {C_text("f_28382:library_2escm"),(void*)f_28382}, {C_text("f_28385:library_2escm"),(void*)f_28385}, {C_text("f_28388:library_2escm"),(void*)f_28388}, {C_text("f_28391:library_2escm"),(void*)f_28391}, {C_text("f_28394:library_2escm"),(void*)f_28394}, {C_text("f_28397:library_2escm"),(void*)f_28397}, {C_text("f_28400:library_2escm"),(void*)f_28400}, {C_text("f_28403:library_2escm"),(void*)f_28403}, {C_text("f_28406:library_2escm"),(void*)f_28406}, {C_text("f_28409:library_2escm"),(void*)f_28409}, {C_text("f_28413:library_2escm"),(void*)f_28413}, {C_text("f_28416:library_2escm"),(void*)f_28416}, {C_text("f_28432:library_2escm"),(void*)f_28432}, {C_text("f_28440:library_2escm"),(void*)f_28440}, {C_text("f_28443:library_2escm"),(void*)f_28443}, {C_text("f_28449:library_2escm"),(void*)f_28449}, {C_text("f_28458:library_2escm"),(void*)f_28458}, {C_text("f_28464:library_2escm"),(void*)f_28464}, {C_text("f_28473:library_2escm"),(void*)f_28473}, {C_text("f_28479:library_2escm"),(void*)f_28479}, {C_text("f_28485:library_2escm"),(void*)f_28485}, {C_text("f_28488:library_2escm"),(void*)f_28488}, {C_text("f_28492:library_2escm"),(void*)f_28492}, {C_text("f_28495:library_2escm"),(void*)f_28495}, {C_text("f_28500:library_2escm"),(void*)f_28500}, {C_text("f_28502:library_2escm"),(void*)f_28502}, {C_text("f_28506:library_2escm"),(void*)f_28506}, {C_text("f_28533:library_2escm"),(void*)f_28533}, {C_text("f_28543:library_2escm"),(void*)f_28543}, {C_text("f_28552:library_2escm"),(void*)f_28552}, {C_text("f_28559:library_2escm"),(void*)f_28559}, {C_text("f_28563:library_2escm"),(void*)f_28563}, {C_text("f_28577:library_2escm"),(void*)f_28577}, {C_text("f_28581:library_2escm"),(void*)f_28581}, {C_text("f_28588:library_2escm"),(void*)f_28588}, {C_text("f_28590:library_2escm"),(void*)f_28590}, {C_text("f_28612:library_2escm"),(void*)f_28612}, {C_text("f_28619:library_2escm"),(void*)f_28619}, {C_text("f_28624:library_2escm"),(void*)f_28624}, {C_text("f_28628:library_2escm"),(void*)f_28628}, {C_text("f_28631:library_2escm"),(void*)f_28631}, {C_text("f_28634:library_2escm"),(void*)f_28634}, {C_text("f_28639:library_2escm"),(void*)f_28639}, {C_text("f_28643:library_2escm"),(void*)f_28643}, {C_text("f_28669:library_2escm"),(void*)f_28669}, {C_text("f_28682:library_2escm"),(void*)f_28682}, {C_text("f_28685:library_2escm"),(void*)f_28685}, {C_text("f_28694:library_2escm"),(void*)f_28694}, {C_text("f_28697:library_2escm"),(void*)f_28697}, {C_text("f_28700:library_2escm"),(void*)f_28700}, {C_text("f_28706:library_2escm"),(void*)f_28706}, {C_text("f_28713:library_2escm"),(void*)f_28713}, {C_text("f_28715:library_2escm"),(void*)f_28715}, {C_text("f_28728:library_2escm"),(void*)f_28728}, {C_text("f_28741:library_2escm"),(void*)f_28741}, {C_text("f_28744:library_2escm"),(void*)f_28744}, {C_text("f_28747:library_2escm"),(void*)f_28747}, {C_text("f_28754:library_2escm"),(void*)f_28754}, {C_text("f_28807:library_2escm"),(void*)f_28807}, {C_text("f_28810:library_2escm"),(void*)f_28810}, {C_text("f_28813:library_2escm"),(void*)f_28813}, {C_text("f_28815:library_2escm"),(void*)f_28815}, {C_text("f_28819:library_2escm"),(void*)f_28819}, {C_text("f_28823:library_2escm"),(void*)f_28823}, {C_text("f_28829:library_2escm"),(void*)f_28829}, {C_text("f_28834:library_2escm"),(void*)f_28834}, {C_text("f_28838:library_2escm"),(void*)f_28838}, {C_text("f_28850:library_2escm"),(void*)f_28850}, {C_text("f_28862:library_2escm"),(void*)f_28862}, {C_text("f_28869:library_2escm"),(void*)f_28869}, {C_text("f_28875:library_2escm"),(void*)f_28875}, {C_text("f_28889:library_2escm"),(void*)f_28889}, {C_text("f_28898:library_2escm"),(void*)f_28898}, {C_text("f_28928:library_2escm"),(void*)f_28928}, {C_text("f_28947:library_2escm"),(void*)f_28947}, {C_text("f_28970:library_2escm"),(void*)f_28970}, {C_text("f_28979:library_2escm"),(void*)f_28979}, {C_text("f_28986:library_2escm"),(void*)f_28986}, {C_text("f_29003:library_2escm"),(void*)f_29003}, {C_text("f_29011:library_2escm"),(void*)f_29011}, {C_text("f_29022:library_2escm"),(void*)f_29022}, {C_text("f_29030:library_2escm"),(void*)f_29030}, {C_text("f_29037:library_2escm"),(void*)f_29037}, {C_text("f_29099:library_2escm"),(void*)f_29099}, {C_text("f_29106:library_2escm"),(void*)f_29106}, {C_text("f_29109:library_2escm"),(void*)f_29109}, {C_text("f_29115:library_2escm"),(void*)f_29115}, {C_text("f_29122:library_2escm"),(void*)f_29122}, {C_text("f_29126:library_2escm"),(void*)f_29126}, {C_text("f_29129:library_2escm"),(void*)f_29129}, {C_text("f_29137:library_2escm"),(void*)f_29137}, {C_text("f_29139:library_2escm"),(void*)f_29139}, {C_text("f_29148:library_2escm"),(void*)f_29148}, {C_text("f_29154:library_2escm"),(void*)f_29154}, {C_text("f_29165:library_2escm"),(void*)f_29165}, {C_text("f_29169:library_2escm"),(void*)f_29169}, {C_text("f_29171:library_2escm"),(void*)f_29171}, {C_text("f_29179:library_2escm"),(void*)f_29179}, {C_text("f_29191:library_2escm"),(void*)f_29191}, {C_text("f_29197:library_2escm"),(void*)f_29197}, {C_text("f_29201:library_2escm"),(void*)f_29201}, {C_text("f_29209:library_2escm"),(void*)f_29209}, {C_text("f_29227:library_2escm"),(void*)f_29227}, {C_text("f_29235:library_2escm"),(void*)f_29235}, {C_text("f_29239:library_2escm"),(void*)f_29239}, {C_text("f_29257:library_2escm"),(void*)f_29257}, {C_text("f_29264:library_2escm"),(void*)f_29264}, {C_text("f_29276:library_2escm"),(void*)f_29276}, {C_text("f_29284:library_2escm"),(void*)f_29284}, {C_text("f_29290:library_2escm"),(void*)f_29290}, {C_text("f_29312:library_2escm"),(void*)f_29312}, {C_text("f_29316:library_2escm"),(void*)f_29316}, {C_text("f_29320:library_2escm"),(void*)f_29320}, {C_text("f_29322:library_2escm"),(void*)f_29322}, {C_text("f_29325:library_2escm"),(void*)f_29325}, {C_text("f_29328:library_2escm"),(void*)f_29328}, {C_text("f_29332:library_2escm"),(void*)f_29332}, {C_text("f_29335:library_2escm"),(void*)f_29335}, {C_text("f_29353:library_2escm"),(void*)f_29353}, {C_text("f_29359:library_2escm"),(void*)f_29359}, {C_text("f_29363:library_2escm"),(void*)f_29363}, {C_text("f_29380:library_2escm"),(void*)f_29380}, {C_text("f_29390:library_2escm"),(void*)f_29390}, {C_text("f_29394:library_2escm"),(void*)f_29394}, {C_text("f_29398:library_2escm"),(void*)f_29398}, {C_text("f_29410:library_2escm"),(void*)f_29410}, {C_text("f_29420:library_2escm"),(void*)f_29420}, {C_text("f_29424:library_2escm"),(void*)f_29424}, {C_text("f_29428:library_2escm"),(void*)f_29428}, {C_text("f_29456:library_2escm"),(void*)f_29456}, {C_text("f_29459:library_2escm"),(void*)f_29459}, {C_text("f_29462:library_2escm"),(void*)f_29462}, {C_text("f_29468:library_2escm"),(void*)f_29468}, {C_text("f_29481:library_2escm"),(void*)f_29481}, {C_text("f_29484:library_2escm"),(void*)f_29484}, {C_text("f_29493:library_2escm"),(void*)f_29493}, {C_text("f_29499:library_2escm"),(void*)f_29499}, {C_text("f_29505:library_2escm"),(void*)f_29505}, {C_text("f_29511:library_2escm"),(void*)f_29511}, {C_text("f_29517:library_2escm"),(void*)f_29517}, {C_text("f_29534:library_2escm"),(void*)f_29534}, {C_text("f_29540:library_2escm"),(void*)f_29540}, {C_text("f_29555:library_2escm"),(void*)f_29555}, {C_text("f_29559:library_2escm"),(void*)f_29559}, {C_text("f_29563:library_2escm"),(void*)f_29563}, {C_text("f_29567:library_2escm"),(void*)f_29567}, {C_text("f_29573:library_2escm"),(void*)f_29573}, {C_text("f_29575:library_2escm"),(void*)f_29575}, {C_text("f_29581:library_2escm"),(void*)f_29581}, {C_text("f_29585:library_2escm"),(void*)f_29585}, {C_text("f_29594:library_2escm"),(void*)f_29594}, {C_text("f_29603:library_2escm"),(void*)f_29603}, {C_text("f_29646:library_2escm"),(void*)f_29646}, {C_text("f_29668:library_2escm"),(void*)f_29668}, {C_text("f_29681:library_2escm"),(void*)f_29681}, {C_text("f_29706:library_2escm"),(void*)f_29706}, {C_text("f_29722:library_2escm"),(void*)f_29722}, {C_text("f_29738:library_2escm"),(void*)f_29738}, {C_text("f_29754:library_2escm"),(void*)f_29754}, {C_text("f_29770:library_2escm"),(void*)f_29770}, {C_text("f_29786:library_2escm"),(void*)f_29786}, {C_text("f_29802:library_2escm"),(void*)f_29802}, {C_text("f_29818:library_2escm"),(void*)f_29818}, {C_text("f_29834:library_2escm"),(void*)f_29834}, {C_text("f_29850:library_2escm"),(void*)f_29850}, {C_text("f_29857:library_2escm"),(void*)f_29857}, {C_text("f_29898:library_2escm"),(void*)f_29898}, {C_text("f_29910:library_2escm"),(void*)f_29910}, {C_text("f_29916:library_2escm"),(void*)f_29916}, {C_text("f_29935:library_2escm"),(void*)f_29935}, {C_text("f_29937:library_2escm"),(void*)f_29937}, {C_text("f_29960:library_2escm"),(void*)f_29960}, {C_text("f_30006:library_2escm"),(void*)f_30006}, {C_text("f_30008:library_2escm"),(void*)f_30008}, {C_text("f_30015:library_2escm"),(void*)f_30015}, {C_text("f_30027:library_2escm"),(void*)f_30027}, {C_text("f_30071:library_2escm"),(void*)f_30071}, {C_text("f_30086:library_2escm"),(void*)f_30086}, {C_text("f_30094:library_2escm"),(void*)f_30094}, {C_text("f_30100:library_2escm"),(void*)f_30100}, {C_text("f_30108:library_2escm"),(void*)f_30108}, {C_text("f_30112:library_2escm"),(void*)f_30112}, {C_text("f_30120:library_2escm"),(void*)f_30120}, {C_text("f_30122:library_2escm"),(void*)f_30122}, {C_text("f_30132:library_2escm"),(void*)f_30132}, {C_text("f_30139:library_2escm"),(void*)f_30139}, {C_text("f_30143:library_2escm"),(void*)f_30143}, {C_text("f_30154:library_2escm"),(void*)f_30154}, {C_text("f_30161:library_2escm"),(void*)f_30161}, {C_text("f_30165:library_2escm"),(void*)f_30165}, {C_text("f_30176:library_2escm"),(void*)f_30176}, {C_text("f_30183:library_2escm"),(void*)f_30183}, {C_text("f_30187:library_2escm"),(void*)f_30187}, {C_text("f_30192:library_2escm"),(void*)f_30192}, {C_text("f_30198:library_2escm"),(void*)f_30198}, {C_text("f_30201:library_2escm"),(void*)f_30201}, {C_text("f_30204:library_2escm"),(void*)f_30204}, {C_text("f_30210:library_2escm"),(void*)f_30210}, {C_text("f_30219:library_2escm"),(void*)f_30219}, {C_text("f_30228:library_2escm"),(void*)f_30228}, {C_text("f_30234:library_2escm"),(void*)f_30234}, {C_text("f_30237:library_2escm"),(void*)f_30237}, {C_text("f_30240:library_2escm"),(void*)f_30240}, {C_text("f_30252:library_2escm"),(void*)f_30252}, {C_text("f_30255:library_2escm"),(void*)f_30255}, {C_text("f_30258:library_2escm"),(void*)f_30258}, {C_text("f_30261:library_2escm"),(void*)f_30261}, {C_text("f_30273:library_2escm"),(void*)f_30273}, {C_text("f_30276:library_2escm"),(void*)f_30276}, {C_text("f_30279:library_2escm"),(void*)f_30279}, {C_text("f_30282:library_2escm"),(void*)f_30282}, {C_text("f_30291:library_2escm"),(void*)f_30291}, {C_text("f_30294:library_2escm"),(void*)f_30294}, {C_text("f_30307:library_2escm"),(void*)f_30307}, {C_text("f_30308:library_2escm"),(void*)f_30308}, {C_text("f_30313:library_2escm"),(void*)f_30313}, {C_text("f_30314:library_2escm"),(void*)f_30314}, {C_text("f_30319:library_2escm"),(void*)f_30319}, {C_text("f_30320:library_2escm"),(void*)f_30320}, {C_text("f_30325:library_2escm"),(void*)f_30325}, {C_text("f_30326:library_2escm"),(void*)f_30326}, {C_text("f_30331:library_2escm"),(void*)f_30331}, {C_text("f_30332:library_2escm"),(void*)f_30332}, {C_text("f_30337:library_2escm"),(void*)f_30337}, {C_text("f_30339:library_2escm"),(void*)f_30339}, {C_text("f_30349:library_2escm"),(void*)f_30349}, {C_text("f_30352:library_2escm"),(void*)f_30352}, {C_text("f_30355:library_2escm"),(void*)f_30355}, {C_text("f_30358:library_2escm"),(void*)f_30358}, {C_text("f_30360:library_2escm"),(void*)f_30360}, {C_text("f_30374:library_2escm"),(void*)f_30374}, {C_text("f_30382:library_2escm"),(void*)f_30382}, {C_text("f_30386:library_2escm"),(void*)f_30386}, {C_text("f_30390:library_2escm"),(void*)f_30390}, {C_text("f_30394:library_2escm"),(void*)f_30394}, {C_text("f_30400:library_2escm"),(void*)f_30400}, {C_text("f_30407:library_2escm"),(void*)f_30407}, {C_text("f_30411:library_2escm"),(void*)f_30411}, {C_text("f_30415:library_2escm"),(void*)f_30415}, {C_text("f_30419:library_2escm"),(void*)f_30419}, {C_text("f_30458:library_2escm"),(void*)f_30458}, {C_text("f_30461:library_2escm"),(void*)f_30461}, {C_text("f_30464:library_2escm"),(void*)f_30464}, {C_text("f_30467:library_2escm"),(void*)f_30467}, {C_text("f_30470:library_2escm"),(void*)f_30470}, {C_text("f_30478:library_2escm"),(void*)f_30478}, {C_text("f_30488:library_2escm"),(void*)f_30488}, {C_text("f_30510:library_2escm"),(void*)f_30510}, {C_text("f_30516:library_2escm"),(void*)f_30516}, {C_text("f_30536:library_2escm"),(void*)f_30536}, {C_text("f_30551:library_2escm"),(void*)f_30551}, {C_text("f_30555:library_2escm"),(void*)f_30555}, {C_text("f_30578:library_2escm"),(void*)f_30578}, {C_text("f_30582:library_2escm"),(void*)f_30582}, {C_text("f_30599:library_2escm"),(void*)f_30599}, {C_text("f_30606:library_2escm"),(void*)f_30606}, {C_text("f_30628:library_2escm"),(void*)f_30628}, {C_text("f_30633:library_2escm"),(void*)f_30633}, {C_text("f_30648:library_2escm"),(void*)f_30648}, {C_text("f_30651:library_2escm"),(void*)f_30651}, {C_text("f_30654:library_2escm"),(void*)f_30654}, {C_text("f_30657:library_2escm"),(void*)f_30657}, {C_text("f_30660:library_2escm"),(void*)f_30660}, {C_text("f_30663:library_2escm"),(void*)f_30663}, {C_text("f_30666:library_2escm"),(void*)f_30666}, {C_text("f_30669:library_2escm"),(void*)f_30669}, {C_text("f_30672:library_2escm"),(void*)f_30672}, {C_text("f_30675:library_2escm"),(void*)f_30675}, {C_text("f_30678:library_2escm"),(void*)f_30678}, {C_text("f_30682:library_2escm"),(void*)f_30682}, {C_text("f_30685:library_2escm"),(void*)f_30685}, {C_text("f_30690:library_2escm"),(void*)f_30690}, {C_text("f_30696:library_2escm"),(void*)f_30696}, {C_text("f_30709:library_2escm"),(void*)f_30709}, {C_text("f_30711:library_2escm"),(void*)f_30711}, {C_text("f_30721:library_2escm"),(void*)f_30721}, {C_text("f_30734:library_2escm"),(void*)f_30734}, {C_text("f_30741:library_2escm"),(void*)f_30741}, {C_text("f_30745:library_2escm"),(void*)f_30745}, {C_text("f_30747:library_2escm"),(void*)f_30747}, {C_text("f_30776:library_2escm"),(void*)f_30776}, {C_text("f_30778:library_2escm"),(void*)f_30778}, {C_text("f_30803:library_2escm"),(void*)f_30803}, {C_text("f_30812:library_2escm"),(void*)f_30812}, {C_text("f_30815:library_2escm"),(void*)f_30815}, {C_text("f_30821:library_2escm"),(void*)f_30821}, {C_text("f_30845:library_2escm"),(void*)f_30845}, {C_text("f_30852:library_2escm"),(void*)f_30852}, {C_text("f_30856:library_2escm"),(void*)f_30856}, {C_text("f_30868:library_2escm"),(void*)f_30868}, {C_text("f_30876:library_2escm"),(void*)f_30876}, {C_text("f_30880:library_2escm"),(void*)f_30880}, {C_text("f_30889:library_2escm"),(void*)f_30889}, {C_text("f_30898:library_2escm"),(void*)f_30898}, {C_text("f_30908:library_2escm"),(void*)f_30908}, {C_text("f_30916:library_2escm"),(void*)f_30916}, {C_text("f_30920:library_2escm"),(void*)f_30920}, {C_text("f_30924:library_2escm"),(void*)f_30924}, {C_text("f_30954:library_2escm"),(void*)f_30954}, {C_text("f_30958:library_2escm"),(void*)f_30958}, {C_text("f_30962:library_2escm"),(void*)f_30962}, {C_text("f_30966:library_2escm"),(void*)f_30966}, {C_text("f_30970:library_2escm"),(void*)f_30970}, {C_text("f_30974:library_2escm"),(void*)f_30974}, {C_text("f_30977:library_2escm"),(void*)f_30977}, {C_text("f_30980:library_2escm"),(void*)f_30980}, {C_text("f_30990:library_2escm"),(void*)f_30990}, {C_text("f_30993:library_2escm"),(void*)f_30993}, {C_text("f_30995:library_2escm"),(void*)f_30995}, {C_text("f_31012:library_2escm"),(void*)f_31012}, {C_text("f_31039:library_2escm"),(void*)f_31039}, {C_text("f_31048:library_2escm"),(void*)f_31048}, {C_text("f_31068:library_2escm"),(void*)f_31068}, {C_text("f_31072:library_2escm"),(void*)f_31072}, {C_text("f_31076:library_2escm"),(void*)f_31076}, {C_text("f_31080:library_2escm"),(void*)f_31080}, {C_text("f_31084:library_2escm"),(void*)f_31084}, {C_text("f_31088:library_2escm"),(void*)f_31088}, {C_text("f_31092:library_2escm"),(void*)f_31092}, {C_text("f_31094:library_2escm"),(void*)f_31094}, {C_text("f_31103:library_2escm"),(void*)f_31103}, {C_text("f_31113:library_2escm"),(void*)f_31113}, {C_text("f_31138:library_2escm"),(void*)f_31138}, {C_text("f_31141:library_2escm"),(void*)f_31141}, {C_text("f_31143:library_2escm"),(void*)f_31143}, {C_text("f_31159:library_2escm"),(void*)f_31159}, {C_text("f_31178:library_2escm"),(void*)f_31178}, {C_text("f_31188:library_2escm"),(void*)f_31188}, {C_text("f_31198:library_2escm"),(void*)f_31198}, {C_text("f_31222:library_2escm"),(void*)f_31222}, {C_text("f_31226:library_2escm"),(void*)f_31226}, {C_text("f_31228:library_2escm"),(void*)f_31228}, {C_text("f_31232:library_2escm"),(void*)f_31232}, {C_text("f_31235:library_2escm"),(void*)f_31235}, {C_text("f_31250:library_2escm"),(void*)f_31250}, {C_text("f_31256:library_2escm"),(void*)f_31256}, {C_text("f_31260:library_2escm"),(void*)f_31260}, {C_text("f_31269:library_2escm"),(void*)f_31269}, {C_text("f_31272:library_2escm"),(void*)f_31272}, {C_text("f_31275:library_2escm"),(void*)f_31275}, {C_text("f_31278:library_2escm"),(void*)f_31278}, {C_text("f_31281:library_2escm"),(void*)f_31281}, {C_text("f_31287:library_2escm"),(void*)f_31287}, {C_text("f_31293:library_2escm"),(void*)f_31293}, {C_text("f_31296:library_2escm"),(void*)f_31296}, {C_text("f_31301:library_2escm"),(void*)f_31301}, {C_text("f_31311:library_2escm"),(void*)f_31311}, {C_text("f_31323:library_2escm"),(void*)f_31323}, {C_text("f_31331:library_2escm"),(void*)f_31331}, {C_text("f_31341:library_2escm"),(void*)f_31341}, {C_text("f_31357:library_2escm"),(void*)f_31357}, {C_text("f_31363:library_2escm"),(void*)f_31363}, {C_text("f_31366:library_2escm"),(void*)f_31366}, {C_text("f_31369:library_2escm"),(void*)f_31369}, {C_text("f_31370:library_2escm"),(void*)f_31370}, {C_text("f_31374:library_2escm"),(void*)f_31374}, {C_text("f_31380:library_2escm"),(void*)f_31380}, {C_text("f_31384:library_2escm"),(void*)f_31384}, {C_text("f_31386:library_2escm"),(void*)f_31386}, {C_text("f_31396:library_2escm"),(void*)f_31396}, {C_text("f_31413:library_2escm"),(void*)f_31413}, {C_text("f_31416:library_2escm"),(void*)f_31416}, {C_text("f_31420:library_2escm"),(void*)f_31420}, {C_text("f_31425:library_2escm"),(void*)f_31425}, {C_text("f_31431:library_2escm"),(void*)f_31431}, {C_text("f_31438:library_2escm"),(void*)f_31438}, {C_text("f_31447:library_2escm"),(void*)f_31447}, {C_text("f_31455:library_2escm"),(void*)f_31455}, {C_text("f_31480:library_2escm"),(void*)f_31480}, {C_text("f_31498:library_2escm"),(void*)f_31498}, {C_text("f_31502:library_2escm"),(void*)f_31502}, {C_text("f_31517:library_2escm"),(void*)f_31517}, {C_text("f_31521:library_2escm"),(void*)f_31521}, {C_text("f_31536:library_2escm"),(void*)f_31536}, {C_text("f_31539:library_2escm"),(void*)f_31539}, {C_text("f_31542:library_2escm"),(void*)f_31542}, {C_text("f_31552:library_2escm"),(void*)f_31552}, {C_text("f_31583:library_2escm"),(void*)f_31583}, {C_text("f_31607:library_2escm"),(void*)f_31607}, {C_text("f_31617:library_2escm"),(void*)f_31617}, {C_text("f_31626:library_2escm"),(void*)f_31626}, {C_text("f_31667:library_2escm"),(void*)f_31667}, {C_text("f_31686:library_2escm"),(void*)f_31686}, {C_text("f_31695:library_2escm"),(void*)f_31695}, {C_text("f_31705:library_2escm"),(void*)f_31705}, {C_text("f_31715:library_2escm"),(void*)f_31715}, {C_text("f_31725:library_2escm"),(void*)f_31725}, {C_text("f_31735:library_2escm"),(void*)f_31735}, {C_text("f_31745:library_2escm"),(void*)f_31745}, {C_text("f_31755:library_2escm"),(void*)f_31755}, {C_text("f_31765:library_2escm"),(void*)f_31765}, {C_text("f_31775:library_2escm"),(void*)f_31775}, {C_text("f_31785:library_2escm"),(void*)f_31785}, {C_text("f_31795:library_2escm"),(void*)f_31795}, {C_text("f_31805:library_2escm"),(void*)f_31805}, {C_text("f_31815:library_2escm"),(void*)f_31815}, {C_text("f_31825:library_2escm"),(void*)f_31825}, {C_text("f_31841:library_2escm"),(void*)f_31841}, {C_text("f_31849:library_2escm"),(void*)f_31849}, {C_text("f_31865:library_2escm"),(void*)f_31865}, {C_text("f_31881:library_2escm"),(void*)f_31881}, {C_text("f_31891:library_2escm"),(void*)f_31891}, {C_text("f_31901:library_2escm"),(void*)f_31901}, {C_text("f_31920:library_2escm"),(void*)f_31920}, {C_text("f_31936:library_2escm"),(void*)f_31936}, {C_text("f_31949:library_2escm"),(void*)f_31949}, {C_text("f_31955:library_2escm"),(void*)f_31955}, {C_text("f_31978:library_2escm"),(void*)f_31978}, {C_text("f_31982:library_2escm"),(void*)f_31982}, {C_text("f_31986:library_2escm"),(void*)f_31986}, {C_text("f_31989:library_2escm"),(void*)f_31989}, {C_text("f_31995:library_2escm"),(void*)f_31995}, {C_text("f_32018:library_2escm"),(void*)f_32018}, {C_text("f_32022:library_2escm"),(void*)f_32022}, {C_text("f_32026:library_2escm"),(void*)f_32026}, {C_text("f_32029:library_2escm"),(void*)f_32029}, {C_text("f_32032:library_2escm"),(void*)f_32032}, {C_text("f_32035:library_2escm"),(void*)f_32035}, {C_text("f_32041:library_2escm"),(void*)f_32041}, {C_text("f_32044:library_2escm"),(void*)f_32044}, {C_text("f_32047:library_2escm"),(void*)f_32047}, {C_text("f_32055:library_2escm"),(void*)f_32055}, {C_text("f_32057:library_2escm"),(void*)f_32057}, {C_text("f_32081:library_2escm"),(void*)f_32081}, {C_text("f_32104:library_2escm"),(void*)f_32104}, {C_text("f_32108:library_2escm"),(void*)f_32108}, {C_text("f_32112:library_2escm"),(void*)f_32112}, {C_text("f_32146:library_2escm"),(void*)f_32146}, {C_text("f_32150:library_2escm"),(void*)f_32150}, {C_text("f_32153:library_2escm"),(void*)f_32153}, {C_text("f_32166:library_2escm"),(void*)f_32166}, {C_text("f_32199:library_2escm"),(void*)f_32199}, {C_text("f_32214:library_2escm"),(void*)f_32214}, {C_text("f_32218:library_2escm"),(void*)f_32218}, {C_text("f_32242:library_2escm"),(void*)f_32242}, {C_text("f_32250:library_2escm"),(void*)f_32250}, {C_text("f_32254:library_2escm"),(void*)f_32254}, {C_text("f_32265:library_2escm"),(void*)f_32265}, {C_text("f_32269:library_2escm"),(void*)f_32269}, {C_text("f_32273:library_2escm"),(void*)f_32273}, {C_text("f_32287:library_2escm"),(void*)f_32287}, {C_text("f_32319:library_2escm"),(void*)f_32319}, {C_text("f_8512:library_2escm"),(void*)f_8512}, {C_text("f_8514:library_2escm"),(void*)f_8514}, {C_text("f_8517:library_2escm"),(void*)f_8517}, {C_text("f_8520:library_2escm"),(void*)f_8520}, {C_text("f_8523:library_2escm"),(void*)f_8523}, {C_text("f_8526:library_2escm"),(void*)f_8526}, {C_text("f_8529:library_2escm"),(void*)f_8529}, {C_text("f_8532:library_2escm"),(void*)f_8532}, {C_text("f_8535:library_2escm"),(void*)f_8535}, {C_text("f_8538:library_2escm"),(void*)f_8538}, {C_text("f_8541:library_2escm"),(void*)f_8541}, {C_text("f_8544:library_2escm"),(void*)f_8544}, {C_text("f_8547:library_2escm"),(void*)f_8547}, {C_text("f_8550:library_2escm"),(void*)f_8550}, {C_text("f_8553:library_2escm"),(void*)f_8553}, {C_text("f_8556:library_2escm"),(void*)f_8556}, {C_text("f_8559:library_2escm"),(void*)f_8559}, {C_text("f_8562:library_2escm"),(void*)f_8562}, {C_text("f_8565:library_2escm"),(void*)f_8565}, {C_text("f_8568:library_2escm"),(void*)f_8568}, {C_text("f_8582:library_2escm"),(void*)f_8582}, {C_text("f_8589:library_2escm"),(void*)f_8589}, {C_text("f_8596:library_2escm"),(void*)f_8596}, {C_text("f_8610:library_2escm"),(void*)f_8610}, {C_text("f_8617:library_2escm"),(void*)f_8617}, {C_text("f_8631:library_2escm"),(void*)f_8631}, {C_text("f_8645:library_2escm"),(void*)f_8645}, {C_text("f_8663:library_2escm"),(void*)f_8663}, {C_text("f_8674:library_2escm"),(void*)f_8674}, {C_text("f_8685:library_2escm"),(void*)f_8685}, {C_text("f_8692:library_2escm"),(void*)f_8692}, {C_text("f_8703:library_2escm"),(void*)f_8703}, {C_text("f_8707:library_2escm"),(void*)f_8707}, {C_text("f_8714:library_2escm"),(void*)f_8714}, {C_text("f_8732:library_2escm"),(void*)f_8732}, {C_text("f_8743:library_2escm"),(void*)f_8743}, {C_text("f_8754:library_2escm"),(void*)f_8754}, {C_text("f_8761:library_2escm"),(void*)f_8761}, {C_text("f_8779:library_2escm"),(void*)f_8779}, {C_text("f_8790:library_2escm"),(void*)f_8790}, {C_text("f_8808:library_2escm"),(void*)f_8808}, {C_text("f_8814:library_2escm"),(void*)f_8814}, {C_text("f_8817:library_2escm"),(void*)f_8817}, {C_text("f_8820:library_2escm"),(void*)f_8820}, {C_text("f_8823:library_2escm"),(void*)f_8823}, {C_text("f_8826:library_2escm"),(void*)f_8826}, {C_text("f_8832:library_2escm"),(void*)f_8832}, {C_text("f_8865:library_2escm"),(void*)f_8865}, {C_text("f_8868:library_2escm"),(void*)f_8868}, {C_text("f_8871:library_2escm"),(void*)f_8871}, {C_text("f_8874:library_2escm"),(void*)f_8874}, {C_text("f_8877:library_2escm"),(void*)f_8877}, {C_text("f_8880:library_2escm"),(void*)f_8880}, {C_text("f_8883:library_2escm"),(void*)f_8883}, {C_text("f_8886:library_2escm"),(void*)f_8886}, {C_text("f_8889:library_2escm"),(void*)f_8889}, {C_text("f_8892:library_2escm"),(void*)f_8892}, {C_text("f_8895:library_2escm"),(void*)f_8895}, {C_text("f_8898:library_2escm"),(void*)f_8898}, {C_text("f_8901:library_2escm"),(void*)f_8901}, {C_text("f_8905:library_2escm"),(void*)f_8905}, {C_text("f_8908:library_2escm"),(void*)f_8908}, {C_text("f_8914:library_2escm"),(void*)f_8914}, {C_text("f_8917:library_2escm"),(void*)f_8917}, {C_text("f_8920:library_2escm"),(void*)f_8920}, {C_text("f_8923:library_2escm"),(void*)f_8923}, {C_text("f_8926:library_2escm"),(void*)f_8926}, {C_text("f_8934:library_2escm"),(void*)f_8934}, {C_text("f_8938:library_2escm"),(void*)f_8938}, {C_text("f_8941:library_2escm"),(void*)f_8941}, {C_text("f_8944:library_2escm"),(void*)f_8944}, {C_text("f_8947:library_2escm"),(void*)f_8947}, {C_text("f_8950:library_2escm"),(void*)f_8950}, {C_text("f_8953:library_2escm"),(void*)f_8953}, {C_text("f_8956:library_2escm"),(void*)f_8956}, {C_text("f_8959:library_2escm"),(void*)f_8959}, {C_text("f_8963:library_2escm"),(void*)f_8963}, {C_text("f_8966:library_2escm"),(void*)f_8966}, {C_text("f_8969:library_2escm"),(void*)f_8969}, {C_text("f_8972:library_2escm"),(void*)f_8972}, {C_text("f_8975:library_2escm"),(void*)f_8975}, {C_text("f_8983:library_2escm"),(void*)f_8983}, {C_text("f_8986:library_2escm"),(void*)f_8986}, {C_text("f_8993:library_2escm"),(void*)f_8993}, {C_text("f_8997:library_2escm"),(void*)f_8997}, {C_text("f_9000:library_2escm"),(void*)f_9000}, {C_text("f_9003:library_2escm"),(void*)f_9003}, {C_text("f_9006:library_2escm"),(void*)f_9006}, {C_text("f_9009:library_2escm"),(void*)f_9009}, {C_text("f_9012:library_2escm"),(void*)f_9012}, {C_text("f_9015:library_2escm"),(void*)f_9015}, {C_text("f_9021:library_2escm"),(void*)f_9021}, {C_text("f_9032:library_2escm"),(void*)f_9032}, {C_text("f_9038:library_2escm"),(void*)f_9038}, {C_text("f_9044:library_2escm"),(void*)f_9044}, {C_text("f_9050:library_2escm"),(void*)f_9050}, {C_text("f_9056:library_2escm"),(void*)f_9056}, {C_text("f_9062:library_2escm"),(void*)f_9062}, {C_text("f_9069:library_2escm"),(void*)f_9069}, {C_text("f_9075:library_2escm"),(void*)f_9075}, {C_text("f_9091:library_2escm"),(void*)f_9091}, {C_text("f_9102:library_2escm"),(void*)f_9102}, {C_text("f_9108:library_2escm"),(void*)f_9108}, {C_text("f_9114:library_2escm"),(void*)f_9114}, {C_text("f_9120:library_2escm"),(void*)f_9120}, {C_text("f_9126:library_2escm"),(void*)f_9126}, {C_text("f_9135:library_2escm"),(void*)f_9135}, {C_text("f_9138:library_2escm"),(void*)f_9138}, {C_text("f_9141:library_2escm"),(void*)f_9141}, {C_text("f_9144:library_2escm"),(void*)f_9144}, {C_text("f_9147:library_2escm"),(void*)f_9147}, {C_text("f_9150:library_2escm"),(void*)f_9150}, {C_text("f_9154:library_2escm"),(void*)f_9154}, {C_text("f_9160:library_2escm"),(void*)f_9160}, {C_text("f_9166:library_2escm"),(void*)f_9166}, {C_text("f_9201:library_2escm"),(void*)f_9201}, {C_text("f_9204:library_2escm"),(void*)f_9204}, {C_text("f_9207:library_2escm"),(void*)f_9207}, {C_text("f_9215:library_2escm"),(void*)f_9215}, {C_text("f_9221:library_2escm"),(void*)f_9221}, {C_text("f_9228:library_2escm"),(void*)f_9228}, {C_text("f_9243:library_2escm"),(void*)f_9243}, {C_text("f_9264:library_2escm"),(void*)f_9264}, {C_text("f_9270:library_2escm"),(void*)f_9270}, {C_text("f_9276:library_2escm"),(void*)f_9276}, {C_text("f_9283:library_2escm"),(void*)f_9283}, {C_text("f_9288:library_2escm"),(void*)f_9288}, {C_text("f_9291:library_2escm"),(void*)f_9291}, {C_text("f_9300:library_2escm"),(void*)f_9300}, {C_text("f_9318:library_2escm"),(void*)f_9318}, {C_text("f_9328:library_2escm"),(void*)f_9328}, {C_text("f_9337:library_2escm"),(void*)f_9337}, {C_text("f_9355:library_2escm"),(void*)f_9355}, {C_text("f_9368:library_2escm"),(void*)f_9368}, {C_text("f_9375:library_2escm"),(void*)f_9375}, {C_text("f_9382:library_2escm"),(void*)f_9382}, {C_text("f_9393:library_2escm"),(void*)f_9393}, {C_text("f_9400:library_2escm"),(void*)f_9400}, {C_text("f_9412:library_2escm"),(void*)f_9412}, {C_text("f_9415:library_2escm"),(void*)f_9415}, {C_text("f_9417:library_2escm"),(void*)f_9417}, {C_text("f_9423:library_2escm"),(void*)f_9423}, {C_text("f_9439:library_2escm"),(void*)f_9439}, {C_text("f_9448:library_2escm"),(void*)f_9448}, {C_text("f_9450:library_2escm"),(void*)f_9450}, {C_text("f_9456:library_2escm"),(void*)f_9456}, {C_text("f_9469:library_2escm"),(void*)f_9469}, {C_text("f_9485:library_2escm"),(void*)f_9485}, {C_text("f_9496:library_2escm"),(void*)f_9496}, {C_text("f_9498:library_2escm"),(void*)f_9498}, {C_text("f_9506:library_2escm"),(void*)f_9506}, {C_text("f_9508:library_2escm"),(void*)f_9508}, {C_text("f_9514:library_2escm"),(void*)f_9514}, {C_text("f_9516:library_2escm"),(void*)f_9516}, {C_text("f_9524:library_2escm"),(void*)f_9524}, {C_text("f_9526:library_2escm"),(void*)f_9526}, {C_text("f_9529:library_2escm"),(void*)f_9529}, {C_text("f_9537:library_2escm"),(void*)f_9537}, {C_text("f_9543:library_2escm"),(void*)f_9543}, {C_text("f_9551:library_2escm"),(void*)f_9551}, {C_text("f_9562:library_2escm"),(void*)f_9562}, {C_text("f_9574:library_2escm"),(void*)f_9574}, {C_text("f_9588:library_2escm"),(void*)f_9588}, {C_text("f_9596:library_2escm"),(void*)f_9596}, {C_text("f_9599:library_2escm"),(void*)f_9599}, {C_text("f_9601:library_2escm"),(void*)f_9601}, {C_text("f_9603:library_2escm"),(void*)f_9603}, {C_text("f_9609:library_2escm"),(void*)f_9609}, {C_text("f_9628:library_2escm"),(void*)f_9628}, {C_text("f_9645:library_2escm"),(void*)f_9645}, {C_text("f_9653:library_2escm"),(void*)f_9653}, {C_text("f_9667:library_2escm"),(void*)f_9667}, {C_text("f_9673:library_2escm"),(void*)f_9673}, {C_text("f_9692:library_2escm"),(void*)f_9692}, {C_text("f_9701:library_2escm"),(void*)f_9701}, {C_text("f_9704:library_2escm"),(void*)f_9704}, {C_text("f_9716:library_2escm"),(void*)f_9716}, {C_text("f_9732:library_2escm"),(void*)f_9732}, {C_text("f_9738:library_2escm"),(void*)f_9738}, {C_text("f_9763:library_2escm"),(void*)f_9763}, {C_text("f_9765:library_2escm"),(void*)f_9765}, {C_text("f_9774:library_2escm"),(void*)f_9774}, {C_text("f_9795:library_2escm"),(void*)f_9795}, {C_text("f_9797:library_2escm"),(void*)f_9797}, {C_text("f_9803:library_2escm"),(void*)f_9803}, {C_text("f_9829:library_2escm"),(void*)f_9829}, {C_text("f_9836:library_2escm"),(void*)f_9836}, {C_text("f_9838:library_2escm"),(void*)f_9838}, {C_text("f_9842:library_2escm"),(void*)f_9842}, {C_text("f_9850:library_2escm"),(void*)f_9850}, {C_text("f_9885:library_2escm"),(void*)f_9885}, {C_text("f_9895:library_2escm"),(void*)f_9895}, {C_text("f_9904:library_2escm"),(void*)f_9904}, {C_text("f_9946:library_2escm"),(void*)f_9946}, {C_text("f_9975:library_2escm"),(void*)f_9975}, {C_text("f_9982:library_2escm"),(void*)f_9982}, {C_text("f_9985:library_2escm"),(void*)f_9985}, {C_text("toplevel:library_2escm"),(void*)C_library_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: scheme#string-fill o|hiding unexported module binding: chicken.condition#prop-list->kind-prefixed-prop-list o|hiding unexported module binding: chicken.platform#path-list-separator o|hiding unexported module binding: chicken.platform#->feature-id S|applied compiler syntax: S| scheme#for-each 9 S| ##sys#map 1 S| ##sys#for-each 4 S| scheme#map 7 o|eliminated procedure checks: 526 o|folded constant expression: (scheme#char->integer (quote #\0)) o|folded constant expression: (scheme#char->integer (quote #\a)) o|folded constant expression: (scheme#char->integer (quote #\A)) o|folded constant expression: (scheme#integer->char (quote 11)) o|folded constant expression: (scheme#integer->char (quote 127)) o|folded constant expression: (scheme#integer->char (quote 27)) o|folded constant expression: (scheme#integer->char (quote 27)) o|folded constant expression: (scheme#integer->char (quote 7)) o|folded constant expression: (scheme#integer->char (quote 0)) o|folded constant expression: (scheme#integer->char (quote 0)) o|folded constant expression: (scheme#integer->char (quote 12)) o|folded constant expression: (scheme#integer->char (quote 8)) o|folded constant expression: (scheme#integer->char (quote 7)) o|folded constant expression: (scheme#integer->char (quote 11)) o|folded constant expression: (scheme#integer->char (quote 12)) o|folded constant expression: (scheme#expt (quote 1024) (quote 3)) o|folded constant expression: (scheme#expt (quote 1024) (quote 3)) o|folded constant expression: (scheme#expt (quote 1024) (quote 2)) o|folded constant expression: (scheme#expt (quote 1024) (quote 2)) o|specializations: o| 1 (scheme#zero? integer) o| 1 (scheme#string-append string string) o| 1 (scheme#make-string fixnum) o| 1 (scheme#cdar (pair pair *)) o| 2 (scheme#cddr (pair * pair)) o| 1 (scheme#char>? char char) o| 13 (scheme#char=? char char) o| 3 (scheme#string-ref string fixnum) o| 5 (##sys#check-input-port * * *) o| 11 (##sys#check-output-port * * *) o| 1 (##sys#check-output-port * *) o| 1 (##sys#check-input-port * *) o| 13 (##sys#check-list (or pair list) *) o| 43 (scheme#cdr pair) o| 4 (scheme#char>=? char char) o| 6 (scheme#char<=? char char) o| 5 (scheme#zero? *) o| 24 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 1 (scheme#> fixnum fixnum) o| 1 (scheme#make-string fixnum char) o| 1 (scheme#string-length string) o| 6 (scheme#number->string * *) o| 3 (scheme#integer? *) o| 2 (scheme#even? *) o| 5 (scheme#/ * *) o| 1 (scheme#+ integer integer) o| 1 (scheme#- integer integer) o| 5 (chicken.bitwise#integer-length *) o| 207 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 2 (chicken.flonum#fp<= float float) o| 7 (scheme#- *) o| 1 (scheme#odd? *) o| 1 (chicken.flonum#fp> float float) o| 2 (scheme#angle cplxnum) o| 5 (chicken.base#finite? *) o| 13 (chicken.base#exact-integer? *) o| 8 (scheme#abs *) o| 17 (scheme#exact->inexact number) o| 5 (##sys#debug-mode?) o| 49 (scheme#car pair) o| 4 (scheme#length list) o| 12 (scheme#negative? *) o| 4 (scheme#positive? *) (o e)|safe calls: 3243 (o e)|dropped branches: 3 (o e)|assignments to immediate values: 27 o|dropping redundant toplevel assignment: chicken.base#warning o|dropping redundant toplevel assignment: chicken.base#notice o|dropping redundant toplevel assignment: chicken.base#enable-warnings o|dropping redundant toplevel assignment: scheme#force o|dropping redundant toplevel assignment: scheme#append o|dropping redundant toplevel assignment: scheme#make-string o|dropping redundant toplevel assignment: scheme#string->list o|dropping redundant toplevel assignment: scheme#list->string o|dropping redundant toplevel assignment: scheme#string-fill! o|dropping redundant toplevel assignment: scheme#string-copy o|dropping redundant toplevel assignment: scheme#substring o|dropping redundant toplevel assignment: scheme#string<? o|dropping redundant toplevel assignment: scheme#string>? o|dropping redundant toplevel assignment: scheme#string<=? o|dropping redundant toplevel assignment: scheme#string>=? o|dropping redundant toplevel assignment: scheme#string-ci<? o|dropping redundant toplevel assignment: scheme#string-ci>? o|dropping redundant toplevel assignment: scheme#string-ci<=? o|dropping redundant toplevel assignment: scheme#string-ci>=? o|dropping redundant toplevel assignment: scheme#string-append o|dropping redundant toplevel assignment: scheme#string o|dropping redundant toplevel assignment: chicken.base#chop o|dropping redundant toplevel assignment: scheme#make-rectangular o|dropping redundant toplevel assignment: scheme#make-polar o|dropping redundant toplevel assignment: scheme#real-part o|dropping redundant toplevel assignment: scheme#imag-part o|dropping redundant toplevel assignment: scheme#angle o|dropping redundant toplevel assignment: scheme#magnitude o|dropping redundant toplevel assignment: scheme#numerator o|dropping redundant toplevel assignment: scheme#denominator o|dropping redundant toplevel assignment: scheme#inexact->exact o|dropping redundant toplevel assignment: scheme#/ o|dropping redundant toplevel assignment: scheme#floor o|dropping redundant toplevel assignment: scheme#ceiling o|dropping redundant toplevel assignment: scheme#truncate o|dropping redundant toplevel assignment: scheme#round o|dropping redundant toplevel assignment: scheme#rationalize o|dropping redundant toplevel assignment: scheme#max o|dropping redundant toplevel assignment: scheme#min o|dropping redundant toplevel assignment: scheme#exp o|dropping redundant toplevel assignment: scheme#log o|dropping redundant toplevel assignment: scheme#sin o|dropping redundant toplevel assignment: scheme#cos o|dropping redundant toplevel assignment: scheme#tan o|dropping redundant toplevel assignment: scheme#asin o|dropping redundant toplevel assignment: scheme#acos o|dropping redundant toplevel assignment: scheme#atan o|dropping redundant toplevel assignment: chicken.base#exact-integer-sqrt o|dropping redundant toplevel assignment: scheme#sqrt o|dropping redundant toplevel assignment: chicken.base#exact-integer-nth-root o|dropping redundant toplevel assignment: scheme#expt o|dropping redundant toplevel assignment: scheme#gcd o|dropping redundant toplevel assignment: scheme#lcm o|dropping redundant toplevel assignment: scheme#string->number o|dropping redundant toplevel assignment: ##sys#number->string o|dropping redundant toplevel assignment: chicken.base#equal=? o|dropping redundant toplevel assignment: scheme#symbol->string o|dropping redundant toplevel assignment: scheme#string->symbol o|dropping redundant toplevel assignment: chicken.base#string->uninterned-symbol o|dropping redundant toplevel assignment: chicken.base#gensym o|dropping redundant toplevel assignment: chicken.base#symbol-append o|dropping redundant toplevel assignment: ##sys#update-errno o|dropping redundant toplevel assignment: ##sys#errno o|safe globals: (chicken.keyword#keyword->string chicken.keyword#string->keyword chicken.keyword#keyword? chicken.base#symbol-append chicken.base#gensym chicken.base#string->uninterned-symbol scheme#string->symbol scheme#symbol->string ##sys#symbol->string ##sys#string->symbol ##sys#interned-symbol? ##sys#intern-keyword ##sys#intern-symbol ##sys#snafu chicken.base#equal=? ##sys#number->string ##sys#integer->string ##sys#flonum->string ##sys#fixnum->string ##sys#string->number scheme#string->number ##sys#string->compnum round-quotient ldexp mantexp->dbl ##sys#extended-number->string ##sys#integer->string/recursive scheme#lcm ##sys#lcm scheme#gcd ##sys#gcd ##sys#internal-gcd scheme#expt ##sys#integer-power ##sys#exact-integer-nth-root/loc chicken.base#exact-integer-nth-root scheme#sqrt ##sys#sqrt/loc chicken.base#exact-integer-sqrt ##sys#exact-integer-sqrt scheme#atan scheme#acos scheme#asin scheme#tan scheme#cos scheme#sin scheme#log ##sys#log-1 scheme#exp scheme#min scheme#max scheme#rationalize find-ratio find-ratio-between scheme#round scheme#truncate scheme#ceiling scheme#floor ##sys#/-2 scheme#/ chicken.bitwise#arithmetic-shift chicken.bitwise#integer-length chicken.bitwise#bit->boolean chicken.bitwise#bitwise-not chicken.bitwise#bitwise-xor chicken.bitwise#bitwise-ior chicken.bitwise#bitwise-and ##sys#inexact->exact ##sys#exact->inexact scheme#inexact->exact flonum->ratnum ##sys#extended-signum scheme#denominator scheme#numerator ratnum scheme#magnitude scheme#angle scheme#imag-part scheme#real-part scheme#make-polar scheme#make-rectangular make-complex ##sys#inexact? ##sys#exact? ##sys#integer? ##sys#number? chicken.flonum#flonum-print-precision chicken.flonum#fpinteger? chicken.flonum#fpabs chicken.flonum#fpsqrt chicken.flonum#fplog chicken.flonum#fpexpt chicken.flonum#fpexp chicken.flonum#fpatan2 chicken.flonum#fpatan chicken.flonum#fpacos chicken.flonum#fpasin chicken.flonum#fptan chicken.flonum#fpcos chicken.flonum#fpsin chicken.flonum#fpceiling chicken.flonum#fpround chicken.flonum#fptruncate chicken.flonum#fpfloor chicken.flonum#fpmin chicken.flonum#fpmax chicken.flonum#fpneg chicken.flonum#fp<= chicken.flonum#fp>= chicken.flonum#fp< chicken.flonum#fp> chicken.flonum#fp= chicken.flonum#fp/? chicken.flonum#fpgcd chicken.flonum#fp/ chicken.flonum#fp* chicken.flonum#fp- chicken.flonum#fp+ chicken.flonum#flonum-minimum-decimal-exponent chicken.flonum#flonum-maximum-decimal-exponent chicken.flonum#flonum-minimum-exponent chicken.flonum#flonum-maximum-exponent chicken.flonum#flonum-decimal-precision chicken.flonum#flonum-precision chicken.flonum#flonum-epsilon chicken.flonum#flonum-radix chicken.flonum#minimum-flonum chicken.flonum#maximum-flonum chicken.base#chop ##sys#fragments->string scheme#string scheme#string-append ##sys#string-append scheme#string-ci>=? scheme#string-ci<=? scheme#string-ci>? scheme#string-ci<? scheme#string>=? scheme#string<=? scheme#string>? scheme#string<? ##sys#substring scheme#substring scheme#string-copy scheme#string-fill! ##sys#reverse-list->string ##sys#list->string scheme#list->string ##sys#string->list scheme#string->list scheme#make-string ##sys#make-string ##sys#fast-reverse scheme#append ##sys#error-bad-base ##sys#error-bad-real ##sys#error-bad-inexact ##sys#error-bad-exact-uinteger ##sys#error-bad-exact-integer ##sys#error-bad-integer ##sys#error-bad-number ##sys#error-not-a-proper-list ##sys#set-dlopen-flags! ##sys#dload scheme#force ##sys#check-closure ##sys#check-special ##sys#check-range ##sys#check-real ##sys#check-exact-uinteger ##sys#check-exact-integer ##sys#check-integer ##sys#check-locative ##sys#check-boolean ##sys#check-char ##sys#check-vector ##sys#check-keyword ##sys#check-symbol ##sys#check-inexact ##sys#check-exact ##sys#check-fixnum ##sys#check-number ##sys#check-string ##sys#check-list ##sys#check-pair ##sys#check-byte-vector ##sys#check-blob ##sys#check-structure chicken.time#cpu-time chicken.time#current-seconds chicken.time#current-milliseconds ##sys#block-set! ##sys#copy-closure ##sys#apply-values ##sys#block-ref ##sys#become! ##sys#halt ##sys#undefined-value ##sys#void ##sys#setbyte ##sys#byte ##sys#message ##sys#immediate? ##sys#stop-timer ##sys#start-timer ##sys#memory-info ##sys#symbol-table-info ##sys#ensure-heap-reserve ##sys#make-structure ##sys#allocate-vector ##sys#setislot ##sys#setslot ##sys#gc ##sys#notice ##sys#warn ##sys#error chicken.base#enable-warnings chicken.base#notice chicken.base#warning ##sys#notices-enabled ##sys#warnings-enabled ##sys#debug-mode? chicken.fixnum#fx/? chicken.fixnum#fx*? chicken.fixnum#fx-? chicken.fixnum#fx+? chicken.fixnum#fxrem chicken.fixnum#fxmod chicken.fixnum#fxgcd chicken.fixnum#fx/ chicken.fixnum#fxlen chicken.fixnum#fxeven? chicken.fixnum#fxodd? chicken.fixnum#fxshr chicken.fixnum#fxshl chicken.fixnum#fxnot chicken.fixnum#fxxor chicken.fixnum#fxior chicken.fixnum#fxand chicken.fixnum#fxneg chicken.fixnum#fxmax chicken.fixnum#fxmin chicken.fixnum#fx<= chicken.fixnum#fx>= chicken.fixnum#fx< chicken.fixnum#fx> chicken.fixnum#fx= chicken.fixnum#fx* chicken.fixnum#fx- chicken.fixnum#fx+ chicken.fixnum#fixnum-precision chicken.fixnum#fixnum-bits chicken.fixnum#most-negative-fixnum chicken.fixnum#most-positive-fixnum maximal-string-length chicken.base#rassoc chicken.base#alist-ref chicken.base#alist-update chicken.base#alist-update! chicken.base#compress chicken.base#join chicken.base#flatten chicken.base#butlast chicken.base#intersperse chicken.base#tail? chicken.base#atom? chicken.base#each chicken.base#list-of? chicken.base#o chicken.base#compose chicken.base#complement chicken.base#flip chicken.base#constantly chicken.base#disjoin chicken.base#conjoin chicken.base#identity chicken.base#symbol-escape chicken.base#parentheses-synonyms chicken.base#keyword-style chicken.base#case-sensitive chicken.base#emergency-exit chicken.base#exit chicken.base#on-exit chicken.base#cleanup-tasks chicken.base#exit-handler chicken.base#implicit-exit-handler chicken.base#foldr chicken.base#foldl chicken.base#make-promise ##sys#make-promise chicken.base#promise? chicken.base#flush-output chicken.base#open-output-string chicken.base#open-input-string chicken.base#get-output-string chicken.base#output-port-open? chicken.base#input-port-open? chicken.base#port-closed? chicken.base#port? chicken.base#vector-resize chicken.base#subvector chicken.base#vector-copy! chicken.base#setter chicken.base#procedure-information chicken.base#make-parameter chicken.base#getter-with-setter chicken.base#char-name chicken.base#call/cc chicken.base#sleep chicken.base#void chicken.base#error chicken.base#current-error-port chicken.base#sub1 chicken.base#add1 chicken.base#print* chicken.base#print chicken.base#print-call-chain chicken.base#get-call-chain chicken.base#signum chicken.base#nan? chicken.base#infinite? chicken.base#finite? chicken.base#quotient&modulo chicken.base#quotient&remainder chicken.base#exact-integer? chicken.base#cplxnum? chicken.base#ratnum? chicken.base#bignum? chicken.base#flonum? chicken.base#fixnum? scheme#dynamic-wind scheme#map scheme#for-each scheme#load scheme#null-environment scheme#scheme-report-environment scheme#interaction-environment scheme#eval scheme#display scheme#write scheme#newline scheme#write-char scheme#read scheme#peek-char scheme#read-char scheme#char-ready? scheme#eof-object? scheme#with-output-to-file scheme#with-input-from-file scheme#call-with-output-file scheme#call-with-input-file scheme#close-output-port scheme#close-input-port scheme#open-output-file scheme#open-input-file scheme#current-output-port scheme#current-input-port scheme#output-port? scheme#input-port? scheme#call-with-current-continuation scheme#call-with-values scheme#values scheme#apply scheme#procedure? scheme#char-alphabetic? scheme#char-whitespace? scheme#char-numeric? scheme#char-lower-case? scheme#char-upper-case? scheme#char-ci<=? scheme#char-ci>=? scheme#char-ci<? scheme#char-ci>? scheme#char-ci=? scheme#char-downcase scheme#char-upcase scheme#char<=? scheme#char>=? scheme#char<? scheme#char>? scheme#char=? scheme#integer->char scheme#char->integer scheme#char? scheme#vector-fill! scheme#vector scheme#vector->list scheme#list->vector scheme#make-vector scheme#vector-set! scheme#vector-ref scheme#vector-length scheme#vector? scheme#symbol? scheme#number->string scheme#negative? scheme#positive? scheme#zero? scheme#inexact? scheme#exact? scheme#integer? scheme#rational? scheme#real? scheme#complex? scheme#number? scheme#<= scheme#>= scheme#< scheme#> scheme#= scheme#odd? scheme#even? scheme#modulo scheme#remainder scheme#quotient scheme#* scheme#- scheme#+ scheme#abs scheme#exact->inexact scheme#string-fill scheme#string-ci=? scheme#string=? scheme#string-set! scheme#string-ref scheme#string-length scheme#string? scheme#list? scheme#assoc scheme#assv scheme#assq scheme#member scheme#memv scheme#memq scheme#reverse scheme#list-ref scheme#list-tail scheme#length scheme#list scheme#null? scheme#cdddar scheme#cddadr scheme#cddaar scheme#cdaddr scheme#cdadar scheme#cdaadr scheme#cdaaar scheme#caddar scheme#cadadr scheme#cadaar scheme#caaddr scheme#caadar scheme#caaadr scheme#caaaar scheme#cdddr scheme#cddar scheme#cdadr scheme#cdaar scheme#cadar scheme#caadr scheme#caaar scheme#cddr scheme#cdar scheme#caar scheme#cddddr scheme#cadddr scheme#caddr scheme#cadr scheme#set-cdr! scheme#set-car! scheme#cdr scheme#car scheme#cons scheme#pair? scheme#equal? scheme#eqv? scheme#eq? scheme#boolean? scheme#not) o|inlining procedure: k8834 o|inlining procedure: k8834 o|removed side-effect free assignment to unused variable: scheme#string-fill o|inlining procedure: k9071 o|inlining procedure: k9071 o|inlining procedure: k9077 o|inlining procedure: k9077 o|inlining procedure: k9168 o|inlining procedure: k9168 o|inlining procedure: k9230 o|inlining procedure: k9230 o|inlining procedure: k9278 o|inlining procedure: k9278 o|inlining procedure: k9302 o|inlining procedure: k9302 o|inlining procedure: k9339 o|inlining procedure: k9339 o|inlining procedure: k9428 o|inlining procedure: k9428 o|inlining procedure: k9458 o|inlining procedure: k9458 o|inlining procedure: k9487 o|inlining procedure: k9487 o|inlining procedure: k9531 o|inlining procedure: k9531 o|inlining procedure: k9552 o|propagated global variable: r955332347 scheme#values o|inlining procedure: k9552 o|inlining procedure: k9564 o|propagated global variable: r956532349 chicken.base#identity o|inlining procedure: k9564 o|inlining procedure: k9582 o|inlining procedure: k9582 o|inlining procedure: k9611 o|inlining procedure: k9611 o|inlining procedure: k9623 o|inlining procedure: k9623 o|inlining procedure: k9647 o|inlining procedure: k9647 o|inlining procedure: k9681 o|inlining procedure: k9681 o|inlining procedure: k9709 o|inlining procedure: k9709 o|inlining procedure: k9718 o|inlining procedure: k9718 o|inlining procedure: k9740 o|inlining procedure: k9740 o|inlining procedure: k9779 o|inlining procedure: k9779 o|inlining procedure: k9805 o|inlining procedure: k9805 o|inlining procedure: k9852 o|inlining procedure: k9852 o|inlining procedure: k9873 o|inlining procedure: k9873 o|inlining procedure: k9906 o|inlining procedure: k9906 o|inlining procedure: k9921 o|inlining procedure: k9921 o|inlining procedure: k9986 o|inlining procedure: k9986 o|inlining procedure: k10002 o|propagated global variable: r1000332381 scheme#assv o|inlining procedure: k10002 o|inlining procedure: k10022 o|inlining procedure: k10022 o|inlining procedure: k10072 o|inlining procedure: k10072 o|inlining procedure: k10097 o|inlining procedure: k10097 o|inlining procedure: k10185 o|inlining procedure: k10185 o|inlining procedure: k10194 o|propagated global variable: r1019532391 scheme#assv o|inlining procedure: k10194 o|inlining procedure: k10214 o|inlining procedure: k10214 o|inlining procedure: k10232 o|inlining procedure: k10232 o|inlining procedure: k10291 o|inlining procedure: k10291 o|inlining procedure: k10424 o|inlining procedure: k10424 o|inlining procedure: k10433 o|inlining procedure: k10433 o|inlining procedure: k10445 o|inlining procedure: k10445 o|propagated global variable: r1044632404 ##sys#warnings-enabled o|inlining procedure: k10549 o|inlining procedure: k10549 o|inlining procedure: k10582 o|inlining procedure: k10582 o|inlining procedure: k10593 o|inlining procedure: k10593 o|inlining procedure: k10605 o|inlining procedure: k10605 o|inlining procedure: k10616 o|inlining procedure: k10616 o|inlining procedure: k10627 o|inlining procedure: k10627 o|inlining procedure: k10638 o|inlining procedure: k10638 o|inlining procedure: k10649 o|inlining procedure: k10649 o|inlining procedure: k10660 o|inlining procedure: k10660 o|inlining procedure: k10671 o|inlining procedure: k10671 o|inlining procedure: k10682 o|inlining procedure: k10682 o|inlining procedure: k10693 o|inlining procedure: k10693 o|inlining procedure: k10704 o|inlining procedure: k10704 o|inlining procedure: k10715 o|inlining procedure: k10715 o|inlining procedure: k10726 o|inlining procedure: k10726 o|inlining procedure: k10737 o|inlining procedure: k10737 o|inlining procedure: k10748 o|inlining procedure: k10748 o|inlining procedure: k10755 o|inlining procedure: k10755 o|inlining procedure: k10765 o|inlining procedure: k10765 o|inlining procedure: k10772 o|inlining procedure: k10772 o|inlining procedure: k10782 o|inlining procedure: k10795 o|inlining procedure: k10795 o|inlining procedure: k10782 o|inlining procedure: k10806 o|inlining procedure: k10806 o|inlining procedure: k10813 o|inlining procedure: k10813 o|inlining procedure: k10826 o|inlining procedure: k10826 o|inlining procedure: k10837 o|inlining procedure: k10837 o|inlining procedure: k10853 o|inlining procedure: k10853 o|inlining procedure: k10863 o|inlining procedure: k10863 o|inlining procedure: k10873 o|inlining procedure: k10873 o|inlining procedure: k10884 o|inlining procedure: k10899 o|inlining procedure: k10899 o|inlining procedure: k10917 o|inlining procedure: k10938 o|inlining procedure: k10938 o|inlining procedure: k10966 o|inlining procedure: k10966 o|inlining procedure: k10917 o|inlining procedure: k10884 o|inlining procedure: k11140 o|inlining procedure: k11140 o|inlining procedure: k11152 o|inlining procedure: k11152 o|inlining procedure: k11171 o|inlining procedure: k11171 o|inlining procedure: k11225 o|inlining procedure: k11225 o|contracted procedure: "(library.scm:1308) g14971498" o|contracted procedure: "(library.scm:1315) g15031504" o|inlining procedure: k11321 o|inlining procedure: k11321 o|inlining procedure: k11343 o|inlining procedure: k11343 o|inlining procedure: k11364 o|inlining procedure: k11364 o|inlining procedure: k11395 o|inlining procedure: k11415 o|inlining procedure: k11415 o|inlining procedure: k11395 o|inlining procedure: k11481 o|inlining procedure: k11481 o|inlining procedure: k11497 o|inlining procedure: k11497 o|inlining procedure: k11558 o|inlining procedure: k11558 o|inlining procedure: k11582 o|inlining procedure: k11582 o|inlining procedure: k11603 o|inlining procedure: k11603 o|inlining procedure: k11624 o|inlining procedure: k11624 o|inlining procedure: k11668 o|inlining procedure: k11668 o|inlining procedure: k11692 o|inlining procedure: k11692 o|inlining procedure: k11713 o|inlining procedure: k11713 o|inlining procedure: k11734 o|inlining procedure: k11734 o|inlining procedure: k11771 o|inlining procedure: k11771 o|inlining procedure: k11819 o|inlining procedure: k11819 o|inlining procedure: k11860 o|inlining procedure: k11860 o|inlining procedure: k11881 o|inlining procedure: k11881 o|contracted procedure: "(library.scm:1569) g17511752" o|inlining procedure: k11942 o|inlining procedure: k11942 o|contracted procedure: "(library.scm:1573) g17621763" o|inlining procedure: k11966 o|inlining procedure: k11966 o|contracted procedure: "(library.scm:1577) g17731774" o|inlining procedure: k11990 o|inlining procedure: k11990 o|contracted procedure: "(library.scm:1581) g17841785" o|inlining procedure: k12014 o|inlining procedure: k12014 o|contracted procedure: "(library.scm:1585) g17951796" o|inlining procedure: k12038 o|inlining procedure: k12038 o|contracted procedure: "(library.scm:1589) g18061807" o|inlining procedure: k12062 o|inlining procedure: k12062 o|contracted procedure: "(library.scm:1593) g18171818" o|inlining procedure: k12086 o|inlining procedure: k12086 o|contracted procedure: "(library.scm:1597) g18281829" o|inlining procedure: k12110 o|inlining procedure: k12110 o|contracted procedure: "(library.scm:1601) g18391840" o|inlining procedure: k12134 o|inlining procedure: k12134 o|contracted procedure: "(library.scm:1605) g18501851" o|inlining procedure: k12158 o|inlining procedure: k12158 o|contracted procedure: "(library.scm:1609) g18611862" o|inlining procedure: k12182 o|inlining procedure: k12182 o|contracted procedure: "(library.scm:1613) g18711872" o|inlining procedure: k12206 o|inlining procedure: k12206 o|contracted procedure: "(library.scm:1617) g18801881" o|inlining procedure: k12224 o|inlining procedure: k12224 o|contracted procedure: "(library.scm:1621) g18911892" o|inlining procedure: k12248 o|inlining procedure: k12248 o|contracted procedure: "(library.scm:1625) g19011902" o|inlining procedure: k12272 o|inlining procedure: k12272 o|contracted procedure: "(library.scm:1629) g19091910" o|inlining procedure: k12290 o|inlining procedure: k12290 o|contracted procedure: "(library.scm:1633) g19171918" o|inlining procedure: k12308 o|inlining procedure: k12308 o|contracted procedure: "(library.scm:1637) g19251926" o|inlining procedure: k12326 o|inlining procedure: k12326 o|contracted procedure: "(library.scm:1641) g19331934" o|inlining procedure: k12344 o|inlining procedure: k12344 o|contracted procedure: "(library.scm:1645) g19411942" o|inlining procedure: k12362 o|inlining procedure: k12362 o|contracted procedure: "(library.scm:1649) g19491950" o|inlining procedure: k12380 o|inlining procedure: k12380 o|contracted procedure: "(library.scm:1653) g19571958" o|inlining procedure: k12398 o|inlining procedure: k12398 o|contracted procedure: "(library.scm:1657) g19651966" o|inlining procedure: k12416 o|inlining procedure: k12416 o|contracted procedure: "(library.scm:1661) g19731974" o|inlining procedure: k12434 o|inlining procedure: k12434 o|contracted procedure: "(library.scm:1665) g19821983" o|inlining procedure: k12452 o|inlining procedure: k12452 o|contracted procedure: "(library.scm:1669) g19921993" o|inlining procedure: k12476 o|inlining procedure: k12476 o|contracted procedure: "(library.scm:1673) g20012002" o|inlining procedure: k12494 o|inlining procedure: k12494 o|contracted procedure: "(library.scm:1677) g20112012" o|inlining procedure: k12518 o|inlining procedure: k12518 o|contracted procedure: "(library.scm:1681) g20192020" o|inlining procedure: k12536 o|inlining procedure: k12536 o|contracted procedure: "(library.scm:1685) g20272028" o|inlining procedure: k12554 o|inlining procedure: k12554 o|contracted procedure: "(library.scm:1689) g20352036" o|inlining procedure: k12572 o|inlining procedure: k12572 o|inlining procedure: k12591 o|inlining procedure: k12591 o|inlining procedure: k12610 o|inlining procedure: k12610 o|inlining procedure: k12637 o|inlining procedure: k12637 o|inlining procedure: k12681 o|contracted procedure: "(library.scm:1738) g21262127" o|inlining procedure: k12681 o|inlining procedure: k12704 o|contracted procedure: "(library.scm:1744) g21342135" o|inlining procedure: k12704 o|inlining procedure: k12718 o|inlining procedure: k12718 o|inlining procedure: k12746 o|contracted procedure: "(library.scm:1760) g21492150" o|contracted procedure: "(library.scm:1759) g21462147" o|inlining procedure: k12746 o|inlining procedure: k12790 o|inlining procedure: k12790 o|contracted procedure: "(library.scm:1774) g21592160" o|inlining procedure: k12807 o|contracted procedure: "(library.scm:1776) g21622163" o|contracted procedure: "(library.scm:1776) g21692170" o|contracted procedure: "(library.scm:1776) g21662167" o|inlining procedure: k12807 o|contracted procedure: "(library.scm:1777) g21722173" o|inlining procedure: k12836 o|inlining procedure: k12836 o|inlining procedure: k12843 o|inlining procedure: k12843 o|inlining procedure: k12865 o|contracted procedure: "(library.scm:1786) g21852186" o|inlining procedure: k12865 o|inlining procedure: k12882 o|inlining procedure: k12882 o|inlining procedure: k12889 o|inlining procedure: k12889 o|inlining procedure: k12911 o|contracted procedure: "(library.scm:1798) g21972198" o|inlining procedure: k12911 o|inlining procedure: k12928 o|contracted procedure: "(library.scm:1805) g22062207" o|inlining procedure: k12928 o|inlining procedure: k13052 o|inlining procedure: k13052 o|inlining procedure: k13061 o|contracted procedure: "(library.scm:1838) g22382239" o|inlining procedure: k13061 o|contracted procedure: "(library.scm:1839) flonum->ratnum" o|inlining procedure: k12992 o|contracted procedure: "(library.scm:1823) g22232224" o|inlining procedure: k12992 o|contracted procedure: "(library.scm:1820) float-fraction-length2211" o|inlining procedure: k12969 o|inlining procedure: k12969 o|inlining procedure: k13020 o|inlining procedure: k13020 o|substituted constant variable: a13048 o|inlining procedure: k13078 o|contracted procedure: "(library.scm:1843) g22442245" o|contracted procedure: "(library.scm:1842) g22412242" o|inlining procedure: k13078 o|inlining procedure: k13130 o|inlining procedure: k13130 o|inlining procedure: k13153 o|inlining procedure: k13153 o|inlining procedure: k13184 o|contracted procedure: "(library.scm:1895) g23012302" o|contracted procedure: "(library.scm:1895) g22972298" o|contracted procedure: "(library.scm:1894) g22932294" o|inlining procedure: k13184 o|inlining procedure: k13275 o|inlining procedure: k13275 o|inlining procedure: k13298 o|contracted procedure: "(library.scm:1915) g23402341" o|contracted procedure: "(library.scm:1914) g23352336" o|contracted procedure: "(library.scm:1913) g23312332" o|contracted procedure: "(library.scm:1913) g23272328" o|contracted procedure: "(library.scm:1912) g23232324" o|contracted procedure: "(library.scm:1912) g23192320" o|inlining procedure: k13298 o|contracted procedure: "(library.scm:1924) g23512352" o|contracted procedure: "(library.scm:1921) g23452346" o|inlining procedure: k13394 o|contracted procedure: "(library.scm:1934) g23602361" o|contracted procedure: "(library.scm:1932) g23552356" o|inlining procedure: k13394 o|inlining procedure: k13464 o|inlining procedure: k13464 o|inlining procedure: k13474 o|contracted procedure: "(library.scm:1948) g23752376" o|contracted procedure: "(library.scm:1947) g23712372" o|inlining procedure: k13474 o|inlining procedure: k13509 o|inlining procedure: k13509 o|inlining procedure: k13519 o|contracted procedure: "(library.scm:1958) g23882389" o|contracted procedure: "(library.scm:1957) g23842385" o|inlining procedure: k13519 o|inlining procedure: k13554 o|inlining procedure: k13554 o|inlining procedure: k13564 o|contracted procedure: "(library.scm:1968) g23992400" o|contracted procedure: "(library.scm:1967) g23962397" o|inlining procedure: k13564 o|inlining procedure: k13591 o|inlining procedure: k13591 o|inlining procedure: k13598 o|contracted procedure: "(library.scm:1977) g24082409" o|inlining procedure: k13598 o|inlining procedure: k13644 o|inlining procedure: k13644 o|inlining procedure: k13716 o|inlining procedure: k13716 o|inlining procedure: k13734 o|inlining procedure: k13734 o|inlining procedure: k13788 o|inlining procedure: k13788 o|contracted procedure: "(library.scm:2004) find-ratio" o|inlining procedure: k13820 o|inlining procedure: k13820 o|inlining procedure: k13864 o|inlining procedure: k13864 o|inlining procedure: k13901 o|contracted procedure: "(library.scm:2037) g24712472" o|contracted procedure: "(library.scm:2036) g24672468" o|inlining procedure: k13901 o|inlining procedure: k13943 o|inlining procedure: k13943 o|inlining procedure: k13995 o|inlining procedure: k13995 o|inlining procedure: k14024 o|inlining procedure: k14024 o|inlining procedure: k14058 o|inlining procedure: k14058 o|inlining procedure: k14092 o|inlining procedure: k14092 o|inlining procedure: k14117 o|inlining procedure: k14117 o|inlining procedure: k14156 o|inlining procedure: k14156 o|inlining procedure: k14165 o|substituted constant variable: a14172 o|inlining procedure: k14165 o|inlining procedure: k14179 o|inlining procedure: k14179 o|inlining procedure: k14198 o|inlining procedure: k14198 o|inlining procedure: k14207 o|substituted constant variable: a14214 o|inlining procedure: k14207 o|inlining procedure: k14224 o|inlining procedure: k14224 o|inlining procedure: k14282 o|inlining procedure: k14300 o|inlining procedure: k14300 o|inlining procedure: k14318 o|inlining procedure: k14318 o|substituted constant variable: a14331 o|substituted constant variable: a14333 o|substituted constant variable: a14335 o|substituted constant variable: a14340 o|substituted constant variable: a14342 o|inlining procedure: k14282 o|substituted constant variable: a14373 o|inlining procedure: k14408 o|inlining procedure: k14408 o|inlining procedure: k14482 o|inlining procedure: k14482 o|inlining procedure: k14533 o|inlining procedure: k14549 o|inlining procedure: k14549 o|inlining procedure: k14533 o|contracted procedure: "(library.scm:2178) g26132614" o|inlining procedure: k14583 o|contracted procedure: "(library.scm:2181) g26182619" o|inlining procedure: k14607 o|inlining procedure: k14607 o|inlining procedure: k14583 o|inlining procedure: k14655 o|inlining procedure: k14655 o|inlining procedure: k14700 o|inlining procedure: k14700 o|inlining procedure: k14772 o|inlining procedure: k14772 o|inlining procedure: k14787 o|contracted procedure: "(library.scm:2223) g26512652" o|inlining procedure: k14787 o|inlining procedure: k14810 o|inlining procedure: k14810 o|contracted procedure: "(library.scm:2228) square2649" o|inlining procedure: k14866 o|inlining procedure: k14866 o|inlining procedure: k14886 o|inlining procedure: k14886 o|inlining procedure: k14904 o|contracted procedure: "(library.scm:2248) g26792680" o|contracted procedure: "(library.scm:2247) g26762677" o|inlining procedure: k14904 o|inlining procedure: k14941 o|contracted procedure: "(library.scm:2257) g26862687" o|inlining procedure: k14976 o|contracted procedure: "(library.scm:2259) g26912692" o|inlining procedure: k14976 o|inlining procedure: k14941 o|inlining procedure: k15010 o|inlining procedure: k15010 o|inlining procedure: k15028 o|inlining procedure: k15028 o|inlining procedure: k15047 o|inlining procedure: k15047 o|inlining procedure: k15084 o|inlining procedure: k15084 o|inlining procedure: k15116 o|contracted procedure: "(library.scm:2285) g27162717" o|inlining procedure: k15129 o|contracted procedure: "(library.scm:2288) g27212722" o|inlining procedure: k15129 o|inlining procedure: k15116 o|inlining procedure: k15157 o|inlining procedure: k15157 o|contracted procedure: "(library.scm:2295) g27302731" o|inlining procedure: k15192 o|inlining procedure: k15192 o|inlining procedure: k15212 o|inlining procedure: k15212 o|inlining procedure: k15257 o|inlining procedure: k15257 o|inlining procedure: k15277 o|inlining procedure: k15277 o|substituted constant variable: a15350 o|inlining procedure: k15368 o|contracted procedure: "(library.scm:2351) g27962797" o|contracted procedure: "(library.scm:2349) g27932794" o|inlining procedure: k15368 o|inlining procedure: k15432 o|inlining procedure: k15432 o|contracted procedure: "(library.scm:2355) g28042805" o|contracted procedure: "(library.scm:2354) g28012802" o|inlining procedure: k15547 o|inlining procedure: k15560 o|inlining procedure: k15560 o|inlining procedure: k15547 o|contracted procedure: "(library.scm:2393) g28342835" o|inlining procedure: k15588 o|inlining procedure: k15588 o|inlining procedure: k15598 o|inlining procedure: k15607 o|inlining procedure: k15619 o|inlining procedure: k15619 o|inlining procedure: k15607 o|inlining procedure: k15635 o|inlining procedure: k15635 o|inlining procedure: k15641 o|contracted procedure: "(library.scm:2414) mantexp->dbl" o|inlining procedure: k15445 o|inlining procedure: k15445 o|contracted procedure: "(library.scm:2385) ldexp" o|propagated global variable: a15504 chicken.flonum#flonum-precision o|inlining procedure: k15641 o|inlining procedure: k15598 o|inlining procedure: k15684 o|inlining procedure: k15684 o|inlining procedure: k15710 o|inlining procedure: k15710 o|inlining procedure: k15737 o|inlining procedure: k15737 o|inlining procedure: k15765 o|inlining procedure: k15765 o|substituted constant variable: a15772 o|substituted constant variable: a15776 o|substituted constant variable: a15783 o|contracted procedure: "(library.scm:2436) g28722873" o|inlining procedure: k15792 o|inlining procedure: k15792 o|inlining procedure: k15825 o|inlining procedure: k15825 o|contracted procedure: "(library.scm:2451) g28952896" o|inlining procedure: k15845 o|inlining procedure: k15845 o|inlining procedure: k15867 o|inlining procedure: k15867 o|inlining procedure: k15878 o|inlining procedure: k15878 o|inlining procedure: k15892 o|inlining procedure: k15915 o|inlining procedure: k15915 o|inlining procedure: k15941 o|inlining procedure: k15941 o|substituted constant variable: a15948 o|substituted constant variable: a15950 o|contracted procedure: "(library.scm:2473) g29312932" o|inlining procedure: k15892 o|inlining procedure: k15953 o|inlining procedure: k15974 o|inlining procedure: k15992 o|inlining procedure: k16004 o|inlining procedure: k16020 o|inlining procedure: k16020 o|inlining procedure: k16004 o|inlining procedure: k15992 o|inlining procedure: k15974 o|inlining procedure: k16065 o|inlining procedure: k16065 o|inlining procedure: k16080 o|inlining procedure: k16080 o|inlining procedure: k16092 o|inlining procedure: k16092 o|inlining procedure: k16104 o|inlining procedure: k16104 o|inlining procedure: k16116 o|inlining procedure: k16116 o|substituted constant variable: a16129 o|substituted constant variable: a16131 o|substituted constant variable: a16133 o|substituted constant variable: a16135 o|substituted constant variable: a16137 o|substituted constant variable: a16139 o|substituted constant variable: a16141 o|substituted constant variable: a16143 o|substituted constant variable: a16145 o|substituted constant variable: a16147 o|contracted procedure: "(library.scm:2489) g29602961" o|inlining procedure: k16156 o|inlining procedure: k16156 o|inlining procedure: k15953 o|inlining procedure: k16167 o|inlining procedure: k16167 o|inlining procedure: k16192 o|inlining procedure: k16207 o|inlining procedure: k16207 o|inlining procedure: k16192 o|inlining procedure: k16247 o|inlining procedure: k16259 o|inlining procedure: k16269 o|inlining procedure: k16269 o|inlining procedure: k16259 o|inlining procedure: k16247 o|inlining procedure: k16289 o|inlining procedure: k16305 o|inlining procedure: k16315 o|inlining procedure: k16333 o|inlining procedure: k16353 o|inlining procedure: "(library.scm:2542) make-nan2847" o|inlining procedure: k16353 o|substituted constant variable: a16380 o|substituted constant variable: a16382 o|substituted constant variable: a16384 o|inlining procedure: k16333 o|inlining procedure: k16315 o|inlining procedure: k16305 o|inlining procedure: k16289 o|substituted constant variable: a16402 o|inlining procedure: k16406 o|inlining procedure: k16406 o|inlining procedure: k16418 o|inlining procedure: k16418 o|inlining procedure: k16430 o|inlining procedure: k16430 o|inlining procedure: k16442 o|inlining procedure: k16442 o|substituted constant variable: a16455 o|substituted constant variable: a16457 o|substituted constant variable: a16459 o|substituted constant variable: a16461 o|substituted constant variable: a16463 o|substituted constant variable: a16465 o|substituted constant variable: a16467 o|substituted constant variable: a16469 o|substituted constant variable: a16471 o|substituted constant variable: a16473 o|substituted constant variable: a16475 o|contracted procedure: "(library.scm:2514) g30343035" o|inlining procedure: k16489 o|contracted procedure: "(library.scm:2509) g30213022" o|inlining procedure: k16489 o|inlining procedure: k16510 o|inlining procedure: k16538 o|inlining procedure: k16560 o|inlining procedure: k16570 o|inlining procedure: k16570 o|inlining procedure: k16560 o|inlining procedure: k16593 o|inlining procedure: k16593 o|inlining procedure: k16538 o|inlining procedure: k16643 o|inlining procedure: k16643 o|inlining procedure: k16653 o|inlining procedure: k16676 o|inlining procedure: k16676 o|inlining procedure: "(library.scm:2571) make-nan2847" o|inlining procedure: k16653 o|substituted constant variable: a16712 o|substituted constant variable: a16714 o|substituted constant variable: a16719 o|substituted constant variable: a16721 o|contracted procedure: "(library.scm:2552) g31153116" o|inlining procedure: k16728 o|inlining procedure: k16728 o|substituted constant variable: a16735 o|substituted constant variable: a16737 o|contracted procedure: "(library.scm:2548) g31033104" o|inlining procedure: k16510 o|inlining procedure: k16744 o|inlining procedure: k16756 o|inlining procedure: k16756 o|inlining procedure: k16744 o|inlining procedure: k16763 o|inlining procedure: k16763 o|inlining procedure: k16779 o|contracted procedure: "(library.scm:2581) g31693170" o|contracted procedure: "(library.scm:2580) g31653166" o|inlining procedure: k16779 o|inlining procedure: k16820 o|inlining procedure: k16839 o|inlining procedure: k16854 o|inlining procedure: k16854 o|contracted procedure: "(library.scm:2589) g31933194" o|contracted procedure: "(library.scm:2588) g31893190" o|inlining procedure: k16839 o|inlining procedure: k16820 o|inlining procedure: k16901 o|inlining procedure: k16901 o|substituted constant variable: a16928 o|substituted constant variable: a16933 o|substituted constant variable: a16935 o|substituted constant variable: a16940 o|substituted constant variable: a16942 o|substituted constant variable: a16944 o|contracted procedure: "(library.scm:2577) g31533154" o|inlining procedure: k17001 o|inlining procedure: k17021 o|inlining procedure: k17021 o|inlining procedure: k17034 o|inlining procedure: k17034 o|inlining procedure: k17065 o|inlining procedure: k17065 o|inlining procedure: k17078 o|inlining procedure: k17078 o|inlining procedure: k17109 o|inlining procedure: k17109 o|inlining procedure: k17122 o|inlining procedure: k17122 o|substituted constant variable: a17148 o|substituted constant variable: a17150 o|substituted constant variable: a17155 o|substituted constant variable: a17157 o|substituted constant variable: a17162 o|substituted constant variable: a17164 o|substituted constant variable: a17169 o|substituted constant variable: a17171 o|substituted constant variable: a17176 o|substituted constant variable: a17178 o|substituted constant variable: a17183 o|substituted constant variable: a17185 o|contracted procedure: "(library.scm:2613) g32403241" o|inlining procedure: k17001 o|inlining procedure: k17194 o|inlining procedure: k17194 o|contracted procedure: "(library.scm:2612) g32303231" o|inlining procedure: k17219 o|inlining procedure: k17219 o|inlining procedure: k17292 o|inlining procedure: k17313 o|inlining procedure: k17313 o|inlining procedure: k17292 o|inlining procedure: k17357 o|inlining procedure: k17357 o|inlining procedure: k17366 o|inlining procedure: k17366 o|inlining procedure: k17378 o|inlining procedure: k17378 o|inlining procedure: k17390 o|inlining procedure: k17390 o|inlining procedure: k17399 o|inlining procedure: k17399 o|inlining procedure: k17408 o|inlining procedure: k17417 o|inlining procedure: k17417 o|inlining procedure: k17408 o|inlining procedure: k17545 o|inlining procedure: k17545 o|inlining procedure: "(library.scm:2715) err3352" o|inlining procedure: k17551 o|inlining procedure: k17551 o|inlining procedure: "(library.scm:2714) err3352" o|inlining procedure: k17591 o|contracted procedure: "(library.scm:2724) g33763385" o|inlining procedure: k17591 o|inlining procedure: k17637 o|inlining procedure: k17637 o|inlining procedure: k17664 o|inlining procedure: k17664 o|inlining procedure: k17701 o|inlining procedure: k17701 o|inlining procedure: k17749 o|inlining procedure: k17749 o|inlining procedure: k17773 o|inlining procedure: k17773 o|inlining procedure: k17792 o|inlining procedure: k17792 o|inlining procedure: k17813 o|inlining procedure: k17813 o|inlining procedure: k17853 o|inlining procedure: k17853 o|inlining procedure: k17892 o|inlining procedure: k17892 o|inlining procedure: k17938 o|inlining procedure: k17938 o|inlining procedure: k18010 o|inlining procedure: k18010 o|inlining procedure: k18084 o|inlining procedure: k18084 o|inlining procedure: k18186 o|inlining procedure: k18186 o|inlining procedure: k18217 o|inlining procedure: k18217 o|inlining procedure: k18247 o|inlining procedure: k18247 o|inlining procedure: k18317 o|inlining procedure: k18317 o|inlining procedure: k18381 o|inlining procedure: k18381 o|inlining procedure: k18419 o|inlining procedure: k18419 o|inlining procedure: k18455 o|inlining procedure: k18455 o|inlining procedure: k18473 o|inlining procedure: k18473 o|inlining procedure: k18499 o|inlining procedure: k18499 o|inlining procedure: k18517 o|inlining procedure: k18517 o|inlining procedure: k18553 o|inlining procedure: k18568 o|inlining procedure: k18568 o|inlining procedure: k18553 o|inlining procedure: k18601 o|inlining procedure: k18601 o|inlining procedure: k18639 o|inlining procedure: k18657 o|inlining procedure: k18657 o|inlining procedure: k18639 o|inlining procedure: k18701 o|inlining procedure: k18701 o|inlining procedure: k18786 o|inlining procedure: k18786 o|inlining procedure: k18820 o|inlining procedure: k18820 o|inlining procedure: k18875 o|inlining procedure: k18875 o|substituted constant variable: a18882 o|substituted constant variable: a18887 o|inlining procedure: k18954 o|inlining procedure: k18954 o|inlining procedure: k18965 o|inlining procedure: k18965 o|inlining procedure: k18976 o|inlining procedure: k18976 o|inlining procedure: k18987 o|inlining procedure: k18987 o|inlining procedure: k18998 o|propagated global variable: r1899933051 ##sys#standard-input o|removed unused formal parameters: (convert?3911) o|inlining procedure: k19013 o|inlining procedure: k19013 o|removed unused parameter to known procedure: convert?3911 "(library.scm:3301) body39013910" o|inlining procedure: k18998 o|inlining procedure: k19040 o|inlining procedure: k19040 o|removed unused parameter to known procedure: convert?3911 "(library.scm:3301) body39013910" o|inlining procedure: k19059 o|propagated global variable: r1906033057 ##sys#standard-output o|removed unused formal parameters: (convert?3936) o|inlining procedure: k19074 o|inlining procedure: k19074 o|removed unused parameter to known procedure: convert?3936 "(library.scm:3311) body39263935" o|inlining procedure: k19059 o|inlining procedure: k19101 o|inlining procedure: k19101 o|removed unused parameter to known procedure: convert?3936 "(library.scm:3311) body39263935" o|inlining procedure: k19120 o|propagated global variable: r1912133063 ##sys#standard-error o|removed unused formal parameters: (convert?3961) o|inlining procedure: k19135 o|inlining procedure: k19135 o|removed unused parameter to known procedure: convert?3961 "(library.scm:3321) body39513960" o|inlining procedure: k19120 o|inlining procedure: k19162 o|inlining procedure: k19162 o|removed unused parameter to known procedure: convert?3961 "(library.scm:3321) body39513960" o|inlining procedure: k19181 o|inlining procedure: k19181 o|inlining procedure: k19219 o|inlining procedure: k19219 o|inlining procedure: k19244 o|inlining procedure: k19244 o|inlining procedure: k19250 o|inlining procedure: k19250 o|inlining procedure: k19273 o|inlining procedure: k19273 o|inlining procedure: k19286 o|inlining procedure: k19286 o|substituted constant variable: a19297 o|substituted constant variable: a19299 o|substituted constant variable: a19301 o|inlining procedure: k19311 o|inlining procedure: k19311 o|inlining procedure: k19486 o|inlining procedure: k19486 o|substituted constant variable: a19502 o|substituted constant variable: a19504 o|substituted constant variable: a19525 o|substituted constant variable: a19526 o|inlining procedure: k19539 o|inlining procedure: k19539 o|inlining procedure: k19561 o|inlining procedure: k19574 o|inlining procedure: k19574 o|inlining procedure: k19561 o|inlining procedure: k19633 o|inlining procedure: k19633 o|inlining procedure: k19671 o|inlining procedure: k19671 o|inlining procedure: k19705 o|inlining procedure: k19705 o|inlining procedure: k19746 o|inlining procedure: k19746 o|inlining procedure: k19765 o|inlining procedure: k19765 o|inlining procedure: k19893 o|inlining procedure: k19893 o|inlining procedure: k19932 o|inlining procedure: k19971 o|inlining procedure: k19971 o|inlining procedure: k19932 o|inlining procedure: k19999 o|inlining procedure: k19999 o|substituted constant variable: a20047 o|substituted constant variable: a20048 o|substituted constant variable: a20072 o|substituted constant variable: a20073 o|inlining procedure: k20089 o|inlining procedure: k20089 o|substituted constant variable: a20147 o|substituted constant variable: a20148 o|inlining procedure: k20155 o|inlining procedure: k20155 o|substituted constant variable: a20184 o|substituted constant variable: a20185 o|substituted constant variable: a20202 o|substituted constant variable: a20203 o|inlining procedure: k20257 o|inlining procedure: k20257 o|inlining procedure: k20280 o|inlining procedure: k20280 o|inlining procedure: k20320 o|inlining procedure: k20320 o|inlining procedure: k20339 o|inlining procedure: k20339 o|inlining procedure: k20378 o|inlining procedure: k20378 o|inlining procedure: k20403 o|inlining procedure: k20403 o|inlining procedure: k20422 o|inlining procedure: k20422 o|inlining procedure: k20447 o|inlining procedure: k20447 o|inlining procedure: k20513 o|inlining procedure: k20513 o|inlining procedure: k20548 o|inlining procedure: k20548 o|inlining procedure: k20564 o|inlining procedure: k20564 o|inlining procedure: k20598 o|inlining procedure: k20598 o|inlining procedure: k20632 o|inlining procedure: k20632 o|inlining procedure: k20666 o|inlining procedure: k20666 o|inlining procedure: k20707 o|inlining procedure: k20722 o|inlining procedure: k20722 o|substituted constant variable: a20760 o|substituted constant variable: a20765 o|inlining procedure: k20707 o|inlining procedure: k20790 o|inlining procedure: k20790 o|inlining procedure: k20810 o|inlining procedure: k20810 o|inlining procedure: k20845 o|inlining procedure: k20845 o|inlining procedure: k20867 o|inlining procedure: k20867 o|inlining procedure: k20892 o|inlining procedure: k20892 o|substituted constant variable: a20921 o|substituted constant variable: a20923 o|substituted constant variable: a20928 o|substituted constant variable: a20930 o|inlining procedure: k20931 o|inlining procedure: k20931 o|inlining procedure: k20994 o|inlining procedure: k20994 o|inlining procedure: k21006 o|inlining procedure: k21006 o|substituted constant variable: a21019 o|substituted constant variable: a21021 o|substituted constant variable: a21023 o|substituted constant variable: a21025 o|inlining procedure: k21029 o|inlining procedure: k21029 o|substituted constant variable: a21042 o|substituted constant variable: a21044 o|substituted constant variable: a21046 o|substituted constant variable: a21048 o|substituted constant variable: a21050 o|substituted constant variable: a21052 o|substituted constant variable: a21054 o|substituted constant variable: a21056 o|substituted constant variable: a21058 o|substituted constant variable: a21060 o|substituted constant variable: a21062 o|substituted constant variable: a21064 o|substituted constant variable: a21066 o|substituted constant variable: a21068 o|inlining procedure: k21069 o|inlining procedure: k21069 o|inlining procedure: k21101 o|inlining procedure: k21101 o|inlining procedure: k21092 o|inlining procedure: k21134 o|inlining procedure: k21134 o|inlining procedure: k21165 o|inlining procedure: k21165 o|inlining procedure: k21184 o|inlining procedure: k21217 o|inlining procedure: k21217 o|inlining procedure: k21259 o|inlining procedure: k21259 o|inlining procedure: "(library.scm:3921) build-keyword4436" o|inlining procedure: k21275 o|inlining procedure: "(library.scm:3922) build-keyword4436" o|inlining procedure: k21275 o|inlining procedure: "(library.scm:3925) build-symbol4435" o|inlining procedure: k21305 o|inlining procedure: k21305 o|inlining procedure: k21317 o|inlining procedure: k21317 o|inlining procedure: k21184 o|inlining procedure: k21092 o|inlining procedure: k21357 o|inlining procedure: k21357 o|inlining procedure: k21378 o|inlining procedure: "(library.scm:3953) build-keyword4436" o|inlining procedure: k21378 o|inlining procedure: k21400 o|inlining procedure: k21400 o|inlining procedure: k21415 o|inlining procedure: k21415 o|inlining procedure: "(library.scm:3961) build-symbol4435" o|inlining procedure: k21425 o|inlining procedure: k21425 o|substituted constant variable: a21433 o|substituted constant variable: a21434 o|inlining procedure: k21442 o|inlining procedure: k21463 o|inlining procedure: k21463 o|substituted constant variable: a21476 o|inlining procedure: k21442 o|inlining procedure: k21493 o|inlining procedure: k21514 o|inlining procedure: k21514 o|substituted constant variable: a21527 o|substituted constant variable: a21535 o|inlining procedure: k21531 o|inlining procedure: k21531 o|substituted constant variable: a21543 o|inlining procedure: k21493 o|inlining procedure: k21570 o|inlining procedure: k21570 o|inlining procedure: k21606 o|inlining procedure: k21606 o|inlining procedure: k21615 o|inlining procedure: k21615 o|inlining procedure: k21634 o|inlining procedure: k21634 o|inlining procedure: "(library.scm:4013) build-keyword4436" o|inlining procedure: "(library.scm:4013) build-symbol4435" o|inlining procedure: k21704 o|inlining procedure: k21738 o|inlining procedure: k21738 o|inlining procedure: k21748 o|inlining procedure: k21748 o|inlining procedure: k21704 o|inlining procedure: k21777 o|inlining procedure: k21777 o|inlining procedure: k21821 o|inlining procedure: k21821 o|inlining procedure: k21859 o|inlining procedure: k21859 o|inlining procedure: k21883 o|inlining procedure: k21883 o|substituted constant variable: a21890 o|substituted constant variable: a21892 o|substituted constant variable: a21894 o|substituted constant variable: a21896 o|inlining procedure: k21900 o|inlining procedure: k21900 o|inlining procedure: k21918 o|contracted procedure: "(library.scm:4067) g47244725" o|inlining procedure: k21947 o|inlining procedure: k21947 o|inlining procedure: k21966 o|inlining procedure: k21984 o|inlining procedure: k22000 o|inlining procedure: k22000 o|inlining procedure: k21984 o|inlining procedure: k21966 o|substituted constant variable: a22099 o|inlining procedure: k22101 o|inlining procedure: k22101 o|substituted constant variable: a22104 o|inlining procedure: k21918 o|inlining procedure: k22127 o|inlining procedure: k22139 o|inlining procedure: k22139 o|inlining procedure: k22127 o|inlining procedure: k22173 o|inlining procedure: k22173 o|inlining procedure: k22186 o|inlining procedure: k22186 o|substituted constant variable: a22199 o|substituted constant variable: a22201 o|inlining procedure: "(library.scm:4114) build-symbol4435" o|inlining procedure: k22260 o|inlining procedure: k22275 o|inlining procedure: k22275 o|inlining procedure: k22260 o|inlining procedure: k22299 o|inlining procedure: k22299 o|inlining procedure: k22320 o|inlining procedure: k22320 o|inlining procedure: k22339 o|inlining procedure: k22360 o|inlining procedure: k22387 o|inlining procedure: k22402 o|inlining procedure: k22402 o|inlining procedure: k22387 o|inlining procedure: k22438 o|inlining procedure: k22438 o|inlining procedure: k22360 o|inlining procedure: k22473 o|inlining procedure: k22473 o|inlining procedure: k22488 o|inlining procedure: k22488 o|inlining procedure: k22512 o|inlining procedure: k22512 o|inlining procedure: k22536 o|inlining procedure: k22536 o|inlining procedure: k22560 o|inlining procedure: k22600 o|inlining procedure: k22600 o|inlining procedure: k22560 o|inlining procedure: k22624 o|inlining procedure: k22624 o|inlining procedure: k22651 o|inlining procedure: k22651 o|inlining procedure: k22678 o|inlining procedure: k22678 o|inlining procedure: k22702 o|inlining procedure: k22702 o|inlining procedure: k22717 o|inlining procedure: k22746 o|inlining procedure: k22746 o|inlining procedure: "(library.scm:4241) build-keyword4436" o|inlining procedure: k22717 o|inlining procedure: k22807 o|inlining procedure: k22834 o|inlining procedure: k22834 o|inlining procedure: "(library.scm:4260) build-symbol4435" o|inlining procedure: k22856 o|inlining procedure: k22856 o|inlining procedure: k22878 o|inlining procedure: k22878 o|substituted constant variable: a22881 o|inlining procedure: k22807 o|inlining procedure: k22895 o|inlining procedure: k22895 o|substituted constant variable: a22908 o|substituted constant variable: a22910 o|substituted constant variable: a22912 o|substituted constant variable: a22914 o|substituted constant variable: a22916 o|substituted constant variable: a22918 o|substituted constant variable: a22920 o|substituted constant variable: a22922 o|substituted constant variable: a22924 o|substituted constant variable: a22926 o|substituted constant variable: a22928 o|substituted constant variable: a22930 o|substituted constant variable: a22932 o|substituted constant variable: a22934 o|substituted constant variable: a22936 o|substituted constant variable: a22938 o|substituted constant variable: a22940 o|inlining procedure: k22339 o|inlining procedure: k22957 o|inlining procedure: k22957 o|inlining procedure: k22981 o|inlining procedure: k22981 o|inlining procedure: k23002 o|inlining procedure: k23002 o|inlining procedure: k23017 o|inlining procedure: k23017 o|inlining procedure: k23035 o|inlining procedure: k23035 o|substituted constant variable: a23066 o|substituted constant variable: a23068 o|substituted constant variable: a23070 o|substituted constant variable: a23072 o|substituted constant variable: a23077 o|substituted constant variable: a23079 o|substituted constant variable: a23081 o|substituted constant variable: a23083 o|substituted constant variable: a23085 o|substituted constant variable: a23087 o|substituted constant variable: a23089 o|substituted constant variable: a23091 o|substituted constant variable: a23093 o|substituted constant variable: a23095 o|inlining procedure: k23099 o|inlining procedure: k23099 o|inlining procedure: k23118 o|inlining procedure: k23118 o|inlining procedure: k23136 o|inlining procedure: k23136 o|inlining procedure: k23178 o|inlining procedure: k23178 o|inlining procedure: k23298 o|inlining procedure: k23298 o|inlining procedure: k23310 o|inlining procedure: k23322 o|inlining procedure: k23322 o|inlining procedure: k23310 o|inlining procedure: k23378 o|inlining procedure: k23378 o|substituted constant variable: a23408 o|substituted constant variable: a23410 o|substituted constant variable: a23412 o|substituted constant variable: a23414 o|inlining procedure: k23424 o|inlining procedure: k23424 o|inlining procedure: k23443 o|inlining procedure: k23443 o|inlining procedure: k23457 o|inlining procedure: k23457 o|inlining procedure: k23520 o|inlining procedure: k23520 o|substituted constant variable: a23551 o|substituted constant variable: a23553 o|substituted constant variable: a23558 o|substituted constant variable: a23560 o|substituted constant variable: a23582 o|substituted constant variable: a23583 o|substituted constant variable: a23600 o|substituted constant variable: a23601 o|inlining procedure: k23614 o|propagated global variable: r2361533419 ##sys#standard-output o|inlining procedure: k23614 o|substituted constant variable: a23633 o|substituted constant variable: a23634 o|substituted constant variable: a23651 o|substituted constant variable: a23652 o|propagated global variable: a23665 ##sys#standard-output o|substituted constant variable: a23666 o|substituted constant variable: a23667 o|contracted procedure: "(library.scm:4410) g50565057" o|inlining procedure: k23684 o|contracted procedure: "(library.scm:4405) g50625069" o|propagated global variable: g50775078 ##sys#print o|inlining procedure: k23684 o|propagated global variable: a23716 ##sys#standard-output o|substituted constant variable: a23717 o|substituted constant variable: a23718 o|contracted procedure: "(library.scm:4417) g50885089" o|inlining procedure: k23735 o|contracted procedure: "(library.scm:4405) g50945101" o|propagated global variable: g51095110 ##sys#print o|inlining procedure: k23735 o|substituted constant variable: a23780 o|substituted constant variable: a23781 o|inlining procedure: k23794 o|inlining procedure: k23794 o|inlining procedure: k23885 o|inlining procedure: k23885 o|inlining procedure: k23917 o|inlining procedure: k23917 o|substituted constant variable: special-characters5131 o|inlining procedure: k23929 o|inlining procedure: k23929 o|inlining procedure: k23962 o|inlining procedure: k23962 o|substituted constant variable: a24035 o|inlining procedure: k24042 o|inlining procedure: k24042 o|inlining procedure: k24054 o|inlining procedure: k24054 o|inlining procedure: k24069 o|inlining procedure: k24069 o|inlining procedure: k24088 o|inlining procedure: k24110 o|inlining procedure: k24110 o|inlining procedure: k24125 o|inlining procedure: k24125 o|inlining procedure: k24138 o|inlining procedure: k24138 o|inlining procedure: k24162 o|inlining procedure: k24162 o|inlining procedure: k24088 o|inlining procedure: k24180 o|inlining procedure: k24180 o|inlining procedure: k24233 o|inlining procedure: k24233 o|inlining procedure: k24251 o|inlining procedure: k24251 o|inlining procedure: k24266 o|inlining procedure: k24266 o|inlining procedure: k24275 o|inlining procedure: k24302 o|inlining procedure: k24302 o|inlining procedure: k24275 o|inlining procedure: k24330 o|inlining procedure: k24330 o|inlining procedure: k24346 o|inlining procedure: k24346 o|inlining procedure: k24361 o|inlining procedure: k24379 o|inlining procedure: k24379 o|substituted constant variable: a24398 o|substituted constant variable: a24400 o|inlining procedure: k24361 o|inlining procedure: k24410 o|inlining procedure: k24410 o|inlining procedure: k24433 o|inlining procedure: k24449 o|inlining procedure: k24449 o|inlining procedure: k24478 o|inlining procedure: k24478 o|inlining procedure: k24499 o|inlining procedure: k24499 o|inlining procedure: k24517 o|inlining procedure: k24517 o|inlining procedure: k24535 o|inlining procedure: k24535 o|inlining procedure: k24553 o|inlining procedure: k24553 o|substituted constant variable: a24582 o|substituted constant variable: a24584 o|substituted constant variable: a24586 o|substituted constant variable: a24588 o|substituted constant variable: a24590 o|substituted constant variable: a24592 o|substituted constant variable: a24594 o|substituted constant variable: a24603 o|substituted constant variable: a24605 o|inlining procedure: k24433 o|inlining procedure: k24628 o|inlining procedure: k24628 o|inlining procedure: k24682 o|inlining procedure: k24700 o|inlining procedure: k24700 o|inlining procedure: k24682 o|inlining procedure: k24738 o|inlining procedure: k24738 o|inlining procedure: k24754 o|inlining procedure: k24754 o|inlining procedure: k24795 o|inlining procedure: k24795 o|substituted constant variable: a24808 o|substituted constant variable: a24810 o|inlining procedure: k24811 o|inlining procedure: k24839 o|inlining procedure: k24839 o|inlining procedure: k24811 o|inlining procedure: k24883 o|inlining procedure: k24883 o|inlining procedure: k24900 o|inlining procedure: k24900 o|inlining procedure: k24923 o|inlining procedure: k24953 o|inlining procedure: k24953 o|inlining procedure: k24923 o|inlining procedure: k25041 o|inlining procedure: k25041 o|substituted constant variable: a25058 o|substituted constant variable: a25060 o|substituted constant variable: saved542754285440 o|inlining procedure: k25165 o|inlining procedure: k25165 o|inlining procedure: k25232 o|inlining procedure: k25253 o|inlining procedure: k25253 o|inlining procedure: k25232 o|inlining procedure: k25279 o|inlining procedure: k25279 o|inlining procedure: k25317 o|inlining procedure: k25317 o|inlining procedure: k25348 o|inlining procedure: k25348 o|inlining procedure: k25385 o|inlining procedure: k25385 o|substituted constant variable: a25445 o|substituted constant variable: a25446 o|inlining procedure: k25447 o|inlining procedure: k25447 o|inlining procedure: k25498 o|inlining procedure: k25498 o|inlining procedure: k25521 o|inlining procedure: k25547 o|inlining procedure: k25547 o|inlining procedure: k25521 o|inlining procedure: k25601 o|inlining procedure: k25601 o|substituted constant variable: c5636 o|contracted procedure: "(library.scm:4911) extract5613" o|substituted constant variable: c5636 o|inlining procedure: k25668 o|inlining procedure: k25668 o|substituted constant variable: c5636 o|substituted constant variable: c5636 o|inlining procedure: k25750 o|inlining procedure: k25750 o|inlining procedure: k25775 o|inlining procedure: k25775 o|inlining procedure: k25781 o|inlining procedure: k25781 o|inlining procedure: k25718 o|inlining procedure: k25800 o|inlining procedure: k25800 o|inlining procedure: k25718 o|substituted constant variable: a25848 o|substituted constant variable: a25849 o|inlining procedure: k25920 o|inlining procedure: "(library.scm:4959) break5709" o|inlining procedure: k25920 o|inlining procedure: k25949 o|inlining procedure: k25949 o|inlining procedure: k25965 o|inlining procedure: k25965 o|inlining procedure: k25988 o|contracted procedure: "(library.scm:4980) g57195726" o|inlining procedure: k25988 o|inlining procedure: k26029 o|inlining procedure: k26029 o|inlining procedure: k26083 o|contracted procedure: "(library.scm:5044) g57875794" o|inlining procedure: k26083 o|inlining procedure: k26121 o|inlining procedure: k26121 o|inlining procedure: k26164 o|inlining procedure: k26164 o|inlining procedure: k26176 o|inlining procedure: k26176 o|inlining procedure: k26188 o|inlining procedure: k26188 o|inlining procedure: k26200 o|inlining procedure: k26200 o|inlining procedure: k26212 o|inlining procedure: k26212 o|inlining procedure: k26224 o|inlining procedure: k26224 o|inlining procedure: k26236 o|inlining procedure: k26236 o|substituted constant variable: a26243 o|substituted constant variable: a26245 o|substituted constant variable: a26247 o|substituted constant variable: a26249 o|substituted constant variable: a26251 o|substituted constant variable: a26253 o|substituted constant variable: a26255 o|substituted constant variable: a26257 o|substituted constant variable: a26259 o|substituted constant variable: a26261 o|substituted constant variable: a26263 o|substituted constant variable: a26265 o|substituted constant variable: a26267 o|substituted constant variable: a26269 o|substituted constant variable: a26305 o|substituted constant variable: a26307 o|substituted constant variable: a26309 o|inlining procedure: k26363 o|inlining procedure: k26399 o|inlining procedure: k26399 o|inlining procedure: k26411 o|inlining procedure: k26425 o|inlining procedure: k26425 o|inlining procedure: k26411 o|inlining procedure: k26363 o|inlining procedure: k26461 o|inlining procedure: k26461 o|inlining procedure: k26516 o|propagated global variable: r2651733613 ##sys#current-exception-handler o|removed unused formal parameters: (convert?5956) o|inlining procedure: k26531 o|inlining procedure: k26531 o|removed unused parameter to known procedure: convert?5956 "(library.scm:5196) body59465955" o|inlining procedure: k26516 o|inlining procedure: k26558 o|inlining procedure: k26558 o|removed unused parameter to known procedure: convert?5956 "(library.scm:5196) body59465955" o|inlining procedure: k26583 o|inlining procedure: k26583 o|inlining procedure: k26696 o|contracted procedure: "(library.scm:5224) g60416050" o|inlining procedure: k26696 o|inlining procedure: k26742 o|contracted procedure: "(library.scm:5223) g60146023" o|inlining procedure: k26742 o|inlining procedure: k26776 o|contracted procedure: "(library.scm:5220) g59915998" o|inlining procedure: k26776 o|inlining procedure: k26818 o|inlining procedure: k26818 o|inlining procedure: k26870 o|contracted procedure: "(library.scm:5229) g60746083" o|inlining procedure: k26870 o|inlining procedure: k26932 o|inlining procedure: k26932 o|inlining procedure: k26988 o|inlining procedure: k26988 o|inlining procedure: k27030 o|inlining procedure: k27030 o|inlining procedure: k27060 o|inlining procedure: k27075 o|inlining procedure: k27075 o|inlining procedure: k27060 o|inlining procedure: k27136 o|inlining procedure: k27136 o|substituted constant variable: a27161 o|substituted constant variable: a27162 o|inlining procedure: k27169 o|inlining procedure: k27190 o|inlining procedure: k27190 o|inlining procedure: k27220 o|inlining procedure: k27220 o|inlining procedure: k27249 o|inlining procedure: k27249 o|inlining procedure: k27169 o|inlining procedure: k27317 o|inlining procedure: k27317 o|inlining procedure: k27352 o|inlining procedure: k27352 o|inlining procedure: k27398 o|inlining procedure: k27421 o|inlining procedure: k27421 o|inlining procedure: k27398 o|inlining procedure: k27458 o|inlining procedure: k27458 o|inlining procedure: k27472 o|inlining procedure: k27472 o|inlining procedure: k27490 o|inlining procedure: k27490 o|inlining procedure: k27508 o|inlining procedure: k27508 o|inlining procedure: k27526 o|inlining procedure: k27526 o|inlining procedure: k27544 o|inlining procedure: k27544 o|inlining procedure: k27562 o|inlining procedure: k27562 o|inlining procedure: k27580 o|inlining procedure: k27580 o|inlining procedure: k27598 o|inlining procedure: k27598 o|inlining procedure: k27616 o|inlining procedure: k27616 o|inlining procedure: k27634 o|inlining procedure: k27634 o|inlining procedure: k27652 o|inlining procedure: k27652 o|inlining procedure: k27670 o|inlining procedure: k27670 o|inlining procedure: k27688 o|inlining procedure: k27688 o|inlining procedure: k27706 o|inlining procedure: k27706 o|inlining procedure: k27724 o|inlining procedure: k27724 o|inlining procedure: k27742 o|inlining procedure: k27742 o|inlining procedure: k27760 o|inlining procedure: k27760 o|inlining procedure: k27778 o|inlining procedure: k27778 o|inlining procedure: k27796 o|inlining procedure: k27796 o|inlining procedure: k27814 o|inlining procedure: k27814 o|inlining procedure: k27832 o|inlining procedure: k27832 o|inlining procedure: k27850 o|inlining procedure: k27850 o|inlining procedure: k27868 o|inlining procedure: k27868 o|inlining procedure: k27886 o|inlining procedure: k27886 o|inlining procedure: k27904 o|inlining procedure: k27904 o|inlining procedure: k27922 o|inlining procedure: k27922 o|inlining procedure: k27940 o|inlining procedure: k27940 o|substituted constant variable: a27953 o|substituted constant variable: a27955 o|substituted constant variable: a27957 o|substituted constant variable: a27959 o|substituted constant variable: a27961 o|substituted constant variable: a27963 o|substituted constant variable: a27965 o|substituted constant variable: a27967 o|substituted constant variable: a27969 o|substituted constant variable: a27971 o|substituted constant variable: a27973 o|substituted constant variable: a27975 o|substituted constant variable: a27977 o|substituted constant variable: a27979 o|substituted constant variable: a27981 o|substituted constant variable: a27983 o|substituted constant variable: a27985 o|substituted constant variable: a27987 o|substituted constant variable: a27989 o|substituted constant variable: a27991 o|substituted constant variable: a27993 o|substituted constant variable: a27995 o|substituted constant variable: a27997 o|substituted constant variable: a27999 o|substituted constant variable: a28001 o|substituted constant variable: a28003 o|substituted constant variable: a28005 o|substituted constant variable: a28007 o|substituted constant variable: a28009 o|substituted constant variable: a28011 o|substituted constant variable: a28013 o|substituted constant variable: a28015 o|substituted constant variable: a28017 o|substituted constant variable: a28019 o|substituted constant variable: a28021 o|substituted constant variable: a28023 o|substituted constant variable: a28025 o|substituted constant variable: a28027 o|substituted constant variable: a28029 o|substituted constant variable: a28031 o|substituted constant variable: a28033 o|substituted constant variable: a28035 o|substituted constant variable: a28037 o|substituted constant variable: a28039 o|substituted constant variable: a28041 o|substituted constant variable: a28043 o|substituted constant variable: a28045 o|substituted constant variable: a28047 o|substituted constant variable: a28049 o|substituted constant variable: a28051 o|substituted constant variable: a28053 o|substituted constant variable: a28055 o|substituted constant variable: a28057 o|substituted constant variable: a28059 o|substituted constant variable: a28061 o|inlining procedure: k28141 o|inlining procedure: k28141 o|inlining procedure: k28179 o|inlining procedure: k28179 o|inlining procedure: k28201 o|inlining procedure: k28201 o|inlining procedure: k28259 o|inlining procedure: k28259 o|contracted procedure: "(library.scm:5533) fetch6452" o|contracted procedure: "(library.scm:5550) free6471" o|inlining procedure: k28306 o|inlining procedure: k28306 o|inlining procedure: k28323 o|inlining procedure: k28323 o|contracted procedure: "(library.scm:5545) fetch6470" o|propagated global variable: ct6572 ##sys#current-thread o|inlining procedure: k28507 o|inlining procedure: k28507 o|inlining procedure: k28535 o|inlining procedure: k28535 o|inlining procedure: k28592 o|inlining procedure: k28592 o|inlining procedure: k28632 o|inlining procedure: k28644 o|inlining procedure: k28644 o|inlining procedure: k28632 o|inlining procedure: k28671 o|inlining procedure: k28671 o|inlining procedure: k28717 o|inlining procedure: k28717 o|substituted constant variable: a28775 o|inlining procedure: k28768 o|inlining procedure: k28768 o|substituted constant variable: a28788 o|inlining procedure: k28799 o|inlining procedure: k28839 o|inlining procedure: k28877 o|inlining procedure: k28877 o|inlining procedure: k28839 o|inlining procedure: k28971 o|inlining procedure: k28971 o|substituted constant variable: a29032 o|substituted constant variable: a29034 o|substituted constant variable: a29042 o|substituted constant variable: a29047 o|substituted constant variable: a29049 o|substituted constant variable: a29063 o|inlining procedure: k29056 o|inlining procedure: k29056 o|substituted constant variable: a29076 o|inlining procedure: k28799 o|substituted constant variable: a29091 o|substituted constant variable: a29093 o|inlining procedure: k29107 o|inlining procedure: k29107 o|inlining procedure: k29202 o|inlining procedure: k29211 o|inlining procedure: k29211 o|inlining procedure: k29202 o|contracted procedure: "(library.scm:5939) get6783" o|inlining procedure: k29278 o|inlining procedure: k29278 o|inlining procedure: k29292 o|inlining procedure: k29292 o|contracted procedure: "(library.scm:5968) fetch-arg6803" o|inlining procedure: k29361 o|inlining procedure: k29381 o|inlining procedure: k29381 o|inlining procedure: k29408 o|inlining procedure: k29408 o|inlining procedure: k29361 o|inlining procedure: k29432 o|inlining procedure: k29432 o|inlining procedure: k29444 o|inlining procedure: k29444 o|inlining procedure: k29470 o|inlining procedure: k29470 o|inlining procedure: k29586 o|inlining procedure: k29586 o|inlining procedure: k29608 o|inlining procedure: k29608 o|inlining procedure: k29648 o|inlining procedure: k29648 o|inlining procedure: k29673 o|inlining procedure: k29673 o|inlining procedure: k29695 o|inlining procedure: k29695 o|inlining procedure: k29727 o|inlining procedure: k29727 o|inlining procedure: k29759 o|inlining procedure: k29759 o|inlining procedure: k29791 o|inlining procedure: k29791 o|inlining procedure: k29823 o|inlining procedure: k29823 o|substituted constant variable: a29871 o|substituted constant variable: a29873 o|substituted constant variable: a29875 o|substituted constant variable: a29877 o|substituted constant variable: a29879 o|substituted constant variable: a29881 o|substituted constant variable: a29883 o|substituted constant variable: a29885 o|substituted constant variable: a29887 o|substituted constant variable: a29889 o|inlining procedure: k29890 o|inlining procedure: k29890 o|inlining procedure: k29945 o|inlining procedure: k29945 o|inlining procedure: k29962 o|inlining procedure: k29986 o|inlining procedure: k29986 o|inlining procedure: k29962 o|inlining procedure: k30029 o|inlining procedure: k30029 o|inlining procedure: k30092 o|inlining procedure: k30092 o|inlining procedure: k30124 o|inlining procedure: "(library.scm:6300) pstr7079" o|substituted constant variable: a30145 o|inlining procedure: k30124 o|inlining procedure: "(library.scm:6302) pstr7079" o|substituted constant variable: a30167 o|inlining procedure: k30168 o|inlining procedure: "(library.scm:6304) pstr7079" o|substituted constant variable: a30189 o|inlining procedure: k30168 o|inlining procedure: "(library.scm:6305) pstr7079" o|inlining procedure: "(library.scm:6331) pstr7079" o|inlining procedure: "(library.scm:6329) pstr7079" o|inlining procedure: "(library.scm:6327) pchr7080" o|inlining procedure: "(library.scm:6325) pstr7079" o|inlining procedure: "(library.scm:6321) pstr7079" o|inlining procedure: "(library.scm:6319) pchr7080" o|inlining procedure: "(library.scm:6317) pstr7079" o|inlining procedure: "(library.scm:6313) pstr7079" o|inlining procedure: "(library.scm:6311) pstr7079" o|inlining procedure: "(library.scm:6308) pstr7079" o|inlining procedure: k30395 o|inlining procedure: k30417 o|inlining procedure: k30417 o|contracted procedure: "(library.scm:6407) get-config7182" o|inlining procedure: k30362 o|inlining procedure: k30362 o|substituted constant variable: a30375 o|inlining procedure: k30453 o|inlining procedure: k30453 o|inlining procedure: k30395 o|propagated global variable: r3039633930 ##sys#build-version o|inlining procedure: k30490 o|inlining procedure: k30490 o|inlining procedure: k30518 o|inlining procedure: k30518 o|removed side-effect free assignment to unused variable: prefix7254 o|inlining procedure: k30601 o|inlining procedure: k30601 o|inlining procedure: k30616 o|inlining procedure: k30616 o|contracted procedure: "(library.scm:6482) err7253" o|inlining procedure: k30635 o|inlining procedure: k30635 o|inlining procedure: k30713 o|contracted procedure: "(library.scm:6518) g72857292" o|inlining procedure: k30697 o|inlining procedure: k30697 o|inlining procedure: k30713 o|inlining procedure: k30749 o|inlining procedure: k30749 o|inlining procedure: k30780 o|inlining procedure: k30780 o|inlining procedure: k30826 o|inlining procedure: k30826 o|inlining procedure: k30857 o|inlining procedure: k30857 o|inlining procedure: k30869 o|inlining procedure: k30869 o|inlining procedure: k30881 o|inlining procedure: k30881 o|inlining procedure: k30890 o|inlining procedure: k30890 o|inlining procedure: k30899 o|inlining procedure: k30899 o|inlining procedure: k30975 o|inlining procedure: k30975 o|inlining procedure: k30997 o|inlining procedure: k31014 o|contracted procedure: "(library.scm:6460) g72277234" o|inlining procedure: k31014 o|inlining procedure: k30997 o|inlining procedure: k31040 o|inlining procedure: k31040 o|inlining procedure: k31114 o|inlining procedure: k31114 o|inlining procedure: k31161 o|inlining procedure: k31161 o|inlining procedure: k31236 o|inlining procedure: k31236 o|substituted constant variable: a31248 o|inlining procedure: k31261 o|inlining procedure: k31303 o|inlining procedure: k31303 o|inlining procedure: k31333 o|contracted procedure: "(library.scm:5116) g58525859" o|inlining procedure: k31333 o|inlining procedure: k31261 o|inlining procedure: k31388 o|inlining procedure: k31388 o|inlining procedure: k31439 o|inlining procedure: k31439 o|inlining procedure: k31466 o|inlining procedure: k31466 o|inlining procedure: k31491 o|inlining procedure: k31491 o|inlining procedure: k31571 o|inlining procedure: k31571 o|inlining procedure: k31597 o|inlining procedure: k31597 o|inlining procedure: k31678 o|inlining procedure: k31678 o|inlining procedure: k31833 o|inlining procedure: k31833 o|inlining procedure: k31842 o|inlining procedure: k31842 o|inlining procedure: k31851 o|inlining procedure: k31851 o|inlining procedure: k31867 o|inlining procedure: k31867 o|inlining procedure: k31893 o|inlining procedure: k31922 o|inlining procedure: k31922 o|inlining procedure: k31893 o|inlining procedure: k31957 o|inlining procedure: k31957 o|inlining procedure: k31997 o|inlining procedure: k31997 o|inlining procedure: k32059 o|inlining procedure: k32059 o|inlining procedure: k32071 o|inlining procedure: k32071 o|inlining procedure: k32114 o|inlining procedure: k32114 o|inlining procedure: k32172 o|inlining procedure: k32172 o|inlining procedure: k32187 o|inlining procedure: k32187 o|inlining procedure: k32223 o|inlining procedure: k32223 o|substituted constant variable: sblen3857 o|substituted constant variable: sblen3857 o|replaced variables: 4495 o|removed binding forms: 1859 o|substituted constant variable: r907232326 o|substituted constant variable: r907832328 o|inlining procedure: k9395 o|substituted constant variable: r945932342 o|substituted constant variable: r961232353 o|substituted constant variable: r962432356 o|substituted constant variable: r971932363 o|substituted constant variable: r978032368 o|substituted constant variable: r985332371 o|substituted constant variable: r990732375 o|substituted constant variable: r1002332384 o|substituted constant variable: r1021532393 o|substituted constant variable: r1029232398 o|substituted constant variable: r1075632441 o|substituted constant variable: r1075632441 o|substituted constant variable: r1077332447 o|substituted constant variable: r1077332447 o|substituted constant variable: r1079632452 o|substituted constant variable: r1079632452 o|substituted constant variable: r1081432459 o|substituted constant variable: r1081432459 o|substituted constant variable: r1083832465 o|substituted constant variable: r1083832465 o|substituted constant variable: r1086432471 o|substituted constant variable: r1086432471 o|substituted constant variable: r1096732482 o|substituted constant variable: r1149832506 o|substituted constant variable: r1186132527 o|substituted constant variable: loc1755 o|substituted constant variable: loc1766 o|substituted constant variable: loc1777 o|substituted constant variable: loc1788 o|substituted constant variable: loc1799 o|substituted constant variable: loc1810 o|substituted constant variable: loc1821 o|substituted constant variable: loc1832 o|substituted constant variable: loc1843 o|substituted constant variable: loc1854 o|substituted constant variable: loc1865 o|substituted constant variable: loc1874 o|substituted constant variable: loc1884 o|substituted constant variable: loc1895 o|substituted constant variable: loc1904 o|substituted constant variable: loc1912 o|substituted constant variable: loc1920 o|substituted constant variable: loc1928 o|substituted constant variable: loc1936 o|substituted constant variable: loc1944 o|substituted constant variable: loc1952 o|substituted constant variable: loc1960 o|substituted constant variable: loc1968 o|substituted constant variable: loc1976 o|substituted constant variable: loc1986 o|substituted constant variable: loc1995 o|substituted constant variable: loc2005 o|substituted constant variable: loc2014 o|substituted constant variable: loc2022 o|substituted constant variable: loc2030 o|substituted constant variable: loc2038 o|inlining procedure: k12624 o|inlining procedure: k12624 o|substituted constant variable: r1263832600 o|substituted constant variable: r1271932605 o|substituted constant variable: r1288332619 o|converted assignments to bindings: (deliver2212) o|substituted constant variable: n2410 o|substituted constant variable: d2411 o|substituted constant variable: r1415732694 o|substituted constant variable: r1416632696 o|substituted constant variable: r1419932700 o|substituted constant variable: r1420832702 o|substituted constant variable: r1508532750 o|substituted constant variable: r1519332757 o|substituted constant variable: r1525832761 o|substituted constant variable: r1543332768 o|substituted constant variable: r1556132770 o|substituted constant variable: r1556132770 o|substituted constant variable: r1556132772 o|substituted constant variable: r1556132772 o|substituted constant variable: r1562032779 o|substituted constant variable: r1563632782 o|substituted constant variable: r1563632783 o|substituted constant variable: r1559932788 o|removed side-effect free assignment to unused variable: make-nan2847 o|substituted constant variable: r1582632800 o|substituted constant variable: r1584632802 o|substituted constant variable: r1586832804 o|substituted constant variable: r1587932806 o|substituted constant variable: r1591632809 o|substituted constant variable: r1594232810 o|substituted constant variable: r1594232811 o|substituted constant variable: r1589332812 o|substituted constant variable: r1600532825 o|substituted constant variable: r1599332826 o|substituted constant variable: r1595432842 o|substituted constant variable: r1627032852 o|substituted constant variable: r1626032853 o|substituted constant variable: r1624832854 o|substituted constant variable: r1633432862 o|substituted constant variable: r1631632863 o|substituted constant variable: r1630632864 o|substituted constant variable: r1649032875 o|substituted constant variable: r1657132879 o|substituted constant variable: r1657132879 o|substituted constant variable: r1657132881 o|substituted constant variable: r1657132881 o|substituted constant variable: r1659432886 o|substituted constant variable: r1659432886 o|substituted constant variable: r1667732894 o|substituted constant variable: r1667732894 o|substituted constant variable: r1665432897 o|substituted constant variable: r1672932898 o|substituted constant variable: r1672932899 o|substituted constant variable: r1651132900 o|substituted constant variable: r1675732903 o|substituted constant variable: r1674532904 o|substituted constant variable: r1678032908 o|substituted constant variable: r1685532912 o|substituted constant variable: r1684032913 o|substituted constant variable: r1690232916 o|substituted constant variable: r1702232919 o|substituted constant variable: r1706632923 o|substituted constant variable: r1711032927 o|substituted constant variable: r1712332929 o|substituted constant variable: r1722032936 o|substituted constant variable: r1729332940 o|substituted constant variable: r1737932945 o|substituted constant variable: r1739132947 o|substituted constant variable: r1740032950 o|substituted constant variable: r1741832953 o|substituted constant variable: r1770232976 o|substituted constant variable: r1775032978 o|substituted constant variable: r1785432987 o|substituted constant variable: r1818732998 o|substituted constant variable: r1831833004 o|substituted constant variable: r1851833016 o|substituted constant variable: r1870233028 o|converted assignments to bindings: (continuation3767) o|substituted constant variable: r1887633042 o|removed unused formal parameters: (%convert?38993914) o|removed unused parameter to known procedure: %convert?38993914 "(library.scm:3301) def-set?39043913" o|removed unused parameter to known procedure: %convert?38993914 "(library.scm:3301) def-set?39043913" o|removed unused formal parameters: (%convert?39243939) o|removed unused parameter to known procedure: %convert?39243939 "(library.scm:3311) def-set?39293938" o|removed unused parameter to known procedure: %convert?39243939 "(library.scm:3311) def-set?39293938" o|removed unused formal parameters: (%convert?39493964) o|removed unused parameter to known procedure: %convert?39493964 "(library.scm:3321) def-set?39543963" o|removed unused parameter to known procedure: %convert?39493964 "(library.scm:3321) def-set?39543963" o|substituted constant variable: r1918233070 o|substituted constant variable: r1924533075 o|substituted constant variable: r1924533075 o|substituted constant variable: r1924533077 o|substituted constant variable: r1924533077 o|substituted constant variable: r1948733087 o|substituted constant variable: r1954033090 o|substituted constant variable: r1963433096 o|substituted constant variable: r1967233098 o|substituted constant variable: r1970633100 o|substituted constant variable: r1976633104 o|inlining procedure: k20089 o|substituted constant variable: r2015633119 o|inlining procedure: k20167 o|substituted constant variable: r2099533170 o|substituted constant variable: tok476733198 o|inlining procedure: k21326 o|converted assignments to bindings: (starting-line4541) o|substituted constant variable: r2142633240 o|substituted constant variable: r2142633240 o|substituted constant variable: r2173933275 o|substituted constant variable: r2173933275 o|substituted constant variable: r2174933278 o|inlining procedure: k21987 o|inlining procedure: k21987 o|inlining procedure: k21987 o|substituted constant variable: r2198533299 o|substituted constant variable: r2196733300 o|removed side-effect free assignment to unused variable: build-symbol4435 o|removed side-effect free assignment to unused variable: build-keyword4436 o|substituted constant variable: r2243933334 o|substituted constant variable: r2260133345 o|substituted constant variable: r2283533366 o|substituted constant variable: r2310033392 o|substituted constant variable: r2311933393 o|substituted constant variable: r2311933393 o|substituted constant variable: r2311933395 o|substituted constant variable: r2311933395 o|substituted constant variable: r2329933402 o|substituted constant variable: r2332333405 o|substituted constant variable: r2331133406 o|converted assignments to bindings: (hex4958) o|substituted constant variable: r2352133417 o|propagated global variable: port502633420 ##sys#standard-output o|substituted constant variable: r2404333443 o|substituted constant variable: r2405533445 o|substituted constant variable: r2407033447 o|substituted constant variable: r2407033448 o|substituted constant variable: r2411133450 o|substituted constant variable: r2412633452 o|substituted constant variable: r2412633453 o|inlining procedure: k24138 o|substituted constant variable: r2413933456 o|substituted constant variable: r2413933456 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r2418133462 o|inlining procedure: k24637 o|substituted constant variable: r2488433514 o|inlining procedure: k25022 o|substituted constant variable: r2538633538 o|converted assignments to bindings: (copy&append5540) o|substituted constant variable: r2560233549 o|converted assignments to bindings: (break5709) o|substituted constant variable: r2612233581 o|substituted constant variable: r2612233581 o|substituted constant variable: r2612233583 o|substituted constant variable: r2612233583 o|substituted constant variable: r2616533585 o|substituted constant variable: r2617733587 o|substituted constant variable: r2618933589 o|substituted constant variable: r2620133591 o|substituted constant variable: r2621333593 o|substituted constant variable: r2622533595 o|substituted constant variable: r2623733597 o|substituted constant variable: r2623733598 o|substituted constant variable: r2640033602 o|substituted constant variable: r2640033602 o|inlining procedure: k26425 o|inlining procedure: k26425 o|removed unused formal parameters: (%convert?59445959) o|removed unused parameter to known procedure: %convert?59445959 "(library.scm:5196) def-set?59495958" o|removed unused parameter to known procedure: %convert?59445959 "(library.scm:5196) def-set?59495958" o|substituted constant variable: r2658433619 o|substituted constant variable: r2693333631 o|substituted constant variable: r2703133636 o|substituted constant variable: r2706133640 o|substituted constant variable: r2742233666 o|substituted constant variable: r2742233666 o|substituted constant variable: r2745933671 o|substituted constant variable: r2745933671 o|substituted constant variable: r2818033730 o|substituted constant variable: r2820233732 o|substituted constant variable: r2826033733 o|substituted constant variable: r2830733737 o|substituted constant variable: r2830733737 o|substituted constant variable: r2832433739 o|inlining procedure: k28726 o|converted assignments to bindings: (get/clear-str6672) o|substituted constant variable: r2920333776 o|inlining procedure: k29361 o|inlining procedure: k29361 o|substituted constant variable: r2996333838 o|removed side-effect free assignment to unused variable: pstr7079 o|removed side-effect free assignment to unused variable: pchr7080 o|substituted constant variable: r3009333841 o|substituted constant variable: r3009333841 o|substituted constant variable: str708433847 o|substituted constant variable: str708433853 o|substituted constant variable: str708433859 o|substituted constant variable: str708433865 o|substituted constant variable: str708433870 o|substituted constant variable: str708433875 o|substituted constant variable: chr708533880 o|substituted constant variable: str708433885 o|substituted constant variable: str708433890 o|substituted constant variable: chr708533895 o|substituted constant variable: str708433900 o|substituted constant variable: str708433905 o|substituted constant variable: str708433910 o|substituted constant variable: str708433915 o|substituted constant variable: r3041833920 o|substituted constant variable: r3041833920 o|substituted constant variable: r3036333924 o|converted assignments to bindings: (str7187) o|substituted constant variable: r3045433926 o|substituted constant variable: r3045433926 o|substituted constant variable: r3045433928 o|substituted constant variable: r3045433928 o|substituted constant variable: r3049133931 o|substituted constant variable: r3075033945 o|substituted constant variable: r3087033954 o|substituted constant variable: r3090033960 o|inlining procedure: k30975 o|substituted constant variable: r3099833968 o|substituted constant variable: r3116233973 o|inlining procedure: k31282 o|inlining procedure: k31282 o|substituted constant variable: r3146733987 o|substituted constant variable: r3149233989 o|substituted constant variable: r3159833995 o|substituted constant variable: r3167933997 o|substituted constant variable: r3184334002 o|substituted constant variable: r3185234004 o|substituted constant variable: r3186834006 o|substituted constant variable: r3192334009 o|converted assignments to bindings: (lookup-char3600) o|simplifications: ((let . 10)) o|replaced variables: 194 o|removed binding forms: 4479 o|removed conditional forms: 1 o|inlining procedure: k9377 o|substituted constant variable: r939634039 o|inlining procedure: k10540 o|inlining procedure: k10540 o|inlining procedure: k10540 o|inlining procedure: k11012 o|inlining procedure: k11028 o|inlining procedure: k11044 o|inlining procedure: k11060 o|inlining procedure: k11076 o|inlining procedure: k11092 o|inlining procedure: k11108 o|inlining procedure: k11124 o|inlining procedure: k11249 o|inlining procedure: k11284 o|inlining procedure: k11284 o|inlining procedure: k11539 o|inlining procedure: k11539 o|inlining procedure: k11649 o|inlining procedure: k11649 o|inlining procedure: k12825 o|inlining procedure: k12937 o|inlining procedure: k13006 o|inlining procedure: k13098 o|inlining procedure: k13104 o|inlining procedure: k13207 o|inlining procedure: k13430 o|inlining procedure: k13500 o|inlining procedure: k13545 o|inlining procedure: k13582 o|inlining procedure: k13613 o|inlining procedure: k13613 o|inlining procedure: k13626 o|inlining procedure: k13794 o|inlining procedure: k13935 o|inlining procedure: k14577 o|inlining procedure: k14601 o|inlining procedure: k14801 o|inlining procedure: k14924 o|inlining procedure: k14932 o|inlining procedure: k14970 o|inlining procedure: k14988 o|inlining procedure: k15141 o|inlining procedure: k15170 o|inlining procedure: k15388 o|inlining procedure: k15395 o|inlining procedure: k15855 o|inlining procedure: k16363 o|inlining procedure: k16501 o|inlining procedure: k16791 o|inlining procedure: k16805 o|inlining procedure: k16811 o|inlining procedure: k16870 o|inlining procedure: k16878 o|inlining procedure: k17206 o|inlining procedure: k17213 o|inlining procedure: k17213 o|inlining procedure: k17246 o|inlining procedure: k19259 o|inlining procedure: k19259 o|inlining procedure: k19259 o|inlining procedure: k19521 o|propagated global variable: r1952234781 ##sys#standard-output o|propagated global variable: r1952234781 ##sys#standard-output o|inlining procedure: k20068 o|propagated global variable: r2006934789 ##sys#standard-input o|propagated global variable: r2006934789 ##sys#standard-input o|inlining procedure: k20180 o|propagated global variable: r2018134791 ##sys#standard-input o|propagated global variable: r2018134791 ##sys#standard-input o|inlining procedure: k20198 o|propagated global variable: r2019934793 ##sys#standard-input o|propagated global variable: r2019934793 ##sys#standard-input o|inlining procedure: k20911 o|inlining procedure: k23629 o|propagated global variable: r2363034820 ##sys#standard-output o|propagated global variable: r2363034820 ##sys#standard-output o|inlining procedure: k23647 o|propagated global variable: r2364834822 ##sys#standard-output o|propagated global variable: r2364834822 ##sys#standard-output o|inlining procedure: k24025 o|substituted constant variable: r2413934361 o|folded constant expression: (scheme#not (quote #f)) o|inlining procedure: k26279 o|inlining procedure: k28541 o|inlining procedure: "(library.scm:5766) ##sys#format-here-doc-warning" o|inlining procedure: k28776 o|inlining procedure: k28776 o|inlining procedure: "(library.scm:5800) ##sys#format-here-doc-warning" o|inlining procedure: k29064 o|inlining procedure: k29064 o|inlining procedure: k29605 o|inlining procedure: k29605 o|inlining procedure: k29974 o|inlining procedure: k29974 o|inlining procedure: k31830 o|inlining procedure: k31830 o|replaced variables: 34 o|removed binding forms: 495 o|substituted constant variable: r937834563 o|substituted constant variable: code67934040 o|substituted constant variable: code67934040 o|substituted constant variable: r1101334605 o|substituted constant variable: r1102934607 o|substituted constant variable: r1104534609 o|substituted constant variable: r1106134611 o|substituted constant variable: r1107734613 o|substituted constant variable: r1109334615 o|substituted constant variable: r1110934617 o|substituted constant variable: r1112534619 o|substituted constant variable: r1125034627 o|substituted constant variable: r1125034627 o|substituted constant variable: r1128534631 o|substituted constant variable: r1128534631 o|contracted procedure: k12754 o|contracted procedure: k12759 o|contracted procedure: k12819 o|contracted procedure: k13192 o|contracted procedure: k13201 o|contracted procedure: k13306 o|contracted procedure: k13311 o|contracted procedure: k13316 o|contracted procedure: k13321 o|contracted procedure: k13326 o|contracted procedure: k13331 o|contracted procedure: k13363 o|contracted procedure: k13387 o|contracted procedure: k13402 o|contracted procedure: k13482 o|contracted procedure: k13527 o|contracted procedure: k13576 o|substituted constant variable: r1361434680 o|contracted procedure: k13918 o|contracted procedure: k15407 o|contracted procedure: k15412 o|contracted procedure: k15544 o|contracted procedure: k15701 o|contracted procedure: k15809 o|contracted procedure: k15900 o|contracted procedure: k16518 o|contracted procedure: k16535 o|contracted procedure: k16672 o|contracted procedure: k17009 o|substituted constant variable: r1721434732 o|substituted constant variable: r1721434733 o|inlining procedure: k21281 o|substituted constant variable: r2642634413 o|removed side-effect free assignment to unused variable: ##sys#format-here-doc-warning o|substituted constant variable: r2960634923 o|substituted constant variable: r2960634923 o|substituted constant variable: r2997534924 o|substituted constant variable: r2997534924 o|substituted constant variable: r2997534925 o|substituted constant variable: r2997534925 o|substituted constant variable: r3183134948 o|substituted constant variable: r3183134948 o|substituted constant variable: r3183134948 o|substituted constant variable: r3183134950 o|substituted constant variable: r3183134950 o|substituted constant variable: r3183134950 o|simplifications: ((let . 3)) o|replaced variables: 31 o|removed binding forms: 112 o|removed conditional forms: 8 o|substituted constant variable: code66634564 o|substituted constant variable: r2128235096 o|substituted constant variable: r2128235096 o|replaced variables: 12 o|removed binding forms: 55 o|removed conditional forms: 1 o|simplifications: ((let . 1)) o|removed binding forms: 11 o|simplifications: ((if . 206) (##core#call . 2694)) o| call simplifications: o| scheme#cdar 2 o| scheme#set-cdr! 6 o| scheme#list-tail o| scheme#set-car! 7 o| ##sys#make-vector o| scheme#vector? o| ##sys#generic-structure? o| ##sys#foreign-string-argument o| scheme#read-char o| scheme#string-length 3 o| scheme#string-ref 3 o| ##sys#list 6 o| ##sys#context-switch 2 o| ##sys#foreign-pointer-argument 3 o| ##sys#null-pointer? 2 o| scheme#caddr 2 o| scheme#write-char o| scheme#equal? 2 o| scheme#memv 2 o| scheme#caar 3 o| scheme#cddr 3 o| ##sys#check-structure 2 o| scheme#string? 5 o| scheme#symbol? 7 o| ##sys#apply 2 o| ##sys#byte o| scheme#char-upper-case? o| scheme#char<? o| ##sys#void 4 o| scheme#string 4 o| scheme#member 8 o| chicken.fixnum#fxior 13 o| scheme#string=? 6 o| scheme#char-numeric? 7 o| scheme#char<=? o| chicken.fixnum#fx* 9 o| scheme#eof-object? 25 o| scheme#char=? 12 o| scheme#char-whitespace? 7 o| scheme#memq 12 o| ##sys#immediate? 3 o| chicken.fixnum#fxnot o| chicken.fixnum#fxand 16 o| ##sys#call-with-current-continuation 3 o| scheme#char? 4 o| scheme#assq 5 o| ##sys#setislot 28 o| scheme#char->integer 16 o| scheme#char-downcase 14 o| chicken.fixnum#fxmin 3 o| ##sys#check-vector 6 o| ##sys#check-symbol 10 o| ##sys#intern-symbol 10 o| scheme#integer->char 22 o| scheme#string-ci=? 2 o| scheme#char>=? 3 o| ##sys#foreign-flonum-argument o| ##sys#foreign-fixnum-argument 4 o| scheme#remainder o| chicken.base#fixnum? 2 o| chicken.fixnum#fxshr 13 o| chicken.fixnum#fxshl 8 o| chicken.bitwise#bitwise-and 2 o| chicken.fixnum#fxneg 5 o| chicken.bitwise#arithmetic-shift 11 o| scheme#> 7 o| scheme#< 7 o| scheme#cadr 14 o| scheme#= 3 o| scheme#>= 2 o| scheme#quotient 17 o| scheme#exact? o| chicken.base#ratnum? 14 o| ##sys#check-number 10 o| chicken.base#cplxnum? 17 o| scheme#number? 8 o| scheme#* 44 o| scheme#inexact? 7 o| chicken.base#flonum? 46 o| scheme#list->string o| chicken.fixnum#fx> 34 o| scheme#length 6 o| chicken.fixnum#fx>= 34 o| chicken.fixnum#fx+ 126 o| ##sys#check-string 25 o| chicken.fixnum#fx- 54 o| ##sys#call-with-values 22 o| scheme#procedure? 6 o| ##sys#values 2 o| chicken.fixnum#fx<= 26 o| chicken.fixnum#fx< 38 o| scheme#vector 7 o| chicken.fixnum#fx= 21 o| ##sys#size 66 o| scheme#list 25 o| ##sys#setslot 46 o| scheme#list? 5 o| ##sys#check-pair 3 o| chicken.base#void 3 o| scheme#null? 128 o| ##sys#check-list 19 o| scheme#not 90 o| ##sys#make-structure 11 o| ##sys#structure? 8 o| scheme#apply 96 o| scheme#- 19 o| scheme#call-with-values 2 o| scheme#+ 24 o| scheme#values 23 o| ##sys#check-char 15 o| scheme#pair? 91 o| ##sys#slot 346 o| scheme#cons 142 o| scheme#eq? 394 o| scheme#cdr 46 o| scheme#car 120 o|contracted procedure: k8578 o|contracted procedure: k8574 o|contracted procedure: k8592 o|contracted procedure: k8606 o|contracted procedure: k8602 o|contracted procedure: k8627 o|contracted procedure: k8623 o|contracted procedure: k8641 o|contracted procedure: k8637 o|contracted procedure: k8659 o|contracted procedure: k8655 o|contracted procedure: k8651 o|contracted procedure: k8669 o|contracted procedure: k8681 o|contracted procedure: k8699 o|contracted procedure: k8695 o|contracted procedure: k8710 o|contracted procedure: k8728 o|contracted procedure: k8724 o|contracted procedure: k8720 o|contracted procedure: k8738 o|contracted procedure: k8750 o|contracted procedure: k8775 o|contracted procedure: k8771 o|contracted procedure: k8767 o|contracted procedure: k8785 o|contracted procedure: k8804 o|contracted procedure: k8800 o|contracted procedure: k8796 o|contracted procedure: k8837 o|contracted procedure: k8843 o|contracted procedure: k8850 o|contracted procedure: k8858 o|contracted procedure: k8854 o|contracted procedure: k8988 o|contracted procedure: k9017 o|contracted procedure: k9023 o|contracted procedure: k9034 o|contracted procedure: k9040 o|contracted procedure: k9046 o|contracted procedure: k9052 o|contracted procedure: k9058 o|contracted procedure: k9180 o|contracted procedure: k9194 o|contracted procedure: k9233 o|contracted procedure: k9293 o|contracted procedure: k9324 o|contracted procedure: k9305 o|contracted procedure: k9312 o|contracted procedure: k9320 o|contracted procedure: k9330 o|contracted procedure: k9361 o|contracted procedure: k9342 o|contracted procedure: k9349 o|contracted procedure: k9357 o|contracted procedure: k9371 o|contracted procedure: k9386 o|contracted procedure: k9377 o|contracted procedure: k9401 o|contracted procedure: k9395 o|contracted procedure: k9425 o|contracted procedure: k9434 o|contracted procedure: k9444 o|contracted procedure: k9481 o|contracted procedure: k9461 o|contracted procedure: k9464 o|contracted procedure: k9477 o|contracted procedure: k9490 o|contracted procedure: k9493 o|contracted procedure: k9534 o|contracted procedure: k9555 o|contracted procedure: k9567 o|contracted procedure: k9576 o|contracted procedure: k9579 o|contracted procedure: k9585 o|contracted procedure: k9614 o|contracted procedure: k9641 o|contracted procedure: k9620 o|contracted procedure: k9633 o|contracted procedure: k9637 o|contracted procedure: k9650 o|contracted procedure: k9697 o|contracted procedure: k9661 o|contracted procedure: k9675 o|contracted procedure: k9678 o|contracted procedure: k9684 o|contracted procedure: k9706 o|contracted procedure: k9728 o|contracted procedure: k9743 o|contracted procedure: k9753 o|contracted procedure: k9757 o|contracted procedure: k9767 o|contracted procedure: k9776 o|contracted procedure: k9782 o|contracted procedure: k9789 o|contracted procedure: k9808 o|contracted procedure: k9811 o|contracted procedure: k9814 o|contracted procedure: k9820 o|contracted procedure: k9843 o|contracted procedure: k9855 o|contracted procedure: k9887 o|contracted procedure: k9861 o|contracted procedure: k9867 o|contracted procedure: k9870 o|contracted procedure: k9876 o|contracted procedure: k9890 o|contracted procedure: k9897 o|contracted procedure: k9909 o|contracted procedure: k9971 o|contracted procedure: k9915 o|contracted procedure: k9967 o|contracted procedure: k9924 o|contracted procedure: k9933 o|contracted procedure: k9940 o|contracted procedure: k9948 o|contracted procedure: k9952 o|contracted procedure: k9959 o|contracted procedure: k9963 o|contracted procedure: k10054 o|contracted procedure: k9977 o|contracted procedure: k9989 o|contracted procedure: k9996 o|contracted procedure: k9999 o|contracted procedure: k10005 o|contracted procedure: k10011 o|contracted procedure: k10025 o|contracted procedure: k10028 o|contracted procedure: k10041 o|contracted procedure: k10044 o|contracted procedure: k10051 o|contracted procedure: k10158 o|contracted procedure: k10063 o|contracted procedure: k10075 o|contracted procedure: k10082 o|contracted procedure: k10155 o|contracted procedure: k10088 o|contracted procedure: k10094 o|contracted procedure: k10151 o|contracted procedure: k10100 o|contracted procedure: k10116 o|contracted procedure: k10120 o|contracted procedure: k10139 o|contracted procedure: k10143 o|contracted procedure: k10127 o|contracted procedure: k10135 o|contracted procedure: k10147 o|contracted procedure: k10270 o|contracted procedure: k10167 o|contracted procedure: k10264 o|contracted procedure: k10170 o|contracted procedure: k10258 o|contracted procedure: k10173 o|contracted procedure: k10252 o|contracted procedure: k10176 o|contracted procedure: k10191 o|contracted procedure: k10197 o|contracted procedure: k10203 o|contracted procedure: k10217 o|contracted procedure: k10223 o|contracted procedure: k10226 o|contracted procedure: k10229 o|contracted procedure: k10242 o|contracted procedure: k10246 o|contracted procedure: k10279 o|contracted procedure: k10294 o|contracted procedure: k10297 o|contracted procedure: k10300 o|contracted procedure: k10313 o|contracted procedure: k10317 o|contracted procedure: k10320 o|contracted procedure: k10436 o|contracted procedure: k10448 o|contracted procedure: k10487 o|contracted procedure: k10483 o|contracted procedure: k10534 o|contracted procedure: k10537 o|contracted procedure: k10546 o|contracted procedure: k10565 o|contracted procedure: k10572 o|contracted procedure: k10576 o|contracted procedure: k10585 o|contracted procedure: k10596 o|contracted procedure: k10608 o|contracted procedure: k10619 o|contracted procedure: k10630 o|contracted procedure: k10641 o|contracted procedure: k10652 o|contracted procedure: k10663 o|contracted procedure: k10674 o|contracted procedure: k10685 o|contracted procedure: k10696 o|contracted procedure: k10707 o|contracted procedure: k10718 o|contracted procedure: k10729 o|contracted procedure: k10740 o|contracted procedure: k10758 o|contracted procedure: k10775 o|contracted procedure: k10785 o|contracted procedure: k10788 o|contracted procedure: k10798 o|contracted procedure: k10816 o|contracted procedure: k10844 o|contracted procedure: k10829 o|contracted procedure: k10840 o|contracted procedure: k10856 o|contracted procedure: k10866 o|contracted procedure: k10876 o|contracted procedure: k10887 o|contracted procedure: k10896 o|contracted procedure: k10902 o|contracted procedure: k10911 o|contracted procedure: k10920 o|contracted procedure: k10923 o|contracted procedure: k10992 o|contracted procedure: k10988 o|contracted procedure: k10932 o|contracted procedure: k10944 o|contracted procedure: k10954 o|contracted procedure: k10947 o|contracted procedure: k10957 o|contracted procedure: k10984 o|contracted procedure: k10963 o|contracted procedure: k10980 o|contracted procedure: k10969 o|contracted procedure: k10976 o|contracted procedure: k11001 o|contracted procedure: k11019 o|contracted procedure: k11012 o|contracted procedure: k11035 o|contracted procedure: k11028 o|contracted procedure: k11051 o|contracted procedure: k11044 o|contracted procedure: k11067 o|contracted procedure: k11060 o|contracted procedure: k11083 o|contracted procedure: k11076 o|contracted procedure: k11099 o|contracted procedure: k11092 o|contracted procedure: k11115 o|contracted procedure: k11108 o|contracted procedure: k11131 o|contracted procedure: k11124 o|contracted procedure: k11143 o|contracted procedure: k11213 o|contracted procedure: k11155 o|contracted procedure: k11165 o|contracted procedure: k11174 o|contracted procedure: k11181 o|contracted procedure: k11187 o|contracted procedure: k11194 o|contracted procedure: k11202 o|contracted procedure: k11209 o|contracted procedure: k11228 o|contracted procedure: k11235 o|contracted procedure: k11243 o|contracted procedure: k11239 o|contracted procedure: k11260 o|contracted procedure: k11249 o|contracted procedure: k11287 o|contracted procedure: k11290 o|contracted procedure: k11293 o|contracted procedure: k11296 o|contracted procedure: k11305 o|contracted procedure: k11308 o|contracted procedure: k11315 o|contracted procedure: k11324 o|contracted procedure: k11331 o|contracted procedure: k11335 o|contracted procedure: k11388 o|contracted procedure: k11346 o|contracted procedure: k11352 o|contracted procedure: k11367 o|contracted procedure: k11370 o|contracted procedure: k11373 o|contracted procedure: k11380 o|contracted procedure: k11384 o|contracted procedure: k11398 o|contracted procedure: k11409 o|contracted procedure: k11418 o|contracted procedure: k11421 o|contracted procedure: k11424 o|contracted procedure: k11431 o|contracted procedure: k11435 o|contracted procedure: k11444 o|contracted procedure: k11447 o|contracted procedure: k11451 o|contracted procedure: k11457 o|contracted procedure: k11460 o|contracted procedure: k11469 o|contracted procedure: k11478 o|contracted procedure: k11494 o|contracted procedure: k11500 o|contracted procedure: k11506 o|contracted procedure: k11523 o|contracted procedure: k11528 o|contracted procedure: k11531 o|contracted procedure: k11542 o|contracted procedure: k11555 o|contracted procedure: k11564 o|contracted procedure: k11579 o|contracted procedure: k11588 o|contracted procedure: k11606 o|contracted procedure: k11627 o|contracted procedure: k11638 o|contracted procedure: k11641 o|contracted procedure: k11652 o|contracted procedure: k11665 o|contracted procedure: k11674 o|contracted procedure: k11689 o|contracted procedure: k11698 o|contracted procedure: k11716 o|contracted procedure: k11737 o|contracted procedure: k11749 o|contracted procedure: k11752 o|contracted procedure: k11759 o|contracted procedure: k11774 o|contracted procedure: k11781 o|contracted procedure: k11784 o|contracted procedure: k11787 o|contracted procedure: k11794 o|contracted procedure: k11798 o|contracted procedure: k11822 o|contracted procedure: k11825 o|contracted procedure: k11828 o|contracted procedure: k11835 o|contracted procedure: k11839 o|contracted procedure: k11851 o|contracted procedure: k11863 o|contracted procedure: k11869 o|contracted procedure: k11884 o|contracted procedure: k11899 o|contracted procedure: k11918 o|contracted procedure: k11906 o|contracted procedure: k11910 o|contracted procedure: k11914 o|contracted procedure: k11921 o|contracted procedure: k11952 o|contracted procedure: k11945 o|contracted procedure: k11976 o|contracted procedure: k11969 o|contracted procedure: k12000 o|contracted procedure: k11993 o|contracted procedure: k12024 o|contracted procedure: k12017 o|contracted procedure: k12048 o|contracted procedure: k12041 o|contracted procedure: k12072 o|contracted procedure: k12065 o|contracted procedure: k12096 o|contracted procedure: k12089 o|contracted procedure: k12120 o|contracted procedure: k12113 o|contracted procedure: k12144 o|contracted procedure: k12137 o|contracted procedure: k12168 o|contracted procedure: k12161 o|contracted procedure: k12192 o|contracted procedure: k12185 o|contracted procedure: k12209 o|contracted procedure: k12234 o|contracted procedure: k12227 o|contracted procedure: k12258 o|contracted procedure: k12251 o|contracted procedure: k12275 o|contracted procedure: k12293 o|contracted procedure: k12311 o|contracted procedure: k12329 o|contracted procedure: k12347 o|contracted procedure: k12365 o|contracted procedure: k12383 o|contracted procedure: k12401 o|contracted procedure: k12419 o|contracted procedure: k12437 o|contracted procedure: k12462 o|contracted procedure: k12455 o|contracted procedure: k12479 o|contracted procedure: k12504 o|contracted procedure: k12497 o|contracted procedure: k12521 o|contracted procedure: k12539 o|contracted procedure: k12557 o|contracted procedure: k12575 o|contracted procedure: k12597 o|contracted procedure: k12588 o|contracted procedure: k12613 o|contracted procedure: k12627 o|contracted procedure: k12631 o|contracted procedure: k12671 o|contracted procedure: k12675 o|contracted procedure: k12684 o|contracted procedure: k12695 o|contracted procedure: k12707 o|contracted procedure: k12721 o|contracted procedure: k12730 o|contracted procedure: k12749 o|contracted procedure: k12770 o|contracted procedure: k12774 o|contracted procedure: k12766 o|contracted procedure: k12780 o|contracted procedure: k12793 o|contracted procedure: k12799 o|contracted procedure: k12846 o|contracted procedure: k12868 o|contracted procedure: k12892 o|contracted procedure: k12914 o|contracted procedure: k12931 o|contracted procedure: k12943 o|contracted procedure: k13055 o|contracted procedure: k12989 o|contracted procedure: k12980 o|contracted procedure: k13023 o|contracted procedure: k13030 o|contracted procedure: k13081 o|contracted procedure: k13133 o|contracted procedure: k13143 o|contracted procedure: k13156 o|contracted procedure: k13163 o|contracted procedure: k13171 o|contracted procedure: k13175 o|contracted procedure: k13213 o|contracted procedure: k13216 o|contracted procedure: k13268 o|contracted procedure: k13272 o|contracted procedure: k13231 o|contracted procedure: k13248 o|contracted procedure: k13252 o|contracted procedure: k13244 o|contracted procedure: k13260 o|contracted procedure: k13264 o|contracted procedure: k13256 o|contracted procedure: k13278 o|contracted procedure: k13295 o|contracted procedure: k13301 o|contracted procedure: k13354 o|contracted procedure: k13358 o|contracted procedure: k13338 o|contracted procedure: k13346 o|contracted procedure: k13350 o|contracted procedure: k13342 o|contracted procedure: k13369 o|contracted procedure: k13391 o|contracted procedure: k13372 o|contracted procedure: k13397 o|contracted procedure: k13424 o|contracted procedure: k13408 o|contracted procedure: k13411 o|contracted procedure: k13446 o|contracted procedure: k13436 o|contracted procedure: k13454 o|contracted procedure: k13477 o|contracted procedure: k13485 o|contracted procedure: k13491 o|contracted procedure: k13522 o|contracted procedure: k13530 o|contracted procedure: k13536 o|contracted procedure: k13567 o|contracted procedure: k13601 o|contracted procedure: k13604 o|contracted procedure: k13619 o|contracted procedure: k13705 o|contracted procedure: k13647 o|contracted procedure: k13656 o|contracted procedure: k13672 o|contracted procedure: k13676 o|contracted procedure: k13666 o|contracted procedure: k13690 o|contracted procedure: k13694 o|contracted procedure: k13701 o|contracted procedure: k13719 o|contracted procedure: k13765 o|contracted procedure: k13728 o|contracted procedure: k13753 o|contracted procedure: k13757 o|contracted procedure: k13791 o|contracted procedure: k13794 o|contracted procedure: k13775 o|contracted procedure: k13779 o|contracted procedure: k13817 o|contracted procedure: k13823 o|contracted procedure: k13830 o|contracted procedure: k13837 o|contracted procedure: k13848 o|contracted procedure: k13841 o|contracted procedure: k13845 o|contracted procedure: k13861 o|contracted procedure: k13867 o|contracted procedure: k13874 o|contracted procedure: k13881 o|contracted procedure: k13892 o|contracted procedure: k13885 o|contracted procedure: k13889 o|contracted procedure: k13898 o|contracted procedure: k13904 o|contracted procedure: k13946 o|contracted procedure: k13955 o|contracted procedure: k13969 o|contracted procedure: k14012 o|contracted procedure: k13992 o|contracted procedure: k14021 o|contracted procedure: k14027 o|contracted procedure: k14030 o|contracted procedure: k14037 o|contracted procedure: k14055 o|contracted procedure: k14061 o|contracted procedure: k14064 o|contracted procedure: k14071 o|contracted procedure: k14089 o|contracted procedure: k14095 o|contracted procedure: k14114 o|contracted procedure: k14141 o|contracted procedure: k14137 o|contracted procedure: k14153 o|contracted procedure: k14149 o|contracted procedure: k14159 o|contracted procedure: k14176 o|contracted procedure: k14201 o|contracted procedure: k14273 o|contracted procedure: k14218 o|contracted procedure: k14221 o|contracted procedure: k14227 o|contracted procedure: k14236 o|contracted procedure: k14243 o|contracted procedure: k14255 o|contracted procedure: k14259 o|contracted procedure: k14464 o|contracted procedure: k14285 o|contracted procedure: k14291 o|contracted procedure: k14294 o|contracted procedure: k14303 o|contracted procedure: k14312 o|contracted procedure: k14321 o|contracted procedure: k14459 o|contracted procedure: k14343 o|contracted procedure: k14346 o|contracted procedure: k14363 o|contracted procedure: k14359 o|contracted procedure: k14370 o|contracted procedure: k14374 o|contracted procedure: k14455 o|contracted procedure: k14451 o|contracted procedure: k14377 o|contracted procedure: k14391 o|contracted procedure: k14396 o|contracted procedure: k14447 o|contracted procedure: k14402 o|contracted procedure: k14435 o|contracted procedure: k14443 o|contracted procedure: k14439 o|contracted procedure: k14405 o|contracted procedure: k14416 o|contracted procedure: k14428 o|contracted procedure: k14424 o|contracted procedure: k14420 o|contracted procedure: k14485 o|contracted procedure: k14499 o|contracted procedure: k14503 o|contracted procedure: k14552 o|contracted procedure: k14562 o|contracted procedure: k14586 o|contracted procedure: k14610 o|contracted procedure: k14658 o|contracted procedure: k14671 o|contracted procedure: k14678 o|contracted procedure: k14684 o|contracted procedure: k14687 o|contracted procedure: k14745 o|contracted procedure: k14749 o|contracted procedure: k14741 o|contracted procedure: k14694 o|contracted procedure: k14703 o|contracted procedure: k14718 o|contracted procedure: k14722 o|contracted procedure: k14714 o|contracted procedure: k14710 o|contracted procedure: k14733 o|contracted procedure: k14765 o|contracted procedure: k14769 o|contracted procedure: k14813 o|contracted procedure: k14824 o|contracted procedure: k14832 o|contracted procedure: k14839 o|contracted procedure: k14843 o|contracted procedure: k14856 o|contracted procedure: k14869 o|contracted procedure: k14879 o|contracted procedure: k15110 o|contracted procedure: k14889 o|contracted procedure: k15106 o|contracted procedure: k14898 o|contracted procedure: k14938 o|contracted procedure: k14979 o|contracted procedure: k15013 o|contracted procedure: k15057 o|contracted procedure: k15060 o|contracted procedure: k15087 o|contracted procedure: k15095 o|contracted procedure: k15102 o|contracted procedure: k15132 o|contracted procedure: k15154 o|contracted procedure: k15195 o|contracted procedure: k15202 o|contracted procedure: k15206 o|contracted procedure: k15215 o|contracted procedure: k15226 o|contracted procedure: k15237 o|contracted procedure: k15251 o|contracted procedure: k15247 o|contracted procedure: k15260 o|contracted procedure: k15267 o|contracted procedure: k15271 o|contracted procedure: k15280 o|contracted procedure: k15291 o|contracted procedure: k15309 o|contracted procedure: k15301 o|contracted procedure: k15305 o|contracted procedure: k15362 o|contracted procedure: k15315 o|contracted procedure: k15352 o|contracted procedure: k15347 o|contracted procedure: k15371 o|contracted procedure: k15402 o|contracted procedure: k15423 o|contracted procedure: k15550 o|contracted procedure: k15563 o|contracted procedure: k15578 o|contracted procedure: k15571 o|contracted procedure: k15591 o|contracted procedure: k15604 o|contracted procedure: k15610 o|contracted procedure: k15616 o|contracted procedure: k15626 o|contracted procedure: k15658 o|contracted procedure: k15632 o|contracted procedure: k15638 o|contracted procedure: k15644 o|contracted procedure: k15448 o|contracted procedure: k15452 o|contracted procedure: k15517 o|contracted procedure: k15462 o|contracted procedure: k15468 o|contracted procedure: k15506 o|contracted procedure: k15471 o|contracted procedure: k15532 o|contracted procedure: k15536 o|contracted procedure: k15487 o|contracted procedure: k15491 o|contracted procedure: k15499 o|contracted procedure: k15664 o|contracted procedure: k16976 o|contracted procedure: k16972 o|contracted procedure: k15667 o|contracted procedure: k16968 o|contracted procedure: k16964 o|contracted procedure: k15670 o|contracted procedure: k16960 o|contracted procedure: k16956 o|contracted procedure: k15673 o|contracted procedure: k15687 o|contracted procedure: k15693 o|contracted procedure: k15707 o|contracted procedure: k15732 o|contracted procedure: k15713 o|contracted procedure: k15720 o|contracted procedure: k15726 o|contracted procedure: k15779 o|contracted procedure: k15740 o|contracted procedure: k15750 o|contracted procedure: k15756 o|contracted procedure: k15762 o|contracted procedure: k15795 o|contracted procedure: k15801 o|contracted procedure: k15815 o|contracted procedure: k15822 o|contracted procedure: k15828 o|contracted procedure: k15842 o|contracted procedure: k15849 o|contracted procedure: k15870 o|contracted procedure: k15884 o|contracted procedure: k15895 o|contracted procedure: k15906 o|contracted procedure: k15926 o|contracted procedure: k15930 o|contracted procedure: k15938 o|contracted procedure: k15944 o|contracted procedure: k15956 o|contracted procedure: k15962 o|contracted procedure: k15977 o|contracted procedure: k15983 o|contracted procedure: k15995 o|contracted procedure: k16010 o|contracted procedure: k16020 o|contracted procedure: k16039 o|contracted procedure: k16035 o|contracted procedure: k16043 o|contracted procedure: k16046 o|contracted procedure: k16049 o|contracted procedure: k16052 o|contracted procedure: k16058 o|contracted procedure: k16065 o|contracted procedure: k16077 o|contracted procedure: k16083 o|contracted procedure: k16089 o|contracted procedure: k16095 o|contracted procedure: k16101 o|contracted procedure: k16107 o|contracted procedure: k16113 o|contracted procedure: k16119 o|contracted procedure: k16153 o|contracted procedure: k16180 o|contracted procedure: k16195 o|contracted procedure: k16204 o|contracted procedure: k16230 o|contracted procedure: k16210 o|contracted procedure: k16217 o|contracted procedure: k16238 o|contracted procedure: k16244 o|contracted procedure: k16250 o|contracted procedure: k16278 o|contracted procedure: k16282 o|contracted procedure: k16292 o|contracted procedure: k16296 o|contracted procedure: k16312 o|contracted procedure: k16390 o|contracted procedure: k16321 o|contracted procedure: k16386 o|contracted procedure: k16336 o|contracted procedure: k16345 o|contracted procedure: k16356 o|contracted procedure: k16371 o|contracted procedure: k16394 o|contracted procedure: k16403 o|contracted procedure: k16409 o|contracted procedure: k16415 o|contracted procedure: k16421 o|contracted procedure: k16427 o|contracted procedure: k16433 o|contracted procedure: k16439 o|contracted procedure: k16445 o|contracted procedure: k16476 o|contracted procedure: k16505 o|contracted procedure: k16486 o|contracted procedure: k16492 o|contracted procedure: k16513 o|contracted procedure: k16524 o|contracted procedure: k16530 o|contracted procedure: k16541 o|contracted procedure: k16544 o|contracted procedure: k16557 o|contracted procedure: k16628 o|contracted procedure: k16563 o|contracted procedure: k16573 o|contracted procedure: k16606 o|contracted procedure: k16589 o|contracted procedure: k16603 o|contracted procedure: k16596 o|contracted procedure: k16593 o|contracted procedure: k16624 o|contracted procedure: k16609 o|contracted procedure: k16620 o|contracted procedure: k16634 o|contracted procedure: k16637 o|contracted procedure: k16650 o|contracted procedure: k16698 o|contracted procedure: k16656 o|contracted procedure: k16662 o|contracted procedure: k16686 o|contracted procedure: k16679 o|contracted procedure: k16676 o|contracted procedure: k16694 o|contracted procedure: k16705 o|contracted procedure: k16725 o|contracted procedure: k16731 o|contracted procedure: k16750 o|contracted procedure: k16766 o|contracted procedure: k16773 o|contracted procedure: k16776 o|contracted procedure: k16815 o|contracted procedure: k16782 o|contracted procedure: k16788 o|contracted procedure: k16791 o|contracted procedure: k16823 o|contracted procedure: k16826 o|contracted procedure: k16836 o|contracted procedure: k16884 o|contracted procedure: k16842 o|contracted procedure: k16848 o|contracted procedure: k16894 o|contracted procedure: k16918 o|contracted procedure: k16904 o|contracted procedure: k16922 o|contracted procedure: k16945 o|contracted procedure: k17228 o|contracted procedure: k16982 o|contracted procedure: k16985 o|contracted procedure: k16995 o|contracted procedure: k17187 o|contracted procedure: k17015 o|contracted procedure: k17018 o|contracted procedure: k17024 o|contracted procedure: k17031 o|contracted procedure: k17037 o|contracted procedure: k17040 o|contracted procedure: k17046 o|contracted procedure: k17053 o|contracted procedure: k17059 o|contracted procedure: k17062 o|contracted procedure: k17068 o|contracted procedure: k17075 o|contracted procedure: k17081 o|contracted procedure: k17084 o|contracted procedure: k17090 o|contracted procedure: k17097 o|contracted procedure: k17103 o|contracted procedure: k17106 o|contracted procedure: k17112 o|contracted procedure: k17119 o|contracted procedure: k17125 o|contracted procedure: k17128 o|contracted procedure: k17134 o|contracted procedure: k17141 o|contracted procedure: k17210 o|contracted procedure: k17197 o|contracted procedure: k17222 o|contracted procedure: k17213 o|contracted procedure: k17270 o|contracted procedure: k17237 o|contracted procedure: k17264 o|contracted procedure: k17240 o|contracted procedure: k17258 o|contracted procedure: k17243 o|contracted procedure: k17252 o|contracted procedure: k17246 o|contracted procedure: k17286 o|contracted procedure: k17289 o|contracted procedure: k17295 o|contracted procedure: k17298 o|contracted procedure: k17304 o|contracted procedure: k17316 o|contracted procedure: k17323 o|contracted procedure: k17327 o|contracted procedure: k17340 o|contracted procedure: k17344 o|contracted procedure: k17348 o|contracted procedure: k17354 o|contracted procedure: k17363 o|contracted procedure: k17369 o|contracted procedure: k17381 o|contracted procedure: k17387 o|contracted procedure: k17393 o|contracted procedure: k17414 o|contracted procedure: k17424 o|contracted procedure: k17420 o|contracted procedure: k17427 o|contracted procedure: k17440 o|contracted procedure: k17433 o|contracted procedure: k17458 o|contracted procedure: k17473 o|contracted procedure: k17486 o|contracted procedure: k17499 o|contracted procedure: k17518 o|contracted procedure: k17536 o|contracted procedure: k17539 o|contracted procedure: k17574 o|contracted procedure: k17594 o|contracted procedure: k17597 o|contracted procedure: k17600 o|contracted procedure: k17608 o|contracted procedure: k17616 o|contracted procedure: k17579 o|contracted procedure: k17628 o|contracted procedure: k17650 o|contracted procedure: k17676 o|contracted procedure: k17655 o|contracted procedure: k17661 o|contracted procedure: k17667 o|contracted procedure: k17716 o|contracted procedure: k17719 o|contracted procedure: k17731 o|contracted procedure: k17746 o|contracted procedure: k17757 o|contracted procedure: k17752 o|contracted procedure: k17776 o|contracted procedure: k17773 o|contracted procedure: k17782 o|contracted procedure: k17838 o|contracted procedure: k17795 o|contracted procedure: k17801 o|contracted procedure: k17816 o|contracted procedure: k17834 o|contracted procedure: k17819 o|contracted procedure: k17826 o|contracted procedure: k17830 o|contracted procedure: k17844 o|contracted procedure: k17856 o|contracted procedure: k17863 o|contracted procedure: k17871 o|contracted procedure: k17883 o|contracted procedure: k17895 o|contracted procedure: k17898 o|contracted procedure: k17905 o|contracted procedure: k17911 o|contracted procedure: k17914 o|contracted procedure: k17917 o|contracted procedure: k17920 o|contracted procedure: k17941 o|contracted procedure: k17955 o|contracted procedure: k17944 o|contracted procedure: k17951 o|contracted procedure: k17958 o|contracted procedure: k17961 o|contracted procedure: k17970 o|contracted procedure: k18042 o|contracted procedure: k17980 o|contracted procedure: k17983 o|contracted procedure: k17986 o|contracted procedure: k17989 o|contracted procedure: k17992 o|contracted procedure: k18013 o|contracted procedure: k18031 o|contracted procedure: k18027 o|contracted procedure: k18016 o|contracted procedure: k18023 o|contracted procedure: k18035 o|contracted procedure: k18039 o|contracted procedure: k18063 o|contracted procedure: k18051 o|contracted procedure: k18054 o|contracted procedure: k18087 o|contracted procedure: k18101 o|contracted procedure: k18090 o|contracted procedure: k18097 o|contracted procedure: k18105 o|contracted procedure: k18115 o|contracted procedure: k18119 o|contracted procedure: k18126 o|contracted procedure: k18130 o|contracted procedure: k18137 o|contracted procedure: k18141 o|contracted procedure: k18148 o|contracted procedure: k18152 o|contracted procedure: k18159 o|contracted procedure: k18163 o|contracted procedure: k18173 o|contracted procedure: k18180 o|contracted procedure: k18189 o|contracted procedure: k18192 o|contracted procedure: k18209 o|contracted procedure: k18198 o|contracted procedure: k18205 o|contracted procedure: k18220 o|contracted procedure: k18235 o|contracted procedure: k18238 o|contracted procedure: k18250 o|contracted procedure: k18253 o|contracted procedure: k18267 o|contracted procedure: k18263 o|contracted procedure: k18271 o|contracted procedure: k18294 o|contracted procedure: k18275 o|contracted procedure: k18286 o|contracted procedure: k18290 o|contracted procedure: k18282 o|contracted procedure: k18308 o|contracted procedure: k18304 o|contracted procedure: k18297 o|contracted procedure: k18311 o|contracted procedure: k18314 o|contracted procedure: k18323 o|contracted procedure: k18384 o|contracted procedure: k18390 o|contracted procedure: k18400 o|contracted procedure: k18404 o|contracted procedure: k18422 o|contracted procedure: k18428 o|contracted procedure: k18443 o|contracted procedure: k18447 o|contracted procedure: k18458 o|contracted procedure: k18461 o|contracted procedure: k18467 o|contracted procedure: k18476 o|contracted procedure: k18491 o|contracted procedure: k18502 o|contracted procedure: k18545 o|contracted procedure: k18520 o|contracted procedure: k18541 o|contracted procedure: k18537 o|contracted procedure: k18526 o|contracted procedure: k18533 o|contracted procedure: k18556 o|contracted procedure: k18559 o|contracted procedure: k18571 o|contracted procedure: k18581 o|contracted procedure: k18585 o|contracted procedure: k18592 o|contracted procedure: k18598 o|contracted procedure: k18604 o|contracted procedure: k18642 o|contracted procedure: k18645 o|contracted procedure: k18648 o|contracted procedure: k18660 o|contracted procedure: k18663 o|contracted procedure: k18666 o|contracted procedure: k18674 o|contracted procedure: k18682 o|contracted procedure: k18692 o|contracted procedure: k18698 o|contracted procedure: k18704 o|contracted procedure: k18770 o|contracted procedure: k18750 o|contracted procedure: k18760 o|contracted procedure: k18792 o|contracted procedure: k18803 o|contracted procedure: k18807 o|contracted procedure: k18799 o|contracted procedure: k18817 o|contracted procedure: k18826 o|contracted procedure: k18840 o|contracted procedure: k18832 o|contracted procedure: k18844 o|contracted procedure: k18848 o|contracted procedure: k18869 o|contracted procedure: k18851 o|contracted procedure: k18855 o|contracted procedure: k18865 o|contracted procedure: k18898 o|contracted procedure: k18904 o|contracted procedure: k18907 o|contracted procedure: k18910 o|contracted procedure: k18913 o|contracted procedure: k18916 o|contracted procedure: k18919 o|contracted procedure: k18922 o|contracted procedure: k31960 o|contracted procedure: k31966 o|contracted procedure: k32000 o|contracted procedure: k32006 o|contracted procedure: k32062 o|contracted procedure: k32068 o|contracted procedure: k32074 o|contracted procedure: k32087 o|contracted procedure: k32091 o|contracted procedure: k32095 o|contracted procedure: k32117 o|contracted procedure: k32124 o|contracted procedure: k32128 o|contracted procedure: k32132 o|contracted procedure: k32142 o|contracted procedure: k32158 o|contracted procedure: k32162 o|contracted procedure: k32169 o|contracted procedure: k32175 o|contracted procedure: k32184 o|contracted procedure: k32190 o|contracted procedure: k32204 o|contracted procedure: k32208 o|contracted procedure: k32220 o|contracted procedure: k32226 o|contracted procedure: k32232 o|contracted procedure: k32256 o|contracted procedure: k32235 o|contracted procedure: k32293 o|contracted procedure: k32289 o|contracted procedure: k32278 o|contracted procedure: k32307 o|contracted procedure: k32303 o|contracted procedure: k32296 o|contracted procedure: k32310 o|contracted procedure: k18926 o|contracted procedure: k18957 o|contracted procedure: k18968 o|contracted procedure: k18979 o|contracted procedure: k18990 o|contracted procedure: k19001 o|contracted procedure: k19004 o|contracted procedure: k19030 o|contracted procedure: k19036 o|contracted procedure: k19043 o|contracted procedure: k19049 o|contracted procedure: k19062 o|contracted procedure: k19065 o|contracted procedure: k19091 o|contracted procedure: k19097 o|contracted procedure: k19104 o|contracted procedure: k19110 o|contracted procedure: k19123 o|contracted procedure: k19126 o|contracted procedure: k19152 o|contracted procedure: k19158 o|contracted procedure: k19165 o|contracted procedure: k19171 o|contracted procedure: k19184 o|contracted procedure: k19207 o|contracted procedure: k19210 o|contracted procedure: k19253 o|contracted procedure: k19256 o|contracted procedure: k19266 o|contracted procedure: k19269 o|contracted procedure: k1926634770 o|contracted procedure: k19276 o|contracted procedure: k1926634774 o|contracted procedure: k19283 o|contracted procedure: k1926634778 o|contracted procedure: k19308 o|contracted procedure: k19332 o|contracted procedure: k19336 o|contracted procedure: k19328 o|contracted procedure: k19314 o|contracted procedure: k19324 o|contracted procedure: k19317 o|contracted procedure: k19489 o|contracted procedure: k19495 o|contracted procedure: k19515 o|contracted procedure: k19508 o|contracted procedure: k19530 o|contracted procedure: k19521 o|contracted procedure: k19548 o|contracted procedure: k19555 o|contracted procedure: k19577 o|contracted procedure: k19594 o|contracted procedure: k19583 o|contracted procedure: k19590 o|contracted procedure: k19598 o|contracted procedure: k19601 o|contracted procedure: k19617 o|contracted procedure: k19656 o|contracted procedure: k19627 o|contracted procedure: k19636 o|contracted procedure: k19639 o|contracted procedure: k19652 o|contracted procedure: k19662 o|contracted procedure: k19678 o|contracted procedure: k19674 o|contracted procedure: k19690 o|contracted procedure: k19720 o|contracted procedure: k19797 o|contracted procedure: k19731 o|contracted procedure: k19755 o|contracted procedure: k19768 o|contracted procedure: k19775 o|contracted procedure: k19785 o|contracted procedure: k19781 o|contracted procedure: k19788 o|contracted procedure: k19872 o|contracted procedure: k20032 o|contracted procedure: k19879 o|contracted procedure: k19893 o|contracted procedure: k19902 o|contracted procedure: k19910 o|contracted procedure: k19914 o|contracted procedure: k19920 o|contracted procedure: k19929 o|contracted procedure: k19935 o|contracted procedure: k19945 o|contracted procedure: k19961 o|contracted procedure: k19967 o|contracted procedure: k19974 o|contracted procedure: k19980 o|contracted procedure: k19990 o|contracted procedure: k19996 o|contracted procedure: k20002 o|contracted procedure: k20011 o|contracted procedure: k20029 o|contracted procedure: k20017 o|contracted procedure: k20025 o|contracted procedure: k20059 o|contracted procedure: k20043 o|contracted procedure: k20056 o|contracted procedure: k20049 o|contracted procedure: k20077 o|contracted procedure: k20068 o|contracted procedure: k20092 o|contracted procedure: k20106 o|contracted procedure: k20102 o|contracted procedure: k20095 o|inlining procedure: k20089 o|contracted procedure: k20112 o|contracted procedure: k20123 o|contracted procedure: k20119 o|inlining procedure: k20089 o|contracted procedure: k20127 o|contracted procedure: k20130 o|contracted procedure: k20140 o|contracted procedure: k20133 o|contracted procedure: k20158 o|contracted procedure: k20174 o|contracted procedure: k20161 o|contracted procedure: k20167 o|contracted procedure: k20189 o|contracted procedure: k20180 o|contracted procedure: k20207 o|contracted procedure: k20198 o|contracted procedure: k20260 o|contracted procedure: k20283 o|contracted procedure: k20352 o|contracted procedure: k20359 o|contracted procedure: k20381 o|contracted procedure: k20409 o|contracted procedure: k20425 o|contracted procedure: k20450 o|contracted procedure: k20475 o|contracted procedure: k20478 o|contracted procedure: k20488 o|contracted procedure: k20492 o|contracted procedure: k20504 o|contracted procedure: k20516 o|contracted procedure: k20523 o|contracted procedure: k20527 o|contracted procedure: k20532 o|contracted procedure: k20557 o|contracted procedure: k20567 o|contracted procedure: k20578 o|contracted procedure: k20584 o|contracted procedure: k20595 o|contracted procedure: k20601 o|contracted procedure: k20612 o|contracted procedure: k20618 o|contracted procedure: k20629 o|contracted procedure: k20635 o|contracted procedure: k20646 o|contracted procedure: k20652 o|contracted procedure: k20663 o|contracted procedure: k20669 o|contracted procedure: k20680 o|contracted procedure: k20686 o|contracted procedure: k20689 o|contracted procedure: k20700 o|contracted procedure: k20710 o|contracted procedure: k20754 o|contracted procedure: k20784 o|contracted procedure: k20813 o|contracted procedure: k20827 o|contracted procedure: k20833 o|contracted procedure: k20848 o|contracted procedure: k20851 o|contracted procedure: k20864 o|contracted procedure: k20879 o|contracted procedure: k20895 o|contracted procedure: k20974 o|contracted procedure: k20970 o|contracted procedure: k20962 o|contracted procedure: k20958 o|contracted procedure: k20943 o|contracted procedure: k20954 o|contracted procedure: k20988 o|contracted procedure: k20991 o|contracted procedure: k20997 o|contracted procedure: k21003 o|contracted procedure: k21009 o|contracted procedure: k21026 o|contracted procedure: k21032 o|contracted procedure: k21072 o|contracted procedure: k21086 o|contracted procedure: k21095 o|contracted procedure: k21104 o|contracted procedure: k21137 o|contracted procedure: k21178 o|contracted procedure: k21187 o|contracted procedure: k21199 o|contracted procedure: k21211 o|contracted procedure: k21220 o|contracted procedure: k21238 o|contracted procedure: k21256 o|contracted procedure: k21259 o|contracted procedure: k21296 o|contracted procedure: k21269 o|contracted procedure: k21290 o|contracted procedure: k21302 o|contracted procedure: k21308 o|contracted procedure: k21314 o|contracted procedure: k21323 o|contracted procedure: k21326 o|contracted procedure: k21360 o|contracted procedure: k21394 o|contracted procedure: k21436 o|contracted procedure: k21428 o|contracted procedure: k21445 o|contracted procedure: k21457 o|contracted procedure: k21466 o|contracted procedure: k21496 o|contracted procedure: k21508 o|contracted procedure: k21517 o|contracted procedure: k21573 o|contracted procedure: k21585 o|inlining procedure: k21602 o|contracted procedure: k21606 o|inlining procedure: k21602 o|contracted procedure: k21612 o|contracted procedure: k21637 o|contracted procedure: k21657 o|contracted procedure: k21664 o|contracted procedure: k21707 o|contracted procedure: k21727 o|contracted procedure: k21745 o|contracted procedure: k21738 o|contracted procedure: k21751 o|contracted procedure: k21762 o|contracted procedure: k21758 o|contracted procedure: k21768 o|contracted procedure: k21780 o|contracted procedure: k21804 o|contracted procedure: k21814 o|contracted procedure: k21824 o|contracted procedure: k21844 o|contracted procedure: k21830 o|contracted procedure: k21841 o|contracted procedure: k21853 o|contracted procedure: k21862 o|contracted procedure: k21872 o|inlining procedure: k21879 o|contracted procedure: k21883 o|inlining procedure: k21879 o|contracted procedure: k21897 o|contracted procedure: k21915 o|contracted procedure: k21921 o|contracted procedure: k21938 o|contracted procedure: k21941 o|contracted procedure: k21963 o|contracted procedure: k22082 o|contracted procedure: k21969 o|contracted procedure: k22078 o|contracted procedure: k22070 o|contracted procedure: k22074 o|contracted procedure: k22066 o|contracted procedure: k21972 o|contracted procedure: k21975 o|contracted procedure: k22062 o|contracted procedure: k22058 o|contracted procedure: k22054 o|contracted procedure: k22050 o|contracted procedure: k22037 o|contracted procedure: k22045 o|contracted procedure: k22041 o|contracted procedure: k21981 o|contracted procedure: k21993 o|contracted procedure: k22024 o|contracted procedure: k22032 o|contracted procedure: k22028 o|contracted procedure: k21997 o|contracted procedure: k22003 o|contracted procedure: k22011 o|contracted procedure: k22019 o|contracted procedure: k22015 o|contracted procedure: k22007 o|contracted procedure: k22086 o|contracted procedure: k22109 o|contracted procedure: k22130 o|contracted procedure: k22136 o|contracted procedure: k22153 o|contracted procedure: k22142 o|contracted procedure: k22149 o|contracted procedure: k22166 o|contracted procedure: k22176 o|contracted procedure: k22173 o|contracted procedure: k22189 o|contracted procedure: k22225 o|contracted procedure: k22254 o|contracted procedure: k22278 o|contracted procedure: k22290 o|contracted procedure: k22302 o|contracted procedure: k22314 o|contracted procedure: k22323 o|contracted procedure: k22342 o|contracted procedure: k22354 o|contracted procedure: k22363 o|contracted procedure: k22372 o|contracted procedure: k22381 o|contracted procedure: k22405 o|contracted procedure: k22417 o|contracted procedure: k22420 o|contracted procedure: k22435 o|contracted procedure: k22445 o|contracted procedure: k22452 o|contracted procedure: k22476 o|contracted procedure: k22485 o|contracted procedure: k22491 o|contracted procedure: k22503 o|contracted procedure: k22515 o|contracted procedure: k22527 o|contracted procedure: k22539 o|contracted procedure: k22551 o|contracted procedure: k22563 o|contracted procedure: k22594 o|contracted procedure: k22603 o|contracted procedure: k22609 o|contracted procedure: k22618 o|contracted procedure: k22627 o|contracted procedure: k22639 o|contracted procedure: k22654 o|contracted procedure: k22666 o|contracted procedure: k22681 o|contracted procedure: k22693 o|contracted procedure: k22705 o|contracted procedure: k22720 o|contracted procedure: k22769 o|contracted procedure: k22758 o|contracted procedure: k22765 o|contracted procedure: k22780 o|contracted procedure: k22800 o|contracted procedure: k22796 o|contracted procedure: k22810 o|contracted procedure: k22837 o|contracted procedure: k22843 o|contracted procedure: k22853 o|contracted procedure: k22859 o|contracted procedure: k22872 o|contracted procedure: k22875 o|contracted procedure: k22898 o|contracted procedure: k22945 o|contracted procedure: k22951 o|contracted procedure: k22960 o|contracted procedure: k22972 o|contracted procedure: k22984 o|contracted procedure: k22993 o|contracted procedure: k22996 o|contracted procedure: k23005 o|contracted procedure: k23011 o|contracted procedure: k23020 o|contracted procedure: k23029 o|contracted procedure: k23038 o|contracted procedure: k23047 o|contracted procedure: k23050 o|contracted procedure: k23110 o|contracted procedure: k23096 o|contracted procedure: k23106 o|contracted procedure: k23124 o|contracted procedure: k23114 o|contracted procedure: k23121 o|contracted procedure: k23133 o|contracted procedure: k23139 o|contracted procedure: k23148 o|contracted procedure: k23175 o|contracted procedure: k23171 o|contracted procedure: k23155 o|contracted procedure: k23167 o|contracted procedure: k23163 o|contracted procedure: k23159 o|contracted procedure: k23181 o|contracted procedure: k23224 o|contracted procedure: k23220 o|contracted procedure: k23188 o|contracted procedure: k23216 o|contracted procedure: k23212 o|contracted procedure: k23208 o|contracted procedure: k23192 o|contracted procedure: k23204 o|contracted procedure: k23200 o|contracted procedure: k23196 o|contracted procedure: k23230 o|contracted procedure: k23289 o|contracted procedure: k23285 o|contracted procedure: k23237 o|contracted procedure: k23281 o|contracted procedure: k23277 o|contracted procedure: k23273 o|contracted procedure: k23241 o|contracted procedure: k23269 o|contracted procedure: k23265 o|contracted procedure: k23261 o|contracted procedure: k23245 o|contracted procedure: k23257 o|contracted procedure: k23253 o|contracted procedure: k23249 o|contracted procedure: k23301 o|contracted procedure: k23313 o|contracted procedure: k23319 o|contracted procedure: k23325 o|contracted procedure: k23331 o|contracted procedure: k23366 o|contracted procedure: k23362 o|contracted procedure: k23358 o|contracted procedure: k23338 o|contracted procedure: k23354 o|contracted procedure: k23346 o|contracted procedure: k23350 o|contracted procedure: k23342 o|contracted procedure: k23375 o|contracted procedure: k23381 o|contracted procedure: k23388 o|contracted procedure: k23394 o|contracted procedure: k23401 o|contracted procedure: k23427 o|contracted procedure: k23436 o|contracted procedure: k23454 o|contracted procedure: k23450 o|contracted procedure: k23443 o|contracted procedure: k23460 o|contracted procedure: k23478 o|contracted procedure: k23474 o|contracted procedure: k23470 o|contracted procedure: k23499 o|contracted procedure: k23495 o|contracted procedure: k23491 o|contracted procedure: k23510 o|contracted procedure: k23523 o|contracted procedure: k23526 o|contracted procedure: k23535 o|contracted procedure: k23538 o|contracted procedure: k23575 o|contracted procedure: k23565 o|contracted procedure: k23584 o|contracted procedure: k23605 o|contracted procedure: k23593 o|contracted procedure: k23596 o|contracted procedure: k23620 o|contracted procedure: k23614 o|contracted procedure: k23638 o|contracted procedure: k23629 o|contracted procedure: k23656 o|contracted procedure: k23647 o|contracted procedure: k23675 o|contracted procedure: k23687 o|contracted procedure: k23697 o|contracted procedure: k23701 o|contracted procedure: k23726 o|contracted procedure: k23738 o|contracted procedure: k23748 o|contracted procedure: k23752 o|contracted procedure: k23797 o|contracted procedure: k23803 o|contracted procedure: k23812 o|contracted procedure: k23815 o|contracted procedure: k23831 o|propagated global variable: r23832 ##sys#undefined-value o|contracted procedure: k23834 o|contracted procedure: k23860 o|contracted procedure: k23853 o|contracted procedure: k23876 o|contracted procedure: k23869 o|contracted procedure: k23888 o|contracted procedure: k23901 o|propagated global variable: r23902 ##sys#undefined-value o|contracted procedure: k23905 o|contracted procedure: k23911 o|contracted procedure: k23914 o|contracted procedure: k23932 o|contracted procedure: k23950 o|contracted procedure: k23965 o|contracted procedure: k23974 o|contracted procedure: k23977 o|contracted procedure: k23983 o|contracted procedure: k23996 o|contracted procedure: k24003 o|contracted procedure: k24019 o|contracted procedure: k24022 o|contracted procedure: k24025 o|contracted procedure: k24039 o|contracted procedure: k24045 o|contracted procedure: k24051 o|contracted procedure: k24057 o|contracted procedure: k24060 o|contracted procedure: k24072 o|contracted procedure: k24082 o|contracted procedure: k24091 o|contracted procedure: k24097 o|contracted procedure: k24113 o|contracted procedure: k24131 o|contracted procedure: k24141 o|contracted procedure: k24147 o|contracted procedure: k24154 o|contracted procedure: k24138 o|contracted procedure: k24159 o|contracted procedure: k24165 o|contracted procedure: k24183 o|contracted procedure: k24210 o|contracted procedure: k24189 o|contracted procedure: k24199 o|contracted procedure: k24206 o|contracted procedure: k24221 o|contracted procedure: k24236 o|contracted procedure: k24245 o|contracted procedure: k24254 o|contracted procedure: k24281 o|contracted procedure: k24296 o|contracted procedure: k24305 o|contracted procedure: k24308 o|contracted procedure: k24349 o|contracted procedure: k24401 o|contracted procedure: k24364 o|contracted procedure: k24370 o|contracted procedure: k24382 o|contracted procedure: k24452 o|contracted procedure: k24465 o|contracted procedure: k24469 o|contracted procedure: k24472 o|contracted procedure: k24481 o|contracted procedure: k24490 o|contracted procedure: k24493 o|contracted procedure: k24502 o|contracted procedure: k24511 o|contracted procedure: k24520 o|contracted procedure: k24529 o|contracted procedure: k24538 o|contracted procedure: k24547 o|contracted procedure: k24556 o|contracted procedure: k24575 o|contracted procedure: k24622 o|contracted procedure: k24631 o|contracted procedure: k24653 o|contracted procedure: k24643 o|contracted procedure: k24666 o|contracted procedure: k24670 o|contracted procedure: k24679 o|contracted procedure: k24688 o|contracted procedure: k24703 o|contracted procedure: k24706 o|contracted procedure: k24719 o|contracted procedure: k24726 o|contracted procedure: k24773 o|contracted procedure: k24786 o|contracted procedure: k24789 o|contracted procedure: k24798 o|contracted procedure: k24817 o|contracted procedure: k24833 o|contracted procedure: k24842 o|contracted procedure: k24858 o|contracted procedure: k24862 o|contracted procedure: k24866 o|contracted procedure: k24870 o|contracted procedure: k24897 o|contracted procedure: k24900 o|contracted procedure: k24911 o|contracted procedure: k24907 o|contracted procedure: k24917 o|contracted procedure: k24920 o|contracted procedure: k24956 o|contracted procedure: k24979 o|contracted procedure: k24959 o|contracted procedure: k24975 o|contracted procedure: k24998 o|contracted procedure: k25028 o|contracted procedure: k25038 o|contracted procedure: k25044 o|contracted procedure: k25054 o|contracted procedure: k25153 o|contracted procedure: k25156 o|contracted procedure: k25159 o|contracted procedure: k25162 o|contracted procedure: k25168 o|contracted procedure: k25193 o|contracted procedure: k25174 o|contracted procedure: k25183 o|contracted procedure: k25186 o|contracted procedure: k25196 o|contracted procedure: k31457 o|contracted procedure: k31460 o|contracted procedure: k31463 o|contracted procedure: k31469 o|contracted procedure: k31476 o|contracted procedure: k31472 o|contracted procedure: k31482 o|contracted procedure: k31485 o|contracted procedure: k31488 o|contracted procedure: k31494 o|contracted procedure: k31503 o|contracted procedure: k31506 o|contracted procedure: k31513 o|contracted procedure: k31522 o|contracted procedure: k31525 o|contracted procedure: k31532 o|contracted procedure: k31544 o|contracted procedure: k31579 o|contracted procedure: k31547 o|contracted procedure: k31554 o|contracted procedure: k31558 o|contracted procedure: k31565 o|contracted procedure: k31561 o|contracted procedure: k31568 o|contracted procedure: k31571 o|contracted procedure: k31585 o|contracted procedure: k31588 o|contracted procedure: k31591 o|contracted procedure: k31594 o|contracted procedure: k31600 o|contracted procedure: k31622 o|contracted procedure: k31613 o|contracted procedure: k31631 o|contracted procedure: k31645 o|contracted procedure: k31641 o|contracted procedure: k31634 o|contracted procedure: k31656 o|contracted procedure: k31660 o|contracted procedure: k31652 o|contracted procedure: k31669 o|contracted procedure: k31672 o|contracted procedure: k31675 o|contracted procedure: k31681 o|contracted procedure: k31687 o|contracted procedure: k25203 o|contracted procedure: k25212 o|contracted procedure: k25223 o|contracted procedure: k25219 o|contracted procedure: k25235 o|contracted procedure: k25265 o|contracted procedure: k25272 o|contracted procedure: k25289 o|contracted procedure: k25323 o|contracted procedure: k25330 o|contracted procedure: k25351 o|contracted procedure: k25358 o|contracted procedure: k25369 o|contracted procedure: k25372 o|contracted procedure: k25379 o|contracted procedure: k25382 o|contracted procedure: k25400 o|contracted procedure: k25388 o|contracted procedure: k25396 o|contracted procedure: k25406 o|contracted procedure: k25412 o|contracted procedure: k25415 o|contracted procedure: k25418 o|contracted procedure: k25428 o|contracted procedure: k25431 o|contracted procedure: k25434 o|contracted procedure: k25472 o|contracted procedure: k25468 o|contracted procedure: k25450 o|contracted procedure: k25460 o|contracted procedure: k25464 o|contracted procedure: k25486 o|contracted procedure: k25501 o|contracted procedure: k25511 o|contracted procedure: k25515 o|contracted procedure: k25540 o|contracted procedure: k25550 o|inlining procedure: k25543 o|inlining procedure: k25543 o|contracted procedure: k25709 o|contracted procedure: k25574 o|contracted procedure: k25703 o|contracted procedure: k25577 o|contracted procedure: k25697 o|contracted procedure: k25580 o|contracted procedure: k25691 o|contracted procedure: k25583 o|contracted procedure: k25681 o|contracted procedure: k25589 o|contracted procedure: k25592 o|contracted procedure: k25604 o|contracted procedure: k25675 o|contracted procedure: k25607 o|contracted procedure: k25613 o|contracted procedure: k25651 o|contracted procedure: k25639 o|contracted procedure: k25647 o|contracted procedure: k25643 o|contracted procedure: k25623 o|contracted procedure: k25631 o|contracted procedure: k25655 o|contracted procedure: k25662 o|contracted procedure: k25665 o|contracted procedure: k25688 o|contracted procedure: k25721 o|contracted procedure: k25729 o|contracted procedure: k25732 o|contracted procedure: k25735 o|contracted procedure: k25775 o|contracted procedure: k25788 o|contracted procedure: k25803 o|contracted procedure: k25813 o|contracted procedure: k25817 o|contracted procedure: k25905 o|contracted procedure: k25823 o|contracted procedure: k25899 o|contracted procedure: k25826 o|contracted procedure: k25893 o|contracted procedure: k25829 o|contracted procedure: k25887 o|contracted procedure: k25832 o|contracted procedure: k25881 o|contracted procedure: k25835 o|contracted procedure: k25875 o|contracted procedure: k25838 o|contracted procedure: k25869 o|contracted procedure: k25841 o|contracted procedure: k25863 o|contracted procedure: k25844 o|contracted procedure: k25853 o|contracted procedure: k25923 o|contracted procedure: k25940 o|contracted procedure: k25968 o|contracted procedure: k25976 o|contracted procedure: k25991 o|contracted procedure: k26001 o|contracted procedure: k26005 o|contracted procedure: k26032 o|contracted procedure: k26039 o|contracted procedure: k26045 o|contracted procedure: k26048 o|contracted procedure: k26086 o|contracted procedure: k26096 o|contracted procedure: k26100 o|contracted procedure: k26103 o|contracted procedure: k26124 o|contracted procedure: k26133 o|contracted procedure: k26136 o|contracted procedure: k26139 o|contracted procedure: k26154 o|contracted procedure: k26146 o|contracted procedure: k26161 o|contracted procedure: k26167 o|contracted procedure: k26173 o|contracted procedure: k26179 o|contracted procedure: k26185 o|contracted procedure: k26191 o|contracted procedure: k26197 o|contracted procedure: k26203 o|contracted procedure: k26209 o|contracted procedure: k26215 o|contracted procedure: k26221 o|contracted procedure: k26227 o|contracted procedure: k26233 o|contracted procedure: k26239 o|contracted procedure: k26276 o|contracted procedure: k26279 o|contracted procedure: k26295 o|contracted procedure: k26288 o|contracted procedure: k26324 o|contracted procedure: k26320 o|contracted procedure: k26353 o|contracted procedure: k26349 o|contracted procedure: k26356 o|contracted procedure: k26360 o|contracted procedure: k26366 o|contracted procedure: k26369 o|contracted procedure: k26372 o|contracted procedure: k26375 o|contracted procedure: k26378 o|contracted procedure: k26399 o|contracted procedure: k26405 o|contracted procedure: k26408 o|contracted procedure: k26414 o|contracted procedure: k26428 o|contracted procedure: k26425 o|contracted procedure: k26437 o|contracted procedure: k26496 o|contracted procedure: k26449 o|contracted procedure: k26492 o|contracted procedure: k26464 o|contracted procedure: k26488 o|contracted procedure: k26484 o|contracted procedure: k26480 o|contracted procedure: k26519 o|contracted procedure: k26522 o|contracted procedure: k26548 o|contracted procedure: k26554 o|contracted procedure: k26561 o|contracted procedure: k26567 o|contracted procedure: k26586 o|contracted procedure: k26639 o|contracted procedure: k26592 o|contracted procedure: k26624 o|contracted procedure: k26605 o|contracted procedure: k26613 o|contracted procedure: k26609 o|contracted procedure: k26635 o|contracted procedure: k26631 o|contracted procedure: k26649 o|contracted procedure: k26659 o|contracted procedure: k26682 o|contracted procedure: k26699 o|contracted procedure: k26721 o|contracted procedure: k26717 o|contracted procedure: k26702 o|contracted procedure: k26705 o|contracted procedure: k26713 o|contracted procedure: k26728 o|contracted procedure: k26745 o|contracted procedure: k26767 o|contracted procedure: k26763 o|contracted procedure: k26748 o|contracted procedure: k26751 o|contracted procedure: k26759 o|contracted procedure: k26779 o|contracted procedure: k26793 o|contracted procedure: k26782 o|contracted procedure: k26789 o|contracted procedure: k26799 o|contracted procedure: k26809 o|contracted procedure: k26821 o|contracted procedure: k26843 o|contracted procedure: k26839 o|contracted procedure: k26824 o|contracted procedure: k26827 o|contracted procedure: k26835 o|contracted procedure: k26850 o|contracted procedure: k26873 o|contracted procedure: k26876 o|contracted procedure: k26879 o|contracted procedure: k26887 o|contracted procedure: k26895 o|contracted procedure: k26859 o|contracted procedure: k26913 o|contracted procedure: k26926 o|contracted procedure: k26935 o|contracted procedure: k26973 o|contracted procedure: k26941 o|contracted procedure: k26955 o|contracted procedure: k26951 o|contracted procedure: k26969 o|contracted procedure: k26976 o|contracted procedure: k26979 o|contracted procedure: k26991 o|contracted procedure: k26994 o|contracted procedure: k26997 o|contracted procedure: k27005 o|contracted procedure: k27013 o|contracted procedure: k27043 o|contracted procedure: k27039 o|contracted procedure: k27049 o|contracted procedure: k27052 o|contracted procedure: k27057 o|contracted procedure: k27089 o|contracted procedure: k27063 o|contracted procedure: k27085 o|contracted procedure: k27066 o|contracted procedure: k27127 o|contracted procedure: k27139 o|contracted procedure: k27149 o|contracted procedure: k27153 o|contracted procedure: k27184 o|contracted procedure: k27209 o|contracted procedure: k27193 o|contracted procedure: k27226 o|contracted procedure: k27246 o|contracted procedure: k27252 o|contracted procedure: k27265 o|contracted procedure: k27271 o|contracted procedure: k27290 o|contracted procedure: k27304 o|contracted procedure: k27293 o|contracted procedure: k27300 o|contracted procedure: k27320 o|contracted procedure: k27326 o|contracted procedure: k27333 o|contracted procedure: k27339 o|contracted procedure: k27389 o|contracted procedure: k27349 o|contracted procedure: k27401 o|contracted procedure: k27404 o|contracted procedure: k27407 o|contracted procedure: k27410 o|contracted procedure: k27421 o|contracted procedure: k27438 o|contracted procedure: k27441 o|contracted procedure: k27444 o|contracted procedure: k27447 o|contracted procedure: k27458 o|contracted procedure: k27475 o|contracted procedure: k27484 o|contracted procedure: k27493 o|contracted procedure: k27502 o|contracted procedure: k27511 o|contracted procedure: k27520 o|contracted procedure: k27529 o|contracted procedure: k27538 o|contracted procedure: k27547 o|contracted procedure: k27556 o|contracted procedure: k27565 o|contracted procedure: k27574 o|contracted procedure: k27583 o|contracted procedure: k27592 o|contracted procedure: k27601 o|contracted procedure: k27610 o|contracted procedure: k27619 o|contracted procedure: k27628 o|contracted procedure: k27637 o|contracted procedure: k27646 o|contracted procedure: k27655 o|contracted procedure: k27664 o|contracted procedure: k27673 o|contracted procedure: k27682 o|contracted procedure: k27691 o|contracted procedure: k27700 o|contracted procedure: k27709 o|contracted procedure: k27718 o|contracted procedure: k27727 o|contracted procedure: k27736 o|contracted procedure: k27745 o|contracted procedure: k27754 o|contracted procedure: k27763 o|contracted procedure: k27772 o|contracted procedure: k27781 o|contracted procedure: k27790 o|contracted procedure: k27799 o|contracted procedure: k27808 o|contracted procedure: k27817 o|contracted procedure: k27826 o|contracted procedure: k27835 o|contracted procedure: k27844 o|contracted procedure: k27853 o|contracted procedure: k27862 o|contracted procedure: k27871 o|contracted procedure: k27880 o|contracted procedure: k27889 o|contracted procedure: k27898 o|contracted procedure: k27907 o|contracted procedure: k27916 o|contracted procedure: k27925 o|contracted procedure: k27934 o|contracted procedure: k27943 o|contracted procedure: k28126 o|contracted procedure: k28156 o|contracted procedure: k28132 o|contracted procedure: k28135 o|contracted procedure: k28144 o|contracted procedure: k28153 o|contracted procedure: k28189 o|contracted procedure: k28182 o|contracted procedure: k28211 o|contracted procedure: k28204 o|contracted procedure: k28262 o|contracted procedure: k28279 o|contracted procedure: k28241 o|contracted procedure: k28245 o|contracted procedure: k28306 o|contracted procedure: k28326 o|contracted procedure: k28343 o|contracted procedure: k28293 o|contracted procedure: k28297 o|contracted procedure: k28359 o|contracted procedure: k28366 o|contracted procedure: k28422 o|contracted procedure: k28426 o|contracted procedure: k28434 o|contracted procedure: k28451 o|contracted procedure: k28466 o|contracted procedure: k28529 o|contracted procedure: k28510 o|contracted procedure: k28519 o|contracted procedure: k28538 o|contracted procedure: k28595 o|contracted procedure: k28598 o|contracted procedure: k28604 o|contracted procedure: k28647 o|contracted procedure: k28663 o|contracted procedure: k28656 o|contracted procedure: k29095 o|contracted procedure: k28674 o|contracted procedure: k28689 o|contracted procedure: k28793 o|contracted procedure: k28701 o|contracted procedure: k28720 o|contracted procedure: k28723 o|contracted procedure: k28732 o|contracted procedure: k2857234892 o|contracted procedure: k28762 o|contracted procedure: k28790 o|contracted procedure: k28772 o|contracted procedure: k28785 o|contracted procedure: k28802 o|contracted procedure: k29081 o|contracted procedure: k28824 o|contracted procedure: k28842 o|contracted procedure: k28845 o|contracted procedure: k28854 o|contracted procedure: k28857 o|contracted procedure: k28871 o|contracted procedure: k28880 o|contracted procedure: k28935 o|contracted procedure: k28893 o|contracted procedure: k28905 o|contracted procedure: k28922 o|contracted procedure: k28916 o|contracted procedure: k28938 o|contracted procedure: k2857234905 o|contracted procedure: k28956 o|contracted procedure: k28952 o|contracted procedure: k28965 o|contracted procedure: k28974 o|contracted procedure: k28990 o|contracted procedure: k29005 o|contracted procedure: k28997 o|contracted procedure: k29024 o|contracted procedure: k29016 o|contracted procedure: k29050 o|contracted procedure: k29078 o|contracted procedure: k29060 o|contracted procedure: k29073 o|contracted procedure: k29101 o|contracted procedure: k29110 o|contracted procedure: k29150 o|contracted procedure: k29156 o|contracted procedure: k29159 o|contracted procedure: k29173 o|contracted procedure: k29214 o|contracted procedure: k29221 o|contracted procedure: k29229 o|contracted procedure: k29241 o|contracted procedure: k29245 o|contracted procedure: k29252 o|contracted procedure: k29188 o|contracted procedure: k29286 o|contracted procedure: k29295 o|contracted procedure: k29302 o|contracted procedure: k29306 o|contracted procedure: k29336 o|contracted procedure: k29343 o|contracted procedure: k29347 o|contracted procedure: k29354 o|contracted procedure: k29367 o|contracted procedure: k29374 o|contracted procedure: k29405 o|contracted procedure: k29401 o|contracted procedure: k29429 o|contracted procedure: k29438 o|contracted procedure: k29451 o|contracted procedure: k29463 o|contracted procedure: k29473 o|contracted procedure: k29546 o|contracted procedure: k29476 o|contracted procedure: k29489 o|contracted procedure: k29530 o|contracted procedure: k29519 o|contracted procedure: k29526 o|contracted procedure: k29599 o|contracted procedure: k29589 o|contracted procedure: k29617 o|contracted procedure: k29651 o|contracted procedure: k29660 o|contracted procedure: k29663 o|contracted procedure: k29670 o|contracted procedure: k29676 o|contracted procedure: k29683 o|contracted procedure: k29689 o|contracted procedure: k29692 o|contracted procedure: k29698 o|contracted procedure: k29701 o|contracted procedure: k29708 o|contracted procedure: k29714 o|contracted procedure: k29717 o|contracted procedure: k29724 o|contracted procedure: k29730 o|contracted procedure: k29733 o|contracted procedure: k29740 o|contracted procedure: k29746 o|contracted procedure: k29749 o|contracted procedure: k29756 o|contracted procedure: k29762 o|contracted procedure: k29765 o|contracted procedure: k29772 o|contracted procedure: k29778 o|contracted procedure: k29781 o|contracted procedure: k29788 o|contracted procedure: k29794 o|contracted procedure: k29797 o|contracted procedure: k29804 o|contracted procedure: k29810 o|contracted procedure: k29813 o|contracted procedure: k29820 o|contracted procedure: k29826 o|contracted procedure: k29829 o|contracted procedure: k29836 o|contracted procedure: k29842 o|contracted procedure: k29845 o|contracted procedure: k29852 o|contracted procedure: k29859 o|contracted procedure: k29867 o|contracted procedure: k29863 o|contracted procedure: k29893 o|contracted procedure: k29900 o|contracted procedure: k29912 o|contracted procedure: k29924 o|contracted procedure: k29918 o|contracted procedure: k29921 o|contracted procedure: k29939 o|contracted procedure: k29952 o|contracted procedure: k29948 o|contracted procedure: k29956 o|contracted procedure: k30000 o|contracted procedure: k29965 o|contracted procedure: k29968 o|contracted procedure: k29971 o|contracted procedure: k29996 o|contracted procedure: k29983 o|contracted procedure: k29986 o|contracted procedure: k30010 o|contracted procedure: k30016 o|contracted procedure: k30023 o|contracted procedure: k30032 o|contracted procedure: k30038 o|contracted procedure: k30041 o|contracted procedure: k30044 o|contracted procedure: k30050 o|contracted procedure: k30057 o|contracted procedure: k30063 o|contracted procedure: k30067 o|contracted procedure: k30114 o|contracted procedure: k30127 o|contracted procedure: k30149 o|contracted procedure: k30171 o|contracted procedure: k30205 o|contracted procedure: k30211 o|contracted procedure: k30214 o|contracted procedure: k30220 o|contracted procedure: k30223 o|contracted procedure: k30229 o|contracted procedure: k30244 o|contracted procedure: k30247 o|contracted procedure: k30268 o|contracted procedure: k30286 o|contracted procedure: k30299 o|contracted procedure: k30471 o|contracted procedure: k30341 o|contracted procedure: k30427 o|contracted procedure: k30420 o|contracted procedure: k30365 o|contracted procedure: k30437 o|contracted procedure: k30441 o|contracted procedure: k30445 o|contracted procedure: k30449 o|contracted procedure: k30484 o|contracted procedure: k30493 o|contracted procedure: k30572 o|contracted procedure: k30499 o|contracted procedure: k30505 o|contracted procedure: k30512 o|contracted procedure: k30521 o|contracted procedure: k30527 o|contracted procedure: k30541 o|contracted procedure: k30557 o|contracted procedure: k30561 o|contracted procedure: k30568 o|contracted procedure: k30610 o|contracted procedure: k30619 o|contracted procedure: k30638 o|contracted procedure: k30642 o|contracted procedure: k30910 o|contracted procedure: k30686 o|contracted procedure: k30716 o|contracted procedure: k30726 o|contracted procedure: k30730 o|contracted procedure: k30700 o|contracted procedure: k30704 o|contracted procedure: k30736 o|contracted procedure: k30752 o|contracted procedure: k30755 o|contracted procedure: k30758 o|contracted procedure: k30764 o|contracted procedure: k30783 o|contracted procedure: k30786 o|contracted procedure: k30789 o|contracted procedure: k30797 o|contracted procedure: k30805 o|contracted procedure: k30823 o|contracted procedure: k30832 o|contracted procedure: k30839 o|contracted procedure: k30847 o|contracted procedure: k30927 o|contracted procedure: k30931 o|contracted procedure: k30936 o|contracted procedure: k30940 o|contracted procedure: k30944 o|contracted procedure: k30948 o|contracted procedure: k31000 o|contracted procedure: k31017 o|contracted procedure: k31031 o|contracted procedure: k31020 o|contracted procedure: k31027 o|contracted procedure: k31055 o|contracted procedure: k31062 o|contracted procedure: k31096 o|contracted procedure: k31105 o|contracted procedure: k31108 o|contracted procedure: k31117 o|contracted procedure: k31132 o|contracted procedure: k31128 o|contracted procedure: k31145 o|contracted procedure: k31148 o|contracted procedure: k31155 o|contracted procedure: k31164 o|contracted procedure: k31167 o|contracted procedure: k31170 o|contracted procedure: k31200 o|contracted procedure: k31189 o|contracted procedure: k31210 o|contracted procedure: k31213 o|contracted procedure: k31264 o|contracted procedure: k31288 o|contracted procedure: k31306 o|contracted procedure: k31316 o|contracted procedure: k31336 o|contracted procedure: k31346 o|contracted procedure: k31350 o|contracted procedure: k31391 o|contracted procedure: k31401 o|contracted procedure: k31405 o|contracted procedure: k31448 o|contracted procedure: k31433 o|contracted procedure: k31691 o|contracted procedure: k31701 o|contracted procedure: k31711 o|contracted procedure: k31721 o|contracted procedure: k31731 o|contracted procedure: k31741 o|contracted procedure: k31751 o|contracted procedure: k31761 o|contracted procedure: k31771 o|contracted procedure: k31781 o|contracted procedure: k31791 o|contracted procedure: k31801 o|contracted procedure: k31811 o|contracted procedure: k31821 o|contracted procedure: k31827 o|contracted procedure: k31830 o|contracted procedure: k31854 o|contracted procedure: k31861 o|contracted procedure: k31870 o|contracted procedure: k31877 o|contracted procedure: k31896 o|contracted procedure: k31905 o|contracted procedure: k31916 o|contracted procedure: k31912 o|contracted procedure: k31925 o|contracted procedure: k31932 o|contracted procedure: k31942 o|contracted procedure: k31938 o|contracted procedure: k31887 o|contracted procedure: k31883 o|simplifications: ((if . 1) (let . 546)) o|removed binding forms: 2309 o|inlining procedure: "(library.scm:4443) outstr05133" o|inlining procedure: "(library.scm:4442) outstr05133" o|inlining procedure: "(library.scm:4445) outstr05133" o|inlining procedure: "(library.scm:4447) outstr05133" o|inlining procedure: "(library.scm:4457) outstr05133" o|inlining procedure: k23866 o|inlining procedure: k23866 o|inlining procedure: k24192 o|inlining procedure: k24192 o|inlining procedure: k31628 o|inlining procedure: k31628 o|inlining procedure: k26342 o|inlining procedure: k26342 o|inlining procedure: k31139 o|inlining procedure: k31204 o|inlining procedure: k31204 o|replaced variables: 818 o|removed binding forms: 4 o|inlining procedure: k11958 o|inlining procedure: k11982 o|inlining procedure: k12006 o|inlining procedure: k12030 o|inlining procedure: k12054 o|inlining procedure: k12078 o|inlining procedure: k12102 o|inlining procedure: k12126 o|inlining procedure: k12150 o|inlining procedure: k12174 o|inlining procedure: k12198 o|inlining procedure: k12216 o|inlining procedure: k12240 o|inlining procedure: k12264 o|inlining procedure: k12282 o|inlining procedure: k12300 o|inlining procedure: k12318 o|inlining procedure: k12336 o|inlining procedure: k12354 o|inlining procedure: k12372 o|inlining procedure: k12390 o|inlining procedure: k12408 o|inlining procedure: k12426 o|inlining procedure: k12444 o|inlining procedure: k12468 o|inlining procedure: k12486 o|inlining procedure: k12510 o|inlining procedure: k12528 o|inlining procedure: k12546 o|inlining procedure: k12564 o|inlining procedure: k12582 o|substituted constant variable: str515136662 o|removed side-effect free assignment to unused variable: outstr05133 o|substituted constant variable: str515136682 o|inlining procedure: k28317 o|inlining procedure: k28317 o|substituted constant variable: r3120536801 o|simplifications: ((let . 1) (if . 8)) o|replaced variables: 13 o|removed binding forms: 431 o|inlining procedure: "(library.scm:4496) specialchar?5135" o|inlining procedure: "(library.scm:4515) specialchar?5135" o|inlining procedure: "(library.scm:4519) specialchar?5135" o|removed binding forms: 47 o|removed side-effect free assignment to unused variable: specialchar?5135 o|replaced variables: 11 o|removed binding forms: 31 o|inlining procedure: k24066 o|inlining procedure: k24128 o|removed binding forms: 9 o|contracted procedure: k24214 o|removed binding forms: 3 o|direct leaf routine/allocation: loop776 0 o|direct leaf routine/allocation: doloop15221523 0 o|direct leaf routine/allocation: iter1535 0 o|direct leaf routine/allocation: loop1686 0 o|direct leaf routine/allocation: go-inexact!2845 0 o|direct leaf routine/allocation: loop3492 0 o|direct leaf routine/allocation: doloop35073508 0 o|direct leaf routine/allocation: doloop35193523 0 o|direct leaf routine/allocation: doloop35503551 0 o|direct leaf routine/allocation: doloop35783579 0 o|direct leaf routine/allocation: loop3604 0 o|direct leaf routine/allocation: loop3675 0 o|direct leaf routine/allocation: body39013910 0 o|direct leaf routine/allocation: def-set?39043913 0 o|direct leaf routine/allocation: def-convert?39033915 0 o|direct leaf routine/allocation: body39263935 0 o|direct leaf routine/allocation: def-set?39293938 0 o|direct leaf routine/allocation: def-convert?39283940 0 o|direct leaf routine/allocation: body39513960 0 o|direct leaf routine/allocation: def-set?39543963 0 o|direct leaf routine/allocation: def-convert?39533965 0 o|direct leaf routine/allocation: body59465955 0 o|direct leaf routine/allocation: def-set?59495958 0 o|direct leaf routine/allocation: def-convert?59485960 0 o|direct leaf routine/allocation: for-each-loop59906001 0 o|direct leaf routine/allocation: loop7035 0 o|direct leaf routine/allocation: for-each-loop72267237 0 o|converted assignments to bindings: (loop776) o|converted assignments to bindings: (doloop15221523) o|contracted procedure: k11405 o|converted assignments to bindings: (iter1535) o|converted assignments to bindings: (loop1686) o|contracted procedure: "(library.scm:2468) k15855" o|contracted procedure: "(library.scm:2477) k15918" o|contracted procedure: "(library.scm:2511) k16173" o|contracted procedure: "(library.scm:2516) k16198" o|contracted procedure: "(library.scm:2560) k16582" o|contracted procedure: "(library.scm:2570) k16665" o|converted assignments to bindings: (loop3492) o|converted assignments to bindings: (doloop35073508) o|converted assignments to bindings: (doloop35193523) o|converted assignments to bindings: (doloop35503551) o|converted assignments to bindings: (doloop35783579) o|converted assignments to bindings: (loop3604) o|converted assignments to bindings: (loop3675) o|inlining procedure: "(library.scm:3301) k19027" o|inlining procedure: "(library.scm:3301) k19027" o|inlining procedure: "(library.scm:3301) k19027" o|inlining procedure: "(library.scm:3311) k19088" o|inlining procedure: "(library.scm:3311) k19088" o|inlining procedure: "(library.scm:3311) k19088" o|inlining procedure: "(library.scm:3321) k19149" o|inlining procedure: "(library.scm:3321) k19149" o|inlining procedure: "(library.scm:3321) k19149" o|inlining procedure: "(library.scm:5196) k26545" o|inlining procedure: "(library.scm:5196) k26545" o|inlining procedure: "(library.scm:5196) k26545" o|contracted procedure: k26667 o|converted assignments to bindings: (for-each-loop59906001) o|contracted procedure: k29942 o|converted assignments to bindings: (loop7035) o|contracted procedure: k31008 o|converted assignments to bindings: (for-each-loop72267237) o|simplifications: ((let . 14)) o|removed binding forms: 10 o|replaced variables: 7 o|removed binding forms: 4 o|removed binding forms: 2 x|number of unboxed float variables: 0 x|number of inline operations replaced with unboxed ones: 56 o|customizable procedures: (cleanup-before-exit g58835890 for-each-loop58825894 for-each-loop58515863 k31176 loop6820 k30335 check7265 k30664 k30667 k30670 k30673 k30676 loop7340 map-loop73077324 loop7331 for-each-loop72847296 loop7203 str7187 pmem7083 round-to7082 pnum7081 k30013 loop7060 loop6909 doloop68846885 k29426 doloop68096810 scan6792 loop6789 read-escaped-sexp6612 get/clear-str6672 loop6683 k28896 loop26706 readln6611 doloop66506659 loop6626 doloop66156616 loop6590 loop6490 loop6464 def-port62186267 def-header62196265 body62166225 k27172 g62396240 writeargs6190 g61966203 for-each-loop61956207 g61316140 map-loop61256150 loop6143 map-loop60686086 map-loop60956112 map-loop60086026 map-loop60356053 chicken.condition#prop-list->kind-prefixed-prop-list k26595 loop5971 k26127 k26130 k26150 k26106 for-each-loop57865798 for-each-loop57185729 loop5714 g56595666 for-each-loop56585679 k25762 k25616 loop5642 g55935600 for-each-loop55925603 k25282 k25299 copy&append5540 loop5549 k31550 doloop53485349 doloop53245325 k24634 doloop53105311 out5243 doloop52805281 outsym5136 g52595260 k24177 loop5213 k24100 k24119 loop5178 outchr5134 sym-is-readable?5138 outreadablesym5137 outstr5132 for-each-loop50935111 for-each-loop50615079 hex4958 loop4967 k22257 r-symbol4429 k22455 k22822 k22749 r-ext-symbol4433 r-comment4432 r-char4431 r-vector4423 r-number-with-radix4426 r-number-with-exactness4425 r-digits4428 k22375 r-quote4434 loop4753 r-token4427 k22089 k21944 k21710 r-string4421 loop4670 k21716 k21640 loop4653 k21576 read-unreserved-char-04404 loop4638 r-number4424 k21403 r-list4422 k21159 k21202 r-xtoken4430 loop4546 readrec4405 r-spaces4418 starting-line4541 info4401 k20816 k20836 k20940 eat-ws4511 k20725 r-cons-codepoint4420 r-usequence4419 loop4474 lp4469 loop4452 skip-to-eol4402 loop4437 reserved-character4403 k20342 skip4410 k19917 def-convert?42714283 def-set?42724281 body42694278 assign4253 k19887 loop4130 loop4111 doloop41184119 close3981 open3980 doloop39883989 k32151 loop3858 k32053 loop3841 ##sys#dynamic-unwind loop3740 map-loop37163733 loop3700 for-each-loop36853695 k18505 loop3647 loop3636 k18214 lookup-char3600 ##sys#vector-resize k17923 loop3499 map-loop33703389 compare-slots3297 loop3309 walk3298 k17004 ##sys#string->compnum scan-prefix3224 k16760 scan-real3093 k16851 k16521 k16640 k16579 k16547 scan-ureal3016 k16170 k16189 k16241 scan-decimal-tail2939 scan-digits+hashes2901 k15968 k15971 k15980 scan-exponent2921 k16007 safe-exponent2846 k15903 scan-digits2866 scan-hashes2889 lp2891 k15743 lp2868 round-quotient k15477 loop2748 loop2738 k14907 k15016 k15025 slow-expt2670 log-expt2669 lp2654 k14661 lp2642 k14182 k14188 k14120 k14126 k13958 loop2456 loop2444 find-ratio-between sr2421 k13187 ##sys#internal-gcd ratnum loop2279 deliver2212 doloop22142215 make-complex doloop17031704 loop1696 loop1671 k11475 k11484 loop1513 loop1481 copy1471 loop1469 k10941 lp1342 k10282 loop934 loop919 k10179 loop882 loop860 k9980 loop830 k9840 loop816 loop801 loop793 loop787 loop762 loop747 loop736 loop706 loop694 loop651 loop642 loop108) o|calls to known targets: 907 o|identified direct recursive calls: f_8832 1 o|unused rest argument: env348 f_9102 o|unused rest argument: evaluator355 f_9126 o|unused rest argument: _607 f_9243 o|identified direct recursive calls: f_9337 1 o|unused rest argument: _718 f_9496 o|unused rest argument: _719 f_9498 o|unused rest argument: _760 f_9653 o|identified direct recursive calls: f_9716 1 o|identified direct recursive calls: f_9738 1 o|identified direct recursive calls: f_9774 1 o|identified direct recursive calls: f_9803 2 o|identified direct recursive calls: f_9850 1 o|identified direct recursive calls: f_9904 2 o|identified direct recursive calls: f_10894 1 o|identified direct recursive calls: f_11169 1 o|identified direct recursive calls: f_11223 1 o|identified direct recursive calls: f_11319 1 o|identified direct recursive calls: f_11362 1 o|identified direct recursive calls: f_11413 1 o|identified direct recursive calls: f_11769 1 o|identified direct recursive calls: f_11817 1 o|identified direct recursive calls: f_11879 1 o|identified direct recursive calls: f_13633 1 o|identified direct recursive calls: f_13815 1 o|identified direct recursive calls: f_13859 1 o|identified direct recursive calls: f_14808 2 o|identified direct recursive calls: f_15682 1 o|identified direct recursive calls: f_15790 1 o|identified direct recursive calls: f_17811 1 o|identified direct recursive calls: f_17851 1 o|identified direct recursive calls: f_17890 1 o|identified direct recursive calls: f_17936 1 o|identified direct recursive calls: f_18008 1 o|identified direct recursive calls: f_18082 1 o|identified direct recursive calls: f_18184 1 o|identified direct recursive calls: f_18515 1 o|identified direct recursive calls: f_18815 1 o|identified direct recursive calls: f_32057 1 o|identified direct recursive calls: f_19248 3 o|identified direct recursive calls: f_19572 1 o|identified direct recursive calls: f_20511 1 o|identified direct recursive calls: f_26774 1 o|identified direct recursive calls: f_26694 1 o|identified direct recursive calls: f_26740 1 o|identified direct recursive calls: f_26816 1 o|identified direct recursive calls: f_26930 2 o|identified direct recursive calls: f_28533 1 o|identified direct recursive calls: f_29209 1 o|identified direct recursive calls: f_29960 1 o|identified direct recursive calls: f_30027 1 o|identified direct recursive calls: f_30516 1 o|identified direct recursive calls: f_30747 2 o|identified direct recursive calls: f_31012 1 o|unused rest argument: args5841 f_31413 o|fast box initializations: 161 o|fast global references: 70 o|fast global assignments: 20 o|dropping unused closure argument: f_12608 o|dropping unused closure argument: f_12788 o|dropping unused closure argument: f_13633 o|dropping unused closure argument: f_14850 o|dropping unused closure argument: f_14864 o|dropping unused closure argument: f_15114 o|dropping unused closure argument: f_15540 o|dropping unused closure argument: f_15583 o|dropping unused closure argument: f_18070 o|dropping unused closure argument: f_18515 o|dropping unused closure argument: f_18815 o|dropping unused closure argument: f_19205 o|dropping unused closure argument: f_19303 o|dropping unused closure argument: f_20499 o|dropping unused closure argument: f_25210 o|dropping unused closure argument: f_25934 o|dropping unused closure argument: f_26575 o|dropping unused closure argument: f_26774 o|dropping unused closure argument: f_27111 o|dropping unused closure argument: f_28577 o|dropping unused closure argument: f_28624 o|dropping unused closure argument: f_30086 o|dropping unused closure argument: f_30100 o|dropping unused closure argument: f_30360 o|dropping unused closure argument: f_30633 o|dropping unused closure argument: f_31012 */ /* end of file */ ������������������������������������������������������chicken-5.1.0/chicken.compiler.c-platform.import.scm������������������������������������������������0000644�0001750�0001750�00000001521�13502227756�022234� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.compiler.c-platform.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.compiler.c-platform 'c-platform (scheme#list) '((default-declarations . chicken.compiler.c-platform#default-declarations) (default-profiling-declarations . chicken.compiler.c-platform#default-profiling-declarations) (default-units . chicken.compiler.c-platform#default-units) (valid-compiler-options . chicken.compiler.c-platform#valid-compiler-options) (valid-compiler-options-with-argument . chicken.compiler.c-platform#valid-compiler-options-with-argument) (target-include-file . chicken.compiler.c-platform#target-include-file) (words-per-flonum . chicken.compiler.c-platform#words-per-flonum)) (scheme#list) (scheme#list)) ;; END OF FILE �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.compiler.support.import.scm���������������������������������������������������0000644�0001750�0001750�00000021373�13502227743�021707� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.compiler.support.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.compiler.support 'support (scheme#list) '((compiler-cleanup-hook . chicken.compiler.support#compiler-cleanup-hook) (bomb . chicken.compiler.support#bomb) (collected-debugging-output . chicken.compiler.support#collected-debugging-output) (debugging . chicken.compiler.support#debugging) (debugging-chicken . chicken.compiler.support#debugging-chicken) (with-debugging-output . chicken.compiler.support#with-debugging-output) (quit-compiling . chicken.compiler.support#quit-compiling) (emit-syntax-trace-info . chicken.compiler.support#emit-syntax-trace-info) (check-signature . chicken.compiler.support#check-signature) (build-lambda-list . chicken.compiler.support#build-lambda-list) (c-ify-string . chicken.compiler.support#c-ify-string) (valid-c-identifier? . chicken.compiler.support#valid-c-identifier?) (read-expressions . chicken.compiler.support#read-expressions) (bytes->words . chicken.compiler.support#bytes->words) (words->bytes . chicken.compiler.support#words->bytes) (check-and-open-input-file . chicken.compiler.support#check-and-open-input-file) (close-checked-input-file . chicken.compiler.support#close-checked-input-file) (fold-inner . chicken.compiler.support#fold-inner) (constant? . chicken.compiler.support#constant?) (collapsable-literal? . chicken.compiler.support#collapsable-literal?) (immediate? . chicken.compiler.support#immediate?) (basic-literal? . chicken.compiler.support#basic-literal?) (canonicalize-begin-body . chicken.compiler.support#canonicalize-begin-body) (string->expr . chicken.compiler.support#string->expr) (llist-length . chicken.compiler.support#llist-length) (llist-match? . chicken.compiler.support#llist-match?) (expand-profile-lambda . chicken.compiler.support#expand-profile-lambda) (reset-profile-info-vector-name! . chicken.compiler.support#reset-profile-info-vector-name!) (profiling-prelude-exps . chicken.compiler.support#profiling-prelude-exps) (db-get . chicken.compiler.support#db-get) (db-get-all . chicken.compiler.support#db-get-all) (db-put! . chicken.compiler.support#db-put!) (collect! . chicken.compiler.support#collect!) (db-get-list . chicken.compiler.support#db-get-list) (get-line . chicken.compiler.support#get-line) (get-line-2 . chicken.compiler.support#get-line-2) (display-line-number-database . chicken.compiler.support#display-line-number-database) (make-node . chicken.compiler.support#make-node) (node? . chicken.compiler.support#node?) (node-class . chicken.compiler.support#node-class) (node-class-set! . chicken.compiler.support#node-class-set!) (node-parameters . chicken.compiler.support#node-parameters) (node-parameters-set! . chicken.compiler.support#node-parameters-set!) (node-subexpressions . chicken.compiler.support#node-subexpressions) (node-subexpressions-set! . chicken.compiler.support#node-subexpressions-set!) (varnode . chicken.compiler.support#varnode) (qnode . chicken.compiler.support#qnode) (build-node-graph . chicken.compiler.support#build-node-graph) (build-expression-tree . chicken.compiler.support#build-expression-tree) (fold-boolean . chicken.compiler.support#fold-boolean) (inline-lambda-bindings . chicken.compiler.support#inline-lambda-bindings) (tree-copy . chicken.compiler.support#tree-copy) (copy-node! . chicken.compiler.support#copy-node!) (copy-node . chicken.compiler.support#copy-node) (emit-global-inline-file . chicken.compiler.support#emit-global-inline-file) (load-inline-file . chicken.compiler.support#load-inline-file) (match-node . chicken.compiler.support#match-node) (expression-has-side-effects? . chicken.compiler.support#expression-has-side-effects?) (simple-lambda-node? . chicken.compiler.support#simple-lambda-node?) (dump-undefined-globals . chicken.compiler.support#dump-undefined-globals) (dump-defined-globals . chicken.compiler.support#dump-defined-globals) (dump-global-refs . chicken.compiler.support#dump-global-refs) (make-foreign-callback-stub . chicken.compiler.support#make-foreign-callback-stub) (foreign-callback-stub? . chicken.compiler.support#foreign-callback-stub?) (foreign-callback-stub-id . chicken.compiler.support#foreign-callback-stub-id) (foreign-callback-stub-name . chicken.compiler.support#foreign-callback-stub-name) (foreign-callback-stub-qualifiers . chicken.compiler.support#foreign-callback-stub-qualifiers) (foreign-callback-stub-return-type . chicken.compiler.support#foreign-callback-stub-return-type) (foreign-callback-stub-argument-types . chicken.compiler.support#foreign-callback-stub-argument-types) (register-foreign-callback-stub! . chicken.compiler.support#register-foreign-callback-stub!) (foreign-callback-stubs . chicken.compiler.support#foreign-callback-stubs) (foreign-type-check . chicken.compiler.support#foreign-type-check) (foreign-type-convert-result . chicken.compiler.support#foreign-type-convert-result) (foreign-type-convert-argument . chicken.compiler.support#foreign-type-convert-argument) (final-foreign-type . chicken.compiler.support#final-foreign-type) (register-foreign-type! . chicken.compiler.support#register-foreign-type!) (lookup-foreign-type . chicken.compiler.support#lookup-foreign-type) (clear-foreign-type-table! . chicken.compiler.support#clear-foreign-type-table!) (estimate-foreign-result-size . chicken.compiler.support#estimate-foreign-result-size) (estimate-foreign-result-location-size . chicken.compiler.support#estimate-foreign-result-location-size) (finish-foreign-result . chicken.compiler.support#finish-foreign-result) (foreign-type->scrutiny-type . chicken.compiler.support#foreign-type->scrutiny-type) (scan-used-variables . chicken.compiler.support#scan-used-variables) (scan-free-variables . chicken.compiler.support#scan-free-variables) (chop-separator . chicken.compiler.support#chop-separator) (make-block-variable-literal . chicken.compiler.support#make-block-variable-literal) (block-variable-literal? . chicken.compiler.support#block-variable-literal?) (block-variable-literal-name . chicken.compiler.support#block-variable-literal-name) (make-random-name . chicken.compiler.support#make-random-name) (clear-real-name-table! . chicken.compiler.support#clear-real-name-table!) (get-real-name . chicken.compiler.support#get-real-name) (set-real-name! . chicken.compiler.support#set-real-name!) (real-name . chicken.compiler.support#real-name) (real-name2 . chicken.compiler.support#real-name2) (display-real-name-table . chicken.compiler.support#display-real-name-table) (source-info->string . chicken.compiler.support#source-info->string) (source-info->line . chicken.compiler.support#source-info->line) (source-info->name . chicken.compiler.support#source-info->name) (call-info . chicken.compiler.support#call-info) (constant-form-eval . chicken.compiler.support#constant-form-eval) (maybe-constant-fold-call . chicken.compiler.support#maybe-constant-fold-call) (dump-nodes . chicken.compiler.support#dump-nodes) (read-info-hook . chicken.compiler.support#read-info-hook) (read/source-info . chicken.compiler.support#read/source-info) (big-fixnum? . chicken.compiler.support#big-fixnum?) (small-bignum? . chicken.compiler.support#small-bignum?) (hide-variable . chicken.compiler.support#hide-variable) (export-variable . chicken.compiler.support#export-variable) (variable-hidden? . chicken.compiler.support#variable-hidden?) (variable-visible? . chicken.compiler.support#variable-visible?) (mark-variable . chicken.compiler.support#mark-variable) (variable-mark . chicken.compiler.support#variable-mark) (intrinsic? . chicken.compiler.support#intrinsic?) (predicate? . chicken.compiler.support#predicate?) (foldable? . chicken.compiler.support#foldable?) (load-identifier-database . chicken.compiler.support#load-identifier-database) (print-version . chicken.compiler.support#print-version) (print-usage . chicken.compiler.support#print-usage) (print-debug-options . chicken.compiler.support#print-debug-options) (number-type . chicken.compiler.support#number-type) (unsafe . chicken.compiler.support#unsafe)) (scheme#list) (scheme#list)) ;; END OF FILE ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/library.scm���������������������������������������������������������������������������0000644�0001750�0001750�00000670751�13502227553�015123� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; library.scm - R5RS library for the CHICKEN compiler ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit library) (uses build-version) (disable-interrupts) (hide ##sys#dynamic-unwind ##sys#vector-resize ##sys#default-parameter-vector current-print-length setter-tag ##sys#print-exit ##sys#format-here-doc-warning exit-in-progress cleanup-before-exit chicken.base#cleanup-tasks maximal-string-length find-ratio-between find-ratio make-complex flonum->ratnum ratnum +maximum-allowed-exponent+ mantexp->dbl ldexp round-quotient ##sys#string->compnum ##sys#internal-gcd) (not inline chicken.base#sleep-hook ##sys#change-directory-hook ##sys#user-read-hook ##sys#error-hook ##sys#signal-hook ##sys#default-read-info-hook ##sys#infix-list-hook ##sys#sharp-number-hook ##sys#user-print-hook ##sys#user-interrupt-hook ##sys#windows-platform ##sys#schedule ##sys#features) (foreign-declare #<<EOF #include <errno.h> #include <float.h> #ifdef HAVE_SYSEXITS_H # include <sysexits.h> #endif #ifndef EX_SOFTWARE # define EX_SOFTWARE 70 #endif #define C_close_file(p) (C_fclose((C_FILEPTR)(C_port_file(p))), C_SCHEME_UNDEFINED) #define C_a_f64peek(ptr, c, b, i) C_flonum(ptr, ((double *)C_data_pointer(b))[ C_unfix(i) ]) #define C_fetch_c_strlen(b, i) C_fix(strlen((C_char *)C_block_item(b, C_unfix(i)))) #define C_asciiz_strlen(str) C_fix(strlen(C_c_string(str))) #define C_peek_c_string(b, i, to, len) (C_memcpy(C_data_pointer(to), (C_char *)C_block_item(b, C_unfix(i)), C_unfix(len)), C_SCHEME_UNDEFINED) #define C_free_mptr(p, i) (C_free((void *)C_block_item(p, C_unfix(i))), C_SCHEME_UNDEFINED) #define C_free_sptr(p, i) (C_free((void *)(((C_char **)C_block_item(p, 0))[ C_unfix(i) ])), C_SCHEME_UNDEFINED) #define C_a_get_current_seconds(ptr, c, dummy) C_int64_to_num(ptr, time(NULL)) #define C_peek_c_string_at(ptr, i) ((C_char *)(((C_char **)ptr)[ i ])) static C_word fast_read_line_from_file(C_word str, C_word port, C_word size) { int n = C_unfix(size); int i; int c; char *buf = C_c_string(str); C_FILEPTR fp = C_port_file(port); if ((c = C_getc(fp)) == EOF) { if (ferror(fp)) { clearerr(fp); return C_fix(-1); } else { /* feof (fp) */ return C_SCHEME_END_OF_FILE; } } C_ungetc(c, fp); for (i = 0; i < n; i++) { c = C_getc(fp); if(c == EOF && ferror(fp)) { clearerr(fp); return C_fix(-(i + 1)); } switch (c) { case '\r': if ((c = C_getc(fp)) != '\n') C_ungetc(c, fp); case EOF: clearerr(fp); case '\n': return C_fix(i); } buf[i] = c; } return C_SCHEME_FALSE; } static C_word fast_read_string_from_file(C_word dest, C_word port, C_word len, C_word pos) { size_t m; int n = C_unfix (len); char * buf = ((char *)C_data_pointer (dest) + C_unfix (pos)); C_FILEPTR fp = C_port_file (port); if(feof(fp)) return C_SCHEME_END_OF_FILE; m = fread (buf, sizeof (char), n, fp); if (m < n) { if (ferror(fp)) /* Report to Scheme, which may retry, so clear errors */ clearerr(fp); else if (feof(fp) && 0 == m) /* eof but m > 0? Return data first, below */ return C_SCHEME_END_OF_FILE; /* Calling again will get us here */ } return C_fix (m); } static C_word shallow_equal(C_word x, C_word y) { /* assumes x and y are non-immediate */ int i, len = C_header_size(x); if(C_header_size(y) != len) return C_SCHEME_FALSE; else return C_mk_bool(!C_memcmp((void *)x, (void *)y, len * sizeof(C_word))); } static C_word signal_debug_event(C_word mode, C_word msg, C_word args) { C_DEBUG_INFO cell; C_word av[ 3 ]; cell.enabled = 1; cell.event = C_DEBUG_SIGNAL; cell.loc = ""; cell.val = ""; av[ 0 ] = mode; av[ 1 ] = msg; av[ 2 ] = args; C_debugger(&cell, 3, av); return C_SCHEME_UNDEFINED; } #ifdef NO_DLOAD2 # define HAVE_DLOAD 0 #else # define HAVE_DLOAD 1 #endif #ifdef C_ENABLE_PTABLES # define HAVE_PTABLES 1 #else # define HAVE_PTABLES 0 #endif #ifdef C_GC_HOOKS # define HAVE_GCHOOKS 1 #else # define HAVE_GCHOOKS 0 #endif #if defined(C_CROSS_CHICKEN) && C_CROSS_CHICKEN # define IS_CROSS_CHICKEN 1 #else # define IS_CROSS_CHICKEN 0 #endif EOF ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; NOTE: Modules defined here will typically exclude syntax ;; definitions, those are handled by expand.scm or modules.scm. ;; Handwritten import libraries (or a special-case module in ;; modules.scm for scheme) contain the value exports merged with ;; syntactic exports. The upshot of this is that any module that ;; refers to another module defined *earlier* in this file cannot use ;; macros from the earlier module! ;; ;; We get around this problem by using the "chicken.internal.syntax" ;; module, which is baked in and exports *every* available core macro. ;; See modules.scm, expand.scm and chicken-syntax.scm for details. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Pre-declaration of scheme, so it can be used later on. We only use ;; scheme macros and core language forms in here, to avoid a cyclic ;; dependency on itself. All actual definitions are set! below. ;; Also, this declaration is incomplete: the module itself is defined ;; as a primitive module due to syntax exports, which are missing ;; here. See modules.scm for the full definition. (module scheme (;; [syntax] ;; We are reexporting these because otherwise the module here ;; will be inconsistent with the built-in one, and be void of ;; syntax definitions, causing problems below. begin and case cond define define-syntax delay do lambda if let let* let-syntax letrec letrec-syntax or quasiquote quote set! syntax-rules not boolean? eq? eqv? equal? pair? cons car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr set-car! set-cdr! null? list? list length list-tail list-ref append reverse memq memv member assq assv assoc symbol? symbol->string string->symbol number? integer? exact? real? complex? inexact? rational? zero? odd? even? positive? negative? max min + - * / = > < >= <= quotient remainder modulo gcd lcm abs floor ceiling truncate round rationalize exact->inexact inexact->exact exp log expt sqrt sin cos tan asin acos atan number->string string->number char? char=? char>? char<? char>=? char<=? char-ci=? char-ci<? char-ci>? char-ci>=? char-ci<=? char-alphabetic? char-whitespace? char-numeric? char-upper-case? char-lower-case? char-upcase char-downcase char->integer integer->char string? string=? string>? string<? string>=? string<=? string-ci=? string-ci<? string-ci>? string-ci>=? string-ci<=? make-string string-length string-ref string-set! string-append string-copy string->list list->string substring string-fill! vector? make-vector vector-ref vector-set! string vector vector-length vector->list list->vector vector-fill! procedure? map for-each apply force call-with-current-continuation input-port? output-port? current-input-port current-output-port call-with-input-file call-with-output-file open-input-file open-output-file close-input-port close-output-port read read-char peek-char write display write-char newline eof-object? with-input-from-file with-output-to-file char-ready? imag-part real-part make-rectangular make-polar angle magnitude numerator denominator values call-with-values dynamic-wind ;; The following procedures are overwritten in eval.scm: eval interaction-environment null-environment scheme-report-environment load) (import chicken.internal.syntax) ;; See note above ;;; Operations on booleans: (define (not x) (##core#inline "C_i_not" x)) (define (boolean? x) (##core#inline "C_booleanp" x)) ;;; Equivalence predicates: (define (eq? x y) (##core#inline "C_eqp" x y)) (define (eqv? x y) (##core#inline "C_i_eqvp" x y)) (define (equal? x y) (##core#inline "C_i_equalp" x y)) ;;; Pairs and lists: (define (pair? x) (##core#inline "C_i_pairp" x)) (define (cons x y) (##core#inline_allocate ("C_a_i_cons" 3) x y)) (define (car x) (##core#inline "C_i_car" x)) (define (cdr x) (##core#inline "C_i_cdr" x)) (define (set-car! x y) (##core#inline "C_i_set_car" x y)) (define (set-cdr! x y) (##core#inline "C_i_set_cdr" x y)) (define (cadr x) (##core#inline "C_i_cadr" x)) (define (caddr x) (##core#inline "C_i_caddr" x)) (define (cadddr x) (##core#inline "C_i_cadddr" x)) (define (cddddr x) (##core#inline "C_i_cddddr" x)) (define (caar x) (##core#inline "C_i_caar" x)) (define (cdar x) (##core#inline "C_i_cdar" x)) (define (cddr x) (##core#inline "C_i_cddr" x)) (define (caaar x) (car (car (car x)))) (define (caadr x) (car (##core#inline "C_i_cadr" x))) (define (cadar x) (##core#inline "C_i_cadr" (car x))) (define (cdaar x) (cdr (car (car x)))) (define (cdadr x) (cdr (##core#inline "C_i_cadr" x))) (define (cddar x) (cdr (cdr (car x)))) (define (cdddr x) (cdr (cdr (cdr x)))) (define (caaaar x) (car (car (car (car x))))) (define (caaadr x) (car (car (##core#inline "C_i_cadr" x)))) (define (caadar x) (car (##core#inline "C_i_cadr" (car x)))) (define (caaddr x) (car (##core#inline "C_i_caddr" x))) (define (cadaar x) (##core#inline "C_i_cadr" (car (car x)))) (define (cadadr x) (##core#inline "C_i_cadr" (##core#inline "C_i_cadr" x))) (define (caddar x) (##core#inline "C_i_caddr" (car x))) (define (cdaaar x) (cdr (car (car (car x))))) (define (cdaadr x) (cdr (car (##core#inline "C_i_cadr" x)))) (define (cdadar x) (cdr (##core#inline "C_i_cadr" (car x)))) (define (cdaddr x) (cdr (##core#inline "C_i_caddr" x))) (define (cddaar x) (cdr (cdr (car (car x))))) (define (cddadr x) (cdr (cdr (##core#inline "C_i_cadr" x)))) (define (cdddar x) (cdr (cdr (cdr (car x))))) (define (null? x) (eq? x '())) (define (list . lst) lst) (define (length lst) (##core#inline "C_i_length" lst)) (define (list-tail lst i) (##core#inline "C_i_list_tail" lst i)) (define (list-ref lst i) (##core#inline "C_i_list_ref" lst i)) (define append) (define (reverse lst0) (let loop ((lst lst0) (rest '())) (cond ((eq? lst '()) rest) ((pair? lst) (loop (##sys#slot lst 1) (cons (##sys#slot lst 0) rest)) ) (else (##sys#error-not-a-proper-list lst0 'reverse)) ) )) (define (memq x lst) (##core#inline "C_i_memq" x lst)) (define (memv x lst) (##core#inline "C_i_memv" x lst)) (define (member x lst) (##core#inline "C_i_member" x lst)) (define (assq x lst) (##core#inline "C_i_assq" x lst)) (define (assv x lst) (##core#inline "C_i_assv" x lst)) (define (assoc x lst) (##core#inline "C_i_assoc" x lst)) (define (list? x) (##core#inline "C_i_listp" x)) ;;; Strings: (define make-string) (define (string? x) (##core#inline "C_i_stringp" x)) (define (string-length s) (##core#inline "C_i_string_length" s)) (define (string-ref s i) (##core#inline "C_i_string_ref" s i)) (define (string-set! s i c) (##core#inline "C_i_string_set" s i c)) (define (string=? x y) (##core#inline "C_i_string_equal_p" x y)) (define (string-ci=? x y) (##core#inline "C_i_string_ci_equal_p" x y)) (define string->list) (define list->string) (define string-fill) (define string-copy) (define substring) (define string-fill!) (define string<?) (define string>?) (define string<=?) (define string>=?) (define string-ci<?) (define string-ci>?) (define string-ci<=?) (define string-ci>=?) (define string) (define string-append) ;; Complex numbers (define make-rectangular) (define make-polar) (define real-part) (define imag-part) (define angle) (define magnitude) ;; Rational numbers (define numerator) (define denominator) (define inexact->exact) (define (exact->inexact x) (##core#inline_allocate ("C_a_i_exact_to_inexact" 12) x)) ;; Numerical operations (define (abs x) (##core#inline_allocate ("C_s_a_i_abs" 7) x)) (define + (##core#primitive "C_plus")) (define - (##core#primitive "C_minus")) (define * (##core#primitive "C_times")) (define /) (define floor) (define ceiling) (define truncate) (define round) (define rationalize) (define (quotient a b) (##core#inline_allocate ("C_s_a_i_quotient" 5) a b)) (define (remainder a b) (##core#inline_allocate ("C_s_a_i_remainder" 5) a b)) (define (modulo a b) (##core#inline_allocate ("C_s_a_i_modulo" 5) a b)) (define (even? n) (##core#inline "C_i_evenp" n)) (define (odd? n) (##core#inline "C_i_oddp" n)) (define max) (define min) (define exp) (define log) (define sin) (define cos) (define tan) (define asin) (define acos) (define atan) (define sqrt) (define expt) (define gcd) (define lcm) (define = (##core#primitive "C_nequalp")) (define > (##core#primitive "C_greaterp")) (define < (##core#primitive "C_lessp")) (define >= (##core#primitive "C_greater_or_equal_p")) (define <= (##core#primitive "C_less_or_equal_p")) (define (number? x) (##core#inline "C_i_numberp" x)) (define complex? number?) (define (real? x) (##core#inline "C_i_realp" x)) (define (rational? n) (##core#inline "C_i_rationalp" n)) (define (integer? x) (##core#inline "C_i_integerp" x)) (define (exact? x) (##core#inline "C_i_exactp" x)) (define (inexact? x) (##core#inline "C_i_inexactp" x)) (define (zero? n) (##core#inline "C_i_zerop" n)) (define (positive? n) (##core#inline "C_i_positivep" n)) (define (negative? n) (##core#inline "C_i_negativep" n)) (define number->string (##core#primitive "C_number_to_string")) (define string->number) ;;; Symbols: (define (symbol? x) (##core#inline "C_i_symbolp" x)) (define symbol->string) (define string->symbol) ;;; Vectors: (define (vector? x) (##core#inline "C_i_vectorp" x)) (define (vector-length v) (##core#inline "C_i_vector_length" v)) (define (vector-ref v i) (##core#inline "C_i_vector_ref" v i)) (define (vector-set! v i x) (##core#inline "C_i_vector_set" v i x)) (define make-vector) (define list->vector) (define vector->list) (define vector) (define vector-fill!) ;;; Characters: (define (char? x) (##core#inline "C_charp" x)) (define (char->integer c) (##sys#check-char c 'char->integer) (##core#inline "C_fix" (##core#inline "C_character_code" c)) ) (define (integer->char n) (##sys#check-fixnum n 'integer->char) (##core#inline "C_make_character" (##core#inline "C_unfix" n)) ) (define (char=? c1 c2) (##core#inline "C_i_char_equalp" c1 c2)) (define (char>? c1 c2) (##core#inline "C_i_char_greaterp" c1 c2)) (define (char<? c1 c2) (##core#inline "C_i_char_lessp" c1 c2)) (define (char>=? c1 c2) (##core#inline "C_i_char_greater_or_equal_p" c1 c2)) (define (char<=? c1 c2) (##core#inline "C_i_char_less_or_equal_p" c1 c2)) (define (char-upcase c) (##sys#check-char c 'char-upcase) (##core#inline "C_u_i_char_upcase" c)) (define (char-downcase c) (##sys#check-char c 'char-downcase) (##core#inline "C_u_i_char_downcase" c)) (define char-ci=?) (define char-ci>?) (define char-ci<?) (define char-ci>=?) (define char-ci<=?) (define (char-upper-case? c) (##sys#check-char c 'char-upper-case?) (##core#inline "C_u_i_char_upper_casep" c) ) (define (char-lower-case? c) (##sys#check-char c 'char-lower-case?) (##core#inline "C_u_i_char_lower_casep" c) ) (define (char-numeric? c) (##sys#check-char c 'char-numeric?) (##core#inline "C_u_i_char_numericp" c) ) (define (char-whitespace? c) (##sys#check-char c 'char-whitespace?) (##core#inline "C_u_i_char_whitespacep" c) ) (define (char-alphabetic? c) (##sys#check-char c 'char-alphabetic?) (##core#inline "C_u_i_char_alphabeticp" c) ) ;;; Procedures: (define (procedure? x) (##core#inline "C_i_closurep" x)) (define apply (##core#primitive "C_apply")) (define values (##core#primitive "C_values")) (define call-with-values (##core#primitive "C_call_with_values")) (define call-with-current-continuation) ;;; Ports: (define (input-port? x) (and (##core#inline "C_blockp" x) (##core#inline "C_input_portp" x))) (define (output-port? x) (and (##core#inline "C_blockp" x) (##core#inline "C_output_portp" x))) (define current-input-port) (define current-output-port) (define open-input-file) (define open-output-file) (define close-input-port) (define close-output-port) (define call-with-input-file) (define call-with-output-file) (define with-input-from-file) (define with-output-to-file) ;;; Input: (define (eof-object? x) (##core#inline "C_eofp" x)) (define char-ready?) (define read-char) (define peek-char) (define read) ;;; Output: (define write-char) (define newline) (define write) (define display) ;;; Evaluation environments: ;; All of the stuff below is overwritten with their "real" ;; implementations by chicken.eval (see eval.scm) (define (eval x . env) (##sys#error 'eval "`eval' is not defined - the `eval' unit was probably not linked with this executable")) (define (interaction-environment) (##sys#error 'interaction-environment "`interaction-environment' is not defined - the `eval' unit was probably not linked with this executable")) (define (scheme-report-environment n) (##sys#error 'scheme-report-environment "`scheme-report-environment' is not defined - the `eval' unit was probably not linked with this executable")) (define (null-environment) (##sys#error 'null-environment "`null-environment' is not defined - the `eval' unit was probably not linked with this executable")) (define (load filename . evaluator) (##sys#error 'load "`load' is not defined - the `eval' unit was probably not linked with this executable")) ;; Other stuff: (define force) (define for-each) (define map) (define dynamic-wind) ) ; scheme (import scheme) ;; Pre-declaration of chicken.base, so it can be used later on. Much ;; like the "scheme" module, most declarations will be set! further ;; down in this file, mostly to avoid a cyclic dependency on itself. ;; The full definition (with macros) is in its own import library. (module chicken.base (;; [syntax] and-let* case-lambda cut cute declare define-constant ;; define-inline define-record define-record-type ;; define-record-printer define-values delay-force fluid-let include ;; include-relative let-optionals let-values let*-values letrec* ;; letrec-values nth-value optional parameterize rec receive ;; require-library require-extension set!-values syntax unless when bignum? flonum? fixnum? ratnum? cplxnum? finite? infinite? nan? exact-integer? exact-integer-sqrt exact-integer-nth-root port? port-closed? input-port-open? output-port-open? flush-output get-output-string open-input-string open-output-string get-call-chain print print* add1 sub1 sleep call/cc current-error-port error void gensym print-call-chain make-promise promise? char-name enable-warnings equal=? finite? foldl foldr getter-with-setter make-parameter notice procedure-information setter signum string->uninterned-symbol subvector symbol-append vector-copy! vector-resize warning quotient&remainder quotient&modulo alist-ref alist-update alist-update! rassoc atom? butlast chop compress flatten intersperse join list-of? tail? constantly complement compose conjoin disjoin each flip identity o case-sensitive keyword-style parentheses-synonyms symbol-escape on-exit exit exit-handler implicit-exit-handler emergency-exit ) (import scheme chicken.internal.syntax) (define (fixnum? x) (##core#inline "C_fixnump" x)) (define (flonum? x) (##core#inline "C_i_flonump" x)) (define (bignum? x) (##core#inline "C_i_bignump" x)) (define (ratnum? x) (##core#inline "C_i_ratnump" x)) (define (cplxnum? x) (##core#inline "C_i_cplxnump" x)) (define (exact-integer? x) (##core#inline "C_i_exact_integerp" x)) (define exact-integer-sqrt) (define exact-integer-nth-root) (define quotient&remainder (##core#primitive "C_quotient_and_remainder")) ;; Modulo's sign follows y (whereas remainder's sign follows x) ;; Inlining this is not much use: quotient&remainder is primitive (define (quotient&modulo x y) (call-with-values (lambda () (quotient&remainder x y)) (lambda (div rem) (if (positive? y) (if (negative? rem) (values div (+ rem y)) (values div rem)) (if (positive? rem) (values div (+ rem y)) (values div rem)))))) (define (finite? x) (##core#inline "C_i_finitep" x)) (define (infinite? x) (##core#inline "C_i_infinitep" x)) (define (nan? x) (##core#inline "C_i_nanp" x)) (define signum (##core#primitive "C_signum")) (define equal=?) (define get-call-chain) (define print-call-chain) (define print) (define print*) (define (add1 n) (+ n 1)) (define (sub1 n) (- n 1)) (define current-error-port) (define (error . args) (if (pair? args) (apply ##sys#signal-hook #:error args) (##sys#signal-hook #:error #f))) (define (void . _) (##core#undefined)) (define sleep) (define call/cc) (define char-name) (define enable-warnings) ; (define enable-notices)??? (define getter-with-setter) (define make-parameter) (define procedure-information) (define setter) (define string->uninterned-symbol) (define gensym) (define vector-copy!) (define subvector) (define vector-resize) (define symbol-append) (define warning) (define notice) (define port?) (define port-closed?) (define input-port-open?) (define output-port-open?) (define get-output-string) (define open-input-string) (define open-output-string) (define flush-output) ;;; Promises: (define (promise? x) (##sys#structure? x 'promise)) (define (##sys#make-promise proc) (##sys#make-structure 'promise proc)) (define (make-promise obj) (if (promise? obj) obj (##sys#make-promise (lambda () obj)))) ;;; fast folds with correct argument order (define (foldl f z lst) (##sys#check-list lst 'foldl) (let loop ((lst lst) (z z)) (if (not (pair? lst)) z (loop (##sys#slot lst 1) (f z (##sys#slot lst 0)))))) (define (foldr f z lst) (##sys#check-list lst 'foldr) (let loop ((lst lst)) (if (not (pair? lst)) z (f (##sys#slot lst 0) (loop (##sys#slot lst 1)))))) ;;; Exit: (define implicit-exit-handler) (define exit-handler) (define chicken.base#cleanup-tasks '()) (define (on-exit thunk) (set! cleanup-tasks (cons thunk chicken.base#cleanup-tasks))) (define (exit #!optional (code 0)) ((exit-handler) code)) (define (emergency-exit #!optional (code 0)) (##sys#check-fixnum code 'emergency-exit) (##core#inline "C_exit_runtime" code)) ;;; Parameters: (define case-sensitive) (define keyword-style) (define parentheses-synonyms) (define symbol-escape) ;;; Combinators: (define (identity x) x) (define (conjoin . preds) (lambda (x) (let loop ((preds preds)) (or (null? preds) (and ((##sys#slot preds 0) x) (loop (##sys#slot preds 1)) ) ) ) ) ) (define (disjoin . preds) (lambda (x) (let loop ((preds preds)) (and (not (null? preds)) (or ((##sys#slot preds 0) x) (loop (##sys#slot preds 1)) ) ) ) ) ) (define (constantly . xs) (if (eq? 1 (length xs)) (let ((x (car xs))) (lambda _ x) ) (lambda _ (apply values xs)) ) ) (define (flip proc) (lambda (x y) (proc y x))) (define complement (lambda (p) (lambda args (not (apply p args))) ) ) (define (compose . fns) (define (rec f0 . fns) (if (null? fns) f0 (lambda args (call-with-values (lambda () (apply (apply rec fns) args)) f0) ) ) ) (if (null? fns) values (apply rec fns) ) ) (define (o . fns) (if (null? fns) identity (let loop ((fns fns)) (let ((h (##sys#slot fns 0)) (t (##sys#slot fns 1)) ) (if (null? t) h (lambda (x) (h ((loop t) x)))))))) (define (list-of? pred) (lambda (lst) (let loop ((lst lst)) (cond ((null? lst) #t) ((not (pair? lst)) #f) ((pred (##sys#slot lst 0)) (loop (##sys#slot lst 1))) (else #f) ) ) ) ) (define (each . procs) (cond ((null? procs) (lambda _ (void))) ((null? (##sys#slot procs 1)) (##sys#slot procs 0)) (else (lambda args (let loop ((procs procs)) (let ((h (##sys#slot procs 0)) (t (##sys#slot procs 1)) ) (if (null? t) (apply h args) (begin (apply h args) (loop t) ) ) ) ) ) ) ) ) ;;; List operators: (define (atom? x) (##core#inline "C_i_not_pair_p" x)) (define (tail? x y) (##sys#check-list y 'tail?) (or (##core#inline "C_eqp" x '()) (let loop ((y y)) (cond ((##core#inline "C_eqp" y '()) #f) ((##core#inline "C_eqp" x y) #t) (else (loop (##sys#slot y 1))) ) ) ) ) (define intersperse (lambda (lst x) (let loop ((ns lst)) (if (##core#inline "C_eqp" ns '()) ns (let ((tail (cdr ns))) (if (##core#inline "C_eqp" tail '()) ns (cons (##sys#slot ns 0) (cons x (loop tail))) ) ) ) ) ) ) (define (butlast lst) (##sys#check-pair lst 'butlast) (let loop ((lst lst)) (let ((next (##sys#slot lst 1))) (if (and (##core#inline "C_blockp" next) (##core#inline "C_pairp" next)) (cons (##sys#slot lst 0) (loop next)) '() ) ) ) ) (define (flatten . lists0) (let loop ((lists lists0) (rest '())) (cond ((null? lists) rest) (else (let ((head (##sys#slot lists 0)) (tail (##sys#slot lists 1)) ) (if (list? head) (loop head (loop tail rest)) (cons head (loop tail rest)) ) ) ) ) ) ) (define chop) (define (join lsts . lst) (let ((lst (if (pair? lst) (car lst) '()))) (##sys#check-list lst 'join) (let loop ((lsts lsts)) (cond ((null? lsts) '()) ((not (pair? lsts)) (##sys#error-not-a-proper-list lsts) ) (else (let ((l (##sys#slot lsts 0)) (r (##sys#slot lsts 1)) ) (if (null? r) l (##sys#append l lst (loop r)) ) ) ) ) ) ) ) (define compress (lambda (blst lst) (let ((msg "bad argument type - not a proper list")) (##sys#check-list lst 'compress) (let loop ((blst blst) (lst lst)) (cond ((null? blst) '()) ((not (pair? blst)) (##sys#signal-hook #:type-error 'compress msg blst) ) ((not (pair? lst)) (##sys#signal-hook #:type-error 'compress msg lst) ) ((##sys#slot blst 0) (cons (##sys#slot lst 0) (loop (##sys#slot blst 1) (##sys#slot lst 1)))) (else (loop (##sys#slot blst 1) (##sys#slot lst 1))) ) ) ) ) ) ;;; Alists: (define (alist-update! x y lst #!optional (cmp eqv?)) (let* ((aq (cond ((eq? eq? cmp) assq) ((eq? eqv? cmp) assv) ((eq? equal? cmp) assoc) (else (lambda (x lst) (let loop ((lst lst)) (and (pair? lst) (let ((a (##sys#slot lst 0))) (if (and (pair? a) (cmp x (##sys#slot a 0))) a (loop (##sys#slot lst 1)) ) ) ) ) ) ) ) ) (item (aq x lst)) ) (if item (begin (##sys#setslot item 1 y) lst) (cons (cons x y) lst) ) ) ) (define (alist-update k v lst #!optional (cmp eqv?)) (let loop ((lst lst)) (cond ((null? lst) (list (cons k v))) ((not (pair? lst)) (error 'alist-update "bad argument type" lst)) (else (let ((a (##sys#slot lst 0))) (cond ((not (pair? a)) (error 'alist-update "bad argument type" a)) ((cmp k (##sys#slot a 0)) (cons (cons k v) (##sys#slot lst 1))) (else (cons (cons (##sys#slot a 0) (##sys#slot a 1)) (loop (##sys#slot lst 1)))))))))) (define (alist-ref x lst #!optional (cmp eqv?) (default #f)) (let* ((aq (cond ((eq? eq? cmp) assq) ((eq? eqv? cmp) assv) ((eq? equal? cmp) assoc) (else (lambda (x lst) (let loop ((lst lst)) (cond ((null? lst) #f) ((pair? lst) (let ((a (##sys#slot lst 0))) (##sys#check-pair a 'alist-ref) (if (cmp x (##sys#slot a 0)) a (loop (##sys#slot lst 1)) ) )) (else (error 'alist-ref "bad argument type" lst)) ) ) ) ) ) ) (item (aq x lst)) ) (if item (##sys#slot item 1) default) ) ) ;; TODO: Make inlineable in C without "tst", to be more like assoc? (define (rassoc x lst . tst) (##sys#check-list lst 'rassoc) (let ((tst (if (pair? tst) (car tst) eqv?))) (let loop ((l lst)) (and (pair? l) (let ((a (##sys#slot l 0))) (##sys#check-pair a 'rassoc) (if (tst x (##sys#slot a 1)) a (loop (##sys#slot l 1)) ) ) ) ) ) ) ) ; chicken.base (import chicken.base) (define-constant char-name-table-size 37) (define-constant output-string-initial-size 256) (define-constant read-line-buffer-initial-size 1024) (define-constant default-parameter-vector-size 16) (define maximal-string-length (foreign-value "C_HEADER_SIZE_MASK" unsigned-long)) ;;; Fixnum arithmetic: (module chicken.fixnum * (import scheme) (import chicken.foreign) (define most-positive-fixnum (foreign-value "C_MOST_POSITIVE_FIXNUM" int)) (define most-negative-fixnum (foreign-value "C_MOST_NEGATIVE_FIXNUM" int)) (define fixnum-bits (foreign-value "(C_WORD_SIZE - 1)" int)) (define fixnum-precision (foreign-value "(C_WORD_SIZE - (1 + 1))" int)) (define (fx+ x y) (##core#inline "C_fixnum_plus" x y)) (define (fx- x y) (##core#inline "C_fixnum_difference" x y)) (define (fx* x y) (##core#inline "C_fixnum_times" x y)) (define (fx= x y) (eq? x y)) (define (fx> x y) (##core#inline "C_fixnum_greaterp" x y)) (define (fx< x y) (##core#inline "C_fixnum_lessp" x y)) (define (fx>= x y) (##core#inline "C_fixnum_greater_or_equal_p" x y)) (define (fx<= x y) (##core#inline "C_fixnum_less_or_equal_p" x y)) (define (fxmin x y) (##core#inline "C_i_fixnum_min" x y)) (define (fxmax x y) (##core#inline "C_i_fixnum_max" x y)) (define (fxneg x) (##core#inline "C_fixnum_negate" x)) (define (fxand x y) (##core#inline "C_fixnum_and" x y)) (define (fxior x y) (##core#inline "C_fixnum_or" x y)) (define (fxxor x y) (##core#inline "C_fixnum_xor" x y)) (define (fxnot x) (##core#inline "C_fixnum_not" x)) (define (fxshl x y) (##core#inline "C_fixnum_shift_left" x y)) (define (fxshr x y) (##core#inline "C_fixnum_shift_right" x y)) (define (fxodd? x) (##core#inline "C_i_fixnumoddp" x)) (define (fxeven? x) (##core#inline "C_i_fixnumevenp" x)) (define (fxlen x) (##core#inline "C_i_fixnum_length" x)) (define (fx/ x y) (##core#inline "C_fixnum_divide" x y) ) (define (fxgcd x y) (##core#inline "C_i_fixnum_gcd" x y)) (define (fxmod x y) (##core#inline "C_fixnum_modulo" x y) ) (define (fxrem x y) (##core#inline "C_i_fixnum_remainder_checked" x y) ) ;; Overflow-detecting versions of some of the above (define (fx+? x y) (##core#inline "C_i_o_fixnum_plus" x y) ) (define (fx-? x y) (##core#inline "C_i_o_fixnum_difference" x y) ) (define (fx*? x y) (##core#inline "C_i_o_fixnum_times" x y) ) (define (fx/? x y) (##core#inline "C_i_o_fixnum_quotient" x y)) ) ; chicken.fixnum (import chicken.fixnum) ;;; System routines: (define (##sys#debug-mode?) (##core#inline "C_i_debug_modep")) (define ##sys#warnings-enabled #t) (define ##sys#notices-enabled (##sys#debug-mode?)) (set! chicken.base#warning (lambda (msg . args) (when ##sys#warnings-enabled (apply ##sys#signal-hook #:warning msg args)))) (set! chicken.base#notice (lambda (msg . args) (when (and ##sys#notices-enabled ##sys#warnings-enabled) (apply ##sys#signal-hook #:notice msg args)))) (set! chicken.base#enable-warnings (lambda bool (if (pair? bool) (set! ##sys#warnings-enabled (car bool)) ##sys#warnings-enabled))) (define ##sys#error error) (define ##sys#warn warning) (define ##sys#notice notice) (define-foreign-variable strerror c-string "strerror(errno)") (define ##sys#gc (##core#primitive "C_gc")) (define (##sys#setslot x i y) (##core#inline "C_i_setslot" x i y)) (define (##sys#setislot x i y) (##core#inline "C_i_set_i_slot" x i y)) (define ##sys#allocate-vector (##core#primitive "C_allocate_vector")) (define ##sys#make-structure (##core#primitive "C_make_structure")) (define ##sys#ensure-heap-reserve (##core#primitive "C_ensure_heap_reserve")) (define ##sys#symbol-table-info (##core#primitive "C_get_symbol_table_info")) (define ##sys#memory-info (##core#primitive "C_get_memory_info")) (define (##sys#start-timer) (##sys#gc #t) (##core#inline "C_start_timer")) (define (##sys#stop-timer) (let ((info ((##core#primitive "C_stop_timer")))) ;; Run a major GC one more time to get memory usage information in ;; case there was no major GC while the timer was running (##sys#gc #t) (##sys#setslot info 6 (##sys#slot ((##core#primitive "C_stop_timer")) 6)) info)) (define (##sys#immediate? x) (not (##core#inline "C_blockp" x))) (define (##sys#message str) (##core#inline "C_message" str)) (define (##sys#byte x i) (##core#inline "C_subbyte" x i)) (define (##sys#setbyte x i n) (##core#inline "C_setbyte" x i n)) (define ##sys#void void) (define ##sys#undefined-value (##core#undefined)) (define (##sys#halt msg) (##core#inline "C_halt" msg)) (define ##sys#become! (##core#primitive "C_become")) (define (##sys#block-ref x i) (##core#inline "C_i_block_ref" x i)) (define ##sys#apply-values (##core#primitive "C_apply_values")) (define ##sys#copy-closure (##core#primitive "C_copy_closure")) (define (##sys#block-set! x i y) (when (or (not (##core#inline "C_blockp" x)) (and (##core#inline "C_specialp" x) (fx= i 0)) (##core#inline "C_byteblockp" x) ) (##sys#signal-hook '#:type-error '##sys#block-set! "slot not accessible" x) ) (##sys#check-range i 0 (##sys#size x) '##sys#block-set!) (##sys#setslot x i y) ) (module chicken.time ;; NOTE: We don't emit the import lib. Due to syntax exports, it has ;; to be a hardcoded primitive module. ;; ;; [syntax] time (cpu-time current-milliseconds current-seconds) (import scheme) (import (only chicken.module reexport)) (define (current-milliseconds) (##core#inline_allocate ("C_a_i_current_milliseconds" 7) #f)) (define (current-seconds) (##core#inline_allocate ("C_a_get_current_seconds" 7) #f)) (define cpu-time (let () ;; ((buf (vector #f #f))) Disabled for now: vector is defined below! (lambda () (let ((buf (vector #f #f))) ;; should be thread-safe as no context-switch will occur after ;; function entry and `buf' contents will have been extracted ;; before `values' gets called. (##core#inline_allocate ("C_a_i_cpu_time" 8) buf) (values (##sys#slot buf 0) (##sys#slot buf 1)) )) )) ) ; chicken.time (define (##sys#check-structure x y . loc) (if (pair? loc) (##core#inline "C_i_check_structure_2" x y (car loc)) (##core#inline "C_i_check_structure" x y) ) ) (define (##sys#check-blob x . loc) (if (pair? loc) (##core#inline "C_i_check_bytevector_2" x (car loc)) (##core#inline "C_i_check_bytevector" x) ) ) (define ##sys#check-byte-vector ##sys#check-blob) (define (##sys#check-pair x . loc) (if (pair? loc) (##core#inline "C_i_check_pair_2" x (car loc)) (##core#inline "C_i_check_pair" x) ) ) (define (##sys#check-list x . loc) (if (pair? loc) (##core#inline "C_i_check_list_2" x (car loc)) (##core#inline "C_i_check_list" x) ) ) (define (##sys#check-string x . loc) (if (pair? loc) (##core#inline "C_i_check_string_2" x (car loc)) (##core#inline "C_i_check_string" x) ) ) (define (##sys#check-number x . loc) (if (pair? loc) (##core#inline "C_i_check_number_2" x (car loc)) (##core#inline "C_i_check_number" x) ) ) (define (##sys#check-fixnum x . loc) (if (pair? loc) (##core#inline "C_i_check_fixnum_2" x (car loc)) (##core#inline "C_i_check_fixnum" x) ) ) (define (##sys#check-exact x . loc) (if (pair? loc) (##core#inline "C_i_check_exact_2" x (car loc)) (##core#inline "C_i_check_exact" x) ) ) (define (##sys#check-inexact x . loc) (if (pair? loc) (##core#inline "C_i_check_inexact_2" x (car loc)) (##core#inline "C_i_check_inexact" x) ) ) (define (##sys#check-symbol x . loc) (if (pair? loc) (##core#inline "C_i_check_symbol_2" x (car loc)) (##core#inline "C_i_check_symbol" x) ) ) (define (##sys#check-keyword x . loc) (if (pair? loc) (##core#inline "C_i_check_keyword_2" x (car loc)) (##core#inline "C_i_check_keyword" x) ) ) (define (##sys#check-vector x . loc) (if (pair? loc) (##core#inline "C_i_check_vector_2" x (car loc)) (##core#inline "C_i_check_vector" x) ) ) (define (##sys#check-char x . loc) (if (pair? loc) (##core#inline "C_i_check_char_2" x (car loc)) (##core#inline "C_i_check_char" x) ) ) (define (##sys#check-boolean x . loc) (if (pair? loc) (##core#inline "C_i_check_boolean_2" x (car loc)) (##core#inline "C_i_check_boolean" x) ) ) (define (##sys#check-locative x . loc) (if (pair? loc) (##core#inline "C_i_check_locative_2" x (car loc)) (##core#inline "C_i_check_locative" x) ) ) (define (##sys#check-integer x . loc) (unless (##core#inline "C_i_integerp" x) (##sys#error-bad-integer x (and (pair? loc) (car loc))) ) ) (define (##sys#check-exact-integer x . loc) (unless (##core#inline "C_i_exact_integerp" x) (##sys#error-bad-exact-integer x (and (pair? loc) (car loc))) ) ) (define (##sys#check-exact-uinteger x . loc) (when (or (not (##core#inline "C_i_exact_integerp" x)) (##core#inline "C_i_integer_negativep" x)) (##sys#error-bad-exact-uinteger x (and (pair? loc) (car loc))) ) ) (define (##sys#check-real x . loc) (unless (##core#inline "C_i_realp" x) (##sys#error-bad-real x (and (pair? loc) (car loc))) ) ) (define (##sys#check-range i from to . loc) (##sys#check-fixnum i loc) (unless (and (fx<= from i) (fx< i to)) (##sys#error-hook (foreign-value "C_OUT_OF_RANGE_ERROR" int) (and (pair? loc) (car loc)) i from to) ) ) (define (##sys#check-special ptr . loc) (unless (and (##core#inline "C_blockp" ptr) (##core#inline "C_specialp" ptr)) (##sys#signal-hook #:type-error (and (pair? loc) (car loc)) "bad argument type - not a pointer-like object" ptr) ) ) (define (##sys#check-closure x . loc) (if (pair? loc) (##core#inline "C_i_check_closure_2" x (car loc)) (##core#inline "C_i_check_closure" x) ) ) (set! scheme#force (lambda (obj) (if (##sys#structure? obj 'promise) (let lp ((promise obj) (forward #f)) (let ((val (##sys#slot promise 1))) (cond ((null? val) (##sys#values)) ((pair? val) (apply ##sys#values val)) ((procedure? val) (when forward (##sys#setslot forward 1 promise)) (let ((results (##sys#call-with-values val ##sys#list))) (cond ((not (procedure? (##sys#slot promise 1))) (lp promise forward)) ; in case of reentrance ((and (not (null? results)) (null? (cdr results)) (##sys#structure? (##sys#slot results 0) 'promise)) (let ((result0 (##sys#slot results 0))) (##sys#setslot promise 1 (##sys#slot result0 1)) (lp promise result0))) (else (##sys#setslot promise 1 results) (apply ##sys#values results))))) ((##sys#structure? val 'promise) (lp val forward))))) obj))) ;;; Dynamic Load (define ##sys#dload (##core#primitive "C_dload")) (define ##sys#set-dlopen-flags! (##core#primitive "C_set_dlopen_flags")) (define (##sys#error-not-a-proper-list arg #!optional loc) (##sys#error-hook (foreign-value "C_NOT_A_PROPER_LIST_ERROR" int) loc arg)) (define (##sys#error-bad-number arg #!optional loc) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR" int) loc arg)) (define (##sys#error-bad-integer arg #!optional loc) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR" int) loc arg)) (define (##sys#error-bad-exact-integer arg #!optional loc) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR" int) loc arg)) (define (##sys#error-bad-exact-uinteger arg #!optional loc) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR" int) loc arg)) (define (##sys#error-bad-inexact arg #!optional loc) (##sys#error-hook (foreign-value "C_CANT_REPRESENT_INEXACT_ERROR" int) loc arg)) (define (##sys#error-bad-real arg #!optional loc) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR" int) loc arg)) (define (##sys#error-bad-base arg #!optional loc) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR" int) loc arg)) (set! scheme#append (lambda lsts (if (eq? lsts '()) lsts (let loop ((lsts lsts)) (if (eq? (##sys#slot lsts 1) '()) (##sys#slot lsts 0) (let copy ((node (##sys#slot lsts 0))) (cond ((eq? node '()) (loop (##sys#slot lsts 1))) ((pair? node) (cons (##sys#slot node 0) (copy (##sys#slot node 1))) ) (else (##sys#error-not-a-proper-list (##sys#slot lsts 0) 'append)) ) )))) ) ) (define (##sys#fast-reverse lst0) (let loop ((lst lst0) (rest '())) (if (pair? lst) (loop (##sys#slot lst 1) (cons (##sys#slot lst 0) rest)) rest))) ;;; Strings: (define-inline (%make-string size fill) (##sys#allocate-vector size #t fill #f) ) (define (##sys#make-string size #!optional (fill #\space)) (%make-string size fill)) (set! scheme#make-string (lambda (size . fill) (##sys#check-fixnum size 'make-string) (when (fx< size 0) (##sys#signal-hook #:bounds-error 'make-string "size is negative" size)) (%make-string size (if (null? fill) #\space (let ((c (car fill))) (##sys#check-char c 'make-string) c ) ) ) ) ) (set! scheme#string->list (lambda (s) (##sys#check-string s 'string->list) (let ((len (##sys#size s))) (let loop ((i (fx- len 1)) (ls '())) (if (fx< i 0) ls (loop (fx- i 1) (cons (##core#inline "C_subchar" s i) ls)) ) ) ))) (define ##sys#string->list string->list) (set! scheme#list->string (lambda (lst0) (if (not (list? lst0)) (##sys#error-not-a-proper-list lst0 'list->string) (let* ([len (length lst0)] [s (##sys#make-string len)] ) (do ([i 0 (fx+ i 1)] [lst lst0 (##sys#slot lst 1)] ) ((fx>= i len) s) (let ([c (##sys#slot lst 0)]) (##sys#check-char c 'list->string) (##core#inline "C_setsubchar" s i c) ) ) ) ))) (define ##sys#list->string list->string) ;;; By Sven Hartrumpf: (define (##sys#reverse-list->string l) (if (list? l) (let* ((n (length l)) (s (##sys#make-string n))) (let iter ((l2 l) (n2 (fx- n 1))) (cond ((fx>= n2 0) (let ((c (##sys#slot l2 0))) (##sys#check-char c 'reverse-list->string) (##core#inline "C_setsubchar" s n2 c) ) (iter (##sys#slot l2 1) (fx- n2 1)) ) ) ) s ) (##sys#error-not-a-proper-list l 'reverse-list->string) ) ) (set! scheme#string-fill! (lambda (s c) (##sys#check-string s 'string-fill!) (##sys#check-char c 'string-fill!) (##core#inline "C_set_memory" s c (##sys#size s)) (##core#undefined) )) (set! scheme#string-copy (lambda (s) (##sys#check-string s 'string-copy) (let* ([len (##sys#size s)] [s2 (##sys#make-string len)] ) (##core#inline "C_copy_memory" s2 s len) s2) ) ) (set! scheme#substring (lambda (s start . end) (##sys#check-string s 'substring) (##sys#check-fixnum start 'substring) (let ((end (if (pair? end) (let ((end (car end))) (##sys#check-fixnum end 'substring) end) (##sys#size s) ) ) ) (let ((len (##sys#size s))) (if (and (fx<= start end) (fx>= start 0) (fx<= end len) ) (##sys#substring s start end) (##sys#error-hook (foreign-value "C_OUT_OF_RANGE_ERROR" int) 'substring start end) ) ) ))) (define (##sys#substring s start end) (let ([s2 (##sys#make-string (fx- end start))]) (##core#inline "C_substring_copy" s s2 start end 0) s2 ) ) (letrec ((compare (lambda (s1 s2 loc k) (##sys#check-string s1 loc) (##sys#check-string s2 loc) (let ((len1 (##core#inline "C_block_size" s1)) (len2 (##core#inline "C_block_size" s2)) ) (k len1 len2 (##core#inline "C_string_compare" s1 s2 (if (fx< len1 len2) len1 len2) ) ) ) ) ) ) (set! scheme#string<? (lambda (s1 s2) (compare s1 s2 'string<? (lambda (len1 len2 cmp) (or (fx< cmp 0) (and (fx< len1 len2) (eq? cmp 0) ) ) ) ) ) ) (set! scheme#string>? (lambda (s1 s2) (compare s1 s2 'string>? (lambda (len1 len2 cmp) (or (fx> cmp 0) (and (fx< len2 len1) (eq? cmp 0) ) ) ) ) ) ) (set! scheme#string<=? (lambda (s1 s2) (compare s1 s2 'string<=? (lambda (len1 len2 cmp) (if (eq? cmp 0) (fx<= len1 len2) (fx< cmp 0) ) ) ) ) ) (set! scheme#string>=? (lambda (s1 s2) (compare s1 s2 'string>=? (lambda (len1 len2 cmp) (if (eq? cmp 0) (fx>= len1 len2) (fx> cmp 0) ) ) ) ) ) ) (letrec ((compare (lambda (s1 s2 loc k) (##sys#check-string s1 loc) (##sys#check-string s2 loc) (let ((len1 (##core#inline "C_block_size" s1)) (len2 (##core#inline "C_block_size" s2)) ) (k len1 len2 (##core#inline "C_string_compare_case_insensitive" s1 s2 (if (fx< len1 len2) len1 len2) ) ) ) ) ) ) (set! scheme#string-ci<? (lambda (s1 s2) (compare s1 s2 'string-ci<? (lambda (len1 len2 cmp) (or (fx< cmp 0) (and (fx< len1 len2) (eq? cmp 0) ) ) ) ) ) ) (set! scheme#string-ci>? (lambda (s1 s2) (compare s1 s2 'string-ci>? (lambda (len1 len2 cmp) (or (fx> cmp 0) (and (fx< len2 len1) (eq? cmp 0) ) ) ) ) ) ) (set! scheme#string-ci<=? (lambda (s1 s2) (compare s1 s2 'string-ci<=? (lambda (len1 len2 cmp) (if (eq? cmp 0) (fx<= len1 len2) (fx< cmp 0) ) ) ) ) ) (set! scheme#string-ci>=? (lambda (s1 s2) (compare s1 s2 'string-ci>=? (lambda (len1 len2 cmp) (if (eq? cmp 0) (fx>= len1 len2) (fx> cmp 0) ) ) ) ) ) ) (define (##sys#string-append x y) (let* ([s1 (##sys#size x)] [s2 (##sys#size y)] [z (##sys#make-string (fx+ s1 s2))] ) (##core#inline "C_substring_copy" x z 0 s1 0) (##core#inline "C_substring_copy" y z 0 s2 s1) z) ) (set! scheme#string-append (lambda all (let ([snew #f]) (let loop ([strs all] [n 0]) (if (eq? strs '()) (set! snew (##sys#make-string n)) (let ([s (##sys#slot strs 0)]) (##sys#check-string s 'string-append) (let ([len (##sys#size s)]) (loop (##sys#slot strs 1) (fx+ n len)) (##core#inline "C_substring_copy" s snew 0 len n) ) ) ) ) snew ) )) (set! scheme#string (let ([list->string list->string]) (lambda chars (list->string chars)) ) ) (define (##sys#fragments->string total fs) (let ([dest (##sys#make-string total)]) (let loop ([fs fs] [pos 0]) (if (null? fs) dest (let* ([f (##sys#slot fs 0)] [flen (##sys#size f)] ) (##core#inline "C_substring_copy" f dest 0 flen pos) (loop (##sys#slot fs 1) (fx+ pos flen)) ) ) ) ) ) (set! chicken.base#chop (lambda (lst n) (##sys#check-fixnum n 'chop) (when (fx<= n 0) (##sys#error 'chop "invalid numeric argument" n)) (let ((len (length lst))) (let loop ((lst lst) (i len)) (cond ((null? lst) '()) ((fx< i n) (list lst)) (else (do ((hd '() (cons (##sys#slot tl 0) hd)) (tl lst (##sys#slot tl 1)) (c n (fx- c 1)) ) ((fx= c 0) (cons (reverse hd) (loop tl (fx- i n))) ) ) ) ) ) ) ) ) ;;; Numeric routines: ;; Abbreviations of paper and book titles used in comments are: ;; [Knuth] Donald E. Knuth, "The Art of Computer Programming", Volume 2 ;; [MpNT] Tiplea at al., "MpNT: A Multi-Precision Number Theory Package" ;; [MCA] Richard P. Brent & Paul Zimmermann, "Modern Computer Arithmetic" (module chicken.flonum * (import scheme) (import chicken.foreign) (import (only chicken.base flonum?)) (import chicken.internal.syntax) (define maximum-flonum (foreign-value "DBL_MAX" double)) (define minimum-flonum (foreign-value "DBL_MIN" double)) (define flonum-radix (foreign-value "FLT_RADIX" int)) (define flonum-epsilon (foreign-value "DBL_EPSILON" double)) (define flonum-precision (foreign-value "DBL_MANT_DIG" int)) (define flonum-decimal-precision (foreign-value "DBL_DIG" int)) (define flonum-maximum-exponent (foreign-value "DBL_MAX_EXP" int)) (define flonum-minimum-exponent (foreign-value "DBL_MIN_EXP" int)) (define flonum-maximum-decimal-exponent (foreign-value "DBL_MAX_10_EXP" int)) (define flonum-minimum-decimal-exponent (foreign-value "DBL_MIN_10_EXP" int)) (define-inline (fp-check-flonum x loc) (unless (flonum? x) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR" int) loc x) ) ) (define-inline (fp-check-flonums x y loc) (unless (and (flonum? x) (flonum? y)) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR" int) loc x y) ) ) (define (fp+ x y) (fp-check-flonums x y 'fp+) (##core#inline_allocate ("C_a_i_flonum_plus" 4) x y) ) (define (fp- x y) (fp-check-flonums x y 'fp-) (##core#inline_allocate ("C_a_i_flonum_difference" 4) x y) ) (define (fp* x y) (fp-check-flonums x y 'fp*) (##core#inline_allocate ("C_a_i_flonum_times" 4) x y) ) (define (fp/ x y) (fp-check-flonums x y 'fp/) (##core#inline_allocate ("C_a_i_flonum_quotient" 4) x y) ) (define (fpgcd x y) (fp-check-flonums x y 'fpgcd) (##core#inline_allocate ("C_a_i_flonum_gcd" 4) x y)) (define (fp/? x y) ; undocumented (fp-check-flonums x y 'fp/?) (##core#inline_allocate ("C_a_i_flonum_quotient_checked" 4) x y) ) (define (fp= x y) (fp-check-flonums x y 'fp=) (##core#inline "C_flonum_equalp" x y) ) (define (fp> x y) (fp-check-flonums x y 'fp>) (##core#inline "C_flonum_greaterp" x y) ) (define (fp< x y) (fp-check-flonums x y 'fp<) (##core#inline "C_flonum_lessp" x y) ) (define (fp>= x y) (fp-check-flonums x y 'fp>=) (##core#inline "C_flonum_greater_or_equal_p" x y) ) (define (fp<= x y) (fp-check-flonums x y 'fp<=) (##core#inline "C_flonum_less_or_equal_p" x y) ) (define (fpneg x) (fp-check-flonum x 'fpneg) (##core#inline_allocate ("C_a_i_flonum_negate" 4) x) ) (define (fpmax x y) (fp-check-flonums x y 'fpmax) (##core#inline "C_i_flonum_max" x y) ) (define (fpmin x y) (fp-check-flonums x y 'fpmin) (##core#inline "C_i_flonum_min" x y) ) (define (fpfloor x) (fp-check-flonum x 'fpfloor) (##core#inline_allocate ("C_a_i_flonum_floor" 4) x)) (define (fptruncate x) (fp-check-flonum x 'fptruncate) (##core#inline_allocate ("C_a_i_flonum_truncate" 4) x)) (define (fpround x) (fp-check-flonum x 'fpround) (##core#inline_allocate ("C_a_i_flonum_round" 4) x)) (define (fpceiling x) (fp-check-flonum x 'fpceiling) (##core#inline_allocate ("C_a_i_flonum_ceiling" 4) x)) (define (fpsin x) (fp-check-flonum x 'fpsin) (##core#inline_allocate ("C_a_i_flonum_sin" 4) x)) (define (fpcos x) (fp-check-flonum x 'fpcos) (##core#inline_allocate ("C_a_i_flonum_cos" 4) x)) (define (fptan x) (fp-check-flonum x 'fptan) (##core#inline_allocate ("C_a_i_flonum_tan" 4) x)) (define (fpasin x) (fp-check-flonum x 'fpasin) (##core#inline_allocate ("C_a_i_flonum_asin" 4) x)) (define (fpacos x) (fp-check-flonum x 'fpacos) (##core#inline_allocate ("C_a_i_flonum_acos" 4) x)) (define (fpatan x) (fp-check-flonum x 'fpatan) (##core#inline_allocate ("C_a_i_flonum_atan" 4) x)) (define (fpatan2 x y) (fp-check-flonums x y 'fpatan2) (##core#inline_allocate ("C_a_i_flonum_atan2" 4) x y)) (define (fpexp x) (fp-check-flonum x 'fpexp) (##core#inline_allocate ("C_a_i_flonum_exp" 4) x)) (define (fpexpt x y) (fp-check-flonums x y 'fpexpt) (##core#inline_allocate ("C_a_i_flonum_expt" 4) x y)) (define (fplog x) (fp-check-flonum x 'fplog) (##core#inline_allocate ("C_a_i_flonum_log" 4) x)) (define (fpsqrt x) (fp-check-flonum x 'fpsqrt) (##core#inline_allocate ("C_a_i_flonum_sqrt" 4) x)) (define (fpabs x) (fp-check-flonum x 'fpabs) (##core#inline_allocate ("C_a_i_flonum_abs" 4) x)) (define (fpinteger? x) (fp-check-flonum x 'fpinteger?) (##core#inline "C_u_i_fpintegerp" x)) (define (flonum-print-precision #!optional prec) (let ((prev (##core#inline "C_get_print_precision"))) (when prec (##sys#check-fixnum prec 'flonum-print-precision) (##core#inline "C_set_print_precision" prec)) prev))) (import chicken.flonum) (define-inline (integer-negate x) (##core#inline_allocate ("C_s_a_u_i_integer_negate" 5) x)) (define ##sys#number? number?) (define ##sys#integer? integer?) (define ##sys#exact? exact?) (define ##sys#inexact? inexact?) ;;; Complex numbers (define-inline (%cplxnum-real c) (##core#inline "C_u_i_cplxnum_real" c)) (define-inline (%cplxnum-imag c) (##core#inline "C_u_i_cplxnum_imag" c)) (define (make-complex r i) (if (or (eq? i 0) (and (##core#inline "C_i_flonump" i) (fp= i 0.0))) r (##core#inline_allocate ("C_a_i_cplxnum" 3) (if (inexact? i) (exact->inexact r) r) (if (inexact? r) (exact->inexact i) i)) ) ) (set! scheme#make-rectangular (lambda (r i) (##sys#check-real r 'make-rectangular) (##sys#check-real i 'make-rectangular) (make-complex r i) )) (set! scheme#make-polar (lambda (r phi) (##sys#check-real r 'make-polar) (##sys#check-real phi 'make-polar) (let ((fphi (exact->inexact phi))) (make-complex (* r (##core#inline_allocate ("C_a_i_cos" 4) fphi)) (* r (##core#inline_allocate ("C_a_i_sin" 4) fphi))) ) )) (set! scheme#real-part (lambda (x) (cond ((cplxnum? x) (%cplxnum-real x)) ((number? x) x) (else (##sys#error-bad-number x 'real-part)) ))) (set! scheme#imag-part (lambda (x) (cond ((cplxnum? x) (%cplxnum-imag x)) ((##core#inline "C_i_flonump" x) 0.0) ((number? x) 0) (else (##sys#error-bad-number x 'imag-part)) ))) (set! scheme#angle (lambda (n) (##sys#check-number n 'angle) (##core#inline_allocate ("C_a_i_atan2" 4) (exact->inexact (imag-part n)) (exact->inexact (real-part n))) )) (set! scheme#magnitude (lambda (x) (cond ((cplxnum? x) (let ((r (%cplxnum-real x)) (i (%cplxnum-imag x)) ) (sqrt (+ (* r r) (* i i))) )) ((number? x) (abs x)) (else (##sys#error-bad-number x 'magnitude))) )) ;;; Rational numbers (define-inline (%ratnum-numerator r) (##core#inline "C_u_i_ratnum_num" r)) (define-inline (%ratnum-denominator r) (##core#inline "C_u_i_ratnum_denom" r)) (define-inline (%make-ratnum n d) (##core#inline_allocate ("C_a_i_ratnum" 3) n d)) (define (ratnum m n) (cond ((eq? n 1) m) ((eq? n -1) (integer-negate m)) ((negative? n) (%make-ratnum (integer-negate m) (integer-negate n))) (else (%make-ratnum m n)))) (set! scheme#numerator (lambda (n) (cond ((exact-integer? n) n) ((##core#inline "C_i_flonump" n) (cond ((not (finite? n)) (bad-inexact 'numerator n)) ((##core#inline "C_u_i_fpintegerp" n) n) (else (exact->inexact (numerator (inexact->exact n)))))) ((ratnum? n) (%ratnum-numerator n)) (else (##sys#signal-hook #:type-error 'numerator "bad argument type - not a rational number" n) ) ))) (set! scheme#denominator (lambda (n) (cond ((exact-integer? n) 1) ((##core#inline "C_i_flonump" n) (cond ((not (finite? n)) (bad-inexact 'denominator n)) ((##core#inline "C_u_i_fpintegerp" n) 1.0) (else (exact->inexact (denominator (inexact->exact n)))))) ((ratnum? n) (%ratnum-denominator n)) (else (##sys#signal-hook #:type-error 'numerator "bad argument type - not a rational number" n) ) ))) (define (##sys#extended-signum x) (cond ((ratnum? x) (##core#inline "C_u_i_integer_signum" (%ratnum-numerator x))) ((cplxnum? x) (make-polar 1 (angle x))) (else (##sys#error-bad-number x 'signum)))) (define-inline (%flo->int x) (##core#inline_allocate ("C_s_a_u_i_flo_to_int" 5) x)) (define (flonum->ratnum x) ;; Try to multiply by two until we reach an integer (define (float-fraction-length x) (do ((x x (fp* x 2.0)) (i 0 (fx+ i 1))) ((##core#inline "C_u_i_fpintegerp" x) i))) (define (deliver y d) (let* ((q (##sys#integer-power 2 (float-fraction-length y))) (scaled-y (* y (exact->inexact q)))) (if (finite? scaled-y) ; Shouldn't this always be true? (##sys#/-2 (##sys#/-2 (%flo->int scaled-y) q) d) (##sys#error-bad-inexact x 'inexact->exact)))) (if (and (fp< x 1.0) ; Watch out for denormalized numbers (fp> x -1.0)) ; XXX: Needs a test, it seems pointless (deliver (* x (expt 2.0 flonum-precision)) ;; Can be bignum (is on 32-bit), so must wait until after init. ;; We shouldn't need to calculate this every single time, tho.. (##sys#integer-power 2 flonum-precision)) (deliver x 1))) (set! scheme#inexact->exact (lambda (x) (cond ((exact? x) x) ((##core#inline "C_i_flonump" x) (cond ((##core#inline "C_u_i_fpintegerp" x) (%flo->int x)) ((##core#inline "C_u_i_flonum_finitep" x) (flonum->ratnum x)) (else (##sys#error-bad-inexact x 'inexact->exact)))) ((cplxnum? x) (make-complex (inexact->exact (%cplxnum-real x)) (inexact->exact (%cplxnum-imag x)))) (else (##sys#error-bad-number x 'inexact->exact)) ))) (define ##sys#exact->inexact exact->inexact) (define ##sys#inexact->exact inexact->exact) ;;; Bitwise operations: ;; From SRFI-33 (module chicken.bitwise * (import scheme) (define bitwise-and (##core#primitive "C_bitwise_and")) (define bitwise-ior (##core#primitive "C_bitwise_ior")) (define bitwise-xor (##core#primitive "C_bitwise_xor")) (define (bitwise-not n) (##core#inline_allocate ("C_s_a_i_bitwise_not" 5) n)) (define (bit->boolean n i) (##core#inline "C_i_bit_to_bool" n i)) ; DEPRECATED ;; XXX NOT YET! Reintroduce at a later time. See #1385: ;; (define (bit-set? i n) (##core#inline "C_i_bit_setp" i n)) (define (integer-length x) (##core#inline "C_i_integer_length" x)) (define (arithmetic-shift n m) (##core#inline_allocate ("C_s_a_i_arithmetic_shift" 5) n m)) ) ; chicken.bitwise (import chicken.bitwise) ;;; Basic arithmetic: (define-inline (%integer-gcd a b) (##core#inline_allocate ("C_s_a_u_i_integer_gcd" 5) a b)) (set! scheme#/ (lambda (arg1 . args) (if (null? args) (##sys#/-2 1 arg1) (let loop ((args (##sys#slot args 1)) (x (##sys#/-2 arg1 (##sys#slot args 0)))) (if (null? args) x (loop (##sys#slot args 1) (##sys#/-2 x (##sys#slot args 0))) ) ) ) )) (define-inline (%integer-quotient a b) (##core#inline_allocate ("C_s_a_u_i_integer_quotient" 5) a b)) (define (##sys#/-2 x y) (when (eq? y 0) (##sys#error-hook (foreign-value "C_DIVISION_BY_ZERO_ERROR" int) '/ x y)) (cond ((and (exact-integer? x) (exact-integer? y)) (let ((g (%integer-gcd x y))) (ratnum (%integer-quotient x g) (%integer-quotient y g)))) ;; Compnum *must* be checked first ((or (cplxnum? x) (cplxnum? y)) (let* ((a (real-part x)) (b (imag-part x)) (c (real-part y)) (d (imag-part y)) (r (+ (* c c) (* d d))) (x (##sys#/-2 (+ (* a c) (* b d)) r)) (y (##sys#/-2 (- (* b c) (* a d)) r)) ) (make-complex x y) )) ((or (##core#inline "C_i_flonump" x) (##core#inline "C_i_flonump" y)) ;; This may be incorrect when one is a ratnum consisting of bignums (fp/ (exact->inexact x) (exact->inexact y))) ((ratnum? x) (if (ratnum? y) ;; a/b / c/d = a*d / b*c [generic] ;; = ((a / g1) * (d / g2) * sign(a)) / abs((b / g2) * (c / g1)) ;; With g1 = gcd(a, c) and g2 = gcd(b, d) [Knuth, 4.5.1 ex. 4] (let* ((a (%ratnum-numerator x)) (b (%ratnum-denominator x)) (c (%ratnum-numerator y)) (d (%ratnum-denominator y)) (g1 (%integer-gcd a c)) (g2 (%integer-gcd b d))) (ratnum (* (quotient a g1) (quotient d g2)) (* (quotient b g2) (quotient c g1)))) ;; a/b / c/d = a*d / b*c [with d = 1] ;; = ((a / g) * sign(a)) / abs(b * (c / g)) ;; With g = gcd(a, c) and c = y [Knuth, 4.5.1 ex. 4] (let* ((a (%ratnum-numerator x)) (g (##sys#internal-gcd '/ a y)) (num (quotient a g)) (denom (* (%ratnum-denominator x) (quotient y g)))) (if (##core#inline "C_i_flonump" denom) (##sys#/-2 num denom) (ratnum num denom))))) ((ratnum? y) ;; a/b / c/d = a*d / b*c [with b = 1] ;; = ((a / g1) * d * sign(a)) / abs(c / g1) ;; With g1 = gcd(a, c) and a = x [Knuth, 4.5.1 ex. 4] (let* ((c (%ratnum-numerator y)) (g (##sys#internal-gcd '/ x c)) (num (* (quotient x g) (%ratnum-denominator y))) (denom (quotient c g))) (if (##core#inline "C_i_flonump" denom) (##sys#/-2 num denom) (ratnum num denom)))) ((not (number? x)) (##sys#error-bad-number x '/)) (else (##sys#error-bad-number y '/))) ) (set! scheme#floor (lambda (x) (cond ((exact-integer? x) x) ((##core#inline "C_i_flonump" x) (fpfloor x)) ;; (floor x) = greatest integer <= x ((ratnum? x) (let* ((n (%ratnum-numerator x)) (q (quotient n (%ratnum-denominator x)))) (if (>= n 0) q (- q 1)))) (else (##sys#error-bad-real x 'floor)) ))) (set! scheme#ceiling (lambda (x) (cond ((exact-integer? x) x) ((##core#inline "C_i_flonump" x) (fpceiling x)) ;; (ceiling x) = smallest integer >= x ((ratnum? x) (let* ((n (%ratnum-numerator x)) (q (quotient n (%ratnum-denominator x)))) (if (>= n 0) (+ q 1) q))) (else (##sys#error-bad-real x 'ceiling)) ))) (set! scheme#truncate (lambda (x) (cond ((exact-integer? x) x) ((##core#inline "C_i_flonump" x) (fptruncate x)) ;; (rational-truncate x) = integer of largest magnitude <= (abs x) ((ratnum? x) (quotient (%ratnum-numerator x) (%ratnum-denominator x))) (else (##sys#error-bad-real x 'truncate)) ))) (set! scheme#round (lambda (x) (cond ((exact-integer? x) x) ((##core#inline "C_i_flonump" x) (##core#inline_allocate ("C_a_i_flonum_round_proper" 4) x)) ((ratnum? x) (let* ((x+1/2 (+ x (%make-ratnum 1 2))) (r (floor x+1/2))) (if (and (= r x+1/2) (odd? r)) (- r 1) r))) (else (##sys#error-bad-real x 'round)) ))) (define (find-ratio-between x y) (define (sr x y) (let ((fx (inexact->exact (floor x))) (fy (inexact->exact (floor y)))) (cond ((not (< fx x)) (list fx 1)) ((= fx fy) (let ((rat (sr (##sys#/-2 1 (- y fy)) (##sys#/-2 1 (- x fx))))) (list (+ (cadr rat) (* fx (car rat))) (car rat)))) (else (list (+ 1 fx) 1))))) (cond ((< y x) (find-ratio-between y x)) ((not (< x y)) (list x 1)) ((positive? x) (sr x y)) ((negative? y) (let ((rat (sr (- y) (- x)))) (list (- (car rat)) (cadr rat)))) (else '(0 1)))) (define (find-ratio x e) (find-ratio-between (- x e) (+ x e))) (set! scheme#rationalize (lambda (x e) (let ((result (apply ##sys#/-2 (find-ratio x e)))) (if (or (inexact? x) (inexact? e)) (exact->inexact result) result)) )) (set! scheme#max (lambda (x1 . xs) (let loop ((i (##core#inline "C_i_flonump" x1)) (m x1) (xs xs)) (##sys#check-number m 'max) (if (null? xs) (if i (exact->inexact m) m) (let ((h (##sys#slot xs 0))) (loop (or i (##core#inline "C_i_flonump" h)) (if (> h m) h m) (##sys#slot xs 1)) ) ) ) )) (set! scheme#min (lambda (x1 . xs) (let loop ((i (##core#inline "C_i_flonump" x1)) (m x1) (xs xs)) (##sys#check-number m 'min) (if (null? xs) (if i (exact->inexact m) m) (let ((h (##sys#slot xs 0))) (loop (or i (##core#inline "C_i_flonump" h)) (if (< h m) h m) (##sys#slot xs 1)) ) ) ) )) (set! scheme#exp (lambda (n) (##sys#check-number n 'exp) (if (cplxnum? n) (* (##core#inline_allocate ("C_a_i_exp" 4) (exact->inexact (%cplxnum-real n))) (let ((p (%cplxnum-imag n))) (make-complex (##core#inline_allocate ("C_a_i_cos" 4) (exact->inexact p)) (##core#inline_allocate ("C_a_i_sin" 4) (exact->inexact p)) ) ) ) (##core#inline_allocate ("C_a_i_flonum_exp" 4) (exact->inexact n)) ) )) (define (##sys#log-1 x) ; log_e(x) (cond ((eq? x 0) ; Exact zero? That's undefined (##sys#signal-hook #:arithmetic-error 'log "log of exact 0 is undefined" x)) ;; avoid calling inexact->exact on X here (to avoid overflow?) ((or (cplxnum? x) (negative? x)) ; General case (+ (##sys#log-1 (magnitude x)) (* (make-complex 0 1) (angle x)))) (else ; Real number case (< already ensured the argument type is a number) (##core#inline_allocate ("C_a_i_log" 4) (exact->inexact x))))) (set! scheme#log (lambda (a #!optional b) (if b (##sys#/-2 (##sys#log-1 a) (##sys#log-1 b)) (##sys#log-1 a)))) (set! scheme#sin (lambda (n) (##sys#check-number n 'sin) (if (cplxnum? n) (let ((in (* +i n))) (##sys#/-2 (- (exp in) (exp (- in))) +2i)) (##core#inline_allocate ("C_a_i_sin" 4) (exact->inexact n)) ) )) (set! scheme#cos (lambda (n) (##sys#check-number n 'cos) (if (cplxnum? n) (let ((in (* +i n))) (##sys#/-2 (+ (exp in) (exp (- in))) 2) ) (##core#inline_allocate ("C_a_i_cos" 4) (exact->inexact n)) ) )) (set! scheme#tan (lambda (n) (##sys#check-number n 'tan) (if (cplxnum? n) (##sys#/-2 (sin n) (cos n)) (##core#inline_allocate ("C_a_i_tan" 4) (exact->inexact n)) ) )) ;; General case: sin^{-1}(z) = -i\ln(iz + \sqrt{1-z^2}) (set! scheme#asin (lambda (n) (##sys#check-number n 'asin) (cond ((and (##core#inline "C_i_flonump" n) (fp>= n -1.0) (fp<= n 1.0)) (##core#inline_allocate ("C_a_i_asin" 4) n)) ((and (##core#inline "C_fixnump" n) (fx>= n -1) (fx<= n 1)) (##core#inline_allocate ("C_a_i_asin" 4) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) n))) ;; General definition can return compnums (else (* -i (##sys#log-1 (+ (* +i n) (##sys#sqrt/loc 'asin (- 1 (* n n))))) )) ) )) ;; General case: ;; cos^{-1}(z) = 1/2\pi + i\ln(iz + \sqrt{1-z^2}) = 1/2\pi - sin^{-1}(z) = sin(1) - sin(z) (set! scheme#acos (let ((asin1 (##core#inline_allocate ("C_a_i_asin" 4) 1))) (lambda (n) (##sys#check-number n 'acos) (cond ((and (##core#inline "C_i_flonump" n) (fp>= n -1.0) (fp<= n 1.0)) (##core#inline_allocate ("C_a_i_acos" 4) n)) ((and (##core#inline "C_fixnump" n) (fx>= n -1) (fx<= n 1)) (##core#inline_allocate ("C_a_i_acos" 4) (##core#inline_allocate ("C_a_i_fix_to_flo" 4) n))) ;; General definition can return compnums (else (- asin1 (asin n))))))) (set! scheme#atan (lambda (n #!optional b) (##sys#check-number n 'atan) (cond ((cplxnum? n) (if b (##sys#error-bad-real n 'atan) (let ((in (* +i n))) (##sys#/-2 (- (##sys#log-1 (+ 1 in)) (##sys#log-1 (- 1 in))) +2i)))) (b (##core#inline_allocate ("C_a_i_atan2" 4) (exact->inexact n) (exact->inexact b))) (else (##core#inline_allocate ("C_a_i_atan" 4) (exact->inexact n))) ) )) ;; This is "Karatsuba Square Root" as described by Paul Zimmermann, ;; which is 3/2K(n) + O(n log n) for an input of 2n words, where K(n) ;; is the number of operations performed by Karatsuba multiplication. (define (##sys#exact-integer-sqrt a) ;; Because we assume a3b+a2 >= b^2/4, we must check a few edge cases: (if (and (fixnum? a) (fx<= a 4)) (case a ((0 1) (values a 0)) ((2) (values 1 1)) ((3) (values 1 2)) ((4) (values 2 0)) (else (error "this should never happen"))) (let*-values (((len/4) (fxshr (fx+ (integer-length a) 1) 2)) ((len/2) (fxshl len/4 1)) ((s^ r^) (##sys#exact-integer-sqrt (arithmetic-shift a (fxneg len/2)))) ((mask) (- (arithmetic-shift 1 len/4) 1)) ((a0) (bitwise-and a mask)) ((a1) (bitwise-and (arithmetic-shift a (fxneg len/4)) mask)) ((q u) ((##core#primitive "C_u_integer_quotient_and_remainder") (+ (arithmetic-shift r^ len/4) a1) (arithmetic-shift s^ 1))) ((s) (+ (arithmetic-shift s^ len/4) q)) ((r) (+ (arithmetic-shift u len/4) (- a0 (* q q))))) (if (negative? r) (values (- s 1) (- (+ r (arithmetic-shift s 1)) 1)) (values s r))))) (set! chicken.base#exact-integer-sqrt (lambda (x) (##sys#check-exact-uinteger x 'exact-integer-sqrt) (##sys#exact-integer-sqrt x))) ;; This procedure is so large because it tries very hard to compute ;; exact results if at all possible. (define (##sys#sqrt/loc loc n) (cond ((cplxnum? n) ; Must be checked before we call "negative?" (let ((p (##sys#/-2 (angle n) 2)) (m (##core#inline_allocate ("C_a_i_sqrt" 4) (magnitude n))) ) (make-complex (* m (cos p)) (* m (sin p)) ) )) ((negative? n) (make-complex .0 (##core#inline_allocate ("C_a_i_sqrt" 4) (exact->inexact (- n))))) ((exact-integer? n) (receive (s^2 r) (##sys#exact-integer-sqrt n) (if (eq? 0 r) s^2 (##core#inline_allocate ("C_a_i_sqrt" 4) (exact->inexact n))))) ((ratnum? n) ; Try to compute exact sqrt (we already know n is positive) (receive (ns^2 nr) (##sys#exact-integer-sqrt (%ratnum-numerator n)) (if (eq? nr 0) (receive (ds^2 dr) (##sys#exact-integer-sqrt (%ratnum-denominator n)) (if (eq? dr 0) (##sys#/-2 ns^2 ds^2) (##sys#sqrt/loc loc (exact->inexact n)))) (##sys#sqrt/loc loc (exact->inexact n))))) (else (##core#inline_allocate ("C_a_i_sqrt" 4) (exact->inexact n))))) (set! scheme#sqrt (lambda (x) (##sys#sqrt/loc 'sqrt x))) (set! chicken.base#exact-integer-nth-root (lambda (k n) (##sys#check-exact-uinteger k 'exact-integer-nth-root) (##sys#check-exact-uinteger n 'exact-integer-nth-root) (##sys#exact-integer-nth-root/loc 'exact-integer-nth-root k n))) ;; Generalized Newton's algorithm for positive integers, with a little help ;; from Wikipedia ;) https://en.wikipedia.org/wiki/Nth_root_algorithm (define (##sys#exact-integer-nth-root/loc loc k n) (if (or (eq? 0 k) (eq? 1 k) (eq? 1 n)) ; Maybe call exact-integer-sqrt on n=2? (values k 0) (let ((len (integer-length k))) (if (< len n) ; Idea from Gambit: 2^{len-1} <= k < 2^{len} (values 1 (- k 1)) ; Since x >= 2, we know x^{n} can't exist ;; Set initial guess to (at least) 2^ceil(ceil(log2(k))/n) (let* ((shift-amount (inexact->exact (ceiling (/ (fx+ len 1) n)))) (g0 (arithmetic-shift 1 shift-amount)) (n-1 (- n 1))) (let lp ((g0 g0) (g1 (quotient (+ (* n-1 g0) (quotient k (##sys#integer-power g0 n-1))) n))) (if (< g1 g0) (lp g1 (quotient (+ (* n-1 g1) (quotient k (##sys#integer-power g1 n-1))) n)) (values g0 (- k (##sys#integer-power g0 n)))))))))) (define (##sys#integer-power base e) (define (square x) (* x x)) (if (negative? e) (##sys#/-2 1 (##sys#integer-power base (integer-negate e))) (let lp ((res 1) (e2 e)) (cond ((eq? e2 0) res) ((even? e2) ; recursion is faster than iteration here (* res (square (lp 1 (arithmetic-shift e2 -1))))) (else (lp (* res base) (- e2 1))))))) (set! scheme#expt (lambda (a b) (define (log-expt a b) (exp (* b (##sys#log-1 a)))) (define (slow-expt a b) (if (eq? 0 a) (##sys#signal-hook #:arithmetic-error 'expt "exponent of exact 0 with complex argument is undefined" a b) (exp (* b (##sys#log-1 a))))) (cond ((not (number? a)) (##sys#error-bad-number a 'expt)) ((not (number? b)) (##sys#error-bad-number b 'expt)) ((and (ratnum? a) (not (inexact? b))) ;; (n*d)^b = n^b * d^b = n^b * x^{-b} | x = 1/b ;; Hopefully faster than integer-power (* (expt (%ratnum-numerator a) b) (expt (%ratnum-denominator a) (- b)))) ((ratnum? b) ;; x^{a/b} = (x^{1/b})^a (cond ((exact-integer? a) (if (negative? a) (log-expt (exact->inexact a) (exact->inexact b)) (receive (ds^n r) (##sys#exact-integer-nth-root/loc 'expt a (%ratnum-denominator b)) (if (eq? r 0) (##sys#integer-power ds^n (%ratnum-numerator b)) (##core#inline_allocate ("C_a_i_flonum_expt" 4) (exact->inexact a) (exact->inexact b)))))) ((##core#inline "C_i_flonump" a) (log-expt a (exact->inexact b))) (else (slow-expt a b)))) ((or (cplxnum? b) (and (cplxnum? a) (not (integer? b)))) (slow-expt a b)) ((and (##core#inline "C_i_flonump" b) (not (##core#inline "C_u_i_fpintegerp" b))) (if (negative? a) (log-expt (exact->inexact a) (exact->inexact b)) (##core#inline_allocate ("C_a_i_flonum_expt" 4) (exact->inexact a) b))) ((##core#inline "C_i_flonump" a) (##core#inline_allocate ("C_a_i_flonum_expt" 4) a (exact->inexact b))) ;; this doesn't work that well, yet... ;; (XXX: What does this mean? why not? I do know this is ugly... :P) (else (if (or (inexact? a) (inexact? b)) (exact->inexact (##sys#integer-power a (inexact->exact b))) (##sys#integer-power a b)))) )) ;; Useful for sane error messages (define (##sys#internal-gcd loc a b) (cond ((exact-integer? a) (cond ((exact-integer? b) (%integer-gcd a b)) ((and (##core#inline "C_i_flonump" b) (##core#inline "C_u_i_fpintegerp" b)) (exact->inexact (%integer-gcd a (inexact->exact b)))) (else (##sys#error-bad-integer b loc)))) ((and (##core#inline "C_i_flonump" a) (##core#inline "C_u_i_fpintegerp" a)) (cond ((##core#inline "C_i_flonump" b) (##core#inline_allocate ("C_a_i_flonum_gcd" 4) a b)) ((exact-integer? b) (exact->inexact (%integer-gcd (inexact->exact a) b))) (else (##sys#error-bad-integer b loc)))) (else (##sys#error-bad-integer a loc)))) ;; For compat reasons, we define this (define (##sys#gcd a b) (##sys#internal-gcd 'gcd a b)) (set! scheme#gcd (lambda ns (if (eq? ns '()) 0 (let loop ((head (##sys#slot ns 0)) (next (##sys#slot ns 1))) (if (null? next) (if (integer? head) (abs head) (##sys#error-bad-integer head 'gcd)) (let ((n2 (##sys#slot next 0))) (loop (##sys#internal-gcd 'gcd head n2) (##sys#slot next 1)) ) ) ) ) )) (define (##sys#lcm x y) (let ((gcd (##sys#internal-gcd 'lcm x y))) ; Ensure better error message (abs (quotient (* x y) gcd) ) ) ) (set! scheme#lcm (lambda ns (if (null? ns) 1 (let loop ((head (##sys#slot ns 0)) (next (##sys#slot ns 1))) (if (null? next) (if (integer? head) (abs head) (##sys#error-bad-integer head 'lcm)) (let* ((n2 (##sys#slot next 0)) (gcd (##sys#internal-gcd 'lcm head n2))) (loop (quotient (* head n2) gcd) (##sys#slot next 1)) ) ) ) ) )) ;; This simple enough idea is from ;; http://www.numberworld.org/y-cruncher/internals/radix-conversion.html (define (##sys#integer->string/recursive n base expected-string-size) (let*-values (((halfsize) (fxshr (fx+ expected-string-size 1) 1)) ((b^M/2) (##sys#integer-power base halfsize)) ((hi lo) ((##core#primitive "C_u_integer_quotient_and_remainder") n b^M/2)) ((strhi) (number->string hi base)) ((strlo) (number->string (abs lo) base))) (string-append strhi ;; Fix up any leading zeroes that were stripped from strlo (make-string (fx- halfsize (string-length strlo)) #\0) strlo))) (define ##sys#extended-number->string (let ((string-append string-append)) (lambda (n base) (cond ((ratnum? n) (string-append (number->string (%ratnum-numerator n) base) "/" (number->string (%ratnum-denominator n) base))) ;; What about bases that include an "i"? That could lead to ;; ambiguous results. ((cplxnum? n) (let ((r (%cplxnum-real n)) (i (%cplxnum-imag n)) ) (string-append (number->string r base) ;; The infinities and NaN always print their sign (if (and (finite? i) (positive? i)) "+" "") (number->string i base) "i") )) (else (##sys#error-bad-number n 'number->string))) ) ) ) (define ##sys#number->string number->string) ; for printer ;; We try to prevent memory exhaustion attacks by limiting the ;; maximum exponent value. Perhaps this should be a parameter? (define-constant +maximum-allowed-exponent+ 10000) ;; From "Easy Accurate Reading and Writing of Floating-Point Numbers" ;; by Aubrey Jaffer. (define (mantexp->dbl mant point) (if (not (negative? point)) (exact->inexact (* mant (##sys#integer-power 10 point))) (let* ((scl (##sys#integer-power 10 (abs point))) (bex (fx- (fx- (integer-length mant) (integer-length scl)) flonum-precision))) (if (fx< bex 0) (let* ((num (arithmetic-shift mant (fxneg bex))) (quo (round-quotient num scl))) (cond ((> (integer-length quo) flonum-precision) ;; Too many bits of quotient; readjust (set! bex (fx+ 1 bex)) (set! quo (round-quotient num (* scl 2))))) (ldexp (exact->inexact quo) bex)) ;; Fall back to exact calculation in extreme cases (* mant (##sys#integer-power 10 point)))))) (define ldexp (foreign-lambda double "ldexp" double int)) ;; Should we export this? (define (round-quotient n d) (let ((q (%integer-quotient n d))) (if ((if (even? q) > >=) (* (abs (remainder n d)) 2) (abs d)) (+ q (if (eqv? (negative? n) (negative? d)) 1 -1)) q))) ;; Shorthand for readability. TODO: Replace other C_subchar calls with this (define-inline (%subchar s i) (##core#inline "C_subchar" s i)) (define (##sys#string->compnum radix str offset exactness) (define (go-inexact!) ;; Go inexact unless exact was requested (with #e prefix) (unless (eq? exactness 'e) (set! exactness 'i))) (define (safe-exponent value e) (and e (cond ((not value) 0) ((> e +maximum-allowed-exponent+) (and (eq? exactness 'i) (cond ((zero? value) 0.0) ((> value 0.0) +inf.0) (else -inf.0)))) ((< e (fxneg +maximum-allowed-exponent+)) (and (eq? exactness 'i) +0.0)) ((eq? exactness 'i) (mantexp->dbl value e)) (else (* value (##sys#integer-power 10 e)))))) (define (make-nan) ;; Return fresh NaNs, so eqv? returns #f on two read NaNs. This ;; is not mandated by the standard, but compatible with earlier ;; CHICKENs and it just makes more sense. (##core#inline_allocate ("C_a_i_flonum_quotient" 4) 0.0 0.0)) (let* ((len (##sys#size str)) (0..r (integer->char (fx+ (char->integer #\0) (fx- radix 1)))) (a..r (integer->char (fx+ (char->integer #\a) (fx- radix 11)))) (A..r (integer->char (fx+ (char->integer #\A) (fx- radix 11)))) ;; Ugly flag which we need (note that "exactness" is mutated too!) ;; Since there is (almost) no backtracking we can do this. (seen-hashes? #f) ;; All these procedures return #f or an object consed onto an end ;; position. If the cdr is false, that's the end of the string. ;; If just #f is returned, the string contains invalid number syntax. (scan-digits (lambda (start) (let lp ((i start)) (if (fx= i len) (and (fx> i start) (cons i #f)) (let ((c (%subchar str i))) (if (fx<= radix 10) (if (and (char>=? c #\0) (char<=? c 0..r)) (lp (fx+ i 1)) (and (fx> i start) (cons i i))) (if (or (and (char>=? c #\0) (char<=? c #\9)) (and (char>=? c #\a) (char<=? c a..r)) (and (char>=? c #\A) (char<=? c A..r))) (lp (fx+ i 1)) (and (fx> i start) (cons i i))))))))) (scan-hashes (lambda (start) (let lp ((i start)) (if (fx= i len) (and (fx> i start) (cons i #f)) (let ((c (%subchar str i))) (if (eq? c #\#) (lp (fx+ i 1)) (and (fx> i start) (cons i i)))))))) (scan-digits+hashes (lambda (start neg? all-hashes-ok?) (let* ((digits (and (not seen-hashes?) (scan-digits start))) (hashes (if digits (and (cdr digits) (scan-hashes (cdr digits))) (and all-hashes-ok? (scan-hashes start)))) (end (or hashes digits))) (and-let* ((end) (num (##core#inline_allocate ("C_s_a_i_digits_to_integer" 5) str start (car end) radix neg?))) (when hashes ; Eeewww. Feeling dirty yet? (set! seen-hashes? #t) (go-inexact!)) (cons num (cdr end)))))) (scan-exponent (lambda (start) (and (fx< start len) (let ((sign (case (%subchar str start) ((#\+) 'pos) ((#\-) 'neg) (else #f)))) (and-let* ((start (if sign (fx+ start 1) start)) (end (scan-digits start))) (go-inexact!) (cons (##core#inline_allocate ("C_s_a_i_digits_to_integer" 5) str start (car end) radix (eq? sign 'neg)) (cdr end))))))) (scan-decimal-tail ; The part after the decimal dot (lambda (start neg? decimal-head) (and (fx< start len) (let* ((tail (scan-digits+hashes start neg? decimal-head)) (next (if tail (cdr tail) start))) (and (or decimal-head (not next) (fx> next start)) ; Don't allow empty "." (case (and next (%subchar str next)) ((#\e #\s #\f #\d #\l #\E #\S #\F #\D #\L) (and-let* (((fx> len next)) (ee (scan-exponent (fx+ next 1))) (e (car ee)) (h (safe-exponent decimal-head e))) (let* ((te (and tail (fx- e (fx- (cdr tail) start)))) (num (and tail (car tail))) (t (safe-exponent num te))) (cons (if t (+ h t) h) (cdr ee))))) (else (let* ((last (or next len)) (te (and tail (fx- start last))) (num (and tail (car tail))) (t (safe-exponent num te)) (h (or decimal-head 0))) (cons (if t (+ h t) h) next))))))))) (scan-ureal (lambda (start neg?) (if (and (fx> len (fx+ start 1)) (eq? radix 10) (eq? (%subchar str start) #\.)) (begin (go-inexact!) (scan-decimal-tail (fx+ start 1) neg? #f)) (and-let* ((end (scan-digits+hashes start neg? #f))) (case (and (cdr end) (%subchar str (cdr end))) ((#\.) (go-inexact!) (and (eq? radix 10) (if (fx> len (fx+ (cdr end) 1)) (scan-decimal-tail (fx+ (cdr end) 1) neg? (car end)) (cons (car end) #f)))) ((#\e #\s #\f #\d #\l #\E #\S #\F #\D #\L) (and-let* (((eq? radix 10)) ((fx> len (cdr end))) (ee (scan-exponent (fx+ (cdr end) 1))) (num (car end)) (val (safe-exponent num (car ee)))) (cons val (cdr ee)))) ((#\/) (set! seen-hashes? #f) ; Reset flag for denominator (and-let* (((fx> len (cdr end))) (d (scan-digits+hashes (fx+ (cdr end) 1) #f #f)) (num (car end)) (denom (car d))) (if (not (eq? denom 0)) (cons (##sys#/-2 num denom) (cdr d)) ;; Hacky: keep around an inexact until we decide we ;; *really* need exact values, then fail at the end. (and (not (eq? exactness 'e)) (case (signum num) ((-1) (cons -inf.0 (cdr d))) ((0) (cons (make-nan) (cdr d))) ((+1) (cons +inf.0 (cdr d)))))))) (else end)))))) (scan-real (lambda (start) (and (fx< start len) (let* ((sign (case (%subchar str start) ((#\+) 'pos) ((#\-) 'neg) (else #f))) (next (if sign (fx+ start 1) start))) (and (fx< next len) (case (%subchar str next) ((#\i #\I) (or (and sign (cond ((fx= (fx+ next 1) len) ; [+-]i (cons (if (eq? sign 'neg) -1 1) next)) ((and (fx<= (fx+ next 5) len) (string-ci=? (substring str next (fx+ next 5)) "inf.0")) (go-inexact!) (cons (if (eq? sign 'neg) -inf.0 +inf.0) (and (fx< (fx+ next 5) len) (fx+ next 5)))) (else #f))) (scan-ureal next (eq? sign 'neg)))) ((#\n #\N) (or (and sign (fx<= (fx+ next 5) len) (string-ci=? (substring str next (fx+ next 5)) "nan.0") (begin (go-inexact!) (cons (make-nan) (and (fx< (fx+ next 5) len) (fx+ next 5))))) (scan-ureal next (eq? sign 'neg)))) (else (scan-ureal next (eq? sign 'neg))))))))) (number (and-let* ((r1 (scan-real offset))) (case (and (cdr r1) (%subchar str (cdr r1))) ((#f) (car r1)) ((#\i #\I) (and (fx= len (fx+ (cdr r1) 1)) (or (eq? (%subchar str offset) #\+) ; ugh (eq? (%subchar str offset) #\-)) (make-rectangular 0 (car r1)))) ((#\+ #\-) (set! seen-hashes? #f) ; Reset flag for imaginary part (and-let* ((r2 (scan-real (cdr r1))) ((cdr r2)) ((fx= len (fx+ (cdr r2) 1))) ((or (eq? (%subchar str (cdr r2)) #\i) (eq? (%subchar str (cdr r2)) #\I)))) (make-rectangular (car r1) (car r2)))) ((#\@) (set! seen-hashes? #f) ; Reset flag for angle (and-let* ((r2 (scan-real (fx+ (cdr r1) 1))) ((not (cdr r2)))) (make-polar (car r1) (car r2)))) (else #f))))) (and number (if (eq? exactness 'i) (exact->inexact number) ;; Ensure we didn't encounter +inf.0 or +nan.0 with #e (and (finite? number) number))))) (set! scheme#string->number (lambda (str #!optional (base 10)) (##sys#check-string str 'string->number) (unless (and (##core#inline "C_fixnump" base) (fx< 1 base) (fx< base 37)) ; We only have 0-9 and the alphabet! (##sys#error-bad-base base 'string->number)) (let scan-prefix ((i 0) (exness #f) (radix #f) (len (##sys#size str))) (if (and (fx< (fx+ i 2) len) (eq? (%subchar str i) #\#)) (case (%subchar str (fx+ i 1)) ((#\i #\I) (and (not exness) (scan-prefix (fx+ i 2) 'i radix len))) ((#\e #\E) (and (not exness) (scan-prefix (fx+ i 2) 'e radix len))) ((#\b #\B) (and (not radix) (scan-prefix (fx+ i 2) exness 2 len))) ((#\o #\O) (and (not radix) (scan-prefix (fx+ i 2) exness 8 len))) ((#\d #\D) (and (not radix) (scan-prefix (fx+ i 2) exness 10 len))) ((#\x #\X) (and (not radix) (scan-prefix (fx+ i 2) exness 16 len))) (else #f)) (##sys#string->compnum (or radix base) str i exness))))) (define (##sys#string->number str #!optional (radix 10) exactness) (##sys#string->compnum radix str 0 exactness)) (define ##sys#fixnum->string (##core#primitive "C_fixnum_to_string")) (define ##sys#flonum->string (##core#primitive "C_flonum_to_string")) (define ##sys#integer->string (##core#primitive "C_integer_to_string")) (define ##sys#number->string number->string) (set! chicken.base#equal=? (lambda (x y) (define (compare-slots x y start) (let ((l1 (##sys#size x)) (l2 (##sys#size y))) (and (eq? l1 l2) (or (fx<= l1 start) (let ((l1n (fx- l1 1))) (let loop ((i start)) (if (fx= i l1n) (walk (##sys#slot x i) (##sys#slot y i)) ; tailcall (and (walk (##sys#slot x i) (##sys#slot y i)) (loop (fx+ i 1)))))))))) (define (walk x y) (cond ((eq? x y)) ((number? x) (if (number? y) (= x y) (eq? x y))) ((not (##core#inline "C_blockp" x)) #f) ((not (##core#inline "C_blockp" y)) #f) ((not (##core#inline "C_sametypep" x y)) #f) ((##core#inline "C_specialp" x) (and (##core#inline "C_specialp" y) (if (##core#inline "C_closurep" x) (##core#inline "shallow_equal" x y) (compare-slots x y 1)))) ((##core#inline "C_byteblockp" x) (and (##core#inline "C_byteblockp" y) (let ((s1 (##sys#size x))) (and (eq? s1 (##sys#size y)) (##core#inline "C_substring_compare" x y 0 0 s1))))) (else (let ((s1 (##sys#size x))) (and (eq? s1 (##sys#size y)) (compare-slots x y 0)))))) (walk x y) )) ;;; Symbols: (define ##sys#snafu '##sys#fnord) (define ##sys#intern-symbol (##core#primitive "C_string_to_symbol")) (define ##sys#intern-keyword (##core#primitive "C_string_to_keyword")) (define (##sys#interned-symbol? x) (##core#inline "C_lookup_symbol" x)) (define (##sys#string->symbol str) (##sys#check-string str) (##sys#intern-symbol str) ) (define (##sys#symbol->string s) (##sys#slot s 1)) (set! scheme#symbol->string (lambda (s) (##sys#check-symbol s 'symbol->string) (string-copy (##sys#symbol->string s) ) )) (set! scheme#string->symbol (let ((string-copy string-copy)) (lambda (str) (##sys#check-string str 'string->symbol) (##sys#intern-symbol (string-copy str)) ) ) ) (set! chicken.base#string->uninterned-symbol (let ((string-copy string-copy)) (lambda (str) (##sys#check-string str 'string->uninterned-symbol) ((##core#primitive "C_make_symbol") (string-copy str))))) (set! chicken.base#gensym (let ((counter -1)) (lambda str-or-sym (let ((err (lambda (prefix) (##sys#signal-hook #:type-error 'gensym "argument is not a string or symbol" prefix)))) (set! counter (fx+ counter 1)) ((##core#primitive "C_make_symbol") (##sys#string-append (if (eq? str-or-sym '()) "g" (let ((prefix (car str-or-sym))) (or (and (##core#inline "C_blockp" prefix) (cond ((##core#inline "C_stringp" prefix) prefix) ((##core#inline "C_symbolp" prefix) (##sys#symbol->string prefix)) (else (err prefix)))) (err prefix) ) ) ) (##sys#number->string counter) ) ) ) ) ) ) (set! chicken.base#symbol-append (let ((string-append string-append)) (lambda ss (##sys#intern-symbol (apply string-append (map (lambda (s) (##sys#check-symbol s 'symbol-append) (##sys#symbol->string s)) ss)))))) ;;; Keywords: (module chicken.keyword (keyword? get-keyword keyword->string string->keyword) (import scheme) (import chicken.fixnum) (define (keyword? x) (##core#inline "C_i_keywordp" x) ) (define string->keyword (let ([string string] ) (lambda (s) (##sys#check-string s 'string->keyword) (##sys#intern-keyword s) ) ) ) (define keyword->string (let ([keyword? keyword?]) (lambda (kw) (if (keyword? kw) (##sys#symbol->string kw) (##sys#signal-hook #:type-error 'keyword->string "bad argument type - not a keyword" kw) ) ) ) ) (define get-keyword (let ((tag (list 'tag))) (lambda (key args #!optional thunk) (##sys#check-keyword key 'get-keyword) (##sys#check-list args 'get-keyword) (let ((r (##core#inline "C_i_get_keyword" key args tag))) (if (eq? r tag) ; not found (and thunk (thunk)) r))))) (define ##sys#get-keyword get-keyword)) (import chicken.keyword) ;;; Blob: (module chicken.blob (blob->string string->blob blob? blob=? blob-size make-blob) (import scheme) (define (##sys#make-blob size) (let ([bv (##sys#allocate-vector size #t #f #t)]) (##core#inline "C_string_to_bytevector" bv) bv) ) (define (make-blob size) (##sys#check-fixnum size 'make-blob) (##sys#make-blob size) ) (define (blob? x) (and (##core#inline "C_blockp" x) (##core#inline "C_bytevectorp" x) ) ) (define (blob-size bv) (##sys#check-blob bv 'blob-size) (##sys#size bv) ) (define (string->blob s) (##sys#check-string s 'string->blob) (let* ([n (##sys#size s)] [bv (##sys#make-blob n)] ) (##core#inline "C_copy_memory" bv s n) bv) ) (define (blob->string bv) (##sys#check-blob bv 'blob->string) (let* ([n (##sys#size bv)] [s (##sys#make-string n)] ) (##core#inline "C_copy_memory" s bv n) s) ) (define (blob=? b1 b2) (##sys#check-blob b1 'blob=?) (##sys#check-blob b2 'blob=?) (let ((n (##sys#size b1))) (and (eq? (##sys#size b2) n) (zero? (##core#inline "C_string_compare" b1 b2 n))))) ) ; chicken.blob ;;; Vectors: (set! scheme#make-vector (lambda (size . fill) (##sys#check-fixnum size 'make-vector) (when (fx< size 0) (##sys#error 'make-vector "size is negative" size)) (##sys#allocate-vector size #f (if (null? fill) (##core#undefined) (car fill) ) #f) )) (define ##sys#make-vector make-vector) (set! scheme#list->vector (lambda (lst0) (if (not (list? lst0)) (##sys#error-not-a-proper-list lst0 'list->vector) (let* ([len (length lst0)] [v (##sys#make-vector len)] ) (let loop ([lst lst0] [i 0]) (if (null? lst) v (begin (##sys#setslot v i (##sys#slot lst 0)) (loop (##sys#slot lst 1) (fx+ i 1)) ) ) ) ) ))) (set! scheme#vector->list (lambda (v) (##sys#check-vector v 'vector->list) (let ((len (##core#inline "C_block_size" v))) (let loop ((i 0)) (if (fx>= i len) '() (cons (##sys#slot v i) (loop (fx+ i 1)) ) ) ) ) )) (set! scheme#vector (lambda xs (list->vector xs) )) (set! scheme#vector-fill! (lambda (v x) (##sys#check-vector v 'vector-fill!) (let ((len (##core#inline "C_block_size" v))) (do ((i 0 (fx+ i 1))) ((fx>= i len)) (##sys#setslot v i x) ) ) )) (set! chicken.base#vector-copy! (lambda (from to . n) (##sys#check-vector from 'vector-copy!) (##sys#check-vector to 'vector-copy!) (let* ((len-from (##sys#size from)) (len-to (##sys#size to)) (n (if (pair? n) (car n) (fxmin len-to len-from)))) (##sys#check-fixnum n 'vector-copy!) (when (or (fx> n len-to) (fx> n len-from)) (##sys#signal-hook #:bounds-error 'vector-copy! "cannot copy vector - count exceeds length" from to n)) (do ((i 0 (fx+ i 1))) ((fx>= i n)) (##sys#setslot to i (##sys#slot from i)))))) (set! chicken.base#subvector (lambda (v i #!optional j) (##sys#check-vector v 'subvector) (let* ((len (##sys#size v)) (j (or j len)) (len2 (fx- j i))) (##sys#check-range i 0 (fx+ len 1) 'subvector) (##sys#check-range j 0 (fx+ len 1) 'subvector) (let ((v2 (make-vector len2))) (do ((k 0 (fx+ k 1))) ((fx>= k len2) v2) (##sys#setslot v2 k (##sys#slot v (fx+ k i)))))))) (set! chicken.base#vector-resize (lambda (v n #!optional init) (##sys#check-vector v 'vector-resize) (##sys#check-fixnum n 'vector-resize) (##sys#vector-resize v n init))) (define (##sys#vector-resize v n init) (let ((v2 (##sys#make-vector n init)) (len (min (##sys#size v) n)) ) (do ((i 0 (fx+ i 1))) ((fx>= i len) v2) (##sys#setslot v2 i (##sys#slot v i)) ) ) ) ;;; Characters: (let ((char-downcase char-downcase)) (set! scheme#char-ci=? (lambda (x y) (eq? (char-downcase x) (char-downcase y)))) (set! scheme#char-ci>? (lambda (x y) (##core#inline "C_u_i_char_greaterp" (char-downcase x) (char-downcase y)))) (set! scheme#char-ci<? (lambda (x y) (##core#inline "C_u_i_char_lessp" (char-downcase x) (char-downcase y)))) (set! scheme#char-ci>=? (lambda (x y) (##core#inline "C_u_i_char_greater_or_equal_p" (char-downcase x) (char-downcase y)))) (set! scheme#char-ci<=? (lambda (x y) (##core#inline "C_u_i_char_less_or_equal_p" (char-downcase x) (char-downcase y)))) ) (set! chicken.base#char-name (let ((chars-to-names (make-vector char-name-table-size '())) (names-to-chars '())) (define (lookup-char c) (let* ([code (char->integer c)] [key (##core#inline "C_fixnum_modulo" code char-name-table-size)] ) (let loop ([b (##sys#slot chars-to-names key)]) (and (pair? b) (let ([a (##sys#slot b 0)]) (if (eq? (##sys#slot a 0) c) a (loop (##sys#slot b 1)) ) ) ) ) ) ) (lambda (x . y) (let ([chr (if (pair? y) (car y) #f)]) (cond [(char? x) (and-let* ([a (lookup-char x)]) (##sys#slot a 1) ) ] [chr (##sys#check-symbol x 'char-name) (##sys#check-char chr 'char-name) (when (fx< (##sys#size (##sys#slot x 1)) 2) (##sys#signal-hook #:type-error 'char-name "invalid character name" x) ) (let ([a (lookup-char chr)]) (if a (let ([b (assq x names-to-chars)]) (##sys#setslot a 1 x) (if b (##sys#setislot b 1 chr) (set! names-to-chars (cons (cons x chr) names-to-chars)) ) ) (let ([key (##core#inline "C_fixnum_modulo" (char->integer chr) char-name-table-size)]) (set! names-to-chars (cons (cons x chr) names-to-chars)) (##sys#setslot chars-to-names key (cons (cons chr x) (##sys#slot chars-to-names key))) ) ) ) ] [else (##sys#check-symbol x 'char-name) (and-let* ([a (assq x names-to-chars)]) (##sys#slot a 1) ) ] ) ) ) ) ) ;; TODO: Use the character names here in the next release? Or just ;; use the numbers everywhere, for clarity? (char-name 'space #\space) (char-name 'tab #\tab) (char-name 'linefeed #\linefeed) (char-name 'newline #\newline) (char-name 'vtab (integer->char 11)) (char-name 'delete (integer->char 127)) (char-name 'esc (integer->char 27)) (char-name 'escape (integer->char 27)) (char-name 'alarm (integer->char 7)) (char-name 'nul (integer->char 0)) (char-name 'null (integer->char 0)) (char-name 'return #\return) (char-name 'page (integer->char 12)) (char-name 'backspace (integer->char 8)) ;;; Procedures: (define ##sys#call-with-current-continuation (##core#primitive "C_call_cc")) (define ##sys#call-with-cthulhu (##core#primitive "C_call_with_cthulhu")) (define ##sys#call-with-values call-with-values) (define (##sys#for-each p lst0) (let loop ((lst lst0)) (cond ((eq? lst '()) (##core#undefined)) ((pair? lst) (p (##sys#slot lst 0)) (loop (##sys#slot lst 1)) ) (else (##sys#error-not-a-proper-list lst0 'for-each)) ) )) (define (##sys#map p lst0) (let loop ((lst lst0)) (cond ((eq? lst '()) lst) ((pair? lst) (cons (p (##sys#slot lst 0)) (loop (##sys#slot lst 1))) ) (else (##sys#error-not-a-proper-list lst0 'map)) ) )) (letrec ((mapsafe (lambda (p lsts start loc) (if (eq? lsts '()) lsts (let ((item (##sys#slot lsts 0))) (cond ((eq? item '()) (check lsts start loc)) ((pair? item) (cons (p item) (mapsafe p (##sys#slot lsts 1) #f loc)) ) (else (##sys#error-not-a-proper-list item loc)) ) ) ) ) ) (check (lambda (lsts start loc) (if (or (not start) (let loop ((lsts lsts)) (and (not (eq? lsts '())) (not (eq? (##sys#slot lsts 0) '())) (loop (##sys#slot lsts 1)) ) ) ) (##sys#error loc "lists are not of same length" lsts) ) ) ) ) (set! scheme#for-each (lambda (fn lst1 . lsts) (if (null? lsts) (##sys#for-each fn lst1) (let loop ((all (cons lst1 lsts))) (let ((first (##sys#slot all 0))) (cond ((pair? first) (apply fn (mapsafe (lambda (x) (car x)) all #t 'for-each)) ; ensure inlining (loop (mapsafe (lambda (x) (cdr x)) all #t 'for-each)) ) (else (check all #t 'for-each)) ) ) ) ) ) ) (set! scheme#map (lambda (fn lst1 . lsts) (if (null? lsts) (##sys#map fn lst1) (let loop ((all (cons lst1 lsts))) (let ((first (##sys#slot all 0))) (cond ((pair? first) (cons (apply fn (mapsafe (lambda (x) (car x)) all #t 'map)) (loop (mapsafe (lambda (x) (cdr x)) all #t 'map)) ) ) (else (check (##core#inline "C_i_cdr" all) #t 'map) '() ) ) ) ) ) ) ) ) ;;; dynamic-wind: ; ; (taken more or less directly from SLIB) ; ; This implementation is relatively costly: we have to shadow call/cc ; with a new version that unwinds suspended thunks, but for this to ; happen the return-values of the escaping procedure have to be saved ; temporarily in a list. Since call/cc is very efficient under this ; implementation, and because allocation of memory that is to be ; garbage soon has also quite low overhead, the performance-penalty ; might be acceptable (ctak needs about 4 times longer). (define ##sys#dynamic-winds '()) (set! scheme#dynamic-wind (lambda (before thunk after) (before) (set! ##sys#dynamic-winds (cons (cons before after) ##sys#dynamic-winds)) (##sys#call-with-values thunk (lambda results (set! ##sys#dynamic-winds (##sys#slot ##sys#dynamic-winds 1)) (after) (apply ##sys#values results) ) ) )) (define ##sys#dynamic-wind dynamic-wind) (set! scheme#call-with-current-continuation (lambda (proc) (let ((winds ##sys#dynamic-winds)) (##sys#call-with-current-continuation (lambda (cont) (define (continuation . results) (unless (eq? ##sys#dynamic-winds winds) (##sys#dynamic-unwind winds (fx- (length ##sys#dynamic-winds) (length winds))) ) (apply cont results) ) (proc continuation) ))) )) (set! chicken.base#call/cc call-with-current-continuation) (define (##sys#dynamic-unwind winds n) (cond [(eq? ##sys#dynamic-winds winds)] [(fx< n 0) (##sys#dynamic-unwind (##sys#slot winds 1) (fx+ n 1)) ((##sys#slot (##sys#slot winds 0) 0)) (set! ##sys#dynamic-winds winds) ] [else (let ([after (##sys#slot (##sys#slot ##sys#dynamic-winds 0) 1)]) (set! ##sys#dynamic-winds (##sys#slot ##sys#dynamic-winds 1)) (after) (##sys#dynamic-unwind winds (fx- n 1)) ) ] ) ) ;;; Ports: (set! chicken.base#port? (lambda (x) (and (##core#inline "C_blockp" x) (##core#inline "C_portp" x)))) (set! chicken.base#input-port-open? (lambda (p) (##sys#check-input-port p 'input-port-open?) (##core#inline "C_input_port_openp" p))) (set! chicken.base#output-port-open? (lambda (p) (##sys#check-output-port p 'output-port-open?) (##core#inline "C_output_port_openp" p))) (set! chicken.base#port-closed? (lambda (p) (##sys#check-port p 'port-closed?) (eq? (##sys#slot p 8) 0))) ;;; Custom ports: ;;; Port layout: ; ; 0: FP (special) ; 1: direction (fixnum) ; 2: class (vector of procedures) ; 3: name (string) ; 4: row (fixnum) ; 5: col (fixnum) ; 6: EOF (bool) ; 7: type ('stream | 'custom | 'string | 'socket) ; 8: closed (fixnum) ; 9: data ; 10-15: reserved, port class specific ; ; Port-class: ; ; 0: (read-char PORT) -> CHAR | EOF ; 1: (peek-char PORT) -> CHAR | EOF ; 2: (write-char PORT CHAR) ; 3: (write-string PORT STRING) ; 4: (close PORT) ; 5: (flush-output PORT) ; 6: (char-ready? PORT) -> BOOL ; 7: (read-string! PORT COUNT STRING START) -> COUNT' ; 8: (read-line PORT LIMIT) -> STRING | EOF ; 9: (read-buffered PORT) -> STRING (define (##sys#make-port i/o class name type) (let ([port (##core#inline_allocate ("C_a_i_port" 17))]) (##sys#setislot port 1 i/o) (##sys#setslot port 2 class) (##sys#setslot port 3 name) (##sys#setislot port 4 1) (##sys#setislot port 5 0) (##sys#setslot port 7 type) (##sys#setslot port 8 i/o) port) ) ;;; Stream ports: ; Input port slots: ; 12: Static buffer for read-line, allocated on-demand (define ##sys#stream-port-class (vector (lambda (p) ; read-char (let loop () (let ((c (##core#inline "C_read_char" p))) (cond ((eq? -1 c) (if (eq? (##sys#update-errno) (foreign-value "EINTR" int)) (##sys#dispatch-interrupt loop) (##sys#signal-hook #:file-error 'read-char (##sys#string-append "cannot read from port - " strerror) p))) (else c))))) (lambda (p) ; peek-char (let loop () (let ((c (##core#inline "C_peek_char" p))) (cond ((eq? -1 c) (if (eq? (##sys#update-errno) (foreign-value "EINTR" int)) (##sys#dispatch-interrupt loop) (##sys#signal-hook #:file-error 'peek-char (##sys#string-append "cannot read from port - " strerror) p))) (else c))))) (lambda (p c) ; write-char (##core#inline "C_display_char" p c) ) (lambda (p s) ; write-string (##core#inline "C_display_string" p s) ) (lambda (p d) ; close (##core#inline "C_close_file" p) (##sys#update-errno) ) (lambda (p) ; flush-output (##core#inline "C_flush_output" p) ) (lambda (p) ; char-ready? (##core#inline "C_char_ready_p" p) ) (lambda (p n dest start) ; read-string! (let loop ([rem (or n (fx- (##sys#size dest) start))] [act 0] [start start]) (let ([len (##core#inline "fast_read_string_from_file" dest p rem start)]) (cond ((eof-object? len) ; EOF returns 0 bytes read act) ((fx< len 0) (if (eq? (##sys#update-errno) (foreign-value "EINTR" int)) (##sys#dispatch-interrupt (lambda () (loop (fx- rem len) (fx+ act len) (fx+ start len)))) (##sys#signal-hook #:file-error 'read-string! (##sys#string-append "cannot read from port - " strerror) p n dest start))) ((fx< len rem) (loop (fx- rem len) (fx+ act len) (fx+ start len))) (else (fx+ act len) ) ) ))) (lambda (p rlimit) ; read-line (if rlimit (##sys#check-fixnum rlimit 'read-line)) (let ((sblen read-line-buffer-initial-size)) (unless (##sys#slot p 12) (##sys#setslot p 12 (##sys#make-string sblen))) (let loop ([len sblen] [limit (or rlimit maximal-string-length)] ; guaranteed fixnum? [buffer (##sys#slot p 12)] [result ""] [f #f]) (let ([n (##core#inline "fast_read_line_from_file" buffer p (fxmin limit len))]) (cond [(eof-object? n) (if f result #!eof)] [(not n) (if (fx< limit len) (##sys#string-append result (##sys#substring buffer 0 limit)) (loop (fx* len 2) (fx- limit len) (##sys#make-string (fx* len 2)) (##sys#string-append result buffer) #t)) ] ((fx< n 0) (if (eq? (##sys#update-errno) (foreign-value "EINTR" int)) (let ((n (fx- (fxneg n) 1))) (##sys#dispatch-interrupt (lambda () (loop len limit buffer (##sys#string-append result (##sys#substring buffer 0 n)) #t)))) (##sys#signal-hook #:file-error 'read-line (##sys#string-append "cannot read from port - " strerror) p rlimit))) [f (##sys#setislot p 4 (fx+ (##sys#slot p 4) 1)) (##sys#string-append result (##sys#substring buffer 0 n))] [else (##sys#setislot p 4 (fx+ (##sys#slot p 4) 1)) (##sys#substring buffer 0 n)] ) ) ) ) ) #f ; read-buffered ) ) (define ##sys#open-file-port (##core#primitive "C_open_file_port")) (define ##sys#standard-input (##sys#make-port 1 ##sys#stream-port-class "(stdin)" 'stream)) (define ##sys#standard-output (##sys#make-port 2 ##sys#stream-port-class "(stdout)" 'stream)) (define ##sys#standard-error (##sys#make-port 2 ##sys#stream-port-class "(stderr)" 'stream)) (##sys#open-file-port ##sys#standard-input 0 #f) (##sys#open-file-port ##sys#standard-output 1 #f) (##sys#open-file-port ##sys#standard-error 2 #f) (define (##sys#check-input-port x open . loc) (if (pair? loc) (##core#inline "C_i_check_port_2" x 1 open (car loc)) (##core#inline "C_i_check_port" x 1 open))) (define (##sys#check-output-port x open . loc) (if (pair? loc) (##core#inline "C_i_check_port_2" x 2 open (car loc)) (##core#inline "C_i_check_port" x 2 open))) (define (##sys#check-port x . loc) (if (pair? loc) (##core#inline "C_i_check_port_2" x 0 #f (car loc)) (##core#inline "C_i_check_port" x 0 #f) ) ) (define (##sys#check-open-port x . loc) (if (pair? loc) (##core#inline "C_i_check_port_2" x 0 #t (car loc)) (##core#inline "C_i_check_port" x 0 #t) ) ) (set! scheme#current-input-port (lambda args (if (null? args) ##sys#standard-input (let ((p (car args))) (##sys#check-port p 'current-input-port) (let-optionals (cdr args) ((convert? #t) (set? #t)) (when set? (set! ##sys#standard-input p))) p) ) )) (set! scheme#current-output-port (lambda args (if (null? args) ##sys#standard-output (let ((p (car args))) (##sys#check-port p 'current-output-port) (let-optionals (cdr args) ((convert? #t) (set? #t)) (when set? (set! ##sys#standard-output p))) p) ) )) (set! chicken.base#current-error-port (lambda args (if (null? args) ##sys#standard-error (let ((p (car args))) (##sys#check-port p 'current-error-port) (let-optionals (cdr args) ((convert? #t) (set? #t)) (when set? (set! ##sys#standard-error p))) p)))) (define (##sys#tty-port? port) (and (not (zero? (##sys#peek-unsigned-integer port 0))) (##core#inline "C_tty_portp" port) ) ) (define (##sys#port-data port) (##sys#slot port 9)) (define (##sys#set-port-data! port data) (##sys#setslot port 9 data)) (let () (define (open name inp modes loc) (##sys#check-string name loc) (let ([fmode (if inp "r" "w")] [bmode ""] ) (do ([modes modes (##sys#slot modes 1)]) ((null? modes)) (let ([o (##sys#slot modes 0)]) (case o [(#:binary) (set! bmode "b")] [(#:text) (set! bmode "")] [(#:append) (if inp (##sys#error loc "cannot use append mode with input file") (set! fmode "a") ) ] [else (##sys#error loc "invalid file option" o)] ) ) ) (let ((port (##sys#make-port (if inp 1 2) ##sys#stream-port-class name 'stream))) (unless (##sys#open-file-port port name (##sys#string-append fmode bmode)) (##sys#update-errno) (##sys#signal-hook #:file-error loc (##sys#string-append "cannot open file - " strerror) name) ) port) ) ) (define (close port inp loc) (##sys#check-port port loc) ; repeated closing is ignored (let ((direction (if inp 1 2))) (when (##core#inline "C_port_openp" port direction) (##sys#setislot port 8 (fxand (##sys#slot port 8) (fxnot direction))) ((##sys#slot (##sys#slot port 2) 4) port direction)))) (set! scheme#open-input-file (lambda (name . mode) (open name #t mode 'open-input-file))) (set! scheme#open-output-file (lambda (name . mode) (open name #f mode 'open-output-file))) (set! scheme#close-input-port (lambda (port) (close port #t 'close-input-port))) (set! scheme#close-output-port (lambda (port) (close port #f 'close-output-port)))) (set! scheme#call-with-input-file (let ((open-input-file open-input-file) (close-input-port close-input-port) ) (lambda (name p . mode) (let ((f (apply open-input-file name mode))) (##sys#call-with-values (lambda () (p f)) (lambda results (close-input-port f) (apply ##sys#values results) ) ) ) ) ) ) (set! scheme#call-with-output-file (let ((open-output-file open-output-file) (close-output-port close-output-port) ) (lambda (name p . mode) (let ((f (apply open-output-file name mode))) (##sys#call-with-values (lambda () (p f)) (lambda results (close-output-port f) (apply ##sys#values results) ) ) ) ) ) ) (set! scheme#with-input-from-file (let ((open-input-file open-input-file) (close-input-port close-input-port) ) (lambda (str thunk . mode) (let ((file (apply open-input-file str mode))) (fluid-let ((##sys#standard-input file)) (##sys#call-with-values thunk (lambda results (close-input-port file) (apply ##sys#values results) ) ) ) ) ) ) ) (set! scheme#with-output-to-file (let ((open-output-file open-output-file) (close-output-port close-output-port) ) (lambda (str thunk . mode) (let ((file (apply open-output-file str mode))) (fluid-let ((##sys#standard-output file)) (##sys#call-with-values thunk (lambda results (close-output-port file) (apply ##sys#values results) ) ) ) ) ) ) ) (define (##sys#file-exists? name file? dir? loc) (case (##core#inline "C_i_file_exists_p" (##sys#make-c-string name loc) file? dir?) ((#f) #f) ((#t) #t) (else (##sys#signal-hook #:file-error loc "system error while trying to access file" name)))) (define (##sys#flush-output port) ((##sys#slot (##sys#slot port 2) 5) port) ; flush-output (##core#undefined) ) (set! chicken.base#flush-output (lambda (#!optional (port ##sys#standard-output)) (##sys#check-output-port port #t 'flush-output) (##sys#flush-output port))) (define (##sys#port-line port) (and (##core#inline "C_input_portp" port) (##sys#slot port 4) ) ) ;;; Decorate procedure with arbitrary data ; ; warning: may modify proc, if it already has a suitable decoration! (define (##sys#decorate-lambda proc pred decorator) (let ((len (##sys#size proc))) (let loop ((i (fx- len 1))) (cond ((zero? i) (let ((p2 (make-vector (fx+ len 1)))) (do ((i 1 (fx+ i 1))) ((fx>= i len) (##core#inline "C_vector_to_closure" p2) (##core#inline "C_copy_pointer" proc p2) (decorator p2 i) ) (##sys#setslot p2 i (##sys#slot proc i)) ) ) ) (else (let ((x (##sys#slot proc i))) (if (pred x) (decorator proc i) (loop (fx- i 1)) ) ) ) ) ) ) ) (define (##sys#lambda-decoration proc pred) (let loop ((i (fx- (##sys#size proc) 1))) (and (fx> i 0) (let ((x (##sys#slot proc i))) (if (pred x) x (loop (fx- i 1)) ) ) ) ) ) ;;; Create lambda-info object (define (##sys#make-lambda-info str) (let* ((sz (##sys#size str)) (info (##sys#make-string sz)) ) (##core#inline "C_copy_memory" info str sz) (##core#inline "C_string_to_lambdainfo" info) info) ) ;;; Function debug info: (define (##sys#lambda-info? x) (and (not (##sys#immediate? x)) (##core#inline "C_lambdainfop" x))) (define (##sys#lambda-info proc) (##sys#lambda-decoration proc ##sys#lambda-info?)) (define (##sys#lambda-info->string info) (let* ((sz (##sys#size info)) (s (##sys#make-string sz)) ) (##core#inline "C_copy_memory" s info sz) s) ) (set! chicken.base#procedure-information (lambda (x) (##sys#check-closure x 'procedure-information) (and-let* ((info (##sys#lambda-info x))) (##sys#read (open-input-string (##sys#lambda-info->string info)) #f) ) ) ) ;;; SRFI-17 (define setter-tag (vector 'setter)) (define-inline (setter? x) (and (pair? x) (eq? setter-tag (##sys#slot x 0))) ) (set! chicken.base#setter (##sys#decorate-lambda (lambda (proc) (or (and-let* (((procedure? proc)) (d (##sys#lambda-decoration proc setter?)) ) (##sys#slot d 1) ) (##sys#error 'setter "no setter defined" proc) ) ) setter? (lambda (proc i) (##sys#setslot proc i (cons setter-tag (lambda (get set) (if (procedure? get) (let ((get2 (##sys#decorate-lambda get setter? (lambda (proc i) (##sys#setslot proc i (cons setter-tag set)) proc)))) (if (eq? get get2) get (##sys#become! (list (cons get get2))) ) ) (error "can not set setter of non-procedure" get) ) ) ) ) proc) ) ) (define ##sys#setter setter) (set! chicken.base#getter-with-setter (lambda (get set #!optional info) (##sys#check-closure get 'getter-with-setter) (##sys#check-closure set 'getter-with-setter) (let ((getdec (cond (info (##sys#check-string info 'getter-with-setter) (##sys#make-lambda-info info)) (else (##sys#lambda-info get)))) (p1 (##sys#decorate-lambda (##sys#copy-closure get) setter? (lambda (proc i) (##sys#setslot proc i (cons setter-tag set)) proc)))) (if getdec (##sys#decorate-lambda p1 ##sys#lambda-info? (lambda (p i) (##sys#setslot p i getdec) p)) p1)))) (set! scheme#car (getter-with-setter scheme#car set-car!)) (set! scheme#cdr (getter-with-setter scheme#cdr set-cdr!)) (set! scheme#caar (getter-with-setter scheme#caar (lambda (x y) (set-car! (car x) y)))) (set! scheme#cadr (getter-with-setter scheme#cadr (lambda (x y) (set-car! (cdr x) y)))) (set! scheme#cdar (getter-with-setter scheme#cdar (lambda (x y) (set-cdr! (car x) y)))) (set! scheme#cddr (getter-with-setter scheme#cddr (lambda (x y) (set-cdr! (cdr x) y)))) (set! scheme#caaar (getter-with-setter scheme#caaar (lambda (x y) (set-car! (caar x) y)))) (set! scheme#caadr (getter-with-setter scheme#caadr (lambda (x y) (set-car! (cadr x) y)))) (set! scheme#cadar (getter-with-setter scheme#cadar (lambda (x y) (set-car! (cdar x) y)))) (set! scheme#caddr (getter-with-setter scheme#caddr (lambda (x y) (set-car! (cddr x) y)))) (set! scheme#cdaar (getter-with-setter scheme#cdaar (lambda (x y) (set-cdr! (caar x) y)))) (set! scheme#cdadr (getter-with-setter scheme#cdadr (lambda (x y) (set-cdr! (cadr x) y)))) (set! scheme#cddar (getter-with-setter scheme#cddar (lambda (x y) (set-cdr! (cdar x) y)))) (set! scheme#cdddr (getter-with-setter scheme#cdddr (lambda (x y) (set-cdr! (cddr x) y)))) (set! scheme#string-ref (getter-with-setter scheme#string-ref string-set!)) (set! scheme#vector-ref (getter-with-setter scheme#vector-ref vector-set!)) (set! scheme#list-ref (getter-with-setter scheme#list-ref (lambda (x i y) (set-car! (list-tail x i) y)))) ;;; Parameters: (define ##sys#default-parameter-vector (##sys#make-vector default-parameter-vector-size)) (define ##sys#current-parameter-vector '#()) (set! chicken.base#make-parameter (let ((count 0)) (lambda (init #!optional (guard (lambda (x) x))) (let* ((val (guard init)) (i count) (assign (lambda (val n convert? set?) (when (fx>= i n) (set! ##sys#current-parameter-vector (##sys#vector-resize ##sys#current-parameter-vector (fx+ i 1) ##sys#snafu) ) ) (let ((val (if convert? (guard val) val))) (when set? (##sys#setslot ##sys#current-parameter-vector i val)) val)))) (set! count (fx+ count 1)) (when (fx>= i (##sys#size ##sys#default-parameter-vector)) (set! ##sys#default-parameter-vector (##sys#vector-resize ##sys#default-parameter-vector (fx+ i 1) (##core#undefined)) ) ) (##sys#setslot ##sys#default-parameter-vector i val) (getter-with-setter (lambda args (let ((n (##sys#size ##sys#current-parameter-vector))) (cond ((pair? args) (let-optionals (cdr args) ((convert? #t) (set? #t)) (assign (car args) n convert? set?))) ((fx>= i n) (##sys#slot ##sys#default-parameter-vector i) ) (else (let ((val (##sys#slot ##sys#current-parameter-vector i))) (if (eq? val ##sys#snafu) (##sys#slot ##sys#default-parameter-vector i) val) ) ) ) ) ) (lambda (val) (let ((n (##sys#size ##sys#current-parameter-vector))) (assign val n #f #t)))))))) ;;; Input: (set! scheme#char-ready? (lambda (#!optional (port ##sys#standard-input)) (##sys#check-input-port port #t 'char-ready?) ((##sys#slot (##sys#slot port 2) 6) port) )) ; char-ready? (set! scheme#read-char (lambda (#!optional (port ##sys#standard-input)) (##sys#check-input-port port #t 'read-char) (##sys#read-char-0 port) )) (define (##sys#read-char-0 p) (let ([c (if (##sys#slot p 6) (begin (##sys#setislot p 6 #f) #!eof) ((##sys#slot (##sys#slot p 2) 0) p) ) ] ) ; read-char (cond [(eq? c #\newline) (##sys#setislot p 4 (fx+ (##sys#slot p 4) 1)) (##sys#setislot p 5 0) ] [(not (##core#inline "C_eofp" c)) (##sys#setislot p 5 (fx+ (##sys#slot p 5) 1)) ] ) c) ) (define (##sys#read-char/port port) (##sys#check-input-port port #t 'read-char) (##sys#read-char-0 port) ) (define (##sys#peek-char-0 p) (if (##sys#slot p 6) #!eof (let ([c ((##sys#slot (##sys#slot p 2) 1) p)]) ; peek-char (when (##core#inline "C_eofp" c) (##sys#setislot p 6 #t) ) c) ) ) (set! scheme#peek-char (lambda (#!optional (port ##sys#standard-input)) (##sys#check-input-port port #t 'peek-char) (##sys#peek-char-0 port) )) (set! scheme#read (lambda (#!optional (port ##sys#standard-input)) (##sys#check-input-port port #t 'read) (##sys#read port ##sys#default-read-info-hook) )) (define ##sys#default-read-info-hook #f) (define ##sys#read-error-with-line-number #f) (define (##sys#read-prompt-hook) #f) ; just here so that srfi-18 works without eval (define (##sys#infix-list-hook lst) lst) (define (##sys#sharp-number-hook port n) (##sys#read-error port "invalid `#...' read syntax" n) ) (set! chicken.base#case-sensitive (make-parameter #t)) (set! chicken.base#keyword-style (make-parameter #:suffix)) (set! chicken.base#parentheses-synonyms (make-parameter #t)) (set! chicken.base#symbol-escape (make-parameter #t)) (define ##sys#current-read-table (make-parameter (##sys#make-structure 'read-table #f #f #f))) (define ##sys#read-warning (let ([string-append string-append]) (lambda (port msg . args) (apply ##sys#warn (let ((ln (##sys#port-line port))) (if (and ##sys#read-error-with-line-number ln) (string-append "(line " (##sys#number->string ln) ") " msg) msg) ) args) ) ) ) (define ##sys#read-error (let ([string-append string-append] ) (lambda (port msg . args) (apply ##sys#signal-hook #:syntax-error (let ((ln (##sys#port-line port))) (if (and ##sys#read-error-with-line-number ln) (string-append "(line " (##sys#number->string ln) ") " msg) msg) ) args) ) ) ) (define ##sys#read (let ((string-append string-append) (keyword-style keyword-style) (case-sensitive case-sensitive) (parentheses-synonyms parentheses-synonyms) (symbol-escape symbol-escape) (current-read-table ##sys#current-read-table)) (lambda (port infohandler) (let ((csp (case-sensitive)) (ksp (keyword-style)) (psp (parentheses-synonyms)) (sep (symbol-escape)) (crt (current-read-table)) ; set below - needs more state to make a decision (terminating-characters '(#\, #\; #\( #\) #\' #\" #\[ #\] #\{ #\})) (reserved-characters #f) ) (define (container c) (##sys#read-error port "unexpected list terminator" c) ) (define (info class data val) (if infohandler (infohandler class data val) data) ) (define (skip-to-eol) (let skip ((c (##sys#read-char-0 port))) (if (and (not (##core#inline "C_eofp" c)) (not (eq? #\newline c))) (skip (##sys#read-char-0 port)) ) ) ) (define (reserved-character c) (##sys#read-char-0 port) (##sys#read-error port "reserved character" c) ) (define (read-unreserved-char-0 port) (let ((c (##sys#read-char-0 port))) (if (memq c reserved-characters) (reserved-character c) c) ) ) (define (readrec) (define (r-spaces) (let loop ([c (##sys#peek-char-0 port)]) (cond ((##core#inline "C_eofp" c)) ((eq? #\; c) (skip-to-eol) (loop (##sys#peek-char-0 port)) ) ((char-whitespace? c) (##sys#read-char-0 port) (loop (##sys#peek-char-0 port)) ) ) ) ) (define (r-usequence u n base) (let loop ((seq '()) (n n)) (if (eq? n 0) (let* ((str (##sys#reverse-list->string seq)) (n (string->number str base))) (or n (##sys#read-error port (string-append "invalid escape-sequence '\\" u str "\'")) ) ) (let ((x (##sys#read-char-0 port))) (if (or (eof-object? x) (char=? #\" x)) (##sys#read-error port "unterminated string constant") (loop (cons x seq) (fx- n 1)) ) ) ) ) ) (define (r-cons-codepoint cp lst) (let* ((s (##sys#char->utf8-string (integer->char cp))) (len (##sys#size s))) (let lp ((i 0) (lst lst)) (if (fx>= i len) lst (lp (fx+ i 1) (cons (##core#inline "C_subchar" s i) lst)))))) (define (r-string term) (let loop ((c (##sys#read-char-0 port)) (lst '())) (cond ((##core#inline "C_eofp" c) (##sys#read-error port "unterminated string") ) ((eq? #\\ c) (set! c (##sys#read-char-0 port)) (case c ((#\t) (loop (##sys#read-char-0 port) (cons #\tab lst))) ((#\r) (loop (##sys#read-char-0 port) (cons #\return lst))) ((#\b) (loop (##sys#read-char-0 port) (cons #\backspace lst))) ((#\n) (loop (##sys#read-char-0 port) (cons #\newline lst))) ((#\a) (loop (##sys#read-char-0 port) (cons (integer->char 7) lst))) ((#\v) (loop (##sys#read-char-0 port) (cons (integer->char 11) lst))) ((#\f) (loop (##sys#read-char-0 port) (cons (integer->char 12) lst))) ((#\x) (let ([ch (integer->char (r-usequence "x" 2 16))]) (loop (##sys#read-char-0 port) (cons ch lst)) ) ) ((#\u) (let ([n (r-usequence "u" 4 16)]) (if (##sys#unicode-surrogate? n) (if (and (eqv? #\\ (##sys#read-char-0 port)) (eqv? #\u (##sys#read-char-0 port))) (let* ((m (r-usequence "u" 4 16)) (cp (##sys#surrogates->codepoint n m))) (if cp (loop (##sys#read-char-0 port) (r-cons-codepoint cp lst)) (##sys#read-error port "bad surrogate pair" n m))) (##sys#read-error port "unpaired escaped surrogate" n)) (loop (##sys#read-char-0 port) (r-cons-codepoint n lst)) ) )) ((#\U) (let ([n (r-usequence "U" 8 16)]) (if (##sys#unicode-surrogate? n) (##sys#read-error port "invalid escape (surrogate)" n) (loop (##sys#read-char-0 port) (r-cons-codepoint n lst)) ))) ((#\\ #\' #\" #\|) (loop (##sys#read-char-0 port) (cons c lst))) ((#\newline #\return #\space #\tab) ;; Read "escaped" <intraline ws>* <nl> <intraline ws>* (let eat-ws ((c c) (nl? #f)) (case c ((#\space #\tab) (eat-ws (##sys#read-char-0 port) nl?)) ((#\return) (if nl? (loop c lst) (let ((nc (##sys#read-char-0 port))) (if (eq? nc #\newline) ; collapse \r\n (eat-ws (##sys#read-char-0 port) #t) (eat-ws nc #t))))) ((#\newline) (if nl? (loop c lst) (eat-ws (##sys#read-char-0 port) #t))) (else (unless nl? (##sys#read-warning port "escaped whitespace, but no newline - collapsing anyway")) (loop c lst))))) (else (cond ((##core#inline "C_eofp" c) (##sys#read-error port "unterminated string")) ((and (char-numeric? c) (char>=? c #\0) (char<=? c #\7)) (let ((ch (integer->char (fx+ (fx* (fx- (char->integer c) 48) 64) (r-usequence "" 2 8))))) (loop (##sys#read-char-0 port) (cons ch lst)) )) (else (##sys#read-warning port "undefined escape sequence in string - probably forgot backslash" c) (loop (##sys#read-char-0 port) (cons c lst))) ) ))) ((eq? term c) (##sys#reverse-list->string lst)) (else (loop (##sys#read-char-0 port) (cons c lst))) ) )) (define (r-list start end) (if (eq? (##sys#read-char-0 port) start) (let ((first #f) (ln0 #f) (outer-container container) ) (define (starting-line msg) (if (and ln0 ##sys#read-error-with-line-number) (string-append msg ", starting in line " (##sys#number->string ln0)) msg)) (##sys#call-with-current-continuation (lambda (return) (set! container (lambda (c) (if (eq? c end) (return #f) (##sys#read-error port (starting-line "list-terminator mismatch") c end) ) ) ) (let loop ([last '()]) (r-spaces) (unless first (set! ln0 (##sys#port-line port))) (let ([c (##sys#peek-char-0 port)]) (cond ((##core#inline "C_eofp" c) (##sys#read-error port (starting-line "unterminated list") ) ) ((eq? c end) (##sys#read-char-0 port) ) ((eq? c #\.) (##sys#read-char-0 port) (let ((c2 (##sys#peek-char-0 port))) (cond ((or (char-whitespace? c2) (eq? c2 #\() (eq? c2 #\)) (eq? c2 #\") (eq? c2 #\;) ) (unless (pair? last) (##sys#read-error port "invalid use of `.'") ) (r-spaces) (##sys#setslot last 1 (readrec)) (r-spaces) (unless (eq? (##sys#read-char-0 port) end) (##sys#read-error port (starting-line "missing list terminator") end))) (else (r-xtoken (lambda (tok kw) (let* ((tok (##sys#string-append "." tok)) (val (cond ((and (string=? tok ".:") (eq? ksp #:suffix)) ;; Edge case: r-xtoken sees ;; a bare ":" and sets kw to #f (build-keyword ".")) (kw (build-keyword tok)) ((and (char-numeric? c2) (##sys#string->number tok))) (else (build-symbol tok)))) (node (cons val '()))) (if first (##sys#setslot last 1 node) (set! first node) ) (loop node)))))))) (else (let ([node (cons (readrec) '())]) (if first (##sys#setslot last 1 node) (set! first node) ) (loop node) ) ) ) ) ) ) ) (set! container outer-container) (if first (info 'list-info (##sys#infix-list-hook first) ln0) '() ) ) (##sys#read-error port "missing token" start) ) ) (define (r-vector) (let ((lst (r-list #\( #\)))) (if (list? lst) (##sys#list->vector lst) (##sys#read-error port "invalid vector syntax" lst) ) ) ) (define (r-number radix exactness) (r-xtoken (lambda (tok kw) (cond (kw (let ((s (build-keyword tok))) (info 'symbol-info s (##sys#port-line port)) )) ((string=? tok ".") (##sys#read-error port "invalid use of `.'")) ((and (fx> (##sys#size tok) 0) (char=? (string-ref tok 0) #\#)) (##sys#read-error port "unexpected prefix in number syntax" tok)) ((##sys#string->number tok (or radix 10) exactness)) (radix (##sys#read-error port "illegal number syntax" tok)) (else (build-symbol tok)) ) ) )) (define (r-number-with-exactness radix) (cond [(eq? #\# (##sys#peek-char-0 port)) (##sys#read-char-0 port) (let ([c2 (##sys#read-char-0 port)]) (cond [(eof-object? c2) (##sys#read-error port "unexpected end of numeric literal")] [(char=? c2 #\i) (r-number radix 'i)] [(char=? c2 #\e) (r-number radix 'e)] [else (##sys#read-error port "illegal number syntax - invalid exactness prefix" c2)] ) ) ] [else (r-number radix #f)] ) ) (define (r-number-with-radix exactness) (cond [(eq? #\# (##sys#peek-char-0 port)) (##sys#read-char-0 port) (let ([c2 (##sys#read-char-0 port)]) (cond [(eof-object? c2) (##sys#read-error port "unexpected end of numeric literal")] [(char=? c2 #\x) (r-number 16 exactness)] [(char=? c2 #\d) (r-number 10 exactness)] [(char=? c2 #\o) (r-number 8 exactness)] [(char=? c2 #\b) (r-number 2 exactness)] [else (##sys#read-error port "illegal number syntax - invalid radix" c2)] ) ) ] [else (r-number 10 exactness)] ) ) (define (r-token) (let loop ((c (##sys#peek-char-0 port)) (lst '())) (cond ((or (eof-object? c) (char-whitespace? c) (memq c terminating-characters) ) (##sys#reverse-list->string lst) ) ((char=? c #\x00) (##sys#read-error port "attempt to read expression from something that looks like binary data")) (else (read-unreserved-char-0 port) (loop (##sys#peek-char-0 port) (cons (if csp c (char-downcase c)) lst) ) ) ) ) ) (define (r-digits) (let loop ((c (##sys#peek-char-0 port)) (lst '())) (cond ((or (eof-object? c) (not (char-numeric? c))) (##sys#reverse-list->string lst) ) (else (##sys#read-char-0 port) (loop (##sys#peek-char-0 port) (cons c lst)) ) ) ) ) (define (r-symbol) (r-xtoken (lambda (str kw) (let ((s (if kw (build-keyword str) (build-symbol str)))) (info 'symbol-info s (##sys#port-line port)) ) ))) (define (r-xtoken k) (let ((pkw #f)) (let loop ((lst '()) (skw #f)) (let ((c (##sys#peek-char-0 port))) (cond ((or (eof-object? c) (char-whitespace? c) (memq c terminating-characters)) ;; The not null? checks here ensure we read a ;; plain ":" as a symbol, not as a keyword. (if (and skw (eq? ksp #:suffix) (not (null? (cdr lst)))) (k (##sys#reverse-list->string (cdr lst)) #t) (k (##sys#reverse-list->string lst) (and pkw (not (null? lst)))))) ((memq c reserved-characters) (reserved-character c)) (else (let ((c (##sys#read-char-0 port))) (case c ((#\|) (let ((part (r-string #\|))) (loop (append (##sys#fast-reverse (##sys#string->list part)) lst) #f))) ((#\newline) (##sys#read-warning port "escaped symbol syntax spans multiple lines" (##sys#reverse-list->string lst)) (loop (cons #\newline lst) #f)) ((#\:) (cond ((and (null? lst) (eq? ksp #:prefix)) (set! pkw #t) (loop '() #f)) (else (loop (cons #\: lst) #t)))) ((#\\) (let ((c (##sys#read-char-0 port))) (if (eof-object? c) (##sys#read-error port "unexpected end of file while reading escaped character") (loop (cons c lst) #f)))) (else (loop (cons (if csp c (char-downcase c)) lst) #f)))))))))) (define (r-char) ;; Code contributed by Alex Shinn (let* ([c (##sys#peek-char-0 port)] [tk (r-token)] [len (##sys#size tk)]) (cond [(fx> len 1) (cond [(and (or (char=? #\x c) (char=? #\u c) (char=? #\U c)) (##sys#string->number (##sys#substring tk 1 len) 16) ) => (lambda (n) (integer->char n)) ] [(and-let* ((c0 (char->integer (##core#inline "C_subchar" tk 0))) ((fx<= #xC0 c0)) ((fx<= c0 #xF7)) (n0 (fxand (fxshr c0 4) 3)) (n (fx+ 2 (fxand (fxior n0 (fxshr n0 1)) (fx- n0 1)))) ((fx= len n)) (res (fx+ (fxshl (fxand c0 (fx- (fxshl 1 (fx- 8 n)) 1)) 6) (fxand (char->integer (##core#inline "C_subchar" tk 1)) #b111111)))) (cond ((fx>= n 3) (set! res (fx+ (fxshl res 6) (fxand (char->integer (##core#inline "C_subchar" tk 2)) #b111111))) (if (fx= n 4) (set! res (fx+ (fxshl res 6) (fxand (char->integer (##core#inline "C_subchar" tk 3)) #b111111)))))) (integer->char res))] [(char-name (##sys#intern-symbol tk))] [else (##sys#read-error port "unknown named character" tk)] ) ] [(memq c terminating-characters) (##sys#read-char-0 port)] [else c] ) ) ) (define (r-comment) (let loop ((i 0)) (let ((c (##sys#read-char-0 port))) (case c ((#\|) (if (eq? #\# (##sys#read-char-0 port)) (if (not (eq? i 0)) (loop (fx- i 1)) ) (loop i) ) ) ((#\#) (loop (if (eq? #\| (##sys#read-char-0 port)) (fx+ i 1) i) ) ) (else (if (eof-object? c) (##sys#read-error port "unterminated block-comment") (loop i) ) ) ) ) ) ) (define (r-ext-symbol) (let ((tok (r-token))) (build-symbol (string-append "##" tok)))) (define (r-quote q) (let ((ln (##sys#port-line port))) (info 'list-info (list q (readrec)) ln))) (define (build-symbol tok) (##sys#intern-symbol tok) ) (define (build-keyword tok) (##sys#intern-keyword tok)) ;; now have the state to make a decision. (set! reserved-characters (append (if (not psp) '(#\[ #\] #\{ #\}) '()) (if (not sep) '(#\|) '()))) (r-spaces) (let* ((c (##sys#peek-char-0 port)) (srst (##sys#slot crt 1)) (h (and (not (eof-object? c)) srst (##sys#slot srst (char->integer c)) ) ) ) (if h ;; then handled by read-table entry (##sys#call-with-values (lambda () (h c port)) (lambda xs (if (null? xs) (readrec) (car xs)))) ;; otherwise chicken extended r5rs syntax (case c ((#\') (##sys#read-char-0 port) (r-quote 'quote)) ((#\`) (##sys#read-char-0 port) (r-quote 'quasiquote)) ((#\,) (##sys#read-char-0 port) (cond ((eq? (##sys#peek-char-0 port) #\@) (##sys#read-char-0 port) (r-quote 'unquote-splicing)) (else (r-quote 'unquote)))) ((#\#) (##sys#read-char-0 port) (let ((dchar (##sys#peek-char-0 port))) (cond ((eof-object? dchar) (##sys#read-error port "unexpected end of input after reading #-sign")) ((char-numeric? dchar) (let* ((n (string->number (r-digits))) (dchar2 (##sys#peek-char-0 port)) (spdrst (##sys#slot crt 3)) (h (and (char? dchar2) spdrst (##sys#slot spdrst (char->integer dchar2)) ) ) ) ;; #<num> handled by parameterized # read-table entry? (cond ((eof-object? dchar2) (##sys#read-error port "unexpected end of input after reading" c n)) (h (##sys#call-with-values (lambda () (h dchar2 port n)) (lambda xs (if (null? xs) (readrec) (car xs))))) ;; #<num>? ((or (eq? dchar2 #\)) (char-whitespace? dchar2)) (##sys#sharp-number-hook port n)) (else (##sys#read-char-0 port) ; Consume it first (##sys#read-error port "invalid parameterized read syntax" c n dchar2) ) ) )) (else (let* ((sdrst (##sys#slot crt 2)) (h (and sdrst (##sys#slot sdrst (char->integer dchar)) ) ) ) (if h ;; then handled by # read-table entry (##sys#call-with-values (lambda () (h dchar port)) (lambda xs (if (null? xs) (readrec) (car xs)))) ;; otherwise chicken extended r5rs syntax (case (char-downcase dchar) ((#\x) (##sys#read-char-0 port) (r-number-with-exactness 16)) ((#\d) (##sys#read-char-0 port) (r-number-with-exactness 10)) ((#\o) (##sys#read-char-0 port) (r-number-with-exactness 8)) ((#\b) (##sys#read-char-0 port) (r-number-with-exactness 2)) ((#\i) (##sys#read-char-0 port) (r-number-with-radix 'i)) ((#\e) (##sys#read-char-0 port) (r-number-with-radix 'e)) ((#\c) (##sys#read-char-0 port) (let ([c (##sys#read-char-0 port)]) (fluid-let ([csp (cond [(eof-object? c) (##sys#read-error port "unexpected end of input while reading `#c...' sequence")] [(eq? c #\i) #f] [(eq? c #\s) #t] [else (##sys#read-error port "invalid case specifier in `#c...' sequence" c)] ) ] ) (readrec) ) ) ) ((#\() (r-vector)) ((#\\) (##sys#read-char-0 port) (r-char)) ((#\|) (##sys#read-char-0 port) (r-comment) (readrec) ) ((#\#) (##sys#read-char-0 port) (r-ext-symbol) ) ((#\;) (##sys#read-char-0 port) (readrec) (readrec) ) ((#\`) (##sys#read-char-0 port) (r-quote 'quasisyntax)) ((#\$) (##sys#read-char-0 port) (let ((c (##sys#peek-char-0 port))) (cond ((char=? c #\{) (##sys#read-char-0 port) (##sys#read-bytevector-literal port)) (else ;; HACK: reuse r-quote to add line number info (r-quote 'location))))) ((#\:) (##sys#read-char-0 port) (let ((c (##sys#peek-char-0 port))) (fluid-let ((ksp #f)) (r-xtoken (lambda (str kw) (if (and (eq? 0 (##sys#size str)) (not (char=? c #\|))) (##sys#read-error port "empty keyword") (build-keyword str))))))) ((#\+) (##sys#read-char-0 port) (let* ((ln (##sys#port-line port)) (tst (readrec))) (info 'list-info (list 'cond-expand (list tst (readrec)) '(else)) ln))) ((#\!) (##sys#read-char-0 port) (let ((c (##sys#peek-char-0 port))) (cond ((and (char? c) (or (char-whitespace? c) (char=? #\/ c))) (skip-to-eol) (readrec) ) (else (let ([tok (r-token)]) (cond [(string=? "eof" tok) #!eof] [(member tok '("optional" "rest" "key")) (build-symbol (##sys#string-append "#!" tok)) ] [else (let ((a (assq (string->symbol tok) ##sys#read-marks))) (if a ((##sys#slot a 1) port) (##sys#read-error port "invalid `#!' token" tok) ) ) ] ) ) ) ) ) ) (else (##sys#call-with-values (lambda () (##sys#user-read-hook dchar port)) (lambda xs (if (null? xs) (readrec) (car xs)))) ) ) ) )) ) ) ) ((#\() (r-list #\( #\))) ((#\)) (##sys#read-char-0 port) (container c)) ((#\") (##sys#read-char-0 port) (r-string #\")) ((#\.) (r-number #f #f)) ((#\- #\+) (r-number #f #f)) (else (cond [(eof-object? c) c] [(char-numeric? c) (r-number #f #f)] ((memq c reserved-characters) (reserved-character c)) (else (case c ((#\[) (r-list #\[ #\])) ((#\{) (r-list #\{ #\})) ((#\] #\}) (##sys#read-char-0 port) (container c)) (else (r-symbol) ) ) ) ) ) ) ) ) ) (readrec) ) ) ) ) ;;; This is taken from Alex Shinn's UTF8 egg: (define (##sys#char->utf8-string c) (let ([i (char->integer c)]) (cond [(fx<= i #x7F) (string c) ] [(fx<= i #x7FF) (string (integer->char (fxior #b11000000 (fxshr i 6))) (integer->char (fxior #b10000000 (fxand i #b111111)))) ] [(fx<= i #xFFFF) (string (integer->char (fxior #b11100000 (fxshr i 12))) (integer->char (fxior #b10000000 (fxand (fxshr i 6) #b111111))) (integer->char (fxior #b10000000 (fxand i #b111111)))) ] [(fx<= i #x1FFFFF) (string (integer->char (fxior #b11110000 (fxshr i 18))) (integer->char (fxior #b10000000 (fxand (fxshr i 12) #b111111))) (integer->char (fxior #b10000000 (fxand (fxshr i 6) #b111111))) (integer->char (fxior #b10000000 (fxand i #b111111)))) ] [else (error "UTF-8 codepoint out of range:" i) ] ) ) ) (define (##sys#unicode-surrogate? n) (and (fx<= #xD800 n) (fx<= n #xDFFF)) ) ;; returns #f if the inputs are not a valid surrogate pair (hi followed by lo) (define (##sys#surrogates->codepoint hi lo) (and (fx<= #xD800 hi) (fx<= hi #xDBFF) (fx<= #xDC00 lo) (fx<= lo #xDFFF) (fxior (fxshl (fx+ 1 (fxand (fxshr hi 6) #b11111)) 16) (fxior (fxshl (fxand hi #b111111) 10) (fxand lo #b1111111111)))) ) (define (##sys#read-bytevector-literal port) (define (hex c) (let ((c (char-downcase c))) (cond ((and (char>=? c #\a) (char<=? c #\f)) (fx- (char->integer c) 87) ) ; - #\a + 10 ((and (char>=? c #\0) (char<=? c #\9)) (fx- (char->integer c) 48)) (else (##sys#read-error port "invalid hex-code in blob-literal"))))) (let loop ((lst '()) (h #f)) (let ((c (##sys#read-char-0 port))) (cond ((eof-object? c) (##sys#read-error port "unexpected end of blob literal")) ((char=? #\} c) (let ((str (##sys#reverse-list->string (if h (cons (integer->char (fxshr h 4)) lst) lst)))) (##core#inline "C_string_to_bytevector" str) str)) ((char-whitespace? c) (if h (loop (cons (integer->char (fxshr h 4)) lst) #f) (loop lst h))) (h (loop (cons (integer->char (fxior h (hex c))) lst) #f)) (else (loop lst (fxshl (hex c) 4))))))) ;;; Hooks for user-defined read-syntax: ; ; - Redefine this to handle new read-syntaxes. If 'char' doesn't match ; your character then call the previous handler. ; - Don't forget to read 'char', it's only peeked at this point. (define (##sys#user-read-hook char port) (case char ;; I put it here, so the SRFI-4 unit can intercept '#f...' ((#\f #\F) (##sys#read-char-0 port) #f) ((#\t #\T) (##sys#read-char-0 port) #t) (else (##sys#read-error port "invalid sharp-sign read syntax" char) ) ) ) ;;; Table for specially-handled read-syntax: ; ; - entries should be #f or a 256-element vector containing procedures ; - each procedure is called with two arguments, a char (peeked) and a ; port, and should return an expression (define ##sys#read-marks '()) ; TODO move to read-syntax module ;;; Output: (define (##sys#write-char-0 c p) ((##sys#slot (##sys#slot p 2) 2) p c) (##sys#void)) (define (##sys#write-char/port c port) (##sys#check-output-port port #t 'write-char) (##sys#check-char c 'write-char) (##sys#write-char-0 c port) ) (set! scheme#write-char (lambda (c #!optional (port ##sys#standard-output)) (##sys#check-char c 'write-char) (##sys#check-output-port port #t 'write-char) (##sys#write-char-0 c port) )) (set! scheme#newline (lambda (#!optional (port ##sys#standard-output)) (##sys#write-char/port #\newline port) )) (set! scheme#write (lambda (x #!optional (port ##sys#standard-output)) (##sys#check-output-port port #t 'write) (##sys#print x #t port) )) (set! scheme#display (lambda (x #!optional (port ##sys#standard-output)) (##sys#check-output-port port #t 'display) (##sys#print x #f port) )) (define-inline (*print-each lst) (for-each (cut ##sys#print <> #f ##sys#standard-output) lst) ) (set! chicken.base#print (lambda args (##sys#check-output-port ##sys#standard-output #t 'print) (*print-each args) (##sys#write-char-0 #\newline ##sys#standard-output) (void))) (set! chicken.base#print* (lambda args (##sys#check-output-port ##sys#standard-output #t 'print) (*print-each args) (##sys#flush-output ##sys#standard-output) (void))) (define current-print-length (make-parameter 0)) (define ##sys#print-length-limit (make-parameter #f)) (define ##sys#print-exit (make-parameter #f)) (define ##sys#print (let ((case-sensitive case-sensitive) (keyword-style keyword-style)) (lambda (x readable port) (##sys#check-output-port port #t #f) (let ([csp (case-sensitive)] [ksp (keyword-style)] [length-limit (##sys#print-length-limit)] [special-characters '(#\( #\) #\, #\[ #\] #\{ #\} #\' #\" #\; #\ #\` #\| #\\)] ) (define (outstr port str) (if length-limit (let* ((len (##sys#size str)) (cpp0 (current-print-length)) (cpl (fx+ cpp0 len)) ) (if (fx> cpl length-limit) (let ((n (fx- length-limit cpp0))) (when (fx> n 0) (outstr0 port (##sys#substring str 0 n))) (outstr0 port "...") ((##sys#print-exit) (##sys#void))) (outstr0 port str) ) (current-print-length cpl) ) (outstr0 port str) ) ) (define (outstr0 port str) ((##sys#slot (##sys#slot port 2) 3) port str) ) (define (outchr port chr) (when length-limit (let ((cpp0 (current-print-length))) (current-print-length (fx+ cpp0 1)) (when (fx>= cpp0 length-limit) (outstr0 port "...") ((##sys#print-exit) (##sys#void))))) ((##sys#slot (##sys#slot port 2) 2) port chr)) (define (specialchar? chr) (let ([c (char->integer chr)]) (or (fx<= c 32) (memq chr special-characters) ) ) ) (define (outsym port sym) (let ((str (##sys#symbol->string sym))) (if (or (not readable) (sym-is-readable? str)) (outstr port str) (outreadablesym port str)))) (define (outreadablesym port str) (let ((len (##sys#size str))) (outchr port #\|) (let loop ((i 0)) (if (fx>= i len) (outchr port #\|) (let ((c (##core#inline "C_subchar" str i))) (cond ((or (char<? c #\space) (char>? c #\~)) (outstr port "\\x") (let ((n (char->integer c))) (when (fx< n 16) (outchr port #\0)) (outstr port (##sys#number->string n 16)) (loop (fx+ i 1)))) (else (when (or (eq? c #\|) (eq? c #\\)) (outchr port #\\)) (outchr port c) (loop (fx+ i 1)) ) ) ) ) ))) (define (sym-is-readable? str) (let ((len (##sys#size str))) (cond ((eq? len 0) #f) ((eq? len 1) (let ((c (##core#inline "C_subchar" str 0))) (cond ((or (eq? #\# c) (eq? #\. c)) #f) ((specialchar? c) #f) ((char-numeric? c) #f) (else #t)))) (else (let loop ((i (fx- len 1))) (if (eq? i 0) (let ((c (##core#inline "C_subchar" str 0))) (cond ((or (char-numeric? c) (eq? c #\+) (eq? c #\.) (eq? c #\-) ) (not (##sys#string->number str)) ) ((eq? c #\:) #f) ((and (eq? c #\#) ;; Not a qualified symbol? (not (and (fx> len 2) (eq? (##core#inline "C_subchar" str 1) #\#) (not (eq? (##core#inline "C_subchar" str 2) #\#))))) (member str '("#!rest" "#!key" "#!optional"))) ((specialchar? c) #f) (else #t) ) ) (let ((c (##core#inline "C_subchar" str i))) (and (or csp (not (char-upper-case? c))) (not (specialchar? c)) (or (not (eq? c #\:)) (fx< i (fx- len 1))) (loop (fx- i 1)) ) ) ) ) ) ) ) ) (let out ([x x]) (cond ((eq? x '()) (outstr port "()")) ((eq? x #t) (outstr port "#t")) ((eq? x #f) (outstr port "#f")) ((##core#inline "C_eofp" x) (outstr port "#!eof")) ((##core#inline "C_undefinedp" x) (outstr port "#<unspecified>")) ((##core#inline "C_charp" x) (cond [readable (outstr port "#\\") (let ([code (char->integer x)]) (cond [(char-name x) => (lambda (cn) (outstr port (##sys#slot cn 1)) ) ] [(or (fx< code 32) (fx> code 255)) (outchr port #\x) (outstr port (##sys#number->string code 16)) ] [else (outchr port x)] ) ) ] [else (outchr port x)] ) ) ((##core#inline "C_fixnump" x) (outstr port (##sys#number->string x))) ((##core#inline "C_unboundvaluep" x) (outstr port "#<unbound value>")) ((not (##core#inline "C_blockp" x)) (outstr port "#<invalid immediate object>")) ((##core#inline "C_forwardedp" x) (outstr port "#<invalid forwarded object>")) ((##core#inline "C_i_keywordp" x) ;; Force portable #: style for readable output (case (and (not readable) ksp) ((#:prefix) (outchr port #\:) (outsym port x)) ((#:suffix) (outsym port x) (outchr port #\:)) (else (outstr port "#:") (outsym port x)))) ((##core#inline "C_i_symbolp" x) (outsym port x)) ((##sys#number? x) (outstr port (##sys#number->string x))) ((##core#inline "C_anypointerp" x) (outstr port (##sys#pointer->string x))) ((##core#inline "C_stringp" x) (cond (readable (outchr port #\") (do ((i 0 (fx+ i 1)) (c (##core#inline "C_block_size" x) (fx- c 1)) ) ((eq? c 0) (outchr port #\") ) (let ((chr (##core#inline "C_subbyte" x i))) (case chr ((34) (outstr port "\\\"")) ((92) (outstr port "\\\\")) (else (cond ((or (fx< chr 32) (fx= chr 127)) (outchr port #\\) (case chr ((7) (outchr port #\a)) ((8) (outchr port #\b)) ((9) (outchr port #\t)) ((10) (outchr port #\n)) ((11) (outchr port #\v)) ((12) (outchr port #\f)) ((13) (outchr port #\r)) (else (outchr port #\x) (when (fx< chr 16) (outchr port #\0)) (outstr port (##sys#number->string chr 16)) ) ) ) (else (outchr port (##core#inline "C_fix_to_char" chr)) ) ) ) ) ) ) ) (else (outstr port x)) ) ) ((##core#inline "C_pairp" x) (outchr port #\() (out (##sys#slot x 0)) (do ((x (##sys#slot x 1) (##sys#slot x 1))) ((or (not (##core#inline "C_blockp" x)) (not (##core#inline "C_pairp" x))) (if (not (eq? x '())) (begin (outstr port " . ") (out x) ) ) (outchr port #\)) ) (outchr port #\space) (out (##sys#slot x 0)) ) ) ((##core#inline "C_bytevectorp" x) (outstr port "#${") (let ((len (##sys#size x))) (do ((i 0 (fx+ i 1))) ((fx>= i len)) (let ((b (##sys#byte x i))) (when (fx< b 16) (outchr port #\0)) (outstr port (##sys#number->string b 16))))) (outchr port #\}) ) ((##core#inline "C_structurep" x) (##sys#user-print-hook x readable port)) ((##core#inline "C_closurep" x) (outstr port (##sys#procedure->string x))) ((##core#inline "C_locativep" x) (outstr port "#<locative>")) ((##core#inline "C_lambdainfop" x) (outstr port "#<lambda info ") (outstr port (##sys#lambda-info->string x)) (outchr port #\>) ) ((##core#inline "C_portp" x) (case (##sys#slot x 1) ((1) (outstr port "#<input port \"")) ((2) (outstr port "#<output port \"")) (else (outstr port "#<port \""))) (outstr port (##sys#slot x 3)) (outstr port "\">") ) ((##core#inline "C_vectorp" x) (let ((n (##core#inline "C_block_size" x))) (cond ((eq? 0 n) (outstr port "#()") ) (else (outstr port "#(") (out (##sys#slot x 0)) (do ((i 1 (fx+ i 1)) (c (fx- n 1) (fx- c 1)) ) ((eq? c 0) (outchr port #\)) ) (outchr port #\space) (out (##sys#slot x i)) ) ) ) ) ) (else (##sys#error "unprintable non-immediate object encountered"))))) (##sys#void)))) (define ##sys#procedure->string (let ((string-append string-append)) (lambda (x) (let ((info (##sys#lambda-info x))) (if info (string-append "#<procedure " (##sys#lambda-info->string info) ">") "#<procedure>") ) ) ) ) (define ##sys#record-printers '()) (define (##sys#register-record-printer type proc) (let ([a (assq type ##sys#record-printers)]) (if a (##sys#setslot a 1 proc) (set! ##sys#record-printers (cons (cons type proc) ##sys#record-printers)) ) (##core#undefined) ) ) (define (##sys#user-print-hook x readable port) (let* ((type (##sys#slot x 0)) (a (assq type ##sys#record-printers)) ) (cond (a (handle-exceptions ex (begin (##sys#print "#<Error in printer of record type `" #f port) (##sys#print (##sys#symbol->string type) #f port) (if (##sys#structure? ex 'condition) (and-let* ((a (member '(exn . message) (##sys#slot ex 2)))) (##sys#print "': " #f port) (##sys#print (cadr a) #f port) (##sys#write-char-0 #\> port)) (##sys#print "'>" #f port))) ((##sys#slot a 1) x port))) (else (##sys#print "#<" #f port) (##sys#print (##sys#symbol->string type) #f port) (case type ((condition) (##sys#print ": " #f port) (##sys#print (##sys#slot x 1) #f port) ) ((thread) (##sys#print ": " #f port) (##sys#print (##sys#slot x 6) #f port) ) ) (##sys#write-char-0 #\> port) ) ) ) ) (define ##sys#with-print-length-limit (let ([call-with-current-continuation call-with-current-continuation]) (lambda (limit thunk) (call-with-current-continuation (lambda (return) (parameterize ((##sys#print-length-limit limit) (##sys#print-exit return) (current-print-length 0)) (thunk))))))) ;;; String ports: ; ; - Port-slots: ; ; Input: ; ; 10: position ; 11: len ; 12: string ; ; Output: ; ; 10: position ; 11: limit ; 12: output (define ##sys#string-port-class (letrec ([check (lambda (p n) (let* ([position (##sys#slot p 10)] [limit (##sys#slot p 11)] [output (##sys#slot p 12)] [limit2 (fx+ position n)] ) (when (fx>= limit2 limit) (when (fx>= limit2 maximal-string-length) (##sys#error "string buffer full" p) ) (let* ([limit3 (fxmin maximal-string-length (fx+ limit limit))] [buf (##sys#make-string limit3)] ) (##sys#copy-bytes output buf 0 0 position) (##sys#setslot p 12 buf) (##sys#setislot p 11 limit3) (check p n) ) ) ) ) ] ) (vector (lambda (p) ; read-char (let ([position (##sys#slot p 10)] [string (##sys#slot p 12)] [len (##sys#slot p 11)] ) (if (fx>= position len) #!eof (let ((c (##core#inline "C_subchar" string position))) (##sys#setislot p 10 (fx+ position 1)) c) ) ) ) (lambda (p) ; peek-char (let ([position (##sys#slot p 10)] [string (##sys#slot p 12)] [len (##sys#slot p 11)] ) (if (fx>= position len) #!eof (##core#inline "C_subchar" string position) ) ) ) (lambda (p c) ; write-char (check p 1) (let ([position (##sys#slot p 10)] [output (##sys#slot p 12)] ) (##core#inline "C_setsubchar" output position c) (##sys#setislot p 10 (fx+ position 1)) ) ) (lambda (p str) ; write-string (let ([len (##core#inline "C_block_size" str)]) (check p len) (let ([position (##sys#slot p 10)] [output (##sys#slot p 12)] ) (##core#inline "C_substring_copy" str output 0 len position) (##sys#setislot p 10 (fx+ position len)) ) ) ) void ; close (lambda (p) #f) ; flush-output (lambda (p) #t) ; char-ready? (lambda (p n dest start) ; read-string! (let* ((pos (##sys#slot p 10)) (n2 (fx- (##sys#slot p 11) pos) ) ) (when (or (not n) (fx> n n2)) (set! n n2)) (##core#inline "C_substring_copy" (##sys#slot p 12) dest pos (fx+ pos n) start) (##sys#setislot p 10 (fx+ pos n)) n)) (lambda (p limit) ; read-line (let* ((pos (##sys#slot p 10)) (size (##sys#slot p 11)) (buf (##sys#slot p 12)) (end (if limit (fx+ pos limit) size))) (if (fx>= pos size) #!eof (receive (next line full-line?) (##sys#scan-buffer-line buf (if (fx> end size) size end) pos (lambda (pos) (values #f pos #f) ) ) ;; Update row & column position (if full-line? (begin (##sys#setislot p 4 (fx+ (##sys#slot p 4) 1)) (##sys#setislot p 5 0)) (##sys#setislot p 5 (fx+ (##sys#slot p 5) (##sys#size line)))) (##sys#setislot p 10 next) line) ) ) ) (lambda (p) ; read-buffered (let ((pos (##sys#slot p 10)) (string (##sys#slot p 12)) (len (##sys#slot p 11)) ) (if (fx>= pos len) "" (let ((buffered (##sys#substring string pos len))) (##sys#setislot p 10 len) buffered)))) ))) ;; Invokes the eos handler when EOS is reached to get more data. ;; The eos-handler is responsible for stopping, either when EOF is hit or ;; a user-supplied limit is reached (ie, it's indistinguishable from EOF) (define (##sys#scan-buffer-line buf limit start-pos eos-handler) (define (copy&append buf offset pos old-line) (let* ((old-line-len (##sys#size old-line)) (new-line (##sys#make-string (fx+ old-line-len (fx- pos offset))))) (##core#inline "C_substring_copy" old-line new-line 0 old-line-len 0) (##core#inline "C_substring_copy" buf new-line offset pos old-line-len) new-line)) (let loop ((buf buf) (offset start-pos) (pos start-pos) (limit limit) (line "")) (if (fx= pos limit) (let ((line (copy&append buf offset pos line))) (receive (buf offset limit) (eos-handler pos) (if buf (loop buf offset offset limit line) (values offset line #f)))) (let ((c (##core#inline "C_subchar" buf pos))) (cond ((eq? c #\newline) (values (fx+ pos 1) (copy&append buf offset pos line) #t)) ((and (eq? c #\return) ; \r\n -> drop \r from string (fx> limit (fx+ pos 1)) (eq? (##core#inline "C_subchar" buf (fx+ pos 1)) #\newline)) (values (fx+ pos 2) (copy&append buf offset pos line) #t)) ((and (eq? c #\return) ; Edge case (#568): \r{read}[\n|xyz] (fx= limit (fx+ pos 1))) (let ((line (copy&append buf offset pos line))) (receive (buf offset limit) (eos-handler pos) (if buf (if (eq? (##core#inline "C_subchar" buf offset) #\newline) (values (fx+ offset 1) line #t) ;; "Restore" \r we didn't copy, loop w/ new string (loop buf offset offset limit (##sys#string-append line "\r"))) ;; Restore \r here, too (when we reached EOF) (values offset (##sys#string-append line "\r") #t))))) ((eq? c #\return) (values (fx+ pos 1) (copy&append buf offset pos line) #t)) (else (loop buf offset (fx+ pos 1) limit line)) ) ) ) ) ) (set! chicken.base#open-input-string (lambda (string) (##sys#check-string string 'open-input-string) (let ((port (##sys#make-port 1 ##sys#string-port-class "(string)" 'string))) (##sys#setislot port 11 (##core#inline "C_block_size" string)) (##sys#setislot port 10 0) (##sys#setslot port 12 string) port))) (set! chicken.base#open-output-string (lambda () (let ((port (##sys#make-port 2 ##sys#string-port-class "(string)" 'string))) (##sys#setislot port 10 0) (##sys#setislot port 11 output-string-initial-size) (##sys#setslot port 12 (##sys#make-string output-string-initial-size)) port))) (set! chicken.base#get-output-string (lambda (port) (##sys#check-output-port port #f 'get-output-string) (if (not (eq? 'string (##sys#slot port 7))) (##sys#signal-hook #:type-error 'get-output-string "argument is not a string-output-port" port) (##sys#substring (##sys#slot port 12) 0 (##sys#slot port 10))))) (define ##sys#print-to-string (let ([get-output-string get-output-string] [open-output-string open-output-string] ) (lambda (xs) (let ([out (open-output-string)]) (for-each (lambda (x) (##sys#print x #f out)) xs) (get-output-string out) ) ) ) ) (define ##sys#pointer->string (let ((string-append string-append)) (lambda (x) (if (##core#inline "C_taggedpointerp" x) (string-append "#<tagged pointer " (##sys#print-to-string (let ((tag (##sys#slot x 1))) (list (if (pair? tag) (car tag) tag) ) ) ) " " (##sys#number->string (##sys#pointer->address x) 16) ">") (string-append "#<pointer 0x" (##sys#number->string (##sys#pointer->address x) 16) ">") ) ) ) ) ;;; Access backtrace: (define-constant +trace-buffer-entry-slot-count+ 4) (set! chicken.base#get-call-chain (let ((extract (foreign-lambda* nonnull-c-string ((scheme-object x)) "C_return((C_char *)x);"))) (lambda (#!optional (start 0) (thread ##sys#current-thread)) (let* ((tbl (foreign-value "C_trace_buffer_size" int)) ;; 4 slots: "raw" string, cooked1, cooked2, thread (c +trace-buffer-entry-slot-count+) (vec (##sys#make-vector (fx* c tbl) #f)) (r (##core#inline "C_fetch_trace" start vec)) (n (if (fixnum? r) r (fx* c tbl))) (t-id (and thread (##sys#slot thread 14)))) (let loop ((i 0)) (if (fx>= i n) '() (let ((t (##sys#slot vec (fx+ i 3)))) ; thread id (if (or (not t) (not thread) (eq? t-id t)) (cons (vector (extract (##sys#slot vec i)) ; raw (##sys#slot vec (fx+ i 1)) ; cooked1 (##sys#slot vec (fx+ i 2))) ; cooked2 (loop (fx+ i c))) (loop (fx+ i c)))))))))) (define (##sys#really-print-call-chain port chain header) (when (pair? chain) (##sys#print header #f port) (for-each (lambda (info) (let* ((more1 (##sys#slot info 1)) ; cooked1 (expr/form) (more2 (##sys#slot info 2)) ; cooked2 (cntr/frameinfo) (fi (##sys#structure? more2 'frameinfo))) (##sys#print "\n\t" #f port) (##sys#print (##sys#slot info 0) #f port) ; raw (mode) (##sys#print "\t " #f port) (when (and more2 (if fi (##sys#slot more2 1))) (##sys#write-char-0 #\[ port) (##sys#print (if fi (##sys#slot more2 1) ; cntr more2) #f port) (##sys#print "] " #f port)) (when more1 (##sys#with-print-length-limit 100 (lambda () (##sys#print more1 #t port)))))) chain) (##sys#print "\t<--\n" #f port))) (set! chicken.base#print-call-chain (lambda (#!optional (port ##sys#standard-output) (start 0) (thread ##sys#current-thread) (header "\n\tCall history:\n")) (##sys#check-output-port port #t 'print-call-chain) (##sys#check-fixnum start 'print-call-chain) (##sys#check-string header 'print-call-chain) (##sys#really-print-call-chain port (get-call-chain start thread) header))) ;;; Interrupt handling: (define (##sys#user-interrupt-hook) (define (break) (##sys#signal-hook #:user-interrupt #f)) (if (eq? ##sys#current-thread ##sys#primordial-thread) (break) (##sys#setslot ##sys#primordial-thread 1 break) ) ) ;;; Default handlers (define-foreign-variable _ex_software int "EX_SOFTWARE") (define exit-in-progress #f) (define (cleanup-before-exit) (set! exit-in-progress #t) (when (##core#inline "C_i_dump_heap_on_exitp") (##sys#print "\n" #f ##sys#standard-error) (##sys#dump-heap-state)) (when (##core#inline "C_i_profilingp") (##core#inline "C_i_dump_statistical_profile")) (let loop () (let ((tasks chicken.base#cleanup-tasks)) (set! chicken.base#cleanup-tasks '()) (unless (null? tasks) (for-each (lambda (t) (t)) tasks) (loop)))) (when (##sys#debug-mode?) (##sys#print "[debug] forcing finalizers...\n" #f ##sys#standard-error)) (when (chicken.gc#force-finalizers) (##sys#force-finalizers))) (set! chicken.base#exit-handler (make-parameter (lambda (#!optional (code 0)) (##sys#check-fixnum code) (cond (exit-in-progress (##sys#warn "\"exit\" called while processing on-exit tasks")) (else (cleanup-before-exit) (##core#inline "C_exit_runtime" code)))))) (set! chicken.base#implicit-exit-handler (make-parameter (lambda () (cleanup-before-exit)))) (define ##sys#reset-handler ; Exposed by chicken.repl (make-parameter (lambda () ((exit-handler) _ex_software)))) ;;; Condition handling: (module chicken.condition ;; NOTE: We don't emit the import lib. Due to syntax exports, it ;; has to be a hardcoded primitive module. (abort signal current-exception-handler print-error-message with-exception-handler ;; [syntax] condition-case handle-exceptions ;; Condition object manipulation make-property-condition make-composite-condition condition condition? condition->list condition-predicate condition-property-accessor get-condition-property) (import scheme chicken.base chicken.fixnum chicken.foreign) (import chicken.internal.syntax) (define (##sys#signal-hook mode msg . args) (##core#inline "C_dbg_hook" #f) (##core#inline "signal_debug_event" mode msg args) (case mode [(#:user-interrupt) (abort (##sys#make-structure 'condition '(user-interrupt) '() ) ) ] [(#:warning #:notice) (##sys#print (if (eq? mode #:warning) "\nWarning: " "\nNote: ") #f ##sys#standard-error) (##sys#print msg #f ##sys#standard-error) (if (or (null? args) (fx> (length args) 1)) (##sys#write-char-0 #\newline ##sys#standard-error) (##sys#print ": " #f ##sys#standard-error)) (for-each (lambda (x) (##sys#with-print-length-limit 400 (lambda () (##sys#print x #t ##sys#standard-error) (##sys#write-char-0 #\newline ##sys#standard-error)))) args) (##sys#flush-output ##sys#standard-error)] [else (when (and (symbol? msg) (null? args)) (set! msg (symbol->string msg))) (let* ([hasloc (and (or (not msg) (symbol? msg)) (pair? args))] [loc (and hasloc msg)] [msg (if hasloc (##sys#slot args 0) msg)] [args (if hasloc (##sys#slot args 1) args)] ) (abort (##sys#make-structure 'condition (case mode [(#:type-error) '(exn type)] [(#:syntax-error) '(exn syntax)] [(#:bounds-error) '(exn bounds)] [(#:arithmetic-error) '(exn arithmetic)] [(#:file-error) '(exn i/o file)] [(#:runtime-error) '(exn runtime)] [(#:process-error) '(exn process)] [(#:network-error) '(exn i/o net)] [(#:network-timeout-error) '(exn i/o net timeout)] [(#:limit-error) '(exn runtime limit)] [(#:arity-error) '(exn arity)] [(#:access-error) '(exn access)] [(#:domain-error) '(exn domain)] ((#:memory-error) '(exn memory)) [else '(exn)] ) (list '(exn . message) msg '(exn . arguments) args '(exn . call-chain) (get-call-chain) '(exn . location) loc) ) ) ) ] ) ) (define (abort x) (##sys#current-exception-handler x) (abort (##sys#make-structure 'condition '(exn) (list '(exn . message) "exception handler returned" '(exn . arguments) '() '(exn . location) #f) ) ) ) (define (signal x) (##sys#current-exception-handler x) ) (define ##sys#break-on-error (foreign-value "C_enable_repl" bool)) (define ##sys#error-handler (make-parameter (let ([string-append string-append]) (lambda (msg . args) (##sys#error-handler (lambda args (##core#inline "C_halt" "error in error"))) (cond ((not (foreign-value "C_gui_mode" bool)) (##sys#print "\nError" #f ##sys#standard-error) (when msg (##sys#print ": " #f ##sys#standard-error) (##sys#print msg #f ##sys#standard-error)) (##sys#with-print-length-limit 400 (lambda () (cond [(fx= 1 (length args)) (##sys#print ": " #f ##sys#standard-error) (##sys#print (##sys#slot args 0) #t ##sys#standard-error)] [else (##sys#for-each (lambda (x) (##sys#print #\newline #f ##sys#standard-error) (##sys#print x #t ##sys#standard-error)) args)]))) (##sys#print #\newline #f ##sys#standard-error) (print-call-chain ##sys#standard-error) (when (and ##sys#break-on-error (##sys#symbol-has-toplevel-binding? 'chicken.repl#repl)) ;; Hack to avoid hard / cyclic dependency ((##sys#slot 'chicken.repl#repl 0)) (##sys#print #\newline #f ##sys#standard-error) (##core#inline "C_exit_runtime" _ex_software)) (##core#inline "C_halt" #f)) (else (let ((out (open-output-string))) (when msg (##sys#print msg #f out)) (##sys#print #\newline #f out) (##sys#for-each (lambda (x) (##sys#print x #t out) (##sys#print #\newline #f out)) args) (##core#inline "C_halt" (get-output-string out))))))))) (define ##sys#last-exception #f) ; used in csi for ,exn command (define ##sys#current-exception-handler ;; Exception-handler for the primordial thread: (let ((string-append string-append)) (lambda (c) (when (##sys#structure? c 'condition) (set! ##sys#last-exception c) (let ((kinds (##sys#slot c 1))) (cond ((memq 'exn kinds) (let* ((props (##sys#slot c 2)) (msga (member '(exn . message) props)) (argsa (member '(exn . arguments) props)) (loca (member '(exn . location) props)) ) (apply (##sys#error-handler) (if msga (let ((msg (cadr msga)) (loc (and loca (cadr loca))) ) (if (and loc (symbol? loc)) (string-append "(" (##sys#symbol->string loc) ") " (cond ((symbol? msg) (##sys#slot msg 1)) ((string? msg) msg) (else "") ) ) ; Hm... msg) ) "<exn: has no `message' property>") (if argsa (cadr argsa) '() ) ) ;; in case error-handler returns, which shouldn't happen: ((##sys#reset-handler)) ) ) ((eq? 'user-interrupt (##sys#slot kinds 0)) (##sys#print "\n*** user interrupt ***\n" #f ##sys#standard-error) ((##sys#reset-handler)) ) ((eq? 'uncaught-exception (##sys#slot kinds 0)) ((##sys#error-handler) "uncaught exception" (cadr (member '(uncaught-exception . reason) (##sys#slot c 2))) ) ((##sys#reset-handler)) ) ) ) ) (abort (##sys#make-structure 'condition '(uncaught-exception) (list '(uncaught-exception . reason) c)) ) ) ) ) (define (with-exception-handler handler thunk) (let ([oldh ##sys#current-exception-handler]) (##sys#dynamic-wind (lambda () (set! ##sys#current-exception-handler handler)) thunk (lambda () (set! ##sys#current-exception-handler oldh)) ) ) ) ;; TODO: Make this a proper parameter (define (current-exception-handler . args) (if (null? args) ##sys#current-exception-handler (let ((proc (car args))) (##sys#check-closure proc 'current-exception-handler) (let-optionals (cdr args) ((convert? #t) (set? #t)) (when set? (set! ##sys#current-exception-handler proc))) proc))) ;;; Condition object manipulation (define (prop-list->kind-prefixed-prop-list loc kind plist) (let loop ((props plist)) (cond ((null? props) '()) ((or (not (pair? props)) (not (pair? (cdr props)))) (##sys#signal-hook #:type-error loc "argument is not an even property list" plist)) (else (cons (cons kind (car props)) (cons (cadr props) (loop (cddr props)))))))) (define (make-property-condition kind . props) (##sys#make-structure 'condition (list kind) (prop-list->kind-prefixed-prop-list 'make-property-condition kind props))) (define (make-composite-condition c1 . conds) (let ([conds (cons c1 conds)]) (for-each (lambda (c) (##sys#check-structure c 'condition 'make-composite-condition)) conds) (##sys#make-structure 'condition (apply ##sys#append (map (lambda (c) (##sys#slot c 1)) conds)) (apply ##sys#append (map (lambda (c) (##sys#slot c 2)) conds)) ) ) ) (define (condition arg1 . args) (let* ((args (cons arg1 args)) (keys (apply ##sys#append (map (lambda (c) (prop-list->kind-prefixed-prop-list 'condition (car c) (cdr c))) args)))) (##sys#make-structure 'condition (map car args) keys))) (define (condition? x) (##sys#structure? x 'condition)) (define (condition->list x) (unless (condition? x) (##sys#signal-hook #:type-error 'condition->list "argument is not a condition object" x)) (map (lambda (k) (cons k (let loop ((props (##sys#slot x 2))) (cond ((null? props) '()) ((eq? (caar props) k) (cons (cdar props) (cons (cadr props) (loop (cddr props))))) (else (loop (cddr props))))))) (##sys#slot x 1))) (define (condition-predicate kind) (lambda (c) (and (condition? c) (if (memv kind (##sys#slot c 1)) #t #f)) ) ) (define (condition-property-accessor kind prop . err-def) (let ((err? (null? err-def)) (k+p (cons kind prop)) ) (lambda (c) (##sys#check-structure c 'condition) (and (memv kind (##sys#slot c 1)) (let ([a (member k+p (##sys#slot c 2))]) (cond [a (cadr a)] [err? (##sys#signal-hook #:type-error 'condition-property-accessor "condition has no such property" prop) ] [else (car err-def)] ) ) ) ) ) ) (define get-condition-property (lambda (c kind prop . err-def) ((apply condition-property-accessor kind prop err-def) c))) ;;; Convenient error printing: (define print-error-message (let* ((display display) (newline newline) (write write) (string-append string-append) (errmsg (condition-property-accessor 'exn 'message #f)) (errloc (condition-property-accessor 'exn 'location #f)) (errargs (condition-property-accessor 'exn 'arguments #f)) (writeargs (lambda (args port) (##sys#for-each (lambda (x) (##sys#with-print-length-limit 80 (lambda () (write x port))) (newline port) ) args) ) ) ) (lambda (ex . args) (let-optionals args ((port ##sys#standard-output) (header "Error")) (##sys#check-output-port port #t 'print-error-message) (newline port) (display header port) (cond ((and (not (##sys#immediate? ex)) (eq? 'condition (##sys#slot ex 0))) (cond ((errmsg ex) => (lambda (msg) (display ": " port) (let ((loc (errloc ex))) (when (and loc (symbol? loc)) (display (string-append "(" (##sys#symbol->string loc) ") ") port) ) ) (display msg port) ) ) (else (let ((kinds (##sys#slot ex 1))) (if (equal? '(user-interrupt) kinds) (display ": *** user interrupt ***" port) (begin (display ": <condition> " port) (display (##sys#slot ex 1) port) ) ) ) ) ) (let ((args (errargs ex))) (cond ((not args)) ((fx= 1 (length args)) (display ": " port) (writeargs args port)) (else (newline port) (writeargs args port))))) ((string? ex) (display ": " port) (display ex port) (newline port)) (else (display ": uncaught exception: " port) (writeargs (list ex) port) ) ) ) ) ) ) ;;; Show exception message and backtrace as warning ;;; (used for threads and finalizers) (define ##sys#show-exception-warning (let ((print-error-message print-error-message) (display display) (write-char write-char) (print-call-chain print-call-chain) (open-output-string open-output-string) (get-output-string get-output-string) ) (lambda (exn cause #!optional (thread ##sys#current-thread)) (when ##sys#warnings-enabled (let ((o (open-output-string))) (display "Warning" o) (when thread (display " (" o) (display thread o) (write-char #\) o)) (display ": " o) (display cause o) (print-error-message exn ##sys#standard-error (get-output-string o)) (print-call-chain ##sys#standard-error 0 thread) ) )))) ;;; Error hook (called by runtime-system): (define ##sys#error-hook (let ([string-append string-append]) (lambda (code loc . args) (case code ((1) (let ([c (car args)] [n (cadr args)] [fn (caddr args)] ) (apply ##sys#signal-hook #:arity-error loc (string-append "bad argument count - received " (##sys#number->string n) " but expected " (##sys#number->string c) ) (if fn (list fn) '())) ) ) ((2) (let ([c (car args)] [n (cadr args)] [fn (caddr args)] ) (apply ##sys#signal-hook #:arity-error loc (string-append "too few arguments - received " (##sys#number->string n) " but expected " (##sys#number->string c) ) (if fn (list fn) '())))) ((3) (apply ##sys#signal-hook #:type-error loc "bad argument type" args)) ((4) (apply ##sys#signal-hook #:runtime-error loc "unbound variable" args)) ((5) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a keyword" args)) ((6) (apply ##sys#signal-hook #:limit-error loc "out of memory" args)) ((7) (apply ##sys#signal-hook #:arithmetic-error loc "division by zero" args)) ((8) (apply ##sys#signal-hook #:bounds-error loc "out of range" args)) ((9) (apply ##sys#signal-hook #:type-error loc "call of non-procedure" args)) ((10) (apply ##sys#signal-hook #:arity-error loc "continuation cannot receive multiple values" args)) ((11) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a non-cyclic list" args)) ((12) (apply ##sys#signal-hook #:limit-error loc "recursion too deep" args)) ((13) (apply ##sys#signal-hook #:type-error loc "inexact number cannot be represented as an exact number" args)) ((14) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a proper list" args)) ((15) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a fixnum" args)) ((16) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a number" args)) ((17) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a string" args)) ((18) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a pair" args)) ((19) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a list" args)) ((20) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a character" args)) ((21) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a vector" args)) ((22) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a symbol" args)) ((23) (apply ##sys#signal-hook #:limit-error loc "stack overflow" args)) ((24) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a structure of the required type" args)) ((25) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a blob" args)) ((26) (apply ##sys#signal-hook #:type-error loc "locative refers to reclaimed object" args)) ((27) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a non-immediate value" args)) ((28) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a number vector" args)) ((29) (apply ##sys#signal-hook #:type-error loc "bad argument type - not an integer" args)) ((30) (apply ##sys#signal-hook #:type-error loc "bad argument type - not an unsigned integer" args)) ((31) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a pointer" args)) ((32) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a tagged pointer" args)) ((33) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a flonum" args)) ((34) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a procedure" args)) ((35) (apply ##sys#signal-hook #:type-error loc "bad argument type - invalid base" args)) ((36) (apply ##sys#signal-hook #:limit-error loc "recursion too deep or circular data encountered" args)) ((37) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a boolean" args)) ((38) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a locative" args)) ((39) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a port" args)) ((40) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a port of the correct type" args)) ((41) (apply ##sys#signal-hook #:type-error loc "bad argument type - not an input-port" args)) ((42) (apply ##sys#signal-hook #:type-error loc "bad argument type - not an output-port" args)) ((43) (apply ##sys#signal-hook #:file-error loc "port already closed" args)) ((44) (apply ##sys#signal-hook #:type-error loc "cannot represent string with NUL bytes as C string" args)) ((45) (apply ##sys#signal-hook #:memory-error loc "segmentation violation" args)) ((46) (apply ##sys#signal-hook #:arithmetic-error loc "floating-point exception" args)) ((47) (apply ##sys#signal-hook #:runtime-error loc "illegal instruction" args)) ((48) (apply ##sys#signal-hook #:memory-error loc "bus error" args)) ((49) (apply ##sys#signal-hook #:type-error loc "bad argument type - not an exact number" args)) ((50) (apply ##sys#signal-hook #:type-error loc "bad argument type - not an inexact number" args)) ((51) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a real" args)) ((52) (apply ##sys#signal-hook #:type-error loc "bad argument type - complex number has no ordering" args)) ((53) (apply ##sys#signal-hook #:type-error loc "bad argument type - not an exact integer" args)) ((54) (apply ##sys#signal-hook #:type-error loc "number does not fit in foreign type" args)) ((55) (apply ##sys#signal-hook #:type-error loc "cannot compute absolute value of complex number" args)) (else (apply ##sys#signal-hook #:runtime-error loc "unknown internal error" args)) ) ) ) ) ) ; chicken.condition (import chicken.condition) ;;; Miscellaneous low-level routines: (define (##sys#structure? x s) (##core#inline "C_i_structurep" x s)) (define (##sys#generic-structure? x) (##core#inline "C_structurep" x)) (define (##sys#slot x i) (##core#inline "C_slot" x i)) (define (##sys#size x) (##core#inline "C_block_size" x)) (define ##sys#make-pointer (##core#primitive "C_make_pointer")) (define ##sys#make-tagged-pointer (##core#primitive "C_make_tagged_pointer")) (define (##sys#pointer? x) (##core#inline "C_anypointerp" x)) (define (##sys#set-pointer-address! ptr addr) (##core#inline "C_update_pointer" addr ptr)) (define (##sys#bytevector? x) (##core#inline "C_bytevectorp" x)) (define (##sys#string->pbytevector s) (##core#inline "C_string_to_pbytevector" s)) (define (##sys#permanent? x) (##core#inline "C_permanentp" x)) (define (##sys#block-address x) (##core#inline_allocate ("C_block_address" 6) x)) (define (##sys#locative? x) (##core#inline "C_locativep" x)) (define (##sys#srfi-4-vector? x) (##core#inline "C_i_srfi_4_vectorp" x)) (define (##sys#null-pointer) (let ([ptr (##sys#make-pointer)]) (##core#inline "C_update_pointer" 0 ptr) ptr) ) (define (##sys#null-pointer? x) (eq? 0 (##sys#pointer->address x)) ) (define (##sys#address->pointer addr) (let ([ptr (##sys#make-pointer)]) (##core#inline "C_update_pointer" addr ptr) ptr) ) (define (##sys#pointer->address ptr) ;;XXX '6' is platform dependent! (##core#inline_allocate ("C_a_unsigned_int_to_num" 6) (##sys#slot ptr 0)) ) (define (##sys#make-c-string str #!optional (loc '##sys#make-c-string)) (let* ([len (##sys#size str)] [buf (##sys#make-string (fx+ len 1))] ) (##core#inline "C_substring_copy" str buf 0 len 0) (##core#inline "C_setsubchar" buf len #\nul) (if (fx= (##core#inline "C_asciiz_strlen" buf) len) buf (##sys#error-hook (foreign-value "C_ASCIIZ_REPRESENTATION_ERROR" int) loc str))) ) (define ##sys#peek-signed-integer (##core#primitive "C_peek_signed_integer")) (define ##sys#peek-unsigned-integer (##core#primitive "C_peek_unsigned_integer")) (define (##sys#peek-fixnum b i) (##core#inline "C_peek_fixnum" b i)) (define (##sys#peek-byte ptr i) (##core#inline "C_peek_byte" ptr i)) (define (##sys#vector->structure! vec) (##core#inline "C_vector_to_structure" vec)) (define (##sys#peek-double b i) (##core#inline_allocate ("C_a_f64peek" 4) b i)) (define (##sys#peek-c-string b i) (and (not (##sys#null-pointer? b)) (let* ([len (##core#inline "C_fetch_c_strlen" b i)] [str2 (##sys#make-string len)] ) (##core#inline "C_peek_c_string" b i str2 len) str2 ) ) ) (define (##sys#peek-nonnull-c-string b i) (let* ([len (##core#inline "C_fetch_c_strlen" b i)] [str2 (##sys#make-string len)] ) (##core#inline "C_peek_c_string" b i str2 len) str2 ) ) (define (##sys#peek-and-free-c-string b i) (and (not (##sys#null-pointer? b)) (let* ([len (##core#inline "C_fetch_c_strlen" b i)] [str2 (##sys#make-string len)] ) (##core#inline "C_peek_c_string" b i str2 len) (##core#inline "C_free_mptr" b i) str2 ) ) ) (define (##sys#peek-and-free-nonnull-c-string b i) (let* ([len (##core#inline "C_fetch_c_strlen" b i)] [str2 (##sys#make-string len)] ) (##core#inline "C_peek_c_string" b i str2 len) (##core#inline "C_free_mptr" b i) str2 ) ) (define (##sys#poke-c-string b i s) (##core#inline "C_poke_c_string" b i (##sys#make-c-string s) s) ) (define (##sys#poke-integer b i n) (##core#inline "C_poke_integer" b i n)) (define (##sys#poke-double b i n) (##core#inline "C_poke_double" b i n)) (define ##sys#peek-c-string-list (let ((fetch (foreign-lambda c-string "C_peek_c_string_at" c-pointer int))) (lambda (ptr n) (let loop ((i 0)) (if (and n (fx>= i n)) '() (let ((s (fetch ptr i))) (if s (cons s (loop (fx+ i 1))) '() ) ) ) ) ) ) ) (define ##sys#peek-and-free-c-string-list (let ((fetch (foreign-lambda c-string "C_peek_c_string_at" c-pointer int)) (free (foreign-lambda void "C_free" c-pointer))) (lambda (ptr n) (let ((lst (let loop ((i 0)) (if (and n (fx>= i n)) '() (let ((s (fetch ptr i))) (cond (s (##core#inline "C_free_sptr" ptr i) (cons s (loop (fx+ i 1))) ) (else '() ) ) ) ) ) ) ) (free ptr) lst) ) ) ) (define (##sys#vector->closure! vec addr) (##core#inline "C_vector_to_closure" vec) (##core#inline "C_update_pointer" addr vec) ) (define (##sys#symbol-has-toplevel-binding? s) (##core#inline "C_boundp" s)) (define (##sys#copy-bytes from to offset1 offset2 bytes) (##core#inline "C_substring_copy" from to offset1 (fx+ offset1 bytes) offset2) ) (define (##sys#copy-words from to offset1 offset2 words) (##core#inline "C_subvector_copy" from to offset1 (fx+ offset1 words) offset2) ) (define (##sys#compare-bytes from to offset1 offset2 bytes) (##core#inline "C_substring_compare" from to offset1 offset2 bytes) ) (define (##sys#block-pointer x) (let ([ptr (##sys#make-pointer)]) (##core#inline "C_pointer_to_block" ptr x) ptr) ) ;;; Support routines for foreign-function calling: (define (##sys#foreign-char-argument x) (##core#inline "C_i_foreign_char_argumentp" x)) (define (##sys#foreign-fixnum-argument x) (##core#inline "C_i_foreign_fixnum_argumentp" x)) (define (##sys#foreign-flonum-argument x) (##core#inline "C_i_foreign_flonum_argumentp" x)) (define (##sys#foreign-block-argument x) (##core#inline "C_i_foreign_block_argumentp" x)) (define (##sys#foreign-struct-wrapper-argument t x) (##core#inline "C_i_foreign_struct_wrapper_argumentp" t x)) (define (##sys#foreign-string-argument x) (##core#inline "C_i_foreign_string_argumentp" x)) (define (##sys#foreign-symbol-argument x) (##core#inline "C_i_foreign_symbol_argumentp" x)) (define (##sys#foreign-pointer-argument x) (##core#inline "C_i_foreign_pointer_argumentp" x)) (define (##sys#foreign-tagged-pointer-argument x tx) (##core#inline "C_i_foreign_tagged_pointer_argumentp" x tx)) (define (##sys#foreign-ranged-integer-argument obj size) (##core#inline "C_i_foreign_ranged_integer_argumentp" obj size)) (define (##sys#foreign-unsigned-ranged-integer-argument obj size) (##core#inline "C_i_foreign_unsigned_ranged_integer_argumentp" obj size)) ;;; Low-level threading interface: (define ##sys#default-thread-quantum 10000) (define (##sys#default-exception-handler arg) (##core#inline "C_halt" "internal error: default exception handler shouldn't be called!") ) (define (##sys#make-thread thunk state name q) (##sys#make-structure 'thread thunk ; #1 thunk #f ; #2 result list state ; #3 state #f ; #4 block-timeout (vector ; #5 state buffer ##sys#dynamic-winds ##sys#standard-input ##sys#standard-output ##sys#standard-error ##sys#default-exception-handler (##sys#vector-resize ##sys#current-parameter-vector (##sys#size ##sys#current-parameter-vector) #f) ) name ; #6 name (##core#undefined) ; #7 end-exception '() ; #8 owned mutexes q ; #9 quantum (##core#undefined) ; #10 specific #f ; #11 block object (type depends on blocking type) '() ; #12 recipients #f ; #13 unblocked by timeout? (cons #f #f))) ; #14 ID (just needs to be unique) (define ##sys#primordial-thread (##sys#make-thread #f 'running 'primordial ##sys#default-thread-quantum)) (define ##sys#current-thread ##sys#primordial-thread) (define (##sys#make-mutex id owner) (##sys#make-structure 'mutex id ; #1 name owner ; #2 thread or #f '() ; #3 list of waiting threads #f ; #4 abandoned #f ; #5 locked (##core#undefined) ) ) ; #6 specific (define (##sys#schedule) ((##sys#slot ##sys#current-thread 1))) (define (##sys#thread-yield!) (##sys#call-with-current-continuation (lambda (return) (let ((ct ##sys#current-thread)) (##sys#setslot ct 1 (lambda () (return (##core#undefined)))) (##sys#schedule) ) ) ) ) (define (##sys#kill-other-threads thunk) (thunk)) ; does nothing, will be modified by scheduler.scm ;;; Sleeping: (define (chicken.base#sleep-hook n) ; modified by scheduler.scm (##core#inline "C_i_process_sleep" n)) (set! chicken.base#sleep (lambda (n) (##sys#check-fixnum n 'sleep) (chicken.base#sleep-hook n) (##core#undefined))) ;;; Interrupt-handling: (define ##sys#context-switch (##core#primitive "C_context_switch")) (define ##sys#signal-vector (make-vector 256 #f)) (define (##sys#interrupt-hook reason state) (let loop ((reason reason)) (when reason (let ((handler (##sys#slot ##sys#signal-vector reason))) (when handler (handler reason)) (loop (##core#inline "C_i_pending_interrupt" #f))))) (cond ((fx> (##sys#slot ##sys#pending-finalizers 0) 0) (##sys#run-pending-finalizers state) ) ((procedure? state) (state)) (else (##sys#context-switch state) ) ) ) (define (##sys#dispatch-interrupt k) (##sys#interrupt-hook (##core#inline "C_i_pending_interrupt" #f) k)) ;;; Accessing "errno": (define-foreign-variable _errno int "errno") (define ##sys#update-errno) (define ##sys#errno) (let ((n 0)) (set! ##sys#update-errno (lambda () (set! n _errno) n)) (set! ##sys#errno (lambda () n))) ;;; Format error string for unterminated here-docs: (define (##sys#format-here-doc-warning end) (##sys#print-to-string `("unterminated here-doc string literal `" ,end "'"))) ;;; Special string quoting syntax: (set! ##sys#user-read-hook (let ([old ##sys#user-read-hook] [read read] [display display] ) (define (readln port) (let ([ln (open-output-string)]) (do ([c (##sys#read-char-0 port) (##sys#read-char-0 port)]) ((or (eof-object? c) (char=? #\newline c)) (if (eof-object? c) c (get-output-string ln))) (##sys#write-char-0 c ln) ) ) ) (define (read-escaped-sexp port skip-brace?) (when skip-brace? (##sys#read-char-0 port)) (let* ((form (read port))) (when skip-brace? (let loop () ;; Skips all characters until #\} (let ([c (##sys#read-char-0 port)]) (cond [(eof-object? c) (##sys#read-error port "unexpected end of file - unterminated `#{...}' item in `here' string literal") ] [(not (char=? #\} c)) (loop)] ) ) ) ) form)) (lambda (char port) (cond [(not (char=? #\< char)) (old char port)] [else (read-char port) (case (##sys#peek-char-0 port) [(#\<) (##sys#read-char-0 port) (let ([str (open-output-string)] [end (readln port)] [f #f] ) (let ((endlen (if (eof-object? end) 0 (string-length end)))) (cond ((fx= endlen 0) (##sys#read-warning port "Missing tag after #<< here-doc token")) ((or (char=? (string-ref end (fx- endlen 1)) #\space) (char=? (string-ref end (fx- endlen 1)) #\tab)) (##sys#read-warning port "Whitespace after #<< here-doc tag")) )) (do ([ln (readln port) (readln port)]) ((or (eof-object? ln) (string=? end ln)) (when (eof-object? ln) (##sys#read-warning port (##sys#format-here-doc-warning end))) (get-output-string str) ) (if f (##sys#write-char-0 #\newline str) (set! f #t) ) (display ln str) ) ) ] [(#\#) (##sys#read-char-0 port) (let ([end (readln port)] [str (open-output-string)] ) (define (get/clear-str) (let ((s (get-output-string str))) (set! str (open-output-string)) s)) (let ((endlen (if (eof-object? end) 0 (string-length end)))) (cond ((fx= endlen 0) (##sys#read-warning port "Missing tag after #<# here-doc token")) ((or (char=? (string-ref end (fx- endlen 1)) #\space) (char=? (string-ref end (fx- endlen 1)) #\tab)) (##sys#read-warning port "Whitespace after #<# here-doc tag")) )) (let loop [(lst '())] (let ([c (##sys#read-char-0 port)]) (case c [(#\newline #!eof) (let ([s (get/clear-str)]) (cond [(or (eof-object? c) (string=? end s)) (when (eof-object? c) (##sys#read-warning port (##sys#format-here-doc-warning end)) ) `(##sys#print-to-string ;;Can't just use `(list ,@lst) because of 126 argument apply limit ,(let loop2 ((lst (cdr lst)) (next-string '()) (acc ''())) ; drop last newline (cond ((null? lst) `(cons ,(##sys#print-to-string next-string) ,acc)) ((or (string? (car lst)) (char? (car lst))) (loop2 (cdr lst) (cons (car lst) next-string) acc)) (else (loop2 (cdr lst) '() `(cons ,(car lst) (cons ,(##sys#print-to-string next-string) ,acc))))))) ] [else (loop (cons #\newline (cons s lst)))] ) ) ] [(#\#) (let ([c (##sys#peek-char-0 port)]) (case c [(#\#) (##sys#write-char-0 (##sys#read-char-0 port) str) (loop lst) ] [(#\{) (loop (cons (read-escaped-sexp port #t) (cons (get/clear-str) lst) ) ) ] [else (loop (cons (read-escaped-sexp port #f) (cons (get/clear-str) lst) ) ) ] ) ) ] [else (##sys#write-char-0 c str) (loop lst) ] ) ) ) ) ] [else (##sys#read-error port "unreadable object")] ) ] ) ) ) ) ;;; Accessing process information (cwd, environ, etc.) #> #define C_chdir(str) C_fix(chdir(C_c_string(str))) #define C_curdir(buf) (getcwd(C_c_string(buf), 1024) ? C_fix(strlen(C_c_string(buf))) : C_SCHEME_FALSE) #define C_getenventry(i) (environ[ i ]) #ifdef HAVE_CRT_EXTERNS_H # include <crt_externs.h> # define environ (*_NSGetEnviron()) #else extern char **environ; #endif #ifdef HAVE_SETENV # define C_unsetenv(s) (unsetenv((char *)C_data_pointer(s)), C_SCHEME_TRUE) # define C_setenv(x, y) C_fix(setenv((char *)C_data_pointer(x), (char *)C_data_pointer(y), 1)) #else # if defined(_WIN32) && !defined(__CYGWIN__) # define C_unsetenv(s) C_setenv(s, C_SCHEME_FALSE) # else # define C_unsetenv(s) C_fix(putenv((char *)C_data_pointer(s))) # endif static C_word C_fcall C_setenv(C_word x, C_word y) { char *sx = C_c_string(x), *sy = (y == C_SCHEME_FALSE ? "" : C_c_string(y)); int n1 = C_strlen(sx), n2 = C_strlen(sy); int buf_len = n1 + n2 + 2; char *buf = (char *)C_malloc(buf_len); if(buf == NULL) return(C_fix(0)); else { C_strlcpy(buf, sx, buf_len); C_strlcat(buf, "=", buf_len); C_strlcat(buf, sy, buf_len); return(C_fix(putenv(buf))); } } #endif <# (module chicken.process-context (argv argc+argv command-line-arguments program-name executable-pathname change-directory current-directory get-environment-variable get-environment-variables set-environment-variable! unset-environment-variable!) (import scheme) (import chicken.base chicken.fixnum chicken.foreign) (import chicken.internal.syntax) ;;; Current directory access: (define (change-directory name) (##sys#check-string name 'change-directory) (let ((sname (##sys#make-c-string name 'change-directory))) (unless (fx= (##core#inline "C_chdir" sname) 0) (##sys#update-errno) (##sys#signal-hook #:file-error 'change-directory (string-append "cannot change current directory - " strerror) name)) name)) (define (##sys#change-directory-hook dir) ; set! by posix for fd support (change-directory dir)) (define current-directory (getter-with-setter (lambda () (let* ((buffer (make-string 1024)) (len (##core#inline "C_curdir" buffer))) (unless ##sys#windows-platform ; FIXME need `cond-expand' here (##sys#update-errno)) (if len (##sys#substring buffer 0 len) (##sys#signal-hook #:file-error 'current-directory "cannot retrieve current directory")))) (lambda (dir) (##sys#change-directory-hook dir)) "(chicken.process-context#current-directory)")) ;;; Environment access: (define get-environment-variable (foreign-lambda c-string "C_getenv" nonnull-c-string)) (define (set-environment-variable! var val) (##sys#check-string var 'set-environment-variable!) (##sys#check-string val 'set-environment-variable!) (##core#inline "C_setenv" (##sys#make-c-string var 'set-environment-variable!) (##sys#make-c-string val 'set-environment-variable!)) (##core#undefined)) (define (unset-environment-variable! var) (##sys#check-string var 'unset-environment-variable!) (##core#inline "C_unsetenv" (##sys#make-c-string var 'unset-environment-variable!)) (##core#undefined)) (define get-environment-variables (let ((get (foreign-lambda c-string "C_getenventry" int))) (lambda () (let loop ((i 0)) (let ((entry (get i))) (if entry (let scan ((j 0)) (if (char=? #\= (##core#inline "C_subchar" entry j)) (cons (cons (##sys#substring entry 0 j) (##sys#substring entry (fx+ j 1) (##sys#size entry))) (loop (fx+ i 1))) (scan (fx+ j 1)))) '())))))) ;;; Command line handling (define-foreign-variable main_argc int "C_main_argc") (define-foreign-variable main_argv c-pointer "C_main_argv") (define executable-pathname (foreign-lambda c-string* "C_executable_pathname")) (define (argc+argv) (##sys#values main_argc main_argv)) (define argv ; includes program name (let ((cache #f) (fetch-arg (foreign-lambda* c-string ((scheme-object i)) "C_return(C_main_argv[C_unfix(i)]);"))) (lambda () (unless cache (set! cache (do ((i (fx- main_argc 1) (fx- i 1)) (v '() (cons (fetch-arg i) v))) ((fx< i 0) v)))) cache))) (define program-name (make-parameter (if (null? (argv)) "<unknown>" ; may happen if embedded in C application (car (argv))) (lambda (x) (##sys#check-string x 'program-name) x) ) ) (define command-line-arguments (make-parameter (let ([args (argv)]) (if (pair? args) (let loop ([args (##sys#slot args 1)]) (if (null? args) '() (let ([arg (##sys#slot args 0)] [r (##sys#slot args 1)] ) (if (and (fx>= (##sys#size arg) 3) (string=? "-:" (##sys#substring arg 0 2))) (loop r) (cons arg (loop r)) ) ) ) ) args) ) (lambda (x) (##sys#check-list x 'command-line-arguments) x) ) ) ) ; chicken.process-context (module chicken.gc (current-gc-milliseconds gc memory-statistics set-finalizer! set-gc-report! force-finalizers) (import scheme) (import chicken.base chicken.fixnum chicken.foreign) (import chicken.internal.syntax) ;;; GC info: (define (current-gc-milliseconds) (##core#inline "C_i_accumulated_gc_time")) (define (set-gc-report! flag) (##core#inline "C_set_gc_report" flag)) ;;; Memory info: (define (memory-statistics) (let* ((free (##sys#gc #t)) (info (##sys#memory-info)) (hsize (##sys#slot info 0))) (vector hsize (fx- hsize free) (##sys#slot info 1)))) ;;; Finalization: (define-foreign-variable _max_pending_finalizers int "C_max_pending_finalizers") (define ##sys#pending-finalizers (##sys#make-vector (fx+ (fx* 2 _max_pending_finalizers) 1) (##core#undefined)) ) (##sys#setislot ##sys#pending-finalizers 0 0) (define ##sys#set-finalizer! (##core#primitive "C_register_finalizer")) (define set-finalizer! (let ((string-append string-append)) (lambda (x y) (when (fx>= (##core#inline "C_i_live_finalizer_count") _max_pending_finalizers) (cond ((##core#inline "C_resize_pending_finalizers" (fx* 2 _max_pending_finalizers)) (set! ##sys#pending-finalizers (##sys#vector-resize ##sys#pending-finalizers (fx+ (fx* 2 _max_pending_finalizers) 1) (##core#undefined))) (when (##sys#debug-mode?) (##sys#print (string-append "[debug] too many finalizers (" (##sys#number->string (##core#inline "C_i_live_finalizer_count")) "), resized max finalizers to " (##sys#number->string _max_pending_finalizers) "\n") #f ##sys#standard-error))) (else (when (##sys#debug-mode?) (##sys#print (string-append "[debug] too many finalizers (" (##core#inline "C_i_live_finalizer_count") "), forcing ...\n") #f ##sys#standard-error)) (##sys#force-finalizers) ) ) ) (##sys#set-finalizer! x y) ) ) ) (define ##sys#run-pending-finalizers (let ((vector-fill! vector-fill!) (string-append string-append) (working #f) ) (lambda (state) (unless working (set! working #t) (let* ((c (##sys#slot ##sys#pending-finalizers 0)) ) (when (##sys#debug-mode?) (##sys#print (string-append "[debug] running " (##sys#number->string c) " finalizer(s) (" (##sys#number->string (##core#inline "C_i_live_finalizer_count")) " live, " (##sys#number->string (##core#inline "C_i_allocated_finalizer_count")) " allocated) ...\n") #f ##sys#standard-error)) (do ([i 0 (fx+ i 1)]) ((fx>= i c)) (let ([i2 (fx+ 1 (fx* i 2))]) (handle-exceptions ex (##sys#show-exception-warning ex "in finalizer" #f) ((##sys#slot ##sys#pending-finalizers (fx+ i2 1)) (##sys#slot ##sys#pending-finalizers i2)) ) )) (vector-fill! ##sys#pending-finalizers (##core#undefined)) (##sys#setislot ##sys#pending-finalizers 0 0) (set! working #f) ) ) (cond ((not state)) ((procedure? state) (state)) (state (##sys#context-switch state) ) ) ) )) (define force-finalizers (make-parameter #t)) (define (##sys#force-finalizers) (let loop () (let ([n (##sys#gc)]) (cond ((fx> (##sys#slot ##sys#pending-finalizers 0) 0) (##sys#run-pending-finalizers #f) (loop) ) (else n) ) ) )) (define (gc . arg) (let ((a (and (pair? arg) (car arg)))) (if a (##sys#force-finalizers) (##sys#gc a))))) ;;; Auxilliary definitions for safe use in quasiquoted forms and evaluated code: (define ##sys#list->vector list->vector) (define ##sys#list list) (define ##sys#length length) (define ##sys#cons cons) (define ##sys#append append) (define ##sys#vector vector) (define ##sys#apply apply) (define ##sys#values values) (define ##sys#equal? equal?) (define ##sys#car car) (define ##sys#cdr cdr) (define ##sys#pair? pair?) (define ##sys#vector? vector?) (define ##sys#vector->list vector->list) (define ##sys#vector-length vector-length) (define ##sys#vector-ref vector-ref) (define ##sys#>= >=) (define ##sys#= =) (define ##sys#+ +) (define ##sys#eq? eq?) (define ##sys#eqv? eqv?) (define ##sys#list? list?) (define ##sys#null? null?) (define ##sys#map-n map) ;;; We need this here so `location' works: (define (##sys#make-locative obj index weak? loc) (cond [(##sys#immediate? obj) (##sys#signal-hook #:type-error loc "locative cannot refer to immediate object" obj) ] [(or (vector? obj) (pair? obj)) (##sys#check-range index 0 (##sys#size obj) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 0 obj index weak?) ] #;[(symbol? obj) (##sys#check-range index 0 1 loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 0 obj index weak?) ] [(and (##core#inline "C_blockp" obj) (##core#inline "C_bytevectorp" obj) ) (##sys#check-range index 0 (##sys#size obj) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 2 obj index weak?) ] [(##sys#generic-structure? obj) (case (##sys#slot obj 0) ((u8vector) (let ([v (##sys#slot obj 1)]) (##sys#check-range index 0 (##sys#size v) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 2 v index weak?)) ) ((s8vector) (let ([v (##sys#slot obj 1)]) (##sys#check-range index 0 (##sys#size v) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 3 v index weak?) ) ) ((u16vector) (let ([v (##sys#slot obj 1)]) (##sys#check-range index 0 (##sys#size v) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 4 v index weak?) ) ) ((s16vector) (let ([v (##sys#slot obj 1)]) (##sys#check-range index 0 (##sys#size v) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 5 v index weak?) ) ) ((u32vector) (let ([v (##sys#slot obj 1)]) (##sys#check-range index 0 (##sys#size v) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 6 v index weak?) ) ) ((s32vector) (let ([v (##sys#slot obj 1)]) (##sys#check-range index 0 (##sys#size v) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 7 v index weak?) ) ) ((u64vector) (let ([v (##sys#slot obj 1)]) (##sys#check-range index 0 (##sys#size v) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 8 v index weak?) ) ) ((s64vector) (let ([v (##sys#slot obj 1)]) (##sys#check-range index 0 (##sys#size v) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 9 v index weak?) ) ) ((f32vector) (let ([v (##sys#slot obj 1)]) (##sys#check-range index 0 (##sys#size v) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 10 v index weak?) ) ) ((f64vector) (let ([v (##sys#slot obj 1)]) (##sys#check-range index 0 (##sys#size v) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 11 v index weak?) ) ) ;;XXX pointer-vector currently not supported (else (##sys#check-range index 0 (fx- (##sys#size obj) 1) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 0 obj (fx+ index 1) weak?) ) ) ] [(string? obj) (##sys#check-range index 0 (##sys#size obj) loc) (##core#inline_allocate ("C_a_i_make_locative" 5) 1 obj index weak?) ] [else (##sys#signal-hook #:type-error loc "bad argument type - locative cannot refer to objects of this type" obj) ] ) ) ;;; Property lists (module chicken.plist (get get-properties put! remprop! symbol-plist) (import scheme) (import (only chicken.base getter-with-setter)) (import chicken.internal.syntax) (define (put! sym prop val) (##sys#check-symbol sym 'put!) (##core#inline_allocate ("C_a_i_putprop" 8) sym prop val) ) (define (get sym prop #!optional default) (##sys#check-symbol sym 'get) (##core#inline "C_i_getprop" sym prop default)) (define ##sys#put! put!) (define ##sys#get get) (set! get (getter-with-setter get put!)) (define (remprop! sym prop) (##sys#check-symbol sym 'remprop!) (let loop ((plist (##sys#slot sym 2)) (ptl #f)) (and (not (null? plist)) (let* ((tl (##sys#slot plist 1)) (nxt (##sys#slot tl 1))) (or (and (eq? (##sys#slot plist 0) prop) (begin (if ptl (##sys#setslot ptl 1 nxt) (##sys#setslot sym 2 nxt) ) #t ) ) (loop nxt tl) ) ) ) ) (when (null? (##sys#slot sym 2)) ;; This will only unpersist if symbol is also unbound (##core#inline "C_i_unpersist_symbol" sym) ) ) (define symbol-plist (getter-with-setter (lambda (sym) (##sys#check-symbol sym 'symbol-plist) (##sys#slot sym 2) ) (lambda (sym lst) (##sys#check-symbol sym 'symbol-plist) (##sys#check-list lst 'symbol-plist/setter) (if (##core#inline "C_i_fixnumevenp" (##core#inline "C_i_length" lst)) (##sys#setslot sym 2 lst) (##sys#signal-hook #:type-error "property-list must be of even length" lst sym)) (if (null? lst) (##core#inline "C_i_unpersist_symbol" sym) (##core#inline "C_i_persist_symbol" sym))) "(chicken.plist#symbol-plist sym)")) (define (get-properties sym props) (##sys#check-symbol sym 'get-properties) (when (symbol? props) (set! props (list props)) ) (##sys#check-list props 'get-properties) (let loop ((plist (##sys#slot sym 2))) (if (null? plist) (values #f #f #f) (let* ((prop (##sys#slot plist 0)) (tl (##sys#slot plist 1)) (nxt (##sys#slot tl 1))) (if (memq prop props) (values prop (##sys#slot tl 0) nxt) (loop nxt) ) ) ) ) ) ) ; chicken.plist ;;; Print timing information (support for "time" macro): (define (##sys#display-times info) (define (pstr str) (##sys#print str #f ##sys#standard-error)) (define (pchr chr) (##sys#write-char-0 chr ##sys#standard-error)) (define (pnum num) (##sys#print (if (zero? num) "0" (##sys#number->string num)) #f ##sys#standard-error)) (define (round-to x y) ; Convert to fp with y digits after the point (/ (round (* x (expt 10 y))) (expt 10.0 y))) (define (pmem bytes) (cond ((> bytes (expt 1024 3)) (pnum (round-to (/ bytes (expt 1024 3)) 2)) (pstr " GiB")) ((> bytes (expt 1024 2)) (pnum (round-to (/ bytes (expt 1024 2)) 2)) (pstr " MiB")) ((> bytes 1024) (pnum (round-to (/ bytes 1024) 2)) (pstr " KiB")) (else (pnum bytes) (pstr " bytes")))) (##sys#flush-output ##sys#standard-output) (pnum (##sys#slot info 0)) (pstr "s CPU time") (let ((gctime (##sys#slot info 1))) (when (> gctime 0) (pstr ", ") (pnum gctime) (pstr "s GC time (major)"))) (let ((mut (##sys#slot info 2)) (umut (##sys#slot info 3))) (when (fx> mut 0) (pstr ", ") (pnum mut) (pchr #\/) (pnum umut) (pstr " mutations (total/tracked)"))) (let ((minor (##sys#slot info 4)) (major (##sys#slot info 5))) (when (or (fx> minor 0) (fx> major 0)) (pstr ", ") (pnum major) (pchr #\/) (pnum minor) (pstr " GCs (major/minor)"))) (let ((maximum-heap-usage (##sys#slot info 6))) (pstr ", maximum live heap: ") (pmem maximum-heap-usage)) (##sys#write-char-0 #\newline ##sys#standard-error) (##sys#flush-output ##sys#standard-error)) ;;; Dump heap state to stderr: (define ##sys#dump-heap-state (##core#primitive "C_dump_heap_state")) (define ##sys#filter-heap-objects (##core#primitive "C_filter_heap_objects")) ;;; Platform configuration inquiry: (module chicken.platform (build-platform chicken-version chicken-home feature? features machine-byte-order machine-type repository-path installation-repository register-feature! unregister-feature! software-type software-version return-to-host system-config-directory system-cache-directory ) (import scheme) (import chicken.fixnum chicken.foreign chicken.keyword chicken.process-context) (import chicken.internal.syntax) (import (only chicken.base make-parameter)) (define software-type (let ((sym (string->symbol ((##core#primitive "C_software_type"))))) (lambda () sym))) (define machine-type (let ((sym (string->symbol ((##core#primitive "C_machine_type"))))) (lambda () sym))) (define machine-byte-order (let ((sym (string->symbol ((##core#primitive "C_machine_byte_order"))))) (lambda () sym))) (define software-version (let ((sym (string->symbol ((##core#primitive "C_software_version"))))) (lambda () sym))) (define build-platform (let ((sym (string->symbol ((##core#primitive "C_build_platform"))))) (lambda () sym))) (define ##sys#windows-platform (and (eq? 'windows (software-type)) ;; Still windows even if 'Linux-like' (not (eq? 'cygwin (software-version))))) (define (chicken-version #!optional full) (define (get-config) (let ((bp (build-platform)) (st (software-type)) (sv (software-version)) (mt (machine-type))) (define (str x) (if (eq? 'unknown x) "" (string-append (symbol->string x) "-"))) (string-append (str sv) (str st) (str bp) (##sys#symbol->string mt)))) (if full (let ((spec (string-append (if (feature? #:64bit) " 64bit" "") (if (feature? #:dload) " dload" "") (if (feature? #:ptables) " ptables" "") (if (feature? #:gchooks) " gchooks" "") (if (feature? #:cross-chicken) " cross" "")))) (string-append "Version " ##sys#build-version (if ##sys#build-branch (string-append " (" ##sys#build-branch ")") "") (if ##sys#build-id (string-append " (rev " ##sys#build-id ")") "") "\n" (get-config) (if (zero? (##sys#size spec)) "" (string-append " [" spec " ]")))) ##sys#build-version)) ;;; Installation locations (define-foreign-variable binary-version int "C_BINARY_VERSION") (define-foreign-variable installation-home c-string "C_INSTALL_SHARE_HOME") (define-foreign-variable install-egg-home c-string "C_INSTALL_EGG_HOME") (define (chicken-home) installation-home) (define path-list-separator (if ##sys#windows-platform #\; #\:)) (define ##sys#split-path (let ((cache '(#f))) (lambda (path) (cond ((not path) '()) ((equal? path (car cache)) (cdr cache)) (else (let* ((len (string-length path)) (lst (let loop ((start 0) (pos 0)) (cond ((fx>= pos len) (if (fx= pos start) '() (list (substring path start pos)))) ((char=? (string-ref path pos) path-list-separator) (cons (substring path start pos) (loop (fx+ pos 1) (fx+ pos 1)))) (else (loop start (fx+ pos 1))))))) (set! cache (cons path lst)) lst)))))) (define repository-path (make-parameter (cond ((foreign-value "C_private_repository_path()" c-string) => list) ((get-environment-variable "CHICKEN_REPOSITORY_PATH") => ##sys#split-path) (install-egg-home => list) (else #f)) (lambda (new) (and new (begin (##sys#check-list new 'repository-path) (for-each (lambda (p) (##sys#check-string p 'repository-path)) new) new))))) (define installation-repository (make-parameter (or (foreign-value "C_private_repository_path()" c-string) (get-environment-variable "CHICKEN_INSTALL_REPOSITORY") install-egg-home))) ;;; Feature identifiers: (define ->feature-id ; TODO: export this? It might be useful.. (let () (define (err . args) (apply ##sys#signal-hook #:type-error "bad argument type - not a valid feature identifer" args)) (define (prefix s) (if s (##sys#string-append s "-") "")) (lambda (x) (cond ((keyword? x) x) ((string? x) (string->keyword x)) ((symbol? x) (string->keyword (##sys#symbol->string x))) (else (err x)))))) (define ##sys#features '(#:chicken #:srfi-6 #:srfi-12 #:srfi-17 #:srfi-23 #:srfi-30 #:srfi-39 #:srfi-62 #:full-numeric-tower)) ;; Add system features: (let ((check (lambda (f) (unless (eq? 'unknown f) (set! ##sys#features (cons (->feature-id f) ##sys#features)))))) (check (software-type)) (check (software-version)) (check (build-platform)) (check (machine-type)) (check (machine-byte-order))) (when (foreign-value "HAVE_DLOAD" bool) (set! ##sys#features (cons #:dload ##sys#features))) (when (foreign-value "HAVE_PTABLES" bool) (set! ##sys#features (cons #:ptables ##sys#features))) (when (foreign-value "HAVE_GCHOOKS" bool) (set! ##sys#features (cons #:gchooks ##sys#features))) (when (foreign-value "IS_CROSS_CHICKEN" bool) (set! ##sys#features (cons #:cross-chicken ##sys#features))) (when (fx= (foreign-value "C_WORD_SIZE" int) 64) (set! ##sys#features (cons #:64bit ##sys#features))) (set! ##sys#features (let ((major (##sys#number->string (foreign-value "C_MAJOR_VERSION" int))) (minor (##sys#number->string (foreign-value "C_MINOR_VERSION" int)))) (cons (->feature-id (string-append "chicken-" major)) (cons (->feature-id (string-append "chicken-" major "." minor)) ##sys#features)))) (define (register-feature! . fs) (for-each (lambda (f) (let ((id (->feature-id f))) (unless (memq id ##sys#features) (set! ##sys#features (cons id ##sys#features))))) fs) (##core#undefined)) (define (unregister-feature! . fs) (let ((fs (map ->feature-id fs))) (set! ##sys#features (let loop ((ffs ##sys#features)) (if (null? ffs) '() (let ((f (##sys#slot ffs 0)) (r (##sys#slot ffs 1))) (if (memq f fs) (loop r) (cons f (loop r))))))) (##core#undefined))) (define (features) ##sys#features) (define (feature? . ids) (let loop ((ids ids)) (or (null? ids) (and (memq (->feature-id (##sys#slot ids 0)) ##sys#features) (loop (##sys#slot ids 1)))))) (define return-to-host (##core#primitive "C_return_to_host")) (define (system-config-directory) (or (get-environment-variable "XDG_CONFIG_HOME") (if ##sys#windows-platform (get-environment-variable "APPDATA") (let ((home (get-environment-variable "HOME"))) (and home (string-append home "/.config")))))) (define (system-cache-directory) (or (get-environment-variable "XDG_CACHE_HOME") (if ##sys#windows-platform (or (get-environment-variable "LOCALAPPDATA") (get-environment-variable "APPDATA")) (let ((home (get-environment-variable "HOME"))) (and home (string-append home "/.cache")))))) ) ; chicken.platform �����������������������chicken-5.1.0/chicken.fixnum.import.scm�������������������������������������������������������������0000644�0001750�0001750�00000002552�13502227727�017670� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.fixnum.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.fixnum 'library (scheme#list) '((fx/? . chicken.fixnum#fx/?) (fx*? . chicken.fixnum#fx*?) (fx-? . chicken.fixnum#fx-?) (fx+? . chicken.fixnum#fx+?) (fxrem . chicken.fixnum#fxrem) (fxmod . chicken.fixnum#fxmod) (fxgcd . chicken.fixnum#fxgcd) (fx/ . chicken.fixnum#fx/) (fxlen . chicken.fixnum#fxlen) (fxeven? . chicken.fixnum#fxeven?) (fxodd? . chicken.fixnum#fxodd?) (fxshr . chicken.fixnum#fxshr) (fxshl . chicken.fixnum#fxshl) (fxnot . chicken.fixnum#fxnot) (fxxor . chicken.fixnum#fxxor) (fxior . chicken.fixnum#fxior) (fxand . chicken.fixnum#fxand) (fxneg . chicken.fixnum#fxneg) (fxmax . chicken.fixnum#fxmax) (fxmin . chicken.fixnum#fxmin) (fx<= . chicken.fixnum#fx<=) (fx>= . chicken.fixnum#fx>=) (fx< . chicken.fixnum#fx<) (fx> . chicken.fixnum#fx>) (fx= . chicken.fixnum#fx=) (fx* . chicken.fixnum#fx*) (fx- . chicken.fixnum#fx-) (fx+ . chicken.fixnum#fx+) (fixnum-precision . chicken.fixnum#fixnum-precision) (fixnum-bits . chicken.fixnum#fixnum-bits) (most-negative-fixnum . chicken.fixnum#most-negative-fixnum) (most-positive-fixnum . chicken.fixnum#most-positive-fixnum)) (scheme#list) (scheme#list)) ;; END OF FILE ������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/Makefile.bsd��������������������������������������������������������������������������0000644�0001750�0001750�00000010131�13502227553�015136� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.bsd - configuration for BSD UNIX -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration ARCH ?= $(shell sh $(SRCDIR)/config-arch.sh) # options C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 -fomit-frame-pointer else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer endif endif LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared LINKER_LINK_SHARED_DLOADABLE_OPTIONS = -shared -Wl,-R"$(RUNTIME_LINKER_PATH)" -Wl,-L. LINKER_LINK_SHARED_PROGRAM_OPTIONS = -Wl,-R"$(RUNTIME_LINKER_PATH)" LIBCHICKEN_SO_LINKER_OPTIONS = -Wl,-soname,lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).so.$(BINARYVERSION) LIBRARIES = -lm -lpthread NEEDS_RELINKING = yes USES_SONAME = yes # special files CHICKEN_CONFIG_H = chicken-config.h # select default and internal settings include $(SRCDIR)/defaults.make # These may be useful for NetBSD: # #C_COMPILER_OPTIONS += -I/usr/pkg/lib #LINKER_OPTIONS += -L/usr/pkg/lib -Wl,-R/usr/pkg/lib chicken-config.h: chicken-defaults.h echo "/* GENERATED */" >$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_DLFCN_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define HAVE_SIGACTION 1" >>$@ echo "#define HAVE_SIGSETJMP 1" >>$@ echo "#define HAVE_SIGPROCMASK 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRLCAT 1" >>$@ echo "#define HAVE_STRLCPY 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_STRTOQ 1" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_SETENV 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_ALLOCA 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_SYSEXITS_H 1" >>$@ echo "#define SEARCH_EXE_PATH 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif # Feature macros are unsupported on FreeBSD and DragonFly echo "#if !defined(__FreeBSD__) && !defined(__DragonFly__)" >> $@ echo "# define C_USE_STD_FEATURE_MACROS" >> $@ echo "#endif" >> $@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/Makefile.ios��������������������������������������������������������������������������0000644�0001750�0001750�00000010266�13467772133�015202� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.ios - configuration for Apple iOS -*- Makefile -*- # # Copyright (c) 2013, The CHICKEN Team # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration # for simulator: ARCH ?= i386 ARCH ?= armv7 XCODE_PATH ?= /Applications/Xcode.app XCODE_DEVELOPER ?= $(XCODE_PATH)/Contents/Developer # for Xcode 4: XCODE_TOOLPATH ?= $(XCODE_DEVELOPER)/Toolchains/XCodeDefault.xctoolchain/usr/bin XCODE_TOOLPATH ?= $(XCODE_DEVELOPER)/usr/bin # for simulator: XCODE_SDK ?= $(XCODE_DEVELOPER)/Platforms/iPhoneSimulator.platform/Developer/SDKs/ipHoneSimulator7.0.sdk XCODE_SDK ?= $(XCODE_DEVELOPER)/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS7.0.sdk STATICBUILD = 1 # options # for Xcode 4: C_COMPILER ?= $(XCODE_DEVELOPER)/Platforms/iPhoneOS.platform/iPhoneOS.platform/Developer/usr/bin C_COMPILER ?= $(XCODE_TOOLPATH)/gcc LIBRARIAN ?= $(XCODE_DEVELOPER)/Platforms/iPhoneOS.platform/Developer/usr/bin/ar C_COMPILER_OPTIONS ?= -no-cpp-precomp -fno-strict-aliasing -fwrapv -fno-common -DHAVE_CHICKEN_CONFIG_H -mno-thumb -isysroot $(XCODE_SDK) -arch $(ARCH) ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 -fomit-frame-pointer else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer endif endif LIBRARIAN_OPTIONS = scru ASSEMBLER_OPTIONS = LINKER_OPTIONS = -isysroot $(XCODE_SDK) -arch $(ARCH) # special files CHICKEN_CONFIG_H = chicken-config.h # select default and internal settings include $(SRCDIR)/defaults.make chicken-config.h: chicken-defaults.h echo "/* GENERATED */" >$@ echo "#define STATICBUILD 1" >>$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define HAVE_SIGACTION 1" >>$@ echo "#define HAVE_SIGSETJMP 1" >>$@ echo "#define HAVE_SIGPROCMASK 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_STRTOQ 1" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_ALLOCA 1" >>$@ echo "#define HAVE_ALLOCA_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_SYSEXITS_H 1" >>$@ # TODO: Use MacOS exe path mechanism? echo "#define SEARCH_EXE_PATH 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/buildversion��������������������������������������������������������������������������0000644�0001750�0001750�00000000006�13502227636�015361� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������5.1.0 ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.continuation.import.scm�������������������������������������������������������0000644�0001750�0001750�00000000747�13502227772�021100� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.continuation.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.continuation 'continuation (scheme#list) '((continuation? . chicken.continuation#continuation?) (continuation-capture . chicken.continuation#continuation-capture) (continuation-graft . chicken.continuation#continuation-graft) (continuation-return . chicken.continuation#continuation-return)) (scheme#list) (scheme#list)) ;; END OF FILE �������������������������chicken-5.1.0/Makefile.android����������������������������������������������������������������������0000644�0001750�0001750�00000007445�13502227553�016024� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.android - configuration for Android -*- Makefile -*- # # Copyright (c) 2013-2019, The CHICKEN Team # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration ARCH ?= $(shell sh $(SRCDIR)/config-arch.sh) # options C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 -fomit-frame-pointer else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer endif endif LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared LINKER_LINK_SHARED_DLOADABLE_OPTIONS = -L. -shared -Wl,-R"$(RUNTIME_LINKER_PATH)" LINKER_LINK_SHARED_PROGRAM_OPTIONS = -Wl,-R"$(RUNTIME_LINKER_PATH)" # Android NDK build system currently does not understand # versioned sonames, so don't try to embed a soname. #LIBCHICKEN_SO_LINKER_OPTIONS = -Wl,-soname,lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).so.$(BINARYVERSION) LIBRARIES = -lm -ldl -llog NEEDS_RELINKING = yes # See above #USES_SONAME = yes # special files CHICKEN_CONFIG_H = chicken-config.h # select default and internal settings include $(SRCDIR)/defaults.make chicken-config.h: chicken-defaults.h echo "/* GENERATED */" >$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_DLFCN_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define HAVE_SIGACTION 1" >>$@ echo "#define HAVE_SIGSETJMP 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_STRTOQ 1" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_SETENV 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_ALLOCA 1" >>$@ echo "#define HAVE_ALLOCA_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define SEARCH_EXE_PATH 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/repl.scm������������������������������������������������������������������������������0000644�0001750�0001750�00000015334�13502227553�014407� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; repl.scm - CHICKEN's read/eval/print loop ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit repl) (uses eval) (not inline ##sys#repl-read-hook ##sys#repl-print-hook ##sys#read-prompt-hook)) (module chicken.repl (quit repl repl-prompt reset reset-handler) (import scheme chicken.base chicken.eval chicken.foreign chicken.load) (include "common-declarations.scm") (define ##sys#repl-print-length-limit #f) (define ##sys#repl-read-hook #f) (define ##sys#repl-recent-call-chain #f) ; used in csi for ,c command (define (##sys#repl-print-hook x port) (##sys#with-print-length-limit ##sys#repl-print-length-limit (cut ##sys#print x #t port)) (##sys#write-char-0 #\newline port)) (define (quit-hook result) (exit)) (define (quit #!optional result) (quit-hook result)) (define reset-handler ##sys#reset-handler) (define (reset) ((reset-handler))) (define repl-prompt (make-parameter (lambda () "#;> "))) (define ##sys#read-prompt-hook (let ((repl-prompt repl-prompt)) (lambda () (##sys#print ((repl-prompt)) #f ##sys#standard-output) (##sys#flush-output ##sys#standard-output)))) (define (##sys#resize-trace-buffer i) (##sys#check-fixnum i) (##core#inline "C_resize_trace_buffer" i)) (define repl (let ((eval eval) (read read) (call-with-current-continuation call-with-current-continuation) (string-append string-append)) (lambda (#!optional (evaluator eval)) (define (write-err xs) (for-each (cut ##sys#repl-print-hook <> ##sys#standard-error) xs)) (define (write-results xs) (cond ((null? xs) (##sys#print "; no values\n" #f ##sys#standard-output)) ((not (eq? (##core#undefined) (car xs))) (for-each (cut ##sys#repl-print-hook <> ##sys#standard-output) xs) (when (pair? (cdr xs)) (##sys#print (string-append "; " (##sys#number->string (length xs)) " values\n") #f ##sys#standard-output))))) (let ((stdin ##sys#standard-input) (stdout ##sys#standard-output) (stderr ##sys#standard-error) (ehandler (##sys#error-handler)) (rhandler (##sys#reset-handler)) (lv #f) (qh quit-hook) (uie ##sys#unbound-in-eval)) (define (saveports) (set! stdin ##sys#standard-input) (set! stdout ##sys#standard-output) (set! stderr ##sys#standard-error)) (define (resetports) (set! ##sys#standard-input stdin) (set! ##sys#standard-output stdout) (set! ##sys#standard-error stderr)) (call-with-current-continuation (lambda (k) (##sys#dynamic-wind (lambda () (set! lv (load-verbose)) (set! quit-hook (lambda (result) (k result))) (load-verbose #t) (##sys#error-handler (lambda (msg . args) (resetports) (##sys#print "\nError" #f ##sys#standard-error) (when msg (##sys#print ": " #f ##sys#standard-error) (##sys#print msg #f ##sys#standard-error)) (if (and (pair? args) (null? (cdr args))) (begin (##sys#print ": " #f ##sys#standard-error) (write-err args)) (begin (##sys#write-char-0 #\newline ##sys#standard-error) (write-err args))) (set! ##sys#repl-recent-call-chain (or (and-let* ((lexn ##sys#last-exception) ;XXX not really right ((##sys#structure? lexn 'condition)) (a (member '(exn . call-chain) (##sys#slot lexn 2)))) (let ((ct (cadr a))) (##sys#really-print-call-chain ##sys#standard-error ct "\n\tCall history:\n") ct)) (print-call-chain ##sys#standard-error))) (flush-output ##sys#standard-error)))) (lambda () (let loop () (saveports) (call-with-current-continuation (lambda (c) (##sys#reset-handler (lambda () (set! ##sys#read-error-with-line-number #f) (resetports) (c #f))))) (##sys#read-prompt-hook) (let ((exp ((or ##sys#repl-read-hook read)))) (unless (eof-object? exp) (when (eq? #\newline (##sys#peek-char-0 ##sys#standard-input)) (##sys#read-char-0 ##sys#standard-input)) (foreign-code "C_clear_trace_buffer();") (set! ##sys#unbound-in-eval '()) (receive result (evaluator exp) (when (and ##sys#warnings-enabled (pair? ##sys#unbound-in-eval)) (let loop ((vars ##sys#unbound-in-eval) (u '())) (cond ((null? vars) (when (pair? u) (##sys#notice "the following toplevel variables are referenced but unbound:\n") (for-each (lambda (v) (##sys#print " " #f ##sys#standard-error) (##sys#print (car v) #t ##sys#standard-error) (when (cdr v) (##sys#print " (in " #f ##sys#standard-error) (##sys#print (cdr v) #t ##sys#standard-error) (##sys#write-char-0 #\) ##sys#standard-error)) (##sys#write-char-0 #\newline ##sys#standard-error)) u) (##sys#flush-output ##sys#standard-error))) ((or (memq (caar vars) u) (##core#inline "C_u_i_namespaced_symbolp" (caar vars)) (##sys#symbol-has-toplevel-binding? (caar vars))) (loop (cdr vars) u)) (else (loop (cdr vars) (cons (car vars) u)))) 9)) (write-results result) (loop)))))) (lambda () (load-verbose lv) (set! quit-hook qh) (set! ##sys#unbound-in-eval uie) (##sys#error-handler ehandler) (##sys#reset-handler rhandler)))))))))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/Makefile.haiku������������������������������������������������������������������������0000644�0001750�0001750�00000007276�13502227553�015507� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.haiku - configuration for Haiku -*- Makefile -*- # # Copyright (c) 2011-2019, The CHICKEN Team # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration ARCH ?= $(shell sh $(SRCDIR)/config-arch.sh) # options C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 -fomit-frame-pointer else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer endif endif LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared LINKER_LINK_SHARED_DLOADABLE_OPTIONS = -L. -shared -Wl,-R"$(RUNTIME_LINKER_PATH)" LINKER_LINK_SHARED_PROGRAM_OPTIONS = -Wl,-R"$(RUNTIME_LINKER_PATH)" LIBCHICKEN_SO_LINKER_OPTIONS = -Wl,-soname,lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).so.$(BINARYVERSION) LIBRARIES = -lnetwork NEEDS_RELINKING = yes USES_SONAME = yes # special files CHICKEN_CONFIG_H = chicken-config.h # select default and internal settings include $(SRCDIR)/defaults.make chicken-config.h: chicken-defaults.h echo "/* GENERATED */" >$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_DLFCN_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define HAVE_SIGACTION 1" >>$@ echo "#define HAVE_SIGSETJMP 1" >>$@ echo "#define HAVE_SIGPROCMASK 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_STRTOQ 1" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_SETENV 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_ALLOCA 1" >>$@ echo "#define HAVE_ALLOCA_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ echo "#define SIGIO 0" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/debugger-client.c���������������������������������������������������������������������0000644�0001750�0001750�00000004026�13502227777�016151� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from debugger-client.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: debugger-client.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file debugger-client.c unit: debugger-client */ #include "chicken.h" #include "dbg-stub.c" static C_PTABLE_ENTRY *create_ptable(void); static C_TLS C_word lf[1]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(C_debugger_2dclient_toplevel) C_externexport void C_ccall C_debugger_2dclient_toplevel(C_word c,C_word *av) C_noret; /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_debugger_2dclient_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("debugger-client")); C_check_nursery_minimum(C_calculate_demand(8,c,1)); if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ C_save_and_reclaim((void*)C_debugger_2dclient_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(7))){ C_save(t1); C_rereclaim2(7*sizeof(C_word),1); t1=C_restore;} a=C_alloc(8); C_initialize_lf(lf,1); lf[0]=C_h_intern(&lf[0],15, C_text("debugger-client")); C_register_lf2(lf,1,create_ptable());{} t2=C_a_i_provide(&a,1,lf[0]); t3=connect_to_debugger(); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[2] = { {C_text("toplevel:debugger_2dclient_2escm"),(void*)C_debugger_2dclient_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* */ /* end of file */ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken-do.c��������������������������������������������������������������������������0000644�0001750�0001750�00000012733�13502227553�015111� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* chicken-do ; ; Execute command if dependency changed or target is out of date. ; ; Copyright (c) 2017-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. */ #include "chicken.h" #ifdef WIN32 # include <windows.h> # include <sys/types.h> #else # include <sys/wait.h> #endif #include <sys/stat.h> #include <errno.h> #define MAX_TARGETS 256 #define MAX_DEPENDS 1024 #ifdef WIN32 # define MAX_COMMAND_LEN 32767 #endif static char *targets[ MAX_TARGETS ]; static char *depends[ MAX_DEPENDS ]; static struct stat tstats[ MAX_TARGETS ]; static char **cmd; static int opts = 1; static int quiet = 0; static void usage(int code) { fputs("usage: chicken-do [-q] [-h] [--] TARGET ... : DEPENDENCY ... : COMMAND ...\n", stderr); exit(code); } static void cleanup() { char **t; for(t = targets; *t != NULL; ++t) #ifdef WIN32 DeleteFile(*t); #else unlink(*t); #endif } static int execute(char **argv) { #ifdef WIN32 static PROCESS_INFORMATION process_info; static STARTUPINFO startup_info; static TCHAR cmdline[ MAX_COMMAND_LEN ]; static int len; startup_info.cb = sizeof(STARTUPINFO); /* quote command arguments */ while(*argv != NULL) { len += snprintf(cmdline + len, sizeof(cmdline) - len, "\"%s\" ", *(argv++)); if(len > sizeof(cmdline)) { fprintf(stderr, "argument list too long\n"); exit(1); } } if(!CreateProcess(NULL, cmdline, NULL, NULL, TRUE, NORMAL_PRIORITY_CLASS, NULL, NULL, &startup_info, &process_info)) { fprintf(stderr, "creating subprocess failed\n"); exit(1); } CloseHandle(process_info.hThread); WaitForSingleObject(process_info.hProcess, INFINITE); DWORD code; if(!GetExitCodeProcess(process_info.hProcess, &code)) { fprintf(stderr, "unable to obtain exit status of subprocess\n"); exit(1); } return code; #else pid_t child = fork(); if(child == -1) { perror("forking subprocess failed"); exit(1); } if(child == 0) { execvp(argv[ 0 ], argv); /* returns only in case of error */ perror("executing command failed"); cleanup(); exit(1); } for(;;) { int status; pid_t w = waitpid(child, &status, 0); if(w == -1) { perror("waiting for subprocess failed"); cleanup(); exit(1); } if(WIFEXITED(status)) return WEXITSTATUS(status); if(WIFSIGNALED(status)) { fprintf(stderr, "subprocess killed by signal %d\n", WTERMSIG(status)); cleanup(); exit(1); } } #endif } int main(int argc, char *argv[]) { int i, a = 0; struct stat *st, sd; char **t = targets; char **d = depends; if(argc < 3) usage(1); for(i = 1; i < argc; ++i) { if(!strcmp(argv[ i ], ":")) { *t = NULL; break; } if(opts && *argv[ i ] == '-') { switch(argv[ i ][ 1 ]) { case 'q': quiet = 1; break; case 'h': usage(0); case '-': opts = 0; break; default: usage(1); } } else if(t >= targets + MAX_TARGETS) { fprintf(stderr, "too many targets\n"); exit(1); } else *(t++) = argv[ i ]; } if(i == argc) usage(1); while(++i < argc) { if(!strcmp(argv[ i ], ":")) { *d = NULL; break; } if(d >= depends + MAX_DEPENDS) { fprintf(stderr, "too many dependencies\n"); exit(1); } *(d++) = argv[ i ]; } if(i == argc) usage(1); cmd = argv + i + 1; st = tstats; for(t = targets; *t != NULL; ++t) { if(stat(*t, st++) == -1) { if(errno == ENOENT) goto build; fprintf(stderr, "%s: %s\n", *t, strerror(errno)); exit(1); } } for(d = depends; *d != NULL; ++d) { if(stat(*d, &sd) == -1) { fprintf(stderr, "%s: %s\n", *d, strerror(errno)); exit(1); } st = tstats; for(t = targets; *t != NULL; ++t) { if(sd.st_mtime > (st++)->st_mtime) goto build; } } return 0; build: if(!quiet) { fputs(" ", stdout); for(t = cmd; *t != NULL; ++t) printf(" %s", *t); putchar('\n'); fflush(stdout); } int s = execute(cmd); if(s != 0) cleanup(); return s; } �������������������������������������chicken-5.1.0/Makefile.hurd�������������������������������������������������������������������������0000644�0001750�0001750�00000007423�13502227553�015342� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.hurd - configuration for Hurd -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration ARCH ?= $(shell sh $(SRCDIR)/config-arch.sh) # options C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 -fomit-frame-pointer else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer endif endif LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared LINKER_LINK_SHARED_DLOADABLE_OPTIONS = -L. -shared -Wl,-R"$(RUNTIME_LINKER_PATH)" LINKER_LINK_SHARED_PROGRAM_OPTIONS = -Wl,-R"$(RUNTIME_LINKER_PATH)" LIBCHICKEN_SO_LINKER_OPTIONS = -Wl,-soname,lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).so.$(BINARYVERSION) LIBRARIES = -lm -ldl NEEDS_RELINKING = yes USES_SONAME = yes # special files CHICKEN_CONFIG_H = chicken-config.h # select default and internal settings include $(SRCDIR)/defaults.make chicken-config.h: chicken-defaults.h echo "/* GENERATED */" >$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_DLFCN_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define HAVE_SIGACTION 1" >>$@ echo "#define HAVE_SIGSETJMP 1" >>$@ echo "#define HAVE_SIGPROCMASK 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_STRTOQ 1" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_SETENV 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_ALLOCA 1" >>$@ echo "#define HAVE_ALLOCA_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_SYSEXITS_H 1" >>$@ echo "#define SEARCH_EXE_PATH 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.load.import.c�����������������������������������������������������������������0000644�0001750�0001750�00000015157�13502227773�016747� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.load.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.load.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.load.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.load.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(201))){ C_save(t1); C_rereclaim2(201*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],12, C_text("chicken.load")); lf[2]=C_h_intern(&lf[2],4, C_text("eval")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001dynamic-load-libraries\376\001\000\000#\001chicken.load#dynamic-load-libraries\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001set-dynamic-load-mode!\376\001\000\000#\001chicken.load#set-dynamic-load-mode!\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\014\001load-library\376\001\000\000\031\001chicken.load#load-library\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001load-no" "isily\376\001\000\000\031\001chicken.load#load-noisily\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001load-relative\376\001\000\000\032\001chicken.l" "oad#load-relative\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001load-verbose\376\001\000\000\031\001chicken.load#load-verbose\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\007\001provide\376\001\000\000\024\001chicken.load#provide\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001provided\077\376\001\000\000\026\001chic" "ken.load#provided\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001require\376\001\000\000\024\001chicken.load#require\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eload_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eload_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eload_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eload_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eload_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.port.import.scm���������������������������������������������������������������0000644�0001750�0001750�00000003037�13502227742�017342� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.port.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.port 'port (scheme#list) '((call-with-input-string . chicken.port#call-with-input-string) (call-with-output-string . chicken.port#call-with-output-string) (copy-port . chicken.port#copy-port) (make-input-port . chicken.port#make-input-port) (make-output-port . chicken.port#make-output-port) (port-fold . chicken.port#port-fold) (port-for-each . chicken.port#port-for-each) (port-map . chicken.port#port-map) (port-name . chicken.port#port-name) (port-position . chicken.port#port-position) (make-bidirectional-port . chicken.port#make-bidirectional-port) (make-broadcast-port . chicken.port#make-broadcast-port) (make-concatenated-port . chicken.port#make-concatenated-port) (set-buffering-mode! . chicken.port#set-buffering-mode!) (set-port-name! . chicken.port#set-port-name!) (terminal-name . chicken.port#terminal-name) (terminal-port? . chicken.port#terminal-port?) (terminal-size . chicken.port#terminal-size) (with-error-output-to-port . chicken.port#with-error-output-to-port) (with-input-from-port . chicken.port#with-input-from-port) (with-input-from-string . chicken.port#with-input-from-string) (with-output-to-port . chicken.port#with-output-to-port) (with-output-to-string . chicken.port#with-output-to-string) (with-error-output-to-string . chicken.port#with-error-output-to-string)) (scheme#list) (scheme#list)) ;; END OF FILE �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/data-structures.c���������������������������������������������������������������������0000644�0001750�0001750�00000445556�13502227734�016255� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from data-structures.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: data-structures.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file data-structures.c -emit-import-library chicken.sort -emit-import-library chicken.string unit: data-structures uses: library */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[83]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,107,41}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,23),40,114,101,118,45,115,116,114,105,110,103,45,97,112,112,101,110,100,32,108,32,105,41,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,114,101,118,101,114,115,101,45,115,116,114,105,110,103,45,97,112,112,101,110,100,32,108,41}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,114,101,118,101,114,115,101,45,108,105,115,116,45,62,115,116,114,105,110,103,32,108,41,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,45,62,115,116,114,105,110,103,32,120,41,0,0,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,16),40,109,97,112,45,108,111,111,112,56,48,32,103,57,50,41}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,99,111,110,99,32,46,32,97,114,103,115,41,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,105,115,116,97,114,116,41,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,37),40,116,114,97,118,101,114,115,101,32,119,104,105,99,104,32,119,104,101,114,101,32,115,116,97,114,116,32,116,101,115,116,32,108,111,99,41,0,0,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,11),40,97,49,48,54,49,32,105,32,108,41,0,0,0,0,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,32,119,104,105,99,104,32,119,104,101,114,101,32,115,116,97,114,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,11),40,97,49,48,55,48,32,105,32,108,41,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,45,99,105,32,119,104,105,99,104,32,119,104,101,114,101,32,115,116,97,114,116,41,0,0,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,32,119,104,105,99,104,32,119,104,101,114,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,45,99,105,32,119,104,105,99,104,32,119,104,101,114,101,32,46,32,114,101,115,116,41,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,99,111,109,112,97,114,101,51,32,115,49,32,115,50,41,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,99,111,109,112,97,114,101,51,45,99,105,32,115,49,32,115,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,61,63,32,115,49,32,115,50,32,115,116,97,114,116,49,32,115,116,97,114,116,50,32,110,41,0,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,117,98,115,116,114,105,110,103,61,63,32,115,49,32,115,50,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,45,99,105,61,63,32,115,49,32,115,50,32,115,116,97,114,116,49,32,115,116,97,114,116,50,32,110,41,0,0,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,117,98,115,116,114,105,110,103,45,99,105,61,63,32,115,49,32,115,50,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,18),40,97,100,100,32,102,114,111,109,32,116,111,32,108,97,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,106,41}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,105,32,108,97,115,116,32,102,114,111,109,41,0,0,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,115,112,108,105,116,32,115,116,114,32,46,32,100,101,108,115,116,114,45,97,110,100,45,102,108,97,103,41,0,0,0,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,50,32,110,50,41,0,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,49,32,115,115,32,110,41,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,105,110,116,101,114,115,112,101,114,115,101,32,115,116,114,115,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,10),40,102,95,49,54,48,52,32,99,41,0,0,0,0,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,12),40,105,110,115,116,114,105,110,103,32,115,41,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,105,32,106,41,0,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,10),40,102,95,49,55,55,54,32,99,41,0,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,116,114,97,110,115,108,97,116,101,32,115,116,114,32,102,114,111,109,32,46,32,116,111,41,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,115,109,97,112,41,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,25),40,99,111,108,108,101,99,116,32,105,32,102,114,111,109,32,116,111,116,97,108,32,102,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,116,114,97,110,115,108,97,116,101,42,32,115,116,114,32,115,109,97,112,41,0,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,116,111,116,97,108,32,112,111,115,41}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,99,104,111,112,32,115,116,114,32,108,101,110,41,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,99,104,111,109,112,32,115,116,114,32,46,32,114,101,115,116,41}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,52,54,54,32,105,41,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,108,97,115,116,32,110,101,120,116,41}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,115,111,114,116,35,115,111,114,116,101,100,63,32,115,101,113,32,108,101,115,115,63,41}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,120,32,97,32,121,32,98,41,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,115,111,114,116,35,109,101,114,103,101,32,97,32,98,32,108,101,115,115,63,41,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,114,32,97,32,98,41,0,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,115,111,114,116,35,109,101,114,103,101,33,32,97,32,98,32,108,101,115,115,63,41,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,8),40,115,116,101,112,32,110,41}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,53,51,55,32,112,32,105,41,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,115,111,114,116,35,115,111,114,116,33,32,115,101,113,32,108,101,115,115,63,41,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,115,111,114,116,35,115,111,114,116,32,115,101,113,32,108,101,115,115,63,41,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,18),40,119,97,108,107,32,101,100,103,101,115,32,115,116,97,116,101,41,0,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,33),40,118,105,115,105,116,32,100,97,103,32,110,111,100,101,32,101,100,103,101,115,32,112,97,116,104,32,115,116,97,116,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,100,97,103,32,115,116,97,116,101,41}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,115,111,114,116,35,116,111,112,111,108,111,103,105,99,97,108,45,115,111,114,116,32,100,97,103,32,112,114,101,100,41}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_1001) static void C_ccall f_1001(C_word c,C_word *av) C_noret; C_noret_decl(f_1024) static void C_fcall f_1024(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1037) static void C_ccall f_1037(C_word c,C_word *av) C_noret; C_noret_decl(f_1056) static void C_ccall f_1056(C_word c,C_word *av) C_noret; C_noret_decl(f_1062) static void C_ccall f_1062(C_word c,C_word *av) C_noret; C_noret_decl(f_1065) static void C_ccall f_1065(C_word c,C_word *av) C_noret; C_noret_decl(f_1071) static void C_ccall f_1071(C_word c,C_word *av) C_noret; C_noret_decl(f_1074) static void C_ccall f_1074(C_word c,C_word *av) C_noret; C_noret_decl(f_1089) static void C_ccall f_1089(C_word c,C_word *av) C_noret; C_noret_decl(f_1104) static void C_ccall f_1104(C_word c,C_word *av) C_noret; C_noret_decl(f_1135) static void C_ccall f_1135(C_word c,C_word *av) C_noret; C_noret_decl(f_1166) static void C_ccall f_1166(C_word c,C_word *av) C_noret; C_noret_decl(f_1176) static void C_fcall f_1176(C_word t0,C_word t1) C_noret; C_noret_decl(f_1179) static void C_ccall f_1179(C_word c,C_word *av) C_noret; C_noret_decl(f_1182) static void C_ccall f_1182(C_word c,C_word *av) C_noret; C_noret_decl(f_1203) static void C_ccall f_1203(C_word c,C_word *av) C_noret; C_noret_decl(f_1263) static void C_ccall f_1263(C_word c,C_word *av) C_noret; C_noret_decl(f_1273) static void C_fcall f_1273(C_word t0,C_word t1) C_noret; C_noret_decl(f_1276) static void C_ccall f_1276(C_word c,C_word *av) C_noret; C_noret_decl(f_1279) static void C_ccall f_1279(C_word c,C_word *av) C_noret; C_noret_decl(f_1300) static void C_ccall f_1300(C_word c,C_word *av) C_noret; C_noret_decl(f_1360) static void C_ccall f_1360(C_word c,C_word *av) C_noret; C_noret_decl(f_1381) static void C_fcall f_1381(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1396) static void C_ccall f_1396(C_word c,C_word *av) C_noret; C_noret_decl(f_1401) static void C_fcall f_1401(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1411) static void C_ccall f_1411(C_word c,C_word *av) C_noret; C_noret_decl(f_1428) static void C_fcall f_1428(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1467) static void C_ccall f_1467(C_word c,C_word *av) C_noret; C_noret_decl(f_1494) static void C_ccall f_1494(C_word c,C_word *av) C_noret; C_noret_decl(f_1512) static void C_fcall f_1512(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1522) static void C_ccall f_1522(C_word c,C_word *av) C_noret; C_noret_decl(f_1527) static C_word C_fcall f_1527(C_word t0,C_word t1,C_word t2); C_noret_decl(f_1596) static void C_ccall f_1596(C_word c,C_word *av) C_noret; C_noret_decl(f_1599) static void C_fcall f_1599(C_word t0,C_word t1) C_noret; C_noret_decl(f_1604) static void C_ccall f_1604(C_word c,C_word *av) C_noret; C_noret_decl(f_1610) static C_word C_fcall f_1610(C_word t0,C_word t1); C_noret_decl(f_1634) static void C_ccall f_1634(C_word c,C_word *av) C_noret; C_noret_decl(f_1637) static void C_ccall f_1637(C_word c,C_word *av) C_noret; C_noret_decl(f_1649) static void C_ccall f_1649(C_word c,C_word *av) C_noret; C_noret_decl(f_1654) static void C_fcall f_1654(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1673) static void C_ccall f_1673(C_word c,C_word *av) C_noret; C_noret_decl(f_1776) static void C_ccall f_1776(C_word c,C_word *av) C_noret; C_noret_decl(f_1793) static void C_ccall f_1793(C_word c,C_word *av) C_noret; C_noret_decl(f_1801) static void C_ccall f_1801(C_word c,C_word *av) C_noret; C_noret_decl(f_1813) static void C_fcall f_1813(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_1827) static void C_ccall f_1827(C_word c,C_word *av) C_noret; C_noret_decl(f_1841) static void C_ccall f_1841(C_word c,C_word *av) C_noret; C_noret_decl(f_1846) static void C_fcall f_1846(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1886) static void C_fcall f_1886(C_word t0,C_word t1) C_noret; C_noret_decl(f_1912) static void C_ccall f_1912(C_word c,C_word *av) C_noret; C_noret_decl(f_1929) static void C_ccall f_1929(C_word c,C_word *av) C_noret; C_noret_decl(f_1936) static void C_ccall f_1936(C_word c,C_word *av) C_noret; C_noret_decl(f_1944) static void C_fcall f_1944(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1964) static void C_ccall f_1964(C_word c,C_word *av) C_noret; C_noret_decl(f_1975) static void C_ccall f_1975(C_word c,C_word *av) C_noret; C_noret_decl(f_1979) static void C_ccall f_1979(C_word c,C_word *av) C_noret; C_noret_decl(f_1993) static void C_ccall f_1993(C_word c,C_word *av) C_noret; C_noret_decl(f_2032) static void C_ccall f_2032(C_word c,C_word *av) C_noret; C_noret_decl(f_2059) static void C_fcall f_2059(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2069) static void C_ccall f_2069(C_word c,C_word *av) C_noret; C_noret_decl(f_2107) static void C_fcall f_2107(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2131) static void C_ccall f_2131(C_word c,C_word *av) C_noret; C_noret_decl(f_2137) static void C_ccall f_2137(C_word c,C_word *av) C_noret; C_noret_decl(f_2167) static void C_fcall f_2167(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_2174) static void C_ccall f_2174(C_word c,C_word *av) C_noret; C_noret_decl(f_2194) static void C_ccall f_2194(C_word c,C_word *av) C_noret; C_noret_decl(f_2220) static void C_ccall f_2220(C_word c,C_word *av) C_noret; C_noret_decl(f_2228) static void C_ccall f_2228(C_word c,C_word *av) C_noret; C_noret_decl(f_2231) static void C_fcall f_2231(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2238) static void C_ccall f_2238(C_word c,C_word *av) C_noret; C_noret_decl(f_2306) static void C_ccall f_2306(C_word c,C_word *av) C_noret; C_noret_decl(f_2309) static void C_ccall f_2309(C_word c,C_word *av) C_noret; C_noret_decl(f_2327) static void C_ccall f_2327(C_word c,C_word *av) C_noret; C_noret_decl(f_2352) static void C_ccall f_2352(C_word c,C_word *av) C_noret; C_noret_decl(f_2355) static void C_fcall f_2355(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2368) static void C_ccall f_2368(C_word c,C_word *av) C_noret; C_noret_decl(f_2374) static void C_ccall f_2374(C_word c,C_word *av) C_noret; C_noret_decl(f_2406) static void C_ccall f_2406(C_word c,C_word *av) C_noret; C_noret_decl(f_2440) static void C_ccall f_2440(C_word c,C_word *av) C_noret; C_noret_decl(f_2447) static void C_ccall f_2447(C_word c,C_word *av) C_noret; C_noret_decl(f_2449) static void C_fcall f_2449(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2480) static void C_ccall f_2480(C_word c,C_word *av) C_noret; C_noret_decl(f_2494) static void C_ccall f_2494(C_word c,C_word *av) C_noret; C_noret_decl(f_2498) static void C_ccall f_2498(C_word c,C_word *av) C_noret; C_noret_decl(f_2505) static void C_ccall f_2505(C_word c,C_word *av) C_noret; C_noret_decl(f_2507) static void C_ccall f_2507(C_word c,C_word *av) C_noret; C_noret_decl(f_2510) static void C_fcall f_2510(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_2514) static void C_ccall f_2514(C_word c,C_word *av) C_noret; C_noret_decl(f_2551) static void C_ccall f_2551(C_word c,C_word *av) C_noret; C_noret_decl(f_2563) static void C_ccall f_2563(C_word c,C_word *av) C_noret; C_noret_decl(f_2576) static void C_ccall f_2576(C_word c,C_word *av) C_noret; C_noret_decl(f_2582) static void C_fcall f_2582(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2596) static void C_ccall f_2596(C_word c,C_word *av) C_noret; C_noret_decl(f_2618) static void C_ccall f_2618(C_word c,C_word *av) C_noret; C_noret_decl(f_2654) static void C_fcall f_2654(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2675) static void C_ccall f_2675(C_word c,C_word *av) C_noret; C_noret_decl(f_809) static void C_ccall f_809(C_word c,C_word *av) C_noret; C_noret_decl(f_811) static void C_ccall f_811(C_word c,C_word *av) C_noret; C_noret_decl(f_814) static void C_fcall f_814(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_828) static void C_ccall f_828(C_word c,C_word *av) C_noret; C_noret_decl(f_837) static C_word C_fcall f_837(C_word t0,C_word t1,C_word t2); C_noret_decl(f_884) static void C_ccall f_884(C_word c,C_word *av) C_noret; C_noret_decl(f_890) static void C_ccall f_890(C_word c,C_word *av) C_noret; C_noret_decl(f_927) static void C_ccall f_927(C_word c,C_word *av) C_noret; C_noret_decl(f_930) static void C_ccall f_930(C_word c,C_word *av) C_noret; C_noret_decl(f_935) static void C_ccall f_935(C_word c,C_word *av) C_noret; C_noret_decl(f_946) static void C_ccall f_946(C_word c,C_word *av) C_noret; C_noret_decl(f_948) static void C_fcall f_948(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_973) static void C_ccall f_973(C_word c,C_word *av) C_noret; C_noret_decl(f_982) static void C_fcall f_982(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(C_data_2dstructures_toplevel) C_externexport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1024) static void C_ccall trf_1024(C_word c,C_word *av) C_noret; static void C_ccall trf_1024(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1024(t0,t1,t2);} C_noret_decl(trf_1176) static void C_ccall trf_1176(C_word c,C_word *av) C_noret; static void C_ccall trf_1176(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1176(t0,t1);} C_noret_decl(trf_1273) static void C_ccall trf_1273(C_word c,C_word *av) C_noret; static void C_ccall trf_1273(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1273(t0,t1);} C_noret_decl(trf_1381) static void C_ccall trf_1381(C_word c,C_word *av) C_noret; static void C_ccall trf_1381(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1381(t0,t1,t2,t3,t4);} C_noret_decl(trf_1401) static void C_ccall trf_1401(C_word c,C_word *av) C_noret; static void C_ccall trf_1401(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1401(t0,t1,t2,t3,t4);} C_noret_decl(trf_1428) static void C_ccall trf_1428(C_word c,C_word *av) C_noret; static void C_ccall trf_1428(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1428(t0,t1,t2);} C_noret_decl(trf_1512) static void C_ccall trf_1512(C_word c,C_word *av) C_noret; static void C_ccall trf_1512(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1512(t0,t1,t2,t3);} C_noret_decl(trf_1599) static void C_ccall trf_1599(C_word c,C_word *av) C_noret; static void C_ccall trf_1599(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1599(t0,t1);} C_noret_decl(trf_1654) static void C_ccall trf_1654(C_word c,C_word *av) C_noret; static void C_ccall trf_1654(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1654(t0,t1,t2,t3);} C_noret_decl(trf_1813) static void C_ccall trf_1813(C_word c,C_word *av) C_noret; static void C_ccall trf_1813(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_1813(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_1846) static void C_ccall trf_1846(C_word c,C_word *av) C_noret; static void C_ccall trf_1846(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1846(t0,t1,t2);} C_noret_decl(trf_1886) static void C_ccall trf_1886(C_word c,C_word *av) C_noret; static void C_ccall trf_1886(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1886(t0,t1);} C_noret_decl(trf_1944) static void C_ccall trf_1944(C_word c,C_word *av) C_noret; static void C_ccall trf_1944(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1944(t0,t1,t2,t3);} C_noret_decl(trf_2059) static void C_ccall trf_2059(C_word c,C_word *av) C_noret; static void C_ccall trf_2059(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2059(t0,t1,t2);} C_noret_decl(trf_2107) static void C_ccall trf_2107(C_word c,C_word *av) C_noret; static void C_ccall trf_2107(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2107(t0,t1,t2,t3);} C_noret_decl(trf_2167) static void C_ccall trf_2167(C_word c,C_word *av) C_noret; static void C_ccall trf_2167(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_2167(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_2231) static void C_ccall trf_2231(C_word c,C_word *av) C_noret; static void C_ccall trf_2231(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2231(t0,t1,t2,t3,t4);} C_noret_decl(trf_2355) static void C_ccall trf_2355(C_word c,C_word *av) C_noret; static void C_ccall trf_2355(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2355(t0,t1,t2);} C_noret_decl(trf_2449) static void C_ccall trf_2449(C_word c,C_word *av) C_noret; static void C_ccall trf_2449(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2449(t0,t1,t2,t3);} C_noret_decl(trf_2510) static void C_ccall trf_2510(C_word c,C_word *av) C_noret; static void C_ccall trf_2510(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_2510(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_2582) static void C_ccall trf_2582(C_word c,C_word *av) C_noret; static void C_ccall trf_2582(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2582(t0,t1,t2,t3);} C_noret_decl(trf_2654) static void C_ccall trf_2654(C_word c,C_word *av) C_noret; static void C_ccall trf_2654(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2654(t0,t1,t2,t3);} C_noret_decl(trf_814) static void C_ccall trf_814(C_word c,C_word *av) C_noret; static void C_ccall trf_814(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_814(t0,t1,t2,t3);} C_noret_decl(trf_948) static void C_ccall trf_948(C_word c,C_word *av) C_noret; static void C_ccall trf_948(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_948(t0,t1,t2);} C_noret_decl(trf_982) static void C_ccall trf_982(C_word c,C_word *av) C_noret; static void C_ccall trf_982(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_982(t0,t1,t2,t3,t4,t5);} /* k999 in traverse in k807 */ static void C_ccall f_1001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_1001,2,av);} a=C_alloc(9); t2=C_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(0)); t3=(C_truep(t2)?C_fixnum_greater_or_equal_p(((C_word*)t0)[3],((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t3)){ t4=C_eqp(((C_word*)t0)[4],C_fix(0)); if(C_truep(t4)){ t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[6],C_fix(0)))){ t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1024,a[2]=((C_word*)t0)[6],a[3]=t6,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[4],a[6]=((C_word)li7),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_1024(t8,((C_word*)t0)[5],((C_word*)t0)[2]);} else{ t5=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} else{ t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR); /* data-structures.scm:103: ##sys#error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[14]+1); av2[1]=((C_word*)t0)[5]; av2[2]=t4; av2[3]=((C_word*)t0)[8]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)t0)[3]; tp(6,av2);}}} /* loop in k999 in traverse in k807 */ static void C_fcall f_1024(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_1024,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greaterp(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1037,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:101: test */ t4=((C_word*)t0)[4];{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} /* k1035 in loop in k999 in traverse in k807 */ static void C_ccall f_1037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1037,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* data-structures.scm:102: loop */ t3=((C_word*)((C_word*)t0)[4])[1]; f_1024(t3,((C_word*)t0)[2],t2);}} /* ##sys#substring-index in k807 */ static void C_ccall f_1056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_1056,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1062,a[2]=t2,a[3]=t3,a[4]=((C_word)li9),tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:110: traverse */ f_982(t1,t2,t3,t4,t5,lf[17]);} /* a1061 in ##sys#substring-index in k807 */ static void C_ccall f_1062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1062,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_substring_compare(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0),t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* ##sys#substring-index-ci in k807 */ static void C_ccall f_1065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_1065,5,av);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1071,a[2]=t2,a[3]=t3,a[4]=((C_word)li11),tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:116: traverse */ f_982(t1,t2,t3,t4,t5,lf[19]);} /* a1070 in ##sys#substring-index-ci in k807 */ static void C_ccall f_1071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1071,4,av);} t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_substring_compare_case_insensitive(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0),t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* chicken.string#substring-index in k807 */ static void C_ccall f_1074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_1074,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; if(C_truep(C_i_nullp(t4))){ /* data-structures.scm:122: ##sys#substring-index */ t5=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=C_i_car(t4); /* data-structures.scm:122: ##sys#substring-index */ t6=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* chicken.string#substring-index-ci in k807 */ static void C_ccall f_1089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_1089,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; if(C_truep(C_i_nullp(t4))){ /* data-structures.scm:125: ##sys#substring-index-ci */ t5=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=C_i_car(t4); /* data-structures.scm:125: ##sys#substring-index-ci */ t6=*((C_word*)lf[18]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* chicken.string#string-compare3 in k807 */ static void C_ccall f_1104(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1104,4,av);} t4=C_i_check_string_2(t2,lf[23]); t5=C_i_check_string_2(t3,lf[23]); t6=C_block_size(t2); t7=C_block_size(t3); t8=C_fixnum_difference(t6,t7); t9=C_fixnum_lessp(t8,C_fix(0)); t10=(C_truep(t9)?t6:t7); t11=C_string_compare(t2,t3,t10); t12=C_eqp(t11,C_fix(0)); t13=t1;{ C_word *av2=av; av2[0]=t13; av2[1]=(C_truep(t12)?t8:t11); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} /* chicken.string#string-compare3-ci in k807 */ static void C_ccall f_1135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1135,4,av);} t4=C_i_check_string_2(t2,lf[25]); t5=C_i_check_string_2(t3,lf[25]); t6=C_block_size(t2); t7=C_block_size(t3); t8=C_fixnum_difference(t6,t7); t9=C_fixnum_lessp(t8,C_fix(0)); t10=(C_truep(t9)?t6:t7); t11=C_string_compare_case_insensitive(t2,t3,t10); t12=C_eqp(t11,C_fix(0)); t13=t1;{ C_word *av2=av; av2[0]=t13; av2[1]=(C_truep(t12)?t8:t11); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} /* ##sys#substring=? in k807 */ static void C_ccall f_1166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=7) C_bad_argc_2(c,7,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_1166,7,av);} a=C_alloc(7); t7=C_i_check_string_2(t2,lf[27]); t8=C_i_check_string_2(t3,lf[27]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1176,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); if(C_truep(t6)){ t10=t9; f_1176(t10,t6);} else{ t10=C_block_size(t2); t11=C_fixnum_difference(t10,t4); t12=C_block_size(t3); t13=C_fixnum_difference(t12,t5); t14=t9; f_1176(t14,C_i_fixnum_min(t11,t13));}} /* k1174 in ##sys#substring=? in k807 */ static void C_fcall f_1176(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_1176,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1179,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* data-structures.scm:161: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word av2[4]; av2[0]=*((C_word*)lf[15]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=lf[27]; tp(4,av2);}} /* k1177 in k1174 in ##sys#substring=? in k807 */ static void C_ccall f_1179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_1179,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1182,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* data-structures.scm:162: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[27]; tp(4,av2);}} /* k1180 in k1177 in k1174 in ##sys#substring=? in k807 */ static void C_ccall f_1182(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1182,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_substring_compare(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.string#substring=? in k807 */ static void C_ccall f_1203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,6)))){ C_save_and_reclaim((void*)f_1203,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_fix(0):C_i_car(t4)); t7=C_i_nullp(t4); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_fix(0):C_i_car(t8)); t11=C_i_nullp(t8); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t13=C_i_nullp(t12); t14=(C_truep(t13)?C_SCHEME_FALSE:C_i_car(t12)); if(C_truep(C_i_nullp(t12))){ /* data-structures.scm:166: ##sys#substring=? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[26]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t6; av2[5]=t10; av2[6]=t14; tp(7,av2);}} else{ t15=C_i_cdr(t12); /* data-structures.scm:166: ##sys#substring=? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[26]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t6; av2[5]=t10; av2[6]=t14; tp(7,av2);}}} /* ##sys#substring-ci=? in k807 */ static void C_ccall f_1263(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=7) C_bad_argc_2(c,7,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_1263,7,av);} a=C_alloc(7); t7=C_i_check_string_2(t2,lf[30]); t8=C_i_check_string_2(t3,lf[30]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1273,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); if(C_truep(t6)){ t10=t9; f_1273(t10,t6);} else{ t10=C_block_size(t2); t11=C_fixnum_difference(t10,t4); t12=C_block_size(t3); t13=C_fixnum_difference(t12,t5); t14=t9; f_1273(t14,C_i_fixnum_min(t11,t13));}} /* k1271 in ##sys#substring-ci=? in k807 */ static void C_fcall f_1273(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_1273,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); /* data-structures.scm:174: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word av2[4]; av2[0]=*((C_word*)lf[15]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=lf[30]; tp(4,av2);}} /* k1274 in k1271 in ##sys#substring-ci=? in k807 */ static void C_ccall f_1276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_1276,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* data-structures.scm:175: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[15]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[30]; tp(4,av2);}} /* k1277 in k1274 in k1271 in ##sys#substring-ci=? in k807 */ static void C_ccall f_1279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1279,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_substring_compare_case_insensitive(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.string#substring-ci=? in k807 */ static void C_ccall f_1300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,6)))){ C_save_and_reclaim((void*)f_1300,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; t5=C_i_nullp(t4); t6=(C_truep(t5)?C_fix(0):C_i_car(t4)); t7=C_i_nullp(t4); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_fix(0):C_i_car(t8)); t11=C_i_nullp(t8); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t13=C_i_nullp(t12); t14=(C_truep(t13)?C_SCHEME_FALSE:C_i_car(t12)); if(C_truep(C_i_nullp(t12))){ /* data-structures.scm:180: ##sys#substring-ci=? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[29]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t6; av2[5]=t10; av2[6]=t14; tp(7,av2);}} else{ t15=C_i_cdr(t12); /* data-structures.scm:180: ##sys#substring-ci=? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=*((C_word*)lf[29]+1); av2[1]=t1; av2[2]=t2; av2[3]=t3; av2[4]=t6; av2[5]=t10; av2[6]=t14; tp(7,av2);}}} /* chicken.string#string-split in k807 */ static void C_ccall f_1360(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +20,c,5)))){ C_save_and_reclaim((void*)f_1360,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+20); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; t4=C_i_check_string_2(t2,lf[33]); t5=C_i_nullp(t3); t6=(C_truep(t5)?lf[34]:C_i_car(t3)); t7=t6; t8=t3; t9=C_u_i_length(t8); t10=C_eqp(t9,C_fix(2)); t11=(C_truep(t10)?C_i_cadr(t3):C_SCHEME_FALSE); t12=t11; t13=C_block_size(t2); t14=t13; t15=C_i_check_string_2(t7,lf[33]); t16=C_block_size(t7); t17=t16; t18=C_SCHEME_FALSE; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1381,a[2]=t19,a[3]=t2,a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp); t21=C_SCHEME_UNDEFINED; t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); t23=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1401,a[2]=t14,a[3]=t19,a[4]=t12,a[5]=t20,a[6]=t2,a[7]=t17,a[8]=t22,a[9]=t7,a[10]=((C_word)li23),tmp=(C_word)a,a+=11,tmp)); t24=((C_word*)t22)[1]; f_1401(t24,t1,C_fix(0),C_SCHEME_FALSE,C_fix(0));} /* add in chicken.string#string-split in k807 */ static void C_fcall f_1381(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_1381,5,t0,t1,t2,t3,t4);} a=C_alloc(5); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1396,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:195: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[35]); C_word av2[5]; av2[0]=*((C_word*)lf[35]+1); av2[1]=t5; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* k1394 in add in chicken.string#string-split in k807 */ static void C_ccall f_1396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1396,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ t3=C_i_setslot(((C_word*)t0)[3],C_fix(1),t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* loop in chicken.string#string-split in k807 */ static void C_fcall f_1401(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_1401,5,t0,t1,t2,t3,t4);} a=C_alloc(15); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1411,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t6=C_fixnum_greaterp(t2,t4); t7=(C_truep(t6)?t6:((C_word*)t0)[4]); if(C_truep(t7)){ /* data-structures.scm:202: add */ t8=((C_word*)t0)[5]; f_1381(t8,t5,t4,t2,t3);} else{ t8=((C_word*)((C_word*)t0)[3])[1]; t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=(C_truep(t8)?t8:C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t5=C_subchar(((C_word*)t0)[6],t2); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_1428,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word*)t0)[8],a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[9],a[8]=t5,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=t7,a[12]=((C_word)li22),tmp=(C_word)a,a+=13,tmp)); t9=((C_word*)t7)[1]; f_1428(t9,t1,C_fix(0));}} /* k1409 in loop in chicken.string#string-split in k807 */ static void C_ccall f_1411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1411,2,av);} t2=((C_word*)((C_word*)t0)[2])[1]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?t2:C_SCHEME_END_OF_LIST); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* scan in loop in chicken.string#string-split in k807 */ static void C_fcall f_1428(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_1428,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* data-structures.scm:207: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_1401(t4,t1,t3,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ t3=C_subchar(((C_word*)t0)[7],t2); t4=C_eqp(((C_word*)t0)[8],t3); if(C_truep(t4)){ t5=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t6=t5; t7=C_fixnum_greaterp(((C_word*)t0)[3],((C_word*)t0)[6]); t8=(C_truep(t7)?t7:((C_word*)t0)[9]); if(C_truep(t8)){ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1467,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:211: add */ t10=((C_word*)t0)[10]; f_1381(t10,t9,((C_word*)t0)[6],((C_word*)t0)[3],((C_word*)t0)[5]);} else{ /* data-structures.scm:212: loop */ t9=((C_word*)((C_word*)t0)[4])[1]; f_1401(t9,t1,t6,((C_word*)t0)[5],t6);}} else{ t5=C_fixnum_plus(t2,C_fix(1)); /* data-structures.scm:213: scan */ t11=t1; t12=t5; t1=t11; t2=t12; goto loop;}}} /* k1465 in scan in loop in chicken.string#string-split in k807 */ static void C_ccall f_1467(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1467,2,av);} /* data-structures.scm:211: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1401(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[4]);} /* chicken.string#string-intersperse in k807 */ static void C_ccall f_1494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_1494,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[37]:C_i_car(t3)); t6=t5; t7=C_i_check_list_2(t2,lf[38]); t8=C_i_check_string_2(t6,lf[38]); t9=C_block_size(t6); t10=t9; t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1512,a[2]=t2,a[3]=t6,a[4]=t10,a[5]=t12,a[6]=((C_word)li26),tmp=(C_word)a,a+=7,tmp)); t14=((C_word*)t12)[1]; f_1512(t14,t1,t2,C_fix(0));} /* loop1 in chicken.string#string-intersperse in k807 */ static void C_fcall f_1512(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){ C_save_and_reclaim_args((void *)trf_1512,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ if(C_truep(C_eqp(((C_word*)t0)[2],C_SCHEME_END_OF_LIST))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=lf[39]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1522,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t5=C_fixnum_difference(t3,((C_word*)t0)[4]); /* data-structures.scm:226: ##sys#allocate-vector */ t6=*((C_word*)lf[40]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=t4; av2[2]=t5; av2[3]=C_SCHEME_TRUE; av2[4]=C_make_character(32); av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}} else{ t4=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE); if(C_truep(t4)){ t5=C_slot(t2,C_fix(0)); t6=C_i_check_string_2(t5,lf[38]); t7=C_slot(t2,C_fix(1)); t8=C_block_size(t5); t9=C_fixnum_plus(((C_word*)t0)[4],t3); t10=C_fixnum_plus(t8,t9); /* data-structures.scm:241: loop1 */ t12=t1; t13=t7; t14=t10; t1=t12; t2=t13; t3=t14; goto loop;} else{ /* data-structures.scm:243: ##sys#error-not-a-proper-list */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[41]); C_word av2[3]; av2[0]=*((C_word*)lf[41]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; tp(3,av2);}}}} /* k1520 in loop1 in chicken.string#string-intersperse in k807 */ static void C_ccall f_1522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_1522,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1527,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li25),tmp=(C_word)a,a+=6,tmp); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=( f_1527(t3,((C_word*)t0)[5],C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop2 in k1520 in loop1 in chicken.string#string-intersperse in k807 */ static C_word C_fcall f_1527(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_stack_overflow_check; loop:{} t3=C_slot(t1,C_fix(0)); t4=C_slot(t1,C_fix(1)); t5=C_block_size(t3); t6=C_substring_copy(t3,((C_word*)t0)[2],C_fix(0),t5,t2); t7=C_fixnum_plus(t2,t5); if(C_truep(C_eqp(t4,C_SCHEME_END_OF_LIST))){ return(((C_word*)t0)[2]);} else{ t8=C_substring_copy(((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0),((C_word*)t0)[4],t7); t9=C_fixnum_plus(t7,((C_word*)t0)[4]); t11=t4; t12=t9; t1=t11; t2=t12; goto loop;}} /* chicken.string#string-translate in k807 */ static void C_ccall f_1596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,3)))){ C_save_and_reclaim((void*)f_1596,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1599,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1634,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(C_charp(t3))){ t7=t6;{ C_word *av2=av; av2[0]=t7; av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1776,a[2]=t3,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp); f_1634(2,av2);}} else{ if(C_truep(C_i_pairp(t3))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1793,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* ##sys#list->string */ t8=C_fast_retrieve(lf[47]);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=C_i_check_string_2(t3,lf[43]); /* data-structures.scm:264: instring */ f_1599(t6,t3);}}} /* instring in chicken.string#string-translate in k807 */ static void C_fcall f_1599(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_1599,2,t1,t2);} a=C_alloc(5); t3=C_block_size(t2); t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1604,a[2]=t4,a[3]=t2,a[4]=((C_word)li29),tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* f_1604 in instring in chicken.string#string-translate in k807 */ static void C_ccall f_1604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1604,3,av);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1610,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li28),tmp=(C_word)a,a+=6,tmp); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=( f_1610(t3,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* loop */ static C_word C_fcall f_1610(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){ return(C_SCHEME_FALSE);} else{ t2=C_subchar(((C_word*)t0)[3],t1); t3=C_eqp(((C_word*)t0)[4],t2); if(C_truep(t3)){ return(t1);} else{ t4=C_fixnum_plus(t1,C_fix(1)); t6=t4; t1=t6; goto loop;}}} /* k1632 in chicken.string#string-translate in k807 */ static void C_ccall f_1634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1634,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1637,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ t4=C_slot(((C_word*)t0)[4],C_fix(0)); if(C_truep(C_charp(t4))){ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; f_1637(2,av2);}} else{ if(C_truep(C_i_pairp(t4))){ /* ##sys#list->string */ t5=C_fast_retrieve(lf[47]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t5=C_i_check_string_2(t4,lf[43]); t6=t3;{ C_word *av2=av; av2[0]=t6; av2[1]=t4; f_1637(2,av2);}}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_1637(2,av2);}}} /* k1635 in k1632 in chicken.string#string-translate in k807 */ static void C_ccall f_1637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_1637,2,av);} a=C_alloc(8); t2=t1; t3=C_i_stringp(t2); t4=(C_truep(t3)?C_block_size(t2):C_SCHEME_FALSE); t5=t4; t6=C_i_check_string_2(((C_word*)t0)[2],lf[43]); t7=C_block_size(((C_word*)t0)[2]); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1649,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t5,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[46]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[46]+1); av2[1]=t9; av2[2]=t8; av2[3]=C_make_character(32); tp(4,av2);}} /* k1647 in k1635 in k1632 in chicken.string#string-translate in k807 */ static void C_ccall f_1649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_1649,2,av);} a=C_alloc(12); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1654,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word)li31),tmp=(C_word)a,a+=10,tmp)); t6=((C_word*)t4)[1]; f_1654(t6,((C_word*)t0)[7],C_fix(0),C_fix(0));} /* loop in k1647 in k1635 in k1632 in chicken.string#string-translate in k807 */ static void C_fcall f_1654(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_1654,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ if(C_truep(C_fixnum_lessp(t3,t2))){ /* data-structures.scm:280: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[35]); C_word av2[5]; av2[0]=*((C_word*)lf[35]+1); av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(0); av2[4]=t3; tp(5,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ t4=C_subchar(((C_word*)t0)[4],t2); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1673,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); /* data-structures.scm:283: from */ t6=((C_word*)t0)[8];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k1671 in loop in k1647 in k1635 in k1632 in chicken.string#string-translate in k807 */ static void C_ccall f_1673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1673,2,av);} if(C_truep(C_i_not(t1))){ t2=C_setsubchar(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* data-structures.scm:286: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_1654(t5,((C_word*)t0)[7],t3,t4);} else{ if(C_truep(C_i_not(((C_word*)t0)[8]))){ t2=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); /* data-structures.scm:287: loop */ t3=((C_word*)((C_word*)t0)[6])[1]; f_1654(t3,((C_word*)t0)[7],t2,((C_word*)t0)[3]);} else{ if(C_truep(C_charp(((C_word*)t0)[8]))){ t2=C_setsubchar(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[8]); t3=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* data-structures.scm:290: loop */ t5=((C_word*)((C_word*)t0)[6])[1]; f_1654(t5,((C_word*)t0)[7],t3,t4);} else{ if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[9]))){ /* data-structures.scm:292: ##sys#error */ t2=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[7]; av2[2]=lf[43]; av2[3]=lf[45]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} else{ t2=C_subchar(((C_word*)t0)[8],t1); t3=C_setsubchar(((C_word*)t0)[2],((C_word*)t0)[3],t2); t4=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); t5=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* data-structures.scm:295: loop */ t6=((C_word*)((C_word*)t0)[6])[1]; f_1654(t6,((C_word*)t0)[7],t4,t5);}}}}} /* f_1776 in chicken.string#string-translate in k807 */ static void C_ccall f_1776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1776,3,av);} t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_eqp(t2,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k1791 in chicken.string#string-translate in k807 */ static void C_ccall f_1793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_1793,2,av);} /* data-structures.scm:261: instring */ f_1599(((C_word*)t0)[3],t1);} /* chicken.string#string-translate* in k807 */ static void C_ccall f_1801(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_1801,4,av);} a=C_alloc(9); t4=C_i_check_string_2(t2,lf[49]); t5=C_i_check_list_2(t3,lf[49]); t6=C_block_size(t2); t7=t6; t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1813,a[2]=t7,a[3]=t2,a[4]=t9,a[5]=t3,a[6]=((C_word)li35),tmp=(C_word)a,a+=7,tmp)); /* data-structures.scm:326: collect */ t11=((C_word*)t9)[1]; f_1813(t11,t1,C_fix(0),C_fix(0),C_fix(0),C_SCHEME_END_OF_LIST);} /* collect in chicken.string#string-translate* in k807 */ static void C_fcall f_1813(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ C_save_and_reclaim_args((void *)trf_1813,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(15); t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1827,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_greaterp(t2,t3))){ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1841,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:307: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[35]); C_word av2[5]; av2[0]=*((C_word*)lf[35]+1); av2[1]=t8; av2[2]=((C_word*)t0)[3]; av2[3]=t3; av2[4]=t2; tp(5,av2);}} else{ t8=((C_word*)t6)[1]; /* data-structures.scm:305: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[51]); C_word av2[3]; av2[0]=*((C_word*)lf[51]+1); av2[1]=t7; av2[2]=t8; tp(3,av2);}}} else{ t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1846,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=t6,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],a[9]=t8,a[10]=((C_word)li34),tmp=(C_word)a,a+=11,tmp)); t10=((C_word*)t8)[1]; f_1846(t10,t1,((C_word*)t0)[5]);}} /* k1825 in collect in chicken.string#string-translate* in k807 */ static void C_ccall f_1827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1827,2,av);} /* data-structures.scm:303: ##sys#fragments->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[50]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[50]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k1839 in collect in chicken.string#string-translate* in k807 */ static void C_ccall f_1841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1841,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]); /* data-structures.scm:305: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[51]); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[51]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; tp(3,av2);}} /* loop in collect in chicken.string#string-translate* in k807 */ static void C_fcall f_1846(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,5)))){ C_save_and_reclaim_args((void *)trf_1846,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_nullp(t2))){ t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* data-structures.scm:311: collect */ t5=((C_word*)((C_word*)t0)[4])[1]; f_1813(t5,t1,t3,((C_word*)t0)[5],t4,((C_word*)((C_word*)t0)[6])[1]);} else{ t3=C_i_car(t2); t4=C_i_car(t3); t5=C_i_string_length(t4); t6=C_u_i_cdr(t3); t7=C_fixnum_plus(((C_word*)t0)[2],t5); t8=C_fixnum_less_or_equal_p(t7,((C_word*)t0)[7]); t9=(C_truep(t8)?C_substring_compare(((C_word*)t0)[8],t4,((C_word*)t0)[2],C_fix(0),t5):C_SCHEME_FALSE); if(C_truep(t9)){ t10=C_fixnum_plus(((C_word*)t0)[2],t5); t11=t10; t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1886,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=t11,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],((C_word*)t0)[5]))){ t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1912,a[2]=((C_word*)t0)[6],a[3]=t12,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:320: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[35]); C_word av2[5]; av2[0]=*((C_word*)lf[35]+1); av2[1]=t13; av2[2]=((C_word*)t0)[8]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[2]; tp(5,av2);}} else{ t13=t12; f_1886(t13,C_SCHEME_UNDEFINED);}} else{ t10=t2; t11=C_u_i_cdr(t10); /* data-structures.scm:325: loop */ t15=t1; t16=t11; t1=t15; t2=t16; goto loop;}}} /* k1884 in loop in collect in chicken.string#string-translate* in k807 */ static void C_fcall f_1886(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,0,5)))){ C_save_and_reclaim_args((void *)trf_1886,2,t0,t1);} a=C_alloc(3); t2=C_i_string_length(((C_word*)t0)[2]); t3=C_fixnum_plus(((C_word*)t0)[3],t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[4])[1]); /* data-structures.scm:321: collect */ t5=((C_word*)((C_word*)t0)[5])[1]; f_1813(t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[7],t3,t4);} /* k1910 in loop in collect in chicken.string#string-translate* in k807 */ static void C_ccall f_1912(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1912,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t4=((C_word*)t0)[3]; f_1886(t4,t3);} /* chicken.string#string-chop in k807 */ static void C_ccall f_1929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1929,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[53]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1936,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:333: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word *av2=av; av2[0]=*((C_word*)lf[15]+1); av2[1]=t5; av2[2]=t3; av2[3]=lf[53]; tp(4,av2);}} /* k1934 in chicken.string#string-chop in k807 */ static void C_ccall f_1936(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_1936,2,av);} a=C_alloc(8); t2=C_block_size(((C_word*)t0)[2]); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1944,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li37),tmp=(C_word)a,a+=6,tmp)); t6=((C_word*)t4)[1]; f_1944(t6,((C_word*)t0)[4],t2,C_fix(0));} /* loop in k1934 in chicken.string#string-chop in k807 */ static void C_fcall f_1944(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_1944,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_fixnum_less_or_equal_p(t2,((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1964,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_fixnum_plus(t3,t2); /* data-structures.scm:337: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[35]); C_word av2[5]; av2[0]=*((C_word*)lf[35]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t3; av2[4]=t5; tp(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1975,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t5=C_fixnum_plus(t3,((C_word*)t0)[2]); /* data-structures.scm:338: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[35]); C_word av2[5]; av2[0]=*((C_word*)lf[35]+1); av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t3; av2[4]=t5; tp(5,av2);}}}} /* k1962 in loop in k1934 in chicken.string#string-chop in k807 */ static void C_ccall f_1964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1964,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list1(&a,1,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k1973 in loop in k1934 in chicken.string#string-chop in k807 */ static void C_ccall f_1975(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_1975,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1979,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); t5=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[4]); /* data-structures.scm:338: loop */ t6=((C_word*)((C_word*)t0)[6])[1]; f_1944(t6,t3,t4,t5);} /* k1977 in k1973 in loop in k1934 in chicken.string#string-chop in k807 */ static void C_ccall f_1979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_1979,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.string#string-chomp in k807 */ static void C_ccall f_1993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_1993,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[55]:C_i_car(t3)); t6=C_i_check_string_2(t2,lf[56]); t7=C_i_check_string_2(t5,lf[56]); t8=C_block_size(t2); t9=C_block_size(t5); t10=C_fixnum_difference(t8,t9); t11=C_fixnum_greater_or_equal_p(t8,t9); t12=(C_truep(t11)?C_substring_compare(t2,t5,t10,C_fix(0),t9):C_SCHEME_FALSE); if(C_truep(t12)){ /* data-structures.scm:351: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[35]); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[35]+1); av2[1]=t1; av2[2]=t2; av2[3]=C_fix(0); av2[4]=t10; tp(5,av2);}} else{ t13=t2; t14=t1;{ C_word *av2=av; av2[0]=t14; av2[1]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}} /* chicken.sort#sorted? in k807 */ static void C_ccall f_2032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_2032,4,av);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_vectorp(t2))){ t4=t2; t5=C_block_size(t4); t6=t5; if(C_truep(C_fixnum_less_or_equal_p(t6,C_fix(1)))){ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2059,a[2]=t6,a[3]=t8,a[4]=t2,a[5]=t3,a[6]=((C_word)li40),tmp=(C_word)a,a+=7,tmp)); t10=((C_word*)t8)[1]; f_2059(t10,t1,C_fix(1));}} else{ t4=C_i_car(t2); t5=t2; t6=C_u_i_cdr(t5); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2107,a[2]=t8,a[3]=t3,a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp)); t10=((C_word*)t8)[1]; f_2107(t10,t1,t4,t6);}}} /* doloop466 in chicken.sort#sorted? in k807 */ static void C_fcall f_2059(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_2059,3,t0,t1,t2);} a=C_alloc(11); t3=C_i_nequalp(t2,((C_word*)t0)[2]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2069,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ t5=t4;{ C_word av2[2]; av2[0]=t5; av2[1]=t3; f_2069(2,av2);}} else{ t5=C_i_vector_ref(((C_word*)t0)[4],t2); t6=t2; t7=C_a_i_fixnum_difference(&a,2,t6,C_fix(1)); t8=C_i_vector_ref(((C_word*)t0)[4],t7); /* data-structures.scm:390: less? */ t9=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t9; av2[1]=t4; av2[2]=t5; av2[3]=t8; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}}} /* k2067 in doloop466 in chicken.sort#sorted? in k807 */ static void C_ccall f_2069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_2069,2,av);} a=C_alloc(29); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_nequalp(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); t3=((C_word*)((C_word*)t0)[5])[1]; f_2059(t3,((C_word*)t0)[2],t2);}} /* loop in chicken.sort#sorted? in k807 */ static void C_fcall f_2107(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_2107,4,t0,t1,t2,t3);} a=C_alloc(5); t4=C_i_nullp(t3); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2131,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_car(t3); /* data-structures.scm:396: less? */ t7=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} /* k2129 in loop in chicken.sort#sorted? in k807 */ static void C_ccall f_2131(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2131,2,av);} if(C_truep(C_i_not(t1))){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); /* data-structures.scm:397: loop */ t6=((C_word*)((C_word*)t0)[3])[1]; f_2107(t6,((C_word*)t0)[4],t3,t5);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.sort#merge in k807 */ static void C_ccall f_2137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,6)))){ C_save_and_reclaim((void *)f_2137,5,av);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t5=t3; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t3))){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_i_car(t2); t6=t2; t7=C_u_i_cdr(t6); t8=C_i_car(t3); t9=t3; t10=C_u_i_cdr(t9); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2167,a[2]=t12,a[3]=t4,a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp)); t14=((C_word*)t12)[1]; f_2167(t14,t1,t5,t7,t8,t10);}}} /* loop in chicken.sort#merge in k807 */ static void C_fcall f_2167(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_2167,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(8); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2174,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t1,a[6]=t4,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); /* data-structures.scm:413: less? */ t7=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=t4; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} /* k2172 in loop in chicken.sort#merge in k807 */ static void C_ccall f_2174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_2174,2,av);} a=C_alloc(6); if(C_truep(t1)){ if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[6],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2194,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t3=C_i_car(((C_word*)t0)[2]); t4=((C_word*)t0)[2]; t5=C_u_i_cdr(t4); /* data-structures.scm:416: loop */ t6=((C_word*)((C_word*)t0)[7])[1]; f_2167(t6,t2,((C_word*)t0)[3],((C_word*)t0)[4],t3,t5);}} else{ if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ t2=C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)t0)[2]); t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2220,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_car(((C_word*)t0)[4]); t4=((C_word*)t0)[4]; t5=C_u_i_cdr(t4); /* data-structures.scm:420: loop */ t6=((C_word*)((C_word*)t0)[7])[1]; f_2167(t6,t2,t3,t5,((C_word*)t0)[6],((C_word*)t0)[2]);}}} /* k2192 in k2172 in loop in chicken.sort#merge in k807 */ static void C_ccall f_2194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2194,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2218 in k2172 in loop in chicken.sort#merge in k807 */ static void C_ccall f_2220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2220,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.sort#merge! in k807 */ static void C_ccall f_2228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_2228,5,av);} a=C_alloc(13); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2231,a[2]=t6,a[3]=t4,a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp)); if(C_truep(C_i_nullp(t2))){ t8=t3; t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ if(C_truep(C_i_nullp(t3))){ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2306,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t6,tmp=(C_word)a,a+=6,tmp); t9=C_i_car(t3); t10=C_i_car(t2); /* data-structures.scm:445: less? */ t11=t4;{ C_word *av2=av; av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; ((C_proc)C_fast_retrieve_proc(t11))(4,av2);}}}} /* loop in chicken.sort#merge! in k807 */ static void C_fcall f_2231(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_2231,5,t0,t1,t2,t3,t4);} a=C_alloc(7); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2238,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t1,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); t6=C_i_car(t4); t7=C_i_car(t3); /* data-structures.scm:430: less? */ t8=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t8; av2[1]=t5; av2[2]=t6; av2[3]=t7; ((C_proc)C_fast_retrieve_proc(t8))(4,av2);}} /* k2236 in loop in chicken.sort#merge! in k807 */ static void C_ccall f_2238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2238,2,av);} if(C_truep(t1)){ t2=C_i_set_cdr(((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t4))){ t5=((C_word*)t0)[3]; t6=((C_word*)t0)[4]; t7=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t7; av2[1]=C_i_setslot(t5,C_fix(1),t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=((C_word*)t0)[3]; t6=C_u_i_cdr(t5); /* data-structures.scm:435: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_2231(t7,((C_word*)t0)[5],((C_word*)t0)[3],((C_word*)t0)[4],t6);}} else{ t2=C_i_set_cdr(((C_word*)t0)[2],((C_word*)t0)[4]); t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t4))){ t5=((C_word*)t0)[4]; t6=((C_word*)t0)[3]; t7=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t7; av2[1]=C_i_setslot(t5,C_fix(1),t6); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); /* data-structures.scm:441: loop */ t7=((C_word*)((C_word*)t0)[6])[1]; f_2231(t7,((C_word*)t0)[5],((C_word*)t0)[4],t6,((C_word*)t0)[3]);}}} /* k2304 in chicken.sort#merge! in k807 */ static void C_ccall f_2306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_2306,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2309,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[2]; t4=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t4))){ t5=((C_word*)t0)[2]; t6=((C_word*)t0)[4]; t7=C_i_setslot(t5,C_fix(1),t6); t8=((C_word*)t0)[2]; t9=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* data-structures.scm:448: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_2231(t7,t2,((C_word*)t0)[2],((C_word*)t0)[4],t6);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2327,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[4]; t4=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t4))){ t5=((C_word*)t0)[4]; t6=((C_word*)t0)[2]; t7=C_i_setslot(t5,C_fix(1),t6); t8=((C_word*)t0)[4]; t9=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); /* data-structures.scm:453: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_2231(t7,t2,((C_word*)t0)[4],t6,((C_word*)t0)[2]);}}} /* k2307 in k2304 in chicken.sort#merge! in k807 */ static void C_ccall f_2309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2309,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2325 in k2304 in chicken.sort#merge! in k807 */ static void C_ccall f_2327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2327,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.sort#sort! in k807 */ static void C_ccall f_2352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ C_save_and_reclaim((void *)f_2352,4,av);} a=C_alloc(17); t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2355,a[2]=t3,a[3]=t6,a[4]=t4,a[5]=((C_word)li47),tmp=(C_word)a,a+=6,tmp)); if(C_truep(C_i_vectorp(((C_word*)t4)[1]))){ t8=C_i_vector_length(((C_word*)t4)[1]); t9=t8; t10=((C_word*)t4)[1]; t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2440,a[2]=t4,a[3]=t10,a[4]=t1,a[5]=t6,a[6]=t9,tmp=(C_word)a,a+=7,tmp); /* data-structures.scm:492: scheme#vector->list */ t12=*((C_word*)lf[62]+1);{ C_word *av2=av; av2[0]=t12; av2[1]=t11; av2[2]=((C_word*)t4)[1]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t8=C_i_length(((C_word*)t4)[1]); /* data-structures.scm:498: step */ t9=((C_word*)t6)[1]; f_2355(t9,t1,t8);}} /* step in chicken.sort#sort! in k807 */ static void C_fcall f_2355(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_2355,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_greaterp(t2,C_fix(2)))){ t3=C_s_a_i_quotient(&a,2,t2,C_fix(2)); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2368,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* data-structures.scm:468: step */ t12=t5; t13=t4; t1=t12; t2=t13; goto loop;} else{ if(C_truep(C_i_nequalp(t2,C_fix(2)))){ t3=C_i_car(((C_word*)((C_word*)t0)[4])[1]); t4=t3; t5=C_i_cadr(((C_word*)((C_word*)t0)[4])[1]); t6=t5; t7=((C_word*)((C_word*)t0)[4])[1]; t8=C_i_cddr(((C_word*)((C_word*)t0)[4])[1]); t9=C_mutate(((C_word *)((C_word*)t0)[4])+1,t8); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2406,a[2]=t7,a[3]=t6,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* data-structures.scm:477: less? */ t11=((C_word*)t0)[2];{ C_word av2[4]; av2[0]=t11; av2[1]=t10; av2[2]=t6; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t11))(4,av2);}} else{ if(C_truep(C_i_nequalp(t2,C_fix(1)))){ t3=((C_word*)((C_word*)t0)[4])[1]; t4=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4); t6=C_i_set_cdr(t3,C_SCHEME_END_OF_LIST); t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}} /* k2366 in step in chicken.sort#sort! in k807 */ static void C_ccall f_2368(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(34,c,2)))){ C_save_and_reclaim((void *)f_2368,2,av);} a=C_alloc(34); t2=t1; t3=C_s_a_i_minus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2374,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* data-structures.scm:470: step */ t5=((C_word*)((C_word*)t0)[6])[1]; f_2355(t5,t4,t3);} /* k2372 in k2366 in step in chicken.sort#sort! in k807 */ static void C_ccall f_2374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2374,2,av);} /* data-structures.scm:471: merge! */ t2=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k2404 in step in chicken.sort#sort! in k807 */ static void C_ccall f_2406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2406,2,av);} if(C_truep(t1)){ t2=C_i_set_car(((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_u_i_cdr(((C_word*)t0)[2]); t4=C_i_set_car(t3,((C_word*)t0)[4]); t5=C_i_cdr(((C_word*)t0)[2]); t6=C_i_set_cdr(t5,C_SCHEME_END_OF_LIST); t7=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t7; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t2=C_i_cdr(((C_word*)t0)[2]); t3=C_i_set_cdr(t2,C_SCHEME_END_OF_LIST); t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2438 in chicken.sort#sort! in k807 */ static void C_ccall f_2440(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2440,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2447,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:493: step */ t4=((C_word*)((C_word*)t0)[5])[1]; f_2355(t4,t3,((C_word*)t0)[6]);} /* k2445 in k2438 in chicken.sort#sort! in k807 */ static void C_ccall f_2447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_2447,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2449,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li48),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_2449(t5,((C_word*)t0)[3],t1,C_fix(0));} /* doloop537 in k2445 in k2438 in chicken.sort#sort! in k807 */ static void C_fcall f_2449(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_2449,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_car(t2); t5=C_i_vector_set(((C_word*)t0)[2],t3,t4); t6=t2; t7=C_u_i_cdr(t6); t8=t3; t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); t11=t1; t12=t7; t13=t9; t1=t11; t2=t12; t3=t13; goto loop;}} /* chicken.sort#sort in k807 */ static void C_ccall f_2480(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2480,4,av);} a=C_alloc(7); if(C_truep(C_i_vectorp(t2))){ t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2494,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2498,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:509: scheme#vector->list */ t6=*((C_word*)lf[62]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2505,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:510: scheme#append */ t5=*((C_word*)lf[65]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} /* k2492 in chicken.sort#sort in k807 */ static void C_ccall f_2494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2494,2,av);} /* data-structures.scm:509: scheme#list->vector */ t2=*((C_word*)lf[64]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k2496 in chicken.sort#sort in k807 */ static void C_ccall f_2498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2498,2,av);} /* data-structures.scm:509: sort! */ t2=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k2503 in chicken.sort#sort in k807 */ static void C_ccall f_2505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2505,2,av);} /* data-structures.scm:510: sort! */ t2=*((C_word*)lf[61]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* chicken.sort#topological-sort in k807 */ static void C_ccall f_2507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(17,c,7)))){ C_save_and_reclaim((void *)f_2507,4,av);} a=C_alloc(17); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2510,a[2]=t3,a[3]=t5,a[4]=((C_word)li52),tmp=(C_word)a,a+=5,tmp)); t7=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2654,a[2]=t9,a[3]=t5,a[4]=((C_word)li53),tmp=(C_word)a,a+=5,tmp)); t11=((C_word*)t9)[1]; f_2654(t11,t1,t2,t7);} /* visit in chicken.sort#topological-sort in k807 */ static void C_fcall f_2510(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_2510,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(10); t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2514,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t6,a[6]=t4,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],a[9]=t2,tmp=(C_word)a,a+=10,tmp); t8=C_i_car(t6); /* data-structures.scm:520: chicken.base#alist-ref */ t9=*((C_word*)lf[82]+1);{ C_word av2[5]; av2[0]=t9; av2[1]=t7; av2[2]=t3; av2[3]=t8; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* k2512 in visit in chicken.sort#topological-sort in k807 */ static void C_ccall f_2514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ C_save_and_reclaim((void *)f_2514,2,av);} a=C_alloc(12); t2=C_eqp(t1,lf[67]); if(C_truep(t2)){ t3=C_a_i_cons(&a,2,lf[68],lf[69]); t4=t3; t5=C_a_i_cons(&a,2,lf[68],lf[70]); t6=t5; t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2563,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t6,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* data-structures.scm:527: scheme#reverse */ t8=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t3=C_eqp(t1,lf[80]); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=((C_word*)t0)[6]; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2576,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); if(C_truep(t4)){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=t4; f_2576(2,av2);}} else{ /* data-structures.scm:533: chicken.base#alist-ref */ t6=*((C_word*)lf[82]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[9]; av2[4]=((C_word*)t0)[7]; av2[5]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}}}} /* k2549 in k2561 in k2512 in visit in chicken.sort#topological-sort in k807 */ static void C_ccall f_2551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){ C_save_and_reclaim((void *)f_2551,2,av);} a=C_alloc(31); t2=C_a_i_cons(&a,2,lf[68],lf[72]); t3=C_a_i_list(&a,8,((C_word*)t0)[2],lf[73],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,t2,lf[74]); t4=C_a_i_record3(&a,3,lf[75],lf[76],t3); /* data-structures.scm:522: chicken.condition#abort */ t5=C_fast_retrieve(lf[77]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[6]; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2561 in k2512 in visit in chicken.sort#topological-sort in k807 */ static void C_ccall f_2563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_2563,2,av);} a=C_alloc(16); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_a_i_list1(&a,1,t2); t4=t3; t5=C_a_i_cons(&a,2,lf[68],lf[71]); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2551,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=t6,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* data-structures.scm:528: chicken.base#get-call-chain */ t8=C_fast_retrieve(lf[78]);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k2574 in k2512 in visit in chicken.sort#topological-sort in k807 */ static void C_ccall f_2576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ C_save_and_reclaim((void *)f_2576,2,av);} a=C_alloc(20); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],lf[67]); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=C_a_i_cons(&a,2,t2,t4); t6=((C_word*)t0)[3]; t7=C_u_i_cdr(t6); t8=C_a_i_cons(&a,2,t5,t7); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2582,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t10,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li51),tmp=(C_word)a,a+=9,tmp)); t12=((C_word*)t10)[1]; f_2582(t12,((C_word*)t0)[8],t1,t8);} /* walk in k2574 in k2512 in visit in chicken.sort#topological-sort in k807 */ static void C_fcall f_2582(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,6)))){ C_save_and_reclaim_args((void *)trf_2582,4,t0,t1,t2,t3);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2596,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_i_car(t3); /* data-structures.scm:537: chicken.base#alist-update! */ t6=C_fast_retrieve(lf[81]);{ C_word av2[6]; av2[0]=t6; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=lf[80]; av2[4]=t5; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} else{ t4=C_i_car(t2); t5=t2; t6=C_u_i_cdr(t5); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2618,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=C_a_i_cons(&a,2,t4,((C_word*)t0)[5]); /* data-structures.scm:541: visit */ t9=((C_word*)((C_word*)t0)[6])[1]; f_2510(t9,t7,((C_word*)t0)[7],t4,C_SCHEME_FALSE,t8,t3);}} /* k2594 in walk in k2574 in k2512 in visit in chicken.sort#topological-sort in k807 */ static void C_ccall f_2596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_2596,2,av);} a=C_alloc(6); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_a_i_cons(&a,2,t1,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k2616 in walk in k2574 in k2512 in visit in chicken.sort#topological-sort in k807 */ static void C_ccall f_2618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2618,2,av);} /* data-structures.scm:540: walk */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2582(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in chicken.sort#topological-sort in k807 */ static void C_fcall f_2654(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,6)))){ C_save_and_reclaim_args((void *)trf_2654,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_cdr(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_i_cdr(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2675,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_i_caar(t2); t8=t2; t9=C_u_i_car(t8); t10=C_u_i_cdr(t9); /* data-structures.scm:551: visit */ t11=((C_word*)((C_word*)t0)[3])[1]; f_2510(t11,t6,t2,t7,t10,C_SCHEME_END_OF_LIST,t3);}} /* k2673 in loop in chicken.sort#topological-sort in k807 */ static void C_ccall f_2675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2675,2,av);} /* data-structures.scm:550: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2654(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k807 */ static void C_ccall f_809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(107,c,7)))){ C_save_and_reclaim((void *)f_809,2,av);} a=C_alloc(107); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate((C_word*)lf[2]+1 /* (set! chicken.string#reverse-string-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_811,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[4]+1 /* (set! chicken.string#reverse-list->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_884,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[6]+1 /* (set! chicken.string#->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_890,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[12]+1 /* (set! chicken.string#conc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_935,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_982,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp); t9=C_mutate((C_word*)lf[16]+1 /* (set! ##sys#substring-index ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1056,a[2]=t8,a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp)); t10=C_mutate((C_word*)lf[18]+1 /* (set! ##sys#substring-index-ci ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1065,a[2]=t8,a[3]=((C_word)li12),tmp=(C_word)a,a+=4,tmp)); t11=C_mutate((C_word*)lf[20]+1 /* (set! chicken.string#substring-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1074,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[21]+1 /* (set! chicken.string#substring-index-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1089,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[22]+1 /* (set! chicken.string#string-compare3 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1104,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate((C_word*)lf[24]+1 /* (set! chicken.string#string-compare3-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1135,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate((C_word*)lf[26]+1 /* (set! ##sys#substring=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1166,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[28]+1 /* (set! chicken.string#substring=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1203,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[29]+1 /* (set! ##sys#substring-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1263,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[31]+1 /* (set! chicken.string#substring-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1300,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[32]+1 /* (set! chicken.string#string-split ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1360,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[36]+1 /* (set! chicken.string#string-intersperse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1494,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[42]+1 /* (set! chicken.string#string-translate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1596,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[48]+1 /* (set! chicken.string#string-translate* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1801,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate((C_word*)lf[52]+1 /* (set! chicken.string#string-chop ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1929,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate((C_word*)lf[54]+1 /* (set! chicken.string#string-chomp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1993,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t25=C_a_i_provide(&a,1,lf[57]); t26=C_mutate((C_word*)lf[58]+1 /* (set! chicken.sort#sorted? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2032,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate((C_word*)lf[59]+1 /* (set! chicken.sort#merge ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2137,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate((C_word*)lf[60]+1 /* (set! chicken.sort#merge! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2228,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate((C_word*)lf[61]+1 /* (set! chicken.sort#sort! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2352,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate((C_word*)lf[63]+1 /* (set! chicken.sort#sort ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2480,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate((C_word*)lf[66]+1 /* (set! chicken.sort#topological-sort ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2507,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t32=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t32; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t32+1)))(2,av2);}} /* chicken.string#reverse-string-append in k807 */ static void C_ccall f_811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_811,3,av);} a=C_alloc(6); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_814,a[2]=t4,a[3]=((C_word)li1),tmp=(C_word)a,a+=4,tmp)); /* data-structures.scm:61: rev-string-append */ t6=((C_word*)t4)[1]; f_814(t6,t1,t2,C_fix(0));} /* rev-string-append in chicken.string#reverse-string-append in k807 */ static void C_fcall f_814(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_814,4,t0,t1,t2,t3);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_car(t4); t6=C_i_string_length(t5); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_828,a[2]=t3,a[3]=t7,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t9=t2; t10=C_u_i_cdr(t9); t11=C_fixnum_plus(t3,t7); /* data-structures.scm:53: rev-string-append */ t13=t8; t14=t10; t15=t11; t1=t13; t2=t14; t3=t15; goto loop;} else{ /* data-structures.scm:60: scheme#make-string */ t4=*((C_word*)lf[3]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t1; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k826 in rev-string-append in chicken.string#reverse-string-append in k807 */ static void C_ccall f_828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_828,2,av);} a=C_alloc(6); t2=t1; t3=C_i_string_length(t2); t4=C_fixnum_difference(t3,((C_word*)t0)[2]); t5=C_fixnum_difference(t4,((C_word*)t0)[3]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_837,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word)li0),tmp=(C_word)a,a+=6,tmp); t7=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t7; av2[1]=( f_837(t6,C_fix(0),t5) ); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* loop in k826 in rev-string-append in chicken.string#reverse-string-append in k807 */ static C_word C_fcall f_837(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_stack_overflow_check; loop:{} if(C_truep(C_fixnum_lessp(t1,((C_word*)t0)[2]))){ t3=C_i_string_ref(((C_word*)t0)[3],t1); t4=C_i_string_set(((C_word*)t0)[4],t2,t3); t5=C_fixnum_plus(t1,C_fix(1)); t6=C_fixnum_plus(t2,C_fix(1)); t8=t5; t9=t6; t1=t8; t2=t9; goto loop;} else{ return(((C_word*)t0)[4]);}} /* chicken.string#reverse-list->string in k807 */ static void C_ccall f_884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_884,3,av);} /* data-structures.scm:64: ##sys#reverse-list->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[5]); C_word *av2=av; av2[0]=*((C_word*)lf[5]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} /* chicken.string#->string in k807 */ static void C_ccall f_890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_890,3,av);} a=C_alloc(4); if(C_truep(C_i_stringp(t2))){ t3=t2; t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ /* data-structures.scm:71: scheme#symbol->string */ t3=*((C_word*)lf[7]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ if(C_truep(C_charp(t2))){ t3=t1;{ C_word *av2=av; av2[0]=t3; av2[1]=C_a_i_string(&a,1,t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_i_numberp(t2))){ /* data-structures.scm:73: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[8]); C_word *av2=av; av2[0]=*((C_word*)lf[8]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_927,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:75: chicken.base#open-output-string */ t4=C_fast_retrieve(lf[11]);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}} /* k925 in chicken.string#->string in k807 */ static void C_ccall f_927(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_927,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_930,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* data-structures.scm:76: scheme#display */ t4=*((C_word*)lf[10]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k928 in k925 in chicken.string#->string in k807 */ static void C_ccall f_930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_930,2,av);} /* data-structures.scm:77: chicken.base#get-output-string */ t2=C_fast_retrieve(lf[9]);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* chicken.string#conc in k807 */ static void C_ccall f_935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +17,c,3)))){ C_save_and_reclaim((void*)f_935,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+17); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=*((C_word*)lf[6]+1); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_946,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_948,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li5),tmp=(C_word)a,a+=7,tmp)); t12=((C_word*)t10)[1]; f_948(t12,t8,t2);} /* k944 in chicken.string#conc in k807 */ static void C_ccall f_946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_946,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[13]+1); av2[3]=t1; C_apply(4,av2);}} /* map-loop80 in chicken.string#conc in k807 */ static void C_fcall f_948(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_948,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_973,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* data-structures.scm:81: g86 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k971 in map-loop80 in chicken.string#conc in k807 */ static void C_ccall f_973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_973,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_948(t6,((C_word*)t0)[5],t5);} /* traverse in k807 */ static void C_fcall f_982(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_982,6,t1,t2,t3,t4,t5,t6);} a=C_alloc(9); t7=C_i_check_string_2(t2,t6); t8=C_i_check_string_2(t3,t6); t9=C_block_size(t3); t10=t9; t11=C_block_size(t2); t12=t11; t13=C_fixnum_difference(t10,t12); t14=t13; t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1001,a[2]=t4,a[3]=t10,a[4]=t12,a[5]=t1,a[6]=t14,a[7]=t5,a[8]=t6,tmp=(C_word)a,a+=9,tmp); /* data-structures.scm:93: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[15]); C_word av2[4]; av2[0]=*((C_word*)lf[15]+1); av2[1]=t15; av2[2]=t4; av2[3]=t6; tp(4,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("data-structures")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_data_2dstructures_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(562))){ C_save(t1); C_rereclaim2(562*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,83); lf[0]=C_h_intern(&lf[0],15, C_text("data-structures")); lf[1]=C_h_intern(&lf[1],15, C_text("chicken.string#")); lf[2]=C_h_intern(&lf[2],36, C_text("chicken.string#reverse-string-append")); lf[3]=C_h_intern(&lf[3],18, C_text("scheme#make-string")); lf[4]=C_h_intern(&lf[4],35, C_text("chicken.string#reverse-list->string")); lf[5]=C_h_intern(&lf[5],26, C_text("##sys#reverse-list->string")); lf[6]=C_h_intern(&lf[6],23, C_text("chicken.string#->string")); lf[7]=C_h_intern(&lf[7],21, C_text("scheme#symbol->string")); lf[8]=C_h_intern(&lf[8],20, C_text("##sys#number->string")); lf[9]=C_h_intern(&lf[9],30, C_text("chicken.base#get-output-string")); lf[10]=C_h_intern(&lf[10],14, C_text("scheme#display")); lf[11]=C_h_intern(&lf[11],31, C_text("chicken.base#open-output-string")); lf[12]=C_h_intern(&lf[12],19, C_text("chicken.string#conc")); lf[13]=C_h_intern(&lf[13],20, C_text("scheme#string-append")); lf[14]=C_h_intern(&lf[14],16, C_text("##sys#error-hook")); lf[15]=C_h_intern(&lf[15],18, C_text("##sys#check-fixnum")); lf[16]=C_h_intern(&lf[16],21, C_text("##sys#substring-index")); lf[17]=C_h_intern(&lf[17],15, C_text("substring-index")); lf[18]=C_h_intern(&lf[18],24, C_text("##sys#substring-index-ci")); lf[19]=C_h_intern(&lf[19],18, C_text("substring-index-ci")); lf[20]=C_h_intern(&lf[20],30, C_text("chicken.string#substring-index")); lf[21]=C_h_intern(&lf[21],33, C_text("chicken.string#substring-index-ci")); lf[22]=C_h_intern(&lf[22],30, C_text("chicken.string#string-compare3")); lf[23]=C_h_intern(&lf[23],15, C_text("string-compare3")); lf[24]=C_h_intern(&lf[24],33, C_text("chicken.string#string-compare3-ci")); lf[25]=C_h_intern(&lf[25],18, C_text("string-compare3-ci")); lf[26]=C_h_intern(&lf[26],17, C_text("##sys#substring=\077")); lf[27]=C_h_intern(&lf[27],11, C_text("substring=\077")); lf[28]=C_h_intern(&lf[28],26, C_text("chicken.string#substring=\077")); lf[29]=C_h_intern(&lf[29],20, C_text("##sys#substring-ci=\077")); lf[30]=C_h_intern(&lf[30],14, C_text("substring-ci=\077")); lf[31]=C_h_intern(&lf[31],29, C_text("chicken.string#substring-ci=\077")); lf[32]=C_h_intern(&lf[32],27, C_text("chicken.string#string-split")); lf[33]=C_h_intern(&lf[33],12, C_text("string-split")); lf[34]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\011\012 ")); lf[35]=C_h_intern(&lf[35],15, C_text("##sys#substring")); lf[36]=C_h_intern(&lf[36],33, C_text("chicken.string#string-intersperse")); lf[37]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[38]=C_h_intern(&lf[38],18, C_text("string-intersperse")); lf[39]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[40]=C_h_intern(&lf[40],21, C_text("##sys#allocate-vector")); lf[41]=C_h_intern(&lf[41],29, C_text("##sys#error-not-a-proper-list")); lf[42]=C_h_intern(&lf[42],31, C_text("chicken.string#string-translate")); lf[43]=C_h_intern(&lf[43],16, C_text("string-translate")); lf[44]=C_h_intern(&lf[44],11, C_text("##sys#error")); lf[45]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037invalid translation destination")); lf[46]=C_h_intern(&lf[46],17, C_text("##sys#make-string")); lf[47]=C_h_intern(&lf[47],18, C_text("##sys#list->string")); lf[48]=C_h_intern(&lf[48],32, C_text("chicken.string#string-translate\052")); lf[49]=C_h_intern(&lf[49],17, C_text("string-translate\052")); lf[50]=C_h_intern(&lf[50],23, C_text("##sys#fragments->string")); lf[51]=C_h_intern(&lf[51],18, C_text("##sys#fast-reverse")); lf[52]=C_h_intern(&lf[52],26, C_text("chicken.string#string-chop")); lf[53]=C_h_intern(&lf[53],11, C_text("string-chop")); lf[54]=C_h_intern(&lf[54],27, C_text("chicken.string#string-chomp")); lf[55]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012")); lf[56]=C_h_intern(&lf[56],12, C_text("string-chomp")); lf[57]=C_h_intern(&lf[57],13, C_text("chicken.sort#")); lf[58]=C_h_intern(&lf[58],20, C_text("chicken.sort#sorted\077")); lf[59]=C_h_intern(&lf[59],18, C_text("chicken.sort#merge")); lf[60]=C_h_intern(&lf[60],19, C_text("chicken.sort#merge!")); lf[61]=C_h_intern(&lf[61],18, C_text("chicken.sort#sort!")); lf[62]=C_h_intern(&lf[62],19, C_text("scheme#vector->list")); lf[63]=C_h_intern(&lf[63],17, C_text("chicken.sort#sort")); lf[64]=C_h_intern(&lf[64],19, C_text("scheme#list->vector")); lf[65]=C_h_intern(&lf[65],13, C_text("scheme#append")); lf[66]=C_h_intern(&lf[66],29, C_text("chicken.sort#topological-sort")); lf[67]=C_h_intern(&lf[67],4, C_text("grey")); lf[68]=C_h_intern(&lf[68],3, C_text("exn")); lf[69]=C_h_intern(&lf[69],7, C_text("message")); lf[70]=C_h_intern(&lf[70],9, C_text("arguments")); lf[71]=C_h_intern(&lf[71],10, C_text("call-chain")); lf[72]=C_h_intern(&lf[72],8, C_text("location")); lf[73]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016cycle detected")); lf[74]=C_h_intern(&lf[74],16, C_text("topological-sort")); lf[75]=C_h_intern(&lf[75],9, C_text("condition")); lf[76]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\003\000\000\002\376\001\000\000\007\001runtime\376\003\000\000\002\376\001\000\000\005\001cycle\376\377\016")); lf[77]=C_h_intern(&lf[77],23, C_text("chicken.condition#abort")); lf[78]=C_h_intern(&lf[78],27, C_text("chicken.base#get-call-chain")); lf[79]=C_h_intern(&lf[79],14, C_text("scheme#reverse")); lf[80]=C_h_intern(&lf[80],5, C_text("black")); lf[81]=C_h_intern(&lf[81],26, C_text("chicken.base#alist-update!")); lf[82]=C_h_intern(&lf[82],22, C_text("chicken.base#alist-ref")); C_register_lf2(lf,83,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_809,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[112] = { {C_text("f_1001:data_2dstructures_2escm"),(void*)f_1001}, {C_text("f_1024:data_2dstructures_2escm"),(void*)f_1024}, {C_text("f_1037:data_2dstructures_2escm"),(void*)f_1037}, {C_text("f_1056:data_2dstructures_2escm"),(void*)f_1056}, {C_text("f_1062:data_2dstructures_2escm"),(void*)f_1062}, {C_text("f_1065:data_2dstructures_2escm"),(void*)f_1065}, {C_text("f_1071:data_2dstructures_2escm"),(void*)f_1071}, {C_text("f_1074:data_2dstructures_2escm"),(void*)f_1074}, {C_text("f_1089:data_2dstructures_2escm"),(void*)f_1089}, {C_text("f_1104:data_2dstructures_2escm"),(void*)f_1104}, {C_text("f_1135:data_2dstructures_2escm"),(void*)f_1135}, {C_text("f_1166:data_2dstructures_2escm"),(void*)f_1166}, {C_text("f_1176:data_2dstructures_2escm"),(void*)f_1176}, {C_text("f_1179:data_2dstructures_2escm"),(void*)f_1179}, {C_text("f_1182:data_2dstructures_2escm"),(void*)f_1182}, {C_text("f_1203:data_2dstructures_2escm"),(void*)f_1203}, {C_text("f_1263:data_2dstructures_2escm"),(void*)f_1263}, {C_text("f_1273:data_2dstructures_2escm"),(void*)f_1273}, {C_text("f_1276:data_2dstructures_2escm"),(void*)f_1276}, {C_text("f_1279:data_2dstructures_2escm"),(void*)f_1279}, {C_text("f_1300:data_2dstructures_2escm"),(void*)f_1300}, {C_text("f_1360:data_2dstructures_2escm"),(void*)f_1360}, {C_text("f_1381:data_2dstructures_2escm"),(void*)f_1381}, {C_text("f_1396:data_2dstructures_2escm"),(void*)f_1396}, {C_text("f_1401:data_2dstructures_2escm"),(void*)f_1401}, {C_text("f_1411:data_2dstructures_2escm"),(void*)f_1411}, {C_text("f_1428:data_2dstructures_2escm"),(void*)f_1428}, {C_text("f_1467:data_2dstructures_2escm"),(void*)f_1467}, {C_text("f_1494:data_2dstructures_2escm"),(void*)f_1494}, {C_text("f_1512:data_2dstructures_2escm"),(void*)f_1512}, {C_text("f_1522:data_2dstructures_2escm"),(void*)f_1522}, {C_text("f_1527:data_2dstructures_2escm"),(void*)f_1527}, {C_text("f_1596:data_2dstructures_2escm"),(void*)f_1596}, {C_text("f_1599:data_2dstructures_2escm"),(void*)f_1599}, {C_text("f_1604:data_2dstructures_2escm"),(void*)f_1604}, {C_text("f_1610:data_2dstructures_2escm"),(void*)f_1610}, {C_text("f_1634:data_2dstructures_2escm"),(void*)f_1634}, {C_text("f_1637:data_2dstructures_2escm"),(void*)f_1637}, {C_text("f_1649:data_2dstructures_2escm"),(void*)f_1649}, {C_text("f_1654:data_2dstructures_2escm"),(void*)f_1654}, {C_text("f_1673:data_2dstructures_2escm"),(void*)f_1673}, {C_text("f_1776:data_2dstructures_2escm"),(void*)f_1776}, {C_text("f_1793:data_2dstructures_2escm"),(void*)f_1793}, {C_text("f_1801:data_2dstructures_2escm"),(void*)f_1801}, {C_text("f_1813:data_2dstructures_2escm"),(void*)f_1813}, {C_text("f_1827:data_2dstructures_2escm"),(void*)f_1827}, {C_text("f_1841:data_2dstructures_2escm"),(void*)f_1841}, {C_text("f_1846:data_2dstructures_2escm"),(void*)f_1846}, {C_text("f_1886:data_2dstructures_2escm"),(void*)f_1886}, {C_text("f_1912:data_2dstructures_2escm"),(void*)f_1912}, {C_text("f_1929:data_2dstructures_2escm"),(void*)f_1929}, {C_text("f_1936:data_2dstructures_2escm"),(void*)f_1936}, {C_text("f_1944:data_2dstructures_2escm"),(void*)f_1944}, {C_text("f_1964:data_2dstructures_2escm"),(void*)f_1964}, {C_text("f_1975:data_2dstructures_2escm"),(void*)f_1975}, {C_text("f_1979:data_2dstructures_2escm"),(void*)f_1979}, {C_text("f_1993:data_2dstructures_2escm"),(void*)f_1993}, {C_text("f_2032:data_2dstructures_2escm"),(void*)f_2032}, {C_text("f_2059:data_2dstructures_2escm"),(void*)f_2059}, {C_text("f_2069:data_2dstructures_2escm"),(void*)f_2069}, {C_text("f_2107:data_2dstructures_2escm"),(void*)f_2107}, {C_text("f_2131:data_2dstructures_2escm"),(void*)f_2131}, {C_text("f_2137:data_2dstructures_2escm"),(void*)f_2137}, {C_text("f_2167:data_2dstructures_2escm"),(void*)f_2167}, {C_text("f_2174:data_2dstructures_2escm"),(void*)f_2174}, {C_text("f_2194:data_2dstructures_2escm"),(void*)f_2194}, {C_text("f_2220:data_2dstructures_2escm"),(void*)f_2220}, {C_text("f_2228:data_2dstructures_2escm"),(void*)f_2228}, {C_text("f_2231:data_2dstructures_2escm"),(void*)f_2231}, {C_text("f_2238:data_2dstructures_2escm"),(void*)f_2238}, {C_text("f_2306:data_2dstructures_2escm"),(void*)f_2306}, {C_text("f_2309:data_2dstructures_2escm"),(void*)f_2309}, {C_text("f_2327:data_2dstructures_2escm"),(void*)f_2327}, {C_text("f_2352:data_2dstructures_2escm"),(void*)f_2352}, {C_text("f_2355:data_2dstructures_2escm"),(void*)f_2355}, {C_text("f_2368:data_2dstructures_2escm"),(void*)f_2368}, {C_text("f_2374:data_2dstructures_2escm"),(void*)f_2374}, {C_text("f_2406:data_2dstructures_2escm"),(void*)f_2406}, {C_text("f_2440:data_2dstructures_2escm"),(void*)f_2440}, {C_text("f_2447:data_2dstructures_2escm"),(void*)f_2447}, {C_text("f_2449:data_2dstructures_2escm"),(void*)f_2449}, {C_text("f_2480:data_2dstructures_2escm"),(void*)f_2480}, {C_text("f_2494:data_2dstructures_2escm"),(void*)f_2494}, {C_text("f_2498:data_2dstructures_2escm"),(void*)f_2498}, {C_text("f_2505:data_2dstructures_2escm"),(void*)f_2505}, {C_text("f_2507:data_2dstructures_2escm"),(void*)f_2507}, {C_text("f_2510:data_2dstructures_2escm"),(void*)f_2510}, {C_text("f_2514:data_2dstructures_2escm"),(void*)f_2514}, {C_text("f_2551:data_2dstructures_2escm"),(void*)f_2551}, {C_text("f_2563:data_2dstructures_2escm"),(void*)f_2563}, {C_text("f_2576:data_2dstructures_2escm"),(void*)f_2576}, {C_text("f_2582:data_2dstructures_2escm"),(void*)f_2582}, {C_text("f_2596:data_2dstructures_2escm"),(void*)f_2596}, {C_text("f_2618:data_2dstructures_2escm"),(void*)f_2618}, {C_text("f_2654:data_2dstructures_2escm"),(void*)f_2654}, {C_text("f_2675:data_2dstructures_2escm"),(void*)f_2675}, {C_text("f_809:data_2dstructures_2escm"),(void*)f_809}, {C_text("f_811:data_2dstructures_2escm"),(void*)f_811}, {C_text("f_814:data_2dstructures_2escm"),(void*)f_814}, {C_text("f_828:data_2dstructures_2escm"),(void*)f_828}, {C_text("f_837:data_2dstructures_2escm"),(void*)f_837}, {C_text("f_884:data_2dstructures_2escm"),(void*)f_884}, {C_text("f_890:data_2dstructures_2escm"),(void*)f_890}, {C_text("f_927:data_2dstructures_2escm"),(void*)f_927}, {C_text("f_930:data_2dstructures_2escm"),(void*)f_930}, {C_text("f_935:data_2dstructures_2escm"),(void*)f_935}, {C_text("f_946:data_2dstructures_2escm"),(void*)f_946}, {C_text("f_948:data_2dstructures_2escm"),(void*)f_948}, {C_text("f_973:data_2dstructures_2escm"),(void*)f_973}, {C_text("f_982:data_2dstructures_2escm"),(void*)f_982}, {C_text("toplevel:data_2dstructures_2escm"),(void*)C_data_2dstructures_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* S|applied compiler syntax: S| scheme#map 1 o|eliminated procedure checks: 17 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|eliminated procedure checks: 1 o|specializations: o| 1 (scheme#cdar (pair pair *)) o| 2 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 1 (scheme#+ fixnum fixnum) o| 4 (scheme#set-cdr! pair *) o| 1 (scheme#- fixnum fixnum) o| 1 (scheme#<= fixnum fixnum) o| 1 (scheme#vector-length vector) o| 1 (scheme#make-string fixnum) o| 1 (scheme#length list) o| 1 (##sys#check-list (or pair list) *) o| 22 (scheme#cdr pair) o| 3 (scheme#car pair) (o e)|safe calls: 311 o|safe globals: (chicken.sort#topological-sort chicken.sort#sort chicken.sort#sort! chicken.sort#merge! chicken.sort#merge chicken.sort#sorted? chicken.string#string-chomp chicken.string#string-chop chicken.string#string-translate* chicken.string#string-translate chicken.string#string-intersperse chicken.string#string-split chicken.string#substring-ci=? ##sys#substring-ci=? chicken.string#substring=? ##sys#substring=? chicken.string#string-compare3-ci chicken.string#string-compare3 chicken.string#substring-index-ci chicken.string#substring-index ##sys#substring-index-ci ##sys#substring-index chicken.string#conc chicken.string#->string chicken.string#reverse-list->string chicken.string#reverse-string-append) o|inlining procedure: k816 o|inlining procedure: k839 o|inlining procedure: k839 o|inlining procedure: k816 o|inlining procedure: k892 o|inlining procedure: k892 o|inlining procedure: k907 o|inlining procedure: k907 o|inlining procedure: k950 o|inlining procedure: k950 o|inlining procedure: k1002 o|inlining procedure: k1014 o|inlining procedure: k1026 o|inlining procedure: k1026 o|inlining procedure: k1014 o|inlining procedure: k1002 o|inlining procedure: k1125 o|inlining procedure: k1125 o|inlining procedure: k1156 o|inlining procedure: k1156 o|inlining procedure: k1386 o|inlining procedure: k1386 o|inlining procedure: k1403 o|inlining procedure: k1403 o|inlining procedure: k1430 o|inlining procedure: k1430 o|inlining procedure: k1452 o|inlining procedure: k1452 o|inlining procedure: k1514 o|inlining procedure: k1541 o|inlining procedure: k1541 o|inlining procedure: k1514 o|inlining procedure: k1612 o|inlining procedure: k1612 o|inlining procedure: k1656 o|inlining procedure: k1656 o|inlining procedure: k1691 o|inlining procedure: k1691 o|inlining procedure: k1721 o|inlining procedure: k1721 o|inlining procedure: k1755 o|inlining procedure: k1755 o|inlining procedure: k1781 o|inlining procedure: k1781 o|inlining procedure: k1815 o|inlining procedure: k1829 o|inlining procedure: k1829 o|inlining procedure: k1815 o|inlining procedure: k1848 o|inlining procedure: k1848 o|inlining procedure: k1946 o|inlining procedure: k1946 o|inlining procedure: k2013 o|inlining procedure: k2013 o|inlining procedure: k2034 o|inlining procedure: k2034 o|inlining procedure: k2049 o|inlining procedure: k2049 o|inlining procedure: k2061 o|inlining procedure: k2061 o|substituted constant variable: a2093 o|substituted constant variable: a2095 o|inlining procedure: k2112 o|inlining procedure: k2112 o|inlining procedure: k2139 o|inlining procedure: k2139 o|inlining procedure: k2169 o|inlining procedure: k2169 o|inlining procedure: k2233 o|inlining procedure: k2233 o|inlining procedure: k2289 o|inlining procedure: k2289 o|inlining procedure: k2301 o|inlining procedure: k2301 o|inlining procedure: k2357 o|inlining procedure: k2357 o|inlining procedure: k2415 o|inlining procedure: k2415 o|inlining procedure: k2428 o|inlining procedure: k2451 o|inlining procedure: k2451 o|substituted constant variable: a2467 o|inlining procedure: k2428 o|inlining procedure: k2482 o|inlining procedure: k2482 o|inlining procedure: k2515 o|inlining procedure: k2515 o|inlining procedure: k2584 o|inlining procedure: k2584 o|substituted constant variable: a2639 o|substituted constant variable: a2641 o|inlining procedure: k2656 o|inlining procedure: k2656 o|replaced variables: 287 o|removed binding forms: 104 o|substituted constant variable: r10272703 o|substituted constant variable: r10152705 o|converted assignments to bindings: (add258) o|substituted constant variable: r16132725 o|converted assignments to bindings: (instring336) o|substituted constant variable: r19472745 o|substituted constant variable: r20352749 o|substituted constant variable: r20502751 o|substituted constant variable: r24162770 o|converted assignments to bindings: (traverse104) o|simplifications: ((let . 3)) o|replaced variables: 10 o|removed binding forms: 288 o|inlining procedure: k1076 o|inlining procedure: k1091 o|inlining procedure: k1220 o|inlining procedure: k1317 o|inlining procedure: k1409 o|removed binding forms: 18 o|substituted constant variable: r10772868 o|substituted constant variable: r10922869 o|removed binding forms: 3 o|removed binding forms: 2 o|simplifications: ((if . 27) (##core#call . 287)) o| call simplifications: o| scheme#caar o| ##sys#cons 4 o| ##sys#list o| ##sys#make-structure o| scheme#length o| scheme#vector-length o| scheme#vector-set! o| scheme#> o| scheme#cddr o| scheme#set-car! 2 o| scheme#quotient o| scheme#- o| scheme#set-cdr! 4 o| scheme#vector? 3 o| scheme#vector-ref 2 o| scheme#+ o| scheme#= 4 o| scheme#list 4 o| chicken.fixnum#fx<= 4 o| scheme#list->string 2 o| scheme#not 3 o| ##sys#check-list 2 o| scheme#cadr 2 o| scheme#eq? 5 o| scheme#cdr 10 o| chicken.fixnum#fxmin 2 o| scheme#null? 33 o| scheme#car 28 o| ##sys#check-string 21 o| ##sys#size 23 o| chicken.fixnum#fx= 4 o| chicken.fixnum#fx>= 10 o| chicken.fixnum#fx> 5 o| scheme#cons 21 o| ##sys#setslot 6 o| ##sys#slot 8 o| scheme#apply o| scheme#string? 2 o| scheme#symbol? o| scheme#char? 4 o| scheme#number? o| scheme#string o| scheme#pair? 5 o| scheme#string-length 4 o| chicken.fixnum#fx- 12 o| chicken.fixnum#fx< 4 o| scheme#string-ref o| scheme#string-set! o| chicken.fixnum#fx+ 27 o|contracted procedure: k819 o|contracted procedure: k823 o|contracted procedure: k868 o|contracted procedure: k864 o|contracted procedure: k833 o|contracted procedure: k842 o|contracted procedure: k860 o|contracted procedure: k845 o|contracted procedure: k852 o|contracted procedure: k856 o|contracted procedure: k874 o|contracted procedure: k895 o|contracted procedure: k901 o|contracted procedure: k910 o|contracted procedure: k919 o|contracted procedure: k941 o|contracted procedure: k953 o|contracted procedure: k956 o|contracted procedure: k959 o|contracted procedure: k967 o|contracted procedure: k975 o|contracted procedure: k984 o|contracted procedure: k987 o|contracted procedure: k990 o|contracted procedure: k993 o|contracted procedure: k996 o|contracted procedure: k1049 o|contracted procedure: k1005 o|contracted procedure: k1011 o|contracted procedure: k1017 o|contracted procedure: k1029 o|contracted procedure: k1042 o|contracted procedure: k1082 o|contracted procedure: k1076 o|contracted procedure: k1097 o|contracted procedure: k1091 o|contracted procedure: k1106 o|contracted procedure: k1109 o|contracted procedure: k1112 o|contracted procedure: k1115 o|contracted procedure: k1118 o|contracted procedure: k1131 o|contracted procedure: k1122 o|contracted procedure: k1128 o|contracted procedure: k1137 o|contracted procedure: k1140 o|contracted procedure: k1143 o|contracted procedure: k1146 o|contracted procedure: k1149 o|contracted procedure: k1162 o|contracted procedure: k1153 o|contracted procedure: k1159 o|contracted procedure: k1168 o|contracted procedure: k1171 o|contracted procedure: k1199 o|contracted procedure: k1187 o|contracted procedure: k1195 o|contracted procedure: k1191 o|contracted procedure: k1256 o|contracted procedure: k1205 o|contracted procedure: k1250 o|contracted procedure: k1208 o|contracted procedure: k1244 o|contracted procedure: k1211 o|contracted procedure: k1238 o|contracted procedure: k1214 o|contracted procedure: k1232 o|contracted procedure: k1217 o|contracted procedure: k1226 o|contracted procedure: k1220 o|contracted procedure: k1265 o|contracted procedure: k1268 o|contracted procedure: k1296 o|contracted procedure: k1284 o|contracted procedure: k1292 o|contracted procedure: k1288 o|contracted procedure: k1353 o|contracted procedure: k1302 o|contracted procedure: k1347 o|contracted procedure: k1305 o|contracted procedure: k1341 o|contracted procedure: k1308 o|contracted procedure: k1335 o|contracted procedure: k1311 o|contracted procedure: k1329 o|contracted procedure: k1314 o|contracted procedure: k1323 o|contracted procedure: k1317 o|contracted procedure: k1362 o|contracted procedure: k1487 o|contracted procedure: k1365 o|contracted procedure: k1479 o|contracted procedure: k1368 o|contracted procedure: k1371 o|contracted procedure: k1374 o|contracted procedure: k1377 o|contracted procedure: k1383 o|contracted procedure: k1386 o|contracted procedure: k1406 o|contracted procedure: k1415 o|contracted procedure: k1418 o|contracted procedure: k1433 o|contracted procedure: k1440 o|contracted procedure: k1446 o|contracted procedure: k1449 o|contracted procedure: k1455 o|contracted procedure: k1458 o|contracted procedure: k1475 o|contracted procedure: k1589 o|contracted procedure: k1496 o|contracted procedure: k1499 o|contracted procedure: k1502 o|contracted procedure: k1505 o|contracted procedure: k1529 o|contracted procedure: k1532 o|contracted procedure: k1535 o|contracted procedure: k1538 o|contracted procedure: k1548 o|contracted procedure: k1552 o|contracted procedure: k1558 o|contracted procedure: k1561 o|contracted procedure: k1564 o|contracted procedure: k1571 o|contracted procedure: k1579 o|contracted procedure: k1583 o|contracted procedure: k1575 o|contracted procedure: k1601 o|contracted procedure: k1615 o|contracted procedure: k1621 o|contracted procedure: k1628 o|contracted procedure: k1743 o|contracted procedure: k1638 o|contracted procedure: k1641 o|contracted procedure: k1644 o|contracted procedure: k1659 o|contracted procedure: k1665 o|contracted procedure: k1677 o|contracted procedure: k1684 o|contracted procedure: k1688 o|contracted procedure: k1694 o|contracted procedure: k1701 o|contracted procedure: k1707 o|contracted procedure: k1714 o|contracted procedure: k1718 o|contracted procedure: k1724 o|contracted procedure: k1735 o|contracted procedure: k1739 o|contracted procedure: k1749 o|contracted procedure: k1752 o|contracted procedure: k1758 o|contracted procedure: k1764 o|contracted procedure: k1770 o|contracted procedure: k1773 o|contracted procedure: k1784 o|contracted procedure: k1794 o|contracted procedure: k1803 o|contracted procedure: k1806 o|contracted procedure: k1809 o|contracted procedure: k1818 o|contracted procedure: k1832 o|contracted procedure: k1829 o|contracted procedure: k1851 o|contracted procedure: k1858 o|contracted procedure: k1862 o|contracted procedure: k1865 o|contracted procedure: k1868 o|contracted procedure: k1871 o|contracted procedure: k1922 o|contracted procedure: k1918 o|contracted procedure: k1878 o|contracted procedure: k1881 o|contracted procedure: k1899 o|contracted procedure: k1891 o|contracted procedure: k1895 o|contracted procedure: k1902 o|contracted procedure: k1906 o|contracted procedure: k1931 o|contracted procedure: k1937 o|contracted procedure: k1949 o|contracted procedure: k1955 o|contracted procedure: k1966 o|contracted procedure: k1981 o|contracted procedure: k1985 o|contracted procedure: k1989 o|contracted procedure: k2025 o|contracted procedure: k1995 o|contracted procedure: k1998 o|contracted procedure: k2001 o|contracted procedure: k2004 o|contracted procedure: k2007 o|contracted procedure: k2010 o|contracted procedure: k2022 o|contracted procedure: k2016 o|contracted procedure: k2037 o|contracted procedure: k2043 o|contracted procedure: k2046 o|contracted procedure: k2052 o|contracted procedure: k2064 o|contracted procedure: k2077 o|contracted procedure: k2084 o|contracted procedure: k2088 o|contracted procedure: k2101 o|contracted procedure: k2109 o|contracted procedure: k2118 o|contracted procedure: k2133 o|contracted procedure: k2142 o|contracted procedure: k2148 o|contracted procedure: k2155 o|contracted procedure: k2161 o|contracted procedure: k2178 o|contracted procedure: k2185 o|contracted procedure: k2196 o|contracted procedure: k2204 o|contracted procedure: k2211 o|contracted procedure: k2222 o|contracted procedure: k2239 o|contracted procedure: k2245 o|contracted procedure: k2260 o|contracted procedure: k2266 o|contracted procedure: k2282 o|contracted procedure: k2286 o|contracted procedure: k2292 o|contracted procedure: k2298 o|contracted procedure: k2310 o|inlining procedure: k2307 o|contracted procedure: k2328 o|inlining procedure: k2325 o|contracted procedure: k2344 o|contracted procedure: k2348 o|contracted procedure: k2360 o|contracted procedure: k2363 o|contracted procedure: k2369 o|contracted procedure: k2381 o|contracted procedure: k2384 o|contracted procedure: k2387 o|contracted procedure: k2391 o|contracted procedure: k2401 o|contracted procedure: k2397 o|contracted procedure: k2407 o|contracted procedure: k2418 o|contracted procedure: k2422 o|contracted procedure: k2425 o|contracted procedure: k2431 o|contracted procedure: k2434 o|contracted procedure: k2454 o|contracted procedure: k2469 o|contracted procedure: k2457 o|contracted procedure: k2476 o|contracted procedure: k2485 o|contracted procedure: k2518 o|contracted procedure: k2533 o|contracted procedure: k2537 o|contracted procedure: k2557 o|contracted procedure: k2541 o|contracted procedure: k2545 o|contracted procedure: k2553 o|contracted procedure: k2529 o|contracted procedure: k2525 o|contracted procedure: k2567 o|contracted procedure: k2630 o|contracted procedure: k2624 o|contracted procedure: k2578 o|contracted procedure: k2587 o|contracted procedure: k2598 o|contracted procedure: k2604 o|contracted procedure: k2607 o|contracted procedure: k2620 o|contracted procedure: k2643 o|contracted procedure: k2684 o|contracted procedure: k2688 o|contracted procedure: k2650 o|contracted procedure: k2659 o|contracted procedure: k2669 o|contracted procedure: k2677 o|simplifications: ((let . 55)) o|removed binding forms: 272 o|inlining procedure: k2394 o|inlining procedure: k2394 o|substituted constant variable: r2685 o|substituted constant variable: r2685 o|substituted constant variable: r2689 o|replaced variables: 122 o|removed binding forms: 65 o|direct leaf routine/allocation: loop60 0 o|direct leaf routine/allocation: loop2316 0 o|direct leaf routine/allocation: loop340 0 o|converted assignments to bindings: (loop60) o|converted assignments to bindings: (loop2316) o|converted assignments to bindings: (loop340) o|simplifications: ((let . 3)) o|customizable procedures: (loop574 visit551 walk566 doloop537538 step515 loop503 loop489 loop473 doloop466467 loop407 loop390 k1884 collect385 instring336 loop366 loop1308 scan280 loop264 add258 k1271 k1174 traverse104 loop115 map-loop8097 rev-string-append54) o|calls to known targets: 67 o|identified direct recursive calls: f_837 1 o|identified direct recursive calls: f_814 1 o|identified direct recursive calls: f_1428 1 o|identified direct recursive calls: f_1527 1 o|identified direct recursive calls: f_1512 1 o|identified direct recursive calls: f_1610 1 o|identified direct recursive calls: f_1846 1 o|identified direct recursive calls: f_2355 1 o|identified direct recursive calls: f_2449 1 o|fast box initializations: 19 o|dropping unused closure argument: f_1599 o|dropping unused closure argument: f_982 */ /* end of file */ ��������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/lfa2.scm������������������������������������������������������������������������������0000644�0001750�0001750�00000046232�13502227553�014272� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; lfa2.scm - a lightweight "secondary" flow analysis ; ; Copyright (c) 2012-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. ;; This pass does a lightweight flow-analysis on value types, mostly ;; to handle the case where user code performs a type-check followed ;; by inlined accessors (for example when using record structures). ;; Specialization takes place before inlining, so even though we have ;; the type-information, later inlining will still keep the code for ;; checking argument types. Additionally, this pass detects unboxing ;; opportunities for floating point values and replaces uses of certain ;; fp operations with unboxed ones. (declare (unit lfa2) (uses extras support)) (module chicken.compiler.lfa2 (perform-secondary-flow-analysis perform-unboxing) (import scheme chicken.base chicken.compiler.support chicken.fixnum chicken.format chicken.keyword) (include "tweaks") (include "mini-srfi-1.scm") ;;; Maps checks to types (define +type-check-map+ '(("C_i_check_closure" procedure) ("C_i_check_exact" fixnum bignum integer ratnum) ("C_i_check_inexact" float) ; Or an inexact cplxnum... ("C_i_check_number" fixnum integer bignum ratnum float cplxnum number) ("C_i_check_string" string) ("C_i_check_bytevector" blob) ("C_i_check_symbol" symbol) ("C_i_check_keyword" keyword) ("C_i_check_list" null pair list) ("C_i_check_pair" pair) ("C_i_check_locative" locative) ("C_i_check_boolean" boolean) ("C_i_check_vector" vector) ("C_i_check_structure" *struct*) ; special case ("C_i_check_char" char) ("C_i_check_closure_2" procedure) ("C_i_check_exact_2" fixnum bignum integer ratnum) ("C_i_check_inexact_2" float) ; Or an inexact cplxnum... ("C_i_check_number_2" fixnum integer bignum ratnum float cplxnum number) ("C_i_check_string_2" string) ("C_i_check_bytevector_2" blob) ("C_i_check_symbol_2" symbol) ("C_i_check_keyword_2" keyword) ("C_i_check_list_2" null pair list) ("C_i_check_pair_2" pair) ("C_i_check_locative_2" locative) ("C_i_check_boolean_2" boolean) ("C_i_check_vector_2" vector) ("C_i_check_structure_2" *struct*) ; special case ("C_i_check_char_2" char))) ;; Maps predicates to types (define +predicate-map+ '(("C_i_closurep" procedure) ("C_fixnump" fixnum) ("C_bignump" bignum) ("C_i_exact_integerp" integer fixnum bignum) ("C_i_flonump" float) ("C_i_numberp" number fixnum integer bignum ratnum float cplxnum) ("C_i_ratnump" ratnum) ("C_i_cplxnump" cplxnum) ("C_stringp" string) ("C_bytevectorp" blob) ("C_i_keywordp" keyword) ("C_i_symbolp" symbol) ("C_i_listp" list) ("C_i_pairp" pair) ("C_locativep" locative) ("C_booleanp" boolean) ("C_i_vectorp" vector) ("C_structurep" struct) ("C_i_structurep" *struct*) ; special case ("C_charp" char) ("C_i_portp" port) ("C_i_nullp" null))) ;; Maps foreign type checks to types (define +ffi-type-check-map+ '(("C_i_foreign_fixnum_argumentp" fixnum) ("C_i_foreign_integer_argumentp" integer fixnum bignum) ("C_i_foreign_char_argumentp" char) ("C_i_foreign_flonum_argumentp" float) ("C_i_foreign_string_argumentp" string) ("C_i_foreign_symbol_argumentp" symbol))) ;; Maps constructors to types (define +constructor-map+ '(("C_a_i_record1" *struct*) ; special case ("C_a_i_record2" *struct*) ("C_a_i_record3" *struct*) ("C_a_i_record4" *struct*) ("C_a_i_record5" *struct*) ("C_a_i_record6" *struct*) ("C_a_i_record7" *struct*) ("C_a_i_record8" *struct*) ("C_a_i_record" *struct*) ("C_a_i_string" string) ("C_a_i_port" port) ("C_a_i_vector1" vector) ("C_a_i_vector2" vector) ("C_a_i_vector3" vector) ("C_a_i_vector4" vector) ("C_a_i_vector5" vector) ("C_a_i_vector6" vector) ("C_a_i_vector7" vector) ("C_a_i_vector8" vector) ("C_a_pair" pair) ("C_a_i_bytevector" blob) ("C_a_i_make_locative" locative) ("C_a_i_vector" vector) ("C_a_i_list1" pair) ("C_a_i_list2" pair) ("C_a_i_list3" pair) ("C_a_i_list4" pair) ("C_a_i_list5" pair) ("C_a_i_list6" pair) ("C_a_i_list7" pair) ("C_a_i_list8" pair) ("C_a_i_cons" pair) ("C_a_i_flonum" float) ("C_a_i_fix_to_flo" float) ("C_a_i_big_to_flo" float) ("C_a_i_fix_to_big" bignum) ("C_a_i_bignum0" bignum) ("C_a_i_bignum1" bignum) ("C_a_i_bignum2" bignum) ("C_a_i_flonum_abs" float) ("C_a_i_flonum_acos" float) ("C_a_i_flonum_actual_quotient_checked" float) ("C_a_i_flonum_asin" float) ("C_a_i_flonum_atan2" float) ("C_a_i_flonum_atan" float) ("C_a_i_flonum_ceiling" float) ("C_a_i_flonum_cos" float) ("C_a_i_flonum_difference" float) ("C_a_i_flonum_exp" float) ("C_a_i_flonum_expt" float) ("C_a_i_flonum_floor" float) ("C_a_i_flonum_gcd" float) ("C_a_i_flonum_log" float) ("C_a_i_flonum_modulo_checked" float) ("C_a_i_flonum_negate" float) ("C_a_i_flonum_plus" float) ("C_a_i_flonum_quotient_checked" float) ("C_a_i_flonum_quotient" float) ("C_a_i_flonum_remainder_checked" float) ("C_a_i_flonum_round" float) ("C_a_i_flonum_round_proper" float) ("C_a_i_flonum_sin" float) ("C_a_i_flonum_sqrt" float) ("C_a_i_flonum_tan" float) ("C_a_i_flonum_times" float) ("C_a_i_flonum_truncate" float) ("C_a_u_i_f64vector_ref" float) ("C_a_u_i_f32vector_ref" float) ;;XXX are there more? )) (define +unboxed-map+ '(("C_a_i_flonum_plus" "C_ub_i_flonum_plus" op) ("C_a_i_flonum_difference" "C_ub_i_flonum_difference" op) ("C_a_i_flonum_times" "C_ub_i_flonum_times" op) ("C_a_i_flonum_quotient" "C_ub_i_flonum_quotient" op) ("C_flonum_equalp" "C_ub_i_flonum_equalp" pred) ("C_flonum_greaterp" "C_ub_i_flonum_greaterp" pred) ("C_flonum_lessp" "C_ub_i_flonum_lessp" pred) ("C_flonum_greater_or_equal_p" "C_ub_i_flonum_greater_or_equal_p" pred) ("C_flonum_less_or_equal_p" "C_ub_i_flonum_less_or_equal_p" pred) ("C_u_i_flonum_nanp" "C_ub_i_flonum_nanp" pred) ("C_u_i_flonum_infinitep" "C_ub_i_flonum_infnitep" pred) ("C_u_i_flonum_finitepp" "C_ub_i_flonum_finitep" pred) ("C_a_i_flonum_sin" "C_sin" op) ("C_a_i_flonum_cos" "C_cos" op) ("C_a_i_flonum_tan" "C_tan" op) ("C_a_i_flonum_asin" "C_asin" op) ("C_a_i_flonum_acos" "C_acos" op) ("C_a_i_flonum_atan" "C_atan" op) ("C_a_i_flonum_atan2" "C_atan2" op) ("C_a_i_flonum_exp" "C_exp" op) ("C_a_i_flonum_expr" "C_pow" op) ("C_a_i_flonum_log" "C_log" op) ("C_a_i_flonum_sqrt" "C_sqrt" op) ("C_a_i_flonum_truncate" "C_trunc" op) ("C_a_i_flonum_ceiling" "C_ceil" op) ("C_a_i_flonum_floor" "C_floor" op) ("C_a_i_flonum_round" "C_round" op) ("C_a_i_flonum_abs" "C_fabs" op) ("C_a_u_i_f32vector_ref" "C_ub_i_f32vector_ref" acc) ("C_a_u_i_f64vector_ref" "C_ub_i_f64vector_ref" acc))) ;;; Walk nodes and perform simplified type-analysis (define (perform-secondary-flow-analysis node db) (let ((stats '()) (floatvars '())) (define (constant-result lit) ;; a simplified variant of the one in scrutinizer.scm (cond ((string? lit) 'string) ((keyword? lit) 'keyword) ((symbol? lit) 'symbol) ;; Do not assume fixnum width matches target platforms! ((or (big-fixnum? lit) (small-bignum? lit)) 'integer) ((fixnum? lit) 'fixnum) ((bignum? lit) 'bignum) ((flonum? lit) 'float) ((ratnum? lit) 'ratnum) ((cplxnum? lit) 'cplxnum) ((boolean? lit) 'boolean) ((null? lit) 'null) ((list? lit) 'list) ((pair? lit) 'pair) ((eof-object? lit) 'eof) ((vector? lit) 'vector) ((and (not (##sys#immediate? lit)) (##sys#generic-structure? lit)) `(struct ,(##sys#slot lit 0))) ((char? lit) 'char) (else '*))) (define (report elim) (cond ((assoc elim stats) => (lambda (a) (set-cdr! a (add1 (cdr a))))) (else (set! stats (alist-cons elim 1 stats))))) (define (assigned? var) (db-get db var 'assigned)) (define (droppable? n) (or (memq (node-class n) '(quote ##core#undefined ##core#primitive ##core#lambda)) (and (eq? '##core#variable (node-class n)) (let ((var (first (node-parameters n)))) (or (not (db-get db var 'global)) (variable-mark var '##compiler#always-bound)))))) (define (drop! n) (sub-boxed n) (node-class-set! n '##core#undefined) (node-parameters-set! n '()) (node-subexpressions-set! n '())) (define (extinguish! node rpl) ; replace ##core#inline call (report (first (node-parameters node))) (let ((subs (node-subexpressions node)) (alldropped #t)) (for-each (lambda (sn) (if (droppable? sn) (drop! sn) (set! alldropped #f))) subs) (if alldropped (drop! node) (node-parameters-set! node (list (string-append rpl (case (length (node-subexpressions node)) ((1) "1") ((2) "2") ((3) "3") (else (bomb "bad number of arguments to extinguished ##core#inline"))))))))) (define (vartype v te ae) (cond ((assq v te) => cdr) (else (let loop ((ae ae)) (cond ((null? ae) '*) ((and (eq? v (cdar ae)) (assq (caar ae) te) ) => cdr) (else (loop (cdr ae)))))))) (define (varnode? n) (eq? '##core#variable (node-class n))) (define (floatvar? var) (assq var floatvars)) (define (eliminate-floatvar var) (set! floatvars (remove (lambda (a) (eq? var (car a))) floatvars))) (define (count-floatvar node acc #!optional (n 1)) (cond ((and (varnode? node) (assq (first (node-parameters node)) floatvars)) => (lambda (a) (set-car! (acc a) (+ n (car (acc a)))))))) (define (add-boxed node) (count-floatvar node cdr)) (define (add-unboxed node) (count-floatvar node cddr)) (define (sub-boxed node) (count-floatvar node cdr -1)) (define (walk n te ae) (let ((class (node-class n)) (params (node-parameters n)) (subs (node-subexpressions n))) (case class ((##core#variable) (when (and (floatvar? (first params)) (not (assq (first params) te))) (eliminate-floatvar (first params))) (add-boxed n) (vartype (first params) te ae)) ((if ##core#cond) (let ((tr (walk (first subs) te ae))) (cond ((and (pair? tr) (eq? 'boolean (car tr))) (walk (second subs) (append (second tr) te) ae) (walk (third subs) (append (third tr) te) ae)) (else (walk (second subs) te ae) (walk (third subs) te ae))))) ((quote) (constant-result (first params))) ((let) (let* ((val (first subs)) (var (first params)) (r (walk val te ae)) (avar (assigned? var))) (cond ((and (not avar) (eq? 'float r) (not (floatvar? var))) (set! floatvars (cons (list var 0 0) floatvars)) (add-unboxed val)) (else (add-boxed val))) (walk (second subs) (if avar te (alist-cons var r te)) (if (and (varnode? val) (not avar) (not (assigned? (first (node-parameters val))))) (let ((var2 (first (node-parameters val)))) (alist-cons var var2 (alist-cons var2 var ae))) ae)))) ((##core#lambda ##core#direct_lambda) ;; fresh env and we don't bother to create entries in the environment ;; for the llist-bound variables (missing implies type '*) ;;XXX (but we could treat the first arg in non-CPS lambdas as procedure...) (walk (first subs) '() '()) 'procedure) ((set! ##core#set!) ;XXX is ##core#set! still used? (let ((val (first subs))) (when (and (varnode? val) (floatvar? (first (node-parameters val)))) (eliminate-floatvar (first (node-parameters val)))) (walk val te ae) 'undefined)) ((##core#undefined) 'undefined) ((##core#primitive) 'procedure) ((##core#inline ##core#inline_allocate) (let ((ubop (assoc (first params) +unboxed-map+))) (for-each (lambda (arg) (walk arg te ae) (when ubop (add-unboxed arg))) subs)) (cond ((assoc (first params) +type-check-map+) => (lambda (a) (let ((r1 (walk (first subs) te ae))) (cond (unsafe (extinguish! n "C_i_noop")) ((eq? '*struct* (cadr a)) ;; handle known structure type (when (and (pair? r1) (eq? 'struct (first r1)) (eq? 'quote (node-class (second subs)))) (let ((st (first (node-parameters (second subs))))) (when (and (symbol? st) (eq? st (second r1))) (extinguish! n "C_i_noop"))))) ((and (pair? r1) (eq? 'boolean (car r1))) (when (memq 'boolean (cdr a)) (extinguish! n "C_i_noop"))) ;; handle other types ((member r1 (cdr a)) (extinguish! n "C_i_noop"))) '*))) ((assoc (first params) +ffi-type-check-map+) => (lambda (a) (let* ((arg (first subs)) (r1 (walk arg te ae))) (when (member r1 (cdr a)) (node-class-set! n (node-class arg)) (node-parameters-set! n (node-parameters arg)) (node-subexpressions-set! n (node-subexpressions arg))) ;; the ffi checks are enforcing so we always end up with ;; the correct type r1))) ((assoc (first params) +predicate-map+) => (lambda (a) (let ((arg (first subs))) (cond ((varnode? arg) `(boolean ((,(first (node-parameters arg)) . ,(if (eq? '*struct* (cadr a)) (if (eq? 'quote (node-class (second subs))) (let ((st (first (node-parameters (second subs))))) (if (symbol? st) `(struct ,st) 'struct)) 'struct) (cadr a)))) ())) (else (let ((r1 (walk arg te ae))) (cond ((eq? '*struct* (cadr a)) ;; known structure type (when (and (pair? r1) (eq? 'struct (first r1)) (eq? 'quote (node-class (second subs)))) (let ((st (first (node-parameters (second subs))))) (when (and (symbol? st) (eq? st (second r1))) (extinguish! n "C_i_true"))))) ((and (pair? r1) (eq? 'boolean (car r1))) (when (memq 'boolean (cdr a)) (extinguish! n "C_i_true"))) ;; other types ((member r1 (cdr a)) (extinguish! n "C_i_true"))) 'boolean)))))) ((assoc (first params) +constructor-map+) => (lambda (a) (let ((arg1 (and (pair? subs) (first subs)))) (if (and arg1 (eq? '*struct* (cadr a)) (eq? 'quote (node-class arg1))) (let ((tag (first (node-parameters arg1)))) (if (symbol? tag) `(struct ,tag) 'struct)) (cadr a))))))) (else (for-each (cut walk <> te ae) subs) '*)))) (walk node '() '()) (when (pair? stats) (with-debugging-output '(x o) (lambda () (print "eliminated type checks:") (for-each (lambda (ss) (printf " ~a:\t~a~%" (car ss) (cdr ss))) stats)))) floatvars)) (define (perform-unboxing node floatvar-counts) (let ((floatvars (filter-map (lambda (a) (and (= (cadr a) (caddr a)) (car a))) floatvar-counts)) (count 0)) (define (walk/unbox n) (let ((class (node-class n)) (params (node-parameters n)) (subs (node-subexpressions n))) (case class ((quote) (let ((c (first params))) (if (##core#inline "C_i_flonump" c) (make-node '##core#float (list c) '()) n))) ((##core#variable) (let ((i (posq (first params) floatvars))) (if i (make-node '##core#float-variable (cons i params) '()) (make-node '##core#unbox_float '() (list n))))) ((##core#inline ##core#inline_allocate) (cond ((assoc (first params) +unboxed-map+) => (lambda (a) (let ((ub (second a)) (type (third a))) (set! count (add1 count)) (make-node '##core#inline (list ub) (map (if (eq? type 'op) walk/unbox walk) subs))))) (else (make-node '##core#unbox_float '() (list (make-node class params (map walk subs))))))) (else (make-node '##core#unbox_float '() (list (walk n))))))) (define (walk n) (let ((class (node-class n)) (params (node-parameters n)) (subs (node-subexpressions n))) (case class ((##core#variable) (let ((i (posq (first params) floatvars))) (if i (make-node '##core#box_float '() (list (make-node '##core#float-variable (cons i params) '()))) n))) ((let) (let* ((val (first subs)) (var (first params)) (i (posq var floatvars))) (if i (make-node '##core#let_float (list i var) (list (walk/unbox val) (walk (second subs)))) (make-node 'let params (map walk subs))))) ((##core#inline ##core#inline_allocate) (cond ((assoc (first params) +unboxed-map+) => (lambda (a) (let ((ub (second a)) (type (third a))) (set! count (add1 count)) (let ((n (make-node '##core#inline (list ub) (map (if (eq? type 'acc) walk walk/unbox) subs)))) (case type ((pred) n) (else (make-node '##core#box_float '() (list n)))))))) (else (make-node class params (map walk subs))))) (else (make-node class params (map walk subs)))))) (let ((node (walk node))) (with-debugging-output '(x o) (lambda () (printf "number of unboxed float variables: ~a\n" (length floatvars)) (printf "number of inline operations replaced with unboxed ones: ~a\n" count))) node))) ) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.process-context.posix.import.c������������������������������������������������0000644�0001750�0001750�00000017224�13502227774�022327� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.process-context.posix.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.process-context.posix.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.process-context.posix.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.process-context.posix.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(281))){ C_save(t1); C_rereclaim2(281*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],29, C_text("chicken.process-context.posix")); lf[2]=C_h_intern(&lf[2],5, C_text("posix")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001change-directory\052\376\001\000\000/\001chicken.process-context.posix#change-dire" "ctory\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001set-root-directory!\376\001\000\0001\001chicken.process-context.posix#set" "-root-directory!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\032\001current-effective-group-id\376\001\000\0008\001chicken.process-" "context.posix#current-effective-group-id\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001current-effective-user-i" "d\376\001\000\0007\001chicken.process-context.posix#current-effective-user-id\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001cu" "rrent-process-id\376\001\000\0000\001chicken.process-context.posix#current-process-id\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\020\001current-group-id\376\001\000\000.\001chicken.process-context.posix#current-group-id\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\017\001current-user-id\376\001\000\000-\001chicken.process-context.posix#current-user-id\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\021\001parent-process-id\376\001\000\000/\001chicken.process-context.posix#parent-process-" "id\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001current-user-name\376\001\000\000/\001chicken.process-context.posix#current-u" "ser-name\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001current-effective-user-name\376\001\000\0009\001chicken.process-context" ".posix#current-effective-user-name\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001create-session\376\001\000\000,\001chicken.pr" "ocess-context.posix#create-session\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001process-group-id\376\001\000\000.\001chicken." "process-context.posix#process-group-id\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001user-information\376\001\000\000.\001chic" "ken.process-context.posix#user-information\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eprocess_2dcontext_2eposix_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eprocess_2dcontext_2eposix_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eprocess_2dcontext_2eposix_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eprocess_2dcontext_2eposix_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eprocess_2dcontext_2eposix_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.read-syntax.import.scm��������������������������������������������������������0000644�0001750�0001750�00000001212�13502227774�020613� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.read-syntax.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.read-syntax 'read-syntax (scheme#list) '((copy-read-table . chicken.read-syntax#copy-read-table) (current-read-table . chicken.read-syntax#current-read-table) (define-reader-ctor . chicken.read-syntax#define-reader-ctor) (set-read-syntax! . chicken.read-syntax#set-read-syntax!) (set-sharp-read-syntax! . chicken.read-syntax#set-sharp-read-syntax!) (set-parameterized-read-syntax! . chicken.read-syntax#set-parameterized-read-syntax!)) (scheme#list) (scheme#list)) ;; END OF FILE ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.io.import.c�������������������������������������������������������������������0000644�0001750�0001750�00000015422�13502227773�016432� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.io.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.io.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.io.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.io.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(241))){ C_save(t1); C_rereclaim2(241*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],10, C_text("chicken.io")); lf[2]=C_h_intern(&lf[2],6, C_text("extras")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001read-list\376\001\000\000\024\001chicken.io#read-list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001read-buffered" "\376\001\000\000\030\001chicken.io#read-buffered\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001read-byte\376\001\000\000\024\001chicken.io#read-byt" "e\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001read-line\376\001\000\000\024\001chicken.io#read-line\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001read-lines\376\001" "\000\000\025\001chicken.io#read-lines\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001read-string\376\001\000\000\026\001chicken.io#read-string" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001read-string!\376\001\000\000\027\001chicken.io#read-string!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001read-to" "ken\376\001\000\000\025\001chicken.io#read-token\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001write-byte\376\001\000\000\025\001chicken.io#write-b" "yte\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001write-line\376\001\000\000\025\001chicken.io#write-line\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001write-st" "ring\376\001\000\000\027\001chicken.io#write-string\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eio_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eio_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eio_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eio_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eio_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/Makefile.cygwin�����������������������������������������������������������������������0000644�0001750�0001750�00000010216�13502227553�015672� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.cygwin - configuration for Linux -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration ARCH ?= x86 DLLSINPATH = 1 # options SO = .dll EXE = .exe C_COMPILER = gcc CXX_COMPILER = g++ RC_COMPILER = windres LINKER = gcc TARGET_RC_COMPILER ?= $(RC_COMPILER) C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 -fomit-frame-pointer else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer endif endif C_COMPILER_SHARED_OPTIONS = -DPIC LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared LINKER_LINK_SHARED_PROGRAM_OPTIONS = -Wl,--dll-search-prefix=cyg LIBCHICKEN_SO_LINKER_OPTIONS = -Wl,--out-implib,lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).dll.a \ -Wl,--export-all-symbols \ -Wl,--enable-auto-import \ -Wl,--image-base=0x10000000 \ -Wl,--dll \ -Wl,--add-stdcall-alias \ -Wl,--no-whole-archive LIBRARIES = -lm LIBCHICKEN_IMPORT_LIBRARY = lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).dll.a # special files CHICKEN_CONFIG_H = chicken-config.h # select default and internal settings include $(SRCDIR)/defaults.make LIBCHICKEN_SO_LIBRARIES = $(LIBRARIES) chicken-config.h: chicken-defaults.h echo "/* GENERATED */" >$@ echo "#define C_INSTALL_RC_COMPILER \"$(RC_COMPILER)\"" >>$@ echo "#define C_TARGET_RC_COMPILER \"$(TARGET_RC_COMPILER)\"" >>$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define HAVE_SIGACTION 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRLCAT 1" >>$@ echo "#define HAVE_STRLCPY 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_STRTOQ 1" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_ALLOCA 1" >>$@ echo "#define HAVE_ALLOCA_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_SYSEXITS_H 1" >>$@ echo "#define HAVE_DLFCN_H 1" >>$@ echo "#define SEARCH_EXE_PATH 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)/rules.make ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.process.import.c��������������������������������������������������������������0000644�0001750�0001750�00000021743�13502227774�017505� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.process.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.process.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.process.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.process.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(561))){ C_save(t1); C_rereclaim2(561*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],15, C_text("chicken.process")); lf[2]=C_h_intern(&lf[2],5, C_text("posix")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001qs\376\001\000\000\022\001chicken.process#qs\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001system\376\001\000\000\026\001chicken.pr" "ocess#system\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001system\052\376\001\000\000\027\001chicken.process#system\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001" "process-execute\376\001\000\000\037\001chicken.process#process-execute\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001process-fork" "\376\001\000\000\034\001chicken.process#process-fork\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001process-run\376\001\000\000\033\001chicken.proce" "ss#process-run\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001process-signal\376\001\000\000\036\001chicken.process#process-signal" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001process-spawn\376\001\000\000\035\001chicken.process#process-spawn\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001" "process-wait\376\001\000\000\034\001chicken.process#process-wait\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001call-with-input-pi" "pe\376\001\000\000$\001chicken.process#call-with-input-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001call-with-output-pip" "e\376\001\000\000%\001chicken.process#call-with-output-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001close-input-pipe\376\001\000\000" " \001chicken.process#close-input-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001close-output-pipe\376\001\000\000!\001chicken" ".process#close-output-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001create-pipe\376\001\000\000\033\001chicken.process#creat" "e-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001open-input-pipe\376\001\000\000\037\001chicken.process#open-input-pipe\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\020\001open-output-pipe\376\001\000\000 \001chicken.process#open-output-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001" "with-input-from-pipe\376\001\000\000$\001chicken.process#with-input-from-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001wi" "th-output-to-pipe\376\001\000\000#\001chicken.process#with-output-to-pipe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001proces" "s\376\001\000\000\027\001chicken.process#process\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001process\052\376\001\000\000\030\001chicken.process#proc" "ess\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001process-sleep\376\001\000\000\035\001chicken.process#process-sleep\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\010\001pipe/buf\376\001\000\000\030\001chicken.process#pipe/buf\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001spawn/overlay\376\001\000\000\035\001chi" "cken.process#spawn/overlay\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001spawn/wait\376\001\000\000\032\001chicken.process#spawn/" "wait\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001spawn/nowait\376\001\000\000\034\001chicken.process#spawn/nowait\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\015\001spawn/nowaito\376\001\000\000\035\001chicken.process#spawn/nowaito\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001spawn/detach\376\001" "\000\000\034\001chicken.process#spawn/detach\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eprocess_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eprocess_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eprocess_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eprocess_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eprocess_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ �����������������������������chicken-5.1.0/chicken.io.import.scm�����������������������������������������������������������������0000644�0001750�0001750�00000001222�13502227734�016760� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.io.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.io 'extras (scheme#list) '((read-list . chicken.io#read-list) (read-buffered . chicken.io#read-buffered) (read-byte . chicken.io#read-byte) (read-line . chicken.io#read-line) (read-lines . chicken.io#read-lines) (read-string . chicken.io#read-string) (read-string! . chicken.io#read-string!) (read-token . chicken.io#read-token) (write-byte . chicken.io#write-byte) (write-line . chicken.io#write-line) (write-string . chicken.io#write-string)) (scheme#list) (scheme#list)) ;; END OF FILE ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.pretty-print.import.c���������������������������������������������������������0000644�0001750�0001750�00000013714�13502227774�020507� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.pretty-print.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.pretty-print.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.pretty-print.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.pretty-print.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(81))){ C_save(t1); C_rereclaim2(81*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],20, C_text("chicken.pretty-print")); lf[2]=C_h_intern(&lf[2],6, C_text("extras")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001pp\376\001\000\000\027\001chicken.pretty-print#pp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001pretty-print\376\001\000\000!" "\001chicken.pretty-print#pretty-print\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001pretty-print-width\376\001\000\000\047\001chicke" "n.pretty-print#pretty-print-width\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2epretty_2dprint_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2epretty_2dprint_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2epretty_2dprint_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2epretty_2dprint_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2epretty_2dprint_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ����������������������������������������������������chicken-5.1.0/chicken.format.import.scm�������������������������������������������������������������0000644�0001750�0001750�00000000545�13502227734�017650� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.format.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.format 'extras (scheme#list) '((format . chicken.format#format) (fprintf . chicken.format#fprintf) (printf . chicken.format#printf) (sprintf . chicken.format#sprintf)) (scheme#list) (scheme#list)) ;; END OF FILE �����������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/build-version.scm���������������������������������������������������������������������0000644�0001750�0001750�00000004273�13502227553�016227� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; build-version.scm ; ; Copyright (c) 2011-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit build-version)) ;; (read-version filename): Read line from FILENAME and return ;; as a string; return #f if non-existent file or blank line. (define-syntax read-version (er-macro-transformer (lambda (x r c) (let ((fn (cadr x))) (and (##sys#file-exists? fn #t #f #f) (call-with-input-file (cadr x) (lambda (p) (let ((ver ((##sys#slot (##sys#slot p 2) 8) p 256))) ; read-line (if (or (eof-object? ver) (string=? ver "")) #f ver))))))))) (define ##sys#build-id (read-version "buildid")) (define ##sys#build-branch (read-version "buildbranch")) (define ##sys#build-version (read-version "buildversion")) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/banner.scm����������������������������������������������������������������������������0000644�0001750�0001750�00000000205�13502227553�014701� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; banner.scm (define-constant +banner+ #<<EOF CHICKEN (c) 2008-2019, The CHICKEN Team (c) 2000-2007, Felix L. Winkelmann EOF ) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/srfi-4.import.c�����������������������������������������������������������������������0000644�0001750�0001750�00000054146�13502230004�015507� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from srfi-4.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: srfi-4.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file srfi-4.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[3]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-4.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[1]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[2]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(2714))){ C_save(t1); C_rereclaim2(2714*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],6, C_text("srfi-4")); lf[2]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->f32vector\376\001\000\000\026\001srfi-4#blob->f32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob-" ">f32vector/shared\376\001\000\000\035\001srfi-4#blob->f32vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->f64vec" "tor\376\001\000\000\026\001srfi-4#blob->f64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->f64vector/shared\376\001\000\000\035\001srfi-" "4#blob->f64vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->s16vector\376\001\000\000\026\001srfi-4#blob->s16vec" "tor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->s16vector/shared\376\001\000\000\035\001srfi-4#blob->s16vector/shared\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\017\001blob->s32vector\376\001\000\000\026\001srfi-4#blob->s32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->s32" "vector/shared\376\001\000\000\035\001srfi-4#blob->s32vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->s64vector\376" "\001\000\000\026\001srfi-4#blob->s64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->s64vector/shared\376\001\000\000\035\001srfi-4#bl" "ob->s64vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001blob->s8vector\376\001\000\000\025\001srfi-4#blob->s8vector\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\025\001blob->s8vector/shared\376\001\000\000\034\001srfi-4#blob->s8vector/shared\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\017\001blob->u16vector\376\001\000\000\026\001srfi-4#blob->u16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->u16vector/s" "hared\376\001\000\000\035\001srfi-4#blob->u16vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->u32vector\376\001\000\000\026\001srf" "i-4#blob->u32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001blob->u32vector/shared\376\001\000\000\035\001srfi-4#blob->u32v" "ector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001blob->u64vector\376\001\000\000\026\001srfi-4#blob->u64vector\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\026\001blob->u64vector/shared\376\001\000\000\035\001srfi-4#blob->u64vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001" "blob->u8vector\376\001\000\000\025\001srfi-4#blob->u8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001blob->u8vector/shared\376\001" "\000\000\034\001srfi-4#blob->u8vector/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001f32vector\376\001\000\000\020\001srfi-4#f32vector\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001f32vector->blob\376\001\000\000\026\001srfi-4#f32vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001f32vec" "tor->blob/shared\376\001\000\000\035\001srfi-4#f32vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001f32vector->li" "st\376\001\000\000\026\001srfi-4#f32vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001f32vector-length\376\001\000\000\027\001srfi-4#f32ve" "ctor-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001f32vector-ref\376\001\000\000\024\001srfi-4#f32vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\016\001f32vector-set!\376\001\000\000\025\001srfi-4#f32vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001f32vector\077\376\001\000\000\021\001srfi-" "4#f32vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001f64vector\376\001\000\000\020\001srfi-4#f64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001f64ve" "ctor->blob\376\001\000\000\026\001srfi-4#f64vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001f64vector->blob/shared\376\001\000\000" "\035\001srfi-4#f64vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001f64vector->list\376\001\000\000\026\001srfi-4#f64ve" "ctor->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001f64vector-length\376\001\000\000\027\001srfi-4#f64vector-length\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\015\001f64vector-ref\376\001\000\000\024\001srfi-4#f64vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001f64vector-set!\376\001\000\000" "\025\001srfi-4#f64vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001f64vector\077\376\001\000\000\021\001srfi-4#f64vector\077\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\010\001s8vector\376\001\000\000\017\001srfi-4#s8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001s8vector->blob\376\001\000\000\025\001srfi-4#" "s8vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001s8vector->blob/shared\376\001\000\000\034\001srfi-4#s8vector->blob/s" "hared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001s8vector->list\376\001\000\000\025\001srfi-4#s8vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s8" "vector-length\376\001\000\000\026\001srfi-4#s8vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001s8vector-ref\376\001\000\000\023\001srfi-" "4#s8vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001s8vector-set!\376\001\000\000\024\001srfi-4#s8vector-set!\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\011\001s8vector\077\376\001\000\000\020\001srfi-4#s8vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001s16vector\376\001\000\000\020\001srfi-4#s16vec" "tor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s16vector->blob\376\001\000\000\026\001srfi-4#s16vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001s1" "6vector->blob/shared\376\001\000\000\035\001srfi-4#s16vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s16vector" "->list\376\001\000\000\026\001srfi-4#s16vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001s16vector-length\376\001\000\000\027\001srfi-4#s" "16vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001s16vector-ref\376\001\000\000\024\001srfi-4#s16vector-ref\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\016\001s16vector-set!\376\001\000\000\025\001srfi-4#s16vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001s16vector\077\376\001\000\000\021\001s" "rfi-4#s16vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001s32vector\376\001\000\000\020\001srfi-4#s32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s" "32vector->blob\376\001\000\000\026\001srfi-4#s32vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001s32vector->blob/shared" "\376\001\000\000\035\001srfi-4#s32vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s32vector->list\376\001\000\000\026\001srfi-4#s" "32vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001s32vector-length\376\001\000\000\027\001srfi-4#s32vector-length\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\015\001s32vector-ref\376\001\000\000\024\001srfi-4#s32vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001s32vector-set!" "\376\001\000\000\025\001srfi-4#s32vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001s32vector\077\376\001\000\000\021\001srfi-4#s32vector\077\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\011\001s64vector\376\001\000\000\020\001srfi-4#s64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s64vector->blob\376\001\000\000\026\001" "srfi-4#s64vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001s64vector->blob/shared\376\001\000\000\035\001srfi-4#s64vect" "or->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001s64vector->list\376\001\000\000\026\001srfi-4#s64vector->list\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\020\001s64vector-length\376\001\000\000\027\001srfi-4#s64vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001s64vector" "-ref\376\001\000\000\024\001srfi-4#s64vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001s64vector-set!\376\001\000\000\025\001srfi-4#s64vect" "or-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001s64vector\077\376\001\000\000\021\001srfi-4#s64vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001u8vector" "\376\001\000\000\017\001srfi-4#u8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001u8vector->blob\376\001\000\000\025\001srfi-4#u8vector->blob\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\025\001u8vector->blob/shared\376\001\000\000\034\001srfi-4#u8vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\016\001u8vector->list\376\001\000\000\025\001srfi-4#u8vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u8vector-length\376\001\000" "\000\026\001srfi-4#u8vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001u8vector-ref\376\001\000\000\023\001srfi-4#u8vector-ref\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\015\001u8vector-set!\376\001\000\000\024\001srfi-4#u8vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001u8vector\077\376\001" "\000\000\020\001srfi-4#u8vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001u16vector\376\001\000\000\020\001srfi-4#u16vector\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\017\001u16vector->blob\376\001\000\000\026\001srfi-4#u16vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001u16vector->blob/sh" "ared\376\001\000\000\035\001srfi-4#u16vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u16vector->list\376\001\000\000\026\001srfi" "-4#u16vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001u16vector-length\376\001\000\000\027\001srfi-4#u16vector-length\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001u16vector-ref\376\001\000\000\024\001srfi-4#u16vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001u16vector-" "set!\376\001\000\000\025\001srfi-4#u16vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001u16vector\077\376\001\000\000\021\001srfi-4#u16vector\077" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001u32vector\376\001\000\000\020\001srfi-4#u32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u32vector->blob\376\001" "\000\000\026\001srfi-4#u32vector->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001u32vector->blob/shared\376\001\000\000\035\001srfi-4#u32" "vector->blob/shared\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u32vector->list\376\001\000\000\026\001srfi-4#u32vector->list\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\020\001u32vector-length\376\001\000\000\027\001srfi-4#u32vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001u32ve" "ctor-ref\376\001\000\000\024\001srfi-4#u32vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001u32vector-set!\376\001\000\000\025\001srfi-4#u32" "vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001u32vector\077\376\001\000\000\021\001srfi-4#u32vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001u64v" "ector\376\001\000\000\020\001srfi-4#u64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u64vector->blob\376\001\000\000\026\001srfi-4#u64vector" "->blob\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001u64vector->blob/shared\376\001\000\000\035\001srfi-4#u64vector->blob/shared\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001u64vector->list\376\001\000\000\026\001srfi-4#u64vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001u64vec" "tor-length\376\001\000\000\027\001srfi-4#u64vector-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001u64vector-ref\376\001\000\000\024\001srfi-4" "#u64vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001u64vector-set!\376\001\000\000\025\001srfi-4#u64vector-set!\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\012\001u64vector\077\376\001\000\000\021\001srfi-4#u64vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->f32vector\376\001\000\000\026\001srf" "i-4#list->f32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->f64vector\376\001\000\000\026\001srfi-4#list->f64vector\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->s16vector\376\001\000\000\026\001srfi-4#list->s16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->s" "32vector\376\001\000\000\026\001srfi-4#list->s32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->s64vector\376\001\000\000\026\001srfi-4#" "list->s64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001list->s8vector\376\001\000\000\025\001srfi-4#list->s8vector\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\017\001list->u16vector\376\001\000\000\026\001srfi-4#list->u16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->u32vect" "or\376\001\000\000\026\001srfi-4#list->u32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001list->u8vector\376\001\000\000\025\001srfi-4#list->u" "8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001list->u64vector\376\001\000\000\026\001srfi-4#list->u64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\016\001make-f32vector\376\001\000\000\025\001srfi-4#make-f32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-f64vector\376\001\000\000\025\001s" "rfi-4#make-f64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-s16vector\376\001\000\000\025\001srfi-4#make-s16vector\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\016\001make-s32vector\376\001\000\000\025\001srfi-4#make-s32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-s64ve" "ctor\376\001\000\000\025\001srfi-4#make-s64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001make-s8vector\376\001\000\000\024\001srfi-4#make-s8" "vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-u16vector\376\001\000\000\025\001srfi-4#make-u16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001m" "ake-u32vector\376\001\000\000\025\001srfi-4#make-u32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-u64vector\376\001\000\000\025\001srfi" "-4#make-u64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001make-u8vector\376\001\000\000\024\001srfi-4#make-u8vector\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\016\001number-vector\077\376\001\000\000\025\001srfi-4#number-vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001read-u8vector\376\001" "\000\000\024\001srfi-4#read-u8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001read-u8vector!\376\001\000\000\025\001srfi-4#read-u8vector" "!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001release-number-vector\376\001\000\000\034\001srfi-4#release-number-vector\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\014\001subf32vector\376\001\000\000\023\001srfi-4#subf32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001subf64vector\376\001\000\000\023\001s" "rfi-4#subf64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001subs16vector\376\001\000\000\023\001srfi-4#subs16vector\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\014\001subs32vector\376\001\000\000\023\001srfi-4#subs32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001subs64vector\376\001\000\000\023\001sr" "fi-4#subs64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001subs8vector\376\001\000\000\022\001srfi-4#subs8vector\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\014\001subu16vector\376\001\000\000\023\001srfi-4#subu16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001subu8vector\376\001\000\000\022\001srfi-4" "#subu8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001subu32vector\376\001\000\000\023\001srfi-4#subu32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014" "\001subu64vector\376\001\000\000\023\001srfi-4#subu64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001write-u8vector\376\001\000\000\025\001srfi-4" "#write-u8vector\376\377\016")); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:srfi_2d4_2eimport_2escm"),(void*)f_117}, {C_text("f_120:srfi_2d4_2eimport_2escm"),(void*)f_120}, {C_text("f_123:srfi_2d4_2eimport_2escm"),(void*)f_123}, {C_text("f_126:srfi_2d4_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:srfi_2d4_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/Makefile.cross-linux-mingw������������������������������������������������������������0000644�0001750�0001750�00000010454�13502227553�020003� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Makefile.cross-linux-mingw - configuration for MinGW (crosscompiled from Linux) -*- Makefile -*- # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. SRCDIR ?= ./ # platform configuration DLLSINPATH = 1 ARCH ?= x86 WINDOWS = 1 # file extensions SO = .dll EXE = .exe # commands HOSTSYSTEM ?= mingw32 # options C_COMPILER_OPTIONS ?= -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H ifdef DEBUGBUILD C_COMPILER_OPTIMIZATION_OPTIONS ?= -g -Wall -Wno-unused else ifdef OPTIMIZE_FOR_SPEED C_COMPILER_OPTIMIZATION_OPTIONS ?= -O3 -fomit-frame-pointer else C_COMPILER_OPTIMIZATION_OPTIONS ?= -Os -fomit-frame-pointer endif endif C_COMPILER_SHARED_OPTIONS = -DPIC LINKER_LINK_SHARED_LIBRARY_OPTIONS = -shared LIBRARIES = -lm -lws2_32 LIBCHICKEN_SO_LINKER_OPTIONS = -Wl,--out-implib,lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).dll.a LIBCHICKEN_SO_LIBRARIES = -lws2_32 LIBUCHICKEN_SO_LIBRARIES = -lws2_32 LIBCHICKEN_IMPORT_LIBRARY = lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX).dll.a TARGET_C_COMPILER = gcc TARGET_CXX_COMPILER = g++ # special files POSIXFILE = posixwin # select default and internal settings include $(SRCDIR)/defaults.make # main target ifndef BUILD_SETUP_TOOLS TARGETS = libchicken$(A) $(CHICKEN_PROGRAM)$(EXE) $(CSI_PROGRAM)$(EXE) \ $(CHICKEN_PROFILE_PROGRAM)$(EXE) $(CSC_PROGRAM)$(EXE) lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(SO) \ $(CHICKEN_DO_PROGRAM)$(EXE) else TARGETS = libchicken$(A) $(CHICKEN_PROGRAM)$(EXE) $(CSI_PROGRAM)$(EXE) \ $(CHICKEN_PROFILE_PROGRAM)$(EXE) $(CSC_PROGRAM)$(EXE) lib$(PROGRAM_PREFIX)chicken$(PROGRAM_SUFFIX)$(SO) \ $(CHICKEN_INSTALL_PROGRAM)$(EXE) $(CHICKEN_UNINSTALL_PROGRAM)$(EXE) \ $(CHICKEN_STATUS_PROGRAM)$(EXE) \ $(CHICKEN_DO_PROGRAM)$(EXE) endif chicken-config.h: chicken-defaults.h echo "/* GENERATED */" >$@ echo "#define HAVE_DIRENT_H 1" >>$@ echo "#define HAVE_INTTYPES_H 1" >>$@ echo "#define HAVE_LIMITS_H 1" >>$@ echo "#define HAVE_LONG_LONG 1" >>$@ echo "#define HAVE_MEMMOVE 1" >>$@ echo "#define HAVE_MEMORY_H 1" >>$@ echo "#define NO_POSIX_POLL 1" >>$@ echo "#define HAVE_STDINT_H 1" >>$@ echo "#define HAVE_STDLIB_H 1" >>$@ echo "#define HAVE_STRERROR 1" >>$@ echo "#define HAVE_STRINGS_H 1" >>$@ echo "#define HAVE_STRING_H 1" >>$@ echo "#define HAVE_STRTOLL 1" >>$@ echo "#define HAVE_SYS_STAT_H 1" >>$@ echo "#define HAVE_SYS_TYPES_H 1" >>$@ echo "#define HAVE_UNISTD_H 1" >>$@ echo "#define HAVE_UNSIGNED_LONG_LONG 1" >>$@ echo "#define STDC_HEADERS 1" >>$@ echo "#define HAVE_ALLOCA_H 1" >>$@ echo "#define HAVE_DIRECT_H 1" >>$@ echo "#define HAVE_ERRNO_H 1" >>$@ echo "#define HAVE_LOADLIBRARY 1" >>$@ echo "#define HAVE_GETPROCADDRESS 1" >>$@ echo "#define C_STACK_GROWS_DOWNWARD 1" >>$@ ifdef GCHOOKS echo "#define C_GC_HOOKS" >>$@ endif echo "#define C_USE_STD_FEATURE_MACROS" >>$@ cat chicken-defaults.h >>$@ include $(SRCDIR)rules.make ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/irregex-utils.scm���������������������������������������������������������������������0000644�0001750�0001750�00000012443�13476721702�016253� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; irregex-utils.scm ;; ;; Copyright (c) 2010 Alex Shinn. All rights reserved. ;; BSD-style license: http://synthcode.com/license.txt (define rx-special-chars "\\|[](){}.*+?^$#") (define (string-scan-char str c . o) (let ((end (string-length str))) (let scan ((i (if (pair? o) (car o) 0))) (cond ((= i end) #f) ((eqv? c (string-ref str i)) i) (else (scan (+ i 1))))))) (define (irregex-quote str) (list->string (let loop ((ls (string->list str)) (res '())) (if (null? ls) (reverse res) (let ((c (car ls))) (if (string-scan-char rx-special-chars c) (loop (cdr ls) (cons c (cons #\\ res))) (loop (cdr ls) (cons c res)))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (irregex-opt ls) (define (make-alt ls) (cond ((null? (cdr ls)) (car ls)) ((every char? ls) (list (list->string ls))) (else (cons 'or ls)))) (define (make-seq ls) (cond ((null? (cdr ls)) (car ls)) ((every (lambda (x) (or (string? x) (char? x))) ls) (apply string-append (map (lambda (x) (if (char? x) (string x) x)) ls))) (else (cons 'seq ls)))) (cond ((null? ls) "") ((null? (cdr ls)) (car ls)) (else (let ((chars (make-vector 256 '()))) (let lp1 ((ls ls) (empty? #f)) (if (null? ls) (let lp2 ((i 0) (res '())) (if (= i 256) (let ((res (make-alt (reverse res)))) (if empty? `(? ,res) res)) (let ((c (integer->char i)) (opts (vector-ref chars i))) (lp2 (+ i 1) (cond ((null? opts) res) ((equal? opts '("")) `(,c ,@res)) (else `(,(make-seq (list c (irregex-opt opts))) ,@res))))))) (let* ((str (car ls)) (len (string-length str))) (if (zero? len) (lp1 (cdr ls) #t) (let ((i (char->integer (string-ref str 0)))) (vector-set! chars i (cons (substring str 1 len) (vector-ref chars i))) (lp1 (cdr ls) empty?)))))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (cset->string ls) (let ((out (open-output-string))) (let lp ((ls ls)) (cond ((pair? ls) (cond ((pair? (car ls)) (display (irregex-quote (string (caar ls))) out) (write-char #\- out) (display (irregex-quote (string (cdar ls))) out)) (else (display (irregex-quote (string (car ls))) out))) (lp (cdr ls))))) (get-output-string out))) (define (sre->string obj) (let ((out (open-output-string))) (let lp ((x obj)) (cond ((pair? x) (case (car x) ((: seq) (cond ((and (pair? (cdr x)) (pair? (cddr x)) (not (eq? x obj))) (display "(?:" out) (for-each lp (cdr x)) (display ")" out)) (else (for-each lp (cdr x))))) ((submatch) (display "(" out) (for-each lp (cdr x)) (display ")" out)) ((submatch-named) (display "(?<" out) (display (cadr x) out) (display ">" out) (for-each lp (cddr x)) (display ")" out)) ((or) (display "(?:" out) (lp (cadr x)) (for-each (lambda (x) (display "|" out) (lp x)) (cddr x)) (display ")" out)) ((* + ? *? ??) (cond ((pair? (cddr x)) (display "(?:" out) (for-each lp (cdr x)) (display ")" out)) (else (lp (cadr x)))) (display (car x) out)) ((not) (cond ((and (pair? (cadr x)) (eq? 'cset (caadr x))) (display "[^" out) (display (cset->string (cdadr x)) out) (display "]" out)) (else (error "can't represent general 'not' in strings" x)))) ((cset) (display "[" out) (display (cset->string (cdr x)) out) (display "]" out)) ((- & / ~) (cond ((or (eq? #\~ (car x)) (and (eq? '- (car x)) (pair? (cdr x)) (eq? 'any (cadr x)))) (display "[^" out) (display (cset->string (if (eq? #\~ (car x)) (cdr x) (cddr x))) out) (display "]" out)) (else (lp `(cset ,@(sre->cset x)))))) ((w/case w/nocase) (display "(?" out) (if (eq? (car x) 'w/case) (display "-" out)) (display ":" out) (for-each lp (cdr x)) (display ")" out)) (else (if (string? (car x)) (lp `(cset ,@(string->list (car x)))) (error "unknown sre operator" x))))) ((symbol? x) (case x ((bos bol) (display "^" out)) ((eos eol) (display "$" out)) ((any nonl) (display "." out)) (else (error "unknown sre symbol" x)))) ((string? x) (display (irregex-quote x) out)) ((char? x) (display (irregex-quote (string x)) out)) (else (error "unknown sre pattern" x)))) (get-output-string out))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.memory.import.c���������������������������������������������������������������0000644�0001750�0001750�00000026034�13502227773�017334� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.memory.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.memory.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.memory.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.memory.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(861))){ C_save(t1); C_rereclaim2(861*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],14, C_text("chicken.memory")); lf[2]=C_h_intern(&lf[2],7, C_text("lolevel")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001address->pointer\376\001\000\000\037\001chicken.memory#address->pointer\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\015\001align-to-word\376\001\000\000\034\001chicken.memory#align-to-word\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001allocate\376\001\000\000" "\027\001chicken.memory#allocate\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001free\376\001\000\000\023\001chicken.memory#free\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\023\001make-pointer-vector\376\001\000\000\042\001chicken.memory#make-pointer-vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014" "\001move-memory!\376\001\000\000\033\001chicken.memory#move-memory!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001object->pointer\376\001\000" "\000\036\001chicken.memory#object->pointer\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001pointer+\376\001\000\000\027\001chicken.memory#po" "inter+\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer->address\376\001\000\000\037\001chicken.memory#pointer->address\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\017\001pointer->object\376\001\000\000\036\001chicken.memory#pointer->object\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001po" "inter-f32-ref\376\001\000\000\036\001chicken.memory#pointer-f32-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-f32-set" "!\376\001\000\000\037\001chicken.memory#pointer-f32-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-f64-ref\376\001\000\000\036\001chick" "en.memory#pointer-f64-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-f64-set!\376\001\000\000\037\001chicken.memory#po" "inter-f64-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001pointer-like\077\376\001\000\000\034\001chicken.memory#pointer-like\077\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-s16-ref\376\001\000\000\036\001chicken.memory#pointer-s16-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001" "pointer-s16-set!\376\001\000\000\037\001chicken.memory#pointer-s16-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-s32" "-ref\376\001\000\000\036\001chicken.memory#pointer-s32-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-s32-set!\376\001\000\000\037\001ch" "icken.memory#pointer-s32-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-s64-ref\376\001\000\000\036\001chicken.memory" "#pointer-s64-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-s64-set!\376\001\000\000\037\001chicken.memory#pointer-s64" "-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001pointer-s8-ref\376\001\000\000\035\001chicken.memory#pointer-s8-ref\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\017\001pointer-s8-set!\376\001\000\000\036\001chicken.memory#pointer-s8-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001pointer" "-tag\376\001\000\000\032\001chicken.memory#pointer-tag\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-u16-ref\376\001\000\000\036\001chicken" ".memory#pointer-u16-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-u16-set!\376\001\000\000\037\001chicken.memory#poin" "ter-u16-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-u32-ref\376\001\000\000\036\001chicken.memory#pointer-u32-ref\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-u32-set!\376\001\000\000\037\001chicken.memory#pointer-u32-set!\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\017\001pointer-u64-ref\376\001\000\000\036\001chicken.memory#pointer-u64-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001pointer-u" "64-set!\376\001\000\000\037\001chicken.memory#pointer-u64-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001pointer-u8-ref\376\001\000\000\035\001" "chicken.memory#pointer-u8-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001pointer-u8-set!\376\001\000\000\036\001chicken.memory" "#pointer-u8-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001pointer-vector\376\001\000\000\035\001chicken.memory#pointer-vecto" "r\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001pointer-vector-fill!\376\001\000\000#\001chicken.memory#pointer-vector-fill!\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\025\001pointer-vector-length\376\001\000\000$\001chicken.memory#pointer-vector-length\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\022\001pointer-vector-ref\376\001\000\000!\001chicken.memory#pointer-vector-ref\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\023\001pointer-vector-set!\376\001\000\000\042\001chicken.memory#pointer-vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017" "\001pointer-vector\077\376\001\000\000\036\001chicken.memory#pointer-vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001pointer=\077\376\001\000" "\000\030\001chicken.memory#pointer=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001pointer\077\376\001\000\000\027\001chicken.memory#pointer\077" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001tag-pointer\376\001\000\000\032\001chicken.memory#tag-pointer\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001tagge" "d-pointer\077\376\001\000\000\036\001chicken.memory#tagged-pointer\077\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2ememory_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2ememory_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2ememory_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2ememory_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2ememory_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.condition.import.c������������������������������������������������������������0000644�0001750�0001750�00000015563�13502227772�020016� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.condition.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.condition.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.condition.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[5]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.condition.import.scm:26: ##sys#register-core-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=lf[3]; av2[5]=C_fast_retrieve(lf[4]); tp(6,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(288))){ C_save(t1); C_rereclaim2(288*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,5); lf[0]=C_h_intern(&lf[0],26, C_text("##sys#register-core-module")); lf[1]=C_h_intern(&lf[1],17, C_text("chicken.condition")); lf[2]=C_h_intern(&lf[2],7, C_text("library")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001abort\376\001\000\000\027\001chicken.condition#abort\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001signal\376\001\000\000\030\001ch" "icken.condition#signal\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001current-exception-handler\376\001\000\000+\001chicken.con" "dition#current-exception-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001print-error-message\376\001\000\000%\001chicken" ".condition#print-error-message\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001with-exception-handler\376\001\000\000(\001chicke" "n.condition#with-exception-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001make-property-condition\376\001\000\000)\001c" "hicken.condition#make-property-condition\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001make-composite-condition" "\376\001\000\000\052\001chicken.condition#make-composite-condition\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001condition\376\001\000\000\033\001c" "hicken.condition#condition\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001condition\077\376\001\000\000\034\001chicken.condition#cond" "ition\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001condition->list\376\001\000\000!\001chicken.condition#condition->list\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\023\001condition-predicate\376\001\000\000%\001chicken.condition#condition-predicate\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\033\001condition-property-accessor\376\001\000\000-\001chicken.condition#condition-property-" "accessor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001get-condition-property\376\001\000\000(\001chicken.condition#get-condit" "ion-property\376\377\016")); lf[4]=C_h_intern(&lf[4],41, C_text("##sys#chicken.condition-macro-environment")); C_register_lf2(lf,5,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2econdition_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2econdition_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2econdition_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2econdition_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2econdition_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|removed binding forms: 4 */ /* end of file */ ���������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.locative.import.c�������������������������������������������������������������0000644�0001750�0001750�00000014467�13502227773�017641� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.locative.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.locative.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.locative.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.locative.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(141))){ C_save(t1); C_rereclaim2(141*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],16, C_text("chicken.locative")); lf[2]=C_h_intern(&lf[2],7, C_text("lolevel")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001locative\077\376\001\000\000\032\001chicken.locative#locative\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001make-lo" "cative\376\001\000\000\036\001chicken.locative#make-locative\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001make-weak-locative\376\001\000\000" "#\001chicken.locative#make-weak-locative\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001locative-ref\376\001\000\000\035\001chicken.l" "ocative#locative-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001locative-set!\376\001\000\000\036\001chicken.locative#locative" "-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001locative->object\376\001\000\000!\001chicken.locative#locative->object\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2elocative_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2elocative_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2elocative_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2elocative_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2elocative_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/feathers.mdoc�������������������������������������������������������������������������0000644�0001750�0001750�00000006423�13502227553�015405� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.\" Copyright (c) 2007-2019, The CHICKEN Team .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. The name of the authors may not be used to endorse or promote products .\" derived from this software without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, .\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .\" .\" .Dd Apr 26, 2017 .Dt FEATHERS 1 .Os .Sh NAME .Nm feathers .Nd a simple source-level debugger for CHICKEN Scheme .Sh SYNOPSIS .Nm .Op Ar OPTION ... .Op Ar PROGRAM Ar ARGUMENTS ... .Sh DESCRIPTION .Nm runs a program compiled with CHICKEN Scheme and allows basic source-level debugging like setting breakpoints, single-stepping and inspection of procedure arguments and global variables. .Pp The Scheme code must be compiled with debug-level 3 for debugging to be possible. Communication with the debugger takes place by exchanging messages over a TCP socket, the address and port being given by the environment variable .Ev CHICKEN_DEBUGGER which holds a connection address of the form .Ao ADDRESS Ac : Ns Ao PORT Ac . .Pp .Ar PROGRAM must give the path to the executable that is to be run, .Ev PATH is not searched. .Pp The program accepts following arguments: .Bl -tag -width Ds .It Fl help Shows a list of supported command-line options. .It Fl n Do not load the default startup file .Pa .feathers . .It Fl d TODO: Document this .It Fl dir Ar DIRECTORY Add .Ar DIRECTORY to the list of searched paths for locating source files. .It Fl port Ar PORT Select a different TCP port than the default .Pq 9999 . .El .Sh ENVIRONMENT The following environment variables change the behaviour of .Nm Ns : .Bl -tag -width CHICKEN_DEBUGGER .It Ev CHICKEN_DEBUGGER Should hold a TCP server address and port where the debugger is listening. This variable is set by the debugger when a program is run from it, and defaults to localhost:9999 .El .Sh EXIT STATUS .Ex -std .Sh SEE ALSO .Xr chicken 1 , .Xr csc 1 , .Xr csi 1 .Pp More information can be found in the .Lk http://wiki.call-cc.org/manual/index "CHICKEN User's Manual". .Sh AUTHORS .An The CHICKEN Team .Sh BUGS Submit bug reports by e-mail to .Mt chicken-janitors@nongnu.org ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken-install.scm�������������������������������������������������������������������0000644�0001750�0001750�00000136560�13502227553�016522� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken-install.scm ; ; Copyright (c) 2008-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (uses chicken-ffi-syntax)) ; populate ##sys#chicken-ffi-macro-environment (module main () (import (scheme)) (import (chicken base)) (import (chicken condition)) (import (chicken foreign)) (import (chicken keyword)) (import (chicken file)) (import (chicken file posix)) (import (chicken fixnum)) (import (chicken format)) (import (chicken irregex)) (import (chicken module)) (import (chicken tcp)) (import (chicken port)) (import (chicken platform)) (import (chicken internal)) (import (chicken io)) (import (chicken sort)) (import (chicken time)) (import (chicken pathname)) (import (chicken process)) (import (chicken process-context)) (import (chicken pretty-print)) (import (chicken string)) (define +defaults-version+ 2) (define +module-db+ "modules.db") (define +defaults-file+ "setup.defaults") (define +short-options+ '(#\h #\k #\s #\r #\n #\u #\v)) (define +one-hour+ (* 60 60)) (define +internal-modules+ '(chicken.internal chicken.internal.syntax)) (include "mini-srfi-1.scm") (include "egg-environment.scm") (include "egg-information.scm") (include "egg-compile.scm") (include "egg-download.scm") (define user-defaults #f) (define quiet #t) (define default-servers '()) (define default-locations '()) (define mappings '()) (define aliases '()) (define override '()) (define hacks '()) (define proxy-host #f) (define proxy-port #f) (define proxy-user-pass #f) (define retrieve-only #f) (define retrieve-recursive #f) (define do-not-build #f) (define no-install #f) (define no-install-dependencies #f) (define list-versions-only #f) (define canonical-eggs '()) (define requested-eggs '()) (define dependencies '()) (define checked-eggs '()) (define run-tests #f) (define force-install #f) (define host-extension cross-chicken) (define target-extension cross-chicken) (define sudo-install #f) (define sudo-program (or (get-environment-variable "SUDO") "sudo")) (define update-module-db #f) (define purge-mode #f) (define keepfiles #f) (define print-repository #f) (define cached-only #f) (define platform (if (eq? (software-version) 'mingw32) 'windows 'unix)) (define current-status (list ##sys#build-id default-prefix (get-environment-variable "CSC_OPTIONS") (get-environment-variable "LD_LIBRARY_PATH") (get-environment-variable "DYLD_LIBRARY_PATH") (get-environment-variable "CHICKEN_INCLUDE_PATH") (get-environment-variable "DYLD_LIBRARY_PATH"))) (define (repo-path) (if (and cross-chicken (not host-extension)) (##sys#split-path (destination-repository 'target)) (repository-path))) (define (install-path) (if (and cross-chicken (not host-extension)) (destination-repository 'target) (destination-repository 'host))) (define (build-script-extension mode platform) (string-append "build" (if (eq? mode 'target) ".target" "") (if (eq? platform 'windows) ".bat" ".sh"))) (define (install-script-extension mode platform) (string-append "install" (if (eq? mode 'target) ".target" "") (if (eq? platform 'windows) ".bat" ".sh"))) ;;; validate egg-information tree (define (egg-version? v) (and (list? v) (pair? v) (null? (cdr v)) (let ((str (->string (car v)))) (irregex-match '(seq (+ numeric) (? #\. (+ numeric) (? #\. (+ numeric)))) str)))) (define (optname? x) (and (list? x) (or (null? x) (string? (car x)) (symbol? (car x))))) (define (nameprop? x) (and (list? x) (or (symbol? (car x)) (string? (car x))))) (define (name-or-predefd? x) (or (optname? x) (and (pair? x) (pair? (car x)) (eq? 'predefined (caar x)) (optname? (cdar x))))) ;; ENTRY = (NAME TOPLEVEL? NESTED? NAMED? [VALIDATOR]) (define egg-info-items `((synopsis #t #f #f) (author #t #f #f) (category #t #f #f) (license #t #f #f) (version #t #f #f ,egg-version?) (dependencies #t #f #f ,list?) (source-dependencies #f #f #f ,list?) (component-dependencies #f #f #f ,list?) (test-dependencies #t #f #f ,list?) (build-dependencies #t #f #f ,list?) (components #t #t #f) (foreign-dependencies #t #f #f ,list?) (platform #t #f #f) (installed-files #t #f #f ,list?) (maintainer #t #f #f) (files #f #f #f ,list?) (distribution-files #t #f #f ,list?) ;; handled by henrietta-cache (source #f #f #f) (csc-options #f #f #f) (link-options #f #f #f) (custom-build #f #f #f) (linkage #f #f #f) (objects #f #f #f) (install-name #f #f #f ,nameprop?) (target #f #t #f) (host #f #t #f) (types-file #f #f #f ,name-or-predefd?) (inline-file #f #f #f ,optname?) (extension #f #t #t) (c-object #f #t #t) (generated-source-file #f #t #t) (program #f #t #t) (data #f #t #t) (modules #f #f #f) (component-options #t #f #f) (cond-expand * #t #f) (error * #f #f) (c-include #f #f #t) (scheme-include #f #f #t))) (define (validate-egg-info info) (define (validate info top?) (for-each (lambda (item) (cond ((or (not (pair? item)) (not (list? item)) (not (symbol? (car item)))) (error "invalid egg information item" item)) ((assq (car item) egg-info-items) => (lambda (a) (apply (lambda (name toplevel nested named #!optional validator) (cond ((and top? (not (eq? toplevel '*)) (not toplevel)) (error "egg information item not allowed at toplevel" item)) ((and (not (eq? toplevel '*)) toplevel (not top?)) (error "egg information item only allowed at toplevel" item)) ((and named (or (null? (cdr item)) (not (symbol? (cadr item))))) (error "unnamed egg information item" item)) ((and validator (not (validator (cdr item)))) (error "egg information item has invalid structure" item))) (when nested (cond (named (validate (cddr item) #f)) ((eq? name 'cond-expand) (for-each (lambda (clause) (unless (and (list? clause) (>= (length clause) 1)) (error "invalid syntax in `cond-expand' clause" clause)) (validate (cdr clause) top?)) (cdr item))) (else (validate (cdr item) #f))))) a))) (else (error "unknown egg information item" item)))) info)) (validate info #t) info) ;; utilities ;; Simpler replacement for SRFI-13's "string-suffix?" (define (string-suffix? suffix s) (let ((len-s (string-length s)) (len-suffix (string-length suffix))) (and (not (< len-s len-suffix)) (string=? suffix (substring s (- len-s len-suffix)))))) (define (d flag . args) (let ((flag (and (not (string? flag)) flag)) (fstr (if (string? flag) flag (car args))) (args (if (string? flag) args (cdr args)))) (when (or flag (not quiet)) (flush-output) (let ((port (current-error-port))) (apply fprintf port fstr args) (flush-output port) ) ))) (define (version>=? v1 v2) (define (version->list v) (map (lambda (x) (or (string->number x) x)) (irregex-split "[-\\._]" (->string v)))) (let loop ((p1 (version->list v1)) (p2 (version->list v2))) (cond ((null? p1) (null? p2)) ((null? p2)) ((number? (car p1)) (and (number? (car p2)) (or (> (car p1) (car p2)) (and (= (car p1) (car p2)) (loop (cdr p1) (cdr p2)))))) ((number? (car p2))) ((string>? (car p1) (car p2))) (else (and (string=? (car p1) (car p2)) (loop (cdr p1) (cdr p2))))))) ;; load defaults file ("setup.defaults") (define (load-defaults) (let* ((cfg-dir (system-config-directory)) (user-file (and cfg-dir (make-pathname (list cfg-dir "chicken") +defaults-file+))) (deff (or user-defaults (and user-file (file-exists? user-file)) (make-pathname host-sharedir +defaults-file+)))) (define (broken x) (error "invalid entry in defaults file" deff x)) (cond ((not (file-exists? deff)) '()) (else (for-each (lambda (x) (unless (and (list? x) (positive? (length x))) (broken x)) (case (car x) ((version) (cond ((not (pair? (cdr x))) (broken x)) ((not (= (cadr x) +defaults-version+)) (error (sprintf "version of installed `~a' does not match chicken-install version (~a)" +defaults-file+ +defaults-version+) (cadr x))) ;; others are ignored )) ((server) (set! default-servers (append default-servers (cdr x)))) ((map) (set! mappings (append mappings (map (lambda (m) (let ((p (list-index (cut eq? '-> <>) m))) (unless p (broken x)) (let-values (((from to) (split-at m p))) (cons from (cdr to))))) (cdr x))))) ((alias) (set! aliases (append aliases (map (lambda (a) (if (and (list? a) (= 2 (length a)) (every string? a)) (cons (car a) (cadr a)) (broken x))) (cdr x))))) ((override) (set! override (if (and (pair? (cdr x)) (string? (cadr x))) (call-with-input-file (cadr x) read-list) (cdr x)))) ((location) (set! default-locations (append default-locations (cdr x)))) ((hack) (set! hacks (append hacks (list (eval (cadr x)))))) (else (broken x)))) (call-with-input-file deff read-list)))))) ;; set variables with HTTP proxy information (define (setup-proxy uri) (and-let* (((string? uri)) (m (irregex-match "(http://)?([^:]+):?([0-9]*)" uri)) (port (irregex-match-substring m 3))) (set! proxy-user-pass (get-environment-variable "proxy_auth")) (set! proxy-host (irregex-match-substring m 2)) (set! proxy-port (or (string->number port) 80)))) ;; apply egg->egg mappings loaded from defaults (define (canonical x) (cond ((symbol? x) (cons (symbol->string x) #f)) ((string? x) (cons x #f)) ((pair? x) x) (else (error "internal error - bad egg spec" x)))) (define (apply-mappings eggs) (define (same? e1 e2) (equal? (car (canonical e1)) (car (canonical e2)))) (let ((eggs2 (delete-duplicates (append-map (lambda (egg) (cond ((find (lambda (m) (find (cut same? egg <>) (car m))) mappings) => (lambda (m) (map ->string (cdr m)))) (else (list egg)))) eggs) same?))) (unless (and (= (length eggs) (length eggs2)) (every (lambda (egg) (find (cut same? <> egg) eggs2)) eggs)) (d "mapped ~s to ~s~%" eggs eggs2)) eggs2)) ;; override versions, if specified in "overrides" file (define (override-version egg) (let ((name (string->symbol (if (pair? egg) (car egg) egg)))) (cond ((assq name override) => (lambda (a) (if (and (pair? egg) (pair? (cdr a)) (not (equal? (cadr a) (cdr egg)))) (warning (sprintf "version `~a' of extension `~a' overrides explicitly given version `~a'" (cadr a) name (cdr egg))) (d "overriding: ~a~%" a)) (if (null? (cdr a)) (and (pair? egg) (cdr egg)) (cadr a)))) ((pair? egg) (cdr egg)) (else #f)))) ;; "locate" egg: either perform HTTP download or copy from a file-system ;; location, also make sure it is up to date (define (locate-egg name version) (let* ((cached (make-pathname cache-directory name)) (now (current-seconds)) (status (make-pathname cached +status-file+)) (eggfile (make-pathname cached name +egg-extension+))) (define (fetch lax) (when (file-exists? cached) (delete-directory cached #t)) (create-directory cached #t) (fetch-egg-sources name version cached lax) (with-output-to-file status (cut write current-status))) (cond ((or (not (probe-dir cached)) (not (file-exists? eggfile))) (d "~a not cached~%" name) (when cached-only (error "extension not cached")) (fetch #f)) ((and (file-exists? status) (not (equal? current-status (with-input-from-file status read)))) (d "status changed for ~a~%" name) (cond (cached-only (if force-install (warning "cached egg does not match CHICKEN version" name) (error "cached egg does not match CHICKEN version - use `-force' to install anyway" name))) (else (fetch #f))))) (let* ((info (validate-egg-info (load-egg-info eggfile))) (vfile (make-pathname cached +version-file+)) (tfile (make-pathname cached +timestamp-file+)) (lversion (or (get-egg-property info 'version) (and (file-exists? vfile) (with-input-from-file vfile read))))) (cond ((and (not cached-only) (or (and (string? version) (not (equal? version lversion))) (and (or (not (file-exists? tfile)) (> (- now (with-input-from-file tfile read)) +one-hour+)) (not (check-remote-version name lversion cached))))) (d "version of ~a out of date~%" name) (fetch #t) (let* ((info (validate-egg-info (load-egg-info eggfile))) ; new egg info (fetched) (lversion (or (get-egg-property info 'version) (and (file-exists? vfile) (with-input-from-file vfile read))))) (values cached lversion))) (else (values cached version)))))) (define (resolve-location name) (cond ((assoc name aliases) => (lambda (a) (let ((new (cdr a))) (d "resolving alias `~a' to: ~a~%" name new) (resolve-location new)))) (else name))) (define (fetch-egg-sources name version dest lax) (let loop ((locs default-locations)) (cond ((null? locs) (let ((tmpdir (create-temporary-directory))) (let loop ((srvs (map resolve-location default-servers))) (if (null? srvs) (if lax (print "no connection to server or egg not found remotely - will use cached version") (begin (delete-directory dest) (delete-directory tmpdir) (error "extension or version not found" name))) (begin (d "trying server ~a ...~%" (car srvs)) (receive (dir ver) (try-download name (car srvs) version: version destination: tmpdir tests: #t ;; Always fetch tests, otherwise cached eggs can't be tested later proxy-host: proxy-host proxy-port: proxy-port proxy-user-pass: proxy-user-pass) (cond (dir (copy-egg-sources tmpdir dest) (delete-directory tmpdir #t) (when ver (with-output-to-file (make-pathname dest +version-file+) (cut write ver))) (with-output-to-file (make-pathname dest +timestamp-file+) (cut write (current-seconds)))) (else (loop (cdr srvs)))))))))) ((probe-dir (make-pathname (car locs) name)) => (lambda (dir) (d "trying location ~a ...~%" dir) (let* ((eggfile (make-pathname dir name +egg-extension+)) (info (validate-egg-info (load-egg-info eggfile))) (rversion (get-egg-property info 'version))) (if (or (not rversion) (not version) (version>=? rversion version)) (copy-egg-sources dir dest) (loop (cdr locs)))))) (else (loop (cdr locs)))))) (define (copy-egg-sources from to) ;;XXX should probably be done manually, instead of calling tool (let ((cmd (string-append (copy-directory-command platform) ;; Don't quote the globbing character! " " (make-pathname (qs* from platform #t) "*") " " (qs* to platform #t)))) (d "~a~%" cmd) (system+ cmd platform))) (define (check-remote-version name lversion cached) (let loop ((locs default-locations)) (cond ((null? locs) (let loop ((srvs (map resolve-location default-servers))) (and (pair? srvs) (let ((versions (try-list-versions name (car srvs)))) (or (and versions (every (cut version>=? lversion <>) versions)) (loop (cdr srvs))))))) ((probe-dir (make-pathname (car locs) name)) => (lambda (dir) ;; for locally available eggs, check set of files and ;; timestamps (compare-trees dir cached))) (else (loop (cdr locs)))))) (define (compare-trees there here) (let walk ((there there) (here here)) (let ((tfs (directory there)) (hfs (directory here))) (every (lambda (f) (and (member f hfs) (let ((tf2 (string-append there "/" f)) (hf2 (string-append here "/" f))) (and (<= (file-modification-time tf2) (file-modification-time hf2)) (if (directory-exists? tf2) (and (directory-exists? hf2) (walk tf2 hf2)) (not (directory-exists? hf2))))))) tfs)))) ;; check installed eggs for already installed files (define (matching-installed-files egg fnames) (let ((eggs (glob (make-pathname (install-path) "*" +egg-info-extension+)))) (let loop ((eggs eggs) (same '())) (cond ((null? eggs) same) ((string=? egg (pathname-file (car eggs))) (loop (cdr eggs) same)) (else (let* ((info (load-egg-info (car eggs))) (files (assq 'installed-files info)) (mfiles (and files (filter (lambda (fname) (and (not (member fname same)) (member fname files))) fnames)))) (loop (cdr eggs) (append (or mfiles '()) same)))))))) (define (check-installed-files name info) (let ((bad (matching-installed-files name (cdr (assq 'installed-files info))))) (unless (null? bad) (flush-output) (fprintf (current-error-port) "\nthe extension `~a' will overwrite the following files:\n\n" name) (for-each (lambda (fname) (fprintf (current-error-port) " ~a~%" fname)) bad) (exit 1)))) ;; retrieve eggs, recursively (if needed) (define (retrieve-eggs eggs) (for-each (lambda (egg) (cond ((assoc egg canonical-eggs) => (lambda (a) ;; push to front (set! canonical-eggs (cons a (delete a canonical-eggs eq?))))) (else (let ((name (if (pair? egg) (car egg) egg)) (version (override-version egg))) (let-values (((dir ver) (locate-egg name version))) (when (or (not dir) (null? (directory dir))) (when dir (delete-directory dir)) (error "extension or version not found" name)) (d retrieve-only "~a located at ~a~%" egg dir) (set! canonical-eggs (cons (list name dir ver) canonical-eggs))))))) eggs) (when (or (not retrieve-only) retrieve-recursive) (for-each (lambda (e+d+v) (unless (member (car e+d+v) checked-eggs) (d "checking ~a ...~%" (car e+d+v)) (set! checked-eggs (cons (car e+d+v) checked-eggs)) (let* ((fname (make-pathname (cadr e+d+v) (car e+d+v) +egg-extension+)) (info (validate-egg-info (load-egg-info fname)))) (d "checking platform for `~a'~%" (car e+d+v)) (check-platform (car e+d+v) info) (d "checking dependencies for `~a'~%" (car e+d+v)) (let-values (((missing upgrade) (outdated-dependencies (car e+d+v) info))) (set! missing (apply-mappings missing)) (set! dependencies (cons (cons (car e+d+v) (map (lambda (mu) (if (pair? mu) (car mu) mu)) (append missing upgrade))) dependencies)) (when (pair? missing) (d " missing: ~a~%" (string-intersperse missing ", ")) (retrieve-eggs missing)) (when (and (pair? upgrade) (or force-install (replace-extension-question e+d+v upgrade))) (let ((ueggs (unzip1 upgrade))) (d " upgrade: ~a~%" (string-intersperse ueggs ", ")) ;; XXX think about this... #;(for-each (lambda (e) (d "removing previously installed extension `~a'" e) (remove-extension e) ) ueggs) (retrieve-eggs ueggs) ) ) ) ) ) ) canonical-eggs))) (define (outdated-dependencies egg info) (let ((ds (get-egg-dependencies info))) (for-each (lambda (h) (set! ds (h egg ds))) hacks) (let loop ((deps ds) (missing '()) (upgrade '())) (if (null? deps) (values (reverse missing) (reverse upgrade)) (let-values (((m u) (check-dependency (car deps)))) (loop (cdr deps) (if m (cons m missing) missing) (if u (cons u upgrade) upgrade))))))) (define (get-egg-dependencies info) (append (get-egg-property* info 'dependencies '()) (get-egg-property* info 'build-dependencies '()) (if run-tests (get-egg-property* info 'test-dependencies '()) '()))) (define (check-dependency dep) (cond ((or (symbol? dep) (string? dep)) (values (and (not (ext-version dep)) (->string dep)) #f)) ((and (list? dep) (eq? 'or (car dep))) (let scan ((ordeps (cdr dep)) (bestm #f) (bestu #f)) (if (null? ordeps) (values (cond (bestu #f) ; upgrade overrides new (bestm bestm) (else #f)) bestu) (let-values (((m u) (check-dependency (car ordeps)))) (if (and (not m) (not u)) (values #f #f) (scan (cdr ordeps) (if (and m (not bestm)) m bestm) (if (and u (not bestu)) u bestu))))))) ((and (list? dep) (= 2 (length dep)) (or (string? (car dep)) (symbol? (car dep)))) (let ((v (ext-version (car dep)))) (cond ((not v) (values (->string (car dep)) #f)) ((not (version>=? v (->string (cadr dep)))) (cond ((string=? "chicken" (->string (car dep))) (if force-install (values #f #f) (error (string-append "Your CHICKEN version is not recent enough to use this extension - version " (cadr dep) " or newer is required")))) (else (values #f (cons (->string (car dep)) (->string (cadr dep))))))) (else (values #f #f))))) (else (warning "invalid dependency syntax in extension meta information" dep) (values #f #f)))) (define (ext-version x) (cond ((or (eq? x 'chicken) (equal? x "chicken")) (chicken-version)) ((let* ((sf (chicken.load#find-file (make-pathname #f (->string x) +egg-info-extension+) (repo-path)))) (and sf (file-exists? sf) (load-egg-info sf))) => (lambda (info) (let ((a (assq 'version info))) (if a (->string (cadr a)) "0.0.0")))) (else #f))) (define (check-platform name info) (unless cross-chicken (and-let* ((platform (get-egg-property info 'platform))) (or (let loop ((p platform)) (cond ((symbol? p) (feature? p)) ((not (list? p)) (error "invalid `platform' property" name platform)) ((and (eq? 'not (car p)) (pair? (cdr p))) (not (loop (cadr p)))) ((eq? 'and (car p)) (every loop (cdr p))) ((eq? 'or (car p)) (any loop (cdr p))) (else (error "invalid `platform' property" name platform)))) (error "extension is not targeted for this system" name))))) (define (replace-extension-question e+d+v upgrade) (print (string-intersperse (append (list "The following installed extensions are outdated, because `" (car e+d+v) "' requires later versions:\n\n") (filter-map (lambda (e) (cond ((assq (string->symbol (car e)) override) => (lambda (a) (when (and (pair? (cdr a)) (not (equal? (cadr a) (cdr e)))) (warning (sprintf "version `~a' of extension `~a' overrides required version `~a'" (cadr a) (car a) (cdr e)))) #f)) (else (conc " " (car e) " (" (or (ext-version (car e)) "unknown") " -> " (cdr e) ")" #\newline)))) upgrade)) "")) (let loop () (display "Do you want to replace the existing extensions? (yes/no/abort) ") (flush-output) (let ((r (trim (read-line)))) (cond ((string=? r "yes")) ((string=? r "no") #f) ((string=? r "abort") (exit 2)) (else (loop)))))) (define (trim str) (define (left lst) (cond ((null? lst) '()) ((char-whitespace? (car lst)) (left (cdr lst))) (else (cons (car lst) (left (cdr lst)))))) (list->string (reverse (left (reverse (left (string->list str))))))) ;; list available egg versions on servers (define (list-egg-versions eggs) (let ((srvs (map resolve-location default-servers))) (let loop1 ((eggs eggs)) (unless (null? eggs) (let* ((egg (car eggs)) (name (if (pair? egg) (car egg) egg))) (let loop2 ((srvs srvs)) (and (pair? srvs) (let ((versions (try-list-versions name (car srvs)))) (or (and versions (begin (printf "~a:" name) (for-each (cut printf " ~a" <>) versions) (newline))) (loop2 (cdr srvs)))))) (loop1 (cdr eggs))))))) ;; perform installation of retrieved eggs (define (install-eggs) (for-each (lambda (egg) (let* ((name (car egg)) (dir (cadr egg)) (eggfile (make-pathname dir name +egg-extension+)) (info (load-egg-info eggfile)) (vfile (make-pathname dir +version-file+)) (ver (and (file-exists? vfile) (with-input-from-file vfile read)))) (when (or host-extension (and (not target-extension) (not host-extension))) (let-values (((build install info) (compile-egg-info eggfile info ver platform 'host))) (let ((bscript (make-pathname dir name (build-script-extension 'host platform))) (iscript (make-pathname dir name (install-script-extension 'host platform)))) (generate-shell-commands platform build bscript dir (build-prefix 'host name info) (build-suffix 'host name info) keepfiles) (generate-shell-commands platform install iscript dir (install-prefix 'host name info) (install-suffix 'host name info) keepfiles) (cond (do-not-build (print bscript "\n" iscript)) (else (print "building " name) (run-script dir bscript platform) (unless (if (member name requested-eggs) no-install no-install-dependencies) (check-installed-files name info) (print " installing " name) (run-script dir iscript platform sudo: sudo-install)) (when (and (member name requested-eggs) run-tests (not (test-egg egg platform))) (exit 2))))))) (when target-extension (let-values (((build install info) (compile-egg-info eggfile info ver platform 'target))) (let ((bscript (make-pathname dir name (build-script-extension 'target platform))) (iscript (make-pathname dir name (install-script-extension 'target platform)))) (generate-shell-commands platform build bscript dir (build-prefix 'target name info) (build-suffix 'target name info) keepfiles) (generate-shell-commands platform install iscript dir (install-prefix 'target name info) (install-suffix 'target name info) keepfiles) (cond (do-not-build (print bscript "\n" iscript)) (else (print "building " name " (target)") (run-script dir bscript platform) (unless (if (member name requested-eggs) no-install no-install-dependencies) (print " installing " name " (target)") (run-script dir iscript platform))))))))) (order-installed-eggs))) (define (order-installed-eggs) (let* ((dag (reverse (sort-dependencies dependencies string=?))) (ordered (filter-map (cut assoc <> canonical-eggs) dag))) (unless quiet (d "install order:~%") (pp dag)) ordered)) (define (test-egg egg platform) (let* ((name (car egg)) (dir (cadr egg)) (version (caddr egg)) (testdir (make-pathname dir "tests")) (tscript (make-pathname testdir "run.scm"))) (if (and (directory-exists? testdir) (file-exists? tscript)) (let ((old (current-directory)) (cmd (string-append (qs* default-csi platform) " -s " (qs* tscript platform) " " (qs* name platform) " " (or version "")))) (change-directory testdir) (d "running: ~a~%" cmd) (let ((r (system+ cmd platform))) (flush-output (current-error-port)) (cond ((zero? r) (change-directory old) #t) (else (print "test script failed with nonzero exit status") #f)))) #t))) (define (run-script dir script platform #!key sudo (stop #t)) (d "running script ~a~%" script) (exec (if (eq? platform 'windows) script (string-append (if sudo (string-append sudo-program " ") "") (let ((dyld (and (eq? (software-version) 'macosx) (get-environment-variable "DYLD_LIBRARY_PATH")))) (if dyld (string-append "/usr/bin/env DYLD_LIBRARY_PATH=" (qs* dyld platform) " ") "")) "sh " script)) stop)) (define (exec cmd #!optional (stop #t)) (d "executing: ~s~%" cmd) (let ((r (system+ cmd platform))) (unless (zero? r) (if stop (error "shell command terminated with nonzero exit code" r cmd) (print "shell command terminated with nonzero exit code " r ": " cmd))) r)) ;;; update module-db (define (update-db) (let* ((files (glob (make-pathname (install-path) "*.import.so") (make-pathname (install-path) "*.import.scm"))) (dbfile (create-temporary-file))) (print "loading import libraries ...") (fluid-let ((##sys#warnings-enabled #f)) (for-each (lambda (path) (let* ((file (pathname-strip-directory path)) (import-name (pathname-strip-extension file)) (module-name (pathname-strip-extension import-name))) (handle-exceptions ex (print-error-message ex (current-error-port) (sprintf "Failed to import from `~a'" file)) (unless quiet (print "loading " file " ...")) (eval `(import-syntax ,(string->symbol module-name)))))) files)) (print "generating database ...") (let ((db (sort (concatenate (filter-map (lambda (m) (and-let* ((mod (cdr m)) (mname (##sys#module-name mod)) ((not (memq mname +internal-modules+))) ((not (eq? mname (current-module))))) (unless quiet (print "processing " mname " ...")) (let-values (((_ ve se) (##sys#module-exports mod))) (append (map (lambda (se) (list (car se) 'syntax mname)) se) (map (lambda (ve) (list (car ve) 'value mname)) ve))))) ##sys#module-table)) (lambda (e1 e2) (string<? (symbol->string (car e1)) (symbol->string (car e2))))))) (with-output-to-file dbfile (lambda () (for-each (lambda (x) (write x) (newline)) db))) (unless quiet (print "installing " +module-db+ " ...")) (copy-file dbfile (make-pathname (install-path) +module-db+) #t) (delete-file dbfile)))) ;; purge cache for given (or all) eggs (define (purge-cache eggs) (cond ((null? eggs) (when (file-exists? cache-directory) (d "purging complete cache at ~a~%" cache-directory) (delete-directory cache-directory #t))) (else (for-each (lambda (egg) (let* ((name (if (pair? egg) (car egg) egg)) (dname (make-pathname cache-directory name))) (when (file-exists? dname) (d "purging ~a from cache at ~a~%" name dname) (delete-directory dname #t)))) eggs)))) ;; command line parsing and selection of operations (define (perform-actions eggs) (load-defaults) (cond (update-module-db (update-db)) (purge-mode (purge-cache eggs)) (print-repository (print (install-path))) ((null? eggs) (cond (cached-only (error "`-cached' needs explicit egg list")) (list-versions-only (print "no eggs specified")) (else (let ((files (glob "*.egg" "chicken/*.egg"))) (when (null? files) (exit 3)) (set! canonical-eggs (map (lambda (fname) (list (pathname-file fname) (current-directory) #f)) files)) (set! requested-eggs (map car canonical-eggs)) (retrieve-eggs '()) (unless retrieve-only (install-eggs)))))) (else (let ((eggs (apply-mappings eggs))) (cond (list-versions-only (list-egg-versions eggs)) (else (set! requested-eggs (map (o car canonical) eggs)) (retrieve-eggs eggs) (unless retrieve-only (install-eggs)))))))) (define (usage code) (print #<<EOF usage: chicken-install [OPTION ...] [NAME[:VERSION] ...] -h -help show this message and exit -version show version and exit -force don't ask, install even if versions don't match -k -keep keep temporary files -s -sudo use external command to elevate privileges for filesystem operations -r -retrieve only retrieve egg into cache directory, don't install (giving `-r' more than once implies `-recursive') -recursive if `-retrieve' is given, retrieve also dependencies -dry-run do not build or install, just print the locations of the generated build & install scripts -list-versions list available versions for given eggs (HTTP transport only) -n -no-install do not install, just build -no-install-dependencies do not install dependencies -purge remove cached files for given eggs (or purge cache completely) -host when cross-compiling, compile extension only for host -target when cross-compiling, compile extension only for target -test run included test-cases, if available -u -update-db update export database -repository print path used for egg installation -override FILENAME override versions for installed eggs with information from file -from-list FILENAME install eggs from list obtained by `chicken-status -list' -v -verbose be verbose -cached only install from cache -D -feature NAME define build feature -defaults FILENAME use FILENAME as defaults instead of the installed `setup.defaults' file chicken-install recognizes the SUDO, http_proxy and proxy_auth environment variables, if set. EOF );| (exit code)) (define (main args) (setup-proxy (get-environment-variable "http_proxy")) (let ((eggs '()) (rx (irregex "([^:]+):(.+)"))) (let loop ((args args)) (if (null? args) (begin (validate-environment) (perform-actions (reverse eggs))) (let ((arg (car args))) (cond ((member arg '("-h" "-help" "--help")) (usage 0)) ((equal? arg "-test") (set! run-tests #t) (loop (cdr args))) ((equal? arg "-repository") (set! print-repository #t) (loop (cdr args))) ((equal? arg "-r") (if retrieve-only (set! retrieve-recursive #t) (set! retrieve-only #t)) (loop (cdr args))) ((equal? arg "-retrieve") (set! retrieve-only #t) (loop (cdr args))) ((equal? arg "-version") (print (chicken-version)) (exit 0)) ((member arg '("-D" "-feature")) (register-feature! (cadr args)) (loop (cddr args))) ((equal? arg "-recursive") (set! retrieve-recursive #t) (loop (cdr args))) ((equal? arg "-list-versions") (set! list-versions-only #t) (loop (cdr args))) ((equal? arg "-defaults") (set! user-defaults (cadr args)) (loop (cddr args))) ((equal? arg "-force") (set! force-install #t) (loop (cdr args))) ((equal? arg "-host") (set! target-extension #f) (loop (cdr args))) ((equal? arg "-target") (set! host-extension #f) (loop (cdr args))) ((member arg '("-u" "-update-db")) (set! update-module-db #t) (loop (cdr args))) ((equal? arg "-no-install-dependencies") (set! no-install-dependencies #t) (loop (cdr args))) ((equal? arg "-dry-run") (set! do-not-build #t) (loop (cdr args))) ((member arg '("-v" "-verbose")) (set! quiet #f) (loop (cdr args))) ((member arg '("-k" "-keep")) (set! keepfiles #t) (loop (cdr args))) ((member arg '("-s" "-sudo")) (set! sudo-install #t) (loop (cdr args))) ((member arg '("-n" "-no-install")) (set! no-install #t) (loop (cdr args))) ((equal? arg "-purge") (set! purge-mode #t) (loop (cdr args))) ((equal? arg "-cached") (set! cached-only #t) (loop (cdr args))) ((equal? arg "-from-list") (unless (pair? (cdr args)) (usage 1)) (set! eggs (append eggs (map (lambda (p) (if (null? (cdr p)) (->string (car p)) (cons (->string (car p)) (cadr p)))) (with-input-from-file (cadr args) read-list)))) (loop (cddr args))) ((equal? arg "-override") (unless (pair? (cdr args)) (usage 1)) (set! override (call-with-input-file (cadr args) read-list)) (loop (cddr args))) ;;XXX ((and (positive? (string-length arg)) (char=? #\- (string-ref arg 0))) (if (> (string-length arg) 2) (let ((sos (string->list (substring arg 1)))) (if (every (cut memq <> +short-options+) sos) (loop (append (map (cut string #\- <>) sos) (cdr args))) (usage 1))) (usage 1))) ((irregex-match rx arg) => (lambda (m) (set! eggs (alist-cons (irregex-match-substring m 1) (irregex-match-substring m 2) eggs)) (loop (cdr args)))) (else (set! eggs (cons arg eggs)) (loop (cdr args))))))))) (main (command-line-arguments)) ) ������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/mac.r���������������������������������������������������������������������������������0000644�0001750�0001750�00000000561�13213463160�013653� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������data 'MBAR' (128) { $"0001 0080" /* ...€ */ }; data 'MENU' (128, "Apple") { $"0080 0000 0000 0000 0000 FFFF FFFB 0114" /* .€........ÿÿÿû.. */ $"0A41 626F 7574 2046 4C54 4B00 0000 0001" /* ÂAbout FLTK..... */ $"2D00 0000 0000" /* -..... */ }; data 'carb' (0) { }; �����������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/scripts/������������������������������������������������������������������������������0000755�0001750�0001750�00000000000�13502230006�014405� 5����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/scripts/chicken-flymake.bat�����������������������������������������������������������0000644�0001750�0001750�00000000226�13213463160�020137� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������@echo off rem usage: chicken-flymake.bat OPTION-OR-FILENAME ... csc -SAv %1 %2 %3 %4 %5 %6 %7 %8 %9 rem status of last command must be successful ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/scripts/chicken-flymake���������������������������������������������������������������0000755�0001750�0001750�00000000123�13213463160�017371� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/bin/sh # # usage: chicken-flymake OPTION-OR-FILENAME ... csc -SAv "$@" || true ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/scripts/compile-all�������������������������������������������������������������������0000755�0001750�0001750�00000001700�13370655400�016543� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/bin/sh # usage: compile-all COMPILER OPTION ... set -e set -x compiler_options="-optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -feature debugbuild -types ./types.db -verbose -no-lambda-info -local -specialize" library_options="-optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -feature debugbuild -types ./types.db -verbose -explicit-use -no-trace -specialize" compiler="$1" shift for x in library eval data-structures ports files extras lolevel tcp srfi-4 posixunix posixwin irregex scheduler profiler stub expand modules chicken-syntax chicken-ffi-syntax build-version; do $compiler $x.scm $library_options -output-file /tmp/xxx.c "$@" done for x in chicken batch-driver compiler optimizer lfa2 compiler-syntax scrutinizer support c-platform c-backend; do $compiler $x.scm $compiler_options -output-file /tmp/xxx.c "$@" done ����������������������������������������������������������������chicken-5.1.0/scripts/csc-trans���������������������������������������������������������������������0000755�0001750�0001750�00000003052�13213463160�016240� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/bin/sh INDENT=indent INDENT_OPTS="-st" ENSCRIPT=enscript ENSCRIPT_OPTS="-q -Ec" CSC_OPTS="-to-stdout" CSC=csc # check for options COLOR="--color" MODE="" OUTPUT=- ALL=0 while getopts ":a23ufbihprcotlI:" opt; do case $opt in a ) ALL="1";; h ) MODE="--language=html";; p ) MODE="--language=PostScript";; r ) MODE="--language=rtf";; t ) NOENSCRIPT="1";; c ) COLOR="";; # disable color (on by default) o ) OUTPUT=$OPTARG;; u ) CSC_OPTS="$CSC_OPTS -unsafe";; b ) CSC_OPTS="$CSC_OPTS -block";; f ) CSC_OPTS="$CSC_OPTS -fixnum-arithmetic";; i ) CSC_OPTS="$CSC_OPTS -inline";; I ) CSC_OPTS="$CSC_OPTS -disable-interrupts";; 2 ) CSC_OPTS="$CSC_OPTS -O2";; 3 ) CSC_OPTS="$CSC_OPTS -O3";; l ) CSC="./csc -compiler ./chicken-static";; esac done shift $(($OPTIND - 1)) # First argument after options is the file FILE=$1 if [ "x$FILE" = "x" ]; then FILE="/dev/stdin" fi # Only prettify output if the appropriate programs are installed if type $INDENT >/dev/null 2>&1; then PASS2="$INDENT $INDENT_OPTS" else PASS2=cat fi if type $ENSCRIPT >/dev/null 2>&1; then PASS3="$ENSCRIPT $ENSCRIPT_OPTS $MODE $COLOR -o $OUTPUT" else PASS3=cat fi if [ -n "$NOENSCRIPT" ]; then PASS3=cat fi # Are we filtering out just the user code? if [ "x$ALL" = "x1" ]; then $CSC $CSC_OPTS $FILE | $PASS2 2>/dev/null | $PASS3 2>/dev/null else $CSC $CSC_OPTS $FILE |\ perl -an000e 'print if /C_trace/&&!/##sys#implicit/ || (/\/\* [-!%\w]+ in k\d+ / && ! /\/\* k\d+ /)' |\ $PASS2 | $PASS3 fi ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/scripts/make-wrapper.scm��������������������������������������������������������������0000644�0001750�0001750�00000000701�13370655400�017516� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; make-wrapper.scm - generate "trampoline" script for program ; ; usage: csi -s make-wrapper.scm NAME BINPATH (import (chicken pathname)) (let* ((args (command-line-arguments)) (name (car args)) (prefix (cadr args))) (with-output-to-file (make-pathname prefix name) (lambda () (display #<#EOF ##!/bin/sh if test -d .chicken; then exec .chicken/bin/"#{name}" "$@" else exec "#{prefix}"/"#{name}" "$@" fi EOF )))) ���������������������������������������������������������������chicken-5.1.0/scripts/makedist.scm������������������������������������������������������������������0000644�0001750�0001750�00000005612�13370655400�016732� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; makedist.scm - Make distribution tarballs (import (chicken file) (chicken fixnum) (chicken format) (chicken io) (chicken irregex) (chicken pathname) (chicken platform) (chicken process) (chicken process-context) (chicken string)) (include "mini-srfi-1.scm") (define *release* #f) (define *help* #f) (define BUILDVERSION (with-input-from-file "buildversion" read)) (define *platform* (let ((sv (symbol->string (software-version)))) (cond ((irregex-match ".*bsd" sv) "bsd") ((string=? sv "mingw32") (if (equal? (get-environment-variable "MSYSTEM") "MINGW32") "mingw-msys" "mingw32")) (else sv)))) (define *make* (cond ((string=? "bsd" *platform*) "gmake") ((string=? "mingw32" *platform*) "mingw32-make") (else "make"))) (define (prefix dir . files) (if (null? files) (pathname-directory dir) (let ((files2 (map (cut make-pathname dir <>) (normalize files)))) (if (or (pair? (cdr files)) (pair? (car files))) files2 (car files2) ) ) ) ) (define (normalize fs) (delete-duplicates (map ->string (if (pair? fs) (flatten fs) (list fs) ) ) equal?) ) (define (run . args) (let ((cmd (apply format args))) (display cmd (current-error-port)) (newline (current-error-port)) (system* cmd))) (define (release full?) (let* ((files (with-input-from-file "distribution/manifest" read-lines)) (distname (conc "chicken-" BUILDVERSION)) (distfiles (map (cut prefix distname <>) files)) (tgz (conc distname ".tar.gz"))) (run "rm -fr ~a ~a" distname tgz) (create-directory distname) (for-each (lambda (d) (let ((d (make-pathname distname d))) (unless (file-exists? d) (print "creating " d) (create-directory d 'with-parents)))) (delete-duplicates (filter-map prefix files) string=?)) (let ((missing (foldl (lambda (missing f) (cond ((file-exists? f) (run "cp -p ~a ~a" (qs f) (qs (make-pathname distname f))) missing) (else (cons f missing)))) '() files))) (unless (null? missing) (warning "files missing" missing) ) ) (run "tar cfz ~a ~a" (conc distname ".tar.gz") distname) (run "rm -fr ~a" distname))) (define (usage) (print "usage: makedist [-release] [-make PROGRAM] [--platform=PLATFORM] MAKEOPTION ...") (exit)) (define *makeargs* (let loop ((args (command-line-arguments))) (if (null? args) '() (let ((arg (car args))) (cond ((string=? "-release" arg) (set! *release* #t) (loop (cdr args))) ((string=? "-make" arg) (set! *make* (cadr args)) (loop (cddr args))) ((string=? "-help" arg) (usage)) ((string=? "-platform" arg) (set! *platform* (cadr args)) (loop (cddr args))) (else (cons arg (loop (cdr args))))))))) (run "~a -f Makefile.~a distfiles ~a" *make* *platform* (string-intersperse *makeargs*)) (release *release*) ����������������������������������������������������������������������������������������������������������������������chicken-5.1.0/scripts/mini-salmonella.scm�����������������������������������������������������������0000644�0001750�0001750�00000007564�13370655400�020222� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; mini-salmonella.scm - very simple tool to build all eggs (module mini-salmonella () (import scheme chicken) (import posix file extras data-structures setup-api (chicken process)) (define (usage code) (print "usage: mini-salmonella [-h] [-test] [-debug] [-download] [-trunk] EGGDIR [PREFIX]") (exit code) ) (define *eggdir* #f) (define *debug* #f) (define *run-tests* #f) (define *download* #f) (define *trunk* #f) (define *prefix* (get-environment-variable "CHICKEN_PREFIX")) (let loop ((args (command-line-arguments))) (when (pair? args) (let ((arg (car args))) (cond ((string=? "-h" arg) (usage 0)) ((string=? "-test" arg) (set! *run-tests* #t)) ((string=? "-debug" arg) (set! *debug* #t)) ((string=? "-download" arg) (set! *download* #t)) ((string=? "-trunk" arg) (set! *trunk* #t)) (*eggdir* (set! *prefix* arg)) (else (set! *eggdir* arg))) (loop (cdr args))))) (unless *eggdir* (usage 1)) (define-foreign-variable *binary-version* int "C_BINARY_VERSION") (define *repository* (make-pathname *prefix* (conc "lib/chicken/" *binary-version*))) (define *snapshot* (directory *repository*)) (define (cleanup-repository) (for-each (lambda (f) (let ((f2 (make-pathname *repository* f))) (cond ((member f2 *snapshot*)) ((directory? f2) (remove-directory f2)) (else (delete-file f2))))) (directory *repository*))) (define *chicken-install* (normalize-pathname (make-pathname *prefix* "bin/chicken-install"))) (define *eggs* (directory *eggdir*)) (define (find-newest egg) (let* ((ed (make-pathname *eggdir* egg)) (tagsdir (directory-exists? (make-pathname ed "tags"))) (trunkdir (directory-exists? (make-pathname ed "trunk")))) (cond ((and *trunk* trunkdir) trunkdir) (tagsdir (let ((tags (sort (directory tagsdir) version>=?))) (if (null? tags) (or trunkdir ed) (make-pathname ed (string-append "tags/" (car tags)))))) (else (or trunkdir ed))))) (define (report egg msg . args) (printf "~a..~?~%" (make-string (max 2 (- 32 (string-length egg))) #\.) msg args) ) (define *errlogfile* "mini-salmonella.errors.log") (define *logfile* "mini-salmonella.log") (define *tmplogfile* "mini-salmonella.tmp.log") (on-exit (lambda () (delete-file* *tmplogfile*))) (define (copy-log egg file) (let ((log (with-input-from-file file read-string))) (with-output-to-file *errlogfile* (lambda () (print #\newline egg #\:) (display log)) #:append))) (define *failed* 0) (define *succeeded* 0) (define (install-egg egg dir) (let ((command (conc *chicken-install* " -force " (if *run-tests* "-test " "") (if *trunk* "-trunk " "") (if *download* "" (string-append "-t local -l " (normalize-pathname *eggdir*) " ")) egg " " (cond ((not *debug*) (delete-file* (string-append *logfile* ".out")) (sprintf "2>~a >>~a.out" *tmplogfile* *logfile*)) (else ""))))) (when *debug* (print " " command)) (let ((status (system command))) (cond ((zero? status) (report egg "OK") (set! *succeeded* (add1 *succeeded*))) (else (report egg "FAILED") (set! *failed* (add1 *failed*)) (unless *debug* (copy-log egg *tmplogfile*))))))) (delete-file* *errlogfile*) (delete-file* *logfile*) (for-each (lambda (egg) (and-let* ((dir (find-newest egg))) (if *debug* (print "\n\n######################################## " egg "\n") (print* egg)) (cleanup-repository) (let ((meta (file-exists? (make-pathname dir egg "meta")))) (if meta (let ((setup (file-exists? (make-pathname dir egg "setup")))) (if setup (install-egg egg dir) (report egg "<no .setup script>")) ) (report egg "<no .meta file>"))))) (sort (directory *eggdir*) string<?)) (print "\nSucceeded: " *succeeded* ", failed: " *failed* ", total: " (+ *succeeded* *failed*)) ) ��������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/scripts/compare-documentation-exports.scm���������������������������������������������0000644�0001750�0001750�00000002755�13370655400�023135� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; This script takes a filename as its first argument, which should be a file ;; consisting of multiple lists in this format: ((module name) exported-symbol ...) ;; It imports the specified module and checks that the export list of the module matches ;; with the one supplied in the file. ;; This is useful to check that the documentation and module exports are synchronized. ;; TODO make the script read svn-wiki syntax directly (import chicken.sort srfi-1) (define *exit-code* 0) (define (warn msg . args) (apply fprintf (current-error-port) msg args) (set! *exit-code* 1)) (define (module-exports mod) (receive (_ ve se) (##sys#module-exports mod) (sort (append (map car ve) (map car se)) symbol<?))) (define (symbol<? s1 s2) (string<? (symbol->string s1) (symbol->string s2))) (define (check-module name exports) (eval `(import ,name)) (let* ((exports (sort exports symbol<?)) (canonical-name (string->symbol (string-intersperse (map ->string name) "."))) (mod (##sys#find-module canonical-name)) (mod-exports (module-exports mod)) (diff (lset-difference eqv? exports mod-exports))) (unless (null? diff) (warn "Mismatch is ~a: ~a~%" name diff)))) (define (run-checks filename) (with-input-from-file filename (lambda () (port-for-each check read)))) (define (check desc) (check-module (car desc) (cdr desc))) (run-checks (car (command-line-arguments))) (exit *exit-code*) �������������������chicken-5.1.0/extras.scm����������������������������������������������������������������������������0000644�0001750�0001750�00000054163�13502227553�014756� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; extras.scm - Optional non-standard extensions ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit extras) (uses data-structures)) (module chicken.io (read-list read-buffered read-byte read-line read-lines read-string read-string! read-token write-byte write-line write-string) (import scheme chicken.base chicken.fixnum) (include "common-declarations.scm") ;;; Read expressions from file: (define read-list (let ((read read)) (lambda (#!optional (port ##sys#standard-input) (reader read) max) (##sys#check-input-port port #t 'read-list) (do ((x (reader port) (reader port)) (i 0 (fx+ i 1)) (xs '() (cons x xs))) ((or (eof-object? x) (and max (fx>= i max))) (##sys#fast-reverse xs)))))) ;;; Line I/O: (define read-line (let () (lambda args (let* ([parg (pair? args)] [p (if parg (car args) ##sys#standard-input)] [limit (and parg (pair? (cdr args)) (cadr args))]) (##sys#check-input-port p #t 'read-line) (cond ((##sys#slot (##sys#slot p 2) 8) => (lambda (rl) (rl p limit))) (else (let* ((buffer-len (if limit limit 256)) (buffer (##sys#make-string buffer-len))) (let loop ([i 0]) (if (and limit (fx>= i limit)) (##sys#substring buffer 0 i) (let ([c (##sys#read-char-0 p)]) (if (eof-object? c) (if (fx= i 0) c (##sys#substring buffer 0 i) ) (case c [(#\newline) (##sys#substring buffer 0 i)] [(#\return) (let ([c (peek-char p)]) (if (char=? c #\newline) (begin (##sys#read-char-0 p) (##sys#substring buffer 0 i)) (##sys#substring buffer 0 i) ) ) ] [else (when (fx>= i buffer-len) (set! buffer (##sys#string-append buffer (make-string buffer-len))) (set! buffer-len (fx+ buffer-len buffer-len)) ) (##core#inline "C_setsubchar" buffer i c) (loop (fx+ i 1)) ] ) ) ) ) ) ) ) ) ) ) ) ) (define read-lines (lambda (#!optional (port ##sys#standard-input) (max most-positive-fixnum)) (##sys#check-input-port port #t 'read-lines) (let loop ((lns '()) (n (or max 1000000000))) ; this is silly (if (or (eq? n 0)) (##sys#fast-reverse lns) (let ((ln (read-line port))) (if (eof-object? ln) (##sys#fast-reverse lns) (loop (cons ln lns) (fx- n 1)))))))) (define write-line (lambda (str . port) (let* ((p (if (##core#inline "C_eqp" port '()) ##sys#standard-output (##sys#slot port 0) ) )) (##sys#check-output-port p #t 'write-line) (##sys#check-string str 'write-line) ((##sys#slot (##sys#slot p 2) 3) p str) ; write-string method (##sys#write-char-0 #\newline p)))) ;;; Extended I/O (define (read-string!/port n dest port start) (cond ((eq? n 0) 0) (else (let ((rdstring (##sys#slot (##sys#slot port 2) 7))) (if rdstring (let loop ((start start) (n n) (m 0)) (let ((n2 (rdstring port n dest start))) (##sys#setislot port 5 ; update port-position (fx+ (##sys#slot port 5) n2)) (cond ((eq? n2 0) m) ((or (not n) (fx< n2 n)) (loop (fx+ start n2) (and n (fx- n n2)) (fx+ m n2))) (else (fx+ n2 m))))) (let loop ((start start) (n n) (m 0)) (let ((n2 (let ((c (##sys#read-char-0 port))) (if (eof-object? c) 0 (begin (##core#inline "C_setsubchar" dest start c) 1) ) ) ) ) (cond ((eq? n2 0) m) ((or (not n) (fx< n2 n)) (loop (fx+ start n2) (and n (fx- n n2)) (fx+ m n2)) ) (else (fx+ n2 m))) ))))))) (define (read-string! n dest #!optional (port ##sys#standard-input) (start 0)) (##sys#check-input-port port #t 'read-string!) (##sys#check-string dest 'read-string!) (when n (##sys#check-fixnum n 'read-string!)) (let ((dest-size (##sys#size dest))) (unless (and n (fx<= (fx+ start n) dest-size)) (set! n (fx- dest-size start)))) (##sys#check-fixnum start 'read-string!) (read-string!/port n dest port start)) (define-constant read-string-buffer-size 2048) (define read-string/port (lambda (n p) (cond ((eq? n 0) "") ; Don't attempt to peek (fd might not be ready) ((eof-object? (##sys#peek-char-0 p)) #!eof) (n (let* ((str (##sys#make-string n)) (n2 (read-string!/port n str p 0))) (if (eq? n n2) str (##sys#substring str 0 n2)))) (else (let ([out (open-output-string)] (buf (make-string read-string-buffer-size))) (let loop () (let ((c (peek-char p)) (n (read-string!/port read-string-buffer-size buf p 0))) (cond ((eq? n 0) (get-output-string out)) (else (write-string buf n out) (loop)))))))))) (define (read-string #!optional n (port ##sys#standard-input)) (##sys#check-input-port port #t 'read-string) (when n (##sys#check-fixnum n 'read-string)) (read-string/port n port)) ;; Make internal reader procedures available for use in srfi-4.scm: (define chicken.io#read-string/port read-string/port) (define chicken.io#read-string!/port read-string!/port) (define (read-buffered #!optional (port ##sys#standard-input)) (##sys#check-input-port port #t 'read-buffered) (let ((rb (##sys#slot (##sys#slot port 2) 9))) ; read-buffered method (if rb (rb port) ""))) ;;; read token of characters that satisfy a predicate (define read-token (lambda (pred . port) (let ([port (optional port ##sys#standard-input)]) (##sys#check-input-port port #t 'read-token) (let ([out (open-output-string)]) (let loop () (let ([c (##sys#peek-char-0 port)]) (if (and (not (eof-object? c)) (pred c)) (begin (##sys#write-char-0 (##sys#read-char-0 port) out) (loop) ) (get-output-string out) ) ) ) ) ) ) ) (define write-string (lambda (s . more) (##sys#check-string s 'write-string) (let-optionals more ([n #f] [port ##sys#standard-output]) (##sys#check-output-port port #t 'write-string) (when n (##sys#check-fixnum n 'write-string)) ((##sys#slot (##sys#slot port 2) 3) ; write-string port (if (and n (fx< n (##sys#size s))) (##sys#substring s 0 n) s))))) ;;; Binary I/O (define (read-byte #!optional (port ##sys#standard-input)) (##sys#check-input-port port #t 'read-byte) (let ((x (##sys#read-char-0 port))) (if (eof-object? x) x (char->integer x) ) ) ) (define (write-byte byte #!optional (port ##sys#standard-output)) (##sys#check-fixnum byte 'write-byte) (##sys#check-output-port port #t 'write-byte) (##sys#write-char-0 (integer->char byte) port) ) ) ; module chicken.io ;;; Pretty print: ; ; Copyright (c) 1991, Marc Feeley ; Author: Marc Feeley (feeley@iro.umontreal.ca) ; Distribution restrictions: none ; ; Modified by felix for use with CHICKEN ; (module chicken.pretty-print (pp pretty-print pretty-print-width) (import scheme chicken.base chicken.fixnum chicken.keyword chicken.string) (define generic-write (lambda (obj display? width output) (define (read-macro? l) (define (length1? l) (and (pair? l) (null? (cdr l)))) (let ((head (car l)) (tail (cdr l))) (case head ((quote quasiquote unquote unquote-splicing) (length1? tail)) (else #f)))) (define (read-macro-body l) (cadr l)) (define (read-macro-prefix l) (let ((head (car l)) (tail (cdr l))) (case head ((quote) "'") ((quasiquote) "`") ((unquote) ",") ((unquote-splicing) ",@")))) (define (out str col) (and col (output str) (+ col (string-length str)))) (define (wr obj col) (define (wr-expr expr col) (if (read-macro? expr) (wr (read-macro-body expr) (out (read-macro-prefix expr) col)) (wr-lst expr col))) (define (wr-lst l col) (if (pair? l) (let loop ((l (cdr l)) (col (and col (wr (car l) (out "(" col))))) (cond ((not col) col) ((pair? l) (loop (cdr l) (wr (car l) (out " " col)))) ((null? l) (out ")" col)) (else (out ")" (wr l (out " . " col)))))) (out "()" col))) (cond ((pair? obj) (wr-expr obj col)) ((null? obj) (wr-lst obj col)) ((eof-object? obj) (out "#!eof" col)) ((vector? obj) (wr-lst (vector->list obj) (out "#" col))) ((boolean? obj) (out (if obj "#t" "#f") col)) ((##sys#number? obj) (out (##sys#number->string obj) col)) ((or (keyword? obj) (symbol? obj)) (let ((s (open-output-string))) (##sys#print obj #t s) (out (get-output-string s) col) ) ) ((procedure? obj) (out (##sys#procedure->string obj) col)) ((string? obj) (if display? (out obj col) (let loop ((i 0) (j 0) (col (out "\"" col))) (if (and col (fx< j (string-length obj))) (let ((c (string-ref obj j))) (cond ((or (char=? c #\\) (char=? c #\")) (loop j (+ j 1) (out "\\" (out (##sys#substring obj i j) col)))) ((or (char<? c #\x20) (char=? c #\x7f)) (loop (fx+ j 1) (fx+ j 1) (let ((col2 (out (##sys#substring obj i j) col))) (cond ((assq c '((#\tab . "\\t") (#\newline . "\\n") (#\return . "\\r") (#\vtab . "\\v") (#\page . "\\f") (#\alarm . "\\a") (#\backspace . "\\b"))) => (lambda (a) (out (cdr a) col2))) (else (out (number->string (char->integer c) 16) (out (if (char<? c #\x10) "0" "") (out "\\x" col2)))))))) (else (loop i (fx+ j 1) col)))) (out "\"" (out (##sys#substring obj i j) col)))))) ((char? obj) (if display? (out (make-string 1 obj) col) (let ([code (char->integer obj)]) (out "#\\" col) (cond [(char-name obj) => (lambda (cn) (out (##sys#slot cn 1) col) ) ] [(fx< code 32) (out "x" col) (out (number->string code 16) col) ] [(fx> code 255) (out (if (fx> code #xffff) "U" "u") col) (out (number->string code 16) col) ] [else (out (make-string 1 obj) col)] ) ) ) ) ((##core#inline "C_undefinedp" obj) (out "#<unspecified>" col)) ((##core#inline "C_anypointerp" obj) (out (##sys#pointer->string obj) col)) ((##core#inline "C_unboundvaluep" obj) (out "#<unbound value>" col) ) ((##sys#generic-structure? obj) (let ([o (open-output-string)]) (##sys#user-print-hook obj #t o) (out (get-output-string o) col) ) ) ((port? obj) (out (string-append "#<port " (##sys#slot obj 3) ">") col)) ((##core#inline "C_bytevectorp" obj) (out "#${" col) (let ((len (##sys#size obj))) (do ((i 0 (fx+ i 1))) ((fx>= i len)) (let ((b (##sys#byte obj i))) (when (fx< b 16) (out "0" col)) (out (##sys#number->string b 16) col))) (out "}" col))) ((##core#inline "C_lambdainfop" obj) (out "#<lambda info " col) (out (##sys#lambda-info->string obj) col) (out ">" col) ) (else (out "#<unprintable object>" col)) ) ) (define (pp obj col) (define (spaces n col) (if (> n 0) (if (> n 7) (spaces (- n 8) (out " " col)) (out (##sys#substring " " 0 n) col)) col)) (define (indent to col) (and col (if (< to col) (and (out (make-string 1 #\newline) col) (spaces to 0)) (spaces (- to col) col)))) (define (pr obj col extra pp-pair) (if (or (pair? obj) (vector? obj)) ; may have to split on multiple lines (let ((result '()) (left (max (+ (- (- width col) extra) 1) max-expr-width))) (generic-write obj display? #f (lambda (str) (set! result (cons str result)) (set! left (- left (string-length str))) (> left 0))) (if (> left 0) ; all can be printed on one line (out (reverse-string-append result) col) (if (pair? obj) (pp-pair obj col extra) (pp-list (vector->list obj) (out "#" col) extra pp-expr)))) (wr obj col))) (define (pp-expr expr col extra) (if (read-macro? expr) (pr (read-macro-body expr) (out (read-macro-prefix expr) col) extra pp-expr) (let ((head (car expr))) (if (symbol? head) (let ((proc (style head))) (if proc (proc expr col extra) (if (> (string-length (##sys#symbol->string head)) max-call-head-width) (pp-general expr col extra #f #f #f pp-expr) (pp-call expr col extra pp-expr)))) (pp-list expr col extra pp-expr))))) ; (head item1 ; item2 ; item3) (define (pp-call expr col extra pp-item) (let ((col* (wr (car expr) (out "(" col)))) (and col (pp-down (cdr expr) col* (+ col* 1) extra pp-item)))) ; (item1 ; item2 ; item3) (define (pp-list l col extra pp-item) (let ((col (out "(" col))) (pp-down l col col extra pp-item))) (define (pp-down l col1 col2 extra pp-item) (let loop ((l l) (col col1)) (and col (cond ((pair? l) (let ((rest (cdr l))) (let ((extra (if (null? rest) (+ extra 1) 0))) (loop rest (pr (car l) (indent col2 col) extra pp-item))))) ((null? l) (out ")" col)) (else (out ")" (pr l (indent col2 (out "." (indent col2 col))) (+ extra 1) pp-item))))))) (define (pp-general expr col extra named? pp-1 pp-2 pp-3) (define (tail1 rest col1 col2 col3) (if (and pp-1 (pair? rest)) (let* ((val1 (car rest)) (rest (cdr rest)) (extra (if (null? rest) (+ extra 1) 0))) (tail2 rest col1 (pr val1 (indent col3 col2) extra pp-1) col3)) (tail2 rest col1 col2 col3))) (define (tail2 rest col1 col2 col3) (if (and pp-2 (pair? rest)) (let* ((val1 (car rest)) (rest (cdr rest)) (extra (if (null? rest) (+ extra 1) 0))) (tail3 rest col1 (pr val1 (indent col3 col2) extra pp-2))) (tail3 rest col1 col2))) (define (tail3 rest col1 col2) (pp-down rest col2 col1 extra pp-3)) (let* ((head (car expr)) (rest (cdr expr)) (col* (wr head (out "(" col)))) (if (and named? (pair? rest)) (let* ((name (car rest)) (rest (cdr rest)) (col** (wr name (out " " col*)))) (tail1 rest (+ col indent-general) col** (+ col** 1))) (tail1 rest (+ col indent-general) col* (+ col* 1))))) (define (pp-expr-list l col extra) (pp-list l col extra pp-expr)) (define (pp-lambda expr col extra) (pp-general expr col extra #f pp-expr-list #f pp-expr)) (define (pp-if expr col extra) (pp-general expr col extra #f pp-expr #f pp-expr)) (define (pp-cond expr col extra) (pp-call expr col extra pp-expr-list)) (define (pp-case expr col extra) (pp-general expr col extra #f pp-expr #f pp-expr-list)) (define (pp-and expr col extra) (pp-call expr col extra pp-expr)) (define (pp-let expr col extra) (let* ((rest (cdr expr)) (named? (and (pair? rest) (symbol? (car rest))))) (pp-general expr col extra named? pp-expr-list #f pp-expr))) (define (pp-begin expr col extra) (pp-general expr col extra #f #f #f pp-expr)) (define (pp-do expr col extra) (pp-general expr col extra #f pp-expr-list pp-expr-list pp-expr)) ;; define formatting style (change these to suit your style) (define indent-general 2) (define max-call-head-width 5) (define max-expr-width 50) (define (style head) (case head ((lambda let* letrec letrec* define) pp-lambda) ((if set!) pp-if) ((cond) pp-cond) ((case) pp-case) ((and or) pp-and) ((let) pp-let) ((begin) pp-begin) ((do) pp-do) (else #f))) (pr obj col 0 pp-expr)) (if width (out (make-string 1 #\newline) (pp obj 0)) (wr obj 0)))) ; (pretty-print obj port) pretty prints 'obj' on 'port'. The current ; output port is used if 'port' is not specified. (define pretty-print-width (make-parameter 79)) (define (pretty-print obj . opt) (let ((port (if (pair? opt) (car opt) (current-output-port)))) (generic-write obj #f (pretty-print-width) (lambda (s) (display s port) #t)) (##core#undefined) ) ) (define pp pretty-print)) ;;; Write simple formatted output: (module chicken.format (format fprintf printf sprintf) (import scheme chicken.base chicken.fixnum chicken.platform) (define fprintf0 (lambda (loc port msg args) (when port (##sys#check-output-port port #t loc)) (let ((out (if (and port (##sys#tty-port? port)) port (open-output-string)))) (let rec ([msg msg] [args args]) (##sys#check-string msg loc) (let ((index 0) (len (##sys#size msg)) ) (define (fetch) (let ((c (##core#inline "C_subchar" msg index))) (set! index (fx+ index 1)) c) ) (define (next) (if (##core#inline "C_eqp" args '()) (##sys#error loc "too few arguments to formatted output procedure") (let ((x (##sys#slot args 0))) (set! args (##sys#slot args 1)) x) ) ) (let loop () (unless (fx>= index len) (let ((c (fetch))) (if (and (eq? c #\~) (fx< index len)) (let ((dchar (fetch))) (case (char-upcase dchar) ((#\S) (write (next) out)) ((#\A) (display (next) out)) ((#\C) (##sys#write-char-0 (next) out)) ((#\B) (display (##sys#number->string (next) 2) out)) ((#\O) (display (##sys#number->string (next) 8) out)) ((#\X) (display (##sys#number->string (next) 16) out)) ((#\!) (##sys#flush-output out)) ((#\?) (let* ([fstr (next)] [lst (next)] ) (##sys#check-list lst loc) (rec fstr lst) out) ) ((#\~) (##sys#write-char-0 #\~ out)) ((#\% #\N) (newline out)) (else (if (char-whitespace? dchar) (let skip ((c (fetch))) (if (char-whitespace? c) (skip (fetch)) (set! index (fx- index 1)) ) ) (##sys#error loc "illegal format-string character" dchar) ) ) ) ) (##sys#write-char-0 c out) ) (loop) ) ) ) ) ) (cond ((not port) (get-output-string out)) ((not (eq? out port)) (##sys#print (get-output-string out) #f port) ) ) ) ) ) (define (fprintf port fstr . args) (fprintf0 'fprintf port fstr args) ) (define (printf fstr . args) (fprintf0 'printf ##sys#standard-output fstr args) ) (define (sprintf fstr . args) (fprintf0 'sprintf #f fstr args) ) (define format (lambda (fmt-or-dst . args) (apply (cond [(not fmt-or-dst) sprintf] [(boolean? fmt-or-dst) printf] [(string? fmt-or-dst) (set! args (cons fmt-or-dst args)) sprintf] [(output-port? fmt-or-dst) (set! args (cons fmt-or-dst args)) fprintf] [else (##sys#error 'format "illegal destination" fmt-or-dst args)]) args) ) ) (register-feature! 'srfi-28)) ;;; Random numbers: (module chicken.random (set-pseudo-random-seed! pseudo-random-integer pseudo-random-real random-bytes) (import scheme chicken.base chicken.time chicken.io chicken.foreign) (define (set-pseudo-random-seed! buf #!optional n) (cond (n (##sys#check-fixnum n 'set-pseudo-random-seed!) (when (##core#inline "C_fixnum_lessp" n 0) (##sys#error 'set-pseudo-random-seed! "invalid size" n))) (else (set! n (##sys#size buf)))) (unless (##core#inline "C_byteblockp" buf) (##sys#error 'set-pseudo-random-seed! "invalid buffer type" buf)) (##core#inline "C_set_random_seed" buf (##core#inline "C_i_fixnum_min" n (##sys#size buf)))) (define (pseudo-random-integer n) (cond ((##core#inline "C_fixnump" n) (##core#inline "C_random_fixnum" n)) ((not (##core#inline "C_i_bignump" n)) (##sys#error 'pseudo-random-integer "bad argument type" n)) (else (##core#inline_allocate ("C_s_a_u_i_random_int" 2) n)))) (define (pseudo-random-real) (##core#inline_allocate ("C_a_i_random_real" 2))) (define random-bytes (let ((nstate (foreign-value "C_RANDOM_STATE_SIZE" unsigned-int))) (lambda (#!optional buf size) (when size (##sys#check-fixnum size 'random-bytes) (when (< size 0) (##sys#error 'random-bytes "invalid size" size))) (let* ((dest (cond (buf (when (or (##sys#immediate? buf) (not (##core#inline "C_byteblockp" buf))) (##sys#error 'random-bytes "invalid buffer type" buf)) buf) (else (make-string (or size nstate))))) (r (##core#inline "C_random_bytes" dest (or size (##sys#size dest))))) (unless r (##sys#error 'random-bytes "unable to read random bytes")) (unless (eq? buf dest) (##core#inline "C_string_to_bytevector" dest)) dest)))) ) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/extras.c������������������������������������������������������������������������������0000644�0001750�0001750�00001054454�13502227735�014424� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from extras.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: extras.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file extras.c -emit-import-library chicken.format -emit-import-library chicken.io -emit-import-library chicken.pretty-print -emit-import-library chicken.random unit: extras uses: data-structures library */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_data_2dstructures_toplevel) C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[165]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,17),40,100,111,108,111,111,112,57,54,32,120,32,105,32,120,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,108,105,115,116,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,9),40,103,49,50,48,32,114,108,41,0,0,0,0,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,108,105,110,101,32,46,32,97,114,103,115,41,0,0,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,110,115,32,110,41,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,108,105,110,101,115,32,46,32,114,101,115,116,41,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,105,111,35,119,114,105,116,101,45,108,105,110,101,32,115,116,114,32,46,32,112,111,114,116,41,0,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,115,116,97,114,116,32,110,32,109,41}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,115,116,97,114,116,32,110,32,109,41}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,33,47,112,111,114,116,32,110,32,100,101,115,116,32,112,111,114,116,32,115,116,97,114,116,41}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,33,32,110,32,100,101,115,116,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,47,112,111,114,116,32,110,32,112,41,0,0,0,0,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,117,102,102,101,114,101,100,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,116,111,107,101,110,32,112,114,101,100,32,46,32,112,111,114,116,41,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,16),40,98,111,100,121,51,49,53,32,110,32,112,111,114,116,41}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,16),40,100,101,102,45,112,111,114,116,51,49,56,32,37,110,41}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,10),40,100,101,102,45,110,51,49,55,41,0,0,0,0,0,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,105,111,35,119,114,105,116,101,45,115,116,114,105,110,103,32,115,32,46,32,109,111,114,101,41,0,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,121,116,101,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,111,35,119,114,105,116,101,45,98,121,116,101,32,98,121,116,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,15),40,114,101,97,100,45,109,97,99,114,111,63,32,108,41,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,19),40,114,101,97,100,45,109,97,99,114,111,45,112,114,101,102,105,120,41,0,0,0,0,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,13),40,111,117,116,32,115,116,114,32,99,111,108,41,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,18),40,119,114,45,101,120,112,114,32,101,120,112,114,32,99,111,108,41,0,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,32,99,111,108,41,0,0,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,14),40,119,114,45,108,115,116,32,108,32,99,111,108,41,0,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,8),40,103,53,48,48,32,97,41}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,105,32,106,32,99,111,108,41,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,9),40,103,53,49,49,32,99,110,41,0,0,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,53,50,48,32,105,41,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,12),40,119,114,32,111,98,106,32,99,111,108,41,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,14),40,115,112,97,99,101,115,32,110,32,99,111,108,41,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,15),40,105,110,100,101,110,116,32,116,111,32,99,111,108,41,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,11),40,97,50,56,52,54,32,115,116,114,41,0,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,26),40,112,114,32,111,98,106,32,99,111,108,32,101,120,116,114,97,32,112,112,45,112,97,105,114,41,0,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,24),40,112,112,45,101,120,112,114,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,32),40,112,112,45,99,97,108,108,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,32,112,112,45,105,116,101,109,41}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,29),40,112,112,45,108,105,115,116,32,108,32,99,111,108,32,101,120,116,114,97,32,112,112,45,105,116,101,109,41,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,32,99,111,108,41,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,35),40,112,112,45,100,111,119,110,32,108,32,99,111,108,49,32,99,111,108,50,32,101,120,116,114,97,32,112,112,45,105,116,101,109,41,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,27),40,116,97,105,108,49,32,114,101,115,116,32,99,111,108,49,32,99,111,108,50,32,99,111,108,51,41,0,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,27),40,116,97,105,108,50,32,114,101,115,116,32,99,111,108,49,32,99,111,108,50,32,99,111,108,51,41,0,0,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,22),40,116,97,105,108,51,32,114,101,115,116,32,99,111,108,49,32,99,111,108,50,41,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,49),40,112,112,45,103,101,110,101,114,97,108,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,32,110,97,109,101,100,63,32,112,112,45,49,32,112,112,45,50,32,112,112,45,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,26),40,112,112,45,101,120,112,114,45,108,105,115,116,32,108,32,99,111,108,32,101,120,116,114,97,41,0,0,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,26),40,112,112,45,108,97,109,98,100,97,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0,0,0,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,22),40,112,112,45,105,102,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,24),40,112,112,45,99,111,110,100,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,24),40,112,112,45,99,97,115,101,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,23),40,112,112,45,97,110,100,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,23),40,112,112,45,108,101,116,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,25),40,112,112,45,98,101,103,105,110,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,22),40,112,112,45,100,111,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,12),40,115,116,121,108,101,32,104,101,97,100,41,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,12),40,112,112,32,111,98,106,32,99,111,108,41,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,62),40,99,104,105,99,107,101,110,46,112,114,101,116,116,121,45,112,114,105,110,116,35,103,101,110,101,114,105,99,45,119,114,105,116,101,32,111,98,106,32,100,105,115,112,108,97,121,63,32,119,105,100,116,104,32,111,117,116,112,117,116,41,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,9),40,97,51,52,50,48,32,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,112,114,101,116,116,121,45,112,114,105,110,116,35,112,114,101,116,116,121,45,112,114,105,110,116,32,111,98,106,32,46,32,111,112,116,41,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,6),40,110,101,120,116,41,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,6),40,115,107,105,112,41,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,14),40,114,101,99,32,109,115,103,32,97,114,103,115,41,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,111,114,109,97,116,35,102,112,114,105,110,116,102,48,32,108,111,99,32,112,111,114,116,32,109,115,103,32,97,114,103,115,41,0,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,102,111,114,109,97,116,35,102,112,114,105,110,116,102,32,112,111,114,116,32,102,115,116,114,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,102,111,114,109,97,116,35,112,114,105,110,116,102,32,102,115,116,114,32,46,32,97,114,103,115,41,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,102,111,114,109,97,116,35,115,112,114,105,110,116,102,32,102,115,116,114,32,46,32,97,114,103,115,41,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,102,111,114,109,97,116,35,102,111,114,109,97,116,32,102,109,116,45,111,114,45,100,115,116,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,114,97,110,100,111,109,35,115,101,116,45,112,115,101,117,100,111,45,114,97,110,100,111,109,45,115,101,101,100,33,32,98,117,102,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,114,97,110,100,111,109,35,112,115,101,117,100,111,45,114,97,110,100,111,109,45,105,110,116,101,103,101,114,32,110,41}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,114,97,110,100,111,109,35,112,115,101,117,100,111,45,114,97,110,100,111,109,45,114,101,97,108,41,0,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,114,97,110,100,111,109,35,114,97,110,100,111,109,45,98,121,116,101,115,32,46,32,114,101,115,116,41,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_1083) static void C_ccall f_1083(C_word c,C_word *av) C_noret; C_noret_decl(f_1086) static void C_ccall f_1086(C_word c,C_word *av) C_noret; C_noret_decl(f_1088) static void C_ccall f_1088(C_word c,C_word *av) C_noret; C_noret_decl(f_1117) static void C_ccall f_1117(C_word c,C_word *av) C_noret; C_noret_decl(f_1119) static void C_fcall f_1119(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1139) static void C_ccall f_1139(C_word c,C_word *av) C_noret; C_noret_decl(f_1191) static void C_ccall f_1191(C_word c,C_word *av) C_noret; C_noret_decl(f_1201) static void C_fcall f_1201(C_word t0,C_word t1) C_noret; C_noret_decl(f_1211) static void C_fcall f_1211(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1224) static void C_ccall f_1224(C_word c,C_word *av) C_noret; C_noret_decl(f_1229) static void C_fcall f_1229(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1242) static void C_ccall f_1242(C_word c,C_word *av) C_noret; C_noret_decl(f_1275) static void C_ccall f_1275(C_word c,C_word *av) C_noret; C_noret_decl(f_1284) static void C_ccall f_1284(C_word c,C_word *av) C_noret; C_noret_decl(f_1293) static void C_fcall f_1293(C_word t0,C_word t1) C_noret; C_noret_decl(f_1307) static void C_ccall f_1307(C_word c,C_word *av) C_noret; C_noret_decl(f_1315) static void C_ccall f_1315(C_word c,C_word *av) C_noret; C_noret_decl(f_1344) static void C_ccall f_1344(C_word c,C_word *av) C_noret; C_noret_decl(f_1369) static void C_fcall f_1369(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1382) static void C_ccall f_1382(C_word c,C_word *av) C_noret; C_noret_decl(f_1428) static void C_ccall f_1428(C_word c,C_word *av) C_noret; C_noret_decl(f_1444) static void C_ccall f_1444(C_word c,C_word *av) C_noret; C_noret_decl(f_1456) static void C_ccall f_1456(C_word c,C_word *av) C_noret; C_noret_decl(f_1474) static void C_fcall f_1474(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1478) static void C_ccall f_1478(C_word c,C_word *av) C_noret; C_noret_decl(f_1533) static void C_fcall f_1533(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_1537) static void C_ccall f_1537(C_word c,C_word *av) C_noret; C_noret_decl(f_1540) static void C_fcall f_1540(C_word t0,C_word t1) C_noret; C_noret_decl(f_1588) static void C_ccall f_1588(C_word c,C_word *av) C_noret; C_noret_decl(f_1610) static void C_ccall f_1610(C_word c,C_word *av) C_noret; C_noret_decl(f_1616) static void C_fcall f_1616(C_word t0,C_word t1) C_noret; C_noret_decl(f_1619) static void C_ccall f_1619(C_word c,C_word *av) C_noret; C_noret_decl(f_1625) static void C_fcall f_1625(C_word t0,C_word t1) C_noret; C_noret_decl(f_1665) static void C_ccall f_1665(C_word c,C_word *av) C_noret; C_noret_decl(f_1684) static void C_ccall f_1684(C_word c,C_word *av) C_noret; C_noret_decl(f_1687) static void C_ccall f_1687(C_word c,C_word *av) C_noret; C_noret_decl(f_1699) static void C_ccall f_1699(C_word c,C_word *av) C_noret; C_noret_decl(f_1702) static void C_ccall f_1702(C_word c,C_word *av) C_noret; C_noret_decl(f_1707) static void C_fcall f_1707(C_word t0,C_word t1) C_noret; C_noret_decl(f_1711) static void C_ccall f_1711(C_word c,C_word *av) C_noret; C_noret_decl(f_1714) static void C_ccall f_1714(C_word c,C_word *av) C_noret; C_noret_decl(f_1726) static void C_ccall f_1726(C_word c,C_word *av) C_noret; C_noret_decl(f_1734) static void C_ccall f_1734(C_word c,C_word *av) C_noret; C_noret_decl(f_1736) static void C_ccall f_1736(C_word c,C_word *av) C_noret; C_noret_decl(f_1755) static void C_ccall f_1755(C_word c,C_word *av) C_noret; C_noret_decl(f_1789) static void C_ccall f_1789(C_word c,C_word *av) C_noret; C_noret_decl(f_1817) static void C_ccall f_1817(C_word c,C_word *av) C_noret; C_noret_decl(f_1827) static void C_ccall f_1827(C_word c,C_word *av) C_noret; C_noret_decl(f_1832) static void C_fcall f_1832(C_word t0,C_word t1) C_noret; C_noret_decl(f_1836) static void C_ccall f_1836(C_word c,C_word *av) C_noret; C_noret_decl(f_1842) static void C_ccall f_1842(C_word c,C_word *av) C_noret; C_noret_decl(f_1845) static void C_ccall f_1845(C_word c,C_word *av) C_noret; C_noret_decl(f_1852) static void C_ccall f_1852(C_word c,C_word *av) C_noret; C_noret_decl(f_1873) static void C_ccall f_1873(C_word c,C_word *av) C_noret; C_noret_decl(f_1878) static void C_fcall f_1878(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_1885) static void C_ccall f_1885(C_word c,C_word *av) C_noret; C_noret_decl(f_1895) static void C_ccall f_1895(C_word c,C_word *av) C_noret; C_noret_decl(f_1898) static void C_fcall f_1898(C_word t0,C_word t1) C_noret; C_noret_decl(f_1916) static void C_fcall f_1916(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_1921) static void C_fcall f_1921(C_word t0,C_word t1) C_noret; C_noret_decl(f_1956) static void C_ccall f_1956(C_word c,C_word *av) C_noret; C_noret_decl(f_1966) static void C_ccall f_1966(C_word c,C_word *av) C_noret; C_noret_decl(f_1983) static void C_ccall f_1983(C_word c,C_word *av) C_noret; C_noret_decl(f_1990) static void C_ccall f_1990(C_word c,C_word *av) C_noret; C_noret_decl(f_2008) static void C_fcall f_2008(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2011) static void C_fcall f_2011(C_word t0,C_word t1) C_noret; C_noret_decl(f_2039) static void C_fcall f_2039(C_word t0,C_word t1) C_noret; C_noret_decl(f_2073) static C_word C_fcall f_2073(C_word t0); C_noret_decl(f_2112) static void C_fcall f_2112(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2122) static void C_ccall f_2122(C_word c,C_word *av) C_noret; C_noret_decl(f_2131) static void C_fcall f_2131(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2134) static void C_fcall f_2134(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2141) static void C_ccall f_2141(C_word c,C_word *av) C_noret; C_noret_decl(f_2152) static void C_ccall f_2152(C_word c,C_word *av) C_noret; C_noret_decl(f_2161) static void C_fcall f_2161(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2177) static void C_ccall f_2177(C_word c,C_word *av) C_noret; C_noret_decl(f_2179) static void C_fcall f_2179(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2201) static void C_ccall f_2201(C_word c,C_word *av) C_noret; C_noret_decl(f_2207) static void C_ccall f_2207(C_word c,C_word *av) C_noret; C_noret_decl(f_2223) static void C_ccall f_2223(C_word c,C_word *av) C_noret; C_noret_decl(f_2227) static void C_ccall f_2227(C_word c,C_word *av) C_noret; C_noret_decl(f_2236) static void C_ccall f_2236(C_word c,C_word *av) C_noret; C_noret_decl(f_2279) static void C_ccall f_2279(C_word c,C_word *av) C_noret; C_noret_decl(f_2283) static void C_ccall f_2283(C_word c,C_word *av) C_noret; C_noret_decl(f_2302) static void C_ccall f_2302(C_word c,C_word *av) C_noret; C_noret_decl(f_2309) static void C_ccall f_2309(C_word c,C_word *av) C_noret; C_noret_decl(f_2315) static void C_ccall f_2315(C_word c,C_word *av) C_noret; C_noret_decl(f_2321) static void C_ccall f_2321(C_word c,C_word *av) C_noret; C_noret_decl(f_2324) static void C_ccall f_2324(C_word c,C_word *av) C_noret; C_noret_decl(f_2331) static void C_ccall f_2331(C_word c,C_word *av) C_noret; C_noret_decl(f_2344) static void C_ccall f_2344(C_word c,C_word *av) C_noret; C_noret_decl(f_2363) static void C_ccall f_2363(C_word c,C_word *av) C_noret; C_noret_decl(f_2365) static void C_fcall f_2365(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_2372) static void C_fcall f_2372(C_word t0,C_word t1) C_noret; C_noret_decl(f_2393) static void C_ccall f_2393(C_word c,C_word *av) C_noret; C_noret_decl(f_2397) static void C_ccall f_2397(C_word c,C_word *av) C_noret; C_noret_decl(f_2401) static void C_ccall f_2401(C_word c,C_word *av) C_noret; C_noret_decl(f_2424) static void C_ccall f_2424(C_word c,C_word *av) C_noret; C_noret_decl(f_2429) static void C_ccall f_2429(C_word c,C_word *av) C_noret; C_noret_decl(f_2430) static void C_fcall f_2430(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2448) static void C_ccall f_2448(C_word c,C_word *av) C_noret; C_noret_decl(f_2452) static void C_ccall f_2452(C_word c,C_word *av) C_noret; C_noret_decl(f_2460) static void C_ccall f_2460(C_word c,C_word *av) C_noret; C_noret_decl(f_2471) static void C_ccall f_2471(C_word c,C_word *av) C_noret; C_noret_decl(f_2489) static void C_ccall f_2489(C_word c,C_word *av) C_noret; C_noret_decl(f_2493) static void C_ccall f_2493(C_word c,C_word *av) C_noret; C_noret_decl(f_2516) static void C_ccall f_2516(C_word c,C_word *av) C_noret; C_noret_decl(f_2524) static void C_ccall f_2524(C_word c,C_word *av) C_noret; C_noret_decl(f_2527) static void C_ccall f_2527(C_word c,C_word *av) C_noret; C_noret_decl(f_2531) static void C_fcall f_2531(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2551) static void C_ccall f_2551(C_word c,C_word *av) C_noret; C_noret_decl(f_2558) static void C_ccall f_2558(C_word c,C_word *av) C_noret; C_noret_decl(f_2569) static void C_ccall f_2569(C_word c,C_word *av) C_noret; C_noret_decl(f_2576) static void C_ccall f_2576(C_word c,C_word *av) C_noret; C_noret_decl(f_2592) static void C_ccall f_2592(C_word c,C_word *av) C_noret; C_noret_decl(f_2610) static void C_ccall f_2610(C_word c,C_word *av) C_noret; C_noret_decl(f_2625) static void C_ccall f_2625(C_word c,C_word *av) C_noret; C_noret_decl(f_2628) static void C_ccall f_2628(C_word c,C_word *av) C_noret; C_noret_decl(f_2635) static void C_ccall f_2635(C_word c,C_word *av) C_noret; C_noret_decl(f_2641) static void C_ccall f_2641(C_word c,C_word *av) C_noret; C_noret_decl(f_2648) static void C_ccall f_2648(C_word c,C_word *av) C_noret; C_noret_decl(f_2658) static void C_ccall f_2658(C_word c,C_word *av) C_noret; C_noret_decl(f_2664) static void C_ccall f_2664(C_word c,C_word *av) C_noret; C_noret_decl(f_2669) static void C_fcall f_2669(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2682) static void C_ccall f_2682(C_word c,C_word *av) C_noret; C_noret_decl(f_2685) static void C_ccall f_2685(C_word c,C_word *av) C_noret; C_noret_decl(f_2696) static void C_ccall f_2696(C_word c,C_word *av) C_noret; C_noret_decl(f_2708) static void C_ccall f_2708(C_word c,C_word *av) C_noret; C_noret_decl(f_2711) static void C_ccall f_2711(C_word c,C_word *av) C_noret; C_noret_decl(f_2718) static void C_ccall f_2718(C_word c,C_word *av) C_noret; C_noret_decl(f_2726) static void C_fcall f_2726(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2729) static void C_fcall f_2729(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2753) static void C_ccall f_2753(C_word c,C_word *av) C_noret; C_noret_decl(f_2760) static void C_ccall f_2760(C_word c,C_word *av) C_noret; C_noret_decl(f_2762) static void C_fcall f_2762(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2778) static void C_ccall f_2778(C_word c,C_word *av) C_noret; C_noret_decl(f_2785) static void C_ccall f_2785(C_word c,C_word *av) C_noret; C_noret_decl(f_2796) static void C_fcall f_2796(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_2809) static void C_ccall f_2809(C_word c,C_word *av) C_noret; C_noret_decl(f_2812) static void C_ccall f_2812(C_word c,C_word *av) C_noret; C_noret_decl(f_2825) static void C_ccall f_2825(C_word c,C_word *av) C_noret; C_noret_decl(f_2841) static void C_ccall f_2841(C_word c,C_word *av) C_noret; C_noret_decl(f_2845) static void C_ccall f_2845(C_word c,C_word *av) C_noret; C_noret_decl(f_2847) static void C_ccall f_2847(C_word c,C_word *av) C_noret; C_noret_decl(f_2883) static void C_ccall f_2883(C_word c,C_word *av) C_noret; C_noret_decl(f_2890) static void C_ccall f_2890(C_word c,C_word *av) C_noret; C_noret_decl(f_2901) static void C_ccall f_2901(C_word c,C_word *av) C_noret; C_noret_decl(f_2917) static void C_ccall f_2917(C_word c,C_word *av) C_noret; C_noret_decl(f_2943) static void C_ccall f_2943(C_word c,C_word *av) C_noret; C_noret_decl(f_2948) static void C_fcall f_2948(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_2952) static void C_ccall f_2952(C_word c,C_word *av) C_noret; C_noret_decl(f_2972) static void C_ccall f_2972(C_word c,C_word *av) C_noret; C_noret_decl(f_2974) static void C_fcall f_2974(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_2978) static void C_ccall f_2978(C_word c,C_word *av) C_noret; C_noret_decl(f_2983) static void C_fcall f_2983(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_2989) static void C_fcall f_2989(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3010) static void C_ccall f_3010(C_word c,C_word *av) C_noret; C_noret_decl(f_3016) static void C_ccall f_3016(C_word c,C_word *av) C_noret; C_noret_decl(f_3038) static void C_ccall f_3038(C_word c,C_word *av) C_noret; C_noret_decl(f_3042) static void C_ccall f_3042(C_word c,C_word *av) C_noret; C_noret_decl(f_3050) static void C_ccall f_3050(C_word c,C_word *av) C_noret; C_noret_decl(f_3054) static void C_ccall f_3054(C_word c,C_word *av) C_noret; C_noret_decl(f_3056) static void C_fcall f_3056(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8) C_noret; C_noret_decl(f_3059) static void C_fcall f_3059(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_3080) static void C_ccall f_3080(C_word c,C_word *av) C_noret; C_noret_decl(f_3084) static void C_ccall f_3084(C_word c,C_word *av) C_noret; C_noret_decl(f_3098) static void C_fcall f_3098(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_3119) static void C_ccall f_3119(C_word c,C_word *av) C_noret; C_noret_decl(f_3123) static void C_ccall f_3123(C_word c,C_word *av) C_noret; C_noret_decl(f_3137) static void C_fcall f_3137(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3148) static void C_ccall f_3148(C_word c,C_word *av) C_noret; C_noret_decl(f_3161) static void C_ccall f_3161(C_word c,C_word *av) C_noret; C_noret_decl(f_3176) static void C_ccall f_3176(C_word c,C_word *av) C_noret; C_noret_decl(f_3194) static void C_ccall f_3194(C_word c,C_word *av) C_noret; C_noret_decl(f_3196) static void C_ccall f_3196(C_word c,C_word *av) C_noret; C_noret_decl(f_3202) static void C_ccall f_3202(C_word c,C_word *av) C_noret; C_noret_decl(f_3208) static void C_ccall f_3208(C_word c,C_word *av) C_noret; C_noret_decl(f_3214) static void C_ccall f_3214(C_word c,C_word *av) C_noret; C_noret_decl(f_3220) static void C_ccall f_3220(C_word c,C_word *av) C_noret; C_noret_decl(f_3226) static void C_ccall f_3226(C_word c,C_word *av) C_noret; C_noret_decl(f_3232) static void C_ccall f_3232(C_word c,C_word *av) C_noret; C_noret_decl(f_3252) static void C_ccall f_3252(C_word c,C_word *av) C_noret; C_noret_decl(f_3258) static void C_ccall f_3258(C_word c,C_word *av) C_noret; C_noret_decl(f_3267) static void C_fcall f_3267(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3277) static void C_fcall f_3277(C_word t0,C_word t1) C_noret; C_noret_decl(f_3393) static void C_ccall f_3393(C_word c,C_word *av) C_noret; C_noret_decl(f_3397) static void C_ccall f_3397(C_word c,C_word *av) C_noret; C_noret_decl(f_3406) static void C_ccall f_3406(C_word c,C_word *av) C_noret; C_noret_decl(f_3408) static void C_ccall f_3408(C_word c,C_word *av) C_noret; C_noret_decl(f_3412) static void C_fcall f_3412(C_word t0,C_word t1) C_noret; C_noret_decl(f_3415) static void C_ccall f_3415(C_word c,C_word *av) C_noret; C_noret_decl(f_3419) static void C_ccall f_3419(C_word c,C_word *av) C_noret; C_noret_decl(f_3421) static void C_ccall f_3421(C_word c,C_word *av) C_noret; C_noret_decl(f_3425) static void C_ccall f_3425(C_word c,C_word *av) C_noret; C_noret_decl(f_3432) static void C_fcall f_3432(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_3436) static void C_fcall f_3436(C_word t0,C_word t1) C_noret; C_noret_decl(f_3439) static void C_ccall f_3439(C_word c,C_word *av) C_noret; C_noret_decl(f_3442) static void C_ccall f_3442(C_word c,C_word *av) C_noret; C_noret_decl(f_3464) static void C_ccall f_3464(C_word c,C_word *av) C_noret; C_noret_decl(f_3470) static void C_fcall f_3470(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3479) static C_word C_fcall f_3479(C_word t0); C_noret_decl(f_3486) static void C_fcall f_3486(C_word t0,C_word t1) C_noret; C_noret_decl(f_3505) static void C_fcall f_3505(C_word t0,C_word t1) C_noret; C_noret_decl(f_3518) static void C_ccall f_3518(C_word c,C_word *av) C_noret; C_noret_decl(f_3543) static void C_ccall f_3543(C_word c,C_word *av) C_noret; C_noret_decl(f_3556) static void C_ccall f_3556(C_word c,C_word *av) C_noret; C_noret_decl(f_3569) static void C_ccall f_3569(C_word c,C_word *av) C_noret; C_noret_decl(f_3582) static void C_ccall f_3582(C_word c,C_word *av) C_noret; C_noret_decl(f_3586) static void C_ccall f_3586(C_word c,C_word *av) C_noret; C_noret_decl(f_3599) static void C_ccall f_3599(C_word c,C_word *av) C_noret; C_noret_decl(f_3603) static void C_ccall f_3603(C_word c,C_word *av) C_noret; C_noret_decl(f_3616) static void C_ccall f_3616(C_word c,C_word *av) C_noret; C_noret_decl(f_3620) static void C_ccall f_3620(C_word c,C_word *av) C_noret; C_noret_decl(f_3638) static void C_ccall f_3638(C_word c,C_word *av) C_noret; C_noret_decl(f_3641) static void C_ccall f_3641(C_word c,C_word *av) C_noret; C_noret_decl(f_3647) static void C_ccall f_3647(C_word c,C_word *av) C_noret; C_noret_decl(f_3683) static C_word C_fcall f_3683(C_word t0,C_word t1); C_noret_decl(f_3741) static void C_ccall f_3741(C_word c,C_word *av) C_noret; C_noret_decl(f_3752) static void C_ccall f_3752(C_word c,C_word *av) C_noret; C_noret_decl(f_3758) static void C_ccall f_3758(C_word c,C_word *av) C_noret; C_noret_decl(f_3764) static void C_ccall f_3764(C_word c,C_word *av) C_noret; C_noret_decl(f_3770) static void C_ccall f_3770(C_word c,C_word *av) C_noret; C_noret_decl(f_3778) static void C_ccall f_3778(C_word c,C_word *av) C_noret; C_noret_decl(f_3803) static void C_ccall f_3803(C_word c,C_word *av) C_noret; C_noret_decl(f_3813) static void C_ccall f_3813(C_word c,C_word *av) C_noret; C_noret_decl(f_3815) static void C_ccall f_3815(C_word c,C_word *av) C_noret; C_noret_decl(f_3822) static void C_ccall f_3822(C_word c,C_word *av) C_noret; C_noret_decl(f_3825) static void C_ccall f_3825(C_word c,C_word *av) C_noret; C_noret_decl(f_3836) static void C_ccall f_3836(C_word c,C_word *av) C_noret; C_noret_decl(f_3854) static void C_ccall f_3854(C_word c,C_word *av) C_noret; C_noret_decl(f_3870) static void C_ccall f_3870(C_word c,C_word *av) C_noret; C_noret_decl(f_3873) static void C_ccall f_3873(C_word c,C_word *av) C_noret; C_noret_decl(f_3889) static void C_ccall f_3889(C_word c,C_word *av) C_noret; C_noret_decl(f_3892) static void C_ccall f_3892(C_word c,C_word *av) C_noret; C_noret_decl(f_3899) static void C_ccall f_3899(C_word c,C_word *av) C_noret; C_noret_decl(f_3914) static void C_ccall f_3914(C_word c,C_word *av) C_noret; C_noret_decl(f_3937) static void C_ccall f_3937(C_word c,C_word *av) C_noret; C_noret_decl(C_extras_toplevel) C_externexport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_1119) static void C_ccall trf_1119(C_word c,C_word *av) C_noret; static void C_ccall trf_1119(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1119(t0,t1,t2,t3,t4);} C_noret_decl(trf_1201) static void C_ccall trf_1201(C_word c,C_word *av) C_noret; static void C_ccall trf_1201(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1201(t0,t1);} C_noret_decl(trf_1211) static void C_ccall trf_1211(C_word c,C_word *av) C_noret; static void C_ccall trf_1211(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1211(t0,t1,t2);} C_noret_decl(trf_1229) static void C_ccall trf_1229(C_word c,C_word *av) C_noret; static void C_ccall trf_1229(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1229(t0,t1,t2);} C_noret_decl(trf_1293) static void C_ccall trf_1293(C_word c,C_word *av) C_noret; static void C_ccall trf_1293(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1293(t0,t1);} C_noret_decl(trf_1369) static void C_ccall trf_1369(C_word c,C_word *av) C_noret; static void C_ccall trf_1369(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1369(t0,t1,t2,t3);} C_noret_decl(trf_1474) static void C_ccall trf_1474(C_word c,C_word *av) C_noret; static void C_ccall trf_1474(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1474(t0,t1,t2,t3,t4);} C_noret_decl(trf_1533) static void C_ccall trf_1533(C_word c,C_word *av) C_noret; static void C_ccall trf_1533(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_1533(t0,t1,t2,t3,t4);} C_noret_decl(trf_1540) static void C_ccall trf_1540(C_word c,C_word *av) C_noret; static void C_ccall trf_1540(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1540(t0,t1);} C_noret_decl(trf_1616) static void C_ccall trf_1616(C_word c,C_word *av) C_noret; static void C_ccall trf_1616(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1616(t0,t1);} C_noret_decl(trf_1625) static void C_ccall trf_1625(C_word c,C_word *av) C_noret; static void C_ccall trf_1625(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1625(t0,t1);} C_noret_decl(trf_1707) static void C_ccall trf_1707(C_word c,C_word *av) C_noret; static void C_ccall trf_1707(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1707(t0,t1);} C_noret_decl(trf_1832) static void C_ccall trf_1832(C_word c,C_word *av) C_noret; static void C_ccall trf_1832(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1832(t0,t1);} C_noret_decl(trf_1878) static void C_ccall trf_1878(C_word c,C_word *av) C_noret; static void C_ccall trf_1878(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_1878(t0,t1,t2,t3);} C_noret_decl(trf_1898) static void C_ccall trf_1898(C_word c,C_word *av) C_noret; static void C_ccall trf_1898(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1898(t0,t1);} C_noret_decl(trf_1916) static void C_ccall trf_1916(C_word c,C_word *av) C_noret; static void C_ccall trf_1916(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_1916(t0,t1,t2);} C_noret_decl(trf_1921) static void C_ccall trf_1921(C_word c,C_word *av) C_noret; static void C_ccall trf_1921(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_1921(t0,t1);} C_noret_decl(trf_2008) static void C_ccall trf_2008(C_word c,C_word *av) C_noret; static void C_ccall trf_2008(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2008(t0,t1,t2,t3,t4);} C_noret_decl(trf_2011) static void C_ccall trf_2011(C_word c,C_word *av) C_noret; static void C_ccall trf_2011(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2011(t0,t1);} C_noret_decl(trf_2039) static void C_ccall trf_2039(C_word c,C_word *av) C_noret; static void C_ccall trf_2039(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2039(t0,t1);} C_noret_decl(trf_2112) static void C_ccall trf_2112(C_word c,C_word *av) C_noret; static void C_ccall trf_2112(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2112(t0,t1,t2,t3);} C_noret_decl(trf_2131) static void C_ccall trf_2131(C_word c,C_word *av) C_noret; static void C_ccall trf_2131(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2131(t0,t1,t2,t3);} C_noret_decl(trf_2134) static void C_ccall trf_2134(C_word c,C_word *av) C_noret; static void C_ccall trf_2134(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2134(t0,t1,t2,t3);} C_noret_decl(trf_2161) static void C_ccall trf_2161(C_word c,C_word *av) C_noret; static void C_ccall trf_2161(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2161(t0,t1,t2,t3);} C_noret_decl(trf_2179) static void C_ccall trf_2179(C_word c,C_word *av) C_noret; static void C_ccall trf_2179(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2179(t0,t1,t2,t3);} C_noret_decl(trf_2365) static void C_ccall trf_2365(C_word c,C_word *av) C_noret; static void C_ccall trf_2365(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2365(t0,t1,t2,t3,t4);} C_noret_decl(trf_2372) static void C_ccall trf_2372(C_word c,C_word *av) C_noret; static void C_ccall trf_2372(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2372(t0,t1);} C_noret_decl(trf_2430) static void C_ccall trf_2430(C_word c,C_word *av) C_noret; static void C_ccall trf_2430(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2430(t0,t1,t2);} C_noret_decl(trf_2531) static void C_ccall trf_2531(C_word c,C_word *av) C_noret; static void C_ccall trf_2531(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2531(t0,t1,t2);} C_noret_decl(trf_2669) static void C_ccall trf_2669(C_word c,C_word *av) C_noret; static void C_ccall trf_2669(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2669(t0,t1,t2);} C_noret_decl(trf_2726) static void C_ccall trf_2726(C_word c,C_word *av) C_noret; static void C_ccall trf_2726(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2726(t0,t1,t2,t3);} C_noret_decl(trf_2729) static void C_ccall trf_2729(C_word c,C_word *av) C_noret; static void C_ccall trf_2729(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2729(t0,t1,t2,t3);} C_noret_decl(trf_2762) static void C_ccall trf_2762(C_word c,C_word *av) C_noret; static void C_ccall trf_2762(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2762(t0,t1,t2,t3);} C_noret_decl(trf_2796) static void C_ccall trf_2796(C_word c,C_word *av) C_noret; static void C_ccall trf_2796(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_2796(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_2948) static void C_ccall trf_2948(C_word c,C_word *av) C_noret; static void C_ccall trf_2948(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_2948(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_2974) static void C_ccall trf_2974(C_word c,C_word *av) C_noret; static void C_ccall trf_2974(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_2974(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_2983) static void C_ccall trf_2983(C_word c,C_word *av) C_noret; static void C_ccall trf_2983(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_2983(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_2989) static void C_ccall trf_2989(C_word c,C_word *av) C_noret; static void C_ccall trf_2989(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2989(t0,t1,t2,t3);} C_noret_decl(trf_3056) static void C_ccall trf_3056(C_word c,C_word *av) C_noret; static void C_ccall trf_3056(C_word c,C_word *av){ C_word t0=av[8]; C_word t1=av[7]; C_word t2=av[6]; C_word t3=av[5]; C_word t4=av[4]; C_word t5=av[3]; C_word t6=av[2]; C_word t7=av[1]; C_word t8=av[0]; f_3056(t0,t1,t2,t3,t4,t5,t6,t7,t8);} C_noret_decl(trf_3059) static void C_ccall trf_3059(C_word c,C_word *av) C_noret; static void C_ccall trf_3059(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_3059(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_3098) static void C_ccall trf_3098(C_word c,C_word *av) C_noret; static void C_ccall trf_3098(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_3098(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_3137) static void C_ccall trf_3137(C_word c,C_word *av) C_noret; static void C_ccall trf_3137(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3137(t0,t1,t2,t3,t4);} C_noret_decl(trf_3267) static void C_ccall trf_3267(C_word c,C_word *av) C_noret; static void C_ccall trf_3267(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3267(t0,t1,t2);} C_noret_decl(trf_3277) static void C_ccall trf_3277(C_word c,C_word *av) C_noret; static void C_ccall trf_3277(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3277(t0,t1);} C_noret_decl(trf_3412) static void C_ccall trf_3412(C_word c,C_word *av) C_noret; static void C_ccall trf_3412(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3412(t0,t1);} C_noret_decl(trf_3432) static void C_ccall trf_3432(C_word c,C_word *av) C_noret; static void C_ccall trf_3432(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_3432(t0,t1,t2,t3,t4);} C_noret_decl(trf_3436) static void C_ccall trf_3436(C_word c,C_word *av) C_noret; static void C_ccall trf_3436(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3436(t0,t1);} C_noret_decl(trf_3470) static void C_ccall trf_3470(C_word c,C_word *av) C_noret; static void C_ccall trf_3470(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3470(t0,t1,t2,t3);} C_noret_decl(trf_3486) static void C_ccall trf_3486(C_word c,C_word *av) C_noret; static void C_ccall trf_3486(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3486(t0,t1);} C_noret_decl(trf_3505) static void C_ccall trf_3505(C_word c,C_word *av) C_noret; static void C_ccall trf_3505(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3505(t0,t1);} /* k1081 */ static void C_ccall f_1083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1083,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1086,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k1084 in k1081 */ static void C_ccall f_1086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(70,c,6)))){ C_save_and_reclaim((void *)f_1086,2,av);} a=C_alloc(70); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=*((C_word*)lf[2]+1); t5=C_mutate((C_word*)lf[3]+1 /* (set! chicken.io#read-list ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1088,a[2]=t4,a[3]=((C_word)li1),tmp=(C_word)a,a+=4,tmp)); t6=C_mutate((C_word*)lf[7]+1 /* (set! chicken.io#read-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1191,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[15]+1 /* (set! chicken.io#read-lines ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1344,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[18]+1 /* (set! chicken.io#write-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1428,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[22]+1 /* (set! chicken.io#read-string!/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1456,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[23]+1 /* (set! chicken.io#read-string! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1588,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[26]+1 /* (set! chicken.io#read-string/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1665,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[32]+1 /* (set! chicken.io#read-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1736,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate((C_word*)lf[26]+1 /* (set! chicken.io#read-string/port ...) */,*((C_word*)lf[26]+1)); t14=C_mutate((C_word*)lf[22]+1 /* (set! chicken.io#read-string!/port ...) */,*((C_word*)lf[22]+1)); t15=C_mutate((C_word*)lf[34]+1 /* (set! chicken.io#read-buffered ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1789,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate((C_word*)lf[37]+1 /* (set! chicken.io#read-token ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1817,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[29]+1 /* (set! chicken.io#write-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1873,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[40]+1 /* (set! chicken.io#read-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1956,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate((C_word*)lf[42]+1 /* (set! chicken.io#write-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1983,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t20=C_a_i_provide(&a,1,lf[44]); t21=C_mutate(&lf[45] /* (set! chicken.pretty-print#generic-write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2008,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp)); t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3406,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* extras.scm:551: chicken.base#make-parameter */ t23=*((C_word*)lf[164]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t23; av2[1]=t22; av2[2]=C_fix(79); ((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}} /* chicken.io#read-list in k1084 in k1081 */ static void C_ccall f_1088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,2)))){ C_save_and_reclaim((void*)f_1088,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+6); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t3=C_i_nullp(t2); t4=(C_truep(t3)?*((C_word*)lf[4]+1):C_i_car(t2)); t5=t4; t6=C_i_nullp(t2); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t2)); t8=C_i_nullp(t7); t9=(C_truep(t8)?((C_word*)t0)[2]:C_i_car(t7)); t10=t9; t11=C_i_nullp(t7); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t13=C_i_nullp(t12); t14=(C_truep(t13)?C_SCHEME_FALSE:C_i_car(t12)); t15=t14; t16=C_i_nullp(t12); t17=(C_truep(t16)?C_SCHEME_END_OF_LIST:C_i_cdr(t12)); t18=C_i_check_port_2(t5,C_fix(1),C_SCHEME_TRUE,lf[5]); t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1117,a[2]=t15,a[3]=t10,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* extras.scm:48: reader */ t20=t10;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t20; av2[1]=t19; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t20))(3,av2);}} /* k1115 in chicken.io#read-list in k1084 in k1081 */ static void C_ccall f_1117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_1117,2,av);} a=C_alloc(9); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1119,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li0),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_1119(t5,((C_word*)t0)[5],t1,C_fix(0),C_SCHEME_END_OF_LIST);} /* doloop96 in k1115 in chicken.io#read-list in k1084 in k1081 */ static void C_fcall f_1119(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_1119,5,t0,t1,t2,t3,t4);} a=C_alloc(7); t5=C_eofp(t2); t6=(C_truep(t5)?t5:(C_truep(((C_word*)t0)[2])?C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]):C_SCHEME_FALSE)); if(C_truep(t6)){ /* extras.scm:52: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[6]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[6]+1); av2[1]=t1; av2[2]=t4; tp(3,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1139,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* extras.scm:48: reader */ t8=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}}} /* k1137 in doloop96 in k1115 in chicken.io#read-list in k1084 in k1081 */ static void C_ccall f_1139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_1139,2,av);} a=C_alloc(3); t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t4=((C_word*)((C_word*)t0)[5])[1]; f_1119(t4,((C_word*)t0)[6],t1,t2,t3);} /* chicken.io#read-line in k1084 in k1081 */ static void C_ccall f_1191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_1191,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+4); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t3=C_i_pairp(t2); t4=(C_truep(t3)?C_i_car(t2):*((C_word*)lf[4]+1)); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1201,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ t7=C_i_cdr(t2); t8=C_i_pairp(t7); t9=t6; f_1201(t9,(C_truep(t8)?C_i_cadr(t2):C_SCHEME_FALSE));} else{ t7=t6; f_1201(t7,C_SCHEME_FALSE);}} /* k1199 in chicken.io#read-line in k1084 in k1081 */ static void C_fcall f_1201(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_1201,2,t0,t1);} a=C_alloc(8); t2=t1; t3=C_i_check_port_2(((C_word*)t0)[2],C_fix(1),C_SCHEME_TRUE,lf[8]); t4=C_slot(((C_word*)t0)[2],C_fix(2)); t5=C_slot(t4,C_fix(8)); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1211,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li2),tmp=(C_word)a,a+=5,tmp); /* extras.scm:64: g120 */ t7=t6; f_1211(t7,((C_word*)t0)[3],t5);} else{ t6=(C_truep(t2)?t2:C_fix(256)); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1224,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t8,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* extras.scm:67: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[14]+1); av2[1]=t9; av2[2]=((C_word*)t8)[1]; tp(3,av2);}}} /* g120 in k1199 in chicken.io#read-line in k1084 in k1081 */ static void C_fcall f_1211(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_1211,3,t0,t1,t2);} /* extras.scm:64: rl */ t3=t2;{ C_word av2[4]; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} /* k1222 in k1199 in chicken.io#read-line in k1084 in k1081 */ static void C_ccall f_1224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_1224,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1229,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t5,a[6]=((C_word*)t0)[4],a[7]=((C_word)li3),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_1229(t7,((C_word*)t0)[5],C_fix(0));} /* loop in k1222 in k1199 in chicken.io#read-line in k1084 in k1081 */ static void C_fcall f_1229(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_1229,3,t0,t1,t2);} a=C_alloc(8); t3=(C_truep(((C_word*)t0)[2])?C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]):C_SCHEME_FALSE); if(C_truep(t3)){ /* extras.scm:70: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t1; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=C_fix(0); av2[4]=t2; tp(5,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1242,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* extras.scm:71: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[10]+1); av2[1]=t4; av2[2]=((C_word*)t0)[4]; tp(3,av2);}}} /* k1240 in loop in k1222 in k1199 in chicken.io#read-line in k1084 in k1081 */ static void C_ccall f_1242(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_1242,2,av);} a=C_alloc(16); t2=t1; if(C_truep(C_eofp(t2))){ t3=C_eqp(((C_word*)t0)[2],C_fix(0)); if(C_truep(t3)){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* extras.scm:75: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[2]; tp(5,av2);}}} else{ switch(t2){ case C_make_character(10): /* extras.scm:77: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[2]; tp(5,av2);} case C_make_character(13): t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1275,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* extras.scm:79: scheme#peek-char */ t4=*((C_word*)lf[11]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);} default: t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1293,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],((C_word*)((C_word*)t0)[7])[1]))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1307,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1315,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* extras.scm:87: scheme#make-string */ t6=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)((C_word*)t0)[7])[1]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t4=t3; f_1293(t4,C_SCHEME_UNDEFINED);}}}} /* k1273 in k1240 in loop in k1222 in k1199 in chicken.io#read-line in k1084 in k1081 */ static void C_ccall f_1275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_1275,2,av);} a=C_alloc(5); if(C_truep(C_i_char_equalp(t1,C_make_character(10)))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1284,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* extras.scm:81: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ /* extras.scm:83: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; tp(5,av2);}}} /* k1282 in k1273 in k1240 in loop in k1222 in k1199 in chicken.io#read-line in k1084 in k1081 */ static void C_ccall f_1284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1284,2,av);} /* extras.scm:82: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; tp(5,av2);}} /* k1291 in k1240 in loop in k1222 in k1199 in chicken.io#read-line in k1084 in k1081 */ static void C_fcall f_1293(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_1293,2,t0,t1);} t2=C_setsubchar(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],((C_word*)t0)[4]); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* extras.scm:90: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_1229(t4,((C_word*)t0)[6],t3);} /* k1305 in k1240 in loop in k1222 in k1199 in chicken.io#read-line in k1084 in k1081 */ static void C_ccall f_1307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1307,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[3])[1]); t4=C_set_block_item(((C_word*)t0)[3],0,t3); t5=((C_word*)t0)[4]; f_1293(t5,t4);} /* k1313 in k1240 in loop in k1222 in k1199 in chicken.io#read-line in k1084 in k1081 */ static void C_ccall f_1315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1315,2,av);} /* extras.scm:87: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[12]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=t1; tp(4,av2);}} /* chicken.io#read-lines in k1084 in k1081 */ static void C_ccall f_1344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +7,c,4)))){ C_save_and_reclaim((void*)f_1344,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+7); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; t3=C_i_nullp(t2); t4=(C_truep(t3)?*((C_word*)lf[4]+1):C_i_car(t2)); t5=t4; t6=C_i_nullp(t2); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t2)); t8=C_i_nullp(t7); t9=(C_truep(t8)?*((C_word*)lf[16]+1):C_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=C_i_check_port_2(t5,C_fix(1),C_SCHEME_TRUE,lf[17]); t13=(C_truep(t9)?t9:C_fix(1000000000)); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1369,a[2]=t15,a[3]=t5,a[4]=((C_word)li5),tmp=(C_word)a,a+=5,tmp)); t17=((C_word*)t15)[1]; f_1369(t17,t1,C_SCHEME_END_OF_LIST,t13);} /* loop in chicken.io#read-lines in k1084 in k1081 */ static void C_fcall f_1369(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_1369,4,t0,t1,t2,t3);} a=C_alloc(6); t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ /* extras.scm:98: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[6]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[6]+1); av2[1]=t1; av2[2]=t2; tp(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1382,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* extras.scm:99: read-line */ t6=*((C_word*)lf[7]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k1380 in loop in chicken.io#read-lines in k1084 in k1081 */ static void C_ccall f_1382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_1382,2,av);} a=C_alloc(3); if(C_truep(C_eofp(t1))){ /* extras.scm:101: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[6]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[6]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); t3=C_fixnum_difference(((C_word*)t0)[4],C_fix(1)); /* extras.scm:102: loop */ t4=((C_word*)((C_word*)t0)[5])[1]; f_1369(t4,((C_word*)t0)[2],t2,t3);}} /* chicken.io#write-line in k1084 in k1081 */ static void C_ccall f_1428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,3)))){ C_save_and_reclaim((void*)f_1428,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t4=(C_truep(C_eqp(t3,C_SCHEME_END_OF_LIST))?*((C_word*)lf[19]+1):C_slot(t3,C_fix(0))); t5=t4; t6=C_i_check_port_2(t5,C_fix(2),C_SCHEME_TRUE,lf[20]); t7=C_i_check_string_2(t2,lf[20]); t8=C_slot(t5,C_fix(2)); t9=C_slot(t8,C_fix(3)); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1444,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); /* extras.scm:106: g171 */ t11=t9;{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t11; av2[1]=t10; av2[2]=t5; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t11))(4,av2);}} /* k1442 in chicken.io#write-line in k1084 in k1081 */ static void C_ccall f_1444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1444,2,av);} /* extras.scm:112: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[21]+1); av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(10); av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* chicken.io#read-string!/port in k1084 in k1081 */ static void C_ccall f_1456(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_1456,6,av);} a=C_alloc(9); t6=C_eqp(t2,C_fix(0)); if(C_truep(t6)){ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t7=C_slot(t4,C_fix(2)); t8=C_slot(t7,C_fix(7)); t9=t8; if(C_truep(t9)){ t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1474,a[2]=t4,a[3]=t11,a[4]=t9,a[5]=t3,a[6]=((C_word)li8),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_1474(t13,t1,t5,t2,C_fix(0));} else{ t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1533,a[2]=t11,a[3]=t3,a[4]=t4,a[5]=((C_word)li9),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_1533(t13,t1,t5,t2,C_fix(0));}}} /* loop in chicken.io#read-string!/port in k1084 in k1081 */ static void C_fcall f_1474(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_1474,5,t0,t1,t2,t3,t4);} a=C_alloc(8); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1478,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t1,a[5]=t3,a[6]=t2,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); /* extras.scm:123: rdstring */ t6=((C_word*)t0)[4];{ C_word av2[6]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; av2[3]=t3; av2[4]=((C_word*)t0)[5]; av2[5]=t2; ((C_proc)C_fast_retrieve_proc(t6))(6,av2);}} /* k1476 in loop in chicken.io#read-string!/port in k1084 in k1081 */ static void C_ccall f_1478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1478,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(5)); t3=C_fixnum_plus(t2,t1); t4=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),t3); t5=C_eqp(t1,C_fix(0)); if(C_truep(t5)){ t6=((C_word*)t0)[3]; t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_i_not(((C_word*)t0)[5]); t7=(C_truep(t6)?t6:C_fixnum_lessp(t1,((C_word*)t0)[5])); if(C_truep(t7)){ t8=C_fixnum_plus(((C_word*)t0)[6],t1); t9=(C_truep(((C_word*)t0)[5])?C_fixnum_difference(((C_word*)t0)[5],t1):C_SCHEME_FALSE); t10=C_fixnum_plus(((C_word*)t0)[3],t1); /* extras.scm:128: loop */ t11=((C_word*)((C_word*)t0)[7])[1]; f_1474(t11,((C_word*)t0)[4],t8,t9,t10);} else{ t8=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t8; av2[1]=C_fixnum_plus(t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} /* loop in chicken.io#read-string!/port in k1084 in k1081 */ static void C_fcall f_1533(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_1533,5,t0,t1,t2,t3,t4);} a=C_alloc(8); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1537,a[2]=t4,a[3]=t1,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); /* extras.scm:131: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[10]+1); av2[1]=t5; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k1535 in loop in chicken.io#read-string!/port in k1084 in k1081 */ static void C_ccall f_1537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_1537,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1540,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_eofp(t1))){ t3=t2; f_1540(t3,C_fix(0));} else{ t3=C_setsubchar(((C_word*)t0)[7],((C_word*)t0)[5],t1); t4=t2; f_1540(t4,C_fix(1));}} /* k1538 in k1535 in loop in chicken.io#read-string!/port in k1084 in k1081 */ static void C_fcall f_1540(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_1540,2,t0,t1);} t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_not(((C_word*)t0)[4]); t4=(C_truep(t3)?t3:C_fixnum_lessp(t1,((C_word*)t0)[4])); if(C_truep(t4)){ t5=C_fixnum_plus(((C_word*)t0)[5],t1); t6=(C_truep(((C_word*)t0)[4])?C_fixnum_difference(((C_word*)t0)[4],t1):C_SCHEME_FALSE); t7=C_fixnum_plus(((C_word*)t0)[2],t1); /* extras.scm:139: loop */ t8=((C_word*)((C_word*)t0)[6])[1]; f_1533(t8,((C_word*)t0)[3],t5,t6,t7);} else{ t5=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t5; av2[1]=C_fixnum_plus(t1,((C_word*)t0)[2]); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} /* chicken.io#read-string! in k1084 in k1081 */ static void C_ccall f_1588(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,3)))){ C_save_and_reclaim((void*)f_1588,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+9); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; t5=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t6=C_i_nullp(t4); t7=(C_truep(t6)?*((C_word*)lf[4]+1):C_i_car(t4)); t8=t7; t9=C_i_nullp(t4); t10=(C_truep(t9)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t11=C_i_nullp(t10); t12=(C_truep(t11)?C_fix(0):C_i_car(t10)); t13=t12; t14=C_i_nullp(t10); t15=(C_truep(t14)?C_SCHEME_END_OF_LIST:C_i_cdr(t10)); t16=C_i_check_port_2(t8,C_fix(1),C_SCHEME_TRUE,lf[24]); t17=C_i_check_string_2(t3,lf[24]); t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1610,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t8,a[6]=t13,tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t5)[1])){ /* extras.scm:145: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[25]+1); av2[1]=t18; av2[2]=((C_word*)t5)[1]; av2[3]=lf[24]; tp(4,av2);}} else{ t19=t18;{ C_word *av2=av; av2[0]=t19; av2[1]=C_SCHEME_UNDEFINED; f_1610(2,av2);}}} /* k1608 in chicken.io#read-string! in k1084 in k1081 */ static void C_ccall f_1610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_1610,2,av);} a=C_alloc(13); t2=C_block_size(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1616,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1625,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ t6=C_fixnum_plus(((C_word*)t0)[6],((C_word*)((C_word*)t0)[4])[1]); t7=t5; f_1625(t7,C_fixnum_less_or_equal_p(t6,t3));} else{ t6=t5; f_1625(t6,C_SCHEME_FALSE);}} /* k1614 in k1608 in chicken.io#read-string! in k1084 in k1081 */ static void C_fcall f_1616(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_1616,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1619,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* extras.scm:149: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[25]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=lf[24]; tp(4,av2);}} /* k1617 in k1614 in k1608 in chicken.io#read-string! in k1084 in k1081 */ static void C_ccall f_1619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_1619,2,av);} /* extras.scm:150: read-string!/port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[22]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[22]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; tp(6,av2);}} /* k1623 in k1608 in chicken.io#read-string! in k1084 in k1081 */ static void C_fcall f_1625(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_1625,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_1616(t2,C_SCHEME_UNDEFINED);} else{ t2=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); t3=C_set_block_item(((C_word*)t0)[5],0,t2); t4=((C_word*)t0)[2]; f_1616(t4,t3);}} /* chicken.io#read-string/port in k1084 in k1081 */ static void C_ccall f_1665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1665,4,av);} a=C_alloc(5); t4=C_eqp(t2,C_fix(0)); if(C_truep(t4)){ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=lf[27]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1734,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* extras.scm:157: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[31]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[31]+1); av2[1]=t5; av2[2]=t3; tp(3,av2);}}} /* k1682 in k1732 in chicken.io#read-string/port in k1084 in k1081 */ static void C_ccall f_1684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_1684,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1687,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* extras.scm:159: read-string!/port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[22]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[22]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=((C_word*)t0)[4]; av2[5]=C_fix(0); tp(6,av2);}} /* k1685 in k1682 in k1732 in chicken.io#read-string/port in k1084 in k1081 */ static void C_ccall f_1687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_1687,2,av);} t2=C_eqp(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* extras.scm:162: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t1; tp(5,av2);}}} /* k1697 in k1732 in chicken.io#read-string/port in k1084 in k1081 */ static void C_ccall f_1699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_1699,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1702,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=C_fix(2048); av2[3]=C_make_character(32); tp(4,av2);}} /* k1700 in k1697 in k1732 in chicken.io#read-string/port in k1084 in k1081 */ static void C_ccall f_1702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_1702,2,av);} a=C_alloc(9); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1707,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word)li12),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_1707(t6,((C_word*)t0)[4]);} /* loop in k1700 in k1697 in k1732 in chicken.io#read-string/port in k1084 in k1081 */ static void C_fcall f_1707(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_1707,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1711,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* extras.scm:167: scheme#peek-char */ t3=*((C_word*)lf[11]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k1709 in loop in k1700 in k1697 in k1732 in chicken.io#read-string/port in k1084 in k1081 */ static void C_ccall f_1711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_1711,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1714,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* extras.scm:168: read-string!/port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[22]+1)); C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[22]+1); av2[1]=t2; av2[2]=C_fix(2048); av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[6]; av2[5]=C_fix(0); tp(6,av2);}} /* k1712 in k1709 in loop in k1700 in k1697 in k1732 in chicken.io#read-string/port in k1084 in k1081 */ static void C_ccall f_1714(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_1714,2,av);} a=C_alloc(4); t2=C_eqp(t1,C_fix(0)); if(C_truep(t2)){ /* extras.scm:170: chicken.base#get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1726,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* extras.scm:172: write-string */ t4=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=t1; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} /* k1724 in k1712 in k1709 in loop in k1700 in k1697 in k1732 in chicken.io#read-string/port in k1084 in k1081 */ static void C_ccall f_1726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1726,2,av);} /* extras.scm:173: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1707(t2,((C_word*)t0)[3]);} /* k1732 in chicken.io#read-string/port in k1084 in k1081 */ static void C_ccall f_1734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_1734,2,av);} a=C_alloc(5); if(C_truep(C_eofp(t1))){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_END_OF_FILE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ if(C_truep(((C_word*)t0)[3])){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1684,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* extras.scm:158: ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1699,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* extras.scm:164: chicken.base#open-output-string */ t3=*((C_word*)lf[30]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* chicken.io#read-string in k1084 in k1081 */ static void C_ccall f_1736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_1736,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+5); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=t4; t6=C_i_nullp(t2); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t2)); t8=C_i_nullp(t7); t9=(C_truep(t8)?*((C_word*)lf[4]+1):C_i_car(t7)); t10=t9; t11=C_i_nullp(t7); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t13=C_i_check_port_2(t10,C_fix(1),C_SCHEME_TRUE,lf[33]); t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1755,a[2]=t1,a[3]=t5,a[4]=t10,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ /* extras.scm:177: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[25]+1); av2[1]=t14; av2[2]=t5; av2[3]=lf[33]; tp(4,av2);}} else{ /* extras.scm:178: read-string/port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[26]+1); av2[1]=t1; av2[2]=t5; av2[3]=t10; tp(4,av2);}}} /* k1753 in chicken.io#read-string in k1084 in k1081 */ static void C_ccall f_1755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1755,2,av);} /* extras.scm:178: read-string/port */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[26]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; tp(4,av2);}} /* chicken.io#read-buffered in k1084 in k1081 */ static void C_ccall f_1789(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_1789,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t3=C_i_nullp(t2); t4=(C_truep(t3)?*((C_word*)lf[4]+1):C_i_car(t2)); t5=C_i_check_port_2(t4,C_fix(1),C_SCHEME_TRUE,lf[35]); t6=C_slot(t4,C_fix(2)); t7=C_slot(t6,C_fix(9)); if(C_truep(t7)){ /* extras.scm:190: rb */ t8=t7;{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t8; av2[1]=t1; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=lf[36]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* chicken.io#read-token in k1084 in k1081 */ static void C_ccall f_1817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){ C_save_and_reclaim((void*)f_1817,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[4]+1):C_i_car(t3)); t6=t5; t7=C_i_check_port_2(t6,C_fix(1),C_SCHEME_TRUE,lf[38]); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1827,a[2]=t6,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* extras.scm:200: chicken.base#open-output-string */ t9=*((C_word*)lf[30]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* k1825 in chicken.io#read-token in k1084 in k1081 */ static void C_ccall f_1827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_1827,2,av);} a=C_alloc(9); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1832,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li16),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_1832(t6,((C_word*)t0)[4]);} /* loop in k1825 in chicken.io#read-token in k1084 in k1081 */ static void C_fcall f_1832(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_1832,2,t0,t1);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1836,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* extras.scm:202: ##sys#peek-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[31]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[31]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; tp(3,av2);}} /* k1834 in loop in k1825 in chicken.io#read-token in k1084 in k1081 */ static void C_ccall f_1836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_1836,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1842,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=C_eofp(t1); if(C_truep(C_i_not(t3))){ /* extras.scm:203: pred */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t2; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_1842(2,av2);}}} /* k1840 in k1834 in loop in k1825 in chicken.io#read-token in k1084 in k1081 */ static void C_ccall f_1842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_1842,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1845,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1852,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* extras.scm:205: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ /* extras.scm:207: chicken.base#get-output-string */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* k1843 in k1840 in k1834 in loop in k1825 in chicken.io#read-token in k1084 in k1081 */ static void C_ccall f_1845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1845,2,av);} /* extras.scm:206: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_1832(t2,((C_word*)t0)[3]);} /* k1850 in k1840 in k1834 in loop in k1825 in chicken.io#read-token in k1084 in k1081 */ static void C_ccall f_1852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1852,2,av);} /* extras.scm:205: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[21]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* chicken.io#write-string in k1084 in k1081 */ static void C_ccall f_1873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +12,c,4)))){ C_save_and_reclaim((void*)f_1873,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+12); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t4=C_i_check_string_2(t2,lf[39]); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1878,a[2]=t2,a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1916,a[2]=t5,a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1921,a[2]=t6,a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_nullp(t3))){ /* extras.scm:212: def-n317 */ t8=t7; f_1921(t8,t1);} else{ t8=C_i_car(t3); t9=C_u_i_cdr(t3); if(C_truep(C_i_nullp(t9))){ /* extras.scm:212: def-port318 */ t10=t6; f_1916(t10,t1,t8);} else{ t10=C_i_car(t9); t11=C_u_i_cdr(t9); /* extras.scm:212: body315 */ t12=t5; f_1878(t12,t1,t8,t10);}}} /* body315 in chicken.io#write-string in k1084 in k1081 */ static void C_fcall f_1878(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_1878,4,t0,t1,t2,t3);} a=C_alloc(6); t4=t3; t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[39]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1885,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ /* extras.scm:214: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[25]+1); av2[1]=t6; av2[2]=t2; av2[3]=lf[39]; tp(4,av2);}} else{ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_UNDEFINED; f_1885(2,av2);}}} /* k1883 in body315 in chicken.io#write-string in k1084 in k1081 */ static void C_ccall f_1885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_1885,2,av);} a=C_alloc(13); t2=C_slot(((C_word*)t0)[2],C_fix(2)); t3=C_slot(t2,C_fix(3)); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1895,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1898,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); if(C_truep(((C_word*)t0)[5])){ t7=C_block_size(((C_word*)t0)[4]); t8=t6; f_1898(t8,C_fixnum_lessp(((C_word*)t0)[5],t7));} else{ t7=t6; f_1898(t7,C_SCHEME_FALSE);}} /* k1893 in k1883 in body315 in chicken.io#write-string in k1084 in k1081 */ static void C_ccall f_1895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1895,2,av);} /* extras.scm:212: g327 */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=t1; ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} /* k1896 in k1883 in body315 in chicken.io#write-string in k1084 in k1081 */ static void C_fcall f_1898(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_1898,2,t0,t1);} if(C_truep(t1)){ /* extras.scm:218: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[9]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; tp(5,av2);}} else{ t2=((C_word*)t0)[3]; /* extras.scm:212: g327 */ t3=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t3; av2[1]=((C_word*)t0)[6]; av2[2]=((C_word*)t0)[7]; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} /* def-port318 in chicken.io#write-string in k1084 in k1081 */ static void C_fcall f_1916(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_1916,3,t0,t1,t2);} /* extras.scm:212: body315 */ t3=((C_word*)t0)[2]; f_1878(t3,t1,t2,*((C_word*)lf[19]+1));} /* def-n317 in chicken.io#write-string in k1084 in k1081 */ static void C_fcall f_1921(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_1921,2,t0,t1);} /* extras.scm:212: def-port318 */ t2=((C_word*)t0)[2]; f_1916(t2,t1,C_SCHEME_FALSE);} /* chicken.io#read-byte in k1084 in k1081 */ static void C_ccall f_1956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){ C_save_and_reclaim((void*)f_1956,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+3); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; t3=C_i_nullp(t2); t4=(C_truep(t3)?*((C_word*)lf[4]+1):C_i_car(t2)); t5=C_i_check_port_2(t4,C_fix(1),C_SCHEME_TRUE,lf[41]); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1966,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* extras.scm:226: ##sys#read-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[10]+1); av2[1]=t6; av2[2]=t4; tp(3,av2);}} /* k1964 in chicken.io#read-byte in k1084 in k1081 */ static void C_ccall f_1966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_1966,2,av);} t2=C_eofp(t1); t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=(C_truep(t2)?t1:C_fix(C_character_code(t1))); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* chicken.io#write-byte in k1084 in k1081 */ static void C_ccall f_1983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_1983,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[19]+1):C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1990,a[2]=t6,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* extras.scm:232: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[25]+1); av2[1]=t7; av2[2]=t2; av2[3]=lf[43]; tp(4,av2);}} /* k1988 in chicken.io#write-byte in k1084 in k1081 */ static void C_ccall f_1990(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_1990,2,av);} t2=C_i_check_port_2(((C_word*)t0)[2],C_fix(2),C_SCHEME_TRUE,lf[43]); t3=C_make_character(C_unfix(((C_word*)t0)[3])); /* extras.scm:234: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[21]+1); av2[1]=((C_word*)t0)[4]; av2[2]=t3; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} /* chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2008(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(43,0,4)))){ C_save_and_reclaim_args((void *)trf_2008,5,t1,t2,t3,t4,t5);} a=C_alloc(43); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2011,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t17=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2073,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t18=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2112,a[2]=t5,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp)); t19=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2131,a[2]=t13,a[3]=t9,a[4]=t11,a[5]=t7,a[6]=t3,a[7]=((C_word)li34),tmp=(C_word)a,a+=8,tmp)); t20=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2726,a[2]=t11,a[3]=t3,a[4]=t4,a[5]=t13,a[6]=t9,a[7]=t7,a[8]=((C_word)li58),tmp=(C_word)a,a+=9,tmp)); if(C_truep(t4)){ t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3393,a[2]=t11,a[3]=t1,a[4]=t15,a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[14]+1); av2[1]=t21; av2[2]=C_fix(1); av2[3]=C_make_character(10); tp(4,av2);}} else{ /* extras.scm:546: wr */ t21=((C_word*)t13)[1]; f_2131(t21,t1,t2,C_fix(0));}} /* read-macro? in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2011(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_2011,2,t1,t2);} a=C_alloc(4); t3=C_i_car(t2); t4=t2; t5=C_u_i_cdr(t4); t6=C_eqp(t3,lf[46]); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2039,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(t6)){ t8=t7; f_2039(t8,t6);} else{ t8=C_eqp(t3,lf[47]); if(C_truep(t8)){ t9=t7; f_2039(t9,t8);} else{ t9=C_eqp(t3,lf[48]); t10=t7; f_2039(t10,(C_truep(t9)?t9:C_eqp(t3,lf[49])));}}} /* k2037 in read-macro? in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2039(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_2039,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ t3=C_u_i_cdr(((C_word*)t0)[3]); t4=t2;{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_nullp(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=t2;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* read-macro-prefix in chicken.pretty-print#generic-write in k1084 in k1081 */ static C_word C_fcall f_2073(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_stack_overflow_check;{} t2=C_i_car(t1); t3=t1; t4=C_u_i_cdr(t3); t5=C_eqp(t2,lf[46]); if(C_truep(t5)){ return(lf[50]);} else{ t6=C_eqp(t2,lf[47]); if(C_truep(t6)){ return(lf[51]);} else{ t7=C_eqp(t2,lf[48]); if(C_truep(t7)){ return(lf[52]);} else{ t8=C_eqp(t2,lf[49]); return((C_truep(t8)?lf[53]:C_SCHEME_UNDEFINED));}}}} /* out in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2112(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2112,4,t0,t1,t2,t3);} a=C_alloc(5); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2122,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* extras.scm:275: output */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2120 in out in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ C_save_and_reclaim((void *)f_2122,2,av);} a=C_alloc(29); if(C_truep(t1)){ t2=C_i_string_length(((C_word*)t0)[2]); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_s_a_i_plus(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2131(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(22,0,4)))){ C_save_and_reclaim_args((void *)trf_2131,4,t0,t1,t2,t3);} a=C_alloc(22); t4=C_SCHEME_UNDEFINED; t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2134,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=((C_word*)t0)[5],a[7]=((C_word)li27),tmp=(C_word)a,a+=8,tmp); t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2161,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word)li29),tmp=(C_word)a,a+=5,tmp)); if(C_truep(C_i_pairp(t2))){ /* extras.scm:295: wr-expr */ t9=t4; f_2134(t9,t1,t2,t3);} else{ if(C_truep(C_i_nullp(t2))){ /* extras.scm:296: wr-lst */ t9=((C_word*)t6)[1]; f_2161(t9,t1,t2,t3);} else{ if(C_truep(C_eofp(t2))){ /* extras.scm:297: out */ t9=((C_word*)((C_word*)t0)[4])[1]; f_2112(t9,t1,lf[60],t3);} else{ if(C_truep(C_i_vectorp(t2))){ t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2279,a[2]=t6,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* extras.scm:298: scheme#vector->list */ t10=*((C_word*)lf[62]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ if(C_truep(C_booleanp(t2))){ if(C_truep(t2)){ /* extras.scm:299: out */ t9=((C_word*)((C_word*)t0)[4])[1]; f_2112(t9,t1,lf[63],t3);} else{ /* extras.scm:299: out */ t9=((C_word*)((C_word*)t0)[4])[1]; f_2112(t9,t1,lf[64],t3);}} else{ t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2302,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* extras.scm:300: ##sys#number? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[97]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[97]+1); av2[1]=t9; av2[2]=t2; tp(3,av2);}}}}}}} /* wr-expr in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2134(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_2134,4,t0,t1,t2,t3);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2141,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t3,a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); /* extras.scm:280: read-macro? */ f_2011(t4,t2);} /* k2139 in wr-expr in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2141,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_cadr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2152,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=( /* extras.scm:281: read-macro-prefix */ f_2073(((C_word*)t0)[2]) ); /* extras.scm:281: out */ t7=((C_word*)((C_word*)t0)[6])[1]; f_2112(t7,t5,t6,((C_word*)t0)[7]);} else{ /* extras.scm:282: wr-lst */ t2=((C_word*)((C_word*)t0)[8])[1]; f_2161(t2,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[7]);}} /* k2150 in k2139 in wr-expr in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2152,2,av);} /* extras.scm:281: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2131(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* wr-lst in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2161(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_2161,4,t0,t1,t2,t3);} a=C_alloc(11); if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_cdr(t4); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2177,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ t7=t2; t8=C_u_i_car(t7); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2236,a[2]=((C_word*)t0)[2],a[3]=t6,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* extras.scm:287: out */ t10=((C_word*)((C_word*)t0)[3])[1]; f_2112(t10,t9,lf[58],t3);} else{ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_2177(2,av2);}}} else{ /* extras.scm:293: out */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2112(t4,t1,lf[59],t3);}} /* k2175 in wr-lst in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_2177,2,av);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2179,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li28),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_2179(t5,((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* loop in k2175 in wr-lst in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2179(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_2179,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(C_i_not(t3))){ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_cdr(t4); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2201,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=t2; t8=C_u_i_car(t7); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2207,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* extras.scm:290: out */ t10=((C_word*)((C_word*)t0)[4])[1]; f_2112(t10,t9,lf[54],t3);} else{ if(C_truep(C_i_nullp(t2))){ /* extras.scm:291: out */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2112(t4,t1,lf[55],t3);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2223,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2227,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* extras.scm:292: out */ t6=((C_word*)((C_word*)t0)[4])[1]; f_2112(t6,t5,lf[57],t3);}}}} /* k2199 in loop in k2175 in wr-lst in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2201(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2201,2,av);} /* extras.scm:290: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2179(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2205 in loop in k2175 in wr-lst in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2207(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2207,2,av);} /* extras.scm:290: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2131(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2221 in loop in k2175 in wr-lst in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2223,2,av);} /* extras.scm:292: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],lf[56],t1);} /* k2225 in loop in k2175 in wr-lst in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2227(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2227,2,av);} /* extras.scm:292: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2131(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2234 in wr-lst in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2236,2,av);} /* extras.scm:287: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2131(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2277 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2279(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2279,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2283,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* extras.scm:298: out */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2112(t4,t3,lf[61],((C_word*)t0)[5]);} /* k2281 in k2277 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2283,2,av);} /* extras.scm:298: wr-lst */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2161(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2302(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_2302,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2309,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* extras.scm:300: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[65]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[65]+1); av2[1]=t2; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2315,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* extras.scm:301: chicken.keyword#keyword? */ t3=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k2307 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2309(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2309,2,av);} /* extras.scm:300: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2315,2,av);} a=C_alloc(7); t2=(C_truep(t1)?t1:C_i_symbolp(((C_word*)t0)[2])); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2321,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* extras.scm:302: chicken.base#open-output-string */ t4=*((C_word*)lf[30]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ if(C_truep(C_i_closurep(((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2344,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* extras.scm:305: ##sys#procedure->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[67]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} else{ if(C_truep(C_i_stringp(((C_word*)t0)[2]))){ if(C_truep(((C_word*)t0)[6])){ /* extras.scm:308: out */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2112(t3,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]);} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2363,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* extras.scm:309: out */ t4=((C_word*)((C_word*)t0)[3])[1]; f_2112(t4,t3,lf[75],((C_word*)t0)[5]);}} else{ if(C_truep(C_charp(((C_word*)t0)[2]))){ if(C_truep(((C_word*)t0)[6])){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2516,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[2]; /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t3; av2[2]=C_fix(1); av2[3]=t4; tp(4,av2);}} else{ t3=C_fix(C_character_code(((C_word*)t0)[2])); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2524,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* extras.scm:346: out */ t6=((C_word*)((C_word*)t0)[3])[1]; f_2112(t6,t5,lf[80],((C_word*)t0)[5]);}} else{ if(C_truep(C_undefinedp(((C_word*)t0)[2]))){ /* extras.scm:357: out */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2112(t3,((C_word*)t0)[4],lf[81],((C_word*)t0)[5]);} else{ if(C_truep(C_anypointerp(((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2610,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* extras.scm:358: ##sys#pointer->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[82]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[82]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} else{ if(C_truep(C_unboundvaluep(((C_word*)t0)[2]))){ /* extras.scm:360: out */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2112(t3,((C_word*)t0)[4],lf[83],((C_word*)t0)[5]);} else{ if(C_truep(C_structurep(((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2625,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* extras.scm:362: chicken.base#open-output-string */ t4=*((C_word*)lf[30]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2641,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); /* extras.scm:365: chicken.base#port? */ t4=*((C_word*)lf[95]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}}}}}}}} /* k2319 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2321,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2324,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* extras.scm:303: ##sys#print */ t4=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2322 in k2319 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2324,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2331,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* extras.scm:304: chicken.base#get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2329 in k2322 in k2319 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2331,2,av);} /* extras.scm:304: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2342 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2344,2,av);} /* extras.scm:305: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_2363,2,av);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2365,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li31),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_2365(t5,((C_word*)t0)[4],C_fix(0),C_fix(0),t1);} /* loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2365(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_2365,5,t0,t1,t2,t3,t4);} a=C_alloc(9); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2372,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=t4,a[8]=t2,tmp=(C_word)a,a+=9,tmp); if(C_truep(t4)){ t6=C_i_string_length(((C_word*)t0)[2]); t7=t5; f_2372(t7,C_fixnum_lessp(t3,t6));} else{ t6=t5; f_2372(t6,C_SCHEME_FALSE);}} /* k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2372(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ C_save_and_reclaim_args((void *)trf_2372,2,t0,t1);} a=C_alloc(20); if(C_truep(t1)){ t2=C_i_string_ref(((C_word*)t0)[2],((C_word*)t0)[3]); t3=t2; t4=C_u_i_char_equalp(t3,C_make_character(92)); t5=(C_truep(t4)?t4:C_u_i_char_equalp(t3,C_make_character(34))); if(C_truep(t5)){ t6=((C_word*)t0)[3]; t7=C_a_i_fixnum_plus(&a,2,t6,C_fix(1)); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2393,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=t7,tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2397,a[2]=((C_word*)t0)[6],a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2401,a[2]=((C_word*)t0)[6],a[3]=t9,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* extras.scm:318: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t10; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[8]; av2[4]=((C_word*)t0)[3]; tp(5,av2);}} else{ t6=C_u_i_char_lessp(t3,C_make_character(32)); t7=(C_truep(t6)?t6:C_u_i_char_equalp(t3,C_make_character(127))); if(C_truep(t7)){ t8=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t9=t8; t10=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t11=t10; t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2424,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t9,a[6]=t11,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2471,a[2]=((C_word*)t0)[6],a[3]=t12,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* extras.scm:325: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t13; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[8]; av2[4]=((C_word*)t0)[3]; tp(5,av2);}} else{ t8=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* extras.scm:340: loop */ t9=((C_word*)((C_word*)t0)[4])[1]; f_2365(t9,((C_word*)t0)[5],((C_word*)t0)[8],t8,((C_word*)t0)[7]);}}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2489,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2493,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); /* extras.scm:342: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[8]; av2[4]=((C_word*)t0)[3]; tp(5,av2);}}} /* k2391 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2393,2,av);} /* extras.scm:315: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2365(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k2395 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2397,2,av);} /* extras.scm:317: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],lf[68],t1);} /* k2399 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2401,2,av);} /* extras.scm:318: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2422 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_2424,2,av);} a=C_alloc(12); t2=t1; t3=C_u_i_assq(((C_word*)t0)[2],lf[69]); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2429,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); if(C_truep(t3)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2430,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word)li30),tmp=(C_word)a,a+=5,tmp); /* extras.scm:326: g500 */ t6=t5; f_2430(t6,t4,t3);} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2448,a[2]=((C_word*)t0)[7],a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t6=C_fix(C_character_code(((C_word*)t0)[2])); /* ##sys#fixnum->string */ t7=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t5; av2[2]=t6; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k2427 in k2422 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2429,2,av);} /* extras.scm:322: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2365(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* g500 in k2422 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2430(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_2430,3,t0,t1,t2);} t3=C_i_cdr(t2); /* extras.scm:335: out */ t4=((C_word*)((C_word*)t0)[2])[1]; f_2112(t4,t1,t3,((C_word*)t0)[3]);} /* k2446 in k2422 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2448,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2452,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(C_truep(C_u_i_char_lessp(((C_word*)t0)[4],C_make_character(16)))?lf[70]:lf[71]); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2460,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* extras.scm:339: out */ t7=((C_word*)((C_word*)t0)[2])[1]; f_2112(t7,t6,lf[72],((C_word*)t0)[5]);} /* k2450 in k2446 in k2422 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2452(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2452,2,av);} /* extras.scm:337: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2458 in k2446 in k2422 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2460,2,av);} /* extras.scm:338: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2469 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2471,2,av);} /* extras.scm:325: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2487 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2489(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2489,2,av);} /* extras.scm:341: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],lf[74],t1);} /* k2491 in k2370 in loop in k2361 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2493(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2493,2,av);} /* extras.scm:342: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2514 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2516,2,av);} /* extras.scm:344: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2522 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_2524,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2527,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* extras.scm:347: chicken.base#char-name */ t3=*((C_word*)lf[79]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2525 in k2522 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_2527,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2531,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li32),tmp=(C_word)a,a+=5,tmp); /* extras.scm:347: g511 */ t3=t2; f_2531(t3,((C_word*)t0)[4],t1);} else{ if(C_truep(C_fixnum_lessp(((C_word*)t0)[5],C_fix(32)))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2551,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* extras.scm:351: out */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2112(t3,t2,lf[76],((C_word*)t0)[3]);} else{ if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],C_fix(255)))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2569,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],C_fix(65535)))){ /* extras.scm:354: out */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2112(t3,t2,lf[77],((C_word*)t0)[3]);} else{ /* extras.scm:354: out */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2112(t3,t2,lf[78],((C_word*)t0)[3]);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2592,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[6]; /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[14]+1); av2[1]=t2; av2[2]=C_fix(1); av2[3]=t3; tp(4,av2);}}}}} /* g511 in k2525 in k2522 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2531(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_2531,3,t0,t1,t2);} t3=C_slot(t2,C_fix(1)); /* extras.scm:349: out */ t4=((C_word*)((C_word*)t0)[2])[1]; f_2112(t4,t1,t3,((C_word*)t0)[3]);} /* k2549 in k2525 in k2522 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2551,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2558,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* ##sys#fixnum->string */ t3=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2556 in k2549 in k2525 in k2522 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2558,2,av);} /* extras.scm:352: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2567 in k2525 in k2522 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_2569,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2576,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* ##sys#fixnum->string */ t3=*((C_word*)lf[73]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_fix(16); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k2574 in k2567 in k2525 in k2522 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2576,2,av);} /* extras.scm:355: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2590 in k2525 in k2522 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2592,2,av);} /* extras.scm:356: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2608 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2610,2,av);} /* extras.scm:358: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2623 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2625,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2628,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* extras.scm:363: ##sys#user-print-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[84]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_TRUE; av2[4]=t2; tp(5,av2);}} /* k2626 in k2623 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_2628,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2635,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* extras.scm:364: chicken.base#get-output-string */ t3=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2633 in k2626 in k2623 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2635,2,av);} /* extras.scm:364: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2639 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_2641,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2648,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_slot(((C_word*)t0)[5],C_fix(3)); /* extras.scm:365: scheme#string-append */ t4=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[86]; av2[3]=t3; av2[4]=lf[87]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ if(C_truep(C_bytevectorp(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2658,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* extras.scm:367: out */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2112(t3,t2,lf[90],((C_word*)t0)[4]);} else{ if(C_truep(C_lambdainfop(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* extras.scm:377: out */ t3=((C_word*)((C_word*)t0)[2])[1]; f_2112(t3,t2,lf[93],((C_word*)t0)[4]);} else{ /* extras.scm:380: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],lf[94],((C_word*)t0)[4]);}}}} /* k2646 in k2639 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2648,2,av);} /* extras.scm:365: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2656 in k2639 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_2658,2,av);} a=C_alloc(15); t2=C_block_size(((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2664,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2669,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[5],a[7]=((C_word)li33),tmp=(C_word)a,a+=8,tmp)); t8=((C_word*)t6)[1]; f_2669(t8,t4,C_fix(0));} /* k2662 in k2656 in k2639 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2664,2,av);} /* extras.scm:375: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],lf[88],((C_word*)t0)[4]);} /* doloop520 in k2656 in k2639 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2669(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_2669,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_subbyte(((C_word*)t0)[3],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2682,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t4,tmp=(C_word)a,a+=8,tmp); if(C_truep(C_fixnum_lessp(t4,C_fix(16)))){ /* extras.scm:373: out */ t6=((C_word*)((C_word*)t0)[5])[1]; f_2112(t6,t5,lf[89],((C_word*)t0)[6]);} else{ t6=t5;{ C_word av2[2]; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_2682(2,av2);}}}} /* k2680 in doloop520 in k2656 in k2639 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2682,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2685,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2696,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* extras.scm:374: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[65]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[65]+1); av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=C_fix(16); tp(4,av2);}} /* k2683 in k2680 in doloop520 in k2656 in k2639 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2685,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_2669(t3,((C_word*)t0)[4],t2);} /* k2694 in k2680 in doloop520 in k2656 in k2639 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2696,2,av);} /* extras.scm:374: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2706 in k2639 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_2708,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2711,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2718,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* extras.scm:378: ##sys#lambda-info->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[92]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[92]+1); av2[1]=t3; av2[2]=((C_word*)t0)[5]; tp(3,av2);}} /* k2709 in k2706 in k2639 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2711,2,av);} /* extras.scm:379: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],lf[91],((C_word*)t0)[4]);} /* k2716 in k2706 in k2639 in k2313 in k2300 in wr in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2718,2,av);} /* extras.scm:378: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2726(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(152,0,9)))){ C_save_and_reclaim_args((void *)trf_2726,4,t0,t1,t2,t3);} a=C_alloc(152); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_SCHEME_UNDEFINED; t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_SCHEME_UNDEFINED; t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp); t26=C_SCHEME_UNDEFINED; t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); t28=C_SCHEME_UNDEFINED; t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp); t30=C_SCHEME_UNDEFINED; t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp); t32=C_SCHEME_UNDEFINED; t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp); t34=C_SCHEME_UNDEFINED; t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp); t36=C_SCHEME_UNDEFINED; t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp); t38=C_SCHEME_UNDEFINED; t39=(*a=C_VECTOR_TYPE|1,a[1]=t38,tmp=(C_word)a,a+=2,tmp); t40=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2729,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li35),tmp=(C_word)a,a+=5,tmp)); t41=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2762,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li36),tmp=(C_word)a,a+=5,tmp)); t42=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2796,a[2]=((C_word*)t0)[2],a[3]=t15,a[4]=t11,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word)li38),tmp=(C_word)a,a+=9,tmp)); t43=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2883,a[2]=t9,a[3]=t11,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=t19,a[7]=t13,a[8]=t39,a[9]=t15,a[10]=((C_word*)t0)[7],a[11]=((C_word)li39),tmp=(C_word)a,a+=12,tmp)); t44=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2948,a[2]=t17,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word)li40),tmp=(C_word)a,a+=6,tmp)); t45=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2974,a[2]=t17,a[3]=((C_word*)t0)[2],a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp)); t46=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2983,a[2]=t9,a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=((C_word)li43),tmp=(C_word)a,a+=6,tmp)); t47=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3056,a[2]=t9,a[3]=t7,a[4]=t17,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word)li47),tmp=(C_word)a,a+=8,tmp)); t48=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3196,a[2]=t15,a[3]=t11,a[4]=((C_word)li48),tmp=(C_word)a,a+=5,tmp)); t49=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3202,a[2]=t19,a[3]=t21,a[4]=t11,a[5]=((C_word)li49),tmp=(C_word)a,a+=6,tmp)); t50=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3208,a[2]=t19,a[3]=t11,a[4]=((C_word)li50),tmp=(C_word)a,a+=5,tmp)); t51=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3214,a[2]=t13,a[3]=t21,a[4]=((C_word)li51),tmp=(C_word)a,a+=5,tmp)); t52=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3220,a[2]=t19,a[3]=t11,a[4]=t21,a[5]=((C_word)li52),tmp=(C_word)a,a+=6,tmp)); t53=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3226,a[2]=t13,a[3]=t11,a[4]=((C_word)li53),tmp=(C_word)a,a+=5,tmp)); t54=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3232,a[2]=t19,a[3]=t21,a[4]=t11,a[5]=((C_word)li54),tmp=(C_word)a,a+=6,tmp)); t55=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3252,a[2]=t19,a[3]=t11,a[4]=((C_word)li55),tmp=(C_word)a,a+=5,tmp)); t56=C_set_block_item(t37,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3258,a[2]=t19,a[3]=t21,a[4]=t11,a[5]=((C_word)li56),tmp=(C_word)a,a+=6,tmp)); t57=C_set_block_item(t39,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3267,a[2]=t23,a[3]=t25,a[4]=t27,a[5]=t29,a[6]=t31,a[7]=t33,a[8]=t35,a[9]=t37,a[10]=((C_word)li57),tmp=(C_word)a,a+=11,tmp)); /* extras.scm:542: pr */ t58=((C_word*)t9)[1]; f_2796(t58,t1,t2,t3,C_fix(0),((C_word*)t11)[1]);} /* spaces in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2729(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(34,0,4)))){ C_save_and_reclaim_args((void *)trf_2729,4,t0,t1,t2,t3);} a=C_alloc(34); if(C_truep(C_i_greaterp(t2,C_fix(0)))){ if(C_truep(C_i_greaterp(t2,C_fix(7)))){ t4=C_s_a_i_minus(&a,2,t2,C_fix(8)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2753,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* extras.scm:387: out */ t7=((C_word*)((C_word*)t0)[3])[1]; f_2112(t7,t6,lf[98],t3);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2760,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* extras.scm:388: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[9]+1); av2[1]=t4; av2[2]=lf[99]; av2[3]=C_fix(0); av2[4]=t2; tp(5,av2);}}} else{ t4=t3; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k2751 in spaces in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2753(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2753,2,av);} /* extras.scm:387: spaces */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2729(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k2758 in spaces in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2760,2,av);} /* extras.scm:388: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* indent in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2762(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){ C_save_and_reclaim_args((void *)trf_2762,4,t0,t1,t2,t3);} a=C_alloc(29); if(C_truep(t3)){ if(C_truep(C_i_lessp(t2,t3))){ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2778,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2785,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[14]+1); av2[1]=t5; av2[2]=C_fix(1); av2[3]=C_make_character(10); tp(4,av2);}} else{ t4=C_s_a_i_minus(&a,2,t2,t3); /* extras.scm:395: spaces */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2729(t5,t1,t4,t3);}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k2776 in indent in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2778,2,av);} if(C_truep(t1)){ /* extras.scm:394: spaces */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2729(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_fix(0));} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2783 in indent in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2785,2,av);} /* extras.scm:394: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* pr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2796(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(101,0,3)))){ C_save_and_reclaim_args((void *)trf_2796,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(101); t6=C_i_pairp(t2); t7=(C_truep(t6)?t6:C_i_vectorp(t2)); if(C_truep(t7)){ t8=C_SCHEME_END_OF_LIST; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2809,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t9,a[6]=t2,a[7]=t5,a[8]=t4,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],tmp=(C_word)a,a+=12,tmp); t11=C_s_a_i_minus(&a,2,((C_word*)t0)[6],t3); t12=C_s_a_i_minus(&a,2,t11,t4); t13=C_s_a_i_plus(&a,2,t12,C_fix(1)); /* extras.scm:400: scheme#max */ t14=*((C_word*)lf[102]+1);{ C_word av2[4]; av2[0]=t14; av2[1]=t10; av2[2]=t13; av2[3]=C_fix(50); ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} else{ /* extras.scm:411: wr */ t8=((C_word*)((C_word*)t0)[7])[1]; f_2131(t8,t1,t2,t3);}} /* k2807 in pr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(19,c,5)))){ C_save_and_reclaim((void *)f_2809,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2812,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2847,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word)li37),tmp=(C_word)a,a+=5,tmp); /* extras.scm:401: generic-write */ f_2008(t4,((C_word*)t0)[6],((C_word*)t0)[11],C_SCHEME_FALSE,t5);} /* k2810 in k2807 in pr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_2812,2,av);} a=C_alloc(8); if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[2])[1],C_fix(0)))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2825,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* extras.scm:407: chicken.string#reverse-string-append */ t3=*((C_word*)lf[100]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ if(C_truep(C_i_pairp(((C_word*)t0)[7]))){ /* extras.scm:409: pp-pair */ t2=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[9]; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2841,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* extras.scm:410: scheme#vector->list */ t3=*((C_word*)lf[62]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k2823 in k2810 in k2807 in pr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2825,2,av);} /* extras.scm:407: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} /* k2839 in k2810 in k2807 in pr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_2841,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2845,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* extras.scm:410: out */ t4=((C_word*)((C_word*)t0)[6])[1]; f_2112(t4,t3,lf[101],((C_word*)t0)[7]);} /* k2843 in k2839 in k2810 in k2807 in pr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2845,2,av);} /* extras.scm:410: pp-list */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2974(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);} /* a2846 in k2807 in pr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ C_save_and_reclaim((void *)f_2847,3,av);} a=C_alloc(32); t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[2])[1]); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); t5=C_i_string_length(t2); t6=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_i_greaterp(((C_word*)((C_word*)t0)[3])[1],C_fix(0)); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* pp-expr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_2883,5,av);} a=C_alloc(14); t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_2890,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=t3,a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],tmp=(C_word)a,a+=14,tmp); /* extras.scm:414: read-macro? */ f_2011(t5,t2);} /* k2888 in pp-expr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_2890,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_cadr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2901,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t6=( /* extras.scm:416: read-macro-prefix */ f_2073(((C_word*)t0)[2]) ); /* extras.scm:416: out */ t7=((C_word*)((C_word*)t0)[8])[1]; f_2112(t7,t5,t6,((C_word*)t0)[9]);} else{ t2=C_i_car(((C_word*)t0)[2]); t3=t2; if(C_truep(C_i_symbolp(t3))){ t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2917,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[11],a[9]=t3,tmp=(C_word)a,a+=10,tmp); /* extras.scm:421: style */ t5=((C_word*)((C_word*)t0)[12])[1]; f_3267(t5,t4,t3);} else{ /* extras.scm:428: pp-list */ t4=((C_word*)((C_word*)t0)[13])[1]; f_2974(t4,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[9],((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);}}} /* k2899 in k2888 in pp-expr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2901,2,av);} /* extras.scm:415: pr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2796(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);} /* k2915 in k2888 in pp-expr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_2917,2,av);} a=C_alloc(9); if(C_truep(t1)){ /* extras.scm:423: proc */ t2=t1;{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2943,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* extras.scm:424: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[103]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[103]+1); av2[1]=t2; av2[2]=((C_word*)t0)[9]; tp(3,av2);}}} /* k2941 in k2915 in k2888 in pp-expr in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_2943,2,av);} t2=C_i_string_length(t1); if(C_truep(C_i_greaterp(t2,C_fix(5)))){ /* extras.scm:426: pp-general */ t3=((C_word*)((C_word*)t0)[2])[1]; f_3056(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[7])[1]);} else{ /* extras.scm:427: pp-call */ t3=((C_word*)((C_word*)t0)[8])[1]; f_2948(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)((C_word*)t0)[7])[1]);}} /* pp-call in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2948(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ C_save_and_reclaim_args((void *)trf_2948,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(13); t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2952,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp); t7=C_i_car(t2); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2972,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t8,tmp=(C_word)a,a+=5,tmp); /* extras.scm:434: out */ t10=((C_word*)((C_word*)t0)[4])[1]; f_2112(t10,t9,lf[104],t3);} /* k2950 in pp-call in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,6)))){ C_save_and_reclaim((void *)f_2952,2,av);} a=C_alloc(29); if(C_truep(((C_word*)t0)[2])){ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); t4=C_s_a_i_plus(&a,2,t1,C_fix(1)); /* extras.scm:436: pp-down */ t5=((C_word*)((C_word*)t0)[4])[1]; f_2983(t5,((C_word*)t0)[5],t3,t1,t4,((C_word*)t0)[6],((C_word*)t0)[7]);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k2970 in pp-call in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2972,2,av);} /* extras.scm:434: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2131(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* pp-list in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2974(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_2974,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2978,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* extras.scm:442: out */ t7=((C_word*)((C_word*)t0)[3])[1]; f_2112(t7,t6,lf[105],t3);} /* k2976 in pp-list in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_2978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2978,2,av);} /* extras.scm:443: pp-down */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2983(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* pp-down in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2983(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_2983,7,t0,t1,t2,t3,t4,t5,t6);} a=C_alloc(12); t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2989,a[2]=t5,a[3]=t8,a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=((C_word*)t0)[3],a[7]=t4,a[8]=((C_word*)t0)[4],a[9]=((C_word)li42),tmp=(C_word)a,a+=10,tmp)); t10=((C_word*)t8)[1]; f_2989(t10,t1,t2,t3);} /* loop in pp-down in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_2989(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(41,0,3)))){ C_save_and_reclaim_args((void *)trf_2989,4,t0,t1,t2,t3);} a=C_alloc(41); if(C_truep(t3)){ if(C_truep(C_i_pairp(t2))){ t4=t2; t5=C_u_i_cdr(t4); t6=C_i_nullp(t5); t7=(C_truep(t6)?C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)):C_fix(0)); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3010,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t10=t2; t11=C_u_i_car(t10); t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3016,a[2]=((C_word*)t0)[4],a[3]=t9,a[4]=t11,a[5]=t8,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* extras.scm:452: indent */ t13=((C_word*)((C_word*)t0)[6])[1]; f_2762(t13,t12,((C_word*)t0)[7],t3);} else{ if(C_truep(C_i_nullp(t2))){ /* extras.scm:454: out */ t4=((C_word*)((C_word*)t0)[8])[1]; f_2112(t4,t1,lf[106],t3);} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3038,a[2]=((C_word*)t0)[8],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3042,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3050,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3054,a[2]=((C_word*)t0)[8],a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* extras.scm:458: indent */ t8=((C_word*)((C_word*)t0)[6])[1]; f_2762(t8,t7,((C_word*)t0)[7],t3);}}} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3008 in loop in pp-down in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3010,2,av);} /* extras.scm:451: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2989(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k3014 in loop in pp-down in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3016,2,av);} /* extras.scm:452: pr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2796(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k3036 in loop in pp-down in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3038(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3038,2,av);} /* extras.scm:456: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],lf[107],t1);} /* k3040 in loop in pp-down in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){ C_save_and_reclaim((void *)f_3042,2,av);} a=C_alloc(29); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); /* extras.scm:457: pr */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2796(t3,((C_word*)t0)[4],((C_word*)t0)[5],t1,t2,((C_word*)t0)[6]);} /* k3048 in loop in pp-down in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3050,2,av);} /* extras.scm:458: indent */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2762(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k3052 in loop in pp-down in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3054,2,av);} /* extras.scm:458: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],lf[108],t1);} /* pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_3056(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){ C_word tmp; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(42,0,6)))){ C_save_and_reclaim_args((void *)trf_3056,9,t0,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(42); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3059,a[2]=t6,a[3]=t4,a[4]=t12,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word)li44),tmp=(C_word)a,a+=8,tmp)); t16=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3098,a[2]=t7,a[3]=t4,a[4]=t14,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word)li45),tmp=(C_word)a,a+=8,tmp)); t17=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3137,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t8,a[5]=((C_word)li46),tmp=(C_word)a,a+=6,tmp)); t18=C_i_car(t2); t19=t18; t20=t2; t21=C_u_i_cdr(t20); t22=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3148,a[2]=t5,a[3]=t21,a[4]=t3,a[5]=t10,a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t23=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3194,a[2]=((C_word*)t0)[5],a[3]=t22,a[4]=t19,tmp=(C_word)a,a+=5,tmp); /* extras.scm:485: out */ t24=((C_word*)((C_word*)t0)[6])[1]; f_2112(t24,t23,lf[110],t3);} /* tail1 in pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_3059(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(43,0,5)))){ C_save_and_reclaim_args((void *)trf_3059,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(43); t6=(C_truep(((C_word*)t0)[2])?C_i_pairp(t2):C_SCHEME_FALSE); if(C_truep(t6)){ t7=C_i_car(t2); t8=t7; t9=t2; t10=C_u_i_cdr(t9); t11=C_i_nullp(t10); t12=(C_truep(t11)?C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)):C_fix(0)); t13=t12; t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3080,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t10,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp); t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3084,a[2]=((C_word*)t0)[5],a[3]=t14,a[4]=t8,a[5]=t13,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* extras.scm:469: indent */ t16=((C_word*)((C_word*)t0)[6])[1]; f_2762(t16,t15,t5,t4);} else{ /* extras.scm:470: tail2 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_3098(t7,t1,t2,t3,t4,t5);}} /* k3078 in tail1 in pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3080(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3080,2,av);} /* extras.scm:469: tail2 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3098(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);} /* k3082 in tail1 in pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3084,2,av);} /* extras.scm:469: pr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2796(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* tail2 in pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_3098(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(42,0,4)))){ C_save_and_reclaim_args((void *)trf_3098,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(42); t6=(C_truep(((C_word*)t0)[2])?C_i_pairp(t2):C_SCHEME_FALSE); if(C_truep(t6)){ t7=C_i_car(t2); t8=t7; t9=t2; t10=C_u_i_cdr(t9); t11=C_i_nullp(t10); t12=(C_truep(t11)?C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)):C_fix(0)); t13=t12; t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3119,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t10,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3123,a[2]=((C_word*)t0)[5],a[3]=t14,a[4]=t8,a[5]=t13,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* extras.scm:477: indent */ t16=((C_word*)((C_word*)t0)[6])[1]; f_2762(t16,t15,t5,t4);} else{ /* extras.scm:478: tail3 */ t7=((C_word*)((C_word*)t0)[4])[1]; f_3137(t7,t1,t2,t3,t4);}} /* k3117 in tail2 in pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3119,2,av);} /* extras.scm:477: tail3 */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3137(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k3121 in tail2 in pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3123,2,av);} /* extras.scm:477: pr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2796(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} /* tail3 in pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_3137(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){ C_save_and_reclaim_args((void *)trf_3137,5,t0,t1,t2,t3,t4);} /* extras.scm:481: pp-down */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2983(t5,t1,t2,t4,t3,((C_word*)t0)[3],((C_word*)t0)[4]);} /* k3146 in pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(58,c,5)))){ C_save_and_reclaim((void *)f_3148,2,av);} a=C_alloc(58); t2=(C_truep(((C_word*)t0)[2])?C_i_pairp(((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t2)){ t3=C_i_car(((C_word*)t0)[3]); t4=t3; t5=C_u_i_cdr(((C_word*)t0)[3]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3161,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t5,tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3176,a[2]=((C_word*)t0)[7],a[3]=t6,a[4]=t4,tmp=(C_word)a,a+=5,tmp); /* extras.scm:489: out */ t8=((C_word*)((C_word*)t0)[8])[1]; f_2112(t8,t7,lf[109],t1);} else{ t3=C_s_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(2)); t4=C_s_a_i_plus(&a,2,t1,C_fix(1)); /* extras.scm:491: tail1 */ t5=((C_word*)((C_word*)t0)[5])[1]; f_3059(t5,((C_word*)t0)[6],((C_word*)t0)[3],t3,t1,t4);}} /* k3159 in k3146 in pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(58,c,5)))){ C_save_and_reclaim((void *)f_3161,2,av);} a=C_alloc(58); t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(2)); t3=C_s_a_i_plus(&a,2,t1,C_fix(1)); /* extras.scm:490: tail1 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_3059(t4,((C_word*)t0)[4],((C_word*)t0)[5],t2,t1,t3);} /* k3174 in k3146 in pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3176(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3176,2,av);} /* extras.scm:489: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2131(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k3192 in pp-general in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3194(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3194,2,av);} /* extras.scm:485: wr */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2131(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* pp-expr-list in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3196,5,av);} /* extras.scm:494: pp-list */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2974(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[3])[1]);} /* pp-lambda in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_3202,5,av);} /* extras.scm:497: pp-general */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3056(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[4])[1]);} /* pp-if in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_3208,5,av);} /* extras.scm:500: pp-general */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3056(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1]);} /* pp-cond in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3214,5,av);} /* extras.scm:503: pp-call */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2948(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[3])[1]);} /* pp-case in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_3220,5,av);} /* extras.scm:506: pp-general */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3056(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[4])[1]);} /* pp-and in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_3226,5,av);} /* extras.scm:509: pp-call */ t5=((C_word*)((C_word*)t0)[2])[1]; f_2948(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[3])[1]);} /* pp-let in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_3232,5,av);} t5=C_i_cdr(t2); if(C_truep(C_i_pairp(t5))){ t6=C_u_i_car(t5); t7=C_i_symbolp(t6); /* extras.scm:514: pp-general */ t8=((C_word*)((C_word*)t0)[2])[1]; f_3056(t8,t1,t2,t3,t4,t7,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[4])[1]);} else{ /* extras.scm:514: pp-general */ t6=((C_word*)((C_word*)t0)[2])[1]; f_3056(t6,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[4])[1]);}} /* pp-begin in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_3252,5,av);} /* extras.scm:517: pp-general */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3056(t5,t1,t2,t3,t4,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1]);} /* pp-do in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){ C_save_and_reclaim((void *)f_3258,5,av);} /* extras.scm:520: pp-general */ t5=((C_word*)((C_word*)t0)[2])[1]; f_3056(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]);} /* style in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_3267(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_3267,3,t0,t1,t2);} a=C_alloc(12); t3=t2; t4=C_eqp(t3,lf[111]); t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3277,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); if(C_truep(t4)){ t6=t5; f_3277(t6,t4);} else{ t6=C_eqp(t3,lf[121]); if(C_truep(t6)){ t7=t5; f_3277(t7,t6);} else{ t7=C_eqp(t3,lf[122]); if(C_truep(t7)){ t8=t5; f_3277(t8,t7);} else{ t8=C_eqp(t3,lf[123]); t9=t5; f_3277(t9,(C_truep(t8)?t8:C_eqp(t3,lf[124])));}}}} /* k3275 in style in pp in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_fcall f_3277(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ C_save_and_reclaim_args((void *)trf_3277,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],lf[112]); t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[113])); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[5])[1]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t4=C_eqp(((C_word*)t0)[4],lf[114]); if(C_truep(t4)){ t5=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t5; av2[1]=((C_word*)((C_word*)t0)[6])[1]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_eqp(((C_word*)t0)[4],lf[115]); if(C_truep(t5)){ t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=((C_word*)((C_word*)t0)[7])[1]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_eqp(((C_word*)t0)[4],lf[116]); t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[117])); if(C_truep(t7)){ t8=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t8; av2[1]=((C_word*)((C_word*)t0)[8])[1]; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_eqp(((C_word*)t0)[4],lf[118]); if(C_truep(t8)){ t9=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t9; av2[1]=((C_word*)((C_word*)t0)[9])[1]; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_eqp(((C_word*)t0)[4],lf[119]); if(C_truep(t9)){ t10=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t10; av2[1]=((C_word*)((C_word*)t0)[10])[1]; ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} else{ t10=C_eqp(((C_word*)t0)[4],lf[120]); t11=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t11; av2[1]=(C_truep(t10)?((C_word*)((C_word*)t0)[11])[1]:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}}}}} /* k3391 in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3393(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3393,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3397,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* extras.scm:545: pp */ t4=((C_word*)((C_word*)t0)[4])[1]; f_2726(t4,t3,((C_word*)t0)[5],C_fix(0));} /* k3395 in k3391 in chicken.pretty-print#generic-write in k1084 in k1081 */ static void C_ccall f_3397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3397,2,av);} /* extras.scm:545: out */ t2=((C_word*)((C_word*)t0)[2])[1]; f_2112(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k3404 in k1084 in k1081 */ static void C_ccall f_3406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(29,c,6)))){ C_save_and_reclaim((void *)f_3406,2,av);} a=C_alloc(29); t2=C_mutate((C_word*)lf[125]+1 /* (set! chicken.pretty-print#pretty-print-width ...) */,t1); t3=C_mutate((C_word*)lf[126]+1 /* (set! chicken.pretty-print#pretty-print ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3408,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[128]+1 /* (set! chicken.pretty-print#pp ...) */,*((C_word*)lf[126]+1)); t5=C_a_i_provide(&a,1,lf[129]); t6=C_mutate(&lf[130] /* (set! chicken.format#fprintf0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3432,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[138]+1 /* (set! chicken.format#fprintf ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3752,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate((C_word*)lf[140]+1 /* (set! chicken.format#printf ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3758,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[142]+1 /* (set! chicken.format#sprintf ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3764,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[144]+1 /* (set! chicken.format#format ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3770,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3813,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* extras.scm:640: chicken.platform#register-feature! */ t12=*((C_word*)lf[162]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t11; av2[2]=lf[163]; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* chicken.pretty-print#pretty-print in k3404 in k1084 in k1081 */ static void C_ccall f_3408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,2)))){ C_save_and_reclaim((void*)f_3408,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+4); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3412,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t3))){ t5=t3; t6=t4; f_3412(t6,C_u_i_car(t5));} else{ t5=t4; f_3412(t5,*((C_word*)lf[19]+1));}} /* k3410 in chicken.pretty-print#pretty-print in k3404 in k1084 in k1081 */ static void C_fcall f_3412(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_3412,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3415,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3419,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* extras.scm:555: pretty-print-width */ t5=*((C_word*)lf[125]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k3413 in k3410 in chicken.pretty-print#pretty-print in k3404 in k1084 in k1081 */ static void C_ccall f_3415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3415,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3417 in k3410 in chicken.pretty-print#pretty-print in k3404 in k1084 in k1081 */ static void C_ccall f_3419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_3419,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3421,a[2]=((C_word*)t0)[2],a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp); /* extras.scm:555: generic-write */ f_2008(((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1,t2);} /* a3420 in k3417 in k3410 in chicken.pretty-print#pretty-print in k3404 in k1084 in k1081 */ static void C_ccall f_3421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_3421,3,av);} a=C_alloc(3); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3425,a[2]=t1,tmp=(C_word)a,a+=3,tmp); /* extras.scm:555: scheme#display */ t4=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k3423 in a3420 in k3417 in k3410 in chicken.pretty-print#pretty-print in k3404 in k1084 in k1081 */ static void C_ccall f_3425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3425,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_fcall f_3432(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3432,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3436,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); if(C_truep(t3)){ t7=t3; t8=t2; t9=t6; f_3436(t9,C_i_check_port_2(t7,C_fix(2),C_SCHEME_TRUE,t8));} else{ t7=t6; f_3436(t7,C_SCHEME_UNDEFINED);}} /* k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_fcall f_3436(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_3436,2,t0,t1);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3439,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3741,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[2])){ /* extras.scm:571: ##sys#tty-port? */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[137]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[137]+1); av2[1]=t3; av2[2]=((C_word*)t0)[2]; tp(3,av2);}} else{ /* extras.scm:573: chicken.base#open-output-string */ t4=*((C_word*)lf[30]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_3439,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3442,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3470,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t5,a[5]=((C_word)li65),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_3470(t7,t3,((C_word*)t0)[5],((C_word*)t0)[6]);} /* k3440 in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3442,2,av);} a=C_alloc(4); if(C_truep(C_i_not(((C_word*)t0)[2]))){ /* extras.scm:617: chicken.base#get-output-string */ t2=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ t2=C_eqp(((C_word*)t0)[4],((C_word*)t0)[2]); if(C_truep(C_i_not(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3464,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* extras.scm:619: chicken.base#get-output-string */ t4=*((C_word*)lf[28]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} /* k3462 in k3440 in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3464(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3464,2,av);} /* extras.scm:619: ##sys#print */ t2=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_fcall f_3470(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(30,0,2)))){ C_save_and_reclaim_args((void *)trf_3470,4,t0,t1,t2,t3);} a=C_alloc(30); t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_i_check_string_2(t2,((C_word*)t0)[2]); t6=C_fix(0); t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_block_size(t2); t9=t8; t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3479,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); t15=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3486,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word)li62),tmp=(C_word)a,a+=5,tmp)); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3505,a[2]=t7,a[3]=t9,a[4]=t11,a[5]=t17,a[6]=((C_word*)t0)[3],a[7]=t13,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[4],a[10]=((C_word)li64),tmp=(C_word)a,a+=11,tmp)); t19=((C_word*)t17)[1]; f_3505(t19,t1);} /* fetch in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static C_word C_fcall f_3479(C_word t0){ C_word tmp; C_word t1; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t1=C_subchar(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t2=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t3=C_set_block_item(((C_word*)t0)[3],0,t2); return(t1);} /* next in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_fcall f_3486(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3486,2,t0,t1);} if(C_truep(C_eqp(((C_word*)((C_word*)t0)[2])[1],C_SCHEME_END_OF_LIST))){ /* extras.scm:584: ##sys#error */ t2=*((C_word*)lf[131]+1);{ C_word av2[4]; av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[132]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} else{ t2=C_slot(((C_word*)((C_word*)t0)[2])[1],C_fix(0)); t3=C_slot(((C_word*)((C_word*)t0)[2])[1],C_fix(1)); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_fcall f_3505(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word *a; loop: C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ C_save_and_reclaim_args((void *)trf_3505,2,t0,t1);} a=C_alloc(11); if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]))){ t2=C_SCHEME_UNDEFINED; t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=( /* extras.scm:590: fetch */ f_3479(((C_word*)((C_word*)t0)[4])[1]) ); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3518,a[2]=((C_word*)t0)[5],a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_eqp(t2,C_make_character(126)); t5=(C_truep(t4)?C_fixnum_lessp(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t5)){ t6=( /* extras.scm:592: fetch */ f_3479(((C_word*)((C_word*)t0)[4])[1]) ); t7=C_u_i_char_upcase(t6); switch(t7){ case C_make_character(83): t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3543,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* extras.scm:594: next */ t9=((C_word*)((C_word*)t0)[7])[1]; f_3486(t9,t8); case C_make_character(65): t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3556,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* extras.scm:595: next */ t9=((C_word*)((C_word*)t0)[7])[1]; f_3486(t9,t8); case C_make_character(67): t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3569,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* extras.scm:596: next */ t9=((C_word*)((C_word*)t0)[7])[1]; f_3486(t9,t8); case C_make_character(66): t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3582,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3586,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* extras.scm:597: next */ t10=((C_word*)((C_word*)t0)[7])[1]; f_3486(t10,t9); case C_make_character(79): t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3599,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3603,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* extras.scm:598: next */ t10=((C_word*)((C_word*)t0)[7])[1]; f_3486(t10,t9); case C_make_character(88): t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3616,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3620,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* extras.scm:599: next */ t10=((C_word*)((C_word*)t0)[7])[1]; f_3486(t10,t9); case C_make_character(33): /* extras.scm:600: ##sys#flush-output */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[134]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[134]+1); av2[1]=t3; av2[2]=((C_word*)t0)[6]; tp(3,av2);} case C_make_character(63): t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3638,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=t1,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); /* extras.scm:602: next */ t9=((C_word*)((C_word*)t0)[7])[1]; f_3486(t9,t8); case C_make_character(126): /* extras.scm:606: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[21]+1); av2[1]=t3; av2[2]=C_make_character(126); av2[3]=((C_word*)t0)[6]; tp(4,av2);} default: t8=C_eqp(t7,C_make_character(37)); t9=(C_truep(t8)?t8:C_eqp(t7,C_make_character(78))); if(C_truep(t9)){ /* extras.scm:607: scheme#newline */ t10=*((C_word*)lf[135]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ if(C_truep(C_u_i_char_whitespacep(t6))){ t10=( /* extras.scm:610: fetch */ f_3479(((C_word*)((C_word*)t0)[4])[1]) ); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3683,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word)li63),tmp=(C_word)a,a+=5,tmp); t12=( f_3683(t11,t10) ); /* extras.scm:616: loop */ t24=t1; t1=t24; goto loop;} else{ /* extras.scm:614: ##sys#error */ t10=*((C_word*)lf[131]+1);{ C_word av2[5]; av2[0]=t10; av2[1]=t3; av2[2]=((C_word*)t0)[8]; av2[3]=lf[136]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}}} else{ /* extras.scm:615: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[21]+1); av2[1]=t3; av2[2]=t2; av2[3]=((C_word*)t0)[6]; tp(4,av2);}}}} /* k3516 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3518,2,av);} /* extras.scm:616: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3505(t2,((C_word*)t0)[3]);} /* k3541 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3543(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3543,2,av);} /* extras.scm:594: scheme#write */ t2=*((C_word*)lf[133]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3554 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3556(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3556,2,av);} /* extras.scm:595: scheme#display */ t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3567 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3569,2,av);} /* extras.scm:596: ##sys#write-char-0 */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[21]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k3580 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3582(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3582,2,av);} /* extras.scm:597: scheme#display */ t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3584 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3586,2,av);} /* extras.scm:597: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[65]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[65]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(2); tp(4,av2);}} /* k3597 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3599,2,av);} /* extras.scm:598: scheme#display */ t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3601 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3603,2,av);} /* extras.scm:598: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[65]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[65]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(8); tp(4,av2);}} /* k3614 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3616,2,av);} /* extras.scm:599: scheme#display */ t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k3618 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3620,2,av);} /* extras.scm:599: ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[65]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[65]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_fix(16); tp(4,av2);}} /* k3636 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3638(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3638,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* extras.scm:603: next */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3486(t4,t3);} /* k3639 in k3636 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3641(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3641,2,av);} a=C_alloc(4); t2=C_i_check_list_2(t1,((C_word*)t0)[2]); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3647,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* extras.scm:605: rec */ t4=((C_word*)((C_word*)t0)[5])[1]; f_3470(t4,t3,((C_word*)t0)[6],t1);} /* k3645 in k3639 in k3636 in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3647,2,av);} /* extras.scm:616: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3505(t2,((C_word*)t0)[3]);} /* skip in loop in rec in k3437 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static C_word C_fcall f_3683(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_stack_overflow_check; loop:{} if(C_truep(C_u_i_char_whitespacep(t1))){ t2=( /* extras.scm:612: fetch */ f_3479(((C_word*)((C_word*)t0)[2])[1]) ); t5=t2; t1=t5; goto loop;} else{ t2=C_fixnum_difference(((C_word*)((C_word*)t0)[3])[1],C_fix(1)); t3=C_set_block_item(((C_word*)t0)[3],0,t2); return(t3);}} /* k3739 in k3434 in chicken.format#fprintf0 in k3404 in k1084 in k1081 */ static void C_ccall f_3741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3741,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_3439(2,av2);}} else{ /* extras.scm:573: chicken.base#open-output-string */ t2=*((C_word*)lf[30]+1);{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* chicken.format#fprintf in k3404 in k1084 in k1081 */ static void C_ccall f_3752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_3752,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; /* extras.scm:622: fprintf0 */ f_3432(t1,lf[139],t2,t3,t4);} /* chicken.format#printf in k3404 in k1084 in k1081 */ static void C_ccall f_3758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_3758,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; /* extras.scm:625: fprintf0 */ f_3432(t1,lf[141],*((C_word*)lf[19]+1),t2,t3);} /* chicken.format#sprintf in k3404 in k1084 in k1081 */ static void C_ccall f_3764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_3764,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; /* extras.scm:628: fprintf0 */ f_3432(t1,lf[143],C_SCHEME_FALSE,t2,t3);} /* chicken.format#format in k3404 in k1084 in k1081 */ static void C_ccall f_3770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +12,c,3)))){ C_save_and_reclaim((void*)f_3770,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+12); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3778,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_not(t2))){{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[142]+1); av2[3]=((C_word*)t4)[1]; C_apply(4,av2);}} else{ if(C_truep(C_booleanp(t2))){{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[140]+1); av2[3]=((C_word*)t4)[1]; C_apply(4,av2);}} else{ if(C_truep(C_i_stringp(t2))){ t6=C_a_i_cons(&a,2,t2,((C_word*)t4)[1]); t7=C_set_block_item(t4,0,t6);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[142]+1); av2[3]=((C_word*)t4)[1]; C_apply(4,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3803,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); /* extras.scm:635: scheme#output-port? */ t7=*((C_word*)lf[147]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}} /* k3776 in chicken.format#format in k3404 in k1084 in k1081 */ static void C_ccall f_3778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3778,2,av);}{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)((C_word*)t0)[3])[1]; C_apply(4,av2);}} /* k3801 in chicken.format#format in k3404 in k1084 in k1081 */ static void C_ccall f_3803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3803,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[4]; av2[2]=*((C_word*)lf[138]+1); av2[3]=((C_word*)((C_word*)t0)[3])[1]; C_apply(4,av2);}} else{ /* extras.scm:637: ##sys#error */ t2=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[145]; av2[3]=lf[146]; av2[4]=((C_word*)t0)[2]; av2[5]=((C_word*)((C_word*)t0)[3])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} /* k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_3813,2,av);} a=C_alloc(21); t2=C_a_i_provide(&a,1,lf[148]); t3=C_mutate((C_word*)lf[149]+1 /* (set! chicken.random#set-pseudo-random-seed! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3815,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate((C_word*)lf[153]+1 /* (set! chicken.random#pseudo-random-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3854,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[156]+1 /* (set! chicken.random#pseudo-random-real ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3870,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); t6=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_RANDOM_STATE_SIZE); t7=C_mutate((C_word*)lf[157]+1 /* (set! chicken.random#random-bytes ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3873,a[2]=t6,a[3]=((C_word)li74),tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* chicken.random#set-pseudo-random-seed! in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +11,c,3)))){ C_save_and_reclaim((void*)f_3815,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+11); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3822,a[2]=t2,a[3]=t7,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t7)[1])){ t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3836,a[2]=t7,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* extras.scm:651: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[25]+1); av2[1]=t9; av2[2]=((C_word*)t7)[1]; av2[3]=lf[150]; tp(4,av2);}} else{ t9=C_block_size(t2); t10=C_set_block_item(t7,0,t9); t11=t8;{ C_word *av2=av; av2[0]=t11; av2[1]=t10; f_3822(2,av2);}}} /* k3820 in chicken.random#set-pseudo-random-seed! in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_3822,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3825,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_byteblockp(((C_word*)t0)[2]))){ t3=C_block_size(((C_word*)t0)[2]); t4=C_i_fixnum_min(((C_word*)((C_word*)t0)[3])[1],t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_set_random_seed(((C_word*)t0)[2],t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* extras.scm:656: ##sys#error */ t3=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[150]; av2[3]=lf[151]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k3823 in k3820 in chicken.random#set-pseudo-random-seed! in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3825,2,av);} t2=C_block_size(((C_word*)t0)[2]); t3=C_i_fixnum_min(((C_word*)((C_word*)t0)[3])[1],t2); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_set_random_seed(((C_word*)t0)[2],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k3834 in chicken.random#set-pseudo-random-seed! in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3836,2,av);} if(C_truep(C_fixnum_lessp(((C_word*)((C_word*)t0)[2])[1],C_fix(0)))){ /* extras.scm:653: ##sys#error */ t2=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[150]; av2[3]=lf[152]; av2[4]=((C_word*)((C_word*)t0)[2])[1]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_3822(2,av2);}}} /* chicken.random#pseudo-random-integer in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ C_save_and_reclaim((void *)f_3854,3,av);} a=C_alloc(2); if(C_truep(C_fixnump(t2))){ t3=C_random_fixnum(t2); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=C_i_bignump(t2); if(C_truep(C_i_not(t3))){ /* extras.scm:666: ##sys#error */ t4=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t1; av2[2]=lf[154]; av2[3]=lf[155]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_s_a_u_i_random_int(&a,1,t2); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} /* chicken.random#pseudo-random-real in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(2,c,1)))){ C_save_and_reclaim((void *)f_3870,2,av);} a=C_alloc(2); t2=t1;{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_random_real(&a,0); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.random#random-bytes in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3873(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +10,c,3)))){ C_save_and_reclaim((void*)f_3873,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+10); t2=C_build_rest(&a,c,2,av); C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t3=C_i_nullp(t2); t4=(C_truep(t3)?C_SCHEME_FALSE:C_i_car(t2)); t5=t4; t6=C_i_nullp(t2); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t2)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_FALSE:C_i_car(t7)); t10=t9; t11=C_i_nullp(t7); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3889,a[2]=t10,a[3]=t5,a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); if(C_truep(t10)){ t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3937,a[2]=t10,a[3]=t13,tmp=(C_word)a,a+=4,tmp); /* extras.scm:677: ##sys#check-fixnum */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[25]+1); av2[1]=t14; av2[2]=t10; av2[3]=lf[158]; tp(4,av2);}} else{ t14=t13;{ C_word *av2=av; av2[0]=t14; av2[1]=C_SCHEME_UNDEFINED; f_3889(2,av2);}}} /* k3887 in chicken.random#random-bytes in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_3889,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3892,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[3])){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3914,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t4=C_immp(((C_word*)t0)[3]); if(C_truep(t4)){ if(C_truep(t4)){ /* extras.scm:683: ##sys#error */ t5=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t3; av2[2]=lf[158]; av2[3]=lf[160]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t5=t2;{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[3]; f_3892(2,av2);}}} else{ t5=C_byteblockp(((C_word*)t0)[3]); if(C_truep(C_i_not(t5))){ /* extras.scm:683: ##sys#error */ t6=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=lf[158]; av2[3]=lf[160]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=((C_word*)t0)[3]; f_3892(2,av2);}}}} else{ if(C_truep(((C_word*)t0)[2])){ /* extras.scm:686: scheme#make-string */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ /* extras.scm:686: scheme#make-string */ t3=*((C_word*)lf[13]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} /* k3890 in k3887 in chicken.random#random-bytes in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3892,2,av);} a=C_alloc(5); t2=t1; t3=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:C_block_size(t2)); t4=C_random_bytes(t2,t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3899,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t4)){ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_3899(2,av2);}} else{ /* extras.scm:690: ##sys#error */ t6=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=lf[158]; av2[3]=lf[159]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* k3897 in k3890 in k3887 in chicken.random#random-bytes in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3899,2,av);} t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); if(C_truep(t2)){ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_string_to_bytevector(((C_word*)t0)[3]); t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k3912 in k3887 in chicken.random#random-bytes in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3914,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_3892(2,av2);}} /* k3935 in chicken.random#random-bytes in k3811 in k3404 in k1084 in k1081 */ static void C_ccall f_3937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3937,2,av);} if(C_truep(C_i_lessp(((C_word*)t0)[2],C_fix(0)))){ /* extras.scm:679: ##sys#error */ t2=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[158]; av2[3]=lf[161]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; f_3889(2,av2);}}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_extras_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("extras")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_extras_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(791))){ C_save(t1); C_rereclaim2(791*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,165); lf[0]=C_h_intern(&lf[0],6, C_text("extras")); lf[1]=C_h_intern(&lf[1],11, C_text("chicken.io#")); lf[2]=C_h_intern(&lf[2],11, C_text("scheme#read")); lf[3]=C_h_intern(&lf[3],20, C_text("chicken.io#read-list")); lf[4]=C_h_intern(&lf[4],20, C_text("##sys#standard-input")); lf[5]=C_h_intern(&lf[5],9, C_text("read-list")); lf[6]=C_h_intern(&lf[6],18, C_text("##sys#fast-reverse")); lf[7]=C_h_intern(&lf[7],20, C_text("chicken.io#read-line")); lf[8]=C_h_intern(&lf[8],9, C_text("read-line")); lf[9]=C_h_intern(&lf[9],15, C_text("##sys#substring")); lf[10]=C_h_intern(&lf[10],17, C_text("##sys#read-char-0")); lf[11]=C_h_intern(&lf[11],16, C_text("scheme#peek-char")); lf[12]=C_h_intern(&lf[12],19, C_text("##sys#string-append")); lf[13]=C_h_intern(&lf[13],18, C_text("scheme#make-string")); lf[14]=C_h_intern(&lf[14],17, C_text("##sys#make-string")); lf[15]=C_h_intern(&lf[15],21, C_text("chicken.io#read-lines")); lf[16]=C_h_intern(&lf[16],35, C_text("chicken.fixnum#most-positive-fixnum")); lf[17]=C_h_intern(&lf[17],10, C_text("read-lines")); lf[18]=C_h_intern(&lf[18],21, C_text("chicken.io#write-line")); lf[19]=C_h_intern(&lf[19],21, C_text("##sys#standard-output")); lf[20]=C_h_intern(&lf[20],10, C_text("write-line")); lf[21]=C_h_intern(&lf[21],18, C_text("##sys#write-char-0")); lf[22]=C_h_intern(&lf[22],28, C_text("chicken.io#read-string!/port")); lf[23]=C_h_intern(&lf[23],23, C_text("chicken.io#read-string!")); lf[24]=C_h_intern(&lf[24],12, C_text("read-string!")); lf[25]=C_h_intern(&lf[25],18, C_text("##sys#check-fixnum")); lf[26]=C_h_intern(&lf[26],27, C_text("chicken.io#read-string/port")); lf[27]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[28]=C_h_intern(&lf[28],30, C_text("chicken.base#get-output-string")); lf[29]=C_h_intern(&lf[29],23, C_text("chicken.io#write-string")); lf[30]=C_h_intern(&lf[30],31, C_text("chicken.base#open-output-string")); lf[31]=C_h_intern(&lf[31],17, C_text("##sys#peek-char-0")); lf[32]=C_h_intern(&lf[32],22, C_text("chicken.io#read-string")); lf[33]=C_h_intern(&lf[33],11, C_text("read-string")); lf[34]=C_h_intern(&lf[34],24, C_text("chicken.io#read-buffered")); lf[35]=C_h_intern(&lf[35],13, C_text("read-buffered")); lf[36]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[37]=C_h_intern(&lf[37],21, C_text("chicken.io#read-token")); lf[38]=C_h_intern(&lf[38],10, C_text("read-token")); lf[39]=C_h_intern(&lf[39],12, C_text("write-string")); lf[40]=C_h_intern(&lf[40],20, C_text("chicken.io#read-byte")); lf[41]=C_h_intern(&lf[41],9, C_text("read-byte")); lf[42]=C_h_intern(&lf[42],21, C_text("chicken.io#write-byte")); lf[43]=C_h_intern(&lf[43],10, C_text("write-byte")); lf[44]=C_h_intern(&lf[44],21, C_text("chicken.pretty-print#")); lf[46]=C_h_intern(&lf[46],5, C_text("quote")); lf[47]=C_h_intern(&lf[47],10, C_text("quasiquote")); lf[48]=C_h_intern(&lf[48],7, C_text("unquote")); lf[49]=C_h_intern(&lf[49],16, C_text("unquote-splicing")); lf[50]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\047")); lf[51]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001`")); lf[52]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001,")); lf[53]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002,@")); lf[54]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[55]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[56]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[57]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 . ")); lf[58]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[59]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002()")); lf[60]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005#!eof")); lf[61]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001#")); lf[62]=C_h_intern(&lf[62],19, C_text("scheme#vector->list")); lf[63]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002#t")); lf[64]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002#f")); lf[65]=C_h_intern(&lf[65],20, C_text("##sys#number->string")); lf[66]=C_h_intern(&lf[66],11, C_text("##sys#print")); lf[67]=C_h_intern(&lf[67],23, C_text("##sys#procedure->string")); lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\134")); lf[69]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\011\376B\000\000\002\134t\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\012\376B\000\000\002\134n\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\015\376B\000\000\002\134r\376\003\000\000\002\376\003\000\000\002\376" "\377\012\000\000\013\376B\000\000\002\134v\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\014\376B\000\000\002\134f\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\007\376B\000\000\002\134a\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\010\376B\000\000\002\134" "b\376\377\016")); lf[70]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0010")); lf[71]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000")); lf[72]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\134x")); lf[73]=C_h_intern(&lf[73],20, C_text("##sys#fixnum->string")); lf[74]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[75]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042")); lf[76]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001x")); lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001U")); lf[78]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001u")); lf[79]=C_h_intern(&lf[79],22, C_text("chicken.base#char-name")); lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002#\134")); lf[81]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016#<unspecified>")); lf[82]=C_h_intern(&lf[82],21, C_text("##sys#pointer->string")); lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020#<unbound value>")); lf[84]=C_h_intern(&lf[84],21, C_text("##sys#user-print-hook")); lf[85]=C_h_intern(&lf[85],20, C_text("scheme#string-append")); lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007#<port ")); lf[87]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001>")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001}")); lf[89]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0010")); lf[90]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003#${")); lf[91]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001>")); lf[92]=C_h_intern(&lf[92],25, C_text("##sys#lambda-info->string")); lf[93]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016#<lambda info ")); lf[94]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025#<unprintable object>")); lf[95]=C_h_intern(&lf[95],18, C_text("chicken.base#port\077")); lf[96]=C_h_intern(&lf[96],24, C_text("chicken.keyword#keyword\077")); lf[97]=C_h_intern(&lf[97],13, C_text("##sys#number\077")); lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 ")); lf[99]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 ")); lf[100]=C_h_intern(&lf[100],36, C_text("chicken.string#reverse-string-append")); lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001#")); lf[102]=C_h_intern(&lf[102],10, C_text("scheme#max")); lf[103]=C_h_intern(&lf[103],20, C_text("##sys#symbol->string")); lf[104]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[105]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[106]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[107]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)")); lf[108]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001.")); lf[109]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 ")); lf[110]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001(")); lf[111]=C_h_intern(&lf[111],6, C_text("lambda")); lf[112]=C_h_intern(&lf[112],2, C_text("if")); lf[113]=C_h_intern(&lf[113],4, C_text("set!")); lf[114]=C_h_intern(&lf[114],4, C_text("cond")); lf[115]=C_h_intern(&lf[115],4, C_text("case")); lf[116]=C_h_intern(&lf[116],3, C_text("and")); lf[117]=C_h_intern(&lf[117],2, C_text("or")); lf[118]=C_h_intern(&lf[118],3, C_text("let")); lf[119]=C_h_intern(&lf[119],5, C_text("begin")); lf[120]=C_h_intern(&lf[120],2, C_text("do")); lf[121]=C_h_intern(&lf[121],4, C_text("let\052")); lf[122]=C_h_intern(&lf[122],6, C_text("letrec")); lf[123]=C_h_intern(&lf[123],7, C_text("letrec\052")); lf[124]=C_h_intern(&lf[124],6, C_text("define")); lf[125]=C_h_intern(&lf[125],39, C_text("chicken.pretty-print#pretty-print-width")); lf[126]=C_h_intern(&lf[126],33, C_text("chicken.pretty-print#pretty-print")); lf[127]=C_h_intern(&lf[127],14, C_text("scheme#display")); lf[128]=C_h_intern(&lf[128],23, C_text("chicken.pretty-print#pp")); lf[129]=C_h_intern(&lf[129],15, C_text("chicken.format#")); lf[131]=C_h_intern(&lf[131],11, C_text("##sys#error")); lf[132]=C_decode_literal(C_heaptop,C_text("\376B\000\000/too few arguments to formatted output procedure")); lf[133]=C_h_intern(&lf[133],12, C_text("scheme#write")); lf[134]=C_h_intern(&lf[134],18, C_text("##sys#flush-output")); lf[135]=C_h_intern(&lf[135],14, C_text("scheme#newline")); lf[136]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037illegal format-string character")); lf[137]=C_h_intern(&lf[137],15, C_text("##sys#tty-port\077")); lf[138]=C_h_intern(&lf[138],22, C_text("chicken.format#fprintf")); lf[139]=C_h_intern(&lf[139],7, C_text("fprintf")); lf[140]=C_h_intern(&lf[140],21, C_text("chicken.format#printf")); lf[141]=C_h_intern(&lf[141],6, C_text("printf")); lf[142]=C_h_intern(&lf[142],22, C_text("chicken.format#sprintf")); lf[143]=C_h_intern(&lf[143],7, C_text("sprintf")); lf[144]=C_h_intern(&lf[144],21, C_text("chicken.format#format")); lf[145]=C_h_intern(&lf[145],6, C_text("format")); lf[146]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023illegal destination")); lf[147]=C_h_intern(&lf[147],19, C_text("scheme#output-port\077")); lf[148]=C_h_intern(&lf[148],15, C_text("chicken.random#")); lf[149]=C_h_intern(&lf[149],38, C_text("chicken.random#set-pseudo-random-seed!")); lf[150]=C_h_intern(&lf[150],23, C_text("set-pseudo-random-seed!")); lf[151]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid buffer type")); lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014invalid size")); lf[153]=C_h_intern(&lf[153],36, C_text("chicken.random#pseudo-random-integer")); lf[154]=C_h_intern(&lf[154],21, C_text("pseudo-random-integer")); lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021bad argument type")); lf[156]=C_h_intern(&lf[156],33, C_text("chicken.random#pseudo-random-real")); lf[157]=C_h_intern(&lf[157],27, C_text("chicken.random#random-bytes")); lf[158]=C_h_intern(&lf[158],12, C_text("random-bytes")); lf[159]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033unable to read random bytes")); lf[160]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid buffer type")); lf[161]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014invalid size")); lf[162]=C_h_intern(&lf[162],34, C_text("chicken.platform#register-feature!")); lf[163]=C_h_intern(&lf[163],7, C_text("srfi-28")); lf[164]=C_h_intern(&lf[164],27, C_text("chicken.base#make-parameter")); C_register_lf2(lf,165,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1083,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_data_2dstructures_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[239] = { {C_text("f_1083:extras_2escm"),(void*)f_1083}, {C_text("f_1086:extras_2escm"),(void*)f_1086}, {C_text("f_1088:extras_2escm"),(void*)f_1088}, {C_text("f_1117:extras_2escm"),(void*)f_1117}, {C_text("f_1119:extras_2escm"),(void*)f_1119}, {C_text("f_1139:extras_2escm"),(void*)f_1139}, {C_text("f_1191:extras_2escm"),(void*)f_1191}, {C_text("f_1201:extras_2escm"),(void*)f_1201}, {C_text("f_1211:extras_2escm"),(void*)f_1211}, {C_text("f_1224:extras_2escm"),(void*)f_1224}, {C_text("f_1229:extras_2escm"),(void*)f_1229}, {C_text("f_1242:extras_2escm"),(void*)f_1242}, {C_text("f_1275:extras_2escm"),(void*)f_1275}, {C_text("f_1284:extras_2escm"),(void*)f_1284}, {C_text("f_1293:extras_2escm"),(void*)f_1293}, {C_text("f_1307:extras_2escm"),(void*)f_1307}, {C_text("f_1315:extras_2escm"),(void*)f_1315}, {C_text("f_1344:extras_2escm"),(void*)f_1344}, {C_text("f_1369:extras_2escm"),(void*)f_1369}, {C_text("f_1382:extras_2escm"),(void*)f_1382}, {C_text("f_1428:extras_2escm"),(void*)f_1428}, {C_text("f_1444:extras_2escm"),(void*)f_1444}, {C_text("f_1456:extras_2escm"),(void*)f_1456}, {C_text("f_1474:extras_2escm"),(void*)f_1474}, {C_text("f_1478:extras_2escm"),(void*)f_1478}, {C_text("f_1533:extras_2escm"),(void*)f_1533}, {C_text("f_1537:extras_2escm"),(void*)f_1537}, {C_text("f_1540:extras_2escm"),(void*)f_1540}, {C_text("f_1588:extras_2escm"),(void*)f_1588}, {C_text("f_1610:extras_2escm"),(void*)f_1610}, {C_text("f_1616:extras_2escm"),(void*)f_1616}, {C_text("f_1619:extras_2escm"),(void*)f_1619}, {C_text("f_1625:extras_2escm"),(void*)f_1625}, {C_text("f_1665:extras_2escm"),(void*)f_1665}, {C_text("f_1684:extras_2escm"),(void*)f_1684}, {C_text("f_1687:extras_2escm"),(void*)f_1687}, {C_text("f_1699:extras_2escm"),(void*)f_1699}, {C_text("f_1702:extras_2escm"),(void*)f_1702}, {C_text("f_1707:extras_2escm"),(void*)f_1707}, {C_text("f_1711:extras_2escm"),(void*)f_1711}, {C_text("f_1714:extras_2escm"),(void*)f_1714}, {C_text("f_1726:extras_2escm"),(void*)f_1726}, {C_text("f_1734:extras_2escm"),(void*)f_1734}, {C_text("f_1736:extras_2escm"),(void*)f_1736}, {C_text("f_1755:extras_2escm"),(void*)f_1755}, {C_text("f_1789:extras_2escm"),(void*)f_1789}, {C_text("f_1817:extras_2escm"),(void*)f_1817}, {C_text("f_1827:extras_2escm"),(void*)f_1827}, {C_text("f_1832:extras_2escm"),(void*)f_1832}, {C_text("f_1836:extras_2escm"),(void*)f_1836}, {C_text("f_1842:extras_2escm"),(void*)f_1842}, {C_text("f_1845:extras_2escm"),(void*)f_1845}, {C_text("f_1852:extras_2escm"),(void*)f_1852}, {C_text("f_1873:extras_2escm"),(void*)f_1873}, {C_text("f_1878:extras_2escm"),(void*)f_1878}, {C_text("f_1885:extras_2escm"),(void*)f_1885}, {C_text("f_1895:extras_2escm"),(void*)f_1895}, {C_text("f_1898:extras_2escm"),(void*)f_1898}, {C_text("f_1916:extras_2escm"),(void*)f_1916}, {C_text("f_1921:extras_2escm"),(void*)f_1921}, {C_text("f_1956:extras_2escm"),(void*)f_1956}, {C_text("f_1966:extras_2escm"),(void*)f_1966}, {C_text("f_1983:extras_2escm"),(void*)f_1983}, {C_text("f_1990:extras_2escm"),(void*)f_1990}, {C_text("f_2008:extras_2escm"),(void*)f_2008}, {C_text("f_2011:extras_2escm"),(void*)f_2011}, {C_text("f_2039:extras_2escm"),(void*)f_2039}, {C_text("f_2073:extras_2escm"),(void*)f_2073}, {C_text("f_2112:extras_2escm"),(void*)f_2112}, {C_text("f_2122:extras_2escm"),(void*)f_2122}, {C_text("f_2131:extras_2escm"),(void*)f_2131}, {C_text("f_2134:extras_2escm"),(void*)f_2134}, {C_text("f_2141:extras_2escm"),(void*)f_2141}, {C_text("f_2152:extras_2escm"),(void*)f_2152}, {C_text("f_2161:extras_2escm"),(void*)f_2161}, {C_text("f_2177:extras_2escm"),(void*)f_2177}, {C_text("f_2179:extras_2escm"),(void*)f_2179}, {C_text("f_2201:extras_2escm"),(void*)f_2201}, {C_text("f_2207:extras_2escm"),(void*)f_2207}, {C_text("f_2223:extras_2escm"),(void*)f_2223}, {C_text("f_2227:extras_2escm"),(void*)f_2227}, {C_text("f_2236:extras_2escm"),(void*)f_2236}, {C_text("f_2279:extras_2escm"),(void*)f_2279}, {C_text("f_2283:extras_2escm"),(void*)f_2283}, {C_text("f_2302:extras_2escm"),(void*)f_2302}, {C_text("f_2309:extras_2escm"),(void*)f_2309}, {C_text("f_2315:extras_2escm"),(void*)f_2315}, {C_text("f_2321:extras_2escm"),(void*)f_2321}, {C_text("f_2324:extras_2escm"),(void*)f_2324}, {C_text("f_2331:extras_2escm"),(void*)f_2331}, {C_text("f_2344:extras_2escm"),(void*)f_2344}, {C_text("f_2363:extras_2escm"),(void*)f_2363}, {C_text("f_2365:extras_2escm"),(void*)f_2365}, {C_text("f_2372:extras_2escm"),(void*)f_2372}, {C_text("f_2393:extras_2escm"),(void*)f_2393}, {C_text("f_2397:extras_2escm"),(void*)f_2397}, {C_text("f_2401:extras_2escm"),(void*)f_2401}, {C_text("f_2424:extras_2escm"),(void*)f_2424}, {C_text("f_2429:extras_2escm"),(void*)f_2429}, {C_text("f_2430:extras_2escm"),(void*)f_2430}, {C_text("f_2448:extras_2escm"),(void*)f_2448}, {C_text("f_2452:extras_2escm"),(void*)f_2452}, {C_text("f_2460:extras_2escm"),(void*)f_2460}, {C_text("f_2471:extras_2escm"),(void*)f_2471}, {C_text("f_2489:extras_2escm"),(void*)f_2489}, {C_text("f_2493:extras_2escm"),(void*)f_2493}, {C_text("f_2516:extras_2escm"),(void*)f_2516}, {C_text("f_2524:extras_2escm"),(void*)f_2524}, {C_text("f_2527:extras_2escm"),(void*)f_2527}, {C_text("f_2531:extras_2escm"),(void*)f_2531}, {C_text("f_2551:extras_2escm"),(void*)f_2551}, {C_text("f_2558:extras_2escm"),(void*)f_2558}, {C_text("f_2569:extras_2escm"),(void*)f_2569}, {C_text("f_2576:extras_2escm"),(void*)f_2576}, {C_text("f_2592:extras_2escm"),(void*)f_2592}, {C_text("f_2610:extras_2escm"),(void*)f_2610}, {C_text("f_2625:extras_2escm"),(void*)f_2625}, {C_text("f_2628:extras_2escm"),(void*)f_2628}, {C_text("f_2635:extras_2escm"),(void*)f_2635}, {C_text("f_2641:extras_2escm"),(void*)f_2641}, {C_text("f_2648:extras_2escm"),(void*)f_2648}, {C_text("f_2658:extras_2escm"),(void*)f_2658}, {C_text("f_2664:extras_2escm"),(void*)f_2664}, {C_text("f_2669:extras_2escm"),(void*)f_2669}, {C_text("f_2682:extras_2escm"),(void*)f_2682}, {C_text("f_2685:extras_2escm"),(void*)f_2685}, {C_text("f_2696:extras_2escm"),(void*)f_2696}, {C_text("f_2708:extras_2escm"),(void*)f_2708}, {C_text("f_2711:extras_2escm"),(void*)f_2711}, {C_text("f_2718:extras_2escm"),(void*)f_2718}, {C_text("f_2726:extras_2escm"),(void*)f_2726}, {C_text("f_2729:extras_2escm"),(void*)f_2729}, {C_text("f_2753:extras_2escm"),(void*)f_2753}, {C_text("f_2760:extras_2escm"),(void*)f_2760}, {C_text("f_2762:extras_2escm"),(void*)f_2762}, {C_text("f_2778:extras_2escm"),(void*)f_2778}, {C_text("f_2785:extras_2escm"),(void*)f_2785}, {C_text("f_2796:extras_2escm"),(void*)f_2796}, {C_text("f_2809:extras_2escm"),(void*)f_2809}, {C_text("f_2812:extras_2escm"),(void*)f_2812}, {C_text("f_2825:extras_2escm"),(void*)f_2825}, {C_text("f_2841:extras_2escm"),(void*)f_2841}, {C_text("f_2845:extras_2escm"),(void*)f_2845}, {C_text("f_2847:extras_2escm"),(void*)f_2847}, {C_text("f_2883:extras_2escm"),(void*)f_2883}, {C_text("f_2890:extras_2escm"),(void*)f_2890}, {C_text("f_2901:extras_2escm"),(void*)f_2901}, {C_text("f_2917:extras_2escm"),(void*)f_2917}, {C_text("f_2943:extras_2escm"),(void*)f_2943}, {C_text("f_2948:extras_2escm"),(void*)f_2948}, {C_text("f_2952:extras_2escm"),(void*)f_2952}, {C_text("f_2972:extras_2escm"),(void*)f_2972}, {C_text("f_2974:extras_2escm"),(void*)f_2974}, {C_text("f_2978:extras_2escm"),(void*)f_2978}, {C_text("f_2983:extras_2escm"),(void*)f_2983}, {C_text("f_2989:extras_2escm"),(void*)f_2989}, {C_text("f_3010:extras_2escm"),(void*)f_3010}, {C_text("f_3016:extras_2escm"),(void*)f_3016}, {C_text("f_3038:extras_2escm"),(void*)f_3038}, {C_text("f_3042:extras_2escm"),(void*)f_3042}, {C_text("f_3050:extras_2escm"),(void*)f_3050}, {C_text("f_3054:extras_2escm"),(void*)f_3054}, {C_text("f_3056:extras_2escm"),(void*)f_3056}, {C_text("f_3059:extras_2escm"),(void*)f_3059}, {C_text("f_3080:extras_2escm"),(void*)f_3080}, {C_text("f_3084:extras_2escm"),(void*)f_3084}, {C_text("f_3098:extras_2escm"),(void*)f_3098}, {C_text("f_3119:extras_2escm"),(void*)f_3119}, {C_text("f_3123:extras_2escm"),(void*)f_3123}, {C_text("f_3137:extras_2escm"),(void*)f_3137}, {C_text("f_3148:extras_2escm"),(void*)f_3148}, {C_text("f_3161:extras_2escm"),(void*)f_3161}, {C_text("f_3176:extras_2escm"),(void*)f_3176}, {C_text("f_3194:extras_2escm"),(void*)f_3194}, {C_text("f_3196:extras_2escm"),(void*)f_3196}, {C_text("f_3202:extras_2escm"),(void*)f_3202}, {C_text("f_3208:extras_2escm"),(void*)f_3208}, {C_text("f_3214:extras_2escm"),(void*)f_3214}, {C_text("f_3220:extras_2escm"),(void*)f_3220}, {C_text("f_3226:extras_2escm"),(void*)f_3226}, {C_text("f_3232:extras_2escm"),(void*)f_3232}, {C_text("f_3252:extras_2escm"),(void*)f_3252}, {C_text("f_3258:extras_2escm"),(void*)f_3258}, {C_text("f_3267:extras_2escm"),(void*)f_3267}, {C_text("f_3277:extras_2escm"),(void*)f_3277}, {C_text("f_3393:extras_2escm"),(void*)f_3393}, {C_text("f_3397:extras_2escm"),(void*)f_3397}, {C_text("f_3406:extras_2escm"),(void*)f_3406}, {C_text("f_3408:extras_2escm"),(void*)f_3408}, {C_text("f_3412:extras_2escm"),(void*)f_3412}, {C_text("f_3415:extras_2escm"),(void*)f_3415}, {C_text("f_3419:extras_2escm"),(void*)f_3419}, {C_text("f_3421:extras_2escm"),(void*)f_3421}, {C_text("f_3425:extras_2escm"),(void*)f_3425}, {C_text("f_3432:extras_2escm"),(void*)f_3432}, {C_text("f_3436:extras_2escm"),(void*)f_3436}, {C_text("f_3439:extras_2escm"),(void*)f_3439}, {C_text("f_3442:extras_2escm"),(void*)f_3442}, {C_text("f_3464:extras_2escm"),(void*)f_3464}, {C_text("f_3470:extras_2escm"),(void*)f_3470}, {C_text("f_3479:extras_2escm"),(void*)f_3479}, {C_text("f_3486:extras_2escm"),(void*)f_3486}, {C_text("f_3505:extras_2escm"),(void*)f_3505}, {C_text("f_3518:extras_2escm"),(void*)f_3518}, {C_text("f_3543:extras_2escm"),(void*)f_3543}, {C_text("f_3556:extras_2escm"),(void*)f_3556}, {C_text("f_3569:extras_2escm"),(void*)f_3569}, {C_text("f_3582:extras_2escm"),(void*)f_3582}, {C_text("f_3586:extras_2escm"),(void*)f_3586}, {C_text("f_3599:extras_2escm"),(void*)f_3599}, {C_text("f_3603:extras_2escm"),(void*)f_3603}, {C_text("f_3616:extras_2escm"),(void*)f_3616}, {C_text("f_3620:extras_2escm"),(void*)f_3620}, {C_text("f_3638:extras_2escm"),(void*)f_3638}, {C_text("f_3641:extras_2escm"),(void*)f_3641}, {C_text("f_3647:extras_2escm"),(void*)f_3647}, {C_text("f_3683:extras_2escm"),(void*)f_3683}, {C_text("f_3741:extras_2escm"),(void*)f_3741}, {C_text("f_3752:extras_2escm"),(void*)f_3752}, {C_text("f_3758:extras_2escm"),(void*)f_3758}, {C_text("f_3764:extras_2escm"),(void*)f_3764}, {C_text("f_3770:extras_2escm"),(void*)f_3770}, {C_text("f_3778:extras_2escm"),(void*)f_3778}, {C_text("f_3803:extras_2escm"),(void*)f_3803}, {C_text("f_3813:extras_2escm"),(void*)f_3813}, {C_text("f_3815:extras_2escm"),(void*)f_3815}, {C_text("f_3822:extras_2escm"),(void*)f_3822}, {C_text("f_3825:extras_2escm"),(void*)f_3825}, {C_text("f_3836:extras_2escm"),(void*)f_3836}, {C_text("f_3854:extras_2escm"),(void*)f_3854}, {C_text("f_3870:extras_2escm"),(void*)f_3870}, {C_text("f_3873:extras_2escm"),(void*)f_3873}, {C_text("f_3889:extras_2escm"),(void*)f_3889}, {C_text("f_3892:extras_2escm"),(void*)f_3892}, {C_text("f_3899:extras_2escm"),(void*)f_3899}, {C_text("f_3914:extras_2escm"),(void*)f_3914}, {C_text("f_3937:extras_2escm"),(void*)f_3937}, {C_text("toplevel:extras_2escm"),(void*)C_extras_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.io#d o|hiding unexported module binding: chicken.io#define-alias o|hiding unexported module binding: chicken.io#read-string!/port o|hiding unexported module binding: chicken.io#read-string/port o|hiding unexported module binding: chicken.pretty-print#generic-write o|hiding unexported module binding: chicken.format#fprintf0 o|eliminated procedure checks: 27 o|specializations: o| 11 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) o| 1 (scheme#current-output-port) o| 4 (scheme#make-string fixnum char) o| 3 (scheme#number->string fixnum fixnum) o| 1 (scheme#assq * (list-of pair)) o| 2 (scheme#char<? char char) o| 1 (scheme#+ fixnum fixnum) o| 3 (scheme#char=? char char) o| 5 (scheme#car pair) o| 13 (scheme#cdr pair) o| 1 (scheme#make-string fixnum) o| 4 (##sys#check-output-port * * *) o| 24 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) o| 8 (##sys#check-input-port * * *) (o e)|safe calls: 338 (o e)|assignments to immediate values: 8 o|safe globals: (chicken.pretty-print#generic-write chicken.io#write-byte chicken.io#read-byte chicken.io#write-string chicken.io#read-token chicken.io#read-buffered chicken.io#read-string chicken.io#read-string/port chicken.io#read-string! chicken.io#read-string!/port chicken.io#write-line chicken.io#read-lines chicken.io#read-line chicken.io#read-list) o|substituted constant variable: a1109 o|substituted constant variable: a1110 o|inlining procedure: k1121 o|inlining procedure: k1121 o|inlining procedure: k1148 o|inlining procedure: k1148 o|substituted constant variable: a1203 o|substituted constant variable: a1204 o|inlining procedure: k1208 o|inlining procedure: k1208 o|inlining procedure: k1231 o|inlining procedure: k1231 o|inlining procedure: k1249 o|inlining procedure: k1249 o|inlining procedure: k1258 o|inlining procedure: k1258 o|inlining procedure: k1276 o|inlining procedure: k1276 o|substituted constant variable: a1317 o|substituted constant variable: a1319 o|inlining procedure: k1327 o|inlining procedure: k1327 o|substituted constant variable: a1359 o|substituted constant variable: a1360 o|inlining procedure: k1371 o|inlining procedure: k1371 o|substituted constant variable: a1434 o|substituted constant variable: a1435 o|inlining procedure: k1458 o|inlining procedure: k1458 o|inlining procedure: k1482 o|inlining procedure: k1482 o|inlining procedure: k1541 o|inlining procedure: k1541 o|substituted constant variable: a1603 o|substituted constant variable: a1604 o|inlining procedure: k1667 o|inlining procedure: k1667 o|inlining procedure: k1679 o|inlining procedure: k1679 o|inlining procedure: k1715 o|inlining procedure: k1715 o|substituted constant variable: a1730 o|substituted constant variable: a1751 o|substituted constant variable: a1752 o|inlining procedure: k1753 o|inlining procedure: k1753 o|substituted constant variable: a1795 o|substituted constant variable: a1796 o|inlining procedure: k1800 o|inlining procedure: k1800 o|substituted constant variable: a1823 o|substituted constant variable: a1824 o|inlining procedure: k1837 o|inlining procedure: k1837 o|substituted constant variable: a1881 o|substituted constant variable: a1882 o|inlining procedure: k1893 o|inlining procedure: k1893 o|inlining procedure: k1926 o|inlining procedure: k1926 o|substituted constant variable: a1962 o|substituted constant variable: a1963 o|inlining procedure: k1967 o|inlining procedure: k1967 o|substituted constant variable: a1992 o|substituted constant variable: a1993 o|inlining procedure: k2031 o|contracted procedure: "(extras.scm:260) length1?416" o|inlining procedure: k2016 o|inlining procedure: k2016 o|inlining procedure: k2031 o|inlining procedure: k2046 o|inlining procedure: k2046 o|substituted constant variable: a2059 o|substituted constant variable: a2061 o|substituted constant variable: a2063 o|substituted constant variable: a2065 o|inlining procedure: k2079 o|inlining procedure: k2079 o|inlining procedure: k2091 o|inlining procedure: k2091 o|substituted constant variable: a2104 o|substituted constant variable: a2106 o|substituted constant variable: a2108 o|substituted constant variable: a2110 o|inlining procedure: k2114 o|inlining procedure: k2114 o|inlining procedure: k2136 o|inlining procedure: "(extras.scm:281) read-macro-body410" o|inlining procedure: k2136 o|inlining procedure: k2163 o|inlining procedure: k2181 o|inlining procedure: k2181 o|inlining procedure: k2208 o|inlining procedure: k2208 o|inlining procedure: k2163 o|inlining procedure: k2240 o|inlining procedure: k2240 o|inlining procedure: k2258 o|inlining procedure: k2258 o|inlining procedure: k2284 o|inlining procedure: k2294 o|inlining procedure: k2294 o|inlining procedure: k2284 o|inlining procedure: k2310 o|inlining procedure: k2310 o|inlining procedure: k2345 o|inlining procedure: k2367 o|substituted constant variable: a2380 o|substituted constant variable: a2389 o|substituted constant variable: a2406 o|inlining procedure: k2402 o|substituted constant variable: a2426 o|inlining procedure: k2427 o|inlining procedure: k2427 o|substituted constant variable: a2462 o|substituted constant variable: a2467 o|inlining procedure: k2402 o|substituted constant variable: a2480 o|substituted constant variable: a2482 o|inlining procedure: k2367 o|inlining procedure: k2345 o|inlining procedure: k2507 o|substituted constant variable: a2517 o|inlining procedure: k2507 o|inlining procedure: k2543 o|substituted constant variable: a2560 o|inlining procedure: k2543 o|substituted constant variable: a2578 o|inlining procedure: k2580 o|inlining procedure: k2580 o|substituted constant variable: a2593 o|inlining procedure: k2595 o|inlining procedure: k2595 o|inlining procedure: k2611 o|inlining procedure: k2611 o|inlining procedure: k2636 o|inlining procedure: k2636 o|inlining procedure: k2671 o|inlining procedure: k2671 o|inlining procedure: k2703 o|inlining procedure: k2703 o|inlining procedure: k2731 o|inlining procedure: k2731 o|inlining procedure: k2764 o|inlining procedure: k2773 o|inlining procedure: k2773 o|substituted constant variable: a2786 o|substituted constant variable: a2787 o|inlining procedure: k2764 o|inlining procedure: k2798 o|inlining procedure: k2826 o|inlining procedure: k2826 o|substituted constant variable: max-expr-width554 o|inlining procedure: k2798 o|inlining procedure: k2885 o|inlining procedure: "(extras.scm:415) read-macro-body410" o|inlining procedure: k2885 o|inlining procedure: k2918 o|inlining procedure: k2918 o|substituted constant variable: max-call-head-width553 o|inlining procedure: k2953 o|inlining procedure: k2953 o|inlining procedure: k2991 o|inlining procedure: k3023 o|inlining procedure: k3023 o|inlining procedure: k2991 o|inlining procedure: k3061 o|inlining procedure: k3061 o|inlining procedure: k3100 o|inlining procedure: k3100 o|inlining procedure: k3149 o|substituted constant variable: indent-general552 o|inlining procedure: k3149 o|substituted constant variable: indent-general552 o|inlining procedure: k3269 o|inlining procedure: k3269 o|inlining procedure: k3287 o|inlining procedure: k3287 o|inlining procedure: k3299 o|inlining procedure: k3299 o|inlining procedure: k3314 o|inlining procedure: k3314 o|substituted constant variable: a3327 o|substituted constant variable: a3329 o|substituted constant variable: a3331 o|substituted constant variable: a3336 o|substituted constant variable: a3338 o|substituted constant variable: a3340 o|substituted constant variable: a3342 o|substituted constant variable: a3347 o|substituted constant variable: a3349 o|inlining procedure: k3353 o|inlining procedure: k3353 o|inlining procedure: k3365 o|inlining procedure: k3365 o|substituted constant variable: a3372 o|substituted constant variable: a3374 o|substituted constant variable: a3376 o|substituted constant variable: a3378 o|substituted constant variable: a3380 o|inlining procedure: k3384 o|substituted constant variable: a3398 o|substituted constant variable: a3399 o|inlining procedure: k3384 o|inlining procedure: k3443 o|inlining procedure: k3443 o|inlining procedure: k3488 o|inlining procedure: k3488 o|inlining procedure: k3507 o|inlining procedure: k3507 o|inlining procedure: k3531 o|inlining procedure: k3531 o|inlining procedure: k3557 o|inlining procedure: k3557 o|inlining procedure: k3587 o|inlining procedure: k3587 o|inlining procedure: k3621 o|inlining procedure: k3621 o|inlining procedure: k3648 o|inlining procedure: k3648 o|inlining procedure: k3669 o|inlining procedure: k3685 o|inlining procedure: k3685 o|inlining procedure: k3669 o|substituted constant variable: a3709 o|substituted constant variable: a3711 o|substituted constant variable: a3713 o|substituted constant variable: a3715 o|substituted constant variable: a3717 o|substituted constant variable: a3719 o|substituted constant variable: a3721 o|substituted constant variable: a3723 o|substituted constant variable: a3725 o|substituted constant variable: a3727 o|substituted constant variable: a3729 o|substituted constant variable: a3749 o|inlining procedure: k3776 o|propagated global variable: r37774153 chicken.format#sprintf o|inlining procedure: k3776 o|inlining procedure: k3788 o|propagated global variable: r37894157 chicken.format#sprintf o|inlining procedure: k3788 o|inlining procedure: k3837 o|inlining procedure: k3837 o|inlining procedure: k3856 o|inlining procedure: k3856 o|inlining procedure: k3900 o|inlining procedure: k3900 o|inlining procedure: k3912 o|inlining procedure: k3912 o|inlining procedure: k3932 o|inlining procedure: k3932 o|inlining procedure: k3938 o|inlining procedure: k3938 o|replaced variables: 608 o|removed binding forms: 137 o|substituted constant variable: r11493974 o|substituted constant variable: r13283986 o|substituted constant variable: r14593989 o|substituted constant variable: r16683995 o|substituted constant variable: r18014012 o|substituted constant variable: r20174025 o|substituted constant variable: r20324026 o|removed side-effect free assignment to unused variable: read-macro-body410 o|substituted constant variable: r20804029 o|substituted constant variable: r20924031 o|substituted constant variable: r21154034 o|substituted constant variable: r22954053 o|substituted constant variable: r22954053 o|substituted constant variable: r22954055 o|substituted constant variable: r22954055 o|substituted constant variable: r25814074 o|substituted constant variable: r25814074 o|substituted constant variable: r25814076 o|substituted constant variable: r25814076 o|substituted constant variable: r27744092 o|substituted constant variable: r27654093 o|substituted constant variable: r29544108 o|substituted constant variable: r29924112 o|removed side-effect free assignment to unused variable: indent-general552 o|removed side-effect free assignment to unused variable: max-call-head-width553 o|removed side-effect free assignment to unused variable: max-expr-width554 o|inlining procedure: k3516 o|propagated global variable: a37754154 chicken.format#sprintf o|inlining procedure: k3776 o|propagated global variable: r37774234 chicken.format#printf o|propagated global variable: r37774234 chicken.format#printf o|inlining procedure: k3776 o|propagated global variable: r37774236 chicken.format#sprintf o|propagated global variable: r37774236 chicken.format#sprintf o|inlining procedure: k3776 o|propagated global variable: r37774238 chicken.format#fprintf o|propagated global variable: r37774238 chicken.format#fprintf o|replaced variables: 17 o|removed binding forms: 624 o|inlining procedure: k3237 o|inlining procedure: k3739 o|removed binding forms: 59 o|substituted constant variable: r32384262 o|substituted constant variable: r37404269 o|inlining procedure: k3918 o|replaced variables: 2 o|removed conditional forms: 1 o|removed binding forms: 4 o|simplifications: ((if . 59) (##core#call . 282)) o| call simplifications: o| ##sys#immediate? o| scheme#apply 5 o| scheme#char-upcase o| scheme#char-whitespace? 2 o| ##sys#check-list o| scheme#< 2 o| scheme#> 5 o| scheme#- 5 o| scheme#vector? 2 o| scheme#boolean? 2 o| scheme#symbol? 3 o| scheme#procedure? o| scheme#string? 2 o| scheme#char? o| ##sys#generic-structure? o| ##sys#byte o| chicken.fixnum#fx> 2 o| scheme#string-ref o| scheme#string-length 4 o| scheme#+ 11 o| scheme#integer->char o| scheme#char->integer 3 o| ##sys#size 7 o| chicken.fixnum#fx<= o| ##sys#setislot o| scheme#not 9 o| chicken.fixnum#fx< 7 o| ##sys#check-string 4 o| chicken.fixnum#fx- 5 o| scheme#pair? 14 o| scheme#cadr 3 o| ##sys#slot 16 o| scheme#eq? 45 o| scheme#char=? o| chicken.fixnum#fx= o| scheme#car 27 o| scheme#null? 36 o| scheme#cdr 14 o| scheme#eof-object? 8 o| chicken.fixnum#fx>= 5 o| chicken.fixnum#fx+ 16 o| scheme#cons 5 o|contracted procedure: k1184 o|contracted procedure: k1090 o|contracted procedure: k1178 o|contracted procedure: k1093 o|contracted procedure: k1172 o|contracted procedure: k1096 o|contracted procedure: k1166 o|contracted procedure: k1099 o|contracted procedure: k1160 o|contracted procedure: k1102 o|contracted procedure: k1154 o|contracted procedure: k1105 o|contracted procedure: k1124 o|contracted procedure: k1127 o|contracted procedure: k1141 o|contracted procedure: k1145 o|contracted procedure: k1193 o|contracted procedure: k1196 o|contracted procedure: k1324 o|contracted procedure: k1205 o|contracted procedure: k1219 o|contracted procedure: k1234 o|contracted procedure: k1246 o|contracted procedure: k1252 o|contracted procedure: k1261 o|contracted procedure: k1270 o|contracted procedure: k1279 o|contracted procedure: k1298 o|contracted procedure: k1301 o|contracted procedure: k1309 o|contracted procedure: k1337 o|contracted procedure: k1330 o|contracted procedure: k1421 o|contracted procedure: k1346 o|contracted procedure: k1415 o|contracted procedure: k1349 o|contracted procedure: k1409 o|contracted procedure: k1352 o|contracted procedure: k1403 o|contracted procedure: k1355 o|contracted procedure: k1365 o|contracted procedure: k1374 o|contracted procedure: k1386 o|contracted procedure: k1396 o|contracted procedure: k1400 o|contracted procedure: k1430 o|contracted procedure: k1436 o|contracted procedure: k1449 o|contracted procedure: k1439 o|contracted procedure: k1461 o|contracted procedure: k1584 o|contracted procedure: k1464 o|contracted procedure: k1526 o|contracted procedure: k1522 o|contracted procedure: k1479 o|contracted procedure: k1485 o|contracted procedure: k1491 o|contracted procedure: k1494 o|contracted procedure: k1501 o|contracted procedure: k1505 o|contracted procedure: k1509 o|contracted procedure: k1544 o|contracted procedure: k1550 o|contracted procedure: k1553 o|contracted procedure: k1560 o|contracted procedure: k1564 o|contracted procedure: k1568 o|contracted procedure: k1580 o|contracted procedure: k1658 o|contracted procedure: k1590 o|contracted procedure: k1652 o|contracted procedure: k1593 o|contracted procedure: k1646 o|contracted procedure: k1596 o|contracted procedure: k1640 o|contracted procedure: k1599 o|contracted procedure: k1605 o|contracted procedure: k1611 o|contracted procedure: k1627 o|contracted procedure: k1634 o|contracted procedure: k1670 o|contracted procedure: k1676 o|contracted procedure: k1691 o|contracted procedure: k1718 o|contracted procedure: k1780 o|contracted procedure: k1738 o|contracted procedure: k1774 o|contracted procedure: k1741 o|contracted procedure: k1768 o|contracted procedure: k1744 o|contracted procedure: k1762 o|contracted procedure: k1747 o|contracted procedure: k1810 o|contracted procedure: k1791 o|contracted procedure: k1807 o|contracted procedure: k1797 o|contracted procedure: k1866 o|contracted procedure: k1819 o|contracted procedure: k1863 o|contracted procedure: k1856 o|contracted procedure: k1875 o|contracted procedure: k1910 o|contracted procedure: k1886 o|contracted procedure: k1906 o|contracted procedure: k1929 o|contracted procedure: k1935 o|contracted procedure: k1942 o|contracted procedure: k1948 o|contracted procedure: k1976 o|contracted procedure: k1958 o|contracted procedure: k1970 o|contracted procedure: k2001 o|contracted procedure: k1985 o|contracted procedure: k1998 o|contracted procedure: k2027 o|contracted procedure: k2034 o|contracted procedure: k2019 o|contracted procedure: k2043 o|contracted procedure: k2049 o|contracted procedure: k2075 o|contracted procedure: k2082 o|contracted procedure: k2088 o|contracted procedure: k2094 o|contracted procedure: k2100 o|contracted procedure: k2127 o|contracted procedure: k2146 o|contracted procedure: k2166 o|contracted procedure: k2184 o|contracted procedure: k2190 o|contracted procedure: k2211 o|contracted procedure: k2243 o|contracted procedure: k2252 o|contracted procedure: k2261 o|contracted procedure: k2270 o|contracted procedure: k2287 o|contracted procedure: k2316 o|contracted procedure: k2335 o|contracted procedure: k2348 o|contracted procedure: k2373 o|contracted procedure: k2381 o|contracted procedure: k2407 o|contracted procedure: k2414 o|contracted procedure: k2418 o|contracted procedure: k2436 o|contracted procedure: k2454 o|contracted procedure: k2464 o|contracted procedure: k2476 o|contracted procedure: k2498 o|contracted procedure: k2504 o|contracted procedure: k2519 o|contracted procedure: k2537 o|contracted procedure: k2546 o|contracted procedure: k2564 o|contracted procedure: k2583 o|contracted procedure: k2620 o|contracted procedure: k2650 o|contracted procedure: k2659 o|contracted procedure: k2674 o|contracted procedure: k2677 o|contracted procedure: k2690 o|contracted procedure: k2697 o|contracted procedure: k2734 o|contracted procedure: k2740 o|contracted procedure: k2747 o|contracted procedure: k2770 o|contracted procedure: k2792 o|contracted procedure: k2801 o|contracted procedure: k2804 o|contracted procedure: k2816 o|contracted procedure: k2829 o|contracted procedure: k2850 o|contracted procedure: k2861 o|contracted procedure: k2854 o|contracted procedure: k2873 o|contracted procedure: k2869 o|contracted procedure: k2865 o|contracted procedure: k2895 o|contracted procedure: k2906 o|contracted procedure: k2912 o|contracted procedure: k2937 o|contracted procedure: k2927 o|contracted procedure: k2962 o|contracted procedure: k2966 o|contracted procedure: k2997 o|contracted procedure: k3017 o|contracted procedure: k3001 o|contracted procedure: k3026 o|contracted procedure: k3044 o|contracted procedure: k3064 o|contracted procedure: k3067 o|contracted procedure: k3085 o|contracted procedure: k3071 o|contracted procedure: k3103 o|contracted procedure: k3106 o|contracted procedure: k3124 o|contracted procedure: k3110 o|contracted procedure: k3142 o|contracted procedure: k3152 o|contracted procedure: k3155 o|contracted procedure: k3166 o|contracted procedure: k3170 o|contracted procedure: k3181 o|contracted procedure: k3185 o|contracted procedure: k3234 o|contracted procedure: k3243 o|contracted procedure: k3237 o|contracted procedure: k3272 o|contracted procedure: k3281 o|contracted procedure: k3284 o|contracted procedure: k3290 o|contracted procedure: k3296 o|contracted procedure: k3302 o|contracted procedure: k3305 o|contracted procedure: k3311 o|contracted procedure: k3317 o|contracted procedure: k3323 o|contracted procedure: k3350 o|contracted procedure: k3356 o|contracted procedure: k3362 o|contracted procedure: k3426 o|contracted procedure: k3446 o|contracted procedure: k3466 o|contracted procedure: k3455 o|contracted procedure: k3472 o|contracted procedure: k3475 o|contracted procedure: k3482 o|contracted procedure: k3494 o|contracted procedure: k3498 o|contracted procedure: k3510 o|contracted procedure: k3733 o|contracted procedure: k3522 o|contracted procedure: k3528 o|contracted procedure: k3534 o|contracted procedure: k3547 o|contracted procedure: k3560 o|contracted procedure: k3573 o|contracted procedure: k3590 o|contracted procedure: k3607 o|contracted procedure: k3624 o|contracted procedure: k3633 o|contracted procedure: k3642 o|contracted procedure: k3651 o|contracted procedure: k3660 o|contracted procedure: k3663 o|contracted procedure: k3672 o|contracted procedure: k3688 o|contracted procedure: k3699 o|contracted procedure: k3779 o|contracted procedure: k3785 o|contracted procedure: k3791 o|contracted procedure: k3795 o|contracted procedure: k3805 o|contracted procedure: k3847 o|contracted procedure: k3817 o|contracted procedure: k3828 o|contracted procedure: k3844 o|contracted procedure: k3862 o|contracted procedure: k3965 o|contracted procedure: k3875 o|contracted procedure: k3959 o|contracted procedure: k3878 o|contracted procedure: k3953 o|contracted procedure: k3881 o|contracted procedure: k3947 o|contracted procedure: k3884 o|contracted procedure: k3894 o|contracted procedure: k3903 o|contracted procedure: k3915 o|contracted procedure: k3918 o|contracted procedure: k3941 o|simplifications: ((let . 59)) o|removed binding forms: 270 o|inlining procedure: k3823 o|replaced variables: 137 o|simplifications: ((if . 1)) o|removed binding forms: 57 o|direct leaf routine/allocation: read-macro-prefix411 0 o|direct leaf routine/allocation: fetch770 0 o|contracted procedure: "(extras.scm:281) k2154" o|contracted procedure: "(extras.scm:416) k2903" o|contracted procedure: "(extras.scm:590) k3513" o|contracted procedure: "(extras.scm:592) k3525" o|contracted procedure: "(extras.scm:610) k3679" o|contracted procedure: "(extras.scm:612) k3695" o|removed binding forms: 6 o|direct leaf routine/allocation: skip793 0 o|inlining procedure: k3516 o|converted assignments to bindings: (skip793) o|simplifications: ((let . 1)) o|customizable procedures: (chicken.format#fprintf0 k3434 rec765 next771 loop776 k3410 pp414 k3275 tail1614 tail3616 tail2615 indent536 loop596 pp-down541 style555 pp-call539 pp-general542 pr537 chicken.pretty-print#generic-write pp-list540 spaces535 doloop520521 g511512 k2370 g500501 loop477 wr-expr457 loop463 read-macro?409 wr-lst458 out412 wr413 k2037 def-n317334 def-port318332 body315324 k1896 loop304 loop253 k1623 k1614 k1538 loop201 loop186 loop158 k1199 k1291 loop125 g120121 doloop9697) o|calls to known targets: 205 o|identified direct recursive calls: f_3683 1 o|identified direct recursive calls: f_3505 1 o|fast box initializations: 43 o|fast global references: 5 o|fast global assignments: 2 o|dropping unused closure argument: f_2008 o|dropping unused closure argument: f_2011 o|dropping unused closure argument: f_2073 o|dropping unused closure argument: f_3432 */ /* end of file */ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/modules.c�����������������������������������������������������������������������������0000644�0001750�0001750�00002442464�13502230003�014547� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from modules.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: modules.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file modules.c unit: modules uses: chicken-syntax library internal expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_chicken_2dsyntax_toplevel) C_externimport void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[242]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,19),40,100,101,108,101,116,101,32,120,32,108,115,116,32,116,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,15),40,109,111,100,117,108,101,45,110,97,109,101,32,120,41,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,25),40,109,111,100,117,108,101,45,117,110,100,101,102,105,110,101,100,45,108,105,115,116,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,32),40,115,101,116,45,109,111,100,117,108,101,45,117,110,100,101,102,105,110,101,100,45,108,105,115,116,33,32,120,32,121,41}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,109,111,100,117,108,101,45,101,120,112,111,114,116,115,32,109,41}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,109,111,100,117,108,101,45,97,108,105,97,115,32,97,108,105,97,115,32,110,97,109,101,41}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,7),40,97,53,53,55,56,41,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,7),40,97,53,53,57,53,41,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,7),40,97,53,54,48,49,41,0}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,56,57,57,32,103,57,49,49,41,0,0,0,0,0,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,119,105,116,104,45,109,111,100,117,108,101,45,97,108,105,97,115,101,115,32,98,105,110,100,105,110,103,115,32,116,104,117,110,107,41,0,0,0,0,0,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,8),40,103,57,52,51,32,97,41}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,110,32,100,111,110,101,41,0,0,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,114,101,115,111,108,118,101,45,109,111,100,117,108,101,45,110,97,109,101,32,110,97,109,101,32,108,111,99,41,0,0,0,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,102,105,110,100,45,109,111,100,117,108,101,32,110,97,109,101,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,8),40,103,57,56,49,32,109,41}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,115,119,105,116,99,104,45,109,111,100,117,108,101,32,109,111,100,41,0,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,7),40,103,49,48,49,52,41,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,6),40,103,57,57,56,41,0,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,24),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,57,55,32,103,49,48,48,52,41}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,97,100,100,45,116,111,45,101,120,112,111,114,116,45,108,105,115,116,32,109,111,100,32,101,120,112,115,41,0,0,0,0,0}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,54),40,35,35,115,121,115,35,116,111,112,108,101,118,101,108,45,100,101,102,105,110,105,116,105,111,110,45,104,111,111,107,32,115,121,109,32,114,101,110,97,109,101,100,32,101,120,112,111,114,116,101,100,63,41,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,109,101,116,97,45,101,120,112,114,101,115,115,105,111,110,32,101,120,112,41,0,0,0,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,30),40,99,104,101,99,107,45,102,111,114,45,114,101,100,101,102,32,115,121,109,32,101,110,118,32,115,101,110,118,41,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,101,120,112,111,114,116,32,115,121,109,32,109,111,100,41,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,115,121,110,116,97,120,45,101,120,112,111,114,116,32,115,121,109,32,109,111,100,32,118,97,108,41,0,0,0,0,0,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,11),40,97,54,49,52,54,32,120,32,121,41,0,0,0,0,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,117,110,114,101,103,105,115,116,101,114,45,115,121,110,116,97,120,45,101,120,112,111,114,116,32,115,121,109,32,109,111,100,41}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,47),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,109,111,100,117,108,101,32,110,97,109,101,32,108,105,98,32,101,120,112,108,105,115,116,32,46,32,114,101,115,116,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,9),40,103,49,49,56,54,32,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,49,56,53,32,103,49,49,57,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,11),40,108,112,32,115,101,32,115,101,50,41,0,0,0,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,115,101,115,32,108,97,115,116,45,115,101,32,115,101,50,41,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,15),40,109,101,114,103,101,45,115,101,32,115,101,115,42,41,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,15),40,103,49,50,55,56,32,115,101,120,112,111,114,116,41,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,115,100,41,0,0,0,0,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,50,55,50,32,103,49,50,56,52,41,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,50,51,57,32,103,49,50,53,49,41,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,99,111,109,112,105,108,101,100,45,109,111,100,117,108,101,45,114,101,103,105,115,116,114,97,116,105,111,110,32,109,111,100,41}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,12),40,103,49,52,48,55,32,115,101,120,112,41,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,12),40,103,49,52,49,55,32,110,101,120,112,41,0,0,0,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,52,49,54,32,103,49,52,50,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,52,48,54,32,103,49,52,49,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,55,52,32,103,49,51,56,54,41,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,52,54,32,103,49,51,53,56,41,0,0,0,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,75),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,99,111,109,112,105,108,101,100,45,109,111,100,117,108,101,32,110,97,109,101,32,108,105,98,32,105,101,120,112,111,114,116,115,32,118,101,120,112,111,114,116,115,32,115,101,120,112,111,114,116,115,32,46,32,114,101,115,116,41,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,10),40,103,49,52,55,53,32,115,101,41,0,0,0,0,0,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,54,57,32,103,49,52,56,49,41,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,53),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,99,111,114,101,45,109,111,100,117,108,101,32,110,97,109,101,32,108,105,98,32,118,101,120,112,111,114,116,115,32,46,32,114,101,115,116,41,0,0,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,54),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,112,114,105,109,105,116,105,118,101,45,109,111,100,117,108,101,32,110,97,109,101,32,118,101,120,112,111,114,116,115,32,46,32,114,101,115,116,41,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,120,108,41,0,0,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,30),40,102,105,110,100,45,101,120,112,111,114,116,32,115,121,109,32,109,111,100,32,105,110,100,105,114,101,99,116,41,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,9),40,103,49,54,52,56,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,54,52,55,32,103,49,54,53,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,11),40,103,49,54,49,55,32,115,121,109,41,0,0,0,0,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,54,49,54,32,103,49,54,50,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,9),40,103,49,54,48,49,32,117,41,0,0,0,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,9),40,103,49,55,49,55,32,109,41,0,0,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,55,49,54,32,103,49,55,50,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,54,56,49,32,103,49,54,57,51,41,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,13),40,119,97,114,110,32,109,115,103,32,105,100,41,0,0,0}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,9),40,103,49,49,52,56,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,9),40,103,49,49,53,53,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,50,32,105,101,120,112,111,114,116,115,41}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,101,120,112,111,114,116,115,41,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,54,48,48,32,103,49,54,48,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,120,108,41,0,0,0,0,0,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,109,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,53,52,54,32,103,49,53,53,56,41,0,0,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,102,105,110,97,108,105,122,101,45,109,111,100,117,108,101,32,109,111,100,41,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,7),40,97,56,50,51,53,41,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,7),40,97,56,50,57,55,41,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,7),40,97,56,51,48,50,41,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,7),40,97,56,51,49,49,41,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,7),40,97,56,50,57,49,41,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,7),40,97,56,51,49,54,41,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,105,109,112,111,114,116,45,108,105,98,114,97,114,121,45,104,111,111,107,32,109,110,97,109,101,41,0,0,0,0,0,0,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,36),40,102,105,110,100,45,109,111,100,117,108,101,47,105,109,112,111,114,116,45,108,105,98,114,97,114,121,32,108,105,98,32,108,111,99,41,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,17),40,119,97,114,110,32,109,115,103,32,109,111,100,32,105,100,41,0,0,0,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,9),40,116,111,115,116,114,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,21),40,109,111,100,117,108,101,45,105,109,112,111,114,116,115,32,110,97,109,101,41,0,0,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,7),40,97,56,53,51,56,41,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,10),40,103,49,57,48,49,32,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,57,48,48,32,103,49,57,48,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,9),40,103,49,57,50,49,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,9),40,103,49,57,50,53,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,105,100,115,32,118,32,115,32,109,105,115,115,105,110,103,41,0,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,60),40,97,56,53,52,56,32,110,97,109,101,49,56,54,50,32,108,105,98,49,56,54,52,32,115,112,101,99,49,56,54,54,32,105,109,112,118,49,56,54,56,32,105,109,112,115,49,56,55,48,32,105,109,112,105,49,56,55,50,41,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,7),40,97,56,54,56,56,41,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,10),40,103,49,57,55,57,32,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,57,55,56,32,103,49,57,56,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,10),40,103,49,57,57,57,32,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,105,109,112,115,32,115,32,105,100,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,10),40,103,50,48,48,52,32,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,105,109,112,118,32,118,32,105,100,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,60),40,97,56,54,57,56,32,110,97,109,101,49,57,51,50,32,108,105,98,49,57,51,52,32,115,112,101,99,49,57,51,54,32,105,109,112,118,49,57,51,56,32,105,109,112,115,49,57,52,48,32,105,109,112,105,49,57,52,50,41,0,0,0,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,7),40,97,56,56,55,49,41,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,10),40,103,50,48,53,56,32,105,100,41,0,0,0,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,48,53,55,32,103,50,48,54,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,48,55,48,32,103,50,48,56,50,41,0,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,9),40,103,50,49,48,52,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,105,109,112,115,32,115,32,105,100,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,9),40,103,50,49,48,57,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,105,109,112,118,32,118,32,105,100,115,41,0,0,0,0,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,60),40,97,56,56,56,49,32,110,97,109,101,50,48,49,49,32,108,105,98,50,48,49,51,32,115,112,101,99,50,48,49,53,32,105,109,112,118,50,48,49,55,32,105,109,112,115,50,48,49,57,32,105,109,112,105,50,48,50,49,41,0,0,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,7),40,97,57,49,50,49,41,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,12),40,114,101,110,97,109,101,32,105,109,112,41,0,0,0,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,55,53,32,103,50,49,56,55,41,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,52,57,32,103,50,49,54,49,41,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,60),40,97,57,49,51,49,32,110,97,109,101,50,49,49,54,32,108,105,98,50,49,49,56,32,115,112,101,99,50,49,50,48,32,105,109,112,118,50,49,50,50,32,105,109,112,115,50,49,50,52,32,105,109,112,105,50,49,50,54,41,0,0,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,120,41}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,9),40,97,56,52,52,55,32,107,41,0,0,0,0,0,0,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,100,101,99,111,109,112,111,115,101,45,105,109,112,111,114,116,32,120,32,114,32,99,32,108,111,99,41,0,0,0,0,0,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,7),40,97,57,50,56,54,41,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,49),40,97,57,50,57,50,32,110,97,109,101,50,50,50,55,32,95,50,50,50,57,32,115,112,101,99,50,50,51,49,32,118,50,50,51,51,32,115,50,50,51,53,32,105,50,50,51,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,9),40,103,50,50,49,55,32,120,41,0,0,0,0,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,50,49,54,32,103,50,50,50,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,65),40,35,35,115,121,115,35,101,120,112,97,110,100,45,105,109,112,111,114,116,32,120,32,114,32,99,32,105,109,112,111,114,116,45,101,110,118,32,109,97,99,114,111,45,101,110,118,32,109,101,116,97,63,32,114,101,101,120,112,63,32,108,111,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,11),40,103,50,50,55,56,32,105,109,112,41,0,0,0,0,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,11),40,103,50,50,56,56,32,105,109,112,41,0,0,0,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,53,54,32,103,50,51,54,56,41,0,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,51,48,32,103,50,51,52,50,41,0,0,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,49,48,32,103,50,52,50,50,41,0,0,0,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,56,52,32,103,50,51,57,54,41,0,0,0,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,50,56,55,32,103,50,50,57,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,50,55,55,32,103,50,50,56,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,69),40,35,35,115,121,115,35,105,109,112,111,114,116,32,115,112,101,99,32,118,115,118,32,118,115,115,32,118,115,105,32,105,109,112,111,114,116,45,101,110,118,32,109,97,99,114,111,45,101,110,118,32,109,101,116,97,63,32,114,101,101,120,112,63,32,108,111,99,41,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,26),40,109,111,100,117,108,101,45,114,101,110,97,109,101,32,115,121,109,32,112,114,101,102,105,120,41,0,0,0,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,9),40,103,49,48,57,48,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,11),40,103,50,52,54,55,32,109,111,100,41,0,0,0,0,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,13),40,109,114,101,110,97,109,101,32,115,121,109,41,0,0,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,9),40,103,50,52,55,56,32,97,41,0,0,0,0,0,0,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,97,108,105,97,115,45,103,108,111,98,97,108,45,104,111,111,107,32,115,121,109,32,97,115,115,105,103,110,32,119,104,101,114,101,41,0,0,0,0,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,10),40,101,114,114,32,97,114,103,115,41,0,0,0,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,12),40,105,102,97,99,101,32,110,97,109,101,41,0,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,50,32,108,115,116,41,0,0,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,120,112,115,41,0,0,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,118,97,108,105,100,97,116,101,45,101,120,112,111,114,116,115,32,101,120,112,115,32,108,111,99,41,0,0,0,0,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,46),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,102,117,110,99,116,111,114,32,110,97,109,101,32,102,97,114,103,115,32,102,101,120,112,115,32,98,111,100,121,41,0,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,10),40,101,114,114,32,97,114,103,115,41,0,0,0,0,0,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,53,53,54,32,103,50,53,54,56,41,0,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,6),40,109,101,114,114,41,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,50,32,102,97,115,41,0,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,97,115,32,102,97,115,41,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,105,110,115,116,97,110,116,105,97,116,101,45,102,117,110,99,116,111,114,32,110,97,109,101,32,102,110,97,109,101,32,97,114,103,115,41,0,0,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,11),40,103,50,54,49,55,32,101,120,112,41,0,0,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,54,51,56,32,103,50,54,53,48,41,0,0,0,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,49,54,32,103,50,54,50,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,46),40,109,97,116,99,104,45,102,117,110,99,116,111,114,45,97,114,103,117,109,101,110,116,32,110,97,109,101,32,109,110,97,109,101,32,101,120,112,115,32,102,110,97,109,101,41,0,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,109,111,100,117,108,101,35,109,111,100,117,108,101,45,101,110,118,105,114,111,110,109,101,110,116,32,109,110,97,109,101,32,46,32,114,101,115,116,41}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,7),40,103,51,49,51,55,41,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,49,51,49,32,103,51,49,52,51,41,0,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,7),40,103,51,48,57,57,41,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,48,57,51,32,103,51,49,48,53,41,0,0,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,7),40,103,51,48,54,49,41,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,48,53,53,32,103,51,48,54,55,41,0,0,0,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,7),40,103,51,48,50,51,41,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,48,49,55,32,103,51,48,50,57,41,0,0,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,7),40,103,50,57,56,53,41,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,57,55,57,32,103,50,57,57,49,41,0,0,0,0}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,7),40,103,50,57,52,55,41,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,57,52,49,32,103,50,57,53,51,41,0,0,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,7),40,103,50,57,48,57,41,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,57,48,51,32,103,50,57,49,53,41,0,0,0,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,7),40,103,50,56,55,49,41,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,56,54,53,32,103,50,56,55,55,41,0,0,0,0}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,7),40,103,50,56,51,51,41,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,56,50,55,32,103,50,56,51,57,41,0,0,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,7),40,103,50,55,57,53,41,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,56,57,32,103,50,56,48,49,41,0,0,0,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,7),40,103,50,55,53,55,41,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,53,49,32,103,50,55,54,51,41,0,0,0,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,7),40,103,50,55,49,57,41,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,49,51,32,103,50,55,50,53,41,0,0,0,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,7),40,103,50,54,56,49,41,0}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,54,55,53,32,103,50,54,56,55,41,0,0,0,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f11852) static void C_ccall f11852(C_word c,C_word *av) C_noret; C_noret_decl(f_10002) static void C_fcall f_10002(C_word t0,C_word t1) C_noret; C_noret_decl(f_10009) static void C_ccall f_10009(C_word c,C_word *av) C_noret; C_noret_decl(f_10013) static void C_ccall f_10013(C_word c,C_word *av) C_noret; C_noret_decl(f_10039) static void C_fcall f_10039(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10053) static void C_ccall f_10053(C_word c,C_word *av) C_noret; C_noret_decl(f_10095) static void C_ccall f_10095(C_word c,C_word *av) C_noret; C_noret_decl(f_10111) static void C_ccall f_10111(C_word c,C_word *av) C_noret; C_noret_decl(f_10119) static void C_fcall f_10119(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10126) static void C_ccall f_10126(C_word c,C_word *av) C_noret; C_noret_decl(f_10136) static void C_fcall f_10136(C_word t0,C_word t1) C_noret; C_noret_decl(f_10158) static void C_ccall f_10158(C_word c,C_word *av) C_noret; C_noret_decl(f_10160) static void C_fcall f_10160(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10199) static void C_ccall f_10199(C_word c,C_word *av) C_noret; C_noret_decl(f_10220) static void C_fcall f_10220(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_10232) static void C_fcall f_10232(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10255) static void C_ccall f_10255(C_word c,C_word *av) C_noret; C_noret_decl(f_10258) static void C_ccall f_10258(C_word c,C_word *av) C_noret; C_noret_decl(f_10269) static void C_ccall f_10269(C_word c,C_word *av) C_noret; C_noret_decl(f_10275) static void C_ccall f_10275(C_word c,C_word *av) C_noret; C_noret_decl(f_10307) static void C_ccall f_10307(C_word c,C_word *av) C_noret; C_noret_decl(f_10310) static void C_ccall f_10310(C_word c,C_word *av) C_noret; C_noret_decl(f_10321) static void C_ccall f_10321(C_word c,C_word *av) C_noret; C_noret_decl(f_10337) static void C_fcall f_10337(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_10341) static void C_ccall f_10341(C_word c,C_word *av) C_noret; C_noret_decl(f_10348) static void C_fcall f_10348(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10361) static void C_fcall f_10361(C_word t0,C_word t1) C_noret; C_noret_decl(f_10388) static void C_ccall f_10388(C_word c,C_word *av) C_noret; C_noret_decl(f_10401) static void C_ccall f_10401(C_word c,C_word *av) C_noret; C_noret_decl(f_10405) static void C_ccall f_10405(C_word c,C_word *av) C_noret; C_noret_decl(f_10409) static void C_ccall f_10409(C_word c,C_word *av) C_noret; C_noret_decl(f_10413) static void C_ccall f_10413(C_word c,C_word *av) C_noret; C_noret_decl(f_10427) static void C_ccall f_10427(C_word c,C_word *av) C_noret; C_noret_decl(f_10433) static void C_ccall f_10433(C_word c,C_word *av) C_noret; C_noret_decl(f_10435) static void C_fcall f_10435(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10460) static void C_ccall f_10460(C_word c,C_word *av) C_noret; C_noret_decl(f_10469) static void C_fcall f_10469(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10479) static void C_ccall f_10479(C_word c,C_word *av) C_noret; C_noret_decl(f_10494) static void C_ccall f_10494(C_word c,C_word *av) C_noret; C_noret_decl(f_10497) static void C_ccall f_10497(C_word c,C_word *av) C_noret; C_noret_decl(f_10500) static void C_ccall f_10500(C_word c,C_word *av) C_noret; C_noret_decl(f_10503) static void C_ccall f_10503(C_word c,C_word *av) C_noret; C_noret_decl(f_10506) static void C_ccall f_10506(C_word c,C_word *av) C_noret; C_noret_decl(f_10509) static void C_ccall f_10509(C_word c,C_word *av) C_noret; C_noret_decl(f_10512) static void C_ccall f_10512(C_word c,C_word *av) C_noret; C_noret_decl(f_10515) static void C_ccall f_10515(C_word c,C_word *av) C_noret; C_noret_decl(f_10518) static void C_ccall f_10518(C_word c,C_word *av) C_noret; C_noret_decl(f_10521) static void C_ccall f_10521(C_word c,C_word *av) C_noret; C_noret_decl(f_10524) static void C_ccall f_10524(C_word c,C_word *av) C_noret; C_noret_decl(f_10527) static void C_ccall f_10527(C_word c,C_word *av) C_noret; C_noret_decl(f_10530) static void C_ccall f_10530(C_word c,C_word *av) C_noret; C_noret_decl(f_10533) static void C_ccall f_10533(C_word c,C_word *av) C_noret; C_noret_decl(f_10536) static void C_ccall f_10536(C_word c,C_word *av) C_noret; C_noret_decl(f_10539) static void C_ccall f_10539(C_word c,C_word *av) C_noret; C_noret_decl(f_10542) static void C_ccall f_10542(C_word c,C_word *av) C_noret; C_noret_decl(f_10545) static void C_ccall f_10545(C_word c,C_word *av) C_noret; C_noret_decl(f_10548) static void C_ccall f_10548(C_word c,C_word *av) C_noret; C_noret_decl(f_10551) static void C_ccall f_10551(C_word c,C_word *av) C_noret; C_noret_decl(f_10554) static void C_ccall f_10554(C_word c,C_word *av) C_noret; C_noret_decl(f_10557) static void C_ccall f_10557(C_word c,C_word *av) C_noret; C_noret_decl(f_10560) static void C_ccall f_10560(C_word c,C_word *av) C_noret; C_noret_decl(f_10563) static void C_ccall f_10563(C_word c,C_word *av) C_noret; C_noret_decl(f_10566) static void C_ccall f_10566(C_word c,C_word *av) C_noret; C_noret_decl(f_10569) static void C_ccall f_10569(C_word c,C_word *av) C_noret; C_noret_decl(f_10572) static void C_ccall f_10572(C_word c,C_word *av) C_noret; C_noret_decl(f_10575) static void C_ccall f_10575(C_word c,C_word *av) C_noret; C_noret_decl(f_10577) static void C_ccall f_10577(C_word c,C_word *av) C_noret; C_noret_decl(f_10584) static void C_ccall f_10584(C_word c,C_word *av) C_noret; C_noret_decl(f_10613) static void C_ccall f_10613(C_word c,C_word *av) C_noret; C_noret_decl(f_10616) static void C_ccall f_10616(C_word c,C_word *av) C_noret; C_noret_decl(f_10623) static C_word C_fcall f_10623(C_word t0,C_word t1); C_noret_decl(f_10635) static void C_fcall f_10635(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10670) static void C_ccall f_10670(C_word c,C_word *av) C_noret; C_noret_decl(f_10677) static C_word C_fcall f_10677(C_word t0,C_word t1); C_noret_decl(f_10689) static void C_fcall f_10689(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10724) static void C_ccall f_10724(C_word c,C_word *av) C_noret; C_noret_decl(f_10731) static C_word C_fcall f_10731(C_word t0,C_word t1); C_noret_decl(f_10743) static void C_fcall f_10743(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10778) static void C_ccall f_10778(C_word c,C_word *av) C_noret; C_noret_decl(f_10785) static C_word C_fcall f_10785(C_word t0,C_word t1); C_noret_decl(f_10797) static void C_fcall f_10797(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10832) static void C_ccall f_10832(C_word c,C_word *av) C_noret; C_noret_decl(f_10839) static C_word C_fcall f_10839(C_word t0,C_word t1); C_noret_decl(f_10851) static void C_fcall f_10851(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10886) static void C_ccall f_10886(C_word c,C_word *av) C_noret; C_noret_decl(f_10893) static C_word C_fcall f_10893(C_word t0,C_word t1); C_noret_decl(f_10905) static void C_fcall f_10905(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10940) static void C_ccall f_10940(C_word c,C_word *av) C_noret; C_noret_decl(f_10947) static C_word C_fcall f_10947(C_word t0,C_word t1); C_noret_decl(f_10959) static void C_fcall f_10959(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_10994) static void C_ccall f_10994(C_word c,C_word *av) C_noret; C_noret_decl(f_11001) static C_word C_fcall f_11001(C_word t0,C_word t1); C_noret_decl(f_11013) static void C_fcall f_11013(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11048) static void C_ccall f_11048(C_word c,C_word *av) C_noret; C_noret_decl(f_11055) static C_word C_fcall f_11055(C_word t0,C_word t1); C_noret_decl(f_11067) static void C_fcall f_11067(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11102) static void C_ccall f_11102(C_word c,C_word *av) C_noret; C_noret_decl(f_11109) static C_word C_fcall f_11109(C_word t0,C_word t1); C_noret_decl(f_11121) static void C_fcall f_11121(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11156) static void C_ccall f_11156(C_word c,C_word *av) C_noret; C_noret_decl(f_11163) static C_word C_fcall f_11163(C_word t0,C_word t1); C_noret_decl(f_11175) static void C_fcall f_11175(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11210) static void C_ccall f_11210(C_word c,C_word *av) C_noret; C_noret_decl(f_11217) static C_word C_fcall f_11217(C_word t0,C_word t1); C_noret_decl(f_11229) static void C_fcall f_11229(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11264) static void C_ccall f_11264(C_word c,C_word *av) C_noret; C_noret_decl(f_11271) static C_word C_fcall f_11271(C_word t0,C_word t1); C_noret_decl(f_11283) static void C_fcall f_11283(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_11318) static void C_ccall f_11318(C_word c,C_word *av) C_noret; C_noret_decl(f_11322) static void C_ccall f_11322(C_word c,C_word *av) C_noret; C_noret_decl(f_11326) static void C_ccall f_11326(C_word c,C_word *av) C_noret; C_noret_decl(f_3983) static void C_ccall f_3983(C_word c,C_word *av) C_noret; C_noret_decl(f_3986) static void C_ccall f_3986(C_word c,C_word *av) C_noret; C_noret_decl(f_3989) static void C_ccall f_3989(C_word c,C_word *av) C_noret; C_noret_decl(f_3992) static void C_ccall f_3992(C_word c,C_word *av) C_noret; C_noret_decl(f_4483) static void C_fcall f_4483(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4489) static void C_fcall f_4489(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4502) static void C_ccall f_4502(C_word c,C_word *av) C_noret; C_noret_decl(f_4516) static void C_ccall f_4516(C_word c,C_word *av) C_noret; C_noret_decl(f_5274) static void C_ccall f_5274(C_word c,C_word *av) C_noret; C_noret_decl(f_5278) static void C_ccall f_5278(C_word c,C_word *av) C_noret; C_noret_decl(f_5293) static void C_ccall f_5293(C_word c,C_word *av) C_noret; C_noret_decl(f_5383) static void C_ccall f_5383(C_word c,C_word *av) C_noret; C_noret_decl(f_5392) static void C_ccall f_5392(C_word c,C_word *av) C_noret; C_noret_decl(f_5528) static void C_ccall f_5528(C_word c,C_word *av) C_noret; C_noret_decl(f_5552) static void C_ccall f_5552(C_word c,C_word *av) C_noret; C_noret_decl(f_5568) static void C_ccall f_5568(C_word c,C_word *av) C_noret; C_noret_decl(f_5570) static void C_ccall f_5570(C_word c,C_word *av) C_noret; C_noret_decl(f_5574) static void C_ccall f_5574(C_word c,C_word *av) C_noret; C_noret_decl(f_5579) static void C_ccall f_5579(C_word c,C_word *av) C_noret; C_noret_decl(f_5583) static void C_ccall f_5583(C_word c,C_word *av) C_noret; C_noret_decl(f_5587) static void C_ccall f_5587(C_word c,C_word *av) C_noret; C_noret_decl(f_5590) static void C_ccall f_5590(C_word c,C_word *av) C_noret; C_noret_decl(f_5596) static void C_ccall f_5596(C_word c,C_word *av) C_noret; C_noret_decl(f_5602) static void C_ccall f_5602(C_word c,C_word *av) C_noret; C_noret_decl(f_5606) static void C_ccall f_5606(C_word c,C_word *av) C_noret; C_noret_decl(f_5609) static void C_ccall f_5609(C_word c,C_word *av) C_noret; C_noret_decl(f_5633) static void C_ccall f_5633(C_word c,C_word *av) C_noret; C_noret_decl(f_5637) static void C_ccall f_5637(C_word c,C_word *av) C_noret; C_noret_decl(f_5639) static void C_fcall f_5639(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5673) static void C_ccall f_5673(C_word c,C_word *av) C_noret; C_noret_decl(f_5681) static void C_ccall f_5681(C_word c,C_word *av) C_noret; C_noret_decl(f_5683) static void C_fcall f_5683(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5691) static void C_fcall f_5691(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5718) static void C_ccall f_5718(C_word c,C_word *av) C_noret; C_noret_decl(f_5720) static void C_ccall f_5720(C_word c,C_word *av) C_noret; C_noret_decl(f_5774) static void C_ccall f_5774(C_word c,C_word *av) C_noret; C_noret_decl(f_5781) static void C_ccall f_5781(C_word c,C_word *av) C_noret; C_noret_decl(f_5784) static void C_ccall f_5784(C_word c,C_word *av) C_noret; C_noret_decl(f_5787) static void C_fcall f_5787(C_word t0,C_word t1) C_noret; C_noret_decl(f_5790) static void C_ccall f_5790(C_word c,C_word *av) C_noret; C_noret_decl(f_5796) static void C_ccall f_5796(C_word c,C_word *av) C_noret; C_noret_decl(f_5809) static void C_fcall f_5809(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5821) static void C_ccall f_5821(C_word c,C_word *av) C_noret; C_noret_decl(f_5825) static void C_ccall f_5825(C_word c,C_word *av) C_noret; C_noret_decl(f_5827) static void C_ccall f_5827(C_word c,C_word *av) C_noret; C_noret_decl(f_5843) static void C_ccall f_5843(C_word c,C_word *av) C_noret; C_noret_decl(f_5844) static C_word C_fcall f_5844(C_word *a,C_word t0,C_word t1); C_noret_decl(f_5852) static C_word C_fcall f_5852(C_word *a,C_word t0,C_word t1); C_noret_decl(f_5866) static void C_ccall f_5866(C_word c,C_word *av) C_noret; C_noret_decl(f_5869) static void C_ccall f_5869(C_word c,C_word *av) C_noret; C_noret_decl(f_5876) static void C_ccall f_5876(C_word c,C_word *av) C_noret; C_noret_decl(f_5880) static void C_ccall f_5880(C_word c,C_word *av) C_noret; C_noret_decl(f_5886) static void C_fcall f_5886(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5914) static void C_ccall f_5914(C_word c,C_word *av) C_noret; C_noret_decl(f_5916) static void C_ccall f_5916(C_word c,C_word *av) C_noret; C_noret_decl(f_5919) static void C_ccall f_5919(C_word c,C_word *av) C_noret; C_noret_decl(f_5923) static void C_ccall f_5923(C_word c,C_word *av) C_noret; C_noret_decl(f_5939) static void C_fcall f_5939(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5946) static void C_ccall f_5946(C_word c,C_word *av) C_noret; C_noret_decl(f_5960) static void C_ccall f_5960(C_word c,C_word *av) C_noret; C_noret_decl(f_5970) static void C_ccall f_5970(C_word c,C_word *av) C_noret; C_noret_decl(f_5973) static void C_ccall f_5973(C_word c,C_word *av) C_noret; C_noret_decl(f_5976) static void C_ccall f_5976(C_word c,C_word *av) C_noret; C_noret_decl(f_5982) static void C_ccall f_5982(C_word c,C_word *av) C_noret; C_noret_decl(f_5985) static void C_ccall f_5985(C_word c,C_word *av) C_noret; C_noret_decl(f_5988) static void C_ccall f_5988(C_word c,C_word *av) C_noret; C_noret_decl(f_6021) static void C_ccall f_6021(C_word c,C_word *av) C_noret; C_noret_decl(f_6025) static void C_ccall f_6025(C_word c,C_word *av) C_noret; C_noret_decl(f_6032) static void C_ccall f_6032(C_word c,C_word *av) C_noret; C_noret_decl(f_6036) static void C_ccall f_6036(C_word c,C_word *av) C_noret; C_noret_decl(f_6049) static void C_ccall f_6049(C_word c,C_word *av) C_noret; C_noret_decl(f_6059) static void C_ccall f_6059(C_word c,C_word *av) C_noret; C_noret_decl(f_6062) static void C_ccall f_6062(C_word c,C_word *av) C_noret; C_noret_decl(f_6068) static void C_ccall f_6068(C_word c,C_word *av) C_noret; C_noret_decl(f_6071) static void C_ccall f_6071(C_word c,C_word *av) C_noret; C_noret_decl(f_6077) static void C_ccall f_6077(C_word c,C_word *av) C_noret; C_noret_decl(f_6111) static void C_ccall f_6111(C_word c,C_word *av) C_noret; C_noret_decl(f_6115) static void C_ccall f_6115(C_word c,C_word *av) C_noret; C_noret_decl(f_6130) static void C_ccall f_6130(C_word c,C_word *av) C_noret; C_noret_decl(f_6141) static void C_ccall f_6141(C_word c,C_word *av) C_noret; C_noret_decl(f_6147) static void C_ccall f_6147(C_word c,C_word *av) C_noret; C_noret_decl(f_6164) static void C_ccall f_6164(C_word c,C_word *av) C_noret; C_noret_decl(f_6171) static void C_fcall f_6171(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6178) static void C_fcall f_6178(C_word t0,C_word t1) C_noret; C_noret_decl(f_6223) static void C_ccall f_6223(C_word c,C_word *av) C_noret; C_noret_decl(f_6329) static void C_fcall f_6329(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6337) static void C_ccall f_6337(C_word c,C_word *av) C_noret; C_noret_decl(f_6341) static void C_ccall f_6341(C_word c,C_word *av) C_noret; C_noret_decl(f_6352) static void C_fcall f_6352(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6379) static void C_fcall f_6379(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6402) static void C_ccall f_6402(C_word c,C_word *av) C_noret; C_noret_decl(f_6416) static void C_fcall f_6416(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6424) static void C_fcall f_6424(C_word t0,C_word t1) C_noret; C_noret_decl(f_6428) static void C_ccall f_6428(C_word c,C_word *av) C_noret; C_noret_decl(f_6441) static void C_ccall f_6441(C_word c,C_word *av) C_noret; C_noret_decl(f_6456) static void C_fcall f_6456(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6474) static void C_ccall f_6474(C_word c,C_word *av) C_noret; C_noret_decl(f_6485) static void C_ccall f_6485(C_word c,C_word *av) C_noret; C_noret_decl(f_6504) static void C_ccall f_6504(C_word c,C_word *av) C_noret; C_noret_decl(f_6517) static void C_ccall f_6517(C_word c,C_word *av) C_noret; C_noret_decl(f_6527) static void C_ccall f_6527(C_word c,C_word *av) C_noret; C_noret_decl(f_6533) static void C_fcall f_6533(C_word t0,C_word t1) C_noret; C_noret_decl(f_6537) static void C_ccall f_6537(C_word c,C_word *av) C_noret; C_noret_decl(f_6540) static void C_ccall f_6540(C_word c,C_word *av) C_noret; C_noret_decl(f_6551) static void C_fcall f_6551(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6567) static void C_fcall f_6567(C_word t0,C_word t1) C_noret; C_noret_decl(f_6579) static void C_fcall f_6579(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6593) static void C_ccall f_6593(C_word c,C_word *av) C_noret; C_noret_decl(f_6598) static void C_fcall f_6598(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6608) static void C_ccall f_6608(C_word c,C_word *av) C_noret; C_noret_decl(f_6626) static void C_fcall f_6626(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6648) static void C_ccall f_6648(C_word c,C_word *av) C_noret; C_noret_decl(f_6656) static void C_ccall f_6656(C_word c,C_word *av) C_noret; C_noret_decl(f_6686) static void C_ccall f_6686(C_word c,C_word *av) C_noret; C_noret_decl(f_6709) static void C_fcall f_6709(C_word t0,C_word t1) C_noret; C_noret_decl(f_6713) static void C_ccall f_6713(C_word c,C_word *av) C_noret; C_noret_decl(f_6717) static void C_fcall f_6717(C_word t0,C_word t1) C_noret; C_noret_decl(f_6721) static void C_ccall f_6721(C_word c,C_word *av) C_noret; C_noret_decl(f_6725) static void C_ccall f_6725(C_word c,C_word *av) C_noret; C_noret_decl(f_6757) static void C_fcall f_6757(C_word t0,C_word t1) C_noret; C_noret_decl(f_6761) static void C_ccall f_6761(C_word c,C_word *av) C_noret; C_noret_decl(f_6773) static void C_fcall f_6773(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6805) static void C_ccall f_6805(C_word c,C_word *av) C_noret; C_noret_decl(f_6815) static void C_ccall f_6815(C_word c,C_word *av) C_noret; C_noret_decl(f_6830) static void C_fcall f_6830(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6854) static void C_ccall f_6854(C_word c,C_word *av) C_noret; C_noret_decl(f_6870) static void C_ccall f_6870(C_word c,C_word *av) C_noret; C_noret_decl(f_6872) static void C_fcall f_6872(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6897) static void C_ccall f_6897(C_word c,C_word *av) C_noret; C_noret_decl(f_6959) static void C_ccall f_6959(C_word c,C_word *av) C_noret; C_noret_decl(f_6961) static void C_fcall f_6961(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6986) static void C_fcall f_6986(C_word t0,C_word t1) C_noret; C_noret_decl(f_7016) static void C_ccall f_7016(C_word c,C_word *av) C_noret; C_noret_decl(f_7037) static void C_ccall f_7037(C_word c,C_word *av) C_noret; C_noret_decl(f_7065) static void C_ccall f_7065(C_word c,C_word *av) C_noret; C_noret_decl(f_7073) static void C_ccall f_7073(C_word c,C_word *av) C_noret; C_noret_decl(f_7103) static void C_ccall f_7103(C_word c,C_word *av) C_noret; C_noret_decl(f_7128) static void C_ccall f_7128(C_word c,C_word *av) C_noret; C_noret_decl(f_7138) static void C_ccall f_7138(C_word c,C_word *av) C_noret; C_noret_decl(f_7154) static void C_ccall f_7154(C_word c,C_word *av) C_noret; C_noret_decl(f_7164) static void C_ccall f_7164(C_word c,C_word *av) C_noret; C_noret_decl(f_7170) static void C_ccall f_7170(C_word c,C_word *av) C_noret; C_noret_decl(f_7171) static void C_fcall f_7171(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7183) static void C_ccall f_7183(C_word c,C_word *av) C_noret; C_noret_decl(f_7196) static void C_ccall f_7196(C_word c,C_word *av) C_noret; C_noret_decl(f_7197) static void C_fcall f_7197(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7209) static void C_ccall f_7209(C_word c,C_word *av) C_noret; C_noret_decl(f_7222) static void C_ccall f_7222(C_word c,C_word *av) C_noret; C_noret_decl(f_7225) static void C_ccall f_7225(C_word c,C_word *av) C_noret; C_noret_decl(f_7241) static void C_ccall f_7241(C_word c,C_word *av) C_noret; C_noret_decl(f_7245) static void C_ccall f_7245(C_word c,C_word *av) C_noret; C_noret_decl(f_7249) static void C_ccall f_7249(C_word c,C_word *av) C_noret; C_noret_decl(f_7251) static void C_fcall f_7251(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7261) static void C_ccall f_7261(C_word c,C_word *av) C_noret; C_noret_decl(f_7274) static void C_fcall f_7274(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7284) static void C_ccall f_7284(C_word c,C_word *av) C_noret; C_noret_decl(f_7301) static void C_fcall f_7301(C_word t0,C_word t1) C_noret; C_noret_decl(f_7308) static void C_ccall f_7308(C_word c,C_word *av) C_noret; C_noret_decl(f_7312) static void C_ccall f_7312(C_word c,C_word *av) C_noret; C_noret_decl(f_7325) static void C_fcall f_7325(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7350) static void C_ccall f_7350(C_word c,C_word *av) C_noret; C_noret_decl(f_7359) static void C_fcall f_7359(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7384) static void C_ccall f_7384(C_word c,C_word *av) C_noret; C_noret_decl(f_7399) static void C_ccall f_7399(C_word c,C_word *av) C_noret; C_noret_decl(f_7406) static void C_ccall f_7406(C_word c,C_word *av) C_noret; C_noret_decl(f_7412) static void C_ccall f_7412(C_word c,C_word *av) C_noret; C_noret_decl(f_7428) static void C_ccall f_7428(C_word c,C_word *av) C_noret; C_noret_decl(f_7432) static void C_ccall f_7432(C_word c,C_word *av) C_noret; C_noret_decl(f_7436) static void C_ccall f_7436(C_word c,C_word *av) C_noret; C_noret_decl(f_7449) static void C_fcall f_7449(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7471) static void C_ccall f_7471(C_word c,C_word *av) C_noret; C_noret_decl(f_7473) static void C_fcall f_7473(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7498) static void C_ccall f_7498(C_word c,C_word *av) C_noret; C_noret_decl(f_7513) static void C_ccall f_7513(C_word c,C_word *av) C_noret; C_noret_decl(f_7528) static void C_fcall f_7528(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7539) static void C_fcall f_7539(C_word t0,C_word t1) C_noret; C_noret_decl(f_7541) static void C_fcall f_7541(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7569) static void C_fcall f_7569(C_word t0,C_word t1) C_noret; C_noret_decl(f_7606) static void C_ccall f_7606(C_word c,C_word *av) C_noret; C_noret_decl(f_7635) static void C_ccall f_7635(C_word c,C_word *av) C_noret; C_noret_decl(f_7644) static void C_ccall f_7644(C_word c,C_word *av) C_noret; C_noret_decl(f_7647) static void C_ccall f_7647(C_word c,C_word *av) C_noret; C_noret_decl(f_7650) static void C_ccall f_7650(C_word c,C_word *av) C_noret; C_noret_decl(f_7651) static void C_fcall f_7651(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7665) static void C_ccall f_7665(C_word c,C_word *av) C_noret; C_noret_decl(f_7669) static void C_ccall f_7669(C_word c,C_word *av) C_noret; C_noret_decl(f_7672) static void C_ccall f_7672(C_word c,C_word *av) C_noret; C_noret_decl(f_7675) static void C_ccall f_7675(C_word c,C_word *av) C_noret; C_noret_decl(f_7678) static void C_ccall f_7678(C_word c,C_word *av) C_noret; C_noret_decl(f_7686) static void C_ccall f_7686(C_word c,C_word *av) C_noret; C_noret_decl(f_7693) static void C_ccall f_7693(C_word c,C_word *av) C_noret; C_noret_decl(f_7702) static void C_ccall f_7702(C_word c,C_word *av) C_noret; C_noret_decl(f_7705) static void C_ccall f_7705(C_word c,C_word *av) C_noret; C_noret_decl(f_7712) static void C_ccall f_7712(C_word c,C_word *av) C_noret; C_noret_decl(f_7715) static void C_ccall f_7715(C_word c,C_word *av) C_noret; C_noret_decl(f_7716) static void C_fcall f_7716(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7720) static void C_ccall f_7720(C_word c,C_word *av) C_noret; C_noret_decl(f_7723) static void C_ccall f_7723(C_word c,C_word *av) C_noret; C_noret_decl(f_7735) static void C_fcall f_7735(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7745) static void C_ccall f_7745(C_word c,C_word *av) C_noret; C_noret_decl(f_7767) static void C_ccall f_7767(C_word c,C_word *av) C_noret; C_noret_decl(f_7768) static void C_fcall f_7768(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7772) static void C_ccall f_7772(C_word c,C_word *av) C_noret; C_noret_decl(f_7780) static void C_fcall f_7780(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7790) static void C_ccall f_7790(C_word c,C_word *av) C_noret; C_noret_decl(f_7804) static void C_ccall f_7804(C_word c,C_word *av) C_noret; C_noret_decl(f_7810) static void C_ccall f_7810(C_word c,C_word *av) C_noret; C_noret_decl(f_7813) static void C_ccall f_7813(C_word c,C_word *av) C_noret; C_noret_decl(f_7841) static void C_ccall f_7841(C_word c,C_word *av) C_noret; C_noret_decl(f_7848) static void C_ccall f_7848(C_word c,C_word *av) C_noret; C_noret_decl(f_7854) static void C_ccall f_7854(C_word c,C_word *av) C_noret; C_noret_decl(f_7857) static void C_ccall f_7857(C_word c,C_word *av) C_noret; C_noret_decl(f_7858) static void C_fcall f_7858(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7862) static void C_ccall f_7862(C_word c,C_word *av) C_noret; C_noret_decl(f_7880) static void C_ccall f_7880(C_word c,C_word *av) C_noret; C_noret_decl(f_7886) static void C_ccall f_7886(C_word c,C_word *av) C_noret; C_noret_decl(f_7889) static void C_ccall f_7889(C_word c,C_word *av) C_noret; C_noret_decl(f_7892) static void C_ccall f_7892(C_word c,C_word *av) C_noret; C_noret_decl(f_7903) static void C_ccall f_7903(C_word c,C_word *av) C_noret; C_noret_decl(f_7907) static void C_ccall f_7907(C_word c,C_word *av) C_noret; C_noret_decl(f_7911) static void C_ccall f_7911(C_word c,C_word *av) C_noret; C_noret_decl(f_7915) static void C_ccall f_7915(C_word c,C_word *av) C_noret; C_noret_decl(f_7921) static void C_fcall f_7921(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7931) static void C_ccall f_7931(C_word c,C_word *av) C_noret; C_noret_decl(f_7946) static void C_ccall f_7946(C_word c,C_word *av) C_noret; C_noret_decl(f_7950) static void C_ccall f_7950(C_word c,C_word *av) C_noret; C_noret_decl(f_7952) static void C_fcall f_7952(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7977) static void C_ccall f_7977(C_word c,C_word *av) C_noret; C_noret_decl(f_7989) static void C_fcall f_7989(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7999) static void C_ccall f_7999(C_word c,C_word *av) C_noret; C_noret_decl(f_8016) static void C_fcall f_8016(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8047) static void C_fcall f_8047(C_word t0,C_word t1) C_noret; C_noret_decl(f_8051) static void C_ccall f_8051(C_word c,C_word *av) C_noret; C_noret_decl(f_8060) static void C_ccall f_8060(C_word c,C_word *av) C_noret; C_noret_decl(f_8063) static void C_fcall f_8063(C_word t0,C_word t1) C_noret; C_noret_decl(f_8075) static void C_fcall f_8075(C_word t0,C_word t1) C_noret; C_noret_decl(f_8091) static void C_ccall f_8091(C_word c,C_word *av) C_noret; C_noret_decl(f_8095) static void C_ccall f_8095(C_word c,C_word *av) C_noret; C_noret_decl(f_8099) static void C_ccall f_8099(C_word c,C_word *av) C_noret; C_noret_decl(f_8113) static void C_ccall f_8113(C_word c,C_word *av) C_noret; C_noret_decl(f_8146) static void C_ccall f_8146(C_word c,C_word *av) C_noret; C_noret_decl(f_8148) static void C_fcall f_8148(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8161) static void C_ccall f_8161(C_word c,C_word *av) C_noret; C_noret_decl(f_8170) static void C_ccall f_8170(C_word c,C_word *av) C_noret; C_noret_decl(f_8183) static void C_fcall f_8183(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8208) static void C_ccall f_8208(C_word c,C_word *av) C_noret; C_noret_decl(f_8218) static void C_ccall f_8218(C_word c,C_word *av) C_noret; C_noret_decl(f_8222) static void C_ccall f_8222(C_word c,C_word *av) C_noret; C_noret_decl(f_8228) static void C_ccall f_8228(C_word c,C_word *av) C_noret; C_noret_decl(f_8231) static void C_ccall f_8231(C_word c,C_word *av) C_noret; C_noret_decl(f_8236) static void C_ccall f_8236(C_word c,C_word *av) C_noret; C_noret_decl(f_8240) static void C_ccall f_8240(C_word c,C_word *av) C_noret; C_noret_decl(f_8243) static void C_ccall f_8243(C_word c,C_word *av) C_noret; C_noret_decl(f_8246) static void C_ccall f_8246(C_word c,C_word *av) C_noret; C_noret_decl(f_8249) static void C_ccall f_8249(C_word c,C_word *av) C_noret; C_noret_decl(f_8253) static void C_ccall f_8253(C_word c,C_word *av) C_noret; C_noret_decl(f_8257) static void C_ccall f_8257(C_word c,C_word *av) C_noret; C_noret_decl(f_8261) static void C_ccall f_8261(C_word c,C_word *av) C_noret; C_noret_decl(f_8265) static void C_ccall f_8265(C_word c,C_word *av) C_noret; C_noret_decl(f_8268) static void C_ccall f_8268(C_word c,C_word *av) C_noret; C_noret_decl(f_8271) static void C_ccall f_8271(C_word c,C_word *av) C_noret; C_noret_decl(f_8274) static void C_ccall f_8274(C_word c,C_word *av) C_noret; C_noret_decl(f_8277) static void C_ccall f_8277(C_word c,C_word *av) C_noret; C_noret_decl(f_8292) static void C_ccall f_8292(C_word c,C_word *av) C_noret; C_noret_decl(f_8298) static void C_ccall f_8298(C_word c,C_word *av) C_noret; C_noret_decl(f_8303) static void C_ccall f_8303(C_word c,C_word *av) C_noret; C_noret_decl(f_8307) static void C_ccall f_8307(C_word c,C_word *av) C_noret; C_noret_decl(f_8312) static void C_ccall f_8312(C_word c,C_word *av) C_noret; C_noret_decl(f_8317) static void C_ccall f_8317(C_word c,C_word *av) C_noret; C_noret_decl(f_8321) static void C_ccall f_8321(C_word c,C_word *av) C_noret; C_noret_decl(f_8324) static void C_ccall f_8324(C_word c,C_word *av) C_noret; C_noret_decl(f_8327) static void C_ccall f_8327(C_word c,C_word *av) C_noret; C_noret_decl(f_8330) static void C_ccall f_8330(C_word c,C_word *av) C_noret; C_noret_decl(f_8333) static void C_ccall f_8333(C_word c,C_word *av) C_noret; C_noret_decl(f_8336) static void C_ccall f_8336(C_word c,C_word *av) C_noret; C_noret_decl(f_8339) static void C_ccall f_8339(C_word c,C_word *av) C_noret; C_noret_decl(f_8342) static void C_ccall f_8342(C_word c,C_word *av) C_noret; C_noret_decl(f_8350) static void C_ccall f_8350(C_word c,C_word *av) C_noret; C_noret_decl(f_8354) static void C_ccall f_8354(C_word c,C_word *av) C_noret; C_noret_decl(f_8357) static void C_fcall f_8357(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8361) static void C_ccall f_8361(C_word c,C_word *av) C_noret; C_noret_decl(f_8364) static void C_ccall f_8364(C_word c,C_word *av) C_noret; C_noret_decl(f_8372) static void C_ccall f_8372(C_word c,C_word *av) C_noret; C_noret_decl(f_8376) static void C_ccall f_8376(C_word c,C_word *av) C_noret; C_noret_decl(f_8379) static void C_ccall f_8379(C_word c,C_word *av) C_noret; C_noret_decl(f_8382) static void C_ccall f_8382(C_word c,C_word *av) C_noret; C_noret_decl(f_8385) static void C_ccall f_8385(C_word c,C_word *av) C_noret; C_noret_decl(f_8387) static void C_fcall f_8387(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8395) static void C_ccall f_8395(C_word c,C_word *av) C_noret; C_noret_decl(f_8399) static void C_ccall f_8399(C_word c,C_word *av) C_noret; C_noret_decl(f_8401) static void C_fcall f_8401(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8414) static void C_ccall f_8414(C_word c,C_word *av) C_noret; C_noret_decl(f_8421) static void C_ccall f_8421(C_word c,C_word *av) C_noret; C_noret_decl(f_8448) static void C_ccall f_8448(C_word c,C_word *av) C_noret; C_noret_decl(f_8451) static void C_fcall f_8451(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8455) static void C_ccall f_8455(C_word c,C_word *av) C_noret; C_noret_decl(f_8458) static void C_ccall f_8458(C_word c,C_word *av) C_noret; C_noret_decl(f_8499) static void C_fcall f_8499(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8513) static void C_ccall f_8513(C_word c,C_word *av) C_noret; C_noret_decl(f_8531) static void C_ccall f_8531(C_word c,C_word *av) C_noret; C_noret_decl(f_8534) static void C_ccall f_8534(C_word c,C_word *av) C_noret; C_noret_decl(f_8539) static void C_ccall f_8539(C_word c,C_word *av) C_noret; C_noret_decl(f_8549) static void C_ccall f_8549(C_word c,C_word *av) C_noret; C_noret_decl(f_8553) static void C_ccall f_8553(C_word c,C_word *av) C_noret; C_noret_decl(f_8558) static void C_fcall f_8558(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_8566) static void C_fcall f_8566(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8576) static void C_ccall f_8576(C_word c,C_word *av) C_noret; C_noret_decl(f_8589) static void C_fcall f_8589(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8599) static void C_ccall f_8599(C_word c,C_word *av) C_noret; C_noret_decl(f_8617) static void C_fcall f_8617(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8639) static void C_fcall f_8639(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8681) static void C_ccall f_8681(C_word c,C_word *av) C_noret; C_noret_decl(f_8684) static void C_ccall f_8684(C_word c,C_word *av) C_noret; C_noret_decl(f_8689) static void C_ccall f_8689(C_word c,C_word *av) C_noret; C_noret_decl(f_8699) static void C_ccall f_8699(C_word c,C_word *av) C_noret; C_noret_decl(f_8703) static void C_ccall f_8703(C_word c,C_word *av) C_noret; C_noret_decl(f_8708) static void C_fcall f_8708(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8720) static void C_fcall f_8720(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8728) static void C_fcall f_8728(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8738) static void C_ccall f_8738(C_word c,C_word *av) C_noret; C_noret_decl(f_8751) static void C_fcall f_8751(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8761) static void C_ccall f_8761(C_word c,C_word *av) C_noret; C_noret_decl(f_8779) static void C_fcall f_8779(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8791) static void C_ccall f_8791(C_word c,C_word *av) C_noret; C_noret_decl(f_8820) static void C_fcall f_8820(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8832) static void C_ccall f_8832(C_word c,C_word *av) C_noret; C_noret_decl(f_8864) static void C_ccall f_8864(C_word c,C_word *av) C_noret; C_noret_decl(f_8867) static void C_ccall f_8867(C_word c,C_word *av) C_noret; C_noret_decl(f_8872) static void C_ccall f_8872(C_word c,C_word *av) C_noret; C_noret_decl(f_8882) static void C_ccall f_8882(C_word c,C_word *av) C_noret; C_noret_decl(f_8886) static void C_ccall f_8886(C_word c,C_word *av) C_noret; C_noret_decl(f_8891) static void C_fcall f_8891(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8903) static void C_fcall f_8903(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_8911) static void C_fcall f_8911(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8924) static void C_ccall f_8924(C_word c,C_word *av) C_noret; C_noret_decl(f_8930) static void C_ccall f_8930(C_word c,C_word *av) C_noret; C_noret_decl(f_8943) static void C_fcall f_8943(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8953) static void C_ccall f_8953(C_word c,C_word *av) C_noret; C_noret_decl(f_8966) static void C_fcall f_8966(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9005) static void C_fcall f_9005(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9021) static void C_ccall f_9021(C_word c,C_word *av) C_noret; C_noret_decl(f_9058) static void C_fcall f_9058(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9074) static void C_ccall f_9074(C_word c,C_word *av) C_noret; C_noret_decl(f_9114) static void C_ccall f_9114(C_word c,C_word *av) C_noret; C_noret_decl(f_9117) static void C_ccall f_9117(C_word c,C_word *av) C_noret; C_noret_decl(f_9122) static void C_ccall f_9122(C_word c,C_word *av) C_noret; C_noret_decl(f_9132) static void C_ccall f_9132(C_word c,C_word *av) C_noret; C_noret_decl(f_9136) static void C_ccall f_9136(C_word c,C_word *av) C_noret; C_noret_decl(f_9138) static void C_ccall f_9138(C_word c,C_word *av) C_noret; C_noret_decl(f_9146) static void C_ccall f_9146(C_word c,C_word *av) C_noret; C_noret_decl(f_9152) static void C_ccall f_9152(C_word c,C_word *av) C_noret; C_noret_decl(f_9156) static void C_ccall f_9156(C_word c,C_word *av) C_noret; C_noret_decl(f_9160) static void C_ccall f_9160(C_word c,C_word *av) C_noret; C_noret_decl(f_9181) static void C_ccall f_9181(C_word c,C_word *av) C_noret; C_noret_decl(f_9191) static void C_ccall f_9191(C_word c,C_word *av) C_noret; C_noret_decl(f_9193) static void C_fcall f_9193(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9218) static void C_ccall f_9218(C_word c,C_word *av) C_noret; C_noret_decl(f_9227) static void C_fcall f_9227(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9252) static void C_ccall f_9252(C_word c,C_word *av) C_noret; C_noret_decl(f_9270) static void C_ccall f_9270(C_word c,C_word *av) C_noret; C_noret_decl(f_9276) static void C_ccall f_9276(C_word c,C_word *av) C_noret; C_noret_decl(f_9280) static void C_ccall f_9280(C_word c,C_word *av) C_noret; C_noret_decl(f_9281) static void C_fcall f_9281(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9287) static void C_ccall f_9287(C_word c,C_word *av) C_noret; C_noret_decl(f_9293) static void C_ccall f_9293(C_word c,C_word *av) C_noret; C_noret_decl(f_9315) static void C_ccall f_9315(C_word c,C_word *av) C_noret; C_noret_decl(f_9317) static void C_fcall f_9317(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9327) static void C_ccall f_9327(C_word c,C_word *av) C_noret; C_noret_decl(f_9340) static void C_ccall f_9340(C_word c,C_word *av) C_noret; C_noret_decl(f_9344) static void C_ccall f_9344(C_word c,C_word *av) C_noret; C_noret_decl(f_9347) static void C_ccall f_9347(C_word c,C_word *av) C_noret; C_noret_decl(f_9357) static void C_fcall f_9357(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9395) static void C_ccall f_9395(C_word c,C_word *av) C_noret; C_noret_decl(f_9401) static void C_ccall f_9401(C_word c,C_word *av) C_noret; C_noret_decl(f_9402) static void C_fcall f_9402(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9438) static void C_ccall f_9438(C_word c,C_word *av) C_noret; C_noret_decl(f_9444) static void C_ccall f_9444(C_word c,C_word *av) C_noret; C_noret_decl(f_9447) static void C_fcall f_9447(C_word t0,C_word t1) C_noret; C_noret_decl(f_9450) static void C_ccall f_9450(C_word c,C_word *av) C_noret; C_noret_decl(f_9457) static void C_ccall f_9457(C_word c,C_word *av) C_noret; C_noret_decl(f_9461) static void C_ccall f_9461(C_word c,C_word *av) C_noret; C_noret_decl(f_9465) static void C_ccall f_9465(C_word c,C_word *av) C_noret; C_noret_decl(f_9469) static void C_ccall f_9469(C_word c,C_word *av) C_noret; C_noret_decl(f_9472) static void C_ccall f_9472(C_word c,C_word *av) C_noret; C_noret_decl(f_9478) static void C_ccall f_9478(C_word c,C_word *av) C_noret; C_noret_decl(f_9481) static void C_ccall f_9481(C_word c,C_word *av) C_noret; C_noret_decl(f_9488) static void C_ccall f_9488(C_word c,C_word *av) C_noret; C_noret_decl(f_9498) static void C_ccall f_9498(C_word c,C_word *av) C_noret; C_noret_decl(f_9505) static void C_ccall f_9505(C_word c,C_word *av) C_noret; C_noret_decl(f_9516) static void C_ccall f_9516(C_word c,C_word *av) C_noret; C_noret_decl(f_9523) static void C_ccall f_9523(C_word c,C_word *av) C_noret; C_noret_decl(f_9525) static void C_fcall f_9525(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9559) static void C_fcall f_9559(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9595) static void C_ccall f_9595(C_word c,C_word *av) C_noret; C_noret_decl(f_9606) static void C_ccall f_9606(C_word c,C_word *av) C_noret; C_noret_decl(f_9620) static void C_ccall f_9620(C_word c,C_word *av) C_noret; C_noret_decl(f_9627) static void C_ccall f_9627(C_word c,C_word *av) C_noret; C_noret_decl(f_9629) static void C_fcall f_9629(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9663) static void C_fcall f_9663(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9703) static void C_fcall f_9703(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9713) static void C_ccall f_9713(C_word c,C_word *av) C_noret; C_noret_decl(f_9726) static void C_fcall f_9726(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9736) static void C_ccall f_9736(C_word c,C_word *av) C_noret; C_noret_decl(f_9757) static void C_ccall f_9757(C_word c,C_word *av) C_noret; C_noret_decl(f_9772) static void C_ccall f_9772(C_word c,C_word *av) C_noret; C_noret_decl(f_9782) static void C_fcall f_9782(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9790) static void C_ccall f_9790(C_word c,C_word *av) C_noret; C_noret_decl(f_9800) static void C_ccall f_9800(C_word c,C_word *av) C_noret; C_noret_decl(f_9803) static void C_fcall f_9803(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9807) static void C_ccall f_9807(C_word c,C_word *av) C_noret; C_noret_decl(f_9811) static void C_fcall f_9811(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9818) static void C_ccall f_9818(C_word c,C_word *av) C_noret; C_noret_decl(f_9837) static void C_ccall f_9837(C_word c,C_word *av) C_noret; C_noret_decl(f_9852) static void C_fcall f_9852(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9878) static void C_ccall f_9878(C_word c,C_word *av) C_noret; C_noret_decl(f_9880) static void C_ccall f_9880(C_word c,C_word *av) C_noret; C_noret_decl(f_9883) static void C_fcall f_9883(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9889) static void C_fcall f_9889(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9930) static void C_fcall f_9930(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_9962) static void C_ccall f_9962(C_word c,C_word *av) C_noret; C_noret_decl(f_9988) static void C_ccall f_9988(C_word c,C_word *av) C_noret; C_noret_decl(C_modules_toplevel) C_externexport void C_ccall C_modules_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_10002) static void C_ccall trf_10002(C_word c,C_word *av) C_noret; static void C_ccall trf_10002(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10002(t0,t1);} C_noret_decl(trf_10039) static void C_ccall trf_10039(C_word c,C_word *av) C_noret; static void C_ccall trf_10039(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10039(t0,t1,t2);} C_noret_decl(trf_10119) static void C_ccall trf_10119(C_word c,C_word *av) C_noret; static void C_ccall trf_10119(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10119(t0,t1,t2);} C_noret_decl(trf_10136) static void C_ccall trf_10136(C_word c,C_word *av) C_noret; static void C_ccall trf_10136(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10136(t0,t1);} C_noret_decl(trf_10160) static void C_ccall trf_10160(C_word c,C_word *av) C_noret; static void C_ccall trf_10160(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10160(t0,t1,t2);} C_noret_decl(trf_10220) static void C_ccall trf_10220(C_word c,C_word *av) C_noret; static void C_ccall trf_10220(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_10220(t0,t1,t2,t3);} C_noret_decl(trf_10232) static void C_ccall trf_10232(C_word c,C_word *av) C_noret; static void C_ccall trf_10232(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10232(t0,t1,t2);} C_noret_decl(trf_10337) static void C_ccall trf_10337(C_word c,C_word *av) C_noret; static void C_ccall trf_10337(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_10337(t0,t1,t2,t3,t4);} C_noret_decl(trf_10348) static void C_ccall trf_10348(C_word c,C_word *av) C_noret; static void C_ccall trf_10348(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10348(t0,t1,t2);} C_noret_decl(trf_10361) static void C_ccall trf_10361(C_word c,C_word *av) C_noret; static void C_ccall trf_10361(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_10361(t0,t1);} C_noret_decl(trf_10435) static void C_ccall trf_10435(C_word c,C_word *av) C_noret; static void C_ccall trf_10435(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10435(t0,t1,t2);} C_noret_decl(trf_10469) static void C_ccall trf_10469(C_word c,C_word *av) C_noret; static void C_ccall trf_10469(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10469(t0,t1,t2);} C_noret_decl(trf_10635) static void C_ccall trf_10635(C_word c,C_word *av) C_noret; static void C_ccall trf_10635(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10635(t0,t1,t2);} C_noret_decl(trf_10689) static void C_ccall trf_10689(C_word c,C_word *av) C_noret; static void C_ccall trf_10689(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10689(t0,t1,t2);} C_noret_decl(trf_10743) static void C_ccall trf_10743(C_word c,C_word *av) C_noret; static void C_ccall trf_10743(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10743(t0,t1,t2);} C_noret_decl(trf_10797) static void C_ccall trf_10797(C_word c,C_word *av) C_noret; static void C_ccall trf_10797(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10797(t0,t1,t2);} C_noret_decl(trf_10851) static void C_ccall trf_10851(C_word c,C_word *av) C_noret; static void C_ccall trf_10851(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10851(t0,t1,t2);} C_noret_decl(trf_10905) static void C_ccall trf_10905(C_word c,C_word *av) C_noret; static void C_ccall trf_10905(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10905(t0,t1,t2);} C_noret_decl(trf_10959) static void C_ccall trf_10959(C_word c,C_word *av) C_noret; static void C_ccall trf_10959(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_10959(t0,t1,t2);} C_noret_decl(trf_11013) static void C_ccall trf_11013(C_word c,C_word *av) C_noret; static void C_ccall trf_11013(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11013(t0,t1,t2);} C_noret_decl(trf_11067) static void C_ccall trf_11067(C_word c,C_word *av) C_noret; static void C_ccall trf_11067(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11067(t0,t1,t2);} C_noret_decl(trf_11121) static void C_ccall trf_11121(C_word c,C_word *av) C_noret; static void C_ccall trf_11121(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11121(t0,t1,t2);} C_noret_decl(trf_11175) static void C_ccall trf_11175(C_word c,C_word *av) C_noret; static void C_ccall trf_11175(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11175(t0,t1,t2);} C_noret_decl(trf_11229) static void C_ccall trf_11229(C_word c,C_word *av) C_noret; static void C_ccall trf_11229(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11229(t0,t1,t2);} C_noret_decl(trf_11283) static void C_ccall trf_11283(C_word c,C_word *av) C_noret; static void C_ccall trf_11283(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_11283(t0,t1,t2);} C_noret_decl(trf_4483) static void C_ccall trf_4483(C_word c,C_word *av) C_noret; static void C_ccall trf_4483(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_4483(t0,t1,t2,t3);} C_noret_decl(trf_4489) static void C_ccall trf_4489(C_word c,C_word *av) C_noret; static void C_ccall trf_4489(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_4489(t0,t1,t2);} C_noret_decl(trf_5639) static void C_ccall trf_5639(C_word c,C_word *av) C_noret; static void C_ccall trf_5639(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5639(t0,t1,t2);} C_noret_decl(trf_5683) static void C_ccall trf_5683(C_word c,C_word *av) C_noret; static void C_ccall trf_5683(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5683(t0,t1,t2,t3);} C_noret_decl(trf_5691) static void C_ccall trf_5691(C_word c,C_word *av) C_noret; static void C_ccall trf_5691(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5691(t0,t1,t2);} C_noret_decl(trf_5787) static void C_ccall trf_5787(C_word c,C_word *av) C_noret; static void C_ccall trf_5787(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5787(t0,t1);} C_noret_decl(trf_5809) static void C_ccall trf_5809(C_word c,C_word *av) C_noret; static void C_ccall trf_5809(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5809(t0,t1,t2);} C_noret_decl(trf_5886) static void C_ccall trf_5886(C_word c,C_word *av) C_noret; static void C_ccall trf_5886(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5886(t0,t1,t2);} C_noret_decl(trf_5939) static void C_ccall trf_5939(C_word c,C_word *av) C_noret; static void C_ccall trf_5939(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5939(t0,t1,t2,t3);} C_noret_decl(trf_6171) static void C_ccall trf_6171(C_word c,C_word *av) C_noret; static void C_ccall trf_6171(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6171(t0,t1,t2);} C_noret_decl(trf_6178) static void C_ccall trf_6178(C_word c,C_word *av) C_noret; static void C_ccall trf_6178(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6178(t0,t1);} C_noret_decl(trf_6329) static void C_ccall trf_6329(C_word c,C_word *av) C_noret; static void C_ccall trf_6329(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6329(t0,t1,t2,t3);} C_noret_decl(trf_6352) static void C_ccall trf_6352(C_word c,C_word *av) C_noret; static void C_ccall trf_6352(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6352(t0,t1,t2);} C_noret_decl(trf_6379) static void C_ccall trf_6379(C_word c,C_word *av) C_noret; static void C_ccall trf_6379(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6379(t0,t1,t2);} C_noret_decl(trf_6416) static void C_ccall trf_6416(C_word c,C_word *av) C_noret; static void C_ccall trf_6416(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6416(t0,t1,t2);} C_noret_decl(trf_6424) static void C_ccall trf_6424(C_word c,C_word *av) C_noret; static void C_ccall trf_6424(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6424(t0,t1);} C_noret_decl(trf_6456) static void C_ccall trf_6456(C_word c,C_word *av) C_noret; static void C_ccall trf_6456(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6456(t0,t1,t2);} C_noret_decl(trf_6533) static void C_ccall trf_6533(C_word c,C_word *av) C_noret; static void C_ccall trf_6533(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6533(t0,t1);} C_noret_decl(trf_6551) static void C_ccall trf_6551(C_word c,C_word *av) C_noret; static void C_ccall trf_6551(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_6551(t0,t1,t2,t3,t4);} C_noret_decl(trf_6567) static void C_ccall trf_6567(C_word c,C_word *av) C_noret; static void C_ccall trf_6567(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6567(t0,t1);} C_noret_decl(trf_6579) static void C_ccall trf_6579(C_word c,C_word *av) C_noret; static void C_ccall trf_6579(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6579(t0,t1,t2);} C_noret_decl(trf_6598) static void C_ccall trf_6598(C_word c,C_word *av) C_noret; static void C_ccall trf_6598(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6598(t0,t1,t2);} C_noret_decl(trf_6626) static void C_ccall trf_6626(C_word c,C_word *av) C_noret; static void C_ccall trf_6626(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6626(t0,t1,t2,t3);} C_noret_decl(trf_6709) static void C_ccall trf_6709(C_word c,C_word *av) C_noret; static void C_ccall trf_6709(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6709(t0,t1);} C_noret_decl(trf_6717) static void C_ccall trf_6717(C_word c,C_word *av) C_noret; static void C_ccall trf_6717(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6717(t0,t1);} C_noret_decl(trf_6757) static void C_ccall trf_6757(C_word c,C_word *av) C_noret; static void C_ccall trf_6757(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6757(t0,t1);} C_noret_decl(trf_6773) static void C_ccall trf_6773(C_word c,C_word *av) C_noret; static void C_ccall trf_6773(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6773(t0,t1,t2);} C_noret_decl(trf_6830) static void C_ccall trf_6830(C_word c,C_word *av) C_noret; static void C_ccall trf_6830(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6830(t0,t1,t2);} C_noret_decl(trf_6872) static void C_ccall trf_6872(C_word c,C_word *av) C_noret; static void C_ccall trf_6872(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6872(t0,t1,t2);} C_noret_decl(trf_6961) static void C_ccall trf_6961(C_word c,C_word *av) C_noret; static void C_ccall trf_6961(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6961(t0,t1,t2);} C_noret_decl(trf_6986) static void C_ccall trf_6986(C_word c,C_word *av) C_noret; static void C_ccall trf_6986(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6986(t0,t1);} C_noret_decl(trf_7171) static void C_ccall trf_7171(C_word c,C_word *av) C_noret; static void C_ccall trf_7171(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7171(t0,t1,t2);} C_noret_decl(trf_7197) static void C_ccall trf_7197(C_word c,C_word *av) C_noret; static void C_ccall trf_7197(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7197(t0,t1,t2);} C_noret_decl(trf_7251) static void C_ccall trf_7251(C_word c,C_word *av) C_noret; static void C_ccall trf_7251(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7251(t0,t1,t2);} C_noret_decl(trf_7274) static void C_ccall trf_7274(C_word c,C_word *av) C_noret; static void C_ccall trf_7274(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7274(t0,t1,t2);} C_noret_decl(trf_7301) static void C_ccall trf_7301(C_word c,C_word *av) C_noret; static void C_ccall trf_7301(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7301(t0,t1);} C_noret_decl(trf_7325) static void C_ccall trf_7325(C_word c,C_word *av) C_noret; static void C_ccall trf_7325(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7325(t0,t1,t2);} C_noret_decl(trf_7359) static void C_ccall trf_7359(C_word c,C_word *av) C_noret; static void C_ccall trf_7359(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7359(t0,t1,t2);} C_noret_decl(trf_7449) static void C_ccall trf_7449(C_word c,C_word *av) C_noret; static void C_ccall trf_7449(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7449(t0,t1,t2);} C_noret_decl(trf_7473) static void C_ccall trf_7473(C_word c,C_word *av) C_noret; static void C_ccall trf_7473(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7473(t0,t1,t2);} C_noret_decl(trf_7528) static void C_ccall trf_7528(C_word c,C_word *av) C_noret; static void C_ccall trf_7528(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7528(t0,t1,t2,t3);} C_noret_decl(trf_7539) static void C_ccall trf_7539(C_word c,C_word *av) C_noret; static void C_ccall trf_7539(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7539(t0,t1);} C_noret_decl(trf_7541) static void C_ccall trf_7541(C_word c,C_word *av) C_noret; static void C_ccall trf_7541(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7541(t0,t1,t2);} C_noret_decl(trf_7569) static void C_ccall trf_7569(C_word c,C_word *av) C_noret; static void C_ccall trf_7569(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7569(t0,t1);} C_noret_decl(trf_7651) static void C_ccall trf_7651(C_word c,C_word *av) C_noret; static void C_ccall trf_7651(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7651(t0,t1,t2);} C_noret_decl(trf_7716) static void C_ccall trf_7716(C_word c,C_word *av) C_noret; static void C_ccall trf_7716(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7716(t0,t1,t2);} C_noret_decl(trf_7735) static void C_ccall trf_7735(C_word c,C_word *av) C_noret; static void C_ccall trf_7735(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7735(t0,t1,t2);} C_noret_decl(trf_7768) static void C_ccall trf_7768(C_word c,C_word *av) C_noret; static void C_ccall trf_7768(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7768(t0,t1,t2);} C_noret_decl(trf_7780) static void C_ccall trf_7780(C_word c,C_word *av) C_noret; static void C_ccall trf_7780(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7780(t0,t1,t2);} C_noret_decl(trf_7858) static void C_ccall trf_7858(C_word c,C_word *av) C_noret; static void C_ccall trf_7858(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7858(t0,t1,t2);} C_noret_decl(trf_7921) static void C_ccall trf_7921(C_word c,C_word *av) C_noret; static void C_ccall trf_7921(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7921(t0,t1,t2);} C_noret_decl(trf_7952) static void C_ccall trf_7952(C_word c,C_word *av) C_noret; static void C_ccall trf_7952(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7952(t0,t1,t2);} C_noret_decl(trf_7989) static void C_ccall trf_7989(C_word c,C_word *av) C_noret; static void C_ccall trf_7989(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7989(t0,t1,t2);} C_noret_decl(trf_8016) static void C_ccall trf_8016(C_word c,C_word *av) C_noret; static void C_ccall trf_8016(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8016(t0,t1,t2);} C_noret_decl(trf_8047) static void C_ccall trf_8047(C_word c,C_word *av) C_noret; static void C_ccall trf_8047(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8047(t0,t1);} C_noret_decl(trf_8063) static void C_ccall trf_8063(C_word c,C_word *av) C_noret; static void C_ccall trf_8063(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8063(t0,t1);} C_noret_decl(trf_8075) static void C_ccall trf_8075(C_word c,C_word *av) C_noret; static void C_ccall trf_8075(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_8075(t0,t1);} C_noret_decl(trf_8148) static void C_ccall trf_8148(C_word c,C_word *av) C_noret; static void C_ccall trf_8148(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8148(t0,t1,t2);} C_noret_decl(trf_8183) static void C_ccall trf_8183(C_word c,C_word *av) C_noret; static void C_ccall trf_8183(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8183(t0,t1,t2);} C_noret_decl(trf_8357) static void C_ccall trf_8357(C_word c,C_word *av) C_noret; static void C_ccall trf_8357(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8357(t0,t1,t2);} C_noret_decl(trf_8387) static void C_ccall trf_8387(C_word c,C_word *av) C_noret; static void C_ccall trf_8387(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8387(t0,t1,t2,t3);} C_noret_decl(trf_8401) static void C_ccall trf_8401(C_word c,C_word *av) C_noret; static void C_ccall trf_8401(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8401(t0,t1,t2);} C_noret_decl(trf_8451) static void C_ccall trf_8451(C_word c,C_word *av) C_noret; static void C_ccall trf_8451(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8451(t0,t1,t2);} C_noret_decl(trf_8499) static void C_ccall trf_8499(C_word c,C_word *av) C_noret; static void C_ccall trf_8499(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8499(t0,t1,t2);} C_noret_decl(trf_8558) static void C_ccall trf_8558(C_word c,C_word *av) C_noret; static void C_ccall trf_8558(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_8558(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_8566) static void C_ccall trf_8566(C_word c,C_word *av) C_noret; static void C_ccall trf_8566(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8566(t0,t1,t2);} C_noret_decl(trf_8589) static void C_ccall trf_8589(C_word c,C_word *av) C_noret; static void C_ccall trf_8589(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8589(t0,t1,t2);} C_noret_decl(trf_8617) static void C_ccall trf_8617(C_word c,C_word *av) C_noret; static void C_ccall trf_8617(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8617(t0,t1,t2);} C_noret_decl(trf_8639) static void C_ccall trf_8639(C_word c,C_word *av) C_noret; static void C_ccall trf_8639(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8639(t0,t1,t2);} C_noret_decl(trf_8708) static void C_ccall trf_8708(C_word c,C_word *av) C_noret; static void C_ccall trf_8708(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_8708(t0,t1,t2,t3,t4);} C_noret_decl(trf_8720) static void C_ccall trf_8720(C_word c,C_word *av) C_noret; static void C_ccall trf_8720(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_8720(t0,t1,t2,t3,t4);} C_noret_decl(trf_8728) static void C_ccall trf_8728(C_word c,C_word *av) C_noret; static void C_ccall trf_8728(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8728(t0,t1,t2);} C_noret_decl(trf_8751) static void C_ccall trf_8751(C_word c,C_word *av) C_noret; static void C_ccall trf_8751(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8751(t0,t1,t2);} C_noret_decl(trf_8779) static void C_ccall trf_8779(C_word c,C_word *av) C_noret; static void C_ccall trf_8779(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8779(t0,t1,t2);} C_noret_decl(trf_8820) static void C_ccall trf_8820(C_word c,C_word *av) C_noret; static void C_ccall trf_8820(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8820(t0,t1,t2);} C_noret_decl(trf_8891) static void C_ccall trf_8891(C_word c,C_word *av) C_noret; static void C_ccall trf_8891(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_8891(t0,t1,t2,t3,t4);} C_noret_decl(trf_8903) static void C_ccall trf_8903(C_word c,C_word *av) C_noret; static void C_ccall trf_8903(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_8903(t0,t1,t2,t3,t4);} C_noret_decl(trf_8911) static void C_ccall trf_8911(C_word c,C_word *av) C_noret; static void C_ccall trf_8911(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8911(t0,t1,t2);} C_noret_decl(trf_8943) static void C_ccall trf_8943(C_word c,C_word *av) C_noret; static void C_ccall trf_8943(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8943(t0,t1,t2);} C_noret_decl(trf_8966) static void C_ccall trf_8966(C_word c,C_word *av) C_noret; static void C_ccall trf_8966(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8966(t0,t1,t2);} C_noret_decl(trf_9005) static void C_ccall trf_9005(C_word c,C_word *av) C_noret; static void C_ccall trf_9005(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9005(t0,t1,t2);} C_noret_decl(trf_9058) static void C_ccall trf_9058(C_word c,C_word *av) C_noret; static void C_ccall trf_9058(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9058(t0,t1,t2);} C_noret_decl(trf_9193) static void C_ccall trf_9193(C_word c,C_word *av) C_noret; static void C_ccall trf_9193(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9193(t0,t1,t2);} C_noret_decl(trf_9227) static void C_ccall trf_9227(C_word c,C_word *av) C_noret; static void C_ccall trf_9227(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9227(t0,t1,t2);} C_noret_decl(trf_9281) static void C_ccall trf_9281(C_word c,C_word *av) C_noret; static void C_ccall trf_9281(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9281(t0,t1,t2);} C_noret_decl(trf_9317) static void C_ccall trf_9317(C_word c,C_word *av) C_noret; static void C_ccall trf_9317(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9317(t0,t1,t2);} C_noret_decl(trf_9357) static void C_ccall trf_9357(C_word c,C_word *av) C_noret; static void C_ccall trf_9357(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9357(t0,t1,t2);} C_noret_decl(trf_9402) static void C_ccall trf_9402(C_word c,C_word *av) C_noret; static void C_ccall trf_9402(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9402(t0,t1,t2);} C_noret_decl(trf_9447) static void C_ccall trf_9447(C_word c,C_word *av) C_noret; static void C_ccall trf_9447(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_9447(t0,t1);} C_noret_decl(trf_9525) static void C_ccall trf_9525(C_word c,C_word *av) C_noret; static void C_ccall trf_9525(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9525(t0,t1,t2);} C_noret_decl(trf_9559) static void C_ccall trf_9559(C_word c,C_word *av) C_noret; static void C_ccall trf_9559(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9559(t0,t1,t2);} C_noret_decl(trf_9629) static void C_ccall trf_9629(C_word c,C_word *av) C_noret; static void C_ccall trf_9629(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9629(t0,t1,t2);} C_noret_decl(trf_9663) static void C_ccall trf_9663(C_word c,C_word *av) C_noret; static void C_ccall trf_9663(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9663(t0,t1,t2);} C_noret_decl(trf_9703) static void C_ccall trf_9703(C_word c,C_word *av) C_noret; static void C_ccall trf_9703(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9703(t0,t1,t2);} C_noret_decl(trf_9726) static void C_ccall trf_9726(C_word c,C_word *av) C_noret; static void C_ccall trf_9726(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9726(t0,t1,t2);} C_noret_decl(trf_9782) static void C_ccall trf_9782(C_word c,C_word *av) C_noret; static void C_ccall trf_9782(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9782(t0,t1,t2);} C_noret_decl(trf_9803) static void C_ccall trf_9803(C_word c,C_word *av) C_noret; static void C_ccall trf_9803(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9803(t0,t1,t2);} C_noret_decl(trf_9811) static void C_ccall trf_9811(C_word c,C_word *av) C_noret; static void C_ccall trf_9811(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9811(t0,t1,t2);} C_noret_decl(trf_9852) static void C_ccall trf_9852(C_word c,C_word *av) C_noret; static void C_ccall trf_9852(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9852(t0,t1,t2);} C_noret_decl(trf_9883) static void C_ccall trf_9883(C_word c,C_word *av) C_noret; static void C_ccall trf_9883(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9883(t0,t1,t2);} C_noret_decl(trf_9889) static void C_ccall trf_9889(C_word c,C_word *av) C_noret; static void C_ccall trf_9889(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9889(t0,t1,t2);} C_noret_decl(trf_9930) static void C_ccall trf_9930(C_word c,C_word *av) C_noret; static void C_ccall trf_9930(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_9930(t0,t1,t2);} /* f11852 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f11852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f11852,2,av);} /* modules.scm:522: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[38]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k10000 in loop in ##sys#validate-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10002(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_10002,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10009,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=C_i_cadr(((C_word*)t0)[5]); /* modules.scm:813: iface */ t4=((C_word*)((C_word*)t0)[6])[1]; f_9889(t4,t2,t3);} else{ /* modules.scm:814: err */ t2=((C_word*)((C_word*)t0)[7])[1]; f_9883(t2,((C_word*)t0)[2],C_a_i_list(&a,3,lf[156],((C_word*)t0)[5],((C_word*)t0)[8]));}} /* k10007 in k10000 in loop in ##sys#validate-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_10009,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10013,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* modules.scm:813: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_9930(t6,t3,t5);} /* k10011 in k10007 in k10000 in loop in ##sys#validate-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10013,2,av);} /* modules.scm:813: scheme#append */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* loop2 in loop in ##sys#validate-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10039(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_10039,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10053,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); t4=C_i_cdr(((C_word*)t0)[3]); /* modules.scm:817: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_9930(t5,t3,t4);} else{ t3=C_i_car(t2); if(C_truep(C_i_symbolp(t3))){ t4=t2; t5=C_u_i_cdr(t4); /* modules.scm:818: loop2 */ t7=t1; t8=t5; t1=t7; t2=t8; goto loop;} else{ /* modules.scm:819: err */ t4=((C_word*)((C_word*)t0)[6])[1]; f_9883(t4,t1,C_a_i_list(&a,3,lf[157],((C_word*)t0)[2],((C_word*)t0)[7]));}}} /* k10051 in loop2 in loop in ##sys#validate-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10053(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10053,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* ##sys#register-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(14,c,1)))){ C_save_and_reclaim((void *)f_10095,6,av);} a=C_alloc(14); t6=C_a_i_cons(&a,2,t4,t5); t7=C_a_i_cons(&a,2,t3,t6); t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_a_i_putprop(&a,3,t2,lf[67],t7); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_10111,5,av);} a=C_alloc(18); t5=t3; t6=C_i_getprop(t5,lf[67],C_SCHEME_FALSE); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10119,a[2]=t2,a[3]=((C_word)li140),tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10126,a[2]=t7,a[3]=t2,a[4]=t4,a[5]=t3,a[6]=t8,a[7]=t1,tmp=(C_word)a,a+=8,tmp); if(C_truep(t7)){ t10=t9;{ C_word *av2=av; av2[0]=t10; av2[1]=C_SCHEME_UNDEFINED; f_10126(2,av2);}} else{ /* modules.scm:828: err */ t10=t8; f_10119(t10,t9,C_a_i_list(&a,2,lf[164],t3));}} /* err in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10119(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_10119,3,t0,t1,t2);}{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[118]+1); av2[3]=((C_word*)t0)[2]; av2[4]=t2; C_apply(5,av2);}} /* k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_10126,2,av);} a=C_alloc(23); t2=C_i_car(((C_word*)t0)[2]); t3=t2; t4=C_i_cadr(((C_word*)t0)[2]); t5=t4; t6=C_u_i_cdr(((C_word*)t0)[2]); t7=C_u_i_cdr(t6); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10136,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li142),tmp=(C_word)a,a+=8,tmp); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10199,a[2]=t5,a[3]=t7,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10220,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=t8,a[5]=t11,a[6]=((C_word)li144),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_10220(t13,t9,((C_word*)t0)[4],t3);} /* merr in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10136(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){ C_save_and_reclaim_args((void *)trf_10136,2,t0,t1);} a=C_alloc(22); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=t2; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=C_i_check_list_2(((C_word*)t0)[4],lf[18]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10158,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10160,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li141),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_10160(t13,t9,((C_word*)t0)[4]);} /* k10156 in merr in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10158(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_10158,2,av);} a=C_alloc(12); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* modules.scm:833: err */ t3=((C_word*)t0)[3]; f_10119(t3,((C_word*)t0)[4],C_a_i_list(&a,3,lf[160],((C_word*)t0)[5],t2));} /* map-loop2556 in merr in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10160(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10160,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10197 in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_10199,2,av);} a=C_alloc(18); t2=C_eqp(lf[150],((C_word*)t0)[2]); t3=(C_truep(t2)?C_a_i_cons(&a,2,C_SCHEME_TRUE,((C_word*)t0)[3]):C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3])); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); t5=C_a_i_cons(&a,2,lf[161],t4); t6=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_list(&a,3,lf[162],t1,t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* loop in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10220(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_10220,4,t0,t1,t2,t3);} a=C_alloc(10); if(C_truep(C_i_nullp(t2))){ t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10232,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li143),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_10232(t7,t1,t3);} else{ if(C_truep(C_i_nullp(t3))){ /* modules.scm:852: merr */ t4=((C_word*)t0)[4]; f_10136(t4,t1);} else{ t4=C_i_car(t3); t5=C_i_car(t4); t6=C_u_i_cdr(t4); t7=C_i_pairp(t5); t8=(C_truep(t7)?C_i_car(t5):t5); t9=t8; t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10307,a[2]=t9,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=t6,a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); t11=C_i_car(t2); /* modules.scm:860: chicken.internal#library-id */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[23]+1); av2[1]=t10; av2[2]=t11; tp(3,av2);}}}} /* loop2 in loop in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10232(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_10232,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=C_i_car(t3); if(C_truep(C_i_pairp(t4))){ t5=C_u_i_cdr(t3); t6=C_i_caar(t3); t7=t6; t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10255,a[2]=t7,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=t5,a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10275,a[2]=t8,tmp=(C_word)a,a+=3,tmp); /* modules.scm:846: scheme#cadar */ t10=*((C_word*)lf[83]+1);{ C_word av2[3]; av2[0]=t10; av2[1]=t9; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} else{ /* modules.scm:850: merr */ t5=((C_word*)t0)[5]; f_10136(t5,t1);}}} /* k10253 in loop2 in loop in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10255(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_10255,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10258,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* modules.scm:847: match-functor-argument */ f_10337(t3,((C_word*)t0)[6],t2,((C_word*)t0)[7],((C_word*)t0)[8]);} /* k10256 in k10253 in loop2 in loop in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_10258,2,av);} a=C_alloc(10); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10269,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); /* modules.scm:848: loop2 */ t7=((C_word*)((C_word*)t0)[6])[1]; f_10232(t7,t4,t6);} /* k10267 in k10256 in k10253 in loop2 in loop in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10269,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k10273 in loop2 in loop in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10275(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10275,2,av);} /* modules.scm:846: chicken.internal#library-id */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[23]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k10305 in loop in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_10307,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10310,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* modules.scm:861: match-functor-argument */ f_10337(t3,((C_word*)t0)[7],t2,((C_word*)t0)[8],((C_word*)t0)[9]);} /* k10308 in k10305 in loop in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_10310,2,av);} a=C_alloc(10); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10321,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[5]; t6=C_u_i_cdr(t5); t7=((C_word*)t0)[6]; t8=C_u_i_cdr(t7); /* modules.scm:863: loop */ t9=((C_word*)((C_word*)t0)[7])[1]; f_10220(t9,t4,t6,t8);} /* k10319 in k10308 in k10305 in loop in k10124 in ##sys#instantiate-functor in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_10321,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10337(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_10337,5,t1,t2,t3,t4,t5);} a=C_alloc(10); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10341,a[2]=t4,a[3]=t1,a[4]=t5,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10494,a[2]=t6,tmp=(C_word)a,a+=3,tmp); /* modules.scm:870: ##sys#resolve-module-name */ t8=*((C_word*)lf[20]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t7; av2[2]=t3; av2[3]=lf[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_10341,2,av);} a=C_alloc(21); t2=t1; t3=C_eqp(((C_word*)t0)[2],lf[150]); if(C_truep(t3)){ t4=C_SCHEME_UNDEFINED; t5=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10348,a[2]=t2,a[3]=t5,a[4]=((C_word)li146),tmp=(C_word)a,a+=5,tmp); t7=((C_word*)t0)[2]; t8=C_i_check_list_2(t7,lf[33]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10388,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10469,a[2]=t11,a[3]=t6,a[4]=((C_word)li148),tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_10469(t13,t9,t7);}} /* g2617 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10348(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10348,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_symbolp(t2); t4=(C_truep(t3)?t2:C_i_car(t2)); t5=t4; t6=C_i_check_structure_2(((C_word*)t0)[2],lf[4],lf[13]); t7=C_i_block_ref(((C_word*)t0)[2],C_fix(11)); t8=C_i_assq(t5,t7); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10361,a[2]=t1,a[3]=t5,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(t8)){ t10=t9; f_10361(t10,t8);} else{ t10=C_i_check_structure_2(((C_word*)t0)[2],lf[4],lf[14]); t11=C_i_block_ref(((C_word*)t0)[2],C_fix(12)); t12=t9; f_10361(t12,C_i_assq(t5,t11));}} /* k10359 in g2617 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10361(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,1)))){ C_save_and_reclaim_args((void *)trf_10361,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,t2); t4=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10386 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_10388,2,av);} a=C_alloc(9); if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[2])[1]))){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10401,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10405,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* modules.scm:885: scheme#symbol->string */ t4=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k10399 in k10386 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10401,2,av);} /* modules.scm:881: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[118]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[118]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[4]; av2[3]=t1; tp(4,av2);}} /* k10403 in k10386 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10405,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10409,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* modules.scm:886: scheme#symbol->string */ t4=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10407 in k10403 in k10386 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10409,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10413,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* modules.scm:887: scheme#symbol->string */ t4=*((C_word*)lf[96]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k10411 in k10407 in k10403 in k10386 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_10413,2,av);} a=C_alloc(19); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)((C_word*)t0)[2])[1]; t8=C_i_check_list_2(t7,lf[18]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10433,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10435,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li147),tmp=(C_word)a,a+=6,tmp)); t13=((C_word*)t11)[1]; f_10435(t13,t9,t7);} /* k10425 in map-loop2638 in k10411 in k10407 in k10403 in k10386 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_10427,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[109]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[109]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[170]; av2[3]=t1; tp(4,av2);}} /* k10431 in k10411 in k10407 in k10403 in k10386 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,11)))){ C_save_and_reclaim((void *)f_10433,2,av);}{ C_word *av2; if(c >= 12) { av2=av; } else { av2=C_alloc(12); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=*((C_word*)lf[93]+1); av2[3]=lf[165]; av2[4]=((C_word*)t0)[3]; av2[5]=lf[166]; av2[6]=lf[167]; av2[7]=((C_word*)t0)[4]; av2[8]=lf[168]; av2[9]=((C_word*)t0)[5]; av2[10]=lf[169]; av2[11]=t1; C_apply(12,av2);}} /* map-loop2638 in k10411 in k10407 in k10403 in k10386 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10435(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_10435,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10460,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10427,a[2]=t5,tmp=(C_word)a,a+=3,tmp); /* modules.scm:888: scheme#symbol->string */ t7=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10458 in map-loop2638 in k10411 in k10407 in k10403 in k10386 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10460(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_10460,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_10435(t6,((C_word*)t0)[5],t5);} /* for-each-loop2616 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_10469(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_10469,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10479,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:873: g2617 */ t5=((C_word*)t0)[3]; f_10348(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k10477 in for-each-loop2616 in k10339 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10479(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_10479,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_10469(t3,((C_word*)t0)[4],t2);} /* k10492 in match-functor-argument in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10494,2,av);} /* modules.scm:870: ##sys#find-module */ t2=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; av2[4]=lf[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_10497,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10500,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11326,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:1023: scheme#append */ t4=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[239]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10500(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ C_save_and_reclaim((void *)f_10500,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:1029: ##sys#register-core-module */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[238]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10503(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_10503,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10506,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:1030: ##sys#register-core-module */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[237]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10506(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10506,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10509,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:1032: ##sys#register-module-alias */ t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[235]; av2[3]=lf[236]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10509(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_10509,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10512,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:1033: ##sys#register-module-alias */ t3=*((C_word*)lf[15]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[233]; av2[3]=lf[234]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10512(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_10512,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10515,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11322,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* modules.scm:1039: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t3; tp(2,av2);}} /* k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_10515,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10518,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:1041: ##sys#register-core-module */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[230]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=*((C_word*)lf[231]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10518(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_10518,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10521,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:1044: ##sys#register-core-module */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[228]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=*((C_word*)lf[229]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10521(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10521,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10524,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11318,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[203]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11271,a[2]=t4,a[3]=((C_word)li175),tmp=(C_word)a,a+=4,tmp); t10=lf[227]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11283,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li176),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_11283(t15,t3,t10);} /* k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10524(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10524,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10527,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11264,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[184]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11217,a[2]=t4,a[3]=((C_word)li173),tmp=(C_word)a,a+=4,tmp); t10=lf[225]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11229,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li174),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_11229(t15,t3,t10);} /* k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_10527,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10530,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:1053: ##sys#register-core-module */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[222]; av2[3]=lf[182]; av2[4]=lf[223]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10530(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10530,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10533,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11210,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[184]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11163,a[2]=t4,a[3]=((C_word)li171),tmp=(C_word)a,a+=4,tmp); t10=lf[221]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11175,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li172),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_11175(t15,t3,t10);} /* k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10533,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10536,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11156,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[184]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11109,a[2]=t4,a[3]=((C_word)li169),tmp=(C_word)a,a+=4,tmp); t10=lf[219]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11121,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li170),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_11121(t15,t3,t10);} /* k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_10536,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10539,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:1065: ##sys#register-core-module */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[215]; av2[3]=lf[216]; av2[4]=lf[217]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_10539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10539,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10542,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11102,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[184]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11055,a[2]=t4,a[3]=((C_word)li167),tmp=(C_word)a,a+=4,tmp); t10=lf[214]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11067,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li168),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_11067(t15,t3,t10);} /* k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_10542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10542,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10545,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11048,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[211]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11001,a[2]=t4,a[3]=((C_word)li165),tmp=(C_word)a,a+=4,tmp); t10=lf[212]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11013,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li166),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_11013(t15,t3,t10);} /* k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in ... */ static void C_ccall f_10545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10545,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10548,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10994,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[184]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10947,a[2]=t4,a[3]=((C_word)li163),tmp=(C_word)a,a+=4,tmp); t10=lf[208]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10959,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li164),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_10959(t15,t3,t10);} /* k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in ... */ static void C_ccall f_10548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10548,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10551,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10940,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[184]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10893,a[2]=t4,a[3]=((C_word)li161),tmp=(C_word)a,a+=4,tmp); t10=lf[206]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10905,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li162),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_10905(t15,t3,t10);} /* k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in ... */ static void C_ccall f_10551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10551,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10554,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10886,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[203]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10839,a[2]=t4,a[3]=((C_word)li159),tmp=(C_word)a,a+=4,tmp); t10=lf[204]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10851,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li160),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_10851(t15,t3,t10);} /* k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in ... */ static void C_ccall f_10554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_10554,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10557,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:1093: ##sys#register-core-module */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[200]; av2[3]=lf[182]; av2[4]=lf[201]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in ... */ static void C_ccall f_10557(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10557,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10560,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10832,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[184]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10785,a[2]=t4,a[3]=((C_word)li157),tmp=(C_word)a,a+=4,tmp); t10=lf[199]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10797,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li158),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_10797(t15,t3,t10);} /* k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in ... */ static void C_ccall f_10560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_10560,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10563,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:1099: ##sys#register-core-module */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[195]; av2[3]=lf[196]; av2[4]=lf[197]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in ... */ static void C_ccall f_10563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10563,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10566,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10778,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[184]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10731,a[2]=t4,a[3]=((C_word)li155),tmp=(C_word)a,a+=4,tmp); t10=lf[194]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10743,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li156),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_10743(t15,t3,t10);} /* k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in ... */ static void C_ccall f_10566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10566,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10569,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10724,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[184]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10677,a[2]=t4,a[3]=((C_word)li153),tmp=(C_word)a,a+=4,tmp); t10=lf[192]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10689,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li154),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_10689(t15,t3,t10);} /* k10567 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in ... */ static void C_ccall f_10569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_10569,2,av);} a=C_alloc(24); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10572,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10670,a[2]=t2,tmp=(C_word)a,a+=3,tmp); t4=*((C_word*)lf[184]+1); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10623,a[2]=t4,a[3]=((C_word)li151),tmp=(C_word)a,a+=4,tmp); t10=lf[189]; t11=C_SCHEME_UNDEFINED; t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10635,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li152),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_10635(t15,t3,t10);} /* k10570 in k10567 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in ... */ static void C_ccall f_10572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_10572,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10575,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:1112: ##sys#register-core-module */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[185]; av2[3]=lf[186]; av2[4]=lf[187]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k10573 in k10570 in k10567 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in ... */ static void C_ccall f_10575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_10575,2,av);} a=C_alloc(6); t2=C_mutate((C_word*)lf[173]+1 /* (set! chicken.module#module-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10577,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp)); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10613,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.base.import.scm:26: ##sys#register-core-module */ t4=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t4; av2[1]=t3; av2[2]=lf[181]; av2[3]=lf[182]; av2[4]=lf[183]; av2[5]=*((C_word*)lf[184]+1); ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* chicken.module#module-environment in k10573 in k10570 in k10567 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in ... */ static void C_ccall f_10577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,3)))){ C_save_and_reclaim((void*)f_10577,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+5); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; t4=C_i_nullp(t3); t5=(C_truep(t4)?t2:C_i_car(t3)); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10584,a[2]=t1,a[3]=t2,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* modules.scm:1118: find-module/import-library */ f_8357(t7,t2,lf[174]);} /* k10582 in chicken.module#module-environment in k10573 in k10570 in k10567 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in ... */ static void C_ccall f_10584(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_10584,2,av);} a=C_alloc(5); if(C_truep(C_i_not(t1))){ /* modules.scm:1120: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[118]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[118]+1); av2[1]=((C_word*)t0)[2]; av2[2]=lf[174]; av2[3]=lf[175]; av2[4]=((C_word*)t0)[3]; tp(5,av2);}} else{ t2=t1; t3=C_i_check_structure_2(t2,lf[4],lf[30]); t4=C_i_block_ref(t2,C_fix(14)); t5=C_i_car(t4); t6=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t6; av2[1]=C_a_i_record4(&a,4,lf[176],((C_word*)t0)[4],t5,C_SCHEME_TRUE); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k10611 in k10573 in k10570 in k10567 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in ... */ static void C_ccall f_10613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_10613,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10616,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.syntax.import.scm:30: ##sys#register-core-module */ t3=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[177]; av2[3]=lf[178]; av2[4]=lf[179]; av2[5]=*((C_word*)lf[180]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k10614 in k10611 in k10573 in k10570 in k10567 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in ... */ static void C_ccall f_10616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_10616,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g3137 in k10567 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in ... */ static C_word C_fcall f_10623(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop3131 in k10567 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in ... */ static void C_fcall f_10635(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10635,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g3137 */ f_10623(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10668 in k10567 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in ... */ static void C_ccall f_10670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10670,2,av);} /* modules.scm:1109: ##sys#register-primitive-module */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[188]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g3099 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in ... */ static C_word C_fcall f_10677(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop3093 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in ... */ static void C_fcall f_10689(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10689,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g3099 */ f_10677(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10722 in k10564 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in ... */ static void C_ccall f_10724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_10724,2,av);} /* modules.scm:1105: ##sys#register-core-module */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[190]; av2[3]=lf[182]; av2[4]=lf[191]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* g3061 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in ... */ static C_word C_fcall f_10731(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop3055 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in ... */ static void C_fcall f_10743(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10743,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g3061 */ f_10731(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10776 in k10561 in k10558 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in ... */ static void C_ccall f_10778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10778,2,av);} /* modules.scm:1102: ##sys#register-primitive-module */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[193]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g3023 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in ... */ static C_word C_fcall f_10785(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop3017 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in ... */ static void C_fcall f_10797(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10797,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g3023 */ f_10785(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10830 in k10555 in k10552 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in ... */ static void C_ccall f_10832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10832,2,av);} /* modules.scm:1096: ##sys#register-primitive-module */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[198]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g2985 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in ... */ static C_word C_fcall f_10839(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop2979 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in ... */ static void C_fcall f_10851(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10851,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g2985 */ f_10839(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10884 in k10549 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in ... */ static void C_ccall f_10886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10886,2,av);} /* modules.scm:1090: ##sys#register-primitive-module */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[202]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g2947 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in ... */ static C_word C_fcall f_10893(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop2941 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in ... */ static void C_fcall f_10905(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10905,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g2947 */ f_10893(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10938 in k10546 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in ... */ static void C_ccall f_10940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10940,2,av);} /* modules.scm:1087: ##sys#register-primitive-module */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[205]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g2909 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in ... */ static C_word C_fcall f_10947(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop2903 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in ... */ static void C_fcall f_10959(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_10959,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g2909 */ f_10947(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k10992 in k10543 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in ... */ static void C_ccall f_10994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_10994,2,av);} /* modules.scm:1084: ##sys#register-primitive-module */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[207]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g2871 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in ... */ static C_word C_fcall f_11001(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop2865 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in ... */ static void C_fcall f_11013(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_11013,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g2871 */ f_11001(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11046 in k10540 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in ... */ static void C_ccall f_11048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_11048,2,av);} /* modules.scm:1071: ##sys#register-core-module */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[209]; av2[3]=lf[182]; av2[4]=lf[210]; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* g2833 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static C_word C_fcall f_11055(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop2827 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_fcall f_11067(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_11067,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g2833 */ f_11055(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11100 in k10537 in k10534 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_11102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11102,2,av);} /* modules.scm:1068: ##sys#register-primitive-module */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[213]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g2795 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static C_word C_fcall f_11109(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop2789 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_11121(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_11121,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g2795 */ f_11109(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11154 in k10531 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_11156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11156,2,av);} /* modules.scm:1062: ##sys#register-primitive-module */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[218]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g2757 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static C_word C_fcall f_11163(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop2751 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_11175(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_11175,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g2757 */ f_11163(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11208 in k10528 in k10525 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_11210(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11210,2,av);} /* modules.scm:1059: ##sys#register-primitive-module */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[220]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g2719 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static C_word C_fcall f_11217(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop2713 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_11229(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_11229,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g2719 */ f_11217(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11262 in k10522 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_11264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11264,2,av);} /* modules.scm:1050: ##sys#register-primitive-module */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[224]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* g2681 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static C_word C_fcall f_11271(C_word t0,C_word t1){ C_word tmp; C_word t2; C_stack_overflow_check;{} return(C_i_assq(t1,((C_word*)t0)[2]));} /* map-loop2675 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_11283(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_11283,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:1035: g2681 */ f_11271(((C_word*)t0)[2],t3) ); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k11316 in k10519 in k10516 in k10513 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_11318(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_11318,2,av);} /* modules.scm:1047: ##sys#register-primitive-module */ t2=*((C_word*)lf[77]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[226]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k11320 in k10510 in k10507 in k10504 in k10501 in k10498 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_11322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_11322,2,av);} /* modules.scm:1038: ##sys#register-core-module */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[232]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k11324 in k10495 in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_11326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_11326,2,av);} /* modules.scm:1021: ##sys#register-core-module */ t2=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[236]; av2[3]=lf[182]; av2[4]=t1; av2[5]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* k3981 */ static void C_ccall f_3983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3983,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3986,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} /* k3984 in k3981 */ static void C_ccall f_3986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3986,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3989,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k3987 in k3984 in k3981 */ static void C_ccall f_3989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3989,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3992,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_3992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_3992,2,av);} a=C_alloc(14); t2=C_a_i_provide(&a,1,lf[0]); t3=C_mutate(&lf[1] /* (set! delete ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4483,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5274,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:75: chicken.base#make-parameter */ t5=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* delete in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_4483(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_4483,4,t1,t2,t3,t4);} a=C_alloc(8); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4489,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=((C_word)li0),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_4489(t8,t1,t3);} /* loop in delete in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_4489(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_4489,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4502,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_i_car(t2); /* mini-srfi-1.scm:106: test */ t5=((C_word*)t0)[3];{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}} /* k4500 in loop in delete in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_4502(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4502,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* mini-srfi-1.scm:107: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_4489(t4,((C_word*)t0)[4],t3);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4516,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* mini-srfi-1.scm:109: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_4489(t7,t4,t6);}} /* k4514 in k4500 in loop in delete in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_4516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_4516,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5274(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5274,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[2]+1 /* (set! ##sys#current-module ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5278,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:76: chicken.base#make-parameter */ t4=*((C_word*)lf[241]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(113,c,11)))){ C_save_and_reclaim((void *)f_5278,2,av);} a=C_alloc(113); t2=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#module-alias-environment ...) */,t1); t3=C_mutate((C_word*)lf[4]+1 /* (set! module ...) */,lf[4]); t4=C_mutate(&lf[5] /* (set! module-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5293,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate((C_word*)lf[7]+1 /* (set! module-undefined-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5383,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate((C_word*)lf[8]+1 /* (set! set-module-undefined-list! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5392,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate((C_word*)lf[10]+1 /* (set! ##sys#module-name ...) */,lf[5]); t8=C_mutate((C_word*)lf[11]+1 /* (set! ##sys#module-exports ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5528,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate((C_word*)lf[15]+1 /* (set! ##sys#register-module-alias ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5552,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate((C_word*)lf[16]+1 /* (set! ##sys#with-module-aliases ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5570,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate((C_word*)lf[20]+1 /* (set! ##sys#resolve-module-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5673,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate((C_word*)lf[24]+1 /* (set! ##sys#find-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5720,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t13=C_SCHEME_FALSE; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_mutate((C_word*)lf[27]+1 /* (set! ##sys#switch-module ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5774,a[2]=t14,a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp)); t16=C_mutate((C_word*)lf[31]+1 /* (set! ##sys#add-to-export-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5827,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate((C_word*)lf[34]+1 /* (set! ##sys#toplevel-definition-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5916,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate((C_word*)lf[35]+1 /* (set! ##sys#register-meta-expression ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5919,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate(&lf[37] /* (set! check-for-redef ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5939,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate((C_word*)lf[41]+1 /* (set! ##sys#register-export ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5960,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate((C_word*)lf[46]+1 /* (set! ##sys#register-syntax-export ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6049,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate((C_word*)lf[49]+1 /* (set! ##sys#unregister-syntax-export ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6130,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate((C_word*)lf[50]+1 /* (set! ##sys#register-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6223,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate(&lf[51] /* (set! merge-se ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6533,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate((C_word*)lf[56]+1 /* (set! ##sys#compiled-module-registration ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6686,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate((C_word*)lf[66]+1 /* (set! ##sys#register-compiled-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7073,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate((C_word*)lf[75]+1 /* (set! ##sys#register-core-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7399,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate((C_word*)lf[77]+1 /* (set! ##sys#register-primitive-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7513,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate(&lf[45] /* (set! find-export ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7528,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate((C_word*)lf[78]+1 /* (set! ##sys#finalize-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7606,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t31=C_set_block_item(lf[25] /* ##sys#module-table */,0,C_SCHEME_END_OF_LIST); t32=C_mutate((C_word*)lf[103]+1 /* (set! ##sys#import-library-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8218,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate(&lf[111] /* (set! find-module/import-library ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8357,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate((C_word*)lf[112]+1 /* (set! ##sys#decompose-import ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8372,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate((C_word*)lf[136]+1 /* (set! ##sys#expand-import ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9276,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate((C_word*)lf[138]+1 /* (set! ##sys#import ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9340,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate(&lf[44] /* (set! module-rename ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9782,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate((C_word*)lf[146]+1 /* (set! ##sys#alias-global-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9800,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate((C_word*)lf[147]+1 /* (set! ##sys#validate-exports ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9880,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate((C_word*)lf[158]+1 /* (set! ##sys#register-functor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10095,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate((C_word*)lf[159]+1 /* (set! ##sys#instantiate-functor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10111,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate(&lf[163] /* (set! match-functor-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10337,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp)); t43=lf[171]; t44=*((C_word*)lf[172]+1); t45=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10497,a[2]=((C_word*)t0)[2],a[3]=t44,a[4]=t43,tmp=(C_word)a,a+=5,tmp); /* modules.scm:1020: ##sys#register-core-module */ t46=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t46; av2[1]=t45; av2[2]=lf[240]; av2[3]=lf[182]; av2[4]=t43; av2[5]=*((C_word*)lf[172]+1); ((C_proc)(void*)(*((C_word*)t46+1)))(6,av2);}} /* module-name in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5293,3,av);} t3=C_i_check_structure_2(t2,lf[4],lf[6]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* module-undefined-list in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5383(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5383,3,av);} t3=C_i_check_structure_2(t2,lf[4],lf[7]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_block_ref(t2,C_fix(7)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* set-module-undefined-list! in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5392(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5392,4,av);} t4=C_i_check_structure_2(t2,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t5=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(7); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* ##sys#module-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5528,3,av);} t3=t2; t4=C_i_check_structure_2(t3,lf[4],lf[12]); t5=C_i_block_ref(t3,C_fix(3)); t6=t2; t7=C_i_check_structure_2(t6,lf[4],lf[13]); t8=C_i_block_ref(t6,C_fix(11)); t9=t2; t10=C_i_check_structure_2(t9,lf[4],lf[14]); t11=C_i_block_ref(t9,C_fix(12)); /* modules.scm:117: scheme#values */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t8; av2[4]=t11; C_values(5,av2);}} /* ##sys#register-module-alias in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5552,4,av);} a=C_alloc(7); t4=C_a_i_cons(&a,2,t2,t3); t5=t4; t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5568,a[2]=t5,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* modules.scm:127: ##sys#module-alias-environment */ t7=*((C_word*)lf[3]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* k5566 in ##sys#register-module-alias in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5568(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5568,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* modules.scm:126: ##sys#module-alias-environment */ t3=*((C_word*)lf[3]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_5570,4,av);} a=C_alloc(21); t4=*((C_word*)lf[3]+1); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5574,a[2]=t4,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=C_i_check_list_2(t2,lf[18]); t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5633,a[2]=t5,tmp=(C_word)a,a+=3,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5639,a[2]=t8,a[3]=t13,a[4]=t9,a[5]=((C_word)li10),tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_5639(t15,t11,t2);} /* k5572 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5574(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_5574,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_TRUE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5579,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word)li7),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5596,a[2]=((C_word*)t0)[3],a[3]=((C_word)li8),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5602,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li9),tmp=(C_word)a,a+=5,tmp); /* modules.scm:130: ##sys#dynamic-wind */ t9=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=((C_word*)t0)[4]; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a5578 in k5572 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5579,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5583,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ /* modules.scm:130: ##sys#module-alias-environment890 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_5583(2,av2);}}} /* k5581 in a5578 in k5572 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5583,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5587,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* modules.scm:130: ##sys#module-alias-environment890 */ t4=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k5585 in k5581 in a5578 in k5572 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5587(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_5587,2,av);} a=C_alloc(4); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5590,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* modules.scm:130: ##sys#module-alias-environment890 */ t4=((C_word*)t0)[5];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k5588 in k5585 in k5581 in a5578 in k5572 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5590,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5595 in k5572 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5596,2,av);} /* modules.scm:134: thunk */ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} /* a5601 in k5572 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5602(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5602,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5606,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:130: ##sys#module-alias-environment890 */ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k5604 in a5601 in k5572 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5606,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5609,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:130: ##sys#module-alias-environment890 */ t4=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k5607 in k5604 in a5601 in k5572 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5609(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5609,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k5631 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5633,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5637,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* modules.scm:133: ##sys#module-alias-environment */ t4=*((C_word*)lf[3]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5635 in k5631 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5637,2,av);} /* modules.scm:131: scheme#append */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop899 in ##sys#with-module-aliases in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_5639(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_5639,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_i_cadr(t3); t6=C_a_i_cons(&a,2,t4,t5); t7=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST); t8=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t7); t9=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7); t10=C_slot(t2,C_fix(1)); t12=t1; t13=t10; t1=t12; t2=t13; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* ##sys#resolve-module-name in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5673,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5681,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* modules.scm:137: chicken.internal#library-id */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[23]+1); av2[1]=t4; av2[2]=t2; tp(3,av2);}} /* k5679 in ##sys#resolve-module-name in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_5681,2,av);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li13),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_5683(t5,((C_word*)t0)[4],t1,C_SCHEME_END_OF_LIST);} /* loop in k5679 in ##sys#resolve-module-name in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_5683(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_5683,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5718,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* modules.scm:138: ##sys#module-alias-environment */ t5=*((C_word*)lf[3]+1);{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* g943 in k5716 in loop in k5679 in ##sys#resolve-module-name in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_5691(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_5691,3,t0,t1,t2);} a=C_alloc(3); t3=C_i_cdr(t2); if(C_truep(C_i_memq(t3,((C_word*)t0)[2]))){ /* modules.scm:142: chicken.base#error */ t4=*((C_word*)lf[21]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[22]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[2]); /* modules.scm:143: loop */ t5=((C_word*)((C_word*)t0)[5])[1]; f_5683(t5,t1,t3,t4);}} /* k5716 in loop in k5679 in ##sys#resolve-module-name in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_5718,2,av);} a=C_alloc(7); t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5691,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word)li12),tmp=(C_word)a,a+=7,tmp); /* modules.scm:138: g943 */ t4=t3; f_5691(t4,((C_word*)t0)[7],t2);} else{ t3=((C_word*)t0)[2]; t4=((C_word*)t0)[7];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* ##sys#find-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +0,c,4)))){ C_save_and_reclaim((void*)f_5720,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+0); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_SCHEME_TRUE:C_i_car(t3)); t6=C_i_nullp(t3); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_FALSE:C_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=C_i_assq(t2,*((C_word*)lf[25]+1)); if(C_truep(t12)){ t13=t1;{ C_word *av2=av; av2[0]=t13; av2[1]=C_i_cdr(t12); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ if(C_truep(t5)){ /* modules.scm:148: chicken.base#error */ t13=*((C_word*)lf[21]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t13; av2[1]=t1; av2[2]=t9; av2[3]=lf[26]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} else{ t13=t1;{ C_word *av2=av; av2[0]=t13; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}} /* ##sys#switch-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5774(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5774,3,av);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5821,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* modules.scm:154: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[29]+1); av2[1]=t3; tp(2,av2);}} /* k5779 in k5823 in k5819 in ##sys#switch-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_5781,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5784,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5809,a[2]=((C_word*)t0)[5],a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp); /* modules.scm:155: g981 */ t4=t3; f_5809(t4,t2,t1);} else{ t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=t2;{ C_word *av2=av; av2[0]=t4; av2[1]=t3; f_5784(2,av2);}}} /* k5782 in k5779 in k5823 in k5819 in ##sys#switch-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5784,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5787,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(((C_word*)t0)[3])){ t3=((C_word*)t0)[3]; t4=C_i_check_structure_2(t3,lf[4],lf[30]); t5=t2; f_5787(t5,C_i_block_ref(t3,C_fix(14)));} else{ t3=t2; f_5787(t3,((C_word*)((C_word*)t0)[4])[1]);}} /* k5785 in k5782 in k5779 in k5823 in k5819 in ##sys#switch-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_5787(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_5787,2,t0,t1);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5790,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5796,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t2); /* modules.scm:162: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[29]+1); av2[1]=t4; av2[2]=t5; tp(3,av2);}} else{ /* modules.scm:164: ##sys#current-module */ t4=*((C_word*)lf[2]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k5788 in k5785 in k5782 in k5779 in k5823 in k5819 in ##sys#switch-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5790,2,av);} /* modules.scm:164: ##sys#current-module */ t2=*((C_word*)lf[2]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* k5794 in k5785 in k5782 in k5779 in k5823 in k5819 in ##sys#switch-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5796,2,av);} t2=C_u_i_cdr(((C_word*)t0)[2]); /* modules.scm:163: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[28]+1); av2[1]=((C_word*)t0)[3]; av2[2]=t2; tp(3,av2);}} /* g981 in k5779 in k5823 in k5819 in ##sys#switch-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_5809(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_5809,3,t0,t1,t2);} t3=C_i_check_structure_2(t2,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t4=*((C_word*)lf[9]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(14); av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5819 in ##sys#switch-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5821,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5825,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* modules.scm:154: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t3; tp(2,av2);}} /* k5823 in k5819 in ##sys#switch-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5825,2,av);} a=C_alloc(9); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5781,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* modules.scm:155: ##sys#current-module */ t5=*((C_word*)lf[2]+1);{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#add-to-export-list in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5827,4,av);} a=C_alloc(6); t4=t2; t5=C_i_check_structure_2(t4,lf[4],lf[12]); t6=C_i_block_ref(t4,C_fix(3)); t7=C_eqp(t6,C_SCHEME_TRUE); if(C_truep(t7)){ t8=t2; t9=C_i_check_structure_2(t8,lf[4],lf[32]); t10=C_i_block_ref(t8,C_fix(5)); t11=t10; t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5843,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t11,tmp=(C_word)a,a+=6,tmp); /* modules.scm:170: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t12; tp(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5914,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* modules.scm:180: scheme#append */ t9=*((C_word*)lf[19]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t8; av2[2]=t6; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}} /* k5841 in ##sys#add-to-export-list in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5843(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_5843,2,av);} a=C_alloc(25); t2=t1; t3=C_SCHEME_END_OF_LIST; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5852,a[2]=t4,a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5844,a[2]=t2,a[3]=t5,a[4]=((C_word)li19),tmp=(C_word)a,a+=5,tmp); t7=((C_word*)t0)[2]; t8=C_i_check_list_2(t7,lf[33]); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5866,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=t4,tmp=(C_word)a,a+=7,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5886,a[2]=t6,a[3]=t11,a[4]=((C_word)li20),tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_5886(t13,t9,t7);} /* g998 in k5841 in ##sys#add-to-export-list in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static C_word C_fcall f_5844(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_i_assq(t1,((C_word*)t0)[2]); if(C_truep(t2)){ return(( /* modules.scm:174: g1014 */ f_5852(C_a_i(&a,3),((C_word*)t0)[3],t2) ));} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* g1014 in k5841 in ##sys#add-to-export-list in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static C_word C_fcall f_5852(C_word *a,C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_stack_overflow_check;{} t2=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]); t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); return(t3);} /* k5864 in k5841 in ##sys#add-to-export-list in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_5866,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5869,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5880,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_i_check_structure_2(t4,lf[4],lf[14]); t6=C_i_block_ref(t4,C_fix(12)); /* modules.scm:178: scheme#append */ t7=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} /* k5867 in k5864 in k5841 in ##sys#add-to-export-list in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_5869,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5876,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:179: scheme#append */ t3=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k5874 in k5867 in k5864 in k5841 in ##sys#add-to-export-list in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5876,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_i_check_structure_2(t3,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t5=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=C_fix(5); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k5878 in k5864 in k5841 in ##sys#add-to-export-list in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5880,2,av);} t2=((C_word*)t0)[2]; t3=C_i_check_structure_2(t2,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t4=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_fix(12); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* for-each-loop997 in k5841 in ##sys#add-to-export-list in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_5886(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_5886,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=( /* modules.scm:172: g998 */ f_5844(C_a_i(&a,3),((C_word*)t0)[2],t3) ); t5=C_slot(t2,C_fix(1)); t7=t1; t8=t5; t1=t7; t2=t8; goto loop;} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5912 in ##sys#add-to-export-list in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5914,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_i_check_structure_2(t3,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t5=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=C_fix(3); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* ##sys#toplevel-definition-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5916,5,av);} t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* ##sys#register-meta-expression in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5919,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5923,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* modules.scm:185: ##sys#current-module */ t4=*((C_word*)lf[2]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5921 in ##sys#register-meta-expression in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_5923,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=C_i_check_structure_2(t1,lf[4],lf[36]); t3=C_i_block_ref(t1,C_fix(10)); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],t3); t5=((C_word*)t0)[3]; t6=C_i_check_structure_2(t1,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t7=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t7; av2[1]=t5; av2[2]=t1; av2[3]=C_fix(10); av2[4]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* check-for-redef in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_5939(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_5939,4,t1,t2,t3,t4);} a=C_alloc(5); t5=C_i_assq(t2,t3); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5946,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t5)){ /* modules.scm:190: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[38]+1); av2[1]=t6; av2[2]=lf[40]; av2[3]=t2; tp(4,av2);}} else{ t7=t6;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_5946(2,av2);}}} /* k5944 in check-for-redef in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5946,2,av);} if(C_truep(C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]))){ /* modules.scm:192: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[38]+1); av2[1]=((C_word*)t0)[4]; av2[2]=lf[39]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* ##sys#register-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5960,4,av);} a=C_alloc(5); if(C_truep(t3)){ t4=t3; t5=C_i_check_structure_2(t4,lf[4],lf[12]); t6=C_i_block_ref(t4,C_fix(3)); t7=C_eqp(C_SCHEME_TRUE,t6); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5970,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(t7)){ t9=t8;{ C_word *av2=av; av2[0]=t9; av2[1]=t7; f_5970(2,av2);}} else{ /* modules.scm:197: find-export */ f_7528(t8,t2,t3,C_SCHEME_TRUE);}} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k5968 in ##sys#register-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5970,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5973,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* modules.scm:198: module-undefined-list */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5971 in k5968 in ##sys#register-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_5973,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5976,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6036,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t5=((C_word*)t0)[4]; t6=C_i_check_structure_2(t5,lf[4],lf[6]); t7=C_i_block_ref(t5,C_fix(1)); /* modules.scm:200: module-rename */ f_9782(t4,((C_word*)t0)[2],t7);} /* k5974 in k5971 in k5968 in ##sys#register-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_5976,2,av);} a=C_alloc(10); t2=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5982,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6032,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* modules.scm:202: delete */ f_4483(t4,t2,((C_word*)t0)[3],*((C_word*)lf[43]+1));} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_5982(2,av2);}}} /* k5980 in k5974 in k5971 in k5968 in ##sys#register-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_5982,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5985,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6021,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:203: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[29]+1); av2[1]=t3; tp(2,av2);}} /* k5983 in k5980 in k5974 in k5971 in k5968 in ##sys#register-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5985,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5988,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[4]; t4=C_i_check_structure_2(t3,lf[4],lf[32]); t5=C_i_block_ref(t3,C_fix(5)); t6=C_a_i_cons(&a,2,((C_word*)t0)[3],t5); t7=((C_word*)t0)[4]; t8=C_i_check_structure_2(t7,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t9=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t2; av2[2]=t7; av2[3]=C_fix(5); av2[4]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* k5986 in k5983 in k5980 in k5974 in k5971 in k5968 in ##sys#register-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_5988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5988,2,av);} a=C_alloc(6); if(C_truep(((C_word*)t0)[2])){ t2=C_a_i_cons(&a,2,((C_word*)t0)[3],C_SCHEME_FALSE); t3=((C_word*)t0)[4]; t4=C_i_check_structure_2(t3,lf[4],lf[42]); t5=C_i_block_ref(t3,C_fix(4)); t6=C_a_i_cons(&a,2,t2,t5); t7=((C_word*)t0)[5]; t8=((C_word*)t0)[4]; t9=C_i_check_structure_2(t8,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t10=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=C_fix(4); av2[4]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k6019 in k5980 in k5974 in k5971 in k5968 in ##sys#register-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6021,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6025,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* modules.scm:203: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t3; tp(2,av2);}} /* k6023 in k6019 in k5980 in k5974 in k5971 in k5968 in ##sys#register-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6025,2,av);} /* modules.scm:203: check-for-redef */ f_5939(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* k6030 in k5974 in k5971 in k5968 in ##sys#register-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6032,2,av);} /* modules.scm:202: set-module-undefined-list! */ t2=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6034 in k5971 in k5968 in ##sys#register-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6036,2,av);} /* modules.scm:199: ##sys#toplevel-definition-hook */ t2=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* ##sys#register-syntax-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6049,5,av);} a=C_alloc(6); if(C_truep(t3)){ t5=t3; t6=C_i_check_structure_2(t5,lf[4],lf[12]); t7=C_i_block_ref(t5,C_fix(3)); t8=C_eqp(C_SCHEME_TRUE,t7); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6059,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); if(C_truep(t8)){ t10=t9;{ C_word *av2=av; av2[0]=t10; av2[1]=t8; f_6059(2,av2);}} else{ /* modules.scm:215: find-export */ f_7528(t9,t2,t3,C_SCHEME_TRUE);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k6057 in ##sys#register-syntax-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6059(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6059,2,av);} a=C_alloc(7); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6062,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* modules.scm:216: module-undefined-list */ t4=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6060 in k6057 in ##sys#register-syntax-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6062,2,av);} a=C_alloc(7); t2=((C_word*)t0)[2]; t3=C_i_check_structure_2(t2,lf[4],lf[6]); t4=C_i_block_ref(t2,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6068,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(C_i_assq(((C_word*)t0)[3],t1))){ /* modules.scm:219: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[38]+1); av2[1]=t5; av2[2]=lf[48]; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} else{ t6=t5;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_UNDEFINED; f_6068(2,av2);}}} /* k6066 in k6060 in k6057 in ##sys#register-syntax-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6068,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6071,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6111,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* modules.scm:220: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[29]+1); av2[1]=t3; tp(2,av2);}} /* k6069 in k6066 in k6060 in k6057 in ##sys#register-syntax-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6071(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_6071,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6077,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(((C_word*)t0)[6])){ t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t4=((C_word*)t0)[4]; t5=C_i_check_structure_2(t4,lf[4],lf[42]); t6=C_i_block_ref(t4,C_fix(4)); t7=C_a_i_cons(&a,2,t3,t6); t8=((C_word*)t0)[4]; t9=C_i_check_structure_2(t8,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t10=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t2; av2[2]=t8; av2[3]=C_fix(4); av2[4]=t7; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_6077(2,av2);}}} /* k6075 in k6069 in k6066 in k6060 in k6057 in ##sys#register-syntax-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6077,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4]; t4=C_i_check_structure_2(t3,lf[4],lf[47]); t5=C_i_block_ref(t3,C_fix(6)); t6=C_a_i_cons(&a,2,t2,t5); t7=((C_word*)t0)[5]; t8=((C_word*)t0)[4]; t9=C_i_check_structure_2(t8,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t10=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=C_fix(6); av2[4]=t6; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} /* k6109 in k6066 in k6060 in k6057 in ##sys#register-syntax-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6111,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6115,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* modules.scm:220: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t3; tp(2,av2);}} /* k6113 in k6109 in k6066 in k6060 in k6057 in ##sys#register-syntax-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6115,2,av);} /* modules.scm:220: check-for-redef */ f_5939(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* ##sys#unregister-syntax-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_6130,4,av);} a=C_alloc(7); if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6141,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=t3; t6=C_i_check_structure_2(t5,lf[4],lf[47]); t7=C_i_block_ref(t5,C_fix(6)); t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6147,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp); /* modules.scm:235: delete */ f_4483(t4,t2,t7,t8);} else{ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k6139 in ##sys#unregister-syntax-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6141,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_i_check_structure_2(t3,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t5=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=C_fix(6); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* a6146 in ##sys#unregister-syntax-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6147,4,av);} t4=C_i_car(t3); t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_eqp(t2,t4); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k6162 in g2467 in k9805 in mrename in ##sys#alias-global-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_6164,2,av);} a=C_alloc(9); t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6171,a[2]=((C_word*)t0)[3],a[3]=((C_word)li129),tmp=(C_word)a,a+=4,tmp); /* modules.scm:240: g1090 */ t4=t3; f_6171(t4,((C_word*)t0)[4],t2);} else{ if(C_truep(((C_word*)t0)[3])){ t3=C_a_i_list1(&a,1,((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,((C_word*)t0)[2],t3); t5=C_a_i_cons(&a,2,t4,t1); /* modules.scm:245: set-module-undefined-list! */ t6=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t3=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST); t4=C_a_i_cons(&a,2,t3,t1); /* modules.scm:245: set-module-undefined-list! */ t5=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[5]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} /* g1090 in k6162 in g2467 in k9805 in mrename in ##sys#alias-global-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6171(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6171,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6178,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[2])){ t4=C_i_cdr(t2); t5=C_i_memq(((C_word*)t0)[2],t4); t6=t3; f_6178(t6,C_i_not(t5));} else{ t4=t3; f_6178(t4,C_SCHEME_FALSE);}} /* k6176 in g1090 in k6162 in g2467 in k9805 in mrename in ##sys#alias-global-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6178(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,1)))){ C_save_and_reclaim_args((void *)trf_6178,2,t0,t1);} a=C_alloc(3); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_i_set_cdr(((C_word*)t0)[2],t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* ##sys#register-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +22,c,1)))){ C_save_and_reclaim((void*)f_6223,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+22); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; t6=C_i_nullp(t5); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_car(t5)); t8=C_i_nullp(t5); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t5)); t10=C_i_nullp(t9); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_car(t9)); t12=C_i_nullp(t9); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t9)); t14=t2; t15=C_a_i_record(&a,15,lf[4],t14,t3,t4,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,t7,t11,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE); t16=C_a_i_cons(&a,2,t2,t15); t17=C_a_i_cons(&a,2,t16,*((C_word*)lf[25]+1)); t18=C_mutate((C_word*)lf[25]+1 /* (set! ##sys#module-table ...) */,t17); t19=t1;{ C_word *av2=av; av2[0]=t19; av2[1]=t15; ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} /* warn in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6329(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_6329,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6337,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6341,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* modules.scm:266: scheme#symbol->string */ t6=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k6335 in warn in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6337,2,av);} /* modules.scm:265: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[38]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k6339 in warn in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_6341,2,av);} /* modules.scm:266: scheme#string-append */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[94]; av2[4]=t1; av2[5]=lf[95]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6352(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_6352,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); if(C_truep(C_i_symbolp(t3))){ t4=t2; t5=C_u_i_cdr(t4); /* modules.scm:272: loop */ t9=t1; t10=t5; t1=t9; t2=t10; goto loop;} else{ t4=C_i_cdar(t2); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6379,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word)li64),tmp=(C_word)a,a+=9,tmp)); t8=((C_word*)t6)[1]; f_6379(t8,t1,t4);}}} /* loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6379(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_6379,3,t0,t1,t2);} a=C_alloc(9); if(C_truep(C_i_nullp(t2))){ t3=C_i_cdr(((C_word*)t0)[2]); /* modules.scm:275: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6352(t4,t1,t3);} else{ t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6527,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* modules.scm:276: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[28]+1); av2[1]=t5; tp(2,av2);}}} /* k6400 in k6525 in loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6402(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6402,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* modules.scm:278: loop2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6379(t4,((C_word*)t0)[4],t3);} /* g1148 in k6525 in loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6416(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ C_save_and_reclaim_args((void *)trf_6416,3,t0,t1,t2);} a=C_alloc(12); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6424,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_i_car(((C_word*)t0)[2]); t5=t4; t6=C_i_cdr(t2); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6441,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp); if(C_truep(t6)){ t8=t3; f_6424(t8,C_a_i_cons(&a,2,t5,t6));} else{ t8=((C_word*)t0)[2]; t9=C_u_i_car(t8); /* modules.scm:284: module-rename */ f_9782(t7,t9,((C_word*)t0)[4]);}} /* k6422 in g1148 in k6525 in loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6424(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_6424,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6428,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* modules.scm:285: loop2 */ t6=((C_word*)((C_word*)t0)[4])[1]; f_6379(t6,t3,t5);} /* k6426 in k6422 in g1148 in k6525 in loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6428,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6439 in g1148 in k6525 in loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6441,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_6424(t2,C_a_i_cons(&a,2,((C_word*)t0)[3],t1));} /* g1155 in k6515 in k6525 in loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6456(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_6456,3,t0,t1,t2);} a=C_alloc(7); t3=C_i_cdr(t2); if(C_truep(C_i_symbolp(t3))){ t4=C_i_car(((C_word*)t0)[2]); t5=t2; t6=C_u_i_cdr(t5); t7=C_a_i_cons(&a,2,t4,t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6474,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=((C_word*)t0)[2]; t11=C_u_i_cdr(t10); /* modules.scm:289: loop2 */ t12=((C_word*)((C_word*)t0)[3])[1]; f_6379(t12,t9,t11);} else{ t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6485,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t5=C_i_car(((C_word*)t0)[2]); /* modules.scm:291: warn */ t6=((C_word*)t0)[4]; f_6329(t6,t4,lf[98],t5);}} /* k6472 in g1155 in k6515 in k6525 in loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6474(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6474,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6483 in g1155 in k6515 in k6525 in loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6485(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6485,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* modules.scm:292: loop2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6379(t4,((C_word*)t0)[4],t3);} /* k6502 in k6515 in k6525 in loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6504,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* modules.scm:295: loop2 */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6379(t4,((C_word*)t0)[4],t3);} /* k6515 in k6525 in loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6517(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6517,2,av);} a=C_alloc(6); t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6456,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word)li63),tmp=(C_word)a,a+=6,tmp); /* modules.scm:275: g1155 */ t4=t3; f_6456(t4,((C_word*)t0)[6],t2);} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6504,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_car(t4); /* modules.scm:294: warn */ t6=((C_word*)t0)[5]; f_6329(t6,t3,lf[99],t5);}} /* k6525 in loop2 in loop in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6527,2,av);} a=C_alloc(7); if(C_truep(C_i_assq(((C_word*)t0)[2],t1))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6402,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); /* modules.scm:277: warn */ t5=((C_word*)t0)[6]; f_6329(t5,t2,lf[97],t4);} else{ t2=((C_word*)t0)[3]; t3=C_u_i_car(t2); t4=C_i_assq(t3,((C_word*)t0)[7]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6416,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[8],a[5]=((C_word)li62),tmp=(C_word)a,a+=6,tmp); /* modules.scm:275: g1148 */ t6=t5; f_6416(t6,((C_word*)t0)[5],t4);} else{ t5=((C_word*)t0)[3]; t6=C_u_i_car(t5); t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6517,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* modules.scm:286: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[29]+1); av2[1]=t7; tp(2,av2);}}}} /* merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6533(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_6533,2,t1,t2);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6537,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* modules.scm:298: chicken.internal#make-hash-table */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[55]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[55]+1); av2[1]=t3; tp(2,av2);}} /* k6535 in merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6537,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6540,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* modules.scm:298: scheme#reverse */ t4=*((C_word*)lf[54]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6538 in k6535 in merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ C_save_and_reclaim((void *)f_6540,2,av);} a=C_alloc(7); t2=C_i_cdr(t1); t3=C_u_i_car(t1); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6551,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li33),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_6551(t7,((C_word*)t0)[3],t2,C_SCHEME_FALSE,t3);} /* loop in k6538 in k6535 in merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6551(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_6551,5,t0,t1,t2,t3,t4);} a=C_alloc(8); if(C_truep(C_i_nullp(t2))){ t5=t4; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=C_i_car(t2); t6=C_eqp(t3,t5); t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6567,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); if(C_truep(t6)){ t8=t7; f_6567(t8,t6);} else{ t8=t2; t9=C_u_i_car(t8); t10=t7; f_6567(t10,C_i_nullp(t9));}}} /* k6565 in loop in k6538 in k6535 in merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6567(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){ C_save_and_reclaim_args((void *)trf_6567,2,t0,t1);} a=C_alloc(17); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* modules.scm:302: loop */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6551(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ if(C_truep(C_i_not(((C_word*)t0)[5]))){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6579,a[2]=((C_word*)t0)[7],a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[6]; t4=C_i_check_list_2(t3,lf[33]); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6593,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6598,a[2]=t7,a[3]=t2,a[4]=((C_word)li31),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_6598(t9,t5,t3);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6626,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=((C_word*)t0)[7],a[6]=((C_word)li32),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_6626(t7,((C_word*)t0)[4],t3,((C_word*)t0)[6]);}}} /* g1186 in k6565 in loop in k6538 in k6535 in merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6579(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_6579,3,t0,t1,t2);} t3=C_i_car(t2); /* modules.scm:305: chicken.internal#hash-table-set! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[52]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[52]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t3; av2[4]=C_SCHEME_TRUE; tp(5,av2);}} /* k6591 in k6565 in loop in k6538 in k6535 in merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6593(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6593,2,av);} /* modules.scm:306: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_6551(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5]);} /* for-each-loop1185 in k6565 in loop in k6538 in k6535 in merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6598(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6598,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6608,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:305: g1186 */ t5=((C_word*)t0)[3]; f_6579(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6606 in for-each-loop1185 in k6565 in loop in k6538 in k6535 in merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6608,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6598(t3,((C_word*)t0)[4],t2);} /* lp in k6565 in loop in k6538 in k6535 in merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6626(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_6626,4,t0,t1,t2,t3);} a=C_alloc(7); if(C_truep(C_i_nullp(t2))){ t4=C_i_cdr(((C_word*)t0)[2]); t5=((C_word*)t0)[2]; t6=C_u_i_car(t5); /* modules.scm:308: loop */ t7=((C_word*)((C_word*)t0)[3])[1]; f_6551(t7,t1,t4,t6,t3);} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6648,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t5=C_i_caar(t2); /* modules.scm:309: chicken.internal#hash-table-ref */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[53]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[53]+1); av2[1]=t4; av2[2]=((C_word*)t0)[5]; av2[3]=t5; tp(4,av2);}}} /* k6646 in lp in k6565 in loop in k6538 in k6535 in merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6648(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6648,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* modules.scm:310: lp */ t4=((C_word*)((C_word*)t0)[3])[1]; f_6626(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5]);} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6656,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t3=C_i_caar(((C_word*)t0)[2]); /* modules.scm:311: chicken.internal#hash-table-set! */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[52]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[52]+1); av2[1]=t2; av2[2]=((C_word*)t0)[6]; av2[3]=t3; av2[4]=C_SCHEME_TRUE; tp(5,av2);}}} /* k6654 in k6646 in lp in k6565 in loop in k6538 in k6535 in merge-se in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6656(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_6656,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[2]; t5=C_u_i_car(t4); t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]); /* modules.scm:312: lp */ t7=((C_word*)((C_word*)t0)[4])[1]; f_6626(t7,((C_word*)t0)[5],t3,t6);} /* ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_6686,3,av);} a=C_alloc(11); t3=t2; t4=C_i_check_structure_2(t3,lf[4],lf[42]); t5=C_i_block_ref(t3,C_fix(4)); t6=t5; t7=t2; t8=C_i_check_structure_2(t7,lf[4],lf[6]); t9=C_i_block_ref(t7,C_fix(1)); t10=t9; t11=t2; t12=C_i_check_structure_2(t11,lf[4],lf[57]); t13=C_i_block_ref(t11,C_fix(8)); t14=t2; t15=C_i_check_structure_2(t14,lf[4],lf[14]); t16=C_i_block_ref(t14,C_fix(12)); t17=t16; t18=t2; t19=C_i_check_structure_2(t18,lf[4],lf[58]); t20=C_i_block_ref(t18,C_fix(9)); t21=t20; t22=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6709,a[2]=t1,a[3]=t2,a[4]=t6,a[5]=t17,a[6]=t10,a[7]=t21,tmp=(C_word)a,a+=8,tmp); t23=C_i_pairp(t13); t24=(C_truep(t23)?C_i_pairp(t17):C_SCHEME_FALSE); if(C_truep(t24)){ t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7065,a[2]=t22,tmp=(C_word)a,a+=3,tmp); /* modules.scm:321: chicken.syntax#strip-syntax */ t26=*((C_word*)lf[65]+1);{ C_word *av2=av; av2[0]=t26; av2[1]=t25; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t26+1)))(3,av2);}} else{ t25=t22; f_6709(t25,C_SCHEME_END_OF_LIST);}} /* k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6709(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ C_save_and_reclaim_args((void *)trf_6709,2,t0,t1);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6713,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6717,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t5=C_i_pairp(((C_word*)t0)[7]); t6=(C_truep(t5)?C_i_pairp(((C_word*)t0)[5]):C_SCHEME_FALSE); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7037,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* modules.scm:324: chicken.syntax#strip-syntax */ t8=*((C_word*)lf[65]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} else{ t7=t4; f_6717(t7,C_SCHEME_END_OF_LIST);}} /* k6711 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6713,2,av);} /* modules.scm:320: ##sys#append */ t2=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6717(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_6717,2,t0,t1);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6721,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6725,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,tmp=(C_word)a,a+=6,tmp); t5=C_i_getprop(((C_word*)t0)[6],lf[67],C_SCHEME_FALSE); t6=(C_truep(t5)?t5:C_i_pairp(((C_word*)t0)[5])); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7016,a[2]=t4,tmp=(C_word)a,a+=3,tmp); t8=((C_word*)t0)[3]; t9=C_i_check_structure_2(t8,lf[4],lf[36]); t10=C_i_block_ref(t8,C_fix(10)); /* modules.scm:327: chicken.syntax#strip-syntax */ t11=*((C_word*)lf[65]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t7; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t7=t4;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_END_OF_LIST; f_6725(2,av2);}}} /* k6719 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6721,2,av);} /* modules.scm:320: ##sys#append */ t2=*((C_word*)lf[59]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){ C_save_and_reclaim((void *)f_6725,2,av);} a=C_alloc(34); t2=t1; t3=((C_word*)t0)[2]; t4=C_i_check_structure_2(t3,lf[4],lf[6]); t5=C_i_block_ref(t3,C_fix(1)); t6=C_a_i_list(&a,2,lf[60],t5); t7=t6; t8=((C_word*)t0)[2]; t9=C_i_check_structure_2(t8,lf[4],lf[61]); t10=C_i_block_ref(t8,C_fix(2)); t11=C_a_i_list(&a,2,lf[60],t10); t12=t11; t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t14=t13; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=((C_word*)t15)[1]; t17=((C_word*)t0)[2]; t18=C_i_check_structure_2(t17,lf[4],lf[62]); t19=C_i_block_ref(t17,C_fix(13)); t20=C_i_check_list_2(t19,lf[18]); t21=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t7,a[6]=t12,a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t22=C_SCHEME_UNDEFINED; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6961,a[2]=t15,a[3]=t23,a[4]=t16,a[5]=((C_word)li38),tmp=(C_word)a,a+=6,tmp)); t25=((C_word*)t23)[1]; f_6961(t25,t21,t19);} /* k6755 in k6868 in k6957 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6757(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(24,0,3)))){ C_save_and_reclaim_args((void *)trf_6757,2,t0,t1);} a=C_alloc(24); t2=C_a_i_list(&a,7,lf[66],((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1); t3=C_a_i_list(&a,1,t2); /* modules.scm:320: ##sys#append */ t4=*((C_word*)lf[59]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=((C_word*)t0)[7]; av2[2]=((C_word*)t0)[8]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k6759 in k6868 in k6957 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6761,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_6757(t2,C_a_i_cons(&a,2,lf[63],t1));} /* loop in k6868 in k6957 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6773(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ C_save_and_reclaim_args((void *)trf_6773,3,t0,t1,t2);} a=C_alloc(12); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_caar(t2); if(C_truep(C_i_assq(t3,((C_word*)t0)[2]))){ t4=t2; t5=C_u_i_cdr(t4); /* modules.scm:354: loop */ t15=t1; t16=t5; t1=t15; t2=t16; goto loop;} else{ t4=C_i_caar(t2); t5=t2; t6=C_u_i_car(t5); t7=C_u_i_car(t6); t8=C_a_i_list(&a,2,lf[60],t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6815,a[2]=t9,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t11=t2; t12=C_u_i_car(t11); t13=C_u_i_cdr(t12); /* modules.scm:357: chicken.syntax#strip-syntax */ t14=*((C_word*)lf[65]+1);{ C_word av2[3]; av2[0]=t14; av2[1]=t10; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}}}} /* k6803 in k6813 in loop in k6868 in k6957 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_6805,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6813 in loop in k6868 in k6957 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6815,2,av);} a=C_alloc(13); t2=C_a_i_list(&a,3,lf[64],((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6805,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[4]; t6=C_u_i_cdr(t5); /* modules.scm:358: loop */ t7=((C_word*)((C_word*)t0)[5])[1]; f_6773(t7,t4,t6);} /* g1278 in k6957 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6830(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_6830,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_car(t2); t4=C_i_assq(t3,((C_word*)t0)[2]); if(C_truep(C_i_pairp(t4))){ t5=t2; t6=C_u_i_car(t5); t7=C_a_i_list(&a,2,lf[60],t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6854,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); t10=C_u_i_cdr(t4); /* modules.scm:344: chicken.syntax#strip-syntax */ t11=*((C_word*)lf[65]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_a_i_list(&a,2,lf[60],t3); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k6852 in g1278 in k6957 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_6854,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list(&a,3,lf[64],((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6868 in k6957 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6870(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_6870,2,av);} a=C_alloc(22); t2=C_a_i_cons(&a,2,lf[63],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6757,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6761,a[2]=t4,tmp=(C_word)a,a+=3,tmp); if(C_truep(C_i_nullp(((C_word*)t0)[8]))){ t6=t4; f_6757(t6,C_a_i_cons(&a,2,lf[63],C_SCHEME_END_OF_LIST));} else{ t6=((C_word*)t0)[9]; t7=C_i_check_structure_2(t6,lf[4],lf[47]); t8=C_i_block_ref(t6,C_fix(6)); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6773,a[2]=((C_word*)t0)[8],a[3]=t10,a[4]=((C_word)li36),tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_6773(t12,t5,t8);}} /* map-loop1272 in k6957 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6872(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6872,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6897,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:340: g1278 */ t5=((C_word*)t0)[4]; f_6830(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6895 in map-loop1272 in k6957 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6897,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6872(t6,((C_word*)t0)[5],t5);} /* k6957 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_6959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,c,3)))){ C_save_and_reclaim((void *)f_6959,2,av);} a=C_alloc(37); t2=C_a_i_cons(&a,2,lf[63],t1); t3=t2; t4=((C_word*)t0)[2]; t5=C_i_check_structure_2(t4,lf[4],lf[13]); t6=C_i_block_ref(t4,C_fix(11)); t7=C_a_i_list(&a,2,lf[60],t6); t8=t7; t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t10=t9; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=((C_word*)t11)[1]; t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6830,a[2]=((C_word*)t0)[3],a[3]=((C_word)li35),tmp=(C_word)a,a+=4,tmp); t14=C_i_check_list_2(((C_word*)t0)[4],lf[18]); t15=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6870,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=t8,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6872,a[2]=t11,a[3]=t17,a[4]=t13,a[5]=t12,a[6]=((C_word)li37),tmp=(C_word)a,a+=7,tmp)); t19=((C_word*)t17)[1]; f_6872(t19,t15,((C_word*)t0)[4]);} /* map-loop1239 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6961(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(30,0,2)))){ C_save_and_reclaim_args((void *)trf_6961,3,t0,t1,t2);} a=C_alloc(30); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6986,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=C_i_cdr(t4); if(C_truep(C_i_symbolp(t5))){ t6=C_u_i_car(t4); t7=C_u_i_cdr(t4); t8=C_a_i_cons(&a,2,t6,t7); t9=t3; f_6986(t9,C_a_i_list(&a,2,lf[60],t8));} else{ t6=C_u_i_car(t4); t7=C_a_i_list(&a,2,lf[60],t6); t8=C_a_i_list(&a,2,lf[60],C_SCHEME_END_OF_LIST); t9=C_u_i_cdr(t4); t10=t3; f_6986(t10,C_a_i_list(&a,4,lf[63],t7,t8,t9));}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6984 in map-loop1239 in k6723 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_6986(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_6986,2,t0,t1);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6961(t6,((C_word*)t0)[5],t5);} /* k7014 in k6715 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7016,2,av);} /* modules.scm:327: ##sys#fast-reverse */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[68]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k7035 in k6707 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7037,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,lf[69],t1); t3=((C_word*)t0)[2]; f_6717(t3,C_a_i_list(&a,1,t2));} /* k7063 in ##sys#compiled-module-registration in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ C_save_and_reclaim((void *)f_7065,2,av);} a=C_alloc(18); t2=C_a_i_cons(&a,2,lf[69],t1); t3=C_a_i_list(&a,2,lf[60],t2); t4=C_a_i_list(&a,2,lf[70],t3); t5=((C_word*)t0)[2]; f_6709(t5,C_a_i_list(&a,1,t4));} /* ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word *a; if(c<7) C_bad_min_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-7)*C_SIZEOF_PAIR +21,c,3)))){ C_save_and_reclaim((void*)f_7073,c,av);} a=C_alloc((c-7)*C_SIZEOF_PAIR+21); t7=C_build_rest(&a,c,7,av); C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t8=C_i_nullp(t7); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_car(t7)); t10=t9; t11=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t12=t11; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=((C_word*)t13)[1]; t15=C_i_check_list_2(t6,lf[18]); t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7138,a[2]=t10,a[3]=t2,a[4]=t3,a[5]=t5,a[6]=t4,a[7]=t1,tmp=(C_word)a,a+=8,tmp); t17=C_SCHEME_UNDEFINED; t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7359,a[2]=t13,a[3]=t18,a[4]=t14,a[5]=((C_word)li45),tmp=(C_word)a,a+=6,tmp)); t20=((C_word*)t18)[1]; f_7359(t20,t16,t6);} /* k7101 in map-loop1346 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7103,2,av);} t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=C_i_cdr(t2); if(C_truep(C_i_pairp(t3))){ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* modules.scm:370: ##sys#error */ t4=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[73]; av2[3]=lf[74]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ /* modules.scm:370: ##sys#error */ t3=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[73]; av2[3]=lf[74]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k7126 in map-loop1346 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7128(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_7128,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],C_SCHEME_FALSE,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ C_save_and_reclaim((void *)f_7138,2,av);} a=C_alloc(21); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=C_i_check_list_2(((C_word*)t0)[2],lf[18]); t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7164,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7325,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li44),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_7325(t12,t8,((C_word*)t0)[2]);} /* k7152 in map-loop1374 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ C_save_and_reclaim((void *)f_7154,2,av);} a=C_alloc(9); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],C_SCHEME_FALSE,t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7164(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){ C_save_and_reclaim((void *)f_7164,2,av);} a=C_alloc(31); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=((C_word*)t0)[5]; t7=C_a_i_record(&a,15,lf[4],t3,t4,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,t5,((C_word*)t0)[6],t6,C_SCHEME_FALSE); t8=t7; t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7170,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t8,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); t10=C_i_nullp(((C_word*)t0)[6]); t11=C_i_not(t10); t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7301,a[2]=t9,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=t2,tmp=(C_word)a,a+=7,tmp); if(C_truep(t11)){ t13=t12; f_7301(t13,t11);} else{ t13=C_i_nullp(t2); t14=t12; f_7301(t14,C_i_not(t13));}} /* k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_7170,2,av);} a=C_alloc(20); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7171,a[2]=t2,a[3]=((C_word)li40),tmp=(C_word)a,a+=4,tmp); t4=C_i_check_list_2(((C_word*)t0)[2],lf[33]); t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7196,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7274,a[2]=t7,a[3]=t3,a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_7274(t9,t5,((C_word*)t0)[2]);} /* g1407 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7171(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_7171,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7183,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_cadr(t2); if(C_truep(t6)){ /* modules.scm:393: merge-se */ f_6533(t5,C_a_i_list(&a,2,t6,((C_word*)t0)[2]));} else{ /* modules.scm:393: merge-se */ f_6533(t5,C_a_i_list(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]));}} /* k7181 in g1407 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7183,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_set_car(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7194 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_7196,2,av);} a=C_alloc(18); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7197,a[2]=((C_word*)t0)[2],a[3]=((C_word)li41),tmp=(C_word)a,a+=4,tmp); t3=C_i_check_list_2(((C_word*)t0)[3],lf[33]); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7222,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7251,a[2]=t6,a[3]=t2,a[4]=((C_word)li42),tmp=(C_word)a,a+=5,tmp)); t8=((C_word*)t6)[1]; f_7251(t8,t4,((C_word*)t0)[3]);} /* g1417 in k7194 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7197(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_7197,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_cdr(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7209,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_i_cadr(t2); if(C_truep(t6)){ /* modules.scm:397: merge-se */ f_6533(t5,C_a_i_list(&a,2,t6,((C_word*)t0)[2]));} else{ /* modules.scm:397: merge-se */ f_6533(t5,C_a_i_list(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]));}} /* k7207 in g1417 in k7194 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7209,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_set_car(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7220 in k7194 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_7222,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7225,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7241,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7249,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* modules.scm:401: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[29]+1); av2[1]=t4; tp(2,av2);}} /* k7223 in k7220 in k7194 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7225,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[25]+1)); t4=C_mutate((C_word*)lf[25]+1 /* (set! ##sys#module-table ...) */,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7239 in k7220 in k7194 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7241,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7245,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:402: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t3; tp(2,av2);}} /* k7243 in k7239 in k7220 in k7194 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7245(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_7245,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_i_check_structure_2(((C_word*)t0)[3],lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t4=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(14); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k7247 in k7220 in k7194 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7249,2,av);} a=C_alloc(9); /* modules.scm:401: merge-se */ f_6533(((C_word*)t0)[2],C_a_i_list(&a,3,t1,((C_word*)t0)[3],((C_word*)t0)[4]));} /* for-each-loop1416 in k7194 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7251(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7251,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7261,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:395: g1417 */ t5=((C_word*)t0)[3]; f_7197(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7259 in for-each-loop1416 in k7194 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7261,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7251(t3,((C_word*)t0)[4],t2);} /* for-each-loop1406 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7274(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7274,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7284,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:391: g1407 */ t5=((C_word*)t0)[3]; f_7171(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7282 in for-each-loop1406 in k7168 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7284(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7284,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7274(t3,((C_word*)t0)[4],t2);} /* k7299 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7301(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_7301,2,t0,t1);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7308,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* modules.scm:387: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[28]+1); av2[1]=t2; tp(2,av2);}} else{ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_END_OF_LIST; f_7170(2,av2);}}} /* k7306 in k7299 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7308(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7308,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7312,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* modules.scm:388: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[29]+1); av2[1]=t3; tp(2,av2);}} /* k7310 in k7306 in k7299 in k7162 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_7312,2,av);} a=C_alloc(18); /* modules.scm:386: merge-se */ f_6533(((C_word*)t0)[2],C_a_i_list(&a,6,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]));} /* map-loop1374 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7325(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_7325,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7350,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=C_i_car(t4); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7154,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=C_u_i_cdr(t4); t10=C_u_i_car(t4); /* modules.scm:381: ##sys#ensure-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[71]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[71]+1); av2[1]=t8; av2[2]=t9; av2[3]=t10; tp(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7348 in map-loop1374 in k7136 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7350,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7325(t6,((C_word*)t0)[5],t5);} /* map-loop1346 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7359(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_7359,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7384,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; if(C_truep(C_i_symbolp(t4))){ t6=t5; t7=t4; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7103,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); /* modules.scm:367: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[28]+1); av2[1]=t8; tp(2,av2);}} else{ t6=C_i_car(t4); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7128,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=C_u_i_cdr(t4); t10=C_u_i_car(t4); /* modules.scm:377: ##sys#ensure-transformer */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[71]+1)); C_word av2[4]; av2[0]=*((C_word*)lf[71]+1); av2[1]=t8; av2[2]=t9; av2[3]=t10; tp(4,av2);}}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7382 in map-loop1346 in ##sys#register-compiled-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7384,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7359(t6,((C_word*)t0)[5],t5);} /* ##sys#register-core-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +7,c,2)))){ C_save_and_reclaim((void*)f_7399,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+7); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; t6=C_i_nullp(t5); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_car(t5)); t8=t7; t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7406,a[2]=t2,a[3]=t8,a[4]=t3,a[5]=t4,a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* modules.scm:407: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t9; tp(2,av2);}} /* k7404 in ##sys#register-core-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){ C_save_and_reclaim((void *)f_7406,2,av);} a=C_alloc(25); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7449,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li47),tmp=(C_word)a,a+=5,tmp); t8=C_i_check_list_2(((C_word*)t0)[3],lf[18]); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7471,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7473,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li48),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_7473(t13,t9,((C_word*)t0)[3]);} /* k7410 in k7469 in k7404 in ##sys#register-core-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_7412,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[25]+1)); t4=C_mutate((C_word*)lf[25]+1 /* (set! ##sys#module-table ...) */,t3); t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k7426 in k7469 in k7404 in ##sys#register-core-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7428(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7428,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7432,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:425: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t3; tp(2,av2);}} /* k7430 in k7426 in k7469 in k7404 in ##sys#register-core-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7432(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_7432,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_i_check_structure_2(((C_word*)t0)[3],lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t4=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(14); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k7434 in k7469 in k7404 in ##sys#register-core-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7436,2,av);} a=C_alloc(9); t2=C_i_check_structure_2(((C_word*)t0)[2],lf[4],lf[13]); t3=C_i_block_ref(((C_word*)t0)[2],C_fix(11)); t4=C_i_check_structure_2(((C_word*)t0)[2],lf[4],lf[14]); t5=C_i_block_ref(((C_word*)t0)[2],C_fix(12)); /* modules.scm:422: merge-se */ f_6533(((C_word*)t0)[3],C_a_i_list(&a,3,t1,t3,t5));} /* g1475 in k7404 in ##sys#register-core-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7449(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_7449,3,t0,t1,t2);} if(C_truep(C_i_symbolp(t2))){ t3=C_i_assq(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* modules.scm:414: ##sys#error */ t4=*((C_word*)lf[72]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t1; av2[2]=lf[76]; av2[3]=t2; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} else{ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7469 in k7404 in ##sys#register-core-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ C_save_and_reclaim((void *)f_7471,2,av);} a=C_alloc(29); t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=C_a_i_record(&a,15,lf[4],t2,t3,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,t4,t1,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7412,a[2]=((C_word*)t0)[2],a[3]=t6,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7428,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp); t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7436,a[2]=t6,a[3]=t8,tmp=(C_word)a,a+=4,tmp); /* modules.scm:422: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[29]+1); av2[1]=t9; tp(2,av2);}} /* map-loop1469 in k7404 in ##sys#register-core-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7473(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7473,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7498,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:411: g1475 */ t5=((C_word*)t0)[4]; f_7449(t5,t3,t4);} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7496 in map-loop1469 in k7404 in ##sys#register-core-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7498,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7473(t6,((C_word*)t0)[5],t5);} /* ##sys#register-primitive-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +0,c,5)))){ C_save_and_reclaim((void*)f_7513,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+0); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; if(C_truep(C_i_nullp(t4))){ /* modules.scm:431: ##sys#register-core-module */ t5=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=t2; av2[3]=t2; av2[4]=t3; av2[5]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ t5=C_i_car(t4); /* modules.scm:431: ##sys#register-core-module */ t6=*((C_word*)lf[75]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=t2; av2[4]=t3; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}} /* find-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7528(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7528,4,t1,t2,t3,t4);} a=C_alloc(5); t5=t3; t6=C_i_check_structure_2(t5,lf[4],lf[12]); t7=C_i_block_ref(t5,C_fix(3)); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7539,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t9=C_eqp(C_SCHEME_TRUE,t7); if(C_truep(t9)){ t10=t3; t11=C_i_check_structure_2(t10,lf[4],lf[32]); t12=t8; f_7539(t12,C_i_block_ref(t10,C_fix(5)));} else{ t10=t8; f_7539(t10,t7);}} /* k7537 in find-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7539(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_7539,2,t0,t1);} a=C_alloc(8); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7541,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li51),tmp=(C_word)a,a+=6,tmp)); t5=((C_word*)t3)[1]; f_7541(t5,((C_word*)t0)[4],t1);} /* loop in k7537 in find-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7541(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7541,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=C_eqp(((C_word*)t0)[2],t3); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=t2; t6=C_u_i_car(t5); if(C_truep(C_i_pairp(t6))){ t7=C_i_caar(t2); t8=C_eqp(((C_word*)t0)[2],t7); if(C_truep(t8)){ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7569,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[4])){ t10=t2; t11=C_u_i_car(t10); t12=C_u_i_cdr(t11); t13=t9; f_7569(t13,C_i_memq(((C_word*)t0)[2],t12));} else{ t10=t9; f_7569(t10,C_SCHEME_FALSE);}}} else{ t7=t2; t8=C_u_i_cdr(t7); /* modules.scm:442: loop */ t14=t1; t15=t8; t1=t14; t2=t15; goto loop;}}}} /* k7567 in loop in k7537 in find-export in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7569(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_7569,2,t0,t1);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_u_i_cdr(t2); /* modules.scm:441: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_7541(t4,((C_word*)t0)[2],t3);}} /* ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ C_save_and_reclaim((void *)f_7606,3,av);} a=C_alloc(24); t3=t2; t4=C_i_check_structure_2(t3,lf[4],lf[12]); t5=C_i_block_ref(t3,C_fix(3)); t6=t5; t7=t2; t8=C_i_check_structure_2(t7,lf[4],lf[6]); t9=C_i_block_ref(t7,C_fix(1)); t10=t9; t11=t2; t12=C_i_check_structure_2(t11,lf[4],lf[42]); t13=C_i_block_ref(t11,C_fix(4)); t14=t13; t15=t2; t16=C_i_check_structure_2(t15,lf[4],lf[32]); t17=C_i_block_ref(t15,C_fix(5)); t18=t17; t19=C_SCHEME_FALSE; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t22=t21; t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); t24=((C_word*)t23)[1]; t25=t2; t26=C_i_check_structure_2(t25,lf[4],lf[47]); t27=C_i_block_ref(t25,C_fix(6)); t28=C_i_check_list_2(t27,lf[18]); t29=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7644,a[2]=t18,a[3]=t20,a[4]=t1,a[5]=t2,a[6]=t10,a[7]=t6,a[8]=t14,tmp=(C_word)a,a+=9,tmp); t30=C_SCHEME_UNDEFINED; t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp); t32=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8183,a[2]=t23,a[3]=t31,a[4]=t24,a[5]=((C_word)li69),tmp=(C_word)a,a+=6,tmp)); t33=((C_word*)t31)[1]; f_8183(t33,t29,t27);} /* k7633 in map-loop1546 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7635(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7635,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_i_assq(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7644(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_7644,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7647,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); t4=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[7]); if(C_truep(t4)){ t5=((C_word*)t0)[5]; t6=C_i_check_structure_2(t5,lf[4],lf[14]); t7=C_i_block_ref(t5,C_fix(12)); /* modules.scm:457: merge-se */ f_6533(t3,C_a_i_list(&a,2,t7,t2));} else{ t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8146,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* modules.scm:458: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t5; tp(2,av2);}}} /* k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ C_save_and_reclaim((void *)f_7647,2,av);} a=C_alloc(19); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7650,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); t4=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[8]); t5=(C_truep(t4)?((C_word*)t0)[2]:((C_word*)t0)[8]); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8016,a[2]=t2,a[3]=t7,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word)li67),tmp=(C_word)a,a+=8,tmp)); t9=((C_word*)t7)[1]; f_8016(t9,t3,t5);} /* k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_7650,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li57),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7804,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[8],a[9]=t3,tmp=(C_word)a,a+=10,tmp); /* modules.scm:523: module-undefined-list */ t5=*((C_word*)lf[7]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7651(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_7651,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_cdr(t2); t4=t3; t5=t2; t6=C_u_i_car(t5); if(C_truep(C_i_memq(t6,((C_word*)t0)[2]))){ t7=C_SCHEME_UNDEFINED; t8=t1;{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7665,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); /* modules.scm:497: chicken.base#open-output-string */ t8=*((C_word*)lf[91]+1);{ C_word av2[2]; av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7665,2,av);} a=C_alloc(6); t2=t1; t3=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7669,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* modules.scm:499: display */ t5=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=t4; av2[2]=lf[90]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7669,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7672,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* modules.scm:500: display */ t3=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7672(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_7672,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7675,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* ##sys#write-char/port */ t3=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=C_make_character(39); av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_7675,2,av);} a=C_alloc(10); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7678,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7767,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* modules.scm:503: display */ t4=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t3; av2[2]=lf[89]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7678(2,av2);}}} /* k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7678(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_7678,2,av);} a=C_alloc(9); t2=C_i_getprop(((C_word*)t0)[2],lf[79],C_SCHEME_FALSE); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7686,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); if(C_truep(t3)){ t5=C_i_length(t3); t6=C_eqp(C_fix(1),t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7702,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* modules.scm:511: display */ t8=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[84]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7715,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* modules.scm:515: display */ t8=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t7; av2[2]=lf[87]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f11852,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); /* modules.scm:522: chicken.base#get-output-string */ t6=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k7684 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7686(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7686,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7693,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:522: chicken.base#get-output-string */ t3=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k7691 in k7684 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7693,2,av);} /* modules.scm:522: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[38]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k7700 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7702,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7705,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7712,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:512: scheme#cadar */ t4=*((C_word*)lf[83]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k7703 in k7700 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7705,2,av);} /* modules.scm:513: display */ t2=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[82]; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7710 in k7700 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7712,2,av);} /* modules.scm:512: display */ t2=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k7713 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7715,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7716,a[2]=((C_word*)t0)[2],a[3]=((C_word)li53),tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7735,a[2]=t4,a[3]=t2,a[4]=((C_word)li54),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_7735(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} /* g1648 in k7713 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7716(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7716,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7720,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* modules.scm:518: display */ t4=*((C_word*)lf[81]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[86]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7718 in g1648 in k7713 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7720,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7723,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_cadr(((C_word*)t0)[4]); /* modules.scm:519: display */ t4=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=t2; av2[2]=t3; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7721 in k7718 in g1648 in k7713 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7723,2,av);} /* ##sys#write-char/port */ t2=*((C_word*)lf[85]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=C_make_character(41); av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop1647 in k7713 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7735(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7735,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7745,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:516: g1648 */ t5=((C_word*)t0)[3]; f_7716(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7743 in for-each-loop1647 in k7713 in k7676 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7745,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7735(t3,((C_word*)t0)[4],t2);} /* k7765 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7767,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7768,a[2]=((C_word*)t0)[2],a[3]=((C_word)li55),tmp=(C_word)a,a+=4,tmp); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7780,a[2]=t4,a[3]=t2,a[4]=((C_word)li56),tmp=(C_word)a,a+=5,tmp)); t6=((C_word*)t4)[1]; f_7780(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} /* g1617 in k7765 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7768(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_7768,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7772,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* modules.scm:506: display */ t4=*((C_word*)lf[81]+1);{ C_word av2[4]; av2[0]=t4; av2[1]=t3; av2[2]=lf[88]; av2[3]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} /* k7770 in g1617 in k7765 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7772,2,av);} /* modules.scm:507: display */ t2=*((C_word*)lf[81]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* for-each-loop1616 in k7765 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7780(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7780,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7790,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:504: g1617 */ t5=((C_word*)t0)[3]; f_7768(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7788 in for-each-loop1616 in k7765 in k7673 in k7670 in k7667 in k7663 in g1601 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7790,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7780(t3,((C_word*)t0)[4],t2);} /* k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ C_save_and_reclaim((void *)f_7804,2,av);} a=C_alloc(16); t2=C_i_check_list_2(t1,lf[33]); t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7810,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7989,a[2]=t5,a[3]=((C_word*)t0)[9],a[4]=((C_word)li66),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_7989(t7,t3,t1);} /* k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7810,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)((C_word*)t0)[7])[1])){ /* modules.scm:525: ##sys#error */ t3=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[100]; av2[3]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_UNDEFINED; f_7813(2,av2);}}} /* k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7813(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ C_save_and_reclaim((void *)f_7813,2,av);} a=C_alloc(27); t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t3=t2; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=((C_word*)t4)[1]; t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7848,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t4,a[8]=t5,tmp=(C_word)a,a+=9,tmp); t7=((C_word*)t0)[4]; t8=C_i_check_structure_2(t7,lf[4],lf[12]); t9=C_i_block_ref(t7,C_fix(3)); t10=C_i_check_structure_2(t7,lf[4],lf[6]); t11=C_i_block_ref(t7,C_fix(1)); t12=t11; t13=C_i_check_structure_2(t7,lf[4],lf[42]); t14=C_i_block_ref(t7,C_fix(4)); t15=t14; t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6329,a[2]=t12,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp); t17=C_eqp(C_SCHEME_TRUE,t9); if(C_truep(t17)){ t18=t6;{ C_word *av2=av; av2[0]=t18; av2[1]=C_SCHEME_END_OF_LIST; f_7848(2,av2);}} else{ t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6352,a[2]=t19,a[3]=t16,a[4]=t15,a[5]=t12,a[6]=((C_word)li65),tmp=(C_word)a,a+=7,tmp)); t21=((C_word*)t19)[1]; f_6352(t21,t6,t9);}} /* k7839 in map-loop1681 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7841,2,av);} t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_u_i_car(((C_word*)t0)[4]); /* modules.scm:530: ##sys#error */ t4=*((C_word*)lf[72]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=lf[92]; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} /* k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_7848,2,av);} a=C_alloc(15); t2=C_i_check_list_2(t1,lf[18]); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7854,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7952,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=((C_word)li60),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_7952(t7,t3,t1);} /* k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_7854,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7946,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); /* modules.scm:533: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t4; tp(2,av2);}} /* k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_7857,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7858,a[2]=t2,a[3]=((C_word)li58),tmp=(C_word)a,a+=4,tmp); t4=C_i_check_list_2(((C_word*)t0)[2],lf[33]); t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7880,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7921,a[2]=t7,a[3]=t3,a[4]=((C_word)li59),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_7921(t9,t5,((C_word*)t0)[2]);} /* g1717 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7858(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_7858,3,t0,t1,t2);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7862,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=C_i_cadr(t2); /* modules.scm:538: merge-se */ f_6533(t3,C_a_i_list(&a,2,t4,((C_word*)t0)[2]));} /* k7860 in g1717 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7862,2,av);} t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_set_car(t3,t1); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k7878 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_7880,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7886,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[3]; t4=C_i_check_structure_2(t3,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t5=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=C_fix(11); av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k7884 in k7878 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_7886,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7889,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); t3=((C_word*)t0)[3]; t4=C_i_check_structure_2(t3,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t5=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=t3; av2[3]=C_fix(12); av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} /* k7887 in k7884 in k7878 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_7889,2,av);} a=C_alloc(16); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7892,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7915,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_i_check_structure_2(t4,lf[4],lf[62]); t6=C_i_block_ref(t4,C_fix(13)); /* modules.scm:553: merge-se */ f_6533(t3,C_a_i_list(&a,2,t6,((C_word*)t0)[6]));} /* k7890 in k7887 in k7884 in k7878 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7892,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7903,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7911,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); /* modules.scm:556: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[29]+1); av2[1]=t3; tp(2,av2);}} /* k7901 in k7890 in k7887 in k7884 in k7878 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7903(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_7903,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7907,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:557: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[28]+1); av2[1]=t3; tp(2,av2);}} /* k7905 in k7901 in k7890 in k7887 in k7884 in k7878 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_7907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_7907,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=C_i_check_structure_2(t4,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t6=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(14); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k7909 in k7890 in k7887 in k7884 in k7878 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_7911,2,av);} a=C_alloc(9); /* modules.scm:556: merge-se */ f_6533(((C_word*)t0)[2],C_a_i_list(&a,3,t1,((C_word*)t0)[3],((C_word*)t0)[4]));} /* k7913 in k7887 in k7884 in k7878 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7915(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7915,2,av);} t2=((C_word*)t0)[2]; t3=C_i_check_structure_2(t2,lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t4=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[3]; av2[2]=t2; av2[3]=C_fix(13); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* for-each-loop1716 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7921(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7921,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7931,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:536: g1717 */ t5=((C_word*)t0)[3]; f_7858(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7929 in for-each-loop1716 in k7855 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7931,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7921(t3,((C_word*)t0)[4],t2);} /* k7944 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_7946,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7950,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* modules.scm:534: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[29]+1); av2[1]=t3; tp(2,av2);}} /* k7948 in k7944 in k7852 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ C_save_and_reclaim((void *)f_7950,2,av);} a=C_alloc(18); /* modules.scm:532: merge-se */ f_6533(((C_word*)t0)[2],C_a_i_list(&a,6,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]));} /* map-loop1681 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7952(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ C_save_and_reclaim_args((void *)trf_7952,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7977,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=t4; t7=C_i_cdr(t6); if(C_truep(C_i_symbolp(t7))){ t8=t5;{ C_word av2[2]; av2[0]=t8; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=C_u_i_car(t6); t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7841,a[2]=t8,a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); /* modules.scm:529: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[28]+1); av2[1]=t9; tp(2,av2);}}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k7975 in map-loop1681 in k7846 in k7811 in k7808 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_7977,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_7952(t6,((C_word*)t0)[5],t5);} /* for-each-loop1600 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_7989(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_7989,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7999,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:492: g1601 */ t5=((C_word*)t0)[3]; f_7651(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k7997 in for-each-loop1600 in k7802 in k7648 in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_7999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7999,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_7989(t3,((C_word*)t0)[4],t2);} /* loop in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8016(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(17,0,2)))){ C_save_and_reclaim_args((void *)trf_8016,3,t0,t1,t2);} a=C_alloc(17); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_car(t2); t4=C_i_symbolp(t3); t5=(C_truep(t4)?t3:C_i_car(t3)); t6=t5; if(C_truep(C_i_assq(t6,((C_word*)t0)[2]))){ t7=t2; t8=C_u_i_cdr(t7); /* modules.scm:470: loop */ t14=t1; t15=t8; t1=t14; t2=t15; goto loop;} else{ t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8047,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t8=C_i_assq(t6,((C_word*)t0)[4]); t9=t8; t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8060,a[2]=t7,a[3]=t6,tmp=(C_word)a,a+=4,tmp); t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8063,a[2]=t9,a[3]=t7,a[4]=t6,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t10,tmp=(C_word)a,a+=8,tmp); if(C_truep(t9)){ t12=C_i_cdr(t9); t13=t11; f_8063(t13,C_i_symbolp(t12));} else{ t12=t11; f_8063(t12,C_SCHEME_FALSE);}}}} /* k8045 in loop in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8047(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ C_save_and_reclaim_args((void *)trf_8047,2,t0,t1);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8051,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=((C_word*)t0)[3]; t5=C_u_i_cdr(t4); /* modules.scm:491: loop */ t6=((C_word*)((C_word*)t0)[4])[1]; f_8016(t6,t3,t5);} /* k8049 in k8045 in loop in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8051,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k8058 in loop in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8060,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_8047(t2,C_a_i_cons(&a,2,((C_word*)t0)[3],t1));} /* k8061 in loop in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8063(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_8063,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_8047(t3,C_a_i_cons(&a,2,((C_word*)t0)[4],t2));} else{ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8113,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* modules.scm:477: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[29]+1); av2[1]=t2; tp(2,av2);}}} /* k8073 in k8111 in k8061 in loop in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8075(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_8075,2,t0,t1);} a=C_alloc(11); if(C_truep(t1)){ t2=C_i_cdr(((C_word*)t0)[2]); t3=((C_word*)t0)[3]; f_8047(t3,C_a_i_cons(&a,2,((C_word*)t0)[4],t2));} else{ if(C_truep(C_i_not(((C_word*)t0)[5]))){ t2=C_set_block_item(((C_word*)t0)[6],0,C_SCHEME_TRUE); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8091,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8095,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8099,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* modules.scm:486: scheme#symbol->string */ t6=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* modules.scm:490: module-rename */ f_9782(((C_word*)t0)[8],((C_word*)t0)[4],((C_word*)t0)[7]);}}} /* k8089 in k8073 in k8111 in k8061 in loop in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8091,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; f_8047(t2,C_a_i_cons(&a,2,((C_word*)t0)[3],C_SCHEME_FALSE));} /* k8093 in k8073 in k8111 in k8061 in loop in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8095,2,av);} /* modules.scm:483: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[38]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k8097 in k8073 in k8111 in k8061 in loop in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8099,2,av);} /* modules.scm:484: scheme#string-append */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[101]; av2[3]=t1; av2[4]=lf[102]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8111 in k8061 in loop in k7645 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8113,2,av);} a=C_alloc(9); t2=C_i_assq(((C_word*)t0)[2],t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8075,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); if(C_truep(t3)){ t5=C_i_cdr(t3); t6=t4; f_8075(t6,C_i_symbolp(t5));} else{ t5=t4; f_8075(t5,C_SCHEME_FALSE);}} /* k8144 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_8146,2,av);} a=C_alloc(7); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8148,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li68),tmp=(C_word)a,a+=5,tmp)); t5=((C_word*)t3)[1]; f_8148(t5,((C_word*)t0)[3],t1);} /* loop in k8144 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8148(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_8148,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8161,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t4=C_i_caar(t2); /* modules.scm:460: find-export */ f_7528(t3,t4,((C_word*)t0)[3],C_SCHEME_FALSE);}} /* k8159 in loop in k8144 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8161,2,av);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_u_i_car(t2); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8170,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=((C_word*)t0)[2]; t6=C_u_i_cdr(t5); /* modules.scm:461: loop */ t7=((C_word*)((C_word*)t0)[4])[1]; f_8148(t7,t4,t6);} else{ t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); /* modules.scm:462: loop */ t4=((C_word*)((C_word*)t0)[4])[1]; f_8148(t4,((C_word*)t0)[3],t3);}} /* k8168 in k8159 in loop in k8144 in k7642 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8170,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* map-loop1546 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8183(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ C_save_and_reclaim_args((void *)trf_8183,3,t0,t1,t2);} a=C_alloc(10); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8208,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); t5=t3; t6=C_i_car(t4); t7=t6; t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7635,a[2]=t5,a[3]=t7,tmp=(C_word)a,a+=4,tmp); /* modules.scm:453: ##sys#macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); C_word av2[2]; av2[0]=*((C_word*)lf[28]+1); av2[1]=t8; tp(2,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8206 in map-loop1546 in ##sys#finalize-module in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8208,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_8183(t6,((C_word*)t0)[5],t5);} /* ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_8218,3,av);} a=C_alloc(10); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8222,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8350,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8354,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* modules.scm:566: scheme#symbol->string */ t6=*((C_word*)lf[96]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8222(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8222,2,av);} a=C_alloc(9); t2=t1; if(C_truep(t2)){ t3=*((C_word*)lf[2]+1); t4=*((C_word*)lf[29]+1); t5=*((C_word*)lf[104]+1); t6=*((C_word*)lf[28]+1); t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8228,a[2]=t6,a[3]=t5,a[4]=t4,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=t2,a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); /* modules.scm:571: ##sys#current-meta-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[104]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[104]+1); av2[1]=t7; tp(2,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_8228,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8231,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); /* modules.scm:573: ##sys#meta-macro-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[107]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[107]+1); av2[1]=t3; tp(2,av2);}} /* k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8231(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(38,c,4)))){ C_save_and_reclaim((void *)f_8231,2,av);} a=C_alloc(38); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_END_OF_LIST; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t0)[2]; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=t1; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_SCHEME_TRUE; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8236,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=t11,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word)li71),tmp=(C_word)a,a+=12,tmp); t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8292,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word)li75),tmp=(C_word)a,a+=5,tmp); t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8317,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word)li76),tmp=(C_word)a,a+=11,tmp); /* modules.scm:568: ##sys#dynamic-wind */ t15=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=((C_word*)t0)[9]; av2[2]=t12; av2[3]=t13; av2[4]=t14; ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} /* a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_8236,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8240,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* modules.scm:568: ##sys#current-module1750 */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} else{ t3=t2;{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)((C_word*)t0)[2])[1]; f_8240(2,av2);}}} /* k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_8240,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8243,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,tmp=(C_word)a,a+=13,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* modules.scm:568: ##sys#current-environment1751 */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[3])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[3])[1]; f_8243(2,av2);}}} /* k8241 in k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_8243,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8246,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* modules.scm:568: ##sys#current-meta-environment1752 */ t4=((C_word*)t0)[9];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[4])[1]; f_8246(2,av2);}}} /* k8244 in k8241 in k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ C_save_and_reclaim((void *)f_8246,2,av);} a=C_alloc(15); t2=t1; t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8249,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ /* modules.scm:568: ##sys#macro-environment1753 */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[5])[1]; av2[3]=C_SCHEME_TRUE; av2[4]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=((C_word*)((C_word*)t0)[5])[1]; f_8249(2,av2);}}} /* k8247 in k8244 in k8241 in k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_8249,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8253,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp); /* modules.scm:568: ##sys#current-module1750 */ t4=((C_word*)t0)[13];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k8251 in k8247 in k8244 in k8241 in k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_8253,2,av);} a=C_alloc(15); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8257,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp); /* modules.scm:568: ##sys#current-environment1751 */ t4=((C_word*)t0)[12];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k8255 in k8251 in k8247 in k8244 in k8241 in k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_8257,2,av);} a=C_alloc(14); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8261,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp); /* modules.scm:568: ##sys#current-meta-environment1752 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k8259 in k8255 in k8251 in k8247 in k8244 in k8241 in k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8261(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_8261,2,av);} a=C_alloc(13); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8265,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp); /* modules.scm:568: ##sys#macro-environment1753 */ t4=((C_word*)t0)[6];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k8263 in k8259 in k8255 in k8251 in k8247 in k8244 in k8241 in k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_8265,2,av);} a=C_alloc(10); t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8268,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); /* modules.scm:568: ##sys#current-module1750 */ t4=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[12]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k8266 in k8263 in k8259 in k8255 in k8251 in k8247 in k8244 in k8241 in k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_8268,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8271,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* modules.scm:568: ##sys#current-environment1751 */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k8269 in k8266 in k8263 in k8259 in k8255 in k8251 in k8247 in k8244 in k8241 in k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_8271,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8274,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* modules.scm:568: ##sys#current-meta-environment1752 */ t3=((C_word*)t0)[6];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k8272 in k8269 in k8266 in k8263 in k8259 in k8255 in k8251 in k8247 in k8244 in k8241 in k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_8274(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_8274,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8277,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* modules.scm:568: ##sys#macro-environment1753 */ t3=((C_word*)t0)[4];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k8275 in k8272 in k8269 in k8266 in k8263 in k8259 in k8255 in k8251 in k8247 in k8244 in k8241 in k8238 in a8235 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in ... */ static void C_ccall f_8277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8277,2,av);} t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a8291 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_8292,2,av);} a=C_alloc(19); t2=C_SCHEME_FALSE; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_SCHEME_FALSE; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8298,a[2]=t5,a[3]=t3,a[4]=((C_word)li72),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8303,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li73),tmp=(C_word)a,a+=5,tmp); t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8312,a[2]=t3,a[3]=t5,a[4]=((C_word)li74),tmp=(C_word)a,a+=5,tmp); /* modules.scm:574: ##sys#dynamic-wind */ t9=*((C_word*)lf[17]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t9; av2[1]=t1; av2[2]=t6; av2[3]=t7; av2[4]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} /* a8297 in a8291 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8298,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[105]+1)); t3=C_mutate((C_word*)lf[105]+1 /* (set! ##sys#notices-enabled ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a8302 in a8291 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_8303,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8307,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* modules.scm:575: scheme#load */ t3=*((C_word*)lf[106]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k8305 in a8302 in a8291 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8307,2,av);} /* modules.scm:576: ##sys#find-module */ t2=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[73]; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* a8311 in a8291 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8312(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8312,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[105]+1)); t3=C_mutate((C_word*)lf[105]+1 /* (set! ##sys#notices-enabled ...) */,((C_word*)((C_word*)t0)[3])[1]); t4=t1;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a8316 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_8317,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8321,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* modules.scm:568: ##sys#current-module1750 */ t3=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} /* k8319 in a8316 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_8321,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8324,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* modules.scm:568: ##sys#current-environment1751 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k8322 in k8319 in a8316 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8324(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_8324,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8327,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); /* modules.scm:568: ##sys#current-meta-environment1752 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k8325 in k8322 in k8319 in a8316 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ C_save_and_reclaim((void *)f_8327,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8330,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* modules.scm:568: ##sys#macro-environment1753 */ t4=((C_word*)t0)[9];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k8328 in k8325 in k8322 in k8319 in a8316 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8330(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_8330,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8333,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); /* modules.scm:568: ##sys#current-module1750 */ t4=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)((C_word*)t0)[2])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} /* k8331 in k8328 in k8325 in k8322 in k8319 in a8316 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8333(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_8333,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8336,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* modules.scm:568: ##sys#current-environment1751 */ t3=((C_word*)t0)[13];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[4])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k8334 in k8331 in k8328 in k8325 in k8322 in k8319 in a8316 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_8336,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8339,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* modules.scm:568: ##sys#current-meta-environment1752 */ t3=((C_word*)t0)[12];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[6])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k8337 in k8334 in k8331 in k8328 in k8325 in k8322 in k8319 in a8316 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_8339,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); /* modules.scm:568: ##sys#macro-environment1753 */ t3=((C_word*)t0)[11];{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)((C_word*)t0)[8])[1]; av2[3]=C_SCHEME_FALSE; av2[4]=C_SCHEME_TRUE; ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} /* k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8322 in k8319 in a8316 in k8229 in k8226 in k8220 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8342,2,av);} t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]); t6=((C_word*)t0)[10];{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k8348 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8350,2,av);} /* modules.scm:565: chicken.load#find-dynamic-extension */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[108]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[108]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=C_SCHEME_TRUE; tp(4,av2);}} /* k8352 in ##sys#import-library-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8354(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8354,2,av);} /* ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[109]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[109]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[110]; tp(4,av2);}} /* find-module/import-library in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8357(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_8357,3,t1,t2,t3);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8361,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* modules.scm:579: ##sys#resolve-module-name */ t5=*((C_word*)lf[20]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t4; av2[2]=t2; av2[3]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k8359 in find-module/import-library in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_8361,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8364,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* modules.scm:580: ##sys#find-module */ t4=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=t2; av2[3]=C_SCHEME_FALSE; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k8362 in k8359 in find-module/import-library in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8364,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* modules.scm:581: ##sys#import-library-hook */ t2=*((C_word*)lf[103]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} /* ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8372(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_8372,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8376,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp); /* modules.scm:584: r */ t7=t3;{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=lf[135]; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} /* k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_8376,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8379,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* modules.scm:585: r */ t4=((C_word*)t0)[6];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[134]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8379,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8382,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* modules.scm:586: r */ t4=((C_word*)t0)[7];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[133]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_8382,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8385,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); /* modules.scm:587: r */ t4=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[132]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,5)))){ C_save_and_reclaim((void *)f_8385,2,av);} a=C_alloc(23); t2=t1; t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8387,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8401,a[2]=((C_word*)t0)[2],a[3]=((C_word)li80),tmp=(C_word)a,a+=4,tmp)); t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8448,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t6,a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word)li112),tmp=(C_word)a,a+=12,tmp); /* modules.scm:596: scheme#call-with-current-continuation */ t10=*((C_word*)lf[131]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=((C_word*)t0)[8]; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* warn in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8387(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ C_save_and_reclaim_args((void *)trf_8387,4,t1,t2,t3,t4);} a=C_alloc(8); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8395,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8399,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* modules.scm:589: scheme#symbol->string */ t7=*((C_word*)lf[96]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t6; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k8393 in warn in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8395,2,av);} /* modules.scm:589: ##sys#warn */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[38]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=((C_word*)t0)[3]; tp(4,av2);}} /* k8397 in warn in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_8399,2,av);} /* modules.scm:589: scheme#string-append */ t2=*((C_word*)lf[93]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=lf[113]; av2[4]=t1; av2[5]=lf[114]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* tostr in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8401(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8401,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_stringp(t2))){ t3=t2; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8414,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); /* modules.scm:592: chicken.keyword#keyword? */ t4=*((C_word*)lf[120]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k8412 in tostr in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8414(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_8414,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8421,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* modules.scm:592: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[116]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[116]+1); av2[1]=t2; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ /* modules.scm:593: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[116]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[116]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; tp(3,av2);}} else{ if(C_truep(C_i_numberp(((C_word*)t0)[3]))){ t2=((C_word*)t0)[3]; /* ##sys#number->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[117]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[117]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t2; av2[3]=C_fix(10); tp(4,av2);}} else{ /* modules.scm:595: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[118]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[118]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[4]; av2[3]=lf[119]; tp(4,av2);}}}}} /* k8419 in k8412 in tostr in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_8421,2,av);} /* modules.scm:592: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[109]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[109]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; av2[3]=lf[115]; tp(4,av2);}} /* a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8448(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_8448,3,av);} a=C_alloc(20); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8451,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li81),tmp=(C_word)a,a+=5,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8499,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word)li111),tmp=(C_word)a,a+=13,tmp)); t7=((C_word*)t5)[1]; f_8499(t7,t1,((C_word*)t0)[10]);} /* module-imports in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8451(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8451,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8455,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:599: chicken.internal#library-id */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); C_word av2[3]; av2[0]=*((C_word*)lf[23]+1); av2[1]=t3; av2[2]=t2; tp(3,av2);}} /* k8453 in module-imports in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_8455,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8458,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* modules.scm:600: find-module/import-library */ f_8357(t3,t2,((C_word*)t0)[4]);} /* k8456 in k8453 in module-imports in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_8458,2,av);} if(C_truep(C_i_not(t1))){ /* modules.scm:602: k */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[4]; av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_FALSE; av2[6]=C_SCHEME_FALSE; av2[7]=C_SCHEME_FALSE; ((C_proc)C_fast_retrieve_proc(t2))(8,av2);}} else{ t2=C_i_check_structure_2(t1,lf[4],lf[6]); t3=C_i_block_ref(t1,C_fix(1)); t4=C_i_check_structure_2(t1,lf[4],lf[61]); t5=C_i_block_ref(t1,C_fix(2)); t6=C_i_check_structure_2(t1,lf[4],lf[6]); t7=C_i_block_ref(t1,C_fix(1)); t8=C_i_check_structure_2(t1,lf[4],lf[13]); t9=C_i_block_ref(t1,C_fix(11)); t10=C_i_check_structure_2(t1,lf[4],lf[14]); t11=C_i_block_ref(t1,C_fix(12)); t12=C_i_check_structure_2(t1,lf[4],lf[62]); t13=C_i_block_ref(t1,C_fix(13)); /* modules.scm:603: scheme#values */{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=0; av2[1]=((C_word*)t0)[3]; av2[2]=t3; av2[3]=t5; av2[4]=t7; av2[5]=t9; av2[6]=t11; av2[7]=t13; C_values(8,av2);}}} /* loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8499(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ C_save_and_reclaim_args((void *)trf_8499,3,t0,t1,t2);} a=C_alloc(14); if(C_truep(C_i_symbolp(t2))){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8513,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* modules.scm:611: chicken.syntax#strip-syntax */ t4=*((C_word*)lf[65]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ /* modules.scm:613: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[118]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[118]+1); av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=lf[121]; av2[4]=t2; tp(5,av2);}} else{ t4=C_i_car(t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8531,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=t1,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],tmp=(C_word)a,a+=14,tmp); /* modules.scm:616: c */ t7=((C_word*)t0)[7];{ C_word av2[4]; av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[11]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}}} /* k8511 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8513(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8513,2,av);} /* modules.scm:611: module-imports */ t2=((C_word*)t0)[2]; f_8451(t2,((C_word*)t0)[3],t1);} /* k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8531(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_8531,2,av);} a=C_alloc(13); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8534,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* modules.scm:617: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[123]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[123]+1); av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[124]; tp(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8681,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); /* modules.scm:635: c */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[13]; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} /* k8532 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,8)))){ C_save_and_reclaim((void *)f_8534,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8539,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li82),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8549,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word)li88),tmp=(C_word)a,a+=6,tmp); /* modules.scm:618: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[6]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a8538 in k8532 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8539,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* modules.scm:618: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_8499(t3,t1,t2);} /* a8548 in k8532 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8549(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=8) C_bad_argc_2(c,8,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_8549,8,av);} a=C_alloc(11); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8553,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],a[10]=t1,tmp=(C_word)a,a+=11,tmp); t9=C_i_cddr(((C_word*)t0)[4]); /* modules.scm:619: chicken.syntax#strip-syntax */ t10=*((C_word*)lf[65]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k8551 in a8548 in k8532 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8553(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,6)))){ C_save_and_reclaim((void *)f_8553,2,av);} a=C_alloc(15); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=((C_word*)t0)[5]; t7=((C_word*)t0)[6]; t8=((C_word*)t0)[7]; t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8558,a[2]=((C_word*)t0)[8],a[3]=t5,a[4]=t2,a[5]=((C_word*)t0)[9],a[6]=t3,a[7]=t4,a[8]=t8,a[9]=t6,a[10]=t10,a[11]=t7,a[12]=((C_word)li87),tmp=(C_word)a,a+=13,tmp)); t12=((C_word*)t10)[1]; f_8558(t12,((C_word*)t0)[10],t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} /* loop in k8551 in a8548 in k8532 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8558(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(23,0,5)))){ C_save_and_reclaim_args((void *)trf_8558,6,t0,t1,t2,t3,t4,t5);} a=C_alloc(23); if(C_truep(C_i_nullp(t2))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8566,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li83),tmp=(C_word)a,a+=5,tmp); t7=t5; t8=C_i_check_list_2(t7,lf[33]); t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8576,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=t4,a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8589,a[2]=t11,a[3]=t6,a[4]=((C_word)li84),tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_8589(t13,t9,t7);} else{ t6=C_i_car(t2); t7=C_i_assq(t6,((C_word*)t0)[9]); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8617,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[10],a[5]=t4,a[6]=t5,a[7]=((C_word)li85),tmp=(C_word)a,a+=8,tmp); /* modules.scm:621: g1921 */ t9=t8; f_8617(t9,t1,t7);} else{ t8=t2; t9=C_u_i_car(t8); t10=C_i_assq(t9,((C_word*)t0)[11]); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8639,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[10],a[5]=t3,a[6]=t5,a[7]=((C_word)li86),tmp=(C_word)a,a+=8,tmp); /* modules.scm:621: g1925 */ t12=t11; f_8639(t12,t1,t10);} else{ t11=t2; t12=C_u_i_cdr(t11); t13=t2; t14=C_u_i_car(t13); t15=C_a_i_cons(&a,2,t14,t5); /* modules.scm:634: loop */ t17=t1; t18=t12; t19=t3; t20=t4; t21=t15; t1=t17; t2=t18; t3=t19; t4=t20; t5=t21; goto loop;}}}} /* g1901 in loop in k8551 in a8548 in k8532 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8566(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_8566,3,t0,t1,t2);} /* modules.scm:624: warn */ f_8387(t1,lf[122],((C_word*)t0)[3],t2);} /* k8574 in loop in k8551 in a8548 in k8532 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){ C_save_and_reclaim((void *)f_8576,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); /* modules.scm:626: scheme#values */{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; av2[4]=t3; av2[5]=((C_word*)t0)[8]; av2[6]=((C_word*)t0)[9]; av2[7]=((C_word*)t0)[10]; C_values(8,av2);}} /* for-each-loop1900 in loop in k8551 in a8548 in k8532 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8589(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8589,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8599,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:622: g1901 */ t5=((C_word*)t0)[3]; f_8566(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8597 in for-each-loop1900 in loop in k8551 in a8548 in k8532 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8599(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8599,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8589(t3,((C_word*)t0)[4],t2);} /* g1921 in loop in k8551 in a8548 in k8532 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8617(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,5)))){ C_save_and_reclaim_args((void *)trf_8617,3,t0,t1,t2);} a=C_alloc(3); t3=C_i_cdr(((C_word*)t0)[2]); t4=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); /* modules.scm:629: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_8558(t5,t1,t3,t4,((C_word*)t0)[5],((C_word*)t0)[6]);} /* g1925 in loop in k8551 in a8548 in k8532 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8639(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,5)))){ C_save_and_reclaim_args((void *)trf_8639,3,t0,t1,t2);} a=C_alloc(3); t3=C_i_cdr(((C_word*)t0)[2]); t4=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); /* modules.scm:632: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_8558(t5,t1,t3,((C_word*)t0)[5],t4,((C_word*)t0)[6]);} /* k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_8681,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* modules.scm:636: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[123]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[123]+1); av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[126]; tp(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8864,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); /* modules.scm:658: c */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[12]; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} /* k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,8)))){ C_save_and_reclaim((void *)f_8684,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8689,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li89),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8699,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word)li96),tmp=(C_word)a,a+=6,tmp); /* modules.scm:637: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[6]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a8688 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8689(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8689,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* modules.scm:637: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_8499(t3,t1,t2);} /* a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=8) C_bad_argc_2(c,8,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_8699,8,av);} a=C_alloc(11); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8703,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],a[10]=t1,tmp=(C_word)a,a+=11,tmp); t9=C_i_cddr(((C_word*)t0)[4]); /* modules.scm:638: chicken.syntax#strip-syntax */ t10=*((C_word*)lf[65]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k8701 in a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_8703,2,av);} a=C_alloc(14); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=((C_word*)t0)[5]; t7=((C_word*)t0)[6]; t8=((C_word*)t0)[7]; t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8708,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=t5,a[5]=t2,a[6]=((C_word*)t0)[9],a[7]=t4,a[8]=t8,a[9]=t7,a[10]=t10,a[11]=((C_word)li95),tmp=(C_word)a,a+=12,tmp)); t12=((C_word*)t10)[1]; f_8708(t12,((C_word*)t0)[10],t6,C_SCHEME_END_OF_LIST,t2);} /* loop in k8701 in a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8708(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ C_save_and_reclaim_args((void *)trf_8708,5,t0,t1,t2,t3,t4);} a=C_alloc(14); if(C_truep(C_i_nullp(t2))){ t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8720,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=t6,a[11]=((C_word)li93),tmp=(C_word)a,a+=12,tmp)); t8=((C_word*)t6)[1]; f_8720(t8,t1,((C_word*)t0)[9],C_SCHEME_END_OF_LIST,t4);} else{ t5=C_i_caar(t2); t6=C_i_memq(t5,t4); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8820,a[2]=t2,a[3]=((C_word*)t0)[10],a[4]=t3,a[5]=t4,a[6]=((C_word)li94),tmp=(C_word)a,a+=7,tmp); /* modules.scm:640: g2004 */ t8=t7; f_8820(t8,t1,t6);} else{ t7=t2; t8=C_u_i_cdr(t7); t9=t2; t10=C_u_i_car(t9); t11=C_a_i_cons(&a,2,t10,t3); /* modules.scm:657: loop */ t13=t1; t14=t8; t15=t11; t16=t4; t1=t13; t2=t14; t3=t15; t4=t16; goto loop;}}} /* loop in loop in k8701 in a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8720(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(23,0,4)))){ C_save_and_reclaim_args((void *)trf_8720,5,t0,t1,t2,t3,t4);} a=C_alloc(23); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8728,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li90),tmp=(C_word)a,a+=5,tmp); t6=t4; t7=C_i_check_list_2(t6,lf[33]); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8738,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t3,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8751,a[2]=t10,a[3]=t5,a[4]=((C_word)li91),tmp=(C_word)a,a+=5,tmp)); t12=((C_word*)t10)[1]; f_8751(t12,t8,t6);} else{ t5=C_i_caar(t2); t6=C_i_memq(t5,t4); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8779,a[2]=t2,a[3]=((C_word*)t0)[10],a[4]=t3,a[5]=t4,a[6]=((C_word)li92),tmp=(C_word)a,a+=7,tmp); /* modules.scm:642: g1999 */ t8=t7; f_8779(t8,t1,t6);} else{ t7=t2; t8=C_u_i_cdr(t7); t9=t2; t10=C_u_i_car(t9); t11=C_a_i_cons(&a,2,t10,t3); /* modules.scm:652: loop */ t13=t1; t14=t8; t15=t11; t16=t4; t1=t13; t2=t14; t3=t15; t4=t16; goto loop;}}} /* g1979 in loop in loop in k8701 in a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8728(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_8728,3,t0,t1,t2);} /* modules.scm:645: warn */ f_8387(t1,lf[125],((C_word*)t0)[3],t2);} /* k8736 in loop in loop in k8701 in a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){ C_save_and_reclaim((void *)f_8738,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); /* modules.scm:647: scheme#values */{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; av2[4]=t3; av2[5]=((C_word*)t0)[8]; av2[6]=((C_word*)t0)[9]; av2[7]=((C_word*)t0)[10]; C_values(8,av2);}} /* for-each-loop1978 in loop in loop in k8701 in a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8751(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8751,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8761,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:643: g1979 */ t5=((C_word*)t0)[3]; f_8728(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8759 in for-each-loop1978 in loop in loop in k8701 in a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_8761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8761,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8751(t3,((C_word*)t0)[4],t2);} /* g1999 in loop in loop in k8701 in a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8779(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_8779,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_cdr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8791,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t6=C_i_car(t2); /* modules.scm:650: delete */ f_4483(t5,t6,((C_word*)t0)[5],*((C_word*)lf[43]+1));} /* k8789 in g1999 in loop in loop in k8701 in a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_8791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8791,2,av);} /* modules.scm:650: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8720(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* g2004 in loop in k8701 in a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8820(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_8820,3,t0,t1,t2);} a=C_alloc(6); t3=C_i_cdr(((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8832,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); t6=C_i_car(t2); /* modules.scm:655: delete */ f_4483(t5,t6,((C_word*)t0)[5],*((C_word*)lf[43]+1));} /* k8830 in g2004 in loop in k8701 in a8698 in k8682 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8832,2,av);} /* modules.scm:655: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8708(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_8864,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* modules.scm:659: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[123]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[123]+1); av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[128]; tp(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9114,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); /* modules.scm:685: c */ t3=((C_word*)t0)[10];{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[11]; av2[3]=((C_word*)t0)[5]; ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} /* k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,8)))){ C_save_and_reclaim((void *)f_8867,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8872,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li97),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8882,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word)li105),tmp=(C_word)a,a+=6,tmp); /* modules.scm:660: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[6]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a8871 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8872,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* modules.scm:660: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_8499(t3,t1,t2);} /* a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=8) C_bad_argc_2(c,8,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_8882,8,av);} a=C_alloc(11); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8886,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],a[10]=t1,tmp=(C_word)a,a+=11,tmp); t9=C_i_cddr(((C_word*)t0)[4]); /* modules.scm:661: chicken.syntax#strip-syntax */ t10=*((C_word*)lf[65]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_8886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ C_save_and_reclaim((void *)f_8886,2,av);} a=C_alloc(14); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=((C_word*)t0)[5]; t7=((C_word*)t0)[6]; t8=((C_word*)t0)[7]; t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8891,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=t5,a[5]=t2,a[6]=((C_word*)t0)[9],a[7]=t4,a[8]=t8,a[9]=t7,a[10]=t10,a[11]=((C_word)li104),tmp=(C_word)a,a+=12,tmp)); t12=((C_word*)t10)[1]; f_8891(t12,((C_word*)t0)[10],t6,C_SCHEME_END_OF_LIST,t2);} /* loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8891(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ C_save_and_reclaim_args((void *)trf_8891,5,t0,t1,t2,t3,t4);} a=C_alloc(14); if(C_truep(C_i_nullp(t2))){ t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8903,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=t6,a[11]=((C_word)li102),tmp=(C_word)a,a+=12,tmp)); t8=((C_word*)t6)[1]; f_8903(t8,t1,((C_word*)t0)[9],C_SCHEME_END_OF_LIST,t4);} else{ t5=C_i_caar(t2); t6=C_i_assq(t5,t4); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9058,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[10],a[5]=t4,a[6]=((C_word)li103),tmp=(C_word)a,a+=7,tmp); /* modules.scm:663: g2109 */ t8=t7; f_9058(t8,t1,t6);} else{ t7=t2; t8=C_u_i_cdr(t7); t9=t2; t10=C_u_i_car(t9); t11=C_a_i_cons(&a,2,t10,t3); /* modules.scm:684: loop */ t13=t1; t14=t8; t15=t11; t16=t4; t1=t13; t2=t14; t3=t15; t4=t16; goto loop;}}} /* loop in loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_8903(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(30,0,4)))){ C_save_and_reclaim_args((void *)trf_8903,5,t0,t1,t2,t3,t4);} a=C_alloc(30); if(C_truep(C_i_nullp(t2))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8911,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li98),tmp=(C_word)a,a+=5,tmp); t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=t4; t11=C_i_check_list_2(t10,lf[18]); t12=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8924,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t3,a[10]=((C_word*)t0)[9],a[11]=t5,tmp=(C_word)a,a+=12,tmp); t13=C_SCHEME_UNDEFINED; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8966,a[2]=t8,a[3]=t14,a[4]=t9,a[5]=((C_word)li100),tmp=(C_word)a,a+=6,tmp)); t16=((C_word*)t14)[1]; f_8966(t16,t12,t10);} else{ t5=C_i_caar(t2); t6=C_i_assq(t5,t4); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9005,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[10],a[5]=t4,a[6]=((C_word)li101),tmp=(C_word)a,a+=7,tmp); /* modules.scm:665: g2104 */ t8=t7; f_9005(t8,t1,t6);} else{ t7=t2; t8=C_u_i_cdr(t7); t9=t2; t10=C_u_i_car(t9); t11=C_a_i_cons(&a,2,t10,t3); /* modules.scm:677: loop */ t17=t1; t18=t8; t19=t11; t20=t4; t1=t17; t2=t18; t3=t19; t4=t20; goto loop;}}} /* g2058 in loop in loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_fcall f_8911(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_8911,3,t0,t1,t2);} /* modules.scm:668: warn */ f_8387(t1,lf[127],((C_word*)t0)[3],t2);} /* k8922 in loop in loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_8924(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_8924,2,av);} a=C_alloc(18); t2=C_i_check_list_2(t1,lf[33]); t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8930,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8943,a[2]=t5,a[3]=((C_word*)t0)[11],a[4]=((C_word)li99),tmp=(C_word)a,a+=5,tmp)); t7=((C_word*)t5)[1]; f_8943(t7,t3,t1);} /* k8928 in k8922 in loop in loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in ... */ static void C_ccall f_8930(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){ C_save_and_reclaim((void *)f_8930,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); t3=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); /* modules.scm:670: scheme#values */{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; av2[3]=((C_word*)t0)[7]; av2[4]=t3; av2[5]=((C_word*)t0)[8]; av2[6]=((C_word*)t0)[9]; av2[7]=((C_word*)t0)[10]; C_values(8,av2);}} /* for-each-loop2057 in k8922 in loop in loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in ... */ static void C_fcall f_8943(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8943,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8953,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:666: g2058 */ t5=((C_word*)t0)[3]; f_8911(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k8951 in for-each-loop2057 in k8922 in loop in loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in ... */ static void C_ccall f_8953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8953,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_8943(t3,((C_word*)t0)[4],t2);} /* map-loop2070 in loop in loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_fcall f_8966(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_8966,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g2104 in loop in loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_fcall f_9005(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_9005,3,t0,t1,t2);} a=C_alloc(12); t3=C_i_cdr(((C_word*)t0)[2]); t4=t3; t5=C_i_cadr(t2); t6=C_i_cdar(((C_word*)t0)[2]); t7=C_a_i_cons(&a,2,t5,t6); t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[3]); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9021,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t4,a[5]=t9,tmp=(C_word)a,a+=6,tmp); /* modules.scm:675: delete */ f_4483(t10,t2,((C_word*)t0)[5],*((C_word*)lf[43]+1));} /* k9019 in g2104 in loop in loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in ... */ static void C_ccall f_9021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9021,2,av);} /* modules.scm:673: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8903(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* g2109 in loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9058(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ C_save_and_reclaim_args((void *)trf_9058,3,t0,t1,t2);} a=C_alloc(12); t3=C_i_cdr(((C_word*)t0)[2]); t4=t3; t5=C_i_cadr(t2); t6=C_i_cdar(((C_word*)t0)[2]); t7=C_a_i_cons(&a,2,t5,t6); t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[3]); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9074,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t4,a[5]=t9,tmp=(C_word)a,a+=6,tmp); /* modules.scm:682: delete */ f_4483(t10,t2,((C_word*)t0)[5],*((C_word*)lf[43]+1));} /* k9072 in g2109 in loop in k8884 in a8881 in k8865 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_9074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9074,2,av);} /* modules.scm:680: loop */ t2=((C_word*)((C_word*)t0)[2])[1]; f_8891(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} /* k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_9114,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9117,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* modules.scm:686: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[123]+1)); C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[123]+1); av2[1]=t2; av2[2]=((C_word*)t0)[7]; av2[3]=((C_word*)t0)[2]; av2[4]=lf[130]; tp(5,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9270,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* modules.scm:696: chicken.syntax#strip-syntax */ t3=*((C_word*)lf[65]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} /* k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,8)))){ C_save_and_reclaim((void *)f_9117,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9122,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li106),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9132,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word)li110),tmp=(C_word)a,a+=6,tmp); /* modules.scm:687: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[6]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* a9121 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9122,2,av);} t2=C_i_cadr(((C_word*)t0)[2]); /* modules.scm:687: loop */ t3=((C_word*)((C_word*)t0)[3])[1]; f_8499(t3,t1,t2);} /* a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=8) C_bad_argc_2(c,8,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_9132,8,av);} a=C_alloc(11); t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9136,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],a[10]=t1,tmp=(C_word)a,a+=11,tmp); t9=C_i_caddr(((C_word*)t0)[4]); /* modules.scm:688: chicken.syntax#strip-syntax */ t10=*((C_word*)lf[65]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(37,c,3)))){ C_save_and_reclaim((void *)f_9136,2,av);} a=C_alloc(37); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=((C_word*)t0)[5]; t7=((C_word*)t0)[6]; t8=((C_word*)t0)[7]; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9138,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=((C_word)li107),tmp=(C_word)a,a+=5,tmp); t10=C_a_i_list(&a,3,((C_word*)t0)[9],t5,t2); t11=t10; t12=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t13=t12; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=((C_word*)t14)[1]; t16=t9; t17=C_i_check_list_2(t6,lf[18]); t18=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9181,a[2]=t9,a[3]=t7,a[4]=((C_word*)t0)[10],a[5]=t3,a[6]=t4,a[7]=t11,a[8]=t8,tmp=(C_word)a,a+=9,tmp); t19=C_SCHEME_UNDEFINED; t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); t21=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9227,a[2]=t14,a[3]=t20,a[4]=t16,a[5]=t15,a[6]=((C_word)li109),tmp=(C_word)a,a+=7,tmp)); t22=((C_word*)t20)[1]; f_9227(t22,t18,t6);} /* rename in k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_9138,3,av);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9146,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9152,a[2]=t3,tmp=(C_word)a,a+=3,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9156,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* modules.scm:692: tostr */ t6=((C_word*)((C_word*)t0)[2])[1]; f_8401(t6,t5,((C_word*)t0)[3]);} /* k9144 in rename in k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_9146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9146,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2]; t3=C_u_i_cdr(t2); t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_a_i_cons(&a,2,t1,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9150 in rename in k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_9152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9152,2,av);} /* modules.scm:691: ##sys#string->symbol */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[129]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[129]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* k9154 in rename in k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_9156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_9156,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9160,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_car(((C_word*)t0)[3]); /* modules.scm:692: ##sys#symbol->string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[116]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[116]+1); av2[1]=t3; av2[2]=t4; tp(3,av2);}} /* k9158 in k9154 in rename in k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in ... */ static void C_ccall f_9160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9160,2,av);} /* modules.scm:692: ##sys#string-append */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[109]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[109]+1); av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; tp(4,av2);}} /* k9179 in k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_9181,2,av);} a=C_alloc(22); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[2]; t8=C_i_check_list_2(((C_word*)t0)[3],lf[18]); t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9191,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t2,a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9193,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li108),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_9193(t13,t9,((C_word*)t0)[3]);} /* k9189 in k9179 in k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_9191(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_9191,2,av);} /* modules.scm:694: scheme#values */{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=0; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=t1; av2[7]=((C_word*)t0)[7]; C_values(8,av2);}} /* map-loop2175 in k9179 in k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_fcall f_9193(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9193,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9218,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:694: g2181 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9216 in map-loop2175 in k9179 in k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in ... */ static void C_ccall f_9218(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9218,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9193(t6,((C_word*)t0)[5],t5);} /* map-loop2149 in k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9227(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9227,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9252,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:694: g2155 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9250 in map-loop2149 in k9134 in a9131 in k9115 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_9252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_9252,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_9227(t6,((C_word*)t0)[5],t5);} /* k9268 in k9112 in k8862 in k8679 in k8529 in loop in a8447 in k8383 in k8380 in k8377 in k8374 in ##sys#decompose-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9270,2,av);} /* modules.scm:696: module-imports */ t2=((C_word*)t0)[2]; f_8451(t2,((C_word*)t0)[3],t1);} /* ##sys#expand-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9276(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10; C_word t11; C_word *a; if(c!=10) C_bad_argc_2(c,10,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_9276,10,av);} a=C_alloc(11); t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9280,a[2]=t3,a[3]=t4,a[4]=t9,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=t8,a[9]=t2,a[10]=t1,tmp=(C_word)a,a+=11,tmp); /* modules.scm:699: ##sys#check-syntax */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[123]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[123]+1); av2[1]=t10; av2[2]=t9; av2[3]=t2; av2[4]=lf[140]; tp(5,av2);}} /* k9278 in ##sys#expand-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ C_save_and_reclaim((void *)f_9280,2,av);} a=C_alloc(20); t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9281,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word)li116),tmp=(C_word)a,a+=10,tmp); t3=C_i_cdr(((C_word*)t0)[9]); t4=C_i_check_list_2(t3,lf[33]); t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9315,a[2]=((C_word*)t0)[10],tmp=(C_word)a,a+=3,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9317,a[2]=t7,a[3]=t2,a[4]=((C_word)li117),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_9317(t9,t5,t3);} /* g2217 in k9278 in ##sys#expand-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9281(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,8)))){ C_save_and_reclaim_args((void *)trf_9281,3,t0,t1,t2);} a=C_alloc(16); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9287,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li114),tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9293,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word)li115),tmp=(C_word)a,a+=9,tmp); /* modules.scm:702: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* a9286 in g2217 in k9278 in ##sys#expand-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9287(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_9287,2,av);} /* modules.scm:702: ##sys#decompose-import */ t2=*((C_word*)lf[112]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} /* a9292 in g2217 in k9278 in ##sys#expand-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word *a; if(c!=8) C_bad_argc_2(c,8,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){ C_save_and_reclaim((void *)f_9293,8,av);} if(C_truep(C_i_not(t4))){ /* modules.scm:704: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[118]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[118]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=lf[137]; av2[4]=t2; av2[5]=((C_word*)t0)[3]; tp(6,av2);}} else{ /* modules.scm:705: ##sys#import */ t8=*((C_word*)lf[138]+1);{ C_word *av2; if(c >= 11) { av2=av; } else { av2=C_alloc(11); } av2[0]=t8; av2[1]=t1; av2[2]=t4; av2[3]=t5; av2[4]=t6; av2[5]=t7; av2[6]=((C_word*)t0)[4]; av2[7]=((C_word*)t0)[5]; av2[8]=((C_word*)t0)[6]; av2[9]=((C_word*)t0)[7]; av2[10]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t8+1)))(11,av2);}}} /* k9313 in k9278 in ##sys#expand-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9315(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9315,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=lf[139]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* for-each-loop2216 in k9278 in ##sys#expand-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9317(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9317,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9327,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:700: g2217 */ t5=((C_word*)t0)[3]; f_9281(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9325 in for-each-loop2216 in k9278 in ##sys#expand-import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9327,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9317(t3,((C_word*)t0)[4],t2);} /* ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8=av[8]; C_word t9=av[9]; C_word t10=av[10]; C_word t11; C_word t12; C_word *a; if(c!=11) C_bad_argc_2(c,11,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_9340,11,av);} a=C_alloc(12); t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9344,a[2]=t6,a[3]=t3,a[4]=t7,a[5]=t4,a[6]=t1,a[7]=t9,a[8]=t5,a[9]=t10,a[10]=t8,a[11]=t2,tmp=(C_word)a,a+=12,tmp); /* modules.scm:710: ##sys#current-module */ t12=*((C_word*)lf[2]+1);{ C_word *av2=av; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} /* k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9344(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_9344,2,av);} a=C_alloc(18); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9347,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); if(C_truep(t2)){ if(C_truep(((C_word*)t0)[10])){ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9757,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_check_structure_2(t2,lf[4],lf[58]); t6=C_i_block_ref(t2,C_fix(9)); t7=C_a_i_list1(&a,1,((C_word*)t0)[11]); /* modules.scm:715: scheme#append */ t8=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t4; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9772,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=C_i_check_structure_2(t2,lf[4],lf[57]); t6=C_i_block_ref(t2,C_fix(8)); t7=C_a_i_list1(&a,1,((C_word*)t0)[11]); /* modules.scm:718: scheme#append */ t8=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t4; av2[2]=t6; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_9347(2,av2);}}} /* k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_9347,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9357,a[2]=((C_word*)t0)[2],a[3]=((C_word)li119),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=C_i_check_list_2(t3,lf[33]); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9401,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9726,a[2]=t7,a[3]=t2,a[4]=((C_word)li126),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_9726(t9,t5,t3);} /* g2278 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9357(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9357,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_car(t2); t4=t3; if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9395,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* modules.scm:725: import-env */ t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k9393 in g2278 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9395,2,av);} t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); if(C_truep(t4)){ t5=C_i_cdr(t2); t6=C_eqp(t4,t5); if(C_truep(C_i_not(t6))){ /* modules.scm:728: ##sys#notice */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[141]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[141]+1); av2[1]=((C_word*)t0)[4]; av2[2]=lf[142]; av2[3]=((C_word*)t0)[2]; tp(4,av2);}} else{ t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_9401,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9402,a[2]=((C_word*)t0)[2],a[3]=((C_word)li120),tmp=(C_word)a,a+=4,tmp); t3=((C_word*)t0)[3]; t4=C_i_check_list_2(t3,lf[33]); t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9444,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9703,a[2]=t7,a[3]=t2,a[4]=((C_word)li125),tmp=(C_word)a,a+=5,tmp)); t9=((C_word*)t7)[1]; f_9703(t9,t5,t3);} /* g2288 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9402(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9402,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9438,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* modules.scm:732: macro-env */ t6=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} /* k9436 in g2288 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9438,2,av);} t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=((C_word*)t0)[3]; t4=C_u_i_cdr(t3); t5=C_i_cdr(t2); t6=C_eqp(t4,t5); if(C_truep(C_i_not(t6))){ t7=((C_word*)t0)[3]; t8=C_u_i_car(t7); /* modules.scm:734: ##sys#notice */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[141]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[141]+1); av2[1]=((C_word*)t0)[4]; av2[2]=lf[143]; av2[3]=t8; tp(4,av2);}} else{ t7=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ C_save_and_reclaim((void *)f_9444,2,av);} a=C_alloc(14); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[7])){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9472,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(((C_word*)t0)[8])){ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_UNDEFINED; f_9472(2,av2);}} else{ /* modules.scm:738: ##sys#syntax-error-hook */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[118]+1)); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[118]+1); av2[1]=t3; av2[2]=((C_word*)t0)[10]; av2[3]=lf[144]; tp(4,av2);}}} else{ t3=t2; f_9447(t3,C_SCHEME_UNDEFINED);}} /* k9445 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9447(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ C_save_and_reclaim_args((void *)trf_9447,2,t0,t1);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9450,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9465,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9469,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* modules.scm:759: import-env */ t5=((C_word*)t0)[5];{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} /* k9448 in k9445 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_9450,2,av);} a=C_alloc(8); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9457,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9461,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* modules.scm:760: macro-env */ t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} /* k9455 in k9448 in k9445 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9457,2,av);} /* modules.scm:760: macro-env */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k9459 in k9448 in k9445 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9461,2,av);} /* modules.scm:760: scheme#append */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k9463 in k9445 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9465,2,av);} /* modules.scm:759: import-env */ t2=((C_word*)t0)[2];{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=t1; ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} /* k9467 in k9445 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9469(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9469,2,av);} /* modules.scm:759: scheme#append */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ C_save_and_reclaim((void *)f_9472,2,av);} a=C_alloc(27); t2=C_i_check_structure_2(((C_word*)t0)[2],lf[4],lf[12]); t3=C_i_block_ref(((C_word*)t0)[2],C_fix(3)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9478,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t5=C_eqp(C_SCHEME_TRUE,t3); if(C_truep(t5)){ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9498,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9595,a[2]=((C_word*)t0)[2],a[3]=t6,tmp=(C_word)a,a+=4,tmp); t8=C_i_check_structure_2(((C_word*)t0)[2],lf[4],lf[14]); t9=C_i_block_ref(((C_word*)t0)[2],C_fix(12)); /* modules.scm:741: scheme#append */ t10=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t7; av2[2]=((C_word*)t0)[6]; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9606,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t7=C_i_check_structure_2(((C_word*)t0)[2],lf[4],lf[12]); t8=C_i_block_ref(((C_word*)t0)[2],C_fix(3)); t9=C_eqp(C_SCHEME_TRUE,t8); t10=(C_truep(t9)?C_SCHEME_END_OF_LIST:t8); t11=t10; t12=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t13=t12; t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); t15=((C_word*)t14)[1]; t16=((C_word*)t0)[5]; t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9620,a[2]=((C_word*)t0)[6],a[3]=t6,a[4]=t11,tmp=(C_word)a,a+=5,tmp); t18=C_SCHEME_UNDEFINED; t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp); t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9663,a[2]=t14,a[3]=t19,a[4]=t15,a[5]=((C_word)li124),tmp=(C_word)a,a+=6,tmp)); t21=((C_word*)t19)[1]; f_9663(t21,t17,t16);}} /* k9476 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_9478,2,av);} a=C_alloc(13); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9481,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9488,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_i_check_structure_2(((C_word*)t0)[3],lf[4],lf[62]); t5=C_i_block_ref(((C_word*)t0)[3],C_fix(13)); /* modules.scm:757: merge-se */ f_6533(t3,C_a_i_list(&a,2,t5,((C_word*)t0)[4]));} /* k9479 in k9476 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_9481,2,av);} t2=((C_word*)t0)[2]; f_9447(t2,C_SCHEME_UNDEFINED);} /* k9486 in k9476 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9488(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9488,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t3=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(13); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9496 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_9498,2,av);} a=C_alloc(22); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9505,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t3=C_i_check_structure_2(((C_word*)t0)[2],lf[4],lf[32]); t4=C_i_block_ref(((C_word*)t0)[2],C_fix(5)); t5=t4; t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t7=t6; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=((C_word*)t8)[1]; t10=((C_word*)t0)[4]; t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9516,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9559,a[2]=t8,a[3]=t13,a[4]=t9,a[5]=((C_word)li122),tmp=(C_word)a,a+=6,tmp)); t15=((C_word*)t13)[1]; f_9559(t15,t11,t10);} /* k9503 in k9496 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9505(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9505,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t3=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(5); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9514 in k9496 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9516(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_9516,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[2]; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9523,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9525,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li121),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_9525(t12,t8,t7);} /* k9521 in k9514 in k9496 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9523(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9523,2,av);} /* modules.scm:744: scheme#append */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop2356 in k9514 in k9496 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9525(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_9525,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop2330 in k9496 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9559(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_9559,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k9593 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9595,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t3=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(12); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9604 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9606,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t3=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(3); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9618 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9620(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ C_save_and_reclaim((void *)f_9620,2,av);} a=C_alloc(18); t2=t1; t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t4=t3; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=((C_word*)t5)[1]; t7=((C_word*)t0)[2]; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9627,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t9=C_SCHEME_UNDEFINED; t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9629,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li123),tmp=(C_word)a,a+=6,tmp)); t12=((C_word*)t10)[1]; f_9629(t12,t8,t7);} /* k9625 in k9618 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9627(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9627,2,av);} /* modules.scm:750: scheme#append */ t2=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* map-loop2410 in k9618 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9629(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_9629,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* map-loop2384 in k9470 in k9442 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9663(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ C_save_and_reclaim_args((void *)trf_9663,3,t0,t1,t2);} a=C_alloc(3); if(C_truep(C_i_pairp(t2))){ t3=C_slot(t2,C_fix(0)); t4=C_i_car(t3); t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); t8=C_slot(t2,C_fix(1)); t10=t1; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* for-each-loop2287 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9703(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9703,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9713,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:730: g2288 */ t5=((C_word*)t0)[3]; f_9402(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9711 in for-each-loop2287 in k9399 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9713,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9703(t3,((C_word*)t0)[4],t2);} /* for-each-loop2277 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9726(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_9726,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9736,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); /* modules.scm:722: g2278 */ t5=((C_word*)t0)[3]; f_9357(t5,t3,t4);} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9734 in for-each-loop2277 in k9345 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9736,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_9726(t3,((C_word*)t0)[4],t2);} /* k9755 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9757,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t3=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(9); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k9770 in k9342 in ##sys#import in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_9772,2,av);} t2=C_i_check_structure_2(((C_word*)t0)[2],lf[4],C_SCHEME_FALSE); /* modules.scm:93: ##sys#block-set! */ t3=*((C_word*)lf[9]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=C_fix(8); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* module-rename in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9782(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){ C_save_and_reclaim_args((void *)trf_9782,3,t1,t2,t3);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9790,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t5=C_slot(t3,C_fix(1)); t6=C_slot(t2,C_fix(1)); /* modules.scm:764: scheme#string-append */ t7=*((C_word*)lf[93]+1);{ C_word av2[5]; av2[0]=t7; av2[1]=t4; av2[2]=t5; av2[3]=lf[145]; av2[4]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* k9788 in module-rename in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_9790,2,av);} /* modules.scm:763: ##sys#string->symbol */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[129]+1)); C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=*((C_word*)lf[129]+1); av2[1]=((C_word*)t0)[2]; av2[2]=t1; tp(3,av2);}} /* ##sys#alias-global-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_9800,5,av);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9803,a[2]=t3,a[3]=t4,a[4]=((C_word)li131),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9837,a[2]=t2,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* modules.scm:778: chicken.keyword#keyword? */ t7=*((C_word*)lf[120]+1);{ C_word *av2=av; av2[0]=t7; av2[1]=t6; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* mrename in ##sys#alias-global-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9803(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_9803,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9807,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* modules.scm:771: ##sys#current-module */ t4=*((C_word*)lf[2]+1);{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k9805 in mrename in ##sys#alias-global-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9807(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_9807,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9811,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li130),tmp=(C_word)a,a+=6,tmp); /* modules.scm:771: g2467 */ t3=t2; f_9811(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g2467 in k9805 in mrename in ##sys#alias-global-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9811(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_9811,3,t0,t1,t2);} a=C_alloc(11); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9818,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); if(C_truep(((C_word*)t0)[3])){ t4=t2; t5=C_i_check_structure_2(t4,lf[4],lf[6]); t6=C_i_block_ref(t4,C_fix(1)); /* modules.scm:776: module-rename */ f_9782(t1,((C_word*)t0)[2],t6);} else{ t4=t3; t5=((C_word*)t0)[2]; t6=t2; t7=((C_word*)t0)[4]; if(C_truep(t6)){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6164,a[2]=t5,a[3]=t7,a[4]=t4,a[5]=t6,tmp=(C_word)a,a+=6,tmp); /* modules.scm:239: module-undefined-list */ t9=*((C_word*)lf[7]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=C_SCHEME_UNDEFINED; t9=t4;{ C_word av2[2]; av2[0]=t9; av2[1]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}} /* k9816 in g2467 in k9805 in mrename in ##sys#alias-global-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_9818,2,av);} t2=((C_word*)t0)[2]; t3=C_i_check_structure_2(t2,lf[4],lf[6]); t4=C_i_block_ref(t2,C_fix(1)); /* modules.scm:776: module-rename */ f_9782(((C_word*)t0)[3],((C_word*)t0)[4],t4);} /* k9835 in ##sys#alias-global-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_9837,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[2]; if(C_truep(C_u_i_namespaced_symbolp(t2))){ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9878,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* modules.scm:780: ##sys#current-environment */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); C_word *av2=av; av2[0]=*((C_word*)lf[29]+1); av2[1]=t3; tp(2,av2);}}}} /* g2478 in k9876 in k9835 in ##sys#alias-global-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9852(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_9852,3,t0,t1,t2);} t3=C_i_cdr(t2); if(C_truep(C_i_pairp(t3))){ /* modules.scm:785: mrename */ t4=((C_word*)t0)[2]; f_9803(t4,t1,((C_word*)t0)[3]);} else{ t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k9876 in k9835 in ##sys#alias-global-hook in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_9878,2,av);} a=C_alloc(5); t2=C_i_assq(((C_word*)t0)[2],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9852,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word)li132),tmp=(C_word)a,a+=5,tmp); /* modules.scm:778: g2478 */ t4=t3; f_9852(t4,((C_word*)t0)[4],t2);} else{ /* modules.scm:786: mrename */ t3=((C_word*)t0)[3]; f_9803(t3,((C_word*)t0)[4],((C_word*)t0)[2]);}} /* ##sys#validate-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ C_save_and_reclaim((void *)f_9880,4,av);} a=C_alloc(22); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9883,a[2]=t3,a[3]=((C_word)li134),tmp=(C_word)a,a+=4,tmp)); t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9889,a[2]=t5,a[3]=t2,a[4]=((C_word)li135),tmp=(C_word)a,a+=5,tmp)); t10=C_eqp(lf[150],t2); if(C_truep(t10)){ t11=t2; t12=t1;{ C_word *av2=av; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ if(C_truep(C_i_symbolp(t2))){ /* modules.scm:796: iface */ t11=((C_word*)t7)[1]; f_9889(t11,t1,t2);} else{ t11=C_i_listp(t2); if(C_truep(C_i_not(t11))){ /* modules.scm:798: err */ t12=((C_word*)t5)[1]; f_9883(t12,t1,C_a_i_list(&a,2,lf[151],t2));} else{ t12=C_SCHEME_UNDEFINED; t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9930,a[2]=t5,a[3]=t2,a[4]=t13,a[5]=t7,a[6]=((C_word)li137),tmp=(C_word)a,a+=7,tmp)); t15=((C_word*)t13)[1]; f_9930(t15,t1,t2);}}}} /* err in ##sys#validate-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9883(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_9883,3,t0,t1,t2);}{ C_word av2[5]; av2[0]=0; av2[1]=t1; av2[2]=*((C_word*)lf[118]+1); av2[3]=((C_word*)t0)[2]; av2[4]=t2; C_apply(5,av2);}} /* iface in ##sys#validate-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9889(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_9889,3,t0,t1,t2);} a=C_alloc(9); t3=t2; t4=C_i_getprop(t3,lf[148],C_SCHEME_FALSE); if(C_truep(t4)){ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ /* modules.scm:794: err */ t5=((C_word*)((C_word*)t0)[2])[1]; f_9883(t5,t1,C_a_i_list(&a,3,lf[149],t2,((C_word*)t0)[3]));}} /* loop in ##sys#validate-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_fcall f_9930(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_9930,3,t0,t1,t2);} a=C_alloc(11); if(C_truep(C_i_nullp(t2))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=C_i_pairp(t2); if(C_truep(C_i_not(t3))){ /* modules.scm:803: err */ t4=((C_word*)((C_word*)t0)[2])[1]; f_9883(t4,t1,C_a_i_list(&a,2,lf[152],((C_word*)t0)[3]));} else{ t4=C_i_car(t2); t5=t4; if(C_truep(C_i_symbolp(t5))){ t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9962,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t7=t2; t8=C_u_i_cdr(t7); /* modules.scm:806: loop */ t15=t6; t16=t8; t1=t15; t2=t16; goto loop;} else{ t6=C_i_listp(t5); if(C_truep(C_i_not(t6))){ /* modules.scm:808: err */ t7=((C_word*)((C_word*)t0)[2])[1]; f_9883(t7,t1,C_a_i_list(&a,3,lf[153],t5,((C_word*)t0)[3]));} else{ t7=C_i_car(t5); t8=C_eqp(lf[154],t7); if(C_truep(t8)){ t9=C_u_i_cdr(t5); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9988,a[2]=t1,a[3]=t9,tmp=(C_word)a,a+=4,tmp); t11=t2; t12=C_u_i_cdr(t11); /* modules.scm:810: loop */ t15=t10; t16=t12; t1=t15; t2=t16; goto loop;} else{ t9=C_u_i_car(t5); t10=C_eqp(lf[155],t9); if(C_truep(t10)){ t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10002,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); t12=C_u_i_cdr(t5); if(C_truep(C_i_pairp(t12))){ t13=C_i_cadr(t5); t14=t11; f_10002(t14,C_i_symbolp(t13));} else{ t13=t11; f_10002(t13,C_SCHEME_FALSE);}} else{ t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10039,a[2]=t5,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t12,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word)li136),tmp=(C_word)a,a+=9,tmp)); t14=((C_word*)t12)[1]; f_10039(t14,t1,t5);}}}}}}} /* k9960 in loop in ##sys#validate-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9962,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k9986 in loop in ##sys#validate-exports in k5276 in k5272 in k3990 in k3987 in k3984 in k3981 */ static void C_ccall f_9988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_9988,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_modules_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("modules")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_modules_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(7477))){ C_save(t1); C_rereclaim2(7477*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,242); lf[0]=C_h_intern(&lf[0],7, C_text("modules")); lf[2]=C_h_intern(&lf[2],20, C_text("##sys#current-module")); lf[3]=C_h_intern(&lf[3],30, C_text("##sys#module-alias-environment")); lf[4]=C_h_intern(&lf[4],6, C_text("module")); lf[6]=C_h_intern(&lf[6],11, C_text("module-name")); lf[7]=C_h_intern(&lf[7],21, C_text("module-undefined-list")); lf[8]=C_h_intern(&lf[8],26, C_text("set-module-undefined-list!")); lf[9]=C_h_intern(&lf[9],16, C_text("##sys#block-set!")); lf[10]=C_h_intern(&lf[10],17, C_text("##sys#module-name")); lf[11]=C_h_intern(&lf[11],20, C_text("##sys#module-exports")); lf[12]=C_h_intern(&lf[12],18, C_text("module-export-list")); lf[13]=C_h_intern(&lf[13],15, C_text("module-vexports")); lf[14]=C_h_intern(&lf[14],15, C_text("module-sexports")); lf[15]=C_h_intern(&lf[15],27, C_text("##sys#register-module-alias")); lf[16]=C_h_intern(&lf[16],25, C_text("##sys#with-module-aliases")); lf[17]=C_h_intern(&lf[17],18, C_text("##sys#dynamic-wind")); lf[18]=C_h_intern(&lf[18],3, C_text("map")); lf[19]=C_h_intern(&lf[19],13, C_text("scheme#append")); lf[20]=C_h_intern(&lf[20],25, C_text("##sys#resolve-module-name")); lf[21]=C_h_intern(&lf[21],18, C_text("chicken.base#error")); lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035module alias refers to itself")); lf[23]=C_h_intern(&lf[23],27, C_text("chicken.internal#library-id")); lf[24]=C_h_intern(&lf[24],17, C_text("##sys#find-module")); lf[25]=C_h_intern(&lf[25],18, C_text("##sys#module-table")); lf[26]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020module not found")); lf[27]=C_h_intern(&lf[27],19, C_text("##sys#switch-module")); lf[28]=C_h_intern(&lf[28],23, C_text("##sys#macro-environment")); lf[29]=C_h_intern(&lf[29],25, C_text("##sys#current-environment")); lf[30]=C_h_intern(&lf[30],25, C_text("module-saved-environments")); lf[31]=C_h_intern(&lf[31],24, C_text("##sys#add-to-export-list")); lf[32]=C_h_intern(&lf[32],17, C_text("module-exist-list")); lf[33]=C_h_intern(&lf[33],8, C_text("for-each")); lf[34]=C_h_intern(&lf[34],30, C_text("##sys#toplevel-definition-hook")); lf[35]=C_h_intern(&lf[35],30, C_text("##sys#register-meta-expression")); lf[36]=C_h_intern(&lf[36],23, C_text("module-meta-expressions")); lf[38]=C_h_intern(&lf[38],10, C_text("##sys#warn")); lf[39]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047redefinition of imported syntax binding")); lf[40]=C_decode_literal(C_heaptop,C_text("\376B\000\000&redefinition of imported value binding")); lf[41]=C_h_intern(&lf[41],21, C_text("##sys#register-export")); lf[42]=C_h_intern(&lf[42],19, C_text("module-defined-list")); lf[43]=C_h_intern(&lf[43],10, C_text("scheme#eq\077")); lf[46]=C_h_intern(&lf[46],28, C_text("##sys#register-syntax-export")); lf[47]=C_h_intern(&lf[47],26, C_text("module-defined-syntax-list")); lf[48]=C_decode_literal(C_heaptop,C_text("\376B\000\000!use of syntax precedes definition")); lf[49]=C_h_intern(&lf[49],30, C_text("##sys#unregister-syntax-export")); lf[50]=C_h_intern(&lf[50],21, C_text("##sys#register-module")); lf[52]=C_h_intern(&lf[52],32, C_text("chicken.internal#hash-table-set!")); lf[53]=C_h_intern(&lf[53],31, C_text("chicken.internal#hash-table-ref")); lf[54]=C_h_intern(&lf[54],14, C_text("scheme#reverse")); lf[55]=C_h_intern(&lf[55],32, C_text("chicken.internal#make-hash-table")); lf[56]=C_h_intern(&lf[56],34, C_text("##sys#compiled-module-registration")); lf[57]=C_h_intern(&lf[57],19, C_text("module-import-forms")); lf[58]=C_h_intern(&lf[58],24, C_text("module-meta-import-forms")); lf[59]=C_h_intern(&lf[59],12, C_text("##sys#append")); lf[60]=C_h_intern(&lf[60],5, C_text("quote")); lf[61]=C_h_intern(&lf[61],14, C_text("module-library")); lf[62]=C_h_intern(&lf[62],15, C_text("module-iexports")); lf[63]=C_h_intern(&lf[63],11, C_text("scheme#list")); lf[64]=C_h_intern(&lf[64],11, C_text("scheme#cons")); lf[65]=C_h_intern(&lf[65],27, C_text("chicken.syntax#strip-syntax")); lf[66]=C_h_intern(&lf[66],30, C_text("##sys#register-compiled-module")); lf[67]=C_h_intern(&lf[67],14, C_text("##core#functor")); lf[68]=C_h_intern(&lf[68],18, C_text("##sys#fast-reverse")); lf[69]=C_h_intern(&lf[69],13, C_text("import-syntax")); lf[70]=C_h_intern(&lf[70],11, C_text("scheme#eval")); lf[71]=C_h_intern(&lf[71],24, C_text("##sys#ensure-transformer")); lf[72]=C_h_intern(&lf[72],11, C_text("##sys#error")); lf[73]=C_h_intern(&lf[73],6, C_text("import")); lf[74]=C_decode_literal(C_heaptop,C_text("\376B\000\0000cannot find implementation of re-exported syntax")); lf[75]=C_h_intern(&lf[75],26, C_text("##sys#register-core-module")); lf[76]=C_decode_literal(C_heaptop,C_text("\376B\000\0002unknown syntax referenced while registering module")); lf[77]=C_h_intern(&lf[77],31, C_text("##sys#register-primitive-module")); lf[78]=C_h_intern(&lf[78],21, C_text("##sys#finalize-module")); lf[79]=C_h_intern(&lf[79],9, C_text("##core#db")); lf[80]=C_h_intern(&lf[80],30, C_text("chicken.base#get-output-string")); lf[81]=C_h_intern(&lf[81],14, C_text("scheme#display")); lf[82]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)\047")); lf[83]=C_h_intern(&lf[83],12, C_text("scheme#cadar")); lf[84]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042\012Warning: suggesting: `(import ")); lf[85]=C_h_intern(&lf[85],21, C_text("##sys#write-char/port")); lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025\012Warning: (import ")); lf[87]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037\012Warning: suggesting one of:")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015\012Warning: ")); lf[89]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 in:")); lf[90]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052reference to possibly unbound identifier `")); lf[91]=C_h_intern(&lf[91],31, C_text("chicken.base#open-output-string")); lf[92]=C_decode_literal(C_heaptop,C_text("\376B\000\000$(internal) indirect export not found")); lf[93]=C_h_intern(&lf[93],20, C_text("scheme#string-append")); lf[94]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014 in module `")); lf[95]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\047")); lf[96]=C_h_intern(&lf[96],21, C_text("scheme#symbol->string")); lf[97]=C_decode_literal(C_heaptop,C_text("\376B\000\000!indirect export of syntax binding")); lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033indirect reexport of syntax")); lf[99]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042indirect export of unknown binding")); lf[100]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021module unresolved")); lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037exported identifier of module `")); lf[102]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026\047 has not been defined")); lf[103]=C_h_intern(&lf[103],25, C_text("##sys#import-library-hook")); lf[104]=C_h_intern(&lf[104],30, C_text("##sys#current-meta-environment")); lf[105]=C_h_intern(&lf[105],21, C_text("##sys#notices-enabled")); lf[106]=C_h_intern(&lf[106],11, C_text("scheme#load")); lf[107]=C_h_intern(&lf[107],28, C_text("##sys#meta-macro-environment")); lf[108]=C_h_intern(&lf[108],35, C_text("chicken.load#find-dynamic-extension")); lf[109]=C_h_intern(&lf[109],19, C_text("##sys#string-append")); lf[110]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007.import")); lf[112]=C_h_intern(&lf[112],22, C_text("##sys#decompose-import")); lf[113]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014 in module `")); lf[114]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\047")); lf[115]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001:")); lf[116]=C_h_intern(&lf[116],20, C_text("##sys#symbol->string")); lf[117]=C_h_intern(&lf[117],20, C_text("##sys#number->string")); lf[118]=C_h_intern(&lf[118],23, C_text("##sys#syntax-error-hook")); lf[119]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016invalid prefix")); lf[120]=C_h_intern(&lf[120],24, C_text("chicken.keyword#keyword\077")); lf[121]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034invalid import specification")); lf[122]=C_decode_literal(C_heaptop,C_text("\376B\000\000!imported identifier doesn\047t exist")); lf[123]=C_h_intern(&lf[123],18, C_text("##sys#check-syntax")); lf[124]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\006\001symbol\376\377\001\000\000\000\000")); lf[125]=C_decode_literal(C_heaptop,C_text("\376B\000\000!excluded identifier doesn\047t exist")); lf[126]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\006\001symbol\376\377\001\000\000\000\000")); lf[127]=C_decode_literal(C_heaptop,C_text("\376B\000\000 renamed identifier doesn\047t exist")); lf[128]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006\001symbol\376\003\000\000\002\376\001\000\000\006\001symbol\376\377\016\376\377\001\000\000\000\000")); lf[129]=C_h_intern(&lf[129],20, C_text("##sys#string->symbol")); lf[130]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016")); lf[131]=C_h_intern(&lf[131],37, C_text("scheme#call-with-current-continuation")); lf[132]=C_h_intern(&lf[132],6, C_text("prefix")); lf[133]=C_h_intern(&lf[133],6, C_text("except")); lf[134]=C_h_intern(&lf[134],6, C_text("rename")); lf[135]=C_h_intern(&lf[135],4, C_text("only")); lf[136]=C_h_intern(&lf[136],19, C_text("##sys#expand-import")); lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000#cannot import from undefined module")); lf[138]=C_h_intern(&lf[138],12, C_text("##sys#import")); lf[139]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016")); lf[140]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001")); lf[141]=C_h_intern(&lf[141],12, C_text("##sys#notice")); lf[142]=C_decode_literal(C_heaptop,C_text("\376B\000\000(re-importing already imported identifier")); lf[143]=C_decode_literal(C_heaptop,C_text("\376B\000\000$re-importing already imported syntax")); lf[144]=C_decode_literal(C_heaptop,C_text("\376B\000\000%`reexport\047 only valid inside a module")); lf[145]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001#")); lf[146]=C_h_intern(&lf[146],23, C_text("##sys#alias-global-hook")); lf[147]=C_h_intern(&lf[147],22, C_text("##sys#validate-exports")); lf[148]=C_h_intern(&lf[148],16, C_text("##core#interface")); lf[149]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021unknown interface")); lf[150]=C_h_intern(&lf[150],1, C_text("\052")); lf[151]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017invalid exports")); lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017invalid exports")); lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016invalid export")); lf[154]=C_h_intern_kw(&lf[154],6, C_text("syntax")); lf[155]=C_h_intern_kw(&lf[155],9, C_text("interface")); lf[156]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037invalid interface specification")); lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016invalid export")); lf[158]=C_h_intern(&lf[158],22, C_text("##sys#register-functor")); lf[159]=C_h_intern(&lf[159],25, C_text("##sys#instantiate-functor")); lf[160]=C_decode_literal(C_heaptop,C_text("\376B\000\000/argument list mismatch in functor instantiation")); lf[161]=C_h_intern(&lf[161],13, C_text("##core#module")); lf[162]=C_h_intern(&lf[162],23, C_text("##core#let-module-alias")); lf[164]=C_decode_literal(C_heaptop,C_text("\376B\000\000!instantation of undefined functor")); lf[165]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021argument module `")); lf[166]=C_decode_literal(C_heaptop,C_text("\376B\000\000$\047 does not match required signature\012")); lf[167]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022in instantiation `")); lf[168]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\047 of functor `")); lf[169]=C_decode_literal(C_heaptop,C_text("\376B\000\0007\047, because the following required exports are missing:\012")); lf[170]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\012 ")); lf[171]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001not\376\001\000\000\012\001scheme#not\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001boolean\077\376\001\000\000\017\001scheme#boolean\077" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001eq\077\376\001\000\000\012\001scheme#eq\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001eqv\077\376\001\000\000\013\001scheme#eqv\077\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\006\001equal\077\376\001\000\000\015\001scheme#equal\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001pair\077\376\001\000\000\014\001scheme#pair\077\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\004\001cons\376\001\000\000\013\001scheme#cons\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001car\376\001\000\000\012\001scheme#car\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001" "cdr\376\001\000\000\012\001scheme#cdr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001caar\376\001\000\000\013\001scheme#caar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001cadr\376\001\000\000" "\013\001scheme#cadr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001cdar\376\001\000\000\013\001scheme#cdar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001cddr\376\001\000\000\013\001sche" "me#cddr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001caaar\376\001\000\000\014\001scheme#caaar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001caadr\376\001\000\000\014\001scheme#" "caadr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001cadar\376\001\000\000\014\001scheme#cadar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001caddr\376\001\000\000\014\001scheme#ca" "ddr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001cdaar\376\001\000\000\014\001scheme#cdaar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001cdadr\376\001\000\000\014\001scheme#cdad" "r\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001cddar\376\001\000\000\014\001scheme#cddar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001cdddr\376\001\000\000\014\001scheme#cdddr\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001caaaar\376\001\000\000\015\001scheme#caaaar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001caaadr\376\001\000\000\015\001scheme#caaad" "r\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001caadar\376\001\000\000\015\001scheme#caadar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001caaddr\376\001\000\000\015\001scheme#caa" "ddr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001cadaar\376\001\000\000\015\001scheme#cadaar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001cadadr\376\001\000\000\015\001scheme#c" "adadr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001caddar\376\001\000\000\015\001scheme#caddar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001cadddr\376\001\000\000\015\001scheme" "#cadddr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001cdaaar\376\001\000\000\015\001scheme#cdaaar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001cdaadr\376\001\000\000\015\001sche" "me#cdaadr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001cdadar\376\001\000\000\015\001scheme#cdadar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001cdaddr\376\001\000\000\015\001sc" "heme#cdaddr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001cddaar\376\001\000\000\015\001scheme#cddaar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001cddadr\376\001\000\000\015\001" "scheme#cddadr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001cdddar\376\001\000\000\015\001scheme#cdddar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001cddddr\376\001\000\000" "\015\001scheme#cddddr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001set-car!\376\001\000\000\017\001scheme#set-car!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001set-" "cdr!\376\001\000\000\017\001scheme#set-cdr!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001null\077\376\001\000\000\014\001scheme#null\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001" "list\077\376\001\000\000\014\001scheme#list\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001list\376\001\000\000\013\001scheme#list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001leng" "th\376\001\000\000\015\001scheme#length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001list-tail\376\001\000\000\020\001scheme#list-tail\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\010\001list-ref\376\001\000\000\017\001scheme#list-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001append\376\001\000\000\015\001scheme#append\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\007\001reverse\376\001\000\000\016\001scheme#reverse\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001memq\376\001\000\000\013\001scheme#memq\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\004\001memv\376\001\000\000\013\001scheme#memv\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001member\376\001\000\000\015\001scheme#member\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\004\001assq\376\001\000\000\013\001scheme#assq\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001assv\376\001\000\000\013\001scheme#assv\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\005\001assoc\376\001\000\000\014\001scheme#assoc\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001symbol\077\376\001\000\000\016\001scheme#symbol\077\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\016\001symbol->string\376\001\000\000\025\001scheme#symbol->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001string->symbol\376\001\000\000\025" "\001scheme#string->symbol\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001number\077\376\001\000\000\016\001scheme#number\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010" "\001integer\077\376\001\000\000\017\001scheme#integer\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001exact\077\376\001\000\000\015\001scheme#exact\077\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\005\001real\077\376\001\000\000\014\001scheme#real\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001complex\077\376\001\000\000\017\001scheme#complex\077\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\010\001inexact\077\376\001\000\000\017\001scheme#inexact\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001rational\077\376\001\000\000\020\001scheme#ra" "tional\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001zero\077\376\001\000\000\014\001scheme#zero\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001odd\077\376\001\000\000\013\001scheme#o" "dd\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001even\077\376\001\000\000\014\001scheme#even\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001positive\077\376\001\000\000\020\001scheme#" "positive\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001negative\077\376\001\000\000\020\001scheme#negative\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001max\376\001\000\000\012" "\001scheme#max\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001min\376\001\000\000\012\001scheme#min\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001+\376\001\000\000\010\001scheme#+\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\001\001-\376\001\000\000\010\001scheme#-\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\052\376\001\000\000\010\001scheme#\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001/\376\001\000\000" "\010\001scheme#/\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001=\376\001\000\000\010\001scheme#=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001>\376\001\000\000\010\001scheme#>\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\001\001<\376\001\000\000\010\001scheme#<\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001>=\376\001\000\000\011\001scheme#>=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001<=\376\001\000\000\011\001" "scheme#<=\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001quotient\376\001\000\000\017\001scheme#quotient\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001remainder\376" "\001\000\000\020\001scheme#remainder\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001modulo\376\001\000\000\015\001scheme#modulo\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001gc" "d\376\001\000\000\012\001scheme#gcd\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001lcm\376\001\000\000\012\001scheme#lcm\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001abs\376\001\000\000\012\001sch" "eme#abs\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001floor\376\001\000\000\014\001scheme#floor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001ceiling\376\001\000\000\016\001schem" "e#ceiling\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001truncate\376\001\000\000\017\001scheme#truncate\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001round\376\001\000\000\014" "\001scheme#round\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001rationalize\376\001\000\000\022\001scheme#rationalize\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001" "exact->inexact\376\001\000\000\025\001scheme#exact->inexact\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001inexact->exact\376\001\000\000\025\001sch" "eme#inexact->exact\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001exp\376\001\000\000\012\001scheme#exp\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001log\376\001\000\000\012\001sc" "heme#log\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001expt\376\001\000\000\013\001scheme#expt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001sqrt\376\001\000\000\013\001scheme#sq" "rt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001sin\376\001\000\000\012\001scheme#sin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001cos\376\001\000\000\012\001scheme#cos\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\003\001tan\376\001\000\000\012\001scheme#tan\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001asin\376\001\000\000\013\001scheme#asin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001" "acos\376\001\000\000\013\001scheme#acos\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001atan\376\001\000\000\013\001scheme#atan\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001number" "->string\376\001\000\000\025\001scheme#number->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001string->number\376\001\000\000\025\001scheme#st" "ring->number\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001char\077\376\001\000\000\014\001scheme#char\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001char=\077\376\001\000\000\015\001s" "cheme#char=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001char>\077\376\001\000\000\015\001scheme#char>\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001char<\077\376\001\000\000\015" "\001scheme#char<\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001char>=\077\376\001\000\000\016\001scheme#char>=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001char<=\077" "\376\001\000\000\016\001scheme#char<=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001char-ci=\077\376\001\000\000\020\001scheme#char-ci=\077\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\011\001char-ci<\077\376\001\000\000\020\001scheme#char-ci<\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001char-ci>\077\376\001\000\000\020\001scheme#char-ci>" "\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001char-ci>=\077\376\001\000\000\021\001scheme#char-ci>=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001char-ci<=\077\376\001\000\000" "\021\001scheme#char-ci<=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001char-alphabetic\077\376\001\000\000\027\001scheme#char-alphabetic\077" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001char-whitespace\077\376\001\000\000\027\001scheme#char-whitespace\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001cha" "r-numeric\077\376\001\000\000\024\001scheme#char-numeric\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001char-upper-case\077\376\001\000\000\027\001scheme" "#char-upper-case\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001char-lower-case\077\376\001\000\000\027\001scheme#char-lower-case\077\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\013\001char-upcase\376\001\000\000\022\001scheme#char-upcase\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001char-downcase\376\001" "\000\000\024\001scheme#char-downcase\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001char->integer\376\001\000\000\024\001scheme#char->integer\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001integer->char\376\001\000\000\024\001scheme#integer->char\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001string\077\376\001\000" "\000\016\001scheme#string\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001string=\077\376\001\000\000\017\001scheme#string=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001st" "ring>\077\376\001\000\000\017\001scheme#string>\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001string<\077\376\001\000\000\017\001scheme#string<\077\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\011\001string>=\077\376\001\000\000\020\001scheme#string>=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001string<=\077\376\001\000\000\020\001scheme#str" "ing<=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001string-ci=\077\376\001\000\000\022\001scheme#string-ci=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001string-" "ci<\077\376\001\000\000\022\001scheme#string-ci<\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001string-ci>\077\376\001\000\000\022\001scheme#string-ci>\077\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001string-ci>=\077\376\001\000\000\023\001scheme#string-ci>=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001string-ci<=\077" "\376\001\000\000\023\001scheme#string-ci<=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001make-string\376\001\000\000\022\001scheme#make-string\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\015\001string-length\376\001\000\000\024\001scheme#string-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001string-ref\376\001\000" "\000\021\001scheme#string-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001string-set!\376\001\000\000\022\001scheme#string-set!\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\015\001string-append\376\001\000\000\024\001scheme#string-append\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001string-copy\376\001\000\000\022\001s" "cheme#string-copy\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001string->list\376\001\000\000\023\001scheme#string->list\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\014\001list->string\376\001\000\000\023\001scheme#list->string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001substring\376\001\000\000\020\001scheme" "#substring\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001string-fill!\376\001\000\000\023\001scheme#string-fill!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001v" "ector\077\376\001\000\000\016\001scheme#vector\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001make-vector\376\001\000\000\022\001scheme#make-vector\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\012\001vector-ref\376\001\000\000\021\001scheme#vector-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001vector-set!\376\001\000\000\022\001s" "cheme#vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001string\376\001\000\000\015\001scheme#string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001vector" "\376\001\000\000\015\001scheme#vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001vector-length\376\001\000\000\024\001scheme#vector-length\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\014\001vector->list\376\001\000\000\023\001scheme#vector->list\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001list->vector\376\001\000\000\023" "\001scheme#list->vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001vector-fill!\376\001\000\000\023\001scheme#vector-fill!\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\012\001procedure\077\376\001\000\000\021\001scheme#procedure\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001map\376\001\000\000\012\001scheme#map\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\010\001for-each\376\001\000\000\017\001scheme#for-each\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001apply\376\001\000\000\014\001scheme#appl" "y\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001force\376\001\000\000\014\001scheme#force\376\003\000\000\002\376\003\000\000\002\376\001\000\000\036\001call-with-current-contin" "uation\376\001\000\000%\001scheme#call-with-current-continuation\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001input-port\077\376\001\000\000" "\022\001scheme#input-port\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001output-port\077\376\001\000\000\023\001scheme#output-port\077\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\022\001current-input-port\376\001\000\000\031\001scheme#current-input-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001curren" "t-output-port\376\001\000\000\032\001scheme#current-output-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001call-with-input-fil" "e\376\001\000\000\033\001scheme#call-with-input-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001call-with-output-file\376\001\000\000\034\001sch" "eme#call-with-output-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001open-input-file\376\001\000\000\026\001scheme#open-input-" "file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001open-output-file\376\001\000\000\027\001scheme#open-output-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020" "\001close-input-port\376\001\000\000\027\001scheme#close-input-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001close-output-port\376" "\001\000\000\030\001scheme#close-output-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001load\376\001\000\000\013\001scheme#load\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\004\001read\376\001\000\000\013\001scheme#read\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001read-char\376\001\000\000\020\001scheme#read-char\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\011\001peek-char\376\001\000\000\020\001scheme#peek-char\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001write\376\001\000\000\014\001scheme#write\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\007\001display\376\001\000\000\016\001scheme#display\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001write-char\376\001\000\000\021\001scheme#wr" "ite-char\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001newline\376\001\000\000\016\001scheme#newline\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001eof-object\077\376\001" "\000\000\022\001scheme#eof-object\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001with-input-from-file\376\001\000\000\033\001scheme#with-inpu" "t-from-file\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001with-output-to-file\376\001\000\000\032\001scheme#with-output-to-file\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\013\001char-ready\077\376\001\000\000\022\001scheme#char-ready\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001imag-part\376\001\000\000\020\001" "scheme#imag-part\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001real-part\376\001\000\000\020\001scheme#real-part\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001m" "ake-rectangular\376\001\000\000\027\001scheme#make-rectangular\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001make-polar\376\001\000\000\021\001sche" "me#make-polar\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001angle\376\001\000\000\014\001scheme#angle\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001magnitude\376\001\000" "\000\020\001scheme#magnitude\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001numerator\376\001\000\000\020\001scheme#numerator\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\013\001denominator\376\001\000\000\022\001scheme#denominator\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001scheme-report-environment\376\001" "\000\000 \001scheme#scheme-report-environment\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001null-environment\376\001\000\000\027\001scheme" "#null-environment\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001interaction-environment\376\001\000\000\036\001scheme#interaction" "-environment\376\377\016")); lf[172]=C_h_intern(&lf[172],30, C_text("##sys#scheme-macro-environment")); lf[173]=C_h_intern(&lf[173],33, C_text("chicken.module#module-environment")); lf[174]=C_h_intern(&lf[174],18, C_text("module-environment")); lf[175]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020undefined module")); lf[176]=C_h_intern(&lf[176],11, C_text("environment")); lf[177]=C_h_intern(&lf[177],14, C_text("chicken.syntax")); lf[178]=C_h_intern(&lf[178],6, C_text("expand")); lf[179]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001expand\376\001\000\000\025\001chicken.syntax#expand\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001get-line-number" "\376\001\000\000\036\001chicken.syntax#get-line-number\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001strip-syntax\376\001\000\000\033\001chicken.sy" "ntax#strip-syntax\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001syntax-error\376\001\000\000\033\001chicken.syntax#syntax-error\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\024\001er-macro-transformer\376\001\000\000#\001chicken.syntax#er-macro-transformer\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\024\001ir-macro-transformer\376\001\000\000#\001chicken.syntax#ir-macro-transformer\376\377\016")); lf[180]=C_h_intern(&lf[180],38, C_text("##sys#chicken.syntax-macro-environment")); lf[181]=C_h_intern(&lf[181],12, C_text("chicken.base")); lf[182]=C_h_intern(&lf[182],7, C_text("library")); lf[183]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001add1\376\001\000\000\021\001chicken.base#add1\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001alist-ref\376\001\000\000\026\001chicke" "n.base#alist-ref\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001alist-update\376\001\000\000\031\001chicken.base#alist-update\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\015\001alist-update!\376\001\000\000\032\001chicken.base#alist-update!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001atom\077\376\001\000" "\000\022\001chicken.base#atom\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001bignum\077\376\001\000\000\024\001chicken.base#bignum\077\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\007\001butlast\376\001\000\000\024\001chicken.base#butlast\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001call/cc\376\001\000\000\024\001chicken.base" "#call/cc\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001case-sensitive\376\001\000\000\033\001chicken.base#case-sensitive\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\011\001char-name\376\001\000\000\026\001chicken.base#char-name\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001chop\376\001\000\000\021\001chicken.ba" "se#chop\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001complement\376\001\000\000\027\001chicken.base#complement\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001co" "mpose\376\001\000\000\024\001chicken.base#compose\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001compress\376\001\000\000\025\001chicken.base#compre" "ss\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001conjoin\376\001\000\000\024\001chicken.base#conjoin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001constantly\376\001\000" "\000\027\001chicken.base#constantly\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001cplxnum\077\376\001\000\000\025\001chicken.base#cplxnum\077\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\022\001current-error-port\376\001\000\000\037\001chicken.base#current-error-port\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\007\001disjoin\376\001\000\000\024\001chicken.base#disjoin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001each\376\001\000\000\021\001chicken.base#each" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001emergency-exit\376\001\000\000\033\001chicken.base#emergency-exit\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001e" "nable-warnings\376\001\000\000\034\001chicken.base#enable-warnings\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001equal=\077\376\001\000\000\024\001chi" "cken.base#equal=\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001error\376\001\000\000\022\001chicken.base#error\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001ex" "act-integer\077\376\001\000\000\033\001chicken.base#exact-integer\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001exact-integer-nth-r" "oot\376\001\000\000#\001chicken.base#exact-integer-nth-root\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001exact-integer-sqrt\376\001" "\000\000\037\001chicken.base#exact-integer-sqrt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001exit\376\001\000\000\021\001chicken.base#exit\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\014\001exit-handler\376\001\000\000\031\001chicken.base#exit-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001finite\077" "\376\001\000\000\024\001chicken.base#finite\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001fixnum\077\376\001\000\000\024\001chicken.base#fixnum\077\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\007\001flatten\376\001\000\000\024\001chicken.base#flatten\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001flip\376\001\000\000\021\001chicken.ba" "se#flip\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001flonum\077\376\001\000\000\024\001chicken.base#flonum\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001flush-ou" "tput\376\001\000\000\031\001chicken.base#flush-output\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001foldl\376\001\000\000\022\001chicken.base#foldl" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001foldr\376\001\000\000\022\001chicken.base#foldr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001gensym\376\001\000\000\023\001chicken" ".base#gensym\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001get-call-chain\376\001\000\000\033\001chicken.base#get-call-chain\376\003\000\000\002" "\376\003\000\000\002\376\001\000\000\021\001get-output-string\376\001\000\000\036\001chicken.base#get-output-string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001" "getter-with-setter\376\001\000\000\037\001chicken.base#getter-with-setter\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001identity\376" "\001\000\000\025\001chicken.base#identity\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001implicit-exit-handler\376\001\000\000\042\001chicken.bas" "e#implicit-exit-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001infinite\077\376\001\000\000\026\001chicken.base#infinite\077\376\003\000\000" "\002\376\003\000\000\002\376\001\000\000\020\001input-port-open\077\376\001\000\000\035\001chicken.base#input-port-open\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001i" "ntersperse\376\001\000\000\030\001chicken.base#intersperse\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001join\376\001\000\000\021\001chicken.base#j" "oin\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001keyword-style\376\001\000\000\032\001chicken.base#keyword-style\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001" "list-of\077\376\001\000\000\025\001chicken.base#list-of\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-parameter\376\001\000\000\033\001chicken.b" "ase#make-parameter\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001make-promise\376\001\000\000\031\001chicken.base#make-promise\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\004\001nan\077\376\001\000\000\021\001chicken.base#nan\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001notice\376\001\000\000\023\001chicken.base" "#notice\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001o\376\001\000\000\016\001chicken.base#o\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001on-exit\376\001\000\000\024\001chicken" ".base#on-exit\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001open-input-string\376\001\000\000\036\001chicken.base#open-input-stri" "ng\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001open-output-string\376\001\000\000\037\001chicken.base#open-output-string\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\021\001output-port-open\077\376\001\000\000\036\001chicken.base#output-port-open\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001pa" "rentheses-synonyms\376\001\000\000!\001chicken.base#parentheses-synonyms\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001port\077\376\001" "\000\000\022\001chicken.base#port\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001port-closed\077\376\001\000\000\031\001chicken.base#port-closed" "\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001print-call-chain\376\001\000\000\035\001chicken.base#print-call-chain\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\005\001print\376\001\000\000\022\001chicken.base#print\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001print\052\376\001\000\000\023\001chicken.base#print\052" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001procedure-information\376\001\000\000\042\001chicken.base#procedure-information\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\010\001promise\077\376\001\000\000\025\001chicken.base#promise\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001quotient&modulo\376" "\001\000\000\034\001chicken.base#quotient&modulo\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001quotient&remainder\376\001\000\000\037\001chicken" ".base#quotient&remainder\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001rassoc\376\001\000\000\023\001chicken.base#rassoc\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\007\001ratnum\077\376\001\000\000\024\001chicken.base#ratnum\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001setter\376\001\000\000\023\001chicken.base" "#setter\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001signum\376\001\000\000\023\001chicken.base#signum\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001sleep\376\001\000\000\022" "\001chicken.base#sleep\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001string->uninterned-symbol\376\001\000\000&\001chicken.base#s" "tring->uninterned-symbol\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001sub1\376\001\000\000\021\001chicken.base#sub1\376\003\000\000\002\376\003\000\000\002\376\001\000" "\000\011\001subvector\376\001\000\000\026\001chicken.base#subvector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001symbol-append\376\001\000\000\032\001chick" "en.base#symbol-append\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001symbol-escape\376\001\000\000\032\001chicken.base#symbol-esca" "pe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001tail\077\376\001\000\000\022\001chicken.base#tail\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001vector-copy!\376\001\000\000\031" "\001chicken.base#vector-copy!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001vector-resize\376\001\000\000\032\001chicken.base#vector" "-resize\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001void\376\001\000\000\021\001chicken.base#void\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001warning\376\001\000\000\024\001c" "hicken.base#warning\376\377\016")); lf[184]=C_h_intern(&lf[184],36, C_text("##sys#chicken.base-macro-environment")); lf[185]=C_h_intern(&lf[185],7, C_text("srfi-98")); lf[186]=C_h_intern(&lf[186],5, C_text("posix")); lf[187]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001get-environment-variable\376\001\000\0000\001chicken.process-context#get-enviro" "nment-variable\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001get-environment-variables\376\001\000\0001\001chicken.process-con" "text#get-environment-variables\376\377\016")); lf[188]=C_h_intern(&lf[188],7, C_text("srfi-55")); lf[189]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\021\001require-extension\376\377\016")); lf[190]=C_h_intern(&lf[190],7, C_text("srfi-39")); lf[191]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001make-parameter\376\001\000\000\033\001chicken.base#make-parameter\376\377\016")); lf[192]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001parameterize\376\377\016")); lf[193]=C_h_intern(&lf[193],7, C_text("srfi-31")); lf[194]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001rec\376\377\016")); lf[195]=C_h_intern(&lf[195],7, C_text("srfi-28")); lf[196]=C_h_intern(&lf[196],6, C_text("extras")); lf[197]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001format\376\001\000\000\025\001chicken.format#format\376\377\016")); lf[198]=C_h_intern(&lf[198],7, C_text("srfi-26")); lf[199]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001cut\376\003\000\000\002\376\001\000\000\004\001cute\376\377\016")); lf[200]=C_h_intern(&lf[200],7, C_text("srfi-23")); lf[201]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001error\376\001\000\000\022\001chicken.base#error\376\377\016")); lf[202]=C_h_intern(&lf[202],7, C_text("srfi-17")); lf[203]=C_h_intern(&lf[203],31, C_text("##sys#default-macro-environment")); lf[204]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001set!\376\377\016")); lf[205]=C_h_intern(&lf[205],7, C_text("srfi-16")); lf[206]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\013\001case-lambda\376\377\016")); lf[207]=C_h_intern(&lf[207],7, C_text("srfi-15")); lf[208]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001fluid-let\376\377\016")); lf[209]=C_h_intern(&lf[209],7, C_text("srfi-12")); lf[210]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001abort\376\001\000\000\027\001chicken.condition#abort\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001condition\077\376\001\000\000" "\034\001chicken.condition#condition\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001condition-predicate\376\001\000\000%\001chicken.c" "ondition#condition-predicate\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001condition-property-accessor\376\001\000\000-\001chi" "cken.condition#condition-property-accessor\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001current-exception-hand" "ler\376\001\000\000+\001chicken.condition#current-exception-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001make-composi" "te-condition\376\001\000\000\052\001chicken.condition#make-composite-condition\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001make" "-property-condition\376\001\000\000)\001chicken.condition#make-property-condition\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\006\001signal\376\001\000\000\030\001chicken.condition#signal\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001with-exception-handler\376\001\000\000" "(\001chicken.condition#with-exception-handler\376\377\016")); lf[211]=C_h_intern(&lf[211],41, C_text("##sys#chicken.condition-macro-environment")); lf[212]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\021\001handle-exceptions\376\377\016")); lf[213]=C_h_intern(&lf[213],7, C_text("srfi-11")); lf[214]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001let-values\376\003\000\000\002\376\001\000\000\013\001let\052-values\376\377\016")); lf[215]=C_h_intern(&lf[215],7, C_text("srfi-10")); lf[216]=C_h_intern(&lf[216],11, C_text("read-syntax")); lf[217]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001define-reader-ctor\376\001\000\000&\001chicken.read-syntax#define-reader-ctor\376\377" "\016")); lf[218]=C_h_intern(&lf[218],6, C_text("srfi-9")); lf[219]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001define-record-type\376\377\016")); lf[220]=C_h_intern(&lf[220],6, C_text("srfi-8")); lf[221]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001receive\376\377\016")); lf[222]=C_h_intern(&lf[222],6, C_text("srfi-6")); lf[223]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001get-output-string\376\001\000\000\036\001chicken.base#get-output-string\376\003\000\000\002\376\003\000\000\002\376" "\001\000\000\021\001open-input-string\376\001\000\000\036\001chicken.base#open-input-string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001open-o" "utput-string\376\001\000\000\036\001chicken.base#open-input-string\376\377\016")); lf[224]=C_h_intern(&lf[224],6, C_text("srfi-2")); lf[225]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001and-let\052\376\377\016")); lf[226]=C_h_intern(&lf[226],6, C_text("srfi-0")); lf[227]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\013\001cond-expand\376\377\016")); lf[228]=C_h_intern(&lf[228],12, C_text("chicken.type")); lf[229]=C_h_intern(&lf[229],36, C_text("##sys#chicken.type-macro-environment")); lf[230]=C_h_intern(&lf[230],14, C_text("chicken.module")); lf[231]=C_h_intern(&lf[231],38, C_text("##sys#chicken.module-macro-environment")); lf[232]=C_h_intern(&lf[232],23, C_text("chicken.internal.syntax")); lf[233]=C_h_intern(&lf[233],7, C_text("srfi-88")); lf[234]=C_h_intern(&lf[234],15, C_text("chicken.keyword")); lf[235]=C_h_intern(&lf[235],4, C_text("r5rs")); lf[236]=C_h_intern(&lf[236],6, C_text("scheme")); lf[237]=C_h_intern(&lf[237],9, C_text("r5rs-null")); lf[238]=C_h_intern(&lf[238],9, C_text("r4rs-null")); lf[239]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001dynamic-wind\376\001\000\000\023\001scheme#dynamic-wind\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001eval\376\001\000\000\013\001s" "cheme#eval\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001values\376\001\000\000\015\001scheme#values\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001call-with-val" "ues\376\001\000\000\027\001scheme#call-with-values\376\377\016")); lf[240]=C_h_intern(&lf[240],4, C_text("r4rs")); lf[241]=C_h_intern(&lf[241],27, C_text("chicken.base#make-parameter")); C_register_lf2(lf,242,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3983,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_chicken_2dsyntax_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[534] = { {C_text("f11852:modules_2escm"),(void*)f11852}, {C_text("f_10002:modules_2escm"),(void*)f_10002}, {C_text("f_10009:modules_2escm"),(void*)f_10009}, {C_text("f_10013:modules_2escm"),(void*)f_10013}, {C_text("f_10039:modules_2escm"),(void*)f_10039}, {C_text("f_10053:modules_2escm"),(void*)f_10053}, {C_text("f_10095:modules_2escm"),(void*)f_10095}, {C_text("f_10111:modules_2escm"),(void*)f_10111}, {C_text("f_10119:modules_2escm"),(void*)f_10119}, {C_text("f_10126:modules_2escm"),(void*)f_10126}, {C_text("f_10136:modules_2escm"),(void*)f_10136}, {C_text("f_10158:modules_2escm"),(void*)f_10158}, {C_text("f_10160:modules_2escm"),(void*)f_10160}, {C_text("f_10199:modules_2escm"),(void*)f_10199}, {C_text("f_10220:modules_2escm"),(void*)f_10220}, {C_text("f_10232:modules_2escm"),(void*)f_10232}, {C_text("f_10255:modules_2escm"),(void*)f_10255}, {C_text("f_10258:modules_2escm"),(void*)f_10258}, {C_text("f_10269:modules_2escm"),(void*)f_10269}, {C_text("f_10275:modules_2escm"),(void*)f_10275}, {C_text("f_10307:modules_2escm"),(void*)f_10307}, {C_text("f_10310:modules_2escm"),(void*)f_10310}, {C_text("f_10321:modules_2escm"),(void*)f_10321}, {C_text("f_10337:modules_2escm"),(void*)f_10337}, {C_text("f_10341:modules_2escm"),(void*)f_10341}, {C_text("f_10348:modules_2escm"),(void*)f_10348}, {C_text("f_10361:modules_2escm"),(void*)f_10361}, {C_text("f_10388:modules_2escm"),(void*)f_10388}, {C_text("f_10401:modules_2escm"),(void*)f_10401}, {C_text("f_10405:modules_2escm"),(void*)f_10405}, {C_text("f_10409:modules_2escm"),(void*)f_10409}, {C_text("f_10413:modules_2escm"),(void*)f_10413}, {C_text("f_10427:modules_2escm"),(void*)f_10427}, {C_text("f_10433:modules_2escm"),(void*)f_10433}, {C_text("f_10435:modules_2escm"),(void*)f_10435}, {C_text("f_10460:modules_2escm"),(void*)f_10460}, {C_text("f_10469:modules_2escm"),(void*)f_10469}, {C_text("f_10479:modules_2escm"),(void*)f_10479}, {C_text("f_10494:modules_2escm"),(void*)f_10494}, {C_text("f_10497:modules_2escm"),(void*)f_10497}, {C_text("f_10500:modules_2escm"),(void*)f_10500}, {C_text("f_10503:modules_2escm"),(void*)f_10503}, {C_text("f_10506:modules_2escm"),(void*)f_10506}, {C_text("f_10509:modules_2escm"),(void*)f_10509}, {C_text("f_10512:modules_2escm"),(void*)f_10512}, {C_text("f_10515:modules_2escm"),(void*)f_10515}, {C_text("f_10518:modules_2escm"),(void*)f_10518}, {C_text("f_10521:modules_2escm"),(void*)f_10521}, {C_text("f_10524:modules_2escm"),(void*)f_10524}, {C_text("f_10527:modules_2escm"),(void*)f_10527}, {C_text("f_10530:modules_2escm"),(void*)f_10530}, {C_text("f_10533:modules_2escm"),(void*)f_10533}, {C_text("f_10536:modules_2escm"),(void*)f_10536}, {C_text("f_10539:modules_2escm"),(void*)f_10539}, {C_text("f_10542:modules_2escm"),(void*)f_10542}, {C_text("f_10545:modules_2escm"),(void*)f_10545}, {C_text("f_10548:modules_2escm"),(void*)f_10548}, {C_text("f_10551:modules_2escm"),(void*)f_10551}, {C_text("f_10554:modules_2escm"),(void*)f_10554}, {C_text("f_10557:modules_2escm"),(void*)f_10557}, {C_text("f_10560:modules_2escm"),(void*)f_10560}, {C_text("f_10563:modules_2escm"),(void*)f_10563}, {C_text("f_10566:modules_2escm"),(void*)f_10566}, {C_text("f_10569:modules_2escm"),(void*)f_10569}, {C_text("f_10572:modules_2escm"),(void*)f_10572}, {C_text("f_10575:modules_2escm"),(void*)f_10575}, {C_text("f_10577:modules_2escm"),(void*)f_10577}, {C_text("f_10584:modules_2escm"),(void*)f_10584}, {C_text("f_10613:modules_2escm"),(void*)f_10613}, {C_text("f_10616:modules_2escm"),(void*)f_10616}, {C_text("f_10623:modules_2escm"),(void*)f_10623}, {C_text("f_10635:modules_2escm"),(void*)f_10635}, {C_text("f_10670:modules_2escm"),(void*)f_10670}, {C_text("f_10677:modules_2escm"),(void*)f_10677}, {C_text("f_10689:modules_2escm"),(void*)f_10689}, {C_text("f_10724:modules_2escm"),(void*)f_10724}, {C_text("f_10731:modules_2escm"),(void*)f_10731}, {C_text("f_10743:modules_2escm"),(void*)f_10743}, {C_text("f_10778:modules_2escm"),(void*)f_10778}, {C_text("f_10785:modules_2escm"),(void*)f_10785}, {C_text("f_10797:modules_2escm"),(void*)f_10797}, {C_text("f_10832:modules_2escm"),(void*)f_10832}, {C_text("f_10839:modules_2escm"),(void*)f_10839}, {C_text("f_10851:modules_2escm"),(void*)f_10851}, {C_text("f_10886:modules_2escm"),(void*)f_10886}, {C_text("f_10893:modules_2escm"),(void*)f_10893}, {C_text("f_10905:modules_2escm"),(void*)f_10905}, {C_text("f_10940:modules_2escm"),(void*)f_10940}, {C_text("f_10947:modules_2escm"),(void*)f_10947}, {C_text("f_10959:modules_2escm"),(void*)f_10959}, {C_text("f_10994:modules_2escm"),(void*)f_10994}, {C_text("f_11001:modules_2escm"),(void*)f_11001}, {C_text("f_11013:modules_2escm"),(void*)f_11013}, {C_text("f_11048:modules_2escm"),(void*)f_11048}, {C_text("f_11055:modules_2escm"),(void*)f_11055}, {C_text("f_11067:modules_2escm"),(void*)f_11067}, {C_text("f_11102:modules_2escm"),(void*)f_11102}, {C_text("f_11109:modules_2escm"),(void*)f_11109}, {C_text("f_11121:modules_2escm"),(void*)f_11121}, {C_text("f_11156:modules_2escm"),(void*)f_11156}, {C_text("f_11163:modules_2escm"),(void*)f_11163}, {C_text("f_11175:modules_2escm"),(void*)f_11175}, {C_text("f_11210:modules_2escm"),(void*)f_11210}, {C_text("f_11217:modules_2escm"),(void*)f_11217}, {C_text("f_11229:modules_2escm"),(void*)f_11229}, {C_text("f_11264:modules_2escm"),(void*)f_11264}, {C_text("f_11271:modules_2escm"),(void*)f_11271}, {C_text("f_11283:modules_2escm"),(void*)f_11283}, {C_text("f_11318:modules_2escm"),(void*)f_11318}, {C_text("f_11322:modules_2escm"),(void*)f_11322}, {C_text("f_11326:modules_2escm"),(void*)f_11326}, {C_text("f_3983:modules_2escm"),(void*)f_3983}, {C_text("f_3986:modules_2escm"),(void*)f_3986}, {C_text("f_3989:modules_2escm"),(void*)f_3989}, {C_text("f_3992:modules_2escm"),(void*)f_3992}, {C_text("f_4483:modules_2escm"),(void*)f_4483}, {C_text("f_4489:modules_2escm"),(void*)f_4489}, {C_text("f_4502:modules_2escm"),(void*)f_4502}, {C_text("f_4516:modules_2escm"),(void*)f_4516}, {C_text("f_5274:modules_2escm"),(void*)f_5274}, {C_text("f_5278:modules_2escm"),(void*)f_5278}, {C_text("f_5293:modules_2escm"),(void*)f_5293}, {C_text("f_5383:modules_2escm"),(void*)f_5383}, {C_text("f_5392:modules_2escm"),(void*)f_5392}, {C_text("f_5528:modules_2escm"),(void*)f_5528}, {C_text("f_5552:modules_2escm"),(void*)f_5552}, {C_text("f_5568:modules_2escm"),(void*)f_5568}, {C_text("f_5570:modules_2escm"),(void*)f_5570}, {C_text("f_5574:modules_2escm"),(void*)f_5574}, {C_text("f_5579:modules_2escm"),(void*)f_5579}, {C_text("f_5583:modules_2escm"),(void*)f_5583}, {C_text("f_5587:modules_2escm"),(void*)f_5587}, {C_text("f_5590:modules_2escm"),(void*)f_5590}, {C_text("f_5596:modules_2escm"),(void*)f_5596}, {C_text("f_5602:modules_2escm"),(void*)f_5602}, {C_text("f_5606:modules_2escm"),(void*)f_5606}, {C_text("f_5609:modules_2escm"),(void*)f_5609}, {C_text("f_5633:modules_2escm"),(void*)f_5633}, {C_text("f_5637:modules_2escm"),(void*)f_5637}, {C_text("f_5639:modules_2escm"),(void*)f_5639}, {C_text("f_5673:modules_2escm"),(void*)f_5673}, {C_text("f_5681:modules_2escm"),(void*)f_5681}, {C_text("f_5683:modules_2escm"),(void*)f_5683}, {C_text("f_5691:modules_2escm"),(void*)f_5691}, {C_text("f_5718:modules_2escm"),(void*)f_5718}, {C_text("f_5720:modules_2escm"),(void*)f_5720}, {C_text("f_5774:modules_2escm"),(void*)f_5774}, {C_text("f_5781:modules_2escm"),(void*)f_5781}, {C_text("f_5784:modules_2escm"),(void*)f_5784}, {C_text("f_5787:modules_2escm"),(void*)f_5787}, {C_text("f_5790:modules_2escm"),(void*)f_5790}, {C_text("f_5796:modules_2escm"),(void*)f_5796}, {C_text("f_5809:modules_2escm"),(void*)f_5809}, {C_text("f_5821:modules_2escm"),(void*)f_5821}, {C_text("f_5825:modules_2escm"),(void*)f_5825}, {C_text("f_5827:modules_2escm"),(void*)f_5827}, {C_text("f_5843:modules_2escm"),(void*)f_5843}, {C_text("f_5844:modules_2escm"),(void*)f_5844}, {C_text("f_5852:modules_2escm"),(void*)f_5852}, {C_text("f_5866:modules_2escm"),(void*)f_5866}, {C_text("f_5869:modules_2escm"),(void*)f_5869}, {C_text("f_5876:modules_2escm"),(void*)f_5876}, {C_text("f_5880:modules_2escm"),(void*)f_5880}, {C_text("f_5886:modules_2escm"),(void*)f_5886}, {C_text("f_5914:modules_2escm"),(void*)f_5914}, {C_text("f_5916:modules_2escm"),(void*)f_5916}, {C_text("f_5919:modules_2escm"),(void*)f_5919}, {C_text("f_5923:modules_2escm"),(void*)f_5923}, {C_text("f_5939:modules_2escm"),(void*)f_5939}, {C_text("f_5946:modules_2escm"),(void*)f_5946}, {C_text("f_5960:modules_2escm"),(void*)f_5960}, {C_text("f_5970:modules_2escm"),(void*)f_5970}, {C_text("f_5973:modules_2escm"),(void*)f_5973}, {C_text("f_5976:modules_2escm"),(void*)f_5976}, {C_text("f_5982:modules_2escm"),(void*)f_5982}, {C_text("f_5985:modules_2escm"),(void*)f_5985}, {C_text("f_5988:modules_2escm"),(void*)f_5988}, {C_text("f_6021:modules_2escm"),(void*)f_6021}, {C_text("f_6025:modules_2escm"),(void*)f_6025}, {C_text("f_6032:modules_2escm"),(void*)f_6032}, {C_text("f_6036:modules_2escm"),(void*)f_6036}, {C_text("f_6049:modules_2escm"),(void*)f_6049}, {C_text("f_6059:modules_2escm"),(void*)f_6059}, {C_text("f_6062:modules_2escm"),(void*)f_6062}, {C_text("f_6068:modules_2escm"),(void*)f_6068}, {C_text("f_6071:modules_2escm"),(void*)f_6071}, {C_text("f_6077:modules_2escm"),(void*)f_6077}, {C_text("f_6111:modules_2escm"),(void*)f_6111}, {C_text("f_6115:modules_2escm"),(void*)f_6115}, {C_text("f_6130:modules_2escm"),(void*)f_6130}, {C_text("f_6141:modules_2escm"),(void*)f_6141}, {C_text("f_6147:modules_2escm"),(void*)f_6147}, {C_text("f_6164:modules_2escm"),(void*)f_6164}, {C_text("f_6171:modules_2escm"),(void*)f_6171}, {C_text("f_6178:modules_2escm"),(void*)f_6178}, {C_text("f_6223:modules_2escm"),(void*)f_6223}, {C_text("f_6329:modules_2escm"),(void*)f_6329}, {C_text("f_6337:modules_2escm"),(void*)f_6337}, {C_text("f_6341:modules_2escm"),(void*)f_6341}, {C_text("f_6352:modules_2escm"),(void*)f_6352}, {C_text("f_6379:modules_2escm"),(void*)f_6379}, {C_text("f_6402:modules_2escm"),(void*)f_6402}, {C_text("f_6416:modules_2escm"),(void*)f_6416}, {C_text("f_6424:modules_2escm"),(void*)f_6424}, {C_text("f_6428:modules_2escm"),(void*)f_6428}, {C_text("f_6441:modules_2escm"),(void*)f_6441}, {C_text("f_6456:modules_2escm"),(void*)f_6456}, {C_text("f_6474:modules_2escm"),(void*)f_6474}, {C_text("f_6485:modules_2escm"),(void*)f_6485}, {C_text("f_6504:modules_2escm"),(void*)f_6504}, {C_text("f_6517:modules_2escm"),(void*)f_6517}, {C_text("f_6527:modules_2escm"),(void*)f_6527}, {C_text("f_6533:modules_2escm"),(void*)f_6533}, {C_text("f_6537:modules_2escm"),(void*)f_6537}, {C_text("f_6540:modules_2escm"),(void*)f_6540}, {C_text("f_6551:modules_2escm"),(void*)f_6551}, {C_text("f_6567:modules_2escm"),(void*)f_6567}, {C_text("f_6579:modules_2escm"),(void*)f_6579}, {C_text("f_6593:modules_2escm"),(void*)f_6593}, {C_text("f_6598:modules_2escm"),(void*)f_6598}, {C_text("f_6608:modules_2escm"),(void*)f_6608}, {C_text("f_6626:modules_2escm"),(void*)f_6626}, {C_text("f_6648:modules_2escm"),(void*)f_6648}, {C_text("f_6656:modules_2escm"),(void*)f_6656}, {C_text("f_6686:modules_2escm"),(void*)f_6686}, {C_text("f_6709:modules_2escm"),(void*)f_6709}, {C_text("f_6713:modules_2escm"),(void*)f_6713}, {C_text("f_6717:modules_2escm"),(void*)f_6717}, {C_text("f_6721:modules_2escm"),(void*)f_6721}, {C_text("f_6725:modules_2escm"),(void*)f_6725}, {C_text("f_6757:modules_2escm"),(void*)f_6757}, {C_text("f_6761:modules_2escm"),(void*)f_6761}, {C_text("f_6773:modules_2escm"),(void*)f_6773}, {C_text("f_6805:modules_2escm"),(void*)f_6805}, {C_text("f_6815:modules_2escm"),(void*)f_6815}, {C_text("f_6830:modules_2escm"),(void*)f_6830}, {C_text("f_6854:modules_2escm"),(void*)f_6854}, {C_text("f_6870:modules_2escm"),(void*)f_6870}, {C_text("f_6872:modules_2escm"),(void*)f_6872}, {C_text("f_6897:modules_2escm"),(void*)f_6897}, {C_text("f_6959:modules_2escm"),(void*)f_6959}, {C_text("f_6961:modules_2escm"),(void*)f_6961}, {C_text("f_6986:modules_2escm"),(void*)f_6986}, {C_text("f_7016:modules_2escm"),(void*)f_7016}, {C_text("f_7037:modules_2escm"),(void*)f_7037}, {C_text("f_7065:modules_2escm"),(void*)f_7065}, {C_text("f_7073:modules_2escm"),(void*)f_7073}, {C_text("f_7103:modules_2escm"),(void*)f_7103}, {C_text("f_7128:modules_2escm"),(void*)f_7128}, {C_text("f_7138:modules_2escm"),(void*)f_7138}, {C_text("f_7154:modules_2escm"),(void*)f_7154}, {C_text("f_7164:modules_2escm"),(void*)f_7164}, {C_text("f_7170:modules_2escm"),(void*)f_7170}, {C_text("f_7171:modules_2escm"),(void*)f_7171}, {C_text("f_7183:modules_2escm"),(void*)f_7183}, {C_text("f_7196:modules_2escm"),(void*)f_7196}, {C_text("f_7197:modules_2escm"),(void*)f_7197}, {C_text("f_7209:modules_2escm"),(void*)f_7209}, {C_text("f_7222:modules_2escm"),(void*)f_7222}, {C_text("f_7225:modules_2escm"),(void*)f_7225}, {C_text("f_7241:modules_2escm"),(void*)f_7241}, {C_text("f_7245:modules_2escm"),(void*)f_7245}, {C_text("f_7249:modules_2escm"),(void*)f_7249}, {C_text("f_7251:modules_2escm"),(void*)f_7251}, {C_text("f_7261:modules_2escm"),(void*)f_7261}, {C_text("f_7274:modules_2escm"),(void*)f_7274}, {C_text("f_7284:modules_2escm"),(void*)f_7284}, {C_text("f_7301:modules_2escm"),(void*)f_7301}, {C_text("f_7308:modules_2escm"),(void*)f_7308}, {C_text("f_7312:modules_2escm"),(void*)f_7312}, {C_text("f_7325:modules_2escm"),(void*)f_7325}, {C_text("f_7350:modules_2escm"),(void*)f_7350}, {C_text("f_7359:modules_2escm"),(void*)f_7359}, {C_text("f_7384:modules_2escm"),(void*)f_7384}, {C_text("f_7399:modules_2escm"),(void*)f_7399}, {C_text("f_7406:modules_2escm"),(void*)f_7406}, {C_text("f_7412:modules_2escm"),(void*)f_7412}, {C_text("f_7428:modules_2escm"),(void*)f_7428}, {C_text("f_7432:modules_2escm"),(void*)f_7432}, {C_text("f_7436:modules_2escm"),(void*)f_7436}, {C_text("f_7449:modules_2escm"),(void*)f_7449}, {C_text("f_7471:modules_2escm"),(void*)f_7471}, {C_text("f_7473:modules_2escm"),(void*)f_7473}, {C_text("f_7498:modules_2escm"),(void*)f_7498}, {C_text("f_7513:modules_2escm"),(void*)f_7513}, {C_text("f_7528:modules_2escm"),(void*)f_7528}, {C_text("f_7539:modules_2escm"),(void*)f_7539}, {C_text("f_7541:modules_2escm"),(void*)f_7541}, {C_text("f_7569:modules_2escm"),(void*)f_7569}, {C_text("f_7606:modules_2escm"),(void*)f_7606}, {C_text("f_7635:modules_2escm"),(void*)f_7635}, {C_text("f_7644:modules_2escm"),(void*)f_7644}, {C_text("f_7647:modules_2escm"),(void*)f_7647}, {C_text("f_7650:modules_2escm"),(void*)f_7650}, {C_text("f_7651:modules_2escm"),(void*)f_7651}, {C_text("f_7665:modules_2escm"),(void*)f_7665}, {C_text("f_7669:modules_2escm"),(void*)f_7669}, {C_text("f_7672:modules_2escm"),(void*)f_7672}, {C_text("f_7675:modules_2escm"),(void*)f_7675}, {C_text("f_7678:modules_2escm"),(void*)f_7678}, {C_text("f_7686:modules_2escm"),(void*)f_7686}, {C_text("f_7693:modules_2escm"),(void*)f_7693}, {C_text("f_7702:modules_2escm"),(void*)f_7702}, {C_text("f_7705:modules_2escm"),(void*)f_7705}, {C_text("f_7712:modules_2escm"),(void*)f_7712}, {C_text("f_7715:modules_2escm"),(void*)f_7715}, {C_text("f_7716:modules_2escm"),(void*)f_7716}, {C_text("f_7720:modules_2escm"),(void*)f_7720}, {C_text("f_7723:modules_2escm"),(void*)f_7723}, {C_text("f_7735:modules_2escm"),(void*)f_7735}, {C_text("f_7745:modules_2escm"),(void*)f_7745}, {C_text("f_7767:modules_2escm"),(void*)f_7767}, {C_text("f_7768:modules_2escm"),(void*)f_7768}, {C_text("f_7772:modules_2escm"),(void*)f_7772}, {C_text("f_7780:modules_2escm"),(void*)f_7780}, {C_text("f_7790:modules_2escm"),(void*)f_7790}, {C_text("f_7804:modules_2escm"),(void*)f_7804}, {C_text("f_7810:modules_2escm"),(void*)f_7810}, {C_text("f_7813:modules_2escm"),(void*)f_7813}, {C_text("f_7841:modules_2escm"),(void*)f_7841}, {C_text("f_7848:modules_2escm"),(void*)f_7848}, {C_text("f_7854:modules_2escm"),(void*)f_7854}, {C_text("f_7857:modules_2escm"),(void*)f_7857}, {C_text("f_7858:modules_2escm"),(void*)f_7858}, {C_text("f_7862:modules_2escm"),(void*)f_7862}, {C_text("f_7880:modules_2escm"),(void*)f_7880}, {C_text("f_7886:modules_2escm"),(void*)f_7886}, {C_text("f_7889:modules_2escm"),(void*)f_7889}, {C_text("f_7892:modules_2escm"),(void*)f_7892}, {C_text("f_7903:modules_2escm"),(void*)f_7903}, {C_text("f_7907:modules_2escm"),(void*)f_7907}, {C_text("f_7911:modules_2escm"),(void*)f_7911}, {C_text("f_7915:modules_2escm"),(void*)f_7915}, {C_text("f_7921:modules_2escm"),(void*)f_7921}, {C_text("f_7931:modules_2escm"),(void*)f_7931}, {C_text("f_7946:modules_2escm"),(void*)f_7946}, {C_text("f_7950:modules_2escm"),(void*)f_7950}, {C_text("f_7952:modules_2escm"),(void*)f_7952}, {C_text("f_7977:modules_2escm"),(void*)f_7977}, {C_text("f_7989:modules_2escm"),(void*)f_7989}, {C_text("f_7999:modules_2escm"),(void*)f_7999}, {C_text("f_8016:modules_2escm"),(void*)f_8016}, {C_text("f_8047:modules_2escm"),(void*)f_8047}, {C_text("f_8051:modules_2escm"),(void*)f_8051}, {C_text("f_8060:modules_2escm"),(void*)f_8060}, {C_text("f_8063:modules_2escm"),(void*)f_8063}, {C_text("f_8075:modules_2escm"),(void*)f_8075}, {C_text("f_8091:modules_2escm"),(void*)f_8091}, {C_text("f_8095:modules_2escm"),(void*)f_8095}, {C_text("f_8099:modules_2escm"),(void*)f_8099}, {C_text("f_8113:modules_2escm"),(void*)f_8113}, {C_text("f_8146:modules_2escm"),(void*)f_8146}, {C_text("f_8148:modules_2escm"),(void*)f_8148}, {C_text("f_8161:modules_2escm"),(void*)f_8161}, {C_text("f_8170:modules_2escm"),(void*)f_8170}, {C_text("f_8183:modules_2escm"),(void*)f_8183}, {C_text("f_8208:modules_2escm"),(void*)f_8208}, {C_text("f_8218:modules_2escm"),(void*)f_8218}, {C_text("f_8222:modules_2escm"),(void*)f_8222}, {C_text("f_8228:modules_2escm"),(void*)f_8228}, {C_text("f_8231:modules_2escm"),(void*)f_8231}, {C_text("f_8236:modules_2escm"),(void*)f_8236}, {C_text("f_8240:modules_2escm"),(void*)f_8240}, {C_text("f_8243:modules_2escm"),(void*)f_8243}, {C_text("f_8246:modules_2escm"),(void*)f_8246}, {C_text("f_8249:modules_2escm"),(void*)f_8249}, {C_text("f_8253:modules_2escm"),(void*)f_8253}, {C_text("f_8257:modules_2escm"),(void*)f_8257}, {C_text("f_8261:modules_2escm"),(void*)f_8261}, {C_text("f_8265:modules_2escm"),(void*)f_8265}, {C_text("f_8268:modules_2escm"),(void*)f_8268}, {C_text("f_8271:modules_2escm"),(void*)f_8271}, {C_text("f_8274:modules_2escm"),(void*)f_8274}, {C_text("f_8277:modules_2escm"),(void*)f_8277}, {C_text("f_8292:modules_2escm"),(void*)f_8292}, {C_text("f_8298:modules_2escm"),(void*)f_8298}, {C_text("f_8303:modules_2escm"),(void*)f_8303}, {C_text("f_8307:modules_2escm"),(void*)f_8307}, {C_text("f_8312:modules_2escm"),(void*)f_8312}, {C_text("f_8317:modules_2escm"),(void*)f_8317}, {C_text("f_8321:modules_2escm"),(void*)f_8321}, {C_text("f_8324:modules_2escm"),(void*)f_8324}, {C_text("f_8327:modules_2escm"),(void*)f_8327}, {C_text("f_8330:modules_2escm"),(void*)f_8330}, {C_text("f_8333:modules_2escm"),(void*)f_8333}, {C_text("f_8336:modules_2escm"),(void*)f_8336}, {C_text("f_8339:modules_2escm"),(void*)f_8339}, {C_text("f_8342:modules_2escm"),(void*)f_8342}, {C_text("f_8350:modules_2escm"),(void*)f_8350}, {C_text("f_8354:modules_2escm"),(void*)f_8354}, {C_text("f_8357:modules_2escm"),(void*)f_8357}, {C_text("f_8361:modules_2escm"),(void*)f_8361}, {C_text("f_8364:modules_2escm"),(void*)f_8364}, {C_text("f_8372:modules_2escm"),(void*)f_8372}, {C_text("f_8376:modules_2escm"),(void*)f_8376}, {C_text("f_8379:modules_2escm"),(void*)f_8379}, {C_text("f_8382:modules_2escm"),(void*)f_8382}, {C_text("f_8385:modules_2escm"),(void*)f_8385}, {C_text("f_8387:modules_2escm"),(void*)f_8387}, {C_text("f_8395:modules_2escm"),(void*)f_8395}, {C_text("f_8399:modules_2escm"),(void*)f_8399}, {C_text("f_8401:modules_2escm"),(void*)f_8401}, {C_text("f_8414:modules_2escm"),(void*)f_8414}, {C_text("f_8421:modules_2escm"),(void*)f_8421}, {C_text("f_8448:modules_2escm"),(void*)f_8448}, {C_text("f_8451:modules_2escm"),(void*)f_8451}, {C_text("f_8455:modules_2escm"),(void*)f_8455}, {C_text("f_8458:modules_2escm"),(void*)f_8458}, {C_text("f_8499:modules_2escm"),(void*)f_8499}, {C_text("f_8513:modules_2escm"),(void*)f_8513}, {C_text("f_8531:modules_2escm"),(void*)f_8531}, {C_text("f_8534:modules_2escm"),(void*)f_8534}, {C_text("f_8539:modules_2escm"),(void*)f_8539}, {C_text("f_8549:modules_2escm"),(void*)f_8549}, {C_text("f_8553:modules_2escm"),(void*)f_8553}, {C_text("f_8558:modules_2escm"),(void*)f_8558}, {C_text("f_8566:modules_2escm"),(void*)f_8566}, {C_text("f_8576:modules_2escm"),(void*)f_8576}, {C_text("f_8589:modules_2escm"),(void*)f_8589}, {C_text("f_8599:modules_2escm"),(void*)f_8599}, {C_text("f_8617:modules_2escm"),(void*)f_8617}, {C_text("f_8639:modules_2escm"),(void*)f_8639}, {C_text("f_8681:modules_2escm"),(void*)f_8681}, {C_text("f_8684:modules_2escm"),(void*)f_8684}, {C_text("f_8689:modules_2escm"),(void*)f_8689}, {C_text("f_8699:modules_2escm"),(void*)f_8699}, {C_text("f_8703:modules_2escm"),(void*)f_8703}, {C_text("f_8708:modules_2escm"),(void*)f_8708}, {C_text("f_8720:modules_2escm"),(void*)f_8720}, {C_text("f_8728:modules_2escm"),(void*)f_8728}, {C_text("f_8738:modules_2escm"),(void*)f_8738}, {C_text("f_8751:modules_2escm"),(void*)f_8751}, {C_text("f_8761:modules_2escm"),(void*)f_8761}, {C_text("f_8779:modules_2escm"),(void*)f_8779}, {C_text("f_8791:modules_2escm"),(void*)f_8791}, {C_text("f_8820:modules_2escm"),(void*)f_8820}, {C_text("f_8832:modules_2escm"),(void*)f_8832}, {C_text("f_8864:modules_2escm"),(void*)f_8864}, {C_text("f_8867:modules_2escm"),(void*)f_8867}, {C_text("f_8872:modules_2escm"),(void*)f_8872}, {C_text("f_8882:modules_2escm"),(void*)f_8882}, {C_text("f_8886:modules_2escm"),(void*)f_8886}, {C_text("f_8891:modules_2escm"),(void*)f_8891}, {C_text("f_8903:modules_2escm"),(void*)f_8903}, {C_text("f_8911:modules_2escm"),(void*)f_8911}, {C_text("f_8924:modules_2escm"),(void*)f_8924}, {C_text("f_8930:modules_2escm"),(void*)f_8930}, {C_text("f_8943:modules_2escm"),(void*)f_8943}, {C_text("f_8953:modules_2escm"),(void*)f_8953}, {C_text("f_8966:modules_2escm"),(void*)f_8966}, {C_text("f_9005:modules_2escm"),(void*)f_9005}, {C_text("f_9021:modules_2escm"),(void*)f_9021}, {C_text("f_9058:modules_2escm"),(void*)f_9058}, {C_text("f_9074:modules_2escm"),(void*)f_9074}, {C_text("f_9114:modules_2escm"),(void*)f_9114}, {C_text("f_9117:modules_2escm"),(void*)f_9117}, {C_text("f_9122:modules_2escm"),(void*)f_9122}, {C_text("f_9132:modules_2escm"),(void*)f_9132}, {C_text("f_9136:modules_2escm"),(void*)f_9136}, {C_text("f_9138:modules_2escm"),(void*)f_9138}, {C_text("f_9146:modules_2escm"),(void*)f_9146}, {C_text("f_9152:modules_2escm"),(void*)f_9152}, {C_text("f_9156:modules_2escm"),(void*)f_9156}, {C_text("f_9160:modules_2escm"),(void*)f_9160}, {C_text("f_9181:modules_2escm"),(void*)f_9181}, {C_text("f_9191:modules_2escm"),(void*)f_9191}, {C_text("f_9193:modules_2escm"),(void*)f_9193}, {C_text("f_9218:modules_2escm"),(void*)f_9218}, {C_text("f_9227:modules_2escm"),(void*)f_9227}, {C_text("f_9252:modules_2escm"),(void*)f_9252}, {C_text("f_9270:modules_2escm"),(void*)f_9270}, {C_text("f_9276:modules_2escm"),(void*)f_9276}, {C_text("f_9280:modules_2escm"),(void*)f_9280}, {C_text("f_9281:modules_2escm"),(void*)f_9281}, {C_text("f_9287:modules_2escm"),(void*)f_9287}, {C_text("f_9293:modules_2escm"),(void*)f_9293}, {C_text("f_9315:modules_2escm"),(void*)f_9315}, {C_text("f_9317:modules_2escm"),(void*)f_9317}, {C_text("f_9327:modules_2escm"),(void*)f_9327}, {C_text("f_9340:modules_2escm"),(void*)f_9340}, {C_text("f_9344:modules_2escm"),(void*)f_9344}, {C_text("f_9347:modules_2escm"),(void*)f_9347}, {C_text("f_9357:modules_2escm"),(void*)f_9357}, {C_text("f_9395:modules_2escm"),(void*)f_9395}, {C_text("f_9401:modules_2escm"),(void*)f_9401}, {C_text("f_9402:modules_2escm"),(void*)f_9402}, {C_text("f_9438:modules_2escm"),(void*)f_9438}, {C_text("f_9444:modules_2escm"),(void*)f_9444}, {C_text("f_9447:modules_2escm"),(void*)f_9447}, {C_text("f_9450:modules_2escm"),(void*)f_9450}, {C_text("f_9457:modules_2escm"),(void*)f_9457}, {C_text("f_9461:modules_2escm"),(void*)f_9461}, {C_text("f_9465:modules_2escm"),(void*)f_9465}, {C_text("f_9469:modules_2escm"),(void*)f_9469}, {C_text("f_9472:modules_2escm"),(void*)f_9472}, {C_text("f_9478:modules_2escm"),(void*)f_9478}, {C_text("f_9481:modules_2escm"),(void*)f_9481}, {C_text("f_9488:modules_2escm"),(void*)f_9488}, {C_text("f_9498:modules_2escm"),(void*)f_9498}, {C_text("f_9505:modules_2escm"),(void*)f_9505}, {C_text("f_9516:modules_2escm"),(void*)f_9516}, {C_text("f_9523:modules_2escm"),(void*)f_9523}, {C_text("f_9525:modules_2escm"),(void*)f_9525}, {C_text("f_9559:modules_2escm"),(void*)f_9559}, {C_text("f_9595:modules_2escm"),(void*)f_9595}, {C_text("f_9606:modules_2escm"),(void*)f_9606}, {C_text("f_9620:modules_2escm"),(void*)f_9620}, {C_text("f_9627:modules_2escm"),(void*)f_9627}, {C_text("f_9629:modules_2escm"),(void*)f_9629}, {C_text("f_9663:modules_2escm"),(void*)f_9663}, {C_text("f_9703:modules_2escm"),(void*)f_9703}, {C_text("f_9713:modules_2escm"),(void*)f_9713}, {C_text("f_9726:modules_2escm"),(void*)f_9726}, {C_text("f_9736:modules_2escm"),(void*)f_9736}, {C_text("f_9757:modules_2escm"),(void*)f_9757}, {C_text("f_9772:modules_2escm"),(void*)f_9772}, {C_text("f_9782:modules_2escm"),(void*)f_9782}, {C_text("f_9790:modules_2escm"),(void*)f_9790}, {C_text("f_9800:modules_2escm"),(void*)f_9800}, {C_text("f_9803:modules_2escm"),(void*)f_9803}, {C_text("f_9807:modules_2escm"),(void*)f_9807}, {C_text("f_9811:modules_2escm"),(void*)f_9811}, {C_text("f_9818:modules_2escm"),(void*)f_9818}, {C_text("f_9837:modules_2escm"),(void*)f_9837}, {C_text("f_9852:modules_2escm"),(void*)f_9852}, {C_text("f_9878:modules_2escm"),(void*)f_9878}, {C_text("f_9880:modules_2escm"),(void*)f_9880}, {C_text("f_9883:modules_2escm"),(void*)f_9883}, {C_text("f_9889:modules_2escm"),(void*)f_9889}, {C_text("f_9930:modules_2escm"),(void*)f_9930}, {C_text("f_9962:modules_2escm"),(void*)f_9962}, {C_text("f_9988:modules_2escm"),(void*)f_9988}, {C_text("toplevel:modules_2escm"),(void*)C_modules_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* S|applied compiler syntax: S| scheme#for-each 15 S| chicken.base#foldl 3 S| scheme#map 33 S| chicken.base#foldr 3 o|eliminated procedure checks: 436 o|specializations: o| 1 (scheme#cddr (pair * pair)) o| 1 (scheme#number->string *) o| 2 (scheme#string-append string string) o| 1 (scheme#= fixnum fixnum) o| 2 (scheme#cdar (pair pair *)) o| 1 (scheme#caar (pair pair *)) o| 1 (null (not null)) o| 1 (scheme#eqv? * *) o| 9 (##sys#check-list (or pair list) *) o| 67 (scheme#cdr pair) o| 35 (scheme#car pair) (o e)|safe calls: 1110 (o e)|dropped branches: 1 (o e)|assignments to immediate values: 1 o|safe globals: (posv posq make-list iota find-tail find length+ lset=/eq? lset<=/eq? list-tabulate lset-intersection/eq? lset-union/eq? lset-difference/eq? lset-adjoin/eq? list-index last unzip1 remove filter-map filter alist-cons delete-duplicates fifth fourth third second first delete concatenate cons* any every append-map split-at drop take span partition) o|removed side-effect free assignment to unused variable: partition o|removed side-effect free assignment to unused variable: span o|removed side-effect free assignment to unused variable: drop o|removed side-effect free assignment to unused variable: split-at o|removed side-effect free assignment to unused variable: append-map o|inlining procedure: k4374 o|inlining procedure: k4374 o|inlining procedure: k4405 o|inlining procedure: k4405 o|removed side-effect free assignment to unused variable: cons* o|removed side-effect free assignment to unused variable: concatenate o|inlining procedure: k4491 o|inlining procedure: k4491 o|removed side-effect free assignment to unused variable: first o|removed side-effect free assignment to unused variable: second o|removed side-effect free assignment to unused variable: third o|removed side-effect free assignment to unused variable: fourth o|removed side-effect free assignment to unused variable: fifth o|removed side-effect free assignment to unused variable: delete-duplicates o|removed side-effect free assignment to unused variable: alist-cons o|inlining procedure: k4622 o|inlining procedure: k4622 o|inlining procedure: k4614 o|inlining procedure: k4614 o|removed side-effect free assignment to unused variable: filter-map o|removed side-effect free assignment to unused variable: remove o|removed side-effect free assignment to unused variable: unzip1 o|removed side-effect free assignment to unused variable: last o|removed side-effect free assignment to unused variable: list-index o|removed side-effect free assignment to unused variable: lset-adjoin/eq? o|removed side-effect free assignment to unused variable: lset-difference/eq? o|removed side-effect free assignment to unused variable: lset-union/eq? o|removed side-effect free assignment to unused variable: lset-intersection/eq? o|inlining procedure: k5013 o|inlining procedure: k5013 o|removed side-effect free assignment to unused variable: lset<=/eq? o|removed side-effect free assignment to unused variable: lset=/eq? o|removed side-effect free assignment to unused variable: length+ o|removed side-effect free assignment to unused variable: find o|removed side-effect free assignment to unused variable: find-tail o|removed side-effect free assignment to unused variable: iota o|removed side-effect free assignment to unused variable: make-list o|removed side-effect free assignment to unused variable: posq o|removed side-effect free assignment to unused variable: posv o|removed side-effect free assignment to unused variable: module? o|contracted procedure: "(modules.scm:123) %make-module" o|inlining procedure: k5641 o|contracted procedure: "(modules.scm:132) g905914" o|inlining procedure: k5641 o|inlining procedure: k5696 o|inlining procedure: k5696 o|inlining procedure: k5688 o|inlining procedure: k5688 o|inlining procedure: k5737 o|inlining procedure: k5737 o|inlining procedure: k5788 o|inlining procedure: k5788 o|inlining procedure: k5849 o|inlining procedure: k5849 o|inlining procedure: k5832 o|inlining procedure: k5888 o|inlining procedure: k5888 o|inlining procedure: k5832 o|inlining procedure: k5924 o|contracted procedure: "(modules.scm:186) set-module-meta-expressions!" o|inlining procedure: k5924 o|inlining procedure: k5950 o|inlining procedure: k5950 o|inlining procedure: k5962 o|inlining procedure: k5962 o|inlining procedure: k6051 o|inlining procedure: k6051 o|inlining procedure: k6132 o|inlining procedure: k6132 o|merged explicitly consed rest parameter: ses*1169 o|inlining procedure: k6553 o|inlining procedure: k6553 o|inlining procedure: k6573 o|inlining procedure: k6600 o|inlining procedure: k6600 o|inlining procedure: k6573 o|inlining procedure: k6628 o|inlining procedure: k6628 o|inlining procedure: k6759 o|inlining procedure: k6759 o|inlining procedure: k6775 o|inlining procedure: k6775 o|inlining procedure: k6838 o|inlining procedure: k6838 o|inlining procedure: k6874 o|inlining procedure: k6874 o|inlining procedure: k6963 o|contracted procedure: "(modules.scm:333) g12451254" o|inlining procedure: k6915 o|inlining procedure: k6915 o|inlining procedure: k6963 o|contracted procedure: "(modules.scm:326) g12331234" o|inlining procedure: k7109 o|contracted procedure: "(modules.scm:376) find-reexport1339" o|inlining procedure: k7084 o|inlining procedure: k7084 o|inlining procedure: k7109 o|consed rest parameter at call site: "(modules.scm:393) merge-se" 1 o|inlining procedure: k7188 o|consed rest parameter at call site: "(modules.scm:393) merge-se" 1 o|inlining procedure: k7188 o|consed rest parameter at call site: "(modules.scm:393) merge-se" 1 o|consed rest parameter at call site: "(modules.scm:397) merge-se" 1 o|inlining procedure: k7214 o|consed rest parameter at call site: "(modules.scm:397) merge-se" 1 o|inlining procedure: k7214 o|consed rest parameter at call site: "(modules.scm:397) merge-se" 1 o|consed rest parameter at call site: "(modules.scm:401) merge-se" 1 o|inlining procedure: k7253 o|inlining procedure: k7253 o|inlining procedure: k7276 o|inlining procedure: k7276 o|consed rest parameter at call site: "(modules.scm:386) merge-se" 1 o|inlining procedure: k7327 o|contracted procedure: "(modules.scm:380) g13801389" o|inlining procedure: k7327 o|inlining procedure: k7361 o|inlining procedure: k7361 o|consed rest parameter at call site: "(modules.scm:422) merge-se" 1 o|inlining procedure: k7451 o|inlining procedure: k7451 o|inlining procedure: k7475 o|inlining procedure: k7475 o|inlining procedure: k7543 o|inlining procedure: k7543 o|inlining procedure: k7555 o|inlining procedure: k7570 o|inlining procedure: k7570 o|inlining procedure: k7555 o|inlining procedure: k7657 o|inlining procedure: k7657 o|inlining procedure: k7694 o|inlining procedure: k7694 o|inlining procedure: k7737 o|inlining procedure: k7737 o|substituted constant variable: a7757 o|contracted procedure: "(modules.scm:509) g16351636" o|inlining procedure: k7782 o|inlining procedure: k7782 o|consed rest parameter at call site: "(modules.scm:538) merge-se" 1 o|consed rest parameter at call site: "(modules.scm:556) merge-se" 1 o|consed rest parameter at call site: "(modules.scm:553) merge-se" 1 o|contracted procedure: "(modules.scm:549) set-module-vexports!" o|inlining procedure: k7923 o|inlining procedure: k7923 o|consed rest parameter at call site: "(modules.scm:532) merge-se" 1 o|inlining procedure: k7954 o|contracted procedure: "(modules.scm:527) g16871696" o|inlining procedure: k7819 o|inlining procedure: k7819 o|inlining procedure: k7954 o|contracted procedure: "(modules.scm:531) module-indirect-exports" o|removed side-effect free assignment to unused variable: indirect?1120 o|inlining procedure: k6342 o|inlining procedure: k6342 o|inlining procedure: k6354 o|inlining procedure: k6354 o|inlining procedure: k6381 o|inlining procedure: k6381 o|inlining procedure: k6439 o|inlining procedure: k6439 o|inlining procedure: k6413 o|inlining procedure: k6413 o|inlining procedure: k6458 o|inlining procedure: k6458 o|inlining procedure: k7991 o|inlining procedure: k7991 o|inlining procedure: k8018 o|inlining procedure: k8018 o|inlining procedure: k8058 o|inlining procedure: k8058 o|inlining procedure: k8082 o|inlining procedure: k8082 o|consed rest parameter at call site: "(modules.scm:457) merge-se" 1 o|inlining procedure: k8150 o|inlining procedure: k8150 o|inlining procedure: k8185 o|contracted procedure: "(modules.scm:453) g15521561" o|inlining procedure: k8185 o|substituted constant variable: saved175417551774 o|substituted constant variable: saved175617571775 o|inlining procedure: k8223 o|inlining procedure: k8223 o|substituted constant variable: a8355 o|inlining procedure: k8365 o|inlining procedure: k8365 o|inlining procedure: k8403 o|inlining procedure: k8403 o|inlining procedure: k8422 o|inlining procedure: k8422 o|inlining procedure: k8459 o|inlining procedure: k8459 o|inlining procedure: k8501 o|inlining procedure: k8501 o|inlining procedure: k8526 o|inlining procedure: k8560 o|inlining procedure: k8591 o|inlining procedure: k8591 o|inlining procedure: k8560 o|inlining procedure: k8636 o|inlining procedure: k8636 o|inlining procedure: k8526 o|inlining procedure: k8710 o|inlining procedure: k8722 o|inlining procedure: k8753 o|inlining procedure: k8753 o|inlining procedure: k8722 o|inlining procedure: k8710 o|inlining procedure: k8859 o|inlining procedure: k8893 o|inlining procedure: k8905 o|inlining procedure: k8945 o|inlining procedure: k8945 o|inlining procedure: k8968 o|inlining procedure: k8968 o|inlining procedure: k8905 o|inlining procedure: k8893 o|inlining procedure: k8859 o|inlining procedure: k9195 o|inlining procedure: k9195 o|inlining procedure: k9229 o|inlining procedure: k9229 o|inlining procedure: k9295 o|inlining procedure: k9295 o|inlining procedure: k9319 o|inlining procedure: k9319 o|inlining procedure: k9362 o|inlining procedure: k9372 o|inlining procedure: k9372 o|inlining procedure: k9362 o|inlining procedure: k9407 o|inlining procedure: k9407 o|consed rest parameter at call site: "(modules.scm:757) merge-se" 1 o|inlining procedure: k9527 o|inlining procedure: k9527 o|inlining procedure: k9561 o|inlining procedure: k9561 o|inlining procedure: k9631 o|inlining procedure: k9631 o|inlining procedure: k9665 o|inlining procedure: k9665 o|inlining procedure: k9705 o|inlining procedure: k9705 o|inlining procedure: k9728 o|inlining procedure: k9728 o|inlining procedure: k9748 o|contracted procedure: "(modules.scm:713) set-module-meta-import-forms!" o|inlining procedure: k9748 o|contracted procedure: "(modules.scm:716) set-module-import-forms!" o|contracted procedure: "(modules.scm:775) register-undefined" o|inlining procedure: k6159 o|inlining procedure: k6173 o|inlining procedure: k6173 o|inlining procedure: k6216 o|inlining procedure: k6216 o|inlining procedure: k6159 o|inlining procedure: k9808 o|inlining procedure: k9808 o|inlining procedure: k9832 o|inlining procedure: k9832 o|inlining procedure: k9860 o|inlining procedure: k9860 o|inlining procedure: k9849 o|inlining procedure: k9849 o|contracted procedure: "(modules.scm:779) g24742475" o|merged explicitly consed rest parameter: args2495 o|inlining procedure: k9896 o|inlining procedure: k9896 o|consed rest parameter at call site: "(modules.scm:794) err2493" 1 o|contracted procedure: "(modules.scm:793) g25002501" o|inlining procedure: k9902 o|inlining procedure: k9902 o|inlining procedure: k9917 o|consed rest parameter at call site: "(modules.scm:798) err2493" 1 o|inlining procedure: k9917 o|inlining procedure: k9932 o|inlining procedure: k9932 o|consed rest parameter at call site: "(modules.scm:803) err2493" 1 o|inlining procedure: k9950 o|inlining procedure: k9950 o|consed rest parameter at call site: "(modules.scm:808) err2493" 1 o|inlining procedure: k9974 o|inlining procedure: k9974 o|inlining procedure: k9997 o|inlining procedure: k9997 o|consed rest parameter at call site: "(modules.scm:814) err2493" 1 o|inlining procedure: k10041 o|inlining procedure: k10041 o|consed rest parameter at call site: "(modules.scm:819) err2493" 1 o|contracted procedure: "(modules.scm:822) g25312532" o|merged explicitly consed rest parameter: args2546 o|consed rest parameter at call site: "(modules.scm:833) err2545" 1 o|inlining procedure: k10162 o|inlining procedure: k10162 o|inlining procedure: k10213 o|inlining procedure: k10213 o|inlining procedure: k10222 o|inlining procedure: k10234 o|inlining procedure: k10234 o|removed unused parameter to known procedure: alias2607 "(modules.scm:847) match-functor-argument" o|inlining procedure: k10222 o|removed unused parameter to known procedure: alias2607 "(modules.scm:861) match-functor-argument" o|consed rest parameter at call site: "(modules.scm:828) err2545" 1 o|contracted procedure: "(modules.scm:825) g25412542" o|removed unused formal parameters: (alias2607) o|inlining procedure: k10342 o|inlining procedure: k10353 o|inlining procedure: k10353 o|inlining procedure: k10342 o|inlining procedure: k10437 o|contracted procedure: "(modules.scm:888) g26442653" o|substituted constant variable: a10423 o|inlining procedure: k10437 o|inlining procedure: k10471 o|inlining procedure: k10471 o|inlining procedure: k10585 o|inlining procedure: k10585 o|contracted procedure: "(modules.scm:1110) g31253126" o|inlining procedure: k10637 o|inlining procedure: k10637 o|contracted procedure: "(modules.scm:1107) g30873088" o|inlining procedure: k10691 o|inlining procedure: k10691 o|contracted procedure: "(modules.scm:1103) g30493050" o|inlining procedure: k10745 o|inlining procedure: k10745 o|contracted procedure: "(modules.scm:1097) g30113012" o|inlining procedure: k10799 o|inlining procedure: k10799 o|contracted procedure: "(modules.scm:1091) g29732974" o|inlining procedure: k10853 o|inlining procedure: k10853 o|contracted procedure: "(modules.scm:1088) g29352936" o|inlining procedure: k10907 o|inlining procedure: k10907 o|contracted procedure: "(modules.scm:1085) g28972898" o|inlining procedure: k10961 o|inlining procedure: k10961 o|contracted procedure: "(modules.scm:1082) g28592860" o|inlining procedure: k11015 o|inlining procedure: k11015 o|contracted procedure: "(modules.scm:1069) g28212822" o|inlining procedure: k11069 o|inlining procedure: k11069 o|contracted procedure: "(modules.scm:1063) g27832784" o|inlining procedure: k11123 o|inlining procedure: k11123 o|contracted procedure: "(modules.scm:1060) g27452746" o|inlining procedure: k11177 o|inlining procedure: k11177 o|contracted procedure: "(modules.scm:1051) g27072708" o|inlining procedure: k11231 o|inlining procedure: k11231 o|contracted procedure: "(modules.scm:1048) g26692670" o|inlining procedure: k11285 o|inlining procedure: k11285 o|propagated global variable: r4rs-syntax2665 ##sys#scheme-macro-environment o|replaced variables: 975 o|removed binding forms: 518 o|removed side-effect free assignment to unused variable: every o|removed side-effect free assignment to unused variable: any o|removed side-effect free assignment to unused variable: filter o|removed side-effect free assignment to unused variable: list-tabulate o|substituted constant variable: defined-list742 o|substituted constant variable: exist-list743 o|substituted constant variable: defined-syntax-list744 o|substituted constant variable: undefined-list745 o|substituted constant variable: import-forms746 o|substituted constant variable: meta-import-forms747 o|substituted constant variable: meta-expressions748 o|substituted constant variable: saved-environments752 o|substituted constant variable: r592511364 o|substituted constant variable: r595111366 o|removed call to pure procedure with unused result: "(modules.scm:206) chicken.base#void" o|removed call to pure procedure with unused result: "(modules.scm:221) chicken.base#void" o|substituted constant variable: r676011381 o|substituted constant variable: r676011381 o|substituted constant variable: r677611385 o|removed call to pure procedure with unused result: "(modules.scm:346) chicken.base#void" o|substituted constant variable: prop1236 o|substituted constant variable: r718911401 o|substituted constant variable: r718911401 o|substituted constant variable: r721511405 o|substituted constant variable: r721511405 o|contracted procedure: "(modules.scm:374) g13521361" o|substituted constant variable: r754411419 o|substituted constant variable: prop1638 o|removed call to pure procedure with unused result: "(modules.scm:539) chicken.base#void" o|removed call to pure procedure with unused result: "(modules.scm:542) chicken.base#void" o|substituted constant variable: r634311439 o|substituted constant variable: r635511441 o|converted assignments to bindings: (warn1121) o|substituted constant variable: r801911455 o|removed call to pure procedure with unused result: "(modules.scm:479) chicken.base#void" o|inlining procedure: k8058 o|substituted constant variable: r808311461 o|substituted constant variable: r815111463 o|substituted constant variable: r822411468 o|converted assignments to bindings: (rename2142) o|converted assignments to bindings: (module-imports1845) o|substituted constant variable: r937311513 o|substituted constant variable: r936311514 o|substituted constant variable: r940811516 o|removed call to pure procedure with unused result: "(modules.scm:758) chicken.base#void" o|removed call to pure procedure with unused result: "(modules.scm:721) chicken.base#void" o|removed call to pure procedure with unused result: "(modules.scm:720) chicken.base#void" o|removed call to pure procedure with unused result: "(modules.scm:719) chicken.base#void" o|substituted constant variable: r621711536 o|substituted constant variable: r621711536 o|removed call to pure procedure with unused result: "(modules.scm:773) chicken.base#void" o|removed call to pure procedure with unused result: "(modules.scm:783) chicken.base#void" o|converted assignments to bindings: (mrename2459) o|substituted constant variable: prop2503 o|substituted constant variable: r993311553 o|substituted constant variable: prop2534 o|substituted constant variable: r1021411565 o|substituted constant variable: r1021411565 o|substituted constant variable: r1023511570 o|converted assignments to bindings: (merr2553) o|converted assignments to bindings: (err2545) o|substituted constant variable: prop2544 o|substituted constant variable: names3127 o|substituted constant variable: names3089 o|substituted constant variable: names3051 o|substituted constant variable: names3013 o|substituted constant variable: names2975 o|substituted constant variable: names2937 o|substituted constant variable: names2899 o|substituted constant variable: names2861 o|substituted constant variable: names2823 o|substituted constant variable: names2785 o|substituted constant variable: names2747 o|substituted constant variable: names2709 o|substituted constant variable: names2671 o|simplifications: ((let . 6)) o|replaced variables: 31 o|removed binding forms: 1037 o|contracted procedure: k5992 o|contracted procedure: k6072 o|contracted procedure: k6859 o|inlining procedure: k7515 o|inlining procedure: k7684 o|contracted procedure: k7863 o|contracted procedure: k7881 o|contracted procedure: k8076 o|substituted constant variable: r805911676 o|contracted procedure: k9348 o|contracted procedure: k9351 o|contracted procedure: k9354 o|contracted procedure: k9813 o|inlining procedure: k9816 o|contracted procedure: k9857 o|replaced variables: 6 o|removed binding forms: 99 o|contracted procedure: k7004 o|inlining procedure: k7087 o|substituted constant variable: r751611845 o|contracted procedure: k7681 o|contracted procedure: k9843 o|contracted procedure: k9893 o|contracted procedure: k10115 o|simplifications: ((let . 1)) o|replaced variables: 1 o|removed binding forms: 25 o|substituted constant variable: r708811980 o|replaced variables: 1 o|removed binding forms: 2 o|removed conditional forms: 1 o|removed binding forms: 2 o|simplifications: ((if . 20) (##core#call . 735)) o| call simplifications: o| scheme#list? 2 o| scheme#apply 3 o| scheme#set-cdr! o| scheme#caddr o| ##sys#call-with-values 5 o| scheme#cddr 3 o| scheme#string? o| scheme#number? o| scheme#cdar 3 o| scheme#length o| scheme#write-char 2 o| scheme#list 7 o| scheme#set-car! 3 o| scheme#symbol? 16 o| ##sys#cons 17 o| ##sys#list 20 o| scheme#not 14 o| scheme#caar 11 o| scheme#eq? 21 o| scheme#assq 42 o| scheme#cdr 34 o| scheme#memq 6 o| ##sys#check-list 39 o| scheme#pair? 61 o| scheme#cadr 14 o| ##sys#setslot 30 o| ##sys#slot 122 o| ##sys#make-structure 2 o| scheme#values 6 o| ##sys#check-structure 26 o| ##sys#block-ref 14 o| scheme#null? 35 o| scheme#car 51 o| scheme#cons 121 o|contracted procedure: k4494 o|contracted procedure: k4520 o|contracted procedure: k5295 o|contracted procedure: k5304 o|contracted procedure: k5313 o|contracted procedure: k5322 o|contracted procedure: k5331 o|contracted procedure: k5340 o|contracted procedure: k5349 o|contracted procedure: k5358 o|contracted procedure: k5367 o|contracted procedure: k5376 o|contracted procedure: k5385 o|contracted procedure: k5394 o|contracted procedure: k5403 o|contracted procedure: k5421 o|contracted procedure: k5439 o|contracted procedure: k5457 o|contracted procedure: k5475 o|contracted procedure: k5484 o|contracted procedure: k5493 o|contracted procedure: k5502 o|contracted procedure: k5511 o|contracted procedure: k5520 o|contracted procedure: k5562 o|contracted procedure: k5558 o|contracted procedure: k5612 o|contracted procedure: k5628 o|contracted procedure: k5644 o|contracted procedure: k5647 o|contracted procedure: k5650 o|contracted procedure: k5658 o|contracted procedure: k5666 o|contracted procedure: k5621 o|contracted procedure: k5625 o|contracted procedure: k5685 o|contracted procedure: k5693 o|contracted procedure: k5699 o|contracted procedure: k5709 o|contracted procedure: k5767 o|contracted procedure: k5722 o|contracted procedure: k5761 o|contracted procedure: k5725 o|contracted procedure: k5755 o|contracted procedure: k5728 o|contracted procedure: k5749 o|contracted procedure: k5731 o|contracted procedure: k5734 o|contracted procedure: k5776 o|contracted procedure: k5803 o|contracted procedure: k5835 o|contracted procedure: k5846 o|contracted procedure: k5855 o|contracted procedure: k5861 o|contracted procedure: k5891 o|contracted procedure: k5901 o|contracted procedure: k5905 o|contracted procedure: k5931 o|contracted procedure: k5448 o|contracted procedure: k5941 o|contracted procedure: k5947 o|contracted procedure: k5965 o|contracted procedure: k5977 o|contracted procedure: k6003 o|contracted procedure: k5999 o|contracted procedure: k6011 o|contracted procedure: k6054 o|contracted procedure: k6086 o|contracted procedure: k6082 o|contracted procedure: k6101 o|contracted procedure: k6097 o|contracted procedure: k6116 o|contracted procedure: k6153 o|contracted procedure: k6266 o|contracted procedure: k6225 o|contracted procedure: k6260 o|contracted procedure: k6228 o|contracted procedure: k6254 o|contracted procedure: k6231 o|contracted procedure: k6248 o|contracted procedure: k6234 o|contracted procedure: k6245 o|contracted procedure: k6241 o|inlining procedure: "(modules.scm:250) make-module" o|contracted procedure: k6545 o|contracted procedure: k6556 o|contracted procedure: k6682 o|contracted procedure: k6562 o|contracted procedure: k6576 o|contracted procedure: k6585 o|contracted procedure: k6588 o|contracted procedure: k6603 o|contracted procedure: k6613 o|contracted procedure: k6617 o|contracted procedure: k6631 o|contracted procedure: k6638 o|contracted procedure: k6663 o|contracted procedure: k6669 o|contracted procedure: k6673 o|contracted procedure: k6735 o|contracted procedure: k6739 o|contracted procedure: k6910 o|contracted procedure: k6954 o|contracted procedure: k6743 o|contracted procedure: k6747 o|contracted procedure: k6827 o|contracted procedure: k6832 o|contracted procedure: k6835 o|contracted procedure: k6841 o|contracted procedure: k6848 o|contracted procedure: k6865 o|contracted procedure: k6751 o|contracted procedure: k6731 o|contracted procedure: k6727 o|contracted procedure: k6762 o|contracted procedure: k6778 o|contracted procedure: k6823 o|contracted procedure: k6784 o|contracted procedure: k6792 o|contracted procedure: k6809 o|contracted procedure: k6799 o|contracted procedure: k6877 o|contracted procedure: k6880 o|contracted procedure: k6883 o|contracted procedure: k6891 o|contracted procedure: k6899 o|contracted procedure: k6966 o|contracted procedure: k6969 o|contracted procedure: k6972 o|contracted procedure: k6980 o|contracted procedure: k6988 o|contracted procedure: k6948 o|contracted procedure: k6918 o|contracted procedure: k6925 o|contracted procedure: k6936 o|contracted procedure: k6940 o|contracted procedure: k7007 o|contracted procedure: k7038 o|contracted procedure: k7024 o|contracted procedure: k7031 o|contracted procedure: k7066 o|contracted procedure: k7044 o|contracted procedure: k7059 o|contracted procedure: k7055 o|contracted procedure: k7051 o|contracted procedure: k7392 o|contracted procedure: k7075 o|contracted procedure: k7104 o|contracted procedure: k7133 o|contracted procedure: k7139 o|contracted procedure: k7159 o|contracted procedure: k7177 o|contracted procedure: k7185 o|contracted procedure: k7191 o|contracted procedure: k7203 o|contracted procedure: k7211 o|contracted procedure: k7217 o|contracted procedure: k7231 o|contracted procedure: k7227 o|contracted procedure: k7235 o|contracted procedure: k7256 o|contracted procedure: k7266 o|contracted procedure: k7270 o|contracted procedure: k7279 o|contracted procedure: k7289 o|contracted procedure: k7293 o|contracted procedure: k7321 o|contracted procedure: k7296 o|contracted procedure: k7317 o|inlining procedure: "(modules.scm:383) make-module" o|contracted procedure: k7330 o|contracted procedure: k7333 o|contracted procedure: k7336 o|contracted procedure: k7344 o|contracted procedure: k7352 o|contracted procedure: k7148 o|contracted procedure: k7364 o|contracted procedure: k7367 o|contracted procedure: k7370 o|contracted procedure: k7378 o|contracted procedure: k7386 o|contracted procedure: k7112 o|contracted procedure: k7081 o|contracted procedure: k7097 o|contracted procedure: k7087 o|contracted procedure: k7122 o|contracted procedure: k7506 o|contracted procedure: k7401 o|contracted procedure: k7418 o|contracted procedure: k7414 o|contracted procedure: k7422 o|contracted procedure: k7446 o|contracted procedure: k7454 o|contracted procedure: k7457 o|contracted procedure: k7466 o|inlining procedure: "(modules.scm:408) make-module" o|contracted procedure: k7478 o|contracted procedure: k7481 o|contracted procedure: k7484 o|contracted procedure: k7492 o|contracted procedure: k7500 o|contracted procedure: k7521 o|contracted procedure: k7515 o|contracted procedure: k7546 o|contracted procedure: k7596 o|contracted procedure: k7549 o|contracted procedure: k7558 o|contracted procedure: k7585 o|contracted procedure: k7561 o|contracted procedure: k7599 o|contracted procedure: k7620 o|contracted procedure: k7639 o|contracted procedure: k7653 o|contracted procedure: k7660 o|contracted procedure: k7759 o|contracted procedure: k7697 o|contracted procedure: k7728 o|contracted procedure: k7740 o|contracted procedure: k7750 o|contracted procedure: k7754 o|contracted procedure: k7762 o|contracted procedure: k7785 o|contracted procedure: k7795 o|contracted procedure: k7799 o|contracted procedure: k7805 o|contracted procedure: k7814 o|contracted procedure: k7849 o|contracted procedure: k7872 o|contracted procedure: k7875 o|contracted procedure: k7897 o|contracted procedure: k5466 o|contracted procedure: k7926 o|contracted procedure: k7936 o|contracted procedure: k7940 o|contracted procedure: k7957 o|contracted procedure: k7960 o|contracted procedure: k7963 o|contracted procedure: k7971 o|contracted procedure: k7979 o|contracted procedure: k7843 o|contracted procedure: k7822 o|contracted procedure: k7825 o|contracted procedure: k6345 o|contracted procedure: k6357 o|contracted procedure: k6529 o|contracted procedure: k6363 o|contracted procedure: k6375 o|contracted procedure: k6384 o|contracted procedure: k6391 o|contracted procedure: k6521 o|contracted procedure: k6397 o|contracted procedure: k6410 o|contracted procedure: k6432 o|contracted procedure: k6436 o|contracted procedure: k6450 o|contracted procedure: k6496 o|contracted procedure: k6461 o|contracted procedure: k6478 o|contracted procedure: k6468 o|contracted procedure: k6492 o|contracted procedure: k7994 o|contracted procedure: k8004 o|contracted procedure: k8008 o|contracted procedure: k8127 o|contracted procedure: k8012 o|contracted procedure: k8021 o|contracted procedure: k8024 o|contracted procedure: k8121 o|contracted procedure: k8027 o|contracted procedure: k8033 o|contracted procedure: k8055 o|inlining procedure: k8058 o|contracted procedure: k8067 o|inlining procedure: k8058 o|contracted procedure: k8085 o|contracted procedure: k8107 o|contracted procedure: k8118 o|contracted procedure: k8130 o|contracted procedure: k8153 o|contracted procedure: k8179 o|contracted procedure: k8188 o|contracted procedure: k8191 o|contracted procedure: k8194 o|contracted procedure: k8202 o|contracted procedure: k8210 o|contracted procedure: k7629 o|contracted procedure: k8406 o|contracted procedure: k8425 o|contracted procedure: k8434 o|contracted procedure: k8462 o|contracted procedure: k8504 o|contracted procedure: k9272 o|contracted procedure: k8517 o|contracted procedure: k8523 o|contracted procedure: k8545 o|contracted procedure: k8563 o|contracted procedure: k8571 o|contracted procedure: k8585 o|contracted procedure: k8581 o|contracted procedure: k8594 o|contracted procedure: k8604 o|contracted procedure: k8608 o|contracted procedure: k8669 o|contracted procedure: k8611 o|contracted procedure: k8623 o|contracted procedure: k8627 o|contracted procedure: k8633 o|contracted procedure: k8645 o|contracted procedure: k8649 o|contracted procedure: k8661 o|contracted procedure: k8673 o|contracted procedure: k8695 o|contracted procedure: k8713 o|contracted procedure: k8725 o|contracted procedure: k8733 o|contracted procedure: k8747 o|contracted procedure: k8743 o|contracted procedure: k8756 o|contracted procedure: k8766 o|contracted procedure: k8770 o|contracted procedure: k8811 o|contracted procedure: k8773 o|contracted procedure: k8785 o|contracted procedure: k8793 o|contracted procedure: k8805 o|contracted procedure: k8852 o|contracted procedure: k8814 o|contracted procedure: k8826 o|contracted procedure: k8834 o|contracted procedure: k8846 o|contracted procedure: k8856 o|contracted procedure: k8878 o|contracted procedure: k8896 o|contracted procedure: k8908 o|contracted procedure: k8916 o|contracted procedure: k8919 o|contracted procedure: k8925 o|contracted procedure: k8939 o|contracted procedure: k8935 o|contracted procedure: k8948 o|contracted procedure: k8958 o|contracted procedure: k8962 o|contracted procedure: k8971 o|contracted procedure: k8993 o|contracted procedure: k8989 o|contracted procedure: k8974 o|contracted procedure: k8977 o|contracted procedure: k8985 o|contracted procedure: k9049 o|contracted procedure: k8999 o|contracted procedure: k9011 o|contracted procedure: k9027 o|contracted procedure: k9031 o|contracted procedure: k9023 o|contracted procedure: k9015 o|contracted procedure: k9043 o|contracted procedure: k9102 o|contracted procedure: k9052 o|contracted procedure: k9064 o|contracted procedure: k9080 o|contracted procedure: k9084 o|contracted procedure: k9076 o|contracted procedure: k9068 o|contracted procedure: k9096 o|contracted procedure: k9106 o|contracted procedure: k9128 o|contracted procedure: k9162 o|contracted procedure: k9169 o|contracted procedure: k9173 o|contracted procedure: k9176 o|contracted procedure: k9183 o|contracted procedure: k9186 o|contracted procedure: k9198 o|contracted procedure: k9201 o|contracted procedure: k9204 o|contracted procedure: k9212 o|contracted procedure: k9220 o|contracted procedure: k9232 o|contracted procedure: k9235 o|contracted procedure: k9238 o|contracted procedure: k9246 o|contracted procedure: k9254 o|contracted procedure: k9261 o|contracted procedure: k9298 o|contracted procedure: k9307 o|contracted procedure: k9310 o|contracted procedure: k9322 o|contracted procedure: k9332 o|contracted procedure: k9336 o|contracted procedure: k9359 o|contracted procedure: k9365 o|contracted procedure: k9389 o|contracted procedure: k9385 o|contracted procedure: k9375 o|contracted procedure: k9396 o|contracted procedure: k9432 o|contracted procedure: k9404 o|contracted procedure: k9428 o|contracted procedure: k9422 o|contracted procedure: k9410 o|contracted procedure: k9439 o|contracted procedure: k9493 o|contracted procedure: k9511 o|contracted procedure: k9518 o|contracted procedure: k9530 o|contracted procedure: k9552 o|contracted procedure: k9548 o|contracted procedure: k9533 o|contracted procedure: k9536 o|contracted procedure: k9544 o|contracted procedure: k9564 o|contracted procedure: k9586 o|contracted procedure: k9582 o|contracted procedure: k9567 o|contracted procedure: k9570 o|contracted procedure: k9578 o|contracted procedure: k9696 o|contracted procedure: k9611 o|contracted procedure: k9615 o|contracted procedure: k9622 o|contracted procedure: k9634 o|contracted procedure: k9656 o|contracted procedure: k9652 o|contracted procedure: k9637 o|contracted procedure: k9640 o|contracted procedure: k9648 o|contracted procedure: k9668 o|contracted procedure: k9690 o|contracted procedure: k9686 o|contracted procedure: k9671 o|contracted procedure: k9674 o|contracted procedure: k9682 o|contracted procedure: k9708 o|contracted procedure: k9718 o|contracted procedure: k9722 o|contracted procedure: k9731 o|contracted procedure: k9741 o|contracted procedure: k9745 o|contracted procedure: k5430 o|contracted procedure: k9763 o|contracted procedure: k5412 o|contracted procedure: k9778 o|contracted procedure: k9792 o|contracted procedure: k9796 o|contracted procedure: k6165 o|contracted procedure: k6187 o|contracted procedure: k6183 o|contracted procedure: k6198 o|contracted procedure: k6194 o|contracted procedure: k6208 o|contracted procedure: k6216 o|contracted procedure: k9846 o|contracted procedure: k9854 o|contracted procedure: k9863 o|contracted procedure: k9905 o|contracted procedure: k9911 o|contracted procedure: k10091 o|contracted procedure: k9920 o|contracted procedure: k9935 o|contracted procedure: k10087 o|contracted procedure: k9941 o|contracted procedure: k9947 o|contracted procedure: k9953 o|contracted procedure: k10083 o|contracted procedure: k9968 o|contracted procedure: k10079 o|contracted procedure: k9977 o|contracted procedure: k9994 o|contracted procedure: k10017 o|contracted procedure: k10023 o|contracted procedure: k10030 o|contracted procedure: k10044 o|contracted procedure: k10055 o|contracted procedure: k10073 o|contracted procedure: k10061 o|contracted procedure: k10107 o|contracted procedure: k10103 o|contracted procedure: k10127 o|contracted procedure: k10130 o|contracted procedure: k10142 o|contracted procedure: k10150 o|contracted procedure: k10153 o|contracted procedure: k10146 o|contracted procedure: k10165 o|contracted procedure: k10187 o|contracted procedure: k10183 o|contracted procedure: k10168 o|contracted procedure: k10171 o|contracted procedure: k10179 o|contracted procedure: k10216 o|contracted procedure: k10209 o|contracted procedure: k10205 o|contracted procedure: k10201 o|contracted procedure: k10225 o|contracted procedure: k10237 o|contracted procedure: k10240 o|contracted procedure: k10280 o|contracted procedure: k10246 o|contracted procedure: k10250 o|contracted procedure: k10263 o|contracted procedure: k10286 o|contracted procedure: k10292 o|contracted procedure: k10295 o|contracted procedure: k10299 o|contracted procedure: k10302 o|contracted procedure: k10315 o|contracted procedure: k10327 o|contracted procedure: k10345 o|contracted procedure: k10377 o|contracted procedure: k10350 o|contracted procedure: k10356 o|contracted procedure: k10363 o|contracted procedure: k10383 o|contracted procedure: k10392 o|contracted procedure: k10415 o|contracted procedure: k10428 o|contracted procedure: k10440 o|contracted procedure: k10443 o|contracted procedure: k10446 o|contracted procedure: k10454 o|contracted procedure: k10462 o|contracted procedure: k10474 o|contracted procedure: k10484 o|contracted procedure: k10488 o|contracted procedure: k10605 o|contracted procedure: k10579 o|contracted procedure: k10588 o|contracted procedure: k10598 o|contracted procedure: k10620 o|contracted procedure: k10628 o|contracted procedure: k10640 o|contracted procedure: k10643 o|contracted procedure: k10646 o|contracted procedure: k10654 o|contracted procedure: k10662 o|contracted procedure: k10674 o|contracted procedure: k10682 o|contracted procedure: k10694 o|contracted procedure: k10697 o|contracted procedure: k10700 o|contracted procedure: k10708 o|contracted procedure: k10716 o|contracted procedure: k10728 o|contracted procedure: k10736 o|contracted procedure: k10748 o|contracted procedure: k10751 o|contracted procedure: k10754 o|contracted procedure: k10762 o|contracted procedure: k10770 o|contracted procedure: k10782 o|contracted procedure: k10790 o|contracted procedure: k10802 o|contracted procedure: k10805 o|contracted procedure: k10808 o|contracted procedure: k10816 o|contracted procedure: k10824 o|contracted procedure: k10836 o|contracted procedure: k10844 o|contracted procedure: k10856 o|contracted procedure: k10859 o|contracted procedure: k10862 o|contracted procedure: k10870 o|contracted procedure: k10878 o|contracted procedure: k10890 o|contracted procedure: k10898 o|contracted procedure: k10910 o|contracted procedure: k10913 o|contracted procedure: k10916 o|contracted procedure: k10924 o|contracted procedure: k10932 o|contracted procedure: k10944 o|contracted procedure: k10952 o|contracted procedure: k10964 o|contracted procedure: k10967 o|contracted procedure: k10970 o|contracted procedure: k10978 o|contracted procedure: k10986 o|contracted procedure: k10998 o|contracted procedure: k11006 o|contracted procedure: k11018 o|contracted procedure: k11021 o|contracted procedure: k11024 o|contracted procedure: k11032 o|contracted procedure: k11040 o|contracted procedure: k11052 o|contracted procedure: k11060 o|contracted procedure: k11072 o|contracted procedure: k11075 o|contracted procedure: k11078 o|contracted procedure: k11086 o|contracted procedure: k11094 o|contracted procedure: k11106 o|contracted procedure: k11114 o|contracted procedure: k11126 o|contracted procedure: k11129 o|contracted procedure: k11132 o|contracted procedure: k11140 o|contracted procedure: k11148 o|contracted procedure: k11160 o|contracted procedure: k11168 o|contracted procedure: k11180 o|contracted procedure: k11183 o|contracted procedure: k11186 o|contracted procedure: k11194 o|contracted procedure: k11202 o|contracted procedure: k11214 o|contracted procedure: k11222 o|contracted procedure: k11234 o|contracted procedure: k11237 o|contracted procedure: k11240 o|contracted procedure: k11248 o|contracted procedure: k11256 o|contracted procedure: k11268 o|contracted procedure: k11276 o|contracted procedure: k11288 o|contracted procedure: k11291 o|contracted procedure: k11294 o|contracted procedure: k11302 o|contracted procedure: k11310 o|simplifications: ((let . 105)) o|removed binding forms: 614 o|inlining procedure: "(modules.scm:120) module-sexports" o|inlining procedure: "(modules.scm:119) module-vexports" o|inlining procedure: "(modules.scm:118) module-export-list" o|removed side-effect free assignment to unused variable: make-module o|inlining procedure: "(modules.scm:160) module-saved-environments" o|inlining procedure: "(modules.scm:157) set-module-saved-environments!" o|inlining procedure: "(modules.scm:179) set-module-exist-list!" o|inlining procedure: "(modules.scm:178) set-module-sexports!" o|inlining procedure: "(modules.scm:178) module-sexports" o|inlining procedure: "(modules.scm:169) module-exist-list" o|inlining procedure: "(modules.scm:180) set-module-export-list!" o|inlining procedure: "(modules.scm:167) module-export-list" o|inlining procedure: "(modules.scm:186) module-meta-expressions" o|inlining procedure: "(modules.scm:207) set-module-defined-list!" o|inlining procedure: "(modules.scm:210) module-defined-list" o|inlining procedure: "(modules.scm:204) set-module-exist-list!" o|inlining procedure: "(modules.scm:204) module-exist-list" o|inlining procedure: "(modules.scm:200) module-name" o|inlining procedure: "(modules.scm:196) module-export-list" o|inlining procedure: "(modules.scm:227) set-module-defined-syntax-list!" o|inlining procedure: "(modules.scm:229) module-defined-syntax-list" o|inlining procedure: "(modules.scm:223) set-module-defined-list!" o|inlining procedure: "(modules.scm:226) module-defined-list" o|inlining procedure: "(modules.scm:217) module-name" o|inlining procedure: "(modules.scm:214) module-export-list" o|inlining procedure: "(modules.scm:233) set-module-defined-syntax-list!" o|inlining procedure: "(modules.scm:235) module-defined-syntax-list" o|substituted constant variable: iexports88212619 o|inlining procedure: "(modules.scm:352) module-defined-syntax-list" o|inlining procedure: "(modules.scm:338) module-vexports" o|inlining procedure: "(modules.scm:337) module-iexports" o|inlining procedure: "(modules.scm:331) module-library" o|inlining procedure: "(modules.scm:330) module-name" o|inlining procedure: "(modules.scm:327) module-meta-expressions" o|inlining procedure: "(modules.scm:319) module-meta-import-forms" o|inlining procedure: "(modules.scm:318) module-sexports" o|inlining procedure: "(modules.scm:317) module-import-forms" o|inlining procedure: "(modules.scm:316) module-name" o|inlining procedure: "(modules.scm:315) module-defined-list" o|inlining procedure: "(modules.scm:399) set-module-saved-environments!" o|substituted constant variable: explist87912639 o|inlining procedure: "(modules.scm:420) set-module-saved-environments!" o|inlining procedure: "(modules.scm:424) module-sexports" o|inlining procedure: "(modules.scm:423) module-vexports" o|substituted constant variable: explist87912650 o|substituted constant variable: iexports88212653 o|inlining procedure: "(modules.scm:435) module-exist-list" o|inlining procedure: "(modules.scm:434) module-export-list" o|inlining procedure: "(modules.scm:554) set-module-saved-environments!" o|inlining procedure: "(modules.scm:551) set-module-iexports!" o|inlining procedure: "(modules.scm:553) module-iexports" o|inlining procedure: "(modules.scm:550) set-module-sexports!" o|inlining procedure: "(modules.scm:257) module-defined-list" o|inlining procedure: "(modules.scm:256) module-name" o|inlining procedure: "(modules.scm:255) module-export-list" o|inlining procedure: "(modules.scm:457) module-sexports" o|inlining procedure: "(modules.scm:454) module-defined-syntax-list" o|inlining procedure: "(modules.scm:451) module-exist-list" o|inlining procedure: "(modules.scm:450) module-defined-list" o|inlining procedure: "(modules.scm:449) module-name" o|inlining procedure: "(modules.scm:448) module-export-list" o|inlining procedure: "(modules.scm:608) module-iexports" o|inlining procedure: "(modules.scm:607) module-sexports" o|inlining procedure: "(modules.scm:606) module-vexports" o|inlining procedure: "(modules.scm:605) module-name" o|inlining procedure: "(modules.scm:604) module-library" o|inlining procedure: "(modules.scm:603) module-name" o|inlining procedure: "(modules.scm:755) set-module-iexports!" o|inlining procedure: "(modules.scm:757) module-iexports" o|inlining procedure: "(modules.scm:742) set-module-exist-list!" o|inlining procedure: "(modules.scm:744) module-exist-list" o|inlining procedure: "(modules.scm:741) set-module-sexports!" o|inlining procedure: "(modules.scm:741) module-sexports" o|inlining procedure: "(modules.scm:748) set-module-export-list!" o|inlining procedure: "(modules.scm:751) module-export-list" o|inlining procedure: "(modules.scm:739) module-export-list" o|inlining procedure: "(modules.scm:715) module-meta-import-forms" o|inlining procedure: "(modules.scm:718) module-import-forms" o|inlining procedure: "(modules.scm:776) module-name" o|inlining procedure: "(modules.scm:776) module-name" o|inlining procedure: k6212 o|inlining procedure: k6212 o|inlining procedure: "(modules.scm:877) module-sexports" o|inlining procedure: "(modules.scm:876) module-vexports" o|inlining procedure: "(modules.scm:1123) module-saved-environments" o|replaced variables: 232 o|removed side-effect free assignment to unused variable: module-library o|removed side-effect free assignment to unused variable: module-export-list o|removed side-effect free assignment to unused variable: set-module-export-list! o|removed side-effect free assignment to unused variable: module-defined-list o|removed side-effect free assignment to unused variable: set-module-defined-list! o|removed side-effect free assignment to unused variable: module-exist-list o|removed side-effect free assignment to unused variable: set-module-exist-list! o|removed side-effect free assignment to unused variable: module-defined-syntax-list o|removed side-effect free assignment to unused variable: set-module-defined-syntax-list! o|removed side-effect free assignment to unused variable: module-import-forms o|removed side-effect free assignment to unused variable: module-meta-import-forms o|removed side-effect free assignment to unused variable: module-meta-expressions o|removed side-effect free assignment to unused variable: module-vexports o|removed side-effect free assignment to unused variable: module-sexports o|removed side-effect free assignment to unused variable: set-module-sexports! o|removed side-effect free assignment to unused variable: module-iexports o|removed side-effect free assignment to unused variable: set-module-iexports! o|removed side-effect free assignment to unused variable: module-saved-environments o|removed side-effect free assignment to unused variable: set-module-saved-environments! o|replaced variables: 146 o|removed binding forms: 138 o|inlining procedure: k5542 o|contracted procedure: k5662 o|inlining procedure: k5882 o|inlining procedure: k6038 o|contracted procedure: k6237 o|inlining procedure: k7018 o|contracted procedure: k7165 o|contracted procedure: k7407 o|inlining procedure: k7442 o|inlining procedure: k7917 o|inlining procedure: k8137 o|inlining procedure: k8492 o|inlining procedure: k9490 o|inlining procedure: k9597 o|inlining procedure: k9759 o|inlining procedure: k9774 o|inlining procedure: k9823 o|inlining procedure: k982311913 o|inlining procedure: k10370 o|inlining procedure: k10602 o|replaced variables: 3 o|removed binding forms: 141 o|contracted procedure: k5534 o|contracted procedure: k5538 o|contracted procedure: k5829 o|contracted procedure: k5838 o|contracted procedure: k5935 o|contracted procedure: k6045 o|contracted procedure: k6007 o|contracted procedure: k6015 o|contracted procedure: k6126 o|contracted procedure: k6063 o|contracted procedure: k6090 o|contracted procedure: k6105 o|contracted procedure: k6143 o|contracted procedure: k6688 o|contracted procedure: k6691 o|contracted procedure: k6694 o|contracted procedure: k6697 o|contracted procedure: k6700 o|contracted procedure: k6999 o|contracted procedure: k6995 o|contracted procedure: k6951 o|contracted procedure: k6906 o|contracted procedure: k6769 o|contracted procedure: k7438 o|contracted procedure: k7530 o|contracted procedure: k7608 o|contracted procedure: k7611 o|contracted procedure: k7614 o|contracted procedure: k7617 o|contracted procedure: k7636 o|contracted procedure: k6275 o|contracted procedure: k6278 o|contracted procedure: k6281 o|contracted procedure: k8472 o|contracted procedure: k8476 o|contracted procedure: k8480 o|contracted procedure: k8484 o|contracted procedure: k8488 o|contracted procedure: k9473 o|contracted procedure: k9507 o|contracted procedure: k9608 o|contracted procedure: k10374 o|removed binding forms: 59 o|replaced variables: 37 o|removed binding forms: 18 o|direct leaf routine/allocation: g10141015 3 o|direct leaf routine/allocation: g31373146 0 o|direct leaf routine/allocation: g30993108 0 o|direct leaf routine/allocation: g30613070 0 o|direct leaf routine/allocation: g30233032 0 o|direct leaf routine/allocation: g29852994 0 o|direct leaf routine/allocation: g29472956 0 o|direct leaf routine/allocation: g29092918 0 o|direct leaf routine/allocation: g28712880 0 o|direct leaf routine/allocation: g28332842 0 o|direct leaf routine/allocation: g27952804 0 o|direct leaf routine/allocation: g27572766 0 o|direct leaf routine/allocation: g27192728 0 o|direct leaf routine/allocation: g26812690 0 o|contracted procedure: "(modules.scm:1035) k10658" o|contracted procedure: "(modules.scm:1035) k10712" o|contracted procedure: "(modules.scm:1035) k10766" o|contracted procedure: "(modules.scm:1035) k10820" o|contracted procedure: "(modules.scm:1035) k10874" o|contracted procedure: "(modules.scm:1035) k10928" o|contracted procedure: "(modules.scm:1035) k10982" o|contracted procedure: "(modules.scm:1035) k11036" o|contracted procedure: "(modules.scm:1035) k11090" o|contracted procedure: "(modules.scm:1035) k11144" o|contracted procedure: "(modules.scm:1035) k11198" o|contracted procedure: "(modules.scm:1035) k11252" o|contracted procedure: "(modules.scm:1035) k11306" o|removed binding forms: 13 o|direct leaf routine with hoistable closures/allocation: g9981005 (g10141015) 3 o|contracted procedure: "(modules.scm:172) k5894" o|removed binding forms: 2 x|eliminated type checks: x| C_i_check_list_2: 13 o|customizable procedures: (map-loop26752700 map-loop27132738 map-loop27512776 map-loop27892814 map-loop28272852 map-loop28652890 map-loop29032928 map-loop29412966 map-loop29793004 map-loop30173042 map-loop30553080 map-loop30933118 map-loop31313156 g26172624 for-each-loop26162631 map-loop26382656 k10359 loop2580 merr2553 match-functor-argument loop22587 map-loop25562573 err2545 loop22516 k10000 loop2504 iface2494 err2493 g24782479 mrename2459 g24672468 g10901091 k6176 g22782295 for-each-loop22772305 g22882310 for-each-loop22872318 map-loop23842401 map-loop24102427 map-loop23302347 map-loop23562373 k9445 g22172224 for-each-loop22162251 map-loop21492166 map-loop21752192 tostr1835 g21092110 loop2037 g21042105 loop2046 map-loop20702087 g20582065 for-each-loop20572094 g20042005 loop1958 g19992000 loop1967 g19791986 for-each-loop19781989 g19251926 g19211922 loop1888 g19011908 for-each-loop19001911 warn1834 loop1849 module-imports1845 find-module/import-library map-loop15461564 loop1572 k8061 k8073 k8045 loop1580 g16011608 for-each-loop16001673 g11551156 g11481149 k6422 warn1121 loop21139 loop1133 map-loop16811706 g17171726 for-each-loop17161733 g16171624 for-each-loop16161628 g16481655 for-each-loop16471660 k7537 k7567 loop1517 g14751484 map-loop14691490 map-loop13461364 map-loop13741392 k7299 g14071424 for-each-loop14061430 g14171435 for-each-loop14161441 merge-se k6707 k6715 k6984 map-loop12391263 g12781287 map-loop12721305 loop1312 k6755 k6565 lp1202 g11861193 for-each-loop11851196 loop1172 find-export module-rename delete check-for-redef for-each-loop9971017 g981982 k5785 g943944 loop934 map-loop899917 loop254) o|calls to known targets: 296 o|identified direct recursive calls: f_5639 1 o|identified direct recursive calls: f_5886 1 o|identified direct recursive calls: f_6773 1 o|identified direct recursive calls: f_7541 1 o|identified direct recursive calls: f_6352 1 o|identified direct recursive calls: f_8016 1 o|identified direct recursive calls: f_8558 1 o|identified direct recursive calls: f_8720 1 o|identified direct recursive calls: f_8708 1 o|identified direct recursive calls: f_8966 1 o|identified direct recursive calls: f_8903 1 o|identified direct recursive calls: f_8891 1 o|identified direct recursive calls: f_9525 1 o|identified direct recursive calls: f_9559 1 o|identified direct recursive calls: f_9629 1 o|identified direct recursive calls: f_9663 1 o|identified direct recursive calls: f_10039 1 o|identified direct recursive calls: f_9930 2 o|identified direct recursive calls: f_10160 1 o|identified direct recursive calls: f_10635 1 o|identified direct recursive calls: f_10689 1 o|identified direct recursive calls: f_10743 1 o|identified direct recursive calls: f_10797 1 o|identified direct recursive calls: f_10851 1 o|identified direct recursive calls: f_10905 1 o|identified direct recursive calls: f_10959 1 o|identified direct recursive calls: f_11013 1 o|identified direct recursive calls: f_11067 1 o|identified direct recursive calls: f_11121 1 o|identified direct recursive calls: f_11175 1 o|identified direct recursive calls: f_11229 1 o|identified direct recursive calls: f_11283 1 o|fast box initializations: 69 o|fast global references: 34 o|fast global assignments: 8 o|dropping unused closure argument: f_10337 o|dropping unused closure argument: f_4483 o|dropping unused closure argument: f_5939 o|dropping unused closure argument: f_6533 o|dropping unused closure argument: f_7528 o|dropping unused closure argument: f_8357 o|dropping unused closure argument: f_8387 o|dropping unused closure argument: f_9782 */ /* end of file */ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.process.signal.import.c�������������������������������������������������������0000644�0001750�0001750�00000024541�13502227774�020760� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.process.signal.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.process.signal.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.process.signal.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.process.signal.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(741))){ C_save(t1); C_rereclaim2(741*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],22, C_text("chicken.process.signal")); lf[2]=C_h_intern(&lf[2],5, C_text("posix")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001set-alarm!\376\001\000\000!\001chicken.process.signal#set-alarm!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023" "\001set-signal-handler!\376\001\000\000\052\001chicken.process.signal#set-signal-handler!\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\020\001set-signal-mask!\376\001\000\000\047\001chicken.process.signal#set-signal-mask!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016" "\001signal-handler\376\001\000\000%\001chicken.process.signal#signal-handler\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal" "-mask\376\001\000\000\042\001chicken.process.signal#signal-mask\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001signal-mask!\376\001\000\000#\001c" "hicken.process.signal#signal-mask!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001signal-masked\077\376\001\000\000%\001chicken.pr" "ocess.signal#signal-masked\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001signal-unmask!\376\001\000\000%\001chicken.process.s" "ignal#signal-unmask!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/abrt\376\001\000\000\042\001chicken.process.signal#sign" "al/abrt\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/alrm\376\001\000\000\042\001chicken.process.signal#signal/alrm\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\014\001signal/break\376\001\000\000#\001chicken.process.signal#signal/break\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001s" "ignal/bus\376\001\000\000!\001chicken.process.signal#signal/bus\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/chld\376\001\000\000\042" "\001chicken.process.signal#signal/chld\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/cont\376\001\000\000\042\001chicken.proc" "ess.signal#signal/cont\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001signal/fpe\376\001\000\000!\001chicken.process.signal#sig" "nal/fpe\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001signal/hup\376\001\000\000!\001chicken.process.signal#signal/hup\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\012\001signal/ill\376\001\000\000!\001chicken.process.signal#signal/ill\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001signal/" "int\376\001\000\000!\001chicken.process.signal#signal/int\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001signal/io\376\001\000\000 \001chicken" ".process.signal#signal/io\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/kill\376\001\000\000\042\001chicken.process.signal" "#signal/kill\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/pipe\376\001\000\000\042\001chicken.process.signal#signal/pipe\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/prof\376\001\000\000\042\001chicken.process.signal#signal/prof\376\003\000\000\002\376\003\000\000\002\376\001\000\000" "\013\001signal/quit\376\001\000\000\042\001chicken.process.signal#signal/quit\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/segv" "\376\001\000\000\042\001chicken.process.signal#signal/segv\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/stop\376\001\000\000\042\001chicken" ".process.signal#signal/stop\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/term\376\001\000\000\042\001chicken.process.sign" "al#signal/term\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/trap\376\001\000\000\042\001chicken.process.signal#signal/tra" "p\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/tstp\376\001\000\000\042\001chicken.process.signal#signal/tstp\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\012\001signal/urg\376\001\000\000!\001chicken.process.signal#signal/urg\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/usr1" "\376\001\000\000\042\001chicken.process.signal#signal/usr1\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/usr2\376\001\000\000\042\001chicken" ".process.signal#signal/usr2\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001signal/vtalrm\376\001\000\000$\001chicken.process.si" "gnal#signal/vtalrm\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001signal/winch\376\001\000\000#\001chicken.process.signal#signa" "l/winch\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001signal/xcpu\376\001\000\000\042\001chicken.process.signal#signal/xcpu\376\003\000\000\002\376" "\003\000\000\002\376\001\000\000\013\001signal/xfsz\376\001\000\000\042\001chicken.process.signal#signal/xfsz\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001sig" "nals-list\376\001\000\000#\001chicken.process.signal#signals-list\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eprocess_2esignal_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eprocess_2esignal_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eprocess_2esignal_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eprocess_2esignal_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eprocess_2esignal_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ ���������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.csi.import.c������������������������������������������������������������������0000644�0001750�0001750�00000012343�13502227772�016577� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.csi.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.csi.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.csi.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[3]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.csi.import.scm:27: ##sys#register-primitive-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; tp(4,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(74))){ C_save(t1); C_rereclaim2(74*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,3); lf[0]=C_h_intern(&lf[0],31, C_text("##sys#register-primitive-module")); lf[1]=C_h_intern(&lf[1],11, C_text("chicken.csi")); lf[2]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001editor-command\376\001\000\000\032\001chicken.csi#editor-command\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001se" "t-describer!\376\001\000\000\032\001chicken.csi#set-describer!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001toplevel-command\376\001\000\000" "\034\001chicken.csi#toplevel-command\376\377\016")); C_register_lf2(lf,3,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2ecsi_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2ecsi_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2ecsi_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2ecsi_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2ecsi_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|removed binding forms: 4 */ /* end of file */ ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.bitwise.import.c��������������������������������������������������������������0000644�0001750�0001750�00000014631�13502227772�017471� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.bitwise.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.bitwise.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.bitwise.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.bitwise.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(161))){ C_save(t1); C_rereclaim2(161*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],15, C_text("chicken.bitwise")); lf[2]=C_h_intern(&lf[2],7, C_text("library")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001arithmetic-shift\376\001\000\000 \001chicken.bitwise#arithmetic-shift\376\003\000\000\002\376\003\000\000\002" "\376\001\000\000\016\001integer-length\376\001\000\000\036\001chicken.bitwise#integer-length\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001bit->boo" "lean\376\001\000\000\034\001chicken.bitwise#bit->boolean\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001bitwise-not\376\001\000\000\033\001chicken.b" "itwise#bitwise-not\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001bitwise-xor\376\001\000\000\033\001chicken.bitwise#bitwise-xor\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\013\001bitwise-ior\376\001\000\000\033\001chicken.bitwise#bitwise-ior\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001bitwis" "e-and\376\001\000\000\033\001chicken.bitwise#bitwise-and\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2ebitwise_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2ebitwise_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2ebitwise_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2ebitwise_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2ebitwise_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ �������������������������������������������������������������������������������������������������������chicken-5.1.0/scheduler.scm�������������������������������������������������������������������������0000644�0001750�0001750�00000053216�13502227553�015424� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������; scheduler.scm - Basic scheduler for multithreading ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit scheduler) (uses extras) ; for sprintf (disable-interrupts) (hide ready-queue-head ready-queue-tail ##sys#timeout-list ##sys#update-thread-state-buffer ##sys#restore-thread-state-buffer ##sys#unblock-threads-for-i/o ;; This isn't hidden ATM to allow set!ing it as a hook/workaround ; ##sys#force-primordial remove-from-ready-queue fdset-test create-fdset stderr delq ##sys#clear-i/o-state-for-thread! ##sys#abandon-mutexes) (not inline chicken.base#sleep-hook ##sys#interrupt-hook ##sys#force-primordial) (unsafe) (foreign-declare #<<EOF #ifdef HAVE_ERRNO_H # include <errno.h> # define C_signal_interrupted_p C_mk_bool(errno == EINTR) #else # define C_signal_interrupted_p C_SCHEME_FALSE #endif #ifdef _WIN32 /* TODO: Winsock select() only works for sockets */ # include <winsock2.h> /* Beware: winsock2.h must come BEFORE windows.h */ # define C_msleep(n) (Sleep((DWORD)C_num_to_uint64(n)), C_SCHEME_TRUE) #else # include <sys/time.h> static C_word C_msleep(C_word ms); C_word C_msleep(C_word ms) { #ifdef __CYGWIN__ if(usleep((useconds_t)C_num_to_uint64(ms) * 1000) == -1) return C_SCHEME_FALSE; #else struct timespec ts; C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab, sec = C_s_a_u_i_integer_quotient(&a, 2, ms, C_fix(1000)), msec = C_s_a_u_i_integer_remainder(&a, 2, ms, C_fix(1000)); ts.tv_sec = (time_t)C_num_to_uint64(sec); ts.tv_nsec = (long)C_unfix(msec) * 1000000; if(nanosleep(&ts, NULL) == -1) return C_SCHEME_FALSE; #endif return C_SCHEME_TRUE; } #endif #ifdef NO_POSIX_POLL /* Shouldn't we include <sys/select.h> here? */ static fd_set C_fdset_input, C_fdset_output; #define C_fd_input_ready(fd,pos) C_mk_bool(FD_ISSET(C_unfix(fd), &C_fdset_input)) #define C_fd_output_ready(fd,pos) C_mk_bool(FD_ISSET(C_unfix(fd), &C_fdset_output)) inline static int C_ready_fds_timeout(int to, unsigned int tm) { struct timeval timeout; timeout.tv_sec = tm / 1000; timeout.tv_usec = fmod(tm, 1000) * 1000; /* we use FD_SETSIZE, but really should use max fd */ return select(FD_SETSIZE, &C_fdset_input, &C_fdset_output, NULL, to ? &timeout : NULL); } inline static void C_prepare_fdset(int length) { FD_ZERO(&C_fdset_input); FD_ZERO(&C_fdset_output); } inline static void C_fdset_add(int fd, int input, int output) { if (input) FD_SET(fd, &C_fdset_input); if (output) FD_SET(fd, &C_fdset_output); } #else # include <poll.h> # include <assert.h> static int C_fdset_nfds; static struct pollfd *C_fdset_set = NULL; inline static int C_fd_ready(int fd, int pos, int what) { assert(fd == C_fdset_set[pos].fd); /* Must match position in ##sys#fd-list! */ return(C_fdset_set[pos].revents & what); } #define C_fd_input_ready(fd,pos) C_mk_bool(C_fd_ready(C_unfix(fd), C_unfix(pos),POLLIN|POLLERR|POLLHUP|POLLNVAL)) #define C_fd_output_ready(fd,pos) C_mk_bool(C_fd_ready(C_unfix(fd), C_unfix(pos),POLLOUT|POLLERR|POLLHUP|POLLNVAL)) inline static int C_ready_fds_timeout(int to, unsigned int tm) { return poll(C_fdset_set, C_fdset_nfds, to ? tm : -1); } inline static void C_prepare_fdset(int length) { /* TODO: Only realloc when needed? */ C_fdset_set = realloc(C_fdset_set, sizeof(struct pollfd) * length); if (C_fdset_set == NULL) C_halt(C_SCHEME_FALSE); /* Ugly: no message */ C_fdset_nfds = 0; } /* This *must* be called in order, so position will match ##sys#fd-list */ inline static void C_fdset_add(int fd, int input, int output) { C_fdset_set[C_fdset_nfds].events = ((input ? POLLIN : 0) | (output ? POLLOUT : 0)); C_fdset_set[C_fdset_nfds++].fd = fd; } #endif EOF ) ) (import scheme chicken.base chicken.fixnum chicken.format chicken.condition) (include "common-declarations.scm") #;(begin (define stderr ##sys#standard-error) ; use default stderr port (define (dbg . args) (parameterize ((##sys#print-length-limit #f)) (for-each (lambda (x) (display x stderr)) args) (newline stderr)))) (define-syntax dbg (syntax-rules () ((_ . _) #f))) (define-syntax panic (syntax-rules () ((_ msg) (##core#inline "C_halt" msg)))) (define (delq x lst) (let loop ([lst lst]) (cond ((null? lst) lst) ((eq? x (##sys#slot lst 0)) (##sys#slot lst 1)) (else (cons (##sys#slot lst 0) (loop (##sys#slot lst 1)))) ) ) ) (define (##sys#schedule) (define (switch thread) (dbg "switching to " thread) (set! ##sys#current-thread thread) (##sys#setslot thread 3 'running) (##sys#restore-thread-state-buffer thread) ;;XXX WRONG! this sets the t/i-period ("quantum") for the _next_ thread (##core#inline "C_set_initial_timer_interrupt_period" (##sys#slot thread 9)) ;; Call upon ye ancient gods to forget about the current ;; continuation; it still refers to the old thread (#1367). (##sys#call-with-cthulhu (##sys#slot thread 1)) ) (let* ([ct ##sys#current-thread] [eintr #f] [cts (##sys#slot ct 3)] ) (dbg "==================== scheduling, current: " ct ", ready: " ready-queue-head) (##sys#update-thread-state-buffer ct) ;; Put current thread on ready-queue: (when (or (eq? cts 'running) (eq? cts 'ready)) ; should ct really be 'ready? - normally not. (##sys#setislot ct 13 #f) ; clear timeout-unblock flag (##sys#add-to-ready-queue ct) ) (let loop1 () ;; Unblock threads waiting for timeout: (unless (null? ##sys#timeout-list) (let ((now (##core#inline_allocate ("C_a_i_current_milliseconds" 7) #f))) (let loop ((lst ##sys#timeout-list)) (if (null? lst) (set! ##sys#timeout-list '()) (let* ([tmo1 (caar lst)] ; timeout of thread on list [tto (cdar lst)] ; thread on list [tmo2 (##sys#slot tto 4)] ) ; timeout value stored in thread (dbg "timeout: " tto " -> " tmo2 " (now: " now ")") (if (equal? tmo1 tmo2) ;XXX why do we check this? (if (>= now tmo1) ; timeout reached? (begin (##sys#setislot tto 13 #t) ; mark as being unblocked by timeout (##sys#clear-i/o-state-for-thread! tto) (##sys#thread-basic-unblock! tto) (loop (cdr lst)) ) (begin (set! ##sys#timeout-list lst) ;; If there are no threads blocking on a select call (fd-list) ;; but there are threads in the timeout list then sleep for ;; the number of milliseconds of next thread to wake up. (when (and (null? ready-queue-head) (null? ##sys#fd-list) (pair? ##sys#timeout-list)) (let* ((tmo1 (caar ##sys#timeout-list)) (tmo1 (inexact->exact (round tmo1)))) (set! eintr (and (not (##core#inline "C_msleep" (max 0 (- tmo1 now)))) (foreign-value "C_signal_interrupted_p" bool) ) ) ) ) ) ) (loop (cdr lst)) ) ) ) ) ) ) ;; Unblock threads blocked by I/O: (if eintr (##sys#force-primordial) ; force it to handle user-interrupt (unless (null? ##sys#fd-list) (##sys#unblock-threads-for-i/o) ) ) ;; Fetch and activate next ready thread: (let loop2 () (let ([nt (remove-from-ready-queue)]) (cond [(not nt) (if (and (null? ##sys#timeout-list) (null? ##sys#fd-list)) (panic "deadlock") (loop1) ) ] [(eq? (##sys#slot nt 3) 'ready) (switch nt)] [else (loop2)] ) ) ) ) ) ) (define (##sys#force-primordial) (dbg "primordial thread forced due to interrupt") (##sys#setislot ##sys#primordial-thread 13 #f) (##sys#thread-unblock! ##sys#primordial-thread) ) (define ready-queue-head '()) (define ready-queue-tail '()) (define (##sys#ready-queue) ready-queue-head) (define (##sys#add-to-ready-queue thread) (##sys#setslot thread 3 'ready) (let ((new-pair (cons thread '()))) (cond ((eq? '() ready-queue-head) (set! ready-queue-head new-pair)) (else (set-cdr! ready-queue-tail new-pair)) ) (set! ready-queue-tail new-pair) ) ) (define (remove-from-ready-queue) (let ((first-pair ready-queue-head)) (and (not (null? first-pair)) (let ((first-cdr (cdr first-pair))) (set! ready-queue-head first-cdr) (when (eq? '() first-cdr) (set! ready-queue-tail '())) (car first-pair) ) ) ) ) (define (##sys#update-thread-state-buffer thread) (let ([buf (##sys#slot thread 5)]) (##sys#setslot buf 0 ##sys#dynamic-winds) (##sys#setslot buf 1 ##sys#standard-input) (##sys#setslot buf 2 ##sys#standard-output) (##sys#setslot buf 3 ##sys#standard-error) (##sys#setslot buf 4 ##sys#current-exception-handler) (##sys#setslot buf 5 ##sys#current-parameter-vector) ) ) (define (##sys#restore-thread-state-buffer thread) (let ([buf (##sys#slot thread 5)]) (set! ##sys#dynamic-winds (##sys#slot buf 0)) (set! ##sys#standard-input (##sys#slot buf 1)) (set! ##sys#standard-output (##sys#slot buf 2)) (set! ##sys#standard-error (##sys#slot buf 3)) (set! ##sys#current-exception-handler (##sys#slot buf 4)) (set! ##sys#current-parameter-vector (##sys#slot buf 5)) ) ) (set! ##sys#interrupt-hook (let ([oldhook ##sys#interrupt-hook]) (lambda (reason state) (when (fx= reason 255) ; C_TIMER_INTERRUPT_NUMBER (let ([ct ##sys#current-thread]) (##sys#setslot ct 1 (lambda () (oldhook reason state))) (##sys#schedule) ) ) ; expected not to return! (oldhook reason state) ) ) ) (define ##sys#timeout-list '()) (define (##sys#remove-from-timeout-list t) (let loop ((l ##sys#timeout-list) (prev #f)) (if (null? l) l (let ((h (##sys#slot l 0)) (r (##sys#slot l 1))) (if (eq? (##sys#slot h 1) t) (if prev (set-cdr! prev r) (set! ##sys#timeout-list r)) (loop r l)))))) (define (##sys#thread-block-for-timeout! t tm) (dbg t " blocks for timeout " tm) (when (> tm 0) ;; This should really use a balanced tree: (let loop ([tl ##sys#timeout-list] [prev #f]) (if (or (null? tl) (< tm (caar tl))) (if prev (set-cdr! prev (cons (cons tm t) tl)) (set! ##sys#timeout-list (cons (cons tm t) tl)) ) (loop (cdr tl) tl) ) ) (##sys#setslot t 3 'blocked) (##sys#setislot t 13 #f) (##sys#setslot t 4 tm) ) ) (define (##sys#thread-block-for-termination! t t2) (dbg t " blocks for " t2) (let ([state (##sys#slot t2 3)]) (unless (or (eq? state 'dead) (eq? state 'terminated)) (##sys#setslot t2 12 (cons t (##sys#slot t2 12))) (##sys#setslot t 3 'blocked) (##sys#setislot t 13 #f) (##sys#setslot t 11 t2) ) ) ) (define (##sys#abandon-mutexes thread) (let ((ms (##sys#slot thread 8))) (unless (null? ms) (##sys#for-each (lambda (m) (##sys#setislot m 2 #f) (##sys#setislot m 4 #t) (##sys#setislot m 5 #f) (let ((wts (##sys#slot m 3))) (unless (null? wts) (for-each (lambda (t2) (dbg " unblocking: " t2) (##sys#thread-unblock! t2) ) wts) ) ) (##sys#setislot m 3 '()) ) ms) ) ) ) (define (##sys#thread-kill! t s) (dbg "killing: " t " -> " s ", recipients: " (##sys#slot t 12)) (##sys#abandon-mutexes t) (let ((blocked (##sys#slot t 11))) (cond ((##sys#structure? blocked 'condition-variable) (##sys#setslot blocked 2 (delq t (##sys#slot blocked 2)))) ((##sys#structure? blocked 'thread) (##sys#setslot blocked 12 (delq t (##sys#slot blocked 12))))) ) (##sys#remove-from-timeout-list t) (##sys#clear-i/o-state-for-thread! t) (##sys#setslot t 3 s) (##sys#setislot t 4 #f) (##sys#setislot t 11 #f) (##sys#setislot t 8 '()) (let ((rs (##sys#slot t 12))) (unless (null? rs) (for-each (lambda (t2) (dbg " checking: " t2 " (" (##sys#slot t2 3) ") -> " (##sys#slot t2 11)) (when (eq? (##sys#slot t2 11) t) (##sys#thread-basic-unblock! t2) ) ) rs) ) ) (##sys#setislot t 12 '()) ) (define (##sys#thread-basic-unblock! t) (dbg "unblocking: " t) (##sys#setislot t 11 #f) ; (FD . RWFLAGS) | #<MUTEX> | #<THREAD> (##sys#setislot t 4 #f) (##sys#add-to-ready-queue t) ) (define (##sys#default-exception-handler arg) (let ([ct ##sys#current-thread]) (dbg "exception: " ct " -> " (if (##sys#structure? arg 'condition) (##sys#slot arg 2) arg)) (cond ((foreign-value "C_abort_on_thread_exceptions" bool) (let* ([pt ##sys#primordial-thread] [ptx (##sys#slot pt 1)] ) (##sys#setslot pt 1 (lambda () (signal arg) (ptx) ) ) (##sys#thread-unblock! pt) ) ) (else (##sys#show-exception-warning arg "in thread" ct))) (##sys#setslot ct 7 arg) (##sys#thread-kill! ct 'terminated) (##sys#schedule) ) ) ;;; `select()/poll()'-based blocking: (define ##sys#fd-list '()) ; ((FD1 THREAD1 ...) ...) (define (create-fdset) ((foreign-lambda void "C_prepare_fdset" int) (##sys#length ##sys#fd-list)) (let loop ((lst ##sys#fd-list)) (unless (null? lst) (let ((fd (caar lst)) (input #f) (output #f)) (for-each (lambda (t) (let ((p (##sys#slot t 11))) ;; XXX: This should never be false, because otherwise the ;; thread is not supposed to be on ##sys#fd-list! (when (pair? p) ; (FD . RWFLAGS)? (can also be mutex or thread) (let ((i/o (cdr p))) (case i/o ((#t #:input) (set! input #t)) ((#f #:output) (set! output #t)) ((#:all) (set! input #t) (set! output #t)) (else (panic (sprintf "create-fdset: invalid i/o direction: ~S (fd = ~S)" i/o fd)))))))) (cdar lst)) ;; Our position in fd-list must match fdset array position, so ;; always add an fdset entry, even if input & output are #f. ((foreign-lambda void "C_fdset_add" int bool bool) fd input output) (loop (cdr lst)))))) (define (fdset-test inf outf i/o) (case i/o ((#t #:input) inf) ((#f #:output) outf) ((#:all) (or inf outf)) (else (panic (sprintf "fdset-test: invalid i/o direction: ~S (i = ~S, o = ~S)" i/o inf outf))))) (define (##sys#thread-block-for-i/o! t fd i/o) (dbg t " blocks for I/O " fd " in mode " i/o) #;(unless (memq i/o '(#:all #:input #:output)) (panic (sprintf "##sys#thread-block-for-i/o!: invalid i/o mode: ~S" i/o))) (let loop ([lst ##sys#fd-list]) (if (null? lst) (set! ##sys#fd-list (cons (list fd t) ##sys#fd-list)) (let ([a (car lst)]) (if (fx= fd (car a)) (##sys#setslot a 1 (cons t (cdr a))) (loop (cdr lst)) ) ) ) ) (##sys#setslot t 3 'blocked) (##sys#setislot t 13 #f) (##sys#setslot t 11 (cons fd i/o)) ) (define (##sys#unblock-threads-for-i/o) (dbg "fd-list: " ##sys#fd-list) (create-fdset) (let* ((to? (pair? ##sys#timeout-list)) (rq? (pair? ready-queue-head)) (tmo (if (and to? (not rq?)) ; no thread was unblocked by timeout, so wait (let* ((tmo1 (caar ##sys#timeout-list)) (tmo1 (inexact->exact (round tmo1))) (now (##core#inline_allocate ("C_a_i_current_milliseconds" 7) #f))) (max 0 (- tmo1 now)) ) 0))) ; otherwise immediate timeout. (dbg "waiting for I/O with timeout " tmo) (let ((n ((foreign-lambda int "C_ready_fds_timeout" bool unsigned-integer) (or rq? to?) tmo))) (dbg n " fds ready") (cond [(eq? -1 n) (dbg "select(2)/poll(2) returned with result -1" ) (##sys#force-primordial)] [(fx> n 0) (set! ##sys#fd-list (let loop ((n n) (pos 0) (lst ##sys#fd-list)) (if (or (zero? n) (null? lst)) lst (let* ((a (car lst)) (fd (car a)) ;; pos *must* match position of fd in ##sys#fd-list ;; This is checked in C_fd_ready with assert() (inf (##core#inline "C_fd_input_ready" fd pos)) (outf (##core#inline "C_fd_output_ready" fd pos))) (dbg "fd " fd " state: input=" inf ", output=" outf) (if (or inf outf) (let loop2 ((threads (cdr a)) (keep '())) (if (null? threads) (if (null? keep) (loop (sub1 n) (add1 pos) (cdr lst)) (cons (cons fd keep) (loop (sub1 n) (add1 pos) (cdr lst)))) (let* ((t (car threads)) (p (##sys#slot t 11)) ) (dbg "checking " t " " p) (cond ((##sys#slot t 13) ; unblocked by timeout? (dbg t " unblocked by timeout") (loop2 (cdr threads) keep)) ((not (pair? p)) ; not blocked for I/O? ;; thread on fd-list is not blocked for I/O - this ;; is incorrect but will be ignored, just let it run (when (##sys#slot t 4) ; also blocked for timeout? (##sys#remove-from-timeout-list t)) (##sys#thread-basic-unblock! t) (loop2 (cdr threads) keep)) ((not (eq? fd (car p))) (panic (sprintf "thread is registered for I/O on unknown file-descriptor: ~S (expected ~S)" (car p) fd))) ((fdset-test inf outf (cdr p)) (when (##sys#slot t 4) ; also blocked for timeout? (##sys#remove-from-timeout-list t)) (##sys#thread-basic-unblock! t) (loop2 (cdr threads) keep)) (else (loop2 (cdr threads) (cons t keep))))))) (cons a (loop n (add1 pos) (cdr lst))) ) ) ) ) ) ] ))) ) ;;; Clear I/O state for unblocked thread (define (##sys#clear-i/o-state-for-thread! t) (when (pair? (##sys#slot t 11)) (let ((fd (car (##sys#slot t 11)))) (set! ##sys#fd-list (let loop ((lst ##sys#fd-list)) (if (null? lst) '() (let* ((a (car lst)) (fd2 (car a)) ) (if (eq? fd fd2) (let ((ts (delq t (cdr a)))) ; remove from fd-list entry (cond ((null? ts) (cdr lst)) (else (##sys#setslot a 1 ts) ; fd-list entry is list with t removed lst) ) ) (cons a (loop (cdr lst))))))))))) ;;; Get list of all threads that are ready or waiting for timeout or waiting for I/O: ; ; (contributed by Joerg Wittenberger) (define (##sys#all-threads #!optional (cns (lambda (queue arg val init) (cons val init))) (init '())) (let loop ((l ready-queue-head) (i init)) (if (pair? l) (loop (cdr l) (cns 'ready #f (car l) i)) (let loop ((l ##sys#fd-list) (i i)) (if (pair? l) (loop (cdr l) (let ((fd (caar l))) (let loop ((l (cdar l))) (if (null? l) i (cns 'i/o fd (car l) (loop (cdr l))))))) (let loop ((l ##sys#timeout-list) (i i)) (if (pair? l) (loop (cdr l) (cns 'timeout (caar l) (cdar l) i)) i))))))) ;;; Remove all waiting threads from the relevant queues with the exception of the current thread: (define (##sys#fetch-and-clear-threads) (let ([all (vector ready-queue-head ready-queue-tail ##sys#fd-list ##sys#timeout-list)]) (set! ready-queue-head '()) (set! ready-queue-tail '()) (set! ##sys#fd-list '()) (set! ##sys#timeout-list '()) all) ) ;;; Restore list of waiting threads: (define (##sys#restore-threads vec) (set! ready-queue-head (##sys#slot vec 0)) (set! ready-queue-tail (##sys#slot vec 1)) (set! ##sys#fd-list (##sys#slot vec 2)) (set! ##sys#timeout-list (##sys#slot vec 3)) ) ;;; Unblock thread cleanly: (define (##sys#thread-unblock! t) (when (or (eq? 'blocked (##sys#slot t 3)) (eq? 'sleeping (##sys#slot t 3))) (##sys#remove-from-timeout-list t) (##sys#clear-i/o-state-for-thread! t) (##sys#thread-basic-unblock! t) ) ) ;;; Put a thread to sleep: (define (##sys#thread-sleep! tm) (##sys#call-with-current-continuation (lambda (return) (let ((ct ##sys#current-thread)) (##sys#setslot ct 1 (lambda () (return (##core#undefined)))) (##sys#thread-block-for-timeout! ct tm) (##sys#schedule))))) ;;; Override `sleep` in library.scm to operate on the current thread: (set! chicken.base#sleep-hook (lambda (n) (##sys#thread-sleep! (+ (##core#inline_allocate ("C_a_i_current_milliseconds" 7) #f) (* 1000.0 n))))) ;;; Kill all threads in fd-, io- and timeout-lists and assign one thread as the ; new primordial one. Overrides "##sys#kill-other-threads" in library.scm. (set! ##sys#kill-other-threads (let ((exit exit)) (lambda (thunk) (let ((primordial ##sys#current-thread)) (define (suspend t) (unless (eq? t primordial) (##sys#setslot t 3 'suspended)) (##sys#setslot t 11 #f) ; block-object (thread/mutex/fd & flags) (##sys#setslot t 12 '())) ; recipients (waiting for join) (set! ##sys#primordial-thread primordial) (set! ready-queue-head (list primordial)) (set! ready-queue-tail ready-queue-head) (suspend primordial) ; clear block-obj. and recipients (for-each (lambda (a) (suspend (cdr a))) ##sys#timeout-list) (for-each (lambda (a) (for-each suspend (cdr a))) ##sys#fd-list) (set! ##sys#timeout-list '()) (set! ##sys#fd-list '()) (thunk) (exit))))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/lolevel.scm���������������������������������������������������������������������������0000644�0001750�0001750�00000047153�13502227553�015113� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; lolevel.scm - Low-level routines for CHICKEN ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit lolevel) (foreign-declare #<<EOF #ifndef C_NONUNIX # include <sys/mman.h> #endif #define C_memmove_o(to, from, n, toff, foff) C_memmove((char *)(to) + (toff), (char *)(from) + (foff), (n)) EOF ) ) (include "common-declarations.scm") (module chicken.memory (address->pointer align-to-word allocate free make-pointer-vector move-memory! object->pointer pointer+ pointer->address pointer->object pointer-f32-ref pointer-f32-set! pointer-f64-ref pointer-f64-set! pointer-like? pointer-s16-ref pointer-s16-set! pointer-s32-ref pointer-s32-set! pointer-s64-ref pointer-s64-set! pointer-s8-ref pointer-s8-set! pointer-tag pointer-u16-ref pointer-u16-set! pointer-u32-ref pointer-u32-set! pointer-u64-ref pointer-u64-set! pointer-u8-ref pointer-u8-set! pointer-vector pointer-vector-fill! pointer-vector-length pointer-vector-ref pointer-vector-set! pointer-vector? pointer=? pointer? tag-pointer tagged-pointer?) (import scheme chicken.base chicken.fixnum chicken.foreign) ;;; Helpers: (define-inline (%pointer? x) (##core#inline "C_i_safe_pointerp" x)) (define-inline (%generic-pointer? x) (or (%pointer? x) (##core#inline "C_locativep" x) ) ) (define-inline (%special-block? x) ; generic-pointer, port, closure (and (##core#inline "C_blockp" x) (##core#inline "C_specialp" x)) ) (define-inline (%generic-vector? x) (and (##core#inline "C_blockp" x) (not (or (##core#inline "C_specialp" x) (##core#inline "C_byteblockp" x)))) ) (define-inline (%record-structure? x) (and (##core#inline "C_blockp" x) (##core#inline "C_structurep" x)) ) ;;; Argument checking: (define (##sys#check-block x . loc) (unless (##core#inline "C_blockp" x) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_BLOCK_ERROR" int) (and (pair? loc) (car loc)) x) ) ) (define (##sys#check-become-alist x loc) (##sys#check-list x loc) (let loop ([lst x]) (cond [(null? lst) ] [(pair? lst) (let ([a (car lst)]) (##sys#check-pair a loc) (##sys#check-block (car a) loc) (##sys#check-block (cdr a) loc) (loop (cdr lst)) ) ] [else (##sys#signal-hook #:type-error loc "bad argument type - not an a-list of non-immediate objects" x) ] ) ) ) (define (##sys#check-generic-structure x . loc) (unless (%record-structure? x) (##sys#signal-hook #:type-error (and (pair? loc) (car loc)) "bad argument type - not a structure" x) ) ) ;; Vector, Structure, Pair, and Symbol (define (##sys#check-generic-vector x . loc) (unless (%generic-vector? x) (##sys#signal-hook #:type-error (and (pair? loc) (car loc)) "bad argument type - not a vector-like object" x) ) ) (define (##sys#check-pointer x . loc) (unless (%pointer? x) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR" int) (and (pair? loc) (car loc)) "bad argument type - not a pointer" x) ) ) ;;; Move arbitrary blocks of memory around: (define move-memory! (let ((memmove1 (foreign-lambda void "C_memmove_o" c-pointer c-pointer int int int)) (memmove2 (foreign-lambda void "C_memmove_o" c-pointer scheme-pointer int int int)) (memmove3 (foreign-lambda void "C_memmove_o" scheme-pointer c-pointer int int int)) (memmove4 (foreign-lambda void "C_memmove_o" scheme-pointer scheme-pointer int int int)) (typerr (lambda (x) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_ERROR" int) 'move-memory! x))) (slot1structs '(mmap u8vector u16vector u32vector u64vector s8vector s16vector s32vector s64vector f32vector f64vector)) ) (lambda (from to #!optional n (foffset 0) (toffset 0)) ; (define (nosizerr) (##sys#error 'move-memory! "need number of bytes to move" from to)) ; (define (sizerr . args) (apply ##sys#error 'move-memory! "number of bytes to move too large" from to args)) ; (define (checkn1 n nmax off) (if (fx<= n (fx- nmax off)) n (sizerr n nmax) ) ) ; (define (checkn2 n nmax nmax2 off1 off2) (if (and (fx<= n (fx- nmax off1)) (fx<= n (fx- nmax2 off2))) n (sizerr n nmax nmax2) ) ) ; (##sys#check-block from 'move-memory!) (##sys#check-block to 'move-memory!) (when (fx< foffset 0) (##sys#error 'move-memory! "negative source offset" foffset)) (when (fx< toffset 0) (##sys#error 'move-memory! "negative destination offset" toffset)) (let move ([from from] [to to]) (cond [(##sys#generic-structure? from) (if (memq (##sys#slot from 0) slot1structs) (move (##sys#slot from 1) to) (typerr from) ) ] [(##sys#generic-structure? to) (if (memq (##sys#slot to 0) slot1structs) (move from (##sys#slot to 1)) (typerr to) ) ] [(%generic-pointer? from) (cond [(%generic-pointer? to) (memmove1 to from (or n (nosizerr)) toffset foffset)] [(or (##sys#bytevector? to) (string? to)) (memmove3 to from (checkn1 (or n (nosizerr)) (##sys#size to) toffset) toffset foffset) ] [else (typerr to)] ) ] [(or (##sys#bytevector? from) (string? from)) (let ([nfrom (##sys#size from)]) (cond [(%generic-pointer? to) (memmove2 to from (checkn1 (or n nfrom) nfrom foffset) toffset foffset)] [(or (##sys#bytevector? to) (string? to)) (memmove4 to from (checkn2 (or n nfrom) nfrom (##sys#size to) foffset toffset) toffset foffset) ] [else (typerr to)] ) ) ] [else (typerr from)] ) ) ) ) ) ;;; Pointer operations: (define allocate (foreign-lambda c-pointer "C_malloc" int)) (define free (foreign-lambda void "C_free" c-pointer)) (define (pointer? x) (%pointer? x)) (define (pointer-like? x) (%special-block? x)) (define (address->pointer addr) (##sys#check-integer addr 'address->pointer) (##sys#address->pointer addr) ) (define (pointer->address ptr) (##sys#check-special ptr 'pointer->address) (##sys#pointer->address ptr) ) (define (object->pointer x) (and (##core#inline "C_blockp" x) ((foreign-lambda* nonnull-c-pointer ((scheme-object x)) "C_return((void *)x);") x) ) ) (define (pointer->object ptr) (##sys#check-pointer ptr 'pointer->object) (##core#inline "C_pointer_to_object" ptr) ) (define (pointer=? p1 p2) (##sys#check-special p1 'pointer=?) (##sys#check-special p2 'pointer=?) (##core#inline "C_pointer_eqp" p1 p2) ) (define pointer+ (foreign-lambda* nonnull-c-pointer ([c-pointer ptr] [integer off]) "C_return((unsigned char *)ptr + off);") ) (define align-to-word (let ([align (foreign-lambda integer "C_align" integer)]) (lambda (x) (cond [(integer? x) (align x)] [(%special-block? x) (##sys#address->pointer (align (##sys#pointer->address x))) ] [else (##sys#signal-hook #:type-error 'align-to-word "bad argument type - not a pointer or integer" x)] ) ) ) ) ;;; Tagged-pointers: (define (tag-pointer ptr tag) (let ([tp (##sys#make-tagged-pointer tag)]) (if (%special-block? ptr) (##core#inline "C_copy_pointer" ptr tp) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR" int) 'tag-pointer ptr) ) tp) ) (define (tagged-pointer? x #!optional tag) (and (##core#inline "C_blockp" x) (##core#inline "C_taggedpointerp" x) (or (not tag) (equal? tag (##sys#slot x 1)) ) ) ) (define (pointer-tag x) (if (%special-block? x) (and (##core#inline "C_taggedpointerp" x) (##sys#slot x 1) ) (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR" int) 'pointer-tag x) ) ) ;;; SRFI-4 number-vector: (define (pointer-u8-set! p n) (##core#inline "C_u_i_pointer_u8_set" p n)) (define (pointer-s8-set! p n) (##core#inline "C_u_i_pointer_s8_set" p n)) (define (pointer-u16-set! p n) (##core#inline "C_u_i_pointer_u16_set" p n)) (define (pointer-s16-set! p n) (##core#inline "C_u_i_pointer_s16_set" p n)) (define (pointer-u32-set! p n) (##core#inline "C_u_i_pointer_u32_set" p n)) (define (pointer-s32-set! p n) (##core#inline "C_u_i_pointer_s32_set" p n)) (define (pointer-u64-set! p n) (##core#inline "C_u_i_pointer_u64_set" p n)) (define (pointer-s64-set! p n) (##core#inline "C_u_i_pointer_s64_set" p n)) (define (pointer-f32-set! p n) (##core#inline "C_u_i_pointer_f32_set" p n)) (define (pointer-f64-set! p n) (##core#inline "C_u_i_pointer_f64_set" p n)) (define pointer-u8-ref (getter-with-setter (lambda (p) (##core#inline "C_u_i_pointer_u8_ref" p)) pointer-u8-set! "(chicken.memory#pointer-u8-ref p)")) (define pointer-s8-ref (getter-with-setter (lambda (p) (##core#inline "C_u_i_pointer_s8_ref" p)) pointer-s8-set! "(chicken.memory#pointer-s8-ref p)")) (define pointer-u16-ref (getter-with-setter (lambda (p) (##core#inline "C_u_i_pointer_u16_ref" p)) pointer-u16-set! "(chicken.memory#pointer-u16-ref p)")) (define pointer-s16-ref (getter-with-setter (lambda (p) (##core#inline "C_u_i_pointer_s16_ref" p)) pointer-s16-set! "(chicken.memory#pointer-s16-ref p)")) (define pointer-u32-ref (getter-with-setter (lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_u32_ref" 6) p)) ;XXX hardcoded size pointer-u32-set! "(chicken.memory#pointer-u32-ref p)")) (define pointer-s32-ref (getter-with-setter (lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_s32_ref" 6) p)) ;XXX hardcoded size pointer-s32-set! "(chicken.memory#pointer-s32-ref p)")) (define pointer-u64-ref (getter-with-setter (lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_u64_ref" 7) p)) ;XXX hardcoded size pointer-u64-set! "(chicken.memory#pointer-u64-ref p)")) (define pointer-s64-ref (getter-with-setter (lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_s64_ref" 7) p)) ;XXX hardcoded size pointer-s64-set! "(chicken.memory#pointer-s64-ref p)")) (define pointer-f32-ref (getter-with-setter (lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_f32_ref" 4) p)) ;XXX hardcoded size pointer-f32-set! "(chicken.memory#pointer-f32-ref p)")) (define pointer-f64-ref (getter-with-setter (lambda (p) (##core#inline_allocate ("C_a_u_i_pointer_f64_ref" 4) p)) ;XXX hardcoded size pointer-f64-set! "(chicken.memory#pointer-f64-ref p)")) ;;; pointer vectors (define make-pointer-vector (let ((unset (list 'unset))) (lambda (n #!optional (init unset)) (##sys#check-exact n 'make-pointer-vector) (let* ((words->bytes (foreign-lambda int "C_wordstobytes" int)) (size (words->bytes n)) (buf (##sys#make-blob size))) (unless (eq? init unset) (when init (##sys#check-pointer init 'make-pointer-vector)) (do ((i 0 (fx+ i 1))) ((fx>= i n)) (pv-buf-set! buf i init))) (##sys#make-structure 'pointer-vector n buf))))) (define (pointer-vector? x) (##sys#structure? x 'pointer-vector)) (define (pointer-vector . ptrs) (let* ((n (length ptrs)) (pv (make-pointer-vector n)) (buf (##sys#slot pv 2))) ; buf (do ((ptrs ptrs (cdr ptrs)) (i 0 (fx+ i 1))) ((null? ptrs) pv) (let ((ptr (car ptrs))) (##sys#check-pointer ptr 'pointer-vector) (pv-buf-set! buf i ptr))))) (define (pointer-vector-fill! pv ptr) (##sys#check-structure pv 'pointer-vector 'pointer-vector-fill!) (when ptr (##sys#check-pointer ptr 'pointer-vector-fill!)) (let ((buf (##sys#slot pv 2)) ; buf (n (##sys#slot pv 1))) ; n (do ((i 0 (fx+ i 1))) ((fx>= i n)) (pv-buf-set! buf i ptr)))) (define pv-buf-ref (foreign-lambda* c-pointer ((scheme-object buf) (unsigned-int i)) "C_return(*((void **)C_data_pointer(buf) + i));")) (define pv-buf-set! (foreign-lambda* void ((scheme-object buf) (unsigned-int i) (c-pointer ptr)) "*((void **)C_data_pointer(buf) + i) = ptr;")) (define (pointer-vector-set! pv i ptr) (##sys#check-structure pv 'pointer-vector 'pointer-vector-ref) (##sys#check-exact i 'pointer-vector-ref) (##sys#check-range i 0 (##sys#slot pv 1)) ; len (when ptr (##sys#check-pointer ptr 'pointer-vector-set!)) (pv-buf-set! (##sys#slot pv 2) i ptr)) (define pointer-vector-ref (getter-with-setter (lambda (pv i) (##sys#check-structure pv 'pointer-vector 'pointer-vector-ref) (##sys#check-exact i 'pointer-vector-ref) (##sys#check-range i 0 (##sys#slot pv 1)) ; len (pv-buf-ref (##sys#slot pv 2) i)) ; buf pointer-vector-set! "(chicken.memory#pointer-vector-ref pv i)")) (define (pointer-vector-length pv) (##sys#check-structure pv 'pointer-vector 'pointer-vector-length) (##sys#slot pv 1)) ) ; chicken.memory (module chicken.memory.representation (block-ref block-set! extend-procedure extended-procedure? make-record-instance mutate-procedure! number-of-bytes number-of-slots object-become! object-copy procedure-data record->vector record-instance-length record-instance-slot record-instance-slot-set! record-instance-type record-instance? set-procedure-data! vector-like?) (import scheme chicken.base chicken.fixnum chicken.foreign) ;;; Copy arbitrary object: (define (object-copy x) (let copy ((x x)) (cond ((not (##core#inline "C_blockp" x)) x) ((symbol? x) (##sys#intern-symbol (##sys#slot x 1))) (else (let* ((n (##sys#size x)) (words (if (##core#inline "C_byteblockp" x) (##core#inline "C_words" n) n)) (y (##core#inline "C_copy_block" x (##sys#make-vector words)))) (unless (##core#inline "C_byteblockp" x) (do ((i (if (##core#inline "C_specialp" x) 1 0) (fx+ i 1))) ((fx>= i n)) (##sys#setslot y i (copy (##sys#slot y i))))) y))))) ;;; Procedures extended with data: ; Unique id for extended-procedures (define xproc-tag (vector 'extended)) (define (extend-procedure proc data) (##sys#check-closure proc 'extend-procedure) (##sys#decorate-lambda proc (lambda (x) (and (pair? x) (eq? xproc-tag (##sys#slot x 0)))) (lambda (x i) (##sys#setslot x i (cons xproc-tag data)) x) ) ) (define-inline (%procedure-data proc) (##sys#lambda-decoration proc (lambda (x) (and (pair? x) (eq? xproc-tag (##sys#slot x 0))))) ) (define (extended-procedure? x) (and (##core#inline "C_blockp" x) (##core#inline "C_closurep" x) (%procedure-data x) #t) ) (define (procedure-data x) (and (##core#inline "C_blockp" x) (##core#inline "C_closurep" x) (and-let* ([d (%procedure-data x)]) (##sys#slot d 1) ) ) ) (define (set-procedure-data! proc x) (unless (eq? proc (extend-procedure proc x)) (##sys#signal-hook #:type-error 'set-procedure-data! "bad argument type - not an extended procedure" proc))) ;;; Accessors for arbitrary vector-like block objects: (define (vector-like? x) (%generic-vector? x)) (define block-set! ##sys#block-set!) (define block-ref (getter-with-setter ##sys#block-ref ##sys#block-set! "(chicken.memory.representation#block-ref x i)")) (define (number-of-slots x) (##sys#check-generic-vector x 'number-of-slots) (##sys#size x) ) (define (number-of-bytes x) (cond [(not (##core#inline "C_blockp" x)) (##sys#signal-hook #:type-error 'number-of-bytes "cannot compute number of bytes of immediate object" x) ] [(##core#inline "C_byteblockp" x) (##sys#size x)] [else (##core#inline "C_bytes" (##sys#size x))] ) ) ;;; Record objects: ;; Record layout: ; ; 0 Tag (symbol) ; 1..N Slot (object) (define (make-record-instance type . args) (##sys#check-symbol type 'make-record-instance) (apply ##sys#make-structure type args) ) (define (record-instance? x #!optional type) (and (%record-structure? x) (or (not type) (eq? type (##sys#slot x 0)))) ) (define (record-instance-type x) (##sys#check-generic-structure x 'record-instance-type) (##sys#slot x 0) ) (define (record-instance-length x) (##sys#check-generic-structure x 'record-instance-length) (fx- (##sys#size x) 1) ) (define (record-instance-slot-set! x i y) (##sys#check-generic-structure x 'record-instance-slot-set!) (##sys#check-range i 0 (fx- (##sys#size x) 1) 'record-instance-slot-set!) (##sys#setslot x (fx+ i 1) y) ) (define record-instance-slot (getter-with-setter (lambda (x i) (##sys#check-generic-structure x 'record-instance-slot) (##sys#check-range i 0 (fx- (##sys#size x) 1) 'record-instance-slot) (##sys#slot x (fx+ i 1)) ) record-instance-slot-set! "(chicken.memory.representation#record-instance-slot x i)")) (define (record->vector x) (##sys#check-generic-structure x 'record->vector) (let* ([n (##sys#size x)] [v (##sys#make-vector n)] ) (do ([i 0 (fx+ i 1)]) [(fx>= i n) v] (##sys#setslot v i (##sys#slot x i)) ) ) ) ;;; `become': (define (object-become! alst) (##sys#check-become-alist alst 'object-become!) (##sys#become! alst) ) (define (mutate-procedure! old proc) (##sys#check-closure old 'mutate-procedure!) (##sys#check-closure proc 'mutate-procedure!) (let* ([n (##sys#size old)] [words (##core#inline "C_words" n)] [new (##core#inline "C_copy_block" old (##sys#make-vector words))] ) (##sys#become! (list (cons old (proc new)))) new ) ) ) ; chicken.memory.representation (module chicken.locative (locative? make-locative make-weak-locative locative-ref locative-set! locative->object) (import scheme chicken.base) ;;; locatives: ;; Locative layout: ; ; 0 Object-address + Byte-offset (address) ; 1 Byte-offset (fixnum) ; 2 Type (fixnum) ; 0 vector or pair (C_SLOT_LOCATIVE) ; 1 string (C_CHAR_LOCATIVE) ; 2 u8vector or blob (C_U8_LOCATIVE) ; 3 s8vector (C_S8_LOCATIVE) ; 4 u16vector (C_U16_LOCATIVE) ; 5 s16vector (C_S16_LOCATIVE) ; 6 u32vector (C_U32_LOCATIVE) ; 7 s32vector (C_S32_LOCATIVE) ; 8 u64vector (C_U32_LOCATIVE) ; 9 s64vector (C_S32_LOCATIVE) ; 10 f32vector (C_F32_LOCATIVE) ; 11 f64vector (C_F64_LOCATIVE) ; 3 Object or #f, if weak (C_word) (define (make-locative obj . index) (##sys#make-locative obj (optional index 0) #f 'make-locative)) (define (make-weak-locative obj . index) (##sys#make-locative obj (optional index 0) #t 'make-weak-locative)) (define (locative-set! x y) (##core#inline "C_i_locative_set" x y)) (define locative-ref (getter-with-setter (lambda (loc) (##core#inline_allocate ("C_a_i_locative_ref" 6) loc)) locative-set! "(chicken.locative#locative-ref loc)")) (define (locative->object x) (##core#inline "C_i_locative_to_object" x)) (define (locative? x) (and (##core#inline "C_blockp" x) (##core#inline "C_locativep" x)))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/GNUmakefile���������������������������������������������������������������������������0000644�0001750�0001750�00000004400�13502227553�015003� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# GNUmakefile - toplevel makefile. This simply includes the # platform-specific makefile or quits when no platform is selected. # # Copyright (c) 2008-2019, The CHICKEN Team # Copyright (c) 2007, Felix L. Winkelmann # All rights reserved. # # Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following # conditions are met: # # Redistributions of source code must retain the above copyright notice, this list of conditions and the following # disclaimer. # Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided with the distribution. # Neither the name of the author nor the names of its contributors may be used to endorse or promote # products derived from this software without specific prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. # If nothing selected, use default config (this should set PLATFORM) ifeq ($(CONFIG)$(PLATFORM),) CONFIG=config.make endif ifneq ($(CONFIG),) # Avoid loading config when building a boot-chicken ifneq ($(MAKECMDGOALS),boot-chicken) include $(CONFIG) endif endif ifndef PLATFORM $(info Please select your target platform by running one of the following commands:) $(info ) $(foreach mf, $(wildcard Makefile.*), $(info $(MAKE) PLATFORM=$(mf:Makefile.%=%))) $(info ) $(info For more information, consult the README file.) $(error No PLATFORM given.) else include $(SRCDIR)Makefile.$(PLATFORM) endif����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.port.import.c�����������������������������������������������������������������0000644�0001750�0001750�00000021261�13502227774�017006� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from chicken.port.import.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: chicken.port.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file chicken.port.import.c uses: library eval expand */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[4]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_117) static void C_ccall f_117(C_word c,C_word *av) C_noret; C_noret_decl(f_120) static void C_ccall f_120(C_word c,C_word *av) C_noret; C_noret_decl(f_123) static void C_ccall f_123(C_word c,C_word *av) C_noret; C_noret_decl(f_126) static void C_ccall f_126(C_word c,C_word *av) C_noret; C_noret_decl(C_toplevel) C_externexport void C_ccall C_toplevel(C_word c,C_word *av) C_noret; /* k115 */ static void C_ccall f_117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k118 in k115 */ static void C_ccall f_120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k121 in k118 in k115 */ static void C_ccall f_123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* chicken.port.import.scm:3: ##sys#register-compiled-module */ {C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[0]); C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=*((C_word*)lf[0]+1); av2[1]=t2; av2[2]=lf[1]; av2[3]=lf[2]; av2[4]=C_SCHEME_END_OF_LIST; av2[5]=lf[3]; av2[6]=C_SCHEME_END_OF_LIST; av2[7]=C_SCHEME_END_OF_LIST; tp(8,av2);}} /* k124 in k121 in k118 in k115 */ static void C_ccall f_126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; C_check_for_interrupt; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_126,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; C_main_entry_point void C_ccall C_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(501))){ C_save(t1); C_rereclaim2(501*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,4); lf[0]=C_h_intern(&lf[0],30, C_text("##sys#register-compiled-module")); lf[1]=C_h_intern(&lf[1],12, C_text("chicken.port")); lf[2]=C_h_intern(&lf[2],4, C_text("port")); lf[3]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001call-with-input-string\376\001\000\000#\001chicken.port#call-with-input-string\376" "\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001call-with-output-string\376\001\000\000$\001chicken.port#call-with-output-string" "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001copy-port\376\001\000\000\026\001chicken.port#copy-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001make-input-" "port\376\001\000\000\034\001chicken.port#make-input-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001make-output-port\376\001\000\000\035\001chic" "ken.port#make-output-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001port-fold\376\001\000\000\026\001chicken.port#port-fold\376\003" "\000\000\002\376\003\000\000\002\376\001\000\000\015\001port-for-each\376\001\000\000\032\001chicken.port#port-for-each\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001port-" "map\376\001\000\000\025\001chicken.port#port-map\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001port-name\376\001\000\000\026\001chicken.port#port-n" "ame\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001port-position\376\001\000\000\032\001chicken.port#port-position\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001" "make-bidirectional-port\376\001\000\000$\001chicken.port#make-bidirectional-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023" "\001make-broadcast-port\376\001\000\000 \001chicken.port#make-broadcast-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001make-c" "oncatenated-port\376\001\000\000#\001chicken.port#make-concatenated-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001set-buf" "fering-mode!\376\001\000\000 \001chicken.port#set-buffering-mode!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001set-port-name!" "\376\001\000\000\033\001chicken.port#set-port-name!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001terminal-name\376\001\000\000\032\001chicken.port" "#terminal-name\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001terminal-port\077\376\001\000\000\033\001chicken.port#terminal-port\077\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\015\001terminal-size\376\001\000\000\032\001chicken.port#terminal-size\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001with-e" "rror-output-to-port\376\001\000\000&\001chicken.port#with-error-output-to-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001w" "ith-input-from-port\376\001\000\000!\001chicken.port#with-input-from-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001with-i" "nput-from-string\376\001\000\000#\001chicken.port#with-input-from-string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001with-ou" "tput-to-port\376\001\000\000 \001chicken.port#with-output-to-port\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001with-output-to" "-string\376\001\000\000\042\001chicken.port#with-output-to-string\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001with-error-output" "-to-string\376\001\000\000(\001chicken.port#with-error-output-to-string\376\377\016")); C_register_lf2(lf,4,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_117,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[6] = { {C_text("f_117:chicken_2eport_2eimport_2escm"),(void*)f_117}, {C_text("f_120:chicken_2eport_2eimport_2escm"),(void*)f_120}, {C_text("f_123:chicken_2eport_2eimport_2escm"),(void*)f_123}, {C_text("f_126:chicken_2eport_2eimport_2escm"),(void*)f_126}, {C_text("toplevel:chicken_2eport_2eimport_2escm"),(void*)C_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* (o e)|safe calls: 3 o|replaced variables: 1 o|removed binding forms: 4 o|removed binding forms: 1 o|simplifications: ((##core#call . 3)) o| call simplifications: o| scheme#list 3 o|contracted procedure: k128 o|contracted procedure: k132 o|contracted procedure: k136 o|removed binding forms: 3 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r129 o|substituted constant variable: r133 o|substituted constant variable: r137 o|removed binding forms: 5 */ /* end of file */ �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/eval.scm������������������������������������������������������������������������������0000644�0001750�0001750�00000132143�13502227553�014372� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; eval.scm - Interpreter for CHICKEN ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (unit eval) (uses modules) (not inline ##sys#alias-global-hook ##sys#user-read-hook ##sys#syntax-error-hook)) #> #ifndef C_INSTALL_EGG_HOME # define C_INSTALL_EGG_HOME "." #endif #ifndef C_INSTALL_SHARE_HOME # define C_INSTALL_SHARE_HOME NULL #endif #ifndef C_BINARY_VERSION # define C_BINARY_VERSION 0 #endif <# (module chicken.eval (eval-handler module-environment) (import scheme chicken.base chicken.blob chicken.fixnum chicken.internal chicken.keyword chicken.syntax chicken.type) (include "common-declarations.scm") (define-syntax d (syntax-rules () ((_ . _) (void)))) ;;; Compile lambda to closure: (define (eval-decorator p ll h cntr) (##sys#decorate-lambda p (lambda (x) (and (not (##sys#immediate? x)) (##core#inline "C_lambdainfop" x))) (lambda (p i) (##sys#setslot p i (##sys#make-lambda-info (let ((o (open-output-string))) (write ll o) (get-output-string o)))) p) ) ) (define ##sys#unbound-in-eval #f) (define ##sys#eval-debug-level (make-parameter 1)) (define compile-to-closure (let ((reverse reverse)) (lambda (exp env #!optional cntr evalenv static tl?) (define-syntax thread-id (syntax-rules () ((_ t) (##sys#slot t 14)))) (define (find-id id se) ; ignores macro bindings (cond ((null? se) #f) ((and (eq? id (caar se)) (symbol? (cdar se))) (cdar se)) (else (find-id id (cdr se))))) (define (rename var) (cond ((find-id var (##sys#current-environment))) ((##sys#get var '##core#macro-alias) symbol? => values) (else var))) (define (lookup var0 e) (let ((var (rename var0))) (d `(LOOKUP/EVAL: ,var0 ,var ,e ,(map (lambda (x) (car x)) (##sys#current-environment)))) (let loop ((envs e) (ei 0)) (cond ((null? envs) (values #f var)) ((posq var (##sys#slot envs 0)) => (lambda (p) (values ei p))) (else (loop (##sys#slot envs 1) (fx+ ei 1))) ) ) )) (define (posq x lst) (let loop ((lst lst) (i 0)) (cond ((null? lst) #f) ((eq? x (##sys#slot lst 0)) i) (else (loop (##sys#slot lst 1) (fx+ i 1))) ) ) ) (define (emit-trace-info tf info cntr e v) (when tf (##core#inline "C_emit_eval_trace_info" info (##sys#make-structure 'frameinfo cntr e v) (thread-id ##sys#current-thread) ) ) ) (define (emit-syntax-trace-info tf info cntr) (when tf (##core#inline "C_emit_syntax_trace_info" info cntr (thread-id ##sys#current-thread) ) ) ) (define (decorate p ll h cntr) (eval-decorator p ll h cntr)) (define (compile x e h tf cntr tl?) (cond ((keyword? x) (lambda v x)) ((symbol? x) (receive (i j) (lookup x e) (cond ((not i) (let ((var (cond ((not (symbol? j)) x) ; syntax? ((assq x (##sys#current-environment)) j) ((not static) (##sys#alias-global-hook j #f cntr)) (else #f)))) (when (and ##sys#unbound-in-eval (or (not var) (not (##sys#symbol-has-toplevel-binding? var)))) (set! ##sys#unbound-in-eval (cons (cons var cntr) ##sys#unbound-in-eval)) ) (cond ((not var) (lambda (v) (##sys#error "unbound variable" x))) ((##sys#symbol-has-toplevel-binding? var) (lambda v (##sys#slot var 0))) (else (lambda v (##core#inline "C_fast_retrieve" var)))))) (else (case i ((0) (lambda (v) (##sys#slot (##sys#slot v 0) j))) ((1) (lambda (v) (##sys#slot (##sys#slot (##sys#slot v 1) 0) j))) ((2) (lambda (v) (##sys#slot (##sys#slot (##sys#slot (##sys#slot v 1) 1) 0) j))) ((3) (lambda (v) (##sys#slot (##sys#slot (##sys#slot (##sys#slot (##sys#slot v 1) 1) 1) 0) j))) (else (lambda (v) (##sys#slot (##core#inline "C_u_i_list_ref" v i) j)))))))) [(##sys#number? x) (case x [(-1) (lambda v -1)] [(0) (lambda v 0)] [(1) (lambda v 1)] [(2) (lambda v 2)] [else (lambda v x)] ) ] [(boolean? x) (if x (lambda v #t) (lambda v #f) ) ] ((or (char? x) (eof-object? x) (string? x) (blob? x) (vector? x) (##sys#srfi-4-vector? x)) (lambda v x) ) [(not (pair? x)) (##sys#syntax-error/context "illegal non-atomic object" x)] [(symbol? (##sys#slot x 0)) (emit-syntax-trace-info tf x cntr) (let ((x2 (expand x (##sys#current-environment)))) (d `(EVAL/EXPANDED: ,x2)) (if (not (eq? x2 x)) (compile x2 e h tf cntr tl?) (let ((head (rename (##sys#slot x 0)))) ;; here we did't resolve ##core#primitive, but that is done in compile-call (via ;; a normal walking of the operator) (case head [(##core#quote) (let* ((c (strip-syntax (cadr x)))) (case c [(-1) (lambda v -1)] [(0) (lambda v 0)] [(1) (lambda v 1)] [(2) (lambda v 2)] [(#t) (lambda v #t)] [(#f) (lambda v #f)] [(()) (lambda v '())] [else (lambda v c)] ) ) ] ((##core#syntax) (let ((c (cadr x))) (lambda v c))) [(##core#check) (compile (cadr x) e h tf cntr #f) ] [(##core#immutable) (compile (cadr x) e #f tf cntr #f) ] [(##core#undefined) (lambda (v) (##core#undefined))] [(##core#if) (let* ((test (compile (cadr x) e #f tf cntr #f)) (cns (compile (caddr x) e #f tf cntr #f)) (alt (if (pair? (cdddr x)) (compile (cadddr x) e #f tf cntr #f) (compile '(##core#undefined) e #f tf cntr #f) ) ) ) (lambda (v) (if (##core#app test v) (##core#app cns v) (##core#app alt v))) ) ] [(##core#begin) (let* ((body (##sys#slot x 1)) (len (length body)) ) (case len ((0) (compile '(##core#undefined) e #f tf cntr tl?)) ((1) (compile (##sys#slot body 0) e #f tf cntr tl?)) ((2) (let* ((x1 (compile (##sys#slot body 0) e #f tf cntr tl?)) (x2 (compile (cadr body) e #f tf cntr tl?)) ) (lambda (v) (##core#app x1 v) (##core#app x2 v)) ) ) (else (let* ((x1 (compile (##sys#slot body 0) e #f tf cntr tl?)) (x2 (compile (cadr body) e #f tf cntr tl?)) (x3 (compile `(##core#begin ,@(##sys#slot (##sys#slot body 1) 1)) e #f tf cntr tl?)) ) (lambda (v) (##core#app x1 v) (##core#app x2 v) (##core#app x3 v)) ) ) ) ) ] ((##core#ensure-toplevel-definition) (unless tl? (##sys#error "toplevel definition in non-toplevel context for variable" (cadr x))) (compile '(##core#undefined) e #f tf cntr #f)) [(##core#set!) (let ((var (cadr x))) (receive (i j) (lookup var e) (let ((val (compile (caddr x) e var tf cntr #f))) (cond ((not i) (when ##sys#notices-enabled (and-let* ((a (assq var (##sys#current-environment))) ((symbol? (cdr a)))) (##sys#notice "assignment to imported value binding" var))) (if static (lambda (v) (##sys#error 'eval "environment is not mutable" evalenv var)) ;XXX var? (let ((var (##sys#alias-global-hook j #t cntr))) (lambda (v) (let ((result (##core#app val v))) (##core#inline "C_i_persist_symbol" var) (##sys#setslot var 0 result)))))) ((zero? i) (lambda (v) (##sys#setslot (##sys#slot v 0) j (##core#app val v)))) (else (lambda (v) (##sys#setslot (##core#inline "C_u_i_list_ref" v i) j (##core#app val v))))))))] [(##core#let) (let* ((bindings (cadr x)) (n (length bindings)) (vars (map (lambda (x) (car x)) bindings)) (aliases (map gensym vars)) (e2 (cons aliases e)) (se2 (##sys#extend-se (##sys#current-environment) vars aliases)) (body (parameterize ((##sys#current-environment se2)) (compile-to-closure (##sys#canonicalize-body (cddr x) (##sys#current-environment) #f) e2 cntr evalenv static #f)) ) ) (case n ((1) (let ([val (compile (cadar bindings) e (car vars) tf cntr #f)]) (lambda (v) (##core#app body (cons (vector (##core#app val v)) v)) ) ) ) ((2) (let ((val1 (compile (cadar bindings) e (car vars) tf cntr #f)) (val2 (compile (cadadr bindings) e (cadr vars) tf cntr #f)) ) (lambda (v) (##core#app body (cons (vector (##core#app val1 v) (##core#app val2 v)) v)) ) ) ) ((3) (let* ((val1 (compile (cadar bindings) e (car vars) tf cntr #f)) (val2 (compile (cadadr bindings) e (cadr vars) tf cntr #f)) (t (cddr bindings)) (val3 (compile (cadar t) e (caddr vars) tf cntr #f)) ) (lambda (v) (##core#app body (cons (vector (##core#app val1 v) (##core#app val2 v) (##core#app val3 v)) v)) ) ) ) ((4) (let* ((val1 (compile (cadar bindings) e (car vars) tf cntr #f)) (val2 (compile (cadadr bindings) e (cadr vars) tf cntr #f)) (t (cddr bindings)) (val3 (compile (cadar t) e (caddr vars) tf cntr #f)) (val4 (compile (cadadr t) e (cadddr vars) tf cntr #f)) ) (lambda (v) (##core#app body (cons (vector (##core#app val1 v) (##core#app val2 v) (##core#app val3 v) (##core#app val4 v)) v)) ) ) ) [else (let ((vals (map (lambda (x) (compile (cadr x) e (car x) tf cntr #f)) bindings))) (lambda (v) (let ([v2 (##sys#make-vector n)]) (do ([i 0 (fx+ i 1)] [vlist vals (##sys#slot vlist 1)] ) ((fx>= i n)) (##sys#setslot v2 i (##core#app (##sys#slot vlist 0) v)) ) (##core#app body (cons v2 v)) ) ) ) ] ) ) ] ((##core#letrec*) (let ((bindings (cadr x)) (body (cddr x)) ) (compile `(##core#let ,(##sys#map (lambda (b) (list (car b) '(##core#undefined))) bindings) ,@(##sys#map (lambda (b) `(##core#set! ,(car b) ,(cadr b))) bindings) (##core#let () ,@body) ) e h tf cntr #f))) ((##core#letrec) (let* ((bindings (cadr x)) (vars (map car bindings)) (tmps (map gensym vars)) (body (cddr x)) ) (compile `(##core#let ,(map (lambda (b) (list (car b) '(##core#undefined))) bindings) (##core#let ,(map (lambda (t b) (list t (cadr b))) tmps bindings) ,@(map (lambda (v t) `(##core#set! ,v ,t)) vars tmps) (##core#let () ,@body) ) ) e h tf cntr #f))) [(##core#lambda) (##sys#check-syntax 'lambda x '(_ lambda-list . #(_ 1)) #f (##sys#current-environment)) (let* ([llist (cadr x)] [body (cddr x)] [info (cons (or h '?) llist)] ) (when (##sys#extended-lambda-list? llist) (set!-values (llist body) (##sys#expand-extended-lambda-list llist body ##sys#syntax-error-hook (##sys#current-environment)) ) ) (##sys#decompose-lambda-list llist (lambda (vars argc rest) (let* ((aliases (map gensym vars)) (se2 (##sys#extend-se (##sys#current-environment) vars aliases)) (e2 (cons aliases e)) (body (parameterize ((##sys#current-environment se2)) (compile-to-closure (##sys#canonicalize-body body se2 #f) e2 (or h cntr) evalenv static #f)) ) ) (case argc [(0) (if rest (lambda (v) (decorate (lambda r (##core#app body (cons (vector r) v))) info h cntr) ) (lambda (v) (decorate (lambda () (##core#app body (cons #f v))) info h cntr) ) ) ] [(1) (if rest (lambda (v) (decorate (lambda (a1 . r) (##core#app body (cons (vector a1 r) v))) info h cntr) ) (lambda (v) (decorate (lambda (a1) (##core#app body (cons (vector a1) v))) info h cntr) ) ) ] [(2) (if rest (lambda (v) (decorate (lambda (a1 a2 . r) (##core#app body (cons (vector a1 a2 r) v))) info h cntr) ) (lambda (v) (decorate (lambda (a1 a2) (##core#app body (cons (vector a1 a2) v))) info h cntr) ) ) ] [(3) (if rest (lambda (v) (decorate (lambda (a1 a2 a3 . r) (##core#app body (cons (vector a1 a2 a3 r) v))) info h cntr) ) (lambda (v) (decorate (lambda (a1 a2 a3) (##core#app body (cons (vector a1 a2 a3) v))) info h cntr) ) ) ] [(4) (if rest (lambda (v) (decorate (lambda (a1 a2 a3 a4 . r) (##core#app body (cons (vector a1 a2 a3 a4 r) v))) info h cntr) ) (lambda (v) (decorate (lambda (a1 a2 a3 a4) (##core#app body (##sys#cons (##sys#vector a1 a2 a3 a4) v))) info h cntr) ) ) ] [else (if rest (lambda (v) (decorate (lambda as (##core#app body (##sys#cons (apply ##sys#vector (fudge-argument-list argc as)) v)) ) info h cntr) ) (lambda (v) (decorate (lambda as (let ([len (length as)]) (if (not (fx= len argc)) (##sys#error "bad argument count" argc len) (##core#app body (##sys#cons (apply ##sys#vector as) v))))) info h cntr) ) ) ] ) ) ) ) ) ] ((##core#let-syntax) (parameterize ((##sys#current-environment (append (map (lambda (b) (list (car b) (##sys#current-environment) (##sys#ensure-transformer (##sys#eval/meta (cadr b)) (strip-syntax (car b))))) (cadr x) ) (##sys#current-environment)) ) ) (compile (##sys#canonicalize-body (cddr x) (##sys#current-environment) #f) e #f tf cntr #f))) ((##core#letrec-syntax) (let* ((ms (map (lambda (b) (list (car b) #f (##sys#ensure-transformer (##sys#eval/meta (cadr b)) (strip-syntax (car b))))) (cadr x) ) ) (se2 (append ms (##sys#current-environment))) ) (for-each (lambda (sb) (set-car! (cdr sb) se2) ) ms) (parameterize ((##sys#current-environment se2)) (compile (##sys#canonicalize-body (cddr x) (##sys#current-environment) #f) e #f tf cntr #f)))) ((##core#define-syntax) (let* ((var (cadr x)) (body (caddr x)) (name (rename var))) (when (and static (not (assq var (##sys#current-environment)))) (##sys#error 'eval "environment is not mutable" evalenv var)) (##sys#register-syntax-export name (##sys#current-module) body) ; not really necessary, it only shouldn't be #f (##sys#extend-macro-environment name (##sys#current-environment) (##sys#eval/meta body)) (compile '(##core#undefined) e #f tf cntr #f) ) ) ((##core#define-compiler-syntax) (compile '(##core#undefined) e #f tf cntr #f)) ((##core#let-compiler-syntax) (compile (##sys#canonicalize-body (cddr x) (##sys#current-environment) #f) e #f tf cntr #f)) ((##core#include) (##sys#include-forms-from-file (cadr x) (caddr x) (lambda (forms) (compile (if (pair? (cdddr x)) ; body? (##sys#canonicalize-body (append forms (cadddr x)) (##sys#current-environment)) `(##core#begin ,@forms)) e #f tf cntr tl?)))) ((##core#let-module-alias) (##sys#with-module-aliases (map (lambda (b) (##sys#check-syntax 'functor b '(symbol symbol)) (strip-syntax b)) (cadr x)) (lambda () (compile `(##core#begin ,@(cddr x)) e #f tf cntr tl?)))) ((##core#module) (let* ((x (strip-syntax x)) (name (cadr x)) (exports (or (eq? #t (caddr x)) (map (lambda (exp) (cond ((symbol? exp) exp) ((and (pair? exp) (let loop ((exp exp)) (or (null? exp) (and (symbol? (car exp)) (loop (cdr exp)))))) exp) (else (##sys#syntax-error-hook 'module "invalid export syntax" exp name)))) (caddr x))))) (when (##sys#current-module) (##sys#syntax-error-hook 'module "modules may not be nested" name)) (parameterize ((##sys#current-module (##sys#register-module name #f exports)) (##sys#current-environment '()) (##sys#macro-environment ##sys#initial-macro-environment) (##sys#module-alias-environment (##sys#module-alias-environment))) (##sys#with-property-restore (lambda () (let loop ((body (cdddr x)) (xs '())) (if (null? body) (let ((xs (reverse xs))) (##sys#finalize-module (##sys#current-module)) (##sys#provide (module-requirement name)) (lambda (v) (let loop2 ((xs xs)) (if (null? xs) (##sys#void) (let ((n (cdr xs))) (cond ((pair? n) ((car xs) v) (loop2 n)) (else ((car xs) v)))))))) (loop (cdr body) (cons (compile (car body) '() #f tf cntr #t) ; reset back to toplevel! xs))))) ) ))) [(##core#loop-lambda) (compile `(,(rename 'lambda) ,@(cdr x)) e #f tf cntr #f) ] [(##core#provide) (compile `(##sys#provide (##core#quote ,(cadr x))) e #f tf cntr #f)] [(##core#require-for-syntax) (chicken.load#load-extension (cadr x) '() 'require) (compile '(##core#undefined) e #f tf cntr #f)] [(##core#require) (let ((id (cadr x)) (alternates (cddr x))) (let-values (((exp _) (##sys#process-require id #f alternates))) (compile exp e #f tf cntr #f)))] [(##core#elaborationtimeonly ##core#elaborationtimetoo) ; <- Note this! (##sys#eval/meta (cadr x)) (compile '(##core#undefined) e #f tf cntr tl?) ] [(##core#compiletimetoo) (compile (cadr x) e #f tf cntr tl?) ] [(##core#compiletimeonly ##core#callunit) (compile '(##core#undefined) e #f tf cntr tl?) ] [(##core#declare) (##sys#notice "declarations are ignored in interpreted code" x) (compile '(##core#undefined) e #f tf cntr #f) ] [(##core#define-inline ##core#define-constant) (compile `(,(rename 'define) ,@(cdr x)) e #f tf cntr tl?) ] [(##core#primitive ##core#inline ##core#inline_allocate ##core#foreign-lambda ##core#define-foreign-variable ##core#define-external-variable ##core#let-location ##core#foreign-primitive ##core#location ##core#foreign-lambda* ##core#define-foreign-type) (##sys#syntax-error-hook "cannot evaluate compiler-special-form" x) ] [(##core#app) (compile-call (cdr x) e tf cntr (##sys#current-environment)) ] ((##core#the) (compile (cadddr x) e h tf cntr tl?)) ((##core#typecase) ;; drops exp and requires "else" clause (cond ((assq 'else (strip-syntax (cdddr x))) => (lambda (cl) (compile (cadr cl) e h tf cntr tl?))) (else (##sys#syntax-error-hook 'compiler-typecase "no `else-clause' in unresolved `compiler-typecase' form" x)))) (else (fluid-let ((##sys#syntax-context (cons head ##sys#syntax-context))) (compile-call x e tf cntr (##sys#current-environment))))))))] [else (emit-syntax-trace-info tf x cntr) (compile-call x e tf cntr (##sys#current-environment))] ) ) (define (fudge-argument-list n alst) (if (null? alst) (list alst) (do ((n n (fx- n 1)) (c 0 (fx+ c 1)) (args alst (if (eq? '() args) (##sys#error "bad argument count" n c) (##sys#slot args 1))) (last #f args) ) ((fx= n 0) (##sys#setslot last 1 (list args)) alst) ) ) ) (define (checked-length lst) (let loop ([lst lst] [n 0]) (cond [(null? lst) n] [(pair? lst) (loop (##sys#slot lst 1) (fx+ n 1))] [else #f] ) ) ) (define (compile-call x e tf cntr se) (let* ((head (##sys#slot x 0)) (fn (if (procedure? head) (lambda _ head) (compile (##sys#slot x 0) e #f tf cntr #f))) (args (##sys#slot x 1)) (argc (checked-length args)) (info x) ) (case argc ((#f) (##sys#syntax-error/context "malformed expression" x)) ((0) (lambda (v) (emit-trace-info tf info cntr e v) ((##core#app fn v)))) ((1) (let ((a1 (compile (##sys#slot args 0) e #f tf cntr #f))) (lambda (v) (emit-trace-info tf info cntr e v) ((##core#app fn v) (##core#app a1 v))) ) ) ((2) (let* ((a1 (compile (##sys#slot args 0) e #f tf cntr #f)) (a2 (compile (##core#inline "C_u_i_list_ref" args 1) e #f tf cntr #f)) ) (lambda (v) (emit-trace-info tf info cntr e v) ((##core#app fn v) (##core#app a1 v) (##core#app a2 v))) ) ) ((3) (let* ((a1 (compile (##sys#slot args 0) e #f tf cntr #f)) (a2 (compile (##core#inline "C_u_i_list_ref" args 1) e #f tf cntr #f)) (a3 (compile (##core#inline "C_u_i_list_ref" args 2) e #f tf cntr #f)) ) (lambda (v) (emit-trace-info tf info cntr e v) ((##core#app fn v) (##core#app a1 v) (##core#app a2 v) (##core#app a3 v))) ) ) ((4) (let* ((a1 (compile (##sys#slot args 0) e #f tf cntr #f)) (a2 (compile (##core#inline "C_u_i_list_ref" args 1) e #f tf cntr #f)) (a3 (compile (##core#inline "C_u_i_list_ref" args 2) e #f tf cntr #f)) (a4 (compile (##core#inline "C_u_i_list_ref" args 3) e #f tf cntr #f)) ) (lambda (v) (emit-trace-info tf info cntr e v) ((##core#app fn v) (##core#app a1 v) (##core#app a2 v) (##core#app a3 v) (##core#app a4 v))) ) ) (else (let ((as (##sys#map (lambda (a) (compile a e #f tf cntr #f)) args))) (lambda (v) (emit-trace-info tf info cntr e v) (apply (##core#app fn v) (##sys#map (lambda (a) (##core#app a v)) as))) ) ) ) ) ) (compile exp env #f (fx> (##sys#eval-debug-level) 0) cntr tl?) ) ) ) ;;; evaluate in the macro-expansion/compile-time environment (define (##sys#eval/meta form) (parameterize ((##sys#current-module #f) (##sys#macro-environment (##sys#meta-macro-environment)) (##sys#current-environment (##sys#current-meta-environment))) (dynamic-wind void (lambda () ((compile-to-closure form '() #f #f #f ;XXX evalenv? static? #t) ; toplevel. '()) ) (lambda () ;; Just before restoring the parameters, update "meta" ;; environments to receive a copy of the current ;; environments one level "down". We don't support more ;; than two evaluation phase levels currently. XXX: Should ;; we change this to a "stack" of environments? (##sys#current-meta-environment (##sys#current-environment)) (##sys#meta-macro-environment (##sys#macro-environment)))))) (define eval-handler (make-parameter (lambda (x #!optional env) (let ((se (##sys#current-environment))) ;; When se is empty, it's the first time eval was called: ;; ensure an active default environment. We do it here because ;; eval does not work yet at the end of modules.scm, and we ;; don't want to inject calls into every toplevel (see #1437) (when (null? se) ((compile-to-closure `(##core#begin (import-for-syntax ,@default-syntax-imports) (import ,@default-imports)) '() #f #f #f #t) '())) (cond (env (##sys#check-structure env 'environment 'eval) (let ((se2 (##sys#slot env 2))) ((if se2 ; not interaction-environment? (parameterize ((##sys#macro-environment '()) (##sys#current-environment se2)) (compile-to-closure x '() #f env (##sys#slot env 3) #t)) (compile-to-closure x '() #f env #f #t)) '() ) ) ) (else ((compile-to-closure x '() #f #f #f #t) '()))))))) (set! scheme#eval (lambda (x . env) (apply (eval-handler) x env))) ;;; User-facing `module-environment` procedure: (define (module-environment name) (chicken.module#module-environment name)) ;;; Setting properties dynamically scoped (define-values (##sys#put/restore! ##sys#with-property-restore) (let ((trail '()) (restoring #f)) (values (lambda (sym prop val) (when restoring (set! trail (cons (list sym prop (##sys#get sym prop)) trail))) (##sys#put! sym prop val) val) (lambda (thunk) (let ((t0 #f) (r0 restoring)) (dynamic-wind (lambda () (set! t0 trail) (set! restoring #t)) thunk (lambda () (do () ((eq? t0 trail)) (apply ##sys#put! (car trail)) (set! trail (cdr trail))) (set! restoring r0)))))))) ;;; Split lambda-list into its parts: (define ##sys#decompose-lambda-list (let ([reverse reverse]) (lambda (llist0 k) (define (err) (set! ##sys#syntax-error-culprit #f) (##sys#syntax-error-hook "illegal lambda-list syntax" llist0) ) (let loop ([llist llist0] [vars '()] [argc 0]) (cond [(eq? llist '()) (k (reverse vars) argc #f)] [(not (##core#inline "C_blockp" llist)) (err)] [(##core#inline "C_symbolp" llist) (k (reverse (cons llist vars)) argc llist)] [(not (##core#inline "C_pairp" llist)) (err)] [else (loop (##sys#slot llist 1) (cons (##sys#slot llist 0) vars) (fx+ argc 1) ) ] ) ) ) ) ) (set! scheme#interaction-environment (let ((e (##sys#make-structure 'environment 'interaction-environment #f #f))) (lambda () e))) (define-record-printer (environment e p) (##sys#print "#<environment " #f p) (##sys#print (##sys#slot e 1) #f p) (##sys#write-char-0 #\> p)) (let* ((r4s (chicken.module#module-environment 'r4rs 'scheme-report-environment/4)) (r5s (chicken.module#module-environment 'scheme 'scheme-report-environment/5)) (r4n (chicken.module#module-environment 'r4rs-null 'null-environment/4)) (r5n (chicken.module#module-environment 'r5rs-null 'null-environment/5))) (define (strip se) (foldr (lambda (s r) (if (memq (car s) '(cond-expand define-interface delay-force export functor import import-for-syntax import-syntax import-syntax-for-syntax letrec* module reexport require-library syntax)) r (cons s r))) '() se)) ;; Strip non-std syntax from SEs (##sys#setslot r4s 2 (strip (##sys#slot r4s 2))) (##sys#setslot r4n 2 (strip (##sys#slot r4n 2))) (##sys#setslot r5s 2 (strip (##sys#slot r5s 2))) (##sys#setslot r5n 2 (strip (##sys#slot r5n 2))) (set! scheme#scheme-report-environment (lambda (n) (##sys#check-fixnum n 'scheme-report-environment) (case n ((4) r4s) ((5) r5s) (else (##sys#error 'scheme-report-environment "unsupported scheme report environment version" n))))) (set! scheme#null-environment (lambda (n) (##sys#check-fixnum n 'null-environment) (case n ((4) r4n) ((5) r5n) (else (##sys#error 'null-environment "unsupported null environment version" n)))))) ) ; eval module (module chicken.load (dynamic-load-libraries set-dynamic-load-mode! load-library load-noisily load-relative load-verbose provide provided? require) (import scheme chicken.base chicken.eval chicken.fixnum chicken.foreign chicken.internal chicken.platform chicken.time) (include "mini-srfi-1.scm") ;;; Installation locations (define-foreign-variable binary-version int "C_BINARY_VERSION") (define-foreign-variable install-lib-name c-string "C_INSTALL_LIB_NAME") (define-foreign-variable uses-soname? bool "C_USES_SONAME") ;;; Core unit information (define-constant core-unit-requirements '((chicken.foreign . (##core#require-for-syntax chicken-ffi-syntax)) (chicken.condition . (##core#begin (##core#require-for-syntax chicken-syntax) (##core#require library))))) (define-constant core-units '(chicken-syntax chicken-ffi-syntax continuation data-structures debugger-client eval eval-modules expand extras file internal irregex library lolevel pathname port posix profiler read-syntax repl scheduler srfi-4 tcp)) (define-constant cygwin-default-dynamic-load-libraries '("cygchicken-0")) (define-constant macosx-load-library-extension ".dylib") (define-constant windows-load-library-extension ".dll") (define-constant hppa-load-library-extension ".sl") (define-constant default-load-library-extension ".so") (define-constant source-file-extension ".scm") (define load-library-extension (cond ((eq? (software-type) 'windows) windows-load-library-extension) ((eq? (software-version) 'macosx) macosx-load-library-extension) ((and (eq? (software-version) 'hpux) (eq? (machine-type) 'hppa)) hppa-load-library-extension) (else default-load-library-extension))) (define ##sys#load-dynamic-extension default-load-library-extension) ; these are actually in unit extras, but that is used by default (define-constant builtin-features '(srfi-30 srfi-46 srfi-61 srfi-62 ; runtime srfi-0 srfi-2 srfi-8 srfi-9 srfi-11 srfi-15 ; syntax srfi-16 srfi-17 srfi-26 srfi-31 srfi-55 srfi-88)) ; syntax cont (define default-dynamic-load-libraries (case (software-version) ((cygwin) cygwin-default-dynamic-load-libraries) (else `(,(string-append "lib" install-lib-name))))) ;;; Library registration (used for code loading): (define (##sys#provide id) (##core#inline_allocate ("C_a_i_provide" 8) id)) (define (##sys#provided? id) (##core#inline "C_i_providedp" id)) ;;; Pathname helpers: (define path-separators (if ##sys#windows-platform '(#\\ #\/) '(#\/))) (define (path-separator-index/right s) (let loop ((i (fx- (##sys#size s) 1))) (if (memq (##core#inline "C_subchar" s i) path-separators) i (and (fx< 0 i) (loop (fx- i 1)))))) (define (make-relative-pathname from file) (let ((i (and (string? from) (positive? (##sys#size file)) ; XXX probably an error? (not (memq (##core#inline "C_subchar" file 0) path-separators)) (path-separator-index/right from)))) (if (not i) file (string-append (##sys#substring from 0 i) "/" file)))) ;;; Loading source/object files: (define load-verbose (make-parameter (##sys#debug-mode?))) (define ##sys#current-load-filename #f) (define ##sys#dload-disabled #f) (define-foreign-variable _dlerror c-string "C_dlerror") (define (set-dynamic-load-mode! mode) (let ([mode (if (pair? mode) mode (list mode))] [now #f] [global #t] ) (let loop ([mode mode]) (when (pair? mode) (case (##sys#slot mode 0) [(global) (set! global #t)] [(local) (set! global #f)] [(lazy) (set! now #f)] [(now) (set! now #t)] [else (##sys#signal-hook 'set-dynamic-load-mode! "invalid dynamic-load mode" (##sys#slot mode 0))] ) (loop (##sys#slot mode 1)) ) ) (##sys#set-dlopen-flags! now global) ) ) (define (toplevel name) (if (not name) "toplevel" (##sys#string-append (string->c-identifier (##sys#slot name 1)) "_toplevel"))) (define (c-toplevel name loc) (##sys#make-c-string (##sys#string-append "C_" (toplevel name)) loc)) (define load/internal (let ((read read) (write write) (display display) (newline newline) (eval eval) (open-input-file open-input-file) (close-input-port close-input-port)) (lambda (input evaluator #!optional pf timer printer unit) (define evalproc (or evaluator eval)) ;; dload doesn't consider filenames without slashes to be paths, ;; so we prepend a dot to force a relative pathname. (define (dload-path path) (if (path-separator-index/right path) path (##sys#string-append "./" path))) (define (dload path) (let ((c-path (##sys#make-c-string (dload-path path) 'load))) (or (##sys#dload c-path (c-toplevel unit 'load)) (and (symbol? unit) (##sys#dload c-path (c-toplevel #f 'load)))))) (define dload? (and (not ##sys#dload-disabled) (feature? #:dload))) (define fname (cond ((port? input) #f) ((not (string? input)) (##sys#signal-hook #:type-error 'load "bad argument type - not a port or string" input)) ((##sys#file-exists? input #t #f 'load) input) ((let ((f (##sys#string-append input ##sys#load-dynamic-extension))) (and dload? (##sys#file-exists? f #t #f 'load) f))) ((let ((f (##sys#string-append input source-file-extension))) (and (##sys#file-exists? f #t #f 'load) f))) (else (##sys#signal-hook #:file-error 'load "cannot open file" input)))) (when (and (load-verbose) fname) (display "; loading ") (display fname) (display " ...\n") (flush-output)) (or (and fname dload? (dload fname)) (call-with-current-continuation (lambda (abrt) (fluid-let ((##sys#read-error-with-line-number #t) (##sys#current-load-filename fname) (##sys#current-source-filename fname)) (let ((in (if fname (open-input-file fname) input))) (##sys#dynamic-wind (lambda () #f) (lambda () (let ((c1 (peek-char in))) (when (eq? c1 (integer->char 127)) (##sys#error 'load (##sys#string-append "unable to load compiled module - " (or _dlerror "unknown reason")) fname))) (let ((x1 (read in))) (do ((x x1 (read in))) ((eof-object? x)) (when printer (printer x)) (##sys#call-with-values (lambda () (if timer (time (evalproc x)) (evalproc x))) (lambda results (when pf (for-each (lambda (r) (write r) (newline)) results))))))) (lambda () (close-input-port in)))))))) (##core#undefined)))) (set! scheme#load (lambda (filename #!optional evaluator) (load/internal filename evaluator))) (define (load-relative filename #!optional evaluator) (let ((fn (make-relative-pathname ##sys#current-load-filename filename))) (load/internal fn evaluator))) (define (load-noisily filename #!key (evaluator #f) (time #f) (printer #f)) (load/internal filename evaluator #t time printer)) (define dynamic-load-libraries (let ((ext (if uses-soname? (string-append load-library-extension "." (number->string binary-version)) load-library-extension))) (define complete (cut ##sys#string-append <> ext)) (make-parameter (map complete default-dynamic-load-libraries) (lambda (x) (##sys#check-list x) x) ) ) ) (define load-library/internal (let ((display display)) (lambda (uname lib loc) (let ((libs (if lib (##sys#list lib) (cons (##sys#string-append (##sys#slot uname 1) load-library-extension) (dynamic-load-libraries)))) (top (c-toplevel uname loc))) (when (load-verbose) (display "; loading library ") (display uname) (display " ...\n") ) (let loop ((libs libs)) (cond ((null? libs) (##sys#error loc "unable to load library" uname _dlerror)) ((##sys#dload (##sys#make-c-string (##sys#slot libs 0) 'load-library) top)) (else (loop (##sys#slot libs 1))))))))) (define (##sys#load-library uname #!optional lib loc) (unless (##sys#provided? uname) (load-library/internal uname lib loc) (##core#undefined))) (define (load-library uname #!optional lib) (##sys#check-symbol uname 'load-library) (unless (not lib) (##sys#check-string lib 'load-library)) (##sys#load-library uname lib 'load-library)) (define ##sys#include-forms-from-file (let ((with-input-from-file with-input-from-file) (read read) (reverse reverse)) (lambda (filename source k) (let ((path (##sys#resolve-include-filename filename #t #f source))) (when (not path) (##sys#signal-hook #:file-error 'include "cannot open file" filename)) (when (load-verbose) (print "; including " path " ...")) (with-input-from-file path (lambda () (fluid-let ((##sys#current-source-filename path)) (do ((x (read) (read)) (xs '() (cons x xs))) ((eof-object? x) (k (reverse xs))))))))))) ;;; Extensions: (define ##sys#setup-mode #f) (define (file-exists? name) ; defined here to avoid file unit dependency (and (##sys#file-exists? name #t #f #f) name)) (define (find-file name search-path) (cond ((not search-path) #f) ((null? search-path) #f) ((string? search-path) (find-file name (list search-path))) ((file-exists? (string-append (car search-path) "/" name))) (else (find-file name (cdr search-path))))) (define find-dynamic-extension (let ((string-append string-append)) (lambda (id inc?) (let ((rp (repository-path)) (basename (if (symbol? id) (symbol->string id) id))) (define (check path) (let ((p0 (string-append path "/" basename))) (or (and rp (not ##sys#dload-disabled) (feature? #:dload) (file-exists? (##sys#string-append p0 ##sys#load-dynamic-extension))) (file-exists? (##sys#string-append p0 source-file-extension))))) (let loop ((paths (##sys#append (if ##sys#setup-mode '(".") '()) (or rp '()) (if inc? ##sys#include-pathnames '()) (if ##sys#setup-mode '() '("."))) )) (and (pair? paths) (let ((pa (##sys#slot paths 0))) (or (check pa) (loop (##sys#slot paths 1)) ) ) ) ) ) ) )) (define (load-extension/internal id alternates loc) (cond ((##sys#provided? id)) ((any ##sys#provided? alternates)) ((memq id core-units) (load-library/internal id #f loc)) ((find-dynamic-extension id #f) => (lambda (ext) (load/internal ext #f #f #f #f id) (##sys#provide id))) (else (##sys#error loc "cannot load extension" id)))) (define (chicken.load#load-extension id alternates loc) (load-extension/internal id alternates loc) (##core#undefined)) (define (require . ids) (for-each (cut ##sys#check-symbol <> 'require) ids) (for-each (cut chicken.load#load-extension <> '() 'require) ids)) (define (provide . ids) (for-each (cut ##sys#check-symbol <> 'provide) ids) (for-each (cut ##sys#provide <>) ids)) (define (provided? . ids) (for-each (cut ##sys#check-symbol <> 'provided?) ids) (every ##sys#provided? ids)) ;; Export for internal use in csc, modules and batch-driver: (define chicken.load#find-file find-file) (define chicken.load#find-dynamic-extension find-dynamic-extension) ;; ;; Given a library specification, returns three values: ;; ;; - an expression for loading the library, if required ;; - a requirement type (e.g. 'dynamic) or #f if provided in core ;; (define (##sys#process-require lib #!optional compiling? (alternates '()) (provided '()) static? mark-static) (let ((id (library-id lib))) (cond ((assq id core-unit-requirements) => (lambda (x) (values (cdr x) #f))) ((memq id builtin-features) (values '(##core#undefined) #f)) ((memq id provided) (values '(##core#undefined) #f)) ((any (cut memq <> provided) alternates) (values '(##core#undefined) #f)) ((memq id core-units) (if compiling? (values `(##core#declare (uses ,id)) #f) (values `(##sys#load-library (##core#quote ,id)) #f))) ((and compiling? static?) (mark-static id) (values `(##core#declare (uses ,id)) 'static)) (else (values `(chicken.load#load-extension (##core#quote ,id) (##core#quote ,alternates) (##core#quote require)) 'dynamic))))) ;;; Find included file: (define ##sys#include-pathnames (list (chicken-home))) (define ##sys#resolve-include-filename (let ((string-append string-append) ) (lambda (fname exts repo source) (define (test-extensions fname lst) (if (null? lst) (and (file-exists? fname) fname) (let ((fn (##sys#string-append fname (car lst)))) (or (file-exists? fn) (test-extensions fname (cdr lst)))))) (define (test fname) (test-extensions fname (cond ((pair? exts) exts) ; specific list of extensions ((not (feature? #:dload)) ; no dload -> source only (list source-file-extension)) ((not exts) ; prefer compiled (list ##sys#load-dynamic-extension source-file-extension)) (else ; prefer source (list source-file-extension ##sys#load-dynamic-extension))))) (or (test (make-relative-pathname source fname)) (let loop ((paths (if repo (##sys#append ##sys#include-pathnames (or (repository-path) '()) ) ##sys#include-pathnames) ) ) (cond ((eq? paths '()) #f) ((test (string-append (##sys#slot paths 0) "/" fname) ) ) (else (loop (##sys#slot paths 1))) ) ) ) ) ) ) ) ; chicken.load ;;; Simple invocation API: (import scheme chicken.base chicken.condition chicken.eval chicken.fixnum chicken.load) (declare (hide last-error run-safe store-result store-string CHICKEN_yield CHICKEN_eval CHICKEN_eval_string CHICKEN_eval_to_string CHICKEN_eval_string_to_string CHICKEN_apply CHICKEN_apply_to_string CHICKEN_eval_apply CHICKEN_read CHICKEN_load CHICKEN_get_error_message)) (define last-error #f) (define (run-safe thunk) (set! last-error #f) (handle-exceptions ex (let ((o (open-output-string))) (print-error-message ex o) (set! last-error (get-output-string o)) #f) (thunk) ) ) #> #define C_store_result(x, ptr) (*((C_word *)C_block_item(ptr, 0)) = (x), C_SCHEME_TRUE) <# (define (store-result x result) (##sys#gc #f) (when result (##core#inline "C_store_result" x result) ) #t) (define-external (CHICKEN_yield) bool (run-safe (lambda () (begin (##sys#thread-yield!) #t))) ) (define-external (CHICKEN_eval (scheme-object exp) ((c-pointer "C_word") result)) bool (run-safe (lambda () (store-result (eval exp) result)))) (define-external (CHICKEN_eval_string (c-string str) ((c-pointer "C_word") result)) bool (run-safe (lambda () (let ((i (open-input-string str))) (store-result (eval (read i)) result))))) #> #define C_copy_result_string(str, buf, n) (C_memcpy((char *)C_block_item(buf, 0), C_c_string(str), C_unfix(n)), ((char *)C_block_item(buf, 0))[ C_unfix(n) ] = '\0', C_SCHEME_TRUE) <# (define (store-string str bufsize buf) (let ((len (##sys#size str))) (cond ((fx>= len bufsize) (set! last-error "Error: not enough room for result string") #f) (else (##core#inline "C_copy_result_string" str buf len)) ) ) ) (define-external (CHICKEN_eval_to_string (scheme-object exp) ((c-pointer "char") buf) (int bufsize)) bool (run-safe (lambda () (let ((o (open-output-string))) (write (eval exp) o) (store-string (get-output-string o) bufsize buf)) ) ) ) (define-external (CHICKEN_eval_string_to_string (c-string str) ((c-pointer "char") buf) (int bufsize) ) bool (run-safe (lambda () (let ((o (open-output-string))) (write (eval (read (open-input-string str))) o) (store-string (get-output-string o) bufsize buf)) ) ) ) (define-external (CHICKEN_apply (scheme-object func) (scheme-object args) ((c-pointer "C_word") result)) bool (run-safe (lambda () (store-result (apply func args) result))) ) (define-external (CHICKEN_apply_to_string (scheme-object func) (scheme-object args) ((c-pointer "char") buf) (int bufsize)) bool (run-safe (lambda () (let ((o (open-output-string))) (write (apply func args) o) (store-string (get-output-string o) bufsize buf)) ) ) ) (define-external (CHICKEN_read (c-string str) ((c-pointer "C_word") result)) bool (run-safe (lambda () (let ((i (open-input-string str))) (store-result (read i) result) ) ) ) ) (define-external (CHICKEN_load (c-string str)) bool (run-safe (lambda () (load str) #t))) (define-external (CHICKEN_get_error_message ((c-pointer "char") buf) (int bufsize)) void (store-string (or last-error "No error") bufsize buf) ) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/chicken.compiler.batch-driver.import.scm����������������������������������������������0000644�0001750�0001750�00000000477�13502227761�022547� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; chicken.compiler.batch-driver.import.scm - GENERATED BY CHICKEN 5.1.0rc1 -*- Scheme -*- (##sys#register-compiled-module 'chicken.compiler.batch-driver 'batch-driver (scheme#list) '((compile-source-file . chicken.compiler.batch-driver#compile-source-file)) (scheme#list) (scheme#list)) ;; END OF FILE �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/irregex-core.scm����������������������������������������������������������������������0000644�0001750�0001750�00000522044�13502227553�016041� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; irregex.scm -- IrRegular Expressions ;; ;; Copyright (c) 2005-2019 Alex Shinn. All rights reserved. ;; BSD-style license: http://synthcode.com/license.txt ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; At this moment there was a loud ring at the bell, and I could ;; hear Mrs. Hudson, our landlady, raising her voice in a wail of ;; expostulation and dismay. ;; ;; "By heaven, Holmes," I said, half rising, "I believe that ;; they are really after us." ;; ;; "No, it's not quite so bad as that. It is the unofficial ;; force, -- the Baker Street irregulars." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Notes ;; ;; This code should not require any porting - it should work out of ;; the box in any R[457]RS Scheme implementation. Slight modifications ;; are needed for R6RS (a separate R6RS-compatible version is included ;; in the distribution as irregex-r6rs.scm). ;; ;; The goal of portability makes this code a little clumsy and ;; inefficient. Future versions will include both cleanup and ;; performance tuning, but you can only go so far while staying ;; portable. AND-LET*, SRFI-9 records and custom macros would've been ;; nice. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; History ;; 0.9.6: 2016/12/05 - fixed exponential memory use of + in compilation ;; of backtracking matcher (CVE-2016-9954). ;; 0.9.5: 2016/09/10 - fixed a bug in irregex-fold handling of bow ;; 0.9.4: 2015/12/14 - performance improvement for {n,m} matches ;; 0.9.3: 2014/07/01 - R7RS library ;; 0.9.2: 2012/11/29 - fixed a bug in -fold on conditional bos patterns ;; 0.9.1: 2012/11/27 - various accumulated bugfixes ;; 0.9.0: 2012/06/03 - Using tags for match extraction from Peter Bex. ;; 0.8.3: 2011/12/18 - various accumulated bugfixes ;; 0.8.2: 2010/08/28 - (...)? submatch extraction fix and alternate ;; named submatches from Peter Bex ;; Added irregex-split, irregex-extract, ;; irregex-match-names and irregex-match-valid-index? ;; to Chicken and Guile module export lists and made ;; the latter accept named submatches. The procedures ;; irregex-match-{start,end}-{index,chunk} now also ;; accept named submatches, with the index argument ;; made optional. Improved argument type checks. ;; Disallow negative submatch index. ;; Improve performance of backtracking matcher. ;; Refactor charset handling into a consistent API ;; 0.8.1: 2010/03/09 - backtracking irregex-match fix and other small fixes ;; 0.8.0: 2010/01/20 - optimizing DFA compilation, adding SRE escapes ;; inside PCREs, adding utility SREs ;; 0.7.5: 2009/08/31 - adding irregex-extract and irregex-split ;; *-fold copies match data (use *-fold/fast for speed) ;; irregex-opt now returns an SRE ;; 0.7.4: 2009/05/14 - empty alternates (or) and empty csets always fail, ;; bugfix in default finalizer for irregex-fold/chunked ;; 0.7.3: 2009/04/14 - adding irregex-fold/chunked, minor doc fixes ;; 0.7.2: 2009/02/11 - some bugfixes, much improved documentation ;; 0.7.1: 2008/10/30 - several bugfixes (thanks to Derick Eddington) ;; 0.7.0: 2008/10/20 - support abstract chunked strings ;; 0.6.2: 2008/07/26 - minor bugfixes, allow global disabling of utf8 mode, ;; friendlier error messages in parsing, \Q..\E support ;; 0.6.1: 2008/07/21 - added utf8 mode, more utils, bugfixes ;; 0.6: 2008/05/01 - most of PCRE supported ;; 0.5: 2008/04/24 - fully portable R4RS, many PCRE features implemented ;; 0.4: 2008/04/17 - rewriting NFA to use efficient closure compilation, ;; normal strings only, but all of the spencer tests pass ;; 0.3: 2008/03/10 - adding DFA converter (normal strings only) ;; 0.2: 2005/09/27 - adding irregex-opt (like elisp's regexp-opt) utility ;; 0.1: 2005/08/18 - simple NFA interpreter over abstract chunked strings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Data Structures (define (vector-copy v) (let ((v2 (make-vector (vector-length v)))) (vector-copy! v v2) v2)) (cond-expand (chicken-bootstrap (begin ;; make-irregex defined elsewhere (define (irregex? x) (##sys#structure? x 'regexp)) (define (irregex-dfa x) (##sys#check-structure x 'regexp 'irregex-dfa) (##sys#slot x 1)) (define (irregex-dfa/search x) (##sys#check-structure x 'regexp 'irregex-dfa/search) (##sys#slot x 2)) (define (irregex-nfa x) (##sys#check-structure x 'regexp 'irregex-nfa) (##sys#slot x 3)) (define (irregex-flags x) (##sys#check-structure x 'regexp 'irregex-flags) (##sys#slot x 4)) (define (irregex-num-submatches x) (##sys#check-structure x 'regexp 'irregex-num-submatches) (##sys#slot x 5)) (define (irregex-lengths x) (##sys#check-structure x 'regexp 'irregex-lengths) (##sys#slot x 6)) (define (irregex-names x) (##sys#check-structure x 'regexp 'irregex-names) (##sys#slot x 7)) ;; make-irregex-match defined elsewhere (define (irregex-new-matches irx) (make-irregex-match (irregex-num-submatches irx) (irregex-names irx))) (define (irregex-reset-matches! m) (let ((v (##sys#slot m 1))) (vector-fill! v #f) m)) (define (irregex-copy-matches m) (and (##sys#structure? m 'regexp-match) (##sys#make-structure 'regexp-match (vector-copy (##sys#slot m 1)) (##sys#slot m 2) (##sys#slot m 3) (##sys#slot m 4)))) (define (irregex-match-data? obj) (##sys#structure? obj 'regexp-match)) (define (irregex-match-num-submatches m) (##sys#check-structure m 'regexp-match 'irregex-match-num-submatches) (- (fx/ (##sys#size (##sys#slot m 1)) 4) 2)) (define (irregex-match-chunker m) (##sys#slot m 3)) (define (irregex-match-names m) (##sys#check-structure m 'regexp-match 'irregex-match-names) (##sys#slot m 2)) (define (irregex-match-chunker-set! m str) (##sys#setslot m 3 str)) (define-inline (%irregex-match-start-chunk m n) (##sys#slot (##sys#slot m 1) (* n 4))) (define-inline (%irregex-match-start-index m n) (##sys#slot (##sys#slot m 1) (+ 1 (* n 4)))) (define-inline (%irregex-match-end-chunk m n) (##sys#slot (##sys#slot m 1) (+ 2 (* n 4)))) (define (%irregex-match-end-index m n) (##sys#slot (##sys#slot m 1) (+ 3 (* n 4)))) (define (%irregex-match-fail m) (##sys#slot m 4)) (define (%irregex-match-fail-set! m x) (##sys#setslot m 4 x)) (define-record-printer (regexp-match m out) (let ((n (irregex-match-num-submatches m))) (display "#<regexp-match (" out) (display n out) (display " submatch" out) (when (or (eq? n 0) (fx> n 1)) (display "es" out)) (display ")>" out))) (define-inline (irregex-match-valid-numeric-index? m n) (let ((v (##sys#slot m 1))) (and (>= n 0) (< (* n 4) (- (##sys#size v) 4))))) (define-inline (irregex-match-matched-numeric-index? m n) (let ((v (##sys#slot m 1))) (and (##sys#slot v (+ 1 (* n 4))) #t))))) (else (begin (define irregex-tag '*irregex-tag*) (define (make-irregex dfa dfa/search nfa flags submatches lengths names) (vector irregex-tag dfa dfa/search nfa flags submatches lengths names)) (define (irregex? obj) (and (vector? obj) (= 8 (vector-length obj)) (eq? irregex-tag (vector-ref obj 0)))) (define (irregex-dfa x) (vector-ref x 1)) (define (irregex-dfa/search x) (vector-ref x 2)) (define (irregex-nfa x) (vector-ref x 3)) (define (irregex-flags x) (vector-ref x 4)) (define (irregex-num-submatches x) (vector-ref x 5)) (define (irregex-lengths x) (vector-ref x 6)) (define (irregex-names x) (vector-ref x 7)) (define (irregex-new-matches irx) (make-irregex-match (irregex-num-submatches irx) (irregex-names irx))) (define (irregex-reset-matches! m) (do ((i (- (vector-length m) 1) (- i 1))) ((<= i 3) m) (vector-set! m i #f))) (define (irregex-copy-matches m) (and (vector? m) (vector-copy m))) (define irregex-match-tag '*irregex-match-tag*) (define (irregex-match-data? obj) (and (vector? obj) (>= (vector-length obj) 11) (eq? irregex-match-tag (vector-ref obj 0)))) (define (make-irregex-match count names) (let ((res (make-vector (+ (* 4 (+ 2 count)) 3) #f))) (vector-set! res 0 irregex-match-tag) (vector-set! res 2 names) res)) (define (irregex-match-num-submatches m) (- (quotient (- (vector-length m) 3) 4) 2)) (define (irregex-match-chunker m) (vector-ref m 1)) (define (irregex-match-names m) (vector-ref m 2)) (define (irregex-match-chunker-set! m str) (vector-set! m 1 str)) (define (%irregex-match-start-chunk m n) (vector-ref m (+ 3 (* n 4)))) (define (%irregex-match-start-index m n) (vector-ref m (+ 4 (* n 4)))) (define (%irregex-match-end-chunk m n) (vector-ref m (+ 5 (* n 4)))) (define (%irregex-match-end-index m n) (vector-ref m (+ 6 (* n 4)))) (define (%irregex-match-fail m) (vector-ref m (- (vector-length m) 1))) (define (%irregex-match-fail-set! m x) (vector-set! m (- (vector-length m) 1) x)) (define (irregex-match-valid-numeric-index? m n) (and (>= n 0) (< (+ 3 (* n 4)) (- (vector-length m) 4)))) (define (irregex-match-matched-numeric-index? m n) (and (vector-ref m (+ 4 (* n 4))) #t))))) (define (irregex-match-valid-named-index? m n) (and (assq n (irregex-match-names m)) #t)) ;; public interface with error checking (define (irregex-match-start-chunk m . opt) (let ((n (irregex-match-numeric-index 'irregex-match-start-chunk m opt))) (and n (%irregex-match-start-chunk m n)))) (define (irregex-match-start-index m . opt) (let ((n (irregex-match-numeric-index 'irregex-match-start-index m opt))) (and n (%irregex-match-start-index m n)))) (define (irregex-match-end-chunk m . opt) (let ((n (irregex-match-numeric-index 'irregex-match-end-chunk m opt))) (and n (%irregex-match-end-chunk m n)))) (define (irregex-match-end-index m . opt) (let ((n (irregex-match-numeric-index 'irregex-match-end-index m opt))) (and n (%irregex-match-end-index m n)))) (define (irregex-match-start-chunk-set! m n start) (vector-set! m (+ 3 (* n 4)) start)) (define (irregex-match-start-index-set! m n start) (vector-set! m (+ 4 (* n 4)) start)) (define (irregex-match-end-chunk-set! m n end) (vector-set! m (+ 5 (* n 4)) end)) (define (irregex-match-end-index-set! m n end) (vector-set! m (+ 6 (* n 4)) end)) ;; Tags use indices that are aligned to start/end positions just like the ;; match vectors. ie, a tag 0 is a start tag, 1 is its corresponding end tag. ;; They start at 0, which requires us to map them to submatch index 1. ;; Sorry for the horrible name ;) (define (irregex-match-chunk&index-from-tag-set! m t chunk index) (vector-set! m (+ 7 (* t 2)) chunk) (vector-set! m (+ 8 (* t 2)) index)) ;; Helper procedure to convert any type of index from a rest args list ;; to a numeric index. Named submatches are converted to their corresponding ;; numeric index, and numeric submatches are checked for validity. ;; An error is raised for invalid numeric or named indices, #f is returned ;; for defined but nonmatching indices. (define (irregex-match-numeric-index location m opt) (cond ((not (irregex-match-data? m)) (error location "not match data" m)) ((not (pair? opt)) 0) ((pair? (cdr opt)) (apply error location "too many arguments" m opt)) (else (let ((n (car opt))) (if (number? n) (if (and (integer? n) (exact? n)) (if (irregex-match-valid-numeric-index? m n) (and (irregex-match-matched-numeric-index? m n) n) (error location "not a valid index" m n)) (error location "not an exact integer" n)) (let lp ((ls (irregex-match-names m)) (unknown? #t)) (cond ((null? ls) (and unknown? (error location "unknown match name" n))) ((eq? n (caar ls)) (if (%irregex-match-start-chunk m (cdar ls)) (cdar ls) (lp (cdr ls) #f))) (else (lp (cdr ls) unknown?))))))))) (define (irregex-match-valid-index? m n) (if (not (irregex-match-data? m)) (error 'irregex-match-valid-index? "not match data" m)) (if (integer? n) (if (not (exact? n)) (error 'irregex-match-valid-index? "not an exact integer" n) (irregex-match-valid-numeric-index? m n)) (irregex-match-valid-named-index? m n))) (define (irregex-match-substring m . opt) (let* ((n (irregex-match-numeric-index 'irregex-match-substring m opt)) (cnk (irregex-match-chunker m))) (and n ((chunker-get-substring cnk) (%irregex-match-start-chunk m n) (%irregex-match-start-index m n) (%irregex-match-end-chunk m n) (%irregex-match-end-index m n))))) (define (irregex-match-subchunk m . opt) (let* ((n (irregex-match-numeric-index 'irregex-match-subchunk m opt)) (cnk (irregex-match-chunker m)) (get-subchunk (chunker-get-subchunk cnk))) (if (not get-subchunk) (error "this chunk type does not support match subchunks" m n) (and n (get-subchunk (%irregex-match-start-chunk m n) (%irregex-match-start-index m n) (%irregex-match-end-chunk m n) (%irregex-match-end-index m n)))))) ;; chunkers tell us how to navigate through chained chunks of strings (define (make-irregex-chunker get-next get-str . o) (let* ((get-start (or (and (pair? o) (car o)) (lambda (cnk) 0))) (o (if (pair? o) (cdr o) o)) (get-end (or (and (pair? o) (car o)) (lambda (cnk) (string-length (get-str cnk))))) (o (if (pair? o) (cdr o) o)) (get-substr (or (and (pair? o) (car o)) (lambda (cnk1 start cnk2 end) (if (eq? cnk1 cnk2) (substring (get-str cnk1) start end) (let loop ((cnk (get-next cnk1)) (res (list (substring (get-str cnk1) start (get-end cnk1))))) (if (eq? cnk cnk2) (string-cat-reverse (cons (substring (get-str cnk) (get-start cnk) end) res)) (loop (get-next cnk) (cons (substring (get-str cnk) (get-start cnk) (get-end cnk)) res)))))))) (o (if (pair? o) (cdr o) o)) (get-subchunk (and (pair? o) (car o)))) (if (not (and (procedure? get-next) (procedure? get-str) (procedure? get-start) (procedure? get-substr))) (error 'make-irregex-chunker "expected a procdure")) (vector get-next get-str get-start get-end get-substr get-subchunk))) (define (chunker-get-next cnk) (vector-ref cnk 0)) (define (chunker-get-str cnk) (vector-ref cnk 1)) (define (chunker-get-start cnk) (vector-ref cnk 2)) (define (chunker-get-end cnk) (vector-ref cnk 3)) (define (chunker-get-substring cnk) (vector-ref cnk 4)) (define (chunker-get-subchunk cnk) (vector-ref cnk 5)) (define (chunker-prev-chunk cnk start end) (if (eq? start end) #f (let ((get-next (chunker-get-next cnk))) (let lp ((start start)) (let ((next (get-next start))) (if (eq? next end) start (and next (lp next)))))))) (define (chunker-prev-char cnk start end) (let ((prev (chunker-prev-chunk cnk start end))) (and prev (string-ref ((chunker-get-str cnk) prev) (- ((chunker-get-end cnk) prev) 1))))) (define (chunker-next-char cnk src) (let ((next ((chunker-get-next cnk) src))) (and next (string-ref ((chunker-get-str cnk) next) ((chunker-get-start cnk) next))))) (define (chunk-before? cnk a b) (and (not (eq? a b)) (let ((next ((chunker-get-next cnk) a))) (and next (if (eq? next b) #t (chunk-before? cnk next b)))))) ;; For look-behind searches, wrap an existing chunker such that it ;; returns the same results but ends at a given point. (define (wrap-end-chunker cnk src i) (make-irregex-chunker (lambda (x) (and (not (eq? x src)) ((chunker-get-next cnk) x))) (chunker-get-str cnk) (chunker-get-start cnk) (lambda (x) (if (eq? x src) i ((chunker-get-end cnk) x))) (chunker-get-substring cnk) (chunker-get-subchunk cnk))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; String Utilities ;; Unicode version (skip surrogates) (define *all-chars* `(/ ,(integer->char 0) ,(integer->char #xD7FF) ,(integer->char #xE000) ,(integer->char #x10FFFF))) ;; ASCII version, offset to not assume 0-255 ;; (define *all-chars* `(/ ,(integer->char (- (char->integer #\space) 32)) ,(integer->char (+ (char->integer #\space) 223)))) ;; set to #f to ignore even an explicit request for utf8 handling (define *allow-utf8-mode?* #t) ;; (define *named-char-properties* '()) (define (string-scan-char str c . o) (let ((end (string-length str))) (let scan ((i (if (pair? o) (car o) 0))) (cond ((= i end) #f) ((eqv? c (string-ref str i)) i) (else (scan (+ i 1))))))) (define (string-scan-char-escape str c . o) (let ((end (string-length str))) (let scan ((i (if (pair? o) (car o) 0))) (cond ((= i end) #f) ((eqv? c (string-ref str i)) i) ((eqv? c #\\) (scan (+ i 2))) (else (scan (+ i 1))))))) (define (string-scan-pred str pred . o) (let ((end (string-length str))) (let scan ((i (if (pair? o) (car o) 0))) (cond ((= i end) #f) ((pred (string-ref str i)) i) (else (scan (+ i 1))))))) (define (string-split-char str c) (let ((end (string-length str))) (let lp ((i 0) (from 0) (res '())) (define (collect) (cons (substring str from i) res)) (cond ((>= i end) (reverse (collect))) ((eqv? c (string-ref str i)) (lp (+ i 1) (+ i 1) (collect))) (else (lp (+ i 1) from res)))))) (define (char-alphanumeric? c) (or (char-alphabetic? c) (char-numeric? c))) (define (%substring=? a b start1 start2 len) (let lp ((i 0)) (cond ((>= i len) #t) ((char=? (string-ref a (+ start1 i)) (string-ref b (+ start2 i))) (lp (+ i 1))) (else #f)))) ;; SRFI-13 extracts (define (%%string-copy! to tstart from fstart fend) (do ((i fstart (+ i 1)) (j tstart (+ j 1))) ((>= i fend)) (string-set! to j (string-ref from i)))) (define (string-cat-reverse string-list) (string-cat-reverse/aux (fold (lambda (s a) (+ (string-length s) a)) 0 string-list) string-list)) (define (string-cat-reverse/aux len string-list) (let ((res (make-string len))) (let lp ((i len) (ls string-list)) (if (pair? ls) (let* ((s (car ls)) (slen (string-length s)) (i (- i slen))) (%%string-copy! res i s 0 slen) (lp i (cdr ls))))) res)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; List Utilities ;; like the one-arg IOTA case (define (zero-to n) (if (<= n 0) '() (let lp ((i (- n 1)) (res '())) (if (zero? i) (cons 0 res) (lp (- i 1) (cons i res)))))) ;; SRFI-1 extracts (simplified 1-ary versions) (define (find pred ls) (let lp ((ls ls)) (cond ((null? ls) #f) ((pred (car ls)) (car ls)) (else (lp (cdr ls)))))) (define (find-tail pred ls) (let lp ((ls ls)) (cond ((null? ls) #f) ((pred (car ls)) ls) (else (lp (cdr ls)))))) (define (last ls) (if (not (pair? ls)) (error "can't take last of empty list") (let lp ((ls ls)) (if (pair? (cdr ls)) (lp (cdr ls)) (car ls))))) (define (any pred ls) (and (pair? ls) (let lp ((head (car ls)) (tail (cdr ls))) (if (null? tail) (pred head) (or (pred head) (lp (car tail) (cdr tail))))))) (define (every pred ls) (or (null? ls) (let lp ((head (car ls)) (tail (cdr ls))) (if (null? tail) (pred head) (and (pred head) (lp (car tail) (cdr tail))))))) (define (fold kons knil ls) (let lp ((ls ls) (res knil)) (if (null? ls) res (lp (cdr ls) (kons (car ls) res))))) (define (filter pred ls) (let lp ((ls ls) (res '())) (if (null? ls) (reverse res) (lp (cdr ls) (if (pred (car ls)) (cons (car ls) res) res))))) (define (remove pred ls) (let lp ((ls ls) (res '())) (if (null? ls) (reverse res) (lp (cdr ls) (if (pred (car ls)) res (cons (car ls) res)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Flags (define (bit-shr n i) (quotient n (expt 2 i))) (define (bit-shl n i) (* n (expt 2 i))) (define (bit-not n) (- #xFFFF n)) (define (bit-ior a b) (cond ((zero? a) b) ((zero? b) a) (else (+ (if (or (odd? a) (odd? b)) 1 0) (* 2 (bit-ior (quotient a 2) (quotient b 2))))))) (define (bit-and a b) (cond ((zero? a) 0) ((zero? b) 0) (else (+ (if (and (odd? a) (odd? b)) 1 0) (* 2 (bit-and (quotient a 2) (quotient b 2))))))) (define (integer-log n) (define (b8 n r) (if (>= n (bit-shl 1 8)) (b4 (bit-shr n 8) (+ r 8)) (b4 n r))) (define (b4 n r) (if (>= n (bit-shl 1 4)) (b2 (bit-shr n 4) (+ r 4)) (b2 n r))) (define (b2 n r) (if (>= n (bit-shl 1 2)) (b1 (bit-shr n 2) (+ r 2)) (b1 n r))) (define (b1 n r) (if (>= n (bit-shl 1 1)) (+ r 1) r)) (if (>= n (bit-shl 1 16)) (b8 (bit-shr n 16) 16) (b8 n 0))) (define (flag-set? flags i) (= i (bit-and flags i))) (define (flag-join a b) (if b (bit-ior a b) a)) (define (flag-clear a b) (bit-and a (bit-not b))) (define ~none 0) (define ~searcher? 1) (define ~consumer? 2) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Parsing Embedded SREs in PCRE Strings ;; (define (with-read-from-string str i proc) ;; (define (port-size in) ;; (let lp ((i 0)) (if (eof-object? (read-char in)) i (lp (+ i 1))))) ;; (let* ((len (string-length str)) ;; (tail-len (- len i)) ;; (in (open-input-string (substring str i len))) ;; (sre (read in)) ;; (unused-len (port-size in))) ;; (close-input-port in) ;; (proc sre (- tail-len unused-len)))) (define close-token (list 'close)) (define dot-token (string->symbol ".")) (define (with-read-from-string str i proc) (define end (string-length str)) (define (read i k) (cond ((>= i end) (error "unterminated embedded SRE" str)) (else (case (string-ref str i) ((#\() (let lp ((i (+ i 1)) (ls '())) (read i (lambda (x j) (cond ((eq? x close-token) (k (reverse ls) j)) ((eq? x dot-token) (if (null? ls) (error "bad dotted form" str) (read j (lambda (y j2) (read j2 (lambda (z j3) (if (not (eq? z close-token)) (error "bad dotted form" str) (k (append (reverse (cdr ls)) (cons (car ls) y)) j3)))))))) (else (lp j (cons x ls)))))))) ((#\)) (k close-token (+ i 1))) ((#\;) (let skip ((i (+ i 1))) (if (or (>= i end) (eqv? #\newline (string-ref str i))) (read (+ i 1) k) (skip (+ i 1))))) ((#\' #\`) (read (+ i 1) (lambda (sexp j) (let ((q (if (eqv? #\' (string-ref str i)) 'quote 'quasiquote))) (k (list q sexp) j))))) ((#\,) (let* ((at? (and (< (+ i 1) end) (eqv? #\@ (string-ref str (+ i 1))))) (u (if at? 'uquote-splicing 'unquote)) (j (if at? (+ i 2) (+ i 1)))) (read j (lambda (sexp j) (k (list u sexp) j))))) ((#\") (let scan ((from (+ i 1)) (i (+ i 1)) (res '())) (define (collect) (if (= from i) res (cons (substring str from i) res))) (if (>= i end) (error "unterminated string in embedded SRE" str) (case (string-ref str i) ((#\") (k (string-cat-reverse (collect)) (+ i 1))) ((#\\) (scan (+ i 1) (+ i 2) (collect))) (else (scan from (+ i 1) res)))))) ((#\#) (case (string-ref str (+ i 1)) ((#\;) (read (+ i 2) (lambda (sexp j) (read j k)))) ((#\\) (read (+ i 2) (lambda (sexp j) (k (case sexp ((space) #\space) ((newline) #\newline) (else (let ((s (if (number? sexp) (number->string sexp) (symbol->string sexp)))) (string-ref s 0)))) j)))) ((#\t #\f) (k (eqv? #\t (string-ref str (+ i 1))) (+ i 2))) (else (error "bad # syntax in simplified SRE" i)))) (else (cond ((char-whitespace? (string-ref str i)) (read (+ i 1) k)) (else ;; symbol/number (let scan ((j (+ i 1))) (cond ((or (>= j end) (let ((c (string-ref str j))) (or (char-whitespace? c) (memv c '(#\; #\( #\) #\" #\# #\\))))) (let ((str2 (substring str i j))) (k (or (string->number str2) (string->symbol str2)) j))) (else (scan (+ j 1)))))))))))) (read i (lambda (res j) (if (eq? res 'close-token) (error "unexpected ')' in SRE" str j) (proc res j))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Parsing PCRE Strings (define ~save? 1) (define ~case-insensitive? 2) (define ~multi-line? 4) (define ~single-line? 8) (define ~ignore-space? 16) (define ~utf8? 32) (define (symbol-list->flags ls) (let lp ((ls ls) (res ~none)) (if (not (pair? ls)) res (lp (cdr ls) (flag-join res (case (car ls) ((i ci case-insensitive) ~case-insensitive?) ((m multi-line) ~multi-line?) ((s single-line) ~single-line?) ((x ignore-space) ~ignore-space?) ((u utf8) (if *allow-utf8-mode?* ~utf8? ~none)) (else #f))))))) (define (maybe-string->sre obj) (if (string? obj) (string->sre obj) obj)) (define (string->sre str . o) (if (not (string? str)) (error 'string->sre "expected a string" str)) (let ((end (string-length str)) (flags (symbol-list->flags o))) (let lp ((i 0) (from 0) (flags flags) (res '()) (st '())) ;; handle case sensitivity at the literal char/string level (define (cased-char ch) (if (and (flag-set? flags ~case-insensitive?) (char-alphabetic? ch)) `(or ,ch ,(char-altcase ch)) ch)) (define (cased-string str) (if (flag-set? flags ~case-insensitive?) (sre-sequence (map cased-char (string->list str))) str)) ;; accumulate the substring from..i as literal text (define (collect) (if (= i from) res (cons (cased-string (substring str from i)) res))) ;; like collect but breaks off the last single character when ;; collecting literal data, as the argument to ?/*/+ etc. (define (collect/single) (let* ((utf8? (flag-set? flags ~utf8?)) (j (if (and utf8? (> i 1)) (utf8-backup-to-initial-char str (- i 1)) (- i 1)))) (cond ((< j from) res) (else (let ((c (cased-char (if utf8? (utf8-string-ref str j (- i j)) (string-ref str j))))) (cond ((= j from) (cons c res)) (else (cons c (cons (cased-string (substring str from j)) res))))))))) ;; collects for use as a result, reversing and grouping OR ;; terms, and some ugly tweaking of `function-like' groups and ;; conditionals (define (collect/terms) (let* ((ls (collect)) (func (and (pair? ls) (memq (last ls) '(atomic if look-ahead neg-look-ahead look-behind neg-look-behind => submatch-named w/utf8 w/noutf8)))) (prefix (if (and func (memq (car func) '(=> submatch-named))) (list 'submatch-named (cadr (reverse ls))) (and func (list (car func))))) (ls (if func (if (memq (car func) '(=> submatch-named)) (reverse (cddr (reverse ls))) (reverse (cdr (reverse ls)))) ls))) (let lp ((ls ls) (term '()) (res '())) (define (shift) (cons (sre-sequence term) res)) (cond ((null? ls) (let* ((res (sre-alternate (shift))) (res (if (flag-set? flags ~save?) (list 'submatch res) res))) (if prefix (if (eq? 'if (car prefix)) (cond ((not (pair? res)) 'epsilon) ((memq (car res) '(look-ahead neg-look-ahead look-behind neg-look-behind)) res) ((eq? 'seq (car res)) `(if ,(cadr res) ,(sre-sequence (cddr res)))) (else `(if ,(cadadr res) ,(sre-sequence (cddadr res)) ,(sre-alternate (cddr res))))) `(,@prefix ,res)) res))) ((eq? 'or (car ls)) (lp (cdr ls) '() (shift))) (else (lp (cdr ls) (cons (car ls) term) res)))))) (define (save) (cons (cons flags (collect)) st)) ;; main parsing (if (>= i end) (if (pair? st) (error "unterminated parenthesis in regexp" str) (collect/terms)) (let ((c (string-ref str i))) (case c ((#\.) (lp (+ i 1) (+ i 1) flags (cons (if (flag-set? flags ~single-line?) 'any 'nonl) (collect)) st)) ((#\?) (let ((res (collect/single))) (if (null? res) (error "? can't follow empty pattern" str res) (let ((x (car res))) (lp (+ i 1) (+ i 1) flags (cons (if (pair? x) (case (car x) ((*) `(*? ,@(cdr x))) ((+) `(**? 1 #f ,@(cdr x))) ((?) `(?? ,@(cdr x))) ((**) `(**? ,@(cdr x))) ((=) `(**? ,(cadr x) ,@(cdr x))) ((>=) `(**? ,(cadr x) #f ,@(cddr x))) (else `(? ,x))) `(? ,x)) (cdr res)) st))))) ((#\+ #\*) (let* ((res (collect/single)) (x (if (pair? res) (car res) 'epsilon)) (op (string->symbol (string c)))) (cond ((sre-repeater? x) (error "duplicate repetition (e.g. **) in pattern" str res)) ((sre-empty? x) (error "can't repeat empty pattern (e.g. ()*)" str res)) (else (lp (+ i 1) (+ i 1) flags (cons (list op x) (cdr res)) st))))) ((#\() (cond ((>= (+ i 1) end) (error "unterminated parenthesis in regexp" str)) ((not (memv (string-ref str (+ i 1)) '(#\? #\*))) ; normal case (lp (+ i 1) (+ i 1) (flag-join flags ~save?) '() (save))) ((>= (+ i 2) end) (error "unterminated parenthesis in regexp" str)) ((eqv? (string-ref str (+ i 1)) #\*) (if (eqv? #\' (string-ref str (+ i 2))) (with-read-from-string str (+ i 3) (lambda (sre j) (if (or (>= j end) (not (eqv? #\) (string-ref str j)))) (error "unterminated (*'...) SRE escape" str) (lp (+ j 1) (+ j 1) flags (cons sre (collect)) st)))) (error "bad regexp syntax: (*FOO) not supported" str))) (else ;; (?...) case (case (string-ref str (+ i 2)) ((#\#) (let ((j (string-scan-char str #\) (+ i 3)))) (lp (+ j i) (+ j 1) flags (collect) st))) ((#\:) (lp (+ i 3) (+ i 3) (flag-clear flags ~save?) '() (save))) ((#\=) (lp (+ i 3) (+ i 3) (flag-clear flags ~save?) '(look-ahead) (save))) ((#\!) (lp (+ i 3) (+ i 3) (flag-clear flags ~save?) '(neg-look-ahead) (save))) ((#\<) (cond ((>= (+ i 3) end) (error "unterminated parenthesis in regexp" str)) (else (case (string-ref str (+ i 3)) ((#\=) (lp (+ i 4) (+ i 4) (flag-clear flags ~save?) '(look-behind) (save))) ((#\!) (lp (+ i 4) (+ i 4) (flag-clear flags ~save?) '(neg-look-behind) (save))) (else (let ((j (and (char-alphabetic? (string-ref str (+ i 3))) (string-scan-char str #\> (+ i 4))))) (if j (lp (+ j 1) (+ j 1) (flag-clear flags ~save?) `(,(string->symbol (substring str (+ i 3) j)) submatch-named) (save)) (error "invalid (?< sequence" str)))))))) ((#\>) (lp (+ i 3) (+ i 3) (flag-clear flags ~save?) '(atomic) (save))) ;;((#\' #\P) ; named subpatterns ;; ) ;;((#\R) ; recursion ;; ) ((#\() (cond ((>= (+ i 3) end) (error "unterminated parenthesis in regexp" str)) ((char-numeric? (string-ref str (+ i 3))) (let* ((j (string-scan-char str #\) (+ i 3))) (n (string->number (substring str (+ i 3) j)))) (if (not n) (error "invalid conditional reference" str) (lp (+ j 1) (+ j 1) (flag-clear flags ~save?) `(,n if) (save))))) ((char-alphabetic? (string-ref str (+ i 3))) (let* ((j (string-scan-char str #\) (+ i 3))) (s (string->symbol (substring str (+ i 3) j)))) (lp (+ j 1) (+ j 1) (flag-clear flags ~save?) `(,s if) (save)))) (else (lp (+ i 2) (+ i 2) (flag-clear flags ~save?) '(if) (save))))) ((#\{) (error "unsupported Perl-style cluster" str)) (else (let ((old-flags flags)) (let lp2 ((j (+ i 2)) (flags flags) (invert? #f)) (define (join x) ((if invert? flag-clear flag-join) flags x)) (define (new-res res) (let ((before (flag-set? old-flags ~utf8?)) (after (flag-set? flags ~utf8?))) (if (eq? before after) res (cons (if after 'w/utf8 'w/noutf8) res)))) (cond ((>= j end) (error "incomplete cluster" str i)) (else (case (string-ref str j) ((#\i) (lp2 (+ j 1) (join ~case-insensitive?) invert?)) ((#\m) (lp2 (+ j 1) (join ~multi-line?) invert?)) ((#\x) (lp2 (+ j 1) (join ~ignore-space?) invert?)) ((#\u) (if *allow-utf8-mode?* (lp2 (+ j 1) (join ~utf8?) invert?) (lp2 (+ j 1) flags invert?))) ((#\-) (lp2 (+ j 1) flags (not invert?))) ((#\)) (lp (+ j 1) (+ j 1) flags (new-res (collect)) st)) ((#\:) (lp (+ j 1) (+ j 1) flags (new-res '()) (cons (cons old-flags (collect)) st))) (else (error "unknown regex cluster modifier" str) ))))))))))) ((#\)) (if (null? st) (error "too many )'s in regexp" str) (lp (+ i 1) (+ i 1) (caar st) (cons (collect/terms) (cdar st)) (cdr st)))) ((#\[) (apply (lambda (sre j) (lp (+ j 1) (+ j 1) flags (cons sre (collect)) st)) (string-parse-cset str (+ i 1) flags))) ((#\{) (cond ((or (>= (+ i 1) end) (not (or (char-numeric? (string-ref str (+ i 1))) (eqv? #\, (string-ref str (+ i 1)))))) (lp (+ i 1) from flags res st)) (else (let ((res (collect/single))) (cond ((null? res) (error "{ can't follow empty pattern")) (else (let* ((x (car res)) (tail (cdr res)) (j (string-scan-char str #\} (+ i 1))) (s2 (string-split-char (substring str (+ i 1) j) #\,)) (n (string->number (car s2))) (m (and (pair? (cdr s2)) (string->number (cadr s2))))) (cond ((or (not n) (and (pair? (cdr s2)) (not (equal? "" (cadr s2))) (not m))) (error "invalid {n} repetition syntax" s2)) ((null? (cdr s2)) (lp (+ j 1) (+ j 1) flags `((= ,n ,x) ,@tail) st)) (m (lp (+ j 1) (+ j 1) flags `((** ,n ,m ,x) ,@tail) st)) (else (lp (+ j 1) (+ j 1) flags `((>= ,n ,x) ,@tail) st) ))))))))) ((#\\) (cond ((>= (+ i 1) end) (error "incomplete escape sequence" str)) (else (let ((c (string-ref str (+ i 1)))) (case c ((#\d) (lp (+ i 2) (+ i 2) flags `(numeric ,@(collect)) st)) ((#\D) (lp (+ i 2) (+ i 2) flags `((~ numeric) ,@(collect)) st)) ((#\s) (lp (+ i 2) (+ i 2) flags `(space ,@(collect)) st)) ((#\S) (lp (+ i 2) (+ i 2) flags `((~ space) ,@(collect)) st)) ((#\w) (lp (+ i 2) (+ i 2) flags `((or alphanumeric ("_")) ,@(collect)) st)) ((#\W) (lp (+ i 2) (+ i 2) flags `((~ (or alphanumeric ("_"))) ,@(collect)) st)) ((#\b) (lp (+ i 2) (+ i 2) flags `((or bow eow) ,@(collect)) st)) ((#\B) (lp (+ i 2) (+ i 2) flags `(nwb ,@(collect)) st)) ((#\A) (lp (+ i 2) (+ i 2) flags `(bos ,@(collect)) st)) ((#\Z) (lp (+ i 2) (+ i 2) flags `((? #\newline) eos ,@(collect)) st)) ((#\z) (lp (+ i 2) (+ i 2) flags `(eos ,@(collect)) st)) ((#\R) (lp (+ i 2) (+ i 2) flags `(newline ,@(collect)) st)) ((#\K) (lp (+ i 2) (+ i 2) flags `(reset ,@(collect)) st)) ;; these two are from Emacs and TRE, but not in PCRE ((#\<) (lp (+ i 2) (+ i 2) flags `(bow ,@(collect)) st)) ((#\>) (lp (+ i 2) (+ i 2) flags `(eow ,@(collect)) st)) ((#\x) (apply (lambda (ch j) (lp (+ j 1) (+ j 1) flags `(,ch ,@(collect)) st)) (string-parse-hex-escape str (+ i 2) end))) ((#\k) (let ((c (string-ref str (+ i 2)))) (if (not (memv c '(#\< #\{ #\'))) (error "bad \\k usage, expected \\k<...>" str) (let* ((terminal (char-mirror c)) (j (string-scan-char str terminal (+ i 2))) (s (and j (substring str (+ i 3) j))) (backref (if (flag-set? flags ~case-insensitive?) 'backref-ci 'backref))) (if (not j) (error "unterminated named backref" str) (lp (+ j 1) (+ j 1) flags `((,backref ,(string->symbol s)) ,@(collect)) st)))))) ((#\Q) ;; \Q..\E escapes (let ((res (collect))) (let lp2 ((j (+ i 2))) (cond ((>= j end) (lp j (+ i 2) flags res st)) ((eqv? #\\ (string-ref str j)) (cond ((>= (+ j 1) end) (lp (+ j 1) (+ i 2) flags res st)) ((eqv? #\E (string-ref str (+ j 1))) (lp (+ j 2) (+ j 2) flags (cons (substring str (+ i 2) j) res) st)) (else (lp2 (+ j 2))))) (else (lp2 (+ j 1))))))) ((#\') (with-read-from-string str (+ i 2) (lambda (sre j) (lp j j flags (cons sre (collect)) st)))) ;;((#\p) ; XXXX unicode properties ;; ) ;;((#\P) ;; ) (else (cond ((char-numeric? c) (let* ((j (or (string-scan-pred str (lambda (c) (not (char-numeric? c))) (+ i 2)) end)) (backref (if (flag-set? flags ~case-insensitive?) 'backref-ci 'backref)) (res `((,backref ,(string->number (substring str (+ i 1) j))) ,@(collect)))) (lp j j flags res st))) ((char-alphabetic? c) (let ((cell (assv c posix-escape-sequences))) (if cell (lp (+ i 2) (+ i 2) flags (cons (cdr cell) (collect)) st) (error "unknown escape sequence" str c)))) (else (lp (+ i 2) (+ i 1) flags (collect) st))))))))) ((#\|) (lp (+ i 1) (+ i 1) flags (cons 'or (collect)) st)) ((#\^) (let ((sym (if (flag-set? flags ~multi-line?) 'bol 'bos))) (lp (+ i 1) (+ i 1) flags (cons sym (collect)) st))) ((#\$) (let ((sym (if (flag-set? flags ~multi-line?) 'eol 'eos))) (lp (+ i 1) (+ i 1) flags (cons sym (collect)) st))) ((#\space) (if (flag-set? flags ~ignore-space?) (lp (+ i 1) (+ i 1) flags (collect) st) (lp (+ i 1) from flags res st))) ((#\#) (if (flag-set? flags ~ignore-space?) (let ((j (or (string-scan-char str #\newline (+ i 1)) (- end 1)))) (lp (+ j 1) (+ j 1) flags (collect) st)) (lp (+ i 1) from flags res st))) (else (lp (+ i 1) from flags res st)))))))) (define posix-escape-sequences `((#\n . #\newline) (#\r . ,(integer->char (+ (char->integer #\newline) 3))) (#\t . ,(integer->char (- (char->integer #\newline) 1))) (#\a . ,(integer->char (- (char->integer #\newline) 3))) (#\e . ,(integer->char (+ (char->integer #\newline) #x11))) (#\f . ,(integer->char (+ (char->integer #\newline) 2))) )) (define (char-altcase c) (if (char-upper-case? c) (char-downcase c) (char-upcase c))) (define (char-mirror c) (case c ((#\<) #\>) ((#\{) #\}) ((#\() #\)) ((#\[) #\]) (else c))) (define (string-parse-hex-escape str i end) (cond ((>= i end) (error "incomplete hex escape" str i)) ((eqv? #\{ (string-ref str i)) (let ((j (string-scan-char-escape str #\} (+ i 1)))) (if (not j) (error "incomplete hex brace escape" str i) (let* ((s (substring str (+ i 1) j)) (n (string->number s 16))) (if n (list (integer->char n) j) (error "bad hex brace escape" s)))))) ((>= (+ i 1) end) (error "incomplete hex escape" str i)) (else (let* ((s (substring str i (+ i 2))) (n (string->number s 16))) (if n (list (integer->char n) (+ i 2)) (error "bad hex escape" s)))))) (define (string-parse-cset str start flags) (let* ((end (string-length str)) (invert? (and (< start end) (eqv? #\^ (string-ref str start)))) (utf8? (flag-set? flags ~utf8?))) (define (go i prev-char cset) (if (>= i end) (error "incomplete char set" str i end) (let ((c (string-ref str i))) (case c ((#\]) (if (cset-empty? cset) (go (+ i 1) #\] (cset-adjoin cset #\])) (let ((ci? (flag-set? flags ~case-insensitive?))) (list (let ((res (if ci? (cset-case-insensitive cset) cset))) (cset->sre (if invert? (cset-complement res) res))) i)))) ((#\-) (cond ((or (= i start) (and (= i (+ start 1)) (eqv? #\^ (string-ref str start))) (eqv? #\] (string-ref str (+ i 1)))) (go (+ i 1) c (cset-adjoin cset c))) ((not prev-char) (error "bad char-set")) (else (let ((char (string-ref str (+ i 1)))) (apply (lambda (c j) (if (char<? c prev-char) (error "inverted range in char-set" prev-char c) (go j #f (cset-union cset (range->cset prev-char c))))) (cond ((and (eqv? #\\ char) (assv char posix-escape-sequences)) => (lambda (x) (list (cdr x) (+ i 3)))) ((and (eqv? #\\ char) (eqv? (string-ref str (+ i 2)) #\x)) (string-parse-hex-escape str (+ i 3) end)) ((and utf8? (<= #x80 (char->integer char) #xFF)) (let ((len (utf8-start-char->length char))) (list (utf8-string-ref str (+ i 1) len) (+ i 1 len)))) (else (list char (+ i 2))))))))) ((#\[) (let* ((inv? (eqv? #\^ (string-ref str (+ i 1)))) (i2 (if inv? (+ i 2) (+ i 1)))) (case (string-ref str i2) ((#\:) (let ((j (string-scan-char str #\: (+ i2 1)))) (if (or (not j) (not (eqv? #\] (string-ref str (+ j 1))))) (error "incomplete character class" str) (let* ((class (sre->cset (string->symbol (substring str (+ i2 1) j)))) (class (if inv? (cset-complement class) class))) (go (+ j 2) #f (cset-union cset class)))))) ((#\= #\.) (error "collating sequences not supported" str)) (else (go (+ i 1) #\[ (cset-adjoin cset #\[)))))) ((#\\) (let ((c (string-ref str (+ i 1)))) (case c ((#\d #\D #\s #\S #\w #\W) (go (+ i 2) #f (cset-union cset (sre->cset (string->sre (string #\\ c)))))) ((#\x) (apply (lambda (ch j) (go j ch (cset-adjoin cset ch))) (string-parse-hex-escape str (+ i 2) end))) (else (let ((c (cond ((assv c posix-escape-sequences) => cdr) (else c)))) (go (+ i 2) c (cset-adjoin cset c))))))) (else (if (and utf8? (<= #x80 (char->integer c) #xFF)) (let ((len (utf8-start-char->length c))) (go (+ i len) (utf8-string-ref str i len) (cset-adjoin cset (utf8-string-ref str i len)))) (go (+ i 1) c (cset-adjoin cset c)))))))) (if invert? (go (+ start 1) #f (if (flag-set? flags ~multi-line?) (char->cset #\newline) (make-cset))) (go start #f (make-cset))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; UTF-8 Utilities ;; Here are some hairy optimizations that need to be documented ;; better. Thanks to these, we never do any utf8 processing once the ;; regexp is compiled. ;; two chars: ab..ef ;; a[b..xFF]|[b-d][x80..xFF]|e[x80..xFF] ;; three chars: abc..ghi ;; ab[c..xFF]|a[d..xFF][x80..xFF]| ;; [b..f][x80..xFF][x80..xFF]| ;; g[x80..g][x80..xFF]|gh[x80..i] ;; four chars: abcd..ghij ;; abc[d..xFF]|ab[d..xFF][x80..xFF]|a[c..xFF][x80..xFF][x80..xFF]| ;; [b..f][x80..xFF][x80..xFF][x80..xFF]| ;; g[x80..g][x80..xFF][x80..xFF]|gh[x80..h][x80..xFF]|ghi[x80..j] (define (high-char? c) (<= #x80 (char->integer c))) ;; number of total bytes in a utf8 char given the 1st byte (define utf8-start-char->length (let ((table '#( 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; 0x 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; 1x 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; 2x 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; 3x 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; 4x 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; 5x 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; 6x 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; 7x 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; 8x 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; 9x 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; ax 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; bx 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ; cx 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ; dx 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ; ex 4 4 4 4 4 4 4 4 5 5 5 5 6 6 0 0 ; fx ))) (lambda (c) (vector-ref table (char->integer c))))) (define (utf8-string-ref str i len) (define (byte n) (char->integer (string-ref str n))) (case len ((1) ; shouldn't happen in this module (string-ref str i)) ((2) (integer->char (+ (bit-shl (bit-and (byte i) #b00011111) 6) (bit-and (byte (+ i 1)) #b00111111)))) ((3) (integer->char (+ (bit-shl (bit-and (byte i) #b00001111) 12) (bit-shl (bit-and (byte (+ i 1)) #b00111111) 6) (bit-and (byte (+ i 2)) #b00111111)))) ((4) (integer->char (+ (bit-shl (bit-and (byte i) #b00000111) 18) (bit-shl (bit-and (byte (+ i 1)) #b00111111) 12) (bit-shl (bit-and (byte (+ i 2)) #b00111111) 6) (bit-and (byte (+ i 3)) #b00111111)))) (else (error "invalid utf8 length" str len i)))) (define (utf8-backup-to-initial-char str i) (let lp ((i i)) (if (= i 0) 0 (let ((c (char->integer (string-ref str i)))) (if (or (< c #x80) (>= c #xC0)) i (lp (- i 1))))))) (define (utf8-lowest-digit-of-length len) (case len ((1) 0) ((2) #xC0) ((3) #xE0) ((4) #xF0) (else (error "invalid utf8 length" len)))) (define (utf8-highest-digit-of-length len) (case len ((1) #x7F) ((2) #xDF) ((3) #xEF) ((4) #xF7) (else (error "invalid utf8 length" len)))) (define (char->utf8-list c) (let ((i (char->integer c))) (cond ((<= i #x7F) (list i)) ((<= i #x7FF) (list (bit-ior #b11000000 (bit-shr i 6)) (bit-ior #b10000000 (bit-and i #b111111)))) ((<= i #xFFFF) (list (bit-ior #b11100000 (bit-shr i 12)) (bit-ior #b10000000 (bit-and (bit-shr i 6) #b111111)) (bit-ior #b10000000 (bit-and i #b111111)))) ((<= i #x1FFFFF) (list (bit-ior #b11110000 (bit-shr i 18)) (bit-ior #b10000000 (bit-and (bit-shr i 12) #b111111)) (bit-ior #b10000000 (bit-and (bit-shr i 6) #b111111)) (bit-ior #b10000000 (bit-and i #b111111)))) (else (error "unicode codepoint out of range:" i))))) (define (unicode-range->utf8-pattern lo hi) (let ((lo-ls (char->utf8-list lo)) (hi-ls (char->utf8-list hi))) (if (not (= (length lo-ls) (length hi-ls))) (sre-alternate (list (unicode-range-climb-digits lo-ls hi-ls) (unicode-range-up-to hi-ls))) (let lp ((lo-ls lo-ls) (hi-ls hi-ls)) (cond ((= (car lo-ls) (car hi-ls)) (sre-sequence (cons (integer->char (car lo-ls)) (if (null? (cdr lo-ls)) '() (cons (lp (cdr lo-ls) (cdr hi-ls)) '()))))) ((= (+ (car lo-ls) 1) (car hi-ls)) (sre-alternate (list (unicode-range-up-from lo-ls) (unicode-range-up-to hi-ls)))) (else (sre-alternate (list (unicode-range-up-from lo-ls) (unicode-range-middle lo-ls hi-ls) (unicode-range-up-to hi-ls))))))))) (define (unicode-range-helper one ls prefix res) (if (null? ls) res (unicode-range-helper one (cdr ls) (cons (car ls) prefix) (cons (sre-sequence `(,@(map integer->char prefix) ,(one (car ls)) ,@(map (lambda (_) `(/ ,(integer->char #x80) ,(integer->char #xFF))) (cdr ls)))) res)))) (define (unicode-range-up-from lo-ls) (sre-sequence (list (integer->char (car lo-ls)) (sre-alternate (unicode-range-helper (lambda (c) `(/ ,(integer->char (+ (car lo-ls) 1)) ,(integer->char #xFF))) (cdr (reverse (cdr lo-ls))) '() (list (sre-sequence (append (map integer->char (reverse (cdr (reverse (cdr lo-ls))))) `((/ ,(integer->char (last lo-ls)) ,(integer->char #xFF))))))))))) (define (unicode-range-up-to hi-ls) (sre-sequence (list (integer->char (car hi-ls)) (sre-alternate (unicode-range-helper (lambda (c) `(/ ,(integer->char #x80) ,(integer->char (- (car hi-ls) 1)))) (cdr (reverse (cdr hi-ls))) '() (list (sre-sequence (append (map integer->char (reverse (cdr (reverse (cdr hi-ls))))) `((/ ,(integer->char #x80) ,(integer->char (last hi-ls)))))))))))) (define (unicode-range-climb-digits lo-ls hi-ls) (let ((lo-len (length lo-ls))) (sre-alternate (append (list (sre-sequence (cons `(/ ,(integer->char (car lo-ls)) ,(integer->char (if (<= (car lo-ls) #x7F) #x7F #xFF))) (map (lambda (_) `(/ ,(integer->char #x80) ,(integer->char #xFF))) (cdr lo-ls))))) (map (lambda (i) (sre-sequence (cons `(/ ,(integer->char (utf8-lowest-digit-of-length (+ i lo-len 1))) ,(integer->char (utf8-highest-digit-of-length (+ i lo-len 1)))) (map (lambda (_) `(/ ,(integer->char #x80) ,(integer->char #xFF))) (zero-to (+ i lo-len)))))) (zero-to (- (length hi-ls) (+ lo-len 1)))) (list (sre-sequence (cons `(/ ,(integer->char (utf8-lowest-digit-of-length (utf8-start-char->length (integer->char (- (car hi-ls) 1))))) ,(integer->char (- (car hi-ls) 1))) (map (lambda (_) `(/ ,(integer->char #x80) ,(integer->char #xFF))) (cdr hi-ls))))))))) (define (unicode-range-middle lo-ls hi-ls) (let ((lo (integer->char (+ (car lo-ls) 1))) (hi (integer->char (- (car hi-ls) 1)))) (sre-sequence (cons (if (char=? lo hi) lo `(/ ,lo ,hi)) (map (lambda (_) `(/ ,(integer->char #x80) ,(integer->char #xFF))) (cdr lo-ls)))))) ;; Maybe this should just modify the input? (define (cset->utf8-pattern cset) (let lp ((ls (cset->plist cset)) (alts '()) (lo-cset '())) (if (null? ls) (sre-alternate (append (reverse alts) (if (null? lo-cset) '() (list (cons '/ (reverse lo-cset)))))) (if (or (high-char? (car ls)) (high-char? (cadr ls))) (lp (cddr ls) (cons (unicode-range->utf8-pattern (car ls) (cadr ls)) alts) lo-cset) (lp (cddr ls) alts (cons (cadr ls) (cons (car ls) lo-cset))))))) (define (sre-adjust-utf8 sre flags) (let adjust ((sre sre) (utf8? (flag-set? flags ~utf8?)) (ci? (flag-set? flags ~case-insensitive?))) (define (rec sre) (adjust sre utf8? ci?)) (cond ((pair? sre) (case (car sre) ((w/utf8) (adjust (sre-sequence (cdr sre)) #t ci?)) ((w/noutf8) (adjust (sre-sequence (cdr sre)) #f ci?)) ((w/case) (cons (car sre) (map (lambda (s) (adjust s utf8? #f)) (cdr sre)))) ((w/nocase) (cons (car sre) (map (lambda (s) (adjust s utf8? #t)) (cdr sre)))) ((/ ~ & -) (if (not utf8?) sre (let ((cset (sre->cset sre ci?))) (if (any high-char? (cset->plist cset)) (if ci? (list 'w/case (cset->utf8-pattern cset)) (cset->utf8-pattern cset)) sre)))) ((*) (case (sre-sequence (cdr sre)) ;; special case optimization: .* w/utf8 == .* w/noutf8 ((any) '(* any)) ((nonl) '(* nonl)) (else (cons '* (map rec (cdr sre)))))) (else (cons (car sre) (map rec (cdr sre)))))) (else (case sre ((any) 'utf8-any) ((nonl) 'utf8-nonl) (else (if (and utf8? (char? sre) (high-char? sre)) (sre-sequence (map integer->char (char->utf8-list sre))) sre))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Compilation (cond-expand (chicken-bootstrap (define-syntax cached (syntax-rules () ((_ arg fail) (build-cache 5 arg fail))))) (else (define-syntax cached (syntax-rules () ((_ arg fail) fail))))) (define (irregex x . o) (cond ((irregex? x) x) ((null? o) (cached x (if (string? x) (string->irregex x) (sre->irregex x)))) (else (if (string? x) (apply string->irregex x o) (apply sre->irregex x o))))) (define (string->irregex str . o) (apply sre->irregex (apply string->sre str o) o)) (define (sre->irregex sre . o) (let* ((pat-flags (symbol-list->flags o)) (sre (if *allow-utf8-mode?* (sre-adjust-utf8 sre pat-flags) sre)) (searcher? (sre-searcher? sre)) (sre-dfa (if searcher? (sre-remove-initial-bos sre) sre)) (dfa-limit (cond ((memq 'small o) 1) ((memq 'fast o) 50) (else 10))) ;; TODO: Maybe make these two promises; if we only want to search, ;; it's wasteful to compile the matcher, and vice versa ;; Maybe provide a flag to compile eagerly, to help benchmarking etc. (dfa/search (cond ((memq 'backtrack o) #f) (searcher? #t) ((sre->nfa `(seq (* any) ,sre-dfa) pat-flags) => (lambda (nfa) (nfa->dfa nfa (* dfa-limit (nfa-num-states nfa))))) (else #f))) (dfa (cond ((and dfa/search (sre->nfa sre-dfa pat-flags)) => (lambda (nfa) (nfa->dfa nfa (* dfa-limit (nfa-num-states nfa))))) (else #f))) (submatches (sre-count-submatches sre-dfa)) (names (sre-names sre-dfa 1 '())) (lens (sre-length-ranges sre-dfa names)) (flags (flag-join (flag-join ~none (and searcher? ~searcher?)) (and (sre-consumer? sre) ~consumer?)))) (cond (dfa (make-irregex dfa dfa/search #f flags submatches lens names)) (else (let ((f (sre->procedure sre pat-flags names))) (make-irregex #f #f f flags submatches lens names)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; SRE Analysis ;; returns #t if the sre can ever be empty (define (sre-empty? sre) (if (pair? sre) (case (car sre) ((* ? look-ahead look-behind neg-look-ahead neg-look-behind) #t) ((**) (or (not (number? (cadr sre))) (zero? (cadr sre)))) ((or) (any sre-empty? (cdr sre))) ((: seq $ submatch => submatch-named + atomic) (every sre-empty? (cdr sre))) (else #f)) (memq sre '(epsilon bos eos bol eol bow eow commit)))) (define (sre-any? sre) (or (eq? sre 'any) (and (pair? sre) (case (car sre) ((seq : $ submatch => submatch-named) (and (pair? (cdr sre)) (null? (cddr sre)) (sre-any? (cadr sre)))) ((or) (every sre-any? (cdr sre))) (else #f))))) (define (sre-repeater? sre) (and (pair? sre) (or (memq (car sre) '(* +)) (and (memq (car sre) '($ submatch => submatch-named seq :)) (pair? (cdr sre)) (null? (cddr sre)) (sre-repeater? (cadr sre)))))) (define (sre-searcher? sre) (if (pair? sre) (case (car sre) ((* +) (sre-any? (sre-sequence (cdr sre)))) ((seq : $ submatch => submatch-named) (and (pair? (cdr sre)) (sre-searcher? (cadr sre)))) ((or) (every sre-searcher? (cdr sre))) (else #f)) (eq? 'bos sre))) (define (sre-consumer? sre) (if (pair? sre) (case (car sre) ((* +) (sre-any? (sre-sequence (cdr sre)))) ((seq : $ submatch => submatch-named) (and (pair? (cdr sre)) (sre-consumer? (last sre)))) ((or) (every sre-consumer? (cdr sre))) (else #f)) (eq? 'eos sre))) (define (sre-has-submatches? sre) (and (pair? sre) (or (memq (car sre) '($ submatch => submatch-named)) (if (eq? 'posix-string (car sre)) (sre-has-submatches? (string->sre (cadr sre))) (any sre-has-submatches? (cdr sre)))))) (define (sre-count-submatches sre) (let count ((sre sre) (sum 0)) (if (pair? sre) (fold count (+ sum (case (car sre) (($ submatch => submatch-named) 1) ((dsm) (+ (cadr sre) (caddr sre))) ((posix-string) (sre-count-submatches (string->sre (cadr sre)))) (else 0))) (cdr sre)) sum))) (define (sre-length-ranges sre . o) (let ((names (if (pair? o) (car o) (sre-names sre 1 '()))) (sublens (make-vector (+ 1 (sre-count-submatches sre)) #f))) (vector-set! sublens 0 (let lp ((sre sre) (n 1) (lo 0) (hi 0) (return cons)) (define (grow i) (return (+ lo i) (and hi (+ hi i)))) (cond ((pair? sre) (if (string? (car sre)) (grow 1) (case (car sre) ((/ ~ & -) (grow 1)) ((posix-string) (lp (string->sre (cadr sre)) n lo hi return)) ((seq : w/case w/nocase atomic) (let lp2 ((ls (cdr sre)) (n n) (lo2 0) (hi2 0)) (if (null? ls) (return (+ lo lo2) (and hi hi2 (+ hi hi2))) (lp (car ls) n 0 0 (lambda (lo3 hi3) (lp2 (cdr ls) (+ n (sre-count-submatches (car ls))) (+ lo2 lo3) (and hi2 hi3 (+ hi2 hi3)))))))) ((or) (let lp2 ((ls (cdr sre)) (n n) (lo2 #f) (hi2 0)) (if (null? ls) (return (+ lo (or lo2 1)) (and hi hi2 (+ hi hi2))) (lp (car ls) n 0 0 (lambda (lo3 hi3) (lp2 (cdr ls) (+ n (sre-count-submatches (car ls))) (if lo2 (min lo2 lo3) lo3) (and hi2 hi3 (max hi2 hi3)))))))) ((if) (cond ((or (null? (cdr sre)) (null? (cddr sre))) (return lo hi)) (else (let ((n1 (sre-count-submatches (car sre))) (n2 (sre-count-submatches (cadr sre)))) (lp (if (or (number? (cadr sre)) (symbol? (cadr sre))) 'epsilon (cadr sre)) n lo hi (lambda (lo2 hi2) (lp (caddr sre) (+ n n1) 0 0 (lambda (lo3 hi3) (lp (if (pair? (cdddr sre)) (cadddr sre) 'epsilon) (+ n n1 n2) 0 0 (lambda (lo4 hi4) (return (+ lo2 (min lo3 lo4)) (and hi2 hi3 hi4 (+ hi2 (max hi3 hi4)) )))))))))))) ((dsm) (lp (sre-sequence (cdddr sre)) (+ n (cadr sre)) lo hi return)) (($ submatch => submatch-named) (lp (sre-sequence (if (eq? 'submatch (car sre)) (cdr sre) (cddr sre))) (+ n 1) lo hi (lambda (lo2 hi2) (vector-set! sublens n (cons lo2 hi2)) (return lo2 hi2)))) ((backref backref-ci) (let ((n (cond ((number? (cadr sre)) (cadr sre)) ((assq (cadr sre) names) => cdr) (else (error "unknown backreference" (cadr sre)))))) (cond ((or (not (integer? n)) (not (< 0 n (vector-length sublens)))) (error 'sre-length "invalid backreference" sre)) ((not (vector-ref sublens n)) (error 'sre-length "invalid forward backreference" sre)) (else (let ((lo2 (car (vector-ref sublens n))) (hi2 (cdr (vector-ref sublens n)))) (return (+ lo lo2) (and hi hi2 (+ hi hi2)))))))) ((* *?) (lp (sre-sequence (cdr sre)) n lo hi (lambda (lo hi) #f)) (return lo #f)) ((** **?) (cond ((or (and (number? (cadr sre)) (number? (caddr sre)) (> (cadr sre) (caddr sre))) (and (not (cadr sre)) (caddr sre))) (return lo hi)) (else (if (caddr sre) (lp (sre-sequence (cdddr sre)) n 0 0 (lambda (lo2 hi2) (return (+ lo (* (cadr sre) lo2)) (and hi hi2 (+ hi (* (caddr sre) hi2)))))) (lp (sre-sequence (cdddr sre)) n 0 0 (lambda (lo2 hi2) (return (+ lo (* (cadr sre) lo2)) #f))))))) ((+) (lp (sre-sequence (cdr sre)) n lo hi (lambda (lo2 hi2) (return (+ lo lo2) #f)))) ((? ??) (lp (sre-sequence (cdr sre)) n lo hi (lambda (lo2 hi2) (return lo (and hi hi2 (+ hi hi2)))))) ((= =? >= >=?) (lp `(** ,(cadr sre) ,(if (memq (car sre) '(>= >=?)) #f (cadr sre)) ,@(cddr sre)) n lo hi return)) ((look-ahead neg-look-ahead look-behind neg-look-behind) (return lo hi)) (else (cond ((assq (car sre) sre-named-definitions) => (lambda (cell) (lp (apply (cdr cell) (cdr sre)) n lo hi return))) (else (error 'sre-length-ranges "unknown sre operator" sre))))))) ((char? sre) (grow 1)) ((string? sre) (grow (string-length sre))) ((memq sre '(any nonl)) (grow 1)) ((memq sre '(epsilon bos eos bol eol bow eow nwb commit)) (return lo hi)) (else (let ((cell (assq sre sre-named-definitions))) (if cell (lp (if (procedure? (cdr cell)) ((cdr cell)) (cdr cell)) n lo hi return) (error 'sre-length-ranges "unknown sre" sre))))))) sublens)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; SRE Manipulation ;; build a (seq ls ...) sre from a list (define (sre-sequence ls) (cond ((null? ls) 'epsilon) ((null? (cdr ls)) (car ls)) (else (cons 'seq ls)))) ;; build a (or ls ...) sre from a list (define (sre-alternate ls) (cond ((null? ls) '(or)) ((null? (cdr ls)) (car ls)) (else (cons 'or ls)))) ;; returns an equivalent SRE without any match information (define (sre-strip-submatches sre) (if (not (pair? sre)) sre (case (car sre) (($ submatch) (sre-strip-submatches (sre-sequence (cdr sre)))) ((=> submatch-named) (sre-strip-submatches (sre-sequence (cddr sre)))) ((dsm) (sre-strip-submatches (sre-sequence (cdddr sre)))) (else (map sre-strip-submatches sre))))) ;; given a char-set list of chars and strings, flattens them into ;; chars only (define (sre-flatten-ranges ls) (let lp ((ls ls) (res '())) (cond ((null? ls) (reverse res)) ((string? (car ls)) (lp (append (string->list (car ls)) (cdr ls)) res)) (else (lp (cdr ls) (cons (car ls) res)))))) (define (sre-names sre n names) (if (not (pair? sre)) names (case (car sre) (($ submatch) (sre-names (sre-sequence (cdr sre)) (+ n 1) names)) ((=> submatch-named) (sre-names (sre-sequence (cddr sre)) (+ n 1) (cons (cons (cadr sre) n) names))) ((dsm) (sre-names (sre-sequence (cdddr sre)) (+ n (cadr sre)) names)) ((seq : or * + ? *? ?? w/case w/nocase atomic look-ahead look-behind neg-look-ahead neg-look-behind) (sre-sequence-names (cdr sre) n names)) ((= >=) (sre-sequence-names (cddr sre) n names)) ((** **?) (sre-sequence-names (cdddr sre) n names)) (else names)))) (define (sre-sequence-names ls n names) (if (null? ls) names (sre-sequence-names (cdr ls) (+ n (sre-count-submatches (car ls))) (sre-names (car ls) n names)))) (define (sre-remove-initial-bos sre) (cond ((pair? sre) (case (car sre) ((seq : $ submatch => submatch-named * +) (cond ((not (pair? (cdr sre))) sre) ((eq? 'bos (cadr sre)) (cons (car sre) (cddr sre))) (else (cons (car sre) (cons (sre-remove-initial-bos (cadr sre)) (cddr sre)))))) ((or) (sre-alternate (map sre-remove-initial-bos (cdr sre)))) (else sre))) (else sre))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Basic Matching (define irregex-basic-string-chunker (make-irregex-chunker (lambda (x) #f) car cadr caddr (lambda (src1 i src2 j) (substring (car src1) i j)))) (define (irregex-search x str . o) (if (not (string? str)) (error 'irregex-search "not a string" str)) (let ((start (or (and (pair? o) (car o)) 0)) (end (or (and (pair? o) (pair? (cdr o)) (cadr o)) (string-length str)))) (if (not (and (integer? start) (exact? start))) (error 'irregex-search "not an exact integer" start)) (if (not (and (integer? end) (exact? end))) (error 'irregex-search "not an exact integer" end)) (irregex-search/chunked x irregex-basic-string-chunker (list str start end) start))) (define (irregex-search/chunked x cnk src . o) (let* ((irx (irregex x)) (matches (irregex-new-matches irx)) (i (if (pair? o) (car o) ((chunker-get-start cnk) src)))) (if (not (integer? i)) (error 'irregex-search "not an integer" i)) (irregex-match-chunker-set! matches cnk) (irregex-search/matches irx cnk (cons src i) src i matches))) ;; internal routine, can be used in loops to avoid reallocating the ;; match vector (define (irregex-search/matches irx cnk init src i matches) (cond ((irregex-dfa irx) (cond ((flag-set? (irregex-flags irx) ~searcher?) (cond ((dfa-match/longest (irregex-dfa irx) cnk src i #f #f matches 0) (irregex-match-start-chunk-set! matches 0 src) (irregex-match-start-index-set! matches 0 i) matches) (else #f))) ((dfa-match/shortest (irregex-dfa/search irx) cnk src i matches 0) (let ((dfa (irregex-dfa irx)) (get-start (chunker-get-start cnk)) (get-end (chunker-get-end cnk)) (get-next (chunker-get-next cnk))) (let lp1 ((src src) (i i)) (let ((end (get-end src))) (let lp2 ((i i)) (cond ((dfa-match/longest dfa cnk src i #f #f matches 0) (irregex-match-start-chunk-set! matches 0 src) (irregex-match-start-index-set! matches 0 i) matches) ((>= i end) (let ((next (get-next src))) (and next (lp1 next (get-start next))))) (else (lp2 (+ i 1))))))))) (else #f))) (else (let ((res (irregex-search/backtrack irx cnk init src i matches))) (if res (%irregex-match-fail-set! res #f)) res)))) (define (irregex-search/backtrack irx cnk init src i matches) (let ((matcher (irregex-nfa irx)) (str ((chunker-get-str cnk) src)) (end ((chunker-get-end cnk) src)) (get-next (chunker-get-next cnk))) (if (flag-set? (irregex-flags irx) ~searcher?) (matcher cnk init src str i end matches (lambda () #f)) (let lp ((src2 src) (str str) (i i) (end end)) (cond ((matcher cnk init src2 str i end matches (lambda () #f)) (irregex-match-start-chunk-set! matches 0 src2) (irregex-match-start-index-set! matches 0 i) matches) ((< i end) (lp src2 str (+ i 1) end)) (else (let ((src2 (get-next src2))) (if src2 (lp src2 ((chunker-get-str cnk) src2) ((chunker-get-start cnk) src2) ((chunker-get-end cnk) src2)) #f)))))))) (define (irregex-match irx str . o) (if (not (string? str)) (error 'irregex-match "not a string" str)) (let ((start (or (and (pair? o) (car o)) 0)) (end (or (and (pair? o) (pair? (cdr o)) (cadr o)) (string-length str)))) (if (not (and (integer? start) (exact? start))) (error 'irregex-match "not an exact integer" start)) (if (not (and (integer? end) (exact? end))) (error 'irregex-match "not an exact integer" end)) (irregex-match/chunked irx irregex-basic-string-chunker (list str start end)))) (define (irregex-match/chunked irx cnk src) (let* ((irx (irregex irx)) (matches (irregex-new-matches irx))) (irregex-match-chunker-set! matches cnk) (cond ((irregex-dfa irx) (and (dfa-match/longest (irregex-dfa irx) cnk src ((chunker-get-start cnk) src) #f #f matches 0) (= ((chunker-get-end cnk) (%irregex-match-end-chunk matches 0)) (%irregex-match-end-index matches 0)) (begin (irregex-match-start-chunk-set! matches 0 src) (irregex-match-start-index-set! matches 0 ((chunker-get-start cnk) src)) matches))) (else (let* ((matcher (irregex-nfa irx)) (str ((chunker-get-str cnk) src)) (i ((chunker-get-start cnk) src)) (end ((chunker-get-end cnk) src)) (init (cons src i))) (let lp ((m (matcher cnk init src str i end matches (lambda () #f)))) (and m (cond ((and (not ((chunker-get-next cnk) (%irregex-match-end-chunk m 0))) (= ((chunker-get-end cnk) (%irregex-match-end-chunk m 0)) (%irregex-match-end-index m 0))) (%irregex-match-fail-set! m #f) m) ((%irregex-match-fail m) (lp ((%irregex-match-fail m)))) (else #f))))))))) (define (irregex-match? . args) (and (apply irregex-match args) #t)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; DFA Matching ;; inline these (define (dfa-init-state dfa) (vector-ref dfa 0)) (define (dfa-next-state dfa node) (vector-ref dfa (cadr node))) (define (dfa-cell-commands dfa node) (cddr node)) (define (dfa-finalizer dfa state) (car state)) ;; this searches for the first end index for which a match is possible (define (dfa-match/shortest dfa cnk src start matches index) (let ((get-str (chunker-get-str cnk)) (get-start (chunker-get-start cnk)) (get-end (chunker-get-end cnk)) (get-next (chunker-get-next cnk)) ;; Skip the "set-up" state, we don't need to set tags. (start-state (dfa-next-state dfa (cadr (dfa-init-state dfa))))) (let lp1 ((src src) (start start) (state start-state)) (and src (let ((str (get-str src)) (end (get-end src))) (let lp2 ((i start) (state state)) (cond ((dfa-finalizer dfa state) (cond (index (irregex-match-end-chunk-set! matches index src) (irregex-match-end-index-set! matches index i))) #t) ((< i end) (let* ((ch (string-ref str i)) (next (find (lambda (x) (or (eqv? ch (car x)) (and (not (char? (car x))) (cset-contains? (car x) ch)))) (cdr state)))) (and next (lp2 (+ i 1) (dfa-next-state dfa next))))) (else (let ((next (get-next src))) (and next (lp1 next (get-start next) state))))))))))) (define (finalize! finalizer memory matches) (for-each (lambda (tag&slot) (let* ((tag (car tag&slot)) (slot (vector-ref memory (cdr tag&slot))) (chunk&pos (vector-ref slot tag))) (irregex-match-chunk&index-from-tag-set! matches tag (and chunk&pos (car chunk&pos)) (and chunk&pos (cdr chunk&pos))))) finalizer)) (define (make-initial-memory slots matches) (let ((size (* (irregex-match-num-submatches matches) 2)) (memory (make-vector slots))) (do ((i 0 (+ i 1))) ((= i slots) memory) (vector-set! memory i (make-vector size #f))))) ;; this finds the longest match starting at a given index (define (dfa-match/longest dfa cnk src start end-src end matches index) (let* ((get-str (chunker-get-str cnk)) (get-start (chunker-get-start cnk)) (get-end (chunker-get-end cnk)) (get-next (chunker-get-next cnk)) (initial-state (dfa-init-state dfa)) (memory-size (car initial-state)) (submatches? (not (zero? memory-size))) ;; A vector of vectors, each of size <number of start/end submatches> (memory (make-initial-memory memory-size matches)) (init-cell (cadr initial-state)) (start-state (dfa-next-state dfa init-cell)) (start-finalizer (dfa-finalizer dfa start-state))) (cond (index (irregex-match-end-chunk-set! matches index #f) (irregex-match-end-index-set! matches index #f))) (cond (submatches? (for-each (lambda (s) (let ((slot (vector-ref memory (cdr s)))) (vector-set! slot (car s) (cons src start)))) (cdr (dfa-cell-commands dfa init-cell))))) (let lp1 ((src src) (start start) (state start-state) (res-src (and start-finalizer src)) (res-index (and start-finalizer start)) (finalizer start-finalizer)) (let ((str (get-str src)) (end (if (eq? src end-src) end (get-end src)))) (let lp2 ((i start) (state state) (res-src res-src) (res-index res-index) (finalizer finalizer)) (cond ((>= i end) (cond ((and index res-src) (irregex-match-end-chunk-set! matches index res-src) (irregex-match-end-index-set! matches index res-index))) (let ((next (and (not (eq? src end-src)) (get-next src)))) (if next (lp1 next (get-start next) state res-src res-index finalizer) (and index (%irregex-match-end-chunk matches index) (or (not finalizer) (finalize! finalizer memory matches)) #t)))) (else (let* ((ch (string-ref str i)) (cell (find (lambda (x) (or (eqv? ch (car x)) (and (not (char? (car x))) (cset-contains? (car x) ch)))) (cdr state)))) (cond (cell (let* ((next (dfa-next-state dfa cell)) (new-finalizer (dfa-finalizer dfa next))) (cond (submatches? (let ((cmds (dfa-cell-commands dfa cell))) ;; Save match when we're moving from accepting state to ;; rejecting state; this could be the last accepting one. (cond ((and finalizer (not new-finalizer)) (finalize! finalizer memory matches))) (for-each (lambda (s) (let ((slot (vector-ref memory (cdr s))) (chunk&position (cons src (+ i 1)))) (vector-set! slot (car s) chunk&position))) (cdr cmds)) (for-each (lambda (c) (let* ((tag (vector-ref c 0)) (ss (vector-ref memory (vector-ref c 1))) (ds (vector-ref memory (vector-ref c 2)))) (vector-set! ds tag (vector-ref ss tag)))) (car cmds))))) (if new-finalizer (lp2 (+ i 1) next src (+ i 1) new-finalizer) (lp2 (+ i 1) next res-src res-index #f)))) (res-src (cond (index (irregex-match-end-chunk-set! matches index res-src) (irregex-match-end-index-set! matches index res-index))) (cond (finalizer (finalize! finalizer memory matches))) #t) ((and index (%irregex-match-end-chunk matches index)) (cond (finalizer (finalize! finalizer memory matches))) #t) (else #f)))))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Named Definitions (define sre-named-definitions `((any . ,*all-chars*) (nonl . (- ,*all-chars* (,(string #\newline)))) (alphabetic . (/ #\a #\z #\A #\Z)) (alpha . alphabetic) (alphanumeric . (/ #\a #\z #\A #\Z #\0 #\9)) (alphanum . alphanumeric) (alnum . alphanumeric) (lower-case . (/ #\a #\z)) (lower . lower-case) (upper-case . (/ #\A #\Z)) (upper . upper-case) (numeric . (/ #\0 #\9)) (num . numeric) (digit . numeric) (punctuation . (or #\! #\" #\# #\% #\& #\' #\( #\) #\* #\, #\- #\. #\/ #\: #\; #\? #\@ #\[ #\\ #\] #\_ #\{ #\})) (punct . punctuation) (graphic . (or alphanumeric punctuation #\$ #\+ #\< #\= #\> #\^ #\` #\| #\~)) (graph . graphic) (blank . (or #\space ,(integer->char (- (char->integer #\space) 23)))) (whitespace . (or blank #\newline)) (space . whitespace) (white . whitespace) (printing or graphic whitespace) (print . printing) ;; XXXX we assume a (possibly shifted) ASCII-based ordering (control . (/ ,(integer->char (- (char->integer #\space) 32)) ,(integer->char (- (char->integer #\space) 1)))) (cntrl . control) (hex-digit . (or numeric (/ #\a #\f #\A #\F))) (xdigit . hex-digit) (ascii . (/ ,(integer->char (- (char->integer #\space) 32)) ,(integer->char (+ (char->integer #\space) 95)))) (ascii-nonl . (/ ,(integer->char (- (char->integer #\space) 32)) ,(integer->char (- (char->integer #\newline) 1)) ,(integer->char (+ (char->integer #\newline) 1)) ,(integer->char (+ (char->integer #\space) 95)))) (newline . (or (seq ,(integer->char (+ (char->integer #\newline) 3)) #\newline) (/ #\newline ,(integer->char (+ (char->integer #\newline) 3))))) ;; ... it's really annoying to support old Scheme48 (word . (seq bow (+ (or alphanumeric #\_)) eow)) (utf8-tail-char . (/ ,(integer->char (+ (char->integer #\space) #x60)) ,(integer->char (+ (char->integer #\space) #xA1)))) (utf8-2-char . (seq (/ ,(integer->char (+ (char->integer #\space) #xA2)) ,(integer->char (+ (char->integer #\space) #xBF))) utf8-tail-char)) (utf8-3-char . (seq (/ ,(integer->char (+ (char->integer #\space) #xC0)) ,(integer->char (+ (char->integer #\space) #xCF))) utf8-tail-char utf8-tail-char)) (utf8-4-char . (seq (/ ,(integer->char (+ (char->integer #\space) #xD0)) ,(integer->char (+ (char->integer #\space) #xD7))) utf8-tail-char utf8-tail-char utf8-tail-char)) (utf8-any . (or ascii utf8-2-char utf8-3-char utf8-4-char)) (utf8-nonl . (or ascii-nonl utf8-2-char utf8-3-char utf8-4-char)) ;; extended library patterns (integer . (seq (? (or #\+ #\-)) (+ numeric))) (real . (seq (? (or #\+ #\-)) (+ numeric) (? #\. (+ numeric)) (? (or #\e #\E) integer))) ;; slightly more lax than R5RS, allow ->foo, etc. (symbol-initial . (or alpha ("!$%&*/:<=>?^_~"))) (symbol-subsequent . (or symbol-initial digit ("+-.@"))) (symbol . (or (seq symbol-initial (* symbol-subsequent)) (seq ("+-") (? symbol-initial (* symbol-subsequent))) (seq ".." (* ".")))) (sexp-space . (seq (* (* space) ";" (* nonl) newline) (+ space))) (string . (seq #\" (escape #\\ #\") #\")) (escape . ,(lambda (esc . o) `(* (or (~ ,esc ,@o) (seq ,esc any))))) (ipv4-digit . (seq (? (/ "12")) (? numeric) numeric)) (ipv4-address . (seq ipv4-digit (= 3 #\. ipv4-digit))) ;; XXXX lax, allows multiple double-colons or < 8 terms w/o a :: (ipv6-address . (seq (** 0 4 hex-digit) (** 1 7 #\: (? #\:) (** 0 4 hex-digit)))) (ip-address . (or ipv4-address ipv6-address)) (domain-atom . (+ (or alphanumeric #\_ #\-))) (domain . (seq domain-atom (+ #\. domain-atom))) ;; XXXX now anything can be a top-level domain, but this is still handy (top-level-domain . (w/nocase (or "arpa" "com" "gov" "mil" "net" "org" "aero" "biz" "coop" "info" "museum" "name" "pro" (= 2 alpha)))) (domain/common . (seq (+ domain-atom #\.) top-level-domain)) ;;(email-local-part . (seq (+ (or (~ #\") string)))) (email-local-part . (+ (or alphanumeric #\_ #\- #\. #\+))) (email . (seq email-local-part #\@ domain)) (url-char . (or alnum #\_ #\- #\+ #\\ #\= #\~ #\. #\, #\& #\; (seq "%" hex-digit hex-digit))) (url-final-char . (or alnum #\_ #\- #\+ #\\ #\= #\~ #\& (seq "%" hex-digit hex-digit))) (http-url . (w/nocase "http" (? "s") "://" (or domain/common ipv4-address) ;; (seq "[" ipv6-address "]") (? ":" (+ numeric)) ;; port ;; path (? "/" (* (or url-char "/")) (? "?" (* url-char)) ;; query (? "#" (? (* url-char) url-final-char)) ;; fragment ))) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; SRE->tNFA compilation ;; ;; A tagged NFA (tNFA) state is a numbered node with a list of ;; pattern->number transitions, where pattern is character set range, ;; or epsilon (indicating an empty transition). ;; ;; (Only) epsilon transitions may be *tagged*. Each tag represents ;; either the start or the end of a submatch. ;; ;; There may be overlapping ranges - since it's an NFA we process it ;; by considering all possible transitions. (define *nfa-presize* 128) ;; constant (define *nfa-num-fields* 4) ;; constant (define (nfa-num-states nfa) (quotient (vector-length nfa) *nfa-num-fields*)) (define (nfa-start-state nfa) (- (nfa-num-states nfa) 1)) (define (nfa-num-tags nfa) (vector-ref nfa 0)) (define (nfa-highest-map-index nfa) (vector-ref nfa 1)) (define (nfa-set-highest-map-index! nfa idx) (vector-set! nfa 1 idx)) (define (nfa-get-state-trans nfa i) (if (= i 0) '() (vector-ref nfa (* i *nfa-num-fields*)))) (define (nfa-set-state-trans! nfa i x) (vector-set! nfa (* i *nfa-num-fields*) x)) (define (nfa-get-epsilons nfa i) (if (= i 0) '() (vector-ref nfa (+ (* i *nfa-num-fields*) 1)))) (define (nfa-set-epsilons! nfa i x) (vector-set! nfa (+ (* i *nfa-num-fields*) 1) x)) (define (nfa-add-epsilon! nfa i x t) (let ((eps (nfa-get-epsilons nfa i))) (if (not (assv x eps)) (nfa-set-epsilons! nfa i (cons (cons x t) eps))))) (define (nfa-get-reorder-commands nfa mst) (cond ((assoc mst (vector-ref nfa (+ (* (mst-hash mst) *nfa-num-fields*) 2))) => cdr) (else #f))) (define (nfa-set-reorder-commands! nfa mst x) (let ((i (+ (* (mst-hash mst) *nfa-num-fields*) 2))) (vector-set! nfa i (cons (cons mst x) (vector-ref nfa i))))) (define (nfa-get-closure nfa mst) (cond ((assoc mst (vector-ref nfa (+ (* (mst-hash mst) *nfa-num-fields*) 3))) => cdr) (else #f))) (define (nfa-add-closure! nfa mst x) (let ((i (+ (* (mst-hash mst) *nfa-num-fields*) 3))) (vector-set! nfa i (cons (cons mst x) (vector-ref nfa i))))) ;; Compile and return the vector of NFA states (in groups of ;; *nfa-num-fields* packed elements). The start state will be the ;; last element(s) of the vector, and all remaining states will be in ;; descending numeric order, with state 0 being the unique accepting ;; state. (define (sre->nfa sre init-flags) (let* ((buf (make-vector (* *nfa-presize* *nfa-num-fields*) '())) ;; Get cons cells and map them to numeric submatch indexes. ;; Doing it here is slightly easier than integrating into the loop below (match-index (let lp ((sre (list sre)) (max 0) (res '())) (cond ((not (pair? sre)) ;; We abuse the transitions slot for state 0 (the final state, ;; which can have no transitions) to store the number of tags. (vector-set! buf 0 (* max 2)) ;; We abuse the epsilons slot for state 0 to store the highest ;; encountered memory slot mapping index. Initialize to -1. (vector-set! buf 1 -1) res) ((pair? (car sre)) ;; The appends here should be safe (are they?) (case (caar sre) (($ submatch => submatch-named) (lp (append (cdar sre) (cdr sre)) (+ max 1) (cons (cons (car sre) max) res))) (else (lp (append (car sre) (cdr sre)) max res)))) (else (lp (cdr sre) max res)))))) ;; we loop over an implicit sequence list (define (lp ls n flags next) (define (new-state-number state) (max n (+ 1 state))) (define (add-state! n2 trans-ls) (if (>= (* n2 *nfa-num-fields*) (vector-length buf)) (let ((tmp (make-vector (* 2 (vector-length buf)) '()))) (do ((i (- (vector-length buf) 1) (- i 1))) ((< i 0)) (vector-set! tmp i (vector-ref buf i))) (set! buf tmp))) (nfa-set-state-trans! buf n2 trans-ls) n2) (define (extend-state! next trans-cs) (and next (add-state! (new-state-number next) (cons trans-cs next)))) (define (add-char-state! next ch) (let ((alt (char-altcase ch))) (if (flag-set? flags ~case-insensitive?) (extend-state! next (cset-union (char->cset ch) (char->cset alt))) (extend-state! next (char->cset ch))))) (if (null? ls) next (cond ((or (eq? 'epsilon (car ls)) (equal? "" (car ls))) ;; chars and epsilons go directly into the transition table (let ((next (lp (cdr ls) n flags next))) (and next (let ((new (add-state! (new-state-number next) '()))) (nfa-add-epsilon! buf new next #f) new)))) ((string? (car ls)) ;; process literal strings a char at a time (let ((next (lp (cdr ls) n flags next))) (and next (let lp2 ((i (- (string-length (car ls)) 1)) (next next)) (if (< i 0) next (lp2 (- i 1) (add-char-state! next (string-ref (car ls) i)))) )))) ((char? (car ls)) (add-char-state! (lp (cdr ls) n flags next) (car ls))) ((symbol? (car ls)) (let ((cell (assq (car ls) sre-named-definitions))) (and cell (lp (cons (if (procedure? (cdr cell)) ((cdr cell)) (cdr cell)) (cdr ls)) n flags next)))) ((pair? (car ls)) (cond ((string? (caar ls)) ; Enumerated character set (let ((set (if (flag-set? flags ~case-insensitive?) (cset-case-insensitive (string->cset (caar ls))) (string->cset (caar ls))))) (extend-state! (lp (cdr ls) n flags next) set))) (else (case (caar ls) ((seq :) ;; for an explicit sequence, just append to the list (lp (append (cdar ls) (cdr ls)) n flags next)) ((w/case w/nocase w/utf8 w/noutf8) (let* ((next (lp (cdr ls) n flags next)) (flags ((if (memq (caar ls) '(w/case w/utf8)) flag-clear flag-join) flags (if (memq (caar ls) '(w/case w/nocase)) ~case-insensitive? ~utf8?)))) (and next (lp (cdar ls) (new-state-number next) flags next)))) ((/ - & ~) (let ((range (sre->cset (car ls) (flag-set? flags ~case-insensitive?)))) (extend-state! (lp (cdr ls) n flags next) range))) ((or) (let ((next (lp (cdr ls) n flags next))) (and next (if (null? (cdar ls)) ;; empty (or) always fails (add-state! (new-state-number next) '()) ;; compile both branches and insert epsilon ;; transitions to either (let* ((b (lp (list (sre-alternate (cddar ls))) (new-state-number next) flags next)) (a (and b (lp (list (cadar ls)) (new-state-number (max b next)) flags next)))) (and a (let ((c (add-state! (new-state-number a) '()))) (nfa-add-epsilon! buf c a #f) (nfa-add-epsilon! buf c b #f) c))))))) ((?) (let ((next (lp (cdr ls) n flags next))) ;; insert an epsilon transition directly to next (and next (let ((a (lp (cdar ls) (new-state-number next) flags next))) (if a (nfa-add-epsilon! buf a next #f)) a)))) ((+ *) (let ((next (lp (cdr ls) n flags next))) (and next (let* ((new (lp '(epsilon) (new-state-number next) flags next)) (a (lp (cdar ls) (new-state-number new) flags new))) (cond (a ;; for *, insert an epsilon transition as in ? above (if (eq? '* (caar ls)) (nfa-add-epsilon! buf a new #f)) ;; for both, insert a loop back to self (nfa-add-epsilon! buf new a #f))) a)))) ;; need to add these to the match extractor first, ;; but they tend to generate large DFAs ;;((=) ;; (lp (append (vector->list ;; (make-vector (cadar ls) ;; (sre-sequence (cddar ls)))) ;; (cdr ls)) ;; n flags next)) ;;((>=) ;; (lp (append (vector->list ;; (make-vector (- (cadar ls) 1) ;; (sre-sequence (cddar ls)))) ;; (cons `(+ ,@(cddar ls)) (cdr ls))) ;; n flags next)) ;;((**) ;; (lp (append (vector->list ;; (make-vector (cadar ls) ;; (sre-sequence (cdddar ls)))) ;; (map ;; (lambda (x) `(? ,x)) ;; (vector->list ;; (make-vector (- (caddar ls) (cadar ls)) ;; (sre-sequence (cdddar ls))))) ;; (cdr ls)) ;; n flags next)) ;; ignore submatches altogether (($ submatch) (let* ((pre-tag (* (cdr (assq (car ls) match-index)) 2)) (post-tag (+ pre-tag 1)) (next (lp (cdr ls) n flags next))) (and next (let* ((after (add-state! (new-state-number next) '())) (sub (lp (list (sre-sequence (cdar ls))) (new-state-number after) flags after)) (before (and sub (add-state! (new-state-number sub) '())))) (cond (before (nfa-add-epsilon! buf before sub pre-tag) (nfa-add-epsilon! buf after next post-tag))) before)))) ((=> submatch-named) (let* ((pre-tag (* (cdr (assq (car ls) match-index)) 2)) (post-tag (+ pre-tag 1)) (next (lp (cdr ls) n flags next))) (and next (let* ((after (add-state! (new-state-number next) '())) (sub (lp (list (sre-sequence (cddar ls))) (new-state-number after) flags after)) (before (and sub (add-state! (new-state-number sub) '())))) (cond (before (nfa-add-epsilon! buf before sub pre-tag) (nfa-add-epsilon! buf after next post-tag))) before)))) (else (cond ((assq (caar ls) sre-named-definitions) => (lambda (cell) (if (procedure? (cdr cell)) (lp (cons (apply (cdr cell) (cdar ls)) (cdr ls)) n flags next) (error "non-procedure in op position" (caar ls))))) (else #f))))))) (else #f)))) (let ((len (lp (list sre) 1 init-flags 0))) (and len (let ((nfa (make-vector (* *nfa-num-fields* (+ len 1))))) (do ((i (- (vector-length nfa) 1) (- i 1))) ((< i 0)) (vector-set! nfa i (vector-ref buf i))) nfa))))) ;; We don't really want to use this, we use the closure compilation ;; below instead, but this is included for reference and testing the ;; sre->nfa conversion. ;; (define (nfa-match nfa str) ;; (let ((matches (make-vector (nfa-num-tags nfa) #f))) ;; (let lp ((pos 0) (ls (string->list str)) (state (nfa-start-state nfa)) (epsilons '())) ;; (and (or (and (null? ls) (zero? state)) ;; (let ((t (nfa-get-state-trans nfa state))) ;; (and (not (null? t)) (not (null? ls)) ;; (cset-contains? (car t) (car ls)) ;; (lp (+ pos 1) (cdr ls) (cdr t) '()))) ;; (any (lambda (e) ;; (let ((old-matches (vector-copy matches))) ;; (cond ((cdr e) ;; (vector-set! matches (cdr e) pos))) ;; (or (and (not (memv (car e) epsilons)) ;; (lp pos ls (car e) (cons (car e) epsilons))) ;; ;; reset match, apparently this branch failed ;; (begin (set! matches old-matches) #f)))) ;; (nfa-get-epsilons nfa state))) ;; matches)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; NFA multi-state representation (define *mst-first-state-index* 3) (define (mst-mappings-summary mst) (vector-ref mst 0)) (define (mst-num-states mst) (vector-ref mst 1)) (define (mst-num-states-set! mst num) (vector-set! mst 1 num)) (define (mst-hash mst) ;; We could do (modulo X (nfa-num-states nfa)) here which would be faster, ;; but we can't assume a full numerical tower (and updating *could* ;; produce a bignum), so we do it each time when updating the hash. (vector-ref mst 2)) (define (mst-hash-set! mst hash) (vector-set! mst 2 hash)) ;; Returns #f if NFA state does not occur in multi-state (define (mst-state-mappings mst state) (vector-ref mst (+ state *mst-first-state-index*))) (define (mst-state-mappings-set! mst state mappings) (vector-set! mst (+ state *mst-first-state-index*) mappings)) ;; A multi-state holds a set of states with their tag-to-slot mappings. ;; Slot 0 contains a summary of all mappings for all states in the multi-state. ;; Slot 1 contains the total number of states in the multi-state. ;; Slot 2 contains a hash value, which is used for quick lookup of cached ;; reorder-commands or epsilon-closure in the NFA. This is the sum of all ;; state numbers plus each tag value (once per occurrence). This is a silly ;; hashing calculation, but it seems to produce a well-spread out hash table and ;; it has the added advantage that we can use the value as a quick check if the ;; state is definitely NOT equivalent to another in mst-same-states? ;; The other slots contain mappings for each corresponding state. (define (make-mst nfa) (let ((mst (make-vector (+ (nfa-num-states nfa) *mst-first-state-index*) #f))) (vector-set! mst 0 (make-vector (nfa-num-tags nfa) '())) ; tag summary (vector-set! mst 1 0) ; total number of states (vector-set! mst 2 0) ; states and tags hash mst)) ;; NOTE: This doesn't do a deep copy of the mappings. Don't mutate them! (define (mst-copy mst) (let ((v (vector-copy mst))) (vector-set! v 0 (vector-copy (vector-ref mst 0))) v)) (define (nfa-state->mst nfa state mappings) (let ((mst (make-mst nfa))) (mst-add! nfa mst state mappings) mst)) ;; Extend multi-state with a state and add its tag->slot mappings. (define (mst-add! nfa mst state mappings) (let ((hash-value (mst-hash mst))) (cond ((not (mst-state-mappings mst state)) ; Update state hash & count? (set! hash-value (+ hash-value state)) (mst-num-states-set! mst (+ (mst-num-states mst) 1)))) (mst-state-mappings-set! mst state mappings) (let ((all-mappings (mst-mappings-summary mst))) (for-each (lambda (tag&slot) (let* ((t (car tag&slot)) (s (cdr tag&slot)) (m (vector-ref all-mappings t))) (cond ((not (memv s m)) (set! hash-value (+ hash-value t)) (vector-set! all-mappings t (cons s m)))))) mappings)) (mst-hash-set! mst (modulo hash-value (nfa-num-states nfa))))) ;; Same as above, but skip updating mappings summary. ;; Called when we know all the tag->slot mappings are already in the summary. (define (mst-add/fast! nfa mst state mappings) (cond ((not (mst-state-mappings mst state)) ; Update state hash & count? (mst-hash-set! mst (modulo (+ (mst-hash mst) state) (nfa-num-states nfa))) (mst-num-states-set! mst (+ (mst-num-states mst) 1)))) (mst-state-mappings-set! mst state mappings)) ;; Same as above, assigning a new slot for a tag. This slot is then ;; added to the summary, if it isn't in there yet. This is more efficient ;; than looping through all the mappings. (define (mst-add-tagged! nfa mst state mappings tag slot) (let* ((mappings-summary (mst-mappings-summary mst)) (summary-tag-slots (vector-ref mappings-summary tag)) (new-mappings (let lp ((m mappings) (res '())) (cond ((null? m) (cons (cons tag slot) res)) ((= (caar m) tag) (append res (cons (cons tag slot) (cdr m)))) (else (lp (cdr m) (cons (car m) res)))))) (hash-value (mst-hash mst))) (cond ((not (mst-state-mappings mst state)) ; Update state hash & count? (set! hash-value (+ hash-value state)) (mst-num-states-set! mst (+ (mst-num-states mst) 1)))) (mst-state-mappings-set! mst state new-mappings) (cond ((not (memv slot summary-tag-slots)) ; Update tag/slot summary (set! hash-value (+ hash-value tag)) (vector-set! mappings-summary tag (cons slot summary-tag-slots)))) (mst-hash-set! mst (modulo hash-value (nfa-num-states nfa))) new-mappings)) (define (mst-same-states? a b) ;; First check if hash and state counts match, then check each state (and (= (mst-hash a) (mst-hash b)) (= (mst-num-states a) (mst-num-states b)) (let ((len (vector-length a))) (let lp ((i *mst-first-state-index*)) (or (= i len) (and (equal? (not (vector-ref a i)) (not (vector-ref b i))) (lp (+ i 1)))))))) (define (mst-fold mst kons knil) (let ((limit (vector-length mst))) (let lp ((i *mst-first-state-index*) (acc knil)) (if (= i limit) acc (let ((m (vector-ref mst i))) (lp (+ i 1) (if m (kons (- i *mst-first-state-index*) m acc) acc))))))) ;; Find the lowest fresh index for this tag that's unused ;; in the multi-state. This also updates the nfa's highest ;; tag counter if a completely new slot number was assigned. (define (next-index-for-tag! nfa tag mst) (let* ((highest (nfa-highest-map-index nfa)) (tag-slots (vector-ref (mst-mappings-summary mst) tag)) (new-index (do ((slot 0 (+ slot 1))) ((not (memv slot tag-slots)) slot)))) (cond ((> new-index highest) (nfa-set-highest-map-index! nfa new-index))) new-index)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; tNFA->DFA compilation ;; During processing, the DFA is a list of the form: ;; ;; ((annotated-tNFA-states ...) finalizer transitions ...) ;; ;; where the transitions are as in the NFA, except there are no ;; epsilons, duplicate characters or overlapping char-set ranges, and ;; the states moved to are closures (sets of NFA states). Multiple ;; DFA states may be accepting states. If the state is an accepting state, ;; the finalizer is a list of (tag . memory-slot) retrieval commands. ;; tNFA-states are annotated with mappings which store the tag values of ;; memory slots, if any. There is always at most one slot for a tag. ;; ;; The DFA itself simulates a NFA by representing all the simultaneous ;; states the NFA can be in at any given point in time as one DFA state. ;; The tag values are ambiguous since each NFA transition can set a tag. ;; To solve this we keep a bank of memory slots around which tracks tag ;; values for each distinct path through the NFA. ;; ;; Once we get to a final state we can pluck the tag values from the ;; memory slots corresponding to the path through which the NFA could have ;; reached the final state. To resolve ambiguities, states are assigned ;; priorities, and the path to the final state is chosen correspondingly. ;; ;; For a more detailed explanation about this process, see ;; Ville Laurikari; ``NFAs with Tagged Transitions, their Conversion to ;; Deterministic Automata and Application to Regular Expressions'' (2000). ;; Laurikari also wrote a master's thesis about this approach which is ;; less terse but the algorithms are not exactly the same. ;; ``Efficient submatch addressing for regular expressions'' (2001). ;; This implementation follows the 2000 paper where they differ. (define (nfa->dfa nfa . o) (let* ((max-states (and (pair? o) (car o))) (start (nfa-state->mst nfa (nfa-start-state nfa) '())) (start-closure (nfa-epsilon-closure nfa start)) ;; Set up a special "initializer" state from which we reach the ;; start-closure to ensure that leading tags are set properly. (init-set (tag-set-commands-for-closure nfa start start-closure '())) (dummy (make-mst nfa)) (init-state (list dummy #f `((,start-closure #f () . ,init-set))))) ;; Unmarked states are just sets of NFA states with tag-maps, marked states ;; are sets of NFA states with transitions to sets of NFA states (let lp ((unmarked-states (list start-closure)) (marked-states (list init-state)) (dfa-size 0)) (cond ((null? unmarked-states) ;; Abuse finalizer slot for storing the number of memory slots we need (set-car! (cdr init-state) (+ (nfa-highest-map-index nfa) 1)) (dfa-renumber (reverse marked-states))) ((and max-states (> dfa-size max-states)) ; Too many DFA states #f) ((assoc (car unmarked-states) marked-states) ; Seen set of NFA-states? (lp (cdr unmarked-states) marked-states dfa-size)) (else (let ((dfa-state (car unmarked-states))) (let lp2 ((trans (get-distinct-transitions nfa dfa-state)) (unmarked-states (cdr unmarked-states)) (dfa-trans '())) (if (null? trans) (let ((finalizer (mst-state-mappings dfa-state 0))) (lp unmarked-states (cons (list dfa-state finalizer dfa-trans) marked-states) (+ dfa-size 1))) (let* ((closure (nfa-epsilon-closure nfa (cdar trans))) (reordered (find-reorder-commands nfa closure marked-states)) (copy-cmds (if reordered (cdr reordered) '())) ;; Laurikari doesn't mention what "k" is, but it seems it ;; must be the mappings of the state's reach (set-cmds (tag-set-commands-for-closure nfa (cdar trans) closure copy-cmds)) (trans-closure (if reordered (car reordered) closure))) (lp2 (cdr trans) (if reordered unmarked-states (cons trans-closure unmarked-states)) (cons `(,trans-closure ,(caar trans) ,copy-cmds . ,set-cmds) dfa-trans))))))))))) ;; When the conversion is complete we renumber the DFA sets-of-states ;; in order and convert the result to a vector for fast lookup. ;; Charsets containing single characters are converted to those characters ;; for quick matching of the literal parts in a regex. (define (dfa-renumber states) (let ((indexes (let lp ((i 0) (states states) (indexes '())) (if (null? states) indexes (lp (+ i 1) (cdr states) (cons (cons (caar states) i) indexes))))) (dfa (make-vector (length states)))) (do ((i 0 (+ i 1)) (states states (cdr states))) ((null? states) dfa) (let ((maybe-finalizer (cadar states)) (transitions (caddar states))) (vector-set! dfa i (cons maybe-finalizer (map (lambda (tr) `(,(and (cadr tr) (maybe-cset->char (cadr tr))) ,(cdr (assoc (car tr) indexes)) . ,(cddr tr))) transitions))))))) ;; Extract all distinct ranges and the potential states they can transition ;; to from a given set of states. Any ranges that would overlap with ;; distinct characters are split accordingly. ;; This function is like "reach" in Laurikari's papers, but for each ;; possible distinct range of characters rather than per character. (define (get-distinct-transitions nfa annotated-states) (define (csets-intersect? a b) (let ((i (cset-intersection a b))) (and (not (cset-empty? i)) i))) (mst-fold annotated-states (lambda (st mappings res) (let ((trans (nfa-get-state-trans nfa st))) ; Always one state per trans (if (null? trans) res (let lp ((ls res) (cs (car trans)) (state (cdr trans)) (res '())) (cond ;; State not seen yet? Add a new state transition ((null? ls) ;; TODO: We should try to find an existing DFA state ;; with only this NFA state in it, and extend the cset ;; with the current one. This produces smaller DFAs, ;; but takes longer to compile. (cons (cons cs (nfa-state->mst nfa state mappings)) res)) ((cset=? cs (caar ls)) ;; Add state to existing set for this charset (mst-add! nfa (cdar ls) state mappings) (append ls res)) ((csets-intersect? cs (caar ls)) => (lambda (intersection) (let* ((only-in-new (cset-difference cs (caar ls))) (only-in-old (cset-difference (caar ls) cs)) (states-in-both (cdar ls)) (states-for-old (and (not (cset-empty? only-in-old)) (mst-copy states-in-both))) (res (if states-for-old (cons (cons only-in-old states-for-old) res) res))) (mst-add! nfa states-in-both state mappings) ;; Add this state to the states already here and ;; restrict to the overlapping charset and continue ;; with the remaining subset of the new cset (if ;; nonempty) (if (cset-empty? only-in-new) (cons (cons intersection states-in-both) (append (cdr ls) res)) (lp (cdr ls) only-in-new state (cons (cons intersection states-in-both) res)))))) (else (lp (cdr ls) cs state (cons (car ls) res)))))))) '())) ;; The epsilon-closure of a set of states is all the states reachable ;; through epsilon transitions, with the tags encountered on the way. (define (nfa-epsilon-closure-internal nfa annotated-states) ;; The stack _MUST_ be in this order for some reason I don't fully understand (let lp ((stack (mst-fold annotated-states (lambda (st m res) (cons (cons st m) res)) '())) (priorities (make-vector (nfa-num-states nfa) 0)) (closure (mst-copy annotated-states))) (if (null? stack) closure (let ((prio/orig-state (caar stack)) ; priority is just the state nr. (mappings (cdar stack))) (let lp2 ((trans (nfa-get-epsilons nfa prio/orig-state)) (stack (cdr stack))) (if (null? trans) (lp stack priorities closure) (let ((state (caar trans))) (cond ;; Our priorities are inverted because we start at ;; the highest state number and go downwards to 0. ((> prio/orig-state (vector-ref priorities state)) (vector-set! priorities state prio/orig-state) (cond ((cdar trans) => ; tagged transition? (lambda (tag) (let* ((index (next-index-for-tag! nfa tag closure)) (new-mappings (mst-add-tagged! nfa closure state mappings tag index))) (lp2 (cdr trans) (cons (cons state new-mappings) stack))))) (else (mst-add/fast! nfa closure state mappings) (lp2 (cdr trans) (cons (cons state mappings) stack))))) (else (lp2 (cdr trans) stack)))))))))) (define (nfa-epsilon-closure nfa states) (or (nfa-get-closure nfa states) (let ((res (nfa-epsilon-closure-internal nfa states))) (nfa-add-closure! nfa states res) res))) ;; Generate "set" commands for all tags in the closure that are ;; not present in the original state. (define (tag-set-commands-for-closure nfa orig-state closure copy-cmds) (let ((num-tags (nfa-num-tags nfa)) (closure-summary (mst-mappings-summary closure)) (state-summary (mst-mappings-summary orig-state))) (let lp ((t 0) (cmds '())) (if (= t num-tags) cmds (let lp2 ((s1 (vector-ref closure-summary t)) (s2 (vector-ref state-summary t)) (cmds cmds)) (cond ((null? s1) (lp (+ t 1) cmds)) ((or (memv (car s1) s2) ; Tag in original state? ;; Try to avoid generating set-commands for any slots ;; that will be overwritten by copy commands, but only ;; if that slot isn't copied to another slot. (and (not (null? copy-cmds)) ; null check for performance ;; Look for copy command overwriting this tag-slot (any (lambda (c) (and (= (vector-ref c 0) t) (= (vector-ref c 2) (car s1)))) copy-cmds) ;; Ensure it's not copied to another slot before ;; discarding the set-command. (not (any (lambda (c) (and (= (vector-ref c 0) t) (= (vector-ref c 1) (car s1)))) copy-cmds)))) (lp2 (cdr s1) s2 cmds)) (else (lp2 (cdr s1) s2 (cons (cons t (car s1)) cmds))))))))) ;; Look in dfa-states for an already existing state which matches ;; closure, but has different tag value mappings. ;; If found, calculate reordering commands so we can map the closure ;; to that state instead of adding a new DFA state. ;; This is completely handwaved away in Laurikari's paper (it basically ;; says "insert reordering algorithm here"), so this code was constructed ;; after some experimentation. In other words, bugs be here. (define (find-reorder-commands-internal nfa closure dfa-states) (let ((num-tags (nfa-num-tags nfa)) (closure-summary (mst-mappings-summary closure))) (let lp ((dfa-states dfa-states)) (if (null? dfa-states) #f (if (not (mst-same-states? (caar dfa-states) closure)) (lp (cdr dfa-states)) (let lp2 ((state-summary (mst-mappings-summary (caar dfa-states))) (t 0) (cmds '())) (if (= t num-tags) (cons (caar dfa-states) cmds) (let lp3 ((closure-slots (vector-ref closure-summary t)) (state-slots (vector-ref state-summary t)) (cmds cmds)) (cond ((null? closure-slots) (if (null? state-slots) (lp2 state-summary (+ t 1) cmds) (lp (cdr dfa-states)))) ((null? state-slots) (lp (cdr dfa-states))) (else (lp3 (cdr closure-slots) (cdr state-slots) (if (= (car closure-slots) (car state-slots)) cmds (cons (vector t (car closure-slots) (car state-slots)) cmds))))))))))))) (define (find-reorder-commands nfa closure dfa-states) (or (nfa-get-reorder-commands nfa closure) (let ((res (find-reorder-commands-internal nfa closure dfa-states))) (nfa-set-reorder-commands! nfa closure res) res))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Closure Compilation ;; ;; We use this for non-regular expressions instead of an interpreted ;; NFA matcher. We use backtracking anyway, but this gives us more ;; freedom of implementation, allowing us to support patterns that ;; can't be represented in the above NFA representation. (define (sre->procedure sre . o) (define names (if (and (pair? o) (pair? (cdr o))) (cadr o) (sre-names sre 1 '()))) (let lp ((sre sre) (n 1) (flags (if (pair? o) (car o) ~none)) (next (lambda (cnk init src str i end matches fail) (irregex-match-start-chunk-set! matches 0 (car init)) (irregex-match-start-index-set! matches 0 (cdr init)) (irregex-match-end-chunk-set! matches 0 src) (irregex-match-end-index-set! matches 0 i) (%irregex-match-fail-set! matches fail) matches))) ;; XXXX this should be inlined (define (rec sre) (lp sre n flags next)) (cond ((pair? sre) (if (string? (car sre)) (sre-cset->procedure (sre->cset (car sre) (flag-set? flags ~case-insensitive?)) next) (case (car sre) ((~ - & /) (sre-cset->procedure (sre->cset sre (flag-set? flags ~case-insensitive?)) next)) ((or) (case (length (cdr sre)) ((0) (lambda (cnk init src str i end matches fail) (fail))) ((1) (rec (cadr sre))) (else (let* ((first (rec (cadr sre))) (rest (lp (sre-alternate (cddr sre)) (+ n (sre-count-submatches (cadr sre))) flags next))) (lambda (cnk init src str i end matches fail) (first cnk init src str i end matches (lambda () (rest cnk init src str i end matches fail)))))))) ((w/case) (lp (sre-sequence (cdr sre)) n (flag-clear flags ~case-insensitive?) next)) ((w/nocase) (lp (sre-sequence (cdr sre)) n (flag-join flags ~case-insensitive?) next)) ((w/utf8) (lp (sre-sequence (cdr sre)) n (flag-join flags ~utf8?) next)) ((w/noutf8) (lp (sre-sequence (cdr sre)) n (flag-clear flags ~utf8?) next)) ((seq :) (case (length (cdr sre)) ((0) next) ((1) (rec (cadr sre))) (else (let ((rest (lp (sre-sequence (cddr sre)) (+ n (sre-count-submatches (cadr sre))) flags next))) (lp (cadr sre) n flags rest))))) ((?) (let ((body (rec (sre-sequence (cdr sre))))) (lambda (cnk init src str i end matches fail) (body cnk init src str i end matches (lambda () (next cnk init src str i end matches fail)))))) ((??) (let ((body (rec (sre-sequence (cdr sre))))) (lambda (cnk init src str i end matches fail) (next cnk init src str i end matches (lambda () (body cnk init src str i end matches fail)))))) ((*) (cond ((sre-empty? (sre-sequence (cdr sre))) (error "invalid sre: empty *" sre)) (else (let ((body (rec (list '+ (sre-sequence (cdr sre)))))) (lambda (cnk init src str i end matches fail) (body cnk init src str i end matches (lambda () (next cnk init src str i end matches fail)))))))) ((*?) (cond ((sre-empty? (sre-sequence (cdr sre))) (error "invalid sre: empty *?" sre)) (else (letrec ((body (lp (sre-sequence (cdr sre)) n flags (lambda (cnk init src str i end matches fail) (next cnk init src str i end matches (lambda () (body cnk init src str i end matches fail) )))))) (lambda (cnk init src str i end matches fail) (next cnk init src str i end matches (lambda () (body cnk init src str i end matches fail)))))))) ((+) (cond ((sre-empty? (sre-sequence (cdr sre))) (error "invalid sre: empty +" sre)) (else (letrec ((body (lp (sre-sequence (cdr sre)) n flags (lambda (cnk init src str i end matches fail) (body cnk init src str i end matches (lambda () (next cnk init src str i end matches fail) )))))) body)))) ((=) (rec `(** ,(cadr sre) ,(cadr sre) ,@(cddr sre)))) ((>=) (rec `(** ,(cadr sre) #f ,@(cddr sre)))) ((**) (cond ((or (and (number? (cadr sre)) (number? (caddr sre)) (> (cadr sre) (caddr sre))) (and (not (cadr sre)) (caddr sre))) (lambda (cnk init src str i end matches fail) (fail))) (else (letrec ((from (cadr sre)) (to (caddr sre)) (body-contents (sre-sequence (cdddr sre))) (body (lambda (count) (lp body-contents n flags (lambda (cnk init src str i end matches fail) (if (and to (= count to)) (next cnk init src str i end matches fail) ((body (+ 1 count)) cnk init src str i end matches (lambda () (if (>= count from) (next cnk init src str i end matches fail) (fail)))))))))) (if (and (zero? from) to (zero? to)) next (lambda (cnk init src str i end matches fail) ((body 1) cnk init src str i end matches (lambda () (if (zero? from) (next cnk init src str i end matches fail) (fail)))))))))) ((**?) (cond ((or (and (number? (cadr sre)) (number? (caddr sre)) (> (cadr sre) (caddr sre))) (and (not (cadr sre)) (caddr sre))) (lambda (cnk init src str i end matches fail) (fail))) (else (letrec ((from (cadr sre)) (to (caddr sre)) (body-contents (sre-sequence (cdddr sre))) (body (lambda (count) (lp body-contents n flags (lambda (cnk init src str i end matches fail) (if (< count from) ((body (+ 1 count)) cnk init src str i end matches fail) (next cnk init src str i end matches (lambda () (if (and to (= count to)) (fail) ((body (+ 1 count)) cnk init src str i end matches fail)))))))))) (if (and (zero? from) to (zero? to)) next (lambda (cnk init src str i end matches fail) (if (zero? from) (next cnk init src str i end matches (lambda () ((body 1) cnk init src str i end matches fail))) ((body 1) cnk init src str i end matches fail)))))))) ((word) (rec `(seq bow ,@(cdr sre) eow))) ((word+) (rec `(seq bow (+ (& (or alphanumeric "_") (or ,@(cdr sre)))) eow))) ((posix-string) (rec (string->sre (cadr sre)))) ((look-ahead) (let ((check (lp (sre-sequence (cdr sre)) n flags (lambda (cnk init src str i end matches fail) i)))) (lambda (cnk init src str i end matches fail) (if (check cnk init src str i end matches (lambda () #f)) (next cnk init src str i end matches fail) (fail))))) ((neg-look-ahead) (let ((check (lp (sre-sequence (cdr sre)) n flags (lambda (cnk init src str i end matches fail) i)))) (lambda (cnk init src str i end matches fail) (if (check cnk init src str i end matches (lambda () #f)) (fail) (next cnk init src str i end matches fail))))) ((look-behind neg-look-behind) (let ((check (lp (sre-sequence (cons '(* any) (append (cdr sre) '(eos)))) n flags (lambda (cnk init src str i end matches fail) i)))) (lambda (cnk init src str i end matches fail) (let* ((cnk* (wrap-end-chunker cnk src i)) (str* ((chunker-get-str cnk*) (car init))) (i* (cdr init)) (end* ((chunker-get-end cnk*) (car init)))) (if ((if (eq? (car sre) 'look-behind) (lambda (x) x) not) (check cnk* init (car init) str* i* end* matches (lambda () #f))) (next cnk init src str i end matches fail) (fail)))))) ((atomic) (let ((once (lp (sre-sequence (cdr sre)) n flags (lambda (cnk init src str i end matches fail) i)))) (lambda (cnk init src str i end matches fail) (let ((j (once cnk init src str i end matches (lambda () #f)))) (if j (next cnk init src str j end matches fail) (fail)))))) ((if) (let* ((test-submatches (sre-count-submatches (cadr sre))) (pass (lp (caddr sre) flags (+ n test-submatches) next)) (fail (if (pair? (cdddr sre)) (lp (cadddr sre) (+ n test-submatches (sre-count-submatches (caddr sre))) flags next) (lambda (cnk init src str i end matches fail) (fail))))) (cond ((or (number? (cadr sre)) (symbol? (cadr sre))) (let ((index (if (symbol? (cadr sre)) (cond ((assq (cadr sre) names) => cdr) (else (error "unknown named backref in SRE IF" sre))) (cadr sre)))) (lambda (cnk init src str i end matches fail2) (if (%irregex-match-end-chunk matches index) (pass cnk init src str i end matches fail2) (fail cnk init src str i end matches fail2))))) (else (let ((test (lp (cadr sre) n flags pass))) (lambda (cnk init src str i end matches fail2) (test cnk init src str i end matches (lambda () (fail cnk init src str i end matches fail2))) )))))) ((backref backref-ci) (let ((n (cond ((number? (cadr sre)) (cadr sre)) ((assq (cadr sre) names) => cdr) (else (error "unknown backreference" (cadr sre))))) (compare (if (or (eq? (car sre) 'backref-ci) (flag-set? flags ~case-insensitive?)) string-ci=? string=?))) (lambda (cnk init src str i end matches fail) (let ((s (irregex-match-substring matches n))) (if (not s) (fail) ;; XXXX create an abstract subchunk-compare (let lp ((src src) (str str) (i i) (end end) (j 0) (len (string-length s))) (cond ((<= len (- end i)) (cond ((compare (substring s j (string-length s)) (substring str i (+ i len))) (next cnk init src str (+ i len) end matches fail)) (else (fail)))) (else (cond ((compare (substring s j (+ j (- end i))) (substring str i end)) (let ((src2 ((chunker-get-next cnk) src))) (if src2 (lp src2 ((chunker-get-str cnk) src2) ((chunker-get-start cnk) src2) ((chunker-get-end cnk) src2) (+ j (- end i)) (- len (- end i))) (fail)))) (else (fail))))))))))) ((dsm) (lp (sre-sequence (cdddr sre)) (+ n (cadr sre)) flags next)) (($ submatch) (let ((body (lp (sre-sequence (cdr sre)) (+ n 1) flags (lambda (cnk init src str i end matches fail) (let ((old-source (%irregex-match-end-chunk matches n)) (old-index (%irregex-match-end-index matches n))) (irregex-match-end-chunk-set! matches n src) (irregex-match-end-index-set! matches n i) (next cnk init src str i end matches (lambda () (irregex-match-end-chunk-set! matches n old-source) (irregex-match-end-index-set! matches n old-index) (fail)))))))) (lambda (cnk init src str i end matches fail) (let ((old-source (%irregex-match-start-chunk matches n)) (old-index (%irregex-match-start-index matches n))) (irregex-match-start-chunk-set! matches n src) (irregex-match-start-index-set! matches n i) (body cnk init src str i end matches (lambda () (irregex-match-start-chunk-set! matches n old-source) (irregex-match-start-index-set! matches n old-index) (fail))))))) ((=> submatch-named) (rec `(submatch ,@(cddr sre)))) (else (error "unknown regexp operator" sre))))) ((symbol? sre) (case sre ((any) (lambda (cnk init src str i end matches fail) (if (< i end) (next cnk init src str (+ i 1) end matches fail) (let ((src2 ((chunker-get-next cnk) src))) (if src2 (let ((str2 ((chunker-get-str cnk) src2)) (i2 ((chunker-get-start cnk) src2)) (end2 ((chunker-get-end cnk) src2))) (next cnk init src2 str2 (+ i2 1) end2 matches fail)) (fail)))))) ((nonl) (lambda (cnk init src str i end matches fail) (if (< i end) (if (not (eqv? #\newline (string-ref str i))) (next cnk init src str (+ i 1) end matches fail) (fail)) (let ((src2 ((chunker-get-next cnk) src))) (if src2 (let ((str2 ((chunker-get-str cnk) src2)) (i2 ((chunker-get-start cnk) src2)) (end2 ((chunker-get-end cnk) src2))) (if (not (eqv? #\newline (string-ref str2 i2))) (next cnk init src2 str2 (+ i2 1) end2 matches fail) (fail))) (fail)))))) ((bos) (lambda (cnk init src str i end matches fail) (if (and (eq? src (car init)) (eqv? i (cdr init))) (next cnk init src str i end matches fail) (fail)))) ((bol) (lambda (cnk init src str i end matches fail) (if (or (and (eq? src (car init)) (eqv? i (cdr init))) (and (> i ((chunker-get-start cnk) src)) (eqv? #\newline (string-ref str (- i 1))))) (next cnk init src str i end matches fail) (fail)))) ((bow) (lambda (cnk init src str i end matches fail) (if (and (if (> i ((chunker-get-start cnk) src)) (not (char-alphanumeric? (string-ref str (- i 1)))) (let ((ch (chunker-prev-char cnk init src))) (or (not ch) (not (char-alphanumeric? ch))))) (if (< i end) (char-alphanumeric? (string-ref str i)) (let ((next ((chunker-get-next cnk) src))) (and next (char-alphanumeric? (string-ref ((chunker-get-str cnk) next) ((chunker-get-start cnk) next))))))) (next cnk init src str i end matches fail) (fail)))) ((eos) (lambda (cnk init src str i end matches fail) (if (and (>= i end) (not ((chunker-get-next cnk) src))) (next cnk init src str i end matches fail) (fail)))) ((eol) (lambda (cnk init src str i end matches fail) (if (if (< i end) (eqv? #\newline (string-ref str i)) (let ((src2 ((chunker-get-next cnk) src))) (if (not src2) #t (eqv? #\newline (string-ref ((chunker-get-str cnk) src2) ((chunker-get-start cnk) src2)))))) (next cnk init src str i end matches fail) (fail)))) ((eow) (lambda (cnk init src str i end matches fail) (if (and (if (< i end) (not (char-alphanumeric? (string-ref str i))) (let ((ch (chunker-next-char cnk src))) (or (not ch) (not (char-alphanumeric? ch))))) (if (> i ((chunker-get-start cnk) src)) (char-alphanumeric? (string-ref str (- i 1))) (let ((prev (chunker-prev-char cnk init src))) (or (not prev) (char-alphanumeric? prev))))) (next cnk init src str i end matches fail) (fail)))) ((nwb) ;; non-word-boundary (lambda (cnk init src str i end matches fail) (let ((c1 (if (< i end) (string-ref str i) (chunker-next-char cnk src))) (c2 (if (> i ((chunker-get-start cnk) src)) (string-ref str (- i 1)) (chunker-prev-char cnk init src)))) (if (and c1 c2 (if (char-alphanumeric? c1) (char-alphanumeric? c2) (not (char-alphanumeric? c2)))) (next cnk init src str i end matches fail) (fail))))) ((epsilon) next) (else (let ((cell (assq sre sre-named-definitions))) (if cell (rec (cdr cell)) (error "unknown regexp" sre)))))) ((char? sre) (if (flag-set? flags ~case-insensitive?) ;; case-insensitive (lambda (cnk init src str i end matches fail) (if (>= i end) (let lp ((src2 ((chunker-get-next cnk) src))) (if src2 (let ((str2 ((chunker-get-str cnk) src2)) (i2 ((chunker-get-start cnk) src2)) (end2 ((chunker-get-end cnk) src2))) (if (>= i2 end2) (lp ((chunker-get-next cnk) src2)) (if (char-ci=? sre (string-ref str2 i2)) (next cnk init src2 str2 (+ i2 1) end2 matches fail) (fail)))) (fail))) (if (char-ci=? sre (string-ref str i)) (next cnk init src str (+ i 1) end matches fail) (fail)))) ;; case-sensitive (lambda (cnk init src str i end matches fail) (if (>= i end) (let lp ((src2 ((chunker-get-next cnk) src))) (if src2 (let ((str2 ((chunker-get-str cnk) src2)) (i2 ((chunker-get-start cnk) src2)) (end2 ((chunker-get-end cnk) src2))) (if (>= i2 end2) (lp ((chunker-get-next cnk) src2)) (if (char=? sre (string-ref str2 i2)) (next cnk init src2 str2 (+ i2 1) end2 matches fail) (fail)))) (fail))) (if (char=? sre (string-ref str i)) (next cnk init src str (+ i 1) end matches fail) (fail)))) )) ((string? sre) (rec (sre-sequence (string->list sre))) ;; XXXX reintroduce faster string matching on chunks ;; (if (flag-set? flags ~case-insensitive?) ;; (rec (sre-sequence (string->list sre))) ;; (let ((len (string-length sre))) ;; (lambda (cnk init src str i end matches fail) ;; (if (and (<= (+ i len) end) ;; (%substring=? sre str 0 i len)) ;; (next str (+ i len) matches fail) ;; (fail))))) ) (else (error "unknown regexp" sre))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Character Sets ;; ;; Simple character sets as lists of ranges, as used in the NFA/DFA ;; compilation. This is not especially efficient, but is portable and ;; scalable for any range of character sets. (define (sre-cset->procedure cset next) (lambda (cnk init src str i end matches fail) (if (< i end) (if (cset-contains? cset (string-ref str i)) (next cnk init src str (+ i 1) end matches fail) (fail)) (let ((src2 ((chunker-get-next cnk) src))) (if src2 (let ((str2 ((chunker-get-str cnk) src2)) (i2 ((chunker-get-start cnk) src2)) (end2 ((chunker-get-end cnk) src2))) (if (cset-contains? cset (string-ref str2 i2)) (next cnk init src2 str2 (+ i2 1) end2 matches fail) (fail))) (fail)))))) (define (make-cset) (vector)) (define (range->cset from to) (vector (cons from to))) (define (char->cset ch) (vector (cons ch ch))) (define (cset-empty? cs) (zero? (vector-length cs))) (define (maybe-cset->char cs) (if (and (= (vector-length cs) 1) (char=? (car (vector-ref cs 0)) (cdr (vector-ref cs 0)))) (car (vector-ref cs 0)) cs)) ;; Since csets are sorted, there's only one possible representation of any cset (define cset=? equal?) (define (cset-size cs) (let ((len (vector-length cs))) (let lp ((i 0) (size 0)) (if (= i len) size (lp (+ i 1) (+ size 1 (- (char->integer (cdr (vector-ref cs i))) (char->integer (car (vector-ref cs i)))))))))) (define (cset->plist cs) (let lp ((i (- (vector-length cs) 1)) (res '())) (if (= i -1) res (lp (- i 1) (cons (car (vector-ref cs i)) (cons (cdr (vector-ref cs i)) res)))))) (define (plist->cset ls) (let lp ((ls ls) (res (make-cset))) (if (null? ls) res (lp (cddr ls) (cset-union (range->cset (car ls) (cadr ls)) res))))) (define (string->cset s) (fold (lambda (ch cs) (cset-adjoin cs ch)) (make-cset) (string->list s))) (define (sre->cset sre . o) (let lp ((sre sre) (ci? (and (pair? o) (car o)))) (define (rec sre) (lp sre ci?)) (cond ((pair? sre) (if (string? (car sre)) (if ci? (cset-case-insensitive (string->cset (car sre))) (string->cset (car sre))) (case (car sre) ((~) (cset-complement (fold cset-union (rec (cadr sre)) (map rec (cddr sre))))) ((&) (fold cset-intersection (rec (cadr sre)) (map rec (cddr sre)))) ((-) (fold (lambda (x res) (cset-difference res x)) (rec (cadr sre)) (map rec (cddr sre)))) ((/) (let ((res (plist->cset (sre-flatten-ranges (cdr sre))))) (if ci? (cset-case-insensitive res) res))) ((or) (fold cset-union (rec (cadr sre)) (map rec (cddr sre)))) ((w/case) (lp (sre-alternate (cdr sre)) #f)) ((w/nocase) (lp (sre-alternate (cdr sre)) #t)) (else (error "not a valid sre char-set operator" sre))))) ((char? sre) (if ci? (cset-case-insensitive (range->cset sre sre)) (range->cset sre sre))) ((string? sre) (rec (list sre))) (else (let ((cell (assq sre sre-named-definitions))) (if cell (rec (cdr cell)) (error "not a valid sre char-set" sre))))))) (define (cset->sre cset) (cons '/ (fold (lambda (x res) (cons (car x) (cons (cdr x) res))) '() (vector->list cset)))) (define (cset-contains? cset ch) ;; CHICKEN: Type assumption added for performance. This is a very ;; hot code path, so every type improvement matters. (assume ((cset (vector-of (pair char char))) (ch char)) (let ((len (vector-length cset))) (case len ((0) #f) ((1) (let ((range (vector-ref cset 0))) (and (char<=? ch (cdr range)) (char<=? (car range) ch)))) (else (let lp ((lower 0) (upper len)) (let* ((middle (quotient (+ upper lower) 2)) (range (vector-ref cset middle))) (cond ((char<? (cdr range) ch) (let ((next (+ middle 1))) (and (< next upper) (lp next upper)))) ((char<? ch (car range)) (and (< lower middle) (lp lower middle))) (else #t))))))))) (define (char-ranges-union a b) (cons (if (char<=? (car a) (car b)) (car a) (car b)) (if (char>=? (cdr a) (cdr b)) (cdr a) (cdr b)))) (define (cset-union a b) (let union-range ((a (vector->list a)) (b (vector->list b)) (res '())) (cond ((null? a) (list->vector (reverse (append (reverse b) res)))) ((null? b) (list->vector (reverse (append (reverse a) res)))) (else (let ((a-range (car a)) (b-range (car b))) (cond ;; Can't use next-char here since it will cause an error if we are ;; comparing a cset with the maximum character as high char. ((< (+ (char->integer (cdr a-range)) 1) (char->integer (car b-range))) (union-range (cdr a) b (cons a-range res))) ((> (char->integer (car a-range)) (+ (char->integer (cdr b-range)) 1)) (union-range (cdr b) a (cons b-range res))) ((char>=? (cdr a-range) (car b-range)) (union-range (cons (char-ranges-union a-range b-range) (cdr a)) (cdr b) res)) (else (union-range (cdr a) (cons (char-ranges-union a-range b-range) (cdr b)) res)))))))) (define (cset-adjoin cs ch) (cset-union cs (char->cset ch))) (define (next-char c) (integer->char (+ (char->integer c) 1))) (define (prev-char c) (integer->char (- (char->integer c) 1))) (define (cset-difference a b) (let diff ((a (vector->list a)) (b (vector->list b)) (res '())) (cond ((null? a) (list->vector (reverse res))) ((null? b) (list->vector (append (reverse res) a))) (else (let ((a-range (car a)) (b-range (car b))) (cond ((char<? (cdr a-range) (car b-range)) (diff (cdr a) b (cons a-range res))) ((char>? (car a-range) (cdr b-range)) (diff a (cdr b) res)) ((and (char<=? (car b-range) (car a-range)) (char>=? (cdr b-range) (cdr a-range))) (diff (cdr a) b res)) (else (let ((left (and (char<? (car a-range) (car b-range)) (cons (car a-range) (prev-char (car b-range))))) (right (and (char>? (cdr a-range) (cdr b-range)) (cons (next-char (cdr b-range)) (cdr a-range))))) (diff (if right (cons right (cdr a)) (cdr a)) b (if left (cons left res) res)))))))))) (define (min-char a b) (if (char<? a b) a b)) (define (max-char a b) (if (char<? a b) b a)) (define (cset-intersection a b) (let intersect ((a (vector->list a)) (b (vector->list b)) (res '())) (if (or (null? a) (null? b)) (list->vector (reverse res)) (let ((a-range (car a)) (b-range (car b))) (cond ((char<? (cdr a-range) (car b-range)) (intersect (cdr a) b res)) ((char>? (car a-range) (cdr b-range)) (intersect a (cdr b) res)) (else (let ((result (cons (max-char (car b-range) (car a-range)) (min-char (cdr a-range) (cdr b-range))))) (intersect (if (char>? (cdr a-range) (cdr result)) a (cdr a)) (if (char>? (cdr b-range) (cdr result)) b (cdr b)) (cons result res))))))))) (define (cset-complement a) (cset-difference (sre->cset *all-chars*) a)) ;; This could use some optimization :) (define (cset-case-insensitive a) (let lp ((ls (vector->list a)) (res '())) (cond ((null? ls) (list->vector (reverse res))) ((and (char-alphabetic? (caar ls)) (char-alphabetic? (cdar ls))) (lp (cdr ls) (reverse (vector->list (cset-union (cset-union (list->vector (reverse res)) (vector (car ls))) (range->cset (char-altcase (caar ls)) (char-altcase (cdar ls)))))))) (else (lp (cdr ls) (reverse (vector->list (cset-union (list->vector (reverse res)) (vector (car ls)))))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Match and Replace Utilities (define (irregex-fold/fast irx kons knil str . o) (if (not (string? str)) (error 'irregex-fold "not a string" str)) (let* ((irx (irregex irx)) (matches (irregex-new-matches irx)) (finish (or (and (pair? o) (car o)) (lambda (i acc) acc))) (start (if (and (pair? o) (pair? (cdr o))) (cadr o) 0)) (end (if (and (pair? o) (pair? (cdr o)) (pair? (cddr o))) (caddr o) (string-length str))) (init-src (list str start end)) (init (cons init-src start))) (if (not (and (integer? start) (exact? start))) (error 'irregex-fold "not an exact integer" start)) (if (not (and (integer? end) (exact? end))) (error 'irregex-fold "not an exact integer" end)) (irregex-match-chunker-set! matches irregex-basic-string-chunker) (let lp ((src init-src) (i start) (acc knil)) (if (>= i end) (finish i acc) (let ((m (irregex-search/matches irx irregex-basic-string-chunker init src i matches))) (if (not m) (finish i acc) (let ((j (%irregex-match-end-index m 0))) (if (= j i) ;; skip one char forward if we match the empty string (lp (list str (+ j 1) end) (+ j 1) acc) (let ((acc (kons i m acc))) (irregex-reset-matches! matches) ;; no need to continue looping if this is a ;; searcher - it's already consumed the only ;; available match (if (flag-set? (irregex-flags irx) ~searcher?) (finish j acc) (lp (list str j end) j acc))))))))))) (define (irregex-fold irx kons . args) (if (not (procedure? kons)) (error 'irregex-fold "not a procedure" kons)) (let ((kons2 (lambda (i m acc) (kons i (irregex-copy-matches m) acc)))) (apply irregex-fold/fast irx kons2 args))) (define (irregex-fold/chunked/fast irx kons knil cnk start . o) (let* ((irx (irregex irx)) (matches (irregex-new-matches irx)) (finish (or (and (pair? o) (car o)) (lambda (src i acc) acc))) (i (if (and (pair? o) (pair? (cdr o))) (cadr o) ((chunker-get-start cnk) start))) (init (cons start i))) (if (not (integer? i)) (error 'irregex-fold/chunked "not an integer" i)) (irregex-match-chunker-set! matches cnk) (let lp ((start start) (i i) (acc knil)) (if (not start) (finish start i acc) (let ((m (irregex-search/matches irx cnk init start i matches))) (if (not m) (finish start i acc) (let ((end-src (%irregex-match-end-chunk m 0)) (end-index (%irregex-match-end-index m 0))) (if (and (eq? end-src start) (= end-index i)) (if (>= end-index ((chunker-get-end cnk) end-src )) (let ((next ((chunker-get-next cnk) end-src))) (lp next ((chunker-get-start cnk) next) acc)) (lp end-src (+ end-index 1) acc)) (let ((acc (kons start i m acc))) (irregex-reset-matches! matches) ;; no need to continue looping if this is a ;; searcher - it's already consumed the only ;; available match (if (flag-set? (irregex-flags irx) ~searcher?) (finish end-src end-index acc) (lp end-src end-index acc))))))))))) (define (irregex-fold/chunked irx kons . args) (if (not (procedure? kons)) (error 'irregex-fold/chunked "not a procedure" kons)) (let ((kons2 (lambda (s i m acc) (kons s i (irregex-copy-matches m) acc)))) (apply irregex-fold/chunked/fast irx kons2 args))) (define (irregex-replace irx str . o) (if (not (string? str)) (error 'irregex-replace "not a string" str)) (let ((m (irregex-search irx str))) (if m (string-cat-reverse (cons (substring str (%irregex-match-end-index m 0) (string-length str)) (append (irregex-apply-match m o) (list (substring str 0 (%irregex-match-start-index m 0))) ))) str))) (define (irregex-replace/all irx str . o) (if (not (string? str)) (error 'irregex-replace/all "not a string" str)) (irregex-fold/fast irx (lambda (i m acc) (let ((m-start (%irregex-match-start-index m 0))) (append (irregex-apply-match m o) (if (>= i m-start) acc (cons (substring str i m-start) acc))))) '() str (lambda (i acc) (let ((end (string-length str))) (string-cat-reverse (if (>= i end) acc (cons (substring str i end) acc))))))) (define (irregex-apply-match m ls) (let lp ((ls ls) (res '())) (if (null? ls) res (cond ((integer? (car ls)) (lp (cdr ls) (cons (or (irregex-match-substring m (car ls)) "") res))) ((procedure? (car ls)) (lp (cdr ls) (cons ((car ls) m) res))) ((symbol? (car ls)) (case (car ls) ((pre) (lp (cdr ls) (cons (substring (car (%irregex-match-start-chunk m 0)) 0 (%irregex-match-start-index m 0)) res))) ((post) (let ((str (car (%irregex-match-start-chunk m 0)))) (lp (cdr ls) (cons (substring str (%irregex-match-end-index m 0) (string-length str)) res)))) (else (cond ((assq (car ls) (irregex-match-names m)) => (lambda (x) (lp (cons (cdr x) (cdr ls)) res))) (else (error "unknown match replacement" (car ls))))))) (else (lp (cdr ls) (cons (car ls) res))))))) (define (irregex-extract irx str . o) (if (not (string? str)) (error 'irregex-extract "not a string" str)) (apply irregex-fold/fast irx (lambda (i m a) (cons (irregex-match-substring m) a)) '() str (lambda (i a) (reverse a)) o)) (define (irregex-split irx str . o) (if (not (string? str)) (error 'irregex-split "not a string" str)) (let ((start (if (pair? o) (car o) 0)) (end (if (and (pair? o) (pair? (cdr o))) (cadr o) (string-length str)))) (irregex-fold/fast irx (lambda (i m a) (if (= i (%irregex-match-start-index m 0)) a (cons (substring str i (%irregex-match-start-index m 0)) a))) '() str (lambda (i a) (reverse (if (= i end) a (cons (substring str i end) a)))) start end))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/dbg-stub.c����������������������������������������������������������������������������0000644�0001750�0001750�00000035277�13502227553�014624� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* dbg-stub.c - Client-side interface, lowlevel part ; ; Copyright (c) 2008-2019, The CHICKEN Team ; Copyright (c) 2000-2007, Felix L. Winkelmann ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. */ /* included from debugger-client.scm */ #include <assert.h> #ifdef _WIN32 # include <winsock2.h> # include <ws2tcpip.h> /* Beware: winsock2.h must come BEFORE windows.h */ # define socklen_t int static WSADATA wsa; #else # include <errno.h> # include <fcntl.h> # include <sys/socket.h> # include <sys/time.h> # include <netinet/in.h> # include <netdb.h> # include <signal.h> # define closesocket close # define INVALID_SOCKET (-1) # define SOCKET_ERROR (-1) # ifndef h_addr # define h_addr h_addr_list[ 0 ] # endif #endif #define C_DEBUG_PROTOCOL_VERSION 1 #define C_DEBUG_REPLY_UNUSED 0 #define C_DEBUG_REPLY_SETMASK 1 #define C_DEBUG_REPLY_TERMINATE 2 #define C_DEBUG_REPLY_CONTINUE 3 #define C_DEBUG_REPLY_SET_BREAKPOINT 4 #define C_DEBUG_REPLY_CLEAR_BREAKPOINT 5 #define C_DEBUG_REPLY_LIST_EVENTS 6 #define C_DEBUG_REPLY_GET_BYTES 7 #define C_DEBUG_REPLY_GET_AV 8 #define C_DEBUG_REPLY_GET_SLOTS 9 #define C_DEBUG_REPLY_GET_GLOBAL 10 #define C_DEBUG_REPLY_GET_STATS 11 #define C_DEBUG_REPLY_GET_TRACE 12 #define INPUT_BUFFER_SIZE 4096 #define RW_BUFFER_SIZE 1024 #define DEFAULT_DEBUGGER_PORT 9999 #ifdef C_SIXTY_FOUR # define C_HEADER_BITS_SHIFT 56 # ifdef C_LLP # define UWORD_COUNT_FORMAT_STRING "%llu" # else # define UWORD_COUNT_FORMAT_STRING "%lu" # endif #else # define C_HEADER_BITS_SHIFT 24 # define UWORD_COUNT_FORMAT_STRING "%u" #endif #define C_VALUE_CUTOFF_LIMIT 300 #define get_header_bits(x) ((int)(C_header_bits((x)) >> C_HEADER_BITS_SHIFT)) struct bp_item { char *name; int len; struct bp_item *next; }; struct dbg_info_list { C_DEBUG_INFO *info; struct dbg_info_list *next; }; static long event_mask = 0; static int socket_fd = 0; static char input_buffer[ INPUT_BUFFER_SIZE + 1 ]; static char *input_buffer_top = NULL; static int input_buffer_len = 0; static char rw_buffer[ RW_BUFFER_SIZE + 1 ]; static struct bp_item *breakpoints = NULL; static struct dbg_info_list *dbg_info_list = NULL, *last_dbg_info_list = NULL, *unseen_dbg_info_list = NULL; static C_word current_c = 0; static C_word *current_av; static volatile int interrupted = 0; static int dbg_info_count = 0; static C_word debug_event_hook(C_DEBUG_INFO *cell, C_word c, C_word *av, C_char *cloc); void C_register_debug_info(C_DEBUG_INFO *info) { struct dbg_info_list *node = (struct dbg_info_list *)C_malloc(sizeof(struct dbg_info_list)); /* fprintf(stderr, "Registering: %p (%s/%s)\n", node, info->loc, info->val); */ assert(node); node->info = info; node->next = NULL; if(last_dbg_info_list != NULL) last_dbg_info_list->next = node; last_dbg_info_list = node; if(unseen_dbg_info_list == NULL) unseen_dbg_info_list = node; if(dbg_info_list == NULL) dbg_info_list = node; /* fprintf(stderr, "first: %p, last: %p, unseen: %p\n", dbg_info_list, last_dbg_info_list, unseen_dbg_info_list); */ } static int socket_read() { int p = 0, s = 0, e = 0; int n, off = 0; char *ptr = rw_buffer; /* copy from input_buffer into rw_buffer until newline: */ for(;;) { while(input_buffer_len > 0) { *(ptr++) = *input_buffer_top; if(*(input_buffer_top++) == '\n') { *ptr = '\0'; --input_buffer_len; return 1; } if(++off >= RW_BUFFER_SIZE) return -1; /* read-buffer overflow */ --input_buffer_len; } n = recv(socket_fd, input_buffer, INPUT_BUFFER_SIZE, 0); if(n == SOCKET_ERROR) return -1; /* read failed */ if(n == 0) return 0; /* client disconnect */ input_buffer_len = n; input_buffer_top = input_buffer; } } static int socket_write(char *buf, int len) { int n, m = 0, off = 0; while(m < len) { n = send(socket_fd, buf + off, len, 0); if(n == SOCKET_ERROR) return -1; /* write failed */ off += n; m += n; } return 0; } static void socket_close() { closesocket(socket_fd); socket_fd = 0; } static void terminate(char *msg) { fprintf(stderr, "%s\n", msg); socket_close(); C_exit_runtime(C_fix(1)); } static char * name_and_length(char *buf, int *len) { char *str, *ptr; for(str = buf; *str && *str != '\"'; ++str); if(!*str) return ""; for(ptr = ++str; *ptr != '\"'; ++ptr) { if(*ptr == '\\') ++ptr; } *len = ptr - str; return str; } static void enable_debug_info(int n, int f) { int i = 0; struct dbg_info_list *dip; C_DEBUG_INFO *dinfo; for(dip = dbg_info_list; dip != NULL; dip = dip->next) { for(dinfo = dip->info; dinfo->event; ++dinfo) { if(i++ == n) { dinfo->enabled = f; return; } } } terminate("invalid debug-info index"); } static void send_string(C_char *str) { /* fprintf(stderr, "<SENT: %s>\n", str); */ C_fflush(stderr); if(socket_write(str, C_strlen(str)) != 0) terminate("write failed"); } static void send_string_value(C_char *str) { if (str == 0 || *str == 0) send_string(" #f"); else { C_snprintf(rw_buffer, sizeof(rw_buffer), " \"%s\"", str); send_string(rw_buffer); } } static void send_scheme_value(C_word x) { if((x & C_FIXNUM_BIT) != 0) C_snprintf(rw_buffer, sizeof(rw_buffer), " %ld", (long)C_unfix(x)); else if((x & C_IMMEDIATE_MARK_BITS) != 0) C_snprintf(rw_buffer, sizeof(rw_buffer), " =%lu", (unsigned long)x); else C_snprintf(rw_buffer, sizeof(rw_buffer), " @%lu", (unsigned long)x); send_string(rw_buffer); } static void send_event(int event, C_char *loc, C_char *val, C_char *cloc) { int n; int reply, mask; struct bp_item *bp, *prev; C_char *str, *ptr; struct dbg_info_list *dip; C_DEBUG_INFO *dinfo; C_word x; void **stats; for(;;) { C_snprintf(rw_buffer, sizeof(rw_buffer), "(%d", event); send_string(rw_buffer); send_string_value(loc); send_string_value(val); send_string_value(cloc); send_string(")\n"); n = socket_read(); if(n < 0) terminate("read failed"); if(n == 0) terminate("debugger disconnected"); /* fprintf(stderr, "<READ: %s>\n", rw_buffer); */ n = sscanf(rw_buffer, "(%d ", &reply); if(n == 0) terminate("invalid reply"); switch(reply) { case C_DEBUG_REPLY_SETMASK: n = sscanf(rw_buffer, "(%d %d)", &reply, &mask); if(n != 2) terminate("invalid SETMASK reply"); event_mask = mask; break; case C_DEBUG_REPLY_TERMINATE: terminate("terminated by debugger"); case C_DEBUG_REPLY_CONTINUE: return; case C_DEBUG_REPLY_SET_BREAKPOINT: n = sscanf(rw_buffer, "(%d %d)", &reply, &mask); if(n != 2) terminate("invalid SET BREAKPOINT reply"); enable_debug_info(mask, 1); break; case C_DEBUG_REPLY_CLEAR_BREAKPOINT: n = sscanf(rw_buffer, "(%d %d)", &reply, &mask); if(n != 2) terminate("invalid CLEAR BREAKPOINT reply"); enable_debug_info(mask, 0); break; case C_DEBUG_REPLY_LIST_EVENTS: str = name_and_length(rw_buffer, &n); str[ n ] = '\0'; str = C_strdup(str); for(dip = unseen_dbg_info_list; dip != NULL; dip = dip->next) { for(dinfo = dip->info; dinfo->event; ++dinfo) { if(*str == '\0' || strstr(dinfo->val, str)) { C_snprintf(rw_buffer, sizeof(rw_buffer), "(* %d %d", dbg_info_count++, dinfo->event); send_string(rw_buffer); send_string_value(dinfo->loc); send_string_value(dinfo->val); send_string(")\n"); } ++n; } } unseen_dbg_info_list = NULL; C_free(str); break; case C_DEBUG_REPLY_GET_BYTES: n = sscanf(rw_buffer, "(%d " UWORD_COUNT_FORMAT_STRING " %d)", &reply, &x, &mask); if(n != 3) terminate("invalid GET_BYTES reply"); ptr = (char *)x; send_string("(*"); while(mask--) { C_snprintf(rw_buffer, sizeof(rw_buffer), " %u", (unsigned char) *(ptr++)); send_string(rw_buffer); } send_string(")\n"); break; case C_DEBUG_REPLY_GET_AV: send_string("(*"); for(n = 0; n < current_c; ++n) send_scheme_value(current_av[ n ]); send_string(")\n"); break; case C_DEBUG_REPLY_GET_SLOTS: sscanf(rw_buffer, "(%d " UWORD_COUNT_FORMAT_STRING ")", &mask, &x); if(mask >= C_VALUE_CUTOFF_LIMIT) mask = C_VALUE_CUTOFF_LIMIT; if((C_header_bits(x) & C_BYTEBLOCK_BIT) != 0) { reply = C_header_size(x); C_snprintf(rw_buffer, sizeof(rw_buffer), "(* BLOB %d", get_header_bits(x)); send_string(rw_buffer); for(n = 0; n < reply; ++n) { C_snprintf(rw_buffer, sizeof(rw_buffer), " %u", ((unsigned char *)C_data_pointer(x))[ n ]); send_string(rw_buffer); } send_string(")\n"); break; } n = 0; if((C_header_bits(x) & C_SPECIALBLOCK_BIT) != 0) { C_snprintf(rw_buffer, sizeof(rw_buffer), "(* SPECIAL %d " UWORD_COUNT_FORMAT_STRING, get_header_bits(x), C_block_item(x, 0)); n = 1; } else C_snprintf(rw_buffer, sizeof(rw_buffer), "(* VECTOR %d", get_header_bits(x)); send_string(rw_buffer); for(mask = C_header_size(x); n < mask; ++n) send_scheme_value(C_block_item(x, n)); send_string(")\n"); break; case C_DEBUG_REPLY_GET_GLOBAL: str = name_and_length(rw_buffer, &n); ptr = malloc(sizeof(C_header) + n + 1); memcpy(((C_SCHEME_BLOCK*)ptr)->data, str, n + 1); ((C_SCHEME_BLOCK *)ptr)->header = C_make_header(C_STRING_TYPE, n); x = C_find_symbol((C_word)ptr, NULL); if(x == C_SCHEME_FALSE) send_string("(* UNKNOWN)\n"); else { send_string("(*"); send_scheme_value(C_symbol_value(x)); send_string(")\n"); } break; case C_DEBUG_REPLY_GET_STATS: stats = C_get_statistics(); send_string("(*"); for(n = 0; n < 8; ++n) { C_snprintf(rw_buffer, sizeof(rw_buffer), " " UWORD_COUNT_FORMAT_STRING, (C_uword)stats[ n ]); send_string(rw_buffer); } C_snprintf(rw_buffer, sizeof(rw_buffer), " " UWORD_COUNT_FORMAT_STRING ")\n", (C_uword)C_stack_pointer); send_string(rw_buffer); break; case C_DEBUG_REPLY_GET_TRACE: str = ptr = C_dump_trace(0); while((n = C_strcspn(ptr, "\n"))) { ptr[ n++ ] = '\0'; send_string("(* \""); send_string(ptr); send_string("\")\n"); ptr += n; } free(str); break; default: terminate("invalid reply code"); } event = C_DEBUG_LISTEN; val = unseen_dbg_info_list ? "1" : "0"; } } #ifndef _WIN32 static void interrupt_signal_handler(int signum) { interrupted = 1; C_signal(SIGUSR2, interrupt_signal_handler); } #endif static C_word connect_to_debugger() { char *addr = getenv("CHICKEN_DEBUGGER"); char *host; static char info[ 256 ]; struct hostent *he; struct sockaddr_in sa; int i, port = DEFAULT_DEBUGGER_PORT; int yes = 1; int r; C_debugger_hook = debug_event_hook; if(addr == NULL) return C_SCHEME_FALSE; /* no debugger address given */ /* parse host and port number */ for(i = C_strlen(addr) - 1; i > 0; --i) { if(addr[ i ] == ':') break; } if(i == 0) host = addr; else { port = atoi(addr + i + 1); host = C_strdup(addr); host[i] = '\0'; /* We don't use strndup() for compat reasons */ } #ifdef _WIN32 if(WSAStartup(MAKEWORD(1, 1), &wsa) != 0) return C_SCHEME_FALSE; /* failed to init sockets */ #endif /* obtain host address */ he = gethostbyname(host); if(he == NULL) return C_SCHEME_FALSE; /* invalid host */ C_memset(&sa, 0, sizeof(struct sockaddr_in)); sa.sin_family = AF_INET; sa.sin_port = htons((short)port); sa.sin_addr = *((struct in_addr *)he->h_addr); socket_fd = socket(AF_INET, SOCK_STREAM, 0); if(socket_fd == INVALID_SOCKET) return C_SCHEME_FALSE; /* can not create socket */ /* socket options */ r = setsockopt(socket_fd, SOL_SOCKET, SO_REUSEADDR, (const char *)&yes, sizeof(int)); if(r != 0) return C_SCHEME_FALSE; /* failed to set socket options */ /* connect */ if(connect(socket_fd, (struct sockaddr *)&sa, sizeof(struct sockaddr_in)) == SOCKET_ERROR) return C_SCHEME_FALSE; /* failed to connect */ C_snprintf(info, sizeof(info), "%s:%d:%d", C_main_argv[ 0 ], getpid(), C_DEBUG_PROTOCOL_VERSION); send_event(C_DEBUG_CONNECT, info, NULL, NULL); #ifndef _WIN32 C_signal(SIGUSR2, interrupt_signal_handler); #endif return C_SCHEME_TRUE; } static C_word debug_event_hook(C_DEBUG_INFO *cell, C_word c, C_word *av, C_char *cloc) { if(socket_fd != 0) { if(cell->enabled || interrupted || ((1 << cell->event) & event_mask) != 0 ) { /* fprintf(stderr, "event: %s\n", cloc); */ current_c = c; current_av = av; send_event(interrupted ? C_DEBUG_INTERRUPTED : cell->event, cell->loc, cell->val, cloc); interrupted = 0; } } return C_SCHEME_UNDEFINED; } /* TODO: - escape '\"' + '\\' in transmitted strings - error-condition (SIGNAL event) doesn't seem to terminate */ ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/posix-common.scm����������������������������������������������������������������������0000644�0001750�0001750�00000072751�13502227553�016103� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; posix-common.scm - common code for UNIX and Windows versions of the posix unit ; ; Copyright (c) 2010-2019, The CHICKEN Team ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following ; conditions are met: ; ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following ; disclaimer. ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following ; disclaimer in the documentation and/or other materials provided with the distribution. ; Neither the name of the author nor the names of its contributors may be used to endorse or promote ; products derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ; POSSIBILITY OF SUCH DAMAGE. (declare (foreign-declare #<<EOF #include <signal.h> static int C_not_implemented(void); int C_not_implemented() { return -1; } static C_TLS struct stat C_statbuf; #define C_stat_type (C_statbuf.st_mode & S_IFMT) #define C_stat_perm (C_statbuf.st_mode & ~S_IFMT) #define C_u_i_stat(fn) C_fix(C_stat(C_c_string(fn), &C_statbuf)) #define C_u_i_fstat(fd) C_fix(fstat(C_unfix(fd), &C_statbuf)) #ifndef S_IFSOCK # define S_IFSOCK 0140000 #endif #ifndef S_IRUSR # define S_IRUSR S_IREAD #endif #ifndef S_IWUSR # define S_IWUSR S_IWRITE #endif #ifndef S_IXUSR # define S_IXUSR S_IEXEC #endif #ifndef S_IRGRP # define S_IRGRP S_IREAD #endif #ifndef S_IWGRP # define S_IWGRP S_IWRITE #endif #ifndef S_IXGRP # define S_IXGRP S_IEXEC #endif #ifndef S_IROTH # define S_IROTH S_IREAD #endif #ifndef S_IWOTH # define S_IWOTH S_IWRITE #endif #ifndef S_IXOTH # define S_IXOTH S_IEXEC #endif #define cpy_tmvec_to_tmstc08(ptm, v) \ ((ptm)->tm_sec = C_unfix(C_block_item((v), 0)), \ (ptm)->tm_min = C_unfix(C_block_item((v), 1)), \ (ptm)->tm_hour = C_unfix(C_block_item((v), 2)), \ (ptm)->tm_mday = C_unfix(C_block_item((v), 3)), \ (ptm)->tm_mon = C_unfix(C_block_item((v), 4)), \ (ptm)->tm_year = C_unfix(C_block_item((v), 5)), \ (ptm)->tm_wday = C_unfix(C_block_item((v), 6)), \ (ptm)->tm_yday = C_unfix(C_block_item((v), 7)), \ (ptm)->tm_isdst = (C_block_item((v), 8) != C_SCHEME_FALSE)) #define cpy_tmvec_to_tmstc9(ptm, v) \ (((struct tm *)ptm)->tm_gmtoff = -C_unfix(C_block_item((v), 9))) #define C_tm_set_08(v, tm) cpy_tmvec_to_tmstc08( (tm), (v) ) #define C_tm_set_9(v, tm) cpy_tmvec_to_tmstc9( (tm), (v) ) static struct tm * C_tm_set( C_word v, void *tm ) { C_tm_set_08( v, (struct tm *)tm ); #if defined(C_GNU_ENV) && !defined(__CYGWIN__) && !defined(__uClinux__) C_tm_set_9( v, (struct tm *)tm ); #endif return tm; } #define TIME_STRING_MAXLENGTH 255 static char C_time_string [TIME_STRING_MAXLENGTH + 1]; #undef TIME_STRING_MAXLENGTH #define C_strftime(v, f, tm) \ (strftime(C_time_string, sizeof(C_time_string), C_c_string(f), C_tm_set((v), (tm))) ? C_time_string : NULL) #define C_a_mktime(ptr, c, v, tm) C_int64_to_num(ptr, mktime(C_tm_set((v), C_data_pointer(tm)))) #define C_asctime(v, tm) (asctime(C_tm_set((v), (tm)))) #define C_fdopen(a, n, fd, m) C_mpointer(a, fdopen(C_unfix(fd), C_c_string(m))) #define C_dup(x) C_fix(dup(C_unfix(x))) #define C_dup2(x, y) C_fix(dup2(C_unfix(x), C_unfix(y))) #define C_set_file_ptr(port, ptr) (C_set_block_item(port, 0, (C_block_item(ptr, 0))), C_SCHEME_UNDEFINED) /* It is assumed that 'int' is-a 'long' */ #define C_ftell(a, n, p) C_int64_to_num(a, ftell(C_port_file(p))) #define C_fseek(p, n, w) C_mk_nbool(fseek(C_port_file(p), C_num_to_int64(n), C_unfix(w))) #define C_lseek(fd, o, w) C_fix(lseek(C_unfix(fd), C_num_to_int64(o), C_unfix(w))) EOF )) (include "common-declarations.scm") (define-syntax define-unimplemented (syntax-rules () ((_ ?name) (define (?name . _) (error '?name (##core#immutable '"this function is not available on this platform")) ) ) ) ) (define-syntax set!-unimplemented (syntax-rules () ((_ ?name) (set! ?name (lambda _ (error '?name (##core#immutable '"this function is not available on this platform"))) ) ) ) ) ;;; Error codes: (define-foreign-variable _errno int "errno") (define-foreign-variable _eperm int "EPERM") (define-foreign-variable _enoent int "ENOENT") (define-foreign-variable _esrch int "ESRCH") (define-foreign-variable _eintr int "EINTR") (define-foreign-variable _eio int "EIO") (define-foreign-variable _enoexec int "ENOEXEC") (define-foreign-variable _ebadf int "EBADF") (define-foreign-variable _echild int "ECHILD") (define-foreign-variable _enomem int "ENOMEM") (define-foreign-variable _eacces int "EACCES") (define-foreign-variable _efault int "EFAULT") (define-foreign-variable _ebusy int "EBUSY") (define-foreign-variable _eexist int "EEXIST") (define-foreign-variable _enotdir int "ENOTDIR") (define-foreign-variable _eisdir int "EISDIR") (define-foreign-variable _einval int "EINVAL") (define-foreign-variable _emfile int "EMFILE") (define-foreign-variable _enospc int "ENOSPC") (define-foreign-variable _espipe int "ESPIPE") (define-foreign-variable _epipe int "EPIPE") (define-foreign-variable _eagain int "EAGAIN") (define-foreign-variable _erofs int "EROFS") (define-foreign-variable _enxio int "ENXIO") (define-foreign-variable _e2big int "E2BIG") (define-foreign-variable _exdev int "EXDEV") (define-foreign-variable _enodev int "ENODEV") (define-foreign-variable _enfile int "ENFILE") (define-foreign-variable _enotty int "ENOTTY") (define-foreign-variable _efbig int "EFBIG") (define-foreign-variable _emlink int "EMLINK") (define-foreign-variable _edom int "EDOM") (define-foreign-variable _erange int "ERANGE") (define-foreign-variable _edeadlk int "EDEADLK") (define-foreign-variable _enametoolong int "ENAMETOOLONG") (define-foreign-variable _enolck int "ENOLCK") (define-foreign-variable _enosys int "ENOSYS") (define-foreign-variable _enotempty int "ENOTEMPTY") (define-foreign-variable _eilseq int "EILSEQ") (define-foreign-variable _ewouldblock int "EWOULDBLOCK") (define posix-error (let ([strerror (foreign-lambda c-string "strerror" int)] [string-append string-append] ) (lambda (type loc msg . args) (let ([rn (##sys#update-errno)]) (apply ##sys#signal-hook type loc (string-append msg " - " (strerror rn)) args) ) ) ) ) (define ##sys#posix-error posix-error) ;;; File properties (define-foreign-variable _stat_st_ino unsigned-int "C_statbuf.st_ino") (define-foreign-variable _stat_st_nlink unsigned-int "C_statbuf.st_nlink") (define-foreign-variable _stat_st_gid unsigned-int "C_statbuf.st_gid") (define-foreign-variable _stat_st_size integer64 "C_statbuf.st_size") (define-foreign-variable _stat_st_mtime integer64 "C_statbuf.st_mtime") (define-foreign-variable _stat_st_atime integer64 "C_statbuf.st_atime") (define-foreign-variable _stat_st_ctime integer64 "C_statbuf.st_ctime") (define-foreign-variable _stat_st_uid unsigned-int "C_statbuf.st_uid") (define-foreign-variable _stat_st_mode unsigned-int "C_statbuf.st_mode") (define-foreign-variable _stat_st_dev unsigned-int "C_statbuf.st_dev") (define-foreign-variable _stat_st_rdev unsigned-int "C_statbuf.st_rdev") (define-syntax stat-mode (er-macro-transformer (lambda (x r c) ;; no need to rename here (let* ((mode (cadr x)) (name (symbol->string mode))) `(##core#begin (declare (foreign-declare ,(string-append "#ifndef " name "\n" "#define " name " S_IFREG\n" "#endif\n"))) (define-foreign-variable ,mode unsigned-int)))))) (stat-mode S_IFLNK) (stat-mode S_IFREG) (stat-mode S_IFDIR) (stat-mode S_IFCHR) (stat-mode S_IFBLK) (stat-mode S_IFSOCK) (stat-mode S_IFIFO) (define (stat file link err loc) (let ((r (cond ((fixnum? file) (##core#inline "C_u_i_fstat" file)) ((port? file) (##core#inline "C_u_i_fstat" (chicken.file.posix#port->fileno file))) ((string? file) (let ((path (##sys#make-c-string file loc))) (if link (##core#inline "C_u_i_lstat" path) (##core#inline "C_u_i_stat" path)))) (else (##sys#signal-hook #:type-error loc "bad argument type - not a fixnum, port or string" file)) ) ) ) (if (fx< r 0) (if err (posix-error #:file-error loc "cannot access file" file) #f) #t))) (set! chicken.file.posix#file-stat (lambda (f #!optional link) (stat f link #t 'file-stat) (vector _stat_st_ino _stat_st_mode _stat_st_nlink _stat_st_uid _stat_st_gid _stat_st_size _stat_st_atime _stat_st_ctime _stat_st_mtime _stat_st_dev _stat_st_rdev _stat_st_blksize _stat_st_blocks) ) ) (set! chicken.file.posix#set-file-permissions! (lambda (f p) (##sys#check-fixnum p 'set-file-permissions!) (let ((r (cond ((fixnum? f) (##core#inline "C_fchmod" f p)) ((port? f) (##core#inline "C_fchmod" (chicken.file.posix#port->fileno f) p)) ((string? f) (##core#inline "C_chmod" (##sys#make-c-string f 'set-file-permissions!) p)) (else (##sys#signal-hook #:type-error 'file-permissions "bad argument type - not a fixnum, port or string" f)) ) ) ) (when (fx< r 0) (posix-error #:file-error 'set-file-permissions! "cannot change file permissions" f p) ) ))) (set! chicken.file.posix#file-modification-time (lambda (f) (stat f #f #t 'file-modification-time) _stat_st_mtime)) (set! chicken.file.posix#file-access-time (lambda (f) (stat f #f #t 'file-access-time) _stat_st_atime)) (set! chicken.file.posix#file-change-time (lambda (f) (stat f #f #t 'file-change-time) _stat_st_ctime)) (set! chicken.file.posix#set-file-times! (lambda (f . rest) (let-optionals* rest ((atime (current-seconds)) (mtime atime)) (when atime (##sys#check-exact-integer atime 'set-file-times!)) (when mtime (##sys#check-exact-integer mtime 'set-file-times!)) (let ((r ((foreign-lambda int "set_file_mtime" c-string scheme-object scheme-object) f atime mtime))) (when (fx< r 0) (apply posix-error #:file-error 'set-file-times! "cannot set file times" f rest)))))) (set! chicken.file.posix#file-size (lambda (f) (stat f #f #t 'file-size) _stat_st_size)) (set! chicken.file.posix#set-file-owner! (lambda (f uid) (chown 'set-file-owner! f uid -1))) (set! chicken.file.posix#set-file-group! (lambda (f gid) (chown 'set-file-group! f -1 gid))) (set! chicken.file.posix#file-owner (getter-with-setter (lambda (f) (stat f #f #t 'file-owner) _stat_st_uid) chicken.file.posix#set-file-owner! "(chicken.file.posix#file-owner f)") ) (set! chicken.file.posix#file-group (getter-with-setter (lambda (f) (stat f #f #t 'file-group) _stat_st_gid) chicken.file.posix#set-file-group! "(chicken.file.posix#file-group f)") ) (set! chicken.file.posix#file-permissions (getter-with-setter (lambda (f) (stat f #f #t 'file-permissions) (foreign-value "C_stat_perm" unsigned-int)) chicken.file.posix#set-file-permissions! "(chicken.file.posix#file-permissions f)")) (set! chicken.file.posix#file-type (lambda (file #!optional link (err #t)) (and (stat file link err 'file-type) (let ((res (foreign-value "C_stat_type" unsigned-int))) (cond ((fx= res S_IFREG) 'regular-file) ((fx= res S_IFLNK) 'symbolic-link) ((fx= res S_IFDIR) 'directory) ((fx= res S_IFCHR) 'character-device) ((fx= res S_IFBLK) 'block-device) ((fx= res S_IFIFO) 'fifo) ((fx= res S_IFSOCK) 'socket) (else 'regular-file)))))) (set! chicken.file.posix#regular-file? (lambda (file) (eq? 'regular-file (chicken.file.posix#file-type file #f #f)))) (set! chicken.file.posix#symbolic-link? (lambda (file) (eq? 'symbolic-link (chicken.file.posix#file-type file #t #f)))) (set! chicken.file.posix#block-device? (lambda (file) (eq? 'block-device (chicken.file.posix#file-type file #f #f)))) (set! chicken.file.posix#character-device? (lambda (file) (eq? 'character-device (chicken.file.posix#file-type file #f #f)))) (set! chicken.file.posix#fifo? (lambda (file) (eq? 'fifo (chicken.file.posix#file-type file #f #f)))) (set! chicken.file.posix#socket? (lambda (file) (eq? 'socket (chicken.file.posix#file-type file #f #f)))) (set! chicken.file.posix#directory? (lambda (file) (eq? 'directory (chicken.file.posix#file-type file #f #f)))) ;;; File position access: (define-foreign-variable _seek_set int "SEEK_SET") (define-foreign-variable _seek_cur int "SEEK_CUR") (define-foreign-variable _seek_end int "SEEK_END") (set! chicken.file.posix#seek/set _seek_set) (set! chicken.file.posix#seek/end _seek_end) (set! chicken.file.posix#seek/cur _seek_cur) (set! chicken.file.posix#set-file-position! (lambda (port pos . whence) (let ((whence (if (pair? whence) (car whence) _seek_set))) (##sys#check-fixnum pos 'set-file-position!) (##sys#check-fixnum whence 'set-file-position!) (unless (cond ((port? port) (and-let* ((stream (eq? (##sys#slot port 7) 'stream)) (res (##core#inline "C_fseek" port pos whence))) (##sys#setislot port 6 #f) ;; Reset EOF status res)) ((fixnum? port) (##core#inline "C_lseek" port pos whence)) (else (##sys#signal-hook #:type-error 'set-file-position! "invalid file" port)) ) (posix-error #:file-error 'set-file-position! "cannot set file position" port pos) ) ) ) ) (set! chicken.file.posix#file-position (getter-with-setter (lambda (port) (let ((pos (cond ((port? port) (if (eq? (##sys#slot port 7) 'stream) (##core#inline_allocate ("C_ftell" 7) port) -1) ) ((fixnum? port) (##core#inline "C_lseek" port 0 _seek_cur) ) (else (##sys#signal-hook #:type-error 'file-position "invalid file" port)) ) ) ) (when (< pos 0) (posix-error #:file-error 'file-position "cannot retrieve file position of port" port) ) pos) ) chicken.file.posix#set-file-position! ; doesn't accept WHENCE "(chicken.file.posix#file-position port)")) ;;; Using file-descriptors: (define-foreign-variable _stdin_fileno int "STDIN_FILENO") (define-foreign-variable _stdout_fileno int "STDOUT_FILENO") (define-foreign-variable _stderr_fileno int "STDERR_FILENO") (set! chicken.file.posix#fileno/stdin _stdin_fileno) (set! chicken.file.posix#fileno/stdout _stdout_fileno) (set! chicken.file.posix#fileno/stderr _stderr_fileno) (define-foreign-variable _o_rdonly int "O_RDONLY") (define-foreign-variable _o_wronly int "O_WRONLY") (define-foreign-variable _o_rdwr int "O_RDWR") (define-foreign-variable _o_creat int "O_CREAT") (define-foreign-variable _o_append int "O_APPEND") (define-foreign-variable _o_excl int "O_EXCL") (define-foreign-variable _o_trunc int "O_TRUNC") (define-foreign-variable _o_binary int "O_BINARY") (define-foreign-variable _o_text int "O_TEXT") (set! chicken.file.posix#open/rdonly _o_rdonly) (set! chicken.file.posix#open/wronly _o_wronly) (set! chicken.file.posix#open/rdwr _o_rdwr) (set! chicken.file.posix#open/read _o_rdonly) (set! chicken.file.posix#open/write _o_wronly) (set! chicken.file.posix#open/creat _o_creat) (set! chicken.file.posix#open/append _o_append) (set! chicken.file.posix#open/excl _o_excl) (set! chicken.file.posix#open/trunc _o_trunc) (set! chicken.file.posix#open/binary _o_binary) (set! chicken.file.posix#open/text _o_text) ;; open/noinherit is platform-specific (define-foreign-variable _s_irusr int "S_IRUSR") (define-foreign-variable _s_iwusr int "S_IWUSR") (define-foreign-variable _s_ixusr int "S_IXUSR") (define-foreign-variable _s_irgrp int "S_IRGRP") (define-foreign-variable _s_iwgrp int "S_IWGRP") (define-foreign-variable _s_ixgrp int "S_IXGRP") (define-foreign-variable _s_iroth int "S_IROTH") (define-foreign-variable _s_iwoth int "S_IWOTH") (define-foreign-variable _s_ixoth int "S_IXOTH") (define-foreign-variable _s_irwxu int "S_IRUSR | S_IWUSR | S_IXUSR") (define-foreign-variable _s_irwxg int "S_IRGRP | S_IWGRP | S_IXGRP") (define-foreign-variable _s_irwxo int "S_IROTH | S_IWOTH | S_IXOTH") (set! chicken.file.posix#perm/irusr _s_irusr) (set! chicken.file.posix#perm/iwusr _s_iwusr) (set! chicken.file.posix#perm/ixusr _s_ixusr) (set! chicken.file.posix#perm/irgrp _s_irgrp) (set! chicken.file.posix#perm/iwgrp _s_iwgrp) (set! chicken.file.posix#perm/ixgrp _s_ixgrp) (set! chicken.file.posix#perm/iroth _s_iroth) (set! chicken.file.posix#perm/iwoth _s_iwoth) (set! chicken.file.posix#perm/ixoth _s_ixoth) (set! chicken.file.posix#perm/irwxu _s_irwxu) (set! chicken.file.posix#perm/irwxg _s_irwxg) (set! chicken.file.posix#perm/irwxo _s_irwxo) ;; perm/isvtx, perm/isuid and perm/isgid are platform-specific (let () (define (mode inp m loc) (##sys#make-c-string (cond ((pair? m) (let ([m (car m)]) (case m ((#:append) (if (not inp) "a" (##sys#error "invalid mode for input file" m))) (else (##sys#error "invalid mode argument" m)) ) ) ) [inp "r"] [else "w"] ) loc) ) (define (check loc fd inp r) (if (##sys#null-pointer? r) (posix-error #:file-error loc "cannot open file" fd) (let ((port (##sys#make-port (if inp 1 2) ##sys#stream-port-class "(fdport)" 'stream))) (##core#inline "C_set_file_ptr" port r) port) ) ) (set! chicken.file.posix#open-input-file* (lambda (fd . m) (##sys#check-fixnum fd 'open-input-file*) (check 'open-input-file* fd #t (##core#inline_allocate ("C_fdopen" 2) fd (mode #t m 'open-input-file*))) ) ) (set! chicken.file.posix#open-output-file* (lambda (fd . m) (##sys#check-fixnum fd 'open-output-file*) (check 'open-output-file* fd #f (##core#inline_allocate ("C_fdopen" 2) fd (mode #f m 'open-output-file*)) ) ) ) ) (set! chicken.file.posix#port->fileno (lambda (port) (##sys#check-open-port port 'port->fileno) (cond ((eq? 'socket (##sys#slot port 7)) ;; Extract socket-FD from the port's "data" object - this is identical ;; to "##sys#tcp-port->fileno" in the tcp unit (tcp.scm). We code it in ;; this low-level manner to avoid depend on code defined there. ;; Peter agrees with that. I think. Have a nice day. (##sys#slot (##sys#port-data port) 0) ) ((not (zero? (##sys#peek-unsigned-integer port 0))) (let ([fd (##core#inline "C_port_fileno" port)]) (when (fx< fd 0) (posix-error #:file-error 'port->fileno "cannot access file-descriptor of port" port) ) fd) ) (else (posix-error #:type-error 'port->fileno "port has no attached file" port)) ) ) ) (set! chicken.file.posix#duplicate-fileno (lambda (old . new) (##sys#check-fixnum old 'duplicate-fileno) (let ([fd (if (null? new) (##core#inline "C_dup" old) (let ([n (car new)]) (##sys#check-fixnum n 'duplicate-fileno) (##core#inline "C_dup2" old n) ) ) ] ) (when (fx< fd 0) (posix-error #:file-error 'duplicate-fileno "cannot duplicate file-descriptor" old) ) fd) ) ) ;;; Access process ID: (set! chicken.process-context.posix#current-process-id (foreign-lambda int "C_getpid")) ;;; Set or get current directory by file descriptor: (set! chicken.process-context.posix#change-directory* (lambda (fd) (##sys#check-fixnum fd 'change-directory*) (unless (fx= 0 (##core#inline "C_fchdir" fd)) (posix-error #:file-error 'change-directory* "cannot change current directory" fd)) fd)) (set! ##sys#change-directory-hook (let ((cd ##sys#change-directory-hook)) (lambda (dir) ((if (fixnum? dir) chicken.process-context.posix#change-directory* cd) dir)))) ;;; umask (set! chicken.file.posix#file-creation-mode (getter-with-setter (lambda (#!optional um) (when um (##sys#check-fixnum um 'file-creation-mode)) (let ((um2 (##core#inline "C_umask" (or um 0)))) (unless um (##core#inline "C_umask" um2)) ; restore um2)) (lambda (um) (##sys#check-fixnum um 'file-creation-mode) (##core#inline "C_umask" um)) "(chicken.file.posix#file-creation-mode mode)")) ;;; Time related things: (define decode-seconds (##core#primitive "C_decode_seconds")) (define (check-time-vector loc tm) (##sys#check-vector tm loc) (when (fx< (##sys#size tm) 10) (##sys#error loc "time vector too short" tm) ) ) (set! chicken.time.posix#seconds->local-time (lambda (#!optional (secs (current-seconds))) (##sys#check-exact-integer secs 'seconds->local-time) (decode-seconds secs #f) )) (set! chicken.time.posix#seconds->utc-time (lambda (#!optional (secs (current-seconds))) (##sys#check-exact-integer secs 'seconds->utc-time) (decode-seconds secs #t) ) ) (set! chicken.time.posix#seconds->string (let ([ctime (foreign-lambda c-string "C_ctime" integer)]) (lambda (#!optional (secs (current-seconds))) (##sys#check-exact-integer secs 'seconds->string) (let ([str (ctime secs)]) (if str (##sys#substring str 0 (fx- (##sys#size str) 1)) (##sys#error 'seconds->string "cannot convert seconds to string" secs) ) ) ) ) ) (set! chicken.time.posix#local-time->seconds (let ((tm-size (foreign-value "sizeof(struct tm)" int))) (lambda (tm) (check-time-vector 'local-time->seconds tm) (let ((t (##core#inline_allocate ("C_a_mktime" 7) tm (##sys#make-string tm-size #\nul)))) (if (= -1 t) (##sys#error 'local-time->seconds "cannot convert time vector to seconds" tm) t))))) (set! chicken.time.posix#time->string (let ((asctime (foreign-lambda c-string "C_asctime" scheme-object scheme-pointer)) (strftime (foreign-lambda c-string "C_strftime" scheme-object scheme-object scheme-pointer)) (tm-size (foreign-value "sizeof(struct tm)" int))) (lambda (tm #!optional fmt) (check-time-vector 'time->string tm) (if fmt (begin (##sys#check-string fmt 'time->string) (or (strftime tm (##sys#make-c-string fmt 'time->string) (##sys#make-string tm-size #\nul)) (##sys#error 'time->string "time formatting overflows buffer" tm)) ) (let ([str (asctime tm (##sys#make-string tm-size #\nul))]) (if str (##sys#substring str 0 (fx- (##sys#size str) 1)) (##sys#error 'time->string "cannot convert time vector to string" tm) ) ) ) ) ) ) ;;; Signals (set! chicken.process.signal#set-signal-handler! (lambda (sig proc) (##sys#check-fixnum sig 'set-signal-handler!) (##core#inline "C_establish_signal_handler" sig (and proc sig)) (vector-set! ##sys#signal-vector sig proc) ) ) (set! chicken.process.signal#signal-handler (getter-with-setter (lambda (sig) (##sys#check-fixnum sig 'signal-handler) (##sys#slot ##sys#signal-vector sig) ) chicken.process.signal#set-signal-handler! "(chicken.process.signal#signal-handler sig)")) ;;; Processes (set! chicken.process#process-sleep (lambda (n) (##sys#check-fixnum n 'process-sleep) (##core#inline "C_i_process_sleep" n))) (set! chicken.process#process-wait (lambda args (let-optionals* args ((pid #f) (nohang #f)) (let ((pid (or pid -1))) (##sys#check-fixnum pid 'process-wait) (receive (epid enorm ecode) (process-wait-impl pid nohang) (if (fx= epid -1) (posix-error #:process-error 'process-wait "waiting for child process failed" pid) (values epid enorm ecode) ) ) ) ) ) ) ;; This can construct argv or envp for process-execute or process-run (define list->c-string-buffer (let ((c-string->allocated-pointer (foreign-lambda* c-pointer ((scheme-object o)) "char *ptr = C_malloc(C_header_size(o)); \n" "if (ptr != NULL) {\n" " C_memcpy(ptr, C_data_pointer(o), C_header_size(o)); \n" "}\n" "C_return(ptr);"))) (lambda (string-list convert loc) (##sys#check-list string-list loc) (let* ((string-count (##sys#length string-list)) ;; NUL-terminated, so we must add one (buffer (make-pointer-vector (add1 string-count) #f))) (handle-exceptions exn ;; Free to avoid memory leak, then reraise (begin (free-c-string-buffer buffer) (signal exn)) (do ((sl string-list (cdr sl)) (i 0 (fx+ i 1))) ((or (null? sl) (fx= i string-count))) ; Should coincide (##sys#check-string (car sl) loc) ;; This avoids embedded NULs and appends a NUL, so "cs" is ;; safe to copy and use as-is in the pointer-vector. (let* ((cs (##sys#make-c-string (convert (car sl)) loc)) (csp (c-string->allocated-pointer cs))) (unless csp (error loc "Out of memory")) (pointer-vector-set! buffer i csp))) buffer))))) (define (free-c-string-buffer buffer-array) (let ((size (pointer-vector-length buffer-array))) (do ((i 0 (fx+ i 1))) ((fx= i size)) (and-let* ((s (pointer-vector-ref buffer-array i))) (free s))))) ;; Environments are represented as string->string association lists (define (check-environment-list lst loc) (##sys#check-list lst loc) (for-each (lambda (p) (##sys#check-pair p loc) (##sys#check-string (car p) loc) (##sys#check-string (cdr p) loc)) lst)) (define call-with-exec-args (let ((pathname-strip-directory pathname-strip-directory) (nop (lambda (x) x))) (lambda (loc filename argconv arglist envlist proc) (let* ((stripped-filename (pathname-strip-directory filename)) (args (cons stripped-filename arglist)) ; Add argv[0] (argbuf (list->c-string-buffer args argconv loc)) (envbuf #f)) (handle-exceptions exn ;; Free to avoid memory leak, then reraise (begin (free-c-string-buffer argbuf) (when envbuf (free-c-string-buffer envbuf)) (signal exn)) ;; Envlist is never converted, so we always use nop here (when envlist (check-environment-list envlist loc) (set! envbuf (list->c-string-buffer (map (lambda (p) (string-append (car p) "=" (cdr p))) envlist) nop loc))) (proc (##sys#make-c-string filename loc) argbuf envbuf)))))) ;; Pipes: (define-foreign-variable _pipe_buf int "PIPE_BUF") (set! chicken.process#pipe/buf _pipe_buf) (let () (define (mode arg) (if (pair? arg) (##sys#slot arg 0) #:text)) (define (badmode m) (##sys#error "illegal input/output mode specifier" m)) (define (check loc cmd inp r) (if (##sys#null-pointer? r) (posix-error #:file-error loc "cannot open pipe" cmd) (let ((port (##sys#make-port (if inp 1 2) ##sys#stream-port-class "(pipe)" 'stream))) (##core#inline "C_set_file_ptr" port r) port) ) ) (set! chicken.process#open-input-pipe (lambda (cmd . m) (##sys#check-string cmd 'open-input-pipe) (let ([m (mode m)]) (check 'open-input-pipe cmd #t (case m ((#:text) (##core#inline_allocate ("open_text_input_pipe" 2) (##sys#make-c-string cmd 'open-input-pipe))) ((#:binary) (##core#inline_allocate ("open_binary_input_pipe" 2) (##sys#make-c-string cmd 'open-input-pipe))) (else (badmode m)) ) ) ) ) ) (set! chicken.process#open-output-pipe (lambda (cmd . m) (##sys#check-string cmd 'open-output-pipe) (let ((m (mode m))) (check 'open-output-pipe cmd #f (case m ((#:text) (##core#inline_allocate ("open_text_output_pipe" 2) (##sys#make-c-string cmd 'open-output-pipe))) ((#:binary) (##core#inline_allocate ("open_binary_output_pipe" 2) (##sys#make-c-string cmd 'open-output-pipe))) (else (badmode m)) ) ) ) ) ) (set! chicken.process#close-input-pipe (lambda (port) (##sys#check-input-port port #t 'close-input-pipe) (let ((r (##core#inline "close_pipe" port))) (when (eq? -1 r) (posix-error #:file-error 'close-input-pipe "error while closing pipe" port)) r) ) ) (set! chicken.process#close-output-pipe (lambda (port) (##sys#check-output-port port #t 'close-output-pipe) (let ((r (##core#inline "close_pipe" port))) (when (eq? -1 r) (posix-error #:file-error 'close-output-pipe "error while closing pipe" port)) r) ) )) (set! chicken.process#with-input-from-pipe (lambda (cmd thunk . mode) (let ((p (apply chicken.process#open-input-pipe cmd mode))) (fluid-let ((##sys#standard-input p)) (call-with-values thunk (lambda results (chicken.process#close-input-pipe p) (apply values results) ) ) ) ) ) ) (set! chicken.process#call-with-output-pipe (lambda (cmd proc . mode) (let ((p (apply chicken.process#open-output-pipe cmd mode))) (call-with-values (lambda () (proc p)) (lambda results (chicken.process#close-output-pipe p) (apply values results) ) ) ) ) ) (set! chicken.process#call-with-input-pipe (lambda (cmd proc . mode) (let ([p (apply chicken.process#open-input-pipe cmd mode)]) (call-with-values (lambda () (proc p)) (lambda results (chicken.process#close-input-pipe p) (apply values results) ) ) ) ) ) (set! chicken.process#with-output-to-pipe (lambda (cmd thunk . mode) (let ((p (apply chicken.process#open-output-pipe cmd mode))) (fluid-let ((##sys#standard-output p)) (call-with-values thunk (lambda results (chicken.process#close-output-pipe p) (apply values results) ) ) ) ) ) ) �����������������������chicken-5.1.0/identify.sh���������������������������������������������������������������������������0000755�0001750�0001750�00000002137�13370655400�015107� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/bin/sh -e # # identify.sh - check for .git directory and obtain checked out revision and branch # # usage: identify.sh SOURCEDIR # make sure file exists anyway, since branchname is a special case if test \! -f "buildbranch"; then touch buildbranch fi rev0=`cat buildid || echo ""` branchname0=`cat buildbranch || echo ""` buildtime=`date +%Y-%m-%d` host=`hostname` usys=`uname` if test -d "$1/.git"; then rev=`GIT_DIR="$1/.git" git rev-parse --short HEAD 2>/dev/null` branchname=`GIT_DIR="$1/.git" git branch --no-color 2> /dev/null | sed -e '/^[^*]/d' -e 's/* \(.*\)/\1/'` elif test -d "$1/manual-html"; then # Assume this is a snapshot or release build; don't touch # identifying files to avoid a rebuild which needs chicken exit else branchname=${branchname:-"custom"} fi case "${branchname}" in "") branchname="";; "(no branch)") branchname="";; "master") branchname="";; "release") branchname="";; esac if test "x${rev0}" \!= "x${rev}"; then echo ${rev} >buildid fi if test "x${branchname0}" \!= "x${branchname}"; then echo ${branchname} >buildbranch fi ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������chicken-5.1.0/c-platform.c��������������������������������������������������������������������������0000644�0001750�0001750�00003066441�13502227757�015167� 0����������������������������������������������������������������������������������������������������ustar �sjamaan�������������������������sjamaan����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������/* Generated from c-platform.scm by the CHICKEN compiler http://www.call-cc.org Version 5.1.0rc1 (prerelease) (rev 7358d2e5) linux-unix-gnu-x86-64 [ 64bit dload ptables ] command line: c-platform.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.c-platform -output-file c-platform.c unit: c-platform uses: library eval expand internal optimizer support compiler */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_library_toplevel) C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_eval_toplevel) C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_expand_toplevel) C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_internal_toplevel) C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_optimizer_toplevel) C_externimport void C_ccall C_optimizer_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_support_toplevel) C_externimport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(C_compiler_toplevel) C_externimport void C_ccall C_compiler_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[944]; static double C_possibly_force_alignment; C_noret_decl(f_1664) static void C_ccall f_1664(C_word c,C_word *av) C_noret; C_noret_decl(f_1667) static void C_ccall f_1667(C_word c,C_word *av) C_noret; C_noret_decl(f_1670) static void C_ccall f_1670(C_word c,C_word *av) C_noret; C_noret_decl(f_1673) static void C_ccall f_1673(C_word c,C_word *av) C_noret; C_noret_decl(f_1676) static void C_ccall f_1676(C_word c,C_word *av) C_noret; C_noret_decl(f_1679) static void C_ccall f_1679(C_word c,C_word *av) C_noret; C_noret_decl(f_1682) static void C_ccall f_1682(C_word c,C_word *av) C_noret; C_noret_decl(f_2117) static void C_fcall f_2117(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2123) static void C_fcall f_2123(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2137) static void C_ccall f_2137(C_word c,C_word *av) C_noret; C_noret_decl(f_2293) static void C_fcall f_2293(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2302) static void C_fcall f_2302(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2310) static void C_fcall f_2310(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2317) static void C_ccall f_2317(C_word c,C_word *av) C_noret; C_noret_decl(f_2331) static void C_ccall f_2331(C_word c,C_word *av) C_noret; C_noret_decl(f_2459) static C_word C_fcall f_2459(C_word t0); C_noret_decl(f_2701) static void C_fcall f_2701(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_2715) static void C_ccall f_2715(C_word c,C_word *av) C_noret; C_noret_decl(f_2719) static void C_ccall f_2719(C_word c,C_word *av) C_noret; C_noret_decl(f_2963) static void C_ccall f_2963(C_word c,C_word *av) C_noret; C_noret_decl(f_2970) static void C_ccall f_2970(C_word c,C_word *av) C_noret; C_noret_decl(f_2973) static void C_ccall f_2973(C_word c,C_word *av) C_noret; C_noret_decl(f_2976) static void C_ccall f_2976(C_word c,C_word *av) C_noret; C_noret_decl(f_2991) static void C_ccall f_2991(C_word c,C_word *av) C_noret; C_noret_decl(f_2998) static void C_ccall f_2998(C_word c,C_word *av) C_noret; C_noret_decl(f_3007) static void C_ccall f_3007(C_word c,C_word *av) C_noret; C_noret_decl(f_3009) static void C_fcall f_3009(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3011) static void C_ccall f_3011(C_word c,C_word *av) C_noret; C_noret_decl(f_3033) static void C_ccall f_3033(C_word c,C_word *av) C_noret; C_noret_decl(f_3066) static void C_ccall f_3066(C_word c,C_word *av) C_noret; C_noret_decl(f_3074) static void C_ccall f_3074(C_word c,C_word *av) C_noret; C_noret_decl(f_3077) static void C_ccall f_3077(C_word c,C_word *av) C_noret; C_noret_decl(f_3079) static void C_ccall f_3079(C_word c,C_word *av) C_noret; C_noret_decl(f_3095) static void C_ccall f_3095(C_word c,C_word *av) C_noret; C_noret_decl(f_3104) static void C_fcall f_3104(C_word t0,C_word t1) C_noret; C_noret_decl(f_3107) static void C_fcall f_3107(C_word t0,C_word t1) C_noret; C_noret_decl(f_3122) static void C_ccall f_3122(C_word c,C_word *av) C_noret; C_noret_decl(f_3134) static void C_ccall f_3134(C_word c,C_word *av) C_noret; C_noret_decl(f_3148) static void C_ccall f_3148(C_word c,C_word *av) C_noret; C_noret_decl(f_3152) static void C_ccall f_3152(C_word c,C_word *av) C_noret; C_noret_decl(f_3161) static void C_ccall f_3161(C_word c,C_word *av) C_noret; C_noret_decl(f_3175) static void C_ccall f_3175(C_word c,C_word *av) C_noret; C_noret_decl(f_3179) static void C_ccall f_3179(C_word c,C_word *av) C_noret; C_noret_decl(f_3209) static void C_ccall f_3209(C_word c,C_word *av) C_noret; C_noret_decl(f_3213) static void C_ccall f_3213(C_word c,C_word *av) C_noret; C_noret_decl(f_3217) static void C_ccall f_3217(C_word c,C_word *av) C_noret; C_noret_decl(f_3221) static void C_ccall f_3221(C_word c,C_word *av) C_noret; C_noret_decl(f_3225) static void C_ccall f_3225(C_word c,C_word *av) C_noret; C_noret_decl(f_3233) static void C_ccall f_3233(C_word c,C_word *av) C_noret; C_noret_decl(f_3236) static void C_ccall f_3236(C_word c,C_word *av) C_noret; C_noret_decl(f_3239) static void C_ccall f_3239(C_word c,C_word *av) C_noret; C_noret_decl(f_3241) static void C_ccall f_3241(C_word c,C_word *av) C_noret; C_noret_decl(f_3269) static void C_ccall f_3269(C_word c,C_word *av) C_noret; C_noret_decl(f_3277) static void C_ccall f_3277(C_word c,C_word *av) C_noret; C_noret_decl(f_3294) static void C_ccall f_3294(C_word c,C_word *av) C_noret; C_noret_decl(f_3296) static void C_fcall f_3296(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3321) static void C_ccall f_3321(C_word c,C_word *av) C_noret; C_noret_decl(f_3332) static void C_ccall f_3332(C_word c,C_word *av) C_noret; C_noret_decl(f_3336) static void C_ccall f_3336(C_word c,C_word *av) C_noret; C_noret_decl(f_3339) static void C_ccall f_3339(C_word c,C_word *av) C_noret; C_noret_decl(f_3353) static void C_ccall f_3353(C_word c,C_word *av) C_noret; C_noret_decl(f_3357) static void C_ccall f_3357(C_word c,C_word *av) C_noret; C_noret_decl(f_3380) static void C_ccall f_3380(C_word c,C_word *av) C_noret; C_noret_decl(f_3395) static void C_ccall f_3395(C_word c,C_word *av) C_noret; C_noret_decl(f_3403) static void C_ccall f_3403(C_word c,C_word *av) C_noret; C_noret_decl(f_3412) static void C_ccall f_3412(C_word c,C_word *av) C_noret; C_noret_decl(f_3416) static void C_ccall f_3416(C_word c,C_word *av) C_noret; C_noret_decl(f_3419) static void C_ccall f_3419(C_word c,C_word *av) C_noret; C_noret_decl(f_3422) static void C_ccall f_3422(C_word c,C_word *av) C_noret; C_noret_decl(f_3424) static void C_fcall f_3424(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3430) static void C_ccall f_3430(C_word c,C_word *av) C_noret; C_noret_decl(f_3442) static void C_ccall f_3442(C_word c,C_word *av) C_noret; C_noret_decl(f_3461) static void C_ccall f_3461(C_word c,C_word *av) C_noret; C_noret_decl(f_3492) static void C_ccall f_3492(C_word c,C_word *av) C_noret; C_noret_decl(f_3495) static void C_ccall f_3495(C_word c,C_word *av) C_noret; C_noret_decl(f_3498) static void C_ccall f_3498(C_word c,C_word *av) C_noret; C_noret_decl(f_3501) static void C_ccall f_3501(C_word c,C_word *av) C_noret; C_noret_decl(f_3504) static void C_ccall f_3504(C_word c,C_word *av) C_noret; C_noret_decl(f_3507) static void C_ccall f_3507(C_word c,C_word *av) C_noret; C_noret_decl(f_3508) static void C_ccall f_3508(C_word c,C_word *av) C_noret; C_noret_decl(f_3534) static void C_ccall f_3534(C_word c,C_word *av) C_noret; C_noret_decl(f_3537) static void C_ccall f_3537(C_word c,C_word *av) C_noret; C_noret_decl(f_3539) static void C_ccall f_3539(C_word c,C_word *av) C_noret; C_noret_decl(f_3573) static void C_ccall f_3573(C_word c,C_word *av) C_noret; C_noret_decl(f_3600) static void C_ccall f_3600(C_word c,C_word *av) C_noret; C_noret_decl(f_3603) static void C_ccall f_3603(C_word c,C_word *av) C_noret; C_noret_decl(f_3606) static void C_ccall f_3606(C_word c,C_word *av) C_noret; C_noret_decl(f_3621) static void C_ccall f_3621(C_word c,C_word *av) C_noret; C_noret_decl(f_3625) static void C_ccall f_3625(C_word c,C_word *av) C_noret; C_noret_decl(f_3637) static void C_ccall f_3637(C_word c,C_word *av) C_noret; C_noret_decl(f_3649) static void C_ccall f_3649(C_word c,C_word *av) C_noret; C_noret_decl(f_3661) static void C_ccall f_3661(C_word c,C_word *av) C_noret; C_noret_decl(f_3665) static void C_ccall f_3665(C_word c,C_word *av) C_noret; C_noret_decl(f_3673) static void C_ccall f_3673(C_word c,C_word *av) C_noret; C_noret_decl(f_3680) static void C_ccall f_3680(C_word c,C_word *av) C_noret; C_noret_decl(f_3684) static void C_ccall f_3684(C_word c,C_word *av) C_noret; C_noret_decl(f_3688) static void C_ccall f_3688(C_word c,C_word *av) C_noret; C_noret_decl(f_3692) static void C_ccall f_3692(C_word c,C_word *av) C_noret; C_noret_decl(f_3696) static void C_ccall f_3696(C_word c,C_word *av) C_noret; C_noret_decl(f_3704) static void C_ccall f_3704(C_word c,C_word *av) C_noret; C_noret_decl(f_3707) static void C_ccall f_3707(C_word c,C_word *av) C_noret; C_noret_decl(f_3710) static void C_ccall f_3710(C_word c,C_word *av) C_noret; C_noret_decl(f_3713) static void C_ccall f_3713(C_word c,C_word *av) C_noret; C_noret_decl(f_3716) static void C_ccall f_3716(C_word c,C_word *av) C_noret; C_noret_decl(f_3719) static void C_ccall f_3719(C_word c,C_word *av) C_noret; C_noret_decl(f_3722) static void C_ccall f_3722(C_word c,C_word *av) C_noret; C_noret_decl(f_3725) static void C_ccall f_3725(C_word c,C_word *av) C_noret; C_noret_decl(f_3728) static void C_ccall f_3728(C_word c,C_word *av) C_noret; C_noret_decl(f_3731) static void C_ccall f_3731(C_word c,C_word *av) C_noret; C_noret_decl(f_3734) static void C_ccall f_3734(C_word c,C_word *av) C_noret; C_noret_decl(f_3737) static void C_ccall f_3737(C_word c,C_word *av) C_noret; C_noret_decl(f_3740) static void C_ccall f_3740(C_word c,C_word *av) C_noret; C_noret_decl(f_3743) static void C_ccall f_3743(C_word c,C_word *av) C_noret; C_noret_decl(f_3746) static void C_ccall f_3746(C_word c,C_word *av) C_noret; C_noret_decl(f_3749) static void C_ccall f_3749(C_word c,C_word *av) C_noret; C_noret_decl(f_3752) static void C_ccall f_3752(C_word c,C_word *av) C_noret; C_noret_decl(f_3755) static void C_ccall f_3755(C_word c,C_word *av) C_noret; C_noret_decl(f_3758) static void C_ccall f_3758(C_word c,C_word *av) C_noret; C_noret_decl(f_3761) static void C_ccall f_3761(C_word c,C_word *av) C_noret; C_noret_decl(f_3764) static void C_ccall f_3764(C_word c,C_word *av) C_noret; C_noret_decl(f_3767) static void C_ccall f_3767(C_word c,C_word *av) C_noret; C_noret_decl(f_3770) static void C_ccall f_3770(C_word c,C_word *av) C_noret; C_noret_decl(f_3773) static void C_ccall f_3773(C_word c,C_word *av) C_noret; C_noret_decl(f_3776) static void C_ccall f_3776(C_word c,C_word *av) C_noret; C_noret_decl(f_3779) static void C_ccall f_3779(C_word c,C_word *av) C_noret; C_noret_decl(f_3782) static void C_ccall f_3782(C_word c,C_word *av) C_noret; C_noret_decl(f_3785) static void C_ccall f_3785(C_word c,C_word *av) C_noret; C_noret_decl(f_3788) static void C_ccall f_3788(C_word c,C_word *av) C_noret; C_noret_decl(f_3791) static void C_ccall f_3791(C_word c,C_word *av) C_noret; C_noret_decl(f_3794) static void C_ccall f_3794(C_word c,C_word *av) C_noret; C_noret_decl(f_3797) static void C_ccall f_3797(C_word c,C_word *av) C_noret; C_noret_decl(f_3800) static void C_ccall f_3800(C_word c,C_word *av) C_noret; C_noret_decl(f_3803) static void C_ccall f_3803(C_word c,C_word *av) C_noret; C_noret_decl(f_3806) static void C_ccall f_3806(C_word c,C_word *av) C_noret; C_noret_decl(f_3809) static void C_ccall f_3809(C_word c,C_word *av) C_noret; C_noret_decl(f_3812) static void C_ccall f_3812(C_word c,C_word *av) C_noret; C_noret_decl(f_3815) static void C_ccall f_3815(C_word c,C_word *av) C_noret; C_noret_decl(f_3818) static void C_ccall f_3818(C_word c,C_word *av) C_noret; C_noret_decl(f_3821) static void C_ccall f_3821(C_word c,C_word *av) C_noret; C_noret_decl(f_3824) static void C_ccall f_3824(C_word c,C_word *av) C_noret; C_noret_decl(f_3827) static void C_ccall f_3827(C_word c,C_word *av) C_noret; C_noret_decl(f_3830) static void C_ccall f_3830(C_word c,C_word *av) C_noret; C_noret_decl(f_3833) static void C_ccall f_3833(C_word c,C_word *av) C_noret; C_noret_decl(f_3836) static void C_ccall f_3836(C_word c,C_word *av) C_noret; C_noret_decl(f_3839) static void C_ccall f_3839(C_word c,C_word *av) C_noret; C_noret_decl(f_3842) static void C_ccall f_3842(C_word c,C_word *av) C_noret; C_noret_decl(f_3845) static void C_ccall f_3845(C_word c,C_word *av) C_noret; C_noret_decl(f_3848) static void C_ccall f_3848(C_word c,C_word *av) C_noret; C_noret_decl(f_3851) static void C_ccall f_3851(C_word c,C_word *av) C_noret; C_noret_decl(f_3854) static void C_ccall f_3854(C_word c,C_word *av) C_noret; C_noret_decl(f_3857) static void C_ccall f_3857(C_word c,C_word *av) C_noret; C_noret_decl(f_3860) static void C_ccall f_3860(C_word c,C_word *av) C_noret; C_noret_decl(f_3863) static void C_ccall f_3863(C_word c,C_word *av) C_noret; C_noret_decl(f_3866) static void C_ccall f_3866(C_word c,C_word *av) C_noret; C_noret_decl(f_3869) static void C_ccall f_3869(C_word c,C_word *av) C_noret; C_noret_decl(f_3872) static void C_ccall f_3872(C_word c,C_word *av) C_noret; C_noret_decl(f_3875) static void C_ccall f_3875(C_word c,C_word *av) C_noret; C_noret_decl(f_3878) static void C_ccall f_3878(C_word c,C_word *av) C_noret; C_noret_decl(f_3881) static void C_ccall f_3881(C_word c,C_word *av) C_noret; C_noret_decl(f_3884) static void C_ccall f_3884(C_word c,C_word *av) C_noret; C_noret_decl(f_3887) static void C_ccall f_3887(C_word c,C_word *av) C_noret; C_noret_decl(f_3890) static void C_ccall f_3890(C_word c,C_word *av) C_noret; C_noret_decl(f_3893) static void C_ccall f_3893(C_word c,C_word *av) C_noret; C_noret_decl(f_3896) static void C_ccall f_3896(C_word c,C_word *av) C_noret; C_noret_decl(f_3899) static void C_ccall f_3899(C_word c,C_word *av) C_noret; C_noret_decl(f_3902) static void C_ccall f_3902(C_word c,C_word *av) C_noret; C_noret_decl(f_3905) static void C_ccall f_3905(C_word c,C_word *av) C_noret; C_noret_decl(f_3908) static void C_ccall f_3908(C_word c,C_word *av) C_noret; C_noret_decl(f_3911) static void C_ccall f_3911(C_word c,C_word *av) C_noret; C_noret_decl(f_3914) static void C_ccall f_3914(C_word c,C_word *av) C_noret; C_noret_decl(f_3917) static void C_ccall f_3917(C_word c,C_word *av) C_noret; C_noret_decl(f_3920) static void C_ccall f_3920(C_word c,C_word *av) C_noret; C_noret_decl(f_3923) static void C_ccall f_3923(C_word c,C_word *av) C_noret; C_noret_decl(f_3926) static void C_ccall f_3926(C_word c,C_word *av) C_noret; C_noret_decl(f_3929) static void C_ccall f_3929(C_word c,C_word *av) C_noret; C_noret_decl(f_3932) static void C_ccall f_3932(C_word c,C_word *av) C_noret; C_noret_decl(f_3935) static void C_ccall f_3935(C_word c,C_word *av) C_noret; C_noret_decl(f_3938) static void C_ccall f_3938(C_word c,C_word *av) C_noret; C_noret_decl(f_3941) static void C_ccall f_3941(C_word c,C_word *av) C_noret; C_noret_decl(f_3944) static void C_ccall f_3944(C_word c,C_word *av) C_noret; C_noret_decl(f_3947) static void C_ccall f_3947(C_word c,C_word *av) C_noret; C_noret_decl(f_3950) static void C_ccall f_3950(C_word c,C_word *av) C_noret; C_noret_decl(f_3953) static void C_ccall f_3953(C_word c,C_word *av) C_noret; C_noret_decl(f_3956) static void C_ccall f_3956(C_word c,C_word *av) C_noret; C_noret_decl(f_3959) static void C_ccall f_3959(C_word c,C_word *av) C_noret; C_noret_decl(f_3962) static void C_ccall f_3962(C_word c,C_word *av) C_noret; C_noret_decl(f_3965) static void C_ccall f_3965(C_word c,C_word *av) C_noret; C_noret_decl(f_3968) static void C_ccall f_3968(C_word c,C_word *av) C_noret; C_noret_decl(f_3971) static void C_ccall f_3971(C_word c,C_word *av) C_noret; C_noret_decl(f_3974) static void C_ccall f_3974(C_word c,C_word *av) C_noret; C_noret_decl(f_3977) static void C_ccall f_3977(C_word c,C_word *av) C_noret; C_noret_decl(f_3980) static void C_ccall f_3980(C_word c,C_word *av) C_noret; C_noret_decl(f_3983) static void C_ccall f_3983(C_word c,C_word *av) C_noret; C_noret_decl(f_3986) static void C_ccall f_3986(C_word c,C_word *av) C_noret; C_noret_decl(f_3989) static void C_ccall f_3989(C_word c,C_word *av) C_noret; C_noret_decl(f_3992) static void C_ccall f_3992(C_word c,C_word *av) C_noret; C_noret_decl(f_3995) static void C_ccall f_3995(C_word c,C_word *av) C_noret; C_noret_decl(f_3998) static void C_ccall f_3998(C_word c,C_word *av) C_noret; C_noret_decl(f_4001) static void C_ccall f_4001(C_word c,C_word *av) C_noret; C_noret_decl(f_4004) static void C_ccall f_4004(C_word c,C_word *av) C_noret; C_noret_decl(f_4007) static void C_ccall f_4007(C_word c,C_word *av) C_noret; C_noret_decl(f_4010) static void C_ccall f_4010(C_word c,C_word *av) C_noret; C_noret_decl(f_4013) static void C_ccall f_4013(C_word c,C_word *av) C_noret; C_noret_decl(f_4016) static void C_ccall f_4016(C_word c,C_word *av) C_noret; C_noret_decl(f_4019) static void C_ccall f_4019(C_word c,C_word *av) C_noret; C_noret_decl(f_4022) static void C_ccall f_4022(C_word c,C_word *av) C_noret; C_noret_decl(f_4025) static void C_ccall f_4025(C_word c,C_word *av) C_noret; C_noret_decl(f_4028) static void C_ccall f_4028(C_word c,C_word *av) C_noret; C_noret_decl(f_4031) static void C_ccall f_4031(C_word c,C_word *av) C_noret; C_noret_decl(f_4034) static void C_ccall f_4034(C_word c,C_word *av) C_noret; C_noret_decl(f_4037) static void C_ccall f_4037(C_word c,C_word *av) C_noret; C_noret_decl(f_4040) static void C_ccall f_4040(C_word c,C_word *av) C_noret; C_noret_decl(f_4043) static void C_ccall f_4043(C_word c,C_word *av) C_noret; C_noret_decl(f_4046) static void C_ccall f_4046(C_word c,C_word *av) C_noret; C_noret_decl(f_4049) static void C_ccall f_4049(C_word c,C_word *av) C_noret; C_noret_decl(f_4052) static void C_ccall f_4052(C_word c,C_word *av) C_noret; C_noret_decl(f_4055) static void C_ccall f_4055(C_word c,C_word *av) C_noret; C_noret_decl(f_4058) static void C_ccall f_4058(C_word c,C_word *av) C_noret; C_noret_decl(f_4061) static void C_ccall f_4061(C_word c,C_word *av) C_noret; C_noret_decl(f_4064) static void C_ccall f_4064(C_word c,C_word *av) C_noret; C_noret_decl(f_4067) static void C_ccall f_4067(C_word c,C_word *av) C_noret; C_noret_decl(f_4070) static void C_ccall f_4070(C_word c,C_word *av) C_noret; C_noret_decl(f_4073) static void C_ccall f_4073(C_word c,C_word *av) C_noret; C_noret_decl(f_4076) static void C_ccall f_4076(C_word c,C_word *av) C_noret; C_noret_decl(f_4079) static void C_ccall f_4079(C_word c,C_word *av) C_noret; C_noret_decl(f_4082) static void C_ccall f_4082(C_word c,C_word *av) C_noret; C_noret_decl(f_4085) static void C_ccall f_4085(C_word c,C_word *av) C_noret; C_noret_decl(f_4088) static void C_ccall f_4088(C_word c,C_word *av) C_noret; C_noret_decl(f_4091) static void C_ccall f_4091(C_word c,C_word *av) C_noret; C_noret_decl(f_4094) static void C_ccall f_4094(C_word c,C_word *av) C_noret; C_noret_decl(f_4097) static void C_ccall f_4097(C_word c,C_word *av) C_noret; C_noret_decl(f_4100) static void C_ccall f_4100(C_word c,C_word *av) C_noret; C_noret_decl(f_4103) static void C_ccall f_4103(C_word c,C_word *av) C_noret; C_noret_decl(f_4106) static void C_ccall f_4106(C_word c,C_word *av) C_noret; C_noret_decl(f_4109) static void C_ccall f_4109(C_word c,C_word *av) C_noret; C_noret_decl(f_4112) static void C_ccall f_4112(C_word c,C_word *av) C_noret; C_noret_decl(f_4115) static void C_ccall f_4115(C_word c,C_word *av) C_noret; C_noret_decl(f_4118) static void C_ccall f_4118(C_word c,C_word *av) C_noret; C_noret_decl(f_4121) static void C_ccall f_4121(C_word c,C_word *av) C_noret; C_noret_decl(f_4124) static void C_ccall f_4124(C_word c,C_word *av) C_noret; C_noret_decl(f_4127) static void C_ccall f_4127(C_word c,C_word *av) C_noret; C_noret_decl(f_4130) static void C_ccall f_4130(C_word c,C_word *av) C_noret; C_noret_decl(f_4133) static void C_ccall f_4133(C_word c,C_word *av) C_noret; C_noret_decl(f_4136) static void C_ccall f_4136(C_word c,C_word *av) C_noret; C_noret_decl(f_4139) static void C_ccall f_4139(C_word c,C_word *av) C_noret; C_noret_decl(f_4142) static void C_ccall f_4142(C_word c,C_word *av) C_noret; C_noret_decl(f_4145) static void C_ccall f_4145(C_word c,C_word *av) C_noret; C_noret_decl(f_4148) static void C_ccall f_4148(C_word c,C_word *av) C_noret; C_noret_decl(f_4151) static void C_ccall f_4151(C_word c,C_word *av) C_noret; C_noret_decl(f_4154) static void C_ccall f_4154(C_word c,C_word *av) C_noret; C_noret_decl(f_4157) static void C_ccall f_4157(C_word c,C_word *av) C_noret; C_noret_decl(f_4160) static void C_ccall f_4160(C_word c,C_word *av) C_noret; C_noret_decl(f_4163) static void C_ccall f_4163(C_word c,C_word *av) C_noret; C_noret_decl(f_4166) static void C_ccall f_4166(C_word c,C_word *av) C_noret; C_noret_decl(f_4169) static void C_ccall f_4169(C_word c,C_word *av) C_noret; C_noret_decl(f_4172) static void C_ccall f_4172(C_word c,C_word *av) C_noret; C_noret_decl(f_4175) static void C_ccall f_4175(C_word c,C_word *av) C_noret; C_noret_decl(f_4178) static void C_ccall f_4178(C_word c,C_word *av) C_noret; C_noret_decl(f_4181) static void C_ccall f_4181(C_word c,C_word *av) C_noret; C_noret_decl(f_4184) static void C_ccall f_4184(C_word c,C_word *av) C_noret; C_noret_decl(f_4187) static void C_ccall f_4187(C_word c,C_word *av) C_noret; C_noret_decl(f_4190) static void C_ccall f_4190(C_word c,C_word *av) C_noret; C_noret_decl(f_4193) static void C_ccall f_4193(C_word c,C_word *av) C_noret; C_noret_decl(f_4196) static void C_ccall f_4196(C_word c,C_word *av) C_noret; C_noret_decl(f_4199) static void C_ccall f_4199(C_word c,C_word *av) C_noret; C_noret_decl(f_4202) static void C_ccall f_4202(C_word c,C_word *av) C_noret; C_noret_decl(f_4205) static void C_ccall f_4205(C_word c,C_word *av) C_noret; C_noret_decl(f_4208) static void C_ccall f_4208(C_word c,C_word *av) C_noret; C_noret_decl(f_4211) static void C_ccall f_4211(C_word c,C_word *av) C_noret; C_noret_decl(f_4214) static void C_ccall f_4214(C_word c,C_word *av) C_noret; C_noret_decl(f_4217) static void C_ccall f_4217(C_word c,C_word *av) C_noret; C_noret_decl(f_4220) static void C_ccall f_4220(C_word c,C_word *av) C_noret; C_noret_decl(f_4223) static void C_ccall f_4223(C_word c,C_word *av) C_noret; C_noret_decl(f_4226) static void C_ccall f_4226(C_word c,C_word *av) C_noret; C_noret_decl(f_4229) static void C_ccall f_4229(C_word c,C_word *av) C_noret; C_noret_decl(f_4232) static void C_ccall f_4232(C_word c,C_word *av) C_noret; C_noret_decl(f_4235) static void C_ccall f_4235(C_word c,C_word *av) C_noret; C_noret_decl(f_4238) static void C_ccall f_4238(C_word c,C_word *av) C_noret; C_noret_decl(f_4241) static void C_ccall f_4241(C_word c,C_word *av) C_noret; C_noret_decl(f_4244) static void C_ccall f_4244(C_word c,C_word *av) C_noret; C_noret_decl(f_4247) static void C_ccall f_4247(C_word c,C_word *av) C_noret; C_noret_decl(f_4250) static void C_ccall f_4250(C_word c,C_word *av) C_noret; C_noret_decl(f_4253) static void C_ccall f_4253(C_word c,C_word *av) C_noret; C_noret_decl(f_4256) static void C_ccall f_4256(C_word c,C_word *av) C_noret; C_noret_decl(f_4259) static void C_ccall f_4259(C_word c,C_word *av) C_noret; C_noret_decl(f_4262) static void C_ccall f_4262(C_word c,C_word *av) C_noret; C_noret_decl(f_4265) static void C_ccall f_4265(C_word c,C_word *av) C_noret; C_noret_decl(f_4268) static void C_ccall f_4268(C_word c,C_word *av) C_noret; C_noret_decl(f_4271) static void C_ccall f_4271(C_word c,C_word *av) C_noret; C_noret_decl(f_4274) static void C_ccall f_4274(C_word c,C_word *av) C_noret; C_noret_decl(f_4277) static void C_ccall f_4277(C_word c,C_word *av) C_noret; C_noret_decl(f_4280) static void C_ccall f_4280(C_word c,C_word *av) C_noret; C_noret_decl(f_4283) static void C_ccall f_4283(C_word c,C_word *av) C_noret; C_noret_decl(f_4286) static void C_ccall f_4286(C_word c,C_word *av) C_noret; C_noret_decl(f_4289) static void C_ccall f_4289(C_word c,C_word *av) C_noret; C_noret_decl(f_4292) static void C_ccall f_4292(C_word c,C_word *av) C_noret; C_noret_decl(f_4295) static void C_ccall f_4295(C_word c,C_word *av) C_noret; C_noret_decl(f_4298) static void C_ccall f_4298(C_word c,C_word *av) C_noret; C_noret_decl(f_4301) static void C_ccall f_4301(C_word c,C_word *av) C_noret; C_noret_decl(f_4304) static void C_ccall f_4304(C_word c,C_word *av) C_noret; C_noret_decl(f_4307) static void C_ccall f_4307(C_word c,C_word *av) C_noret; C_noret_decl(f_4310) static void C_ccall f_4310(C_word c,C_word *av) C_noret; C_noret_decl(f_4313) static void C_ccall f_4313(C_word c,C_word *av) C_noret; C_noret_decl(f_4316) static void C_ccall f_4316(C_word c,C_word *av) C_noret; C_noret_decl(f_4319) static void C_ccall f_4319(C_word c,C_word *av) C_noret; C_noret_decl(f_4322) static void C_ccall f_4322(C_word c,C_word *av) C_noret; C_noret_decl(f_4325) static void C_ccall f_4325(C_word c,C_word *av) C_noret; C_noret_decl(f_4328) static void C_ccall f_4328(C_word c,C_word *av) C_noret; C_noret_decl(f_4331) static void C_ccall f_4331(C_word c,C_word *av) C_noret; C_noret_decl(f_4334) static void C_ccall f_4334(C_word c,C_word *av) C_noret; C_noret_decl(f_4337) static void C_ccall f_4337(C_word c,C_word *av) C_noret; C_noret_decl(f_4340) static void C_ccall f_4340(C_word c,C_word *av) C_noret; C_noret_decl(f_4343) static void C_ccall f_4343(C_word c,C_word *av) C_noret; C_noret_decl(f_4346) static void C_ccall f_4346(C_word c,C_word *av) C_noret; C_noret_decl(f_4349) static void C_ccall f_4349(C_word c,C_word *av) C_noret; C_noret_decl(f_4352) static void C_ccall f_4352(C_word c,C_word *av) C_noret; C_noret_decl(f_4355) static void C_ccall f_4355(C_word c,C_word *av) C_noret; C_noret_decl(f_4358) static void C_ccall f_4358(C_word c,C_word *av) C_noret; C_noret_decl(f_4361) static void C_ccall f_4361(C_word c,C_word *av) C_noret; C_noret_decl(f_4364) static void C_ccall f_4364(C_word c,C_word *av) C_noret; C_noret_decl(f_4367) static void C_ccall f_4367(C_word c,C_word *av) C_noret; C_noret_decl(f_4370) static void C_ccall f_4370(C_word c,C_word *av) C_noret; C_noret_decl(f_4373) static void C_ccall f_4373(C_word c,C_word *av) C_noret; C_noret_decl(f_4376) static void C_ccall f_4376(C_word c,C_word *av) C_noret; C_noret_decl(f_4379) static void C_ccall f_4379(C_word c,C_word *av) C_noret; C_noret_decl(f_4382) static void C_ccall f_4382(C_word c,C_word *av) C_noret; C_noret_decl(f_4385) static void C_ccall f_4385(C_word c,C_word *av) C_noret; C_noret_decl(f_4388) static void C_ccall f_4388(C_word c,C_word *av) C_noret; C_noret_decl(f_4391) static void C_ccall f_4391(C_word c,C_word *av) C_noret; C_noret_decl(f_4394) static void C_ccall f_4394(C_word c,C_word *av) C_noret; C_noret_decl(f_4397) static void C_ccall f_4397(C_word c,C_word *av) C_noret; C_noret_decl(f_4400) static void C_ccall f_4400(C_word c,C_word *av) C_noret; C_noret_decl(f_4403) static void C_ccall f_4403(C_word c,C_word *av) C_noret; C_noret_decl(f_4406) static void C_ccall f_4406(C_word c,C_word *av) C_noret; C_noret_decl(f_4409) static void C_ccall f_4409(C_word c,C_word *av) C_noret; C_noret_decl(f_4412) static void C_ccall f_4412(C_word c,C_word *av) C_noret; C_noret_decl(f_4415) static void C_ccall f_4415(C_word c,C_word *av) C_noret; C_noret_decl(f_4418) static void C_ccall f_4418(C_word c,C_word *av) C_noret; C_noret_decl(f_4421) static void C_ccall f_4421(C_word c,C_word *av) C_noret; C_noret_decl(f_4424) static void C_ccall f_4424(C_word c,C_word *av) C_noret; C_noret_decl(f_4427) static void C_ccall f_4427(C_word c,C_word *av) C_noret; C_noret_decl(f_4430) static void C_ccall f_4430(C_word c,C_word *av) C_noret; C_noret_decl(f_4433) static void C_ccall f_4433(C_word c,C_word *av) C_noret; C_noret_decl(f_4436) static void C_ccall f_4436(C_word c,C_word *av) C_noret; C_noret_decl(f_4439) static void C_ccall f_4439(C_word c,C_word *av) C_noret; C_noret_decl(f_4442) static void C_ccall f_4442(C_word c,C_word *av) C_noret; C_noret_decl(f_4444) static void C_ccall f_4444(C_word c,C_word *av) C_noret; C_noret_decl(f_4481) static void C_ccall f_4481(C_word c,C_word *av) C_noret; C_noret_decl(f_4483) static void C_ccall f_4483(C_word c,C_word *av) C_noret; C_noret_decl(f_4490) static void C_fcall f_4490(C_word t0,C_word t1) C_noret; C_noret_decl(f_4501) static void C_ccall f_4501(C_word c,C_word *av) C_noret; C_noret_decl(f_4522) static void C_ccall f_4522(C_word c,C_word *av) C_noret; C_noret_decl(f_4526) static void C_ccall f_4526(C_word c,C_word *av) C_noret; C_noret_decl(f_4539) static void C_ccall f_4539(C_word c,C_word *av) C_noret; C_noret_decl(f_4541) static void C_ccall f_4541(C_word c,C_word *av) C_noret; C_noret_decl(f_4563) static void C_ccall f_4563(C_word c,C_word *av) C_noret; C_noret_decl(f_4567) static void C_ccall f_4567(C_word c,C_word *av) C_noret; C_noret_decl(f_4577) static void C_ccall f_4577(C_word c,C_word *av) C_noret; C_noret_decl(f_4580) static void C_ccall f_4580(C_word c,C_word *av) C_noret; C_noret_decl(f_4583) static void C_ccall f_4583(C_word c,C_word *av) C_noret; C_noret_decl(f_4586) static void C_ccall f_4586(C_word c,C_word *av) C_noret; C_noret_decl(f_4589) static void C_ccall f_4589(C_word c,C_word *av) C_noret; C_noret_decl(f_4592) static void C_ccall f_4592(C_word c,C_word *av) C_noret; C_noret_decl(f_4595) static void C_ccall f_4595(C_word c,C_word *av) C_noret; C_noret_decl(f_4598) static void C_ccall f_4598(C_word c,C_word *av) C_noret; C_noret_decl(f_4601) static void C_ccall f_4601(C_word c,C_word *av) C_noret; C_noret_decl(f_4604) static void C_ccall f_4604(C_word c,C_word *av) C_noret; C_noret_decl(f_4607) static void C_ccall f_4607(C_word c,C_word *av) C_noret; C_noret_decl(f_4610) static void C_ccall f_4610(C_word c,C_word *av) C_noret; C_noret_decl(f_4613) static void C_ccall f_4613(C_word c,C_word *av) C_noret; C_noret_decl(f_4616) static void C_ccall f_4616(C_word c,C_word *av) C_noret; C_noret_decl(f_4619) static void C_ccall f_4619(C_word c,C_word *av) C_noret; C_noret_decl(f_4622) static void C_ccall f_4622(C_word c,C_word *av) C_noret; C_noret_decl(f_4625) static void C_ccall f_4625(C_word c,C_word *av) C_noret; C_noret_decl(f_4628) static void C_ccall f_4628(C_word c,C_word *av) C_noret; C_noret_decl(f_4631) static void C_ccall f_4631(C_word c,C_word *av) C_noret; C_noret_decl(f_4634) static void C_ccall f_4634(C_word c,C_word *av) C_noret; C_noret_decl(f_4637) static void C_ccall f_4637(C_word c,C_word *av) C_noret; C_noret_decl(f_4640) static void C_ccall f_4640(C_word c,C_word *av) C_noret; C_noret_decl(f_4643) static void C_ccall f_4643(C_word c,C_word *av) C_noret; C_noret_decl(f_4646) static void C_ccall f_4646(C_word c,C_word *av) C_noret; C_noret_decl(f_4649) static void C_ccall f_4649(C_word c,C_word *av) C_noret; C_noret_decl(f_4652) static void C_ccall f_4652(C_word c,C_word *av) C_noret; C_noret_decl(f_4655) static void C_ccall f_4655(C_word c,C_word *av) C_noret; C_noret_decl(f_4658) static void C_ccall f_4658(C_word c,C_word *av) C_noret; C_noret_decl(f_4661) static void C_ccall f_4661(C_word c,C_word *av) C_noret; C_noret_decl(f_4664) static void C_ccall f_4664(C_word c,C_word *av) C_noret; C_noret_decl(f_4667) static void C_ccall f_4667(C_word c,C_word *av) C_noret; C_noret_decl(f_4670) static void C_ccall f_4670(C_word c,C_word *av) C_noret; C_noret_decl(f_4673) static void C_ccall f_4673(C_word c,C_word *av) C_noret; C_noret_decl(f_4676) static void C_ccall f_4676(C_word c,C_word *av) C_noret; C_noret_decl(f_4679) static void C_ccall f_4679(C_word c,C_word *av) C_noret; C_noret_decl(f_4682) static void C_ccall f_4682(C_word c,C_word *av) C_noret; C_noret_decl(f_4685) static void C_ccall f_4685(C_word c,C_word *av) C_noret; C_noret_decl(f_4688) static void C_ccall f_4688(C_word c,C_word *av) C_noret; C_noret_decl(f_4691) static void C_ccall f_4691(C_word c,C_word *av) C_noret; C_noret_decl(f_4694) static void C_ccall f_4694(C_word c,C_word *av) C_noret; C_noret_decl(f_4697) static void C_ccall f_4697(C_word c,C_word *av) C_noret; C_noret_decl(f_4700) static void C_ccall f_4700(C_word c,C_word *av) C_noret; C_noret_decl(f_4703) static void C_ccall f_4703(C_word c,C_word *av) C_noret; C_noret_decl(f_4706) static void C_ccall f_4706(C_word c,C_word *av) C_noret; C_noret_decl(f_4709) static void C_ccall f_4709(C_word c,C_word *av) C_noret; C_noret_decl(f_4712) static void C_ccall f_4712(C_word c,C_word *av) C_noret; C_noret_decl(f_4715) static void C_ccall f_4715(C_word c,C_word *av) C_noret; C_noret_decl(f_4718) static void C_ccall f_4718(C_word c,C_word *av) C_noret; C_noret_decl(f_4721) static void C_ccall f_4721(C_word c,C_word *av) C_noret; C_noret_decl(f_4724) static void C_ccall f_4724(C_word c,C_word *av) C_noret; C_noret_decl(f_4727) static void C_ccall f_4727(C_word c,C_word *av) C_noret; C_noret_decl(f_4730) static void C_ccall f_4730(C_word c,C_word *av) C_noret; C_noret_decl(f_4733) static void C_ccall f_4733(C_word c,C_word *av) C_noret; C_noret_decl(f_4736) static void C_ccall f_4736(C_word c,C_word *av) C_noret; C_noret_decl(f_4739) static void C_ccall f_4739(C_word c,C_word *av) C_noret; C_noret_decl(f_4742) static void C_ccall f_4742(C_word c,C_word *av) C_noret; C_noret_decl(f_4745) static void C_ccall f_4745(C_word c,C_word *av) C_noret; C_noret_decl(f_4748) static void C_ccall f_4748(C_word c,C_word *av) C_noret; C_noret_decl(f_4751) static void C_ccall f_4751(C_word c,C_word *av) C_noret; C_noret_decl(f_4754) static void C_ccall f_4754(C_word c,C_word *av) C_noret; C_noret_decl(f_4757) static void C_ccall f_4757(C_word c,C_word *av) C_noret; C_noret_decl(f_4760) static void C_ccall f_4760(C_word c,C_word *av) C_noret; C_noret_decl(f_4763) static void C_ccall f_4763(C_word c,C_word *av) C_noret; C_noret_decl(f_4766) static void C_ccall f_4766(C_word c,C_word *av) C_noret; C_noret_decl(f_4769) static void C_ccall f_4769(C_word c,C_word *av) C_noret; C_noret_decl(f_4772) static void C_ccall f_4772(C_word c,C_word *av) C_noret; C_noret_decl(f_4775) static void C_ccall f_4775(C_word c,C_word *av) C_noret; C_noret_decl(f_4778) static void C_ccall f_4778(C_word c,C_word *av) C_noret; C_noret_decl(f_4781) static void C_ccall f_4781(C_word c,C_word *av) C_noret; C_noret_decl(f_4784) static void C_ccall f_4784(C_word c,C_word *av) C_noret; C_noret_decl(f_4787) static void C_ccall f_4787(C_word c,C_word *av) C_noret; C_noret_decl(f_4790) static void C_ccall f_4790(C_word c,C_word *av) C_noret; C_noret_decl(f_4793) static void C_ccall f_4793(C_word c,C_word *av) C_noret; C_noret_decl(f_4796) static void C_ccall f_4796(C_word c,C_word *av) C_noret; C_noret_decl(f_4799) static void C_ccall f_4799(C_word c,C_word *av) C_noret; C_noret_decl(f_4802) static void C_ccall f_4802(C_word c,C_word *av) C_noret; C_noret_decl(f_4805) static void C_ccall f_4805(C_word c,C_word *av) C_noret; C_noret_decl(f_4808) static void C_ccall f_4808(C_word c,C_word *av) C_noret; C_noret_decl(f_4811) static void C_ccall f_4811(C_word c,C_word *av) C_noret; C_noret_decl(f_4814) static void C_ccall f_4814(C_word c,C_word *av) C_noret; C_noret_decl(f_4817) static void C_ccall f_4817(C_word c,C_word *av) C_noret; C_noret_decl(f_4820) static void C_ccall f_4820(C_word c,C_word *av) C_noret; C_noret_decl(f_4823) static void C_ccall f_4823(C_word c,C_word *av) C_noret; C_noret_decl(f_4826) static void C_ccall f_4826(C_word c,C_word *av) C_noret; C_noret_decl(f_4829) static void C_ccall f_4829(C_word c,C_word *av) C_noret; C_noret_decl(f_4832) static void C_ccall f_4832(C_word c,C_word *av) C_noret; C_noret_decl(f_4835) static void C_ccall f_4835(C_word c,C_word *av) C_noret; C_noret_decl(f_4838) static void C_ccall f_4838(C_word c,C_word *av) C_noret; C_noret_decl(f_4841) static void C_ccall f_4841(C_word c,C_word *av) C_noret; C_noret_decl(f_4844) static void C_ccall f_4844(C_word c,C_word *av) C_noret; C_noret_decl(f_4847) static void C_ccall f_4847(C_word c,C_word *av) C_noret; C_noret_decl(f_4850) static void C_ccall f_4850(C_word c,C_word *av) C_noret; C_noret_decl(f_4853) static void C_ccall f_4853(C_word c,C_word *av) C_noret; C_noret_decl(f_4856) static void C_ccall f_4856(C_word c,C_word *av) C_noret; C_noret_decl(f_4859) static void C_ccall f_4859(C_word c,C_word *av) C_noret; C_noret_decl(f_4862) static void C_ccall f_4862(C_word c,C_word *av) C_noret; C_noret_decl(f_4865) static void C_ccall f_4865(C_word c,C_word *av) C_noret; C_noret_decl(f_4868) static void C_ccall f_4868(C_word c,C_word *av) C_noret; C_noret_decl(f_4871) static void C_ccall f_4871(C_word c,C_word *av) C_noret; C_noret_decl(f_4874) static void C_ccall f_4874(C_word c,C_word *av) C_noret; C_noret_decl(f_4877) static void C_ccall f_4877(C_word c,C_word *av) C_noret; C_noret_decl(f_4880) static void C_ccall f_4880(C_word c,C_word *av) C_noret; C_noret_decl(f_4883) static void C_ccall f_4883(C_word c,C_word *av) C_noret; C_noret_decl(f_4886) static void C_ccall f_4886(C_word c,C_word *av) C_noret; C_noret_decl(f_4889) static void C_ccall f_4889(C_word c,C_word *av) C_noret; C_noret_decl(f_4892) static void C_ccall f_4892(C_word c,C_word *av) C_noret; C_noret_decl(f_4895) static void C_ccall f_4895(C_word c,C_word *av) C_noret; C_noret_decl(f_4898) static void C_ccall f_4898(C_word c,C_word *av) C_noret; C_noret_decl(f_4901) static void C_ccall f_4901(C_word c,C_word *av) C_noret; C_noret_decl(f_4904) static void C_ccall f_4904(C_word c,C_word *av) C_noret; C_noret_decl(f_4907) static void C_ccall f_4907(C_word c,C_word *av) C_noret; C_noret_decl(f_4910) static void C_ccall f_4910(C_word c,C_word *av) C_noret; C_noret_decl(f_4913) static void C_ccall f_4913(C_word c,C_word *av) C_noret; C_noret_decl(f_4916) static void C_ccall f_4916(C_word c,C_word *av) C_noret; C_noret_decl(f_4919) static void C_ccall f_4919(C_word c,C_word *av) C_noret; C_noret_decl(f_4922) static void C_ccall f_4922(C_word c,C_word *av) C_noret; C_noret_decl(f_4925) static void C_ccall f_4925(C_word c,C_word *av) C_noret; C_noret_decl(f_4928) static void C_ccall f_4928(C_word c,C_word *av) C_noret; C_noret_decl(f_4931) static void C_ccall f_4931(C_word c,C_word *av) C_noret; C_noret_decl(f_4934) static void C_ccall f_4934(C_word c,C_word *av) C_noret; C_noret_decl(f_4937) static void C_ccall f_4937(C_word c,C_word *av) C_noret; C_noret_decl(f_4940) static void C_ccall f_4940(C_word c,C_word *av) C_noret; C_noret_decl(f_4943) static void C_ccall f_4943(C_word c,C_word *av) C_noret; C_noret_decl(f_4946) static void C_ccall f_4946(C_word c,C_word *av) C_noret; C_noret_decl(f_4949) static void C_ccall f_4949(C_word c,C_word *av) C_noret; C_noret_decl(f_4952) static void C_ccall f_4952(C_word c,C_word *av) C_noret; C_noret_decl(f_4955) static void C_ccall f_4955(C_word c,C_word *av) C_noret; C_noret_decl(f_4958) static void C_ccall f_4958(C_word c,C_word *av) C_noret; C_noret_decl(f_4961) static void C_ccall f_4961(C_word c,C_word *av) C_noret; C_noret_decl(f_4964) static void C_ccall f_4964(C_word c,C_word *av) C_noret; C_noret_decl(f_4967) static void C_ccall f_4967(C_word c,C_word *av) C_noret; C_noret_decl(f_4970) static void C_ccall f_4970(C_word c,C_word *av) C_noret; C_noret_decl(f_4973) static void C_ccall f_4973(C_word c,C_word *av) C_noret; C_noret_decl(f_4976) static void C_ccall f_4976(C_word c,C_word *av) C_noret; C_noret_decl(f_4979) static void C_ccall f_4979(C_word c,C_word *av) C_noret; C_noret_decl(f_4982) static void C_ccall f_4982(C_word c,C_word *av) C_noret; C_noret_decl(f_4985) static void C_ccall f_4985(C_word c,C_word *av) C_noret; C_noret_decl(f_4988) static void C_ccall f_4988(C_word c,C_word *av) C_noret; C_noret_decl(f_4991) static void C_ccall f_4991(C_word c,C_word *av) C_noret; C_noret_decl(f_4994) static void C_ccall f_4994(C_word c,C_word *av) C_noret; C_noret_decl(f_4997) static void C_ccall f_4997(C_word c,C_word *av) C_noret; C_noret_decl(f_5000) static void C_ccall f_5000(C_word c,C_word *av) C_noret; C_noret_decl(f_5003) static void C_ccall f_5003(C_word c,C_word *av) C_noret; C_noret_decl(f_5006) static void C_ccall f_5006(C_word c,C_word *av) C_noret; C_noret_decl(f_5009) static void C_ccall f_5009(C_word c,C_word *av) C_noret; C_noret_decl(f_5012) static void C_ccall f_5012(C_word c,C_word *av) C_noret; C_noret_decl(f_5015) static void C_ccall f_5015(C_word c,C_word *av) C_noret; C_noret_decl(f_5018) static void C_ccall f_5018(C_word c,C_word *av) C_noret; C_noret_decl(f_5021) static void C_ccall f_5021(C_word c,C_word *av) C_noret; C_noret_decl(f_5024) static void C_ccall f_5024(C_word c,C_word *av) C_noret; C_noret_decl(f_5027) static void C_ccall f_5027(C_word c,C_word *av) C_noret; C_noret_decl(f_5030) static void C_ccall f_5030(C_word c,C_word *av) C_noret; C_noret_decl(f_5033) static void C_ccall f_5033(C_word c,C_word *av) C_noret; C_noret_decl(f_5036) static void C_ccall f_5036(C_word c,C_word *av) C_noret; C_noret_decl(f_5039) static void C_ccall f_5039(C_word c,C_word *av) C_noret; C_noret_decl(f_5042) static void C_ccall f_5042(C_word c,C_word *av) C_noret; C_noret_decl(f_5045) static void C_ccall f_5045(C_word c,C_word *av) C_noret; C_noret_decl(f_5048) static void C_ccall f_5048(C_word c,C_word *av) C_noret; C_noret_decl(f_5051) static void C_ccall f_5051(C_word c,C_word *av) C_noret; C_noret_decl(f_5054) static void C_ccall f_5054(C_word c,C_word *av) C_noret; C_noret_decl(f_5057) static void C_ccall f_5057(C_word c,C_word *av) C_noret; C_noret_decl(f_5060) static void C_ccall f_5060(C_word c,C_word *av) C_noret; C_noret_decl(f_5063) static void C_ccall f_5063(C_word c,C_word *av) C_noret; C_noret_decl(f_5066) static void C_ccall f_5066(C_word c,C_word *av) C_noret; C_noret_decl(f_5069) static void C_ccall f_5069(C_word c,C_word *av) C_noret; C_noret_decl(f_5072) static void C_ccall f_5072(C_word c,C_word *av) C_noret; C_noret_decl(f_5075) static void C_ccall f_5075(C_word c,C_word *av) C_noret; C_noret_decl(f_5078) static void C_ccall f_5078(C_word c,C_word *av) C_noret; C_noret_decl(f_5081) static void C_ccall f_5081(C_word c,C_word *av) C_noret; C_noret_decl(f_5084) static void C_ccall f_5084(C_word c,C_word *av) C_noret; C_noret_decl(f_5087) static void C_ccall f_5087(C_word c,C_word *av) C_noret; C_noret_decl(f_5090) static void C_ccall f_5090(C_word c,C_word *av) C_noret; C_noret_decl(f_5093) static void C_ccall f_5093(C_word c,C_word *av) C_noret; C_noret_decl(f_5096) static void C_ccall f_5096(C_word c,C_word *av) C_noret; C_noret_decl(f_5099) static void C_ccall f_5099(C_word c,C_word *av) C_noret; C_noret_decl(f_5102) static void C_ccall f_5102(C_word c,C_word *av) C_noret; C_noret_decl(f_5105) static void C_ccall f_5105(C_word c,C_word *av) C_noret; C_noret_decl(f_5108) static void C_ccall f_5108(C_word c,C_word *av) C_noret; C_noret_decl(f_5111) static void C_ccall f_5111(C_word c,C_word *av) C_noret; C_noret_decl(f_5114) static void C_ccall f_5114(C_word c,C_word *av) C_noret; C_noret_decl(f_5117) static void C_ccall f_5117(C_word c,C_word *av) C_noret; C_noret_decl(f_5120) static void C_ccall f_5120(C_word c,C_word *av) C_noret; C_noret_decl(f_5123) static void C_ccall f_5123(C_word c,C_word *av) C_noret; C_noret_decl(f_5126) static void C_ccall f_5126(C_word c,C_word *av) C_noret; C_noret_decl(f_5129) static void C_ccall f_5129(C_word c,C_word *av) C_noret; C_noret_decl(f_5132) static void C_ccall f_5132(C_word c,C_word *av) C_noret; C_noret_decl(f_5135) static void C_ccall f_5135(C_word c,C_word *av) C_noret; C_noret_decl(f_5138) static void C_ccall f_5138(C_word c,C_word *av) C_noret; C_noret_decl(f_5141) static void C_ccall f_5141(C_word c,C_word *av) C_noret; C_noret_decl(f_5144) static void C_ccall f_5144(C_word c,C_word *av) C_noret; C_noret_decl(f_5147) static void C_ccall f_5147(C_word c,C_word *av) C_noret; C_noret_decl(f_5149) static void C_ccall f_5149(C_word c,C_word *av) C_noret; C_noret_decl(f_5171) static void C_ccall f_5171(C_word c,C_word *av) C_noret; C_noret_decl(f_5186) static void C_ccall f_5186(C_word c,C_word *av) C_noret; C_noret_decl(f_5189) static void C_ccall f_5189(C_word c,C_word *av) C_noret; C_noret_decl(f_5204) static void C_ccall f_5204(C_word c,C_word *av) C_noret; C_noret_decl(f_5216) static void C_ccall f_5216(C_word c,C_word *av) C_noret; C_noret_decl(f_5224) static void C_ccall f_5224(C_word c,C_word *av) C_noret; C_noret_decl(f_5226) static void C_ccall f_5226(C_word c,C_word *av) C_noret; C_noret_decl(f_5247) static void C_ccall f_5247(C_word c,C_word *av) C_noret; C_noret_decl(f_5251) static void C_ccall f_5251(C_word c,C_word *av) C_noret; C_noret_decl(f_5254) static void C_ccall f_5254(C_word c,C_word *av) C_noret; C_noret_decl(f_5257) static void C_ccall f_5257(C_word c,C_word *av) C_noret; C_noret_decl(f_5259) static void C_ccall f_5259(C_word c,C_word *av) C_noret; C_noret_decl(f_5278) static void C_ccall f_5278(C_word c,C_word *av) C_noret; C_noret_decl(f_5295) static void C_ccall f_5295(C_word c,C_word *av) C_noret; C_noret_decl(f_5338) static void C_ccall f_5338(C_word c,C_word *av) C_noret; C_noret_decl(f_5342) static void C_ccall f_5342(C_word c,C_word *av) C_noret; C_noret_decl(f_5346) static void C_ccall f_5346(C_word c,C_word *av) C_noret; C_noret_decl(f_5350) static void C_ccall f_5350(C_word c,C_word *av) C_noret; C_noret_decl(f_5357) static void C_ccall f_5357(C_word c,C_word *av) C_noret; C_noret_decl(f_5361) static void C_ccall f_5361(C_word c,C_word *av) C_noret; C_noret_decl(f_5369) static void C_ccall f_5369(C_word c,C_word *av) C_noret; C_noret_decl(f_5373) static void C_ccall f_5373(C_word c,C_word *av) C_noret; C_noret_decl(f_5381) static void C_ccall f_5381(C_word c,C_word *av) C_noret; C_noret_decl(f_5384) static void C_ccall f_5384(C_word c,C_word *av) C_noret; C_noret_decl(f_5388) static void C_ccall f_5388(C_word c,C_word *av) C_noret; C_noret_decl(f_5391) static void C_ccall f_5391(C_word c,C_word *av) C_noret; C_noret_decl(f_5394) static void C_ccall f_5394(C_word c,C_word *av) C_noret; C_noret_decl(f_5397) static void C_ccall f_5397(C_word c,C_word *av) C_noret; C_noret_decl(f_5400) static void C_ccall f_5400(C_word c,C_word *av) C_noret; C_noret_decl(f_5403) static void C_ccall f_5403(C_word c,C_word *av) C_noret; C_noret_decl(f_5406) static void C_ccall f_5406(C_word c,C_word *av) C_noret; C_noret_decl(f_5409) static void C_ccall f_5409(C_word c,C_word *av) C_noret; C_noret_decl(f_5412) static void C_ccall f_5412(C_word c,C_word *av) C_noret; C_noret_decl(f_5415) static void C_ccall f_5415(C_word c,C_word *av) C_noret; C_noret_decl(f_5418) static void C_ccall f_5418(C_word c,C_word *av) C_noret; C_noret_decl(f_5421) static void C_ccall f_5421(C_word c,C_word *av) C_noret; C_noret_decl(f_5424) static void C_ccall f_5424(C_word c,C_word *av) C_noret; C_noret_decl(f_5427) static void C_ccall f_5427(C_word c,C_word *av) C_noret; C_noret_decl(f_5430) static void C_ccall f_5430(C_word c,C_word *av) C_noret; C_noret_decl(f_5433) static void C_ccall f_5433(C_word c,C_word *av) C_noret; C_noret_decl(f_5435) static void C_ccall f_5435(C_word c,C_word *av) C_noret; C_noret_decl(f_5457) static void C_ccall f_5457(C_word c,C_word *av) C_noret; C_noret_decl(f_5475) static void C_ccall f_5475(C_word c,C_word *av) C_noret; C_noret_decl(f_5497) static void C_ccall f_5497(C_word c,C_word *av) C_noret; C_noret_decl(f_5515) static void C_ccall f_5515(C_word c,C_word *av) C_noret; C_noret_decl(f_5540) static void C_ccall f_5540(C_word c,C_word *av) C_noret; C_noret_decl(f_5561) static void C_ccall f_5561(C_word c,C_word *av) C_noret; C_noret_decl(f_5569) static void C_ccall f_5569(C_word c,C_word *av) C_noret; C_noret_decl(f_5573) static void C_ccall f_5573(C_word c,C_word *av) C_noret; C_noret_decl(f_5580) static void C_ccall f_5580(C_word c,C_word *av) C_noret; C_noret_decl(f_5608) static void C_ccall f_5608(C_word c,C_word *av) C_noret; C_noret_decl(f_5611) static void C_ccall f_5611(C_word c,C_word *av) C_noret; C_noret_decl(f_5642) static void C_fcall f_5642(C_word t0,C_word t1) C_noret; C_noret_decl(f_5664) static void C_ccall f_5664(C_word c,C_word *av) C_noret; C_noret_decl(f_5687) static void C_ccall f_5687(C_word c,C_word *av) C_noret; C_noret_decl(f_5691) static void C_ccall f_5691(C_word c,C_word *av) C_noret; C_noret_decl(f_5695) static void C_ccall f_5695(C_word c,C_word *av) C_noret; C_noret_decl(f_5702) static void C_ccall f_5702(C_word c,C_word *av) C_noret; C_noret_decl(f_5724) static void C_ccall f_5724(C_word c,C_word *av) C_noret; C_noret_decl(f_5734) static void C_ccall f_5734(C_word c,C_word *av) C_noret; C_noret_decl(f_5748) static void C_ccall f_5748(C_word c,C_word *av) C_noret; C_noret_decl(f_5752) static void C_ccall f_5752(C_word c,C_word *av) C_noret; C_noret_decl(f_5759) static void C_ccall f_5759(C_word c,C_word *av) C_noret; C_noret_decl(f_5790) static void C_ccall f_5790(C_word c,C_word *av) C_noret; C_noret_decl(f_5793) static void C_fcall f_5793(C_word t0,C_word t1) C_noret; C_noret_decl(f_5808) static void C_ccall f_5808(C_word c,C_word *av) C_noret; C_noret_decl(f_5825) static void C_ccall f_5825(C_word c,C_word *av) C_noret; C_noret_decl(f_5829) static void C_ccall f_5829(C_word c,C_word *av) C_noret; C_noret_decl(f_5836) static void C_ccall f_5836(C_word c,C_word *av) C_noret; C_noret_decl(f_5846) static void C_fcall f_5846(C_word t0,C_word t1) C_noret; C_noret_decl(f_5867) static void C_ccall f_5867(C_word c,C_word *av) C_noret; C_noret_decl(f_5895) static void C_ccall f_5895(C_word c,C_word *av) C_noret; C_noret_decl(f_5897) static void C_ccall f_5897(C_word c,C_word *av) C_noret; C_noret_decl(f_5920) static void C_ccall f_5920(C_word c,C_word *av) C_noret; C_noret_decl(f_5922) static void C_ccall f_5922(C_word c,C_word *av) C_noret; C_noret_decl(f_5941) static void C_ccall f_5941(C_word c,C_word *av) C_noret; C_noret_decl(f_5945) static void C_ccall f_5945(C_word c,C_word *av) C_noret; C_noret_decl(f_5960) static void C_ccall f_5960(C_word c,C_word *av) C_noret; C_noret_decl(f_5970) static void C_fcall f_5970(C_word t0,C_word t1) C_noret; C_noret_decl(f_5991) static void C_ccall f_5991(C_word c,C_word *av) C_noret; C_noret_decl(f_6019) static void C_ccall f_6019(C_word c,C_word *av) C_noret; C_noret_decl(f_6021) static void C_ccall f_6021(C_word c,C_word *av) C_noret; C_noret_decl(f_6044) static void C_ccall f_6044(C_word c,C_word *av) C_noret; C_noret_decl(f_6046) static void C_ccall f_6046(C_word c,C_word *av) C_noret; C_noret_decl(f_6065) static void C_ccall f_6065(C_word c,C_word *av) C_noret; C_noret_decl(f_6069) static void C_ccall f_6069(C_word c,C_word *av) C_noret; C_noret_decl(f_6084) static void C_ccall f_6084(C_word c,C_word *av) C_noret; C_noret_decl(f_6088) static void C_ccall f_6088(C_word c,C_word *av) C_noret; C_noret_decl(f_6109) static void C_ccall f_6109(C_word c,C_word *av) C_noret; C_noret_decl(f_6151) static void C_ccall f_6151(C_word c,C_word *av) C_noret; C_noret_decl(f_6153) static void C_ccall f_6153(C_word c,C_word *av) C_noret; C_noret_decl(f_6160) static void C_fcall f_6160(C_word t0,C_word t1) C_noret; C_noret_decl(f_6171) static void C_ccall f_6171(C_word c,C_word *av) C_noret; C_noret_decl(f_6192) static void C_ccall f_6192(C_word c,C_word *av) C_noret; C_noret_decl(f_6196) static void C_ccall f_6196(C_word c,C_word *av) C_noret; C_noret_decl(f_6202) static void C_ccall f_6202(C_word c,C_word *av) C_noret; C_noret_decl(f_6224) static void C_ccall f_6224(C_word c,C_word *av) C_noret; C_noret_decl(f_6228) static void C_ccall f_6228(C_word c,C_word *av) C_noret; C_noret_decl(f_6230) static void C_ccall f_6230(C_word c,C_word *av) C_noret; C_noret_decl(f_6246) static void C_ccall f_6246(C_word c,C_word *av) C_noret; C_noret_decl(f_6252) static void C_ccall f_6252(C_word c,C_word *av) C_noret; C_noret_decl(f_6270) static void C_ccall f_6270(C_word c,C_word *av) C_noret; C_noret_decl(f_6273) static void C_fcall f_6273(C_word t0,C_word t1) C_noret; C_noret_decl(f_6276) static void C_fcall f_6276(C_word t0,C_word t1) C_noret; C_noret_decl(f_6291) static void C_ccall f_6291(C_word c,C_word *av) C_noret; C_noret_decl(f_6303) static void C_ccall f_6303(C_word c,C_word *av) C_noret; C_noret_decl(f_6313) static void C_ccall f_6313(C_word c,C_word *av) C_noret; C_noret_decl(f_6317) static void C_ccall f_6317(C_word c,C_word *av) C_noret; C_noret_decl(f_6326) static void C_ccall f_6326(C_word c,C_word *av) C_noret; C_noret_decl(f_6336) static void C_ccall f_6336(C_word c,C_word *av) C_noret; C_noret_decl(f_6340) static void C_ccall f_6340(C_word c,C_word *av) C_noret; C_noret_decl(f_6370) static void C_ccall f_6370(C_word c,C_word *av) C_noret; C_noret_decl(f_6374) static void C_ccall f_6374(C_word c,C_word *av) C_noret; C_noret_decl(f_6378) static void C_ccall f_6378(C_word c,C_word *av) C_noret; C_noret_decl(f_6382) static void C_ccall f_6382(C_word c,C_word *av) C_noret; C_noret_decl(f_6386) static void C_ccall f_6386(C_word c,C_word *av) C_noret; C_noret_decl(f_6395) static void C_ccall f_6395(C_word c,C_word *av) C_noret; C_noret_decl(f_6399) static void C_ccall f_6399(C_word c,C_word *av) C_noret; C_noret_decl(f_6401) static void C_fcall f_6401(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6411) static void C_ccall f_6411(C_word c,C_word *av) C_noret; C_noret_decl(f_6424) static void C_fcall f_6424(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6449) static void C_ccall f_6449(C_word c,C_word *av) C_noret; C_noret_decl(C_c_2dplatform_toplevel) C_externexport void C_ccall C_c_2dplatform_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(trf_2117) static void C_ccall trf_2117(C_word c,C_word *av) C_noret; static void C_ccall trf_2117(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2117(t0,t1,t2);} C_noret_decl(trf_2123) static void C_ccall trf_2123(C_word c,C_word *av) C_noret; static void C_ccall trf_2123(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2123(t0,t1,t2,t3);} C_noret_decl(trf_2293) static void C_ccall trf_2293(C_word c,C_word *av) C_noret; static void C_ccall trf_2293(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2293(t0,t1,t2);} C_noret_decl(trf_2302) static void C_ccall trf_2302(C_word c,C_word *av) C_noret; static void C_ccall trf_2302(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2302(t0,t1,t2);} C_noret_decl(trf_2310) static void C_ccall trf_2310(C_word c,C_word *av) C_noret; static void C_ccall trf_2310(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2310(t0,t1,t2,t3);} C_noret_decl(trf_2701) static void C_ccall trf_2701(C_word c,C_word *av) C_noret; static void C_ccall trf_2701(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2701(t0,t1,t2);} C_noret_decl(trf_3009) static void C_ccall trf_3009(C_word c,C_word *av) C_noret; static void C_ccall trf_3009(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3009(t0,t1,t2,t3);} C_noret_decl(trf_3104) static void C_ccall trf_3104(C_word c,C_word *av) C_noret; static void C_ccall trf_3104(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3104(t0,t1);} C_noret_decl(trf_3107) static void C_ccall trf_3107(C_word c,C_word *av) C_noret; static void C_ccall trf_3107(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3107(t0,t1);} C_noret_decl(trf_3296) static void C_ccall trf_3296(C_word c,C_word *av) C_noret; static void C_ccall trf_3296(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3296(t0,t1,t2);} C_noret_decl(trf_3424) static void C_ccall trf_3424(C_word c,C_word *av) C_noret; static void C_ccall trf_3424(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3424(t0,t1,t2,t3);} C_noret_decl(trf_4490) static void C_ccall trf_4490(C_word c,C_word *av) C_noret; static void C_ccall trf_4490(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4490(t0,t1);} C_noret_decl(trf_5642) static void C_ccall trf_5642(C_word c,C_word *av) C_noret; static void C_ccall trf_5642(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5642(t0,t1);} C_noret_decl(trf_5793) static void C_ccall trf_5793(C_word c,C_word *av) C_noret; static void C_ccall trf_5793(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5793(t0,t1);} C_noret_decl(trf_5846) static void C_ccall trf_5846(C_word c,C_word *av) C_noret; static void C_ccall trf_5846(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5846(t0,t1);} C_noret_decl(trf_5970) static void C_ccall trf_5970(C_word c,C_word *av) C_noret; static void C_ccall trf_5970(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5970(t0,t1);} C_noret_decl(trf_6160) static void C_ccall trf_6160(C_word c,C_word *av) C_noret; static void C_ccall trf_6160(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6160(t0,t1);} C_noret_decl(trf_6273) static void C_ccall trf_6273(C_word c,C_word *av) C_noret; static void C_ccall trf_6273(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6273(t0,t1);} C_noret_decl(trf_6276) static void C_ccall trf_6276(C_word c,C_word *av) C_noret; static void C_ccall trf_6276(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_6276(t0,t1);} C_noret_decl(trf_6401) static void C_ccall trf_6401(C_word c,C_word *av) C_noret; static void C_ccall trf_6401(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6401(t0,t1,t2);} C_noret_decl(trf_6424) static void C_ccall trf_6424(C_word c,C_word *av) C_noret; static void C_ccall trf_6424(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6424(t0,t1,t2);} /* k1662 */ static void C_ccall f_1664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1664,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1667,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_eval_toplevel(2,av2);}} /* k1665 in k1662 */ static void C_ccall f_1667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1667,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1670,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_expand_toplevel(2,av2);}} /* k1668 in k1665 in k1662 */ static void C_ccall f_1670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1670,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1673,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_internal_toplevel(2,av2);}} /* k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_1673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1673,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1676,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_optimizer_toplevel(2,av2);}} /* k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_1676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1676,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1679,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_support_toplevel(2,av2);}} /* k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_1679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_1679,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1682,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_compiler_toplevel(2,av2);}} /* k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_1682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ C_save_and_reclaim((void *)f_1682,2,av);} a=C_alloc(23); t2=C_a_i_provide(&a,1,lf[0]); t3=C_a_i_provide(&a,1,lf[1]); t4=C_mutate(&lf[2] /* (set! chicken.compiler.c-platform#cons* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2117,tmp=(C_word)a,a+=2,tmp)); t5=C_mutate(&lf[3] /* (set! chicken.compiler.c-platform#filter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2293,tmp=(C_word)a,a+=2,tmp)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2963,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:55: chicken.compiler.optimizer#default-optimization-passes */ t7=*((C_word*)lf[943]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=C_fix(3); ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* chicken.compiler.c-platform#cons* in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_fcall f_2117(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_2117,3,t1,t2,t3);} a=C_alloc(5); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2123,a[2]=t5,tmp=(C_word)a,a+=3,tmp)); t7=((C_word*)t5)[1]; f_2123(t7,t1,t2,t3);} /* loop in chicken.compiler.c-platform#cons* in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_fcall f_2123(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){ C_save_and_reclaim_args((void *)trf_2123,4,t0,t1,t2,t3);} a=C_alloc(4); if(C_truep(C_i_nullp(t3))){ t4=t2; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2137,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); t5=C_i_car(t3); t6=t3; t7=C_u_i_cdr(t6); /* mini-srfi-1.scm:95: loop */ t9=t4; t10=t5; t11=t7; t1=t9; t2=t10; t3=t11; goto loop;}} /* k2135 in loop in chicken.compiler.c-platform#cons* in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_2137(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2137,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* chicken.compiler.c-platform#filter in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_fcall f_2293(C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_2293,3,t1,t2,t3);} a=C_alloc(6); t4=C_i_check_list_2(t3,lf[4]); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2302,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp)); t8=((C_word*)t6)[1]; f_2302(t8,t1,t3);} /* foldr254 in chicken.compiler.c-platform#filter in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_fcall f_2302(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_2302,3,t0,t1,t2);} a=C_alloc(8); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2310,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t4=C_slot(t2,C_fix(0)); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2331,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=C_slot(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* g259 in foldr254 in chicken.compiler.c-platform#filter in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_fcall f_2310(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2310,4,t0,t1,t2,t3);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2317,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:131: pred */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k2315 in g259 in foldr254 in chicken.compiler.c-platform#filter in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_2317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2317,2,av);} a=C_alloc(3); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[4]; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k2329 in foldr254 in chicken.compiler.c-platform#filter in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_2331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2331,2,av);} /* mini-srfi-1.scm:131: g259 */ t2=((C_word*)t0)[2]; f_2310(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* loop in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static C_word C_fcall f_2459(C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} t2=C_i_cdr(t1); if(C_truep(C_i_nullp(t2))){ t3=t1; t4=C_u_i_car(t3); return(t4);} else{ t3=t1; t4=C_u_i_cdr(t3); t6=t4; t1=t6; goto loop;}} /* loop in k5187 in k5184 in k5245 in k5169 in k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in ... */ static void C_fcall f_2701(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_2701,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2715,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* mini-srfi-1.scm:190: proc */ t4=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k2713 in loop in k5187 in k5184 in k5245 in k5169 in k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in ... */ static void C_ccall f_2715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_2715,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2719,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* mini-srfi-1.scm:190: loop */ t5=((C_word*)((C_word*)t0)[4])[1]; f_2701(t5,t3,t4);} /* k2717 in k2713 in loop in k5187 in k5184 in k5245 in k5169 in k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in ... */ static void C_ccall f_2719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_2719,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_2963(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2963,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[5]+1 /* (set! chicken.compiler.c-platform#default-declarations ...) */,lf[6]); t3=C_mutate((C_word*)lf[7]+1 /* (set! chicken.compiler.c-platform#default-profiling-declarations ...) */,lf[8]); t4=C_mutate((C_word*)lf[9]+1 /* (set! chicken.compiler.c-platform#default-units ...) */,lf[10]); t5=C_set_block_item(lf[11] /* chicken.compiler.c-platform#words-per-flonum */,0,C_fix(4)); t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2970,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:82: chicken.compiler.optimizer#eq-inline-operator */ t7=*((C_word*)lf[941]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=lf[942]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_2970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2970,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2973,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:83: chicken.compiler.optimizer#membership-test-operators */ t3=*((C_word*)lf[939]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[940]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_2973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2973,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2976,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:86: chicken.compiler.optimizer#membership-unfold-limit */ t3=*((C_word*)lf[938]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=C_fix(20); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_2976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ C_save_and_reclaim((void *)f_2976,2,av);} a=C_alloc(15); t2=C_mutate((C_word*)lf[12]+1 /* (set! chicken.compiler.c-platform#target-include-file ...) */,lf[13]); t3=C_mutate((C_word*)lf[14]+1 /* (set! chicken.compiler.c-platform#valid-compiler-options ...) */,lf[15]); t4=C_mutate((C_word*)lf[16]+1 /* (set! chicken.compiler.c-platform#valid-compiler-options-with-argument ...) */,lf[17]); t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=((C_word*)t7)[1]; t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2991,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6424,a[2]=t7,a[3]=t11,a[4]=t8,tmp=(C_word)a,a+=5,tmp)); t13=((C_word*)t11)[1]; f_6424(t13,t9,lf[937]);} /* k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_2991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_2991,2,av);} a=C_alloc(3); t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#default-standard-bindings ...) */,t1); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2998,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:258: scheme#append */ t4=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[932]; av2[3]=lf[933]; av2[4]=lf[934]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_2998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_2998,2,av);} a=C_alloc(8); t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#default-extended-bindings ...) */,t1); t3=C_mutate((C_word*)lf[20]+1 /* (set! chicken.compiler.core#internal-bindings ...) */,lf[21]); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3007,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6401,a[2]=t6,tmp=(C_word)a,a+=3,tmp)); t8=((C_word*)t6)[1]; f_6401(t8,t4,lf[931]);} /* k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_3007,2,av);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3009,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3074,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6399,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:312: op1 */ f_3009(t4,lf[926],lf[927],lf[928]);} /* op1 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_fcall f_3009(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,6)))){ C_save_and_reclaim_args((void *)trf_3009,4,t1,t2,t3,t4);} a=C_alloc(5); t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3011,a[2]=t3,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* f_3011 in op1 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ C_save_and_reclaim((void *)f_3011,6,av);} a=C_alloc(19); t6=C_i_length(t5); t7=C_eqp(t6,C_fix(1)); if(C_truep(t7)){ t8=C_a_i_list1(&a,1,C_SCHEME_TRUE); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3033,a[2]=t4,a[3]=t1,a[4]=t9,tmp=(C_word)a,a+=5,tmp); t11=C_eqp(lf[24],*((C_word*)lf[25]+1)); if(C_truep(t11)){ if(C_truep(*((C_word*)lf[26]+1))){ t12=((C_word*)t0)[2]; t13=C_a_i_list1(&a,1,t12); /* c-platform.scm:308: chicken.compiler.support#make-node */ t14=*((C_word*)lf[22]+1);{ C_word *av2=av; av2[0]=t14; av2[1]=t10; av2[2]=lf[27]; av2[3]=t13; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}} else{ t12=((C_word*)t0)[3]; t13=C_a_i_list1(&a,1,t12); /* c-platform.scm:308: chicken.compiler.support#make-node */ t14=*((C_word*)lf[22]+1);{ C_word *av2=av; av2[0]=t14; av2[1]=t10; av2[2]=lf[27]; av2[3]=t13; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}} else{ t12=C_a_i_list2(&a,2,((C_word*)t0)[4],C_fix(36)); t13=t12; t14=C_i_car(t5); t15=t14; t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3066,a[2]=t15,a[3]=t10,a[4]=t13,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:311: chicken.compiler.support#qnode */ t17=*((C_word*)lf[29]+1);{ C_word *av2=av; av2[0]=t17; av2[1]=t16; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3031 */ static void C_ccall f_3033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3033,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:303: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3064 */ static void C_ccall f_3066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3066,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:309: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[28]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3074(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3074,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3077,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6395,a[2]=t2,tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:313: op1 */ f_3009(t3,lf[922],lf[923],lf[924]);} /* k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_3077,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3079,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3233,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:336: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[825]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_3079,6,av);} a=C_alloc(13); t6=C_i_length(t5); t7=C_eqp(t6,C_fix(2)); if(C_truep(t7)){ t8=t5; t9=C_i_car(t8); t10=t9; t11=t5; t12=C_i_cadr(t11); t13=t12; t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3095,a[2]=t1,a[3]=t4,a[4]=t5,a[5]=t13,a[6]=t10,tmp=(C_word)a,a+=7,tmp); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3225,a[2]=t4,a[3]=t14,a[4]=t13,a[5]=t10,tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:323: chicken.compiler.support#node-class */ t16=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t16; av2[1]=t15; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3093 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3095(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_3095,2,av);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3104,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3179,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:327: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k3102 in k3093 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_fcall f_3104(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_3104,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=t2; f_3107(t3,t1);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3152,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:330: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k3105 in k3102 in k3093 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_fcall f_3107(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_3107,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3122,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:335: chicken.compiler.support#make-node */ t5=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[27]; av2[3]=lf[30]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k3120 in k3105 in k3102 in k3093 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3122,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:333: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3132 in k3146 in k3150 in k3102 in k3093 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_3134(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3134,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; f_3107(t2,t1);} else{ t2=C_i_numberp(((C_word*)t0)[3]); t3=((C_word*)t0)[2]; f_3107(t3,C_i_not(t2));}} /* k3146 in k3150 in k3102 in k3093 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3148,2,av);} a=C_alloc(4); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3134,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:332: chicken.compiler.support#immediate? */ t5=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3150 in k3102 in k3093 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3152,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3148,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:331: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_3107(t3,C_SCHEME_FALSE);}} /* k3159 in k3173 in k3177 in k3093 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3161,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_3104(t3,t2);} else{ t2=C_i_numberp(((C_word*)t0)[3]); t3=((C_word*)t0)[2]; f_3104(t3,C_i_not(t2));}} /* k3173 in k3177 in k3093 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_3175,2,av);} a=C_alloc(4); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3161,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:329: chicken.compiler.support#immediate? */ t5=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3177 in k3093 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3179,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3175,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:328: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_3104(t3,C_SCHEME_FALSE);}} /* k3207 in k3215 in k3211 in k3219 in k3223 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_3209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3209,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:326: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3211 in k3219 in k3223 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3213(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3213,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3217,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:325: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3215 in k3211 in k3219 in k3223 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3217,2,av);} a=C_alloc(8); if(C_truep(C_i_equalp(((C_word*)t0)[2],t1))){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3209,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:326: chicken.compiler.support#qnode */ t5=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_3095(2,av2);}}} /* k3219 in k3223 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3221(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3221,2,av);} a=C_alloc(5); t2=C_eqp(lf[35],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3213,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:325: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_3095(2,av2);}}} /* k3223 in eqv?-id in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_3225,2,av);} a=C_alloc(6); t2=C_eqp(lf[35],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3221,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:324: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_3095(2,av2);}}} /* k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3233(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3233,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3236,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:337: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[823]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3236(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_3236,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3239,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6230,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:339: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[920]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3239(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_3239,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3241,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3419,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:394: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[917]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3241,6,av);} a=C_alloc(9); if(C_truep(C_i_pairp(t5))){ t6=t5; t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_2459,tmp=(C_word)a,a+=2,tmp); t8=( f_2459(t6) ); t9=t8; t10=t5; t11=C_u_i_car(t10); t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3416,a[2]=t1,a[3]=t5,a[4]=t4,a[5]=t9,a[6]=t11,tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:374: chicken.compiler.support#node-class */ t13=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t13; av2[1]=t12; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t6=t1;{ C_word *av2=av; av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k3267 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_3269(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3269,2,av);} /* c-platform.scm:375: chicken.compiler.support#make-node */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3275 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_3277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3277,2,av);} a=C_alloc(6); /* c-platform.scm:377: cons* */ f_2117(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],t1));} /* k3292 in k3330 in k3334 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in ... */ static void C_ccall f_3294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_3294,2,av);} /* c-platform.scm:379: scheme#append */ t2=*((C_word*)lf[37]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} /* map-loop693 in k3330 in k3334 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in ... */ static void C_fcall f_3296(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3296,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3321,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* c-platform.scm:379: g699 */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t3; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3319 in map-loop693 in k3330 in k3334 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in ... */ static void C_ccall f_3321(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_3321,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_3296(t6,((C_word*)t0)[5],t5);} /* k3330 in k3334 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in ... */ static void C_ccall f_3332(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_3332,2,av);} a=C_alloc(12); t2=C_i_car(t1); t3=C_i_check_list_2(t2,lf[36]); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3294,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3296,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3296(t8,t4,t2);} /* k3334 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_3336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_3336,2,av);} a=C_alloc(12); t2=C_i_cdr(t1); t3=t2; t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); t5=t4; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t6)[1]; t8=*((C_word*)lf[29]+1); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3332,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t6,a[5]=t8,a[6]=t7,tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:379: chicken.compiler.support#node-parameters */ t10=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=t9; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} /* k3337 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_3339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_3339,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3353,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3357,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:392: chicken.compiler.support#make-node */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t5; av2[2]=lf[39]; av2[3]=lf[40]; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} /* k3351 in k3337 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in ... */ static void C_ccall f_3353(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3353,2,av);} /* c-platform.scm:390: chicken.compiler.support#make-node */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3355 in k3337 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in ... */ static void C_ccall f_3357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3357,2,av);} a=C_alloc(6); /* c-platform.scm:392: cons* */ f_2117(((C_word*)t0)[2],t1,C_a_i_list(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));} /* k3378 in k3401 in k3410 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in ... */ static void C_ccall f_3380(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_3380,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3395,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:387: chicken.compiler.support#make-node */ t5=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[39]; av2[3]=lf[43]; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_3339(2,av2);}}} /* k3393 in k3378 in k3401 in k3410 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in ... */ static void C_ccall f_3395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_3395,2,av);} a=C_alloc(9); t2=C_i_cadr(((C_word*)t0)[2]); t3=C_a_i_list3(&a,3,t1,((C_word*)t0)[3],t2); /* c-platform.scm:385: chicken.compiler.support#make-node */ t4=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=((C_word*)t0)[4]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[5]; av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k3401 in k3410 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in ... */ static void C_ccall f_3403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3403,2,av);} a=C_alloc(5); t2=C_i_car(t1); if(C_truep((C_truep(C_eqp(t2,lf[41]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[42]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3380,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:384: chicken.compiler.support#intrinsic? */ t4=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_3339(2,av2);}}} /* k3410 in k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_3412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_3412,2,av);} a=C_alloc(5); t2=C_eqp(lf[35],t1); if(C_truep(t2)){ t3=C_i_length(((C_word*)t0)[2]); t4=C_eqp(C_fix(2),t3); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3403,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:382: chicken.compiler.support#node-parameters */ t6=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_3339(2,av2);}}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_3339(2,av2);}}} /* k3414 in rewrite-apply in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3416(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_3416,2,av);} a=C_alloc(16); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=C_a_i_list1(&a,1,C_SCHEME_FALSE); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3269,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=((C_word*)t0)[3]; t7=C_i_car(t6); t8=t7; t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3277,a[2]=t5,a[3]=t8,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3336,a[2]=t9,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:379: chicken.base#butlast */ t11=*((C_word*)lf[38]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t10; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3339,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3412,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:380: chicken.compiler.support#node-class */ t5=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3419,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3422,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:395: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[916]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_3422(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_3422,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3424,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3492,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:416: rewrite-c..r */ f_3424(t3,lf[913],lf[914],lf[915]);} /* rewrite-c..r in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_fcall f_3424(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,6)))){ C_save_and_reclaim_args((void *)trf_3424,4,t1,t2,t3,t4);} a=C_alloc(4); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3430,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:399: chicken.compiler.optimizer#rewrite */ t6=*((C_word*)lf[46]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=t2; av2[3]=C_fix(8); av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* a3429 in rewrite-c..r in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in ... */ static void C_ccall f_3430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_3430,6,av);} a=C_alloc(6); t6=C_i_length(t5); t7=C_eqp(t6,C_fix(1)); if(C_truep(t7)){ t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3442,a[2]=t5,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:405: scheme#call-with-current-continuation */ t9=*((C_word*)lf[45]+1);{ C_word *av2=av; av2[0]=t9; av2[1]=t1; av2[2]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* a3441 in a3429 in rewrite-c..r in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in ... */ static void C_ccall f_3442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_3442,3,av);} a=C_alloc(11); t3=((C_word*)t0)[2]; t4=C_i_car(t3); t5=C_a_i_list1(&a,1,C_SCHEME_TRUE); t6=t5; t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3461,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); t8=(C_truep(*((C_word*)lf[26]+1))?((C_word*)t0)[4]:C_SCHEME_FALSE); if(C_truep(t8)){ t9=C_a_i_list1(&a,1,((C_word*)t0)[4]); /* c-platform.scm:412: chicken.compiler.support#make-node */ t10=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t7; av2[2]=lf[27]; av2[3]=t9; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ if(C_truep(((C_word*)t0)[5])){ t9=C_a_i_list1(&a,1,((C_word*)t0)[5]); /* c-platform.scm:413: chicken.compiler.support#make-node */ t10=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t10; av2[1]=t7; av2[2]=lf[27]; av2[3]=t9; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ /* c-platform.scm:414: return */ t9=t2;{ C_word *av2=av; av2[0]=t9; av2[1]=t7; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}} /* k3459 in a3441 in a3429 in rewrite-c..r in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in ... */ static void C_ccall f_3461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3461,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:408: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_3492(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3492,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:417: rewrite-c..r */ f_3424(t2,lf[910],lf[911],lf[912]);} /* k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in ... */ static void C_ccall f_3495(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3495,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:418: rewrite-c..r */ f_3424(t2,lf[907],lf[908],lf[909]);} /* k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in ... */ static void C_ccall f_3498(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3498,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:419: rewrite-c..r */ f_3424(t2,lf[904],lf[905],lf[906]);} /* k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in ... */ static void C_ccall f_3501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_3501,2,av);} a=C_alloc(4); t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3504,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:420: rewrite-c..r */ f_3424(t2,lf[880],lf[902],lf[903]);} /* k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in ... */ static void C_ccall f_3504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3504,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3507,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:421: rewrite-c..r */ f_3424(t2,lf[859],lf[900],lf[901]);} /* k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in ... */ static void C_ccall f_3507(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_3507,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3508,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3534,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:428: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[898]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* rvalues in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in ... */ static void C_ccall f_3508(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3508,6,av);} a=C_alloc(6); t6=C_i_length(t5); t7=C_eqp(t6,C_fix(1)); if(C_truep(t7)){ t8=C_a_i_list1(&a,1,C_SCHEME_TRUE); t9=C_a_i_cons(&a,2,t4,t5); /* c-platform.scm:427: chicken.compiler.support#make-node */ t10=*((C_word*)lf[22]+1);{ C_word *av2=av; av2[0]=t10; av2[1]=t1; av2[2]=lf[23]; av2[3]=t8; av2[4]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in ... */ static void C_ccall f_3534(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3534,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3537,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:429: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[42]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in ... */ static void C_ccall f_3537(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_3537,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_3539,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3704,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:460: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[894]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in ... */ static void C_ccall f_3539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3539,6,av);} a=C_alloc(7); t6=C_i_length(t5); t7=C_eqp(C_fix(2),t6); if(C_truep(t7)){ t8=C_i_car(t5); t9=t8; t10=C_i_cadr(t5); t11=t10; t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3696,a[2]=t1,a[3]=t9,a[4]=t11,a[5]=t4,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:438: chicken.compiler.support#node-class */ t13=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t13; av2[1]=t12; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in ... */ static void C_ccall f_3573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3573,2,av);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:442: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3598 in k3678 in k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in ... */ static void C_ccall f_3600(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_3600,2,av);} a=C_alloc(8); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3603,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); /* c-platform.scm:447: chicken.base#gensym */ t4=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=lf[55]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3601 in k3598 in k3678 in k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in ... */ static void C_ccall f_3603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_3603,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3606,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3673,a[2]=t3,tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:448: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k3604 in k3601 in k3598 in k3678 in k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in ... */ static void C_ccall f_3606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_3606,2,av);} a=C_alloc(15); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3621,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3665,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:453: chicken.base#gensym */ t6=*((C_word*)lf[50]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=lf[51]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k3619 in k3604 in k3601 in k3598 in k3678 in k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in ... */ static void C_ccall f_3621(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_3621,2,av);} a=C_alloc(13); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3625,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_a_i_list1(&a,1,C_SCHEME_TRUE); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3637,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:459: chicken.compiler.support#varnode */ t7=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k3623 in k3619 in k3604 in k3601 in k3598 in k3678 in k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in ... */ static void C_ccall f_3625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3625,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:449: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[48]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3635 in k3619 in k3604 in k3601 in k3598 in k3678 in k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in ... */ static void C_ccall f_3637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3637,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:457: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3647 in k3663 in k3604 in k3601 in k3598 in k3678 in k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in ... */ static void C_ccall f_3649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3649,2,av);} a=C_alloc(3); t2=C_a_i_list1(&a,1,t1); /* c-platform.scm:451: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=lf[47]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3659 in k3663 in k3604 in k3601 in k3598 in k3678 in k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in ... */ static void C_ccall f_3661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_3661,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); /* c-platform.scm:454: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[5]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3663 in k3604 in k3601 in k3598 in k3678 in k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in ... */ static void C_ccall f_3665(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){ C_save_and_reclaim((void *)f_3665,2,av);} a=C_alloc(28); t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); t3=C_a_i_list4(&a,4,t1,C_SCHEME_FALSE,t2,C_fix(0)); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3649,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); t6=C_a_i_list1(&a,1,C_SCHEME_TRUE); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3661,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t5,a[5]=t7,tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:456: chicken.compiler.support#varnode */ t9=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t9; av2[1]=t8; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* k3671 in k3601 in k3598 in k3678 in k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in ... */ static void C_ccall f_3673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3673,2,av);} /* c-platform.scm:448: chicken.compiler.support#debugging */ t2=*((C_word*)lf[52]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[53]; av2[3]=lf[54]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3678 in k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in ... */ static void C_ccall f_3680(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3680,2,av);} a=C_alloc(7); t2=C_i_caddr(t1); if(C_truep(C_i_listp(t2))){ t3=C_u_i_length(t2); t4=C_eqp(C_fix(2),t3); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3600,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:446: chicken.base#gensym */ t6=*((C_word*)lf[50]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3682 in k3571 in k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in ... */ static void C_ccall f_3684(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3684,2,av);} a=C_alloc(7); t2=C_eqp(lf[47],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3680,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:443: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3686 in k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in ... */ static void C_ccall f_3688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_3688,2,av);} a=C_alloc(6); t2=C_i_car(t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3573,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:441: chicken.compiler.support#db-get */ t4=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; av2[3]=t2; av2[4]=lf[57]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3690 in k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in ... */ static void C_ccall f_3692(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3692,2,av);} a=C_alloc(7); t2=C_eqp(lf[35],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3688,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:440: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3694 in rewrite-c-w-v in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in ... */ static void C_ccall f_3696(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3696,2,av);} a=C_alloc(7); t2=C_eqp(lf[35],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3692,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:439: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in ... */ static void C_ccall f_3704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_3704,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3707,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:461: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[891]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in ... */ static void C_ccall f_3707(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3707,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3710,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:463: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[898]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[899]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in ... */ static void C_ccall f_3710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3710,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3713,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:464: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[42]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[897]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in ... */ static void C_ccall f_3713(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3713,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3716,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:465: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[894]; av2[3]=C_fix(13); av2[4]=C_fix(2); av2[5]=lf[896]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in ... */ static void C_ccall f_3716(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3716,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3719,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:466: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[894]; av2[3]=C_fix(13); av2[4]=C_fix(2); av2[5]=lf[895]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in k3005 in ... */ static void C_ccall f_3719(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3719,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3722,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:467: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[891]; av2[3]=C_fix(13); av2[4]=C_fix(2); av2[5]=lf[893]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in k3072 in ... */ static void C_ccall f_3722(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3722,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3725,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:468: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[891]; av2[3]=C_fix(13); av2[4]=C_fix(2); av2[5]=lf[892]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in k3075 in ... */ static void C_ccall f_3725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3725,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3728,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:469: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[889]; av2[3]=C_fix(13); av2[4]=C_fix(2); av2[5]=lf[890]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in k3231 in ... */ static void C_ccall f_3728(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3728,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3731,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:471: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[842]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[888]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in k3234 in ... */ static void C_ccall f_3731(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3731,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3734,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:472: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[840]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[887]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in k3237 in ... */ static void C_ccall f_3734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3734,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3737,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:473: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[838]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[886]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in k3417 in ... */ static void C_ccall f_3737(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3737,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3740,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:474: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[884]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[885]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in k3420 in ... */ static void C_ccall f_3740(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3740,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3743,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:475: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[882]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[883]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in k3490 in ... */ static void C_ccall f_3743(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3743,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3746,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:476: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[880]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[881]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in k3493 in ... */ static void C_ccall f_3746(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3746,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3749,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:477: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[878]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[879]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in k3496 in ... */ static void C_ccall f_3749(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3749,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3752,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:478: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[876]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[877]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in k3499 in ... */ static void C_ccall f_3752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3752,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3755,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:479: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[874]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[875]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in k3502 in ... */ static void C_ccall f_3755(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3755,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3758,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:480: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[836]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[873]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in k3505 in ... */ static void C_ccall f_3758(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3758,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3761,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:481: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[871]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[872]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in k3532 in ... */ static void C_ccall f_3761(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3761,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3764,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:482: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[869]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[870]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in k3535 in ... */ static void C_ccall f_3764(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3764,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3767,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:483: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[867]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[868]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in k3702 in ... */ static void C_ccall f_3767(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3767,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3770,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:484: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[865]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[866]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in k3705 in ... */ static void C_ccall f_3770(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3770,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3773,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:485: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[863]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[864]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in k3708 in ... */ static void C_ccall f_3773(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3773,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3776,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:486: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[861]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[862]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in k3711 in ... */ static void C_ccall f_3776(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3776,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3779,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:487: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[859]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[860]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in k3714 in ... */ static void C_ccall f_3779(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3779,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3782,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:488: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[857]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[858]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in k3717 in ... */ static void C_ccall f_3782(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3782,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3785,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:489: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[855]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[856]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in k3720 in ... */ static void C_ccall f_3785(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3785,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3788,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:490: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[853]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[854]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in k3723 in ... */ static void C_ccall f_3788(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3788,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3791,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:491: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[851]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[852]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in k3726 in ... */ static void C_ccall f_3791(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3791,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3794,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:492: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[849]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[850]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in k3729 in ... */ static void C_ccall f_3794(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3794,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3797,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:493: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[847]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[848]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in k3732 in ... */ static void C_ccall f_3797(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3797,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3800,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:494: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[845]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[846]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in k3735 in ... */ static void C_ccall f_3800(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3800,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3803,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:495: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[834]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[844]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in k3738 in ... */ static void C_ccall f_3803(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3803,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3806,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:497: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[842]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[843]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in k3741 in ... */ static void C_ccall f_3806(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3806,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3809,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:498: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[840]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[841]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in k3744 in ... */ static void C_ccall f_3809(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3809,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3812,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:499: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[838]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[839]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in k3747 in ... */ static void C_ccall f_3812(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3812,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3815,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:500: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[836]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[837]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in k3750 in ... */ static void C_ccall f_3815(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3815,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3818,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:501: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[834]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[835]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in k3753 in ... */ static void C_ccall f_3818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3818,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3821,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:503: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[831]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[833]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in k3756 in ... */ static void C_ccall f_3821(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3821,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3824,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:504: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[831]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[832]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in k3759 in ... */ static void C_ccall f_3824(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3824,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3827,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:506: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[829]; av2[3]=C_fix(1); av2[4]=C_fix(2); av2[5]=lf[830]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in k3762 in ... */ static void C_ccall f_3827(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3827,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3830,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:507: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[827]; av2[3]=C_fix(1); av2[4]=C_fix(2); av2[5]=lf[828]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in k3765 in ... */ static void C_ccall f_3830(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3830,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3833,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:508: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[825]; av2[3]=C_fix(1); av2[4]=C_fix(2); av2[5]=lf[826]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in k3768 in ... */ static void C_ccall f_3833(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_3833,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3836,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:509: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[823]; av2[3]=C_fix(1); av2[4]=C_fix(2); av2[5]=lf[824]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in k3771 in ... */ static void C_ccall f_3836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3836,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3839,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:511: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[820]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[822]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in k3774 in ... */ static void C_ccall f_3839(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3839,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3842,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:512: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[820]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[821]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in k3777 in ... */ static void C_ccall f_3842(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3842,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3845,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:513: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[818]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[819]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in k3780 in ... */ static void C_ccall f_3845(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3845,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3848,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:514: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[816]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[817]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in k3783 in ... */ static void C_ccall f_3848(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3848,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3851,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:515: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[814]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[815]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in k3786 in ... */ static void C_ccall f_3851(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3851,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3854,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:516: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[812]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[813]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in k3789 in ... */ static void C_ccall f_3854(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3854,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3857,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:517: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[810]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[811]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in k3792 in ... */ static void C_ccall f_3857(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3857,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3860,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:518: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[808]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[809]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in k3795 in ... */ static void C_ccall f_3860(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3860,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3863,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:519: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[806]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[807]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in k3798 in ... */ static void C_ccall f_3863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3863,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3866,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:520: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[804]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[805]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in k3801 in ... */ static void C_ccall f_3866(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3866,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3869,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:521: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[802]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[803]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in k3804 in ... */ static void C_ccall f_3869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3869,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3872,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:522: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[800]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[801]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in k3807 in ... */ static void C_ccall f_3872(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3872,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3875,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:523: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[798]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[799]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in k3810 in ... */ static void C_ccall f_3875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3875,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3878,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:524: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[796]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[797]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in k3813 in ... */ static void C_ccall f_3878(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3878,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3881,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:525: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[794]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[795]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in k3816 in ... */ static void C_ccall f_3881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3881,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3884,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:526: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[792]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[793]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in k3819 in ... */ static void C_ccall f_3884(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3884,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3887,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:527: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[790]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[791]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in k3822 in ... */ static void C_ccall f_3887(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3887,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3890,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:528: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[788]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[789]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in k3825 in ... */ static void C_ccall f_3890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3890,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3893,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:529: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[786]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[787]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in k3828 in ... */ static void C_ccall f_3893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3893,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3896,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:530: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[784]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[785]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in k3831 in ... */ static void C_ccall f_3896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3896,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3899,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:531: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[782]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[783]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in k3834 in ... */ static void C_ccall f_3899(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3899,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3902,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:532: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[780]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[781]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in k3837 in ... */ static void C_ccall f_3902(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3902,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3905,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:533: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[778]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[779]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in k3840 in ... */ static void C_ccall f_3905(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3905,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3908,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:534: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[776]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[777]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in k3843 in ... */ static void C_ccall f_3908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3908,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3911,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:535: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[774]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[775]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in k3846 in ... */ static void C_ccall f_3911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3911,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3914,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:536: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[772]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[773]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in k3849 in ... */ static void C_ccall f_3914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3914,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3917,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:537: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[770]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[771]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in k3852 in ... */ static void C_ccall f_3917(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3917,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3920,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:538: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[768]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[769]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in k3855 in ... */ static void C_ccall f_3920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3920,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3923,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:539: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[766]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[767]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in k3858 in ... */ static void C_ccall f_3923(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3923,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3926,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:540: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[764]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[765]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in k3861 in ... */ static void C_ccall f_3926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3926,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3929,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:541: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[762]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[763]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in k3864 in ... */ static void C_ccall f_3929(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3929,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3932,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:542: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[760]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[761]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in k3867 in ... */ static void C_ccall f_3932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3932,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3935,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:543: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[758]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[759]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in k3870 in ... */ static void C_ccall f_3935(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3935,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3938,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:544: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[756]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[757]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in k3873 in ... */ static void C_ccall f_3938(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3938,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3941,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:545: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[754]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[755]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in k3876 in ... */ static void C_ccall f_3941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3941,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3944,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:546: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[752]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[753]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in k3879 in ... */ static void C_ccall f_3944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3944,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3947,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:547: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[750]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[751]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in k3882 in ... */ static void C_ccall f_3947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3947,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3950,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:548: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[748]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[749]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in k3885 in ... */ static void C_ccall f_3950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3950,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3953,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:549: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[746]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[747]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in k3888 in ... */ static void C_ccall f_3953(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3953,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3956,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:550: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[744]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[745]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in k3891 in ... */ static void C_ccall f_3956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3956,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3959,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:551: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[742]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[743]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in k3894 in ... */ static void C_ccall f_3959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3959,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3962,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:552: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[740]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[741]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in k3897 in ... */ static void C_ccall f_3962(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3962,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3965,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:553: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[738]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[739]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in k3900 in ... */ static void C_ccall f_3965(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3965,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3968,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:554: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[736]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[737]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in k3903 in ... */ static void C_ccall f_3968(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3968,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3971,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:555: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[734]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[735]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in k3906 in ... */ static void C_ccall f_3971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3971,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3974,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:556: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[732]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[733]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in k3909 in ... */ static void C_ccall f_3974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3974,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3977,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:557: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[729]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[731]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in k3912 in ... */ static void C_ccall f_3977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3977,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3980,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:558: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[729]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[730]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in k3915 in ... */ static void C_ccall f_3980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3980,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3983,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:559: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[726]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[728]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in k3918 in ... */ static void C_ccall f_3983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3983,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3986,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:560: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[726]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[727]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in k3921 in ... */ static void C_ccall f_3986(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3986,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3989,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:561: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[724]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[725]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in k3924 in ... */ static void C_ccall f_3989(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3989,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3992,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:562: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[722]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[723]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in k3927 in ... */ static void C_ccall f_3992(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3992,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3995,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:563: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[719]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[721]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in k3930 in ... */ static void C_ccall f_3995(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3995,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3998,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:564: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[719]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[720]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in k3933 in ... */ static void C_ccall f_3998(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_3998,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4001,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:565: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[716]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[718]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in k3936 in ... */ static void C_ccall f_4001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4001,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4004,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:566: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[716]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[717]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in k3939 in ... */ static void C_ccall f_4004(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4004,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4007,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:567: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[713]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[715]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in k3942 in ... */ static void C_ccall f_4007(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4007,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4010,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:568: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[713]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[714]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in k3945 in ... */ static void C_ccall f_4010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4010,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4013,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:569: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[710]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[712]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in k3948 in ... */ static void C_ccall f_4013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4013,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4016,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:570: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[710]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[711]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in k3951 in ... */ static void C_ccall f_4016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4016,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4019,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:571: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[707]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[709]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in k3954 in ... */ static void C_ccall f_4019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4019,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4022,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:572: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[707]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[708]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ static void C_ccall f_4022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4022,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4025,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:573: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[704]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[706]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ static void C_ccall f_4025(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4025,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4028,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:574: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[704]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[705]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in k3963 in ... */ static void C_ccall f_4028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4028,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4031,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:575: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[701]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[703]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in k3966 in ... */ static void C_ccall f_4031(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4031,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4034,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:576: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[701]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[702]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in k3969 in ... */ static void C_ccall f_4034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4034,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4037,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:577: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[698]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[700]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in k3972 in ... */ static void C_ccall f_4037(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4037,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4040,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:578: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[698]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[699]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in k3975 in ... */ static void C_ccall f_4040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4040,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4043,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:579: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[696]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[697]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in k3978 in ... */ static void C_ccall f_4043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4043,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4046,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:580: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[694]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[695]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in k3981 in ... */ static void C_ccall f_4046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4046,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4049,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:581: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[692]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[693]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in k3984 in ... */ static void C_ccall f_4049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4049,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4052,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:582: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[690]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[691]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in k3987 in ... */ static void C_ccall f_4052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4052,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4055,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:583: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[688]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[689]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in k3990 in ... */ static void C_ccall f_4055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4055,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4058,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:584: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[686]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[687]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in k3993 in ... */ static void C_ccall f_4058(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4058,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4061,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:585: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[684]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[685]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in k3996 in ... */ static void C_ccall f_4061(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4061,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4064,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:586: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[682]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[683]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in k3999 in ... */ static void C_ccall f_4064(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4064,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4067,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:587: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[680]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[681]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in k4002 in ... */ static void C_ccall f_4067(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4067,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4070,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:588: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[678]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[679]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in k4005 in ... */ static void C_ccall f_4070(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4070,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4073,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:589: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[676]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[677]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in k4008 in ... */ static void C_ccall f_4073(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4073,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4076,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:590: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[674]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[675]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in k4011 in ... */ static void C_ccall f_4076(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4076,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4079,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:591: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[672]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[673]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in k4014 in ... */ static void C_ccall f_4079(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4079,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4082,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:592: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[670]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[671]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in k4017 in ... */ static void C_ccall f_4082(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4082,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4085,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:593: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[668]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[669]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in k4020 in ... */ static void C_ccall f_4085(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4085,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4088,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:594: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[666]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[667]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in k4023 in ... */ static void C_ccall f_4088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4088,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4091,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:595: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[664]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[665]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in k4026 in ... */ static void C_ccall f_4091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4091,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4094,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:596: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[662]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[663]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in k4029 in ... */ static void C_ccall f_4094(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4094,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4097,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:597: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[660]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[661]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in k4032 in ... */ static void C_ccall f_4097(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4097,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4100,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:598: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[658]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[659]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in k4035 in ... */ static void C_ccall f_4100(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4100,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4103,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:599: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[656]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[657]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in k4038 in ... */ static void C_ccall f_4103(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4103,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4106,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:600: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[654]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[655]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in k4041 in ... */ static void C_ccall f_4106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4106,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4109,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:601: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[652]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[653]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in k4044 in ... */ static void C_ccall f_4109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4109,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4112,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:602: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[650]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[651]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in k4047 in ... */ static void C_ccall f_4112(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4112,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4115,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:603: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[648]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[649]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in k4050 in ... */ static void C_ccall f_4115(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4115,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4118,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:604: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[646]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[647]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in k4053 in ... */ static void C_ccall f_4118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4118,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4121,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:605: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[644]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[645]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in k4056 in ... */ static void C_ccall f_4121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4121,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4124,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:606: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[642]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[643]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in k4059 in ... */ static void C_ccall f_4124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4124,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4127,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:607: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[640]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[641]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in k4062 in ... */ static void C_ccall f_4127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4127,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4130,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:608: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[638]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[639]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in k4065 in ... */ static void C_ccall f_4130(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4130,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4133,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:609: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[636]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[637]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in k4068 in ... */ static void C_ccall f_4133(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4133,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4136,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:610: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[634]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[635]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in k4071 in ... */ static void C_ccall f_4136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4136,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4139,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:611: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[632]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[633]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in k4074 in ... */ static void C_ccall f_4139(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4139,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4142,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:612: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[630]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[631]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in k4077 in ... */ static void C_ccall f_4142(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4142,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4145,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:613: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[628]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[629]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in k4080 in ... */ static void C_ccall f_4145(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4145,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4148,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:614: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[626]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[627]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in k4083 in ... */ static void C_ccall f_4148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4148,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4151,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:615: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[624]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[625]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in k4086 in ... */ static void C_ccall f_4151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4151,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4154,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:617: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[620]; av2[3]=C_fix(14); av2[4]=lf[24]; av2[5]=C_fix(2); av2[6]=lf[622]; av2[7]=lf[623]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in k4089 in ... */ static void C_ccall f_4154(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4154,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4157,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:618: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[620]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[621]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in k4092 in ... */ static void C_ccall f_4157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4157,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4160,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:619: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[616]; av2[3]=C_fix(14); av2[4]=lf[24]; av2[5]=C_fix(2); av2[6]=lf[618]; av2[7]=lf[619]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in k4095 in ... */ static void C_ccall f_4160(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4160,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4163,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:620: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[616]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[617]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in k4098 in ... */ static void C_ccall f_4163(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4163,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4166,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:621: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[613]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[614]; av2[6]=lf[615]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in k4101 in ... */ static void C_ccall f_4166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4166,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4169,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:622: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[610]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[611]; av2[6]=lf[612]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in k4104 in ... */ static void C_ccall f_4169(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4169,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4172,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:623: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[608]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[609]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in k4107 in ... */ static void C_ccall f_4172(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4172,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4175,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:624: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[606]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[607]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in k4110 in ... */ static void C_ccall f_4175(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4175,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4178,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:626: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[603]; av2[3]=C_fix(4); av2[4]=lf[297]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in k4113 in ... */ static void C_ccall f_4178(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4178,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4181,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:627: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[600]; av2[3]=C_fix(4); av2[4]=lf[297]; av2[5]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in k4116 in ... */ static void C_ccall f_4181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4181,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4184,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:628: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[603]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[604]; av2[6]=lf[605]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in k4119 in ... */ static void C_ccall f_4184(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4184,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4187,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:629: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[600]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[601]; av2[6]=lf[602]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in k4122 in ... */ static void C_ccall f_4187(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4187,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4190,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:631: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[597]; av2[3]=C_fix(14); av2[4]=lf[24]; av2[5]=C_fix(1); av2[6]=lf[598]; av2[7]=lf[599]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in k4125 in ... */ static void C_ccall f_4190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4190,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4193,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:633: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[593]; av2[3]=C_fix(19); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in k4128 in ... */ static void C_ccall f_4193(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4193,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4196,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:634: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[589]; av2[3]=C_fix(19); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in k4131 in ... */ static void C_ccall f_4196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4196,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4199,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:635: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[585]; av2[3]=C_fix(19); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in k4134 in ... */ static void C_ccall f_4199(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_4199,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:637: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[593]; av2[3]=C_fix(21); av2[4]=C_fix(-1); av2[5]=lf[594]; av2[6]=lf[595]; av2[7]=lf[596]; av2[8]=C_fix(5); ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in k4137 in ... */ static void C_ccall f_4202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_4202,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:638: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[589]; av2[3]=C_fix(21); av2[4]=C_fix(0); av2[5]=lf[590]; av2[6]=lf[591]; av2[7]=lf[592]; av2[8]=C_fix(5); ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in k4140 in ... */ static void C_ccall f_4205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_4205,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4208,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:639: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[585]; av2[3]=C_fix(21); av2[4]=C_fix(0); av2[5]=lf[586]; av2[6]=lf[587]; av2[7]=lf[588]; av2[8]=C_fix(5); ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in k4143 in ... */ static void C_ccall f_4208(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_4208,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4211,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:641: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[582]; av2[3]=C_fix(22); av2[4]=C_fix(1); av2[5]=lf[583]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(5); av2[8]=lf[584]; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in k4146 in ... */ static void C_ccall f_4211(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4211,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4214,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:643: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[580]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[581]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in k4149 in ... */ static void C_ccall f_4214(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4214,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4217,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:644: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[578]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[579]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in k4152 in ... */ static void C_ccall f_4217(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4217,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4220,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:645: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[576]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[577]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in k4155 in ... */ static void C_ccall f_4220(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4220,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4223,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:646: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[574]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[575]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in k4158 in ... */ static void C_ccall f_4223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4223,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4226,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:647: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[572]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[573]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in k4161 in ... */ static void C_ccall f_4226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4226,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4229,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:648: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[570]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[571]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in k4164 in ... */ static void C_ccall f_4229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4229,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4232,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:649: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[568]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[569]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in k4167 in ... */ static void C_ccall f_4232(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4232,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4235,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:651: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[564]; av2[3]=C_fix(5); av2[4]=lf[567]; av2[5]=C_fix(0); av2[6]=lf[24]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in k4170 in ... */ static void C_ccall f_4235(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4235,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4238,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:652: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[564]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[566]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in k4173 in ... */ static void C_ccall f_4238(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4238,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4241,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:653: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[564]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[565]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in k4176 in ... */ static void C_ccall f_4241(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4241,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4244,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:654: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[560]; av2[3]=C_fix(5); av2[4]=lf[563]; av2[5]=C_fix(0); av2[6]=lf[24]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in k4179 in ... */ static void C_ccall f_4244(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4244,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4247,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:655: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[560]; av2[3]=C_fix(5); av2[4]=lf[562]; av2[5]=C_fix(0); av2[6]=lf[388]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in k4182 in ... */ static void C_ccall f_4247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4247,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4250,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:656: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[560]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[561]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in k4185 in ... */ static void C_ccall f_4250(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4250,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4253,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:657: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[556]; av2[3]=C_fix(5); av2[4]=lf[559]; av2[5]=C_fix(0); av2[6]=lf[24]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in k4188 in ... */ static void C_ccall f_4253(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4253,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4256,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:658: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[556]; av2[3]=C_fix(5); av2[4]=lf[558]; av2[5]=C_fix(0); av2[6]=lf[388]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in k4191 in ... */ static void C_ccall f_4256(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4256,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4259,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:659: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[556]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[557]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in k4194 in ... */ static void C_ccall f_4259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4259,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4262,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:661: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[544]; av2[3]=C_fix(6); av2[4]=lf[554]; av2[5]=lf[555]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in k4197 in ... */ static void C_ccall f_4262(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4262,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4265,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:662: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[540]; av2[3]=C_fix(6); av2[4]=lf[552]; av2[5]=lf[553]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in k4200 in ... */ static void C_ccall f_4265(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4265,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4268,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:663: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[549]; av2[3]=C_fix(6); av2[4]=lf[550]; av2[5]=lf[551]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in k4203 in ... */ static void C_ccall f_4268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4268,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4271,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:664: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[546]; av2[3]=C_fix(6); av2[4]=lf[547]; av2[5]=lf[548]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in k4206 in ... */ static void C_ccall f_4271(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4271,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4274,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:666: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[544]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[545]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in k4209 in ... */ static void C_ccall f_4274(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4274,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4277,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:667: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[542]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[543]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in k4212 in ... */ static void C_ccall f_4277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4277,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4280,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:668: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[540]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[541]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in k4215 in ... */ static void C_ccall f_4280(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4280,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4283,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:670: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[525]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[539]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in k4218 in ... */ static void C_ccall f_4283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4283,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4286,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:671: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[523]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[538]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in k4221 in ... */ static void C_ccall f_4286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4286,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4289,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:672: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[521]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[537]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in k4224 in ... */ static void C_ccall f_4289(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4289,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4292,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:673: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[519]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[536]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in k4227 in ... */ static void C_ccall f_4292(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4292,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4295,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:674: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[517]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[535]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in k4230 in ... */ static void C_ccall f_4295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4295,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4298,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:675: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[515]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[534]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in k4233 in ... */ static void C_ccall f_4298(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4298,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4301,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:676: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[513]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[533]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in k4236 in ... */ static void C_ccall f_4301(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4301,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4304,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:677: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[511]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[532]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in k4239 in ... */ static void C_ccall f_4304(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4304,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4307,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:678: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[509]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[531]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in k4242 in ... */ static void C_ccall f_4307(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4307,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4310,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:679: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[507]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[530]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in k4245 in ... */ static void C_ccall f_4310(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4310,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4313,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:680: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[505]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[529]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in k4248 in ... */ static void C_ccall f_4313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4313,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4316,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:681: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[503]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[528]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in k4251 in ... */ static void C_ccall f_4316(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4316,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4319,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:682: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[501]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[527]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in k4254 in ... */ static void C_ccall f_4319(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4319,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4322,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:683: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[525]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[526]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in k4257 in ... */ static void C_ccall f_4322(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4322,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4325,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:684: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[523]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[524]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in k4260 in ... */ static void C_ccall f_4325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4325,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4328,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:685: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[521]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[522]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in k4263 in ... */ static void C_ccall f_4328(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4328,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4331,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:686: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[519]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[520]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in k4266 in ... */ static void C_ccall f_4331(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4331,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4334,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:687: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[517]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[518]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in k4269 in ... */ static void C_ccall f_4334(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4334,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4337,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:688: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[515]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[516]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in k4272 in ... */ static void C_ccall f_4337(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4337,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4340,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:689: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[513]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[514]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in k4275 in ... */ static void C_ccall f_4340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4340,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4343,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:690: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[511]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[512]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in k4278 in ... */ static void C_ccall f_4343(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4343,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4346,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:691: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[509]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[510]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in k4281 in ... */ static void C_ccall f_4346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4346,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4349,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:692: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[507]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[508]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in k4284 in ... */ static void C_ccall f_4349(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4349,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4352,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:693: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[505]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[506]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in k4287 in ... */ static void C_ccall f_4352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4352,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4355,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:694: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[503]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[504]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in k4290 in ... */ static void C_ccall f_4355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4355,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4358,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:695: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[501]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[502]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in k4293 in ... */ static void C_ccall f_4358(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4358,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4361,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:697: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[439]; av2[3]=C_fix(9); av2[4]=lf[499]; av2[5]=lf[500]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in k4296 in ... */ static void C_ccall f_4361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4361,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4364,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:698: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[437]; av2[3]=C_fix(9); av2[4]=lf[497]; av2[5]=lf[498]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in k4299 in ... */ static void C_ccall f_4364(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4364,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4367,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:699: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[435]; av2[3]=C_fix(9); av2[4]=lf[495]; av2[5]=lf[496]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in k4302 in ... */ static void C_ccall f_4367(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4367,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4370,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:700: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[433]; av2[3]=C_fix(9); av2[4]=lf[493]; av2[5]=lf[494]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in k4305 in ... */ static void C_ccall f_4370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4370,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4373,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:701: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[431]; av2[3]=C_fix(9); av2[4]=lf[491]; av2[5]=lf[492]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in k4308 in ... */ static void C_ccall f_4373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4373,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4376,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:703: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[490]; av2[3]=C_fix(11); av2[4]=C_fix(1); av2[5]=lf[99]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in k4311 in ... */ static void C_ccall f_4376(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4376,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4379,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:704: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[488]; av2[3]=C_fix(11); av2[4]=C_fix(2); av2[5]=lf[489]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in k4314 in ... */ static void C_ccall f_4379(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4379,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4382,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:705: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[486]; av2[3]=C_fix(11); av2[4]=C_fix(2); av2[5]=lf[487]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in k4317 in ... */ static void C_ccall f_4382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4382,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4385,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:706: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[485]; av2[3]=C_fix(11); av2[4]=C_fix(3); av2[5]=lf[297]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in k4320 in ... */ static void C_ccall f_4385(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4385,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4388,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:707: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[484]; av2[3]=C_fix(11); av2[4]=C_fix(3); av2[5]=lf[297]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in k4323 in ... */ static void C_ccall f_4388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4388,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4391,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:708: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[483]; av2[3]=C_fix(11); av2[4]=C_SCHEME_FALSE; av2[5]=lf[340]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in k4326 in ... */ static void C_ccall f_4391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4391,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4394,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:709: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[481]; av2[3]=C_fix(11); av2[4]=C_fix(3); av2[5]=lf[482]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in k4329 in ... */ static void C_ccall f_4394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4394,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4397,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:710: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[479]; av2[3]=C_fix(11); av2[4]=C_fix(2); av2[5]=lf[480]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in k4332 in ... */ static void C_ccall f_4397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4397,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4400,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:711: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[477]; av2[3]=C_fix(11); av2[4]=C_fix(1); av2[5]=lf[478]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in k4335 in ... */ static void C_ccall f_4400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4400,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4403,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:712: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[475]; av2[3]=C_fix(11); av2[4]=C_fix(1); av2[5]=lf[476]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in k4338 in ... */ static void C_ccall f_4403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4403,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4406,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:714: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[473]; av2[3]=C_fix(11); av2[4]=C_fix(3); av2[5]=lf[297]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in k4341 in ... */ static void C_ccall f_4406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4406,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4409,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:715: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[473]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[474]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in k4344 in ... */ static void C_ccall f_4409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4409,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4412,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:717: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[469]; av2[3]=C_fix(12); av2[4]=lf[472]; av2[5]=C_SCHEME_TRUE; av2[6]=C_fix(2); ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in k4347 in ... */ static void C_ccall f_4412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4412,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4415,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:718: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[468]; av2[3]=C_fix(12); av2[4]=lf[471]; av2[5]=C_SCHEME_TRUE; av2[6]=C_fix(2); ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in k4350 in ... */ static void C_ccall f_4415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4415,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4418,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:719: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[470]; av2[3]=C_fix(12); av2[4]=C_SCHEME_FALSE; av2[5]=C_SCHEME_TRUE; av2[6]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in k4353 in ... */ static void C_ccall f_4418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4418,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4421,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:721: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[469]; av2[3]=C_fix(19); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in k4356 in ... */ static void C_ccall f_4421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4421,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4424,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:722: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[468]; av2[3]=C_fix(19); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in k4359 in ... */ static void C_ccall f_4424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4424,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4427,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:724: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[469]; av2[3]=C_fix(18); av2[4]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in k4362 in ... */ static void C_ccall f_4427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4427,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4430,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:725: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[468]; av2[3]=C_fix(18); av2[4]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in k4365 in ... */ static void C_ccall f_4430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4430,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4433,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:726: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[349]; av2[3]=C_fix(18); av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in k4368 in ... */ static void C_ccall f_4433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4433,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4436,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6084,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:728: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[429]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in ... */ static void C_ccall f_4436(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4436,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4439,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5960,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:758: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[427]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in ... */ static void C_ccall f_4439(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4439,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4442,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5836,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:794: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[424]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in ... */ static void C_ccall f_4442(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_4442,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4444,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4577,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:856: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[454]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* rewrite-div in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in ... */ static void C_ccall f_4444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4444,6,av);} a=C_alloc(7); t6=C_eqp(*((C_word*)lf[25]+1),lf[24]); if(C_truep(t6)){ t7=C_i_length(t5); if(C_truep(C_fixnum_greater_or_equal_p(t7,C_fix(2)))){ t8=C_i_car(t5); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4539,a[2]=t9,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4541,tmp=(C_word)a,a+=2,tmp); t12=t5; t13=C_u_i_cdr(t12); /* c-platform.scm:840: filter */ f_2293(t10,t11,t13);} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k4479 in k4537 in rewrite-div in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in ... */ static void C_ccall f_4481(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4481,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:846: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a4482 in k4537 in rewrite-div in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in ... */ static void C_ccall f_4483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4483,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4490,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4526,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:852: chicken.compiler.support#node-class */ t6=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k4488 in a4482 in k4537 in rewrite-div in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in ... */ static void C_fcall f_4490(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_4490,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:853: chicken.compiler.support#qnode */ t3=*((C_word*)lf[29]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]); /* c-platform.scm:854: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[27]; av2[3]=lf[59]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k4499 in k4488 in a4482 in k4537 in rewrite-div in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in ... */ static void C_ccall f_4501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_4501,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:853: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[27]; av2[3]=lf[58]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4520 in k4524 in a4482 in k4537 in rewrite-div in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in ... */ static void C_ccall f_4522(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4522,2,av);} t2=C_i_car(t1); t3=((C_word*)t0)[2]; f_4490(t3,C_eqp(C_fix(2),t2));} /* k4524 in a4482 in k4537 in rewrite-div in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in ... */ static void C_ccall f_4526(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4526,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4522,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:852: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_4490(t3,C_SCHEME_FALSE);}} /* k4537 in rewrite-div in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in ... */ static void C_ccall f_4539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4539,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_i_length(t2); if(C_truep(C_fixnum_greater_or_equal_p(t3,C_fix(2)))){ t4=C_a_i_list1(&a,1,C_SCHEME_TRUE); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4481,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4483,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:850: chicken.compiler.support#fold-inner */ t8=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a4540 in rewrite-div in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in ... */ static void C_ccall f_4541(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_4541,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4567,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:842: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k4561 in k4565 in a4540 in rewrite-div in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in ... */ static void C_ccall f_4563(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4563,2,av);} t2=C_i_car(t1); t3=C_eqp(C_fix(1),t2); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k4565 in a4540 in rewrite-div in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in ... */ static void C_ccall f_4567(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_4567,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4563,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:843: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in ... */ static void C_ccall f_4577(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_4577,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4580,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:857: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[457]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in ... */ static void C_ccall f_4580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4580,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4583,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5759,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:859: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[449]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in ... */ static void C_ccall f_4583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4583,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4586,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:877: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[427]; av2[3]=C_fix(19); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in ... */ static void C_ccall f_4586(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4586,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4589,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:878: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[424]; av2[3]=C_fix(19); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in ... */ static void C_ccall f_4589(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4589,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4592,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:879: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[429]; av2[3]=C_fix(19); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in ... */ static void C_ccall f_4592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_4592,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4595,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:880: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t3; av2[1]=t2; av2[2]=lf[454]; av2[3]=C_fix(19); ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} /* k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in ... */ static void C_ccall f_4595(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4595,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4598,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:882: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[427]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[453]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(29); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in ... */ static void C_ccall f_4598(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4598,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4601,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:883: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[424]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[452]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(29); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in ... */ static void C_ccall f_4601(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4601,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4604,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:884: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[429]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[451]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(33); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in ... */ static void C_ccall f_4604(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4604,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4607,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:885: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[449]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[450]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(5); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in ... */ static void C_ccall f_4607(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4607,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4610,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:886: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[400]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[448]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(5); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in ... */ static void C_ccall f_4610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4610,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4613,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:887: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[446]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[447]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(5); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in ... */ static void C_ccall f_4613(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4613,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4616,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:889: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[439]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[445]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in ... */ static void C_ccall f_4616(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4616,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4619,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:890: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[437]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[444]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in ... */ static void C_ccall f_4619(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4619,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4622,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:891: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[435]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[443]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in ... */ static void C_ccall f_4622(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4622,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4625,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:892: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[433]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[442]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in ... */ static void C_ccall f_4625(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4625,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4628,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:893: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[431]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[441]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in ... */ static void C_ccall f_4628(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4628,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4631,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:895: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[439]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[440]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in k4434 in ... */ static void C_ccall f_4631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4631,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4634,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:896: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[437]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[438]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in k4437 in ... */ static void C_ccall f_4634(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4634,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4637,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:897: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[435]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[436]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in k4440 in ... */ static void C_ccall f_4637(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4637,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4640,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:898: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[433]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[434]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in k4575 in ... */ static void C_ccall f_4640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4640,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4643,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:899: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[431]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[432]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in k4578 in ... */ static void C_ccall f_4643(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4643,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4646,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:901: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[429]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[430]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in k4581 in ... */ static void C_ccall f_4646(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4646,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4649,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:902: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[427]; av2[3]=C_fix(13); av2[4]=C_SCHEME_FALSE; av2[5]=lf[428]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in k4584 in ... */ static void C_ccall f_4649(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4649,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4652,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:903: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[424]; av2[3]=C_fix(13); av2[4]=lf[425]; av2[5]=lf[426]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in k4587 in ... */ static void C_ccall f_4652(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4652,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4655,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:905: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[421]; av2[3]=C_fix(13); av2[4]=lf[422]; av2[5]=lf[423]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in k4590 in ... */ static void C_ccall f_4655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4655,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4658,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:906: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[419]; av2[3]=C_fix(13); av2[4]=C_fix(1); av2[5]=lf[420]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in k4593 in ... */ static void C_ccall f_4658(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4658,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4661,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:907: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[417]; av2[3]=C_fix(13); av2[4]=C_fix(4); av2[5]=lf[418]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in k4596 in ... */ static void C_ccall f_4661(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4661,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4664,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:908: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[415]; av2[3]=C_fix(13); av2[4]=C_fix(1); av2[5]=lf[416]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in k4599 in ... */ static void C_ccall f_4664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4664,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4667,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:909: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[413]; av2[3]=C_fix(13); av2[4]=C_fix(0); av2[5]=lf[414]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in k4602 in ... */ static void C_ccall f_4667(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4667,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4670,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:910: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[411]; av2[3]=C_fix(13); av2[4]=C_fix(1); av2[5]=lf[412]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in k4605 in ... */ static void C_ccall f_4670(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4670,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4673,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:911: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[409]; av2[3]=C_fix(13); av2[4]=C_fix(1); av2[5]=lf[410]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in k4608 in ... */ static void C_ccall f_4673(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4673,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4676,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:912: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[407]; av2[3]=C_fix(13); av2[4]=C_fix(1); av2[5]=lf[408]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in k4611 in ... */ static void C_ccall f_4676(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4676,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4679,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:914: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[398]; av2[3]=C_fix(14); av2[4]=lf[24]; av2[5]=C_fix(1); av2[6]=lf[405]; av2[7]=lf[406]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in k4614 in ... */ static void C_ccall f_4679(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4679,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4682,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:915: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[396]; av2[3]=C_fix(14); av2[4]=lf[24]; av2[5]=C_fix(1); av2[6]=lf[403]; av2[7]=lf[404]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in k4617 in ... */ static void C_ccall f_4682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4682,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4685,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:916: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[400]; av2[3]=C_fix(14); av2[4]=lf[24]; av2[5]=C_fix(2); av2[6]=lf[401]; av2[7]=lf[402]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in k4620 in ... */ static void C_ccall f_4685(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4685,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4688,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:918: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[398]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[399]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in k4623 in ... */ static void C_ccall f_4688(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4688,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4691,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:919: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[396]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[397]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in k4626 in ... */ static void C_ccall f_4691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4691,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4694,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:921: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[394]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[395]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in k4629 in ... */ static void C_ccall f_4694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4694,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4697,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:922: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[392]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[393]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in k4632 in ... */ static void C_ccall f_4697(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4697,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4700,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:924: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[390]; av2[3]=C_fix(15); av2[4]=lf[388]; av2[5]=lf[24]; av2[6]=lf[391]; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in k4635 in ... */ static void C_ccall f_4700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4700,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4703,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:925: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[389]; av2[3]=C_fix(15); av2[4]=lf[388]; av2[5]=lf[24]; av2[6]=lf[358]; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in k4638 in ... */ static void C_ccall f_4703(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4703,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4706,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:926: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[387]; av2[3]=C_fix(15); av2[4]=lf[388]; av2[5]=lf[24]; av2[6]=lf[361]; av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in k4641 in ... */ static void C_ccall f_4706(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4706,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4709,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:928: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[385]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[386]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in k4644 in ... */ static void C_ccall f_4709(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4709,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4712,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:929: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[383]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[384]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in k4647 in ... */ static void C_ccall f_4712(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4712,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4715,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:930: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[381]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[382]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in k4650 in ... */ static void C_ccall f_4715(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4715,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4718,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:931: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[379]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[380]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in k4653 in ... */ static void C_ccall f_4718(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4718,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4721,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:932: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[377]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[378]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in k4656 in ... */ static void C_ccall f_4721(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4721,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4724,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:933: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[375]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[376]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in k4659 in ... */ static void C_ccall f_4724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4724,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4727,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:934: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[373]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[374]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in k4662 in ... */ static void C_ccall f_4727(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4727,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4730,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:935: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[371]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[372]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in k4665 in ... */ static void C_ccall f_4730(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4730,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4733,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:936: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[369]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[370]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in k4668 in ... */ static void C_ccall f_4733(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4733,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4736,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:937: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[367]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[368]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in k4671 in ... */ static void C_ccall f_4736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4736,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4739,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:938: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[365]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[366]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in k4674 in ... */ static void C_ccall f_4739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4739,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4742,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:939: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[363]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[364]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in k4677 in ... */ static void C_ccall f_4742(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4742,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4745,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:940: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[361]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[362]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in k4680 in ... */ static void C_ccall f_4745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4745,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4748,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:941: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[356]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[360]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in k4683 in ... */ static void C_ccall f_4748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4748,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4751,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:942: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[358]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[359]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in k4686 in ... */ static void C_ccall f_4751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4751,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4754,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:943: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[356]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[357]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in k4689 in ... */ static void C_ccall f_4754(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4754,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4757,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:945: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[354]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[355]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(3); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in k4692 in ... */ static void C_ccall f_4757(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4757,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4760,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:946: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[352]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[353]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(3); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in k4695 in ... */ static void C_ccall f_4760(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_4760,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4763,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:947: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[349]; av2[3]=C_fix(16); av2[4]=C_SCHEME_FALSE; av2[5]=lf[350]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[351]; av2[8]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in k4698 in ... */ static void C_ccall f_4763(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4763,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4766,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:948: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[346]; av2[3]=C_fix(16); av2[4]=C_SCHEME_FALSE; av2[5]=lf[347]; av2[6]=C_SCHEME_TRUE; av2[7]=lf[348]; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in k4701 in ... */ static void C_ccall f_4766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_4766,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4769,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:949: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[344]; av2[3]=C_fix(16); av2[4]=C_SCHEME_FALSE; av2[5]=lf[345]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; av2[8]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in k4704 in ... */ static void C_ccall f_4769(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4769,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4772,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:950: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[342]; av2[3]=C_fix(16); av2[4]=C_SCHEME_FALSE; av2[5]=lf[343]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in k4707 in ... */ static void C_ccall f_4772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_4772,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4775,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:951: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[340]; av2[3]=C_fix(16); av2[4]=C_SCHEME_FALSE; av2[5]=lf[341]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; av2[8]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in k4710 in ... */ static void C_ccall f_4775(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4775,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4778,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:952: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[338]; av2[3]=C_fix(16); av2[4]=C_SCHEME_FALSE; av2[5]=lf[339]; av2[6]=C_SCHEME_TRUE; av2[7]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in k4713 in ... */ static void C_ccall f_4778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4778,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4781,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:953: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[336]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[337]; av2[6]=C_SCHEME_FALSE; av2[7]=C_fix(2); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in k4716 in ... */ static void C_ccall f_4781(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4781,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4784,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:954: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[334]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[335]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in k4719 in ... */ static void C_ccall f_4784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4784,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4787,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:955: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[332]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[333]; av2[6]=C_SCHEME_FALSE; av2[7]=C_fix(2); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in k4722 in ... */ static void C_ccall f_4787(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4787,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4790,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:956: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[330]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[331]; av2[6]=C_SCHEME_TRUE; av2[7]=C_fix(6); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in k4725 in ... */ static void C_ccall f_4790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4790,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4793,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:958: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[328]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[329]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in k4728 in ... */ static void C_ccall f_4793(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4793,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4796,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:959: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[326]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[327]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in k4731 in ... */ static void C_ccall f_4796(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4796,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4799,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:960: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[324]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[325]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in k4734 in ... */ static void C_ccall f_4799(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4799,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4802,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:961: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[322]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[323]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in k4737 in ... */ static void C_ccall f_4802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4802,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4805,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:962: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[320]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[321]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in k4740 in ... */ static void C_ccall f_4805(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4805,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4808,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:963: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[318]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[319]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in k4743 in ... */ static void C_ccall f_4808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4808,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4811,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:964: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[316]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[317]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in k4746 in ... */ static void C_ccall f_4811(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4811,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4814,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:965: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[314]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[315]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in k4749 in ... */ static void C_ccall f_4814(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4814,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4817,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:966: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[312]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[313]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in k4752 in ... */ static void C_ccall f_4817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4817,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4820,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:967: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[310]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[311]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in k4755 in ... */ static void C_ccall f_4820(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4820,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4823,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:968: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[308]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[309]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in k4758 in ... */ static void C_ccall f_4823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4823,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4826,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:969: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[306]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[307]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in k4761 in ... */ static void C_ccall f_4826(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4826,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4829,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:971: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[304]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[305]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in k4764 in ... */ static void C_ccall f_4829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4829,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4832,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:972: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[302]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[303]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in k4767 in ... */ static void C_ccall f_4832(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4832,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4835,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:973: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[300]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[301]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in k4770 in ... */ static void C_ccall f_4835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4835,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4838,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:974: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[298]; av2[3]=C_fix(16); av2[4]=C_fix(1); av2[5]=lf[299]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in k4773 in ... */ static void C_ccall f_4838(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4838,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4841,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5702,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:976: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[297]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in ... */ static void C_ccall f_4841(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4841,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4844,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:994: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[292]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[293]; av2[6]=lf[294]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in ... */ static void C_ccall f_4844(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4844,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4847,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:995: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[289]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[290]; av2[6]=lf[291]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in ... */ static void C_ccall f_4847(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4847,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4850,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:996: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[287]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[288]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in ... */ static void C_ccall f_4850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4850,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4853,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:997: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[285]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[286]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in ... */ static void C_ccall f_4853(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4853,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4856,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:998: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[282]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[283]; av2[6]=lf[284]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in ... */ static void C_ccall f_4856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4856,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4859,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:999: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[279]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[280]; av2[6]=lf[281]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in ... */ static void C_ccall f_4859(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4859,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4862,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1000: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[276]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[277]; av2[6]=lf[278]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in ... */ static void C_ccall f_4862(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4862,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4865,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1001: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[273]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[274]; av2[6]=lf[275]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in ... */ static void C_ccall f_4865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4865,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4868,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1002: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[270]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[271]; av2[6]=lf[272]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in ... */ static void C_ccall f_4868(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4868,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4871,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1003: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[267]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[268]; av2[6]=lf[269]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in ... */ static void C_ccall f_4871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4871,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4874,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1004: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[265]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[266]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in ... */ static void C_ccall f_4874(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_4874,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4877,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5580,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:1006: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[264]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in ... */ static void C_ccall f_4877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4877,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4880,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1040: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[257]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[258]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in ... */ static void C_ccall f_4880(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4880,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4883,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1041: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[255]; av2[3]=C_fix(17); av2[4]=C_fix(3); av2[5]=lf[256]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in ... */ static void C_ccall f_4883(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4883,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4886,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1042: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[253]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[254]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in ... */ static void C_ccall f_4886(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4886,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4889,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1043: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[251]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[252]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in ... */ static void C_ccall f_4889(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4889,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4892,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1044: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[249]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[250]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in ... */ static void C_ccall f_4892(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4892,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4895,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1045: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[247]; av2[3]=C_fix(17); av2[4]=C_fix(3); av2[5]=lf[248]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in ... */ static void C_ccall f_4895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4895,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4898,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1046: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[245]; av2[3]=C_fix(17); av2[4]=C_fix(3); av2[5]=lf[246]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in ... */ static void C_ccall f_4898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4898,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4901,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1047: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[243]; av2[3]=C_fix(17); av2[4]=C_fix(3); av2[5]=lf[244]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in ... */ static void C_ccall f_4901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4901,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4904,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1048: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[240]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[241]; av2[6]=lf[242]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in ... */ static void C_ccall f_4904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4904,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4907,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1049: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[238]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[239]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in ... */ static void C_ccall f_4907(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4907,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4910,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1050: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[236]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[237]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in ... */ static void C_ccall f_4910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4910,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4913,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1051: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[233]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[234]; av2[6]=lf[235]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in ... */ static void C_ccall f_4913(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4913,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4916,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1052: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[231]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[232]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in ... */ static void C_ccall f_4916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4916,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4919,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1053: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[229]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[230]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in ... */ static void C_ccall f_4919(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4919,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4922,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1054: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[227]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[228]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in ... */ static void C_ccall f_4922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4922,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4925,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1055: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[225]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[226]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in k4860 in ... */ static void C_ccall f_4925(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4925,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4928,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1056: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[223]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[224]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in k4863 in ... */ static void C_ccall f_4928(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4928,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4931,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1057: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[221]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[222]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in k4866 in ... */ static void C_ccall f_4931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4931,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4934,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1058: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[219]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[220]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in k4869 in ... */ static void C_ccall f_4934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4934,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4937,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1059: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[217]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[218]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in k4872 in ... */ static void C_ccall f_4937(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4937,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4940,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1060: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[215]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[216]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in k4875 in ... */ static void C_ccall f_4940(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4940,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4943,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1061: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[213]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[214]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in k4878 in ... */ static void C_ccall f_4943(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4943,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4946,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1062: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[211]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[212]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in k4881 in ... */ static void C_ccall f_4946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_4946,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4949,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1063: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[209]; av2[3]=C_fix(17); av2[4]=C_fix(2); av2[5]=lf[210]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in k4884 in ... */ static void C_ccall f_4949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4949,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4952,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1065: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[207]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[208]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in k4887 in ... */ static void C_ccall f_4952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4952,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4955,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1068: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[204]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[206]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in k4890 in ... */ static void C_ccall f_4955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4955,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4958,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1069: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[204]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[205]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in k4893 in ... */ static void C_ccall f_4958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4958,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4961,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1070: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[201]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[203]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in k4896 in ... */ static void C_ccall f_4961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4961,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4964,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1071: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[201]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[202]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in k4899 in ... */ static void C_ccall f_4964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4964,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4967,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1072: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[198]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[200]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in k4902 in ... */ static void C_ccall f_4967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4967,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4970,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1073: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[198]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[199]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in k4905 in ... */ static void C_ccall f_4970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4970,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4973,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1074: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[195]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[197]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in k4908 in ... */ static void C_ccall f_4973(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4973,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4976,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1075: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[195]; av2[3]=C_fix(2); av2[4]=C_fix(2); av2[5]=lf[196]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in k4911 in ... */ static void C_ccall f_4976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4976,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4979,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1077: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[193]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[194]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in k4914 in ... */ static void C_ccall f_4979(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4979,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4982,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1078: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[191]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[192]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in k4917 in ... */ static void C_ccall f_4982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4982,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4985,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1080: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[188]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[190]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in k4920 in ... */ static void C_ccall f_4985(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4985,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4988,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1081: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[188]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[189]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in k4923 in ... */ static void C_ccall f_4988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4988,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4991,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1082: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[185]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[187]; av2[6]=C_SCHEME_FALSE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in k4926 in ... */ static void C_ccall f_4991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_4991,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4994,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1083: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[185]; av2[3]=C_fix(16); av2[4]=C_fix(2); av2[5]=lf[186]; av2[6]=C_SCHEME_TRUE; av2[7]=*((C_word*)lf[11]+1); ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in k4929 in ... */ static void C_ccall f_4994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4994,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4997,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1085: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[182]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[184]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in k4932 in ... */ static void C_ccall f_4997(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_4997,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5000,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1086: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[182]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[183]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in k4935 in ... */ static void C_ccall f_5000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5000,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5003,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1087: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[179]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[181]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in k4938 in ... */ static void C_ccall f_5003(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5003,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5006,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1088: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[179]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[180]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in k4941 in ... */ static void C_ccall f_5006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5006,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5009,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1089: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[176]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[178]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in k4944 in ... */ static void C_ccall f_5009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5009,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5012,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1090: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[176]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[177]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in k4947 in ... */ static void C_ccall f_5012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5012,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5015,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1091: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[173]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[175]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in k4950 in ... */ static void C_ccall f_5015(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5015,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5018,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1092: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[173]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[174]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in k4953 in ... */ static void C_ccall f_5018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5018,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5021,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1093: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[170]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[172]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in k4956 in ... */ static void C_ccall f_5021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5021,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5024,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1094: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[170]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[171]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in k4959 in ... */ static void C_ccall f_5024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5024,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5027,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1095: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[167]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[169]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in k4962 in ... */ static void C_ccall f_5027(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5027,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5030,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1096: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[167]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[168]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in k4965 in ... */ static void C_ccall f_5030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5030,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5033,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1097: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[164]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[166]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in k4968 in ... */ static void C_ccall f_5033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5033,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5036,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1098: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[164]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[165]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in k4971 in ... */ static void C_ccall f_5036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5036,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5039,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1099: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[161]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[163]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in k4974 in ... */ static void C_ccall f_5039(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5039,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5042,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1100: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[161]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[162]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in k4977 in ... */ static void C_ccall f_5042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5042,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5045,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1101: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[158]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[160]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in k4980 in ... */ static void C_ccall f_5045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5045,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5048,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1102: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[158]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[159]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in k4983 in ... */ static void C_ccall f_5048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5048,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5051,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1103: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[155]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[157]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in k4986 in ... */ static void C_ccall f_5051(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5051,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5054,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1104: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[155]; av2[3]=C_fix(2); av2[4]=C_fix(3); av2[5]=lf[156]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in k4989 in ... */ static void C_ccall f_5054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5054,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5057,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1106: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[152]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[154]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in k4992 in ... */ static void C_ccall f_5057(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5057,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5060,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1107: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[152]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[153]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in k4995 in ... */ static void C_ccall f_5060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5060,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5063,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1108: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[149]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[151]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in k4998 in ... */ static void C_ccall f_5063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5063,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5066,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1109: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[149]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[150]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in k5001 in ... */ static void C_ccall f_5066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5066,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5069,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1110: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[146]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[148]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in k5004 in ... */ static void C_ccall f_5069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5069,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5072,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1111: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[146]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[147]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in k5007 in ... */ static void C_ccall f_5072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5072,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5075,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1112: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[143]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[145]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in k5010 in ... */ static void C_ccall f_5075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5075,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5078,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1113: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[143]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[144]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in k5013 in ... */ static void C_ccall f_5078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5078,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5081,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1114: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[140]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[142]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in k5016 in ... */ static void C_ccall f_5081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5081,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5084,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1115: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[140]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[141]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in k5019 in ... */ static void C_ccall f_5084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5084,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5087,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1116: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[137]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[139]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in k5022 in ... */ static void C_ccall f_5087(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5087,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5090,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1117: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[137]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[138]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in k5025 in ... */ static void C_ccall f_5090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5090,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5093,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1118: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[134]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[136]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in k5028 in ... */ static void C_ccall f_5093(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5093,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5096,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1119: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[134]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[135]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in k5031 in ... */ static void C_ccall f_5096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5096,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5099,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1120: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[131]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[133]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in k5034 in ... */ static void C_ccall f_5099(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5099,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5102,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1121: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[131]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[132]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in k5037 in ... */ static void C_ccall f_5102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5102,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5105,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1122: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[128]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[130]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k5040 in ... */ static void C_ccall f_5105(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5105,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5108,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1123: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[128]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[129]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in ... */ static void C_ccall f_5108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5108,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5111,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1124: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[125]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[127]; av2[6]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in k5046 in ... */ static void C_ccall f_5111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5111,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5114,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1125: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[125]; av2[3]=C_fix(2); av2[4]=C_fix(1); av2[5]=lf[126]; av2[6]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in k5049 in ... */ static void C_ccall f_5114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_5114,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5117,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1127: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[123]; av2[3]=C_fix(17); av2[4]=C_fix(1); av2[5]=lf[124]; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in k5052 in ... */ static void C_ccall f_5117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5117,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1129: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[121]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[122]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in k5055 in ... */ static void C_ccall f_5120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5120,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1130: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[119]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[120]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in k5058 in ... */ static void C_ccall f_5123(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5123,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5126,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1131: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[117]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[118]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in k5061 in ... */ static void C_ccall f_5126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5126,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5129,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1132: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[115]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[116]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in k5064 in ... */ static void C_ccall f_5129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5129,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5132,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1133: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[113]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[114]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in k5067 in ... */ static void C_ccall f_5132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5132,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5135,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1134: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[111]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[112]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in k5070 in ... */ static void C_ccall f_5135(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5135,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5138,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1135: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[109]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[110]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in k5073 in ... */ static void C_ccall f_5138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5138,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5141,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1136: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[107]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[108]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in k5076 in ... */ static void C_ccall f_5141(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5141,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5144,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1137: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[105]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[106]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in k5079 in ... */ static void C_ccall f_5144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5144,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5147,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1138: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[103]; av2[3]=C_fix(7); av2[4]=C_fix(1); av2[5]=lf[104]; av2[6]=C_fix(1); av2[7]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in k5082 in ... */ static void C_ccall f_5147(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_5147,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5149,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5254,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:1166: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[102]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in ... */ static void C_ccall f_5149(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5149,6,av);} a=C_alloc(6); t6=C_i_length(t5); if(C_truep(C_i_pairp(t5))){ t7=t5; t8=C_i_car(t7); t9=t8; t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5251,a[2]=t1,a[3]=t4,a[4]=t5,a[5]=t9,tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:1147: chicken.compiler.support#node-class */ t11=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k5169 in k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in ... */ static void C_ccall f_5171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5171,2,av);} a=C_alloc(6); t2=t1; t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5247,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:1149: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5184 in k5245 in k5169 in k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in ... */ static void C_ccall f_5186(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5186,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5189,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t3=((C_word*)t0)[6]; t4=C_u_i_cdr(t3); if(C_truep(C_i_pairp(t4))){ t5=((C_word*)t0)[6]; t6=t2;{ C_word *av2=av; av2[0]=t6; av2[1]=C_i_cadr(t5); f_5189(2,av2);}} else{ /* c-platform.scm:1154: chicken.compiler.support#make-node */ t5=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=lf[62]; av2[3]=C_SCHEME_END_OF_LIST; av2[4]=C_SCHEME_END_OF_LIST; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5187 in k5184 in k5245 in k5169 in k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in ... */ static void C_ccall f_5189(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(41,c,3)))){ C_save_and_reclaim((void *)f_5189,2,av);} a=C_alloc(41); t2=t1; t3=C_a_i_list1(&a,1,((C_word*)t0)[2]); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5204,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=C_a_i_list1(&a,1,C_SCHEME_TRUE); t7=t6; t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5216,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=t7,tmp=(C_word)a,a+=5,tmp); t9=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[5],C_fix(1)); t10=C_a_i_list2(&a,2,lf[61],t9); t11=t10; t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5224,a[2]=t8,a[3]=t11,tmp=(C_word)a,a+=4,tmp); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5226,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t14=((C_word*)t0)[5]; t15=t13; t16=C_SCHEME_UNDEFINED; t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2701,a[2]=t14,a[3]=t17,a[4]=t15,tmp=(C_word)a,a+=5,tmp)); t19=((C_word*)t17)[1]; f_2701(t19,t12,C_fix(0));} /* k5202 in k5187 in k5184 in k5245 in k5169 in k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in ... */ static void C_ccall f_5204(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5204,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:1155: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[48]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5214 in k5187 in k5184 in k5245 in k5169 in k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in ... */ static void C_ccall f_5216(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5216,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:1159: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5222 in k5187 in k5184 in k5245 in k5169 in k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in ... */ static void C_ccall f_5224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5224,2,av);} /* c-platform.scm:1162: chicken.compiler.support#make-node */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[28]; av2[3]=((C_word*)t0)[3]; av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5225 in k5187 in k5184 in k5245 in k5169 in k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in ... */ static void C_ccall f_5226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5226,3,av);} /* c-platform.scm:1165: chicken.compiler.support#varnode */ t3=*((C_word*)lf[49]+1);{ C_word *av2=av; av2[0]=t3; av2[1]=t1; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5245 in k5169 in k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in ... */ static void C_ccall f_5247(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_5247,2,av);} a=C_alloc(7); t2=C_i_car(t1); t3=t2; if(C_truep(C_fixnump(t3))){ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5186,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:1151: scheme#<= */{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t4; av2[2]=C_fix(0); av2[3]=t3; av2[4]=C_fix(32); C_less_or_equal_p(5,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k5249 in rewrite-make-vector in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in ... */ static void C_ccall f_5251(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5251,2,av);} a=C_alloc(6); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5171,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:1148: chicken.base#gensym */ t4=*((C_word*)lf[50]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in k5085 in ... */ static void C_ccall f_5254(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_5254,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5257,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1167: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[101]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in k5088 in ... */ static void C_ccall f_5257(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ C_save_and_reclaim((void *)f_5257,2,av);} a=C_alloc(6); t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5259,tmp=(C_word)a,a+=2,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5381,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:1189: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t3; av2[2]=lf[45]; av2[3]=C_fix(8); av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* rewrite-call/cc in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in ... */ static void C_ccall f_5259(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5259,6,av);} a=C_alloc(6); t6=C_i_length(t5); t7=C_eqp(C_fix(1),t6); if(C_truep(t7)){ t8=t5; t9=C_i_car(t8); t10=t9; t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5373,a[2]=t10,a[3]=t4,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:1174: chicken.compiler.support#node-class */ t12=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t12; av2[1]=t11; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k5276 in k5371 in rewrite-call/cc in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in ... */ static void C_ccall f_5278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_5278,2,av);} a=C_alloc(7); t2=t1; if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5361,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:1176: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a5294 in k5355 in k5359 in k5276 in k5371 in rewrite-call/cc in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in ... */ static void C_ccall f_5295(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_5295,5,av);} a=C_alloc(7); if(C_truep(C_i_nequalp(t3,C_fix(2)))){ t5=(C_truep(t4)?t4:C_i_cadr(((C_word*)t0)[2])); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5350,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],a[6]=t6,tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:1183: chicken.compiler.support#db-get */ t8=*((C_word*)lf[56]+1);{ C_word *av2=av; av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[5]; av2[3]=t6; av2[4]=lf[65]; ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} else{ t5=t1;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k5336 in k5340 in k5344 in k5348 in a5294 in k5355 in k5359 in k5276 in k5371 in rewrite-call/cc in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in ... */ static void C_ccall f_5338(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_5338,2,av);} a=C_alloc(9); t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); /* c-platform.scm:1186: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[4]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[5]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5340 in k5344 in k5348 in a5294 in k5355 in k5359 in k5276 in k5371 in rewrite-call/cc in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in ... */ static void C_ccall f_5342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5342,2,av);} a=C_alloc(9); if(C_truep(C_i_not(t1))){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5338,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:1188: chicken.compiler.support#qnode */ t5=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5344 in k5348 in a5294 in k5355 in k5359 in k5276 in k5371 in rewrite-call/cc in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in ... */ static void C_ccall f_5346(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5346,2,av);} a=C_alloc(5); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:1185: chicken.compiler.support#db-get */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[63]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5348 in a5294 in k5355 in k5359 in k5276 in k5371 in rewrite-call/cc in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in ... */ static void C_ccall f_5350(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_5350,2,av);} a=C_alloc(7); if(C_truep(C_i_not(t1))){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5346,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:1184: chicken.compiler.support#db-get */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=lf[64]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5355 in k5359 in k5276 in k5371 in rewrite-call/cc in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in ... */ static void C_ccall f_5357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_5357,2,av);} a=C_alloc(6); t2=C_i_caddr(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5295,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:1178: ##sys#decompose-lambda-list */ t5=*((C_word*)lf[66]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5359 in k5276 in k5371 in rewrite-call/cc in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in ... */ static void C_ccall f_5361(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5361,2,av);} a=C_alloc(6); t2=C_eqp(lf[47],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5357,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:1177: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5367 in k5371 in rewrite-call/cc in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in ... */ static void C_ccall f_5369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5369,2,av);} t2=C_i_car(t1); /* c-platform.scm:1175: chicken.compiler.support#db-get */ t3=*((C_word*)lf[56]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; av2[3]=t2; av2[4]=lf[57]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5371 in rewrite-call/cc in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in ... */ static void C_ccall f_5373(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_5373,2,av);} a=C_alloc(10); t2=C_eqp(lf[35],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5278,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5369,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:1175: chicken.compiler.support#node-parameters */ t5=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t3=((C_word*)t0)[5];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in k5091 in ... */ static void C_ccall f_5381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ C_save_and_reclaim((void *)f_5381,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5384,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1190: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t2; av2[2]=lf[100]; av2[3]=C_fix(8); av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in k5094 in ... */ static void C_ccall f_5384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_5384,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5388,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5515,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:1218: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[99]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in ... */ static void C_ccall f_5388(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_5388,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5391,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1232: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[97]; av2[3]=C_fix(3); av2[4]=lf[96]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in ... */ static void C_ccall f_5391(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_5391,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5394,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1233: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[95]; av2[3]=C_fix(3); av2[4]=lf[96]; av2[5]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in ... */ static void C_ccall f_5394(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_5394,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5397,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1234: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[94]; av2[3]=C_fix(3); av2[4]=lf[84]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in ... */ static void C_ccall f_5397(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_5397,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5400,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1235: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[93]; av2[3]=C_fix(3); av2[4]=lf[81]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in ... */ static void C_ccall f_5400(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ C_save_and_reclaim((void *)f_5400,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5403,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1236: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 6) { av2=av; } else { av2=C_alloc(6); } av2[0]=t3; av2[1]=t2; av2[2]=lf[91]; av2[3]=C_fix(3); av2[4]=lf[92]; av2[5]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} /* k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in ... */ static void C_ccall f_5403(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_5403,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5406,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5475,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:1238: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[90]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in ... */ static void C_ccall f_5406(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ C_save_and_reclaim((void *)f_5406,2,av);} a=C_alloc(5); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5409,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5435,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:1250: chicken.compiler.optimizer#rewrite */ t4=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[87]; av2[3]=C_fix(8); av2[4]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5407 in k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in ... */ static void C_ccall f_5409(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5409,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5412,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1262: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[82]; av2[3]=C_fix(23); av2[4]=C_fix(0); av2[5]=lf[83]; av2[6]=lf[84]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in ... */ static void C_ccall f_5412(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5412,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5415,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1263: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[79]; av2[3]=C_fix(23); av2[4]=C_fix(1); av2[5]=lf[80]; av2[6]=lf[81]; ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5413 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in ... */ static void C_ccall f_5415(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_5415,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5418,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1264: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[77]; av2[3]=C_fix(23); av2[4]=C_fix(2); av2[5]=lf[78]; av2[6]=C_fix(0); av2[7]=C_fix(0); av2[8]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k5416 in k5413 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in ... */ static void C_ccall f_5418(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){ C_save_and_reclaim((void *)f_5418,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5421,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1265: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 9) { av2=av; } else { av2=C_alloc(9); } av2[0]=t3; av2[1]=t2; av2[2]=lf[75]; av2[3]=C_fix(23); av2[4]=C_fix(2); av2[5]=lf[76]; av2[6]=C_fix(0); av2[7]=C_fix(0); av2[8]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(9,av2);}} /* k5419 in k5416 in k5413 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in ... */ static void C_ccall f_5421(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5421,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5424,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1266: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[73]; av2[3]=C_fix(23); av2[4]=C_fix(2); av2[5]=lf[74]; av2[6]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5422 in k5419 in k5416 in k5413 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in ... */ static void C_ccall f_5424(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5424,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5427,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1267: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 7) { av2=av; } else { av2=C_alloc(7); } av2[0]=t3; av2[1]=t2; av2[2]=lf[71]; av2[3]=C_fix(23); av2[4]=C_fix(2); av2[5]=lf[72]; av2[6]=C_fix(0); ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} /* k5425 in k5422 in k5419 in k5416 in k5413 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in ... */ static void C_ccall f_5427(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5427,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5430,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1269: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[69]; av2[3]=C_fix(7); av2[4]=C_fix(2); av2[5]=lf[70]; av2[6]=C_SCHEME_FALSE; av2[7]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5428 in k5425 in k5422 in k5419 in k5416 in k5413 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in ... */ static void C_ccall f_5430(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_5430,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5433,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1270: chicken.compiler.optimizer#rewrite */ t3=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 8) { av2=av; } else { av2=C_alloc(8); } av2[0]=t3; av2[1]=t2; av2[2]=lf[67]; av2[3]=C_fix(7); av2[4]=C_fix(2); av2[5]=lf[68]; av2[6]=C_SCHEME_FALSE; av2[7]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}} /* k5431 in k5428 in k5425 in k5422 in k5419 in k5416 in k5413 in k5410 in k5407 in k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in ... */ static void C_ccall f_5433(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5433,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5434 in k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in ... */ static void C_ccall f_5435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_5435,6,av);} a=C_alloc(11); t6=C_i_length(t5); t7=C_eqp(C_fix(1),t6); if(C_truep(t7)){ t8=C_a_i_list1(&a,1,C_SCHEME_TRUE); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5457,a[2]=t4,a[3]=t1,a[4]=t9,tmp=(C_word)a,a+=5,tmp); t11=C_eqp(*((C_word*)lf[25]+1),lf[24]); t12=(C_truep(t11)?C_a_i_list1(&a,1,lf[85]):C_a_i_list1(&a,1,lf[86])); /* c-platform.scm:1257: chicken.compiler.support#make-node */ t13=*((C_word*)lf[22]+1);{ C_word *av2=av; av2[0]=t13; av2[1]=t10; av2[2]=lf[27]; av2[3]=t12; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k5455 in a5434 in k5404 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in ... */ static void C_ccall f_5457(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5457,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:1254: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a5474 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in ... */ static void C_ccall f_5475(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_5475,6,av);} a=C_alloc(11); t6=C_i_length(t5); t7=C_eqp(C_fix(2),t6); if(C_truep(t7)){ t8=C_a_i_list1(&a,1,C_SCHEME_TRUE); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5497,a[2]=t4,a[3]=t1,a[4]=t9,tmp=(C_word)a,a+=5,tmp); t11=C_eqp(*((C_word*)lf[25]+1),lf[24]); t12=(C_truep(t11)?C_a_i_list1(&a,1,lf[88]):C_a_i_list1(&a,1,lf[89])); /* c-platform.scm:1245: chicken.compiler.support#make-node */ t13=*((C_word*)lf[22]+1);{ C_word *av2=av; av2[0]=t13; av2[1]=t10; av2[2]=lf[27]; av2[3]=t12; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k5495 in a5474 in k5401 in k5398 in k5395 in k5392 in k5389 in k5386 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in ... */ static void C_ccall f_5497(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5497,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:1242: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a5514 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in k5097 in ... */ static void C_ccall f_5515(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5515,6,av);} a=C_alloc(5); t6=C_i_length(t5); t7=C_eqp(C_fix(1),t6); if(C_truep(t7)){ t8=C_i_car(t5); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5573,a[2]=t4,a[3]=t1,a[4]=t9,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:1224: chicken.compiler.support#node-class */ t11=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t11; av2[1]=t10; av2[2]=t9; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k5538 in k5567 in k5571 in a5514 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in ... */ static void C_ccall f_5540(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_5540,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=C_i_assq(((C_word*)t0)[2],lf[98]); if(C_truep(t2)){ t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5561,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp); t6=C_i_cdr(t2); /* c-platform.scm:1230: chicken.compiler.support#varnode */ t7=*((C_word*)lf[49]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t3=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k5559 in k5538 in k5567 in k5571 in a5514 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in ... */ static void C_ccall f_5561(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5561,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:1228: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5567 in k5571 in a5514 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in ... */ static void C_ccall f_5569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5569,2,av);} a=C_alloc(5); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5540,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:1226: chicken.compiler.support#intrinsic? */ t5=*((C_word*)lf[44]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k5571 in a5514 in k5382 in k5379 in k5255 in k5252 in k5145 in k5142 in k5139 in k5136 in k5133 in k5130 in k5127 in k5124 in k5121 in k5118 in k5115 in k5112 in k5109 in k5106 in k5103 in k5100 in ... */ static void C_ccall f_5573(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5573,2,av);} a=C_alloc(4); t2=C_eqp(lf[35],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5569,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:1225: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a5579 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in ... */ static void C_ccall f_5580(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_5580,6,av);} a=C_alloc(10); t6=C_i_length(t5); t7=C_eqp(C_fix(2),t6); if(C_truep(t7)){ t8=t5; t9=C_i_cadr(t8); t10=t9; t11=C_a_i_list1(&a,1,C_SCHEME_TRUE); t12=t11; t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5695,a[2]=t4,a[3]=t1,a[4]=t12,a[5]=t5,a[6]=t10,tmp=(C_word)a,a+=7,tmp); /* c-platform.scm:1022: chicken.compiler.support#node-class */ t14=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t14; av2[1]=t13; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k5606 in k5693 in a5579 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in ... */ static void C_ccall f_5608(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ C_save_and_reclaim((void *)f_5608,2,av);} a=C_alloc(11); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5611,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=t1; t4=C_a_i_list2(&a,2,((C_word*)t0)[2],t3); /* c-platform.scm:1019: chicken.compiler.support#make-node */ t5=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t3=C_eqp(*((C_word*)lf[25]+1),lf[24]); if(C_truep(t3)){ /* c-platform.scm:1034: chicken.compiler.support#make-node */ t4=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t4; av2[1]=t2; av2[2]=lf[27]; av2[3]=lf[259]; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} else{ t4=C_a_i_list2(&a,2,lf[260],C_fix(5)); /* c-platform.scm:1036: chicken.compiler.support#make-node */ t5=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t2; av2[2]=lf[28]; av2[3]=t4; av2[4]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} /* k5609 in k5606 in k5693 in a5579 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in ... */ static void C_ccall f_5611(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5611,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:1019: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5640 in k5689 in k5693 in a5579 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in ... */ static void C_fcall f_5642(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(33,0,4)))){ C_save_and_reclaim_args((void *)trf_5642,2,t0,t1);} a=C_alloc(33); if(C_truep(t1)){ if(C_truep(C_i_negativep(((C_word*)t0)[2]))){ t2=((C_word*)t0)[3]; t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5664,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); t6=C_s_a_i_negate(&a,1,((C_word*)t0)[2]); /* c-platform.scm:1029: chicken.compiler.support#qnode */ t7=*((C_word*)lf[29]+1);{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t2=((C_word*)t0)[3]; t3=C_i_car(t2); t4=C_a_i_list2(&a,2,t3,((C_word*)t0)[5]); /* c-platform.scm:1030: chicken.compiler.support#make-node */ t5=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=((C_word*)t0)[4]; av2[2]=lf[27]; av2[3]=lf[262]; av2[4]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} else{ t2=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_5608(2,av2);}}} /* k5662 in k5640 in k5689 in k5693 in a5579 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in ... */ static void C_ccall f_5664(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5664,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:1027: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[27]; av2[3]=lf[261]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5685 in k5689 in k5693 in a5579 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in ... */ static void C_ccall f_5687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5687,2,av);} t2=((C_word*)t0)[2]; f_5642(t2,C_i_not(t1));} /* k5689 in k5693 in a5579 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in ... */ static void C_ccall f_5691(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5691,2,av);} a=C_alloc(9); t2=C_i_car(t1); t3=t2; if(C_truep(t3)){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5642,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); if(C_truep(C_fixnump(t3))){ t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5687,a[2]=t4,tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:1025: chicken.compiler.support#big-fixnum? */ t6=*((C_word*)lf[263]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t4; f_5642(t5,C_SCHEME_FALSE);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_5608(2,av2);}}} /* k5693 in a5579 in k4872 in k4869 in k4866 in k4863 in k4860 in k4857 in k4854 in k4851 in k4848 in k4845 in k4842 in k4839 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in ... */ static void C_ccall f_5695(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_5695,2,av);} a=C_alloc(11); t2=C_eqp(lf[31],t1); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5608,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); if(C_truep(t2)){ t4=C_eqp(*((C_word*)lf[25]+1),lf[24]); if(C_truep(t4)){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5691,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:1024: chicken.compiler.support#node-parameters */ t6=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ t5=t3;{ C_word *av2=av; av2[0]=t5; av2[1]=C_SCHEME_FALSE; f_5608(2,av2);}}} else{ t4=t3;{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; f_5608(2,av2);}}} /* a5701 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in k4776 in ... */ static void C_ccall f_5702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_5702,6,av);} a=C_alloc(16); t6=C_i_length(t5); t7=C_eqp(t6,C_fix(3)); if(C_truep(t7)){ t8=C_a_i_list1(&a,1,C_SCHEME_TRUE); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5724,a[2]=t4,a[3]=t1,a[4]=t9,tmp=(C_word)a,a+=5,tmp); t11=t5; t12=C_i_caddr(t11); t13=t12; t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5734,a[2]=t10,a[3]=t5,tmp=(C_word)a,a+=4,tmp); t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5752,a[2]=t14,a[3]=t13,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:988: chicken.compiler.support#node-class */ t16=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t16; av2[1]=t15; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k5722 in a5701 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in ... */ static void C_ccall f_5724(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5724,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:982: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5732 in a5701 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in ... */ static void C_ccall f_5734(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5734,2,av);} if(C_truep(t1)){ /* c-platform.scm:985: chicken.compiler.support#make-node */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[27]; av2[3]=lf[295]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} else{ /* c-platform.scm:985: chicken.compiler.support#make-node */ t2=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[27]; av2[3]=lf[296]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k5746 in k5750 in a5701 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in ... */ static void C_ccall f_5748(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5748,2,av);} t2=C_i_car(t1); /* c-platform.scm:989: chicken.compiler.support#immediate? */ t3=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[2]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k5750 in a5701 in k4836 in k4833 in k4830 in k4827 in k4824 in k4821 in k4818 in k4815 in k4812 in k4809 in k4806 in k4803 in k4800 in k4797 in k4794 in k4791 in k4788 in k4785 in k4782 in k4779 in ... */ static void C_ccall f_5752(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5752,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5748,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:989: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_5734(2,av2);}}} /* a5758 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in ... */ static void C_ccall f_5759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ C_save_and_reclaim((void *)f_5759,6,av);} a=C_alloc(16); t6=C_eqp(lf[24],*((C_word*)lf[25]+1)); if(C_truep(t6)){ t7=C_i_length(t5); t8=C_eqp(t7,C_fix(2)); if(C_truep(t8)){ t9=C_a_i_list1(&a,1,C_SCHEME_TRUE); t10=t9; t11=t5; t12=C_i_cadr(t11); t13=t12; t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5790,a[2]=t4,a[3]=t1,a[4]=t10,tmp=(C_word)a,a+=5,tmp); t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5793,a[2]=t5,a[3]=t14,tmp=(C_word)a,a+=4,tmp); t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5829,a[2]=t15,a[3]=t13,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:870: chicken.compiler.support#node-class */ t17=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t17; av2[1]=t16; av2[2]=t13; ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}} else{ t9=t1;{ C_word *av2=av; av2[0]=t9; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} else{ t7=t1;{ C_word *av2=av; av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k5788 in a5758 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in ... */ static void C_ccall f_5790(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5790,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:866: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5791 in a5758 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in ... */ static void C_fcall f_5793(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_5793,2,t0,t1);} a=C_alloc(4); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_i_car(t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5808,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:874: chicken.compiler.support#qnode */ t6=*((C_word*)lf[29]+1);{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} else{ /* c-platform.scm:875: chicken.compiler.support#make-node */ t2=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; av2[2]=lf[27]; av2[3]=lf[456]; av2[4]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k5806 in k5791 in a5758 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in ... */ static void C_ccall f_5808(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5808,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:872: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[27]; av2[3]=lf[455]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5823 in k5827 in a5758 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in ... */ static void C_ccall f_5825(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5825,2,av);} t2=C_i_car(t1); t3=((C_word*)t0)[2]; f_5793(t3,C_eqp(C_fix(2),t2));} /* k5827 in a5758 in k4578 in k4575 in k4440 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in ... */ static void C_ccall f_5829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5829,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5825,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:871: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_5793(t3,C_SCHEME_FALSE);}} /* a5835 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in ... */ static void C_ccall f_5836(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5836,6,av);} a=C_alloc(5); t6=C_i_nullp(t5); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5846,a[2]=t1,a[3]=t5,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t6)){ t8=t7; f_5846(t8,t6);} else{ t8=C_eqp(*((C_word*)lf[25]+1),lf[24]); t9=t7; f_5846(t9,C_i_not(t8));}} /* k5844 in a5835 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in ... */ static void C_fcall f_5846(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_5846,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_cdr(((C_word*)t0)[3]); if(C_truep(C_i_nullp(t2))){ t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5867,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[26]+1))){ /* c-platform.scm:808: chicken.compiler.support#make-node */ t6=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=lf[27]; av2[3]=lf[458]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* c-platform.scm:808: chicken.compiler.support#make-node */ t6=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=lf[27]; av2[3]=lf[459]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} else{ t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5920,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5922,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t0)[3]; t8=C_u_i_cdr(t7); /* c-platform.scm:814: filter */ f_2293(t5,t6,t8);}}} /* k5865 in k5844 in a5835 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in ... */ static void C_ccall f_5867(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5867,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:805: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k5893 in k5918 in k5844 in a5835 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in ... */ static void C_ccall f_5895(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5895,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:820: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a5896 in k5918 in k5844 in a5835 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in ... */ static void C_ccall f_5897(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5897,4,av);} a=C_alloc(6); t4=(C_truep(*((C_word*)lf[26]+1))?lf[460]:lf[461]); t5=C_a_i_list2(&a,2,t2,t3); /* c-platform.scm:826: chicken.compiler.support#make-node */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=lf[27]; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k5918 in k5844 in a5835 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in ... */ static void C_ccall f_5920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_5920,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_i_length(t2); if(C_truep(C_fixnum_greater_or_equal_p(t3,C_fix(2)))){ t4=C_a_i_list1(&a,1,C_SCHEME_TRUE); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5895,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5897,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:824: chicken.compiler.support#fold-inner */ t8=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a5921 in k5844 in a5835 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in ... */ static void C_ccall f_5922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_5922,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5945,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:816: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k5939 in k5943 in a5921 in k5844 in a5835 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in ... */ static void C_ccall f_5941(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5941,2,av);} t2=C_i_car(t1); t3=C_i_zerop(t2); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k5943 in a5921 in k5844 in a5835 in k4437 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in ... */ static void C_ccall f_5945(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_5945,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5941,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:817: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a5959 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in ... */ static void C_ccall f_5960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_5960,6,av);} a=C_alloc(5); t6=C_i_nullp(t5); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5970,a[2]=t1,a[3]=t5,a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(t6)){ t8=t7; f_5970(t8,t6);} else{ t8=C_eqp(*((C_word*)lf[25]+1),lf[24]); t9=t7; f_5970(t9,C_i_not(t8));}} /* k5968 in a5959 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in ... */ static void C_fcall f_5970(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_5970,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_cdr(((C_word*)t0)[3]); if(C_truep(C_i_nullp(t2))){ t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=t3; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5991,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); if(C_truep(*((C_word*)lf[26]+1))){ /* c-platform.scm:771: chicken.compiler.support#make-node */ t6=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=lf[27]; av2[3]=lf[462]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ /* c-platform.scm:771: chicken.compiler.support#make-node */ t6=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t5; av2[2]=lf[27]; av2[3]=lf[463]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} else{ t3=((C_word*)t0)[3]; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6044,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6046,tmp=(C_word)a,a+=2,tmp); t7=((C_word*)t0)[3]; t8=C_u_i_cdr(t7); /* c-platform.scm:777: filter */ f_2293(t5,t6,t8);}}} /* k5989 in k5968 in a5959 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in ... */ static void C_ccall f_5991(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5991,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:768: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6017 in k6042 in k5968 in a5959 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in ... */ static void C_ccall f_6019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6019,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:783: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a6020 in k6042 in k5968 in a5959 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in ... */ static void C_ccall f_6021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6021,4,av);} a=C_alloc(6); t4=(C_truep(*((C_word*)lf[26]+1))?lf[464]:lf[465]); t5=C_a_i_list2(&a,2,t2,t3); /* c-platform.scm:789: chicken.compiler.support#make-node */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=t1; av2[2]=lf[27]; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} /* k6042 in k5968 in a5959 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in ... */ static void C_ccall f_6044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_6044,2,av);} a=C_alloc(13); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=C_i_length(t2); if(C_truep(C_fixnum_greater_or_equal_p(t3,C_fix(2)))){ t4=C_a_i_list1(&a,1,C_SCHEME_TRUE); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6019,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6021,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:787: chicken.compiler.support#fold-inner */ t8=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t4=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a6045 in k5968 in a5959 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in ... */ static void C_ccall f_6046(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6046,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6069,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:779: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6063 in k6067 in a6045 in k5968 in a5959 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in ... */ static void C_ccall f_6065(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6065,2,av);} t2=C_i_car(t1); t3=C_i_zerop(t2); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6067 in a6045 in k5968 in a5959 in k4434 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in ... */ static void C_ccall f_6069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6069,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6065,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:780: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in k4371 in ... */ static void C_ccall f_6084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6084,6,av);} a=C_alloc(6); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6088,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6202,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:737: filter */ f_2293(t6,t7,t5);} /* k6086 in a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in ... */ static void C_ccall f_6088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ C_save_and_reclaim((void *)f_6088,2,av);} a=C_alloc(10); if(C_truep(C_i_nullp(t1))){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6109,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:742: chicken.compiler.support#qnode */ t5=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_fix(0); ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=C_i_cdr(t1); if(C_truep(C_i_nullp(t2))){ t3=C_a_i_list1(&a,1,C_SCHEME_TRUE); t4=C_i_car(t1); t5=C_a_i_list2(&a,2,((C_word*)t0)[2],t4); /* c-platform.scm:744: chicken.compiler.support#make-node */ t6=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t6; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=t3; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t3=C_eqp(*((C_word*)lf[25]+1),lf[24]); if(C_truep(t3)){ t4=C_a_i_list1(&a,1,C_SCHEME_TRUE); t5=t4; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6151,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t5,tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6153,tmp=(C_word)a,a+=2,tmp); /* c-platform.scm:750: chicken.compiler.support#fold-inner */ t8=*((C_word*)lf[60]+1);{ C_word *av2; if(c >= 4) { av2=av; } else { av2=C_alloc(4); } av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=t1; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} else{ t4=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}} /* k6107 in k6086 in a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in ... */ static void C_ccall f_6109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6109,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:742: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6149 in k6086 in a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in ... */ static void C_ccall f_6151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6151,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:746: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* a6152 in k6086 in a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in ... */ static void C_ccall f_6153(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_6153,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6160,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6196,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:752: chicken.compiler.support#node-class */ t6=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t6; av2[1]=t5; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* k6158 in a6152 in k6086 in a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in ... */ static void C_fcall f_6160(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_6160,2,t0,t1);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6171,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:753: chicken.compiler.support#qnode */ t3=*((C_word*)lf[29]+1);{ C_word av2[3]; av2[0]=t3; av2[1]=t2; av2[2]=C_fix(1); ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} else{ t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]); /* c-platform.scm:754: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[27]; av2[3]=lf[467]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} /* k6169 in k6158 in a6152 in k6086 in a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in ... */ static void C_ccall f_6171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6171,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:753: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[27]; av2[3]=lf[466]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6190 in k6194 in a6152 in k6086 in a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in ... */ static void C_ccall f_6192(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6192,2,av);} t2=C_i_car(t1); t3=((C_word*)t0)[2]; f_6160(t3,C_eqp(C_fix(2),t2));} /* k6194 in a6152 in k6086 in a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in ... */ static void C_ccall f_6196(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6196,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6192,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:752: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_6160(t3,C_SCHEME_FALSE);}} /* a6201 in a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in k4374 in ... */ static void C_ccall f_6202(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6202,3,av);} a=C_alloc(4); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6228,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:739: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6222 in k6226 in a6201 in a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in ... */ static void C_ccall f_6224(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6224,2,av);} t2=C_i_car(t1); t3=C_eqp(C_fix(1),t2); t4=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t4; av2[1]=C_i_not(t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* k6226 in a6201 in a6083 in k4431 in k4428 in k4425 in k4422 in k4419 in k4416 in k4413 in k4410 in k4407 in k4404 in k4401 in k4398 in k4395 in k4392 in k4389 in k4386 in k4383 in k4380 in k4377 in ... */ static void C_ccall f_6228(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6228,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6224,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:740: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_6230(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ C_save_and_reclaim((void *)f_6230,6,av);} a=C_alloc(13); t6=C_i_length(t5); t7=C_eqp(t6,C_fix(2)); if(C_truep(t7)){ t8=t5; t9=C_i_car(t8); t10=t9; t11=t5; t12=C_i_cadr(t11); t13=t12; t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6246,a[2]=t1,a[3]=t4,a[4]=t5,a[5]=t13,a[6]=t10,tmp=(C_word)a,a+=7,tmp); t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6386,a[2]=t4,a[3]=t14,a[4]=t13,a[5]=t10,tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:348: chicken.compiler.support#node-class */ t16=*((C_word*)lf[34]+1);{ C_word *av2=av; av2[0]=t16; av2[1]=t15; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} else{ t8=t1;{ C_word *av2=av; av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} /* k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_6246(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ C_save_and_reclaim((void *)f_6246,2,av);} a=C_alloc(15); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6252,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6273,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6340,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:352: chicken.compiler.support#node-class */ t5=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k6250 in k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_6252(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_6252,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2];{ C_word *av2=av; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6270,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:363: chicken.compiler.support#make-node */ t5=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t5; av2[1]=t4; av2[2]=lf[27]; av2[3]=lf[918]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} /* k6268 in k6250 in k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_6270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6270,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:361: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6271 in k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_fcall f_6273(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ C_save_and_reclaim_args((void *)trf_6273,2,t0,t1);} a=C_alloc(9); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); if(C_truep(t1)){ t3=t2; f_6276(t3,t1);} else{ t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6317,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:355: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word av2[3]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} /* k6274 in k6271 in k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_fcall f_6276(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ C_save_and_reclaim_args((void *)trf_6276,2,t0,t1);} a=C_alloc(8); if(C_truep(t1)){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6291,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:360: chicken.compiler.support#make-node */ t5=*((C_word*)lf[22]+1);{ C_word av2[5]; av2[0]=t5; av2[1]=t4; av2[2]=lf[27]; av2[3]=lf[919]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} else{ t2=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_6252(2,av2);}}} /* k6289 in k6274 in k6271 in k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in ... */ static void C_ccall f_6291(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6291,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:358: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6301 in k6311 in k6315 in k6271 in k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in ... */ static void C_ccall f_6303(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6303,2,av);} t2=((C_word*)t0)[2]; f_6276(t2,(C_truep(t1)?t1:C_i_symbolp(((C_word*)t0)[3])));} /* k6311 in k6315 in k6271 in k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in ... */ static void C_ccall f_6313(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6313,2,av);} a=C_alloc(4); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6303,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:357: chicken.compiler.support#immediate? */ t5=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6315 in k6271 in k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_6317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6317,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6313,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:356: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_6276(t3,C_SCHEME_FALSE);}} /* k6324 in k6334 in k6338 in k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in ... */ static void C_ccall f_6326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6326,2,av);} if(C_truep(t1)){ t2=t1; t3=((C_word*)t0)[2]; f_6273(t3,t2);} else{ t2=((C_word*)t0)[2]; f_6273(t2,C_i_symbolp(((C_word*)t0)[3]));}} /* k6334 in k6338 in k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_6336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ C_save_and_reclaim((void *)f_6336,2,av);} a=C_alloc(4); t2=C_i_car(t1); t3=t2; t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6326,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* c-platform.scm:354: chicken.compiler.support#immediate? */ t5=*((C_word*)lf[32]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} /* k6338 in k6244 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_6340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6340,2,av);} a=C_alloc(3); t2=C_eqp(lf[31],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6336,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* c-platform.scm:353: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[2]; f_6273(t3,C_SCHEME_FALSE);}} /* k6368 in k6376 in k6372 in k6380 in k6384 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in ... */ static void C_ccall f_6370(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_6370,2,av);} a=C_alloc(6); t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); /* c-platform.scm:351: chicken.compiler.support#make-node */ t3=*((C_word*)lf[22]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[23]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k6372 in k6380 in k6384 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 in ... */ static void C_ccall f_6374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6374,2,av);} a=C_alloc(5); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6378,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:350: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k6376 in k6372 in k6380 in k6384 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in ... */ static void C_ccall f_6378(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ C_save_and_reclaim((void *)f_6378,2,av);} a=C_alloc(8); if(C_truep(C_i_equalp(((C_word*)t0)[2],t1))){ t2=C_a_i_list1(&a,1,C_SCHEME_TRUE); t3=t2; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6370,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:351: chicken.compiler.support#qnode */ t5=*((C_word*)lf[29]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=t4; av2[2]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; av2[0]=t2; av2[1]=C_SCHEME_FALSE; f_6246(2,av2);}}} /* k6380 in k6384 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_6382(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ C_save_and_reclaim((void *)f_6382,2,av);} a=C_alloc(5); t2=C_eqp(lf[35],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6374,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); /* c-platform.scm:350: chicken.compiler.support#node-parameters */ t4=*((C_word*)lf[33]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_6246(2,av2);}}} /* k6384 in a6229 in k3234 in k3231 in k3075 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_6386(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6386,2,av);} a=C_alloc(6); t2=C_eqp(lf[35],t1); if(C_truep(t2)){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6382,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); /* c-platform.scm:349: chicken.compiler.support#node-class */ t4=*((C_word*)lf[34]+1);{ C_word *av2; if(c >= 3) { av2=av; } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} else{ t3=((C_word*)t0)[3];{ C_word *av2=av; av2[0]=t3; av2[1]=C_SCHEME_FALSE; f_6246(2,av2);}}} /* k6393 in k3072 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_6395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6395,2,av);} /* c-platform.scm:313: chicken.compiler.optimizer#rewrite */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[921]; av2[3]=C_fix(8); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6397 in k3005 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_6399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6399,2,av);} /* c-platform.scm:312: chicken.compiler.optimizer#rewrite */ t2=*((C_word*)lf[46]+1);{ C_word *av2; if(c >= 5) { av2=av; } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[925]; av2[3]=C_fix(8); av2[4]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* for-each-loop589 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_fcall f_6401(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_6401,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6411,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t4=C_slot(t2,C_fix(0)); t5=*((C_word*)lf[929]+1); /* c-platform.scm:284: g605 */ t6=*((C_word*)lf[929]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t3; av2[2]=t4; av2[3]=lf[930]; av2[4]=C_SCHEME_TRUE; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t3=C_SCHEME_UNDEFINED; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* k6409 in for-each-loop589 in k2996 in k2989 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_6411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6411,2,av);} t2=C_slot(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6401(t3,((C_word*)t0)[4],t2);} /* map-loop551 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_fcall f_6424(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_6424,3,t0,t1,t2);} a=C_alloc(6); if(C_truep(C_i_pairp(t2))){ t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6449,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=C_slot(t2,C_fix(0)); /* c-platform.scm:120: chicken.base#symbol-append */ t5=*((C_word*)lf[935]+1);{ C_word av2[4]; av2[0]=t5; av2[1]=t3; av2[2]=lf[936]; av2[3]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6447 in map-loop551 in k2974 in k2971 in k2968 in k2961 in k1680 in k1677 in k1674 in k1671 in k1668 in k1665 in k1662 */ static void C_ccall f_6449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_6449,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); t5=C_slot(((C_word*)t0)[3],C_fix(1)); t6=((C_word*)((C_word*)t0)[4])[1]; f_6424(t6,((C_word*)t0)[5],t5);} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_c_2dplatform_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("c-platform")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_c_2dplatform_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(9958))){ C_save(t1); C_rereclaim2(9958*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,944); lf[0]=C_h_intern(&lf[0],10, C_text("c-platform")); lf[1]=C_h_intern(&lf[1],28, C_text("chicken.compiler.c-platform#")); lf[4]=C_h_intern(&lf[4],5, C_text("foldr")); lf[5]=C_h_intern(&lf[5],48, C_text("chicken.compiler.c-platform#default-declarations")); lf[6]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001always-bound\376\003\000\000\002\376\001\000\000\024\001##sys#standard-input\376\003\000\000\002\376\001\000\000\025\001##sys#stan" "dard-output\376\003\000\000\002\376\001\000\000\024\001##sys#standard-error\376\003\000\000\002\376\001\000\000\025\001##sys#undefined-value\376\377\016\376\003\000" "\000\002\376\003\000\000\002\376\001\000\000\022\001bound-to-procedure\376\003\000\000\002\376\001\000\000\016\001##sys#for-each\376\003\000\000\002\376\001\000\000\011\001##sys#map\376\003\000\000" "\002\376\001\000\000\013\001##sys#print\376\003\000\000\002\376\001\000\000\014\001##sys#setter\376\003\000\000\002\376\001\000\000\015\001##sys#setslot\376\003\000\000\002\376\001\000\000\022\001##sy" "s#dynamic-wind\376\003\000\000\002\376\001\000\000\026\001##sys#call-with-values\376\003\000\000\002\376\001\000\000\021\001##sys#start-timer\376\003\000\000\002" "\376\001\000\000\020\001##sys#stop-timer\376\003\000\000\002\376\001\000\000\011\001##sys#gcd\376\003\000\000\002\376\001\000\000\011\001##sys#lcm\376\003\000\000\002\376\001\000\000\020\001##sys#s" "tructure\077\376\003\000\000\002\376\001\000\000\012\001##sys#slot\376\003\000\000\002\376\001\000\000\025\001##sys#allocate-vector\376\003\000\000\002\376\001\000\000\022\001##sys#l" "ist->vector\376\003\000\000\002\376\001\000\000\017\001##sys#block-ref\376\003\000\000\002\376\001\000\000\020\001##sys#block-set!\376\003\000\000\002\376\001\000\000\012\001##sys" "#list\376\003\000\000\002\376\001\000\000\012\001##sys#cons\376\003\000\000\002\376\001\000\000\014\001##sys#append\376\003\000\000\002\376\001\000\000\014\001##sys#vector\376\003\000\000\002\376\001\000" "\000\033\001##sys#foreign-char-argument\376\003\000\000\002\376\001\000\000\035\001##sys#foreign-fixnum-argument\376\003\000\000\002\376\001\000\000\035" "\001##sys#foreign-flonum-argument\376\003\000\000\002\376\001\000\000\013\001##sys#error\376\003\000\000\002\376\001\000\000\023\001##sys#peek-c-stri" "ng\376\003\000\000\002\376\001\000\000\033\001##sys#peek-nonnull-c-string\376\003\000\000\002\376\001\000\000\034\001##sys#peek-and-free-c-string\376" "\003\000\000\002\376\001\000\000$\001##sys#peek-and-free-nonnull-c-string\376\003\000\000\002\376\001\000\000\034\001##sys#foreign-block-arg" "ument\376\003\000\000\002\376\001\000\000\035\001##sys#foreign-string-argument\376\003\000\000\002\376\001\000\000\036\001##sys#foreign-pointer-ar" "gument\376\003\000\000\002\376\001\000\000$\001##sys#call-with-current-continuation\376\377\016\376\377\016")); lf[7]=C_h_intern(&lf[7],58, C_text("chicken.compiler.c-platform#default-profiling-declarations")); lf[8]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001##core#declare\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001uses\376\003\000\000\002\376\001\000\000\010\001profiler\376\377\016\376\003\000\000\002\376\003\000" "\000\002\376\001\000\000\022\001bound-to-procedure\376\003\000\000\002\376\001\000\000\023\001##sys#profile-entry\376\003\000\000\002\376\001\000\000\022\001##sys#profile" "-exit\376\377\016\376\377\016\376\377\016")); lf[9]=C_h_intern(&lf[9],41, C_text("chicken.compiler.c-platform#default-units")); lf[10]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001library\376\003\000\000\002\376\001\000\000\004\001eval\376\377\016")); lf[11]=C_h_intern(&lf[11],44, C_text("chicken.compiler.c-platform#words-per-flonum")); lf[12]=C_h_intern(&lf[12],47, C_text("chicken.compiler.c-platform#target-include-file")); lf[13]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011chicken.h")); lf[14]=C_h_intern(&lf[14],50, C_text("chicken.compiler.c-platform#valid-compiler-options")); lf[15]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001-help\376\003\000\000\002\376\001\000\000\001\001h\376\003\000\000\002\376\001\000\000\004\001help\376\003\000\000\002\376\001\000\000\007\001version\376\003\000\000\002\376\001\000\000\007\001verbose\376" "\003\000\000\002\376\001\000\000\014\001explicit-use\376\003\000\000\002\376\001\000\000\010\001no-trace\376\003\000\000\002\376\001\000\000\013\001no-warnings\376\003\000\000\002\376\001\000\000\006\001unsafe" "\376\003\000\000\002\376\001\000\000\005\001block\376\003\000\000\002\376\001\000\000\014\001check-syntax\376\003\000\000\002\376\001\000\000\011\001to-stdout\376\003\000\000\002\376\001\000\000\025\001no-usual-i" "ntegrations\376\003\000\000\002\376\001\000\000\020\001case-insensitive\376\003\000\000\002\376\001\000\000\016\001no-lambda-info\376\003\000\000\002\376\001\000\000\007\001profil" "e\376\003\000\000\002\376\001\000\000\006\001inline\376\003\000\000\002\376\001\000\000\024\001keep-shadowed-macros\376\003\000\000\002\376\001\000\000\021\001ignore-repository\376\003\000" "\000\002\376\001\000\000\021\001fixnum-arithmetic\376\003\000\000\002\376\001\000\000\022\001disable-interrupts\376\003\000\000\002\376\001\000\000\026\001optimize-leaf-r" "outines\376\003\000\000\002\376\001\000\000\016\001compile-syntax\376\003\000\000\002\376\001\000\000\014\001tag-pointers\376\003\000\000\002\376\001\000\000\022\001accumulate-pro" "file\376\003\000\000\002\376\001\000\000\035\001disable-stack-overflow-checks\376\003\000\000\002\376\001\000\000\003\001raw\376\003\000\000\002\376\001\000\000\012\001specialize\376" "\003\000\000\002\376\001\000\000\036\001emit-external-prototypes-first\376\003\000\000\002\376\001\000\000\007\001release\376\003\000\000\002\376\001\000\000\005\001local\376\003\000\000\002\376" "\001\000\000\015\001inline-global\376\003\000\000\002\376\001\000\000\014\001analyze-only\376\003\000\000\002\376\001\000\000\007\001dynamic\376\003\000\000\002\376\001\000\000\006\001static\376\003\000\000" "\002\376\001\000\000\016\001no-argc-checks\376\003\000\000\002\376\001\000\000\023\001no-procedure-checks\376\003\000\000\002\376\001\000\000\027\001no-parentheses-syn" "onyms\376\003\000\000\002\376\001\000\000)\001no-procedure-checks-for-toplevel-bindings\376\003\000\000\002\376\001\000\000\017\001no-bound-che" "cks\376\003\000\000\002\376\001\000\000&\001no-procedure-checks-for-usual-bindings\376\003\000\000\002\376\001\000\000\022\001no-compiler-synta" "x\376\003\000\000\002\376\001\000\000\027\001no-parentheses-synonyms\376\003\000\000\002\376\001\000\000\020\001no-symbol-escape\376\003\000\000\002\376\001\000\000\013\001r5rs-sy" "ntax\376\003\000\000\002\376\001\000\000\031\001emit-all-import-libraries\376\003\000\000\002\376\001\000\000\014\001strict-types\376\003\000\000\002\376\001\000\000\012\001cluste" "ring\376\003\000\000\002\376\001\000\000\004\001lfa2\376\003\000\000\002\376\001\000\000\012\001debug-info\376\003\000\000\002\376\001\000\000\033\001regenerate-import-libraries\376\003" "\000\000\002\376\001\000\000\012\001setup-mode\376\003\000\000\002\376\001\000\000\026\001no-module-registration\376\377\016")); lf[16]=C_h_intern(&lf[16],64, C_text("chicken.compiler.c-platform#valid-compiler-options-with-argument")); lf[17]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001debug\376\003\000\000\002\376\001\000\000\016\001emit-link-file\376\003\000\000\002\376\001\000\000\013\001output-file\376\003\000\000\002\376\001\000\000\014\001includ" "e-path\376\003\000\000\002\376\001\000\000\011\001heap-size\376\003\000\000\002\376\001\000\000\012\001stack-size\376\003\000\000\002\376\001\000\000\004\001unit\376\003\000\000\002\376\001\000\000\004\001uses\376\003\000" "\000\002\376\001\000\000\006\001module\376\003\000\000\002\376\001\000\000\015\001keyword-style\376\003\000\000\002\376\001\000\000\021\001require-extension\376\003\000\000\002\376\001\000\000\014\001inl" "ine-limit\376\003\000\000\002\376\001\000\000\014\001profile-name\376\003\000\000\002\376\001\000\000\007\001prelude\376\003\000\000\002\376\001\000\000\010\001postlude\376\003\000\000\002\376\001\000\000\010\001" "prologue\376\003\000\000\002\376\001\000\000\010\001epilogue\376\003\000\000\002\376\001\000\000\007\001nursery\376\003\000\000\002\376\001\000\000\006\001extend\376\003\000\000\002\376\001\000\000\007\001feature" "\376\003\000\000\002\376\001\000\000\012\001no-feature\376\003\000\000\002\376\001\000\000\020\001emit-inline-file\376\003\000\000\002\376\001\000\000\023\001consult-inline-file\376\003" "\000\000\002\376\001\000\000\017\001emit-types-file\376\003\000\000\002\376\001\000\000\022\001consult-types-file\376\003\000\000\002\376\001\000\000\023\001emit-import-libr" "ary\376\377\016")); lf[18]=C_h_intern(&lf[18],47, C_text("chicken.compiler.core#default-standard-bindings")); lf[19]=C_h_intern(&lf[19],47, C_text("chicken.compiler.core#default-extended-bindings")); lf[20]=C_h_intern(&lf[20],39, C_text("chicken.compiler.core#internal-bindings")); lf[21]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001##sys#slot\376\003\000\000\002\376\001\000\000\015\001##sys#setslot\376\003\000\000\002\376\001\000\000\017\001##sys#block-ref\376\003\000\000\002\376\001\000\000" "\020\001##sys#block-set!\376\003\000\000\002\376\001\000\000\011\001##sys#/-2\376\003\000\000\002\376\001\000\000$\001##sys#call-with-current-continu" "ation\376\003\000\000\002\376\001\000\000\012\001##sys#size\376\003\000\000\002\376\001\000\000\012\001##sys#byte\376\003\000\000\002\376\001\000\000\015\001##sys#setbyte\376\003\000\000\002\376\001\000\000" "\016\001##sys#pointer\077\376\003\000\000\002\376\001\000\000\030\001##sys#generic-structure\077\376\003\000\000\002\376\001\000\000\020\001##sys#structure\077\376\003" "\000\000\002\376\001\000\000\025\001##sys#check-structure\376\003\000\000\002\376\001\000\000\021\001##sys#check-exact\376\003\000\000\002\376\001\000\000\022\001##sys#check" "-number\376\003\000\000\002\376\001\000\000\020\001##sys#check-list\376\003\000\000\002\376\001\000\000\020\001##sys#check-pair\376\003\000\000\002\376\001\000\000\022\001##sys#ch" "eck-string\376\003\000\000\002\376\001\000\000\022\001##sys#check-symbol\376\003\000\000\002\376\001\000\000\023\001##sys#check-boolean\376\003\000\000\002\376\001\000\000\024\001" "##sys#check-locative\376\003\000\000\002\376\001\000\000\020\001##sys#check-port\376\003\000\000\002\376\001\000\000\026\001##sys#check-input-port" "\376\003\000\000\002\376\001\000\000\027\001##sys#check-output-port\376\003\000\000\002\376\001\000\000\025\001##sys#check-open-port\376\003\000\000\002\376\001\000\000\020\001##s" "ys#check-char\376\003\000\000\002\376\001\000\000\022\001##sys#check-vector\376\003\000\000\002\376\001\000\000\027\001##sys#check-byte-vector\376\003\000\000" "\002\376\001\000\000\012\001##sys#list\376\003\000\000\002\376\001\000\000\012\001##sys#cons\376\003\000\000\002\376\001\000\000\026\001##sys#call-with-values\376\003\000\000\002\376\001\000\000" "\035\001##sys#flonum-in-fixnum-range\077\376\003\000\000\002\376\001\000\000\020\001##sys#immediate\077\376\003\000\000\002\376\001\000\000\024\001##sys#conte" "xt-switch\376\003\000\000\002\376\001\000\000\024\001##sys#make-structure\376\003\000\000\002\376\001\000\000\013\001##sys#apply\376\003\000\000\002\376\001\000\000\022\001##sys#a" "pply-values\376\003\000\000\002\376\001\000\000\047\001chicken.continuation#continuation-graft\376\003\000\000\002\376\001\000\000\021\001##sys#by" "tevector\077\376\003\000\000\002\376\001\000\000\021\001##sys#make-vector\376\003\000\000\002\376\001\000\000\014\001##sys#setter\376\003\000\000\002\376\001\000\000\011\001##sys#car" "\376\003\000\000\002\376\001\000\000\011\001##sys#cdr\376\003\000\000\002\376\001\000\000\013\001##sys#pair\077\376\003\000\000\002\376\001\000\000\011\001##sys#eq\077\376\003\000\000\002\376\001\000\000\013\001##sys#l" "ist\077\376\003\000\000\002\376\001\000\000\015\001##sys#vector\077\376\003\000\000\002\376\001\000\000\012\001##sys#eqv\077\376\003\000\000\002\376\001\000\000\021\001##sys#get-keyword\376\003\000" "\000\002\376\001\000\000\033\001##sys#foreign-char-argument\376\003\000\000\002\376\001\000\000\035\001##sys#foreign-fixnum-argument\376\003\000\000\002" "\376\001\000\000\035\001##sys#foreign-flonum-argument\376\003\000\000\002\376\001\000\000\034\001##sys#foreign-block-argument\376\003\000\000\002\376" "\001\000\000%\001##sys#foreign-struct-wrapper-argument\376\003\000\000\002\376\001\000\000\035\001##sys#foreign-string-argume" "nt\376\003\000\000\002\376\001\000\000\036\001##sys#foreign-pointer-argument\376\003\000\000\002\376\001\000\000\012\001##sys#void\376\003\000\000\002\376\001\000\000%\001##sys" "#foreign-ranged-integer-argument\376\003\000\000\002\376\001\000\000.\001##sys#foreign-unsigned-ranged-integer" "-argument\376\003\000\000\002\376\001\000\000\021\001##sys#peek-fixnum\376\003\000\000\002\376\001\000\000\016\001##sys#setislot\376\003\000\000\002\376\001\000\000\022\001##sys#p" "oke-integer\376\003\000\000\002\376\001\000\000\020\001##sys#permanent\077\376\003\000\000\002\376\001\000\000\014\001##sys#values\376\003\000\000\002\376\001\000\000\021\001##sys#po" "ke-double\376\003\000\000\002\376\001\000\000\023\001##sys#intern-symbol\376\003\000\000\002\376\001\000\000\023\001##sys#null-pointer\077\376\003\000\000\002\376\001\000\000\017\001" "##sys#peek-byte\376\003\000\000\002\376\001\000\000\022\001##sys#file-exists\077\376\003\000\000\002\376\001\000\000\025\001##sys#substring-index\376\003\000\000" "\002\376\001\000\000\030\001##sys#substring-index-ci\376\003\000\000\002\376\001\000\000\011\001##sys#lcm\376\003\000\000\002\376\001\000\000\011\001##sys#gcd\376\377\016")); lf[22]=C_h_intern(&lf[22],34, C_text("chicken.compiler.support#make-node")); lf[23]=C_h_intern(&lf[23],11, C_text("##core#call")); lf[24]=C_h_intern(&lf[24],6, C_text("fixnum")); lf[25]=C_h_intern(&lf[25],36, C_text("chicken.compiler.support#number-type")); lf[26]=C_h_intern(&lf[26],31, C_text("chicken.compiler.support#unsafe")); lf[27]=C_h_intern(&lf[27],13, C_text("##core#inline")); lf[28]=C_h_intern(&lf[28],22, C_text("##core#inline_allocate")); lf[29]=C_h_intern(&lf[29],30, C_text("chicken.compiler.support#qnode")); lf[30]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\005C_eqp\376\377\016")); lf[31]=C_h_intern(&lf[31],5, C_text("quote")); lf[32]=C_h_intern(&lf[32],35, C_text("chicken.compiler.support#immediate\077")); lf[33]=C_h_intern(&lf[33],40, C_text("chicken.compiler.support#node-parameters")); lf[34]=C_h_intern(&lf[34],35, C_text("chicken.compiler.support#node-class")); lf[35]=C_h_intern(&lf[35],15, C_text("##core#variable")); lf[36]=C_h_intern(&lf[36],3, C_text("map")); lf[37]=C_h_intern(&lf[37],13, C_text("scheme#append")); lf[38]=C_h_intern(&lf[38],20, C_text("chicken.base#butlast")); lf[39]=C_h_intern(&lf[39],11, C_text("##core#proc")); lf[40]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\007C_apply\376\003\000\000\002\376\377\006\001\376\377\016")); lf[41]=C_h_intern(&lf[41],6, C_text("values")); lf[42]=C_h_intern(&lf[42],12, C_text("##sys#values")); lf[43]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\016C_apply_values\376\003\000\000\002\376\377\006\001\376\377\016")); lf[44]=C_h_intern(&lf[44],35, C_text("chicken.compiler.support#intrinsic\077")); lf[45]=C_h_intern(&lf[45],37, C_text("scheme#call-with-current-continuation")); lf[46]=C_h_intern(&lf[46],34, C_text("chicken.compiler.optimizer#rewrite")); lf[47]=C_h_intern(&lf[47],13, C_text("##core#lambda")); lf[48]=C_h_intern(&lf[48],3, C_text("let")); lf[49]=C_h_intern(&lf[49],32, C_text("chicken.compiler.support#varnode")); lf[50]=C_h_intern(&lf[50],19, C_text("chicken.base#gensym")); lf[51]=C_h_intern(&lf[51],2, C_text("f_")); lf[52]=C_h_intern(&lf[52],34, C_text("chicken.compiler.support#debugging")); lf[53]=C_h_intern(&lf[53],1, C_text("o")); lf[54]=C_decode_literal(C_heaptop,C_text("\376B\000\000)removing single-valued `call-with-values\047")); lf[55]=C_h_intern(&lf[55],1, C_text("r")); lf[56]=C_h_intern(&lf[56],31, C_text("chicken.compiler.support#db-get")); lf[57]=C_h_intern(&lf[57],5, C_text("value")); lf[58]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\024C_fixnum_shift_right\376\377\016")); lf[59]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\017C_fixnum_divide\376\377\016")); lf[60]=C_h_intern(&lf[60],35, C_text("chicken.compiler.support#fold-inner")); lf[61]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_a_i_vector")); lf[62]=C_h_intern(&lf[62],16, C_text("##core#undefined")); lf[63]=C_h_intern(&lf[63],16, C_text("inline-transient")); lf[64]=C_h_intern(&lf[64],8, C_text("assigned")); lf[65]=C_h_intern(&lf[65],10, C_text("references")); lf[66]=C_h_intern(&lf[66],27, C_text("##sys#decompose-lambda-list")); lf[67]=C_h_intern(&lf[67],17, C_text("##sys#get-keyword")); lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_i_get_keyword")); lf[69]=C_h_intern(&lf[69],27, C_text("chicken.keyword#get-keyword")); lf[70]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_i_get_keyword")); lf[71]=C_h_intern(&lf[71],33, C_text("chicken.string#substring-index-ci")); lf[72]=C_h_intern(&lf[72],24, C_text("##sys#substring-index-ci")); lf[73]=C_h_intern(&lf[73],30, C_text("chicken.string#substring-index")); lf[74]=C_h_intern(&lf[74],21, C_text("##sys#substring-index")); lf[75]=C_h_intern(&lf[75],29, C_text("chicken.string#substring-ci=\077")); lf[76]=C_h_intern(&lf[76],20, C_text("##sys#substring-ci=\077")); lf[77]=C_h_intern(&lf[77],26, C_text("chicken.string#substring=\077")); lf[78]=C_h_intern(&lf[78],17, C_text("##sys#substring=\077")); lf[79]=C_h_intern(&lf[79],17, C_text("scheme#write-char")); lf[80]=C_h_intern(&lf[80],21, C_text("##sys#write-char/port")); lf[81]=C_h_intern(&lf[81],21, C_text("##sys#standard-output")); lf[82]=C_h_intern(&lf[82],16, C_text("scheme#read-char")); lf[83]=C_h_intern(&lf[83],20, C_text("##sys#read-char/port")); lf[84]=C_h_intern(&lf[84],20, C_text("##sys#standard-input")); lf[85]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_fixnum_length")); lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_integer_length")); lf[87]=C_h_intern(&lf[87],30, C_text("chicken.bitwise#integer-length")); lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_u_i_bit_to_bool")); lf[89]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_i_bit_to_bool")); lf[90]=C_h_intern(&lf[90],28, C_text("chicken.bitwise#bit->boolean")); lf[91]=C_h_intern(&lf[91],31, C_text("chicken.base#current-error-port")); lf[92]=C_h_intern(&lf[92],20, C_text("##sys#standard-error")); lf[93]=C_h_intern(&lf[93],26, C_text("scheme#current-output-port")); lf[94]=C_h_intern(&lf[94],25, C_text("scheme#current-input-port")); lf[95]=C_h_intern(&lf[95],10, C_text("##sys#void")); lf[96]=C_h_intern(&lf[96],21, C_text("##sys#undefined-value")); lf[97]=C_h_intern(&lf[97],17, C_text("chicken.base#void")); lf[98]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001scheme#car\376\001\000\000\017\001scheme#set-car!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001scheme#cdr\376\001\000\000\017\001s" "cheme#set-cdr!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001scheme#string-ref\376\001\000\000\022\001scheme#string-set!\376\003\000\000\002\376\003\000\000" "\002\376\001\000\000\021\001scheme#vector-ref\376\001\000\000\022\001scheme#vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001srfi-4#u8vector-" "ref\376\001\000\000\024\001srfi-4#u8vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001srfi-4#s8vector-ref\376\001\000\000\024\001srfi-4#s8v" "ector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001srfi-4#u16vector-ref\376\001\000\000\025\001srfi-4#u16vector-set!\376\003\000\000\002\376\003" "\000\000\002\376\001\000\000\024\001srfi-4#s16vector-ref\376\001\000\000\025\001srfi-4#s16vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001srfi-4#u" "32vector-ref\376\001\000\000\025\001srfi-4#u32vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001srfi-4#s32vector-ref\376\001\000\000\025" "\001srfi-4#s32vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001srfi-4#u64vector-ref\376\001\000\000\025\001srfi-4#u64vector" "-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001srfi-4#s64vector-ref\376\001\000\000\025\001srfi-4#s64vector-set!\376\003\000\000\002\376\003\000\000\002\376\001" "\000\000\024\001srfi-4#f32vector-ref\376\001\000\000\025\001srfi-4#f32vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001srfi-4#f64vec" "tor-ref\376\001\000\000\025\001srfi-4#f64vector-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\035\001chicken.locative#locative-ref\376" "\001\000\000\036\001chicken.locative#locative-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\035\001chicken.memory#pointer-u8-ref" "\376\001\000\000\036\001chicken.memory#pointer-u8-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\035\001chicken.memory#pointer-s8-re" "f\376\001\000\000\036\001chicken.memory#pointer-s8-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\036\001chicken.memory#pointer-u16-" "ref\376\001\000\000\037\001chicken.memory#pointer-u16-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\036\001chicken.memory#pointer-s" "16-ref\376\001\000\000\037\001chicken.memory#pointer-s16-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\036\001chicken.memory#pointe" "r-u32-ref\376\001\000\000\037\001chicken.memory#pointer-u32-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\036\001chicken.memory#poi" "nter-s32-ref\376\001\000\000\037\001chicken.memory#pointer-s32-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\036\001chicken.memory#" "pointer-f32-ref\376\001\000\000\037\001chicken.memory#pointer-f32-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\036\001chicken.memo" "ry#pointer-f64-ref\376\001\000\000\037\001chicken.memory#pointer-f64-set!\376\003\000\000\002\376\003\000\000\002\376\001\000\000\047\001chicken.m" "emory.representation#block-ref\376\001\000\000(\001chicken.memory.representation#block-set!\376\377\016")); lf[99]=C_h_intern(&lf[99],12, C_text("##sys#setter")); lf[100]=C_h_intern(&lf[100],20, C_text("chicken.base#call/cc")); lf[101]=C_h_intern(&lf[101],17, C_text("##sys#make-vector")); lf[102]=C_h_intern(&lf[102],18, C_text("scheme#make-vector")); lf[103]=C_h_intern(&lf[103],29, C_text("srfi-4#f64vector->blob/shared")); lf[104]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[105]=C_h_intern(&lf[105],29, C_text("srfi-4#f32vector->blob/shared")); lf[106]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[107]=C_h_intern(&lf[107],29, C_text("srfi-4#s64vector->blob/shared")); lf[108]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[109]=C_h_intern(&lf[109],29, C_text("srfi-4#u64vector->blob/shared")); lf[110]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[111]=C_h_intern(&lf[111],29, C_text("srfi-4#s32vector->blob/shared")); lf[112]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[113]=C_h_intern(&lf[113],29, C_text("srfi-4#u32vector->blob/shared")); lf[114]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[115]=C_h_intern(&lf[115],29, C_text("srfi-4#s16vector->blob/shared")); lf[116]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[117]=C_h_intern(&lf[117],29, C_text("srfi-4#u16vector->blob/shared")); lf[118]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[119]=C_h_intern(&lf[119],28, C_text("srfi-4#s8vector->blob/shared")); lf[120]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[121]=C_h_intern(&lf[121],28, C_text("srfi-4#u8vector->blob/shared")); lf[122]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[123]=C_h_intern(&lf[123],18, C_text("chicken.base#atom\077")); lf[124]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_not_pair_p")); lf[125]=C_h_intern(&lf[125],23, C_text("srfi-4#f64vector-length")); lf[126]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_i_f64vector_length")); lf[127]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_f64vector_length")); lf[128]=C_h_intern(&lf[128],23, C_text("srfi-4#f32vector-length")); lf[129]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_i_f32vector_length")); lf[130]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_f32vector_length")); lf[131]=C_h_intern(&lf[131],23, C_text("srfi-4#s64vector-length")); lf[132]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_i_s64vector_length")); lf[133]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_s64vector_length")); lf[134]=C_h_intern(&lf[134],23, C_text("srfi-4#u64vector-length")); lf[135]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_i_u64vector_length")); lf[136]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_u64vector_length")); lf[137]=C_h_intern(&lf[137],23, C_text("srfi-4#s32vector-length")); lf[138]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_i_s32vector_length")); lf[139]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_s32vector_length")); lf[140]=C_h_intern(&lf[140],23, C_text("srfi-4#u32vector-length")); lf[141]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_i_u32vector_length")); lf[142]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_u32vector_length")); lf[143]=C_h_intern(&lf[143],23, C_text("srfi-4#s16vector-length")); lf[144]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_i_s16vector_length")); lf[145]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_s16vector_length")); lf[146]=C_h_intern(&lf[146],23, C_text("srfi-4#u16vector-length")); lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_i_u16vector_length")); lf[148]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_u16vector_length")); lf[149]=C_h_intern(&lf[149],22, C_text("srfi-4#s8vector-length")); lf[150]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_i_s8vector_length")); lf[151]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_u_i_s8vector_length")); lf[152]=C_h_intern(&lf[152],22, C_text("srfi-4#u8vector-length")); lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_i_u8vector_length")); lf[154]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_u_i_u8vector_length")); lf[155]=C_h_intern(&lf[155],21, C_text("srfi-4#f64vector-set!")); lf[156]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_f64vector_set")); lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_f64vector_set")); lf[158]=C_h_intern(&lf[158],21, C_text("srfi-4#f32vector-set!")); lf[159]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_f32vector_set")); lf[160]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_f32vector_set")); lf[161]=C_h_intern(&lf[161],21, C_text("srfi-4#s64vector-set!")); lf[162]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_s64vector_set")); lf[163]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_s64vector_set")); lf[164]=C_h_intern(&lf[164],21, C_text("srfi-4#u64vector-set!")); lf[165]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_u64vector_set")); lf[166]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_u64vector_set")); lf[167]=C_h_intern(&lf[167],21, C_text("srfi-4#s32vector-set!")); lf[168]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_s32vector_set")); lf[169]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_s32vector_set")); lf[170]=C_h_intern(&lf[170],21, C_text("srfi-4#u32vector-set!")); lf[171]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_u32vector_set")); lf[172]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_u32vector_set")); lf[173]=C_h_intern(&lf[173],21, C_text("srfi-4#s16vector-set!")); lf[174]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_s16vector_set")); lf[175]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_s16vector_set")); lf[176]=C_h_intern(&lf[176],21, C_text("srfi-4#u16vector-set!")); lf[177]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_u16vector_set")); lf[178]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_u16vector_set")); lf[179]=C_h_intern(&lf[179],20, C_text("srfi-4#s8vector-set!")); lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_s8vector_set")); lf[181]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_u_i_s8vector_set")); lf[182]=C_h_intern(&lf[182],20, C_text("srfi-4#u8vector-set!")); lf[183]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_u8vector_set")); lf[184]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_u_i_u8vector_set")); lf[185]=C_h_intern(&lf[185],20, C_text("srfi-4#f64vector-ref")); lf[186]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_a_i_f64vector_ref")); lf[187]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_a_u_i_f64vector_ref")); lf[188]=C_h_intern(&lf[188],20, C_text("srfi-4#f32vector-ref")); lf[189]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_a_i_f32vector_ref")); lf[190]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_a_u_i_f32vector_ref")); lf[191]=C_h_intern(&lf[191],20, C_text("srfi-4#s32vector-ref")); lf[192]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_a_i_s32vector_ref")); lf[193]=C_h_intern(&lf[193],20, C_text("srfi-4#u32vector-ref")); lf[194]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_a_i_u32vector_ref")); lf[195]=C_h_intern(&lf[195],20, C_text("srfi-4#s16vector-ref")); lf[196]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_s16vector_ref")); lf[197]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_s16vector_ref")); lf[198]=C_h_intern(&lf[198],20, C_text("srfi-4#u16vector-ref")); lf[199]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_u16vector_ref")); lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_u16vector_ref")); lf[201]=C_h_intern(&lf[201],19, C_text("srfi-4#s8vector-ref")); lf[202]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_s8vector_ref")); lf[203]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_u_i_s8vector_ref")); lf[204]=C_h_intern(&lf[204],19, C_text("srfi-4#u8vector-ref")); lf[205]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_u8vector_ref")); lf[206]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_u_i_u8vector_ref")); lf[207]=C_h_intern(&lf[207],22, C_text("chicken.blob#blob-size")); lf[208]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_block_size")); lf[209]=C_h_intern(&lf[209],46, C_text("##sys#foreign-unsigned-ranged-integer-argument")); lf[210]=C_decode_literal(C_heaptop,C_text("\376B\000\000-C_i_foreign_unsigned_ranged_integer_argumentp")); lf[211]=C_h_intern(&lf[211],37, C_text("##sys#foreign-ranged-integer-argument")); lf[212]=C_decode_literal(C_heaptop,C_text("\376B\000\000$C_i_foreign_ranged_integer_argumentp")); lf[213]=C_h_intern(&lf[213],30, C_text("##sys#foreign-pointer-argument")); lf[214]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035C_i_foreign_pointer_argumentp")); lf[215]=C_h_intern(&lf[215],29, C_text("##sys#foreign-string-argument")); lf[216]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034C_i_foreign_string_argumentp")); lf[217]=C_h_intern(&lf[217],37, C_text("##sys#foreign-struct-wrapper-argument")); lf[218]=C_decode_literal(C_heaptop,C_text("\376B\000\000$C_i_foreign_struct_wrapper_argumentp")); lf[219]=C_h_intern(&lf[219],28, C_text("##sys#foreign-block-argument")); lf[220]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_i_foreign_block_argumentp")); lf[221]=C_h_intern(&lf[221],29, C_text("##sys#foreign-flonum-argument")); lf[222]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034C_i_foreign_flonum_argumentp")); lf[223]=C_h_intern(&lf[223],27, C_text("##sys#foreign-char-argument")); lf[224]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_i_foreign_char_argumentp")); lf[225]=C_h_intern(&lf[225],29, C_text("##sys#foreign-fixnum-argument")); lf[226]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034C_i_foreign_fixnum_argumentp")); lf[227]=C_h_intern(&lf[227],30, C_text("chicken.locative#locative-set!")); lf[228]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_locative_set")); lf[229]=C_h_intern(&lf[229],33, C_text("chicken.locative#locative->object")); lf[230]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_i_locative_to_object")); lf[231]=C_h_intern(&lf[231],16, C_text("##sys#immediate\077")); lf[232]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_immp")); lf[233]=C_h_intern(&lf[233],19, C_text("##sys#null-pointer\077")); lf[234]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_null_pointerp")); lf[235]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_null_pointerp")); lf[236]=C_h_intern(&lf[236],16, C_text("##sys#permanent\077")); lf[237]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_permanentp")); lf[238]=C_h_intern(&lf[238],18, C_text("scheme#string-ci=\077")); lf[239]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_i_string_ci_equal_p")); lf[240]=C_h_intern(&lf[240],15, C_text("scheme#string=\077")); lf[241]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_string_equal_p")); lf[242]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_u_i_string_equal_p")); lf[243]=C_h_intern(&lf[243],17, C_text("##sys#poke-double")); lf[244]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_poke_double")); lf[245]=C_h_intern(&lf[245],18, C_text("##sys#poke-integer")); lf[246]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_poke_integer")); lf[247]=C_h_intern(&lf[247],14, C_text("##sys#setislot")); lf[248]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_set_i_slot")); lf[249]=C_h_intern(&lf[249],30, C_text("chicken.memory#pointer->object")); lf[250]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_pointer_to_object")); lf[251]=C_h_intern(&lf[251],15, C_text("##sys#peek-byte")); lf[252]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_peek_byte")); lf[253]=C_h_intern(&lf[253],17, C_text("##sys#peek-fixnum")); lf[254]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_peek_fixnum")); lf[255]=C_h_intern(&lf[255],13, C_text("##sys#setbyte")); lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_setbyte")); lf[257]=C_h_intern(&lf[257],10, C_text("##sys#byte")); lf[258]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_subbyte")); lf[259]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\033C_i_fixnum_arithmetic_shift\376\377\016")); lf[260]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_s_a_i_arithmetic_shift")); lf[261]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\024C_fixnum_shift_right\376\377\016")); lf[262]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\023C_fixnum_shift_left\376\377\016")); lf[263]=C_h_intern(&lf[263],36, C_text("chicken.compiler.support#big-fixnum\077")); lf[264]=C_h_intern(&lf[264],32, C_text("chicken.bitwise#arithmetic-shift")); lf[265]=C_h_intern(&lf[265],20, C_text("chicken.fixnum#fxrem")); lf[266]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034C_i_fixnum_remainder_checked")); lf[267]=C_h_intern(&lf[267],20, C_text("chicken.fixnum#fxmod")); lf[268]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_fixnum_modulo")); lf[269]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_u_fixnum_modulo")); lf[270]=C_h_intern(&lf[270],18, C_text("chicken.fixnum#fx/")); lf[271]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_fixnum_divide")); lf[272]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_u_fixnum_divide")); lf[273]=C_h_intern(&lf[273],20, C_text("chicken.fixnum#fxior")); lf[274]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_fixnum_or")); lf[275]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_u_fixnum_or")); lf[276]=C_h_intern(&lf[276],20, C_text("chicken.fixnum#fxand")); lf[277]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fixnum_and")); lf[278]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_u_fixnum_and")); lf[279]=C_h_intern(&lf[279],20, C_text("chicken.fixnum#fxxor")); lf[280]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fixnum_xor")); lf[281]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fixnum_xor")); lf[282]=C_h_intern(&lf[282],20, C_text("chicken.fixnum#fxneg")); lf[283]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_fixnum_negate")); lf[284]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_u_fixnum_negate")); lf[285]=C_h_intern(&lf[285],20, C_text("chicken.fixnum#fxshr")); lf[286]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_fixnum_shift_right")); lf[287]=C_h_intern(&lf[287],20, C_text("chicken.fixnum#fxshl")); lf[288]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_fixnum_shift_left")); lf[289]=C_h_intern(&lf[289],18, C_text("chicken.fixnum#fx-")); lf[290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_fixnum_difference")); lf[291]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_u_fixnum_difference")); lf[292]=C_h_intern(&lf[292],18, C_text("chicken.fixnum#fx+")); lf[293]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_fixnum_plus")); lf[294]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_u_fixnum_plus")); lf[295]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\016C_i_set_i_slot\376\377\016")); lf[296]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\013C_i_setslot\376\377\016")); lf[297]=C_h_intern(&lf[297],13, C_text("##sys#setslot")); lf[298]=C_h_intern(&lf[298],30, C_text("chicken.memory#pointer-f64-ref")); lf[299]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_a_u_i_pointer_f64_ref")); lf[300]=C_h_intern(&lf[300],30, C_text("chicken.memory#pointer-f32-ref")); lf[301]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_a_u_i_pointer_f32_ref")); lf[302]=C_h_intern(&lf[302],30, C_text("chicken.memory#pointer-s32-ref")); lf[303]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_a_u_i_pointer_s32_ref")); lf[304]=C_h_intern(&lf[304],30, C_text("chicken.memory#pointer-u32-ref")); lf[305]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_a_u_i_pointer_u32_ref")); lf[306]=C_h_intern(&lf[306],31, C_text("chicken.memory#pointer-f64-set!")); lf[307]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_u_i_pointer_f64_set")); lf[308]=C_h_intern(&lf[308],31, C_text("chicken.memory#pointer-f32-set!")); lf[309]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_u_i_pointer_f32_set")); lf[310]=C_h_intern(&lf[310],31, C_text("chicken.memory#pointer-s32-set!")); lf[311]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_u_i_pointer_s32_set")); lf[312]=C_h_intern(&lf[312],31, C_text("chicken.memory#pointer-u32-set!")); lf[313]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_u_i_pointer_u32_set")); lf[314]=C_h_intern(&lf[314],31, C_text("chicken.memory#pointer-s16-set!")); lf[315]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_u_i_pointer_s16_set")); lf[316]=C_h_intern(&lf[316],31, C_text("chicken.memory#pointer-u16-set!")); lf[317]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_u_i_pointer_u16_set")); lf[318]=C_h_intern(&lf[318],30, C_text("chicken.memory#pointer-s8-set!")); lf[319]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_u_i_pointer_s8_set")); lf[320]=C_h_intern(&lf[320],30, C_text("chicken.memory#pointer-u8-set!")); lf[321]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_u_i_pointer_u8_set")); lf[322]=C_h_intern(&lf[322],30, C_text("chicken.memory#pointer-s16-ref")); lf[323]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_u_i_pointer_s16_ref")); lf[324]=C_h_intern(&lf[324],30, C_text("chicken.memory#pointer-u16-ref")); lf[325]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_u_i_pointer_u16_ref")); lf[326]=C_h_intern(&lf[326],29, C_text("chicken.memory#pointer-s8-ref")); lf[327]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_u_i_pointer_s8_ref")); lf[328]=C_h_intern(&lf[328],29, C_text("chicken.memory#pointer-u8-ref")); lf[329]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_u_i_pointer_u8_ref")); lf[330]=C_h_intern(&lf[330],29, C_text("chicken.locative#locative-ref")); lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_a_i_locative_ref")); lf[332]=C_h_intern(&lf[332],23, C_text("chicken.memory#pointer+")); lf[333]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_a_u_i_pointer_inc")); lf[334]=C_h_intern(&lf[334],31, C_text("chicken.memory#pointer->address")); lf[335]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_a_i_pointer_to_address")); lf[336]=C_h_intern(&lf[336],31, C_text("chicken.memory#address->pointer")); lf[337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_a_i_address_to_pointer")); lf[338]=C_h_intern(&lf[338],13, C_text("scheme#string")); lf[339]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_a_i_string")); lf[340]=C_h_intern(&lf[340],20, C_text("##sys#make-structure")); lf[341]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_a_i_record")); lf[342]=C_h_intern(&lf[342],12, C_text("##sys#vector")); lf[343]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_a_i_vector")); lf[344]=C_h_intern(&lf[344],13, C_text("scheme#vector")); lf[345]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_a_i_vector")); lf[346]=C_h_intern(&lf[346],10, C_text("##sys#list")); lf[347]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_a_i_list")); lf[348]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\001\000\000\000\000\376\003\000\000\002\376\377\001\000\000\000\003\376\377\016")); lf[349]=C_h_intern(&lf[349],11, C_text("scheme#list")); lf[350]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_a_i_list")); lf[351]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\001\000\000\000\000\376\003\000\000\002\376\377\001\000\000\000\003\376\377\016")); lf[352]=C_h_intern(&lf[352],10, C_text("##sys#cons")); lf[353]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_a_i_cons")); lf[354]=C_h_intern(&lf[354],11, C_text("scheme#cons")); lf[355]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_a_i_cons")); lf[356]=C_h_intern(&lf[356],22, C_text("chicken.flonum#fpround")); lf[357]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_a_i_flonum_floor")); lf[358]=C_h_intern(&lf[358],24, C_text("chicken.flonum#fpceiling")); lf[359]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_a_i_flonum_ceiling")); lf[360]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_a_i_flonum_round")); lf[361]=C_h_intern(&lf[361],25, C_text("chicken.flonum#fptruncate")); lf[362]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_a_i_flonum_truncate")); lf[363]=C_h_intern(&lf[363],20, C_text("chicken.flonum#fpabs")); lf[364]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_a_i_flonum_abs")); lf[365]=C_h_intern(&lf[365],21, C_text("chicken.flonum#fpsqrt")); lf[366]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_a_i_flonum_sqrt")); lf[367]=C_h_intern(&lf[367],20, C_text("chicken.flonum#fplog")); lf[368]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_a_i_flonum_log")); lf[369]=C_h_intern(&lf[369],21, C_text("chicken.flonum#fpexpt")); lf[370]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_a_i_flonum_expt")); lf[371]=C_h_intern(&lf[371],20, C_text("chicken.flonum#fpexp")); lf[372]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_a_i_flonum_exp")); lf[373]=C_h_intern(&lf[373],22, C_text("chicken.flonum#fpatan2")); lf[374]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_a_i_flonum_atan2")); lf[375]=C_h_intern(&lf[375],21, C_text("chicken.flonum#fpatan")); lf[376]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_a_i_flonum_atan")); lf[377]=C_h_intern(&lf[377],21, C_text("chicken.flonum#fpacos")); lf[378]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_a_i_flonum_acos")); lf[379]=C_h_intern(&lf[379],21, C_text("chicken.flonum#fpasin")); lf[380]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_a_i_flonum_asin")); lf[381]=C_h_intern(&lf[381],20, C_text("chicken.flonum#fptan")); lf[382]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_a_i_flonum_tan")); lf[383]=C_h_intern(&lf[383],20, C_text("chicken.flonum#fpcos")); lf[384]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_a_i_flonum_cos")); lf[385]=C_h_intern(&lf[385],20, C_text("chicken.flonum#fpsin")); lf[386]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_a_i_flonum_sin")); lf[387]=C_h_intern(&lf[387],15, C_text("scheme#truncate")); lf[388]=C_h_intern(&lf[388],6, C_text("flonum")); lf[389]=C_h_intern(&lf[389],14, C_text("scheme#ceiling")); lf[390]=C_h_intern(&lf[390],12, C_text("scheme#floor")); lf[391]=C_h_intern(&lf[391],22, C_text("chicken.flonum#fpfloor")); lf[392]=C_h_intern(&lf[392],22, C_text("chicken.fixnum#fxeven\077")); lf[393]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_i_fixnumevenp")); lf[394]=C_h_intern(&lf[394],21, C_text("chicken.fixnum#fxodd\077")); lf[395]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_fixnumoddp")); lf[396]=C_h_intern(&lf[396],11, C_text("scheme#odd\077")); lf[397]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_oddp")); lf[398]=C_h_intern(&lf[398],12, C_text("scheme#even\077")); lf[399]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_evenp")); lf[400]=C_h_intern(&lf[400],16, C_text("scheme#remainder")); lf[401]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_fixnum_modulo")); lf[402]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_fixnum_modulo")); lf[403]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_fixnumoddp")); lf[404]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_fixnumoddp")); lf[405]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_i_fixnumevenp")); lf[406]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_i_fixnumevenp")); lf[407]=C_h_intern(&lf[407],17, C_text("##sys#make-symbol")); lf[408]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_make_symbol")); lf[409]=C_h_intern(&lf[409],19, C_text("##sys#intern-symbol")); lf[410]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_string_to_symbol")); lf[411]=C_h_intern(&lf[411],20, C_text("##sys#context-switch")); lf[412]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_context_switch")); lf[413]=C_h_intern(&lf[413],31, C_text("chicken.platform#return-to-host")); lf[414]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_return_to_host")); lf[415]=C_h_intern(&lf[415],25, C_text("##sys#ensure-heap-reserve")); lf[416]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_ensure_heap_reserve")); lf[417]=C_h_intern(&lf[417],21, C_text("##sys#allocate-vector")); lf[418]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_allocate_vector")); lf[419]=C_h_intern(&lf[419],36, C_text("##sys#call-with-current-continuation")); lf[420]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_call_cc")); lf[421]=C_h_intern(&lf[421],21, C_text("scheme#number->string")); lf[422]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\001\000\000\000\001\376\377\001\000\000\000\002")); lf[423]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_number_to_string")); lf[424]=C_h_intern(&lf[424],8, C_text("scheme#-")); lf[425]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\001\000\000\000\001\376\377\006\000")); lf[426]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_minus")); lf[427]=C_h_intern(&lf[427],8, C_text("scheme#+")); lf[428]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_plus")); lf[429]=C_h_intern(&lf[429],8, C_text("scheme#\052")); lf[430]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_times")); lf[431]=C_h_intern(&lf[431],9, C_text("scheme#<=")); lf[432]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_less_or_equal_p")); lf[433]=C_h_intern(&lf[433],9, C_text("scheme#>=")); lf[434]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_greater_or_equal_p")); lf[435]=C_h_intern(&lf[435],8, C_text("scheme#<")); lf[436]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_lessp")); lf[437]=C_h_intern(&lf[437],8, C_text("scheme#>")); lf[438]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_greaterp")); lf[439]=C_h_intern(&lf[439],8, C_text("scheme#=")); lf[440]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_nequalp")); lf[441]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_less_or_equalp")); lf[442]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_i_greater_or_equalp")); lf[443]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_lessp")); lf[444]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_i_greaterp")); lf[445]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_nequalp")); lf[446]=C_h_intern(&lf[446],13, C_text("scheme#modulo")); lf[447]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_s_a_i_modulo")); lf[448]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_s_a_i_remainder")); lf[449]=C_h_intern(&lf[449],15, C_text("scheme#quotient")); lf[450]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_s_a_i_quotient")); lf[451]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_s_a_i_times")); lf[452]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_s_a_i_minus")); lf[453]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_s_a_i_plus")); lf[454]=C_h_intern(&lf[454],8, C_text("scheme#/")); lf[455]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\024C_fixnum_shift_right\376\377\016")); lf[456]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\017C_fixnum_divide\376\377\016")); lf[457]=C_h_intern(&lf[457],9, C_text("##sys#/-2")); lf[458]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\021C_u_fixnum_negate\376\377\016")); lf[459]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\017C_fixnum_negate\376\377\016")); lf[460]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\025C_u_fixnum_difference\376\377\016")); lf[461]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\023C_fixnum_difference\376\377\016")); lf[462]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\017C_u_fixnum_plus\376\377\016")); lf[463]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\015C_fixnum_plus\376\377\016")); lf[464]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\017C_u_fixnum_plus\376\377\016")); lf[465]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\015C_fixnum_plus\376\377\016")); lf[466]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\023C_fixnum_shift_left\376\377\016")); lf[467]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\016C_fixnum_times\376\377\016")); lf[468]=C_h_intern(&lf[468],10, C_text("scheme#lcm")); lf[469]=C_h_intern(&lf[469],10, C_text("scheme#gcd")); lf[470]=C_h_intern(&lf[470],21, C_text("chicken.base#identity")); lf[471]=C_h_intern(&lf[471],9, C_text("##sys#lcm")); lf[472]=C_h_intern(&lf[472],9, C_text("##sys#gcd")); lf[473]=C_h_intern(&lf[473],18, C_text("scheme#vector-set!")); lf[474]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_vector_set")); lf[475]=C_h_intern(&lf[475],19, C_text("scheme#list->string")); lf[476]=C_h_intern(&lf[476],18, C_text("##sys#list->string")); lf[477]=C_h_intern(&lf[477],19, C_text("scheme#string->list")); lf[478]=C_h_intern(&lf[478],18, C_text("##sys#string->list")); lf[479]=C_h_intern(&lf[479],20, C_text("scheme#string-append")); lf[480]=C_h_intern(&lf[480],19, C_text("##sys#string-append")); lf[481]=C_h_intern(&lf[481],16, C_text("scheme#substring")); lf[482]=C_h_intern(&lf[482],15, C_text("##sys#substring")); lf[483]=C_h_intern(&lf[483],50, C_text("chicken.memory.representation#make-record-instance")); lf[484]=C_h_intern(&lf[484],16, C_text("##sys#block-set!")); lf[485]=C_h_intern(&lf[485],40, C_text("chicken.memory.representation#block-set!")); lf[486]=C_h_intern(&lf[486],10, C_text("scheme#map")); lf[487]=C_h_intern(&lf[487],9, C_text("##sys#map")); lf[488]=C_h_intern(&lf[488],15, C_text("scheme#for-each")); lf[489]=C_h_intern(&lf[489],14, C_text("##sys#for-each")); lf[490]=C_h_intern(&lf[490],6, C_text("setter")); lf[491]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_fixnum_less_or_equal_p")); lf[492]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_flonum_less_or_equal_p")); lf[493]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_fixnum_greater_or_equal_p")); lf[494]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_flonum_greater_or_equal_p")); lf[495]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_fixnum_lessp")); lf[496]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_flonum_lessp")); lf[497]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_fixnum_greaterp")); lf[498]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_flonum_greaterp")); lf[499]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_eqp")); lf[500]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_i_equalp")); lf[501]=C_h_intern(&lf[501],16, C_text("##sys#check-char")); lf[502]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_check_char_2")); lf[503]=C_h_intern(&lf[503],21, C_text("##sys#check-structure")); lf[504]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_i_check_structure_2")); lf[505]=C_h_intern(&lf[505],18, C_text("##sys#check-vector")); lf[506]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_check_vector_2")); lf[507]=C_h_intern(&lf[507],23, C_text("##sys#check-byte-vector")); lf[508]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_i_check_bytevector_2")); lf[509]=C_h_intern(&lf[509],18, C_text("##sys#check-string")); lf[510]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_check_string_2")); lf[511]=C_h_intern(&lf[511],18, C_text("##sys#check-symbol")); lf[512]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_check_symbol_2")); lf[513]=C_h_intern(&lf[513],20, C_text("##sys#check-locative")); lf[514]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_i_check_locative_2")); lf[515]=C_h_intern(&lf[515],19, C_text("##sys#check-boolean")); lf[516]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_i_check_boolean_2")); lf[517]=C_h_intern(&lf[517],16, C_text("##sys#check-pair")); lf[518]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_check_pair_2")); lf[519]=C_h_intern(&lf[519],16, C_text("##sys#check-list")); lf[520]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_check_list_2")); lf[521]=C_h_intern(&lf[521],18, C_text("##sys#check-number")); lf[522]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_check_number_2")); lf[523]=C_h_intern(&lf[523],18, C_text("##sys#check-fixnum")); lf[524]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_check_fixnum_2")); lf[525]=C_h_intern(&lf[525],17, C_text("##sys#check-exact")); lf[526]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_check_exact_2")); lf[527]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_check_char")); lf[528]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_i_check_structure")); lf[529]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_check_vector")); lf[530]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_i_check_bytevector")); lf[531]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_check_string")); lf[532]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_check_symbol")); lf[533]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_check_locative")); lf[534]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_check_boolean")); lf[535]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_check_pair")); lf[536]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_check_list")); lf[537]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_check_number")); lf[538]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_i_check_fixnum")); lf[539]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_i_check_exact")); lf[540]=C_h_intern(&lf[540],20, C_text("scheme#string-length")); lf[541]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_string_length")); lf[542]=C_h_intern(&lf[542],19, C_text("##sys#vector-length")); lf[543]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_vector_length")); lf[544]=C_h_intern(&lf[544],20, C_text("scheme#vector-length")); lf[545]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_vector_length")); lf[546]=C_h_intern(&lf[546],20, C_text("scheme#integer->char")); lf[547]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_make_character")); lf[548]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_unfix")); lf[549]=C_h_intern(&lf[549],20, C_text("scheme#char->integer")); lf[550]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_fix")); lf[551]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_character_code")); lf[552]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_fix")); lf[553]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_header_size")); lf[554]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_fix")); lf[555]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_header_size")); lf[556]=C_h_intern(&lf[556],16, C_text("scheme#negative\077")); lf[557]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_i_negativep")); lf[558]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_flonum_lessp")); lf[559]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_fixnum_lessp")); lf[560]=C_h_intern(&lf[560],16, C_text("scheme#positive\077")); lf[561]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_i_positivep")); lf[562]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_flonum_greaterp")); lf[563]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_fixnum_greaterp")); lf[564]=C_h_intern(&lf[564],12, C_text("scheme#zero\077")); lf[565]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_zerop")); lf[566]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_u_i_zerop")); lf[567]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_eqp")); lf[568]=C_h_intern(&lf[568],20, C_text("chicken.flonum#fpgcd")); lf[569]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_a_i_flonum_gcd")); lf[570]=C_h_intern(&lf[570],20, C_text("chicken.flonum#fpneg")); lf[571]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_a_i_flonum_negate")); lf[572]=C_h_intern(&lf[572],19, C_text("chicken.flonum#fp/\077")); lf[573]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035C_a_i_flonum_quotient_checked")); lf[574]=C_h_intern(&lf[574],18, C_text("chicken.flonum#fp/")); lf[575]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_a_i_flonum_quotient")); lf[576]=C_h_intern(&lf[576],18, C_text("chicken.flonum#fp\052")); lf[577]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_a_i_flonum_times")); lf[578]=C_h_intern(&lf[578],18, C_text("chicken.flonum#fp-")); lf[579]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_a_i_flonum_difference")); lf[580]=C_h_intern(&lf[580],18, C_text("chicken.flonum#fp+")); lf[581]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_a_i_flonum_plus")); lf[582]=C_h_intern(&lf[582],27, C_text("chicken.bitwise#bitwise-not")); lf[583]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_s_a_i_bitwise_not")); lf[584]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fixnum_not")); lf[585]=C_h_intern(&lf[585],27, C_text("chicken.bitwise#bitwise-ior")); lf[586]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_fixnum_or")); lf[587]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_u_fixnum_or")); lf[588]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_s_a_i_bitwise_ior")); lf[589]=C_h_intern(&lf[589],27, C_text("chicken.bitwise#bitwise-xor")); lf[590]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fixnum_xor")); lf[591]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fixnum_xor")); lf[592]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_s_a_i_bitwise_xor")); lf[593]=C_h_intern(&lf[593],27, C_text("chicken.bitwise#bitwise-and")); lf[594]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fixnum_and")); lf[595]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_u_fixnum_and")); lf[596]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_s_a_i_bitwise_and")); lf[597]=C_h_intern(&lf[597],10, C_text("scheme#abs")); lf[598]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fixnum_abs")); lf[599]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fixnum_abs")); lf[600]=C_h_intern(&lf[600],15, C_text("scheme#set-cdr!")); lf[601]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_set_cdr")); lf[602]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_u_i_set_cdr")); lf[603]=C_h_intern(&lf[603],15, C_text("scheme#set-car!")); lf[604]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_set_car")); lf[605]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_u_i_set_car")); lf[606]=C_h_intern(&lf[606],13, C_text("scheme#member")); lf[607]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_i_member")); lf[608]=C_h_intern(&lf[608],12, C_text("scheme#assoc")); lf[609]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_assoc")); lf[610]=C_h_intern(&lf[610],11, C_text("scheme#memq")); lf[611]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_memq")); lf[612]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_u_i_memq")); lf[613]=C_h_intern(&lf[613],11, C_text("scheme#assq")); lf[614]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_assq")); lf[615]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_u_i_assq")); lf[616]=C_h_intern(&lf[616],11, C_text("scheme#memv")); lf[617]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_memv")); lf[618]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_memq")); lf[619]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_u_i_memq")); lf[620]=C_h_intern(&lf[620],11, C_text("scheme#assv")); lf[621]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_assv")); lf[622]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_assq")); lf[623]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_u_i_assq")); lf[624]=C_h_intern(&lf[624],45, C_text("chicken.memory.representation#number-of-slots")); lf[625]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_block_size")); lf[626]=C_h_intern(&lf[626],39, C_text("chicken.memory.representation#block-ref")); lf[627]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[628]=C_h_intern(&lf[628],17, C_text("##sys#bytevector\077")); lf[629]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_bytevectorp")); lf[630]=C_h_intern(&lf[630],16, C_text("##sys#structure\077")); lf[631]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_structurep")); lf[632]=C_h_intern(&lf[632],16, C_text("scheme#list-tail")); lf[633]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_i_list_tail")); lf[634]=C_h_intern(&lf[634],20, C_text("scheme#char-downcase")); lf[635]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_char_downcase")); lf[636]=C_h_intern(&lf[636],18, C_text("scheme#char-upcase")); lf[637]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_u_i_char_upcase")); lf[638]=C_h_intern(&lf[638],23, C_text("scheme#char-lower-case\077")); lf[639]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_char_lower_casep")); lf[640]=C_h_intern(&lf[640],23, C_text("scheme#char-upper-case\077")); lf[641]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_char_upper_casep")); lf[642]=C_h_intern(&lf[642],23, C_text("scheme#char-whitespace\077")); lf[643]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_char_whitespacep")); lf[644]=C_h_intern(&lf[644],23, C_text("scheme#char-alphabetic\077")); lf[645]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_u_i_char_alphabeticp")); lf[646]=C_h_intern(&lf[646],20, C_text("scheme#char-numeric\077")); lf[647]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_char_numericp")); lf[648]=C_h_intern(&lf[648],20, C_text("chicken.fixnum#fxlen")); lf[649]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_fixnum_length")); lf[650]=C_h_intern(&lf[650],20, C_text("chicken.fixnum#fxgcd")); lf[651]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_fixnum_gcd")); lf[652]=C_h_intern(&lf[652],20, C_text("chicken.flonum#fpmin")); lf[653]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_flonum_min")); lf[654]=C_h_intern(&lf[654],20, C_text("chicken.flonum#fpmax")); lf[655]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_flonum_max")); lf[656]=C_h_intern(&lf[656],20, C_text("chicken.fixnum#fxmin")); lf[657]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_fixnum_min")); lf[658]=C_h_intern(&lf[658],20, C_text("chicken.fixnum#fxmax")); lf[659]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_fixnum_max")); lf[660]=C_h_intern(&lf[660],19, C_text("chicken.flonum#fp<=")); lf[661]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_flonum_less_or_equal_p")); lf[662]=C_h_intern(&lf[662],19, C_text("chicken.flonum#fp>=")); lf[663]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_flonum_greater_or_equal_p")); lf[664]=C_h_intern(&lf[664],18, C_text("chicken.flonum#fp<")); lf[665]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_flonum_lessp")); lf[666]=C_h_intern(&lf[666],18, C_text("chicken.flonum#fp>")); lf[667]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_flonum_greaterp")); lf[668]=C_h_intern(&lf[668],18, C_text("chicken.flonum#fp=")); lf[669]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_flonum_equalp")); lf[670]=C_h_intern(&lf[670],19, C_text("chicken.fixnum#fx<=")); lf[671]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_fixnum_less_or_equal_p")); lf[672]=C_h_intern(&lf[672],19, C_text("chicken.fixnum#fx>=")); lf[673]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_fixnum_greater_or_equal_p")); lf[674]=C_h_intern(&lf[674],18, C_text("chicken.fixnum#fx<")); lf[675]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_fixnum_lessp")); lf[676]=C_h_intern(&lf[676],18, C_text("chicken.fixnum#fx>")); lf[677]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_fixnum_greaterp")); lf[678]=C_h_intern(&lf[678],18, C_text("chicken.fixnum#fx=")); lf[679]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_eqp")); lf[680]=C_h_intern(&lf[680],19, C_text("chicken.fixnum#fx/\077")); lf[681]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_i_o_fixnum_quotient")); lf[682]=C_h_intern(&lf[682],19, C_text("chicken.fixnum#fx\052\077")); lf[683]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_o_fixnum_times")); lf[684]=C_h_intern(&lf[684],19, C_text("chicken.fixnum#fx-\077")); lf[685]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_i_o_fixnum_difference")); lf[686]=C_h_intern(&lf[686],19, C_text("chicken.fixnum#fx+\077")); lf[687]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_o_fixnum_plus")); lf[688]=C_h_intern(&lf[688],18, C_text("chicken.fixnum#fx\052")); lf[689]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_fixnum_times")); lf[690]=C_h_intern(&lf[690],20, C_text("chicken.fixnum#fxnot")); lf[691]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fixnum_not")); lf[692]=C_h_intern(&lf[692],10, C_text("##sys#size")); lf[693]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_block_size")); lf[694]=C_h_intern(&lf[694],15, C_text("##sys#block-ref")); lf[695]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_i_block_ref")); lf[696]=C_h_intern(&lf[696],10, C_text("##sys#slot")); lf[697]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[698]=C_h_intern(&lf[698],14, C_text("scheme#char<=\077")); lf[699]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_i_char_less_or_equal_p")); lf[700]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_u_i_char_less_or_equal_p")); lf[701]=C_h_intern(&lf[701],14, C_text("scheme#char>=\077")); lf[702]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_i_char_greater_or_equal_p")); lf[703]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035C_u_i_char_greater_or_equal_p")); lf[704]=C_h_intern(&lf[704],13, C_text("scheme#char<\077")); lf[705]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_char_lessp")); lf[706]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_u_i_char_lessp")); lf[707]=C_h_intern(&lf[707],13, C_text("scheme#char>\077")); lf[708]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_char_greaterp")); lf[709]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_i_char_greaterp")); lf[710]=C_h_intern(&lf[710],13, C_text("scheme#char=\077")); lf[711]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_i_char_equalp")); lf[712]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_u_i_char_equalp")); lf[713]=C_h_intern(&lf[713],17, C_text("scheme#vector-ref")); lf[714]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_vector_ref")); lf[715]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[716]=C_h_intern(&lf[716],18, C_text("scheme#string-set!")); lf[717]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_string_set")); lf[718]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_setsubchar")); lf[719]=C_h_intern(&lf[719],17, C_text("scheme#string-ref")); lf[720]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_string_ref")); lf[721]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_subchar")); lf[722]=C_h_intern(&lf[722],18, C_text("scheme#eof-object\077")); lf[723]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_eofp")); lf[724]=C_h_intern(&lf[724],12, C_text("scheme#list\077")); lf[725]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_listp")); lf[726]=C_h_intern(&lf[726],15, C_text("scheme#inexact\077")); lf[727]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_u_i_inexactp")); lf[728]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_i_inexactp")); lf[729]=C_h_intern(&lf[729],13, C_text("scheme#exact\077")); lf[730]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_exactp")); lf[731]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_i_exactp")); lf[732]=C_h_intern(&lf[732],24, C_text("##sys#generic-structure\077")); lf[733]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_structurep")); lf[734]=C_h_intern(&lf[734],8, C_text("pointer\077")); lf[735]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_i_safe_pointerp")); lf[736]=C_h_intern(&lf[736],14, C_text("##sys#pointer\077")); lf[737]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_anypointerp")); lf[738]=C_h_intern(&lf[738],25, C_text("chicken.flonum#fpinteger\077")); lf[739]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_u_i_fpintegerp")); lf[740]=C_h_intern(&lf[740],22, C_text("chicken.base#infinite\077")); lf[741]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_i_infinitep")); lf[742]=C_h_intern(&lf[742],20, C_text("chicken.base#finite\077")); lf[743]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_finitep")); lf[744]=C_h_intern(&lf[744],17, C_text("chicken.base#nan\077")); lf[745]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_nanp")); lf[746]=C_h_intern(&lf[746],20, C_text("chicken.base#ratnum\077")); lf[747]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_ratnump")); lf[748]=C_h_intern(&lf[748],21, C_text("chicken.base#cplxnum\077")); lf[749]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_i_cplxnump")); lf[750]=C_h_intern(&lf[750],20, C_text("chicken.base#bignum\077")); lf[751]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_bignump")); lf[752]=C_h_intern(&lf[752],20, C_text("chicken.base#fixnum\077")); lf[753]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_fixnump")); lf[754]=C_h_intern(&lf[754],20, C_text("chicken.base#flonum\077")); lf[755]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_flonump")); lf[756]=C_h_intern(&lf[756],27, C_text("chicken.base#exact-integer\077")); lf[757]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_exact_integerp")); lf[758]=C_h_intern(&lf[758],15, C_text("scheme#integer\077")); lf[759]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_i_integerp")); lf[760]=C_h_intern(&lf[760],12, C_text("scheme#real\077")); lf[761]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_realp")); lf[762]=C_h_intern(&lf[762],16, C_text("scheme#rational\077")); lf[763]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_i_rationalp")); lf[764]=C_h_intern(&lf[764],15, C_text("scheme#complex\077")); lf[765]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_numberp")); lf[766]=C_h_intern(&lf[766],14, C_text("scheme#number\077")); lf[767]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_numberp")); lf[768]=C_h_intern(&lf[768],15, C_text("scheme#boolean\077")); lf[769]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_booleanp")); lf[770]=C_h_intern(&lf[770],18, C_text("chicken.base#port\077")); lf[771]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_portp")); lf[772]=C_h_intern(&lf[772],17, C_text("scheme#procedure\077")); lf[773]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_i_closurep")); lf[774]=C_h_intern(&lf[774],11, C_text("##sys#pair\077")); lf[775]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_pairp")); lf[776]=C_h_intern(&lf[776],12, C_text("scheme#pair\077")); lf[777]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_pairp")); lf[778]=C_h_intern(&lf[778],17, C_text("srfi-4#f64vector\077")); lf[779]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_f64vectorp")); lf[780]=C_h_intern(&lf[780],17, C_text("srfi-4#f32vector\077")); lf[781]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_f32vectorp")); lf[782]=C_h_intern(&lf[782],17, C_text("srfi-4#s64vector\077")); lf[783]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_s64vectorp")); lf[784]=C_h_intern(&lf[784],17, C_text("srfi-4#u64vector\077")); lf[785]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_u64vectorp")); lf[786]=C_h_intern(&lf[786],17, C_text("srfi-4#s32vector\077")); lf[787]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_s32vectorp")); lf[788]=C_h_intern(&lf[788],17, C_text("srfi-4#u32vector\077")); lf[789]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_u32vectorp")); lf[790]=C_h_intern(&lf[790],17, C_text("srfi-4#s16vector\077")); lf[791]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_s16vectorp")); lf[792]=C_h_intern(&lf[792],17, C_text("srfi-4#u16vector\077")); lf[793]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_i_u16vectorp")); lf[794]=C_h_intern(&lf[794],16, C_text("srfi-4#s8vector\077")); lf[795]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_i_s8vectorp")); lf[796]=C_h_intern(&lf[796],16, C_text("srfi-4#u8vector\077")); lf[797]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_i_u8vectorp")); lf[798]=C_h_intern(&lf[798],20, C_text("##sys#srfi-4-vector\077")); lf[799]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_i_srfi_4_vectorp")); lf[800]=C_h_intern(&lf[800],13, C_text("##sys#vector\077")); lf[801]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_vectorp")); lf[802]=C_h_intern(&lf[802],14, C_text("scheme#vector\077")); lf[803]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_vectorp")); lf[804]=C_h_intern(&lf[804],14, C_text("scheme#symbol\077")); lf[805]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_symbolp")); lf[806]=C_h_intern(&lf[806],26, C_text("chicken.locative#locative\077")); lf[807]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_i_locativep")); lf[808]=C_h_intern(&lf[808],14, C_text("scheme#string\077")); lf[809]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_i_stringp")); lf[810]=C_h_intern(&lf[810],12, C_text("scheme#char\077")); lf[811]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_charp")); lf[812]=C_h_intern(&lf[812],10, C_text("scheme#not")); lf[813]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_i_not")); lf[814]=C_h_intern(&lf[814],13, C_text("scheme#length")); lf[815]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_i_length")); lf[816]=C_h_intern(&lf[816],11, C_text("##sys#null\077")); lf[817]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_nullp")); lf[818]=C_h_intern(&lf[818],12, C_text("scheme#null\077")); lf[819]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_nullp")); lf[820]=C_h_intern(&lf[820],15, C_text("scheme#list-ref")); lf[821]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_i_list_ref")); lf[822]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_u_i_list_ref")); lf[823]=C_h_intern(&lf[823],10, C_text("##sys#eqv\077")); lf[824]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_eqvp")); lf[825]=C_h_intern(&lf[825],11, C_text("scheme#eqv\077")); lf[826]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_eqvp")); lf[827]=C_h_intern(&lf[827],9, C_text("##sys#eq\077")); lf[828]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_eqp")); lf[829]=C_h_intern(&lf[829],10, C_text("scheme#eq\077")); lf[830]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_eqp")); lf[831]=C_h_intern(&lf[831],10, C_text("scheme#cdr")); lf[832]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_i_cdr")); lf[833]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_slot")); lf[834]=C_h_intern(&lf[834],13, C_text("scheme#cddddr")); lf[835]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_i_cddddr")); lf[836]=C_h_intern(&lf[836],12, C_text("scheme#cdddr")); lf[837]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_cdddr")); lf[838]=C_h_intern(&lf[838],11, C_text("scheme#cddr")); lf[839]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_cddr")); lf[840]=C_h_intern(&lf[840],11, C_text("scheme#cdar")); lf[841]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_cdar")); lf[842]=C_h_intern(&lf[842],11, C_text("scheme#caar")); lf[843]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_caar")); lf[844]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cddddr")); lf[845]=C_h_intern(&lf[845],13, C_text("scheme#cdddar")); lf[846]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cdddar")); lf[847]=C_h_intern(&lf[847],13, C_text("scheme#cddadr")); lf[848]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cddadr")); lf[849]=C_h_intern(&lf[849],13, C_text("scheme#cddaar")); lf[850]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cddaar")); lf[851]=C_h_intern(&lf[851],13, C_text("scheme#cdaddr")); lf[852]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cdaddr")); lf[853]=C_h_intern(&lf[853],13, C_text("scheme#cdadar")); lf[854]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cdadar")); lf[855]=C_h_intern(&lf[855],13, C_text("scheme#cdaadr")); lf[856]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cdaadr")); lf[857]=C_h_intern(&lf[857],13, C_text("scheme#cdaaar")); lf[858]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cdaaar")); lf[859]=C_h_intern(&lf[859],13, C_text("scheme#cadddr")); lf[860]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cadddr")); lf[861]=C_h_intern(&lf[861],13, C_text("scheme#caddar")); lf[862]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_caddar")); lf[863]=C_h_intern(&lf[863],13, C_text("scheme#cadadr")); lf[864]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cadadr")); lf[865]=C_h_intern(&lf[865],13, C_text("scheme#cadaar")); lf[866]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cadaar")); lf[867]=C_h_intern(&lf[867],13, C_text("scheme#caaddr")); lf[868]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_caaddr")); lf[869]=C_h_intern(&lf[869],13, C_text("scheme#caadar")); lf[870]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_caadar")); lf[871]=C_h_intern(&lf[871],13, C_text("scheme#caaaar")); lf[872]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_caaaar")); lf[873]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_u_i_cdddr")); lf[874]=C_h_intern(&lf[874],12, C_text("scheme#cddar")); lf[875]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_u_i_cddar")); lf[876]=C_h_intern(&lf[876],12, C_text("scheme#cdadr")); lf[877]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_u_i_cdadr")); lf[878]=C_h_intern(&lf[878],12, C_text("scheme#cdaar")); lf[879]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_u_i_cdaar")); lf[880]=C_h_intern(&lf[880],12, C_text("scheme#caddr")); lf[881]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_u_i_caddr")); lf[882]=C_h_intern(&lf[882],12, C_text("scheme#cadar")); lf[883]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_u_i_cadar")); lf[884]=C_h_intern(&lf[884],12, C_text("scheme#caaar")); lf[885]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_u_i_caaar")); lf[886]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_u_i_cddr")); lf[887]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_u_i_cdar")); lf[888]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_u_i_caar")); lf[889]=C_h_intern(&lf[889],39, C_text("chicken.continuation#continuation-graft")); lf[890]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_continuation_graft")); lf[891]=C_h_intern(&lf[891],22, C_text("##sys#call-with-values")); lf[892]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_call_with_values")); lf[893]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_u_call_with_values")); lf[894]=C_h_intern(&lf[894],23, C_text("scheme#call-with-values")); lf[895]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_call_with_values")); lf[896]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_u_call_with_values")); lf[897]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_values")); lf[898]=C_h_intern(&lf[898],13, C_text("scheme#values")); lf[899]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_values")); lf[900]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_i_cadddr")); lf[901]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_u_i_cadddr")); lf[902]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_i_caddr")); lf[903]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_u_i_caddr")); lf[904]=C_h_intern(&lf[904],11, C_text("scheme#cadr")); lf[905]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_i_cadr")); lf[906]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_u_i_cadr")); lf[907]=C_h_intern(&lf[907],9, C_text("##sys#cdr")); lf[908]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_i_cdr")); lf[909]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_u_i_cdr")); lf[910]=C_h_intern(&lf[910],9, C_text("##sys#car")); lf[911]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_i_car")); lf[912]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_u_i_car")); lf[913]=C_h_intern(&lf[913],10, C_text("scheme#car")); lf[914]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_i_car")); lf[915]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_u_i_car")); lf[916]=C_h_intern(&lf[916],11, C_text("##sys#apply")); lf[917]=C_h_intern(&lf[917],12, C_text("scheme#apply")); lf[918]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\012C_i_equalp\376\377\016")); lf[919]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\005C_eqp\376\377\016")); lf[920]=C_h_intern(&lf[920],13, C_text("scheme#equal\077")); lf[921]=C_h_intern(&lf[921],17, C_text("chicken.base#sub1")); lf[922]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_fixnum_decrease")); lf[923]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_fixnum_decrease")); lf[924]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_s_a_i_minus")); lf[925]=C_h_intern(&lf[925],17, C_text("chicken.base#add1")); lf[926]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_fixnum_increase")); lf[927]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_u_fixnum_increase")); lf[928]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_s_a_i_plus")); lf[929]=C_h_intern(&lf[929],38, C_text("chicken.compiler.support#mark-variable")); lf[930]=C_h_intern(&lf[930],15, C_text("##compiler#pure")); lf[931]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001##sys#slot\376\003\000\000\002\376\001\000\000\017\001##sys#block-ref\376\003\000\000\002\376\001\000\000\012\001##sys#size\376\003\000\000\002\376\001\000\000\012\001#" "#sys#byte\376\003\000\000\002\376\001\000\000\016\001##sys#pointer\077\376\003\000\000\002\376\001\000\000\030\001##sys#generic-structure\077\376\003\000\000\002\376\001\000\000\020\001" "##sys#immediate\077\376\003\000\000\002\376\001\000\000\021\001##sys#bytevector\077\376\003\000\000\002\376\001\000\000\013\001##sys#pair\077\376\003\000\000\002\376\001\000\000\011\001##s" "ys#eq\077\376\003\000\000\002\376\001\000\000\013\001##sys#list\077\376\003\000\000\002\376\001\000\000\015\001##sys#vector\077\376\003\000\000\002\376\001\000\000\012\001##sys#eqv\077\376\003\000\000\002\376\001" "\000\000\021\001##sys#get-keyword\376\003\000\000\002\376\001\000\000\012\001##sys#void\376\003\000\000\002\376\001\000\000\020\001##sys#permanent\077\376\377\016")); lf[932]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001chicken.fixnum#fx\052\376\003\000\000\002\376\001\000\000\023\001chicken.fixnum#fx\052\077\376\003\000\000\002\376\001\000\000\022\001chicken.fi" "xnum#fx+\376\003\000\000\002\376\001\000\000\023\001chicken.fixnum#fx+\077\376\003\000\000\002\376\001\000\000\022\001chicken.fixnum#fx-\376\003\000\000\002\376\001\000\000\023\001ch" "icken.fixnum#fx-\077\376\003\000\000\002\376\001\000\000\022\001chicken.fixnum#fx/\376\003\000\000\002\376\001\000\000\023\001chicken.fixnum#fx/\077\376\003\000\000" "\002\376\001\000\000\022\001chicken.fixnum#fx<\376\003\000\000\002\376\001\000\000\023\001chicken.fixnum#fx<=\376\003\000\000\002\376\001\000\000\022\001chicken.fixnum" "#fx=\376\003\000\000\002\376\001\000\000\022\001chicken.fixnum#fx>\376\003\000\000\002\376\001\000\000\023\001chicken.fixnum#fx>=\376\003\000\000\002\376\001\000\000\024\001chicke" "n.fixnum#fxand\376\003\000\000\002\376\001\000\000\026\001chicken.fixnum#fxeven\077\376\003\000\000\002\376\001\000\000\024\001chicken.fixnum#fxgcd\376\003" "\000\000\002\376\001\000\000\024\001chicken.fixnum#fxior\376\003\000\000\002\376\001\000\000\024\001chicken.fixnum#fxlen\376\003\000\000\002\376\001\000\000\024\001chicken.f" "ixnum#fxmax\376\003\000\000\002\376\001\000\000\024\001chicken.fixnum#fxmin\376\003\000\000\002\376\001\000\000\024\001chicken.fixnum#fxmod\376\003\000\000\002\376\001" "\000\000\024\001chicken.fixnum#fxneg\376\003\000\000\002\376\001\000\000\024\001chicken.fixnum#fxnot\376\003\000\000\002\376\001\000\000\025\001chicken.fixnum" "#fxodd\077\376\003\000\000\002\376\001\000\000\024\001chicken.fixnum#fxrem\376\003\000\000\002\376\001\000\000\024\001chicken.fixnum#fxshl\376\003\000\000\002\376\001\000\000\024\001" "chicken.fixnum#fxshr\376\003\000\000\002\376\001\000\000\024\001chicken.fixnum#fxxor\376\377\016")); lf[933]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\023\001chicken.flonum#fp/\077\376\003\000\000\002\376\001\000\000\022\001chicken.flonum#fp+\376\003\000\000\002\376\001\000\000\022\001chicken.fl" "onum#fp-\376\003\000\000\002\376\001\000\000\022\001chicken.flonum#fp\052\376\003\000\000\002\376\001\000\000\022\001chicken.flonum#fp/\376\003\000\000\002\376\001\000\000\022\001chi" "cken.flonum#fp>\376\003\000\000\002\376\001\000\000\022\001chicken.flonum#fp<\376\003\000\000\002\376\001\000\000\022\001chicken.flonum#fp=\376\003\000\000\002\376\001" "\000\000\023\001chicken.flonum#fp>=\376\003\000\000\002\376\001\000\000\023\001chicken.flonum#fp<=\376\003\000\000\002\376\001\000\000\024\001chicken.flonum#f" "pmin\376\003\000\000\002\376\001\000\000\024\001chicken.flonum#fpmax\376\003\000\000\002\376\001\000\000\024\001chicken.flonum#fpneg\376\003\000\000\002\376\001\000\000\024\001chi" "cken.flonum#fpgcd\376\003\000\000\002\376\001\000\000\026\001chicken.flonum#fpfloor\376\003\000\000\002\376\001\000\000\030\001chicken.flonum#fpce" "iling\376\003\000\000\002\376\001\000\000\031\001chicken.flonum#fptruncate\376\003\000\000\002\376\001\000\000\026\001chicken.flonum#fpround\376\003\000\000\002\376" "\001\000\000\024\001chicken.flonum#fpsin\376\003\000\000\002\376\001\000\000\024\001chicken.flonum#fpcos\376\003\000\000\002\376\001\000\000\024\001chicken.flonu" "m#fptan\376\003\000\000\002\376\001\000\000\025\001chicken.flonum#fpasin\376\003\000\000\002\376\001\000\000\025\001chicken.flonum#fpacos\376\003\000\000\002\376\001\000\000" "\025\001chicken.flonum#fpatan\376\003\000\000\002\376\001\000\000\026\001chicken.flonum#fpatan2\376\003\000\000\002\376\001\000\000\024\001chicken.flonu" "m#fpexp\376\003\000\000\002\376\001\000\000\025\001chicken.flonum#fpexpt\376\003\000\000\002\376\001\000\000\024\001chicken.flonum#fplog\376\003\000\000\002\376\001\000\000\025" "\001chicken.flonum#fpsqrt\376\003\000\000\002\376\001\000\000\024\001chicken.flonum#fpabs\376\003\000\000\002\376\001\000\000\031\001chicken.flonum#f" "pinteger\077\376\377\016")); lf[934]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\024\001chicken.base#bignum\077\376\003\000\000\002\376\001\000\000\025\001chicken.base#cplxnum\077\376\003\000\000\002\376\001\000\000\024\001chicke" "n.base#fixnum\077\376\003\000\000\002\376\001\000\000\024\001chicken.base#flonum\077\376\003\000\000\002\376\001\000\000\024\001chicken.base#ratnum\077\376\003\000\000" "\002\376\001\000\000\021\001chicken.base#add1\376\003\000\000\002\376\001\000\000\021\001chicken.base#sub1\376\003\000\000\002\376\001\000\000\021\001chicken.base#nan\077" "\376\003\000\000\002\376\001\000\000\024\001chicken.base#finite\077\376\003\000\000\002\376\001\000\000\026\001chicken.base#infinite\077\376\003\000\000\002\376\001\000\000\023\001chick" "en.base#gensym\376\003\000\000\002\376\001\000\000\021\001chicken.base#void\376\003\000\000\002\376\001\000\000\022\001chicken.base#print\376\003\000\000\002\376\001\000\000" "\023\001chicken.base#print\052\376\003\000\000\002\376\001\000\000\022\001chicken.base#error\376\003\000\000\002\376\001\000\000\024\001chicken.base#call/c" "c\376\003\000\000\002\376\001\000\000\026\001chicken.base#char-name\376\003\000\000\002\376\001\000\000\037\001chicken.base#current-error-port\376\003\000\000" "\002\376\001\000\000\032\001chicken.base#symbol-append\376\003\000\000\002\376\001\000\000\022\001chicken.base#foldl\376\003\000\000\002\376\001\000\000\022\001chicken" ".base#foldr\376\003\000\000\002\376\001\000\000\023\001chicken.base#setter\376\003\000\000\002\376\001\000\000\037\001chicken.base#getter-with-set" "ter\376\003\000\000\002\376\001\000\000\024\001chicken.base#equal=\077\376\003\000\000\002\376\001\000\000\033\001chicken.base#exact-integer\077\376\003\000\000\002\376\001\000" "\000\031\001chicken.base#flush-output\376\003\000\000\002\376\001\000\000\025\001chicken.base#identity\376\003\000\000\002\376\001\000\000\016\001chicken.b" "ase#o\376\003\000\000\002\376\001\000\000\022\001chicken.base#atom\077\376\003\000\000\002\376\001\000\000\026\001chicken.base#alist-ref\376\003\000\000\002\376\001\000\000\023\001ch" "icken.base#rassoc\376\003\000\000\002\376\001\000\000\036\001chicken.bitwise#integer-length\376\003\000\000\002\376\001\000\000\033\001chicken.bit" "wise#bitwise-and\376\003\000\000\002\376\001\000\000\033\001chicken.bitwise#bitwise-not\376\003\000\000\002\376\001\000\000\033\001chicken.bitwise" "#bitwise-ior\376\003\000\000\002\376\001\000\000\033\001chicken.bitwise#bitwise-xor\376\003\000\000\002\376\001\000\000 \001chicken.bitwise#ari" "thmetic-shift\376\003\000\000\002\376\001\000\000\034\001chicken.bitwise#bit->boolean\376\003\000\000\002\376\001\000\000\026\001chicken.blob#blob" "-size\376\003\000\000\002\376\001\000\000\023\001chicken.blob#blob=\077\376\003\000\000\002\376\001\000\000\033\001chicken.keyword#get-keyword\376\003\000\000\002\376\001" "\000\000\020\001srfi-4#u8vector\077\376\003\000\000\002\376\001\000\000\020\001srfi-4#s8vector\077\376\003\000\000\002\376\001\000\000\021\001srfi-4#u16vector\077\376\003\000\000\002" "\376\001\000\000\021\001srfi-4#s16vector\077\376\003\000\000\002\376\001\000\000\021\001srfi-4#u32vector\077\376\003\000\000\002\376\001\000\000\021\001srfi-4#u64vector\077\376" "\003\000\000\002\376\001\000\000\021\001srfi-4#s32vector\077\376\003\000\000\002\376\001\000\000\021\001srfi-4#s64vector\077\376\003\000\000\002\376\001\000\000\021\001srfi-4#f32vect" "or\077\376\003\000\000\002\376\001\000\000\021\001srfi-4#f64vector\077\376\003\000\000\002\376\001\000\000\026\001srfi-4#u8vector-length\376\003\000\000\002\376\001\000\000\026\001srfi-" "4#s8vector-length\376\003\000\000\002\376\001\000\000\027\001srfi-4#u16vector-length\376\003\000\000\002\376\001\000\000\027\001srfi-4#s16vector-l" "ength\376\003\000\000\002\376\001\000\000\027\001srfi-4#u32vector-length\376\003\000\000\002\376\001\000\000\027\001srfi-4#u64vector-length\376\003\000\000\002\376\001" "\000\000\027\001srfi-4#s32vector-length\376\003\000\000\002\376\001\000\000\027\001srfi-4#s64vector-length\376\003\000\000\002\376\001\000\000\027\001srfi-4#f" "32vector-length\376\003\000\000\002\376\001\000\000\027\001srfi-4#f64vector-length\376\003\000\000\002\376\001\000\000\023\001srfi-4#u8vector-ref\376" "\003\000\000\002\376\001\000\000\023\001srfi-4#s8vector-ref\376\003\000\000\002\376\001\000\000\024\001srfi-4#u16vector-ref\376\003\000\000\002\376\001\000\000\024\001srfi-4#s1" "6vector-ref\376\003\000\000\002\376\001\000\000\024\001srfi-4#u32vector-ref\376\003\000\000\002\376\001\000\000\024\001srfi-4#u64vector-ref\376\003\000\000\002\376\001" "\000\000\024\001srfi-4#s32vector-ref\376\003\000\000\002\376\001\000\000\024\001srfi-4#s64vector-ref\376\003\000\000\002\376\001\000\000\024\001srfi-4#f32vect" "or-ref\376\003\000\000\002\376\001\000\000\024\001srfi-4#f64vector-ref\376\003\000\000\002\376\001\000\000\024\001srfi-4#u8vector-set!\376\003\000\000\002\376\001\000\000\024\001s" "rfi-4#s8vector-set!\376\003\000\000\002\376\001\000\000\025\001srfi-4#u16vector-set!\376\003\000\000\002\376\001\000\000\025\001srfi-4#s16vector-s" "et!\376\003\000\000\002\376\001\000\000\025\001srfi-4#u32vector-set!\376\003\000\000\002\376\001\000\000\025\001srfi-4#u64vector-set!\376\003\000\000\002\376\001\000\000\025\001sr" "fi-4#s32vector-set!\376\003\000\000\002\376\001\000\000\025\001srfi-4#s64vector-set!\376\003\000\000\002\376\001\000\000\025\001srfi-4#f32vector-s" "et!\376\003\000\000\002\376\001\000\000\025\001srfi-4#f64vector-set!\376\003\000\000\002\376\001\000\000\034\001srfi-4#u8vector->blob/shared\376\003\000\000\002\376" "\001\000\000\034\001srfi-4#s8vector->blob/shared\376\003\000\000\002\376\001\000\000\035\001srfi-4#u16vector->blob/shared\376\003\000\000\002\376\001" "\000\000\035\001srfi-4#s16vector->blob/shared\376\003\000\000\002\376\001\000\000\035\001srfi-4#u32vector->blob/shared\376\003\000\000\002\376\001" "\000\000\035\001srfi-4#s32vector->blob/shared\376\003\000\000\002\376\001\000\000\035\001srfi-4#u64vector->blob/shared\376\003\000\000\002\376\001" "\000\000\035\001srfi-4#s64vector->blob/shared\376\003\000\000\002\376\001\000\000\035\001srfi-4#f32vector->blob/shared\376\003\000\000\002\376\001" "\000\000\035\001srfi-4#f64vector->blob/shared\376\003\000\000\002\376\001\000\000\034\001srfi-4#blob->u8vector/shared\376\003\000\000\002\376\001\000" "\000\034\001srfi-4#blob->s8vector/shared\376\003\000\000\002\376\001\000\000\035\001srfi-4#blob->u16vector/shared\376\003\000\000\002\376\001\000\000" "\035\001srfi-4#blob->s16vector/shared\376\003\000\000\002\376\001\000\000\035\001srfi-4#blob->u32vector/shared\376\003\000\000\002\376\001\000\000" "\035\001srfi-4#blob->s32vector/shared\376\003\000\000\002\376\001\000\000\035\001srfi-4#blob->u64vector/shared\376\003\000\000\002\376\001\000\000" "\035\001srfi-4#blob->s64vector/shared\376\003\000\000\002\376\001\000\000\035\001srfi-4#blob->f32vector/shared\376\003\000\000\002\376\001\000\000" "\035\001srfi-4#blob->f64vector/shared\376\003\000\000\002\376\001\000\000\033\001chicken.memory#u8vector-ref\376\003\000\000\002\376\001\000\000\033\001" "chicken.memory#s8vector-ref\376\003\000\000\002\376\001\000\000\034\001chicken.memory#u16vector-ref\376\003\000\000\002\376\001\000\000\034\001chi" "cken.memory#s16vector-ref\376\003\000\000\002\376\001\000\000\034\001chicken.memory#u32vector-ref\376\003\000\000\002\376\001\000\000\034\001chick" "en.memory#s32vector-ref\376\003\000\000\002\376\001\000\000\034\001chicken.memory#u64vector-ref\376\003\000\000\002\376\001\000\000\034\001chicken" ".memory#s64vector-ref\376\003\000\000\002\376\001\000\000\034\001chicken.memory#f32vector-ref\376\003\000\000\002\376\001\000\000\034\001chicken.m" "emory#f64vector-ref\376\003\000\000\002\376\001\000\000\035\001chicken.memory#f32vector-set!\376\003\000\000\002\376\001\000\000\035\001chicken.me" "mory#f64vector-set!\376\003\000\000\002\376\001\000\000\034\001chicken.memory#u8vector-set!\376\003\000\000\002\376\001\000\000\034\001chicken.mem" "ory#s8vector-set!\376\003\000\000\002\376\001\000\000\035\001chicken.memory#u16vector-set!\376\003\000\000\002\376\001\000\000\035\001chicken.memo" "ry#s16vector-set!\376\003\000\000\002\376\001\000\000\035\001chicken.memory#u32vector-set!\376\003\000\000\002\376\001\000\000\035\001chicken.memo" "ry#s32vector-set!\376\003\000\000\002\376\001\000\000\035\001chicken.memory#u64vector-set!\376\003\000\000\002\376\001\000\000\035\001chicken.memo" "ry#s64vector-set!\376\003\000\000\002\376\001\000\000-\001chicken.memory.representation#number-of-slots\376\003\000\000\002\376\001" "\000\0002\001chicken.memory.representation#make-record-instance\376\003\000\000\002\376\001\000\000\047\001chicken.memory." "representation#block-ref\376\003\000\000\002\376\001\000\000(\001chicken.memory.representation#block-set!\376\003\000\000\002" "\376\001\000\000\035\001chicken.locative#locative-ref\376\003\000\000\002\376\001\000\000\036\001chicken.locative#locative-set!\376\003\000\000" "\002\376\001\000\000!\001chicken.locative#locative->object\376\003\000\000\002\376\001\000\000\032\001chicken.locative#locative\077\376\003\000" "\000\002\376\001\000\000\027\001chicken.memory#pointer+\376\003\000\000\002\376\001\000\000\030\001chicken.memory#pointer=\077\376\003\000\000\002\376\001\000\000\037\001chi" "cken.memory#address->pointer\376\003\000\000\002\376\001\000\000\037\001chicken.memory#pointer->address\376\003\000\000\002\376\001\000\000\036" "\001chicken.memory#pointer->object\376\003\000\000\002\376\001\000\000\036\001chicken.memory#object->pointer\376\003\000\000\002\376\001\000" "\000\035\001chicken.memory#pointer-u8-ref\376\003\000\000\002\376\001\000\000\035\001chicken.memory#pointer-s8-ref\376\003\000\000\002\376\001\000" "\000\036\001chicken.memory#pointer-u16-ref\376\003\000\000\002\376\001\000\000\036\001chicken.memory#pointer-s16-ref\376\003\000\000\002\376" "\001\000\000\036\001chicken.memory#pointer-u32-ref\376\003\000\000\002\376\001\000\000\036\001chicken.memory#pointer-s32-ref\376\003\000\000" "\002\376\001\000\000\036\001chicken.memory#pointer-f32-ref\376\003\000\000\002\376\001\000\000\036\001chicken.memory#pointer-f64-ref\376\003" "\000\000\002\376\001\000\000\036\001chicken.memory#pointer-u8-set!\376\003\000\000\002\376\001\000\000\036\001chicken.memory#pointer-s8-set!" "\376\003\000\000\002\376\001\000\000\037\001chicken.memory#pointer-u16-set!\376\003\000\000\002\376\001\000\000\037\001chicken.memory#pointer-s16-" "set!\376\003\000\000\002\376\001\000\000\037\001chicken.memory#pointer-u32-set!\376\003\000\000\002\376\001\000\000\037\001chicken.memory#pointer-" "s32-set!\376\003\000\000\002\376\001\000\000\037\001chicken.memory#pointer-f32-set!\376\003\000\000\002\376\001\000\000\037\001chicken.memory#poin" "ter-f64-set!\376\003\000\000\002\376\001\000\000\036\001chicken.string#substring-index\376\003\000\000\002\376\001\000\000!\001chicken.string#s" "ubstring-index-ci\376\003\000\000\002\376\001\000\000\032\001chicken.string#substring=\077\376\003\000\000\002\376\001\000\000\035\001chicken.string#" "substring-ci=\077\376\003\000\000\002\376\001\000\000\026\001chicken.io#read-string\376\003\000\000\002\376\001\000\000\025\001chicken.format#format\376" "\003\000\000\002\376\001\000\000\025\001chicken.format#printf\376\003\000\000\002\376\001\000\000\026\001chicken.format#sprintf\376\003\000\000\002\376\001\000\000\026\001chick" "en.format#fprintf\376\377\016")); lf[935]=C_h_intern(&lf[935],26, C_text("chicken.base#symbol-append")); lf[936]=C_h_intern(&lf[936],7, C_text("scheme#")); lf[937]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001not\376\003\000\000\002\376\001\000\000\010\001boolean\077\376\003\000\000\002\376\001\000\000\005\001apply\376\003\000\000\002\376\001\000\000\036\001call-with-current-co" "ntinuation\376\003\000\000\002\376\001\000\000\003\001eq\077\376\003\000\000\002\376\001\000\000\004\001eqv\077\376\003\000\000\002\376\001\000\000\006\001equal\077\376\003\000\000\002\376\001\000\000\005\001pair\077\376\003\000\000\002\376\001\000" "\000\004\001cons\376\003\000\000\002\376\001\000\000\003\001car\376\003\000\000\002\376\001\000\000\003\001cdr\376\003\000\000\002\376\001\000\000\004\001caar\376\003\000\000\002\376\001\000\000\004\001cadr\376\003\000\000\002\376\001\000\000\004\001cdar" "\376\003\000\000\002\376\001\000\000\004\001cddr\376\003\000\000\002\376\001\000\000\005\001caaar\376\003\000\000\002\376\001\000\000\005\001caadr\376\003\000\000\002\376\001\000\000\005\001cadar\376\003\000\000\002\376\001\000\000\005\001caddr\376" "\003\000\000\002\376\001\000\000\005\001cdaar\376\003\000\000\002\376\001\000\000\005\001cdadr\376\003\000\000\002\376\001\000\000\005\001cddar\376\003\000\000\002\376\001\000\000\005\001cdddr\376\003\000\000\002\376\001\000\000\006\001caaaar" "\376\003\000\000\002\376\001\000\000\006\001caaadr\376\003\000\000\002\376\001\000\000\006\001caadar\376\003\000\000\002\376\001\000\000\006\001caaddr\376\003\000\000\002\376\001\000\000\006\001cadaar\376\003\000\000\002\376\001\000\000\006\001c" "adadr\376\003\000\000\002\376\001\000\000\006\001caddar\376\003\000\000\002\376\001\000\000\006\001cadddr\376\003\000\000\002\376\001\000\000\006\001cdaaar\376\003\000\000\002\376\001\000\000\006\001cdaadr\376\003\000\000\002\376\001" "\000\000\006\001cdadar\376\003\000\000\002\376\001\000\000\006\001cdaddr\376\003\000\000\002\376\001\000\000\006\001cddaar\376\003\000\000\002\376\001\000\000\006\001cddadr\376\003\000\000\002\376\001\000\000\006\001cdddar\376\003" "\000\000\002\376\001\000\000\006\001cddddr\376\003\000\000\002\376\001\000\000\010\001set-car!\376\003\000\000\002\376\001\000\000\010\001set-cdr!\376\003\000\000\002\376\001\000\000\005\001null\077\376\003\000\000\002\376\001\000\000\004\001" "list\376\003\000\000\002\376\001\000\000\005\001list\077\376\003\000\000\002\376\001\000\000\006\001length\376\003\000\000\002\376\001\000\000\005\001zero\077\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\001\001-\376\003\000" "\000\002\376\001\000\000\001\001+\376\003\000\000\002\376\001\000\000\001\001/\376\003\000\000\002\376\001\000\000\001\001-\376\003\000\000\002\376\001\000\000\001\001>\376\003\000\000\002\376\001\000\000\001\001<\376\003\000\000\002\376\001\000\000\002\001>=\376\003\000\000\002\376\001\000\000\002" "\001<=\376\003\000\000\002\376\001\000\000\001\001=\376\003\000\000\002\376\001\000\000\023\001current-output-port\376\003\000\000\002\376\001\000\000\022\001current-input-port\376\003\000\000\002\376" "\001\000\000\012\001write-char\376\003\000\000\002\376\001\000\000\007\001newline\376\003\000\000\002\376\001\000\000\005\001write\376\003\000\000\002\376\001\000\000\007\001display\376\003\000\000\002\376\001\000\000\006\001ap" "pend\376\003\000\000\002\376\001\000\000\016\001symbol->string\376\003\000\000\002\376\001\000\000\010\001for-each\376\003\000\000\002\376\001\000\000\003\001map\376\003\000\000\002\376\001\000\000\005\001char\077\376\003" "\000\000\002\376\001\000\000\015\001char->integer\376\003\000\000\002\376\001\000\000\015\001integer->char\376\003\000\000\002\376\001\000\000\013\001eof-object\077\376\003\000\000\002\376\001\000\000\015\001v" "ector-length\376\003\000\000\002\376\001\000\000\015\001string-length\376\003\000\000\002\376\001\000\000\012\001string-ref\376\003\000\000\002\376\001\000\000\013\001string-set!\376" "\003\000\000\002\376\001\000\000\012\001vector-ref\376\003\000\000\002\376\001\000\000\013\001vector-set!\376\003\000\000\002\376\001\000\000\006\001char=\077\376\003\000\000\002\376\001\000\000\006\001char<\077\376\003\000\000" "\002\376\001\000\000\006\001char>\077\376\003\000\000\002\376\001\000\000\007\001char>=\077\376\003\000\000\002\376\001\000\000\007\001char<=\077\376\003\000\000\002\376\001\000\000\003\001gcd\376\003\000\000\002\376\001\000\000\003\001lcm\376\003\000" "\000\002\376\001\000\000\007\001reverse\376\003\000\000\002\376\001\000\000\007\001symbol\077\376\003\000\000\002\376\001\000\000\016\001string->symbol\376\003\000\000\002\376\001\000\000\007\001number\077\376\003\000\000" "\002\376\001\000\000\010\001complex\077\376\003\000\000\002\376\001\000\000\005\001real\077\376\003\000\000\002\376\001\000\000\010\001integer\077\376\003\000\000\002\376\001\000\000\011\001rational\077\376\003\000\000\002\376\001\000\000\004" "\001odd\077\376\003\000\000\002\376\001\000\000\005\001even\077\376\003\000\000\002\376\001\000\000\011\001positive\077\376\003\000\000\002\376\001\000\000\011\001negative\077\376\003\000\000\002\376\001\000\000\006\001exact\077\376\003" "\000\000\002\376\001\000\000\010\001inexact\077\376\003\000\000\002\376\001\000\000\003\001max\376\003\000\000\002\376\001\000\000\003\001min\376\003\000\000\002\376\001\000\000\010\001quotient\376\003\000\000\002\376\001\000\000\011\001remai" "nder\376\003\000\000\002\376\001\000\000\006\001modulo\376\003\000\000\002\376\001\000\000\005\001floor\376\003\000\000\002\376\001\000\000\007\001ceiling\376\003\000\000\002\376\001\000\000\010\001truncate\376\003\000\000\002\376" "\001\000\000\005\001round\376\003\000\000\002\376\001\000\000\013\001rationalize\376\003\000\000\002\376\001\000\000\016\001exact->inexact\376\003\000\000\002\376\001\000\000\016\001inexact->exa" "ct\376\003\000\000\002\376\001\000\000\003\001exp\376\003\000\000\002\376\001\000\000\003\001log\376\003\000\000\002\376\001\000\000\003\001sin\376\003\000\000\002\376\001\000\000\004\001expt\376\003\000\000\002\376\001\000\000\004\001sqrt\376\003\000\000\002\376" "\001\000\000\003\001cos\376\003\000\000\002\376\001\000\000\003\001tan\376\003\000\000\002\376\001\000\000\004\001asin\376\003\000\000\002\376\001\000\000\004\001acos\376\003\000\000\002\376\001\000\000\004\001atan\376\003\000\000\002\376\001\000\000\016\001nu" "mber->string\376\003\000\000\002\376\001\000\000\016\001string->number\376\003\000\000\002\376\001\000\000\011\001char-ci=\077\376\003\000\000\002\376\001\000\000\011\001char-ci<\077\376\003\000" "\000\002\376\001\000\000\011\001char-ci>\077\376\003\000\000\002\376\001\000\000\012\001char-ci>=\077\376\003\000\000\002\376\001\000\000\012\001char-ci<=\077\376\003\000\000\002\376\001\000\000\020\001char-alpha" "betic\077\376\003\000\000\002\376\001\000\000\020\001char-whitespace\077\376\003\000\000\002\376\001\000\000\015\001char-numeric\077\376\003\000\000\002\376\001\000\000\020\001char-lower-c" "ase\077\376\003\000\000\002\376\001\000\000\020\001char-upper-case\077\376\003\000\000\002\376\001\000\000\013\001char-upcase\376\003\000\000\002\376\001\000\000\015\001char-downcase\376\003\000" "\000\002\376\001\000\000\007\001string\077\376\003\000\000\002\376\001\000\000\010\001string=\077\376\003\000\000\002\376\001\000\000\010\001string>\077\376\003\000\000\002\376\001\000\000\010\001string<\077\376\003\000\000\002\376\001\000" "\000\011\001string>=\077\376\003\000\000\002\376\001\000\000\011\001string<=\077\376\003\000\000\002\376\001\000\000\013\001string-ci=\077\376\003\000\000\002\376\001\000\000\013\001string-ci<\077\376\003\000\000" "\002\376\001\000\000\013\001string-ci>\077\376\003\000\000\002\376\001\000\000\014\001string-ci<=\077\376\003\000\000\002\376\001\000\000\014\001string-ci>=\077\376\003\000\000\002\376\001\000\000\015\001strin" "g-append\376\003\000\000\002\376\001\000\000\014\001string->list\376\003\000\000\002\376\001\000\000\014\001list->string\376\003\000\000\002\376\001\000\000\007\001vector\077\376\003\000\000\002\376\001\000" "\000\014\001vector->list\376\003\000\000\002\376\001\000\000\014\001list->vector\376\003\000\000\002\376\001\000\000\006\001string\376\003\000\000\002\376\001\000\000\004\001read\376\003\000\000\002\376\001\000\000\011" "\001read-char\376\003\000\000\002\376\001\000\000\011\001substring\376\003\000\000\002\376\001\000\000\014\001string-fill!\376\003\000\000\002\376\001\000\000\014\001vector-copy!\376\003\000\000" "\002\376\001\000\000\014\001vector-fill!\376\003\000\000\002\376\001\000\000\013\001make-string\376\003\000\000\002\376\001\000\000\013\001make-vector\376\003\000\000\002\376\001\000\000\017\001open-i" "nput-file\376\003\000\000\002\376\001\000\000\020\001open-output-file\376\003\000\000\002\376\001\000\000\024\001call-with-input-file\376\003\000\000\002\376\001\000\000\025\001ca" "ll-with-output-file\376\003\000\000\002\376\001\000\000\020\001close-input-port\376\003\000\000\002\376\001\000\000\021\001close-output-port\376\003\000\000\002\376" "\001\000\000\006\001values\376\003\000\000\002\376\001\000\000\020\001call-with-values\376\003\000\000\002\376\001\000\000\006\001vector\376\003\000\000\002\376\001\000\000\012\001procedure\077\376\003\000\000" "\002\376\001\000\000\004\001memq\376\003\000\000\002\376\001\000\000\004\001memv\376\003\000\000\002\376\001\000\000\006\001member\376\003\000\000\002\376\001\000\000\004\001assq\376\003\000\000\002\376\001\000\000\004\001assv\376\003\000\000\002\376\001" "\000\000\005\001assoc\376\003\000\000\002\376\001\000\000\011\001list-tail\376\003\000\000\002\376\001\000\000\010\001list-ref\376\003\000\000\002\376\001\000\000\003\001abs\376\003\000\000\002\376\001\000\000\013\001char-re" "ady\077\376\003\000\000\002\376\001\000\000\011\001peek-char\376\003\000\000\002\376\001\000\000\014\001list->string\376\003\000\000\002\376\001\000\000\014\001string->list\376\003\000\000\002\376\001\000\000\022" "\001current-input-port\376\003\000\000\002\376\001\000\000\023\001current-output-port\376\003\000\000\002\376\001\000\000\012\001make-polar\376\003\000\000\002\376\001\000\000\020" "\001make-rectangular\376\003\000\000\002\376\001\000\000\011\001real-part\376\003\000\000\002\376\001\000\000\011\001imag-part\376\003\000\000\002\376\001\000\000\004\001load\376\003\000\000\002\376\001\000" "\000\004\001eval\376\003\000\000\002\376\001\000\000\027\001interaction-environment\376\003\000\000\002\376\001\000\000\020\001null-environment\376\003\000\000\002\376\001\000\000\031\001s" "cheme-report-environment\376\377\016")); lf[938]=C_h_intern(&lf[938],50, C_text("chicken.compiler.optimizer#membership-unfold-limit")); lf[939]=C_h_intern(&lf[939],52, C_text("chicken.compiler.optimizer#membership-test-operators")); lf[940]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376B\000\000\010C_i_memq\376B\000\000\005C_eqp\376\003\000\000\002\376\003\000\000\002\376B\000\000\012C_u_i_memq\376B\000\000\005C_eqp\376\003\000\000\002\376\003\000\000\002\376B" "\000\000\012C_i_member\376B\000\000\012C_i_equalp\376\003\000\000\002\376\003\000\000\002\376B\000\000\010C_i_memv\376B\000\000\010C_i_eqvp\376\377\016")); lf[941]=C_h_intern(&lf[941],45, C_text("chicken.compiler.optimizer#eq-inline-operator")); lf[942]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_eqp")); lf[943]=C_h_intern(&lf[943],54, C_text("chicken.compiler.optimizer#default-optimization-passes")); C_register_lf2(lf,944,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1664,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_library_toplevel(2,av2);}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[673] = { {C_text("f_1664:c_2dplatform_2escm"),(void*)f_1664}, {C_text("f_1667:c_2dplatform_2escm"),(void*)f_1667}, {C_text("f_1670:c_2dplatform_2escm"),(void*)f_1670}, {C_text("f_1673:c_2dplatform_2escm"),(void*)f_1673}, {C_text("f_1676:c_2dplatform_2escm"),(void*)f_1676}, {C_text("f_1679:c_2dplatform_2escm"),(void*)f_1679}, {C_text("f_1682:c_2dplatform_2escm"),(void*)f_1682}, {C_text("f_2117:c_2dplatform_2escm"),(void*)f_2117}, {C_text("f_2123:c_2dplatform_2escm"),(void*)f_2123}, {C_text("f_2137:c_2dplatform_2escm"),(void*)f_2137}, {C_text("f_2293:c_2dplatform_2escm"),(void*)f_2293}, {C_text("f_2302:c_2dplatform_2escm"),(void*)f_2302}, {C_text("f_2310:c_2dplatform_2escm"),(void*)f_2310}, {C_text("f_2317:c_2dplatform_2escm"),(void*)f_2317}, {C_text("f_2331:c_2dplatform_2escm"),(void*)f_2331}, {C_text("f_2459:c_2dplatform_2escm"),(void*)f_2459}, {C_text("f_2701:c_2dplatform_2escm"),(void*)f_2701}, {C_text("f_2715:c_2dplatform_2escm"),(void*)f_2715}, {C_text("f_2719:c_2dplatform_2escm"),(void*)f_2719}, {C_text("f_2963:c_2dplatform_2escm"),(void*)f_2963}, {C_text("f_2970:c_2dplatform_2escm"),(void*)f_2970}, {C_text("f_2973:c_2dplatform_2escm"),(void*)f_2973}, {C_text("f_2976:c_2dplatform_2escm"),(void*)f_2976}, {C_text("f_2991:c_2dplatform_2escm"),(void*)f_2991}, {C_text("f_2998:c_2dplatform_2escm"),(void*)f_2998}, {C_text("f_3007:c_2dplatform_2escm"),(void*)f_3007}, {C_text("f_3009:c_2dplatform_2escm"),(void*)f_3009}, {C_text("f_3011:c_2dplatform_2escm"),(void*)f_3011}, {C_text("f_3033:c_2dplatform_2escm"),(void*)f_3033}, {C_text("f_3066:c_2dplatform_2escm"),(void*)f_3066}, {C_text("f_3074:c_2dplatform_2escm"),(void*)f_3074}, {C_text("f_3077:c_2dplatform_2escm"),(void*)f_3077}, {C_text("f_3079:c_2dplatform_2escm"),(void*)f_3079}, {C_text("f_3095:c_2dplatform_2escm"),(void*)f_3095}, {C_text("f_3104:c_2dplatform_2escm"),(void*)f_3104}, {C_text("f_3107:c_2dplatform_2escm"),(void*)f_3107}, {C_text("f_3122:c_2dplatform_2escm"),(void*)f_3122}, {C_text("f_3134:c_2dplatform_2escm"),(void*)f_3134}, {C_text("f_3148:c_2dplatform_2escm"),(void*)f_3148}, {C_text("f_3152:c_2dplatform_2escm"),(void*)f_3152}, {C_text("f_3161:c_2dplatform_2escm"),(void*)f_3161}, {C_text("f_3175:c_2dplatform_2escm"),(void*)f_3175}, {C_text("f_3179:c_2dplatform_2escm"),(void*)f_3179}, {C_text("f_3209:c_2dplatform_2escm"),(void*)f_3209}, {C_text("f_3213:c_2dplatform_2escm"),(void*)f_3213}, {C_text("f_3217:c_2dplatform_2escm"),(void*)f_3217}, {C_text("f_3221:c_2dplatform_2escm"),(void*)f_3221}, {C_text("f_3225:c_2dplatform_2escm"),(void*)f_3225}, {C_text("f_3233:c_2dplatform_2escm"),(void*)f_3233}, {C_text("f_3236:c_2dplatform_2escm"),(void*)f_3236}, {C_text("f_3239:c_2dplatform_2escm"),(void*)f_3239}, {C_text("f_3241:c_2dplatform_2escm"),(void*)f_3241}, {C_text("f_3269:c_2dplatform_2escm"),(void*)f_3269}, {C_text("f_3277:c_2dplatform_2escm"),(void*)f_3277}, {C_text("f_3294:c_2dplatform_2escm"),(void*)f_3294}, {C_text("f_3296:c_2dplatform_2escm"),(void*)f_3296}, {C_text("f_3321:c_2dplatform_2escm"),(void*)f_3321}, {C_text("f_3332:c_2dplatform_2escm"),(void*)f_3332}, {C_text("f_3336:c_2dplatform_2escm"),(void*)f_3336}, {C_text("f_3339:c_2dplatform_2escm"),(void*)f_3339}, {C_text("f_3353:c_2dplatform_2escm"),(void*)f_3353}, {C_text("f_3357:c_2dplatform_2escm"),(void*)f_3357}, {C_text("f_3380:c_2dplatform_2escm"),(void*)f_3380}, {C_text("f_3395:c_2dplatform_2escm"),(void*)f_3395}, {C_text("f_3403:c_2dplatform_2escm"),(void*)f_3403}, {C_text("f_3412:c_2dplatform_2escm"),(void*)f_3412}, {C_text("f_3416:c_2dplatform_2escm"),(void*)f_3416}, {C_text("f_3419:c_2dplatform_2escm"),(void*)f_3419}, {C_text("f_3422:c_2dplatform_2escm"),(void*)f_3422}, {C_text("f_3424:c_2dplatform_2escm"),(void*)f_3424}, {C_text("f_3430:c_2dplatform_2escm"),(void*)f_3430}, {C_text("f_3442:c_2dplatform_2escm"),(void*)f_3442}, {C_text("f_3461:c_2dplatform_2escm"),(void*)f_3461}, {C_text("f_3492:c_2dplatform_2escm"),(void*)f_3492}, {C_text("f_3495:c_2dplatform_2escm"),(void*)f_3495}, {C_text("f_3498:c_2dplatform_2escm"),(void*)f_3498}, {C_text("f_3501:c_2dplatform_2escm"),(void*)f_3501}, {C_text("f_3504:c_2dplatform_2escm"),(void*)f_3504}, {C_text("f_3507:c_2dplatform_2escm"),(void*)f_3507}, {C_text("f_3508:c_2dplatform_2escm"),(void*)f_3508}, {C_text("f_3534:c_2dplatform_2escm"),(void*)f_3534}, {C_text("f_3537:c_2dplatform_2escm"),(void*)f_3537}, {C_text("f_3539:c_2dplatform_2escm"),(void*)f_3539}, {C_text("f_3573:c_2dplatform_2escm"),(void*)f_3573}, {C_text("f_3600:c_2dplatform_2escm"),(void*)f_3600}, {C_text("f_3603:c_2dplatform_2escm"),(void*)f_3603}, {C_text("f_3606:c_2dplatform_2escm"),(void*)f_3606}, {C_text("f_3621:c_2dplatform_2escm"),(void*)f_3621}, {C_text("f_3625:c_2dplatform_2escm"),(void*)f_3625}, {C_text("f_3637:c_2dplatform_2escm"),(void*)f_3637}, {C_text("f_3649:c_2dplatform_2escm"),(void*)f_3649}, {C_text("f_3661:c_2dplatform_2escm"),(void*)f_3661}, {C_text("f_3665:c_2dplatform_2escm"),(void*)f_3665}, {C_text("f_3673:c_2dplatform_2escm"),(void*)f_3673}, {C_text("f_3680:c_2dplatform_2escm"),(void*)f_3680}, {C_text("f_3684:c_2dplatform_2escm"),(void*)f_3684}, {C_text("f_3688:c_2dplatform_2escm"),(void*)f_3688}, {C_text("f_3692:c_2dplatform_2escm"),(void*)f_3692}, {C_text("f_3696:c_2dplatform_2escm"),(void*)f_3696}, {C_text("f_3704:c_2dplatform_2escm"),(void*)f_3704}, {C_text("f_3707:c_2dplatform_2escm"),(void*)f_3707}, {C_text("f_3710:c_2dplatform_2escm"),(void*)f_3710}, {C_text("f_3713:c_2dplatform_2escm"),(void*)f_3713}, {C_text("f_3716:c_2dplatform_2escm"),(void*)f_3716}, {C_text("f_3719:c_2dplatform_2escm"),(void*)f_3719}, {C_text("f_3722:c_2dplatform_2escm"),(void*)f_3722}, {C_text("f_3725:c_2dplatform_2escm"),(void*)f_3725}, {C_text("f_3728:c_2dplatform_2escm"),(void*)f_3728}, {C_text("f_3731:c_2dplatform_2escm"),(void*)f_3731}, {C_text("f_3734:c_2dplatform_2escm"),(void*)f_3734}, {C_text("f_3737:c_2dplatform_2escm"),(void*)f_3737}, {C_text("f_3740:c_2dplatform_2escm"),(void*)f_3740}, {C_text("f_3743:c_2dplatform_2escm"),(void*)f_3743}, {C_text("f_3746:c_2dplatform_2escm"),(void*)f_3746}, {C_text("f_3749:c_2dplatform_2escm"),(void*)f_3749}, {C_text("f_3752:c_2dplatform_2escm"),(void*)f_3752}, {C_text("f_3755:c_2dplatform_2escm"),(void*)f_3755}, {C_text("f_3758:c_2dplatform_2escm"),(void*)f_3758}, {C_text("f_3761:c_2dplatform_2escm"),(void*)f_3761}, {C_text("f_3764:c_2dplatform_2escm"),(void*)f_3764}, {C_text("f_3767:c_2dplatform_2escm"),(void*)f_3767}, {C_text("f_3770:c_2dplatform_2escm"),(void*)f_3770}, {C_text("f_3773:c_2dplatform_2escm"),(void*)f_3773}, {C_text("f_3776:c_2dplatform_2escm"),(void*)f_3776}, {C_text("f_3779:c_2dplatform_2escm"),(void*)f_3779}, {C_text("f_3782:c_2dplatform_2escm"),(void*)f_3782}, {C_text("f_3785:c_2dplatform_2escm"),(void*)f_3785}, {C_text("f_3788:c_2dplatform_2escm"),(void*)f_3788}, {C_text("f_3791:c_2dplatform_2escm"),(void*)f_3791}, {C_text("f_3794:c_2dplatform_2escm"),(void*)f_3794}, {C_text("f_3797:c_2dplatform_2escm"),(void*)f_3797}, {C_text("f_3800:c_2dplatform_2escm"),(void*)f_3800}, {C_text("f_3803:c_2dplatform_2escm"),(void*)f_3803}, {C_text("f_3806:c_2dplatform_2escm"),(void*)f_3806}, {C_text("f_3809:c_2dplatform_2escm"),(void*)f_3809}, {C_text("f_3812:c_2dplatform_2escm"),(void*)f_3812}, {C_text("f_3815:c_2dplatform_2escm"),(void*)f_3815}, {C_text("f_3818:c_2dplatform_2escm"),(void*)f_3818}, {C_text("f_3821:c_2dplatform_2escm"),(void*)f_3821}, {C_text("f_3824:c_2dplatform_2escm"),(void*)f_3824}, {C_text("f_3827:c_2dplatform_2escm"),(void*)f_3827}, {C_text("f_3830:c_2dplatform_2escm"),(void*)f_3830}, {C_text("f_3833:c_2dplatform_2escm"),(void*)f_3833}, {C_text("f_3836:c_2dplatform_2escm"),(void*)f_3836}, {C_text("f_3839:c_2dplatform_2escm"),(void*)f_3839}, {C_text("f_3842:c_2dplatform_2escm"),(void*)f_3842}, {C_text("f_3845:c_2dplatform_2escm"),(void*)f_3845}, {C_text("f_3848:c_2dplatform_2escm"),(void*)f_3848}, {C_text("f_3851:c_2dplatform_2escm"),(void*)f_3851}, {C_text("f_3854:c_2dplatform_2escm"),(void*)f_3854}, {C_text("f_3857:c_2dplatform_2escm"),(void*)f_3857}, {C_text("f_3860:c_2dplatform_2escm"),(void*)f_3860}, {C_text("f_3863:c_2dplatform_2escm"),(void*)f_3863}, {C_text("f_3866:c_2dplatform_2escm"),(void*)f_3866}, {C_text("f_3869:c_2dplatform_2escm"),(void*)f_3869}, {C_text("f_3872:c_2dplatform_2escm"),(void*)f_3872}, {C_text("f_3875:c_2dplatform_2escm"),(void*)f_3875}, {C_text("f_3878:c_2dplatform_2escm"),(void*)f_3878}, {C_text("f_3881:c_2dplatform_2escm"),(void*)f_3881}, {C_text("f_3884:c_2dplatform_2escm"),(void*)f_3884}, {C_text("f_3887:c_2dplatform_2escm"),(void*)f_3887}, {C_text("f_3890:c_2dplatform_2escm"),(void*)f_3890}, {C_text("f_3893:c_2dplatform_2escm"),(void*)f_3893}, {C_text("f_3896:c_2dplatform_2escm"),(void*)f_3896}, {C_text("f_3899:c_2dplatform_2escm"),(void*)f_3899}, {C_text("f_3902:c_2dplatform_2escm"),(void*)f_3902}, {C_text("f_3905:c_2dplatform_2escm"),(void*)f_3905}, {C_text("f_3908:c_2dplatform_2escm"),(void*)f_3908}, {C_text("f_3911:c_2dplatform_2escm"),(void*)f_3911}, {C_text("f_3914:c_2dplatform_2escm"),(void*)f_3914}, {C_text("f_3917:c_2dplatform_2escm"),(void*)f_3917}, {C_text("f_3920:c_2dplatform_2escm"),(void*)f_3920}, {C_text("f_3923:c_2dplatform_2escm"),(void*)f_3923}, {C_text("f_3926:c_2dplatform_2escm"),(void*)f_3926}, {C_text("f_3929:c_2dplatform_2escm"),(void*)f_3929}, {C_text("f_3932:c_2dplatform_2escm"),(void*)f_3932}, {C_text("f_3935:c_2dplatform_2escm"),(void*)f_3935}, {C_text("f_3938:c_2dplatform_2escm"),(void*)f_3938}, {C_text("f_3941:c_2dplatform_2escm"),(void*)f_3941}, {C_text("f_3944:c_2dplatform_2escm"),(void*)f_3944}, {C_text("f_3947:c_2dplatform_2escm"),(void*)f_3947}, {C_text("f_3950:c_2dplatform_2escm"),(void*)f_3950}, {C_text("f_3953:c_2dplatform_2escm"),(void*)f_3953}, {C_text("f_3956:c_2dplatform_2escm"),(void*)f_3956}, {C_text("f_3959:c_2dplatform_2escm"),(void*)f_3959}, {C_text("f_3962:c_2dplatform_2escm"),(void*)f_3962}, {C_text("f_3965:c_2dplatform_2escm"),(void*)f_3965}, {C_text("f_3968:c_2dplatform_2escm"),(void*)f_3968}, {C_text("f_3971:c_2dplatform_2escm"),(void*)f_3971}, {C_text("f_3974:c_2dplatform_2escm"),(void*)f_3974}, {C_text("f_3977:c_2dplatform_2escm"),(void*)f_3977}, {C_text("f_3980:c_2dplatform_2escm"),(void*)f_3980}, {C_text("f_3983:c_2dplatform_2escm"),(void*)f_3983}, {C_text("f_3986:c_2dplatform_2escm"),(void*)f_3986}, {C_text("f_3989:c_2dplatform_2escm"),(void*)f_3989}, {C_text("f_3992:c_2dplatform_2escm"),(void*)f_3992}, {C_text("f_3995:c_2dplatform_2escm"),(void*)f_3995}, {C_text("f_3998:c_2dplatform_2escm"),(void*)f_3998}, {C_text("f_4001:c_2dplatform_2escm"),(void*)f_4001}, {C_text("f_4004:c_2dplatform_2escm"),(void*)f_4004}, {C_text("f_4007:c_2dplatform_2escm"),(void*)f_4007}, {C_text("f_4010:c_2dplatform_2escm"),(void*)f_4010}, {C_text("f_4013:c_2dplatform_2escm"),(void*)f_4013}, {C_text("f_4016:c_2dplatform_2escm"),(void*)f_4016}, {C_text("f_4019:c_2dplatform_2escm"),(void*)f_4019}, {C_text("f_4022:c_2dplatform_2escm"),(void*)f_4022}, {C_text("f_4025:c_2dplatform_2escm"),(void*)f_4025}, {C_text("f_4028:c_2dplatform_2escm"),(void*)f_4028}, {C_text("f_4031:c_2dplatform_2escm"),(void*)f_4031}, {C_text("f_4034:c_2dplatform_2escm"),(void*)f_4034}, {C_text("f_4037:c_2dplatform_2escm"),(void*)f_4037}, {C_text("f_4040:c_2dplatform_2escm"),(void*)f_4040}, {C_text("f_4043:c_2dplatform_2escm"),(void*)f_4043}, {C_text("f_4046:c_2dplatform_2escm"),(void*)f_4046}, {C_text("f_4049:c_2dplatform_2escm"),(void*)f_4049}, {C_text("f_4052:c_2dplatform_2escm"),(void*)f_4052}, {C_text("f_4055:c_2dplatform_2escm"),(void*)f_4055}, {C_text("f_4058:c_2dplatform_2escm"),(void*)f_4058}, {C_text("f_4061:c_2dplatform_2escm"),(void*)f_4061}, {C_text("f_4064:c_2dplatform_2escm"),(void*)f_4064}, {C_text("f_4067:c_2dplatform_2escm"),(void*)f_4067}, {C_text("f_4070:c_2dplatform_2escm"),(void*)f_4070}, {C_text("f_4073:c_2dplatform_2escm"),(void*)f_4073}, {C_text("f_4076:c_2dplatform_2escm"),(void*)f_4076}, {C_text("f_4079:c_2dplatform_2escm"),(void*)f_4079}, {C_text("f_4082:c_2dplatform_2escm"),(void*)f_4082}, {C_text("f_4085:c_2dplatform_2escm"),(void*)f_4085}, {C_text("f_4088:c_2dplatform_2escm"),(void*)f_4088}, {C_text("f_4091:c_2dplatform_2escm"),(void*)f_4091}, {C_text("f_4094:c_2dplatform_2escm"),(void*)f_4094}, {C_text("f_4097:c_2dplatform_2escm"),(void*)f_4097}, {C_text("f_4100:c_2dplatform_2escm"),(void*)f_4100}, {C_text("f_4103:c_2dplatform_2escm"),(void*)f_4103}, {C_text("f_4106:c_2dplatform_2escm"),(void*)f_4106}, {C_text("f_4109:c_2dplatform_2escm"),(void*)f_4109}, {C_text("f_4112:c_2dplatform_2escm"),(void*)f_4112}, {C_text("f_4115:c_2dplatform_2escm"),(void*)f_4115}, {C_text("f_4118:c_2dplatform_2escm"),(void*)f_4118}, {C_text("f_4121:c_2dplatform_2escm"),(void*)f_4121}, {C_text("f_4124:c_2dplatform_2escm"),(void*)f_4124}, {C_text("f_4127:c_2dplatform_2escm"),(void*)f_4127}, {C_text("f_4130:c_2dplatform_2escm"),(void*)f_4130}, {C_text("f_4133:c_2dplatform_2escm"),(void*)f_4133}, {C_text("f_4136:c_2dplatform_2escm"),(void*)f_4136}, {C_text("f_4139:c_2dplatform_2escm"),(void*)f_4139}, {C_text("f_4142:c_2dplatform_2escm"),(void*)f_4142}, {C_text("f_4145:c_2dplatform_2escm"),(void*)f_4145}, {C_text("f_4148:c_2dplatform_2escm"),(void*)f_4148}, {C_text("f_4151:c_2dplatform_2escm"),(void*)f_4151}, {C_text("f_4154:c_2dplatform_2escm"),(void*)f_4154}, {C_text("f_4157:c_2dplatform_2escm"),(void*)f_4157}, {C_text("f_4160:c_2dplatform_2escm"),(void*)f_4160}, {C_text("f_4163:c_2dplatform_2escm"),(void*)f_4163}, {C_text("f_4166:c_2dplatform_2escm"),(void*)f_4166}, {C_text("f_4169:c_2dplatform_2escm"),(void*)f_4169}, {C_text("f_4172:c_2dplatform_2escm"),(void*)f_4172}, {C_text("f_4175:c_2dplatform_2escm"),(void*)f_4175}, {C_text("f_4178:c_2dplatform_2escm"),(void*)f_4178}, {C_text("f_4181:c_2dplatform_2escm"),(void*)f_4181}, {C_text("f_4184:c_2dplatform_2escm"),(void*)f_4184}, {C_text("f_4187:c_2dplatform_2escm"),(void*)f_4187}, {C_text("f_4190:c_2dplatform_2escm"),(void*)f_4190}, {C_text("f_4193:c_2dplatform_2escm"),(void*)f_4193}, {C_text("f_4196:c_2dplatform_2escm"),(void*)f_4196}, {C_text("f_4199:c_2dplatform_2escm"),(void*)f_4199}, {C_text("f_4202:c_2dplatform_2escm"),(void*)f_4202}, {C_text("f_4205:c_2dplatform_2escm"),(void*)f_4205}, {C_text("f_4208:c_2dplatform_2escm"),(void*)f_4208}, {C_text("f_4211:c_2dplatform_2escm"),(void*)f_4211}, {C_text("f_4214:c_2dplatform_2escm"),(void*)f_4214}, {C_text("f_4217:c_2dplatform_2escm"),(void*)f_4217}, {C_text("f_4220:c_2dplatform_2escm"),(void*)f_4220}, {C_text("f_4223:c_2dplatform_2escm"),(void*)f_4223}, {C_text("f_4226:c_2dplatform_2escm"),(void*)f_4226}, {C_text("f_4229:c_2dplatform_2escm"),(void*)f_4229}, {C_text("f_4232:c_2dplatform_2escm"),(void*)f_4232}, {C_text("f_4235:c_2dplatform_2escm"),(void*)f_4235}, {C_text("f_4238:c_2dplatform_2escm"),(void*)f_4238}, {C_text("f_4241:c_2dplatform_2escm"),(void*)f_4241}, {C_text("f_4244:c_2dplatform_2escm"),(void*)f_4244}, {C_text("f_4247:c_2dplatform_2escm"),(void*)f_4247}, {C_text("f_4250:c_2dplatform_2escm"),(void*)f_4250}, {C_text("f_4253:c_2dplatform_2escm"),(void*)f_4253}, {C_text("f_4256:c_2dplatform_2escm"),(void*)f_4256}, {C_text("f_4259:c_2dplatform_2escm"),(void*)f_4259}, {C_text("f_4262:c_2dplatform_2escm"),(void*)f_4262}, {C_text("f_4265:c_2dplatform_2escm"),(void*)f_4265}, {C_text("f_4268:c_2dplatform_2escm"),(void*)f_4268}, {C_text("f_4271:c_2dplatform_2escm"),(void*)f_4271}, {C_text("f_4274:c_2dplatform_2escm"),(void*)f_4274}, {C_text("f_4277:c_2dplatform_2escm"),(void*)f_4277}, {C_text("f_4280:c_2dplatform_2escm"),(void*)f_4280}, {C_text("f_4283:c_2dplatform_2escm"),(void*)f_4283}, {C_text("f_4286:c_2dplatform_2escm"),(void*)f_4286}, {C_text("f_4289:c_2dplatform_2escm"),(void*)f_4289}, {C_text("f_4292:c_2dplatform_2escm"),(void*)f_4292}, {C_text("f_4295:c_2dplatform_2escm"),(void*)f_4295}, {C_text("f_4298:c_2dplatform_2escm"),(void*)f_4298}, {C_text("f_4301:c_2dplatform_2escm"),(void*)f_4301}, {C_text("f_4304:c_2dplatform_2escm"),(void*)f_4304}, {C_text("f_4307:c_2dplatform_2escm"),(void*)f_4307}, {C_text("f_4310:c_2dplatform_2escm"),(void*)f_4310}, {C_text("f_4313:c_2dplatform_2escm"),(void*)f_4313}, {C_text("f_4316:c_2dplatform_2escm"),(void*)f_4316}, {C_text("f_4319:c_2dplatform_2escm"),(void*)f_4319}, {C_text("f_4322:c_2dplatform_2escm"),(void*)f_4322}, {C_text("f_4325:c_2dplatform_2escm"),(void*)f_4325}, {C_text("f_4328:c_2dplatform_2escm"),(void*)f_4328}, {C_text("f_4331:c_2dplatform_2escm"),(void*)f_4331}, {C_text("f_4334:c_2dplatform_2escm"),(void*)f_4334}, {C_text("f_4337:c_2dplatform_2escm"),(void*)f_4337}, {C_text("f_4340:c_2dplatform_2escm"),(void*)f_4340}, {C_text("f_4343:c_2dplatform_2escm"),(void*)f_4343}, {C_text("f_4346:c_2dplatform_2escm"),(void*)f_4346}, {C_text("f_4349:c_2dplatform_2escm"),(void*)f_4349}, {C_text("f_4352:c_2dplatform_2escm"),(void*)f_4352}, {C_text("f_4355:c_2dplatform_2escm"),(void*)f_4355}, {C_text("f_4358:c_2dplatform_2escm"),(void*)f_4358}, {C_text("f_4361:c_2dplatform_2escm"),(void*)f_4361}, {C_text("f_4364:c_2dplatform_2escm"),(void*)f_4364}, {C_text("f_4367:c_2dplatform_2escm"),(void*)f_4367}, {C_text("f_4370:c_2dplatform_2escm"),(void*)f_4370}, {C_text("f_4373:c_2dplatform_2escm"),(void*)f_4373}, {C_text("f_4376:c_2dplatform_2escm"),(void*)f_4376}, {C_text("f_4379:c_2dplatform_2escm"),(void*)f_4379}, {C_text("f_4382:c_2dplatform_2escm"),(void*)f_4382}, {C_text("f_4385:c_2dplatform_2escm"),(void*)f_4385}, {C_text("f_4388:c_2dplatform_2escm"),(void*)f_4388}, {C_text("f_4391:c_2dplatform_2escm"),(void*)f_4391}, {C_text("f_4394:c_2dplatform_2escm"),(void*)f_4394}, {C_text("f_4397:c_2dplatform_2escm"),(void*)f_4397}, {C_text("f_4400:c_2dplatform_2escm"),(void*)f_4400}, {C_text("f_4403:c_2dplatform_2escm"),(void*)f_4403}, {C_text("f_4406:c_2dplatform_2escm"),(void*)f_4406}, {C_text("f_4409:c_2dplatform_2escm"),(void*)f_4409}, {C_text("f_4412:c_2dplatform_2escm"),(void*)f_4412}, {C_text("f_4415:c_2dplatform_2escm"),(void*)f_4415}, {C_text("f_4418:c_2dplatform_2escm"),(void*)f_4418}, {C_text("f_4421:c_2dplatform_2escm"),(void*)f_4421}, {C_text("f_4424:c_2dplatform_2escm"),(void*)f_4424}, {C_text("f_4427:c_2dplatform_2escm"),(void*)f_4427}, {C_text("f_4430:c_2dplatform_2escm"),(void*)f_4430}, {C_text("f_4433:c_2dplatform_2escm"),(void*)f_4433}, {C_text("f_4436:c_2dplatform_2escm"),(void*)f_4436}, {C_text("f_4439:c_2dplatform_2escm"),(void*)f_4439}, {C_text("f_4442:c_2dplatform_2escm"),(void*)f_4442}, {C_text("f_4444:c_2dplatform_2escm"),(void*)f_4444}, {C_text("f_4481:c_2dplatform_2escm"),(void*)f_4481}, {C_text("f_4483:c_2dplatform_2escm"),(void*)f_4483}, {C_text("f_4490:c_2dplatform_2escm"),(void*)f_4490}, {C_text("f_4501:c_2dplatform_2escm"),(void*)f_4501}, {C_text("f_4522:c_2dplatform_2escm"),(void*)f_4522}, {C_text("f_4526:c_2dplatform_2escm"),(void*)f_4526}, {C_text("f_4539:c_2dplatform_2escm"),(void*)f_4539}, {C_text("f_4541:c_2dplatform_2escm"),(void*)f_4541}, {C_text("f_4563:c_2dplatform_2escm"),(void*)f_4563}, {C_text("f_4567:c_2dplatform_2escm"),(void*)f_4567}, {C_text("f_4577:c_2dplatform_2escm"),(void*)f_4577}, {C_text("f_4580:c_2dplatform_2escm"),(void*)f_4580}, {C_text("f_4583:c_2dplatform_2escm"),(void*)f_4583}, {C_text("f_4586:c_2dplatform_2escm"),(void*)f_4586}, {C_text("f_4589:c_2dplatform_2escm"),(void*)f_4589}, {C_text("f_4592:c_2dplatform_2escm"),(void*)f_4592}, {C_text("f_4595:c_2dplatform_2escm"),(void*)f_4595}, {C_text("f_4598:c_2dplatform_2escm"),(void*)f_4598}, {C_text("f_4601:c_2dplatform_2escm"),(void*)f_4601}, {C_text("f_4604:c_2dplatform_2escm"),(void*)f_4604}, {C_text("f_4607:c_2dplatform_2escm"),(void*)f_4607}, {C_text("f_4610:c_2dplatform_2escm"),(void*)f_4610}, {C_text("f_4613:c_2dplatform_2escm"),(void*)f_4613}, {C_text("f_4616:c_2dplatform_2escm"),(void*)f_4616}, {C_text("f_4619:c_2dplatform_2escm"),(void*)f_4619}, {C_text("f_4622:c_2dplatform_2escm"),(void*)f_4622}, {C_text("f_4625:c_2dplatform_2escm"),(void*)f_4625}, {C_text("f_4628:c_2dplatform_2escm"),(void*)f_4628}, {C_text("f_4631:c_2dplatform_2escm"),(void*)f_4631}, {C_text("f_4634:c_2dplatform_2escm"),(void*)f_4634}, {C_text("f_4637:c_2dplatform_2escm"),(void*)f_4637}, {C_text("f_4640:c_2dplatform_2escm"),(void*)f_4640}, {C_text("f_4643:c_2dplatform_2escm"),(void*)f_4643}, {C_text("f_4646:c_2dplatform_2escm"),(void*)f_4646}, {C_text("f_4649:c_2dplatform_2escm"),(void*)f_4649}, {C_text("f_4652:c_2dplatform_2escm"),(void*)f_4652}, {C_text("f_4655:c_2dplatform_2escm"),(void*)f_4655}, {C_text("f_4658:c_2dplatform_2escm"),(void*)f_4658}, {C_text("f_4661:c_2dplatform_2escm"),(void*)f_4661}, {C_text("f_4664:c_2dplatform_2escm"),(void*)f_4664}, {C_text("f_4667:c_2dplatform_2escm"),(void*)f_4667}, {C_text("f_4670:c_2dplatform_2escm"),(void*)f_4670}, {C_text("f_4673:c_2dplatform_2escm"),(void*)f_4673}, {C_text("f_4676:c_2dplatform_2escm"),(void*)f_4676}, {C_text("f_4679:c_2dplatform_2escm"),(void*)f_4679}, {C_text("f_4682:c_2dplatform_2escm"),(void*)f_4682}, {C_text("f_4685:c_2dplatform_2escm"),(void*)f_4685}, {C_text("f_4688:c_2dplatform_2escm"),(void*)f_4688}, {C_text("f_4691:c_2dplatform_2escm"),(void*)f_4691}, {C_text("f_4694:c_2dplatform_2escm"),(void*)f_4694}, {C_text("f_4697:c_2dplatform_2escm"),(void*)f_4697}, {C_text("f_4700:c_2dplatform_2escm"),(void*)f_4700}, {C_text("f_4703:c_2dplatform_2escm"),(void*)f_4703}, {C_text("f_4706:c_2dplatform_2escm"),(void*)f_4706}, {C_text("f_4709:c_2dplatform_2escm"),(void*)f_4709}, {C_text("f_4712:c_2dplatform_2escm"),(void*)f_4712}, {C_text("f_4715:c_2dplatform_2escm"),(void*)f_4715}, {C_text("f_4718:c_2dplatform_2escm"),(void*)f_4718}, {C_text("f_4721:c_2dplatform_2escm"),(void*)f_4721}, {C_text("f_4724:c_2dplatform_2escm"),(void*)f_4724}, {C_text("f_4727:c_2dplatform_2escm"),(void*)f_4727}, {C_text("f_4730:c_2dplatform_2escm"),(void*)f_4730}, {C_text("f_4733:c_2dplatform_2escm"),(void*)f_4733}, {C_text("f_4736:c_2dplatform_2escm"),(void*)f_4736}, {C_text("f_4739:c_2dplatform_2escm"),(void*)f_4739}, {C_text("f_4742:c_2dplatform_2escm"),(void*)f_4742}, {C_text("f_4745:c_2dplatform_2escm"),(void*)f_4745}, {C_text("f_4748:c_2dplatform_2escm"),(void*)f_4748}, {C_text("f_4751:c_2dplatform_2escm"),(void*)f_4751}, {C_text("f_4754:c_2dplatform_2escm"),(void*)f_4754}, {C_text("f_4757:c_2dplatform_2escm"),(void*)f_4757}, {C_text("f_4760:c_2dplatform_2escm"),(void*)f_4760}, {C_text("f_4763:c_2dplatform_2escm"),(void*)f_4763}, {C_text("f_4766:c_2dplatform_2escm"),(void*)f_4766}, {C_text("f_4769:c_2dplatform_2escm"),(void*)f_4769}, {C_text("f_4772:c_2dplatform_2escm"),(void*)f_4772}, {C_text("f_4775:c_2dplatform_2escm"),(void*)f_4775}, {C_text("f_4778:c_2dplatform_2escm"),(void*)f_4778}, {C_text("f_4781:c_2dplatform_2escm"),(void*)f_4781}, {C_text("f_4784:c_2dplatform_2escm"),(void*)f_4784}, {C_text("f_4787:c_2dplatform_2escm"),(void*)f_4787}, {C_text("f_4790:c_2dplatform_2escm"),(void*)f_4790}, {C_text("f_4793:c_2dplatform_2escm"),(void*)f_4793}, {C_text("f_4796:c_2dplatform_2escm"),(void*)f_4796}, {C_text("f_4799:c_2dplatform_2escm"),(void*)f_4799}, {C_text("f_4802:c_2dplatform_2escm"),(void*)f_4802}, {C_text("f_4805:c_2dplatform_2escm"),(void*)f_4805}, {C_text("f_4808:c_2dplatform_2escm"),(void*)f_4808}, {C_text("f_4811:c_2dplatform_2escm"),(void*)f_4811}, {C_text("f_4814:c_2dplatform_2escm"),(void*)f_4814}, {C_text("f_4817:c_2dplatform_2escm"),(void*)f_4817}, {C_text("f_4820:c_2dplatform_2escm"),(void*)f_4820}, {C_text("f_4823:c_2dplatform_2escm"),(void*)f_4823}, {C_text("f_4826:c_2dplatform_2escm"),(void*)f_4826}, {C_text("f_4829:c_2dplatform_2escm"),(void*)f_4829}, {C_text("f_4832:c_2dplatform_2escm"),(void*)f_4832}, {C_text("f_4835:c_2dplatform_2escm"),(void*)f_4835}, {C_text("f_4838:c_2dplatform_2escm"),(void*)f_4838}, {C_text("f_4841:c_2dplatform_2escm"),(void*)f_4841}, {C_text("f_4844:c_2dplatform_2escm"),(void*)f_4844}, {C_text("f_4847:c_2dplatform_2escm"),(void*)f_4847}, {C_text("f_4850:c_2dplatform_2escm"),(void*)f_4850}, {C_text("f_4853:c_2dplatform_2escm"),(void*)f_4853}, {C_text("f_4856:c_2dplatform_2escm"),(void*)f_4856}, {C_text("f_4859:c_2dplatform_2escm"),(void*)f_4859}, {C_text("f_4862:c_2dplatform_2escm"),(void*)f_4862}, {C_text("f_4865:c_2dplatform_2escm"),(void*)f_4865}, {C_text("f_4868:c_2dplatform_2escm"),(void*)f_4868}, {C_text("f_4871:c_2dplatform_2escm"),(void*)f_4871}, {C_text("f_4874:c_2dplatform_2escm"),(void*)f_4874}, {C_text("f_4877:c_2dplatform_2escm"),(void*)f_4877}, {C_text("f_4880:c_2dplatform_2escm"),(void*)f_4880}, {C_text("f_4883:c_2dplatform_2escm"),(void*)f_4883}, {C_text("f_4886:c_2dplatform_2escm"),(void*)f_4886}, {C_text("f_4889:c_2dplatform_2escm"),(void*)f_4889}, {C_text("f_4892:c_2dplatform_2escm"),(void*)f_4892}, {C_text("f_4895:c_2dplatform_2escm"),(void*)f_4895}, {C_text("f_4898:c_2dplatform_2escm"),(void*)f_4898}, {C_text("f_4901:c_2dplatform_2escm"),(void*)f_4901}, {C_text("f_4904:c_2dplatform_2escm"),(void*)f_4904}, {C_text("f_4907:c_2dplatform_2escm"),(void*)f_4907}, {C_text("f_4910:c_2dplatform_2escm"),(void*)f_4910}, {C_text("f_4913:c_2dplatform_2escm"),(void*)f_4913}, {C_text("f_4916:c_2dplatform_2escm"),(void*)f_4916}, {C_text("f_4919:c_2dplatform_2escm"),(void*)f_4919}, {C_text("f_4922:c_2dplatform_2escm"),(void*)f_4922}, {C_text("f_4925:c_2dplatform_2escm"),(void*)f_4925}, {C_text("f_4928:c_2dplatform_2escm"),(void*)f_4928}, {C_text("f_4931:c_2dplatform_2escm"),(void*)f_4931}, {C_text("f_4934:c_2dplatform_2escm"),(void*)f_4934}, {C_text("f_4937:c_2dplatform_2escm"),(void*)f_4937}, {C_text("f_4940:c_2dplatform_2escm"),(void*)f_4940}, {C_text("f_4943:c_2dplatform_2escm"),(void*)f_4943}, {C_text("f_4946:c_2dplatform_2escm"),(void*)f_4946}, {C_text("f_4949:c_2dplatform_2escm"),(void*)f_4949}, {C_text("f_4952:c_2dplatform_2escm"),(void*)f_4952}, {C_text("f_4955:c_2dplatform_2escm"),(void*)f_4955}, {C_text("f_4958:c_2dplatform_2escm"),(void*)f_4958}, {C_text("f_4961:c_2dplatform_2escm"),(void*)f_4961}, {C_text("f_4964:c_2dplatform_2escm"),(void*)f_4964}, {C_text("f_4967:c_2dplatform_2escm"),(void*)f_4967}, {C_text("f_4970:c_2dplatform_2escm"),(void*)f_4970}, {C_text("f_4973:c_2dplatform_2escm"),(void*)f_4973}, {C_text("f_4976:c_2dplatform_2escm"),(void*)f_4976}, {C_text("f_4979:c_2dplatform_2escm"),(void*)f_4979}, {C_text("f_4982:c_2dplatform_2escm"),(void*)f_4982}, {C_text("f_4985:c_2dplatform_2escm"),(void*)f_4985}, {C_text("f_4988:c_2dplatform_2escm"),(void*)f_4988}, {C_text("f_4991:c_2dplatform_2escm"),(void*)f_4991}, {C_text("f_4994:c_2dplatform_2escm"),(void*)f_4994}, {C_text("f_4997:c_2dplatform_2escm"),(void*)f_4997}, {C_text("f_5000:c_2dplatform_2escm"),(void*)f_5000}, {C_text("f_5003:c_2dplatform_2escm"),(void*)f_5003}, {C_text("f_5006:c_2dplatform_2escm"),(void*)f_5006}, {C_text("f_5009:c_2dplatform_2escm"),(void*)f_5009}, {C_text("f_5012:c_2dplatform_2escm"),(void*)f_5012}, {C_text("f_5015:c_2dplatform_2escm"),(void*)f_5015}, {C_text("f_5018:c_2dplatform_2escm"),(void*)f_5018}, {C_text("f_5021:c_2dplatform_2escm"),(void*)f_5021}, {C_text("f_5024:c_2dplatform_2escm"),(void*)f_5024}, {C_text("f_5027:c_2dplatform_2escm"),(void*)f_5027}, {C_text("f_5030:c_2dplatform_2escm"),(void*)f_5030}, {C_text("f_5033:c_2dplatform_2escm"),(void*)f_5033}, {C_text("f_5036:c_2dplatform_2escm"),(void*)f_5036}, {C_text("f_5039:c_2dplatform_2escm"),(void*)f_5039}, {C_text("f_5042:c_2dplatform_2escm"),(void*)f_5042}, {C_text("f_5045:c_2dplatform_2escm"),(void*)f_5045}, {C_text("f_5048:c_2dplatform_2escm"),(void*)f_5048}, {C_text("f_5051:c_2dplatform_2escm"),(void*)f_5051}, {C_text("f_5054:c_2dplatform_2escm"),(void*)f_5054}, {C_text("f_5057:c_2dplatform_2escm"),(void*)f_5057}, {C_text("f_5060:c_2dplatform_2escm"),(void*)f_5060}, {C_text("f_5063:c_2dplatform_2escm"),(void*)f_5063}, {C_text("f_5066:c_2dplatform_2escm"),(void*)f_5066}, {C_text("f_5069:c_2dplatform_2escm"),(void*)f_5069}, {C_text("f_5072:c_2dplatform_2escm"),(void*)f_5072}, {C_text("f_5075:c_2dplatform_2escm"),(void*)f_5075}, {C_text("f_5078:c_2dplatform_2escm"),(void*)f_5078}, {C_text("f_5081:c_2dplatform_2escm"),(void*)f_5081}, {C_text("f_5084:c_2dplatform_2escm"),(void*)f_5084}, {C_text("f_5087:c_2dplatform_2escm"),(void*)f_5087}, {C_text("f_5090:c_2dplatform_2escm"),(void*)f_5090}, {C_text("f_5093:c_2dplatform_2escm"),(void*)f_5093}, {C_text("f_5096:c_2dplatform_2escm"),(void*)f_5096}, {C_text("f_5099:c_2dplatform_2escm"),(void*)f_5099}, {C_text("f_5102:c_2dplatform_2escm"),(void*)f_5102}, {C_text("f_5105:c_2dplatform_2escm"),(void*)f_5105}, {C_text("f_5108:c_2dplatform_2escm"),(void*)f_5108}, {C_text("f_5111:c_2dplatform_2escm"),(void*)f_5111}, {C_text("f_5114:c_2dplatform_2escm"),(void*)f_5114}, {C_text("f_5117:c_2dplatform_2escm"),(void*)f_5117}, {C_text("f_5120:c_2dplatform_2escm"),(void*)f_5120}, {C_text("f_5123:c_2dplatform_2escm"),(void*)f_5123}, {C_text("f_5126:c_2dplatform_2escm"),(void*)f_5126}, {C_text("f_5129:c_2dplatform_2escm"),(void*)f_5129}, {C_text("f_5132:c_2dplatform_2escm"),(void*)f_5132}, {C_text("f_5135:c_2dplatform_2escm"),(void*)f_5135}, {C_text("f_5138:c_2dplatform_2escm"),(void*)f_5138}, {C_text("f_5141:c_2dplatform_2escm"),(void*)f_5141}, {C_text("f_5144:c_2dplatform_2escm"),(void*)f_5144}, {C_text("f_5147:c_2dplatform_2escm"),(void*)f_5147}, {C_text("f_5149:c_2dplatform_2escm"),(void*)f_5149}, {C_text("f_5171:c_2dplatform_2escm"),(void*)f_5171}, {C_text("f_5186:c_2dplatform_2escm"),(void*)f_5186}, {C_text("f_5189:c_2dplatform_2escm"),(void*)f_5189}, {C_text("f_5204:c_2dplatform_2escm"),(void*)f_5204}, {C_text("f_5216:c_2dplatform_2escm"),(void*)f_5216}, {C_text("f_5224:c_2dplatform_2escm"),(void*)f_5224}, {C_text("f_5226:c_2dplatform_2escm"),(void*)f_5226}, {C_text("f_5247:c_2dplatform_2escm"),(void*)f_5247}, {C_text("f_5251:c_2dplatform_2escm"),(void*)f_5251}, {C_text("f_5254:c_2dplatform_2escm"),(void*)f_5254}, {C_text("f_5257:c_2dplatform_2escm"),(void*)f_5257}, {C_text("f_5259:c_2dplatform_2escm"),(void*)f_5259}, {C_text("f_5278:c_2dplatform_2escm"),(void*)f_5278}, {C_text("f_5295:c_2dplatform_2escm"),(void*)f_5295}, {C_text("f_5338:c_2dplatform_2escm"),(void*)f_5338}, {C_text("f_5342:c_2dplatform_2escm"),(void*)f_5342}, {C_text("f_5346:c_2dplatform_2escm"),(void*)f_5346}, {C_text("f_5350:c_2dplatform_2escm"),(void*)f_5350}, {C_text("f_5357:c_2dplatform_2escm"),(void*)f_5357}, {C_text("f_5361:c_2dplatform_2escm"),(void*)f_5361}, {C_text("f_5369:c_2dplatform_2escm"),(void*)f_5369}, {C_text("f_5373:c_2dplatform_2escm"),(void*)f_5373}, {C_text("f_5381:c_2dplatform_2escm"),(void*)f_5381}, {C_text("f_5384:c_2dplatform_2escm"),(void*)f_5384}, {C_text("f_5388:c_2dplatform_2escm"),(void*)f_5388}, {C_text("f_5391:c_2dplatform_2escm"),(void*)f_5391}, {C_text("f_5394:c_2dplatform_2escm"),(void*)f_5394}, {C_text("f_5397:c_2dplatform_2escm"),(void*)f_5397}, {C_text("f_5400:c_2dplatform_2escm"),(void*)f_5400}, {C_text("f_5403:c_2dplatform_2escm"),(void*)f_5403}, {C_text("f_5406:c_2dplatform_2escm"),(void*)f_5406}, {C_text("f_5409:c_2dplatform_2escm"),(void*)f_5409}, {C_text("f_5412:c_2dplatform_2escm"),(void*)f_5412}, {C_text("f_5415:c_2dplatform_2escm"),(void*)f_5415}, {C_text("f_5418:c_2dplatform_2escm"),(void*)f_5418}, {C_text("f_5421:c_2dplatform_2escm"),(void*)f_5421}, {C_text("f_5424:c_2dplatform_2escm"),(void*)f_5424}, {C_text("f_5427:c_2dplatform_2escm"),(void*)f_5427}, {C_text("f_5430:c_2dplatform_2escm"),(void*)f_5430}, {C_text("f_5433:c_2dplatform_2escm"),(void*)f_5433}, {C_text("f_5435:c_2dplatform_2escm"),(void*)f_5435}, {C_text("f_5457:c_2dplatform_2escm"),(void*)f_5457}, {C_text("f_5475:c_2dplatform_2escm"),(void*)f_5475}, {C_text("f_5497:c_2dplatform_2escm"),(void*)f_5497}, {C_text("f_5515:c_2dplatform_2escm"),(void*)f_5515}, {C_text("f_5540:c_2dplatform_2escm"),(void*)f_5540}, {C_text("f_5561:c_2dplatform_2escm"),(void*)f_5561}, {C_text("f_5569:c_2dplatform_2escm"),(void*)f_5569}, {C_text("f_5573:c_2dplatform_2escm"),(void*)f_5573}, {C_text("f_5580:c_2dplatform_2escm"),(void*)f_5580}, {C_text("f_5608:c_2dplatform_2escm"),(void*)f_5608}, {C_text("f_5611:c_2dplatform_2escm"),(void*)f_5611}, {C_text("f_5642:c_2dplatform_2escm"),(void*)f_5642}, {C_text("f_5664:c_2dplatform_2escm"),(void*)f_5664}, {C_text("f_5687:c_2dplatform_2escm"),(void*)f_5687}, {C_text("f_5691:c_2dplatform_2escm"),(void*)f_5691}, {C_text("f_5695:c_2dplatform_2escm"),(void*)f_5695}, {C_text("f_5702:c_2dplatform_2escm"),(void*)f_5702}, {C_text("f_5724:c_2dplatform_2escm"),(void*)f_5724}, {C_text("f_5734:c_2dplatform_2escm"),(void*)f_5734}, {C_text("f_5748:c_2dplatform_2escm"),(void*)f_5748}, {C_text("f_5752:c_2dplatform_2escm"),(void*)f_5752}, {C_text("f_5759:c_2dplatform_2escm"),(void*)f_5759}, {C_text("f_5790:c_2dplatform_2escm"),(void*)f_5790}, {C_text("f_5793:c_2dplatform_2escm"),(void*)f_5793}, {C_text("f_5808:c_2dplatform_2escm"),(void*)f_5808}, {C_text("f_5825:c_2dplatform_2escm"),(void*)f_5825}, {C_text("f_5829:c_2dplatform_2escm"),(void*)f_5829}, {C_text("f_5836:c_2dplatform_2escm"),(void*)f_5836}, {C_text("f_5846:c_2dplatform_2escm"),(void*)f_5846}, {C_text("f_5867:c_2dplatform_2escm"),(void*)f_5867}, {C_text("f_5895:c_2dplatform_2escm"),(void*)f_5895}, {C_text("f_5897:c_2dplatform_2escm"),(void*)f_5897}, {C_text("f_5920:c_2dplatform_2escm"),(void*)f_5920}, {C_text("f_5922:c_2dplatform_2escm"),(void*)f_5922}, {C_text("f_5941:c_2dplatform_2escm"),(void*)f_5941}, {C_text("f_5945:c_2dplatform_2escm"),(void*)f_5945}, {C_text("f_5960:c_2dplatform_2escm"),(void*)f_5960}, {C_text("f_5970:c_2dplatform_2escm"),(void*)f_5970}, {C_text("f_5991:c_2dplatform_2escm"),(void*)f_5991}, {C_text("f_6019:c_2dplatform_2escm"),(void*)f_6019}, {C_text("f_6021:c_2dplatform_2escm"),(void*)f_6021}, {C_text("f_6044:c_2dplatform_2escm"),(void*)f_6044}, {C_text("f_6046:c_2dplatform_2escm"),(void*)f_6046}, {C_text("f_6065:c_2dplatform_2escm"),(void*)f_6065}, {C_text("f_6069:c_2dplatform_2escm"),(void*)f_6069}, {C_text("f_6084:c_2dplatform_2escm"),(void*)f_6084}, {C_text("f_6088:c_2dplatform_2escm"),(void*)f_6088}, {C_text("f_6109:c_2dplatform_2escm"),(void*)f_6109}, {C_text("f_6151:c_2dplatform_2escm"),(void*)f_6151}, {C_text("f_6153:c_2dplatform_2escm"),(void*)f_6153}, {C_text("f_6160:c_2dplatform_2escm"),(void*)f_6160}, {C_text("f_6171:c_2dplatform_2escm"),(void*)f_6171}, {C_text("f_6192:c_2dplatform_2escm"),(void*)f_6192}, {C_text("f_6196:c_2dplatform_2escm"),(void*)f_6196}, {C_text("f_6202:c_2dplatform_2escm"),(void*)f_6202}, {C_text("f_6224:c_2dplatform_2escm"),(void*)f_6224}, {C_text("f_6228:c_2dplatform_2escm"),(void*)f_6228}, {C_text("f_6230:c_2dplatform_2escm"),(void*)f_6230}, {C_text("f_6246:c_2dplatform_2escm"),(void*)f_6246}, {C_text("f_6252:c_2dplatform_2escm"),(void*)f_6252}, {C_text("f_6270:c_2dplatform_2escm"),(void*)f_6270}, {C_text("f_6273:c_2dplatform_2escm"),(void*)f_6273}, {C_text("f_6276:c_2dplatform_2escm"),(void*)f_6276}, {C_text("f_6291:c_2dplatform_2escm"),(void*)f_6291}, {C_text("f_6303:c_2dplatform_2escm"),(void*)f_6303}, {C_text("f_6313:c_2dplatform_2escm"),(void*)f_6313}, {C_text("f_6317:c_2dplatform_2escm"),(void*)f_6317}, {C_text("f_6326:c_2dplatform_2escm"),(void*)f_6326}, {C_text("f_6336:c_2dplatform_2escm"),(void*)f_6336}, {C_text("f_6340:c_2dplatform_2escm"),(void*)f_6340}, {C_text("f_6370:c_2dplatform_2escm"),(void*)f_6370}, {C_text("f_6374:c_2dplatform_2escm"),(void*)f_6374}, {C_text("f_6378:c_2dplatform_2escm"),(void*)f_6378}, {C_text("f_6382:c_2dplatform_2escm"),(void*)f_6382}, {C_text("f_6386:c_2dplatform_2escm"),(void*)f_6386}, {C_text("f_6395:c_2dplatform_2escm"),(void*)f_6395}, {C_text("f_6399:c_2dplatform_2escm"),(void*)f_6399}, {C_text("f_6401:c_2dplatform_2escm"),(void*)f_6401}, {C_text("f_6411:c_2dplatform_2escm"),(void*)f_6411}, {C_text("f_6424:c_2dplatform_2escm"),(void*)f_6424}, {C_text("f_6449:c_2dplatform_2escm"),(void*)f_6449}, {C_text("toplevel:c_2dplatform_2escm"),(void*)C_c_2dplatform_toplevel}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|hiding unexported module binding: chicken.compiler.c-platform#partition o|hiding unexported module binding: chicken.compiler.c-platform#span o|hiding unexported module binding: chicken.compiler.c-platform#take o|hiding unexported module binding: chicken.compiler.c-platform#drop o|hiding unexported module binding: chicken.compiler.c-platform#split-at o|hiding unexported module binding: chicken.compiler.c-platform#append-map o|hiding unexported module binding: chicken.compiler.c-platform#every o|hiding unexported module binding: chicken.compiler.c-platform#any o|hiding unexported module binding: chicken.compiler.c-platform#cons* o|hiding unexported module binding: chicken.compiler.c-platform#concatenate o|hiding unexported module binding: chicken.compiler.c-platform#delete o|hiding unexported module binding: chicken.compiler.c-platform#first o|hiding unexported module binding: chicken.compiler.c-platform#second o|hiding unexported module binding: chicken.compiler.c-platform#third o|hiding unexported module binding: chicken.compiler.c-platform#fourth o|hiding unexported module binding: chicken.compiler.c-platform#fifth o|hiding unexported module binding: chicken.compiler.c-platform#delete-duplicates o|hiding unexported module binding: chicken.compiler.c-platform#alist-cons o|hiding unexported module binding: chicken.compiler.c-platform#filter o|hiding unexported module binding: chicken.compiler.c-platform#filter-map o|hiding unexported module binding: chicken.compiler.c-platform#remove o|hiding unexported module binding: chicken.compiler.c-platform#unzip1 o|hiding unexported module binding: chicken.compiler.c-platform#last o|hiding unexported module binding: chicken.compiler.c-platform#list-index o|hiding unexported module binding: chicken.compiler.c-platform#lset-adjoin/eq? o|hiding unexported module binding: chicken.compiler.c-platform#lset-difference/eq? o|hiding unexported module binding: chicken.compiler.c-platform#lset-union/eq? o|hiding unexported module binding: chicken.compiler.c-platform#lset-intersection/eq? o|hiding unexported module binding: chicken.compiler.c-platform#list-tabulate o|hiding unexported module binding: chicken.compiler.c-platform#lset<=/eq? o|hiding unexported module binding: chicken.compiler.c-platform#lset=/eq? o|hiding unexported module binding: chicken.compiler.c-platform#length+ o|hiding unexported module binding: chicken.compiler.c-platform#find o|hiding unexported module binding: chicken.compiler.c-platform#find-tail o|hiding unexported module binding: chicken.compiler.c-platform#iota o|hiding unexported module binding: chicken.compiler.c-platform#make-list o|hiding unexported module binding: chicken.compiler.c-platform#posq o|hiding unexported module binding: chicken.compiler.c-platform#posv o|hiding unexported module binding: chicken.compiler.c-platform#constant577 o|hiding unexported module binding: chicken.compiler.c-platform#constant581 o|hiding unexported module binding: chicken.compiler.c-platform#constant585 o|hiding unexported module binding: chicken.compiler.c-platform#setter-map S|applied compiler syntax: S| scheme#for-each 1 S| chicken.base#foldl 3 S| scheme#map 5 S| chicken.base#foldr 3 o|eliminated procedure checks: 34 o|specializations: o| 1 (chicken.base#add1 fixnum) o| 1 (scheme#- *) o| 1 (scheme#negative? *) o| 4 (scheme#>= fixnum fixnum) o| 2 (scheme#zero? *) o| 1 (scheme#length list) o| 1 (scheme#memq * list) o| 15 (scheme#= fixnum fixnum) o| 1 (scheme#eqv? * *) o| 5 (##sys#check-list (or pair list) *) o| 26 (scheme#cdr pair) o| 10 (scheme#car pair) (o e)|safe calls: 461 (o e)|assignments to immediate values: 1 o|safe globals: (chicken.compiler.c-platform#posv chicken.compiler.c-platform#posq chicken.compiler.c-platform#make-list chicken.compiler.c-platform#iota chicken.compiler.c-platform#find-tail chicken.compiler.c-platform#find chicken.compiler.c-platform#length+ chicken.compiler.c-platform#lset=/eq? chicken.compiler.c-platform#lset<=/eq? chicken.compiler.c-platform#list-tabulate chicken.compiler.c-platform#lset-intersection/eq? chicken.compiler.c-platform#lset-union/eq? chicken.compiler.c-platform#lset-difference/eq? chicken.compiler.c-platform#lset-adjoin/eq? chicken.compiler.c-platform#list-index chicken.compiler.c-platform#last chicken.compiler.c-platform#unzip1 chicken.compiler.c-platform#remove chicken.compiler.c-platform#filter-map chicken.compiler.c-platform#filter chicken.compiler.c-platform#alist-cons chicken.compiler.c-platform#delete-duplicates chicken.compiler.c-platform#fifth chicken.compiler.c-platform#fourth chicken.compiler.c-platform#third chicken.compiler.c-platform#second chicken.compiler.c-platform#first chicken.compiler.c-platform#delete chicken.compiler.c-platform#concatenate chicken.compiler.c-platform#cons* chicken.compiler.c-platform#any chicken.compiler.c-platform#every chicken.compiler.c-platform#append-map chicken.compiler.c-platform#split-at chicken.compiler.c-platform#drop chicken.compiler.c-platform#take chicken.compiler.c-platform#span chicken.compiler.c-platform#partition) o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#partition o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#span o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#drop o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#split-at o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#append-map o|inlining procedure: k2064 o|inlining procedure: k2064 o|inlining procedure: k2095 o|inlining procedure: k2095 o|merged explicitly consed rest parameter: xs203 o|inlining procedure: k2125 o|inlining procedure: k2125 o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#concatenate o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#fourth o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#fifth o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#delete-duplicates o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#alist-cons o|inlining procedure: k2312 o|inlining procedure: k2312 o|inlining procedure: k2304 o|inlining procedure: k2304 o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#filter-map o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#remove o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#unzip1 o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#list-index o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#lset-adjoin/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#lset-difference/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#lset-union/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#lset-intersection/eq? o|inlining procedure: k2703 o|inlining procedure: k2703 o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#lset<=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#lset=/eq? o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#length+ o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#find o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#find-tail o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#iota o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#make-list o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#posq o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#posv o|inlining procedure: k3013 o|inlining procedure: k3031 o|inlining procedure: k3045 o|inlining procedure: k3045 o|inlining procedure: k3031 o|inlining procedure: k3013 o|substituted constant variable: a3071 o|inlining procedure: k3081 o|inlining procedure: k3099 o|inlining procedure: k3099 o|inlining procedure: k3123 o|inlining procedure: "(c-platform.scm:331) chicken.compiler.c-platform#first" o|inlining procedure: k3123 o|inlining procedure: k3162 o|inlining procedure: k3162 o|inlining procedure: "(c-platform.scm:328) chicken.compiler.c-platform#first" o|inlining procedure: k3183 o|inlining procedure: k3183 o|inlining procedure: "(c-platform.scm:322) chicken.compiler.c-platform#second" o|inlining procedure: "(c-platform.scm:321) chicken.compiler.c-platform#first" o|inlining procedure: k3081 o|substituted constant variable: a3230 o|inlining procedure: k3243 o|consed rest parameter at call site: "(c-platform.scm:377) chicken.compiler.c-platform#cons*" 2 o|inlining procedure: k3298 o|inlining procedure: k3298 o|inlining procedure: "(c-platform.scm:379) chicken.compiler.c-platform#first" o|inlining procedure: "(c-platform.scm:377) chicken.compiler.c-platform#first" o|inlining procedure: k3340 o|inlining procedure: k3340 o|consed rest parameter at call site: "(c-platform.scm:392) chicken.compiler.c-platform#cons*" 2 o|inlining procedure: k3361 o|substituted constant variable: a3374 o|inlining procedure: k3375 o|inlining procedure: k3375 o|inlining procedure: k3361 o|substituted constant variable: a3404 o|contracted procedure: "(c-platform.scm:372) chicken.compiler.c-platform#last" o|inlining procedure: k2461 o|inlining procedure: k2461 o|inlining procedure: k3243 o|inlining procedure: k3432 o|inlining procedure: k3459 o|inlining procedure: k3459 o|inlining procedure: "(c-platform.scm:407) chicken.compiler.c-platform#first" o|inlining procedure: k3432 o|substituted constant variable: a3489 o|inlining procedure: k3510 o|inlining procedure: k3510 o|substituted constant variable: a3531 o|inlining procedure: k3541 o|inlining procedure: k3559 o|inlining procedure: k3574 o|inlining procedure: k3586 o|substituted constant variable: a3674 o|inlining procedure: k3586 o|inlining procedure: "(c-platform.scm:443) chicken.compiler.c-platform#third" o|inlining procedure: k3574 o|inlining procedure: k3559 o|inlining procedure: k3541 o|substituted constant variable: a3697 o|inlining procedure: k4446 o|inlining procedure: k4461 o|inlining procedure: k4485 o|inlining procedure: k4485 o|inlining procedure: "(c-platform.scm:852) chicken.compiler.c-platform#first" o|inlining procedure: k4461 o|substituted constant variable: a4531 o|inlining procedure: k4547 o|inlining procedure: "(c-platform.scm:843) chicken.compiler.c-platform#first" o|inlining procedure: k4547 o|substituted constant variable: a4574 o|inlining procedure: k4446 o|inlining procedure: k5154 o|inlining procedure: k5175 o|inlining procedure: "(c-platform.scm:1153) chicken.compiler.c-platform#second" o|inlining procedure: k5175 o|inlining procedure: "(c-platform.scm:1149) chicken.compiler.c-platform#first" o|inlining procedure: "(c-platform.scm:1146) chicken.compiler.c-platform#first" o|inlining procedure: k5154 o|inlining procedure: k5261 o|inlining procedure: k5279 o|inlining procedure: k5297 o|inlining procedure: k5312 o|inlining procedure: k5312 o|inlining procedure: "(c-platform.scm:1182) chicken.compiler.c-platform#second" o|inlining procedure: k5297 o|inlining procedure: "(c-platform.scm:1177) chicken.compiler.c-platform#third" o|inlining procedure: k5279 o|inlining procedure: "(c-platform.scm:1175) chicken.compiler.c-platform#first" o|inlining procedure: "(c-platform.scm:1173) chicken.compiler.c-platform#first" o|inlining procedure: k5261 o|substituted constant variable: a5374 o|inlining procedure: k5437 o|inlining procedure: k5463 o|inlining procedure: k5463 o|inlining procedure: k5437 o|substituted constant variable: a5469 o|inlining procedure: k5477 o|inlining procedure: k5503 o|inlining procedure: k5503 o|inlining procedure: k5477 o|substituted constant variable: a5509 o|inlining procedure: k5517 o|inlining procedure: k5535 o|substituted constant variable: chicken.compiler.c-platform#setter-map o|inlining procedure: k5535 o|inlining procedure: k5517 o|substituted constant variable: a5574 o|inlining procedure: k5582 o|inlining procedure: k5609 o|inlining procedure: k5609 o|inlining procedure: k5631 o|inlining procedure: k5643 o|inlining procedure: "(c-platform.scm:1029) chicken.compiler.c-platform#first" o|inlining procedure: "(c-platform.scm:1032) chicken.compiler.c-platform#first" o|inlining procedure: k5643 o|inlining procedure: "(c-platform.scm:1024) chicken.compiler.c-platform#first" o|inlining procedure: k5631 o|inlining procedure: "(c-platform.scm:1018) chicken.compiler.c-platform#second" o|inlining procedure: k5582 o|substituted constant variable: a5696 o|inlining procedure: k5704 o|inlining procedure: k5729 o|inlining procedure: k5729 o|inlining procedure: "(c-platform.scm:989) chicken.compiler.c-platform#first" o|inlining procedure: "(c-platform.scm:987) chicken.compiler.c-platform#third" o|inlining procedure: k5704 o|substituted constant variable: a5757 o|inlining procedure: k5761 o|inlining procedure: k5788 o|inlining procedure: "(c-platform.scm:874) chicken.compiler.c-platform#first" o|inlining procedure: k5788 o|inlining procedure: "(c-platform.scm:871) chicken.compiler.c-platform#first" o|inlining procedure: "(c-platform.scm:868) chicken.compiler.c-platform#second" o|substituted constant variable: a5834 o|inlining procedure: k5761 o|inlining procedure: k5838 o|inlining procedure: k5838 o|inlining procedure: k5869 o|inlining procedure: k5869 o|inlining procedure: k5875 o|inlining procedure: k5875 o|substituted constant variable: a5914 o|inlining procedure: k5928 o|inlining procedure: "(c-platform.scm:817) chicken.compiler.c-platform#first" o|inlining procedure: k5928 o|inlining procedure: k5962 o|inlining procedure: k5962 o|inlining procedure: k5993 o|inlining procedure: k5993 o|inlining procedure: k5999 o|inlining procedure: k5999 o|substituted constant variable: a6038 o|inlining procedure: k6052 o|inlining procedure: "(c-platform.scm:780) chicken.compiler.c-platform#first" o|inlining procedure: k6052 o|inlining procedure: k6089 o|inlining procedure: k6089 o|inlining procedure: "(c-platform.scm:744) chicken.compiler.c-platform#first" o|inlining procedure: k6131 o|inlining procedure: k6155 o|inlining procedure: k6155 o|inlining procedure: "(c-platform.scm:752) chicken.compiler.c-platform#first" o|inlining procedure: k6131 o|inlining procedure: k6208 o|inlining procedure: "(c-platform.scm:740) chicken.compiler.c-platform#first" o|inlining procedure: k6208 o|inlining procedure: k6232 o|inlining procedure: k6253 o|inlining procedure: k6253 o|inlining procedure: k6292 o|inlining procedure: "(c-platform.scm:356) chicken.compiler.c-platform#first" o|inlining procedure: k6292 o|inlining procedure: k6327 o|inlining procedure: k6327 o|inlining procedure: "(c-platform.scm:353) chicken.compiler.c-platform#first" o|inlining procedure: k6344 o|inlining procedure: k6344 o|inlining procedure: "(c-platform.scm:347) chicken.compiler.c-platform#second" o|inlining procedure: "(c-platform.scm:346) chicken.compiler.c-platform#first" o|inlining procedure: k6232 o|substituted constant variable: a6391 o|inlining procedure: k6403 o|contracted procedure: "(c-platform.scm:283) g590597" o|propagated global variable: g605606 chicken.compiler.support#mark-variable o|inlining procedure: k6403 o|substituted constant variable: chicken.compiler.c-platform#constant581 o|substituted constant variable: chicken.compiler.c-platform#constant577 o|substituted constant variable: chicken.compiler.c-platform#constant585 o|inlining procedure: k6426 o|contracted procedure: "(c-platform.scm:120) g557566" o|inlining procedure: k6426 o|simplifications: ((if . 1)) o|replaced variables: 448 o|removed binding forms: 574 o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#every o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#any o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#first o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#second o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#third o|substituted constant variable: r23056466 o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#constant577 o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#constant581 o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#constant585 o|substituted constant variable: r30146478 o|substituted constant variable: r31006481 o|substituted constant variable: r31246488 o|substituted constant variable: r31846497 o|substituted constant variable: r30826508 o|substituted constant variable: r33766526 o|substituted constant variable: r33626528 o|substituted constant variable: r32446531 o|substituted constant variable: r34336542 o|substituted constant variable: r35116544 o|substituted constant variable: r35876549 o|substituted constant variable: r35756555 o|substituted constant variable: r35606556 o|substituted constant variable: r35426557 o|substituted constant variable: r44626567 o|substituted constant variable: r45486575 o|substituted constant variable: r45486575 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r44476577 o|contracted procedure: "(c-platform.scm:1165) chicken.compiler.c-platform#list-tabulate" o|substituted constant variable: r27046467 o|substituted constant variable: r51766585 o|substituted constant variable: r51556596 o|substituted constant variable: r53136601 o|substituted constant variable: r52986607 o|substituted constant variable: r52806613 o|substituted constant variable: r52626624 o|removed side-effect free assignment to unused variable: chicken.compiler.c-platform#setter-map o|substituted constant variable: r54646626 o|substituted constant variable: r54646626 o|substituted constant variable: r54646628 o|substituted constant variable: r54646628 o|substituted constant variable: r54386630 o|substituted constant variable: r55046632 o|substituted constant variable: r55046632 o|substituted constant variable: r55046634 o|substituted constant variable: r55046634 o|substituted constant variable: r54786636 o|substituted constant variable: r55366639 o|substituted constant variable: r55186640 o|converted assignments to bindings: (rewrite-call/cc895) o|converted assignments to bindings: (rewrite-make-vector878) o|substituted constant variable: r56446658 o|substituted constant variable: r56326664 o|substituted constant variable: r55836670 o|substituted constant variable: r57306672 o|substituted constant variable: r57306672 o|substituted constant variable: r57306674 o|substituted constant variable: r57306674 o|substituted constant variable: r57056686 o|substituted constant variable: r57626707 o|converted assignments to bindings: (rewrite-div826) o|substituted constant variable: r58396708 o|substituted constant variable: r58706710 o|substituted constant variable: r58706710 o|substituted constant variable: r58706712 o|substituted constant variable: r58706712 o|substituted constant variable: r58766715 o|substituted constant variable: r59296723 o|substituted constant variable: r59296723 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r59636725 o|substituted constant variable: r59946727 o|substituted constant variable: r59946727 o|substituted constant variable: r59946729 o|substituted constant variable: r59946729 o|substituted constant variable: r60006732 o|substituted constant variable: r60536740 o|substituted constant variable: r60536740 o|folded constant expression: (scheme#not (quote #f)) o|substituted constant variable: r61326757 o|substituted constant variable: r62096765 o|substituted constant variable: r62096765 o|folded constant expression: (scheme#not (quote #f)) o|converted assignments to bindings: (rewrite-c-w-v756) o|converted assignments to bindings: (rewrite-c..r727) o|converted assignments to bindings: (rewrite-apply683) o|substituted constant variable: r62936776 o|substituted constant variable: r63456785 o|substituted constant variable: r62336796 o|converted assignments to bindings: (eqv?-id623) o|converted assignments to bindings: (op1612) o|substituted constant variable: g596598 o|substituted constant variable: g563567 o|simplifications: ((let . 8)) o|replaced variables: 42 o|removed binding forms: 450 o|replaced variables: 24 o|removed binding forms: 123 o|replaced variables: 35 o|removed binding forms: 24 o|removed binding forms: 35 o|simplifications: ((if . 7) (##core#call . 280)) o| call simplifications: o| scheme#symbol? 2 o| scheme#assq o| scheme#= o| chicken.base#fixnum? 2 o| scheme#<= o| chicken.fixnum#fx+ o| chicken.fixnum#fx>= 5 o| scheme#caddr 3 o| scheme#list? o| scheme#cdr 6 o| ##sys#setslot 2 o| scheme#cadr 8 o| scheme#equal? 2 o| scheme#number? 2 o| scheme#not 12 o| scheme#length 19 o| scheme#eq? 56 o| scheme#list 84 o| ##sys#check-list 2 o| scheme#pair? 7 o| ##sys#slot 10 o| scheme#null? 8 o| scheme#car 34 o| scheme#cons 11 o|contracted procedure: k2128 o|contracted procedure: k2139 o|contracted procedure: k2295 o|contracted procedure: k2307 o|contracted procedure: k2325 o|contracted procedure: k2333 o|contracted procedure: k2981 o|contracted procedure: k3068 o|contracted procedure: k3016 o|contracted procedure: k3023 o|contracted procedure: k3027 o|contracted procedure: k3034 o|inlining procedure: k3041 o|inlining procedure: k3041 o|contracted procedure: k3052 o|contracted procedure: k3060 o|contracted procedure: k3056 o|contracted procedure: k3227 o|contracted procedure: k3084 o|contracted procedure: k3087 o|contracted procedure: k3090 o|contracted procedure: k3112 o|contracted procedure: k3116 o|contracted procedure: k3126 o|contracted procedure: k3129 o|contracted procedure: k3142 o|contracted procedure: k3153 o|contracted procedure: k3156 o|contracted procedure: k3169 o|contracted procedure: k3180 o|contracted procedure: k3186 o|contracted procedure: k3192 o|contracted procedure: k3199 o|contracted procedure: k3203 o|contracted procedure: k3246 o|contracted procedure: k3256 o|contracted procedure: k3263 o|contracted procedure: k3271 o|contracted procedure: k3279 o|contracted procedure: k3283 o|contracted procedure: k3286 o|contracted procedure: k3289 o|contracted procedure: k3301 o|contracted procedure: k3304 o|contracted procedure: k3307 o|contracted procedure: k3315 o|contracted procedure: k3323 o|contracted procedure: k3347 o|contracted procedure: k3358 o|contracted procedure: k3406 o|contracted procedure: k3364 o|contracted procedure: k3367 o|contracted procedure: k3385 o|contracted procedure: k3397 o|contracted procedure: k3389 o|contracted procedure: k2474 o|contracted procedure: k2464 o|contracted procedure: k3486 o|contracted procedure: k3435 o|contracted procedure: k3444 o|contracted procedure: k3451 o|contracted procedure: k3455 o|contracted procedure: k3462 o|contracted procedure: k3469 o|contracted procedure: k3479 o|contracted procedure: k3528 o|contracted procedure: k3513 o|contracted procedure: k3520 o|contracted procedure: k3524 o|contracted procedure: k3699 o|contracted procedure: k3544 o|contracted procedure: k3547 o|contracted procedure: k3550 o|contracted procedure: k3556 o|contracted procedure: k3562 o|contracted procedure: k3565 o|contracted procedure: k3580 o|contracted procedure: k3583 o|contracted procedure: k3589 o|contracted procedure: k3595 o|contracted procedure: k3611 o|contracted procedure: k3615 o|contracted procedure: k3627 o|contracted procedure: k3631 o|contracted procedure: k3667 o|contracted procedure: k3639 o|contracted procedure: k3643 o|contracted procedure: k3651 o|contracted procedure: k3655 o|contracted procedure: k4449 o|contracted procedure: k4571 o|contracted procedure: k4455 o|contracted procedure: k4533 o|contracted procedure: k4458 o|contracted procedure: k4528 o|contracted procedure: k4464 o|contracted procedure: k4471 o|contracted procedure: k4475 o|contracted procedure: k4495 o|contracted procedure: k4506 o|contracted procedure: k4509 o|contracted procedure: k4516 o|contracted procedure: k4550 o|contracted procedure: k4557 o|contracted procedure: k4547 o|contracted procedure: k5151 o|contracted procedure: k5157 o|contracted procedure: k5160 o|contracted procedure: k5166 o|contracted procedure: k5172 o|contracted procedure: k5178 o|contracted procedure: k5194 o|contracted procedure: k5198 o|contracted procedure: k5206 o|contracted procedure: k5210 o|contracted procedure: k5218 o|contracted procedure: k2706 o|contracted procedure: k2721 o|contracted procedure: k5233 o|contracted procedure: k5376 o|contracted procedure: k5264 o|contracted procedure: k5267 o|contracted procedure: k5273 o|contracted procedure: k5282 o|contracted procedure: k5288 o|contracted procedure: k5300 o|contracted procedure: k5303 o|contracted procedure: k5309 o|contracted procedure: k5315 o|contracted procedure: k5321 o|contracted procedure: k5328 o|contracted procedure: k5332 o|contracted procedure: k5363 o|contracted procedure: k5471 o|contracted procedure: k5440 o|contracted procedure: k5447 o|contracted procedure: k5451 o|contracted procedure: k5466 o|contracted procedure: k5459 o|contracted procedure: k5511 o|contracted procedure: k5480 o|contracted procedure: k5487 o|contracted procedure: k5491 o|contracted procedure: k5506 o|contracted procedure: k5499 o|contracted procedure: k5576 o|contracted procedure: k5520 o|contracted procedure: k5523 o|contracted procedure: k5529 o|contracted procedure: k5532 o|contracted procedure: k5541 o|contracted procedure: k5551 o|contracted procedure: k5555 o|contracted procedure: k5563 o|contracted procedure: k5698 o|contracted procedure: k5585 o|contracted procedure: k5588 o|contracted procedure: k5595 o|contracted procedure: k5603 o|inlining procedure: k5599 o|inlining procedure: k5599 o|contracted procedure: k5615 o|contracted procedure: k5625 o|contracted procedure: k5628 o|contracted procedure: k5634 o|contracted procedure: k5658 o|contracted procedure: k5654 o|contracted procedure: k5675 o|contracted procedure: k5671 o|contracted procedure: k5678 o|contracted procedure: k5754 o|contracted procedure: k5707 o|contracted procedure: k5714 o|contracted procedure: k5718 o|contracted procedure: k5726 o|contracted procedure: k5735 o|contracted procedure: k5742 o|contracted procedure: k5764 o|contracted procedure: k5831 o|contracted procedure: k5770 o|contracted procedure: k5777 o|contracted procedure: k5781 o|contracted procedure: k5784 o|contracted procedure: k5802 o|contracted procedure: k5798 o|contracted procedure: k5812 o|contracted procedure: k5819 o|contracted procedure: k5841 o|contracted procedure: k5949 o|contracted procedure: k5850 o|contracted procedure: k5857 o|contracted procedure: k5861 o|contracted procedure: k5872 o|contracted procedure: k5911 o|contracted procedure: k5878 o|contracted procedure: k5885 o|contracted procedure: k5889 o|contracted procedure: k5903 o|contracted procedure: k5907 o|contracted procedure: k5931 o|contracted procedure: k5935 o|contracted procedure: k5956 o|contracted procedure: k5965 o|contracted procedure: k6073 o|contracted procedure: k5974 o|contracted procedure: k5981 o|contracted procedure: k5985 o|contracted procedure: k5996 o|contracted procedure: k6035 o|contracted procedure: k6002 o|contracted procedure: k6009 o|contracted procedure: k6013 o|contracted procedure: k6027 o|contracted procedure: k6031 o|contracted procedure: k6055 o|contracted procedure: k6059 o|contracted procedure: k6080 o|contracted procedure: k6092 o|contracted procedure: k6099 o|contracted procedure: k6103 o|contracted procedure: k6198 o|contracted procedure: k6113 o|contracted procedure: k6120 o|contracted procedure: k6128 o|contracted procedure: k6124 o|contracted procedure: k6134 o|contracted procedure: k6141 o|contracted procedure: k6145 o|contracted procedure: k6165 o|contracted procedure: k6176 o|contracted procedure: k6179 o|contracted procedure: k6186 o|contracted procedure: k6211 o|contracted procedure: k6218 o|contracted procedure: k6208 o|contracted procedure: k6388 o|contracted procedure: k6235 o|contracted procedure: k6238 o|contracted procedure: k6241 o|contracted procedure: k6260 o|contracted procedure: k6264 o|contracted procedure: k6281 o|contracted procedure: k6285 o|contracted procedure: k6295 o|contracted procedure: k6298 o|contracted procedure: k6318 o|contracted procedure: k6321 o|contracted procedure: k6341 o|contracted procedure: k6347 o|contracted procedure: k6353 o|contracted procedure: k6360 o|contracted procedure: k6364 o|contracted procedure: k6406 o|contracted procedure: k6416 o|contracted procedure: k6420 o|contracted procedure: k6429 o|contracted procedure: k6432 o|contracted procedure: k6435 o|contracted procedure: k6443 o|contracted procedure: k6451 o|simplifications: ((let . 27)) o|removed binding forms: 256 o|replaced variables: 32 o|removed binding forms: 2 o|removed binding forms: 18 o|direct leaf routine/allocation: loop327 0 o|contracted procedure: k3249 o|converted assignments to bindings: (loop327) o|simplifications: ((let . 1)) o|removed binding forms: 1 o|customizable procedures: (map-loop551569 for-each-loop589607 op1612 k6271 k6274 rewrite-c..r727 k6158 k5968 k5844 k5791 k5640 loop422 chicken.compiler.c-platform#filter k4488 map-loop693710 chicken.compiler.c-platform#cons* k3102 k3105 foldr254257 g259260 loop204) o|calls to known targets: 69 o|identified direct recursive calls: f_2123 1 o|identified direct recursive calls: f_2302 1 o|identified direct recursive calls: f_2459 1 o|fast box initializations: 6 o|fast global references: 6 o|fast global assignments: 2 o|dropping unused closure argument: f_2117 o|dropping unused closure argument: f_2293 o|dropping unused closure argument: f_2459 o|dropping unused closure argument: f_3009 o|dropping unused closure argument: f_3424 */ /* end of file */ ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������